guile-gnome-platform-2.16.2/0000755000175000017500000000000011752546506016177 5ustar00wingowingo00000000000000guile-gnome-platform-2.16.2/NEWS0000644000175000017500000004672711752510741016706 0ustar00wingowingo00000000000000guile-gnome-platform NEWS --- history of user-visible changes. Copyright (C) 2004,2005,2006,2007,2008,2011,2012 Free Software Foundation, Inc. See the end for copying conditions of this file. guile-gnome-platform is a binding between Guile Scheme and the Gnome stack of libraries. See the README, for more information. guile-gnome-platform 2.16.2 -- 2012-09-05 ========================================= packaging changes ----------------- * Instead of the terribly complicated revision control configuration that we had before, now all code is in git, and in just one branch. The build files like Makefile.am and configure.ac are no longer generated from other files. * Update to support Guile 2.0 in addition to 1.8. (We don't currently install compiled .go files yet.) * Require G-Wrap 1.9.14. * If Guile is new enough, tab completion at the REPL will cause all "latent" bindings to become present. This makes it easier to explore the API. glib ---- * Fix generation of code that produces errors when compiled when wrapping GList* types. gtk --- * Fix some instances of allocating boxed types with g_new0 instead of the boxed type's own copy function. Thanks to Greg Benison and Patrick Bernaud. * Fix linking error regarding libgw-guile-gnome-gtk and libguile-cairo. Thanks to Andreas Rottmann. * Add overrides with parameter annotations for methods of GtkPrintOperation (bug #603211). Thanks to Patrick Bernaud. * Add wrapper for gtk_tree_view_get_path_at_pos(). Thanks to Patrick Bernaud. * Fix up some of the example files for 2.16.0 API. Thanks to Patrick Bernaud. * The GtkTextBuffer API now uses UTF-8 for Guile 2.0. Thanks to Mark Weaver. There is more work to do regarding UTF-8 and Guile 2.0, though. libglade -------- * Fix automatic connection of signals to handlers (bug #605248). Thanks to Patrick Bernaud. guile-gnome-platform 2.16.1 - Andy Wingo, 2008-07-03 ==================================================== packaging changes ----------------- * Removed the "docs" module; its content, the tutorial, is now folded into the documentation for all of the relevant modules (e.g. GLib, GTK+, CORBA, etc.) * Changelogs have all been archived to ChangeLog.pre-2.16, because now we will just use revision control logs. * Suppress some automake warnings. * Add guile-clutter to the set of configurable packages. atk --- * Improved documentation. corba ----- * Improved documentation, folding the tutorial text in to the (gnome corba) module commentary. * Removed a printf. defs ---- * New platform release, no change. gconf ----- * Imroved documentation, with example. * Fixed a bug regarding GConfClient notification. glib ---- * Improved documentation. * Build process is slightly less noisy. * Recognize GInitiallyUnowned as a sinkable object. This doesn't affect e.g. GTK+, for which we already recognize GtkObject as sinkable, but it does affect e.g. Clutter. * Don't error when constructing parameter types of which we are unaware. Affects e.g. ClutterUnit parameters; the precise nature of this fix will change in the future. * Accept integers as init values for or values. * Bugfix for custom-wrapped boxed values, like GdkRectangle. * Fix regressions on x86-64. gnome-vfs --------- * Improved documentation, with some example code. gtk --- * Improved documentation, merging in content from the tutorial into the main GTK+ docs. libglade -------- * Improved documentation, with an example. libgnome -------- * Improved documentation. libgnomecanvas -------------- * Improved documentation. libgnomeui ---------- * Improved documentation. pango ----- * Added (gnome pangocairo) module, along with documentation. guile-gnome-platform 2.15.98 - Andy Wingo, 2008-04-25 ===================================================== packaging changes ----------------- * Formally require Guile 1.8, as has been the case for a while now. * Bump the API_VERSION to 2, as a test before going stable. This will change all library names, pkg-config names, installed header names, etc. (use-modules (gnome-0)) in user code should be changed to (use-modules (gnome-2)). guile-gnome-0 is now guile-gnome-2. The purpose of this change is to shake out any bugs in the API_VERSION mechanism. The intention is for the next release to be 2.16.0, with API_VERSION=2. atk --- * Documentation updated. gconf ----- * Documentation updated. * Don't use API deprecated in Guile 1.8. glib ---- * API changes: Made gtype-interface-destroy! public. Removed the terrible %especify-metaclass! as it is not used. * Documentation updated. * Don't use API deprecated in Guile 1.8. * A few bugfixes after the large changes in 2.15.97. gnome-vfs --------- * Documentation updated. * Don't use API deprecated in Guile 1.8. gtk --- * Documentation updated. * Don't use API deprecated in Guile 1.8. * Remove special wrapper for , as GTK+ 2.10 has enough of a gobject property interface. libglade -------- * Documentation updated. libgnome -------- * Documentation updated. * Don't use API deprecated in Guile 1.8. libgnomecanvas -------------- * Documentation updated. * Don't use API deprecated in Guile 1.8. libgnomeui ---------- * Documentation updated. pango ----- * Documentation updated. * Don't use API deprecated in Guile 1.8. guile-gnome-platform 2.15.97 - Andy Wingo, 2008-04-10 ===================================================== corba ----- * Adapt to changes in (gnome gobject). corba-typecode->gtype-class is the new name for corba-typecode->gtype. * Compilation fix if BONOBO_EX is already defined. gconf ----- * Adapt to changes in (gnome gobject). glib ---- * Major rewrite of low-level (gnome gobject) code. GTypes are no longer exposed to Scheme. Instead, types are represented directly as instances. Internally, instances know their GType, because is stored in a , which stores a raw (untagged) word -- the perfect size for a GType. Similarly, I also removed the need for <%gtype-instance> smobs as well, through interesting trickery: the GOOPS objects directly store the GTypeInstance* pointer in a . The trickery is that we can be notified when the struct is collected, via monkeypatching the objects to free via a custom function, scm_gtype_instance_struct_free. This allows us to unref the object. The same strategy was applied to GValue wrappers. With this change, Guile-GNOME no longer holds C data in SMOBs. Removing the , <%gtype-class>, <%gtype-instance>, and primitive types has allowed for the removal of much useless, non-orthogonal glue API. Signals and parameters are also represented natively with GOOPS objects, not structures. There is no overhead for this, as GOOPS objects are in fact structures, whose VTable is their class. This is an incompatible change, but one which allows me to commit to a stable API/ABI, perhaps in the next release. Please test your programs against this version, so that I can help you port, and so that we can make sure that the API is fine. gnome-vfs --------- * Adapt to changes in (gnome gobject). gtk --- * New function wrapper: gtk-widget-get-state. * Reintroduce gtk-menu-popup wrapper, this time supporting the menu positioning function. * Adapt to changes in (gnome gobject). * Interface changes: Tree models now deal in instances, now that there are no more GType objects. This applies to the list store, tree store, and the generic tree model. * Make the texinfo viewer understand more kinds of @def commands. libglade -------- * Adapt to changes in (gnome gobject). libgnomecanvas -------------- * Compilation fixes with picky compilers. guile-gnome-platform 2.15.96 - Andy Wingo, 2007-12-10 ===================================================== packaging changes ----------------- * Support a variant of check-coverage that generates a texinfo file with the missing functions. * Various buildfixes for building out-of-tree modules such as guile-gnome-gstreamer. atk --- * API review. Lots of interface types actually declared. * Documentation changes: add type index, section for undocumented exports, regenerated for changes resulting from API review. cairo ----- * Remove (gnome cairo), as we have no actual public API. corba ----- * Add automatically generated documentation and API regression tests. The docs need some work, however. docs ---- * Minor updates. gconf ----- * API review. * Documentation changes: add type index, section for undocumented exports, regenerated for changes resulting from API review. glib ---- * API review. * Documentation changes: add type index, section for undocumented exports, regenerated for changes resulting from API review. * Bugfix: avoid SCM_STRING_CHARS in core (gnome gobject) code, which will raise an exception when called on shared substrings. * Fixes to the fifo.scm example, which uses GIOChannel. * Leave guile mode at the right time in g-main-loop-run, fixing some hangs. * Change to the wrapset generator to no longer silently wrap opaque types; instead, functions that reference unknown types are ignored, and a warning is printed out. Requires more discipline when making wrapsets, but reduces random crap being wrapped. * Add support for appending a list of undocumented functions to the generated documentation. * Add support for wrapping more kinds of C structures: freeable pointers, generic refcounted pointers, and destructurable values. See the changes to (gnome gw support gobject) for more information. gnome-vfs --------- * API review. * Documentation changes: add type index, section for undocumented exports, regenerated for changes resulting from API review. gtk --- * API review. * Documentation changes: add type index, section for undocumented exports, regenerated for changes resulting from API review. * Fixes to make sure that all examples work. * Fix crasher in gtk-tree-model-iter-next. libglade -------- * API review. * Documentation changes: add type index, section for undocumented exports, regenerated for changes resulting from API review. libgnome -------- * API review. * Documentation changes: add type index, section for undocumented exports, regenerated for changes resulting from API review. libgnomecanvas -------------- * API review. * Documentation changes: add type index, section for undocumented exports, regenerated for changes resulting from API review. * Fix wrapper for GnomeCanvasPoints. libgnomeui ---------- * Documentation changes: add type index, section for undocumented exports, regenerated for changes resulting from API review. * API review, resulting in a number of functions being ignored. pango ----- * Documentation changes: add type index, section for undocumented exports, regenerated for changes resulting from API review. * API review, resulting in a number of functions being ignored. guile-gnome-platform 2.15.95 - Andy Wingo, 2007-11-10 ===================================================== packaging changes ----------------- * Build system work: add common makefile include for unit tests and a new check-coverage target to documentation builds. atk --- * Added API regression test suite. gconf ----- * Add API regression test suite. * Add documentation, generated from upstream gtk-doc. glib ---- * Added API regression unit tests for (gnome gw glib); previously only (gnome gobject) was tested. * Add new code to check documentation coverage, integrated with the build system via the generate-docs.mk file in the `pkg' module. * Fix documentation of class properties. gnome-vfs --------- * Add API regression test suite. * Add documentation, generated from upstream gtk-doc. The docs are suboptimal, as they do not talk at all the mapping between gnome-vfs handles and scheme ports. gtk --- * Incompatible change: (gnome gtk) only exports GDK and GTK functions (gnome gtk) used to re-export (oop goops), (gnome gobject), and a number of other modules. This was changed so that we could guarantee a stable interface for (gnome gtk); if you want other modules, you should explicitly require them. * Added API regression test suite. libglade -------- * Added documentation, generated from upstream gtk-doc. * Added API regression test suite. libgnome -------- * Add documentation, generated from upstream gtk-doc. * Add API regression test suite. libgnomecanvas -------------- * Add API regression test suite. * Add documentation, generated from upstream gtk-doc. libgnomeui ---------- * Add documentation, generated from upstream gtk-doc. * Add API regression test suite. pango ----- * Fix linking errors that made pangocairo unusable. * Add API regression test suite. guile-gnome-platform 2.15.94 - Andy Wingo, 2007-09-25 ===================================================== packaging changes ----------------- * Added infrastructure to make documentation. atk --- * Add documentation. corba ----- * Fix a compiler warning. defs ---- * Remove .defs for libwnck, as they are not part of the platform. glib ---- * Added documentation for the gobject and glib wrappers. * Added unit tests which check that the (gnome gobject) and (gnome gw glib) APIs do not unintentionally change incompatibly. * Added infrastructure for automatically producing documentation based on upstream GTK-Doc documentation. * Fixed a number of API bugs; see the ChangeLog from 2006-09-01 and before for more details. Should not affect user's applications. gtk --- * Added documentation for the gtk and gdk wrappers. pango ----- * Added documentation for the pango and pangocairo wrappers. guile-gnome-platform 2.15.93 - Andy Wingo, 2007-06-15 ===================================================== The most notable features of the release are that (1) it works, unlike 2.15.92; and (2) load time is much faster with the latest Guile 1.8 CVS. cairo ----- * Guile-Gnome-Cairo 2.15.92 was unusable; fixed. Unfortunately this means that we have to make another small shared library. defs ---- * Fix pango defs to include pango-tabs.h. glib ---- * Fix parsing of some options on arguments, such as (callee-owned), broken since 2007-05-05. * Fix wrapper name of g-string-get-str. * Fix some default values lost when glib.defs was autogenerated. * Large speedup in load time of wrapped modules if we detect that Guile's module-make-local-var! is "lightweight", as is the case in the latest Guile 1.8 and HEAD CVS. gtk --- * Fix wrapping of GdkEvent, which had broken mysteriously. guile-gnome-platform 2.15.92 - Andy Wingo, 2007-05-24 ===================================================== packaging changes ----------------- * Updates to h2defs.py to automatically handle more cases. * Add cairo to guile-gnome-platform. atk --- * Update to wrap ATK 1.12, corresponding to GNOME 2.16. cairo ----- * G-wrap integration for external guile-cairo module. corba ----- * Fix bug caused by change in guile-gnome-glib a while back that prevented CORBA from loading (#416570). defs ---- * Update all defs files to the library versions corresponding to the GNOME 2.16 development platform. Defs files are now entirely autogenerated. docs ---- * New platform release, no change. gconf ----- * Update to wrap GConf 2.18, corresponding to GNOME 2.16. glib ---- * Update to GLib 2.10. Notably, this wraps the GBookmarkFile API, and the g_unicode and g_utf8 functions. * Fix POSIX signal handling when running the main loop with Guile 1.8. gnome-vfs --------- * Update to wrap GNOME-VFS 2.16. gtk --- * Update to wrap GTK+ 2.10, part of GNOME 2.16. * Require guile-cairo. * Bugfixes. libglade -------- * Update to wrap libglade 2.6.0, corresponding to GNOME 2.16. libgnome -------- * Update to wrap libgnome 2.16. libgnomecanvas -------------- * Update to wrap libgnomecanvas 2.14, corresponding to GNOME 2.16. libgnomeui ---------- * Update to wrap libgnomeui 2.16. pango ----- * Wrap pangocairo if cairo is available. * Update pango wrappers to version 1.14. guile-gnome-platform 2.15.91 - Andy Wingo, 2007-05-10 ===================================================== packaging changes ----------------- * Require G-Wrap 1.9.8. atk --- * Update for defs parser changes. docs ---- * Add "Getting started" chapter to tutorial. gconf ----- * Updates for defs parser changes. glib ---- * Leave guile mode when calling into C, and enter when calling back into Guile, as in GClosures. Guile-gnome now supports multithreaded operation on Guile 1.8. * The custom handler for g_warning() and friends was removed; guile-gnome will no longer scm_error when GLib logs. * The defs parser automatically recognizes more output arguments, for example guint64*. * Many bugfixes. gnome-vfs --------- * Updates for defs parser changes. gtk --- * Additions: - gtk-menu-popup accepts #f for parent widget arguments. - gdk-event-button: accessors now work on 2button and 3button events. - New GDK event accessor: gdk-event-button:time * Bugfixes: - Fix gtk-icon-size-lookup and gtk-icon-size-get-name wrappers. * Updates for defs parser changes. libglade -------- * Update for changes to defs parser. libgnomecanvas -------------- * Update for changes in the defs parser. guile-gnome-platform 2.15.90 - Andy Wingo, 2006-12-15 ===================================================== packaging changes ----------------- * Require G-Wrap 1.9.7. * Update to use bzr as the version control system, instead of tla. atk --- * Build fix for g-wrap. corba ----- * Build fix for g-wrap. gconf ----- * Build fixes for g-wrap. glib ---- * Operate on GTypeInstances via a generic registry of fundamental type operations. guile-gnome-glib comes with operations on GObject and GParamSpec; wrappers can define other operations for other fundamental types (such as GstMiniObject in GStreamer). * Require G-Wrap 1.9.7, so that we can place all of our generics in the (gnome gw generics) module instead of in the root module. * Avoid calling scm_ functions while in GC sweep, fixes crashes on Guile 1.8. * Add support macro for wrapping custom unclassed GTypes, such as GStreamer's fractions. * Don't ignore 'null-ok (or other options) in cases like this: '("GMainContext*" "context" (null-ok) (default "NULL")). * Remove SLIB dependency by folding in the needed functionality. * Add support for gsize and gssize, both as input and output parameters. * Add accessors for fields of GError. * Other compile, memleak, and bug fixes. gnome-vfs --------- * Build updates for g-wrap. * Don't attempt to wrap bonobo functions, they are not present in newer gnome-vfs. * Fix locking, the --disable-deprecated mechanism, and some GCC 4 warnings. gtk --- * Build updates for g-wrap, compile fixes for GCC 4. * Wrap GtkListStore (previously skipped by mistake). * Wrap gint* and guint* output args, and annotate some parameters as null-ok. libglade -------- * Build updates for g-wrap. libgnome -------- * Build updates for g-wrap. libgnomecanvas -------------- * Build updates for g-wrap and other compile fixes. libgnomeui ---------- * Build updates for g-wrap. pango ----- * Build updates for g-wrap. guile-gnome-platform 2.7.99 - Andy Wingo, 2005-03-06 ==================================================== * Require g-wrap >= 1.9.4. * Add a general option to disable wrapping deprecated functions. guile-gnome-platforn 2.7.98 - Andy Wingo, 2005-01-11 ==================================================== * Initial release with NEWS. Copyright (C) 2004,2005,2006,2007,2008,2011 Free Software Foundation, Inc. Copying and distribution of this file, with or without modification, are permitted in any medium without royalty provided the copyright notice and this notice are preserved. guile-gnome-platform-2.16.2/h2def.py0000755000175000017500000003645211670374114017547 0ustar00wingowingo00000000000000#!/usr/bin/env python # -*- Mode: Python; py-indent-offset: 4 -*- # Search through a header file looking for function prototypes. # For each prototype, generate a scheme style definition. # GPL'ed # Toby D. Reeves # Modified by James Henstridge to output stuff in # Havoc's new defs format. Info on this format can be seen at: # http://www.gnome.org/mailing-lists/archives/gtk-devel-list/2000-January/0085.shtml import string, sys, re, types # ------------------ Create typecodes from typenames --------- _upperstr_pat1 = re.compile(r'([^A-Z])([A-Z])') _upperstr_pat2 = re.compile(r'([A-Z][A-Z])([A-Z][0-9a-z])') _upperstr_pat3 = re.compile(r'^([A-Z])([A-Z])') def to_upper_str(name): """Converts a typename to the equivalent upercase and underscores name. This is used to form the type conversion macros and enum/flag name variables""" name = _upperstr_pat1.sub(r'\1_\2', name) name = _upperstr_pat2.sub(r'\1_\2', name) name = _upperstr_pat3.sub(r'\1_\2', name, count=1) return string.upper(name) def typecode_prefix(typename): """create a typecode (eg. GTK_TYPE_WIDGET) from a typename""" return string.replace(to_upper_str(typename), '_', '_TYPE_', 1) def typecode_postfix(typename): """create a typecode (eg. GST_MEDIA_INFO_TYPE) from a typename""" return to_upper_str(typename) + '_TYPE' def typecode_re(regex): """create a typecode from a regex""" assert regex[0] == 's' delim = regex[1] s, pat, sub, null = regex.split(delim) assert null == '' def typecode(typename): return re.sub(pat, sub, to_upper_str(typename)) return typecode # ------------------ Find object definitions ----------------- def strip_comments(buf): parts = [] lastpos = 0 while 1: pos = string.find(buf, '/*', lastpos) if pos >= 0: parts.append(buf[lastpos:pos]) pos = string.find(buf, '*/', pos) if pos >= 0: lastpos = pos + 2 else: break else: parts.append(buf[lastpos:]) break return string.join(parts, '') obj_name_pat = "[A-Z][a-z]*[A-Z][A-Za-z0-9]*" split_prefix_pat = re.compile('([A-Z][a-z]*)([A-Za-z0-9]+)') def find_obj_defs(buf, objdefs=[]): """ Try to find object definitions in header files. """ # filter out comments from buffer. buf = strip_comments(buf) maybeobjdefs = [] # contains all possible objects from file # first find all structures that look like they may represent a GtkObject pat = re.compile("struct _(" + obj_name_pat + ")\s*{\s*" + "(" + obj_name_pat + ")\s+", re.MULTILINE) pos = 0 while pos < len(buf): m = pat.search(buf, pos) if not m: break maybeobjdefs.append((m.group(1), m.group(2))) pos = m.end() # handle typedef struct { ... } style struct defs. pat = re.compile("typedef struct\s+[_\w]*\s*{\s*" + "(" + obj_name_pat + ")\s+[^}]*}\s*" + "(" + obj_name_pat + ")\s*;", re.MULTILINE) pos = 0 while pos < len(buf): m = pat.search(buf, pos) if not m: break maybeobjdefs.append((m.group(2), m.group(2))) pos = m.end() # now find all structures that look like they might represent a class: pat = re.compile("struct _(" + obj_name_pat + ")Class\s*{\s*" + "(" + obj_name_pat + ")Class\s+", re.MULTILINE) pos = 0 while pos < len(buf): m = pat.search(buf, pos) if not m: break t = (m.group(1), m.group(2)) # if we find an object structure together with a corresponding # class structure, then we have probably found a GtkObject subclass. if t in maybeobjdefs: objdefs.append(t) pos = m.end() pat = re.compile("typedef struct\s+[_\w]*\s*{\s*" + "(" + obj_name_pat + ")Class\s+[^}]*}\s*" + "(" + obj_name_pat + ")Class\s*;", re.MULTILINE) pos = 0 while pos < len(buf): m = pat.search(buf, pos) if not m: break t = (m.group(2), m.group(1)) # if we find an object structure together with a corresponding # class structure, then we have probably found a GtkObject subclass. if t in maybeobjdefs: objdefs.append(t) pos = m.end() def sort_obj_defs(objdefs): objdefs.sort() # not strictly needed, but looks nice pos = 0 while pos < len(objdefs): klass,parent = objdefs[pos] for i in range(pos+1, len(objdefs)): # parent below subclass ... reorder if objdefs[i][0] == parent: objdefs.insert(i+1, objdefs[pos]) del objdefs[pos] break else: pos = pos + 1 return objdefs def write_obj_defs(objdefs, output): if type(output)==types.StringType: fp=open(output,'w') elif type(output)==types.FileType: fp=output else: fp=sys.stdout fp.write(';; -*- scheme -*-\n') fp.write('; object definitions ...\n') for klass, parent in objdefs: m = split_prefix_pat.match(klass) cmodule = None cname = klass if m: cmodule = m.group(1) cname = m.group(2) fp.write('(define-object ' + cname + '\n') if cmodule: fp.write(' (in-module "' + cmodule + '")\n') if parent: fp.write(' (parent "' + parent + '")\n') fp.write(' (c-name "' + klass + '")\n') fp.write(' (gtype-id "' + typecode(klass) + '")\n') # should do something about accessible fields fp.write(')\n\n') # ------------------ Find enum definitions ----------------- def find_enum_defs(buf, enums=[]): # strip comments # bulk comments buf = strip_comments(buf) buf = re.sub('\n', ' ', buf) enum_pat = re.compile(r'enum\s*{([^}]*)}\s*([A-Z][A-Za-z0-9]*)(\s|;)') splitter = re.compile(r'\s*,\s', re.MULTILINE) pos = 0 while pos < len(buf): m = enum_pat.search(buf, pos) if not m: break name = m.group(2) vals = m.group(1) isflags = string.find(vals, '<<') >= 0 entries = [] for val in splitter.split(vals): if not string.strip(val): continue entries.append(string.split(val)[0]) if name != 'GdkCursorType': enums.append((name, isflags, entries)) pos = m.end() def write_enum_defs(enums, output=None, without_gtype=0): if type(output)==types.StringType: fp=open(output,'w') elif type(output)==types.FileType: fp=output else: fp=sys.stdout fp.write(';; Enumerations and flags ...\n\n') trans = string.maketrans(string.uppercase + '_', string.lowercase + '-') for cname, isflags, entries in enums: name = cname module = None m = split_prefix_pat.match(cname) if m: module = m.group(1) name = m.group(2) if isflags: fp.write('(define-flags ' + name + '\n') else: fp.write('(define-enum ' + name + '\n') if module: fp.write(' (in-module "' + module + '")\n') fp.write(' (c-name "' + cname + '")\n') if not without_gtype: fp.write(' (gtype-id "' + typecode(cname) + '")\n') prefix = entries[0] for ent in entries: # shorten prefix til we get a match ... # and handle GDK_FONT_FONT, GDK_FONT_FONTSET case while ent[:len(prefix)] != prefix or len(prefix) >= len(ent): prefix = prefix[:-1] prefix_len = len(prefix) fp.write(' (values\n') for ent in entries: fp.write(' \'("%s" "%s")\n' % (string.translate(ent[prefix_len:], trans), ent)) fp.write(' )\n') fp.write(')\n\n') # ------------------ Find function definitions ----------------- def clean_func(buf): """ Ideally would make buf have a single prototype on each line. Actually just cuts out a good deal of junk, but leaves lines where a regex can figure prototypes out. """ # bulk comments buf = strip_comments(buf) # compact continued lines pat = re.compile(r"""\\\n""", re.MULTILINE) buf=pat.sub('',buf) # Preprocess directives pat = re.compile(r"""^[#].*?$""", re.MULTILINE) buf=pat.sub('',buf) # GLib declaration braces pat = re.compile(r"""^\s*G_(BEGIN|END)_DECLS\s*$""", re.MULTILINE) buf=pat.sub('',buf) #typedefs, stucts, and enums pat = re.compile(r"""^(typedef|struct|enum)(\s|.|\n)*?;\s*""", re.MULTILINE) buf=pat.sub('',buf) #multiple whitespace pat = re.compile(r"""\s+""", re.MULTILINE) buf=pat.sub(' ',buf) #clean up line ends pat = re.compile(r""";\s*""", re.MULTILINE) buf=pat.sub('\n',buf) buf = buf.lstrip() #associate *, &, and [] with type instead of variable #pat=re.compile(r'\s+([*|&]+)\s*(\w+)') pat=re.compile(r' \s+ ([*|&]+) \s* (\w+)',re.VERBOSE) buf=pat.sub(r'\1 \2', buf) pat=re.compile(r'\s+ (\w+) \[ \s* \]',re.VERBOSE) buf=pat.sub(r'[] \1', buf) # make return types that are const work. buf = string.replace(buf, 'G_CONST_RETURN ', 'const-') buf = string.replace(buf, 'const ', 'const-') return buf proto_pat=re.compile(r""" (?P(\s|-|\w|\&|\*)+\s*) # return type \s+ # skip whitespace (?P\w+)\s*[(] # match the function name until the opening ( \s* # skip any whitespace (?P.*?)\s*[)] # group the function arguments """, re.IGNORECASE|re.VERBOSE) #""" arg_split_pat = re.compile("\s*,\s*") def define_func(buf, fp, detect_methods): buf=clean_func(buf) buf=string.split(buf,'\n') for p in buf: if len(p)==0: continue m=proto_pat.match(p) if m==None: if verbose: sys.stderr.write('No match:|%s|\n'%p) continue func = m.group('func') ret = string.join(m.group('ret').split() ,"-") args=m.group('args') args=arg_split_pat.split(args) for i in range(len(args)): spaces = string.count(args[i], ' ') if spaces > 1: args[i] = string.replace(args[i], ' ', '-', spaces - 1) write_func(fp, func, ret, args, detect_methods) get_type_pat = re.compile(r'(const-)?([A-Za-z0-9]+)\*\s+') pointer_pat = re.compile('.*\*$') func_new_pat = re.compile('(\w+)_new$') def write_func(fp, name, ret, args, detect_methods): if detect_methods and len(args) >= 1: # methods must have at least one argument munged_name = string.replace(name, '_', '') m = get_type_pat.match(args[0]) if m: obj = m.group(2) if munged_name[:len(obj)] == string.lower(obj): regex = string.join(map(lambda x: x+'_?',string.lower(obj)),'') mname = re.sub(regex, '', name) fp.write('(define-method ' + mname + '\n') fp.write(' (of-object "' + obj + '")\n') fp.write(' (c-name "' + name + '")\n') if ret != 'void': fp.write(' (return-type "' + ret + '")\n') else: fp.write(' (return-type "none")\n') is_varargs = 0 has_args = len(args) > 1 for arg in args[1:]: if arg == '...': is_varargs = 1 elif arg in ('void', 'void '): has_args = 0 if has_args: fp.write(' (parameters\n') for arg in args[1:]: if arg != '...': tupleArg = tuple(string.split(arg)) if len(tupleArg) == 2: fp.write(' \'("%s" "%s")\n' % tupleArg) fp.write(' )\n') if is_varargs: fp.write(' (varargs #t)\n') fp.write(')\n\n') return # it is either a constructor or normal function fp.write('(define-function ' + name + '\n') fp.write(' (c-name "' + name + '")\n') # Hmmm... Let's asume that a constructor function name # ends with '_new' and it returns a pointer. m = func_new_pat.match(name) if pointer_pat.match(ret) and m: cname = '' for s in m.group(1).split ('_'): cname += s.title() if cname != '': fp.write(' (is-constructor-of "' + cname + '")\n') if ret != 'void': fp.write(' (return-type "' + ret + '")\n') else: fp.write(' (return-type "none")\n') is_varargs = 0 has_args = len(args) > 0 for arg in args: if arg == '...': is_varargs = 1 elif arg in ('void', 'void '): has_args = 0 if has_args: fp.write(' (parameters\n') for arg in args: if arg != '...': tupleArg = tuple(string.split(arg)) if len(tupleArg) == 2: fp.write(' \'("%s" "%s")\n' % tupleArg) fp.write(' )\n') if is_varargs: fp.write(' (varargs #t)\n') fp.write(')\n\n') def write_def(input, output, detect_methods): fp = open(input) buf = fp.read() fp.close() if type(output) == types.StringType: fp = open(output,'w') elif type(output) == types.FileType: fp = output else: fp = sys.stdout fp.write('\n;; From %s\n\n' % input) buf = define_func(buf, fp, detect_methods) fp.write('\n') # ------------------ Main function ----------------- verbose=0 typecode = typecode_prefix # default if __name__ == '__main__': import getopt do_types = 0 with_c_enums = 0 do_procs = 0 header = 0 detect_methods = True opts, args = getopt.getopt(sys.argv[1:], 'v', ['types', 'c-enums', 'procs', 'type-postfix', 'type-re=', 'all', 'with-header=', 'no-methods']) for o, v in opts: if o == '-v': verbose = 1 elif o == '--all': do_types = do_procs = 1 elif o == '--types': do_types = 1 elif o == '--c-enums': with_c_enums = 1 elif o == '--procs': do_procs = 1 elif o == '--type-postfix': typecode = typecode_postfix elif o == '--type-re': typecode = typecode_re(v) elif o == '--with-header': header = v elif o == '--no-methods': detect_methods = False if not args[0:1]: print 'Must specify at least one input file name' sys.exit(-1) if not (do_types or do_procs): print 'Must say --types, --procs, or --all' sys.exit(-1) print ';; -*- scheme -*-' if header: print header # read all the object definitions in objdefs = [] enums = [] for filename in args: buf = open(filename).read() find_obj_defs(buf, objdefs) find_enum_defs(buf, enums) objdefs = sort_obj_defs(objdefs) if do_types: write_enum_defs(enums,None, without_gtype = with_c_enums) write_obj_defs(objdefs,None) if do_procs: for filename in args: write_def(filename,None, detect_methods) guile-gnome-platform-2.16.2/tests.mk0000644000175000017500000000310611671225671017667 0ustar00wingowingo00000000000000# guile-gnome # Copyright (C) 2007, 2011 Free Software Foundation, Inc. # This program is free software; you can redistribute it and/or # modify it under the terms of the GNU General Public License as # published by the Free Software Foundation; either version 2 of # the License, or (at your option) any later version. # This program is distributed in the hope that it will be useful, # but WITHOUT ANY WARRANTY; without even the implied warranty of # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the # GNU General Public License for more details. # You should have received a copy of the GNU General Public License # along with this program; if not, contact: # Free Software Foundation Voice: +1-617-542-5942 # 59 Temple Place - Suite 330 Fax: +1-617-542-2652 # Boston, MA 02111-1307, USA gnu@gnu.org # # Makefile snippet # EXTRA_DIST = wrapset.api wrapset.scm wrapset_stem = set-wrapset_stem-in-your-makefile top_module_name = (gnome $(wrapset_stem)) gw_module_name = (gnome gw $(wrapset_stem)) extra_module_names = wrapset_modules = ($(top_module_name) $(gw_module_name) $(extra_module_names)) WRAPSET_TESTS_ENV = WRAPSET_MODULES="$(wrapset_modules)" WRAPSET_API_FILE=$(srcdir)/wrapset.api DEV_ENV = $(top_builddir)/dev-environ GUILE = guile TESTS_ENVIRONMENT=$(WRAPSET_TESTS_ENV) $(DEV_ENV) $(GUILE) $(GUILE_FLAGS) -e main -s wrapset.api.update: $(WRAPSET_TESTS_ENV) $(DEV_ENV) $(GUILE) -e update-api -s $(srcdir)/wrapset.scm %.check: % $(TESTS_ENVIRONMENT) $(srcdir)/$* TESTS = wrapset.scm guile-gnome-platform-2.16.2/build-aux/0000755000175000017500000000000011752546500020063 5ustar00wingowingo00000000000000guile-gnome-platform-2.16.2/build-aux/ltmain.sh0000644000175000017500000105202211671126164021705 0ustar00wingowingo00000000000000 # libtool (GNU libtool) 2.4.2 # Written by Gordon Matzigkeit , 1996 # Copyright (C) 1996, 1997, 1998, 1999, 2000, 2001, 2003, 2004, 2005, 2006, # 2007, 2008, 2009, 2010, 2011 Free Software Foundation, Inc. # This is free software; see the source for copying conditions. There is NO # warranty; not even for MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. # GNU Libtool is free software; you can redistribute it and/or modify # it under the terms of the GNU General Public License as published by # the Free Software Foundation; either version 2 of the License, or # (at your option) any later version. # # As a special exception to the GNU General Public License, # if you distribute this file as part of a program or library that # is built using GNU Libtool, you may include this file under the # same distribution terms that you use for the rest of that program. # # GNU Libtool is distributed in the hope that it will be useful, but # WITHOUT ANY WARRANTY; without even the implied warranty of # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU # General Public License for more details. # # You should have received a copy of the GNU General Public License # along with GNU Libtool; see the file COPYING. If not, a copy # can be downloaded from http://www.gnu.org/licenses/gpl.html, # or obtained by writing to the Free Software Foundation, Inc., # 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA. # Usage: $progname [OPTION]... [MODE-ARG]... # # Provide generalized library-building support services. # # --config show all configuration variables # --debug enable verbose shell tracing # -n, --dry-run display commands without modifying any files # --features display basic configuration information and exit # --mode=MODE use operation mode MODE # --preserve-dup-deps don't remove duplicate dependency libraries # --quiet, --silent don't print informational messages # --no-quiet, --no-silent # print informational messages (default) # --no-warn don't display warning messages # --tag=TAG use configuration variables from tag TAG # -v, --verbose print more informational messages than default # --no-verbose don't print the extra informational messages # --version print version information # -h, --help, --help-all print short, long, or detailed help message # # MODE must be one of the following: # # clean remove files from the build directory # compile compile a source file into a libtool object # execute automatically set library path, then run a program # finish complete the installation of libtool libraries # install install libraries or executables # link create a library or an executable # uninstall remove libraries from an installed directory # # MODE-ARGS vary depending on the MODE. When passed as first option, # `--mode=MODE' may be abbreviated as `MODE' or a unique abbreviation of that. # Try `$progname --help --mode=MODE' for a more detailed description of MODE. # # When reporting a bug, please describe a test case to reproduce it and # include the following information: # # host-triplet: $host # shell: $SHELL # compiler: $LTCC # compiler flags: $LTCFLAGS # linker: $LD (gnu? $with_gnu_ld) # $progname: (GNU libtool) 2.4.2 Debian-2.4.2-1 # automake: $automake_version # autoconf: $autoconf_version # # Report bugs to . # GNU libtool home page: . # General help using GNU software: . PROGRAM=libtool PACKAGE=libtool VERSION="2.4.2 Debian-2.4.2-1" TIMESTAMP="" package_revision=1.3337 # Be Bourne compatible if test -n "${ZSH_VERSION+set}" && (emulate sh) >/dev/null 2>&1; then emulate sh NULLCMD=: # Zsh 3.x and 4.x performs word splitting on ${1+"$@"}, which # is contrary to our usage. Disable this feature. alias -g '${1+"$@"}'='"$@"' setopt NO_GLOB_SUBST else case `(set -o) 2>/dev/null` in *posix*) set -o posix;; esac fi BIN_SH=xpg4; export BIN_SH # for Tru64 DUALCASE=1; export DUALCASE # for MKS sh # A function that is used when there is no print builtin or printf. func_fallback_echo () { eval 'cat <<_LTECHO_EOF $1 _LTECHO_EOF' } # NLS nuisances: We save the old values to restore during execute mode. lt_user_locale= lt_safe_locale= for lt_var in LANG LANGUAGE LC_ALL LC_CTYPE LC_COLLATE LC_MESSAGES do eval "if test \"\${$lt_var+set}\" = set; then save_$lt_var=\$$lt_var $lt_var=C export $lt_var lt_user_locale=\"$lt_var=\\\$save_\$lt_var; \$lt_user_locale\" lt_safe_locale=\"$lt_var=C; \$lt_safe_locale\" fi" done LC_ALL=C LANGUAGE=C export LANGUAGE LC_ALL $lt_unset CDPATH # Work around backward compatibility issue on IRIX 6.5. On IRIX 6.4+, sh # is ksh but when the shell is invoked as "sh" and the current value of # the _XPG environment variable is not equal to 1 (one), the special # positional parameter $0, within a function call, is the name of the # function. progpath="$0" : ${CP="cp -f"} test "${ECHO+set}" = set || ECHO=${as_echo-'printf %s\n'} : ${MAKE="make"} : ${MKDIR="mkdir"} : ${MV="mv -f"} : ${RM="rm -f"} : ${SHELL="${CONFIG_SHELL-/bin/sh}"} : ${Xsed="$SED -e 1s/^X//"} # Global variables: EXIT_SUCCESS=0 EXIT_FAILURE=1 EXIT_MISMATCH=63 # $? = 63 is used to indicate version mismatch to missing. EXIT_SKIP=77 # $? = 77 is used to indicate a skipped test to automake. exit_status=$EXIT_SUCCESS # Make sure IFS has a sensible default lt_nl=' ' IFS=" $lt_nl" dirname="s,/[^/]*$,," basename="s,^.*/,," # func_dirname file append nondir_replacement # Compute the dirname of FILE. If nonempty, add APPEND to the result, # otherwise set result to NONDIR_REPLACEMENT. func_dirname () { func_dirname_result=`$ECHO "${1}" | $SED "$dirname"` if test "X$func_dirname_result" = "X${1}"; then func_dirname_result="${3}" else func_dirname_result="$func_dirname_result${2}" fi } # func_dirname may be replaced by extended shell implementation # func_basename file func_basename () { func_basename_result=`$ECHO "${1}" | $SED "$basename"` } # func_basename may be replaced by extended shell implementation # func_dirname_and_basename file append nondir_replacement # perform func_basename and func_dirname in a single function # call: # dirname: Compute the dirname of FILE. If nonempty, # add APPEND to the result, otherwise set result # to NONDIR_REPLACEMENT. # value returned in "$func_dirname_result" # basename: Compute filename of FILE. # value retuned in "$func_basename_result" # Implementation must be kept synchronized with func_dirname # and func_basename. For efficiency, we do not delegate to # those functions but instead duplicate the functionality here. func_dirname_and_basename () { # Extract subdirectory from the argument. func_dirname_result=`$ECHO "${1}" | $SED -e "$dirname"` if test "X$func_dirname_result" = "X${1}"; then func_dirname_result="${3}" else func_dirname_result="$func_dirname_result${2}" fi func_basename_result=`$ECHO "${1}" | $SED -e "$basename"` } # func_dirname_and_basename may be replaced by extended shell implementation # func_stripname prefix suffix name # strip PREFIX and SUFFIX off of NAME. # PREFIX and SUFFIX must not contain globbing or regex special # characters, hashes, percent signs, but SUFFIX may contain a leading # dot (in which case that matches only a dot). # func_strip_suffix prefix name func_stripname () { case ${2} in .*) func_stripname_result=`$ECHO "${3}" | $SED "s%^${1}%%; s%\\\\${2}\$%%"`;; *) func_stripname_result=`$ECHO "${3}" | $SED "s%^${1}%%; s%${2}\$%%"`;; esac } # func_stripname may be replaced by extended shell implementation # These SED scripts presuppose an absolute path with a trailing slash. pathcar='s,^/\([^/]*\).*$,\1,' pathcdr='s,^/[^/]*,,' removedotparts=':dotsl s@/\./@/@g t dotsl s,/\.$,/,' collapseslashes='s@/\{1,\}@/@g' finalslash='s,/*$,/,' # func_normal_abspath PATH # Remove doubled-up and trailing slashes, "." path components, # and cancel out any ".." path components in PATH after making # it an absolute path. # value returned in "$func_normal_abspath_result" func_normal_abspath () { # Start from root dir and reassemble the path. func_normal_abspath_result= func_normal_abspath_tpath=$1 func_normal_abspath_altnamespace= case $func_normal_abspath_tpath in "") # Empty path, that just means $cwd. func_stripname '' '/' "`pwd`" func_normal_abspath_result=$func_stripname_result return ;; # The next three entries are used to spot a run of precisely # two leading slashes without using negated character classes; # we take advantage of case's first-match behaviour. ///*) # Unusual form of absolute path, do nothing. ;; //*) # Not necessarily an ordinary path; POSIX reserves leading '//' # and for example Cygwin uses it to access remote file shares # over CIFS/SMB, so we conserve a leading double slash if found. func_normal_abspath_altnamespace=/ ;; /*) # Absolute path, do nothing. ;; *) # Relative path, prepend $cwd. func_normal_abspath_tpath=`pwd`/$func_normal_abspath_tpath ;; esac # Cancel out all the simple stuff to save iterations. We also want # the path to end with a slash for ease of parsing, so make sure # there is one (and only one) here. func_normal_abspath_tpath=`$ECHO "$func_normal_abspath_tpath" | $SED \ -e "$removedotparts" -e "$collapseslashes" -e "$finalslash"` while :; do # Processed it all yet? if test "$func_normal_abspath_tpath" = / ; then # If we ascended to the root using ".." the result may be empty now. if test -z "$func_normal_abspath_result" ; then func_normal_abspath_result=/ fi break fi func_normal_abspath_tcomponent=`$ECHO "$func_normal_abspath_tpath" | $SED \ -e "$pathcar"` func_normal_abspath_tpath=`$ECHO "$func_normal_abspath_tpath" | $SED \ -e "$pathcdr"` # Figure out what to do with it case $func_normal_abspath_tcomponent in "") # Trailing empty path component, ignore it. ;; ..) # Parent dir; strip last assembled component from result. func_dirname "$func_normal_abspath_result" func_normal_abspath_result=$func_dirname_result ;; *) # Actual path component, append it. func_normal_abspath_result=$func_normal_abspath_result/$func_normal_abspath_tcomponent ;; esac done # Restore leading double-slash if one was found on entry. func_normal_abspath_result=$func_normal_abspath_altnamespace$func_normal_abspath_result } # func_relative_path SRCDIR DSTDIR # generates a relative path from SRCDIR to DSTDIR, with a trailing # slash if non-empty, suitable for immediately appending a filename # without needing to append a separator. # value returned in "$func_relative_path_result" func_relative_path () { func_relative_path_result= func_normal_abspath "$1" func_relative_path_tlibdir=$func_normal_abspath_result func_normal_abspath "$2" func_relative_path_tbindir=$func_normal_abspath_result # Ascend the tree starting from libdir while :; do # check if we have found a prefix of bindir case $func_relative_path_tbindir in $func_relative_path_tlibdir) # found an exact match func_relative_path_tcancelled= break ;; $func_relative_path_tlibdir*) # found a matching prefix func_stripname "$func_relative_path_tlibdir" '' "$func_relative_path_tbindir" func_relative_path_tcancelled=$func_stripname_result if test -z "$func_relative_path_result"; then func_relative_path_result=. fi break ;; *) func_dirname $func_relative_path_tlibdir func_relative_path_tlibdir=${func_dirname_result} if test "x$func_relative_path_tlibdir" = x ; then # Have to descend all the way to the root! func_relative_path_result=../$func_relative_path_result func_relative_path_tcancelled=$func_relative_path_tbindir break fi func_relative_path_result=../$func_relative_path_result ;; esac done # Now calculate path; take care to avoid doubling-up slashes. func_stripname '' '/' "$func_relative_path_result" func_relative_path_result=$func_stripname_result func_stripname '/' '/' "$func_relative_path_tcancelled" if test "x$func_stripname_result" != x ; then func_relative_path_result=${func_relative_path_result}/${func_stripname_result} fi # Normalisation. If bindir is libdir, return empty string, # else relative path ending with a slash; either way, target # file name can be directly appended. if test ! -z "$func_relative_path_result"; then func_stripname './' '' "$func_relative_path_result/" func_relative_path_result=$func_stripname_result fi } # The name of this program: func_dirname_and_basename "$progpath" progname=$func_basename_result # Make sure we have an absolute path for reexecution: case $progpath in [\\/]*|[A-Za-z]:\\*) ;; *[\\/]*) progdir=$func_dirname_result progdir=`cd "$progdir" && pwd` progpath="$progdir/$progname" ;; *) save_IFS="$IFS" IFS=${PATH_SEPARATOR-:} for progdir in $PATH; do IFS="$save_IFS" test -x "$progdir/$progname" && break done IFS="$save_IFS" test -n "$progdir" || progdir=`pwd` progpath="$progdir/$progname" ;; esac # Sed substitution that helps us do robust quoting. It backslashifies # metacharacters that are still active within double-quoted strings. Xsed="${SED}"' -e 1s/^X//' sed_quote_subst='s/\([`"$\\]\)/\\\1/g' # Same as above, but do not quote variable references. double_quote_subst='s/\(["`\\]\)/\\\1/g' # Sed substitution that turns a string into a regex matching for the # string literally. sed_make_literal_regex='s,[].[^$\\*\/],\\&,g' # Sed substitution that converts a w32 file name or path # which contains forward slashes, into one that contains # (escaped) backslashes. A very naive implementation. lt_sed_naive_backslashify='s|\\\\*|\\|g;s|/|\\|g;s|\\|\\\\|g' # Re-`\' parameter expansions in output of double_quote_subst that were # `\'-ed in input to the same. If an odd number of `\' preceded a '$' # in input to double_quote_subst, that '$' was protected from expansion. # Since each input `\' is now two `\'s, look for any number of runs of # four `\'s followed by two `\'s and then a '$'. `\' that '$'. bs='\\' bs2='\\\\' bs4='\\\\\\\\' dollar='\$' sed_double_backslash="\ s/$bs4/&\\ /g s/^$bs2$dollar/$bs&/ s/\\([^$bs]\\)$bs2$dollar/\\1$bs2$bs$dollar/g s/\n//g" # Standard options: opt_dry_run=false opt_help=false opt_quiet=false opt_verbose=false opt_warning=: # func_echo arg... # Echo program name prefixed message, along with the current mode # name if it has been set yet. func_echo () { $ECHO "$progname: ${opt_mode+$opt_mode: }$*" } # func_verbose arg... # Echo program name prefixed message in verbose mode only. func_verbose () { $opt_verbose && func_echo ${1+"$@"} # A bug in bash halts the script if the last line of a function # fails when set -e is in force, so we need another command to # work around that: : } # func_echo_all arg... # Invoke $ECHO with all args, space-separated. func_echo_all () { $ECHO "$*" } # func_error arg... # Echo program name prefixed message to standard error. func_error () { $ECHO "$progname: ${opt_mode+$opt_mode: }"${1+"$@"} 1>&2 } # func_warning arg... # Echo program name prefixed warning message to standard error. func_warning () { $opt_warning && $ECHO "$progname: ${opt_mode+$opt_mode: }warning: "${1+"$@"} 1>&2 # bash bug again: : } # func_fatal_error arg... # Echo program name prefixed message to standard error, and exit. func_fatal_error () { func_error ${1+"$@"} exit $EXIT_FAILURE } # func_fatal_help arg... # Echo program name prefixed message to standard error, followed by # a help hint, and exit. func_fatal_help () { func_error ${1+"$@"} func_fatal_error "$help" } help="Try \`$progname --help' for more information." ## default # func_grep expression filename # Check whether EXPRESSION matches any line of FILENAME, without output. func_grep () { $GREP "$1" "$2" >/dev/null 2>&1 } # func_mkdir_p directory-path # Make sure the entire path to DIRECTORY-PATH is available. func_mkdir_p () { my_directory_path="$1" my_dir_list= if test -n "$my_directory_path" && test "$opt_dry_run" != ":"; then # Protect directory names starting with `-' case $my_directory_path in -*) my_directory_path="./$my_directory_path" ;; esac # While some portion of DIR does not yet exist... while test ! -d "$my_directory_path"; do # ...make a list in topmost first order. Use a colon delimited # list incase some portion of path contains whitespace. my_dir_list="$my_directory_path:$my_dir_list" # If the last portion added has no slash in it, the list is done case $my_directory_path in */*) ;; *) break ;; esac # ...otherwise throw away the child directory and loop my_directory_path=`$ECHO "$my_directory_path" | $SED -e "$dirname"` done my_dir_list=`$ECHO "$my_dir_list" | $SED 's,:*$,,'` save_mkdir_p_IFS="$IFS"; IFS=':' for my_dir in $my_dir_list; do IFS="$save_mkdir_p_IFS" # mkdir can fail with a `File exist' error if two processes # try to create one of the directories concurrently. Don't # stop in that case! $MKDIR "$my_dir" 2>/dev/null || : done IFS="$save_mkdir_p_IFS" # Bail out if we (or some other process) failed to create a directory. test -d "$my_directory_path" || \ func_fatal_error "Failed to create \`$1'" fi } # func_mktempdir [string] # Make a temporary directory that won't clash with other running # libtool processes, and avoids race conditions if possible. If # given, STRING is the basename for that directory. func_mktempdir () { my_template="${TMPDIR-/tmp}/${1-$progname}" if test "$opt_dry_run" = ":"; then # Return a directory name, but don't create it in dry-run mode my_tmpdir="${my_template}-$$" else # If mktemp works, use that first and foremost my_tmpdir=`mktemp -d "${my_template}-XXXXXXXX" 2>/dev/null` if test ! -d "$my_tmpdir"; then # Failing that, at least try and use $RANDOM to avoid a race my_tmpdir="${my_template}-${RANDOM-0}$$" save_mktempdir_umask=`umask` umask 0077 $MKDIR "$my_tmpdir" umask $save_mktempdir_umask fi # If we're not in dry-run mode, bomb out on failure test -d "$my_tmpdir" || \ func_fatal_error "cannot create temporary directory \`$my_tmpdir'" fi $ECHO "$my_tmpdir" } # func_quote_for_eval arg # Aesthetically quote ARG to be evaled later. # This function returns two values: FUNC_QUOTE_FOR_EVAL_RESULT # is double-quoted, suitable for a subsequent eval, whereas # FUNC_QUOTE_FOR_EVAL_UNQUOTED_RESULT has merely all characters # which are still active within double quotes backslashified. func_quote_for_eval () { case $1 in *[\\\`\"\$]*) func_quote_for_eval_unquoted_result=`$ECHO "$1" | $SED "$sed_quote_subst"` ;; *) func_quote_for_eval_unquoted_result="$1" ;; esac case $func_quote_for_eval_unquoted_result in # Double-quote args containing shell metacharacters to delay # word splitting, command substitution and and variable # expansion for a subsequent eval. # Many Bourne shells cannot handle close brackets correctly # in scan sets, so we specify it separately. *[\[\~\#\^\&\*\(\)\{\}\|\;\<\>\?\'\ \ ]*|*]*|"") func_quote_for_eval_result="\"$func_quote_for_eval_unquoted_result\"" ;; *) func_quote_for_eval_result="$func_quote_for_eval_unquoted_result" esac } # func_quote_for_expand arg # Aesthetically quote ARG to be evaled later; same as above, # but do not quote variable references. func_quote_for_expand () { case $1 in *[\\\`\"]*) my_arg=`$ECHO "$1" | $SED \ -e "$double_quote_subst" -e "$sed_double_backslash"` ;; *) my_arg="$1" ;; esac case $my_arg in # Double-quote args containing shell metacharacters to delay # word splitting and command substitution for a subsequent eval. # Many Bourne shells cannot handle close brackets correctly # in scan sets, so we specify it separately. *[\[\~\#\^\&\*\(\)\{\}\|\;\<\>\?\'\ \ ]*|*]*|"") my_arg="\"$my_arg\"" ;; esac func_quote_for_expand_result="$my_arg" } # func_show_eval cmd [fail_exp] # Unless opt_silent is true, then output CMD. Then, if opt_dryrun is # not true, evaluate CMD. If the evaluation of CMD fails, and FAIL_EXP # is given, then evaluate it. func_show_eval () { my_cmd="$1" my_fail_exp="${2-:}" ${opt_silent-false} || { func_quote_for_expand "$my_cmd" eval "func_echo $func_quote_for_expand_result" } if ${opt_dry_run-false}; then :; else eval "$my_cmd" my_status=$? if test "$my_status" -eq 0; then :; else eval "(exit $my_status); $my_fail_exp" fi fi } # func_show_eval_locale cmd [fail_exp] # Unless opt_silent is true, then output CMD. Then, if opt_dryrun is # not true, evaluate CMD. If the evaluation of CMD fails, and FAIL_EXP # is given, then evaluate it. Use the saved locale for evaluation. func_show_eval_locale () { my_cmd="$1" my_fail_exp="${2-:}" ${opt_silent-false} || { func_quote_for_expand "$my_cmd" eval "func_echo $func_quote_for_expand_result" } if ${opt_dry_run-false}; then :; else eval "$lt_user_locale $my_cmd" my_status=$? eval "$lt_safe_locale" if test "$my_status" -eq 0; then :; else eval "(exit $my_status); $my_fail_exp" fi fi } # func_tr_sh # Turn $1 into a string suitable for a shell variable name. # Result is stored in $func_tr_sh_result. All characters # not in the set a-zA-Z0-9_ are replaced with '_'. Further, # if $1 begins with a digit, a '_' is prepended as well. func_tr_sh () { case $1 in [0-9]* | *[!a-zA-Z0-9_]*) func_tr_sh_result=`$ECHO "$1" | $SED 's/^\([0-9]\)/_\1/; s/[^a-zA-Z0-9_]/_/g'` ;; * ) func_tr_sh_result=$1 ;; esac } # func_version # Echo version message to standard output and exit. func_version () { $opt_debug $SED -n '/(C)/!b go :more /\./!{ N s/\n# / / b more } :go /^# '$PROGRAM' (GNU /,/# warranty; / { s/^# // s/^# *$// s/\((C)\)[ 0-9,-]*\( [1-9][0-9]*\)/\1\2/ p }' < "$progpath" exit $? } # func_usage # Echo short help message to standard output and exit. func_usage () { $opt_debug $SED -n '/^# Usage:/,/^# *.*--help/ { s/^# // s/^# *$// s/\$progname/'$progname'/ p }' < "$progpath" echo $ECHO "run \`$progname --help | more' for full usage" exit $? } # func_help [NOEXIT] # Echo long help message to standard output and exit, # unless 'noexit' is passed as argument. func_help () { $opt_debug $SED -n '/^# Usage:/,/# Report bugs to/ { :print s/^# // s/^# *$// s*\$progname*'$progname'* s*\$host*'"$host"'* s*\$SHELL*'"$SHELL"'* s*\$LTCC*'"$LTCC"'* s*\$LTCFLAGS*'"$LTCFLAGS"'* s*\$LD*'"$LD"'* s/\$with_gnu_ld/'"$with_gnu_ld"'/ s/\$automake_version/'"`(${AUTOMAKE-automake} --version) 2>/dev/null |$SED 1q`"'/ s/\$autoconf_version/'"`(${AUTOCONF-autoconf} --version) 2>/dev/null |$SED 1q`"'/ p d } /^# .* home page:/b print /^# General help using/b print ' < "$progpath" ret=$? if test -z "$1"; then exit $ret fi } # func_missing_arg argname # Echo program name prefixed message to standard error and set global # exit_cmd. func_missing_arg () { $opt_debug func_error "missing argument for $1." exit_cmd=exit } # func_split_short_opt shortopt # Set func_split_short_opt_name and func_split_short_opt_arg shell # variables after splitting SHORTOPT after the 2nd character. func_split_short_opt () { my_sed_short_opt='1s/^\(..\).*$/\1/;q' my_sed_short_rest='1s/^..\(.*\)$/\1/;q' func_split_short_opt_name=`$ECHO "$1" | $SED "$my_sed_short_opt"` func_split_short_opt_arg=`$ECHO "$1" | $SED "$my_sed_short_rest"` } # func_split_short_opt may be replaced by extended shell implementation # func_split_long_opt longopt # Set func_split_long_opt_name and func_split_long_opt_arg shell # variables after splitting LONGOPT at the `=' sign. func_split_long_opt () { my_sed_long_opt='1s/^\(--[^=]*\)=.*/\1/;q' my_sed_long_arg='1s/^--[^=]*=//' func_split_long_opt_name=`$ECHO "$1" | $SED "$my_sed_long_opt"` func_split_long_opt_arg=`$ECHO "$1" | $SED "$my_sed_long_arg"` } # func_split_long_opt may be replaced by extended shell implementation exit_cmd=: magic="%%%MAGIC variable%%%" magic_exe="%%%MAGIC EXE variable%%%" # Global variables. nonopt= preserve_args= lo2o="s/\\.lo\$/.${objext}/" o2lo="s/\\.${objext}\$/.lo/" extracted_archives= extracted_serial=0 # If this variable is set in any of the actions, the command in it # will be execed at the end. This prevents here-documents from being # left over by shells. exec_cmd= # func_append var value # Append VALUE to the end of shell variable VAR. func_append () { eval "${1}=\$${1}\${2}" } # func_append may be replaced by extended shell implementation # func_append_quoted var value # Quote VALUE and append to the end of shell variable VAR, separated # by a space. func_append_quoted () { func_quote_for_eval "${2}" eval "${1}=\$${1}\\ \$func_quote_for_eval_result" } # func_append_quoted may be replaced by extended shell implementation # func_arith arithmetic-term... func_arith () { func_arith_result=`expr "${@}"` } # func_arith may be replaced by extended shell implementation # func_len string # STRING may not start with a hyphen. func_len () { func_len_result=`expr "${1}" : ".*" 2>/dev/null || echo $max_cmd_len` } # func_len may be replaced by extended shell implementation # func_lo2o object func_lo2o () { func_lo2o_result=`$ECHO "${1}" | $SED "$lo2o"` } # func_lo2o may be replaced by extended shell implementation # func_xform libobj-or-source func_xform () { func_xform_result=`$ECHO "${1}" | $SED 's/\.[^.]*$/.lo/'` } # func_xform may be replaced by extended shell implementation # func_fatal_configuration arg... # Echo program name prefixed message to standard error, followed by # a configuration failure hint, and exit. func_fatal_configuration () { func_error ${1+"$@"} func_error "See the $PACKAGE documentation for more information." func_fatal_error "Fatal configuration error." } # func_config # Display the configuration for all the tags in this script. func_config () { re_begincf='^# ### BEGIN LIBTOOL' re_endcf='^# ### END LIBTOOL' # Default configuration. $SED "1,/$re_begincf CONFIG/d;/$re_endcf CONFIG/,\$d" < "$progpath" # Now print the configurations for the tags. for tagname in $taglist; do $SED -n "/$re_begincf TAG CONFIG: $tagname\$/,/$re_endcf TAG CONFIG: $tagname\$/p" < "$progpath" done exit $? } # func_features # Display the features supported by this script. func_features () { echo "host: $host" if test "$build_libtool_libs" = yes; then echo "enable shared libraries" else echo "disable shared libraries" fi if test "$build_old_libs" = yes; then echo "enable static libraries" else echo "disable static libraries" fi exit $? } # func_enable_tag tagname # Verify that TAGNAME is valid, and either flag an error and exit, or # enable the TAGNAME tag. We also add TAGNAME to the global $taglist # variable here. func_enable_tag () { # Global variable: tagname="$1" re_begincf="^# ### BEGIN LIBTOOL TAG CONFIG: $tagname\$" re_endcf="^# ### END LIBTOOL TAG CONFIG: $tagname\$" sed_extractcf="/$re_begincf/,/$re_endcf/p" # Validate tagname. case $tagname in *[!-_A-Za-z0-9,/]*) func_fatal_error "invalid tag name: $tagname" ;; esac # Don't test for the "default" C tag, as we know it's # there but not specially marked. case $tagname in CC) ;; *) if $GREP "$re_begincf" "$progpath" >/dev/null 2>&1; then taglist="$taglist $tagname" # Evaluate the configuration. Be careful to quote the path # and the sed script, to avoid splitting on whitespace, but # also don't use non-portable quotes within backquotes within # quotes we have to do it in 2 steps: extractedcf=`$SED -n -e "$sed_extractcf" < "$progpath"` eval "$extractedcf" else func_error "ignoring unknown tag $tagname" fi ;; esac } # func_check_version_match # Ensure that we are using m4 macros, and libtool script from the same # release of libtool. func_check_version_match () { if test "$package_revision" != "$macro_revision"; then if test "$VERSION" != "$macro_version"; then if test -z "$macro_version"; then cat >&2 <<_LT_EOF $progname: Version mismatch error. This is $PACKAGE $VERSION, but the $progname: definition of this LT_INIT comes from an older release. $progname: You should recreate aclocal.m4 with macros from $PACKAGE $VERSION $progname: and run autoconf again. _LT_EOF else cat >&2 <<_LT_EOF $progname: Version mismatch error. This is $PACKAGE $VERSION, but the $progname: definition of this LT_INIT comes from $PACKAGE $macro_version. $progname: You should recreate aclocal.m4 with macros from $PACKAGE $VERSION $progname: and run autoconf again. _LT_EOF fi else cat >&2 <<_LT_EOF $progname: Version mismatch error. This is $PACKAGE $VERSION, revision $package_revision, $progname: but the definition of this LT_INIT comes from revision $macro_revision. $progname: You should recreate aclocal.m4 with macros from revision $package_revision $progname: of $PACKAGE $VERSION and run autoconf again. _LT_EOF fi exit $EXIT_MISMATCH fi } # Shorthand for --mode=foo, only valid as the first argument case $1 in clean|clea|cle|cl) shift; set dummy --mode clean ${1+"$@"}; shift ;; compile|compil|compi|comp|com|co|c) shift; set dummy --mode compile ${1+"$@"}; shift ;; execute|execut|execu|exec|exe|ex|e) shift; set dummy --mode execute ${1+"$@"}; shift ;; finish|finis|fini|fin|fi|f) shift; set dummy --mode finish ${1+"$@"}; shift ;; install|instal|insta|inst|ins|in|i) shift; set dummy --mode install ${1+"$@"}; shift ;; link|lin|li|l) shift; set dummy --mode link ${1+"$@"}; shift ;; uninstall|uninstal|uninsta|uninst|unins|unin|uni|un|u) shift; set dummy --mode uninstall ${1+"$@"}; shift ;; esac # Option defaults: opt_debug=: opt_dry_run=false opt_config=false opt_preserve_dup_deps=false opt_features=false opt_finish=false opt_help=false opt_help_all=false opt_silent=: opt_warning=: opt_verbose=: opt_silent=false opt_verbose=false # Parse options once, thoroughly. This comes as soon as possible in the # script to make things like `--version' happen as quickly as we can. { # this just eases exit handling while test $# -gt 0; do opt="$1" shift case $opt in --debug|-x) opt_debug='set -x' func_echo "enabling shell trace mode" $opt_debug ;; --dry-run|--dryrun|-n) opt_dry_run=: ;; --config) opt_config=: func_config ;; --dlopen|-dlopen) optarg="$1" opt_dlopen="${opt_dlopen+$opt_dlopen }$optarg" shift ;; --preserve-dup-deps) opt_preserve_dup_deps=: ;; --features) opt_features=: func_features ;; --finish) opt_finish=: set dummy --mode finish ${1+"$@"}; shift ;; --help) opt_help=: ;; --help-all) opt_help_all=: opt_help=': help-all' ;; --mode) test $# = 0 && func_missing_arg $opt && break optarg="$1" opt_mode="$optarg" case $optarg in # Valid mode arguments: clean|compile|execute|finish|install|link|relink|uninstall) ;; # Catch anything else as an error *) func_error "invalid argument for $opt" exit_cmd=exit break ;; esac shift ;; --no-silent|--no-quiet) opt_silent=false func_append preserve_args " $opt" ;; --no-warning|--no-warn) opt_warning=false func_append preserve_args " $opt" ;; --no-verbose) opt_verbose=false func_append preserve_args " $opt" ;; --silent|--quiet) opt_silent=: func_append preserve_args " $opt" opt_verbose=false ;; --verbose|-v) opt_verbose=: func_append preserve_args " $opt" opt_silent=false ;; --tag) test $# = 0 && func_missing_arg $opt && break optarg="$1" opt_tag="$optarg" func_append preserve_args " $opt $optarg" func_enable_tag "$optarg" shift ;; -\?|-h) func_usage ;; --help) func_help ;; --version) func_version ;; # Separate optargs to long options: --*=*) func_split_long_opt "$opt" set dummy "$func_split_long_opt_name" "$func_split_long_opt_arg" ${1+"$@"} shift ;; # Separate non-argument short options: -\?*|-h*|-n*|-v*) func_split_short_opt "$opt" set dummy "$func_split_short_opt_name" "-$func_split_short_opt_arg" ${1+"$@"} shift ;; --) break ;; -*) func_fatal_help "unrecognized option \`$opt'" ;; *) set dummy "$opt" ${1+"$@"}; shift; break ;; esac done # Validate options: # save first non-option argument if test "$#" -gt 0; then nonopt="$opt" shift fi # preserve --debug test "$opt_debug" = : || func_append preserve_args " --debug" case $host in *cygwin* | *mingw* | *pw32* | *cegcc*) # don't eliminate duplications in $postdeps and $predeps opt_duplicate_compiler_generated_deps=: ;; *) opt_duplicate_compiler_generated_deps=$opt_preserve_dup_deps ;; esac $opt_help || { # Sanity checks first: func_check_version_match if test "$build_libtool_libs" != yes && test "$build_old_libs" != yes; then func_fatal_configuration "not configured to build any kind of library" fi # Darwin sucks eval std_shrext=\"$shrext_cmds\" # Only execute mode is allowed to have -dlopen flags. if test -n "$opt_dlopen" && test "$opt_mode" != execute; then func_error "unrecognized option \`-dlopen'" $ECHO "$help" 1>&2 exit $EXIT_FAILURE fi # Change the help message to a mode-specific one. generic_help="$help" help="Try \`$progname --help --mode=$opt_mode' for more information." } # Bail if the options were screwed $exit_cmd $EXIT_FAILURE } ## ----------- ## ## Main. ## ## ----------- ## # func_lalib_p file # True iff FILE is a libtool `.la' library or `.lo' object file. # This function is only a basic sanity check; it will hardly flush out # determined imposters. func_lalib_p () { test -f "$1" && $SED -e 4q "$1" 2>/dev/null \ | $GREP "^# Generated by .*$PACKAGE" > /dev/null 2>&1 } # func_lalib_unsafe_p file # True iff FILE is a libtool `.la' library or `.lo' object file. # This function implements the same check as func_lalib_p without # resorting to external programs. To this end, it redirects stdin and # closes it afterwards, without saving the original file descriptor. # As a safety measure, use it only where a negative result would be # fatal anyway. Works if `file' does not exist. func_lalib_unsafe_p () { lalib_p=no if test -f "$1" && test -r "$1" && exec 5<&0 <"$1"; then for lalib_p_l in 1 2 3 4 do read lalib_p_line case "$lalib_p_line" in \#\ Generated\ by\ *$PACKAGE* ) lalib_p=yes; break;; esac done exec 0<&5 5<&- fi test "$lalib_p" = yes } # func_ltwrapper_script_p file # True iff FILE is a libtool wrapper script # This function is only a basic sanity check; it will hardly flush out # determined imposters. func_ltwrapper_script_p () { func_lalib_p "$1" } # func_ltwrapper_executable_p file # True iff FILE is a libtool wrapper executable # This function is only a basic sanity check; it will hardly flush out # determined imposters. func_ltwrapper_executable_p () { func_ltwrapper_exec_suffix= case $1 in *.exe) ;; *) func_ltwrapper_exec_suffix=.exe ;; esac $GREP "$magic_exe" "$1$func_ltwrapper_exec_suffix" >/dev/null 2>&1 } # func_ltwrapper_scriptname file # Assumes file is an ltwrapper_executable # uses $file to determine the appropriate filename for a # temporary ltwrapper_script. func_ltwrapper_scriptname () { func_dirname_and_basename "$1" "" "." func_stripname '' '.exe' "$func_basename_result" func_ltwrapper_scriptname_result="$func_dirname_result/$objdir/${func_stripname_result}_ltshwrapper" } # func_ltwrapper_p file # True iff FILE is a libtool wrapper script or wrapper executable # This function is only a basic sanity check; it will hardly flush out # determined imposters. func_ltwrapper_p () { func_ltwrapper_script_p "$1" || func_ltwrapper_executable_p "$1" } # func_execute_cmds commands fail_cmd # Execute tilde-delimited COMMANDS. # If FAIL_CMD is given, eval that upon failure. # FAIL_CMD may read-access the current command in variable CMD! func_execute_cmds () { $opt_debug save_ifs=$IFS; IFS='~' for cmd in $1; do IFS=$save_ifs eval cmd=\"$cmd\" func_show_eval "$cmd" "${2-:}" done IFS=$save_ifs } # func_source file # Source FILE, adding directory component if necessary. # Note that it is not necessary on cygwin/mingw to append a dot to # FILE even if both FILE and FILE.exe exist: automatic-append-.exe # behavior happens only for exec(3), not for open(2)! Also, sourcing # `FILE.' does not work on cygwin managed mounts. func_source () { $opt_debug case $1 in */* | *\\*) . "$1" ;; *) . "./$1" ;; esac } # func_resolve_sysroot PATH # Replace a leading = in PATH with a sysroot. Store the result into # func_resolve_sysroot_result func_resolve_sysroot () { func_resolve_sysroot_result=$1 case $func_resolve_sysroot_result in =*) func_stripname '=' '' "$func_resolve_sysroot_result" func_resolve_sysroot_result=$lt_sysroot$func_stripname_result ;; esac } # func_replace_sysroot PATH # If PATH begins with the sysroot, replace it with = and # store the result into func_replace_sysroot_result. func_replace_sysroot () { case "$lt_sysroot:$1" in ?*:"$lt_sysroot"*) func_stripname "$lt_sysroot" '' "$1" func_replace_sysroot_result="=$func_stripname_result" ;; *) # Including no sysroot. func_replace_sysroot_result=$1 ;; esac } # func_infer_tag arg # Infer tagged configuration to use if any are available and # if one wasn't chosen via the "--tag" command line option. # Only attempt this if the compiler in the base compile # command doesn't match the default compiler. # arg is usually of the form 'gcc ...' func_infer_tag () { $opt_debug if test -n "$available_tags" && test -z "$tagname"; then CC_quoted= for arg in $CC; do func_append_quoted CC_quoted "$arg" done CC_expanded=`func_echo_all $CC` CC_quoted_expanded=`func_echo_all $CC_quoted` case $@ in # Blanks in the command may have been stripped by the calling shell, # but not from the CC environment variable when configure was run. " $CC "* | "$CC "* | " $CC_expanded "* | "$CC_expanded "* | \ " $CC_quoted"* | "$CC_quoted "* | " $CC_quoted_expanded "* | "$CC_quoted_expanded "*) ;; # Blanks at the start of $base_compile will cause this to fail # if we don't check for them as well. *) for z in $available_tags; do if $GREP "^# ### BEGIN LIBTOOL TAG CONFIG: $z$" < "$progpath" > /dev/null; then # Evaluate the configuration. eval "`${SED} -n -e '/^# ### BEGIN LIBTOOL TAG CONFIG: '$z'$/,/^# ### END LIBTOOL TAG CONFIG: '$z'$/p' < $progpath`" CC_quoted= for arg in $CC; do # Double-quote args containing other shell metacharacters. func_append_quoted CC_quoted "$arg" done CC_expanded=`func_echo_all $CC` CC_quoted_expanded=`func_echo_all $CC_quoted` case "$@ " in " $CC "* | "$CC "* | " $CC_expanded "* | "$CC_expanded "* | \ " $CC_quoted"* | "$CC_quoted "* | " $CC_quoted_expanded "* | "$CC_quoted_expanded "*) # The compiler in the base compile command matches # the one in the tagged configuration. # Assume this is the tagged configuration we want. tagname=$z break ;; esac fi done # If $tagname still isn't set, then no tagged configuration # was found and let the user know that the "--tag" command # line option must be used. if test -z "$tagname"; then func_echo "unable to infer tagged configuration" func_fatal_error "specify a tag with \`--tag'" # else # func_verbose "using $tagname tagged configuration" fi ;; esac fi } # func_write_libtool_object output_name pic_name nonpic_name # Create a libtool object file (analogous to a ".la" file), # but don't create it if we're doing a dry run. func_write_libtool_object () { write_libobj=${1} if test "$build_libtool_libs" = yes; then write_lobj=\'${2}\' else write_lobj=none fi if test "$build_old_libs" = yes; then write_oldobj=\'${3}\' else write_oldobj=none fi $opt_dry_run || { cat >${write_libobj}T </dev/null` if test "$?" -eq 0 && test -n "${func_convert_core_file_wine_to_w32_tmp}"; then func_convert_core_file_wine_to_w32_result=`$ECHO "$func_convert_core_file_wine_to_w32_tmp" | $SED -e "$lt_sed_naive_backslashify"` else func_convert_core_file_wine_to_w32_result= fi fi } # end: func_convert_core_file_wine_to_w32 # func_convert_core_path_wine_to_w32 ARG # Helper function used by path conversion functions when $build is *nix, and # $host is mingw, cygwin, or some other w32 environment. Relies on a correctly # configured wine environment available, with the winepath program in $build's # $PATH. Assumes ARG has no leading or trailing path separator characters. # # ARG is path to be converted from $build format to win32. # Result is available in $func_convert_core_path_wine_to_w32_result. # Unconvertible file (directory) names in ARG are skipped; if no directory names # are convertible, then the result may be empty. func_convert_core_path_wine_to_w32 () { $opt_debug # unfortunately, winepath doesn't convert paths, only file names func_convert_core_path_wine_to_w32_result="" if test -n "$1"; then oldIFS=$IFS IFS=: for func_convert_core_path_wine_to_w32_f in $1; do IFS=$oldIFS func_convert_core_file_wine_to_w32 "$func_convert_core_path_wine_to_w32_f" if test -n "$func_convert_core_file_wine_to_w32_result" ; then if test -z "$func_convert_core_path_wine_to_w32_result"; then func_convert_core_path_wine_to_w32_result="$func_convert_core_file_wine_to_w32_result" else func_append func_convert_core_path_wine_to_w32_result ";$func_convert_core_file_wine_to_w32_result" fi fi done IFS=$oldIFS fi } # end: func_convert_core_path_wine_to_w32 # func_cygpath ARGS... # Wrapper around calling the cygpath program via LT_CYGPATH. This is used when # when (1) $build is *nix and Cygwin is hosted via a wine environment; or (2) # $build is MSYS and $host is Cygwin, or (3) $build is Cygwin. In case (1) or # (2), returns the Cygwin file name or path in func_cygpath_result (input # file name or path is assumed to be in w32 format, as previously converted # from $build's *nix or MSYS format). In case (3), returns the w32 file name # or path in func_cygpath_result (input file name or path is assumed to be in # Cygwin format). Returns an empty string on error. # # ARGS are passed to cygpath, with the last one being the file name or path to # be converted. # # Specify the absolute *nix (or w32) name to cygpath in the LT_CYGPATH # environment variable; do not put it in $PATH. func_cygpath () { $opt_debug if test -n "$LT_CYGPATH" && test -f "$LT_CYGPATH"; then func_cygpath_result=`$LT_CYGPATH "$@" 2>/dev/null` if test "$?" -ne 0; then # on failure, ensure result is empty func_cygpath_result= fi else func_cygpath_result= func_error "LT_CYGPATH is empty or specifies non-existent file: \`$LT_CYGPATH'" fi } #end: func_cygpath # func_convert_core_msys_to_w32 ARG # Convert file name or path ARG from MSYS format to w32 format. Return # result in func_convert_core_msys_to_w32_result. func_convert_core_msys_to_w32 () { $opt_debug # awkward: cmd appends spaces to result func_convert_core_msys_to_w32_result=`( cmd //c echo "$1" ) 2>/dev/null | $SED -e 's/[ ]*$//' -e "$lt_sed_naive_backslashify"` } #end: func_convert_core_msys_to_w32 # func_convert_file_check ARG1 ARG2 # Verify that ARG1 (a file name in $build format) was converted to $host # format in ARG2. Otherwise, emit an error message, but continue (resetting # func_to_host_file_result to ARG1). func_convert_file_check () { $opt_debug if test -z "$2" && test -n "$1" ; then func_error "Could not determine host file name corresponding to" func_error " \`$1'" func_error "Continuing, but uninstalled executables may not work." # Fallback: func_to_host_file_result="$1" fi } # end func_convert_file_check # func_convert_path_check FROM_PATHSEP TO_PATHSEP FROM_PATH TO_PATH # Verify that FROM_PATH (a path in $build format) was converted to $host # format in TO_PATH. Otherwise, emit an error message, but continue, resetting # func_to_host_file_result to a simplistic fallback value (see below). func_convert_path_check () { $opt_debug if test -z "$4" && test -n "$3"; then func_error "Could not determine the host path corresponding to" func_error " \`$3'" func_error "Continuing, but uninstalled executables may not work." # Fallback. This is a deliberately simplistic "conversion" and # should not be "improved". See libtool.info. if test "x$1" != "x$2"; then lt_replace_pathsep_chars="s|$1|$2|g" func_to_host_path_result=`echo "$3" | $SED -e "$lt_replace_pathsep_chars"` else func_to_host_path_result="$3" fi fi } # end func_convert_path_check # func_convert_path_front_back_pathsep FRONTPAT BACKPAT REPL ORIG # Modifies func_to_host_path_result by prepending REPL if ORIG matches FRONTPAT # and appending REPL if ORIG matches BACKPAT. func_convert_path_front_back_pathsep () { $opt_debug case $4 in $1 ) func_to_host_path_result="$3$func_to_host_path_result" ;; esac case $4 in $2 ) func_append func_to_host_path_result "$3" ;; esac } # end func_convert_path_front_back_pathsep ################################################## # $build to $host FILE NAME CONVERSION FUNCTIONS # ################################################## # invoked via `$to_host_file_cmd ARG' # # In each case, ARG is the path to be converted from $build to $host format. # Result will be available in $func_to_host_file_result. # func_to_host_file ARG # Converts the file name ARG from $build format to $host format. Return result # in func_to_host_file_result. func_to_host_file () { $opt_debug $to_host_file_cmd "$1" } # end func_to_host_file # func_to_tool_file ARG LAZY # converts the file name ARG from $build format to toolchain format. Return # result in func_to_tool_file_result. If the conversion in use is listed # in (the comma separated) LAZY, no conversion takes place. func_to_tool_file () { $opt_debug case ,$2, in *,"$to_tool_file_cmd",*) func_to_tool_file_result=$1 ;; *) $to_tool_file_cmd "$1" func_to_tool_file_result=$func_to_host_file_result ;; esac } # end func_to_tool_file # func_convert_file_noop ARG # Copy ARG to func_to_host_file_result. func_convert_file_noop () { func_to_host_file_result="$1" } # end func_convert_file_noop # func_convert_file_msys_to_w32 ARG # Convert file name ARG from (mingw) MSYS to (mingw) w32 format; automatic # conversion to w32 is not available inside the cwrapper. Returns result in # func_to_host_file_result. func_convert_file_msys_to_w32 () { $opt_debug func_to_host_file_result="$1" if test -n "$1"; then func_convert_core_msys_to_w32 "$1" func_to_host_file_result="$func_convert_core_msys_to_w32_result" fi func_convert_file_check "$1" "$func_to_host_file_result" } # end func_convert_file_msys_to_w32 # func_convert_file_cygwin_to_w32 ARG # Convert file name ARG from Cygwin to w32 format. Returns result in # func_to_host_file_result. func_convert_file_cygwin_to_w32 () { $opt_debug func_to_host_file_result="$1" if test -n "$1"; then # because $build is cygwin, we call "the" cygpath in $PATH; no need to use # LT_CYGPATH in this case. func_to_host_file_result=`cygpath -m "$1"` fi func_convert_file_check "$1" "$func_to_host_file_result" } # end func_convert_file_cygwin_to_w32 # func_convert_file_nix_to_w32 ARG # Convert file name ARG from *nix to w32 format. Requires a wine environment # and a working winepath. Returns result in func_to_host_file_result. func_convert_file_nix_to_w32 () { $opt_debug func_to_host_file_result="$1" if test -n "$1"; then func_convert_core_file_wine_to_w32 "$1" func_to_host_file_result="$func_convert_core_file_wine_to_w32_result" fi func_convert_file_check "$1" "$func_to_host_file_result" } # end func_convert_file_nix_to_w32 # func_convert_file_msys_to_cygwin ARG # Convert file name ARG from MSYS to Cygwin format. Requires LT_CYGPATH set. # Returns result in func_to_host_file_result. func_convert_file_msys_to_cygwin () { $opt_debug func_to_host_file_result="$1" if test -n "$1"; then func_convert_core_msys_to_w32 "$1" func_cygpath -u "$func_convert_core_msys_to_w32_result" func_to_host_file_result="$func_cygpath_result" fi func_convert_file_check "$1" "$func_to_host_file_result" } # end func_convert_file_msys_to_cygwin # func_convert_file_nix_to_cygwin ARG # Convert file name ARG from *nix to Cygwin format. Requires Cygwin installed # in a wine environment, working winepath, and LT_CYGPATH set. Returns result # in func_to_host_file_result. func_convert_file_nix_to_cygwin () { $opt_debug func_to_host_file_result="$1" if test -n "$1"; then # convert from *nix to w32, then use cygpath to convert from w32 to cygwin. func_convert_core_file_wine_to_w32 "$1" func_cygpath -u "$func_convert_core_file_wine_to_w32_result" func_to_host_file_result="$func_cygpath_result" fi func_convert_file_check "$1" "$func_to_host_file_result" } # end func_convert_file_nix_to_cygwin ############################################# # $build to $host PATH CONVERSION FUNCTIONS # ############################################# # invoked via `$to_host_path_cmd ARG' # # In each case, ARG is the path to be converted from $build to $host format. # The result will be available in $func_to_host_path_result. # # Path separators are also converted from $build format to $host format. If # ARG begins or ends with a path separator character, it is preserved (but # converted to $host format) on output. # # All path conversion functions are named using the following convention: # file name conversion function : func_convert_file_X_to_Y () # path conversion function : func_convert_path_X_to_Y () # where, for any given $build/$host combination the 'X_to_Y' value is the # same. If conversion functions are added for new $build/$host combinations, # the two new functions must follow this pattern, or func_init_to_host_path_cmd # will break. # func_init_to_host_path_cmd # Ensures that function "pointer" variable $to_host_path_cmd is set to the # appropriate value, based on the value of $to_host_file_cmd. to_host_path_cmd= func_init_to_host_path_cmd () { $opt_debug if test -z "$to_host_path_cmd"; then func_stripname 'func_convert_file_' '' "$to_host_file_cmd" to_host_path_cmd="func_convert_path_${func_stripname_result}" fi } # func_to_host_path ARG # Converts the path ARG from $build format to $host format. Return result # in func_to_host_path_result. func_to_host_path () { $opt_debug func_init_to_host_path_cmd $to_host_path_cmd "$1" } # end func_to_host_path # func_convert_path_noop ARG # Copy ARG to func_to_host_path_result. func_convert_path_noop () { func_to_host_path_result="$1" } # end func_convert_path_noop # func_convert_path_msys_to_w32 ARG # Convert path ARG from (mingw) MSYS to (mingw) w32 format; automatic # conversion to w32 is not available inside the cwrapper. Returns result in # func_to_host_path_result. func_convert_path_msys_to_w32 () { $opt_debug func_to_host_path_result="$1" if test -n "$1"; then # Remove leading and trailing path separator characters from ARG. MSYS # behavior is inconsistent here; cygpath turns them into '.;' and ';.'; # and winepath ignores them completely. func_stripname : : "$1" func_to_host_path_tmp1=$func_stripname_result func_convert_core_msys_to_w32 "$func_to_host_path_tmp1" func_to_host_path_result="$func_convert_core_msys_to_w32_result" func_convert_path_check : ";" \ "$func_to_host_path_tmp1" "$func_to_host_path_result" func_convert_path_front_back_pathsep ":*" "*:" ";" "$1" fi } # end func_convert_path_msys_to_w32 # func_convert_path_cygwin_to_w32 ARG # Convert path ARG from Cygwin to w32 format. Returns result in # func_to_host_file_result. func_convert_path_cygwin_to_w32 () { $opt_debug func_to_host_path_result="$1" if test -n "$1"; then # See func_convert_path_msys_to_w32: func_stripname : : "$1" func_to_host_path_tmp1=$func_stripname_result func_to_host_path_result=`cygpath -m -p "$func_to_host_path_tmp1"` func_convert_path_check : ";" \ "$func_to_host_path_tmp1" "$func_to_host_path_result" func_convert_path_front_back_pathsep ":*" "*:" ";" "$1" fi } # end func_convert_path_cygwin_to_w32 # func_convert_path_nix_to_w32 ARG # Convert path ARG from *nix to w32 format. Requires a wine environment and # a working winepath. Returns result in func_to_host_file_result. func_convert_path_nix_to_w32 () { $opt_debug func_to_host_path_result="$1" if test -n "$1"; then # See func_convert_path_msys_to_w32: func_stripname : : "$1" func_to_host_path_tmp1=$func_stripname_result func_convert_core_path_wine_to_w32 "$func_to_host_path_tmp1" func_to_host_path_result="$func_convert_core_path_wine_to_w32_result" func_convert_path_check : ";" \ "$func_to_host_path_tmp1" "$func_to_host_path_result" func_convert_path_front_back_pathsep ":*" "*:" ";" "$1" fi } # end func_convert_path_nix_to_w32 # func_convert_path_msys_to_cygwin ARG # Convert path ARG from MSYS to Cygwin format. Requires LT_CYGPATH set. # Returns result in func_to_host_file_result. func_convert_path_msys_to_cygwin () { $opt_debug func_to_host_path_result="$1" if test -n "$1"; then # See func_convert_path_msys_to_w32: func_stripname : : "$1" func_to_host_path_tmp1=$func_stripname_result func_convert_core_msys_to_w32 "$func_to_host_path_tmp1" func_cygpath -u -p "$func_convert_core_msys_to_w32_result" func_to_host_path_result="$func_cygpath_result" func_convert_path_check : : \ "$func_to_host_path_tmp1" "$func_to_host_path_result" func_convert_path_front_back_pathsep ":*" "*:" : "$1" fi } # end func_convert_path_msys_to_cygwin # func_convert_path_nix_to_cygwin ARG # Convert path ARG from *nix to Cygwin format. Requires Cygwin installed in a # a wine environment, working winepath, and LT_CYGPATH set. Returns result in # func_to_host_file_result. func_convert_path_nix_to_cygwin () { $opt_debug func_to_host_path_result="$1" if test -n "$1"; then # Remove leading and trailing path separator characters from # ARG. msys behavior is inconsistent here, cygpath turns them # into '.;' and ';.', and winepath ignores them completely. func_stripname : : "$1" func_to_host_path_tmp1=$func_stripname_result func_convert_core_path_wine_to_w32 "$func_to_host_path_tmp1" func_cygpath -u -p "$func_convert_core_path_wine_to_w32_result" func_to_host_path_result="$func_cygpath_result" func_convert_path_check : : \ "$func_to_host_path_tmp1" "$func_to_host_path_result" func_convert_path_front_back_pathsep ":*" "*:" : "$1" fi } # end func_convert_path_nix_to_cygwin # func_mode_compile arg... func_mode_compile () { $opt_debug # Get the compilation command and the source file. base_compile= srcfile="$nonopt" # always keep a non-empty value in "srcfile" suppress_opt=yes suppress_output= arg_mode=normal libobj= later= pie_flag= for arg do case $arg_mode in arg ) # do not "continue". Instead, add this to base_compile lastarg="$arg" arg_mode=normal ;; target ) libobj="$arg" arg_mode=normal continue ;; normal ) # Accept any command-line options. case $arg in -o) test -n "$libobj" && \ func_fatal_error "you cannot specify \`-o' more than once" arg_mode=target continue ;; -pie | -fpie | -fPIE) func_append pie_flag " $arg" continue ;; -shared | -static | -prefer-pic | -prefer-non-pic) func_append later " $arg" continue ;; -no-suppress) suppress_opt=no continue ;; -Xcompiler) arg_mode=arg # the next one goes into the "base_compile" arg list continue # The current "srcfile" will either be retained or ;; # replaced later. I would guess that would be a bug. -Wc,*) func_stripname '-Wc,' '' "$arg" args=$func_stripname_result lastarg= save_ifs="$IFS"; IFS=',' for arg in $args; do IFS="$save_ifs" func_append_quoted lastarg "$arg" done IFS="$save_ifs" func_stripname ' ' '' "$lastarg" lastarg=$func_stripname_result # Add the arguments to base_compile. func_append base_compile " $lastarg" continue ;; *) # Accept the current argument as the source file. # The previous "srcfile" becomes the current argument. # lastarg="$srcfile" srcfile="$arg" ;; esac # case $arg ;; esac # case $arg_mode # Aesthetically quote the previous argument. func_append_quoted base_compile "$lastarg" done # for arg case $arg_mode in arg) func_fatal_error "you must specify an argument for -Xcompile" ;; target) func_fatal_error "you must specify a target with \`-o'" ;; *) # Get the name of the library object. test -z "$libobj" && { func_basename "$srcfile" libobj="$func_basename_result" } ;; esac # Recognize several different file suffixes. # If the user specifies -o file.o, it is replaced with file.lo case $libobj in *.[cCFSifmso] | \ *.ada | *.adb | *.ads | *.asm | \ *.c++ | *.cc | *.ii | *.class | *.cpp | *.cxx | \ *.[fF][09]? | *.for | *.java | *.go | *.obj | *.sx | *.cu | *.cup) func_xform "$libobj" libobj=$func_xform_result ;; esac case $libobj in *.lo) func_lo2o "$libobj"; obj=$func_lo2o_result ;; *) func_fatal_error "cannot determine name of library object from \`$libobj'" ;; esac func_infer_tag $base_compile for arg in $later; do case $arg in -shared) test "$build_libtool_libs" != yes && \ func_fatal_configuration "can not build a shared library" build_old_libs=no continue ;; -static) build_libtool_libs=no build_old_libs=yes continue ;; -prefer-pic) pic_mode=yes continue ;; -prefer-non-pic) pic_mode=no continue ;; esac done func_quote_for_eval "$libobj" test "X$libobj" != "X$func_quote_for_eval_result" \ && $ECHO "X$libobj" | $GREP '[]~#^*{};<>?"'"'"' &()|`$[]' \ && func_warning "libobj name \`$libobj' may not contain shell special characters." func_dirname_and_basename "$obj" "/" "" objname="$func_basename_result" xdir="$func_dirname_result" lobj=${xdir}$objdir/$objname test -z "$base_compile" && \ func_fatal_help "you must specify a compilation command" # Delete any leftover library objects. if test "$build_old_libs" = yes; then removelist="$obj $lobj $libobj ${libobj}T" else removelist="$lobj $libobj ${libobj}T" fi # On Cygwin there's no "real" PIC flag so we must build both object types case $host_os in cygwin* | mingw* | pw32* | os2* | cegcc*) pic_mode=default ;; esac if test "$pic_mode" = no && test "$deplibs_check_method" != pass_all; then # non-PIC code in shared libraries is not supported pic_mode=default fi # Calculate the filename of the output object if compiler does # not support -o with -c if test "$compiler_c_o" = no; then output_obj=`$ECHO "$srcfile" | $SED 's%^.*/%%; s%\.[^.]*$%%'`.${objext} lockfile="$output_obj.lock" else output_obj= need_locks=no lockfile= fi # Lock this critical section if it is needed # We use this script file to make the link, it avoids creating a new file if test "$need_locks" = yes; then until $opt_dry_run || ln "$progpath" "$lockfile" 2>/dev/null; do func_echo "Waiting for $lockfile to be removed" sleep 2 done elif test "$need_locks" = warn; then if test -f "$lockfile"; then $ECHO "\ *** ERROR, $lockfile exists and contains: `cat $lockfile 2>/dev/null` This indicates that another process is trying to use the same temporary object file, and libtool could not work around it because your compiler does not support \`-c' and \`-o' together. If you repeat this compilation, it may succeed, by chance, but you had better avoid parallel builds (make -j) in this platform, or get a better compiler." $opt_dry_run || $RM $removelist exit $EXIT_FAILURE fi func_append removelist " $output_obj" $ECHO "$srcfile" > "$lockfile" fi $opt_dry_run || $RM $removelist func_append removelist " $lockfile" trap '$opt_dry_run || $RM $removelist; exit $EXIT_FAILURE' 1 2 15 func_to_tool_file "$srcfile" func_convert_file_msys_to_w32 srcfile=$func_to_tool_file_result func_quote_for_eval "$srcfile" qsrcfile=$func_quote_for_eval_result # Only build a PIC object if we are building libtool libraries. if test "$build_libtool_libs" = yes; then # Without this assignment, base_compile gets emptied. fbsd_hideous_sh_bug=$base_compile if test "$pic_mode" != no; then command="$base_compile $qsrcfile $pic_flag" else # Don't build PIC code command="$base_compile $qsrcfile" fi func_mkdir_p "$xdir$objdir" if test -z "$output_obj"; then # Place PIC objects in $objdir func_append command " -o $lobj" fi func_show_eval_locale "$command" \ 'test -n "$output_obj" && $RM $removelist; exit $EXIT_FAILURE' if test "$need_locks" = warn && test "X`cat $lockfile 2>/dev/null`" != "X$srcfile"; then $ECHO "\ *** ERROR, $lockfile contains: `cat $lockfile 2>/dev/null` but it should contain: $srcfile This indicates that another process is trying to use the same temporary object file, and libtool could not work around it because your compiler does not support \`-c' and \`-o' together. If you repeat this compilation, it may succeed, by chance, but you had better avoid parallel builds (make -j) in this platform, or get a better compiler." $opt_dry_run || $RM $removelist exit $EXIT_FAILURE fi # Just move the object if needed, then go on to compile the next one if test -n "$output_obj" && test "X$output_obj" != "X$lobj"; then func_show_eval '$MV "$output_obj" "$lobj"' \ 'error=$?; $opt_dry_run || $RM $removelist; exit $error' fi # Allow error messages only from the first compilation. if test "$suppress_opt" = yes; then suppress_output=' >/dev/null 2>&1' fi fi # Only build a position-dependent object if we build old libraries. if test "$build_old_libs" = yes; then if test "$pic_mode" != yes; then # Don't build PIC code command="$base_compile $qsrcfile$pie_flag" else command="$base_compile $qsrcfile $pic_flag" fi if test "$compiler_c_o" = yes; then func_append command " -o $obj" fi # Suppress compiler output if we already did a PIC compilation. func_append command "$suppress_output" func_show_eval_locale "$command" \ '$opt_dry_run || $RM $removelist; exit $EXIT_FAILURE' if test "$need_locks" = warn && test "X`cat $lockfile 2>/dev/null`" != "X$srcfile"; then $ECHO "\ *** ERROR, $lockfile contains: `cat $lockfile 2>/dev/null` but it should contain: $srcfile This indicates that another process is trying to use the same temporary object file, and libtool could not work around it because your compiler does not support \`-c' and \`-o' together. If you repeat this compilation, it may succeed, by chance, but you had better avoid parallel builds (make -j) in this platform, or get a better compiler." $opt_dry_run || $RM $removelist exit $EXIT_FAILURE fi # Just move the object if needed if test -n "$output_obj" && test "X$output_obj" != "X$obj"; then func_show_eval '$MV "$output_obj" "$obj"' \ 'error=$?; $opt_dry_run || $RM $removelist; exit $error' fi fi $opt_dry_run || { func_write_libtool_object "$libobj" "$objdir/$objname" "$objname" # Unlock the critical section if it was locked if test "$need_locks" != no; then removelist=$lockfile $RM "$lockfile" fi } exit $EXIT_SUCCESS } $opt_help || { test "$opt_mode" = compile && func_mode_compile ${1+"$@"} } func_mode_help () { # We need to display help for each of the modes. case $opt_mode in "") # Generic help is extracted from the usage comments # at the start of this file. func_help ;; clean) $ECHO \ "Usage: $progname [OPTION]... --mode=clean RM [RM-OPTION]... FILE... Remove files from the build directory. RM is the name of the program to use to delete files associated with each FILE (typically \`/bin/rm'). RM-OPTIONS are options (such as \`-f') to be passed to RM. If FILE is a libtool library, object or program, all the files associated with it are deleted. Otherwise, only FILE itself is deleted using RM." ;; compile) $ECHO \ "Usage: $progname [OPTION]... --mode=compile COMPILE-COMMAND... SOURCEFILE Compile a source file into a libtool library object. This mode accepts the following additional options: -o OUTPUT-FILE set the output file name to OUTPUT-FILE -no-suppress do not suppress compiler output for multiple passes -prefer-pic try to build PIC objects only -prefer-non-pic try to build non-PIC objects only -shared do not build a \`.o' file suitable for static linking -static only build a \`.o' file suitable for static linking -Wc,FLAG pass FLAG directly to the compiler COMPILE-COMMAND is a command to be used in creating a \`standard' object file from the given SOURCEFILE. The output file name is determined by removing the directory component from SOURCEFILE, then substituting the C source code suffix \`.c' with the library object suffix, \`.lo'." ;; execute) $ECHO \ "Usage: $progname [OPTION]... --mode=execute COMMAND [ARGS]... Automatically set library path, then run a program. This mode accepts the following additional options: -dlopen FILE add the directory containing FILE to the library path This mode sets the library path environment variable according to \`-dlopen' flags. If any of the ARGS are libtool executable wrappers, then they are translated into their corresponding uninstalled binary, and any of their required library directories are added to the library path. Then, COMMAND is executed, with ARGS as arguments." ;; finish) $ECHO \ "Usage: $progname [OPTION]... --mode=finish [LIBDIR]... Complete the installation of libtool libraries. Each LIBDIR is a directory that contains libtool libraries. The commands that this mode executes may require superuser privileges. Use the \`--dry-run' option if you just want to see what would be executed." ;; install) $ECHO \ "Usage: $progname [OPTION]... --mode=install INSTALL-COMMAND... Install executables or libraries. INSTALL-COMMAND is the installation command. The first component should be either the \`install' or \`cp' program. The following components of INSTALL-COMMAND are treated specially: -inst-prefix-dir PREFIX-DIR Use PREFIX-DIR as a staging area for installation The rest of the components are interpreted as arguments to that command (only BSD-compatible install options are recognized)." ;; link) $ECHO \ "Usage: $progname [OPTION]... --mode=link LINK-COMMAND... Link object files or libraries together to form another library, or to create an executable program. LINK-COMMAND is a command using the C compiler that you would use to create a program from several object files. The following components of LINK-COMMAND are treated specially: -all-static do not do any dynamic linking at all -avoid-version do not add a version suffix if possible -bindir BINDIR specify path to binaries directory (for systems where libraries must be found in the PATH setting at runtime) -dlopen FILE \`-dlpreopen' FILE if it cannot be dlopened at runtime -dlpreopen FILE link in FILE and add its symbols to lt_preloaded_symbols -export-dynamic allow symbols from OUTPUT-FILE to be resolved with dlsym(3) -export-symbols SYMFILE try to export only the symbols listed in SYMFILE -export-symbols-regex REGEX try to export only the symbols matching REGEX -LLIBDIR search LIBDIR for required installed libraries -lNAME OUTPUT-FILE requires the installed library libNAME -module build a library that can dlopened -no-fast-install disable the fast-install mode -no-install link a not-installable executable -no-undefined declare that a library does not refer to external symbols -o OUTPUT-FILE create OUTPUT-FILE from the specified objects -objectlist FILE Use a list of object files found in FILE to specify objects -precious-files-regex REGEX don't remove output files matching REGEX -release RELEASE specify package release information -rpath LIBDIR the created library will eventually be installed in LIBDIR -R[ ]LIBDIR add LIBDIR to the runtime path of programs and libraries -shared only do dynamic linking of libtool libraries -shrext SUFFIX override the standard shared library file extension -static do not do any dynamic linking of uninstalled libtool libraries -static-libtool-libs do not do any dynamic linking of libtool libraries -version-info CURRENT[:REVISION[:AGE]] specify library version info [each variable defaults to 0] -weak LIBNAME declare that the target provides the LIBNAME interface -Wc,FLAG -Xcompiler FLAG pass linker-specific FLAG directly to the compiler -Wl,FLAG -Xlinker FLAG pass linker-specific FLAG directly to the linker -XCClinker FLAG pass link-specific FLAG to the compiler driver (CC) All other options (arguments beginning with \`-') are ignored. Every other argument is treated as a filename. Files ending in \`.la' are treated as uninstalled libtool libraries, other files are standard or library object files. If the OUTPUT-FILE ends in \`.la', then a libtool library is created, only library objects (\`.lo' files) may be specified, and \`-rpath' is required, except when creating a convenience library. If OUTPUT-FILE ends in \`.a' or \`.lib', then a standard library is created using \`ar' and \`ranlib', or on Windows using \`lib'. If OUTPUT-FILE ends in \`.lo' or \`.${objext}', then a reloadable object file is created, otherwise an executable program is created." ;; uninstall) $ECHO \ "Usage: $progname [OPTION]... --mode=uninstall RM [RM-OPTION]... FILE... Remove libraries from an installation directory. RM is the name of the program to use to delete files associated with each FILE (typically \`/bin/rm'). RM-OPTIONS are options (such as \`-f') to be passed to RM. If FILE is a libtool library, all the files associated with it are deleted. Otherwise, only FILE itself is deleted using RM." ;; *) func_fatal_help "invalid operation mode \`$opt_mode'" ;; esac echo $ECHO "Try \`$progname --help' for more information about other modes." } # Now that we've collected a possible --mode arg, show help if necessary if $opt_help; then if test "$opt_help" = :; then func_mode_help else { func_help noexit for opt_mode in compile link execute install finish uninstall clean; do func_mode_help done } | sed -n '1p; 2,$s/^Usage:/ or: /p' { func_help noexit for opt_mode in compile link execute install finish uninstall clean; do echo func_mode_help done } | sed '1d /^When reporting/,/^Report/{ H d } $x /information about other modes/d /more detailed .*MODE/d s/^Usage:.*--mode=\([^ ]*\) .*/Description of \1 mode:/' fi exit $? fi # func_mode_execute arg... func_mode_execute () { $opt_debug # The first argument is the command name. cmd="$nonopt" test -z "$cmd" && \ func_fatal_help "you must specify a COMMAND" # Handle -dlopen flags immediately. for file in $opt_dlopen; do test -f "$file" \ || func_fatal_help "\`$file' is not a file" dir= case $file in *.la) func_resolve_sysroot "$file" file=$func_resolve_sysroot_result # Check to see that this really is a libtool archive. func_lalib_unsafe_p "$file" \ || func_fatal_help "\`$lib' is not a valid libtool archive" # Read the libtool library. dlname= library_names= func_source "$file" # Skip this library if it cannot be dlopened. if test -z "$dlname"; then # Warn if it was a shared library. test -n "$library_names" && \ func_warning "\`$file' was not linked with \`-export-dynamic'" continue fi func_dirname "$file" "" "." dir="$func_dirname_result" if test -f "$dir/$objdir/$dlname"; then func_append dir "/$objdir" else if test ! -f "$dir/$dlname"; then func_fatal_error "cannot find \`$dlname' in \`$dir' or \`$dir/$objdir'" fi fi ;; *.lo) # Just add the directory containing the .lo file. func_dirname "$file" "" "." dir="$func_dirname_result" ;; *) func_warning "\`-dlopen' is ignored for non-libtool libraries and objects" continue ;; esac # Get the absolute pathname. absdir=`cd "$dir" && pwd` test -n "$absdir" && dir="$absdir" # Now add the directory to shlibpath_var. if eval "test -z \"\$$shlibpath_var\""; then eval "$shlibpath_var=\"\$dir\"" else eval "$shlibpath_var=\"\$dir:\$$shlibpath_var\"" fi done # This variable tells wrapper scripts just to set shlibpath_var # rather than running their programs. libtool_execute_magic="$magic" # Check if any of the arguments is a wrapper script. args= for file do case $file in -* | *.la | *.lo ) ;; *) # Do a test to see if this is really a libtool program. if func_ltwrapper_script_p "$file"; then func_source "$file" # Transform arg to wrapped name. file="$progdir/$program" elif func_ltwrapper_executable_p "$file"; then func_ltwrapper_scriptname "$file" func_source "$func_ltwrapper_scriptname_result" # Transform arg to wrapped name. file="$progdir/$program" fi ;; esac # Quote arguments (to preserve shell metacharacters). func_append_quoted args "$file" done if test "X$opt_dry_run" = Xfalse; then if test -n "$shlibpath_var"; then # Export the shlibpath_var. eval "export $shlibpath_var" fi # Restore saved environment variables for lt_var in LANG LANGUAGE LC_ALL LC_CTYPE LC_COLLATE LC_MESSAGES do eval "if test \"\${save_$lt_var+set}\" = set; then $lt_var=\$save_$lt_var; export $lt_var else $lt_unset $lt_var fi" done # Now prepare to actually exec the command. exec_cmd="\$cmd$args" else # Display what would be done. if test -n "$shlibpath_var"; then eval "\$ECHO \"\$shlibpath_var=\$$shlibpath_var\"" echo "export $shlibpath_var" fi $ECHO "$cmd$args" exit $EXIT_SUCCESS fi } test "$opt_mode" = execute && func_mode_execute ${1+"$@"} # func_mode_finish arg... func_mode_finish () { $opt_debug libs= libdirs= admincmds= for opt in "$nonopt" ${1+"$@"} do if test -d "$opt"; then func_append libdirs " $opt" elif test -f "$opt"; then if func_lalib_unsafe_p "$opt"; then func_append libs " $opt" else func_warning "\`$opt' is not a valid libtool archive" fi else func_fatal_error "invalid argument \`$opt'" fi done if test -n "$libs"; then if test -n "$lt_sysroot"; then sysroot_regex=`$ECHO "$lt_sysroot" | $SED "$sed_make_literal_regex"` sysroot_cmd="s/\([ ']\)$sysroot_regex/\1/g;" else sysroot_cmd= fi # Remove sysroot references if $opt_dry_run; then for lib in $libs; do echo "removing references to $lt_sysroot and \`=' prefixes from $lib" done else tmpdir=`func_mktempdir` for lib in $libs; do sed -e "${sysroot_cmd} s/\([ ']-[LR]\)=/\1/g; s/\([ ']\)=/\1/g" $lib \ > $tmpdir/tmp-la mv -f $tmpdir/tmp-la $lib done ${RM}r "$tmpdir" fi fi if test -n "$finish_cmds$finish_eval" && test -n "$libdirs"; then for libdir in $libdirs; do if test -n "$finish_cmds"; then # Do each command in the finish commands. func_execute_cmds "$finish_cmds" 'admincmds="$admincmds '"$cmd"'"' fi if test -n "$finish_eval"; then # Do the single finish_eval. eval cmds=\"$finish_eval\" $opt_dry_run || eval "$cmds" || func_append admincmds " $cmds" fi done fi # Exit here if they wanted silent mode. $opt_silent && exit $EXIT_SUCCESS if test -n "$finish_cmds$finish_eval" && test -n "$libdirs"; then echo "----------------------------------------------------------------------" echo "Libraries have been installed in:" for libdir in $libdirs; do $ECHO " $libdir" done echo echo "If you ever happen to want to link against installed libraries" echo "in a given directory, LIBDIR, you must either use libtool, and" echo "specify the full pathname of the library, or use the \`-LLIBDIR'" echo "flag during linking and do at least one of the following:" if test -n "$shlibpath_var"; then echo " - add LIBDIR to the \`$shlibpath_var' environment variable" echo " during execution" fi if test -n "$runpath_var"; then echo " - add LIBDIR to the \`$runpath_var' environment variable" echo " during linking" fi if test -n "$hardcode_libdir_flag_spec"; then libdir=LIBDIR eval flag=\"$hardcode_libdir_flag_spec\" $ECHO " - use the \`$flag' linker flag" fi if test -n "$admincmds"; then $ECHO " - have your system administrator run these commands:$admincmds" fi if test -f /etc/ld.so.conf; then echo " - have your system administrator add LIBDIR to \`/etc/ld.so.conf'" fi echo echo "See any operating system documentation about shared libraries for" case $host in solaris2.[6789]|solaris2.1[0-9]) echo "more information, such as the ld(1), crle(1) and ld.so(8) manual" echo "pages." ;; *) echo "more information, such as the ld(1) and ld.so(8) manual pages." ;; esac echo "----------------------------------------------------------------------" fi exit $EXIT_SUCCESS } test "$opt_mode" = finish && func_mode_finish ${1+"$@"} # func_mode_install arg... func_mode_install () { $opt_debug # There may be an optional sh(1) argument at the beginning of # install_prog (especially on Windows NT). if test "$nonopt" = "$SHELL" || test "$nonopt" = /bin/sh || # Allow the use of GNU shtool's install command. case $nonopt in *shtool*) :;; *) false;; esac; then # Aesthetically quote it. func_quote_for_eval "$nonopt" install_prog="$func_quote_for_eval_result " arg=$1 shift else install_prog= arg=$nonopt fi # The real first argument should be the name of the installation program. # Aesthetically quote it. func_quote_for_eval "$arg" func_append install_prog "$func_quote_for_eval_result" install_shared_prog=$install_prog case " $install_prog " in *[\\\ /]cp\ *) install_cp=: ;; *) install_cp=false ;; esac # We need to accept at least all the BSD install flags. dest= files= opts= prev= install_type= isdir=no stripme= no_mode=: for arg do arg2= if test -n "$dest"; then func_append files " $dest" dest=$arg continue fi case $arg in -d) isdir=yes ;; -f) if $install_cp; then :; else prev=$arg fi ;; -g | -m | -o) prev=$arg ;; -s) stripme=" -s" continue ;; -*) ;; *) # If the previous option needed an argument, then skip it. if test -n "$prev"; then if test "x$prev" = x-m && test -n "$install_override_mode"; then arg2=$install_override_mode no_mode=false fi prev= else dest=$arg continue fi ;; esac # Aesthetically quote the argument. func_quote_for_eval "$arg" func_append install_prog " $func_quote_for_eval_result" if test -n "$arg2"; then func_quote_for_eval "$arg2" fi func_append install_shared_prog " $func_quote_for_eval_result" done test -z "$install_prog" && \ func_fatal_help "you must specify an install program" test -n "$prev" && \ func_fatal_help "the \`$prev' option requires an argument" if test -n "$install_override_mode" && $no_mode; then if $install_cp; then :; else func_quote_for_eval "$install_override_mode" func_append install_shared_prog " -m $func_quote_for_eval_result" fi fi if test -z "$files"; then if test -z "$dest"; then func_fatal_help "no file or destination specified" else func_fatal_help "you must specify a destination" fi fi # Strip any trailing slash from the destination. func_stripname '' '/' "$dest" dest=$func_stripname_result # Check to see that the destination is a directory. test -d "$dest" && isdir=yes if test "$isdir" = yes; then destdir="$dest" destname= else func_dirname_and_basename "$dest" "" "." destdir="$func_dirname_result" destname="$func_basename_result" # Not a directory, so check to see that there is only one file specified. set dummy $files; shift test "$#" -gt 1 && \ func_fatal_help "\`$dest' is not a directory" fi case $destdir in [\\/]* | [A-Za-z]:[\\/]*) ;; *) for file in $files; do case $file in *.lo) ;; *) func_fatal_help "\`$destdir' must be an absolute directory name" ;; esac done ;; esac # This variable tells wrapper scripts just to set variables rather # than running their programs. libtool_install_magic="$magic" staticlibs= future_libdirs= current_libdirs= for file in $files; do # Do each installation. case $file in *.$libext) # Do the static libraries later. func_append staticlibs " $file" ;; *.la) func_resolve_sysroot "$file" file=$func_resolve_sysroot_result # Check to see that this really is a libtool archive. func_lalib_unsafe_p "$file" \ || func_fatal_help "\`$file' is not a valid libtool archive" library_names= old_library= relink_command= func_source "$file" # Add the libdir to current_libdirs if it is the destination. if test "X$destdir" = "X$libdir"; then case "$current_libdirs " in *" $libdir "*) ;; *) func_append current_libdirs " $libdir" ;; esac else # Note the libdir as a future libdir. case "$future_libdirs " in *" $libdir "*) ;; *) func_append future_libdirs " $libdir" ;; esac fi func_dirname "$file" "/" "" dir="$func_dirname_result" func_append dir "$objdir" if test -n "$relink_command"; then # Determine the prefix the user has applied to our future dir. inst_prefix_dir=`$ECHO "$destdir" | $SED -e "s%$libdir\$%%"` # Don't allow the user to place us outside of our expected # location b/c this prevents finding dependent libraries that # are installed to the same prefix. # At present, this check doesn't affect windows .dll's that # are installed into $libdir/../bin (currently, that works fine) # but it's something to keep an eye on. test "$inst_prefix_dir" = "$destdir" && \ func_fatal_error "error: cannot install \`$file' to a directory not ending in $libdir" if test -n "$inst_prefix_dir"; then # Stick the inst_prefix_dir data into the link command. relink_command=`$ECHO "$relink_command" | $SED "s%@inst_prefix_dir@%-inst-prefix-dir $inst_prefix_dir%"` else relink_command=`$ECHO "$relink_command" | $SED "s%@inst_prefix_dir@%%"` fi func_warning "relinking \`$file'" func_show_eval "$relink_command" \ 'func_fatal_error "error: relink \`$file'\'' with the above command before installing it"' fi # See the names of the shared library. set dummy $library_names; shift if test -n "$1"; then realname="$1" shift srcname="$realname" test -n "$relink_command" && srcname="$realname"T # Install the shared library and build the symlinks. func_show_eval "$install_shared_prog $dir/$srcname $destdir/$realname" \ 'exit $?' tstripme="$stripme" case $host_os in cygwin* | mingw* | pw32* | cegcc*) case $realname in *.dll.a) tstripme="" ;; esac ;; esac if test -n "$tstripme" && test -n "$striplib"; then func_show_eval "$striplib $destdir/$realname" 'exit $?' fi if test "$#" -gt 0; then # Delete the old symlinks, and create new ones. # Try `ln -sf' first, because the `ln' binary might depend on # the symlink we replace! Solaris /bin/ln does not understand -f, # so we also need to try rm && ln -s. for linkname do test "$linkname" != "$realname" \ && func_show_eval "(cd $destdir && { $LN_S -f $realname $linkname || { $RM $linkname && $LN_S $realname $linkname; }; })" done fi # Do each command in the postinstall commands. lib="$destdir/$realname" func_execute_cmds "$postinstall_cmds" 'exit $?' fi # Install the pseudo-library for information purposes. func_basename "$file" name="$func_basename_result" instname="$dir/$name"i func_show_eval "$install_prog $instname $destdir/$name" 'exit $?' # Maybe install the static library, too. test -n "$old_library" && func_append staticlibs " $dir/$old_library" ;; *.lo) # Install (i.e. copy) a libtool object. # Figure out destination file name, if it wasn't already specified. if test -n "$destname"; then destfile="$destdir/$destname" else func_basename "$file" destfile="$func_basename_result" destfile="$destdir/$destfile" fi # Deduce the name of the destination old-style object file. case $destfile in *.lo) func_lo2o "$destfile" staticdest=$func_lo2o_result ;; *.$objext) staticdest="$destfile" destfile= ;; *) func_fatal_help "cannot copy a libtool object to \`$destfile'" ;; esac # Install the libtool object if requested. test -n "$destfile" && \ func_show_eval "$install_prog $file $destfile" 'exit $?' # Install the old object if enabled. if test "$build_old_libs" = yes; then # Deduce the name of the old-style object file. func_lo2o "$file" staticobj=$func_lo2o_result func_show_eval "$install_prog \$staticobj \$staticdest" 'exit $?' fi exit $EXIT_SUCCESS ;; *) # Figure out destination file name, if it wasn't already specified. if test -n "$destname"; then destfile="$destdir/$destname" else func_basename "$file" destfile="$func_basename_result" destfile="$destdir/$destfile" fi # If the file is missing, and there is a .exe on the end, strip it # because it is most likely a libtool script we actually want to # install stripped_ext="" case $file in *.exe) if test ! -f "$file"; then func_stripname '' '.exe' "$file" file=$func_stripname_result stripped_ext=".exe" fi ;; esac # Do a test to see if this is really a libtool program. case $host in *cygwin* | *mingw*) if func_ltwrapper_executable_p "$file"; then func_ltwrapper_scriptname "$file" wrapper=$func_ltwrapper_scriptname_result else func_stripname '' '.exe' "$file" wrapper=$func_stripname_result fi ;; *) wrapper=$file ;; esac if func_ltwrapper_script_p "$wrapper"; then notinst_deplibs= relink_command= func_source "$wrapper" # Check the variables that should have been set. test -z "$generated_by_libtool_version" && \ func_fatal_error "invalid libtool wrapper script \`$wrapper'" finalize=yes for lib in $notinst_deplibs; do # Check to see that each library is installed. libdir= if test -f "$lib"; then func_source "$lib" fi libfile="$libdir/"`$ECHO "$lib" | $SED 's%^.*/%%g'` ### testsuite: skip nested quoting test if test -n "$libdir" && test ! -f "$libfile"; then func_warning "\`$lib' has not been installed in \`$libdir'" finalize=no fi done relink_command= func_source "$wrapper" outputname= if test "$fast_install" = no && test -n "$relink_command"; then $opt_dry_run || { if test "$finalize" = yes; then tmpdir=`func_mktempdir` func_basename "$file$stripped_ext" file="$func_basename_result" outputname="$tmpdir/$file" # Replace the output file specification. relink_command=`$ECHO "$relink_command" | $SED 's%@OUTPUT@%'"$outputname"'%g'` $opt_silent || { func_quote_for_expand "$relink_command" eval "func_echo $func_quote_for_expand_result" } if eval "$relink_command"; then : else func_error "error: relink \`$file' with the above command before installing it" $opt_dry_run || ${RM}r "$tmpdir" continue fi file="$outputname" else func_warning "cannot relink \`$file'" fi } else # Install the binary that we compiled earlier. file=`$ECHO "$file$stripped_ext" | $SED "s%\([^/]*\)$%$objdir/\1%"` fi fi # remove .exe since cygwin /usr/bin/install will append another # one anyway case $install_prog,$host in */usr/bin/install*,*cygwin*) case $file:$destfile in *.exe:*.exe) # this is ok ;; *.exe:*) destfile=$destfile.exe ;; *:*.exe) func_stripname '' '.exe' "$destfile" destfile=$func_stripname_result ;; esac ;; esac func_show_eval "$install_prog\$stripme \$file \$destfile" 'exit $?' $opt_dry_run || if test -n "$outputname"; then ${RM}r "$tmpdir" fi ;; esac done for file in $staticlibs; do func_basename "$file" name="$func_basename_result" # Set up the ranlib parameters. oldlib="$destdir/$name" func_to_tool_file "$oldlib" func_convert_file_msys_to_w32 tool_oldlib=$func_to_tool_file_result func_show_eval "$install_prog \$file \$oldlib" 'exit $?' if test -n "$stripme" && test -n "$old_striplib"; then func_show_eval "$old_striplib $tool_oldlib" 'exit $?' fi # Do each command in the postinstall commands. func_execute_cmds "$old_postinstall_cmds" 'exit $?' done test -n "$future_libdirs" && \ func_warning "remember to run \`$progname --finish$future_libdirs'" if test -n "$current_libdirs"; then # Maybe just do a dry run. $opt_dry_run && current_libdirs=" -n$current_libdirs" exec_cmd='$SHELL $progpath $preserve_args --finish$current_libdirs' else exit $EXIT_SUCCESS fi } test "$opt_mode" = install && func_mode_install ${1+"$@"} # func_generate_dlsyms outputname originator pic_p # Extract symbols from dlprefiles and create ${outputname}S.o with # a dlpreopen symbol table. func_generate_dlsyms () { $opt_debug my_outputname="$1" my_originator="$2" my_pic_p="${3-no}" my_prefix=`$ECHO "$my_originator" | sed 's%[^a-zA-Z0-9]%_%g'` my_dlsyms= if test -n "$dlfiles$dlprefiles" || test "$dlself" != no; then if test -n "$NM" && test -n "$global_symbol_pipe"; then my_dlsyms="${my_outputname}S.c" else func_error "not configured to extract global symbols from dlpreopened files" fi fi if test -n "$my_dlsyms"; then case $my_dlsyms in "") ;; *.c) # Discover the nlist of each of the dlfiles. nlist="$output_objdir/${my_outputname}.nm" func_show_eval "$RM $nlist ${nlist}S ${nlist}T" # Parse the name list into a source file. func_verbose "creating $output_objdir/$my_dlsyms" $opt_dry_run || $ECHO > "$output_objdir/$my_dlsyms" "\ /* $my_dlsyms - symbol resolution table for \`$my_outputname' dlsym emulation. */ /* Generated by $PROGRAM (GNU $PACKAGE$TIMESTAMP) $VERSION */ #ifdef __cplusplus extern \"C\" { #endif #if defined(__GNUC__) && (((__GNUC__ == 4) && (__GNUC_MINOR__ >= 4)) || (__GNUC__ > 4)) #pragma GCC diagnostic ignored \"-Wstrict-prototypes\" #endif /* Keep this code in sync between libtool.m4, ltmain, lt_system.h, and tests. */ #if defined(_WIN32) || defined(__CYGWIN__) || defined(_WIN32_WCE) /* DATA imports from DLLs on WIN32 con't be const, because runtime relocations are performed -- see ld's documentation on pseudo-relocs. */ # define LT_DLSYM_CONST #elif defined(__osf__) /* This system does not cope well with relocations in const data. */ # define LT_DLSYM_CONST #else # define LT_DLSYM_CONST const #endif /* External symbol declarations for the compiler. */\ " if test "$dlself" = yes; then func_verbose "generating symbol list for \`$output'" $opt_dry_run || echo ': @PROGRAM@ ' > "$nlist" # Add our own program objects to the symbol list. progfiles=`$ECHO "$objs$old_deplibs" | $SP2NL | $SED "$lo2o" | $NL2SP` for progfile in $progfiles; do func_to_tool_file "$progfile" func_convert_file_msys_to_w32 func_verbose "extracting global C symbols from \`$func_to_tool_file_result'" $opt_dry_run || eval "$NM $func_to_tool_file_result | $global_symbol_pipe >> '$nlist'" done if test -n "$exclude_expsyms"; then $opt_dry_run || { eval '$EGREP -v " ($exclude_expsyms)$" "$nlist" > "$nlist"T' eval '$MV "$nlist"T "$nlist"' } fi if test -n "$export_symbols_regex"; then $opt_dry_run || { eval '$EGREP -e "$export_symbols_regex" "$nlist" > "$nlist"T' eval '$MV "$nlist"T "$nlist"' } fi # Prepare the list of exported symbols if test -z "$export_symbols"; then export_symbols="$output_objdir/$outputname.exp" $opt_dry_run || { $RM $export_symbols eval "${SED} -n -e '/^: @PROGRAM@ $/d' -e 's/^.* \(.*\)$/\1/p' "'< "$nlist" > "$export_symbols"' case $host in *cygwin* | *mingw* | *cegcc* ) eval "echo EXPORTS "'> "$output_objdir/$outputname.def"' eval 'cat "$export_symbols" >> "$output_objdir/$outputname.def"' ;; esac } else $opt_dry_run || { eval "${SED} -e 's/\([].[*^$]\)/\\\\\1/g' -e 's/^/ /' -e 's/$/$/'"' < "$export_symbols" > "$output_objdir/$outputname.exp"' eval '$GREP -f "$output_objdir/$outputname.exp" < "$nlist" > "$nlist"T' eval '$MV "$nlist"T "$nlist"' case $host in *cygwin* | *mingw* | *cegcc* ) eval "echo EXPORTS "'> "$output_objdir/$outputname.def"' eval 'cat "$nlist" >> "$output_objdir/$outputname.def"' ;; esac } fi fi for dlprefile in $dlprefiles; do func_verbose "extracting global C symbols from \`$dlprefile'" func_basename "$dlprefile" name="$func_basename_result" case $host in *cygwin* | *mingw* | *cegcc* ) # if an import library, we need to obtain dlname if func_win32_import_lib_p "$dlprefile"; then func_tr_sh "$dlprefile" eval "curr_lafile=\$libfile_$func_tr_sh_result" dlprefile_dlbasename="" if test -n "$curr_lafile" && func_lalib_p "$curr_lafile"; then # Use subshell, to avoid clobbering current variable values dlprefile_dlname=`source "$curr_lafile" && echo "$dlname"` if test -n "$dlprefile_dlname" ; then func_basename "$dlprefile_dlname" dlprefile_dlbasename="$func_basename_result" else # no lafile. user explicitly requested -dlpreopen . $sharedlib_from_linklib_cmd "$dlprefile" dlprefile_dlbasename=$sharedlib_from_linklib_result fi fi $opt_dry_run || { if test -n "$dlprefile_dlbasename" ; then eval '$ECHO ": $dlprefile_dlbasename" >> "$nlist"' else func_warning "Could not compute DLL name from $name" eval '$ECHO ": $name " >> "$nlist"' fi func_to_tool_file "$dlprefile" func_convert_file_msys_to_w32 eval "$NM \"$func_to_tool_file_result\" 2>/dev/null | $global_symbol_pipe | $SED -e '/I __imp/d' -e 's/I __nm_/D /;s/_nm__//' >> '$nlist'" } else # not an import lib $opt_dry_run || { eval '$ECHO ": $name " >> "$nlist"' func_to_tool_file "$dlprefile" func_convert_file_msys_to_w32 eval "$NM \"$func_to_tool_file_result\" 2>/dev/null | $global_symbol_pipe >> '$nlist'" } fi ;; *) $opt_dry_run || { eval '$ECHO ": $name " >> "$nlist"' func_to_tool_file "$dlprefile" func_convert_file_msys_to_w32 eval "$NM \"$func_to_tool_file_result\" 2>/dev/null | $global_symbol_pipe >> '$nlist'" } ;; esac done $opt_dry_run || { # Make sure we have at least an empty file. test -f "$nlist" || : > "$nlist" if test -n "$exclude_expsyms"; then $EGREP -v " ($exclude_expsyms)$" "$nlist" > "$nlist"T $MV "$nlist"T "$nlist" fi # Try sorting and uniquifying the output. if $GREP -v "^: " < "$nlist" | if sort -k 3 /dev/null 2>&1; then sort -k 3 else sort +2 fi | uniq > "$nlist"S; then : else $GREP -v "^: " < "$nlist" > "$nlist"S fi if test -f "$nlist"S; then eval "$global_symbol_to_cdecl"' < "$nlist"S >> "$output_objdir/$my_dlsyms"' else echo '/* NONE */' >> "$output_objdir/$my_dlsyms" fi echo >> "$output_objdir/$my_dlsyms" "\ /* The mapping between symbol names and symbols. */ typedef struct { const char *name; void *address; } lt_dlsymlist; extern LT_DLSYM_CONST lt_dlsymlist lt_${my_prefix}_LTX_preloaded_symbols[]; LT_DLSYM_CONST lt_dlsymlist lt_${my_prefix}_LTX_preloaded_symbols[] = {\ { \"$my_originator\", (void *) 0 }," case $need_lib_prefix in no) eval "$global_symbol_to_c_name_address" < "$nlist" >> "$output_objdir/$my_dlsyms" ;; *) eval "$global_symbol_to_c_name_address_lib_prefix" < "$nlist" >> "$output_objdir/$my_dlsyms" ;; esac echo >> "$output_objdir/$my_dlsyms" "\ {0, (void *) 0} }; /* This works around a problem in FreeBSD linker */ #ifdef FREEBSD_WORKAROUND static const void *lt_preloaded_setup() { return lt_${my_prefix}_LTX_preloaded_symbols; } #endif #ifdef __cplusplus } #endif\ " } # !$opt_dry_run pic_flag_for_symtable= case "$compile_command " in *" -static "*) ;; *) case $host in # compiling the symbol table file with pic_flag works around # a FreeBSD bug that causes programs to crash when -lm is # linked before any other PIC object. But we must not use # pic_flag when linking with -static. The problem exists in # FreeBSD 2.2.6 and is fixed in FreeBSD 3.1. *-*-freebsd2.*|*-*-freebsd3.0*|*-*-freebsdelf3.0*) pic_flag_for_symtable=" $pic_flag -DFREEBSD_WORKAROUND" ;; *-*-hpux*) pic_flag_for_symtable=" $pic_flag" ;; *) if test "X$my_pic_p" != Xno; then pic_flag_for_symtable=" $pic_flag" fi ;; esac ;; esac symtab_cflags= for arg in $LTCFLAGS; do case $arg in -pie | -fpie | -fPIE) ;; *) func_append symtab_cflags " $arg" ;; esac done # Now compile the dynamic symbol file. func_show_eval '(cd $output_objdir && $LTCC$symtab_cflags -c$no_builtin_flag$pic_flag_for_symtable "$my_dlsyms")' 'exit $?' # Clean up the generated files. func_show_eval '$RM "$output_objdir/$my_dlsyms" "$nlist" "${nlist}S" "${nlist}T"' # Transform the symbol file into the correct name. symfileobj="$output_objdir/${my_outputname}S.$objext" case $host in *cygwin* | *mingw* | *cegcc* ) if test -f "$output_objdir/$my_outputname.def"; then compile_command=`$ECHO "$compile_command" | $SED "s%@SYMFILE@%$output_objdir/$my_outputname.def $symfileobj%"` finalize_command=`$ECHO "$finalize_command" | $SED "s%@SYMFILE@%$output_objdir/$my_outputname.def $symfileobj%"` else compile_command=`$ECHO "$compile_command" | $SED "s%@SYMFILE@%$symfileobj%"` finalize_command=`$ECHO "$finalize_command" | $SED "s%@SYMFILE@%$symfileobj%"` fi ;; *) compile_command=`$ECHO "$compile_command" | $SED "s%@SYMFILE@%$symfileobj%"` finalize_command=`$ECHO "$finalize_command" | $SED "s%@SYMFILE@%$symfileobj%"` ;; esac ;; *) func_fatal_error "unknown suffix for \`$my_dlsyms'" ;; esac else # We keep going just in case the user didn't refer to # lt_preloaded_symbols. The linker will fail if global_symbol_pipe # really was required. # Nullify the symbol file. compile_command=`$ECHO "$compile_command" | $SED "s% @SYMFILE@%%"` finalize_command=`$ECHO "$finalize_command" | $SED "s% @SYMFILE@%%"` fi } # func_win32_libid arg # return the library type of file 'arg' # # Need a lot of goo to handle *both* DLLs and import libs # Has to be a shell function in order to 'eat' the argument # that is supplied when $file_magic_command is called. # Despite the name, also deal with 64 bit binaries. func_win32_libid () { $opt_debug win32_libid_type="unknown" win32_fileres=`file -L $1 2>/dev/null` case $win32_fileres in *ar\ archive\ import\ library*) # definitely import win32_libid_type="x86 archive import" ;; *ar\ archive*) # could be an import, or static # Keep the egrep pattern in sync with the one in _LT_CHECK_MAGIC_METHOD. if eval $OBJDUMP -f $1 | $SED -e '10q' 2>/dev/null | $EGREP 'file format (pei*-i386(.*architecture: i386)?|pe-arm-wince|pe-x86-64)' >/dev/null; then func_to_tool_file "$1" func_convert_file_msys_to_w32 win32_nmres=`eval $NM -f posix -A \"$func_to_tool_file_result\" | $SED -n -e ' 1,100{ / I /{ s,.*,import, p q } }'` case $win32_nmres in import*) win32_libid_type="x86 archive import";; *) win32_libid_type="x86 archive static";; esac fi ;; *DLL*) win32_libid_type="x86 DLL" ;; *executable*) # but shell scripts are "executable" too... case $win32_fileres in *MS\ Windows\ PE\ Intel*) win32_libid_type="x86 DLL" ;; esac ;; esac $ECHO "$win32_libid_type" } # func_cygming_dll_for_implib ARG # # Platform-specific function to extract the # name of the DLL associated with the specified # import library ARG. # Invoked by eval'ing the libtool variable # $sharedlib_from_linklib_cmd # Result is available in the variable # $sharedlib_from_linklib_result func_cygming_dll_for_implib () { $opt_debug sharedlib_from_linklib_result=`$DLLTOOL --identify-strict --identify "$1"` } # func_cygming_dll_for_implib_fallback_core SECTION_NAME LIBNAMEs # # The is the core of a fallback implementation of a # platform-specific function to extract the name of the # DLL associated with the specified import library LIBNAME. # # SECTION_NAME is either .idata$6 or .idata$7, depending # on the platform and compiler that created the implib. # # Echos the name of the DLL associated with the # specified import library. func_cygming_dll_for_implib_fallback_core () { $opt_debug match_literal=`$ECHO "$1" | $SED "$sed_make_literal_regex"` $OBJDUMP -s --section "$1" "$2" 2>/dev/null | $SED '/^Contents of section '"$match_literal"':/{ # Place marker at beginning of archive member dllname section s/.*/====MARK====/ p d } # These lines can sometimes be longer than 43 characters, but # are always uninteresting /:[ ]*file format pe[i]\{,1\}-/d /^In archive [^:]*:/d # Ensure marker is printed /^====MARK====/p # Remove all lines with less than 43 characters /^.\{43\}/!d # From remaining lines, remove first 43 characters s/^.\{43\}//' | $SED -n ' # Join marker and all lines until next marker into a single line /^====MARK====/ b para H $ b para b :para x s/\n//g # Remove the marker s/^====MARK====// # Remove trailing dots and whitespace s/[\. \t]*$// # Print /./p' | # we now have a list, one entry per line, of the stringified # contents of the appropriate section of all members of the # archive which possess that section. Heuristic: eliminate # all those which have a first or second character that is # a '.' (that is, objdump's representation of an unprintable # character.) This should work for all archives with less than # 0x302f exports -- but will fail for DLLs whose name actually # begins with a literal '.' or a single character followed by # a '.'. # # Of those that remain, print the first one. $SED -e '/^\./d;/^.\./d;q' } # func_cygming_gnu_implib_p ARG # This predicate returns with zero status (TRUE) if # ARG is a GNU/binutils-style import library. Returns # with nonzero status (FALSE) otherwise. func_cygming_gnu_implib_p () { $opt_debug func_to_tool_file "$1" func_convert_file_msys_to_w32 func_cygming_gnu_implib_tmp=`$NM "$func_to_tool_file_result" | eval "$global_symbol_pipe" | $EGREP ' (_head_[A-Za-z0-9_]+_[ad]l*|[A-Za-z0-9_]+_[ad]l*_iname)$'` test -n "$func_cygming_gnu_implib_tmp" } # func_cygming_ms_implib_p ARG # This predicate returns with zero status (TRUE) if # ARG is an MS-style import library. Returns # with nonzero status (FALSE) otherwise. func_cygming_ms_implib_p () { $opt_debug func_to_tool_file "$1" func_convert_file_msys_to_w32 func_cygming_ms_implib_tmp=`$NM "$func_to_tool_file_result" | eval "$global_symbol_pipe" | $GREP '_NULL_IMPORT_DESCRIPTOR'` test -n "$func_cygming_ms_implib_tmp" } # func_cygming_dll_for_implib_fallback ARG # Platform-specific function to extract the # name of the DLL associated with the specified # import library ARG. # # This fallback implementation is for use when $DLLTOOL # does not support the --identify-strict option. # Invoked by eval'ing the libtool variable # $sharedlib_from_linklib_cmd # Result is available in the variable # $sharedlib_from_linklib_result func_cygming_dll_for_implib_fallback () { $opt_debug if func_cygming_gnu_implib_p "$1" ; then # binutils import library sharedlib_from_linklib_result=`func_cygming_dll_for_implib_fallback_core '.idata$7' "$1"` elif func_cygming_ms_implib_p "$1" ; then # ms-generated import library sharedlib_from_linklib_result=`func_cygming_dll_for_implib_fallback_core '.idata$6' "$1"` else # unknown sharedlib_from_linklib_result="" fi } # func_extract_an_archive dir oldlib func_extract_an_archive () { $opt_debug f_ex_an_ar_dir="$1"; shift f_ex_an_ar_oldlib="$1" if test "$lock_old_archive_extraction" = yes; then lockfile=$f_ex_an_ar_oldlib.lock until $opt_dry_run || ln "$progpath" "$lockfile" 2>/dev/null; do func_echo "Waiting for $lockfile to be removed" sleep 2 done fi func_show_eval "(cd \$f_ex_an_ar_dir && $AR x \"\$f_ex_an_ar_oldlib\")" \ 'stat=$?; rm -f "$lockfile"; exit $stat' if test "$lock_old_archive_extraction" = yes; then $opt_dry_run || rm -f "$lockfile" fi if ($AR t "$f_ex_an_ar_oldlib" | sort | sort -uc >/dev/null 2>&1); then : else func_fatal_error "object name conflicts in archive: $f_ex_an_ar_dir/$f_ex_an_ar_oldlib" fi } # func_extract_archives gentop oldlib ... func_extract_archives () { $opt_debug my_gentop="$1"; shift my_oldlibs=${1+"$@"} my_oldobjs="" my_xlib="" my_xabs="" my_xdir="" for my_xlib in $my_oldlibs; do # Extract the objects. case $my_xlib in [\\/]* | [A-Za-z]:[\\/]*) my_xabs="$my_xlib" ;; *) my_xabs=`pwd`"/$my_xlib" ;; esac func_basename "$my_xlib" my_xlib="$func_basename_result" my_xlib_u=$my_xlib while :; do case " $extracted_archives " in *" $my_xlib_u "*) func_arith $extracted_serial + 1 extracted_serial=$func_arith_result my_xlib_u=lt$extracted_serial-$my_xlib ;; *) break ;; esac done extracted_archives="$extracted_archives $my_xlib_u" my_xdir="$my_gentop/$my_xlib_u" func_mkdir_p "$my_xdir" case $host in *-darwin*) func_verbose "Extracting $my_xabs" # Do not bother doing anything if just a dry run $opt_dry_run || { darwin_orig_dir=`pwd` cd $my_xdir || exit $? darwin_archive=$my_xabs darwin_curdir=`pwd` darwin_base_archive=`basename "$darwin_archive"` darwin_arches=`$LIPO -info "$darwin_archive" 2>/dev/null | $GREP Architectures 2>/dev/null || true` if test -n "$darwin_arches"; then darwin_arches=`$ECHO "$darwin_arches" | $SED -e 's/.*are://'` darwin_arch= func_verbose "$darwin_base_archive has multiple architectures $darwin_arches" for darwin_arch in $darwin_arches ; do func_mkdir_p "unfat-$$/${darwin_base_archive}-${darwin_arch}" $LIPO -thin $darwin_arch -output "unfat-$$/${darwin_base_archive}-${darwin_arch}/${darwin_base_archive}" "${darwin_archive}" cd "unfat-$$/${darwin_base_archive}-${darwin_arch}" func_extract_an_archive "`pwd`" "${darwin_base_archive}" cd "$darwin_curdir" $RM "unfat-$$/${darwin_base_archive}-${darwin_arch}/${darwin_base_archive}" done # $darwin_arches ## Okay now we've a bunch of thin objects, gotta fatten them up :) darwin_filelist=`find unfat-$$ -type f -name \*.o -print -o -name \*.lo -print | $SED -e "$basename" | sort -u` darwin_file= darwin_files= for darwin_file in $darwin_filelist; do darwin_files=`find unfat-$$ -name $darwin_file -print | sort | $NL2SP` $LIPO -create -output "$darwin_file" $darwin_files done # $darwin_filelist $RM -rf unfat-$$ cd "$darwin_orig_dir" else cd $darwin_orig_dir func_extract_an_archive "$my_xdir" "$my_xabs" fi # $darwin_arches } # !$opt_dry_run ;; *) func_extract_an_archive "$my_xdir" "$my_xabs" ;; esac my_oldobjs="$my_oldobjs "`find $my_xdir -name \*.$objext -print -o -name \*.lo -print | sort | $NL2SP` done func_extract_archives_result="$my_oldobjs" } # func_emit_wrapper [arg=no] # # Emit a libtool wrapper script on stdout. # Don't directly open a file because we may want to # incorporate the script contents within a cygwin/mingw # wrapper executable. Must ONLY be called from within # func_mode_link because it depends on a number of variables # set therein. # # ARG is the value that the WRAPPER_SCRIPT_BELONGS_IN_OBJDIR # variable will take. If 'yes', then the emitted script # will assume that the directory in which it is stored is # the $objdir directory. This is a cygwin/mingw-specific # behavior. func_emit_wrapper () { func_emit_wrapper_arg1=${1-no} $ECHO "\ #! $SHELL # $output - temporary wrapper script for $objdir/$outputname # Generated by $PROGRAM (GNU $PACKAGE$TIMESTAMP) $VERSION # # The $output program cannot be directly executed until all the libtool # libraries that it depends on are installed. # # This wrapper script should never be moved out of the build directory. # If it is, it will not operate correctly. # Sed substitution that helps us do robust quoting. It backslashifies # metacharacters that are still active within double-quoted strings. sed_quote_subst='$sed_quote_subst' # Be Bourne compatible if test -n \"\${ZSH_VERSION+set}\" && (emulate sh) >/dev/null 2>&1; then emulate sh NULLCMD=: # Zsh 3.x and 4.x performs word splitting on \${1+\"\$@\"}, which # is contrary to our usage. Disable this feature. alias -g '\${1+\"\$@\"}'='\"\$@\"' setopt NO_GLOB_SUBST else case \`(set -o) 2>/dev/null\` in *posix*) set -o posix;; esac fi BIN_SH=xpg4; export BIN_SH # for Tru64 DUALCASE=1; export DUALCASE # for MKS sh # The HP-UX ksh and POSIX shell print the target directory to stdout # if CDPATH is set. (unset CDPATH) >/dev/null 2>&1 && unset CDPATH relink_command=\"$relink_command\" # This environment variable determines our operation mode. if test \"\$libtool_install_magic\" = \"$magic\"; then # install mode needs the following variables: generated_by_libtool_version='$macro_version' notinst_deplibs='$notinst_deplibs' else # When we are sourced in execute mode, \$file and \$ECHO are already set. if test \"\$libtool_execute_magic\" != \"$magic\"; then file=\"\$0\"" qECHO=`$ECHO "$ECHO" | $SED "$sed_quote_subst"` $ECHO "\ # A function that is used when there is no print builtin or printf. func_fallback_echo () { eval 'cat <<_LTECHO_EOF \$1 _LTECHO_EOF' } ECHO=\"$qECHO\" fi # Very basic option parsing. These options are (a) specific to # the libtool wrapper, (b) are identical between the wrapper # /script/ and the wrapper /executable/ which is used only on # windows platforms, and (c) all begin with the string "--lt-" # (application programs are unlikely to have options which match # this pattern). # # There are only two supported options: --lt-debug and # --lt-dump-script. There is, deliberately, no --lt-help. # # The first argument to this parsing function should be the # script's $0 value, followed by "$@". lt_option_debug= func_parse_lt_options () { lt_script_arg0=\$0 shift for lt_opt do case \"\$lt_opt\" in --lt-debug) lt_option_debug=1 ;; --lt-dump-script) lt_dump_D=\`\$ECHO \"X\$lt_script_arg0\" | $SED -e 's/^X//' -e 's%/[^/]*$%%'\` test \"X\$lt_dump_D\" = \"X\$lt_script_arg0\" && lt_dump_D=. lt_dump_F=\`\$ECHO \"X\$lt_script_arg0\" | $SED -e 's/^X//' -e 's%^.*/%%'\` cat \"\$lt_dump_D/\$lt_dump_F\" exit 0 ;; --lt-*) \$ECHO \"Unrecognized --lt- option: '\$lt_opt'\" 1>&2 exit 1 ;; esac done # Print the debug banner immediately: if test -n \"\$lt_option_debug\"; then echo \"${outputname}:${output}:\${LINENO}: libtool wrapper (GNU $PACKAGE$TIMESTAMP) $VERSION\" 1>&2 fi } # Used when --lt-debug. Prints its arguments to stdout # (redirection is the responsibility of the caller) func_lt_dump_args () { lt_dump_args_N=1; for lt_arg do \$ECHO \"${outputname}:${output}:\${LINENO}: newargv[\$lt_dump_args_N]: \$lt_arg\" lt_dump_args_N=\`expr \$lt_dump_args_N + 1\` done } # Core function for launching the target application func_exec_program_core () { " case $host in # Backslashes separate directories on plain windows *-*-mingw | *-*-os2* | *-cegcc*) $ECHO "\ if test -n \"\$lt_option_debug\"; then \$ECHO \"${outputname}:${output}:\${LINENO}: newargv[0]: \$progdir\\\\\$program\" 1>&2 func_lt_dump_args \${1+\"\$@\"} 1>&2 fi exec \"\$progdir\\\\\$program\" \${1+\"\$@\"} " ;; *) $ECHO "\ if test -n \"\$lt_option_debug\"; then \$ECHO \"${outputname}:${output}:\${LINENO}: newargv[0]: \$progdir/\$program\" 1>&2 func_lt_dump_args \${1+\"\$@\"} 1>&2 fi exec \"\$progdir/\$program\" \${1+\"\$@\"} " ;; esac $ECHO "\ \$ECHO \"\$0: cannot exec \$program \$*\" 1>&2 exit 1 } # A function to encapsulate launching the target application # Strips options in the --lt-* namespace from \$@ and # launches target application with the remaining arguments. func_exec_program () { case \" \$* \" in *\\ --lt-*) for lt_wr_arg do case \$lt_wr_arg in --lt-*) ;; *) set x \"\$@\" \"\$lt_wr_arg\"; shift;; esac shift done ;; esac func_exec_program_core \${1+\"\$@\"} } # Parse options func_parse_lt_options \"\$0\" \${1+\"\$@\"} # Find the directory that this script lives in. thisdir=\`\$ECHO \"\$file\" | $SED 's%/[^/]*$%%'\` test \"x\$thisdir\" = \"x\$file\" && thisdir=. # Follow symbolic links until we get to the real thisdir. file=\`ls -ld \"\$file\" | $SED -n 's/.*-> //p'\` while test -n \"\$file\"; do destdir=\`\$ECHO \"\$file\" | $SED 's%/[^/]*\$%%'\` # If there was a directory component, then change thisdir. if test \"x\$destdir\" != \"x\$file\"; then case \"\$destdir\" in [\\\\/]* | [A-Za-z]:[\\\\/]*) thisdir=\"\$destdir\" ;; *) thisdir=\"\$thisdir/\$destdir\" ;; esac fi file=\`\$ECHO \"\$file\" | $SED 's%^.*/%%'\` file=\`ls -ld \"\$thisdir/\$file\" | $SED -n 's/.*-> //p'\` done # Usually 'no', except on cygwin/mingw when embedded into # the cwrapper. WRAPPER_SCRIPT_BELONGS_IN_OBJDIR=$func_emit_wrapper_arg1 if test \"\$WRAPPER_SCRIPT_BELONGS_IN_OBJDIR\" = \"yes\"; then # special case for '.' if test \"\$thisdir\" = \".\"; then thisdir=\`pwd\` fi # remove .libs from thisdir case \"\$thisdir\" in *[\\\\/]$objdir ) thisdir=\`\$ECHO \"\$thisdir\" | $SED 's%[\\\\/][^\\\\/]*$%%'\` ;; $objdir ) thisdir=. ;; esac fi # Try to get the absolute directory name. absdir=\`cd \"\$thisdir\" && pwd\` test -n \"\$absdir\" && thisdir=\"\$absdir\" " if test "$fast_install" = yes; then $ECHO "\ program=lt-'$outputname'$exeext progdir=\"\$thisdir/$objdir\" if test ! -f \"\$progdir/\$program\" || { file=\`ls -1dt \"\$progdir/\$program\" \"\$progdir/../\$program\" 2>/dev/null | ${SED} 1q\`; \\ test \"X\$file\" != \"X\$progdir/\$program\"; }; then file=\"\$\$-\$program\" if test ! -d \"\$progdir\"; then $MKDIR \"\$progdir\" else $RM \"\$progdir/\$file\" fi" $ECHO "\ # relink executable if necessary if test -n \"\$relink_command\"; then if relink_command_output=\`eval \$relink_command 2>&1\`; then : else $ECHO \"\$relink_command_output\" >&2 $RM \"\$progdir/\$file\" exit 1 fi fi $MV \"\$progdir/\$file\" \"\$progdir/\$program\" 2>/dev/null || { $RM \"\$progdir/\$program\"; $MV \"\$progdir/\$file\" \"\$progdir/\$program\"; } $RM \"\$progdir/\$file\" fi" else $ECHO "\ program='$outputname' progdir=\"\$thisdir/$objdir\" " fi $ECHO "\ if test -f \"\$progdir/\$program\"; then" # fixup the dll searchpath if we need to. # # Fix the DLL searchpath if we need to. Do this before prepending # to shlibpath, because on Windows, both are PATH and uninstalled # libraries must come first. if test -n "$dllsearchpath"; then $ECHO "\ # Add the dll search path components to the executable PATH PATH=$dllsearchpath:\$PATH " fi # Export our shlibpath_var if we have one. if test "$shlibpath_overrides_runpath" = yes && test -n "$shlibpath_var" && test -n "$temp_rpath"; then $ECHO "\ # Add our own library path to $shlibpath_var $shlibpath_var=\"$temp_rpath\$$shlibpath_var\" # Some systems cannot cope with colon-terminated $shlibpath_var # The second colon is a workaround for a bug in BeOS R4 sed $shlibpath_var=\`\$ECHO \"\$$shlibpath_var\" | $SED 's/::*\$//'\` export $shlibpath_var " fi $ECHO "\ if test \"\$libtool_execute_magic\" != \"$magic\"; then # Run the actual program with our arguments. func_exec_program \${1+\"\$@\"} fi else # The program doesn't exist. \$ECHO \"\$0: error: \\\`\$progdir/\$program' does not exist\" 1>&2 \$ECHO \"This script is just a wrapper for \$program.\" 1>&2 \$ECHO \"See the $PACKAGE documentation for more information.\" 1>&2 exit 1 fi fi\ " } # func_emit_cwrapperexe_src # emit the source code for a wrapper executable on stdout # Must ONLY be called from within func_mode_link because # it depends on a number of variable set therein. func_emit_cwrapperexe_src () { cat < #include #ifdef _MSC_VER # include # include # include #else # include # include # ifdef __CYGWIN__ # include # endif #endif #include #include #include #include #include #include #include #include /* declarations of non-ANSI functions */ #if defined(__MINGW32__) # ifdef __STRICT_ANSI__ int _putenv (const char *); # endif #elif defined(__CYGWIN__) # ifdef __STRICT_ANSI__ char *realpath (const char *, char *); int putenv (char *); int setenv (const char *, const char *, int); # endif /* #elif defined (other platforms) ... */ #endif /* portability defines, excluding path handling macros */ #if defined(_MSC_VER) # define setmode _setmode # define stat _stat # define chmod _chmod # define getcwd _getcwd # define putenv _putenv # define S_IXUSR _S_IEXEC # ifndef _INTPTR_T_DEFINED # define _INTPTR_T_DEFINED # define intptr_t int # endif #elif defined(__MINGW32__) # define setmode _setmode # define stat _stat # define chmod _chmod # define getcwd _getcwd # define putenv _putenv #elif defined(__CYGWIN__) # define HAVE_SETENV # define FOPEN_WB "wb" /* #elif defined (other platforms) ... */ #endif #if defined(PATH_MAX) # define LT_PATHMAX PATH_MAX #elif defined(MAXPATHLEN) # define LT_PATHMAX MAXPATHLEN #else # define LT_PATHMAX 1024 #endif #ifndef S_IXOTH # define S_IXOTH 0 #endif #ifndef S_IXGRP # define S_IXGRP 0 #endif /* path handling portability macros */ #ifndef DIR_SEPARATOR # define DIR_SEPARATOR '/' # define PATH_SEPARATOR ':' #endif #if defined (_WIN32) || defined (__MSDOS__) || defined (__DJGPP__) || \ defined (__OS2__) # define HAVE_DOS_BASED_FILE_SYSTEM # define FOPEN_WB "wb" # ifndef DIR_SEPARATOR_2 # define DIR_SEPARATOR_2 '\\' # endif # ifndef PATH_SEPARATOR_2 # define PATH_SEPARATOR_2 ';' # endif #endif #ifndef DIR_SEPARATOR_2 # define IS_DIR_SEPARATOR(ch) ((ch) == DIR_SEPARATOR) #else /* DIR_SEPARATOR_2 */ # define IS_DIR_SEPARATOR(ch) \ (((ch) == DIR_SEPARATOR) || ((ch) == DIR_SEPARATOR_2)) #endif /* DIR_SEPARATOR_2 */ #ifndef PATH_SEPARATOR_2 # define IS_PATH_SEPARATOR(ch) ((ch) == PATH_SEPARATOR) #else /* PATH_SEPARATOR_2 */ # define IS_PATH_SEPARATOR(ch) ((ch) == PATH_SEPARATOR_2) #endif /* PATH_SEPARATOR_2 */ #ifndef FOPEN_WB # define FOPEN_WB "w" #endif #ifndef _O_BINARY # define _O_BINARY 0 #endif #define XMALLOC(type, num) ((type *) xmalloc ((num) * sizeof(type))) #define XFREE(stale) do { \ if (stale) { free ((void *) stale); stale = 0; } \ } while (0) #if defined(LT_DEBUGWRAPPER) static int lt_debug = 1; #else static int lt_debug = 0; #endif const char *program_name = "libtool-wrapper"; /* in case xstrdup fails */ void *xmalloc (size_t num); char *xstrdup (const char *string); const char *base_name (const char *name); char *find_executable (const char *wrapper); char *chase_symlinks (const char *pathspec); int make_executable (const char *path); int check_executable (const char *path); char *strendzap (char *str, const char *pat); void lt_debugprintf (const char *file, int line, const char *fmt, ...); void lt_fatal (const char *file, int line, const char *message, ...); static const char *nonnull (const char *s); static const char *nonempty (const char *s); void lt_setenv (const char *name, const char *value); char *lt_extend_str (const char *orig_value, const char *add, int to_end); void lt_update_exe_path (const char *name, const char *value); void lt_update_lib_path (const char *name, const char *value); char **prepare_spawn (char **argv); void lt_dump_script (FILE *f); EOF cat <= 0) && (st.st_mode & (S_IXUSR | S_IXGRP | S_IXOTH))) return 1; else return 0; } int make_executable (const char *path) { int rval = 0; struct stat st; lt_debugprintf (__FILE__, __LINE__, "(make_executable): %s\n", nonempty (path)); if ((!path) || (!*path)) return 0; if (stat (path, &st) >= 0) { rval = chmod (path, st.st_mode | S_IXOTH | S_IXGRP | S_IXUSR); } return rval; } /* Searches for the full path of the wrapper. Returns newly allocated full path name if found, NULL otherwise Does not chase symlinks, even on platforms that support them. */ char * find_executable (const char *wrapper) { int has_slash = 0; const char *p; const char *p_next; /* static buffer for getcwd */ char tmp[LT_PATHMAX + 1]; int tmp_len; char *concat_name; lt_debugprintf (__FILE__, __LINE__, "(find_executable): %s\n", nonempty (wrapper)); if ((wrapper == NULL) || (*wrapper == '\0')) return NULL; /* Absolute path? */ #if defined (HAVE_DOS_BASED_FILE_SYSTEM) if (isalpha ((unsigned char) wrapper[0]) && wrapper[1] == ':') { concat_name = xstrdup (wrapper); if (check_executable (concat_name)) return concat_name; XFREE (concat_name); } else { #endif if (IS_DIR_SEPARATOR (wrapper[0])) { concat_name = xstrdup (wrapper); if (check_executable (concat_name)) return concat_name; XFREE (concat_name); } #if defined (HAVE_DOS_BASED_FILE_SYSTEM) } #endif for (p = wrapper; *p; p++) if (*p == '/') { has_slash = 1; break; } if (!has_slash) { /* no slashes; search PATH */ const char *path = getenv ("PATH"); if (path != NULL) { for (p = path; *p; p = p_next) { const char *q; size_t p_len; for (q = p; *q; q++) if (IS_PATH_SEPARATOR (*q)) break; p_len = q - p; p_next = (*q == '\0' ? q : q + 1); if (p_len == 0) { /* empty path: current directory */ if (getcwd (tmp, LT_PATHMAX) == NULL) lt_fatal (__FILE__, __LINE__, "getcwd failed: %s", nonnull (strerror (errno))); tmp_len = strlen (tmp); concat_name = XMALLOC (char, tmp_len + 1 + strlen (wrapper) + 1); memcpy (concat_name, tmp, tmp_len); concat_name[tmp_len] = '/'; strcpy (concat_name + tmp_len + 1, wrapper); } else { concat_name = XMALLOC (char, p_len + 1 + strlen (wrapper) + 1); memcpy (concat_name, p, p_len); concat_name[p_len] = '/'; strcpy (concat_name + p_len + 1, wrapper); } if (check_executable (concat_name)) return concat_name; XFREE (concat_name); } } /* not found in PATH; assume curdir */ } /* Relative path | not found in path: prepend cwd */ if (getcwd (tmp, LT_PATHMAX) == NULL) lt_fatal (__FILE__, __LINE__, "getcwd failed: %s", nonnull (strerror (errno))); tmp_len = strlen (tmp); concat_name = XMALLOC (char, tmp_len + 1 + strlen (wrapper) + 1); memcpy (concat_name, tmp, tmp_len); concat_name[tmp_len] = '/'; strcpy (concat_name + tmp_len + 1, wrapper); if (check_executable (concat_name)) return concat_name; XFREE (concat_name); return NULL; } char * chase_symlinks (const char *pathspec) { #ifndef S_ISLNK return xstrdup (pathspec); #else char buf[LT_PATHMAX]; struct stat s; char *tmp_pathspec = xstrdup (pathspec); char *p; int has_symlinks = 0; while (strlen (tmp_pathspec) && !has_symlinks) { lt_debugprintf (__FILE__, __LINE__, "checking path component for symlinks: %s\n", tmp_pathspec); if (lstat (tmp_pathspec, &s) == 0) { if (S_ISLNK (s.st_mode) != 0) { has_symlinks = 1; break; } /* search backwards for last DIR_SEPARATOR */ p = tmp_pathspec + strlen (tmp_pathspec) - 1; while ((p > tmp_pathspec) && (!IS_DIR_SEPARATOR (*p))) p--; if ((p == tmp_pathspec) && (!IS_DIR_SEPARATOR (*p))) { /* no more DIR_SEPARATORS left */ break; } *p = '\0'; } else { lt_fatal (__FILE__, __LINE__, "error accessing file \"%s\": %s", tmp_pathspec, nonnull (strerror (errno))); } } XFREE (tmp_pathspec); if (!has_symlinks) { return xstrdup (pathspec); } tmp_pathspec = realpath (pathspec, buf); if (tmp_pathspec == 0) { lt_fatal (__FILE__, __LINE__, "could not follow symlinks for %s", pathspec); } return xstrdup (tmp_pathspec); #endif } char * strendzap (char *str, const char *pat) { size_t len, patlen; assert (str != NULL); assert (pat != NULL); len = strlen (str); patlen = strlen (pat); if (patlen <= len) { str += len - patlen; if (strcmp (str, pat) == 0) *str = '\0'; } return str; } void lt_debugprintf (const char *file, int line, const char *fmt, ...) { va_list args; if (lt_debug) { (void) fprintf (stderr, "%s:%s:%d: ", program_name, file, line); va_start (args, fmt); (void) vfprintf (stderr, fmt, args); va_end (args); } } static void lt_error_core (int exit_status, const char *file, int line, const char *mode, const char *message, va_list ap) { fprintf (stderr, "%s:%s:%d: %s: ", program_name, file, line, mode); vfprintf (stderr, message, ap); fprintf (stderr, ".\n"); if (exit_status >= 0) exit (exit_status); } void lt_fatal (const char *file, int line, const char *message, ...) { va_list ap; va_start (ap, message); lt_error_core (EXIT_FAILURE, file, line, "FATAL", message, ap); va_end (ap); } static const char * nonnull (const char *s) { return s ? s : "(null)"; } static const char * nonempty (const char *s) { return (s && !*s) ? "(empty)" : nonnull (s); } void lt_setenv (const char *name, const char *value) { lt_debugprintf (__FILE__, __LINE__, "(lt_setenv) setting '%s' to '%s'\n", nonnull (name), nonnull (value)); { #ifdef HAVE_SETENV /* always make a copy, for consistency with !HAVE_SETENV */ char *str = xstrdup (value); setenv (name, str, 1); #else int len = strlen (name) + 1 + strlen (value) + 1; char *str = XMALLOC (char, len); sprintf (str, "%s=%s", name, value); if (putenv (str) != EXIT_SUCCESS) { XFREE (str); } #endif } } char * lt_extend_str (const char *orig_value, const char *add, int to_end) { char *new_value; if (orig_value && *orig_value) { int orig_value_len = strlen (orig_value); int add_len = strlen (add); new_value = XMALLOC (char, add_len + orig_value_len + 1); if (to_end) { strcpy (new_value, orig_value); strcpy (new_value + orig_value_len, add); } else { strcpy (new_value, add); strcpy (new_value + add_len, orig_value); } } else { new_value = xstrdup (add); } return new_value; } void lt_update_exe_path (const char *name, const char *value) { lt_debugprintf (__FILE__, __LINE__, "(lt_update_exe_path) modifying '%s' by prepending '%s'\n", nonnull (name), nonnull (value)); if (name && *name && value && *value) { char *new_value = lt_extend_str (getenv (name), value, 0); /* some systems can't cope with a ':'-terminated path #' */ int len = strlen (new_value); while (((len = strlen (new_value)) > 0) && IS_PATH_SEPARATOR (new_value[len-1])) { new_value[len-1] = '\0'; } lt_setenv (name, new_value); XFREE (new_value); } } void lt_update_lib_path (const char *name, const char *value) { lt_debugprintf (__FILE__, __LINE__, "(lt_update_lib_path) modifying '%s' by prepending '%s'\n", nonnull (name), nonnull (value)); if (name && *name && value && *value) { char *new_value = lt_extend_str (getenv (name), value, 0); lt_setenv (name, new_value); XFREE (new_value); } } EOF case $host_os in mingw*) cat <<"EOF" /* Prepares an argument vector before calling spawn(). Note that spawn() does not by itself call the command interpreter (getenv ("COMSPEC") != NULL ? getenv ("COMSPEC") : ({ OSVERSIONINFO v; v.dwOSVersionInfoSize = sizeof(OSVERSIONINFO); GetVersionEx(&v); v.dwPlatformId == VER_PLATFORM_WIN32_NT; }) ? "cmd.exe" : "command.com"). Instead it simply concatenates the arguments, separated by ' ', and calls CreateProcess(). We must quote the arguments since Win32 CreateProcess() interprets characters like ' ', '\t', '\\', '"' (but not '<' and '>') in a special way: - Space and tab are interpreted as delimiters. They are not treated as delimiters if they are surrounded by double quotes: "...". - Unescaped double quotes are removed from the input. Their only effect is that within double quotes, space and tab are treated like normal characters. - Backslashes not followed by double quotes are not special. - But 2*n+1 backslashes followed by a double quote become n backslashes followed by a double quote (n >= 0): \" -> " \\\" -> \" \\\\\" -> \\" */ #define SHELL_SPECIAL_CHARS "\"\\ \001\002\003\004\005\006\007\010\011\012\013\014\015\016\017\020\021\022\023\024\025\026\027\030\031\032\033\034\035\036\037" #define SHELL_SPACE_CHARS " \001\002\003\004\005\006\007\010\011\012\013\014\015\016\017\020\021\022\023\024\025\026\027\030\031\032\033\034\035\036\037" char ** prepare_spawn (char **argv) { size_t argc; char **new_argv; size_t i; /* Count number of arguments. */ for (argc = 0; argv[argc] != NULL; argc++) ; /* Allocate new argument vector. */ new_argv = XMALLOC (char *, argc + 1); /* Put quoted arguments into the new argument vector. */ for (i = 0; i < argc; i++) { const char *string = argv[i]; if (string[0] == '\0') new_argv[i] = xstrdup ("\"\""); else if (strpbrk (string, SHELL_SPECIAL_CHARS) != NULL) { int quote_around = (strpbrk (string, SHELL_SPACE_CHARS) != NULL); size_t length; unsigned int backslashes; const char *s; char *quoted_string; char *p; length = 0; backslashes = 0; if (quote_around) length++; for (s = string; *s != '\0'; s++) { char c = *s; if (c == '"') length += backslashes + 1; length++; if (c == '\\') backslashes++; else backslashes = 0; } if (quote_around) length += backslashes + 1; quoted_string = XMALLOC (char, length + 1); p = quoted_string; backslashes = 0; if (quote_around) *p++ = '"'; for (s = string; *s != '\0'; s++) { char c = *s; if (c == '"') { unsigned int j; for (j = backslashes + 1; j > 0; j--) *p++ = '\\'; } *p++ = c; if (c == '\\') backslashes++; else backslashes = 0; } if (quote_around) { unsigned int j; for (j = backslashes; j > 0; j--) *p++ = '\\'; *p++ = '"'; } *p = '\0'; new_argv[i] = quoted_string; } else new_argv[i] = (char *) string; } new_argv[argc] = NULL; return new_argv; } EOF ;; esac cat <<"EOF" void lt_dump_script (FILE* f) { EOF func_emit_wrapper yes | $SED -n -e ' s/^\(.\{79\}\)\(..*\)/\1\ \2/ h s/\([\\"]\)/\\\1/g s/$/\\n/ s/\([^\n]*\).*/ fputs ("\1", f);/p g D' cat <<"EOF" } EOF } # end: func_emit_cwrapperexe_src # func_win32_import_lib_p ARG # True if ARG is an import lib, as indicated by $file_magic_cmd func_win32_import_lib_p () { $opt_debug case `eval $file_magic_cmd \"\$1\" 2>/dev/null | $SED -e 10q` in *import*) : ;; *) false ;; esac } # func_mode_link arg... func_mode_link () { $opt_debug case $host in *-*-cygwin* | *-*-mingw* | *-*-pw32* | *-*-os2* | *-cegcc*) # It is impossible to link a dll without this setting, and # we shouldn't force the makefile maintainer to figure out # which system we are compiling for in order to pass an extra # flag for every libtool invocation. # allow_undefined=no # FIXME: Unfortunately, there are problems with the above when trying # to make a dll which has undefined symbols, in which case not # even a static library is built. For now, we need to specify # -no-undefined on the libtool link line when we can be certain # that all symbols are satisfied, otherwise we get a static library. allow_undefined=yes ;; *) allow_undefined=yes ;; esac libtool_args=$nonopt base_compile="$nonopt $@" compile_command=$nonopt finalize_command=$nonopt compile_rpath= finalize_rpath= compile_shlibpath= finalize_shlibpath= convenience= old_convenience= deplibs= old_deplibs= compiler_flags= linker_flags= dllsearchpath= lib_search_path=`pwd` inst_prefix_dir= new_inherited_linker_flags= avoid_version=no bindir= dlfiles= dlprefiles= dlself=no export_dynamic=no export_symbols= export_symbols_regex= generated= libobjs= ltlibs= module=no no_install=no objs= non_pic_objects= precious_files_regex= prefer_static_libs=no preload=no prev= prevarg= release= rpath= xrpath= perm_rpath= temp_rpath= thread_safe=no vinfo= vinfo_number=no weak_libs= single_module="${wl}-single_module" func_infer_tag $base_compile # We need to know -static, to get the right output filenames. for arg do case $arg in -shared) test "$build_libtool_libs" != yes && \ func_fatal_configuration "can not build a shared library" build_old_libs=no break ;; -all-static | -static | -static-libtool-libs) case $arg in -all-static) if test "$build_libtool_libs" = yes && test -z "$link_static_flag"; then func_warning "complete static linking is impossible in this configuration" fi if test -n "$link_static_flag"; then dlopen_self=$dlopen_self_static fi prefer_static_libs=yes ;; -static) if test -z "$pic_flag" && test -n "$link_static_flag"; then dlopen_self=$dlopen_self_static fi prefer_static_libs=built ;; -static-libtool-libs) if test -z "$pic_flag" && test -n "$link_static_flag"; then dlopen_self=$dlopen_self_static fi prefer_static_libs=yes ;; esac build_libtool_libs=no build_old_libs=yes break ;; esac done # See if our shared archives depend on static archives. test -n "$old_archive_from_new_cmds" && build_old_libs=yes # Go through the arguments, transforming them on the way. while test "$#" -gt 0; do arg="$1" shift func_quote_for_eval "$arg" qarg=$func_quote_for_eval_unquoted_result func_append libtool_args " $func_quote_for_eval_result" # If the previous option needs an argument, assign it. if test -n "$prev"; then case $prev in output) func_append compile_command " @OUTPUT@" func_append finalize_command " @OUTPUT@" ;; esac case $prev in bindir) bindir="$arg" prev= continue ;; dlfiles|dlprefiles) if test "$preload" = no; then # Add the symbol object into the linking commands. func_append compile_command " @SYMFILE@" func_append finalize_command " @SYMFILE@" preload=yes fi case $arg in *.la | *.lo) ;; # We handle these cases below. force) if test "$dlself" = no; then dlself=needless export_dynamic=yes fi prev= continue ;; self) if test "$prev" = dlprefiles; then dlself=yes elif test "$prev" = dlfiles && test "$dlopen_self" != yes; then dlself=yes else dlself=needless export_dynamic=yes fi prev= continue ;; *) if test "$prev" = dlfiles; then func_append dlfiles " $arg" else func_append dlprefiles " $arg" fi prev= continue ;; esac ;; expsyms) export_symbols="$arg" test -f "$arg" \ || func_fatal_error "symbol file \`$arg' does not exist" prev= continue ;; expsyms_regex) export_symbols_regex="$arg" prev= continue ;; framework) case $host in *-*-darwin*) case "$deplibs " in *" $qarg.ltframework "*) ;; *) func_append deplibs " $qarg.ltframework" # this is fixed later ;; esac ;; esac prev= continue ;; inst_prefix) inst_prefix_dir="$arg" prev= continue ;; objectlist) if test -f "$arg"; then save_arg=$arg moreargs= for fil in `cat "$save_arg"` do # func_append moreargs " $fil" arg=$fil # A libtool-controlled object. # Check to see that this really is a libtool object. if func_lalib_unsafe_p "$arg"; then pic_object= non_pic_object= # Read the .lo file func_source "$arg" if test -z "$pic_object" || test -z "$non_pic_object" || test "$pic_object" = none && test "$non_pic_object" = none; then func_fatal_error "cannot find name of object for \`$arg'" fi # Extract subdirectory from the argument. func_dirname "$arg" "/" "" xdir="$func_dirname_result" if test "$pic_object" != none; then # Prepend the subdirectory the object is found in. pic_object="$xdir$pic_object" if test "$prev" = dlfiles; then if test "$build_libtool_libs" = yes && test "$dlopen_support" = yes; then func_append dlfiles " $pic_object" prev= continue else # If libtool objects are unsupported, then we need to preload. prev=dlprefiles fi fi # CHECK ME: I think I busted this. -Ossama if test "$prev" = dlprefiles; then # Preload the old-style object. func_append dlprefiles " $pic_object" prev= fi # A PIC object. func_append libobjs " $pic_object" arg="$pic_object" fi # Non-PIC object. if test "$non_pic_object" != none; then # Prepend the subdirectory the object is found in. non_pic_object="$xdir$non_pic_object" # A standard non-PIC object func_append non_pic_objects " $non_pic_object" if test -z "$pic_object" || test "$pic_object" = none ; then arg="$non_pic_object" fi else # If the PIC object exists, use it instead. # $xdir was prepended to $pic_object above. non_pic_object="$pic_object" func_append non_pic_objects " $non_pic_object" fi else # Only an error if not doing a dry-run. if $opt_dry_run; then # Extract subdirectory from the argument. func_dirname "$arg" "/" "" xdir="$func_dirname_result" func_lo2o "$arg" pic_object=$xdir$objdir/$func_lo2o_result non_pic_object=$xdir$func_lo2o_result func_append libobjs " $pic_object" func_append non_pic_objects " $non_pic_object" else func_fatal_error "\`$arg' is not a valid libtool object" fi fi done else func_fatal_error "link input file \`$arg' does not exist" fi arg=$save_arg prev= continue ;; precious_regex) precious_files_regex="$arg" prev= continue ;; release) release="-$arg" prev= continue ;; rpath | xrpath) # We need an absolute path. case $arg in [\\/]* | [A-Za-z]:[\\/]*) ;; *) func_fatal_error "only absolute run-paths are allowed" ;; esac if test "$prev" = rpath; then case "$rpath " in *" $arg "*) ;; *) func_append rpath " $arg" ;; esac else case "$xrpath " in *" $arg "*) ;; *) func_append xrpath " $arg" ;; esac fi prev= continue ;; shrext) shrext_cmds="$arg" prev= continue ;; weak) func_append weak_libs " $arg" prev= continue ;; xcclinker) func_append linker_flags " $qarg" func_append compiler_flags " $qarg" prev= func_append compile_command " $qarg" func_append finalize_command " $qarg" continue ;; xcompiler) func_append compiler_flags " $qarg" prev= func_append compile_command " $qarg" func_append finalize_command " $qarg" continue ;; xlinker) func_append linker_flags " $qarg" func_append compiler_flags " $wl$qarg" prev= func_append compile_command " $wl$qarg" func_append finalize_command " $wl$qarg" continue ;; *) eval "$prev=\"\$arg\"" prev= continue ;; esac fi # test -n "$prev" prevarg="$arg" case $arg in -all-static) if test -n "$link_static_flag"; then # See comment for -static flag below, for more details. func_append compile_command " $link_static_flag" func_append finalize_command " $link_static_flag" fi continue ;; -allow-undefined) # FIXME: remove this flag sometime in the future. func_fatal_error "\`-allow-undefined' must not be used because it is the default" ;; -avoid-version) avoid_version=yes continue ;; -bindir) prev=bindir continue ;; -dlopen) prev=dlfiles continue ;; -dlpreopen) prev=dlprefiles continue ;; -export-dynamic) export_dynamic=yes continue ;; -export-symbols | -export-symbols-regex) if test -n "$export_symbols" || test -n "$export_symbols_regex"; then func_fatal_error "more than one -exported-symbols argument is not allowed" fi if test "X$arg" = "X-export-symbols"; then prev=expsyms else prev=expsyms_regex fi continue ;; -framework) prev=framework continue ;; -inst-prefix-dir) prev=inst_prefix continue ;; # The native IRIX linker understands -LANG:*, -LIST:* and -LNO:* # so, if we see these flags be careful not to treat them like -L -L[A-Z][A-Z]*:*) case $with_gcc/$host in no/*-*-irix* | /*-*-irix*) func_append compile_command " $arg" func_append finalize_command " $arg" ;; esac continue ;; -L*) func_stripname "-L" '' "$arg" if test -z "$func_stripname_result"; then if test "$#" -gt 0; then func_fatal_error "require no space between \`-L' and \`$1'" else func_fatal_error "need path for \`-L' option" fi fi func_resolve_sysroot "$func_stripname_result" dir=$func_resolve_sysroot_result # We need an absolute path. case $dir in [\\/]* | [A-Za-z]:[\\/]*) ;; *) absdir=`cd "$dir" && pwd` test -z "$absdir" && \ func_fatal_error "cannot determine absolute directory name of \`$dir'" dir="$absdir" ;; esac case "$deplibs " in *" -L$dir "* | *" $arg "*) # Will only happen for absolute or sysroot arguments ;; *) # Preserve sysroot, but never include relative directories case $dir in [\\/]* | [A-Za-z]:[\\/]* | =*) func_append deplibs " $arg" ;; *) func_append deplibs " -L$dir" ;; esac func_append lib_search_path " $dir" ;; esac case $host in *-*-cygwin* | *-*-mingw* | *-*-pw32* | *-*-os2* | *-cegcc*) testbindir=`$ECHO "$dir" | $SED 's*/lib$*/bin*'` case :$dllsearchpath: in *":$dir:"*) ;; ::) dllsearchpath=$dir;; *) func_append dllsearchpath ":$dir";; esac case :$dllsearchpath: in *":$testbindir:"*) ;; ::) dllsearchpath=$testbindir;; *) func_append dllsearchpath ":$testbindir";; esac ;; esac continue ;; -l*) if test "X$arg" = "X-lc" || test "X$arg" = "X-lm"; then case $host in *-*-cygwin* | *-*-mingw* | *-*-pw32* | *-*-beos* | *-cegcc* | *-*-haiku*) # These systems don't actually have a C or math library (as such) continue ;; *-*-os2*) # These systems don't actually have a C library (as such) test "X$arg" = "X-lc" && continue ;; *-*-openbsd* | *-*-freebsd* | *-*-dragonfly*) # Do not include libc due to us having libc/libc_r. test "X$arg" = "X-lc" && continue ;; *-*-rhapsody* | *-*-darwin1.[012]) # Rhapsody C and math libraries are in the System framework func_append deplibs " System.ltframework" continue ;; *-*-sco3.2v5* | *-*-sco5v6*) # Causes problems with __ctype test "X$arg" = "X-lc" && continue ;; *-*-sysv4.2uw2* | *-*-sysv5* | *-*-unixware* | *-*-OpenUNIX*) # Compiler inserts libc in the correct place for threads to work test "X$arg" = "X-lc" && continue ;; esac elif test "X$arg" = "X-lc_r"; then case $host in *-*-openbsd* | *-*-freebsd* | *-*-dragonfly*) # Do not include libc_r directly, use -pthread flag. continue ;; esac fi func_append deplibs " $arg" continue ;; -module) module=yes continue ;; # Tru64 UNIX uses -model [arg] to determine the layout of C++ # classes, name mangling, and exception handling. # Darwin uses the -arch flag to determine output architecture. -model|-arch|-isysroot|--sysroot) func_append compiler_flags " $arg" func_append compile_command " $arg" func_append finalize_command " $arg" prev=xcompiler continue ;; -mt|-mthreads|-kthread|-Kthread|-pthread|-pthreads|--thread-safe \ |-threads|-fopenmp|-openmp|-mp|-xopenmp|-omp|-qsmp=*) func_append compiler_flags " $arg" func_append compile_command " $arg" func_append finalize_command " $arg" case "$new_inherited_linker_flags " in *" $arg "*) ;; * ) func_append new_inherited_linker_flags " $arg" ;; esac continue ;; -multi_module) single_module="${wl}-multi_module" continue ;; -no-fast-install) fast_install=no continue ;; -no-install) case $host in *-*-cygwin* | *-*-mingw* | *-*-pw32* | *-*-os2* | *-*-darwin* | *-cegcc*) # The PATH hackery in wrapper scripts is required on Windows # and Darwin in order for the loader to find any dlls it needs. func_warning "\`-no-install' is ignored for $host" func_warning "assuming \`-no-fast-install' instead" fast_install=no ;; *) no_install=yes ;; esac continue ;; -no-undefined) allow_undefined=no continue ;; -objectlist) prev=objectlist continue ;; -o) prev=output ;; -precious-files-regex) prev=precious_regex continue ;; -release) prev=release continue ;; -rpath) prev=rpath continue ;; -R) prev=xrpath continue ;; -R*) func_stripname '-R' '' "$arg" dir=$func_stripname_result # We need an absolute path. case $dir in [\\/]* | [A-Za-z]:[\\/]*) ;; =*) func_stripname '=' '' "$dir" dir=$lt_sysroot$func_stripname_result ;; *) func_fatal_error "only absolute run-paths are allowed" ;; esac case "$xrpath " in *" $dir "*) ;; *) func_append xrpath " $dir" ;; esac continue ;; -shared) # The effects of -shared are defined in a previous loop. continue ;; -shrext) prev=shrext continue ;; -static | -static-libtool-libs) # The effects of -static are defined in a previous loop. # We used to do the same as -all-static on platforms that # didn't have a PIC flag, but the assumption that the effects # would be equivalent was wrong. It would break on at least # Digital Unix and AIX. continue ;; -thread-safe) thread_safe=yes continue ;; -version-info) prev=vinfo continue ;; -version-number) prev=vinfo vinfo_number=yes continue ;; -weak) prev=weak continue ;; -Wc,*) func_stripname '-Wc,' '' "$arg" args=$func_stripname_result arg= save_ifs="$IFS"; IFS=',' for flag in $args; do IFS="$save_ifs" func_quote_for_eval "$flag" func_append arg " $func_quote_for_eval_result" func_append compiler_flags " $func_quote_for_eval_result" done IFS="$save_ifs" func_stripname ' ' '' "$arg" arg=$func_stripname_result ;; -Wl,*) func_stripname '-Wl,' '' "$arg" args=$func_stripname_result arg= save_ifs="$IFS"; IFS=',' for flag in $args; do IFS="$save_ifs" func_quote_for_eval "$flag" func_append arg " $wl$func_quote_for_eval_result" func_append compiler_flags " $wl$func_quote_for_eval_result" func_append linker_flags " $func_quote_for_eval_result" done IFS="$save_ifs" func_stripname ' ' '' "$arg" arg=$func_stripname_result ;; -Xcompiler) prev=xcompiler continue ;; -Xlinker) prev=xlinker continue ;; -XCClinker) prev=xcclinker continue ;; # -msg_* for osf cc -msg_*) func_quote_for_eval "$arg" arg="$func_quote_for_eval_result" ;; # Flags to be passed through unchanged, with rationale: # -64, -mips[0-9] enable 64-bit mode for the SGI compiler # -r[0-9][0-9]* specify processor for the SGI compiler # -xarch=*, -xtarget=* enable 64-bit mode for the Sun compiler # +DA*, +DD* enable 64-bit mode for the HP compiler # -q* compiler args for the IBM compiler # -m*, -t[45]*, -txscale* architecture-specific flags for GCC # -F/path path to uninstalled frameworks, gcc on darwin # -p, -pg, --coverage, -fprofile-* profiling flags for GCC # @file GCC response files # -tp=* Portland pgcc target processor selection # --sysroot=* for sysroot support # -O*, -flto*, -fwhopr*, -fuse-linker-plugin GCC link-time optimization -64|-mips[0-9]|-r[0-9][0-9]*|-xarch=*|-xtarget=*|+DA*|+DD*|-q*|-m*| \ -t[45]*|-txscale*|-p|-pg|--coverage|-fprofile-*|-F*|@*|-tp=*|--sysroot=*| \ -O*|-flto*|-fwhopr*|-fuse-linker-plugin) func_quote_for_eval "$arg" arg="$func_quote_for_eval_result" func_append compile_command " $arg" func_append finalize_command " $arg" func_append compiler_flags " $arg" continue ;; # Some other compiler flag. -* | +*) func_quote_for_eval "$arg" arg="$func_quote_for_eval_result" ;; *.$objext) # A standard object. func_append objs " $arg" ;; *.lo) # A libtool-controlled object. # Check to see that this really is a libtool object. if func_lalib_unsafe_p "$arg"; then pic_object= non_pic_object= # Read the .lo file func_source "$arg" if test -z "$pic_object" || test -z "$non_pic_object" || test "$pic_object" = none && test "$non_pic_object" = none; then func_fatal_error "cannot find name of object for \`$arg'" fi # Extract subdirectory from the argument. func_dirname "$arg" "/" "" xdir="$func_dirname_result" if test "$pic_object" != none; then # Prepend the subdirectory the object is found in. pic_object="$xdir$pic_object" if test "$prev" = dlfiles; then if test "$build_libtool_libs" = yes && test "$dlopen_support" = yes; then func_append dlfiles " $pic_object" prev= continue else # If libtool objects are unsupported, then we need to preload. prev=dlprefiles fi fi # CHECK ME: I think I busted this. -Ossama if test "$prev" = dlprefiles; then # Preload the old-style object. func_append dlprefiles " $pic_object" prev= fi # A PIC object. func_append libobjs " $pic_object" arg="$pic_object" fi # Non-PIC object. if test "$non_pic_object" != none; then # Prepend the subdirectory the object is found in. non_pic_object="$xdir$non_pic_object" # A standard non-PIC object func_append non_pic_objects " $non_pic_object" if test -z "$pic_object" || test "$pic_object" = none ; then arg="$non_pic_object" fi else # If the PIC object exists, use it instead. # $xdir was prepended to $pic_object above. non_pic_object="$pic_object" func_append non_pic_objects " $non_pic_object" fi else # Only an error if not doing a dry-run. if $opt_dry_run; then # Extract subdirectory from the argument. func_dirname "$arg" "/" "" xdir="$func_dirname_result" func_lo2o "$arg" pic_object=$xdir$objdir/$func_lo2o_result non_pic_object=$xdir$func_lo2o_result func_append libobjs " $pic_object" func_append non_pic_objects " $non_pic_object" else func_fatal_error "\`$arg' is not a valid libtool object" fi fi ;; *.$libext) # An archive. func_append deplibs " $arg" func_append old_deplibs " $arg" continue ;; *.la) # A libtool-controlled library. func_resolve_sysroot "$arg" if test "$prev" = dlfiles; then # This library was specified with -dlopen. func_append dlfiles " $func_resolve_sysroot_result" prev= elif test "$prev" = dlprefiles; then # The library was specified with -dlpreopen. func_append dlprefiles " $func_resolve_sysroot_result" prev= else func_append deplibs " $func_resolve_sysroot_result" fi continue ;; # Some other compiler argument. *) # Unknown arguments in both finalize_command and compile_command need # to be aesthetically quoted because they are evaled later. func_quote_for_eval "$arg" arg="$func_quote_for_eval_result" ;; esac # arg # Now actually substitute the argument into the commands. if test -n "$arg"; then func_append compile_command " $arg" func_append finalize_command " $arg" fi done # argument parsing loop test -n "$prev" && \ func_fatal_help "the \`$prevarg' option requires an argument" if test "$export_dynamic" = yes && test -n "$export_dynamic_flag_spec"; then eval arg=\"$export_dynamic_flag_spec\" func_append compile_command " $arg" func_append finalize_command " $arg" fi oldlibs= # calculate the name of the file, without its directory func_basename "$output" outputname="$func_basename_result" libobjs_save="$libobjs" if test -n "$shlibpath_var"; then # get the directories listed in $shlibpath_var eval shlib_search_path=\`\$ECHO \"\${$shlibpath_var}\" \| \$SED \'s/:/ /g\'\` else shlib_search_path= fi eval sys_lib_search_path=\"$sys_lib_search_path_spec\" eval sys_lib_dlsearch_path=\"$sys_lib_dlsearch_path_spec\" func_dirname "$output" "/" "" output_objdir="$func_dirname_result$objdir" func_to_tool_file "$output_objdir/" tool_output_objdir=$func_to_tool_file_result # Create the object directory. func_mkdir_p "$output_objdir" # Determine the type of output case $output in "") func_fatal_help "you must specify an output file" ;; *.$libext) linkmode=oldlib ;; *.lo | *.$objext) linkmode=obj ;; *.la) linkmode=lib ;; *) linkmode=prog ;; # Anything else should be a program. esac specialdeplibs= libs= # Find all interdependent deplibs by searching for libraries # that are linked more than once (e.g. -la -lb -la) for deplib in $deplibs; do if $opt_preserve_dup_deps ; then case "$libs " in *" $deplib "*) func_append specialdeplibs " $deplib" ;; esac fi func_append libs " $deplib" done if test "$linkmode" = lib; then libs="$predeps $libs $compiler_lib_search_path $postdeps" # Compute libraries that are listed more than once in $predeps # $postdeps and mark them as special (i.e., whose duplicates are # not to be eliminated). pre_post_deps= if $opt_duplicate_compiler_generated_deps; then for pre_post_dep in $predeps $postdeps; do case "$pre_post_deps " in *" $pre_post_dep "*) func_append specialdeplibs " $pre_post_deps" ;; esac func_append pre_post_deps " $pre_post_dep" done fi pre_post_deps= fi deplibs= newdependency_libs= newlib_search_path= need_relink=no # whether we're linking any uninstalled libtool libraries notinst_deplibs= # not-installed libtool libraries notinst_path= # paths that contain not-installed libtool libraries case $linkmode in lib) passes="conv dlpreopen link" for file in $dlfiles $dlprefiles; do case $file in *.la) ;; *) func_fatal_help "libraries can \`-dlopen' only libtool libraries: $file" ;; esac done ;; prog) compile_deplibs= finalize_deplibs= alldeplibs=no newdlfiles= newdlprefiles= passes="conv scan dlopen dlpreopen link" ;; *) passes="conv" ;; esac for pass in $passes; do # The preopen pass in lib mode reverses $deplibs; put it back here # so that -L comes before libs that need it for instance... if test "$linkmode,$pass" = "lib,link"; then ## FIXME: Find the place where the list is rebuilt in the wrong ## order, and fix it there properly tmp_deplibs= for deplib in $deplibs; do tmp_deplibs="$deplib $tmp_deplibs" done deplibs="$tmp_deplibs" fi if test "$linkmode,$pass" = "lib,link" || test "$linkmode,$pass" = "prog,scan"; then libs="$deplibs" deplibs= fi if test "$linkmode" = prog; then case $pass in dlopen) libs="$dlfiles" ;; dlpreopen) libs="$dlprefiles" ;; link) libs="$deplibs %DEPLIBS%" test "X$link_all_deplibs" != Xno && libs="$libs $dependency_libs" ;; esac fi if test "$linkmode,$pass" = "lib,dlpreopen"; then # Collect and forward deplibs of preopened libtool libs for lib in $dlprefiles; do # Ignore non-libtool-libs dependency_libs= func_resolve_sysroot "$lib" case $lib in *.la) func_source "$func_resolve_sysroot_result" ;; esac # Collect preopened libtool deplibs, except any this library # has declared as weak libs for deplib in $dependency_libs; do func_basename "$deplib" deplib_base=$func_basename_result case " $weak_libs " in *" $deplib_base "*) ;; *) func_append deplibs " $deplib" ;; esac done done libs="$dlprefiles" fi if test "$pass" = dlopen; then # Collect dlpreopened libraries save_deplibs="$deplibs" deplibs= fi for deplib in $libs; do lib= found=no case $deplib in -mt|-mthreads|-kthread|-Kthread|-pthread|-pthreads|--thread-safe \ |-threads|-fopenmp|-openmp|-mp|-xopenmp|-omp|-qsmp=*) if test "$linkmode,$pass" = "prog,link"; then compile_deplibs="$deplib $compile_deplibs" finalize_deplibs="$deplib $finalize_deplibs" else func_append compiler_flags " $deplib" if test "$linkmode" = lib ; then case "$new_inherited_linker_flags " in *" $deplib "*) ;; * ) func_append new_inherited_linker_flags " $deplib" ;; esac fi fi continue ;; -l*) if test "$linkmode" != lib && test "$linkmode" != prog; then func_warning "\`-l' is ignored for archives/objects" continue fi func_stripname '-l' '' "$deplib" name=$func_stripname_result if test "$linkmode" = lib; then searchdirs="$newlib_search_path $lib_search_path $compiler_lib_search_dirs $sys_lib_search_path $shlib_search_path" else searchdirs="$newlib_search_path $lib_search_path $sys_lib_search_path $shlib_search_path" fi for searchdir in $searchdirs; do for search_ext in .la $std_shrext .so .a; do # Search the libtool library lib="$searchdir/lib${name}${search_ext}" if test -f "$lib"; then if test "$search_ext" = ".la"; then found=yes else found=no fi break 2 fi done done if test "$found" != yes; then # deplib doesn't seem to be a libtool library if test "$linkmode,$pass" = "prog,link"; then compile_deplibs="$deplib $compile_deplibs" finalize_deplibs="$deplib $finalize_deplibs" else deplibs="$deplib $deplibs" test "$linkmode" = lib && newdependency_libs="$deplib $newdependency_libs" fi continue else # deplib is a libtool library # If $allow_libtool_libs_with_static_runtimes && $deplib is a stdlib, # We need to do some special things here, and not later. if test "X$allow_libtool_libs_with_static_runtimes" = "Xyes" ; then case " $predeps $postdeps " in *" $deplib "*) if func_lalib_p "$lib"; then library_names= old_library= func_source "$lib" for l in $old_library $library_names; do ll="$l" done if test "X$ll" = "X$old_library" ; then # only static version available found=no func_dirname "$lib" "" "." ladir="$func_dirname_result" lib=$ladir/$old_library if test "$linkmode,$pass" = "prog,link"; then compile_deplibs="$deplib $compile_deplibs" finalize_deplibs="$deplib $finalize_deplibs" else deplibs="$deplib $deplibs" test "$linkmode" = lib && newdependency_libs="$deplib $newdependency_libs" fi continue fi fi ;; *) ;; esac fi fi ;; # -l *.ltframework) if test "$linkmode,$pass" = "prog,link"; then compile_deplibs="$deplib $compile_deplibs" finalize_deplibs="$deplib $finalize_deplibs" else deplibs="$deplib $deplibs" if test "$linkmode" = lib ; then case "$new_inherited_linker_flags " in *" $deplib "*) ;; * ) func_append new_inherited_linker_flags " $deplib" ;; esac fi fi continue ;; -L*) case $linkmode in lib) deplibs="$deplib $deplibs" test "$pass" = conv && continue newdependency_libs="$deplib $newdependency_libs" func_stripname '-L' '' "$deplib" func_resolve_sysroot "$func_stripname_result" func_append newlib_search_path " $func_resolve_sysroot_result" ;; prog) if test "$pass" = conv; then deplibs="$deplib $deplibs" continue fi if test "$pass" = scan; then deplibs="$deplib $deplibs" else compile_deplibs="$deplib $compile_deplibs" finalize_deplibs="$deplib $finalize_deplibs" fi func_stripname '-L' '' "$deplib" func_resolve_sysroot "$func_stripname_result" func_append newlib_search_path " $func_resolve_sysroot_result" ;; *) func_warning "\`-L' is ignored for archives/objects" ;; esac # linkmode continue ;; # -L -R*) if test "$pass" = link; then func_stripname '-R' '' "$deplib" func_resolve_sysroot "$func_stripname_result" dir=$func_resolve_sysroot_result # Make sure the xrpath contains only unique directories. case "$xrpath " in *" $dir "*) ;; *) func_append xrpath " $dir" ;; esac fi deplibs="$deplib $deplibs" continue ;; *.la) func_resolve_sysroot "$deplib" lib=$func_resolve_sysroot_result ;; *.$libext) if test "$pass" = conv; then deplibs="$deplib $deplibs" continue fi case $linkmode in lib) # Linking convenience modules into shared libraries is allowed, # but linking other static libraries is non-portable. case " $dlpreconveniencelibs " in *" $deplib "*) ;; *) valid_a_lib=no case $deplibs_check_method in match_pattern*) set dummy $deplibs_check_method; shift match_pattern_regex=`expr "$deplibs_check_method" : "$1 \(.*\)"` if eval "\$ECHO \"$deplib\"" 2>/dev/null | $SED 10q \ | $EGREP "$match_pattern_regex" > /dev/null; then valid_a_lib=yes fi ;; pass_all) valid_a_lib=yes ;; esac if test "$valid_a_lib" != yes; then echo $ECHO "*** Warning: Trying to link with static lib archive $deplib." echo "*** I have the capability to make that library automatically link in when" echo "*** you link to this library. But I can only do this if you have a" echo "*** shared version of the library, which you do not appear to have" echo "*** because the file extensions .$libext of this argument makes me believe" echo "*** that it is just a static archive that I should not use here." else echo $ECHO "*** Warning: Linking the shared library $output against the" $ECHO "*** static library $deplib is not portable!" deplibs="$deplib $deplibs" fi ;; esac continue ;; prog) if test "$pass" != link; then deplibs="$deplib $deplibs" else compile_deplibs="$deplib $compile_deplibs" finalize_deplibs="$deplib $finalize_deplibs" fi continue ;; esac # linkmode ;; # *.$libext *.lo | *.$objext) if test "$pass" = conv; then deplibs="$deplib $deplibs" elif test "$linkmode" = prog; then if test "$pass" = dlpreopen || test "$dlopen_support" != yes || test "$build_libtool_libs" = no; then # If there is no dlopen support or we're linking statically, # we need to preload. func_append newdlprefiles " $deplib" compile_deplibs="$deplib $compile_deplibs" finalize_deplibs="$deplib $finalize_deplibs" else func_append newdlfiles " $deplib" fi fi continue ;; %DEPLIBS%) alldeplibs=yes continue ;; esac # case $deplib if test "$found" = yes || test -f "$lib"; then : else func_fatal_error "cannot find the library \`$lib' or unhandled argument \`$deplib'" fi # Check to see that this really is a libtool archive. func_lalib_unsafe_p "$lib" \ || func_fatal_error "\`$lib' is not a valid libtool archive" func_dirname "$lib" "" "." ladir="$func_dirname_result" dlname= dlopen= dlpreopen= libdir= library_names= old_library= inherited_linker_flags= # If the library was installed with an old release of libtool, # it will not redefine variables installed, or shouldnotlink installed=yes shouldnotlink=no avoidtemprpath= # Read the .la file func_source "$lib" # Convert "-framework foo" to "foo.ltframework" if test -n "$inherited_linker_flags"; then tmp_inherited_linker_flags=`$ECHO "$inherited_linker_flags" | $SED 's/-framework \([^ $]*\)/\1.ltframework/g'` for tmp_inherited_linker_flag in $tmp_inherited_linker_flags; do case " $new_inherited_linker_flags " in *" $tmp_inherited_linker_flag "*) ;; *) func_append new_inherited_linker_flags " $tmp_inherited_linker_flag";; esac done fi dependency_libs=`$ECHO " $dependency_libs" | $SED 's% \([^ $]*\).ltframework% -framework \1%g'` if test "$linkmode,$pass" = "lib,link" || test "$linkmode,$pass" = "prog,scan" || { test "$linkmode" != prog && test "$linkmode" != lib; }; then test -n "$dlopen" && func_append dlfiles " $dlopen" test -n "$dlpreopen" && func_append dlprefiles " $dlpreopen" fi if test "$pass" = conv; then # Only check for convenience libraries deplibs="$lib $deplibs" if test -z "$libdir"; then if test -z "$old_library"; then func_fatal_error "cannot find name of link library for \`$lib'" fi # It is a libtool convenience library, so add in its objects. func_append convenience " $ladir/$objdir/$old_library" func_append old_convenience " $ladir/$objdir/$old_library" tmp_libs= for deplib in $dependency_libs; do deplibs="$deplib $deplibs" if $opt_preserve_dup_deps ; then case "$tmp_libs " in *" $deplib "*) func_append specialdeplibs " $deplib" ;; esac fi func_append tmp_libs " $deplib" done elif test "$linkmode" != prog && test "$linkmode" != lib; then func_fatal_error "\`$lib' is not a convenience library" fi continue fi # $pass = conv # Get the name of the library we link against. linklib= if test -n "$old_library" && { test "$prefer_static_libs" = yes || test "$prefer_static_libs,$installed" = "built,no"; }; then linklib=$old_library else for l in $old_library $library_names; do linklib="$l" done fi if test -z "$linklib"; then func_fatal_error "cannot find name of link library for \`$lib'" fi # This library was specified with -dlopen. if test "$pass" = dlopen; then if test -z "$libdir"; then func_fatal_error "cannot -dlopen a convenience library: \`$lib'" fi if test -z "$dlname" || test "$dlopen_support" != yes || test "$build_libtool_libs" = no; then # If there is no dlname, no dlopen support or we're linking # statically, we need to preload. We also need to preload any # dependent libraries so libltdl's deplib preloader doesn't # bomb out in the load deplibs phase. func_append dlprefiles " $lib $dependency_libs" else func_append newdlfiles " $lib" fi continue fi # $pass = dlopen # We need an absolute path. case $ladir in [\\/]* | [A-Za-z]:[\\/]*) abs_ladir="$ladir" ;; *) abs_ladir=`cd "$ladir" && pwd` if test -z "$abs_ladir"; then func_warning "cannot determine absolute directory name of \`$ladir'" func_warning "passing it literally to the linker, although it might fail" abs_ladir="$ladir" fi ;; esac func_basename "$lib" laname="$func_basename_result" # Find the relevant object directory and library name. if test "X$installed" = Xyes; then if test ! -f "$lt_sysroot$libdir/$linklib" && test -f "$abs_ladir/$linklib"; then func_warning "library \`$lib' was moved." dir="$ladir" absdir="$abs_ladir" libdir="$abs_ladir" else dir="$lt_sysroot$libdir" absdir="$lt_sysroot$libdir" fi test "X$hardcode_automatic" = Xyes && avoidtemprpath=yes else if test ! -f "$ladir/$objdir/$linklib" && test -f "$abs_ladir/$linklib"; then dir="$ladir" absdir="$abs_ladir" # Remove this search path later func_append notinst_path " $abs_ladir" else dir="$ladir/$objdir" absdir="$abs_ladir/$objdir" # Remove this search path later func_append notinst_path " $abs_ladir" fi fi # $installed = yes func_stripname 'lib' '.la' "$laname" name=$func_stripname_result # This library was specified with -dlpreopen. if test "$pass" = dlpreopen; then if test -z "$libdir" && test "$linkmode" = prog; then func_fatal_error "only libraries may -dlpreopen a convenience library: \`$lib'" fi case "$host" in # special handling for platforms with PE-DLLs. *cygwin* | *mingw* | *cegcc* ) # Linker will automatically link against shared library if both # static and shared are present. Therefore, ensure we extract # symbols from the import library if a shared library is present # (otherwise, the dlopen module name will be incorrect). We do # this by putting the import library name into $newdlprefiles. # We recover the dlopen module name by 'saving' the la file # name in a special purpose variable, and (later) extracting the # dlname from the la file. if test -n "$dlname"; then func_tr_sh "$dir/$linklib" eval "libfile_$func_tr_sh_result=\$abs_ladir/\$laname" func_append newdlprefiles " $dir/$linklib" else func_append newdlprefiles " $dir/$old_library" # Keep a list of preopened convenience libraries to check # that they are being used correctly in the link pass. test -z "$libdir" && \ func_append dlpreconveniencelibs " $dir/$old_library" fi ;; * ) # Prefer using a static library (so that no silly _DYNAMIC symbols # are required to link). if test -n "$old_library"; then func_append newdlprefiles " $dir/$old_library" # Keep a list of preopened convenience libraries to check # that they are being used correctly in the link pass. test -z "$libdir" && \ func_append dlpreconveniencelibs " $dir/$old_library" # Otherwise, use the dlname, so that lt_dlopen finds it. elif test -n "$dlname"; then func_append newdlprefiles " $dir/$dlname" else func_append newdlprefiles " $dir/$linklib" fi ;; esac fi # $pass = dlpreopen if test -z "$libdir"; then # Link the convenience library if test "$linkmode" = lib; then deplibs="$dir/$old_library $deplibs" elif test "$linkmode,$pass" = "prog,link"; then compile_deplibs="$dir/$old_library $compile_deplibs" finalize_deplibs="$dir/$old_library $finalize_deplibs" else deplibs="$lib $deplibs" # used for prog,scan pass fi continue fi if test "$linkmode" = prog && test "$pass" != link; then func_append newlib_search_path " $ladir" deplibs="$lib $deplibs" linkalldeplibs=no if test "$link_all_deplibs" != no || test -z "$library_names" || test "$build_libtool_libs" = no; then linkalldeplibs=yes fi tmp_libs= for deplib in $dependency_libs; do case $deplib in -L*) func_stripname '-L' '' "$deplib" func_resolve_sysroot "$func_stripname_result" func_append newlib_search_path " $func_resolve_sysroot_result" ;; esac # Need to link against all dependency_libs? if test "$linkalldeplibs" = yes; then deplibs="$deplib $deplibs" else # Need to hardcode shared library paths # or/and link against static libraries newdependency_libs="$deplib $newdependency_libs" fi if $opt_preserve_dup_deps ; then case "$tmp_libs " in *" $deplib "*) func_append specialdeplibs " $deplib" ;; esac fi func_append tmp_libs " $deplib" done # for deplib continue fi # $linkmode = prog... if test "$linkmode,$pass" = "prog,link"; then if test -n "$library_names" && { { test "$prefer_static_libs" = no || test "$prefer_static_libs,$installed" = "built,yes"; } || test -z "$old_library"; }; then # We need to hardcode the library path if test -n "$shlibpath_var" && test -z "$avoidtemprpath" ; then # Make sure the rpath contains only unique directories. case "$temp_rpath:" in *"$absdir:"*) ;; *) func_append temp_rpath "$absdir:" ;; esac fi # Hardcode the library path. # Skip directories that are in the system default run-time # search path. case " $sys_lib_dlsearch_path " in *" $absdir "*) ;; *) case "$compile_rpath " in *" $absdir "*) ;; *) func_append compile_rpath " $absdir" ;; esac ;; esac case " $sys_lib_dlsearch_path " in *" $libdir "*) ;; *) case "$finalize_rpath " in *" $libdir "*) ;; *) func_append finalize_rpath " $libdir" ;; esac ;; esac fi # $linkmode,$pass = prog,link... if test "$alldeplibs" = yes && { test "$deplibs_check_method" = pass_all || { test "$build_libtool_libs" = yes && test -n "$library_names"; }; }; then # We only need to search for static libraries continue fi fi link_static=no # Whether the deplib will be linked statically use_static_libs=$prefer_static_libs if test "$use_static_libs" = built && test "$installed" = yes; then use_static_libs=no fi if test -n "$library_names" && { test "$use_static_libs" = no || test -z "$old_library"; }; then case $host in *cygwin* | *mingw* | *cegcc*) # No point in relinking DLLs because paths are not encoded func_append notinst_deplibs " $lib" need_relink=no ;; *) if test "$installed" = no; then func_append notinst_deplibs " $lib" need_relink=yes fi ;; esac # This is a shared library # Warn about portability, can't link against -module's on some # systems (darwin). Don't bleat about dlopened modules though! dlopenmodule="" for dlpremoduletest in $dlprefiles; do if test "X$dlpremoduletest" = "X$lib"; then dlopenmodule="$dlpremoduletest" break fi done if test -z "$dlopenmodule" && test "$shouldnotlink" = yes && test "$pass" = link; then echo if test "$linkmode" = prog; then $ECHO "*** Warning: Linking the executable $output against the loadable module" else $ECHO "*** Warning: Linking the shared library $output against the loadable module" fi $ECHO "*** $linklib is not portable!" fi if test "$linkmode" = lib && test "$hardcode_into_libs" = yes; then # Hardcode the library path. # Skip directories that are in the system default run-time # search path. case " $sys_lib_dlsearch_path " in *" $absdir "*) ;; *) case "$compile_rpath " in *" $absdir "*) ;; *) func_append compile_rpath " $absdir" ;; esac ;; esac case " $sys_lib_dlsearch_path " in *" $libdir "*) ;; *) case "$finalize_rpath " in *" $libdir "*) ;; *) func_append finalize_rpath " $libdir" ;; esac ;; esac fi if test -n "$old_archive_from_expsyms_cmds"; then # figure out the soname set dummy $library_names shift realname="$1" shift libname=`eval "\\$ECHO \"$libname_spec\""` # use dlname if we got it. it's perfectly good, no? if test -n "$dlname"; then soname="$dlname" elif test -n "$soname_spec"; then # bleh windows case $host in *cygwin* | mingw* | *cegcc*) func_arith $current - $age major=$func_arith_result versuffix="-$major" ;; esac eval soname=\"$soname_spec\" else soname="$realname" fi # Make a new name for the extract_expsyms_cmds to use soroot="$soname" func_basename "$soroot" soname="$func_basename_result" func_stripname 'lib' '.dll' "$soname" newlib=libimp-$func_stripname_result.a # If the library has no export list, then create one now if test -f "$output_objdir/$soname-def"; then : else func_verbose "extracting exported symbol list from \`$soname'" func_execute_cmds "$extract_expsyms_cmds" 'exit $?' fi # Create $newlib if test -f "$output_objdir/$newlib"; then :; else func_verbose "generating import library for \`$soname'" func_execute_cmds "$old_archive_from_expsyms_cmds" 'exit $?' fi # make sure the library variables are pointing to the new library dir=$output_objdir linklib=$newlib fi # test -n "$old_archive_from_expsyms_cmds" if test "$linkmode" = prog || test "$opt_mode" != relink; then add_shlibpath= add_dir= add= lib_linked=yes case $hardcode_action in immediate | unsupported) if test "$hardcode_direct" = no; then add="$dir/$linklib" case $host in *-*-sco3.2v5.0.[024]*) add_dir="-L$dir" ;; *-*-sysv4*uw2*) add_dir="-L$dir" ;; *-*-sysv5OpenUNIX* | *-*-sysv5UnixWare7.[01].[10]* | \ *-*-unixware7*) add_dir="-L$dir" ;; *-*-darwin* ) # if the lib is a (non-dlopened) module then we can not # link against it, someone is ignoring the earlier warnings if /usr/bin/file -L $add 2> /dev/null | $GREP ": [^:]* bundle" >/dev/null ; then if test "X$dlopenmodule" != "X$lib"; then $ECHO "*** Warning: lib $linklib is a module, not a shared library" if test -z "$old_library" ; then echo echo "*** And there doesn't seem to be a static archive available" echo "*** The link will probably fail, sorry" else add="$dir/$old_library" fi elif test -n "$old_library"; then add="$dir/$old_library" fi fi esac elif test "$hardcode_minus_L" = no; then case $host in *-*-sunos*) add_shlibpath="$dir" ;; esac add_dir="-L$dir" add="-l$name" elif test "$hardcode_shlibpath_var" = no; then add_shlibpath="$dir" add="-l$name" else lib_linked=no fi ;; relink) if test "$hardcode_direct" = yes && test "$hardcode_direct_absolute" = no; then add="$dir/$linklib" elif test "$hardcode_minus_L" = yes; then add_dir="-L$absdir" # Try looking first in the location we're being installed to. if test -n "$inst_prefix_dir"; then case $libdir in [\\/]*) func_append add_dir " -L$inst_prefix_dir$libdir" ;; esac fi add="-l$name" elif test "$hardcode_shlibpath_var" = yes; then add_shlibpath="$dir" add="-l$name" else lib_linked=no fi ;; *) lib_linked=no ;; esac if test "$lib_linked" != yes; then func_fatal_configuration "unsupported hardcode properties" fi if test -n "$add_shlibpath"; then case :$compile_shlibpath: in *":$add_shlibpath:"*) ;; *) func_append compile_shlibpath "$add_shlibpath:" ;; esac fi if test "$linkmode" = prog; then test -n "$add_dir" && compile_deplibs="$add_dir $compile_deplibs" test -n "$add" && compile_deplibs="$add $compile_deplibs" else test -n "$add_dir" && deplibs="$add_dir $deplibs" test -n "$add" && deplibs="$add $deplibs" if test "$hardcode_direct" != yes && test "$hardcode_minus_L" != yes && test "$hardcode_shlibpath_var" = yes; then case :$finalize_shlibpath: in *":$libdir:"*) ;; *) func_append finalize_shlibpath "$libdir:" ;; esac fi fi fi if test "$linkmode" = prog || test "$opt_mode" = relink; then add_shlibpath= add_dir= add= # Finalize command for both is simple: just hardcode it. if test "$hardcode_direct" = yes && test "$hardcode_direct_absolute" = no; then add="$libdir/$linklib" elif test "$hardcode_minus_L" = yes; then add_dir="-L$libdir" add="-l$name" elif test "$hardcode_shlibpath_var" = yes; then case :$finalize_shlibpath: in *":$libdir:"*) ;; *) func_append finalize_shlibpath "$libdir:" ;; esac add="-l$name" elif test "$hardcode_automatic" = yes; then if test -n "$inst_prefix_dir" && test -f "$inst_prefix_dir$libdir/$linklib" ; then add="$inst_prefix_dir$libdir/$linklib" else add="$libdir/$linklib" fi else # We cannot seem to hardcode it, guess we'll fake it. add_dir="-L$libdir" # Try looking first in the location we're being installed to. if test -n "$inst_prefix_dir"; then case $libdir in [\\/]*) func_append add_dir " -L$inst_prefix_dir$libdir" ;; esac fi add="-l$name" fi if test "$linkmode" = prog; then test -n "$add_dir" && finalize_deplibs="$add_dir $finalize_deplibs" test -n "$add" && finalize_deplibs="$add $finalize_deplibs" else test -n "$add_dir" && deplibs="$add_dir $deplibs" test -n "$add" && deplibs="$add $deplibs" fi fi elif test "$linkmode" = prog; then # Here we assume that one of hardcode_direct or hardcode_minus_L # is not unsupported. This is valid on all known static and # shared platforms. if test "$hardcode_direct" != unsupported; then test -n "$old_library" && linklib="$old_library" compile_deplibs="$dir/$linklib $compile_deplibs" finalize_deplibs="$dir/$linklib $finalize_deplibs" else compile_deplibs="-l$name -L$dir $compile_deplibs" finalize_deplibs="-l$name -L$dir $finalize_deplibs" fi elif test "$build_libtool_libs" = yes; then # Not a shared library if test "$deplibs_check_method" != pass_all; then # We're trying link a shared library against a static one # but the system doesn't support it. # Just print a warning and add the library to dependency_libs so # that the program can be linked against the static library. echo $ECHO "*** Warning: This system can not link to static lib archive $lib." echo "*** I have the capability to make that library automatically link in when" echo "*** you link to this library. But I can only do this if you have a" echo "*** shared version of the library, which you do not appear to have." if test "$module" = yes; then echo "*** But as you try to build a module library, libtool will still create " echo "*** a static module, that should work as long as the dlopening application" echo "*** is linked with the -dlopen flag to resolve symbols at runtime." if test -z "$global_symbol_pipe"; then echo echo "*** However, this would only work if libtool was able to extract symbol" echo "*** lists from a program, using \`nm' or equivalent, but libtool could" echo "*** not find such a program. So, this module is probably useless." echo "*** \`nm' from GNU binutils and a full rebuild may help." fi if test "$build_old_libs" = no; then build_libtool_libs=module build_old_libs=yes else build_libtool_libs=no fi fi else deplibs="$dir/$old_library $deplibs" link_static=yes fi fi # link shared/static library? if test "$linkmode" = lib; then if test -n "$dependency_libs" && { test "$hardcode_into_libs" != yes || test "$build_old_libs" = yes || test "$link_static" = yes; }; then # Extract -R from dependency_libs temp_deplibs= for libdir in $dependency_libs; do case $libdir in -R*) func_stripname '-R' '' "$libdir" temp_xrpath=$func_stripname_result case " $xrpath " in *" $temp_xrpath "*) ;; *) func_append xrpath " $temp_xrpath";; esac;; *) func_append temp_deplibs " $libdir";; esac done dependency_libs="$temp_deplibs" fi func_append newlib_search_path " $absdir" # Link against this library test "$link_static" = no && newdependency_libs="$abs_ladir/$laname $newdependency_libs" # ... and its dependency_libs tmp_libs= for deplib in $dependency_libs; do newdependency_libs="$deplib $newdependency_libs" case $deplib in -L*) func_stripname '-L' '' "$deplib" func_resolve_sysroot "$func_stripname_result";; *) func_resolve_sysroot "$deplib" ;; esac if $opt_preserve_dup_deps ; then case "$tmp_libs " in *" $func_resolve_sysroot_result "*) func_append specialdeplibs " $func_resolve_sysroot_result" ;; esac fi func_append tmp_libs " $func_resolve_sysroot_result" done if test "$link_all_deplibs" != no; then # Add the search paths of all dependency libraries for deplib in $dependency_libs; do path= case $deplib in -L*) path="$deplib" ;; *.la) func_resolve_sysroot "$deplib" deplib=$func_resolve_sysroot_result func_dirname "$deplib" "" "." dir=$func_dirname_result # We need an absolute path. case $dir in [\\/]* | [A-Za-z]:[\\/]*) absdir="$dir" ;; *) absdir=`cd "$dir" && pwd` if test -z "$absdir"; then func_warning "cannot determine absolute directory name of \`$dir'" absdir="$dir" fi ;; esac if $GREP "^installed=no" $deplib > /dev/null; then case $host in *-*-darwin*) depdepl= eval deplibrary_names=`${SED} -n -e 's/^library_names=\(.*\)$/\1/p' $deplib` if test -n "$deplibrary_names" ; then for tmp in $deplibrary_names ; do depdepl=$tmp done if test -f "$absdir/$objdir/$depdepl" ; then depdepl="$absdir/$objdir/$depdepl" darwin_install_name=`${OTOOL} -L $depdepl | awk '{if (NR == 2) {print $1;exit}}'` if test -z "$darwin_install_name"; then darwin_install_name=`${OTOOL64} -L $depdepl | awk '{if (NR == 2) {print $1;exit}}'` fi func_append compiler_flags " ${wl}-dylib_file ${wl}${darwin_install_name}:${depdepl}" func_append linker_flags " -dylib_file ${darwin_install_name}:${depdepl}" path= fi fi ;; *) path="-L$absdir/$objdir" ;; esac else eval libdir=`${SED} -n -e 's/^libdir=\(.*\)$/\1/p' $deplib` test -z "$libdir" && \ func_fatal_error "\`$deplib' is not a valid libtool archive" test "$absdir" != "$libdir" && \ func_warning "\`$deplib' seems to be moved" path="-L$absdir" fi ;; esac case " $deplibs " in *" $path "*) ;; *) deplibs="$path $deplibs" ;; esac done fi # link_all_deplibs != no fi # linkmode = lib done # for deplib in $libs if test "$pass" = link; then if test "$linkmode" = "prog"; then compile_deplibs="$new_inherited_linker_flags $compile_deplibs" finalize_deplibs="$new_inherited_linker_flags $finalize_deplibs" else compiler_flags="$compiler_flags "`$ECHO " $new_inherited_linker_flags" | $SED 's% \([^ $]*\).ltframework% -framework \1%g'` fi fi dependency_libs="$newdependency_libs" if test "$pass" = dlpreopen; then # Link the dlpreopened libraries before other libraries for deplib in $save_deplibs; do deplibs="$deplib $deplibs" done fi if test "$pass" != dlopen; then if test "$pass" != conv; then # Make sure lib_search_path contains only unique directories. lib_search_path= for dir in $newlib_search_path; do case "$lib_search_path " in *" $dir "*) ;; *) func_append lib_search_path " $dir" ;; esac done newlib_search_path= fi if test "$linkmode,$pass" != "prog,link"; then vars="deplibs" else vars="compile_deplibs finalize_deplibs" fi for var in $vars dependency_libs; do # Add libraries to $var in reverse order eval tmp_libs=\"\$$var\" new_libs= for deplib in $tmp_libs; do # FIXME: Pedantically, this is the right thing to do, so # that some nasty dependency loop isn't accidentally # broken: #new_libs="$deplib $new_libs" # Pragmatically, this seems to cause very few problems in # practice: case $deplib in -L*) new_libs="$deplib $new_libs" ;; -R*) ;; *) # And here is the reason: when a library appears more # than once as an explicit dependence of a library, or # is implicitly linked in more than once by the # compiler, it is considered special, and multiple # occurrences thereof are not removed. Compare this # with having the same library being listed as a # dependency of multiple other libraries: in this case, # we know (pedantically, we assume) the library does not # need to be listed more than once, so we keep only the # last copy. This is not always right, but it is rare # enough that we require users that really mean to play # such unportable linking tricks to link the library # using -Wl,-lname, so that libtool does not consider it # for duplicate removal. case " $specialdeplibs " in *" $deplib "*) new_libs="$deplib $new_libs" ;; *) case " $new_libs " in *" $deplib "*) ;; *) new_libs="$deplib $new_libs" ;; esac ;; esac ;; esac done tmp_libs= for deplib in $new_libs; do case $deplib in -L*) case " $tmp_libs " in *" $deplib "*) ;; *) func_append tmp_libs " $deplib" ;; esac ;; *) func_append tmp_libs " $deplib" ;; esac done eval $var=\"$tmp_libs\" done # for var fi # Last step: remove runtime libs from dependency_libs # (they stay in deplibs) tmp_libs= for i in $dependency_libs ; do case " $predeps $postdeps $compiler_lib_search_path " in *" $i "*) i="" ;; esac if test -n "$i" ; then func_append tmp_libs " $i" fi done dependency_libs=$tmp_libs done # for pass if test "$linkmode" = prog; then dlfiles="$newdlfiles" fi if test "$linkmode" = prog || test "$linkmode" = lib; then dlprefiles="$newdlprefiles" fi case $linkmode in oldlib) if test -n "$dlfiles$dlprefiles" || test "$dlself" != no; then func_warning "\`-dlopen' is ignored for archives" fi case " $deplibs" in *\ -l* | *\ -L*) func_warning "\`-l' and \`-L' are ignored for archives" ;; esac test -n "$rpath" && \ func_warning "\`-rpath' is ignored for archives" test -n "$xrpath" && \ func_warning "\`-R' is ignored for archives" test -n "$vinfo" && \ func_warning "\`-version-info/-version-number' is ignored for archives" test -n "$release" && \ func_warning "\`-release' is ignored for archives" test -n "$export_symbols$export_symbols_regex" && \ func_warning "\`-export-symbols' is ignored for archives" # Now set the variables for building old libraries. build_libtool_libs=no oldlibs="$output" func_append objs "$old_deplibs" ;; lib) # Make sure we only generate libraries of the form `libNAME.la'. case $outputname in lib*) func_stripname 'lib' '.la' "$outputname" name=$func_stripname_result eval shared_ext=\"$shrext_cmds\" eval libname=\"$libname_spec\" ;; *) test "$module" = no && \ func_fatal_help "libtool library \`$output' must begin with \`lib'" if test "$need_lib_prefix" != no; then # Add the "lib" prefix for modules if required func_stripname '' '.la' "$outputname" name=$func_stripname_result eval shared_ext=\"$shrext_cmds\" eval libname=\"$libname_spec\" else func_stripname '' '.la' "$outputname" libname=$func_stripname_result fi ;; esac if test -n "$objs"; then if test "$deplibs_check_method" != pass_all; then func_fatal_error "cannot build libtool library \`$output' from non-libtool objects on this host:$objs" else echo $ECHO "*** Warning: Linking the shared library $output against the non-libtool" $ECHO "*** objects $objs is not portable!" func_append libobjs " $objs" fi fi test "$dlself" != no && \ func_warning "\`-dlopen self' is ignored for libtool libraries" set dummy $rpath shift test "$#" -gt 1 && \ func_warning "ignoring multiple \`-rpath's for a libtool library" install_libdir="$1" oldlibs= if test -z "$rpath"; then if test "$build_libtool_libs" = yes; then # Building a libtool convenience library. # Some compilers have problems with a `.al' extension so # convenience libraries should have the same extension an # archive normally would. oldlibs="$output_objdir/$libname.$libext $oldlibs" build_libtool_libs=convenience build_old_libs=yes fi test -n "$vinfo" && \ func_warning "\`-version-info/-version-number' is ignored for convenience libraries" test -n "$release" && \ func_warning "\`-release' is ignored for convenience libraries" else # Parse the version information argument. save_ifs="$IFS"; IFS=':' set dummy $vinfo 0 0 0 shift IFS="$save_ifs" test -n "$7" && \ func_fatal_help "too many parameters to \`-version-info'" # convert absolute version numbers to libtool ages # this retains compatibility with .la files and attempts # to make the code below a bit more comprehensible case $vinfo_number in yes) number_major="$1" number_minor="$2" number_revision="$3" # # There are really only two kinds -- those that # use the current revision as the major version # and those that subtract age and use age as # a minor version. But, then there is irix # which has an extra 1 added just for fun # case $version_type in # correct linux to gnu/linux during the next big refactor darwin|linux|osf|windows|none) func_arith $number_major + $number_minor current=$func_arith_result age="$number_minor" revision="$number_revision" ;; freebsd-aout|freebsd-elf|qnx|sunos) current="$number_major" revision="$number_minor" age="0" ;; irix|nonstopux) func_arith $number_major + $number_minor current=$func_arith_result age="$number_minor" revision="$number_minor" lt_irix_increment=no ;; *) func_fatal_configuration "$modename: unknown library version type \`$version_type'" ;; esac ;; no) current="$1" revision="$2" age="$3" ;; esac # Check that each of the things are valid numbers. case $current in 0|[1-9]|[1-9][0-9]|[1-9][0-9][0-9]|[1-9][0-9][0-9][0-9]|[1-9][0-9][0-9][0-9][0-9]) ;; *) func_error "CURRENT \`$current' must be a nonnegative integer" func_fatal_error "\`$vinfo' is not valid version information" ;; esac case $revision in 0|[1-9]|[1-9][0-9]|[1-9][0-9][0-9]|[1-9][0-9][0-9][0-9]|[1-9][0-9][0-9][0-9][0-9]) ;; *) func_error "REVISION \`$revision' must be a nonnegative integer" func_fatal_error "\`$vinfo' is not valid version information" ;; esac case $age in 0|[1-9]|[1-9][0-9]|[1-9][0-9][0-9]|[1-9][0-9][0-9][0-9]|[1-9][0-9][0-9][0-9][0-9]) ;; *) func_error "AGE \`$age' must be a nonnegative integer" func_fatal_error "\`$vinfo' is not valid version information" ;; esac if test "$age" -gt "$current"; then func_error "AGE \`$age' is greater than the current interface number \`$current'" func_fatal_error "\`$vinfo' is not valid version information" fi # Calculate the version variables. major= versuffix= verstring= case $version_type in none) ;; darwin) # Like Linux, but with the current version available in # verstring for coding it into the library header func_arith $current - $age major=.$func_arith_result versuffix="$major.$age.$revision" # Darwin ld doesn't like 0 for these options... func_arith $current + 1 minor_current=$func_arith_result xlcverstring="${wl}-compatibility_version ${wl}$minor_current ${wl}-current_version ${wl}$minor_current.$revision" verstring="-compatibility_version $minor_current -current_version $minor_current.$revision" ;; freebsd-aout) major=".$current" versuffix=".$current.$revision"; ;; freebsd-elf) major=".$current" versuffix=".$current" ;; irix | nonstopux) if test "X$lt_irix_increment" = "Xno"; then func_arith $current - $age else func_arith $current - $age + 1 fi major=$func_arith_result case $version_type in nonstopux) verstring_prefix=nonstopux ;; *) verstring_prefix=sgi ;; esac verstring="$verstring_prefix$major.$revision" # Add in all the interfaces that we are compatible with. loop=$revision while test "$loop" -ne 0; do func_arith $revision - $loop iface=$func_arith_result func_arith $loop - 1 loop=$func_arith_result verstring="$verstring_prefix$major.$iface:$verstring" done # Before this point, $major must not contain `.'. major=.$major versuffix="$major.$revision" ;; linux) # correct to gnu/linux during the next big refactor func_arith $current - $age major=.$func_arith_result versuffix="$major.$age.$revision" ;; osf) func_arith $current - $age major=.$func_arith_result versuffix=".$current.$age.$revision" verstring="$current.$age.$revision" # Add in all the interfaces that we are compatible with. loop=$age while test "$loop" -ne 0; do func_arith $current - $loop iface=$func_arith_result func_arith $loop - 1 loop=$func_arith_result verstring="$verstring:${iface}.0" done # Make executables depend on our current version. func_append verstring ":${current}.0" ;; qnx) major=".$current" versuffix=".$current" ;; sunos) major=".$current" versuffix=".$current.$revision" ;; windows) # Use '-' rather than '.', since we only want one # extension on DOS 8.3 filesystems. func_arith $current - $age major=$func_arith_result versuffix="-$major" ;; *) func_fatal_configuration "unknown library version type \`$version_type'" ;; esac # Clear the version info if we defaulted, and they specified a release. if test -z "$vinfo" && test -n "$release"; then major= case $version_type in darwin) # we can't check for "0.0" in archive_cmds due to quoting # problems, so we reset it completely verstring= ;; *) verstring="0.0" ;; esac if test "$need_version" = no; then versuffix= else versuffix=".0.0" fi fi # Remove version info from name if versioning should be avoided if test "$avoid_version" = yes && test "$need_version" = no; then major= versuffix= verstring="" fi # Check to see if the archive will have undefined symbols. if test "$allow_undefined" = yes; then if test "$allow_undefined_flag" = unsupported; then func_warning "undefined symbols not allowed in $host shared libraries" build_libtool_libs=no build_old_libs=yes fi else # Don't allow undefined symbols. allow_undefined_flag="$no_undefined_flag" fi fi func_generate_dlsyms "$libname" "$libname" "yes" func_append libobjs " $symfileobj" test "X$libobjs" = "X " && libobjs= if test "$opt_mode" != relink; then # Remove our outputs, but don't remove object files since they # may have been created when compiling PIC objects. removelist= tempremovelist=`$ECHO "$output_objdir/*"` for p in $tempremovelist; do case $p in *.$objext | *.gcno) ;; $output_objdir/$outputname | $output_objdir/$libname.* | $output_objdir/${libname}${release}.*) if test "X$precious_files_regex" != "X"; then if $ECHO "$p" | $EGREP -e "$precious_files_regex" >/dev/null 2>&1 then continue fi fi func_append removelist " $p" ;; *) ;; esac done test -n "$removelist" && \ func_show_eval "${RM}r \$removelist" fi # Now set the variables for building old libraries. if test "$build_old_libs" = yes && test "$build_libtool_libs" != convenience ; then func_append oldlibs " $output_objdir/$libname.$libext" # Transform .lo files to .o files. oldobjs="$objs "`$ECHO "$libobjs" | $SP2NL | $SED "/\.${libext}$/d; $lo2o" | $NL2SP` fi # Eliminate all temporary directories. #for path in $notinst_path; do # lib_search_path=`$ECHO "$lib_search_path " | $SED "s% $path % %g"` # deplibs=`$ECHO "$deplibs " | $SED "s% -L$path % %g"` # dependency_libs=`$ECHO "$dependency_libs " | $SED "s% -L$path % %g"` #done if test -n "$xrpath"; then # If the user specified any rpath flags, then add them. temp_xrpath= for libdir in $xrpath; do func_replace_sysroot "$libdir" func_append temp_xrpath " -R$func_replace_sysroot_result" case "$finalize_rpath " in *" $libdir "*) ;; *) func_append finalize_rpath " $libdir" ;; esac done if test "$hardcode_into_libs" != yes || test "$build_old_libs" = yes; then dependency_libs="$temp_xrpath $dependency_libs" fi fi # Make sure dlfiles contains only unique files that won't be dlpreopened old_dlfiles="$dlfiles" dlfiles= for lib in $old_dlfiles; do case " $dlprefiles $dlfiles " in *" $lib "*) ;; *) func_append dlfiles " $lib" ;; esac done # Make sure dlprefiles contains only unique files old_dlprefiles="$dlprefiles" dlprefiles= for lib in $old_dlprefiles; do case "$dlprefiles " in *" $lib "*) ;; *) func_append dlprefiles " $lib" ;; esac done if test "$build_libtool_libs" = yes; then if test -n "$rpath"; then case $host in *-*-cygwin* | *-*-mingw* | *-*-pw32* | *-*-os2* | *-*-beos* | *-cegcc* | *-*-haiku*) # these systems don't actually have a c library (as such)! ;; *-*-rhapsody* | *-*-darwin1.[012]) # Rhapsody C library is in the System framework func_append deplibs " System.ltframework" ;; *-*-netbsd*) # Don't link with libc until the a.out ld.so is fixed. ;; *-*-openbsd* | *-*-freebsd* | *-*-dragonfly*) # Do not include libc due to us having libc/libc_r. ;; *-*-sco3.2v5* | *-*-sco5v6*) # Causes problems with __ctype ;; *-*-sysv4.2uw2* | *-*-sysv5* | *-*-unixware* | *-*-OpenUNIX*) # Compiler inserts libc in the correct place for threads to work ;; *) # Add libc to deplibs on all other systems if necessary. if test "$build_libtool_need_lc" = "yes"; then func_append deplibs " -lc" fi ;; esac fi # Transform deplibs into only deplibs that can be linked in shared. name_save=$name libname_save=$libname release_save=$release versuffix_save=$versuffix major_save=$major # I'm not sure if I'm treating the release correctly. I think # release should show up in the -l (ie -lgmp5) so we don't want to # add it in twice. Is that correct? release="" versuffix="" major="" newdeplibs= droppeddeps=no case $deplibs_check_method in pass_all) # Don't check for shared/static. Everything works. # This might be a little naive. We might want to check # whether the library exists or not. But this is on # osf3 & osf4 and I'm not really sure... Just # implementing what was already the behavior. newdeplibs=$deplibs ;; test_compile) # This code stresses the "libraries are programs" paradigm to its # limits. Maybe even breaks it. We compile a program, linking it # against the deplibs as a proxy for the library. Then we can check # whether they linked in statically or dynamically with ldd. $opt_dry_run || $RM conftest.c cat > conftest.c </dev/null` $nocaseglob else potential_libs=`ls $i/$libnameglob[.-]* 2>/dev/null` fi for potent_lib in $potential_libs; do # Follow soft links. if ls -lLd "$potent_lib" 2>/dev/null | $GREP " -> " >/dev/null; then continue fi # The statement above tries to avoid entering an # endless loop below, in case of cyclic links. # We might still enter an endless loop, since a link # loop can be closed while we follow links, # but so what? potlib="$potent_lib" while test -h "$potlib" 2>/dev/null; do potliblink=`ls -ld $potlib | ${SED} 's/.* -> //'` case $potliblink in [\\/]* | [A-Za-z]:[\\/]*) potlib="$potliblink";; *) potlib=`$ECHO "$potlib" | $SED 's,[^/]*$,,'`"$potliblink";; esac done if eval $file_magic_cmd \"\$potlib\" 2>/dev/null | $SED -e 10q | $EGREP "$file_magic_regex" > /dev/null; then func_append newdeplibs " $a_deplib" a_deplib="" break 2 fi done done fi if test -n "$a_deplib" ; then droppeddeps=yes echo $ECHO "*** Warning: linker path does not have real file for library $a_deplib." echo "*** I have the capability to make that library automatically link in when" echo "*** you link to this library. But I can only do this if you have a" echo "*** shared version of the library, which you do not appear to have" echo "*** because I did check the linker path looking for a file starting" if test -z "$potlib" ; then $ECHO "*** with $libname but no candidates were found. (...for file magic test)" else $ECHO "*** with $libname and none of the candidates passed a file format test" $ECHO "*** using a file magic. Last file checked: $potlib" fi fi ;; *) # Add a -L argument. func_append newdeplibs " $a_deplib" ;; esac done # Gone through all deplibs. ;; match_pattern*) set dummy $deplibs_check_method; shift match_pattern_regex=`expr "$deplibs_check_method" : "$1 \(.*\)"` for a_deplib in $deplibs; do case $a_deplib in -l*) func_stripname -l '' "$a_deplib" name=$func_stripname_result if test "X$allow_libtool_libs_with_static_runtimes" = "Xyes" ; then case " $predeps $postdeps " in *" $a_deplib "*) func_append newdeplibs " $a_deplib" a_deplib="" ;; esac fi if test -n "$a_deplib" ; then libname=`eval "\\$ECHO \"$libname_spec\""` for i in $lib_search_path $sys_lib_search_path $shlib_search_path; do potential_libs=`ls $i/$libname[.-]* 2>/dev/null` for potent_lib in $potential_libs; do potlib="$potent_lib" # see symlink-check above in file_magic test if eval "\$ECHO \"$potent_lib\"" 2>/dev/null | $SED 10q | \ $EGREP "$match_pattern_regex" > /dev/null; then func_append newdeplibs " $a_deplib" a_deplib="" break 2 fi done done fi if test -n "$a_deplib" ; then droppeddeps=yes echo $ECHO "*** Warning: linker path does not have real file for library $a_deplib." echo "*** I have the capability to make that library automatically link in when" echo "*** you link to this library. But I can only do this if you have a" echo "*** shared version of the library, which you do not appear to have" echo "*** because I did check the linker path looking for a file starting" if test -z "$potlib" ; then $ECHO "*** with $libname but no candidates were found. (...for regex pattern test)" else $ECHO "*** with $libname and none of the candidates passed a file format test" $ECHO "*** using a regex pattern. Last file checked: $potlib" fi fi ;; *) # Add a -L argument. func_append newdeplibs " $a_deplib" ;; esac done # Gone through all deplibs. ;; none | unknown | *) newdeplibs="" tmp_deplibs=`$ECHO " $deplibs" | $SED 's/ -lc$//; s/ -[LR][^ ]*//g'` if test "X$allow_libtool_libs_with_static_runtimes" = "Xyes" ; then for i in $predeps $postdeps ; do # can't use Xsed below, because $i might contain '/' tmp_deplibs=`$ECHO " $tmp_deplibs" | $SED "s,$i,,"` done fi case $tmp_deplibs in *[!\ \ ]*) echo if test "X$deplibs_check_method" = "Xnone"; then echo "*** Warning: inter-library dependencies are not supported in this platform." else echo "*** Warning: inter-library dependencies are not known to be supported." fi echo "*** All declared inter-library dependencies are being dropped." droppeddeps=yes ;; esac ;; esac versuffix=$versuffix_save major=$major_save release=$release_save libname=$libname_save name=$name_save case $host in *-*-rhapsody* | *-*-darwin1.[012]) # On Rhapsody replace the C library with the System framework newdeplibs=`$ECHO " $newdeplibs" | $SED 's/ -lc / System.ltframework /'` ;; esac if test "$droppeddeps" = yes; then if test "$module" = yes; then echo echo "*** Warning: libtool could not satisfy all declared inter-library" $ECHO "*** dependencies of module $libname. Therefore, libtool will create" echo "*** a static module, that should work as long as the dlopening" echo "*** application is linked with the -dlopen flag." if test -z "$global_symbol_pipe"; then echo echo "*** However, this would only work if libtool was able to extract symbol" echo "*** lists from a program, using \`nm' or equivalent, but libtool could" echo "*** not find such a program. So, this module is probably useless." echo "*** \`nm' from GNU binutils and a full rebuild may help." fi if test "$build_old_libs" = no; then oldlibs="$output_objdir/$libname.$libext" build_libtool_libs=module build_old_libs=yes else build_libtool_libs=no fi else echo "*** The inter-library dependencies that have been dropped here will be" echo "*** automatically added whenever a program is linked with this library" echo "*** or is declared to -dlopen it." if test "$allow_undefined" = no; then echo echo "*** Since this library must not contain undefined symbols," echo "*** because either the platform does not support them or" echo "*** it was explicitly requested with -no-undefined," echo "*** libtool will only create a static version of it." if test "$build_old_libs" = no; then oldlibs="$output_objdir/$libname.$libext" build_libtool_libs=module build_old_libs=yes else build_libtool_libs=no fi fi fi fi # Done checking deplibs! deplibs=$newdeplibs fi # Time to change all our "foo.ltframework" stuff back to "-framework foo" case $host in *-*-darwin*) newdeplibs=`$ECHO " $newdeplibs" | $SED 's% \([^ $]*\).ltframework% -framework \1%g'` new_inherited_linker_flags=`$ECHO " $new_inherited_linker_flags" | $SED 's% \([^ $]*\).ltframework% -framework \1%g'` deplibs=`$ECHO " $deplibs" | $SED 's% \([^ $]*\).ltframework% -framework \1%g'` ;; esac # move library search paths that coincide with paths to not yet # installed libraries to the beginning of the library search list new_libs= for path in $notinst_path; do case " $new_libs " in *" -L$path/$objdir "*) ;; *) case " $deplibs " in *" -L$path/$objdir "*) func_append new_libs " -L$path/$objdir" ;; esac ;; esac done for deplib in $deplibs; do case $deplib in -L*) case " $new_libs " in *" $deplib "*) ;; *) func_append new_libs " $deplib" ;; esac ;; *) func_append new_libs " $deplib" ;; esac done deplibs="$new_libs" # All the library-specific variables (install_libdir is set above). library_names= old_library= dlname= # Test again, we may have decided not to build it any more if test "$build_libtool_libs" = yes; then # Remove ${wl} instances when linking with ld. # FIXME: should test the right _cmds variable. case $archive_cmds in *\$LD\ *) wl= ;; esac if test "$hardcode_into_libs" = yes; then # Hardcode the library paths hardcode_libdirs= dep_rpath= rpath="$finalize_rpath" test "$opt_mode" != relink && rpath="$compile_rpath$rpath" for libdir in $rpath; do if test -n "$hardcode_libdir_flag_spec"; then if test -n "$hardcode_libdir_separator"; then func_replace_sysroot "$libdir" libdir=$func_replace_sysroot_result if test -z "$hardcode_libdirs"; then hardcode_libdirs="$libdir" else # Just accumulate the unique libdirs. case $hardcode_libdir_separator$hardcode_libdirs$hardcode_libdir_separator in *"$hardcode_libdir_separator$libdir$hardcode_libdir_separator"*) ;; *) func_append hardcode_libdirs "$hardcode_libdir_separator$libdir" ;; esac fi else eval flag=\"$hardcode_libdir_flag_spec\" func_append dep_rpath " $flag" fi elif test -n "$runpath_var"; then case "$perm_rpath " in *" $libdir "*) ;; *) func_append perm_rpath " $libdir" ;; esac fi done # Substitute the hardcoded libdirs into the rpath. if test -n "$hardcode_libdir_separator" && test -n "$hardcode_libdirs"; then libdir="$hardcode_libdirs" eval "dep_rpath=\"$hardcode_libdir_flag_spec\"" fi if test -n "$runpath_var" && test -n "$perm_rpath"; then # We should set the runpath_var. rpath= for dir in $perm_rpath; do func_append rpath "$dir:" done eval "$runpath_var='$rpath\$$runpath_var'; export $runpath_var" fi test -n "$dep_rpath" && deplibs="$dep_rpath $deplibs" fi shlibpath="$finalize_shlibpath" test "$opt_mode" != relink && shlibpath="$compile_shlibpath$shlibpath" if test -n "$shlibpath"; then eval "$shlibpath_var='$shlibpath\$$shlibpath_var'; export $shlibpath_var" fi # Get the real and link names of the library. eval shared_ext=\"$shrext_cmds\" eval library_names=\"$library_names_spec\" set dummy $library_names shift realname="$1" shift if test -n "$soname_spec"; then eval soname=\"$soname_spec\" else soname="$realname" fi if test -z "$dlname"; then dlname=$soname fi lib="$output_objdir/$realname" linknames= for link do func_append linknames " $link" done # Use standard objects if they are pic test -z "$pic_flag" && libobjs=`$ECHO "$libobjs" | $SP2NL | $SED "$lo2o" | $NL2SP` test "X$libobjs" = "X " && libobjs= delfiles= if test -n "$export_symbols" && test -n "$include_expsyms"; then $opt_dry_run || cp "$export_symbols" "$output_objdir/$libname.uexp" export_symbols="$output_objdir/$libname.uexp" func_append delfiles " $export_symbols" fi orig_export_symbols= case $host_os in cygwin* | mingw* | cegcc*) if test -n "$export_symbols" && test -z "$export_symbols_regex"; then # exporting using user supplied symfile if test "x`$SED 1q $export_symbols`" != xEXPORTS; then # and it's NOT already a .def file. Must figure out # which of the given symbols are data symbols and tag # them as such. So, trigger use of export_symbols_cmds. # export_symbols gets reassigned inside the "prepare # the list of exported symbols" if statement, so the # include_expsyms logic still works. orig_export_symbols="$export_symbols" export_symbols= always_export_symbols=yes fi fi ;; esac # Prepare the list of exported symbols if test -z "$export_symbols"; then if test "$always_export_symbols" = yes || test -n "$export_symbols_regex"; then func_verbose "generating symbol list for \`$libname.la'" export_symbols="$output_objdir/$libname.exp" $opt_dry_run || $RM $export_symbols cmds=$export_symbols_cmds save_ifs="$IFS"; IFS='~' for cmd1 in $cmds; do IFS="$save_ifs" # Take the normal branch if the nm_file_list_spec branch # doesn't work or if tool conversion is not needed. case $nm_file_list_spec~$to_tool_file_cmd in *~func_convert_file_noop | *~func_convert_file_msys_to_w32 | ~*) try_normal_branch=yes eval cmd=\"$cmd1\" func_len " $cmd" len=$func_len_result ;; *) try_normal_branch=no ;; esac if test "$try_normal_branch" = yes \ && { test "$len" -lt "$max_cmd_len" \ || test "$max_cmd_len" -le -1; } then func_show_eval "$cmd" 'exit $?' skipped_export=false elif test -n "$nm_file_list_spec"; then func_basename "$output" output_la=$func_basename_result save_libobjs=$libobjs save_output=$output output=${output_objdir}/${output_la}.nm func_to_tool_file "$output" libobjs=$nm_file_list_spec$func_to_tool_file_result func_append delfiles " $output" func_verbose "creating $NM input file list: $output" for obj in $save_libobjs; do func_to_tool_file "$obj" $ECHO "$func_to_tool_file_result" done > "$output" eval cmd=\"$cmd1\" func_show_eval "$cmd" 'exit $?' output=$save_output libobjs=$save_libobjs skipped_export=false else # The command line is too long to execute in one step. func_verbose "using reloadable object file for export list..." skipped_export=: # Break out early, otherwise skipped_export may be # set to false by a later but shorter cmd. break fi done IFS="$save_ifs" if test -n "$export_symbols_regex" && test "X$skipped_export" != "X:"; then func_show_eval '$EGREP -e "$export_symbols_regex" "$export_symbols" > "${export_symbols}T"' func_show_eval '$MV "${export_symbols}T" "$export_symbols"' fi fi fi if test -n "$export_symbols" && test -n "$include_expsyms"; then tmp_export_symbols="$export_symbols" test -n "$orig_export_symbols" && tmp_export_symbols="$orig_export_symbols" $opt_dry_run || eval '$ECHO "$include_expsyms" | $SP2NL >> "$tmp_export_symbols"' fi if test "X$skipped_export" != "X:" && test -n "$orig_export_symbols"; then # The given exports_symbols file has to be filtered, so filter it. func_verbose "filter symbol list for \`$libname.la' to tag DATA exports" # FIXME: $output_objdir/$libname.filter potentially contains lots of # 's' commands which not all seds can handle. GNU sed should be fine # though. Also, the filter scales superlinearly with the number of # global variables. join(1) would be nice here, but unfortunately # isn't a blessed tool. $opt_dry_run || $SED -e '/[ ,]DATA/!d;s,\(.*\)\([ \,].*\),s|^\1$|\1\2|,' < $export_symbols > $output_objdir/$libname.filter func_append delfiles " $export_symbols $output_objdir/$libname.filter" export_symbols=$output_objdir/$libname.def $opt_dry_run || $SED -f $output_objdir/$libname.filter < $orig_export_symbols > $export_symbols fi tmp_deplibs= for test_deplib in $deplibs; do case " $convenience " in *" $test_deplib "*) ;; *) func_append tmp_deplibs " $test_deplib" ;; esac done deplibs="$tmp_deplibs" if test -n "$convenience"; then if test -n "$whole_archive_flag_spec" && test "$compiler_needs_object" = yes && test -z "$libobjs"; then # extract the archives, so we have objects to list. # TODO: could optimize this to just extract one archive. whole_archive_flag_spec= fi if test -n "$whole_archive_flag_spec"; then save_libobjs=$libobjs eval libobjs=\"\$libobjs $whole_archive_flag_spec\" test "X$libobjs" = "X " && libobjs= else gentop="$output_objdir/${outputname}x" func_append generated " $gentop" func_extract_archives $gentop $convenience func_append libobjs " $func_extract_archives_result" test "X$libobjs" = "X " && libobjs= fi fi if test "$thread_safe" = yes && test -n "$thread_safe_flag_spec"; then eval flag=\"$thread_safe_flag_spec\" func_append linker_flags " $flag" fi # Make a backup of the uninstalled library when relinking if test "$opt_mode" = relink; then $opt_dry_run || eval '(cd $output_objdir && $RM ${realname}U && $MV $realname ${realname}U)' || exit $? fi # Do each of the archive commands. if test "$module" = yes && test -n "$module_cmds" ; then if test -n "$export_symbols" && test -n "$module_expsym_cmds"; then eval test_cmds=\"$module_expsym_cmds\" cmds=$module_expsym_cmds else eval test_cmds=\"$module_cmds\" cmds=$module_cmds fi else if test -n "$export_symbols" && test -n "$archive_expsym_cmds"; then eval test_cmds=\"$archive_expsym_cmds\" cmds=$archive_expsym_cmds else eval test_cmds=\"$archive_cmds\" cmds=$archive_cmds fi fi if test "X$skipped_export" != "X:" && func_len " $test_cmds" && len=$func_len_result && test "$len" -lt "$max_cmd_len" || test "$max_cmd_len" -le -1; then : else # The command line is too long to link in one step, link piecewise # or, if using GNU ld and skipped_export is not :, use a linker # script. # Save the value of $output and $libobjs because we want to # use them later. If we have whole_archive_flag_spec, we # want to use save_libobjs as it was before # whole_archive_flag_spec was expanded, because we can't # assume the linker understands whole_archive_flag_spec. # This may have to be revisited, in case too many # convenience libraries get linked in and end up exceeding # the spec. if test -z "$convenience" || test -z "$whole_archive_flag_spec"; then save_libobjs=$libobjs fi save_output=$output func_basename "$output" output_la=$func_basename_result # Clear the reloadable object creation command queue and # initialize k to one. test_cmds= concat_cmds= objlist= last_robj= k=1 if test -n "$save_libobjs" && test "X$skipped_export" != "X:" && test "$with_gnu_ld" = yes; then output=${output_objdir}/${output_la}.lnkscript func_verbose "creating GNU ld script: $output" echo 'INPUT (' > $output for obj in $save_libobjs do func_to_tool_file "$obj" $ECHO "$func_to_tool_file_result" >> $output done echo ')' >> $output func_append delfiles " $output" func_to_tool_file "$output" output=$func_to_tool_file_result elif test -n "$save_libobjs" && test "X$skipped_export" != "X:" && test "X$file_list_spec" != X; then output=${output_objdir}/${output_la}.lnk func_verbose "creating linker input file list: $output" : > $output set x $save_libobjs shift firstobj= if test "$compiler_needs_object" = yes; then firstobj="$1 " shift fi for obj do func_to_tool_file "$obj" $ECHO "$func_to_tool_file_result" >> $output done func_append delfiles " $output" func_to_tool_file "$output" output=$firstobj\"$file_list_spec$func_to_tool_file_result\" else if test -n "$save_libobjs"; then func_verbose "creating reloadable object files..." output=$output_objdir/$output_la-${k}.$objext eval test_cmds=\"$reload_cmds\" func_len " $test_cmds" len0=$func_len_result len=$len0 # Loop over the list of objects to be linked. for obj in $save_libobjs do func_len " $obj" func_arith $len + $func_len_result len=$func_arith_result if test "X$objlist" = X || test "$len" -lt "$max_cmd_len"; then func_append objlist " $obj" else # The command $test_cmds is almost too long, add a # command to the queue. if test "$k" -eq 1 ; then # The first file doesn't have a previous command to add. reload_objs=$objlist eval concat_cmds=\"$reload_cmds\" else # All subsequent reloadable object files will link in # the last one created. reload_objs="$objlist $last_robj" eval concat_cmds=\"\$concat_cmds~$reload_cmds~\$RM $last_robj\" fi last_robj=$output_objdir/$output_la-${k}.$objext func_arith $k + 1 k=$func_arith_result output=$output_objdir/$output_la-${k}.$objext objlist=" $obj" func_len " $last_robj" func_arith $len0 + $func_len_result len=$func_arith_result fi done # Handle the remaining objects by creating one last # reloadable object file. All subsequent reloadable object # files will link in the last one created. test -z "$concat_cmds" || concat_cmds=$concat_cmds~ reload_objs="$objlist $last_robj" eval concat_cmds=\"\${concat_cmds}$reload_cmds\" if test -n "$last_robj"; then eval concat_cmds=\"\${concat_cmds}~\$RM $last_robj\" fi func_append delfiles " $output" else output= fi if ${skipped_export-false}; then func_verbose "generating symbol list for \`$libname.la'" export_symbols="$output_objdir/$libname.exp" $opt_dry_run || $RM $export_symbols libobjs=$output # Append the command to create the export file. test -z "$concat_cmds" || concat_cmds=$concat_cmds~ eval concat_cmds=\"\$concat_cmds$export_symbols_cmds\" if test -n "$last_robj"; then eval concat_cmds=\"\$concat_cmds~\$RM $last_robj\" fi fi test -n "$save_libobjs" && func_verbose "creating a temporary reloadable object file: $output" # Loop through the commands generated above and execute them. save_ifs="$IFS"; IFS='~' for cmd in $concat_cmds; do IFS="$save_ifs" $opt_silent || { func_quote_for_expand "$cmd" eval "func_echo $func_quote_for_expand_result" } $opt_dry_run || eval "$cmd" || { lt_exit=$? # Restore the uninstalled library and exit if test "$opt_mode" = relink; then ( cd "$output_objdir" && \ $RM "${realname}T" && \ $MV "${realname}U" "$realname" ) fi exit $lt_exit } done IFS="$save_ifs" if test -n "$export_symbols_regex" && ${skipped_export-false}; then func_show_eval '$EGREP -e "$export_symbols_regex" "$export_symbols" > "${export_symbols}T"' func_show_eval '$MV "${export_symbols}T" "$export_symbols"' fi fi if ${skipped_export-false}; then if test -n "$export_symbols" && test -n "$include_expsyms"; then tmp_export_symbols="$export_symbols" test -n "$orig_export_symbols" && tmp_export_symbols="$orig_export_symbols" $opt_dry_run || eval '$ECHO "$include_expsyms" | $SP2NL >> "$tmp_export_symbols"' fi if test -n "$orig_export_symbols"; then # The given exports_symbols file has to be filtered, so filter it. func_verbose "filter symbol list for \`$libname.la' to tag DATA exports" # FIXME: $output_objdir/$libname.filter potentially contains lots of # 's' commands which not all seds can handle. GNU sed should be fine # though. Also, the filter scales superlinearly with the number of # global variables. join(1) would be nice here, but unfortunately # isn't a blessed tool. $opt_dry_run || $SED -e '/[ ,]DATA/!d;s,\(.*\)\([ \,].*\),s|^\1$|\1\2|,' < $export_symbols > $output_objdir/$libname.filter func_append delfiles " $export_symbols $output_objdir/$libname.filter" export_symbols=$output_objdir/$libname.def $opt_dry_run || $SED -f $output_objdir/$libname.filter < $orig_export_symbols > $export_symbols fi fi libobjs=$output # Restore the value of output. output=$save_output if test -n "$convenience" && test -n "$whole_archive_flag_spec"; then eval libobjs=\"\$libobjs $whole_archive_flag_spec\" test "X$libobjs" = "X " && libobjs= fi # Expand the library linking commands again to reset the # value of $libobjs for piecewise linking. # Do each of the archive commands. if test "$module" = yes && test -n "$module_cmds" ; then if test -n "$export_symbols" && test -n "$module_expsym_cmds"; then cmds=$module_expsym_cmds else cmds=$module_cmds fi else if test -n "$export_symbols" && test -n "$archive_expsym_cmds"; then cmds=$archive_expsym_cmds else cmds=$archive_cmds fi fi fi if test -n "$delfiles"; then # Append the command to remove temporary files to $cmds. eval cmds=\"\$cmds~\$RM $delfiles\" fi # Add any objects from preloaded convenience libraries if test -n "$dlprefiles"; then gentop="$output_objdir/${outputname}x" func_append generated " $gentop" func_extract_archives $gentop $dlprefiles func_append libobjs " $func_extract_archives_result" test "X$libobjs" = "X " && libobjs= fi save_ifs="$IFS"; IFS='~' for cmd in $cmds; do IFS="$save_ifs" eval cmd=\"$cmd\" $opt_silent || { func_quote_for_expand "$cmd" eval "func_echo $func_quote_for_expand_result" } $opt_dry_run || eval "$cmd" || { lt_exit=$? # Restore the uninstalled library and exit if test "$opt_mode" = relink; then ( cd "$output_objdir" && \ $RM "${realname}T" && \ $MV "${realname}U" "$realname" ) fi exit $lt_exit } done IFS="$save_ifs" # Restore the uninstalled library and exit if test "$opt_mode" = relink; then $opt_dry_run || eval '(cd $output_objdir && $RM ${realname}T && $MV $realname ${realname}T && $MV ${realname}U $realname)' || exit $? if test -n "$convenience"; then if test -z "$whole_archive_flag_spec"; then func_show_eval '${RM}r "$gentop"' fi fi exit $EXIT_SUCCESS fi # Create links to the real library. for linkname in $linknames; do if test "$realname" != "$linkname"; then func_show_eval '(cd "$output_objdir" && $RM "$linkname" && $LN_S "$realname" "$linkname")' 'exit $?' fi done # If -module or -export-dynamic was specified, set the dlname. if test "$module" = yes || test "$export_dynamic" = yes; then # On all known operating systems, these are identical. dlname="$soname" fi fi ;; obj) if test -n "$dlfiles$dlprefiles" || test "$dlself" != no; then func_warning "\`-dlopen' is ignored for objects" fi case " $deplibs" in *\ -l* | *\ -L*) func_warning "\`-l' and \`-L' are ignored for objects" ;; esac test -n "$rpath" && \ func_warning "\`-rpath' is ignored for objects" test -n "$xrpath" && \ func_warning "\`-R' is ignored for objects" test -n "$vinfo" && \ func_warning "\`-version-info' is ignored for objects" test -n "$release" && \ func_warning "\`-release' is ignored for objects" case $output in *.lo) test -n "$objs$old_deplibs" && \ func_fatal_error "cannot build library object \`$output' from non-libtool objects" libobj=$output func_lo2o "$libobj" obj=$func_lo2o_result ;; *) libobj= obj="$output" ;; esac # Delete the old objects. $opt_dry_run || $RM $obj $libobj # Objects from convenience libraries. This assumes # single-version convenience libraries. Whenever we create # different ones for PIC/non-PIC, this we'll have to duplicate # the extraction. reload_conv_objs= gentop= # reload_cmds runs $LD directly, so let us get rid of # -Wl from whole_archive_flag_spec and hope we can get by with # turning comma into space.. wl= if test -n "$convenience"; then if test -n "$whole_archive_flag_spec"; then eval tmp_whole_archive_flags=\"$whole_archive_flag_spec\" reload_conv_objs=$reload_objs\ `$ECHO "$tmp_whole_archive_flags" | $SED 's|,| |g'` else gentop="$output_objdir/${obj}x" func_append generated " $gentop" func_extract_archives $gentop $convenience reload_conv_objs="$reload_objs $func_extract_archives_result" fi fi # If we're not building shared, we need to use non_pic_objs test "$build_libtool_libs" != yes && libobjs="$non_pic_objects" # Create the old-style object. reload_objs="$objs$old_deplibs "`$ECHO "$libobjs" | $SP2NL | $SED "/\.${libext}$/d; /\.lib$/d; $lo2o" | $NL2SP`" $reload_conv_objs" ### testsuite: skip nested quoting test output="$obj" func_execute_cmds "$reload_cmds" 'exit $?' # Exit if we aren't doing a library object file. if test -z "$libobj"; then if test -n "$gentop"; then func_show_eval '${RM}r "$gentop"' fi exit $EXIT_SUCCESS fi if test "$build_libtool_libs" != yes; then if test -n "$gentop"; then func_show_eval '${RM}r "$gentop"' fi # Create an invalid libtool object if no PIC, so that we don't # accidentally link it into a program. # $show "echo timestamp > $libobj" # $opt_dry_run || eval "echo timestamp > $libobj" || exit $? exit $EXIT_SUCCESS fi if test -n "$pic_flag" || test "$pic_mode" != default; then # Only do commands if we really have different PIC objects. reload_objs="$libobjs $reload_conv_objs" output="$libobj" func_execute_cmds "$reload_cmds" 'exit $?' fi if test -n "$gentop"; then func_show_eval '${RM}r "$gentop"' fi exit $EXIT_SUCCESS ;; prog) case $host in *cygwin*) func_stripname '' '.exe' "$output" output=$func_stripname_result.exe;; esac test -n "$vinfo" && \ func_warning "\`-version-info' is ignored for programs" test -n "$release" && \ func_warning "\`-release' is ignored for programs" test "$preload" = yes \ && test "$dlopen_support" = unknown \ && test "$dlopen_self" = unknown \ && test "$dlopen_self_static" = unknown && \ func_warning "\`LT_INIT([dlopen])' not used. Assuming no dlopen support." case $host in *-*-rhapsody* | *-*-darwin1.[012]) # On Rhapsody replace the C library is the System framework compile_deplibs=`$ECHO " $compile_deplibs" | $SED 's/ -lc / System.ltframework /'` finalize_deplibs=`$ECHO " $finalize_deplibs" | $SED 's/ -lc / System.ltframework /'` ;; esac case $host in *-*-darwin*) # Don't allow lazy linking, it breaks C++ global constructors # But is supposedly fixed on 10.4 or later (yay!). if test "$tagname" = CXX ; then case ${MACOSX_DEPLOYMENT_TARGET-10.0} in 10.[0123]) func_append compile_command " ${wl}-bind_at_load" func_append finalize_command " ${wl}-bind_at_load" ;; esac fi # Time to change all our "foo.ltframework" stuff back to "-framework foo" compile_deplibs=`$ECHO " $compile_deplibs" | $SED 's% \([^ $]*\).ltframework% -framework \1%g'` finalize_deplibs=`$ECHO " $finalize_deplibs" | $SED 's% \([^ $]*\).ltframework% -framework \1%g'` ;; esac # move library search paths that coincide with paths to not yet # installed libraries to the beginning of the library search list new_libs= for path in $notinst_path; do case " $new_libs " in *" -L$path/$objdir "*) ;; *) case " $compile_deplibs " in *" -L$path/$objdir "*) func_append new_libs " -L$path/$objdir" ;; esac ;; esac done for deplib in $compile_deplibs; do case $deplib in -L*) case " $new_libs " in *" $deplib "*) ;; *) func_append new_libs " $deplib" ;; esac ;; *) func_append new_libs " $deplib" ;; esac done compile_deplibs="$new_libs" func_append compile_command " $compile_deplibs" func_append finalize_command " $finalize_deplibs" if test -n "$rpath$xrpath"; then # If the user specified any rpath flags, then add them. for libdir in $rpath $xrpath; do # This is the magic to use -rpath. case "$finalize_rpath " in *" $libdir "*) ;; *) func_append finalize_rpath " $libdir" ;; esac done fi # Now hardcode the library paths rpath= hardcode_libdirs= for libdir in $compile_rpath $finalize_rpath; do if test -n "$hardcode_libdir_flag_spec"; then if test -n "$hardcode_libdir_separator"; then if test -z "$hardcode_libdirs"; then hardcode_libdirs="$libdir" else # Just accumulate the unique libdirs. case $hardcode_libdir_separator$hardcode_libdirs$hardcode_libdir_separator in *"$hardcode_libdir_separator$libdir$hardcode_libdir_separator"*) ;; *) func_append hardcode_libdirs "$hardcode_libdir_separator$libdir" ;; esac fi else eval flag=\"$hardcode_libdir_flag_spec\" func_append rpath " $flag" fi elif test -n "$runpath_var"; then case "$perm_rpath " in *" $libdir "*) ;; *) func_append perm_rpath " $libdir" ;; esac fi case $host in *-*-cygwin* | *-*-mingw* | *-*-pw32* | *-*-os2* | *-cegcc*) testbindir=`${ECHO} "$libdir" | ${SED} -e 's*/lib$*/bin*'` case :$dllsearchpath: in *":$libdir:"*) ;; ::) dllsearchpath=$libdir;; *) func_append dllsearchpath ":$libdir";; esac case :$dllsearchpath: in *":$testbindir:"*) ;; ::) dllsearchpath=$testbindir;; *) func_append dllsearchpath ":$testbindir";; esac ;; esac done # Substitute the hardcoded libdirs into the rpath. if test -n "$hardcode_libdir_separator" && test -n "$hardcode_libdirs"; then libdir="$hardcode_libdirs" eval rpath=\" $hardcode_libdir_flag_spec\" fi compile_rpath="$rpath" rpath= hardcode_libdirs= for libdir in $finalize_rpath; do if test -n "$hardcode_libdir_flag_spec"; then if test -n "$hardcode_libdir_separator"; then if test -z "$hardcode_libdirs"; then hardcode_libdirs="$libdir" else # Just accumulate the unique libdirs. case $hardcode_libdir_separator$hardcode_libdirs$hardcode_libdir_separator in *"$hardcode_libdir_separator$libdir$hardcode_libdir_separator"*) ;; *) func_append hardcode_libdirs "$hardcode_libdir_separator$libdir" ;; esac fi else eval flag=\"$hardcode_libdir_flag_spec\" func_append rpath " $flag" fi elif test -n "$runpath_var"; then case "$finalize_perm_rpath " in *" $libdir "*) ;; *) func_append finalize_perm_rpath " $libdir" ;; esac fi done # Substitute the hardcoded libdirs into the rpath. if test -n "$hardcode_libdir_separator" && test -n "$hardcode_libdirs"; then libdir="$hardcode_libdirs" eval rpath=\" $hardcode_libdir_flag_spec\" fi finalize_rpath="$rpath" if test -n "$libobjs" && test "$build_old_libs" = yes; then # Transform all the library objects into standard objects. compile_command=`$ECHO "$compile_command" | $SP2NL | $SED "$lo2o" | $NL2SP` finalize_command=`$ECHO "$finalize_command" | $SP2NL | $SED "$lo2o" | $NL2SP` fi func_generate_dlsyms "$outputname" "@PROGRAM@" "no" # template prelinking step if test -n "$prelink_cmds"; then func_execute_cmds "$prelink_cmds" 'exit $?' fi wrappers_required=yes case $host in *cegcc* | *mingw32ce*) # Disable wrappers for cegcc and mingw32ce hosts, we are cross compiling anyway. wrappers_required=no ;; *cygwin* | *mingw* ) if test "$build_libtool_libs" != yes; then wrappers_required=no fi ;; *) if test "$need_relink" = no || test "$build_libtool_libs" != yes; then wrappers_required=no fi ;; esac if test "$wrappers_required" = no; then # Replace the output file specification. compile_command=`$ECHO "$compile_command" | $SED 's%@OUTPUT@%'"$output"'%g'` link_command="$compile_command$compile_rpath" # We have no uninstalled library dependencies, so finalize right now. exit_status=0 func_show_eval "$link_command" 'exit_status=$?' if test -n "$postlink_cmds"; then func_to_tool_file "$output" postlink_cmds=`func_echo_all "$postlink_cmds" | $SED -e 's%@OUTPUT@%'"$output"'%g' -e 's%@TOOL_OUTPUT@%'"$func_to_tool_file_result"'%g'` func_execute_cmds "$postlink_cmds" 'exit $?' fi # Delete the generated files. if test -f "$output_objdir/${outputname}S.${objext}"; then func_show_eval '$RM "$output_objdir/${outputname}S.${objext}"' fi exit $exit_status fi if test -n "$compile_shlibpath$finalize_shlibpath"; then compile_command="$shlibpath_var=\"$compile_shlibpath$finalize_shlibpath\$$shlibpath_var\" $compile_command" fi if test -n "$finalize_shlibpath"; then finalize_command="$shlibpath_var=\"$finalize_shlibpath\$$shlibpath_var\" $finalize_command" fi compile_var= finalize_var= if test -n "$runpath_var"; then if test -n "$perm_rpath"; then # We should set the runpath_var. rpath= for dir in $perm_rpath; do func_append rpath "$dir:" done compile_var="$runpath_var=\"$rpath\$$runpath_var\" " fi if test -n "$finalize_perm_rpath"; then # We should set the runpath_var. rpath= for dir in $finalize_perm_rpath; do func_append rpath "$dir:" done finalize_var="$runpath_var=\"$rpath\$$runpath_var\" " fi fi if test "$no_install" = yes; then # We don't need to create a wrapper script. link_command="$compile_var$compile_command$compile_rpath" # Replace the output file specification. link_command=`$ECHO "$link_command" | $SED 's%@OUTPUT@%'"$output"'%g'` # Delete the old output file. $opt_dry_run || $RM $output # Link the executable and exit func_show_eval "$link_command" 'exit $?' if test -n "$postlink_cmds"; then func_to_tool_file "$output" postlink_cmds=`func_echo_all "$postlink_cmds" | $SED -e 's%@OUTPUT@%'"$output"'%g' -e 's%@TOOL_OUTPUT@%'"$func_to_tool_file_result"'%g'` func_execute_cmds "$postlink_cmds" 'exit $?' fi exit $EXIT_SUCCESS fi if test "$hardcode_action" = relink; then # Fast installation is not supported link_command="$compile_var$compile_command$compile_rpath" relink_command="$finalize_var$finalize_command$finalize_rpath" func_warning "this platform does not like uninstalled shared libraries" func_warning "\`$output' will be relinked during installation" else if test "$fast_install" != no; then link_command="$finalize_var$compile_command$finalize_rpath" if test "$fast_install" = yes; then relink_command=`$ECHO "$compile_var$compile_command$compile_rpath" | $SED 's%@OUTPUT@%\$progdir/\$file%g'` else # fast_install is set to needless relink_command= fi else link_command="$compile_var$compile_command$compile_rpath" relink_command="$finalize_var$finalize_command$finalize_rpath" fi fi # Replace the output file specification. link_command=`$ECHO "$link_command" | $SED 's%@OUTPUT@%'"$output_objdir/$outputname"'%g'` # Delete the old output files. $opt_dry_run || $RM $output $output_objdir/$outputname $output_objdir/lt-$outputname func_show_eval "$link_command" 'exit $?' if test -n "$postlink_cmds"; then func_to_tool_file "$output_objdir/$outputname" postlink_cmds=`func_echo_all "$postlink_cmds" | $SED -e 's%@OUTPUT@%'"$output_objdir/$outputname"'%g' -e 's%@TOOL_OUTPUT@%'"$func_to_tool_file_result"'%g'` func_execute_cmds "$postlink_cmds" 'exit $?' fi # Now create the wrapper script. func_verbose "creating $output" # Quote the relink command for shipping. if test -n "$relink_command"; then # Preserve any variables that may affect compiler behavior for var in $variables_saved_for_relink; do if eval test -z \"\${$var+set}\"; then relink_command="{ test -z \"\${$var+set}\" || $lt_unset $var || { $var=; export $var; }; }; $relink_command" elif eval var_value=\$$var; test -z "$var_value"; then relink_command="$var=; export $var; $relink_command" else func_quote_for_eval "$var_value" relink_command="$var=$func_quote_for_eval_result; export $var; $relink_command" fi done relink_command="(cd `pwd`; $relink_command)" relink_command=`$ECHO "$relink_command" | $SED "$sed_quote_subst"` fi # Only actually do things if not in dry run mode. $opt_dry_run || { # win32 will think the script is a binary if it has # a .exe suffix, so we strip it off here. case $output in *.exe) func_stripname '' '.exe' "$output" output=$func_stripname_result ;; esac # test for cygwin because mv fails w/o .exe extensions case $host in *cygwin*) exeext=.exe func_stripname '' '.exe' "$outputname" outputname=$func_stripname_result ;; *) exeext= ;; esac case $host in *cygwin* | *mingw* ) func_dirname_and_basename "$output" "" "." output_name=$func_basename_result output_path=$func_dirname_result cwrappersource="$output_path/$objdir/lt-$output_name.c" cwrapper="$output_path/$output_name.exe" $RM $cwrappersource $cwrapper trap "$RM $cwrappersource $cwrapper; exit $EXIT_FAILURE" 1 2 15 func_emit_cwrapperexe_src > $cwrappersource # The wrapper executable is built using the $host compiler, # because it contains $host paths and files. If cross- # compiling, it, like the target executable, must be # executed on the $host or under an emulation environment. $opt_dry_run || { $LTCC $LTCFLAGS -o $cwrapper $cwrappersource $STRIP $cwrapper } # Now, create the wrapper script for func_source use: func_ltwrapper_scriptname $cwrapper $RM $func_ltwrapper_scriptname_result trap "$RM $func_ltwrapper_scriptname_result; exit $EXIT_FAILURE" 1 2 15 $opt_dry_run || { # note: this script will not be executed, so do not chmod. if test "x$build" = "x$host" ; then $cwrapper --lt-dump-script > $func_ltwrapper_scriptname_result else func_emit_wrapper no > $func_ltwrapper_scriptname_result fi } ;; * ) $RM $output trap "$RM $output; exit $EXIT_FAILURE" 1 2 15 func_emit_wrapper no > $output chmod +x $output ;; esac } exit $EXIT_SUCCESS ;; esac # See if we need to build an old-fashioned archive. for oldlib in $oldlibs; do if test "$build_libtool_libs" = convenience; then oldobjs="$libobjs_save $symfileobj" addlibs="$convenience" build_libtool_libs=no else if test "$build_libtool_libs" = module; then oldobjs="$libobjs_save" build_libtool_libs=no else oldobjs="$old_deplibs $non_pic_objects" if test "$preload" = yes && test -f "$symfileobj"; then func_append oldobjs " $symfileobj" fi fi addlibs="$old_convenience" fi if test -n "$addlibs"; then gentop="$output_objdir/${outputname}x" func_append generated " $gentop" func_extract_archives $gentop $addlibs func_append oldobjs " $func_extract_archives_result" fi # Do each command in the archive commands. if test -n "$old_archive_from_new_cmds" && test "$build_libtool_libs" = yes; then cmds=$old_archive_from_new_cmds else # Add any objects from preloaded convenience libraries if test -n "$dlprefiles"; then gentop="$output_objdir/${outputname}x" func_append generated " $gentop" func_extract_archives $gentop $dlprefiles func_append oldobjs " $func_extract_archives_result" fi # POSIX demands no paths to be encoded in archives. We have # to avoid creating archives with duplicate basenames if we # might have to extract them afterwards, e.g., when creating a # static archive out of a convenience library, or when linking # the entirety of a libtool archive into another (currently # not supported by libtool). if (for obj in $oldobjs do func_basename "$obj" $ECHO "$func_basename_result" done | sort | sort -uc >/dev/null 2>&1); then : else echo "copying selected object files to avoid basename conflicts..." gentop="$output_objdir/${outputname}x" func_append generated " $gentop" func_mkdir_p "$gentop" save_oldobjs=$oldobjs oldobjs= counter=1 for obj in $save_oldobjs do func_basename "$obj" objbase="$func_basename_result" case " $oldobjs " in " ") oldobjs=$obj ;; *[\ /]"$objbase "*) while :; do # Make sure we don't pick an alternate name that also # overlaps. newobj=lt$counter-$objbase func_arith $counter + 1 counter=$func_arith_result case " $oldobjs " in *[\ /]"$newobj "*) ;; *) if test ! -f "$gentop/$newobj"; then break; fi ;; esac done func_show_eval "ln $obj $gentop/$newobj || cp $obj $gentop/$newobj" func_append oldobjs " $gentop/$newobj" ;; *) func_append oldobjs " $obj" ;; esac done fi func_to_tool_file "$oldlib" func_convert_file_msys_to_w32 tool_oldlib=$func_to_tool_file_result eval cmds=\"$old_archive_cmds\" func_len " $cmds" len=$func_len_result if test "$len" -lt "$max_cmd_len" || test "$max_cmd_len" -le -1; then cmds=$old_archive_cmds elif test -n "$archiver_list_spec"; then func_verbose "using command file archive linking..." for obj in $oldobjs do func_to_tool_file "$obj" $ECHO "$func_to_tool_file_result" done > $output_objdir/$libname.libcmd func_to_tool_file "$output_objdir/$libname.libcmd" oldobjs=" $archiver_list_spec$func_to_tool_file_result" cmds=$old_archive_cmds else # the command line is too long to link in one step, link in parts func_verbose "using piecewise archive linking..." save_RANLIB=$RANLIB RANLIB=: objlist= concat_cmds= save_oldobjs=$oldobjs oldobjs= # Is there a better way of finding the last object in the list? for obj in $save_oldobjs do last_oldobj=$obj done eval test_cmds=\"$old_archive_cmds\" func_len " $test_cmds" len0=$func_len_result len=$len0 for obj in $save_oldobjs do func_len " $obj" func_arith $len + $func_len_result len=$func_arith_result func_append objlist " $obj" if test "$len" -lt "$max_cmd_len"; then : else # the above command should be used before it gets too long oldobjs=$objlist if test "$obj" = "$last_oldobj" ; then RANLIB=$save_RANLIB fi test -z "$concat_cmds" || concat_cmds=$concat_cmds~ eval concat_cmds=\"\${concat_cmds}$old_archive_cmds\" objlist= len=$len0 fi done RANLIB=$save_RANLIB oldobjs=$objlist if test "X$oldobjs" = "X" ; then eval cmds=\"\$concat_cmds\" else eval cmds=\"\$concat_cmds~\$old_archive_cmds\" fi fi fi func_execute_cmds "$cmds" 'exit $?' done test -n "$generated" && \ func_show_eval "${RM}r$generated" # Now create the libtool archive. case $output in *.la) old_library= test "$build_old_libs" = yes && old_library="$libname.$libext" func_verbose "creating $output" # Preserve any variables that may affect compiler behavior for var in $variables_saved_for_relink; do if eval test -z \"\${$var+set}\"; then relink_command="{ test -z \"\${$var+set}\" || $lt_unset $var || { $var=; export $var; }; }; $relink_command" elif eval var_value=\$$var; test -z "$var_value"; then relink_command="$var=; export $var; $relink_command" else func_quote_for_eval "$var_value" relink_command="$var=$func_quote_for_eval_result; export $var; $relink_command" fi done # Quote the link command for shipping. relink_command="(cd `pwd`; $SHELL $progpath $preserve_args --mode=relink $libtool_args @inst_prefix_dir@)" relink_command=`$ECHO "$relink_command" | $SED "$sed_quote_subst"` if test "$hardcode_automatic" = yes ; then relink_command= fi # Only create the output if not a dry run. $opt_dry_run || { for installed in no yes; do if test "$installed" = yes; then if test -z "$install_libdir"; then break fi output="$output_objdir/$outputname"i # Replace all uninstalled libtool libraries with the installed ones newdependency_libs= for deplib in $dependency_libs; do case $deplib in *.la) func_basename "$deplib" name="$func_basename_result" func_resolve_sysroot "$deplib" eval libdir=`${SED} -n -e 's/^libdir=\(.*\)$/\1/p' $func_resolve_sysroot_result` test -z "$libdir" && \ func_fatal_error "\`$deplib' is not a valid libtool archive" func_append newdependency_libs " ${lt_sysroot:+=}$libdir/$name" ;; -L*) func_stripname -L '' "$deplib" func_replace_sysroot "$func_stripname_result" func_append newdependency_libs " -L$func_replace_sysroot_result" ;; -R*) func_stripname -R '' "$deplib" func_replace_sysroot "$func_stripname_result" func_append newdependency_libs " -R$func_replace_sysroot_result" ;; *) func_append newdependency_libs " $deplib" ;; esac done dependency_libs="$newdependency_libs" newdlfiles= for lib in $dlfiles; do case $lib in *.la) func_basename "$lib" name="$func_basename_result" eval libdir=`${SED} -n -e 's/^libdir=\(.*\)$/\1/p' $lib` test -z "$libdir" && \ func_fatal_error "\`$lib' is not a valid libtool archive" func_append newdlfiles " ${lt_sysroot:+=}$libdir/$name" ;; *) func_append newdlfiles " $lib" ;; esac done dlfiles="$newdlfiles" newdlprefiles= for lib in $dlprefiles; do case $lib in *.la) # Only pass preopened files to the pseudo-archive (for # eventual linking with the app. that links it) if we # didn't already link the preopened objects directly into # the library: func_basename "$lib" name="$func_basename_result" eval libdir=`${SED} -n -e 's/^libdir=\(.*\)$/\1/p' $lib` test -z "$libdir" && \ func_fatal_error "\`$lib' is not a valid libtool archive" func_append newdlprefiles " ${lt_sysroot:+=}$libdir/$name" ;; esac done dlprefiles="$newdlprefiles" else newdlfiles= for lib in $dlfiles; do case $lib in [\\/]* | [A-Za-z]:[\\/]*) abs="$lib" ;; *) abs=`pwd`"/$lib" ;; esac func_append newdlfiles " $abs" done dlfiles="$newdlfiles" newdlprefiles= for lib in $dlprefiles; do case $lib in [\\/]* | [A-Za-z]:[\\/]*) abs="$lib" ;; *) abs=`pwd`"/$lib" ;; esac func_append newdlprefiles " $abs" done dlprefiles="$newdlprefiles" fi $RM $output # place dlname in correct position for cygwin # In fact, it would be nice if we could use this code for all target # systems that can't hard-code library paths into their executables # and that have no shared library path variable independent of PATH, # but it turns out we can't easily determine that from inspecting # libtool variables, so we have to hard-code the OSs to which it # applies here; at the moment, that means platforms that use the PE # object format with DLL files. See the long comment at the top of # tests/bindir.at for full details. tdlname=$dlname case $host,$output,$installed,$module,$dlname in *cygwin*,*lai,yes,no,*.dll | *mingw*,*lai,yes,no,*.dll | *cegcc*,*lai,yes,no,*.dll) # If a -bindir argument was supplied, place the dll there. if test "x$bindir" != x ; then func_relative_path "$install_libdir" "$bindir" tdlname=$func_relative_path_result$dlname else # Otherwise fall back on heuristic. tdlname=../bin/$dlname fi ;; esac $ECHO > $output "\ # $outputname - a libtool library file # Generated by $PROGRAM (GNU $PACKAGE$TIMESTAMP) $VERSION # # Please DO NOT delete this file! # It is necessary for linking the library. # The name that we can dlopen(3). dlname='$tdlname' # Names of this library. library_names='$library_names' # The name of the static archive. old_library='$old_library' # Linker flags that can not go in dependency_libs. inherited_linker_flags='$new_inherited_linker_flags' # Libraries that this one depends upon. dependency_libs='$dependency_libs' # Names of additional weak libraries provided by this library weak_library_names='$weak_libs' # Version information for $libname. current=$current age=$age revision=$revision # Is this an already installed library? installed=$installed # Should we warn about portability when linking against -modules? shouldnotlink=$module # Files to dlopen/dlpreopen dlopen='$dlfiles' dlpreopen='$dlprefiles' # Directory that this library needs to be installed in: libdir='$install_libdir'" if test "$installed" = no && test "$need_relink" = yes; then $ECHO >> $output "\ relink_command=\"$relink_command\"" fi done } # Do a symbolic link so that the libtool archive can be found in # LD_LIBRARY_PATH before the program is installed. func_show_eval '( cd "$output_objdir" && $RM "$outputname" && $LN_S "../$outputname" "$outputname" )' 'exit $?' ;; esac exit $EXIT_SUCCESS } { test "$opt_mode" = link || test "$opt_mode" = relink; } && func_mode_link ${1+"$@"} # func_mode_uninstall arg... func_mode_uninstall () { $opt_debug RM="$nonopt" files= rmforce= exit_status=0 # This variable tells wrapper scripts just to set variables rather # than running their programs. libtool_install_magic="$magic" for arg do case $arg in -f) func_append RM " $arg"; rmforce=yes ;; -*) func_append RM " $arg" ;; *) func_append files " $arg" ;; esac done test -z "$RM" && \ func_fatal_help "you must specify an RM program" rmdirs= for file in $files; do func_dirname "$file" "" "." dir="$func_dirname_result" if test "X$dir" = X.; then odir="$objdir" else odir="$dir/$objdir" fi func_basename "$file" name="$func_basename_result" test "$opt_mode" = uninstall && odir="$dir" # Remember odir for removal later, being careful to avoid duplicates if test "$opt_mode" = clean; then case " $rmdirs " in *" $odir "*) ;; *) func_append rmdirs " $odir" ;; esac fi # Don't error if the file doesn't exist and rm -f was used. if { test -L "$file"; } >/dev/null 2>&1 || { test -h "$file"; } >/dev/null 2>&1 || test -f "$file"; then : elif test -d "$file"; then exit_status=1 continue elif test "$rmforce" = yes; then continue fi rmfiles="$file" case $name in *.la) # Possibly a libtool archive, so verify it. if func_lalib_p "$file"; then func_source $dir/$name # Delete the libtool libraries and symlinks. for n in $library_names; do func_append rmfiles " $odir/$n" done test -n "$old_library" && func_append rmfiles " $odir/$old_library" case "$opt_mode" in clean) case " $library_names " in *" $dlname "*) ;; *) test -n "$dlname" && func_append rmfiles " $odir/$dlname" ;; esac test -n "$libdir" && func_append rmfiles " $odir/$name $odir/${name}i" ;; uninstall) if test -n "$library_names"; then # Do each command in the postuninstall commands. func_execute_cmds "$postuninstall_cmds" 'test "$rmforce" = yes || exit_status=1' fi if test -n "$old_library"; then # Do each command in the old_postuninstall commands. func_execute_cmds "$old_postuninstall_cmds" 'test "$rmforce" = yes || exit_status=1' fi # FIXME: should reinstall the best remaining shared library. ;; esac fi ;; *.lo) # Possibly a libtool object, so verify it. if func_lalib_p "$file"; then # Read the .lo file func_source $dir/$name # Add PIC object to the list of files to remove. if test -n "$pic_object" && test "$pic_object" != none; then func_append rmfiles " $dir/$pic_object" fi # Add non-PIC object to the list of files to remove. if test -n "$non_pic_object" && test "$non_pic_object" != none; then func_append rmfiles " $dir/$non_pic_object" fi fi ;; *) if test "$opt_mode" = clean ; then noexename=$name case $file in *.exe) func_stripname '' '.exe' "$file" file=$func_stripname_result func_stripname '' '.exe' "$name" noexename=$func_stripname_result # $file with .exe has already been added to rmfiles, # add $file without .exe func_append rmfiles " $file" ;; esac # Do a test to see if this is a libtool program. if func_ltwrapper_p "$file"; then if func_ltwrapper_executable_p "$file"; then func_ltwrapper_scriptname "$file" relink_command= func_source $func_ltwrapper_scriptname_result func_append rmfiles " $func_ltwrapper_scriptname_result" else relink_command= func_source $dir/$noexename fi # note $name still contains .exe if it was in $file originally # as does the version of $file that was added into $rmfiles func_append rmfiles " $odir/$name $odir/${name}S.${objext}" if test "$fast_install" = yes && test -n "$relink_command"; then func_append rmfiles " $odir/lt-$name" fi if test "X$noexename" != "X$name" ; then func_append rmfiles " $odir/lt-${noexename}.c" fi fi fi ;; esac func_show_eval "$RM $rmfiles" 'exit_status=1' done # Try to remove the ${objdir}s in the directories where we deleted files for dir in $rmdirs; do if test -d "$dir"; then func_show_eval "rmdir $dir >/dev/null 2>&1" fi done exit $exit_status } { test "$opt_mode" = uninstall || test "$opt_mode" = clean; } && func_mode_uninstall ${1+"$@"} test -z "$opt_mode" && { help="$generic_help" func_fatal_help "you must specify a MODE" } test -z "$exec_cmd" && \ func_fatal_help "invalid operation mode \`$opt_mode'" if test -n "$exec_cmd"; then eval exec "$exec_cmd" exit $EXIT_FAILURE fi exit $exit_status # The TAGs below are defined such that we never get into a situation # in which we disable both kinds of libraries. Given conflicting # choices, we go for a static library, that is the most portable, # since we can't tell whether shared libraries were disabled because # the user asked for that or because the platform doesn't support # them. This is particularly important on AIX, because we don't # support having both static and shared libraries enabled at the same # time on that platform, so we default to a shared-only configuration. # If a disable-shared tag is given, we'll fallback to a static-only # configuration. But we'll never go from static-only to shared-only. # ### BEGIN LIBTOOL TAG CONFIG: disable-shared build_libtool_libs=no build_old_libs=yes # ### END LIBTOOL TAG CONFIG: disable-shared # ### BEGIN LIBTOOL TAG CONFIG: disable-static build_old_libs=`case $build_libtool_libs in yes) echo no;; *) echo yes;; esac` # ### END LIBTOOL TAG CONFIG: disable-static # Local Variables: # mode:shell-script # sh-indentation:2 # End: # vi:sw=2 guile-gnome-platform-2.16.2/build-aux/mdate-sh0000755000175000017500000001275111671126172021520 0ustar00wingowingo00000000000000#!/bin/sh # Get modification time of a file or directory and pretty-print it. scriptversion=2009-04-28.21; # UTC # Copyright (C) 1995, 1996, 1997, 2003, 2004, 2005, 2007, 2009 Free # Software Foundation, Inc. # written by Ulrich Drepper , June 1995 # # This program is free software; you can redistribute it and/or modify # it under the terms of the GNU General Public License as published by # the Free Software Foundation; either version 2, or (at your option) # any later version. # # This program is distributed in the hope that it will be useful, # but WITHOUT ANY WARRANTY; without even the implied warranty of # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the # GNU General Public License for more details. # # You should have received a copy of the GNU General Public License # along with this program. If not, see . # As a special exception to the GNU General Public License, if you # distribute this file as part of a program that contains a # configuration script generated by Autoconf, you may include it under # the same distribution terms that you use for the rest of that program. # This file is maintained in Automake, please report # bugs to or send patches to # . case $1 in '') echo "$0: No file. Try \`$0 --help' for more information." 1>&2 exit 1; ;; -h | --h*) cat <<\EOF Usage: mdate-sh [--help] [--version] FILE Pretty-print the modification time of FILE. Report bugs to . EOF exit $? ;; -v | --v*) echo "mdate-sh $scriptversion" exit $? ;; esac # Prevent date giving response in another language. LANG=C export LANG LC_ALL=C export LC_ALL LC_TIME=C export LC_TIME # GNU ls changes its time format in response to the TIME_STYLE # variable. Since we cannot assume `unset' works, revert this # variable to its documented default. if test "${TIME_STYLE+set}" = set; then TIME_STYLE=posix-long-iso export TIME_STYLE fi save_arg1=$1 # Find out how to get the extended ls output of a file or directory. if ls -L /dev/null 1>/dev/null 2>&1; then ls_command='ls -L -l -d' else ls_command='ls -l -d' fi # Avoid user/group names that might have spaces, when possible. if ls -n /dev/null 1>/dev/null 2>&1; then ls_command="$ls_command -n" fi # A `ls -l' line looks as follows on OS/2. # drwxrwx--- 0 Aug 11 2001 foo # This differs from Unix, which adds ownership information. # drwxrwx--- 2 root root 4096 Aug 11 2001 foo # # To find the date, we split the line on spaces and iterate on words # until we find a month. This cannot work with files whose owner is a # user named `Jan', or `Feb', etc. However, it's unlikely that `/' # will be owned by a user whose name is a month. So we first look at # the extended ls output of the root directory to decide how many # words should be skipped to get the date. # On HPUX /bin/sh, "set" interprets "-rw-r--r--" as options, so the "x" below. set x`$ls_command /` # Find which argument is the month. month= command= until test $month do shift # Add another shift to the command. command="$command shift;" case $1 in Jan) month=January; nummonth=1;; Feb) month=February; nummonth=2;; Mar) month=March; nummonth=3;; Apr) month=April; nummonth=4;; May) month=May; nummonth=5;; Jun) month=June; nummonth=6;; Jul) month=July; nummonth=7;; Aug) month=August; nummonth=8;; Sep) month=September; nummonth=9;; Oct) month=October; nummonth=10;; Nov) month=November; nummonth=11;; Dec) month=December; nummonth=12;; esac done # Get the extended ls output of the file or directory. set dummy x`eval "$ls_command \"\$save_arg1\""` # Remove all preceding arguments eval $command # Because of the dummy argument above, month is in $2. # # On a POSIX system, we should have # # $# = 5 # $1 = file size # $2 = month # $3 = day # $4 = year or time # $5 = filename # # On Darwin 7.7.0 and 7.6.0, we have # # $# = 4 # $1 = day # $2 = month # $3 = year or time # $4 = filename # Get the month. case $2 in Jan) month=January; nummonth=1;; Feb) month=February; nummonth=2;; Mar) month=March; nummonth=3;; Apr) month=April; nummonth=4;; May) month=May; nummonth=5;; Jun) month=June; nummonth=6;; Jul) month=July; nummonth=7;; Aug) month=August; nummonth=8;; Sep) month=September; nummonth=9;; Oct) month=October; nummonth=10;; Nov) month=November; nummonth=11;; Dec) month=December; nummonth=12;; esac case $3 in ???*) day=$1;; *) day=$3; shift;; esac # Here we have to deal with the problem that the ls output gives either # the time of day or the year. case $3 in *:*) set `date`; eval year=\$$# case $2 in Jan) nummonthtod=1;; Feb) nummonthtod=2;; Mar) nummonthtod=3;; Apr) nummonthtod=4;; May) nummonthtod=5;; Jun) nummonthtod=6;; Jul) nummonthtod=7;; Aug) nummonthtod=8;; Sep) nummonthtod=9;; Oct) nummonthtod=10;; Nov) nummonthtod=11;; Dec) nummonthtod=12;; esac # For the first six month of the year the time notation can also # be used for files modified in the last year. if (expr $nummonth \> $nummonthtod) > /dev/null; then year=`expr $year - 1` fi;; *) year=$3;; esac # The result. echo $day $month $year # Local Variables: # mode: shell-script # sh-indentation: 2 # eval: (add-hook 'write-file-hooks 'time-stamp) # time-stamp-start: "scriptversion=" # time-stamp-format: "%:y-%02m-%02d.%02H" # time-stamp-time-zone: "UTC" # time-stamp-end: "; # UTC" # End: guile-gnome-platform-2.16.2/build-aux/depcomp0000755000175000017500000004426711671126172021454 0ustar00wingowingo00000000000000#! /bin/sh # depcomp - compile a program generating dependencies as side-effects scriptversion=2009-04-28.21; # UTC # Copyright (C) 1999, 2000, 2003, 2004, 2005, 2006, 2007, 2009 Free # Software Foundation, Inc. # This program is free software; you can redistribute it and/or modify # it under the terms of the GNU General Public License as published by # the Free Software Foundation; either version 2, or (at your option) # any later version. # This program is distributed in the hope that it will be useful, # but WITHOUT ANY WARRANTY; without even the implied warranty of # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the # GNU General Public License for more details. # You should have received a copy of the GNU General Public License # along with this program. If not, see . # As a special exception to the GNU General Public License, if you # distribute this file as part of a program that contains a # configuration script generated by Autoconf, you may include it under # the same distribution terms that you use for the rest of that program. # Originally written by Alexandre Oliva . case $1 in '') echo "$0: No command. Try \`$0 --help' for more information." 1>&2 exit 1; ;; -h | --h*) cat <<\EOF Usage: depcomp [--help] [--version] PROGRAM [ARGS] Run PROGRAMS ARGS to compile a file, generating dependencies as side-effects. Environment variables: depmode Dependency tracking mode. source Source file read by `PROGRAMS ARGS'. object Object file output by `PROGRAMS ARGS'. DEPDIR directory where to store dependencies. depfile Dependency file to output. tmpdepfile Temporary file to use when outputing dependencies. libtool Whether libtool is used (yes/no). Report bugs to . EOF exit $? ;; -v | --v*) echo "depcomp $scriptversion" exit $? ;; esac if test -z "$depmode" || test -z "$source" || test -z "$object"; then echo "depcomp: Variables source, object and depmode must be set" 1>&2 exit 1 fi # Dependencies for sub/bar.o or sub/bar.obj go into sub/.deps/bar.Po. depfile=${depfile-`echo "$object" | sed 's|[^\\/]*$|'${DEPDIR-.deps}'/&|;s|\.\([^.]*\)$|.P\1|;s|Pobj$|Po|'`} tmpdepfile=${tmpdepfile-`echo "$depfile" | sed 's/\.\([^.]*\)$/.T\1/'`} rm -f "$tmpdepfile" # Some modes work just like other modes, but use different flags. We # parameterize here, but still list the modes in the big case below, # to make depend.m4 easier to write. Note that we *cannot* use a case # here, because this file can only contain one case statement. if test "$depmode" = hp; then # HP compiler uses -M and no extra arg. gccflag=-M depmode=gcc fi if test "$depmode" = dashXmstdout; then # This is just like dashmstdout with a different argument. dashmflag=-xM depmode=dashmstdout fi cygpath_u="cygpath -u -f -" if test "$depmode" = msvcmsys; then # This is just like msvisualcpp but w/o cygpath translation. # Just convert the backslash-escaped backslashes to single forward # slashes to satisfy depend.m4 cygpath_u="sed s,\\\\\\\\,/,g" depmode=msvisualcpp fi case "$depmode" in gcc3) ## gcc 3 implements dependency tracking that does exactly what ## we want. Yay! Note: for some reason libtool 1.4 doesn't like ## it if -MD -MP comes after the -MF stuff. Hmm. ## Unfortunately, FreeBSD c89 acceptance of flags depends upon ## the command line argument order; so add the flags where they ## appear in depend2.am. Note that the slowdown incurred here ## affects only configure: in makefiles, %FASTDEP% shortcuts this. for arg do case $arg in -c) set fnord "$@" -MT "$object" -MD -MP -MF "$tmpdepfile" "$arg" ;; *) set fnord "$@" "$arg" ;; esac shift # fnord shift # $arg done "$@" stat=$? if test $stat -eq 0; then : else rm -f "$tmpdepfile" exit $stat fi mv "$tmpdepfile" "$depfile" ;; gcc) ## There are various ways to get dependency output from gcc. Here's ## why we pick this rather obscure method: ## - Don't want to use -MD because we'd like the dependencies to end ## up in a subdir. Having to rename by hand is ugly. ## (We might end up doing this anyway to support other compilers.) ## - The DEPENDENCIES_OUTPUT environment variable makes gcc act like ## -MM, not -M (despite what the docs say). ## - Using -M directly means running the compiler twice (even worse ## than renaming). if test -z "$gccflag"; then gccflag=-MD, fi "$@" -Wp,"$gccflag$tmpdepfile" stat=$? if test $stat -eq 0; then : else rm -f "$tmpdepfile" exit $stat fi rm -f "$depfile" echo "$object : \\" > "$depfile" alpha=ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz ## The second -e expression handles DOS-style file names with drive letters. sed -e 's/^[^:]*: / /' \ -e 's/^['$alpha']:\/[^:]*: / /' < "$tmpdepfile" >> "$depfile" ## This next piece of magic avoids the `deleted header file' problem. ## The problem is that when a header file which appears in a .P file ## is deleted, the dependency causes make to die (because there is ## typically no way to rebuild the header). We avoid this by adding ## dummy dependencies for each header file. Too bad gcc doesn't do ## this for us directly. tr ' ' ' ' < "$tmpdepfile" | ## Some versions of gcc put a space before the `:'. On the theory ## that the space means something, we add a space to the output as ## well. ## Some versions of the HPUX 10.20 sed can't process this invocation ## correctly. Breaking it into two sed invocations is a workaround. sed -e 's/^\\$//' -e '/^$/d' -e '/:$/d' | sed -e 's/$/ :/' >> "$depfile" rm -f "$tmpdepfile" ;; hp) # This case exists only to let depend.m4 do its work. It works by # looking at the text of this script. This case will never be run, # since it is checked for above. exit 1 ;; sgi) if test "$libtool" = yes; then "$@" "-Wp,-MDupdate,$tmpdepfile" else "$@" -MDupdate "$tmpdepfile" fi stat=$? if test $stat -eq 0; then : else rm -f "$tmpdepfile" exit $stat fi rm -f "$depfile" if test -f "$tmpdepfile"; then # yes, the sourcefile depend on other files echo "$object : \\" > "$depfile" # Clip off the initial element (the dependent). Don't try to be # clever and replace this with sed code, as IRIX sed won't handle # lines with more than a fixed number of characters (4096 in # IRIX 6.2 sed, 8192 in IRIX 6.5). We also remove comment lines; # the IRIX cc adds comments like `#:fec' to the end of the # dependency line. tr ' ' ' ' < "$tmpdepfile" \ | sed -e 's/^.*\.o://' -e 's/#.*$//' -e '/^$/ d' | \ tr ' ' ' ' >> "$depfile" echo >> "$depfile" # The second pass generates a dummy entry for each header file. tr ' ' ' ' < "$tmpdepfile" \ | sed -e 's/^.*\.o://' -e 's/#.*$//' -e '/^$/ d' -e 's/$/:/' \ >> "$depfile" else # The sourcefile does not contain any dependencies, so just # store a dummy comment line, to avoid errors with the Makefile # "include basename.Plo" scheme. echo "#dummy" > "$depfile" fi rm -f "$tmpdepfile" ;; aix) # The C for AIX Compiler uses -M and outputs the dependencies # in a .u file. In older versions, this file always lives in the # current directory. Also, the AIX compiler puts `$object:' at the # start of each line; $object doesn't have directory information. # Version 6 uses the directory in both cases. dir=`echo "$object" | sed -e 's|/[^/]*$|/|'` test "x$dir" = "x$object" && dir= base=`echo "$object" | sed -e 's|^.*/||' -e 's/\.o$//' -e 's/\.lo$//'` if test "$libtool" = yes; then tmpdepfile1=$dir$base.u tmpdepfile2=$base.u tmpdepfile3=$dir.libs/$base.u "$@" -Wc,-M else tmpdepfile1=$dir$base.u tmpdepfile2=$dir$base.u tmpdepfile3=$dir$base.u "$@" -M fi stat=$? if test $stat -eq 0; then : else rm -f "$tmpdepfile1" "$tmpdepfile2" "$tmpdepfile3" exit $stat fi for tmpdepfile in "$tmpdepfile1" "$tmpdepfile2" "$tmpdepfile3" do test -f "$tmpdepfile" && break done if test -f "$tmpdepfile"; then # Each line is of the form `foo.o: dependent.h'. # Do two passes, one to just change these to # `$object: dependent.h' and one to simply `dependent.h:'. sed -e "s,^.*\.[a-z]*:,$object:," < "$tmpdepfile" > "$depfile" # That's a tab and a space in the []. sed -e 's,^.*\.[a-z]*:[ ]*,,' -e 's,$,:,' < "$tmpdepfile" >> "$depfile" else # The sourcefile does not contain any dependencies, so just # store a dummy comment line, to avoid errors with the Makefile # "include basename.Plo" scheme. echo "#dummy" > "$depfile" fi rm -f "$tmpdepfile" ;; icc) # Intel's C compiler understands `-MD -MF file'. However on # icc -MD -MF foo.d -c -o sub/foo.o sub/foo.c # ICC 7.0 will fill foo.d with something like # foo.o: sub/foo.c # foo.o: sub/foo.h # which is wrong. We want: # sub/foo.o: sub/foo.c # sub/foo.o: sub/foo.h # sub/foo.c: # sub/foo.h: # ICC 7.1 will output # foo.o: sub/foo.c sub/foo.h # and will wrap long lines using \ : # foo.o: sub/foo.c ... \ # sub/foo.h ... \ # ... "$@" -MD -MF "$tmpdepfile" stat=$? if test $stat -eq 0; then : else rm -f "$tmpdepfile" exit $stat fi rm -f "$depfile" # Each line is of the form `foo.o: dependent.h', # or `foo.o: dep1.h dep2.h \', or ` dep3.h dep4.h \'. # Do two passes, one to just change these to # `$object: dependent.h' and one to simply `dependent.h:'. sed "s,^[^:]*:,$object :," < "$tmpdepfile" > "$depfile" # Some versions of the HPUX 10.20 sed can't process this invocation # correctly. Breaking it into two sed invocations is a workaround. sed 's,^[^:]*: \(.*\)$,\1,;s/^\\$//;/^$/d;/:$/d' < "$tmpdepfile" | sed -e 's/$/ :/' >> "$depfile" rm -f "$tmpdepfile" ;; hp2) # The "hp" stanza above does not work with aCC (C++) and HP's ia64 # compilers, which have integrated preprocessors. The correct option # to use with these is +Maked; it writes dependencies to a file named # 'foo.d', which lands next to the object file, wherever that # happens to be. # Much of this is similar to the tru64 case; see comments there. dir=`echo "$object" | sed -e 's|/[^/]*$|/|'` test "x$dir" = "x$object" && dir= base=`echo "$object" | sed -e 's|^.*/||' -e 's/\.o$//' -e 's/\.lo$//'` if test "$libtool" = yes; then tmpdepfile1=$dir$base.d tmpdepfile2=$dir.libs/$base.d "$@" -Wc,+Maked else tmpdepfile1=$dir$base.d tmpdepfile2=$dir$base.d "$@" +Maked fi stat=$? if test $stat -eq 0; then : else rm -f "$tmpdepfile1" "$tmpdepfile2" exit $stat fi for tmpdepfile in "$tmpdepfile1" "$tmpdepfile2" do test -f "$tmpdepfile" && break done if test -f "$tmpdepfile"; then sed -e "s,^.*\.[a-z]*:,$object:," "$tmpdepfile" > "$depfile" # Add `dependent.h:' lines. sed -ne '2,${ s/^ *// s/ \\*$// s/$/:/ p }' "$tmpdepfile" >> "$depfile" else echo "#dummy" > "$depfile" fi rm -f "$tmpdepfile" "$tmpdepfile2" ;; tru64) # The Tru64 compiler uses -MD to generate dependencies as a side # effect. `cc -MD -o foo.o ...' puts the dependencies into `foo.o.d'. # At least on Alpha/Redhat 6.1, Compaq CCC V6.2-504 seems to put # dependencies in `foo.d' instead, so we check for that too. # Subdirectories are respected. dir=`echo "$object" | sed -e 's|/[^/]*$|/|'` test "x$dir" = "x$object" && dir= base=`echo "$object" | sed -e 's|^.*/||' -e 's/\.o$//' -e 's/\.lo$//'` if test "$libtool" = yes; then # With Tru64 cc, shared objects can also be used to make a # static library. This mechanism is used in libtool 1.4 series to # handle both shared and static libraries in a single compilation. # With libtool 1.4, dependencies were output in $dir.libs/$base.lo.d. # # With libtool 1.5 this exception was removed, and libtool now # generates 2 separate objects for the 2 libraries. These two # compilations output dependencies in $dir.libs/$base.o.d and # in $dir$base.o.d. We have to check for both files, because # one of the two compilations can be disabled. We should prefer # $dir$base.o.d over $dir.libs/$base.o.d because the latter is # automatically cleaned when .libs/ is deleted, while ignoring # the former would cause a distcleancheck panic. tmpdepfile1=$dir.libs/$base.lo.d # libtool 1.4 tmpdepfile2=$dir$base.o.d # libtool 1.5 tmpdepfile3=$dir.libs/$base.o.d # libtool 1.5 tmpdepfile4=$dir.libs/$base.d # Compaq CCC V6.2-504 "$@" -Wc,-MD else tmpdepfile1=$dir$base.o.d tmpdepfile2=$dir$base.d tmpdepfile3=$dir$base.d tmpdepfile4=$dir$base.d "$@" -MD fi stat=$? if test $stat -eq 0; then : else rm -f "$tmpdepfile1" "$tmpdepfile2" "$tmpdepfile3" "$tmpdepfile4" exit $stat fi for tmpdepfile in "$tmpdepfile1" "$tmpdepfile2" "$tmpdepfile3" "$tmpdepfile4" do test -f "$tmpdepfile" && break done if test -f "$tmpdepfile"; then sed -e "s,^.*\.[a-z]*:,$object:," < "$tmpdepfile" > "$depfile" # That's a tab and a space in the []. sed -e 's,^.*\.[a-z]*:[ ]*,,' -e 's,$,:,' < "$tmpdepfile" >> "$depfile" else echo "#dummy" > "$depfile" fi rm -f "$tmpdepfile" ;; #nosideeffect) # This comment above is used by automake to tell side-effect # dependency tracking mechanisms from slower ones. dashmstdout) # Important note: in order to support this mode, a compiler *must* # always write the preprocessed file to stdout, regardless of -o. "$@" || exit $? # Remove the call to Libtool. if test "$libtool" = yes; then while test "X$1" != 'X--mode=compile'; do shift done shift fi # Remove `-o $object'. IFS=" " for arg do case $arg in -o) shift ;; $object) shift ;; *) set fnord "$@" "$arg" shift # fnord shift # $arg ;; esac done test -z "$dashmflag" && dashmflag=-M # Require at least two characters before searching for `:' # in the target name. This is to cope with DOS-style filenames: # a dependency such as `c:/foo/bar' could be seen as target `c' otherwise. "$@" $dashmflag | sed 's:^[ ]*[^: ][^:][^:]*\:[ ]*:'"$object"'\: :' > "$tmpdepfile" rm -f "$depfile" cat < "$tmpdepfile" > "$depfile" tr ' ' ' ' < "$tmpdepfile" | \ ## Some versions of the HPUX 10.20 sed can't process this invocation ## correctly. Breaking it into two sed invocations is a workaround. sed -e 's/^\\$//' -e '/^$/d' -e '/:$/d' | sed -e 's/$/ :/' >> "$depfile" rm -f "$tmpdepfile" ;; dashXmstdout) # This case only exists to satisfy depend.m4. It is never actually # run, as this mode is specially recognized in the preamble. exit 1 ;; makedepend) "$@" || exit $? # Remove any Libtool call if test "$libtool" = yes; then while test "X$1" != 'X--mode=compile'; do shift done shift fi # X makedepend shift cleared=no eat=no for arg do case $cleared in no) set ""; shift cleared=yes ;; esac if test $eat = yes; then eat=no continue fi case "$arg" in -D*|-I*) set fnord "$@" "$arg"; shift ;; # Strip any option that makedepend may not understand. Remove # the object too, otherwise makedepend will parse it as a source file. -arch) eat=yes ;; -*|$object) ;; *) set fnord "$@" "$arg"; shift ;; esac done obj_suffix=`echo "$object" | sed 's/^.*\././'` touch "$tmpdepfile" ${MAKEDEPEND-makedepend} -o"$obj_suffix" -f"$tmpdepfile" "$@" rm -f "$depfile" cat < "$tmpdepfile" > "$depfile" sed '1,2d' "$tmpdepfile" | tr ' ' ' ' | \ ## Some versions of the HPUX 10.20 sed can't process this invocation ## correctly. Breaking it into two sed invocations is a workaround. sed -e 's/^\\$//' -e '/^$/d' -e '/:$/d' | sed -e 's/$/ :/' >> "$depfile" rm -f "$tmpdepfile" "$tmpdepfile".bak ;; cpp) # Important note: in order to support this mode, a compiler *must* # always write the preprocessed file to stdout. "$@" || exit $? # Remove the call to Libtool. if test "$libtool" = yes; then while test "X$1" != 'X--mode=compile'; do shift done shift fi # Remove `-o $object'. IFS=" " for arg do case $arg in -o) shift ;; $object) shift ;; *) set fnord "$@" "$arg" shift # fnord shift # $arg ;; esac done "$@" -E | sed -n -e '/^# [0-9][0-9]* "\([^"]*\)".*/ s:: \1 \\:p' \ -e '/^#line [0-9][0-9]* "\([^"]*\)".*/ s:: \1 \\:p' | sed '$ s: \\$::' > "$tmpdepfile" rm -f "$depfile" echo "$object : \\" > "$depfile" cat < "$tmpdepfile" >> "$depfile" sed < "$tmpdepfile" '/^$/d;s/^ //;s/ \\$//;s/$/ :/' >> "$depfile" rm -f "$tmpdepfile" ;; msvisualcpp) # Important note: in order to support this mode, a compiler *must* # always write the preprocessed file to stdout. "$@" || exit $? # Remove the call to Libtool. if test "$libtool" = yes; then while test "X$1" != 'X--mode=compile'; do shift done shift fi IFS=" " for arg do case "$arg" in -o) shift ;; $object) shift ;; "-Gm"|"/Gm"|"-Gi"|"/Gi"|"-ZI"|"/ZI") set fnord "$@" shift shift ;; *) set fnord "$@" "$arg" shift shift ;; esac done "$@" -E 2>/dev/null | sed -n '/^#line [0-9][0-9]* "\([^"]*\)"/ s::\1:p' | $cygpath_u | sort -u > "$tmpdepfile" rm -f "$depfile" echo "$object : \\" > "$depfile" sed < "$tmpdepfile" -n -e 's% %\\ %g' -e '/^\(.*\)$/ s:: \1 \\:p' >> "$depfile" echo " " >> "$depfile" sed < "$tmpdepfile" -n -e 's% %\\ %g' -e '/^\(.*\)$/ s::\1\::p' >> "$depfile" rm -f "$tmpdepfile" ;; msvcmsys) # This case exists only to let depend.m4 do its work. It works by # looking at the text of this script. This case will never be run, # since it is checked for above. exit 1 ;; none) exec "$@" ;; *) echo "Unknown depmode $depmode" 1>&2 exit 1 ;; esac exit 0 # Local Variables: # mode: shell-script # sh-indentation: 2 # eval: (add-hook 'write-file-hooks 'time-stamp) # time-stamp-start: "scriptversion=" # time-stamp-format: "%:y-%02m-%02d.%02H" # time-stamp-time-zone: "UTC" # time-stamp-end: "; # UTC" # End: guile-gnome-platform-2.16.2/build-aux/config.sub0000755000175000017500000010460611671126166022057 0ustar00wingowingo00000000000000#! /bin/sh # Configuration validation subroutine script. # Copyright (C) 1992, 1993, 1994, 1995, 1996, 1997, 1998, 1999, # 2000, 2001, 2002, 2003, 2004, 2005, 2006, 2007, 2008, 2009, 2010, # 2011 Free Software Foundation, Inc. timestamp='2011-03-23' # This file is (in principle) common to ALL GNU software. # The presence of a machine in this file suggests that SOME GNU software # can handle that machine. It does not imply ALL GNU software can. # # This file is free software; you can redistribute it and/or modify # it under the terms of the GNU General Public License as published by # the Free Software Foundation; either version 2 of the License, or # (at your option) any later version. # # This program is distributed in the hope that it will be useful, # but WITHOUT ANY WARRANTY; without even the implied warranty of # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the # GNU General Public License for more details. # # You should have received a copy of the GNU General Public License # along with this program; if not, write to the Free Software # Foundation, Inc., 51 Franklin Street - Fifth Floor, Boston, MA # 02110-1301, USA. # # As a special exception to the GNU General Public License, if you # distribute this file as part of a program that contains a # configuration script generated by Autoconf, you may include it under # the same distribution terms that you use for the rest of that program. # Please send patches to . Submit a context # diff and a properly formatted GNU ChangeLog entry. # # Configuration subroutine to validate and canonicalize a configuration type. # Supply the specified configuration type as an argument. # If it is invalid, we print an error message on stderr and exit with code 1. # Otherwise, we print the canonical config type on stdout and succeed. # You can get the latest version of this script from: # http://git.savannah.gnu.org/gitweb/?p=config.git;a=blob_plain;f=config.sub;hb=HEAD # This file is supposed to be the same for all GNU packages # and recognize all the CPU types, system types and aliases # that are meaningful with *any* GNU software. # Each package is responsible for reporting which valid configurations # it does not support. The user should be able to distinguish # a failure to support a valid configuration from a meaningless # configuration. # The goal of this file is to map all the various variations of a given # machine specification into a single specification in the form: # CPU_TYPE-MANUFACTURER-OPERATING_SYSTEM # or in some cases, the newer four-part form: # CPU_TYPE-MANUFACTURER-KERNEL-OPERATING_SYSTEM # It is wrong to echo any other type of specification. me=`echo "$0" | sed -e 's,.*/,,'` usage="\ Usage: $0 [OPTION] CPU-MFR-OPSYS $0 [OPTION] ALIAS Canonicalize a configuration name. Operation modes: -h, --help print this help, then exit -t, --time-stamp print date of last modification, then exit -v, --version print version number, then exit Report bugs and patches to ." version="\ GNU config.sub ($timestamp) Copyright (C) 1992, 1993, 1994, 1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004, 2005, 2006, 2007, 2008, 2009, 2010, 2011 Free Software Foundation, Inc. This is free software; see the source for copying conditions. There is NO warranty; not even for MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE." help=" Try \`$me --help' for more information." # Parse command line while test $# -gt 0 ; do case $1 in --time-stamp | --time* | -t ) echo "$timestamp" ; exit ;; --version | -v ) echo "$version" ; exit ;; --help | --h* | -h ) echo "$usage"; exit ;; -- ) # Stop option processing shift; break ;; - ) # Use stdin as input. break ;; -* ) echo "$me: invalid option $1$help" exit 1 ;; *local*) # First pass through any local machine types. echo $1 exit ;; * ) break ;; esac done case $# in 0) echo "$me: missing argument$help" >&2 exit 1;; 1) ;; *) echo "$me: too many arguments$help" >&2 exit 1;; esac # Separate what the user gave into CPU-COMPANY and OS or KERNEL-OS (if any). # Here we must recognize all the valid KERNEL-OS combinations. maybe_os=`echo $1 | sed 's/^\(.*\)-\([^-]*-[^-]*\)$/\2/'` case $maybe_os in nto-qnx* | linux-gnu* | linux-android* | linux-dietlibc | linux-newlib* | \ linux-uclibc* | uclinux-uclibc* | uclinux-gnu* | kfreebsd*-gnu* | \ knetbsd*-gnu* | netbsd*-gnu* | \ kopensolaris*-gnu* | \ storm-chaos* | os2-emx* | rtmk-nova*) os=-$maybe_os basic_machine=`echo $1 | sed 's/^\(.*\)-\([^-]*-[^-]*\)$/\1/'` ;; *) basic_machine=`echo $1 | sed 's/-[^-]*$//'` if [ $basic_machine != $1 ] then os=`echo $1 | sed 's/.*-/-/'` else os=; fi ;; esac ### Let's recognize common machines as not being operating systems so ### that things like config.sub decstation-3100 work. We also ### recognize some manufacturers as not being operating systems, so we ### can provide default operating systems below. case $os in -sun*os*) # Prevent following clause from handling this invalid input. ;; -dec* | -mips* | -sequent* | -encore* | -pc532* | -sgi* | -sony* | \ -att* | -7300* | -3300* | -delta* | -motorola* | -sun[234]* | \ -unicom* | -ibm* | -next | -hp | -isi* | -apollo | -altos* | \ -convergent* | -ncr* | -news | -32* | -3600* | -3100* | -hitachi* |\ -c[123]* | -convex* | -sun | -crds | -omron* | -dg | -ultra | -tti* | \ -harris | -dolphin | -highlevel | -gould | -cbm | -ns | -masscomp | \ -apple | -axis | -knuth | -cray | -microblaze) os= basic_machine=$1 ;; -bluegene*) os=-cnk ;; -sim | -cisco | -oki | -wec | -winbond) os= basic_machine=$1 ;; -scout) ;; -wrs) os=-vxworks basic_machine=$1 ;; -chorusos*) os=-chorusos basic_machine=$1 ;; -chorusrdb) os=-chorusrdb basic_machine=$1 ;; -hiux*) os=-hiuxwe2 ;; -sco6) os=-sco5v6 basic_machine=`echo $1 | sed -e 's/86-.*/86-pc/'` ;; -sco5) os=-sco3.2v5 basic_machine=`echo $1 | sed -e 's/86-.*/86-pc/'` ;; -sco4) os=-sco3.2v4 basic_machine=`echo $1 | sed -e 's/86-.*/86-pc/'` ;; -sco3.2.[4-9]*) os=`echo $os | sed -e 's/sco3.2./sco3.2v/'` basic_machine=`echo $1 | sed -e 's/86-.*/86-pc/'` ;; -sco3.2v[4-9]*) # Don't forget version if it is 3.2v4 or newer. basic_machine=`echo $1 | sed -e 's/86-.*/86-pc/'` ;; -sco5v6*) # Don't forget version if it is 3.2v4 or newer. basic_machine=`echo $1 | sed -e 's/86-.*/86-pc/'` ;; -sco*) os=-sco3.2v2 basic_machine=`echo $1 | sed -e 's/86-.*/86-pc/'` ;; -udk*) basic_machine=`echo $1 | sed -e 's/86-.*/86-pc/'` ;; -isc) os=-isc2.2 basic_machine=`echo $1 | sed -e 's/86-.*/86-pc/'` ;; -clix*) basic_machine=clipper-intergraph ;; -isc*) basic_machine=`echo $1 | sed -e 's/86-.*/86-pc/'` ;; -lynx*) os=-lynxos ;; -ptx*) basic_machine=`echo $1 | sed -e 's/86-.*/86-sequent/'` ;; -windowsnt*) os=`echo $os | sed -e 's/windowsnt/winnt/'` ;; -psos*) os=-psos ;; -mint | -mint[0-9]*) basic_machine=m68k-atari os=-mint ;; esac # Decode aliases for certain CPU-COMPANY combinations. case $basic_machine in # Recognize the basic CPU types without company name. # Some are omitted here because they have special meanings below. 1750a | 580 \ | a29k \ | alpha | alphaev[4-8] | alphaev56 | alphaev6[78] | alphapca5[67] \ | alpha64 | alpha64ev[4-8] | alpha64ev56 | alpha64ev6[78] | alpha64pca5[67] \ | am33_2.0 \ | arc | arm | arm[bl]e | arme[lb] | armv[2345] | armv[345][lb] | avr | avr32 \ | bfin \ | c4x | clipper \ | d10v | d30v | dlx | dsp16xx \ | fido | fr30 | frv \ | h8300 | h8500 | hppa | hppa1.[01] | hppa2.0 | hppa2.0[nw] | hppa64 \ | i370 | i860 | i960 | ia64 \ | ip2k | iq2000 \ | lm32 \ | m32c | m32r | m32rle | m68000 | m68k | m88k \ | maxq | mb | microblaze | mcore | mep | metag \ | mips | mipsbe | mipseb | mipsel | mipsle \ | mips16 \ | mips64 | mips64el \ | mips64octeon | mips64octeonel \ | mips64orion | mips64orionel \ | mips64r5900 | mips64r5900el \ | mips64vr | mips64vrel \ | mips64vr4100 | mips64vr4100el \ | mips64vr4300 | mips64vr4300el \ | mips64vr5000 | mips64vr5000el \ | mips64vr5900 | mips64vr5900el \ | mipsisa32 | mipsisa32el \ | mipsisa32r2 | mipsisa32r2el \ | mipsisa64 | mipsisa64el \ | mipsisa64r2 | mipsisa64r2el \ | mipsisa64sb1 | mipsisa64sb1el \ | mipsisa64sr71k | mipsisa64sr71kel \ | mipstx39 | mipstx39el \ | mn10200 | mn10300 \ | moxie \ | mt \ | msp430 \ | nds32 | nds32le | nds32be \ | nios | nios2 \ | ns16k | ns32k \ | open8 \ | or32 \ | pdp10 | pdp11 | pj | pjl \ | powerpc | powerpc64 | powerpc64le | powerpcle \ | pyramid \ | rx \ | score \ | sh | sh[1234] | sh[24]a | sh[24]aeb | sh[23]e | sh[34]eb | sheb | shbe | shle | sh[1234]le | sh3ele \ | sh64 | sh64le \ | sparc | sparc64 | sparc64b | sparc64v | sparc86x | sparclet | sparclite \ | sparcv8 | sparcv9 | sparcv9b | sparcv9v \ | spu \ | tahoe | tic4x | tic54x | tic55x | tic6x | tic80 | tron \ | ubicom32 \ | v850 | v850e \ | we32k \ | x86 | xc16x | xstormy16 | xtensa \ | z8k | z80) basic_machine=$basic_machine-unknown ;; c54x) basic_machine=tic54x-unknown ;; c55x) basic_machine=tic55x-unknown ;; c6x) basic_machine=tic6x-unknown ;; m6811 | m68hc11 | m6812 | m68hc12 | picochip) # Motorola 68HC11/12. basic_machine=$basic_machine-unknown os=-none ;; m88110 | m680[12346]0 | m683?2 | m68360 | m5200 | v70 | w65 | z8k) ;; ms1) basic_machine=mt-unknown ;; strongarm | thumb | xscale) basic_machine=arm-unknown ;; xscaleeb) basic_machine=armeb-unknown ;; xscaleel) basic_machine=armel-unknown ;; # We use `pc' rather than `unknown' # because (1) that's what they normally are, and # (2) the word "unknown" tends to confuse beginning users. i*86 | x86_64) basic_machine=$basic_machine-pc ;; # Object if more than one company name word. *-*-*) echo Invalid configuration \`$1\': machine \`$basic_machine\' not recognized 1>&2 exit 1 ;; # Recognize the basic CPU types with company name. 580-* \ | a29k-* \ | alpha-* | alphaev[4-8]-* | alphaev56-* | alphaev6[78]-* \ | alpha64-* | alpha64ev[4-8]-* | alpha64ev56-* | alpha64ev6[78]-* \ | alphapca5[67]-* | alpha64pca5[67]-* | arc-* \ | arm-* | armbe-* | armle-* | armeb-* | armv*-* \ | avr-* | avr32-* \ | bfin-* | bs2000-* \ | c[123]* | c30-* | [cjt]90-* | c4x-* \ | clipper-* | craynv-* | cydra-* \ | d10v-* | d30v-* | dlx-* \ | elxsi-* \ | f30[01]-* | f700-* | fido-* | fr30-* | frv-* | fx80-* \ | h8300-* | h8500-* \ | hppa-* | hppa1.[01]-* | hppa2.0-* | hppa2.0[nw]-* | hppa64-* \ | i*86-* | i860-* | i960-* | ia64-* \ | ip2k-* | iq2000-* \ | lm32-* \ | m32c-* | m32r-* | m32rle-* \ | m68000-* | m680[012346]0-* | m68360-* | m683?2-* | m68k-* \ | m88110-* | m88k-* | maxq-* | mcore-* | metag-* | microblaze-* \ | mips-* | mipsbe-* | mipseb-* | mipsel-* | mipsle-* \ | mips16-* \ | mips64-* | mips64el-* \ | mips64octeon-* | mips64octeonel-* \ | mips64orion-* | mips64orionel-* \ | mips64r5900-* | mips64r5900el-* \ | mips64vr-* | mips64vrel-* \ | mips64vr4100-* | mips64vr4100el-* \ | mips64vr4300-* | mips64vr4300el-* \ | mips64vr5000-* | mips64vr5000el-* \ | mips64vr5900-* | mips64vr5900el-* \ | mipsisa32-* | mipsisa32el-* \ | mipsisa32r2-* | mipsisa32r2el-* \ | mipsisa64-* | mipsisa64el-* \ | mipsisa64r2-* | mipsisa64r2el-* \ | mipsisa64sb1-* | mipsisa64sb1el-* \ | mipsisa64sr71k-* | mipsisa64sr71kel-* \ | mipstx39-* | mipstx39el-* \ | mmix-* \ | mt-* \ | msp430-* \ | nds32-* | nds32le-* | nds32be-* \ | nios-* | nios2-* \ | none-* | np1-* | ns16k-* | ns32k-* \ | open8-* \ | orion-* \ | pdp10-* | pdp11-* | pj-* | pjl-* | pn-* | power-* \ | powerpc-* | powerpc64-* | powerpc64le-* | powerpcle-* \ | pyramid-* \ | romp-* | rs6000-* | rx-* \ | sh-* | sh[1234]-* | sh[24]a-* | sh[24]aeb-* | sh[23]e-* | sh[34]eb-* | sheb-* | shbe-* \ | shle-* | sh[1234]le-* | sh3ele-* | sh64-* | sh64le-* \ | sparc-* | sparc64-* | sparc64b-* | sparc64v-* | sparc86x-* | sparclet-* \ | sparclite-* \ | sparcv8-* | sparcv9-* | sparcv9b-* | sparcv9v-* | sv1-* | sx?-* \ | tahoe-* \ | tic30-* | tic4x-* | tic54x-* | tic55x-* | tic6x-* | tic80-* \ | tile-* | tilegx-* \ | tron-* \ | ubicom32-* \ | v850-* | v850e-* | vax-* \ | we32k-* \ | x86-* | x86_64-* | xc16x-* | xps100-* \ | xstormy16-* | xtensa*-* \ | ymp-* \ | z8k-* | z80-*) ;; # Recognize the basic CPU types without company name, with glob match. xtensa*) basic_machine=$basic_machine-unknown ;; # Recognize the various machine names and aliases which stand # for a CPU type and a company and sometimes even an OS. 386bsd) basic_machine=i386-unknown os=-bsd ;; 3b1 | 7300 | 7300-att | att-7300 | pc7300 | safari | unixpc) basic_machine=m68000-att ;; 3b*) basic_machine=we32k-att ;; a29khif) basic_machine=a29k-amd os=-udi ;; abacus) basic_machine=abacus-unknown ;; adobe68k) basic_machine=m68010-adobe os=-scout ;; alliant | fx80) basic_machine=fx80-alliant ;; altos | altos3068) basic_machine=m68k-altos ;; am29k) basic_machine=a29k-none os=-bsd ;; amd64) basic_machine=x86_64-pc ;; amd64-*) basic_machine=x86_64-`echo $basic_machine | sed 's/^[^-]*-//'` ;; amdahl) basic_machine=580-amdahl os=-sysv ;; amiga | amiga-*) basic_machine=m68k-unknown ;; amigaos | amigados) basic_machine=m68k-unknown os=-amigaos ;; amigaunix | amix) basic_machine=m68k-unknown os=-sysv4 ;; apollo68) basic_machine=m68k-apollo os=-sysv ;; apollo68bsd) basic_machine=m68k-apollo os=-bsd ;; aros) basic_machine=i386-pc os=-aros ;; aux) basic_machine=m68k-apple os=-aux ;; balance) basic_machine=ns32k-sequent os=-dynix ;; blackfin) basic_machine=bfin-unknown os=-linux ;; blackfin-*) basic_machine=bfin-`echo $basic_machine | sed 's/^[^-]*-//'` os=-linux ;; bluegene*) basic_machine=powerpc-ibm os=-cnk ;; c54x-*) basic_machine=tic54x-`echo $basic_machine | sed 's/^[^-]*-//'` ;; c55x-*) basic_machine=tic55x-`echo $basic_machine | sed 's/^[^-]*-//'` ;; c6x-*) basic_machine=tic6x-`echo $basic_machine | sed 's/^[^-]*-//'` ;; c90) basic_machine=c90-cray os=-unicos ;; cegcc) basic_machine=arm-unknown os=-cegcc ;; convex-c1) basic_machine=c1-convex os=-bsd ;; convex-c2) basic_machine=c2-convex os=-bsd ;; convex-c32) basic_machine=c32-convex os=-bsd ;; convex-c34) basic_machine=c34-convex os=-bsd ;; convex-c38) basic_machine=c38-convex os=-bsd ;; cray | j90) basic_machine=j90-cray os=-unicos ;; craynv) basic_machine=craynv-cray os=-unicosmp ;; cr16 | cr16-*) basic_machine=cr16-unknown os=-elf ;; crds | unos) basic_machine=m68k-crds ;; crisv32 | crisv32-* | etraxfs*) basic_machine=crisv32-axis ;; cris | cris-* | etrax*) basic_machine=cris-axis ;; crx) basic_machine=crx-unknown os=-elf ;; da30 | da30-*) basic_machine=m68k-da30 ;; decstation | decstation-3100 | pmax | pmax-* | pmin | dec3100 | decstatn) basic_machine=mips-dec ;; decsystem10* | dec10*) basic_machine=pdp10-dec os=-tops10 ;; decsystem20* | dec20*) basic_machine=pdp10-dec os=-tops20 ;; delta | 3300 | motorola-3300 | motorola-delta \ | 3300-motorola | delta-motorola) basic_machine=m68k-motorola ;; delta88) basic_machine=m88k-motorola os=-sysv3 ;; dicos) basic_machine=i686-pc os=-dicos ;; djgpp) basic_machine=i586-pc os=-msdosdjgpp ;; dpx20 | dpx20-*) basic_machine=rs6000-bull os=-bosx ;; dpx2* | dpx2*-bull) basic_machine=m68k-bull os=-sysv3 ;; ebmon29k) basic_machine=a29k-amd os=-ebmon ;; elxsi) basic_machine=elxsi-elxsi os=-bsd ;; encore | umax | mmax) basic_machine=ns32k-encore ;; es1800 | OSE68k | ose68k | ose | OSE) basic_machine=m68k-ericsson os=-ose ;; fx2800) basic_machine=i860-alliant ;; genix) basic_machine=ns32k-ns ;; gmicro) basic_machine=tron-gmicro os=-sysv ;; go32) basic_machine=i386-pc os=-go32 ;; h3050r* | hiux*) basic_machine=hppa1.1-hitachi os=-hiuxwe2 ;; h8300hms) basic_machine=h8300-hitachi os=-hms ;; h8300xray) basic_machine=h8300-hitachi os=-xray ;; h8500hms) basic_machine=h8500-hitachi os=-hms ;; harris) basic_machine=m88k-harris os=-sysv3 ;; hp300-*) basic_machine=m68k-hp ;; hp300bsd) basic_machine=m68k-hp os=-bsd ;; hp300hpux) basic_machine=m68k-hp os=-hpux ;; hp3k9[0-9][0-9] | hp9[0-9][0-9]) basic_machine=hppa1.0-hp ;; hp9k2[0-9][0-9] | hp9k31[0-9]) basic_machine=m68000-hp ;; hp9k3[2-9][0-9]) basic_machine=m68k-hp ;; hp9k6[0-9][0-9] | hp6[0-9][0-9]) basic_machine=hppa1.0-hp ;; hp9k7[0-79][0-9] | hp7[0-79][0-9]) basic_machine=hppa1.1-hp ;; hp9k78[0-9] | hp78[0-9]) # FIXME: really hppa2.0-hp basic_machine=hppa1.1-hp ;; hp9k8[67]1 | hp8[67]1 | hp9k80[24] | hp80[24] | hp9k8[78]9 | hp8[78]9 | hp9k893 | hp893) # FIXME: really hppa2.0-hp basic_machine=hppa1.1-hp ;; hp9k8[0-9][13679] | hp8[0-9][13679]) basic_machine=hppa1.1-hp ;; hp9k8[0-9][0-9] | hp8[0-9][0-9]) basic_machine=hppa1.0-hp ;; hppa-next) os=-nextstep3 ;; hppaosf) basic_machine=hppa1.1-hp os=-osf ;; hppro) basic_machine=hppa1.1-hp os=-proelf ;; i370-ibm* | ibm*) basic_machine=i370-ibm ;; # I'm not sure what "Sysv32" means. Should this be sysv3.2? i*86v32) basic_machine=`echo $1 | sed -e 's/86.*/86-pc/'` os=-sysv32 ;; i*86v4*) basic_machine=`echo $1 | sed -e 's/86.*/86-pc/'` os=-sysv4 ;; i*86v) basic_machine=`echo $1 | sed -e 's/86.*/86-pc/'` os=-sysv ;; i*86sol2) basic_machine=`echo $1 | sed -e 's/86.*/86-pc/'` os=-solaris2 ;; i386mach) basic_machine=i386-mach os=-mach ;; i386-vsta | vsta) basic_machine=i386-unknown os=-vsta ;; iris | iris4d) basic_machine=mips-sgi case $os in -irix*) ;; *) os=-irix4 ;; esac ;; isi68 | isi) basic_machine=m68k-isi os=-sysv ;; m68knommu) basic_machine=m68k-unknown os=-linux ;; m68knommu-*) basic_machine=m68k-`echo $basic_machine | sed 's/^[^-]*-//'` os=-linux ;; m88k-omron*) basic_machine=m88k-omron ;; magnum | m3230) basic_machine=mips-mips os=-sysv ;; merlin) basic_machine=ns32k-utek os=-sysv ;; microblaze) basic_machine=microblaze-xilinx ;; mingw32) basic_machine=i386-pc os=-mingw32 ;; mingw32ce) basic_machine=arm-unknown os=-mingw32ce ;; miniframe) basic_machine=m68000-convergent ;; *mint | -mint[0-9]* | *MiNT | *MiNT[0-9]*) basic_machine=m68k-atari os=-mint ;; mips3*-*) basic_machine=`echo $basic_machine | sed -e 's/mips3/mips64/'` ;; mips3*) basic_machine=`echo $basic_machine | sed -e 's/mips3/mips64/'`-unknown ;; monitor) basic_machine=m68k-rom68k os=-coff ;; morphos) basic_machine=powerpc-unknown os=-morphos ;; msdos) basic_machine=i386-pc os=-msdos ;; ms1-*) basic_machine=`echo $basic_machine | sed -e 's/ms1-/mt-/'` ;; mvs) basic_machine=i370-ibm os=-mvs ;; ncr3000) basic_machine=i486-ncr os=-sysv4 ;; netbsd386) basic_machine=i386-unknown os=-netbsd ;; netwinder) basic_machine=armv4l-rebel os=-linux ;; news | news700 | news800 | news900) basic_machine=m68k-sony os=-newsos ;; news1000) basic_machine=m68030-sony os=-newsos ;; news-3600 | risc-news) basic_machine=mips-sony os=-newsos ;; necv70) basic_machine=v70-nec os=-sysv ;; next | m*-next ) basic_machine=m68k-next case $os in -nextstep* ) ;; -ns2*) os=-nextstep2 ;; *) os=-nextstep3 ;; esac ;; nh3000) basic_machine=m68k-harris os=-cxux ;; nh[45]000) basic_machine=m88k-harris os=-cxux ;; nindy960) basic_machine=i960-intel os=-nindy ;; mon960) basic_machine=i960-intel os=-mon960 ;; nonstopux) basic_machine=mips-compaq os=-nonstopux ;; np1) basic_machine=np1-gould ;; neo-tandem) basic_machine=neo-tandem ;; nse-tandem) basic_machine=nse-tandem ;; nsr-tandem) basic_machine=nsr-tandem ;; op50n-* | op60c-*) basic_machine=hppa1.1-oki os=-proelf ;; openrisc | openrisc-*) basic_machine=or32-unknown ;; os400) basic_machine=powerpc-ibm os=-os400 ;; OSE68000 | ose68000) basic_machine=m68000-ericsson os=-ose ;; os68k) basic_machine=m68k-none os=-os68k ;; pa-hitachi) basic_machine=hppa1.1-hitachi os=-hiuxwe2 ;; paragon) basic_machine=i860-intel os=-osf ;; parisc) basic_machine=hppa-unknown os=-linux ;; parisc-*) basic_machine=hppa-`echo $basic_machine | sed 's/^[^-]*-//'` os=-linux ;; pbd) basic_machine=sparc-tti ;; pbb) basic_machine=m68k-tti ;; pc532 | pc532-*) basic_machine=ns32k-pc532 ;; pc98) basic_machine=i386-pc ;; pc98-*) basic_machine=i386-`echo $basic_machine | sed 's/^[^-]*-//'` ;; pentium | p5 | k5 | k6 | nexgen | viac3) basic_machine=i586-pc ;; pentiumpro | p6 | 6x86 | athlon | athlon_*) basic_machine=i686-pc ;; pentiumii | pentium2 | pentiumiii | pentium3) basic_machine=i686-pc ;; pentium4) basic_machine=i786-pc ;; pentium-* | p5-* | k5-* | k6-* | nexgen-* | viac3-*) basic_machine=i586-`echo $basic_machine | sed 's/^[^-]*-//'` ;; pentiumpro-* | p6-* | 6x86-* | athlon-*) basic_machine=i686-`echo $basic_machine | sed 's/^[^-]*-//'` ;; pentiumii-* | pentium2-* | pentiumiii-* | pentium3-*) basic_machine=i686-`echo $basic_machine | sed 's/^[^-]*-//'` ;; pentium4-*) basic_machine=i786-`echo $basic_machine | sed 's/^[^-]*-//'` ;; pn) basic_machine=pn-gould ;; power) basic_machine=power-ibm ;; ppc | ppcbe) basic_machine=powerpc-unknown ;; ppc-* | ppcbe-*) basic_machine=powerpc-`echo $basic_machine | sed 's/^[^-]*-//'` ;; ppcle | powerpclittle | ppc-le | powerpc-little) basic_machine=powerpcle-unknown ;; ppcle-* | powerpclittle-*) basic_machine=powerpcle-`echo $basic_machine | sed 's/^[^-]*-//'` ;; ppc64) basic_machine=powerpc64-unknown ;; ppc64-*) basic_machine=powerpc64-`echo $basic_machine | sed 's/^[^-]*-//'` ;; ppc64le | powerpc64little | ppc64-le | powerpc64-little) basic_machine=powerpc64le-unknown ;; ppc64le-* | powerpc64little-*) basic_machine=powerpc64le-`echo $basic_machine | sed 's/^[^-]*-//'` ;; ps2) basic_machine=i386-ibm ;; pw32) basic_machine=i586-unknown os=-pw32 ;; rdos) basic_machine=i386-pc os=-rdos ;; rom68k) basic_machine=m68k-rom68k os=-coff ;; rm[46]00) basic_machine=mips-siemens ;; rtpc | rtpc-*) basic_machine=romp-ibm ;; s390 | s390-*) basic_machine=s390-ibm ;; s390x | s390x-*) basic_machine=s390x-ibm ;; sa29200) basic_machine=a29k-amd os=-udi ;; sb1) basic_machine=mipsisa64sb1-unknown ;; sb1el) basic_machine=mipsisa64sb1el-unknown ;; sde) basic_machine=mipsisa32-sde os=-elf ;; sei) basic_machine=mips-sei os=-seiux ;; sequent) basic_machine=i386-sequent ;; sh) basic_machine=sh-hitachi os=-hms ;; sh5el) basic_machine=sh5le-unknown ;; sh64) basic_machine=sh64-unknown ;; sparclite-wrs | simso-wrs) basic_machine=sparclite-wrs os=-vxworks ;; sps7) basic_machine=m68k-bull os=-sysv2 ;; spur) basic_machine=spur-unknown ;; st2000) basic_machine=m68k-tandem ;; stratus) basic_machine=i860-stratus os=-sysv4 ;; strongarm-* | thumb-*) basic_machine=arm-`echo $basic_machine | sed 's/^[^-]*-//'` ;; sun2) basic_machine=m68000-sun ;; sun2os3) basic_machine=m68000-sun os=-sunos3 ;; sun2os4) basic_machine=m68000-sun os=-sunos4 ;; sun3os3) basic_machine=m68k-sun os=-sunos3 ;; sun3os4) basic_machine=m68k-sun os=-sunos4 ;; sun4os3) basic_machine=sparc-sun os=-sunos3 ;; sun4os4) basic_machine=sparc-sun os=-sunos4 ;; sun4sol2) basic_machine=sparc-sun os=-solaris2 ;; sun3 | sun3-*) basic_machine=m68k-sun ;; sun4) basic_machine=sparc-sun ;; sun386 | sun386i | roadrunner) basic_machine=i386-sun ;; sv1) basic_machine=sv1-cray os=-unicos ;; symmetry) basic_machine=i386-sequent os=-dynix ;; t3e) basic_machine=alphaev5-cray os=-unicos ;; t90) basic_machine=t90-cray os=-unicos ;; # This must be matched before tile*. tilegx*) basic_machine=tilegx-unknown os=-linux-gnu ;; tile*) basic_machine=tile-unknown os=-linux-gnu ;; tx39) basic_machine=mipstx39-unknown ;; tx39el) basic_machine=mipstx39el-unknown ;; toad1) basic_machine=pdp10-xkl os=-tops20 ;; tower | tower-32) basic_machine=m68k-ncr ;; tpf) basic_machine=s390x-ibm os=-tpf ;; udi29k) basic_machine=a29k-amd os=-udi ;; ultra3) basic_machine=a29k-nyu os=-sym1 ;; v810 | necv810) basic_machine=v810-nec os=-none ;; vaxv) basic_machine=vax-dec os=-sysv ;; vms) basic_machine=vax-dec os=-vms ;; vpp*|vx|vx-*) basic_machine=f301-fujitsu ;; vxworks960) basic_machine=i960-wrs os=-vxworks ;; vxworks68) basic_machine=m68k-wrs os=-vxworks ;; vxworks29k) basic_machine=a29k-wrs os=-vxworks ;; w65*) basic_machine=w65-wdc os=-none ;; w89k-*) basic_machine=hppa1.1-winbond os=-proelf ;; xbox) basic_machine=i686-pc os=-mingw32 ;; xps | xps100) basic_machine=xps100-honeywell ;; xscale-* | xscalee[bl]-*) basic_machine=`echo $basic_machine | sed 's/^xscale/arm/'` ;; ymp) basic_machine=ymp-cray os=-unicos ;; z8k-*-coff) basic_machine=z8k-unknown os=-sim ;; z80-*-coff) basic_machine=z80-unknown os=-sim ;; none) basic_machine=none-none os=-none ;; # Here we handle the default manufacturer of certain CPU types. It is in # some cases the only manufacturer, in others, it is the most popular. w89k) basic_machine=hppa1.1-winbond ;; op50n) basic_machine=hppa1.1-oki ;; op60c) basic_machine=hppa1.1-oki ;; romp) basic_machine=romp-ibm ;; mmix) basic_machine=mmix-knuth ;; rs6000) basic_machine=rs6000-ibm ;; vax) basic_machine=vax-dec ;; pdp10) # there are many clones, so DEC is not a safe bet basic_machine=pdp10-unknown ;; pdp11) basic_machine=pdp11-dec ;; we32k) basic_machine=we32k-att ;; sh[1234] | sh[24]a | sh[24]aeb | sh[34]eb | sh[1234]le | sh[23]ele) basic_machine=sh-unknown ;; sparc | sparcv8 | sparcv9 | sparcv9b | sparcv9v) basic_machine=sparc-sun ;; cydra) basic_machine=cydra-cydrome ;; orion) basic_machine=orion-highlevel ;; orion105) basic_machine=clipper-highlevel ;; mac | mpw | mac-mpw) basic_machine=m68k-apple ;; pmac | pmac-mpw) basic_machine=powerpc-apple ;; *-unknown) # Make sure to match an already-canonicalized machine name. ;; *) echo Invalid configuration \`$1\': machine \`$basic_machine\' not recognized 1>&2 exit 1 ;; esac # Here we canonicalize certain aliases for manufacturers. case $basic_machine in *-digital*) basic_machine=`echo $basic_machine | sed 's/digital.*/dec/'` ;; *-commodore*) basic_machine=`echo $basic_machine | sed 's/commodore.*/cbm/'` ;; *) ;; esac # Decode manufacturer-specific aliases for certain operating systems. if [ x"$os" != x"" ] then case $os in # First match some system type aliases # that might get confused with valid system types. # -solaris* is a basic system type, with this one exception. -auroraux) os=-auroraux ;; -solaris1 | -solaris1.*) os=`echo $os | sed -e 's|solaris1|sunos4|'` ;; -solaris) os=-solaris2 ;; -svr4*) os=-sysv4 ;; -unixware*) os=-sysv4.2uw ;; -gnu/linux*) os=`echo $os | sed -e 's|gnu/linux|linux-gnu|'` ;; # First accept the basic system types. # The portable systems comes first. # Each alternative MUST END IN A *, to match a version number. # -sysv* is not here because it comes later, after sysvr4. -gnu* | -bsd* | -mach* | -minix* | -genix* | -ultrix* | -irix* \ | -*vms* | -sco* | -esix* | -isc* | -aix* | -cnk* | -sunos | -sunos[34]*\ | -hpux* | -unos* | -osf* | -luna* | -dgux* | -auroraux* | -solaris* \ | -sym* | -kopensolaris* \ | -amigaos* | -amigados* | -msdos* | -newsos* | -unicos* | -aof* \ | -aos* | -aros* \ | -nindy* | -vxsim* | -vxworks* | -ebmon* | -hms* | -mvs* \ | -clix* | -riscos* | -uniplus* | -iris* | -rtu* | -xenix* \ | -hiux* | -386bsd* | -knetbsd* | -mirbsd* | -netbsd* \ | -openbsd* | -solidbsd* \ | -ekkobsd* | -kfreebsd* | -freebsd* | -riscix* | -lynxos* \ | -bosx* | -nextstep* | -cxux* | -aout* | -elf* | -oabi* \ | -ptx* | -coff* | -ecoff* | -winnt* | -domain* | -vsta* \ | -udi* | -eabi* | -lites* | -ieee* | -go32* | -aux* \ | -chorusos* | -chorusrdb* | -cegcc* \ | -cygwin* | -pe* | -psos* | -moss* | -proelf* | -rtems* \ | -mingw32* | -linux-gnu* | -linux-android* \ | -linux-newlib* | -linux-uclibc* \ | -uxpv* | -beos* | -mpeix* | -udk* \ | -interix* | -uwin* | -mks* | -rhapsody* | -darwin* | -opened* \ | -openstep* | -oskit* | -conix* | -pw32* | -nonstopux* \ | -storm-chaos* | -tops10* | -tenex* | -tops20* | -its* \ | -os2* | -vos* | -palmos* | -uclinux* | -nucleus* \ | -morphos* | -superux* | -rtmk* | -rtmk-nova* | -windiss* \ | -powermax* | -dnix* | -nx6 | -nx7 | -sei* | -dragonfly* \ | -skyos* | -haiku* | -rdos* | -toppers* | -drops* | -es*) # Remember, each alternative MUST END IN *, to match a version number. ;; -qnx*) case $basic_machine in x86-* | i*86-*) ;; *) os=-nto$os ;; esac ;; -nto-qnx*) ;; -nto*) os=`echo $os | sed -e 's|nto|nto-qnx|'` ;; -sim | -es1800* | -hms* | -xray | -os68k* | -none* | -v88r* \ | -windows* | -osx | -abug | -netware* | -os9* | -beos* | -haiku* \ | -macos* | -mpw* | -magic* | -mmixware* | -mon960* | -lnews*) ;; -mac*) os=`echo $os | sed -e 's|mac|macos|'` ;; -linux-dietlibc) os=-linux-dietlibc ;; -linux*) os=`echo $os | sed -e 's|linux|linux-gnu|'` ;; -sunos5*) os=`echo $os | sed -e 's|sunos5|solaris2|'` ;; -sunos6*) os=`echo $os | sed -e 's|sunos6|solaris3|'` ;; -opened*) os=-openedition ;; -os400*) os=-os400 ;; -wince*) os=-wince ;; -osfrose*) os=-osfrose ;; -osf*) os=-osf ;; -utek*) os=-bsd ;; -dynix*) os=-bsd ;; -acis*) os=-aos ;; -atheos*) os=-atheos ;; -syllable*) os=-syllable ;; -386bsd) os=-bsd ;; -ctix* | -uts*) os=-sysv ;; -nova*) os=-rtmk-nova ;; -ns2 ) os=-nextstep2 ;; -nsk*) os=-nsk ;; # Preserve the version number of sinix5. -sinix5.*) os=`echo $os | sed -e 's|sinix|sysv|'` ;; -sinix*) os=-sysv4 ;; -tpf*) os=-tpf ;; -triton*) os=-sysv3 ;; -oss*) os=-sysv3 ;; -svr4) os=-sysv4 ;; -svr3) os=-sysv3 ;; -sysvr4) os=-sysv4 ;; # This must come after -sysvr4. -sysv*) ;; -ose*) os=-ose ;; -es1800*) os=-ose ;; -xenix) os=-xenix ;; -*mint | -mint[0-9]* | -*MiNT | -MiNT[0-9]*) os=-mint ;; -aros*) os=-aros ;; -kaos*) os=-kaos ;; -zvmoe) os=-zvmoe ;; -dicos*) os=-dicos ;; -nacl*) ;; -none) ;; *) # Get rid of the `-' at the beginning of $os. os=`echo $os | sed 's/[^-]*-//'` echo Invalid configuration \`$1\': system \`$os\' not recognized 1>&2 exit 1 ;; esac else # Here we handle the default operating systems that come with various machines. # The value should be what the vendor currently ships out the door with their # machine or put another way, the most popular os provided with the machine. # Note that if you're going to try to match "-MANUFACTURER" here (say, # "-sun"), then you have to tell the case statement up towards the top # that MANUFACTURER isn't an operating system. Otherwise, code above # will signal an error saying that MANUFACTURER isn't an operating # system, and we'll never get to this point. case $basic_machine in score-*) os=-elf ;; spu-*) os=-elf ;; *-acorn) os=-riscix1.2 ;; arm*-rebel) os=-linux ;; arm*-semi) os=-aout ;; c4x-* | tic4x-*) os=-coff ;; tic54x-*) os=-coff ;; tic55x-*) os=-coff ;; tic6x-*) os=-coff ;; # This must come before the *-dec entry. pdp10-*) os=-tops20 ;; pdp11-*) os=-none ;; *-dec | vax-*) os=-ultrix4.2 ;; m68*-apollo) os=-domain ;; i386-sun) os=-sunos4.0.2 ;; m68000-sun) os=-sunos3 # This also exists in the configure program, but was not the # default. # os=-sunos4 ;; m68*-cisco) os=-aout ;; mep-*) os=-elf ;; mips*-cisco) os=-elf ;; mips*-*) os=-elf ;; or32-*) os=-coff ;; *-tti) # must be before sparc entry or we get the wrong os. os=-sysv3 ;; sparc-* | *-sun) os=-sunos4.1.1 ;; *-be) os=-beos ;; *-haiku) os=-haiku ;; *-ibm) os=-aix ;; *-knuth) os=-mmixware ;; *-wec) os=-proelf ;; *-winbond) os=-proelf ;; *-oki) os=-proelf ;; *-hp) os=-hpux ;; *-hitachi) os=-hiux ;; i860-* | *-att | *-ncr | *-altos | *-motorola | *-convergent) os=-sysv ;; *-cbm) os=-amigaos ;; *-dg) os=-dgux ;; *-dolphin) os=-sysv3 ;; m68k-ccur) os=-rtu ;; m88k-omron*) os=-luna ;; *-next ) os=-nextstep ;; *-sequent) os=-ptx ;; *-crds) os=-unos ;; *-ns) os=-genix ;; i370-*) os=-mvs ;; *-next) os=-nextstep3 ;; *-gould) os=-sysv ;; *-highlevel) os=-bsd ;; *-encore) os=-bsd ;; *-sgi) os=-irix ;; *-siemens) os=-sysv4 ;; *-masscomp) os=-rtu ;; f30[01]-fujitsu | f700-fujitsu) os=-uxpv ;; *-rom68k) os=-coff ;; *-*bug) os=-coff ;; *-apple) os=-macos ;; *-atari*) os=-mint ;; *) os=-none ;; esac fi # Here we handle the case where we know the os, and the CPU type, but not the # manufacturer. We pick the logical manufacturer. vendor=unknown case $basic_machine in *-unknown) case $os in -riscix*) vendor=acorn ;; -sunos*) vendor=sun ;; -cnk*|-aix*) vendor=ibm ;; -beos*) vendor=be ;; -hpux*) vendor=hp ;; -mpeix*) vendor=hp ;; -hiux*) vendor=hitachi ;; -unos*) vendor=crds ;; -dgux*) vendor=dg ;; -luna*) vendor=omron ;; -genix*) vendor=ns ;; -mvs* | -opened*) vendor=ibm ;; -os400*) vendor=ibm ;; -ptx*) vendor=sequent ;; -tpf*) vendor=ibm ;; -vxsim* | -vxworks* | -windiss*) vendor=wrs ;; -aux*) vendor=apple ;; -hms*) vendor=hitachi ;; -mpw* | -macos*) vendor=apple ;; -*mint | -mint[0-9]* | -*MiNT | -MiNT[0-9]*) vendor=atari ;; -vos*) vendor=stratus ;; esac basic_machine=`echo $basic_machine | sed "s/unknown/$vendor/"` ;; esac echo $basic_machine$os exit # Local variables: # eval: (add-hook 'write-file-hooks 'time-stamp) # time-stamp-start: "timestamp='" # time-stamp-format: "%:y-%02m-%02d" # time-stamp-end: "'" # End: guile-gnome-platform-2.16.2/build-aux/install-sh0000755000175000017500000003253711671126166022103 0ustar00wingowingo00000000000000#!/bin/sh # install - install a program, script, or datafile scriptversion=2009-04-28.21; # UTC # This originates from X11R5 (mit/util/scripts/install.sh), which was # later released in X11R6 (xc/config/util/install.sh) with the # following copyright and license. # # Copyright (C) 1994 X Consortium # # Permission is hereby granted, free of charge, to any person obtaining a copy # of this software and associated documentation files (the "Software"), to # deal in the Software without restriction, including without limitation the # rights to use, copy, modify, merge, publish, distribute, sublicense, and/or # sell copies of the Software, and to permit persons to whom the Software is # furnished to do so, subject to the following conditions: # # The above copyright notice and this permission notice shall be included in # all copies or substantial portions of the Software. # # THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR # IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, # FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE # X CONSORTIUM BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN # AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNEC- # TION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE. # # Except as contained in this notice, the name of the X Consortium shall not # be used in advertising or otherwise to promote the sale, use or other deal- # ings in this Software without prior written authorization from the X Consor- # tium. # # # FSF changes to this file are in the public domain. # # Calling this script install-sh is preferred over install.sh, to prevent # `make' implicit rules from creating a file called install from it # when there is no Makefile. # # This script is compatible with the BSD install script, but was written # from scratch. nl=' ' IFS=" "" $nl" # set DOITPROG to echo to test this script # Don't use :- since 4.3BSD and earlier shells don't like it. doit=${DOITPROG-} if test -z "$doit"; then doit_exec=exec else doit_exec=$doit fi # Put in absolute file names if you don't have them in your path; # or use environment vars. chgrpprog=${CHGRPPROG-chgrp} chmodprog=${CHMODPROG-chmod} chownprog=${CHOWNPROG-chown} cmpprog=${CMPPROG-cmp} cpprog=${CPPROG-cp} mkdirprog=${MKDIRPROG-mkdir} mvprog=${MVPROG-mv} rmprog=${RMPROG-rm} stripprog=${STRIPPROG-strip} posix_glob='?' initialize_posix_glob=' test "$posix_glob" != "?" || { if (set -f) 2>/dev/null; then posix_glob= else posix_glob=: fi } ' posix_mkdir= # Desired mode of installed file. mode=0755 chgrpcmd= chmodcmd=$chmodprog chowncmd= mvcmd=$mvprog rmcmd="$rmprog -f" stripcmd= src= dst= dir_arg= dst_arg= copy_on_change=false no_target_directory= usage="\ Usage: $0 [OPTION]... [-T] SRCFILE DSTFILE or: $0 [OPTION]... SRCFILES... DIRECTORY or: $0 [OPTION]... -t DIRECTORY SRCFILES... or: $0 [OPTION]... -d DIRECTORIES... In the 1st form, copy SRCFILE to DSTFILE. In the 2nd and 3rd, copy all SRCFILES to DIRECTORY. In the 4th, create DIRECTORIES. Options: --help display this help and exit. --version display version info and exit. -c (ignored) -C install only if different (preserve the last data modification time) -d create directories instead of installing files. -g GROUP $chgrpprog installed files to GROUP. -m MODE $chmodprog installed files to MODE. -o USER $chownprog installed files to USER. -s $stripprog installed files. -t DIRECTORY install into DIRECTORY. -T report an error if DSTFILE is a directory. Environment variables override the default commands: CHGRPPROG CHMODPROG CHOWNPROG CMPPROG CPPROG MKDIRPROG MVPROG RMPROG STRIPPROG " while test $# -ne 0; do case $1 in -c) ;; -C) copy_on_change=true;; -d) dir_arg=true;; -g) chgrpcmd="$chgrpprog $2" shift;; --help) echo "$usage"; exit $?;; -m) mode=$2 case $mode in *' '* | *' '* | *' '* | *'*'* | *'?'* | *'['*) echo "$0: invalid mode: $mode" >&2 exit 1;; esac shift;; -o) chowncmd="$chownprog $2" shift;; -s) stripcmd=$stripprog;; -t) dst_arg=$2 shift;; -T) no_target_directory=true;; --version) echo "$0 $scriptversion"; exit $?;; --) shift break;; -*) echo "$0: invalid option: $1" >&2 exit 1;; *) break;; esac shift done if test $# -ne 0 && test -z "$dir_arg$dst_arg"; then # When -d is used, all remaining arguments are directories to create. # When -t is used, the destination is already specified. # Otherwise, the last argument is the destination. Remove it from $@. for arg do if test -n "$dst_arg"; then # $@ is not empty: it contains at least $arg. set fnord "$@" "$dst_arg" shift # fnord fi shift # arg dst_arg=$arg done fi if test $# -eq 0; then if test -z "$dir_arg"; then echo "$0: no input file specified." >&2 exit 1 fi # It's OK to call `install-sh -d' without argument. # This can happen when creating conditional directories. exit 0 fi if test -z "$dir_arg"; then trap '(exit $?); exit' 1 2 13 15 # Set umask so as not to create temps with too-generous modes. # However, 'strip' requires both read and write access to temps. case $mode in # Optimize common cases. *644) cp_umask=133;; *755) cp_umask=22;; *[0-7]) if test -z "$stripcmd"; then u_plus_rw= else u_plus_rw='% 200' fi cp_umask=`expr '(' 777 - $mode % 1000 ')' $u_plus_rw`;; *) if test -z "$stripcmd"; then u_plus_rw= else u_plus_rw=,u+rw fi cp_umask=$mode$u_plus_rw;; esac fi for src do # Protect names starting with `-'. case $src in -*) src=./$src;; esac if test -n "$dir_arg"; then dst=$src dstdir=$dst test -d "$dstdir" dstdir_status=$? else # Waiting for this to be detected by the "$cpprog $src $dsttmp" command # might cause directories to be created, which would be especially bad # if $src (and thus $dsttmp) contains '*'. if test ! -f "$src" && test ! -d "$src"; then echo "$0: $src does not exist." >&2 exit 1 fi if test -z "$dst_arg"; then echo "$0: no destination specified." >&2 exit 1 fi dst=$dst_arg # Protect names starting with `-'. case $dst in -*) dst=./$dst;; esac # If destination is a directory, append the input filename; won't work # if double slashes aren't ignored. if test -d "$dst"; then if test -n "$no_target_directory"; then echo "$0: $dst_arg: Is a directory" >&2 exit 1 fi dstdir=$dst dst=$dstdir/`basename "$src"` dstdir_status=0 else # Prefer dirname, but fall back on a substitute if dirname fails. dstdir=` (dirname "$dst") 2>/dev/null || expr X"$dst" : 'X\(.*[^/]\)//*[^/][^/]*/*$' \| \ X"$dst" : 'X\(//\)[^/]' \| \ X"$dst" : 'X\(//\)$' \| \ X"$dst" : 'X\(/\)' \| . 2>/dev/null || echo X"$dst" | sed '/^X\(.*[^/]\)\/\/*[^/][^/]*\/*$/{ s//\1/ q } /^X\(\/\/\)[^/].*/{ s//\1/ q } /^X\(\/\/\)$/{ s//\1/ q } /^X\(\/\).*/{ s//\1/ q } s/.*/./; q' ` test -d "$dstdir" dstdir_status=$? fi fi obsolete_mkdir_used=false if test $dstdir_status != 0; then case $posix_mkdir in '') # Create intermediate dirs using mode 755 as modified by the umask. # This is like FreeBSD 'install' as of 1997-10-28. umask=`umask` case $stripcmd.$umask in # Optimize common cases. *[2367][2367]) mkdir_umask=$umask;; .*0[02][02] | .[02][02] | .[02]) mkdir_umask=22;; *[0-7]) mkdir_umask=`expr $umask + 22 \ - $umask % 100 % 40 + $umask % 20 \ - $umask % 10 % 4 + $umask % 2 `;; *) mkdir_umask=$umask,go-w;; esac # With -d, create the new directory with the user-specified mode. # Otherwise, rely on $mkdir_umask. if test -n "$dir_arg"; then mkdir_mode=-m$mode else mkdir_mode= fi posix_mkdir=false case $umask in *[123567][0-7][0-7]) # POSIX mkdir -p sets u+wx bits regardless of umask, which # is incompatible with FreeBSD 'install' when (umask & 300) != 0. ;; *) tmpdir=${TMPDIR-/tmp}/ins$RANDOM-$$ trap 'ret=$?; rmdir "$tmpdir/d" "$tmpdir" 2>/dev/null; exit $ret' 0 if (umask $mkdir_umask && exec $mkdirprog $mkdir_mode -p -- "$tmpdir/d") >/dev/null 2>&1 then if test -z "$dir_arg" || { # Check for POSIX incompatibilities with -m. # HP-UX 11.23 and IRIX 6.5 mkdir -m -p sets group- or # other-writeable bit of parent directory when it shouldn't. # FreeBSD 6.1 mkdir -m -p sets mode of existing directory. ls_ld_tmpdir=`ls -ld "$tmpdir"` case $ls_ld_tmpdir in d????-?r-*) different_mode=700;; d????-?--*) different_mode=755;; *) false;; esac && $mkdirprog -m$different_mode -p -- "$tmpdir" && { ls_ld_tmpdir_1=`ls -ld "$tmpdir"` test "$ls_ld_tmpdir" = "$ls_ld_tmpdir_1" } } then posix_mkdir=: fi rmdir "$tmpdir/d" "$tmpdir" else # Remove any dirs left behind by ancient mkdir implementations. rmdir ./$mkdir_mode ./-p ./-- 2>/dev/null fi trap '' 0;; esac;; esac if $posix_mkdir && ( umask $mkdir_umask && $doit_exec $mkdirprog $mkdir_mode -p -- "$dstdir" ) then : else # The umask is ridiculous, or mkdir does not conform to POSIX, # or it failed possibly due to a race condition. Create the # directory the slow way, step by step, checking for races as we go. case $dstdir in /*) prefix='/';; -*) prefix='./';; *) prefix='';; esac eval "$initialize_posix_glob" oIFS=$IFS IFS=/ $posix_glob set -f set fnord $dstdir shift $posix_glob set +f IFS=$oIFS prefixes= for d do test -z "$d" && continue prefix=$prefix$d if test -d "$prefix"; then prefixes= else if $posix_mkdir; then (umask=$mkdir_umask && $doit_exec $mkdirprog $mkdir_mode -p -- "$dstdir") && break # Don't fail if two instances are running concurrently. test -d "$prefix" || exit 1 else case $prefix in *\'*) qprefix=`echo "$prefix" | sed "s/'/'\\\\\\\\''/g"`;; *) qprefix=$prefix;; esac prefixes="$prefixes '$qprefix'" fi fi prefix=$prefix/ done if test -n "$prefixes"; then # Don't fail if two instances are running concurrently. (umask $mkdir_umask && eval "\$doit_exec \$mkdirprog $prefixes") || test -d "$dstdir" || exit 1 obsolete_mkdir_used=true fi fi fi if test -n "$dir_arg"; then { test -z "$chowncmd" || $doit $chowncmd "$dst"; } && { test -z "$chgrpcmd" || $doit $chgrpcmd "$dst"; } && { test "$obsolete_mkdir_used$chowncmd$chgrpcmd" = false || test -z "$chmodcmd" || $doit $chmodcmd $mode "$dst"; } || exit 1 else # Make a couple of temp file names in the proper directory. dsttmp=$dstdir/_inst.$$_ rmtmp=$dstdir/_rm.$$_ # Trap to clean up those temp files at exit. trap 'ret=$?; rm -f "$dsttmp" "$rmtmp" && exit $ret' 0 # Copy the file name to the temp name. (umask $cp_umask && $doit_exec $cpprog "$src" "$dsttmp") && # and set any options; do chmod last to preserve setuid bits. # # If any of these fail, we abort the whole thing. If we want to # ignore errors from any of these, just make sure not to ignore # errors from the above "$doit $cpprog $src $dsttmp" command. # { test -z "$chowncmd" || $doit $chowncmd "$dsttmp"; } && { test -z "$chgrpcmd" || $doit $chgrpcmd "$dsttmp"; } && { test -z "$stripcmd" || $doit $stripcmd "$dsttmp"; } && { test -z "$chmodcmd" || $doit $chmodcmd $mode "$dsttmp"; } && # If -C, don't bother to copy if it wouldn't change the file. if $copy_on_change && old=`LC_ALL=C ls -dlL "$dst" 2>/dev/null` && new=`LC_ALL=C ls -dlL "$dsttmp" 2>/dev/null` && eval "$initialize_posix_glob" && $posix_glob set -f && set X $old && old=:$2:$4:$5:$6 && set X $new && new=:$2:$4:$5:$6 && $posix_glob set +f && test "$old" = "$new" && $cmpprog "$dst" "$dsttmp" >/dev/null 2>&1 then rm -f "$dsttmp" else # Rename the file to the real destination. $doit $mvcmd -f "$dsttmp" "$dst" 2>/dev/null || # The rename failed, perhaps because mv can't rename something else # to itself, or perhaps because mv is so ancient that it does not # support -f. { # Now remove or move aside any old file at destination location. # We try this two ways since rm can't unlink itself on some # systems and the destination file might be busy for other # reasons. In this case, the final cleanup might fail but the new # file should still install successfully. { test ! -f "$dst" || $doit $rmcmd -f "$dst" 2>/dev/null || { $doit $mvcmd -f "$dst" "$rmtmp" 2>/dev/null && { $doit $rmcmd -f "$rmtmp" 2>/dev/null; :; } } || { echo "$0: cannot unlink or rename $dst" >&2 (exit 1); exit 1 } } && # Now rename the file to the real destination. $doit $mvcmd "$dsttmp" "$dst" } fi || exit 1 trap '' 0 fi done # Local variables: # eval: (add-hook 'write-file-hooks 'time-stamp) # time-stamp-start: "scriptversion=" # time-stamp-format: "%:y-%02m-%02d.%02H" # time-stamp-time-zone: "UTC" # time-stamp-end: "; # UTC" # End: guile-gnome-platform-2.16.2/build-aux/texinfo.tex0000644000175000017500000110035111671126172022261 0ustar00wingowingo00000000000000% texinfo.tex -- TeX macros to handle Texinfo files. % % Load plain if necessary, i.e., if running under initex. \expandafter\ifx\csname fmtname\endcsname\relax\input plain\fi % \def\texinfoversion{2009-08-14.15} % % Copyright 1985, 1986, 1988, 1990, 1991, 1992, 1993, 1994, 1995, % 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004, 2005, 2006, % 2007, 2008, 2009 Free Software Foundation, Inc. % % This texinfo.tex file is free software: you can redistribute it and/or % modify it under the terms of the GNU General Public License as % published by the Free Software Foundation, either version 3 of the % License, or (at your option) any later version. % % This texinfo.tex file is distributed in the hope that it will be % useful, but WITHOUT ANY WARRANTY; without even the implied warranty % of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU % General Public License for more details. % % You should have received a copy of the GNU General Public License % along with this program. If not, see . % % As a special exception, when this file is read by TeX when processing % a Texinfo source document, you may use the result without % restriction. (This has been our intent since Texinfo was invented.) % % Please try the latest version of texinfo.tex before submitting bug % reports; you can get the latest version from: % http://www.gnu.org/software/texinfo/ (the Texinfo home page), or % ftp://tug.org/tex/texinfo.tex % (and all CTAN mirrors, see http://www.ctan.org). % The texinfo.tex in any given distribution could well be out % of date, so if that's what you're using, please check. % % Send bug reports to bug-texinfo@gnu.org. Please include including a % complete document in each bug report with which we can reproduce the % problem. Patches are, of course, greatly appreciated. % % To process a Texinfo manual with TeX, it's most reliable to use the % texi2dvi shell script that comes with the distribution. For a simple % manual foo.texi, however, you can get away with this: % tex foo.texi % texindex foo.?? % tex foo.texi % tex foo.texi % dvips foo.dvi -o # or whatever; this makes foo.ps. % The extra TeX runs get the cross-reference information correct. % Sometimes one run after texindex suffices, and sometimes you need more % than two; texi2dvi does it as many times as necessary. % % It is possible to adapt texinfo.tex for other languages, to some % extent. You can get the existing language-specific files from the % full Texinfo distribution. % % The GNU Texinfo home page is http://www.gnu.org/software/texinfo. \message{Loading texinfo [version \texinfoversion]:} % If in a .fmt file, print the version number % and turn on active characters that we couldn't do earlier because % they might have appeared in the input file name. \everyjob{\message{[Texinfo version \texinfoversion]}% \catcode`+=\active \catcode`\_=\active} \chardef\other=12 % We never want plain's \outer definition of \+ in Texinfo. % For @tex, we can use \tabalign. \let\+ = \relax % Save some plain tex macros whose names we will redefine. \let\ptexb=\b \let\ptexbullet=\bullet \let\ptexc=\c \let\ptexcomma=\, \let\ptexdot=\. \let\ptexdots=\dots \let\ptexend=\end \let\ptexequiv=\equiv \let\ptexexclam=\! \let\ptexfootnote=\footnote \let\ptexgtr=> \let\ptexhat=^ \let\ptexi=\i \let\ptexindent=\indent \let\ptexinsert=\insert \let\ptexlbrace=\{ \let\ptexless=< \let\ptexnewwrite\newwrite \let\ptexnoindent=\noindent \let\ptexplus=+ \let\ptexrbrace=\} \let\ptexslash=\/ \let\ptexstar=\* \let\ptext=\t \let\ptextop=\top {\catcode`\'=\active \global\let\ptexquoteright'}% Math-mode def from plain.tex. \let\ptexraggedright=\raggedright % If this character appears in an error message or help string, it % starts a new line in the output. \newlinechar = `^^J % Use TeX 3.0's \inputlineno to get the line number, for better error % messages, but if we're using an old version of TeX, don't do anything. % \ifx\inputlineno\thisisundefined \let\linenumber = \empty % Pre-3.0. \else \def\linenumber{l.\the\inputlineno:\space} \fi % Set up fixed words for English if not already set. \ifx\putwordAppendix\undefined \gdef\putwordAppendix{Appendix}\fi \ifx\putwordChapter\undefined \gdef\putwordChapter{Chapter}\fi \ifx\putwordfile\undefined \gdef\putwordfile{file}\fi \ifx\putwordin\undefined \gdef\putwordin{in}\fi \ifx\putwordIndexIsEmpty\undefined \gdef\putwordIndexIsEmpty{(Index is empty)}\fi \ifx\putwordIndexNonexistent\undefined \gdef\putwordIndexNonexistent{(Index is nonexistent)}\fi \ifx\putwordInfo\undefined \gdef\putwordInfo{Info}\fi \ifx\putwordInstanceVariableof\undefined \gdef\putwordInstanceVariableof{Instance Variable of}\fi \ifx\putwordMethodon\undefined \gdef\putwordMethodon{Method on}\fi \ifx\putwordNoTitle\undefined \gdef\putwordNoTitle{No Title}\fi \ifx\putwordof\undefined \gdef\putwordof{of}\fi \ifx\putwordon\undefined \gdef\putwordon{on}\fi \ifx\putwordpage\undefined \gdef\putwordpage{page}\fi \ifx\putwordsection\undefined \gdef\putwordsection{section}\fi \ifx\putwordSection\undefined \gdef\putwordSection{Section}\fi \ifx\putwordsee\undefined \gdef\putwordsee{see}\fi \ifx\putwordSee\undefined \gdef\putwordSee{See}\fi \ifx\putwordShortTOC\undefined \gdef\putwordShortTOC{Short Contents}\fi \ifx\putwordTOC\undefined \gdef\putwordTOC{Table of Contents}\fi % \ifx\putwordMJan\undefined \gdef\putwordMJan{January}\fi \ifx\putwordMFeb\undefined \gdef\putwordMFeb{February}\fi \ifx\putwordMMar\undefined \gdef\putwordMMar{March}\fi \ifx\putwordMApr\undefined \gdef\putwordMApr{April}\fi \ifx\putwordMMay\undefined \gdef\putwordMMay{May}\fi \ifx\putwordMJun\undefined \gdef\putwordMJun{June}\fi \ifx\putwordMJul\undefined \gdef\putwordMJul{July}\fi \ifx\putwordMAug\undefined \gdef\putwordMAug{August}\fi \ifx\putwordMSep\undefined \gdef\putwordMSep{September}\fi \ifx\putwordMOct\undefined \gdef\putwordMOct{October}\fi \ifx\putwordMNov\undefined \gdef\putwordMNov{November}\fi \ifx\putwordMDec\undefined \gdef\putwordMDec{December}\fi % \ifx\putwordDefmac\undefined \gdef\putwordDefmac{Macro}\fi \ifx\putwordDefspec\undefined \gdef\putwordDefspec{Special Form}\fi \ifx\putwordDefvar\undefined \gdef\putwordDefvar{Variable}\fi \ifx\putwordDefopt\undefined \gdef\putwordDefopt{User Option}\fi \ifx\putwordDeffunc\undefined \gdef\putwordDeffunc{Function}\fi % Since the category of space is not known, we have to be careful. \chardef\spacecat = 10 \def\spaceisspace{\catcode`\ =\spacecat} % sometimes characters are active, so we need control sequences. \chardef\colonChar = `\: \chardef\commaChar = `\, \chardef\dashChar = `\- \chardef\dotChar = `\. \chardef\exclamChar= `\! \chardef\lquoteChar= `\` \chardef\questChar = `\? \chardef\rquoteChar= `\' \chardef\semiChar = `\; \chardef\underChar = `\_ % Ignore a token. % \def\gobble#1{} % The following is used inside several \edef's. \def\makecsname#1{\expandafter\noexpand\csname#1\endcsname} % Hyphenation fixes. \hyphenation{ Flor-i-da Ghost-script Ghost-view Mac-OS Post-Script ap-pen-dix bit-map bit-maps data-base data-bases eshell fall-ing half-way long-est man-u-script man-u-scripts mini-buf-fer mini-buf-fers over-view par-a-digm par-a-digms rath-er rec-tan-gu-lar ro-bot-ics se-vere-ly set-up spa-ces spell-ing spell-ings stand-alone strong-est time-stamp time-stamps which-ever white-space wide-spread wrap-around } % Margin to add to right of even pages, to left of odd pages. \newdimen\bindingoffset \newdimen\normaloffset \newdimen\pagewidth \newdimen\pageheight % For a final copy, take out the rectangles % that mark overfull boxes (in case you have decided % that the text looks ok even though it passes the margin). % \def\finalout{\overfullrule=0pt} % @| inserts a changebar to the left of the current line. It should % surround any changed text. This approach does *not* work if the % change spans more than two lines of output. To handle that, we would % have adopt a much more difficult approach (putting marks into the main % vertical list for the beginning and end of each change). % \def\|{% % \vadjust can only be used in horizontal mode. \leavevmode % % Append this vertical mode material after the current line in the output. \vadjust{% % We want to insert a rule with the height and depth of the current % leading; that is exactly what \strutbox is supposed to record. \vskip-\baselineskip % % \vadjust-items are inserted at the left edge of the type. So % the \llap here moves out into the left-hand margin. \llap{% % % For a thicker or thinner bar, change the `1pt'. \vrule height\baselineskip width1pt % % This is the space between the bar and the text. \hskip 12pt }% }% } % Sometimes it is convenient to have everything in the transcript file % and nothing on the terminal. We don't just call \tracingall here, % since that produces some useless output on the terminal. We also make % some effort to order the tracing commands to reduce output in the log % file; cf. trace.sty in LaTeX. % \def\gloggingall{\begingroup \globaldefs = 1 \loggingall \endgroup}% \def\loggingall{% \tracingstats2 \tracingpages1 \tracinglostchars2 % 2 gives us more in etex \tracingparagraphs1 \tracingoutput1 \tracingmacros2 \tracingrestores1 \showboxbreadth\maxdimen \showboxdepth\maxdimen \ifx\eTeXversion\undefined\else % etex gives us more logging \tracingscantokens1 \tracingifs1 \tracinggroups1 \tracingnesting2 \tracingassigns1 \fi \tracingcommands3 % 3 gives us more in etex \errorcontextlines16 }% % add check for \lastpenalty to plain's definitions. If the last thing % we did was a \nobreak, we don't want to insert more space. % \def\smallbreak{\ifnum\lastpenalty<10000\par\ifdim\lastskip<\smallskipamount \removelastskip\penalty-50\smallskip\fi\fi} \def\medbreak{\ifnum\lastpenalty<10000\par\ifdim\lastskip<\medskipamount \removelastskip\penalty-100\medskip\fi\fi} \def\bigbreak{\ifnum\lastpenalty<10000\par\ifdim\lastskip<\bigskipamount \removelastskip\penalty-200\bigskip\fi\fi} % For @cropmarks command. % Do @cropmarks to get crop marks. % \newif\ifcropmarks \let\cropmarks = \cropmarkstrue % % Dimensions to add cropmarks at corners. % Added by P. A. MacKay, 12 Nov. 1986 % \newdimen\outerhsize \newdimen\outervsize % set by the paper size routines \newdimen\cornerlong \cornerlong=1pc \newdimen\cornerthick \cornerthick=.3pt \newdimen\topandbottommargin \topandbottommargin=.75in % Output a mark which sets \thischapter, \thissection and \thiscolor. % We dump everything together because we only have one kind of mark. % This works because we only use \botmark / \topmark, not \firstmark. % % A mark contains a subexpression of the \ifcase ... \fi construct. % \get*marks macros below extract the needed part using \ifcase. % % Another complication is to let the user choose whether \thischapter % (\thissection) refers to the chapter (section) in effect at the top % of a page, or that at the bottom of a page. The solution is % described on page 260 of The TeXbook. It involves outputting two % marks for the sectioning macros, one before the section break, and % one after. I won't pretend I can describe this better than DEK... \def\domark{% \toks0=\expandafter{\lastchapterdefs}% \toks2=\expandafter{\lastsectiondefs}% \toks4=\expandafter{\prevchapterdefs}% \toks6=\expandafter{\prevsectiondefs}% \toks8=\expandafter{\lastcolordefs}% \mark{% \the\toks0 \the\toks2 \noexpand\or \the\toks4 \the\toks6 \noexpand\else \the\toks8 }% } % \topmark doesn't work for the very first chapter (after the title % page or the contents), so we use \firstmark there -- this gets us % the mark with the chapter defs, unless the user sneaks in, e.g., % @setcolor (or @url, or @link, etc.) between @contents and the very % first @chapter. \def\gettopheadingmarks{% \ifcase0\topmark\fi \ifx\thischapter\empty \ifcase0\firstmark\fi \fi } \def\getbottomheadingmarks{\ifcase1\botmark\fi} \def\getcolormarks{\ifcase2\topmark\fi} % Avoid "undefined control sequence" errors. \def\lastchapterdefs{} \def\lastsectiondefs{} \def\prevchapterdefs{} \def\prevsectiondefs{} \def\lastcolordefs{} % Main output routine. \chardef\PAGE = 255 \output = {\onepageout{\pagecontents\PAGE}} \newbox\headlinebox \newbox\footlinebox % \onepageout takes a vbox as an argument. Note that \pagecontents % does insertions, but you have to call it yourself. \def\onepageout#1{% \ifcropmarks \hoffset=0pt \else \hoffset=\normaloffset \fi % \ifodd\pageno \advance\hoffset by \bindingoffset \else \advance\hoffset by -\bindingoffset\fi % % Do this outside of the \shipout so @code etc. will be expanded in % the headline as they should be, not taken literally (outputting ''code). \ifodd\pageno \getoddheadingmarks \else \getevenheadingmarks \fi \setbox\headlinebox = \vbox{\let\hsize=\pagewidth \makeheadline}% \ifodd\pageno \getoddfootingmarks \else \getevenfootingmarks \fi \setbox\footlinebox = \vbox{\let\hsize=\pagewidth \makefootline}% % {% % Have to do this stuff outside the \shipout because we want it to % take effect in \write's, yet the group defined by the \vbox ends % before the \shipout runs. % \indexdummies % don't expand commands in the output. \normalturnoffactive % \ in index entries must not stay \, e.g., if % the page break happens to be in the middle of an example. % We don't want .vr (or whatever) entries like this: % \entry{{\tt \indexbackslash }acronym}{32}{\code {\acronym}} % "\acronym" won't work when it's read back in; % it needs to be % {\code {{\tt \backslashcurfont }acronym} \shipout\vbox{% % Do this early so pdf references go to the beginning of the page. \ifpdfmakepagedest \pdfdest name{\the\pageno} xyz\fi % \ifcropmarks \vbox to \outervsize\bgroup \hsize = \outerhsize \vskip-\topandbottommargin \vtop to0pt{% \line{\ewtop\hfil\ewtop}% \nointerlineskip \line{% \vbox{\moveleft\cornerthick\nstop}% \hfill \vbox{\moveright\cornerthick\nstop}% }% \vss}% \vskip\topandbottommargin \line\bgroup \hfil % center the page within the outer (page) hsize. \ifodd\pageno\hskip\bindingoffset\fi \vbox\bgroup \fi % \unvbox\headlinebox \pagebody{#1}% \ifdim\ht\footlinebox > 0pt % Only leave this space if the footline is nonempty. % (We lessened \vsize for it in \oddfootingyyy.) % The \baselineskip=24pt in plain's \makefootline has no effect. \vskip 24pt \unvbox\footlinebox \fi % \ifcropmarks \egroup % end of \vbox\bgroup \hfil\egroup % end of (centering) \line\bgroup \vskip\topandbottommargin plus1fill minus1fill \boxmaxdepth = \cornerthick \vbox to0pt{\vss \line{% \vbox{\moveleft\cornerthick\nsbot}% \hfill \vbox{\moveright\cornerthick\nsbot}% }% \nointerlineskip \line{\ewbot\hfil\ewbot}% }% \egroup % \vbox from first cropmarks clause \fi }% end of \shipout\vbox }% end of group with \indexdummies \advancepageno \ifnum\outputpenalty>-20000 \else\dosupereject\fi } \newinsert\margin \dimen\margin=\maxdimen \def\pagebody#1{\vbox to\pageheight{\boxmaxdepth=\maxdepth #1}} {\catcode`\@ =11 \gdef\pagecontents#1{\ifvoid\topins\else\unvbox\topins\fi % marginal hacks, juha@viisa.uucp (Juha Takala) \ifvoid\margin\else % marginal info is present \rlap{\kern\hsize\vbox to\z@{\kern1pt\box\margin \vss}}\fi \dimen@=\dp#1\relax \unvbox#1\relax \ifvoid\footins\else\vskip\skip\footins\footnoterule \unvbox\footins\fi \ifr@ggedbottom \kern-\dimen@ \vfil \fi} } % Here are the rules for the cropmarks. Note that they are % offset so that the space between them is truly \outerhsize or \outervsize % (P. A. MacKay, 12 November, 1986) % \def\ewtop{\vrule height\cornerthick depth0pt width\cornerlong} \def\nstop{\vbox {\hrule height\cornerthick depth\cornerlong width\cornerthick}} \def\ewbot{\vrule height0pt depth\cornerthick width\cornerlong} \def\nsbot{\vbox {\hrule height\cornerlong depth\cornerthick width\cornerthick}} % Parse an argument, then pass it to #1. The argument is the rest of % the input line (except we remove a trailing comment). #1 should be a % macro which expects an ordinary undelimited TeX argument. % \def\parsearg{\parseargusing{}} \def\parseargusing#1#2{% \def\argtorun{#2}% \begingroup \obeylines \spaceisspace #1% \parseargline\empty% Insert the \empty token, see \finishparsearg below. } {\obeylines % \gdef\parseargline#1^^M{% \endgroup % End of the group started in \parsearg. \argremovecomment #1\comment\ArgTerm% }% } % First remove any @comment, then any @c comment. \def\argremovecomment#1\comment#2\ArgTerm{\argremovec #1\c\ArgTerm} \def\argremovec#1\c#2\ArgTerm{\argcheckspaces#1\^^M\ArgTerm} % Each occurrence of `\^^M' or `\^^M' is replaced by a single space. % % \argremovec might leave us with trailing space, e.g., % @end itemize @c foo % This space token undergoes the same procedure and is eventually removed % by \finishparsearg. % \def\argcheckspaces#1\^^M{\argcheckspacesX#1\^^M \^^M} \def\argcheckspacesX#1 \^^M{\argcheckspacesY#1\^^M} \def\argcheckspacesY#1\^^M#2\^^M#3\ArgTerm{% \def\temp{#3}% \ifx\temp\empty % Do not use \next, perhaps the caller of \parsearg uses it; reuse \temp: \let\temp\finishparsearg \else \let\temp\argcheckspaces \fi % Put the space token in: \temp#1 #3\ArgTerm } % If a _delimited_ argument is enclosed in braces, they get stripped; so % to get _exactly_ the rest of the line, we had to prevent such situation. % We prepended an \empty token at the very beginning and we expand it now, % just before passing the control to \argtorun. % (Similarly, we have to think about #3 of \argcheckspacesY above: it is % either the null string, or it ends with \^^M---thus there is no danger % that a pair of braces would be stripped. % % But first, we have to remove the trailing space token. % \def\finishparsearg#1 \ArgTerm{\expandafter\argtorun\expandafter{#1}} % \parseargdef\foo{...} % is roughly equivalent to % \def\foo{\parsearg\Xfoo} % \def\Xfoo#1{...} % % Actually, I use \csname\string\foo\endcsname, ie. \\foo, as it is my % favourite TeX trick. --kasal, 16nov03 \def\parseargdef#1{% \expandafter \doparseargdef \csname\string#1\endcsname #1% } \def\doparseargdef#1#2{% \def#2{\parsearg#1}% \def#1##1% } % Several utility definitions with active space: { \obeyspaces \gdef\obeyedspace{ } % Make each space character in the input produce a normal interword % space in the output. Don't allow a line break at this space, as this % is used only in environments like @example, where each line of input % should produce a line of output anyway. % \gdef\sepspaces{\obeyspaces\let =\tie} % If an index command is used in an @example environment, any spaces % therein should become regular spaces in the raw index file, not the % expansion of \tie (\leavevmode \penalty \@M \ ). \gdef\unsepspaces{\let =\space} } \def\flushcr{\ifx\par\lisppar \def\next##1{}\else \let\next=\relax \fi \next} % Define the framework for environments in texinfo.tex. It's used like this: % % \envdef\foo{...} % \def\Efoo{...} % % It's the responsibility of \envdef to insert \begingroup before the % actual body; @end closes the group after calling \Efoo. \envdef also % defines \thisenv, so the current environment is known; @end checks % whether the environment name matches. The \checkenv macro can also be % used to check whether the current environment is the one expected. % % Non-false conditionals (@iftex, @ifset) don't fit into this, so they % are not treated as environments; they don't open a group. (The % implementation of @end takes care not to call \endgroup in this % special case.) % At run-time, environments start with this: \def\startenvironment#1{\begingroup\def\thisenv{#1}} % initialize \let\thisenv\empty % ... but they get defined via ``\envdef\foo{...}'': \long\def\envdef#1#2{\def#1{\startenvironment#1#2}} \def\envparseargdef#1#2{\parseargdef#1{\startenvironment#1#2}} % Check whether we're in the right environment: \def\checkenv#1{% \def\temp{#1}% \ifx\thisenv\temp \else \badenverr \fi } % Environment mismatch, #1 expected: \def\badenverr{% \errhelp = \EMsimple \errmessage{This command can appear only \inenvironment\temp, not \inenvironment\thisenv}% } \def\inenvironment#1{% \ifx#1\empty out of any environment% \else in environment \expandafter\string#1% \fi } % @end foo executes the definition of \Efoo. % But first, it executes a specialized version of \checkenv % \parseargdef\end{% \if 1\csname iscond.#1\endcsname \else % The general wording of \badenverr may not be ideal, but... --kasal, 06nov03 \expandafter\checkenv\csname#1\endcsname \csname E#1\endcsname \endgroup \fi } \newhelp\EMsimple{Press RETURN to continue.} %% Simple single-character @ commands % @@ prints an @ % Kludge this until the fonts are right (grr). \def\@{{\tt\char64}} % This is turned off because it was never documented % and you can use @w{...} around a quote to suppress ligatures. %% Define @` and @' to be the same as ` and ' %% but suppressing ligatures. %\def\`{{`}} %\def\'{{'}} % Used to generate quoted braces. \def\mylbrace {{\tt\char123}} \def\myrbrace {{\tt\char125}} \let\{=\mylbrace \let\}=\myrbrace \begingroup % Definitions to produce \{ and \} commands for indices, % and @{ and @} for the aux/toc files. \catcode`\{ = \other \catcode`\} = \other \catcode`\[ = 1 \catcode`\] = 2 \catcode`\! = 0 \catcode`\\ = \other !gdef!lbracecmd[\{]% !gdef!rbracecmd[\}]% !gdef!lbraceatcmd[@{]% !gdef!rbraceatcmd[@}]% !endgroup % @comma{} to avoid , parsing problems. \let\comma = , % Accents: @, @dotaccent @ringaccent @ubaraccent @udotaccent % Others are defined by plain TeX: @` @' @" @^ @~ @= @u @v @H. \let\, = \c \let\dotaccent = \. \def\ringaccent#1{{\accent23 #1}} \let\tieaccent = \t \let\ubaraccent = \b \let\udotaccent = \d % Other special characters: @questiondown @exclamdown @ordf @ordm % Plain TeX defines: @AA @AE @O @OE @L (plus lowercase versions) @ss. \def\questiondown{?`} \def\exclamdown{!`} \def\ordf{\leavevmode\raise1ex\hbox{\selectfonts\lllsize \underbar{a}}} \def\ordm{\leavevmode\raise1ex\hbox{\selectfonts\lllsize \underbar{o}}} % Dotless i and dotless j, used for accents. \def\imacro{i} \def\jmacro{j} \def\dotless#1{% \def\temp{#1}% \ifx\temp\imacro \ifmmode\imath \else\ptexi \fi \else\ifx\temp\jmacro \ifmmode\jmath \else\j \fi \else \errmessage{@dotless can be used only with i or j}% \fi\fi } % The \TeX{} logo, as in plain, but resetting the spacing so that a % period following counts as ending a sentence. (Idea found in latex.) % \edef\TeX{\TeX \spacefactor=1000 } % @LaTeX{} logo. Not quite the same results as the definition in % latex.ltx, since we use a different font for the raised A; it's most % convenient for us to use an explicitly smaller font, rather than using % the \scriptstyle font (since we don't reset \scriptstyle and % \scriptscriptstyle). % \def\LaTeX{% L\kern-.36em {\setbox0=\hbox{T}% \vbox to \ht0{\hbox{\selectfonts\lllsize A}\vss}}% \kern-.15em \TeX } % Be sure we're in horizontal mode when doing a tie, since we make space % equivalent to this in @example-like environments. Otherwise, a space % at the beginning of a line will start with \penalty -- and % since \penalty is valid in vertical mode, we'd end up putting the % penalty on the vertical list instead of in the new paragraph. {\catcode`@ = 11 % Avoid using \@M directly, because that causes trouble % if the definition is written into an index file. \global\let\tiepenalty = \@M \gdef\tie{\leavevmode\penalty\tiepenalty\ } } % @: forces normal size whitespace following. \def\:{\spacefactor=1000 } % @* forces a line break. \def\*{\hfil\break\hbox{}\ignorespaces} % @/ allows a line break. \let\/=\allowbreak % @. is an end-of-sentence period. \def\.{.\spacefactor=\endofsentencespacefactor\space} % @! is an end-of-sentence bang. \def\!{!\spacefactor=\endofsentencespacefactor\space} % @? is an end-of-sentence query. \def\?{?\spacefactor=\endofsentencespacefactor\space} % @frenchspacing on|off says whether to put extra space after punctuation. % \def\onword{on} \def\offword{off} % \parseargdef\frenchspacing{% \def\temp{#1}% \ifx\temp\onword \plainfrenchspacing \else\ifx\temp\offword \plainnonfrenchspacing \else \errhelp = \EMsimple \errmessage{Unknown @frenchspacing option `\temp', must be on/off}% \fi\fi } % @w prevents a word break. Without the \leavevmode, @w at the % beginning of a paragraph, when TeX is still in vertical mode, would % produce a whole line of output instead of starting the paragraph. \def\w#1{\leavevmode\hbox{#1}} % @group ... @end group forces ... to be all on one page, by enclosing % it in a TeX vbox. We use \vtop instead of \vbox to construct the box % to keep its height that of a normal line. According to the rules for % \topskip (p.114 of the TeXbook), the glue inserted is % max (\topskip - \ht (first item), 0). If that height is large, % therefore, no glue is inserted, and the space between the headline and % the text is small, which looks bad. % % Another complication is that the group might be very large. This can % cause the glue on the previous page to be unduly stretched, because it % does not have much material. In this case, it's better to add an % explicit \vfill so that the extra space is at the bottom. The % threshold for doing this is if the group is more than \vfilllimit % percent of a page (\vfilllimit can be changed inside of @tex). % \newbox\groupbox \def\vfilllimit{0.7} % \envdef\group{% \ifnum\catcode`\^^M=\active \else \errhelp = \groupinvalidhelp \errmessage{@group invalid in context where filling is enabled}% \fi \startsavinginserts % \setbox\groupbox = \vtop\bgroup % Do @comment since we are called inside an environment such as % @example, where each end-of-line in the input causes an % end-of-line in the output. We don't want the end-of-line after % the `@group' to put extra space in the output. Since @group % should appear on a line by itself (according to the Texinfo % manual), we don't worry about eating any user text. \comment } % % The \vtop produces a box with normal height and large depth; thus, TeX puts % \baselineskip glue before it, and (when the next line of text is done) % \lineskip glue after it. Thus, space below is not quite equal to space % above. But it's pretty close. \def\Egroup{% % To get correct interline space between the last line of the group % and the first line afterwards, we have to propagate \prevdepth. \endgraf % Not \par, as it may have been set to \lisppar. \global\dimen1 = \prevdepth \egroup % End the \vtop. % \dimen0 is the vertical size of the group's box. \dimen0 = \ht\groupbox \advance\dimen0 by \dp\groupbox % \dimen2 is how much space is left on the page (more or less). \dimen2 = \pageheight \advance\dimen2 by -\pagetotal % if the group doesn't fit on the current page, and it's a big big % group, force a page break. \ifdim \dimen0 > \dimen2 \ifdim \pagetotal < \vfilllimit\pageheight \page \fi \fi \box\groupbox \prevdepth = \dimen1 \checkinserts } % % TeX puts in an \escapechar (i.e., `@') at the beginning of the help % message, so this ends up printing `@group can only ...'. % \newhelp\groupinvalidhelp{% group can only be used in environments such as @example,^^J% where each line of input produces a line of output.} % @need space-in-mils % forces a page break if there is not space-in-mils remaining. \newdimen\mil \mil=0.001in % Old definition--didn't work. %\parseargdef\need{\par % %% This method tries to make TeX break the page naturally %% if the depth of the box does not fit. %{\baselineskip=0pt% %\vtop to #1\mil{\vfil}\kern -#1\mil\nobreak %\prevdepth=-1000pt %}} \parseargdef\need{% % Ensure vertical mode, so we don't make a big box in the middle of a % paragraph. \par % % If the @need value is less than one line space, it's useless. \dimen0 = #1\mil \dimen2 = \ht\strutbox \advance\dimen2 by \dp\strutbox \ifdim\dimen0 > \dimen2 % % Do a \strut just to make the height of this box be normal, so the % normal leading is inserted relative to the preceding line. % And a page break here is fine. \vtop to #1\mil{\strut\vfil}% % % TeX does not even consider page breaks if a penalty added to the % main vertical list is 10000 or more. But in order to see if the % empty box we just added fits on the page, we must make it consider % page breaks. On the other hand, we don't want to actually break the % page after the empty box. So we use a penalty of 9999. % % There is an extremely small chance that TeX will actually break the % page at this \penalty, if there are no other feasible breakpoints in % sight. (If the user is using lots of big @group commands, which % almost-but-not-quite fill up a page, TeX will have a hard time doing % good page breaking, for example.) However, I could not construct an % example where a page broke at this \penalty; if it happens in a real % document, then we can reconsider our strategy. \penalty9999 % % Back up by the size of the box, whether we did a page break or not. \kern -#1\mil % % Do not allow a page break right after this kern. \nobreak \fi } % @br forces paragraph break (and is undocumented). \let\br = \par % @page forces the start of a new page. % \def\page{\par\vfill\supereject} % @exdent text.... % outputs text on separate line in roman font, starting at standard page margin % This records the amount of indent in the innermost environment. % That's how much \exdent should take out. \newskip\exdentamount % This defn is used inside fill environments such as @defun. \parseargdef\exdent{\hfil\break\hbox{\kern -\exdentamount{\rm#1}}\hfil\break} % This defn is used inside nofill environments such as @example. \parseargdef\nofillexdent{{\advance \leftskip by -\exdentamount \leftline{\hskip\leftskip{\rm#1}}}} % @inmargin{WHICH}{TEXT} puts TEXT in the WHICH margin next to the current % paragraph. For more general purposes, use the \margin insertion % class. WHICH is `l' or `r'. % \newskip\inmarginspacing \inmarginspacing=1cm \def\strutdepth{\dp\strutbox} % \def\doinmargin#1#2{\strut\vadjust{% \nobreak \kern-\strutdepth \vtop to \strutdepth{% \baselineskip=\strutdepth \vss % if you have multiple lines of stuff to put here, you'll need to % make the vbox yourself of the appropriate size. \ifx#1l% \llap{\ignorespaces #2\hskip\inmarginspacing}% \else \rlap{\hskip\hsize \hskip\inmarginspacing \ignorespaces #2}% \fi \null }% }} \def\inleftmargin{\doinmargin l} \def\inrightmargin{\doinmargin r} % % @inmargin{TEXT [, RIGHT-TEXT]} % (if RIGHT-TEXT is given, use TEXT for left page, RIGHT-TEXT for right; % else use TEXT for both). % \def\inmargin#1{\parseinmargin #1,,\finish} \def\parseinmargin#1,#2,#3\finish{% not perfect, but better than nothing. \setbox0 = \hbox{\ignorespaces #2}% \ifdim\wd0 > 0pt \def\lefttext{#1}% have both texts \def\righttext{#2}% \else \def\lefttext{#1}% have only one text \def\righttext{#1}% \fi % \ifodd\pageno \def\temp{\inrightmargin\righttext}% odd page -> outside is right margin \else \def\temp{\inleftmargin\lefttext}% \fi \temp } % @include FILE -- \input text of FILE. % \def\include{\parseargusing\filenamecatcodes\includezzz} \def\includezzz#1{% \pushthisfilestack \def\thisfile{#1}% {% \makevalueexpandable % we want to expand any @value in FILE. \turnoffactive % and allow special characters in the expansion \indexnofonts % Allow `@@' and other weird things in file names. \edef\temp{\noexpand\input #1 }% % % This trickery is to read FILE outside of a group, in case it makes % definitions, etc. \expandafter }\temp \popthisfilestack } \def\filenamecatcodes{% \catcode`\\=\other \catcode`~=\other \catcode`^=\other \catcode`_=\other \catcode`|=\other \catcode`<=\other \catcode`>=\other \catcode`+=\other \catcode`-=\other \catcode`\`=\other \catcode`\'=\other } \def\pushthisfilestack{% \expandafter\pushthisfilestackX\popthisfilestack\StackTerm } \def\pushthisfilestackX{% \expandafter\pushthisfilestackY\thisfile\StackTerm } \def\pushthisfilestackY #1\StackTerm #2\StackTerm {% \gdef\popthisfilestack{\gdef\thisfile{#1}\gdef\popthisfilestack{#2}}% } \def\popthisfilestack{\errthisfilestackempty} \def\errthisfilestackempty{\errmessage{Internal error: the stack of filenames is empty.}} \def\thisfile{} % @center line % outputs that line, centered. % \parseargdef\center{% \ifhmode \let\next\centerH \else \let\next\centerV \fi \next{\hfil \ignorespaces#1\unskip \hfil}% } \def\centerH#1{% {% \hfil\break \advance\hsize by -\leftskip \advance\hsize by -\rightskip \line{#1}% \break }% } \def\centerV#1{\line{\kern\leftskip #1\kern\rightskip}} % @sp n outputs n lines of vertical space \parseargdef\sp{\vskip #1\baselineskip} % @comment ...line which is ignored... % @c is the same as @comment % @ignore ... @end ignore is another way to write a comment \def\comment{\begingroup \catcode`\^^M=\other% \catcode`\@=\other \catcode`\{=\other \catcode`\}=\other% \commentxxx} {\catcode`\^^M=\other \gdef\commentxxx#1^^M{\endgroup}} \let\c=\comment % @paragraphindent NCHARS % We'll use ems for NCHARS, close enough. % NCHARS can also be the word `asis' or `none'. % We cannot feasibly implement @paragraphindent asis, though. % \def\asisword{asis} % no translation, these are keywords \def\noneword{none} % \parseargdef\paragraphindent{% \def\temp{#1}% \ifx\temp\asisword \else \ifx\temp\noneword \defaultparindent = 0pt \else \defaultparindent = #1em \fi \fi \parindent = \defaultparindent } % @exampleindent NCHARS % We'll use ems for NCHARS like @paragraphindent. % It seems @exampleindent asis isn't necessary, but % I preserve it to make it similar to @paragraphindent. \parseargdef\exampleindent{% \def\temp{#1}% \ifx\temp\asisword \else \ifx\temp\noneword \lispnarrowing = 0pt \else \lispnarrowing = #1em \fi \fi } % @firstparagraphindent WORD % If WORD is `none', then suppress indentation of the first paragraph % after a section heading. If WORD is `insert', then do indent at such % paragraphs. % % The paragraph indentation is suppressed or not by calling % \suppressfirstparagraphindent, which the sectioning commands do. % We switch the definition of this back and forth according to WORD. % By default, we suppress indentation. % \def\suppressfirstparagraphindent{\dosuppressfirstparagraphindent} \def\insertword{insert} % \parseargdef\firstparagraphindent{% \def\temp{#1}% \ifx\temp\noneword \let\suppressfirstparagraphindent = \dosuppressfirstparagraphindent \else\ifx\temp\insertword \let\suppressfirstparagraphindent = \relax \else \errhelp = \EMsimple \errmessage{Unknown @firstparagraphindent option `\temp'}% \fi\fi } % Here is how we actually suppress indentation. Redefine \everypar to % \kern backwards by \parindent, and then reset itself to empty. % % We also make \indent itself not actually do anything until the next % paragraph. % \gdef\dosuppressfirstparagraphindent{% \gdef\indent{% \restorefirstparagraphindent \indent }% \gdef\noindent{% \restorefirstparagraphindent \noindent }% \global\everypar = {% \kern -\parindent \restorefirstparagraphindent }% } \gdef\restorefirstparagraphindent{% \global \let \indent = \ptexindent \global \let \noindent = \ptexnoindent \global \everypar = {}% } % @asis just yields its argument. Used with @table, for example. % \def\asis#1{#1} % @math outputs its argument in math mode. % % One complication: _ usually means subscripts, but it could also mean % an actual _ character, as in @math{@var{some_variable} + 1}. So make % _ active, and distinguish by seeing if the current family is \slfam, % which is what @var uses. { \catcode`\_ = \active \gdef\mathunderscore{% \catcode`\_=\active \def_{\ifnum\fam=\slfam \_\else\sb\fi}% } } % Another complication: we want \\ (and @\) to output a \ character. % FYI, plain.tex uses \\ as a temporary control sequence (why?), but % this is not advertised and we don't care. Texinfo does not % otherwise define @\. % % The \mathchar is class=0=ordinary, family=7=ttfam, position=5C=\. \def\mathbackslash{\ifnum\fam=\ttfam \mathchar"075C \else\backslash \fi} % \def\math{% \tex \mathunderscore \let\\ = \mathbackslash \mathactive % make the texinfo accent commands work in math mode \let\"=\ddot \let\'=\acute \let\==\bar \let\^=\hat \let\`=\grave \let\u=\breve \let\v=\check \let\~=\tilde \let\dotaccent=\dot $\finishmath } \def\finishmath#1{#1$\endgroup} % Close the group opened by \tex. % Some active characters (such as <) are spaced differently in math. % We have to reset their definitions in case the @math was an argument % to a command which sets the catcodes (such as @item or @section). % { \catcode`^ = \active \catcode`< = \active \catcode`> = \active \catcode`+ = \active \catcode`' = \active \gdef\mathactive{% \let^ = \ptexhat \let< = \ptexless \let> = \ptexgtr \let+ = \ptexplus \let' = \ptexquoteright } } % Some math mode symbols. \def\bullet{$\ptexbullet$} \def\geq{\ifmmode \ge\else $\ge$\fi} \def\leq{\ifmmode \le\else $\le$\fi} \def\minus{\ifmmode -\else $-$\fi} % @dots{} outputs an ellipsis using the current font. % We do .5em per period so that it has the same spacing in the cm % typewriter fonts as three actual period characters; on the other hand, % in other typewriter fonts three periods are wider than 1.5em. So do % whichever is larger. % \def\dots{% \leavevmode \setbox0=\hbox{...}% get width of three periods \ifdim\wd0 > 1.5em \dimen0 = \wd0 \else \dimen0 = 1.5em \fi \hbox to \dimen0{% \hskip 0pt plus.25fil .\hskip 0pt plus1fil .\hskip 0pt plus1fil .\hskip 0pt plus.5fil }% } % @enddots{} is an end-of-sentence ellipsis. % \def\enddots{% \dots \spacefactor=\endofsentencespacefactor } % @comma{} is so commas can be inserted into text without messing up % Texinfo's parsing. % \let\comma = , % @refill is a no-op. \let\refill=\relax % If working on a large document in chapters, it is convenient to % be able to disable indexing, cross-referencing, and contents, for test runs. % This is done with @novalidate (before @setfilename). % \newif\iflinks \linkstrue % by default we want the aux files. \let\novalidate = \linksfalse % @setfilename is done at the beginning of every texinfo file. % So open here the files we need to have open while reading the input. % This makes it possible to make a .fmt file for texinfo. \def\setfilename{% \fixbackslash % Turn off hack to swallow `\input texinfo'. \iflinks \tryauxfile % Open the new aux file. TeX will close it automatically at exit. \immediate\openout\auxfile=\jobname.aux \fi % \openindices needs to do some work in any case. \openindices \let\setfilename=\comment % Ignore extra @setfilename cmds. % % If texinfo.cnf is present on the system, read it. % Useful for site-wide @afourpaper, etc. \openin 1 texinfo.cnf \ifeof 1 \else \input texinfo.cnf \fi \closein 1 % \comment % Ignore the actual filename. } % Called from \setfilename. % \def\openindices{% \newindex{cp}% \newcodeindex{fn}% \newcodeindex{vr}% \newcodeindex{tp}% \newcodeindex{ky}% \newcodeindex{pg}% } % @bye. \outer\def\bye{\pagealignmacro\tracingstats=1\ptexend} \message{pdf,} % adobe `portable' document format \newcount\tempnum \newcount\lnkcount \newtoks\filename \newcount\filenamelength \newcount\pgn \newtoks\toksA \newtoks\toksB \newtoks\toksC \newtoks\toksD \newbox\boxA \newcount\countA \newif\ifpdf \newif\ifpdfmakepagedest % when pdftex is run in dvi mode, \pdfoutput is defined (so \pdfoutput=1 % can be set). So we test for \relax and 0 as well as \undefined, % borrowed from ifpdf.sty. \ifx\pdfoutput\undefined \else \ifx\pdfoutput\relax \else \ifcase\pdfoutput \else \pdftrue \fi \fi \fi % PDF uses PostScript string constants for the names of xref targets, % for display in the outlines, and in other places. Thus, we have to % double any backslashes. Otherwise, a name like "\node" will be % interpreted as a newline (\n), followed by o, d, e. Not good. % http://www.ntg.nl/pipermail/ntg-pdftex/2004-July/000654.html % (and related messages, the final outcome is that it is up to the TeX % user to double the backslashes and otherwise make the string valid, so % that's what we do). % double active backslashes. % {\catcode`\@=0 \catcode`\\=\active @gdef@activebackslashdouble{% @catcode`@\=@active @let\=@doublebackslash} } % To handle parens, we must adopt a different approach, since parens are % not active characters. hyperref.dtx (which has the same problem as % us) handles it with this amazing macro to replace tokens, with minor % changes for Texinfo. It is included here under the GPL by permission % from the author, Heiko Oberdiek. % % #1 is the tokens to replace. % #2 is the replacement. % #3 is the control sequence with the string. % \def\HyPsdSubst#1#2#3{% \def\HyPsdReplace##1#1##2\END{% ##1% \ifx\\##2\\% \else #2% \HyReturnAfterFi{% \HyPsdReplace##2\END }% \fi }% \xdef#3{\expandafter\HyPsdReplace#3#1\END}% } \long\def\HyReturnAfterFi#1\fi{\fi#1} % #1 is a control sequence in which to do the replacements. \def\backslashparens#1{% \xdef#1{#1}% redefine it as its expansion; the definition is simply % \lastnode when called from \setref -> \pdfmkdest. \HyPsdSubst{(}{\realbackslash(}{#1}% \HyPsdSubst{)}{\realbackslash)}{#1}% } \newhelp\nopdfimagehelp{Texinfo supports .png, .jpg, .jpeg, and .pdf images with PDF output, and none of those formats could be found. (.eps cannot be supported due to the design of the PDF format; use regular TeX (DVI output) for that.)} \ifpdf % % Color manipulation macros based on pdfcolor.tex, % except using rgb instead of cmyk; the latter is said to render as a % very dark gray on-screen and a very dark halftone in print, instead % of actual black. \def\rgbDarkRed{0.50 0.09 0.12} \def\rgbBlack{0 0 0} % % k sets the color for filling (usual text, etc.); % K sets the color for stroking (thin rules, e.g., normal _'s). \def\pdfsetcolor#1{\pdfliteral{#1 rg #1 RG}} % % Set color, and create a mark which defines \thiscolor accordingly, % so that \makeheadline knows which color to restore. \def\setcolor#1{% \xdef\lastcolordefs{\gdef\noexpand\thiscolor{#1}}% \domark \pdfsetcolor{#1}% } % \def\maincolor{\rgbBlack} \pdfsetcolor{\maincolor} \edef\thiscolor{\maincolor} \def\lastcolordefs{} % \def\makefootline{% \baselineskip24pt \line{\pdfsetcolor{\maincolor}\the\footline}% } % \def\makeheadline{% \vbox to 0pt{% \vskip-22.5pt \line{% \vbox to8.5pt{}% % Extract \thiscolor definition from the marks. \getcolormarks % Typeset the headline with \maincolor, then restore the color. \pdfsetcolor{\maincolor}\the\headline\pdfsetcolor{\thiscolor}% }% \vss }% \nointerlineskip } % % \pdfcatalog{/PageMode /UseOutlines} % % #1 is image name, #2 width (might be empty/whitespace), #3 height (ditto). \def\dopdfimage#1#2#3{% \def\imagewidth{#2}\setbox0 = \hbox{\ignorespaces #2}% \def\imageheight{#3}\setbox2 = \hbox{\ignorespaces #3}% % % pdftex (and the PDF format) support .png, .jpg, .pdf (among % others). Let's try in that order. \let\pdfimgext=\empty \begingroup \openin 1 #1.png \ifeof 1 \openin 1 #1.jpg \ifeof 1 \openin 1 #1.jpeg \ifeof 1 \openin 1 #1.JPG \ifeof 1 \openin 1 #1.pdf \ifeof 1 \openin 1 #1.PDF \ifeof 1 \errhelp = \nopdfimagehelp \errmessage{Could not find image file #1 for pdf}% \else \gdef\pdfimgext{PDF}% \fi \else \gdef\pdfimgext{pdf}% \fi \else \gdef\pdfimgext{JPG}% \fi \else \gdef\pdfimgext{jpeg}% \fi \else \gdef\pdfimgext{jpg}% \fi \else \gdef\pdfimgext{png}% \fi \closein 1 \endgroup % % without \immediate, ancient pdftex seg faults when the same image is % included twice. (Version 3.14159-pre-1.0-unofficial-20010704.) \ifnum\pdftexversion < 14 \immediate\pdfimage \else \immediate\pdfximage \fi \ifdim \wd0 >0pt width \imagewidth \fi \ifdim \wd2 >0pt height \imageheight \fi \ifnum\pdftexversion<13 #1.\pdfimgext \else {#1.\pdfimgext}% \fi \ifnum\pdftexversion < 14 \else \pdfrefximage \pdflastximage \fi} % \def\pdfmkdest#1{{% % We have to set dummies so commands such as @code, and characters % such as \, aren't expanded when present in a section title. \indexnofonts \turnoffactive \activebackslashdouble \makevalueexpandable \def\pdfdestname{#1}% \backslashparens\pdfdestname \safewhatsit{\pdfdest name{\pdfdestname} xyz}% }} % % used to mark target names; must be expandable. \def\pdfmkpgn#1{#1} % % by default, use a color that is dark enough to print on paper as % nearly black, but still distinguishable for online viewing. \def\urlcolor{\rgbDarkRed} \def\linkcolor{\rgbDarkRed} \def\endlink{\setcolor{\maincolor}\pdfendlink} % % Adding outlines to PDF; macros for calculating structure of outlines % come from Petr Olsak \def\expnumber#1{\expandafter\ifx\csname#1\endcsname\relax 0% \else \csname#1\endcsname \fi} \def\advancenumber#1{\tempnum=\expnumber{#1}\relax \advance\tempnum by 1 \expandafter\xdef\csname#1\endcsname{\the\tempnum}} % % #1 is the section text, which is what will be displayed in the % outline by the pdf viewer. #2 is the pdf expression for the number % of subentries (or empty, for subsubsections). #3 is the node text, % which might be empty if this toc entry had no corresponding node. % #4 is the page number % \def\dopdfoutline#1#2#3#4{% % Generate a link to the node text if that exists; else, use the % page number. We could generate a destination for the section % text in the case where a section has no node, but it doesn't % seem worth the trouble, since most documents are normally structured. \def\pdfoutlinedest{#3}% \ifx\pdfoutlinedest\empty \def\pdfoutlinedest{#4}% \else % Doubled backslashes in the name. {\activebackslashdouble \xdef\pdfoutlinedest{#3}% \backslashparens\pdfoutlinedest}% \fi % % Also double the backslashes in the display string. {\activebackslashdouble \xdef\pdfoutlinetext{#1}% \backslashparens\pdfoutlinetext}% % \pdfoutline goto name{\pdfmkpgn{\pdfoutlinedest}}#2{\pdfoutlinetext}% } % \def\pdfmakeoutlines{% \begingroup % Thanh's hack / proper braces in bookmarks \edef\mylbrace{\iftrue \string{\else}\fi}\let\{=\mylbrace \edef\myrbrace{\iffalse{\else\string}\fi}\let\}=\myrbrace % % Read toc silently, to get counts of subentries for \pdfoutline. \def\numchapentry##1##2##3##4{% \def\thischapnum{##2}% \def\thissecnum{0}% \def\thissubsecnum{0}% }% \def\numsecentry##1##2##3##4{% \advancenumber{chap\thischapnum}% \def\thissecnum{##2}% \def\thissubsecnum{0}% }% \def\numsubsecentry##1##2##3##4{% \advancenumber{sec\thissecnum}% \def\thissubsecnum{##2}% }% \def\numsubsubsecentry##1##2##3##4{% \advancenumber{subsec\thissubsecnum}% }% \def\thischapnum{0}% \def\thissecnum{0}% \def\thissubsecnum{0}% % % use \def rather than \let here because we redefine \chapentry et % al. a second time, below. \def\appentry{\numchapentry}% \def\appsecentry{\numsecentry}% \def\appsubsecentry{\numsubsecentry}% \def\appsubsubsecentry{\numsubsubsecentry}% \def\unnchapentry{\numchapentry}% \def\unnsecentry{\numsecentry}% \def\unnsubsecentry{\numsubsecentry}% \def\unnsubsubsecentry{\numsubsubsecentry}% \readdatafile{toc}% % % Read toc second time, this time actually producing the outlines. % The `-' means take the \expnumber as the absolute number of % subentries, which we calculated on our first read of the .toc above. % % We use the node names as the destinations. \def\numchapentry##1##2##3##4{% \dopdfoutline{##1}{count-\expnumber{chap##2}}{##3}{##4}}% \def\numsecentry##1##2##3##4{% \dopdfoutline{##1}{count-\expnumber{sec##2}}{##3}{##4}}% \def\numsubsecentry##1##2##3##4{% \dopdfoutline{##1}{count-\expnumber{subsec##2}}{##3}{##4}}% \def\numsubsubsecentry##1##2##3##4{% count is always zero \dopdfoutline{##1}{}{##3}{##4}}% % % PDF outlines are displayed using system fonts, instead of % document fonts. Therefore we cannot use special characters, % since the encoding is unknown. For example, the eogonek from % Latin 2 (0xea) gets translated to a | character. Info from % Staszek Wawrykiewicz, 19 Jan 2004 04:09:24 +0100. % % xx to do this right, we have to translate 8-bit characters to % their "best" equivalent, based on the @documentencoding. Right % now, I guess we'll just let the pdf reader have its way. \indexnofonts \setupdatafile \catcode`\\=\active \otherbackslash \input \tocreadfilename \endgroup } % \def\skipspaces#1{\def\PP{#1}\def\D{|}% \ifx\PP\D\let\nextsp\relax \else\let\nextsp\skipspaces \ifx\p\space\else\addtokens{\filename}{\PP}% \advance\filenamelength by 1 \fi \fi \nextsp} \def\getfilename#1{\filenamelength=0\expandafter\skipspaces#1|\relax} \ifnum\pdftexversion < 14 \let \startlink \pdfannotlink \else \let \startlink \pdfstartlink \fi % make a live url in pdf output. \def\pdfurl#1{% \begingroup % it seems we really need yet another set of dummies; have not % tried to figure out what each command should do in the context % of @url. for now, just make @/ a no-op, that's the only one % people have actually reported a problem with. % \normalturnoffactive \def\@{@}% \let\/=\empty \makevalueexpandable % do we want to go so far as to use \indexnofonts instead of just % special-casing \var here? \def\var##1{##1}% % \leavevmode\setcolor{\urlcolor}% \startlink attr{/Border [0 0 0]}% user{/Subtype /Link /A << /S /URI /URI (#1) >>}% \endgroup} \def\pdfgettoks#1.{\setbox\boxA=\hbox{\toksA={#1.}\toksB={}\maketoks}} \def\addtokens#1#2{\edef\addtoks{\noexpand#1={\the#1#2}}\addtoks} \def\adn#1{\addtokens{\toksC}{#1}\global\countA=1\let\next=\maketoks} \def\poptoks#1#2|ENDTOKS|{\let\first=#1\toksD={#1}\toksA={#2}} \def\maketoks{% \expandafter\poptoks\the\toksA|ENDTOKS|\relax \ifx\first0\adn0 \else\ifx\first1\adn1 \else\ifx\first2\adn2 \else\ifx\first3\adn3 \else\ifx\first4\adn4 \else\ifx\first5\adn5 \else\ifx\first6\adn6 \else\ifx\first7\adn7 \else\ifx\first8\adn8 \else\ifx\first9\adn9 \else \ifnum0=\countA\else\makelink\fi \ifx\first.\let\next=\done\else \let\next=\maketoks \addtokens{\toksB}{\the\toksD} \ifx\first,\addtokens{\toksB}{\space}\fi \fi \fi\fi\fi\fi\fi\fi\fi\fi\fi\fi \next} \def\makelink{\addtokens{\toksB}% {\noexpand\pdflink{\the\toksC}}\toksC={}\global\countA=0} \def\pdflink#1{% \startlink attr{/Border [0 0 0]} goto name{\pdfmkpgn{#1}} \setcolor{\linkcolor}#1\endlink} \def\done{\edef\st{\global\noexpand\toksA={\the\toksB}}\st} \else % non-pdf mode \let\pdfmkdest = \gobble \let\pdfurl = \gobble \let\endlink = \relax \let\setcolor = \gobble \let\pdfsetcolor = \gobble \let\pdfmakeoutlines = \relax \fi % \ifx\pdfoutput \message{fonts,} % Change the current font style to #1, remembering it in \curfontstyle. % For now, we do not accumulate font styles: @b{@i{foo}} prints foo in % italics, not bold italics. % \def\setfontstyle#1{% \def\curfontstyle{#1}% not as a control sequence, because we are \edef'd. \csname ten#1\endcsname % change the current font } % Select #1 fonts with the current style. % \def\selectfonts#1{\csname #1fonts\endcsname \csname\curfontstyle\endcsname} \def\rm{\fam=0 \setfontstyle{rm}} \def\it{\fam=\itfam \setfontstyle{it}} \def\sl{\fam=\slfam \setfontstyle{sl}} \def\bf{\fam=\bffam \setfontstyle{bf}}\def\bfstylename{bf} \def\tt{\fam=\ttfam \setfontstyle{tt}} % Unfortunately, we have to override this for titles and the like, since % in those cases "rm" is bold. Sigh. \def\rmisbold{\rm\def\curfontstyle{bf}} % Texinfo sort of supports the sans serif font style, which plain TeX does not. % So we set up a \sf. \newfam\sffam \def\sf{\fam=\sffam \setfontstyle{sf}} \let\li = \sf % Sometimes we call it \li, not \sf. % We don't need math for this font style. \def\ttsl{\setfontstyle{ttsl}} % Default leading. \newdimen\textleading \textleading = 13.2pt % Set the baselineskip to #1, and the lineskip and strut size % correspondingly. There is no deep meaning behind these magic numbers % used as factors; they just match (closely enough) what Knuth defined. % \def\lineskipfactor{.08333} \def\strutheightpercent{.70833} \def\strutdepthpercent {.29167} % % can get a sort of poor man's double spacing by redefining this. \def\baselinefactor{1} % \def\setleading#1{% \dimen0 = #1\relax \normalbaselineskip = \baselinefactor\dimen0 \normallineskip = \lineskipfactor\normalbaselineskip \normalbaselines \setbox\strutbox =\hbox{% \vrule width0pt height\strutheightpercent\baselineskip depth \strutdepthpercent \baselineskip }% } % PDF CMaps. See also LaTeX's t1.cmap. % % do nothing with this by default. \expandafter\let\csname cmapOT1\endcsname\gobble \expandafter\let\csname cmapOT1IT\endcsname\gobble \expandafter\let\csname cmapOT1TT\endcsname\gobble % if we are producing pdf, and we have \pdffontattr, then define cmaps. % (\pdffontattr was introduced many years ago, but people still run % older pdftex's; it's easy to conditionalize, so we do.) \ifpdf \ifx\pdffontattr\undefined \else \begingroup \catcode`\^^M=\active \def^^M{^^J}% Output line endings as the ^^J char. \catcode`\%=12 \immediate\pdfobj stream {%!PS-Adobe-3.0 Resource-CMap %%DocumentNeededResources: ProcSet (CIDInit) %%IncludeResource: ProcSet (CIDInit) %%BeginResource: CMap (TeX-OT1-0) %%Title: (TeX-OT1-0 TeX OT1 0) %%Version: 1.000 %%EndComments /CIDInit /ProcSet findresource begin 12 dict begin begincmap /CIDSystemInfo << /Registry (TeX) /Ordering (OT1) /Supplement 0 >> def /CMapName /TeX-OT1-0 def /CMapType 2 def 1 begincodespacerange <00> <7F> endcodespacerange 8 beginbfrange <00> <01> <0393> <09> <0A> <03A8> <23> <26> <0023> <28> <3B> <0028> <3F> <5B> <003F> <5D> <5E> <005D> <61> <7A> <0061> <7B> <7C> <2013> endbfrange 40 beginbfchar <02> <0398> <03> <039B> <04> <039E> <05> <03A0> <06> <03A3> <07> <03D2> <08> <03A6> <0B> <00660066> <0C> <00660069> <0D> <0066006C> <0E> <006600660069> <0F> <00660066006C> <10> <0131> <11> <0237> <12> <0060> <13> <00B4> <14> <02C7> <15> <02D8> <16> <00AF> <17> <02DA> <18> <00B8> <19> <00DF> <1A> <00E6> <1B> <0153> <1C> <00F8> <1D> <00C6> <1E> <0152> <1F> <00D8> <21> <0021> <22> <201D> <27> <2019> <3C> <00A1> <3D> <003D> <3E> <00BF> <5C> <201C> <5F> <02D9> <60> <2018> <7D> <02DD> <7E> <007E> <7F> <00A8> endbfchar endcmap CMapName currentdict /CMap defineresource pop end end %%EndResource %%EOF }\endgroup \expandafter\edef\csname cmapOT1\endcsname#1{% \pdffontattr#1{/ToUnicode \the\pdflastobj\space 0 R}% }% % % \cmapOT1IT \begingroup \catcode`\^^M=\active \def^^M{^^J}% Output line endings as the ^^J char. \catcode`\%=12 \immediate\pdfobj stream {%!PS-Adobe-3.0 Resource-CMap %%DocumentNeededResources: ProcSet (CIDInit) %%IncludeResource: ProcSet (CIDInit) %%BeginResource: CMap (TeX-OT1IT-0) %%Title: (TeX-OT1IT-0 TeX OT1IT 0) %%Version: 1.000 %%EndComments /CIDInit /ProcSet findresource begin 12 dict begin begincmap /CIDSystemInfo << /Registry (TeX) /Ordering (OT1IT) /Supplement 0 >> def /CMapName /TeX-OT1IT-0 def /CMapType 2 def 1 begincodespacerange <00> <7F> endcodespacerange 8 beginbfrange <00> <01> <0393> <09> <0A> <03A8> <25> <26> <0025> <28> <3B> <0028> <3F> <5B> <003F> <5D> <5E> <005D> <61> <7A> <0061> <7B> <7C> <2013> endbfrange 42 beginbfchar <02> <0398> <03> <039B> <04> <039E> <05> <03A0> <06> <03A3> <07> <03D2> <08> <03A6> <0B> <00660066> <0C> <00660069> <0D> <0066006C> <0E> <006600660069> <0F> <00660066006C> <10> <0131> <11> <0237> <12> <0060> <13> <00B4> <14> <02C7> <15> <02D8> <16> <00AF> <17> <02DA> <18> <00B8> <19> <00DF> <1A> <00E6> <1B> <0153> <1C> <00F8> <1D> <00C6> <1E> <0152> <1F> <00D8> <21> <0021> <22> <201D> <23> <0023> <24> <00A3> <27> <2019> <3C> <00A1> <3D> <003D> <3E> <00BF> <5C> <201C> <5F> <02D9> <60> <2018> <7D> <02DD> <7E> <007E> <7F> <00A8> endbfchar endcmap CMapName currentdict /CMap defineresource pop end end %%EndResource %%EOF }\endgroup \expandafter\edef\csname cmapOT1IT\endcsname#1{% \pdffontattr#1{/ToUnicode \the\pdflastobj\space 0 R}% }% % % \cmapOT1TT \begingroup \catcode`\^^M=\active \def^^M{^^J}% Output line endings as the ^^J char. \catcode`\%=12 \immediate\pdfobj stream {%!PS-Adobe-3.0 Resource-CMap %%DocumentNeededResources: ProcSet (CIDInit) %%IncludeResource: ProcSet (CIDInit) %%BeginResource: CMap (TeX-OT1TT-0) %%Title: (TeX-OT1TT-0 TeX OT1TT 0) %%Version: 1.000 %%EndComments /CIDInit /ProcSet findresource begin 12 dict begin begincmap /CIDSystemInfo << /Registry (TeX) /Ordering (OT1TT) /Supplement 0 >> def /CMapName /TeX-OT1TT-0 def /CMapType 2 def 1 begincodespacerange <00> <7F> endcodespacerange 5 beginbfrange <00> <01> <0393> <09> <0A> <03A8> <21> <26> <0021> <28> <5F> <0028> <61> <7E> <0061> endbfrange 32 beginbfchar <02> <0398> <03> <039B> <04> <039E> <05> <03A0> <06> <03A3> <07> <03D2> <08> <03A6> <0B> <2191> <0C> <2193> <0D> <0027> <0E> <00A1> <0F> <00BF> <10> <0131> <11> <0237> <12> <0060> <13> <00B4> <14> <02C7> <15> <02D8> <16> <00AF> <17> <02DA> <18> <00B8> <19> <00DF> <1A> <00E6> <1B> <0153> <1C> <00F8> <1D> <00C6> <1E> <0152> <1F> <00D8> <20> <2423> <27> <2019> <60> <2018> <7F> <00A8> endbfchar endcmap CMapName currentdict /CMap defineresource pop end end %%EndResource %%EOF }\endgroup \expandafter\edef\csname cmapOT1TT\endcsname#1{% \pdffontattr#1{/ToUnicode \the\pdflastobj\space 0 R}% }% \fi\fi % Set the font macro #1 to the font named #2, adding on the % specified font prefix (normally `cm'). % #3 is the font's design size, #4 is a scale factor, #5 is the CMap % encoding (currently only OT1, OT1IT and OT1TT are allowed, pass % empty to omit). \def\setfont#1#2#3#4#5{% \font#1=\fontprefix#2#3 scaled #4 \csname cmap#5\endcsname#1% } % This is what gets called when #5 of \setfont is empty. \let\cmap\gobble % emacs-page end of cmaps % Use cm as the default font prefix. % To specify the font prefix, you must define \fontprefix % before you read in texinfo.tex. \ifx\fontprefix\undefined \def\fontprefix{cm} \fi % Support font families that don't use the same naming scheme as CM. \def\rmshape{r} \def\rmbshape{bx} %where the normal face is bold \def\bfshape{b} \def\bxshape{bx} \def\ttshape{tt} \def\ttbshape{tt} \def\ttslshape{sltt} \def\itshape{ti} \def\itbshape{bxti} \def\slshape{sl} \def\slbshape{bxsl} \def\sfshape{ss} \def\sfbshape{ss} \def\scshape{csc} \def\scbshape{csc} % Definitions for a main text size of 11pt. This is the default in % Texinfo. % \def\definetextfontsizexi{% % Text fonts (11.2pt, magstep1). \def\textnominalsize{11pt} \edef\mainmagstep{\magstephalf} \setfont\textrm\rmshape{10}{\mainmagstep}{OT1} \setfont\texttt\ttshape{10}{\mainmagstep}{OT1TT} \setfont\textbf\bfshape{10}{\mainmagstep}{OT1} \setfont\textit\itshape{10}{\mainmagstep}{OT1IT} \setfont\textsl\slshape{10}{\mainmagstep}{OT1} \setfont\textsf\sfshape{10}{\mainmagstep}{OT1} \setfont\textsc\scshape{10}{\mainmagstep}{OT1} \setfont\textttsl\ttslshape{10}{\mainmagstep}{OT1TT} \font\texti=cmmi10 scaled \mainmagstep \font\textsy=cmsy10 scaled \mainmagstep \def\textecsize{1095} % A few fonts for @defun names and args. \setfont\defbf\bfshape{10}{\magstep1}{OT1} \setfont\deftt\ttshape{10}{\magstep1}{OT1TT} \setfont\defttsl\ttslshape{10}{\magstep1}{OT1TT} \def\df{\let\tentt=\deftt \let\tenbf = \defbf \let\tenttsl=\defttsl \bf} % Fonts for indices, footnotes, small examples (9pt). \def\smallnominalsize{9pt} \setfont\smallrm\rmshape{9}{1000}{OT1} \setfont\smalltt\ttshape{9}{1000}{OT1TT} \setfont\smallbf\bfshape{10}{900}{OT1} \setfont\smallit\itshape{9}{1000}{OT1IT} \setfont\smallsl\slshape{9}{1000}{OT1} \setfont\smallsf\sfshape{9}{1000}{OT1} \setfont\smallsc\scshape{10}{900}{OT1} \setfont\smallttsl\ttslshape{10}{900}{OT1TT} \font\smalli=cmmi9 \font\smallsy=cmsy9 \def\smallecsize{0900} % Fonts for small examples (8pt). \def\smallernominalsize{8pt} \setfont\smallerrm\rmshape{8}{1000}{OT1} \setfont\smallertt\ttshape{8}{1000}{OT1TT} \setfont\smallerbf\bfshape{10}{800}{OT1} \setfont\smallerit\itshape{8}{1000}{OT1IT} \setfont\smallersl\slshape{8}{1000}{OT1} \setfont\smallersf\sfshape{8}{1000}{OT1} \setfont\smallersc\scshape{10}{800}{OT1} \setfont\smallerttsl\ttslshape{10}{800}{OT1TT} \font\smalleri=cmmi8 \font\smallersy=cmsy8 \def\smallerecsize{0800} % Fonts for title page (20.4pt): \def\titlenominalsize{20pt} \setfont\titlerm\rmbshape{12}{\magstep3}{OT1} \setfont\titleit\itbshape{10}{\magstep4}{OT1IT} \setfont\titlesl\slbshape{10}{\magstep4}{OT1} \setfont\titlett\ttbshape{12}{\magstep3}{OT1TT} \setfont\titlettsl\ttslshape{10}{\magstep4}{OT1TT} \setfont\titlesf\sfbshape{17}{\magstep1}{OT1} \let\titlebf=\titlerm \setfont\titlesc\scbshape{10}{\magstep4}{OT1} \font\titlei=cmmi12 scaled \magstep3 \font\titlesy=cmsy10 scaled \magstep4 \def\titleecsize{2074} % Chapter (and unnumbered) fonts (17.28pt). \def\chapnominalsize{17pt} \setfont\chaprm\rmbshape{12}{\magstep2}{OT1} \setfont\chapit\itbshape{10}{\magstep3}{OT1IT} \setfont\chapsl\slbshape{10}{\magstep3}{OT1} \setfont\chaptt\ttbshape{12}{\magstep2}{OT1TT} \setfont\chapttsl\ttslshape{10}{\magstep3}{OT1TT} \setfont\chapsf\sfbshape{17}{1000}{OT1} \let\chapbf=\chaprm \setfont\chapsc\scbshape{10}{\magstep3}{OT1} \font\chapi=cmmi12 scaled \magstep2 \font\chapsy=cmsy10 scaled \magstep3 \def\chapecsize{1728} % Section fonts (14.4pt). \def\secnominalsize{14pt} \setfont\secrm\rmbshape{12}{\magstep1}{OT1} \setfont\secit\itbshape{10}{\magstep2}{OT1IT} \setfont\secsl\slbshape{10}{\magstep2}{OT1} \setfont\sectt\ttbshape{12}{\magstep1}{OT1TT} \setfont\secttsl\ttslshape{10}{\magstep2}{OT1TT} \setfont\secsf\sfbshape{12}{\magstep1}{OT1} \let\secbf\secrm \setfont\secsc\scbshape{10}{\magstep2}{OT1} \font\seci=cmmi12 scaled \magstep1 \font\secsy=cmsy10 scaled \magstep2 \def\sececsize{1440} % Subsection fonts (13.15pt). \def\ssecnominalsize{13pt} \setfont\ssecrm\rmbshape{12}{\magstephalf}{OT1} \setfont\ssecit\itbshape{10}{1315}{OT1IT} \setfont\ssecsl\slbshape{10}{1315}{OT1} \setfont\ssectt\ttbshape{12}{\magstephalf}{OT1TT} \setfont\ssecttsl\ttslshape{10}{1315}{OT1TT} \setfont\ssecsf\sfbshape{12}{\magstephalf}{OT1} \let\ssecbf\ssecrm \setfont\ssecsc\scbshape{10}{1315}{OT1} \font\sseci=cmmi12 scaled \magstephalf \font\ssecsy=cmsy10 scaled 1315 \def\ssececsize{1200} % Reduced fonts for @acro in text (10pt). \def\reducednominalsize{10pt} \setfont\reducedrm\rmshape{10}{1000}{OT1} \setfont\reducedtt\ttshape{10}{1000}{OT1TT} \setfont\reducedbf\bfshape{10}{1000}{OT1} \setfont\reducedit\itshape{10}{1000}{OT1IT} \setfont\reducedsl\slshape{10}{1000}{OT1} \setfont\reducedsf\sfshape{10}{1000}{OT1} \setfont\reducedsc\scshape{10}{1000}{OT1} \setfont\reducedttsl\ttslshape{10}{1000}{OT1TT} \font\reducedi=cmmi10 \font\reducedsy=cmsy10 \def\reducedecsize{1000} % reset the current fonts \textfonts \rm } % end of 11pt text font size definitions % Definitions to make the main text be 10pt Computer Modern, with % section, chapter, etc., sizes following suit. This is for the GNU % Press printing of the Emacs 22 manual. Maybe other manuals in the % future. Used with @smallbook, which sets the leading to 12pt. % \def\definetextfontsizex{% % Text fonts (10pt). \def\textnominalsize{10pt} \edef\mainmagstep{1000} \setfont\textrm\rmshape{10}{\mainmagstep}{OT1} \setfont\texttt\ttshape{10}{\mainmagstep}{OT1TT} \setfont\textbf\bfshape{10}{\mainmagstep}{OT1} \setfont\textit\itshape{10}{\mainmagstep}{OT1IT} \setfont\textsl\slshape{10}{\mainmagstep}{OT1} \setfont\textsf\sfshape{10}{\mainmagstep}{OT1} \setfont\textsc\scshape{10}{\mainmagstep}{OT1} \setfont\textttsl\ttslshape{10}{\mainmagstep}{OT1TT} \font\texti=cmmi10 scaled \mainmagstep \font\textsy=cmsy10 scaled \mainmagstep \def\textecsize{1000} % A few fonts for @defun names and args. \setfont\defbf\bfshape{10}{\magstephalf}{OT1} \setfont\deftt\ttshape{10}{\magstephalf}{OT1TT} \setfont\defttsl\ttslshape{10}{\magstephalf}{OT1TT} \def\df{\let\tentt=\deftt \let\tenbf = \defbf \let\tenttsl=\defttsl \bf} % Fonts for indices, footnotes, small examples (9pt). \def\smallnominalsize{9pt} \setfont\smallrm\rmshape{9}{1000}{OT1} \setfont\smalltt\ttshape{9}{1000}{OT1TT} \setfont\smallbf\bfshape{10}{900}{OT1} \setfont\smallit\itshape{9}{1000}{OT1IT} \setfont\smallsl\slshape{9}{1000}{OT1} \setfont\smallsf\sfshape{9}{1000}{OT1} \setfont\smallsc\scshape{10}{900}{OT1} \setfont\smallttsl\ttslshape{10}{900}{OT1TT} \font\smalli=cmmi9 \font\smallsy=cmsy9 \def\smallecsize{0900} % Fonts for small examples (8pt). \def\smallernominalsize{8pt} \setfont\smallerrm\rmshape{8}{1000}{OT1} \setfont\smallertt\ttshape{8}{1000}{OT1TT} \setfont\smallerbf\bfshape{10}{800}{OT1} \setfont\smallerit\itshape{8}{1000}{OT1IT} \setfont\smallersl\slshape{8}{1000}{OT1} \setfont\smallersf\sfshape{8}{1000}{OT1} \setfont\smallersc\scshape{10}{800}{OT1} \setfont\smallerttsl\ttslshape{10}{800}{OT1TT} \font\smalleri=cmmi8 \font\smallersy=cmsy8 \def\smallerecsize{0800} % Fonts for title page (20.4pt): \def\titlenominalsize{20pt} \setfont\titlerm\rmbshape{12}{\magstep3}{OT1} \setfont\titleit\itbshape{10}{\magstep4}{OT1IT} \setfont\titlesl\slbshape{10}{\magstep4}{OT1} \setfont\titlett\ttbshape{12}{\magstep3}{OT1TT} \setfont\titlettsl\ttslshape{10}{\magstep4}{OT1TT} \setfont\titlesf\sfbshape{17}{\magstep1}{OT1} \let\titlebf=\titlerm \setfont\titlesc\scbshape{10}{\magstep4}{OT1} \font\titlei=cmmi12 scaled \magstep3 \font\titlesy=cmsy10 scaled \magstep4 \def\titleecsize{2074} % Chapter fonts (14.4pt). \def\chapnominalsize{14pt} \setfont\chaprm\rmbshape{12}{\magstep1}{OT1} \setfont\chapit\itbshape{10}{\magstep2}{OT1IT} \setfont\chapsl\slbshape{10}{\magstep2}{OT1} \setfont\chaptt\ttbshape{12}{\magstep1}{OT1TT} \setfont\chapttsl\ttslshape{10}{\magstep2}{OT1TT} \setfont\chapsf\sfbshape{12}{\magstep1}{OT1} \let\chapbf\chaprm \setfont\chapsc\scbshape{10}{\magstep2}{OT1} \font\chapi=cmmi12 scaled \magstep1 \font\chapsy=cmsy10 scaled \magstep2 \def\chapecsize{1440} % Section fonts (12pt). \def\secnominalsize{12pt} \setfont\secrm\rmbshape{12}{1000}{OT1} \setfont\secit\itbshape{10}{\magstep1}{OT1IT} \setfont\secsl\slbshape{10}{\magstep1}{OT1} \setfont\sectt\ttbshape{12}{1000}{OT1TT} \setfont\secttsl\ttslshape{10}{\magstep1}{OT1TT} \setfont\secsf\sfbshape{12}{1000}{OT1} \let\secbf\secrm \setfont\secsc\scbshape{10}{\magstep1}{OT1} \font\seci=cmmi12 \font\secsy=cmsy10 scaled \magstep1 \def\sececsize{1200} % Subsection fonts (10pt). \def\ssecnominalsize{10pt} \setfont\ssecrm\rmbshape{10}{1000}{OT1} \setfont\ssecit\itbshape{10}{1000}{OT1IT} \setfont\ssecsl\slbshape{10}{1000}{OT1} \setfont\ssectt\ttbshape{10}{1000}{OT1TT} \setfont\ssecttsl\ttslshape{10}{1000}{OT1TT} \setfont\ssecsf\sfbshape{10}{1000}{OT1} \let\ssecbf\ssecrm \setfont\ssecsc\scbshape{10}{1000}{OT1} \font\sseci=cmmi10 \font\ssecsy=cmsy10 \def\ssececsize{1000} % Reduced fonts for @acro in text (9pt). \def\reducednominalsize{9pt} \setfont\reducedrm\rmshape{9}{1000}{OT1} \setfont\reducedtt\ttshape{9}{1000}{OT1TT} \setfont\reducedbf\bfshape{10}{900}{OT1} \setfont\reducedit\itshape{9}{1000}{OT1IT} \setfont\reducedsl\slshape{9}{1000}{OT1} \setfont\reducedsf\sfshape{9}{1000}{OT1} \setfont\reducedsc\scshape{10}{900}{OT1} \setfont\reducedttsl\ttslshape{10}{900}{OT1TT} \font\reducedi=cmmi9 \font\reducedsy=cmsy9 \def\reducedecsize{0900} % reduce space between paragraphs \divide\parskip by 2 % reset the current fonts \textfonts \rm } % end of 10pt text font size definitions % We provide the user-level command % @fonttextsize 10 % (or 11) to redefine the text font size. pt is assumed. % \def\xword{10} \def\xiword{11} % \parseargdef\fonttextsize{% \def\textsizearg{#1}% \wlog{doing @fonttextsize \textsizearg}% % % Set \globaldefs so that documents can use this inside @tex, since % makeinfo 4.8 does not support it, but we need it nonetheless. % \begingroup \globaldefs=1 \ifx\textsizearg\xword \definetextfontsizex \else \ifx\textsizearg\xiword \definetextfontsizexi \else \errhelp=\EMsimple \errmessage{@fonttextsize only supports `10' or `11', not `\textsizearg'} \fi\fi \endgroup } % In order for the font changes to affect most math symbols and letters, % we have to define the \textfont of the standard families. Since % texinfo doesn't allow for producing subscripts and superscripts except % in the main text, we don't bother to reset \scriptfont and % \scriptscriptfont (which would also require loading a lot more fonts). % \def\resetmathfonts{% \textfont0=\tenrm \textfont1=\teni \textfont2=\tensy \textfont\itfam=\tenit \textfont\slfam=\tensl \textfont\bffam=\tenbf \textfont\ttfam=\tentt \textfont\sffam=\tensf } % The font-changing commands redefine the meanings of \tenSTYLE, instead % of just \STYLE. We do this because \STYLE needs to also set the % current \fam for math mode. Our \STYLE (e.g., \rm) commands hardwire % \tenSTYLE to set the current font. % % Each font-changing command also sets the names \lsize (one size lower) % and \lllsize (three sizes lower). These relative commands are used in % the LaTeX logo and acronyms. % % This all needs generalizing, badly. % \def\textfonts{% \let\tenrm=\textrm \let\tenit=\textit \let\tensl=\textsl \let\tenbf=\textbf \let\tentt=\texttt \let\smallcaps=\textsc \let\tensf=\textsf \let\teni=\texti \let\tensy=\textsy \let\tenttsl=\textttsl \def\curfontsize{text}% \def\lsize{reduced}\def\lllsize{smaller}% \resetmathfonts \setleading{\textleading}} \def\titlefonts{% \let\tenrm=\titlerm \let\tenit=\titleit \let\tensl=\titlesl \let\tenbf=\titlebf \let\tentt=\titlett \let\smallcaps=\titlesc \let\tensf=\titlesf \let\teni=\titlei \let\tensy=\titlesy \let\tenttsl=\titlettsl \def\curfontsize{title}% \def\lsize{chap}\def\lllsize{subsec}% \resetmathfonts \setleading{25pt}} \def\titlefont#1{{\titlefonts\rmisbold #1}} \def\chapfonts{% \let\tenrm=\chaprm \let\tenit=\chapit \let\tensl=\chapsl \let\tenbf=\chapbf \let\tentt=\chaptt \let\smallcaps=\chapsc \let\tensf=\chapsf \let\teni=\chapi \let\tensy=\chapsy \let\tenttsl=\chapttsl \def\curfontsize{chap}% \def\lsize{sec}\def\lllsize{text}% \resetmathfonts \setleading{19pt}} \def\secfonts{% \let\tenrm=\secrm \let\tenit=\secit \let\tensl=\secsl \let\tenbf=\secbf \let\tentt=\sectt \let\smallcaps=\secsc \let\tensf=\secsf \let\teni=\seci \let\tensy=\secsy \let\tenttsl=\secttsl \def\curfontsize{sec}% \def\lsize{subsec}\def\lllsize{reduced}% \resetmathfonts \setleading{16pt}} \def\subsecfonts{% \let\tenrm=\ssecrm \let\tenit=\ssecit \let\tensl=\ssecsl \let\tenbf=\ssecbf \let\tentt=\ssectt \let\smallcaps=\ssecsc \let\tensf=\ssecsf \let\teni=\sseci \let\tensy=\ssecsy \let\tenttsl=\ssecttsl \def\curfontsize{ssec}% \def\lsize{text}\def\lllsize{small}% \resetmathfonts \setleading{15pt}} \let\subsubsecfonts = \subsecfonts \def\reducedfonts{% \let\tenrm=\reducedrm \let\tenit=\reducedit \let\tensl=\reducedsl \let\tenbf=\reducedbf \let\tentt=\reducedtt \let\reducedcaps=\reducedsc \let\tensf=\reducedsf \let\teni=\reducedi \let\tensy=\reducedsy \let\tenttsl=\reducedttsl \def\curfontsize{reduced}% \def\lsize{small}\def\lllsize{smaller}% \resetmathfonts \setleading{10.5pt}} \def\smallfonts{% \let\tenrm=\smallrm \let\tenit=\smallit \let\tensl=\smallsl \let\tenbf=\smallbf \let\tentt=\smalltt \let\smallcaps=\smallsc \let\tensf=\smallsf \let\teni=\smalli \let\tensy=\smallsy \let\tenttsl=\smallttsl \def\curfontsize{small}% \def\lsize{smaller}\def\lllsize{smaller}% \resetmathfonts \setleading{10.5pt}} \def\smallerfonts{% \let\tenrm=\smallerrm \let\tenit=\smallerit \let\tensl=\smallersl \let\tenbf=\smallerbf \let\tentt=\smallertt \let\smallcaps=\smallersc \let\tensf=\smallersf \let\teni=\smalleri \let\tensy=\smallersy \let\tenttsl=\smallerttsl \def\curfontsize{smaller}% \def\lsize{smaller}\def\lllsize{smaller}% \resetmathfonts \setleading{9.5pt}} % Fonts for short table of contents. \setfont\shortcontrm\rmshape{12}{1000}{OT1} \setfont\shortcontbf\bfshape{10}{\magstep1}{OT1} % no cmb12 \setfont\shortcontsl\slshape{12}{1000}{OT1} \setfont\shortconttt\ttshape{12}{1000}{OT1TT} % Define these just so they can be easily changed for other fonts. \def\angleleft{$\langle$} \def\angleright{$\rangle$} % Set the fonts to use with the @small... environments. \let\smallexamplefonts = \smallfonts % About \smallexamplefonts. If we use \smallfonts (9pt), @smallexample % can fit this many characters: % 8.5x11=86 smallbook=72 a4=90 a5=69 % If we use \scriptfonts (8pt), then we can fit this many characters: % 8.5x11=90+ smallbook=80 a4=90+ a5=77 % For me, subjectively, the few extra characters that fit aren't worth % the additional smallness of 8pt. So I'm making the default 9pt. % % By the way, for comparison, here's what fits with @example (10pt): % 8.5x11=71 smallbook=60 a4=75 a5=58 % --karl, 24jan03. % Set up the default fonts, so we can use them for creating boxes. % \definetextfontsizexi \message{markup,} % Check if we are currently using a typewriter font. Since all the % Computer Modern typewriter fonts have zero interword stretch (and % shrink), and it is reasonable to expect all typewriter fonts to have % this property, we can check that font parameter. % \def\ifmonospace{\ifdim\fontdimen3\font=0pt } % Markup style infrastructure. \defmarkupstylesetup\INITMACRO will % define and register \INITMACRO to be called on markup style changes. % \INITMACRO can check \currentmarkupstyle for the innermost % style and the set of \ifmarkupSTYLE switches for all styles % currently in effect. \newif\ifmarkupvar \newif\ifmarkupsamp \newif\ifmarkupkey %\newif\ifmarkupfile % @file == @samp. %\newif\ifmarkupoption % @option == @samp. \newif\ifmarkupcode \newif\ifmarkupkbd %\newif\ifmarkupenv % @env == @code. %\newif\ifmarkupcommand % @command == @code. \newif\ifmarkuptex % @tex (and part of @math, for now). \newif\ifmarkupexample \newif\ifmarkupverb \newif\ifmarkupverbatim \let\currentmarkupstyle\empty \def\setupmarkupstyle#1{% \csname markup#1true\endcsname \def\currentmarkupstyle{#1}% \markupstylesetup } \let\markupstylesetup\empty \def\defmarkupstylesetup#1{% \expandafter\def\expandafter\markupstylesetup \expandafter{\markupstylesetup #1}% \def#1% } % Markup style setup for left and right quotes. \defmarkupstylesetup\markupsetuplq{% \expandafter\let\expandafter \temp \csname markupsetuplq\currentmarkupstyle\endcsname \ifx\temp\relax \markupsetuplqdefault \else \temp \fi } \defmarkupstylesetup\markupsetuprq{% \expandafter\let\expandafter \temp \csname markupsetuprq\currentmarkupstyle\endcsname \ifx\temp\relax \markupsetuprqdefault \else \temp \fi } { \catcode`\'=\active \catcode`\`=\active \gdef\markupsetuplqdefault{\let`\lq} \gdef\markupsetuprqdefault{\let'\rq} \gdef\markupsetcodequoteleft{\let`\codequoteleft} \gdef\markupsetcodequoteright{\let'\codequoteright} \gdef\markupsetnoligaturesquoteleft{\let`\noligaturesquoteleft} } \let\markupsetuplqcode \markupsetcodequoteleft \let\markupsetuprqcode \markupsetcodequoteright \let\markupsetuplqexample \markupsetcodequoteleft \let\markupsetuprqexample \markupsetcodequoteright \let\markupsetuplqverb \markupsetcodequoteleft \let\markupsetuprqverb \markupsetcodequoteright \let\markupsetuplqverbatim \markupsetcodequoteleft \let\markupsetuprqverbatim \markupsetcodequoteright \let\markupsetuplqsamp \markupsetnoligaturesquoteleft \let\markupsetuplqkbd \markupsetnoligaturesquoteleft % Allow an option to not replace quotes with a regular directed right % quote/apostrophe (char 0x27), but instead use the undirected quote % from cmtt (char 0x0d). The undirected quote is ugly, so don't make it % the default, but it works for pasting with more pdf viewers (at least % evince), the lilypond developers report. xpdf does work with the % regular 0x27. % \def\codequoteright{% \expandafter\ifx\csname SETtxicodequoteundirected\endcsname\relax \expandafter\ifx\csname SETcodequoteundirected\endcsname\relax '% \else \char'15 \fi \else \char'15 \fi } % % and a similar option for the left quote char vs. a grave accent. % Modern fonts display ASCII 0x60 as a grave accent, so some people like % the code environments to do likewise. % \def\codequoteleft{% \expandafter\ifx\csname SETtxicodequotebacktick\endcsname\relax \expandafter\ifx\csname SETcodequotebacktick\endcsname\relax % [Knuth] pp. 380,381,391 % \relax disables Spanish ligatures ?` and !` of \tt font. \relax`% \else \char'22 \fi \else \char'22 \fi } % [Knuth] pp. 380,381,391, disable Spanish ligatures ?` and !` of \tt font. \def\noligaturesquoteleft{\relax\lq} % Count depth in font-changes, for error checks \newcount\fontdepth \fontdepth=0 %% Add scribe-like font environments, plus @l for inline lisp (usually sans %% serif) and @ii for TeX italic % \smartitalic{ARG} outputs arg in italics, followed by an italic correction % unless the following character is such as not to need one. \def\smartitalicx{\ifx\next,\else\ifx\next-\else\ifx\next.\else \ptexslash\fi\fi\fi} \def\smartslanted#1{{\ifusingtt\ttsl\sl #1}\futurelet\next\smartitalicx} \def\smartitalic#1{{\ifusingtt\ttsl\it #1}\futurelet\next\smartitalicx} % like \smartslanted except unconditionally uses \ttsl. % @var is set to this for defun arguments. \def\ttslanted#1{{\ttsl #1}\futurelet\next\smartitalicx} % @cite is like \smartslanted except unconditionally use \sl. We never want % ttsl for book titles, do we? \def\cite#1{{\sl #1}\futurelet\next\smartitalicx} \let\i=\smartitalic \let\slanted=\smartslanted \def\var#1{{\setupmarkupstyle{var}\smartslanted{#1}}} \let\dfn=\smartslanted \let\emph=\smartitalic % Explicit font changes: @r, @sc, undocumented @ii. \def\r#1{{\rm #1}} % roman font \def\sc#1{{\smallcaps#1}} % smallcaps font \def\ii#1{{\it #1}} % italic font % @b, explicit bold. Also @strong. \def\b#1{{\bf #1}} \let\strong=\b % @sansserif, explicit sans. \def\sansserif#1{{\sf #1}} % We can't just use \exhyphenpenalty, because that only has effect at % the end of a paragraph. Restore normal hyphenation at the end of the % group within which \nohyphenation is presumably called. % \def\nohyphenation{\hyphenchar\font = -1 \aftergroup\restorehyphenation} \def\restorehyphenation{\hyphenchar\font = `- } % Set sfcode to normal for the chars that usually have another value. % Can't use plain's \frenchspacing because it uses the `\x notation, and % sometimes \x has an active definition that messes things up. % \catcode`@=11 \def\plainfrenchspacing{% \sfcode\dotChar =\@m \sfcode\questChar=\@m \sfcode\exclamChar=\@m \sfcode\colonChar=\@m \sfcode\semiChar =\@m \sfcode\commaChar =\@m \def\endofsentencespacefactor{1000}% for @. and friends } \def\plainnonfrenchspacing{% \sfcode`\.3000\sfcode`\?3000\sfcode`\!3000 \sfcode`\:2000\sfcode`\;1500\sfcode`\,1250 \def\endofsentencespacefactor{3000}% for @. and friends } \catcode`@=\other \def\endofsentencespacefactor{3000}% default % @t, explicit typewriter. \def\t#1{% {\tt \rawbackslash \plainfrenchspacing #1}% \null } % @samp. \def\samp#1{{\setupmarkupstyle{samp}\lq\tclose{#1}\rq\null}} % definition of @key that produces a lozenge. Doesn't adjust to text size. %\setfont\keyrm\rmshape{8}{1000}{OT1} %\font\keysy=cmsy9 %\def\key#1{{\keyrm\textfont2=\keysy \leavevmode\hbox{% % \raise0.4pt\hbox{\angleleft}\kern-.08em\vtop{% % \vbox{\hrule\kern-0.4pt % \hbox{\raise0.4pt\hbox{\vphantom{\angleleft}}#1}}% % \kern-0.4pt\hrule}% % \kern-.06em\raise0.4pt\hbox{\angleright}}}} % definition of @key with no lozenge. If the current font is already % monospace, don't change it; that way, we respect @kbdinputstyle. But % if it isn't monospace, then use \tt. % \def\key#1{{\setupmarkupstyle{key}% \nohyphenation \ifmonospace\else\tt\fi #1}\null} % ctrl is no longer a Texinfo command. \def\ctrl #1{{\tt \rawbackslash \hat}#1} % @file, @option are the same as @samp. \let\file=\samp \let\option=\samp % @code is a modification of @t, % which makes spaces the same size as normal in the surrounding text. \def\tclose#1{% {% % Change normal interword space to be same as for the current font. \spaceskip = \fontdimen2\font % % Switch to typewriter. \tt % % But `\ ' produces the large typewriter interword space. \def\ {{\spaceskip = 0pt{} }}% % % Turn off hyphenation. \nohyphenation % \rawbackslash \plainfrenchspacing #1% }% \null } % We *must* turn on hyphenation at `-' and `_' in @code. % Otherwise, it is too hard to avoid overfull hboxes % in the Emacs manual, the Library manual, etc. % Unfortunately, TeX uses one parameter (\hyphenchar) to control % both hyphenation at - and hyphenation within words. % We must therefore turn them both off (\tclose does that) % and arrange explicitly to hyphenate at a dash. % -- rms. { \catcode`\-=\active \catcode`\_=\active \catcode`\'=\active \catcode`\`=\active \global\let'=\rq \global\let`=\lq % default definitions % \global\def\code{\begingroup \setupmarkupstyle{code}% % The following should really be moved into \setupmarkupstyle handlers. \catcode\dashChar=\active \catcode\underChar=\active \ifallowcodebreaks \let-\codedash \let_\codeunder \else \let-\realdash \let_\realunder \fi \codex } } \def\realdash{-} \def\codedash{-\discretionary{}{}{}} \def\codeunder{% % this is all so @math{@code{var_name}+1} can work. In math mode, _ % is "active" (mathcode"8000) and \normalunderscore (or \char95, etc.) % will therefore expand the active definition of _, which is us % (inside @code that is), therefore an endless loop. \ifusingtt{\ifmmode \mathchar"075F % class 0=ordinary, family 7=ttfam, pos 0x5F=_. \else\normalunderscore \fi \discretionary{}{}{}}% {\_}% } \def\codex #1{\tclose{#1}\endgroup} % An additional complication: the above will allow breaks after, e.g., % each of the four underscores in __typeof__. This is undesirable in % some manuals, especially if they don't have long identifiers in % general. @allowcodebreaks provides a way to control this. % \newif\ifallowcodebreaks \allowcodebreakstrue \def\keywordtrue{true} \def\keywordfalse{false} \parseargdef\allowcodebreaks{% \def\txiarg{#1}% \ifx\txiarg\keywordtrue \allowcodebreakstrue \else\ifx\txiarg\keywordfalse \allowcodebreaksfalse \else \errhelp = \EMsimple \errmessage{Unknown @allowcodebreaks option `\txiarg'}% \fi\fi } % @kbd is like @code, except that if the argument is just one @key command, % then @kbd has no effect. \def\kbd#1{{\setupmarkupstyle{kbd}\def\look{#1}\expandafter\kbdfoo\look??\par}} % @kbdinputstyle -- arg is `distinct' (@kbd uses slanted tty font always), % `example' (@kbd uses ttsl only inside of @example and friends), % or `code' (@kbd uses normal tty font always). \parseargdef\kbdinputstyle{% \def\txiarg{#1}% \ifx\txiarg\worddistinct \gdef\kbdexamplefont{\ttsl}\gdef\kbdfont{\ttsl}% \else\ifx\txiarg\wordexample \gdef\kbdexamplefont{\ttsl}\gdef\kbdfont{\tt}% \else\ifx\txiarg\wordcode \gdef\kbdexamplefont{\tt}\gdef\kbdfont{\tt}% \else \errhelp = \EMsimple \errmessage{Unknown @kbdinputstyle option `\txiarg'}% \fi\fi\fi } \def\worddistinct{distinct} \def\wordexample{example} \def\wordcode{code} % Default is `distinct'. \kbdinputstyle distinct \def\xkey{\key} \def\kbdfoo#1#2#3\par{\def\one{#1}\def\three{#3}\def\threex{??}% \ifx\one\xkey\ifx\threex\three \key{#2}% \else{\tclose{\kbdfont\setupmarkupstyle{kbd}\look}}\fi \else{\tclose{\kbdfont\setupmarkupstyle{kbd}\look}}\fi} % For @indicateurl, @env, @command quotes seem unnecessary, so use \code. \let\indicateurl=\code \let\env=\code \let\command=\code % @clicksequence{File @click{} Open ...} \def\clicksequence#1{\begingroup #1\endgroup} % @clickstyle @arrow (by default) \parseargdef\clickstyle{\def\click{#1}} \def\click{\arrow} % @uref (abbreviation for `urlref') takes an optional (comma-separated) % second argument specifying the text to display and an optional third % arg as text to display instead of (rather than in addition to) the url % itself. First (mandatory) arg is the url. Perhaps eventually put in % a hypertex \special here. % \def\uref#1{\douref #1,,,\finish} \def\douref#1,#2,#3,#4\finish{\begingroup \unsepspaces \pdfurl{#1}% \setbox0 = \hbox{\ignorespaces #3}% \ifdim\wd0 > 0pt \unhbox0 % third arg given, show only that \else \setbox0 = \hbox{\ignorespaces #2}% \ifdim\wd0 > 0pt \ifpdf \unhbox0 % PDF: 2nd arg given, show only it \else \unhbox0\ (\code{#1})% DVI: 2nd arg given, show both it and url \fi \else \code{#1}% only url given, so show it \fi \fi \endlink \endgroup} % @url synonym for @uref, since that's how everyone uses it. % \let\url=\uref % rms does not like angle brackets --karl, 17may97. % So now @email is just like @uref, unless we are pdf. % %\def\email#1{\angleleft{\tt #1}\angleright} \ifpdf \def\email#1{\doemail#1,,\finish} \def\doemail#1,#2,#3\finish{\begingroup \unsepspaces \pdfurl{mailto:#1}% \setbox0 = \hbox{\ignorespaces #2}% \ifdim\wd0>0pt\unhbox0\else\code{#1}\fi \endlink \endgroup} \else \let\email=\uref \fi % Typeset a dimension, e.g., `in' or `pt'. The only reason for the % argument is to make the input look right: @dmn{pt} instead of @dmn{}pt. % \def\dmn#1{\thinspace #1} % @l was never documented to mean ``switch to the Lisp font'', % and it is not used as such in any manual I can find. We need it for % Polish suppressed-l. --karl, 22sep96. %\def\l#1{{\li #1}\null} % @acronym for "FBI", "NATO", and the like. % We print this one point size smaller, since it's intended for % all-uppercase. % \def\acronym#1{\doacronym #1,,\finish} \def\doacronym#1,#2,#3\finish{% {\selectfonts\lsize #1}% \def\temp{#2}% \ifx\temp\empty \else \space ({\unsepspaces \ignorespaces \temp \unskip})% \fi } % @abbr for "Comput. J." and the like. % No font change, but don't do end-of-sentence spacing. % \def\abbr#1{\doabbr #1,,\finish} \def\doabbr#1,#2,#3\finish{% {\plainfrenchspacing #1}% \def\temp{#2}% \ifx\temp\empty \else \space ({\unsepspaces \ignorespaces \temp \unskip})% \fi } \message{glyphs,} % @point{}, @result{}, @expansion{}, @print{}, @equiv{}. % % Since these characters are used in examples, they should be an even number of % \tt widths. Each \tt character is 1en, so two makes it 1em. % \def\point{$\star$} \def\arrow{\leavevmode\raise.05ex\hbox to 1em{\hfil$\rightarrow$\hfil}} \def\result{\leavevmode\raise.05ex\hbox to 1em{\hfil$\Rightarrow$\hfil}} \def\expansion{\leavevmode\hbox to 1em{\hfil$\mapsto$\hfil}} \def\print{\leavevmode\lower.1ex\hbox to 1em{\hfil$\dashv$\hfil}} \def\equiv{\leavevmode\hbox to 1em{\hfil$\ptexequiv$\hfil}} % The @error{} command. % Adapted from the TeXbook's \boxit. % \newbox\errorbox % {\tentt \global\dimen0 = 3em}% Width of the box. \dimen2 = .55pt % Thickness of rules % The text. (`r' is open on the right, `e' somewhat less so on the left.) \setbox0 = \hbox{\kern-.75pt \reducedsf error\kern-1.5pt} % \setbox\errorbox=\hbox to \dimen0{\hfil \hsize = \dimen0 \advance\hsize by -5.8pt % Space to left+right. \advance\hsize by -2\dimen2 % Rules. \vbox{% \hrule height\dimen2 \hbox{\vrule width\dimen2 \kern3pt % Space to left of text. \vtop{\kern2.4pt \box0 \kern2.4pt}% Space above/below. \kern3pt\vrule width\dimen2}% Space to right. \hrule height\dimen2} \hfil} % \def\error{\leavevmode\lower.7ex\copy\errorbox} % @pounds{} is a sterling sign, which Knuth put in the CM italic font. % \def\pounds{{\it\$}} % @euro{} comes from a separate font, depending on the current style. % We use the free feym* fonts from the eurosym package by Henrik % Theiling, which support regular, slanted, bold and bold slanted (and % "outlined" (blackboard board, sort of) versions, which we don't need). % It is available from http://www.ctan.org/tex-archive/fonts/eurosym. % % Although only regular is the truly official Euro symbol, we ignore % that. The Euro is designed to be slightly taller than the regular % font height. % % feymr - regular % feymo - slanted % feybr - bold % feybo - bold slanted % % There is no good (free) typewriter version, to my knowledge. % A feymr10 euro is ~7.3pt wide, while a normal cmtt10 char is ~5.25pt wide. % Hmm. % % Also doesn't work in math. Do we need to do math with euro symbols? % Hope not. % % \def\euro{{\eurofont e}} \def\eurofont{% % We set the font at each command, rather than predefining it in % \textfonts and the other font-switching commands, so that % installations which never need the symbol don't have to have the % font installed. % % There is only one designed size (nominal 10pt), so we always scale % that to the current nominal size. % % By the way, simply using "at 1em" works for cmr10 and the like, but % does not work for cmbx10 and other extended/shrunken fonts. % \def\eurosize{\csname\curfontsize nominalsize\endcsname}% % \ifx\curfontstyle\bfstylename % bold: \font\thiseurofont = \ifusingit{feybo10}{feybr10} at \eurosize \else % regular: \font\thiseurofont = \ifusingit{feymo10}{feymr10} at \eurosize \fi \thiseurofont } % Glyphs from the EC fonts. We don't use \let for the aliases, because % sometimes we redefine the original macro, and the alias should reflect % the redefinition. % % Use LaTeX names for the Icelandic letters. \def\DH{{\ecfont \char"D0}} % Eth \def\dh{{\ecfont \char"F0}} % eth \def\TH{{\ecfont \char"DE}} % Thorn \def\th{{\ecfont \char"FE}} % thorn % \def\guillemetleft{{\ecfont \char"13}} \def\guillemotleft{\guillemetleft} \def\guillemetright{{\ecfont \char"14}} \def\guillemotright{\guillemetright} \def\guilsinglleft{{\ecfont \char"0E}} \def\guilsinglright{{\ecfont \char"0F}} \def\quotedblbase{{\ecfont \char"12}} \def\quotesinglbase{{\ecfont \char"0D}} % % This positioning is not perfect (see the ogonek LaTeX package), but % we have the precomposed glyphs for the most common cases. We put the % tests to use those glyphs in the single \ogonek macro so we have fewer % dummy definitions to worry about for index entries, etc. % % ogonek is also used with other letters in Lithuanian (IOU), but using % the precomposed glyphs for those is not so easy since they aren't in % the same EC font. \def\ogonek#1{{% \def\temp{#1}% \ifx\temp\macrocharA\Aogonek \else\ifx\temp\macrochara\aogonek \else\ifx\temp\macrocharE\Eogonek \else\ifx\temp\macrochare\eogonek \else \ecfont \setbox0=\hbox{#1}% \ifdim\ht0=1ex\accent"0C #1% \else\ooalign{\unhbox0\crcr\hidewidth\char"0C \hidewidth}% \fi \fi\fi\fi\fi }% } \def\Aogonek{{\ecfont \char"81}}\def\macrocharA{A} \def\aogonek{{\ecfont \char"A1}}\def\macrochara{a} \def\Eogonek{{\ecfont \char"86}}\def\macrocharE{E} \def\eogonek{{\ecfont \char"A6}}\def\macrochare{e} % % Use the ec* fonts (cm-super in outline format) for non-CM glyphs. \def\ecfont{% % We can't distinguish serif/sans and italic/slanted, but this % is used for crude hacks anyway (like adding French and German % quotes to documents typeset with CM, where we lose kerning), so % hopefully nobody will notice/care. \edef\ecsize{\csname\curfontsize ecsize\endcsname}% \edef\nominalsize{\csname\curfontsize nominalsize\endcsname}% \ifx\curfontstyle\bfstylename % bold: \font\thisecfont = ecb\ifusingit{i}{x}\ecsize \space at \nominalsize \else % regular: \font\thisecfont = ec\ifusingit{ti}{rm}\ecsize \space at \nominalsize \fi \thisecfont } % @registeredsymbol - R in a circle. The font for the R should really % be smaller yet, but lllsize is the best we can do for now. % Adapted from the plain.tex definition of \copyright. % \def\registeredsymbol{% $^{{\ooalign{\hfil\raise.07ex\hbox{\selectfonts\lllsize R}% \hfil\crcr\Orb}}% }$% } % @textdegree - the normal degrees sign. % \def\textdegree{$^\circ$} % Laurent Siebenmann reports \Orb undefined with: % Textures 1.7.7 (preloaded format=plain 93.10.14) (68K) 16 APR 2004 02:38 % so we'll define it if necessary. % \ifx\Orb\undefined \def\Orb{\mathhexbox20D} \fi % Quotes. \chardef\quotedblleft="5C \chardef\quotedblright=`\" \chardef\quoteleft=`\` \chardef\quoteright=`\' \message{page headings,} \newskip\titlepagetopglue \titlepagetopglue = 1.5in \newskip\titlepagebottomglue \titlepagebottomglue = 2pc % First the title page. Must do @settitle before @titlepage. \newif\ifseenauthor \newif\iffinishedtitlepage % Do an implicit @contents or @shortcontents after @end titlepage if the % user says @setcontentsaftertitlepage or @setshortcontentsaftertitlepage. % \newif\ifsetcontentsaftertitlepage \let\setcontentsaftertitlepage = \setcontentsaftertitlepagetrue \newif\ifsetshortcontentsaftertitlepage \let\setshortcontentsaftertitlepage = \setshortcontentsaftertitlepagetrue \parseargdef\shorttitlepage{\begingroup\hbox{}\vskip 1.5in \chaprm \centerline{#1}% \endgroup\page\hbox{}\page} \envdef\titlepage{% % Open one extra group, as we want to close it in the middle of \Etitlepage. \begingroup \parindent=0pt \textfonts % Leave some space at the very top of the page. \vglue\titlepagetopglue % No rule at page bottom unless we print one at the top with @title. \finishedtitlepagetrue % % Most title ``pages'' are actually two pages long, with space % at the top of the second. We don't want the ragged left on the second. \let\oldpage = \page \def\page{% \iffinishedtitlepage\else \finishtitlepage \fi \let\page = \oldpage \page \null }% } \def\Etitlepage{% \iffinishedtitlepage\else \finishtitlepage \fi % It is important to do the page break before ending the group, % because the headline and footline are only empty inside the group. % If we use the new definition of \page, we always get a blank page % after the title page, which we certainly don't want. \oldpage \endgroup % % Need this before the \...aftertitlepage checks so that if they are % in effect the toc pages will come out with page numbers. \HEADINGSon % % If they want short, they certainly want long too. \ifsetshortcontentsaftertitlepage \shortcontents \contents \global\let\shortcontents = \relax \global\let\contents = \relax \fi % \ifsetcontentsaftertitlepage \contents \global\let\contents = \relax \global\let\shortcontents = \relax \fi } \def\finishtitlepage{% \vskip4pt \hrule height 2pt width \hsize \vskip\titlepagebottomglue \finishedtitlepagetrue } %%% Macros to be used within @titlepage: \let\subtitlerm=\tenrm \def\subtitlefont{\subtitlerm \normalbaselineskip = 13pt \normalbaselines} \parseargdef\title{% \checkenv\titlepage \leftline{\titlefonts\rmisbold #1} % print a rule at the page bottom also. \finishedtitlepagefalse \vskip4pt \hrule height 4pt width \hsize \vskip4pt } \parseargdef\subtitle{% \checkenv\titlepage {\subtitlefont \rightline{#1}}% } % @author should come last, but may come many times. % It can also be used inside @quotation. % \parseargdef\author{% \def\temp{\quotation}% \ifx\thisenv\temp \def\quotationauthor{#1}% printed in \Equotation. \else \checkenv\titlepage \ifseenauthor\else \vskip 0pt plus 1filll \seenauthortrue \fi {\secfonts\rmisbold \leftline{#1}}% \fi } %%% Set up page headings and footings. \let\thispage=\folio \newtoks\evenheadline % headline on even pages \newtoks\oddheadline % headline on odd pages \newtoks\evenfootline % footline on even pages \newtoks\oddfootline % footline on odd pages % Now make TeX use those variables \headline={{\textfonts\rm \ifodd\pageno \the\oddheadline \else \the\evenheadline \fi}} \footline={{\textfonts\rm \ifodd\pageno \the\oddfootline \else \the\evenfootline \fi}\HEADINGShook} \let\HEADINGShook=\relax % Commands to set those variables. % For example, this is what @headings on does % @evenheading @thistitle|@thispage|@thischapter % @oddheading @thischapter|@thispage|@thistitle % @evenfooting @thisfile|| % @oddfooting ||@thisfile \def\evenheading{\parsearg\evenheadingxxx} \def\evenheadingxxx #1{\evenheadingyyy #1\|\|\|\|\finish} \def\evenheadingyyy #1\|#2\|#3\|#4\finish{% \global\evenheadline={\rlap{\centerline{#2}}\line{#1\hfil#3}}} \def\oddheading{\parsearg\oddheadingxxx} \def\oddheadingxxx #1{\oddheadingyyy #1\|\|\|\|\finish} \def\oddheadingyyy #1\|#2\|#3\|#4\finish{% \global\oddheadline={\rlap{\centerline{#2}}\line{#1\hfil#3}}} \parseargdef\everyheading{\oddheadingxxx{#1}\evenheadingxxx{#1}}% \def\evenfooting{\parsearg\evenfootingxxx} \def\evenfootingxxx #1{\evenfootingyyy #1\|\|\|\|\finish} \def\evenfootingyyy #1\|#2\|#3\|#4\finish{% \global\evenfootline={\rlap{\centerline{#2}}\line{#1\hfil#3}}} \def\oddfooting{\parsearg\oddfootingxxx} \def\oddfootingxxx #1{\oddfootingyyy #1\|\|\|\|\finish} \def\oddfootingyyy #1\|#2\|#3\|#4\finish{% \global\oddfootline = {\rlap{\centerline{#2}}\line{#1\hfil#3}}% % % Leave some space for the footline. Hopefully ok to assume % @evenfooting will not be used by itself. \global\advance\pageheight by -12pt \global\advance\vsize by -12pt } \parseargdef\everyfooting{\oddfootingxxx{#1}\evenfootingxxx{#1}} % @evenheadingmarks top \thischapter <- chapter at the top of a page % @evenheadingmarks bottom \thischapter <- chapter at the bottom of a page % % The same set of arguments for: % % @oddheadingmarks % @evenfootingmarks % @oddfootingmarks % @everyheadingmarks % @everyfootingmarks \def\evenheadingmarks{\headingmarks{even}{heading}} \def\oddheadingmarks{\headingmarks{odd}{heading}} \def\evenfootingmarks{\headingmarks{even}{footing}} \def\oddfootingmarks{\headingmarks{odd}{footing}} \def\everyheadingmarks#1 {\headingmarks{even}{heading}{#1} \headingmarks{odd}{heading}{#1} } \def\everyfootingmarks#1 {\headingmarks{even}{footing}{#1} \headingmarks{odd}{footing}{#1} } % #1 = even/odd, #2 = heading/footing, #3 = top/bottom. \def\headingmarks#1#2#3 {% \expandafter\let\expandafter\temp \csname get#3headingmarks\endcsname \global\expandafter\let\csname get#1#2marks\endcsname \temp } \everyheadingmarks bottom \everyfootingmarks bottom % @headings double turns headings on for double-sided printing. % @headings single turns headings on for single-sided printing. % @headings off turns them off. % @headings on same as @headings double, retained for compatibility. % @headings after turns on double-sided headings after this page. % @headings doubleafter turns on double-sided headings after this page. % @headings singleafter turns on single-sided headings after this page. % By default, they are off at the start of a document, % and turned `on' after @end titlepage. \def\headings #1 {\csname HEADINGS#1\endcsname} \def\HEADINGSoff{% \global\evenheadline={\hfil} \global\evenfootline={\hfil} \global\oddheadline={\hfil} \global\oddfootline={\hfil}} \HEADINGSoff % When we turn headings on, set the page number to 1. % For double-sided printing, put current file name in lower left corner, % chapter name on inside top of right hand pages, document % title on inside top of left hand pages, and page numbers on outside top % edge of all pages. \def\HEADINGSdouble{% \global\pageno=1 \global\evenfootline={\hfil} \global\oddfootline={\hfil} \global\evenheadline={\line{\folio\hfil\thistitle}} \global\oddheadline={\line{\thischapter\hfil\folio}} \global\let\contentsalignmacro = \chapoddpage } \let\contentsalignmacro = \chappager % For single-sided printing, chapter title goes across top left of page, % page number on top right. \def\HEADINGSsingle{% \global\pageno=1 \global\evenfootline={\hfil} \global\oddfootline={\hfil} \global\evenheadline={\line{\thischapter\hfil\folio}} \global\oddheadline={\line{\thischapter\hfil\folio}} \global\let\contentsalignmacro = \chappager } \def\HEADINGSon{\HEADINGSdouble} \def\HEADINGSafter{\let\HEADINGShook=\HEADINGSdoublex} \let\HEADINGSdoubleafter=\HEADINGSafter \def\HEADINGSdoublex{% \global\evenfootline={\hfil} \global\oddfootline={\hfil} \global\evenheadline={\line{\folio\hfil\thistitle}} \global\oddheadline={\line{\thischapter\hfil\folio}} \global\let\contentsalignmacro = \chapoddpage } \def\HEADINGSsingleafter{\let\HEADINGShook=\HEADINGSsinglex} \def\HEADINGSsinglex{% \global\evenfootline={\hfil} \global\oddfootline={\hfil} \global\evenheadline={\line{\thischapter\hfil\folio}} \global\oddheadline={\line{\thischapter\hfil\folio}} \global\let\contentsalignmacro = \chappager } % Subroutines used in generating headings % This produces Day Month Year style of output. % Only define if not already defined, in case a txi-??.tex file has set % up a different format (e.g., txi-cs.tex does this). \ifx\today\undefined \def\today{% \number\day\space \ifcase\month \or\putwordMJan\or\putwordMFeb\or\putwordMMar\or\putwordMApr \or\putwordMMay\or\putwordMJun\or\putwordMJul\or\putwordMAug \or\putwordMSep\or\putwordMOct\or\putwordMNov\or\putwordMDec \fi \space\number\year} \fi % @settitle line... specifies the title of the document, for headings. % It generates no output of its own. \def\thistitle{\putwordNoTitle} \def\settitle{\parsearg{\gdef\thistitle}} \message{tables,} % Tables -- @table, @ftable, @vtable, @item(x). % default indentation of table text \newdimen\tableindent \tableindent=.8in % default indentation of @itemize and @enumerate text \newdimen\itemindent \itemindent=.3in % margin between end of table item and start of table text. \newdimen\itemmargin \itemmargin=.1in % used internally for \itemindent minus \itemmargin \newdimen\itemmax % Note @table, @ftable, and @vtable define @item, @itemx, etc., with % these defs. % They also define \itemindex % to index the item name in whatever manner is desired (perhaps none). \newif\ifitemxneedsnegativevskip \def\itemxpar{\par\ifitemxneedsnegativevskip\nobreak\vskip-\parskip\nobreak\fi} \def\internalBitem{\smallbreak \parsearg\itemzzz} \def\internalBitemx{\itemxpar \parsearg\itemzzz} \def\itemzzz #1{\begingroup % \advance\hsize by -\rightskip \advance\hsize by -\tableindent \setbox0=\hbox{\itemindicate{#1}}% \itemindex{#1}% \nobreak % This prevents a break before @itemx. % % If the item text does not fit in the space we have, put it on a line % by itself, and do not allow a page break either before or after that % line. We do not start a paragraph here because then if the next % command is, e.g., @kindex, the whatsit would get put into the % horizontal list on a line by itself, resulting in extra blank space. \ifdim \wd0>\itemmax % % Make this a paragraph so we get the \parskip glue and wrapping, % but leave it ragged-right. \begingroup \advance\leftskip by-\tableindent \advance\hsize by\tableindent \advance\rightskip by0pt plus1fil \leavevmode\unhbox0\par \endgroup % % We're going to be starting a paragraph, but we don't want the % \parskip glue -- logically it's part of the @item we just started. \nobreak \vskip-\parskip % % Stop a page break at the \parskip glue coming up. However, if % what follows is an environment such as @example, there will be no % \parskip glue; then the negative vskip we just inserted would % cause the example and the item to crash together. So we use this % bizarre value of 10001 as a signal to \aboveenvbreak to insert % \parskip glue after all. Section titles are handled this way also. % \penalty 10001 \endgroup \itemxneedsnegativevskipfalse \else % The item text fits into the space. Start a paragraph, so that the % following text (if any) will end up on the same line. \noindent % Do this with kerns and \unhbox so that if there is a footnote in % the item text, it can migrate to the main vertical list and % eventually be printed. \nobreak\kern-\tableindent \dimen0 = \itemmax \advance\dimen0 by \itemmargin \advance\dimen0 by -\wd0 \unhbox0 \nobreak\kern\dimen0 \endgroup \itemxneedsnegativevskiptrue \fi } \def\item{\errmessage{@item while not in a list environment}} \def\itemx{\errmessage{@itemx while not in a list environment}} % @table, @ftable, @vtable. \envdef\table{% \let\itemindex\gobble \tablecheck{table}% } \envdef\ftable{% \def\itemindex ##1{\doind {fn}{\code{##1}}}% \tablecheck{ftable}% } \envdef\vtable{% \def\itemindex ##1{\doind {vr}{\code{##1}}}% \tablecheck{vtable}% } \def\tablecheck#1{% \ifnum \the\catcode`\^^M=\active \endgroup \errmessage{This command won't work in this context; perhaps the problem is that we are \inenvironment\thisenv}% \def\next{\doignore{#1}}% \else \let\next\tablex \fi \next } \def\tablex#1{% \def\itemindicate{#1}% \parsearg\tabley } \def\tabley#1{% {% \makevalueexpandable \edef\temp{\noexpand\tablez #1\space\space\space}% \expandafter }\temp \endtablez } \def\tablez #1 #2 #3 #4\endtablez{% \aboveenvbreak \ifnum 0#1>0 \advance \leftskip by #1\mil \fi \ifnum 0#2>0 \tableindent=#2\mil \fi \ifnum 0#3>0 \advance \rightskip by #3\mil \fi \itemmax=\tableindent \advance \itemmax by -\itemmargin \advance \leftskip by \tableindent \exdentamount=\tableindent \parindent = 0pt \parskip = \smallskipamount \ifdim \parskip=0pt \parskip=2pt \fi \let\item = \internalBitem \let\itemx = \internalBitemx } \def\Etable{\endgraf\afterenvbreak} \let\Eftable\Etable \let\Evtable\Etable \let\Eitemize\Etable \let\Eenumerate\Etable % This is the counter used by @enumerate, which is really @itemize \newcount \itemno \envdef\itemize{\parsearg\doitemize} \def\doitemize#1{% \aboveenvbreak \itemmax=\itemindent \advance\itemmax by -\itemmargin \advance\leftskip by \itemindent \exdentamount=\itemindent \parindent=0pt \parskip=\smallskipamount \ifdim\parskip=0pt \parskip=2pt \fi % % Try typesetting the item mark that if the document erroneously says % something like @itemize @samp (intending @table), there's an error % right away at the @itemize. It's not the best error message in the % world, but it's better than leaving it to the @item. This means if % the user wants an empty mark, they have to say @w{} not just @w. \def\itemcontents{#1}% \setbox0 = \hbox{\itemcontents}% % % @itemize with no arg is equivalent to @itemize @bullet. \ifx\itemcontents\empty\def\itemcontents{\bullet}\fi % \let\item=\itemizeitem } % Definition of @item while inside @itemize and @enumerate. % \def\itemizeitem{% \advance\itemno by 1 % for enumerations {\let\par=\endgraf \smallbreak}% reasonable place to break {% % If the document has an @itemize directly after a section title, a % \nobreak will be last on the list, and \sectionheading will have % done a \vskip-\parskip. In that case, we don't want to zero % parskip, or the item text will crash with the heading. On the % other hand, when there is normal text preceding the item (as there % usually is), we do want to zero parskip, or there would be too much % space. In that case, we won't have a \nobreak before. At least % that's the theory. \ifnum\lastpenalty<10000 \parskip=0in \fi \noindent \hbox to 0pt{\hss \itemcontents \kern\itemmargin}% % \vadjust{\penalty 1200}}% not good to break after first line of item. \flushcr } % \splitoff TOKENS\endmark defines \first to be the first token in % TOKENS, and \rest to be the remainder. % \def\splitoff#1#2\endmark{\def\first{#1}\def\rest{#2}}% % Allow an optional argument of an uppercase letter, lowercase letter, % or number, to specify the first label in the enumerated list. No % argument is the same as `1'. % \envparseargdef\enumerate{\enumeratey #1 \endenumeratey} \def\enumeratey #1 #2\endenumeratey{% % If we were given no argument, pretend we were given `1'. \def\thearg{#1}% \ifx\thearg\empty \def\thearg{1}\fi % % Detect if the argument is a single token. If so, it might be a % letter. Otherwise, the only valid thing it can be is a number. % (We will always have one token, because of the test we just made. % This is a good thing, since \splitoff doesn't work given nothing at % all -- the first parameter is undelimited.) \expandafter\splitoff\thearg\endmark \ifx\rest\empty % Only one token in the argument. It could still be anything. % A ``lowercase letter'' is one whose \lccode is nonzero. % An ``uppercase letter'' is one whose \lccode is both nonzero, and % not equal to itself. % Otherwise, we assume it's a number. % % We need the \relax at the end of the \ifnum lines to stop TeX from % continuing to look for a . % \ifnum\lccode\expandafter`\thearg=0\relax \numericenumerate % a number (we hope) \else % It's a letter. \ifnum\lccode\expandafter`\thearg=\expandafter`\thearg\relax \lowercaseenumerate % lowercase letter \else \uppercaseenumerate % uppercase letter \fi \fi \else % Multiple tokens in the argument. We hope it's a number. \numericenumerate \fi } % An @enumerate whose labels are integers. The starting integer is % given in \thearg. % \def\numericenumerate{% \itemno = \thearg \startenumeration{\the\itemno}% } % The starting (lowercase) letter is in \thearg. \def\lowercaseenumerate{% \itemno = \expandafter`\thearg \startenumeration{% % Be sure we're not beyond the end of the alphabet. \ifnum\itemno=0 \errmessage{No more lowercase letters in @enumerate; get a bigger alphabet}% \fi \char\lccode\itemno }% } % The starting (uppercase) letter is in \thearg. \def\uppercaseenumerate{% \itemno = \expandafter`\thearg \startenumeration{% % Be sure we're not beyond the end of the alphabet. \ifnum\itemno=0 \errmessage{No more uppercase letters in @enumerate; get a bigger alphabet} \fi \char\uccode\itemno }% } % Call \doitemize, adding a period to the first argument and supplying the % common last two arguments. Also subtract one from the initial value in % \itemno, since @item increments \itemno. % \def\startenumeration#1{% \advance\itemno by -1 \doitemize{#1.}\flushcr } % @alphaenumerate and @capsenumerate are abbreviations for giving an arg % to @enumerate. % \def\alphaenumerate{\enumerate{a}} \def\capsenumerate{\enumerate{A}} \def\Ealphaenumerate{\Eenumerate} \def\Ecapsenumerate{\Eenumerate} % @multitable macros % Amy Hendrickson, 8/18/94, 3/6/96 % % @multitable ... @end multitable will make as many columns as desired. % Contents of each column will wrap at width given in preamble. Width % can be specified either with sample text given in a template line, % or in percent of \hsize, the current width of text on page. % Table can continue over pages but will only break between lines. % To make preamble: % % Either define widths of columns in terms of percent of \hsize: % @multitable @columnfractions .25 .3 .45 % @item ... % % Numbers following @columnfractions are the percent of the total % current hsize to be used for each column. You may use as many % columns as desired. % Or use a template: % @multitable {Column 1 template} {Column 2 template} {Column 3 template} % @item ... % using the widest term desired in each column. % Each new table line starts with @item, each subsequent new column % starts with @tab. Empty columns may be produced by supplying @tab's % with nothing between them for as many times as empty columns are needed, % ie, @tab@tab@tab will produce two empty columns. % @item, @tab do not need to be on their own lines, but it will not hurt % if they are. % Sample multitable: % @multitable {Column 1 template} {Column 2 template} {Column 3 template} % @item first col stuff @tab second col stuff @tab third col % @item % first col stuff % @tab % second col stuff % @tab % third col % @item first col stuff @tab second col stuff % @tab Many paragraphs of text may be used in any column. % % They will wrap at the width determined by the template. % @item@tab@tab This will be in third column. % @end multitable % Default dimensions may be reset by user. % @multitableparskip is vertical space between paragraphs in table. % @multitableparindent is paragraph indent in table. % @multitablecolmargin is horizontal space to be left between columns. % @multitablelinespace is space to leave between table items, baseline % to baseline. % 0pt means it depends on current normal line spacing. % \newskip\multitableparskip \newskip\multitableparindent \newdimen\multitablecolspace \newskip\multitablelinespace \multitableparskip=0pt \multitableparindent=6pt \multitablecolspace=12pt \multitablelinespace=0pt % Macros used to set up halign preamble: % \let\endsetuptable\relax \def\xendsetuptable{\endsetuptable} \let\columnfractions\relax \def\xcolumnfractions{\columnfractions} \newif\ifsetpercent % #1 is the @columnfraction, usually a decimal number like .5, but might % be just 1. We just use it, whatever it is. % \def\pickupwholefraction#1 {% \global\advance\colcount by 1 \expandafter\xdef\csname col\the\colcount\endcsname{#1\hsize}% \setuptable } \newcount\colcount \def\setuptable#1{% \def\firstarg{#1}% \ifx\firstarg\xendsetuptable \let\go = \relax \else \ifx\firstarg\xcolumnfractions \global\setpercenttrue \else \ifsetpercent \let\go\pickupwholefraction \else \global\advance\colcount by 1 \setbox0=\hbox{#1\unskip\space}% Add a normal word space as a % separator; typically that is always in the input, anyway. \expandafter\xdef\csname col\the\colcount\endcsname{\the\wd0}% \fi \fi \ifx\go\pickupwholefraction % Put the argument back for the \pickupwholefraction call, so % we'll always have a period there to be parsed. \def\go{\pickupwholefraction#1}% \else \let\go = \setuptable \fi% \fi \go } % multitable-only commands. % % @headitem starts a heading row, which we typeset in bold. % Assignments have to be global since we are inside the implicit group % of an alignment entry. \everycr resets \everytab so we don't have to % undo it ourselves. \def\headitemfont{\b}% for people to use in the template row; not changeable \def\headitem{% \checkenv\multitable \crcr \global\everytab={\bf}% can't use \headitemfont since the parsing differs \the\everytab % for the first item }% % % A \tab used to include \hskip1sp. But then the space in a template % line is not enough. That is bad. So let's go back to just `&' until % we again encounter the problem the 1sp was intended to solve. % --karl, nathan@acm.org, 20apr99. \def\tab{\checkenv\multitable &\the\everytab}% % @multitable ... @end multitable definitions: % \newtoks\everytab % insert after every tab. % \envdef\multitable{% \vskip\parskip \startsavinginserts % % @item within a multitable starts a normal row. % We use \def instead of \let so that if one of the multitable entries % contains an @itemize, we don't choke on the \item (seen as \crcr aka % \endtemplate) expanding \doitemize. \def\item{\crcr}% % \tolerance=9500 \hbadness=9500 \setmultitablespacing \parskip=\multitableparskip \parindent=\multitableparindent \overfullrule=0pt \global\colcount=0 % \everycr = {% \noalign{% \global\everytab={}% \global\colcount=0 % Reset the column counter. % Check for saved footnotes, etc. \checkinserts % Keeps underfull box messages off when table breaks over pages. %\filbreak % Maybe so, but it also creates really weird page breaks when the % table breaks over pages. Wouldn't \vfil be better? Wait until the % problem manifests itself, so it can be fixed for real --karl. }% }% % \parsearg\domultitable } \def\domultitable#1{% % To parse everything between @multitable and @item: \setuptable#1 \endsetuptable % % This preamble sets up a generic column definition, which will % be used as many times as user calls for columns. % \vtop will set a single line and will also let text wrap and % continue for many paragraphs if desired. \halign\bgroup &% \global\advance\colcount by 1 \multistrut \vtop{% % Use the current \colcount to find the correct column width: \hsize=\expandafter\csname col\the\colcount\endcsname % % In order to keep entries from bumping into each other % we will add a \leftskip of \multitablecolspace to all columns after % the first one. % % If a template has been used, we will add \multitablecolspace % to the width of each template entry. % % If the user has set preamble in terms of percent of \hsize we will % use that dimension as the width of the column, and the \leftskip % will keep entries from bumping into each other. Table will start at % left margin and final column will justify at right margin. % % Make sure we don't inherit \rightskip from the outer environment. \rightskip=0pt \ifnum\colcount=1 % The first column will be indented with the surrounding text. \advance\hsize by\leftskip \else \ifsetpercent \else % If user has not set preamble in terms of percent of \hsize % we will advance \hsize by \multitablecolspace. \advance\hsize by \multitablecolspace \fi % In either case we will make \leftskip=\multitablecolspace: \leftskip=\multitablecolspace \fi % Ignoring space at the beginning and end avoids an occasional spurious % blank line, when TeX decides to break the line at the space before the % box from the multistrut, so the strut ends up on a line by itself. % For example: % @multitable @columnfractions .11 .89 % @item @code{#} % @tab Legal holiday which is valid in major parts of the whole country. % Is automatically provided with highlighting sequences respectively % marking characters. \noindent\ignorespaces##\unskip\multistrut }\cr } \def\Emultitable{% \crcr \egroup % end the \halign \global\setpercentfalse } \def\setmultitablespacing{% \def\multistrut{\strut}% just use the standard line spacing % % Compute \multitablelinespace (if not defined by user) for use in % \multitableparskip calculation. We used define \multistrut based on % this, but (ironically) that caused the spacing to be off. % See bug-texinfo report from Werner Lemberg, 31 Oct 2004 12:52:20 +0100. \ifdim\multitablelinespace=0pt \setbox0=\vbox{X}\global\multitablelinespace=\the\baselineskip \global\advance\multitablelinespace by-\ht0 \fi %% Test to see if parskip is larger than space between lines of %% table. If not, do nothing. %% If so, set to same dimension as multitablelinespace. \ifdim\multitableparskip>\multitablelinespace \global\multitableparskip=\multitablelinespace \global\advance\multitableparskip-7pt %% to keep parskip somewhat smaller %% than skip between lines in the table. \fi% \ifdim\multitableparskip=0pt \global\multitableparskip=\multitablelinespace \global\advance\multitableparskip-7pt %% to keep parskip somewhat smaller %% than skip between lines in the table. \fi} \message{conditionals,} % @iftex, @ifnotdocbook, @ifnothtml, @ifnotinfo, @ifnotplaintext, % @ifnotxml always succeed. They currently do nothing; we don't % attempt to check whether the conditionals are properly nested. But we % have to remember that they are conditionals, so that @end doesn't % attempt to close an environment group. % \def\makecond#1{% \expandafter\let\csname #1\endcsname = \relax \expandafter\let\csname iscond.#1\endcsname = 1 } \makecond{iftex} \makecond{ifnotdocbook} \makecond{ifnothtml} \makecond{ifnotinfo} \makecond{ifnotplaintext} \makecond{ifnotxml} % Ignore @ignore, @ifhtml, @ifinfo, and the like. % \def\direntry{\doignore{direntry}} \def\documentdescription{\doignore{documentdescription}} \def\docbook{\doignore{docbook}} \def\html{\doignore{html}} \def\ifdocbook{\doignore{ifdocbook}} \def\ifhtml{\doignore{ifhtml}} \def\ifinfo{\doignore{ifinfo}} \def\ifnottex{\doignore{ifnottex}} \def\ifplaintext{\doignore{ifplaintext}} \def\ifxml{\doignore{ifxml}} \def\ignore{\doignore{ignore}} \def\menu{\doignore{menu}} \def\xml{\doignore{xml}} % Ignore text until a line `@end #1', keeping track of nested conditionals. % % A count to remember the depth of nesting. \newcount\doignorecount \def\doignore#1{\begingroup % Scan in ``verbatim'' mode: \obeylines \catcode`\@ = \other \catcode`\{ = \other \catcode`\} = \other % % Make sure that spaces turn into tokens that match what \doignoretext wants. \spaceisspace % % Count number of #1's that we've seen. \doignorecount = 0 % % Swallow text until we reach the matching `@end #1'. \dodoignore{#1}% } { \catcode`_=11 % We want to use \_STOP_ which cannot appear in texinfo source. \obeylines % % \gdef\dodoignore#1{% % #1 contains the command name as a string, e.g., `ifinfo'. % % Define a command to find the next `@end #1'. \long\def\doignoretext##1^^M@end #1{% \doignoretextyyy##1^^M@#1\_STOP_}% % % And this command to find another #1 command, at the beginning of a % line. (Otherwise, we would consider a line `@c @ifset', for % example, to count as an @ifset for nesting.) \long\def\doignoretextyyy##1^^M@#1##2\_STOP_{\doignoreyyy{##2}\_STOP_}% % % And now expand that command. \doignoretext ^^M% }% } \def\doignoreyyy#1{% \def\temp{#1}% \ifx\temp\empty % Nothing found. \let\next\doignoretextzzz \else % Found a nested condition, ... \advance\doignorecount by 1 \let\next\doignoretextyyy % ..., look for another. % If we're here, #1 ends with ^^M\ifinfo (for example). \fi \next #1% the token \_STOP_ is present just after this macro. } % We have to swallow the remaining "\_STOP_". % \def\doignoretextzzz#1{% \ifnum\doignorecount = 0 % We have just found the outermost @end. \let\next\enddoignore \else % Still inside a nested condition. \advance\doignorecount by -1 \let\next\doignoretext % Look for the next @end. \fi \next } % Finish off ignored text. { \obeylines% % Ignore anything after the last `@end #1'; this matters in verbatim % environments, where otherwise the newline after an ignored conditional % would result in a blank line in the output. \gdef\enddoignore#1^^M{\endgroup\ignorespaces}% } % @set VAR sets the variable VAR to an empty value. % @set VAR REST-OF-LINE sets VAR to the value REST-OF-LINE. % % Since we want to separate VAR from REST-OF-LINE (which might be % empty), we can't just use \parsearg; we have to insert a space of our % own to delimit the rest of the line, and then take it out again if we % didn't need it. % We rely on the fact that \parsearg sets \catcode`\ =10. % \parseargdef\set{\setyyy#1 \endsetyyy} \def\setyyy#1 #2\endsetyyy{% {% \makevalueexpandable \def\temp{#2}% \edef\next{\gdef\makecsname{SET#1}}% \ifx\temp\empty \next{}% \else \setzzz#2\endsetzzz \fi }% } % Remove the trailing space \setxxx inserted. \def\setzzz#1 \endsetzzz{\next{#1}} % @clear VAR clears (i.e., unsets) the variable VAR. % \parseargdef\clear{% {% \makevalueexpandable \global\expandafter\let\csname SET#1\endcsname=\relax }% } % @value{foo} gets the text saved in variable foo. \def\value{\begingroup\makevalueexpandable\valuexxx} \def\valuexxx#1{\expandablevalue{#1}\endgroup} { \catcode`\- = \active \catcode`\_ = \active % \gdef\makevalueexpandable{% \let\value = \expandablevalue % We don't want these characters active, ... \catcode`\-=\other \catcode`\_=\other % ..., but we might end up with active ones in the argument if % we're called from @code, as @code{@value{foo-bar_}}, though. % So \let them to their normal equivalents. \let-\realdash \let_\normalunderscore } } % We have this subroutine so that we can handle at least some @value's % properly in indexes (we call \makevalueexpandable in \indexdummies). % The command has to be fully expandable (if the variable is set), since % the result winds up in the index file. This means that if the % variable's value contains other Texinfo commands, it's almost certain % it will fail (although perhaps we could fix that with sufficient work % to do a one-level expansion on the result, instead of complete). % \def\expandablevalue#1{% \expandafter\ifx\csname SET#1\endcsname\relax {[No value for ``#1'']}% \message{Variable `#1', used in @value, is not set.}% \else \csname SET#1\endcsname \fi } % @ifset VAR ... @end ifset reads the `...' iff VAR has been defined % with @set. % % To get special treatment of `@end ifset,' call \makeond and the redefine. % \makecond{ifset} \def\ifset{\parsearg{\doifset{\let\next=\ifsetfail}}} \def\doifset#1#2{% {% \makevalueexpandable \let\next=\empty \expandafter\ifx\csname SET#2\endcsname\relax #1% If not set, redefine \next. \fi \expandafter }\next } \def\ifsetfail{\doignore{ifset}} % @ifclear VAR ... @end ifclear reads the `...' iff VAR has never been % defined with @set, or has been undefined with @clear. % % The `\else' inside the `\doifset' parameter is a trick to reuse the % above code: if the variable is not set, do nothing, if it is set, % then redefine \next to \ifclearfail. % \makecond{ifclear} \def\ifclear{\parsearg{\doifset{\else \let\next=\ifclearfail}}} \def\ifclearfail{\doignore{ifclear}} % @dircategory CATEGORY -- specify a category of the dir file % which this file should belong to. Ignore this in TeX. \let\dircategory=\comment % @defininfoenclose. \let\definfoenclose=\comment \message{indexing,} % Index generation facilities % Define \newwrite to be identical to plain tex's \newwrite % except not \outer, so it can be used within macros and \if's. \edef\newwrite{\makecsname{ptexnewwrite}} % \newindex {foo} defines an index named foo. % It automatically defines \fooindex such that % \fooindex ...rest of line... puts an entry in the index foo. % It also defines \fooindfile to be the number of the output channel for % the file that accumulates this index. The file's extension is foo. % The name of an index should be no more than 2 characters long % for the sake of vms. % \def\newindex#1{% \iflinks \expandafter\newwrite \csname#1indfile\endcsname \openout \csname#1indfile\endcsname \jobname.#1 % Open the file \fi \expandafter\xdef\csname#1index\endcsname{% % Define @#1index \noexpand\doindex{#1}} } % @defindex foo == \newindex{foo} % \def\defindex{\parsearg\newindex} % Define @defcodeindex, like @defindex except put all entries in @code. % \def\defcodeindex{\parsearg\newcodeindex} % \def\newcodeindex#1{% \iflinks \expandafter\newwrite \csname#1indfile\endcsname \openout \csname#1indfile\endcsname \jobname.#1 \fi \expandafter\xdef\csname#1index\endcsname{% \noexpand\docodeindex{#1}}% } % @synindex foo bar makes index foo feed into index bar. % Do this instead of @defindex foo if you don't want it as a separate index. % % @syncodeindex foo bar similar, but put all entries made for index foo % inside @code. % \def\synindex#1 #2 {\dosynindex\doindex{#1}{#2}} \def\syncodeindex#1 #2 {\dosynindex\docodeindex{#1}{#2}} % #1 is \doindex or \docodeindex, #2 the index getting redefined (foo), % #3 the target index (bar). \def\dosynindex#1#2#3{% % Only do \closeout if we haven't already done it, else we'll end up % closing the target index. \expandafter \ifx\csname donesynindex#2\endcsname \relax % The \closeout helps reduce unnecessary open files; the limit on the % Acorn RISC OS is a mere 16 files. \expandafter\closeout\csname#2indfile\endcsname \expandafter\let\csname donesynindex#2\endcsname = 1 \fi % redefine \fooindfile: \expandafter\let\expandafter\temp\expandafter=\csname#3indfile\endcsname \expandafter\let\csname#2indfile\endcsname=\temp % redefine \fooindex: \expandafter\xdef\csname#2index\endcsname{\noexpand#1{#3}}% } % Define \doindex, the driver for all \fooindex macros. % Argument #1 is generated by the calling \fooindex macro, % and it is "foo", the name of the index. % \doindex just uses \parsearg; it calls \doind for the actual work. % This is because \doind is more useful to call from other macros. % There is also \dosubind {index}{topic}{subtopic} % which makes an entry in a two-level index such as the operation index. \def\doindex#1{\edef\indexname{#1}\parsearg\singleindexer} \def\singleindexer #1{\doind{\indexname}{#1}} % like the previous two, but they put @code around the argument. \def\docodeindex#1{\edef\indexname{#1}\parsearg\singlecodeindexer} \def\singlecodeindexer #1{\doind{\indexname}{\code{#1}}} % Take care of Texinfo commands that can appear in an index entry. % Since there are some commands we want to expand, and others we don't, % we have to laboriously prevent expansion for those that we don't. % \def\indexdummies{% \escapechar = `\\ % use backslash in output files. \def\@{@}% change to @@ when we switch to @ as escape char in index files. \def\ {\realbackslash\space }% % % Need these in case \tex is in effect and \{ is a \delimiter again. % But can't use \lbracecmd and \rbracecmd because texindex assumes % braces and backslashes are used only as delimiters. \let\{ = \mylbrace \let\} = \myrbrace % % I don't entirely understand this, but when an index entry is % generated from a macro call, the \endinput which \scanmacro inserts % causes processing to be prematurely terminated. This is, % apparently, because \indexsorttmp is fully expanded, and \endinput % is an expandable command. The redefinition below makes \endinput % disappear altogether for that purpose -- although logging shows that % processing continues to some further point. On the other hand, it % seems \endinput does not hurt in the printed index arg, since that % is still getting written without apparent harm. % % Sample source (mac-idx3.tex, reported by Graham Percival to % help-texinfo, 22may06): % @macro funindex {WORD} % @findex xyz % @end macro % ... % @funindex commtest % % The above is not enough to reproduce the bug, but it gives the flavor. % % Sample whatsit resulting: % .@write3{\entry{xyz}{@folio }{@code {xyz@endinput }}} % % So: \let\endinput = \empty % % Do the redefinitions. \commondummies } % For the aux and toc files, @ is the escape character. So we want to % redefine everything using @ as the escape character (instead of % \realbackslash, still used for index files). When everything uses @, % this will be simpler. % \def\atdummies{% \def\@{@@}% \def\ {@ }% \let\{ = \lbraceatcmd \let\} = \rbraceatcmd % % Do the redefinitions. \commondummies \otherbackslash } % Called from \indexdummies and \atdummies. % \def\commondummies{% % % \definedummyword defines \#1 as \string\#1\space, thus effectively % preventing its expansion. This is used only for control% words, % not control letters, because the \space would be incorrect for % control characters, but is needed to separate the control word % from whatever follows. % % For control letters, we have \definedummyletter, which omits the % space. % % These can be used both for control words that take an argument and % those that do not. If it is followed by {arg} in the input, then % that will dutifully get written to the index (or wherever). % \def\definedummyword ##1{\def##1{\string##1\space}}% \def\definedummyletter##1{\def##1{\string##1}}% \let\definedummyaccent\definedummyletter % \commondummiesnofonts % \definedummyletter\_% % % Non-English letters. \definedummyword\AA \definedummyword\AE \definedummyword\DH \definedummyword\L \definedummyword\O \definedummyword\OE \definedummyword\TH \definedummyword\aa \definedummyword\ae \definedummyword\dh \definedummyword\exclamdown \definedummyword\l \definedummyword\o \definedummyword\oe \definedummyword\ordf \definedummyword\ordm \definedummyword\questiondown \definedummyword\ss \definedummyword\th % % Although these internal commands shouldn't show up, sometimes they do. \definedummyword\bf \definedummyword\gtr \definedummyword\hat \definedummyword\less \definedummyword\sf \definedummyword\sl \definedummyword\tclose \definedummyword\tt % \definedummyword\LaTeX \definedummyword\TeX % % Assorted special characters. \definedummyword\bullet \definedummyword\comma \definedummyword\copyright \definedummyword\registeredsymbol \definedummyword\dots \definedummyword\enddots \definedummyword\equiv \definedummyword\error \definedummyword\euro \definedummyword\guillemetleft \definedummyword\guillemetright \definedummyword\guilsinglleft \definedummyword\guilsinglright \definedummyword\expansion \definedummyword\minus \definedummyword\ogonek \definedummyword\pounds \definedummyword\point \definedummyword\print \definedummyword\quotedblbase \definedummyword\quotedblleft \definedummyword\quotedblright \definedummyword\quoteleft \definedummyword\quoteright \definedummyword\quotesinglbase \definedummyword\result \definedummyword\textdegree % % We want to disable all macros so that they are not expanded by \write. \macrolist % \normalturnoffactive % % Handle some cases of @value -- where it does not contain any % (non-fully-expandable) commands. \makevalueexpandable } % \commondummiesnofonts: common to \commondummies and \indexnofonts. % \def\commondummiesnofonts{% % Control letters and accents. \definedummyletter\!% \definedummyaccent\"% \definedummyaccent\'% \definedummyletter\*% \definedummyaccent\,% \definedummyletter\.% \definedummyletter\/% \definedummyletter\:% \definedummyaccent\=% \definedummyletter\?% \definedummyaccent\^% \definedummyaccent\`% \definedummyaccent\~% \definedummyword\u \definedummyword\v \definedummyword\H \definedummyword\dotaccent \definedummyword\ogonek \definedummyword\ringaccent \definedummyword\tieaccent \definedummyword\ubaraccent \definedummyword\udotaccent \definedummyword\dotless % % Texinfo font commands. \definedummyword\b \definedummyword\i \definedummyword\r \definedummyword\sc \definedummyword\t % % Commands that take arguments. \definedummyword\acronym \definedummyword\cite \definedummyword\code \definedummyword\command \definedummyword\dfn \definedummyword\email \definedummyword\emph \definedummyword\env \definedummyword\file \definedummyword\kbd \definedummyword\key \definedummyword\math \definedummyword\option \definedummyword\pxref \definedummyword\ref \definedummyword\samp \definedummyword\strong \definedummyword\tie \definedummyword\uref \definedummyword\url \definedummyword\var \definedummyword\verb \definedummyword\w \definedummyword\xref } % \indexnofonts is used when outputting the strings to sort the index % by, and when constructing control sequence names. It eliminates all % control sequences and just writes whatever the best ASCII sort string % would be for a given command (usually its argument). % \def\indexnofonts{% % Accent commands should become @asis. \def\definedummyaccent##1{\let##1\asis}% % We can just ignore other control letters. \def\definedummyletter##1{\let##1\empty}% % Hopefully, all control words can become @asis. \let\definedummyword\definedummyaccent % \commondummiesnofonts % % Don't no-op \tt, since it isn't a user-level command % and is used in the definitions of the active chars like <, >, |, etc. % Likewise with the other plain tex font commands. %\let\tt=\asis % \def\ { }% \def\@{@}% % how to handle braces? \def\_{\normalunderscore}% % % Non-English letters. \def\AA{AA}% \def\AE{AE}% \def\DH{DZZ}% \def\L{L}% \def\OE{OE}% \def\O{O}% \def\TH{ZZZ}% \def\aa{aa}% \def\ae{ae}% \def\dh{dzz}% \def\exclamdown{!}% \def\l{l}% \def\oe{oe}% \def\ordf{a}% \def\ordm{o}% \def\o{o}% \def\questiondown{?}% \def\ss{ss}% \def\th{zzz}% % \def\LaTeX{LaTeX}% \def\TeX{TeX}% % % Assorted special characters. % (The following {} will end up in the sort string, but that's ok.) \def\bullet{bullet}% \def\comma{,}% \def\copyright{copyright}% \def\dots{...}% \def\enddots{...}% \def\equiv{==}% \def\error{error}% \def\euro{euro}% \def\expansion{==>}% \def\guillemetleft{<<}% \def\guillemetright{>>}% \def\guilsinglleft{<}% \def\guilsinglright{>}% \def\minus{-}% \def\point{.}% \def\pounds{pounds}% \def\print{-|}% \def\quotedblbase{"}% \def\quotedblleft{"}% \def\quotedblright{"}% \def\quoteleft{`}% \def\quoteright{'}% \def\quotesinglbase{,}% \def\registeredsymbol{R}% \def\result{=>}% \def\textdegree{o}% % % We need to get rid of all macros, leaving only the arguments (if present). % Of course this is not nearly correct, but it is the best we can do for now. % makeinfo does not expand macros in the argument to @deffn, which ends up % writing an index entry, and texindex isn't prepared for an index sort entry % that starts with \. % % Since macro invocations are followed by braces, we can just redefine them % to take a single TeX argument. The case of a macro invocation that % goes to end-of-line is not handled. % \macrolist } \let\indexbackslash=0 %overridden during \printindex. \let\SETmarginindex=\relax % put index entries in margin (undocumented)? % Most index entries go through here, but \dosubind is the general case. % #1 is the index name, #2 is the entry text. \def\doind#1#2{\dosubind{#1}{#2}{}} % Workhorse for all \fooindexes. % #1 is name of index, #2 is stuff to put there, #3 is subentry -- % empty if called from \doind, as we usually are (the main exception % is with most defuns, which call us directly). % \def\dosubind#1#2#3{% \iflinks {% % Store the main index entry text (including the third arg). \toks0 = {#2}% % If third arg is present, precede it with a space. \def\thirdarg{#3}% \ifx\thirdarg\empty \else \toks0 = \expandafter{\the\toks0 \space #3}% \fi % \edef\writeto{\csname#1indfile\endcsname}% % \safewhatsit\dosubindwrite }% \fi } % Write the entry in \toks0 to the index file: % \def\dosubindwrite{% % Put the index entry in the margin if desired. \ifx\SETmarginindex\relax\else \insert\margin{\hbox{\vrule height8pt depth3pt width0pt \the\toks0}}% \fi % % Remember, we are within a group. \indexdummies % Must do this here, since \bf, etc expand at this stage \def\backslashcurfont{\indexbackslash}% \indexbackslash isn't defined now % so it will be output as is; and it will print as backslash. % % Process the index entry with all font commands turned off, to % get the string to sort by. {\indexnofonts \edef\temp{\the\toks0}% need full expansion \xdef\indexsorttmp{\temp}% }% % % Set up the complete index entry, with both the sort key and % the original text, including any font commands. We write % three arguments to \entry to the .?? file (four in the % subentry case), texindex reduces to two when writing the .??s % sorted result. \edef\temp{% \write\writeto{% \string\entry{\indexsorttmp}{\noexpand\folio}{\the\toks0}}% }% \temp } % Take care of unwanted page breaks/skips around a whatsit: % % If a skip is the last thing on the list now, preserve it % by backing up by \lastskip, doing the \write, then inserting % the skip again. Otherwise, the whatsit generated by the % \write or \pdfdest will make \lastskip zero. The result is that % sequences like this: % @end defun % @tindex whatever % @defun ... % will have extra space inserted, because the \medbreak in the % start of the @defun won't see the skip inserted by the @end of % the previous defun. % % But don't do any of this if we're not in vertical mode. We % don't want to do a \vskip and prematurely end a paragraph. % % Avoid page breaks due to these extra skips, too. % % But wait, there is a catch there: % We'll have to check whether \lastskip is zero skip. \ifdim is not % sufficient for this purpose, as it ignores stretch and shrink parts % of the skip. The only way seems to be to check the textual % representation of the skip. % % The following is almost like \def\zeroskipmacro{0.0pt} except that % the ``p'' and ``t'' characters have catcode \other, not 11 (letter). % \edef\zeroskipmacro{\expandafter\the\csname z@skip\endcsname} % \newskip\whatsitskip \newcount\whatsitpenalty % % ..., ready, GO: % \def\safewhatsit#1{% \ifhmode #1% \else % \lastskip and \lastpenalty cannot both be nonzero simultaneously. \whatsitskip = \lastskip \edef\lastskipmacro{\the\lastskip}% \whatsitpenalty = \lastpenalty % % If \lastskip is nonzero, that means the last item was a % skip. And since a skip is discardable, that means this % -\whatsitskip glue we're inserting is preceded by a % non-discardable item, therefore it is not a potential % breakpoint, therefore no \nobreak needed. \ifx\lastskipmacro\zeroskipmacro \else \vskip-\whatsitskip \fi % #1% % \ifx\lastskipmacro\zeroskipmacro % If \lastskip was zero, perhaps the last item was a penalty, and % perhaps it was >=10000, e.g., a \nobreak. In that case, we want % to re-insert the same penalty (values >10000 are used for various % signals); since we just inserted a non-discardable item, any % following glue (such as a \parskip) would be a breakpoint. For example: % % @deffn deffn-whatever % @vindex index-whatever % Description. % would allow a break between the index-whatever whatsit % and the "Description." paragraph. \ifnum\whatsitpenalty>9999 \penalty\whatsitpenalty \fi \else % On the other hand, if we had a nonzero \lastskip, % this make-up glue would be preceded by a non-discardable item % (the whatsit from the \write), so we must insert a \nobreak. \nobreak\vskip\whatsitskip \fi \fi } % The index entry written in the file actually looks like % \entry {sortstring}{page}{topic} % or % \entry {sortstring}{page}{topic}{subtopic} % The texindex program reads in these files and writes files % containing these kinds of lines: % \initial {c} % before the first topic whose initial is c % \entry {topic}{pagelist} % for a topic that is used without subtopics % \primary {topic} % for the beginning of a topic that is used with subtopics % \secondary {subtopic}{pagelist} % for each subtopic. % Define the user-accessible indexing commands % @findex, @vindex, @kindex, @cindex. \def\findex {\fnindex} \def\kindex {\kyindex} \def\cindex {\cpindex} \def\vindex {\vrindex} \def\tindex {\tpindex} \def\pindex {\pgindex} \def\cindexsub {\begingroup\obeylines\cindexsub} {\obeylines % \gdef\cindexsub "#1" #2^^M{\endgroup % \dosubind{cp}{#2}{#1}}} % Define the macros used in formatting output of the sorted index material. % @printindex causes a particular index (the ??s file) to get printed. % It does not print any chapter heading (usually an @unnumbered). % \parseargdef\printindex{\begingroup \dobreak \chapheadingskip{10000}% % \smallfonts \rm \tolerance = 9500 \plainfrenchspacing \everypar = {}% don't want the \kern\-parindent from indentation suppression. % % See if the index file exists and is nonempty. % Change catcode of @ here so that if the index file contains % \initial {@} % as its first line, TeX doesn't complain about mismatched braces % (because it thinks @} is a control sequence). \catcode`\@ = 11 \openin 1 \jobname.#1s \ifeof 1 % \enddoublecolumns gets confused if there is no text in the index, % and it loses the chapter title and the aux file entries for the % index. The easiest way to prevent this problem is to make sure % there is some text. \putwordIndexNonexistent \else % % If the index file exists but is empty, then \openin leaves \ifeof % false. We have to make TeX try to read something from the file, so % it can discover if there is anything in it. \read 1 to \temp \ifeof 1 \putwordIndexIsEmpty \else % Index files are almost Texinfo source, but we use \ as the escape % character. It would be better to use @, but that's too big a change % to make right now. \def\indexbackslash{\backslashcurfont}% \catcode`\\ = 0 \escapechar = `\\ \begindoublecolumns \input \jobname.#1s \enddoublecolumns \fi \fi \closein 1 \endgroup} % These macros are used by the sorted index file itself. % Change them to control the appearance of the index. \def\initial#1{{% % Some minor font changes for the special characters. \let\tentt=\sectt \let\tt=\sectt \let\sf=\sectt % % Remove any glue we may have, we'll be inserting our own. \removelastskip % % We like breaks before the index initials, so insert a bonus. \nobreak \vskip 0pt plus 3\baselineskip \penalty 0 \vskip 0pt plus -3\baselineskip % % Typeset the initial. Making this add up to a whole number of % baselineskips increases the chance of the dots lining up from column % to column. It still won't often be perfect, because of the stretch % we need before each entry, but it's better. % % No shrink because it confuses \balancecolumns. \vskip 1.67\baselineskip plus .5\baselineskip \leftline{\secbf #1}% % Do our best not to break after the initial. \nobreak \vskip .33\baselineskip plus .1\baselineskip }} % \entry typesets a paragraph consisting of the text (#1), dot leaders, and % then page number (#2) flushed to the right margin. It is used for index % and table of contents entries. The paragraph is indented by \leftskip. % % A straightforward implementation would start like this: % \def\entry#1#2{... % But this freezes the catcodes in the argument, and can cause problems to % @code, which sets - active. This problem was fixed by a kludge--- % ``-'' was active throughout whole index, but this isn't really right. % % The right solution is to prevent \entry from swallowing the whole text. % --kasal, 21nov03 \def\entry{% \begingroup % % Start a new paragraph if necessary, so our assignments below can't % affect previous text. \par % % Do not fill out the last line with white space. \parfillskip = 0in % % No extra space above this paragraph. \parskip = 0in % % Do not prefer a separate line ending with a hyphen to fewer lines. \finalhyphendemerits = 0 % % \hangindent is only relevant when the entry text and page number % don't both fit on one line. In that case, bob suggests starting the % dots pretty far over on the line. Unfortunately, a large % indentation looks wrong when the entry text itself is broken across % lines. So we use a small indentation and put up with long leaders. % % \hangafter is reset to 1 (which is the value we want) at the start % of each paragraph, so we need not do anything with that. \hangindent = 2em % % When the entry text needs to be broken, just fill out the first line % with blank space. \rightskip = 0pt plus1fil % % A bit of stretch before each entry for the benefit of balancing % columns. \vskip 0pt plus1pt % % Swallow the left brace of the text (first parameter): \afterassignment\doentry \let\temp = } \def\doentry{% \bgroup % Instead of the swallowed brace. \noindent \aftergroup\finishentry % And now comes the text of the entry. } \def\finishentry#1{% % #1 is the page number. % % The following is kludged to not output a line of dots in the index if % there are no page numbers. The next person who breaks this will be % cursed by a Unix daemon. \setbox\boxA = \hbox{#1}% \ifdim\wd\boxA = 0pt \ % \else % % If we must, put the page number on a line of its own, and fill out % this line with blank space. (The \hfil is overwhelmed with the % fill leaders glue in \indexdotfill if the page number does fit.) \hfil\penalty50 \null\nobreak\indexdotfill % Have leaders before the page number. % % The `\ ' here is removed by the implicit \unskip that TeX does as % part of (the primitive) \par. Without it, a spurious underfull % \hbox ensues. \ifpdf \pdfgettoks#1.% \ \the\toksA \else \ #1% \fi \fi \par \endgroup } % Like plain.tex's \dotfill, except uses up at least 1 em. \def\indexdotfill{\cleaders \hbox{$\mathsurround=0pt \mkern1.5mu.\mkern1.5mu$}\hskip 1em plus 1fill} \def\primary #1{\line{#1\hfil}} \newskip\secondaryindent \secondaryindent=0.5cm \def\secondary#1#2{{% \parfillskip=0in \parskip=0in \hangindent=1in \hangafter=1 \noindent\hskip\secondaryindent\hbox{#1}\indexdotfill \ifpdf \pdfgettoks#2.\ \the\toksA % The page number ends the paragraph. \else #2 \fi \par }} % Define two-column mode, which we use to typeset indexes. % Adapted from the TeXbook, page 416, which is to say, % the manmac.tex format used to print the TeXbook itself. \catcode`\@=11 \newbox\partialpage \newdimen\doublecolumnhsize \def\begindoublecolumns{\begingroup % ended by \enddoublecolumns % Grab any single-column material above us. \output = {% % % Here is a possibility not foreseen in manmac: if we accumulate a % whole lot of material, we might end up calling this \output % routine twice in a row (see the doublecol-lose test, which is % essentially a couple of indexes with @setchapternewpage off). In % that case we just ship out what is in \partialpage with the normal % output routine. Generally, \partialpage will be empty when this % runs and this will be a no-op. See the indexspread.tex test case. \ifvoid\partialpage \else \onepageout{\pagecontents\partialpage}% \fi % \global\setbox\partialpage = \vbox{% % Unvbox the main output page. \unvbox\PAGE \kern-\topskip \kern\baselineskip }% }% \eject % run that output routine to set \partialpage % % Use the double-column output routine for subsequent pages. \output = {\doublecolumnout}% % % Change the page size parameters. We could do this once outside this % routine, in each of @smallbook, @afourpaper, and the default 8.5x11 % format, but then we repeat the same computation. Repeating a couple % of assignments once per index is clearly meaningless for the % execution time, so we may as well do it in one place. % % First we halve the line length, less a little for the gutter between % the columns. We compute the gutter based on the line length, so it % changes automatically with the paper format. The magic constant % below is chosen so that the gutter has the same value (well, +-<1pt) % as it did when we hard-coded it. % % We put the result in a separate register, \doublecolumhsize, so we % can restore it in \pagesofar, after \hsize itself has (potentially) % been clobbered. % \doublecolumnhsize = \hsize \advance\doublecolumnhsize by -.04154\hsize \divide\doublecolumnhsize by 2 \hsize = \doublecolumnhsize % % Double the \vsize as well. (We don't need a separate register here, % since nobody clobbers \vsize.) \vsize = 2\vsize } % The double-column output routine for all double-column pages except % the last. % \def\doublecolumnout{% \splittopskip=\topskip \splitmaxdepth=\maxdepth % Get the available space for the double columns -- the normal % (undoubled) page height minus any material left over from the % previous page. \dimen@ = \vsize \divide\dimen@ by 2 \advance\dimen@ by -\ht\partialpage % % box0 will be the left-hand column, box2 the right. \setbox0=\vsplit255 to\dimen@ \setbox2=\vsplit255 to\dimen@ \onepageout\pagesofar \unvbox255 \penalty\outputpenalty } % % Re-output the contents of the output page -- any previous material, % followed by the two boxes we just split, in box0 and box2. \def\pagesofar{% \unvbox\partialpage % \hsize = \doublecolumnhsize \wd0=\hsize \wd2=\hsize \hbox to\pagewidth{\box0\hfil\box2}% } % % All done with double columns. \def\enddoublecolumns{% % The following penalty ensures that the page builder is exercised % _before_ we change the output routine. This is necessary in the % following situation: % % The last section of the index consists only of a single entry. % Before this section, \pagetotal is less than \pagegoal, so no % break occurs before the last section starts. However, the last % section, consisting of \initial and the single \entry, does not % fit on the page and has to be broken off. Without the following % penalty the page builder will not be exercised until \eject % below, and by that time we'll already have changed the output % routine to the \balancecolumns version, so the next-to-last % double-column page will be processed with \balancecolumns, which % is wrong: The two columns will go to the main vertical list, with % the broken-off section in the recent contributions. As soon as % the output routine finishes, TeX starts reconsidering the page % break. The two columns and the broken-off section both fit on the % page, because the two columns now take up only half of the page % goal. When TeX sees \eject from below which follows the final % section, it invokes the new output routine that we've set after % \balancecolumns below; \onepageout will try to fit the two columns % and the final section into the vbox of \pageheight (see % \pagebody), causing an overfull box. % % Note that glue won't work here, because glue does not exercise the % page builder, unlike penalties (see The TeXbook, pp. 280-281). \penalty0 % \output = {% % Split the last of the double-column material. Leave it on the % current page, no automatic page break. \balancecolumns % % If we end up splitting too much material for the current page, % though, there will be another page break right after this \output % invocation ends. Having called \balancecolumns once, we do not % want to call it again. Therefore, reset \output to its normal % definition right away. (We hope \balancecolumns will never be % called on to balance too much material, but if it is, this makes % the output somewhat more palatable.) \global\output = {\onepageout{\pagecontents\PAGE}}% }% \eject \endgroup % started in \begindoublecolumns % % \pagegoal was set to the doubled \vsize above, since we restarted % the current page. We're now back to normal single-column % typesetting, so reset \pagegoal to the normal \vsize (after the % \endgroup where \vsize got restored). \pagegoal = \vsize } % % Called at the end of the double column material. \def\balancecolumns{% \setbox0 = \vbox{\unvbox255}% like \box255 but more efficient, see p.120. \dimen@ = \ht0 \advance\dimen@ by \topskip \advance\dimen@ by-\baselineskip \divide\dimen@ by 2 % target to split to %debug\message{final 2-column material height=\the\ht0, target=\the\dimen@.}% \splittopskip = \topskip % Loop until we get a decent breakpoint. {% \vbadness = 10000 \loop \global\setbox3 = \copy0 \global\setbox1 = \vsplit3 to \dimen@ \ifdim\ht3>\dimen@ \global\advance\dimen@ by 1pt \repeat }% %debug\message{split to \the\dimen@, column heights: \the\ht1, \the\ht3.}% \setbox0=\vbox to\dimen@{\unvbox1}% \setbox2=\vbox to\dimen@{\unvbox3}% % \pagesofar } \catcode`\@ = \other \message{sectioning,} % Chapters, sections, etc. % \unnumberedno is an oxymoron, of course. But we count the unnumbered % sections so that we can refer to them unambiguously in the pdf % outlines by their "section number". We avoid collisions with chapter % numbers by starting them at 10000. (If a document ever has 10000 % chapters, we're in trouble anyway, I'm sure.) \newcount\unnumberedno \unnumberedno = 10000 \newcount\chapno \newcount\secno \secno=0 \newcount\subsecno \subsecno=0 \newcount\subsubsecno \subsubsecno=0 % This counter is funny since it counts through charcodes of letters A, B, ... \newcount\appendixno \appendixno = `\@ % % \def\appendixletter{\char\the\appendixno} % We do the following ugly conditional instead of the above simple % construct for the sake of pdftex, which needs the actual % letter in the expansion, not just typeset. % \def\appendixletter{% \ifnum\appendixno=`A A% \else\ifnum\appendixno=`B B% \else\ifnum\appendixno=`C C% \else\ifnum\appendixno=`D D% \else\ifnum\appendixno=`E E% \else\ifnum\appendixno=`F F% \else\ifnum\appendixno=`G G% \else\ifnum\appendixno=`H H% \else\ifnum\appendixno=`I I% \else\ifnum\appendixno=`J J% \else\ifnum\appendixno=`K K% \else\ifnum\appendixno=`L L% \else\ifnum\appendixno=`M M% \else\ifnum\appendixno=`N N% \else\ifnum\appendixno=`O O% \else\ifnum\appendixno=`P P% \else\ifnum\appendixno=`Q Q% \else\ifnum\appendixno=`R R% \else\ifnum\appendixno=`S S% \else\ifnum\appendixno=`T T% \else\ifnum\appendixno=`U U% \else\ifnum\appendixno=`V V% \else\ifnum\appendixno=`W W% \else\ifnum\appendixno=`X X% \else\ifnum\appendixno=`Y Y% \else\ifnum\appendixno=`Z Z% % The \the is necessary, despite appearances, because \appendixletter is % expanded while writing the .toc file. \char\appendixno is not % expandable, thus it is written literally, thus all appendixes come out % with the same letter (or @) in the toc without it. \else\char\the\appendixno \fi\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi \fi\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi} % Each @chapter defines these (using marks) as the number+name, number % and name of the chapter. Page headings and footings can use % these. @section does likewise. \def\thischapter{} \def\thischapternum{} \def\thischaptername{} \def\thissection{} \def\thissectionnum{} \def\thissectionname{} \newcount\absseclevel % used to calculate proper heading level \newcount\secbase\secbase=0 % @raisesections/@lowersections modify this count % @raisesections: treat @section as chapter, @subsection as section, etc. \def\raisesections{\global\advance\secbase by -1} \let\up=\raisesections % original BFox name % @lowersections: treat @chapter as section, @section as subsection, etc. \def\lowersections{\global\advance\secbase by 1} \let\down=\lowersections % original BFox name % we only have subsub. \chardef\maxseclevel = 3 % % A numbered section within an unnumbered changes to unnumbered too. % To achive this, remember the "biggest" unnum. sec. we are currently in: \chardef\unmlevel = \maxseclevel % % Trace whether the current chapter is an appendix or not: % \chapheadtype is "N" or "A", unnumbered chapters are ignored. \def\chapheadtype{N} % Choose a heading macro % #1 is heading type % #2 is heading level % #3 is text for heading \def\genhead#1#2#3{% % Compute the abs. sec. level: \absseclevel=#2 \advance\absseclevel by \secbase % Make sure \absseclevel doesn't fall outside the range: \ifnum \absseclevel < 0 \absseclevel = 0 \else \ifnum \absseclevel > 3 \absseclevel = 3 \fi \fi % The heading type: \def\headtype{#1}% \if \headtype U% \ifnum \absseclevel < \unmlevel \chardef\unmlevel = \absseclevel \fi \else % Check for appendix sections: \ifnum \absseclevel = 0 \edef\chapheadtype{\headtype}% \else \if \headtype A\if \chapheadtype N% \errmessage{@appendix... within a non-appendix chapter}% \fi\fi \fi % Check for numbered within unnumbered: \ifnum \absseclevel > \unmlevel \def\headtype{U}% \else \chardef\unmlevel = 3 \fi \fi % Now print the heading: \if \headtype U% \ifcase\absseclevel \unnumberedzzz{#3}% \or \unnumberedseczzz{#3}% \or \unnumberedsubseczzz{#3}% \or \unnumberedsubsubseczzz{#3}% \fi \else \if \headtype A% \ifcase\absseclevel \appendixzzz{#3}% \or \appendixsectionzzz{#3}% \or \appendixsubseczzz{#3}% \or \appendixsubsubseczzz{#3}% \fi \else \ifcase\absseclevel \chapterzzz{#3}% \or \seczzz{#3}% \or \numberedsubseczzz{#3}% \or \numberedsubsubseczzz{#3}% \fi \fi \fi \suppressfirstparagraphindent } % an interface: \def\numhead{\genhead N} \def\apphead{\genhead A} \def\unnmhead{\genhead U} % @chapter, @appendix, @unnumbered. Increment top-level counter, reset % all lower-level sectioning counters to zero. % % Also set \chaplevelprefix, which we prepend to @float sequence numbers % (e.g., figures), q.v. By default (before any chapter), that is empty. \let\chaplevelprefix = \empty % \outer\parseargdef\chapter{\numhead0{#1}} % normally numhead0 calls chapterzzz \def\chapterzzz#1{% % section resetting is \global in case the chapter is in a group, such % as an @include file. \global\secno=0 \global\subsecno=0 \global\subsubsecno=0 \global\advance\chapno by 1 % % Used for \float. \gdef\chaplevelprefix{\the\chapno.}% \resetallfloatnos % % \putwordChapter can contain complex things in translations. \toks0=\expandafter{\putwordChapter}% \message{\the\toks0 \space \the\chapno}% % % Write the actual heading. \chapmacro{#1}{Ynumbered}{\the\chapno}% % % So @section and the like are numbered underneath this chapter. \global\let\section = \numberedsec \global\let\subsection = \numberedsubsec \global\let\subsubsection = \numberedsubsubsec } \outer\parseargdef\appendix{\apphead0{#1}} % normally calls appendixzzz % \def\appendixzzz#1{% \global\secno=0 \global\subsecno=0 \global\subsubsecno=0 \global\advance\appendixno by 1 \gdef\chaplevelprefix{\appendixletter.}% \resetallfloatnos % % \putwordAppendix can contain complex things in translations. \toks0=\expandafter{\putwordAppendix}% \message{\the\toks0 \space \appendixletter}% % \chapmacro{#1}{Yappendix}{\appendixletter}% % \global\let\section = \appendixsec \global\let\subsection = \appendixsubsec \global\let\subsubsection = \appendixsubsubsec } \outer\parseargdef\unnumbered{\unnmhead0{#1}} % normally unnmhead0 calls unnumberedzzz \def\unnumberedzzz#1{% \global\secno=0 \global\subsecno=0 \global\subsubsecno=0 \global\advance\unnumberedno by 1 % % Since an unnumbered has no number, no prefix for figures. \global\let\chaplevelprefix = \empty \resetallfloatnos % % This used to be simply \message{#1}, but TeX fully expands the % argument to \message. Therefore, if #1 contained @-commands, TeX % expanded them. For example, in `@unnumbered The @cite{Book}', TeX % expanded @cite (which turns out to cause errors because \cite is meant % to be executed, not expanded). % % Anyway, we don't want the fully-expanded definition of @cite to appear % as a result of the \message, we just want `@cite' itself. We use % \the to achieve this: TeX expands \the only once, % simply yielding the contents of . (We also do this for % the toc entries.) \toks0 = {#1}% \message{(\the\toks0)}% % \chapmacro{#1}{Ynothing}{\the\unnumberedno}% % \global\let\section = \unnumberedsec \global\let\subsection = \unnumberedsubsec \global\let\subsubsection = \unnumberedsubsubsec } % @centerchap is like @unnumbered, but the heading is centered. \outer\parseargdef\centerchap{% % Well, we could do the following in a group, but that would break % an assumption that \chapmacro is called at the outermost level. % Thus we are safer this way: --kasal, 24feb04 \let\centerparametersmaybe = \centerparameters \unnmhead0{#1}% \let\centerparametersmaybe = \relax } % @top is like @unnumbered. \let\top\unnumbered % Sections. \outer\parseargdef\numberedsec{\numhead1{#1}} % normally calls seczzz \def\seczzz#1{% \global\subsecno=0 \global\subsubsecno=0 \global\advance\secno by 1 \sectionheading{#1}{sec}{Ynumbered}{\the\chapno.\the\secno}% } \outer\parseargdef\appendixsection{\apphead1{#1}} % normally calls appendixsectionzzz \def\appendixsectionzzz#1{% \global\subsecno=0 \global\subsubsecno=0 \global\advance\secno by 1 \sectionheading{#1}{sec}{Yappendix}{\appendixletter.\the\secno}% } \let\appendixsec\appendixsection \outer\parseargdef\unnumberedsec{\unnmhead1{#1}} % normally calls unnumberedseczzz \def\unnumberedseczzz#1{% \global\subsecno=0 \global\subsubsecno=0 \global\advance\secno by 1 \sectionheading{#1}{sec}{Ynothing}{\the\unnumberedno.\the\secno}% } % Subsections. \outer\parseargdef\numberedsubsec{\numhead2{#1}} % normally calls numberedsubseczzz \def\numberedsubseczzz#1{% \global\subsubsecno=0 \global\advance\subsecno by 1 \sectionheading{#1}{subsec}{Ynumbered}{\the\chapno.\the\secno.\the\subsecno}% } \outer\parseargdef\appendixsubsec{\apphead2{#1}} % normally calls appendixsubseczzz \def\appendixsubseczzz#1{% \global\subsubsecno=0 \global\advance\subsecno by 1 \sectionheading{#1}{subsec}{Yappendix}% {\appendixletter.\the\secno.\the\subsecno}% } \outer\parseargdef\unnumberedsubsec{\unnmhead2{#1}} %normally calls unnumberedsubseczzz \def\unnumberedsubseczzz#1{% \global\subsubsecno=0 \global\advance\subsecno by 1 \sectionheading{#1}{subsec}{Ynothing}% {\the\unnumberedno.\the\secno.\the\subsecno}% } % Subsubsections. \outer\parseargdef\numberedsubsubsec{\numhead3{#1}} % normally numberedsubsubseczzz \def\numberedsubsubseczzz#1{% \global\advance\subsubsecno by 1 \sectionheading{#1}{subsubsec}{Ynumbered}% {\the\chapno.\the\secno.\the\subsecno.\the\subsubsecno}% } \outer\parseargdef\appendixsubsubsec{\apphead3{#1}} % normally appendixsubsubseczzz \def\appendixsubsubseczzz#1{% \global\advance\subsubsecno by 1 \sectionheading{#1}{subsubsec}{Yappendix}% {\appendixletter.\the\secno.\the\subsecno.\the\subsubsecno}% } \outer\parseargdef\unnumberedsubsubsec{\unnmhead3{#1}} %normally unnumberedsubsubseczzz \def\unnumberedsubsubseczzz#1{% \global\advance\subsubsecno by 1 \sectionheading{#1}{subsubsec}{Ynothing}% {\the\unnumberedno.\the\secno.\the\subsecno.\the\subsubsecno}% } % These macros control what the section commands do, according % to what kind of chapter we are in (ordinary, appendix, or unnumbered). % Define them by default for a numbered chapter. \let\section = \numberedsec \let\subsection = \numberedsubsec \let\subsubsection = \numberedsubsubsec % Define @majorheading, @heading and @subheading % NOTE on use of \vbox for chapter headings, section headings, and such: % 1) We use \vbox rather than the earlier \line to permit % overlong headings to fold. % 2) \hyphenpenalty is set to 10000 because hyphenation in a % heading is obnoxious; this forbids it. % 3) Likewise, headings look best if no \parindent is used, and % if justification is not attempted. Hence \raggedright. \def\majorheading{% {\advance\chapheadingskip by 10pt \chapbreak }% \parsearg\chapheadingzzz } \def\chapheading{\chapbreak \parsearg\chapheadingzzz} \def\chapheadingzzz#1{% {\chapfonts \vbox{\hyphenpenalty=10000\tolerance=5000 \parindent=0pt\ptexraggedright \rmisbold #1\hfill}}% \bigskip \par\penalty 200\relax \suppressfirstparagraphindent } % @heading, @subheading, @subsubheading. \parseargdef\heading{\sectionheading{#1}{sec}{Yomitfromtoc}{} \suppressfirstparagraphindent} \parseargdef\subheading{\sectionheading{#1}{subsec}{Yomitfromtoc}{} \suppressfirstparagraphindent} \parseargdef\subsubheading{\sectionheading{#1}{subsubsec}{Yomitfromtoc}{} \suppressfirstparagraphindent} % These macros generate a chapter, section, etc. heading only % (including whitespace, linebreaking, etc. around it), % given all the information in convenient, parsed form. %%% Args are the skip and penalty (usually negative) \def\dobreak#1#2{\par\ifdim\lastskip<#1\removelastskip\penalty#2\vskip#1\fi} %%% Define plain chapter starts, and page on/off switching for it % Parameter controlling skip before chapter headings (if needed) \newskip\chapheadingskip \def\chapbreak{\dobreak \chapheadingskip {-4000}} \def\chappager{\par\vfill\supereject} % Because \domark is called before \chapoddpage, the filler page will % get the headings for the next chapter, which is wrong. But we don't % care -- we just disable all headings on the filler page. \def\chapoddpage{% \chappager \ifodd\pageno \else \begingroup \evenheadline={\hfil}\evenfootline={\hfil}% \oddheadline={\hfil}\oddfootline={\hfil}% \hbox to 0pt{}% \chappager \endgroup \fi } \def\setchapternewpage #1 {\csname CHAPPAG#1\endcsname} \def\CHAPPAGoff{% \global\let\contentsalignmacro = \chappager \global\let\pchapsepmacro=\chapbreak \global\let\pagealignmacro=\chappager} \def\CHAPPAGon{% \global\let\contentsalignmacro = \chappager \global\let\pchapsepmacro=\chappager \global\let\pagealignmacro=\chappager \global\def\HEADINGSon{\HEADINGSsingle}} \def\CHAPPAGodd{% \global\let\contentsalignmacro = \chapoddpage \global\let\pchapsepmacro=\chapoddpage \global\let\pagealignmacro=\chapoddpage \global\def\HEADINGSon{\HEADINGSdouble}} \CHAPPAGon % Chapter opening. % % #1 is the text, #2 is the section type (Ynumbered, Ynothing, % Yappendix, Yomitfromtoc), #3 the chapter number. % % To test against our argument. \def\Ynothingkeyword{Ynothing} \def\Yomitfromtockeyword{Yomitfromtoc} \def\Yappendixkeyword{Yappendix} % \def\chapmacro#1#2#3{% % Insert the first mark before the heading break (see notes for \domark). \let\prevchapterdefs=\lastchapterdefs \let\prevsectiondefs=\lastsectiondefs \gdef\lastsectiondefs{\gdef\thissectionname{}\gdef\thissectionnum{}% \gdef\thissection{}}% % \def\temptype{#2}% \ifx\temptype\Ynothingkeyword \gdef\lastchapterdefs{\gdef\thischaptername{#1}\gdef\thischapternum{}% \gdef\thischapter{\thischaptername}}% \else\ifx\temptype\Yomitfromtockeyword \gdef\lastchapterdefs{\gdef\thischaptername{#1}\gdef\thischapternum{}% \gdef\thischapter{}}% \else\ifx\temptype\Yappendixkeyword \toks0={#1}% \xdef\lastchapterdefs{% \gdef\noexpand\thischaptername{\the\toks0}% \gdef\noexpand\thischapternum{\appendixletter}% % \noexpand\putwordAppendix avoids expanding indigestible % commands in some of the translations. \gdef\noexpand\thischapter{\noexpand\putwordAppendix{} \noexpand\thischapternum: \noexpand\thischaptername}% }% \else \toks0={#1}% \xdef\lastchapterdefs{% \gdef\noexpand\thischaptername{\the\toks0}% \gdef\noexpand\thischapternum{\the\chapno}% % \noexpand\putwordChapter avoids expanding indigestible % commands in some of the translations. \gdef\noexpand\thischapter{\noexpand\putwordChapter{} \noexpand\thischapternum: \noexpand\thischaptername}% }% \fi\fi\fi % % Output the mark. Pass it through \safewhatsit, to take care of % the preceding space. \safewhatsit\domark % % Insert the chapter heading break. \pchapsepmacro % % Now the second mark, after the heading break. No break points % between here and the heading. \let\prevchapterdefs=\lastchapterdefs \let\prevsectiondefs=\lastsectiondefs \domark % {% \chapfonts \rmisbold % % Have to define \lastsection before calling \donoderef, because the % xref code eventually uses it. On the other hand, it has to be called % after \pchapsepmacro, or the headline will change too soon. \gdef\lastsection{#1}% % % Only insert the separating space if we have a chapter/appendix % number, and don't print the unnumbered ``number''. \ifx\temptype\Ynothingkeyword \setbox0 = \hbox{}% \def\toctype{unnchap}% \else\ifx\temptype\Yomitfromtockeyword \setbox0 = \hbox{}% contents like unnumbered, but no toc entry \def\toctype{omit}% \else\ifx\temptype\Yappendixkeyword \setbox0 = \hbox{\putwordAppendix{} #3\enspace}% \def\toctype{app}% \else \setbox0 = \hbox{#3\enspace}% \def\toctype{numchap}% \fi\fi\fi % % Write the toc entry for this chapter. Must come before the % \donoderef, because we include the current node name in the toc % entry, and \donoderef resets it to empty. \writetocentry{\toctype}{#1}{#3}% % % For pdftex, we have to write out the node definition (aka, make % the pdfdest) after any page break, but before the actual text has % been typeset. If the destination for the pdf outline is after the % text, then jumping from the outline may wind up with the text not % being visible, for instance under high magnification. \donoderef{#2}% % % Typeset the actual heading. \nobreak % Avoid page breaks at the interline glue. \vbox{\hyphenpenalty=10000 \tolerance=5000 \parindent=0pt \ptexraggedright \hangindent=\wd0 \centerparametersmaybe \unhbox0 #1\par}% }% \nobreak\bigskip % no page break after a chapter title \nobreak } % @centerchap -- centered and unnumbered. \let\centerparametersmaybe = \relax \def\centerparameters{% \advance\rightskip by 3\rightskip \leftskip = \rightskip \parfillskip = 0pt } % I don't think this chapter style is supported any more, so I'm not % updating it with the new noderef stuff. We'll see. --karl, 11aug03. % \def\setchapterstyle #1 {\csname CHAPF#1\endcsname} % \def\unnchfopen #1{% \chapoddpage {\chapfonts \vbox{\hyphenpenalty=10000\tolerance=5000 \parindent=0pt\ptexraggedright \rmisbold #1\hfill}}\bigskip \par\nobreak } \def\chfopen #1#2{\chapoddpage {\chapfonts \vbox to 3in{\vfil \hbox to\hsize{\hfil #2} \hbox to\hsize{\hfil #1} \vfil}}% \par\penalty 5000 % } \def\centerchfopen #1{% \chapoddpage {\chapfonts \vbox{\hyphenpenalty=10000\tolerance=5000 \parindent=0pt \hfill {\rmisbold #1}\hfill}}\bigskip \par\nobreak } \def\CHAPFopen{% \global\let\chapmacro=\chfopen \global\let\centerchapmacro=\centerchfopen} % Section titles. These macros combine the section number parts and % call the generic \sectionheading to do the printing. % \newskip\secheadingskip \def\secheadingbreak{\dobreak \secheadingskip{-1000}} % Subsection titles. \newskip\subsecheadingskip \def\subsecheadingbreak{\dobreak \subsecheadingskip{-500}} % Subsubsection titles. \def\subsubsecheadingskip{\subsecheadingskip} \def\subsubsecheadingbreak{\subsecheadingbreak} % Print any size, any type, section title. % % #1 is the text, #2 is the section level (sec/subsec/subsubsec), #3 is % the section type for xrefs (Ynumbered, Ynothing, Yappendix), #4 is the % section number. % \def\seckeyword{sec} % \def\sectionheading#1#2#3#4{% {% % Switch to the right set of fonts. \csname #2fonts\endcsname \rmisbold % \def\sectionlevel{#2}% \def\temptype{#3}% % % Insert first mark before the heading break (see notes for \domark). \let\prevsectiondefs=\lastsectiondefs \ifx\temptype\Ynothingkeyword \ifx\sectionlevel\seckeyword \gdef\lastsectiondefs{\gdef\thissectionname{#1}\gdef\thissectionnum{}% \gdef\thissection{\thissectionname}}% \fi \else\ifx\temptype\Yomitfromtockeyword % Don't redefine \thissection. \else\ifx\temptype\Yappendixkeyword \ifx\sectionlevel\seckeyword \toks0={#1}% \xdef\lastsectiondefs{% \gdef\noexpand\thissectionname{\the\toks0}% \gdef\noexpand\thissectionnum{#4}% % \noexpand\putwordSection avoids expanding indigestible % commands in some of the translations. \gdef\noexpand\thissection{\noexpand\putwordSection{} \noexpand\thissectionnum: \noexpand\thissectionname}% }% \fi \else \ifx\sectionlevel\seckeyword \toks0={#1}% \xdef\lastsectiondefs{% \gdef\noexpand\thissectionname{\the\toks0}% \gdef\noexpand\thissectionnum{#4}% % \noexpand\putwordSection avoids expanding indigestible % commands in some of the translations. \gdef\noexpand\thissection{\noexpand\putwordSection{} \noexpand\thissectionnum: \noexpand\thissectionname}% }% \fi \fi\fi\fi % % Go into vertical mode. Usually we'll already be there, but we % don't want the following whatsit to end up in a preceding paragraph % if the document didn't happen to have a blank line. \par % % Output the mark. Pass it through \safewhatsit, to take care of % the preceding space. \safewhatsit\domark % % Insert space above the heading. \csname #2headingbreak\endcsname % % Now the second mark, after the heading break. No break points % between here and the heading. \let\prevsectiondefs=\lastsectiondefs \domark % % Only insert the space after the number if we have a section number. \ifx\temptype\Ynothingkeyword \setbox0 = \hbox{}% \def\toctype{unn}% \gdef\lastsection{#1}% \else\ifx\temptype\Yomitfromtockeyword % for @headings -- no section number, don't include in toc, % and don't redefine \lastsection. \setbox0 = \hbox{}% \def\toctype{omit}% \let\sectionlevel=\empty \else\ifx\temptype\Yappendixkeyword \setbox0 = \hbox{#4\enspace}% \def\toctype{app}% \gdef\lastsection{#1}% \else \setbox0 = \hbox{#4\enspace}% \def\toctype{num}% \gdef\lastsection{#1}% \fi\fi\fi % % Write the toc entry (before \donoderef). See comments in \chapmacro. \writetocentry{\toctype\sectionlevel}{#1}{#4}% % % Write the node reference (= pdf destination for pdftex). % Again, see comments in \chapmacro. \donoderef{#3}% % % Interline glue will be inserted when the vbox is completed. % That glue will be a valid breakpoint for the page, since it'll be % preceded by a whatsit (usually from the \donoderef, or from the % \writetocentry if there was no node). We don't want to allow that % break, since then the whatsits could end up on page n while the % section is on page n+1, thus toc/etc. are wrong. Debian bug 276000. \nobreak % % Output the actual section heading. \vbox{\hyphenpenalty=10000 \tolerance=5000 \parindent=0pt \ptexraggedright \hangindent=\wd0 % zero if no section number \unhbox0 #1}% }% % Add extra space after the heading -- half of whatever came above it. % Don't allow stretch, though. \kern .5 \csname #2headingskip\endcsname % % Do not let the kern be a potential breakpoint, as it would be if it % was followed by glue. \nobreak % % We'll almost certainly start a paragraph next, so don't let that % glue accumulate. (Not a breakpoint because it's preceded by a % discardable item.) \vskip-\parskip % % This is purely so the last item on the list is a known \penalty > % 10000. This is so \startdefun can avoid allowing breakpoints after % section headings. Otherwise, it would insert a valid breakpoint between: % % @section sec-whatever % @deffn def-whatever \penalty 10001 } \message{toc,} % Table of contents. \newwrite\tocfile % Write an entry to the toc file, opening it if necessary. % Called from @chapter, etc. % % Example usage: \writetocentry{sec}{Section Name}{\the\chapno.\the\secno} % We append the current node name (if any) and page number as additional % arguments for the \{chap,sec,...}entry macros which will eventually % read this. The node name is used in the pdf outlines as the % destination to jump to. % % We open the .toc file for writing here instead of at @setfilename (or % any other fixed time) so that @contents can be anywhere in the document. % But if #1 is `omit', then we don't do anything. This is used for the % table of contents chapter openings themselves. % \newif\iftocfileopened \def\omitkeyword{omit}% % \def\writetocentry#1#2#3{% \edef\writetoctype{#1}% \ifx\writetoctype\omitkeyword \else \iftocfileopened\else \immediate\openout\tocfile = \jobname.toc \global\tocfileopenedtrue \fi % \iflinks {\atdummies \edef\temp{% \write\tocfile{@#1entry{#2}{#3}{\lastnode}{\noexpand\folio}}}% \temp }% \fi \fi % % Tell \shipout to create a pdf destination on each page, if we're % writing pdf. These are used in the table of contents. We can't % just write one on every page because the title pages are numbered % 1 and 2 (the page numbers aren't printed), and so are the first % two pages of the document. Thus, we'd have two destinations named % `1', and two named `2'. \ifpdf \global\pdfmakepagedesttrue \fi } % These characters do not print properly in the Computer Modern roman % fonts, so we must take special care. This is more or less redundant % with the Texinfo input format setup at the end of this file. % \def\activecatcodes{% \catcode`\"=\active \catcode`\$=\active \catcode`\<=\active \catcode`\>=\active \catcode`\\=\active \catcode`\^=\active \catcode`\_=\active \catcode`\|=\active \catcode`\~=\active } % Read the toc file, which is essentially Texinfo input. \def\readtocfile{% \setupdatafile \activecatcodes \input \tocreadfilename } \newskip\contentsrightmargin \contentsrightmargin=1in \newcount\savepageno \newcount\lastnegativepageno \lastnegativepageno = -1 % Prepare to read what we've written to \tocfile. % \def\startcontents#1{% % If @setchapternewpage on, and @headings double, the contents should % start on an odd page, unlike chapters. Thus, we maintain % \contentsalignmacro in parallel with \pagealignmacro. % From: Torbjorn Granlund \contentsalignmacro \immediate\closeout\tocfile % % Don't need to put `Contents' or `Short Contents' in the headline. % It is abundantly clear what they are. \chapmacro{#1}{Yomitfromtoc}{}% % \savepageno = \pageno \begingroup % Set up to handle contents files properly. \raggedbottom % Worry more about breakpoints than the bottom. \advance\hsize by -\contentsrightmargin % Don't use the full line length. % % Roman numerals for page numbers. \ifnum \pageno>0 \global\pageno = \lastnegativepageno \fi } % redefined for the two-volume lispref. We always output on % \jobname.toc even if this is redefined. % \def\tocreadfilename{\jobname.toc} % Normal (long) toc. % \def\contents{% \startcontents{\putwordTOC}% \openin 1 \tocreadfilename\space \ifeof 1 \else \readtocfile \fi \vfill \eject \contentsalignmacro % in case @setchapternewpage odd is in effect \ifeof 1 \else \pdfmakeoutlines \fi \closein 1 \endgroup \lastnegativepageno = \pageno \global\pageno = \savepageno } % And just the chapters. \def\summarycontents{% \startcontents{\putwordShortTOC}% % \let\numchapentry = \shortchapentry \let\appentry = \shortchapentry \let\unnchapentry = \shortunnchapentry % We want a true roman here for the page numbers. \secfonts \let\rm=\shortcontrm \let\bf=\shortcontbf \let\sl=\shortcontsl \let\tt=\shortconttt \rm \hyphenpenalty = 10000 \advance\baselineskip by 1pt % Open it up a little. \def\numsecentry##1##2##3##4{} \let\appsecentry = \numsecentry \let\unnsecentry = \numsecentry \let\numsubsecentry = \numsecentry \let\appsubsecentry = \numsecentry \let\unnsubsecentry = \numsecentry \let\numsubsubsecentry = \numsecentry \let\appsubsubsecentry = \numsecentry \let\unnsubsubsecentry = \numsecentry \openin 1 \tocreadfilename\space \ifeof 1 \else \readtocfile \fi \closein 1 \vfill \eject \contentsalignmacro % in case @setchapternewpage odd is in effect \endgroup \lastnegativepageno = \pageno \global\pageno = \savepageno } \let\shortcontents = \summarycontents % Typeset the label for a chapter or appendix for the short contents. % The arg is, e.g., `A' for an appendix, or `3' for a chapter. % \def\shortchaplabel#1{% % This space should be enough, since a single number is .5em, and the % widest letter (M) is 1em, at least in the Computer Modern fonts. % But use \hss just in case. % (This space doesn't include the extra space that gets added after % the label; that gets put in by \shortchapentry above.) % % We'd like to right-justify chapter numbers, but that looks strange % with appendix letters. And right-justifying numbers and % left-justifying letters looks strange when there is less than 10 % chapters. Have to read the whole toc once to know how many chapters % there are before deciding ... \hbox to 1em{#1\hss}% } % These macros generate individual entries in the table of contents. % The first argument is the chapter or section name. % The last argument is the page number. % The arguments in between are the chapter number, section number, ... % Chapters, in the main contents. \def\numchapentry#1#2#3#4{\dochapentry{#2\labelspace#1}{#4}} % % Chapters, in the short toc. % See comments in \dochapentry re vbox and related settings. \def\shortchapentry#1#2#3#4{% \tocentry{\shortchaplabel{#2}\labelspace #1}{\doshortpageno\bgroup#4\egroup}% } % Appendices, in the main contents. % Need the word Appendix, and a fixed-size box. % \def\appendixbox#1{% % We use M since it's probably the widest letter. \setbox0 = \hbox{\putwordAppendix{} M}% \hbox to \wd0{\putwordAppendix{} #1\hss}} % \def\appentry#1#2#3#4{\dochapentry{\appendixbox{#2}\labelspace#1}{#4}} % Unnumbered chapters. \def\unnchapentry#1#2#3#4{\dochapentry{#1}{#4}} \def\shortunnchapentry#1#2#3#4{\tocentry{#1}{\doshortpageno\bgroup#4\egroup}} % Sections. \def\numsecentry#1#2#3#4{\dosecentry{#2\labelspace#1}{#4}} \let\appsecentry=\numsecentry \def\unnsecentry#1#2#3#4{\dosecentry{#1}{#4}} % Subsections. \def\numsubsecentry#1#2#3#4{\dosubsecentry{#2\labelspace#1}{#4}} \let\appsubsecentry=\numsubsecentry \def\unnsubsecentry#1#2#3#4{\dosubsecentry{#1}{#4}} % And subsubsections. \def\numsubsubsecentry#1#2#3#4{\dosubsubsecentry{#2\labelspace#1}{#4}} \let\appsubsubsecentry=\numsubsubsecentry \def\unnsubsubsecentry#1#2#3#4{\dosubsubsecentry{#1}{#4}} % This parameter controls the indentation of the various levels. % Same as \defaultparindent. \newdimen\tocindent \tocindent = 15pt % Now for the actual typesetting. In all these, #1 is the text and #2 is the % page number. % % If the toc has to be broken over pages, we want it to be at chapters % if at all possible; hence the \penalty. \def\dochapentry#1#2{% \penalty-300 \vskip1\baselineskip plus.33\baselineskip minus.25\baselineskip \begingroup \chapentryfonts \tocentry{#1}{\dopageno\bgroup#2\egroup}% \endgroup \nobreak\vskip .25\baselineskip plus.1\baselineskip } \def\dosecentry#1#2{\begingroup \secentryfonts \leftskip=\tocindent \tocentry{#1}{\dopageno\bgroup#2\egroup}% \endgroup} \def\dosubsecentry#1#2{\begingroup \subsecentryfonts \leftskip=2\tocindent \tocentry{#1}{\dopageno\bgroup#2\egroup}% \endgroup} \def\dosubsubsecentry#1#2{\begingroup \subsubsecentryfonts \leftskip=3\tocindent \tocentry{#1}{\dopageno\bgroup#2\egroup}% \endgroup} % We use the same \entry macro as for the index entries. \let\tocentry = \entry % Space between chapter (or whatever) number and the title. \def\labelspace{\hskip1em \relax} \def\dopageno#1{{\rm #1}} \def\doshortpageno#1{{\rm #1}} \def\chapentryfonts{\secfonts \rm} \def\secentryfonts{\textfonts} \def\subsecentryfonts{\textfonts} \def\subsubsecentryfonts{\textfonts} \message{environments,} % @foo ... @end foo. % @tex ... @end tex escapes into raw Tex temporarily. % One exception: @ is still an escape character, so that @end tex works. % But \@ or @@ will get a plain tex @ character. \envdef\tex{% \setupmarkupstyle{tex}% \catcode `\\=0 \catcode `\{=1 \catcode `\}=2 \catcode `\$=3 \catcode `\&=4 \catcode `\#=6 \catcode `\^=7 \catcode `\_=8 \catcode `\~=\active \let~=\tie \catcode `\%=14 \catcode `\+=\other \catcode `\"=\other \catcode `\|=\other \catcode `\<=\other \catcode `\>=\other \catcode`\`=\other \catcode`\'=\other \escapechar=`\\ % \let\b=\ptexb \let\bullet=\ptexbullet \let\c=\ptexc \let\,=\ptexcomma \let\.=\ptexdot \let\dots=\ptexdots \let\equiv=\ptexequiv \let\!=\ptexexclam \let\i=\ptexi \let\indent=\ptexindent \let\noindent=\ptexnoindent \let\{=\ptexlbrace \let\+=\tabalign \let\}=\ptexrbrace \let\/=\ptexslash \let\*=\ptexstar \let\t=\ptext \expandafter \let\csname top\endcsname=\ptextop % outer \let\frenchspacing=\plainfrenchspacing % \def\endldots{\mathinner{\ldots\ldots\ldots\ldots}}% \def\enddots{\relax\ifmmode\endldots\else$\mathsurround=0pt \endldots\,$\fi}% \def\@{@}% } % There is no need to define \Etex. % Define @lisp ... @end lisp. % @lisp environment forms a group so it can rebind things, % including the definition of @end lisp (which normally is erroneous). % Amount to narrow the margins by for @lisp. \newskip\lispnarrowing \lispnarrowing=0.4in % This is the definition that ^^M gets inside @lisp, @example, and other % such environments. \null is better than a space, since it doesn't % have any width. \def\lisppar{\null\endgraf} % This space is always present above and below environments. \newskip\envskipamount \envskipamount = 0pt % Make spacing and below environment symmetrical. We use \parskip here % to help in doing that, since in @example-like environments \parskip % is reset to zero; thus the \afterenvbreak inserts no space -- but the % start of the next paragraph will insert \parskip. % \def\aboveenvbreak{{% % =10000 instead of <10000 because of a special case in \itemzzz and % \sectionheading, q.v. \ifnum \lastpenalty=10000 \else \advance\envskipamount by \parskip \endgraf \ifdim\lastskip<\envskipamount \removelastskip % it's not a good place to break if the last penalty was \nobreak % or better ... \ifnum\lastpenalty<10000 \penalty-50 \fi \vskip\envskipamount \fi \fi }} \let\afterenvbreak = \aboveenvbreak % \nonarrowing is a flag. If "set", @lisp etc don't narrow margins; it will % also clear it, so that its embedded environments do the narrowing again. \let\nonarrowing=\relax % @cartouche ... @end cartouche: draw rectangle w/rounded corners around % environment contents. \font\circle=lcircle10 \newdimen\circthick \newdimen\cartouter\newdimen\cartinner \newskip\normbskip\newskip\normpskip\newskip\normlskip \circthick=\fontdimen8\circle % \def\ctl{{\circle\char'013\hskip -6pt}}% 6pt from pl file: 1/2charwidth \def\ctr{{\hskip 6pt\circle\char'010}} \def\cbl{{\circle\char'012\hskip -6pt}} \def\cbr{{\hskip 6pt\circle\char'011}} \def\carttop{\hbox to \cartouter{\hskip\lskip \ctl\leaders\hrule height\circthick\hfil\ctr \hskip\rskip}} \def\cartbot{\hbox to \cartouter{\hskip\lskip \cbl\leaders\hrule height\circthick\hfil\cbr \hskip\rskip}} % \newskip\lskip\newskip\rskip \envdef\cartouche{% \ifhmode\par\fi % can't be in the midst of a paragraph. \startsavinginserts \lskip=\leftskip \rskip=\rightskip \leftskip=0pt\rightskip=0pt % we want these *outside*. \cartinner=\hsize \advance\cartinner by-\lskip \advance\cartinner by-\rskip \cartouter=\hsize \advance\cartouter by 18.4pt % allow for 3pt kerns on either % side, and for 6pt waste from % each corner char, and rule thickness \normbskip=\baselineskip \normpskip=\parskip \normlskip=\lineskip % Flag to tell @lisp, etc., not to narrow margin. \let\nonarrowing = t% \vbox\bgroup \baselineskip=0pt\parskip=0pt\lineskip=0pt \carttop \hbox\bgroup \hskip\lskip \vrule\kern3pt \vbox\bgroup \kern3pt \hsize=\cartinner \baselineskip=\normbskip \lineskip=\normlskip \parskip=\normpskip \vskip -\parskip \comment % For explanation, see the end of \def\group. } \def\Ecartouche{% \ifhmode\par\fi \kern3pt \egroup \kern3pt\vrule \hskip\rskip \egroup \cartbot \egroup \checkinserts } % This macro is called at the beginning of all the @example variants, % inside a group. \newdimen\nonfillparindent \def\nonfillstart{% \aboveenvbreak \hfuzz = 12pt % Don't be fussy \sepspaces % Make spaces be word-separators rather than space tokens. \let\par = \lisppar % don't ignore blank lines \obeylines % each line of input is a line of output \parskip = 0pt % Turn off paragraph indentation but redefine \indent to emulate % the normal \indent. \nonfillparindent=\parindent \parindent = 0pt \let\indent\nonfillindent % \emergencystretch = 0pt % don't try to avoid overfull boxes \ifx\nonarrowing\relax \advance \leftskip by \lispnarrowing \exdentamount=\lispnarrowing \else \let\nonarrowing = \relax \fi \let\exdent=\nofillexdent } \begingroup \obeyspaces % We want to swallow spaces (but not other tokens) after the fake % @indent in our nonfill-environments, where spaces are normally % active and set to @tie, resulting in them not being ignored after % @indent. \gdef\nonfillindent{\futurelet\temp\nonfillindentcheck}% \gdef\nonfillindentcheck{% \ifx\temp % \expandafter\nonfillindentgobble% \else% \leavevmode\nonfillindentbox% \fi% }% \endgroup \def\nonfillindentgobble#1{\nonfillindent} \def\nonfillindentbox{\hbox to \nonfillparindent{\hss}} % If you want all examples etc. small: @set dispenvsize small. % If you want even small examples the full size: @set dispenvsize nosmall. % This affects the following displayed environments: % @example, @display, @format, @lisp % \def\smallword{small} \def\nosmallword{nosmall} \let\SETdispenvsize\relax \def\setnormaldispenv{% \ifx\SETdispenvsize\smallword % end paragraph for sake of leading, in case document has no blank % line. This is redundant with what happens in \aboveenvbreak, but % we need to do it before changing the fonts, and it's inconvenient % to change the fonts afterward. \ifnum \lastpenalty=10000 \else \endgraf \fi \smallexamplefonts \rm \fi } \def\setsmalldispenv{% \ifx\SETdispenvsize\nosmallword \else \ifnum \lastpenalty=10000 \else \endgraf \fi \smallexamplefonts \rm \fi } % We often define two environments, @foo and @smallfoo. % Let's do it by one command: \def\makedispenv #1#2{ \expandafter\envdef\csname#1\endcsname {\setnormaldispenv #2} \expandafter\envdef\csname small#1\endcsname {\setsmalldispenv #2} \expandafter\let\csname E#1\endcsname \afterenvbreak \expandafter\let\csname Esmall#1\endcsname \afterenvbreak } % Define two synonyms: \def\maketwodispenvs #1#2#3{ \makedispenv{#1}{#3} \makedispenv{#2}{#3} } % @lisp: indented, narrowed, typewriter font; @example: same as @lisp. % % @smallexample and @smalllisp: use smaller fonts. % Originally contributed by Pavel@xerox. % \maketwodispenvs {lisp}{example}{% \nonfillstart \tt\setupmarkupstyle{example}% \let\kbdfont = \kbdexamplefont % Allow @kbd to do something special. \gobble % eat return } % @display/@smalldisplay: same as @lisp except keep current font. % \makedispenv {display}{% \nonfillstart \gobble } % @format/@smallformat: same as @display except don't narrow margins. % \makedispenv{format}{% \let\nonarrowing = t% \nonfillstart \gobble } % @flushleft: same as @format, but doesn't obey \SETdispenvsize. \envdef\flushleft{% \let\nonarrowing = t% \nonfillstart \gobble } \let\Eflushleft = \afterenvbreak % @flushright. % \envdef\flushright{% \let\nonarrowing = t% \nonfillstart \advance\leftskip by 0pt plus 1fill \gobble } \let\Eflushright = \afterenvbreak % @raggedright does more-or-less normal line breaking but no right % justification. From plain.tex. \envdef\raggedright{% \rightskip0pt plus2em \spaceskip.3333em \xspaceskip.5em\relax } \let\Eraggedright\par \envdef\raggedleft{% \parindent=0pt \leftskip0pt plus2em \spaceskip.3333em \xspaceskip.5em \parfillskip=0pt \hbadness=10000 % Last line will usually be underfull, so turn off % badness reporting. } \let\Eraggedleft\par \envdef\raggedcenter{% \parindent=0pt \rightskip0pt plus1em \leftskip0pt plus1em \spaceskip.3333em \xspaceskip.5em \parfillskip=0pt \hbadness=10000 % Last line will usually be underfull, so turn off % badness reporting. } \let\Eraggedcenter\par % @quotation does normal linebreaking (hence we can't use \nonfillstart) % and narrows the margins. We keep \parskip nonzero in general, since % we're doing normal filling. So, when using \aboveenvbreak and % \afterenvbreak, temporarily make \parskip 0. % \def\quotationstart{% {\parskip=0pt \aboveenvbreak}% because \aboveenvbreak inserts \parskip \parindent=0pt % % @cartouche defines \nonarrowing to inhibit narrowing at next level down. \ifx\nonarrowing\relax \advance\leftskip by \lispnarrowing \advance\rightskip by \lispnarrowing \exdentamount = \lispnarrowing \else \let\nonarrowing = \relax \fi \parsearg\quotationlabel } \envdef\quotation{% \setnormaldispenv \quotationstart } \envdef\smallquotation{% \setsmalldispenv \quotationstart } \let\Esmallquotation = \Equotation % We have retained a nonzero parskip for the environment, since we're % doing normal filling. % \def\Equotation{% \par \ifx\quotationauthor\undefined\else % indent a bit. \leftline{\kern 2\leftskip \sl ---\quotationauthor}% \fi {\parskip=0pt \afterenvbreak}% } % If we're given an argument, typeset it in bold with a colon after. \def\quotationlabel#1{% \def\temp{#1}% \ifx\temp\empty \else {\bf #1: }% \fi } % LaTeX-like @verbatim...@end verbatim and @verb{...} % If we want to allow any as delimiter, % we need the curly braces so that makeinfo sees the @verb command, eg: % `@verbx...x' would look like the '@verbx' command. --janneke@gnu.org % % [Knuth]: Donald Ervin Knuth, 1996. The TeXbook. % % [Knuth] p.344; only we need to do the other characters Texinfo sets % active too. Otherwise, they get lost as the first character on a % verbatim line. \def\dospecials{% \do\ \do\\\do\{\do\}\do\$\do\&% \do\#\do\^\do\^^K\do\_\do\^^A\do\%\do\~% \do\<\do\>\do\|\do\@\do+\do\"% % Don't do the quotes -- if we do, @set txicodequoteundirected and % @set txicodequotebacktick will not have effect on @verb and % @verbatim, and ?` and !` ligatures won't get disabled. %\do\`\do\'% } % % [Knuth] p. 380 \def\uncatcodespecials{% \def\do##1{\catcode`##1=\other}\dospecials} % % Setup for the @verb command. % % Eight spaces for a tab \begingroup \catcode`\^^I=\active \gdef\tabeightspaces{\catcode`\^^I=\active\def^^I{\ \ \ \ \ \ \ \ }} \endgroup % \def\setupverb{% \tt % easiest (and conventionally used) font for verbatim \def\par{\leavevmode\endgraf}% \setupmarkupstyle{verb}% \tabeightspaces % Respect line breaks, % print special symbols as themselves, and % make each space count % must do in this order: \obeylines \uncatcodespecials \sepspaces } % Setup for the @verbatim environment % % Real tab expansion \newdimen\tabw \setbox0=\hbox{\tt\space} \tabw=8\wd0 % tab amount % \def\starttabbox{\setbox0=\hbox\bgroup} % \begingroup \catcode`\^^I=\active \gdef\tabexpand{% \catcode`\^^I=\active \def^^I{\leavevmode\egroup \dimen0=\wd0 % the width so far, or since the previous tab \divide\dimen0 by\tabw \multiply\dimen0 by\tabw % compute previous multiple of \tabw \advance\dimen0 by\tabw % advance to next multiple of \tabw \wd0=\dimen0 \box0 \starttabbox }% } \endgroup % start the verbatim environment. \def\setupverbatim{% \let\nonarrowing = t% \nonfillstart % Easiest (and conventionally used) font for verbatim \tt \def\par{\leavevmode\egroup\box0\endgraf}% \tabexpand \setupmarkupstyle{verbatim}% % Respect line breaks, % print special symbols as themselves, and % make each space count % must do in this order: \obeylines \uncatcodespecials \sepspaces \everypar{\starttabbox}% } % Do the @verb magic: verbatim text is quoted by unique % delimiter characters. Before first delimiter expect a % right brace, after last delimiter expect closing brace: % % \def\doverb'{'#1'}'{#1} % % [Knuth] p. 382; only eat outer {} \begingroup \catcode`[=1\catcode`]=2\catcode`\{=\other\catcode`\}=\other \gdef\doverb{#1[\def\next##1#1}[##1\endgroup]\next] \endgroup % \def\verb{\begingroup\setupverb\doverb} % % % Do the @verbatim magic: define the macro \doverbatim so that % the (first) argument ends when '@end verbatim' is reached, ie: % % \def\doverbatim#1@end verbatim{#1} % % For Texinfo it's a lot easier than for LaTeX, % because texinfo's \verbatim doesn't stop at '\end{verbatim}': % we need not redefine '\', '{' and '}'. % % Inspired by LaTeX's verbatim command set [latex.ltx] % \begingroup \catcode`\ =\active \obeylines % % ignore everything up to the first ^^M, that's the newline at the end % of the @verbatim input line itself. Otherwise we get an extra blank % line in the output. \xdef\doverbatim#1^^M#2@end verbatim{#2\noexpand\end\gobble verbatim}% % We really want {...\end verbatim} in the body of the macro, but % without the active space; thus we have to use \xdef and \gobble. \endgroup % \envdef\verbatim{% \setupverbatim\doverbatim } \let\Everbatim = \afterenvbreak % @verbatiminclude FILE - insert text of file in verbatim environment. % \def\verbatiminclude{\parseargusing\filenamecatcodes\doverbatiminclude} % \def\doverbatiminclude#1{% {% \makevalueexpandable \setupverbatim \indexnofonts % Allow `@@' and other weird things in file names. \input #1 \afterenvbreak }% } % @copying ... @end copying. % Save the text away for @insertcopying later. % % We save the uninterpreted tokens, rather than creating a box. % Saving the text in a box would be much easier, but then all the % typesetting commands (@smallbook, font changes, etc.) have to be done % beforehand -- and a) we want @copying to be done first in the source % file; b) letting users define the frontmatter in as flexible order as % possible is very desirable. % \def\copying{\checkenv{}\begingroup\scanargctxt\docopying} \def\docopying#1@end copying{\endgroup\def\copyingtext{#1}} % \def\insertcopying{% \begingroup \parindent = 0pt % paragraph indentation looks wrong on title page \scanexp\copyingtext \endgroup } \message{defuns,} % @defun etc. \newskip\defbodyindent \defbodyindent=.4in \newskip\defargsindent \defargsindent=50pt \newskip\deflastargmargin \deflastargmargin=18pt \newcount\defunpenalty % Start the processing of @deffn: \def\startdefun{% \ifnum\lastpenalty<10000 \medbreak \defunpenalty=10003 % Will keep this @deffn together with the % following @def command, see below. \else % If there are two @def commands in a row, we'll have a \nobreak, % which is there to keep the function description together with its % header. But if there's nothing but headers, we need to allow a % break somewhere. Check specifically for penalty 10002, inserted % by \printdefunline, instead of 10000, since the sectioning % commands also insert a nobreak penalty, and we don't want to allow % a break between a section heading and a defun. % % As a minor refinement, we avoid "club" headers by signalling % with penalty of 10003 after the very first @deffn in the % sequence (see above), and penalty of 10002 after any following % @def command. \ifnum\lastpenalty=10002 \penalty2000 \else \defunpenalty=10002 \fi % % Similarly, after a section heading, do not allow a break. % But do insert the glue. \medskip % preceded by discardable penalty, so not a breakpoint \fi % \parindent=0in \advance\leftskip by \defbodyindent \exdentamount=\defbodyindent } \def\dodefunx#1{% % First, check whether we are in the right environment: \checkenv#1% % % As above, allow line break if we have multiple x headers in a row. % It's not a great place, though. \ifnum\lastpenalty=10002 \penalty3000 \else \defunpenalty=10002 \fi % % And now, it's time to reuse the body of the original defun: \expandafter\gobbledefun#1% } \def\gobbledefun#1\startdefun{} % \printdefunline \deffnheader{text} % \def\printdefunline#1#2{% \begingroup % call \deffnheader: #1#2 \endheader % common ending: \interlinepenalty = 10000 \advance\rightskip by 0pt plus 1fil \endgraf \nobreak\vskip -\parskip \penalty\defunpenalty % signal to \startdefun and \dodefunx % Some of the @defun-type tags do not enable magic parentheses, % rendering the following check redundant. But we don't optimize. \checkparencounts \endgroup } \def\Edefun{\endgraf\medbreak} % \makedefun{deffn} creates \deffn, \deffnx and \Edeffn; % the only thing remaining is to define \deffnheader. % \def\makedefun#1{% \expandafter\let\csname E#1\endcsname = \Edefun \edef\temp{\noexpand\domakedefun \makecsname{#1}\makecsname{#1x}\makecsname{#1header}}% \temp } % \domakedefun \deffn \deffnx \deffnheader % % Define \deffn and \deffnx, without parameters. % \deffnheader has to be defined explicitly. % \def\domakedefun#1#2#3{% \envdef#1{% \startdefun \parseargusing\activeparens{\printdefunline#3}% }% \def#2{\dodefunx#1}% \def#3% } %%% Untyped functions: % @deffn category name args \makedefun{deffn}{\deffngeneral{}} % @deffn category class name args \makedefun{defop}#1 {\defopon{#1\ \putwordon}} % \defopon {category on}class name args \def\defopon#1#2 {\deffngeneral{\putwordon\ \code{#2}}{#1\ \code{#2}} } % \deffngeneral {subind}category name args % \def\deffngeneral#1#2 #3 #4\endheader{% % Remember that \dosubind{fn}{foo}{} is equivalent to \doind{fn}{foo}. \dosubind{fn}{\code{#3}}{#1}% \defname{#2}{}{#3}\magicamp\defunargs{#4\unskip}% } %%% Typed functions: % @deftypefn category type name args \makedefun{deftypefn}{\deftypefngeneral{}} % @deftypeop category class type name args \makedefun{deftypeop}#1 {\deftypeopon{#1\ \putwordon}} % \deftypeopon {category on}class type name args \def\deftypeopon#1#2 {\deftypefngeneral{\putwordon\ \code{#2}}{#1\ \code{#2}} } % \deftypefngeneral {subind}category type name args % \def\deftypefngeneral#1#2 #3 #4 #5\endheader{% \dosubind{fn}{\code{#4}}{#1}% \defname{#2}{#3}{#4}\defunargs{#5\unskip}% } %%% Typed variables: % @deftypevr category type var args \makedefun{deftypevr}{\deftypecvgeneral{}} % @deftypecv category class type var args \makedefun{deftypecv}#1 {\deftypecvof{#1\ \putwordof}} % \deftypecvof {category of}class type var args \def\deftypecvof#1#2 {\deftypecvgeneral{\putwordof\ \code{#2}}{#1\ \code{#2}} } % \deftypecvgeneral {subind}category type var args % \def\deftypecvgeneral#1#2 #3 #4 #5\endheader{% \dosubind{vr}{\code{#4}}{#1}% \defname{#2}{#3}{#4}\defunargs{#5\unskip}% } %%% Untyped variables: % @defvr category var args \makedefun{defvr}#1 {\deftypevrheader{#1} {} } % @defcv category class var args \makedefun{defcv}#1 {\defcvof{#1\ \putwordof}} % \defcvof {category of}class var args \def\defcvof#1#2 {\deftypecvof{#1}#2 {} } %%% Type: % @deftp category name args \makedefun{deftp}#1 #2 #3\endheader{% \doind{tp}{\code{#2}}% \defname{#1}{}{#2}\defunargs{#3\unskip}% } % Remaining @defun-like shortcuts: \makedefun{defun}{\deffnheader{\putwordDeffunc} } \makedefun{defmac}{\deffnheader{\putwordDefmac} } \makedefun{defspec}{\deffnheader{\putwordDefspec} } \makedefun{deftypefun}{\deftypefnheader{\putwordDeffunc} } \makedefun{defvar}{\defvrheader{\putwordDefvar} } \makedefun{defopt}{\defvrheader{\putwordDefopt} } \makedefun{deftypevar}{\deftypevrheader{\putwordDefvar} } \makedefun{defmethod}{\defopon\putwordMethodon} \makedefun{deftypemethod}{\deftypeopon\putwordMethodon} \makedefun{defivar}{\defcvof\putwordInstanceVariableof} \makedefun{deftypeivar}{\deftypecvof\putwordInstanceVariableof} % \defname, which formats the name of the @def (not the args). % #1 is the category, such as "Function". % #2 is the return type, if any. % #3 is the function name. % % We are followed by (but not passed) the arguments, if any. % \def\defname#1#2#3{% % Get the values of \leftskip and \rightskip as they were outside the @def... \advance\leftskip by -\defbodyindent % % How we'll format the type name. Putting it in brackets helps % distinguish it from the body text that may end up on the next line % just below it. \def\temp{#1}% \setbox0=\hbox{\kern\deflastargmargin \ifx\temp\empty\else [\rm\temp]\fi} % % Figure out line sizes for the paragraph shape. % The first line needs space for \box0; but if \rightskip is nonzero, % we need only space for the part of \box0 which exceeds it: \dimen0=\hsize \advance\dimen0 by -\wd0 \advance\dimen0 by \rightskip % The continuations: \dimen2=\hsize \advance\dimen2 by -\defargsindent % (plain.tex says that \dimen1 should be used only as global.) \parshape 2 0in \dimen0 \defargsindent \dimen2 % % Put the type name to the right margin. \noindent \hbox to 0pt{% \hfil\box0 \kern-\hsize % \hsize has to be shortened this way: \kern\leftskip % Intentionally do not respect \rightskip, since we need the space. }% % % Allow all lines to be underfull without complaint: \tolerance=10000 \hbadness=10000 \exdentamount=\defbodyindent {% % defun fonts. We use typewriter by default (used to be bold) because: % . we're printing identifiers, they should be in tt in principle. % . in languages with many accents, such as Czech or French, it's % common to leave accents off identifiers. The result looks ok in % tt, but exceedingly strange in rm. % . we don't want -- and --- to be treated as ligatures. % . this still does not fix the ?` and !` ligatures, but so far no % one has made identifiers using them :). \df \tt \def\temp{#2}% return value type \ifx\temp\empty\else \tclose{\temp} \fi #3% output function name }% {\rm\enskip}% hskip 0.5 em of \tenrm % \boldbrax % arguments will be output next, if any. } % Print arguments in slanted roman (not ttsl), inconsistently with using % tt for the name. This is because literal text is sometimes needed in % the argument list (groff manual), and ttsl and tt are not very % distinguishable. Prevent hyphenation at `-' chars. % \def\defunargs#1{% % use sl by default (not ttsl), % tt for the names. \df \sl \hyphenchar\font=0 % % On the other hand, if an argument has two dashes (for instance), we % want a way to get ttsl. Let's try @var for that. \def\var##1{{\setupmarkupstyle{var}\ttslanted{##1}}}% #1% \sl\hyphenchar\font=45 } % We want ()&[] to print specially on the defun line. % \def\activeparens{% \catcode`\(=\active \catcode`\)=\active \catcode`\[=\active \catcode`\]=\active \catcode`\&=\active } % Make control sequences which act like normal parenthesis chars. \let\lparen = ( \let\rparen = ) % Be sure that we always have a definition for `(', etc. For example, % if the fn name has parens in it, \boldbrax will not be in effect yet, % so TeX would otherwise complain about undefined control sequence. { \activeparens \global\let(=\lparen \global\let)=\rparen \global\let[=\lbrack \global\let]=\rbrack \global\let& = \& \gdef\boldbrax{\let(=\opnr\let)=\clnr\let[=\lbrb\let]=\rbrb} \gdef\magicamp{\let&=\amprm} } \newcount\parencount % If we encounter &foo, then turn on ()-hacking afterwards \newif\ifampseen \def\amprm#1 {\ampseentrue{\bf\ }} \def\parenfont{% \ifampseen % At the first level, print parens in roman, % otherwise use the default font. \ifnum \parencount=1 \rm \fi \else % The \sf parens (in \boldbrax) actually are a little bolder than % the contained text. This is especially needed for [ and ] . \sf \fi } \def\infirstlevel#1{% \ifampseen \ifnum\parencount=1 #1% \fi \fi } \def\bfafterword#1 {#1 \bf} \def\opnr{% \global\advance\parencount by 1 {\parenfont(}% \infirstlevel \bfafterword } \def\clnr{% {\parenfont)}% \infirstlevel \sl \global\advance\parencount by -1 } \newcount\brackcount \def\lbrb{% \global\advance\brackcount by 1 {\bf[}% } \def\rbrb{% {\bf]}% \global\advance\brackcount by -1 } \def\checkparencounts{% \ifnum\parencount=0 \else \badparencount \fi \ifnum\brackcount=0 \else \badbrackcount \fi } % these should not use \errmessage; the glibc manual, at least, actually % has such constructs (when documenting function pointers). \def\badparencount{% \message{Warning: unbalanced parentheses in @def...}% \global\parencount=0 } \def\badbrackcount{% \message{Warning: unbalanced square brackets in @def...}% \global\brackcount=0 } \message{macros,} % @macro. % To do this right we need a feature of e-TeX, \scantokens, % which we arrange to emulate with a temporary file in ordinary TeX. \ifx\eTeXversion\undefined \newwrite\macscribble \def\scantokens#1{% \toks0={#1}% \immediate\openout\macscribble=\jobname.tmp \immediate\write\macscribble{\the\toks0}% \immediate\closeout\macscribble \input \jobname.tmp } \fi \def\scanmacro#1{% \begingroup \newlinechar`\^^M \let\xeatspaces\eatspaces % Undo catcode changes of \startcontents and \doprintindex % When called from @insertcopying or (short)caption, we need active % backslash to get it printed correctly. Previously, we had % \catcode`\\=\other instead. We'll see whether a problem appears % with macro expansion. --kasal, 19aug04 \catcode`\@=0 \catcode`\\=\active \escapechar=`\@ % ... and \example \spaceisspace % % Append \endinput to make sure that TeX does not see the ending newline. % I've verified that it is necessary both for e-TeX and for ordinary TeX % --kasal, 29nov03 \scantokens{#1\endinput}% \endgroup } \def\scanexp#1{% \edef\temp{\noexpand\scanmacro{#1}}% \temp } \newcount\paramno % Count of parameters \newtoks\macname % Macro name \newif\ifrecursive % Is it recursive? % List of all defined macros in the form % \definedummyword\macro1\definedummyword\macro2... % Currently is also contains all @aliases; the list can be split % if there is a need. \def\macrolist{} % Add the macro to \macrolist \def\addtomacrolist#1{\expandafter \addtomacrolistxxx \csname#1\endcsname} \def\addtomacrolistxxx#1{% \toks0 = \expandafter{\macrolist\definedummyword#1}% \xdef\macrolist{\the\toks0}% } % Utility routines. % This does \let #1 = #2, with \csnames; that is, % \let \csname#1\endcsname = \csname#2\endcsname % (except of course we have to play expansion games). % \def\cslet#1#2{% \expandafter\let \csname#1\expandafter\endcsname \csname#2\endcsname } % Trim leading and trailing spaces off a string. % Concepts from aro-bend problem 15 (see CTAN). {\catcode`\@=11 \gdef\eatspaces #1{\expandafter\trim@\expandafter{#1 }} \gdef\trim@ #1{\trim@@ @#1 @ #1 @ @@} \gdef\trim@@ #1@ #2@ #3@@{\trim@@@\empty #2 @} \def\unbrace#1{#1} \unbrace{\gdef\trim@@@ #1 } #2@{#1} } % Trim a single trailing ^^M off a string. {\catcode`\^^M=\other \catcode`\Q=3% \gdef\eatcr #1{\eatcra #1Q^^MQ}% \gdef\eatcra#1^^MQ{\eatcrb#1Q}% \gdef\eatcrb#1Q#2Q{#1}% } % Macro bodies are absorbed as an argument in a context where % all characters are catcode 10, 11 or 12, except \ which is active % (as in normal texinfo). It is necessary to change the definition of \. % Non-ASCII encodings make 8-bit characters active, so un-activate % them to avoid their expansion. Must do this non-globally, to % confine the change to the current group. % It's necessary to have hard CRs when the macro is executed. This is % done by making ^^M (\endlinechar) catcode 12 when reading the macro % body, and then making it the \newlinechar in \scanmacro. \def\scanctxt{% \catcode`\"=\other \catcode`\+=\other \catcode`\<=\other \catcode`\>=\other \catcode`\@=\other \catcode`\^=\other \catcode`\_=\other \catcode`\|=\other \catcode`\~=\other \ifx\declaredencoding\ascii \else \setnonasciicharscatcodenonglobal\other \fi } \def\scanargctxt{% \scanctxt \catcode`\\=\other \catcode`\^^M=\other } \def\macrobodyctxt{% \scanctxt \catcode`\{=\other \catcode`\}=\other \catcode`\^^M=\other \usembodybackslash } \def\macroargctxt{% \scanctxt \catcode`\\=\other } % \mbodybackslash is the definition of \ in @macro bodies. % It maps \foo\ => \csname macarg.foo\endcsname => #N % where N is the macro parameter number. % We define \csname macarg.\endcsname to be \realbackslash, so % \\ in macro replacement text gets you a backslash. {\catcode`@=0 @catcode`@\=@active @gdef@usembodybackslash{@let\=@mbodybackslash} @gdef@mbodybackslash#1\{@csname macarg.#1@endcsname} } \expandafter\def\csname macarg.\endcsname{\realbackslash} \def\macro{\recursivefalse\parsearg\macroxxx} \def\rmacro{\recursivetrue\parsearg\macroxxx} \def\macroxxx#1{% \getargs{#1}% now \macname is the macname and \argl the arglist \ifx\argl\empty % no arguments \paramno=0% \else \expandafter\parsemargdef \argl;% \fi \if1\csname ismacro.\the\macname\endcsname \message{Warning: redefining \the\macname}% \else \expandafter\ifx\csname \the\macname\endcsname \relax \else \errmessage{Macro name \the\macname\space already defined}\fi \global\cslet{macsave.\the\macname}{\the\macname}% \global\expandafter\let\csname ismacro.\the\macname\endcsname=1% \addtomacrolist{\the\macname}% \fi \begingroup \macrobodyctxt \ifrecursive \expandafter\parsermacbody \else \expandafter\parsemacbody \fi} \parseargdef\unmacro{% \if1\csname ismacro.#1\endcsname \global\cslet{#1}{macsave.#1}% \global\expandafter\let \csname ismacro.#1\endcsname=0% % Remove the macro name from \macrolist: \begingroup \expandafter\let\csname#1\endcsname \relax \let\definedummyword\unmacrodo \xdef\macrolist{\macrolist}% \endgroup \else \errmessage{Macro #1 not defined}% \fi } % Called by \do from \dounmacro on each macro. The idea is to omit any % macro definitions that have been changed to \relax. % \def\unmacrodo#1{% \ifx #1\relax % remove this \else \noexpand\definedummyword \noexpand#1% \fi } % This makes use of the obscure feature that if the last token of a % is #, then the preceding argument is delimited by % an opening brace, and that opening brace is not consumed. \def\getargs#1{\getargsxxx#1{}} \def\getargsxxx#1#{\getmacname #1 \relax\getmacargs} \def\getmacname #1 #2\relax{\macname={#1}} \def\getmacargs#1{\def\argl{#1}} % Parse the optional {params} list. Set up \paramno and \paramlist % so \defmacro knows what to do. Define \macarg.blah for each blah % in the params list, to be ##N where N is the position in that list. % That gets used by \mbodybackslash (above). % We need to get `macro parameter char #' into several definitions. % The technique used is stolen from LaTeX: let \hash be something % unexpandable, insert that wherever you need a #, and then redefine % it to # just before using the token list produced. % % The same technique is used to protect \eatspaces till just before % the macro is used. \def\parsemargdef#1;{\paramno=0\def\paramlist{}% \let\hash\relax\let\xeatspaces\relax\parsemargdefxxx#1,;,} \def\parsemargdefxxx#1,{% \if#1;\let\next=\relax \else \let\next=\parsemargdefxxx \advance\paramno by 1% \expandafter\edef\csname macarg.\eatspaces{#1}\endcsname {\xeatspaces{\hash\the\paramno}}% \edef\paramlist{\paramlist\hash\the\paramno,}% \fi\next} % These two commands read recursive and nonrecursive macro bodies. % (They're different since rec and nonrec macros end differently.) \long\def\parsemacbody#1@end macro% {\xdef\temp{\eatcr{#1}}\endgroup\defmacro}% \long\def\parsermacbody#1@end rmacro% {\xdef\temp{\eatcr{#1}}\endgroup\defmacro}% % This defines the macro itself. There are six cases: recursive and % nonrecursive macros of zero, one, and many arguments. % Much magic with \expandafter here. % \xdef is used so that macro definitions will survive the file % they're defined in; @include reads the file inside a group. \def\defmacro{% \let\hash=##% convert placeholders to macro parameter chars \ifrecursive \ifcase\paramno % 0 \expandafter\xdef\csname\the\macname\endcsname{% \noexpand\scanmacro{\temp}}% \or % 1 \expandafter\xdef\csname\the\macname\endcsname{% \bgroup\noexpand\macroargctxt \noexpand\braceorline \expandafter\noexpand\csname\the\macname xxx\endcsname}% \expandafter\xdef\csname\the\macname xxx\endcsname##1{% \egroup\noexpand\scanmacro{\temp}}% \else % many \expandafter\xdef\csname\the\macname\endcsname{% \bgroup\noexpand\macroargctxt \noexpand\csname\the\macname xx\endcsname}% \expandafter\xdef\csname\the\macname xx\endcsname##1{% \expandafter\noexpand\csname\the\macname xxx\endcsname ##1,}% \expandafter\expandafter \expandafter\xdef \expandafter\expandafter \csname\the\macname xxx\endcsname \paramlist{\egroup\noexpand\scanmacro{\temp}}% \fi \else \ifcase\paramno % 0 \expandafter\xdef\csname\the\macname\endcsname{% \noexpand\norecurse{\the\macname}% \noexpand\scanmacro{\temp}\egroup}% \or % 1 \expandafter\xdef\csname\the\macname\endcsname{% \bgroup\noexpand\macroargctxt \noexpand\braceorline \expandafter\noexpand\csname\the\macname xxx\endcsname}% \expandafter\xdef\csname\the\macname xxx\endcsname##1{% \egroup \noexpand\norecurse{\the\macname}% \noexpand\scanmacro{\temp}\egroup}% \else % many \expandafter\xdef\csname\the\macname\endcsname{% \bgroup\noexpand\macroargctxt \expandafter\noexpand\csname\the\macname xx\endcsname}% \expandafter\xdef\csname\the\macname xx\endcsname##1{% \expandafter\noexpand\csname\the\macname xxx\endcsname ##1,}% \expandafter\expandafter \expandafter\xdef \expandafter\expandafter \csname\the\macname xxx\endcsname \paramlist{% \egroup \noexpand\norecurse{\the\macname}% \noexpand\scanmacro{\temp}\egroup}% \fi \fi} \def\norecurse#1{\bgroup\cslet{#1}{macsave.#1}} % \braceorline decides whether the next nonwhitespace character is a % {. If so it reads up to the closing }, if not, it reads the whole % line. Whatever was read is then fed to the next control sequence % as an argument (by \parsebrace or \parsearg) \def\braceorline#1{\let\macnamexxx=#1\futurelet\nchar\braceorlinexxx} \def\braceorlinexxx{% \ifx\nchar\bgroup\else \expandafter\parsearg \fi \macnamexxx} % @alias. % We need some trickery to remove the optional spaces around the equal % sign. Just make them active and then expand them all to nothing. \def\alias{\parseargusing\obeyspaces\aliasxxx} \def\aliasxxx #1{\aliasyyy#1\relax} \def\aliasyyy #1=#2\relax{% {% \expandafter\let\obeyedspace=\empty \addtomacrolist{#1}% \xdef\next{\global\let\makecsname{#1}=\makecsname{#2}}% }% \next } \message{cross references,} \newwrite\auxfile \newif\ifhavexrefs % True if xref values are known. \newif\ifwarnedxrefs % True if we warned once that they aren't known. % @inforef is relatively simple. \def\inforef #1{\inforefzzz #1,,,,**} \def\inforefzzz #1,#2,#3,#4**{\putwordSee{} \putwordInfo{} \putwordfile{} \file{\ignorespaces #3{}}, node \samp{\ignorespaces#1{}}} % @node's only job in TeX is to define \lastnode, which is used in % cross-references. The @node line might or might not have commas, and % might or might not have spaces before the first comma, like: % @node foo , bar , ... % We don't want such trailing spaces in the node name. % \parseargdef\node{\checkenv{}\donode #1 ,\finishnodeparse} % % also remove a trailing comma, in case of something like this: % @node Help-Cross, , , Cross-refs \def\donode#1 ,#2\finishnodeparse{\dodonode #1,\finishnodeparse} \def\dodonode#1,#2\finishnodeparse{\gdef\lastnode{#1}} \let\nwnode=\node \let\lastnode=\empty % Write a cross-reference definition for the current node. #1 is the % type (Ynumbered, Yappendix, Ynothing). % \def\donoderef#1{% \ifx\lastnode\empty\else \setref{\lastnode}{#1}% \global\let\lastnode=\empty \fi } % @anchor{NAME} -- define xref target at arbitrary point. % \newcount\savesfregister % \def\savesf{\relax \ifhmode \savesfregister=\spacefactor \fi} \def\restoresf{\relax \ifhmode \spacefactor=\savesfregister \fi} \def\anchor#1{\savesf \setref{#1}{Ynothing}\restoresf \ignorespaces} % \setref{NAME}{SNT} defines a cross-reference point NAME (a node or an % anchor), which consists of three parts: % 1) NAME-title - the current sectioning name taken from \lastsection, % or the anchor name. % 2) NAME-snt - section number and type, passed as the SNT arg, or % empty for anchors. % 3) NAME-pg - the page number. % % This is called from \donoderef, \anchor, and \dofloat. In the case of % floats, there is an additional part, which is not written here: % 4) NAME-lof - the text as it should appear in a @listoffloats. % \def\setref#1#2{% \pdfmkdest{#1}% \iflinks {% \atdummies % preserve commands, but don't expand them \edef\writexrdef##1##2{% \write\auxfile{@xrdef{#1-% #1 of \setref, expanded by the \edef ##1}{##2}}% these are parameters of \writexrdef }% \toks0 = \expandafter{\lastsection}% \immediate \writexrdef{title}{\the\toks0 }% \immediate \writexrdef{snt}{\csname #2\endcsname}% \Ynumbered etc. \safewhatsit{\writexrdef{pg}{\folio}}% will be written later, during \shipout }% \fi } % @xref, @pxref, and @ref generate cross-references. For \xrefX, #1 is % the node name, #2 the name of the Info cross-reference, #3 the printed % node name, #4 the name of the Info file, #5 the name of the printed % manual. All but the node name can be omitted. % \def\pxref#1{\putwordsee{} \xrefX[#1,,,,,,,]} \def\xref#1{\putwordSee{} \xrefX[#1,,,,,,,]} \def\ref#1{\xrefX[#1,,,,,,,]} \def\xrefX[#1,#2,#3,#4,#5,#6]{\begingroup \unsepspaces \def\printedmanual{\ignorespaces #5}% \def\printedrefname{\ignorespaces #3}% \setbox1=\hbox{\printedmanual\unskip}% \setbox0=\hbox{\printedrefname\unskip}% \ifdim \wd0 = 0pt % No printed node name was explicitly given. \expandafter\ifx\csname SETxref-automatic-section-title\endcsname\relax % Use the node name inside the square brackets. \def\printedrefname{\ignorespaces #1}% \else % Use the actual chapter/section title appear inside % the square brackets. Use the real section title if we have it. \ifdim \wd1 > 0pt % It is in another manual, so we don't have it. \def\printedrefname{\ignorespaces #1}% \else \ifhavexrefs % We know the real title if we have the xref values. \def\printedrefname{\refx{#1-title}{}}% \else % Otherwise just copy the Info node name. \def\printedrefname{\ignorespaces #1}% \fi% \fi \fi \fi % % Make link in pdf output. \ifpdf {\indexnofonts \turnoffactive % This expands tokens, so do it after making catcode changes, so _ % etc. don't get their TeX definitions. \getfilename{#4}% % % See comments at \activebackslashdouble. {\activebackslashdouble \xdef\pdfxrefdest{#1}% \backslashparens\pdfxrefdest}% % \leavevmode \startlink attr{/Border [0 0 0]}% \ifnum\filenamelength>0 goto file{\the\filename.pdf} name{\pdfxrefdest}% \else goto name{\pdfmkpgn{\pdfxrefdest}}% \fi }% \setcolor{\linkcolor}% \fi % % Float references are printed completely differently: "Figure 1.2" % instead of "[somenode], p.3". We distinguish them by the % LABEL-title being set to a magic string. {% % Have to otherify everything special to allow the \csname to % include an _ in the xref name, etc. \indexnofonts \turnoffactive \expandafter\global\expandafter\let\expandafter\Xthisreftitle \csname XR#1-title\endcsname }% \iffloat\Xthisreftitle % If the user specified the print name (third arg) to the ref, % print it instead of our usual "Figure 1.2". \ifdim\wd0 = 0pt \refx{#1-snt}{}% \else \printedrefname \fi % % if the user also gave the printed manual name (fifth arg), append % "in MANUALNAME". \ifdim \wd1 > 0pt \space \putwordin{} \cite{\printedmanual}% \fi \else % node/anchor (non-float) references. % % If we use \unhbox0 and \unhbox1 to print the node names, TeX does not % insert empty discretionaries after hyphens, which means that it will % not find a line break at a hyphen in a node names. Since some manuals % are best written with fairly long node names, containing hyphens, this % is a loss. Therefore, we give the text of the node name again, so it % is as if TeX is seeing it for the first time. \ifdim \wd1 > 0pt \putwordSection{} ``\printedrefname'' \putwordin{} \cite{\printedmanual}% \else % _ (for example) has to be the character _ for the purposes of the % control sequence corresponding to the node, but it has to expand % into the usual \leavevmode...\vrule stuff for purposes of % printing. So we \turnoffactive for the \refx-snt, back on for the % printing, back off for the \refx-pg. {\turnoffactive % Only output a following space if the -snt ref is nonempty; for % @unnumbered and @anchor, it won't be. \setbox2 = \hbox{\ignorespaces \refx{#1-snt}{}}% \ifdim \wd2 > 0pt \refx{#1-snt}\space\fi }% % output the `[mynode]' via a macro so it can be overridden. \xrefprintnodename\printedrefname % % But we always want a comma and a space: ,\space % % output the `page 3'. \turnoffactive \putwordpage\tie\refx{#1-pg}{}% \fi \fi \endlink \endgroup} % This macro is called from \xrefX for the `[nodename]' part of xref % output. It's a separate macro only so it can be changed more easily, % since square brackets don't work well in some documents. Particularly % one that Bob is working on :). % \def\xrefprintnodename#1{[#1]} % Things referred to by \setref. % \def\Ynothing{} \def\Yomitfromtoc{} \def\Ynumbered{% \ifnum\secno=0 \putwordChapter@tie \the\chapno \else \ifnum\subsecno=0 \putwordSection@tie \the\chapno.\the\secno \else \ifnum\subsubsecno=0 \putwordSection@tie \the\chapno.\the\secno.\the\subsecno \else \putwordSection@tie \the\chapno.\the\secno.\the\subsecno.\the\subsubsecno \fi\fi\fi } \def\Yappendix{% \ifnum\secno=0 \putwordAppendix@tie @char\the\appendixno{}% \else \ifnum\subsecno=0 \putwordSection@tie @char\the\appendixno.\the\secno \else \ifnum\subsubsecno=0 \putwordSection@tie @char\the\appendixno.\the\secno.\the\subsecno \else \putwordSection@tie @char\the\appendixno.\the\secno.\the\subsecno.\the\subsubsecno \fi\fi\fi } % Define \refx{NAME}{SUFFIX} to reference a cross-reference string named NAME. % If its value is nonempty, SUFFIX is output afterward. % \def\refx#1#2{% {% \indexnofonts \otherbackslash \expandafter\global\expandafter\let\expandafter\thisrefX \csname XR#1\endcsname }% \ifx\thisrefX\relax % If not defined, say something at least. \angleleft un\-de\-fined\angleright \iflinks \ifhavexrefs \message{\linenumber Undefined cross reference `#1'.}% \else \ifwarnedxrefs\else \global\warnedxrefstrue \message{Cross reference values unknown; you must run TeX again.}% \fi \fi \fi \else % It's defined, so just use it. \thisrefX \fi #2% Output the suffix in any case. } % This is the macro invoked by entries in the aux file. Usually it's % just a \def (we prepend XR to the control sequence name to avoid % collisions). But if this is a float type, we have more work to do. % \def\xrdef#1#2{% {% The node name might contain 8-bit characters, which in our current % implementation are changed to commands like @'e. Don't let these % mess up the control sequence name. \indexnofonts \turnoffactive \xdef\safexrefname{#1}% }% % \expandafter\gdef\csname XR\safexrefname\endcsname{#2}% remember this xref % % Was that xref control sequence that we just defined for a float? \expandafter\iffloat\csname XR\safexrefname\endcsname % it was a float, and we have the (safe) float type in \iffloattype. \expandafter\let\expandafter\floatlist \csname floatlist\iffloattype\endcsname % % Is this the first time we've seen this float type? \expandafter\ifx\floatlist\relax \toks0 = {\do}% yes, so just \do \else % had it before, so preserve previous elements in list. \toks0 = \expandafter{\floatlist\do}% \fi % % Remember this xref in the control sequence \floatlistFLOATTYPE, % for later use in \listoffloats. \expandafter\xdef\csname floatlist\iffloattype\endcsname{\the\toks0 {\safexrefname}}% \fi } % Read the last existing aux file, if any. No error if none exists. % \def\tryauxfile{% \openin 1 \jobname.aux \ifeof 1 \else \readdatafile{aux}% \global\havexrefstrue \fi \closein 1 } \def\setupdatafile{% \catcode`\^^@=\other \catcode`\^^A=\other \catcode`\^^B=\other \catcode`\^^C=\other \catcode`\^^D=\other \catcode`\^^E=\other \catcode`\^^F=\other \catcode`\^^G=\other \catcode`\^^H=\other \catcode`\^^K=\other \catcode`\^^L=\other \catcode`\^^N=\other \catcode`\^^P=\other \catcode`\^^Q=\other \catcode`\^^R=\other \catcode`\^^S=\other \catcode`\^^T=\other \catcode`\^^U=\other \catcode`\^^V=\other \catcode`\^^W=\other \catcode`\^^X=\other \catcode`\^^Z=\other \catcode`\^^[=\other \catcode`\^^\=\other \catcode`\^^]=\other \catcode`\^^^=\other \catcode`\^^_=\other % It was suggested to set the catcode of ^ to 7, which would allow ^^e4 etc. % in xref tags, i.e., node names. But since ^^e4 notation isn't % supported in the main text, it doesn't seem desirable. Furthermore, % that is not enough: for node names that actually contain a ^ % character, we would end up writing a line like this: 'xrdef {'hat % b-title}{'hat b} and \xrdef does a \csname...\endcsname on the first % argument, and \hat is not an expandable control sequence. It could % all be worked out, but why? Either we support ^^ or we don't. % % The other change necessary for this was to define \auxhat: % \def\auxhat{\def^{'hat }}% extra space so ok if followed by letter % and then to call \auxhat in \setq. % \catcode`\^=\other % % Special characters. Should be turned off anyway, but... \catcode`\~=\other \catcode`\[=\other \catcode`\]=\other \catcode`\"=\other \catcode`\_=\other \catcode`\|=\other \catcode`\<=\other \catcode`\>=\other \catcode`\$=\other \catcode`\#=\other \catcode`\&=\other \catcode`\%=\other \catcode`+=\other % avoid \+ for paranoia even though we've turned it off % % This is to support \ in node names and titles, since the \ % characters end up in a \csname. It's easier than % leaving it active and making its active definition an actual \ % character. What I don't understand is why it works in the *value* % of the xrdef. Seems like it should be a catcode12 \, and that % should not typeset properly. But it works, so I'm moving on for % now. --karl, 15jan04. \catcode`\\=\other % % Make the characters 128-255 be printing characters. {% \count1=128 \def\loop{% \catcode\count1=\other \advance\count1 by 1 \ifnum \count1<256 \loop \fi }% }% % % @ is our escape character in .aux files, and we need braces. \catcode`\{=1 \catcode`\}=2 \catcode`\@=0 } \def\readdatafile#1{% \begingroup \setupdatafile \input\jobname.#1 \endgroup} \message{insertions,} % including footnotes. \newcount \footnoteno % The trailing space in the following definition for supereject is % vital for proper filling; pages come out unaligned when you do a % pagealignmacro call if that space before the closing brace is % removed. (Generally, numeric constants should always be followed by a % space to prevent strange expansion errors.) \def\supereject{\par\penalty -20000\footnoteno =0 } % @footnotestyle is meaningful for info output only. \let\footnotestyle=\comment {\catcode `\@=11 % % Auto-number footnotes. Otherwise like plain. \gdef\footnote{% \let\indent=\ptexindent \let\noindent=\ptexnoindent \global\advance\footnoteno by \@ne \edef\thisfootno{$^{\the\footnoteno}$}% % % In case the footnote comes at the end of a sentence, preserve the % extra spacing after we do the footnote number. \let\@sf\empty \ifhmode\edef\@sf{\spacefactor\the\spacefactor}\ptexslash\fi % % Remove inadvertent blank space before typesetting the footnote number. \unskip \thisfootno\@sf \dofootnote }% % Don't bother with the trickery in plain.tex to not require the % footnote text as a parameter. Our footnotes don't need to be so general. % % Oh yes, they do; otherwise, @ifset (and anything else that uses % \parseargline) fails inside footnotes because the tokens are fixed when % the footnote is read. --karl, 16nov96. % \gdef\dofootnote{% \insert\footins\bgroup % We want to typeset this text as a normal paragraph, even if the % footnote reference occurs in (for example) a display environment. % So reset some parameters. \hsize=\pagewidth \interlinepenalty\interfootnotelinepenalty \splittopskip\ht\strutbox % top baseline for broken footnotes \splitmaxdepth\dp\strutbox \floatingpenalty\@MM \leftskip\z@skip \rightskip\z@skip \spaceskip\z@skip \xspaceskip\z@skip \parindent\defaultparindent % \smallfonts \rm % % Because we use hanging indentation in footnotes, a @noindent appears % to exdent this text, so make it be a no-op. makeinfo does not use % hanging indentation so @noindent can still be needed within footnote % text after an @example or the like (not that this is good style). \let\noindent = \relax % % Hang the footnote text off the number. Use \everypar in case the % footnote extends for more than one paragraph. \everypar = {\hang}% \textindent{\thisfootno}% % % Don't crash into the line above the footnote text. Since this % expands into a box, it must come within the paragraph, lest it % provide a place where TeX can split the footnote. \footstrut \futurelet\next\fo@t } }%end \catcode `\@=11 % In case a @footnote appears in a vbox, save the footnote text and create % the real \insert just after the vbox finished. Otherwise, the insertion % would be lost. % Similarly, if a @footnote appears inside an alignment, save the footnote % text to a box and make the \insert when a row of the table is finished. % And the same can be done for other insert classes. --kasal, 16nov03. % Replace the \insert primitive by a cheating macro. % Deeper inside, just make sure that the saved insertions are not spilled % out prematurely. % \def\startsavinginserts{% \ifx \insert\ptexinsert \let\insert\saveinsert \else \let\checkinserts\relax \fi } % This \insert replacement works for both \insert\footins{foo} and % \insert\footins\bgroup foo\egroup, but it doesn't work for \insert27{foo}. % \def\saveinsert#1{% \edef\next{\noexpand\savetobox \makeSAVEname#1}% \afterassignment\next % swallow the left brace \let\temp = } \def\makeSAVEname#1{\makecsname{SAVE\expandafter\gobble\string#1}} \def\savetobox#1{\global\setbox#1 = \vbox\bgroup \unvbox#1} \def\checksaveins#1{\ifvoid#1\else \placesaveins#1\fi} \def\placesaveins#1{% \ptexinsert \csname\expandafter\gobblesave\string#1\endcsname {\box#1}% } % eat @SAVE -- beware, all of them have catcode \other: { \def\dospecials{\do S\do A\do V\do E} \uncatcodespecials % ;-) \gdef\gobblesave @SAVE{} } % initialization: \def\newsaveins #1{% \edef\next{\noexpand\newsaveinsX \makeSAVEname#1}% \next } \def\newsaveinsX #1{% \csname newbox\endcsname #1% \expandafter\def\expandafter\checkinserts\expandafter{\checkinserts \checksaveins #1}% } % initialize: \let\checkinserts\empty \newsaveins\footins \newsaveins\margin % @image. We use the macros from epsf.tex to support this. % If epsf.tex is not installed and @image is used, we complain. % % Check for and read epsf.tex up front. If we read it only at @image % time, we might be inside a group, and then its definitions would get % undone and the next image would fail. \openin 1 = epsf.tex \ifeof 1 \else % Do not bother showing banner with epsf.tex v2.7k (available in % doc/epsf.tex and on ctan). \def\epsfannounce{\toks0 = }% \input epsf.tex \fi \closein 1 % % We will only complain once about lack of epsf.tex. \newif\ifwarnednoepsf \newhelp\noepsfhelp{epsf.tex must be installed for images to work. It is also included in the Texinfo distribution, or you can get it from ftp://tug.org/tex/epsf.tex.} % \def\image#1{% \ifx\epsfbox\undefined \ifwarnednoepsf \else \errhelp = \noepsfhelp \errmessage{epsf.tex not found, images will be ignored}% \global\warnednoepsftrue \fi \else \imagexxx #1,,,,,\finish \fi } % % Arguments to @image: % #1 is (mandatory) image filename; we tack on .eps extension. % #2 is (optional) width, #3 is (optional) height. % #4 is (ignored optional) html alt text. % #5 is (ignored optional) extension. % #6 is just the usual extra ignored arg for parsing this stuff. \newif\ifimagevmode \def\imagexxx#1,#2,#3,#4,#5,#6\finish{\begingroup \catcode`\^^M = 5 % in case we're inside an example \normalturnoffactive % allow _ et al. in names % If the image is by itself, center it. \ifvmode \imagevmodetrue \nobreak\medskip % Usually we'll have text after the image which will insert % \parskip glue, so insert it here too to equalize the space % above and below. \nobreak\vskip\parskip \nobreak \fi % % Leave vertical mode so that indentation from an enclosing % environment such as @quotation is respected. On the other hand, if % it's at the top level, we don't want the normal paragraph indentation. \noindent % % Output the image. \ifpdf \dopdfimage{#1}{#2}{#3}% \else % \epsfbox itself resets \epsf?size at each figure. \setbox0 = \hbox{\ignorespaces #2}\ifdim\wd0 > 0pt \epsfxsize=#2\relax \fi \setbox0 = \hbox{\ignorespaces #3}\ifdim\wd0 > 0pt \epsfysize=#3\relax \fi \epsfbox{#1.eps}% \fi % \ifimagevmode \medskip \fi % space after the standalone image \endgroup} % @float FLOATTYPE,LABEL,LOC ... @end float for displayed figures, tables, % etc. We don't actually implement floating yet, we always include the % float "here". But it seemed the best name for the future. % \envparseargdef\float{\eatcommaspace\eatcommaspace\dofloat#1, , ,\finish} % There may be a space before second and/or third parameter; delete it. \def\eatcommaspace#1, {#1,} % #1 is the optional FLOATTYPE, the text label for this float, typically % "Figure", "Table", "Example", etc. Can't contain commas. If omitted, % this float will not be numbered and cannot be referred to. % % #2 is the optional xref label. Also must be present for the float to % be referable. % % #3 is the optional positioning argument; for now, it is ignored. It % will somehow specify the positions allowed to float to (here, top, bottom). % % We keep a separate counter for each FLOATTYPE, which we reset at each % chapter-level command. \let\resetallfloatnos=\empty % \def\dofloat#1,#2,#3,#4\finish{% \let\thiscaption=\empty \let\thisshortcaption=\empty % % don't lose footnotes inside @float. % % BEWARE: when the floats start float, we have to issue warning whenever an % insert appears inside a float which could possibly float. --kasal, 26may04 % \startsavinginserts % % We can't be used inside a paragraph. \par % \vtop\bgroup \def\floattype{#1}% \def\floatlabel{#2}% \def\floatloc{#3}% we do nothing with this yet. % \ifx\floattype\empty \let\safefloattype=\empty \else {% % the floattype might have accents or other special characters, % but we need to use it in a control sequence name. \indexnofonts \turnoffactive \xdef\safefloattype{\floattype}% }% \fi % % If label is given but no type, we handle that as the empty type. \ifx\floatlabel\empty \else % We want each FLOATTYPE to be numbered separately (Figure 1, % Table 1, Figure 2, ...). (And if no label, no number.) % \expandafter\getfloatno\csname\safefloattype floatno\endcsname \global\advance\floatno by 1 % {% % This magic value for \lastsection is output by \setref as the % XREFLABEL-title value. \xrefX uses it to distinguish float % labels (which have a completely different output format) from % node and anchor labels. And \xrdef uses it to construct the % lists of floats. % \edef\lastsection{\floatmagic=\safefloattype}% \setref{\floatlabel}{Yfloat}% }% \fi % % start with \parskip glue, I guess. \vskip\parskip % % Don't suppress indentation if a float happens to start a section. \restorefirstparagraphindent } % we have these possibilities: % @float Foo,lbl & @caption{Cap}: Foo 1.1: Cap % @float Foo,lbl & no caption: Foo 1.1 % @float Foo & @caption{Cap}: Foo: Cap % @float Foo & no caption: Foo % @float ,lbl & Caption{Cap}: 1.1: Cap % @float ,lbl & no caption: 1.1 % @float & @caption{Cap}: Cap % @float & no caption: % \def\Efloat{% \let\floatident = \empty % % In all cases, if we have a float type, it comes first. \ifx\floattype\empty \else \def\floatident{\floattype}\fi % % If we have an xref label, the number comes next. \ifx\floatlabel\empty \else \ifx\floattype\empty \else % if also had float type, need tie first. \appendtomacro\floatident{\tie}% \fi % the number. \appendtomacro\floatident{\chaplevelprefix\the\floatno}% \fi % % Start the printed caption with what we've constructed in % \floatident, but keep it separate; we need \floatident again. \let\captionline = \floatident % \ifx\thiscaption\empty \else \ifx\floatident\empty \else \appendtomacro\captionline{: }% had ident, so need a colon between \fi % % caption text. \appendtomacro\captionline{\scanexp\thiscaption}% \fi % % If we have anything to print, print it, with space before. % Eventually this needs to become an \insert. \ifx\captionline\empty \else \vskip.5\parskip \captionline % % Space below caption. \vskip\parskip \fi % % If have an xref label, write the list of floats info. Do this % after the caption, to avoid chance of it being a breakpoint. \ifx\floatlabel\empty \else % Write the text that goes in the lof to the aux file as % \floatlabel-lof. Besides \floatident, we include the short % caption if specified, else the full caption if specified, else nothing. {% \atdummies % % since we read the caption text in the macro world, where ^^M % is turned into a normal character, we have to scan it back, so % we don't write the literal three characters "^^M" into the aux file. \scanexp{% \xdef\noexpand\gtemp{% \ifx\thisshortcaption\empty \thiscaption \else \thisshortcaption \fi }% }% \immediate\write\auxfile{@xrdef{\floatlabel-lof}{\floatident \ifx\gtemp\empty \else : \gtemp \fi}}% }% \fi \egroup % end of \vtop % % place the captured inserts % % BEWARE: when the floats start floating, we have to issue warning % whenever an insert appears inside a float which could possibly % float. --kasal, 26may04 % \checkinserts } % Append the tokens #2 to the definition of macro #1, not expanding either. % \def\appendtomacro#1#2{% \expandafter\def\expandafter#1\expandafter{#1#2}% } % @caption, @shortcaption % \def\caption{\docaption\thiscaption} \def\shortcaption{\docaption\thisshortcaption} \def\docaption{\checkenv\float \bgroup\scanargctxt\defcaption} \def\defcaption#1#2{\egroup \def#1{#2}} % The parameter is the control sequence identifying the counter we are % going to use. Create it if it doesn't exist and assign it to \floatno. \def\getfloatno#1{% \ifx#1\relax % Haven't seen this figure type before. \csname newcount\endcsname #1% % % Remember to reset this floatno at the next chap. \expandafter\gdef\expandafter\resetallfloatnos \expandafter{\resetallfloatnos #1=0 }% \fi \let\floatno#1% } % \setref calls this to get the XREFLABEL-snt value. We want an @xref % to the FLOATLABEL to expand to "Figure 3.1". We call \setref when we % first read the @float command. % \def\Yfloat{\floattype@tie \chaplevelprefix\the\floatno}% % Magic string used for the XREFLABEL-title value, so \xrefX can % distinguish floats from other xref types. \def\floatmagic{!!float!!} % #1 is the control sequence we are passed; we expand into a conditional % which is true if #1 represents a float ref. That is, the magic % \lastsection value which we \setref above. % \def\iffloat#1{\expandafter\doiffloat#1==\finish} % % #1 is (maybe) the \floatmagic string. If so, #2 will be the % (safe) float type for this float. We set \iffloattype to #2. % \def\doiffloat#1=#2=#3\finish{% \def\temp{#1}% \def\iffloattype{#2}% \ifx\temp\floatmagic } % @listoffloats FLOATTYPE - print a list of floats like a table of contents. % \parseargdef\listoffloats{% \def\floattype{#1}% floattype {% % the floattype might have accents or other special characters, % but we need to use it in a control sequence name. \indexnofonts \turnoffactive \xdef\safefloattype{\floattype}% }% % % \xrdef saves the floats as a \do-list in \floatlistSAFEFLOATTYPE. \expandafter\ifx\csname floatlist\safefloattype\endcsname \relax \ifhavexrefs % if the user said @listoffloats foo but never @float foo. \message{\linenumber No `\safefloattype' floats to list.}% \fi \else \begingroup \leftskip=\tocindent % indent these entries like a toc \let\do=\listoffloatsdo \csname floatlist\safefloattype\endcsname \endgroup \fi } % This is called on each entry in a list of floats. We're passed the % xref label, in the form LABEL-title, which is how we save it in the % aux file. We strip off the -title and look up \XRLABEL-lof, which % has the text we're supposed to typeset here. % % Figures without xref labels will not be included in the list (since % they won't appear in the aux file). % \def\listoffloatsdo#1{\listoffloatsdoentry#1\finish} \def\listoffloatsdoentry#1-title\finish{{% % Can't fully expand XR#1-lof because it can contain anything. Just % pass the control sequence. On the other hand, XR#1-pg is just the % page number, and we want to fully expand that so we can get a link % in pdf output. \toksA = \expandafter{\csname XR#1-lof\endcsname}% % % use the same \entry macro we use to generate the TOC and index. \edef\writeentry{\noexpand\entry{\the\toksA}{\csname XR#1-pg\endcsname}}% \writeentry }} \message{localization,} % For single-language documents, @documentlanguage is usually given very % early, just after @documentencoding. Single argument is the language % (de) or locale (de_DE) abbreviation. % { \catcode`\_ = \active \globaldefs=1 \parseargdef\documentlanguage{\begingroup \let_=\normalunderscore % normal _ character for filenames \tex % read txi-??.tex file in plain TeX. % Read the file by the name they passed if it exists. \openin 1 txi-#1.tex \ifeof 1 \documentlanguagetrywithoutunderscore{#1_\finish}% \else \globaldefs = 1 % everything in the txi-LL files needs to persist \input txi-#1.tex \fi \closein 1 \endgroup % end raw TeX \endgroup} % % If they passed de_DE, and txi-de_DE.tex doesn't exist, % try txi-de.tex. % \gdef\documentlanguagetrywithoutunderscore#1_#2\finish{% \openin 1 txi-#1.tex \ifeof 1 \errhelp = \nolanghelp \errmessage{Cannot read language file txi-#1.tex}% \else \globaldefs = 1 % everything in the txi-LL files needs to persist \input txi-#1.tex \fi \closein 1 } }% end of special _ catcode % \newhelp\nolanghelp{The given language definition file cannot be found or is empty. Maybe you need to install it? Putting it in the current directory should work if nowhere else does.} % This macro is called from txi-??.tex files; the first argument is the % \language name to set (without the "\lang@" prefix), the second and % third args are \{left,right}hyphenmin. % % The language names to pass are determined when the format is built. % See the etex.log file created at that time, e.g., % /usr/local/texlive/2008/texmf-var/web2c/pdftex/etex.log. % % With TeX Live 2008, etex now includes hyphenation patterns for all % available languages. This means we can support hyphenation in % Texinfo, at least to some extent. (This still doesn't solve the % accented characters problem.) % \catcode`@=11 \def\txisetlanguage#1#2#3{% % do not set the language if the name is undefined in the current TeX. \expandafter\ifx\csname lang@#1\endcsname \relax \message{no patterns for #1}% \else \global\language = \csname lang@#1\endcsname \fi % but there is no harm in adjusting the hyphenmin values regardless. \global\lefthyphenmin = #2\relax \global\righthyphenmin = #3\relax } % Helpers for encodings. % Set the catcode of characters 128 through 255 to the specified number. % \def\setnonasciicharscatcode#1{% \count255=128 \loop\ifnum\count255<256 \global\catcode\count255=#1\relax \advance\count255 by 1 \repeat } \def\setnonasciicharscatcodenonglobal#1{% \count255=128 \loop\ifnum\count255<256 \catcode\count255=#1\relax \advance\count255 by 1 \repeat } % @documentencoding sets the definition of non-ASCII characters % according to the specified encoding. % \parseargdef\documentencoding{% % Encoding being declared for the document. \def\declaredencoding{\csname #1.enc\endcsname}% % % Supported encodings: names converted to tokens in order to be able % to compare them with \ifx. \def\ascii{\csname US-ASCII.enc\endcsname}% \def\latnine{\csname ISO-8859-15.enc\endcsname}% \def\latone{\csname ISO-8859-1.enc\endcsname}% \def\lattwo{\csname ISO-8859-2.enc\endcsname}% \def\utfeight{\csname UTF-8.enc\endcsname}% % \ifx \declaredencoding \ascii \asciichardefs % \else \ifx \declaredencoding \lattwo \setnonasciicharscatcode\active \lattwochardefs % \else \ifx \declaredencoding \latone \setnonasciicharscatcode\active \latonechardefs % \else \ifx \declaredencoding \latnine \setnonasciicharscatcode\active \latninechardefs % \else \ifx \declaredencoding \utfeight \setnonasciicharscatcode\active \utfeightchardefs % \else \message{Unknown document encoding #1, ignoring.}% % \fi % utfeight \fi % latnine \fi % latone \fi % lattwo \fi % ascii } % A message to be logged when using a character that isn't available % the default font encoding (OT1). % \def\missingcharmsg#1{\message{Character missing in OT1 encoding: #1.}} % Take account of \c (plain) vs. \, (Texinfo) difference. \def\cedilla#1{\ifx\c\ptexc\c{#1}\else\,{#1}\fi} % First, make active non-ASCII characters in order for them to be % correctly categorized when TeX reads the replacement text of % macros containing the character definitions. \setnonasciicharscatcode\active % % Latin1 (ISO-8859-1) character definitions. \def\latonechardefs{% \gdef^^a0{~} \gdef^^a1{\exclamdown} \gdef^^a2{\missingcharmsg{CENT SIGN}} \gdef^^a3{{\pounds}} \gdef^^a4{\missingcharmsg{CURRENCY SIGN}} \gdef^^a5{\missingcharmsg{YEN SIGN}} \gdef^^a6{\missingcharmsg{BROKEN BAR}} \gdef^^a7{\S} \gdef^^a8{\"{}} \gdef^^a9{\copyright} \gdef^^aa{\ordf} \gdef^^ab{\guillemetleft} \gdef^^ac{$\lnot$} \gdef^^ad{\-} \gdef^^ae{\registeredsymbol} \gdef^^af{\={}} % \gdef^^b0{\textdegree} \gdef^^b1{$\pm$} \gdef^^b2{$^2$} \gdef^^b3{$^3$} \gdef^^b4{\'{}} \gdef^^b5{$\mu$} \gdef^^b6{\P} % \gdef^^b7{$^.$} \gdef^^b8{\cedilla\ } \gdef^^b9{$^1$} \gdef^^ba{\ordm} % \gdef^^bb{\guilletright} \gdef^^bc{$1\over4$} \gdef^^bd{$1\over2$} \gdef^^be{$3\over4$} \gdef^^bf{\questiondown} % \gdef^^c0{\`A} \gdef^^c1{\'A} \gdef^^c2{\^A} \gdef^^c3{\~A} \gdef^^c4{\"A} \gdef^^c5{\ringaccent A} \gdef^^c6{\AE} \gdef^^c7{\cedilla C} \gdef^^c8{\`E} \gdef^^c9{\'E} \gdef^^ca{\^E} \gdef^^cb{\"E} \gdef^^cc{\`I} \gdef^^cd{\'I} \gdef^^ce{\^I} \gdef^^cf{\"I} % \gdef^^d0{\DH} \gdef^^d1{\~N} \gdef^^d2{\`O} \gdef^^d3{\'O} \gdef^^d4{\^O} \gdef^^d5{\~O} \gdef^^d6{\"O} \gdef^^d7{$\times$} \gdef^^d8{\O} \gdef^^d9{\`U} \gdef^^da{\'U} \gdef^^db{\^U} \gdef^^dc{\"U} \gdef^^dd{\'Y} \gdef^^de{\TH} \gdef^^df{\ss} % \gdef^^e0{\`a} \gdef^^e1{\'a} \gdef^^e2{\^a} \gdef^^e3{\~a} \gdef^^e4{\"a} \gdef^^e5{\ringaccent a} \gdef^^e6{\ae} \gdef^^e7{\cedilla c} \gdef^^e8{\`e} \gdef^^e9{\'e} \gdef^^ea{\^e} \gdef^^eb{\"e} \gdef^^ec{\`{\dotless i}} \gdef^^ed{\'{\dotless i}} \gdef^^ee{\^{\dotless i}} \gdef^^ef{\"{\dotless i}} % \gdef^^f0{\dh} \gdef^^f1{\~n} \gdef^^f2{\`o} \gdef^^f3{\'o} \gdef^^f4{\^o} \gdef^^f5{\~o} \gdef^^f6{\"o} \gdef^^f7{$\div$} \gdef^^f8{\o} \gdef^^f9{\`u} \gdef^^fa{\'u} \gdef^^fb{\^u} \gdef^^fc{\"u} \gdef^^fd{\'y} \gdef^^fe{\th} \gdef^^ff{\"y} } % Latin9 (ISO-8859-15) encoding character definitions. \def\latninechardefs{% % Encoding is almost identical to Latin1. \latonechardefs % \gdef^^a4{\euro} \gdef^^a6{\v S} \gdef^^a8{\v s} \gdef^^b4{\v Z} \gdef^^b8{\v z} \gdef^^bc{\OE} \gdef^^bd{\oe} \gdef^^be{\"Y} } % Latin2 (ISO-8859-2) character definitions. \def\lattwochardefs{% \gdef^^a0{~} \gdef^^a1{\ogonek{A}} \gdef^^a2{\u{}} \gdef^^a3{\L} \gdef^^a4{\missingcharmsg{CURRENCY SIGN}} \gdef^^a5{\v L} \gdef^^a6{\'S} \gdef^^a7{\S} \gdef^^a8{\"{}} \gdef^^a9{\v S} \gdef^^aa{\cedilla S} \gdef^^ab{\v T} \gdef^^ac{\'Z} \gdef^^ad{\-} \gdef^^ae{\v Z} \gdef^^af{\dotaccent Z} % \gdef^^b0{\textdegree} \gdef^^b1{\ogonek{a}} \gdef^^b2{\ogonek{ }} \gdef^^b3{\l} \gdef^^b4{\'{}} \gdef^^b5{\v l} \gdef^^b6{\'s} \gdef^^b7{\v{}} \gdef^^b8{\cedilla\ } \gdef^^b9{\v s} \gdef^^ba{\cedilla s} \gdef^^bb{\v t} \gdef^^bc{\'z} \gdef^^bd{\H{}} \gdef^^be{\v z} \gdef^^bf{\dotaccent z} % \gdef^^c0{\'R} \gdef^^c1{\'A} \gdef^^c2{\^A} \gdef^^c3{\u A} \gdef^^c4{\"A} \gdef^^c5{\'L} \gdef^^c6{\'C} \gdef^^c7{\cedilla C} \gdef^^c8{\v C} \gdef^^c9{\'E} \gdef^^ca{\ogonek{E}} \gdef^^cb{\"E} \gdef^^cc{\v E} \gdef^^cd{\'I} \gdef^^ce{\^I} \gdef^^cf{\v D} % \gdef^^d0{\DH} \gdef^^d1{\'N} \gdef^^d2{\v N} \gdef^^d3{\'O} \gdef^^d4{\^O} \gdef^^d5{\H O} \gdef^^d6{\"O} \gdef^^d7{$\times$} \gdef^^d8{\v R} \gdef^^d9{\ringaccent U} \gdef^^da{\'U} \gdef^^db{\H U} \gdef^^dc{\"U} \gdef^^dd{\'Y} \gdef^^de{\cedilla T} \gdef^^df{\ss} % \gdef^^e0{\'r} \gdef^^e1{\'a} \gdef^^e2{\^a} \gdef^^e3{\u a} \gdef^^e4{\"a} \gdef^^e5{\'l} \gdef^^e6{\'c} \gdef^^e7{\cedilla c} \gdef^^e8{\v c} \gdef^^e9{\'e} \gdef^^ea{\ogonek{e}} \gdef^^eb{\"e} \gdef^^ec{\v e} \gdef^^ed{\'\i} \gdef^^ee{\^\i} \gdef^^ef{\v d} % \gdef^^f0{\dh} \gdef^^f1{\'n} \gdef^^f2{\v n} \gdef^^f3{\'o} \gdef^^f4{\^o} \gdef^^f5{\H o} \gdef^^f6{\"o} \gdef^^f7{$\div$} \gdef^^f8{\v r} \gdef^^f9{\ringaccent u} \gdef^^fa{\'u} \gdef^^fb{\H u} \gdef^^fc{\"u} \gdef^^fd{\'y} \gdef^^fe{\cedilla t} \gdef^^ff{\dotaccent{}} } % UTF-8 character definitions. % % This code to support UTF-8 is based on LaTeX's utf8.def, with some % changes for Texinfo conventions. It is included here under the GPL by % permission from Frank Mittelbach and the LaTeX team. % \newcount\countUTFx \newcount\countUTFy \newcount\countUTFz \gdef\UTFviiiTwoOctets#1#2{\expandafter \UTFviiiDefined\csname u8:#1\string #2\endcsname} % \gdef\UTFviiiThreeOctets#1#2#3{\expandafter \UTFviiiDefined\csname u8:#1\string #2\string #3\endcsname} % \gdef\UTFviiiFourOctets#1#2#3#4{\expandafter \UTFviiiDefined\csname u8:#1\string #2\string #3\string #4\endcsname} \gdef\UTFviiiDefined#1{% \ifx #1\relax \message{\linenumber Unicode char \string #1 not defined for Texinfo}% \else \expandafter #1% \fi } \begingroup \catcode`\~13 \catcode`\"12 \def\UTFviiiLoop{% \global\catcode\countUTFx\active \uccode`\~\countUTFx \uppercase\expandafter{\UTFviiiTmp}% \advance\countUTFx by 1 \ifnum\countUTFx < \countUTFy \expandafter\UTFviiiLoop \fi} \countUTFx = "C2 \countUTFy = "E0 \def\UTFviiiTmp{% \xdef~{\noexpand\UTFviiiTwoOctets\string~}} \UTFviiiLoop \countUTFx = "E0 \countUTFy = "F0 \def\UTFviiiTmp{% \xdef~{\noexpand\UTFviiiThreeOctets\string~}} \UTFviiiLoop \countUTFx = "F0 \countUTFy = "F4 \def\UTFviiiTmp{% \xdef~{\noexpand\UTFviiiFourOctets\string~}} \UTFviiiLoop \endgroup \begingroup \catcode`\"=12 \catcode`\<=12 \catcode`\.=12 \catcode`\,=12 \catcode`\;=12 \catcode`\!=12 \catcode`\~=13 \gdef\DeclareUnicodeCharacter#1#2{% \countUTFz = "#1\relax \wlog{\space\space defining Unicode char U+#1 (decimal \the\countUTFz)}% \begingroup \parseXMLCharref \def\UTFviiiTwoOctets##1##2{% \csname u8:##1\string ##2\endcsname}% \def\UTFviiiThreeOctets##1##2##3{% \csname u8:##1\string ##2\string ##3\endcsname}% \def\UTFviiiFourOctets##1##2##3##4{% \csname u8:##1\string ##2\string ##3\string ##4\endcsname}% \expandafter\expandafter\expandafter\expandafter \expandafter\expandafter\expandafter \gdef\UTFviiiTmp{#2}% \endgroup} \gdef\parseXMLCharref{% \ifnum\countUTFz < "A0\relax \errhelp = \EMsimple \errmessage{Cannot define Unicode char value < 00A0}% \else\ifnum\countUTFz < "800\relax \parseUTFviiiA,% \parseUTFviiiB C\UTFviiiTwoOctets.,% \else\ifnum\countUTFz < "10000\relax \parseUTFviiiA;% \parseUTFviiiA,% \parseUTFviiiB E\UTFviiiThreeOctets.{,;}% \else \parseUTFviiiA;% \parseUTFviiiA,% \parseUTFviiiA!% \parseUTFviiiB F\UTFviiiFourOctets.{!,;}% \fi\fi\fi } \gdef\parseUTFviiiA#1{% \countUTFx = \countUTFz \divide\countUTFz by 64 \countUTFy = \countUTFz \multiply\countUTFz by 64 \advance\countUTFx by -\countUTFz \advance\countUTFx by 128 \uccode `#1\countUTFx \countUTFz = \countUTFy} \gdef\parseUTFviiiB#1#2#3#4{% \advance\countUTFz by "#10\relax \uccode `#3\countUTFz \uppercase{\gdef\UTFviiiTmp{#2#3#4}}} \endgroup \def\utfeightchardefs{% \DeclareUnicodeCharacter{00A0}{\tie} \DeclareUnicodeCharacter{00A1}{\exclamdown} \DeclareUnicodeCharacter{00A3}{\pounds} \DeclareUnicodeCharacter{00A8}{\"{ }} \DeclareUnicodeCharacter{00A9}{\copyright} \DeclareUnicodeCharacter{00AA}{\ordf} \DeclareUnicodeCharacter{00AB}{\guillemetleft} \DeclareUnicodeCharacter{00AD}{\-} \DeclareUnicodeCharacter{00AE}{\registeredsymbol} \DeclareUnicodeCharacter{00AF}{\={ }} \DeclareUnicodeCharacter{00B0}{\ringaccent{ }} \DeclareUnicodeCharacter{00B4}{\'{ }} \DeclareUnicodeCharacter{00B8}{\cedilla{ }} \DeclareUnicodeCharacter{00BA}{\ordm} \DeclareUnicodeCharacter{00BB}{\guillemetright} \DeclareUnicodeCharacter{00BF}{\questiondown} \DeclareUnicodeCharacter{00C0}{\`A} \DeclareUnicodeCharacter{00C1}{\'A} \DeclareUnicodeCharacter{00C2}{\^A} \DeclareUnicodeCharacter{00C3}{\~A} \DeclareUnicodeCharacter{00C4}{\"A} \DeclareUnicodeCharacter{00C5}{\AA} \DeclareUnicodeCharacter{00C6}{\AE} \DeclareUnicodeCharacter{00C7}{\cedilla{C}} \DeclareUnicodeCharacter{00C8}{\`E} \DeclareUnicodeCharacter{00C9}{\'E} \DeclareUnicodeCharacter{00CA}{\^E} \DeclareUnicodeCharacter{00CB}{\"E} \DeclareUnicodeCharacter{00CC}{\`I} \DeclareUnicodeCharacter{00CD}{\'I} \DeclareUnicodeCharacter{00CE}{\^I} \DeclareUnicodeCharacter{00CF}{\"I} \DeclareUnicodeCharacter{00D0}{\DH} \DeclareUnicodeCharacter{00D1}{\~N} \DeclareUnicodeCharacter{00D2}{\`O} \DeclareUnicodeCharacter{00D3}{\'O} \DeclareUnicodeCharacter{00D4}{\^O} \DeclareUnicodeCharacter{00D5}{\~O} \DeclareUnicodeCharacter{00D6}{\"O} \DeclareUnicodeCharacter{00D8}{\O} \DeclareUnicodeCharacter{00D9}{\`U} \DeclareUnicodeCharacter{00DA}{\'U} \DeclareUnicodeCharacter{00DB}{\^U} \DeclareUnicodeCharacter{00DC}{\"U} \DeclareUnicodeCharacter{00DD}{\'Y} \DeclareUnicodeCharacter{00DE}{\TH} \DeclareUnicodeCharacter{00DF}{\ss} \DeclareUnicodeCharacter{00E0}{\`a} \DeclareUnicodeCharacter{00E1}{\'a} \DeclareUnicodeCharacter{00E2}{\^a} \DeclareUnicodeCharacter{00E3}{\~a} \DeclareUnicodeCharacter{00E4}{\"a} \DeclareUnicodeCharacter{00E5}{\aa} \DeclareUnicodeCharacter{00E6}{\ae} \DeclareUnicodeCharacter{00E7}{\cedilla{c}} \DeclareUnicodeCharacter{00E8}{\`e} \DeclareUnicodeCharacter{00E9}{\'e} \DeclareUnicodeCharacter{00EA}{\^e} \DeclareUnicodeCharacter{00EB}{\"e} \DeclareUnicodeCharacter{00EC}{\`{\dotless{i}}} \DeclareUnicodeCharacter{00ED}{\'{\dotless{i}}} \DeclareUnicodeCharacter{00EE}{\^{\dotless{i}}} \DeclareUnicodeCharacter{00EF}{\"{\dotless{i}}} \DeclareUnicodeCharacter{00F0}{\dh} \DeclareUnicodeCharacter{00F1}{\~n} \DeclareUnicodeCharacter{00F2}{\`o} \DeclareUnicodeCharacter{00F3}{\'o} \DeclareUnicodeCharacter{00F4}{\^o} \DeclareUnicodeCharacter{00F5}{\~o} \DeclareUnicodeCharacter{00F6}{\"o} \DeclareUnicodeCharacter{00F8}{\o} \DeclareUnicodeCharacter{00F9}{\`u} \DeclareUnicodeCharacter{00FA}{\'u} \DeclareUnicodeCharacter{00FB}{\^u} \DeclareUnicodeCharacter{00FC}{\"u} \DeclareUnicodeCharacter{00FD}{\'y} \DeclareUnicodeCharacter{00FE}{\th} \DeclareUnicodeCharacter{00FF}{\"y} \DeclareUnicodeCharacter{0100}{\=A} \DeclareUnicodeCharacter{0101}{\=a} \DeclareUnicodeCharacter{0102}{\u{A}} \DeclareUnicodeCharacter{0103}{\u{a}} \DeclareUnicodeCharacter{0104}{\ogonek{A}} \DeclareUnicodeCharacter{0105}{\ogonek{a}} \DeclareUnicodeCharacter{0106}{\'C} \DeclareUnicodeCharacter{0107}{\'c} \DeclareUnicodeCharacter{0108}{\^C} \DeclareUnicodeCharacter{0109}{\^c} \DeclareUnicodeCharacter{0118}{\ogonek{E}} \DeclareUnicodeCharacter{0119}{\ogonek{e}} \DeclareUnicodeCharacter{010A}{\dotaccent{C}} \DeclareUnicodeCharacter{010B}{\dotaccent{c}} \DeclareUnicodeCharacter{010C}{\v{C}} \DeclareUnicodeCharacter{010D}{\v{c}} \DeclareUnicodeCharacter{010E}{\v{D}} \DeclareUnicodeCharacter{0112}{\=E} \DeclareUnicodeCharacter{0113}{\=e} \DeclareUnicodeCharacter{0114}{\u{E}} \DeclareUnicodeCharacter{0115}{\u{e}} \DeclareUnicodeCharacter{0116}{\dotaccent{E}} \DeclareUnicodeCharacter{0117}{\dotaccent{e}} \DeclareUnicodeCharacter{011A}{\v{E}} \DeclareUnicodeCharacter{011B}{\v{e}} \DeclareUnicodeCharacter{011C}{\^G} \DeclareUnicodeCharacter{011D}{\^g} \DeclareUnicodeCharacter{011E}{\u{G}} \DeclareUnicodeCharacter{011F}{\u{g}} \DeclareUnicodeCharacter{0120}{\dotaccent{G}} \DeclareUnicodeCharacter{0121}{\dotaccent{g}} \DeclareUnicodeCharacter{0124}{\^H} \DeclareUnicodeCharacter{0125}{\^h} \DeclareUnicodeCharacter{0128}{\~I} \DeclareUnicodeCharacter{0129}{\~{\dotless{i}}} \DeclareUnicodeCharacter{012A}{\=I} \DeclareUnicodeCharacter{012B}{\={\dotless{i}}} \DeclareUnicodeCharacter{012C}{\u{I}} \DeclareUnicodeCharacter{012D}{\u{\dotless{i}}} \DeclareUnicodeCharacter{0130}{\dotaccent{I}} \DeclareUnicodeCharacter{0131}{\dotless{i}} \DeclareUnicodeCharacter{0132}{IJ} \DeclareUnicodeCharacter{0133}{ij} \DeclareUnicodeCharacter{0134}{\^J} \DeclareUnicodeCharacter{0135}{\^{\dotless{j}}} \DeclareUnicodeCharacter{0139}{\'L} \DeclareUnicodeCharacter{013A}{\'l} \DeclareUnicodeCharacter{0141}{\L} \DeclareUnicodeCharacter{0142}{\l} \DeclareUnicodeCharacter{0143}{\'N} \DeclareUnicodeCharacter{0144}{\'n} \DeclareUnicodeCharacter{0147}{\v{N}} \DeclareUnicodeCharacter{0148}{\v{n}} \DeclareUnicodeCharacter{014C}{\=O} \DeclareUnicodeCharacter{014D}{\=o} \DeclareUnicodeCharacter{014E}{\u{O}} \DeclareUnicodeCharacter{014F}{\u{o}} \DeclareUnicodeCharacter{0150}{\H{O}} \DeclareUnicodeCharacter{0151}{\H{o}} \DeclareUnicodeCharacter{0152}{\OE} \DeclareUnicodeCharacter{0153}{\oe} \DeclareUnicodeCharacter{0154}{\'R} \DeclareUnicodeCharacter{0155}{\'r} \DeclareUnicodeCharacter{0158}{\v{R}} \DeclareUnicodeCharacter{0159}{\v{r}} \DeclareUnicodeCharacter{015A}{\'S} \DeclareUnicodeCharacter{015B}{\'s} \DeclareUnicodeCharacter{015C}{\^S} \DeclareUnicodeCharacter{015D}{\^s} \DeclareUnicodeCharacter{015E}{\cedilla{S}} \DeclareUnicodeCharacter{015F}{\cedilla{s}} \DeclareUnicodeCharacter{0160}{\v{S}} \DeclareUnicodeCharacter{0161}{\v{s}} \DeclareUnicodeCharacter{0162}{\cedilla{t}} \DeclareUnicodeCharacter{0163}{\cedilla{T}} \DeclareUnicodeCharacter{0164}{\v{T}} \DeclareUnicodeCharacter{0168}{\~U} \DeclareUnicodeCharacter{0169}{\~u} \DeclareUnicodeCharacter{016A}{\=U} \DeclareUnicodeCharacter{016B}{\=u} \DeclareUnicodeCharacter{016C}{\u{U}} \DeclareUnicodeCharacter{016D}{\u{u}} \DeclareUnicodeCharacter{016E}{\ringaccent{U}} \DeclareUnicodeCharacter{016F}{\ringaccent{u}} \DeclareUnicodeCharacter{0170}{\H{U}} \DeclareUnicodeCharacter{0171}{\H{u}} \DeclareUnicodeCharacter{0174}{\^W} \DeclareUnicodeCharacter{0175}{\^w} \DeclareUnicodeCharacter{0176}{\^Y} \DeclareUnicodeCharacter{0177}{\^y} \DeclareUnicodeCharacter{0178}{\"Y} \DeclareUnicodeCharacter{0179}{\'Z} \DeclareUnicodeCharacter{017A}{\'z} \DeclareUnicodeCharacter{017B}{\dotaccent{Z}} \DeclareUnicodeCharacter{017C}{\dotaccent{z}} \DeclareUnicodeCharacter{017D}{\v{Z}} \DeclareUnicodeCharacter{017E}{\v{z}} \DeclareUnicodeCharacter{01C4}{D\v{Z}} \DeclareUnicodeCharacter{01C5}{D\v{z}} \DeclareUnicodeCharacter{01C6}{d\v{z}} \DeclareUnicodeCharacter{01C7}{LJ} \DeclareUnicodeCharacter{01C8}{Lj} \DeclareUnicodeCharacter{01C9}{lj} \DeclareUnicodeCharacter{01CA}{NJ} \DeclareUnicodeCharacter{01CB}{Nj} \DeclareUnicodeCharacter{01CC}{nj} \DeclareUnicodeCharacter{01CD}{\v{A}} \DeclareUnicodeCharacter{01CE}{\v{a}} \DeclareUnicodeCharacter{01CF}{\v{I}} \DeclareUnicodeCharacter{01D0}{\v{\dotless{i}}} \DeclareUnicodeCharacter{01D1}{\v{O}} \DeclareUnicodeCharacter{01D2}{\v{o}} \DeclareUnicodeCharacter{01D3}{\v{U}} \DeclareUnicodeCharacter{01D4}{\v{u}} \DeclareUnicodeCharacter{01E2}{\={\AE}} \DeclareUnicodeCharacter{01E3}{\={\ae}} \DeclareUnicodeCharacter{01E6}{\v{G}} \DeclareUnicodeCharacter{01E7}{\v{g}} \DeclareUnicodeCharacter{01E8}{\v{K}} \DeclareUnicodeCharacter{01E9}{\v{k}} \DeclareUnicodeCharacter{01F0}{\v{\dotless{j}}} \DeclareUnicodeCharacter{01F1}{DZ} \DeclareUnicodeCharacter{01F2}{Dz} \DeclareUnicodeCharacter{01F3}{dz} \DeclareUnicodeCharacter{01F4}{\'G} \DeclareUnicodeCharacter{01F5}{\'g} \DeclareUnicodeCharacter{01F8}{\`N} \DeclareUnicodeCharacter{01F9}{\`n} \DeclareUnicodeCharacter{01FC}{\'{\AE}} \DeclareUnicodeCharacter{01FD}{\'{\ae}} \DeclareUnicodeCharacter{01FE}{\'{\O}} \DeclareUnicodeCharacter{01FF}{\'{\o}} \DeclareUnicodeCharacter{021E}{\v{H}} \DeclareUnicodeCharacter{021F}{\v{h}} \DeclareUnicodeCharacter{0226}{\dotaccent{A}} \DeclareUnicodeCharacter{0227}{\dotaccent{a}} \DeclareUnicodeCharacter{0228}{\cedilla{E}} \DeclareUnicodeCharacter{0229}{\cedilla{e}} \DeclareUnicodeCharacter{022E}{\dotaccent{O}} \DeclareUnicodeCharacter{022F}{\dotaccent{o}} \DeclareUnicodeCharacter{0232}{\=Y} \DeclareUnicodeCharacter{0233}{\=y} \DeclareUnicodeCharacter{0237}{\dotless{j}} \DeclareUnicodeCharacter{02DB}{\ogonek{ }} \DeclareUnicodeCharacter{1E02}{\dotaccent{B}} \DeclareUnicodeCharacter{1E03}{\dotaccent{b}} \DeclareUnicodeCharacter{1E04}{\udotaccent{B}} \DeclareUnicodeCharacter{1E05}{\udotaccent{b}} \DeclareUnicodeCharacter{1E06}{\ubaraccent{B}} \DeclareUnicodeCharacter{1E07}{\ubaraccent{b}} \DeclareUnicodeCharacter{1E0A}{\dotaccent{D}} \DeclareUnicodeCharacter{1E0B}{\dotaccent{d}} \DeclareUnicodeCharacter{1E0C}{\udotaccent{D}} \DeclareUnicodeCharacter{1E0D}{\udotaccent{d}} \DeclareUnicodeCharacter{1E0E}{\ubaraccent{D}} \DeclareUnicodeCharacter{1E0F}{\ubaraccent{d}} \DeclareUnicodeCharacter{1E1E}{\dotaccent{F}} \DeclareUnicodeCharacter{1E1F}{\dotaccent{f}} \DeclareUnicodeCharacter{1E20}{\=G} \DeclareUnicodeCharacter{1E21}{\=g} \DeclareUnicodeCharacter{1E22}{\dotaccent{H}} \DeclareUnicodeCharacter{1E23}{\dotaccent{h}} \DeclareUnicodeCharacter{1E24}{\udotaccent{H}} \DeclareUnicodeCharacter{1E25}{\udotaccent{h}} \DeclareUnicodeCharacter{1E26}{\"H} \DeclareUnicodeCharacter{1E27}{\"h} \DeclareUnicodeCharacter{1E30}{\'K} \DeclareUnicodeCharacter{1E31}{\'k} \DeclareUnicodeCharacter{1E32}{\udotaccent{K}} \DeclareUnicodeCharacter{1E33}{\udotaccent{k}} \DeclareUnicodeCharacter{1E34}{\ubaraccent{K}} \DeclareUnicodeCharacter{1E35}{\ubaraccent{k}} \DeclareUnicodeCharacter{1E36}{\udotaccent{L}} \DeclareUnicodeCharacter{1E37}{\udotaccent{l}} \DeclareUnicodeCharacter{1E3A}{\ubaraccent{L}} \DeclareUnicodeCharacter{1E3B}{\ubaraccent{l}} \DeclareUnicodeCharacter{1E3E}{\'M} \DeclareUnicodeCharacter{1E3F}{\'m} \DeclareUnicodeCharacter{1E40}{\dotaccent{M}} \DeclareUnicodeCharacter{1E41}{\dotaccent{m}} \DeclareUnicodeCharacter{1E42}{\udotaccent{M}} \DeclareUnicodeCharacter{1E43}{\udotaccent{m}} \DeclareUnicodeCharacter{1E44}{\dotaccent{N}} \DeclareUnicodeCharacter{1E45}{\dotaccent{n}} \DeclareUnicodeCharacter{1E46}{\udotaccent{N}} \DeclareUnicodeCharacter{1E47}{\udotaccent{n}} \DeclareUnicodeCharacter{1E48}{\ubaraccent{N}} \DeclareUnicodeCharacter{1E49}{\ubaraccent{n}} \DeclareUnicodeCharacter{1E54}{\'P} \DeclareUnicodeCharacter{1E55}{\'p} \DeclareUnicodeCharacter{1E56}{\dotaccent{P}} \DeclareUnicodeCharacter{1E57}{\dotaccent{p}} \DeclareUnicodeCharacter{1E58}{\dotaccent{R}} \DeclareUnicodeCharacter{1E59}{\dotaccent{r}} \DeclareUnicodeCharacter{1E5A}{\udotaccent{R}} \DeclareUnicodeCharacter{1E5B}{\udotaccent{r}} \DeclareUnicodeCharacter{1E5E}{\ubaraccent{R}} \DeclareUnicodeCharacter{1E5F}{\ubaraccent{r}} \DeclareUnicodeCharacter{1E60}{\dotaccent{S}} \DeclareUnicodeCharacter{1E61}{\dotaccent{s}} \DeclareUnicodeCharacter{1E62}{\udotaccent{S}} \DeclareUnicodeCharacter{1E63}{\udotaccent{s}} \DeclareUnicodeCharacter{1E6A}{\dotaccent{T}} \DeclareUnicodeCharacter{1E6B}{\dotaccent{t}} \DeclareUnicodeCharacter{1E6C}{\udotaccent{T}} \DeclareUnicodeCharacter{1E6D}{\udotaccent{t}} \DeclareUnicodeCharacter{1E6E}{\ubaraccent{T}} \DeclareUnicodeCharacter{1E6F}{\ubaraccent{t}} \DeclareUnicodeCharacter{1E7C}{\~V} \DeclareUnicodeCharacter{1E7D}{\~v} \DeclareUnicodeCharacter{1E7E}{\udotaccent{V}} \DeclareUnicodeCharacter{1E7F}{\udotaccent{v}} \DeclareUnicodeCharacter{1E80}{\`W} \DeclareUnicodeCharacter{1E81}{\`w} \DeclareUnicodeCharacter{1E82}{\'W} \DeclareUnicodeCharacter{1E83}{\'w} \DeclareUnicodeCharacter{1E84}{\"W} \DeclareUnicodeCharacter{1E85}{\"w} \DeclareUnicodeCharacter{1E86}{\dotaccent{W}} \DeclareUnicodeCharacter{1E87}{\dotaccent{w}} \DeclareUnicodeCharacter{1E88}{\udotaccent{W}} \DeclareUnicodeCharacter{1E89}{\udotaccent{w}} \DeclareUnicodeCharacter{1E8A}{\dotaccent{X}} \DeclareUnicodeCharacter{1E8B}{\dotaccent{x}} \DeclareUnicodeCharacter{1E8C}{\"X} \DeclareUnicodeCharacter{1E8D}{\"x} \DeclareUnicodeCharacter{1E8E}{\dotaccent{Y}} \DeclareUnicodeCharacter{1E8F}{\dotaccent{y}} \DeclareUnicodeCharacter{1E90}{\^Z} \DeclareUnicodeCharacter{1E91}{\^z} \DeclareUnicodeCharacter{1E92}{\udotaccent{Z}} \DeclareUnicodeCharacter{1E93}{\udotaccent{z}} \DeclareUnicodeCharacter{1E94}{\ubaraccent{Z}} \DeclareUnicodeCharacter{1E95}{\ubaraccent{z}} \DeclareUnicodeCharacter{1E96}{\ubaraccent{h}} \DeclareUnicodeCharacter{1E97}{\"t} \DeclareUnicodeCharacter{1E98}{\ringaccent{w}} \DeclareUnicodeCharacter{1E99}{\ringaccent{y}} \DeclareUnicodeCharacter{1EA0}{\udotaccent{A}} \DeclareUnicodeCharacter{1EA1}{\udotaccent{a}} \DeclareUnicodeCharacter{1EB8}{\udotaccent{E}} \DeclareUnicodeCharacter{1EB9}{\udotaccent{e}} \DeclareUnicodeCharacter{1EBC}{\~E} \DeclareUnicodeCharacter{1EBD}{\~e} \DeclareUnicodeCharacter{1ECA}{\udotaccent{I}} \DeclareUnicodeCharacter{1ECB}{\udotaccent{i}} \DeclareUnicodeCharacter{1ECC}{\udotaccent{O}} \DeclareUnicodeCharacter{1ECD}{\udotaccent{o}} \DeclareUnicodeCharacter{1EE4}{\udotaccent{U}} \DeclareUnicodeCharacter{1EE5}{\udotaccent{u}} \DeclareUnicodeCharacter{1EF2}{\`Y} \DeclareUnicodeCharacter{1EF3}{\`y} \DeclareUnicodeCharacter{1EF4}{\udotaccent{Y}} \DeclareUnicodeCharacter{1EF8}{\~Y} \DeclareUnicodeCharacter{1EF9}{\~y} \DeclareUnicodeCharacter{2013}{--} \DeclareUnicodeCharacter{2014}{---} \DeclareUnicodeCharacter{2018}{\quoteleft} \DeclareUnicodeCharacter{2019}{\quoteright} \DeclareUnicodeCharacter{201A}{\quotesinglbase} \DeclareUnicodeCharacter{201C}{\quotedblleft} \DeclareUnicodeCharacter{201D}{\quotedblright} \DeclareUnicodeCharacter{201E}{\quotedblbase} \DeclareUnicodeCharacter{2022}{\bullet} \DeclareUnicodeCharacter{2026}{\dots} \DeclareUnicodeCharacter{2039}{\guilsinglleft} \DeclareUnicodeCharacter{203A}{\guilsinglright} \DeclareUnicodeCharacter{20AC}{\euro} \DeclareUnicodeCharacter{2192}{\expansion} \DeclareUnicodeCharacter{21D2}{\result} \DeclareUnicodeCharacter{2212}{\minus} \DeclareUnicodeCharacter{2217}{\point} \DeclareUnicodeCharacter{2261}{\equiv} }% end of \utfeightchardefs % US-ASCII character definitions. \def\asciichardefs{% nothing need be done \relax } % Make non-ASCII characters printable again for compatibility with % existing Texinfo documents that may use them, even without declaring a % document encoding. % \setnonasciicharscatcode \other \message{formatting,} \newdimen\defaultparindent \defaultparindent = 15pt \chapheadingskip = 15pt plus 4pt minus 2pt \secheadingskip = 12pt plus 3pt minus 2pt \subsecheadingskip = 9pt plus 2pt minus 2pt % Prevent underfull vbox error messages. \vbadness = 10000 % Don't be so finicky about underfull hboxes, either. \hbadness = 2000 % Following George Bush, get rid of widows and orphans. \widowpenalty=10000 \clubpenalty=10000 % Use TeX 3.0's \emergencystretch to help line breaking, but if we're % using an old version of TeX, don't do anything. We want the amount of % stretch added to depend on the line length, hence the dependence on % \hsize. We call this whenever the paper size is set. % \def\setemergencystretch{% \ifx\emergencystretch\thisisundefined % Allow us to assign to \emergencystretch anyway. \def\emergencystretch{\dimen0}% \else \emergencystretch = .15\hsize \fi } % Parameters in order: 1) textheight; 2) textwidth; % 3) voffset; 4) hoffset; 5) binding offset; 6) topskip; % 7) physical page height; 8) physical page width. % % We also call \setleading{\textleading}, so the caller should define % \textleading. The caller should also set \parskip. % \def\internalpagesizes#1#2#3#4#5#6#7#8{% \voffset = #3\relax \topskip = #6\relax \splittopskip = \topskip % \vsize = #1\relax \advance\vsize by \topskip \outervsize = \vsize \advance\outervsize by 2\topandbottommargin \pageheight = \vsize % \hsize = #2\relax \outerhsize = \hsize \advance\outerhsize by 0.5in \pagewidth = \hsize % \normaloffset = #4\relax \bindingoffset = #5\relax % \ifpdf \pdfpageheight #7\relax \pdfpagewidth #8\relax % if we don't reset these, they will remain at "1 true in" of % whatever layout pdftex was dumped with. \pdfhorigin = 1 true in \pdfvorigin = 1 true in \fi % \setleading{\textleading} % \parindent = \defaultparindent \setemergencystretch } % @letterpaper (the default). \def\letterpaper{{\globaldefs = 1 \parskip = 3pt plus 2pt minus 1pt \textleading = 13.2pt % % If page is nothing but text, make it come out even. \internalpagesizes{607.2pt}{6in}% that's 46 lines {\voffset}{.25in}% {\bindingoffset}{36pt}% {11in}{8.5in}% }} % Use @smallbook to reset parameters for 7x9.25 trim size. \def\smallbook{{\globaldefs = 1 \parskip = 2pt plus 1pt \textleading = 12pt % \internalpagesizes{7.5in}{5in}% {-.2in}{0in}% {\bindingoffset}{16pt}% {9.25in}{7in}% % \lispnarrowing = 0.3in \tolerance = 700 \hfuzz = 1pt \contentsrightmargin = 0pt \defbodyindent = .5cm }} % Use @smallerbook to reset parameters for 6x9 trim size. % (Just testing, parameters still in flux.) \def\smallerbook{{\globaldefs = 1 \parskip = 1.5pt plus 1pt \textleading = 12pt % \internalpagesizes{7.4in}{4.8in}% {-.2in}{-.4in}% {0pt}{14pt}% {9in}{6in}% % \lispnarrowing = 0.25in \tolerance = 700 \hfuzz = 1pt \contentsrightmargin = 0pt \defbodyindent = .4cm }} % Use @afourpaper to print on European A4 paper. \def\afourpaper{{\globaldefs = 1 \parskip = 3pt plus 2pt minus 1pt \textleading = 13.2pt % % Double-side printing via postscript on Laserjet 4050 % prints double-sided nicely when \bindingoffset=10mm and \hoffset=-6mm. % To change the settings for a different printer or situation, adjust % \normaloffset until the front-side and back-side texts align. Then % do the same for \bindingoffset. You can set these for testing in % your texinfo source file like this: % @tex % \global\normaloffset = -6mm % \global\bindingoffset = 10mm % @end tex \internalpagesizes{673.2pt}{160mm}% that's 51 lines {\voffset}{\hoffset}% {\bindingoffset}{44pt}% {297mm}{210mm}% % \tolerance = 700 \hfuzz = 1pt \contentsrightmargin = 0pt \defbodyindent = 5mm }} % Use @afivepaper to print on European A5 paper. % From romildo@urano.iceb.ufop.br, 2 July 2000. % He also recommends making @example and @lisp be small. \def\afivepaper{{\globaldefs = 1 \parskip = 2pt plus 1pt minus 0.1pt \textleading = 12.5pt % \internalpagesizes{160mm}{120mm}% {\voffset}{\hoffset}% {\bindingoffset}{8pt}% {210mm}{148mm}% % \lispnarrowing = 0.2in \tolerance = 800 \hfuzz = 1.2pt \contentsrightmargin = 0pt \defbodyindent = 2mm \tableindent = 12mm }} % A specific text layout, 24x15cm overall, intended for A4 paper. \def\afourlatex{{\globaldefs = 1 \afourpaper \internalpagesizes{237mm}{150mm}% {\voffset}{4.6mm}% {\bindingoffset}{7mm}% {297mm}{210mm}% % % Must explicitly reset to 0 because we call \afourpaper. \globaldefs = 0 }} % Use @afourwide to print on A4 paper in landscape format. \def\afourwide{{\globaldefs = 1 \afourpaper \internalpagesizes{241mm}{165mm}% {\voffset}{-2.95mm}% {\bindingoffset}{7mm}% {297mm}{210mm}% \globaldefs = 0 }} % @pagesizes TEXTHEIGHT[,TEXTWIDTH] % Perhaps we should allow setting the margins, \topskip, \parskip, % and/or leading, also. Or perhaps we should compute them somehow. % \parseargdef\pagesizes{\pagesizesyyy #1,,\finish} \def\pagesizesyyy#1,#2,#3\finish{{% \setbox0 = \hbox{\ignorespaces #2}\ifdim\wd0 > 0pt \hsize=#2\relax \fi \globaldefs = 1 % \parskip = 3pt plus 2pt minus 1pt \setleading{\textleading}% % \dimen0 = #1\relax \advance\dimen0 by \voffset % \dimen2 = \hsize \advance\dimen2 by \normaloffset % \internalpagesizes{#1}{\hsize}% {\voffset}{\normaloffset}% {\bindingoffset}{44pt}% {\dimen0}{\dimen2}% }} % Set default to letter. % \letterpaper \message{and turning on texinfo input format.} % DEL is a comment character, in case @c does not suffice. \catcode`\^^? = 14 % Define macros to output various characters with catcode for normal text. \catcode`\"=\other \catcode`\~=\other \catcode`\^=\other \catcode`\_=\other \catcode`\|=\other \catcode`\<=\other \catcode`\>=\other \catcode`\+=\other \catcode`\$=\other \def\normaldoublequote{"} \def\normaltilde{~} \def\normalcaret{^} \def\normalunderscore{_} \def\normalverticalbar{|} \def\normalless{<} \def\normalgreater{>} \def\normalplus{+} \def\normaldollar{$}%$ font-lock fix % This macro is used to make a character print one way in \tt % (where it can probably be output as-is), and another way in other fonts, % where something hairier probably needs to be done. % % #1 is what to print if we are indeed using \tt; #2 is what to print % otherwise. Since all the Computer Modern typewriter fonts have zero % interword stretch (and shrink), and it is reasonable to expect all % typewriter fonts to have this, we can check that font parameter. % \def\ifusingtt#1#2{\ifdim \fontdimen3\font=0pt #1\else #2\fi} % Same as above, but check for italic font. Actually this also catches % non-italic slanted fonts since it is impossible to distinguish them from % italic fonts. But since this is only used by $ and it uses \sl anyway % this is not a problem. \def\ifusingit#1#2{\ifdim \fontdimen1\font>0pt #1\else #2\fi} % Turn off all special characters except @ % (and those which the user can use as if they were ordinary). % Most of these we simply print from the \tt font, but for some, we can % use math or other variants that look better in normal text. \catcode`\"=\active \def\activedoublequote{{\tt\char34}} \let"=\activedoublequote \catcode`\~=\active \def~{{\tt\char126}} \chardef\hat=`\^ \catcode`\^=\active \def^{{\tt \hat}} \catcode`\_=\active \def_{\ifusingtt\normalunderscore\_} \let\realunder=_ % Subroutine for the previous macro. \def\_{\leavevmode \kern.07em \vbox{\hrule width.3em height.1ex}\kern .07em } \catcode`\|=\active \def|{{\tt\char124}} \chardef \less=`\< \catcode`\<=\active \def<{{\tt \less}} \chardef \gtr=`\> \catcode`\>=\active \def>{{\tt \gtr}} \catcode`\+=\active \def+{{\tt \char 43}} \catcode`\$=\active \def${\ifusingit{{\sl\$}}\normaldollar}%$ font-lock fix % If a .fmt file is being used, characters that might appear in a file % name cannot be active until we have parsed the command line. % So turn them off again, and have \everyjob (or @setfilename) turn them on. % \otherifyactive is called near the end of this file. \def\otherifyactive{\catcode`+=\other \catcode`\_=\other} % Used sometimes to turn off (effectively) the active characters even after % parsing them. \def\turnoffactive{% \normalturnoffactive \otherbackslash } \catcode`\@=0 % \backslashcurfont outputs one backslash character in current font, % as in \char`\\. \global\chardef\backslashcurfont=`\\ \global\let\rawbackslashxx=\backslashcurfont % let existing .??s files work % \realbackslash is an actual character `\' with catcode other, and % \doublebackslash is two of them (for the pdf outlines). {\catcode`\\=\other @gdef@realbackslash{\} @gdef@doublebackslash{\\}} % In texinfo, backslash is an active character; it prints the backslash % in fixed width font. \catcode`\\=\active @def@normalbackslash{{@tt@backslashcurfont}} % On startup, @fixbackslash assigns: % @let \ = @normalbackslash % \rawbackslash defines an active \ to do \backslashcurfont. % \otherbackslash defines an active \ to be a literal `\' character with % catcode other. @gdef@rawbackslash{@let\=@backslashcurfont} @gdef@otherbackslash{@let\=@realbackslash} % Same as @turnoffactive except outputs \ as {\tt\char`\\} instead of % the literal character `\'. % @def@normalturnoffactive{% @let\=@normalbackslash @let"=@normaldoublequote @let~=@normaltilde @let^=@normalcaret @let_=@normalunderscore @let|=@normalverticalbar @let<=@normalless @let>=@normalgreater @let+=@normalplus @let$=@normaldollar %$ font-lock fix @markupsetuplqdefault @markupsetuprqdefault @unsepspaces } % Make _ and + \other characters, temporarily. % This is canceled by @fixbackslash. @otherifyactive % If a .fmt file is being used, we don't want the `\input texinfo' to show up. % That is what \eatinput is for; after that, the `\' should revert to printing % a backslash. % @gdef@eatinput input texinfo{@fixbackslash} @global@let\ = @eatinput % On the other hand, perhaps the file did not have a `\input texinfo'. Then % the first `\' in the file would cause an error. This macro tries to fix % that, assuming it is called before the first `\' could plausibly occur. % Also turn back on active characters that might appear in the input % file name, in case not using a pre-dumped format. % @gdef@fixbackslash{% @ifx\@eatinput @let\ = @normalbackslash @fi @catcode`+=@active @catcode`@_=@active } % Say @foo, not \foo, in error messages. @escapechar = `@@ % These look ok in all fonts, so just make them not special. @catcode`@& = @other @catcode`@# = @other @catcode`@% = @other @c Finally, make ` and ' active, so that txicodequoteundirected and @c txicodequotebacktick work right in, e.g., @w{@code{`foo'}}. If we @c don't make ` and ' active, @code will not get them as active chars. @c Do this last of all since we use ` in the previous @catcode assignments. @catcode`@'=@active @catcode`@`=@active @markupsetuplqdefault @markupsetuprqdefault @c Local variables: @c eval: (add-hook 'write-file-hooks 'time-stamp) @c page-delimiter: "^\\\\message" @c time-stamp-start: "def\\\\texinfoversion{" @c time-stamp-format: "%:y-%02m-%02d.%02H" @c time-stamp-end: "}" @c End: @c vim:sw=2: @ignore arch-tag: e1b36e32-c96e-4135-a41a-0b2efa2ea115 @end ignore guile-gnome-platform-2.16.2/build-aux/missing0000755000175000017500000002623311671126166021472 0ustar00wingowingo00000000000000#! /bin/sh # Common stub for a few missing GNU programs while installing. scriptversion=2009-04-28.21; # UTC # Copyright (C) 1996, 1997, 1999, 2000, 2002, 2003, 2004, 2005, 2006, # 2008, 2009 Free Software Foundation, Inc. # Originally by Fran,cois Pinard , 1996. # This program is free software; you can redistribute it and/or modify # it under the terms of the GNU General Public License as published by # the Free Software Foundation; either version 2, or (at your option) # any later version. # This program is distributed in the hope that it will be useful, # but WITHOUT ANY WARRANTY; without even the implied warranty of # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the # GNU General Public License for more details. # You should have received a copy of the GNU General Public License # along with this program. If not, see . # As a special exception to the GNU General Public License, if you # distribute this file as part of a program that contains a # configuration script generated by Autoconf, you may include it under # the same distribution terms that you use for the rest of that program. if test $# -eq 0; then echo 1>&2 "Try \`$0 --help' for more information" exit 1 fi run=: sed_output='s/.* --output[ =]\([^ ]*\).*/\1/p' sed_minuso='s/.* -o \([^ ]*\).*/\1/p' # In the cases where this matters, `missing' is being run in the # srcdir already. if test -f configure.ac; then configure_ac=configure.ac else configure_ac=configure.in fi msg="missing on your system" case $1 in --run) # Try to run requested program, and just exit if it succeeds. run= shift "$@" && exit 0 # Exit code 63 means version mismatch. This often happens # when the user try to use an ancient version of a tool on # a file that requires a minimum version. In this case we # we should proceed has if the program had been absent, or # if --run hadn't been passed. if test $? = 63; then run=: msg="probably too old" fi ;; -h|--h|--he|--hel|--help) echo "\ $0 [OPTION]... PROGRAM [ARGUMENT]... Handle \`PROGRAM [ARGUMENT]...' for when PROGRAM is missing, or return an error status if there is no known handling for PROGRAM. Options: -h, --help display this help and exit -v, --version output version information and exit --run try to run the given command, and emulate it if it fails Supported PROGRAM values: aclocal touch file \`aclocal.m4' autoconf touch file \`configure' autoheader touch file \`config.h.in' autom4te touch the output file, or create a stub one automake touch all \`Makefile.in' files bison create \`y.tab.[ch]', if possible, from existing .[ch] flex create \`lex.yy.c', if possible, from existing .c help2man touch the output file lex create \`lex.yy.c', if possible, from existing .c makeinfo touch the output file tar try tar, gnutar, gtar, then tar without non-portable flags yacc create \`y.tab.[ch]', if possible, from existing .[ch] Version suffixes to PROGRAM as well as the prefixes \`gnu-', \`gnu', and \`g' are ignored when checking the name. Send bug reports to ." exit $? ;; -v|--v|--ve|--ver|--vers|--versi|--versio|--version) echo "missing $scriptversion (GNU Automake)" exit $? ;; -*) echo 1>&2 "$0: Unknown \`$1' option" echo 1>&2 "Try \`$0 --help' for more information" exit 1 ;; esac # normalize program name to check for. program=`echo "$1" | sed ' s/^gnu-//; t s/^gnu//; t s/^g//; t'` # Now exit if we have it, but it failed. Also exit now if we # don't have it and --version was passed (most likely to detect # the program). This is about non-GNU programs, so use $1 not # $program. case $1 in lex*|yacc*) # Not GNU programs, they don't have --version. ;; tar*) if test -n "$run"; then echo 1>&2 "ERROR: \`tar' requires --run" exit 1 elif test "x$2" = "x--version" || test "x$2" = "x--help"; then exit 1 fi ;; *) if test -z "$run" && ($1 --version) > /dev/null 2>&1; then # We have it, but it failed. exit 1 elif test "x$2" = "x--version" || test "x$2" = "x--help"; then # Could not run --version or --help. This is probably someone # running `$TOOL --version' or `$TOOL --help' to check whether # $TOOL exists and not knowing $TOOL uses missing. exit 1 fi ;; esac # If it does not exist, or fails to run (possibly an outdated version), # try to emulate it. case $program in aclocal*) echo 1>&2 "\ WARNING: \`$1' is $msg. You should only need it if you modified \`acinclude.m4' or \`${configure_ac}'. You might want to install the \`Automake' and \`Perl' packages. Grab them from any GNU archive site." touch aclocal.m4 ;; autoconf*) echo 1>&2 "\ WARNING: \`$1' is $msg. You should only need it if you modified \`${configure_ac}'. You might want to install the \`Autoconf' and \`GNU m4' packages. Grab them from any GNU archive site." touch configure ;; autoheader*) echo 1>&2 "\ WARNING: \`$1' is $msg. You should only need it if you modified \`acconfig.h' or \`${configure_ac}'. You might want to install the \`Autoconf' and \`GNU m4' packages. Grab them from any GNU archive site." files=`sed -n 's/^[ ]*A[CM]_CONFIG_HEADER(\([^)]*\)).*/\1/p' ${configure_ac}` test -z "$files" && files="config.h" touch_files= for f in $files; do case $f in *:*) touch_files="$touch_files "`echo "$f" | sed -e 's/^[^:]*://' -e 's/:.*//'`;; *) touch_files="$touch_files $f.in";; esac done touch $touch_files ;; automake*) echo 1>&2 "\ WARNING: \`$1' is $msg. You should only need it if you modified \`Makefile.am', \`acinclude.m4' or \`${configure_ac}'. You might want to install the \`Automake' and \`Perl' packages. Grab them from any GNU archive site." find . -type f -name Makefile.am -print | sed 's/\.am$/.in/' | while read f; do touch "$f"; done ;; autom4te*) echo 1>&2 "\ WARNING: \`$1' is needed, but is $msg. You might have modified some files without having the proper tools for further handling them. You can get \`$1' as part of \`Autoconf' from any GNU archive site." file=`echo "$*" | sed -n "$sed_output"` test -z "$file" && file=`echo "$*" | sed -n "$sed_minuso"` if test -f "$file"; then touch $file else test -z "$file" || exec >$file echo "#! /bin/sh" echo "# Created by GNU Automake missing as a replacement of" echo "# $ $@" echo "exit 0" chmod +x $file exit 1 fi ;; bison*|yacc*) echo 1>&2 "\ WARNING: \`$1' $msg. You should only need it if you modified a \`.y' file. You may need the \`Bison' package in order for those modifications to take effect. You can get \`Bison' from any GNU archive site." rm -f y.tab.c y.tab.h if test $# -ne 1; then eval LASTARG="\${$#}" case $LASTARG in *.y) SRCFILE=`echo "$LASTARG" | sed 's/y$/c/'` if test -f "$SRCFILE"; then cp "$SRCFILE" y.tab.c fi SRCFILE=`echo "$LASTARG" | sed 's/y$/h/'` if test -f "$SRCFILE"; then cp "$SRCFILE" y.tab.h fi ;; esac fi if test ! -f y.tab.h; then echo >y.tab.h fi if test ! -f y.tab.c; then echo 'main() { return 0; }' >y.tab.c fi ;; lex*|flex*) echo 1>&2 "\ WARNING: \`$1' is $msg. You should only need it if you modified a \`.l' file. You may need the \`Flex' package in order for those modifications to take effect. You can get \`Flex' from any GNU archive site." rm -f lex.yy.c if test $# -ne 1; then eval LASTARG="\${$#}" case $LASTARG in *.l) SRCFILE=`echo "$LASTARG" | sed 's/l$/c/'` if test -f "$SRCFILE"; then cp "$SRCFILE" lex.yy.c fi ;; esac fi if test ! -f lex.yy.c; then echo 'main() { return 0; }' >lex.yy.c fi ;; help2man*) echo 1>&2 "\ WARNING: \`$1' is $msg. You should only need it if you modified a dependency of a manual page. You may need the \`Help2man' package in order for those modifications to take effect. You can get \`Help2man' from any GNU archive site." file=`echo "$*" | sed -n "$sed_output"` test -z "$file" && file=`echo "$*" | sed -n "$sed_minuso"` if test -f "$file"; then touch $file else test -z "$file" || exec >$file echo ".ab help2man is required to generate this page" exit $? fi ;; makeinfo*) echo 1>&2 "\ WARNING: \`$1' is $msg. You should only need it if you modified a \`.texi' or \`.texinfo' file, or any other file indirectly affecting the aspect of the manual. The spurious call might also be the consequence of using a buggy \`make' (AIX, DU, IRIX). You might want to install the \`Texinfo' package or the \`GNU make' package. Grab either from any GNU archive site." # The file to touch is that specified with -o ... file=`echo "$*" | sed -n "$sed_output"` test -z "$file" && file=`echo "$*" | sed -n "$sed_minuso"` if test -z "$file"; then # ... or it is the one specified with @setfilename ... infile=`echo "$*" | sed 's/.* \([^ ]*\) *$/\1/'` file=`sed -n ' /^@setfilename/{ s/.* \([^ ]*\) *$/\1/ p q }' $infile` # ... or it is derived from the source name (dir/f.texi becomes f.info) test -z "$file" && file=`echo "$infile" | sed 's,.*/,,;s,.[^.]*$,,'`.info fi # If the file does not exist, the user really needs makeinfo; # let's fail without touching anything. test -f $file || exit 1 touch $file ;; tar*) shift # We have already tried tar in the generic part. # Look for gnutar/gtar before invocation to avoid ugly error # messages. if (gnutar --version > /dev/null 2>&1); then gnutar "$@" && exit 0 fi if (gtar --version > /dev/null 2>&1); then gtar "$@" && exit 0 fi firstarg="$1" if shift; then case $firstarg in *o*) firstarg=`echo "$firstarg" | sed s/o//` tar "$firstarg" "$@" && exit 0 ;; esac case $firstarg in *h*) firstarg=`echo "$firstarg" | sed s/h//` tar "$firstarg" "$@" && exit 0 ;; esac fi echo 1>&2 "\ WARNING: I can't seem to be able to run \`tar' with the given arguments. You may want to install GNU tar or Free paxutils, or check the command line arguments." exit 1 ;; *) echo 1>&2 "\ WARNING: \`$1' is needed, and is $msg. You might have modified some files without having the proper tools for further handling them. Check the \`README' file, it often tells you about the needed prerequisites for installing this package. You may also peek at any GNU archive site, in case some other package would contain this missing \`$1' program." exit 1 ;; esac exit 0 # Local variables: # eval: (add-hook 'write-file-hooks 'time-stamp) # time-stamp-start: "scriptversion=" # time-stamp-format: "%:y-%02m-%02d.%02H" # time-stamp-time-zone: "UTC" # time-stamp-end: "; # UTC" # End: guile-gnome-platform-2.16.2/build-aux/config.guess0000755000175000017500000012673011671126166022416 0ustar00wingowingo00000000000000#! /bin/sh # Attempt to guess a canonical system name. # Copyright (C) 1992, 1993, 1994, 1995, 1996, 1997, 1998, 1999, # 2000, 2001, 2002, 2003, 2004, 2005, 2006, 2007, 2008, 2009, 2010, # 2011 Free Software Foundation, Inc. timestamp='2011-05-11' # This file is free software; you can redistribute it and/or modify it # under the terms of the GNU General Public License as published by # the Free Software Foundation; either version 2 of the License, or # (at your option) any later version. # # This program is distributed in the hope that it will be useful, but # WITHOUT ANY WARRANTY; without even the implied warranty of # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU # General Public License for more details. # # You should have received a copy of the GNU General Public License # along with this program; if not, write to the Free Software # Foundation, Inc., 51 Franklin Street - Fifth Floor, Boston, MA # 02110-1301, USA. # # As a special exception to the GNU General Public License, if you # distribute this file as part of a program that contains a # configuration script generated by Autoconf, you may include it under # the same distribution terms that you use for the rest of that program. # Originally written by Per Bothner. Please send patches (context # diff format) to and include a ChangeLog # entry. # # This script attempts to guess a canonical system name similar to # config.sub. If it succeeds, it prints the system name on stdout, and # exits with 0. Otherwise, it exits with 1. # # You can get the latest version of this script from: # http://git.savannah.gnu.org/gitweb/?p=config.git;a=blob_plain;f=config.guess;hb=HEAD me=`echo "$0" | sed -e 's,.*/,,'` usage="\ Usage: $0 [OPTION] Output the configuration name of the system \`$me' is run on. Operation modes: -h, --help print this help, then exit -t, --time-stamp print date of last modification, then exit -v, --version print version number, then exit Report bugs and patches to ." version="\ GNU config.guess ($timestamp) Originally written by Per Bothner. Copyright (C) 1992, 1993, 1994, 1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004, 2005, 2006, 2007, 2008, 2009, 2010, 2011 Free Software Foundation, Inc. This is free software; see the source for copying conditions. There is NO warranty; not even for MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE." help=" Try \`$me --help' for more information." # Parse command line while test $# -gt 0 ; do case $1 in --time-stamp | --time* | -t ) echo "$timestamp" ; exit ;; --version | -v ) echo "$version" ; exit ;; --help | --h* | -h ) echo "$usage"; exit ;; -- ) # Stop option processing shift; break ;; - ) # Use stdin as input. break ;; -* ) echo "$me: invalid option $1$help" >&2 exit 1 ;; * ) break ;; esac done if test $# != 0; then echo "$me: too many arguments$help" >&2 exit 1 fi trap 'exit 1' 1 2 15 # CC_FOR_BUILD -- compiler used by this script. Note that the use of a # compiler to aid in system detection is discouraged as it requires # temporary files to be created and, as you can see below, it is a # headache to deal with in a portable fashion. # Historically, `CC_FOR_BUILD' used to be named `HOST_CC'. We still # use `HOST_CC' if defined, but it is deprecated. # Portable tmp directory creation inspired by the Autoconf team. set_cc_for_build=' trap "exitcode=\$?; (rm -f \$tmpfiles 2>/dev/null; rmdir \$tmp 2>/dev/null) && exit \$exitcode" 0 ; trap "rm -f \$tmpfiles 2>/dev/null; rmdir \$tmp 2>/dev/null; exit 1" 1 2 13 15 ; : ${TMPDIR=/tmp} ; { tmp=`(umask 077 && mktemp -d "$TMPDIR/cgXXXXXX") 2>/dev/null` && test -n "$tmp" && test -d "$tmp" ; } || { test -n "$RANDOM" && tmp=$TMPDIR/cg$$-$RANDOM && (umask 077 && mkdir $tmp) ; } || { tmp=$TMPDIR/cg-$$ && (umask 077 && mkdir $tmp) && echo "Warning: creating insecure temp directory" >&2 ; } || { echo "$me: cannot create a temporary directory in $TMPDIR" >&2 ; exit 1 ; } ; dummy=$tmp/dummy ; tmpfiles="$dummy.c $dummy.o $dummy.rel $dummy" ; case $CC_FOR_BUILD,$HOST_CC,$CC in ,,) echo "int x;" > $dummy.c ; for c in cc gcc c89 c99 ; do if ($c -c -o $dummy.o $dummy.c) >/dev/null 2>&1 ; then CC_FOR_BUILD="$c"; break ; fi ; done ; if test x"$CC_FOR_BUILD" = x ; then CC_FOR_BUILD=no_compiler_found ; fi ;; ,,*) CC_FOR_BUILD=$CC ;; ,*,*) CC_FOR_BUILD=$HOST_CC ;; esac ; set_cc_for_build= ;' # This is needed to find uname on a Pyramid OSx when run in the BSD universe. # (ghazi@noc.rutgers.edu 1994-08-24) if (test -f /.attbin/uname) >/dev/null 2>&1 ; then PATH=$PATH:/.attbin ; export PATH fi UNAME_MACHINE=`(uname -m) 2>/dev/null` || UNAME_MACHINE=unknown UNAME_RELEASE=`(uname -r) 2>/dev/null` || UNAME_RELEASE=unknown UNAME_SYSTEM=`(uname -s) 2>/dev/null` || UNAME_SYSTEM=unknown UNAME_VERSION=`(uname -v) 2>/dev/null` || UNAME_VERSION=unknown # Note: order is significant - the case branches are not exclusive. case "${UNAME_MACHINE}:${UNAME_SYSTEM}:${UNAME_RELEASE}:${UNAME_VERSION}" in *:NetBSD:*:*) # NetBSD (nbsd) targets should (where applicable) match one or # more of the tupples: *-*-netbsdelf*, *-*-netbsdaout*, # *-*-netbsdecoff* and *-*-netbsd*. For targets that recently # switched to ELF, *-*-netbsd* would select the old # object file format. This provides both forward # compatibility and a consistent mechanism for selecting the # object file format. # # Note: NetBSD doesn't particularly care about the vendor # portion of the name. We always set it to "unknown". sysctl="sysctl -n hw.machine_arch" UNAME_MACHINE_ARCH=`(/sbin/$sysctl 2>/dev/null || \ /usr/sbin/$sysctl 2>/dev/null || echo unknown)` case "${UNAME_MACHINE_ARCH}" in armeb) machine=armeb-unknown ;; arm*) machine=arm-unknown ;; sh3el) machine=shl-unknown ;; sh3eb) machine=sh-unknown ;; sh5el) machine=sh5le-unknown ;; *) machine=${UNAME_MACHINE_ARCH}-unknown ;; esac # The Operating System including object format, if it has switched # to ELF recently, or will in the future. case "${UNAME_MACHINE_ARCH}" in arm*|i386|m68k|ns32k|sh3*|sparc|vax) eval $set_cc_for_build if echo __ELF__ | $CC_FOR_BUILD -E - 2>/dev/null \ | grep -q __ELF__ then # Once all utilities can be ECOFF (netbsdecoff) or a.out (netbsdaout). # Return netbsd for either. FIX? os=netbsd else os=netbsdelf fi ;; *) os=netbsd ;; esac # The OS release # Debian GNU/NetBSD machines have a different userland, and # thus, need a distinct triplet. However, they do not need # kernel version information, so it can be replaced with a # suitable tag, in the style of linux-gnu. case "${UNAME_VERSION}" in Debian*) release='-gnu' ;; *) release=`echo ${UNAME_RELEASE}|sed -e 's/[-_].*/\./'` ;; esac # Since CPU_TYPE-MANUFACTURER-KERNEL-OPERATING_SYSTEM: # contains redundant information, the shorter form: # CPU_TYPE-MANUFACTURER-OPERATING_SYSTEM is used. echo "${machine}-${os}${release}" exit ;; *:OpenBSD:*:*) UNAME_MACHINE_ARCH=`arch | sed 's/OpenBSD.//'` echo ${UNAME_MACHINE_ARCH}-unknown-openbsd${UNAME_RELEASE} exit ;; *:ekkoBSD:*:*) echo ${UNAME_MACHINE}-unknown-ekkobsd${UNAME_RELEASE} exit ;; *:SolidBSD:*:*) echo ${UNAME_MACHINE}-unknown-solidbsd${UNAME_RELEASE} exit ;; macppc:MirBSD:*:*) echo powerpc-unknown-mirbsd${UNAME_RELEASE} exit ;; *:MirBSD:*:*) echo ${UNAME_MACHINE}-unknown-mirbsd${UNAME_RELEASE} exit ;; alpha:OSF1:*:*) case $UNAME_RELEASE in *4.0) UNAME_RELEASE=`/usr/sbin/sizer -v | awk '{print $3}'` ;; *5.*) UNAME_RELEASE=`/usr/sbin/sizer -v | awk '{print $4}'` ;; esac # According to Compaq, /usr/sbin/psrinfo has been available on # OSF/1 and Tru64 systems produced since 1995. I hope that # covers most systems running today. This code pipes the CPU # types through head -n 1, so we only detect the type of CPU 0. ALPHA_CPU_TYPE=`/usr/sbin/psrinfo -v | sed -n -e 's/^ The alpha \(.*\) processor.*$/\1/p' | head -n 1` case "$ALPHA_CPU_TYPE" in "EV4 (21064)") UNAME_MACHINE="alpha" ;; "EV4.5 (21064)") UNAME_MACHINE="alpha" ;; "LCA4 (21066/21068)") UNAME_MACHINE="alpha" ;; "EV5 (21164)") UNAME_MACHINE="alphaev5" ;; "EV5.6 (21164A)") UNAME_MACHINE="alphaev56" ;; "EV5.6 (21164PC)") UNAME_MACHINE="alphapca56" ;; "EV5.7 (21164PC)") UNAME_MACHINE="alphapca57" ;; "EV6 (21264)") UNAME_MACHINE="alphaev6" ;; "EV6.7 (21264A)") UNAME_MACHINE="alphaev67" ;; "EV6.8CB (21264C)") UNAME_MACHINE="alphaev68" ;; "EV6.8AL (21264B)") UNAME_MACHINE="alphaev68" ;; "EV6.8CX (21264D)") UNAME_MACHINE="alphaev68" ;; "EV6.9A (21264/EV69A)") UNAME_MACHINE="alphaev69" ;; "EV7 (21364)") UNAME_MACHINE="alphaev7" ;; "EV7.9 (21364A)") UNAME_MACHINE="alphaev79" ;; esac # A Pn.n version is a patched version. # A Vn.n version is a released version. # A Tn.n version is a released field test version. # A Xn.n version is an unreleased experimental baselevel. # 1.2 uses "1.2" for uname -r. echo ${UNAME_MACHINE}-dec-osf`echo ${UNAME_RELEASE} | sed -e 's/^[PVTX]//' | tr 'ABCDEFGHIJKLMNOPQRSTUVWXYZ' 'abcdefghijklmnopqrstuvwxyz'` # Reset EXIT trap before exiting to avoid spurious non-zero exit code. exitcode=$? trap '' 0 exit $exitcode ;; Alpha\ *:Windows_NT*:*) # How do we know it's Interix rather than the generic POSIX subsystem? # Should we change UNAME_MACHINE based on the output of uname instead # of the specific Alpha model? echo alpha-pc-interix exit ;; 21064:Windows_NT:50:3) echo alpha-dec-winnt3.5 exit ;; Amiga*:UNIX_System_V:4.0:*) echo m68k-unknown-sysv4 exit ;; *:[Aa]miga[Oo][Ss]:*:*) echo ${UNAME_MACHINE}-unknown-amigaos exit ;; *:[Mm]orph[Oo][Ss]:*:*) echo ${UNAME_MACHINE}-unknown-morphos exit ;; *:OS/390:*:*) echo i370-ibm-openedition exit ;; *:z/VM:*:*) echo s390-ibm-zvmoe exit ;; *:OS400:*:*) echo powerpc-ibm-os400 exit ;; arm:RISC*:1.[012]*:*|arm:riscix:1.[012]*:*) echo arm-acorn-riscix${UNAME_RELEASE} exit ;; arm:riscos:*:*|arm:RISCOS:*:*) echo arm-unknown-riscos exit ;; SR2?01:HI-UX/MPP:*:* | SR8000:HI-UX/MPP:*:*) echo hppa1.1-hitachi-hiuxmpp exit ;; Pyramid*:OSx*:*:* | MIS*:OSx*:*:* | MIS*:SMP_DC-OSx*:*:*) # akee@wpdis03.wpafb.af.mil (Earle F. Ake) contributed MIS and NILE. if test "`(/bin/universe) 2>/dev/null`" = att ; then echo pyramid-pyramid-sysv3 else echo pyramid-pyramid-bsd fi exit ;; NILE*:*:*:dcosx) echo pyramid-pyramid-svr4 exit ;; DRS?6000:unix:4.0:6*) echo sparc-icl-nx6 exit ;; DRS?6000:UNIX_SV:4.2*:7* | DRS?6000:isis:4.2*:7*) case `/usr/bin/uname -p` in sparc) echo sparc-icl-nx7; exit ;; esac ;; s390x:SunOS:*:*) echo ${UNAME_MACHINE}-ibm-solaris2`echo ${UNAME_RELEASE}|sed -e 's/[^.]*//'` exit ;; sun4H:SunOS:5.*:*) echo sparc-hal-solaris2`echo ${UNAME_RELEASE}|sed -e 's/[^.]*//'` exit ;; sun4*:SunOS:5.*:* | tadpole*:SunOS:5.*:*) echo sparc-sun-solaris2`echo ${UNAME_RELEASE}|sed -e 's/[^.]*//'` exit ;; i86pc:AuroraUX:5.*:* | i86xen:AuroraUX:5.*:*) echo i386-pc-auroraux${UNAME_RELEASE} exit ;; i86pc:SunOS:5.*:* | i86xen:SunOS:5.*:*) eval $set_cc_for_build SUN_ARCH="i386" # If there is a compiler, see if it is configured for 64-bit objects. # Note that the Sun cc does not turn __LP64__ into 1 like gcc does. # This test works for both compilers. if [ "$CC_FOR_BUILD" != 'no_compiler_found' ]; then if (echo '#ifdef __amd64'; echo IS_64BIT_ARCH; echo '#endif') | \ (CCOPTS= $CC_FOR_BUILD -E - 2>/dev/null) | \ grep IS_64BIT_ARCH >/dev/null then SUN_ARCH="x86_64" fi fi echo ${SUN_ARCH}-pc-solaris2`echo ${UNAME_RELEASE}|sed -e 's/[^.]*//'` exit ;; sun4*:SunOS:6*:*) # According to config.sub, this is the proper way to canonicalize # SunOS6. Hard to guess exactly what SunOS6 will be like, but # it's likely to be more like Solaris than SunOS4. echo sparc-sun-solaris3`echo ${UNAME_RELEASE}|sed -e 's/[^.]*//'` exit ;; sun4*:SunOS:*:*) case "`/usr/bin/arch -k`" in Series*|S4*) UNAME_RELEASE=`uname -v` ;; esac # Japanese Language versions have a version number like `4.1.3-JL'. echo sparc-sun-sunos`echo ${UNAME_RELEASE}|sed -e 's/-/_/'` exit ;; sun3*:SunOS:*:*) echo m68k-sun-sunos${UNAME_RELEASE} exit ;; sun*:*:4.2BSD:*) UNAME_RELEASE=`(sed 1q /etc/motd | awk '{print substr($5,1,3)}') 2>/dev/null` test "x${UNAME_RELEASE}" = "x" && UNAME_RELEASE=3 case "`/bin/arch`" in sun3) echo m68k-sun-sunos${UNAME_RELEASE} ;; sun4) echo sparc-sun-sunos${UNAME_RELEASE} ;; esac exit ;; aushp:SunOS:*:*) echo sparc-auspex-sunos${UNAME_RELEASE} exit ;; # The situation for MiNT is a little confusing. The machine name # can be virtually everything (everything which is not # "atarist" or "atariste" at least should have a processor # > m68000). The system name ranges from "MiNT" over "FreeMiNT" # to the lowercase version "mint" (or "freemint"). Finally # the system name "TOS" denotes a system which is actually not # MiNT. But MiNT is downward compatible to TOS, so this should # be no problem. atarist[e]:*MiNT:*:* | atarist[e]:*mint:*:* | atarist[e]:*TOS:*:*) echo m68k-atari-mint${UNAME_RELEASE} exit ;; atari*:*MiNT:*:* | atari*:*mint:*:* | atarist[e]:*TOS:*:*) echo m68k-atari-mint${UNAME_RELEASE} exit ;; *falcon*:*MiNT:*:* | *falcon*:*mint:*:* | *falcon*:*TOS:*:*) echo m68k-atari-mint${UNAME_RELEASE} exit ;; milan*:*MiNT:*:* | milan*:*mint:*:* | *milan*:*TOS:*:*) echo m68k-milan-mint${UNAME_RELEASE} exit ;; hades*:*MiNT:*:* | hades*:*mint:*:* | *hades*:*TOS:*:*) echo m68k-hades-mint${UNAME_RELEASE} exit ;; *:*MiNT:*:* | *:*mint:*:* | *:*TOS:*:*) echo m68k-unknown-mint${UNAME_RELEASE} exit ;; m68k:machten:*:*) echo m68k-apple-machten${UNAME_RELEASE} exit ;; powerpc:machten:*:*) echo powerpc-apple-machten${UNAME_RELEASE} exit ;; RISC*:Mach:*:*) echo mips-dec-mach_bsd4.3 exit ;; RISC*:ULTRIX:*:*) echo mips-dec-ultrix${UNAME_RELEASE} exit ;; VAX*:ULTRIX*:*:*) echo vax-dec-ultrix${UNAME_RELEASE} exit ;; 2020:CLIX:*:* | 2430:CLIX:*:*) echo clipper-intergraph-clix${UNAME_RELEASE} exit ;; mips:*:*:UMIPS | mips:*:*:RISCos) eval $set_cc_for_build sed 's/^ //' << EOF >$dummy.c #ifdef __cplusplus #include /* for printf() prototype */ int main (int argc, char *argv[]) { #else int main (argc, argv) int argc; char *argv[]; { #endif #if defined (host_mips) && defined (MIPSEB) #if defined (SYSTYPE_SYSV) printf ("mips-mips-riscos%ssysv\n", argv[1]); exit (0); #endif #if defined (SYSTYPE_SVR4) printf ("mips-mips-riscos%ssvr4\n", argv[1]); exit (0); #endif #if defined (SYSTYPE_BSD43) || defined(SYSTYPE_BSD) printf ("mips-mips-riscos%sbsd\n", argv[1]); exit (0); #endif #endif exit (-1); } EOF $CC_FOR_BUILD -o $dummy $dummy.c && dummyarg=`echo "${UNAME_RELEASE}" | sed -n 's/\([0-9]*\).*/\1/p'` && SYSTEM_NAME=`$dummy $dummyarg` && { echo "$SYSTEM_NAME"; exit; } echo mips-mips-riscos${UNAME_RELEASE} exit ;; Motorola:PowerMAX_OS:*:*) echo powerpc-motorola-powermax exit ;; Motorola:*:4.3:PL8-*) echo powerpc-harris-powermax exit ;; Night_Hawk:*:*:PowerMAX_OS | Synergy:PowerMAX_OS:*:*) echo powerpc-harris-powermax exit ;; Night_Hawk:Power_UNIX:*:*) echo powerpc-harris-powerunix exit ;; m88k:CX/UX:7*:*) echo m88k-harris-cxux7 exit ;; m88k:*:4*:R4*) echo m88k-motorola-sysv4 exit ;; m88k:*:3*:R3*) echo m88k-motorola-sysv3 exit ;; AViiON:dgux:*:*) # DG/UX returns AViiON for all architectures UNAME_PROCESSOR=`/usr/bin/uname -p` if [ $UNAME_PROCESSOR = mc88100 ] || [ $UNAME_PROCESSOR = mc88110 ] then if [ ${TARGET_BINARY_INTERFACE}x = m88kdguxelfx ] || \ [ ${TARGET_BINARY_INTERFACE}x = x ] then echo m88k-dg-dgux${UNAME_RELEASE} else echo m88k-dg-dguxbcs${UNAME_RELEASE} fi else echo i586-dg-dgux${UNAME_RELEASE} fi exit ;; M88*:DolphinOS:*:*) # DolphinOS (SVR3) echo m88k-dolphin-sysv3 exit ;; M88*:*:R3*:*) # Delta 88k system running SVR3 echo m88k-motorola-sysv3 exit ;; XD88*:*:*:*) # Tektronix XD88 system running UTekV (SVR3) echo m88k-tektronix-sysv3 exit ;; Tek43[0-9][0-9]:UTek:*:*) # Tektronix 4300 system running UTek (BSD) echo m68k-tektronix-bsd exit ;; *:IRIX*:*:*) echo mips-sgi-irix`echo ${UNAME_RELEASE}|sed -e 's/-/_/g'` exit ;; ????????:AIX?:[12].1:2) # AIX 2.2.1 or AIX 2.1.1 is RT/PC AIX. echo romp-ibm-aix # uname -m gives an 8 hex-code CPU id exit ;; # Note that: echo "'`uname -s`'" gives 'AIX ' i*86:AIX:*:*) echo i386-ibm-aix exit ;; ia64:AIX:*:*) if [ -x /usr/bin/oslevel ] ; then IBM_REV=`/usr/bin/oslevel` else IBM_REV=${UNAME_VERSION}.${UNAME_RELEASE} fi echo ${UNAME_MACHINE}-ibm-aix${IBM_REV} exit ;; *:AIX:2:3) if grep bos325 /usr/include/stdio.h >/dev/null 2>&1; then eval $set_cc_for_build sed 's/^ //' << EOF >$dummy.c #include main() { if (!__power_pc()) exit(1); puts("powerpc-ibm-aix3.2.5"); exit(0); } EOF if $CC_FOR_BUILD -o $dummy $dummy.c && SYSTEM_NAME=`$dummy` then echo "$SYSTEM_NAME" else echo rs6000-ibm-aix3.2.5 fi elif grep bos324 /usr/include/stdio.h >/dev/null 2>&1; then echo rs6000-ibm-aix3.2.4 else echo rs6000-ibm-aix3.2 fi exit ;; *:AIX:*:[4567]) IBM_CPU_ID=`/usr/sbin/lsdev -C -c processor -S available | sed 1q | awk '{ print $1 }'` if /usr/sbin/lsattr -El ${IBM_CPU_ID} | grep ' POWER' >/dev/null 2>&1; then IBM_ARCH=rs6000 else IBM_ARCH=powerpc fi if [ -x /usr/bin/oslevel ] ; then IBM_REV=`/usr/bin/oslevel` else IBM_REV=${UNAME_VERSION}.${UNAME_RELEASE} fi echo ${IBM_ARCH}-ibm-aix${IBM_REV} exit ;; *:AIX:*:*) echo rs6000-ibm-aix exit ;; ibmrt:4.4BSD:*|romp-ibm:BSD:*) echo romp-ibm-bsd4.4 exit ;; ibmrt:*BSD:*|romp-ibm:BSD:*) # covers RT/PC BSD and echo romp-ibm-bsd${UNAME_RELEASE} # 4.3 with uname added to exit ;; # report: romp-ibm BSD 4.3 *:BOSX:*:*) echo rs6000-bull-bosx exit ;; DPX/2?00:B.O.S.:*:*) echo m68k-bull-sysv3 exit ;; 9000/[34]??:4.3bsd:1.*:*) echo m68k-hp-bsd exit ;; hp300:4.4BSD:*:* | 9000/[34]??:4.3bsd:2.*:*) echo m68k-hp-bsd4.4 exit ;; 9000/[34678]??:HP-UX:*:*) HPUX_REV=`echo ${UNAME_RELEASE}|sed -e 's/[^.]*.[0B]*//'` case "${UNAME_MACHINE}" in 9000/31? ) HP_ARCH=m68000 ;; 9000/[34]?? ) HP_ARCH=m68k ;; 9000/[678][0-9][0-9]) if [ -x /usr/bin/getconf ]; then sc_cpu_version=`/usr/bin/getconf SC_CPU_VERSION 2>/dev/null` sc_kernel_bits=`/usr/bin/getconf SC_KERNEL_BITS 2>/dev/null` case "${sc_cpu_version}" in 523) HP_ARCH="hppa1.0" ;; # CPU_PA_RISC1_0 528) HP_ARCH="hppa1.1" ;; # CPU_PA_RISC1_1 532) # CPU_PA_RISC2_0 case "${sc_kernel_bits}" in 32) HP_ARCH="hppa2.0n" ;; 64) HP_ARCH="hppa2.0w" ;; '') HP_ARCH="hppa2.0" ;; # HP-UX 10.20 esac ;; esac fi if [ "${HP_ARCH}" = "" ]; then eval $set_cc_for_build sed 's/^ //' << EOF >$dummy.c #define _HPUX_SOURCE #include #include int main () { #if defined(_SC_KERNEL_BITS) long bits = sysconf(_SC_KERNEL_BITS); #endif long cpu = sysconf (_SC_CPU_VERSION); switch (cpu) { case CPU_PA_RISC1_0: puts ("hppa1.0"); break; case CPU_PA_RISC1_1: puts ("hppa1.1"); break; case CPU_PA_RISC2_0: #if defined(_SC_KERNEL_BITS) switch (bits) { case 64: puts ("hppa2.0w"); break; case 32: puts ("hppa2.0n"); break; default: puts ("hppa2.0"); break; } break; #else /* !defined(_SC_KERNEL_BITS) */ puts ("hppa2.0"); break; #endif default: puts ("hppa1.0"); break; } exit (0); } EOF (CCOPTS= $CC_FOR_BUILD -o $dummy $dummy.c 2>/dev/null) && HP_ARCH=`$dummy` test -z "$HP_ARCH" && HP_ARCH=hppa fi ;; esac if [ ${HP_ARCH} = "hppa2.0w" ] then eval $set_cc_for_build # hppa2.0w-hp-hpux* has a 64-bit kernel and a compiler generating # 32-bit code. hppa64-hp-hpux* has the same kernel and a compiler # generating 64-bit code. GNU and HP use different nomenclature: # # $ CC_FOR_BUILD=cc ./config.guess # => hppa2.0w-hp-hpux11.23 # $ CC_FOR_BUILD="cc +DA2.0w" ./config.guess # => hppa64-hp-hpux11.23 if echo __LP64__ | (CCOPTS= $CC_FOR_BUILD -E - 2>/dev/null) | grep -q __LP64__ then HP_ARCH="hppa2.0w" else HP_ARCH="hppa64" fi fi echo ${HP_ARCH}-hp-hpux${HPUX_REV} exit ;; ia64:HP-UX:*:*) HPUX_REV=`echo ${UNAME_RELEASE}|sed -e 's/[^.]*.[0B]*//'` echo ia64-hp-hpux${HPUX_REV} exit ;; 3050*:HI-UX:*:*) eval $set_cc_for_build sed 's/^ //' << EOF >$dummy.c #include int main () { long cpu = sysconf (_SC_CPU_VERSION); /* The order matters, because CPU_IS_HP_MC68K erroneously returns true for CPU_PA_RISC1_0. CPU_IS_PA_RISC returns correct results, however. */ if (CPU_IS_PA_RISC (cpu)) { switch (cpu) { case CPU_PA_RISC1_0: puts ("hppa1.0-hitachi-hiuxwe2"); break; case CPU_PA_RISC1_1: puts ("hppa1.1-hitachi-hiuxwe2"); break; case CPU_PA_RISC2_0: puts ("hppa2.0-hitachi-hiuxwe2"); break; default: puts ("hppa-hitachi-hiuxwe2"); break; } } else if (CPU_IS_HP_MC68K (cpu)) puts ("m68k-hitachi-hiuxwe2"); else puts ("unknown-hitachi-hiuxwe2"); exit (0); } EOF $CC_FOR_BUILD -o $dummy $dummy.c && SYSTEM_NAME=`$dummy` && { echo "$SYSTEM_NAME"; exit; } echo unknown-hitachi-hiuxwe2 exit ;; 9000/7??:4.3bsd:*:* | 9000/8?[79]:4.3bsd:*:* ) echo hppa1.1-hp-bsd exit ;; 9000/8??:4.3bsd:*:*) echo hppa1.0-hp-bsd exit ;; *9??*:MPE/iX:*:* | *3000*:MPE/iX:*:*) echo hppa1.0-hp-mpeix exit ;; hp7??:OSF1:*:* | hp8?[79]:OSF1:*:* ) echo hppa1.1-hp-osf exit ;; hp8??:OSF1:*:*) echo hppa1.0-hp-osf exit ;; i*86:OSF1:*:*) if [ -x /usr/sbin/sysversion ] ; then echo ${UNAME_MACHINE}-unknown-osf1mk else echo ${UNAME_MACHINE}-unknown-osf1 fi exit ;; parisc*:Lites*:*:*) echo hppa1.1-hp-lites exit ;; C1*:ConvexOS:*:* | convex:ConvexOS:C1*:*) echo c1-convex-bsd exit ;; C2*:ConvexOS:*:* | convex:ConvexOS:C2*:*) if getsysinfo -f scalar_acc then echo c32-convex-bsd else echo c2-convex-bsd fi exit ;; C34*:ConvexOS:*:* | convex:ConvexOS:C34*:*) echo c34-convex-bsd exit ;; C38*:ConvexOS:*:* | convex:ConvexOS:C38*:*) echo c38-convex-bsd exit ;; C4*:ConvexOS:*:* | convex:ConvexOS:C4*:*) echo c4-convex-bsd exit ;; CRAY*Y-MP:*:*:*) echo ymp-cray-unicos${UNAME_RELEASE} | sed -e 's/\.[^.]*$/.X/' exit ;; CRAY*[A-Z]90:*:*:*) echo ${UNAME_MACHINE}-cray-unicos${UNAME_RELEASE} \ | sed -e 's/CRAY.*\([A-Z]90\)/\1/' \ -e y/ABCDEFGHIJKLMNOPQRSTUVWXYZ/abcdefghijklmnopqrstuvwxyz/ \ -e 's/\.[^.]*$/.X/' exit ;; CRAY*TS:*:*:*) echo t90-cray-unicos${UNAME_RELEASE} | sed -e 's/\.[^.]*$/.X/' exit ;; CRAY*T3E:*:*:*) echo alphaev5-cray-unicosmk${UNAME_RELEASE} | sed -e 's/\.[^.]*$/.X/' exit ;; CRAY*SV1:*:*:*) echo sv1-cray-unicos${UNAME_RELEASE} | sed -e 's/\.[^.]*$/.X/' exit ;; *:UNICOS/mp:*:*) echo craynv-cray-unicosmp${UNAME_RELEASE} | sed -e 's/\.[^.]*$/.X/' exit ;; F30[01]:UNIX_System_V:*:* | F700:UNIX_System_V:*:*) FUJITSU_PROC=`uname -m | tr 'ABCDEFGHIJKLMNOPQRSTUVWXYZ' 'abcdefghijklmnopqrstuvwxyz'` FUJITSU_SYS=`uname -p | tr 'ABCDEFGHIJKLMNOPQRSTUVWXYZ' 'abcdefghijklmnopqrstuvwxyz' | sed -e 's/\///'` FUJITSU_REL=`echo ${UNAME_RELEASE} | sed -e 's/ /_/'` echo "${FUJITSU_PROC}-fujitsu-${FUJITSU_SYS}${FUJITSU_REL}" exit ;; 5000:UNIX_System_V:4.*:*) FUJITSU_SYS=`uname -p | tr 'ABCDEFGHIJKLMNOPQRSTUVWXYZ' 'abcdefghijklmnopqrstuvwxyz' | sed -e 's/\///'` FUJITSU_REL=`echo ${UNAME_RELEASE} | tr 'ABCDEFGHIJKLMNOPQRSTUVWXYZ' 'abcdefghijklmnopqrstuvwxyz' | sed -e 's/ /_/'` echo "sparc-fujitsu-${FUJITSU_SYS}${FUJITSU_REL}" exit ;; i*86:BSD/386:*:* | i*86:BSD/OS:*:* | *:Ascend\ Embedded/OS:*:*) echo ${UNAME_MACHINE}-pc-bsdi${UNAME_RELEASE} exit ;; sparc*:BSD/OS:*:*) echo sparc-unknown-bsdi${UNAME_RELEASE} exit ;; *:BSD/OS:*:*) echo ${UNAME_MACHINE}-unknown-bsdi${UNAME_RELEASE} exit ;; *:FreeBSD:*:*) case ${UNAME_MACHINE} in pc98) echo i386-unknown-freebsd`echo ${UNAME_RELEASE}|sed -e 's/[-(].*//'` ;; amd64) echo x86_64-unknown-freebsd`echo ${UNAME_RELEASE}|sed -e 's/[-(].*//'` ;; *) echo ${UNAME_MACHINE}-unknown-freebsd`echo ${UNAME_RELEASE}|sed -e 's/[-(].*//'` ;; esac exit ;; i*:CYGWIN*:*) echo ${UNAME_MACHINE}-pc-cygwin exit ;; *:MINGW*:*) echo ${UNAME_MACHINE}-pc-mingw32 exit ;; i*:windows32*:*) # uname -m includes "-pc" on this system. echo ${UNAME_MACHINE}-mingw32 exit ;; i*:PW*:*) echo ${UNAME_MACHINE}-pc-pw32 exit ;; *:Interix*:*) case ${UNAME_MACHINE} in x86) echo i586-pc-interix${UNAME_RELEASE} exit ;; authenticamd | genuineintel | EM64T) echo x86_64-unknown-interix${UNAME_RELEASE} exit ;; IA64) echo ia64-unknown-interix${UNAME_RELEASE} exit ;; esac ;; [345]86:Windows_95:* | [345]86:Windows_98:* | [345]86:Windows_NT:*) echo i${UNAME_MACHINE}-pc-mks exit ;; 8664:Windows_NT:*) echo x86_64-pc-mks exit ;; i*:Windows_NT*:* | Pentium*:Windows_NT*:*) # How do we know it's Interix rather than the generic POSIX subsystem? # It also conflicts with pre-2.0 versions of AT&T UWIN. Should we # UNAME_MACHINE based on the output of uname instead of i386? echo i586-pc-interix exit ;; i*:UWIN*:*) echo ${UNAME_MACHINE}-pc-uwin exit ;; amd64:CYGWIN*:*:* | x86_64:CYGWIN*:*:*) echo x86_64-unknown-cygwin exit ;; p*:CYGWIN*:*) echo powerpcle-unknown-cygwin exit ;; prep*:SunOS:5.*:*) echo powerpcle-unknown-solaris2`echo ${UNAME_RELEASE}|sed -e 's/[^.]*//'` exit ;; *:GNU:*:*) # the GNU system echo `echo ${UNAME_MACHINE}|sed -e 's,[-/].*$,,'`-unknown-gnu`echo ${UNAME_RELEASE}|sed -e 's,/.*$,,'` exit ;; *:GNU/*:*:*) # other systems with GNU libc and userland echo ${UNAME_MACHINE}-unknown-`echo ${UNAME_SYSTEM} | sed 's,^[^/]*/,,' | tr '[A-Z]' '[a-z]'``echo ${UNAME_RELEASE}|sed -e 's/[-(].*//'`-gnu exit ;; i*86:Minix:*:*) echo ${UNAME_MACHINE}-pc-minix exit ;; alpha:Linux:*:*) case `sed -n '/^cpu model/s/^.*: \(.*\)/\1/p' < /proc/cpuinfo` in EV5) UNAME_MACHINE=alphaev5 ;; EV56) UNAME_MACHINE=alphaev56 ;; PCA56) UNAME_MACHINE=alphapca56 ;; PCA57) UNAME_MACHINE=alphapca56 ;; EV6) UNAME_MACHINE=alphaev6 ;; EV67) UNAME_MACHINE=alphaev67 ;; EV68*) UNAME_MACHINE=alphaev68 ;; esac objdump --private-headers /bin/sh | grep -q ld.so.1 if test "$?" = 0 ; then LIBC="libc1" ; else LIBC="" ; fi echo ${UNAME_MACHINE}-unknown-linux-gnu${LIBC} exit ;; arm*:Linux:*:*) eval $set_cc_for_build if echo __ARM_EABI__ | $CC_FOR_BUILD -E - 2>/dev/null \ | grep -q __ARM_EABI__ then echo ${UNAME_MACHINE}-unknown-linux-gnu else if echo __ARM_PCS_VFP | $CC_FOR_BUILD -E - 2>/dev/null \ | grep -q __ARM_PCS_VFP then echo ${UNAME_MACHINE}-unknown-linux-gnueabi else echo ${UNAME_MACHINE}-unknown-linux-gnueabihf fi fi exit ;; avr32*:Linux:*:*) echo ${UNAME_MACHINE}-unknown-linux-gnu exit ;; cris:Linux:*:*) echo cris-axis-linux-gnu exit ;; crisv32:Linux:*:*) echo crisv32-axis-linux-gnu exit ;; frv:Linux:*:*) echo frv-unknown-linux-gnu exit ;; i*86:Linux:*:*) LIBC=gnu eval $set_cc_for_build sed 's/^ //' << EOF >$dummy.c #ifdef __dietlibc__ LIBC=dietlibc #endif EOF eval `$CC_FOR_BUILD -E $dummy.c 2>/dev/null | grep '^LIBC'` echo "${UNAME_MACHINE}-pc-linux-${LIBC}" exit ;; ia64:Linux:*:*) echo ${UNAME_MACHINE}-unknown-linux-gnu exit ;; m32r*:Linux:*:*) echo ${UNAME_MACHINE}-unknown-linux-gnu exit ;; m68*:Linux:*:*) echo ${UNAME_MACHINE}-unknown-linux-gnu exit ;; mips:Linux:*:* | mips64:Linux:*:*) eval $set_cc_for_build sed 's/^ //' << EOF >$dummy.c #undef CPU #undef ${UNAME_MACHINE} #undef ${UNAME_MACHINE}el #if defined(__MIPSEL__) || defined(__MIPSEL) || defined(_MIPSEL) || defined(MIPSEL) CPU=${UNAME_MACHINE}el #else #if defined(__MIPSEB__) || defined(__MIPSEB) || defined(_MIPSEB) || defined(MIPSEB) CPU=${UNAME_MACHINE} #else CPU= #endif #endif EOF eval `$CC_FOR_BUILD -E $dummy.c 2>/dev/null | grep '^CPU'` test x"${CPU}" != x && { echo "${CPU}-unknown-linux-gnu"; exit; } ;; or32:Linux:*:*) echo or32-unknown-linux-gnu exit ;; padre:Linux:*:*) echo sparc-unknown-linux-gnu exit ;; parisc64:Linux:*:* | hppa64:Linux:*:*) echo hppa64-unknown-linux-gnu exit ;; parisc:Linux:*:* | hppa:Linux:*:*) # Look for CPU level case `grep '^cpu[^a-z]*:' /proc/cpuinfo 2>/dev/null | cut -d' ' -f2` in PA7*) echo hppa1.1-unknown-linux-gnu ;; PA8*) echo hppa2.0-unknown-linux-gnu ;; *) echo hppa-unknown-linux-gnu ;; esac exit ;; ppc64:Linux:*:*) echo powerpc64-unknown-linux-gnu exit ;; ppc:Linux:*:*) echo powerpc-unknown-linux-gnu exit ;; s390:Linux:*:* | s390x:Linux:*:*) echo ${UNAME_MACHINE}-ibm-linux exit ;; sh64*:Linux:*:*) echo ${UNAME_MACHINE}-unknown-linux-gnu exit ;; sh*:Linux:*:*) echo ${UNAME_MACHINE}-unknown-linux-gnu exit ;; sparc:Linux:*:* | sparc64:Linux:*:*) echo ${UNAME_MACHINE}-unknown-linux-gnu exit ;; tile*:Linux:*:*) echo ${UNAME_MACHINE}-tilera-linux-gnu exit ;; vax:Linux:*:*) echo ${UNAME_MACHINE}-dec-linux-gnu exit ;; x86_64:Linux:*:*) echo x86_64-unknown-linux-gnu exit ;; xtensa*:Linux:*:*) echo ${UNAME_MACHINE}-unknown-linux-gnu exit ;; i*86:DYNIX/ptx:4*:*) # ptx 4.0 does uname -s correctly, with DYNIX/ptx in there. # earlier versions are messed up and put the nodename in both # sysname and nodename. echo i386-sequent-sysv4 exit ;; i*86:UNIX_SV:4.2MP:2.*) # Unixware is an offshoot of SVR4, but it has its own version # number series starting with 2... # I am not positive that other SVR4 systems won't match this, # I just have to hope. -- rms. # Use sysv4.2uw... so that sysv4* matches it. echo ${UNAME_MACHINE}-pc-sysv4.2uw${UNAME_VERSION} exit ;; i*86:OS/2:*:*) # If we were able to find `uname', then EMX Unix compatibility # is probably installed. echo ${UNAME_MACHINE}-pc-os2-emx exit ;; i*86:XTS-300:*:STOP) echo ${UNAME_MACHINE}-unknown-stop exit ;; i*86:atheos:*:*) echo ${UNAME_MACHINE}-unknown-atheos exit ;; i*86:syllable:*:*) echo ${UNAME_MACHINE}-pc-syllable exit ;; i*86:LynxOS:2.*:* | i*86:LynxOS:3.[01]*:* | i*86:LynxOS:4.[02]*:*) echo i386-unknown-lynxos${UNAME_RELEASE} exit ;; i*86:*DOS:*:*) echo ${UNAME_MACHINE}-pc-msdosdjgpp exit ;; i*86:*:4.*:* | i*86:SYSTEM_V:4.*:*) UNAME_REL=`echo ${UNAME_RELEASE} | sed 's/\/MP$//'` if grep Novell /usr/include/link.h >/dev/null 2>/dev/null; then echo ${UNAME_MACHINE}-univel-sysv${UNAME_REL} else echo ${UNAME_MACHINE}-pc-sysv${UNAME_REL} fi exit ;; i*86:*:5:[678]*) # UnixWare 7.x, OpenUNIX and OpenServer 6. case `/bin/uname -X | grep "^Machine"` in *486*) UNAME_MACHINE=i486 ;; *Pentium) UNAME_MACHINE=i586 ;; *Pent*|*Celeron) UNAME_MACHINE=i686 ;; esac echo ${UNAME_MACHINE}-unknown-sysv${UNAME_RELEASE}${UNAME_SYSTEM}${UNAME_VERSION} exit ;; i*86:*:3.2:*) if test -f /usr/options/cb.name; then UNAME_REL=`sed -n 's/.*Version //p' /dev/null >/dev/null ; then UNAME_REL=`(/bin/uname -X|grep Release|sed -e 's/.*= //')` (/bin/uname -X|grep i80486 >/dev/null) && UNAME_MACHINE=i486 (/bin/uname -X|grep '^Machine.*Pentium' >/dev/null) \ && UNAME_MACHINE=i586 (/bin/uname -X|grep '^Machine.*Pent *II' >/dev/null) \ && UNAME_MACHINE=i686 (/bin/uname -X|grep '^Machine.*Pentium Pro' >/dev/null) \ && UNAME_MACHINE=i686 echo ${UNAME_MACHINE}-pc-sco$UNAME_REL else echo ${UNAME_MACHINE}-pc-sysv32 fi exit ;; pc:*:*:*) # Left here for compatibility: # uname -m prints for DJGPP always 'pc', but it prints nothing about # the processor, so we play safe by assuming i586. # Note: whatever this is, it MUST be the same as what config.sub # prints for the "djgpp" host, or else GDB configury will decide that # this is a cross-build. echo i586-pc-msdosdjgpp exit ;; Intel:Mach:3*:*) echo i386-pc-mach3 exit ;; paragon:*:*:*) echo i860-intel-osf1 exit ;; i860:*:4.*:*) # i860-SVR4 if grep Stardent /usr/include/sys/uadmin.h >/dev/null 2>&1 ; then echo i860-stardent-sysv${UNAME_RELEASE} # Stardent Vistra i860-SVR4 else # Add other i860-SVR4 vendors below as they are discovered. echo i860-unknown-sysv${UNAME_RELEASE} # Unknown i860-SVR4 fi exit ;; mini*:CTIX:SYS*5:*) # "miniframe" echo m68010-convergent-sysv exit ;; mc68k:UNIX:SYSTEM5:3.51m) echo m68k-convergent-sysv exit ;; M680?0:D-NIX:5.3:*) echo m68k-diab-dnix exit ;; M68*:*:R3V[5678]*:*) test -r /sysV68 && { echo 'm68k-motorola-sysv'; exit; } ;; 3[345]??:*:4.0:3.0 | 3[34]??A:*:4.0:3.0 | 3[34]??,*:*:4.0:3.0 | 3[34]??/*:*:4.0:3.0 | 4400:*:4.0:3.0 | 4850:*:4.0:3.0 | SKA40:*:4.0:3.0 | SDS2:*:4.0:3.0 | SHG2:*:4.0:3.0 | S7501*:*:4.0:3.0) OS_REL='' test -r /etc/.relid \ && OS_REL=.`sed -n 's/[^ ]* [^ ]* \([0-9][0-9]\).*/\1/p' < /etc/.relid` /bin/uname -p 2>/dev/null | grep 86 >/dev/null \ && { echo i486-ncr-sysv4.3${OS_REL}; exit; } /bin/uname -p 2>/dev/null | /bin/grep entium >/dev/null \ && { echo i586-ncr-sysv4.3${OS_REL}; exit; } ;; 3[34]??:*:4.0:* | 3[34]??,*:*:4.0:*) /bin/uname -p 2>/dev/null | grep 86 >/dev/null \ && { echo i486-ncr-sysv4; exit; } ;; NCR*:*:4.2:* | MPRAS*:*:4.2:*) OS_REL='.3' test -r /etc/.relid \ && OS_REL=.`sed -n 's/[^ ]* [^ ]* \([0-9][0-9]\).*/\1/p' < /etc/.relid` /bin/uname -p 2>/dev/null | grep 86 >/dev/null \ && { echo i486-ncr-sysv4.3${OS_REL}; exit; } /bin/uname -p 2>/dev/null | /bin/grep entium >/dev/null \ && { echo i586-ncr-sysv4.3${OS_REL}; exit; } /bin/uname -p 2>/dev/null | /bin/grep pteron >/dev/null \ && { echo i586-ncr-sysv4.3${OS_REL}; exit; } ;; m68*:LynxOS:2.*:* | m68*:LynxOS:3.0*:*) echo m68k-unknown-lynxos${UNAME_RELEASE} exit ;; mc68030:UNIX_System_V:4.*:*) echo m68k-atari-sysv4 exit ;; TSUNAMI:LynxOS:2.*:*) echo sparc-unknown-lynxos${UNAME_RELEASE} exit ;; rs6000:LynxOS:2.*:*) echo rs6000-unknown-lynxos${UNAME_RELEASE} exit ;; PowerPC:LynxOS:2.*:* | PowerPC:LynxOS:3.[01]*:* | PowerPC:LynxOS:4.[02]*:*) echo powerpc-unknown-lynxos${UNAME_RELEASE} exit ;; SM[BE]S:UNIX_SV:*:*) echo mips-dde-sysv${UNAME_RELEASE} exit ;; RM*:ReliantUNIX-*:*:*) echo mips-sni-sysv4 exit ;; RM*:SINIX-*:*:*) echo mips-sni-sysv4 exit ;; *:SINIX-*:*:*) if uname -p 2>/dev/null >/dev/null ; then UNAME_MACHINE=`(uname -p) 2>/dev/null` echo ${UNAME_MACHINE}-sni-sysv4 else echo ns32k-sni-sysv fi exit ;; PENTIUM:*:4.0*:*) # Unisys `ClearPath HMP IX 4000' SVR4/MP effort # says echo i586-unisys-sysv4 exit ;; *:UNIX_System_V:4*:FTX*) # From Gerald Hewes . # How about differentiating between stratus architectures? -djm echo hppa1.1-stratus-sysv4 exit ;; *:*:*:FTX*) # From seanf@swdc.stratus.com. echo i860-stratus-sysv4 exit ;; i*86:VOS:*:*) # From Paul.Green@stratus.com. echo ${UNAME_MACHINE}-stratus-vos exit ;; *:VOS:*:*) # From Paul.Green@stratus.com. echo hppa1.1-stratus-vos exit ;; mc68*:A/UX:*:*) echo m68k-apple-aux${UNAME_RELEASE} exit ;; news*:NEWS-OS:6*:*) echo mips-sony-newsos6 exit ;; R[34]000:*System_V*:*:* | R4000:UNIX_SYSV:*:* | R*000:UNIX_SV:*:*) if [ -d /usr/nec ]; then echo mips-nec-sysv${UNAME_RELEASE} else echo mips-unknown-sysv${UNAME_RELEASE} fi exit ;; BeBox:BeOS:*:*) # BeOS running on hardware made by Be, PPC only. echo powerpc-be-beos exit ;; BeMac:BeOS:*:*) # BeOS running on Mac or Mac clone, PPC only. echo powerpc-apple-beos exit ;; BePC:BeOS:*:*) # BeOS running on Intel PC compatible. echo i586-pc-beos exit ;; BePC:Haiku:*:*) # Haiku running on Intel PC compatible. echo i586-pc-haiku exit ;; SX-4:SUPER-UX:*:*) echo sx4-nec-superux${UNAME_RELEASE} exit ;; SX-5:SUPER-UX:*:*) echo sx5-nec-superux${UNAME_RELEASE} exit ;; SX-6:SUPER-UX:*:*) echo sx6-nec-superux${UNAME_RELEASE} exit ;; SX-7:SUPER-UX:*:*) echo sx7-nec-superux${UNAME_RELEASE} exit ;; SX-8:SUPER-UX:*:*) echo sx8-nec-superux${UNAME_RELEASE} exit ;; SX-8R:SUPER-UX:*:*) echo sx8r-nec-superux${UNAME_RELEASE} exit ;; Power*:Rhapsody:*:*) echo powerpc-apple-rhapsody${UNAME_RELEASE} exit ;; *:Rhapsody:*:*) echo ${UNAME_MACHINE}-apple-rhapsody${UNAME_RELEASE} exit ;; *:Darwin:*:*) UNAME_PROCESSOR=`uname -p` || UNAME_PROCESSOR=unknown case $UNAME_PROCESSOR in i386) eval $set_cc_for_build if [ "$CC_FOR_BUILD" != 'no_compiler_found' ]; then if (echo '#ifdef __LP64__'; echo IS_64BIT_ARCH; echo '#endif') | \ (CCOPTS= $CC_FOR_BUILD -E - 2>/dev/null) | \ grep IS_64BIT_ARCH >/dev/null then UNAME_PROCESSOR="x86_64" fi fi ;; unknown) UNAME_PROCESSOR=powerpc ;; esac echo ${UNAME_PROCESSOR}-apple-darwin${UNAME_RELEASE} exit ;; *:procnto*:*:* | *:QNX:[0123456789]*:*) UNAME_PROCESSOR=`uname -p` if test "$UNAME_PROCESSOR" = "x86"; then UNAME_PROCESSOR=i386 UNAME_MACHINE=pc fi echo ${UNAME_PROCESSOR}-${UNAME_MACHINE}-nto-qnx${UNAME_RELEASE} exit ;; *:QNX:*:4*) echo i386-pc-qnx exit ;; NEO-?:NONSTOP_KERNEL:*:*) echo neo-tandem-nsk${UNAME_RELEASE} exit ;; NSE-?:NONSTOP_KERNEL:*:*) echo nse-tandem-nsk${UNAME_RELEASE} exit ;; NSR-?:NONSTOP_KERNEL:*:*) echo nsr-tandem-nsk${UNAME_RELEASE} exit ;; *:NonStop-UX:*:*) echo mips-compaq-nonstopux exit ;; BS2000:POSIX*:*:*) echo bs2000-siemens-sysv exit ;; DS/*:UNIX_System_V:*:*) echo ${UNAME_MACHINE}-${UNAME_SYSTEM}-${UNAME_RELEASE} exit ;; *:Plan9:*:*) # "uname -m" is not consistent, so use $cputype instead. 386 # is converted to i386 for consistency with other x86 # operating systems. if test "$cputype" = "386"; then UNAME_MACHINE=i386 else UNAME_MACHINE="$cputype" fi echo ${UNAME_MACHINE}-unknown-plan9 exit ;; *:TOPS-10:*:*) echo pdp10-unknown-tops10 exit ;; *:TENEX:*:*) echo pdp10-unknown-tenex exit ;; KS10:TOPS-20:*:* | KL10:TOPS-20:*:* | TYPE4:TOPS-20:*:*) echo pdp10-dec-tops20 exit ;; XKL-1:TOPS-20:*:* | TYPE5:TOPS-20:*:*) echo pdp10-xkl-tops20 exit ;; *:TOPS-20:*:*) echo pdp10-unknown-tops20 exit ;; *:ITS:*:*) echo pdp10-unknown-its exit ;; SEI:*:*:SEIUX) echo mips-sei-seiux${UNAME_RELEASE} exit ;; *:DragonFly:*:*) echo ${UNAME_MACHINE}-unknown-dragonfly`echo ${UNAME_RELEASE}|sed -e 's/[-(].*//'` exit ;; *:*VMS:*:*) UNAME_MACHINE=`(uname -p) 2>/dev/null` case "${UNAME_MACHINE}" in A*) echo alpha-dec-vms ; exit ;; I*) echo ia64-dec-vms ; exit ;; V*) echo vax-dec-vms ; exit ;; esac ;; *:XENIX:*:SysV) echo i386-pc-xenix exit ;; i*86:skyos:*:*) echo ${UNAME_MACHINE}-pc-skyos`echo ${UNAME_RELEASE}` | sed -e 's/ .*$//' exit ;; i*86:rdos:*:*) echo ${UNAME_MACHINE}-pc-rdos exit ;; i*86:AROS:*:*) echo ${UNAME_MACHINE}-pc-aros exit ;; esac #echo '(No uname command or uname output not recognized.)' 1>&2 #echo "${UNAME_MACHINE}:${UNAME_SYSTEM}:${UNAME_RELEASE}:${UNAME_VERSION}" 1>&2 eval $set_cc_for_build cat >$dummy.c < # include #endif main () { #if defined (sony) #if defined (MIPSEB) /* BFD wants "bsd" instead of "newsos". Perhaps BFD should be changed, I don't know.... */ printf ("mips-sony-bsd\n"); exit (0); #else #include printf ("m68k-sony-newsos%s\n", #ifdef NEWSOS4 "4" #else "" #endif ); exit (0); #endif #endif #if defined (__arm) && defined (__acorn) && defined (__unix) printf ("arm-acorn-riscix\n"); exit (0); #endif #if defined (hp300) && !defined (hpux) printf ("m68k-hp-bsd\n"); exit (0); #endif #if defined (NeXT) #if !defined (__ARCHITECTURE__) #define __ARCHITECTURE__ "m68k" #endif int version; version=`(hostinfo | sed -n 's/.*NeXT Mach \([0-9]*\).*/\1/p') 2>/dev/null`; if (version < 4) printf ("%s-next-nextstep%d\n", __ARCHITECTURE__, version); else printf ("%s-next-openstep%d\n", __ARCHITECTURE__, version); exit (0); #endif #if defined (MULTIMAX) || defined (n16) #if defined (UMAXV) printf ("ns32k-encore-sysv\n"); exit (0); #else #if defined (CMU) printf ("ns32k-encore-mach\n"); exit (0); #else printf ("ns32k-encore-bsd\n"); exit (0); #endif #endif #endif #if defined (__386BSD__) printf ("i386-pc-bsd\n"); exit (0); #endif #if defined (sequent) #if defined (i386) printf ("i386-sequent-dynix\n"); exit (0); #endif #if defined (ns32000) printf ("ns32k-sequent-dynix\n"); exit (0); #endif #endif #if defined (_SEQUENT_) struct utsname un; uname(&un); if (strncmp(un.version, "V2", 2) == 0) { printf ("i386-sequent-ptx2\n"); exit (0); } if (strncmp(un.version, "V1", 2) == 0) { /* XXX is V1 correct? */ printf ("i386-sequent-ptx1\n"); exit (0); } printf ("i386-sequent-ptx\n"); exit (0); #endif #if defined (vax) # if !defined (ultrix) # include # if defined (BSD) # if BSD == 43 printf ("vax-dec-bsd4.3\n"); exit (0); # else # if BSD == 199006 printf ("vax-dec-bsd4.3reno\n"); exit (0); # else printf ("vax-dec-bsd\n"); exit (0); # endif # endif # else printf ("vax-dec-bsd\n"); exit (0); # endif # else printf ("vax-dec-ultrix\n"); exit (0); # endif #endif #if defined (alliant) && defined (i860) printf ("i860-alliant-bsd\n"); exit (0); #endif exit (1); } EOF $CC_FOR_BUILD -o $dummy $dummy.c 2>/dev/null && SYSTEM_NAME=`$dummy` && { echo "$SYSTEM_NAME"; exit; } # Apollos put the system type in the environment. test -d /usr/apollo && { echo ${ISP}-apollo-${SYSTYPE}; exit; } # Convex versions that predate uname can use getsysinfo(1) if [ -x /usr/convex/getsysinfo ] then case `getsysinfo -f cpu_type` in c1*) echo c1-convex-bsd exit ;; c2*) if getsysinfo -f scalar_acc then echo c32-convex-bsd else echo c2-convex-bsd fi exit ;; c34*) echo c34-convex-bsd exit ;; c38*) echo c38-convex-bsd exit ;; c4*) echo c4-convex-bsd exit ;; esac fi cat >&2 < in order to provide the needed information to handle your system. config.guess timestamp = $timestamp uname -m = `(uname -m) 2>/dev/null || echo unknown` uname -r = `(uname -r) 2>/dev/null || echo unknown` uname -s = `(uname -s) 2>/dev/null || echo unknown` uname -v = `(uname -v) 2>/dev/null || echo unknown` /usr/bin/uname -p = `(/usr/bin/uname -p) 2>/dev/null` /bin/uname -X = `(/bin/uname -X) 2>/dev/null` hostinfo = `(hostinfo) 2>/dev/null` /bin/universe = `(/bin/universe) 2>/dev/null` /usr/bin/arch -k = `(/usr/bin/arch -k) 2>/dev/null` /bin/arch = `(/bin/arch) 2>/dev/null` /usr/bin/oslevel = `(/usr/bin/oslevel) 2>/dev/null` /usr/convex/getsysinfo = `(/usr/convex/getsysinfo) 2>/dev/null` UNAME_MACHINE = ${UNAME_MACHINE} UNAME_RELEASE = ${UNAME_RELEASE} UNAME_SYSTEM = ${UNAME_SYSTEM} UNAME_VERSION = ${UNAME_VERSION} EOF exit 1 # Local variables: # eval: (add-hook 'write-file-hooks 'time-stamp) # time-stamp-start: "timestamp='" # time-stamp-format: "%:y-%02m-%02d" # time-stamp-end: "'" # End: guile-gnome-platform-2.16.2/autogen.sh0000755000175000017500000000016011670374720020171 0ustar00wingowingo00000000000000#!/bin/sh autoreconf -vif echo "Now run ./configure --prefix=/your/prefix to configure guile-gnome-platform." guile-gnome-platform-2.16.2/libglade/0000755000175000017500000000000011752546505017741 5ustar00wingowingo00000000000000guile-gnome-platform-2.16.2/libglade/examples/0000755000175000017500000000000011752546505021557 5ustar00wingowingo00000000000000guile-gnome-platform-2.16.2/libglade/examples/test.scm0000644000175000017500000000264211670374303023240 0ustar00wingowingo00000000000000#! /bin/sh # -*- scheme -*- exec guile-gnome-2 -s $0 "$@" !# ;; guile-gnome ;; Copyright (C) 2003,2004 Free Software Foundation, Inc. ;; This program is free software; you can redistribute it and/or ;; modify it under the terms of the GNU General Public License as ;; published by the Free Software Foundation; either version 2 of ;; the License, or (at your option) any later version. ;; ;; This program is distributed in the hope that it will be useful, ;; but WITHOUT ANY WARRANTY; without even the implied warranty of ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the ;; GNU General Public License for more details. ;; ;; You should have received a copy of the GNU General Public License ;; along with this program; if not, contact: ;; ;; Free Software Foundation Voice: +1-617-542-5942 ;; 59 Temple Place - Suite 330 Fax: +1-617-542-2652 ;; Boston, MA 02111-1307, USA gnu@gnu.org (use-modules (oop goops) (gnome gtk) (gnome glade)) (define (frobify button) (display "Frobbing button...\n") (gtk-main-quit)) (let* ((xml (glade-xml-new "test.glade" #f #f)) (window (get-widget xml "window1"))) (signal-autoconnect xml (current-module)) (show window) (gtk-main)) guile-gnome-platform-2.16.2/libglade/examples/Makefile.am0000644000175000017500000000004111670374303023600 0ustar00wingowingo00000000000000EXTRA_DIST = test.glade test.scm guile-gnome-platform-2.16.2/libglade/examples/Makefile.in0000644000175000017500000002730311752511067023624 0ustar00wingowingo00000000000000# Makefile.in generated by automake 1.11.5 from Makefile.am. # @configure_input@ # Copyright (C) 1994, 1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, # 2003, 2004, 2005, 2006, 2007, 2008, 2009, 2010, 2011 Free Software # Foundation, Inc. # This Makefile.in is free software; the Free Software Foundation # gives unlimited permission to copy and/or distribute it, # with or without modifications, as long as this notice is preserved. # This program is distributed in the hope that it will be useful, # but WITHOUT ANY WARRANTY, to the extent permitted by law; without # even the implied warranty of MERCHANTABILITY or FITNESS FOR A # PARTICULAR PURPOSE. @SET_MAKE@ VPATH = @srcdir@ am__make_dryrun = \ { \ am__dry=no; \ case $$MAKEFLAGS in \ *\\[\ \ ]*) \ echo 'am--echo: ; @echo "AM" OK' | $(MAKE) -f - 2>/dev/null \ | grep '^AM OK$$' >/dev/null || am__dry=yes;; \ *) \ for am__flg in $$MAKEFLAGS; do \ case $$am__flg in \ *=*|--*) ;; \ *n*) am__dry=yes; break;; \ esac; \ done;; \ esac; \ test $$am__dry = yes; \ } pkgdatadir = $(datadir)/@PACKAGE@ pkgincludedir = $(includedir)/@PACKAGE@ pkglibdir = $(libdir)/@PACKAGE@ pkglibexecdir = $(libexecdir)/@PACKAGE@ am__cd = CDPATH="$${ZSH_VERSION+.}$(PATH_SEPARATOR)" && cd install_sh_DATA = $(install_sh) -c -m 644 install_sh_PROGRAM = $(install_sh) -c install_sh_SCRIPT = $(install_sh) -c INSTALL_HEADER = $(INSTALL_DATA) transform = $(program_transform_name) NORMAL_INSTALL = : PRE_INSTALL = : POST_INSTALL = : NORMAL_UNINSTALL = : PRE_UNINSTALL = : POST_UNINSTALL = : build_triplet = @build@ host_triplet = @host@ subdir = libglade/examples DIST_COMMON = $(srcdir)/Makefile.am $(srcdir)/Makefile.in ACLOCAL_M4 = $(top_srcdir)/aclocal.m4 am__aclocal_m4_deps = $(top_srcdir)/configure.ac am__configure_deps = $(am__aclocal_m4_deps) $(CONFIGURE_DEPENDENCIES) \ $(ACLOCAL_M4) mkinstalldirs = $(install_sh) -d CONFIG_HEADER = $(top_builddir)/config.h CONFIG_CLEAN_FILES = CONFIG_CLEAN_VPATH_FILES = SOURCES = DIST_SOURCES = am__can_run_installinfo = \ case $$AM_UPDATE_INFO_DIR in \ n|no|NO) false;; \ *) (install-info --version) >/dev/null 2>&1;; \ esac DISTFILES = $(DIST_COMMON) $(DIST_SOURCES) $(TEXINFOS) $(EXTRA_DIST) ACLOCAL = @ACLOCAL@ AG_PKG_CONFIG_PATH = @AG_PKG_CONFIG_PATH@ AMTAR = @AMTAR@ API_VERSION = @API_VERSION@ AR = @AR@ ATK_CFLAGS = @ATK_CFLAGS@ ATK_LIBS = @ATK_LIBS@ AUTOCONF = @AUTOCONF@ AUTOHEADER = @AUTOHEADER@ AUTOMAKE = @AUTOMAKE@ AWK = @AWK@ BONOBO_IDL_DIR = @BONOBO_IDL_DIR@ CANVAS_CFLAGS = @CANVAS_CFLAGS@ CANVAS_LIBS = @CANVAS_LIBS@ CC = @CC@ CCDEPMODE = @CCDEPMODE@ CFLAGS = @CFLAGS@ CORBA_CFLAGS = @CORBA_CFLAGS@ CORBA_LIBS = @CORBA_LIBS@ CPP = @CPP@ CPPFLAGS = @CPPFLAGS@ CYGPATH_W = @CYGPATH_W@ DEFS = @DEFS@ DEPDIR = @DEPDIR@ DLLTOOL = @DLLTOOL@ DSYMUTIL = @DSYMUTIL@ DUMPBIN = @DUMPBIN@ ECHO_C = @ECHO_C@ ECHO_N = @ECHO_N@ ECHO_T = @ECHO_T@ EGREP = @EGREP@ EXEEXT = @EXEEXT@ FGREP = @FGREP@ GCONF_CFLAGS = @GCONF_CFLAGS@ GCONF_LIBS = @GCONF_LIBS@ GDK_CFLAGS = @GDK_CFLAGS@ GDK_LIBS = @GDK_LIBS@ GDK_PIXBUF_CFLAGS = @GDK_PIXBUF_CFLAGS@ GDK_PIXBUF_LIBS = @GDK_PIXBUF_LIBS@ GLIB_CFLAGS = @GLIB_CFLAGS@ GLIB_LIBS = @GLIB_LIBS@ GNOMEUI_DEPRECATION_FLAGS = @GNOMEUI_DEPRECATION_FLAGS@ GNOME_VFS_CFLAGS = @GNOME_VFS_CFLAGS@ GNOME_VFS_DEPRECATED_CFLAGS = @GNOME_VFS_DEPRECATED_CFLAGS@ GNOME_VFS_LIBS = @GNOME_VFS_LIBS@ GOBJECT_CFLAGS = @GOBJECT_CFLAGS@ GOBJECT_LIBS = @GOBJECT_LIBS@ GREP = @GREP@ GTHREAD_CFLAGS = @GTHREAD_CFLAGS@ GTHREAD_LIBS = @GTHREAD_LIBS@ GTK_CFLAGS = @GTK_CFLAGS@ GTK_DEPRECATED_CFLAGS = @GTK_DEPRECATED_CFLAGS@ GTK_LIBS = @GTK_LIBS@ GUILE_CAIRO_CFLAGS = @GUILE_CAIRO_CFLAGS@ GUILE_CAIRO_LIBS = @GUILE_CAIRO_LIBS@ GUILE_CFLAGS = @GUILE_CFLAGS@ GUILE_EFFECTIVE_VERSION = @GUILE_EFFECTIVE_VERSION@ GUILE_GLIB_CFLAGS = @GUILE_GLIB_CFLAGS@ GUILE_GLIB_LIBS = @GUILE_GLIB_LIBS@ GUILE_LIBS = @GUILE_LIBS@ G_WRAP_CFLAGS = @G_WRAP_CFLAGS@ G_WRAP_LIBS = @G_WRAP_LIBS@ G_WRAP_LIB_DIR = @G_WRAP_LIB_DIR@ G_WRAP_MODULE_DIR = @G_WRAP_MODULE_DIR@ INSTALL = @INSTALL@ INSTALL_DATA = @INSTALL_DATA@ INSTALL_PROGRAM = @INSTALL_PROGRAM@ INSTALL_SCRIPT = @INSTALL_SCRIPT@ INSTALL_STRIP_PROGRAM = @INSTALL_STRIP_PROGRAM@ LD = @LD@ LDFLAGS = @LDFLAGS@ LIBGLADE_CFLAGS = @LIBGLADE_CFLAGS@ LIBGLADE_LIBS = @LIBGLADE_LIBS@ LIBGNOMEUI_CFLAGS = @LIBGNOMEUI_CFLAGS@ LIBGNOMEUI_LIBS = @LIBGNOMEUI_LIBS@ LIBGNOME_CFLAGS = @LIBGNOME_CFLAGS@ LIBGNOME_LIBS = @LIBGNOME_LIBS@ LIBOBJS = @LIBOBJS@ LIBS = @LIBS@ LIBTOOL = @LIBTOOL@ LIPO = @LIPO@ LN_S = @LN_S@ LTLIBOBJS = @LTLIBOBJS@ MAKEINFO = @MAKEINFO@ MANIFEST_TOOL = @MANIFEST_TOOL@ MKDIR_P = @MKDIR_P@ NM = @NM@ NMEDIT = @NMEDIT@ OBJDUMP = @OBJDUMP@ OBJEXT = @OBJEXT@ ORBIT_IDL = @ORBIT_IDL@ OTOOL = @OTOOL@ OTOOL64 = @OTOOL64@ PACKAGE = @PACKAGE@ PACKAGE_BUGREPORT = @PACKAGE_BUGREPORT@ PACKAGE_NAME = @PACKAGE_NAME@ PACKAGE_STRING = @PACKAGE_STRING@ PACKAGE_TARNAME = @PACKAGE_TARNAME@ PACKAGE_URL = @PACKAGE_URL@ PACKAGE_VERSION = @PACKAGE_VERSION@ PANGOCAIRO_CFLAGS = @PANGOCAIRO_CFLAGS@ PANGOCAIRO_LIBS = @PANGOCAIRO_LIBS@ PANGO_CFLAGS = @PANGO_CFLAGS@ PANGO_LIBS = @PANGO_LIBS@ PATH_SEPARATOR = @PATH_SEPARATOR@ PKG_CONFIG = @PKG_CONFIG@ PKG_CONFIG_LIBDIR = @PKG_CONFIG_LIBDIR@ PKG_CONFIG_PATH = @PKG_CONFIG_PATH@ RANLIB = @RANLIB@ SED = @SED@ SET_MAKE = @SET_MAKE@ SHELL = @SHELL@ STRIP = @STRIP@ VERSION = @VERSION@ WARN_CFLAGS = @WARN_CFLAGS@ abs_builddir = @abs_builddir@ abs_srcdir = @abs_srcdir@ abs_top_builddir = @abs_top_builddir@ abs_top_srcdir = @abs_top_srcdir@ ac_ct_AR = @ac_ct_AR@ ac_ct_CC = @ac_ct_CC@ ac_ct_DUMPBIN = @ac_ct_DUMPBIN@ am__include = @am__include@ am__leading_dot = @am__leading_dot@ am__quote = @am__quote@ am__tar = @am__tar@ am__untar = @am__untar@ bindir = @bindir@ build = @build@ build_alias = @build_alias@ build_cpu = @build_cpu@ build_os = @build_os@ build_vendor = @build_vendor@ builddir = @builddir@ datadir = @datadir@ datarootdir = @datarootdir@ docdir = @docdir@ dvidir = @dvidir@ exec_prefix = @exec_prefix@ host = @host@ host_alias = @host_alias@ host_cpu = @host_cpu@ host_os = @host_os@ host_vendor = @host_vendor@ htmldir = @htmldir@ includedir = @includedir@ infodir = @infodir@ install_sh = @install_sh@ libdir = @libdir@ libexecdir = @libexecdir@ localedir = @localedir@ localstatedir = @localstatedir@ mandir = @mandir@ mkdir_p = @mkdir_p@ oldincludedir = @oldincludedir@ pdfdir = @pdfdir@ prefix = @prefix@ program_transform_name = @program_transform_name@ psdir = @psdir@ sbindir = @sbindir@ sharedstatedir = @sharedstatedir@ srcdir = @srcdir@ sysconfdir = @sysconfdir@ target_alias = @target_alias@ top_build_prefix = @top_build_prefix@ top_builddir = @top_builddir@ top_srcdir = @top_srcdir@ EXTRA_DIST = test.glade test.scm all: all-am .SUFFIXES: $(srcdir)/Makefile.in: $(srcdir)/Makefile.am $(am__configure_deps) @for dep in $?; do \ case '$(am__configure_deps)' in \ *$$dep*) \ ( cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh ) \ && { if test -f $@; then exit 0; else break; fi; }; \ exit 1;; \ esac; \ done; \ echo ' cd $(top_srcdir) && $(AUTOMAKE) --gnu libglade/examples/Makefile'; \ $(am__cd) $(top_srcdir) && \ $(AUTOMAKE) --gnu libglade/examples/Makefile .PRECIOUS: Makefile Makefile: $(srcdir)/Makefile.in $(top_builddir)/config.status @case '$?' in \ *config.status*) \ cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh;; \ *) \ echo ' cd $(top_builddir) && $(SHELL) ./config.status $(subdir)/$@ $(am__depfiles_maybe)'; \ cd $(top_builddir) && $(SHELL) ./config.status $(subdir)/$@ $(am__depfiles_maybe);; \ esac; $(top_builddir)/config.status: $(top_srcdir)/configure $(CONFIG_STATUS_DEPENDENCIES) cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh $(top_srcdir)/configure: $(am__configure_deps) cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh $(ACLOCAL_M4): $(am__aclocal_m4_deps) cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh $(am__aclocal_m4_deps): mostlyclean-libtool: -rm -f *.lo clean-libtool: -rm -rf .libs _libs tags: TAGS TAGS: ctags: CTAGS CTAGS: distdir: $(DISTFILES) @srcdirstrip=`echo "$(srcdir)" | sed 's/[].[^$$\\*]/\\\\&/g'`; \ topsrcdirstrip=`echo "$(top_srcdir)" | sed 's/[].[^$$\\*]/\\\\&/g'`; \ list='$(DISTFILES)'; \ dist_files=`for file in $$list; do echo $$file; done | \ sed -e "s|^$$srcdirstrip/||;t" \ -e "s|^$$topsrcdirstrip/|$(top_builddir)/|;t"`; \ case $$dist_files in \ */*) $(MKDIR_P) `echo "$$dist_files" | \ sed '/\//!d;s|^|$(distdir)/|;s,/[^/]*$$,,' | \ sort -u` ;; \ esac; \ for file in $$dist_files; do \ if test -f $$file || test -d $$file; then d=.; else d=$(srcdir); fi; \ if test -d $$d/$$file; then \ dir=`echo "/$$file" | sed -e 's,/[^/]*$$,,'`; \ if test -d "$(distdir)/$$file"; then \ find "$(distdir)/$$file" -type d ! -perm -700 -exec chmod u+rwx {} \;; \ fi; \ if test -d $(srcdir)/$$file && test $$d != $(srcdir); then \ cp -fpR $(srcdir)/$$file "$(distdir)$$dir" || exit 1; \ find "$(distdir)/$$file" -type d ! -perm -700 -exec chmod u+rwx {} \;; \ fi; \ cp -fpR $$d/$$file "$(distdir)$$dir" || exit 1; \ else \ test -f "$(distdir)/$$file" \ || cp -p $$d/$$file "$(distdir)/$$file" \ || exit 1; \ fi; \ done check-am: all-am check: check-am all-am: Makefile installdirs: install: install-am install-exec: install-exec-am install-data: install-data-am uninstall: uninstall-am install-am: all-am @$(MAKE) $(AM_MAKEFLAGS) install-exec-am install-data-am installcheck: installcheck-am install-strip: if test -z '$(STRIP)'; then \ $(MAKE) $(AM_MAKEFLAGS) INSTALL_PROGRAM="$(INSTALL_STRIP_PROGRAM)" \ install_sh_PROGRAM="$(INSTALL_STRIP_PROGRAM)" INSTALL_STRIP_FLAG=-s \ install; \ else \ $(MAKE) $(AM_MAKEFLAGS) INSTALL_PROGRAM="$(INSTALL_STRIP_PROGRAM)" \ install_sh_PROGRAM="$(INSTALL_STRIP_PROGRAM)" INSTALL_STRIP_FLAG=-s \ "INSTALL_PROGRAM_ENV=STRIPPROG='$(STRIP)'" install; \ fi mostlyclean-generic: clean-generic: distclean-generic: -test -z "$(CONFIG_CLEAN_FILES)" || rm -f $(CONFIG_CLEAN_FILES) -test . = "$(srcdir)" || test -z "$(CONFIG_CLEAN_VPATH_FILES)" || rm -f $(CONFIG_CLEAN_VPATH_FILES) maintainer-clean-generic: @echo "This command is intended for maintainers to use" @echo "it deletes files that may require special tools to rebuild." clean: clean-am clean-am: clean-generic clean-libtool mostlyclean-am distclean: distclean-am -rm -f Makefile distclean-am: clean-am distclean-generic dvi: dvi-am dvi-am: html: html-am html-am: info: info-am info-am: install-data-am: install-dvi: install-dvi-am install-dvi-am: install-exec-am: install-html: install-html-am install-html-am: install-info: install-info-am install-info-am: install-man: install-pdf: install-pdf-am install-pdf-am: install-ps: install-ps-am install-ps-am: installcheck-am: maintainer-clean: maintainer-clean-am -rm -f Makefile maintainer-clean-am: distclean-am maintainer-clean-generic mostlyclean: mostlyclean-am mostlyclean-am: mostlyclean-generic mostlyclean-libtool pdf: pdf-am pdf-am: ps: ps-am ps-am: uninstall-am: .MAKE: install-am install-strip .PHONY: all all-am check check-am clean clean-generic clean-libtool \ distclean distclean-generic distclean-libtool distdir dvi \ dvi-am html html-am info info-am install install-am \ install-data install-data-am install-dvi install-dvi-am \ install-exec install-exec-am install-html install-html-am \ install-info install-info-am install-man install-pdf \ install-pdf-am install-ps install-ps-am install-strip \ installcheck installcheck-am installdirs maintainer-clean \ maintainer-clean-generic mostlyclean mostlyclean-generic \ mostlyclean-libtool pdf pdf-am ps ps-am uninstall uninstall-am # Tell versions [3.59,3.63) of GNU make to not export all variables. # Otherwise a system limit (for SysV at least) may be exceeded. .NOEXPORT: guile-gnome-platform-2.16.2/libglade/examples/test.glade0000644000175000017500000000722211670374303023531 0ustar00wingowingo00000000000000 True window1 GTK_WINDOW_TOPLEVEL GTK_WIN_POS_NONE False True False True False 0 True (make <gtk-label> #:label "guile-gtk libglade demo") 0 0 Wed, 29 Oct 2003 19:06:12 GMT 0 False True True 0 0.5 GTK_SHADOW_ETCHED_IN True True GTK_CALENDAR_SHOW_HEADING|GTK_CALENDAR_SHOW_DAY_NAMES True look at the pretty calendar False False GTK_JUSTIFY_LEFT False False 0.5 0.5 0 0 label_item 0 True True True GTK_BUTTONBOX_END 0 True True True gtk-ok True GTK_RELIEF_NORMAL 0 False False guile-gnome-platform-2.16.2/libglade/doc/0000755000175000017500000000000011752546505020506 5ustar00wingowingo00000000000000guile-gnome-platform-2.16.2/libglade/doc/undocumented.texi0000644000175000017500000000034311670374303024065 0ustar00wingowingo00000000000000 @c %start of fragment @node Undocumented @chapter Undocumented The following symbols, if any, have not been properly documented. @section (gnome gw libglade) @defvar glade-xml-relative-file @end defvar @c %end of fragment guile-gnome-platform-2.16.2/libglade/doc/guile-gnome-libglade.texi0000644000175000017500000000337711670374303025356 0ustar00wingowingo00000000000000\input texinfo @c -*-texinfo-*- @c %**start of header @setfilename guile-gnome-libglade.info @settitle Guile-Libglade @c %**end of header @include version.texi @copying This manual is for @code{(gnome libglade)} (version @value{VERSION}, updated @value{UPDATED}) Copyright 1999-2002 James Henstridge @quotation Permission is granted to copy, distribute and/or modify this document under the terms of the GNU Free Documentation License, Version 1.1 or any later version published by the Free Software Foundation with no Invariant Sections, no Front-Cover Texts, and no Back-Cover Texts. You may obtain a copy of the GNU Free Documentation License from the Free Software Foundation by visiting their Web site or by writing to: Free Software Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. @end quotation @end copying @dircategory The Algorithmic Language Scheme @direntry * Guile-Libglade: (guile-gnome-libglade.info). Load GTK+ interfaces from XML. @end direntry @titlepage @title Guile-GNOME: Libglade @subtitle version @value{VERSION}, updated @value{UPDATED} @author James Henstridge @page @vskip 0pt plus 1filll @insertcopying @end titlepage @ifnottex @node Top @top Guile-Libglade @insertcopying @menu * Overview:: About libglade and its Guile bindings. * GladeXML:: Allows dynamic loading of user interfaces from XML descriptions. * Undocumented:: Undocumented functions. * Type Index:: * Function Index:: @end menu @end ifnottex @iftex @shortcontents @end iftex @include overview.texi @include section-glade-xml.xml.texi @include undocumented.texi @node Type Index @unnumbered Type Index @printindex tp @node Function Index @unnumbered Function Index @printindex fn @bye guile-gnome-platform-2.16.2/libglade/doc/defuns-glade-xml.xml.texi0000644000175000017500000001156311670374303025334 0ustar00wingowingo00000000000000 @c %start of fragment @deftp Class Derives from @code{}. This class defines no direct slots. @end deftp @deffn Function glade-xml-new (fname@tie{}@code{mchars}) (root@tie{}@code{mchars}) (domain@tie{}@code{mchars}) @result{}@tie{} (ret@tie{}@code{}) Creates a new GladeXML object (and the corresponding widgets) from the XML file @var{fname}. Optionally it will only build the interface from the widget node @var{root} (if it is not @samp{@code{#f}}). This feature is useful if you only want to build say a toolbar or menu from the XML file, but not the window it is embedded in. Note also that the XML parse tree is cached to speed up creating another GladeXML object for the same file @table @var @item fname the XML file name. @item root the widget node in @var{fname} to start building from (or @samp{@code{#f}}) @item domain the translation domain for the XML file (or @samp{@code{#f}} for default) @item ret the newly created GladeXML object, or NULL on failure. @end table @end deffn @deffn Function glade-xml-new-from-buffer (buffer@tie{}@code{mchars}) (root@tie{}@code{mchars}) (domain@tie{}@code{mchars}) @result{}@tie{} (ret@tie{}@code{}) Creates a new GladeXML object (and the corresponding widgets) from the buffer @var{buffer}. Optionally it will only build the interface from the widget node @var{root} (if it is not @samp{@code{#f}}). This feature is useful if you only want to build say a toolbar or menu from the XML document, but not the window it is embedded in. @table @var @item buffer the memory buffer containing the XML document. @item size the size of the buffer. @item root the widget node in @var{buffer} to start building from (or @samp{@code{#f}}) @item domain the translation domain to use for this interface (or @samp{@code{#f}}) @item ret the newly created GladeXML object, or NULL on failure. @end table @end deffn @deffn Function glade-xml-signal-connect (self@tie{}@code{}) (handlername@tie{}@code{mchars}) (proc@tie{}@code{scm}) @deffnx Method signal-connect In the glade interface descriptions, signal handlers are specified for widgets by name. This function allows you to connect a Scheme function to all signals in the GladeXML file with the given signal handler name. @table @var @item self the GladeXML object @item handlername the signal handler name @item func the signal handler function @end table @end deffn @deffn Function glade-xml-signal-autoconnect (self@tie{}@code{}) (module@tie{}@code{scm}) @deffnx Method signal-autoconnect This function is a variation of @code{glade-xml-signal-autoconnect}. It will bind signal handers to the result of evaluating each signal handler name within @var{module}. So for example, if you have ten widgets defining a handler as the string @code{"on-clicked"}, you might do this: @lisp (define (on-clicked . args) (display "Doing me thing...\n")) (signal-autoconnect glade-xml (current-module)) ;; now the on-clicked handlers are connected @end lisp @table @var @item self the GladeXML object. @item module A scheme module in which to evaluate the signal handlers definitions. @end table @end deffn @deffn Function glade-xml-get-widget (self@tie{}@code{}) (name@tie{}@code{mchars}) @result{}@tie{} (ret@tie{}@code{}) @deffnx Method get-widget This function is used to get a pointer to the GtkWidget corresponding to @var{name} in the interface description. You would use this if you have to do anything to the widget after loading. @table @var @item self the GladeXML object. @item name the name of the widget. @item ret the widget matching @var{name}, or @samp{@code{#f}} if none exists. @end table @end deffn @deffn Function glade-xml-get-widget-prefix (self@tie{}@code{}) (name@tie{}@code{mchars}) @result{}@tie{} (ret@tie{}@code{glist-of}) @deffnx Method get-widget-prefix This function is used to get a list of pointers to the GtkWidget(s) with names that start with the string @var{name} in the interface description. You would use this if you have to do something to all of these widgets after loading. @table @var @item self the GladeXML object. @item name the name of the widget. @item ret A list of the widget that match @var{name} as the start of their name, or @samp{@code{#f}} if none exists. @end table @end deffn @deffn Function glade-get-widget-name (widget@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{mchars}) Used to get the name of a widget that was generated by a GladeXML object. @table @var @item widget the widget @item ret the name of the widget. @end table @end deffn @deffn Function glade-get-widget-tree (widget@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{}) This function is used to get the GladeXML object that built this widget. @table @var @item widget the widget @item ret the GladeXML object that built this widget. @end table @end deffn @c %end of fragment guile-gnome-platform-2.16.2/libglade/doc/overrides.texi0000644000175000017500000000226711670374303023404 0ustar00wingowingo00000000000000@deffn Function glade-xml-signal-connect (self@tie{}@code{}) (handlername@tie{}@code{mchars}) (proc@tie{}@code{scm}) In the glade interface descriptions, signal handlers are specified for widgets by name. This function allows you to connect a Scheme function to all signals in the GladeXML file with the given signal handler name. @table @var @item self the GladeXML object @item handlername the signal handler name @item func the signal handler function @end table @end deffn @deffn Function glade-xml-signal-autoconnect (self@tie{}@code{}) (module@tie{}@code{scm}) This function is a variation of @code{glade-xml-signal-autoconnect}. It will bind signal handers to the result of evaluating each signal handler name within @var{module}. So for example, if you have ten widgets defining a handler as the string @code{"on-clicked"}, you might do this: @lisp (define (on-clicked . args) (display "Doing me thing...\n")) (signal-autoconnect glade-xml (current-module)) ;; now the on-clicked handlers are connected @end lisp @table @var @item self the GladeXML object. @item module A scheme module in which to evaluate the signal handlers definitions. @end table @end deffn guile-gnome-platform-2.16.2/libglade/doc/version.texi0000644000175000017500000000014611752511104023052 0ustar00wingowingo00000000000000@set UPDATED 9 December 2011 @set UPDATED-MONTH December 2011 @set EDITION 2.16.2 @set VERSION 2.16.2 guile-gnome-platform-2.16.2/libglade/doc/guile-gnome-libglade.info0000644000175000017500000002452711752516273025345 0ustar00wingowingo00000000000000This is guile-gnome-libglade.info, produced by makeinfo version 4.13 from guile-gnome-libglade.texi. This manual is for `(gnome libglade)' (version 2.16.2, updated 9 December 2011) Copyright 1999-2002 James Henstridge Permission is granted to copy, distribute and/or modify this document under the terms of the GNU Free Documentation License, Version 1.1 or any later version published by the Free Software Foundation with no Invariant Sections, no Front-Cover Texts, and no Back-Cover Texts. You may obtain a copy of the GNU Free Documentation License from the Free Software Foundation by visiting their Web site or by writing to: Free Software Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. INFO-DIR-SECTION The Algorithmic Language Scheme START-INFO-DIR-ENTRY * Guile-Libglade: (guile-gnome-libglade.info). Load GTK+ interfaces from XML. END-INFO-DIR-ENTRY  File: guile-gnome-libglade.info, Node: Top, Next: Overview, Up: (dir) Guile-Libglade ************** This manual is for `(gnome libglade)' (version 2.16.2, updated 9 December 2011) Copyright 1999-2002 James Henstridge Permission is granted to copy, distribute and/or modify this document under the terms of the GNU Free Documentation License, Version 1.1 or any later version published by the Free Software Foundation with no Invariant Sections, no Front-Cover Texts, and no Back-Cover Texts. You may obtain a copy of the GNU Free Documentation License from the Free Software Foundation by visiting their Web site or by writing to: Free Software Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. * Menu: * Overview:: About libglade and its Guile bindings. * GladeXML:: Allows dynamic loading of user interfaces from XML descriptions. * Undocumented:: Undocumented functions. * Type Index:: * Function Index::  File: guile-gnome-libglade.info, Node: Overview, Next: GladeXML, Prev: Top, Up: Top 1 Overview ********** `(gnome glade)' wraps the libglade interface XML interface definition library for Guile. It is a part of Guile-GNOME. Glade files are XML descriptions of a GTK+ widget hierarchy. They are usually created with the Glade user interface editor. A simple example might look like this: (define xml-buf " window1 Hello world! ") (define glade-xml (glade-xml-new-from-buffer xml-buf)) (define main-window (get-widget glade-xml "window1")) (show-all main-window) (g-main-loop-run (g-main-loop-new)) Of course, in practice you are more likely to load the XML from a file; in that case you would use `glade-xml-new'. Also interesting are the `signal-connect' and `signal-autoconnect' implementations; read on for more details. See the documentation for `(gnome gobject)' for more information on Guile-GNOME.  File: guile-gnome-libglade.info, Node: GladeXML, Next: Undocumented, Prev: Overview, Up: Top 2 GladeXML ********** Allows dynamic loading of user interfaces from XML descriptions. 2.1 Overview ============ This object represents an `instantiation' of an XML interface description. When one of these objects is created, the XML file is read, and the interface is created. The GladeXML object then provides an interface for accessing the widgets in the interface by the names assigned to them inside the XML description. The GladeXML object can also be used to connect handlers to the named signals in the description. Libglade also provides an interface by which it can look up the signal handler names in the program's symbol table and automatically connect as many handlers up as it can that way. 2.2 Usage ========= -- Class: Derives from `'. This class defines no direct slots. -- Function: glade-xml-new (fname `mchars') (root `mchars') (domain `mchars') => (ret `') Creates a new GladeXML object (and the corresponding widgets) from the XML file FNAME. Optionally it will only build the interface from the widget node ROOT (if it is not ``#f''). This feature is useful if you only want to build say a toolbar or menu from the XML file, but not the window it is embedded in. Note also that the XML parse tree is cached to speed up creating another GladeXML object for the same file FNAME the XML file name. ROOT the widget node in FNAME to start building from (or ``#f'') DOMAIN the translation domain for the XML file (or ``#f'' for default) RET the newly created GladeXML object, or NULL on failure. -- Function: glade-xml-new-from-buffer (buffer `mchars') (root `mchars') (domain `mchars') => (ret `') Creates a new GladeXML object (and the corresponding widgets) from the buffer BUFFER. Optionally it will only build the interface from the widget node ROOT (if it is not ``#f''). This feature is useful if you only want to build say a toolbar or menu from the XML document, but not the window it is embedded in. BUFFER the memory buffer containing the XML document. SIZE the size of the buffer. ROOT the widget node in BUFFER to start building from (or ``#f'') DOMAIN the translation domain to use for this interface (or ``#f'') RET the newly created GladeXML object, or NULL on failure. -- Function: glade-xml-signal-connect (self `') (handlername `mchars') (proc `scm') -- Method: signal-connect In the glade interface descriptions, signal handlers are specified for widgets by name. This function allows you to connect a Scheme function to all signals in the GladeXML file with the given signal handler name. SELF the GladeXML object HANDLERNAME the signal handler name FUNC the signal handler function -- Function: glade-xml-signal-autoconnect (self `') (module `scm') -- Method: signal-autoconnect This function is a variation of `glade-xml-signal-autoconnect'. It will bind signal handers to the result of evaluating each signal handler name within MODULE. So for example, if you have ten widgets defining a handler as the string `"on-clicked"', you might do this: (define (on-clicked . args) (display "Doing me thing...\n")) (signal-autoconnect glade-xml (current-module)) ;; now the on-clicked handlers are connected SELF the GladeXML object. MODULE A scheme module in which to evaluate the signal handlers definitions. -- Function: glade-xml-get-widget (self `') (name `mchars') => (ret `') -- Method: get-widget This function is used to get a pointer to the GtkWidget corresponding to NAME in the interface description. You would use this if you have to do anything to the widget after loading. SELF the GladeXML object. NAME the name of the widget. RET the widget matching NAME, or ``#f'' if none exists. -- Function: glade-xml-get-widget-prefix (self `') (name `mchars') => (ret `glist-of') -- Method: get-widget-prefix This function is used to get a list of pointers to the GtkWidget(s) with names that start with the string NAME in the interface description. You would use this if you have to do something to all of these widgets after loading. SELF the GladeXML object. NAME the name of the widget. RET A list of the widget that match NAME as the start of their name, or ``#f'' if none exists. -- Function: glade-get-widget-name (widget `') => (ret `mchars') Used to get the name of a widget that was generated by a GladeXML object. WIDGET the widget RET the name of the widget. -- Function: glade-get-widget-tree (widget `') => (ret `') This function is used to get the GladeXML object that built this widget. WIDGET the widget RET the GladeXML object that built this widget.  File: guile-gnome-libglade.info, Node: Undocumented, Next: Type Index, Prev: GladeXML, Up: Top 3 Undocumented ************** The following symbols, if any, have not been properly documented. 3.1 (gnome gw libglade) ======================= -- Variable: glade-xml-relative-file  File: guile-gnome-libglade.info, Node: Type Index, Next: Function Index, Prev: Undocumented, Up: Top Type Index ********** [index] * Menu: * : GladeXML. (line 27)  File: guile-gnome-libglade.info, Node: Function Index, Prev: Type Index, Up: Top Function Index ************** [index] * Menu: * get-widget: GladeXML. (line 127) * get-widget-prefix: GladeXML. (line 145) * glade-get-widget-name: GladeXML. (line 164) * glade-get-widget-tree: GladeXML. (line 177) * glade-xml-get-widget: GladeXML. (line 126) * glade-xml-get-widget-prefix: GladeXML. (line 144) * glade-xml-new: GladeXML. (line 34) * glade-xml-new-from-buffer: GladeXML. (line 59) * glade-xml-signal-autoconnect: GladeXML. (line 103) * glade-xml-signal-connect: GladeXML. (line 84) * signal-autoconnect: GladeXML. (line 104) * signal-connect: GladeXML. (line 85)  Tag Table: Node: Top942 Node: Overview1995 Node: GladeXML3418 Node: Undocumented8897 Node: Type Index9185 Node: Function Index9411  End Tag Table guile-gnome-platform-2.16.2/libglade/doc/Makefile.am0000644000175000017500000000105311670374303022533 0ustar00wingowingo00000000000000################################################################################ ## guile-gnome-libglade.info include $(top_srcdir)/generate-docs.mk docbook_xml_wildcard = ~/src/gnome2/libglade/doc/xml/glade-xml.xml docbook_xml_files = $(wildcard $(docbook_xml_wildcard)) wrapset_stem = libglade GTK_DOC_COVERAGE_MODULES = (gnome glade) (gnome gw $(wrapset_stem)) EXTRA_DIST = overrides.texi info_TEXINFOS=guile-gnome-libglade.texi guile_gnome_libglade_TEXINFOS=overview.texi \ $(wildcard section-*.texi) $(wildcard defuns-*.texi) undocumented.texi guile-gnome-platform-2.16.2/libglade/doc/section-glade-xml.xml.texi0000644000175000017500000000144611670374303025513 0ustar00wingowingo00000000000000 @c %start of fragment @node GladeXML @chapter GladeXML Allows dynamic loading of user interfaces from XML descriptions. @section Overview This object represents an `instantiation' of an XML interface description. When one of these objects is created, the XML file is read, and the interface is created. The GladeXML object then provides an interface for accessing the widgets in the interface by the names assigned to them inside the XML description. The GladeXML object can also be used to connect handlers to the named signals in the description. Libglade also provides an interface by which it can look up the signal handler names in the program's symbol table and automatically connect as many handlers up as it can that way. @section Usage @include defuns-glade-xml.xml.texi @c %end of fragment guile-gnome-platform-2.16.2/libglade/doc/Makefile.in0000644000175000017500000006535611752511067022565 0ustar00wingowingo00000000000000# Makefile.in generated by automake 1.11.5 from Makefile.am. # @configure_input@ # Copyright (C) 1994, 1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, # 2003, 2004, 2005, 2006, 2007, 2008, 2009, 2010, 2011 Free Software # Foundation, Inc. # This Makefile.in is free software; the Free Software Foundation # gives unlimited permission to copy and/or distribute it, # with or without modifications, as long as this notice is preserved. # This program is distributed in the hope that it will be useful, # but WITHOUT ANY WARRANTY, to the extent permitted by law; without # even the implied warranty of MERCHANTABILITY or FITNESS FOR A # PARTICULAR PURPOSE. @SET_MAKE@ ################################################################################ # guile-gnome # Copyright (C) 2007, 2011 Free Software Foundation, Inc. # This program is free software; you can redistribute it and/or # modify it under the terms of the GNU General Public License as # published by the Free Software Foundation; either version 2 of # the License, or (at your option) any later version. # This program is distributed in the hope that it will be useful, # but WITHOUT ANY WARRANTY; without even the implied warranty of # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the # GNU General Public License for more details. # You should have received a copy of the GNU General Public License # along with this program; if not, contact: # Free Software Foundation Voice: +1-617-542-5942 # 59 Temple Place - Suite 330 Fax: +1-617-542-2652 # Boston, MA 02111-1307, USA gnu@gnu.org # # Makefile snippet # VPATH = @srcdir@ am__make_dryrun = \ { \ am__dry=no; \ case $$MAKEFLAGS in \ *\\[\ \ ]*) \ echo 'am--echo: ; @echo "AM" OK' | $(MAKE) -f - 2>/dev/null \ | grep '^AM OK$$' >/dev/null || am__dry=yes;; \ *) \ for am__flg in $$MAKEFLAGS; do \ case $$am__flg in \ *=*|--*) ;; \ *n*) am__dry=yes; break;; \ esac; \ done;; \ esac; \ test $$am__dry = yes; \ } pkgdatadir = $(datadir)/@PACKAGE@ pkgincludedir = $(includedir)/@PACKAGE@ pkglibdir = $(libdir)/@PACKAGE@ pkglibexecdir = $(libexecdir)/@PACKAGE@ am__cd = CDPATH="$${ZSH_VERSION+.}$(PATH_SEPARATOR)" && cd install_sh_DATA = $(install_sh) -c -m 644 install_sh_PROGRAM = $(install_sh) -c install_sh_SCRIPT = $(install_sh) -c INSTALL_HEADER = $(INSTALL_DATA) transform = $(program_transform_name) NORMAL_INSTALL = : PRE_INSTALL = : POST_INSTALL = : NORMAL_UNINSTALL = : PRE_UNINSTALL = : POST_UNINSTALL = : build_triplet = @build@ host_triplet = @host@ DIST_COMMON = $(guile_gnome_libglade_TEXINFOS) $(srcdir)/Makefile.am \ $(srcdir)/Makefile.in $(srcdir)/stamp-vti \ $(srcdir)/version.texi $(top_srcdir)/generate-docs.mk subdir = libglade/doc ACLOCAL_M4 = $(top_srcdir)/aclocal.m4 am__aclocal_m4_deps = $(top_srcdir)/configure.ac am__configure_deps = $(am__aclocal_m4_deps) $(CONFIGURE_DEPENDENCIES) \ $(ACLOCAL_M4) mkinstalldirs = $(install_sh) -d CONFIG_HEADER = $(top_builddir)/config.h CONFIG_CLEAN_FILES = CONFIG_CLEAN_VPATH_FILES = SOURCES = DIST_SOURCES = INFO_DEPS = $(srcdir)/guile-gnome-libglade.info TEXINFO_TEX = $(top_srcdir)/build-aux/texinfo.tex am__TEXINFO_TEX_DIR = $(top_srcdir)/build-aux DVIS = guile-gnome-libglade.dvi PDFS = guile-gnome-libglade.pdf PSS = guile-gnome-libglade.ps HTMLS = guile-gnome-libglade.html TEXINFOS = guile-gnome-libglade.texi TEXI2DVI = texi2dvi TEXI2PDF = $(TEXI2DVI) --pdf --batch MAKEINFOHTML = $(MAKEINFO) --html AM_MAKEINFOHTMLFLAGS = $(AM_MAKEINFOFLAGS) DVIPS = dvips am__can_run_installinfo = \ case $$AM_UPDATE_INFO_DIR in \ n|no|NO) false;; \ *) (install-info --version) >/dev/null 2>&1;; \ esac am__installdirs = "$(DESTDIR)$(infodir)" am__vpath_adj_setup = srcdirstrip=`echo "$(srcdir)" | sed 's|.|.|g'`; am__vpath_adj = case $$p in \ $(srcdir)/*) f=`echo "$$p" | sed "s|^$$srcdirstrip/||"`;; \ *) f=$$p;; \ esac; am__strip_dir = f=`echo $$p | sed -e 's|^.*/||'`; am__install_max = 40 am__nobase_strip_setup = \ srcdirstrip=`echo "$(srcdir)" | sed 's/[].[^$$\\*|]/\\\\&/g'` am__nobase_strip = \ for p in $$list; do echo "$$p"; done | sed -e "s|$$srcdirstrip/||" am__nobase_list = $(am__nobase_strip_setup); \ for p in $$list; do echo "$$p $$p"; done | \ sed "s| $$srcdirstrip/| |;"' / .*\//!s/ .*/ ./; s,\( .*\)/[^/]*$$,\1,' | \ $(AWK) 'BEGIN { files["."] = "" } { files[$$2] = files[$$2] " " $$1; \ if (++n[$$2] == $(am__install_max)) \ { print $$2, files[$$2]; n[$$2] = 0; files[$$2] = "" } } \ END { for (dir in files) print dir, files[dir] }' am__base_list = \ sed '$$!N;$$!N;$$!N;$$!N;$$!N;$$!N;$$!N;s/\n/ /g' | \ sed '$$!N;$$!N;$$!N;$$!N;s/\n/ /g' am__uninstall_files_from_dir = { \ test -z "$$files" \ || { test ! -d "$$dir" && test ! -f "$$dir" && test ! -r "$$dir"; } \ || { echo " ( cd '$$dir' && rm -f" $$files ")"; \ $(am__cd) "$$dir" && rm -f $$files; }; \ } DISTFILES = $(DIST_COMMON) $(DIST_SOURCES) $(TEXINFOS) $(EXTRA_DIST) ACLOCAL = @ACLOCAL@ AG_PKG_CONFIG_PATH = @AG_PKG_CONFIG_PATH@ AMTAR = @AMTAR@ API_VERSION = @API_VERSION@ AR = @AR@ ATK_CFLAGS = @ATK_CFLAGS@ ATK_LIBS = @ATK_LIBS@ AUTOCONF = @AUTOCONF@ AUTOHEADER = @AUTOHEADER@ AUTOMAKE = @AUTOMAKE@ AWK = @AWK@ BONOBO_IDL_DIR = @BONOBO_IDL_DIR@ CANVAS_CFLAGS = @CANVAS_CFLAGS@ CANVAS_LIBS = @CANVAS_LIBS@ CC = @CC@ CCDEPMODE = @CCDEPMODE@ CFLAGS = @CFLAGS@ CORBA_CFLAGS = @CORBA_CFLAGS@ CORBA_LIBS = @CORBA_LIBS@ CPP = @CPP@ CPPFLAGS = @CPPFLAGS@ CYGPATH_W = @CYGPATH_W@ DEFS = @DEFS@ DEPDIR = @DEPDIR@ DLLTOOL = @DLLTOOL@ DSYMUTIL = @DSYMUTIL@ DUMPBIN = @DUMPBIN@ ECHO_C = @ECHO_C@ ECHO_N = @ECHO_N@ ECHO_T = @ECHO_T@ EGREP = @EGREP@ EXEEXT = @EXEEXT@ FGREP = @FGREP@ GCONF_CFLAGS = @GCONF_CFLAGS@ GCONF_LIBS = @GCONF_LIBS@ GDK_CFLAGS = @GDK_CFLAGS@ GDK_LIBS = @GDK_LIBS@ GDK_PIXBUF_CFLAGS = @GDK_PIXBUF_CFLAGS@ GDK_PIXBUF_LIBS = @GDK_PIXBUF_LIBS@ GLIB_CFLAGS = @GLIB_CFLAGS@ GLIB_LIBS = @GLIB_LIBS@ GNOMEUI_DEPRECATION_FLAGS = @GNOMEUI_DEPRECATION_FLAGS@ GNOME_VFS_CFLAGS = @GNOME_VFS_CFLAGS@ GNOME_VFS_DEPRECATED_CFLAGS = @GNOME_VFS_DEPRECATED_CFLAGS@ GNOME_VFS_LIBS = @GNOME_VFS_LIBS@ GOBJECT_CFLAGS = @GOBJECT_CFLAGS@ GOBJECT_LIBS = @GOBJECT_LIBS@ GREP = @GREP@ GTHREAD_CFLAGS = @GTHREAD_CFLAGS@ GTHREAD_LIBS = @GTHREAD_LIBS@ GTK_CFLAGS = @GTK_CFLAGS@ GTK_DEPRECATED_CFLAGS = @GTK_DEPRECATED_CFLAGS@ GTK_LIBS = @GTK_LIBS@ GUILE_CAIRO_CFLAGS = @GUILE_CAIRO_CFLAGS@ GUILE_CAIRO_LIBS = @GUILE_CAIRO_LIBS@ GUILE_CFLAGS = @GUILE_CFLAGS@ GUILE_EFFECTIVE_VERSION = @GUILE_EFFECTIVE_VERSION@ GUILE_GLIB_CFLAGS = @GUILE_GLIB_CFLAGS@ GUILE_GLIB_LIBS = @GUILE_GLIB_LIBS@ GUILE_LIBS = @GUILE_LIBS@ G_WRAP_CFLAGS = @G_WRAP_CFLAGS@ G_WRAP_LIBS = @G_WRAP_LIBS@ G_WRAP_LIB_DIR = @G_WRAP_LIB_DIR@ G_WRAP_MODULE_DIR = @G_WRAP_MODULE_DIR@ INSTALL = @INSTALL@ INSTALL_DATA = @INSTALL_DATA@ INSTALL_PROGRAM = @INSTALL_PROGRAM@ INSTALL_SCRIPT = @INSTALL_SCRIPT@ INSTALL_STRIP_PROGRAM = @INSTALL_STRIP_PROGRAM@ LD = @LD@ LDFLAGS = @LDFLAGS@ LIBGLADE_CFLAGS = @LIBGLADE_CFLAGS@ LIBGLADE_LIBS = @LIBGLADE_LIBS@ LIBGNOMEUI_CFLAGS = @LIBGNOMEUI_CFLAGS@ LIBGNOMEUI_LIBS = @LIBGNOMEUI_LIBS@ LIBGNOME_CFLAGS = @LIBGNOME_CFLAGS@ LIBGNOME_LIBS = @LIBGNOME_LIBS@ LIBOBJS = @LIBOBJS@ LIBS = @LIBS@ LIBTOOL = @LIBTOOL@ LIPO = @LIPO@ LN_S = @LN_S@ LTLIBOBJS = @LTLIBOBJS@ MAKEINFO = @MAKEINFO@ MANIFEST_TOOL = @MANIFEST_TOOL@ MKDIR_P = @MKDIR_P@ NM = @NM@ NMEDIT = @NMEDIT@ OBJDUMP = @OBJDUMP@ OBJEXT = @OBJEXT@ ORBIT_IDL = @ORBIT_IDL@ OTOOL = @OTOOL@ OTOOL64 = @OTOOL64@ PACKAGE = @PACKAGE@ PACKAGE_BUGREPORT = @PACKAGE_BUGREPORT@ PACKAGE_NAME = @PACKAGE_NAME@ PACKAGE_STRING = @PACKAGE_STRING@ PACKAGE_TARNAME = @PACKAGE_TARNAME@ PACKAGE_URL = @PACKAGE_URL@ PACKAGE_VERSION = @PACKAGE_VERSION@ PANGOCAIRO_CFLAGS = @PANGOCAIRO_CFLAGS@ PANGOCAIRO_LIBS = @PANGOCAIRO_LIBS@ PANGO_CFLAGS = @PANGO_CFLAGS@ PANGO_LIBS = @PANGO_LIBS@ PATH_SEPARATOR = @PATH_SEPARATOR@ PKG_CONFIG = @PKG_CONFIG@ PKG_CONFIG_LIBDIR = @PKG_CONFIG_LIBDIR@ PKG_CONFIG_PATH = @PKG_CONFIG_PATH@ RANLIB = @RANLIB@ SED = @SED@ SET_MAKE = @SET_MAKE@ SHELL = @SHELL@ STRIP = @STRIP@ VERSION = @VERSION@ WARN_CFLAGS = @WARN_CFLAGS@ abs_builddir = @abs_builddir@ abs_srcdir = @abs_srcdir@ abs_top_builddir = @abs_top_builddir@ abs_top_srcdir = @abs_top_srcdir@ ac_ct_AR = @ac_ct_AR@ ac_ct_CC = @ac_ct_CC@ ac_ct_DUMPBIN = @ac_ct_DUMPBIN@ am__include = @am__include@ am__leading_dot = @am__leading_dot@ am__quote = @am__quote@ am__tar = @am__tar@ am__untar = @am__untar@ bindir = @bindir@ build = @build@ build_alias = @build_alias@ build_cpu = @build_cpu@ build_os = @build_os@ build_vendor = @build_vendor@ builddir = @builddir@ datadir = @datadir@ datarootdir = @datarootdir@ docdir = @docdir@ dvidir = @dvidir@ exec_prefix = @exec_prefix@ host = @host@ host_alias = @host_alias@ host_cpu = @host_cpu@ host_os = @host_os@ host_vendor = @host_vendor@ htmldir = @htmldir@ includedir = @includedir@ infodir = @infodir@ install_sh = @install_sh@ libdir = @libdir@ libexecdir = @libexecdir@ localedir = @localedir@ localstatedir = @localstatedir@ mandir = @mandir@ mkdir_p = @mkdir_p@ oldincludedir = @oldincludedir@ pdfdir = @pdfdir@ prefix = @prefix@ program_transform_name = @program_transform_name@ psdir = @psdir@ sbindir = @sbindir@ sharedstatedir = @sharedstatedir@ srcdir = @srcdir@ sysconfdir = @sysconfdir@ target_alias = @target_alias@ top_build_prefix = @top_build_prefix@ top_builddir = @top_builddir@ top_srcdir = @top_srcdir@ wrapset_module = (gnome gw $(wrapset_stem)-spec) wrapset_name = gnome-$(wrapset_stem) GTK_DOC_TO_TEXI_STUBS = '((@ (gnome gw support gtk-doc) gtk-doc->texi-stubs) (cdr (program-arguments)))' GTK_DOC_DEFUN_HEURISTICS_METHOD = heuristics GTK_DOC_DEFUN_HEURISTICS_ARGS = (your-module-here) GTK_DOC_DEFUN_GWRAP_METHOD = g-wrap GTK_DOC_DEFUN_GWRAP_ARGS = $(wrapset_module) $(wrapset_name) GTK_DOC_DEFUN_METHOD = $(GTK_DOC_DEFUN_GWRAP_METHOD) GTK_DOC_DEFUN_ARGS = $(GTK_DOC_DEFUN_GWRAP_ARGS) GTK_DOC_TO_TEXI_DEFUNS = "(apply (@ (gnome gw support gtk-doc) gtk-doc->texi-defuns) (cadr (program-arguments)) '$(GTK_DOC_DEFUN_METHOD) '($(GTK_DOC_DEFUN_ARGS)) (cddr (program-arguments)))" GTK_DOC_COVERAGE_MODULES = (gnome glade) (gnome gw $(wrapset_stem)) GTK_DOC_COVERAGE_TEXI = $(info_TEXINFOS) GTK_DOC_CHECK_COVERAGE = "((@ (gnome gw support gtk-doc) check-documentation-coverage) '($(GTK_DOC_COVERAGE_MODULES)) \"$(GTK_DOC_COVERAGE_TEXI)\")" GTK_DOC_GENERATE_UNDOCUMENTED = "((@ (gnome gw support gtk-doc) generate-undocumented-texi) '($(GTK_DOC_COVERAGE_MODULES)) \"$(GTK_DOC_COVERAGE_TEXI)\")" GUILE = $(top_builddir)/dev-environ guile docbook_xml_wildcard = ~/src/gnome2/libglade/doc/xml/glade-xml.xml docbook_xml_files = $(wildcard $(docbook_xml_wildcard)) wrapset_stem = libglade EXTRA_DIST = overrides.texi info_TEXINFOS = guile-gnome-libglade.texi guile_gnome_libglade_TEXINFOS = overview.texi \ $(wildcard section-*.texi) $(wildcard defuns-*.texi) undocumented.texi all: all-am .SUFFIXES: .SUFFIXES: .dvi .html .info .pdf .ps .texi $(srcdir)/Makefile.in: $(srcdir)/Makefile.am $(top_srcdir)/generate-docs.mk $(am__configure_deps) @for dep in $?; do \ case '$(am__configure_deps)' in \ *$$dep*) \ ( cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh ) \ && { if test -f $@; then exit 0; else break; fi; }; \ exit 1;; \ esac; \ done; \ echo ' cd $(top_srcdir) && $(AUTOMAKE) --gnu libglade/doc/Makefile'; \ $(am__cd) $(top_srcdir) && \ $(AUTOMAKE) --gnu libglade/doc/Makefile .PRECIOUS: Makefile Makefile: $(srcdir)/Makefile.in $(top_builddir)/config.status @case '$?' in \ *config.status*) \ cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh;; \ *) \ echo ' cd $(top_builddir) && $(SHELL) ./config.status $(subdir)/$@ $(am__depfiles_maybe)'; \ cd $(top_builddir) && $(SHELL) ./config.status $(subdir)/$@ $(am__depfiles_maybe);; \ esac; $(top_srcdir)/generate-docs.mk: $(top_builddir)/config.status: $(top_srcdir)/configure $(CONFIG_STATUS_DEPENDENCIES) cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh $(top_srcdir)/configure: $(am__configure_deps) cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh $(ACLOCAL_M4): $(am__aclocal_m4_deps) cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh $(am__aclocal_m4_deps): mostlyclean-libtool: -rm -f *.lo clean-libtool: -rm -rf .libs _libs .texi.info: restore=: && backupdir="$(am__leading_dot)am$$$$" && \ am__cwd=`pwd` && $(am__cd) $(srcdir) && \ rm -rf $$backupdir && mkdir $$backupdir && \ if ($(MAKEINFO) --version) >/dev/null 2>&1; then \ for f in $@ $@-[0-9] $@-[0-9][0-9] $(@:.info=).i[0-9] $(@:.info=).i[0-9][0-9]; do \ if test -f $$f; then mv $$f $$backupdir; restore=mv; else :; fi; \ done; \ else :; fi && \ cd "$$am__cwd"; \ if $(MAKEINFO) $(AM_MAKEINFOFLAGS) $(MAKEINFOFLAGS) -I $(srcdir) \ -o $@ $<; \ then \ rc=0; \ $(am__cd) $(srcdir); \ else \ rc=$$?; \ $(am__cd) $(srcdir) && \ $$restore $$backupdir/* `echo "./$@" | sed 's|[^/]*$$||'`; \ fi; \ rm -rf $$backupdir; exit $$rc .texi.dvi: TEXINPUTS="$(am__TEXINFO_TEX_DIR)$(PATH_SEPARATOR)$$TEXINPUTS" \ MAKEINFO='$(MAKEINFO) $(AM_MAKEINFOFLAGS) $(MAKEINFOFLAGS) -I $(srcdir)' \ $(TEXI2DVI) $< .texi.pdf: TEXINPUTS="$(am__TEXINFO_TEX_DIR)$(PATH_SEPARATOR)$$TEXINPUTS" \ MAKEINFO='$(MAKEINFO) $(AM_MAKEINFOFLAGS) $(MAKEINFOFLAGS) -I $(srcdir)' \ $(TEXI2PDF) $< .texi.html: rm -rf $(@:.html=.htp) if $(MAKEINFOHTML) $(AM_MAKEINFOHTMLFLAGS) $(MAKEINFOFLAGS) -I $(srcdir) \ -o $(@:.html=.htp) $<; \ then \ rm -rf $@; \ if test ! -d $(@:.html=.htp) && test -d $(@:.html=); then \ mv $(@:.html=) $@; else mv $(@:.html=.htp) $@; fi; \ else \ if test ! -d $(@:.html=.htp) && test -d $(@:.html=); then \ rm -rf $(@:.html=); else rm -Rf $(@:.html=.htp) $@; fi; \ exit 1; \ fi $(srcdir)/guile-gnome-libglade.info: guile-gnome-libglade.texi $(srcdir)/version.texi $(guile_gnome_libglade_TEXINFOS) guile-gnome-libglade.dvi: guile-gnome-libglade.texi $(srcdir)/version.texi $(guile_gnome_libglade_TEXINFOS) guile-gnome-libglade.pdf: guile-gnome-libglade.texi $(srcdir)/version.texi $(guile_gnome_libglade_TEXINFOS) guile-gnome-libglade.html: guile-gnome-libglade.texi $(srcdir)/version.texi $(guile_gnome_libglade_TEXINFOS) $(srcdir)/version.texi: $(srcdir)/stamp-vti $(srcdir)/stamp-vti: guile-gnome-libglade.texi $(top_srcdir)/configure @(dir=.; test -f ./guile-gnome-libglade.texi || dir=$(srcdir); \ set `$(SHELL) $(top_srcdir)/build-aux/mdate-sh $$dir/guile-gnome-libglade.texi`; \ echo "@set UPDATED $$1 $$2 $$3"; \ echo "@set UPDATED-MONTH $$2 $$3"; \ echo "@set EDITION $(VERSION)"; \ echo "@set VERSION $(VERSION)") > vti.tmp @cmp -s vti.tmp $(srcdir)/version.texi \ || (echo "Updating $(srcdir)/version.texi"; \ cp vti.tmp $(srcdir)/version.texi) -@rm -f vti.tmp @cp $(srcdir)/version.texi $@ mostlyclean-vti: -rm -f vti.tmp maintainer-clean-vti: -rm -f $(srcdir)/stamp-vti $(srcdir)/version.texi .dvi.ps: TEXINPUTS="$(am__TEXINFO_TEX_DIR)$(PATH_SEPARATOR)$$TEXINPUTS" \ $(DVIPS) -o $@ $< uninstall-dvi-am: @$(NORMAL_UNINSTALL) @list='$(DVIS)'; test -n "$(dvidir)" || list=; \ for p in $$list; do \ $(am__strip_dir) \ echo " rm -f '$(DESTDIR)$(dvidir)/$$f'"; \ rm -f "$(DESTDIR)$(dvidir)/$$f"; \ done uninstall-html-am: @$(NORMAL_UNINSTALL) @list='$(HTMLS)'; test -n "$(htmldir)" || list=; \ for p in $$list; do \ $(am__strip_dir) \ echo " rm -rf '$(DESTDIR)$(htmldir)/$$f'"; \ rm -rf "$(DESTDIR)$(htmldir)/$$f"; \ done uninstall-info-am: @$(PRE_UNINSTALL) @if test -d '$(DESTDIR)$(infodir)' && $(am__can_run_installinfo); then \ list='$(INFO_DEPS)'; \ for file in $$list; do \ relfile=`echo "$$file" | sed 's|^.*/||'`; \ echo " install-info --info-dir='$(DESTDIR)$(infodir)' --remove '$(DESTDIR)$(infodir)/$$relfile'"; \ if install-info --info-dir="$(DESTDIR)$(infodir)" --remove "$(DESTDIR)$(infodir)/$$relfile"; \ then :; else test ! -f "$(DESTDIR)$(infodir)/$$relfile" || exit 1; fi; \ done; \ else :; fi @$(NORMAL_UNINSTALL) @list='$(INFO_DEPS)'; \ for file in $$list; do \ relfile=`echo "$$file" | sed 's|^.*/||'`; \ relfile_i=`echo "$$relfile" | sed 's|\.info$$||;s|$$|.i|'`; \ (if test -d "$(DESTDIR)$(infodir)" && cd "$(DESTDIR)$(infodir)"; then \ echo " cd '$(DESTDIR)$(infodir)' && rm -f $$relfile $$relfile-[0-9] $$relfile-[0-9][0-9] $$relfile_i[0-9] $$relfile_i[0-9][0-9]"; \ rm -f $$relfile $$relfile-[0-9] $$relfile-[0-9][0-9] $$relfile_i[0-9] $$relfile_i[0-9][0-9]; \ else :; fi); \ done uninstall-pdf-am: @$(NORMAL_UNINSTALL) @list='$(PDFS)'; test -n "$(pdfdir)" || list=; \ for p in $$list; do \ $(am__strip_dir) \ echo " rm -f '$(DESTDIR)$(pdfdir)/$$f'"; \ rm -f "$(DESTDIR)$(pdfdir)/$$f"; \ done uninstall-ps-am: @$(NORMAL_UNINSTALL) @list='$(PSS)'; test -n "$(psdir)" || list=; \ for p in $$list; do \ $(am__strip_dir) \ echo " rm -f '$(DESTDIR)$(psdir)/$$f'"; \ rm -f "$(DESTDIR)$(psdir)/$$f"; \ done dist-info: $(INFO_DEPS) @srcdirstrip=`echo "$(srcdir)" | sed 's|.|.|g'`; \ list='$(INFO_DEPS)'; \ for base in $$list; do \ case $$base in \ $(srcdir)/*) base=`echo "$$base" | sed "s|^$$srcdirstrip/||"`;; \ esac; \ if test -f $$base; then d=.; else d=$(srcdir); fi; \ base_i=`echo "$$base" | sed 's|\.info$$||;s|$$|.i|'`; \ for file in $$d/$$base $$d/$$base-[0-9] $$d/$$base-[0-9][0-9] $$d/$$base_i[0-9] $$d/$$base_i[0-9][0-9]; do \ if test -f $$file; then \ relfile=`expr "$$file" : "$$d/\(.*\)"`; \ test -f "$(distdir)/$$relfile" || \ cp -p $$file "$(distdir)/$$relfile"; \ else :; fi; \ done; \ done mostlyclean-aminfo: -rm -rf guile-gnome-libglade.aux guile-gnome-libglade.cp \ guile-gnome-libglade.cps guile-gnome-libglade.fn \ guile-gnome-libglade.fns guile-gnome-libglade.ky \ guile-gnome-libglade.kys guile-gnome-libglade.log \ guile-gnome-libglade.pg guile-gnome-libglade.pgs \ guile-gnome-libglade.tmp guile-gnome-libglade.toc \ guile-gnome-libglade.tp guile-gnome-libglade.tps \ guile-gnome-libglade.vr guile-gnome-libglade.vrs clean-aminfo: -test -z "guile-gnome-libglade.dvi guile-gnome-libglade.pdf \ guile-gnome-libglade.ps guile-gnome-libglade.html" \ || rm -rf guile-gnome-libglade.dvi guile-gnome-libglade.pdf \ guile-gnome-libglade.ps guile-gnome-libglade.html maintainer-clean-aminfo: @list='$(INFO_DEPS)'; for i in $$list; do \ i_i=`echo "$$i" | sed 's|\.info$$||;s|$$|.i|'`; \ echo " rm -f $$i $$i-[0-9] $$i-[0-9][0-9] $$i_i[0-9] $$i_i[0-9][0-9]"; \ rm -f $$i $$i-[0-9] $$i-[0-9][0-9] $$i_i[0-9] $$i_i[0-9][0-9]; \ done tags: TAGS TAGS: ctags: CTAGS CTAGS: distdir: $(DISTFILES) @srcdirstrip=`echo "$(srcdir)" | sed 's/[].[^$$\\*]/\\\\&/g'`; \ topsrcdirstrip=`echo "$(top_srcdir)" | sed 's/[].[^$$\\*]/\\\\&/g'`; \ list='$(DISTFILES)'; \ dist_files=`for file in $$list; do echo $$file; done | \ sed -e "s|^$$srcdirstrip/||;t" \ -e "s|^$$topsrcdirstrip/|$(top_builddir)/|;t"`; \ case $$dist_files in \ */*) $(MKDIR_P) `echo "$$dist_files" | \ sed '/\//!d;s|^|$(distdir)/|;s,/[^/]*$$,,' | \ sort -u` ;; \ esac; \ for file in $$dist_files; do \ if test -f $$file || test -d $$file; then d=.; else d=$(srcdir); fi; \ if test -d $$d/$$file; then \ dir=`echo "/$$file" | sed -e 's,/[^/]*$$,,'`; \ if test -d "$(distdir)/$$file"; then \ find "$(distdir)/$$file" -type d ! -perm -700 -exec chmod u+rwx {} \;; \ fi; \ if test -d $(srcdir)/$$file && test $$d != $(srcdir); then \ cp -fpR $(srcdir)/$$file "$(distdir)$$dir" || exit 1; \ find "$(distdir)/$$file" -type d ! -perm -700 -exec chmod u+rwx {} \;; \ fi; \ cp -fpR $$d/$$file "$(distdir)$$dir" || exit 1; \ else \ test -f "$(distdir)/$$file" \ || cp -p $$d/$$file "$(distdir)/$$file" \ || exit 1; \ fi; \ done $(MAKE) $(AM_MAKEFLAGS) \ top_distdir="$(top_distdir)" distdir="$(distdir)" \ dist-info check-am: all-am check: check-am all-am: Makefile $(INFO_DEPS) installdirs: for dir in "$(DESTDIR)$(infodir)"; do \ test -z "$$dir" || $(MKDIR_P) "$$dir"; \ done install: install-am install-exec: install-exec-am install-data: install-data-am uninstall: uninstall-am install-am: all-am @$(MAKE) $(AM_MAKEFLAGS) install-exec-am install-data-am installcheck: installcheck-am install-strip: if test -z '$(STRIP)'; then \ $(MAKE) $(AM_MAKEFLAGS) INSTALL_PROGRAM="$(INSTALL_STRIP_PROGRAM)" \ install_sh_PROGRAM="$(INSTALL_STRIP_PROGRAM)" INSTALL_STRIP_FLAG=-s \ install; \ else \ $(MAKE) $(AM_MAKEFLAGS) INSTALL_PROGRAM="$(INSTALL_STRIP_PROGRAM)" \ install_sh_PROGRAM="$(INSTALL_STRIP_PROGRAM)" INSTALL_STRIP_FLAG=-s \ "INSTALL_PROGRAM_ENV=STRIPPROG='$(STRIP)'" install; \ fi mostlyclean-generic: clean-generic: distclean-generic: -test -z "$(CONFIG_CLEAN_FILES)" || rm -f $(CONFIG_CLEAN_FILES) -test . = "$(srcdir)" || test -z "$(CONFIG_CLEAN_VPATH_FILES)" || rm -f $(CONFIG_CLEAN_VPATH_FILES) maintainer-clean-generic: @echo "This command is intended for maintainers to use" @echo "it deletes files that may require special tools to rebuild." clean: clean-am clean-am: clean-aminfo clean-generic clean-libtool mostlyclean-am distclean: distclean-am -rm -f Makefile distclean-am: clean-am distclean-generic dvi: dvi-am dvi-am: $(DVIS) html: html-am html-am: $(HTMLS) info: info-am info-am: $(INFO_DEPS) install-data-am: install-info-am install-dvi: install-dvi-am install-dvi-am: $(DVIS) @$(NORMAL_INSTALL) @list='$(DVIS)'; test -n "$(dvidir)" || list=; \ if test -n "$$list"; then \ echo " $(MKDIR_P) '$(DESTDIR)$(dvidir)'"; \ $(MKDIR_P) "$(DESTDIR)$(dvidir)" || exit 1; \ fi; \ for p in $$list; do \ if test -f "$$p"; then d=; else d="$(srcdir)/"; fi; \ echo "$$d$$p"; \ done | $(am__base_list) | \ while read files; do \ echo " $(INSTALL_DATA) $$files '$(DESTDIR)$(dvidir)'"; \ $(INSTALL_DATA) $$files "$(DESTDIR)$(dvidir)" || exit $$?; \ done install-exec-am: install-html: install-html-am install-html-am: $(HTMLS) @$(NORMAL_INSTALL) @list='$(HTMLS)'; list2=; test -n "$(htmldir)" || list=; \ if test -n "$$list"; then \ echo " $(MKDIR_P) '$(DESTDIR)$(htmldir)'"; \ $(MKDIR_P) "$(DESTDIR)$(htmldir)" || exit 1; \ fi; \ for p in $$list; do \ if test -f "$$p" || test -d "$$p"; then d=; else d="$(srcdir)/"; fi; \ $(am__strip_dir) \ d2=$$d$$p; \ if test -d "$$d2"; then \ echo " $(MKDIR_P) '$(DESTDIR)$(htmldir)/$$f'"; \ $(MKDIR_P) "$(DESTDIR)$(htmldir)/$$f" || exit 1; \ echo " $(INSTALL_DATA) '$$d2'/* '$(DESTDIR)$(htmldir)/$$f'"; \ $(INSTALL_DATA) "$$d2"/* "$(DESTDIR)$(htmldir)/$$f" || exit $$?; \ else \ list2="$$list2 $$d2"; \ fi; \ done; \ test -z "$$list2" || { echo "$$list2" | $(am__base_list) | \ while read files; do \ echo " $(INSTALL_DATA) $$files '$(DESTDIR)$(htmldir)'"; \ $(INSTALL_DATA) $$files "$(DESTDIR)$(htmldir)" || exit $$?; \ done; } install-info: install-info-am install-info-am: $(INFO_DEPS) @$(NORMAL_INSTALL) @srcdirstrip=`echo "$(srcdir)" | sed 's|.|.|g'`; \ list='$(INFO_DEPS)'; test -n "$(infodir)" || list=; \ if test -n "$$list"; then \ echo " $(MKDIR_P) '$(DESTDIR)$(infodir)'"; \ $(MKDIR_P) "$(DESTDIR)$(infodir)" || exit 1; \ fi; \ for file in $$list; do \ case $$file in \ $(srcdir)/*) file=`echo "$$file" | sed "s|^$$srcdirstrip/||"`;; \ esac; \ if test -f $$file; then d=.; else d=$(srcdir); fi; \ file_i=`echo "$$file" | sed 's|\.info$$||;s|$$|.i|'`; \ for ifile in $$d/$$file $$d/$$file-[0-9] $$d/$$file-[0-9][0-9] \ $$d/$$file_i[0-9] $$d/$$file_i[0-9][0-9] ; do \ if test -f $$ifile; then \ echo "$$ifile"; \ else : ; fi; \ done; \ done | $(am__base_list) | \ while read files; do \ echo " $(INSTALL_DATA) $$files '$(DESTDIR)$(infodir)'"; \ $(INSTALL_DATA) $$files "$(DESTDIR)$(infodir)" || exit $$?; done @$(POST_INSTALL) @if $(am__can_run_installinfo); then \ list='$(INFO_DEPS)'; test -n "$(infodir)" || list=; \ for file in $$list; do \ relfile=`echo "$$file" | sed 's|^.*/||'`; \ echo " install-info --info-dir='$(DESTDIR)$(infodir)' '$(DESTDIR)$(infodir)/$$relfile'";\ install-info --info-dir="$(DESTDIR)$(infodir)" "$(DESTDIR)$(infodir)/$$relfile" || :;\ done; \ else : ; fi install-man: install-pdf: install-pdf-am install-pdf-am: $(PDFS) @$(NORMAL_INSTALL) @list='$(PDFS)'; test -n "$(pdfdir)" || list=; \ if test -n "$$list"; then \ echo " $(MKDIR_P) '$(DESTDIR)$(pdfdir)'"; \ $(MKDIR_P) "$(DESTDIR)$(pdfdir)" || exit 1; \ fi; \ for p in $$list; do \ if test -f "$$p"; then d=; else d="$(srcdir)/"; fi; \ echo "$$d$$p"; \ done | $(am__base_list) | \ while read files; do \ echo " $(INSTALL_DATA) $$files '$(DESTDIR)$(pdfdir)'"; \ $(INSTALL_DATA) $$files "$(DESTDIR)$(pdfdir)" || exit $$?; done install-ps: install-ps-am install-ps-am: $(PSS) @$(NORMAL_INSTALL) @list='$(PSS)'; test -n "$(psdir)" || list=; \ if test -n "$$list"; then \ echo " $(MKDIR_P) '$(DESTDIR)$(psdir)'"; \ $(MKDIR_P) "$(DESTDIR)$(psdir)" || exit 1; \ fi; \ for p in $$list; do \ if test -f "$$p"; then d=; else d="$(srcdir)/"; fi; \ echo "$$d$$p"; \ done | $(am__base_list) | \ while read files; do \ echo " $(INSTALL_DATA) $$files '$(DESTDIR)$(psdir)'"; \ $(INSTALL_DATA) $$files "$(DESTDIR)$(psdir)" || exit $$?; done installcheck-am: maintainer-clean: maintainer-clean-am -rm -f Makefile maintainer-clean-am: distclean-am maintainer-clean-aminfo \ maintainer-clean-generic maintainer-clean-vti mostlyclean: mostlyclean-am mostlyclean-am: mostlyclean-aminfo mostlyclean-generic \ mostlyclean-libtool mostlyclean-vti pdf: pdf-am pdf-am: $(PDFS) ps: ps-am ps-am: $(PSS) uninstall-am: uninstall-dvi-am uninstall-html-am uninstall-info-am \ uninstall-pdf-am uninstall-ps-am .MAKE: install-am install-strip .PHONY: all all-am check check-am clean clean-aminfo clean-generic \ clean-libtool dist-info distclean distclean-generic \ distclean-libtool distdir dvi dvi-am html html-am info info-am \ install install-am install-data install-data-am install-dvi \ install-dvi-am install-exec install-exec-am install-html \ install-html-am install-info install-info-am install-man \ install-pdf install-pdf-am install-ps install-ps-am \ install-strip installcheck installcheck-am installdirs \ maintainer-clean maintainer-clean-aminfo \ maintainer-clean-generic maintainer-clean-vti mostlyclean \ mostlyclean-aminfo mostlyclean-generic mostlyclean-libtool \ mostlyclean-vti pdf pdf-am ps ps-am uninstall uninstall-am \ uninstall-dvi-am uninstall-html-am uninstall-info-am \ uninstall-pdf-am uninstall-ps-am generate-stubs: $(GUILE) $(GUILE_FLAGS) -c $(GTK_DOC_TO_TEXI_STUBS) $(docbook_xml_files) generate-defuns: $(GUILE) $(GUILE_FLAGS) -c $(GTK_DOC_TO_TEXI_DEFUNS) ./overrides.texi $(docbook_xml_files) check-coverage: $(GUILE) $(GUILE_FLAGS) -c $(GTK_DOC_CHECK_COVERAGE) generate-undocumented: rm -f undocumented.texi; touch undocumented.texi $(GUILE) $(GUILE_FLAGS) -c $(GTK_DOC_GENERATE_UNDOCUMENTED) # Tell versions [3.59,3.63) of GNU make to not export all variables. # Otherwise a system limit (for SysV at least) may be exceeded. .NOEXPORT: guile-gnome-platform-2.16.2/libglade/doc/stamp-vti0000644000175000017500000000014611752511104022341 0ustar00wingowingo00000000000000@set UPDATED 9 December 2011 @set UPDATED-MONTH December 2011 @set EDITION 2.16.2 @set VERSION 2.16.2 guile-gnome-platform-2.16.2/libglade/doc/overview.texi0000644000175000017500000000241311670374303023241 0ustar00wingowingo00000000000000@node Overview @chapter Overview @code{(gnome glade)} wraps the libglade interface XML interface definition library for Guile. It is a part of Guile-GNOME. Glade files are XML descriptions of a GTK+ widget hierarchy. They are usually created with the Glade user interface editor. A simple example might look like this: @lisp (define xml-buf " window1 Hello world! ") (define glade-xml (glade-xml-new-from-buffer xml-buf)) (define main-window (get-widget glade-xml "window1")) (show-all main-window) (g-main-loop-run (g-main-loop-new)) @end lisp Of course, in practice you are more likely to load the XML from a file; in that case you would use @code{glade-xml-new}. Also interesting are the @code{signal-connect} and @code{signal-autoconnect} implementations; read on for more details. See the documentation for @code{(gnome gobject)} for more information on Guile-GNOME. guile-gnome-platform-2.16.2/libglade/tests/0000755000175000017500000000000011752546505021103 5ustar00wingowingo00000000000000guile-gnome-platform-2.16.2/libglade/tests/wrapset.scm0000644000175000017500000000311411670374303023265 0ustar00wingowingo00000000000000;;; ---------------------------------------------------------------------- ;;; unit test ;;; Copyright (C) 2007 Andy Wingo ;;; ;;; This program is free software; you can redistribute it and/or modify ;;; it under the terms of the GNU General Public License as published by ;;; the Free Software Foundation; either version 2 of the License, or ;;; (at your option) any later version. ;;; ;;; This program is distributed in the hope that it will be useful, ;;; but WITHOUT ANY WARRANTY; without even the implied warranty of ;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the ;;; GNU General Public License for more details. ;;; ;;; You should have received a copy of the GNU General Public License ;;; along with this program; if not, write to the Free Software ;;; Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA ;;; ---------------------------------------------------------------------- (use-modules (unit-test) (apicheck) (ice-9 pretty-print) (oop goops)) (define-class ()) (define *modules* (call-with-input-string (getenv "WRAPSET_MODULES") read)) (define *api-file* (getenv "WRAPSET_API_FILE")) (define-method (test-wrapset-api (self )) (apicheck-validate (call-with-input-file *api-file* read) *modules*)) (define (main args) (exit-with-summary (run-all-defined-test-cases))) (define (update-api args) (with-output-to-file *api-file* (lambda () (pretty-print (apicheck-generate *modules*))))) guile-gnome-platform-2.16.2/libglade/tests/Makefile.am0000644000175000017500000000012011670374303023122 0ustar00wingowingo00000000000000include ../../tests.mk wrapset_stem = libglade top_module_name = (gnome glade) guile-gnome-platform-2.16.2/libglade/tests/Makefile.in0000644000175000017500000004015611752511070023143 0ustar00wingowingo00000000000000# Makefile.in generated by automake 1.11.5 from Makefile.am. # @configure_input@ # Copyright (C) 1994, 1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, # 2003, 2004, 2005, 2006, 2007, 2008, 2009, 2010, 2011 Free Software # Foundation, Inc. # This Makefile.in is free software; the Free Software Foundation # gives unlimited permission to copy and/or distribute it, # with or without modifications, as long as this notice is preserved. # This program is distributed in the hope that it will be useful, # but WITHOUT ANY WARRANTY, to the extent permitted by law; without # even the implied warranty of MERCHANTABILITY or FITNESS FOR A # PARTICULAR PURPOSE. @SET_MAKE@ # guile-gnome # Copyright (C) 2007, 2011 Free Software Foundation, Inc. # This program is free software; you can redistribute it and/or # modify it under the terms of the GNU General Public License as # published by the Free Software Foundation; either version 2 of # the License, or (at your option) any later version. # This program is distributed in the hope that it will be useful, # but WITHOUT ANY WARRANTY; without even the implied warranty of # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the # GNU General Public License for more details. # You should have received a copy of the GNU General Public License # along with this program; if not, contact: # Free Software Foundation Voice: +1-617-542-5942 # 59 Temple Place - Suite 330 Fax: +1-617-542-2652 # Boston, MA 02111-1307, USA gnu@gnu.org VPATH = @srcdir@ am__make_dryrun = \ { \ am__dry=no; \ case $$MAKEFLAGS in \ *\\[\ \ ]*) \ echo 'am--echo: ; @echo "AM" OK' | $(MAKE) -f - 2>/dev/null \ | grep '^AM OK$$' >/dev/null || am__dry=yes;; \ *) \ for am__flg in $$MAKEFLAGS; do \ case $$am__flg in \ *=*|--*) ;; \ *n*) am__dry=yes; break;; \ esac; \ done;; \ esac; \ test $$am__dry = yes; \ } pkgdatadir = $(datadir)/@PACKAGE@ pkgincludedir = $(includedir)/@PACKAGE@ pkglibdir = $(libdir)/@PACKAGE@ pkglibexecdir = $(libexecdir)/@PACKAGE@ am__cd = CDPATH="$${ZSH_VERSION+.}$(PATH_SEPARATOR)" && cd install_sh_DATA = $(install_sh) -c -m 644 install_sh_PROGRAM = $(install_sh) -c install_sh_SCRIPT = $(install_sh) -c INSTALL_HEADER = $(INSTALL_DATA) transform = $(program_transform_name) NORMAL_INSTALL = : PRE_INSTALL = : POST_INSTALL = : NORMAL_UNINSTALL = : PRE_UNINSTALL = : POST_UNINSTALL = : build_triplet = @build@ host_triplet = @host@ DIST_COMMON = $(srcdir)/../../tests.mk $(srcdir)/Makefile.am \ $(srcdir)/Makefile.in subdir = libglade/tests ACLOCAL_M4 = $(top_srcdir)/aclocal.m4 am__aclocal_m4_deps = $(top_srcdir)/configure.ac am__configure_deps = $(am__aclocal_m4_deps) $(CONFIGURE_DEPENDENCIES) \ $(ACLOCAL_M4) mkinstalldirs = $(install_sh) -d CONFIG_HEADER = $(top_builddir)/config.h CONFIG_CLEAN_FILES = CONFIG_CLEAN_VPATH_FILES = SOURCES = DIST_SOURCES = am__can_run_installinfo = \ case $$AM_UPDATE_INFO_DIR in \ n|no|NO) false;; \ *) (install-info --version) >/dev/null 2>&1;; \ esac am__tty_colors = \ red=; grn=; lgn=; blu=; std= DISTFILES = $(DIST_COMMON) $(DIST_SOURCES) $(TEXINFOS) $(EXTRA_DIST) ACLOCAL = @ACLOCAL@ AG_PKG_CONFIG_PATH = @AG_PKG_CONFIG_PATH@ AMTAR = @AMTAR@ API_VERSION = @API_VERSION@ AR = @AR@ ATK_CFLAGS = @ATK_CFLAGS@ ATK_LIBS = @ATK_LIBS@ AUTOCONF = @AUTOCONF@ AUTOHEADER = @AUTOHEADER@ AUTOMAKE = @AUTOMAKE@ AWK = @AWK@ BONOBO_IDL_DIR = @BONOBO_IDL_DIR@ CANVAS_CFLAGS = @CANVAS_CFLAGS@ CANVAS_LIBS = @CANVAS_LIBS@ CC = @CC@ CCDEPMODE = @CCDEPMODE@ CFLAGS = @CFLAGS@ CORBA_CFLAGS = @CORBA_CFLAGS@ CORBA_LIBS = @CORBA_LIBS@ CPP = @CPP@ CPPFLAGS = @CPPFLAGS@ CYGPATH_W = @CYGPATH_W@ DEFS = @DEFS@ DEPDIR = @DEPDIR@ DLLTOOL = @DLLTOOL@ DSYMUTIL = @DSYMUTIL@ DUMPBIN = @DUMPBIN@ ECHO_C = @ECHO_C@ ECHO_N = @ECHO_N@ ECHO_T = @ECHO_T@ EGREP = @EGREP@ EXEEXT = @EXEEXT@ FGREP = @FGREP@ GCONF_CFLAGS = @GCONF_CFLAGS@ GCONF_LIBS = @GCONF_LIBS@ GDK_CFLAGS = @GDK_CFLAGS@ GDK_LIBS = @GDK_LIBS@ GDK_PIXBUF_CFLAGS = @GDK_PIXBUF_CFLAGS@ GDK_PIXBUF_LIBS = @GDK_PIXBUF_LIBS@ GLIB_CFLAGS = @GLIB_CFLAGS@ GLIB_LIBS = @GLIB_LIBS@ GNOMEUI_DEPRECATION_FLAGS = @GNOMEUI_DEPRECATION_FLAGS@ GNOME_VFS_CFLAGS = @GNOME_VFS_CFLAGS@ GNOME_VFS_DEPRECATED_CFLAGS = @GNOME_VFS_DEPRECATED_CFLAGS@ GNOME_VFS_LIBS = @GNOME_VFS_LIBS@ GOBJECT_CFLAGS = @GOBJECT_CFLAGS@ GOBJECT_LIBS = @GOBJECT_LIBS@ GREP = @GREP@ GTHREAD_CFLAGS = @GTHREAD_CFLAGS@ GTHREAD_LIBS = @GTHREAD_LIBS@ GTK_CFLAGS = @GTK_CFLAGS@ GTK_DEPRECATED_CFLAGS = @GTK_DEPRECATED_CFLAGS@ GTK_LIBS = @GTK_LIBS@ GUILE_CAIRO_CFLAGS = @GUILE_CAIRO_CFLAGS@ GUILE_CAIRO_LIBS = @GUILE_CAIRO_LIBS@ GUILE_CFLAGS = @GUILE_CFLAGS@ GUILE_EFFECTIVE_VERSION = @GUILE_EFFECTIVE_VERSION@ GUILE_GLIB_CFLAGS = @GUILE_GLIB_CFLAGS@ GUILE_GLIB_LIBS = @GUILE_GLIB_LIBS@ GUILE_LIBS = @GUILE_LIBS@ G_WRAP_CFLAGS = @G_WRAP_CFLAGS@ G_WRAP_LIBS = @G_WRAP_LIBS@ G_WRAP_LIB_DIR = @G_WRAP_LIB_DIR@ G_WRAP_MODULE_DIR = @G_WRAP_MODULE_DIR@ INSTALL = @INSTALL@ INSTALL_DATA = @INSTALL_DATA@ INSTALL_PROGRAM = @INSTALL_PROGRAM@ INSTALL_SCRIPT = @INSTALL_SCRIPT@ INSTALL_STRIP_PROGRAM = @INSTALL_STRIP_PROGRAM@ LD = @LD@ LDFLAGS = @LDFLAGS@ LIBGLADE_CFLAGS = @LIBGLADE_CFLAGS@ LIBGLADE_LIBS = @LIBGLADE_LIBS@ LIBGNOMEUI_CFLAGS = @LIBGNOMEUI_CFLAGS@ LIBGNOMEUI_LIBS = @LIBGNOMEUI_LIBS@ LIBGNOME_CFLAGS = @LIBGNOME_CFLAGS@ LIBGNOME_LIBS = @LIBGNOME_LIBS@ LIBOBJS = @LIBOBJS@ LIBS = @LIBS@ LIBTOOL = @LIBTOOL@ LIPO = @LIPO@ LN_S = @LN_S@ LTLIBOBJS = @LTLIBOBJS@ MAKEINFO = @MAKEINFO@ MANIFEST_TOOL = @MANIFEST_TOOL@ MKDIR_P = @MKDIR_P@ NM = @NM@ NMEDIT = @NMEDIT@ OBJDUMP = @OBJDUMP@ OBJEXT = @OBJEXT@ ORBIT_IDL = @ORBIT_IDL@ OTOOL = @OTOOL@ OTOOL64 = @OTOOL64@ PACKAGE = @PACKAGE@ PACKAGE_BUGREPORT = @PACKAGE_BUGREPORT@ PACKAGE_NAME = @PACKAGE_NAME@ PACKAGE_STRING = @PACKAGE_STRING@ PACKAGE_TARNAME = @PACKAGE_TARNAME@ PACKAGE_URL = @PACKAGE_URL@ PACKAGE_VERSION = @PACKAGE_VERSION@ PANGOCAIRO_CFLAGS = @PANGOCAIRO_CFLAGS@ PANGOCAIRO_LIBS = @PANGOCAIRO_LIBS@ PANGO_CFLAGS = @PANGO_CFLAGS@ PANGO_LIBS = @PANGO_LIBS@ PATH_SEPARATOR = @PATH_SEPARATOR@ PKG_CONFIG = @PKG_CONFIG@ PKG_CONFIG_LIBDIR = @PKG_CONFIG_LIBDIR@ PKG_CONFIG_PATH = @PKG_CONFIG_PATH@ RANLIB = @RANLIB@ SED = @SED@ SET_MAKE = @SET_MAKE@ SHELL = @SHELL@ STRIP = @STRIP@ VERSION = @VERSION@ WARN_CFLAGS = @WARN_CFLAGS@ abs_builddir = @abs_builddir@ abs_srcdir = @abs_srcdir@ abs_top_builddir = @abs_top_builddir@ abs_top_srcdir = @abs_top_srcdir@ ac_ct_AR = @ac_ct_AR@ ac_ct_CC = @ac_ct_CC@ ac_ct_DUMPBIN = @ac_ct_DUMPBIN@ am__include = @am__include@ am__leading_dot = @am__leading_dot@ am__quote = @am__quote@ am__tar = @am__tar@ am__untar = @am__untar@ bindir = @bindir@ build = @build@ build_alias = @build_alias@ build_cpu = @build_cpu@ build_os = @build_os@ build_vendor = @build_vendor@ builddir = @builddir@ datadir = @datadir@ datarootdir = @datarootdir@ docdir = @docdir@ dvidir = @dvidir@ exec_prefix = @exec_prefix@ host = @host@ host_alias = @host_alias@ host_cpu = @host_cpu@ host_os = @host_os@ host_vendor = @host_vendor@ htmldir = @htmldir@ includedir = @includedir@ infodir = @infodir@ install_sh = @install_sh@ libdir = @libdir@ libexecdir = @libexecdir@ localedir = @localedir@ localstatedir = @localstatedir@ mandir = @mandir@ mkdir_p = @mkdir_p@ oldincludedir = @oldincludedir@ pdfdir = @pdfdir@ prefix = @prefix@ program_transform_name = @program_transform_name@ psdir = @psdir@ sbindir = @sbindir@ sharedstatedir = @sharedstatedir@ srcdir = @srcdir@ sysconfdir = @sysconfdir@ target_alias = @target_alias@ top_build_prefix = @top_build_prefix@ top_builddir = @top_builddir@ top_srcdir = @top_srcdir@ # # Makefile snippet # EXTRA_DIST = wrapset.api wrapset.scm wrapset_stem = libglade top_module_name = (gnome glade) gw_module_name = (gnome gw $(wrapset_stem)) extra_module_names = wrapset_modules = ($(top_module_name) $(gw_module_name) $(extra_module_names)) WRAPSET_TESTS_ENV = WRAPSET_MODULES="$(wrapset_modules)" WRAPSET_API_FILE=$(srcdir)/wrapset.api DEV_ENV = $(top_builddir)/dev-environ GUILE = guile TESTS_ENVIRONMENT = $(WRAPSET_TESTS_ENV) $(DEV_ENV) $(GUILE) $(GUILE_FLAGS) -e main -s TESTS = wrapset.scm all: all-am .SUFFIXES: $(srcdir)/Makefile.in: $(srcdir)/Makefile.am $(srcdir)/../../tests.mk $(am__configure_deps) @for dep in $?; do \ case '$(am__configure_deps)' in \ *$$dep*) \ ( cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh ) \ && { if test -f $@; then exit 0; else break; fi; }; \ exit 1;; \ esac; \ done; \ echo ' cd $(top_srcdir) && $(AUTOMAKE) --gnu libglade/tests/Makefile'; \ $(am__cd) $(top_srcdir) && \ $(AUTOMAKE) --gnu libglade/tests/Makefile .PRECIOUS: Makefile Makefile: $(srcdir)/Makefile.in $(top_builddir)/config.status @case '$?' in \ *config.status*) \ cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh;; \ *) \ echo ' cd $(top_builddir) && $(SHELL) ./config.status $(subdir)/$@ $(am__depfiles_maybe)'; \ cd $(top_builddir) && $(SHELL) ./config.status $(subdir)/$@ $(am__depfiles_maybe);; \ esac; $(srcdir)/../../tests.mk: $(top_builddir)/config.status: $(top_srcdir)/configure $(CONFIG_STATUS_DEPENDENCIES) cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh $(top_srcdir)/configure: $(am__configure_deps) cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh $(ACLOCAL_M4): $(am__aclocal_m4_deps) cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh $(am__aclocal_m4_deps): mostlyclean-libtool: -rm -f *.lo clean-libtool: -rm -rf .libs _libs tags: TAGS TAGS: ctags: CTAGS CTAGS: check-TESTS: $(TESTS) @failed=0; all=0; xfail=0; xpass=0; skip=0; \ srcdir=$(srcdir); export srcdir; \ list=' $(TESTS) '; \ $(am__tty_colors); \ if test -n "$$list"; then \ for tst in $$list; do \ if test -f ./$$tst; then dir=./; \ elif test -f $$tst; then dir=; \ else dir="$(srcdir)/"; fi; \ if $(TESTS_ENVIRONMENT) $${dir}$$tst; then \ all=`expr $$all + 1`; \ case " $(XFAIL_TESTS) " in \ *[\ \ ]$$tst[\ \ ]*) \ xpass=`expr $$xpass + 1`; \ failed=`expr $$failed + 1`; \ col=$$red; res=XPASS; \ ;; \ *) \ col=$$grn; res=PASS; \ ;; \ esac; \ elif test $$? -ne 77; then \ all=`expr $$all + 1`; \ case " $(XFAIL_TESTS) " in \ *[\ \ ]$$tst[\ \ ]*) \ xfail=`expr $$xfail + 1`; \ col=$$lgn; res=XFAIL; \ ;; \ *) \ failed=`expr $$failed + 1`; \ col=$$red; res=FAIL; \ ;; \ esac; \ else \ skip=`expr $$skip + 1`; \ col=$$blu; res=SKIP; \ fi; \ echo "$${col}$$res$${std}: $$tst"; \ done; \ if test "$$all" -eq 1; then \ tests="test"; \ All=""; \ else \ tests="tests"; \ All="All "; \ fi; \ if test "$$failed" -eq 0; then \ if test "$$xfail" -eq 0; then \ banner="$$All$$all $$tests passed"; \ else \ if test "$$xfail" -eq 1; then failures=failure; else failures=failures; fi; \ banner="$$All$$all $$tests behaved as expected ($$xfail expected $$failures)"; \ fi; \ else \ if test "$$xpass" -eq 0; then \ banner="$$failed of $$all $$tests failed"; \ else \ if test "$$xpass" -eq 1; then passes=pass; else passes=passes; fi; \ banner="$$failed of $$all $$tests did not behave as expected ($$xpass unexpected $$passes)"; \ fi; \ fi; \ dashes="$$banner"; \ skipped=""; \ if test "$$skip" -ne 0; then \ if test "$$skip" -eq 1; then \ skipped="($$skip test was not run)"; \ else \ skipped="($$skip tests were not run)"; \ fi; \ test `echo "$$skipped" | wc -c` -le `echo "$$banner" | wc -c` || \ dashes="$$skipped"; \ fi; \ report=""; \ if test "$$failed" -ne 0 && test -n "$(PACKAGE_BUGREPORT)"; then \ report="Please report to $(PACKAGE_BUGREPORT)"; \ test `echo "$$report" | wc -c` -le `echo "$$banner" | wc -c` || \ dashes="$$report"; \ fi; \ dashes=`echo "$$dashes" | sed s/./=/g`; \ if test "$$failed" -eq 0; then \ col="$$grn"; \ else \ col="$$red"; \ fi; \ echo "$${col}$$dashes$${std}"; \ echo "$${col}$$banner$${std}"; \ test -z "$$skipped" || echo "$${col}$$skipped$${std}"; \ test -z "$$report" || echo "$${col}$$report$${std}"; \ echo "$${col}$$dashes$${std}"; \ test "$$failed" -eq 0; \ else :; fi distdir: $(DISTFILES) @srcdirstrip=`echo "$(srcdir)" | sed 's/[].[^$$\\*]/\\\\&/g'`; \ topsrcdirstrip=`echo "$(top_srcdir)" | sed 's/[].[^$$\\*]/\\\\&/g'`; \ list='$(DISTFILES)'; \ dist_files=`for file in $$list; do echo $$file; done | \ sed -e "s|^$$srcdirstrip/||;t" \ -e "s|^$$topsrcdirstrip/|$(top_builddir)/|;t"`; \ case $$dist_files in \ */*) $(MKDIR_P) `echo "$$dist_files" | \ sed '/\//!d;s|^|$(distdir)/|;s,/[^/]*$$,,' | \ sort -u` ;; \ esac; \ for file in $$dist_files; do \ if test -f $$file || test -d $$file; then d=.; else d=$(srcdir); fi; \ if test -d $$d/$$file; then \ dir=`echo "/$$file" | sed -e 's,/[^/]*$$,,'`; \ if test -d "$(distdir)/$$file"; then \ find "$(distdir)/$$file" -type d ! -perm -700 -exec chmod u+rwx {} \;; \ fi; \ if test -d $(srcdir)/$$file && test $$d != $(srcdir); then \ cp -fpR $(srcdir)/$$file "$(distdir)$$dir" || exit 1; \ find "$(distdir)/$$file" -type d ! -perm -700 -exec chmod u+rwx {} \;; \ fi; \ cp -fpR $$d/$$file "$(distdir)$$dir" || exit 1; \ else \ test -f "$(distdir)/$$file" \ || cp -p $$d/$$file "$(distdir)/$$file" \ || exit 1; \ fi; \ done check-am: all-am $(MAKE) $(AM_MAKEFLAGS) check-TESTS check: check-am all-am: Makefile installdirs: install: install-am install-exec: install-exec-am install-data: install-data-am uninstall: uninstall-am install-am: all-am @$(MAKE) $(AM_MAKEFLAGS) install-exec-am install-data-am installcheck: installcheck-am install-strip: if test -z '$(STRIP)'; then \ $(MAKE) $(AM_MAKEFLAGS) INSTALL_PROGRAM="$(INSTALL_STRIP_PROGRAM)" \ install_sh_PROGRAM="$(INSTALL_STRIP_PROGRAM)" INSTALL_STRIP_FLAG=-s \ install; \ else \ $(MAKE) $(AM_MAKEFLAGS) INSTALL_PROGRAM="$(INSTALL_STRIP_PROGRAM)" \ install_sh_PROGRAM="$(INSTALL_STRIP_PROGRAM)" INSTALL_STRIP_FLAG=-s \ "INSTALL_PROGRAM_ENV=STRIPPROG='$(STRIP)'" install; \ fi mostlyclean-generic: clean-generic: distclean-generic: -test -z "$(CONFIG_CLEAN_FILES)" || rm -f $(CONFIG_CLEAN_FILES) -test . = "$(srcdir)" || test -z "$(CONFIG_CLEAN_VPATH_FILES)" || rm -f $(CONFIG_CLEAN_VPATH_FILES) maintainer-clean-generic: @echo "This command is intended for maintainers to use" @echo "it deletes files that may require special tools to rebuild." clean: clean-am clean-am: clean-generic clean-libtool mostlyclean-am distclean: distclean-am -rm -f Makefile distclean-am: clean-am distclean-generic dvi: dvi-am dvi-am: html: html-am html-am: info: info-am info-am: install-data-am: install-dvi: install-dvi-am install-dvi-am: install-exec-am: install-html: install-html-am install-html-am: install-info: install-info-am install-info-am: install-man: install-pdf: install-pdf-am install-pdf-am: install-ps: install-ps-am install-ps-am: installcheck-am: maintainer-clean: maintainer-clean-am -rm -f Makefile maintainer-clean-am: distclean-am maintainer-clean-generic mostlyclean: mostlyclean-am mostlyclean-am: mostlyclean-generic mostlyclean-libtool pdf: pdf-am pdf-am: ps: ps-am ps-am: uninstall-am: .MAKE: check-am install-am install-strip .PHONY: all all-am check check-TESTS check-am clean clean-generic \ clean-libtool distclean distclean-generic distclean-libtool \ distdir dvi dvi-am html html-am info info-am install \ install-am install-data install-data-am install-dvi \ install-dvi-am install-exec install-exec-am install-html \ install-html-am install-info install-info-am install-man \ install-pdf install-pdf-am install-ps install-ps-am \ install-strip installcheck installcheck-am installdirs \ maintainer-clean maintainer-clean-generic mostlyclean \ mostlyclean-generic mostlyclean-libtool pdf pdf-am ps ps-am \ uninstall uninstall-am wrapset.api.update: $(WRAPSET_TESTS_ENV) $(DEV_ENV) $(GUILE) -e update-api -s $(srcdir)/wrapset.scm %.check: % $(TESTS_ENVIRONMENT) $(srcdir)/$* # Tell versions [3.59,3.63) of GNU make to not export all variables. # Otherwise a system limit (for SysV at least) may be exceeded. .NOEXPORT: guile-gnome-platform-2.16.2/libglade/tests/wrapset.api0000644000175000017500000000400611671225671023261 0ustar00wingowingo00000000000000(module-api (version 1 0) ((gnome glade) (uses-interfaces (gnome gw libglade)) (typed-exports)) ((gnome gobject generics) (uses-interfaces) (typed-exports (block generic ( )) (connect generic ( )) (connect-after generic ( )) (connected? generic ( )) (create-signal generic ( )) (disconnect generic ( )) (emit generic ( . )) (find-property generic ( )) (get generic ( )) (get-properties generic ()) (get-property-names generic ()) (get-signals generic ()) (invoke generic ( . )) (set generic ( ) ( ) ( ) ( . ) ( . ) ( ) ( . )) (unblock generic ( )))) ((gnome gw generics) (uses-interfaces (gnome gobject generics)) (typed-exports)) ((gnome gw libglade) (uses-interfaces (gnome gw generics)) (typed-exports (glade-get-widget-name procedure (arity 0 0 #t)) (glade-get-widget-tree procedure (arity 0 0 #t)) (glade-xml-get-widget procedure (arity 0 0 #t)) (glade-xml-get-widget-prefix procedure (arity 2 0 #f)) (glade-xml-new procedure (arity 1 2 #f)) (glade-xml-new-from-buffer procedure (arity 1 2 #f)) (glade-xml-relative-file procedure (arity 0 0 #t)) (glade-xml-signal-autoconnect procedure (arity 0 0 #t)) (glade-xml-signal-connect procedure (arity 0 0 #t))))) guile-gnome-platform-2.16.2/libglade/gnome/0000755000175000017500000000000011752546505021046 5ustar00wingowingo00000000000000guile-gnome-platform-2.16.2/libglade/gnome/gw/0000755000175000017500000000000011752546505021463 5ustar00wingowingo00000000000000guile-gnome-platform-2.16.2/libglade/gnome/gw/glade-support.h0000644000175000017500000000330711670374303024417 0ustar00wingowingo00000000000000/* guile-gnome * Copyright (C) 2003 Andy Wingo * * glade-support.h: * * This program is free software; you can redistribute it and/or * modify it under the terms of the GNU General Public License as * published by the Free Software Foundation; either version 2 of * the License, or (at your option) any later version. * * This program is distributed in the hope that it will be useful, * but WITHOUT ANY WARRANTY; without even the implied warranty of * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the * GNU General Public License for more details. * * You should have received a copy of the GNU General Public License * along with this program; if not, contact: * * Free Software Foundation Voice: +1-617-542-5942 * 59 Temple Place - Suite 330 Fax: +1-617-542-2652 * Boston, MA 02111-1307, USA gnu@gnu.org */ #include #include #include "guile-gnome-gobject.h" extern SCM scm_glade_module; GladeXML* _wrap_glade_xml_new_from_buffer (const char *buffer, const char *root, const char *domain); void _wrap_glade_xml_signal_connect (GladeXML *xml, const char *handlername, SCM proc); void _wrap_glade_xml_signal_autoconnect (GladeXML *xml, SCM module); GtkWidget* guile_glade_custom_handler (GladeXML *xml, gchar *func, gchar *name, gchar *string1, gchar *string2, gint int1, gint int2, gpointer user_data); guile-gnome-platform-2.16.2/libglade/gnome/gw/glade-support.c0000644000175000017500000001146411670374303024415 0ustar00wingowingo00000000000000/* guile-gnome * Copyright (C) 2003,2004,2010 Andy Wingo * * glade-support.c: Support routines for the libglade wrapper * * This program is free software; you can redistribute it and/or * modify it under the terms of the GNU General Public License as * published by the Free Software Foundation; either version 2 of * the License, or (at your option) any later version. * * This program is distributed in the hope that it will be useful, * but WITHOUT ANY WARRANTY; without even the implied warranty of * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the * GNU General Public License for more details. * * You should have received a copy of the GNU General Public License * along with this program; if not, contact: * * Free Software Foundation Voice: +1-617-542-5942 * 59 Temple Place - Suite 330 Fax: +1-617-542-2652 * Boston, MA 02111-1307, USA gnu@gnu.org */ #include "glade-support.h" #include #include "guile-gnome-gobject.h" #define GRUNTIME_ERROR(format, func_name, args...) \ scm_error_scm (scm_from_locale_symbol ("gruntime-error"), scm_from_locale_string (func_name), \ scm_simple_format (SCM_BOOL_F, scm_from_locale_string (format), \ scm_list_n (args, SCM_UNDEFINED)), \ SCM_EOL, SCM_EOL) GladeXML* _wrap_glade_xml_new_from_buffer (const char *buffer, const char *root, const char *domain) { return glade_xml_new_from_buffer (buffer, strlen (buffer), root, domain); } static void connect_one (const gchar *handler_name, GObject *object, const gchar *signal_name, const gchar *signal_data, GObject *connect_object, gboolean after, gpointer user_data) { static SCM gtype_instance_signal_connect = SCM_BOOL_F; SCM proc; if (SCM_FALSEP (gtype_instance_signal_connect)) gtype_instance_signal_connect = SCM_VARIABLE_REF (scm_c_module_lookup (scm_glade_module, "gtype-instance-signal-connect")); proc = GPOINTER_TO_SCM (user_data); scm_call_4 (gtype_instance_signal_connect, scm_c_gtype_instance_to_scm (object), scm_from_locale_symbol (signal_name), proc, after ? SCM_BOOL_T : SCM_BOOL_F); } void _wrap_glade_xml_signal_connect (GladeXML *xml, const char *handlername, SCM proc) #define FUNC_NAME "glade-xml-signal-connect" { SCM_VALIDATE_PROC (3, proc); glade_xml_signal_connect_full (xml, handlername, connect_one, SCM_TO_GPOINTER (proc)); } #undef FUNC_NAME SCM handle_read_error (char *handler_name, SCM tag, SCM throw_args) { GRUNTIME_ERROR ("Error while reading signal handler ~S: ~A: ~S", "glade-xml-signal-autoconnect", scm_from_locale_string (handler_name), tag, throw_args); } static void connect_many (const gchar *handler_name, GObject *object, const gchar *signal_name, const gchar *signal_data, GObject *connect_object, gboolean after, gpointer user_data) { SCM module = GPOINTER_TO_SCM (user_data); SCM proc = SCM_BOOL_F; proc = scm_eval (scm_internal_catch (SCM_BOOL_T, (scm_t_catch_body)scm_c_read_string, (void*)handler_name, (scm_t_catch_handler)handle_read_error, (void*)handler_name), module); if (SCM_FALSEP (scm_procedure_p (proc))) GRUNTIME_ERROR ("Tried to set `~A' to handle signal `~A', but it's not a procedure", "glade-xml-signal-autoconnect", scm_from_locale_string (handler_name), scm_from_locale_string (signal_name)); connect_one (NULL, object, signal_name, NULL, NULL, after, SCM_TO_GPOINTER (proc)); } void _wrap_glade_xml_signal_autoconnect (GladeXML *xml, SCM module) { glade_xml_signal_autoconnect_full (xml, connect_many, SCM_TO_GPOINTER (module)); } GtkWidget* guile_glade_custom_handler (GladeXML *xml, gchar *func, gchar *name, gchar *string1, gchar *string2, gint int1, gint int2, gpointer user_data) #define FUNC_NAME "%guile-glade-custom-handler" { SCM ret; GtkWidget *widget; ret = scm_c_eval_string (func); SCM_VALIDATE_GOBJECT (0, ret); widget = (GtkWidget*)scm_c_scm_to_gtype_instance_typed (ret, GTK_TYPE_WIDGET); gtk_widget_show (widget); return widget; } #undef FUNC_NAME guile-gnome-platform-2.16.2/libglade/gnome/gw/Makefile.am0000644000175000017500000000171711670374303023517 0ustar00wingowingo00000000000000include $(top_srcdir)/common.mk guilegwmodule_DATA = libglade-spec.scm libglade.scm EXTRA_DIST = libglade-spec.scm # There is one shared library for each wrapset. Each is produced by # g-wrap, but also may contain some hand-coded routines. guilegnomelib_LTLIBRARIES = libgw-guile-gnome-libglade.la ######################################################################## ## glade nodist_libgw_guile_gnome_libglade_la_SOURCES = guile-gnome-gw-libglade.c libgw_guile_gnome_libglade_la_SOURCES = glade-support.c glade-support.h libgw_guile_gnome_libglade_la_CFLAGS = $(GUILE_GLIB_CFLAGS) \ $(AM_CFLAGS) $(LIBGLADE_CFLAGS) $(GUILE_CFLAGS) \ $(G_WRAP_CFLAGS) libgw_guile_gnome_libglade_la_LIBADD = $(LIBGLADE_LIBS) $(GUILE_LIBS) \ $(G_WRAP_LIBS) $(GUILE_GLIB_LIBS) libgw_guile_gnome_libglade_la_LDFLAGS = -module CLEANFILES = $(wildcard gnome-*.log) \ $(wildcard guile-gnome-gw-libglade.*) libglade.scm BUILT_SOURCES = guile-gnome-gw-libglade.c $(DOT_X_FILES) guile-gnome-platform-2.16.2/libglade/gnome/gw/libglade-spec.scm0000644000175000017500000000411611670374303024656 0ustar00wingowingo00000000000000;; guile-gnome ;; Copyright (C) 2003,2004 Andy Wingo ;; This program is free software; you can redistribute it and/or ;; modify it under the terms of the GNU General Public License as ;; published by the Free Software Foundation; either version 2 of ;; the License, or (at your option) any later version. ;; ;; This program is distributed in the hope that it will be useful, ;; but WITHOUT ANY WARRANTY; without even the implied warranty of ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the ;; GNU General Public License for more details. ;; ;; You should have received a copy of the GNU General Public License ;; along with this program; if not, contact: ;; ;; Free Software Foundation Voice: +1-617-542-5942 ;; 59 Temple Place - Suite 330 Fax: +1-617-542-2652 ;; Boston, MA 02111-1307, USA gnu@gnu.org ;;; Commentary: ;; ;;g-wrap specification for libglade. ;; ;;; Code: (define-module (gnome gw libglade-spec) #:use-module (oop goops) #:use-module (gnome gw support g-wrap) #:use-module (gnome gw gtk-spec) #:use-module (gnome gw support defs) #:use-module (gnome gw support gobject)) (define-class () #:id 'gnome-libglade #:dependencies '(standard gnome-glib gnome-gobject gnome-gtk)) (define-method (initialize (ws ) initargs) (next-method ws (cons #:module (cons '(gnome gw libglade) initargs))) (load-defs-with-overrides ws "gnome/defs/libglade.defs")) (define-method (global-declarations-cg (self )) (list (next-method) "#include \n" "#include \"glade-support.h\"\n" "SCM scm_glade_module = SCM_BOOL_F;\n")) (define-method (initializations-cg (self ) err) (list (next-method) "scm_glade_module = scm_current_module ();\n" "glade_set_custom_handler (guile_glade_custom_handler, NULL);\n")) guile-gnome-platform-2.16.2/libglade/gnome/gw/Makefile.in0000644000175000017500000006626111752520713023534 0ustar00wingowingo00000000000000# Makefile.in generated by automake 1.11.5 from Makefile.am. # @configure_input@ # Copyright (C) 1994, 1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, # 2003, 2004, 2005, 2006, 2007, 2008, 2009, 2010, 2011 Free Software # Foundation, Inc. # This Makefile.in is free software; the Free Software Foundation # gives unlimited permission to copy and/or distribute it, # with or without modifications, as long as this notice is preserved. # This program is distributed in the hope that it will be useful, # but WITHOUT ANY WARRANTY, to the extent permitted by law; without # even the implied warranty of MERCHANTABILITY or FITNESS FOR A # PARTICULAR PURPOSE. @SET_MAKE@ # guile-gnome # Copyright (C) 2003,2004,2009,2012 Free Software Foundation, Inc. # This program is free software; you can redistribute it and/or # modify it under the terms of the GNU General Public License as # published by the Free Software Foundation; either version 2 of # the License, or (at your option) any later version. # This program is distributed in the hope that it will be useful, # but WITHOUT ANY WARRANTY; without even the implied warranty of # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the # GNU General Public License for more details. # You should have received a copy of the GNU General Public License # along with this program; if not, contact: # Free Software Foundation Voice: +1-617-542-5942 # 59 Temple Place - Suite 330 Fax: +1-617-542-2652 # Boston, MA 02111-1307, USA gnu@gnu.org # # Makefile snippet # VPATH = @srcdir@ am__make_dryrun = \ { \ am__dry=no; \ case $$MAKEFLAGS in \ *\\[\ \ ]*) \ echo 'am--echo: ; @echo "AM" OK' | $(MAKE) -f - 2>/dev/null \ | grep '^AM OK$$' >/dev/null || am__dry=yes;; \ *) \ for am__flg in $$MAKEFLAGS; do \ case $$am__flg in \ *=*|--*) ;; \ *n*) am__dry=yes; break;; \ esac; \ done;; \ esac; \ test $$am__dry = yes; \ } pkgdatadir = $(datadir)/@PACKAGE@ pkgincludedir = $(includedir)/@PACKAGE@ pkglibdir = $(libdir)/@PACKAGE@ pkglibexecdir = $(libexecdir)/@PACKAGE@ am__cd = CDPATH="$${ZSH_VERSION+.}$(PATH_SEPARATOR)" && cd install_sh_DATA = $(install_sh) -c -m 644 install_sh_PROGRAM = $(install_sh) -c install_sh_SCRIPT = $(install_sh) -c INSTALL_HEADER = $(INSTALL_DATA) transform = $(program_transform_name) NORMAL_INSTALL = : PRE_INSTALL = : POST_INSTALL = : NORMAL_UNINSTALL = : PRE_UNINSTALL = : POST_UNINSTALL = : build_triplet = @build@ host_triplet = @host@ DIST_COMMON = $(srcdir)/Makefile.am $(srcdir)/Makefile.in \ $(top_srcdir)/common.mk subdir = libglade/gnome/gw ACLOCAL_M4 = $(top_srcdir)/aclocal.m4 am__aclocal_m4_deps = $(top_srcdir)/configure.ac am__configure_deps = $(am__aclocal_m4_deps) $(CONFIGURE_DEPENDENCIES) \ $(ACLOCAL_M4) mkinstalldirs = $(install_sh) -d CONFIG_HEADER = $(top_builddir)/config.h CONFIG_CLEAN_FILES = CONFIG_CLEAN_VPATH_FILES = am__vpath_adj_setup = srcdirstrip=`echo "$(srcdir)" | sed 's|.|.|g'`; am__vpath_adj = case $$p in \ $(srcdir)/*) f=`echo "$$p" | sed "s|^$$srcdirstrip/||"`;; \ *) f=$$p;; \ esac; am__strip_dir = f=`echo $$p | sed -e 's|^.*/||'`; am__install_max = 40 am__nobase_strip_setup = \ srcdirstrip=`echo "$(srcdir)" | sed 's/[].[^$$\\*|]/\\\\&/g'` am__nobase_strip = \ for p in $$list; do echo "$$p"; done | sed -e "s|$$srcdirstrip/||" am__nobase_list = $(am__nobase_strip_setup); \ for p in $$list; do echo "$$p $$p"; done | \ sed "s| $$srcdirstrip/| |;"' / .*\//!s/ .*/ ./; s,\( .*\)/[^/]*$$,\1,' | \ $(AWK) 'BEGIN { files["."] = "" } { files[$$2] = files[$$2] " " $$1; \ if (++n[$$2] == $(am__install_max)) \ { print $$2, files[$$2]; n[$$2] = 0; files[$$2] = "" } } \ END { for (dir in files) print dir, files[dir] }' am__base_list = \ sed '$$!N;$$!N;$$!N;$$!N;$$!N;$$!N;$$!N;s/\n/ /g' | \ sed '$$!N;$$!N;$$!N;$$!N;s/\n/ /g' am__uninstall_files_from_dir = { \ test -z "$$files" \ || { test ! -d "$$dir" && test ! -f "$$dir" && test ! -r "$$dir"; } \ || { echo " ( cd '$$dir' && rm -f" $$files ")"; \ $(am__cd) "$$dir" && rm -f $$files; }; \ } am__installdirs = "$(DESTDIR)$(guilegnomelibdir)" \ "$(DESTDIR)$(guilegwmoduledir)" LTLIBRARIES = $(guilegnomelib_LTLIBRARIES) am__DEPENDENCIES_1 = libgw_guile_gnome_libglade_la_DEPENDENCIES = $(am__DEPENDENCIES_1) \ $(am__DEPENDENCIES_1) $(am__DEPENDENCIES_1) \ $(am__DEPENDENCIES_1) am_libgw_guile_gnome_libglade_la_OBJECTS = \ libgw_guile_gnome_libglade_la-glade-support.lo nodist_libgw_guile_gnome_libglade_la_OBJECTS = \ libgw_guile_gnome_libglade_la-guile-gnome-gw-libglade.lo libgw_guile_gnome_libglade_la_OBJECTS = \ $(am_libgw_guile_gnome_libglade_la_OBJECTS) \ $(nodist_libgw_guile_gnome_libglade_la_OBJECTS) libgw_guile_gnome_libglade_la_LINK = $(LIBTOOL) --tag=CC \ $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=link $(CCLD) \ $(libgw_guile_gnome_libglade_la_CFLAGS) $(CFLAGS) \ $(libgw_guile_gnome_libglade_la_LDFLAGS) $(LDFLAGS) -o $@ DEFAULT_INCLUDES = -I.@am__isrc@ -I$(top_builddir) depcomp = $(SHELL) $(top_srcdir)/build-aux/depcomp am__depfiles_maybe = depfiles am__mv = mv -f COMPILE = $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(AM_CPPFLAGS) \ $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) LTCOMPILE = $(LIBTOOL) --tag=CC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) \ --mode=compile $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) \ $(AM_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) CCLD = $(CC) LINK = $(LIBTOOL) --tag=CC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) \ --mode=link $(CCLD) $(AM_CFLAGS) $(CFLAGS) $(AM_LDFLAGS) \ $(LDFLAGS) -o $@ SOURCES = $(libgw_guile_gnome_libglade_la_SOURCES) \ $(nodist_libgw_guile_gnome_libglade_la_SOURCES) DIST_SOURCES = $(libgw_guile_gnome_libglade_la_SOURCES) am__can_run_installinfo = \ case $$AM_UPDATE_INFO_DIR in \ n|no|NO) false;; \ *) (install-info --version) >/dev/null 2>&1;; \ esac DATA = $(guilegwmodule_DATA) ETAGS = etags CTAGS = ctags DISTFILES = $(DIST_COMMON) $(DIST_SOURCES) $(TEXINFOS) $(EXTRA_DIST) ACLOCAL = @ACLOCAL@ AG_PKG_CONFIG_PATH = @AG_PKG_CONFIG_PATH@ AMTAR = @AMTAR@ API_VERSION = @API_VERSION@ AR = @AR@ ATK_CFLAGS = @ATK_CFLAGS@ ATK_LIBS = @ATK_LIBS@ AUTOCONF = @AUTOCONF@ AUTOHEADER = @AUTOHEADER@ AUTOMAKE = @AUTOMAKE@ AWK = @AWK@ BONOBO_IDL_DIR = @BONOBO_IDL_DIR@ CANVAS_CFLAGS = @CANVAS_CFLAGS@ CANVAS_LIBS = @CANVAS_LIBS@ CC = @CC@ CCDEPMODE = @CCDEPMODE@ CFLAGS = @CFLAGS@ CORBA_CFLAGS = @CORBA_CFLAGS@ CORBA_LIBS = @CORBA_LIBS@ CPP = @CPP@ CPPFLAGS = @CPPFLAGS@ CYGPATH_W = @CYGPATH_W@ DEFS = @DEFS@ DEPDIR = @DEPDIR@ DLLTOOL = @DLLTOOL@ DSYMUTIL = @DSYMUTIL@ DUMPBIN = @DUMPBIN@ ECHO_C = @ECHO_C@ ECHO_N = @ECHO_N@ ECHO_T = @ECHO_T@ EGREP = @EGREP@ EXEEXT = @EXEEXT@ FGREP = @FGREP@ GCONF_CFLAGS = @GCONF_CFLAGS@ GCONF_LIBS = @GCONF_LIBS@ GDK_CFLAGS = @GDK_CFLAGS@ GDK_LIBS = @GDK_LIBS@ GDK_PIXBUF_CFLAGS = @GDK_PIXBUF_CFLAGS@ GDK_PIXBUF_LIBS = @GDK_PIXBUF_LIBS@ GLIB_CFLAGS = @GLIB_CFLAGS@ GLIB_LIBS = @GLIB_LIBS@ GNOMEUI_DEPRECATION_FLAGS = @GNOMEUI_DEPRECATION_FLAGS@ GNOME_VFS_CFLAGS = @GNOME_VFS_CFLAGS@ GNOME_VFS_DEPRECATED_CFLAGS = @GNOME_VFS_DEPRECATED_CFLAGS@ GNOME_VFS_LIBS = @GNOME_VFS_LIBS@ GOBJECT_CFLAGS = @GOBJECT_CFLAGS@ GOBJECT_LIBS = @GOBJECT_LIBS@ GREP = @GREP@ GTHREAD_CFLAGS = @GTHREAD_CFLAGS@ GTHREAD_LIBS = @GTHREAD_LIBS@ GTK_CFLAGS = @GTK_CFLAGS@ GTK_DEPRECATED_CFLAGS = @GTK_DEPRECATED_CFLAGS@ GTK_LIBS = @GTK_LIBS@ GUILE_CAIRO_CFLAGS = @GUILE_CAIRO_CFLAGS@ GUILE_CAIRO_LIBS = @GUILE_CAIRO_LIBS@ GUILE_CFLAGS = @GUILE_CFLAGS@ GUILE_EFFECTIVE_VERSION = @GUILE_EFFECTIVE_VERSION@ GUILE_GLIB_CFLAGS = @GUILE_GLIB_CFLAGS@ GUILE_GLIB_LIBS = @GUILE_GLIB_LIBS@ GUILE_LIBS = @GUILE_LIBS@ G_WRAP_CFLAGS = @G_WRAP_CFLAGS@ G_WRAP_LIBS = @G_WRAP_LIBS@ G_WRAP_LIB_DIR = @G_WRAP_LIB_DIR@ G_WRAP_MODULE_DIR = @G_WRAP_MODULE_DIR@ INSTALL = @INSTALL@ INSTALL_DATA = @INSTALL_DATA@ INSTALL_PROGRAM = @INSTALL_PROGRAM@ INSTALL_SCRIPT = @INSTALL_SCRIPT@ INSTALL_STRIP_PROGRAM = @INSTALL_STRIP_PROGRAM@ LD = @LD@ LDFLAGS = @LDFLAGS@ LIBGLADE_CFLAGS = @LIBGLADE_CFLAGS@ LIBGLADE_LIBS = @LIBGLADE_LIBS@ LIBGNOMEUI_CFLAGS = @LIBGNOMEUI_CFLAGS@ LIBGNOMEUI_LIBS = @LIBGNOMEUI_LIBS@ LIBGNOME_CFLAGS = @LIBGNOME_CFLAGS@ LIBGNOME_LIBS = @LIBGNOME_LIBS@ LIBOBJS = @LIBOBJS@ LIBS = @LIBS@ LIBTOOL = @LIBTOOL@ LIPO = @LIPO@ LN_S = @LN_S@ LTLIBOBJS = @LTLIBOBJS@ MAKEINFO = @MAKEINFO@ MANIFEST_TOOL = @MANIFEST_TOOL@ MKDIR_P = @MKDIR_P@ NM = @NM@ NMEDIT = @NMEDIT@ OBJDUMP = @OBJDUMP@ OBJEXT = @OBJEXT@ ORBIT_IDL = @ORBIT_IDL@ OTOOL = @OTOOL@ OTOOL64 = @OTOOL64@ PACKAGE = @PACKAGE@ PACKAGE_BUGREPORT = @PACKAGE_BUGREPORT@ PACKAGE_NAME = @PACKAGE_NAME@ PACKAGE_STRING = @PACKAGE_STRING@ PACKAGE_TARNAME = @PACKAGE_TARNAME@ PACKAGE_URL = @PACKAGE_URL@ PACKAGE_VERSION = @PACKAGE_VERSION@ PANGOCAIRO_CFLAGS = @PANGOCAIRO_CFLAGS@ PANGOCAIRO_LIBS = @PANGOCAIRO_LIBS@ PANGO_CFLAGS = @PANGO_CFLAGS@ PANGO_LIBS = @PANGO_LIBS@ PATH_SEPARATOR = @PATH_SEPARATOR@ PKG_CONFIG = @PKG_CONFIG@ PKG_CONFIG_LIBDIR = @PKG_CONFIG_LIBDIR@ PKG_CONFIG_PATH = @PKG_CONFIG_PATH@ RANLIB = @RANLIB@ SED = @SED@ SET_MAKE = @SET_MAKE@ SHELL = @SHELL@ STRIP = @STRIP@ VERSION = @VERSION@ WARN_CFLAGS = @WARN_CFLAGS@ abs_builddir = @abs_builddir@ abs_srcdir = @abs_srcdir@ abs_top_builddir = @abs_top_builddir@ abs_top_srcdir = @abs_top_srcdir@ ac_ct_AR = @ac_ct_AR@ ac_ct_CC = @ac_ct_CC@ ac_ct_DUMPBIN = @ac_ct_DUMPBIN@ am__include = @am__include@ am__leading_dot = @am__leading_dot@ am__quote = @am__quote@ am__tar = @am__tar@ am__untar = @am__untar@ bindir = @bindir@ build = @build@ build_alias = @build_alias@ build_cpu = @build_cpu@ build_os = @build_os@ build_vendor = @build_vendor@ builddir = @builddir@ datadir = @datadir@ datarootdir = @datarootdir@ docdir = @docdir@ dvidir = @dvidir@ exec_prefix = @exec_prefix@ host = @host@ host_alias = @host_alias@ host_cpu = @host_cpu@ host_os = @host_os@ host_vendor = @host_vendor@ htmldir = @htmldir@ includedir = @includedir@ infodir = @infodir@ install_sh = @install_sh@ libdir = @libdir@ libexecdir = @libexecdir@ localedir = @localedir@ localstatedir = @localstatedir@ mandir = @mandir@ mkdir_p = @mkdir_p@ oldincludedir = @oldincludedir@ pdfdir = @pdfdir@ prefix = @prefix@ program_transform_name = @program_transform_name@ psdir = @psdir@ sbindir = @sbindir@ sharedstatedir = @sharedstatedir@ srcdir = @srcdir@ sysconfdir = @sysconfdir@ target_alias = @target_alias@ top_build_prefix = @top_build_prefix@ top_builddir = @top_builddir@ top_srcdir = @top_srcdir@ guilegnomedir = $(datadir)/guile-gnome-@API_VERSION@ guilemoduledir = $(guilegnomedir)/gnome guilegwmoduledir = $(guilegnomedir)/gnome/gw guilegnomelibdir = $(libdir)/guile-gnome-@API_VERSION@ AM_CFLAGS = -I. -I$(srcdir) $(WARN_CFLAGS) $(DEBUG_CFLAGS) # For overriding from the command line (e.g. --debug) GUILE_FLAGS = SUFFIXES = .x .doc GUILE_SNARF_CFLAGS = $(DEFS) $(AM_CFLAGS) $(GUILE_CFLAGS) $(G_WRAP_CFLAGS) PACKAGES = atk cairo corba defs gconf glib gnome-vfs gtk libglade libgnome libgnomecanvas libgnomeui pango SOURCE_GUILE_PATH = $(shell echo $(addprefix $(top_srcdir)/,$(PACKAGES)) | sed -e 's/ /:/g'):$(srcdir) BUILD_GUILE_PATH = $(if $(filter-out $(top_srcdir),$(top_builddir)),$(shell echo -n $(addprefix $(top_builddir)/,$(PACKAGES)): | sed -e 's/ /:/g'),) GUILE_LOAD_PATH := $(BUILD_GUILE_PATH)$(SOURCE_GUILE_PATH):${G_WRAP_MODULE_DIR}:${GUILE_LOAD_PATH} # Real gnu make foo packages = $(filter-out %-uninstalled,$(patsubst %.pc.in,%,$(notdir $(wildcard $(srcdir)/*.pc.in)))) pcifiles = $(patsubst %,%-@API_VERSION@.pc,$(packages)) pcufiles = $(patsubst %,%-@API_VERSION@-uninstalled.pc,$(packages)) guilegwmodule_DATA = libglade-spec.scm libglade.scm EXTRA_DIST = libglade-spec.scm # There is one shared library for each wrapset. Each is produced by # g-wrap, but also may contain some hand-coded routines. guilegnomelib_LTLIBRARIES = libgw-guile-gnome-libglade.la ######################################################################## nodist_libgw_guile_gnome_libglade_la_SOURCES = guile-gnome-gw-libglade.c libgw_guile_gnome_libglade_la_SOURCES = glade-support.c glade-support.h libgw_guile_gnome_libglade_la_CFLAGS = $(GUILE_GLIB_CFLAGS) \ $(AM_CFLAGS) $(LIBGLADE_CFLAGS) $(GUILE_CFLAGS) \ $(G_WRAP_CFLAGS) libgw_guile_gnome_libglade_la_LIBADD = $(LIBGLADE_LIBS) $(GUILE_LIBS) \ $(G_WRAP_LIBS) $(GUILE_GLIB_LIBS) libgw_guile_gnome_libglade_la_LDFLAGS = -module CLEANFILES = $(wildcard gnome-*.log) \ $(wildcard guile-gnome-gw-libglade.*) libglade.scm BUILT_SOURCES = guile-gnome-gw-libglade.c $(DOT_X_FILES) all: $(BUILT_SOURCES) $(MAKE) $(AM_MAKEFLAGS) all-am .SUFFIXES: .SUFFIXES: .x .doc .c .lo .o .obj $(srcdir)/Makefile.in: $(srcdir)/Makefile.am $(top_srcdir)/common.mk $(am__configure_deps) @for dep in $?; do \ case '$(am__configure_deps)' in \ *$$dep*) \ ( cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh ) \ && { if test -f $@; then exit 0; else break; fi; }; \ exit 1;; \ esac; \ done; \ echo ' cd $(top_srcdir) && $(AUTOMAKE) --gnu libglade/gnome/gw/Makefile'; \ $(am__cd) $(top_srcdir) && \ $(AUTOMAKE) --gnu libglade/gnome/gw/Makefile .PRECIOUS: Makefile Makefile: $(srcdir)/Makefile.in $(top_builddir)/config.status @case '$?' in \ *config.status*) \ cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh;; \ *) \ echo ' cd $(top_builddir) && $(SHELL) ./config.status $(subdir)/$@ $(am__depfiles_maybe)'; \ cd $(top_builddir) && $(SHELL) ./config.status $(subdir)/$@ $(am__depfiles_maybe);; \ esac; $(top_srcdir)/common.mk: $(top_builddir)/config.status: $(top_srcdir)/configure $(CONFIG_STATUS_DEPENDENCIES) cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh $(top_srcdir)/configure: $(am__configure_deps) cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh $(ACLOCAL_M4): $(am__aclocal_m4_deps) cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh $(am__aclocal_m4_deps): install-guilegnomelibLTLIBRARIES: $(guilegnomelib_LTLIBRARIES) @$(NORMAL_INSTALL) @list='$(guilegnomelib_LTLIBRARIES)'; test -n "$(guilegnomelibdir)" || list=; \ list2=; for p in $$list; do \ if test -f $$p; then \ list2="$$list2 $$p"; \ else :; fi; \ done; \ test -z "$$list2" || { \ echo " $(MKDIR_P) '$(DESTDIR)$(guilegnomelibdir)'"; \ $(MKDIR_P) "$(DESTDIR)$(guilegnomelibdir)" || exit 1; \ echo " $(LIBTOOL) $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=install $(INSTALL) $(INSTALL_STRIP_FLAG) $$list2 '$(DESTDIR)$(guilegnomelibdir)'"; \ $(LIBTOOL) $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=install $(INSTALL) $(INSTALL_STRIP_FLAG) $$list2 "$(DESTDIR)$(guilegnomelibdir)"; \ } uninstall-guilegnomelibLTLIBRARIES: @$(NORMAL_UNINSTALL) @list='$(guilegnomelib_LTLIBRARIES)'; test -n "$(guilegnomelibdir)" || list=; \ for p in $$list; do \ $(am__strip_dir) \ echo " $(LIBTOOL) $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=uninstall rm -f '$(DESTDIR)$(guilegnomelibdir)/$$f'"; \ $(LIBTOOL) $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=uninstall rm -f "$(DESTDIR)$(guilegnomelibdir)/$$f"; \ done clean-guilegnomelibLTLIBRARIES: -test -z "$(guilegnomelib_LTLIBRARIES)" || rm -f $(guilegnomelib_LTLIBRARIES) @list='$(guilegnomelib_LTLIBRARIES)'; for p in $$list; do \ dir="`echo $$p | sed -e 's|/[^/]*$$||'`"; \ test "$$dir" != "$$p" || dir=.; \ echo "rm -f \"$${dir}/so_locations\""; \ rm -f "$${dir}/so_locations"; \ done libgw-guile-gnome-libglade.la: $(libgw_guile_gnome_libglade_la_OBJECTS) $(libgw_guile_gnome_libglade_la_DEPENDENCIES) $(EXTRA_libgw_guile_gnome_libglade_la_DEPENDENCIES) $(libgw_guile_gnome_libglade_la_LINK) -rpath $(guilegnomelibdir) $(libgw_guile_gnome_libglade_la_OBJECTS) $(libgw_guile_gnome_libglade_la_LIBADD) $(LIBS) mostlyclean-compile: -rm -f *.$(OBJEXT) distclean-compile: -rm -f *.tab.c @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/libgw_guile_gnome_libglade_la-glade-support.Plo@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/libgw_guile_gnome_libglade_la-guile-gnome-gw-libglade.Plo@am__quote@ .c.o: @am__fastdepCC_TRUE@ $(COMPILE) -MT $@ -MD -MP -MF $(DEPDIR)/$*.Tpo -c -o $@ $< @am__fastdepCC_TRUE@ $(am__mv) $(DEPDIR)/$*.Tpo $(DEPDIR)/$*.Po @AMDEP_TRUE@@am__fastdepCC_FALSE@ source='$<' object='$@' libtool=no @AMDEPBACKSLASH@ @AMDEP_TRUE@@am__fastdepCC_FALSE@ DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@ @am__fastdepCC_FALSE@ $(COMPILE) -c $< .c.obj: @am__fastdepCC_TRUE@ $(COMPILE) -MT $@ -MD -MP -MF $(DEPDIR)/$*.Tpo -c -o $@ `$(CYGPATH_W) '$<'` @am__fastdepCC_TRUE@ $(am__mv) $(DEPDIR)/$*.Tpo $(DEPDIR)/$*.Po @AMDEP_TRUE@@am__fastdepCC_FALSE@ source='$<' object='$@' libtool=no @AMDEPBACKSLASH@ @AMDEP_TRUE@@am__fastdepCC_FALSE@ DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@ @am__fastdepCC_FALSE@ $(COMPILE) -c `$(CYGPATH_W) '$<'` .c.lo: @am__fastdepCC_TRUE@ $(LTCOMPILE) -MT $@ -MD -MP -MF $(DEPDIR)/$*.Tpo -c -o $@ $< @am__fastdepCC_TRUE@ $(am__mv) $(DEPDIR)/$*.Tpo $(DEPDIR)/$*.Plo @AMDEP_TRUE@@am__fastdepCC_FALSE@ source='$<' object='$@' libtool=yes @AMDEPBACKSLASH@ @AMDEP_TRUE@@am__fastdepCC_FALSE@ DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@ @am__fastdepCC_FALSE@ $(LTCOMPILE) -c -o $@ $< libgw_guile_gnome_libglade_la-glade-support.lo: glade-support.c @am__fastdepCC_TRUE@ $(LIBTOOL) --tag=CC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(AM_CPPFLAGS) $(CPPFLAGS) $(libgw_guile_gnome_libglade_la_CFLAGS) $(CFLAGS) -MT libgw_guile_gnome_libglade_la-glade-support.lo -MD -MP -MF $(DEPDIR)/libgw_guile_gnome_libglade_la-glade-support.Tpo -c -o libgw_guile_gnome_libglade_la-glade-support.lo `test -f 'glade-support.c' || echo '$(srcdir)/'`glade-support.c @am__fastdepCC_TRUE@ $(am__mv) $(DEPDIR)/libgw_guile_gnome_libglade_la-glade-support.Tpo $(DEPDIR)/libgw_guile_gnome_libglade_la-glade-support.Plo @AMDEP_TRUE@@am__fastdepCC_FALSE@ source='glade-support.c' object='libgw_guile_gnome_libglade_la-glade-support.lo' libtool=yes @AMDEPBACKSLASH@ @AMDEP_TRUE@@am__fastdepCC_FALSE@ DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@ @am__fastdepCC_FALSE@ $(LIBTOOL) --tag=CC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(AM_CPPFLAGS) $(CPPFLAGS) $(libgw_guile_gnome_libglade_la_CFLAGS) $(CFLAGS) -c -o libgw_guile_gnome_libglade_la-glade-support.lo `test -f 'glade-support.c' || echo '$(srcdir)/'`glade-support.c libgw_guile_gnome_libglade_la-guile-gnome-gw-libglade.lo: guile-gnome-gw-libglade.c @am__fastdepCC_TRUE@ $(LIBTOOL) --tag=CC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(AM_CPPFLAGS) $(CPPFLAGS) $(libgw_guile_gnome_libglade_la_CFLAGS) $(CFLAGS) -MT libgw_guile_gnome_libglade_la-guile-gnome-gw-libglade.lo -MD -MP -MF $(DEPDIR)/libgw_guile_gnome_libglade_la-guile-gnome-gw-libglade.Tpo -c -o libgw_guile_gnome_libglade_la-guile-gnome-gw-libglade.lo `test -f 'guile-gnome-gw-libglade.c' || echo '$(srcdir)/'`guile-gnome-gw-libglade.c @am__fastdepCC_TRUE@ $(am__mv) $(DEPDIR)/libgw_guile_gnome_libglade_la-guile-gnome-gw-libglade.Tpo $(DEPDIR)/libgw_guile_gnome_libglade_la-guile-gnome-gw-libglade.Plo @AMDEP_TRUE@@am__fastdepCC_FALSE@ source='guile-gnome-gw-libglade.c' object='libgw_guile_gnome_libglade_la-guile-gnome-gw-libglade.lo' libtool=yes @AMDEPBACKSLASH@ @AMDEP_TRUE@@am__fastdepCC_FALSE@ DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@ @am__fastdepCC_FALSE@ $(LIBTOOL) --tag=CC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(AM_CPPFLAGS) $(CPPFLAGS) $(libgw_guile_gnome_libglade_la_CFLAGS) $(CFLAGS) -c -o libgw_guile_gnome_libglade_la-guile-gnome-gw-libglade.lo `test -f 'guile-gnome-gw-libglade.c' || echo '$(srcdir)/'`guile-gnome-gw-libglade.c mostlyclean-libtool: -rm -f *.lo clean-libtool: -rm -rf .libs _libs install-guilegwmoduleDATA: $(guilegwmodule_DATA) @$(NORMAL_INSTALL) @list='$(guilegwmodule_DATA)'; test -n "$(guilegwmoduledir)" || list=; \ if test -n "$$list"; then \ echo " $(MKDIR_P) '$(DESTDIR)$(guilegwmoduledir)'"; \ $(MKDIR_P) "$(DESTDIR)$(guilegwmoduledir)" || exit 1; \ fi; \ for p in $$list; do \ if test -f "$$p"; then d=; else d="$(srcdir)/"; fi; \ echo "$$d$$p"; \ done | $(am__base_list) | \ while read files; do \ echo " $(INSTALL_DATA) $$files '$(DESTDIR)$(guilegwmoduledir)'"; \ $(INSTALL_DATA) $$files "$(DESTDIR)$(guilegwmoduledir)" || exit $$?; \ done uninstall-guilegwmoduleDATA: @$(NORMAL_UNINSTALL) @list='$(guilegwmodule_DATA)'; test -n "$(guilegwmoduledir)" || list=; \ files=`for p in $$list; do echo $$p; done | sed -e 's|^.*/||'`; \ dir='$(DESTDIR)$(guilegwmoduledir)'; $(am__uninstall_files_from_dir) ID: $(HEADERS) $(SOURCES) $(LISP) $(TAGS_FILES) list='$(SOURCES) $(HEADERS) $(LISP) $(TAGS_FILES)'; \ unique=`for i in $$list; do \ if test -f "$$i"; then echo $$i; else echo $(srcdir)/$$i; fi; \ done | \ $(AWK) '{ files[$$0] = 1; nonempty = 1; } \ END { if (nonempty) { for (i in files) print i; }; }'`; \ mkid -fID $$unique tags: TAGS TAGS: $(HEADERS) $(SOURCES) $(TAGS_DEPENDENCIES) \ $(TAGS_FILES) $(LISP) set x; \ here=`pwd`; \ list='$(SOURCES) $(HEADERS) $(LISP) $(TAGS_FILES)'; \ unique=`for i in $$list; do \ if test -f "$$i"; then echo $$i; else echo $(srcdir)/$$i; fi; \ done | \ $(AWK) '{ files[$$0] = 1; nonempty = 1; } \ END { if (nonempty) { for (i in files) print i; }; }'`; \ shift; \ if test -z "$(ETAGS_ARGS)$$*$$unique"; then :; else \ test -n "$$unique" || unique=$$empty_fix; \ if test $$# -gt 0; then \ $(ETAGS) $(ETAGSFLAGS) $(AM_ETAGSFLAGS) $(ETAGS_ARGS) \ "$$@" $$unique; \ else \ $(ETAGS) $(ETAGSFLAGS) $(AM_ETAGSFLAGS) $(ETAGS_ARGS) \ $$unique; \ fi; \ fi ctags: CTAGS CTAGS: $(HEADERS) $(SOURCES) $(TAGS_DEPENDENCIES) \ $(TAGS_FILES) $(LISP) list='$(SOURCES) $(HEADERS) $(LISP) $(TAGS_FILES)'; \ unique=`for i in $$list; do \ if test -f "$$i"; then echo $$i; else echo $(srcdir)/$$i; fi; \ done | \ $(AWK) '{ files[$$0] = 1; nonempty = 1; } \ END { if (nonempty) { for (i in files) print i; }; }'`; \ test -z "$(CTAGS_ARGS)$$unique" \ || $(CTAGS) $(CTAGSFLAGS) $(AM_CTAGSFLAGS) $(CTAGS_ARGS) \ $$unique GTAGS: here=`$(am__cd) $(top_builddir) && pwd` \ && $(am__cd) $(top_srcdir) \ && gtags -i $(GTAGS_ARGS) "$$here" distclean-tags: -rm -f TAGS ID GTAGS GRTAGS GSYMS GPATH tags distdir: $(DISTFILES) @srcdirstrip=`echo "$(srcdir)" | sed 's/[].[^$$\\*]/\\\\&/g'`; \ topsrcdirstrip=`echo "$(top_srcdir)" | sed 's/[].[^$$\\*]/\\\\&/g'`; \ list='$(DISTFILES)'; \ dist_files=`for file in $$list; do echo $$file; done | \ sed -e "s|^$$srcdirstrip/||;t" \ -e "s|^$$topsrcdirstrip/|$(top_builddir)/|;t"`; \ case $$dist_files in \ */*) $(MKDIR_P) `echo "$$dist_files" | \ sed '/\//!d;s|^|$(distdir)/|;s,/[^/]*$$,,' | \ sort -u` ;; \ esac; \ for file in $$dist_files; do \ if test -f $$file || test -d $$file; then d=.; else d=$(srcdir); fi; \ if test -d $$d/$$file; then \ dir=`echo "/$$file" | sed -e 's,/[^/]*$$,,'`; \ if test -d "$(distdir)/$$file"; then \ find "$(distdir)/$$file" -type d ! -perm -700 -exec chmod u+rwx {} \;; \ fi; \ if test -d $(srcdir)/$$file && test $$d != $(srcdir); then \ cp -fpR $(srcdir)/$$file "$(distdir)$$dir" || exit 1; \ find "$(distdir)/$$file" -type d ! -perm -700 -exec chmod u+rwx {} \;; \ fi; \ cp -fpR $$d/$$file "$(distdir)$$dir" || exit 1; \ else \ test -f "$(distdir)/$$file" \ || cp -p $$d/$$file "$(distdir)/$$file" \ || exit 1; \ fi; \ done check-am: all-am check: $(BUILT_SOURCES) $(MAKE) $(AM_MAKEFLAGS) check-am all-am: Makefile $(LTLIBRARIES) $(DATA) installdirs: for dir in "$(DESTDIR)$(guilegnomelibdir)" "$(DESTDIR)$(guilegwmoduledir)"; do \ test -z "$$dir" || $(MKDIR_P) "$$dir"; \ done install: $(BUILT_SOURCES) $(MAKE) $(AM_MAKEFLAGS) install-am install-exec: install-exec-am install-data: install-data-am uninstall: uninstall-am install-am: all-am @$(MAKE) $(AM_MAKEFLAGS) install-exec-am install-data-am installcheck: installcheck-am install-strip: if test -z '$(STRIP)'; then \ $(MAKE) $(AM_MAKEFLAGS) INSTALL_PROGRAM="$(INSTALL_STRIP_PROGRAM)" \ install_sh_PROGRAM="$(INSTALL_STRIP_PROGRAM)" INSTALL_STRIP_FLAG=-s \ install; \ else \ $(MAKE) $(AM_MAKEFLAGS) INSTALL_PROGRAM="$(INSTALL_STRIP_PROGRAM)" \ install_sh_PROGRAM="$(INSTALL_STRIP_PROGRAM)" INSTALL_STRIP_FLAG=-s \ "INSTALL_PROGRAM_ENV=STRIPPROG='$(STRIP)'" install; \ fi mostlyclean-generic: clean-generic: -test -z "$(CLEANFILES)" || rm -f $(CLEANFILES) distclean-generic: -test -z "$(CONFIG_CLEAN_FILES)" || rm -f $(CONFIG_CLEAN_FILES) -test . = "$(srcdir)" || test -z "$(CONFIG_CLEAN_VPATH_FILES)" || rm -f $(CONFIG_CLEAN_VPATH_FILES) maintainer-clean-generic: @echo "This command is intended for maintainers to use" @echo "it deletes files that may require special tools to rebuild." -test -z "$(BUILT_SOURCES)" || rm -f $(BUILT_SOURCES) clean: clean-am clean-am: clean-generic clean-guilegnomelibLTLIBRARIES clean-libtool \ mostlyclean-am distclean: distclean-am -rm -rf ./$(DEPDIR) -rm -f Makefile distclean-am: clean-am distclean-compile distclean-generic \ distclean-tags dvi: dvi-am dvi-am: html: html-am html-am: info: info-am info-am: install-data-am: install-guilegnomelibLTLIBRARIES \ install-guilegwmoduleDATA install-dvi: install-dvi-am install-dvi-am: install-exec-am: install-html: install-html-am install-html-am: install-info: install-info-am install-info-am: install-man: install-pdf: install-pdf-am install-pdf-am: install-ps: install-ps-am install-ps-am: installcheck-am: maintainer-clean: maintainer-clean-am -rm -rf ./$(DEPDIR) -rm -f Makefile maintainer-clean-am: distclean-am maintainer-clean-generic mostlyclean: mostlyclean-am mostlyclean-am: mostlyclean-compile mostlyclean-generic \ mostlyclean-libtool pdf: pdf-am pdf-am: ps: ps-am ps-am: uninstall-am: uninstall-guilegnomelibLTLIBRARIES \ uninstall-guilegwmoduleDATA .MAKE: all check install install-am install-strip .PHONY: CTAGS GTAGS all all-am check check-am clean clean-generic \ clean-guilegnomelibLTLIBRARIES clean-libtool ctags distclean \ distclean-compile distclean-generic distclean-libtool \ distclean-tags distdir dvi dvi-am html html-am info info-am \ install install-am install-data install-data-am install-dvi \ install-dvi-am install-exec install-exec-am \ install-guilegnomelibLTLIBRARIES install-guilegwmoduleDATA \ install-html install-html-am install-info install-info-am \ install-man install-pdf install-pdf-am install-ps \ install-ps-am install-strip installcheck installcheck-am \ installdirs maintainer-clean maintainer-clean-generic \ mostlyclean mostlyclean-compile mostlyclean-generic \ mostlyclean-libtool pdf pdf-am ps ps-am tags uninstall \ uninstall-am uninstall-guilegnomelibLTLIBRARIES \ uninstall-guilegwmoduleDATA export GUILE_LOAD_PATH .c.x: guile-snarf $(GUILE_SNARF_CFLAGS) $< > $@ \ || { rm $@; false; } .c.doc: $(CPP) -DSCM_MAGIC_SNARF_DOCS $(GUILE_SNARF_CFLAGS) $< \ | grep -E '(\^\^ {|\^\^ })' > $@ || { rm $@; false; } %.scm guile-gnome-gw-%.c: %-spec.scm guile $(GUILE_FLAGS) -c \ "(debug-set! stack 400000) \ (use-modules (gnome-@API_VERSION@)) \ (use-modules (g-wrap)) \ (use-modules (gnome gw $*-spec)) \ (generate-wrapset 'guile 'gnome-$* \"guile-gnome-gw-$*\")" mv guile-gnome-gw-$*.scm $*.scm %-@API_VERSION@.pc: %.pc cp $< $@ %-@API_VERSION@-uninstalled.pc: %-uninstalled.pc cp $< $@ # Tell versions [3.59,3.63) of GNU make to not export all variables. # Otherwise a system limit (for SysV at least) may be exceeded. .NOEXPORT: guile-gnome-platform-2.16.2/libglade/gnome/Makefile.am0000644000175000017500000000030011670374303023065 0ustar00wingowingo00000000000000include $(top_srcdir)/common.mk SUBDIRS = overrides guilemodule_DATA = if HAVE_LIBGLADE SUBDIRS += gw guilemodule_DATA += glade.scm endif EXTRA_DIST = glade.scm DIST_SUBDIRS = gw overrides guile-gnome-platform-2.16.2/libglade/gnome/Makefile.in0000644000175000017500000005746111752520712023120 0ustar00wingowingo00000000000000# Makefile.in generated by automake 1.11.5 from Makefile.am. # @configure_input@ # Copyright (C) 1994, 1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, # 2003, 2004, 2005, 2006, 2007, 2008, 2009, 2010, 2011 Free Software # Foundation, Inc. # This Makefile.in is free software; the Free Software Foundation # gives unlimited permission to copy and/or distribute it, # with or without modifications, as long as this notice is preserved. # This program is distributed in the hope that it will be useful, # but WITHOUT ANY WARRANTY, to the extent permitted by law; without # even the implied warranty of MERCHANTABILITY or FITNESS FOR A # PARTICULAR PURPOSE. @SET_MAKE@ # guile-gnome # Copyright (C) 2003,2004,2009,2012 Free Software Foundation, Inc. # This program is free software; you can redistribute it and/or # modify it under the terms of the GNU General Public License as # published by the Free Software Foundation; either version 2 of # the License, or (at your option) any later version. # This program is distributed in the hope that it will be useful, # but WITHOUT ANY WARRANTY; without even the implied warranty of # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the # GNU General Public License for more details. # You should have received a copy of the GNU General Public License # along with this program; if not, contact: # Free Software Foundation Voice: +1-617-542-5942 # 59 Temple Place - Suite 330 Fax: +1-617-542-2652 # Boston, MA 02111-1307, USA gnu@gnu.org # # Makefile snippet # VPATH = @srcdir@ am__make_dryrun = \ { \ am__dry=no; \ case $$MAKEFLAGS in \ *\\[\ \ ]*) \ echo 'am--echo: ; @echo "AM" OK' | $(MAKE) -f - 2>/dev/null \ | grep '^AM OK$$' >/dev/null || am__dry=yes;; \ *) \ for am__flg in $$MAKEFLAGS; do \ case $$am__flg in \ *=*|--*) ;; \ *n*) am__dry=yes; break;; \ esac; \ done;; \ esac; \ test $$am__dry = yes; \ } pkgdatadir = $(datadir)/@PACKAGE@ pkgincludedir = $(includedir)/@PACKAGE@ pkglibdir = $(libdir)/@PACKAGE@ pkglibexecdir = $(libexecdir)/@PACKAGE@ am__cd = CDPATH="$${ZSH_VERSION+.}$(PATH_SEPARATOR)" && cd install_sh_DATA = $(install_sh) -c -m 644 install_sh_PROGRAM = $(install_sh) -c install_sh_SCRIPT = $(install_sh) -c INSTALL_HEADER = $(INSTALL_DATA) transform = $(program_transform_name) NORMAL_INSTALL = : PRE_INSTALL = : POST_INSTALL = : NORMAL_UNINSTALL = : PRE_UNINSTALL = : POST_UNINSTALL = : build_triplet = @build@ host_triplet = @host@ DIST_COMMON = $(srcdir)/Makefile.am $(srcdir)/Makefile.in \ $(top_srcdir)/common.mk @HAVE_LIBGLADE_TRUE@am__append_1 = gw @HAVE_LIBGLADE_TRUE@am__append_2 = glade.scm subdir = libglade/gnome ACLOCAL_M4 = $(top_srcdir)/aclocal.m4 am__aclocal_m4_deps = $(top_srcdir)/configure.ac am__configure_deps = $(am__aclocal_m4_deps) $(CONFIGURE_DEPENDENCIES) \ $(ACLOCAL_M4) mkinstalldirs = $(install_sh) -d CONFIG_HEADER = $(top_builddir)/config.h CONFIG_CLEAN_FILES = CONFIG_CLEAN_VPATH_FILES = SOURCES = DIST_SOURCES = RECURSIVE_TARGETS = all-recursive check-recursive dvi-recursive \ html-recursive info-recursive install-data-recursive \ install-dvi-recursive install-exec-recursive \ install-html-recursive install-info-recursive \ install-pdf-recursive install-ps-recursive install-recursive \ installcheck-recursive installdirs-recursive pdf-recursive \ ps-recursive uninstall-recursive am__can_run_installinfo = \ case $$AM_UPDATE_INFO_DIR in \ n|no|NO) false;; \ *) (install-info --version) >/dev/null 2>&1;; \ esac am__vpath_adj_setup = srcdirstrip=`echo "$(srcdir)" | sed 's|.|.|g'`; am__vpath_adj = case $$p in \ $(srcdir)/*) f=`echo "$$p" | sed "s|^$$srcdirstrip/||"`;; \ *) f=$$p;; \ esac; am__strip_dir = f=`echo $$p | sed -e 's|^.*/||'`; am__install_max = 40 am__nobase_strip_setup = \ srcdirstrip=`echo "$(srcdir)" | sed 's/[].[^$$\\*|]/\\\\&/g'` am__nobase_strip = \ for p in $$list; do echo "$$p"; done | sed -e "s|$$srcdirstrip/||" am__nobase_list = $(am__nobase_strip_setup); \ for p in $$list; do echo "$$p $$p"; done | \ sed "s| $$srcdirstrip/| |;"' / .*\//!s/ .*/ ./; s,\( .*\)/[^/]*$$,\1,' | \ $(AWK) 'BEGIN { files["."] = "" } { files[$$2] = files[$$2] " " $$1; \ if (++n[$$2] == $(am__install_max)) \ { print $$2, files[$$2]; n[$$2] = 0; files[$$2] = "" } } \ END { for (dir in files) print dir, files[dir] }' am__base_list = \ sed '$$!N;$$!N;$$!N;$$!N;$$!N;$$!N;$$!N;s/\n/ /g' | \ sed '$$!N;$$!N;$$!N;$$!N;s/\n/ /g' am__uninstall_files_from_dir = { \ test -z "$$files" \ || { test ! -d "$$dir" && test ! -f "$$dir" && test ! -r "$$dir"; } \ || { echo " ( cd '$$dir' && rm -f" $$files ")"; \ $(am__cd) "$$dir" && rm -f $$files; }; \ } am__installdirs = "$(DESTDIR)$(guilemoduledir)" DATA = $(guilemodule_DATA) RECURSIVE_CLEAN_TARGETS = mostlyclean-recursive clean-recursive \ distclean-recursive maintainer-clean-recursive AM_RECURSIVE_TARGETS = $(RECURSIVE_TARGETS:-recursive=) \ $(RECURSIVE_CLEAN_TARGETS:-recursive=) tags TAGS ctags CTAGS \ distdir ETAGS = etags CTAGS = ctags DISTFILES = $(DIST_COMMON) $(DIST_SOURCES) $(TEXINFOS) $(EXTRA_DIST) am__relativize = \ dir0=`pwd`; \ sed_first='s,^\([^/]*\)/.*$$,\1,'; \ sed_rest='s,^[^/]*/*,,'; \ sed_last='s,^.*/\([^/]*\)$$,\1,'; \ sed_butlast='s,/*[^/]*$$,,'; \ while test -n "$$dir1"; do \ first=`echo "$$dir1" | sed -e "$$sed_first"`; \ if test "$$first" != "."; then \ if test "$$first" = ".."; then \ dir2=`echo "$$dir0" | sed -e "$$sed_last"`/"$$dir2"; \ dir0=`echo "$$dir0" | sed -e "$$sed_butlast"`; \ else \ first2=`echo "$$dir2" | sed -e "$$sed_first"`; \ if test "$$first2" = "$$first"; then \ dir2=`echo "$$dir2" | sed -e "$$sed_rest"`; \ else \ dir2="../$$dir2"; \ fi; \ dir0="$$dir0"/"$$first"; \ fi; \ fi; \ dir1=`echo "$$dir1" | sed -e "$$sed_rest"`; \ done; \ reldir="$$dir2" ACLOCAL = @ACLOCAL@ AG_PKG_CONFIG_PATH = @AG_PKG_CONFIG_PATH@ AMTAR = @AMTAR@ API_VERSION = @API_VERSION@ AR = @AR@ ATK_CFLAGS = @ATK_CFLAGS@ ATK_LIBS = @ATK_LIBS@ AUTOCONF = @AUTOCONF@ AUTOHEADER = @AUTOHEADER@ AUTOMAKE = @AUTOMAKE@ AWK = @AWK@ BONOBO_IDL_DIR = @BONOBO_IDL_DIR@ CANVAS_CFLAGS = @CANVAS_CFLAGS@ CANVAS_LIBS = @CANVAS_LIBS@ CC = @CC@ CCDEPMODE = @CCDEPMODE@ CFLAGS = @CFLAGS@ CORBA_CFLAGS = @CORBA_CFLAGS@ CORBA_LIBS = @CORBA_LIBS@ CPP = @CPP@ CPPFLAGS = @CPPFLAGS@ CYGPATH_W = @CYGPATH_W@ DEFS = @DEFS@ DEPDIR = @DEPDIR@ DLLTOOL = @DLLTOOL@ DSYMUTIL = @DSYMUTIL@ DUMPBIN = @DUMPBIN@ ECHO_C = @ECHO_C@ ECHO_N = @ECHO_N@ ECHO_T = @ECHO_T@ EGREP = @EGREP@ EXEEXT = @EXEEXT@ FGREP = @FGREP@ GCONF_CFLAGS = @GCONF_CFLAGS@ GCONF_LIBS = @GCONF_LIBS@ GDK_CFLAGS = @GDK_CFLAGS@ GDK_LIBS = @GDK_LIBS@ GDK_PIXBUF_CFLAGS = @GDK_PIXBUF_CFLAGS@ GDK_PIXBUF_LIBS = @GDK_PIXBUF_LIBS@ GLIB_CFLAGS = @GLIB_CFLAGS@ GLIB_LIBS = @GLIB_LIBS@ GNOMEUI_DEPRECATION_FLAGS = @GNOMEUI_DEPRECATION_FLAGS@ GNOME_VFS_CFLAGS = @GNOME_VFS_CFLAGS@ GNOME_VFS_DEPRECATED_CFLAGS = @GNOME_VFS_DEPRECATED_CFLAGS@ GNOME_VFS_LIBS = @GNOME_VFS_LIBS@ GOBJECT_CFLAGS = @GOBJECT_CFLAGS@ GOBJECT_LIBS = @GOBJECT_LIBS@ GREP = @GREP@ GTHREAD_CFLAGS = @GTHREAD_CFLAGS@ GTHREAD_LIBS = @GTHREAD_LIBS@ GTK_CFLAGS = @GTK_CFLAGS@ GTK_DEPRECATED_CFLAGS = @GTK_DEPRECATED_CFLAGS@ GTK_LIBS = @GTK_LIBS@ GUILE_CAIRO_CFLAGS = @GUILE_CAIRO_CFLAGS@ GUILE_CAIRO_LIBS = @GUILE_CAIRO_LIBS@ GUILE_CFLAGS = @GUILE_CFLAGS@ GUILE_EFFECTIVE_VERSION = @GUILE_EFFECTIVE_VERSION@ GUILE_GLIB_CFLAGS = @GUILE_GLIB_CFLAGS@ GUILE_GLIB_LIBS = @GUILE_GLIB_LIBS@ GUILE_LIBS = @GUILE_LIBS@ G_WRAP_CFLAGS = @G_WRAP_CFLAGS@ G_WRAP_LIBS = @G_WRAP_LIBS@ G_WRAP_LIB_DIR = @G_WRAP_LIB_DIR@ G_WRAP_MODULE_DIR = @G_WRAP_MODULE_DIR@ INSTALL = @INSTALL@ INSTALL_DATA = @INSTALL_DATA@ INSTALL_PROGRAM = @INSTALL_PROGRAM@ INSTALL_SCRIPT = @INSTALL_SCRIPT@ INSTALL_STRIP_PROGRAM = @INSTALL_STRIP_PROGRAM@ LD = @LD@ LDFLAGS = @LDFLAGS@ LIBGLADE_CFLAGS = @LIBGLADE_CFLAGS@ LIBGLADE_LIBS = @LIBGLADE_LIBS@ LIBGNOMEUI_CFLAGS = @LIBGNOMEUI_CFLAGS@ LIBGNOMEUI_LIBS = @LIBGNOMEUI_LIBS@ LIBGNOME_CFLAGS = @LIBGNOME_CFLAGS@ LIBGNOME_LIBS = @LIBGNOME_LIBS@ LIBOBJS = @LIBOBJS@ LIBS = @LIBS@ LIBTOOL = @LIBTOOL@ LIPO = @LIPO@ LN_S = @LN_S@ LTLIBOBJS = @LTLIBOBJS@ MAKEINFO = @MAKEINFO@ MANIFEST_TOOL = @MANIFEST_TOOL@ MKDIR_P = @MKDIR_P@ NM = @NM@ NMEDIT = @NMEDIT@ OBJDUMP = @OBJDUMP@ OBJEXT = @OBJEXT@ ORBIT_IDL = @ORBIT_IDL@ OTOOL = @OTOOL@ OTOOL64 = @OTOOL64@ PACKAGE = @PACKAGE@ PACKAGE_BUGREPORT = @PACKAGE_BUGREPORT@ PACKAGE_NAME = @PACKAGE_NAME@ PACKAGE_STRING = @PACKAGE_STRING@ PACKAGE_TARNAME = @PACKAGE_TARNAME@ PACKAGE_URL = @PACKAGE_URL@ PACKAGE_VERSION = @PACKAGE_VERSION@ PANGOCAIRO_CFLAGS = @PANGOCAIRO_CFLAGS@ PANGOCAIRO_LIBS = @PANGOCAIRO_LIBS@ PANGO_CFLAGS = @PANGO_CFLAGS@ PANGO_LIBS = @PANGO_LIBS@ PATH_SEPARATOR = @PATH_SEPARATOR@ PKG_CONFIG = @PKG_CONFIG@ PKG_CONFIG_LIBDIR = @PKG_CONFIG_LIBDIR@ PKG_CONFIG_PATH = @PKG_CONFIG_PATH@ RANLIB = @RANLIB@ SED = @SED@ SET_MAKE = @SET_MAKE@ SHELL = @SHELL@ STRIP = @STRIP@ VERSION = @VERSION@ WARN_CFLAGS = @WARN_CFLAGS@ abs_builddir = @abs_builddir@ abs_srcdir = @abs_srcdir@ abs_top_builddir = @abs_top_builddir@ abs_top_srcdir = @abs_top_srcdir@ ac_ct_AR = @ac_ct_AR@ ac_ct_CC = @ac_ct_CC@ ac_ct_DUMPBIN = @ac_ct_DUMPBIN@ am__include = @am__include@ am__leading_dot = @am__leading_dot@ am__quote = @am__quote@ am__tar = @am__tar@ am__untar = @am__untar@ bindir = @bindir@ build = @build@ build_alias = @build_alias@ build_cpu = @build_cpu@ build_os = @build_os@ build_vendor = @build_vendor@ builddir = @builddir@ datadir = @datadir@ datarootdir = @datarootdir@ docdir = @docdir@ dvidir = @dvidir@ exec_prefix = @exec_prefix@ host = @host@ host_alias = @host_alias@ host_cpu = @host_cpu@ host_os = @host_os@ host_vendor = @host_vendor@ htmldir = @htmldir@ includedir = @includedir@ infodir = @infodir@ install_sh = @install_sh@ libdir = @libdir@ libexecdir = @libexecdir@ localedir = @localedir@ localstatedir = @localstatedir@ mandir = @mandir@ mkdir_p = @mkdir_p@ oldincludedir = @oldincludedir@ pdfdir = @pdfdir@ prefix = @prefix@ program_transform_name = @program_transform_name@ psdir = @psdir@ sbindir = @sbindir@ sharedstatedir = @sharedstatedir@ srcdir = @srcdir@ sysconfdir = @sysconfdir@ target_alias = @target_alias@ top_build_prefix = @top_build_prefix@ top_builddir = @top_builddir@ top_srcdir = @top_srcdir@ guilegnomedir = $(datadir)/guile-gnome-@API_VERSION@ guilemoduledir = $(guilegnomedir)/gnome guilegwmoduledir = $(guilegnomedir)/gnome/gw guilegnomelibdir = $(libdir)/guile-gnome-@API_VERSION@ AM_CFLAGS = -I. -I$(srcdir) $(WARN_CFLAGS) $(DEBUG_CFLAGS) # For overriding from the command line (e.g. --debug) GUILE_FLAGS = SUFFIXES = .x .doc GUILE_SNARF_CFLAGS = $(DEFS) $(AM_CFLAGS) $(GUILE_CFLAGS) $(G_WRAP_CFLAGS) PACKAGES = atk cairo corba defs gconf glib gnome-vfs gtk libglade libgnome libgnomecanvas libgnomeui pango SOURCE_GUILE_PATH = $(shell echo $(addprefix $(top_srcdir)/,$(PACKAGES)) | sed -e 's/ /:/g'):$(srcdir) BUILD_GUILE_PATH = $(if $(filter-out $(top_srcdir),$(top_builddir)),$(shell echo -n $(addprefix $(top_builddir)/,$(PACKAGES)): | sed -e 's/ /:/g'),) GUILE_LOAD_PATH := $(BUILD_GUILE_PATH)$(SOURCE_GUILE_PATH):${G_WRAP_MODULE_DIR}:${GUILE_LOAD_PATH} # Real gnu make foo packages = $(filter-out %-uninstalled,$(patsubst %.pc.in,%,$(notdir $(wildcard $(srcdir)/*.pc.in)))) pcifiles = $(patsubst %,%-@API_VERSION@.pc,$(packages)) pcufiles = $(patsubst %,%-@API_VERSION@-uninstalled.pc,$(packages)) SUBDIRS = overrides $(am__append_1) guilemodule_DATA = $(am__append_2) EXTRA_DIST = glade.scm DIST_SUBDIRS = gw overrides all: all-recursive .SUFFIXES: .SUFFIXES: .x .doc .c $(srcdir)/Makefile.in: $(srcdir)/Makefile.am $(top_srcdir)/common.mk $(am__configure_deps) @for dep in $?; do \ case '$(am__configure_deps)' in \ *$$dep*) \ ( cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh ) \ && { if test -f $@; then exit 0; else break; fi; }; \ exit 1;; \ esac; \ done; \ echo ' cd $(top_srcdir) && $(AUTOMAKE) --gnu libglade/gnome/Makefile'; \ $(am__cd) $(top_srcdir) && \ $(AUTOMAKE) --gnu libglade/gnome/Makefile .PRECIOUS: Makefile Makefile: $(srcdir)/Makefile.in $(top_builddir)/config.status @case '$?' in \ *config.status*) \ cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh;; \ *) \ echo ' cd $(top_builddir) && $(SHELL) ./config.status $(subdir)/$@ $(am__depfiles_maybe)'; \ cd $(top_builddir) && $(SHELL) ./config.status $(subdir)/$@ $(am__depfiles_maybe);; \ esac; $(top_srcdir)/common.mk: $(top_builddir)/config.status: $(top_srcdir)/configure $(CONFIG_STATUS_DEPENDENCIES) cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh $(top_srcdir)/configure: $(am__configure_deps) cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh $(ACLOCAL_M4): $(am__aclocal_m4_deps) cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh $(am__aclocal_m4_deps): mostlyclean-libtool: -rm -f *.lo clean-libtool: -rm -rf .libs _libs install-guilemoduleDATA: $(guilemodule_DATA) @$(NORMAL_INSTALL) @list='$(guilemodule_DATA)'; test -n "$(guilemoduledir)" || list=; \ if test -n "$$list"; then \ echo " $(MKDIR_P) '$(DESTDIR)$(guilemoduledir)'"; \ $(MKDIR_P) "$(DESTDIR)$(guilemoduledir)" || exit 1; \ fi; \ for p in $$list; do \ if test -f "$$p"; then d=; else d="$(srcdir)/"; fi; \ echo "$$d$$p"; \ done | $(am__base_list) | \ while read files; do \ echo " $(INSTALL_DATA) $$files '$(DESTDIR)$(guilemoduledir)'"; \ $(INSTALL_DATA) $$files "$(DESTDIR)$(guilemoduledir)" || exit $$?; \ done uninstall-guilemoduleDATA: @$(NORMAL_UNINSTALL) @list='$(guilemodule_DATA)'; test -n "$(guilemoduledir)" || list=; \ files=`for p in $$list; do echo $$p; done | sed -e 's|^.*/||'`; \ dir='$(DESTDIR)$(guilemoduledir)'; $(am__uninstall_files_from_dir) # This directory's subdirectories are mostly independent; you can cd # into them and run `make' without going through this Makefile. # To change the values of `make' variables: instead of editing Makefiles, # (1) if the variable is set in `config.status', edit `config.status' # (which will cause the Makefiles to be regenerated when you run `make'); # (2) otherwise, pass the desired values on the `make' command line. $(RECURSIVE_TARGETS): @fail= failcom='exit 1'; \ for f in x $$MAKEFLAGS; do \ case $$f in \ *=* | --[!k]*);; \ *k*) failcom='fail=yes';; \ esac; \ done; \ dot_seen=no; \ target=`echo $@ | sed s/-recursive//`; \ list='$(SUBDIRS)'; for subdir in $$list; do \ echo "Making $$target in $$subdir"; \ if test "$$subdir" = "."; then \ dot_seen=yes; \ local_target="$$target-am"; \ else \ local_target="$$target"; \ fi; \ ($(am__cd) $$subdir && $(MAKE) $(AM_MAKEFLAGS) $$local_target) \ || eval $$failcom; \ done; \ if test "$$dot_seen" = "no"; then \ $(MAKE) $(AM_MAKEFLAGS) "$$target-am" || exit 1; \ fi; test -z "$$fail" $(RECURSIVE_CLEAN_TARGETS): @fail= failcom='exit 1'; \ for f in x $$MAKEFLAGS; do \ case $$f in \ *=* | --[!k]*);; \ *k*) failcom='fail=yes';; \ esac; \ done; \ dot_seen=no; \ case "$@" in \ distclean-* | maintainer-clean-*) list='$(DIST_SUBDIRS)' ;; \ *) list='$(SUBDIRS)' ;; \ esac; \ rev=''; for subdir in $$list; do \ if test "$$subdir" = "."; then :; else \ rev="$$subdir $$rev"; \ fi; \ done; \ rev="$$rev ."; \ target=`echo $@ | sed s/-recursive//`; \ for subdir in $$rev; do \ echo "Making $$target in $$subdir"; \ if test "$$subdir" = "."; then \ local_target="$$target-am"; \ else \ local_target="$$target"; \ fi; \ ($(am__cd) $$subdir && $(MAKE) $(AM_MAKEFLAGS) $$local_target) \ || eval $$failcom; \ done && test -z "$$fail" tags-recursive: list='$(SUBDIRS)'; for subdir in $$list; do \ test "$$subdir" = . || ($(am__cd) $$subdir && $(MAKE) $(AM_MAKEFLAGS) tags); \ done ctags-recursive: list='$(SUBDIRS)'; for subdir in $$list; do \ test "$$subdir" = . || ($(am__cd) $$subdir && $(MAKE) $(AM_MAKEFLAGS) ctags); \ done ID: $(HEADERS) $(SOURCES) $(LISP) $(TAGS_FILES) list='$(SOURCES) $(HEADERS) $(LISP) $(TAGS_FILES)'; \ unique=`for i in $$list; do \ if test -f "$$i"; then echo $$i; else echo $(srcdir)/$$i; fi; \ done | \ $(AWK) '{ files[$$0] = 1; nonempty = 1; } \ END { if (nonempty) { for (i in files) print i; }; }'`; \ mkid -fID $$unique tags: TAGS TAGS: tags-recursive $(HEADERS) $(SOURCES) $(TAGS_DEPENDENCIES) \ $(TAGS_FILES) $(LISP) set x; \ here=`pwd`; \ if ($(ETAGS) --etags-include --version) >/dev/null 2>&1; then \ include_option=--etags-include; \ empty_fix=.; \ else \ include_option=--include; \ empty_fix=; \ fi; \ list='$(SUBDIRS)'; for subdir in $$list; do \ if test "$$subdir" = .; then :; else \ test ! -f $$subdir/TAGS || \ set "$$@" "$$include_option=$$here/$$subdir/TAGS"; \ fi; \ done; \ list='$(SOURCES) $(HEADERS) $(LISP) $(TAGS_FILES)'; \ unique=`for i in $$list; do \ if test -f "$$i"; then echo $$i; else echo $(srcdir)/$$i; fi; \ done | \ $(AWK) '{ files[$$0] = 1; nonempty = 1; } \ END { if (nonempty) { for (i in files) print i; }; }'`; \ shift; \ if test -z "$(ETAGS_ARGS)$$*$$unique"; then :; else \ test -n "$$unique" || unique=$$empty_fix; \ if test $$# -gt 0; then \ $(ETAGS) $(ETAGSFLAGS) $(AM_ETAGSFLAGS) $(ETAGS_ARGS) \ "$$@" $$unique; \ else \ $(ETAGS) $(ETAGSFLAGS) $(AM_ETAGSFLAGS) $(ETAGS_ARGS) \ $$unique; \ fi; \ fi ctags: CTAGS CTAGS: ctags-recursive $(HEADERS) $(SOURCES) $(TAGS_DEPENDENCIES) \ $(TAGS_FILES) $(LISP) list='$(SOURCES) $(HEADERS) $(LISP) $(TAGS_FILES)'; \ unique=`for i in $$list; do \ if test -f "$$i"; then echo $$i; else echo $(srcdir)/$$i; fi; \ done | \ $(AWK) '{ files[$$0] = 1; nonempty = 1; } \ END { if (nonempty) { for (i in files) print i; }; }'`; \ test -z "$(CTAGS_ARGS)$$unique" \ || $(CTAGS) $(CTAGSFLAGS) $(AM_CTAGSFLAGS) $(CTAGS_ARGS) \ $$unique GTAGS: here=`$(am__cd) $(top_builddir) && pwd` \ && $(am__cd) $(top_srcdir) \ && gtags -i $(GTAGS_ARGS) "$$here" distclean-tags: -rm -f TAGS ID GTAGS GRTAGS GSYMS GPATH tags distdir: $(DISTFILES) @srcdirstrip=`echo "$(srcdir)" | sed 's/[].[^$$\\*]/\\\\&/g'`; \ topsrcdirstrip=`echo "$(top_srcdir)" | sed 's/[].[^$$\\*]/\\\\&/g'`; \ list='$(DISTFILES)'; \ dist_files=`for file in $$list; do echo $$file; done | \ sed -e "s|^$$srcdirstrip/||;t" \ -e "s|^$$topsrcdirstrip/|$(top_builddir)/|;t"`; \ case $$dist_files in \ */*) $(MKDIR_P) `echo "$$dist_files" | \ sed '/\//!d;s|^|$(distdir)/|;s,/[^/]*$$,,' | \ sort -u` ;; \ esac; \ for file in $$dist_files; do \ if test -f $$file || test -d $$file; then d=.; else d=$(srcdir); fi; \ if test -d $$d/$$file; then \ dir=`echo "/$$file" | sed -e 's,/[^/]*$$,,'`; \ if test -d "$(distdir)/$$file"; then \ find "$(distdir)/$$file" -type d ! -perm -700 -exec chmod u+rwx {} \;; \ fi; \ if test -d $(srcdir)/$$file && test $$d != $(srcdir); then \ cp -fpR $(srcdir)/$$file "$(distdir)$$dir" || exit 1; \ find "$(distdir)/$$file" -type d ! -perm -700 -exec chmod u+rwx {} \;; \ fi; \ cp -fpR $$d/$$file "$(distdir)$$dir" || exit 1; \ else \ test -f "$(distdir)/$$file" \ || cp -p $$d/$$file "$(distdir)/$$file" \ || exit 1; \ fi; \ done @list='$(DIST_SUBDIRS)'; for subdir in $$list; do \ if test "$$subdir" = .; then :; else \ $(am__make_dryrun) \ || test -d "$(distdir)/$$subdir" \ || $(MKDIR_P) "$(distdir)/$$subdir" \ || exit 1; \ dir1=$$subdir; dir2="$(distdir)/$$subdir"; \ $(am__relativize); \ new_distdir=$$reldir; \ dir1=$$subdir; dir2="$(top_distdir)"; \ $(am__relativize); \ new_top_distdir=$$reldir; \ echo " (cd $$subdir && $(MAKE) $(AM_MAKEFLAGS) top_distdir="$$new_top_distdir" distdir="$$new_distdir" \\"; \ echo " am__remove_distdir=: am__skip_length_check=: am__skip_mode_fix=: distdir)"; \ ($(am__cd) $$subdir && \ $(MAKE) $(AM_MAKEFLAGS) \ top_distdir="$$new_top_distdir" \ distdir="$$new_distdir" \ am__remove_distdir=: \ am__skip_length_check=: \ am__skip_mode_fix=: \ distdir) \ || exit 1; \ fi; \ done check-am: all-am check: check-recursive all-am: Makefile $(DATA) installdirs: installdirs-recursive installdirs-am: for dir in "$(DESTDIR)$(guilemoduledir)"; do \ test -z "$$dir" || $(MKDIR_P) "$$dir"; \ done install: install-recursive install-exec: install-exec-recursive install-data: install-data-recursive uninstall: uninstall-recursive install-am: all-am @$(MAKE) $(AM_MAKEFLAGS) install-exec-am install-data-am installcheck: installcheck-recursive install-strip: if test -z '$(STRIP)'; then \ $(MAKE) $(AM_MAKEFLAGS) INSTALL_PROGRAM="$(INSTALL_STRIP_PROGRAM)" \ install_sh_PROGRAM="$(INSTALL_STRIP_PROGRAM)" INSTALL_STRIP_FLAG=-s \ install; \ else \ $(MAKE) $(AM_MAKEFLAGS) INSTALL_PROGRAM="$(INSTALL_STRIP_PROGRAM)" \ install_sh_PROGRAM="$(INSTALL_STRIP_PROGRAM)" INSTALL_STRIP_FLAG=-s \ "INSTALL_PROGRAM_ENV=STRIPPROG='$(STRIP)'" install; \ fi mostlyclean-generic: clean-generic: distclean-generic: -test -z "$(CONFIG_CLEAN_FILES)" || rm -f $(CONFIG_CLEAN_FILES) -test . = "$(srcdir)" || test -z "$(CONFIG_CLEAN_VPATH_FILES)" || rm -f $(CONFIG_CLEAN_VPATH_FILES) maintainer-clean-generic: @echo "This command is intended for maintainers to use" @echo "it deletes files that may require special tools to rebuild." clean: clean-recursive clean-am: clean-generic clean-libtool mostlyclean-am distclean: distclean-recursive -rm -f Makefile distclean-am: clean-am distclean-generic distclean-tags dvi: dvi-recursive dvi-am: html: html-recursive html-am: info: info-recursive info-am: install-data-am: install-guilemoduleDATA install-dvi: install-dvi-recursive install-dvi-am: install-exec-am: install-html: install-html-recursive install-html-am: install-info: install-info-recursive install-info-am: install-man: install-pdf: install-pdf-recursive install-pdf-am: install-ps: install-ps-recursive install-ps-am: installcheck-am: maintainer-clean: maintainer-clean-recursive -rm -f Makefile maintainer-clean-am: distclean-am maintainer-clean-generic mostlyclean: mostlyclean-recursive mostlyclean-am: mostlyclean-generic mostlyclean-libtool pdf: pdf-recursive pdf-am: ps: ps-recursive ps-am: uninstall-am: uninstall-guilemoduleDATA .MAKE: $(RECURSIVE_CLEAN_TARGETS) $(RECURSIVE_TARGETS) ctags-recursive \ install-am install-strip tags-recursive .PHONY: $(RECURSIVE_CLEAN_TARGETS) $(RECURSIVE_TARGETS) CTAGS GTAGS \ all all-am check check-am clean clean-generic clean-libtool \ ctags ctags-recursive distclean distclean-generic \ distclean-libtool distclean-tags distdir dvi dvi-am html \ html-am info info-am install install-am install-data \ install-data-am install-dvi install-dvi-am install-exec \ install-exec-am install-guilemoduleDATA install-html \ install-html-am install-info install-info-am install-man \ install-pdf install-pdf-am install-ps install-ps-am \ install-strip installcheck installcheck-am installdirs \ installdirs-am maintainer-clean maintainer-clean-generic \ mostlyclean mostlyclean-generic mostlyclean-libtool pdf pdf-am \ ps ps-am tags tags-recursive uninstall uninstall-am \ uninstall-guilemoduleDATA export GUILE_LOAD_PATH .c.x: guile-snarf $(GUILE_SNARF_CFLAGS) $< > $@ \ || { rm $@; false; } .c.doc: $(CPP) -DSCM_MAGIC_SNARF_DOCS $(GUILE_SNARF_CFLAGS) $< \ | grep -E '(\^\^ {|\^\^ })' > $@ || { rm $@; false; } %.scm guile-gnome-gw-%.c: %-spec.scm guile $(GUILE_FLAGS) -c \ "(debug-set! stack 400000) \ (use-modules (gnome-@API_VERSION@)) \ (use-modules (g-wrap)) \ (use-modules (gnome gw $*-spec)) \ (generate-wrapset 'guile 'gnome-$* \"guile-gnome-gw-$*\")" mv guile-gnome-gw-$*.scm $*.scm %-@API_VERSION@.pc: %.pc cp $< $@ %-@API_VERSION@-uninstalled.pc: %-uninstalled.pc cp $< $@ # Tell versions [3.59,3.63) of GNU make to not export all variables. # Otherwise a system limit (for SysV at least) may be exceeded. .NOEXPORT: guile-gnome-platform-2.16.2/libglade/gnome/overrides/0000755000175000017500000000000011752546505023050 5ustar00wingowingo00000000000000guile-gnome-platform-2.16.2/libglade/gnome/overrides/Makefile.am0000644000175000017500000000020311670374303025071 0ustar00wingowingo00000000000000include $(top_srcdir)/common.mk moduledir = $(guilemoduledir)/overrides module_DATA = libglade.defs EXTRA_DIST = $(module_DATA) guile-gnome-platform-2.16.2/libglade/gnome/overrides/Makefile.in0000644000175000017500000004123211752520714025111 0ustar00wingowingo00000000000000# Makefile.in generated by automake 1.11.5 from Makefile.am. # @configure_input@ # Copyright (C) 1994, 1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, # 2003, 2004, 2005, 2006, 2007, 2008, 2009, 2010, 2011 Free Software # Foundation, Inc. # This Makefile.in is free software; the Free Software Foundation # gives unlimited permission to copy and/or distribute it, # with or without modifications, as long as this notice is preserved. # This program is distributed in the hope that it will be useful, # but WITHOUT ANY WARRANTY, to the extent permitted by law; without # even the implied warranty of MERCHANTABILITY or FITNESS FOR A # PARTICULAR PURPOSE. @SET_MAKE@ # guile-gnome # Copyright (C) 2003,2004,2009,2012 Free Software Foundation, Inc. # This program is free software; you can redistribute it and/or # modify it under the terms of the GNU General Public License as # published by the Free Software Foundation; either version 2 of # the License, or (at your option) any later version. # This program is distributed in the hope that it will be useful, # but WITHOUT ANY WARRANTY; without even the implied warranty of # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the # GNU General Public License for more details. # You should have received a copy of the GNU General Public License # along with this program; if not, contact: # Free Software Foundation Voice: +1-617-542-5942 # 59 Temple Place - Suite 330 Fax: +1-617-542-2652 # Boston, MA 02111-1307, USA gnu@gnu.org # # Makefile snippet # VPATH = @srcdir@ am__make_dryrun = \ { \ am__dry=no; \ case $$MAKEFLAGS in \ *\\[\ \ ]*) \ echo 'am--echo: ; @echo "AM" OK' | $(MAKE) -f - 2>/dev/null \ | grep '^AM OK$$' >/dev/null || am__dry=yes;; \ *) \ for am__flg in $$MAKEFLAGS; do \ case $$am__flg in \ *=*|--*) ;; \ *n*) am__dry=yes; break;; \ esac; \ done;; \ esac; \ test $$am__dry = yes; \ } pkgdatadir = $(datadir)/@PACKAGE@ pkgincludedir = $(includedir)/@PACKAGE@ pkglibdir = $(libdir)/@PACKAGE@ pkglibexecdir = $(libexecdir)/@PACKAGE@ am__cd = CDPATH="$${ZSH_VERSION+.}$(PATH_SEPARATOR)" && cd install_sh_DATA = $(install_sh) -c -m 644 install_sh_PROGRAM = $(install_sh) -c install_sh_SCRIPT = $(install_sh) -c INSTALL_HEADER = $(INSTALL_DATA) transform = $(program_transform_name) NORMAL_INSTALL = : PRE_INSTALL = : POST_INSTALL = : NORMAL_UNINSTALL = : PRE_UNINSTALL = : POST_UNINSTALL = : build_triplet = @build@ host_triplet = @host@ DIST_COMMON = $(srcdir)/Makefile.am $(srcdir)/Makefile.in \ $(top_srcdir)/common.mk subdir = libglade/gnome/overrides ACLOCAL_M4 = $(top_srcdir)/aclocal.m4 am__aclocal_m4_deps = $(top_srcdir)/configure.ac am__configure_deps = $(am__aclocal_m4_deps) $(CONFIGURE_DEPENDENCIES) \ $(ACLOCAL_M4) mkinstalldirs = $(install_sh) -d CONFIG_HEADER = $(top_builddir)/config.h CONFIG_CLEAN_FILES = CONFIG_CLEAN_VPATH_FILES = SOURCES = DIST_SOURCES = am__can_run_installinfo = \ case $$AM_UPDATE_INFO_DIR in \ n|no|NO) false;; \ *) (install-info --version) >/dev/null 2>&1;; \ esac am__vpath_adj_setup = srcdirstrip=`echo "$(srcdir)" | sed 's|.|.|g'`; am__vpath_adj = case $$p in \ $(srcdir)/*) f=`echo "$$p" | sed "s|^$$srcdirstrip/||"`;; \ *) f=$$p;; \ esac; am__strip_dir = f=`echo $$p | sed -e 's|^.*/||'`; am__install_max = 40 am__nobase_strip_setup = \ srcdirstrip=`echo "$(srcdir)" | sed 's/[].[^$$\\*|]/\\\\&/g'` am__nobase_strip = \ for p in $$list; do echo "$$p"; done | sed -e "s|$$srcdirstrip/||" am__nobase_list = $(am__nobase_strip_setup); \ for p in $$list; do echo "$$p $$p"; done | \ sed "s| $$srcdirstrip/| |;"' / .*\//!s/ .*/ ./; s,\( .*\)/[^/]*$$,\1,' | \ $(AWK) 'BEGIN { files["."] = "" } { files[$$2] = files[$$2] " " $$1; \ if (++n[$$2] == $(am__install_max)) \ { print $$2, files[$$2]; n[$$2] = 0; files[$$2] = "" } } \ END { for (dir in files) print dir, files[dir] }' am__base_list = \ sed '$$!N;$$!N;$$!N;$$!N;$$!N;$$!N;$$!N;s/\n/ /g' | \ sed '$$!N;$$!N;$$!N;$$!N;s/\n/ /g' am__uninstall_files_from_dir = { \ test -z "$$files" \ || { test ! -d "$$dir" && test ! -f "$$dir" && test ! -r "$$dir"; } \ || { echo " ( cd '$$dir' && rm -f" $$files ")"; \ $(am__cd) "$$dir" && rm -f $$files; }; \ } am__installdirs = "$(DESTDIR)$(moduledir)" DATA = $(module_DATA) DISTFILES = $(DIST_COMMON) $(DIST_SOURCES) $(TEXINFOS) $(EXTRA_DIST) ACLOCAL = @ACLOCAL@ AG_PKG_CONFIG_PATH = @AG_PKG_CONFIG_PATH@ AMTAR = @AMTAR@ API_VERSION = @API_VERSION@ AR = @AR@ ATK_CFLAGS = @ATK_CFLAGS@ ATK_LIBS = @ATK_LIBS@ AUTOCONF = @AUTOCONF@ AUTOHEADER = @AUTOHEADER@ AUTOMAKE = @AUTOMAKE@ AWK = @AWK@ BONOBO_IDL_DIR = @BONOBO_IDL_DIR@ CANVAS_CFLAGS = @CANVAS_CFLAGS@ CANVAS_LIBS = @CANVAS_LIBS@ CC = @CC@ CCDEPMODE = @CCDEPMODE@ CFLAGS = @CFLAGS@ CORBA_CFLAGS = @CORBA_CFLAGS@ CORBA_LIBS = @CORBA_LIBS@ CPP = @CPP@ CPPFLAGS = @CPPFLAGS@ CYGPATH_W = @CYGPATH_W@ DEFS = @DEFS@ DEPDIR = @DEPDIR@ DLLTOOL = @DLLTOOL@ DSYMUTIL = @DSYMUTIL@ DUMPBIN = @DUMPBIN@ ECHO_C = @ECHO_C@ ECHO_N = @ECHO_N@ ECHO_T = @ECHO_T@ EGREP = @EGREP@ EXEEXT = @EXEEXT@ FGREP = @FGREP@ GCONF_CFLAGS = @GCONF_CFLAGS@ GCONF_LIBS = @GCONF_LIBS@ GDK_CFLAGS = @GDK_CFLAGS@ GDK_LIBS = @GDK_LIBS@ GDK_PIXBUF_CFLAGS = @GDK_PIXBUF_CFLAGS@ GDK_PIXBUF_LIBS = @GDK_PIXBUF_LIBS@ GLIB_CFLAGS = @GLIB_CFLAGS@ GLIB_LIBS = @GLIB_LIBS@ GNOMEUI_DEPRECATION_FLAGS = @GNOMEUI_DEPRECATION_FLAGS@ GNOME_VFS_CFLAGS = @GNOME_VFS_CFLAGS@ GNOME_VFS_DEPRECATED_CFLAGS = @GNOME_VFS_DEPRECATED_CFLAGS@ GNOME_VFS_LIBS = @GNOME_VFS_LIBS@ GOBJECT_CFLAGS = @GOBJECT_CFLAGS@ GOBJECT_LIBS = @GOBJECT_LIBS@ GREP = @GREP@ GTHREAD_CFLAGS = @GTHREAD_CFLAGS@ GTHREAD_LIBS = @GTHREAD_LIBS@ GTK_CFLAGS = @GTK_CFLAGS@ GTK_DEPRECATED_CFLAGS = @GTK_DEPRECATED_CFLAGS@ GTK_LIBS = @GTK_LIBS@ GUILE_CAIRO_CFLAGS = @GUILE_CAIRO_CFLAGS@ GUILE_CAIRO_LIBS = @GUILE_CAIRO_LIBS@ GUILE_CFLAGS = @GUILE_CFLAGS@ GUILE_EFFECTIVE_VERSION = @GUILE_EFFECTIVE_VERSION@ GUILE_GLIB_CFLAGS = @GUILE_GLIB_CFLAGS@ GUILE_GLIB_LIBS = @GUILE_GLIB_LIBS@ GUILE_LIBS = @GUILE_LIBS@ G_WRAP_CFLAGS = @G_WRAP_CFLAGS@ G_WRAP_LIBS = @G_WRAP_LIBS@ G_WRAP_LIB_DIR = @G_WRAP_LIB_DIR@ G_WRAP_MODULE_DIR = @G_WRAP_MODULE_DIR@ INSTALL = @INSTALL@ INSTALL_DATA = @INSTALL_DATA@ INSTALL_PROGRAM = @INSTALL_PROGRAM@ INSTALL_SCRIPT = @INSTALL_SCRIPT@ INSTALL_STRIP_PROGRAM = @INSTALL_STRIP_PROGRAM@ LD = @LD@ LDFLAGS = @LDFLAGS@ LIBGLADE_CFLAGS = @LIBGLADE_CFLAGS@ LIBGLADE_LIBS = @LIBGLADE_LIBS@ LIBGNOMEUI_CFLAGS = @LIBGNOMEUI_CFLAGS@ LIBGNOMEUI_LIBS = @LIBGNOMEUI_LIBS@ LIBGNOME_CFLAGS = @LIBGNOME_CFLAGS@ LIBGNOME_LIBS = @LIBGNOME_LIBS@ LIBOBJS = @LIBOBJS@ LIBS = @LIBS@ LIBTOOL = @LIBTOOL@ LIPO = @LIPO@ LN_S = @LN_S@ LTLIBOBJS = @LTLIBOBJS@ MAKEINFO = @MAKEINFO@ MANIFEST_TOOL = @MANIFEST_TOOL@ MKDIR_P = @MKDIR_P@ NM = @NM@ NMEDIT = @NMEDIT@ OBJDUMP = @OBJDUMP@ OBJEXT = @OBJEXT@ ORBIT_IDL = @ORBIT_IDL@ OTOOL = @OTOOL@ OTOOL64 = @OTOOL64@ PACKAGE = @PACKAGE@ PACKAGE_BUGREPORT = @PACKAGE_BUGREPORT@ PACKAGE_NAME = @PACKAGE_NAME@ PACKAGE_STRING = @PACKAGE_STRING@ PACKAGE_TARNAME = @PACKAGE_TARNAME@ PACKAGE_URL = @PACKAGE_URL@ PACKAGE_VERSION = @PACKAGE_VERSION@ PANGOCAIRO_CFLAGS = @PANGOCAIRO_CFLAGS@ PANGOCAIRO_LIBS = @PANGOCAIRO_LIBS@ PANGO_CFLAGS = @PANGO_CFLAGS@ PANGO_LIBS = @PANGO_LIBS@ PATH_SEPARATOR = @PATH_SEPARATOR@ PKG_CONFIG = @PKG_CONFIG@ PKG_CONFIG_LIBDIR = @PKG_CONFIG_LIBDIR@ PKG_CONFIG_PATH = @PKG_CONFIG_PATH@ RANLIB = @RANLIB@ SED = @SED@ SET_MAKE = @SET_MAKE@ SHELL = @SHELL@ STRIP = @STRIP@ VERSION = @VERSION@ WARN_CFLAGS = @WARN_CFLAGS@ abs_builddir = @abs_builddir@ abs_srcdir = @abs_srcdir@ abs_top_builddir = @abs_top_builddir@ abs_top_srcdir = @abs_top_srcdir@ ac_ct_AR = @ac_ct_AR@ ac_ct_CC = @ac_ct_CC@ ac_ct_DUMPBIN = @ac_ct_DUMPBIN@ am__include = @am__include@ am__leading_dot = @am__leading_dot@ am__quote = @am__quote@ am__tar = @am__tar@ am__untar = @am__untar@ bindir = @bindir@ build = @build@ build_alias = @build_alias@ build_cpu = @build_cpu@ build_os = @build_os@ build_vendor = @build_vendor@ builddir = @builddir@ datadir = @datadir@ datarootdir = @datarootdir@ docdir = @docdir@ dvidir = @dvidir@ exec_prefix = @exec_prefix@ host = @host@ host_alias = @host_alias@ host_cpu = @host_cpu@ host_os = @host_os@ host_vendor = @host_vendor@ htmldir = @htmldir@ includedir = @includedir@ infodir = @infodir@ install_sh = @install_sh@ libdir = @libdir@ libexecdir = @libexecdir@ localedir = @localedir@ localstatedir = @localstatedir@ mandir = @mandir@ mkdir_p = @mkdir_p@ oldincludedir = @oldincludedir@ pdfdir = @pdfdir@ prefix = @prefix@ program_transform_name = @program_transform_name@ psdir = @psdir@ sbindir = @sbindir@ sharedstatedir = @sharedstatedir@ srcdir = @srcdir@ sysconfdir = @sysconfdir@ target_alias = @target_alias@ top_build_prefix = @top_build_prefix@ top_builddir = @top_builddir@ top_srcdir = @top_srcdir@ guilegnomedir = $(datadir)/guile-gnome-@API_VERSION@ guilemoduledir = $(guilegnomedir)/gnome guilegwmoduledir = $(guilegnomedir)/gnome/gw guilegnomelibdir = $(libdir)/guile-gnome-@API_VERSION@ AM_CFLAGS = -I. -I$(srcdir) $(WARN_CFLAGS) $(DEBUG_CFLAGS) # For overriding from the command line (e.g. --debug) GUILE_FLAGS = SUFFIXES = .x .doc GUILE_SNARF_CFLAGS = $(DEFS) $(AM_CFLAGS) $(GUILE_CFLAGS) $(G_WRAP_CFLAGS) PACKAGES = atk cairo corba defs gconf glib gnome-vfs gtk libglade libgnome libgnomecanvas libgnomeui pango SOURCE_GUILE_PATH = $(shell echo $(addprefix $(top_srcdir)/,$(PACKAGES)) | sed -e 's/ /:/g'):$(srcdir) BUILD_GUILE_PATH = $(if $(filter-out $(top_srcdir),$(top_builddir)),$(shell echo -n $(addprefix $(top_builddir)/,$(PACKAGES)): | sed -e 's/ /:/g'),) GUILE_LOAD_PATH := $(BUILD_GUILE_PATH)$(SOURCE_GUILE_PATH):${G_WRAP_MODULE_DIR}:${GUILE_LOAD_PATH} # Real gnu make foo packages = $(filter-out %-uninstalled,$(patsubst %.pc.in,%,$(notdir $(wildcard $(srcdir)/*.pc.in)))) pcifiles = $(patsubst %,%-@API_VERSION@.pc,$(packages)) pcufiles = $(patsubst %,%-@API_VERSION@-uninstalled.pc,$(packages)) moduledir = $(guilemoduledir)/overrides module_DATA = libglade.defs EXTRA_DIST = $(module_DATA) all: all-am .SUFFIXES: .SUFFIXES: .x .doc .c $(srcdir)/Makefile.in: $(srcdir)/Makefile.am $(top_srcdir)/common.mk $(am__configure_deps) @for dep in $?; do \ case '$(am__configure_deps)' in \ *$$dep*) \ ( cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh ) \ && { if test -f $@; then exit 0; else break; fi; }; \ exit 1;; \ esac; \ done; \ echo ' cd $(top_srcdir) && $(AUTOMAKE) --gnu libglade/gnome/overrides/Makefile'; \ $(am__cd) $(top_srcdir) && \ $(AUTOMAKE) --gnu libglade/gnome/overrides/Makefile .PRECIOUS: Makefile Makefile: $(srcdir)/Makefile.in $(top_builddir)/config.status @case '$?' in \ *config.status*) \ cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh;; \ *) \ echo ' cd $(top_builddir) && $(SHELL) ./config.status $(subdir)/$@ $(am__depfiles_maybe)'; \ cd $(top_builddir) && $(SHELL) ./config.status $(subdir)/$@ $(am__depfiles_maybe);; \ esac; $(top_srcdir)/common.mk: $(top_builddir)/config.status: $(top_srcdir)/configure $(CONFIG_STATUS_DEPENDENCIES) cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh $(top_srcdir)/configure: $(am__configure_deps) cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh $(ACLOCAL_M4): $(am__aclocal_m4_deps) cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh $(am__aclocal_m4_deps): mostlyclean-libtool: -rm -f *.lo clean-libtool: -rm -rf .libs _libs install-moduleDATA: $(module_DATA) @$(NORMAL_INSTALL) @list='$(module_DATA)'; test -n "$(moduledir)" || list=; \ if test -n "$$list"; then \ echo " $(MKDIR_P) '$(DESTDIR)$(moduledir)'"; \ $(MKDIR_P) "$(DESTDIR)$(moduledir)" || exit 1; \ fi; \ for p in $$list; do \ if test -f "$$p"; then d=; else d="$(srcdir)/"; fi; \ echo "$$d$$p"; \ done | $(am__base_list) | \ while read files; do \ echo " $(INSTALL_DATA) $$files '$(DESTDIR)$(moduledir)'"; \ $(INSTALL_DATA) $$files "$(DESTDIR)$(moduledir)" || exit $$?; \ done uninstall-moduleDATA: @$(NORMAL_UNINSTALL) @list='$(module_DATA)'; test -n "$(moduledir)" || list=; \ files=`for p in $$list; do echo $$p; done | sed -e 's|^.*/||'`; \ dir='$(DESTDIR)$(moduledir)'; $(am__uninstall_files_from_dir) tags: TAGS TAGS: ctags: CTAGS CTAGS: distdir: $(DISTFILES) @srcdirstrip=`echo "$(srcdir)" | sed 's/[].[^$$\\*]/\\\\&/g'`; \ topsrcdirstrip=`echo "$(top_srcdir)" | sed 's/[].[^$$\\*]/\\\\&/g'`; \ list='$(DISTFILES)'; \ dist_files=`for file in $$list; do echo $$file; done | \ sed -e "s|^$$srcdirstrip/||;t" \ -e "s|^$$topsrcdirstrip/|$(top_builddir)/|;t"`; \ case $$dist_files in \ */*) $(MKDIR_P) `echo "$$dist_files" | \ sed '/\//!d;s|^|$(distdir)/|;s,/[^/]*$$,,' | \ sort -u` ;; \ esac; \ for file in $$dist_files; do \ if test -f $$file || test -d $$file; then d=.; else d=$(srcdir); fi; \ if test -d $$d/$$file; then \ dir=`echo "/$$file" | sed -e 's,/[^/]*$$,,'`; \ if test -d "$(distdir)/$$file"; then \ find "$(distdir)/$$file" -type d ! -perm -700 -exec chmod u+rwx {} \;; \ fi; \ if test -d $(srcdir)/$$file && test $$d != $(srcdir); then \ cp -fpR $(srcdir)/$$file "$(distdir)$$dir" || exit 1; \ find "$(distdir)/$$file" -type d ! -perm -700 -exec chmod u+rwx {} \;; \ fi; \ cp -fpR $$d/$$file "$(distdir)$$dir" || exit 1; \ else \ test -f "$(distdir)/$$file" \ || cp -p $$d/$$file "$(distdir)/$$file" \ || exit 1; \ fi; \ done check-am: all-am check: check-am all-am: Makefile $(DATA) installdirs: for dir in "$(DESTDIR)$(moduledir)"; do \ test -z "$$dir" || $(MKDIR_P) "$$dir"; \ done install: install-am install-exec: install-exec-am install-data: install-data-am uninstall: uninstall-am install-am: all-am @$(MAKE) $(AM_MAKEFLAGS) install-exec-am install-data-am installcheck: installcheck-am install-strip: if test -z '$(STRIP)'; then \ $(MAKE) $(AM_MAKEFLAGS) INSTALL_PROGRAM="$(INSTALL_STRIP_PROGRAM)" \ install_sh_PROGRAM="$(INSTALL_STRIP_PROGRAM)" INSTALL_STRIP_FLAG=-s \ install; \ else \ $(MAKE) $(AM_MAKEFLAGS) INSTALL_PROGRAM="$(INSTALL_STRIP_PROGRAM)" \ install_sh_PROGRAM="$(INSTALL_STRIP_PROGRAM)" INSTALL_STRIP_FLAG=-s \ "INSTALL_PROGRAM_ENV=STRIPPROG='$(STRIP)'" install; \ fi mostlyclean-generic: clean-generic: distclean-generic: -test -z "$(CONFIG_CLEAN_FILES)" || rm -f $(CONFIG_CLEAN_FILES) -test . = "$(srcdir)" || test -z "$(CONFIG_CLEAN_VPATH_FILES)" || rm -f $(CONFIG_CLEAN_VPATH_FILES) maintainer-clean-generic: @echo "This command is intended for maintainers to use" @echo "it deletes files that may require special tools to rebuild." clean: clean-am clean-am: clean-generic clean-libtool mostlyclean-am distclean: distclean-am -rm -f Makefile distclean-am: clean-am distclean-generic dvi: dvi-am dvi-am: html: html-am html-am: info: info-am info-am: install-data-am: install-moduleDATA install-dvi: install-dvi-am install-dvi-am: install-exec-am: install-html: install-html-am install-html-am: install-info: install-info-am install-info-am: install-man: install-pdf: install-pdf-am install-pdf-am: install-ps: install-ps-am install-ps-am: installcheck-am: maintainer-clean: maintainer-clean-am -rm -f Makefile maintainer-clean-am: distclean-am maintainer-clean-generic mostlyclean: mostlyclean-am mostlyclean-am: mostlyclean-generic mostlyclean-libtool pdf: pdf-am pdf-am: ps: ps-am ps-am: uninstall-am: uninstall-moduleDATA .MAKE: install-am install-strip .PHONY: all all-am check check-am clean clean-generic clean-libtool \ distclean distclean-generic distclean-libtool distdir dvi \ dvi-am html html-am info info-am install install-am \ install-data install-data-am install-dvi install-dvi-am \ install-exec install-exec-am install-html install-html-am \ install-info install-info-am install-man install-moduleDATA \ install-pdf install-pdf-am install-ps install-ps-am \ install-strip installcheck installcheck-am installdirs \ maintainer-clean maintainer-clean-generic mostlyclean \ mostlyclean-generic mostlyclean-libtool pdf pdf-am ps ps-am \ uninstall uninstall-am uninstall-moduleDATA export GUILE_LOAD_PATH .c.x: guile-snarf $(GUILE_SNARF_CFLAGS) $< > $@ \ || { rm $@; false; } .c.doc: $(CPP) -DSCM_MAGIC_SNARF_DOCS $(GUILE_SNARF_CFLAGS) $< \ | grep -E '(\^\^ {|\^\^ })' > $@ || { rm $@; false; } %.scm guile-gnome-gw-%.c: %-spec.scm guile $(GUILE_FLAGS) -c \ "(debug-set! stack 400000) \ (use-modules (gnome-@API_VERSION@)) \ (use-modules (g-wrap)) \ (use-modules (gnome gw $*-spec)) \ (generate-wrapset 'guile 'gnome-$* \"guile-gnome-gw-$*\")" mv guile-gnome-gw-$*.scm $*.scm %-@API_VERSION@.pc: %.pc cp $< $@ %-@API_VERSION@-uninstalled.pc: %-uninstalled.pc cp $< $@ # Tell versions [3.59,3.63) of GNU make to not export all variables. # Otherwise a system limit (for SysV at least) may be exceeded. .NOEXPORT: guile-gnome-platform-2.16.2/libglade/gnome/overrides/libglade.defs0000644000175000017500000000516111670374303025453 0ustar00wingowingo00000000000000;; -*- scheme -*- ;; guile-gnome ;; Copyright (C) 2003,2004 Andy Wingo ;; This program is free software; you can redistribute it and/or ;; modify it under the terms of the GNU General Public License as ;; published by the Free Software Foundation; either version 2 of ;; the License, or (at your option) any later version. ;; ;; This program is distributed in the hope that it will be useful, ;; but WITHOUT ANY WARRANTY; without even the implied warranty of ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the ;; GNU General Public License for more details. ;; ;; You should have received a copy of the GNU General Public License ;; along with this program; if not, contact: ;; ;; Free Software Foundation Voice: +1-617-542-5942 ;; 59 Temple Place - Suite 330 Fax: +1-617-542-2652 ;; Boston, MA 02111-1307, USA gnu@gnu.org ;;; Commentary: ;; ;;Custom wrapper definitions. ;; ;;; Code: (define-function glade_xml_new (c-name "glade_xml_new") (overrides "glade_xml_new") (is-constructor-of "GladeXML") (return-type "GladeXML*") (parameters '("const-char*" "fname") '("const-char*" "root" (null-ok) (default "NULL")) '("const-char*" "domain" (null-ok) (default "NULL")))) (define-method get_widget_prefix (of-object "GladeXML") (c-name "glade_xml_get_widget_prefix") (overrides "glade_xml_get_widget_prefix") (return-type "GList*-of-GtkWidget*") (parameters (quote ("const-char*" "name")))) (define-function glade-xml-new-from-buffer (c-name "_wrap_glade_xml_new_from_buffer") (overrides "glade_xml_new_from_buffer") (return-type "GladeXML*") (is-constructor-of "GladeXML") (parameters '("const-char*" "buffer") '("const-char*" "root" (null-ok) (default "NULL")) '("const-char*" "domain" (null-ok) (default "NULL")))) (define-method signal_connect (of-object "GladeXML") (c-name "_wrap_glade_xml_signal_connect") (overrides "glade_xml_signal_connect") (return-type "none") (leave-guile-mode #f) (parameters '("const-char*" "handlername") '("SCM" "proc") ) ) (define-method signal_autoconnect (of-object "GladeXML") (c-name "_wrap_glade_xml_signal_autoconnect") (overrides "glade_xml_signal_autoconnect") (return-type "none") (leave-guile-mode #f) (parameters '("SCM" "module"))) (ignore-glob "*_get_type" "glade_xml_signal_*") (ignore "glade_xml_construct" "glade_set_custom_handler") guile-gnome-platform-2.16.2/libglade/gnome/glade.scm0000644000175000017500000000253211670374303022622 0ustar00wingowingo00000000000000;; guile-gnome ;; Copyright (C) 2003,2004 Andy Wingo ;; This program is free software; you can redistribute it and/or ;; modify it under the terms of the GNU General Public License as ;; published by the Free Software Foundation; either version 2 of ;; the License, or (at your option) any later version. ;; ;; This program is distributed in the hope that it will be useful, ;; but WITHOUT ANY WARRANTY; without even the implied warranty of ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the ;; GNU General Public License for more details. ;; ;; You should have received a copy of the GNU General Public License ;; along with this program; if not, contact: ;; ;; Free Software Foundation Voice: +1-617-542-5942 ;; 59 Temple Place - Suite 330 Fax: +1-617-542-2652 ;; Boston, MA 02111-1307, USA gnu@gnu.org ;;; Commentary: ;; ;;Libglade bindings. ;; ;;Should doc here about evaluating the signal handlers, and about ;;modules. ;; ;;; Code: (define-module (gnome glade) #:use-module (gnome gtk) #:use-module (gnome gw libglade) #:use-module (gnome gw support modules)) (re-export-modules (gnome gw libglade)) guile-gnome-platform-2.16.2/libglade/Makefile.am0000644000175000017500000000012311752516612021765 0ustar00wingowingo00000000000000SUBDIRS = gnome examples doc tests EXTRA_DIST = ChangeLog.pre-2.16 AUTHORS README guile-gnome-platform-2.16.2/libglade/Makefile.in0000644000175000017500000004537011752516633022016 0ustar00wingowingo00000000000000# Makefile.in generated by automake 1.11.5 from Makefile.am. # @configure_input@ # Copyright (C) 1994, 1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, # 2003, 2004, 2005, 2006, 2007, 2008, 2009, 2010, 2011 Free Software # Foundation, Inc. # This Makefile.in is free software; the Free Software Foundation # gives unlimited permission to copy and/or distribute it, # with or without modifications, as long as this notice is preserved. # This program is distributed in the hope that it will be useful, # but WITHOUT ANY WARRANTY, to the extent permitted by law; without # even the implied warranty of MERCHANTABILITY or FITNESS FOR A # PARTICULAR PURPOSE. @SET_MAKE@ VPATH = @srcdir@ am__make_dryrun = \ { \ am__dry=no; \ case $$MAKEFLAGS in \ *\\[\ \ ]*) \ echo 'am--echo: ; @echo "AM" OK' | $(MAKE) -f - 2>/dev/null \ | grep '^AM OK$$' >/dev/null || am__dry=yes;; \ *) \ for am__flg in $$MAKEFLAGS; do \ case $$am__flg in \ *=*|--*) ;; \ *n*) am__dry=yes; break;; \ esac; \ done;; \ esac; \ test $$am__dry = yes; \ } pkgdatadir = $(datadir)/@PACKAGE@ pkgincludedir = $(includedir)/@PACKAGE@ pkglibdir = $(libdir)/@PACKAGE@ pkglibexecdir = $(libexecdir)/@PACKAGE@ am__cd = CDPATH="$${ZSH_VERSION+.}$(PATH_SEPARATOR)" && cd install_sh_DATA = $(install_sh) -c -m 644 install_sh_PROGRAM = $(install_sh) -c install_sh_SCRIPT = $(install_sh) -c INSTALL_HEADER = $(INSTALL_DATA) transform = $(program_transform_name) NORMAL_INSTALL = : PRE_INSTALL = : POST_INSTALL = : NORMAL_UNINSTALL = : PRE_UNINSTALL = : POST_UNINSTALL = : build_triplet = @build@ host_triplet = @host@ subdir = libglade DIST_COMMON = README $(srcdir)/Makefile.am $(srcdir)/Makefile.in \ AUTHORS ChangeLog ACLOCAL_M4 = $(top_srcdir)/aclocal.m4 am__aclocal_m4_deps = $(top_srcdir)/configure.ac am__configure_deps = $(am__aclocal_m4_deps) $(CONFIGURE_DEPENDENCIES) \ $(ACLOCAL_M4) mkinstalldirs = $(install_sh) -d CONFIG_HEADER = $(top_builddir)/config.h CONFIG_CLEAN_FILES = CONFIG_CLEAN_VPATH_FILES = SOURCES = DIST_SOURCES = RECURSIVE_TARGETS = all-recursive check-recursive dvi-recursive \ html-recursive info-recursive install-data-recursive \ install-dvi-recursive install-exec-recursive \ install-html-recursive install-info-recursive \ install-pdf-recursive install-ps-recursive install-recursive \ installcheck-recursive installdirs-recursive pdf-recursive \ ps-recursive uninstall-recursive am__can_run_installinfo = \ case $$AM_UPDATE_INFO_DIR in \ n|no|NO) false;; \ *) (install-info --version) >/dev/null 2>&1;; \ esac RECURSIVE_CLEAN_TARGETS = mostlyclean-recursive clean-recursive \ distclean-recursive maintainer-clean-recursive AM_RECURSIVE_TARGETS = $(RECURSIVE_TARGETS:-recursive=) \ $(RECURSIVE_CLEAN_TARGETS:-recursive=) tags TAGS ctags CTAGS \ distdir ETAGS = etags CTAGS = ctags DIST_SUBDIRS = $(SUBDIRS) DISTFILES = $(DIST_COMMON) $(DIST_SOURCES) $(TEXINFOS) $(EXTRA_DIST) am__relativize = \ dir0=`pwd`; \ sed_first='s,^\([^/]*\)/.*$$,\1,'; \ sed_rest='s,^[^/]*/*,,'; \ sed_last='s,^.*/\([^/]*\)$$,\1,'; \ sed_butlast='s,/*[^/]*$$,,'; \ while test -n "$$dir1"; do \ first=`echo "$$dir1" | sed -e "$$sed_first"`; \ if test "$$first" != "."; then \ if test "$$first" = ".."; then \ dir2=`echo "$$dir0" | sed -e "$$sed_last"`/"$$dir2"; \ dir0=`echo "$$dir0" | sed -e "$$sed_butlast"`; \ else \ first2=`echo "$$dir2" | sed -e "$$sed_first"`; \ if test "$$first2" = "$$first"; then \ dir2=`echo "$$dir2" | sed -e "$$sed_rest"`; \ else \ dir2="../$$dir2"; \ fi; \ dir0="$$dir0"/"$$first"; \ fi; \ fi; \ dir1=`echo "$$dir1" | sed -e "$$sed_rest"`; \ done; \ reldir="$$dir2" ACLOCAL = @ACLOCAL@ AG_PKG_CONFIG_PATH = @AG_PKG_CONFIG_PATH@ AMTAR = @AMTAR@ API_VERSION = @API_VERSION@ AR = @AR@ ATK_CFLAGS = @ATK_CFLAGS@ ATK_LIBS = @ATK_LIBS@ AUTOCONF = @AUTOCONF@ AUTOHEADER = @AUTOHEADER@ AUTOMAKE = @AUTOMAKE@ AWK = @AWK@ BONOBO_IDL_DIR = @BONOBO_IDL_DIR@ CANVAS_CFLAGS = @CANVAS_CFLAGS@ CANVAS_LIBS = @CANVAS_LIBS@ CC = @CC@ CCDEPMODE = @CCDEPMODE@ CFLAGS = @CFLAGS@ CORBA_CFLAGS = @CORBA_CFLAGS@ CORBA_LIBS = @CORBA_LIBS@ CPP = @CPP@ CPPFLAGS = @CPPFLAGS@ CYGPATH_W = @CYGPATH_W@ DEFS = @DEFS@ DEPDIR = @DEPDIR@ DLLTOOL = @DLLTOOL@ DSYMUTIL = @DSYMUTIL@ DUMPBIN = @DUMPBIN@ ECHO_C = @ECHO_C@ ECHO_N = @ECHO_N@ ECHO_T = @ECHO_T@ EGREP = @EGREP@ EXEEXT = @EXEEXT@ FGREP = @FGREP@ GCONF_CFLAGS = @GCONF_CFLAGS@ GCONF_LIBS = @GCONF_LIBS@ GDK_CFLAGS = @GDK_CFLAGS@ GDK_LIBS = @GDK_LIBS@ GDK_PIXBUF_CFLAGS = @GDK_PIXBUF_CFLAGS@ GDK_PIXBUF_LIBS = @GDK_PIXBUF_LIBS@ GLIB_CFLAGS = @GLIB_CFLAGS@ GLIB_LIBS = @GLIB_LIBS@ GNOMEUI_DEPRECATION_FLAGS = @GNOMEUI_DEPRECATION_FLAGS@ GNOME_VFS_CFLAGS = @GNOME_VFS_CFLAGS@ GNOME_VFS_DEPRECATED_CFLAGS = @GNOME_VFS_DEPRECATED_CFLAGS@ GNOME_VFS_LIBS = @GNOME_VFS_LIBS@ GOBJECT_CFLAGS = @GOBJECT_CFLAGS@ GOBJECT_LIBS = @GOBJECT_LIBS@ GREP = @GREP@ GTHREAD_CFLAGS = @GTHREAD_CFLAGS@ GTHREAD_LIBS = @GTHREAD_LIBS@ GTK_CFLAGS = @GTK_CFLAGS@ GTK_DEPRECATED_CFLAGS = @GTK_DEPRECATED_CFLAGS@ GTK_LIBS = @GTK_LIBS@ GUILE_CAIRO_CFLAGS = @GUILE_CAIRO_CFLAGS@ GUILE_CAIRO_LIBS = @GUILE_CAIRO_LIBS@ GUILE_CFLAGS = @GUILE_CFLAGS@ GUILE_EFFECTIVE_VERSION = @GUILE_EFFECTIVE_VERSION@ GUILE_GLIB_CFLAGS = @GUILE_GLIB_CFLAGS@ GUILE_GLIB_LIBS = @GUILE_GLIB_LIBS@ GUILE_LIBS = @GUILE_LIBS@ G_WRAP_CFLAGS = @G_WRAP_CFLAGS@ G_WRAP_LIBS = @G_WRAP_LIBS@ G_WRAP_LIB_DIR = @G_WRAP_LIB_DIR@ G_WRAP_MODULE_DIR = @G_WRAP_MODULE_DIR@ INSTALL = @INSTALL@ INSTALL_DATA = @INSTALL_DATA@ INSTALL_PROGRAM = @INSTALL_PROGRAM@ INSTALL_SCRIPT = @INSTALL_SCRIPT@ INSTALL_STRIP_PROGRAM = @INSTALL_STRIP_PROGRAM@ LD = @LD@ LDFLAGS = @LDFLAGS@ LIBGLADE_CFLAGS = @LIBGLADE_CFLAGS@ LIBGLADE_LIBS = @LIBGLADE_LIBS@ LIBGNOMEUI_CFLAGS = @LIBGNOMEUI_CFLAGS@ LIBGNOMEUI_LIBS = @LIBGNOMEUI_LIBS@ LIBGNOME_CFLAGS = @LIBGNOME_CFLAGS@ LIBGNOME_LIBS = @LIBGNOME_LIBS@ LIBOBJS = @LIBOBJS@ LIBS = @LIBS@ LIBTOOL = @LIBTOOL@ LIPO = @LIPO@ LN_S = @LN_S@ LTLIBOBJS = @LTLIBOBJS@ MAKEINFO = @MAKEINFO@ MANIFEST_TOOL = @MANIFEST_TOOL@ MKDIR_P = @MKDIR_P@ NM = @NM@ NMEDIT = @NMEDIT@ OBJDUMP = @OBJDUMP@ OBJEXT = @OBJEXT@ ORBIT_IDL = @ORBIT_IDL@ OTOOL = @OTOOL@ OTOOL64 = @OTOOL64@ PACKAGE = @PACKAGE@ PACKAGE_BUGREPORT = @PACKAGE_BUGREPORT@ PACKAGE_NAME = @PACKAGE_NAME@ PACKAGE_STRING = @PACKAGE_STRING@ PACKAGE_TARNAME = @PACKAGE_TARNAME@ PACKAGE_URL = @PACKAGE_URL@ PACKAGE_VERSION = @PACKAGE_VERSION@ PANGOCAIRO_CFLAGS = @PANGOCAIRO_CFLAGS@ PANGOCAIRO_LIBS = @PANGOCAIRO_LIBS@ PANGO_CFLAGS = @PANGO_CFLAGS@ PANGO_LIBS = @PANGO_LIBS@ PATH_SEPARATOR = @PATH_SEPARATOR@ PKG_CONFIG = @PKG_CONFIG@ PKG_CONFIG_LIBDIR = @PKG_CONFIG_LIBDIR@ PKG_CONFIG_PATH = @PKG_CONFIG_PATH@ RANLIB = @RANLIB@ SED = @SED@ SET_MAKE = @SET_MAKE@ SHELL = @SHELL@ STRIP = @STRIP@ VERSION = @VERSION@ WARN_CFLAGS = @WARN_CFLAGS@ abs_builddir = @abs_builddir@ abs_srcdir = @abs_srcdir@ abs_top_builddir = @abs_top_builddir@ abs_top_srcdir = @abs_top_srcdir@ ac_ct_AR = @ac_ct_AR@ ac_ct_CC = @ac_ct_CC@ ac_ct_DUMPBIN = @ac_ct_DUMPBIN@ am__include = @am__include@ am__leading_dot = @am__leading_dot@ am__quote = @am__quote@ am__tar = @am__tar@ am__untar = @am__untar@ bindir = @bindir@ build = @build@ build_alias = @build_alias@ build_cpu = @build_cpu@ build_os = @build_os@ build_vendor = @build_vendor@ builddir = @builddir@ datadir = @datadir@ datarootdir = @datarootdir@ docdir = @docdir@ dvidir = @dvidir@ exec_prefix = @exec_prefix@ host = @host@ host_alias = @host_alias@ host_cpu = @host_cpu@ host_os = @host_os@ host_vendor = @host_vendor@ htmldir = @htmldir@ includedir = @includedir@ infodir = @infodir@ install_sh = @install_sh@ libdir = @libdir@ libexecdir = @libexecdir@ localedir = @localedir@ localstatedir = @localstatedir@ mandir = @mandir@ mkdir_p = @mkdir_p@ oldincludedir = @oldincludedir@ pdfdir = @pdfdir@ prefix = @prefix@ program_transform_name = @program_transform_name@ psdir = @psdir@ sbindir = @sbindir@ sharedstatedir = @sharedstatedir@ srcdir = @srcdir@ sysconfdir = @sysconfdir@ target_alias = @target_alias@ top_build_prefix = @top_build_prefix@ top_builddir = @top_builddir@ top_srcdir = @top_srcdir@ SUBDIRS = gnome examples doc tests EXTRA_DIST = ChangeLog.pre-2.16 AUTHORS README all: all-recursive .SUFFIXES: $(srcdir)/Makefile.in: $(srcdir)/Makefile.am $(am__configure_deps) @for dep in $?; do \ case '$(am__configure_deps)' in \ *$$dep*) \ ( cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh ) \ && { if test -f $@; then exit 0; else break; fi; }; \ exit 1;; \ esac; \ done; \ echo ' cd $(top_srcdir) && $(AUTOMAKE) --gnu libglade/Makefile'; \ $(am__cd) $(top_srcdir) && \ $(AUTOMAKE) --gnu libglade/Makefile .PRECIOUS: Makefile Makefile: $(srcdir)/Makefile.in $(top_builddir)/config.status @case '$?' in \ *config.status*) \ cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh;; \ *) \ echo ' cd $(top_builddir) && $(SHELL) ./config.status $(subdir)/$@ $(am__depfiles_maybe)'; \ cd $(top_builddir) && $(SHELL) ./config.status $(subdir)/$@ $(am__depfiles_maybe);; \ esac; $(top_builddir)/config.status: $(top_srcdir)/configure $(CONFIG_STATUS_DEPENDENCIES) cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh $(top_srcdir)/configure: $(am__configure_deps) cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh $(ACLOCAL_M4): $(am__aclocal_m4_deps) cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh $(am__aclocal_m4_deps): mostlyclean-libtool: -rm -f *.lo clean-libtool: -rm -rf .libs _libs # This directory's subdirectories are mostly independent; you can cd # into them and run `make' without going through this Makefile. # To change the values of `make' variables: instead of editing Makefiles, # (1) if the variable is set in `config.status', edit `config.status' # (which will cause the Makefiles to be regenerated when you run `make'); # (2) otherwise, pass the desired values on the `make' command line. $(RECURSIVE_TARGETS): @fail= failcom='exit 1'; \ for f in x $$MAKEFLAGS; do \ case $$f in \ *=* | --[!k]*);; \ *k*) failcom='fail=yes';; \ esac; \ done; \ dot_seen=no; \ target=`echo $@ | sed s/-recursive//`; \ list='$(SUBDIRS)'; for subdir in $$list; do \ echo "Making $$target in $$subdir"; \ if test "$$subdir" = "."; then \ dot_seen=yes; \ local_target="$$target-am"; \ else \ local_target="$$target"; \ fi; \ ($(am__cd) $$subdir && $(MAKE) $(AM_MAKEFLAGS) $$local_target) \ || eval $$failcom; \ done; \ if test "$$dot_seen" = "no"; then \ $(MAKE) $(AM_MAKEFLAGS) "$$target-am" || exit 1; \ fi; test -z "$$fail" $(RECURSIVE_CLEAN_TARGETS): @fail= failcom='exit 1'; \ for f in x $$MAKEFLAGS; do \ case $$f in \ *=* | --[!k]*);; \ *k*) failcom='fail=yes';; \ esac; \ done; \ dot_seen=no; \ case "$@" in \ distclean-* | maintainer-clean-*) list='$(DIST_SUBDIRS)' ;; \ *) list='$(SUBDIRS)' ;; \ esac; \ rev=''; for subdir in $$list; do \ if test "$$subdir" = "."; then :; else \ rev="$$subdir $$rev"; \ fi; \ done; \ rev="$$rev ."; \ target=`echo $@ | sed s/-recursive//`; \ for subdir in $$rev; do \ echo "Making $$target in $$subdir"; \ if test "$$subdir" = "."; then \ local_target="$$target-am"; \ else \ local_target="$$target"; \ fi; \ ($(am__cd) $$subdir && $(MAKE) $(AM_MAKEFLAGS) $$local_target) \ || eval $$failcom; \ done && test -z "$$fail" tags-recursive: list='$(SUBDIRS)'; for subdir in $$list; do \ test "$$subdir" = . || ($(am__cd) $$subdir && $(MAKE) $(AM_MAKEFLAGS) tags); \ done ctags-recursive: list='$(SUBDIRS)'; for subdir in $$list; do \ test "$$subdir" = . || ($(am__cd) $$subdir && $(MAKE) $(AM_MAKEFLAGS) ctags); \ done ID: $(HEADERS) $(SOURCES) $(LISP) $(TAGS_FILES) list='$(SOURCES) $(HEADERS) $(LISP) $(TAGS_FILES)'; \ unique=`for i in $$list; do \ if test -f "$$i"; then echo $$i; else echo $(srcdir)/$$i; fi; \ done | \ $(AWK) '{ files[$$0] = 1; nonempty = 1; } \ END { if (nonempty) { for (i in files) print i; }; }'`; \ mkid -fID $$unique tags: TAGS TAGS: tags-recursive $(HEADERS) $(SOURCES) $(TAGS_DEPENDENCIES) \ $(TAGS_FILES) $(LISP) set x; \ here=`pwd`; \ if ($(ETAGS) --etags-include --version) >/dev/null 2>&1; then \ include_option=--etags-include; \ empty_fix=.; \ else \ include_option=--include; \ empty_fix=; \ fi; \ list='$(SUBDIRS)'; for subdir in $$list; do \ if test "$$subdir" = .; then :; else \ test ! -f $$subdir/TAGS || \ set "$$@" "$$include_option=$$here/$$subdir/TAGS"; \ fi; \ done; \ list='$(SOURCES) $(HEADERS) $(LISP) $(TAGS_FILES)'; \ unique=`for i in $$list; do \ if test -f "$$i"; then echo $$i; else echo $(srcdir)/$$i; fi; \ done | \ $(AWK) '{ files[$$0] = 1; nonempty = 1; } \ END { if (nonempty) { for (i in files) print i; }; }'`; \ shift; \ if test -z "$(ETAGS_ARGS)$$*$$unique"; then :; else \ test -n "$$unique" || unique=$$empty_fix; \ if test $$# -gt 0; then \ $(ETAGS) $(ETAGSFLAGS) $(AM_ETAGSFLAGS) $(ETAGS_ARGS) \ "$$@" $$unique; \ else \ $(ETAGS) $(ETAGSFLAGS) $(AM_ETAGSFLAGS) $(ETAGS_ARGS) \ $$unique; \ fi; \ fi ctags: CTAGS CTAGS: ctags-recursive $(HEADERS) $(SOURCES) $(TAGS_DEPENDENCIES) \ $(TAGS_FILES) $(LISP) list='$(SOURCES) $(HEADERS) $(LISP) $(TAGS_FILES)'; \ unique=`for i in $$list; do \ if test -f "$$i"; then echo $$i; else echo $(srcdir)/$$i; fi; \ done | \ $(AWK) '{ files[$$0] = 1; nonempty = 1; } \ END { if (nonempty) { for (i in files) print i; }; }'`; \ test -z "$(CTAGS_ARGS)$$unique" \ || $(CTAGS) $(CTAGSFLAGS) $(AM_CTAGSFLAGS) $(CTAGS_ARGS) \ $$unique GTAGS: here=`$(am__cd) $(top_builddir) && pwd` \ && $(am__cd) $(top_srcdir) \ && gtags -i $(GTAGS_ARGS) "$$here" distclean-tags: -rm -f TAGS ID GTAGS GRTAGS GSYMS GPATH tags distdir: $(DISTFILES) @srcdirstrip=`echo "$(srcdir)" | sed 's/[].[^$$\\*]/\\\\&/g'`; \ topsrcdirstrip=`echo "$(top_srcdir)" | sed 's/[].[^$$\\*]/\\\\&/g'`; \ list='$(DISTFILES)'; \ dist_files=`for file in $$list; do echo $$file; done | \ sed -e "s|^$$srcdirstrip/||;t" \ -e "s|^$$topsrcdirstrip/|$(top_builddir)/|;t"`; \ case $$dist_files in \ */*) $(MKDIR_P) `echo "$$dist_files" | \ sed '/\//!d;s|^|$(distdir)/|;s,/[^/]*$$,,' | \ sort -u` ;; \ esac; \ for file in $$dist_files; do \ if test -f $$file || test -d $$file; then d=.; else d=$(srcdir); fi; \ if test -d $$d/$$file; then \ dir=`echo "/$$file" | sed -e 's,/[^/]*$$,,'`; \ if test -d "$(distdir)/$$file"; then \ find "$(distdir)/$$file" -type d ! -perm -700 -exec chmod u+rwx {} \;; \ fi; \ if test -d $(srcdir)/$$file && test $$d != $(srcdir); then \ cp -fpR $(srcdir)/$$file "$(distdir)$$dir" || exit 1; \ find "$(distdir)/$$file" -type d ! -perm -700 -exec chmod u+rwx {} \;; \ fi; \ cp -fpR $$d/$$file "$(distdir)$$dir" || exit 1; \ else \ test -f "$(distdir)/$$file" \ || cp -p $$d/$$file "$(distdir)/$$file" \ || exit 1; \ fi; \ done @list='$(DIST_SUBDIRS)'; for subdir in $$list; do \ if test "$$subdir" = .; then :; else \ $(am__make_dryrun) \ || test -d "$(distdir)/$$subdir" \ || $(MKDIR_P) "$(distdir)/$$subdir" \ || exit 1; \ dir1=$$subdir; dir2="$(distdir)/$$subdir"; \ $(am__relativize); \ new_distdir=$$reldir; \ dir1=$$subdir; dir2="$(top_distdir)"; \ $(am__relativize); \ new_top_distdir=$$reldir; \ echo " (cd $$subdir && $(MAKE) $(AM_MAKEFLAGS) top_distdir="$$new_top_distdir" distdir="$$new_distdir" \\"; \ echo " am__remove_distdir=: am__skip_length_check=: am__skip_mode_fix=: distdir)"; \ ($(am__cd) $$subdir && \ $(MAKE) $(AM_MAKEFLAGS) \ top_distdir="$$new_top_distdir" \ distdir="$$new_distdir" \ am__remove_distdir=: \ am__skip_length_check=: \ am__skip_mode_fix=: \ distdir) \ || exit 1; \ fi; \ done check-am: all-am check: check-recursive all-am: Makefile installdirs: installdirs-recursive installdirs-am: install: install-recursive install-exec: install-exec-recursive install-data: install-data-recursive uninstall: uninstall-recursive install-am: all-am @$(MAKE) $(AM_MAKEFLAGS) install-exec-am install-data-am installcheck: installcheck-recursive install-strip: if test -z '$(STRIP)'; then \ $(MAKE) $(AM_MAKEFLAGS) INSTALL_PROGRAM="$(INSTALL_STRIP_PROGRAM)" \ install_sh_PROGRAM="$(INSTALL_STRIP_PROGRAM)" INSTALL_STRIP_FLAG=-s \ install; \ else \ $(MAKE) $(AM_MAKEFLAGS) INSTALL_PROGRAM="$(INSTALL_STRIP_PROGRAM)" \ install_sh_PROGRAM="$(INSTALL_STRIP_PROGRAM)" INSTALL_STRIP_FLAG=-s \ "INSTALL_PROGRAM_ENV=STRIPPROG='$(STRIP)'" install; \ fi mostlyclean-generic: clean-generic: distclean-generic: -test -z "$(CONFIG_CLEAN_FILES)" || rm -f $(CONFIG_CLEAN_FILES) -test . = "$(srcdir)" || test -z "$(CONFIG_CLEAN_VPATH_FILES)" || rm -f $(CONFIG_CLEAN_VPATH_FILES) maintainer-clean-generic: @echo "This command is intended for maintainers to use" @echo "it deletes files that may require special tools to rebuild." clean: clean-recursive clean-am: clean-generic clean-libtool mostlyclean-am distclean: distclean-recursive -rm -f Makefile distclean-am: clean-am distclean-generic distclean-tags dvi: dvi-recursive dvi-am: html: html-recursive html-am: info: info-recursive info-am: install-data-am: install-dvi: install-dvi-recursive install-dvi-am: install-exec-am: install-html: install-html-recursive install-html-am: install-info: install-info-recursive install-info-am: install-man: install-pdf: install-pdf-recursive install-pdf-am: install-ps: install-ps-recursive install-ps-am: installcheck-am: maintainer-clean: maintainer-clean-recursive -rm -f Makefile maintainer-clean-am: distclean-am maintainer-clean-generic mostlyclean: mostlyclean-recursive mostlyclean-am: mostlyclean-generic mostlyclean-libtool pdf: pdf-recursive pdf-am: ps: ps-recursive ps-am: uninstall-am: .MAKE: $(RECURSIVE_CLEAN_TARGETS) $(RECURSIVE_TARGETS) ctags-recursive \ install-am install-strip tags-recursive .PHONY: $(RECURSIVE_CLEAN_TARGETS) $(RECURSIVE_TARGETS) CTAGS GTAGS \ all all-am check check-am clean clean-generic clean-libtool \ ctags ctags-recursive distclean distclean-generic \ distclean-libtool distclean-tags distdir dvi dvi-am html \ html-am info info-am install install-am install-data \ install-data-am install-dvi install-dvi-am install-exec \ install-exec-am install-html install-html-am install-info \ install-info-am install-man install-pdf install-pdf-am \ install-ps install-ps-am install-strip installcheck \ installcheck-am installdirs installdirs-am maintainer-clean \ maintainer-clean-generic mostlyclean mostlyclean-generic \ mostlyclean-libtool pdf pdf-am ps ps-am tags tags-recursive \ uninstall uninstall-am # Tell versions [3.59,3.63) of GNU make to not export all variables. # Otherwise a system limit (for SysV at least) may be exceeded. .NOEXPORT: guile-gnome-platform-2.16.2/libglade/README0000644000175000017500000000160711670374303020617 0ustar00wingowingo00000000000000guile-gnome-libglade README Copyright (C) 2004 Free Software Foundation, Inc. See the end for copying conditions of this file. Last updated 16 September 2004. About guile-gnome-libglade ========================== guile-gnome-libglade is a Guile wrapper for libglade. It is a part of GNU guile-gnome. See the README file in the toplevel source directory for more information. Build dependencies ================== Besides the base guile-gnome requirements given in ../README, guile-gnome-libglade requires libglade development packages. guile-gnome-libglade depends on the following guile-gnome modules: glib, defs, atk, pango, gtk. Copying this file ================= Copyright (C) 2004 Free Software Foundation, Inc. Copying and distribution of this file, with or without modification, are permitted in any medium without royalty provided the copyright notice and this notice are preserved. guile-gnome-platform-2.16.2/libglade/AUTHORS0000644000175000017500000000063411670374303021006 0ustar00wingowingo00000000000000To find out what should go in this file, see "Information For Maintainers of GNU Software" (maintain.texi), the section called "Recording Changes". Andy Wingo: In the directory gnome/gw, wrote: libglade-spec.scm glade-support.c glade-support.h In the directory gnome/overrides, wrote: libglade.defs In the directory gnome, wrote: glade.scm In the directory examples, wrote: test.glade test.scm guile-gnome-platform-2.16.2/libglade/ChangeLog.pre-2.160000644000175000017500000001732011670374303022661 0ustar00wingowingo000000000000002008-05-01 Andy Wingo * doc/overview.texi (Overview): Add overview with example. * doc/overrides.texi: Add some overrides, yay. * doc/defuns-glade-xml.xml.texi: Regenerate. 2008-04-25 Andy Wingo * == Released guile-gnome-platform version 2.15.98 == 2008-04-25 Andy Wingo * examples/test.scm: Update example to use gnome-2. * doc/*.texi: Update docs. 2008-04-10 Andy Wingo * == Released guile-gnome-platform version 2.15.97 == 2008-04-10 Andy Wingo * NEWS: Update NEWS. 2008-04-08 Andy Wingo * gnome/gw/glade-support.c (connect_one): Remove needless cast. (guile_glade_custom_handler): Use the two-arg scm_c_scm_to_gtype_instance_typed. 2007-12-10 Andy Wingo * == Released guile-gnome-platform version 2.15.96 == 2007-12-08 Andy Wingo * examples/test.scm: Mark as scheme mode. Import (oop goops) so the crack creation_function code works. 2007-12-06 Andy Wingo * tests/wrapset.api: Regenerate. * doc/defuns-*.texi: Regenerated. * doc/guile-gnome-libglade.texi (Top): * doc/undocumented.texi: New section for undocumented exports. 2007-11-30 Andy Wingo * doc/guile-gnome-libglade.texi (Top): Add type index. 2007-11-10 Andy Wingo * == Released guile-gnome-platform version 2.15.95 == 2007-11-10 Andy Wingo * tests/Makefile.am: * tests/wrapset.api: * tests/wrapset.scm: Add API regression test suite. 2007-11-01 Andy Wingo * Makefile.am: * doc/: Add documentation, generated from upstream gtk-doc. 2007-09-25 Andy Wingo * == Released guile-gnome-platform version 2.15.94 == 2007-09-25 Andy Wingo * NEWS: Updated. 2007-06-15 Andy Wingo * == Released guile-gnome-platform version 2.15.93 == 2007-05-24 Andy Wingo * == Released guile-gnome-platform version 2.15.92 == 2007-05-24 Andy Wingo * gnome/overrides/libglade.defs: Update for autogenerated libglade defs. 2007-05-10 Andy Wingo * == Released guile-gnome-platform version 2.15.91 == 2007-02-02 Andy Wingo * gnome/overrides/libglade.defs (signal_connect) (signal_autoconnect): Don't leave guile mode for these functions. 2006-12-15 Andy Wingo * == Released guile-gnome-platform version 2.15.90 == 2006-11-05 Andy Wingo * gnome/gw/libglade-spec.scm: Use (gnome gw support g-wrap), the g-wrap compatibility wrapper. 2005-04-10 Andreas Rottmann * gnome/gw/glade-support.c: Use new SCM<->gpointer conversion macros. 2005-03-06 Andy Wingo * == Released guile-gnome-platform version 2.7.99 == 2005-01-11 Andy Wingo * == Released platform version 2.7.98 == 2004-12-06 Andy Wingo * == Released platform version 2.7.97 == 2004-11-15 Andy Wingo * package.ac: Add record_check. 2004-10-28 Andy Wingo * gtk-checks.ac: * glib-checks.ac: * defs-checks.ac: Versioned pkg-config check. * examples/test.scm: Use "exec guile-gnome-0 ..." 2004-10-26 Andy Wingo * gnome/gw/Makefile.am (guilegnomelib_LTLIBRARIES): Install to versioned directory. 2004-09-27 Andy Wingo * gnome/glade.scm: Avoid deprecated modules. * examples/test.scm: Add license block. 2004-09-19 Andy Wingo * gnome/gw/Makefile.am (libgw_guile_gnome_libglade_la_LIBADD): Not G_WRAP_LINK_ARGS, it's G_WRAP_LIBS. 2004-09-16 Andy Wingo * Makefile.am (SUBDIRS): Dist fixes. * README: Added. * NEWS: Added. * AUTHORS: Added. * gtk-checks.ac: Check the right package. * glib-checks.ac: Check the right package. 2004-09-12 Andy Wingo * defs-checks.ac: New file. * gnome/gw/Makefile.am (libgw_guile_gnome_libglade_la_SOURCES): Don't dist the g-wrap generated C file. * Makefile.am (EXTRA_DIST): Add the .ac files to the dist. * gnome/overrides/Makefile.am, gnome/overrides/libglade.defs: Add overrides to the libglade module. * gnome/Makefile.am: Fix for overrides, dist stuff. * gnome/gw/libglade-spec.scm (initialize): Use load-defs-with-overrides, new module locations. 2004-08-06 Andreas Rottmann * gnome/Makefile.am: Distribute and install glade.scm. * examples/test.scm: Use (gnome glade) instead of (gnome gw libglade). 2004-07-01 Andy Wingo * gnome/gw/libglade-spec.scm (initializations-cg): Fix module stuff. * gnome/glade.scm (gnome): Fix name. * gnome/gw/libglade-spec.scm (initialize): Fix for depends-on!. * gnome/glade.scm: New file. * gnome/gw/glade-support.[ch]: Evaluate expressions in the (gnome gw libglade) module, scm_module_gobject isn't exported any more. * ChangeLog: Merged all ChangeLogs into this one, and elided entries that didn't deal with glade. * gtk-checks.ac: New file. 2004-05-22 Andy Wingo * gnome/gw/glade-support.c: Evaluate expressions in the (gnome gw glade) module. * ChangeLog: Merged all ChangeLogs into this one, and elided entries that didn't deal with glade. 2004-01-14 Andy Wingo * gnome/gw/glade-support.c (handle_read_error): New function. (connect_many): Use scm_internal_catch with handle_read_error around scm_c_read_string. 2004-01-14 Andy Wingo * gnome/gw/glade-support.c (handle_read_error): New function. (connect_many): Use scm_internal_catch with handle_read_error around scm_c_read_string. 2003-11-25 Andreas Rottmann * gnome/gw/gw-glade-spec.scm: Use gw-standard instead of guile-gnome-gw-standard. 2003-11-25 Andreas Rottmann * gnome/gw/gw-glade-spec.scm: Use gw-standard instead of guile-gnome-gw-standard. 2003-10-29 Andy Wingo * gnome/gw/glade-support.c (guile_glade_custom_handler): Don't expect a procedure from the widget handler, only a widget. So if you want to call a procedure, put it in parentheses. 2003-10-29 Andy Wingo * gnome/gw/glade-support.c (guile_glade_custom_handler): Don't expect a procedure from the widget handler, only a widget. So if you want to call a procedure, put it in parentheses. 2003-10-26 Andy Wingo * gnome/gw/gw-glade-spec.scm: Set the custom handler on library init. * gnome/gw/glade-support.c (connect_many): Use scm_c_eval_str instead of scm_c_lookup; this allows lambda expressions, etc. (guile_glade_custom_handler): New function, handles glade's custom widget facility. 2003-10-26 Andy Wingo * gnome/gw/gw-glade-spec.scm: Set the custom handler on library init. * gnome/gw/glade-support.c (connect_many): Use scm_c_eval_str instead of scm_c_lookup; this allows lambda expressions, etc. (guile_glade_custom_handler): New function, handles glade's custom widget facility. 2003-10-01 Andy Wingo * gnome/gw/glade-support.[ch]: New files. Contains custom wrappers for glade_xml_new_from_buffer, glade_xml_signal_connect, and glade_xml_signal_autoconnect. * gnome/gw/Makefile.am: Support the glade build. * gnome/gw/generics.scm: Remove functions->methods-public. * gnome/gw/gw-glade-spec.scm: New file. 2003-10-01 Andy Wingo * gnome/gw/glade-support.[ch]: New files. Contains custom wrappers for glade_xml_new_from_buffer, glade_xml_signal_connect, and glade_xml_signal_autoconnect. * gnome/gw/Makefile.am: Support the glade build. * gnome/gw/gw-glade-spec.scm: New file. * configure.in: Check to see if glade is installed. guile-gnome-platform-2.16.2/libglade/ChangeLog0000644000175000017500000000006711670374303021510 0ustar00wingowingo00000000000000See the revision control log for changes since 2.16.0. guile-gnome-platform-2.16.2/pango/0000755000175000017500000000000011752546501017276 5ustar00wingowingo00000000000000guile-gnome-platform-2.16.2/pango/doc/0000755000175000017500000000000011752546501020043 5ustar00wingowingo00000000000000guile-gnome-platform-2.16.2/pango/doc/pango/0000755000175000017500000000000011752546501021147 5ustar00wingowingo00000000000000guile-gnome-platform-2.16.2/pango/doc/pango/undocumented.texi0000644000175000017500000000266511670374303024543 0ustar00wingowingo00000000000000 @c %start of fragment @node Undocumented @chapter Undocumented The following symbols, if any, have not been properly documented. @section (gnome gw pango) @defvar pango-context-get-font-description @end defvar @defvar pango-font-describe-with-absolute-size @end defvar @defvar pango-font-description-copy-static @end defvar @defvar pango-font-description-from-string @end defvar @defvar pango-font-description-get-set-fields @end defvar @defvar pango-font-description-get-size-is-absolute @end defvar @defvar pango-font-description-set-absolute-size @end defvar @defvar pango-font-description-set-family-static @end defvar @defvar pango-font-metrics-get-approximate-char-width @end defvar @defvar pango-font-metrics-get-approximate-digit-width @end defvar @defvar pango-font-metrics-get-strikethrough-position @end defvar @defvar pango-font-metrics-get-strikethrough-thickness @end defvar @defvar pango-font-metrics-get-underline-position @end defvar @defvar pango-font-metrics-get-underline-thickness @end defvar @defun pango-glyph-string-get-logical-widths @end defun @defvar pango-layout-get-font-description @end defvar @defvar pango-layout-get-single-paragraph-mode @end defvar @defun pango-layout-iter-get-cluster-extents @end defun @defun pango-layout-iter-get-layout-extents @end defun @defvar pango-layout-set-single-paragraph-mode @end defvar @defvar pango-tab-array-get-positions-in-pixels @end defvar @c %end of fragment guile-gnome-platform-2.16.2/pango/doc/pango/defuns-scripts.xml.texi0000644000175000017500000000734011670374303025614 0ustar00wingowingo00000000000000 @c %start of fragment @deftp Class Opaque pointer. This class defines no direct slots. @end deftp @deffn Function pango-script-for-unichar (ch@tie{}@code{unsigned-int32}) @result{}@tie{} (ret@tie{}@code{}) Looks up the @code{} for a particular character (as defined by Unicode Standard Annex @code{<24>}). No check is made for @var{ch} being a valid Unicode character; if you pass in invalid character, the result is undefined. @table @var @item ch a Unicode character @item ret the @code{} for the character. @end table Since 1.4 @end deffn @deffn Function pango-script-get-sample-language (script@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{}) Given a script, finds a language tag that is reasonably representative of that script. This will usually be the most widely spoken or used language written in that script: for instance, the sample language for @samp{PANGO_SCRIPT_CYRILLIC} is @samp{ru} (Russian), the sample language for @samp{PANGO_SCRIPT_ARABIC} is @samp{ar}. For some scripts, no sample language will be returned because there is no language that is sufficiently representative. The best example of this is @samp{PANGO_SCRIPT_HAN}, where various different variants of written Chinese, Japanese, and Korean all use significantly different sets of Han characters and forms of shared characters. No sample language can be provided for many historical scripts as well. @table @var @item script a @code{} @item ret a @code{} that is representative of the script, or @samp{@code{#f}} if no such language exists. @end table Since 1.4 @end deffn @deffn Function pango-language-includes-script (self@tie{}@code{}) (script@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{bool}) Determines if @var{script} is one of the scripts used to write @var{language}. The returned value is conservative; if nothing is known about the language tag @var{language}, @samp{@code{#t}} will be returned, since, as far as Pango knows, @var{script} might be used to write @var{language}. This routine is used in Pango's itemization process when determining if a supplied language tag is relevant to a particular section of text. It probably is not useful for applications in most circumstances. @table @var @item language a @code{} @item script a @code{} @item ret @samp{@code{#t}} if @var{script} is one of the scripts used to write @var{language}, or if nothing is known about @var{language}. @end table Since 1.4 @end deffn @deffn Function pango-script-iter-new (text@tie{}@code{mchars}) (length@tie{}@code{int}) @result{}@tie{} (ret@tie{}@code{}) Create a new @code{}, used to break a string of Unicode into runs by text. No copy is made of @var{text}, so the caller needs to make sure it remains valid until the iterator is freed with @code{pango-script-iter-free}.x @table @var @item text a UTF-8 string @item length length of @var{text}, or -1 if @var{text} is nul-terminated. @item ret the new script iterator, initialized to point at the first range in the text, which should be freed with @code{pango-script-iter-free}. If the string is empty, it will point at an empty range. @end table Since 1.4 @end deffn @deffn Function pango-script-iter-next (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{bool}) Advances a @code{} to the next range. If @var{iter} is already at the end, it is left unchanged and @samp{@code{#f}} is returned. @table @var @item iter a @code{} @item ret @samp{@code{#t}} if @var{iter} was successfully advanced. @end table Since 1.4 @end deffn @c %end of fragment guile-gnome-platform-2.16.2/pango/doc/pango/defuns-main.xml.texi0000644000175000017500000003430411670374303025051 0ustar00wingowingo00000000000000 @c %start of fragment @deftp Class Derives from @code{}. This class defines no direct slots. @end deftp @deftp Class Derives from @code{}. This class defines no direct slots. @end deftp @deffn Function pango-itemize (context@tie{}@code{}) (text@tie{}@code{mchars}) (start_index@tie{}@code{int}) (length@tie{}@code{int}) (attrs@tie{}@code{}) (cached_iter@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{glist-of}) Breaks a piece of text into segments with consistent directional level and shaping engine. Each byte of @var{text} will be contained in exactly one of the items in the returned list; the generated list of items will be in logical order (the start offsets of the items are ascending). @var{cached-iter} should be an iterator over @var{attrs} currently positioned at a range before or containing @var{start-index}; @var{cached-iter} will be advanced to the range covering the position just after @var{start-index} + @var{length}. (i.e. if itemizing in a loop, just keep passing in the same @var{cached-iter}). @table @var @item context a structure holding information that affects the itemization process. @item text the text to itemize. @item start-index first byte in @var{text} to process @item length the number of bytes (not characters) to process after @var{start-index}. This must be >= 0. @item attrs the set of attributes that apply to @var{text}. @item cached-iter Cached attribute iterator, or @samp{@code{#f}} @item ret a @code{} of @code{} structures. @end table @end deffn @deffn Function pango-itemize-with-base-dir (context@tie{}@code{}) (base_dir@tie{}@code{}) (text@tie{}@code{mchars}) (start_index@tie{}@code{int}) (length@tie{}@code{int}) (attrs@tie{}@code{}) (cached_iter@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{glist-of}) Like @code{pango-itemize}, but the base direction to use when computing bidirectional levels (see @code{pango-context-set-base-dir}), is specified explicitly rather than gotten from the @code{}. @table @var @item context a structure holding information that affects the itemization process. @item base-dir base direction to use for bidirectional processing @item text the text to itemize. @item start-index first byte in @var{text} to process @item length the number of bytes (not characters) to process after @var{start-index}. This must be >= 0. @item attrs the set of attributes that apply to @var{text}. @item cached-iter Cached attribute iterator, or @samp{@code{#f}} @item ret a @code{} of @code{} structures. @end table Since 1.4 @end deffn @deffn Function pango-item-copy (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{}) Copy an existing @code{} structure. @table @var @item item a @code{} @item ret the newly allocated @code{}, which should be freed with @code{pango-item-free}. @end table @end deffn @deffn Function pango-item-new @result{}@tie{} (ret@tie{}@code{}) Creates a new @code{} structure initialized to default values. @table @var @item ret the newly allocated @code{}, which should be freed with @code{pango-item-free}. @end table @end deffn @deffn Function pango-item-split (self@tie{}@code{}) (split_index@tie{}@code{int}) (split_offset@tie{}@code{int}) @result{}@tie{} (ret@tie{}@code{}) Modifies @var{orig} to cover only the text after @var{split-index}, and returns a new item that covers the text before @var{split-index} that used to be in @var{orig}. You can think of @var{split-index} as the length of the returned item. @var{split-index} may not be 0, and it may not be greater than or equal to the length of @var{orig} (that is, there must be at least one byte assigned to each item, you can't create a zero-length item). @var{split-offset} is the length of the first item in chars, and must be provided because the text used to generate the item isn't available, so @code{pango-item-split} can't count the char length of the split items itself. @table @var @item orig a @code{} @item split-index byte index of position to split item, relative to the start of the item @item split-offset number of chars between start of @var{orig} and @var{split-index} @item ret new item representing text before @var{split-index}, which should be freed with @code{pango-item-free}. @end table @end deffn @deffn Function pango-reorder-items (logical_items@tie{}@code{glist-of}) @result{}@tie{} (ret@tie{}@code{glist-of}) From a list of items in logical order and the associated directional levels, produce a list in visual order. The original list is unmodified. @table @var @item logical-items a @code{} of @code{} in logical order. @item ret a @code{} of @code{} structures in visual order. (Please open a bug if you use this function. It is not a particularly convenient interface, and the code is duplicated elsewhere in Pango for that reason.) @end table @end deffn @deffn Function pango-context-get-font-map (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{}) @deffnx Method get-font-map Gets the @code{} used to look up fonts for this context. @table @var @item context a @code{} @item ret the font map for the @code{}. This value is owned by Pango and should not be unreferenced. @end table Since 1.6 @end deffn @deffn Function pango-context-set-font-description (self@tie{}@code{}) (desc@tie{}@code{}) @deffnx Method set-font-description Set the default font description for the context @table @var @item context a @code{} @item desc the new pango font description @end table @end deffn @deffn Function pango-context-get-language (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{}) @deffnx Method get-language Retrieves the global language tag for the context. @table @var @item context a @code{} @item ret the global language tag. @end table @end deffn @deffn Function pango-context-set-language (self@tie{}@code{}) (language@tie{}@code{}) @deffnx Method set-language Sets the global language tag for the context. @table @var @item context a @code{} @item language the new language tag. @end table @end deffn @deffn Function pango-context-get-base-dir (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{}) @deffnx Method get-base-dir Retrieves the base direction for the context. See @code{pango-context-set-base-dir}. @table @var @item context a @code{} @item ret the base direction for the context. @end table @end deffn @deffn Function pango-context-set-base-dir (self@tie{}@code{}) (direction@tie{}@code{}) @deffnx Method set-base-dir Sets the base direction for the context. The base direction is used in applying the Unicode bidirectional algorithm; if the @var{direction} is @samp{PANGO_DIRECTION_LTR} or @samp{PANGO_DIRECTION_RTL}, then the value will be used as the paragraph direction in the Unicode bidirectional algorithm. A value of @samp{PANGO_DIRECTION_WEAK_LTR} or @samp{PANGO_DIRECTION_WEAK_RTL} is used only for paragraphs that do not contain any strong characters themselves. @table @var @item context a @code{} @item direction the new base direction @end table @end deffn @deffn Function pango-context-get-matrix (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{}) @deffnx Method get-matrix Gets the transformation matrix that will be applied when rendering with this context. See @code{pango-context-set-matrix}. @table @var @item context a @code{} @item ret the matrix, or @samp{@code{#f}} if no matrix has been set (which is the same as the identity matrix). The returned matrix is owned by Pango and must not be modified or freed. @end table Since 1.6 @end deffn @deffn Function pango-context-set-matrix (self@tie{}@code{}) (matrix@tie{}@code{}) @deffnx Method set-matrix Sets the transformation matrix that will be applied when rendering with this context. Note that reported metrics are in the user space coordinates before the application of the matrix, not device-space coordinates after the application of the matrix. So, they don't scale with the matrix, though they may change slightly for different matrices, depending on how the text is fit to the pixel grid. @table @var @item context a @code{} @item matrix a @code{}, or @samp{@code{#f}} to unset any existing matrix. (No matrix set is the same as setting the identity matrix.) @end table Since 1.6 @end deffn @deffn Function pango-context-load-font (self@tie{}@code{}) (desc@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{}) @deffnx Method load-font Loads the font in one of the fontmaps in the context that is the closest match for @var{desc}. @table @var @item context a @code{} @item desc a @code{} describing the font to load @item ret the font loaded, or @samp{@code{#f}} if no font matched. @end table @end deffn @deffn Function pango-context-load-fontset (self@tie{}@code{}) (desc@tie{}@code{}) (language@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{}) @deffnx Method load-fontset Load a set of fonts in the context that can be used to render a font matching @var{desc}. @table @var @item context a @code{} @item desc a @code{} describing the fonts to load @item language a @code{} the fonts will be used for @item ret the fontset, or @samp{@code{#f}} if no font matched. @end table @end deffn @deffn Function pango-context-get-metrics (self@tie{}@code{}) (desc@tie{}@code{}) (language@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{}) @deffnx Method get-metrics Get overall metric information for a particular font description. Since the metrics may be substantially different for different scripts, a language tag can be provided to indicate that the metrics should be retrieved that correspond to the script(s) used by that language. The @code{} is interpreted in the same way as by @code{pango-itemize}, and the family name may be a comma separated list of figures. If characters from multiple of these families would be used to render the string, then the returned fonts would be a composite of the metrics for the fonts loaded for the individual families. @table @var @item context a @code{} @item desc a @code{} structure @item language language tag used to determine which script to get the metrics for. @samp{@code{#f}} means that the language tag from the context will be used. If no language tag is set on the context, metrics large enough to cover a range of languages will be returned. The process of determining such metrics is slow, so it is best to always make sure some real language tag will be used. @item ret a @code{} object. The caller must call @code{pango-font-metrics-unref} when finished using the object. @end table @end deffn @deffn Function pango-get-mirror-char (ch@tie{}@code{unsigned-int32}) @result{}@tie{} (ret@tie{}@code{bool}) (mirrored_ch@tie{}@code{unsigned-int32}) @samp{pango_get_mirror_char} is deprecated and should not be used in newly-written code. If @var{ch} has the Unicode mirrored property and there is another Unicode character that typically has a glyph that is the mirror image of @var{ch}'s glyph, puts that character in the address pointed to by @var{mirrored-ch}. Use @code{g-unichar-get-mirror-char} instead; the docs for that function provide full details. @table @var @item ch a Unicode character @item mirrored-ch location to store the mirrored character @item ret @samp{@code{#t}} if @var{ch} has a mirrored character and @var{mirrored-ch} is filled in, @samp{@code{#f}} otherwise @end table @end deffn @deffn Function pango-unichar-direction (ch@tie{}@code{unsigned-int32}) @result{}@tie{} (ret@tie{}@code{}) Determines the direction of a character; either @samp{PANGO_DIRECTION_LTR}, @samp{PANGO_DIRECTION_RTL}, or @samp{PANGO_DIRECTION_NEUTRAL}. @table @var @item ch a Unicode character @item ret the direction of the character, as used in the Unicode bidirectional algorithm. @end table @end deffn @deffn Function pango-find-base-dir (text@tie{}@code{mchars}) (length@tie{}@code{int}) @result{}@tie{} (ret@tie{}@code{}) Searches a string the first character that has a strong direction, according to the Unicode bidirectional algorithm. @table @var @item text the text to process @item length length of @var{text} in bytes (may be -1 if @var{text} is nul-terminated) @item ret The direction corresponding to the first strong character. If no such character is found, then @samp{PANGO_DIRECTION_NEUTRAL} is returned. @end table Since 1.4 @end deffn @deffn Function pango-find-paragraph-boundary (text@tie{}@code{mchars}) (length@tie{}@code{int}) @result{}@tie{} (paragraph_delimiter_index@tie{}@code{int}) (next_paragraph_start@tie{}@code{int}) Locates a paragraph boundary in @var{text}. A boundary is caused by delimiter characters, such as a newline, carriage return, carriage return-newline pair, or Unicode paragraph separator character. The index of the run of delimiters is returned in @var{paragraph-delimiter-index}. The index of the start of the paragraph (index after all delimiters) is stored in @var{next-paragraph-start}. If no delimiters are found, both @var{paragraph-delimiter-index} and @var{next-paragraph-start} are filled with the length of @var{text} (an index one off the end). @table @var @item text UTF-8 text @item length length of @var{text} in bytes, or -1 if nul-terminated @item paragraph-delimiter-index return location for index of delimiter @item next-paragraph-start return location for start of next paragraph @end table @end deffn @c %end of fragment guile-gnome-platform-2.16.2/pango/doc/pango/defuns-pango-renderer.xml.texi0000644000175000017500000002142411670374303027034 0ustar00wingowingo00000000000000 @c %start of fragment @deftp Class Derives from @code{}. This class defines no direct slots. @end deftp @deffn Function pango-renderer-draw-layout (self@tie{}@code{}) (layout@tie{}@code{}) (x@tie{}@code{int}) (y@tie{}@code{int}) @deffnx Method draw-layout Draws @var{layout} with the specified @code{}. @table @var @item renderer a @code{} @item layout a @code{} @item x X position of left edge of baseline, in user space coordinates in Pango units. @item y Y position of left edge of baseline, in user space coordinates in Pango units. @end table Since 1.8 @end deffn @deffn Function pango-renderer-draw-layout-line (self@tie{}@code{}) (line@tie{}@code{}) (x@tie{}@code{int}) (y@tie{}@code{int}) @deffnx Method draw-layout-line Draws @var{line} with the specified @code{}. @table @var @item renderer a @code{} @item line a @code{} @item x X position of left edge of baseline, in user space coordinates in Pango units. @item y Y position of left edge of baseline, in user space coordinates in Pango units. @end table Since 1.8 @end deffn @deffn Function pango-renderer-draw-glyphs (self@tie{}@code{}) (font@tie{}@code{}) (glyphs@tie{}@code{}) (x@tie{}@code{int}) (y@tie{}@code{int}) @deffnx Method draw-glyphs Draws the glyphs in @var{glyphs} with the specified @code{}. @table @var @item renderer a @code{} @item font a @code{} @item glyphs a @code{} @item x X position of left edge of baseline, in user space coordinates in Pango units. @item y Y position of left edge of baseline, in user space coordinates in Pango units. @end table Since 1.8 @end deffn @deffn Function pango-renderer-draw-rectangle (self@tie{}@code{}) (part@tie{}@code{}) (x@tie{}@code{int}) (y@tie{}@code{int}) (width@tie{}@code{int}) (height@tie{}@code{int}) @deffnx Method draw-rectangle Draws an axis-aligned rectangle in user space coordinates with the specified @code{}. This should be called while @var{renderer} is already active. Use @code{pango-renderer-activate} to activate a renderer. @table @var @item renderer a @code{} @item part type of object this rectangle is part of @item x X position at which to draw rectangle, in user space coordinates in Pango units @item y Y position at which to draw rectangle, in user space coordinates in Pango units @item width width of rectangle in Pango units in user space coordinates @item height height of rectangle in Pango units in user space coordinates @end table Since 1.8 @end deffn @deffn Function pango-renderer-draw-error-underline (self@tie{}@code{}) (x@tie{}@code{int}) (y@tie{}@code{int}) (width@tie{}@code{int}) (height@tie{}@code{int}) @deffnx Method draw-error-underline Draw a squiggly line that approximately covers the given rectangle in the style of an underline used to indicate a spelling error. (The width of the underline is rounded to an integer number of up/down segments and the resulting rectangle is centered in the original rectangle) This should be called while @var{renderer} is already active. Use @code{pango-renderer-activate} to activate a renderer. @table @var @item renderer a @code{} @item x X coordinate of underline, in Pango units in user coordinate system @item y Y coordinate of underline, in Pango units in user coordinate system @item width width of underline, in Pango units in user coordinate system @item height height of underline, in Pango units in user coordinate system @end table Since 1.8 @end deffn @deffn Function pango-renderer-draw-trapezoid (self@tie{}@code{}) (part@tie{}@code{}) (y1_@tie{}@code{double}) (x11@tie{}@code{double}) (x21@tie{}@code{double}) (y2@tie{}@code{double}) (x12@tie{}@code{double}) (x22@tie{}@code{double}) @deffnx Method draw-trapezoid Draws a trapezoid with the parallel sides aligned with the X axis using the given @code{}; coordinates are in device space. @table @var @item renderer a @code{} @item part type of object this trapezoid is part of @item y1 Y coordinate of top of trapezoid @item x11 X coordinate of left end of top of trapezoid @item x21 X coordinate of right end of top of trapezoid @item y2 Y coordinate of bottom of trapezoid @item x12 X coordinate of left end of bottom of trapezoid @item x22 X coordinate of right end of bottom of trapezoid @end table Since 1.8 @end deffn @deffn Function pango-renderer-draw-glyph (self@tie{}@code{}) (font@tie{}@code{}) (glyph@tie{}@code{unsigned-int32}) (x@tie{}@code{double}) (y@tie{}@code{double}) @deffnx Method draw-glyph Draws a single glyph with coordinates in device space. @table @var @item renderer a @code{} @item font a @code{} @item glyph the glyph index of a single glyph @item x X coordinate of left edge of baseline of glyph @item y Y coordinate of left edge of baseline of glyph @end table Since 1.8 @end deffn @deffn Function pango-renderer-activate (self@tie{}@code{}) @deffnx Method activate Does initial setup before rendering operations on @var{renderer}. @code{pango-renderer-deactivate} should be called when done drawing. Calls such as @code{pango-renderer-draw-layout} automatically activate the layout before drawing on it. Calls to @code{pango-renderer-activate} and @code{pango-renderer-deactivate} can be nested and the renderer will only be initialized and deinitialized once. @table @var @item renderer a @code{} @end table Since 1.8 @end deffn @deffn Function pango-renderer-deactivate (self@tie{}@code{}) @deffnx Method deactivate Cleans up after rendering operations on @var{renderer}. See docs for @code{pango-renderer-activate}. @table @var @item renderer a @code{} @end table Since 1.8 @end deffn @deffn Function pango-renderer-part-changed (self@tie{}@code{}) (part@tie{}@code{}) @deffnx Method part-changed Informs Pango that the way that the rendering is done for @var{part} has changed in a way that would prevent multiple pieces being joined together into one drawing call. For instance, if a subclass of @code{} was to add a stipple option for drawing underlines, it needs to call @example pango_renderer_part_changed (render, PANGO_RENDER_PART_UNDERLINE); @end example When the stipple changes or underlines with different stipples might be joined together. Pango automatically calls this for changes to colors. (See @code{pango-renderer-set-color}) @table @var @item renderer a @code{} @item part the part for which rendering has changed. @end table Since 1.8 @end deffn @deffn Function pango-renderer-set-color (self@tie{}@code{}) (part@tie{}@code{}) (color@tie{}@code{}) @deffnx Method set-color Sets the color for part of the rendering. @table @var @item renderer a @code{} @item part the part to change the color of @item color the new color or @samp{@code{#f}} to unset the current color @end table Since 1.8 @end deffn @deffn Function pango-renderer-get-color (self@tie{}@code{}) (part@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{}) @deffnx Method get-color Gets the current rendering color for the specified part. @table @var @item renderer a @code{} @item part the part to get the color for @item ret the color for the specified part, or @samp{@code{#f}} if it hasn't been set and should be inherited from the environment. @end table Since 1.8 @end deffn @deffn Function pango-renderer-set-matrix (self@tie{}@code{}) (matrix@tie{}@code{}) @deffnx Method set-matrix Sets the transformation matrix that will be applied when rendering. @table @var @item renderer a @code{} @item matrix a @code{}, or @samp{@code{#f}} to unset any existing matrix. (No matrix set is the same as setting the identity matrix.) @end table Since 1.8 @end deffn @deffn Function pango-renderer-get-matrix (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{}) @deffnx Method get-matrix Gets the transformation matrix that will be applied when rendering. See @code{pango-renderer-set-matrix}. @table @var @item renderer a @code{} @item ret the matrix, or @samp{@code{#f}} if no matrix has been set (which is the same as the identity matrix). The returned matrix is owned by Pango and must not be modified or freed. @end table Since 1.8 @end deffn @c %end of fragment guile-gnome-platform-2.16.2/pango/doc/pango/guile-gnome-pango.texi0000644000175000017500000000444511670374303025361 0ustar00wingowingo00000000000000\input texinfo @c -*-texinfo-*- @c %**start of header @setfilename guile-gnome-pango.info @settitle Guile-Pango @c %**end of header @include version.texi @copying This manual is for @code{(gnome pango)} (version @value{VERSION}, updated @value{UPDATED}) Copyright 2001-2007 Owen Taylor, Behdad Esfahbod, many others @c PANGO is LGPL, ergo GPL distribution is possible @quotation Permission is granted to copy, distribute and/or modify this document under the terms of the GNU General Public License, Version 2 or any later version published by the Free Software Foundation. @end quotation @end copying @dircategory The Algorithmic Language Scheme @direntry * Guile-Pango: (guile-gnome-pango.info). Text layout and rendering. @end direntry @titlepage @title Guile-GNOME: Pango @subtitle version @value{VERSION}, updated @value{UPDATED} @author Owen Taylor @author Behdad Esfahbod @author many others @page @vskip 0pt plus 1filll @insertcopying @end titlepage @ifnottex @node Top @top Guile-Pango @insertcopying @menu * Overview:: About the binding. * Coverage Maps:: Unicode character range coverage storage * Fonts:: Structures representing abstract fonts * Glyph Storage:: Structures for storing information about glyphs * Layout Objects:: High-level layout driver objects * Rendering:: Functions to run the rendering pipeline * PangoRenderer:: Rendering driver base class * Scripts:: Identifying writing systems * Tab Stops:: Structures for storing tab stops * Text Attributes:: Font and other attributes for annotating text * Undocumented:: Undocumented functions. * Type Index:: * Function Index:: @end menu @end ifnottex @iftex @shortcontents @end iftex @include overview.texi @include section-coverage-maps.xml.texi @include section-fonts.xml.texi @include section-glyphs.xml.texi @include section-layout.xml.texi @include section-main.xml.texi @include section-pango-renderer.xml.texi @include section-scripts.xml.texi @include section-tab-stops.xml.texi @include section-text-attributes.xml.texi @include undocumented.texi @node Type Index @unnumbered Type Index @printindex tp @node Function Index @unnumbered Function Index @printindex fn @bye guile-gnome-platform-2.16.2/pango/doc/pango/section-coverage-maps.xml.texi0000644000175000017500000000070111670374303027030 0ustar00wingowingo00000000000000 @c %start of fragment @node Coverage Maps @chapter Coverage Maps Unicode character range coverage storage @section Overview It is often necessary in Pango to determine if a particular font can represent a particular character, and also how well it can represent that character. The @code{} is a data structure that is used to represent that information. @section Usage @include defuns-coverage-maps.xml.texi @c %end of fragment guile-gnome-platform-2.16.2/pango/doc/pango/overrides.texi0000644000175000017500000000000011670374303024030 0ustar00wingowingo00000000000000guile-gnome-platform-2.16.2/pango/doc/pango/version.texi0000644000175000017500000000014611752511104023517 0ustar00wingowingo00000000000000@set UPDATED 9 December 2011 @set UPDATED-MONTH December 2011 @set EDITION 2.16.2 @set VERSION 2.16.2 guile-gnome-platform-2.16.2/pango/doc/pango/Makefile.am0000644000175000017500000000126611670374303023206 0ustar00wingowingo00000000000000################################################################################ ## guile-gnome-pango.info include $(top_srcdir)/generate-docs.mk # FIXME: cairo? # A hand-culled list of modules that we wrap. docbook_xml = coverage-maps.xml \ fonts.xml \ glyphs.xml \ layout.xml \ main.xml \ pango-renderer.xml \ scripts.xml \ tab-stops.xml \ text-attributes.xml docbook_xml_base = ~/src/gnome2/pango/docs/xml/ docbook_xml_files = $(addprefix $(docbook_xml_base),$(docbook_xml)) wrapset_stem = pango EXTRA_DIST = overrides.texi info_TEXINFOS=guile-gnome-pango.texi guile_gnome_pango_TEXINFOS=overview.texi \ $(wildcard section-*.texi) $(wildcard defuns-*.texi) undocumented.texi guile-gnome-platform-2.16.2/pango/doc/pango/defuns-tab-stops.xml.texi0000644000175000017500000000436711670374303026047 0ustar00wingowingo00000000000000 @c %start of fragment @deftp Class Derives from @code{}. This class defines no direct slots. @end deftp @deffn Function pango-tab-array-new (initial_size@tie{}@code{int}) (positions_in_pixels@tie{}@code{bool}) @result{}@tie{} (ret@tie{}@code{}) Creates an array of @var{initial-size} tab stops. Tab stops are specified in pixel units if @var{positions-in-pixels} is @samp{@code{#t}}, otherwise in Pango units. All stops are initially at position 0. @table @var @item initial-size Initial number of tab stops to allocate, can be 0 @item positions-in-pixels whether positions are in pixel units @item ret the newly allocated @code{}, which should be freed with @code{pango-tab-array-free}. @end table @end deffn @deffn Function pango-tab-array-copy (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{}) Copies a @code{} @table @var @item src @code{} to copy @item ret the newly allocated @code{}, which should be freed with @code{pango-tab-array-free}. @end table @end deffn @deffn Function pango-tab-array-get-size (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{int}) Gets the number of tab stops in @var{tab-array}. @table @var @item tab-array a @code{} @item ret the number of tab stops in the array. @end table @end deffn @deffn Function pango-tab-array-resize (self@tie{}@code{}) (new_size@tie{}@code{int}) Resizes a tab array. You must subsequently initialize any tabs that were added as a result of growing the array. @table @var @item tab-array a @code{} @item new-size new size of the array @end table @end deffn @deffn Function pango-tab-array-set-tab (self@tie{}@code{}) (tab_index@tie{}@code{int}) (alignment@tie{}@code{}) (location@tie{}@code{int}) Sets the alignment and location of a tab stop. @var{alignment} must always be @code{} in the current implementation. @table @var @item tab-array a @code{} @item tab-index the index of a tab stop @item alignment tab alignment @item location tab location in Pango units @end table @end deffn @c %end of fragment guile-gnome-platform-2.16.2/pango/doc/pango/section-scripts.xml.texi0000644000175000017500000000050711670374303025772 0ustar00wingowingo00000000000000 @c %start of fragment @node Scripts @chapter Scripts Identifying writing systems @section Overview The functions in this section are used to identify the writing system, or @dfn{script} of individual characters and of ranges within a larger text string. @section Usage @include defuns-scripts.xml.texi @c %end of fragment guile-gnome-platform-2.16.2/pango/doc/pango/Makefile.in0000644000175000017500000006551211752511070023216 0ustar00wingowingo00000000000000# Makefile.in generated by automake 1.11.5 from Makefile.am. # @configure_input@ # Copyright (C) 1994, 1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, # 2003, 2004, 2005, 2006, 2007, 2008, 2009, 2010, 2011 Free Software # Foundation, Inc. # This Makefile.in is free software; the Free Software Foundation # gives unlimited permission to copy and/or distribute it, # with or without modifications, as long as this notice is preserved. # This program is distributed in the hope that it will be useful, # but WITHOUT ANY WARRANTY, to the extent permitted by law; without # even the implied warranty of MERCHANTABILITY or FITNESS FOR A # PARTICULAR PURPOSE. @SET_MAKE@ ################################################################################ # guile-gnome # Copyright (C) 2007, 2011 Free Software Foundation, Inc. # This program is free software; you can redistribute it and/or # modify it under the terms of the GNU General Public License as # published by the Free Software Foundation; either version 2 of # the License, or (at your option) any later version. # This program is distributed in the hope that it will be useful, # but WITHOUT ANY WARRANTY; without even the implied warranty of # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the # GNU General Public License for more details. # You should have received a copy of the GNU General Public License # along with this program; if not, contact: # Free Software Foundation Voice: +1-617-542-5942 # 59 Temple Place - Suite 330 Fax: +1-617-542-2652 # Boston, MA 02111-1307, USA gnu@gnu.org # # Makefile snippet # VPATH = @srcdir@ am__make_dryrun = \ { \ am__dry=no; \ case $$MAKEFLAGS in \ *\\[\ \ ]*) \ echo 'am--echo: ; @echo "AM" OK' | $(MAKE) -f - 2>/dev/null \ | grep '^AM OK$$' >/dev/null || am__dry=yes;; \ *) \ for am__flg in $$MAKEFLAGS; do \ case $$am__flg in \ *=*|--*) ;; \ *n*) am__dry=yes; break;; \ esac; \ done;; \ esac; \ test $$am__dry = yes; \ } pkgdatadir = $(datadir)/@PACKAGE@ pkgincludedir = $(includedir)/@PACKAGE@ pkglibdir = $(libdir)/@PACKAGE@ pkglibexecdir = $(libexecdir)/@PACKAGE@ am__cd = CDPATH="$${ZSH_VERSION+.}$(PATH_SEPARATOR)" && cd install_sh_DATA = $(install_sh) -c -m 644 install_sh_PROGRAM = $(install_sh) -c install_sh_SCRIPT = $(install_sh) -c INSTALL_HEADER = $(INSTALL_DATA) transform = $(program_transform_name) NORMAL_INSTALL = : PRE_INSTALL = : POST_INSTALL = : NORMAL_UNINSTALL = : PRE_UNINSTALL = : POST_UNINSTALL = : build_triplet = @build@ host_triplet = @host@ DIST_COMMON = $(guile_gnome_pango_TEXINFOS) $(srcdir)/Makefile.am \ $(srcdir)/Makefile.in $(srcdir)/stamp-vti \ $(srcdir)/version.texi $(top_srcdir)/generate-docs.mk subdir = pango/doc/pango ACLOCAL_M4 = $(top_srcdir)/aclocal.m4 am__aclocal_m4_deps = $(top_srcdir)/configure.ac am__configure_deps = $(am__aclocal_m4_deps) $(CONFIGURE_DEPENDENCIES) \ $(ACLOCAL_M4) mkinstalldirs = $(install_sh) -d CONFIG_HEADER = $(top_builddir)/config.h CONFIG_CLEAN_FILES = CONFIG_CLEAN_VPATH_FILES = SOURCES = DIST_SOURCES = INFO_DEPS = $(srcdir)/guile-gnome-pango.info TEXINFO_TEX = $(top_srcdir)/build-aux/texinfo.tex am__TEXINFO_TEX_DIR = $(top_srcdir)/build-aux DVIS = guile-gnome-pango.dvi PDFS = guile-gnome-pango.pdf PSS = guile-gnome-pango.ps HTMLS = guile-gnome-pango.html TEXINFOS = guile-gnome-pango.texi TEXI2DVI = texi2dvi TEXI2PDF = $(TEXI2DVI) --pdf --batch MAKEINFOHTML = $(MAKEINFO) --html AM_MAKEINFOHTMLFLAGS = $(AM_MAKEINFOFLAGS) DVIPS = dvips am__can_run_installinfo = \ case $$AM_UPDATE_INFO_DIR in \ n|no|NO) false;; \ *) (install-info --version) >/dev/null 2>&1;; \ esac am__installdirs = "$(DESTDIR)$(infodir)" am__vpath_adj_setup = srcdirstrip=`echo "$(srcdir)" | sed 's|.|.|g'`; am__vpath_adj = case $$p in \ $(srcdir)/*) f=`echo "$$p" | sed "s|^$$srcdirstrip/||"`;; \ *) f=$$p;; \ esac; am__strip_dir = f=`echo $$p | sed -e 's|^.*/||'`; am__install_max = 40 am__nobase_strip_setup = \ srcdirstrip=`echo "$(srcdir)" | sed 's/[].[^$$\\*|]/\\\\&/g'` am__nobase_strip = \ for p in $$list; do echo "$$p"; done | sed -e "s|$$srcdirstrip/||" am__nobase_list = $(am__nobase_strip_setup); \ for p in $$list; do echo "$$p $$p"; done | \ sed "s| $$srcdirstrip/| |;"' / .*\//!s/ .*/ ./; s,\( .*\)/[^/]*$$,\1,' | \ $(AWK) 'BEGIN { files["."] = "" } { files[$$2] = files[$$2] " " $$1; \ if (++n[$$2] == $(am__install_max)) \ { print $$2, files[$$2]; n[$$2] = 0; files[$$2] = "" } } \ END { for (dir in files) print dir, files[dir] }' am__base_list = \ sed '$$!N;$$!N;$$!N;$$!N;$$!N;$$!N;$$!N;s/\n/ /g' | \ sed '$$!N;$$!N;$$!N;$$!N;s/\n/ /g' am__uninstall_files_from_dir = { \ test -z "$$files" \ || { test ! -d "$$dir" && test ! -f "$$dir" && test ! -r "$$dir"; } \ || { echo " ( cd '$$dir' && rm -f" $$files ")"; \ $(am__cd) "$$dir" && rm -f $$files; }; \ } DISTFILES = $(DIST_COMMON) $(DIST_SOURCES) $(TEXINFOS) $(EXTRA_DIST) ACLOCAL = @ACLOCAL@ AG_PKG_CONFIG_PATH = @AG_PKG_CONFIG_PATH@ AMTAR = @AMTAR@ API_VERSION = @API_VERSION@ AR = @AR@ ATK_CFLAGS = @ATK_CFLAGS@ ATK_LIBS = @ATK_LIBS@ AUTOCONF = @AUTOCONF@ AUTOHEADER = @AUTOHEADER@ AUTOMAKE = @AUTOMAKE@ AWK = @AWK@ BONOBO_IDL_DIR = @BONOBO_IDL_DIR@ CANVAS_CFLAGS = @CANVAS_CFLAGS@ CANVAS_LIBS = @CANVAS_LIBS@ CC = @CC@ CCDEPMODE = @CCDEPMODE@ CFLAGS = @CFLAGS@ CORBA_CFLAGS = @CORBA_CFLAGS@ CORBA_LIBS = @CORBA_LIBS@ CPP = @CPP@ CPPFLAGS = @CPPFLAGS@ CYGPATH_W = @CYGPATH_W@ DEFS = @DEFS@ DEPDIR = @DEPDIR@ DLLTOOL = @DLLTOOL@ DSYMUTIL = @DSYMUTIL@ DUMPBIN = @DUMPBIN@ ECHO_C = @ECHO_C@ ECHO_N = @ECHO_N@ ECHO_T = @ECHO_T@ EGREP = @EGREP@ EXEEXT = @EXEEXT@ FGREP = @FGREP@ GCONF_CFLAGS = @GCONF_CFLAGS@ GCONF_LIBS = @GCONF_LIBS@ GDK_CFLAGS = @GDK_CFLAGS@ GDK_LIBS = @GDK_LIBS@ GDK_PIXBUF_CFLAGS = @GDK_PIXBUF_CFLAGS@ GDK_PIXBUF_LIBS = @GDK_PIXBUF_LIBS@ GLIB_CFLAGS = @GLIB_CFLAGS@ GLIB_LIBS = @GLIB_LIBS@ GNOMEUI_DEPRECATION_FLAGS = @GNOMEUI_DEPRECATION_FLAGS@ GNOME_VFS_CFLAGS = @GNOME_VFS_CFLAGS@ GNOME_VFS_DEPRECATED_CFLAGS = @GNOME_VFS_DEPRECATED_CFLAGS@ GNOME_VFS_LIBS = @GNOME_VFS_LIBS@ GOBJECT_CFLAGS = @GOBJECT_CFLAGS@ GOBJECT_LIBS = @GOBJECT_LIBS@ GREP = @GREP@ GTHREAD_CFLAGS = @GTHREAD_CFLAGS@ GTHREAD_LIBS = @GTHREAD_LIBS@ GTK_CFLAGS = @GTK_CFLAGS@ GTK_DEPRECATED_CFLAGS = @GTK_DEPRECATED_CFLAGS@ GTK_LIBS = @GTK_LIBS@ GUILE_CAIRO_CFLAGS = @GUILE_CAIRO_CFLAGS@ GUILE_CAIRO_LIBS = @GUILE_CAIRO_LIBS@ GUILE_CFLAGS = @GUILE_CFLAGS@ GUILE_EFFECTIVE_VERSION = @GUILE_EFFECTIVE_VERSION@ GUILE_GLIB_CFLAGS = @GUILE_GLIB_CFLAGS@ GUILE_GLIB_LIBS = @GUILE_GLIB_LIBS@ GUILE_LIBS = @GUILE_LIBS@ G_WRAP_CFLAGS = @G_WRAP_CFLAGS@ G_WRAP_LIBS = @G_WRAP_LIBS@ G_WRAP_LIB_DIR = @G_WRAP_LIB_DIR@ G_WRAP_MODULE_DIR = @G_WRAP_MODULE_DIR@ INSTALL = @INSTALL@ INSTALL_DATA = @INSTALL_DATA@ INSTALL_PROGRAM = @INSTALL_PROGRAM@ INSTALL_SCRIPT = @INSTALL_SCRIPT@ INSTALL_STRIP_PROGRAM = @INSTALL_STRIP_PROGRAM@ LD = @LD@ LDFLAGS = @LDFLAGS@ LIBGLADE_CFLAGS = @LIBGLADE_CFLAGS@ LIBGLADE_LIBS = @LIBGLADE_LIBS@ LIBGNOMEUI_CFLAGS = @LIBGNOMEUI_CFLAGS@ LIBGNOMEUI_LIBS = @LIBGNOMEUI_LIBS@ LIBGNOME_CFLAGS = @LIBGNOME_CFLAGS@ LIBGNOME_LIBS = @LIBGNOME_LIBS@ LIBOBJS = @LIBOBJS@ LIBS = @LIBS@ LIBTOOL = @LIBTOOL@ LIPO = @LIPO@ LN_S = @LN_S@ LTLIBOBJS = @LTLIBOBJS@ MAKEINFO = @MAKEINFO@ MANIFEST_TOOL = @MANIFEST_TOOL@ MKDIR_P = @MKDIR_P@ NM = @NM@ NMEDIT = @NMEDIT@ OBJDUMP = @OBJDUMP@ OBJEXT = @OBJEXT@ ORBIT_IDL = @ORBIT_IDL@ OTOOL = @OTOOL@ OTOOL64 = @OTOOL64@ PACKAGE = @PACKAGE@ PACKAGE_BUGREPORT = @PACKAGE_BUGREPORT@ PACKAGE_NAME = @PACKAGE_NAME@ PACKAGE_STRING = @PACKAGE_STRING@ PACKAGE_TARNAME = @PACKAGE_TARNAME@ PACKAGE_URL = @PACKAGE_URL@ PACKAGE_VERSION = @PACKAGE_VERSION@ PANGOCAIRO_CFLAGS = @PANGOCAIRO_CFLAGS@ PANGOCAIRO_LIBS = @PANGOCAIRO_LIBS@ PANGO_CFLAGS = @PANGO_CFLAGS@ PANGO_LIBS = @PANGO_LIBS@ PATH_SEPARATOR = @PATH_SEPARATOR@ PKG_CONFIG = @PKG_CONFIG@ PKG_CONFIG_LIBDIR = @PKG_CONFIG_LIBDIR@ PKG_CONFIG_PATH = @PKG_CONFIG_PATH@ RANLIB = @RANLIB@ SED = @SED@ SET_MAKE = @SET_MAKE@ SHELL = @SHELL@ STRIP = @STRIP@ VERSION = @VERSION@ WARN_CFLAGS = @WARN_CFLAGS@ abs_builddir = @abs_builddir@ abs_srcdir = @abs_srcdir@ abs_top_builddir = @abs_top_builddir@ abs_top_srcdir = @abs_top_srcdir@ ac_ct_AR = @ac_ct_AR@ ac_ct_CC = @ac_ct_CC@ ac_ct_DUMPBIN = @ac_ct_DUMPBIN@ am__include = @am__include@ am__leading_dot = @am__leading_dot@ am__quote = @am__quote@ am__tar = @am__tar@ am__untar = @am__untar@ bindir = @bindir@ build = @build@ build_alias = @build_alias@ build_cpu = @build_cpu@ build_os = @build_os@ build_vendor = @build_vendor@ builddir = @builddir@ datadir = @datadir@ datarootdir = @datarootdir@ docdir = @docdir@ dvidir = @dvidir@ exec_prefix = @exec_prefix@ host = @host@ host_alias = @host_alias@ host_cpu = @host_cpu@ host_os = @host_os@ host_vendor = @host_vendor@ htmldir = @htmldir@ includedir = @includedir@ infodir = @infodir@ install_sh = @install_sh@ libdir = @libdir@ libexecdir = @libexecdir@ localedir = @localedir@ localstatedir = @localstatedir@ mandir = @mandir@ mkdir_p = @mkdir_p@ oldincludedir = @oldincludedir@ pdfdir = @pdfdir@ prefix = @prefix@ program_transform_name = @program_transform_name@ psdir = @psdir@ sbindir = @sbindir@ sharedstatedir = @sharedstatedir@ srcdir = @srcdir@ sysconfdir = @sysconfdir@ target_alias = @target_alias@ top_build_prefix = @top_build_prefix@ top_builddir = @top_builddir@ top_srcdir = @top_srcdir@ wrapset_module = (gnome gw $(wrapset_stem)-spec) wrapset_name = gnome-$(wrapset_stem) GTK_DOC_TO_TEXI_STUBS = '((@ (gnome gw support gtk-doc) gtk-doc->texi-stubs) (cdr (program-arguments)))' GTK_DOC_DEFUN_HEURISTICS_METHOD = heuristics GTK_DOC_DEFUN_HEURISTICS_ARGS = (your-module-here) GTK_DOC_DEFUN_GWRAP_METHOD = g-wrap GTK_DOC_DEFUN_GWRAP_ARGS = $(wrapset_module) $(wrapset_name) GTK_DOC_DEFUN_METHOD = $(GTK_DOC_DEFUN_GWRAP_METHOD) GTK_DOC_DEFUN_ARGS = $(GTK_DOC_DEFUN_GWRAP_ARGS) GTK_DOC_TO_TEXI_DEFUNS = "(apply (@ (gnome gw support gtk-doc) gtk-doc->texi-defuns) (cadr (program-arguments)) '$(GTK_DOC_DEFUN_METHOD) '($(GTK_DOC_DEFUN_ARGS)) (cddr (program-arguments)))" GTK_DOC_COVERAGE_MODULES = (gnome $(wrapset_stem)) (gnome gw $(wrapset_stem)) GTK_DOC_COVERAGE_TEXI = $(info_TEXINFOS) GTK_DOC_CHECK_COVERAGE = "((@ (gnome gw support gtk-doc) check-documentation-coverage) '($(GTK_DOC_COVERAGE_MODULES)) \"$(GTK_DOC_COVERAGE_TEXI)\")" GTK_DOC_GENERATE_UNDOCUMENTED = "((@ (gnome gw support gtk-doc) generate-undocumented-texi) '($(GTK_DOC_COVERAGE_MODULES)) \"$(GTK_DOC_COVERAGE_TEXI)\")" GUILE = $(top_builddir)/dev-environ guile # FIXME: cairo? # A hand-culled list of modules that we wrap. docbook_xml = coverage-maps.xml \ fonts.xml \ glyphs.xml \ layout.xml \ main.xml \ pango-renderer.xml \ scripts.xml \ tab-stops.xml \ text-attributes.xml docbook_xml_base = ~/src/gnome2/pango/docs/xml/ docbook_xml_files = $(addprefix $(docbook_xml_base),$(docbook_xml)) wrapset_stem = pango EXTRA_DIST = overrides.texi info_TEXINFOS = guile-gnome-pango.texi guile_gnome_pango_TEXINFOS = overview.texi \ $(wildcard section-*.texi) $(wildcard defuns-*.texi) undocumented.texi all: all-am .SUFFIXES: .SUFFIXES: .dvi .html .info .pdf .ps .texi $(srcdir)/Makefile.in: $(srcdir)/Makefile.am $(top_srcdir)/generate-docs.mk $(am__configure_deps) @for dep in $?; do \ case '$(am__configure_deps)' in \ *$$dep*) \ ( cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh ) \ && { if test -f $@; then exit 0; else break; fi; }; \ exit 1;; \ esac; \ done; \ echo ' cd $(top_srcdir) && $(AUTOMAKE) --gnu pango/doc/pango/Makefile'; \ $(am__cd) $(top_srcdir) && \ $(AUTOMAKE) --gnu pango/doc/pango/Makefile .PRECIOUS: Makefile Makefile: $(srcdir)/Makefile.in $(top_builddir)/config.status @case '$?' in \ *config.status*) \ cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh;; \ *) \ echo ' cd $(top_builddir) && $(SHELL) ./config.status $(subdir)/$@ $(am__depfiles_maybe)'; \ cd $(top_builddir) && $(SHELL) ./config.status $(subdir)/$@ $(am__depfiles_maybe);; \ esac; $(top_srcdir)/generate-docs.mk: $(top_builddir)/config.status: $(top_srcdir)/configure $(CONFIG_STATUS_DEPENDENCIES) cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh $(top_srcdir)/configure: $(am__configure_deps) cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh $(ACLOCAL_M4): $(am__aclocal_m4_deps) cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh $(am__aclocal_m4_deps): mostlyclean-libtool: -rm -f *.lo clean-libtool: -rm -rf .libs _libs .texi.info: restore=: && backupdir="$(am__leading_dot)am$$$$" && \ am__cwd=`pwd` && $(am__cd) $(srcdir) && \ rm -rf $$backupdir && mkdir $$backupdir && \ if ($(MAKEINFO) --version) >/dev/null 2>&1; then \ for f in $@ $@-[0-9] $@-[0-9][0-9] $(@:.info=).i[0-9] $(@:.info=).i[0-9][0-9]; do \ if test -f $$f; then mv $$f $$backupdir; restore=mv; else :; fi; \ done; \ else :; fi && \ cd "$$am__cwd"; \ if $(MAKEINFO) $(AM_MAKEINFOFLAGS) $(MAKEINFOFLAGS) -I $(srcdir) \ -o $@ $<; \ then \ rc=0; \ $(am__cd) $(srcdir); \ else \ rc=$$?; \ $(am__cd) $(srcdir) && \ $$restore $$backupdir/* `echo "./$@" | sed 's|[^/]*$$||'`; \ fi; \ rm -rf $$backupdir; exit $$rc .texi.dvi: TEXINPUTS="$(am__TEXINFO_TEX_DIR)$(PATH_SEPARATOR)$$TEXINPUTS" \ MAKEINFO='$(MAKEINFO) $(AM_MAKEINFOFLAGS) $(MAKEINFOFLAGS) -I $(srcdir)' \ $(TEXI2DVI) $< .texi.pdf: TEXINPUTS="$(am__TEXINFO_TEX_DIR)$(PATH_SEPARATOR)$$TEXINPUTS" \ MAKEINFO='$(MAKEINFO) $(AM_MAKEINFOFLAGS) $(MAKEINFOFLAGS) -I $(srcdir)' \ $(TEXI2PDF) $< .texi.html: rm -rf $(@:.html=.htp) if $(MAKEINFOHTML) $(AM_MAKEINFOHTMLFLAGS) $(MAKEINFOFLAGS) -I $(srcdir) \ -o $(@:.html=.htp) $<; \ then \ rm -rf $@; \ if test ! -d $(@:.html=.htp) && test -d $(@:.html=); then \ mv $(@:.html=) $@; else mv $(@:.html=.htp) $@; fi; \ else \ if test ! -d $(@:.html=.htp) && test -d $(@:.html=); then \ rm -rf $(@:.html=); else rm -Rf $(@:.html=.htp) $@; fi; \ exit 1; \ fi $(srcdir)/guile-gnome-pango.info: guile-gnome-pango.texi $(srcdir)/version.texi $(guile_gnome_pango_TEXINFOS) guile-gnome-pango.dvi: guile-gnome-pango.texi $(srcdir)/version.texi $(guile_gnome_pango_TEXINFOS) guile-gnome-pango.pdf: guile-gnome-pango.texi $(srcdir)/version.texi $(guile_gnome_pango_TEXINFOS) guile-gnome-pango.html: guile-gnome-pango.texi $(srcdir)/version.texi $(guile_gnome_pango_TEXINFOS) $(srcdir)/version.texi: $(srcdir)/stamp-vti $(srcdir)/stamp-vti: guile-gnome-pango.texi $(top_srcdir)/configure @(dir=.; test -f ./guile-gnome-pango.texi || dir=$(srcdir); \ set `$(SHELL) $(top_srcdir)/build-aux/mdate-sh $$dir/guile-gnome-pango.texi`; \ echo "@set UPDATED $$1 $$2 $$3"; \ echo "@set UPDATED-MONTH $$2 $$3"; \ echo "@set EDITION $(VERSION)"; \ echo "@set VERSION $(VERSION)") > vti.tmp @cmp -s vti.tmp $(srcdir)/version.texi \ || (echo "Updating $(srcdir)/version.texi"; \ cp vti.tmp $(srcdir)/version.texi) -@rm -f vti.tmp @cp $(srcdir)/version.texi $@ mostlyclean-vti: -rm -f vti.tmp maintainer-clean-vti: -rm -f $(srcdir)/stamp-vti $(srcdir)/version.texi .dvi.ps: TEXINPUTS="$(am__TEXINFO_TEX_DIR)$(PATH_SEPARATOR)$$TEXINPUTS" \ $(DVIPS) -o $@ $< uninstall-dvi-am: @$(NORMAL_UNINSTALL) @list='$(DVIS)'; test -n "$(dvidir)" || list=; \ for p in $$list; do \ $(am__strip_dir) \ echo " rm -f '$(DESTDIR)$(dvidir)/$$f'"; \ rm -f "$(DESTDIR)$(dvidir)/$$f"; \ done uninstall-html-am: @$(NORMAL_UNINSTALL) @list='$(HTMLS)'; test -n "$(htmldir)" || list=; \ for p in $$list; do \ $(am__strip_dir) \ echo " rm -rf '$(DESTDIR)$(htmldir)/$$f'"; \ rm -rf "$(DESTDIR)$(htmldir)/$$f"; \ done uninstall-info-am: @$(PRE_UNINSTALL) @if test -d '$(DESTDIR)$(infodir)' && $(am__can_run_installinfo); then \ list='$(INFO_DEPS)'; \ for file in $$list; do \ relfile=`echo "$$file" | sed 's|^.*/||'`; \ echo " install-info --info-dir='$(DESTDIR)$(infodir)' --remove '$(DESTDIR)$(infodir)/$$relfile'"; \ if install-info --info-dir="$(DESTDIR)$(infodir)" --remove "$(DESTDIR)$(infodir)/$$relfile"; \ then :; else test ! -f "$(DESTDIR)$(infodir)/$$relfile" || exit 1; fi; \ done; \ else :; fi @$(NORMAL_UNINSTALL) @list='$(INFO_DEPS)'; \ for file in $$list; do \ relfile=`echo "$$file" | sed 's|^.*/||'`; \ relfile_i=`echo "$$relfile" | sed 's|\.info$$||;s|$$|.i|'`; \ (if test -d "$(DESTDIR)$(infodir)" && cd "$(DESTDIR)$(infodir)"; then \ echo " cd '$(DESTDIR)$(infodir)' && rm -f $$relfile $$relfile-[0-9] $$relfile-[0-9][0-9] $$relfile_i[0-9] $$relfile_i[0-9][0-9]"; \ rm -f $$relfile $$relfile-[0-9] $$relfile-[0-9][0-9] $$relfile_i[0-9] $$relfile_i[0-9][0-9]; \ else :; fi); \ done uninstall-pdf-am: @$(NORMAL_UNINSTALL) @list='$(PDFS)'; test -n "$(pdfdir)" || list=; \ for p in $$list; do \ $(am__strip_dir) \ echo " rm -f '$(DESTDIR)$(pdfdir)/$$f'"; \ rm -f "$(DESTDIR)$(pdfdir)/$$f"; \ done uninstall-ps-am: @$(NORMAL_UNINSTALL) @list='$(PSS)'; test -n "$(psdir)" || list=; \ for p in $$list; do \ $(am__strip_dir) \ echo " rm -f '$(DESTDIR)$(psdir)/$$f'"; \ rm -f "$(DESTDIR)$(psdir)/$$f"; \ done dist-info: $(INFO_DEPS) @srcdirstrip=`echo "$(srcdir)" | sed 's|.|.|g'`; \ list='$(INFO_DEPS)'; \ for base in $$list; do \ case $$base in \ $(srcdir)/*) base=`echo "$$base" | sed "s|^$$srcdirstrip/||"`;; \ esac; \ if test -f $$base; then d=.; else d=$(srcdir); fi; \ base_i=`echo "$$base" | sed 's|\.info$$||;s|$$|.i|'`; \ for file in $$d/$$base $$d/$$base-[0-9] $$d/$$base-[0-9][0-9] $$d/$$base_i[0-9] $$d/$$base_i[0-9][0-9]; do \ if test -f $$file; then \ relfile=`expr "$$file" : "$$d/\(.*\)"`; \ test -f "$(distdir)/$$relfile" || \ cp -p $$file "$(distdir)/$$relfile"; \ else :; fi; \ done; \ done mostlyclean-aminfo: -rm -rf guile-gnome-pango.aux guile-gnome-pango.cp guile-gnome-pango.cps \ guile-gnome-pango.fn guile-gnome-pango.fns \ guile-gnome-pango.ky guile-gnome-pango.kys \ guile-gnome-pango.log guile-gnome-pango.pg \ guile-gnome-pango.pgs guile-gnome-pango.tmp \ guile-gnome-pango.toc guile-gnome-pango.tp \ guile-gnome-pango.tps guile-gnome-pango.vr \ guile-gnome-pango.vrs clean-aminfo: -test -z "guile-gnome-pango.dvi guile-gnome-pango.pdf guile-gnome-pango.ps \ guile-gnome-pango.html" \ || rm -rf guile-gnome-pango.dvi guile-gnome-pango.pdf guile-gnome-pango.ps \ guile-gnome-pango.html maintainer-clean-aminfo: @list='$(INFO_DEPS)'; for i in $$list; do \ i_i=`echo "$$i" | sed 's|\.info$$||;s|$$|.i|'`; \ echo " rm -f $$i $$i-[0-9] $$i-[0-9][0-9] $$i_i[0-9] $$i_i[0-9][0-9]"; \ rm -f $$i $$i-[0-9] $$i-[0-9][0-9] $$i_i[0-9] $$i_i[0-9][0-9]; \ done tags: TAGS TAGS: ctags: CTAGS CTAGS: distdir: $(DISTFILES) @srcdirstrip=`echo "$(srcdir)" | sed 's/[].[^$$\\*]/\\\\&/g'`; \ topsrcdirstrip=`echo "$(top_srcdir)" | sed 's/[].[^$$\\*]/\\\\&/g'`; \ list='$(DISTFILES)'; \ dist_files=`for file in $$list; do echo $$file; done | \ sed -e "s|^$$srcdirstrip/||;t" \ -e "s|^$$topsrcdirstrip/|$(top_builddir)/|;t"`; \ case $$dist_files in \ */*) $(MKDIR_P) `echo "$$dist_files" | \ sed '/\//!d;s|^|$(distdir)/|;s,/[^/]*$$,,' | \ sort -u` ;; \ esac; \ for file in $$dist_files; do \ if test -f $$file || test -d $$file; then d=.; else d=$(srcdir); fi; \ if test -d $$d/$$file; then \ dir=`echo "/$$file" | sed -e 's,/[^/]*$$,,'`; \ if test -d "$(distdir)/$$file"; then \ find "$(distdir)/$$file" -type d ! -perm -700 -exec chmod u+rwx {} \;; \ fi; \ if test -d $(srcdir)/$$file && test $$d != $(srcdir); then \ cp -fpR $(srcdir)/$$file "$(distdir)$$dir" || exit 1; \ find "$(distdir)/$$file" -type d ! -perm -700 -exec chmod u+rwx {} \;; \ fi; \ cp -fpR $$d/$$file "$(distdir)$$dir" || exit 1; \ else \ test -f "$(distdir)/$$file" \ || cp -p $$d/$$file "$(distdir)/$$file" \ || exit 1; \ fi; \ done $(MAKE) $(AM_MAKEFLAGS) \ top_distdir="$(top_distdir)" distdir="$(distdir)" \ dist-info check-am: all-am check: check-am all-am: Makefile $(INFO_DEPS) installdirs: for dir in "$(DESTDIR)$(infodir)"; do \ test -z "$$dir" || $(MKDIR_P) "$$dir"; \ done install: install-am install-exec: install-exec-am install-data: install-data-am uninstall: uninstall-am install-am: all-am @$(MAKE) $(AM_MAKEFLAGS) install-exec-am install-data-am installcheck: installcheck-am install-strip: if test -z '$(STRIP)'; then \ $(MAKE) $(AM_MAKEFLAGS) INSTALL_PROGRAM="$(INSTALL_STRIP_PROGRAM)" \ install_sh_PROGRAM="$(INSTALL_STRIP_PROGRAM)" INSTALL_STRIP_FLAG=-s \ install; \ else \ $(MAKE) $(AM_MAKEFLAGS) INSTALL_PROGRAM="$(INSTALL_STRIP_PROGRAM)" \ install_sh_PROGRAM="$(INSTALL_STRIP_PROGRAM)" INSTALL_STRIP_FLAG=-s \ "INSTALL_PROGRAM_ENV=STRIPPROG='$(STRIP)'" install; \ fi mostlyclean-generic: clean-generic: distclean-generic: -test -z "$(CONFIG_CLEAN_FILES)" || rm -f $(CONFIG_CLEAN_FILES) -test . = "$(srcdir)" || test -z "$(CONFIG_CLEAN_VPATH_FILES)" || rm -f $(CONFIG_CLEAN_VPATH_FILES) maintainer-clean-generic: @echo "This command is intended for maintainers to use" @echo "it deletes files that may require special tools to rebuild." clean: clean-am clean-am: clean-aminfo clean-generic clean-libtool mostlyclean-am distclean: distclean-am -rm -f Makefile distclean-am: clean-am distclean-generic dvi: dvi-am dvi-am: $(DVIS) html: html-am html-am: $(HTMLS) info: info-am info-am: $(INFO_DEPS) install-data-am: install-info-am install-dvi: install-dvi-am install-dvi-am: $(DVIS) @$(NORMAL_INSTALL) @list='$(DVIS)'; test -n "$(dvidir)" || list=; \ if test -n "$$list"; then \ echo " $(MKDIR_P) '$(DESTDIR)$(dvidir)'"; \ $(MKDIR_P) "$(DESTDIR)$(dvidir)" || exit 1; \ fi; \ for p in $$list; do \ if test -f "$$p"; then d=; else d="$(srcdir)/"; fi; \ echo "$$d$$p"; \ done | $(am__base_list) | \ while read files; do \ echo " $(INSTALL_DATA) $$files '$(DESTDIR)$(dvidir)'"; \ $(INSTALL_DATA) $$files "$(DESTDIR)$(dvidir)" || exit $$?; \ done install-exec-am: install-html: install-html-am install-html-am: $(HTMLS) @$(NORMAL_INSTALL) @list='$(HTMLS)'; list2=; test -n "$(htmldir)" || list=; \ if test -n "$$list"; then \ echo " $(MKDIR_P) '$(DESTDIR)$(htmldir)'"; \ $(MKDIR_P) "$(DESTDIR)$(htmldir)" || exit 1; \ fi; \ for p in $$list; do \ if test -f "$$p" || test -d "$$p"; then d=; else d="$(srcdir)/"; fi; \ $(am__strip_dir) \ d2=$$d$$p; \ if test -d "$$d2"; then \ echo " $(MKDIR_P) '$(DESTDIR)$(htmldir)/$$f'"; \ $(MKDIR_P) "$(DESTDIR)$(htmldir)/$$f" || exit 1; \ echo " $(INSTALL_DATA) '$$d2'/* '$(DESTDIR)$(htmldir)/$$f'"; \ $(INSTALL_DATA) "$$d2"/* "$(DESTDIR)$(htmldir)/$$f" || exit $$?; \ else \ list2="$$list2 $$d2"; \ fi; \ done; \ test -z "$$list2" || { echo "$$list2" | $(am__base_list) | \ while read files; do \ echo " $(INSTALL_DATA) $$files '$(DESTDIR)$(htmldir)'"; \ $(INSTALL_DATA) $$files "$(DESTDIR)$(htmldir)" || exit $$?; \ done; } install-info: install-info-am install-info-am: $(INFO_DEPS) @$(NORMAL_INSTALL) @srcdirstrip=`echo "$(srcdir)" | sed 's|.|.|g'`; \ list='$(INFO_DEPS)'; test -n "$(infodir)" || list=; \ if test -n "$$list"; then \ echo " $(MKDIR_P) '$(DESTDIR)$(infodir)'"; \ $(MKDIR_P) "$(DESTDIR)$(infodir)" || exit 1; \ fi; \ for file in $$list; do \ case $$file in \ $(srcdir)/*) file=`echo "$$file" | sed "s|^$$srcdirstrip/||"`;; \ esac; \ if test -f $$file; then d=.; else d=$(srcdir); fi; \ file_i=`echo "$$file" | sed 's|\.info$$||;s|$$|.i|'`; \ for ifile in $$d/$$file $$d/$$file-[0-9] $$d/$$file-[0-9][0-9] \ $$d/$$file_i[0-9] $$d/$$file_i[0-9][0-9] ; do \ if test -f $$ifile; then \ echo "$$ifile"; \ else : ; fi; \ done; \ done | $(am__base_list) | \ while read files; do \ echo " $(INSTALL_DATA) $$files '$(DESTDIR)$(infodir)'"; \ $(INSTALL_DATA) $$files "$(DESTDIR)$(infodir)" || exit $$?; done @$(POST_INSTALL) @if $(am__can_run_installinfo); then \ list='$(INFO_DEPS)'; test -n "$(infodir)" || list=; \ for file in $$list; do \ relfile=`echo "$$file" | sed 's|^.*/||'`; \ echo " install-info --info-dir='$(DESTDIR)$(infodir)' '$(DESTDIR)$(infodir)/$$relfile'";\ install-info --info-dir="$(DESTDIR)$(infodir)" "$(DESTDIR)$(infodir)/$$relfile" || :;\ done; \ else : ; fi install-man: install-pdf: install-pdf-am install-pdf-am: $(PDFS) @$(NORMAL_INSTALL) @list='$(PDFS)'; test -n "$(pdfdir)" || list=; \ if test -n "$$list"; then \ echo " $(MKDIR_P) '$(DESTDIR)$(pdfdir)'"; \ $(MKDIR_P) "$(DESTDIR)$(pdfdir)" || exit 1; \ fi; \ for p in $$list; do \ if test -f "$$p"; then d=; else d="$(srcdir)/"; fi; \ echo "$$d$$p"; \ done | $(am__base_list) | \ while read files; do \ echo " $(INSTALL_DATA) $$files '$(DESTDIR)$(pdfdir)'"; \ $(INSTALL_DATA) $$files "$(DESTDIR)$(pdfdir)" || exit $$?; done install-ps: install-ps-am install-ps-am: $(PSS) @$(NORMAL_INSTALL) @list='$(PSS)'; test -n "$(psdir)" || list=; \ if test -n "$$list"; then \ echo " $(MKDIR_P) '$(DESTDIR)$(psdir)'"; \ $(MKDIR_P) "$(DESTDIR)$(psdir)" || exit 1; \ fi; \ for p in $$list; do \ if test -f "$$p"; then d=; else d="$(srcdir)/"; fi; \ echo "$$d$$p"; \ done | $(am__base_list) | \ while read files; do \ echo " $(INSTALL_DATA) $$files '$(DESTDIR)$(psdir)'"; \ $(INSTALL_DATA) $$files "$(DESTDIR)$(psdir)" || exit $$?; done installcheck-am: maintainer-clean: maintainer-clean-am -rm -f Makefile maintainer-clean-am: distclean-am maintainer-clean-aminfo \ maintainer-clean-generic maintainer-clean-vti mostlyclean: mostlyclean-am mostlyclean-am: mostlyclean-aminfo mostlyclean-generic \ mostlyclean-libtool mostlyclean-vti pdf: pdf-am pdf-am: $(PDFS) ps: ps-am ps-am: $(PSS) uninstall-am: uninstall-dvi-am uninstall-html-am uninstall-info-am \ uninstall-pdf-am uninstall-ps-am .MAKE: install-am install-strip .PHONY: all all-am check check-am clean clean-aminfo clean-generic \ clean-libtool dist-info distclean distclean-generic \ distclean-libtool distdir dvi dvi-am html html-am info info-am \ install install-am install-data install-data-am install-dvi \ install-dvi-am install-exec install-exec-am install-html \ install-html-am install-info install-info-am install-man \ install-pdf install-pdf-am install-ps install-ps-am \ install-strip installcheck installcheck-am installdirs \ maintainer-clean maintainer-clean-aminfo \ maintainer-clean-generic maintainer-clean-vti mostlyclean \ mostlyclean-aminfo mostlyclean-generic mostlyclean-libtool \ mostlyclean-vti pdf pdf-am ps ps-am uninstall uninstall-am \ uninstall-dvi-am uninstall-html-am uninstall-info-am \ uninstall-pdf-am uninstall-ps-am generate-stubs: $(GUILE) $(GUILE_FLAGS) -c $(GTK_DOC_TO_TEXI_STUBS) $(docbook_xml_files) generate-defuns: $(GUILE) $(GUILE_FLAGS) -c $(GTK_DOC_TO_TEXI_DEFUNS) ./overrides.texi $(docbook_xml_files) check-coverage: $(GUILE) $(GUILE_FLAGS) -c $(GTK_DOC_CHECK_COVERAGE) generate-undocumented: rm -f undocumented.texi; touch undocumented.texi $(GUILE) $(GUILE_FLAGS) -c $(GTK_DOC_GENERATE_UNDOCUMENTED) # Tell versions [3.59,3.63) of GNU make to not export all variables. # Otherwise a system limit (for SysV at least) may be exceeded. .NOEXPORT: guile-gnome-platform-2.16.2/pango/doc/pango/stamp-vti0000644000175000017500000000014611752511104023006 0ustar00wingowingo00000000000000@set UPDATED 9 December 2011 @set UPDATED-MONTH December 2011 @set EDITION 2.16.2 @set VERSION 2.16.2 guile-gnome-platform-2.16.2/pango/doc/pango/defuns-text-attributes.xml.texi0000644000175000017500000004664311670374303027306 0ustar00wingowingo00000000000000 @c %start of fragment @deftp Class Opaque pointer. This class defines no direct slots. @end deftp @deftp Class Derives from @code{}. This class defines no direct slots. @end deftp @deftp Class Derives from @code{}. This class defines no direct slots. @end deftp @deftp Class Derives from @code{}. This class defines no direct slots. @end deftp @deftp Class Opaque pointer. This class defines no direct slots. @end deftp @deffn Function pango-attr-type-register (name@tie{}@code{mchars}) @result{}@tie{} (ret@tie{}@code{}) Allocate a new attribute type ID. @table @var @item name an identifier for the type (currently unused.) @item ret the new type ID. @end table @end deffn @deffn Function pango-attribute-copy (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{}) Make a copy of an attribute. @table @var @item attr a @code{} @item ret the newly allocated @code{}, which should be freed with @code{pango-attribute-destroy}. @end table @end deffn @deffn Function pango-attribute-equal (self@tie{}@code{}) (attr2@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{bool}) Compare two attributes for equality. This compares only the actual value of the two attributes and not the ranges that the attributes apply to. @table @var @item attr1 a @code{} @item attr2 another @code{} @item ret @samp{@code{#t}} if the two attributes have the same value. @end table @end deffn @deffn Function pango-attr-language-new (language@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{}) Create a new language tag attribute. @table @var @item language language tag @item ret the newly allocated @code{}, which should be freed with @code{pango-attribute-destroy}. @end table @end deffn @deffn Function pango-attr-family-new (family@tie{}@code{mchars}) @result{}@tie{} (ret@tie{}@code{}) Create a new font family attribute. @table @var @item family the family or comma separated list of families @item ret the newly allocated @code{}, which should be freed with @code{pango-attribute-destroy}. @end table @end deffn @deffn Function pango-attr-style-new (style@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{}) Create a new font slant style attribute. @table @var @item style the slant style @item ret the newly allocated @code{}, which should be freed with @code{pango-attribute-destroy}. @end table @end deffn @deffn Function pango-attr-variant-new (variant@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{}) Create a new font variant attribute (normal or small caps) @table @var @item variant the variant @item ret the newly allocated @code{}, which should be freed with @code{pango-attribute-destroy}. @end table @end deffn @deffn Function pango-attr-stretch-new (stretch@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{}) Create a new font stretch attribute @table @var @item stretch the stretch @item ret the newly allocated @code{}, which should be freed with @code{pango-attribute-destroy}. @end table @end deffn @deffn Function pango-attr-weight-new (weight@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{}) Create a new font weight attribute. @table @var @item weight the weight @item ret the newly allocated @code{}, which should be freed with @code{pango-attribute-destroy}. @end table @end deffn @deffn Function pango-attr-size-new (size@tie{}@code{int}) @result{}@tie{} (ret@tie{}@code{}) Create a new font-size attribute in fractional points. @table @var @item size the font size, in @samp{PANGO_SCALE}ths of a point. @item ret the newly allocated @code{}, which should be freed with @code{pango-attribute-destroy}. @end table @end deffn @deffn Function pango-attr-size-new-absolute (size@tie{}@code{int}) @result{}@tie{} (ret@tie{}@code{}) Create a new font-size attribute in device units. @table @var @item size the font size, in @samp{PANGO_SCALE}ths of a device unit. @item ret the newly allocated @code{}, which should be freed with @code{pango-attribute-destroy}. @end table Since 1.8 @end deffn @deffn Function pango-attr-font-desc-new (desc@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{}) Create a new font description attribute. This attribute allows setting family, style, weight, variant, stretch, and size simultaneously. @table @var @item desc the font description @item ret the newly allocated @code{}, which should be freed with @code{pango-attribute-destroy}. @end table @end deffn @deffn Function pango-attr-foreground-new (red@tie{}@code{unsigned-int16}) (green@tie{}@code{unsigned-int16}) (blue@tie{}@code{unsigned-int16}) @result{}@tie{} (ret@tie{}@code{}) Create a new foreground color attribute. @table @var @item red the red value (ranging from 0 to 65535) @item green the green value @item blue the blue value @item ret the newly allocated @code{}, which should be freed with @code{pango-attribute-destroy}. @end table @end deffn @deffn Function pango-attr-background-new (red@tie{}@code{unsigned-int16}) (green@tie{}@code{unsigned-int16}) (blue@tie{}@code{unsigned-int16}) @result{}@tie{} (ret@tie{}@code{}) Create a new background color attribute. @table @var @item red the red value (ranging from 0 to 65535) @item green the green value @item blue the blue value @item ret the newly allocated @code{}, which should be freed with @code{pango-attribute-destroy}. @end table @end deffn @deffn Function pango-attr-strikethrough-new (strikethrough@tie{}@code{bool}) @result{}@tie{} (ret@tie{}@code{}) Create a new strike-through attribute. @table @var @item strikethrough @samp{@code{#t}} if the text should be struck-through. @item ret the newly allocated @code{}, which should be freed with @code{pango-attribute-destroy}. @end table @end deffn @deffn Function pango-attr-strikethrough-color-new (red@tie{}@code{unsigned-int16}) (green@tie{}@code{unsigned-int16}) (blue@tie{}@code{unsigned-int16}) @result{}@tie{} (ret@tie{}@code{}) Create a new strikethrough color attribute. This attribute modifies the color of strikethrough lines. If not set, strikethrough lines will use the foreground color. @table @var @item red the red value (ranging from 0 to 65535) @item green the green value @item blue the blue value @item ret the newly allocated @code{}, which should be freed with @code{pango-attribute-destroy}. @end table Since 1.8 @end deffn @deffn Function pango-attr-underline-new (underline@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{}) Create a new underline-style attribute. @table @var @item underline the underline style. @item ret the newly allocated @code{}, which should be freed with @code{pango-attribute-destroy}. @end table @end deffn @deffn Function pango-attr-underline-color-new (red@tie{}@code{unsigned-int16}) (green@tie{}@code{unsigned-int16}) (blue@tie{}@code{unsigned-int16}) @result{}@tie{} (ret@tie{}@code{}) Create a new underline color attribute. This attribute modifies the color of underlines. If not set, underlines will use the foreground color. @table @var @item red the red value (ranging from 0 to 65535) @item green the green value @item blue the blue value @item ret the newly allocated @code{}, which should be freed with @code{pango-attribute-destroy}. @end table Since 1.8 @end deffn @deffn Function pango-attr-shape-new (ink_rect@tie{}@code{}) (logical_rect@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{}) Create a new shape attribute. A shape is used to impose a particular ink and logical rectangle on the result of shaping a particular glyph. This might be used, for instance, for embedding a picture or a widget inside a @code{}. @table @var @item ink-rect ink rectangle to assign to each character @item logical-rect logical rectangle to assign to each character @item ret the newly allocated @code{}, which should be freed with @code{pango-attribute-destroy}. @end table @end deffn @deffn Function pango-attr-scale-new (scale_factor@tie{}@code{double}) @result{}@tie{} (ret@tie{}@code{}) Create a new font size scale attribute. The base font for the affected text will have its size multiplied by @var{scale-factor}. @table @var @item scale-factor factor to scale the font @item ret the newly allocated @code{}, which should be freed with @code{pango-attribute-destroy}. @end table @end deffn @deffn Function pango-attr-fallback-new (enable_fallback@tie{}@code{bool}) @result{}@tie{} (ret@tie{}@code{}) Create a new font fallback attribute. If fallback is disabled, characters will only be used from the closest matching font on the system. No fallback will be done to other fonts on the system that might contain the characters in the text. @table @var @item enable-fallback @samp{@code{#t}} if we should fall back on other fonts for characters the active font is missing. @item ret the newly allocated @code{}, which should be freed with @code{pango-attribute-destroy}. @end table Since 1.4 @end deffn @deffn Function pango-attr-rise-new (rise@tie{}@code{int}) @result{}@tie{} (ret@tie{}@code{}) Create a new baseline displacement attribute. @table @var @item rise the amount that the text should be displaced vertically, in Pango units. Positive values displace the text upwards. @item ret the newly allocated @code{}, which should be freed with @code{pango-attribute-destroy}. @end table @end deffn @deffn Function pango-attr-letter-spacing-new (letter_spacing@tie{}@code{int}) @result{}@tie{} (ret@tie{}@code{}) Create a new letter-spacing attribute. @table @var @item letter-spacing amount of extra space to add between graphemes of the text, in Pango units. @item ret the newly allocated @code{}, which should be freed with @code{pango-attribute-destroy}. @end table Since 1.6 @end deffn @deffn Function pango-color-parse (self@tie{}@code{}) (spec@tie{}@code{mchars}) @result{}@tie{} (ret@tie{}@code{bool}) Fill in the fields of a color from a string specification. The string can either one of a large set of standard names. (Taken from the X11 @file{rgb.txt} file), or it can be a hex value in the form '#rgb' '#rrggbb' '#rrrgggbbb' or '#rrrrggggbbbb' where 'r', 'g' and 'b' are hex digits of the red, green, and blue components of the color, respectively. (White in the four forms is '#fff' '#ffffff' '#fffffffff' and '#ffffffffffff') @table @var @item color a @code{} structure in which to store the result @item spec a string specifying the new color @item ret @samp{@code{#t}} if parsing of the specifier succeeded, otherwise false. @end table @end deffn @deffn Function pango-color-copy (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{}) Creates a copy of @var{src}, which should be freed with @code{pango-color-free}. Primarily used by language bindings, not that useful otherwise (since colors can just be copied by assignment in C). @table @var @item src color to copy @item ret the newly allocated @code{}, which should be freed with @code{pango-color-free}. @end table @end deffn @deffn Function pango-language-from-string (language@tie{}@code{mchars}) @result{}@tie{} (ret@tie{}@code{}) Take a RFC-3066 format language tag as a string and convert it to a @code{} pointer that can be efficiently copied (copy the pointer) and compared with other language tags (compare the pointer.) This function first canonicalizes the string by converting it to lowercase, mapping '_' to '-', and stripping all characters other than letters and '-'. @table @var @item language a string representing a language tag @item ret an opaque pointer to a @code{} structure. this will be valid forever after. @end table @end deffn @deffn Function pango-language-matches (self@tie{}@code{}) (range_list@tie{}@code{mchars}) @result{}@tie{} (ret@tie{}@code{bool}) Checks if a language tag matches one of the elements in a list of language ranges. A language tag is considered to match a range in the list if the range is '*', the range is exactly the tag, or the range is a prefix of the tag, and the character after it in the tag is '-'. @table @var @item language a language tag (see @code{pango-language-from-string}), @samp{@code{#f}} is allowed and matches nothing but '*' @item range-list a list of language ranges, separated by ';', ':', ',', or space characters. Each element must either be '*', or a RFC 3066 language range canonicalized as by @code{pango-language-from-string} @item ret @samp{@code{#t}} if a match was found. @end table @end deffn @deffn Function pango-attr-list-new @result{}@tie{} (ret@tie{}@code{}) Create a new empty attribute list with a reference count of one. @table @var @item ret the newly allocated @code{}, which should be freed with @code{pango-attr-list-unref}. @end table @end deffn @deffn Function pango-attr-list-copy (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{}) Copy @var{list} and return an identical new list. @table @var @item list a @code{} @item ret the newly allocated @code{}, with a reference count of one, which should be freed with @code{pango-attr-list-unref}. @end table @end deffn @deffn Function pango-attr-list-insert (self@tie{}@code{}) (attr@tie{}@code{}) Insert the given attribute into the @code{}. It will be inserted after all other attributes with a matching @var{start-index}. @table @var @item list a @code{} @item attr the attribute to insert. Ownership of this value is assumed by the list. @end table @end deffn @deffn Function pango-attr-list-insert-before (self@tie{}@code{}) (attr@tie{}@code{}) Insert the given attribute into the @code{}. It will be inserted before all other attributes with a matching @var{start-index}. @table @var @item list a @code{} @item attr the attribute to insert. Ownership of this value is assumed by the list. @end table @end deffn @deffn Function pango-attr-list-change (self@tie{}@code{}) (attr@tie{}@code{}) Insert the given attribute into the @code{}. It will replace any attributes of the same type on that segment and be merged with any adjoining attributes that are identical. This function is slower than @code{pango-attr-list-insert} for creating a attribute list in order (potentially much slower for large lists). However, @code{pango-attr-list-insert} is not suitable for continually changing a set of attributes since it never removes or combines existing attributes. @table @var @item list a @code{} @item attr the attribute to insert. Ownership of this value is assumed by the list. @end table @end deffn @deffn Function pango-attr-list-splice (self@tie{}@code{}) (other@tie{}@code{}) (pos@tie{}@code{int}) (len@tie{}@code{int}) This function opens up a hole in @var{list}, fills it in with attributes from the left, and then merges @var{other} on top of the hole. This operation is equivalent to stretching every attribute that applies at position @var{pos} in @var{list} by an amount @var{len}, and then calling @code{pango-attr-list-change} with a copy of each attribute in @var{other} in sequence (offset in position by @var{pos}). This operation proves useful for, for instance, inserting a pre-edit string in the middle of an edit buffer. @table @var @item list a @code{} @item other another @code{} @item pos the position in @var{list} at which to insert @var{other} @item len the length of the spliced segment. (Note that this must be specified since the attributes in @var{other} may only be present at some subsection of this range) @end table @end deffn @deffn Function pango-attr-list-get-iterator (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{}) Create a iterator initialized to the beginning of the list. @var{list} must not be modified until this iterator is freed. @table @var @item list a @code{} @item ret the newly allocated @code{}, which should be freed with @code{pango-attr-iterator-destroy}. @end table @end deffn @deffn Function pango-attr-iterator-copy (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{}) Copy a @code{} @table @var @item iterator a @code{}. @item ret the newly allocated @code{}, which should be freed with @code{pango-attr-iterator-destroy}. @end table @end deffn @deffn Function pango-attr-iterator-next (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{bool}) Advance the iterator until the next change of style. @table @var @item iterator a @code{} @item ret @samp{@code{#f}} if the iterator is at the end of the list, otherwise @samp{@code{#t}} @end table @end deffn @deffn Function pango-attr-iterator-range (self@tie{}@code{}) @result{}@tie{} (start@tie{}@code{int}) (end@tie{}@code{int}) Get the range of the current segment. Note that the stored return values are signed, not unsigned like the values in @code{}. To deal with this API oversight, stored return values that wouldn't fit into a signed integer are clamped to @samp{G_MAXINT}. @table @var @item iterator a @code{} @item start location to store the start of the range @item end location to store the end of the range @end table @end deffn @deffn Function pango-attr-iterator-get (self@tie{}@code{}) (type@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{}) Find the current attribute of a particular type at the iterator location. When multiple attributes of the same type overlap, the attribute whose range starts closest to the current location is used. @table @var @item iterator a @code{} @item type the type of attribute to find. @item ret the current attribute of the given type, or @samp{@code{#f}} if no attribute of that type applies to the current location. @end table @end deffn @deffn Function pango-attr-iterator-get-attrs (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{gslist-of}) Gets a list of all attributes at the current position of the iterator. @table @var @item iterator a @code{} @item ret a list of all attributes for the current range. To free this value, call @code{pango-attribute-destroy} on each value and @code{g-slist-free} on the list. @end table Since 1.2 @end deffn @c %end of fragment guile-gnome-platform-2.16.2/pango/doc/pango/section-layout.xml.texi0000644000175000017500000000101111670374303025607 0ustar00wingowingo00000000000000 @c %start of fragment @node Layout Objects @chapter Layout Objects High-level layout driver objects @section Overview While complete access to the layout capabilities of Pango is provided using the detailed interfaces for itemization and shaping, using that functionality directly involves writing a fairly large amount of code. The objects and functions in this section provide a high-level driver for formatting entire paragraphs of text at once. @section Usage @include defuns-layout.xml.texi @c %end of fragment guile-gnome-platform-2.16.2/pango/doc/pango/overview.texi0000644000175000017500000000056511670374303023714 0ustar00wingowingo00000000000000@node Overview @chapter Overview @code{(gnome pango)} wraps the Pango text rendering library for Guile. It is a part of Guile-GNOME. Some example code would be really nice here; I don't have any at the moment. So send something to the guile-gnome list and be famous on the interwebs! See the documentation for @code{(gnome gobject)} for more information on Guile-GNOME. guile-gnome-platform-2.16.2/pango/doc/pango/defuns-coverage-maps.xml.texi0000644000175000017500000000412511670374303026654 0ustar00wingowingo00000000000000 @c %start of fragment @deftp Class Opaque pointer. This class defines no direct slots. @end deftp @deffn Function pango-coverage-new @result{}@tie{} (ret@tie{}@code{}) Create a new @code{} @table @var @item ret the newly allocated @code{}, initialized to @samp{PANGO_COVERAGE_NONE} with a reference count of one, which should be freed with @code{pango-coverage-unref}. @end table @end deffn @deffn Function pango-coverage-copy (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{}) Copy an existing @code{}. (This function may now be unnecessary since we refcount the structure. File a bug if you use it.) @table @var @item coverage a @code{} @item ret the newly allocated @code{}, with a reference count of one, which should be freed with @code{pango-coverage-unref}. @end table @end deffn @deffn Function pango-coverage-get (self@tie{}@code{}) (index_@tie{}@code{int}) @result{}@tie{} (ret@tie{}@code{}) Determine whether a particular index is covered by @var{coverage} @table @var @item coverage a @code{} @item index the index to check @item ret the coverage level of @var{coverage} for character @var{index}. @end table @end deffn @deffn Function pango-coverage-max (self@tie{}@code{}) (other@tie{}@code{}) Set the coverage for each index in @var{coverage} to be the max (better) value of the current coverage for the index and the coverage for the corresponding index in @var{other}. @table @var @item coverage a @code{} @item other another @code{} @end table @end deffn @deffn Function pango-coverage-set (self@tie{}@code{}) (index_@tie{}@code{int}) (level@tie{}@code{}) Modify a particular index within @var{coverage} @table @var @item coverage a @code{} @item index the index to modify @item level the new level for @var{index} @end table @end deffn @c %end of fragment guile-gnome-platform-2.16.2/pango/doc/pango/defuns-layout.xml.texi0000644000175000017500000010336211670374303025443 0ustar00wingowingo00000000000000 @c %start of fragment @deftp Class Derives from @code{}. This class defines no direct slots. @end deftp @deftp Class Derives from @code{}. This class defines no direct slots. @end deftp @deftp Class Derives from @code{}. This class defines no direct slots. @end deftp @deffn Function pango-layout-new (context@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{}) Create a new @code{} object with attributes initialized to default values for a particular @code{}. @table @var @item context a @code{} @item ret the newly allocated @code{}, with a reference count of one, which should be freed with @code{g-object-unref}. @end table @end deffn @deffn Function pango-layout-copy (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{}) @deffnx Method copy Does a deep copy-by-value of the @var{src} layout. The attribute list, tab array, and text from the original layout are all copied by value. @table @var @item src a @code{} @item ret the newly allocated @code{}, with a reference count of one, which should be freed with @code{g-object-unref}. @end table @end deffn @deffn Function pango-layout-get-context (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{}) @deffnx Method get-context Retrieves the @code{} used for this layout. @table @var @item layout a @code{} @item ret the @code{} for the layout. This does not have an additional refcount added, so if you want to keep a copy of this around, you must reference it yourself. @end table @end deffn @deffn Function pango-layout-context-changed (self@tie{}@code{}) @deffnx Method context-changed Forces recomputation of any state in the @code{} that might depend on the layout's context. This function should be called if you make changes to the context subsequent to creating the layout. @table @var @item layout a @code{} @end table @end deffn @deffn Function pango-layout-set-text (self@tie{}@code{}) (text@tie{}@code{mchars}) (length@tie{}@code{int}) @deffnx Method set-text Sets the text of the layout. @table @var @item layout a @code{} @item text a valid UTF-8 string @item length maximum length of @var{text}, in bytes. -1 indicates that the string is nul-terminated and the length should be calculated. The text will also be truncated on encountering a nul-termination even when @var{length} is positive. @end table @end deffn @deffn Function pango-layout-get-text (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{mchars}) @deffnx Method get-text Gets the text in the layout. The returned text should not be freed or modified. @table @var @item layout a @code{} @item ret the text in the @var{layout}. @end table @end deffn @deffn Function pango-layout-set-markup (self@tie{}@code{}) (markup@tie{}@code{mchars}) (length@tie{}@code{int}) @deffnx Method set-markup Same as @code{pango-layout-set-markup-with-accel}, but the markup text isn't scanned for accelerators. @table @var @item layout a @code{} @item markup marked-up text @item length length of marked-up text in bytes, or -1 if @var{markup} is nul-terminated @end table @end deffn @deffn Function pango-layout-set-markup-with-accel (self@tie{}@code{}) (markup@tie{}@code{mchars}) (length@tie{}@code{int}) (accel_marker@tie{}@code{unsigned-int32}) @result{}@tie{} (accel_char@tie{}@code{unsigned-int32}) @deffnx Method set-markup-with-accel Sets the layout text and attribute list from marked-up text (see markup format). Replaces the current text and attribute list. If @var{accel-marker} is nonzero, the given character will mark the character following it as an accelerator. For example, @var{accel-marker} might be an ampersand or underscore. All characters marked as an accelerator will receive a @samp{PANGO_UNDERLINE_LOW} attribute, and the first character so marked will be returned in @var{accel-char}. Two @var{accel-marker} characters following each other produce a single literal @var{accel-marker} character. @table @var @item layout a @code{} @item markup marked-up text (see markup format) @item length length of marked-up text in bytes, or -1 if @var{markup} is nul-terminated @item accel-marker marker for accelerators in the text @item accel-char return location for first located accelerator, or @samp{@code{#f}} @end table @end deffn @deffn Function pango-layout-set-attributes (self@tie{}@code{}) (attrs@tie{}@code{}) @deffnx Method set-attributes Sets the text attributes for a layout object. @table @var @item layout a @code{} @item attrs a @code{} @end table @end deffn @deffn Function pango-layout-get-attributes (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{}) @deffnx Method get-attributes Gets the attribute list for the layout, if any. @table @var @item layout a @code{} @item ret a @code{}. @end table @end deffn @deffn Function pango-layout-set-font-description (self@tie{}@code{}) (desc@tie{}@code{}) @deffnx Method set-font-description Sets the default font description for the layout. If no font description is set on the layout, the font description from the layout's context is used. @table @var @item layout a @code{} @item desc the new @code{}, or @samp{@code{#f}} to unset the current font description @end table @end deffn @deffn Function pango-layout-set-width (self@tie{}@code{}) (width@tie{}@code{int}) @deffnx Method set-width Sets the width to which the lines of the @code{} should wrap. @table @var @item layout a @code{}. @item width the desired width in Pango units, or -1 to indicate that no wrapping should be performed. @end table @end deffn @deffn Function pango-layout-get-width (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{int}) @deffnx Method get-width Gets the width to which the lines of the @code{} should wrap. @table @var @item layout a @code{} @item ret the width, or -1 if no width set. @end table @end deffn @deffn Function pango-layout-set-wrap (self@tie{}@code{}) (wrap@tie{}@code{}) @deffnx Method set-wrap Sets the wrap mode; the wrap mode only has effect if a width is set on the layout with @code{pango-layout-set-width}. To turn off wrapping, set the width to -1. @table @var @item layout a @code{} @item wrap the wrap mode @end table @end deffn @deffn Function pango-layout-get-wrap (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{}) @deffnx Method get-wrap Gets the wrap mode for the layout. @table @var @item layout a @code{} @item ret active wrap mode. @end table @end deffn @deffn Function pango-layout-set-ellipsize (self@tie{}@code{}) (ellipsize@tie{}@code{}) @deffnx Method set-ellipsize Sets the type of ellipsization being performed for @var{layout}. Depending on the ellipsization mode @var{ellipsize} text is removed from the start, middle, or end of lines so they fit within the width of layout set with @code{pango-layout-set-width}. If the layout contains characters such as newlines that force it to be layed out in multiple lines, then each line is ellipsized separately. @table @var @item layout a @code{} @item ellipsize the new ellipsization mode for @var{layout} @end table Since 1.6 @end deffn @deffn Function pango-layout-get-ellipsize (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{}) @deffnx Method get-ellipsize Gets the type of ellipsization being performed for @var{layout}. See @code{pango-layout-set-ellipsize} @table @var @item layout a @code{} @item ret the current ellipsization mode for @var{layout}. @end table Since 1.6 @end deffn @deffn Function pango-layout-set-indent (self@tie{}@code{}) (indent@tie{}@code{int}) @deffnx Method set-indent Sets the width in Pango units to indent each paragraph. A negative value of @var{indent} will produce a hanging indentation. That is, the first line will have the full width, and subsequent lines will be indented by the absolute value of @var{indent}. @table @var @item layout a @code{}. @item indent the amount by which to indent. @end table @end deffn @deffn Function pango-layout-get-indent (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{int}) @deffnx Method get-indent Gets the paragraph indent width in Pango units. A negative value indicates a hanging indentation. @table @var @item layout a @code{} @item ret the indent. @end table @end deffn @deffn Function pango-layout-get-spacing (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{int}) @deffnx Method get-spacing Gets the amount of spacing in @code{} between the lines of the layout. @table @var @item layout a @code{} @item ret the spacing. @end table @end deffn @deffn Function pango-layout-set-spacing (self@tie{}@code{}) (spacing@tie{}@code{int}) @deffnx Method set-spacing Sets the amount of spacing in @code{} between the lines of the layout. @table @var @item layout a @code{}. @item spacing the amount of spacing @end table @end deffn @deffn Function pango-layout-set-justify (self@tie{}@code{}) (justify@tie{}@code{bool}) @deffnx Method set-justify Sets whether each complete line should be stretched to fill the entire width of the layout. This stretching is typically done by adding whitespace, but for some scripts (such as Arabic), the justification may be done in more complex ways, like extending the characters. Note that as of Pango-1.16, this functionality is not yet implemented. @table @var @item layout a @code{} @item justify whether the lines in the layout should be justified. @end table @end deffn @deffn Function pango-layout-get-justify (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{bool}) @deffnx Method get-justify Gets whether each complete line should be stretched to fill the entire width of the layout. @table @var @item layout a @code{} @item ret the justify. @end table @end deffn @deffn Function pango-layout-set-auto-dir (self@tie{}@code{}) (auto_dir@tie{}@code{bool}) @deffnx Method set-auto-dir Sets whether to calculate the bidirectional base direction for the layout according to the contents of the layout; when this flag is on (the default), then paragraphs in @var{layout} that begin with strong right-to-left characters (Arabic and Hebrew principally), will have right-to-left layout, paragraphs with letters from other scripts will have left-to-right layout. Paragraphs with only neutral characters get their direction from the surrounding paragraphs. When @samp{@code{#f}}, the choice between left-to-right and right-to-left layout is done according to the base direction of the layout's @code{}. (See @code{pango-context-set-base-dir}). When the auto-computed direction of a paragraph differs from the base direction of the context, the interpretation of @samp{PANGO_ALIGN_LEFT} and @samp{PANGO_ALIGN_RIGHT} are swapped. @table @var @item layout a @code{} @item auto-dir if @samp{@code{#t}}, compute the bidirectional base direction from the layout's contents. @end table Since 1.4 @end deffn @deffn Function pango-layout-get-auto-dir (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{bool}) @deffnx Method get-auto-dir Gets whether to calculate the bidirectional base direction for the layout according to the contents of the layout. See @code{pango-layout-set-auto-dir}. @table @var @item layout a @code{} @item ret @samp{@code{#t}} if the bidirectional base direction is computed from the layout's contents, @samp{@code{#f}} otherwise. @end table Since 1.4 @end deffn @deffn Function pango-layout-set-alignment (self@tie{}@code{}) (alignment@tie{}@code{}) @deffnx Method set-alignment Sets the alignment for the layout: how partial lines are positioned within the horizontal space available. @table @var @item layout a @code{} @item alignment the alignment @end table @end deffn @deffn Function pango-layout-get-alignment (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{}) @deffnx Method get-alignment Gets the alignment for the layout: how partial lines are positioned within the horizontal space available. @table @var @item layout a @code{} @item ret the alignment. @end table @end deffn @deffn Function pango-layout-set-tabs (self@tie{}@code{}) (tabs@tie{}@code{}) @deffnx Method set-tabs Sets the tabs to use for @var{layout}, overriding the default tabs (by default, tabs are every 8 spaces). If @var{tabs} is @samp{@code{#f}}, the default tabs are reinstated. @var{tabs} is copied into the layout; you must free your copy of @var{tabs} yourself. @table @var @item layout a @code{} @item tabs a @code{} @end table @end deffn @deffn Function pango-layout-get-tabs (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{}) @deffnx Method get-tabs Gets the current @code{} used by this layout. If no @code{} has been set, then the default tabs are in use and @samp{@code{#f}} is returned. Default tabs are every 8 spaces. The return value should be freed with @code{pango-tab-array-free}. @table @var @item layout a @code{} @item ret a copy of the tabs for this layout, or @samp{@code{#f}}. @end table @end deffn @deffn Function pango-layout-index-to-pos (self@tie{}@code{}) (index_@tie{}@code{int}) @result{}@tie{} (pos@tie{}@code{}) @deffnx Method index-to-pos Converts from an index within a @code{} to the onscreen position corresponding to the grapheme at that index, which is represented as rectangle. Note that @samp{pos->x} is always the leading edge of the grapheme and @samp{pos->x + pos->width} the trailing edge of the grapheme. If the directionality of the grapheme is right-to-left, then @samp{pos->width} will be negative. @table @var @item layout a @code{} @item index byte index within @var{layout} @item pos rectangle in which to store the position of the grapheme @end table @end deffn @deffn Function pango-layout-index-to-line-x (self@tie{}@code{}) (index_@tie{}@code{int}) (trailing@tie{}@code{bool}) @result{}@tie{} (line@tie{}@code{int}) (x_pos@tie{}@code{int}) @deffnx Method index-to-line-x Converts from byte @var{index} within the @var{layout} to line and X position. (X position is measured from the left edge of the line) @table @var @item layout a @code{} @item index the byte index of a grapheme within the layout. @item trailing an integer indicating the edge of the grapheme to retrieve the position of. If 0, the trailing edge of the grapheme, if > 0, the leading of the grapheme. @item line location to store resulting line index. (which will between 0 and pango_layout_get_line_count(layout) - 1) @item x-pos location to store resulting position within line (@samp{PANGO_SCALE} units per device unit) @end table @end deffn @deffn Function pango-layout-xy-to-index (self@tie{}@code{}) (x@tie{}@code{int}) (y@tie{}@code{int}) @result{}@tie{} (ret@tie{}@code{bool}) (index_@tie{}@code{int}) (trailing@tie{}@code{int}) @deffnx Method xy-to-index Converts from X and Y position within a layout to the byte index to the character at that logical position. If the Y position is not inside the layout, the closest position is chosen (the position will be clamped inside the layout). If the X position is not within the layout, then the start or the end of the line is chosen as described for @code{pango-layout-x-to-index}. If either the X or Y positions were not inside the layout, then the function returns @samp{@code{#f}}; on an exact hit, it returns @samp{@code{#t}}. @table @var @item layout a @code{} @item x the X offset (in @code{}) from the left edge of the layout. @item y the Y offset (in @code{}) from the top edge of the layout @item index location to store calculated byte index @item trailing location to store a integer indicating where in the grapheme the user clicked. It will either be zero, or the number of characters in the grapheme. 0 represents the trailing edge of the grapheme. @item ret @samp{@code{#t}} if the coordinates were inside text, @samp{@code{#f}} otherwise. @end table @end deffn @deffn Function pango-layout-get-cursor-pos (self@tie{}@code{}) (index_@tie{}@code{int}) @result{}@tie{} (strong_pos@tie{}@code{}) (weak_pos@tie{}@code{}) @deffnx Method get-cursor-pos Given an index within a layout, determines the positions that of the strong and weak cursors if the insertion point is at that index. The position of each cursor is stored as a zero-width rectangle. The strong cursor location is the location where characters of the directionality equal to the base direction of the layout are inserted. The weak cursor location is the location where characters of the directionality opposite to the base direction of the layout are inserted. @table @var @item layout a @code{} @item index the byte index of the cursor @item strong-pos location to store the strong cursor position (may be @samp{@code{#f}}) @item weak-pos location to store the weak cursor position (may be @samp{@code{#f}}) @end table @end deffn @deffn Function pango-layout-move-cursor-visually (self@tie{}@code{}) (strong@tie{}@code{bool}) (old_index@tie{}@code{int}) (old_trailing@tie{}@code{int}) (direction@tie{}@code{int}) @result{}@tie{} (new_index@tie{}@code{int}) (new_trailing@tie{}@code{int}) @deffnx Method move-cursor-visually Computes a new cursor position from an old position and a count of positions to move visually. If @var{count} is positive, then the new strong cursor position will be one position to the right of the old cursor position. If @var{count} is negative, then the new strong cursor position will be one position to the left of the old cursor position. In the presence of bidirection text, the correspondence between logical and visual order will depend on the direction of the current run, and there may be jumps when the cursor is moved off of the end of a run. Motion here is in cursor positions, not in characters, so a single call to @code{pango-layout-move-cursor-visually} may move the cursor over multiple characters when multiple characters combine to form a single grapheme. @table @var @item layout a @code{}. @item strong whether the moving cursor is the strong cursor or the weak cursor. The strong cursor is the cursor corresponding to text insertion in the base direction for the layout. @item old-index the byte index of the grapheme for the old index @item old-trailing if 0, the cursor was at the trailing edge of the grapheme indicated by @var{old-index}, if > 0, the cursor was at the leading edge. @item direction direction to move cursor. A negative value indicates motion to the left. @item new-index location to store the new cursor byte index. A value of -1 indicates that the cursor has been moved off the beginning of the layout. A value of @samp{G_MAXINT} indicates that the cursor has been moved off the end of the layout. @item new-trailing number of characters to move forward from the location returned for @var{new-index} to get the position where the cursor should be displayed. This allows distinguishing the position at the beginning of one line from the position at the end of the preceding line. @var{new-index} is always on the line where the cursor should be displayed. @end table @end deffn @deffn Function pango-layout-get-extents (self@tie{}@code{}) @result{}@tie{} (ink_rect@tie{}@code{}) (logical_rect@tie{}@code{}) @deffnx Method get-extents Computes the logical and ink extents of @var{layout}. Logical extents are usually what you want for positioning things. Note that both extents may have non-zero x and y. You may want to use those to offset where you render the layout. Not doing that is a very typical bug that shows up as right-to-left layouts not being correctly positioned in a layout with a set width. The extents are given in layout coordinates and in Pango units; layout coordinates begin at the top left corner of the layout. @table @var @item layout a @code{} @item ink-rect rectangle used to store the extents of the layout as drawn or @samp{@code{#f}} to indicate that the result is not needed. @item logical-rect rectangle used to store the logical extents of the layout or @samp{@code{#f}} to indicate that the result is not needed. @end table @end deffn @deffn Function pango-layout-get-pixel-extents (self@tie{}@code{}) @result{}@tie{} (ink_rect@tie{}@code{}) (logical_rect@tie{}@code{}) @deffnx Method get-pixel-extents Computes the logical and ink extents of @var{layout} in device units. See @code{pango-layout-get-extents}; this function just calls @code{pango-layout-get-extents} and then converts the extents to device units using the @samp{PANGO_SCALE} factor. @table @var @item layout a @code{} @item ink-rect rectangle used to store the extents of the layout as drawn or @samp{@code{#f}} to indicate that the result is not needed. @item logical-rect rectangle used to store the logical extents of the layout or @samp{@code{#f}} to indicate that the result is not needed. @end table @end deffn @deffn Function pango-layout-get-size (self@tie{}@code{}) @result{}@tie{} (width@tie{}@code{int}) (height@tie{}@code{int}) @deffnx Method get-size Determines the logical width and height of a @code{} in Pango units. (device units scaled by @samp{PANGO_SCALE}). This is simply a convenience function around @code{pango-layout-get-extents}. @table @var @item layout a @code{} @item width location to store the logical width, or @samp{@code{#f}} @item height location to store the logical height, or @samp{@code{#f}} @end table @end deffn @deffn Function pango-layout-get-pixel-size (self@tie{}@code{}) @result{}@tie{} (width@tie{}@code{int}) (height@tie{}@code{int}) @deffnx Method get-pixel-size Determines the logical width and height of a @code{} in device units. (@code{pango-layout-get-size} returns the width and height scaled by @samp{PANGO_SCALE}.) This is simply a convenience function around @code{pango-layout-get-pixel-extents}. @table @var @item layout a @code{} @item width location to store the logical width, or @samp{@code{#f}} @item height location to store the logical height, or @samp{@code{#f}} @end table @end deffn @deffn Function pango-layout-get-line-count (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{int}) @deffnx Method get-line-count Retrieves the count of lines for the @var{layout}. @table @var @item layout @code{} @item ret the line count. @end table @end deffn @deffn Function pango-layout-get-line (self@tie{}@code{}) (line@tie{}@code{int}) @result{}@tie{} (ret@tie{}@code{}) @deffnx Method get-line Retrieves a particular line from a @code{}. @table @var @item layout a @code{} @item line the index of a line, which must be between 0 and @samp{pango_layout_get_line_count(layout) - 1}, inclusive. @item ret the requested @code{}, or @samp{@code{#f}} if the index is out of range. This layout line can be ref'ed and retained, but will become invalid if changes are made to the @code{}. @end table @end deffn @deffn Function pango-layout-get-lines (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{gslist-of}) @deffnx Method get-lines Returns the lines of the @var{layout} as a list. @table @var @item layout a @code{} @item ret a @code{} containing the lines in the layout. This points to internal data of the @code{} and must be used with care. It will become invalid on any change to the layout's text or properties. @end table @end deffn @deffn Function pango-layout-get-iter (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{}) @deffnx Method get-iter Returns an iterator to iterate over the visual extents of the layout. @table @var @item layout a @code{} @item ret the new @code{} that should be freed using @code{pango-layout-iter-free}. @end table @end deffn @deffn Function pango-layout-iter-next-run (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{bool}) Moves @var{iter} forward to the next run in visual order. If @var{iter} was already at the end of the layout, returns @samp{@code{#f}}. @table @var @item iter a @code{} @item ret whether motion was possible. @end table @end deffn @deffn Function pango-layout-iter-next-char (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{bool}) Moves @var{iter} forward to the next character in visual order. If @var{iter} was already at the end of the layout, returns @samp{@code{#f}}. @table @var @item iter a @code{} @item ret whether motion was possible. @end table @end deffn @deffn Function pango-layout-iter-next-cluster (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{bool}) Moves @var{iter} forward to the next cluster in visual order. If @var{iter} was already at the end of the layout, returns @samp{@code{#f}}. @table @var @item iter a @code{} @item ret whether motion was possible. @end table @end deffn @deffn Function pango-layout-iter-next-line (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{bool}) Moves @var{iter} forward to the start of the next line. If @var{iter} is already on the last line, returns @samp{@code{#f}}. @table @var @item iter a @code{} @item ret whether motion was possible. @end table @end deffn @deffn Function pango-layout-iter-at-last-line (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{bool}) Determines whether @var{iter} is on the last line of the layout. @table @var @item iter a @code{} @item ret @samp{@code{#t}} if @var{iter} is on the last line. @end table @end deffn @deffn Function pango-layout-iter-get-index (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{int}) Gets the current byte index. Note that iterating forward by char moves in visual order, not logical order, so indexes may not be sequential. Also, the index may be equal to the length of the text in the layout, if on the @samp{@code{#f}} run (see @code{pango-layout-iter-get-run}). @table @var @item iter a @code{} @item ret current byte index. @end table @end deffn @deffn Function pango-layout-iter-get-baseline (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{int}) Gets the Y position of the current line's baseline, in layout coordinates (origin at top left of the entire layout). @table @var @item iter a @code{} @item ret baseline of current line. @end table @end deffn @deffn Function pango-layout-iter-get-line (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{}) Gets the current line. @table @var @item iter a @code{} @item ret the current line. @end table @end deffn @deffn Function pango-layout-iter-get-char-extents (self@tie{}@code{}) @result{}@tie{} (logical_rect@tie{}@code{}) Gets the extents of the current character, in layout coordinates (origin is the top left of the entire layout). Only logical extents can sensibly be obtained for characters; ink extents make sense only down to the level of clusters. @table @var @item iter a @code{} @item logical-rect rectangle to fill with logical extents @end table @end deffn @deffn Function pango-layout-iter-get-run-extents (self@tie{}@code{}) @result{}@tie{} (ink_rect@tie{}@code{}) (logical_rect@tie{}@code{}) Gets the extents of the current run in layout coordinates (origin is the top left of the entire layout). @table @var @item iter a @code{} @item ink-rect rectangle to fill with ink extents, or @samp{@code{#f}} @item logical-rect rectangle to fill with logical extents, or @samp{@code{#f}} @end table @end deffn @deffn Function pango-layout-iter-get-line-yrange (self@tie{}@code{}) @result{}@tie{} (y0_@tie{}@code{int}) (y1_@tie{}@code{int}) Divides the vertical space in the @code{} being iterated over between the lines in the layout, and returns the space belonging to the current line. A line's range includes the line's logical extents, plus half of the spacing above and below the line, if @code{pango-layout-set-spacing} has been called to set layout spacing. The Y positions are in layout coordinates (origin at top left of the entire layout). @table @var @item iter a @code{} @item y0 start of line @item y1 end of line @end table @end deffn @deffn Function pango-layout-iter-get-line-extents (self@tie{}@code{}) @result{}@tie{} (ink_rect@tie{}@code{}) (logical_rect@tie{}@code{}) Obtains the extents of the current line. @var{ink-rect} or @var{logical-rect} can be NULL if you aren't interested in them. Extents are in layout coordinates (origin is the top-left corner of the entire @code{}). Thus the extents returned by this function will be the same width/height but not at the same x/y as the extents returned from @code{pango-layout-line-get-extents}. @table @var @item iter a @code{} @item ink-rect rectangle to fill with ink extents, or @samp{@code{#f}} @item logical-rect rectangle to fill with logical extents, or @samp{@code{#f}} @end table @end deffn @deffn Function pango-layout-line-get-extents (self@tie{}@code{}) @result{}@tie{} (ink_rect@tie{}@code{}) (logical_rect@tie{}@code{}) Computes the logical and ink extents of a layout line. See @code{pango-font-get-glyph-extents} for details about the interpretation of the rectangles. @table @var @item line a @code{} @item ink-rect rectangle used to store the extents of the glyph string as drawn, or @samp{@code{#f}} @item logical-rect rectangle used to store the logical extents of the glyph string, or @samp{@code{#f}} @end table @end deffn @deffn Function pango-layout-line-get-pixel-extents (self@tie{}@code{}) @result{}@tie{} (ink_rect@tie{}@code{}) (logical_rect@tie{}@code{}) Computes the logical and ink extents of a layout line. See @code{pango-font-get-glyph-extents} for details about the interpretation of the rectangles. The returned rectangles are in device units, as opposed to @code{pango-layout-line-get-extents}, which returns the extents in @code{}. @table @var @item layout-line a @code{} @item ink-rect rectangle used to store the extents of the glyph string as drawn, or @samp{@code{#f}} @item logical-rect rectangle used to store the logical extents of the glyph string, or @samp{@code{#f}} @end table @end deffn @deffn Function pango-layout-line-index-to-x (self@tie{}@code{}) (index_@tie{}@code{int}) (trailing@tie{}@code{bool}) @result{}@tie{} (x_pos@tie{}@code{int}) Converts an index within a line to a X position. @table @var @item line a @code{} @item index byte offset of a grapheme within the layout @item trailing an integer indicating the edge of the grapheme to retrieve the position of. If 0, the trailing edge of the grapheme, if > 0, the leading of the grapheme. @item x-pos location to store the x_offset (in @code{}) @end table @end deffn @deffn Function pango-layout-line-x-to-index (self@tie{}@code{}) (x_pos@tie{}@code{int}) @result{}@tie{} (ret@tie{}@code{bool}) (index_@tie{}@code{int}) (trailing@tie{}@code{int}) Converts from x offset to the byte index of the corresponding character within the text of the layout. If @var{x-pos} is outside the line, @var{index} and @var{trailing} will point to the very first or very last position in the line. This determination is based on the resolved direction of the paragraph; for example, if the resolved direction is right-to-left, then an X position to the right of the line (after it) results in 0 being stored in @var{index} and @var{trailing}. An X position to the left of the line results in @var{index} pointing to the (logical) last grapheme in the line and @var{trailing} being set to the number of characters in that grapheme. The reverse is true for a left-to-right line. @table @var @item line a @code{} @item x-pos the X offset (in @code{}) from the left edge of the line. @item index location to store calculated byte index for the grapheme in which the user clicked. @item trailing location to store a integer indicating where in the grapheme the user clicked. It will either be zero, or the number of characters in the grapheme. 0 represents the trailing edge of the grapheme. @item ret @samp{@code{#f}} if @var{x-pos} was outside the line, @samp{@code{#t}} if inside @end table @end deffn @c %end of fragment guile-gnome-platform-2.16.2/pango/doc/pango/section-pango-renderer.xml.texi0000644000175000017500000000101311670374303027204 0ustar00wingowingo00000000000000 @c %start of fragment @node PangoRenderer @chapter PangoRenderer Rendering driver base class @section Overview @code{} is a base class that contains the necessary logic for rendering a @code{} or @code{}. By subclassing @code{} and overriding operations such as @var{draw-glyphs} and @var{draw-rectangle}, renderers for particular font backends and destinations can be created. @section Usage @include defuns-pango-renderer.xml.texi @c %end of fragment guile-gnome-platform-2.16.2/pango/doc/pango/section-glyphs.xml.texi0000644000175000017500000000055511670374303025614 0ustar00wingowingo00000000000000 @c %start of fragment @node Glyph Storage @chapter Glyph Storage Structures for storing information about glyphs @section Overview @code{pango-shape} produces a string of glyphs which can be measured or drawn to the screen. The following structures are used to store information about glyphs. @section Usage @include defuns-glyphs.xml.texi @c %end of fragment guile-gnome-platform-2.16.2/pango/doc/pango/defuns-glyphs.xml.texi0000644000175000017500000001444111670374303025433 0ustar00wingowingo00000000000000 @c %start of fragment @deftp Class Derives from @code{}. This class defines no direct slots. @end deftp @deftp Class Derives from @code{}. This class defines no direct slots. @end deftp @deffn Function pango-matrix-copy (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{}) Copies a @code{}. @table @var @item matrix a @code{}, can be @samp{@code{#f}} @item ret the newly allocated @code{}, which should be freed with @code{pango-matrix-free}, or @samp{@code{#f}} if @var{matrix} was @samp{@code{#f}}. @end table Since 1.6 @end deffn @deffn Function pango-matrix-translate (self@tie{}@code{}) (tx@tie{}@code{double}) (ty@tie{}@code{double}) Changes the transformation represented by @var{matrix} to be the transformation given by first translating by (@var{tx}, @var{ty}) then applying the original transformation. @table @var @item matrix a @code{} @item tx amount to translate in the X direction @item ty amount to translate in the Y direction @end table Since 1.6 @end deffn @deffn Function pango-matrix-scale (self@tie{}@code{}) (scale_x@tie{}@code{double}) (scale_y@tie{}@code{double}) Changes the transformation represented by @var{matrix} to be the transformation given by first scaling by @var{sx} in the X direction and @var{sy} in the Y direction then applying the original transformation. @table @var @item matrix a @code{} @item scale-x amount to scale by in X direction @item scale-y amount to scale by in Y direction @end table Since 1.6 @end deffn @deffn Function pango-matrix-rotate (self@tie{}@code{}) (degrees@tie{}@code{double}) Changes the transformation represented by @var{matrix} to be the transformation given by first rotating by @var{degrees} degrees counter-clockwise then applying the original transformation. @table @var @item matrix a @code{} @item degrees degrees to rotate counter-clockwise @end table Since 1.6 @end deffn @deffn Function pango-matrix-concat (self@tie{}@code{}) (new_matrix@tie{}@code{}) Changes the transformation represented by @var{matrix} to be the transformation given by first applying transformation given by @var{new-matrix} then applying the original transformation. @table @var @item matrix a @code{} @item new-matrix a @code{} @end table Since 1.6 @end deffn @deffn Function pango-matrix-get-font-scale-factor (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{double}) Returns the scale factor of a matrix on the height of the font. That is, the scale factor in the direction perpendicular to the vector that the X coordinate is mapped to. @table @var @item matrix a @code{}, may be @samp{@code{#f}} @item ret the scale factor of @var{matrix} on the height of the font, or 1.0 if @var{matrix} is @samp{@code{#f}}. @end table Since 1.12 @end deffn @deffn Function pango-glyph-string-new @result{}@tie{} (ret@tie{}@code{}) Create a new @code{}. @table @var @item ret the newly allocated @code{}, which should be freed with @code{pango-glyph-string-free}. @end table @end deffn @deffn Function pango-glyph-string-copy (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{}) Copy a glyph string and associated storage. @table @var @item string a @code{}. @item ret the newly allocated @code{}, which should be freed with @code{pango-glyph-string-free}. @end table @end deffn @deffn Function pango-glyph-string-set-size (self@tie{}@code{}) (new_len@tie{}@code{int}) Resize a glyph string to the given length. @table @var @item string a @code{}. @item new-len the new length of the string. @end table @end deffn @deffn Function pango-glyph-string-extents (self@tie{}@code{}) (font@tie{}@code{}) @result{}@tie{} (ink_rect@tie{}@code{}) (logical_rect@tie{}@code{}) Compute the logical and ink extents of a glyph string. See the documentation for @code{pango-font-get-glyph-extents} for details about the interpretation of the rectangles. @table @var @item glyphs a @code{} @item font a @code{} @item ink-rect rectangle used to store the extents of the glyph string as drawn or @samp{@code{#f}} to indicate that the result is not needed. @item logical-rect rectangle used to store the logical extents of the glyph string or @samp{@code{#f}} to indicate that the result is not needed. @end table @end deffn @deffn Function pango-glyph-string-extents-range (self@tie{}@code{}) (start@tie{}@code{int}) (end@tie{}@code{int}) (font@tie{}@code{}) @result{}@tie{} (ink_rect@tie{}@code{}) (logical_rect@tie{}@code{}) Computes the extents of a sub-portion of a glyph string. The extents are relative to the start of the glyph string range (the origin of their coordinate system is at the start of the range, not at the start of the entire glyph string). @table @var @item glyphs a @code{} @item start start index @item end end index (the range is the set of bytes with indices such that start <= index < end) @item font a @code{} @item ink-rect rectangle used to store the extents of the glyph string range as drawn or @samp{@code{#f}} to indicate that the result is not needed. @item logical-rect rectangle used to store the logical extents of the glyph string range or @samp{@code{#f}} to indicate that the result is not needed. @end table @end deffn @deffn Function pango-glyph-string-get-width (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{int}) Computes the logical width of the glyph string as can also be computed using @code{pango-glyph-string-extents}. However, since this only computes the width, it's much faster. This is in fact only a convenience function that computes the sum of geometry.width for each glyph in the @var{glyphs}. @table @var @item glyphs a @code{} @item ret the logical width of the glyph string. @end table Since 1.14 @end deffn @c %end of fragment guile-gnome-platform-2.16.2/pango/doc/pango/section-fonts.xml.texi0000644000175000017500000000074111670374303025434 0ustar00wingowingo00000000000000 @c %start of fragment @node Fonts @chapter Fonts Structures representing abstract fonts @section Overview Pango supports a flexible architecture where a particular rendering architecture can supply an implementation of fonts. The @code{} structure represents an abstract rendering-system-independent font. Pango provides routines to list available fonts, and to load a font of a given description. @section Usage @include defuns-fonts.xml.texi @c %end of fragment guile-gnome-platform-2.16.2/pango/doc/pango/guile-gnome-pango.info0000644000175000017500000041300411752516272025342 0ustar00wingowingo00000000000000This is guile-gnome-pango.info, produced by makeinfo version 4.13 from guile-gnome-pango.texi. This manual is for `(gnome pango)' (version 2.16.2, updated 9 December 2011) Copyright 2001-2007 Owen Taylor, Behdad Esfahbod, many others Permission is granted to copy, distribute and/or modify this document under the terms of the GNU General Public License, Version 2 or any later version published by the Free Software Foundation. INFO-DIR-SECTION The Algorithmic Language Scheme START-INFO-DIR-ENTRY * Guile-Pango: (guile-gnome-pango.info). Text layout and rendering. END-INFO-DIR-ENTRY  File: guile-gnome-pango.info, Node: Top, Next: Overview, Up: (dir) Guile-Pango *********** This manual is for `(gnome pango)' (version 2.16.2, updated 9 December 2011) Copyright 2001-2007 Owen Taylor, Behdad Esfahbod, many others Permission is granted to copy, distribute and/or modify this document under the terms of the GNU General Public License, Version 2 or any later version published by the Free Software Foundation. * Menu: * Overview:: About the binding. * Coverage Maps:: Unicode character range coverage storage * Fonts:: Structures representing abstract fonts * Glyph Storage:: Structures for storing information about glyphs * Layout Objects:: High-level layout driver objects * Rendering:: Functions to run the rendering pipeline * PangoRenderer:: Rendering driver base class * Scripts:: Identifying writing systems * Tab Stops:: Structures for storing tab stops * Text Attributes:: Font and other attributes for annotating text * Undocumented:: Undocumented functions. * Type Index:: * Function Index::  File: guile-gnome-pango.info, Node: Overview, Next: Coverage Maps, Prev: Top, Up: Top 1 Overview ********** `(gnome pango)' wraps the Pango text rendering library for Guile. It is a part of Guile-GNOME. Some example code would be really nice here; I don't have any at the moment. So send something to the guile-gnome list and be famous on the interwebs! See the documentation for `(gnome gobject)' for more information on Guile-GNOME.  File: guile-gnome-pango.info, Node: Coverage Maps, Next: Fonts, Prev: Overview, Up: Top 2 Coverage Maps *************** Unicode character range coverage storage 2.1 Overview ============ It is often necessary in Pango to determine if a particular font can represent a particular character, and also how well it can represent that character. The `' is a data structure that is used to represent that information. 2.2 Usage ========= -- Class: Opaque pointer. This class defines no direct slots. -- Function: pango-coverage-new => (ret `') Create a new `' RET the newly allocated `', initialized to `PANGO_COVERAGE_NONE' with a reference count of one, which should be freed with `pango-coverage-unref'. -- Function: pango-coverage-copy (self `') => (ret `') Copy an existing `'. (This function may now be unnecessary since we refcount the structure. File a bug if you use it.) COVERAGE a `' RET the newly allocated `', with a reference count of one, which should be freed with `pango-coverage-unref'. -- Function: pango-coverage-get (self `') (index_ `int') => (ret `') Determine whether a particular index is covered by COVERAGE COVERAGE a `' INDEX the index to check RET the coverage level of COVERAGE for character INDEX. -- Function: pango-coverage-max (self `') (other `') Set the coverage for each index in COVERAGE to be the max (better) value of the current coverage for the index and the coverage for the corresponding index in OTHER. COVERAGE a `' OTHER another `' -- Function: pango-coverage-set (self `') (index_ `int') (level `') Modify a particular index within COVERAGE COVERAGE a `' INDEX the index to modify LEVEL the new level for INDEX  File: guile-gnome-pango.info, Node: Fonts, Next: Glyph Storage, Prev: Coverage Maps, Up: Top 3 Fonts ******* Structures representing abstract fonts 3.1 Overview ============ Pango supports a flexible architecture where a particular rendering architecture can supply an implementation of fonts. The `' structure represents an abstract rendering-system-independent font. Pango provides routines to list available fonts, and to load a font of a given description. 3.2 Usage ========= -- Class: Derives from `'. This class defines no direct slots. -- Class: Derives from `'. This class defines no direct slots. -- Class: Derives from `'. This class defines no direct slots. -- Class: Derives from `'. This class defines no direct slots. -- Class: Derives from `'. This class defines no direct slots. -- Class: Derives from `'. This class defines no direct slots. -- Class: Derives from `'. This class defines no direct slots. -- Function: pango-font-description-new => (ret `') Creates a new font description structure with all fields unset. RET the newly allocated `', which should be freed using `pango-font-description-free'. -- Function: pango-font-description-copy (self `') => (ret `') Make a copy of a `'. DESC a `' RET the newly allocated `', which should be freed with `pango-font-description-free'. -- Function: pango-font-description-hash (self `') => (ret `unsigned-int') Computes a hash of a `' structure suitable to be used, for example, as an argument to `g-hash-table-new'. The hash value is independent of DESC->MASK. DESC a `' RET the hash value. -- Function: pango-font-description-equal (self `') (desc2 `') => (ret `bool') Compares two font descriptions for equality. Two font descriptions are considered equal if the fonts they describe are provably identical. This means that their masks do not have to match, as long as other fields are all the same. (Two font descriptions may result in identical fonts being loaded, but still compare ``#f''.) DESC1 a `' DESC2 another `' RET ``#t'' if the two font descriptions are identical, ``#f'' otherwise. -- Function: pango-font-description-set-family (self `') (family `mchars') Sets the family name field of a font description. The family name represents a family of related font styles, and will resolve to a particular `'. In some uses of `', it is also possible to use a comma separated list of family names for this field. DESC a `'. FAMILY a string representing the family name. -- Function: pango-font-description-get-family (self `') => (ret `mchars') Gets the family name field of a font description. See `pango-font-description-set-family'. DESC a `'. RET the family name field for the font description, or ``#f'' if not previously set. This has the same life-time as the font description itself and should not be freed. -- Function: pango-font-description-set-style (self `') (style `') Sets the style field of a `'. The `' enumeration describes whether the font is slanted and the manner in which it is slanted; it can be either `', `', or `'. Most fonts will either have a italic style or an oblique style, but not both, and font matching in Pango will match italic specifications with oblique fonts and vice-versa if an exact match is not found. DESC a `' STYLE the style for the font description -- Function: pango-font-description-get-style (self `') => (ret `') Gets the style field of a `'. See `pango-font-description-set-style'. DESC a `' RET the style field for the font description. Use `pango-font-description-get-set-fields' to find out if the field was explicitly set or not. -- Function: pango-font-description-set-variant (self `') (variant `') Sets the variant field of a font description. The `' can either be `PANGO_VARIANT_NORMAL' or `PANGO_VARIANT_SMALL_CAPS'. DESC a `' VARIANT the variant type for the font description. -- Function: pango-font-description-get-variant (self `') => (ret `') Gets the variant field of a `'. See `pango-font-description-set-variant'. DESC a `'. RET the variant field for the font description. Use `pango-font-description-get-set-fields' to find out if the field was explicitly set or not. -- Function: pango-font-description-set-weight (self `') (weight `') Sets the weight field of a font description. The weight field specifies how bold or light the font should be. In addition to the values of the `' enumeration, other intermediate numeric values are possible. DESC a `' WEIGHT the weight for the font description. -- Function: pango-font-description-get-weight (self `') => (ret `') Gets the weight field of a font description. See `pango-font-description-set-weight'. DESC a `' RET the weight field for the font description. Use `pango-font-description-get-set-fields' to find out if the field was explicitly set or not. -- Function: pango-font-description-set-stretch (self `') (stretch `') Sets the stretch field of a font description. The stretch field specifies how narrow or wide the font should be. DESC a `' STRETCH the stretch for the font description -- Function: pango-font-description-get-stretch (self `') => (ret `') Gets the stretch field of a font description. See `pango-font-description-set-stretch'. DESC a `'. RET the stretch field for the font description. Use `pango-font-description-get-set-fields' to find out if the field was explicitly set or not. -- Function: pango-font-description-set-size (self `') (size `int') Sets the size field of a font description in fractional points. This is mutually exclusive with `pango-font-description-set-absolute-size'. DESC a `' SIZE the size of the font in points, scaled by PANGO_SCALE. (That is, a SIZE value of 10 * PANGO_SCALE is a 10 point font. The conversion factor between points and device units depends on system configuration and the output device. For screen display, a logical DPI of 96 is common, in which case a 10 point font corresponds to a 10 * (96 / 72) = 13.3 pixel font. Use `pango-font-description-set-absolute-size' if you need a particular size in device units. -- Function: pango-font-description-get-size (self `') => (ret `int') Gets the size field of a font description. See `pango-font-description-set-size'. DESC a `' RET the size field for the font description in points or device units. You must call `pango-font-description-get-size-is-absolute' to find out which is the case. Returns 0 if the size field has not previously been set or it has been set to 0 explicitly. Use `pango-font-description-get-set-fields' to find out if the field was explicitly set or not. -- Function: pango-font-description-unset-fields (self `') (to_unset `') Unsets some of the fields in a `'. The unset fields will get back to their default values. DESC a `' TO-UNSET bitmask of fields in the DESC to unset. -- Function: pango-font-description-merge (self `') (desc_to_merge `') (replace_existing `bool') Merges the fields that are set in DESC-TO-MERGE into the fields in DESC. If REPLACE-EXISTING is ``#f'', only fields in DESC that are not already set are affected. If ``#t'', then fields that are already set will be replaced as well. DESC a `' DESC-TO-MERGE the `' to merge from REPLACE-EXISTING if ``#t'', replace fields in DESC with the corresponding values from DESC-TO-MERGE, even if they are already exist. -- Function: pango-font-description-merge-static (self `') (desc_to_merge `') (replace_existing `bool') Like `pango-font-description-merge', but only a shallow copy is made of the family name and other allocated fields. DESC can only be used until DESC-TO-MERGE is modified or freed. This is meant to be used when the merged font description is only needed temporarily. DESC a `' DESC-TO-MERGE the `' to merge from REPLACE-EXISTING if ``#t'', replace fields in DESC with the corresponding values from DESC-TO-MERGE, even if they are already exist. -- Function: pango-font-description-better-match (self `') (old_match `') (new_match `') => (ret `bool') Determines if the style attributes of NEW-MATCH are a closer match for DESC than OLD-MATCH, or if OLD-MATCH is ``#f'', determines if NEW-MATCH is a match at all. Approximate matching is done for weight and style; other attributes must match exactly. DESC a `' OLD-MATCH a `', or ``#f'' NEW-MATCH a `' RET ``#t'' if NEW-MATCH is a better match -- Function: pango-font-description-to-string (self `') => (ret `mchars') Creates a string representation of a font description. See `pango-font-description-from-string' for a description of the format of the string representation. The family list in the string description will only have a terminating comma if the last word of the list is a valid style option. DESC a `' RET a new string that must be freed with `g-free'. -- Function: pango-font-description-to-filename (self `') => (ret `mchars') Creates a filename representation of a font description. The filename is identical to the result from calling `pango-font-description-to-string', but with underscores instead of characters that are untypical in filenames, and in lower case only. DESC a `' RET a new string that must be freed with `g-free'. -- Function: pango-font-metrics-get-ascent (self `') => (ret `int') Gets the ascent from a font metrics structure. The ascent is the distance from the baseline to the logical top of a line of text. (The logical top may be above or below the top of the actual drawn ink. It is necessary to lay out the text to figure where the ink will be.) METRICS a `' structure RET the ascent, in Pango units. (1 point == `PANGO_SCALE' Pango units.) -- Function: pango-font-metrics-get-descent (self `') => (ret `int') Gets the descent from a font metrics structure. The descent is the distance from the baseline to the logical bottom of a line of text. (The logical bottom may be above or below the bottom of the actual drawn ink. It is necessary to lay out the text to figure where the ink will be.) METRICS a `' structure RET the descent, in Pango units. (1 point == `PANGO_SCALE' Pango units.) -- Function: pango-font-describe (self `') => (ret `') -- Method: describe Returns a description of the font, with font size set in points. Use `pango-font-describe-with-absolute-size' if you want the font size in device units. FONT a `' RET a newly-allocated `' object. -- Function: pango-font-get-coverage (self `') (language `') => (ret `') -- Method: get-coverage Computes the coverage map for a given font and language tag. FONT a `' LANGUAGE the language tag RET a newly-allocated `' object. -- Function: pango-font-get-glyph-extents (self `') (glyph `unsigned-int32') => (ink_rect `') (logical_rect `') -- Method: get-glyph-extents Gets the logical and ink extents of a glyph within a font. The coordinate system for each rectangle has its origin at the base line and horizontal origin of the character with increasing coordinates extending to the right and down. The macros `pango-ascent', `pango-descent', `pango-lbearing', and `pango-rbearing' can be used to convert from the extents rectangle to more traditional font metrics. The units of the rectangles are in 1/PANGO_SCALE of a device unit. FONT a `' GLYPH the glyph index INK-RECT rectangle used to store the extents of the glyph as drawn or ``#f'' to indicate that the result is not needed. LOGICAL-RECT rectangle used to store the logical extents of the glyph or ``#f'' to indicate that the result is not needed. -- Function: pango-font-get-metrics (self `') (language `') => (ret `') -- Method: get-metrics Gets overall metric information for a font. Since the metrics may be substantially different for different scripts, a language tag can be provided to indicate that the metrics should be retrieved that correspond to the script(s) used by that language. FONT a `' LANGUAGE language tag used to determine which script to get the metrics for, or ``#f'' to indicate to get the metrics for the entire font. RET a `' object. The caller must call `pango-font-metrics-unref' when finished using the object. -- Function: pango-font-get-font-map (self `') => (ret `') -- Method: get-font-map Gets the font map for which the font was created. FONT a `' RET the `' for the font Since 1.10 -- Function: pango-font-family-get-name (self `') => (ret `mchars') -- Method: get-name Gets the name of the family. The name is unique among all fonts for the font backend and can be used in a `' to specify that a face from this family is desired. FAMILY a `' RET the name of the family. This string is owned by the family object and must not be modified or freed. -- Function: pango-font-family-is-monospace (self `') => (ret `bool') -- Method: is-monospace A monospace font is a font designed for text display where the the characters form a regular grid. For Western languages this would mean that the advance width of all characters are the same, but this categorization also includes Asian fonts which include double-width characters: characters that occupy two grid cells. `g-unichar-iswide' returns a result that indicates whether a character is typically double-width in a monospace font. The best way to find out the grid-cell size is to call `pango-font-metrics-get-approximate-digit-width', since the results of `pango-font-metrics-get-approximate-char-width' may be affected by double-width characters. FAMILY a `' RET ``#t'' if the family is monospace. Since 1.4 -- Function: pango-font-face-get-face-name (self `') => (ret `mchars') -- Method: get-face-name Gets a name representing the style of this face among the different faces in the `' for the face. This name is unique among all faces in the family and is suitable for displaying to users. FACE a `'. RET the face name for the face. This string is owned by the face object and must not be modified or freed. -- Function: pango-font-face-describe (self `') => (ret `') -- Method: describe Returns the family, style, variant, weight and stretch of a `'. The size field of the resulting font description will be unset. FACE a `' RET a newly-created `' structure holding the description of the face. Use `pango-font-description-free' to free the result. -- Function: pango-font-map-load-font (self `') (context `') (desc `') => (ret `') -- Method: load-font Load the font in the fontmap that is the closest match for DESC. FONTMAP a `' CONTEXT the `' the font will be used with DESC a `' describing the font to load RET the font loaded, or ``#f'' if no font matched. -- Function: pango-font-map-load-fontset (self `') (context `') (desc `') (language `') => (ret `') -- Method: load-fontset Load a set of fonts in the fontmap that can be used to render a font matching DESC. FONTMAP a `' CONTEXT the `' the font will be used with DESC a `' describing the font to load LANGUAGE a `' the fonts will be used for RET the fontset, or ``#f'' if no font matched.  File: guile-gnome-pango.info, Node: Glyph Storage, Next: Layout Objects, Prev: Fonts, Up: Top 4 Glyph Storage *************** Structures for storing information about glyphs 4.1 Overview ============ `pango-shape' produces a string of glyphs which can be measured or drawn to the screen. The following structures are used to store information about glyphs. 4.2 Usage ========= -- Class: Derives from `'. This class defines no direct slots. -- Class: Derives from `'. This class defines no direct slots. -- Function: pango-matrix-copy (self `') => (ret `') Copies a `'. MATRIX a `', can be ``#f'' RET the newly allocated `', which should be freed with `pango-matrix-free', or ``#f'' if MATRIX was ``#f''. Since 1.6 -- Function: pango-matrix-translate (self `') (tx `double') (ty `double') Changes the transformation represented by MATRIX to be the transformation given by first translating by (TX, TY) then applying the original transformation. MATRIX a `' TX amount to translate in the X direction TY amount to translate in the Y direction Since 1.6 -- Function: pango-matrix-scale (self `') (scale_x `double') (scale_y `double') Changes the transformation represented by MATRIX to be the transformation given by first scaling by SX in the X direction and SY in the Y direction then applying the original transformation. MATRIX a `' SCALE-X amount to scale by in X direction SCALE-Y amount to scale by in Y direction Since 1.6 -- Function: pango-matrix-rotate (self `') (degrees `double') Changes the transformation represented by MATRIX to be the transformation given by first rotating by DEGREES degrees counter-clockwise then applying the original transformation. MATRIX a `' DEGREES degrees to rotate counter-clockwise Since 1.6 -- Function: pango-matrix-concat (self `') (new_matrix `') Changes the transformation represented by MATRIX to be the transformation given by first applying transformation given by NEW-MATRIX then applying the original transformation. MATRIX a `' NEW-MATRIX a `' Since 1.6 -- Function: pango-matrix-get-font-scale-factor (self `') => (ret `double') Returns the scale factor of a matrix on the height of the font. That is, the scale factor in the direction perpendicular to the vector that the X coordinate is mapped to. MATRIX a `', may be ``#f'' RET the scale factor of MATRIX on the height of the font, or 1.0 if MATRIX is ``#f''. Since 1.12 -- Function: pango-glyph-string-new => (ret `') Create a new `'. RET the newly allocated `', which should be freed with `pango-glyph-string-free'. -- Function: pango-glyph-string-copy (self `') => (ret `') Copy a glyph string and associated storage. STRING a `'. RET the newly allocated `', which should be freed with `pango-glyph-string-free'. -- Function: pango-glyph-string-set-size (self `') (new_len `int') Resize a glyph string to the given length. STRING a `'. NEW-LEN the new length of the string. -- Function: pango-glyph-string-extents (self `') (font `') => (ink_rect `') (logical_rect `') Compute the logical and ink extents of a glyph string. See the documentation for `pango-font-get-glyph-extents' for details about the interpretation of the rectangles. GLYPHS a `' FONT a `' INK-RECT rectangle used to store the extents of the glyph string as drawn or ``#f'' to indicate that the result is not needed. LOGICAL-RECT rectangle used to store the logical extents of the glyph string or ``#f'' to indicate that the result is not needed. -- Function: pango-glyph-string-extents-range (self `') (start `int') (end `int') (font `') => (ink_rect `') (logical_rect `') Computes the extents of a sub-portion of a glyph string. The extents are relative to the start of the glyph string range (the origin of their coordinate system is at the start of the range, not at the start of the entire glyph string). GLYPHS a `' START start index END end index (the range is the set of bytes with indices such that start <= index < end) FONT a `' INK-RECT rectangle used to store the extents of the glyph string range as drawn or ``#f'' to indicate that the result is not needed. LOGICAL-RECT rectangle used to store the logical extents of the glyph string range or ``#f'' to indicate that the result is not needed. -- Function: pango-glyph-string-get-width (self `') => (ret `int') Computes the logical width of the glyph string as can also be computed using `pango-glyph-string-extents'. However, since this only computes the width, it's much faster. This is in fact only a convenience function that computes the sum of geometry.width for each glyph in the GLYPHS. GLYPHS a `' RET the logical width of the glyph string. Since 1.14  File: guile-gnome-pango.info, Node: Layout Objects, Next: Rendering, Prev: Glyph Storage, Up: Top 5 Layout Objects **************** High-level layout driver objects 5.1 Overview ============ While complete access to the layout capabilities of Pango is provided using the detailed interfaces for itemization and shaping, using that functionality directly involves writing a fairly large amount of code. The objects and functions in this section provide a high-level driver for formatting entire paragraphs of text at once. 5.2 Usage ========= -- Class: Derives from `'. This class defines no direct slots. -- Class: Derives from `'. This class defines no direct slots. -- Class: Derives from `'. This class defines no direct slots. -- Function: pango-layout-new (context `') => (ret `') Create a new `' object with attributes initialized to default values for a particular `'. CONTEXT a `' RET the newly allocated `', with a reference count of one, which should be freed with `g-object-unref'. -- Function: pango-layout-copy (self `') => (ret `') -- Method: copy Does a deep copy-by-value of the SRC layout. The attribute list, tab array, and text from the original layout are all copied by value. SRC a `' RET the newly allocated `', with a reference count of one, which should be freed with `g-object-unref'. -- Function: pango-layout-get-context (self `') => (ret `') -- Method: get-context Retrieves the `' used for this layout. LAYOUT a `' RET the `' for the layout. This does not have an additional refcount added, so if you want to keep a copy of this around, you must reference it yourself. -- Function: pango-layout-context-changed (self `') -- Method: context-changed Forces recomputation of any state in the `' that might depend on the layout's context. This function should be called if you make changes to the context subsequent to creating the layout. LAYOUT a `' -- Function: pango-layout-set-text (self `') (text `mchars') (length `int') -- Method: set-text Sets the text of the layout. LAYOUT a `' TEXT a valid UTF-8 string LENGTH maximum length of TEXT, in bytes. -1 indicates that the string is nul-terminated and the length should be calculated. The text will also be truncated on encountering a nul-termination even when LENGTH is positive. -- Function: pango-layout-get-text (self `') => (ret `mchars') -- Method: get-text Gets the text in the layout. The returned text should not be freed or modified. LAYOUT a `' RET the text in the LAYOUT. -- Function: pango-layout-set-markup (self `') (markup `mchars') (length `int') -- Method: set-markup Same as `pango-layout-set-markup-with-accel', but the markup text isn't scanned for accelerators. LAYOUT a `' MARKUP marked-up text LENGTH length of marked-up text in bytes, or -1 if MARKUP is nul-terminated -- Function: pango-layout-set-markup-with-accel (self `') (markup `mchars') (length `int') (accel_marker `unsigned-int32') => (accel_char `unsigned-int32') -- Method: set-markup-with-accel Sets the layout text and attribute list from marked-up text (see markup format). Replaces the current text and attribute list. If ACCEL-MARKER is nonzero, the given character will mark the character following it as an accelerator. For example, ACCEL-MARKER might be an ampersand or underscore. All characters marked as an accelerator will receive a `PANGO_UNDERLINE_LOW' attribute, and the first character so marked will be returned in ACCEL-CHAR. Two ACCEL-MARKER characters following each other produce a single literal ACCEL-MARKER character. LAYOUT a `' MARKUP marked-up text (see markup format) LENGTH length of marked-up text in bytes, or -1 if MARKUP is nul-terminated ACCEL-MARKER marker for accelerators in the text ACCEL-CHAR return location for first located accelerator, or ``#f'' -- Function: pango-layout-set-attributes (self `') (attrs `') -- Method: set-attributes Sets the text attributes for a layout object. LAYOUT a `' ATTRS a `' -- Function: pango-layout-get-attributes (self `') => (ret `') -- Method: get-attributes Gets the attribute list for the layout, if any. LAYOUT a `' RET a `'. -- Function: pango-layout-set-font-description (self `') (desc `') -- Method: set-font-description Sets the default font description for the layout. If no font description is set on the layout, the font description from the layout's context is used. LAYOUT a `' DESC the new `', or ``#f'' to unset the current font description -- Function: pango-layout-set-width (self `') (width `int') -- Method: set-width Sets the width to which the lines of the `' should wrap. LAYOUT a `'. WIDTH the desired width in Pango units, or -1 to indicate that no wrapping should be performed. -- Function: pango-layout-get-width (self `') => (ret `int') -- Method: get-width Gets the width to which the lines of the `' should wrap. LAYOUT a `' RET the width, or -1 if no width set. -- Function: pango-layout-set-wrap (self `') (wrap `') -- Method: set-wrap Sets the wrap mode; the wrap mode only has effect if a width is set on the layout with `pango-layout-set-width'. To turn off wrapping, set the width to -1. LAYOUT a `' WRAP the wrap mode -- Function: pango-layout-get-wrap (self `') => (ret `') -- Method: get-wrap Gets the wrap mode for the layout. LAYOUT a `' RET active wrap mode. -- Function: pango-layout-set-ellipsize (self `') (ellipsize `') -- Method: set-ellipsize Sets the type of ellipsization being performed for LAYOUT. Depending on the ellipsization mode ELLIPSIZE text is removed from the start, middle, or end of lines so they fit within the width of layout set with `pango-layout-set-width'. If the layout contains characters such as newlines that force it to be layed out in multiple lines, then each line is ellipsized separately. LAYOUT a `' ELLIPSIZE the new ellipsization mode for LAYOUT Since 1.6 -- Function: pango-layout-get-ellipsize (self `') => (ret `') -- Method: get-ellipsize Gets the type of ellipsization being performed for LAYOUT. See `pango-layout-set-ellipsize' LAYOUT a `' RET the current ellipsization mode for LAYOUT. Since 1.6 -- Function: pango-layout-set-indent (self `') (indent `int') -- Method: set-indent Sets the width in Pango units to indent each paragraph. A negative value of INDENT will produce a hanging indentation. That is, the first line will have the full width, and subsequent lines will be indented by the absolute value of INDENT. LAYOUT a `'. INDENT the amount by which to indent. -- Function: pango-layout-get-indent (self `') => (ret `int') -- Method: get-indent Gets the paragraph indent width in Pango units. A negative value indicates a hanging indentation. LAYOUT a `' RET the indent. -- Function: pango-layout-get-spacing (self `') => (ret `int') -- Method: get-spacing Gets the amount of spacing in `' between the lines of the layout. LAYOUT a `' RET the spacing. -- Function: pango-layout-set-spacing (self `') (spacing `int') -- Method: set-spacing Sets the amount of spacing in `' between the lines of the layout. LAYOUT a `'. SPACING the amount of spacing -- Function: pango-layout-set-justify (self `') (justify `bool') -- Method: set-justify Sets whether each complete line should be stretched to fill the entire width of the layout. This stretching is typically done by adding whitespace, but for some scripts (such as Arabic), the justification may be done in more complex ways, like extending the characters. Note that as of Pango-1.16, this functionality is not yet implemented. LAYOUT a `' JUSTIFY whether the lines in the layout should be justified. -- Function: pango-layout-get-justify (self `') => (ret `bool') -- Method: get-justify Gets whether each complete line should be stretched to fill the entire width of the layout. LAYOUT a `' RET the justify. -- Function: pango-layout-set-auto-dir (self `') (auto_dir `bool') -- Method: set-auto-dir Sets whether to calculate the bidirectional base direction for the layout according to the contents of the layout; when this flag is on (the default), then paragraphs in LAYOUT that begin with strong right-to-left characters (Arabic and Hebrew principally), will have right-to-left layout, paragraphs with letters from other scripts will have left-to-right layout. Paragraphs with only neutral characters get their direction from the surrounding paragraphs. When ``#f'', the choice between left-to-right and right-to-left layout is done according to the base direction of the layout's `'. (See `pango-context-set-base-dir'). When the auto-computed direction of a paragraph differs from the base direction of the context, the interpretation of `PANGO_ALIGN_LEFT' and `PANGO_ALIGN_RIGHT' are swapped. LAYOUT a `' AUTO-DIR if ``#t'', compute the bidirectional base direction from the layout's contents. Since 1.4 -- Function: pango-layout-get-auto-dir (self `') => (ret `bool') -- Method: get-auto-dir Gets whether to calculate the bidirectional base direction for the layout according to the contents of the layout. See `pango-layout-set-auto-dir'. LAYOUT a `' RET ``#t'' if the bidirectional base direction is computed from the layout's contents, ``#f'' otherwise. Since 1.4 -- Function: pango-layout-set-alignment (self `') (alignment `') -- Method: set-alignment Sets the alignment for the layout: how partial lines are positioned within the horizontal space available. LAYOUT a `' ALIGNMENT the alignment -- Function: pango-layout-get-alignment (self `') => (ret `') -- Method: get-alignment Gets the alignment for the layout: how partial lines are positioned within the horizontal space available. LAYOUT a `' RET the alignment. -- Function: pango-layout-set-tabs (self `') (tabs `') -- Method: set-tabs Sets the tabs to use for LAYOUT, overriding the default tabs (by default, tabs are every 8 spaces). If TABS is ``#f'', the default tabs are reinstated. TABS is copied into the layout; you must free your copy of TABS yourself. LAYOUT a `' TABS a `' -- Function: pango-layout-get-tabs (self `') => (ret `') -- Method: get-tabs Gets the current `' used by this layout. If no `' has been set, then the default tabs are in use and ``#f'' is returned. Default tabs are every 8 spaces. The return value should be freed with `pango-tab-array-free'. LAYOUT a `' RET a copy of the tabs for this layout, or ``#f''. -- Function: pango-layout-index-to-pos (self `') (index_ `int') => (pos `') -- Method: index-to-pos Converts from an index within a `' to the onscreen position corresponding to the grapheme at that index, which is represented as rectangle. Note that `pos->x' is always the leading edge of the grapheme and `pos->x + pos->width' the trailing edge of the grapheme. If the directionality of the grapheme is right-to-left, then `pos->width' will be negative. LAYOUT a `' INDEX byte index within LAYOUT POS rectangle in which to store the position of the grapheme -- Function: pango-layout-index-to-line-x (self `') (index_ `int') (trailing `bool') => (line `int') (x_pos `int') -- Method: index-to-line-x Converts from byte INDEX within the LAYOUT to line and X position. (X position is measured from the left edge of the line) LAYOUT a `' INDEX the byte index of a grapheme within the layout. TRAILING an integer indicating the edge of the grapheme to retrieve the position of. If 0, the trailing edge of the grapheme, if > 0, the leading of the grapheme. LINE location to store resulting line index. (which will between 0 and pango_layout_get_line_count(layout) - 1) X-POS location to store resulting position within line (`PANGO_SCALE' units per device unit) -- Function: pango-layout-xy-to-index (self `') (x `int') (y `int') => (ret `bool') (index_ `int') (trailing `int') -- Method: xy-to-index Converts from X and Y position within a layout to the byte index to the character at that logical position. If the Y position is not inside the layout, the closest position is chosen (the position will be clamped inside the layout). If the X position is not within the layout, then the start or the end of the line is chosen as described for `pango-layout-x-to-index'. If either the X or Y positions were not inside the layout, then the function returns ``#f''; on an exact hit, it returns ``#t''. LAYOUT a `' X the X offset (in `') from the left edge of the layout. Y the Y offset (in `') from the top edge of the layout INDEX location to store calculated byte index TRAILING location to store a integer indicating where in the grapheme the user clicked. It will either be zero, or the number of characters in the grapheme. 0 represents the trailing edge of the grapheme. RET ``#t'' if the coordinates were inside text, ``#f'' otherwise. -- Function: pango-layout-get-cursor-pos (self `') (index_ `int') => (strong_pos `') (weak_pos `') -- Method: get-cursor-pos Given an index within a layout, determines the positions that of the strong and weak cursors if the insertion point is at that index. The position of each cursor is stored as a zero-width rectangle. The strong cursor location is the location where characters of the directionality equal to the base direction of the layout are inserted. The weak cursor location is the location where characters of the directionality opposite to the base direction of the layout are inserted. LAYOUT a `' INDEX the byte index of the cursor STRONG-POS location to store the strong cursor position (may be ``#f'') WEAK-POS location to store the weak cursor position (may be ``#f'') -- Function: pango-layout-move-cursor-visually (self `') (strong `bool') (old_index `int') (old_trailing `int') (direction `int') => (new_index `int') (new_trailing `int') -- Method: move-cursor-visually Computes a new cursor position from an old position and a count of positions to move visually. If COUNT is positive, then the new strong cursor position will be one position to the right of the old cursor position. If COUNT is negative, then the new strong cursor position will be one position to the left of the old cursor position. In the presence of bidirection text, the correspondence between logical and visual order will depend on the direction of the current run, and there may be jumps when the cursor is moved off of the end of a run. Motion here is in cursor positions, not in characters, so a single call to `pango-layout-move-cursor-visually' may move the cursor over multiple characters when multiple characters combine to form a single grapheme. LAYOUT a `'. STRONG whether the moving cursor is the strong cursor or the weak cursor. The strong cursor is the cursor corresponding to text insertion in the base direction for the layout. OLD-INDEX the byte index of the grapheme for the old index OLD-TRAILING if 0, the cursor was at the trailing edge of the grapheme indicated by OLD-INDEX, if > 0, the cursor was at the leading edge. DIRECTION direction to move cursor. A negative value indicates motion to the left. NEW-INDEX location to store the new cursor byte index. A value of -1 indicates that the cursor has been moved off the beginning of the layout. A value of `G_MAXINT' indicates that the cursor has been moved off the end of the layout. NEW-TRAILING number of characters to move forward from the location returned for NEW-INDEX to get the position where the cursor should be displayed. This allows distinguishing the position at the beginning of one line from the position at the end of the preceding line. NEW-INDEX is always on the line where the cursor should be displayed. -- Function: pango-layout-get-extents (self `') => (ink_rect `') (logical_rect `') -- Method: get-extents Computes the logical and ink extents of LAYOUT. Logical extents are usually what you want for positioning things. Note that both extents may have non-zero x and y. You may want to use those to offset where you render the layout. Not doing that is a very typical bug that shows up as right-to-left layouts not being correctly positioned in a layout with a set width. The extents are given in layout coordinates and in Pango units; layout coordinates begin at the top left corner of the layout. LAYOUT a `' INK-RECT rectangle used to store the extents of the layout as drawn or ``#f'' to indicate that the result is not needed. LOGICAL-RECT rectangle used to store the logical extents of the layout or ``#f'' to indicate that the result is not needed. -- Function: pango-layout-get-pixel-extents (self `') => (ink_rect `') (logical_rect `') -- Method: get-pixel-extents Computes the logical and ink extents of LAYOUT in device units. See `pango-layout-get-extents'; this function just calls `pango-layout-get-extents' and then converts the extents to device units using the `PANGO_SCALE' factor. LAYOUT a `' INK-RECT rectangle used to store the extents of the layout as drawn or ``#f'' to indicate that the result is not needed. LOGICAL-RECT rectangle used to store the logical extents of the layout or ``#f'' to indicate that the result is not needed. -- Function: pango-layout-get-size (self `') => (width `int') (height `int') -- Method: get-size Determines the logical width and height of a `' in Pango units. (device units scaled by `PANGO_SCALE'). This is simply a convenience function around `pango-layout-get-extents'. LAYOUT a `' WIDTH location to store the logical width, or ``#f'' HEIGHT location to store the logical height, or ``#f'' -- Function: pango-layout-get-pixel-size (self `') => (width `int') (height `int') -- Method: get-pixel-size Determines the logical width and height of a `' in device units. (`pango-layout-get-size' returns the width and height scaled by `PANGO_SCALE'.) This is simply a convenience function around `pango-layout-get-pixel-extents'. LAYOUT a `' WIDTH location to store the logical width, or ``#f'' HEIGHT location to store the logical height, or ``#f'' -- Function: pango-layout-get-line-count (self `') => (ret `int') -- Method: get-line-count Retrieves the count of lines for the LAYOUT. LAYOUT `' RET the line count. -- Function: pango-layout-get-line (self `') (line `int') => (ret `') -- Method: get-line Retrieves a particular line from a `'. LAYOUT a `' LINE the index of a line, which must be between 0 and `pango_layout_get_line_count(layout) - 1', inclusive. RET the requested `', or ``#f'' if the index is out of range. This layout line can be ref'ed and retained, but will become invalid if changes are made to the `'. -- Function: pango-layout-get-lines (self `') => (ret `gslist-of') -- Method: get-lines Returns the lines of the LAYOUT as a list. LAYOUT a `' RET a `' containing the lines in the layout. This points to internal data of the `' and must be used with care. It will become invalid on any change to the layout's text or properties. -- Function: pango-layout-get-iter (self `') => (ret `') -- Method: get-iter Returns an iterator to iterate over the visual extents of the layout. LAYOUT a `' RET the new `' that should be freed using `pango-layout-iter-free'. -- Function: pango-layout-iter-next-run (self `') => (ret `bool') Moves ITER forward to the next run in visual order. If ITER was already at the end of the layout, returns ``#f''. ITER a `' RET whether motion was possible. -- Function: pango-layout-iter-next-char (self `') => (ret `bool') Moves ITER forward to the next character in visual order. If ITER was already at the end of the layout, returns ``#f''. ITER a `' RET whether motion was possible. -- Function: pango-layout-iter-next-cluster (self `') => (ret `bool') Moves ITER forward to the next cluster in visual order. If ITER was already at the end of the layout, returns ``#f''. ITER a `' RET whether motion was possible. -- Function: pango-layout-iter-next-line (self `') => (ret `bool') Moves ITER forward to the start of the next line. If ITER is already on the last line, returns ``#f''. ITER a `' RET whether motion was possible. -- Function: pango-layout-iter-at-last-line (self `') => (ret `bool') Determines whether ITER is on the last line of the layout. ITER a `' RET ``#t'' if ITER is on the last line. -- Function: pango-layout-iter-get-index (self `') => (ret `int') Gets the current byte index. Note that iterating forward by char moves in visual order, not logical order, so indexes may not be sequential. Also, the index may be equal to the length of the text in the layout, if on the ``#f'' run (see `pango-layout-iter-get-run'). ITER a `' RET current byte index. -- Function: pango-layout-iter-get-baseline (self `') => (ret `int') Gets the Y position of the current line's baseline, in layout coordinates (origin at top left of the entire layout). ITER a `' RET baseline of current line. -- Function: pango-layout-iter-get-line (self `') => (ret `') Gets the current line. ITER a `' RET the current line. -- Function: pango-layout-iter-get-char-extents (self `') => (logical_rect `') Gets the extents of the current character, in layout coordinates (origin is the top left of the entire layout). Only logical extents can sensibly be obtained for characters; ink extents make sense only down to the level of clusters. ITER a `' LOGICAL-RECT rectangle to fill with logical extents -- Function: pango-layout-iter-get-run-extents (self `') => (ink_rect `') (logical_rect `') Gets the extents of the current run in layout coordinates (origin is the top left of the entire layout). ITER a `' INK-RECT rectangle to fill with ink extents, or ``#f'' LOGICAL-RECT rectangle to fill with logical extents, or ``#f'' -- Function: pango-layout-iter-get-line-yrange (self `') => (y0_ `int') (y1_ `int') Divides the vertical space in the `' being iterated over between the lines in the layout, and returns the space belonging to the current line. A line's range includes the line's logical extents, plus half of the spacing above and below the line, if `pango-layout-set-spacing' has been called to set layout spacing. The Y positions are in layout coordinates (origin at top left of the entire layout). ITER a `' Y0 start of line Y1 end of line -- Function: pango-layout-iter-get-line-extents (self `') => (ink_rect `') (logical_rect `') Obtains the extents of the current line. INK-RECT or LOGICAL-RECT can be NULL if you aren't interested in them. Extents are in layout coordinates (origin is the top-left corner of the entire `'). Thus the extents returned by this function will be the same width/height but not at the same x/y as the extents returned from `pango-layout-line-get-extents'. ITER a `' INK-RECT rectangle to fill with ink extents, or ``#f'' LOGICAL-RECT rectangle to fill with logical extents, or ``#f'' -- Function: pango-layout-line-get-extents (self `') => (ink_rect `') (logical_rect `') Computes the logical and ink extents of a layout line. See `pango-font-get-glyph-extents' for details about the interpretation of the rectangles. LINE a `' INK-RECT rectangle used to store the extents of the glyph string as drawn, or ``#f'' LOGICAL-RECT rectangle used to store the logical extents of the glyph string, or ``#f'' -- Function: pango-layout-line-get-pixel-extents (self `') => (ink_rect `') (logical_rect `') Computes the logical and ink extents of a layout line. See `pango-font-get-glyph-extents' for details about the interpretation of the rectangles. The returned rectangles are in device units, as opposed to `pango-layout-line-get-extents', which returns the extents in `'. LAYOUT-LINE a `' INK-RECT rectangle used to store the extents of the glyph string as drawn, or ``#f'' LOGICAL-RECT rectangle used to store the logical extents of the glyph string, or ``#f'' -- Function: pango-layout-line-index-to-x (self `') (index_ `int') (trailing `bool') => (x_pos `int') Converts an index within a line to a X position. LINE a `' INDEX byte offset of a grapheme within the layout TRAILING an integer indicating the edge of the grapheme to retrieve the position of. If 0, the trailing edge of the grapheme, if > 0, the leading of the grapheme. X-POS location to store the x_offset (in `') -- Function: pango-layout-line-x-to-index (self `') (x_pos `int') => (ret `bool') (index_ `int') (trailing `int') Converts from x offset to the byte index of the corresponding character within the text of the layout. If X-POS is outside the line, INDEX and TRAILING will point to the very first or very last position in the line. This determination is based on the resolved direction of the paragraph; for example, if the resolved direction is right-to-left, then an X position to the right of the line (after it) results in 0 being stored in INDEX and TRAILING. An X position to the left of the line results in INDEX pointing to the (logical) last grapheme in the line and TRAILING being set to the number of characters in that grapheme. The reverse is true for a left-to-right line. LINE a `' X-POS the X offset (in `') from the left edge of the line. INDEX location to store calculated byte index for the grapheme in which the user clicked. TRAILING location to store a integer indicating where in the grapheme the user clicked. It will either be zero, or the number of characters in the grapheme. 0 represents the trailing edge of the grapheme. RET ``#f'' if X-POS was outside the line, ``#t'' if inside  File: guile-gnome-pango.info, Node: Rendering, Next: PangoRenderer, Prev: Layout Objects, Up: Top 6 Rendering *********** Functions to run the rendering pipeline 6.1 Overview ============ The Pango rendering pipeline takes a string of Unicode characters and converts it into glyphs. The functions described in this section accomplish various steps of this process. 6.2 Usage ========= -- Class: Derives from `'. This class defines no direct slots. -- Class: Derives from `'. This class defines no direct slots. -- Function: pango-itemize (context `') (text `mchars') (start_index `int') (length `int') (attrs `') (cached_iter `') => (ret `glist-of') Breaks a piece of text into segments with consistent directional level and shaping engine. Each byte of TEXT will be contained in exactly one of the items in the returned list; the generated list of items will be in logical order (the start offsets of the items are ascending). CACHED-ITER should be an iterator over ATTRS currently positioned at a range before or containing START-INDEX; CACHED-ITER will be advanced to the range covering the position just after START-INDEX + LENGTH. (i.e. if itemizing in a loop, just keep passing in the same CACHED-ITER). CONTEXT a structure holding information that affects the itemization process. TEXT the text to itemize. START-INDEX first byte in TEXT to process LENGTH the number of bytes (not characters) to process after START-INDEX. This must be >= 0. ATTRS the set of attributes that apply to TEXT. CACHED-ITER Cached attribute iterator, or ``#f'' RET a `' of `' structures. -- Function: pango-itemize-with-base-dir (context `') (base_dir `') (text `mchars') (start_index `int') (length `int') (attrs `') (cached_iter `') => (ret `glist-of') Like `pango-itemize', but the base direction to use when computing bidirectional levels (see `pango-context-set-base-dir'), is specified explicitly rather than gotten from the `'. CONTEXT a structure holding information that affects the itemization process. BASE-DIR base direction to use for bidirectional processing TEXT the text to itemize. START-INDEX first byte in TEXT to process LENGTH the number of bytes (not characters) to process after START-INDEX. This must be >= 0. ATTRS the set of attributes that apply to TEXT. CACHED-ITER Cached attribute iterator, or ``#f'' RET a `' of `' structures. Since 1.4 -- Function: pango-item-copy (self `') => (ret `') Copy an existing `' structure. ITEM a `' RET the newly allocated `', which should be freed with `pango-item-free'. -- Function: pango-item-new => (ret `') Creates a new `' structure initialized to default values. RET the newly allocated `', which should be freed with `pango-item-free'. -- Function: pango-item-split (self `') (split_index `int') (split_offset `int') => (ret `') Modifies ORIG to cover only the text after SPLIT-INDEX, and returns a new item that covers the text before SPLIT-INDEX that used to be in ORIG. You can think of SPLIT-INDEX as the length of the returned item. SPLIT-INDEX may not be 0, and it may not be greater than or equal to the length of ORIG (that is, there must be at least one byte assigned to each item, you can't create a zero-length item). SPLIT-OFFSET is the length of the first item in chars, and must be provided because the text used to generate the item isn't available, so `pango-item-split' can't count the char length of the split items itself. ORIG a `' SPLIT-INDEX byte index of position to split item, relative to the start of the item SPLIT-OFFSET number of chars between start of ORIG and SPLIT-INDEX RET new item representing text before SPLIT-INDEX, which should be freed with `pango-item-free'. -- Function: pango-reorder-items (logical_items `glist-of') => (ret `glist-of') From a list of items in logical order and the associated directional levels, produce a list in visual order. The original list is unmodified. LOGICAL-ITEMS a `' of `' in logical order. RET a `' of `' structures in visual order. (Please open a bug if you use this function. It is not a particularly convenient interface, and the code is duplicated elsewhere in Pango for that reason.) -- Function: pango-context-get-font-map (self `') => (ret `') -- Method: get-font-map Gets the `' used to look up fonts for this context. CONTEXT a `' RET the font map for the `'. This value is owned by Pango and should not be unreferenced. Since 1.6 -- Function: pango-context-set-font-description (self `') (desc `') -- Method: set-font-description Set the default font description for the context CONTEXT a `' DESC the new pango font description -- Function: pango-context-get-language (self `') => (ret `') -- Method: get-language Retrieves the global language tag for the context. CONTEXT a `' RET the global language tag. -- Function: pango-context-set-language (self `') (language `') -- Method: set-language Sets the global language tag for the context. CONTEXT a `' LANGUAGE the new language tag. -- Function: pango-context-get-base-dir (self `') => (ret `') -- Method: get-base-dir Retrieves the base direction for the context. See `pango-context-set-base-dir'. CONTEXT a `' RET the base direction for the context. -- Function: pango-context-set-base-dir (self `') (direction `') -- Method: set-base-dir Sets the base direction for the context. The base direction is used in applying the Unicode bidirectional algorithm; if the DIRECTION is `PANGO_DIRECTION_LTR' or `PANGO_DIRECTION_RTL', then the value will be used as the paragraph direction in the Unicode bidirectional algorithm. A value of `PANGO_DIRECTION_WEAK_LTR' or `PANGO_DIRECTION_WEAK_RTL' is used only for paragraphs that do not contain any strong characters themselves. CONTEXT a `' DIRECTION the new base direction -- Function: pango-context-get-matrix (self `') => (ret `') -- Method: get-matrix Gets the transformation matrix that will be applied when rendering with this context. See `pango-context-set-matrix'. CONTEXT a `' RET the matrix, or ``#f'' if no matrix has been set (which is the same as the identity matrix). The returned matrix is owned by Pango and must not be modified or freed. Since 1.6 -- Function: pango-context-set-matrix (self `') (matrix `') -- Method: set-matrix Sets the transformation matrix that will be applied when rendering with this context. Note that reported metrics are in the user space coordinates before the application of the matrix, not device-space coordinates after the application of the matrix. So, they don't scale with the matrix, though they may change slightly for different matrices, depending on how the text is fit to the pixel grid. CONTEXT a `' MATRIX a `', or ``#f'' to unset any existing matrix. (No matrix set is the same as setting the identity matrix.) Since 1.6 -- Function: pango-context-load-font (self `') (desc `') => (ret `') -- Method: load-font Loads the font in one of the fontmaps in the context that is the closest match for DESC. CONTEXT a `' DESC a `' describing the font to load RET the font loaded, or ``#f'' if no font matched. -- Function: pango-context-load-fontset (self `') (desc `') (language `') => (ret `') -- Method: load-fontset Load a set of fonts in the context that can be used to render a font matching DESC. CONTEXT a `' DESC a `' describing the fonts to load LANGUAGE a `' the fonts will be used for RET the fontset, or ``#f'' if no font matched. -- Function: pango-context-get-metrics (self `') (desc `') (language `') => (ret `') -- Method: get-metrics Get overall metric information for a particular font description. Since the metrics may be substantially different for different scripts, a language tag can be provided to indicate that the metrics should be retrieved that correspond to the script(s) used by that language. The `' is interpreted in the same way as by `pango-itemize', and the family name may be a comma separated list of figures. If characters from multiple of these families would be used to render the string, then the returned fonts would be a composite of the metrics for the fonts loaded for the individual families. CONTEXT a `' DESC a `' structure LANGUAGE language tag used to determine which script to get the metrics for. ``#f'' means that the language tag from the context will be used. If no language tag is set on the context, metrics large enough to cover a range of languages will be returned. The process of determining such metrics is slow, so it is best to always make sure some real language tag will be used. RET a `' object. The caller must call `pango-font-metrics-unref' when finished using the object. -- Function: pango-get-mirror-char (ch `unsigned-int32') => (ret `bool') (mirrored_ch `unsigned-int32') `pango_get_mirror_char' is deprecated and should not be used in newly-written code. If CH has the Unicode mirrored property and there is another Unicode character that typically has a glyph that is the mirror image of CH's glyph, puts that character in the address pointed to by MIRRORED-CH. Use `g-unichar-get-mirror-char' instead; the docs for that function provide full details. CH a Unicode character MIRRORED-CH location to store the mirrored character RET ``#t'' if CH has a mirrored character and MIRRORED-CH is filled in, ``#f'' otherwise -- Function: pango-unichar-direction (ch `unsigned-int32') => (ret `') Determines the direction of a character; either `PANGO_DIRECTION_LTR', `PANGO_DIRECTION_RTL', or `PANGO_DIRECTION_NEUTRAL'. CH a Unicode character RET the direction of the character, as used in the Unicode bidirectional algorithm. -- Function: pango-find-base-dir (text `mchars') (length `int') => (ret `') Searches a string the first character that has a strong direction, according to the Unicode bidirectional algorithm. TEXT the text to process LENGTH length of TEXT in bytes (may be -1 if TEXT is nul-terminated) RET The direction corresponding to the first strong character. If no such character is found, then `PANGO_DIRECTION_NEUTRAL' is returned. Since 1.4 -- Function: pango-find-paragraph-boundary (text `mchars') (length `int') => (paragraph_delimiter_index `int') (next_paragraph_start `int') Locates a paragraph boundary in TEXT. A boundary is caused by delimiter characters, such as a newline, carriage return, carriage return-newline pair, or Unicode paragraph separator character. The index of the run of delimiters is returned in PARAGRAPH-DELIMITER-INDEX. The index of the start of the paragraph (index after all delimiters) is stored in NEXT-PARAGRAPH-START. If no delimiters are found, both PARAGRAPH-DELIMITER-INDEX and NEXT-PARAGRAPH-START are filled with the length of TEXT (an index one off the end). TEXT UTF-8 text LENGTH length of TEXT in bytes, or -1 if nul-terminated PARAGRAPH-DELIMITER-INDEX return location for index of delimiter NEXT-PARAGRAPH-START return location for start of next paragraph  File: guile-gnome-pango.info, Node: PangoRenderer, Next: Scripts, Prev: Rendering, Up: Top 7 PangoRenderer *************** Rendering driver base class 7.1 Overview ============ `' is a base class that contains the necessary logic for rendering a `' or `'. By subclassing `' and overriding operations such as DRAW-GLYPHS and DRAW-RECTANGLE, renderers for particular font backends and destinations can be created. 7.2 Usage ========= -- Class: Derives from `'. This class defines no direct slots. -- Function: pango-renderer-draw-layout (self `') (layout `') (x `int') (y `int') -- Method: draw-layout Draws LAYOUT with the specified `'. RENDERER a `' LAYOUT a `' X X position of left edge of baseline, in user space coordinates in Pango units. Y Y position of left edge of baseline, in user space coordinates in Pango units. Since 1.8 -- Function: pango-renderer-draw-layout-line (self `') (line `') (x `int') (y `int') -- Method: draw-layout-line Draws LINE with the specified `'. RENDERER a `' LINE a `' X X position of left edge of baseline, in user space coordinates in Pango units. Y Y position of left edge of baseline, in user space coordinates in Pango units. Since 1.8 -- Function: pango-renderer-draw-glyphs (self `') (font `') (glyphs `') (x `int') (y `int') -- Method: draw-glyphs Draws the glyphs in GLYPHS with the specified `'. RENDERER a `' FONT a `' GLYPHS a `' X X position of left edge of baseline, in user space coordinates in Pango units. Y Y position of left edge of baseline, in user space coordinates in Pango units. Since 1.8 -- Function: pango-renderer-draw-rectangle (self `') (part `') (x `int') (y `int') (width `int') (height `int') -- Method: draw-rectangle Draws an axis-aligned rectangle in user space coordinates with the specified `'. This should be called while RENDERER is already active. Use `pango-renderer-activate' to activate a renderer. RENDERER a `' PART type of object this rectangle is part of X X position at which to draw rectangle, in user space coordinates in Pango units Y Y position at which to draw rectangle, in user space coordinates in Pango units WIDTH width of rectangle in Pango units in user space coordinates HEIGHT height of rectangle in Pango units in user space coordinates Since 1.8 -- Function: pango-renderer-draw-error-underline (self `') (x `int') (y `int') (width `int') (height `int') -- Method: draw-error-underline Draw a squiggly line that approximately covers the given rectangle in the style of an underline used to indicate a spelling error. (The width of the underline is rounded to an integer number of up/down segments and the resulting rectangle is centered in the original rectangle) This should be called while RENDERER is already active. Use `pango-renderer-activate' to activate a renderer. RENDERER a `' X X coordinate of underline, in Pango units in user coordinate system Y Y coordinate of underline, in Pango units in user coordinate system WIDTH width of underline, in Pango units in user coordinate system HEIGHT height of underline, in Pango units in user coordinate system Since 1.8 -- Function: pango-renderer-draw-trapezoid (self `') (part `') (y1_ `double') (x11 `double') (x21 `double') (y2 `double') (x12 `double') (x22 `double') -- Method: draw-trapezoid Draws a trapezoid with the parallel sides aligned with the X axis using the given `'; coordinates are in device space. RENDERER a `' PART type of object this trapezoid is part of Y1 Y coordinate of top of trapezoid X11 X coordinate of left end of top of trapezoid X21 X coordinate of right end of top of trapezoid Y2 Y coordinate of bottom of trapezoid X12 X coordinate of left end of bottom of trapezoid X22 X coordinate of right end of bottom of trapezoid Since 1.8 -- Function: pango-renderer-draw-glyph (self `') (font `') (glyph `unsigned-int32') (x `double') (y `double') -- Method: draw-glyph Draws a single glyph with coordinates in device space. RENDERER a `' FONT a `' GLYPH the glyph index of a single glyph X X coordinate of left edge of baseline of glyph Y Y coordinate of left edge of baseline of glyph Since 1.8 -- Function: pango-renderer-activate (self `') -- Method: activate Does initial setup before rendering operations on RENDERER. `pango-renderer-deactivate' should be called when done drawing. Calls such as `pango-renderer-draw-layout' automatically activate the layout before drawing on it. Calls to `pango-renderer-activate' and `pango-renderer-deactivate' can be nested and the renderer will only be initialized and deinitialized once. RENDERER a `' Since 1.8 -- Function: pango-renderer-deactivate (self `') -- Method: deactivate Cleans up after rendering operations on RENDERER. See docs for `pango-renderer-activate'. RENDERER a `' Since 1.8 -- Function: pango-renderer-part-changed (self `') (part `') -- Method: part-changed Informs Pango that the way that the rendering is done for PART has changed in a way that would prevent multiple pieces being joined together into one drawing call. For instance, if a subclass of `' was to add a stipple option for drawing underlines, it needs to call pango_renderer_part_changed (render, PANGO_RENDER_PART_UNDERLINE); When the stipple changes or underlines with different stipples might be joined together. Pango automatically calls this for changes to colors. (See `pango-renderer-set-color') RENDERER a `' PART the part for which rendering has changed. Since 1.8 -- Function: pango-renderer-set-color (self `') (part `') (color `') -- Method: set-color Sets the color for part of the rendering. RENDERER a `' PART the part to change the color of COLOR the new color or ``#f'' to unset the current color Since 1.8 -- Function: pango-renderer-get-color (self `') (part `') => (ret `') -- Method: get-color Gets the current rendering color for the specified part. RENDERER a `' PART the part to get the color for RET the color for the specified part, or ``#f'' if it hasn't been set and should be inherited from the environment. Since 1.8 -- Function: pango-renderer-set-matrix (self `') (matrix `') -- Method: set-matrix Sets the transformation matrix that will be applied when rendering. RENDERER a `' MATRIX a `', or ``#f'' to unset any existing matrix. (No matrix set is the same as setting the identity matrix.) Since 1.8 -- Function: pango-renderer-get-matrix (self `') => (ret `') -- Method: get-matrix Gets the transformation matrix that will be applied when rendering. See `pango-renderer-set-matrix'. RENDERER a `' RET the matrix, or ``#f'' if no matrix has been set (which is the same as the identity matrix). The returned matrix is owned by Pango and must not be modified or freed. Since 1.8  File: guile-gnome-pango.info, Node: Scripts, Next: Tab Stops, Prev: PangoRenderer, Up: Top 8 Scripts ********* Identifying writing systems 8.1 Overview ============ The functions in this section are used to identify the writing system, or "script" of individual characters and of ranges within a larger text string. 8.2 Usage ========= -- Class: Opaque pointer. This class defines no direct slots. -- Function: pango-script-for-unichar (ch `unsigned-int32') => (ret `') Looks up the `' for a particular character (as defined by Unicode Standard Annex `<24>'). No check is made for CH being a valid Unicode character; if you pass in invalid character, the result is undefined. CH a Unicode character RET the `' for the character. Since 1.4 -- Function: pango-script-get-sample-language (script `') => (ret `') Given a script, finds a language tag that is reasonably representative of that script. This will usually be the most widely spoken or used language written in that script: for instance, the sample language for `PANGO_SCRIPT_CYRILLIC' is `ru' (Russian), the sample language for `PANGO_SCRIPT_ARABIC' is `ar'. For some scripts, no sample language will be returned because there is no language that is sufficiently representative. The best example of this is `PANGO_SCRIPT_HAN', where various different variants of written Chinese, Japanese, and Korean all use significantly different sets of Han characters and forms of shared characters. No sample language can be provided for many historical scripts as well. SCRIPT a `' RET a `' that is representative of the script, or ``#f'' if no such language exists. Since 1.4 -- Function: pango-language-includes-script (self `') (script `') => (ret `bool') Determines if SCRIPT is one of the scripts used to write LANGUAGE. The returned value is conservative; if nothing is known about the language tag LANGUAGE, ``#t'' will be returned, since, as far as Pango knows, SCRIPT might be used to write LANGUAGE. This routine is used in Pango's itemization process when determining if a supplied language tag is relevant to a particular section of text. It probably is not useful for applications in most circumstances. LANGUAGE a `' SCRIPT a `' RET ``#t'' if SCRIPT is one of the scripts used to write LANGUAGE, or if nothing is known about LANGUAGE. Since 1.4 -- Function: pango-script-iter-new (text `mchars') (length `int') => (ret `') Create a new `', used to break a string of Unicode into runs by text. No copy is made of TEXT, so the caller needs to make sure it remains valid until the iterator is freed with `pango-script-iter-free'.x TEXT a UTF-8 string LENGTH length of TEXT, or -1 if TEXT is nul-terminated. RET the new script iterator, initialized to point at the first range in the text, which should be freed with `pango-script-iter-free'. If the string is empty, it will point at an empty range. Since 1.4 -- Function: pango-script-iter-next (self `') => (ret `bool') Advances a `' to the next range. If ITER is already at the end, it is left unchanged and ``#f'' is returned. ITER a `' RET ``#t'' if ITER was successfully advanced. Since 1.4  File: guile-gnome-pango.info, Node: Tab Stops, Next: Text Attributes, Prev: Scripts, Up: Top 9 Tab Stops *********** Structures for storing tab stops 9.1 Overview ============ Functions in this section are used to deal with `' objects that can be used to set tab stop positions in a `'. 9.2 Usage ========= -- Class: Derives from `'. This class defines no direct slots. -- Function: pango-tab-array-new (initial_size `int') (positions_in_pixels `bool') => (ret `') Creates an array of INITIAL-SIZE tab stops. Tab stops are specified in pixel units if POSITIONS-IN-PIXELS is ``#t'', otherwise in Pango units. All stops are initially at position 0. INITIAL-SIZE Initial number of tab stops to allocate, can be 0 POSITIONS-IN-PIXELS whether positions are in pixel units RET the newly allocated `', which should be freed with `pango-tab-array-free'. -- Function: pango-tab-array-copy (self `') => (ret `') Copies a `' SRC `' to copy RET the newly allocated `', which should be freed with `pango-tab-array-free'. -- Function: pango-tab-array-get-size (self `') => (ret `int') Gets the number of tab stops in TAB-ARRAY. TAB-ARRAY a `' RET the number of tab stops in the array. -- Function: pango-tab-array-resize (self `') (new_size `int') Resizes a tab array. You must subsequently initialize any tabs that were added as a result of growing the array. TAB-ARRAY a `' NEW-SIZE new size of the array -- Function: pango-tab-array-set-tab (self `') (tab_index `int') (alignment `') (location `int') Sets the alignment and location of a tab stop. ALIGNMENT must always be `' in the current implementation. TAB-ARRAY a `' TAB-INDEX the index of a tab stop ALIGNMENT tab alignment LOCATION tab location in Pango units  File: guile-gnome-pango.info, Node: Text Attributes, Next: Undocumented, Prev: Tab Stops, Up: Top 10 Text Attributes ****************** Font and other attributes for annotating text 10.1 Overview ============= Attributed text is used in a number of places in Pango. It is used as the input to the itemization process and also when creating a `'. The data types and functions in this section are used to represent and manipulate sets of attributes applied to a portion of text. 10.2 Usage ========== -- Class: Opaque pointer. This class defines no direct slots. -- Class: Derives from `'. This class defines no direct slots. -- Class: Derives from `'. This class defines no direct slots. -- Class: Derives from `'. This class defines no direct slots. -- Class: Opaque pointer. This class defines no direct slots. -- Function: pango-attr-type-register (name `mchars') => (ret `') Allocate a new attribute type ID. NAME an identifier for the type (currently unused.) RET the new type ID. -- Function: pango-attribute-copy (self `') => (ret `') Make a copy of an attribute. ATTR a `' RET the newly allocated `', which should be freed with `pango-attribute-destroy'. -- Function: pango-attribute-equal (self `') (attr2 `') => (ret `bool') Compare two attributes for equality. This compares only the actual value of the two attributes and not the ranges that the attributes apply to. ATTR1 a `' ATTR2 another `' RET ``#t'' if the two attributes have the same value. -- Function: pango-attr-language-new (language `') => (ret `') Create a new language tag attribute. LANGUAGE language tag RET the newly allocated `', which should be freed with `pango-attribute-destroy'. -- Function: pango-attr-family-new (family `mchars') => (ret `') Create a new font family attribute. FAMILY the family or comma separated list of families RET the newly allocated `', which should be freed with `pango-attribute-destroy'. -- Function: pango-attr-style-new (style `') => (ret `') Create a new font slant style attribute. STYLE the slant style RET the newly allocated `', which should be freed with `pango-attribute-destroy'. -- Function: pango-attr-variant-new (variant `') => (ret `') Create a new font variant attribute (normal or small caps) VARIANT the variant RET the newly allocated `', which should be freed with `pango-attribute-destroy'. -- Function: pango-attr-stretch-new (stretch `') => (ret `') Create a new font stretch attribute STRETCH the stretch RET the newly allocated `', which should be freed with `pango-attribute-destroy'. -- Function: pango-attr-weight-new (weight `') => (ret `') Create a new font weight attribute. WEIGHT the weight RET the newly allocated `', which should be freed with `pango-attribute-destroy'. -- Function: pango-attr-size-new (size `int') => (ret `') Create a new font-size attribute in fractional points. SIZE the font size, in `PANGO_SCALE'ths of a point. RET the newly allocated `', which should be freed with `pango-attribute-destroy'. -- Function: pango-attr-size-new-absolute (size `int') => (ret `') Create a new font-size attribute in device units. SIZE the font size, in `PANGO_SCALE'ths of a device unit. RET the newly allocated `', which should be freed with `pango-attribute-destroy'. Since 1.8 -- Function: pango-attr-font-desc-new (desc `') => (ret `') Create a new font description attribute. This attribute allows setting family, style, weight, variant, stretch, and size simultaneously. DESC the font description RET the newly allocated `', which should be freed with `pango-attribute-destroy'. -- Function: pango-attr-foreground-new (red `unsigned-int16') (green `unsigned-int16') (blue `unsigned-int16') => (ret `') Create a new foreground color attribute. RED the red value (ranging from 0 to 65535) GREEN the green value BLUE the blue value RET the newly allocated `', which should be freed with `pango-attribute-destroy'. -- Function: pango-attr-background-new (red `unsigned-int16') (green `unsigned-int16') (blue `unsigned-int16') => (ret `') Create a new background color attribute. RED the red value (ranging from 0 to 65535) GREEN the green value BLUE the blue value RET the newly allocated `', which should be freed with `pango-attribute-destroy'. -- Function: pango-attr-strikethrough-new (strikethrough `bool') => (ret `') Create a new strike-through attribute. STRIKETHROUGH ``#t'' if the text should be struck-through. RET the newly allocated `', which should be freed with `pango-attribute-destroy'. -- Function: pango-attr-strikethrough-color-new (red `unsigned-int16') (green `unsigned-int16') (blue `unsigned-int16') => (ret `') Create a new strikethrough color attribute. This attribute modifies the color of strikethrough lines. If not set, strikethrough lines will use the foreground color. RED the red value (ranging from 0 to 65535) GREEN the green value BLUE the blue value RET the newly allocated `', which should be freed with `pango-attribute-destroy'. Since 1.8 -- Function: pango-attr-underline-new (underline `') => (ret `') Create a new underline-style attribute. UNDERLINE the underline style. RET the newly allocated `', which should be freed with `pango-attribute-destroy'. -- Function: pango-attr-underline-color-new (red `unsigned-int16') (green `unsigned-int16') (blue `unsigned-int16') => (ret `') Create a new underline color attribute. This attribute modifies the color of underlines. If not set, underlines will use the foreground color. RED the red value (ranging from 0 to 65535) GREEN the green value BLUE the blue value RET the newly allocated `', which should be freed with `pango-attribute-destroy'. Since 1.8 -- Function: pango-attr-shape-new (ink_rect `') (logical_rect `') => (ret `') Create a new shape attribute. A shape is used to impose a particular ink and logical rectangle on the result of shaping a particular glyph. This might be used, for instance, for embedding a picture or a widget inside a `'. INK-RECT ink rectangle to assign to each character LOGICAL-RECT logical rectangle to assign to each character RET the newly allocated `', which should be freed with `pango-attribute-destroy'. -- Function: pango-attr-scale-new (scale_factor `double') => (ret `') Create a new font size scale attribute. The base font for the affected text will have its size multiplied by SCALE-FACTOR. SCALE-FACTOR factor to scale the font RET the newly allocated `', which should be freed with `pango-attribute-destroy'. -- Function: pango-attr-fallback-new (enable_fallback `bool') => (ret `') Create a new font fallback attribute. If fallback is disabled, characters will only be used from the closest matching font on the system. No fallback will be done to other fonts on the system that might contain the characters in the text. ENABLE-FALLBACK ``#t'' if we should fall back on other fonts for characters the active font is missing. RET the newly allocated `', which should be freed with `pango-attribute-destroy'. Since 1.4 -- Function: pango-attr-rise-new (rise `int') => (ret `') Create a new baseline displacement attribute. RISE the amount that the text should be displaced vertically, in Pango units. Positive values displace the text upwards. RET the newly allocated `', which should be freed with `pango-attribute-destroy'. -- Function: pango-attr-letter-spacing-new (letter_spacing `int') => (ret `') Create a new letter-spacing attribute. LETTER-SPACING amount of extra space to add between graphemes of the text, in Pango units. RET the newly allocated `', which should be freed with `pango-attribute-destroy'. Since 1.6 -- Function: pango-color-parse (self `') (spec `mchars') => (ret `bool') Fill in the fields of a color from a string specification. The string can either one of a large set of standard names. (Taken from the X11 `rgb.txt' file), or it can be a hex value in the form '#rgb' '#rrggbb' '#rrrgggbbb' or '#rrrrggggbbbb' where 'r', 'g' and 'b' are hex digits of the red, green, and blue components of the color, respectively. (White in the four forms is '#fff' '#ffffff' '#fffffffff' and '#ffffffffffff') COLOR a `' structure in which to store the result SPEC a string specifying the new color RET ``#t'' if parsing of the specifier succeeded, otherwise false. -- Function: pango-color-copy (self `') => (ret `') Creates a copy of SRC, which should be freed with `pango-color-free'. Primarily used by language bindings, not that useful otherwise (since colors can just be copied by assignment in C). SRC color to copy RET the newly allocated `', which should be freed with `pango-color-free'. -- Function: pango-language-from-string (language `mchars') => (ret `') Take a RFC-3066 format language tag as a string and convert it to a `' pointer that can be efficiently copied (copy the pointer) and compared with other language tags (compare the pointer.) This function first canonicalizes the string by converting it to lowercase, mapping '_' to '-', and stripping all characters other than letters and '-'. LANGUAGE a string representing a language tag RET an opaque pointer to a `' structure. this will be valid forever after. -- Function: pango-language-matches (self `') (range_list `mchars') => (ret `bool') Checks if a language tag matches one of the elements in a list of language ranges. A language tag is considered to match a range in the list if the range is '*', the range is exactly the tag, or the range is a prefix of the tag, and the character after it in the tag is '-'. LANGUAGE a language tag (see `pango-language-from-string'), ``#f'' is allowed and matches nothing but '*' RANGE-LIST a list of language ranges, separated by ';', ':', ',', or space characters. Each element must either be '*', or a RFC 3066 language range canonicalized as by `pango-language-from-string' RET ``#t'' if a match was found. -- Function: pango-attr-list-new => (ret `') Create a new empty attribute list with a reference count of one. RET the newly allocated `', which should be freed with `pango-attr-list-unref'. -- Function: pango-attr-list-copy (self `') => (ret `') Copy LIST and return an identical new list. LIST a `' RET the newly allocated `', with a reference count of one, which should be freed with `pango-attr-list-unref'. -- Function: pango-attr-list-insert (self `') (attr `') Insert the given attribute into the `'. It will be inserted after all other attributes with a matching START-INDEX. LIST a `' ATTR the attribute to insert. Ownership of this value is assumed by the list. -- Function: pango-attr-list-insert-before (self `') (attr `') Insert the given attribute into the `'. It will be inserted before all other attributes with a matching START-INDEX. LIST a `' ATTR the attribute to insert. Ownership of this value is assumed by the list. -- Function: pango-attr-list-change (self `') (attr `') Insert the given attribute into the `'. It will replace any attributes of the same type on that segment and be merged with any adjoining attributes that are identical. This function is slower than `pango-attr-list-insert' for creating a attribute list in order (potentially much slower for large lists). However, `pango-attr-list-insert' is not suitable for continually changing a set of attributes since it never removes or combines existing attributes. LIST a `' ATTR the attribute to insert. Ownership of this value is assumed by the list. -- Function: pango-attr-list-splice (self `') (other `') (pos `int') (len `int') This function opens up a hole in LIST, fills it in with attributes from the left, and then merges OTHER on top of the hole. This operation is equivalent to stretching every attribute that applies at position POS in LIST by an amount LEN, and then calling `pango-attr-list-change' with a copy of each attribute in OTHER in sequence (offset in position by POS). This operation proves useful for, for instance, inserting a pre-edit string in the middle of an edit buffer. LIST a `' OTHER another `' POS the position in LIST at which to insert OTHER LEN the length of the spliced segment. (Note that this must be specified since the attributes in OTHER may only be present at some subsection of this range) -- Function: pango-attr-list-get-iterator (self `') => (ret `') Create a iterator initialized to the beginning of the list. LIST must not be modified until this iterator is freed. LIST a `' RET the newly allocated `', which should be freed with `pango-attr-iterator-destroy'. -- Function: pango-attr-iterator-copy (self `') => (ret `') Copy a `' ITERATOR a `'. RET the newly allocated `', which should be freed with `pango-attr-iterator-destroy'. -- Function: pango-attr-iterator-next (self `') => (ret `bool') Advance the iterator until the next change of style. ITERATOR a `' RET ``#f'' if the iterator is at the end of the list, otherwise ``#t'' -- Function: pango-attr-iterator-range (self `') => (start `int') (end `int') Get the range of the current segment. Note that the stored return values are signed, not unsigned like the values in `'. To deal with this API oversight, stored return values that wouldn't fit into a signed integer are clamped to `G_MAXINT'. ITERATOR a `' START location to store the start of the range END location to store the end of the range -- Function: pango-attr-iterator-get (self `') (type `') => (ret `') Find the current attribute of a particular type at the iterator location. When multiple attributes of the same type overlap, the attribute whose range starts closest to the current location is used. ITERATOR a `' TYPE the type of attribute to find. RET the current attribute of the given type, or ``#f'' if no attribute of that type applies to the current location. -- Function: pango-attr-iterator-get-attrs (self `') => (ret `gslist-of') Gets a list of all attributes at the current position of the iterator. ITERATOR a `' RET a list of all attributes for the current range. To free this value, call `pango-attribute-destroy' on each value and `g-slist-free' on the list. Since 1.2  File: guile-gnome-pango.info, Node: Undocumented, Next: Type Index, Prev: Text Attributes, Up: Top 11 Undocumented *************** The following symbols, if any, have not been properly documented. 11.1 (gnome gw pango) ===================== -- Variable: pango-context-get-font-description -- Variable: pango-font-describe-with-absolute-size -- Variable: pango-font-description-copy-static -- Variable: pango-font-description-from-string -- Variable: pango-font-description-get-set-fields -- Variable: pango-font-description-get-size-is-absolute -- Variable: pango-font-description-set-absolute-size -- Variable: pango-font-description-set-family-static -- Variable: pango-font-metrics-get-approximate-char-width -- Variable: pango-font-metrics-get-approximate-digit-width -- Variable: pango-font-metrics-get-strikethrough-position -- Variable: pango-font-metrics-get-strikethrough-thickness -- Variable: pango-font-metrics-get-underline-position -- Variable: pango-font-metrics-get-underline-thickness -- Function: pango-glyph-string-get-logical-widths -- Variable: pango-layout-get-font-description -- Variable: pango-layout-get-single-paragraph-mode -- Function: pango-layout-iter-get-cluster-extents -- Function: pango-layout-iter-get-layout-extents -- Variable: pango-layout-set-single-paragraph-mode -- Variable: pango-tab-array-get-positions-in-pixels  File: guile-gnome-pango.info, Node: Type Index, Next: Function Index, Prev: Undocumented, Up: Top Type Index ********** [index] * Menu: * : Text Attributes. (line 45) * : Text Attributes. (line 39) * : Text Attributes. (line 21) * : Text Attributes. (line 27) * : Rendering. (line 19) * : Coverage Maps. (line 20) * : Fonts. (line 21) * : Fonts. (line 45) * : Fonts. (line 39) * : Fonts. (line 51) * : Fonts. (line 27) * : Fonts. (line 33) * : Fonts. (line 57) * : Glyph Storage. (line 25) * : Rendering. (line 25) * : Text Attributes. (line 33) * : Layout Objects. (line 27) * : Layout Objects. (line 33) * : Layout Objects. (line 21) * : Glyph Storage. (line 19) * : PangoRenderer. (line 21) * : Scripts. (line 19) * : Tab Stops. (line 19)  File: guile-gnome-pango.info, Node: Function Index, Prev: Type Index, Up: Top Function Index ************** [index] * Menu: * activate: PangoRenderer. (line 230) * context-changed: Layout Objects. (line 85) * copy: Layout Objects. (line 55) * deactivate: PangoRenderer. (line 247) * describe: Fonts. (line 462) * draw-error-underline: PangoRenderer. (line 137) * draw-glyph: PangoRenderer. (line 207) * draw-glyphs: PangoRenderer. (line 76) * draw-layout: PangoRenderer. (line 29) * draw-layout-line: PangoRenderer. (line 52) * draw-rectangle: PangoRenderer. (line 103) * draw-trapezoid: PangoRenderer. (line 171) * get-alignment: Layout Objects. (line 475) * get-attributes: Layout Objects. (line 196) * get-auto-dir: Layout Objects. (line 443) * get-base-dir: Rendering. (line 238) * get-color: PangoRenderer. (line 304) * get-context: Layout Objects. (line 71) * get-coverage: Fonts. (line 477) * get-cursor-pos: Layout Objects. (line 609) * get-ellipsize: Layout Objects. (line 304) * get-extents: Layout Objects. (line 693) * get-face-name: Fonts. (line 602) * get-font-map <1>: Rendering. (line 183) * get-font-map: Fonts. (line 544) * get-glyph-extents: Fonts. (line 494) * get-indent: Layout Objects. (line 336) * get-iter: Layout Objects. (line 827) * get-justify: Layout Objects. (line 398) * get-language: Rendering. (line 212) * get-line: Layout Objects. (line 791) * get-line-count: Layout Objects. (line 778) * get-lines: Layout Objects. (line 811) * get-matrix <1>: PangoRenderer. (line 339) * get-matrix: Rendering. (line 273) * get-metrics <1>: Rendering. (line 352) * get-metrics: Fonts. (line 522) * get-name: Fonts. (line 559) * get-pixel-extents: Layout Objects. (line 720) * get-pixel-size: Layout Objects. (line 759) * get-size: Layout Objects. (line 741) * get-spacing: Layout Objects. (line 350) * get-tabs: Layout Objects. (line 505) * get-text: Layout Objects. (line 117) * get-width: Layout Objects. (line 240) * get-wrap: Layout Objects. (line 269) * index-to-line-x: Layout Objects. (line 543) * index-to-pos: Layout Objects. (line 521) * is-monospace: Fonts. (line 576) * load-font <1>: Rendering. (line 313) * load-font: Fonts. (line 637) * load-fontset <1>: Rendering. (line 331) * load-fontset: Fonts. (line 657) * move-cursor-visually: Layout Objects. (line 636) * pango-attr-background-new: Text Attributes. (line 237) * pango-attr-fallback-new: Text Attributes. (line 364) * pango-attr-family-new: Text Attributes. (line 107) * pango-attr-font-desc-new: Text Attributes. (line 201) * pango-attr-foreground-new: Text Attributes. (line 217) * pango-attr-iterator-copy: Text Attributes. (line 611) * pango-attr-iterator-get: Text Attributes. (line 656) * pango-attr-iterator-get-attrs: Text Attributes. (line 675) * pango-attr-iterator-next: Text Attributes. (line 624) * pango-attr-iterator-range: Text Attributes. (line 637) * pango-attr-language-new: Text Attributes. (line 94) * pango-attr-letter-spacing-new: Text Attributes. (line 399) * pango-attr-list-change: Text Attributes. (line 547) * pango-attr-list-copy: Text Attributes. (line 505) * pango-attr-list-get-iterator: Text Attributes. (line 597) * pango-attr-list-insert: Text Attributes. (line 519) * pango-attr-list-insert-before: Text Attributes. (line 533) * pango-attr-list-new: Text Attributes. (line 495) * pango-attr-list-splice: Text Attributes. (line 568) * pango-attr-rise-new: Text Attributes. (line 385) * pango-attr-scale-new: Text Attributes. (line 350) * pango-attr-shape-new: Text Attributes. (line 331) * pango-attr-size-new: Text Attributes. (line 172) * pango-attr-size-new-absolute: Text Attributes. (line 185) * pango-attr-stretch-new: Text Attributes. (line 146) * pango-attr-strikethrough-color-new: Text Attributes. (line 270) * pango-attr-strikethrough-new: Text Attributes. (line 256) * pango-attr-style-new: Text Attributes. (line 120) * pango-attr-type-register: Text Attributes. (line 52) * pango-attr-underline-color-new: Text Attributes. (line 307) * pango-attr-underline-new: Text Attributes. (line 293) * pango-attr-variant-new: Text Attributes. (line 133) * pango-attr-weight-new: Text Attributes. (line 159) * pango-attribute-copy: Text Attributes. (line 64) * pango-attribute-equal: Text Attributes. (line 77) * pango-color-copy: Text Attributes. (line 437) * pango-color-parse: Text Attributes. (line 415) * pango-context-get-base-dir: Rendering. (line 237) * pango-context-get-font-map: Rendering. (line 182) * pango-context-get-language: Rendering. (line 211) * pango-context-get-matrix: Rendering. (line 272) * pango-context-get-metrics: Rendering. (line 351) * pango-context-load-font: Rendering. (line 312) * pango-context-load-fontset: Rendering. (line 330) * pango-context-set-base-dir: Rendering. (line 251) * pango-context-set-font-description: Rendering. (line 198) * pango-context-set-language: Rendering. (line 224) * pango-context-set-matrix: Rendering. (line 290) * pango-coverage-copy: Coverage Maps. (line 37) * pango-coverage-get: Coverage Maps. (line 53) * pango-coverage-max: Coverage Maps. (line 68) * pango-coverage-new: Coverage Maps. (line 26) * pango-coverage-set: Coverage Maps. (line 82) * pango-find-base-dir: Rendering. (line 428) * pango-find-paragraph-boundary: Rendering. (line 449) * pango-font-describe: Fonts. (line 461) * pango-font-description-better-match: Fonts. (line 374) * pango-font-description-copy: Fonts. (line 75) * pango-font-description-equal: Fonts. (line 103) * pango-font-description-get-family: Fonts. (line 139) * pango-font-description-get-size: Fonts. (line 296) * pango-font-description-get-stretch: Fonts. (line 260) * pango-font-description-get-style: Fonts. (line 173) * pango-font-description-get-variant: Fonts. (line 202) * pango-font-description-get-weight: Fonts. (line 232) * pango-font-description-hash: Fonts. (line 88) * pango-font-description-merge: Fonts. (line 331) * pango-font-description-merge-static: Fonts. (line 352) * pango-font-description-new: Fonts. (line 64) * pango-font-description-set-family: Fonts. (line 123) * pango-font-description-set-size: Fonts. (line 275) * pango-font-description-set-stretch: Fonts. (line 247) * pango-font-description-set-style: Fonts. (line 154) * pango-font-description-set-variant: Fonts. (line 188) * pango-font-description-set-weight: Fonts. (line 217) * pango-font-description-to-filename: Fonts. (line 411) * pango-font-description-to-string: Fonts. (line 395) * pango-font-description-unset-fields: Fonts. (line 316) * pango-font-face-describe: Fonts. (line 618) * pango-font-face-get-face-name: Fonts. (line 601) * pango-font-family-get-name: Fonts. (line 558) * pango-font-family-is-monospace: Fonts. (line 575) * pango-font-get-coverage: Fonts. (line 476) * pango-font-get-font-map: Fonts. (line 543) * pango-font-get-glyph-extents: Fonts. (line 493) * pango-font-get-metrics: Fonts. (line 521) * pango-font-map-load-font: Fonts. (line 636) * pango-font-map-load-fontset: Fonts. (line 656) * pango-font-metrics-get-ascent: Fonts. (line 427) * pango-font-metrics-get-descent: Fonts. (line 444) * pango-get-mirror-char: Rendering. (line 388) * pango-glyph-string-copy: Glyph Storage. (line 143) * pango-glyph-string-extents: Glyph Storage. (line 169) * pango-glyph-string-extents-range: Glyph Storage. (line 193) * pango-glyph-string-get-logical-widths: Undocumented. (line 40) * pango-glyph-string-get-width: Glyph Storage. (line 224) * pango-glyph-string-new: Glyph Storage. (line 133) * pango-glyph-string-set-size: Glyph Storage. (line 156) * pango-item-copy: Rendering. (line 112) * pango-item-new: Rendering. (line 124) * pango-item-split: Rendering. (line 136) * pango-itemize: Rendering. (line 34) * pango-itemize-with-base-dir: Rendering. (line 76) * pango-language-from-string: Text Attributes. (line 453) * pango-language-includes-script: Scripts. (line 70) * pango-language-matches: Text Attributes. (line 473) * pango-layout-context-changed: Layout Objects. (line 84) * pango-layout-copy: Layout Objects. (line 54) * pango-layout-get-alignment: Layout Objects. (line 474) * pango-layout-get-attributes: Layout Objects. (line 195) * pango-layout-get-auto-dir: Layout Objects. (line 442) * pango-layout-get-context: Layout Objects. (line 70) * pango-layout-get-cursor-pos: Layout Objects. (line 608) * pango-layout-get-ellipsize: Layout Objects. (line 303) * pango-layout-get-extents: Layout Objects. (line 692) * pango-layout-get-indent: Layout Objects. (line 335) * pango-layout-get-iter: Layout Objects. (line 826) * pango-layout-get-justify: Layout Objects. (line 397) * pango-layout-get-line: Layout Objects. (line 790) * pango-layout-get-line-count: Layout Objects. (line 777) * pango-layout-get-lines: Layout Objects. (line 810) * pango-layout-get-pixel-extents: Layout Objects. (line 719) * pango-layout-get-pixel-size: Layout Objects. (line 758) * pango-layout-get-size: Layout Objects. (line 740) * pango-layout-get-spacing: Layout Objects. (line 349) * pango-layout-get-tabs: Layout Objects. (line 504) * pango-layout-get-text: Layout Objects. (line 116) * pango-layout-get-width: Layout Objects. (line 239) * pango-layout-get-wrap: Layout Objects. (line 268) * pango-layout-index-to-line-x: Layout Objects. (line 542) * pango-layout-index-to-pos: Layout Objects. (line 520) * pango-layout-iter-at-last-line: Layout Objects. (line 893) * pango-layout-iter-get-baseline: Layout Objects. (line 921) * pango-layout-iter-get-char-extents: Layout Objects. (line 947) * pango-layout-iter-get-cluster-extents: Undocumented. (line 46) * pango-layout-iter-get-index: Layout Objects. (line 905) * pango-layout-iter-get-layout-extents: Undocumented. (line 48) * pango-layout-iter-get-line: Layout Objects. (line 934) * pango-layout-iter-get-line-extents: Layout Objects. (line 1003) * pango-layout-iter-get-line-yrange: Layout Objects. (line 980) * pango-layout-iter-get-run-extents: Layout Objects. (line 964) * pango-layout-iter-next-char: Layout Objects. (line 854) * pango-layout-iter-next-cluster: Layout Objects. (line 867) * pango-layout-iter-next-line: Layout Objects. (line 880) * pango-layout-iter-next-run: Layout Objects. (line 841) * pango-layout-line-get-extents: Layout Objects. (line 1025) * pango-layout-line-get-pixel-extents: Layout Objects. (line 1046) * pango-layout-line-index-to-x: Layout Objects. (line 1067) * pango-layout-line-x-to-index: Layout Objects. (line 1087) * pango-layout-move-cursor-visually: Layout Objects. (line 635) * pango-layout-new: Layout Objects. (line 40) * pango-layout-set-alignment: Layout Objects. (line 460) * pango-layout-set-attributes: Layout Objects. (line 182) * pango-layout-set-auto-dir: Layout Objects. (line 411) * pango-layout-set-ellipsize: Layout Objects. (line 281) * pango-layout-set-font-description: Layout Objects. (line 208) * pango-layout-set-indent: Layout Objects. (line 319) * pango-layout-set-justify: Layout Objects. (line 377) * pango-layout-set-markup: Layout Objects. (line 130) * pango-layout-set-markup-with-accel: Layout Objects. (line 150) * pango-layout-set-spacing: Layout Objects. (line 363) * pango-layout-set-tabs: Layout Objects. (line 488) * pango-layout-set-text: Layout Objects. (line 97) * pango-layout-set-width: Layout Objects. (line 224) * pango-layout-set-wrap: Layout Objects. (line 253) * pango-layout-xy-to-index: Layout Objects. (line 570) * pango-matrix-concat: Glyph Storage. (line 101) * pango-matrix-copy: Glyph Storage. (line 32) * pango-matrix-get-font-scale-factor: Glyph Storage. (line 117) * pango-matrix-rotate: Glyph Storage. (line 85) * pango-matrix-scale: Glyph Storage. (line 66) * pango-matrix-translate: Glyph Storage. (line 47) * pango-renderer-activate: PangoRenderer. (line 229) * pango-renderer-deactivate: PangoRenderer. (line 246) * pango-renderer-draw-error-underline: PangoRenderer. (line 136) * pango-renderer-draw-glyph: PangoRenderer. (line 206) * pango-renderer-draw-glyphs: PangoRenderer. (line 75) * pango-renderer-draw-layout: PangoRenderer. (line 28) * pango-renderer-draw-layout-line: PangoRenderer. (line 51) * pango-renderer-draw-rectangle: PangoRenderer. (line 102) * pango-renderer-draw-trapezoid: PangoRenderer. (line 170) * pango-renderer-get-color: PangoRenderer. (line 303) * pango-renderer-get-matrix: PangoRenderer. (line 338) * pango-renderer-part-changed: PangoRenderer. (line 259) * pango-renderer-set-color: PangoRenderer. (line 285) * pango-renderer-set-matrix: PangoRenderer. (line 322) * pango-reorder-items: Rendering. (line 165) * pango-script-for-unichar: Scripts. (line 26) * pango-script-get-sample-language: Scripts. (line 43) * pango-script-iter-new: Scripts. (line 96) * pango-script-iter-next: Scripts. (line 119) * pango-tab-array-copy: Tab Stops. (line 44) * pango-tab-array-get-size: Tab Stops. (line 57) * pango-tab-array-new: Tab Stops. (line 26) * pango-tab-array-resize: Tab Stops. (line 69) * pango-tab-array-set-tab: Tab Stops. (line 83) * pango-unichar-direction: Rendering. (line 413) * part-changed: PangoRenderer. (line 260) * set-alignment: Layout Objects. (line 461) * set-attributes: Layout Objects. (line 183) * set-auto-dir: Layout Objects. (line 412) * set-base-dir: Rendering. (line 252) * set-color: PangoRenderer. (line 286) * set-ellipsize: Layout Objects. (line 282) * set-font-description <1>: Rendering. (line 199) * set-font-description: Layout Objects. (line 209) * set-indent: Layout Objects. (line 320) * set-justify: Layout Objects. (line 378) * set-language: Rendering. (line 225) * set-markup: Layout Objects. (line 131) * set-markup-with-accel: Layout Objects. (line 151) * set-matrix <1>: PangoRenderer. (line 323) * set-matrix: Rendering. (line 291) * set-spacing: Layout Objects. (line 364) * set-tabs: Layout Objects. (line 489) * set-text: Layout Objects. (line 98) * set-width: Layout Objects. (line 225) * set-wrap: Layout Objects. (line 254) * xy-to-index: Layout Objects. (line 571)  Tag Table: Node: Top615 Node: Overview1829 Node: Coverage Maps2282 Node: Fonts4607 Node: Glyph Storage25236 Node: Layout Objects31543 Node: Rendering64519 Node: PangoRenderer78651 Node: Scripts87705 Node: Tab Stops91600 Node: Text Attributes93986 Node: Undocumented113048 Node: Type Index114458 Node: Function Index116287  End Tag Table guile-gnome-platform-2.16.2/pango/doc/pango/section-text-attributes.xml.texi0000644000175000017500000000076411670374303027460 0ustar00wingowingo00000000000000 @c %start of fragment @node Text Attributes @chapter Text Attributes Font and other attributes for annotating text @section Overview Attributed text is used in a number of places in Pango. It is used as the input to the itemization process and also when creating a @code{}. The data types and functions in this section are used to represent and manipulate sets of attributes applied to a portion of text. @section Usage @include defuns-text-attributes.xml.texi @c %end of fragment guile-gnome-platform-2.16.2/pango/doc/pango/section-main.xml.texi0000644000175000017500000000055211670374303025227 0ustar00wingowingo00000000000000 @c %start of fragment @node Rendering @chapter Rendering Functions to run the rendering pipeline @section Overview The Pango rendering pipeline takes a string of Unicode characters and converts it into glyphs. The functions described in this section accomplish various steps of this process. @section Usage @include defuns-main.xml.texi @c %end of fragment guile-gnome-platform-2.16.2/pango/doc/pango/section-tab-stops.xml.texi0000644000175000017500000000051711670374303026220 0ustar00wingowingo00000000000000 @c %start of fragment @node Tab Stops @chapter Tab Stops Structures for storing tab stops @section Overview Functions in this section are used to deal with @code{} objects that can be used to set tab stop positions in a @code{}. @section Usage @include defuns-tab-stops.xml.texi @c %end of fragment guile-gnome-platform-2.16.2/pango/doc/pango/defuns-fonts.xml.texi0000644000175000017500000005155311670374303025263 0ustar00wingowingo00000000000000 @c %start of fragment @deftp Class Derives from @code{}. This class defines no direct slots. @end deftp @deftp Class Derives from @code{}. This class defines no direct slots. @end deftp @deftp Class Derives from @code{}. This class defines no direct slots. @end deftp @deftp Class Derives from @code{}. This class defines no direct slots. @end deftp @deftp Class Derives from @code{}. This class defines no direct slots. @end deftp @deftp Class Derives from @code{}. This class defines no direct slots. @end deftp @deftp Class Derives from @code{}. This class defines no direct slots. @end deftp @deffn Function pango-font-description-new @result{}@tie{} (ret@tie{}@code{}) Creates a new font description structure with all fields unset. @table @var @item ret the newly allocated @code{}, which should be freed using @code{pango-font-description-free}. @end table @end deffn @deffn Function pango-font-description-copy (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{}) Make a copy of a @code{}. @table @var @item desc a @code{} @item ret the newly allocated @code{}, which should be freed with @code{pango-font-description-free}. @end table @end deffn @deffn Function pango-font-description-hash (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{unsigned-int}) Computes a hash of a @code{} structure suitable to be used, for example, as an argument to @code{g-hash-table-new}. The hash value is independent of @var{desc->mask}. @table @var @item desc a @code{} @item ret the hash value. @end table @end deffn @deffn Function pango-font-description-equal (self@tie{}@code{}) (desc2@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{bool}) Compares two font descriptions for equality. Two font descriptions are considered equal if the fonts they describe are provably identical. This means that their masks do not have to match, as long as other fields are all the same. (Two font descriptions may result in identical fonts being loaded, but still compare @samp{@code{#f}}.) @table @var @item desc1 a @code{} @item desc2 another @code{} @item ret @samp{@code{#t}} if the two font descriptions are identical, @samp{@code{#f}} otherwise. @end table @end deffn @deffn Function pango-font-description-set-family (self@tie{}@code{}) (family@tie{}@code{mchars}) Sets the family name field of a font description. The family name represents a family of related font styles, and will resolve to a particular @code{}. In some uses of @code{}, it is also possible to use a comma separated list of family names for this field. @table @var @item desc a @code{}. @item family a string representing the family name. @end table @end deffn @deffn Function pango-font-description-get-family (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{mchars}) Gets the family name field of a font description. See @code{pango-font-description-set-family}. @table @var @item desc a @code{}. @item ret the family name field for the font description, or @samp{@code{#f}} if not previously set. This has the same life-time as the font description itself and should not be freed. @end table @end deffn @deffn Function pango-font-description-set-style (self@tie{}@code{}) (style@tie{}@code{}) Sets the style field of a @code{}. The @code{} enumeration describes whether the font is slanted and the manner in which it is slanted; it can be either @code{}, @code{}, or @code{}. Most fonts will either have a italic style or an oblique style, but not both, and font matching in Pango will match italic specifications with oblique fonts and vice-versa if an exact match is not found. @table @var @item desc a @code{} @item style the style for the font description @end table @end deffn @deffn Function pango-font-description-get-style (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{}) Gets the style field of a @code{}. See @code{pango-font-description-set-style}. @table @var @item desc a @code{} @item ret the style field for the font description. Use @code{pango-font-description-get-set-fields} to find out if the field was explicitly set or not. @end table @end deffn @deffn Function pango-font-description-set-variant (self@tie{}@code{}) (variant@tie{}@code{}) Sets the variant field of a font description. The @code{} can either be @samp{PANGO_VARIANT_NORMAL} or @samp{PANGO_VARIANT_SMALL_CAPS}. @table @var @item desc a @code{} @item variant the variant type for the font description. @end table @end deffn @deffn Function pango-font-description-get-variant (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{}) Gets the variant field of a @code{}. See @code{pango-font-description-set-variant}. @table @var @item desc a @code{}. @item ret the variant field for the font description. Use @code{pango-font-description-get-set-fields} to find out if the field was explicitly set or not. @end table @end deffn @deffn Function pango-font-description-set-weight (self@tie{}@code{}) (weight@tie{}@code{}) Sets the weight field of a font description. The weight field specifies how bold or light the font should be. In addition to the values of the @code{} enumeration, other intermediate numeric values are possible. @table @var @item desc a @code{} @item weight the weight for the font description. @end table @end deffn @deffn Function pango-font-description-get-weight (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{}) Gets the weight field of a font description. See @code{pango-font-description-set-weight}. @table @var @item desc a @code{} @item ret the weight field for the font description. Use @code{pango-font-description-get-set-fields} to find out if the field was explicitly set or not. @end table @end deffn @deffn Function pango-font-description-set-stretch (self@tie{}@code{}) (stretch@tie{}@code{}) Sets the stretch field of a font description. The stretch field specifies how narrow or wide the font should be. @table @var @item desc a @code{} @item stretch the stretch for the font description @end table @end deffn @deffn Function pango-font-description-get-stretch (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{}) Gets the stretch field of a font description. See @code{pango-font-description-set-stretch}. @table @var @item desc a @code{}. @item ret the stretch field for the font description. Use @code{pango-font-description-get-set-fields} to find out if the field was explicitly set or not. @end table @end deffn @deffn Function pango-font-description-set-size (self@tie{}@code{}) (size@tie{}@code{int}) Sets the size field of a font description in fractional points. This is mutually exclusive with @code{pango-font-description-set-absolute-size}. @table @var @item desc a @code{} @item size the size of the font in points, scaled by PANGO_SCALE. (That is, a @var{size} value of 10 * PANGO_SCALE is a 10 point font. The conversion factor between points and device units depends on system configuration and the output device. For screen display, a logical DPI of 96 is common, in which case a 10 point font corresponds to a 10 * (96 / 72) = 13.3 pixel font. Use @code{pango-font-description-set-absolute-size} if you need a particular size in device units. @end table @end deffn @deffn Function pango-font-description-get-size (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{int}) Gets the size field of a font description. See @code{pango-font-description-set-size}. @table @var @item desc a @code{} @item ret the size field for the font description in points or device units. You must call @code{pango-font-description-get-size-is-absolute} to find out which is the case. Returns 0 if the size field has not previously been set or it has been set to 0 explicitly. Use @code{pango-font-description-get-set-fields} to find out if the field was explicitly set or not. @end table @end deffn @deffn Function pango-font-description-unset-fields (self@tie{}@code{}) (to_unset@tie{}@code{}) Unsets some of the fields in a @code{}. The unset fields will get back to their default values. @table @var @item desc a @code{} @item to-unset bitmask of fields in the @var{desc} to unset. @end table @end deffn @deffn Function pango-font-description-merge (self@tie{}@code{}) (desc_to_merge@tie{}@code{}) (replace_existing@tie{}@code{bool}) Merges the fields that are set in @var{desc-to-merge} into the fields in @var{desc}. If @var{replace-existing} is @samp{@code{#f}}, only fields in @var{desc} that are not already set are affected. If @samp{@code{#t}}, then fields that are already set will be replaced as well. @table @var @item desc a @code{} @item desc-to-merge the @code{} to merge from @item replace-existing if @samp{@code{#t}}, replace fields in @var{desc} with the corresponding values from @var{desc-to-merge}, even if they are already exist. @end table @end deffn @deffn Function pango-font-description-merge-static (self@tie{}@code{}) (desc_to_merge@tie{}@code{}) (replace_existing@tie{}@code{bool}) Like @code{pango-font-description-merge}, but only a shallow copy is made of the family name and other allocated fields. @var{desc} can only be used until @var{desc-to-merge} is modified or freed. This is meant to be used when the merged font description is only needed temporarily. @table @var @item desc a @code{} @item desc-to-merge the @code{} to merge from @item replace-existing if @samp{@code{#t}}, replace fields in @var{desc} with the corresponding values from @var{desc-to-merge}, even if they are already exist. @end table @end deffn @deffn Function pango-font-description-better-match (self@tie{}@code{}) (old_match@tie{}@code{}) (new_match@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{bool}) Determines if the style attributes of @var{new-match} are a closer match for @var{desc} than @var{old-match}, or if @var{old-match} is @samp{@code{#f}}, determines if @var{new-match} is a match at all. Approximate matching is done for weight and style; other attributes must match exactly. @table @var @item desc a @code{} @item old-match a @code{}, or @samp{@code{#f}} @item new-match a @code{} @item ret @samp{@code{#t}} if @var{new-match} is a better match @end table @end deffn @deffn Function pango-font-description-to-string (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{mchars}) Creates a string representation of a font description. See @code{pango-font-description-from-string} for a description of the format of the string representation. The family list in the string description will only have a terminating comma if the last word of the list is a valid style option. @table @var @item desc a @code{} @item ret a new string that must be freed with @code{g-free}. @end table @end deffn @deffn Function pango-font-description-to-filename (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{mchars}) Creates a filename representation of a font description. The filename is identical to the result from calling @code{pango-font-description-to-string}, but with underscores instead of characters that are untypical in filenames, and in lower case only. @table @var @item desc a @code{} @item ret a new string that must be freed with @code{g-free}. @end table @end deffn @deffn Function pango-font-metrics-get-ascent (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{int}) Gets the ascent from a font metrics structure. The ascent is the distance from the baseline to the logical top of a line of text. (The logical top may be above or below the top of the actual drawn ink. It is necessary to lay out the text to figure where the ink will be.) @table @var @item metrics a @code{} structure @item ret the ascent, in Pango units. (1 point == @samp{PANGO_SCALE} Pango units.) @end table @end deffn @deffn Function pango-font-metrics-get-descent (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{int}) Gets the descent from a font metrics structure. The descent is the distance from the baseline to the logical bottom of a line of text. (The logical bottom may be above or below the bottom of the actual drawn ink. It is necessary to lay out the text to figure where the ink will be.) @table @var @item metrics a @code{} structure @item ret the descent, in Pango units. (1 point == @samp{PANGO_SCALE} Pango units.) @end table @end deffn @deffn Function pango-font-describe (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{}) @deffnx Method describe Returns a description of the font, with font size set in points. Use @code{pango-font-describe-with-absolute-size} if you want the font size in device units. @table @var @item font a @code{} @item ret a newly-allocated @code{} object. @end table @end deffn @deffn Function pango-font-get-coverage (self@tie{}@code{}) (language@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{}) @deffnx Method get-coverage Computes the coverage map for a given font and language tag. @table @var @item font a @code{} @item language the language tag @item ret a newly-allocated @code{} object. @end table @end deffn @deffn Function pango-font-get-glyph-extents (self@tie{}@code{}) (glyph@tie{}@code{unsigned-int32}) @result{}@tie{} (ink_rect@tie{}@code{}) (logical_rect@tie{}@code{}) @deffnx Method get-glyph-extents Gets the logical and ink extents of a glyph within a font. The coordinate system for each rectangle has its origin at the base line and horizontal origin of the character with increasing coordinates extending to the right and down. The macros @code{pango-ascent}, @code{pango-descent}, @code{pango-lbearing}, and @code{pango-rbearing} can be used to convert from the extents rectangle to more traditional font metrics. The units of the rectangles are in 1/PANGO_SCALE of a device unit. @table @var @item font a @code{} @item glyph the glyph index @item ink-rect rectangle used to store the extents of the glyph as drawn or @samp{@code{#f}} to indicate that the result is not needed. @item logical-rect rectangle used to store the logical extents of the glyph or @samp{@code{#f}} to indicate that the result is not needed. @end table @end deffn @deffn Function pango-font-get-metrics (self@tie{}@code{}) (language@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{}) @deffnx Method get-metrics Gets overall metric information for a font. Since the metrics may be substantially different for different scripts, a language tag can be provided to indicate that the metrics should be retrieved that correspond to the script(s) used by that language. @table @var @item font a @code{} @item language language tag used to determine which script to get the metrics for, or @samp{@code{#f}} to indicate to get the metrics for the entire font. @item ret a @code{} object. The caller must call @code{pango-font-metrics-unref} when finished using the object. @end table @end deffn @deffn Function pango-font-get-font-map (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{}) @deffnx Method get-font-map Gets the font map for which the font was created. @table @var @item font a @code{} @item ret the @code{} for the font @end table Since 1.10 @end deffn @deffn Function pango-font-family-get-name (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{mchars}) @deffnx Method get-name Gets the name of the family. The name is unique among all fonts for the font backend and can be used in a @code{} to specify that a face from this family is desired. @table @var @item family a @code{} @item ret the name of the family. This string is owned by the family object and must not be modified or freed. @end table @end deffn @deffn Function pango-font-family-is-monospace (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{bool}) @deffnx Method is-monospace A monospace font is a font designed for text display where the the characters form a regular grid. For Western languages this would mean that the advance width of all characters are the same, but this categorization also includes Asian fonts which include double-width characters: characters that occupy two grid cells. @code{g-unichar-iswide} returns a result that indicates whether a character is typically double-width in a monospace font. The best way to find out the grid-cell size is to call @code{pango-font-metrics-get-approximate-digit-width}, since the results of @code{pango-font-metrics-get-approximate-char-width} may be affected by double-width characters. @table @var @item family a @code{} @item ret @samp{@code{#t}} if the family is monospace. @end table Since 1.4 @end deffn @deffn Function pango-font-face-get-face-name (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{mchars}) @deffnx Method get-face-name Gets a name representing the style of this face among the different faces in the @code{} for the face. This name is unique among all faces in the family and is suitable for displaying to users. @table @var @item face a @code{}. @item ret the face name for the face. This string is owned by the face object and must not be modified or freed. @end table @end deffn @deffn Function pango-font-face-describe (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{}) @deffnx Method describe Returns the family, style, variant, weight and stretch of a @code{}. The size field of the resulting font description will be unset. @table @var @item face a @code{} @item ret a newly-created @code{} structure holding the description of the face. Use @code{pango-font-description-free} to free the result. @end table @end deffn @deffn Function pango-font-map-load-font (self@tie{}@code{}) (context@tie{}@code{}) (desc@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{}) @deffnx Method load-font Load the font in the fontmap that is the closest match for @var{desc}. @table @var @item fontmap a @code{} @item context the @code{} the font will be used with @item desc a @code{} describing the font to load @item ret the font loaded, or @samp{@code{#f}} if no font matched. @end table @end deffn @deffn Function pango-font-map-load-fontset (self@tie{}@code{}) (context@tie{}@code{}) (desc@tie{}@code{}) (language@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{}) @deffnx Method load-fontset Load a set of fonts in the fontmap that can be used to render a font matching @var{desc}. @table @var @item fontmap a @code{} @item context the @code{} the font will be used with @item desc a @code{} describing the font to load @item language a @code{} the fonts will be used for @item ret the fontset, or @samp{@code{#f}} if no font matched. @end table @end deffn @c %end of fragment guile-gnome-platform-2.16.2/pango/doc/pangocairo/0000755000175000017500000000000011752546501022165 5ustar00wingowingo00000000000000guile-gnome-platform-2.16.2/pango/doc/pangocairo/undocumented.texi0000644000175000017500000000045211670374303025551 0ustar00wingowingo00000000000000 @c %start of fragment @node Undocumented @chapter Undocumented The following symbols, if any, have not been properly documented. @section (gnome gw pangocairo) @defun pango-cairo-context-get-font-options @end defun @defun pango-cairo-context-set-font-options @end defun @c %end of fragment guile-gnome-platform-2.16.2/pango/doc/pangocairo/guile-gnome-pangocairo.texi0000644000175000017500000000277611670374303027422 0ustar00wingowingo00000000000000\input texinfo @c -*-texinfo-*- @c %**start of header @setfilename guile-gnome-pangocairo.info @settitle Guile-PangoCairo @c %**end of header @include version.texi @copying This manual is for @code{(gnome pangocairo)} (version @value{VERSION}, updated @value{UPDATED}) Copyright 2001-2007 Owen Taylor, Behdad Esfahbod, many others @c PANGO is LGPL, ergo GPL distribution is possible @quotation Permission is granted to copy, distribute and/or modify this document under the terms of the GNU General Public License, Version 2 or any later version published by the Free Software Foundation. @end quotation @end copying @dircategory The Algorithmic Language Scheme @direntry * Guile-PangoCairo: (guile-gnome-pangocairo.info). Pango+Cairo. @end direntry @titlepage @title Guile-GNOME: PangoCairo @subtitle version @value{VERSION}, updated @value{UPDATED} @author Owen Taylor @author Behdad Esfahbod @author many others @page @vskip 0pt plus 1filll @insertcopying @end titlepage @ifnottex @node Top @top Guile-PangoCairo @insertcopying @menu * Overview:: About the binding. * Cairo Rendering:: Rendering with the Cairo backend * Undocumented:: Undocumented functions. * Type Index:: * Function Index:: @end menu @end ifnottex @iftex @shortcontents @end iftex @include overview.texi @include section-pangocairo.xml.texi @include undocumented.texi @node Type Index @unnumbered Type Index @printindex tp @node Function Index @unnumbered Function Index @printindex fn @bye guile-gnome-platform-2.16.2/pango/doc/pangocairo/section-pangocairo.xml.texi0000644000175000017500000000765011670374303027451 0ustar00wingowingo00000000000000 @c %start of fragment @node Cairo Rendering @chapter Cairo Rendering Rendering with the Cairo backend @section Overview The @uref{http://cairographics.org,Cairo library} is a vector graphics library with a powerful rendering model. It has such features as anti-aliased primitives, alpha-compositing, and gradients. Multiple backends for Cairo are available, to allow rendering to images, to PDF files, and to the screen on X and on other windowing systems. The functions in this section allow using Pango to render to Cairo surfaces. Using Pango with Cairo is straightforward. A @code{} created with @code{pango-cairo-font-map-create-context} can be used on any Cairo context (cairo_t), but needs to be updated to match the current transformation matrix and target surface of the Cairo context using @code{pango-cairo-update-context}. The convenience functions @code{pango-cairo-create-layout} and @code{pango-cairo-update-layout} handle the common case where the program doesn't need to manipulate the properties of the @code{}. When you get the metrics of a layout or of a piece of a layout using functions such as @code{pango-layout-get-extents}, the reported metrics are in user-space coordinates. If a piece of text is 10 units long, and you call cairo_scale (cr, 2.0), it still is more-or-less 10 units long. However, the results will be affected by hinting (that is, the process of adjusting the text to look good on the pixel grid), so you shouldn't assume they are completely independent of the current transformation matrix. Note that the basic metrics functions in Pango report results in integer Pango units. To get to the floating point units used in Cairo divide by @samp{PANGO_SCALE}. @example #include #include static void draw_text (cairo_t *cr) @{ #define RADIUS 150 #define N_WORDS 10 #define FONT "Sans Bold 27" PangoLayout *layout; PangoFontDescription *desc; int i; /* Center coordinates on the middle of the region we are drawing */ cairo_translate (cr, RADIUS, RADIUS); /* Create a PangoLayout, set the font and text */ layout = pango_cairo_create_layout (cr); pango_layout_set_text (layout, "Text", -1); desc = pango_font_description_from_string (FONT); pango_layout_set_font_description (layout, desc); pango_font_description_free (desc); /* Draw the layout N_WORDS times in a circle */ for (i = 0; i < N_WORDS; i++) @{ int width, height; double angle = (360. * i) / N_WORDS; double red; cairo_save (cr); /* Gradient from red at angle == 60 to blue at angle == 240 */ red = (1 + cos ((angle - 60) * G_PI / 180.)) / 2; cairo_set_source_rgb (cr, red, 0, 1.0 - red); cairo_rotate (cr, angle * G_PI / 180.); /* Inform Pango to re-layout the text with the new transformation */ pango_cairo_update_layout (cr, layout); pango_layout_get_size (layout, &width, &height); cairo_move_to (cr, - ((double)width / PANGO_SCALE) / 2, - RADIUS); pango_cairo_show_layout (cr, layout); cairo_restore (cr); @} /* free the layout object */ g_object_unref (layout); @} int main (int argc, char **argv) @{ cairo_t *cr; char *filename; cairo_status_t status; cairo_surface_t *surface; if (argc != 2) @{ g_printerr ("Usage: cairosimple OUTPUT_FILENAME\n"); return 1; @} filename = argv[1]; surface = cairo_image_surface_create (CAIRO_FORMAT_ARGB32, 2 * RADIUS, 2 * RADIUS); cr = cairo_create (surface); cairo_set_source_rgb (cr, 1.0, 1.0, 1.0); cairo_paint (cr); draw_text (cr); cairo_destroy (cr); status = cairo_surface_write_to_png (surface, filename); cairo_surface_destroy (surface); if (status != CAIRO_STATUS_SUCCESS) @{ g_printerr ("Could not save png to '%s'\n", filename); return 1; @} return 0; @} @end example @section Usage @include defuns-pangocairo.xml.texi @c %end of fragment guile-gnome-platform-2.16.2/pango/doc/pangocairo/overrides.texi0000644000175000017500000000000011670374303025046 0ustar00wingowingo00000000000000guile-gnome-platform-2.16.2/pango/doc/pangocairo/version.texi0000644000175000017500000000014611752511104024535 0ustar00wingowingo00000000000000@set UPDATED 9 December 2011 @set UPDATED-MONTH December 2011 @set EDITION 2.16.2 @set VERSION 2.16.2 guile-gnome-platform-2.16.2/pango/doc/pangocairo/Makefile.am0000644000175000017500000000117311670374303024221 0ustar00wingowingo00000000000000################################################################################ ## guile-gnome-pangocairo.info include $(top_srcdir)/generate-docs.mk # FIXME: cairo? # A hand-culled list of modules that we wrap. docbook_xml = pangocairo.xml docbook_xml_base = ~/src/gnome2/pango/docs/xml/ docbook_xml_files = $(addprefix $(docbook_xml_base),$(docbook_xml)) wrapset_stem = pangocairo GTK_DOC_COVERAGE_MODULES = (gnome gw $(wrapset_stem)) EXTRA_DIST = overrides.texi info_TEXINFOS=guile-gnome-pangocairo.texi guile_gnome_pangocairo_TEXINFOS=overview.texi \ $(wildcard section-*.texi) $(wildcard defuns-*.texi) undocumented.texi guile-gnome-platform-2.16.2/pango/doc/pangocairo/Makefile.in0000644000175000017500000006566011752511070024240 0ustar00wingowingo00000000000000# Makefile.in generated by automake 1.11.5 from Makefile.am. # @configure_input@ # Copyright (C) 1994, 1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, # 2003, 2004, 2005, 2006, 2007, 2008, 2009, 2010, 2011 Free Software # Foundation, Inc. # This Makefile.in is free software; the Free Software Foundation # gives unlimited permission to copy and/or distribute it, # with or without modifications, as long as this notice is preserved. # This program is distributed in the hope that it will be useful, # but WITHOUT ANY WARRANTY, to the extent permitted by law; without # even the implied warranty of MERCHANTABILITY or FITNESS FOR A # PARTICULAR PURPOSE. @SET_MAKE@ ################################################################################ # guile-gnome # Copyright (C) 2007, 2011 Free Software Foundation, Inc. # This program is free software; you can redistribute it and/or # modify it under the terms of the GNU General Public License as # published by the Free Software Foundation; either version 2 of # the License, or (at your option) any later version. # This program is distributed in the hope that it will be useful, # but WITHOUT ANY WARRANTY; without even the implied warranty of # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the # GNU General Public License for more details. # You should have received a copy of the GNU General Public License # along with this program; if not, contact: # Free Software Foundation Voice: +1-617-542-5942 # 59 Temple Place - Suite 330 Fax: +1-617-542-2652 # Boston, MA 02111-1307, USA gnu@gnu.org # # Makefile snippet # VPATH = @srcdir@ am__make_dryrun = \ { \ am__dry=no; \ case $$MAKEFLAGS in \ *\\[\ \ ]*) \ echo 'am--echo: ; @echo "AM" OK' | $(MAKE) -f - 2>/dev/null \ | grep '^AM OK$$' >/dev/null || am__dry=yes;; \ *) \ for am__flg in $$MAKEFLAGS; do \ case $$am__flg in \ *=*|--*) ;; \ *n*) am__dry=yes; break;; \ esac; \ done;; \ esac; \ test $$am__dry = yes; \ } pkgdatadir = $(datadir)/@PACKAGE@ pkgincludedir = $(includedir)/@PACKAGE@ pkglibdir = $(libdir)/@PACKAGE@ pkglibexecdir = $(libexecdir)/@PACKAGE@ am__cd = CDPATH="$${ZSH_VERSION+.}$(PATH_SEPARATOR)" && cd install_sh_DATA = $(install_sh) -c -m 644 install_sh_PROGRAM = $(install_sh) -c install_sh_SCRIPT = $(install_sh) -c INSTALL_HEADER = $(INSTALL_DATA) transform = $(program_transform_name) NORMAL_INSTALL = : PRE_INSTALL = : POST_INSTALL = : NORMAL_UNINSTALL = : PRE_UNINSTALL = : POST_UNINSTALL = : build_triplet = @build@ host_triplet = @host@ DIST_COMMON = $(guile_gnome_pangocairo_TEXINFOS) $(srcdir)/Makefile.am \ $(srcdir)/Makefile.in $(srcdir)/stamp-vti \ $(srcdir)/version.texi $(top_srcdir)/generate-docs.mk subdir = pango/doc/pangocairo ACLOCAL_M4 = $(top_srcdir)/aclocal.m4 am__aclocal_m4_deps = $(top_srcdir)/configure.ac am__configure_deps = $(am__aclocal_m4_deps) $(CONFIGURE_DEPENDENCIES) \ $(ACLOCAL_M4) mkinstalldirs = $(install_sh) -d CONFIG_HEADER = $(top_builddir)/config.h CONFIG_CLEAN_FILES = CONFIG_CLEAN_VPATH_FILES = SOURCES = DIST_SOURCES = INFO_DEPS = $(srcdir)/guile-gnome-pangocairo.info TEXINFO_TEX = $(top_srcdir)/build-aux/texinfo.tex am__TEXINFO_TEX_DIR = $(top_srcdir)/build-aux DVIS = guile-gnome-pangocairo.dvi PDFS = guile-gnome-pangocairo.pdf PSS = guile-gnome-pangocairo.ps HTMLS = guile-gnome-pangocairo.html TEXINFOS = guile-gnome-pangocairo.texi TEXI2DVI = texi2dvi TEXI2PDF = $(TEXI2DVI) --pdf --batch MAKEINFOHTML = $(MAKEINFO) --html AM_MAKEINFOHTMLFLAGS = $(AM_MAKEINFOFLAGS) DVIPS = dvips am__can_run_installinfo = \ case $$AM_UPDATE_INFO_DIR in \ n|no|NO) false;; \ *) (install-info --version) >/dev/null 2>&1;; \ esac am__installdirs = "$(DESTDIR)$(infodir)" am__vpath_adj_setup = srcdirstrip=`echo "$(srcdir)" | sed 's|.|.|g'`; am__vpath_adj = case $$p in \ $(srcdir)/*) f=`echo "$$p" | sed "s|^$$srcdirstrip/||"`;; \ *) f=$$p;; \ esac; am__strip_dir = f=`echo $$p | sed -e 's|^.*/||'`; am__install_max = 40 am__nobase_strip_setup = \ srcdirstrip=`echo "$(srcdir)" | sed 's/[].[^$$\\*|]/\\\\&/g'` am__nobase_strip = \ for p in $$list; do echo "$$p"; done | sed -e "s|$$srcdirstrip/||" am__nobase_list = $(am__nobase_strip_setup); \ for p in $$list; do echo "$$p $$p"; done | \ sed "s| $$srcdirstrip/| |;"' / .*\//!s/ .*/ ./; s,\( .*\)/[^/]*$$,\1,' | \ $(AWK) 'BEGIN { files["."] = "" } { files[$$2] = files[$$2] " " $$1; \ if (++n[$$2] == $(am__install_max)) \ { print $$2, files[$$2]; n[$$2] = 0; files[$$2] = "" } } \ END { for (dir in files) print dir, files[dir] }' am__base_list = \ sed '$$!N;$$!N;$$!N;$$!N;$$!N;$$!N;$$!N;s/\n/ /g' | \ sed '$$!N;$$!N;$$!N;$$!N;s/\n/ /g' am__uninstall_files_from_dir = { \ test -z "$$files" \ || { test ! -d "$$dir" && test ! -f "$$dir" && test ! -r "$$dir"; } \ || { echo " ( cd '$$dir' && rm -f" $$files ")"; \ $(am__cd) "$$dir" && rm -f $$files; }; \ } DISTFILES = $(DIST_COMMON) $(DIST_SOURCES) $(TEXINFOS) $(EXTRA_DIST) ACLOCAL = @ACLOCAL@ AG_PKG_CONFIG_PATH = @AG_PKG_CONFIG_PATH@ AMTAR = @AMTAR@ API_VERSION = @API_VERSION@ AR = @AR@ ATK_CFLAGS = @ATK_CFLAGS@ ATK_LIBS = @ATK_LIBS@ AUTOCONF = @AUTOCONF@ AUTOHEADER = @AUTOHEADER@ AUTOMAKE = @AUTOMAKE@ AWK = @AWK@ BONOBO_IDL_DIR = @BONOBO_IDL_DIR@ CANVAS_CFLAGS = @CANVAS_CFLAGS@ CANVAS_LIBS = @CANVAS_LIBS@ CC = @CC@ CCDEPMODE = @CCDEPMODE@ CFLAGS = @CFLAGS@ CORBA_CFLAGS = @CORBA_CFLAGS@ CORBA_LIBS = @CORBA_LIBS@ CPP = @CPP@ CPPFLAGS = @CPPFLAGS@ CYGPATH_W = @CYGPATH_W@ DEFS = @DEFS@ DEPDIR = @DEPDIR@ DLLTOOL = @DLLTOOL@ DSYMUTIL = @DSYMUTIL@ DUMPBIN = @DUMPBIN@ ECHO_C = @ECHO_C@ ECHO_N = @ECHO_N@ ECHO_T = @ECHO_T@ EGREP = @EGREP@ EXEEXT = @EXEEXT@ FGREP = @FGREP@ GCONF_CFLAGS = @GCONF_CFLAGS@ GCONF_LIBS = @GCONF_LIBS@ GDK_CFLAGS = @GDK_CFLAGS@ GDK_LIBS = @GDK_LIBS@ GDK_PIXBUF_CFLAGS = @GDK_PIXBUF_CFLAGS@ GDK_PIXBUF_LIBS = @GDK_PIXBUF_LIBS@ GLIB_CFLAGS = @GLIB_CFLAGS@ GLIB_LIBS = @GLIB_LIBS@ GNOMEUI_DEPRECATION_FLAGS = @GNOMEUI_DEPRECATION_FLAGS@ GNOME_VFS_CFLAGS = @GNOME_VFS_CFLAGS@ GNOME_VFS_DEPRECATED_CFLAGS = @GNOME_VFS_DEPRECATED_CFLAGS@ GNOME_VFS_LIBS = @GNOME_VFS_LIBS@ GOBJECT_CFLAGS = @GOBJECT_CFLAGS@ GOBJECT_LIBS = @GOBJECT_LIBS@ GREP = @GREP@ GTHREAD_CFLAGS = @GTHREAD_CFLAGS@ GTHREAD_LIBS = @GTHREAD_LIBS@ GTK_CFLAGS = @GTK_CFLAGS@ GTK_DEPRECATED_CFLAGS = @GTK_DEPRECATED_CFLAGS@ GTK_LIBS = @GTK_LIBS@ GUILE_CAIRO_CFLAGS = @GUILE_CAIRO_CFLAGS@ GUILE_CAIRO_LIBS = @GUILE_CAIRO_LIBS@ GUILE_CFLAGS = @GUILE_CFLAGS@ GUILE_EFFECTIVE_VERSION = @GUILE_EFFECTIVE_VERSION@ GUILE_GLIB_CFLAGS = @GUILE_GLIB_CFLAGS@ GUILE_GLIB_LIBS = @GUILE_GLIB_LIBS@ GUILE_LIBS = @GUILE_LIBS@ G_WRAP_CFLAGS = @G_WRAP_CFLAGS@ G_WRAP_LIBS = @G_WRAP_LIBS@ G_WRAP_LIB_DIR = @G_WRAP_LIB_DIR@ G_WRAP_MODULE_DIR = @G_WRAP_MODULE_DIR@ INSTALL = @INSTALL@ INSTALL_DATA = @INSTALL_DATA@ INSTALL_PROGRAM = @INSTALL_PROGRAM@ INSTALL_SCRIPT = @INSTALL_SCRIPT@ INSTALL_STRIP_PROGRAM = @INSTALL_STRIP_PROGRAM@ LD = @LD@ LDFLAGS = @LDFLAGS@ LIBGLADE_CFLAGS = @LIBGLADE_CFLAGS@ LIBGLADE_LIBS = @LIBGLADE_LIBS@ LIBGNOMEUI_CFLAGS = @LIBGNOMEUI_CFLAGS@ LIBGNOMEUI_LIBS = @LIBGNOMEUI_LIBS@ LIBGNOME_CFLAGS = @LIBGNOME_CFLAGS@ LIBGNOME_LIBS = @LIBGNOME_LIBS@ LIBOBJS = @LIBOBJS@ LIBS = @LIBS@ LIBTOOL = @LIBTOOL@ LIPO = @LIPO@ LN_S = @LN_S@ LTLIBOBJS = @LTLIBOBJS@ MAKEINFO = @MAKEINFO@ MANIFEST_TOOL = @MANIFEST_TOOL@ MKDIR_P = @MKDIR_P@ NM = @NM@ NMEDIT = @NMEDIT@ OBJDUMP = @OBJDUMP@ OBJEXT = @OBJEXT@ ORBIT_IDL = @ORBIT_IDL@ OTOOL = @OTOOL@ OTOOL64 = @OTOOL64@ PACKAGE = @PACKAGE@ PACKAGE_BUGREPORT = @PACKAGE_BUGREPORT@ PACKAGE_NAME = @PACKAGE_NAME@ PACKAGE_STRING = @PACKAGE_STRING@ PACKAGE_TARNAME = @PACKAGE_TARNAME@ PACKAGE_URL = @PACKAGE_URL@ PACKAGE_VERSION = @PACKAGE_VERSION@ PANGOCAIRO_CFLAGS = @PANGOCAIRO_CFLAGS@ PANGOCAIRO_LIBS = @PANGOCAIRO_LIBS@ PANGO_CFLAGS = @PANGO_CFLAGS@ PANGO_LIBS = @PANGO_LIBS@ PATH_SEPARATOR = @PATH_SEPARATOR@ PKG_CONFIG = @PKG_CONFIG@ PKG_CONFIG_LIBDIR = @PKG_CONFIG_LIBDIR@ PKG_CONFIG_PATH = @PKG_CONFIG_PATH@ RANLIB = @RANLIB@ SED = @SED@ SET_MAKE = @SET_MAKE@ SHELL = @SHELL@ STRIP = @STRIP@ VERSION = @VERSION@ WARN_CFLAGS = @WARN_CFLAGS@ abs_builddir = @abs_builddir@ abs_srcdir = @abs_srcdir@ abs_top_builddir = @abs_top_builddir@ abs_top_srcdir = @abs_top_srcdir@ ac_ct_AR = @ac_ct_AR@ ac_ct_CC = @ac_ct_CC@ ac_ct_DUMPBIN = @ac_ct_DUMPBIN@ am__include = @am__include@ am__leading_dot = @am__leading_dot@ am__quote = @am__quote@ am__tar = @am__tar@ am__untar = @am__untar@ bindir = @bindir@ build = @build@ build_alias = @build_alias@ build_cpu = @build_cpu@ build_os = @build_os@ build_vendor = @build_vendor@ builddir = @builddir@ datadir = @datadir@ datarootdir = @datarootdir@ docdir = @docdir@ dvidir = @dvidir@ exec_prefix = @exec_prefix@ host = @host@ host_alias = @host_alias@ host_cpu = @host_cpu@ host_os = @host_os@ host_vendor = @host_vendor@ htmldir = @htmldir@ includedir = @includedir@ infodir = @infodir@ install_sh = @install_sh@ libdir = @libdir@ libexecdir = @libexecdir@ localedir = @localedir@ localstatedir = @localstatedir@ mandir = @mandir@ mkdir_p = @mkdir_p@ oldincludedir = @oldincludedir@ pdfdir = @pdfdir@ prefix = @prefix@ program_transform_name = @program_transform_name@ psdir = @psdir@ sbindir = @sbindir@ sharedstatedir = @sharedstatedir@ srcdir = @srcdir@ sysconfdir = @sysconfdir@ target_alias = @target_alias@ top_build_prefix = @top_build_prefix@ top_builddir = @top_builddir@ top_srcdir = @top_srcdir@ wrapset_module = (gnome gw $(wrapset_stem)-spec) wrapset_name = gnome-$(wrapset_stem) GTK_DOC_TO_TEXI_STUBS = '((@ (gnome gw support gtk-doc) gtk-doc->texi-stubs) (cdr (program-arguments)))' GTK_DOC_DEFUN_HEURISTICS_METHOD = heuristics GTK_DOC_DEFUN_HEURISTICS_ARGS = (your-module-here) GTK_DOC_DEFUN_GWRAP_METHOD = g-wrap GTK_DOC_DEFUN_GWRAP_ARGS = $(wrapset_module) $(wrapset_name) GTK_DOC_DEFUN_METHOD = $(GTK_DOC_DEFUN_GWRAP_METHOD) GTK_DOC_DEFUN_ARGS = $(GTK_DOC_DEFUN_GWRAP_ARGS) GTK_DOC_TO_TEXI_DEFUNS = "(apply (@ (gnome gw support gtk-doc) gtk-doc->texi-defuns) (cadr (program-arguments)) '$(GTK_DOC_DEFUN_METHOD) '($(GTK_DOC_DEFUN_ARGS)) (cddr (program-arguments)))" GTK_DOC_COVERAGE_MODULES = (gnome gw $(wrapset_stem)) GTK_DOC_COVERAGE_TEXI = $(info_TEXINFOS) GTK_DOC_CHECK_COVERAGE = "((@ (gnome gw support gtk-doc) check-documentation-coverage) '($(GTK_DOC_COVERAGE_MODULES)) \"$(GTK_DOC_COVERAGE_TEXI)\")" GTK_DOC_GENERATE_UNDOCUMENTED = "((@ (gnome gw support gtk-doc) generate-undocumented-texi) '($(GTK_DOC_COVERAGE_MODULES)) \"$(GTK_DOC_COVERAGE_TEXI)\")" GUILE = $(top_builddir)/dev-environ guile # FIXME: cairo? # A hand-culled list of modules that we wrap. docbook_xml = pangocairo.xml docbook_xml_base = ~/src/gnome2/pango/docs/xml/ docbook_xml_files = $(addprefix $(docbook_xml_base),$(docbook_xml)) wrapset_stem = pangocairo EXTRA_DIST = overrides.texi info_TEXINFOS = guile-gnome-pangocairo.texi guile_gnome_pangocairo_TEXINFOS = overview.texi \ $(wildcard section-*.texi) $(wildcard defuns-*.texi) undocumented.texi all: all-am .SUFFIXES: .SUFFIXES: .dvi .html .info .pdf .ps .texi $(srcdir)/Makefile.in: $(srcdir)/Makefile.am $(top_srcdir)/generate-docs.mk $(am__configure_deps) @for dep in $?; do \ case '$(am__configure_deps)' in \ *$$dep*) \ ( cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh ) \ && { if test -f $@; then exit 0; else break; fi; }; \ exit 1;; \ esac; \ done; \ echo ' cd $(top_srcdir) && $(AUTOMAKE) --gnu pango/doc/pangocairo/Makefile'; \ $(am__cd) $(top_srcdir) && \ $(AUTOMAKE) --gnu pango/doc/pangocairo/Makefile .PRECIOUS: Makefile Makefile: $(srcdir)/Makefile.in $(top_builddir)/config.status @case '$?' in \ *config.status*) \ cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh;; \ *) \ echo ' cd $(top_builddir) && $(SHELL) ./config.status $(subdir)/$@ $(am__depfiles_maybe)'; \ cd $(top_builddir) && $(SHELL) ./config.status $(subdir)/$@ $(am__depfiles_maybe);; \ esac; $(top_srcdir)/generate-docs.mk: $(top_builddir)/config.status: $(top_srcdir)/configure $(CONFIG_STATUS_DEPENDENCIES) cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh $(top_srcdir)/configure: $(am__configure_deps) cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh $(ACLOCAL_M4): $(am__aclocal_m4_deps) cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh $(am__aclocal_m4_deps): mostlyclean-libtool: -rm -f *.lo clean-libtool: -rm -rf .libs _libs .texi.info: restore=: && backupdir="$(am__leading_dot)am$$$$" && \ am__cwd=`pwd` && $(am__cd) $(srcdir) && \ rm -rf $$backupdir && mkdir $$backupdir && \ if ($(MAKEINFO) --version) >/dev/null 2>&1; then \ for f in $@ $@-[0-9] $@-[0-9][0-9] $(@:.info=).i[0-9] $(@:.info=).i[0-9][0-9]; do \ if test -f $$f; then mv $$f $$backupdir; restore=mv; else :; fi; \ done; \ else :; fi && \ cd "$$am__cwd"; \ if $(MAKEINFO) $(AM_MAKEINFOFLAGS) $(MAKEINFOFLAGS) -I $(srcdir) \ -o $@ $<; \ then \ rc=0; \ $(am__cd) $(srcdir); \ else \ rc=$$?; \ $(am__cd) $(srcdir) && \ $$restore $$backupdir/* `echo "./$@" | sed 's|[^/]*$$||'`; \ fi; \ rm -rf $$backupdir; exit $$rc .texi.dvi: TEXINPUTS="$(am__TEXINFO_TEX_DIR)$(PATH_SEPARATOR)$$TEXINPUTS" \ MAKEINFO='$(MAKEINFO) $(AM_MAKEINFOFLAGS) $(MAKEINFOFLAGS) -I $(srcdir)' \ $(TEXI2DVI) $< .texi.pdf: TEXINPUTS="$(am__TEXINFO_TEX_DIR)$(PATH_SEPARATOR)$$TEXINPUTS" \ MAKEINFO='$(MAKEINFO) $(AM_MAKEINFOFLAGS) $(MAKEINFOFLAGS) -I $(srcdir)' \ $(TEXI2PDF) $< .texi.html: rm -rf $(@:.html=.htp) if $(MAKEINFOHTML) $(AM_MAKEINFOHTMLFLAGS) $(MAKEINFOFLAGS) -I $(srcdir) \ -o $(@:.html=.htp) $<; \ then \ rm -rf $@; \ if test ! -d $(@:.html=.htp) && test -d $(@:.html=); then \ mv $(@:.html=) $@; else mv $(@:.html=.htp) $@; fi; \ else \ if test ! -d $(@:.html=.htp) && test -d $(@:.html=); then \ rm -rf $(@:.html=); else rm -Rf $(@:.html=.htp) $@; fi; \ exit 1; \ fi $(srcdir)/guile-gnome-pangocairo.info: guile-gnome-pangocairo.texi $(srcdir)/version.texi $(guile_gnome_pangocairo_TEXINFOS) guile-gnome-pangocairo.dvi: guile-gnome-pangocairo.texi $(srcdir)/version.texi $(guile_gnome_pangocairo_TEXINFOS) guile-gnome-pangocairo.pdf: guile-gnome-pangocairo.texi $(srcdir)/version.texi $(guile_gnome_pangocairo_TEXINFOS) guile-gnome-pangocairo.html: guile-gnome-pangocairo.texi $(srcdir)/version.texi $(guile_gnome_pangocairo_TEXINFOS) $(srcdir)/version.texi: $(srcdir)/stamp-vti $(srcdir)/stamp-vti: guile-gnome-pangocairo.texi $(top_srcdir)/configure @(dir=.; test -f ./guile-gnome-pangocairo.texi || dir=$(srcdir); \ set `$(SHELL) $(top_srcdir)/build-aux/mdate-sh $$dir/guile-gnome-pangocairo.texi`; \ echo "@set UPDATED $$1 $$2 $$3"; \ echo "@set UPDATED-MONTH $$2 $$3"; \ echo "@set EDITION $(VERSION)"; \ echo "@set VERSION $(VERSION)") > vti.tmp @cmp -s vti.tmp $(srcdir)/version.texi \ || (echo "Updating $(srcdir)/version.texi"; \ cp vti.tmp $(srcdir)/version.texi) -@rm -f vti.tmp @cp $(srcdir)/version.texi $@ mostlyclean-vti: -rm -f vti.tmp maintainer-clean-vti: -rm -f $(srcdir)/stamp-vti $(srcdir)/version.texi .dvi.ps: TEXINPUTS="$(am__TEXINFO_TEX_DIR)$(PATH_SEPARATOR)$$TEXINPUTS" \ $(DVIPS) -o $@ $< uninstall-dvi-am: @$(NORMAL_UNINSTALL) @list='$(DVIS)'; test -n "$(dvidir)" || list=; \ for p in $$list; do \ $(am__strip_dir) \ echo " rm -f '$(DESTDIR)$(dvidir)/$$f'"; \ rm -f "$(DESTDIR)$(dvidir)/$$f"; \ done uninstall-html-am: @$(NORMAL_UNINSTALL) @list='$(HTMLS)'; test -n "$(htmldir)" || list=; \ for p in $$list; do \ $(am__strip_dir) \ echo " rm -rf '$(DESTDIR)$(htmldir)/$$f'"; \ rm -rf "$(DESTDIR)$(htmldir)/$$f"; \ done uninstall-info-am: @$(PRE_UNINSTALL) @if test -d '$(DESTDIR)$(infodir)' && $(am__can_run_installinfo); then \ list='$(INFO_DEPS)'; \ for file in $$list; do \ relfile=`echo "$$file" | sed 's|^.*/||'`; \ echo " install-info --info-dir='$(DESTDIR)$(infodir)' --remove '$(DESTDIR)$(infodir)/$$relfile'"; \ if install-info --info-dir="$(DESTDIR)$(infodir)" --remove "$(DESTDIR)$(infodir)/$$relfile"; \ then :; else test ! -f "$(DESTDIR)$(infodir)/$$relfile" || exit 1; fi; \ done; \ else :; fi @$(NORMAL_UNINSTALL) @list='$(INFO_DEPS)'; \ for file in $$list; do \ relfile=`echo "$$file" | sed 's|^.*/||'`; \ relfile_i=`echo "$$relfile" | sed 's|\.info$$||;s|$$|.i|'`; \ (if test -d "$(DESTDIR)$(infodir)" && cd "$(DESTDIR)$(infodir)"; then \ echo " cd '$(DESTDIR)$(infodir)' && rm -f $$relfile $$relfile-[0-9] $$relfile-[0-9][0-9] $$relfile_i[0-9] $$relfile_i[0-9][0-9]"; \ rm -f $$relfile $$relfile-[0-9] $$relfile-[0-9][0-9] $$relfile_i[0-9] $$relfile_i[0-9][0-9]; \ else :; fi); \ done uninstall-pdf-am: @$(NORMAL_UNINSTALL) @list='$(PDFS)'; test -n "$(pdfdir)" || list=; \ for p in $$list; do \ $(am__strip_dir) \ echo " rm -f '$(DESTDIR)$(pdfdir)/$$f'"; \ rm -f "$(DESTDIR)$(pdfdir)/$$f"; \ done uninstall-ps-am: @$(NORMAL_UNINSTALL) @list='$(PSS)'; test -n "$(psdir)" || list=; \ for p in $$list; do \ $(am__strip_dir) \ echo " rm -f '$(DESTDIR)$(psdir)/$$f'"; \ rm -f "$(DESTDIR)$(psdir)/$$f"; \ done dist-info: $(INFO_DEPS) @srcdirstrip=`echo "$(srcdir)" | sed 's|.|.|g'`; \ list='$(INFO_DEPS)'; \ for base in $$list; do \ case $$base in \ $(srcdir)/*) base=`echo "$$base" | sed "s|^$$srcdirstrip/||"`;; \ esac; \ if test -f $$base; then d=.; else d=$(srcdir); fi; \ base_i=`echo "$$base" | sed 's|\.info$$||;s|$$|.i|'`; \ for file in $$d/$$base $$d/$$base-[0-9] $$d/$$base-[0-9][0-9] $$d/$$base_i[0-9] $$d/$$base_i[0-9][0-9]; do \ if test -f $$file; then \ relfile=`expr "$$file" : "$$d/\(.*\)"`; \ test -f "$(distdir)/$$relfile" || \ cp -p $$file "$(distdir)/$$relfile"; \ else :; fi; \ done; \ done mostlyclean-aminfo: -rm -rf guile-gnome-pangocairo.aux guile-gnome-pangocairo.cp \ guile-gnome-pangocairo.cps guile-gnome-pangocairo.fn \ guile-gnome-pangocairo.fns guile-gnome-pangocairo.ky \ guile-gnome-pangocairo.kys guile-gnome-pangocairo.log \ guile-gnome-pangocairo.pg guile-gnome-pangocairo.pgs \ guile-gnome-pangocairo.tmp guile-gnome-pangocairo.toc \ guile-gnome-pangocairo.tp guile-gnome-pangocairo.tps \ guile-gnome-pangocairo.vr guile-gnome-pangocairo.vrs clean-aminfo: -test -z "guile-gnome-pangocairo.dvi guile-gnome-pangocairo.pdf \ guile-gnome-pangocairo.ps guile-gnome-pangocairo.html" \ || rm -rf guile-gnome-pangocairo.dvi guile-gnome-pangocairo.pdf \ guile-gnome-pangocairo.ps guile-gnome-pangocairo.html maintainer-clean-aminfo: @list='$(INFO_DEPS)'; for i in $$list; do \ i_i=`echo "$$i" | sed 's|\.info$$||;s|$$|.i|'`; \ echo " rm -f $$i $$i-[0-9] $$i-[0-9][0-9] $$i_i[0-9] $$i_i[0-9][0-9]"; \ rm -f $$i $$i-[0-9] $$i-[0-9][0-9] $$i_i[0-9] $$i_i[0-9][0-9]; \ done tags: TAGS TAGS: ctags: CTAGS CTAGS: distdir: $(DISTFILES) @srcdirstrip=`echo "$(srcdir)" | sed 's/[].[^$$\\*]/\\\\&/g'`; \ topsrcdirstrip=`echo "$(top_srcdir)" | sed 's/[].[^$$\\*]/\\\\&/g'`; \ list='$(DISTFILES)'; \ dist_files=`for file in $$list; do echo $$file; done | \ sed -e "s|^$$srcdirstrip/||;t" \ -e "s|^$$topsrcdirstrip/|$(top_builddir)/|;t"`; \ case $$dist_files in \ */*) $(MKDIR_P) `echo "$$dist_files" | \ sed '/\//!d;s|^|$(distdir)/|;s,/[^/]*$$,,' | \ sort -u` ;; \ esac; \ for file in $$dist_files; do \ if test -f $$file || test -d $$file; then d=.; else d=$(srcdir); fi; \ if test -d $$d/$$file; then \ dir=`echo "/$$file" | sed -e 's,/[^/]*$$,,'`; \ if test -d "$(distdir)/$$file"; then \ find "$(distdir)/$$file" -type d ! -perm -700 -exec chmod u+rwx {} \;; \ fi; \ if test -d $(srcdir)/$$file && test $$d != $(srcdir); then \ cp -fpR $(srcdir)/$$file "$(distdir)$$dir" || exit 1; \ find "$(distdir)/$$file" -type d ! -perm -700 -exec chmod u+rwx {} \;; \ fi; \ cp -fpR $$d/$$file "$(distdir)$$dir" || exit 1; \ else \ test -f "$(distdir)/$$file" \ || cp -p $$d/$$file "$(distdir)/$$file" \ || exit 1; \ fi; \ done $(MAKE) $(AM_MAKEFLAGS) \ top_distdir="$(top_distdir)" distdir="$(distdir)" \ dist-info check-am: all-am check: check-am all-am: Makefile $(INFO_DEPS) installdirs: for dir in "$(DESTDIR)$(infodir)"; do \ test -z "$$dir" || $(MKDIR_P) "$$dir"; \ done install: install-am install-exec: install-exec-am install-data: install-data-am uninstall: uninstall-am install-am: all-am @$(MAKE) $(AM_MAKEFLAGS) install-exec-am install-data-am installcheck: installcheck-am install-strip: if test -z '$(STRIP)'; then \ $(MAKE) $(AM_MAKEFLAGS) INSTALL_PROGRAM="$(INSTALL_STRIP_PROGRAM)" \ install_sh_PROGRAM="$(INSTALL_STRIP_PROGRAM)" INSTALL_STRIP_FLAG=-s \ install; \ else \ $(MAKE) $(AM_MAKEFLAGS) INSTALL_PROGRAM="$(INSTALL_STRIP_PROGRAM)" \ install_sh_PROGRAM="$(INSTALL_STRIP_PROGRAM)" INSTALL_STRIP_FLAG=-s \ "INSTALL_PROGRAM_ENV=STRIPPROG='$(STRIP)'" install; \ fi mostlyclean-generic: clean-generic: distclean-generic: -test -z "$(CONFIG_CLEAN_FILES)" || rm -f $(CONFIG_CLEAN_FILES) -test . = "$(srcdir)" || test -z "$(CONFIG_CLEAN_VPATH_FILES)" || rm -f $(CONFIG_CLEAN_VPATH_FILES) maintainer-clean-generic: @echo "This command is intended for maintainers to use" @echo "it deletes files that may require special tools to rebuild." clean: clean-am clean-am: clean-aminfo clean-generic clean-libtool mostlyclean-am distclean: distclean-am -rm -f Makefile distclean-am: clean-am distclean-generic dvi: dvi-am dvi-am: $(DVIS) html: html-am html-am: $(HTMLS) info: info-am info-am: $(INFO_DEPS) install-data-am: install-info-am install-dvi: install-dvi-am install-dvi-am: $(DVIS) @$(NORMAL_INSTALL) @list='$(DVIS)'; test -n "$(dvidir)" || list=; \ if test -n "$$list"; then \ echo " $(MKDIR_P) '$(DESTDIR)$(dvidir)'"; \ $(MKDIR_P) "$(DESTDIR)$(dvidir)" || exit 1; \ fi; \ for p in $$list; do \ if test -f "$$p"; then d=; else d="$(srcdir)/"; fi; \ echo "$$d$$p"; \ done | $(am__base_list) | \ while read files; do \ echo " $(INSTALL_DATA) $$files '$(DESTDIR)$(dvidir)'"; \ $(INSTALL_DATA) $$files "$(DESTDIR)$(dvidir)" || exit $$?; \ done install-exec-am: install-html: install-html-am install-html-am: $(HTMLS) @$(NORMAL_INSTALL) @list='$(HTMLS)'; list2=; test -n "$(htmldir)" || list=; \ if test -n "$$list"; then \ echo " $(MKDIR_P) '$(DESTDIR)$(htmldir)'"; \ $(MKDIR_P) "$(DESTDIR)$(htmldir)" || exit 1; \ fi; \ for p in $$list; do \ if test -f "$$p" || test -d "$$p"; then d=; else d="$(srcdir)/"; fi; \ $(am__strip_dir) \ d2=$$d$$p; \ if test -d "$$d2"; then \ echo " $(MKDIR_P) '$(DESTDIR)$(htmldir)/$$f'"; \ $(MKDIR_P) "$(DESTDIR)$(htmldir)/$$f" || exit 1; \ echo " $(INSTALL_DATA) '$$d2'/* '$(DESTDIR)$(htmldir)/$$f'"; \ $(INSTALL_DATA) "$$d2"/* "$(DESTDIR)$(htmldir)/$$f" || exit $$?; \ else \ list2="$$list2 $$d2"; \ fi; \ done; \ test -z "$$list2" || { echo "$$list2" | $(am__base_list) | \ while read files; do \ echo " $(INSTALL_DATA) $$files '$(DESTDIR)$(htmldir)'"; \ $(INSTALL_DATA) $$files "$(DESTDIR)$(htmldir)" || exit $$?; \ done; } install-info: install-info-am install-info-am: $(INFO_DEPS) @$(NORMAL_INSTALL) @srcdirstrip=`echo "$(srcdir)" | sed 's|.|.|g'`; \ list='$(INFO_DEPS)'; test -n "$(infodir)" || list=; \ if test -n "$$list"; then \ echo " $(MKDIR_P) '$(DESTDIR)$(infodir)'"; \ $(MKDIR_P) "$(DESTDIR)$(infodir)" || exit 1; \ fi; \ for file in $$list; do \ case $$file in \ $(srcdir)/*) file=`echo "$$file" | sed "s|^$$srcdirstrip/||"`;; \ esac; \ if test -f $$file; then d=.; else d=$(srcdir); fi; \ file_i=`echo "$$file" | sed 's|\.info$$||;s|$$|.i|'`; \ for ifile in $$d/$$file $$d/$$file-[0-9] $$d/$$file-[0-9][0-9] \ $$d/$$file_i[0-9] $$d/$$file_i[0-9][0-9] ; do \ if test -f $$ifile; then \ echo "$$ifile"; \ else : ; fi; \ done; \ done | $(am__base_list) | \ while read files; do \ echo " $(INSTALL_DATA) $$files '$(DESTDIR)$(infodir)'"; \ $(INSTALL_DATA) $$files "$(DESTDIR)$(infodir)" || exit $$?; done @$(POST_INSTALL) @if $(am__can_run_installinfo); then \ list='$(INFO_DEPS)'; test -n "$(infodir)" || list=; \ for file in $$list; do \ relfile=`echo "$$file" | sed 's|^.*/||'`; \ echo " install-info --info-dir='$(DESTDIR)$(infodir)' '$(DESTDIR)$(infodir)/$$relfile'";\ install-info --info-dir="$(DESTDIR)$(infodir)" "$(DESTDIR)$(infodir)/$$relfile" || :;\ done; \ else : ; fi install-man: install-pdf: install-pdf-am install-pdf-am: $(PDFS) @$(NORMAL_INSTALL) @list='$(PDFS)'; test -n "$(pdfdir)" || list=; \ if test -n "$$list"; then \ echo " $(MKDIR_P) '$(DESTDIR)$(pdfdir)'"; \ $(MKDIR_P) "$(DESTDIR)$(pdfdir)" || exit 1; \ fi; \ for p in $$list; do \ if test -f "$$p"; then d=; else d="$(srcdir)/"; fi; \ echo "$$d$$p"; \ done | $(am__base_list) | \ while read files; do \ echo " $(INSTALL_DATA) $$files '$(DESTDIR)$(pdfdir)'"; \ $(INSTALL_DATA) $$files "$(DESTDIR)$(pdfdir)" || exit $$?; done install-ps: install-ps-am install-ps-am: $(PSS) @$(NORMAL_INSTALL) @list='$(PSS)'; test -n "$(psdir)" || list=; \ if test -n "$$list"; then \ echo " $(MKDIR_P) '$(DESTDIR)$(psdir)'"; \ $(MKDIR_P) "$(DESTDIR)$(psdir)" || exit 1; \ fi; \ for p in $$list; do \ if test -f "$$p"; then d=; else d="$(srcdir)/"; fi; \ echo "$$d$$p"; \ done | $(am__base_list) | \ while read files; do \ echo " $(INSTALL_DATA) $$files '$(DESTDIR)$(psdir)'"; \ $(INSTALL_DATA) $$files "$(DESTDIR)$(psdir)" || exit $$?; done installcheck-am: maintainer-clean: maintainer-clean-am -rm -f Makefile maintainer-clean-am: distclean-am maintainer-clean-aminfo \ maintainer-clean-generic maintainer-clean-vti mostlyclean: mostlyclean-am mostlyclean-am: mostlyclean-aminfo mostlyclean-generic \ mostlyclean-libtool mostlyclean-vti pdf: pdf-am pdf-am: $(PDFS) ps: ps-am ps-am: $(PSS) uninstall-am: uninstall-dvi-am uninstall-html-am uninstall-info-am \ uninstall-pdf-am uninstall-ps-am .MAKE: install-am install-strip .PHONY: all all-am check check-am clean clean-aminfo clean-generic \ clean-libtool dist-info distclean distclean-generic \ distclean-libtool distdir dvi dvi-am html html-am info info-am \ install install-am install-data install-data-am install-dvi \ install-dvi-am install-exec install-exec-am install-html \ install-html-am install-info install-info-am install-man \ install-pdf install-pdf-am install-ps install-ps-am \ install-strip installcheck installcheck-am installdirs \ maintainer-clean maintainer-clean-aminfo \ maintainer-clean-generic maintainer-clean-vti mostlyclean \ mostlyclean-aminfo mostlyclean-generic mostlyclean-libtool \ mostlyclean-vti pdf pdf-am ps ps-am uninstall uninstall-am \ uninstall-dvi-am uninstall-html-am uninstall-info-am \ uninstall-pdf-am uninstall-ps-am generate-stubs: $(GUILE) $(GUILE_FLAGS) -c $(GTK_DOC_TO_TEXI_STUBS) $(docbook_xml_files) generate-defuns: $(GUILE) $(GUILE_FLAGS) -c $(GTK_DOC_TO_TEXI_DEFUNS) ./overrides.texi $(docbook_xml_files) check-coverage: $(GUILE) $(GUILE_FLAGS) -c $(GTK_DOC_CHECK_COVERAGE) generate-undocumented: rm -f undocumented.texi; touch undocumented.texi $(GUILE) $(GUILE_FLAGS) -c $(GTK_DOC_GENERATE_UNDOCUMENTED) # Tell versions [3.59,3.63) of GNU make to not export all variables. # Otherwise a system limit (for SysV at least) may be exceeded. .NOEXPORT: guile-gnome-platform-2.16.2/pango/doc/pangocairo/stamp-vti0000644000175000017500000000014611752511104024024 0ustar00wingowingo00000000000000@set UPDATED 9 December 2011 @set UPDATED-MONTH December 2011 @set EDITION 2.16.2 @set VERSION 2.16.2 guile-gnome-platform-2.16.2/pango/doc/pangocairo/overview.texi0000644000175000017500000000040111670374303024717 0ustar00wingowingo00000000000000@node Overview @chapter Overview @code{(gnome pangocairo)} wraps the Cairo integration layer of the Pango text rendering library for guile. It is a part of Guile-GNOME. See the documentation for @code{(gnome gobject)} for more information on Guile-GNOME. guile-gnome-platform-2.16.2/pango/doc/pangocairo/guile-gnome-pangocairo.info0000644000175000017500000004276711752516272027414 0ustar00wingowingo00000000000000This is guile-gnome-pangocairo.info, produced by makeinfo version 4.13 from guile-gnome-pangocairo.texi. This manual is for `(gnome pangocairo)' (version 2.16.2, updated 9 December 2011) Copyright 2001-2007 Owen Taylor, Behdad Esfahbod, many others Permission is granted to copy, distribute and/or modify this document under the terms of the GNU General Public License, Version 2 or any later version published by the Free Software Foundation. INFO-DIR-SECTION The Algorithmic Language Scheme START-INFO-DIR-ENTRY * Guile-PangoCairo: (guile-gnome-pangocairo.info). Pango+Cairo. END-INFO-DIR-ENTRY  File: guile-gnome-pangocairo.info, Node: Top, Next: Overview, Up: (dir) Guile-PangoCairo **************** This manual is for `(gnome pangocairo)' (version 2.16.2, updated 9 December 2011) Copyright 2001-2007 Owen Taylor, Behdad Esfahbod, many others Permission is granted to copy, distribute and/or modify this document under the terms of the GNU General Public License, Version 2 or any later version published by the Free Software Foundation. * Menu: * Overview:: About the binding. * Cairo Rendering:: Rendering with the Cairo backend * Undocumented:: Undocumented functions. * Type Index:: * Function Index::  File: guile-gnome-pangocairo.info, Node: Overview, Next: Cairo Rendering, Prev: Top, Up: Top 1 Overview ********** `(gnome pangocairo)' wraps the Cairo integration layer of the Pango text rendering library for guile. It is a part of Guile-GNOME. See the documentation for `(gnome gobject)' for more information on Guile-GNOME.  File: guile-gnome-pangocairo.info, Node: Cairo Rendering, Next: Undocumented, Prev: Overview, Up: Top 2 Cairo Rendering ***************** Rendering with the Cairo backend 2.1 Overview ============ The Cairo library (http://cairographics.org) is a vector graphics library with a powerful rendering model. It has such features as anti-aliased primitives, alpha-compositing, and gradients. Multiple backends for Cairo are available, to allow rendering to images, to PDF files, and to the screen on X and on other windowing systems. The functions in this section allow using Pango to render to Cairo surfaces. Using Pango with Cairo is straightforward. A `' created with `pango-cairo-font-map-create-context' can be used on any Cairo context (cairo_t), but needs to be updated to match the current transformation matrix and target surface of the Cairo context using `pango-cairo-update-context'. The convenience functions `pango-cairo-create-layout' and `pango-cairo-update-layout' handle the common case where the program doesn't need to manipulate the properties of the `'. When you get the metrics of a layout or of a piece of a layout using functions such as `pango-layout-get-extents', the reported metrics are in user-space coordinates. If a piece of text is 10 units long, and you call cairo_scale (cr, 2.0), it still is more-or-less 10 units long. However, the results will be affected by hinting (that is, the process of adjusting the text to look good on the pixel grid), so you shouldn't assume they are completely independent of the current transformation matrix. Note that the basic metrics functions in Pango report results in integer Pango units. To get to the floating point units used in Cairo divide by `PANGO_SCALE'. #include #include static void draw_text (cairo_t *cr) { #define RADIUS 150 #define N_WORDS 10 #define FONT "Sans Bold 27" PangoLayout *layout; PangoFontDescription *desc; int i; /* Center coordinates on the middle of the region we are drawing */ cairo_translate (cr, RADIUS, RADIUS); /* Create a PangoLayout, set the font and text */ layout = pango_cairo_create_layout (cr); pango_layout_set_text (layout, "Text", -1); desc = pango_font_description_from_string (FONT); pango_layout_set_font_description (layout, desc); pango_font_description_free (desc); /* Draw the layout N_WORDS times in a circle */ for (i = 0; i < N_WORDS; i++) { int width, height; double angle = (360. * i) / N_WORDS; double red; cairo_save (cr); /* Gradient from red at angle == 60 to blue at angle == 240 */ red = (1 + cos ((angle - 60) * G_PI / 180.)) / 2; cairo_set_source_rgb (cr, red, 0, 1.0 - red); cairo_rotate (cr, angle * G_PI / 180.); /* Inform Pango to re-layout the text with the new transformation */ pango_cairo_update_layout (cr, layout); pango_layout_get_size (layout, &width, &height); cairo_move_to (cr, - ((double)width / PANGO_SCALE) / 2, - RADIUS); pango_cairo_show_layout (cr, layout); cairo_restore (cr); } /* free the layout object */ g_object_unref (layout); } int main (int argc, char **argv) { cairo_t *cr; char *filename; cairo_status_t status; cairo_surface_t *surface; if (argc != 2) { g_printerr ("Usage: cairosimple OUTPUT_FILENAME\n"); return 1; } filename = argv[1]; surface = cairo_image_surface_create (CAIRO_FORMAT_ARGB32, 2 * RADIUS, 2 * RADIUS); cr = cairo_create (surface); cairo_set_source_rgb (cr, 1.0, 1.0, 1.0); cairo_paint (cr); draw_text (cr); cairo_destroy (cr); status = cairo_surface_write_to_png (surface, filename); cairo_surface_destroy (surface); if (status != CAIRO_STATUS_SUCCESS) { g_printerr ("Could not save png to '%s'\n", filename); return 1; } return 0; } 2.2 Usage ========= -- Class: Derives from `'. This class defines no direct slots. -- Function: pango-cairo-font-map-new => (ret `') Creates a new `' object; a fontmap is used to cache information about available fonts, and holds certain global parameters such as the resolution. In most cases, you can use `pango-cairo-font-map-get-default' instead. Note that the type of the returned object will depend on the particular font backend Cairo was compiled to use; You generally should only use the `' and `' interfaces on the returned object. RET the newly allocated `', which should be freed with `g-object-unref'. Since 1.10 -- Function: pango-cairo-font-map-get-default => (ret `') Gets a default font map to use with Cairo. RET the default Cairo fontmap for `'. This object is owned by Pango and must not be freed. Since 1.10 -- Function: pango-cairo-font-map-set-resolution (self `') (dpi `double') -- Method: set-resolution Sets the resolution for the fontmap. This is a scale factor between points specified in a `' and Cairo units. The default value is 96, meaning that a 10 point font will be 13 units high. (10 * 96. / 72. = 13.3). FONTMAP a `' DPI the resolution in "dots per inch". (Physical inches aren't actually involved; the terminology is conventional.) Since 1.10 -- Function: pango-cairo-font-map-get-resolution (self `') => (ret `double') -- Method: get-resolution Gets the resolution for the fontmap. See `pango-cairo-font-map-set-resolution' FONTMAP a `' RET the resolution in "dots per inch" Since 1.10 -- Function: pango-cairo-font-map-create-context (self `') => (ret `') -- Method: create-context Create a `' for the given fontmap. FONTMAP a `' RET the newly created context; free with `g-object-unref'. Since 1.10 -- Function: pango-cairo-context-set-resolution (context `') (dpi `double') Sets the resolution for the context. This is a scale factor between points specified in a `' and Cairo units. The default value is 96, meaning that a 10 point font will be 13 units high. (10 * 96. / 72. = 13.3). CONTEXT a `', from `pango-cairo-font-map-create-context' DPI the resolution in "dots per inch". (Physical inches aren't actually involved; the terminology is conventional.) A 0 or negative value means to use the resolution from the font map. Since 1.10 -- Function: pango-cairo-context-get-resolution (context `') => (ret `double') Gets the resolution for the context. See `pango-cairo-context-set-resolution' CONTEXT a `', from `pango-cairo-font-map-create-context' RET the resolution in "dots per inch". A negative value will be returned if no resolution has previously been set. Since 1.10 -- Function: pango-cairo-update-context (cr `cairo-t') (context `') Updates a `' previously created for use with Cairo to match the current transformation and target surface of a Cairo context. If any layouts have been created for the context, it's necessary to call `pango-layout-context-changed' on those layouts. CR a Cairo context CONTEXT a `', from `pango-cairo-font-map-create-context' Since 1.10 -- Function: pango-cairo-create-layout (cr `cairo-t') => (ret `') Creates a layout object set up to match the current transformation and target surface of the Cairo context. This layout can then be used for text measurement with functions like `pango-layout-get-size' or drawing with functions like `pango-cairo-show-layout'. If you change the transformation or target surface for CR, you need to call `pango-cairo-update-layout' This function is the most convenient way to use Cairo with Pango, however it is slightly inefficient since it creates a separate `' object for each layout. This might matter in an application that was laying out large amounts of text. CR a Cairo context RET the newly created `'. Free with `g-object-unref'. Since 1.10 -- Function: pango-cairo-update-layout (cr `cairo-t') (layout `') Updates the private `' of a `' created with `pango-cairo-create-layout' to match the current transformation and target surface of a Cairo context. CR a Cairo context LAYOUT a `', from `pango-cairo-create-layout' Since 1.10 -- Function: pango-cairo-show-glyph-string (cr `cairo-t') (font `') (glyphs `') Draws the glyphs in GLYPHS in the specified cairo context. The origin of the glyphs (the left edge of the baseline) will be drawn at the current point of the cairo context. CR a Cairo context FONT a `' GLYPHS a `' Since 1.10 -- Function: pango-cairo-show-layout-line (cr `cairo-t') (line `') Draws a `' in the specified cairo context. The origin of the glyphs (the left edge of the line) will be drawn at the current point of the cairo context. CR a Cairo context LINE a `' Since 1.10 -- Function: pango-cairo-show-layout (cr `cairo-t') (layout `') Draws a `' in the specified cairo context. The top-left corner of the `' will be drawn at the current point of the cairo context. CR a Cairo context LAYOUT a Pango layout Since 1.10 -- Function: pango-cairo-show-error-underline (cr `cairo-t') (x `double') (y `double') (width `double') (height `double') Draw a squiggly line in the specified cairo context that approximately covers the given rectangle in the style of an underline used to indicate a spelling error. (The width of the underline is rounded to an integer number of up/down segments and the resulting rectangle is centered in the original rectangle) CR a Cairo context X The X coordinate of one corner of the rectangle Y The Y coordinate of one corner of the rectangle WIDTH Non-negative width of the rectangle HEIGHT Non-negative height of the rectangle Since 1.14 -- Function: pango-cairo-glyph-string-path (cr `cairo-t') (font `') (glyphs `') Adds the glyphs in GLYPHS to the current path in the specified cairo context. The origin of the glyphs (the left edge of the baseline) will be at the current point of the cairo context. CR a Cairo context FONT a `' GLYPHS a `' Since 1.10 -- Function: pango-cairo-layout-line-path (cr `cairo-t') (line `') Adds the text in `' to the current path in the specified cairo context. The origin of the glyphs (the left edge of the line) will be at the current point of the cairo context. CR a Cairo context LINE a `' Since 1.10 -- Function: pango-cairo-layout-path (cr `cairo-t') (layout `') Adds the text in a `' to the current path in the specified cairo context. The top-left corner of the `' will be at the current point of the cairo context. CR a Cairo context LAYOUT a Pango layout Since 1.10 -- Function: pango-cairo-error-underline-path (cr `cairo-t') (x `double') (y `double') (width `double') (height `double') Add a squiggly line to the current path in the specified cairo context that approximately covers the given rectangle in the style of an underline used to indicate a spelling error. (The width of the underline is rounded to an integer number of up/down segments and the resulting rectangle is centered in the original rectangle) CR a Cairo context X The X coordinate of one corner of the rectangle Y The Y coordinate of one corner of the rectangle WIDTH Non-negative width of the rectangle HEIGHT Non-negative height of the rectangle Since 1.14  File: guile-gnome-pangocairo.info, Node: Undocumented, Next: Type Index, Prev: Cairo Rendering, Up: Top 3 Undocumented ************** The following symbols, if any, have not been properly documented. 3.1 (gnome gw pangocairo) ========================= -- Function: pango-cairo-context-get-font-options -- Function: pango-cairo-context-set-font-options  File: guile-gnome-pangocairo.info, Node: Type Index, Next: Function Index, Prev: Undocumented, Up: Top Type Index ********** [index] * Menu: * : Cairo Rendering. (line 135)  File: guile-gnome-pangocairo.info, Node: Function Index, Prev: Type Index, Up: Top Function Index ************** [index] * Menu: * create-context: Cairo Rendering. (line 209) * get-resolution: Cairo Rendering. (line 193) * pango-cairo-context-get-font-options: Undocumented. (line 12) * pango-cairo-context-get-resolution: Cairo Rendering. (line 243) * pango-cairo-context-set-font-options: Undocumented. (line 14) * pango-cairo-context-set-resolution: Cairo Rendering. (line 223) * pango-cairo-create-layout: Cairo Rendering. (line 278) * pango-cairo-error-underline-path: Cairo Rendering. (line 448) * pango-cairo-font-map-create-context: Cairo Rendering. (line 208) * pango-cairo-font-map-get-default: Cairo Rendering. (line 161) * pango-cairo-font-map-get-resolution: Cairo Rendering. (line 192) * pango-cairo-font-map-new: Cairo Rendering. (line 141) * pango-cairo-font-map-set-resolution: Cairo Rendering. (line 173) * pango-cairo-glyph-string-path: Cairo Rendering. (line 397) * pango-cairo-layout-line-path: Cairo Rendering. (line 416) * pango-cairo-layout-path: Cairo Rendering. (line 432) * pango-cairo-show-error-underline: Cairo Rendering. (line 370) * pango-cairo-show-glyph-string: Cairo Rendering. (line 319) * pango-cairo-show-layout: Cairo Rendering. (line 354) * pango-cairo-show-layout-line: Cairo Rendering. (line 338) * pango-cairo-update-context: Cairo Rendering. (line 260) * pango-cairo-update-layout: Cairo Rendering. (line 303) * set-resolution: Cairo Rendering. (line 174)  Tag Table: Node: Top626 Node: Overview1317 Node: Cairo Rendering1657 Node: Undocumented15330 Node: Type Index15696 Node: Function Index15924  End Tag Table guile-gnome-platform-2.16.2/pango/doc/pangocairo/defuns-pangocairo.xml.texi0000644000175000017500000002313011670374303027260 0ustar00wingowingo00000000000000 @c %start of fragment @deftp Class Derives from @code{}. This class defines no direct slots. @end deftp @deffn Function pango-cairo-font-map-new @result{}@tie{} (ret@tie{}@code{}) Creates a new @code{} object; a fontmap is used to cache information about available fonts, and holds certain global parameters such as the resolution. In most cases, you can use @code{pango-cairo-font-map-get-default} instead. Note that the type of the returned object will depend on the particular font backend Cairo was compiled to use; You generally should only use the @code{} and @code{} interfaces on the returned object. @table @var @item ret the newly allocated @code{}, which should be freed with @code{g-object-unref}. @end table Since 1.10 @end deffn @deffn Function pango-cairo-font-map-get-default @result{}@tie{} (ret@tie{}@code{}) Gets a default font map to use with Cairo. @table @var @item ret the default Cairo fontmap for @code{}. This object is owned by Pango and must not be freed. @end table Since 1.10 @end deffn @deffn Function pango-cairo-font-map-set-resolution (self@tie{}@code{}) (dpi@tie{}@code{double}) @deffnx Method set-resolution Sets the resolution for the fontmap. This is a scale factor between points specified in a @code{} and Cairo units. The default value is 96, meaning that a 10 point font will be 13 units high. (10 * 96. / 72. = 13.3). @table @var @item fontmap a @code{} @item dpi the resolution in "dots per inch". (Physical inches aren't actually involved; the terminology is conventional.) @end table Since 1.10 @end deffn @deffn Function pango-cairo-font-map-get-resolution (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{double}) @deffnx Method get-resolution Gets the resolution for the fontmap. See @code{pango-cairo-font-map-set-resolution} @table @var @item fontmap a @code{} @item ret the resolution in "dots per inch" @end table Since 1.10 @end deffn @deffn Function pango-cairo-font-map-create-context (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{}) @deffnx Method create-context Create a @code{} for the given fontmap. @table @var @item fontmap a @code{} @item ret the newly created context; free with @code{g-object-unref}. @end table Since 1.10 @end deffn @deffn Function pango-cairo-context-set-resolution (context@tie{}@code{}) (dpi@tie{}@code{double}) Sets the resolution for the context. This is a scale factor between points specified in a @code{} and Cairo units. The default value is 96, meaning that a 10 point font will be 13 units high. (10 * 96. / 72. = 13.3). @table @var @item context a @code{}, from @code{pango-cairo-font-map-create-context} @item dpi the resolution in "dots per inch". (Physical inches aren't actually involved; the terminology is conventional.) A 0 or negative value means to use the resolution from the font map. @end table Since 1.10 @end deffn @deffn Function pango-cairo-context-get-resolution (context@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{double}) Gets the resolution for the context. See @code{pango-cairo-context-set-resolution} @table @var @item context a @code{}, from @code{pango-cairo-font-map-create-context} @item ret the resolution in "dots per inch". A negative value will be returned if no resolution has previously been set. @end table Since 1.10 @end deffn @deffn Function pango-cairo-update-context (cr@tie{}@code{cairo-t}) (context@tie{}@code{}) Updates a @code{} previously created for use with Cairo to match the current transformation and target surface of a Cairo context. If any layouts have been created for the context, it's necessary to call @code{pango-layout-context-changed} on those layouts. @table @var @item cr a Cairo context @item context a @code{}, from @code{pango-cairo-font-map-create-context} @end table Since 1.10 @end deffn @deffn Function pango-cairo-create-layout (cr@tie{}@code{cairo-t}) @result{}@tie{} (ret@tie{}@code{}) Creates a layout object set up to match the current transformation and target surface of the Cairo context. This layout can then be used for text measurement with functions like @code{pango-layout-get-size} or drawing with functions like @code{pango-cairo-show-layout}. If you change the transformation or target surface for @var{cr}, you need to call @code{pango-cairo-update-layout} This function is the most convenient way to use Cairo with Pango, however it is slightly inefficient since it creates a separate @code{} object for each layout. This might matter in an application that was laying out large amounts of text. @table @var @item cr a Cairo context @item ret the newly created @code{}. Free with @code{g-object-unref}. @end table Since 1.10 @end deffn @deffn Function pango-cairo-update-layout (cr@tie{}@code{cairo-t}) (layout@tie{}@code{}) Updates the private @code{} of a @code{} created with @code{pango-cairo-create-layout} to match the current transformation and target surface of a Cairo context. @table @var @item cr a Cairo context @item layout a @code{}, from @code{pango-cairo-create-layout} @end table Since 1.10 @end deffn @deffn Function pango-cairo-show-glyph-string (cr@tie{}@code{cairo-t}) (font@tie{}@code{}) (glyphs@tie{}@code{}) Draws the glyphs in @var{glyphs} in the specified cairo context. The origin of the glyphs (the left edge of the baseline) will be drawn at the current point of the cairo context. @table @var @item cr a Cairo context @item font a @code{} @item glyphs a @code{} @end table Since 1.10 @end deffn @deffn Function pango-cairo-show-layout-line (cr@tie{}@code{cairo-t}) (line@tie{}@code{}) Draws a @code{} in the specified cairo context. The origin of the glyphs (the left edge of the line) will be drawn at the current point of the cairo context. @table @var @item cr a Cairo context @item line a @code{} @end table Since 1.10 @end deffn @deffn Function pango-cairo-show-layout (cr@tie{}@code{cairo-t}) (layout@tie{}@code{}) Draws a @code{} in the specified cairo context. The top-left corner of the @code{} will be drawn at the current point of the cairo context. @table @var @item cr a Cairo context @item layout a Pango layout @end table Since 1.10 @end deffn @deffn Function pango-cairo-show-error-underline (cr@tie{}@code{cairo-t}) (x@tie{}@code{double}) (y@tie{}@code{double}) (width@tie{}@code{double}) (height@tie{}@code{double}) Draw a squiggly line in the specified cairo context that approximately covers the given rectangle in the style of an underline used to indicate a spelling error. (The width of the underline is rounded to an integer number of up/down segments and the resulting rectangle is centered in the original rectangle) @table @var @item cr a Cairo context @item x The X coordinate of one corner of the rectangle @item y The Y coordinate of one corner of the rectangle @item width Non-negative width of the rectangle @item height Non-negative height of the rectangle @end table Since 1.14 @end deffn @deffn Function pango-cairo-glyph-string-path (cr@tie{}@code{cairo-t}) (font@tie{}@code{}) (glyphs@tie{}@code{}) Adds the glyphs in @var{glyphs} to the current path in the specified cairo context. The origin of the glyphs (the left edge of the baseline) will be at the current point of the cairo context. @table @var @item cr a Cairo context @item font a @code{} @item glyphs a @code{} @end table Since 1.10 @end deffn @deffn Function pango-cairo-layout-line-path (cr@tie{}@code{cairo-t}) (line@tie{}@code{}) Adds the text in @code{} to the current path in the specified cairo context. The origin of the glyphs (the left edge of the line) will be at the current point of the cairo context. @table @var @item cr a Cairo context @item line a @code{} @end table Since 1.10 @end deffn @deffn Function pango-cairo-layout-path (cr@tie{}@code{cairo-t}) (layout@tie{}@code{}) Adds the text in a @code{} to the current path in the specified cairo context. The top-left corner of the @code{} will be at the current point of the cairo context. @table @var @item cr a Cairo context @item layout a Pango layout @end table Since 1.10 @end deffn @deffn Function pango-cairo-error-underline-path (cr@tie{}@code{cairo-t}) (x@tie{}@code{double}) (y@tie{}@code{double}) (width@tie{}@code{double}) (height@tie{}@code{double}) Add a squiggly line to the current path in the specified cairo context that approximately covers the given rectangle in the style of an underline used to indicate a spelling error. (The width of the underline is rounded to an integer number of up/down segments and the resulting rectangle is centered in the original rectangle) @table @var @item cr a Cairo context @item x The X coordinate of one corner of the rectangle @item y The Y coordinate of one corner of the rectangle @item width Non-negative width of the rectangle @item height Non-negative height of the rectangle @end table Since 1.14 @end deffn @c %end of fragment guile-gnome-platform-2.16.2/pango/doc/Makefile.am0000644000175000017500000000003111670374303022067 0ustar00wingowingo00000000000000SUBDIRS=pango pangocairo guile-gnome-platform-2.16.2/pango/doc/Makefile.in0000644000175000017500000004525011752511070022107 0ustar00wingowingo00000000000000# Makefile.in generated by automake 1.11.5 from Makefile.am. # @configure_input@ # Copyright (C) 1994, 1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, # 2003, 2004, 2005, 2006, 2007, 2008, 2009, 2010, 2011 Free Software # Foundation, Inc. # This Makefile.in is free software; the Free Software Foundation # gives unlimited permission to copy and/or distribute it, # with or without modifications, as long as this notice is preserved. # This program is distributed in the hope that it will be useful, # but WITHOUT ANY WARRANTY, to the extent permitted by law; without # even the implied warranty of MERCHANTABILITY or FITNESS FOR A # PARTICULAR PURPOSE. @SET_MAKE@ VPATH = @srcdir@ am__make_dryrun = \ { \ am__dry=no; \ case $$MAKEFLAGS in \ *\\[\ \ ]*) \ echo 'am--echo: ; @echo "AM" OK' | $(MAKE) -f - 2>/dev/null \ | grep '^AM OK$$' >/dev/null || am__dry=yes;; \ *) \ for am__flg in $$MAKEFLAGS; do \ case $$am__flg in \ *=*|--*) ;; \ *n*) am__dry=yes; break;; \ esac; \ done;; \ esac; \ test $$am__dry = yes; \ } pkgdatadir = $(datadir)/@PACKAGE@ pkgincludedir = $(includedir)/@PACKAGE@ pkglibdir = $(libdir)/@PACKAGE@ pkglibexecdir = $(libexecdir)/@PACKAGE@ am__cd = CDPATH="$${ZSH_VERSION+.}$(PATH_SEPARATOR)" && cd install_sh_DATA = $(install_sh) -c -m 644 install_sh_PROGRAM = $(install_sh) -c install_sh_SCRIPT = $(install_sh) -c INSTALL_HEADER = $(INSTALL_DATA) transform = $(program_transform_name) NORMAL_INSTALL = : PRE_INSTALL = : POST_INSTALL = : NORMAL_UNINSTALL = : PRE_UNINSTALL = : POST_UNINSTALL = : build_triplet = @build@ host_triplet = @host@ subdir = pango/doc DIST_COMMON = $(srcdir)/Makefile.am $(srcdir)/Makefile.in ACLOCAL_M4 = $(top_srcdir)/aclocal.m4 am__aclocal_m4_deps = $(top_srcdir)/configure.ac am__configure_deps = $(am__aclocal_m4_deps) $(CONFIGURE_DEPENDENCIES) \ $(ACLOCAL_M4) mkinstalldirs = $(install_sh) -d CONFIG_HEADER = $(top_builddir)/config.h CONFIG_CLEAN_FILES = CONFIG_CLEAN_VPATH_FILES = SOURCES = DIST_SOURCES = RECURSIVE_TARGETS = all-recursive check-recursive dvi-recursive \ html-recursive info-recursive install-data-recursive \ install-dvi-recursive install-exec-recursive \ install-html-recursive install-info-recursive \ install-pdf-recursive install-ps-recursive install-recursive \ installcheck-recursive installdirs-recursive pdf-recursive \ ps-recursive uninstall-recursive am__can_run_installinfo = \ case $$AM_UPDATE_INFO_DIR in \ n|no|NO) false;; \ *) (install-info --version) >/dev/null 2>&1;; \ esac RECURSIVE_CLEAN_TARGETS = mostlyclean-recursive clean-recursive \ distclean-recursive maintainer-clean-recursive AM_RECURSIVE_TARGETS = $(RECURSIVE_TARGETS:-recursive=) \ $(RECURSIVE_CLEAN_TARGETS:-recursive=) tags TAGS ctags CTAGS \ distdir ETAGS = etags CTAGS = ctags DIST_SUBDIRS = $(SUBDIRS) DISTFILES = $(DIST_COMMON) $(DIST_SOURCES) $(TEXINFOS) $(EXTRA_DIST) am__relativize = \ dir0=`pwd`; \ sed_first='s,^\([^/]*\)/.*$$,\1,'; \ sed_rest='s,^[^/]*/*,,'; \ sed_last='s,^.*/\([^/]*\)$$,\1,'; \ sed_butlast='s,/*[^/]*$$,,'; \ while test -n "$$dir1"; do \ first=`echo "$$dir1" | sed -e "$$sed_first"`; \ if test "$$first" != "."; then \ if test "$$first" = ".."; then \ dir2=`echo "$$dir0" | sed -e "$$sed_last"`/"$$dir2"; \ dir0=`echo "$$dir0" | sed -e "$$sed_butlast"`; \ else \ first2=`echo "$$dir2" | sed -e "$$sed_first"`; \ if test "$$first2" = "$$first"; then \ dir2=`echo "$$dir2" | sed -e "$$sed_rest"`; \ else \ dir2="../$$dir2"; \ fi; \ dir0="$$dir0"/"$$first"; \ fi; \ fi; \ dir1=`echo "$$dir1" | sed -e "$$sed_rest"`; \ done; \ reldir="$$dir2" ACLOCAL = @ACLOCAL@ AG_PKG_CONFIG_PATH = @AG_PKG_CONFIG_PATH@ AMTAR = @AMTAR@ API_VERSION = @API_VERSION@ AR = @AR@ ATK_CFLAGS = @ATK_CFLAGS@ ATK_LIBS = @ATK_LIBS@ AUTOCONF = @AUTOCONF@ AUTOHEADER = @AUTOHEADER@ AUTOMAKE = @AUTOMAKE@ AWK = @AWK@ BONOBO_IDL_DIR = @BONOBO_IDL_DIR@ CANVAS_CFLAGS = @CANVAS_CFLAGS@ CANVAS_LIBS = @CANVAS_LIBS@ CC = @CC@ CCDEPMODE = @CCDEPMODE@ CFLAGS = @CFLAGS@ CORBA_CFLAGS = @CORBA_CFLAGS@ CORBA_LIBS = @CORBA_LIBS@ CPP = @CPP@ CPPFLAGS = @CPPFLAGS@ CYGPATH_W = @CYGPATH_W@ DEFS = @DEFS@ DEPDIR = @DEPDIR@ DLLTOOL = @DLLTOOL@ DSYMUTIL = @DSYMUTIL@ DUMPBIN = @DUMPBIN@ ECHO_C = @ECHO_C@ ECHO_N = @ECHO_N@ ECHO_T = @ECHO_T@ EGREP = @EGREP@ EXEEXT = @EXEEXT@ FGREP = @FGREP@ GCONF_CFLAGS = @GCONF_CFLAGS@ GCONF_LIBS = @GCONF_LIBS@ GDK_CFLAGS = @GDK_CFLAGS@ GDK_LIBS = @GDK_LIBS@ GDK_PIXBUF_CFLAGS = @GDK_PIXBUF_CFLAGS@ GDK_PIXBUF_LIBS = @GDK_PIXBUF_LIBS@ GLIB_CFLAGS = @GLIB_CFLAGS@ GLIB_LIBS = @GLIB_LIBS@ GNOMEUI_DEPRECATION_FLAGS = @GNOMEUI_DEPRECATION_FLAGS@ GNOME_VFS_CFLAGS = @GNOME_VFS_CFLAGS@ GNOME_VFS_DEPRECATED_CFLAGS = @GNOME_VFS_DEPRECATED_CFLAGS@ GNOME_VFS_LIBS = @GNOME_VFS_LIBS@ GOBJECT_CFLAGS = @GOBJECT_CFLAGS@ GOBJECT_LIBS = @GOBJECT_LIBS@ GREP = @GREP@ GTHREAD_CFLAGS = @GTHREAD_CFLAGS@ GTHREAD_LIBS = @GTHREAD_LIBS@ GTK_CFLAGS = @GTK_CFLAGS@ GTK_DEPRECATED_CFLAGS = @GTK_DEPRECATED_CFLAGS@ GTK_LIBS = @GTK_LIBS@ GUILE_CAIRO_CFLAGS = @GUILE_CAIRO_CFLAGS@ GUILE_CAIRO_LIBS = @GUILE_CAIRO_LIBS@ GUILE_CFLAGS = @GUILE_CFLAGS@ GUILE_EFFECTIVE_VERSION = @GUILE_EFFECTIVE_VERSION@ GUILE_GLIB_CFLAGS = @GUILE_GLIB_CFLAGS@ GUILE_GLIB_LIBS = @GUILE_GLIB_LIBS@ GUILE_LIBS = @GUILE_LIBS@ G_WRAP_CFLAGS = @G_WRAP_CFLAGS@ G_WRAP_LIBS = @G_WRAP_LIBS@ G_WRAP_LIB_DIR = @G_WRAP_LIB_DIR@ G_WRAP_MODULE_DIR = @G_WRAP_MODULE_DIR@ INSTALL = @INSTALL@ INSTALL_DATA = @INSTALL_DATA@ INSTALL_PROGRAM = @INSTALL_PROGRAM@ INSTALL_SCRIPT = @INSTALL_SCRIPT@ INSTALL_STRIP_PROGRAM = @INSTALL_STRIP_PROGRAM@ LD = @LD@ LDFLAGS = @LDFLAGS@ LIBGLADE_CFLAGS = @LIBGLADE_CFLAGS@ LIBGLADE_LIBS = @LIBGLADE_LIBS@ LIBGNOMEUI_CFLAGS = @LIBGNOMEUI_CFLAGS@ LIBGNOMEUI_LIBS = @LIBGNOMEUI_LIBS@ LIBGNOME_CFLAGS = @LIBGNOME_CFLAGS@ LIBGNOME_LIBS = @LIBGNOME_LIBS@ LIBOBJS = @LIBOBJS@ LIBS = @LIBS@ LIBTOOL = @LIBTOOL@ LIPO = @LIPO@ LN_S = @LN_S@ LTLIBOBJS = @LTLIBOBJS@ MAKEINFO = @MAKEINFO@ MANIFEST_TOOL = @MANIFEST_TOOL@ MKDIR_P = @MKDIR_P@ NM = @NM@ NMEDIT = @NMEDIT@ OBJDUMP = @OBJDUMP@ OBJEXT = @OBJEXT@ ORBIT_IDL = @ORBIT_IDL@ OTOOL = @OTOOL@ OTOOL64 = @OTOOL64@ PACKAGE = @PACKAGE@ PACKAGE_BUGREPORT = @PACKAGE_BUGREPORT@ PACKAGE_NAME = @PACKAGE_NAME@ PACKAGE_STRING = @PACKAGE_STRING@ PACKAGE_TARNAME = @PACKAGE_TARNAME@ PACKAGE_URL = @PACKAGE_URL@ PACKAGE_VERSION = @PACKAGE_VERSION@ PANGOCAIRO_CFLAGS = @PANGOCAIRO_CFLAGS@ PANGOCAIRO_LIBS = @PANGOCAIRO_LIBS@ PANGO_CFLAGS = @PANGO_CFLAGS@ PANGO_LIBS = @PANGO_LIBS@ PATH_SEPARATOR = @PATH_SEPARATOR@ PKG_CONFIG = @PKG_CONFIG@ PKG_CONFIG_LIBDIR = @PKG_CONFIG_LIBDIR@ PKG_CONFIG_PATH = @PKG_CONFIG_PATH@ RANLIB = @RANLIB@ SED = @SED@ SET_MAKE = @SET_MAKE@ SHELL = @SHELL@ STRIP = @STRIP@ VERSION = @VERSION@ WARN_CFLAGS = @WARN_CFLAGS@ abs_builddir = @abs_builddir@ abs_srcdir = @abs_srcdir@ abs_top_builddir = @abs_top_builddir@ abs_top_srcdir = @abs_top_srcdir@ ac_ct_AR = @ac_ct_AR@ ac_ct_CC = @ac_ct_CC@ ac_ct_DUMPBIN = @ac_ct_DUMPBIN@ am__include = @am__include@ am__leading_dot = @am__leading_dot@ am__quote = @am__quote@ am__tar = @am__tar@ am__untar = @am__untar@ bindir = @bindir@ build = @build@ build_alias = @build_alias@ build_cpu = @build_cpu@ build_os = @build_os@ build_vendor = @build_vendor@ builddir = @builddir@ datadir = @datadir@ datarootdir = @datarootdir@ docdir = @docdir@ dvidir = @dvidir@ exec_prefix = @exec_prefix@ host = @host@ host_alias = @host_alias@ host_cpu = @host_cpu@ host_os = @host_os@ host_vendor = @host_vendor@ htmldir = @htmldir@ includedir = @includedir@ infodir = @infodir@ install_sh = @install_sh@ libdir = @libdir@ libexecdir = @libexecdir@ localedir = @localedir@ localstatedir = @localstatedir@ mandir = @mandir@ mkdir_p = @mkdir_p@ oldincludedir = @oldincludedir@ pdfdir = @pdfdir@ prefix = @prefix@ program_transform_name = @program_transform_name@ psdir = @psdir@ sbindir = @sbindir@ sharedstatedir = @sharedstatedir@ srcdir = @srcdir@ sysconfdir = @sysconfdir@ target_alias = @target_alias@ top_build_prefix = @top_build_prefix@ top_builddir = @top_builddir@ top_srcdir = @top_srcdir@ SUBDIRS = pango pangocairo all: all-recursive .SUFFIXES: $(srcdir)/Makefile.in: $(srcdir)/Makefile.am $(am__configure_deps) @for dep in $?; do \ case '$(am__configure_deps)' in \ *$$dep*) \ ( cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh ) \ && { if test -f $@; then exit 0; else break; fi; }; \ exit 1;; \ esac; \ done; \ echo ' cd $(top_srcdir) && $(AUTOMAKE) --gnu pango/doc/Makefile'; \ $(am__cd) $(top_srcdir) && \ $(AUTOMAKE) --gnu pango/doc/Makefile .PRECIOUS: Makefile Makefile: $(srcdir)/Makefile.in $(top_builddir)/config.status @case '$?' in \ *config.status*) \ cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh;; \ *) \ echo ' cd $(top_builddir) && $(SHELL) ./config.status $(subdir)/$@ $(am__depfiles_maybe)'; \ cd $(top_builddir) && $(SHELL) ./config.status $(subdir)/$@ $(am__depfiles_maybe);; \ esac; $(top_builddir)/config.status: $(top_srcdir)/configure $(CONFIG_STATUS_DEPENDENCIES) cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh $(top_srcdir)/configure: $(am__configure_deps) cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh $(ACLOCAL_M4): $(am__aclocal_m4_deps) cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh $(am__aclocal_m4_deps): mostlyclean-libtool: -rm -f *.lo clean-libtool: -rm -rf .libs _libs # This directory's subdirectories are mostly independent; you can cd # into them and run `make' without going through this Makefile. # To change the values of `make' variables: instead of editing Makefiles, # (1) if the variable is set in `config.status', edit `config.status' # (which will cause the Makefiles to be regenerated when you run `make'); # (2) otherwise, pass the desired values on the `make' command line. $(RECURSIVE_TARGETS): @fail= failcom='exit 1'; \ for f in x $$MAKEFLAGS; do \ case $$f in \ *=* | --[!k]*);; \ *k*) failcom='fail=yes';; \ esac; \ done; \ dot_seen=no; \ target=`echo $@ | sed s/-recursive//`; \ list='$(SUBDIRS)'; for subdir in $$list; do \ echo "Making $$target in $$subdir"; \ if test "$$subdir" = "."; then \ dot_seen=yes; \ local_target="$$target-am"; \ else \ local_target="$$target"; \ fi; \ ($(am__cd) $$subdir && $(MAKE) $(AM_MAKEFLAGS) $$local_target) \ || eval $$failcom; \ done; \ if test "$$dot_seen" = "no"; then \ $(MAKE) $(AM_MAKEFLAGS) "$$target-am" || exit 1; \ fi; test -z "$$fail" $(RECURSIVE_CLEAN_TARGETS): @fail= failcom='exit 1'; \ for f in x $$MAKEFLAGS; do \ case $$f in \ *=* | --[!k]*);; \ *k*) failcom='fail=yes';; \ esac; \ done; \ dot_seen=no; \ case "$@" in \ distclean-* | maintainer-clean-*) list='$(DIST_SUBDIRS)' ;; \ *) list='$(SUBDIRS)' ;; \ esac; \ rev=''; for subdir in $$list; do \ if test "$$subdir" = "."; then :; else \ rev="$$subdir $$rev"; \ fi; \ done; \ rev="$$rev ."; \ target=`echo $@ | sed s/-recursive//`; \ for subdir in $$rev; do \ echo "Making $$target in $$subdir"; \ if test "$$subdir" = "."; then \ local_target="$$target-am"; \ else \ local_target="$$target"; \ fi; \ ($(am__cd) $$subdir && $(MAKE) $(AM_MAKEFLAGS) $$local_target) \ || eval $$failcom; \ done && test -z "$$fail" tags-recursive: list='$(SUBDIRS)'; for subdir in $$list; do \ test "$$subdir" = . || ($(am__cd) $$subdir && $(MAKE) $(AM_MAKEFLAGS) tags); \ done ctags-recursive: list='$(SUBDIRS)'; for subdir in $$list; do \ test "$$subdir" = . || ($(am__cd) $$subdir && $(MAKE) $(AM_MAKEFLAGS) ctags); \ done ID: $(HEADERS) $(SOURCES) $(LISP) $(TAGS_FILES) list='$(SOURCES) $(HEADERS) $(LISP) $(TAGS_FILES)'; \ unique=`for i in $$list; do \ if test -f "$$i"; then echo $$i; else echo $(srcdir)/$$i; fi; \ done | \ $(AWK) '{ files[$$0] = 1; nonempty = 1; } \ END { if (nonempty) { for (i in files) print i; }; }'`; \ mkid -fID $$unique tags: TAGS TAGS: tags-recursive $(HEADERS) $(SOURCES) $(TAGS_DEPENDENCIES) \ $(TAGS_FILES) $(LISP) set x; \ here=`pwd`; \ if ($(ETAGS) --etags-include --version) >/dev/null 2>&1; then \ include_option=--etags-include; \ empty_fix=.; \ else \ include_option=--include; \ empty_fix=; \ fi; \ list='$(SUBDIRS)'; for subdir in $$list; do \ if test "$$subdir" = .; then :; else \ test ! -f $$subdir/TAGS || \ set "$$@" "$$include_option=$$here/$$subdir/TAGS"; \ fi; \ done; \ list='$(SOURCES) $(HEADERS) $(LISP) $(TAGS_FILES)'; \ unique=`for i in $$list; do \ if test -f "$$i"; then echo $$i; else echo $(srcdir)/$$i; fi; \ done | \ $(AWK) '{ files[$$0] = 1; nonempty = 1; } \ END { if (nonempty) { for (i in files) print i; }; }'`; \ shift; \ if test -z "$(ETAGS_ARGS)$$*$$unique"; then :; else \ test -n "$$unique" || unique=$$empty_fix; \ if test $$# -gt 0; then \ $(ETAGS) $(ETAGSFLAGS) $(AM_ETAGSFLAGS) $(ETAGS_ARGS) \ "$$@" $$unique; \ else \ $(ETAGS) $(ETAGSFLAGS) $(AM_ETAGSFLAGS) $(ETAGS_ARGS) \ $$unique; \ fi; \ fi ctags: CTAGS CTAGS: ctags-recursive $(HEADERS) $(SOURCES) $(TAGS_DEPENDENCIES) \ $(TAGS_FILES) $(LISP) list='$(SOURCES) $(HEADERS) $(LISP) $(TAGS_FILES)'; \ unique=`for i in $$list; do \ if test -f "$$i"; then echo $$i; else echo $(srcdir)/$$i; fi; \ done | \ $(AWK) '{ files[$$0] = 1; nonempty = 1; } \ END { if (nonempty) { for (i in files) print i; }; }'`; \ test -z "$(CTAGS_ARGS)$$unique" \ || $(CTAGS) $(CTAGSFLAGS) $(AM_CTAGSFLAGS) $(CTAGS_ARGS) \ $$unique GTAGS: here=`$(am__cd) $(top_builddir) && pwd` \ && $(am__cd) $(top_srcdir) \ && gtags -i $(GTAGS_ARGS) "$$here" distclean-tags: -rm -f TAGS ID GTAGS GRTAGS GSYMS GPATH tags distdir: $(DISTFILES) @srcdirstrip=`echo "$(srcdir)" | sed 's/[].[^$$\\*]/\\\\&/g'`; \ topsrcdirstrip=`echo "$(top_srcdir)" | sed 's/[].[^$$\\*]/\\\\&/g'`; \ list='$(DISTFILES)'; \ dist_files=`for file in $$list; do echo $$file; done | \ sed -e "s|^$$srcdirstrip/||;t" \ -e "s|^$$topsrcdirstrip/|$(top_builddir)/|;t"`; \ case $$dist_files in \ */*) $(MKDIR_P) `echo "$$dist_files" | \ sed '/\//!d;s|^|$(distdir)/|;s,/[^/]*$$,,' | \ sort -u` ;; \ esac; \ for file in $$dist_files; do \ if test -f $$file || test -d $$file; then d=.; else d=$(srcdir); fi; \ if test -d $$d/$$file; then \ dir=`echo "/$$file" | sed -e 's,/[^/]*$$,,'`; \ if test -d "$(distdir)/$$file"; then \ find "$(distdir)/$$file" -type d ! -perm -700 -exec chmod u+rwx {} \;; \ fi; \ if test -d $(srcdir)/$$file && test $$d != $(srcdir); then \ cp -fpR $(srcdir)/$$file "$(distdir)$$dir" || exit 1; \ find "$(distdir)/$$file" -type d ! -perm -700 -exec chmod u+rwx {} \;; \ fi; \ cp -fpR $$d/$$file "$(distdir)$$dir" || exit 1; \ else \ test -f "$(distdir)/$$file" \ || cp -p $$d/$$file "$(distdir)/$$file" \ || exit 1; \ fi; \ done @list='$(DIST_SUBDIRS)'; for subdir in $$list; do \ if test "$$subdir" = .; then :; else \ $(am__make_dryrun) \ || test -d "$(distdir)/$$subdir" \ || $(MKDIR_P) "$(distdir)/$$subdir" \ || exit 1; \ dir1=$$subdir; dir2="$(distdir)/$$subdir"; \ $(am__relativize); \ new_distdir=$$reldir; \ dir1=$$subdir; dir2="$(top_distdir)"; \ $(am__relativize); \ new_top_distdir=$$reldir; \ echo " (cd $$subdir && $(MAKE) $(AM_MAKEFLAGS) top_distdir="$$new_top_distdir" distdir="$$new_distdir" \\"; \ echo " am__remove_distdir=: am__skip_length_check=: am__skip_mode_fix=: distdir)"; \ ($(am__cd) $$subdir && \ $(MAKE) $(AM_MAKEFLAGS) \ top_distdir="$$new_top_distdir" \ distdir="$$new_distdir" \ am__remove_distdir=: \ am__skip_length_check=: \ am__skip_mode_fix=: \ distdir) \ || exit 1; \ fi; \ done check-am: all-am check: check-recursive all-am: Makefile installdirs: installdirs-recursive installdirs-am: install: install-recursive install-exec: install-exec-recursive install-data: install-data-recursive uninstall: uninstall-recursive install-am: all-am @$(MAKE) $(AM_MAKEFLAGS) install-exec-am install-data-am installcheck: installcheck-recursive install-strip: if test -z '$(STRIP)'; then \ $(MAKE) $(AM_MAKEFLAGS) INSTALL_PROGRAM="$(INSTALL_STRIP_PROGRAM)" \ install_sh_PROGRAM="$(INSTALL_STRIP_PROGRAM)" INSTALL_STRIP_FLAG=-s \ install; \ else \ $(MAKE) $(AM_MAKEFLAGS) INSTALL_PROGRAM="$(INSTALL_STRIP_PROGRAM)" \ install_sh_PROGRAM="$(INSTALL_STRIP_PROGRAM)" INSTALL_STRIP_FLAG=-s \ "INSTALL_PROGRAM_ENV=STRIPPROG='$(STRIP)'" install; \ fi mostlyclean-generic: clean-generic: distclean-generic: -test -z "$(CONFIG_CLEAN_FILES)" || rm -f $(CONFIG_CLEAN_FILES) -test . = "$(srcdir)" || test -z "$(CONFIG_CLEAN_VPATH_FILES)" || rm -f $(CONFIG_CLEAN_VPATH_FILES) maintainer-clean-generic: @echo "This command is intended for maintainers to use" @echo "it deletes files that may require special tools to rebuild." clean: clean-recursive clean-am: clean-generic clean-libtool mostlyclean-am distclean: distclean-recursive -rm -f Makefile distclean-am: clean-am distclean-generic distclean-tags dvi: dvi-recursive dvi-am: html: html-recursive html-am: info: info-recursive info-am: install-data-am: install-dvi: install-dvi-recursive install-dvi-am: install-exec-am: install-html: install-html-recursive install-html-am: install-info: install-info-recursive install-info-am: install-man: install-pdf: install-pdf-recursive install-pdf-am: install-ps: install-ps-recursive install-ps-am: installcheck-am: maintainer-clean: maintainer-clean-recursive -rm -f Makefile maintainer-clean-am: distclean-am maintainer-clean-generic mostlyclean: mostlyclean-recursive mostlyclean-am: mostlyclean-generic mostlyclean-libtool pdf: pdf-recursive pdf-am: ps: ps-recursive ps-am: uninstall-am: .MAKE: $(RECURSIVE_CLEAN_TARGETS) $(RECURSIVE_TARGETS) ctags-recursive \ install-am install-strip tags-recursive .PHONY: $(RECURSIVE_CLEAN_TARGETS) $(RECURSIVE_TARGETS) CTAGS GTAGS \ all all-am check check-am clean clean-generic clean-libtool \ ctags ctags-recursive distclean distclean-generic \ distclean-libtool distclean-tags distdir dvi dvi-am html \ html-am info info-am install install-am install-data \ install-data-am install-dvi install-dvi-am install-exec \ install-exec-am install-html install-html-am install-info \ install-info-am install-man install-pdf install-pdf-am \ install-ps install-ps-am install-strip installcheck \ installcheck-am installdirs installdirs-am maintainer-clean \ maintainer-clean-generic mostlyclean mostlyclean-generic \ mostlyclean-libtool pdf pdf-am ps ps-am tags tags-recursive \ uninstall uninstall-am # Tell versions [3.59,3.63) of GNU make to not export all variables. # Otherwise a system limit (for SysV at least) may be exceeded. .NOEXPORT: guile-gnome-platform-2.16.2/pango/tests/0000755000175000017500000000000011752546501020440 5ustar00wingowingo00000000000000guile-gnome-platform-2.16.2/pango/tests/pango/0000755000175000017500000000000011752546501021544 5ustar00wingowingo00000000000000guile-gnome-platform-2.16.2/pango/tests/pango/wrapset.scm0000644000175000017500000000311411670374303023732 0ustar00wingowingo00000000000000;;; ---------------------------------------------------------------------- ;;; unit test ;;; Copyright (C) 2007 Andy Wingo ;;; ;;; This program is free software; you can redistribute it and/or modify ;;; it under the terms of the GNU General Public License as published by ;;; the Free Software Foundation; either version 2 of the License, or ;;; (at your option) any later version. ;;; ;;; This program is distributed in the hope that it will be useful, ;;; but WITHOUT ANY WARRANTY; without even the implied warranty of ;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the ;;; GNU General Public License for more details. ;;; ;;; You should have received a copy of the GNU General Public License ;;; along with this program; if not, write to the Free Software ;;; Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA ;;; ---------------------------------------------------------------------- (use-modules (unit-test) (apicheck) (ice-9 pretty-print) (oop goops)) (define-class ()) (define *modules* (call-with-input-string (getenv "WRAPSET_MODULES") read)) (define *api-file* (getenv "WRAPSET_API_FILE")) (define-method (test-wrapset-api (self )) (apicheck-validate (call-with-input-file *api-file* read) *modules*)) (define (main args) (exit-with-summary (run-all-defined-test-cases))) (define (update-api args) (with-output-to-file *api-file* (lambda () (pretty-print (apicheck-generate *modules*))))) guile-gnome-platform-2.16.2/pango/tests/pango/Makefile.am0000644000175000017500000000006011670374303023572 0ustar00wingowingo00000000000000include ../../../tests.mk wrapset_stem = pango guile-gnome-platform-2.16.2/pango/tests/pango/Makefile.in0000644000175000017500000004020711752511071023606 0ustar00wingowingo00000000000000# Makefile.in generated by automake 1.11.5 from Makefile.am. # @configure_input@ # Copyright (C) 1994, 1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, # 2003, 2004, 2005, 2006, 2007, 2008, 2009, 2010, 2011 Free Software # Foundation, Inc. # This Makefile.in is free software; the Free Software Foundation # gives unlimited permission to copy and/or distribute it, # with or without modifications, as long as this notice is preserved. # This program is distributed in the hope that it will be useful, # but WITHOUT ANY WARRANTY, to the extent permitted by law; without # even the implied warranty of MERCHANTABILITY or FITNESS FOR A # PARTICULAR PURPOSE. @SET_MAKE@ # guile-gnome # Copyright (C) 2007, 2011 Free Software Foundation, Inc. # This program is free software; you can redistribute it and/or # modify it under the terms of the GNU General Public License as # published by the Free Software Foundation; either version 2 of # the License, or (at your option) any later version. # This program is distributed in the hope that it will be useful, # but WITHOUT ANY WARRANTY; without even the implied warranty of # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the # GNU General Public License for more details. # You should have received a copy of the GNU General Public License # along with this program; if not, contact: # Free Software Foundation Voice: +1-617-542-5942 # 59 Temple Place - Suite 330 Fax: +1-617-542-2652 # Boston, MA 02111-1307, USA gnu@gnu.org VPATH = @srcdir@ am__make_dryrun = \ { \ am__dry=no; \ case $$MAKEFLAGS in \ *\\[\ \ ]*) \ echo 'am--echo: ; @echo "AM" OK' | $(MAKE) -f - 2>/dev/null \ | grep '^AM OK$$' >/dev/null || am__dry=yes;; \ *) \ for am__flg in $$MAKEFLAGS; do \ case $$am__flg in \ *=*|--*) ;; \ *n*) am__dry=yes; break;; \ esac; \ done;; \ esac; \ test $$am__dry = yes; \ } pkgdatadir = $(datadir)/@PACKAGE@ pkgincludedir = $(includedir)/@PACKAGE@ pkglibdir = $(libdir)/@PACKAGE@ pkglibexecdir = $(libexecdir)/@PACKAGE@ am__cd = CDPATH="$${ZSH_VERSION+.}$(PATH_SEPARATOR)" && cd install_sh_DATA = $(install_sh) -c -m 644 install_sh_PROGRAM = $(install_sh) -c install_sh_SCRIPT = $(install_sh) -c INSTALL_HEADER = $(INSTALL_DATA) transform = $(program_transform_name) NORMAL_INSTALL = : PRE_INSTALL = : POST_INSTALL = : NORMAL_UNINSTALL = : PRE_UNINSTALL = : POST_UNINSTALL = : build_triplet = @build@ host_triplet = @host@ DIST_COMMON = $(srcdir)/../../../tests.mk $(srcdir)/Makefile.am \ $(srcdir)/Makefile.in subdir = pango/tests/pango ACLOCAL_M4 = $(top_srcdir)/aclocal.m4 am__aclocal_m4_deps = $(top_srcdir)/configure.ac am__configure_deps = $(am__aclocal_m4_deps) $(CONFIGURE_DEPENDENCIES) \ $(ACLOCAL_M4) mkinstalldirs = $(install_sh) -d CONFIG_HEADER = $(top_builddir)/config.h CONFIG_CLEAN_FILES = CONFIG_CLEAN_VPATH_FILES = SOURCES = DIST_SOURCES = am__can_run_installinfo = \ case $$AM_UPDATE_INFO_DIR in \ n|no|NO) false;; \ *) (install-info --version) >/dev/null 2>&1;; \ esac am__tty_colors = \ red=; grn=; lgn=; blu=; std= DISTFILES = $(DIST_COMMON) $(DIST_SOURCES) $(TEXINFOS) $(EXTRA_DIST) ACLOCAL = @ACLOCAL@ AG_PKG_CONFIG_PATH = @AG_PKG_CONFIG_PATH@ AMTAR = @AMTAR@ API_VERSION = @API_VERSION@ AR = @AR@ ATK_CFLAGS = @ATK_CFLAGS@ ATK_LIBS = @ATK_LIBS@ AUTOCONF = @AUTOCONF@ AUTOHEADER = @AUTOHEADER@ AUTOMAKE = @AUTOMAKE@ AWK = @AWK@ BONOBO_IDL_DIR = @BONOBO_IDL_DIR@ CANVAS_CFLAGS = @CANVAS_CFLAGS@ CANVAS_LIBS = @CANVAS_LIBS@ CC = @CC@ CCDEPMODE = @CCDEPMODE@ CFLAGS = @CFLAGS@ CORBA_CFLAGS = @CORBA_CFLAGS@ CORBA_LIBS = @CORBA_LIBS@ CPP = @CPP@ CPPFLAGS = @CPPFLAGS@ CYGPATH_W = @CYGPATH_W@ DEFS = @DEFS@ DEPDIR = @DEPDIR@ DLLTOOL = @DLLTOOL@ DSYMUTIL = @DSYMUTIL@ DUMPBIN = @DUMPBIN@ ECHO_C = @ECHO_C@ ECHO_N = @ECHO_N@ ECHO_T = @ECHO_T@ EGREP = @EGREP@ EXEEXT = @EXEEXT@ FGREP = @FGREP@ GCONF_CFLAGS = @GCONF_CFLAGS@ GCONF_LIBS = @GCONF_LIBS@ GDK_CFLAGS = @GDK_CFLAGS@ GDK_LIBS = @GDK_LIBS@ GDK_PIXBUF_CFLAGS = @GDK_PIXBUF_CFLAGS@ GDK_PIXBUF_LIBS = @GDK_PIXBUF_LIBS@ GLIB_CFLAGS = @GLIB_CFLAGS@ GLIB_LIBS = @GLIB_LIBS@ GNOMEUI_DEPRECATION_FLAGS = @GNOMEUI_DEPRECATION_FLAGS@ GNOME_VFS_CFLAGS = @GNOME_VFS_CFLAGS@ GNOME_VFS_DEPRECATED_CFLAGS = @GNOME_VFS_DEPRECATED_CFLAGS@ GNOME_VFS_LIBS = @GNOME_VFS_LIBS@ GOBJECT_CFLAGS = @GOBJECT_CFLAGS@ GOBJECT_LIBS = @GOBJECT_LIBS@ GREP = @GREP@ GTHREAD_CFLAGS = @GTHREAD_CFLAGS@ GTHREAD_LIBS = @GTHREAD_LIBS@ GTK_CFLAGS = @GTK_CFLAGS@ GTK_DEPRECATED_CFLAGS = @GTK_DEPRECATED_CFLAGS@ GTK_LIBS = @GTK_LIBS@ GUILE_CAIRO_CFLAGS = @GUILE_CAIRO_CFLAGS@ GUILE_CAIRO_LIBS = @GUILE_CAIRO_LIBS@ GUILE_CFLAGS = @GUILE_CFLAGS@ GUILE_EFFECTIVE_VERSION = @GUILE_EFFECTIVE_VERSION@ GUILE_GLIB_CFLAGS = @GUILE_GLIB_CFLAGS@ GUILE_GLIB_LIBS = @GUILE_GLIB_LIBS@ GUILE_LIBS = @GUILE_LIBS@ G_WRAP_CFLAGS = @G_WRAP_CFLAGS@ G_WRAP_LIBS = @G_WRAP_LIBS@ G_WRAP_LIB_DIR = @G_WRAP_LIB_DIR@ G_WRAP_MODULE_DIR = @G_WRAP_MODULE_DIR@ INSTALL = @INSTALL@ INSTALL_DATA = @INSTALL_DATA@ INSTALL_PROGRAM = @INSTALL_PROGRAM@ INSTALL_SCRIPT = @INSTALL_SCRIPT@ INSTALL_STRIP_PROGRAM = @INSTALL_STRIP_PROGRAM@ LD = @LD@ LDFLAGS = @LDFLAGS@ LIBGLADE_CFLAGS = @LIBGLADE_CFLAGS@ LIBGLADE_LIBS = @LIBGLADE_LIBS@ LIBGNOMEUI_CFLAGS = @LIBGNOMEUI_CFLAGS@ LIBGNOMEUI_LIBS = @LIBGNOMEUI_LIBS@ LIBGNOME_CFLAGS = @LIBGNOME_CFLAGS@ LIBGNOME_LIBS = @LIBGNOME_LIBS@ LIBOBJS = @LIBOBJS@ LIBS = @LIBS@ LIBTOOL = @LIBTOOL@ LIPO = @LIPO@ LN_S = @LN_S@ LTLIBOBJS = @LTLIBOBJS@ MAKEINFO = @MAKEINFO@ MANIFEST_TOOL = @MANIFEST_TOOL@ MKDIR_P = @MKDIR_P@ NM = @NM@ NMEDIT = @NMEDIT@ OBJDUMP = @OBJDUMP@ OBJEXT = @OBJEXT@ ORBIT_IDL = @ORBIT_IDL@ OTOOL = @OTOOL@ OTOOL64 = @OTOOL64@ PACKAGE = @PACKAGE@ PACKAGE_BUGREPORT = @PACKAGE_BUGREPORT@ PACKAGE_NAME = @PACKAGE_NAME@ PACKAGE_STRING = @PACKAGE_STRING@ PACKAGE_TARNAME = @PACKAGE_TARNAME@ PACKAGE_URL = @PACKAGE_URL@ PACKAGE_VERSION = @PACKAGE_VERSION@ PANGOCAIRO_CFLAGS = @PANGOCAIRO_CFLAGS@ PANGOCAIRO_LIBS = @PANGOCAIRO_LIBS@ PANGO_CFLAGS = @PANGO_CFLAGS@ PANGO_LIBS = @PANGO_LIBS@ PATH_SEPARATOR = @PATH_SEPARATOR@ PKG_CONFIG = @PKG_CONFIG@ PKG_CONFIG_LIBDIR = @PKG_CONFIG_LIBDIR@ PKG_CONFIG_PATH = @PKG_CONFIG_PATH@ RANLIB = @RANLIB@ SED = @SED@ SET_MAKE = @SET_MAKE@ SHELL = @SHELL@ STRIP = @STRIP@ VERSION = @VERSION@ WARN_CFLAGS = @WARN_CFLAGS@ abs_builddir = @abs_builddir@ abs_srcdir = @abs_srcdir@ abs_top_builddir = @abs_top_builddir@ abs_top_srcdir = @abs_top_srcdir@ ac_ct_AR = @ac_ct_AR@ ac_ct_CC = @ac_ct_CC@ ac_ct_DUMPBIN = @ac_ct_DUMPBIN@ am__include = @am__include@ am__leading_dot = @am__leading_dot@ am__quote = @am__quote@ am__tar = @am__tar@ am__untar = @am__untar@ bindir = @bindir@ build = @build@ build_alias = @build_alias@ build_cpu = @build_cpu@ build_os = @build_os@ build_vendor = @build_vendor@ builddir = @builddir@ datadir = @datadir@ datarootdir = @datarootdir@ docdir = @docdir@ dvidir = @dvidir@ exec_prefix = @exec_prefix@ host = @host@ host_alias = @host_alias@ host_cpu = @host_cpu@ host_os = @host_os@ host_vendor = @host_vendor@ htmldir = @htmldir@ includedir = @includedir@ infodir = @infodir@ install_sh = @install_sh@ libdir = @libdir@ libexecdir = @libexecdir@ localedir = @localedir@ localstatedir = @localstatedir@ mandir = @mandir@ mkdir_p = @mkdir_p@ oldincludedir = @oldincludedir@ pdfdir = @pdfdir@ prefix = @prefix@ program_transform_name = @program_transform_name@ psdir = @psdir@ sbindir = @sbindir@ sharedstatedir = @sharedstatedir@ srcdir = @srcdir@ sysconfdir = @sysconfdir@ target_alias = @target_alias@ top_build_prefix = @top_build_prefix@ top_builddir = @top_builddir@ top_srcdir = @top_srcdir@ # # Makefile snippet # EXTRA_DIST = wrapset.api wrapset.scm wrapset_stem = pango top_module_name = (gnome $(wrapset_stem)) gw_module_name = (gnome gw $(wrapset_stem)) extra_module_names = wrapset_modules = ($(top_module_name) $(gw_module_name) $(extra_module_names)) WRAPSET_TESTS_ENV = WRAPSET_MODULES="$(wrapset_modules)" WRAPSET_API_FILE=$(srcdir)/wrapset.api DEV_ENV = $(top_builddir)/dev-environ GUILE = guile TESTS_ENVIRONMENT = $(WRAPSET_TESTS_ENV) $(DEV_ENV) $(GUILE) $(GUILE_FLAGS) -e main -s TESTS = wrapset.scm all: all-am .SUFFIXES: $(srcdir)/Makefile.in: $(srcdir)/Makefile.am $(srcdir)/../../../tests.mk $(am__configure_deps) @for dep in $?; do \ case '$(am__configure_deps)' in \ *$$dep*) \ ( cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh ) \ && { if test -f $@; then exit 0; else break; fi; }; \ exit 1;; \ esac; \ done; \ echo ' cd $(top_srcdir) && $(AUTOMAKE) --gnu pango/tests/pango/Makefile'; \ $(am__cd) $(top_srcdir) && \ $(AUTOMAKE) --gnu pango/tests/pango/Makefile .PRECIOUS: Makefile Makefile: $(srcdir)/Makefile.in $(top_builddir)/config.status @case '$?' in \ *config.status*) \ cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh;; \ *) \ echo ' cd $(top_builddir) && $(SHELL) ./config.status $(subdir)/$@ $(am__depfiles_maybe)'; \ cd $(top_builddir) && $(SHELL) ./config.status $(subdir)/$@ $(am__depfiles_maybe);; \ esac; $(srcdir)/../../../tests.mk: $(top_builddir)/config.status: $(top_srcdir)/configure $(CONFIG_STATUS_DEPENDENCIES) cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh $(top_srcdir)/configure: $(am__configure_deps) cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh $(ACLOCAL_M4): $(am__aclocal_m4_deps) cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh $(am__aclocal_m4_deps): mostlyclean-libtool: -rm -f *.lo clean-libtool: -rm -rf .libs _libs tags: TAGS TAGS: ctags: CTAGS CTAGS: check-TESTS: $(TESTS) @failed=0; all=0; xfail=0; xpass=0; skip=0; \ srcdir=$(srcdir); export srcdir; \ list=' $(TESTS) '; \ $(am__tty_colors); \ if test -n "$$list"; then \ for tst in $$list; do \ if test -f ./$$tst; then dir=./; \ elif test -f $$tst; then dir=; \ else dir="$(srcdir)/"; fi; \ if $(TESTS_ENVIRONMENT) $${dir}$$tst; then \ all=`expr $$all + 1`; \ case " $(XFAIL_TESTS) " in \ *[\ \ ]$$tst[\ \ ]*) \ xpass=`expr $$xpass + 1`; \ failed=`expr $$failed + 1`; \ col=$$red; res=XPASS; \ ;; \ *) \ col=$$grn; res=PASS; \ ;; \ esac; \ elif test $$? -ne 77; then \ all=`expr $$all + 1`; \ case " $(XFAIL_TESTS) " in \ *[\ \ ]$$tst[\ \ ]*) \ xfail=`expr $$xfail + 1`; \ col=$$lgn; res=XFAIL; \ ;; \ *) \ failed=`expr $$failed + 1`; \ col=$$red; res=FAIL; \ ;; \ esac; \ else \ skip=`expr $$skip + 1`; \ col=$$blu; res=SKIP; \ fi; \ echo "$${col}$$res$${std}: $$tst"; \ done; \ if test "$$all" -eq 1; then \ tests="test"; \ All=""; \ else \ tests="tests"; \ All="All "; \ fi; \ if test "$$failed" -eq 0; then \ if test "$$xfail" -eq 0; then \ banner="$$All$$all $$tests passed"; \ else \ if test "$$xfail" -eq 1; then failures=failure; else failures=failures; fi; \ banner="$$All$$all $$tests behaved as expected ($$xfail expected $$failures)"; \ fi; \ else \ if test "$$xpass" -eq 0; then \ banner="$$failed of $$all $$tests failed"; \ else \ if test "$$xpass" -eq 1; then passes=pass; else passes=passes; fi; \ banner="$$failed of $$all $$tests did not behave as expected ($$xpass unexpected $$passes)"; \ fi; \ fi; \ dashes="$$banner"; \ skipped=""; \ if test "$$skip" -ne 0; then \ if test "$$skip" -eq 1; then \ skipped="($$skip test was not run)"; \ else \ skipped="($$skip tests were not run)"; \ fi; \ test `echo "$$skipped" | wc -c` -le `echo "$$banner" | wc -c` || \ dashes="$$skipped"; \ fi; \ report=""; \ if test "$$failed" -ne 0 && test -n "$(PACKAGE_BUGREPORT)"; then \ report="Please report to $(PACKAGE_BUGREPORT)"; \ test `echo "$$report" | wc -c` -le `echo "$$banner" | wc -c` || \ dashes="$$report"; \ fi; \ dashes=`echo "$$dashes" | sed s/./=/g`; \ if test "$$failed" -eq 0; then \ col="$$grn"; \ else \ col="$$red"; \ fi; \ echo "$${col}$$dashes$${std}"; \ echo "$${col}$$banner$${std}"; \ test -z "$$skipped" || echo "$${col}$$skipped$${std}"; \ test -z "$$report" || echo "$${col}$$report$${std}"; \ echo "$${col}$$dashes$${std}"; \ test "$$failed" -eq 0; \ else :; fi distdir: $(DISTFILES) @srcdirstrip=`echo "$(srcdir)" | sed 's/[].[^$$\\*]/\\\\&/g'`; \ topsrcdirstrip=`echo "$(top_srcdir)" | sed 's/[].[^$$\\*]/\\\\&/g'`; \ list='$(DISTFILES)'; \ dist_files=`for file in $$list; do echo $$file; done | \ sed -e "s|^$$srcdirstrip/||;t" \ -e "s|^$$topsrcdirstrip/|$(top_builddir)/|;t"`; \ case $$dist_files in \ */*) $(MKDIR_P) `echo "$$dist_files" | \ sed '/\//!d;s|^|$(distdir)/|;s,/[^/]*$$,,' | \ sort -u` ;; \ esac; \ for file in $$dist_files; do \ if test -f $$file || test -d $$file; then d=.; else d=$(srcdir); fi; \ if test -d $$d/$$file; then \ dir=`echo "/$$file" | sed -e 's,/[^/]*$$,,'`; \ if test -d "$(distdir)/$$file"; then \ find "$(distdir)/$$file" -type d ! -perm -700 -exec chmod u+rwx {} \;; \ fi; \ if test -d $(srcdir)/$$file && test $$d != $(srcdir); then \ cp -fpR $(srcdir)/$$file "$(distdir)$$dir" || exit 1; \ find "$(distdir)/$$file" -type d ! -perm -700 -exec chmod u+rwx {} \;; \ fi; \ cp -fpR $$d/$$file "$(distdir)$$dir" || exit 1; \ else \ test -f "$(distdir)/$$file" \ || cp -p $$d/$$file "$(distdir)/$$file" \ || exit 1; \ fi; \ done check-am: all-am $(MAKE) $(AM_MAKEFLAGS) check-TESTS check: check-am all-am: Makefile installdirs: install: install-am install-exec: install-exec-am install-data: install-data-am uninstall: uninstall-am install-am: all-am @$(MAKE) $(AM_MAKEFLAGS) install-exec-am install-data-am installcheck: installcheck-am install-strip: if test -z '$(STRIP)'; then \ $(MAKE) $(AM_MAKEFLAGS) INSTALL_PROGRAM="$(INSTALL_STRIP_PROGRAM)" \ install_sh_PROGRAM="$(INSTALL_STRIP_PROGRAM)" INSTALL_STRIP_FLAG=-s \ install; \ else \ $(MAKE) $(AM_MAKEFLAGS) INSTALL_PROGRAM="$(INSTALL_STRIP_PROGRAM)" \ install_sh_PROGRAM="$(INSTALL_STRIP_PROGRAM)" INSTALL_STRIP_FLAG=-s \ "INSTALL_PROGRAM_ENV=STRIPPROG='$(STRIP)'" install; \ fi mostlyclean-generic: clean-generic: distclean-generic: -test -z "$(CONFIG_CLEAN_FILES)" || rm -f $(CONFIG_CLEAN_FILES) -test . = "$(srcdir)" || test -z "$(CONFIG_CLEAN_VPATH_FILES)" || rm -f $(CONFIG_CLEAN_VPATH_FILES) maintainer-clean-generic: @echo "This command is intended for maintainers to use" @echo "it deletes files that may require special tools to rebuild." clean: clean-am clean-am: clean-generic clean-libtool mostlyclean-am distclean: distclean-am -rm -f Makefile distclean-am: clean-am distclean-generic dvi: dvi-am dvi-am: html: html-am html-am: info: info-am info-am: install-data-am: install-dvi: install-dvi-am install-dvi-am: install-exec-am: install-html: install-html-am install-html-am: install-info: install-info-am install-info-am: install-man: install-pdf: install-pdf-am install-pdf-am: install-ps: install-ps-am install-ps-am: installcheck-am: maintainer-clean: maintainer-clean-am -rm -f Makefile maintainer-clean-am: distclean-am maintainer-clean-generic mostlyclean: mostlyclean-am mostlyclean-am: mostlyclean-generic mostlyclean-libtool pdf: pdf-am pdf-am: ps: ps-am ps-am: uninstall-am: .MAKE: check-am install-am install-strip .PHONY: all all-am check check-TESTS check-am clean clean-generic \ clean-libtool distclean distclean-generic distclean-libtool \ distdir dvi dvi-am html html-am info info-am install \ install-am install-data install-data-am install-dvi \ install-dvi-am install-exec install-exec-am install-html \ install-html-am install-info install-info-am install-man \ install-pdf install-pdf-am install-ps install-ps-am \ install-strip installcheck installcheck-am installdirs \ maintainer-clean maintainer-clean-generic mostlyclean \ mostlyclean-generic mostlyclean-libtool pdf pdf-am ps ps-am \ uninstall uninstall-am wrapset.api.update: $(WRAPSET_TESTS_ENV) $(DEV_ENV) $(GUILE) -e update-api -s $(srcdir)/wrapset.scm %.check: % $(TESTS_ENVIRONMENT) $(srcdir)/$* # Tell versions [3.59,3.63) of GNU make to not export all variables. # Otherwise a system limit (for SysV at least) may be exceeded. .NOEXPORT: guile-gnome-platform-2.16.2/pango/tests/pango/wrapset.api0000644000175000017500000003752711670374303023740 0ustar00wingowingo00000000000000(module-api (version 1 0) ((gnome gobject generics) (uses-interfaces) (typed-exports (block generic ( )) (connect generic ( )) (connect-after generic ( )) (connected? generic ( )) (create-signal generic ( )) (disconnect generic ( )) (emit generic ( . )) (find-property generic ( )) (get generic ( )) (get-properties generic ()) (get-property-names generic ()) (get-signals generic ()) (invoke generic ( . )) (set generic ( )) (unblock generic ( )))) ((gnome gw generics) (uses-interfaces (gnome gobject generics)) (typed-exports)) ((gnome gw pango) (uses-interfaces (gnome gw generics)) (typed-exports (pango-attr-background-new procedure (arity 0 0 #t)) (pango-attr-fallback-new procedure (arity 0 0 #t)) (pango-attr-family-new procedure (arity 0 0 #t)) (pango-attr-font-desc-new procedure (arity 0 0 #t)) (pango-attr-foreground-new procedure (arity 0 0 #t)) (pango-attr-iterator-copy procedure (arity 0 0 #t)) (pango-attr-iterator-get procedure (arity 0 0 #t)) (pango-attr-iterator-get-attrs procedure (arity 1 0 #f)) (pango-attr-iterator-next procedure (arity 0 0 #t)) (pango-attr-iterator-range procedure (arity 1 0 #f)) (pango-attr-language-new procedure (arity 0 0 #t)) (pango-attr-letter-spacing-new procedure (arity 0 0 #t)) (pango-attr-list-change procedure (arity 0 0 #t)) (pango-attr-list-copy procedure (arity 0 0 #t)) (pango-attr-list-get-iterator procedure (arity 0 0 #t)) (pango-attr-list-insert procedure (arity 0 0 #t)) (pango-attr-list-insert-before procedure (arity 0 0 #t)) (pango-attr-list-new procedure (arity 0 0 #t)) (pango-attr-list-splice procedure (arity 0 0 #t)) (pango-attr-rise-new procedure (arity 0 0 #t)) (pango-attr-scale-new procedure (arity 0 0 #t)) (pango-attr-shape-new procedure (arity 2 0 #f)) (pango-attr-size-new procedure (arity 0 0 #t)) (pango-attr-size-new-absolute procedure (arity 0 0 #t)) (pango-attr-stretch-new procedure (arity 0 0 #t)) (pango-attr-strikethrough-color-new procedure (arity 0 0 #t)) (pango-attr-strikethrough-new procedure (arity 0 0 #t)) (pango-attr-style-new procedure (arity 0 0 #t)) (pango-attr-type-register procedure (arity 0 0 #t)) (pango-attr-underline-color-new procedure (arity 0 0 #t)) (pango-attr-underline-new procedure (arity 0 0 #t)) (pango-attr-variant-new procedure (arity 0 0 #t)) (pango-attr-weight-new procedure (arity 0 0 #t)) (pango-attribute-copy procedure (arity 0 0 #t)) (pango-attribute-equal procedure (arity 0 0 #t)) (pango-color-copy procedure (arity 0 0 #t)) (pango-color-parse procedure (arity 0 0 #t)) (pango-context-get-base-dir procedure (arity 0 0 #t)) (pango-context-get-font-description procedure (arity 0 0 #t)) (pango-context-get-font-map procedure (arity 0 0 #t)) (pango-context-get-language procedure (arity 0 0 #t)) (pango-context-get-matrix procedure (arity 0 0 #t)) (pango-context-get-metrics procedure (arity 0 0 #t)) (pango-context-load-font procedure (arity 0 0 #t)) (pango-context-load-fontset procedure (arity 0 0 #t)) (pango-context-set-base-dir procedure (arity 0 0 #t)) (pango-context-set-font-description procedure (arity 0 0 #t)) (pango-context-set-language procedure (arity 0 0 #t)) (pango-context-set-matrix procedure (arity 0 0 #t)) (pango-coverage-copy procedure (arity 0 0 #t)) (pango-coverage-get procedure (arity 0 0 #t)) (pango-coverage-max procedure (arity 0 0 #t)) (pango-coverage-new procedure (arity 0 0 #t)) (pango-coverage-set procedure (arity 0 0 #t)) (pango-find-base-dir procedure (arity 0 0 #t)) (pango-find-paragraph-boundary procedure (arity 2 0 #f)) (pango-font-describe procedure (arity 0 0 #t)) (pango-font-describe-with-absolute-size procedure (arity 0 0 #t)) (pango-font-description-better-match procedure (arity 0 0 #t)) (pango-font-description-copy procedure (arity 0 0 #t)) (pango-font-description-copy-static procedure (arity 0 0 #t)) (pango-font-description-equal procedure (arity 0 0 #t)) (pango-font-description-from-string procedure (arity 0 0 #t)) (pango-font-description-get-family procedure (arity 0 0 #t)) (pango-font-description-get-set-fields procedure (arity 0 0 #t)) (pango-font-description-get-size procedure (arity 0 0 #t)) (pango-font-description-get-size-is-absolute procedure (arity 0 0 #t)) (pango-font-description-get-stretch procedure (arity 0 0 #t)) (pango-font-description-get-style procedure (arity 0 0 #t)) (pango-font-description-get-variant procedure (arity 0 0 #t)) (pango-font-description-get-weight procedure (arity 0 0 #t)) (pango-font-description-hash procedure (arity 0 0 #t)) (pango-font-description-merge procedure (arity 0 0 #t)) (pango-font-description-merge-static procedure (arity 0 0 #t)) (pango-font-description-new procedure (arity 0 0 #t)) (pango-font-description-set-absolute-size procedure (arity 0 0 #t)) (pango-font-description-set-family procedure (arity 0 0 #t)) (pango-font-description-set-family-static procedure (arity 0 0 #t)) (pango-font-description-set-size procedure (arity 0 0 #t)) (pango-font-description-set-stretch procedure (arity 0 0 #t)) (pango-font-description-set-style procedure (arity 0 0 #t)) (pango-font-description-set-variant procedure (arity 0 0 #t)) (pango-font-description-set-weight procedure (arity 0 0 #t)) (pango-font-description-to-filename procedure (arity 0 0 #t)) (pango-font-description-to-string procedure (arity 0 0 #t)) (pango-font-description-unset-fields procedure (arity 0 0 #t)) (pango-font-face-describe procedure (arity 0 0 #t)) (pango-font-face-get-face-name procedure (arity 0 0 #t)) (pango-font-family-get-name procedure (arity 0 0 #t)) (pango-font-family-is-monospace procedure (arity 0 0 #t)) (pango-font-get-coverage procedure (arity 0 0 #t)) (pango-font-get-font-map procedure (arity 0 0 #t)) (pango-font-get-glyph-extents procedure (arity 2 0 #f)) (pango-font-get-metrics procedure (arity 0 0 #t)) (pango-font-map-load-font procedure (arity 0 0 #t)) (pango-font-map-load-fontset procedure (arity 0 0 #t)) (pango-font-metrics-get-approximate-char-width procedure (arity 0 0 #t)) (pango-font-metrics-get-approximate-digit-width procedure (arity 0 0 #t)) (pango-font-metrics-get-ascent procedure (arity 0 0 #t)) (pango-font-metrics-get-descent procedure (arity 0 0 #t)) (pango-font-metrics-get-strikethrough-position procedure (arity 0 0 #t)) (pango-font-metrics-get-strikethrough-thickness procedure (arity 0 0 #t)) (pango-font-metrics-get-underline-position procedure (arity 0 0 #t)) (pango-font-metrics-get-underline-thickness procedure (arity 0 0 #t)) (pango-get-mirror-char procedure (arity 1 0 #f)) (pango-glyph-string-copy procedure (arity 0 0 #t)) (pango-glyph-string-extents procedure (arity 2 0 #f)) (pango-glyph-string-extents-range procedure (arity 4 0 #f)) (pango-glyph-string-get-logical-widths procedure (arity 4 0 #f)) (pango-glyph-string-get-width procedure (arity 0 0 #t)) (pango-glyph-string-new procedure (arity 0 0 #t)) (pango-glyph-string-set-size procedure (arity 0 0 #t)) (pango-item-copy procedure (arity 0 0 #t)) (pango-item-new procedure (arity 0 0 #t)) (pango-item-split procedure (arity 0 0 #t)) (pango-itemize procedure (arity 6 0 #f)) (pango-itemize-with-base-dir procedure (arity 7 0 #f)) (pango-language-from-string procedure (arity 0 0 #t)) (pango-language-includes-script procedure (arity 0 0 #t)) (pango-language-matches procedure (arity 0 0 #t)) (pango-layout-context-changed procedure (arity 0 0 #t)) (pango-layout-copy procedure (arity 0 0 #t)) (pango-layout-get-alignment procedure (arity 0 0 #t)) (pango-layout-get-attributes procedure (arity 0 0 #t)) (pango-layout-get-auto-dir procedure (arity 0 0 #t)) (pango-layout-get-context procedure (arity 0 0 #t)) (pango-layout-get-cursor-pos procedure (arity 2 0 #f)) (pango-layout-get-ellipsize procedure (arity 0 0 #t)) (pango-layout-get-extents procedure (arity 1 0 #f)) (pango-layout-get-font-description procedure (arity 0 0 #t)) (pango-layout-get-indent procedure (arity 0 0 #t)) (pango-layout-get-iter procedure (arity 0 0 #t)) (pango-layout-get-justify procedure (arity 0 0 #t)) (pango-layout-get-line procedure (arity 0 0 #t)) (pango-layout-get-line-count procedure (arity 0 0 #t)) (pango-layout-get-lines procedure (arity 1 0 #f)) (pango-layout-get-pixel-extents procedure (arity 1 0 #f)) (pango-layout-get-pixel-size procedure (arity 1 0 #f)) (pango-layout-get-single-paragraph-mode procedure (arity 0 0 #t)) (pango-layout-get-size procedure (arity 1 0 #f)) (pango-layout-get-spacing procedure (arity 0 0 #t)) (pango-layout-get-tabs procedure (arity 0 0 #t)) (pango-layout-get-text procedure (arity 0 0 #t)) (pango-layout-get-width procedure (arity 0 0 #t)) (pango-layout-get-wrap procedure (arity 0 0 #t)) (pango-layout-index-to-line-x procedure (arity 3 0 #f)) (pango-layout-index-to-pos procedure (arity 2 0 #f)) (pango-layout-iter-at-last-line procedure (arity 0 0 #t)) (pango-layout-iter-get-baseline procedure (arity 0 0 #t)) (pango-layout-iter-get-char-extents procedure (arity 1 0 #f)) (pango-layout-iter-get-cluster-extents procedure (arity 1 0 #f)) (pango-layout-iter-get-index procedure (arity 0 0 #t)) (pango-layout-iter-get-layout-extents procedure (arity 1 0 #f)) (pango-layout-iter-get-line procedure (arity 0 0 #t)) (pango-layout-iter-get-line-extents procedure (arity 1 0 #f)) (pango-layout-iter-get-line-yrange procedure (arity 1 0 #f)) (pango-layout-iter-get-run-extents procedure (arity 1 0 #f)) (pango-layout-iter-next-char procedure (arity 0 0 #t)) (pango-layout-iter-next-cluster procedure (arity 0 0 #t)) (pango-layout-iter-next-line procedure (arity 0 0 #t)) (pango-layout-iter-next-run procedure (arity 0 0 #t)) (pango-layout-line-get-extents procedure (arity 1 0 #f)) (pango-layout-line-get-pixel-extents procedure (arity 1 0 #f)) (pango-layout-line-index-to-x procedure (arity 3 0 #f)) (pango-layout-line-x-to-index procedure (arity 2 0 #f)) (pango-layout-move-cursor-visually procedure (arity 5 0 #f)) (pango-layout-new procedure (arity 0 0 #t)) (pango-layout-set-alignment procedure (arity 0 0 #t)) (pango-layout-set-attributes procedure (arity 0 0 #t)) (pango-layout-set-auto-dir procedure (arity 0 0 #t)) (pango-layout-set-ellipsize procedure (arity 0 0 #t)) (pango-layout-set-font-description procedure (arity 0 0 #t)) (pango-layout-set-indent procedure (arity 0 0 #t)) (pango-layout-set-justify procedure (arity 0 0 #t)) (pango-layout-set-markup procedure (arity 0 0 #t)) (pango-layout-set-markup-with-accel procedure (arity 4 0 #f)) (pango-layout-set-single-paragraph-mode procedure (arity 0 0 #t)) (pango-layout-set-spacing procedure (arity 0 0 #t)) (pango-layout-set-tabs procedure (arity 0 0 #t)) (pango-layout-set-text procedure (arity 0 0 #t)) (pango-layout-set-width procedure (arity 0 0 #t)) (pango-layout-set-wrap procedure (arity 0 0 #t)) (pango-layout-xy-to-index procedure (arity 3 0 #f)) (pango-matrix-concat procedure (arity 0 0 #t)) (pango-matrix-copy procedure (arity 0 0 #t)) (pango-matrix-get-font-scale-factor procedure (arity 0 0 #t)) (pango-matrix-rotate procedure (arity 0 0 #t)) (pango-matrix-scale procedure (arity 0 0 #t)) (pango-matrix-translate procedure (arity 0 0 #t)) (pango-renderer-activate procedure (arity 0 0 #t)) (pango-renderer-deactivate procedure (arity 0 0 #t)) (pango-renderer-draw-error-underline procedure (arity 0 0 #t)) (pango-renderer-draw-glyph procedure (arity 0 0 #t)) (pango-renderer-draw-glyphs procedure (arity 0 0 #t)) (pango-renderer-draw-layout procedure (arity 0 0 #t)) (pango-renderer-draw-layout-line procedure (arity 0 0 #t)) (pango-renderer-draw-rectangle procedure (arity 0 0 #t)) (pango-renderer-draw-trapezoid procedure (arity 0 0 #t)) (pango-renderer-get-color procedure (arity 0 0 #t)) (pango-renderer-get-matrix procedure (arity 0 0 #t)) (pango-renderer-part-changed procedure (arity 0 0 #t)) (pango-renderer-set-color procedure (arity 0 0 #t)) (pango-renderer-set-matrix procedure (arity 0 0 #t)) (pango-reorder-items procedure (arity 1 0 #f)) (pango-script-for-unichar procedure (arity 0 0 #t)) (pango-script-get-sample-language procedure (arity 0 0 #t)) (pango-script-iter-new procedure (arity 0 0 #t)) (pango-script-iter-next procedure (arity 0 0 #t)) (pango-tab-array-copy procedure (arity 0 0 #t)) (pango-tab-array-get-positions-in-pixels procedure (arity 0 0 #t)) (pango-tab-array-get-size procedure (arity 0 0 #t)) (pango-tab-array-new procedure (arity 0 0 #t)) (pango-tab-array-resize procedure (arity 0 0 #t)) (pango-tab-array-set-tab procedure (arity 0 0 #t)) (pango-unichar-direction procedure (arity 0 0 #t)))) ((gnome pango) (uses-interfaces (gnome gw pango)) (typed-exports))) guile-gnome-platform-2.16.2/pango/tests/pangocairo/0000755000175000017500000000000011752546501022562 5ustar00wingowingo00000000000000guile-gnome-platform-2.16.2/pango/tests/pangocairo/wrapset.scm0000644000175000017500000000311411670374303024750 0ustar00wingowingo00000000000000;;; ---------------------------------------------------------------------- ;;; unit test ;;; Copyright (C) 2007 Andy Wingo ;;; ;;; This program is free software; you can redistribute it and/or modify ;;; it under the terms of the GNU General Public License as published by ;;; the Free Software Foundation; either version 2 of the License, or ;;; (at your option) any later version. ;;; ;;; This program is distributed in the hope that it will be useful, ;;; but WITHOUT ANY WARRANTY; without even the implied warranty of ;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the ;;; GNU General Public License for more details. ;;; ;;; You should have received a copy of the GNU General Public License ;;; along with this program; if not, write to the Free Software ;;; Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA ;;; ---------------------------------------------------------------------- (use-modules (unit-test) (apicheck) (ice-9 pretty-print) (oop goops)) (define-class ()) (define *modules* (call-with-input-string (getenv "WRAPSET_MODULES") read)) (define *api-file* (getenv "WRAPSET_API_FILE")) (define-method (test-wrapset-api (self )) (apicheck-validate (call-with-input-file *api-file* read) *modules*)) (define (main args) (exit-with-summary (run-all-defined-test-cases))) (define (update-api args) (with-output-to-file *api-file* (lambda () (pretty-print (apicheck-generate *modules*))))) guile-gnome-platform-2.16.2/pango/tests/pangocairo/Makefile.am0000644000175000017500000000010711670374303024612 0ustar00wingowingo00000000000000include ../../../tests.mk wrapset_stem = pangocairo top_module_name = guile-gnome-platform-2.16.2/pango/tests/pangocairo/Makefile.in0000644000175000017500000004020411752511071024621 0ustar00wingowingo00000000000000# Makefile.in generated by automake 1.11.5 from Makefile.am. # @configure_input@ # Copyright (C) 1994, 1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, # 2003, 2004, 2005, 2006, 2007, 2008, 2009, 2010, 2011 Free Software # Foundation, Inc. # This Makefile.in is free software; the Free Software Foundation # gives unlimited permission to copy and/or distribute it, # with or without modifications, as long as this notice is preserved. # This program is distributed in the hope that it will be useful, # but WITHOUT ANY WARRANTY, to the extent permitted by law; without # even the implied warranty of MERCHANTABILITY or FITNESS FOR A # PARTICULAR PURPOSE. @SET_MAKE@ # guile-gnome # Copyright (C) 2007, 2011 Free Software Foundation, Inc. # This program is free software; you can redistribute it and/or # modify it under the terms of the GNU General Public License as # published by the Free Software Foundation; either version 2 of # the License, or (at your option) any later version. # This program is distributed in the hope that it will be useful, # but WITHOUT ANY WARRANTY; without even the implied warranty of # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the # GNU General Public License for more details. # You should have received a copy of the GNU General Public License # along with this program; if not, contact: # Free Software Foundation Voice: +1-617-542-5942 # 59 Temple Place - Suite 330 Fax: +1-617-542-2652 # Boston, MA 02111-1307, USA gnu@gnu.org VPATH = @srcdir@ am__make_dryrun = \ { \ am__dry=no; \ case $$MAKEFLAGS in \ *\\[\ \ ]*) \ echo 'am--echo: ; @echo "AM" OK' | $(MAKE) -f - 2>/dev/null \ | grep '^AM OK$$' >/dev/null || am__dry=yes;; \ *) \ for am__flg in $$MAKEFLAGS; do \ case $$am__flg in \ *=*|--*) ;; \ *n*) am__dry=yes; break;; \ esac; \ done;; \ esac; \ test $$am__dry = yes; \ } pkgdatadir = $(datadir)/@PACKAGE@ pkgincludedir = $(includedir)/@PACKAGE@ pkglibdir = $(libdir)/@PACKAGE@ pkglibexecdir = $(libexecdir)/@PACKAGE@ am__cd = CDPATH="$${ZSH_VERSION+.}$(PATH_SEPARATOR)" && cd install_sh_DATA = $(install_sh) -c -m 644 install_sh_PROGRAM = $(install_sh) -c install_sh_SCRIPT = $(install_sh) -c INSTALL_HEADER = $(INSTALL_DATA) transform = $(program_transform_name) NORMAL_INSTALL = : PRE_INSTALL = : POST_INSTALL = : NORMAL_UNINSTALL = : PRE_UNINSTALL = : POST_UNINSTALL = : build_triplet = @build@ host_triplet = @host@ DIST_COMMON = $(srcdir)/../../../tests.mk $(srcdir)/Makefile.am \ $(srcdir)/Makefile.in subdir = pango/tests/pangocairo ACLOCAL_M4 = $(top_srcdir)/aclocal.m4 am__aclocal_m4_deps = $(top_srcdir)/configure.ac am__configure_deps = $(am__aclocal_m4_deps) $(CONFIGURE_DEPENDENCIES) \ $(ACLOCAL_M4) mkinstalldirs = $(install_sh) -d CONFIG_HEADER = $(top_builddir)/config.h CONFIG_CLEAN_FILES = CONFIG_CLEAN_VPATH_FILES = SOURCES = DIST_SOURCES = am__can_run_installinfo = \ case $$AM_UPDATE_INFO_DIR in \ n|no|NO) false;; \ *) (install-info --version) >/dev/null 2>&1;; \ esac am__tty_colors = \ red=; grn=; lgn=; blu=; std= DISTFILES = $(DIST_COMMON) $(DIST_SOURCES) $(TEXINFOS) $(EXTRA_DIST) ACLOCAL = @ACLOCAL@ AG_PKG_CONFIG_PATH = @AG_PKG_CONFIG_PATH@ AMTAR = @AMTAR@ API_VERSION = @API_VERSION@ AR = @AR@ ATK_CFLAGS = @ATK_CFLAGS@ ATK_LIBS = @ATK_LIBS@ AUTOCONF = @AUTOCONF@ AUTOHEADER = @AUTOHEADER@ AUTOMAKE = @AUTOMAKE@ AWK = @AWK@ BONOBO_IDL_DIR = @BONOBO_IDL_DIR@ CANVAS_CFLAGS = @CANVAS_CFLAGS@ CANVAS_LIBS = @CANVAS_LIBS@ CC = @CC@ CCDEPMODE = @CCDEPMODE@ CFLAGS = @CFLAGS@ CORBA_CFLAGS = @CORBA_CFLAGS@ CORBA_LIBS = @CORBA_LIBS@ CPP = @CPP@ CPPFLAGS = @CPPFLAGS@ CYGPATH_W = @CYGPATH_W@ DEFS = @DEFS@ DEPDIR = @DEPDIR@ DLLTOOL = @DLLTOOL@ DSYMUTIL = @DSYMUTIL@ DUMPBIN = @DUMPBIN@ ECHO_C = @ECHO_C@ ECHO_N = @ECHO_N@ ECHO_T = @ECHO_T@ EGREP = @EGREP@ EXEEXT = @EXEEXT@ FGREP = @FGREP@ GCONF_CFLAGS = @GCONF_CFLAGS@ GCONF_LIBS = @GCONF_LIBS@ GDK_CFLAGS = @GDK_CFLAGS@ GDK_LIBS = @GDK_LIBS@ GDK_PIXBUF_CFLAGS = @GDK_PIXBUF_CFLAGS@ GDK_PIXBUF_LIBS = @GDK_PIXBUF_LIBS@ GLIB_CFLAGS = @GLIB_CFLAGS@ GLIB_LIBS = @GLIB_LIBS@ GNOMEUI_DEPRECATION_FLAGS = @GNOMEUI_DEPRECATION_FLAGS@ GNOME_VFS_CFLAGS = @GNOME_VFS_CFLAGS@ GNOME_VFS_DEPRECATED_CFLAGS = @GNOME_VFS_DEPRECATED_CFLAGS@ GNOME_VFS_LIBS = @GNOME_VFS_LIBS@ GOBJECT_CFLAGS = @GOBJECT_CFLAGS@ GOBJECT_LIBS = @GOBJECT_LIBS@ GREP = @GREP@ GTHREAD_CFLAGS = @GTHREAD_CFLAGS@ GTHREAD_LIBS = @GTHREAD_LIBS@ GTK_CFLAGS = @GTK_CFLAGS@ GTK_DEPRECATED_CFLAGS = @GTK_DEPRECATED_CFLAGS@ GTK_LIBS = @GTK_LIBS@ GUILE_CAIRO_CFLAGS = @GUILE_CAIRO_CFLAGS@ GUILE_CAIRO_LIBS = @GUILE_CAIRO_LIBS@ GUILE_CFLAGS = @GUILE_CFLAGS@ GUILE_EFFECTIVE_VERSION = @GUILE_EFFECTIVE_VERSION@ GUILE_GLIB_CFLAGS = @GUILE_GLIB_CFLAGS@ GUILE_GLIB_LIBS = @GUILE_GLIB_LIBS@ GUILE_LIBS = @GUILE_LIBS@ G_WRAP_CFLAGS = @G_WRAP_CFLAGS@ G_WRAP_LIBS = @G_WRAP_LIBS@ G_WRAP_LIB_DIR = @G_WRAP_LIB_DIR@ G_WRAP_MODULE_DIR = @G_WRAP_MODULE_DIR@ INSTALL = @INSTALL@ INSTALL_DATA = @INSTALL_DATA@ INSTALL_PROGRAM = @INSTALL_PROGRAM@ INSTALL_SCRIPT = @INSTALL_SCRIPT@ INSTALL_STRIP_PROGRAM = @INSTALL_STRIP_PROGRAM@ LD = @LD@ LDFLAGS = @LDFLAGS@ LIBGLADE_CFLAGS = @LIBGLADE_CFLAGS@ LIBGLADE_LIBS = @LIBGLADE_LIBS@ LIBGNOMEUI_CFLAGS = @LIBGNOMEUI_CFLAGS@ LIBGNOMEUI_LIBS = @LIBGNOMEUI_LIBS@ LIBGNOME_CFLAGS = @LIBGNOME_CFLAGS@ LIBGNOME_LIBS = @LIBGNOME_LIBS@ LIBOBJS = @LIBOBJS@ LIBS = @LIBS@ LIBTOOL = @LIBTOOL@ LIPO = @LIPO@ LN_S = @LN_S@ LTLIBOBJS = @LTLIBOBJS@ MAKEINFO = @MAKEINFO@ MANIFEST_TOOL = @MANIFEST_TOOL@ MKDIR_P = @MKDIR_P@ NM = @NM@ NMEDIT = @NMEDIT@ OBJDUMP = @OBJDUMP@ OBJEXT = @OBJEXT@ ORBIT_IDL = @ORBIT_IDL@ OTOOL = @OTOOL@ OTOOL64 = @OTOOL64@ PACKAGE = @PACKAGE@ PACKAGE_BUGREPORT = @PACKAGE_BUGREPORT@ PACKAGE_NAME = @PACKAGE_NAME@ PACKAGE_STRING = @PACKAGE_STRING@ PACKAGE_TARNAME = @PACKAGE_TARNAME@ PACKAGE_URL = @PACKAGE_URL@ PACKAGE_VERSION = @PACKAGE_VERSION@ PANGOCAIRO_CFLAGS = @PANGOCAIRO_CFLAGS@ PANGOCAIRO_LIBS = @PANGOCAIRO_LIBS@ PANGO_CFLAGS = @PANGO_CFLAGS@ PANGO_LIBS = @PANGO_LIBS@ PATH_SEPARATOR = @PATH_SEPARATOR@ PKG_CONFIG = @PKG_CONFIG@ PKG_CONFIG_LIBDIR = @PKG_CONFIG_LIBDIR@ PKG_CONFIG_PATH = @PKG_CONFIG_PATH@ RANLIB = @RANLIB@ SED = @SED@ SET_MAKE = @SET_MAKE@ SHELL = @SHELL@ STRIP = @STRIP@ VERSION = @VERSION@ WARN_CFLAGS = @WARN_CFLAGS@ abs_builddir = @abs_builddir@ abs_srcdir = @abs_srcdir@ abs_top_builddir = @abs_top_builddir@ abs_top_srcdir = @abs_top_srcdir@ ac_ct_AR = @ac_ct_AR@ ac_ct_CC = @ac_ct_CC@ ac_ct_DUMPBIN = @ac_ct_DUMPBIN@ am__include = @am__include@ am__leading_dot = @am__leading_dot@ am__quote = @am__quote@ am__tar = @am__tar@ am__untar = @am__untar@ bindir = @bindir@ build = @build@ build_alias = @build_alias@ build_cpu = @build_cpu@ build_os = @build_os@ build_vendor = @build_vendor@ builddir = @builddir@ datadir = @datadir@ datarootdir = @datarootdir@ docdir = @docdir@ dvidir = @dvidir@ exec_prefix = @exec_prefix@ host = @host@ host_alias = @host_alias@ host_cpu = @host_cpu@ host_os = @host_os@ host_vendor = @host_vendor@ htmldir = @htmldir@ includedir = @includedir@ infodir = @infodir@ install_sh = @install_sh@ libdir = @libdir@ libexecdir = @libexecdir@ localedir = @localedir@ localstatedir = @localstatedir@ mandir = @mandir@ mkdir_p = @mkdir_p@ oldincludedir = @oldincludedir@ pdfdir = @pdfdir@ prefix = @prefix@ program_transform_name = @program_transform_name@ psdir = @psdir@ sbindir = @sbindir@ sharedstatedir = @sharedstatedir@ srcdir = @srcdir@ sysconfdir = @sysconfdir@ target_alias = @target_alias@ top_build_prefix = @top_build_prefix@ top_builddir = @top_builddir@ top_srcdir = @top_srcdir@ # # Makefile snippet # EXTRA_DIST = wrapset.api wrapset.scm wrapset_stem = pangocairo top_module_name = gw_module_name = (gnome gw $(wrapset_stem)) extra_module_names = wrapset_modules = ($(top_module_name) $(gw_module_name) $(extra_module_names)) WRAPSET_TESTS_ENV = WRAPSET_MODULES="$(wrapset_modules)" WRAPSET_API_FILE=$(srcdir)/wrapset.api DEV_ENV = $(top_builddir)/dev-environ GUILE = guile TESTS_ENVIRONMENT = $(WRAPSET_TESTS_ENV) $(DEV_ENV) $(GUILE) $(GUILE_FLAGS) -e main -s TESTS = wrapset.scm all: all-am .SUFFIXES: $(srcdir)/Makefile.in: $(srcdir)/Makefile.am $(srcdir)/../../../tests.mk $(am__configure_deps) @for dep in $?; do \ case '$(am__configure_deps)' in \ *$$dep*) \ ( cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh ) \ && { if test -f $@; then exit 0; else break; fi; }; \ exit 1;; \ esac; \ done; \ echo ' cd $(top_srcdir) && $(AUTOMAKE) --gnu pango/tests/pangocairo/Makefile'; \ $(am__cd) $(top_srcdir) && \ $(AUTOMAKE) --gnu pango/tests/pangocairo/Makefile .PRECIOUS: Makefile Makefile: $(srcdir)/Makefile.in $(top_builddir)/config.status @case '$?' in \ *config.status*) \ cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh;; \ *) \ echo ' cd $(top_builddir) && $(SHELL) ./config.status $(subdir)/$@ $(am__depfiles_maybe)'; \ cd $(top_builddir) && $(SHELL) ./config.status $(subdir)/$@ $(am__depfiles_maybe);; \ esac; $(srcdir)/../../../tests.mk: $(top_builddir)/config.status: $(top_srcdir)/configure $(CONFIG_STATUS_DEPENDENCIES) cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh $(top_srcdir)/configure: $(am__configure_deps) cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh $(ACLOCAL_M4): $(am__aclocal_m4_deps) cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh $(am__aclocal_m4_deps): mostlyclean-libtool: -rm -f *.lo clean-libtool: -rm -rf .libs _libs tags: TAGS TAGS: ctags: CTAGS CTAGS: check-TESTS: $(TESTS) @failed=0; all=0; xfail=0; xpass=0; skip=0; \ srcdir=$(srcdir); export srcdir; \ list=' $(TESTS) '; \ $(am__tty_colors); \ if test -n "$$list"; then \ for tst in $$list; do \ if test -f ./$$tst; then dir=./; \ elif test -f $$tst; then dir=; \ else dir="$(srcdir)/"; fi; \ if $(TESTS_ENVIRONMENT) $${dir}$$tst; then \ all=`expr $$all + 1`; \ case " $(XFAIL_TESTS) " in \ *[\ \ ]$$tst[\ \ ]*) \ xpass=`expr $$xpass + 1`; \ failed=`expr $$failed + 1`; \ col=$$red; res=XPASS; \ ;; \ *) \ col=$$grn; res=PASS; \ ;; \ esac; \ elif test $$? -ne 77; then \ all=`expr $$all + 1`; \ case " $(XFAIL_TESTS) " in \ *[\ \ ]$$tst[\ \ ]*) \ xfail=`expr $$xfail + 1`; \ col=$$lgn; res=XFAIL; \ ;; \ *) \ failed=`expr $$failed + 1`; \ col=$$red; res=FAIL; \ ;; \ esac; \ else \ skip=`expr $$skip + 1`; \ col=$$blu; res=SKIP; \ fi; \ echo "$${col}$$res$${std}: $$tst"; \ done; \ if test "$$all" -eq 1; then \ tests="test"; \ All=""; \ else \ tests="tests"; \ All="All "; \ fi; \ if test "$$failed" -eq 0; then \ if test "$$xfail" -eq 0; then \ banner="$$All$$all $$tests passed"; \ else \ if test "$$xfail" -eq 1; then failures=failure; else failures=failures; fi; \ banner="$$All$$all $$tests behaved as expected ($$xfail expected $$failures)"; \ fi; \ else \ if test "$$xpass" -eq 0; then \ banner="$$failed of $$all $$tests failed"; \ else \ if test "$$xpass" -eq 1; then passes=pass; else passes=passes; fi; \ banner="$$failed of $$all $$tests did not behave as expected ($$xpass unexpected $$passes)"; \ fi; \ fi; \ dashes="$$banner"; \ skipped=""; \ if test "$$skip" -ne 0; then \ if test "$$skip" -eq 1; then \ skipped="($$skip test was not run)"; \ else \ skipped="($$skip tests were not run)"; \ fi; \ test `echo "$$skipped" | wc -c` -le `echo "$$banner" | wc -c` || \ dashes="$$skipped"; \ fi; \ report=""; \ if test "$$failed" -ne 0 && test -n "$(PACKAGE_BUGREPORT)"; then \ report="Please report to $(PACKAGE_BUGREPORT)"; \ test `echo "$$report" | wc -c` -le `echo "$$banner" | wc -c` || \ dashes="$$report"; \ fi; \ dashes=`echo "$$dashes" | sed s/./=/g`; \ if test "$$failed" -eq 0; then \ col="$$grn"; \ else \ col="$$red"; \ fi; \ echo "$${col}$$dashes$${std}"; \ echo "$${col}$$banner$${std}"; \ test -z "$$skipped" || echo "$${col}$$skipped$${std}"; \ test -z "$$report" || echo "$${col}$$report$${std}"; \ echo "$${col}$$dashes$${std}"; \ test "$$failed" -eq 0; \ else :; fi distdir: $(DISTFILES) @srcdirstrip=`echo "$(srcdir)" | sed 's/[].[^$$\\*]/\\\\&/g'`; \ topsrcdirstrip=`echo "$(top_srcdir)" | sed 's/[].[^$$\\*]/\\\\&/g'`; \ list='$(DISTFILES)'; \ dist_files=`for file in $$list; do echo $$file; done | \ sed -e "s|^$$srcdirstrip/||;t" \ -e "s|^$$topsrcdirstrip/|$(top_builddir)/|;t"`; \ case $$dist_files in \ */*) $(MKDIR_P) `echo "$$dist_files" | \ sed '/\//!d;s|^|$(distdir)/|;s,/[^/]*$$,,' | \ sort -u` ;; \ esac; \ for file in $$dist_files; do \ if test -f $$file || test -d $$file; then d=.; else d=$(srcdir); fi; \ if test -d $$d/$$file; then \ dir=`echo "/$$file" | sed -e 's,/[^/]*$$,,'`; \ if test -d "$(distdir)/$$file"; then \ find "$(distdir)/$$file" -type d ! -perm -700 -exec chmod u+rwx {} \;; \ fi; \ if test -d $(srcdir)/$$file && test $$d != $(srcdir); then \ cp -fpR $(srcdir)/$$file "$(distdir)$$dir" || exit 1; \ find "$(distdir)/$$file" -type d ! -perm -700 -exec chmod u+rwx {} \;; \ fi; \ cp -fpR $$d/$$file "$(distdir)$$dir" || exit 1; \ else \ test -f "$(distdir)/$$file" \ || cp -p $$d/$$file "$(distdir)/$$file" \ || exit 1; \ fi; \ done check-am: all-am $(MAKE) $(AM_MAKEFLAGS) check-TESTS check: check-am all-am: Makefile installdirs: install: install-am install-exec: install-exec-am install-data: install-data-am uninstall: uninstall-am install-am: all-am @$(MAKE) $(AM_MAKEFLAGS) install-exec-am install-data-am installcheck: installcheck-am install-strip: if test -z '$(STRIP)'; then \ $(MAKE) $(AM_MAKEFLAGS) INSTALL_PROGRAM="$(INSTALL_STRIP_PROGRAM)" \ install_sh_PROGRAM="$(INSTALL_STRIP_PROGRAM)" INSTALL_STRIP_FLAG=-s \ install; \ else \ $(MAKE) $(AM_MAKEFLAGS) INSTALL_PROGRAM="$(INSTALL_STRIP_PROGRAM)" \ install_sh_PROGRAM="$(INSTALL_STRIP_PROGRAM)" INSTALL_STRIP_FLAG=-s \ "INSTALL_PROGRAM_ENV=STRIPPROG='$(STRIP)'" install; \ fi mostlyclean-generic: clean-generic: distclean-generic: -test -z "$(CONFIG_CLEAN_FILES)" || rm -f $(CONFIG_CLEAN_FILES) -test . = "$(srcdir)" || test -z "$(CONFIG_CLEAN_VPATH_FILES)" || rm -f $(CONFIG_CLEAN_VPATH_FILES) maintainer-clean-generic: @echo "This command is intended for maintainers to use" @echo "it deletes files that may require special tools to rebuild." clean: clean-am clean-am: clean-generic clean-libtool mostlyclean-am distclean: distclean-am -rm -f Makefile distclean-am: clean-am distclean-generic dvi: dvi-am dvi-am: html: html-am html-am: info: info-am info-am: install-data-am: install-dvi: install-dvi-am install-dvi-am: install-exec-am: install-html: install-html-am install-html-am: install-info: install-info-am install-info-am: install-man: install-pdf: install-pdf-am install-pdf-am: install-ps: install-ps-am install-ps-am: installcheck-am: maintainer-clean: maintainer-clean-am -rm -f Makefile maintainer-clean-am: distclean-am maintainer-clean-generic mostlyclean: mostlyclean-am mostlyclean-am: mostlyclean-generic mostlyclean-libtool pdf: pdf-am pdf-am: ps: ps-am ps-am: uninstall-am: .MAKE: check-am install-am install-strip .PHONY: all all-am check check-TESTS check-am clean clean-generic \ clean-libtool distclean distclean-generic distclean-libtool \ distdir dvi dvi-am html html-am info info-am install \ install-am install-data install-data-am install-dvi \ install-dvi-am install-exec install-exec-am install-html \ install-html-am install-info install-info-am install-man \ install-pdf install-pdf-am install-ps install-ps-am \ install-strip installcheck installcheck-am installdirs \ maintainer-clean maintainer-clean-generic mostlyclean \ mostlyclean-generic mostlyclean-libtool pdf pdf-am ps ps-am \ uninstall uninstall-am wrapset.api.update: $(WRAPSET_TESTS_ENV) $(DEV_ENV) $(GUILE) -e update-api -s $(srcdir)/wrapset.scm %.check: % $(TESTS_ENVIRONMENT) $(srcdir)/$* # Tell versions [3.59,3.63) of GNU make to not export all variables. # Otherwise a system limit (for SysV at least) may be exceeded. .NOEXPORT: guile-gnome-platform-2.16.2/pango/tests/pangocairo/wrapset.api0000644000175000017500000000513411670374303024743 0ustar00wingowingo00000000000000(module-api (version 1 0) ((gnome gobject generics) (uses-interfaces) (typed-exports (block generic ( )) (connect generic ( )) (connect-after generic ( )) (connected? generic ( )) (create-signal generic ( )) (disconnect generic ( )) (emit generic ( . )) (find-property generic ( )) (get generic ( )) (get-properties generic ()) (get-property-names generic ()) (get-signals generic ()) (invoke generic ( . )) (set generic ( )) (unblock generic ( )))) ((gnome gw generics) (uses-interfaces (gnome gobject generics)) (typed-exports)) ((gnome gw pangocairo) (uses-interfaces (gnome gw generics)) (typed-exports (pango-cairo-context-get-font-options procedure (arity 1 0 #f)) (pango-cairo-context-get-resolution procedure (arity 0 0 #t)) (pango-cairo-context-set-font-options procedure (arity 2 0 #f)) (pango-cairo-context-set-resolution procedure (arity 0 0 #t)) (pango-cairo-create-layout procedure (arity 1 0 #f)) (pango-cairo-error-underline-path procedure (arity 5 0 #f)) (pango-cairo-font-map-create-context procedure (arity 0 0 #t)) (pango-cairo-font-map-get-default procedure (arity 0 0 #t)) (pango-cairo-font-map-get-resolution procedure (arity 0 0 #t)) (pango-cairo-font-map-new procedure (arity 0 0 #t)) (pango-cairo-font-map-set-resolution procedure (arity 0 0 #t)) (pango-cairo-glyph-string-path procedure (arity 3 0 #f)) (pango-cairo-layout-line-path procedure (arity 2 0 #f)) (pango-cairo-layout-path procedure (arity 2 0 #f)) (pango-cairo-show-error-underline procedure (arity 5 0 #f)) (pango-cairo-show-glyph-string procedure (arity 3 0 #f)) (pango-cairo-show-layout procedure (arity 2 0 #f)) (pango-cairo-show-layout-line procedure (arity 2 0 #f)) (pango-cairo-update-context procedure (arity 2 0 #f)) (pango-cairo-update-layout procedure (arity 2 0 #f))))) guile-gnome-platform-2.16.2/pango/tests/Makefile.am0000644000175000017500000000003111670374303022464 0ustar00wingowingo00000000000000SUBDIRS=pango pangocairo guile-gnome-platform-2.16.2/pango/tests/Makefile.in0000644000175000017500000004525611752511070022512 0ustar00wingowingo00000000000000# Makefile.in generated by automake 1.11.5 from Makefile.am. # @configure_input@ # Copyright (C) 1994, 1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, # 2003, 2004, 2005, 2006, 2007, 2008, 2009, 2010, 2011 Free Software # Foundation, Inc. # This Makefile.in is free software; the Free Software Foundation # gives unlimited permission to copy and/or distribute it, # with or without modifications, as long as this notice is preserved. # This program is distributed in the hope that it will be useful, # but WITHOUT ANY WARRANTY, to the extent permitted by law; without # even the implied warranty of MERCHANTABILITY or FITNESS FOR A # PARTICULAR PURPOSE. @SET_MAKE@ VPATH = @srcdir@ am__make_dryrun = \ { \ am__dry=no; \ case $$MAKEFLAGS in \ *\\[\ \ ]*) \ echo 'am--echo: ; @echo "AM" OK' | $(MAKE) -f - 2>/dev/null \ | grep '^AM OK$$' >/dev/null || am__dry=yes;; \ *) \ for am__flg in $$MAKEFLAGS; do \ case $$am__flg in \ *=*|--*) ;; \ *n*) am__dry=yes; break;; \ esac; \ done;; \ esac; \ test $$am__dry = yes; \ } pkgdatadir = $(datadir)/@PACKAGE@ pkgincludedir = $(includedir)/@PACKAGE@ pkglibdir = $(libdir)/@PACKAGE@ pkglibexecdir = $(libexecdir)/@PACKAGE@ am__cd = CDPATH="$${ZSH_VERSION+.}$(PATH_SEPARATOR)" && cd install_sh_DATA = $(install_sh) -c -m 644 install_sh_PROGRAM = $(install_sh) -c install_sh_SCRIPT = $(install_sh) -c INSTALL_HEADER = $(INSTALL_DATA) transform = $(program_transform_name) NORMAL_INSTALL = : PRE_INSTALL = : POST_INSTALL = : NORMAL_UNINSTALL = : PRE_UNINSTALL = : POST_UNINSTALL = : build_triplet = @build@ host_triplet = @host@ subdir = pango/tests DIST_COMMON = $(srcdir)/Makefile.am $(srcdir)/Makefile.in ACLOCAL_M4 = $(top_srcdir)/aclocal.m4 am__aclocal_m4_deps = $(top_srcdir)/configure.ac am__configure_deps = $(am__aclocal_m4_deps) $(CONFIGURE_DEPENDENCIES) \ $(ACLOCAL_M4) mkinstalldirs = $(install_sh) -d CONFIG_HEADER = $(top_builddir)/config.h CONFIG_CLEAN_FILES = CONFIG_CLEAN_VPATH_FILES = SOURCES = DIST_SOURCES = RECURSIVE_TARGETS = all-recursive check-recursive dvi-recursive \ html-recursive info-recursive install-data-recursive \ install-dvi-recursive install-exec-recursive \ install-html-recursive install-info-recursive \ install-pdf-recursive install-ps-recursive install-recursive \ installcheck-recursive installdirs-recursive pdf-recursive \ ps-recursive uninstall-recursive am__can_run_installinfo = \ case $$AM_UPDATE_INFO_DIR in \ n|no|NO) false;; \ *) (install-info --version) >/dev/null 2>&1;; \ esac RECURSIVE_CLEAN_TARGETS = mostlyclean-recursive clean-recursive \ distclean-recursive maintainer-clean-recursive AM_RECURSIVE_TARGETS = $(RECURSIVE_TARGETS:-recursive=) \ $(RECURSIVE_CLEAN_TARGETS:-recursive=) tags TAGS ctags CTAGS \ distdir ETAGS = etags CTAGS = ctags DIST_SUBDIRS = $(SUBDIRS) DISTFILES = $(DIST_COMMON) $(DIST_SOURCES) $(TEXINFOS) $(EXTRA_DIST) am__relativize = \ dir0=`pwd`; \ sed_first='s,^\([^/]*\)/.*$$,\1,'; \ sed_rest='s,^[^/]*/*,,'; \ sed_last='s,^.*/\([^/]*\)$$,\1,'; \ sed_butlast='s,/*[^/]*$$,,'; \ while test -n "$$dir1"; do \ first=`echo "$$dir1" | sed -e "$$sed_first"`; \ if test "$$first" != "."; then \ if test "$$first" = ".."; then \ dir2=`echo "$$dir0" | sed -e "$$sed_last"`/"$$dir2"; \ dir0=`echo "$$dir0" | sed -e "$$sed_butlast"`; \ else \ first2=`echo "$$dir2" | sed -e "$$sed_first"`; \ if test "$$first2" = "$$first"; then \ dir2=`echo "$$dir2" | sed -e "$$sed_rest"`; \ else \ dir2="../$$dir2"; \ fi; \ dir0="$$dir0"/"$$first"; \ fi; \ fi; \ dir1=`echo "$$dir1" | sed -e "$$sed_rest"`; \ done; \ reldir="$$dir2" ACLOCAL = @ACLOCAL@ AG_PKG_CONFIG_PATH = @AG_PKG_CONFIG_PATH@ AMTAR = @AMTAR@ API_VERSION = @API_VERSION@ AR = @AR@ ATK_CFLAGS = @ATK_CFLAGS@ ATK_LIBS = @ATK_LIBS@ AUTOCONF = @AUTOCONF@ AUTOHEADER = @AUTOHEADER@ AUTOMAKE = @AUTOMAKE@ AWK = @AWK@ BONOBO_IDL_DIR = @BONOBO_IDL_DIR@ CANVAS_CFLAGS = @CANVAS_CFLAGS@ CANVAS_LIBS = @CANVAS_LIBS@ CC = @CC@ CCDEPMODE = @CCDEPMODE@ CFLAGS = @CFLAGS@ CORBA_CFLAGS = @CORBA_CFLAGS@ CORBA_LIBS = @CORBA_LIBS@ CPP = @CPP@ CPPFLAGS = @CPPFLAGS@ CYGPATH_W = @CYGPATH_W@ DEFS = @DEFS@ DEPDIR = @DEPDIR@ DLLTOOL = @DLLTOOL@ DSYMUTIL = @DSYMUTIL@ DUMPBIN = @DUMPBIN@ ECHO_C = @ECHO_C@ ECHO_N = @ECHO_N@ ECHO_T = @ECHO_T@ EGREP = @EGREP@ EXEEXT = @EXEEXT@ FGREP = @FGREP@ GCONF_CFLAGS = @GCONF_CFLAGS@ GCONF_LIBS = @GCONF_LIBS@ GDK_CFLAGS = @GDK_CFLAGS@ GDK_LIBS = @GDK_LIBS@ GDK_PIXBUF_CFLAGS = @GDK_PIXBUF_CFLAGS@ GDK_PIXBUF_LIBS = @GDK_PIXBUF_LIBS@ GLIB_CFLAGS = @GLIB_CFLAGS@ GLIB_LIBS = @GLIB_LIBS@ GNOMEUI_DEPRECATION_FLAGS = @GNOMEUI_DEPRECATION_FLAGS@ GNOME_VFS_CFLAGS = @GNOME_VFS_CFLAGS@ GNOME_VFS_DEPRECATED_CFLAGS = @GNOME_VFS_DEPRECATED_CFLAGS@ GNOME_VFS_LIBS = @GNOME_VFS_LIBS@ GOBJECT_CFLAGS = @GOBJECT_CFLAGS@ GOBJECT_LIBS = @GOBJECT_LIBS@ GREP = @GREP@ GTHREAD_CFLAGS = @GTHREAD_CFLAGS@ GTHREAD_LIBS = @GTHREAD_LIBS@ GTK_CFLAGS = @GTK_CFLAGS@ GTK_DEPRECATED_CFLAGS = @GTK_DEPRECATED_CFLAGS@ GTK_LIBS = @GTK_LIBS@ GUILE_CAIRO_CFLAGS = @GUILE_CAIRO_CFLAGS@ GUILE_CAIRO_LIBS = @GUILE_CAIRO_LIBS@ GUILE_CFLAGS = @GUILE_CFLAGS@ GUILE_EFFECTIVE_VERSION = @GUILE_EFFECTIVE_VERSION@ GUILE_GLIB_CFLAGS = @GUILE_GLIB_CFLAGS@ GUILE_GLIB_LIBS = @GUILE_GLIB_LIBS@ GUILE_LIBS = @GUILE_LIBS@ G_WRAP_CFLAGS = @G_WRAP_CFLAGS@ G_WRAP_LIBS = @G_WRAP_LIBS@ G_WRAP_LIB_DIR = @G_WRAP_LIB_DIR@ G_WRAP_MODULE_DIR = @G_WRAP_MODULE_DIR@ INSTALL = @INSTALL@ INSTALL_DATA = @INSTALL_DATA@ INSTALL_PROGRAM = @INSTALL_PROGRAM@ INSTALL_SCRIPT = @INSTALL_SCRIPT@ INSTALL_STRIP_PROGRAM = @INSTALL_STRIP_PROGRAM@ LD = @LD@ LDFLAGS = @LDFLAGS@ LIBGLADE_CFLAGS = @LIBGLADE_CFLAGS@ LIBGLADE_LIBS = @LIBGLADE_LIBS@ LIBGNOMEUI_CFLAGS = @LIBGNOMEUI_CFLAGS@ LIBGNOMEUI_LIBS = @LIBGNOMEUI_LIBS@ LIBGNOME_CFLAGS = @LIBGNOME_CFLAGS@ LIBGNOME_LIBS = @LIBGNOME_LIBS@ LIBOBJS = @LIBOBJS@ LIBS = @LIBS@ LIBTOOL = @LIBTOOL@ LIPO = @LIPO@ LN_S = @LN_S@ LTLIBOBJS = @LTLIBOBJS@ MAKEINFO = @MAKEINFO@ MANIFEST_TOOL = @MANIFEST_TOOL@ MKDIR_P = @MKDIR_P@ NM = @NM@ NMEDIT = @NMEDIT@ OBJDUMP = @OBJDUMP@ OBJEXT = @OBJEXT@ ORBIT_IDL = @ORBIT_IDL@ OTOOL = @OTOOL@ OTOOL64 = @OTOOL64@ PACKAGE = @PACKAGE@ PACKAGE_BUGREPORT = @PACKAGE_BUGREPORT@ PACKAGE_NAME = @PACKAGE_NAME@ PACKAGE_STRING = @PACKAGE_STRING@ PACKAGE_TARNAME = @PACKAGE_TARNAME@ PACKAGE_URL = @PACKAGE_URL@ PACKAGE_VERSION = @PACKAGE_VERSION@ PANGOCAIRO_CFLAGS = @PANGOCAIRO_CFLAGS@ PANGOCAIRO_LIBS = @PANGOCAIRO_LIBS@ PANGO_CFLAGS = @PANGO_CFLAGS@ PANGO_LIBS = @PANGO_LIBS@ PATH_SEPARATOR = @PATH_SEPARATOR@ PKG_CONFIG = @PKG_CONFIG@ PKG_CONFIG_LIBDIR = @PKG_CONFIG_LIBDIR@ PKG_CONFIG_PATH = @PKG_CONFIG_PATH@ RANLIB = @RANLIB@ SED = @SED@ SET_MAKE = @SET_MAKE@ SHELL = @SHELL@ STRIP = @STRIP@ VERSION = @VERSION@ WARN_CFLAGS = @WARN_CFLAGS@ abs_builddir = @abs_builddir@ abs_srcdir = @abs_srcdir@ abs_top_builddir = @abs_top_builddir@ abs_top_srcdir = @abs_top_srcdir@ ac_ct_AR = @ac_ct_AR@ ac_ct_CC = @ac_ct_CC@ ac_ct_DUMPBIN = @ac_ct_DUMPBIN@ am__include = @am__include@ am__leading_dot = @am__leading_dot@ am__quote = @am__quote@ am__tar = @am__tar@ am__untar = @am__untar@ bindir = @bindir@ build = @build@ build_alias = @build_alias@ build_cpu = @build_cpu@ build_os = @build_os@ build_vendor = @build_vendor@ builddir = @builddir@ datadir = @datadir@ datarootdir = @datarootdir@ docdir = @docdir@ dvidir = @dvidir@ exec_prefix = @exec_prefix@ host = @host@ host_alias = @host_alias@ host_cpu = @host_cpu@ host_os = @host_os@ host_vendor = @host_vendor@ htmldir = @htmldir@ includedir = @includedir@ infodir = @infodir@ install_sh = @install_sh@ libdir = @libdir@ libexecdir = @libexecdir@ localedir = @localedir@ localstatedir = @localstatedir@ mandir = @mandir@ mkdir_p = @mkdir_p@ oldincludedir = @oldincludedir@ pdfdir = @pdfdir@ prefix = @prefix@ program_transform_name = @program_transform_name@ psdir = @psdir@ sbindir = @sbindir@ sharedstatedir = @sharedstatedir@ srcdir = @srcdir@ sysconfdir = @sysconfdir@ target_alias = @target_alias@ top_build_prefix = @top_build_prefix@ top_builddir = @top_builddir@ top_srcdir = @top_srcdir@ SUBDIRS = pango pangocairo all: all-recursive .SUFFIXES: $(srcdir)/Makefile.in: $(srcdir)/Makefile.am $(am__configure_deps) @for dep in $?; do \ case '$(am__configure_deps)' in \ *$$dep*) \ ( cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh ) \ && { if test -f $@; then exit 0; else break; fi; }; \ exit 1;; \ esac; \ done; \ echo ' cd $(top_srcdir) && $(AUTOMAKE) --gnu pango/tests/Makefile'; \ $(am__cd) $(top_srcdir) && \ $(AUTOMAKE) --gnu pango/tests/Makefile .PRECIOUS: Makefile Makefile: $(srcdir)/Makefile.in $(top_builddir)/config.status @case '$?' in \ *config.status*) \ cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh;; \ *) \ echo ' cd $(top_builddir) && $(SHELL) ./config.status $(subdir)/$@ $(am__depfiles_maybe)'; \ cd $(top_builddir) && $(SHELL) ./config.status $(subdir)/$@ $(am__depfiles_maybe);; \ esac; $(top_builddir)/config.status: $(top_srcdir)/configure $(CONFIG_STATUS_DEPENDENCIES) cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh $(top_srcdir)/configure: $(am__configure_deps) cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh $(ACLOCAL_M4): $(am__aclocal_m4_deps) cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh $(am__aclocal_m4_deps): mostlyclean-libtool: -rm -f *.lo clean-libtool: -rm -rf .libs _libs # This directory's subdirectories are mostly independent; you can cd # into them and run `make' without going through this Makefile. # To change the values of `make' variables: instead of editing Makefiles, # (1) if the variable is set in `config.status', edit `config.status' # (which will cause the Makefiles to be regenerated when you run `make'); # (2) otherwise, pass the desired values on the `make' command line. $(RECURSIVE_TARGETS): @fail= failcom='exit 1'; \ for f in x $$MAKEFLAGS; do \ case $$f in \ *=* | --[!k]*);; \ *k*) failcom='fail=yes';; \ esac; \ done; \ dot_seen=no; \ target=`echo $@ | sed s/-recursive//`; \ list='$(SUBDIRS)'; for subdir in $$list; do \ echo "Making $$target in $$subdir"; \ if test "$$subdir" = "."; then \ dot_seen=yes; \ local_target="$$target-am"; \ else \ local_target="$$target"; \ fi; \ ($(am__cd) $$subdir && $(MAKE) $(AM_MAKEFLAGS) $$local_target) \ || eval $$failcom; \ done; \ if test "$$dot_seen" = "no"; then \ $(MAKE) $(AM_MAKEFLAGS) "$$target-am" || exit 1; \ fi; test -z "$$fail" $(RECURSIVE_CLEAN_TARGETS): @fail= failcom='exit 1'; \ for f in x $$MAKEFLAGS; do \ case $$f in \ *=* | --[!k]*);; \ *k*) failcom='fail=yes';; \ esac; \ done; \ dot_seen=no; \ case "$@" in \ distclean-* | maintainer-clean-*) list='$(DIST_SUBDIRS)' ;; \ *) list='$(SUBDIRS)' ;; \ esac; \ rev=''; for subdir in $$list; do \ if test "$$subdir" = "."; then :; else \ rev="$$subdir $$rev"; \ fi; \ done; \ rev="$$rev ."; \ target=`echo $@ | sed s/-recursive//`; \ for subdir in $$rev; do \ echo "Making $$target in $$subdir"; \ if test "$$subdir" = "."; then \ local_target="$$target-am"; \ else \ local_target="$$target"; \ fi; \ ($(am__cd) $$subdir && $(MAKE) $(AM_MAKEFLAGS) $$local_target) \ || eval $$failcom; \ done && test -z "$$fail" tags-recursive: list='$(SUBDIRS)'; for subdir in $$list; do \ test "$$subdir" = . || ($(am__cd) $$subdir && $(MAKE) $(AM_MAKEFLAGS) tags); \ done ctags-recursive: list='$(SUBDIRS)'; for subdir in $$list; do \ test "$$subdir" = . || ($(am__cd) $$subdir && $(MAKE) $(AM_MAKEFLAGS) ctags); \ done ID: $(HEADERS) $(SOURCES) $(LISP) $(TAGS_FILES) list='$(SOURCES) $(HEADERS) $(LISP) $(TAGS_FILES)'; \ unique=`for i in $$list; do \ if test -f "$$i"; then echo $$i; else echo $(srcdir)/$$i; fi; \ done | \ $(AWK) '{ files[$$0] = 1; nonempty = 1; } \ END { if (nonempty) { for (i in files) print i; }; }'`; \ mkid -fID $$unique tags: TAGS TAGS: tags-recursive $(HEADERS) $(SOURCES) $(TAGS_DEPENDENCIES) \ $(TAGS_FILES) $(LISP) set x; \ here=`pwd`; \ if ($(ETAGS) --etags-include --version) >/dev/null 2>&1; then \ include_option=--etags-include; \ empty_fix=.; \ else \ include_option=--include; \ empty_fix=; \ fi; \ list='$(SUBDIRS)'; for subdir in $$list; do \ if test "$$subdir" = .; then :; else \ test ! -f $$subdir/TAGS || \ set "$$@" "$$include_option=$$here/$$subdir/TAGS"; \ fi; \ done; \ list='$(SOURCES) $(HEADERS) $(LISP) $(TAGS_FILES)'; \ unique=`for i in $$list; do \ if test -f "$$i"; then echo $$i; else echo $(srcdir)/$$i; fi; \ done | \ $(AWK) '{ files[$$0] = 1; nonempty = 1; } \ END { if (nonempty) { for (i in files) print i; }; }'`; \ shift; \ if test -z "$(ETAGS_ARGS)$$*$$unique"; then :; else \ test -n "$$unique" || unique=$$empty_fix; \ if test $$# -gt 0; then \ $(ETAGS) $(ETAGSFLAGS) $(AM_ETAGSFLAGS) $(ETAGS_ARGS) \ "$$@" $$unique; \ else \ $(ETAGS) $(ETAGSFLAGS) $(AM_ETAGSFLAGS) $(ETAGS_ARGS) \ $$unique; \ fi; \ fi ctags: CTAGS CTAGS: ctags-recursive $(HEADERS) $(SOURCES) $(TAGS_DEPENDENCIES) \ $(TAGS_FILES) $(LISP) list='$(SOURCES) $(HEADERS) $(LISP) $(TAGS_FILES)'; \ unique=`for i in $$list; do \ if test -f "$$i"; then echo $$i; else echo $(srcdir)/$$i; fi; \ done | \ $(AWK) '{ files[$$0] = 1; nonempty = 1; } \ END { if (nonempty) { for (i in files) print i; }; }'`; \ test -z "$(CTAGS_ARGS)$$unique" \ || $(CTAGS) $(CTAGSFLAGS) $(AM_CTAGSFLAGS) $(CTAGS_ARGS) \ $$unique GTAGS: here=`$(am__cd) $(top_builddir) && pwd` \ && $(am__cd) $(top_srcdir) \ && gtags -i $(GTAGS_ARGS) "$$here" distclean-tags: -rm -f TAGS ID GTAGS GRTAGS GSYMS GPATH tags distdir: $(DISTFILES) @srcdirstrip=`echo "$(srcdir)" | sed 's/[].[^$$\\*]/\\\\&/g'`; \ topsrcdirstrip=`echo "$(top_srcdir)" | sed 's/[].[^$$\\*]/\\\\&/g'`; \ list='$(DISTFILES)'; \ dist_files=`for file in $$list; do echo $$file; done | \ sed -e "s|^$$srcdirstrip/||;t" \ -e "s|^$$topsrcdirstrip/|$(top_builddir)/|;t"`; \ case $$dist_files in \ */*) $(MKDIR_P) `echo "$$dist_files" | \ sed '/\//!d;s|^|$(distdir)/|;s,/[^/]*$$,,' | \ sort -u` ;; \ esac; \ for file in $$dist_files; do \ if test -f $$file || test -d $$file; then d=.; else d=$(srcdir); fi; \ if test -d $$d/$$file; then \ dir=`echo "/$$file" | sed -e 's,/[^/]*$$,,'`; \ if test -d "$(distdir)/$$file"; then \ find "$(distdir)/$$file" -type d ! -perm -700 -exec chmod u+rwx {} \;; \ fi; \ if test -d $(srcdir)/$$file && test $$d != $(srcdir); then \ cp -fpR $(srcdir)/$$file "$(distdir)$$dir" || exit 1; \ find "$(distdir)/$$file" -type d ! -perm -700 -exec chmod u+rwx {} \;; \ fi; \ cp -fpR $$d/$$file "$(distdir)$$dir" || exit 1; \ else \ test -f "$(distdir)/$$file" \ || cp -p $$d/$$file "$(distdir)/$$file" \ || exit 1; \ fi; \ done @list='$(DIST_SUBDIRS)'; for subdir in $$list; do \ if test "$$subdir" = .; then :; else \ $(am__make_dryrun) \ || test -d "$(distdir)/$$subdir" \ || $(MKDIR_P) "$(distdir)/$$subdir" \ || exit 1; \ dir1=$$subdir; dir2="$(distdir)/$$subdir"; \ $(am__relativize); \ new_distdir=$$reldir; \ dir1=$$subdir; dir2="$(top_distdir)"; \ $(am__relativize); \ new_top_distdir=$$reldir; \ echo " (cd $$subdir && $(MAKE) $(AM_MAKEFLAGS) top_distdir="$$new_top_distdir" distdir="$$new_distdir" \\"; \ echo " am__remove_distdir=: am__skip_length_check=: am__skip_mode_fix=: distdir)"; \ ($(am__cd) $$subdir && \ $(MAKE) $(AM_MAKEFLAGS) \ top_distdir="$$new_top_distdir" \ distdir="$$new_distdir" \ am__remove_distdir=: \ am__skip_length_check=: \ am__skip_mode_fix=: \ distdir) \ || exit 1; \ fi; \ done check-am: all-am check: check-recursive all-am: Makefile installdirs: installdirs-recursive installdirs-am: install: install-recursive install-exec: install-exec-recursive install-data: install-data-recursive uninstall: uninstall-recursive install-am: all-am @$(MAKE) $(AM_MAKEFLAGS) install-exec-am install-data-am installcheck: installcheck-recursive install-strip: if test -z '$(STRIP)'; then \ $(MAKE) $(AM_MAKEFLAGS) INSTALL_PROGRAM="$(INSTALL_STRIP_PROGRAM)" \ install_sh_PROGRAM="$(INSTALL_STRIP_PROGRAM)" INSTALL_STRIP_FLAG=-s \ install; \ else \ $(MAKE) $(AM_MAKEFLAGS) INSTALL_PROGRAM="$(INSTALL_STRIP_PROGRAM)" \ install_sh_PROGRAM="$(INSTALL_STRIP_PROGRAM)" INSTALL_STRIP_FLAG=-s \ "INSTALL_PROGRAM_ENV=STRIPPROG='$(STRIP)'" install; \ fi mostlyclean-generic: clean-generic: distclean-generic: -test -z "$(CONFIG_CLEAN_FILES)" || rm -f $(CONFIG_CLEAN_FILES) -test . = "$(srcdir)" || test -z "$(CONFIG_CLEAN_VPATH_FILES)" || rm -f $(CONFIG_CLEAN_VPATH_FILES) maintainer-clean-generic: @echo "This command is intended for maintainers to use" @echo "it deletes files that may require special tools to rebuild." clean: clean-recursive clean-am: clean-generic clean-libtool mostlyclean-am distclean: distclean-recursive -rm -f Makefile distclean-am: clean-am distclean-generic distclean-tags dvi: dvi-recursive dvi-am: html: html-recursive html-am: info: info-recursive info-am: install-data-am: install-dvi: install-dvi-recursive install-dvi-am: install-exec-am: install-html: install-html-recursive install-html-am: install-info: install-info-recursive install-info-am: install-man: install-pdf: install-pdf-recursive install-pdf-am: install-ps: install-ps-recursive install-ps-am: installcheck-am: maintainer-clean: maintainer-clean-recursive -rm -f Makefile maintainer-clean-am: distclean-am maintainer-clean-generic mostlyclean: mostlyclean-recursive mostlyclean-am: mostlyclean-generic mostlyclean-libtool pdf: pdf-recursive pdf-am: ps: ps-recursive ps-am: uninstall-am: .MAKE: $(RECURSIVE_CLEAN_TARGETS) $(RECURSIVE_TARGETS) ctags-recursive \ install-am install-strip tags-recursive .PHONY: $(RECURSIVE_CLEAN_TARGETS) $(RECURSIVE_TARGETS) CTAGS GTAGS \ all all-am check check-am clean clean-generic clean-libtool \ ctags ctags-recursive distclean distclean-generic \ distclean-libtool distclean-tags distdir dvi dvi-am html \ html-am info info-am install install-am install-data \ install-data-am install-dvi install-dvi-am install-exec \ install-exec-am install-html install-html-am install-info \ install-info-am install-man install-pdf install-pdf-am \ install-ps install-ps-am install-strip installcheck \ installcheck-am installdirs installdirs-am maintainer-clean \ maintainer-clean-generic mostlyclean mostlyclean-generic \ mostlyclean-libtool pdf pdf-am ps ps-am tags tags-recursive \ uninstall uninstall-am # Tell versions [3.59,3.63) of GNU make to not export all variables. # Otherwise a system limit (for SysV at least) may be exceeded. .NOEXPORT: guile-gnome-platform-2.16.2/pango/gnome/0000755000175000017500000000000011752546501020403 5ustar00wingowingo00000000000000guile-gnome-platform-2.16.2/pango/gnome/gw/0000755000175000017500000000000011752546501021020 5ustar00wingowingo00000000000000guile-gnome-platform-2.16.2/pango/gnome/gw/pangocairo-spec.scm0000644000175000017500000000357111670374303024602 0ustar00wingowingo00000000000000;; guile-gnome ;; Copyright (C) 2003,2004,2007 Andy Wingo ;; This program is free software; you can redistribute it and/or ;; modify it under the terms of the GNU General Public License as ;; published by the Free Software Foundation; either version 2 of ;; the License, or (at your option) any later version. ;; ;; This program is distributed in the hope that it will be useful, ;; but WITHOUT ANY WARRANTY; without even the implied warranty of ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the ;; GNU General Public License for more details. ;; ;; You should have received a copy of the GNU General Public License ;; along with this program; if not, contact: ;; ;; Free Software Foundation Voice: +1-617-542-5942 ;; 59 Temple Place - Suite 330 Fax: +1-617-542-2652 ;; Boston, MA 02111-1307, USA gnu@gnu.org ;;; Commentary: ;; ;;g-wrap specification for pangocairo. ;; ;;; Code: (define-module (gnome gw pangocairo-spec) #:use-module (oop goops) #:use-module (gnome gw support g-wrap) #:use-module (gnome gw pango-spec) #:use-module (gnome gw cairo-spec) #:use-module (gnome gw support gobject) #:use-module (gnome gw support defs)) (define-class () guile #:id 'gnome-pangocairo #:dependencies '(standard gnome-glib gnome-gobject gnome-cairo gnome-pango)) (define-method (global-declarations-cg (self )) (list (next-method) "#include \n")) (define-method (initialize (ws ) initargs) (next-method ws (cons #:module (cons '(gnome gw pangocairo) initargs))) (load-defs-with-overrides ws "gnome/defs/pangocairo.defs")) guile-gnome-platform-2.16.2/pango/gnome/gw/pango-support.c0000644000175000017500000000357011670374303024005 0ustar00wingowingo00000000000000/* guile-gnome * Copyright (C) 2007, 2010 Andy Wingo * * pango-support.c: Support routines for the Pango wrapper * * This program is free software; you can redistribute it and/or * modify it under the terms of the GNU General Public License as * published by the Free Software Foundation; either version 2 of * the License, or (at your option) any later version. * * This program is distributed in the hope that it will be useful, * but WITHOUT ANY WARRANTY; without even the implied warranty of * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the * GNU General Public License for more details. * * You should have received a copy of the GNU General Public License * along with this program; if not, contact: * * Free Software Foundation Voice: +1-617-542-5942 * 59 Temple Place - Suite 330 Fax: +1-617-542-2652 * Boston, MA 02111-1307, USA gnu@gnu.org */ #include #include "guile-gnome-gobject.h" #include "pango-support.h" SCM scm_pango_rectangle_to_scm (PangoRectangle *rect) { SCM ret = scm_c_make_vector (4, SCM_BOOL_F); scm_c_vector_set_x (ret, 0, scm_from_int (rect->x)); scm_c_vector_set_x (ret, 1, scm_from_int (rect->y)); scm_c_vector_set_x (ret, 2, scm_from_int (rect->width)); scm_c_vector_set_x (ret, 3, scm_from_int (rect->height)); return ret; } void scm_scm_to_pango_rectangle (SCM scm, PangoRectangle* rect) #define FUNC_NAME "%scm->pango-rectangle" { #define GET_VINT(v,i) \ scm_to_int (scm_c_vector_ref (v, i)); rect->x = GET_VINT (scm, 0); rect->y = GET_VINT (scm, 1); rect->width = GET_VINT (scm, 2); rect->height = GET_VINT (scm, 3); } #undef FUNC_NAME guile-gnome-platform-2.16.2/pango/gnome/gw/pango-spec.scm0000644000175000017500000000470111670374303023560 0ustar00wingowingo00000000000000;; guile-gnome ;; Copyright (C) 2003,2004,2007 Andy Wingo ;; This program is free software; you can redistribute it and/or ;; modify it under the terms of the GNU General Public License as ;; published by the Free Software Foundation; either version 2 of ;; the License, or (at your option) any later version. ;; ;; This program is distributed in the hope that it will be useful, ;; but WITHOUT ANY WARRANTY; without even the implied warranty of ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the ;; GNU General Public License for more details. ;; ;; You should have received a copy of the GNU General Public License ;; along with this program; if not, contact: ;; ;; Free Software Foundation Voice: +1-617-542-5942 ;; 59 Temple Place - Suite 330 Fax: +1-617-542-2652 ;; Boston, MA 02111-1307, USA gnu@gnu.org ;;; Commentary: ;; ;;g-wrap specification for Pango. ;; ;;; Code: (define-module (gnome gw pango-spec) #:use-module (oop goops) #:use-module (gnome gw support g-wrap) #:use-module (gnome gw glib-spec) #:use-module (gnome gw gobject-spec) #:use-module (gnome gw support gobject) #:use-module (gnome gw support defs)) (define-class () guile #:id 'gnome-pango #:dependencies '(standard gnome-glib gnome-gobject)) (define-method (global-declarations-cg (self )) (list (next-method) "#include \n" "#include \"pango-support.h\"\n")) (define-method (initialize (ws ) initargs) (next-method ws (cons #:module (cons '(gnome gw pango) initargs))) (add-type-alias! ws "PangoGlyph" 'unsigned-int32) (wrap-refcounted-pointer! ws "PangoCoverage" "pango_coverage_ref" "pango_coverage_unref") (wrap-structure! ws "PangoRectangle" "scm_pango_rectangle_to_scm" "scm_scm_to_pango_rectangle") (wrap-freeable-pointer! ws "PangoAttrIterator" "pango_attr_iterator_destroy") (wrap-freeable-pointer! ws "PangoScriptIter" "pango_script_iter_free") (wrap-freeable-pointer! ws "PangoAttribute" "pango_attribute_destroy") (load-defs-with-overrides ws "gnome/defs/pango.defs")) guile-gnome-platform-2.16.2/pango/gnome/gw/Makefile.am0000644000175000017500000000335111670374303023054 0ustar00wingowingo00000000000000include $(top_srcdir)/common.mk guilegwmodule_DATA = EXTRA_DIST = CLEANFILES = $(wildcard gnome-*.log) guilegnomelib_LTLIBRARIES = BUILT_SOURCES = ######################################################################## ## pango guilegwmodule_DATA += pango-spec.scm pango.scm EXTRA_DIST += pango-spec.scm guilegnomelib_LTLIBRARIES += libgw-guile-gnome-pango.la nodist_libgw_guile_gnome_pango_la_SOURCES = guile-gnome-gw-pango.c libgw_guile_gnome_pango_la_SOURCES = pango-support.c pango-support.h libgw_guile_gnome_pango_la_CFLAGS = $(GUILE_GLIB_CFLAGS) \ $(AM_CFLAGS) $(PANGO_CFLAGS) $(GUILE_CFLAGS) \ $(G_WRAP_CFLAGS) libgw_guile_gnome_pango_la_LIBADD = $(PANGO_LIBS) $(GUILE_GLIB_LIBS) \ $(GUILE_LIBS) $(G_WRAP_LIBS) libgw_guile_gnome_pango_la_LDFLAGS = -module CLEANFILES += $(wildcard guile-gnome-gw-pango.*) pango.scm BUILT_SOURCES += guile-gnome-gw-pango.c ######################################################################## ## pangocairo if HAVE_CAIRO if HAVE_PANGOCAIRO guilegwmodule_DATA += pangocairo-spec.scm pangocairo.scm EXTRA_DIST += pangocairo-spec.scm guilegnomelib_LTLIBRARIES += libgw-guile-gnome-pangocairo.la nodist_libgw_guile_gnome_pangocairo_la_SOURCES = guile-gnome-gw-pangocairo.c libgw_guile_gnome_pangocairo_la_CFLAGS = $(GUILE_GLIB_CFLAGS) \ $(AM_CFLAGS) $(PANGO_CFLAGS) $(GUILE_CFLAGS) \ $(G_WRAP_CFLAGS) $(GUILE_CAIRO_CFLAGS) $(PANGOCAIRO_CFLAGS) libgw_guile_gnome_pangocairo_la_LIBADD = $(PANGO_LIBS) $(GUILE_GLIB_LIBS) \ $(GUILE_LIBS) $(G_WRAP_LIBS) $(GUILE_CAIRO_LIBS) $(PANGOCAIRO_LIBS) libgw_guile_gnome_pangocairo_la_LDFLAGS = -module CLEANFILES += $(wildcard guile-gnome-gw-pangocairo.*) pangocairo.scm BUILT_SOURCES += guile-gnome-gw-pangocairo.c endif # HAVE_PANGOCAIRO endif # HAVE_CAIRO guile-gnome-platform-2.16.2/pango/gnome/gw/Makefile.in0000644000175000017500000007616711752520670023105 0ustar00wingowingo00000000000000# Makefile.in generated by automake 1.11.5 from Makefile.am. # @configure_input@ # Copyright (C) 1994, 1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, # 2003, 2004, 2005, 2006, 2007, 2008, 2009, 2010, 2011 Free Software # Foundation, Inc. # This Makefile.in is free software; the Free Software Foundation # gives unlimited permission to copy and/or distribute it, # with or without modifications, as long as this notice is preserved. # This program is distributed in the hope that it will be useful, # but WITHOUT ANY WARRANTY, to the extent permitted by law; without # even the implied warranty of MERCHANTABILITY or FITNESS FOR A # PARTICULAR PURPOSE. @SET_MAKE@ # guile-gnome # Copyright (C) 2003,2004,2009,2012 Free Software Foundation, Inc. # This program is free software; you can redistribute it and/or # modify it under the terms of the GNU General Public License as # published by the Free Software Foundation; either version 2 of # the License, or (at your option) any later version. # This program is distributed in the hope that it will be useful, # but WITHOUT ANY WARRANTY; without even the implied warranty of # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the # GNU General Public License for more details. # You should have received a copy of the GNU General Public License # along with this program; if not, contact: # Free Software Foundation Voice: +1-617-542-5942 # 59 Temple Place - Suite 330 Fax: +1-617-542-2652 # Boston, MA 02111-1307, USA gnu@gnu.org # # Makefile snippet # VPATH = @srcdir@ am__make_dryrun = \ { \ am__dry=no; \ case $$MAKEFLAGS in \ *\\[\ \ ]*) \ echo 'am--echo: ; @echo "AM" OK' | $(MAKE) -f - 2>/dev/null \ | grep '^AM OK$$' >/dev/null || am__dry=yes;; \ *) \ for am__flg in $$MAKEFLAGS; do \ case $$am__flg in \ *=*|--*) ;; \ *n*) am__dry=yes; break;; \ esac; \ done;; \ esac; \ test $$am__dry = yes; \ } pkgdatadir = $(datadir)/@PACKAGE@ pkgincludedir = $(includedir)/@PACKAGE@ pkglibdir = $(libdir)/@PACKAGE@ pkglibexecdir = $(libexecdir)/@PACKAGE@ am__cd = CDPATH="$${ZSH_VERSION+.}$(PATH_SEPARATOR)" && cd install_sh_DATA = $(install_sh) -c -m 644 install_sh_PROGRAM = $(install_sh) -c install_sh_SCRIPT = $(install_sh) -c INSTALL_HEADER = $(INSTALL_DATA) transform = $(program_transform_name) NORMAL_INSTALL = : PRE_INSTALL = : POST_INSTALL = : NORMAL_UNINSTALL = : PRE_UNINSTALL = : POST_UNINSTALL = : build_triplet = @build@ host_triplet = @host@ DIST_COMMON = $(srcdir)/Makefile.am $(srcdir)/Makefile.in \ $(top_srcdir)/common.mk ######################################################################## @HAVE_CAIRO_TRUE@@HAVE_PANGOCAIRO_TRUE@am__append_1 = pangocairo-spec.scm pangocairo.scm @HAVE_CAIRO_TRUE@@HAVE_PANGOCAIRO_TRUE@am__append_2 = pangocairo-spec.scm @HAVE_CAIRO_TRUE@@HAVE_PANGOCAIRO_TRUE@am__append_3 = libgw-guile-gnome-pangocairo.la @HAVE_CAIRO_TRUE@@HAVE_PANGOCAIRO_TRUE@am__append_4 = $(wildcard guile-gnome-gw-pangocairo.*) pangocairo.scm @HAVE_CAIRO_TRUE@@HAVE_PANGOCAIRO_TRUE@am__append_5 = guile-gnome-gw-pangocairo.c subdir = pango/gnome/gw ACLOCAL_M4 = $(top_srcdir)/aclocal.m4 am__aclocal_m4_deps = $(top_srcdir)/configure.ac am__configure_deps = $(am__aclocal_m4_deps) $(CONFIGURE_DEPENDENCIES) \ $(ACLOCAL_M4) mkinstalldirs = $(install_sh) -d CONFIG_HEADER = $(top_builddir)/config.h CONFIG_CLEAN_FILES = CONFIG_CLEAN_VPATH_FILES = am__vpath_adj_setup = srcdirstrip=`echo "$(srcdir)" | sed 's|.|.|g'`; am__vpath_adj = case $$p in \ $(srcdir)/*) f=`echo "$$p" | sed "s|^$$srcdirstrip/||"`;; \ *) f=$$p;; \ esac; am__strip_dir = f=`echo $$p | sed -e 's|^.*/||'`; am__install_max = 40 am__nobase_strip_setup = \ srcdirstrip=`echo "$(srcdir)" | sed 's/[].[^$$\\*|]/\\\\&/g'` am__nobase_strip = \ for p in $$list; do echo "$$p"; done | sed -e "s|$$srcdirstrip/||" am__nobase_list = $(am__nobase_strip_setup); \ for p in $$list; do echo "$$p $$p"; done | \ sed "s| $$srcdirstrip/| |;"' / .*\//!s/ .*/ ./; s,\( .*\)/[^/]*$$,\1,' | \ $(AWK) 'BEGIN { files["."] = "" } { files[$$2] = files[$$2] " " $$1; \ if (++n[$$2] == $(am__install_max)) \ { print $$2, files[$$2]; n[$$2] = 0; files[$$2] = "" } } \ END { for (dir in files) print dir, files[dir] }' am__base_list = \ sed '$$!N;$$!N;$$!N;$$!N;$$!N;$$!N;$$!N;s/\n/ /g' | \ sed '$$!N;$$!N;$$!N;$$!N;s/\n/ /g' am__uninstall_files_from_dir = { \ test -z "$$files" \ || { test ! -d "$$dir" && test ! -f "$$dir" && test ! -r "$$dir"; } \ || { echo " ( cd '$$dir' && rm -f" $$files ")"; \ $(am__cd) "$$dir" && rm -f $$files; }; \ } am__installdirs = "$(DESTDIR)$(guilegnomelibdir)" \ "$(DESTDIR)$(guilegwmoduledir)" LTLIBRARIES = $(guilegnomelib_LTLIBRARIES) am__DEPENDENCIES_1 = libgw_guile_gnome_pango_la_DEPENDENCIES = $(am__DEPENDENCIES_1) \ $(am__DEPENDENCIES_1) $(am__DEPENDENCIES_1) \ $(am__DEPENDENCIES_1) am_libgw_guile_gnome_pango_la_OBJECTS = \ libgw_guile_gnome_pango_la-pango-support.lo nodist_libgw_guile_gnome_pango_la_OBJECTS = \ libgw_guile_gnome_pango_la-guile-gnome-gw-pango.lo libgw_guile_gnome_pango_la_OBJECTS = \ $(am_libgw_guile_gnome_pango_la_OBJECTS) \ $(nodist_libgw_guile_gnome_pango_la_OBJECTS) libgw_guile_gnome_pango_la_LINK = $(LIBTOOL) --tag=CC \ $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=link $(CCLD) \ $(libgw_guile_gnome_pango_la_CFLAGS) $(CFLAGS) \ $(libgw_guile_gnome_pango_la_LDFLAGS) $(LDFLAGS) -o $@ @HAVE_CAIRO_TRUE@@HAVE_PANGOCAIRO_TRUE@libgw_guile_gnome_pangocairo_la_DEPENDENCIES = \ @HAVE_CAIRO_TRUE@@HAVE_PANGOCAIRO_TRUE@ $(am__DEPENDENCIES_1) \ @HAVE_CAIRO_TRUE@@HAVE_PANGOCAIRO_TRUE@ $(am__DEPENDENCIES_1) \ @HAVE_CAIRO_TRUE@@HAVE_PANGOCAIRO_TRUE@ $(am__DEPENDENCIES_1) \ @HAVE_CAIRO_TRUE@@HAVE_PANGOCAIRO_TRUE@ $(am__DEPENDENCIES_1) \ @HAVE_CAIRO_TRUE@@HAVE_PANGOCAIRO_TRUE@ $(am__DEPENDENCIES_1) \ @HAVE_CAIRO_TRUE@@HAVE_PANGOCAIRO_TRUE@ $(am__DEPENDENCIES_1) @HAVE_CAIRO_TRUE@@HAVE_PANGOCAIRO_TRUE@nodist_libgw_guile_gnome_pangocairo_la_OBJECTS = libgw_guile_gnome_pangocairo_la-guile-gnome-gw-pangocairo.lo libgw_guile_gnome_pangocairo_la_OBJECTS = \ $(nodist_libgw_guile_gnome_pangocairo_la_OBJECTS) libgw_guile_gnome_pangocairo_la_LINK = $(LIBTOOL) --tag=CC \ $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=link $(CCLD) \ $(libgw_guile_gnome_pangocairo_la_CFLAGS) $(CFLAGS) \ $(libgw_guile_gnome_pangocairo_la_LDFLAGS) $(LDFLAGS) -o $@ @HAVE_CAIRO_TRUE@@HAVE_PANGOCAIRO_TRUE@am_libgw_guile_gnome_pangocairo_la_rpath = \ @HAVE_CAIRO_TRUE@@HAVE_PANGOCAIRO_TRUE@ -rpath \ @HAVE_CAIRO_TRUE@@HAVE_PANGOCAIRO_TRUE@ $(guilegnomelibdir) DEFAULT_INCLUDES = -I.@am__isrc@ -I$(top_builddir) depcomp = $(SHELL) $(top_srcdir)/build-aux/depcomp am__depfiles_maybe = depfiles am__mv = mv -f COMPILE = $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(AM_CPPFLAGS) \ $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) LTCOMPILE = $(LIBTOOL) --tag=CC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) \ --mode=compile $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) \ $(AM_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) CCLD = $(CC) LINK = $(LIBTOOL) --tag=CC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) \ --mode=link $(CCLD) $(AM_CFLAGS) $(CFLAGS) $(AM_LDFLAGS) \ $(LDFLAGS) -o $@ SOURCES = $(libgw_guile_gnome_pango_la_SOURCES) \ $(nodist_libgw_guile_gnome_pango_la_SOURCES) \ $(nodist_libgw_guile_gnome_pangocairo_la_SOURCES) DIST_SOURCES = $(libgw_guile_gnome_pango_la_SOURCES) am__can_run_installinfo = \ case $$AM_UPDATE_INFO_DIR in \ n|no|NO) false;; \ *) (install-info --version) >/dev/null 2>&1;; \ esac DATA = $(guilegwmodule_DATA) ETAGS = etags CTAGS = ctags DISTFILES = $(DIST_COMMON) $(DIST_SOURCES) $(TEXINFOS) $(EXTRA_DIST) ACLOCAL = @ACLOCAL@ AG_PKG_CONFIG_PATH = @AG_PKG_CONFIG_PATH@ AMTAR = @AMTAR@ API_VERSION = @API_VERSION@ AR = @AR@ ATK_CFLAGS = @ATK_CFLAGS@ ATK_LIBS = @ATK_LIBS@ AUTOCONF = @AUTOCONF@ AUTOHEADER = @AUTOHEADER@ AUTOMAKE = @AUTOMAKE@ AWK = @AWK@ BONOBO_IDL_DIR = @BONOBO_IDL_DIR@ CANVAS_CFLAGS = @CANVAS_CFLAGS@ CANVAS_LIBS = @CANVAS_LIBS@ CC = @CC@ CCDEPMODE = @CCDEPMODE@ CFLAGS = @CFLAGS@ CORBA_CFLAGS = @CORBA_CFLAGS@ CORBA_LIBS = @CORBA_LIBS@ CPP = @CPP@ CPPFLAGS = @CPPFLAGS@ CYGPATH_W = @CYGPATH_W@ DEFS = @DEFS@ DEPDIR = @DEPDIR@ DLLTOOL = @DLLTOOL@ DSYMUTIL = @DSYMUTIL@ DUMPBIN = @DUMPBIN@ ECHO_C = @ECHO_C@ ECHO_N = @ECHO_N@ ECHO_T = @ECHO_T@ EGREP = @EGREP@ EXEEXT = @EXEEXT@ FGREP = @FGREP@ GCONF_CFLAGS = @GCONF_CFLAGS@ GCONF_LIBS = @GCONF_LIBS@ GDK_CFLAGS = @GDK_CFLAGS@ GDK_LIBS = @GDK_LIBS@ GDK_PIXBUF_CFLAGS = @GDK_PIXBUF_CFLAGS@ GDK_PIXBUF_LIBS = @GDK_PIXBUF_LIBS@ GLIB_CFLAGS = @GLIB_CFLAGS@ GLIB_LIBS = @GLIB_LIBS@ GNOMEUI_DEPRECATION_FLAGS = @GNOMEUI_DEPRECATION_FLAGS@ GNOME_VFS_CFLAGS = @GNOME_VFS_CFLAGS@ GNOME_VFS_DEPRECATED_CFLAGS = @GNOME_VFS_DEPRECATED_CFLAGS@ GNOME_VFS_LIBS = @GNOME_VFS_LIBS@ GOBJECT_CFLAGS = @GOBJECT_CFLAGS@ GOBJECT_LIBS = @GOBJECT_LIBS@ GREP = @GREP@ GTHREAD_CFLAGS = @GTHREAD_CFLAGS@ GTHREAD_LIBS = @GTHREAD_LIBS@ GTK_CFLAGS = @GTK_CFLAGS@ GTK_DEPRECATED_CFLAGS = @GTK_DEPRECATED_CFLAGS@ GTK_LIBS = @GTK_LIBS@ GUILE_CAIRO_CFLAGS = @GUILE_CAIRO_CFLAGS@ GUILE_CAIRO_LIBS = @GUILE_CAIRO_LIBS@ GUILE_CFLAGS = @GUILE_CFLAGS@ GUILE_EFFECTIVE_VERSION = @GUILE_EFFECTIVE_VERSION@ GUILE_GLIB_CFLAGS = @GUILE_GLIB_CFLAGS@ GUILE_GLIB_LIBS = @GUILE_GLIB_LIBS@ GUILE_LIBS = @GUILE_LIBS@ G_WRAP_CFLAGS = @G_WRAP_CFLAGS@ G_WRAP_LIBS = @G_WRAP_LIBS@ G_WRAP_LIB_DIR = @G_WRAP_LIB_DIR@ G_WRAP_MODULE_DIR = @G_WRAP_MODULE_DIR@ INSTALL = @INSTALL@ INSTALL_DATA = @INSTALL_DATA@ INSTALL_PROGRAM = @INSTALL_PROGRAM@ INSTALL_SCRIPT = @INSTALL_SCRIPT@ INSTALL_STRIP_PROGRAM = @INSTALL_STRIP_PROGRAM@ LD = @LD@ LDFLAGS = @LDFLAGS@ LIBGLADE_CFLAGS = @LIBGLADE_CFLAGS@ LIBGLADE_LIBS = @LIBGLADE_LIBS@ LIBGNOMEUI_CFLAGS = @LIBGNOMEUI_CFLAGS@ LIBGNOMEUI_LIBS = @LIBGNOMEUI_LIBS@ LIBGNOME_CFLAGS = @LIBGNOME_CFLAGS@ LIBGNOME_LIBS = @LIBGNOME_LIBS@ LIBOBJS = @LIBOBJS@ LIBS = @LIBS@ LIBTOOL = @LIBTOOL@ LIPO = @LIPO@ LN_S = @LN_S@ LTLIBOBJS = @LTLIBOBJS@ MAKEINFO = @MAKEINFO@ MANIFEST_TOOL = @MANIFEST_TOOL@ MKDIR_P = @MKDIR_P@ NM = @NM@ NMEDIT = @NMEDIT@ OBJDUMP = @OBJDUMP@ OBJEXT = @OBJEXT@ ORBIT_IDL = @ORBIT_IDL@ OTOOL = @OTOOL@ OTOOL64 = @OTOOL64@ PACKAGE = @PACKAGE@ PACKAGE_BUGREPORT = @PACKAGE_BUGREPORT@ PACKAGE_NAME = @PACKAGE_NAME@ PACKAGE_STRING = @PACKAGE_STRING@ PACKAGE_TARNAME = @PACKAGE_TARNAME@ PACKAGE_URL = @PACKAGE_URL@ PACKAGE_VERSION = @PACKAGE_VERSION@ PANGOCAIRO_CFLAGS = @PANGOCAIRO_CFLAGS@ PANGOCAIRO_LIBS = @PANGOCAIRO_LIBS@ PANGO_CFLAGS = @PANGO_CFLAGS@ PANGO_LIBS = @PANGO_LIBS@ PATH_SEPARATOR = @PATH_SEPARATOR@ PKG_CONFIG = @PKG_CONFIG@ PKG_CONFIG_LIBDIR = @PKG_CONFIG_LIBDIR@ PKG_CONFIG_PATH = @PKG_CONFIG_PATH@ RANLIB = @RANLIB@ SED = @SED@ SET_MAKE = @SET_MAKE@ SHELL = @SHELL@ STRIP = @STRIP@ VERSION = @VERSION@ WARN_CFLAGS = @WARN_CFLAGS@ abs_builddir = @abs_builddir@ abs_srcdir = @abs_srcdir@ abs_top_builddir = @abs_top_builddir@ abs_top_srcdir = @abs_top_srcdir@ ac_ct_AR = @ac_ct_AR@ ac_ct_CC = @ac_ct_CC@ ac_ct_DUMPBIN = @ac_ct_DUMPBIN@ am__include = @am__include@ am__leading_dot = @am__leading_dot@ am__quote = @am__quote@ am__tar = @am__tar@ am__untar = @am__untar@ bindir = @bindir@ build = @build@ build_alias = @build_alias@ build_cpu = @build_cpu@ build_os = @build_os@ build_vendor = @build_vendor@ builddir = @builddir@ datadir = @datadir@ datarootdir = @datarootdir@ docdir = @docdir@ dvidir = @dvidir@ exec_prefix = @exec_prefix@ host = @host@ host_alias = @host_alias@ host_cpu = @host_cpu@ host_os = @host_os@ host_vendor = @host_vendor@ htmldir = @htmldir@ includedir = @includedir@ infodir = @infodir@ install_sh = @install_sh@ libdir = @libdir@ libexecdir = @libexecdir@ localedir = @localedir@ localstatedir = @localstatedir@ mandir = @mandir@ mkdir_p = @mkdir_p@ oldincludedir = @oldincludedir@ pdfdir = @pdfdir@ prefix = @prefix@ program_transform_name = @program_transform_name@ psdir = @psdir@ sbindir = @sbindir@ sharedstatedir = @sharedstatedir@ srcdir = @srcdir@ sysconfdir = @sysconfdir@ target_alias = @target_alias@ top_build_prefix = @top_build_prefix@ top_builddir = @top_builddir@ top_srcdir = @top_srcdir@ guilegnomedir = $(datadir)/guile-gnome-@API_VERSION@ guilemoduledir = $(guilegnomedir)/gnome guilegwmoduledir = $(guilegnomedir)/gnome/gw guilegnomelibdir = $(libdir)/guile-gnome-@API_VERSION@ AM_CFLAGS = -I. -I$(srcdir) $(WARN_CFLAGS) $(DEBUG_CFLAGS) # For overriding from the command line (e.g. --debug) GUILE_FLAGS = SUFFIXES = .x .doc GUILE_SNARF_CFLAGS = $(DEFS) $(AM_CFLAGS) $(GUILE_CFLAGS) $(G_WRAP_CFLAGS) PACKAGES = atk cairo corba defs gconf glib gnome-vfs gtk libglade libgnome libgnomecanvas libgnomeui pango SOURCE_GUILE_PATH = $(shell echo $(addprefix $(top_srcdir)/,$(PACKAGES)) | sed -e 's/ /:/g'):$(srcdir) BUILD_GUILE_PATH = $(if $(filter-out $(top_srcdir),$(top_builddir)),$(shell echo -n $(addprefix $(top_builddir)/,$(PACKAGES)): | sed -e 's/ /:/g'),) GUILE_LOAD_PATH := $(BUILD_GUILE_PATH)$(SOURCE_GUILE_PATH):${G_WRAP_MODULE_DIR}:${GUILE_LOAD_PATH} # Real gnu make foo packages = $(filter-out %-uninstalled,$(patsubst %.pc.in,%,$(notdir $(wildcard $(srcdir)/*.pc.in)))) pcifiles = $(patsubst %,%-@API_VERSION@.pc,$(packages)) pcufiles = $(patsubst %,%-@API_VERSION@-uninstalled.pc,$(packages)) ######################################################################## guilegwmodule_DATA = pango-spec.scm pango.scm $(am__append_1) EXTRA_DIST = pango-spec.scm $(am__append_2) CLEANFILES = $(wildcard gnome-*.log) $(wildcard \ guile-gnome-gw-pango.*) pango.scm $(am__append_4) guilegnomelib_LTLIBRARIES = libgw-guile-gnome-pango.la $(am__append_3) BUILT_SOURCES = guile-gnome-gw-pango.c $(am__append_5) nodist_libgw_guile_gnome_pango_la_SOURCES = guile-gnome-gw-pango.c libgw_guile_gnome_pango_la_SOURCES = pango-support.c pango-support.h libgw_guile_gnome_pango_la_CFLAGS = $(GUILE_GLIB_CFLAGS) \ $(AM_CFLAGS) $(PANGO_CFLAGS) $(GUILE_CFLAGS) \ $(G_WRAP_CFLAGS) libgw_guile_gnome_pango_la_LIBADD = $(PANGO_LIBS) $(GUILE_GLIB_LIBS) \ $(GUILE_LIBS) $(G_WRAP_LIBS) libgw_guile_gnome_pango_la_LDFLAGS = -module @HAVE_CAIRO_TRUE@@HAVE_PANGOCAIRO_TRUE@nodist_libgw_guile_gnome_pangocairo_la_SOURCES = guile-gnome-gw-pangocairo.c @HAVE_CAIRO_TRUE@@HAVE_PANGOCAIRO_TRUE@libgw_guile_gnome_pangocairo_la_CFLAGS = $(GUILE_GLIB_CFLAGS) \ @HAVE_CAIRO_TRUE@@HAVE_PANGOCAIRO_TRUE@ $(AM_CFLAGS) $(PANGO_CFLAGS) $(GUILE_CFLAGS) \ @HAVE_CAIRO_TRUE@@HAVE_PANGOCAIRO_TRUE@ $(G_WRAP_CFLAGS) $(GUILE_CAIRO_CFLAGS) $(PANGOCAIRO_CFLAGS) @HAVE_CAIRO_TRUE@@HAVE_PANGOCAIRO_TRUE@libgw_guile_gnome_pangocairo_la_LIBADD = $(PANGO_LIBS) $(GUILE_GLIB_LIBS) \ @HAVE_CAIRO_TRUE@@HAVE_PANGOCAIRO_TRUE@ $(GUILE_LIBS) $(G_WRAP_LIBS) $(GUILE_CAIRO_LIBS) $(PANGOCAIRO_LIBS) @HAVE_CAIRO_TRUE@@HAVE_PANGOCAIRO_TRUE@libgw_guile_gnome_pangocairo_la_LDFLAGS = -module all: $(BUILT_SOURCES) $(MAKE) $(AM_MAKEFLAGS) all-am .SUFFIXES: .SUFFIXES: .x .doc .c .lo .o .obj $(srcdir)/Makefile.in: $(srcdir)/Makefile.am $(top_srcdir)/common.mk $(am__configure_deps) @for dep in $?; do \ case '$(am__configure_deps)' in \ *$$dep*) \ ( cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh ) \ && { if test -f $@; then exit 0; else break; fi; }; \ exit 1;; \ esac; \ done; \ echo ' cd $(top_srcdir) && $(AUTOMAKE) --gnu pango/gnome/gw/Makefile'; \ $(am__cd) $(top_srcdir) && \ $(AUTOMAKE) --gnu pango/gnome/gw/Makefile .PRECIOUS: Makefile Makefile: $(srcdir)/Makefile.in $(top_builddir)/config.status @case '$?' in \ *config.status*) \ cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh;; \ *) \ echo ' cd $(top_builddir) && $(SHELL) ./config.status $(subdir)/$@ $(am__depfiles_maybe)'; \ cd $(top_builddir) && $(SHELL) ./config.status $(subdir)/$@ $(am__depfiles_maybe);; \ esac; $(top_srcdir)/common.mk: $(top_builddir)/config.status: $(top_srcdir)/configure $(CONFIG_STATUS_DEPENDENCIES) cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh $(top_srcdir)/configure: $(am__configure_deps) cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh $(ACLOCAL_M4): $(am__aclocal_m4_deps) cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh $(am__aclocal_m4_deps): install-guilegnomelibLTLIBRARIES: $(guilegnomelib_LTLIBRARIES) @$(NORMAL_INSTALL) @list='$(guilegnomelib_LTLIBRARIES)'; test -n "$(guilegnomelibdir)" || list=; \ list2=; for p in $$list; do \ if test -f $$p; then \ list2="$$list2 $$p"; \ else :; fi; \ done; \ test -z "$$list2" || { \ echo " $(MKDIR_P) '$(DESTDIR)$(guilegnomelibdir)'"; \ $(MKDIR_P) "$(DESTDIR)$(guilegnomelibdir)" || exit 1; \ echo " $(LIBTOOL) $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=install $(INSTALL) $(INSTALL_STRIP_FLAG) $$list2 '$(DESTDIR)$(guilegnomelibdir)'"; \ $(LIBTOOL) $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=install $(INSTALL) $(INSTALL_STRIP_FLAG) $$list2 "$(DESTDIR)$(guilegnomelibdir)"; \ } uninstall-guilegnomelibLTLIBRARIES: @$(NORMAL_UNINSTALL) @list='$(guilegnomelib_LTLIBRARIES)'; test -n "$(guilegnomelibdir)" || list=; \ for p in $$list; do \ $(am__strip_dir) \ echo " $(LIBTOOL) $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=uninstall rm -f '$(DESTDIR)$(guilegnomelibdir)/$$f'"; \ $(LIBTOOL) $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=uninstall rm -f "$(DESTDIR)$(guilegnomelibdir)/$$f"; \ done clean-guilegnomelibLTLIBRARIES: -test -z "$(guilegnomelib_LTLIBRARIES)" || rm -f $(guilegnomelib_LTLIBRARIES) @list='$(guilegnomelib_LTLIBRARIES)'; for p in $$list; do \ dir="`echo $$p | sed -e 's|/[^/]*$$||'`"; \ test "$$dir" != "$$p" || dir=.; \ echo "rm -f \"$${dir}/so_locations\""; \ rm -f "$${dir}/so_locations"; \ done libgw-guile-gnome-pango.la: $(libgw_guile_gnome_pango_la_OBJECTS) $(libgw_guile_gnome_pango_la_DEPENDENCIES) $(EXTRA_libgw_guile_gnome_pango_la_DEPENDENCIES) $(libgw_guile_gnome_pango_la_LINK) -rpath $(guilegnomelibdir) $(libgw_guile_gnome_pango_la_OBJECTS) $(libgw_guile_gnome_pango_la_LIBADD) $(LIBS) libgw-guile-gnome-pangocairo.la: $(libgw_guile_gnome_pangocairo_la_OBJECTS) $(libgw_guile_gnome_pangocairo_la_DEPENDENCIES) $(EXTRA_libgw_guile_gnome_pangocairo_la_DEPENDENCIES) $(libgw_guile_gnome_pangocairo_la_LINK) $(am_libgw_guile_gnome_pangocairo_la_rpath) $(libgw_guile_gnome_pangocairo_la_OBJECTS) $(libgw_guile_gnome_pangocairo_la_LIBADD) $(LIBS) mostlyclean-compile: -rm -f *.$(OBJEXT) distclean-compile: -rm -f *.tab.c @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/libgw_guile_gnome_pango_la-guile-gnome-gw-pango.Plo@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/libgw_guile_gnome_pango_la-pango-support.Plo@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/libgw_guile_gnome_pangocairo_la-guile-gnome-gw-pangocairo.Plo@am__quote@ .c.o: @am__fastdepCC_TRUE@ $(COMPILE) -MT $@ -MD -MP -MF $(DEPDIR)/$*.Tpo -c -o $@ $< @am__fastdepCC_TRUE@ $(am__mv) $(DEPDIR)/$*.Tpo $(DEPDIR)/$*.Po @AMDEP_TRUE@@am__fastdepCC_FALSE@ source='$<' object='$@' libtool=no @AMDEPBACKSLASH@ @AMDEP_TRUE@@am__fastdepCC_FALSE@ DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@ @am__fastdepCC_FALSE@ $(COMPILE) -c $< .c.obj: @am__fastdepCC_TRUE@ $(COMPILE) -MT $@ -MD -MP -MF $(DEPDIR)/$*.Tpo -c -o $@ `$(CYGPATH_W) '$<'` @am__fastdepCC_TRUE@ $(am__mv) $(DEPDIR)/$*.Tpo $(DEPDIR)/$*.Po @AMDEP_TRUE@@am__fastdepCC_FALSE@ source='$<' object='$@' libtool=no @AMDEPBACKSLASH@ @AMDEP_TRUE@@am__fastdepCC_FALSE@ DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@ @am__fastdepCC_FALSE@ $(COMPILE) -c `$(CYGPATH_W) '$<'` .c.lo: @am__fastdepCC_TRUE@ $(LTCOMPILE) -MT $@ -MD -MP -MF $(DEPDIR)/$*.Tpo -c -o $@ $< @am__fastdepCC_TRUE@ $(am__mv) $(DEPDIR)/$*.Tpo $(DEPDIR)/$*.Plo @AMDEP_TRUE@@am__fastdepCC_FALSE@ source='$<' object='$@' libtool=yes @AMDEPBACKSLASH@ @AMDEP_TRUE@@am__fastdepCC_FALSE@ DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@ @am__fastdepCC_FALSE@ $(LTCOMPILE) -c -o $@ $< libgw_guile_gnome_pango_la-pango-support.lo: pango-support.c @am__fastdepCC_TRUE@ $(LIBTOOL) --tag=CC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(AM_CPPFLAGS) $(CPPFLAGS) $(libgw_guile_gnome_pango_la_CFLAGS) $(CFLAGS) -MT libgw_guile_gnome_pango_la-pango-support.lo -MD -MP -MF $(DEPDIR)/libgw_guile_gnome_pango_la-pango-support.Tpo -c -o libgw_guile_gnome_pango_la-pango-support.lo `test -f 'pango-support.c' || echo '$(srcdir)/'`pango-support.c @am__fastdepCC_TRUE@ $(am__mv) $(DEPDIR)/libgw_guile_gnome_pango_la-pango-support.Tpo $(DEPDIR)/libgw_guile_gnome_pango_la-pango-support.Plo @AMDEP_TRUE@@am__fastdepCC_FALSE@ source='pango-support.c' object='libgw_guile_gnome_pango_la-pango-support.lo' libtool=yes @AMDEPBACKSLASH@ @AMDEP_TRUE@@am__fastdepCC_FALSE@ DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@ @am__fastdepCC_FALSE@ $(LIBTOOL) --tag=CC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(AM_CPPFLAGS) $(CPPFLAGS) $(libgw_guile_gnome_pango_la_CFLAGS) $(CFLAGS) -c -o libgw_guile_gnome_pango_la-pango-support.lo `test -f 'pango-support.c' || echo '$(srcdir)/'`pango-support.c libgw_guile_gnome_pango_la-guile-gnome-gw-pango.lo: guile-gnome-gw-pango.c @am__fastdepCC_TRUE@ $(LIBTOOL) --tag=CC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(AM_CPPFLAGS) $(CPPFLAGS) $(libgw_guile_gnome_pango_la_CFLAGS) $(CFLAGS) -MT libgw_guile_gnome_pango_la-guile-gnome-gw-pango.lo -MD -MP -MF $(DEPDIR)/libgw_guile_gnome_pango_la-guile-gnome-gw-pango.Tpo -c -o libgw_guile_gnome_pango_la-guile-gnome-gw-pango.lo `test -f 'guile-gnome-gw-pango.c' || echo '$(srcdir)/'`guile-gnome-gw-pango.c @am__fastdepCC_TRUE@ $(am__mv) $(DEPDIR)/libgw_guile_gnome_pango_la-guile-gnome-gw-pango.Tpo $(DEPDIR)/libgw_guile_gnome_pango_la-guile-gnome-gw-pango.Plo @AMDEP_TRUE@@am__fastdepCC_FALSE@ source='guile-gnome-gw-pango.c' object='libgw_guile_gnome_pango_la-guile-gnome-gw-pango.lo' libtool=yes @AMDEPBACKSLASH@ @AMDEP_TRUE@@am__fastdepCC_FALSE@ DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@ @am__fastdepCC_FALSE@ $(LIBTOOL) --tag=CC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(AM_CPPFLAGS) $(CPPFLAGS) $(libgw_guile_gnome_pango_la_CFLAGS) $(CFLAGS) -c -o libgw_guile_gnome_pango_la-guile-gnome-gw-pango.lo `test -f 'guile-gnome-gw-pango.c' || echo '$(srcdir)/'`guile-gnome-gw-pango.c libgw_guile_gnome_pangocairo_la-guile-gnome-gw-pangocairo.lo: guile-gnome-gw-pangocairo.c @am__fastdepCC_TRUE@ $(LIBTOOL) --tag=CC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(AM_CPPFLAGS) $(CPPFLAGS) $(libgw_guile_gnome_pangocairo_la_CFLAGS) $(CFLAGS) -MT libgw_guile_gnome_pangocairo_la-guile-gnome-gw-pangocairo.lo -MD -MP -MF $(DEPDIR)/libgw_guile_gnome_pangocairo_la-guile-gnome-gw-pangocairo.Tpo -c -o libgw_guile_gnome_pangocairo_la-guile-gnome-gw-pangocairo.lo `test -f 'guile-gnome-gw-pangocairo.c' || echo '$(srcdir)/'`guile-gnome-gw-pangocairo.c @am__fastdepCC_TRUE@ $(am__mv) $(DEPDIR)/libgw_guile_gnome_pangocairo_la-guile-gnome-gw-pangocairo.Tpo $(DEPDIR)/libgw_guile_gnome_pangocairo_la-guile-gnome-gw-pangocairo.Plo @AMDEP_TRUE@@am__fastdepCC_FALSE@ source='guile-gnome-gw-pangocairo.c' object='libgw_guile_gnome_pangocairo_la-guile-gnome-gw-pangocairo.lo' libtool=yes @AMDEPBACKSLASH@ @AMDEP_TRUE@@am__fastdepCC_FALSE@ DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@ @am__fastdepCC_FALSE@ $(LIBTOOL) --tag=CC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(AM_CPPFLAGS) $(CPPFLAGS) $(libgw_guile_gnome_pangocairo_la_CFLAGS) $(CFLAGS) -c -o libgw_guile_gnome_pangocairo_la-guile-gnome-gw-pangocairo.lo `test -f 'guile-gnome-gw-pangocairo.c' || echo '$(srcdir)/'`guile-gnome-gw-pangocairo.c mostlyclean-libtool: -rm -f *.lo clean-libtool: -rm -rf .libs _libs install-guilegwmoduleDATA: $(guilegwmodule_DATA) @$(NORMAL_INSTALL) @list='$(guilegwmodule_DATA)'; test -n "$(guilegwmoduledir)" || list=; \ if test -n "$$list"; then \ echo " $(MKDIR_P) '$(DESTDIR)$(guilegwmoduledir)'"; \ $(MKDIR_P) "$(DESTDIR)$(guilegwmoduledir)" || exit 1; \ fi; \ for p in $$list; do \ if test -f "$$p"; then d=; else d="$(srcdir)/"; fi; \ echo "$$d$$p"; \ done | $(am__base_list) | \ while read files; do \ echo " $(INSTALL_DATA) $$files '$(DESTDIR)$(guilegwmoduledir)'"; \ $(INSTALL_DATA) $$files "$(DESTDIR)$(guilegwmoduledir)" || exit $$?; \ done uninstall-guilegwmoduleDATA: @$(NORMAL_UNINSTALL) @list='$(guilegwmodule_DATA)'; test -n "$(guilegwmoduledir)" || list=; \ files=`for p in $$list; do echo $$p; done | sed -e 's|^.*/||'`; \ dir='$(DESTDIR)$(guilegwmoduledir)'; $(am__uninstall_files_from_dir) ID: $(HEADERS) $(SOURCES) $(LISP) $(TAGS_FILES) list='$(SOURCES) $(HEADERS) $(LISP) $(TAGS_FILES)'; \ unique=`for i in $$list; do \ if test -f "$$i"; then echo $$i; else echo $(srcdir)/$$i; fi; \ done | \ $(AWK) '{ files[$$0] = 1; nonempty = 1; } \ END { if (nonempty) { for (i in files) print i; }; }'`; \ mkid -fID $$unique tags: TAGS TAGS: $(HEADERS) $(SOURCES) $(TAGS_DEPENDENCIES) \ $(TAGS_FILES) $(LISP) set x; \ here=`pwd`; \ list='$(SOURCES) $(HEADERS) $(LISP) $(TAGS_FILES)'; \ unique=`for i in $$list; do \ if test -f "$$i"; then echo $$i; else echo $(srcdir)/$$i; fi; \ done | \ $(AWK) '{ files[$$0] = 1; nonempty = 1; } \ END { if (nonempty) { for (i in files) print i; }; }'`; \ shift; \ if test -z "$(ETAGS_ARGS)$$*$$unique"; then :; else \ test -n "$$unique" || unique=$$empty_fix; \ if test $$# -gt 0; then \ $(ETAGS) $(ETAGSFLAGS) $(AM_ETAGSFLAGS) $(ETAGS_ARGS) \ "$$@" $$unique; \ else \ $(ETAGS) $(ETAGSFLAGS) $(AM_ETAGSFLAGS) $(ETAGS_ARGS) \ $$unique; \ fi; \ fi ctags: CTAGS CTAGS: $(HEADERS) $(SOURCES) $(TAGS_DEPENDENCIES) \ $(TAGS_FILES) $(LISP) list='$(SOURCES) $(HEADERS) $(LISP) $(TAGS_FILES)'; \ unique=`for i in $$list; do \ if test -f "$$i"; then echo $$i; else echo $(srcdir)/$$i; fi; \ done | \ $(AWK) '{ files[$$0] = 1; nonempty = 1; } \ END { if (nonempty) { for (i in files) print i; }; }'`; \ test -z "$(CTAGS_ARGS)$$unique" \ || $(CTAGS) $(CTAGSFLAGS) $(AM_CTAGSFLAGS) $(CTAGS_ARGS) \ $$unique GTAGS: here=`$(am__cd) $(top_builddir) && pwd` \ && $(am__cd) $(top_srcdir) \ && gtags -i $(GTAGS_ARGS) "$$here" distclean-tags: -rm -f TAGS ID GTAGS GRTAGS GSYMS GPATH tags distdir: $(DISTFILES) @srcdirstrip=`echo "$(srcdir)" | sed 's/[].[^$$\\*]/\\\\&/g'`; \ topsrcdirstrip=`echo "$(top_srcdir)" | sed 's/[].[^$$\\*]/\\\\&/g'`; \ list='$(DISTFILES)'; \ dist_files=`for file in $$list; do echo $$file; done | \ sed -e "s|^$$srcdirstrip/||;t" \ -e "s|^$$topsrcdirstrip/|$(top_builddir)/|;t"`; \ case $$dist_files in \ */*) $(MKDIR_P) `echo "$$dist_files" | \ sed '/\//!d;s|^|$(distdir)/|;s,/[^/]*$$,,' | \ sort -u` ;; \ esac; \ for file in $$dist_files; do \ if test -f $$file || test -d $$file; then d=.; else d=$(srcdir); fi; \ if test -d $$d/$$file; then \ dir=`echo "/$$file" | sed -e 's,/[^/]*$$,,'`; \ if test -d "$(distdir)/$$file"; then \ find "$(distdir)/$$file" -type d ! -perm -700 -exec chmod u+rwx {} \;; \ fi; \ if test -d $(srcdir)/$$file && test $$d != $(srcdir); then \ cp -fpR $(srcdir)/$$file "$(distdir)$$dir" || exit 1; \ find "$(distdir)/$$file" -type d ! -perm -700 -exec chmod u+rwx {} \;; \ fi; \ cp -fpR $$d/$$file "$(distdir)$$dir" || exit 1; \ else \ test -f "$(distdir)/$$file" \ || cp -p $$d/$$file "$(distdir)/$$file" \ || exit 1; \ fi; \ done check-am: all-am check: $(BUILT_SOURCES) $(MAKE) $(AM_MAKEFLAGS) check-am all-am: Makefile $(LTLIBRARIES) $(DATA) installdirs: for dir in "$(DESTDIR)$(guilegnomelibdir)" "$(DESTDIR)$(guilegwmoduledir)"; do \ test -z "$$dir" || $(MKDIR_P) "$$dir"; \ done install: $(BUILT_SOURCES) $(MAKE) $(AM_MAKEFLAGS) install-am install-exec: install-exec-am install-data: install-data-am uninstall: uninstall-am install-am: all-am @$(MAKE) $(AM_MAKEFLAGS) install-exec-am install-data-am installcheck: installcheck-am install-strip: if test -z '$(STRIP)'; then \ $(MAKE) $(AM_MAKEFLAGS) INSTALL_PROGRAM="$(INSTALL_STRIP_PROGRAM)" \ install_sh_PROGRAM="$(INSTALL_STRIP_PROGRAM)" INSTALL_STRIP_FLAG=-s \ install; \ else \ $(MAKE) $(AM_MAKEFLAGS) INSTALL_PROGRAM="$(INSTALL_STRIP_PROGRAM)" \ install_sh_PROGRAM="$(INSTALL_STRIP_PROGRAM)" INSTALL_STRIP_FLAG=-s \ "INSTALL_PROGRAM_ENV=STRIPPROG='$(STRIP)'" install; \ fi mostlyclean-generic: clean-generic: -test -z "$(CLEANFILES)" || rm -f $(CLEANFILES) distclean-generic: -test -z "$(CONFIG_CLEAN_FILES)" || rm -f $(CONFIG_CLEAN_FILES) -test . = "$(srcdir)" || test -z "$(CONFIG_CLEAN_VPATH_FILES)" || rm -f $(CONFIG_CLEAN_VPATH_FILES) maintainer-clean-generic: @echo "This command is intended for maintainers to use" @echo "it deletes files that may require special tools to rebuild." -test -z "$(BUILT_SOURCES)" || rm -f $(BUILT_SOURCES) clean: clean-am clean-am: clean-generic clean-guilegnomelibLTLIBRARIES clean-libtool \ mostlyclean-am distclean: distclean-am -rm -rf ./$(DEPDIR) -rm -f Makefile distclean-am: clean-am distclean-compile distclean-generic \ distclean-tags dvi: dvi-am dvi-am: html: html-am html-am: info: info-am info-am: install-data-am: install-guilegnomelibLTLIBRARIES \ install-guilegwmoduleDATA install-dvi: install-dvi-am install-dvi-am: install-exec-am: install-html: install-html-am install-html-am: install-info: install-info-am install-info-am: install-man: install-pdf: install-pdf-am install-pdf-am: install-ps: install-ps-am install-ps-am: installcheck-am: maintainer-clean: maintainer-clean-am -rm -rf ./$(DEPDIR) -rm -f Makefile maintainer-clean-am: distclean-am maintainer-clean-generic mostlyclean: mostlyclean-am mostlyclean-am: mostlyclean-compile mostlyclean-generic \ mostlyclean-libtool pdf: pdf-am pdf-am: ps: ps-am ps-am: uninstall-am: uninstall-guilegnomelibLTLIBRARIES \ uninstall-guilegwmoduleDATA .MAKE: all check install install-am install-strip .PHONY: CTAGS GTAGS all all-am check check-am clean clean-generic \ clean-guilegnomelibLTLIBRARIES clean-libtool ctags distclean \ distclean-compile distclean-generic distclean-libtool \ distclean-tags distdir dvi dvi-am html html-am info info-am \ install install-am install-data install-data-am install-dvi \ install-dvi-am install-exec install-exec-am \ install-guilegnomelibLTLIBRARIES install-guilegwmoduleDATA \ install-html install-html-am install-info install-info-am \ install-man install-pdf install-pdf-am install-ps \ install-ps-am install-strip installcheck installcheck-am \ installdirs maintainer-clean maintainer-clean-generic \ mostlyclean mostlyclean-compile mostlyclean-generic \ mostlyclean-libtool pdf pdf-am ps ps-am tags uninstall \ uninstall-am uninstall-guilegnomelibLTLIBRARIES \ uninstall-guilegwmoduleDATA export GUILE_LOAD_PATH .c.x: guile-snarf $(GUILE_SNARF_CFLAGS) $< > $@ \ || { rm $@; false; } .c.doc: $(CPP) -DSCM_MAGIC_SNARF_DOCS $(GUILE_SNARF_CFLAGS) $< \ | grep -E '(\^\^ {|\^\^ })' > $@ || { rm $@; false; } %.scm guile-gnome-gw-%.c: %-spec.scm guile $(GUILE_FLAGS) -c \ "(debug-set! stack 400000) \ (use-modules (gnome-@API_VERSION@)) \ (use-modules (g-wrap)) \ (use-modules (gnome gw $*-spec)) \ (generate-wrapset 'guile 'gnome-$* \"guile-gnome-gw-$*\")" mv guile-gnome-gw-$*.scm $*.scm %-@API_VERSION@.pc: %.pc cp $< $@ %-@API_VERSION@-uninstalled.pc: %-uninstalled.pc cp $< $@ # Tell versions [3.59,3.63) of GNU make to not export all variables. # Otherwise a system limit (for SysV at least) may be exceeded. .NOEXPORT: guile-gnome-platform-2.16.2/pango/gnome/gw/pango-support.h0000644000175000017500000000234511670374303024011 0ustar00wingowingo00000000000000/* guile-gnome * Copyright (C) 2007 Andy Wingo * * pango-support.h: * * This program is free software; you can redistribute it and/or * modify it under the terms of the GNU General Public License as * published by the Free Software Foundation; either version 2 of * the License, or (at your option) any later version. * * This program is distributed in the hope that it will be useful, * but WITHOUT ANY WARRANTY; without even the implied warranty of * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the * GNU General Public License for more details. * * You should have received a copy of the GNU General Public License * along with this program; if not, contact: * * Free Software Foundation Voice: +1-617-542-5942 * 59 Temple Place - Suite 330 Fax: +1-617-542-2652 * Boston, MA 02111-1307, USA gnu@gnu.org */ #include #include SCM scm_pango_rectangle_to_scm (PangoRectangle *rect); void scm_scm_to_pango_rectangle (SCM scm, PangoRectangle *rect); guile-gnome-platform-2.16.2/pango/gnome/pango.scm0000644000175000017500000000240511670374303022212 0ustar00wingowingo00000000000000;; guile-gnome ;; Copyright (C) 2003,2004 Andy Wingo ;; This program is free software; you can redistribute it and/or ;; modify it under the terms of the GNU General Public License as ;; published by the Free Software Foundation; either version 2 of ;; the License, or (at your option) any later version. ;; ;; This program is distributed in the hope that it will be useful, ;; but WITHOUT ANY WARRANTY; without even the implied warranty of ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the ;; GNU General Public License for more details. ;; ;; You should have received a copy of the GNU General Public License ;; along with this program; if not, contact: ;; ;; Free Software Foundation Voice: +1-617-542-5942 ;; 59 Temple Place - Suite 330 Fax: +1-617-542-2652 ;; Boston, MA 02111-1307, USA gnu@gnu.org ;;; Commentary: ;; ;;Pango bindings. ;; ;;; Code: (define-module (gnome pango) #:use-module (gnome gobject) #:use-module (gnome gw pango) #:use-module (gnome gw support modules)) (re-export-modules (gnome gw pango)) guile-gnome-platform-2.16.2/pango/gnome/pangocairo.scm0000644000175000017500000000242411670374303023231 0ustar00wingowingo00000000000000;; guile-gnome ;; Copyright (C) 2003,2004 Andy Wingo ;; This program is free software; you can redistribute it and/or ;; modify it under the terms of the GNU General Public License as ;; published by the Free Software Foundation; either version 2 of ;; the License, or (at your option) any later version. ;; ;; This program is distributed in the hope that it will be useful, ;; but WITHOUT ANY WARRANTY; without even the implied warranty of ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the ;; GNU General Public License for more details. ;; ;; You should have received a copy of the GNU General Public License ;; along with this program; if not, contact: ;; ;; Free Software Foundation Voice: +1-617-542-5942 ;; 59 Temple Place - Suite 330 Fax: +1-617-542-2652 ;; Boston, MA 02111-1307, USA gnu@gnu.org ;;; Commentary: ;; ;;Pango bindings. ;; ;;; Code: (define-module (gnome pangocairo) #:use-module (gnome gobject) #:use-module (gnome gw pangocairo) #:use-module (gnome gw support modules)) (re-export-modules (gnome gw pangocairo)) guile-gnome-platform-2.16.2/pango/gnome/Makefile.am0000644000175000017500000000041411670374303022434 0ustar00wingowingo00000000000000include $(top_srcdir)/common.mk SUBDIRS = guilemodule_DATA = if HAVE_PANGO guilemodule_DATA += pango.scm SUBDIRS += gw overrides endif if HAVE_PANGOCAIRO guilemodule_DATA += pangocairo.scm endif EXTRA_DIST = pango.scm pangocairo.scm DIST_SUBDIRS = gw overrides guile-gnome-platform-2.16.2/pango/gnome/Makefile.in0000644000175000017500000005756511752520667022477 0ustar00wingowingo00000000000000# Makefile.in generated by automake 1.11.5 from Makefile.am. # @configure_input@ # Copyright (C) 1994, 1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, # 2003, 2004, 2005, 2006, 2007, 2008, 2009, 2010, 2011 Free Software # Foundation, Inc. # This Makefile.in is free software; the Free Software Foundation # gives unlimited permission to copy and/or distribute it, # with or without modifications, as long as this notice is preserved. # This program is distributed in the hope that it will be useful, # but WITHOUT ANY WARRANTY, to the extent permitted by law; without # even the implied warranty of MERCHANTABILITY or FITNESS FOR A # PARTICULAR PURPOSE. @SET_MAKE@ # guile-gnome # Copyright (C) 2003,2004,2009,2012 Free Software Foundation, Inc. # This program is free software; you can redistribute it and/or # modify it under the terms of the GNU General Public License as # published by the Free Software Foundation; either version 2 of # the License, or (at your option) any later version. # This program is distributed in the hope that it will be useful, # but WITHOUT ANY WARRANTY; without even the implied warranty of # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the # GNU General Public License for more details. # You should have received a copy of the GNU General Public License # along with this program; if not, contact: # Free Software Foundation Voice: +1-617-542-5942 # 59 Temple Place - Suite 330 Fax: +1-617-542-2652 # Boston, MA 02111-1307, USA gnu@gnu.org # # Makefile snippet # VPATH = @srcdir@ am__make_dryrun = \ { \ am__dry=no; \ case $$MAKEFLAGS in \ *\\[\ \ ]*) \ echo 'am--echo: ; @echo "AM" OK' | $(MAKE) -f - 2>/dev/null \ | grep '^AM OK$$' >/dev/null || am__dry=yes;; \ *) \ for am__flg in $$MAKEFLAGS; do \ case $$am__flg in \ *=*|--*) ;; \ *n*) am__dry=yes; break;; \ esac; \ done;; \ esac; \ test $$am__dry = yes; \ } pkgdatadir = $(datadir)/@PACKAGE@ pkgincludedir = $(includedir)/@PACKAGE@ pkglibdir = $(libdir)/@PACKAGE@ pkglibexecdir = $(libexecdir)/@PACKAGE@ am__cd = CDPATH="$${ZSH_VERSION+.}$(PATH_SEPARATOR)" && cd install_sh_DATA = $(install_sh) -c -m 644 install_sh_PROGRAM = $(install_sh) -c install_sh_SCRIPT = $(install_sh) -c INSTALL_HEADER = $(INSTALL_DATA) transform = $(program_transform_name) NORMAL_INSTALL = : PRE_INSTALL = : POST_INSTALL = : NORMAL_UNINSTALL = : PRE_UNINSTALL = : POST_UNINSTALL = : build_triplet = @build@ host_triplet = @host@ DIST_COMMON = $(srcdir)/Makefile.am $(srcdir)/Makefile.in \ $(top_srcdir)/common.mk @HAVE_PANGO_TRUE@am__append_1 = pango.scm @HAVE_PANGO_TRUE@am__append_2 = gw overrides @HAVE_PANGOCAIRO_TRUE@am__append_3 = pangocairo.scm subdir = pango/gnome ACLOCAL_M4 = $(top_srcdir)/aclocal.m4 am__aclocal_m4_deps = $(top_srcdir)/configure.ac am__configure_deps = $(am__aclocal_m4_deps) $(CONFIGURE_DEPENDENCIES) \ $(ACLOCAL_M4) mkinstalldirs = $(install_sh) -d CONFIG_HEADER = $(top_builddir)/config.h CONFIG_CLEAN_FILES = CONFIG_CLEAN_VPATH_FILES = SOURCES = DIST_SOURCES = RECURSIVE_TARGETS = all-recursive check-recursive dvi-recursive \ html-recursive info-recursive install-data-recursive \ install-dvi-recursive install-exec-recursive \ install-html-recursive install-info-recursive \ install-pdf-recursive install-ps-recursive install-recursive \ installcheck-recursive installdirs-recursive pdf-recursive \ ps-recursive uninstall-recursive am__can_run_installinfo = \ case $$AM_UPDATE_INFO_DIR in \ n|no|NO) false;; \ *) (install-info --version) >/dev/null 2>&1;; \ esac am__vpath_adj_setup = srcdirstrip=`echo "$(srcdir)" | sed 's|.|.|g'`; am__vpath_adj = case $$p in \ $(srcdir)/*) f=`echo "$$p" | sed "s|^$$srcdirstrip/||"`;; \ *) f=$$p;; \ esac; am__strip_dir = f=`echo $$p | sed -e 's|^.*/||'`; am__install_max = 40 am__nobase_strip_setup = \ srcdirstrip=`echo "$(srcdir)" | sed 's/[].[^$$\\*|]/\\\\&/g'` am__nobase_strip = \ for p in $$list; do echo "$$p"; done | sed -e "s|$$srcdirstrip/||" am__nobase_list = $(am__nobase_strip_setup); \ for p in $$list; do echo "$$p $$p"; done | \ sed "s| $$srcdirstrip/| |;"' / .*\//!s/ .*/ ./; s,\( .*\)/[^/]*$$,\1,' | \ $(AWK) 'BEGIN { files["."] = "" } { files[$$2] = files[$$2] " " $$1; \ if (++n[$$2] == $(am__install_max)) \ { print $$2, files[$$2]; n[$$2] = 0; files[$$2] = "" } } \ END { for (dir in files) print dir, files[dir] }' am__base_list = \ sed '$$!N;$$!N;$$!N;$$!N;$$!N;$$!N;$$!N;s/\n/ /g' | \ sed '$$!N;$$!N;$$!N;$$!N;s/\n/ /g' am__uninstall_files_from_dir = { \ test -z "$$files" \ || { test ! -d "$$dir" && test ! -f "$$dir" && test ! -r "$$dir"; } \ || { echo " ( cd '$$dir' && rm -f" $$files ")"; \ $(am__cd) "$$dir" && rm -f $$files; }; \ } am__installdirs = "$(DESTDIR)$(guilemoduledir)" DATA = $(guilemodule_DATA) RECURSIVE_CLEAN_TARGETS = mostlyclean-recursive clean-recursive \ distclean-recursive maintainer-clean-recursive AM_RECURSIVE_TARGETS = $(RECURSIVE_TARGETS:-recursive=) \ $(RECURSIVE_CLEAN_TARGETS:-recursive=) tags TAGS ctags CTAGS \ distdir ETAGS = etags CTAGS = ctags DISTFILES = $(DIST_COMMON) $(DIST_SOURCES) $(TEXINFOS) $(EXTRA_DIST) am__relativize = \ dir0=`pwd`; \ sed_first='s,^\([^/]*\)/.*$$,\1,'; \ sed_rest='s,^[^/]*/*,,'; \ sed_last='s,^.*/\([^/]*\)$$,\1,'; \ sed_butlast='s,/*[^/]*$$,,'; \ while test -n "$$dir1"; do \ first=`echo "$$dir1" | sed -e "$$sed_first"`; \ if test "$$first" != "."; then \ if test "$$first" = ".."; then \ dir2=`echo "$$dir0" | sed -e "$$sed_last"`/"$$dir2"; \ dir0=`echo "$$dir0" | sed -e "$$sed_butlast"`; \ else \ first2=`echo "$$dir2" | sed -e "$$sed_first"`; \ if test "$$first2" = "$$first"; then \ dir2=`echo "$$dir2" | sed -e "$$sed_rest"`; \ else \ dir2="../$$dir2"; \ fi; \ dir0="$$dir0"/"$$first"; \ fi; \ fi; \ dir1=`echo "$$dir1" | sed -e "$$sed_rest"`; \ done; \ reldir="$$dir2" ACLOCAL = @ACLOCAL@ AG_PKG_CONFIG_PATH = @AG_PKG_CONFIG_PATH@ AMTAR = @AMTAR@ API_VERSION = @API_VERSION@ AR = @AR@ ATK_CFLAGS = @ATK_CFLAGS@ ATK_LIBS = @ATK_LIBS@ AUTOCONF = @AUTOCONF@ AUTOHEADER = @AUTOHEADER@ AUTOMAKE = @AUTOMAKE@ AWK = @AWK@ BONOBO_IDL_DIR = @BONOBO_IDL_DIR@ CANVAS_CFLAGS = @CANVAS_CFLAGS@ CANVAS_LIBS = @CANVAS_LIBS@ CC = @CC@ CCDEPMODE = @CCDEPMODE@ CFLAGS = @CFLAGS@ CORBA_CFLAGS = @CORBA_CFLAGS@ CORBA_LIBS = @CORBA_LIBS@ CPP = @CPP@ CPPFLAGS = @CPPFLAGS@ CYGPATH_W = @CYGPATH_W@ DEFS = @DEFS@ DEPDIR = @DEPDIR@ DLLTOOL = @DLLTOOL@ DSYMUTIL = @DSYMUTIL@ DUMPBIN = @DUMPBIN@ ECHO_C = @ECHO_C@ ECHO_N = @ECHO_N@ ECHO_T = @ECHO_T@ EGREP = @EGREP@ EXEEXT = @EXEEXT@ FGREP = @FGREP@ GCONF_CFLAGS = @GCONF_CFLAGS@ GCONF_LIBS = @GCONF_LIBS@ GDK_CFLAGS = @GDK_CFLAGS@ GDK_LIBS = @GDK_LIBS@ GDK_PIXBUF_CFLAGS = @GDK_PIXBUF_CFLAGS@ GDK_PIXBUF_LIBS = @GDK_PIXBUF_LIBS@ GLIB_CFLAGS = @GLIB_CFLAGS@ GLIB_LIBS = @GLIB_LIBS@ GNOMEUI_DEPRECATION_FLAGS = @GNOMEUI_DEPRECATION_FLAGS@ GNOME_VFS_CFLAGS = @GNOME_VFS_CFLAGS@ GNOME_VFS_DEPRECATED_CFLAGS = @GNOME_VFS_DEPRECATED_CFLAGS@ GNOME_VFS_LIBS = @GNOME_VFS_LIBS@ GOBJECT_CFLAGS = @GOBJECT_CFLAGS@ GOBJECT_LIBS = @GOBJECT_LIBS@ GREP = @GREP@ GTHREAD_CFLAGS = @GTHREAD_CFLAGS@ GTHREAD_LIBS = @GTHREAD_LIBS@ GTK_CFLAGS = @GTK_CFLAGS@ GTK_DEPRECATED_CFLAGS = @GTK_DEPRECATED_CFLAGS@ GTK_LIBS = @GTK_LIBS@ GUILE_CAIRO_CFLAGS = @GUILE_CAIRO_CFLAGS@ GUILE_CAIRO_LIBS = @GUILE_CAIRO_LIBS@ GUILE_CFLAGS = @GUILE_CFLAGS@ GUILE_EFFECTIVE_VERSION = @GUILE_EFFECTIVE_VERSION@ GUILE_GLIB_CFLAGS = @GUILE_GLIB_CFLAGS@ GUILE_GLIB_LIBS = @GUILE_GLIB_LIBS@ GUILE_LIBS = @GUILE_LIBS@ G_WRAP_CFLAGS = @G_WRAP_CFLAGS@ G_WRAP_LIBS = @G_WRAP_LIBS@ G_WRAP_LIB_DIR = @G_WRAP_LIB_DIR@ G_WRAP_MODULE_DIR = @G_WRAP_MODULE_DIR@ INSTALL = @INSTALL@ INSTALL_DATA = @INSTALL_DATA@ INSTALL_PROGRAM = @INSTALL_PROGRAM@ INSTALL_SCRIPT = @INSTALL_SCRIPT@ INSTALL_STRIP_PROGRAM = @INSTALL_STRIP_PROGRAM@ LD = @LD@ LDFLAGS = @LDFLAGS@ LIBGLADE_CFLAGS = @LIBGLADE_CFLAGS@ LIBGLADE_LIBS = @LIBGLADE_LIBS@ LIBGNOMEUI_CFLAGS = @LIBGNOMEUI_CFLAGS@ LIBGNOMEUI_LIBS = @LIBGNOMEUI_LIBS@ LIBGNOME_CFLAGS = @LIBGNOME_CFLAGS@ LIBGNOME_LIBS = @LIBGNOME_LIBS@ LIBOBJS = @LIBOBJS@ LIBS = @LIBS@ LIBTOOL = @LIBTOOL@ LIPO = @LIPO@ LN_S = @LN_S@ LTLIBOBJS = @LTLIBOBJS@ MAKEINFO = @MAKEINFO@ MANIFEST_TOOL = @MANIFEST_TOOL@ MKDIR_P = @MKDIR_P@ NM = @NM@ NMEDIT = @NMEDIT@ OBJDUMP = @OBJDUMP@ OBJEXT = @OBJEXT@ ORBIT_IDL = @ORBIT_IDL@ OTOOL = @OTOOL@ OTOOL64 = @OTOOL64@ PACKAGE = @PACKAGE@ PACKAGE_BUGREPORT = @PACKAGE_BUGREPORT@ PACKAGE_NAME = @PACKAGE_NAME@ PACKAGE_STRING = @PACKAGE_STRING@ PACKAGE_TARNAME = @PACKAGE_TARNAME@ PACKAGE_URL = @PACKAGE_URL@ PACKAGE_VERSION = @PACKAGE_VERSION@ PANGOCAIRO_CFLAGS = @PANGOCAIRO_CFLAGS@ PANGOCAIRO_LIBS = @PANGOCAIRO_LIBS@ PANGO_CFLAGS = @PANGO_CFLAGS@ PANGO_LIBS = @PANGO_LIBS@ PATH_SEPARATOR = @PATH_SEPARATOR@ PKG_CONFIG = @PKG_CONFIG@ PKG_CONFIG_LIBDIR = @PKG_CONFIG_LIBDIR@ PKG_CONFIG_PATH = @PKG_CONFIG_PATH@ RANLIB = @RANLIB@ SED = @SED@ SET_MAKE = @SET_MAKE@ SHELL = @SHELL@ STRIP = @STRIP@ VERSION = @VERSION@ WARN_CFLAGS = @WARN_CFLAGS@ abs_builddir = @abs_builddir@ abs_srcdir = @abs_srcdir@ abs_top_builddir = @abs_top_builddir@ abs_top_srcdir = @abs_top_srcdir@ ac_ct_AR = @ac_ct_AR@ ac_ct_CC = @ac_ct_CC@ ac_ct_DUMPBIN = @ac_ct_DUMPBIN@ am__include = @am__include@ am__leading_dot = @am__leading_dot@ am__quote = @am__quote@ am__tar = @am__tar@ am__untar = @am__untar@ bindir = @bindir@ build = @build@ build_alias = @build_alias@ build_cpu = @build_cpu@ build_os = @build_os@ build_vendor = @build_vendor@ builddir = @builddir@ datadir = @datadir@ datarootdir = @datarootdir@ docdir = @docdir@ dvidir = @dvidir@ exec_prefix = @exec_prefix@ host = @host@ host_alias = @host_alias@ host_cpu = @host_cpu@ host_os = @host_os@ host_vendor = @host_vendor@ htmldir = @htmldir@ includedir = @includedir@ infodir = @infodir@ install_sh = @install_sh@ libdir = @libdir@ libexecdir = @libexecdir@ localedir = @localedir@ localstatedir = @localstatedir@ mandir = @mandir@ mkdir_p = @mkdir_p@ oldincludedir = @oldincludedir@ pdfdir = @pdfdir@ prefix = @prefix@ program_transform_name = @program_transform_name@ psdir = @psdir@ sbindir = @sbindir@ sharedstatedir = @sharedstatedir@ srcdir = @srcdir@ sysconfdir = @sysconfdir@ target_alias = @target_alias@ top_build_prefix = @top_build_prefix@ top_builddir = @top_builddir@ top_srcdir = @top_srcdir@ guilegnomedir = $(datadir)/guile-gnome-@API_VERSION@ guilemoduledir = $(guilegnomedir)/gnome guilegwmoduledir = $(guilegnomedir)/gnome/gw guilegnomelibdir = $(libdir)/guile-gnome-@API_VERSION@ AM_CFLAGS = -I. -I$(srcdir) $(WARN_CFLAGS) $(DEBUG_CFLAGS) # For overriding from the command line (e.g. --debug) GUILE_FLAGS = SUFFIXES = .x .doc GUILE_SNARF_CFLAGS = $(DEFS) $(AM_CFLAGS) $(GUILE_CFLAGS) $(G_WRAP_CFLAGS) PACKAGES = atk cairo corba defs gconf glib gnome-vfs gtk libglade libgnome libgnomecanvas libgnomeui pango SOURCE_GUILE_PATH = $(shell echo $(addprefix $(top_srcdir)/,$(PACKAGES)) | sed -e 's/ /:/g'):$(srcdir) BUILD_GUILE_PATH = $(if $(filter-out $(top_srcdir),$(top_builddir)),$(shell echo -n $(addprefix $(top_builddir)/,$(PACKAGES)): | sed -e 's/ /:/g'),) GUILE_LOAD_PATH := $(BUILD_GUILE_PATH)$(SOURCE_GUILE_PATH):${G_WRAP_MODULE_DIR}:${GUILE_LOAD_PATH} # Real gnu make foo packages = $(filter-out %-uninstalled,$(patsubst %.pc.in,%,$(notdir $(wildcard $(srcdir)/*.pc.in)))) pcifiles = $(patsubst %,%-@API_VERSION@.pc,$(packages)) pcufiles = $(patsubst %,%-@API_VERSION@-uninstalled.pc,$(packages)) SUBDIRS = $(am__append_2) guilemodule_DATA = $(am__append_1) $(am__append_3) EXTRA_DIST = pango.scm pangocairo.scm DIST_SUBDIRS = gw overrides all: all-recursive .SUFFIXES: .SUFFIXES: .x .doc .c $(srcdir)/Makefile.in: $(srcdir)/Makefile.am $(top_srcdir)/common.mk $(am__configure_deps) @for dep in $?; do \ case '$(am__configure_deps)' in \ *$$dep*) \ ( cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh ) \ && { if test -f $@; then exit 0; else break; fi; }; \ exit 1;; \ esac; \ done; \ echo ' cd $(top_srcdir) && $(AUTOMAKE) --gnu pango/gnome/Makefile'; \ $(am__cd) $(top_srcdir) && \ $(AUTOMAKE) --gnu pango/gnome/Makefile .PRECIOUS: Makefile Makefile: $(srcdir)/Makefile.in $(top_builddir)/config.status @case '$?' in \ *config.status*) \ cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh;; \ *) \ echo ' cd $(top_builddir) && $(SHELL) ./config.status $(subdir)/$@ $(am__depfiles_maybe)'; \ cd $(top_builddir) && $(SHELL) ./config.status $(subdir)/$@ $(am__depfiles_maybe);; \ esac; $(top_srcdir)/common.mk: $(top_builddir)/config.status: $(top_srcdir)/configure $(CONFIG_STATUS_DEPENDENCIES) cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh $(top_srcdir)/configure: $(am__configure_deps) cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh $(ACLOCAL_M4): $(am__aclocal_m4_deps) cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh $(am__aclocal_m4_deps): mostlyclean-libtool: -rm -f *.lo clean-libtool: -rm -rf .libs _libs install-guilemoduleDATA: $(guilemodule_DATA) @$(NORMAL_INSTALL) @list='$(guilemodule_DATA)'; test -n "$(guilemoduledir)" || list=; \ if test -n "$$list"; then \ echo " $(MKDIR_P) '$(DESTDIR)$(guilemoduledir)'"; \ $(MKDIR_P) "$(DESTDIR)$(guilemoduledir)" || exit 1; \ fi; \ for p in $$list; do \ if test -f "$$p"; then d=; else d="$(srcdir)/"; fi; \ echo "$$d$$p"; \ done | $(am__base_list) | \ while read files; do \ echo " $(INSTALL_DATA) $$files '$(DESTDIR)$(guilemoduledir)'"; \ $(INSTALL_DATA) $$files "$(DESTDIR)$(guilemoduledir)" || exit $$?; \ done uninstall-guilemoduleDATA: @$(NORMAL_UNINSTALL) @list='$(guilemodule_DATA)'; test -n "$(guilemoduledir)" || list=; \ files=`for p in $$list; do echo $$p; done | sed -e 's|^.*/||'`; \ dir='$(DESTDIR)$(guilemoduledir)'; $(am__uninstall_files_from_dir) # This directory's subdirectories are mostly independent; you can cd # into them and run `make' without going through this Makefile. # To change the values of `make' variables: instead of editing Makefiles, # (1) if the variable is set in `config.status', edit `config.status' # (which will cause the Makefiles to be regenerated when you run `make'); # (2) otherwise, pass the desired values on the `make' command line. $(RECURSIVE_TARGETS): @fail= failcom='exit 1'; \ for f in x $$MAKEFLAGS; do \ case $$f in \ *=* | --[!k]*);; \ *k*) failcom='fail=yes';; \ esac; \ done; \ dot_seen=no; \ target=`echo $@ | sed s/-recursive//`; \ list='$(SUBDIRS)'; for subdir in $$list; do \ echo "Making $$target in $$subdir"; \ if test "$$subdir" = "."; then \ dot_seen=yes; \ local_target="$$target-am"; \ else \ local_target="$$target"; \ fi; \ ($(am__cd) $$subdir && $(MAKE) $(AM_MAKEFLAGS) $$local_target) \ || eval $$failcom; \ done; \ if test "$$dot_seen" = "no"; then \ $(MAKE) $(AM_MAKEFLAGS) "$$target-am" || exit 1; \ fi; test -z "$$fail" $(RECURSIVE_CLEAN_TARGETS): @fail= failcom='exit 1'; \ for f in x $$MAKEFLAGS; do \ case $$f in \ *=* | --[!k]*);; \ *k*) failcom='fail=yes';; \ esac; \ done; \ dot_seen=no; \ case "$@" in \ distclean-* | maintainer-clean-*) list='$(DIST_SUBDIRS)' ;; \ *) list='$(SUBDIRS)' ;; \ esac; \ rev=''; for subdir in $$list; do \ if test "$$subdir" = "."; then :; else \ rev="$$subdir $$rev"; \ fi; \ done; \ rev="$$rev ."; \ target=`echo $@ | sed s/-recursive//`; \ for subdir in $$rev; do \ echo "Making $$target in $$subdir"; \ if test "$$subdir" = "."; then \ local_target="$$target-am"; \ else \ local_target="$$target"; \ fi; \ ($(am__cd) $$subdir && $(MAKE) $(AM_MAKEFLAGS) $$local_target) \ || eval $$failcom; \ done && test -z "$$fail" tags-recursive: list='$(SUBDIRS)'; for subdir in $$list; do \ test "$$subdir" = . || ($(am__cd) $$subdir && $(MAKE) $(AM_MAKEFLAGS) tags); \ done ctags-recursive: list='$(SUBDIRS)'; for subdir in $$list; do \ test "$$subdir" = . || ($(am__cd) $$subdir && $(MAKE) $(AM_MAKEFLAGS) ctags); \ done ID: $(HEADERS) $(SOURCES) $(LISP) $(TAGS_FILES) list='$(SOURCES) $(HEADERS) $(LISP) $(TAGS_FILES)'; \ unique=`for i in $$list; do \ if test -f "$$i"; then echo $$i; else echo $(srcdir)/$$i; fi; \ done | \ $(AWK) '{ files[$$0] = 1; nonempty = 1; } \ END { if (nonempty) { for (i in files) print i; }; }'`; \ mkid -fID $$unique tags: TAGS TAGS: tags-recursive $(HEADERS) $(SOURCES) $(TAGS_DEPENDENCIES) \ $(TAGS_FILES) $(LISP) set x; \ here=`pwd`; \ if ($(ETAGS) --etags-include --version) >/dev/null 2>&1; then \ include_option=--etags-include; \ empty_fix=.; \ else \ include_option=--include; \ empty_fix=; \ fi; \ list='$(SUBDIRS)'; for subdir in $$list; do \ if test "$$subdir" = .; then :; else \ test ! -f $$subdir/TAGS || \ set "$$@" "$$include_option=$$here/$$subdir/TAGS"; \ fi; \ done; \ list='$(SOURCES) $(HEADERS) $(LISP) $(TAGS_FILES)'; \ unique=`for i in $$list; do \ if test -f "$$i"; then echo $$i; else echo $(srcdir)/$$i; fi; \ done | \ $(AWK) '{ files[$$0] = 1; nonempty = 1; } \ END { if (nonempty) { for (i in files) print i; }; }'`; \ shift; \ if test -z "$(ETAGS_ARGS)$$*$$unique"; then :; else \ test -n "$$unique" || unique=$$empty_fix; \ if test $$# -gt 0; then \ $(ETAGS) $(ETAGSFLAGS) $(AM_ETAGSFLAGS) $(ETAGS_ARGS) \ "$$@" $$unique; \ else \ $(ETAGS) $(ETAGSFLAGS) $(AM_ETAGSFLAGS) $(ETAGS_ARGS) \ $$unique; \ fi; \ fi ctags: CTAGS CTAGS: ctags-recursive $(HEADERS) $(SOURCES) $(TAGS_DEPENDENCIES) \ $(TAGS_FILES) $(LISP) list='$(SOURCES) $(HEADERS) $(LISP) $(TAGS_FILES)'; \ unique=`for i in $$list; do \ if test -f "$$i"; then echo $$i; else echo $(srcdir)/$$i; fi; \ done | \ $(AWK) '{ files[$$0] = 1; nonempty = 1; } \ END { if (nonempty) { for (i in files) print i; }; }'`; \ test -z "$(CTAGS_ARGS)$$unique" \ || $(CTAGS) $(CTAGSFLAGS) $(AM_CTAGSFLAGS) $(CTAGS_ARGS) \ $$unique GTAGS: here=`$(am__cd) $(top_builddir) && pwd` \ && $(am__cd) $(top_srcdir) \ && gtags -i $(GTAGS_ARGS) "$$here" distclean-tags: -rm -f TAGS ID GTAGS GRTAGS GSYMS GPATH tags distdir: $(DISTFILES) @srcdirstrip=`echo "$(srcdir)" | sed 's/[].[^$$\\*]/\\\\&/g'`; \ topsrcdirstrip=`echo "$(top_srcdir)" | sed 's/[].[^$$\\*]/\\\\&/g'`; \ list='$(DISTFILES)'; \ dist_files=`for file in $$list; do echo $$file; done | \ sed -e "s|^$$srcdirstrip/||;t" \ -e "s|^$$topsrcdirstrip/|$(top_builddir)/|;t"`; \ case $$dist_files in \ */*) $(MKDIR_P) `echo "$$dist_files" | \ sed '/\//!d;s|^|$(distdir)/|;s,/[^/]*$$,,' | \ sort -u` ;; \ esac; \ for file in $$dist_files; do \ if test -f $$file || test -d $$file; then d=.; else d=$(srcdir); fi; \ if test -d $$d/$$file; then \ dir=`echo "/$$file" | sed -e 's,/[^/]*$$,,'`; \ if test -d "$(distdir)/$$file"; then \ find "$(distdir)/$$file" -type d ! -perm -700 -exec chmod u+rwx {} \;; \ fi; \ if test -d $(srcdir)/$$file && test $$d != $(srcdir); then \ cp -fpR $(srcdir)/$$file "$(distdir)$$dir" || exit 1; \ find "$(distdir)/$$file" -type d ! -perm -700 -exec chmod u+rwx {} \;; \ fi; \ cp -fpR $$d/$$file "$(distdir)$$dir" || exit 1; \ else \ test -f "$(distdir)/$$file" \ || cp -p $$d/$$file "$(distdir)/$$file" \ || exit 1; \ fi; \ done @list='$(DIST_SUBDIRS)'; for subdir in $$list; do \ if test "$$subdir" = .; then :; else \ $(am__make_dryrun) \ || test -d "$(distdir)/$$subdir" \ || $(MKDIR_P) "$(distdir)/$$subdir" \ || exit 1; \ dir1=$$subdir; dir2="$(distdir)/$$subdir"; \ $(am__relativize); \ new_distdir=$$reldir; \ dir1=$$subdir; dir2="$(top_distdir)"; \ $(am__relativize); \ new_top_distdir=$$reldir; \ echo " (cd $$subdir && $(MAKE) $(AM_MAKEFLAGS) top_distdir="$$new_top_distdir" distdir="$$new_distdir" \\"; \ echo " am__remove_distdir=: am__skip_length_check=: am__skip_mode_fix=: distdir)"; \ ($(am__cd) $$subdir && \ $(MAKE) $(AM_MAKEFLAGS) \ top_distdir="$$new_top_distdir" \ distdir="$$new_distdir" \ am__remove_distdir=: \ am__skip_length_check=: \ am__skip_mode_fix=: \ distdir) \ || exit 1; \ fi; \ done check-am: all-am check: check-recursive all-am: Makefile $(DATA) installdirs: installdirs-recursive installdirs-am: for dir in "$(DESTDIR)$(guilemoduledir)"; do \ test -z "$$dir" || $(MKDIR_P) "$$dir"; \ done install: install-recursive install-exec: install-exec-recursive install-data: install-data-recursive uninstall: uninstall-recursive install-am: all-am @$(MAKE) $(AM_MAKEFLAGS) install-exec-am install-data-am installcheck: installcheck-recursive install-strip: if test -z '$(STRIP)'; then \ $(MAKE) $(AM_MAKEFLAGS) INSTALL_PROGRAM="$(INSTALL_STRIP_PROGRAM)" \ install_sh_PROGRAM="$(INSTALL_STRIP_PROGRAM)" INSTALL_STRIP_FLAG=-s \ install; \ else \ $(MAKE) $(AM_MAKEFLAGS) INSTALL_PROGRAM="$(INSTALL_STRIP_PROGRAM)" \ install_sh_PROGRAM="$(INSTALL_STRIP_PROGRAM)" INSTALL_STRIP_FLAG=-s \ "INSTALL_PROGRAM_ENV=STRIPPROG='$(STRIP)'" install; \ fi mostlyclean-generic: clean-generic: distclean-generic: -test -z "$(CONFIG_CLEAN_FILES)" || rm -f $(CONFIG_CLEAN_FILES) -test . = "$(srcdir)" || test -z "$(CONFIG_CLEAN_VPATH_FILES)" || rm -f $(CONFIG_CLEAN_VPATH_FILES) maintainer-clean-generic: @echo "This command is intended for maintainers to use" @echo "it deletes files that may require special tools to rebuild." clean: clean-recursive clean-am: clean-generic clean-libtool mostlyclean-am distclean: distclean-recursive -rm -f Makefile distclean-am: clean-am distclean-generic distclean-tags dvi: dvi-recursive dvi-am: html: html-recursive html-am: info: info-recursive info-am: install-data-am: install-guilemoduleDATA install-dvi: install-dvi-recursive install-dvi-am: install-exec-am: install-html: install-html-recursive install-html-am: install-info: install-info-recursive install-info-am: install-man: install-pdf: install-pdf-recursive install-pdf-am: install-ps: install-ps-recursive install-ps-am: installcheck-am: maintainer-clean: maintainer-clean-recursive -rm -f Makefile maintainer-clean-am: distclean-am maintainer-clean-generic mostlyclean: mostlyclean-recursive mostlyclean-am: mostlyclean-generic mostlyclean-libtool pdf: pdf-recursive pdf-am: ps: ps-recursive ps-am: uninstall-am: uninstall-guilemoduleDATA .MAKE: $(RECURSIVE_CLEAN_TARGETS) $(RECURSIVE_TARGETS) ctags-recursive \ install-am install-strip tags-recursive .PHONY: $(RECURSIVE_CLEAN_TARGETS) $(RECURSIVE_TARGETS) CTAGS GTAGS \ all all-am check check-am clean clean-generic clean-libtool \ ctags ctags-recursive distclean distclean-generic \ distclean-libtool distclean-tags distdir dvi dvi-am html \ html-am info info-am install install-am install-data \ install-data-am install-dvi install-dvi-am install-exec \ install-exec-am install-guilemoduleDATA install-html \ install-html-am install-info install-info-am install-man \ install-pdf install-pdf-am install-ps install-ps-am \ install-strip installcheck installcheck-am installdirs \ installdirs-am maintainer-clean maintainer-clean-generic \ mostlyclean mostlyclean-generic mostlyclean-libtool pdf pdf-am \ ps ps-am tags tags-recursive uninstall uninstall-am \ uninstall-guilemoduleDATA export GUILE_LOAD_PATH .c.x: guile-snarf $(GUILE_SNARF_CFLAGS) $< > $@ \ || { rm $@; false; } .c.doc: $(CPP) -DSCM_MAGIC_SNARF_DOCS $(GUILE_SNARF_CFLAGS) $< \ | grep -E '(\^\^ {|\^\^ })' > $@ || { rm $@; false; } %.scm guile-gnome-gw-%.c: %-spec.scm guile $(GUILE_FLAGS) -c \ "(debug-set! stack 400000) \ (use-modules (gnome-@API_VERSION@)) \ (use-modules (g-wrap)) \ (use-modules (gnome gw $*-spec)) \ (generate-wrapset 'guile 'gnome-$* \"guile-gnome-gw-$*\")" mv guile-gnome-gw-$*.scm $*.scm %-@API_VERSION@.pc: %.pc cp $< $@ %-@API_VERSION@-uninstalled.pc: %-uninstalled.pc cp $< $@ # Tell versions [3.59,3.63) of GNU make to not export all variables. # Otherwise a system limit (for SysV at least) may be exceeded. .NOEXPORT: guile-gnome-platform-2.16.2/pango/gnome/overrides/0000755000175000017500000000000011752546501022405 5ustar00wingowingo00000000000000guile-gnome-platform-2.16.2/pango/gnome/overrides/pangocairo.defs0000644000175000017500000000233011670374303025366 0ustar00wingowingo00000000000000;; -*- scheme -*- ;; guile-gnome ;; Copyright (C) 2007 Andy Wingo ;; ;; This program is free software; you can redistribute it and/or ;; modify it under the terms of the GNU General Public License as ;; published by the Free Software Foundation; either version 2 of ;; the License, or (at your option) any later version. ;; ;; This program is distributed in the hope that it will be useful, ;; but WITHOUT ANY WARRANTY; without even the implied warranty of ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the ;; GNU General Public License for more details. ;; ;; You should have received a copy of the GNU General Public License ;; along with this program; if not, contact: ;; ;; Free Software Foundation Voice: +1-617-542-5942 ;; 59 Temple Place - Suite 330 Fax: +1-617-542-2652 ;; Boston, MA 02111-1307, USA gnu@gnu.org ;;; Commentary: ;; ;;Custom wrapper definitions. ;; ;;; Code: (define-object CairoFontMap (c-name "PangoCairoFontMap") (gtype-id "PANGO_TYPE_CAIRO_FONT_MAP")) guile-gnome-platform-2.16.2/pango/gnome/overrides/pango.defs0000644000175000017500000001317311670374303024357 0ustar00wingowingo00000000000000;; -*- scheme -*- ;; guile-gnome ;; Copyright (C) 2007 Andy Wingo ;; ;; This program is free software; you can redistribute it and/or ;; modify it under the terms of the GNU General Public License as ;; published by the Free Software Foundation; either version 2 of ;; the License, or (at your option) any later version. ;; ;; This program is distributed in the hope that it will be useful, ;; but WITHOUT ANY WARRANTY; without even the implied warranty of ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the ;; GNU General Public License for more details. ;; ;; You should have received a copy of the GNU General Public License ;; along with this program; if not, contact: ;; ;; Free Software Foundation Voice: +1-617-542-5942 ;; 59 Temple Place - Suite 330 Fax: +1-617-542-2652 ;; Boston, MA 02111-1307, USA gnu@gnu.org ;;; Commentary: ;; ;;Custom wrapper definitions. ;; ;;; Code: ;; boxed types (define-boxed AttrList (in-module "Pango") (c-name "PangoAttrList") (gtype-id "PANGO_TYPE_ATTR_LIST") (copy-func "pango_attr_list_ref") (release-func "pango_attr_list_unref") ) (define-boxed Matrix (in-module "Pango") (c-name "PangoMatrix") (gtype-id "PANGO_TYPE_MATRIX") (copy-func "pango_matrix_copy") (release-func "pango_matrix_free") ) (define-boxed Color (in-module "Pango") (c-name "PangoColor") (gtype-id "PANGO_TYPE_COLOR") (copy-func "pango_color_copy") (release-func "pango_color_free") (fields '("guint16" "red") '("guint16" "green") '("guint16" "blue") ) ) (define-boxed FontDescription (in-module "Pango") (c-name "PangoFontDescription") (gtype-id "PANGO_TYPE_FONT_DESCRIPTION") (copy-func "pango_font_description_copy") (release-func "pango_font_description_free") ) (define-boxed FontMetrics (in-module "Pango") (c-name "PangoFontMetrics") (gtype-id "PANGO_TYPE_FONT_METRICS") (copy-func "pango_font_metrics_ref") (release-func "pango_font_metrics_unref") ) (define-boxed GlyphString (in-module "Pango") (c-name "PangoGlyphString") (gtype-id "PANGO_TYPE_GLYPH_STRING") (copy-func "pango_glyph_string_copy") (release-func "pango_glyph_string_free") (fields '("gint" "num_glyphs") '("PangoGlyphInfo*" "glyphs") '("gint*" "log_clusters") ) ) (define-boxed Language (in-module "Pango") (c-name "PangoLanguage") (gtype-id "PANGO_TYPE_LANGUAGE") ) (define-boxed TabArray (in-module "Pango") (c-name "PangoTabArray") (gtype-id "PANGO_TYPE_TAB_ARRAY") (copy-func "pango_tab_array_copy") (release-func "pango_tab_array_free") ) (define-object Layout (c-name "PangoLayout") (gtype-id "PANGO_TYPE_LAYOUT")) (define-boxed LayoutLine (c-name "PangoLayoutLine") (gtype-id "PANGO_TYPE_LAYOUT_LINE")) (define-boxed LayoutIter (c-name "PangoLayoutIter") (gtype-id "PANGO_TYPE_LAYOUT_ITER")) (define-boxed Item (c-name "PangoItem") (gtype-id "PANGO_TYPE_ITEM")) (define-object Context (c-name "PangoContext") (gtype-id "PANGO_TYPE_CONTEXT")) (define-object Fontset (c-name "PangoFontset") (gtype-id "PANGO_TYPE_FONTSET")) (define-method get_attrs (of-object "PangoAttrIterator") (c-name "pango_attr_iterator_get_attrs") (overrides "pango_attr_iterator_get_attrs") (return-type "GSList*-of-PangoAttribute*") ) (define-function pango_itemize (c-name "pango_itemize") (overrides "pango_itemize") (return-type "GList*-of-PangoItem*") (parameters '("PangoContext*" "context") '("const-char*" "text") '("int" "start_index") '("int" "length") '("PangoAttrList*" "attrs") '("PangoAttrIterator*" "cached_iter") ) ) (define-function pango_itemize_with_base_dir (c-name "pango_itemize_with_base_dir") (overrides "pango_itemize_with_base_dir") (return-type "GList*-of-PangoItem*") (parameters '("PangoContext*" "context") '("PangoDirection" "base_dir") '("const-char*" "text") '("int" "start_index") '("int" "length") '("PangoAttrList*" "attrs") '("PangoAttrIterator*" "cached_iter") ) ) (define-function pango_reorder_items (c-name "pango_reorder_items") (overrides "pango_reorder_items") (return-type "GList*-of-PangoItem*") (parameters '("GList*-of-PangoItem*" "logical_items") ) ) (define-method get_lines (of-object "PangoLayout") (c-name "pango_layout_get_lines") (overrides "pango_layout_get_lines") (return-type "GSList*-of-PangoLayoutLine*") ) (ignore "pango_attr_shape_new_with_data" "pango_attr_iterator_get_font" "pango_attr_list_filter" "pango_coverage_to_bytes" "pango_coverage_from_bytes" "pango_context_new" "pango_context_set_font_map" "pango_context_list_families" "pango_break" ;; these three would be nice "pango_get_log_attrs" "pango_shape" "pango_glyph_item_apply_attrs" "pango_glyph_string_x_to_index" "pango_glyph_string_index_to_x" "pango_font_metrics_new" "pango_font_map_get_shape_engine_type" "pango_font_family_list_faces" "pango_font_face_list_sizes" "pango_font_map_list_families" "pango_font_find_shaper" "pango_layout_get_log_attrs" "pango_layout_iter_get_run" "pango_layout_line_get_x_ranges" "pango_parse_markup" "pango_tab_array_get_tab" "pango_tab_array_get_tabs" "pango_script_iter_get_range" "pango_map_get_engines" "pango_default_break") (ignore-glob "script_engine_*" "*_destroy") guile-gnome-platform-2.16.2/pango/gnome/overrides/Makefile.am0000644000175000017500000000021111670374303024431 0ustar00wingowingo00000000000000include $(top_srcdir)/common.mk moduledir = $(guilemoduledir)/overrides module_DATA = $(wildcard *.defs*) EXTRA_DIST = $(module_DATA) guile-gnome-platform-2.16.2/pango/gnome/overrides/Makefile.in0000644000175000017500000004122711752520671024460 0ustar00wingowingo00000000000000# Makefile.in generated by automake 1.11.5 from Makefile.am. # @configure_input@ # Copyright (C) 1994, 1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, # 2003, 2004, 2005, 2006, 2007, 2008, 2009, 2010, 2011 Free Software # Foundation, Inc. # This Makefile.in is free software; the Free Software Foundation # gives unlimited permission to copy and/or distribute it, # with or without modifications, as long as this notice is preserved. # This program is distributed in the hope that it will be useful, # but WITHOUT ANY WARRANTY, to the extent permitted by law; without # even the implied warranty of MERCHANTABILITY or FITNESS FOR A # PARTICULAR PURPOSE. @SET_MAKE@ # guile-gnome # Copyright (C) 2003,2004,2009,2012 Free Software Foundation, Inc. # This program is free software; you can redistribute it and/or # modify it under the terms of the GNU General Public License as # published by the Free Software Foundation; either version 2 of # the License, or (at your option) any later version. # This program is distributed in the hope that it will be useful, # but WITHOUT ANY WARRANTY; without even the implied warranty of # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the # GNU General Public License for more details. # You should have received a copy of the GNU General Public License # along with this program; if not, contact: # Free Software Foundation Voice: +1-617-542-5942 # 59 Temple Place - Suite 330 Fax: +1-617-542-2652 # Boston, MA 02111-1307, USA gnu@gnu.org # # Makefile snippet # VPATH = @srcdir@ am__make_dryrun = \ { \ am__dry=no; \ case $$MAKEFLAGS in \ *\\[\ \ ]*) \ echo 'am--echo: ; @echo "AM" OK' | $(MAKE) -f - 2>/dev/null \ | grep '^AM OK$$' >/dev/null || am__dry=yes;; \ *) \ for am__flg in $$MAKEFLAGS; do \ case $$am__flg in \ *=*|--*) ;; \ *n*) am__dry=yes; break;; \ esac; \ done;; \ esac; \ test $$am__dry = yes; \ } pkgdatadir = $(datadir)/@PACKAGE@ pkgincludedir = $(includedir)/@PACKAGE@ pkglibdir = $(libdir)/@PACKAGE@ pkglibexecdir = $(libexecdir)/@PACKAGE@ am__cd = CDPATH="$${ZSH_VERSION+.}$(PATH_SEPARATOR)" && cd install_sh_DATA = $(install_sh) -c -m 644 install_sh_PROGRAM = $(install_sh) -c install_sh_SCRIPT = $(install_sh) -c INSTALL_HEADER = $(INSTALL_DATA) transform = $(program_transform_name) NORMAL_INSTALL = : PRE_INSTALL = : POST_INSTALL = : NORMAL_UNINSTALL = : PRE_UNINSTALL = : POST_UNINSTALL = : build_triplet = @build@ host_triplet = @host@ DIST_COMMON = $(srcdir)/Makefile.am $(srcdir)/Makefile.in \ $(top_srcdir)/common.mk subdir = pango/gnome/overrides ACLOCAL_M4 = $(top_srcdir)/aclocal.m4 am__aclocal_m4_deps = $(top_srcdir)/configure.ac am__configure_deps = $(am__aclocal_m4_deps) $(CONFIGURE_DEPENDENCIES) \ $(ACLOCAL_M4) mkinstalldirs = $(install_sh) -d CONFIG_HEADER = $(top_builddir)/config.h CONFIG_CLEAN_FILES = CONFIG_CLEAN_VPATH_FILES = SOURCES = DIST_SOURCES = am__can_run_installinfo = \ case $$AM_UPDATE_INFO_DIR in \ n|no|NO) false;; \ *) (install-info --version) >/dev/null 2>&1;; \ esac am__vpath_adj_setup = srcdirstrip=`echo "$(srcdir)" | sed 's|.|.|g'`; am__vpath_adj = case $$p in \ $(srcdir)/*) f=`echo "$$p" | sed "s|^$$srcdirstrip/||"`;; \ *) f=$$p;; \ esac; am__strip_dir = f=`echo $$p | sed -e 's|^.*/||'`; am__install_max = 40 am__nobase_strip_setup = \ srcdirstrip=`echo "$(srcdir)" | sed 's/[].[^$$\\*|]/\\\\&/g'` am__nobase_strip = \ for p in $$list; do echo "$$p"; done | sed -e "s|$$srcdirstrip/||" am__nobase_list = $(am__nobase_strip_setup); \ for p in $$list; do echo "$$p $$p"; done | \ sed "s| $$srcdirstrip/| |;"' / .*\//!s/ .*/ ./; s,\( .*\)/[^/]*$$,\1,' | \ $(AWK) 'BEGIN { files["."] = "" } { files[$$2] = files[$$2] " " $$1; \ if (++n[$$2] == $(am__install_max)) \ { print $$2, files[$$2]; n[$$2] = 0; files[$$2] = "" } } \ END { for (dir in files) print dir, files[dir] }' am__base_list = \ sed '$$!N;$$!N;$$!N;$$!N;$$!N;$$!N;$$!N;s/\n/ /g' | \ sed '$$!N;$$!N;$$!N;$$!N;s/\n/ /g' am__uninstall_files_from_dir = { \ test -z "$$files" \ || { test ! -d "$$dir" && test ! -f "$$dir" && test ! -r "$$dir"; } \ || { echo " ( cd '$$dir' && rm -f" $$files ")"; \ $(am__cd) "$$dir" && rm -f $$files; }; \ } am__installdirs = "$(DESTDIR)$(moduledir)" DATA = $(module_DATA) DISTFILES = $(DIST_COMMON) $(DIST_SOURCES) $(TEXINFOS) $(EXTRA_DIST) ACLOCAL = @ACLOCAL@ AG_PKG_CONFIG_PATH = @AG_PKG_CONFIG_PATH@ AMTAR = @AMTAR@ API_VERSION = @API_VERSION@ AR = @AR@ ATK_CFLAGS = @ATK_CFLAGS@ ATK_LIBS = @ATK_LIBS@ AUTOCONF = @AUTOCONF@ AUTOHEADER = @AUTOHEADER@ AUTOMAKE = @AUTOMAKE@ AWK = @AWK@ BONOBO_IDL_DIR = @BONOBO_IDL_DIR@ CANVAS_CFLAGS = @CANVAS_CFLAGS@ CANVAS_LIBS = @CANVAS_LIBS@ CC = @CC@ CCDEPMODE = @CCDEPMODE@ CFLAGS = @CFLAGS@ CORBA_CFLAGS = @CORBA_CFLAGS@ CORBA_LIBS = @CORBA_LIBS@ CPP = @CPP@ CPPFLAGS = @CPPFLAGS@ CYGPATH_W = @CYGPATH_W@ DEFS = @DEFS@ DEPDIR = @DEPDIR@ DLLTOOL = @DLLTOOL@ DSYMUTIL = @DSYMUTIL@ DUMPBIN = @DUMPBIN@ ECHO_C = @ECHO_C@ ECHO_N = @ECHO_N@ ECHO_T = @ECHO_T@ EGREP = @EGREP@ EXEEXT = @EXEEXT@ FGREP = @FGREP@ GCONF_CFLAGS = @GCONF_CFLAGS@ GCONF_LIBS = @GCONF_LIBS@ GDK_CFLAGS = @GDK_CFLAGS@ GDK_LIBS = @GDK_LIBS@ GDK_PIXBUF_CFLAGS = @GDK_PIXBUF_CFLAGS@ GDK_PIXBUF_LIBS = @GDK_PIXBUF_LIBS@ GLIB_CFLAGS = @GLIB_CFLAGS@ GLIB_LIBS = @GLIB_LIBS@ GNOMEUI_DEPRECATION_FLAGS = @GNOMEUI_DEPRECATION_FLAGS@ GNOME_VFS_CFLAGS = @GNOME_VFS_CFLAGS@ GNOME_VFS_DEPRECATED_CFLAGS = @GNOME_VFS_DEPRECATED_CFLAGS@ GNOME_VFS_LIBS = @GNOME_VFS_LIBS@ GOBJECT_CFLAGS = @GOBJECT_CFLAGS@ GOBJECT_LIBS = @GOBJECT_LIBS@ GREP = @GREP@ GTHREAD_CFLAGS = @GTHREAD_CFLAGS@ GTHREAD_LIBS = @GTHREAD_LIBS@ GTK_CFLAGS = @GTK_CFLAGS@ GTK_DEPRECATED_CFLAGS = @GTK_DEPRECATED_CFLAGS@ GTK_LIBS = @GTK_LIBS@ GUILE_CAIRO_CFLAGS = @GUILE_CAIRO_CFLAGS@ GUILE_CAIRO_LIBS = @GUILE_CAIRO_LIBS@ GUILE_CFLAGS = @GUILE_CFLAGS@ GUILE_EFFECTIVE_VERSION = @GUILE_EFFECTIVE_VERSION@ GUILE_GLIB_CFLAGS = @GUILE_GLIB_CFLAGS@ GUILE_GLIB_LIBS = @GUILE_GLIB_LIBS@ GUILE_LIBS = @GUILE_LIBS@ G_WRAP_CFLAGS = @G_WRAP_CFLAGS@ G_WRAP_LIBS = @G_WRAP_LIBS@ G_WRAP_LIB_DIR = @G_WRAP_LIB_DIR@ G_WRAP_MODULE_DIR = @G_WRAP_MODULE_DIR@ INSTALL = @INSTALL@ INSTALL_DATA = @INSTALL_DATA@ INSTALL_PROGRAM = @INSTALL_PROGRAM@ INSTALL_SCRIPT = @INSTALL_SCRIPT@ INSTALL_STRIP_PROGRAM = @INSTALL_STRIP_PROGRAM@ LD = @LD@ LDFLAGS = @LDFLAGS@ LIBGLADE_CFLAGS = @LIBGLADE_CFLAGS@ LIBGLADE_LIBS = @LIBGLADE_LIBS@ LIBGNOMEUI_CFLAGS = @LIBGNOMEUI_CFLAGS@ LIBGNOMEUI_LIBS = @LIBGNOMEUI_LIBS@ LIBGNOME_CFLAGS = @LIBGNOME_CFLAGS@ LIBGNOME_LIBS = @LIBGNOME_LIBS@ LIBOBJS = @LIBOBJS@ LIBS = @LIBS@ LIBTOOL = @LIBTOOL@ LIPO = @LIPO@ LN_S = @LN_S@ LTLIBOBJS = @LTLIBOBJS@ MAKEINFO = @MAKEINFO@ MANIFEST_TOOL = @MANIFEST_TOOL@ MKDIR_P = @MKDIR_P@ NM = @NM@ NMEDIT = @NMEDIT@ OBJDUMP = @OBJDUMP@ OBJEXT = @OBJEXT@ ORBIT_IDL = @ORBIT_IDL@ OTOOL = @OTOOL@ OTOOL64 = @OTOOL64@ PACKAGE = @PACKAGE@ PACKAGE_BUGREPORT = @PACKAGE_BUGREPORT@ PACKAGE_NAME = @PACKAGE_NAME@ PACKAGE_STRING = @PACKAGE_STRING@ PACKAGE_TARNAME = @PACKAGE_TARNAME@ PACKAGE_URL = @PACKAGE_URL@ PACKAGE_VERSION = @PACKAGE_VERSION@ PANGOCAIRO_CFLAGS = @PANGOCAIRO_CFLAGS@ PANGOCAIRO_LIBS = @PANGOCAIRO_LIBS@ PANGO_CFLAGS = @PANGO_CFLAGS@ PANGO_LIBS = @PANGO_LIBS@ PATH_SEPARATOR = @PATH_SEPARATOR@ PKG_CONFIG = @PKG_CONFIG@ PKG_CONFIG_LIBDIR = @PKG_CONFIG_LIBDIR@ PKG_CONFIG_PATH = @PKG_CONFIG_PATH@ RANLIB = @RANLIB@ SED = @SED@ SET_MAKE = @SET_MAKE@ SHELL = @SHELL@ STRIP = @STRIP@ VERSION = @VERSION@ WARN_CFLAGS = @WARN_CFLAGS@ abs_builddir = @abs_builddir@ abs_srcdir = @abs_srcdir@ abs_top_builddir = @abs_top_builddir@ abs_top_srcdir = @abs_top_srcdir@ ac_ct_AR = @ac_ct_AR@ ac_ct_CC = @ac_ct_CC@ ac_ct_DUMPBIN = @ac_ct_DUMPBIN@ am__include = @am__include@ am__leading_dot = @am__leading_dot@ am__quote = @am__quote@ am__tar = @am__tar@ am__untar = @am__untar@ bindir = @bindir@ build = @build@ build_alias = @build_alias@ build_cpu = @build_cpu@ build_os = @build_os@ build_vendor = @build_vendor@ builddir = @builddir@ datadir = @datadir@ datarootdir = @datarootdir@ docdir = @docdir@ dvidir = @dvidir@ exec_prefix = @exec_prefix@ host = @host@ host_alias = @host_alias@ host_cpu = @host_cpu@ host_os = @host_os@ host_vendor = @host_vendor@ htmldir = @htmldir@ includedir = @includedir@ infodir = @infodir@ install_sh = @install_sh@ libdir = @libdir@ libexecdir = @libexecdir@ localedir = @localedir@ localstatedir = @localstatedir@ mandir = @mandir@ mkdir_p = @mkdir_p@ oldincludedir = @oldincludedir@ pdfdir = @pdfdir@ prefix = @prefix@ program_transform_name = @program_transform_name@ psdir = @psdir@ sbindir = @sbindir@ sharedstatedir = @sharedstatedir@ srcdir = @srcdir@ sysconfdir = @sysconfdir@ target_alias = @target_alias@ top_build_prefix = @top_build_prefix@ top_builddir = @top_builddir@ top_srcdir = @top_srcdir@ guilegnomedir = $(datadir)/guile-gnome-@API_VERSION@ guilemoduledir = $(guilegnomedir)/gnome guilegwmoduledir = $(guilegnomedir)/gnome/gw guilegnomelibdir = $(libdir)/guile-gnome-@API_VERSION@ AM_CFLAGS = -I. -I$(srcdir) $(WARN_CFLAGS) $(DEBUG_CFLAGS) # For overriding from the command line (e.g. --debug) GUILE_FLAGS = SUFFIXES = .x .doc GUILE_SNARF_CFLAGS = $(DEFS) $(AM_CFLAGS) $(GUILE_CFLAGS) $(G_WRAP_CFLAGS) PACKAGES = atk cairo corba defs gconf glib gnome-vfs gtk libglade libgnome libgnomecanvas libgnomeui pango SOURCE_GUILE_PATH = $(shell echo $(addprefix $(top_srcdir)/,$(PACKAGES)) | sed -e 's/ /:/g'):$(srcdir) BUILD_GUILE_PATH = $(if $(filter-out $(top_srcdir),$(top_builddir)),$(shell echo -n $(addprefix $(top_builddir)/,$(PACKAGES)): | sed -e 's/ /:/g'),) GUILE_LOAD_PATH := $(BUILD_GUILE_PATH)$(SOURCE_GUILE_PATH):${G_WRAP_MODULE_DIR}:${GUILE_LOAD_PATH} # Real gnu make foo packages = $(filter-out %-uninstalled,$(patsubst %.pc.in,%,$(notdir $(wildcard $(srcdir)/*.pc.in)))) pcifiles = $(patsubst %,%-@API_VERSION@.pc,$(packages)) pcufiles = $(patsubst %,%-@API_VERSION@-uninstalled.pc,$(packages)) moduledir = $(guilemoduledir)/overrides module_DATA = $(wildcard *.defs*) EXTRA_DIST = $(module_DATA) all: all-am .SUFFIXES: .SUFFIXES: .x .doc .c $(srcdir)/Makefile.in: $(srcdir)/Makefile.am $(top_srcdir)/common.mk $(am__configure_deps) @for dep in $?; do \ case '$(am__configure_deps)' in \ *$$dep*) \ ( cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh ) \ && { if test -f $@; then exit 0; else break; fi; }; \ exit 1;; \ esac; \ done; \ echo ' cd $(top_srcdir) && $(AUTOMAKE) --gnu pango/gnome/overrides/Makefile'; \ $(am__cd) $(top_srcdir) && \ $(AUTOMAKE) --gnu pango/gnome/overrides/Makefile .PRECIOUS: Makefile Makefile: $(srcdir)/Makefile.in $(top_builddir)/config.status @case '$?' in \ *config.status*) \ cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh;; \ *) \ echo ' cd $(top_builddir) && $(SHELL) ./config.status $(subdir)/$@ $(am__depfiles_maybe)'; \ cd $(top_builddir) && $(SHELL) ./config.status $(subdir)/$@ $(am__depfiles_maybe);; \ esac; $(top_srcdir)/common.mk: $(top_builddir)/config.status: $(top_srcdir)/configure $(CONFIG_STATUS_DEPENDENCIES) cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh $(top_srcdir)/configure: $(am__configure_deps) cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh $(ACLOCAL_M4): $(am__aclocal_m4_deps) cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh $(am__aclocal_m4_deps): mostlyclean-libtool: -rm -f *.lo clean-libtool: -rm -rf .libs _libs install-moduleDATA: $(module_DATA) @$(NORMAL_INSTALL) @list='$(module_DATA)'; test -n "$(moduledir)" || list=; \ if test -n "$$list"; then \ echo " $(MKDIR_P) '$(DESTDIR)$(moduledir)'"; \ $(MKDIR_P) "$(DESTDIR)$(moduledir)" || exit 1; \ fi; \ for p in $$list; do \ if test -f "$$p"; then d=; else d="$(srcdir)/"; fi; \ echo "$$d$$p"; \ done | $(am__base_list) | \ while read files; do \ echo " $(INSTALL_DATA) $$files '$(DESTDIR)$(moduledir)'"; \ $(INSTALL_DATA) $$files "$(DESTDIR)$(moduledir)" || exit $$?; \ done uninstall-moduleDATA: @$(NORMAL_UNINSTALL) @list='$(module_DATA)'; test -n "$(moduledir)" || list=; \ files=`for p in $$list; do echo $$p; done | sed -e 's|^.*/||'`; \ dir='$(DESTDIR)$(moduledir)'; $(am__uninstall_files_from_dir) tags: TAGS TAGS: ctags: CTAGS CTAGS: distdir: $(DISTFILES) @srcdirstrip=`echo "$(srcdir)" | sed 's/[].[^$$\\*]/\\\\&/g'`; \ topsrcdirstrip=`echo "$(top_srcdir)" | sed 's/[].[^$$\\*]/\\\\&/g'`; \ list='$(DISTFILES)'; \ dist_files=`for file in $$list; do echo $$file; done | \ sed -e "s|^$$srcdirstrip/||;t" \ -e "s|^$$topsrcdirstrip/|$(top_builddir)/|;t"`; \ case $$dist_files in \ */*) $(MKDIR_P) `echo "$$dist_files" | \ sed '/\//!d;s|^|$(distdir)/|;s,/[^/]*$$,,' | \ sort -u` ;; \ esac; \ for file in $$dist_files; do \ if test -f $$file || test -d $$file; then d=.; else d=$(srcdir); fi; \ if test -d $$d/$$file; then \ dir=`echo "/$$file" | sed -e 's,/[^/]*$$,,'`; \ if test -d "$(distdir)/$$file"; then \ find "$(distdir)/$$file" -type d ! -perm -700 -exec chmod u+rwx {} \;; \ fi; \ if test -d $(srcdir)/$$file && test $$d != $(srcdir); then \ cp -fpR $(srcdir)/$$file "$(distdir)$$dir" || exit 1; \ find "$(distdir)/$$file" -type d ! -perm -700 -exec chmod u+rwx {} \;; \ fi; \ cp -fpR $$d/$$file "$(distdir)$$dir" || exit 1; \ else \ test -f "$(distdir)/$$file" \ || cp -p $$d/$$file "$(distdir)/$$file" \ || exit 1; \ fi; \ done check-am: all-am check: check-am all-am: Makefile $(DATA) installdirs: for dir in "$(DESTDIR)$(moduledir)"; do \ test -z "$$dir" || $(MKDIR_P) "$$dir"; \ done install: install-am install-exec: install-exec-am install-data: install-data-am uninstall: uninstall-am install-am: all-am @$(MAKE) $(AM_MAKEFLAGS) install-exec-am install-data-am installcheck: installcheck-am install-strip: if test -z '$(STRIP)'; then \ $(MAKE) $(AM_MAKEFLAGS) INSTALL_PROGRAM="$(INSTALL_STRIP_PROGRAM)" \ install_sh_PROGRAM="$(INSTALL_STRIP_PROGRAM)" INSTALL_STRIP_FLAG=-s \ install; \ else \ $(MAKE) $(AM_MAKEFLAGS) INSTALL_PROGRAM="$(INSTALL_STRIP_PROGRAM)" \ install_sh_PROGRAM="$(INSTALL_STRIP_PROGRAM)" INSTALL_STRIP_FLAG=-s \ "INSTALL_PROGRAM_ENV=STRIPPROG='$(STRIP)'" install; \ fi mostlyclean-generic: clean-generic: distclean-generic: -test -z "$(CONFIG_CLEAN_FILES)" || rm -f $(CONFIG_CLEAN_FILES) -test . = "$(srcdir)" || test -z "$(CONFIG_CLEAN_VPATH_FILES)" || rm -f $(CONFIG_CLEAN_VPATH_FILES) maintainer-clean-generic: @echo "This command is intended for maintainers to use" @echo "it deletes files that may require special tools to rebuild." clean: clean-am clean-am: clean-generic clean-libtool mostlyclean-am distclean: distclean-am -rm -f Makefile distclean-am: clean-am distclean-generic dvi: dvi-am dvi-am: html: html-am html-am: info: info-am info-am: install-data-am: install-moduleDATA install-dvi: install-dvi-am install-dvi-am: install-exec-am: install-html: install-html-am install-html-am: install-info: install-info-am install-info-am: install-man: install-pdf: install-pdf-am install-pdf-am: install-ps: install-ps-am install-ps-am: installcheck-am: maintainer-clean: maintainer-clean-am -rm -f Makefile maintainer-clean-am: distclean-am maintainer-clean-generic mostlyclean: mostlyclean-am mostlyclean-am: mostlyclean-generic mostlyclean-libtool pdf: pdf-am pdf-am: ps: ps-am ps-am: uninstall-am: uninstall-moduleDATA .MAKE: install-am install-strip .PHONY: all all-am check check-am clean clean-generic clean-libtool \ distclean distclean-generic distclean-libtool distdir dvi \ dvi-am html html-am info info-am install install-am \ install-data install-data-am install-dvi install-dvi-am \ install-exec install-exec-am install-html install-html-am \ install-info install-info-am install-man install-moduleDATA \ install-pdf install-pdf-am install-ps install-ps-am \ install-strip installcheck installcheck-am installdirs \ maintainer-clean maintainer-clean-generic mostlyclean \ mostlyclean-generic mostlyclean-libtool pdf pdf-am ps ps-am \ uninstall uninstall-am uninstall-moduleDATA export GUILE_LOAD_PATH .c.x: guile-snarf $(GUILE_SNARF_CFLAGS) $< > $@ \ || { rm $@; false; } .c.doc: $(CPP) -DSCM_MAGIC_SNARF_DOCS $(GUILE_SNARF_CFLAGS) $< \ | grep -E '(\^\^ {|\^\^ })' > $@ || { rm $@; false; } %.scm guile-gnome-gw-%.c: %-spec.scm guile $(GUILE_FLAGS) -c \ "(debug-set! stack 400000) \ (use-modules (gnome-@API_VERSION@)) \ (use-modules (g-wrap)) \ (use-modules (gnome gw $*-spec)) \ (generate-wrapset 'guile 'gnome-$* \"guile-gnome-gw-$*\")" mv guile-gnome-gw-$*.scm $*.scm %-@API_VERSION@.pc: %.pc cp $< $@ %-@API_VERSION@-uninstalled.pc: %-uninstalled.pc cp $< $@ # Tell versions [3.59,3.63) of GNU make to not export all variables. # Otherwise a system limit (for SysV at least) may be exceeded. .NOEXPORT: guile-gnome-platform-2.16.2/pango/Makefile.am0000644000175000017500000000011111752516575021333 0ustar00wingowingo00000000000000SUBDIRS = gnome doc tests EXTRA_DIST = ChangeLog.pre-2.16 AUTHORS README guile-gnome-platform-2.16.2/pango/Makefile.in0000644000175000017500000004534611752516627021365 0ustar00wingowingo00000000000000# Makefile.in generated by automake 1.11.5 from Makefile.am. # @configure_input@ # Copyright (C) 1994, 1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, # 2003, 2004, 2005, 2006, 2007, 2008, 2009, 2010, 2011 Free Software # Foundation, Inc. # This Makefile.in is free software; the Free Software Foundation # gives unlimited permission to copy and/or distribute it, # with or without modifications, as long as this notice is preserved. # This program is distributed in the hope that it will be useful, # but WITHOUT ANY WARRANTY, to the extent permitted by law; without # even the implied warranty of MERCHANTABILITY or FITNESS FOR A # PARTICULAR PURPOSE. @SET_MAKE@ VPATH = @srcdir@ am__make_dryrun = \ { \ am__dry=no; \ case $$MAKEFLAGS in \ *\\[\ \ ]*) \ echo 'am--echo: ; @echo "AM" OK' | $(MAKE) -f - 2>/dev/null \ | grep '^AM OK$$' >/dev/null || am__dry=yes;; \ *) \ for am__flg in $$MAKEFLAGS; do \ case $$am__flg in \ *=*|--*) ;; \ *n*) am__dry=yes; break;; \ esac; \ done;; \ esac; \ test $$am__dry = yes; \ } pkgdatadir = $(datadir)/@PACKAGE@ pkgincludedir = $(includedir)/@PACKAGE@ pkglibdir = $(libdir)/@PACKAGE@ pkglibexecdir = $(libexecdir)/@PACKAGE@ am__cd = CDPATH="$${ZSH_VERSION+.}$(PATH_SEPARATOR)" && cd install_sh_DATA = $(install_sh) -c -m 644 install_sh_PROGRAM = $(install_sh) -c install_sh_SCRIPT = $(install_sh) -c INSTALL_HEADER = $(INSTALL_DATA) transform = $(program_transform_name) NORMAL_INSTALL = : PRE_INSTALL = : POST_INSTALL = : NORMAL_UNINSTALL = : PRE_UNINSTALL = : POST_UNINSTALL = : build_triplet = @build@ host_triplet = @host@ subdir = pango DIST_COMMON = README $(srcdir)/Makefile.am $(srcdir)/Makefile.in \ AUTHORS ChangeLog ACLOCAL_M4 = $(top_srcdir)/aclocal.m4 am__aclocal_m4_deps = $(top_srcdir)/configure.ac am__configure_deps = $(am__aclocal_m4_deps) $(CONFIGURE_DEPENDENCIES) \ $(ACLOCAL_M4) mkinstalldirs = $(install_sh) -d CONFIG_HEADER = $(top_builddir)/config.h CONFIG_CLEAN_FILES = CONFIG_CLEAN_VPATH_FILES = SOURCES = DIST_SOURCES = RECURSIVE_TARGETS = all-recursive check-recursive dvi-recursive \ html-recursive info-recursive install-data-recursive \ install-dvi-recursive install-exec-recursive \ install-html-recursive install-info-recursive \ install-pdf-recursive install-ps-recursive install-recursive \ installcheck-recursive installdirs-recursive pdf-recursive \ ps-recursive uninstall-recursive am__can_run_installinfo = \ case $$AM_UPDATE_INFO_DIR in \ n|no|NO) false;; \ *) (install-info --version) >/dev/null 2>&1;; \ esac RECURSIVE_CLEAN_TARGETS = mostlyclean-recursive clean-recursive \ distclean-recursive maintainer-clean-recursive AM_RECURSIVE_TARGETS = $(RECURSIVE_TARGETS:-recursive=) \ $(RECURSIVE_CLEAN_TARGETS:-recursive=) tags TAGS ctags CTAGS \ distdir ETAGS = etags CTAGS = ctags DIST_SUBDIRS = $(SUBDIRS) DISTFILES = $(DIST_COMMON) $(DIST_SOURCES) $(TEXINFOS) $(EXTRA_DIST) am__relativize = \ dir0=`pwd`; \ sed_first='s,^\([^/]*\)/.*$$,\1,'; \ sed_rest='s,^[^/]*/*,,'; \ sed_last='s,^.*/\([^/]*\)$$,\1,'; \ sed_butlast='s,/*[^/]*$$,,'; \ while test -n "$$dir1"; do \ first=`echo "$$dir1" | sed -e "$$sed_first"`; \ if test "$$first" != "."; then \ if test "$$first" = ".."; then \ dir2=`echo "$$dir0" | sed -e "$$sed_last"`/"$$dir2"; \ dir0=`echo "$$dir0" | sed -e "$$sed_butlast"`; \ else \ first2=`echo "$$dir2" | sed -e "$$sed_first"`; \ if test "$$first2" = "$$first"; then \ dir2=`echo "$$dir2" | sed -e "$$sed_rest"`; \ else \ dir2="../$$dir2"; \ fi; \ dir0="$$dir0"/"$$first"; \ fi; \ fi; \ dir1=`echo "$$dir1" | sed -e "$$sed_rest"`; \ done; \ reldir="$$dir2" ACLOCAL = @ACLOCAL@ AG_PKG_CONFIG_PATH = @AG_PKG_CONFIG_PATH@ AMTAR = @AMTAR@ API_VERSION = @API_VERSION@ AR = @AR@ ATK_CFLAGS = @ATK_CFLAGS@ ATK_LIBS = @ATK_LIBS@ AUTOCONF = @AUTOCONF@ AUTOHEADER = @AUTOHEADER@ AUTOMAKE = @AUTOMAKE@ AWK = @AWK@ BONOBO_IDL_DIR = @BONOBO_IDL_DIR@ CANVAS_CFLAGS = @CANVAS_CFLAGS@ CANVAS_LIBS = @CANVAS_LIBS@ CC = @CC@ CCDEPMODE = @CCDEPMODE@ CFLAGS = @CFLAGS@ CORBA_CFLAGS = @CORBA_CFLAGS@ CORBA_LIBS = @CORBA_LIBS@ CPP = @CPP@ CPPFLAGS = @CPPFLAGS@ CYGPATH_W = @CYGPATH_W@ DEFS = @DEFS@ DEPDIR = @DEPDIR@ DLLTOOL = @DLLTOOL@ DSYMUTIL = @DSYMUTIL@ DUMPBIN = @DUMPBIN@ ECHO_C = @ECHO_C@ ECHO_N = @ECHO_N@ ECHO_T = @ECHO_T@ EGREP = @EGREP@ EXEEXT = @EXEEXT@ FGREP = @FGREP@ GCONF_CFLAGS = @GCONF_CFLAGS@ GCONF_LIBS = @GCONF_LIBS@ GDK_CFLAGS = @GDK_CFLAGS@ GDK_LIBS = @GDK_LIBS@ GDK_PIXBUF_CFLAGS = @GDK_PIXBUF_CFLAGS@ GDK_PIXBUF_LIBS = @GDK_PIXBUF_LIBS@ GLIB_CFLAGS = @GLIB_CFLAGS@ GLIB_LIBS = @GLIB_LIBS@ GNOMEUI_DEPRECATION_FLAGS = @GNOMEUI_DEPRECATION_FLAGS@ GNOME_VFS_CFLAGS = @GNOME_VFS_CFLAGS@ GNOME_VFS_DEPRECATED_CFLAGS = @GNOME_VFS_DEPRECATED_CFLAGS@ GNOME_VFS_LIBS = @GNOME_VFS_LIBS@ GOBJECT_CFLAGS = @GOBJECT_CFLAGS@ GOBJECT_LIBS = @GOBJECT_LIBS@ GREP = @GREP@ GTHREAD_CFLAGS = @GTHREAD_CFLAGS@ GTHREAD_LIBS = @GTHREAD_LIBS@ GTK_CFLAGS = @GTK_CFLAGS@ GTK_DEPRECATED_CFLAGS = @GTK_DEPRECATED_CFLAGS@ GTK_LIBS = @GTK_LIBS@ GUILE_CAIRO_CFLAGS = @GUILE_CAIRO_CFLAGS@ GUILE_CAIRO_LIBS = @GUILE_CAIRO_LIBS@ GUILE_CFLAGS = @GUILE_CFLAGS@ GUILE_EFFECTIVE_VERSION = @GUILE_EFFECTIVE_VERSION@ GUILE_GLIB_CFLAGS = @GUILE_GLIB_CFLAGS@ GUILE_GLIB_LIBS = @GUILE_GLIB_LIBS@ GUILE_LIBS = @GUILE_LIBS@ G_WRAP_CFLAGS = @G_WRAP_CFLAGS@ G_WRAP_LIBS = @G_WRAP_LIBS@ G_WRAP_LIB_DIR = @G_WRAP_LIB_DIR@ G_WRAP_MODULE_DIR = @G_WRAP_MODULE_DIR@ INSTALL = @INSTALL@ INSTALL_DATA = @INSTALL_DATA@ INSTALL_PROGRAM = @INSTALL_PROGRAM@ INSTALL_SCRIPT = @INSTALL_SCRIPT@ INSTALL_STRIP_PROGRAM = @INSTALL_STRIP_PROGRAM@ LD = @LD@ LDFLAGS = @LDFLAGS@ LIBGLADE_CFLAGS = @LIBGLADE_CFLAGS@ LIBGLADE_LIBS = @LIBGLADE_LIBS@ LIBGNOMEUI_CFLAGS = @LIBGNOMEUI_CFLAGS@ LIBGNOMEUI_LIBS = @LIBGNOMEUI_LIBS@ LIBGNOME_CFLAGS = @LIBGNOME_CFLAGS@ LIBGNOME_LIBS = @LIBGNOME_LIBS@ LIBOBJS = @LIBOBJS@ LIBS = @LIBS@ LIBTOOL = @LIBTOOL@ LIPO = @LIPO@ LN_S = @LN_S@ LTLIBOBJS = @LTLIBOBJS@ MAKEINFO = @MAKEINFO@ MANIFEST_TOOL = @MANIFEST_TOOL@ MKDIR_P = @MKDIR_P@ NM = @NM@ NMEDIT = @NMEDIT@ OBJDUMP = @OBJDUMP@ OBJEXT = @OBJEXT@ ORBIT_IDL = @ORBIT_IDL@ OTOOL = @OTOOL@ OTOOL64 = @OTOOL64@ PACKAGE = @PACKAGE@ PACKAGE_BUGREPORT = @PACKAGE_BUGREPORT@ PACKAGE_NAME = @PACKAGE_NAME@ PACKAGE_STRING = @PACKAGE_STRING@ PACKAGE_TARNAME = @PACKAGE_TARNAME@ PACKAGE_URL = @PACKAGE_URL@ PACKAGE_VERSION = @PACKAGE_VERSION@ PANGOCAIRO_CFLAGS = @PANGOCAIRO_CFLAGS@ PANGOCAIRO_LIBS = @PANGOCAIRO_LIBS@ PANGO_CFLAGS = @PANGO_CFLAGS@ PANGO_LIBS = @PANGO_LIBS@ PATH_SEPARATOR = @PATH_SEPARATOR@ PKG_CONFIG = @PKG_CONFIG@ PKG_CONFIG_LIBDIR = @PKG_CONFIG_LIBDIR@ PKG_CONFIG_PATH = @PKG_CONFIG_PATH@ RANLIB = @RANLIB@ SED = @SED@ SET_MAKE = @SET_MAKE@ SHELL = @SHELL@ STRIP = @STRIP@ VERSION = @VERSION@ WARN_CFLAGS = @WARN_CFLAGS@ abs_builddir = @abs_builddir@ abs_srcdir = @abs_srcdir@ abs_top_builddir = @abs_top_builddir@ abs_top_srcdir = @abs_top_srcdir@ ac_ct_AR = @ac_ct_AR@ ac_ct_CC = @ac_ct_CC@ ac_ct_DUMPBIN = @ac_ct_DUMPBIN@ am__include = @am__include@ am__leading_dot = @am__leading_dot@ am__quote = @am__quote@ am__tar = @am__tar@ am__untar = @am__untar@ bindir = @bindir@ build = @build@ build_alias = @build_alias@ build_cpu = @build_cpu@ build_os = @build_os@ build_vendor = @build_vendor@ builddir = @builddir@ datadir = @datadir@ datarootdir = @datarootdir@ docdir = @docdir@ dvidir = @dvidir@ exec_prefix = @exec_prefix@ host = @host@ host_alias = @host_alias@ host_cpu = @host_cpu@ host_os = @host_os@ host_vendor = @host_vendor@ htmldir = @htmldir@ includedir = @includedir@ infodir = @infodir@ install_sh = @install_sh@ libdir = @libdir@ libexecdir = @libexecdir@ localedir = @localedir@ localstatedir = @localstatedir@ mandir = @mandir@ mkdir_p = @mkdir_p@ oldincludedir = @oldincludedir@ pdfdir = @pdfdir@ prefix = @prefix@ program_transform_name = @program_transform_name@ psdir = @psdir@ sbindir = @sbindir@ sharedstatedir = @sharedstatedir@ srcdir = @srcdir@ sysconfdir = @sysconfdir@ target_alias = @target_alias@ top_build_prefix = @top_build_prefix@ top_builddir = @top_builddir@ top_srcdir = @top_srcdir@ SUBDIRS = gnome doc tests EXTRA_DIST = ChangeLog.pre-2.16 AUTHORS README all: all-recursive .SUFFIXES: $(srcdir)/Makefile.in: $(srcdir)/Makefile.am $(am__configure_deps) @for dep in $?; do \ case '$(am__configure_deps)' in \ *$$dep*) \ ( cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh ) \ && { if test -f $@; then exit 0; else break; fi; }; \ exit 1;; \ esac; \ done; \ echo ' cd $(top_srcdir) && $(AUTOMAKE) --gnu pango/Makefile'; \ $(am__cd) $(top_srcdir) && \ $(AUTOMAKE) --gnu pango/Makefile .PRECIOUS: Makefile Makefile: $(srcdir)/Makefile.in $(top_builddir)/config.status @case '$?' in \ *config.status*) \ cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh;; \ *) \ echo ' cd $(top_builddir) && $(SHELL) ./config.status $(subdir)/$@ $(am__depfiles_maybe)'; \ cd $(top_builddir) && $(SHELL) ./config.status $(subdir)/$@ $(am__depfiles_maybe);; \ esac; $(top_builddir)/config.status: $(top_srcdir)/configure $(CONFIG_STATUS_DEPENDENCIES) cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh $(top_srcdir)/configure: $(am__configure_deps) cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh $(ACLOCAL_M4): $(am__aclocal_m4_deps) cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh $(am__aclocal_m4_deps): mostlyclean-libtool: -rm -f *.lo clean-libtool: -rm -rf .libs _libs # This directory's subdirectories are mostly independent; you can cd # into them and run `make' without going through this Makefile. # To change the values of `make' variables: instead of editing Makefiles, # (1) if the variable is set in `config.status', edit `config.status' # (which will cause the Makefiles to be regenerated when you run `make'); # (2) otherwise, pass the desired values on the `make' command line. $(RECURSIVE_TARGETS): @fail= failcom='exit 1'; \ for f in x $$MAKEFLAGS; do \ case $$f in \ *=* | --[!k]*);; \ *k*) failcom='fail=yes';; \ esac; \ done; \ dot_seen=no; \ target=`echo $@ | sed s/-recursive//`; \ list='$(SUBDIRS)'; for subdir in $$list; do \ echo "Making $$target in $$subdir"; \ if test "$$subdir" = "."; then \ dot_seen=yes; \ local_target="$$target-am"; \ else \ local_target="$$target"; \ fi; \ ($(am__cd) $$subdir && $(MAKE) $(AM_MAKEFLAGS) $$local_target) \ || eval $$failcom; \ done; \ if test "$$dot_seen" = "no"; then \ $(MAKE) $(AM_MAKEFLAGS) "$$target-am" || exit 1; \ fi; test -z "$$fail" $(RECURSIVE_CLEAN_TARGETS): @fail= failcom='exit 1'; \ for f in x $$MAKEFLAGS; do \ case $$f in \ *=* | --[!k]*);; \ *k*) failcom='fail=yes';; \ esac; \ done; \ dot_seen=no; \ case "$@" in \ distclean-* | maintainer-clean-*) list='$(DIST_SUBDIRS)' ;; \ *) list='$(SUBDIRS)' ;; \ esac; \ rev=''; for subdir in $$list; do \ if test "$$subdir" = "."; then :; else \ rev="$$subdir $$rev"; \ fi; \ done; \ rev="$$rev ."; \ target=`echo $@ | sed s/-recursive//`; \ for subdir in $$rev; do \ echo "Making $$target in $$subdir"; \ if test "$$subdir" = "."; then \ local_target="$$target-am"; \ else \ local_target="$$target"; \ fi; \ ($(am__cd) $$subdir && $(MAKE) $(AM_MAKEFLAGS) $$local_target) \ || eval $$failcom; \ done && test -z "$$fail" tags-recursive: list='$(SUBDIRS)'; for subdir in $$list; do \ test "$$subdir" = . || ($(am__cd) $$subdir && $(MAKE) $(AM_MAKEFLAGS) tags); \ done ctags-recursive: list='$(SUBDIRS)'; for subdir in $$list; do \ test "$$subdir" = . || ($(am__cd) $$subdir && $(MAKE) $(AM_MAKEFLAGS) ctags); \ done ID: $(HEADERS) $(SOURCES) $(LISP) $(TAGS_FILES) list='$(SOURCES) $(HEADERS) $(LISP) $(TAGS_FILES)'; \ unique=`for i in $$list; do \ if test -f "$$i"; then echo $$i; else echo $(srcdir)/$$i; fi; \ done | \ $(AWK) '{ files[$$0] = 1; nonempty = 1; } \ END { if (nonempty) { for (i in files) print i; }; }'`; \ mkid -fID $$unique tags: TAGS TAGS: tags-recursive $(HEADERS) $(SOURCES) $(TAGS_DEPENDENCIES) \ $(TAGS_FILES) $(LISP) set x; \ here=`pwd`; \ if ($(ETAGS) --etags-include --version) >/dev/null 2>&1; then \ include_option=--etags-include; \ empty_fix=.; \ else \ include_option=--include; \ empty_fix=; \ fi; \ list='$(SUBDIRS)'; for subdir in $$list; do \ if test "$$subdir" = .; then :; else \ test ! -f $$subdir/TAGS || \ set "$$@" "$$include_option=$$here/$$subdir/TAGS"; \ fi; \ done; \ list='$(SOURCES) $(HEADERS) $(LISP) $(TAGS_FILES)'; \ unique=`for i in $$list; do \ if test -f "$$i"; then echo $$i; else echo $(srcdir)/$$i; fi; \ done | \ $(AWK) '{ files[$$0] = 1; nonempty = 1; } \ END { if (nonempty) { for (i in files) print i; }; }'`; \ shift; \ if test -z "$(ETAGS_ARGS)$$*$$unique"; then :; else \ test -n "$$unique" || unique=$$empty_fix; \ if test $$# -gt 0; then \ $(ETAGS) $(ETAGSFLAGS) $(AM_ETAGSFLAGS) $(ETAGS_ARGS) \ "$$@" $$unique; \ else \ $(ETAGS) $(ETAGSFLAGS) $(AM_ETAGSFLAGS) $(ETAGS_ARGS) \ $$unique; \ fi; \ fi ctags: CTAGS CTAGS: ctags-recursive $(HEADERS) $(SOURCES) $(TAGS_DEPENDENCIES) \ $(TAGS_FILES) $(LISP) list='$(SOURCES) $(HEADERS) $(LISP) $(TAGS_FILES)'; \ unique=`for i in $$list; do \ if test -f "$$i"; then echo $$i; else echo $(srcdir)/$$i; fi; \ done | \ $(AWK) '{ files[$$0] = 1; nonempty = 1; } \ END { if (nonempty) { for (i in files) print i; }; }'`; \ test -z "$(CTAGS_ARGS)$$unique" \ || $(CTAGS) $(CTAGSFLAGS) $(AM_CTAGSFLAGS) $(CTAGS_ARGS) \ $$unique GTAGS: here=`$(am__cd) $(top_builddir) && pwd` \ && $(am__cd) $(top_srcdir) \ && gtags -i $(GTAGS_ARGS) "$$here" distclean-tags: -rm -f TAGS ID GTAGS GRTAGS GSYMS GPATH tags distdir: $(DISTFILES) @srcdirstrip=`echo "$(srcdir)" | sed 's/[].[^$$\\*]/\\\\&/g'`; \ topsrcdirstrip=`echo "$(top_srcdir)" | sed 's/[].[^$$\\*]/\\\\&/g'`; \ list='$(DISTFILES)'; \ dist_files=`for file in $$list; do echo $$file; done | \ sed -e "s|^$$srcdirstrip/||;t" \ -e "s|^$$topsrcdirstrip/|$(top_builddir)/|;t"`; \ case $$dist_files in \ */*) $(MKDIR_P) `echo "$$dist_files" | \ sed '/\//!d;s|^|$(distdir)/|;s,/[^/]*$$,,' | \ sort -u` ;; \ esac; \ for file in $$dist_files; do \ if test -f $$file || test -d $$file; then d=.; else d=$(srcdir); fi; \ if test -d $$d/$$file; then \ dir=`echo "/$$file" | sed -e 's,/[^/]*$$,,'`; \ if test -d "$(distdir)/$$file"; then \ find "$(distdir)/$$file" -type d ! -perm -700 -exec chmod u+rwx {} \;; \ fi; \ if test -d $(srcdir)/$$file && test $$d != $(srcdir); then \ cp -fpR $(srcdir)/$$file "$(distdir)$$dir" || exit 1; \ find "$(distdir)/$$file" -type d ! -perm -700 -exec chmod u+rwx {} \;; \ fi; \ cp -fpR $$d/$$file "$(distdir)$$dir" || exit 1; \ else \ test -f "$(distdir)/$$file" \ || cp -p $$d/$$file "$(distdir)/$$file" \ || exit 1; \ fi; \ done @list='$(DIST_SUBDIRS)'; for subdir in $$list; do \ if test "$$subdir" = .; then :; else \ $(am__make_dryrun) \ || test -d "$(distdir)/$$subdir" \ || $(MKDIR_P) "$(distdir)/$$subdir" \ || exit 1; \ dir1=$$subdir; dir2="$(distdir)/$$subdir"; \ $(am__relativize); \ new_distdir=$$reldir; \ dir1=$$subdir; dir2="$(top_distdir)"; \ $(am__relativize); \ new_top_distdir=$$reldir; \ echo " (cd $$subdir && $(MAKE) $(AM_MAKEFLAGS) top_distdir="$$new_top_distdir" distdir="$$new_distdir" \\"; \ echo " am__remove_distdir=: am__skip_length_check=: am__skip_mode_fix=: distdir)"; \ ($(am__cd) $$subdir && \ $(MAKE) $(AM_MAKEFLAGS) \ top_distdir="$$new_top_distdir" \ distdir="$$new_distdir" \ am__remove_distdir=: \ am__skip_length_check=: \ am__skip_mode_fix=: \ distdir) \ || exit 1; \ fi; \ done check-am: all-am check: check-recursive all-am: Makefile installdirs: installdirs-recursive installdirs-am: install: install-recursive install-exec: install-exec-recursive install-data: install-data-recursive uninstall: uninstall-recursive install-am: all-am @$(MAKE) $(AM_MAKEFLAGS) install-exec-am install-data-am installcheck: installcheck-recursive install-strip: if test -z '$(STRIP)'; then \ $(MAKE) $(AM_MAKEFLAGS) INSTALL_PROGRAM="$(INSTALL_STRIP_PROGRAM)" \ install_sh_PROGRAM="$(INSTALL_STRIP_PROGRAM)" INSTALL_STRIP_FLAG=-s \ install; \ else \ $(MAKE) $(AM_MAKEFLAGS) INSTALL_PROGRAM="$(INSTALL_STRIP_PROGRAM)" \ install_sh_PROGRAM="$(INSTALL_STRIP_PROGRAM)" INSTALL_STRIP_FLAG=-s \ "INSTALL_PROGRAM_ENV=STRIPPROG='$(STRIP)'" install; \ fi mostlyclean-generic: clean-generic: distclean-generic: -test -z "$(CONFIG_CLEAN_FILES)" || rm -f $(CONFIG_CLEAN_FILES) -test . = "$(srcdir)" || test -z "$(CONFIG_CLEAN_VPATH_FILES)" || rm -f $(CONFIG_CLEAN_VPATH_FILES) maintainer-clean-generic: @echo "This command is intended for maintainers to use" @echo "it deletes files that may require special tools to rebuild." clean: clean-recursive clean-am: clean-generic clean-libtool mostlyclean-am distclean: distclean-recursive -rm -f Makefile distclean-am: clean-am distclean-generic distclean-tags dvi: dvi-recursive dvi-am: html: html-recursive html-am: info: info-recursive info-am: install-data-am: install-dvi: install-dvi-recursive install-dvi-am: install-exec-am: install-html: install-html-recursive install-html-am: install-info: install-info-recursive install-info-am: install-man: install-pdf: install-pdf-recursive install-pdf-am: install-ps: install-ps-recursive install-ps-am: installcheck-am: maintainer-clean: maintainer-clean-recursive -rm -f Makefile maintainer-clean-am: distclean-am maintainer-clean-generic mostlyclean: mostlyclean-recursive mostlyclean-am: mostlyclean-generic mostlyclean-libtool pdf: pdf-recursive pdf-am: ps: ps-recursive ps-am: uninstall-am: .MAKE: $(RECURSIVE_CLEAN_TARGETS) $(RECURSIVE_TARGETS) ctags-recursive \ install-am install-strip tags-recursive .PHONY: $(RECURSIVE_CLEAN_TARGETS) $(RECURSIVE_TARGETS) CTAGS GTAGS \ all all-am check check-am clean clean-generic clean-libtool \ ctags ctags-recursive distclean distclean-generic \ distclean-libtool distclean-tags distdir dvi dvi-am html \ html-am info info-am install install-am install-data \ install-data-am install-dvi install-dvi-am install-exec \ install-exec-am install-html install-html-am install-info \ install-info-am install-man install-pdf install-pdf-am \ install-ps install-ps-am install-strip installcheck \ installcheck-am installdirs installdirs-am maintainer-clean \ maintainer-clean-generic mostlyclean mostlyclean-generic \ mostlyclean-libtool pdf pdf-am ps ps-am tags tags-recursive \ uninstall uninstall-am # Tell versions [3.59,3.63) of GNU make to not export all variables. # Otherwise a system limit (for SysV at least) may be exceeded. .NOEXPORT: guile-gnome-platform-2.16.2/pango/README0000644000175000017500000000161011670374303020152 0ustar00wingowingo00000000000000guile-gnome-pango README Copyright (C) 2004 Free Software Foundation, Inc. See the end for copying conditions of this file. Last updated 16 September 2004. About guile-gnome-pango ======================= guile-gnome-pango is a Guile wrapper for Pango, an internationalized text layout library. It is a part of GNU guile-gnome. See the README file in the toplevel source directory for more information. Build dependencies ================== Besides the base guile-gnome requirements given in ../README, guile-gnome-pango requires Pango development packages. guile-gnome-pango depends on the following guile-gnome modules: glib, defs. Copying this file ================= Copyright (C) 2004 Free Software Foundation, Inc. Copying and distribution of this file, with or without modification, are permitted in any medium without royalty provided the copyright notice and this notice are preserved. guile-gnome-platform-2.16.2/pango/AUTHORS0000644000175000017500000000040411670374303020342 0ustar00wingowingo00000000000000To find out what should go in this file, see "Information For Maintainers of GNU Software" (maintain.texi), the section called "Recording Changes". Andy Wingo: In the directory gnome/gw, wrote: pango-spec.scm In the directory gnome, wrote: pango.scm guile-gnome-platform-2.16.2/pango/ChangeLog.pre-2.160000644000175000017500000001473611670374303022232 0ustar00wingowingo000000000000002008-05-01 Andy Wingo * gnome/Makefile.am: * gnome/pangocairo.scm: Add (gnome pangocairo) module. * doc/pangocairo/overview.texi (Overview): * doc/pango/overview.texi (Overview): Add a minimal conceit of documentation. 2008-04-25 Andy Wingo * == Released guile-gnome-platform version 2.15.98 == 2008-04-25 Andy Wingo * doc/pango/*.texi: * doc/pangocairo/*.texi: Update docs. 2008-04-24 Andy Wingo * gnome/gw/pango-support.c (scm_pango_rectangle_to_scm) (GET_VINT): Fix deprecation warnings. 2008-04-10 Andy Wingo * == Released guile-gnome-platform version 2.15.97 == 2008-04-10 Andy Wingo * NEWS: Update NEWS. 2007-12-10 Andy Wingo * == Released guile-gnome-platform version 2.15.96 == 2007-12-06 Andy Wingo * doc/pango/defuns-*.texi: Regenerated. * doc/pangocairo/defuns-*.texi: Regenerated. * doc/pangocairo/guile-gnome-pango.texi (Top): * doc/pangocairo/undocumented.texi: * doc/pango/guile-gnome-pango.texi (Top): * doc/pango/undocumented.texi: New section for undocumented exports. 2007-11-25 Andy Wingo * gnome/gw/pango-spec.scm (global-declarations-cg): Fix a typo. * doc/pangocairo/guile-gnome-pangocairo.texi (Top): * doc/pango/guile-gnome-pango.texi (Top): Type and function index. * tests/pango/wrapset.api: * tests/pangocairo/wrapset.api: Update for changes resulting from API review. * doc/pango/defuns-*.xml.texi: * doc/pangocairo/defuns-*.xml.texi: Regenerated for function removal, type wrapping, and type wrapper name changes. * gnome/overrides/pangocairo.defs (CairoFontMap): Wrap type. * gnome/overrides/pango.defs: Wrap more types, ignore some more functions. * gnome/gw/pango-spec.scm (initialize): Wrap some more freeable pointers. 2007-11-24 Andy Wingo * gnome/overrides/pango.defs: Ignore a few more functions. * gnome/gw/pango-spec.scm (initialize): Wrap PangoCoverage as a refcounted pointer. Wrap PangoRectangle as a structure, represented on the Scheme side by a vector of four integers, as with GdkRectangle (but without a GType). * gnome/gw/Makefile.am (libgw_guile_gnome_pango_la_SOURCES): * gnome/gw/pango-support.h: * gnome/gw/pango-support.c: New files, add support code to the wrapper. 2007-11-10 Andy Wingo * == Released guile-gnome-platform version 2.15.95 == 2007-11-10 Andy Wingo * package.ac: * gnome/gw/Makefile.am: Actually link against pangocairo libs, without which (gnome gw pangocairo) won't even load. * tests/Makefile.am: * tests/pango/Makefile.am: * tests/pango/wrapset.api: * tests/pango/wrapset.scm: * tests/pangocairo/Makefile.am: * tests/pangocairo/wrapset.api: * tests/pangocairo/wrapset.scm: Add API regression test suite. 2007-09-25 Andy Wingo * == Released guile-gnome-platform version 2.15.94 == 2007-09-25 Andy Wingo * NEWS: Updated. 2007-09-24 Andy Wingo * doc/pangocairo/Makefile.am (guile_gnome_pangocairo_TEXINFOS): Name the target correctly. 2007-09-08 Andy Wingo * doc/Makefile.am: * doc/pango/Makefile.am: * doc/pango/guile-gnome-pango.texi: * doc/pango/overview.texi: * doc/pango/overrides.texi: * doc/pango/section-*.texi: * doc/pango/defuns-*.texi: Move pango docs to a subdir. * doc/pangocairo/Makefile.am: * doc/pangocairo/guile-gnome-pangocairo.texi: * doc/pangocairo/overview.texi: * doc/pangocairo/overrides.texi: * doc/pangocairo/section-*.texi: * doc/pangocairo/defuns-*.texi: Add pangocairo docs. 2007-09-07 Andy Wingo * doc/Makefile.am: * doc/guile-gnome-pango.texi: * doc/overview.texi: * doc/overrides.texi: * doc/section-*.texi: * doc/defuns-*.texi: Add infrastructure for documentation. 2007-06-15 Andy Wingo * == Released guile-gnome-platform version 2.15.93 == * gnome/overrides/pango.defs: Re-add boxed types lost when pango.defs was generated. 2007-05-24 Andy Wingo * == Released guile-gnome-platform version 2.15.92 == 2007-05-21 Andy Wingo * gnome/gw/pangocairo-spec.scm (gnome): Actually import the cairo g-wrap modules. 2007-05-20 Andy Wingo * gnome/gw/Makefile.am: * gnome/overrides/pangocairo.defs: * gnome/gw/pangocairo-spec.scm: Build a pangocairo module if cairo is available. * cairo-checks.ac: Check for cairo. 2007-05-13 Andy Wingo * gnome/gw/pango-spec.scm (initialize): * gnome/Makefile.am: * gnome/overrides/pango.defs: * gnome/gw/Makefile.am: Add overrides for pango 1.14. PangoGlyph is a uint32, not an unsigned long. 2007-05-10 Andy Wingo * == Released guile-gnome-platform version 2.15.91 == 2006-12-15 Andy Wingo * == Released guile-gnome-platform version 2.15.90 == 2006-11-05 Andy Wingo * gnome/gw/pango-spec.scm: Use (gnome gw support g-wrap), the g-wrap compatibility wrapper. 2005-03-06 Andy Wingo * == Released guile-gnome-platform version 2.7.99 == 2005-01-11 Andy Wingo * == Released platform version 2.7.98 == 2004-12-06 Andy Wingo * == Released platform version 2.7.97 == 2004-11-15 Andy Wingo * package.ac: Add record_check. 2004-10-28 Andy Wingo * glib-checks.ac: Check for a versioned glib. * defs-checks.ac: Check for a versioned defs. 2004-10-26 Andy Wingo * gnome/gw/Makefile.am (guilegnomelib_LTLIBRARIES): Install to versioned directory. 2004-09-19 Andy Wingo * gnome/gw/Makefile.am (libgw_guile_gnome_pango_la_LIBADD): Not G_WRAP_LINK_ARGS, it's G_WRAP_LIBS. 2004-09-16 Andy Wingo * Makefile.am (SUBDIRS): Dist fixes. * README: Added. * NEWS: Added. * AUTHORS: Added. 2004-09-12 Andy Wingo * gnome/pango.scm (gnome): Added. * gnome/Makefile.am: Dist (gnome pango). 2004-09-05 Andy Wingo * gnome/gw/Makefile.am: Don't dist the gw C files. * defs-checks.ac: Added. * glib-checks.ac: Updated. * gnome/gw/pango-spec.scm: Adapted for module name changes. 2004-06-24 Andreas Rottmann * gnome/gw/pango-spec.scm: Adapt for G-Wrap "depends-on!" API change. * ChangeLog: Old ChangeLogs have been removed, as no entries relevant to pango were in them. guile-gnome-platform-2.16.2/pango/ChangeLog0000644000175000017500000000006711670374303021051 0ustar00wingowingo00000000000000See the revision control log for changes since 2.16.0. guile-gnome-platform-2.16.2/configure0000755000175000017500000173231311752511071020105 0ustar00wingowingo00000000000000#! /bin/sh # Guess values for system-dependent variables and create Makefiles. # Generated by GNU Autoconf 2.69 for guile-gnome-platform 2.16.2. # # # Copyright (C) 1992-1996, 1998-2012 Free Software Foundation, Inc. # # # This configure script is free software; the Free Software Foundation # gives unlimited permission to copy, distribute and modify it. # # # # Copyright (C) 2011, 2012 Free Software Foundation, Inc. # # This program is free software: you can redistribute it and/or modify # it under the terms of the GNU Lesser General Public License as # published by the Free Software Foundation, either version 3 of the # License, or (at your option) any later version. # # This program is distributed in the hope that it will be useful, but # WITHOUT ANY WARRANTY; without even the implied warranty of # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU # Lesser General Public License for more details. # # You should have received a copy of the GNU Lesser General Public # License along with this program. If not, see # . # # ## -------------------- ## ## M4sh Initialization. ## ## -------------------- ## # Be more Bourne compatible DUALCASE=1; export DUALCASE # for MKS sh if test -n "${ZSH_VERSION+set}" && (emulate sh) >/dev/null 2>&1; then : emulate sh NULLCMD=: # Pre-4.2 versions of Zsh do word splitting on ${1+"$@"}, which # is contrary to our usage. Disable this feature. alias -g '${1+"$@"}'='"$@"' setopt NO_GLOB_SUBST else case `(set -o) 2>/dev/null` in #( *posix*) : set -o posix ;; #( *) : ;; esac fi as_nl=' ' export as_nl # Printing a long string crashes Solaris 7 /usr/bin/printf. as_echo='\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\' as_echo=$as_echo$as_echo$as_echo$as_echo$as_echo as_echo=$as_echo$as_echo$as_echo$as_echo$as_echo$as_echo # Prefer a ksh shell builtin over an external printf program on Solaris, # but without wasting forks for bash or zsh. if test -z "$BASH_VERSION$ZSH_VERSION" \ && (test "X`print -r -- $as_echo`" = "X$as_echo") 2>/dev/null; then as_echo='print -r --' as_echo_n='print -rn --' elif (test "X`printf %s $as_echo`" = "X$as_echo") 2>/dev/null; then as_echo='printf %s\n' as_echo_n='printf %s' else if test "X`(/usr/ucb/echo -n -n $as_echo) 2>/dev/null`" = "X-n $as_echo"; then as_echo_body='eval /usr/ucb/echo -n "$1$as_nl"' as_echo_n='/usr/ucb/echo -n' else as_echo_body='eval expr "X$1" : "X\\(.*\\)"' as_echo_n_body='eval arg=$1; case $arg in #( *"$as_nl"*) expr "X$arg" : "X\\(.*\\)$as_nl"; arg=`expr "X$arg" : ".*$as_nl\\(.*\\)"`;; esac; expr "X$arg" : "X\\(.*\\)" | tr -d "$as_nl" ' export as_echo_n_body as_echo_n='sh -c $as_echo_n_body as_echo' fi export as_echo_body as_echo='sh -c $as_echo_body as_echo' fi # The user is always right. if test "${PATH_SEPARATOR+set}" != set; then PATH_SEPARATOR=: (PATH='/bin;/bin'; FPATH=$PATH; sh -c :) >/dev/null 2>&1 && { (PATH='/bin:/bin'; FPATH=$PATH; sh -c :) >/dev/null 2>&1 || PATH_SEPARATOR=';' } fi # IFS # We need space, tab and new line, in precisely that order. Quoting is # there to prevent editors from complaining about space-tab. # (If _AS_PATH_WALK were called with IFS unset, it would disable word # splitting by setting IFS to empty value.) IFS=" "" $as_nl" # Find who we are. Look in the path if we contain no directory separator. as_myself= case $0 in #(( *[\\/]* ) as_myself=$0 ;; *) as_save_IFS=$IFS; IFS=$PATH_SEPARATOR for as_dir in $PATH do IFS=$as_save_IFS test -z "$as_dir" && as_dir=. test -r "$as_dir/$0" && as_myself=$as_dir/$0 && break done IFS=$as_save_IFS ;; esac # We did not find ourselves, most probably we were run as `sh COMMAND' # in which case we are not to be found in the path. if test "x$as_myself" = x; then as_myself=$0 fi if test ! -f "$as_myself"; then $as_echo "$as_myself: error: cannot find myself; rerun with an absolute file name" >&2 exit 1 fi # Unset variables that we do not need and which cause bugs (e.g. in # pre-3.0 UWIN ksh). But do not cause bugs in bash 2.01; the "|| exit 1" # suppresses any "Segmentation fault" message there. '((' could # trigger a bug in pdksh 5.2.14. for as_var in BASH_ENV ENV MAIL MAILPATH do eval test x\${$as_var+set} = xset \ && ( (unset $as_var) || exit 1) >/dev/null 2>&1 && unset $as_var || : done PS1='$ ' PS2='> ' PS4='+ ' # NLS nuisances. LC_ALL=C export LC_ALL LANGUAGE=C export LANGUAGE # CDPATH. (unset CDPATH) >/dev/null 2>&1 && unset CDPATH # Use a proper internal environment variable to ensure we don't fall # into an infinite loop, continuously re-executing ourselves. if test x"${_as_can_reexec}" != xno && test "x$CONFIG_SHELL" != x; then _as_can_reexec=no; export _as_can_reexec; # We cannot yet assume a decent shell, so we have to provide a # neutralization value for shells without unset; and this also # works around shells that cannot unset nonexistent variables. # Preserve -v and -x to the replacement shell. BASH_ENV=/dev/null ENV=/dev/null (unset BASH_ENV) >/dev/null 2>&1 && unset BASH_ENV ENV case $- in # (((( *v*x* | *x*v* ) as_opts=-vx ;; *v* ) as_opts=-v ;; *x* ) as_opts=-x ;; * ) as_opts= ;; esac exec $CONFIG_SHELL $as_opts "$as_myself" ${1+"$@"} # Admittedly, this is quite paranoid, since all the known shells bail # out after a failed `exec'. $as_echo "$0: could not re-execute with $CONFIG_SHELL" >&2 as_fn_exit 255 fi # We don't want this to propagate to other subprocesses. { _as_can_reexec=; unset _as_can_reexec;} if test "x$CONFIG_SHELL" = x; then as_bourne_compatible="if test -n \"\${ZSH_VERSION+set}\" && (emulate sh) >/dev/null 2>&1; then : emulate sh NULLCMD=: # Pre-4.2 versions of Zsh do word splitting on \${1+\"\$@\"}, which # is contrary to our usage. Disable this feature. alias -g '\${1+\"\$@\"}'='\"\$@\"' setopt NO_GLOB_SUBST else case \`(set -o) 2>/dev/null\` in #( *posix*) : set -o posix ;; #( *) : ;; esac fi " as_required="as_fn_return () { (exit \$1); } as_fn_success () { as_fn_return 0; } as_fn_failure () { as_fn_return 1; } as_fn_ret_success () { return 0; } as_fn_ret_failure () { return 1; } exitcode=0 as_fn_success || { exitcode=1; echo as_fn_success failed.; } as_fn_failure && { exitcode=1; echo as_fn_failure succeeded.; } as_fn_ret_success || { exitcode=1; echo as_fn_ret_success failed.; } as_fn_ret_failure && { exitcode=1; echo as_fn_ret_failure succeeded.; } if ( set x; as_fn_ret_success y && test x = \"\$1\" ); then : else exitcode=1; echo positional parameters were not saved. fi test x\$exitcode = x0 || exit 1 test -x / || exit 1" as_suggested=" as_lineno_1=";as_suggested=$as_suggested$LINENO;as_suggested=$as_suggested" as_lineno_1a=\$LINENO as_lineno_2=";as_suggested=$as_suggested$LINENO;as_suggested=$as_suggested" as_lineno_2a=\$LINENO eval 'test \"x\$as_lineno_1'\$as_run'\" != \"x\$as_lineno_2'\$as_run'\" && test \"x\`expr \$as_lineno_1'\$as_run' + 1\`\" = \"x\$as_lineno_2'\$as_run'\"' || exit 1 test \$(( 1 + 1 )) = 2 || exit 1 test -n \"\${ZSH_VERSION+set}\${BASH_VERSION+set}\" || ( ECHO='\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\' ECHO=\$ECHO\$ECHO\$ECHO\$ECHO\$ECHO ECHO=\$ECHO\$ECHO\$ECHO\$ECHO\$ECHO\$ECHO PATH=/empty FPATH=/empty; export PATH FPATH test \"X\`printf %s \$ECHO\`\" = \"X\$ECHO\" \\ || test \"X\`print -r -- \$ECHO\`\" = \"X\$ECHO\" ) || exit 1" if (eval "$as_required") 2>/dev/null; then : as_have_required=yes else as_have_required=no fi if test x$as_have_required = xyes && (eval "$as_suggested") 2>/dev/null; then : else as_save_IFS=$IFS; IFS=$PATH_SEPARATOR as_found=false for as_dir in /bin$PATH_SEPARATOR/usr/bin$PATH_SEPARATOR$PATH do IFS=$as_save_IFS test -z "$as_dir" && as_dir=. as_found=: case $as_dir in #( /*) for as_base in sh bash ksh sh5; do # Try only shells that exist, to save several forks. as_shell=$as_dir/$as_base if { test -f "$as_shell" || test -f "$as_shell.exe"; } && { $as_echo "$as_bourne_compatible""$as_required" | as_run=a "$as_shell"; } 2>/dev/null; then : CONFIG_SHELL=$as_shell as_have_required=yes if { $as_echo "$as_bourne_compatible""$as_suggested" | as_run=a "$as_shell"; } 2>/dev/null; then : break 2 fi fi done;; esac as_found=false done $as_found || { if { test -f "$SHELL" || test -f "$SHELL.exe"; } && { $as_echo "$as_bourne_compatible""$as_required" | as_run=a "$SHELL"; } 2>/dev/null; then : CONFIG_SHELL=$SHELL as_have_required=yes fi; } IFS=$as_save_IFS if test "x$CONFIG_SHELL" != x; then : export CONFIG_SHELL # We cannot yet assume a decent shell, so we have to provide a # neutralization value for shells without unset; and this also # works around shells that cannot unset nonexistent variables. # Preserve -v and -x to the replacement shell. BASH_ENV=/dev/null ENV=/dev/null (unset BASH_ENV) >/dev/null 2>&1 && unset BASH_ENV ENV case $- in # (((( *v*x* | *x*v* ) as_opts=-vx ;; *v* ) as_opts=-v ;; *x* ) as_opts=-x ;; * ) as_opts= ;; esac exec $CONFIG_SHELL $as_opts "$as_myself" ${1+"$@"} # Admittedly, this is quite paranoid, since all the known shells bail # out after a failed `exec'. $as_echo "$0: could not re-execute with $CONFIG_SHELL" >&2 exit 255 fi if test x$as_have_required = xno; then : $as_echo "$0: This script requires a shell more modern than all" $as_echo "$0: the shells that I found on your system." if test x${ZSH_VERSION+set} = xset ; then $as_echo "$0: In particular, zsh $ZSH_VERSION has bugs and should" $as_echo "$0: be upgraded to zsh 4.3.4 or later." else $as_echo "$0: Please tell bug-autoconf@gnu.org about your system, $0: including any error possibly output before this $0: message. Then install a modern shell, or manually run $0: the script under such a shell if you do have one." fi exit 1 fi fi fi SHELL=${CONFIG_SHELL-/bin/sh} export SHELL # Unset more variables known to interfere with behavior of common tools. CLICOLOR_FORCE= GREP_OPTIONS= unset CLICOLOR_FORCE GREP_OPTIONS ## --------------------- ## ## M4sh Shell Functions. ## ## --------------------- ## # as_fn_unset VAR # --------------- # Portably unset VAR. as_fn_unset () { { eval $1=; unset $1;} } as_unset=as_fn_unset # as_fn_set_status STATUS # ----------------------- # Set $? to STATUS, without forking. as_fn_set_status () { return $1 } # as_fn_set_status # as_fn_exit STATUS # ----------------- # Exit the shell with STATUS, even in a "trap 0" or "set -e" context. as_fn_exit () { set +e as_fn_set_status $1 exit $1 } # as_fn_exit # as_fn_mkdir_p # ------------- # Create "$as_dir" as a directory, including parents if necessary. as_fn_mkdir_p () { case $as_dir in #( -*) as_dir=./$as_dir;; esac test -d "$as_dir" || eval $as_mkdir_p || { as_dirs= while :; do case $as_dir in #( *\'*) as_qdir=`$as_echo "$as_dir" | sed "s/'/'\\\\\\\\''/g"`;; #'( *) as_qdir=$as_dir;; esac as_dirs="'$as_qdir' $as_dirs" as_dir=`$as_dirname -- "$as_dir" || $as_expr X"$as_dir" : 'X\(.*[^/]\)//*[^/][^/]*/*$' \| \ X"$as_dir" : 'X\(//\)[^/]' \| \ X"$as_dir" : 'X\(//\)$' \| \ X"$as_dir" : 'X\(/\)' \| . 2>/dev/null || $as_echo X"$as_dir" | sed '/^X\(.*[^/]\)\/\/*[^/][^/]*\/*$/{ s//\1/ q } /^X\(\/\/\)[^/].*/{ s//\1/ q } /^X\(\/\/\)$/{ s//\1/ q } /^X\(\/\).*/{ s//\1/ q } s/.*/./; q'` test -d "$as_dir" && break done test -z "$as_dirs" || eval "mkdir $as_dirs" } || test -d "$as_dir" || as_fn_error $? "cannot create directory $as_dir" } # as_fn_mkdir_p # as_fn_executable_p FILE # ----------------------- # Test if FILE is an executable regular file. as_fn_executable_p () { test -f "$1" && test -x "$1" } # as_fn_executable_p # as_fn_append VAR VALUE # ---------------------- # Append the text in VALUE to the end of the definition contained in VAR. Take # advantage of any shell optimizations that allow amortized linear growth over # repeated appends, instead of the typical quadratic growth present in naive # implementations. if (eval "as_var=1; as_var+=2; test x\$as_var = x12") 2>/dev/null; then : eval 'as_fn_append () { eval $1+=\$2 }' else as_fn_append () { eval $1=\$$1\$2 } fi # as_fn_append # as_fn_arith ARG... # ------------------ # Perform arithmetic evaluation on the ARGs, and store the result in the # global $as_val. Take advantage of shells that can avoid forks. The arguments # must be portable across $(()) and expr. if (eval "test \$(( 1 + 1 )) = 2") 2>/dev/null; then : eval 'as_fn_arith () { as_val=$(( $* )) }' else as_fn_arith () { as_val=`expr "$@" || test $? -eq 1` } fi # as_fn_arith # as_fn_error STATUS ERROR [LINENO LOG_FD] # ---------------------------------------- # Output "`basename $0`: error: ERROR" to stderr. If LINENO and LOG_FD are # provided, also output the error to LOG_FD, referencing LINENO. Then exit the # script with STATUS, using 1 if that was 0. as_fn_error () { as_status=$1; test $as_status -eq 0 && as_status=1 if test "$4"; then as_lineno=${as_lineno-"$3"} as_lineno_stack=as_lineno_stack=$as_lineno_stack $as_echo "$as_me:${as_lineno-$LINENO}: error: $2" >&$4 fi $as_echo "$as_me: error: $2" >&2 as_fn_exit $as_status } # as_fn_error if expr a : '\(a\)' >/dev/null 2>&1 && test "X`expr 00001 : '.*\(...\)'`" = X001; then as_expr=expr else as_expr=false fi if (basename -- /) >/dev/null 2>&1 && test "X`basename -- / 2>&1`" = "X/"; then as_basename=basename else as_basename=false fi if (as_dir=`dirname -- /` && test "X$as_dir" = X/) >/dev/null 2>&1; then as_dirname=dirname else as_dirname=false fi as_me=`$as_basename -- "$0" || $as_expr X/"$0" : '.*/\([^/][^/]*\)/*$' \| \ X"$0" : 'X\(//\)$' \| \ X"$0" : 'X\(/\)' \| . 2>/dev/null || $as_echo X/"$0" | sed '/^.*\/\([^/][^/]*\)\/*$/{ s//\1/ q } /^X\/\(\/\/\)$/{ s//\1/ q } /^X\/\(\/\).*/{ s//\1/ q } s/.*/./; q'` # Avoid depending upon Character Ranges. as_cr_letters='abcdefghijklmnopqrstuvwxyz' as_cr_LETTERS='ABCDEFGHIJKLMNOPQRSTUVWXYZ' as_cr_Letters=$as_cr_letters$as_cr_LETTERS as_cr_digits='0123456789' as_cr_alnum=$as_cr_Letters$as_cr_digits as_lineno_1=$LINENO as_lineno_1a=$LINENO as_lineno_2=$LINENO as_lineno_2a=$LINENO eval 'test "x$as_lineno_1'$as_run'" != "x$as_lineno_2'$as_run'" && test "x`expr $as_lineno_1'$as_run' + 1`" = "x$as_lineno_2'$as_run'"' || { # Blame Lee E. McMahon (1931-1989) for sed's syntax. :-) sed -n ' p /[$]LINENO/= ' <$as_myself | sed ' s/[$]LINENO.*/&-/ t lineno b :lineno N :loop s/[$]LINENO\([^'$as_cr_alnum'_].*\n\)\(.*\)/\2\1\2/ t loop s/-\n.*// ' >$as_me.lineno && chmod +x "$as_me.lineno" || { $as_echo "$as_me: error: cannot create $as_me.lineno; rerun with a POSIX shell" >&2; as_fn_exit 1; } # If we had to re-execute with $CONFIG_SHELL, we're ensured to have # already done that, so ensure we don't try to do so again and fall # in an infinite loop. This has already happened in practice. _as_can_reexec=no; export _as_can_reexec # Don't try to exec as it changes $[0], causing all sort of problems # (the dirname of $[0] is not the place where we might find the # original and so on. Autoconf is especially sensitive to this). . "./$as_me.lineno" # Exit status is that of the last command. exit } ECHO_C= ECHO_N= ECHO_T= case `echo -n x` in #((((( -n*) case `echo 'xy\c'` in *c*) ECHO_T=' ';; # ECHO_T is single tab character. xy) ECHO_C='\c';; *) echo `echo ksh88 bug on AIX 6.1` > /dev/null ECHO_T=' ';; esac;; *) ECHO_N='-n';; esac rm -f conf$$ conf$$.exe conf$$.file if test -d conf$$.dir; then rm -f conf$$.dir/conf$$.file else rm -f conf$$.dir mkdir conf$$.dir 2>/dev/null fi if (echo >conf$$.file) 2>/dev/null; then if ln -s conf$$.file conf$$ 2>/dev/null; then as_ln_s='ln -s' # ... but there are two gotchas: # 1) On MSYS, both `ln -s file dir' and `ln file dir' fail. # 2) DJGPP < 2.04 has no symlinks; `ln -s' creates a wrapper executable. # In both cases, we have to default to `cp -pR'. ln -s conf$$.file conf$$.dir 2>/dev/null && test ! -f conf$$.exe || as_ln_s='cp -pR' elif ln conf$$.file conf$$ 2>/dev/null; then as_ln_s=ln else as_ln_s='cp -pR' fi else as_ln_s='cp -pR' fi rm -f conf$$ conf$$.exe conf$$.dir/conf$$.file conf$$.file rmdir conf$$.dir 2>/dev/null if mkdir -p . 2>/dev/null; then as_mkdir_p='mkdir -p "$as_dir"' else test -d ./-p && rmdir ./-p as_mkdir_p=false fi as_test_x='test -x' as_executable_p=as_fn_executable_p # Sed expression to map a string onto a valid CPP name. as_tr_cpp="eval sed 'y%*$as_cr_letters%P$as_cr_LETTERS%;s%[^_$as_cr_alnum]%_%g'" # Sed expression to map a string onto a valid variable name. as_tr_sh="eval sed 'y%*+%pp%;s%[^_$as_cr_alnum]%_%g'" SHELL=${CONFIG_SHELL-/bin/sh} test -n "$DJDIR" || exec 7<&0 &1 # Name of the host. # hostname on some systems (SVR3.2, old GNU/Linux) returns a bogus exit status, # so uname gets run too. ac_hostname=`(hostname || uname -n) 2>/dev/null | sed 1q` # # Initializations. # ac_default_prefix=/usr/local ac_clean_files= ac_config_libobj_dir=. LIBOBJS= cross_compiling=no subdirs= MFLAGS= MAKEFLAGS= # Identity of this package. PACKAGE_NAME='guile-gnome-platform' PACKAGE_TARNAME='guile-gnome-platform' PACKAGE_VERSION='2.16.2' PACKAGE_STRING='guile-gnome-platform 2.16.2' PACKAGE_BUGREPORT='' PACKAGE_URL='' ac_unique_file="ChangeLog.pre-2.16" # Factoring default headers for most tests. ac_includes_default="\ #include #ifdef HAVE_SYS_TYPES_H # include #endif #ifdef HAVE_SYS_STAT_H # include #endif #ifdef STDC_HEADERS # include # include #else # ifdef HAVE_STDLIB_H # include # endif #endif #ifdef HAVE_STRING_H # if !defined STDC_HEADERS && defined HAVE_MEMORY_H # include # endif # include #endif #ifdef HAVE_STRINGS_H # include #endif #ifdef HAVE_INTTYPES_H # include #endif #ifdef HAVE_STDINT_H # include #endif #ifdef HAVE_UNISTD_H # include #endif" ac_subst_vars='am__EXEEXT_FALSE am__EXEEXT_TRUE LTLIBOBJS LIBOBJS HAVE_PANGOCAIRO_FALSE HAVE_PANGOCAIRO_TRUE PANGOCAIRO_LIBS PANGOCAIRO_CFLAGS HAVE_PANGO_FALSE HAVE_PANGO_TRUE PANGO_LIBS PANGO_CFLAGS GNOMEUI_DEPRECATION_FLAGS HAVE_LIBGNOMEUI_FALSE HAVE_LIBGNOMEUI_TRUE LIBGNOMEUI_LIBS LIBGNOMEUI_CFLAGS HAVE_CANVAS_FALSE HAVE_CANVAS_TRUE CANVAS_LIBS CANVAS_CFLAGS HAVE_LIBGNOME_FALSE HAVE_LIBGNOME_TRUE LIBGNOME_LIBS LIBGNOME_CFLAGS HAVE_LIBGLADE_FALSE HAVE_LIBGLADE_TRUE LIBGLADE_LIBS LIBGLADE_CFLAGS HAVE_GTK_FALSE HAVE_GTK_TRUE HAVE_GDK_FALSE HAVE_GDK_TRUE GTK_DEPRECATED_CFLAGS GTK_LIBS GTK_CFLAGS GDK_LIBS GDK_CFLAGS HAVE_GDK_PIXBUF_FALSE HAVE_GDK_PIXBUF_TRUE GDK_PIXBUF_LIBS GDK_PIXBUF_CFLAGS GNOME_VFS_DEPRECATED_CFLAGS HAVE_GNOME_VFS_FALSE HAVE_GNOME_VFS_TRUE GNOME_VFS_LIBS GNOME_VFS_CFLAGS GUILE_GLIB_LIBS GUILE_GLIB_CFLAGS GTHREAD_LIBS GTHREAD_CFLAGS GOBJECT_LIBS GOBJECT_CFLAGS GLIB_LIBS GLIB_CFLAGS HAVE_GCONF_FALSE HAVE_GCONF_TRUE GCONF_LIBS GCONF_CFLAGS BONOBO_IDL_DIR ORBIT_IDL HAVE_CORBA_FALSE HAVE_CORBA_TRUE CORBA_LIBS CORBA_CFLAGS HAVE_CAIRO_FALSE HAVE_CAIRO_TRUE GUILE_CAIRO_LIBS GUILE_CAIRO_CFLAGS HAVE_ATK_FALSE HAVE_ATK_TRUE ATK_LIBS ATK_CFLAGS G_WRAP_LIB_DIR G_WRAP_MODULE_DIR G_WRAP_LIBS G_WRAP_CFLAGS GUILE_EFFECTIVE_VERSION GUILE_LIBS GUILE_CFLAGS PKG_CONFIG_LIBDIR PKG_CONFIG_PATH PKG_CONFIG WARN_CFLAGS AG_PKG_CONFIG_PATH OTOOL64 OTOOL LIPO NMEDIT DSYMUTIL MANIFEST_TOOL RANLIB ac_ct_AR AR DLLTOOL OBJDUMP LN_S NM ac_ct_DUMPBIN DUMPBIN LD FGREP SED host_os host_vendor host_cpu host build_os build_vendor build_cpu build LIBTOOL EGREP GREP CPP am__fastdepCC_FALSE am__fastdepCC_TRUE CCDEPMODE am__nodep AMDEPBACKSLASH AMDEP_FALSE AMDEP_TRUE am__quote am__include DEPDIR OBJEXT EXEEXT ac_ct_CC CPPFLAGS LDFLAGS CFLAGS CC API_VERSION am__untar am__tar AMTAR am__leading_dot SET_MAKE AWK mkdir_p MKDIR_P INSTALL_STRIP_PROGRAM STRIP install_sh MAKEINFO AUTOHEADER AUTOMAKE AUTOCONF ACLOCAL VERSION PACKAGE CYGPATH_W am__isrc INSTALL_DATA INSTALL_SCRIPT INSTALL_PROGRAM target_alias host_alias build_alias LIBS ECHO_T ECHO_N ECHO_C DEFS mandir localedir libdir psdir pdfdir dvidir htmldir infodir docdir oldincludedir includedir localstatedir sharedstatedir sysconfdir datadir datarootdir libexecdir sbindir bindir program_transform_name prefix exec_prefix PACKAGE_URL PACKAGE_BUGREPORT PACKAGE_STRING PACKAGE_VERSION PACKAGE_TARNAME PACKAGE_NAME PATH_SEPARATOR SHELL' ac_subst_files='' ac_user_opts=' enable_option_checking enable_static enable_dependency_tracking enable_shared with_pic enable_fast_install with_gnu_ld with_sysroot enable_libtool_lock enable_Werror enable_deprecated ' ac_precious_vars='build_alias host_alias target_alias CC CFLAGS LDFLAGS LIBS CPPFLAGS CPP PKG_CONFIG PKG_CONFIG_PATH PKG_CONFIG_LIBDIR GUILE_CFLAGS GUILE_LIBS G_WRAP_CFLAGS G_WRAP_LIBS ATK_CFLAGS ATK_LIBS GUILE_CAIRO_CFLAGS GUILE_CAIRO_LIBS CORBA_CFLAGS CORBA_LIBS GCONF_CFLAGS GCONF_LIBS GLIB_CFLAGS GLIB_LIBS GOBJECT_CFLAGS GOBJECT_LIBS GTHREAD_CFLAGS GTHREAD_LIBS GNOME_VFS_CFLAGS GNOME_VFS_LIBS GDK_PIXBUF_CFLAGS GDK_PIXBUF_LIBS GDK_CFLAGS GDK_LIBS GTK_CFLAGS GTK_LIBS LIBGLADE_CFLAGS LIBGLADE_LIBS LIBGNOME_CFLAGS LIBGNOME_LIBS CANVAS_CFLAGS CANVAS_LIBS LIBGNOMEUI_CFLAGS LIBGNOMEUI_LIBS PANGO_CFLAGS PANGO_LIBS PANGOCAIRO_CFLAGS PANGOCAIRO_LIBS' # Initialize some variables set by options. ac_init_help= ac_init_version=false ac_unrecognized_opts= ac_unrecognized_sep= # The variables have the same names as the options, with # dashes changed to underlines. cache_file=/dev/null exec_prefix=NONE no_create= no_recursion= prefix=NONE program_prefix=NONE program_suffix=NONE program_transform_name=s,x,x, silent= site= srcdir= verbose= x_includes=NONE x_libraries=NONE # Installation directory options. # These are left unexpanded so users can "make install exec_prefix=/foo" # and all the variables that are supposed to be based on exec_prefix # by default will actually change. # Use braces instead of parens because sh, perl, etc. also accept them. # (The list follows the same order as the GNU Coding Standards.) bindir='${exec_prefix}/bin' sbindir='${exec_prefix}/sbin' libexecdir='${exec_prefix}/libexec' datarootdir='${prefix}/share' datadir='${datarootdir}' sysconfdir='${prefix}/etc' sharedstatedir='${prefix}/com' localstatedir='${prefix}/var' includedir='${prefix}/include' oldincludedir='/usr/include' docdir='${datarootdir}/doc/${PACKAGE_TARNAME}' infodir='${datarootdir}/info' htmldir='${docdir}' dvidir='${docdir}' pdfdir='${docdir}' psdir='${docdir}' libdir='${exec_prefix}/lib' localedir='${datarootdir}/locale' mandir='${datarootdir}/man' ac_prev= ac_dashdash= for ac_option do # If the previous option needs an argument, assign it. if test -n "$ac_prev"; then eval $ac_prev=\$ac_option ac_prev= continue fi case $ac_option in *=?*) ac_optarg=`expr "X$ac_option" : '[^=]*=\(.*\)'` ;; *=) ac_optarg= ;; *) ac_optarg=yes ;; esac # Accept the important Cygnus configure options, so we can diagnose typos. case $ac_dashdash$ac_option in --) ac_dashdash=yes ;; -bindir | --bindir | --bindi | --bind | --bin | --bi) ac_prev=bindir ;; -bindir=* | --bindir=* | --bindi=* | --bind=* | --bin=* | --bi=*) bindir=$ac_optarg ;; -build | --build | --buil | --bui | --bu) ac_prev=build_alias ;; -build=* | --build=* | --buil=* | --bui=* | --bu=*) build_alias=$ac_optarg ;; -cache-file | --cache-file | --cache-fil | --cache-fi \ | --cache-f | --cache- | --cache | --cach | --cac | --ca | --c) ac_prev=cache_file ;; -cache-file=* | --cache-file=* | --cache-fil=* | --cache-fi=* \ | --cache-f=* | --cache-=* | --cache=* | --cach=* | --cac=* | --ca=* | --c=*) cache_file=$ac_optarg ;; --config-cache | -C) cache_file=config.cache ;; -datadir | --datadir | --datadi | --datad) ac_prev=datadir ;; -datadir=* | --datadir=* | --datadi=* | --datad=*) datadir=$ac_optarg ;; -datarootdir | --datarootdir | --datarootdi | --datarootd | --dataroot \ | --dataroo | --dataro | --datar) ac_prev=datarootdir ;; -datarootdir=* | --datarootdir=* | --datarootdi=* | --datarootd=* \ | --dataroot=* | --dataroo=* | --dataro=* | --datar=*) datarootdir=$ac_optarg ;; -disable-* | --disable-*) ac_useropt=`expr "x$ac_option" : 'x-*disable-\(.*\)'` # Reject names that are not valid shell variable names. expr "x$ac_useropt" : ".*[^-+._$as_cr_alnum]" >/dev/null && as_fn_error $? "invalid feature name: $ac_useropt" ac_useropt_orig=$ac_useropt ac_useropt=`$as_echo "$ac_useropt" | sed 's/[-+.]/_/g'` case $ac_user_opts in *" "enable_$ac_useropt" "*) ;; *) ac_unrecognized_opts="$ac_unrecognized_opts$ac_unrecognized_sep--disable-$ac_useropt_orig" ac_unrecognized_sep=', ';; esac eval enable_$ac_useropt=no ;; -docdir | --docdir | --docdi | --doc | --do) ac_prev=docdir ;; -docdir=* | --docdir=* | --docdi=* | --doc=* | --do=*) docdir=$ac_optarg ;; -dvidir | --dvidir | --dvidi | --dvid | --dvi | --dv) ac_prev=dvidir ;; -dvidir=* | --dvidir=* | --dvidi=* | --dvid=* | --dvi=* | --dv=*) dvidir=$ac_optarg ;; -enable-* | --enable-*) ac_useropt=`expr "x$ac_option" : 'x-*enable-\([^=]*\)'` # Reject names that are not valid shell variable names. expr "x$ac_useropt" : ".*[^-+._$as_cr_alnum]" >/dev/null && as_fn_error $? "invalid feature name: $ac_useropt" ac_useropt_orig=$ac_useropt ac_useropt=`$as_echo "$ac_useropt" | sed 's/[-+.]/_/g'` case $ac_user_opts in *" "enable_$ac_useropt" "*) ;; *) ac_unrecognized_opts="$ac_unrecognized_opts$ac_unrecognized_sep--enable-$ac_useropt_orig" ac_unrecognized_sep=', ';; esac eval enable_$ac_useropt=\$ac_optarg ;; -exec-prefix | --exec_prefix | --exec-prefix | --exec-prefi \ | --exec-pref | --exec-pre | --exec-pr | --exec-p | --exec- \ | --exec | --exe | --ex) ac_prev=exec_prefix ;; -exec-prefix=* | --exec_prefix=* | --exec-prefix=* | --exec-prefi=* \ | --exec-pref=* | --exec-pre=* | --exec-pr=* | --exec-p=* | --exec-=* \ | --exec=* | --exe=* | --ex=*) exec_prefix=$ac_optarg ;; -gas | --gas | --ga | --g) # Obsolete; use --with-gas. with_gas=yes ;; -help | --help | --hel | --he | -h) ac_init_help=long ;; -help=r* | --help=r* | --hel=r* | --he=r* | -hr*) ac_init_help=recursive ;; -help=s* | --help=s* | --hel=s* | --he=s* | -hs*) ac_init_help=short ;; -host | --host | --hos | --ho) ac_prev=host_alias ;; -host=* | --host=* | --hos=* | --ho=*) host_alias=$ac_optarg ;; -htmldir | --htmldir | --htmldi | --htmld | --html | --htm | --ht) ac_prev=htmldir ;; -htmldir=* | --htmldir=* | --htmldi=* | --htmld=* | --html=* | --htm=* \ | --ht=*) htmldir=$ac_optarg ;; -includedir | --includedir | --includedi | --included | --include \ | --includ | --inclu | --incl | --inc) ac_prev=includedir ;; -includedir=* | --includedir=* | --includedi=* | --included=* | --include=* \ | --includ=* | --inclu=* | --incl=* | --inc=*) includedir=$ac_optarg ;; -infodir | --infodir | --infodi | --infod | --info | --inf) ac_prev=infodir ;; -infodir=* | --infodir=* | --infodi=* | --infod=* | --info=* | --inf=*) infodir=$ac_optarg ;; -libdir | --libdir | --libdi | --libd) ac_prev=libdir ;; -libdir=* | --libdir=* | --libdi=* | --libd=*) libdir=$ac_optarg ;; -libexecdir | --libexecdir | --libexecdi | --libexecd | --libexec \ | --libexe | --libex | --libe) ac_prev=libexecdir ;; -libexecdir=* | --libexecdir=* | --libexecdi=* | --libexecd=* | --libexec=* \ | --libexe=* | --libex=* | --libe=*) libexecdir=$ac_optarg ;; -localedir | --localedir | --localedi | --localed | --locale) ac_prev=localedir ;; -localedir=* | --localedir=* | --localedi=* | --localed=* | --locale=*) localedir=$ac_optarg ;; -localstatedir | --localstatedir | --localstatedi | --localstated \ | --localstate | --localstat | --localsta | --localst | --locals) ac_prev=localstatedir ;; -localstatedir=* | --localstatedir=* | --localstatedi=* | --localstated=* \ | --localstate=* | --localstat=* | --localsta=* | --localst=* | --locals=*) localstatedir=$ac_optarg ;; -mandir | --mandir | --mandi | --mand | --man | --ma | --m) ac_prev=mandir ;; -mandir=* | --mandir=* | --mandi=* | --mand=* | --man=* | --ma=* | --m=*) mandir=$ac_optarg ;; -nfp | --nfp | --nf) # Obsolete; use --without-fp. with_fp=no ;; -no-create | --no-create | --no-creat | --no-crea | --no-cre \ | --no-cr | --no-c | -n) no_create=yes ;; -no-recursion | --no-recursion | --no-recursio | --no-recursi \ | --no-recurs | --no-recur | --no-recu | --no-rec | --no-re | --no-r) no_recursion=yes ;; -oldincludedir | --oldincludedir | --oldincludedi | --oldincluded \ | --oldinclude | --oldinclud | --oldinclu | --oldincl | --oldinc \ | --oldin | --oldi | --old | --ol | --o) ac_prev=oldincludedir ;; -oldincludedir=* | --oldincludedir=* | --oldincludedi=* | --oldincluded=* \ | --oldinclude=* | --oldinclud=* | --oldinclu=* | --oldincl=* | --oldinc=* \ | --oldin=* | --oldi=* | --old=* | --ol=* | --o=*) oldincludedir=$ac_optarg ;; -prefix | --prefix | --prefi | --pref | --pre | --pr | --p) ac_prev=prefix ;; -prefix=* | --prefix=* | --prefi=* | --pref=* | --pre=* | --pr=* | --p=*) prefix=$ac_optarg ;; -program-prefix | --program-prefix | --program-prefi | --program-pref \ | --program-pre | --program-pr | --program-p) ac_prev=program_prefix ;; -program-prefix=* | --program-prefix=* | --program-prefi=* \ | --program-pref=* | --program-pre=* | --program-pr=* | --program-p=*) program_prefix=$ac_optarg ;; -program-suffix | --program-suffix | --program-suffi | --program-suff \ | --program-suf | --program-su | --program-s) ac_prev=program_suffix ;; -program-suffix=* | --program-suffix=* | --program-suffi=* \ | --program-suff=* | --program-suf=* | --program-su=* | --program-s=*) program_suffix=$ac_optarg ;; -program-transform-name | --program-transform-name \ | --program-transform-nam | --program-transform-na \ | --program-transform-n | --program-transform- \ | --program-transform | --program-transfor \ | --program-transfo | --program-transf \ | --program-trans | --program-tran \ | --progr-tra | --program-tr | --program-t) ac_prev=program_transform_name ;; -program-transform-name=* | --program-transform-name=* \ | --program-transform-nam=* | --program-transform-na=* \ | --program-transform-n=* | --program-transform-=* \ | --program-transform=* | --program-transfor=* \ | --program-transfo=* | --program-transf=* \ | --program-trans=* | --program-tran=* \ | --progr-tra=* | --program-tr=* | --program-t=*) program_transform_name=$ac_optarg ;; -pdfdir | --pdfdir | --pdfdi | --pdfd | --pdf | --pd) ac_prev=pdfdir ;; -pdfdir=* | --pdfdir=* | --pdfdi=* | --pdfd=* | --pdf=* | --pd=*) pdfdir=$ac_optarg ;; -psdir | --psdir | --psdi | --psd | --ps) ac_prev=psdir ;; -psdir=* | --psdir=* | --psdi=* | --psd=* | --ps=*) psdir=$ac_optarg ;; -q | -quiet | --quiet | --quie | --qui | --qu | --q \ | -silent | --silent | --silen | --sile | --sil) silent=yes ;; -sbindir | --sbindir | --sbindi | --sbind | --sbin | --sbi | --sb) ac_prev=sbindir ;; -sbindir=* | --sbindir=* | --sbindi=* | --sbind=* | --sbin=* \ | --sbi=* | --sb=*) sbindir=$ac_optarg ;; -sharedstatedir | --sharedstatedir | --sharedstatedi \ | --sharedstated | --sharedstate | --sharedstat | --sharedsta \ | --sharedst | --shareds | --shared | --share | --shar \ | --sha | --sh) ac_prev=sharedstatedir ;; -sharedstatedir=* | --sharedstatedir=* | --sharedstatedi=* \ | --sharedstated=* | --sharedstate=* | --sharedstat=* | --sharedsta=* \ | --sharedst=* | --shareds=* | --shared=* | --share=* | --shar=* \ | --sha=* | --sh=*) sharedstatedir=$ac_optarg ;; -site | --site | --sit) ac_prev=site ;; -site=* | --site=* | --sit=*) site=$ac_optarg ;; -srcdir | --srcdir | --srcdi | --srcd | --src | --sr) ac_prev=srcdir ;; -srcdir=* | --srcdir=* | --srcdi=* | --srcd=* | --src=* | --sr=*) srcdir=$ac_optarg ;; -sysconfdir | --sysconfdir | --sysconfdi | --sysconfd | --sysconf \ | --syscon | --sysco | --sysc | --sys | --sy) ac_prev=sysconfdir ;; -sysconfdir=* | --sysconfdir=* | --sysconfdi=* | --sysconfd=* | --sysconf=* \ | --syscon=* | --sysco=* | --sysc=* | --sys=* | --sy=*) sysconfdir=$ac_optarg ;; -target | --target | --targe | --targ | --tar | --ta | --t) ac_prev=target_alias ;; -target=* | --target=* | --targe=* | --targ=* | --tar=* | --ta=* | --t=*) target_alias=$ac_optarg ;; -v | -verbose | --verbose | --verbos | --verbo | --verb) verbose=yes ;; -version | --version | --versio | --versi | --vers | -V) ac_init_version=: ;; -with-* | --with-*) ac_useropt=`expr "x$ac_option" : 'x-*with-\([^=]*\)'` # Reject names that are not valid shell variable names. expr "x$ac_useropt" : ".*[^-+._$as_cr_alnum]" >/dev/null && as_fn_error $? "invalid package name: $ac_useropt" ac_useropt_orig=$ac_useropt ac_useropt=`$as_echo "$ac_useropt" | sed 's/[-+.]/_/g'` case $ac_user_opts in *" "with_$ac_useropt" "*) ;; *) ac_unrecognized_opts="$ac_unrecognized_opts$ac_unrecognized_sep--with-$ac_useropt_orig" ac_unrecognized_sep=', ';; esac eval with_$ac_useropt=\$ac_optarg ;; -without-* | --without-*) ac_useropt=`expr "x$ac_option" : 'x-*without-\(.*\)'` # Reject names that are not valid shell variable names. expr "x$ac_useropt" : ".*[^-+._$as_cr_alnum]" >/dev/null && as_fn_error $? "invalid package name: $ac_useropt" ac_useropt_orig=$ac_useropt ac_useropt=`$as_echo "$ac_useropt" | sed 's/[-+.]/_/g'` case $ac_user_opts in *" "with_$ac_useropt" "*) ;; *) ac_unrecognized_opts="$ac_unrecognized_opts$ac_unrecognized_sep--without-$ac_useropt_orig" ac_unrecognized_sep=', ';; esac eval with_$ac_useropt=no ;; --x) # Obsolete; use --with-x. with_x=yes ;; -x-includes | --x-includes | --x-include | --x-includ | --x-inclu \ | --x-incl | --x-inc | --x-in | --x-i) ac_prev=x_includes ;; -x-includes=* | --x-includes=* | --x-include=* | --x-includ=* | --x-inclu=* \ | --x-incl=* | --x-inc=* | --x-in=* | --x-i=*) x_includes=$ac_optarg ;; -x-libraries | --x-libraries | --x-librarie | --x-librari \ | --x-librar | --x-libra | --x-libr | --x-lib | --x-li | --x-l) ac_prev=x_libraries ;; -x-libraries=* | --x-libraries=* | --x-librarie=* | --x-librari=* \ | --x-librar=* | --x-libra=* | --x-libr=* | --x-lib=* | --x-li=* | --x-l=*) x_libraries=$ac_optarg ;; -*) as_fn_error $? "unrecognized option: \`$ac_option' Try \`$0 --help' for more information" ;; *=*) ac_envvar=`expr "x$ac_option" : 'x\([^=]*\)='` # Reject names that are not valid shell variable names. case $ac_envvar in #( '' | [0-9]* | *[!_$as_cr_alnum]* ) as_fn_error $? "invalid variable name: \`$ac_envvar'" ;; esac eval $ac_envvar=\$ac_optarg export $ac_envvar ;; *) # FIXME: should be removed in autoconf 3.0. $as_echo "$as_me: WARNING: you should use --build, --host, --target" >&2 expr "x$ac_option" : ".*[^-._$as_cr_alnum]" >/dev/null && $as_echo "$as_me: WARNING: invalid host type: $ac_option" >&2 : "${build_alias=$ac_option} ${host_alias=$ac_option} ${target_alias=$ac_option}" ;; esac done if test -n "$ac_prev"; then ac_option=--`echo $ac_prev | sed 's/_/-/g'` as_fn_error $? "missing argument to $ac_option" fi if test -n "$ac_unrecognized_opts"; then case $enable_option_checking in no) ;; fatal) as_fn_error $? "unrecognized options: $ac_unrecognized_opts" ;; *) $as_echo "$as_me: WARNING: unrecognized options: $ac_unrecognized_opts" >&2 ;; esac fi # Check all directory arguments for consistency. for ac_var in exec_prefix prefix bindir sbindir libexecdir datarootdir \ datadir sysconfdir sharedstatedir localstatedir includedir \ oldincludedir docdir infodir htmldir dvidir pdfdir psdir \ libdir localedir mandir do eval ac_val=\$$ac_var # Remove trailing slashes. case $ac_val in */ ) ac_val=`expr "X$ac_val" : 'X\(.*[^/]\)' \| "X$ac_val" : 'X\(.*\)'` eval $ac_var=\$ac_val;; esac # Be sure to have absolute directory names. case $ac_val in [\\/$]* | ?:[\\/]* ) continue;; NONE | '' ) case $ac_var in *prefix ) continue;; esac;; esac as_fn_error $? "expected an absolute directory name for --$ac_var: $ac_val" done # There might be people who depend on the old broken behavior: `$host' # used to hold the argument of --host etc. # FIXME: To remove some day. build=$build_alias host=$host_alias target=$target_alias # FIXME: To remove some day. if test "x$host_alias" != x; then if test "x$build_alias" = x; then cross_compiling=maybe elif test "x$build_alias" != "x$host_alias"; then cross_compiling=yes fi fi ac_tool_prefix= test -n "$host_alias" && ac_tool_prefix=$host_alias- test "$silent" = yes && exec 6>/dev/null ac_pwd=`pwd` && test -n "$ac_pwd" && ac_ls_di=`ls -di .` && ac_pwd_ls_di=`cd "$ac_pwd" && ls -di .` || as_fn_error $? "working directory cannot be determined" test "X$ac_ls_di" = "X$ac_pwd_ls_di" || as_fn_error $? "pwd does not report name of working directory" # Find the source files, if location was not specified. if test -z "$srcdir"; then ac_srcdir_defaulted=yes # Try the directory containing this script, then the parent directory. ac_confdir=`$as_dirname -- "$as_myself" || $as_expr X"$as_myself" : 'X\(.*[^/]\)//*[^/][^/]*/*$' \| \ X"$as_myself" : 'X\(//\)[^/]' \| \ X"$as_myself" : 'X\(//\)$' \| \ X"$as_myself" : 'X\(/\)' \| . 2>/dev/null || $as_echo X"$as_myself" | sed '/^X\(.*[^/]\)\/\/*[^/][^/]*\/*$/{ s//\1/ q } /^X\(\/\/\)[^/].*/{ s//\1/ q } /^X\(\/\/\)$/{ s//\1/ q } /^X\(\/\).*/{ s//\1/ q } s/.*/./; q'` srcdir=$ac_confdir if test ! -r "$srcdir/$ac_unique_file"; then srcdir=.. fi else ac_srcdir_defaulted=no fi if test ! -r "$srcdir/$ac_unique_file"; then test "$ac_srcdir_defaulted" = yes && srcdir="$ac_confdir or .." as_fn_error $? "cannot find sources ($ac_unique_file) in $srcdir" fi ac_msg="sources are in $srcdir, but \`cd $srcdir' does not work" ac_abs_confdir=`( cd "$srcdir" && test -r "./$ac_unique_file" || as_fn_error $? "$ac_msg" pwd)` # When building in place, set srcdir=. if test "$ac_abs_confdir" = "$ac_pwd"; then srcdir=. fi # Remove unnecessary trailing slashes from srcdir. # Double slashes in file names in object file debugging info # mess up M-x gdb in Emacs. case $srcdir in */) srcdir=`expr "X$srcdir" : 'X\(.*[^/]\)' \| "X$srcdir" : 'X\(.*\)'`;; esac for ac_var in $ac_precious_vars; do eval ac_env_${ac_var}_set=\${${ac_var}+set} eval ac_env_${ac_var}_value=\$${ac_var} eval ac_cv_env_${ac_var}_set=\${${ac_var}+set} eval ac_cv_env_${ac_var}_value=\$${ac_var} done # # Report the --help message. # if test "$ac_init_help" = "long"; then # Omit some internal or obsolete options to make the list less imposing. # This message is too long to be a string in the A/UX 3.1 sh. cat <<_ACEOF \`configure' configures guile-gnome-platform 2.16.2 to adapt to many kinds of systems. Usage: $0 [OPTION]... [VAR=VALUE]... To assign environment variables (e.g., CC, CFLAGS...), specify them as VAR=VALUE. See below for descriptions of some of the useful variables. Defaults for the options are specified in brackets. Configuration: -h, --help display this help and exit --help=short display options specific to this package --help=recursive display the short help of all the included packages -V, --version display version information and exit -q, --quiet, --silent do not print \`checking ...' messages --cache-file=FILE cache test results in FILE [disabled] -C, --config-cache alias for \`--cache-file=config.cache' -n, --no-create do not create output files --srcdir=DIR find the sources in DIR [configure dir or \`..'] Installation directories: --prefix=PREFIX install architecture-independent files in PREFIX [$ac_default_prefix] --exec-prefix=EPREFIX install architecture-dependent files in EPREFIX [PREFIX] By default, \`make install' will install all the files in \`$ac_default_prefix/bin', \`$ac_default_prefix/lib' etc. You can specify an installation prefix other than \`$ac_default_prefix' using \`--prefix', for instance \`--prefix=\$HOME'. For better control, use the options below. Fine tuning of the installation directories: --bindir=DIR user executables [EPREFIX/bin] --sbindir=DIR system admin executables [EPREFIX/sbin] --libexecdir=DIR program executables [EPREFIX/libexec] --sysconfdir=DIR read-only single-machine data [PREFIX/etc] --sharedstatedir=DIR modifiable architecture-independent data [PREFIX/com] --localstatedir=DIR modifiable single-machine data [PREFIX/var] --libdir=DIR object code libraries [EPREFIX/lib] --includedir=DIR C header files [PREFIX/include] --oldincludedir=DIR C header files for non-gcc [/usr/include] --datarootdir=DIR read-only arch.-independent data root [PREFIX/share] --datadir=DIR read-only architecture-independent data [DATAROOTDIR] --infodir=DIR info documentation [DATAROOTDIR/info] --localedir=DIR locale-dependent data [DATAROOTDIR/locale] --mandir=DIR man documentation [DATAROOTDIR/man] --docdir=DIR documentation root [DATAROOTDIR/doc/guile-gnome-platform] --htmldir=DIR html documentation [DOCDIR] --dvidir=DIR dvi documentation [DOCDIR] --pdfdir=DIR pdf documentation [DOCDIR] --psdir=DIR ps documentation [DOCDIR] _ACEOF cat <<\_ACEOF Program names: --program-prefix=PREFIX prepend PREFIX to installed program names --program-suffix=SUFFIX append SUFFIX to installed program names --program-transform-name=PROGRAM run sed PROGRAM on installed program names System types: --build=BUILD configure for building on BUILD [guessed] --host=HOST cross-compile to build programs to run on HOST [BUILD] _ACEOF fi if test -n "$ac_init_help"; then case $ac_init_help in short | recursive ) echo "Configuration of guile-gnome-platform 2.16.2:";; esac cat <<\_ACEOF Optional Features: --disable-option-checking ignore unrecognized --enable/--with options --disable-FEATURE do not include FEATURE (same as --enable-FEATURE=no) --enable-FEATURE[=ARG] include FEATURE [ARG=yes] --enable-static[=PKGS] build static libraries [default=no] --disable-dependency-tracking speeds up one-time build --enable-dependency-tracking do not reject slow dependency extractors --enable-shared[=PKGS] build shared libraries [default=yes] --enable-fast-install[=PKGS] optimize for fast installation [default=yes] --disable-libtool-lock avoid locking (might break parallel builds) --enable-Werror Stop the build on warnings --disable-deprecated Disable wrapping of functions deprecated upstream Optional Packages: --with-PACKAGE[=ARG] use PACKAGE [ARG=yes] --without-PACKAGE do not use PACKAGE (same as --with-PACKAGE=no) --with-pic[=PKGS] try to use only PIC/non-PIC objects [default=use both] --with-gnu-ld assume the C compiler uses GNU ld [default=no] --with-sysroot=DIR Search for dependent libraries within DIR (or the compiler's sysroot if not specified). Some influential environment variables: CC C compiler command CFLAGS C compiler flags LDFLAGS linker flags, e.g. -L if you have libraries in a nonstandard directory LIBS libraries to pass to the linker, e.g. -l CPPFLAGS (Objective) C/C++ preprocessor flags, e.g. -I if you have headers in a nonstandard directory CPP C preprocessor PKG_CONFIG path to pkg-config utility PKG_CONFIG_PATH directories to add to pkg-config's search path PKG_CONFIG_LIBDIR path overriding pkg-config's built-in search path GUILE_CFLAGS C compiler flags for GUILE, overriding pkg-config GUILE_LIBS linker flags for GUILE, overriding pkg-config G_WRAP_CFLAGS C compiler flags for G_WRAP, overriding pkg-config G_WRAP_LIBS linker flags for G_WRAP, overriding pkg-config ATK_CFLAGS C compiler flags for ATK, overriding pkg-config ATK_LIBS linker flags for ATK, overriding pkg-config GUILE_CAIRO_CFLAGS C compiler flags for GUILE_CAIRO, overriding pkg-config GUILE_CAIRO_LIBS linker flags for GUILE_CAIRO, overriding pkg-config CORBA_CFLAGS C compiler flags for CORBA, overriding pkg-config CORBA_LIBS linker flags for CORBA, overriding pkg-config GCONF_CFLAGS C compiler flags for GCONF, overriding pkg-config GCONF_LIBS linker flags for GCONF, overriding pkg-config GLIB_CFLAGS C compiler flags for GLIB, overriding pkg-config GLIB_LIBS linker flags for GLIB, overriding pkg-config GOBJECT_CFLAGS C compiler flags for GOBJECT, overriding pkg-config GOBJECT_LIBS linker flags for GOBJECT, overriding pkg-config GTHREAD_CFLAGS C compiler flags for GTHREAD, overriding pkg-config GTHREAD_LIBS linker flags for GTHREAD, overriding pkg-config GNOME_VFS_CFLAGS C compiler flags for GNOME_VFS, overriding pkg-config GNOME_VFS_LIBS linker flags for GNOME_VFS, overriding pkg-config GDK_PIXBUF_CFLAGS C compiler flags for GDK_PIXBUF, overriding pkg-config GDK_PIXBUF_LIBS linker flags for GDK_PIXBUF, overriding pkg-config GDK_CFLAGS C compiler flags for GDK, overriding pkg-config GDK_LIBS linker flags for GDK, overriding pkg-config GTK_CFLAGS C compiler flags for GTK, overriding pkg-config GTK_LIBS linker flags for GTK, overriding pkg-config LIBGLADE_CFLAGS C compiler flags for LIBGLADE, overriding pkg-config LIBGLADE_LIBS linker flags for LIBGLADE, overriding pkg-config LIBGNOME_CFLAGS C compiler flags for LIBGNOME, overriding pkg-config LIBGNOME_LIBS linker flags for LIBGNOME, overriding pkg-config CANVAS_CFLAGS C compiler flags for CANVAS, overriding pkg-config CANVAS_LIBS linker flags for CANVAS, overriding pkg-config LIBGNOMEUI_CFLAGS C compiler flags for LIBGNOMEUI, overriding pkg-config LIBGNOMEUI_LIBS linker flags for LIBGNOMEUI, overriding pkg-config PANGO_CFLAGS C compiler flags for PANGO, overriding pkg-config PANGO_LIBS linker flags for PANGO, overriding pkg-config PANGOCAIRO_CFLAGS C compiler flags for PANGOCAIRO, overriding pkg-config PANGOCAIRO_LIBS linker flags for PANGOCAIRO, overriding pkg-config Use these variables to override the choices made by `configure' or to help it to find libraries and programs with nonstandard names/locations. Report bugs to the package provider. _ACEOF ac_status=$? fi if test "$ac_init_help" = "recursive"; then # If there are subdirs, report their specific --help. for ac_dir in : $ac_subdirs_all; do test "x$ac_dir" = x: && continue test -d "$ac_dir" || { cd "$srcdir" && ac_pwd=`pwd` && srcdir=. && test -d "$ac_dir"; } || continue ac_builddir=. case "$ac_dir" in .) ac_dir_suffix= ac_top_builddir_sub=. ac_top_build_prefix= ;; *) ac_dir_suffix=/`$as_echo "$ac_dir" | sed 's|^\.[\\/]||'` # A ".." for each directory in $ac_dir_suffix. ac_top_builddir_sub=`$as_echo "$ac_dir_suffix" | sed 's|/[^\\/]*|/..|g;s|/||'` case $ac_top_builddir_sub in "") ac_top_builddir_sub=. ac_top_build_prefix= ;; *) ac_top_build_prefix=$ac_top_builddir_sub/ ;; esac ;; esac ac_abs_top_builddir=$ac_pwd ac_abs_builddir=$ac_pwd$ac_dir_suffix # for backward compatibility: ac_top_builddir=$ac_top_build_prefix case $srcdir in .) # We are building in place. ac_srcdir=. ac_top_srcdir=$ac_top_builddir_sub ac_abs_top_srcdir=$ac_pwd ;; [\\/]* | ?:[\\/]* ) # Absolute name. ac_srcdir=$srcdir$ac_dir_suffix; ac_top_srcdir=$srcdir ac_abs_top_srcdir=$srcdir ;; *) # Relative name. ac_srcdir=$ac_top_build_prefix$srcdir$ac_dir_suffix ac_top_srcdir=$ac_top_build_prefix$srcdir ac_abs_top_srcdir=$ac_pwd/$srcdir ;; esac ac_abs_srcdir=$ac_abs_top_srcdir$ac_dir_suffix cd "$ac_dir" || { ac_status=$?; continue; } # Check for guested configure. if test -f "$ac_srcdir/configure.gnu"; then echo && $SHELL "$ac_srcdir/configure.gnu" --help=recursive elif test -f "$ac_srcdir/configure"; then echo && $SHELL "$ac_srcdir/configure" --help=recursive else $as_echo "$as_me: WARNING: no configuration information is in $ac_dir" >&2 fi || ac_status=$? cd "$ac_pwd" || { ac_status=$?; break; } done fi test -n "$ac_init_help" && exit $ac_status if $ac_init_version; then cat <<\_ACEOF guile-gnome-platform configure 2.16.2 generated by GNU Autoconf 2.69 Copyright (C) 2012 Free Software Foundation, Inc. This configure script is free software; the Free Software Foundation gives unlimited permission to copy, distribute and modify it. Copyright (C) 2011, 2012 Free Software Foundation, Inc. This program is free software: you can redistribute it and/or modify it under the terms of the GNU Lesser General Public License as published by the Free Software Foundation, either version 3 of the License, or (at your option) any later version. This program is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU Lesser General Public License for more details. You should have received a copy of the GNU Lesser General Public License along with this program. If not, see . _ACEOF exit fi ## ------------------------ ## ## Autoconf initialization. ## ## ------------------------ ## # ac_fn_c_try_compile LINENO # -------------------------- # Try to compile conftest.$ac_ext, and return whether this succeeded. ac_fn_c_try_compile () { as_lineno=${as_lineno-"$1"} as_lineno_stack=as_lineno_stack=$as_lineno_stack rm -f conftest.$ac_objext if { { ac_try="$ac_compile" case "(($ac_try" in *\"* | *\`* | *\\*) ac_try_echo=\$ac_try;; *) ac_try_echo=$ac_try;; esac eval ac_try_echo="\"\$as_me:${as_lineno-$LINENO}: $ac_try_echo\"" $as_echo "$ac_try_echo"; } >&5 (eval "$ac_compile") 2>conftest.err ac_status=$? if test -s conftest.err; then grep -v '^ *+' conftest.err >conftest.er1 cat conftest.er1 >&5 mv -f conftest.er1 conftest.err fi $as_echo "$as_me:${as_lineno-$LINENO}: \$? = $ac_status" >&5 test $ac_status = 0; } && { test -z "$ac_c_werror_flag" || test ! -s conftest.err } && test -s conftest.$ac_objext; then : ac_retval=0 else $as_echo "$as_me: failed program was:" >&5 sed 's/^/| /' conftest.$ac_ext >&5 ac_retval=1 fi eval $as_lineno_stack; ${as_lineno_stack:+:} unset as_lineno as_fn_set_status $ac_retval } # ac_fn_c_try_compile # ac_fn_c_try_link LINENO # ----------------------- # Try to link conftest.$ac_ext, and return whether this succeeded. ac_fn_c_try_link () { as_lineno=${as_lineno-"$1"} as_lineno_stack=as_lineno_stack=$as_lineno_stack rm -f conftest.$ac_objext conftest$ac_exeext if { { ac_try="$ac_link" case "(($ac_try" in *\"* | *\`* | *\\*) ac_try_echo=\$ac_try;; *) ac_try_echo=$ac_try;; esac eval ac_try_echo="\"\$as_me:${as_lineno-$LINENO}: $ac_try_echo\"" $as_echo "$ac_try_echo"; } >&5 (eval "$ac_link") 2>conftest.err ac_status=$? if test -s conftest.err; then grep -v '^ *+' conftest.err >conftest.er1 cat conftest.er1 >&5 mv -f conftest.er1 conftest.err fi $as_echo "$as_me:${as_lineno-$LINENO}: \$? = $ac_status" >&5 test $ac_status = 0; } && { test -z "$ac_c_werror_flag" || test ! -s conftest.err } && test -s conftest$ac_exeext && { test "$cross_compiling" = yes || test -x conftest$ac_exeext }; then : ac_retval=0 else $as_echo "$as_me: failed program was:" >&5 sed 's/^/| /' conftest.$ac_ext >&5 ac_retval=1 fi # Delete the IPA/IPO (Inter Procedural Analysis/Optimization) information # created by the PGI compiler (conftest_ipa8_conftest.oo), as it would # interfere with the next link command; also delete a directory that is # left behind by Apple's compiler. We do this before executing the actions. rm -rf conftest.dSYM conftest_ipa8_conftest.oo eval $as_lineno_stack; ${as_lineno_stack:+:} unset as_lineno as_fn_set_status $ac_retval } # ac_fn_c_try_link # ac_fn_c_try_cpp LINENO # ---------------------- # Try to preprocess conftest.$ac_ext, and return whether this succeeded. ac_fn_c_try_cpp () { as_lineno=${as_lineno-"$1"} as_lineno_stack=as_lineno_stack=$as_lineno_stack if { { ac_try="$ac_cpp conftest.$ac_ext" case "(($ac_try" in *\"* | *\`* | *\\*) ac_try_echo=\$ac_try;; *) ac_try_echo=$ac_try;; esac eval ac_try_echo="\"\$as_me:${as_lineno-$LINENO}: $ac_try_echo\"" $as_echo "$ac_try_echo"; } >&5 (eval "$ac_cpp conftest.$ac_ext") 2>conftest.err ac_status=$? if test -s conftest.err; then grep -v '^ *+' conftest.err >conftest.er1 cat conftest.er1 >&5 mv -f conftest.er1 conftest.err fi $as_echo "$as_me:${as_lineno-$LINENO}: \$? = $ac_status" >&5 test $ac_status = 0; } > conftest.i && { test -z "$ac_c_preproc_warn_flag$ac_c_werror_flag" || test ! -s conftest.err }; then : ac_retval=0 else $as_echo "$as_me: failed program was:" >&5 sed 's/^/| /' conftest.$ac_ext >&5 ac_retval=1 fi eval $as_lineno_stack; ${as_lineno_stack:+:} unset as_lineno as_fn_set_status $ac_retval } # ac_fn_c_try_cpp # ac_fn_c_try_run LINENO # ---------------------- # Try to link conftest.$ac_ext, and return whether this succeeded. Assumes # that executables *can* be run. ac_fn_c_try_run () { as_lineno=${as_lineno-"$1"} as_lineno_stack=as_lineno_stack=$as_lineno_stack if { { ac_try="$ac_link" case "(($ac_try" in *\"* | *\`* | *\\*) ac_try_echo=\$ac_try;; *) ac_try_echo=$ac_try;; esac eval ac_try_echo="\"\$as_me:${as_lineno-$LINENO}: $ac_try_echo\"" $as_echo "$ac_try_echo"; } >&5 (eval "$ac_link") 2>&5 ac_status=$? $as_echo "$as_me:${as_lineno-$LINENO}: \$? = $ac_status" >&5 test $ac_status = 0; } && { ac_try='./conftest$ac_exeext' { { case "(($ac_try" in *\"* | *\`* | *\\*) ac_try_echo=\$ac_try;; *) ac_try_echo=$ac_try;; esac eval ac_try_echo="\"\$as_me:${as_lineno-$LINENO}: $ac_try_echo\"" $as_echo "$ac_try_echo"; } >&5 (eval "$ac_try") 2>&5 ac_status=$? $as_echo "$as_me:${as_lineno-$LINENO}: \$? = $ac_status" >&5 test $ac_status = 0; }; }; then : ac_retval=0 else $as_echo "$as_me: program exited with status $ac_status" >&5 $as_echo "$as_me: failed program was:" >&5 sed 's/^/| /' conftest.$ac_ext >&5 ac_retval=$ac_status fi rm -rf conftest.dSYM conftest_ipa8_conftest.oo eval $as_lineno_stack; ${as_lineno_stack:+:} unset as_lineno as_fn_set_status $ac_retval } # ac_fn_c_try_run # ac_fn_c_check_header_compile LINENO HEADER VAR INCLUDES # ------------------------------------------------------- # Tests whether HEADER exists and can be compiled using the include files in # INCLUDES, setting the cache variable VAR accordingly. ac_fn_c_check_header_compile () { as_lineno=${as_lineno-"$1"} as_lineno_stack=as_lineno_stack=$as_lineno_stack { $as_echo "$as_me:${as_lineno-$LINENO}: checking for $2" >&5 $as_echo_n "checking for $2... " >&6; } if eval \${$3+:} false; then : $as_echo_n "(cached) " >&6 else cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ $4 #include <$2> _ACEOF if ac_fn_c_try_compile "$LINENO"; then : eval "$3=yes" else eval "$3=no" fi rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext fi eval ac_res=\$$3 { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_res" >&5 $as_echo "$ac_res" >&6; } eval $as_lineno_stack; ${as_lineno_stack:+:} unset as_lineno } # ac_fn_c_check_header_compile # ac_fn_c_check_func LINENO FUNC VAR # ---------------------------------- # Tests whether FUNC exists, setting the cache variable VAR accordingly ac_fn_c_check_func () { as_lineno=${as_lineno-"$1"} as_lineno_stack=as_lineno_stack=$as_lineno_stack { $as_echo "$as_me:${as_lineno-$LINENO}: checking for $2" >&5 $as_echo_n "checking for $2... " >&6; } if eval \${$3+:} false; then : $as_echo_n "(cached) " >&6 else cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ /* Define $2 to an innocuous variant, in case declares $2. For example, HP-UX 11i declares gettimeofday. */ #define $2 innocuous_$2 /* System header to define __stub macros and hopefully few prototypes, which can conflict with char $2 (); below. Prefer to if __STDC__ is defined, since exists even on freestanding compilers. */ #ifdef __STDC__ # include #else # include #endif #undef $2 /* Override any GCC internal prototype to avoid an error. Use char because int might match the return type of a GCC builtin and then its argument prototype would still apply. */ #ifdef __cplusplus extern "C" #endif char $2 (); /* The GNU C library defines this for functions which it implements to always fail with ENOSYS. Some functions are actually named something starting with __ and the normal name is an alias. */ #if defined __stub_$2 || defined __stub___$2 choke me #endif int main () { return $2 (); ; return 0; } _ACEOF if ac_fn_c_try_link "$LINENO"; then : eval "$3=yes" else eval "$3=no" fi rm -f core conftest.err conftest.$ac_objext \ conftest$ac_exeext conftest.$ac_ext fi eval ac_res=\$$3 { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_res" >&5 $as_echo "$ac_res" >&6; } eval $as_lineno_stack; ${as_lineno_stack:+:} unset as_lineno } # ac_fn_c_check_func cat >config.log <<_ACEOF This file contains any messages produced by compilers while running configure, to aid debugging if configure makes a mistake. It was created by guile-gnome-platform $as_me 2.16.2, which was generated by GNU Autoconf 2.69. Invocation command line was $ $0 $@ _ACEOF exec 5>>config.log { cat <<_ASUNAME ## --------- ## ## Platform. ## ## --------- ## hostname = `(hostname || uname -n) 2>/dev/null | sed 1q` uname -m = `(uname -m) 2>/dev/null || echo unknown` uname -r = `(uname -r) 2>/dev/null || echo unknown` uname -s = `(uname -s) 2>/dev/null || echo unknown` uname -v = `(uname -v) 2>/dev/null || echo unknown` /usr/bin/uname -p = `(/usr/bin/uname -p) 2>/dev/null || echo unknown` /bin/uname -X = `(/bin/uname -X) 2>/dev/null || echo unknown` /bin/arch = `(/bin/arch) 2>/dev/null || echo unknown` /usr/bin/arch -k = `(/usr/bin/arch -k) 2>/dev/null || echo unknown` /usr/convex/getsysinfo = `(/usr/convex/getsysinfo) 2>/dev/null || echo unknown` /usr/bin/hostinfo = `(/usr/bin/hostinfo) 2>/dev/null || echo unknown` /bin/machine = `(/bin/machine) 2>/dev/null || echo unknown` /usr/bin/oslevel = `(/usr/bin/oslevel) 2>/dev/null || echo unknown` /bin/universe = `(/bin/universe) 2>/dev/null || echo unknown` _ASUNAME as_save_IFS=$IFS; IFS=$PATH_SEPARATOR for as_dir in $PATH do IFS=$as_save_IFS test -z "$as_dir" && as_dir=. $as_echo "PATH: $as_dir" done IFS=$as_save_IFS } >&5 cat >&5 <<_ACEOF ## ----------- ## ## Core tests. ## ## ----------- ## _ACEOF # Keep a trace of the command line. # Strip out --no-create and --no-recursion so they do not pile up. # Strip out --silent because we don't want to record it for future runs. # Also quote any args containing shell meta-characters. # Make two passes to allow for proper duplicate-argument suppression. ac_configure_args= ac_configure_args0= ac_configure_args1= ac_must_keep_next=false for ac_pass in 1 2 do for ac_arg do case $ac_arg in -no-create | --no-c* | -n | -no-recursion | --no-r*) continue ;; -q | -quiet | --quiet | --quie | --qui | --qu | --q \ | -silent | --silent | --silen | --sile | --sil) continue ;; *\'*) ac_arg=`$as_echo "$ac_arg" | sed "s/'/'\\\\\\\\''/g"` ;; esac case $ac_pass in 1) as_fn_append ac_configure_args0 " '$ac_arg'" ;; 2) as_fn_append ac_configure_args1 " '$ac_arg'" if test $ac_must_keep_next = true; then ac_must_keep_next=false # Got value, back to normal. else case $ac_arg in *=* | --config-cache | -C | -disable-* | --disable-* \ | -enable-* | --enable-* | -gas | --g* | -nfp | --nf* \ | -q | -quiet | --q* | -silent | --sil* | -v | -verb* \ | -with-* | --with-* | -without-* | --without-* | --x) case "$ac_configure_args0 " in "$ac_configure_args1"*" '$ac_arg' "* ) continue ;; esac ;; -* ) ac_must_keep_next=true ;; esac fi as_fn_append ac_configure_args " '$ac_arg'" ;; esac done done { ac_configure_args0=; unset ac_configure_args0;} { ac_configure_args1=; unset ac_configure_args1;} # When interrupted or exit'd, cleanup temporary files, and complete # config.log. We remove comments because anyway the quotes in there # would cause problems or look ugly. # WARNING: Use '\'' to represent an apostrophe within the trap. # WARNING: Do not start the trap code with a newline, due to a FreeBSD 4.0 bug. trap 'exit_status=$? # Save into config.log some information that might help in debugging. { echo $as_echo "## ---------------- ## ## Cache variables. ## ## ---------------- ##" echo # The following way of writing the cache mishandles newlines in values, ( for ac_var in `(set) 2>&1 | sed -n '\''s/^\([a-zA-Z_][a-zA-Z0-9_]*\)=.*/\1/p'\''`; do eval ac_val=\$$ac_var case $ac_val in #( *${as_nl}*) case $ac_var in #( *_cv_*) { $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: cache variable $ac_var contains a newline" >&5 $as_echo "$as_me: WARNING: cache variable $ac_var contains a newline" >&2;} ;; esac case $ac_var in #( _ | IFS | as_nl) ;; #( BASH_ARGV | BASH_SOURCE) eval $ac_var= ;; #( *) { eval $ac_var=; unset $ac_var;} ;; esac ;; esac done (set) 2>&1 | case $as_nl`(ac_space='\'' '\''; set) 2>&1` in #( *${as_nl}ac_space=\ *) sed -n \ "s/'\''/'\''\\\\'\'''\''/g; s/^\\([_$as_cr_alnum]*_cv_[_$as_cr_alnum]*\\)=\\(.*\\)/\\1='\''\\2'\''/p" ;; #( *) sed -n "/^[_$as_cr_alnum]*_cv_[_$as_cr_alnum]*=/p" ;; esac | sort ) echo $as_echo "## ----------------- ## ## Output variables. ## ## ----------------- ##" echo for ac_var in $ac_subst_vars do eval ac_val=\$$ac_var case $ac_val in *\'\''*) ac_val=`$as_echo "$ac_val" | sed "s/'\''/'\''\\\\\\\\'\'''\''/g"`;; esac $as_echo "$ac_var='\''$ac_val'\''" done | sort echo if test -n "$ac_subst_files"; then $as_echo "## ------------------- ## ## File substitutions. ## ## ------------------- ##" echo for ac_var in $ac_subst_files do eval ac_val=\$$ac_var case $ac_val in *\'\''*) ac_val=`$as_echo "$ac_val" | sed "s/'\''/'\''\\\\\\\\'\'''\''/g"`;; esac $as_echo "$ac_var='\''$ac_val'\''" done | sort echo fi if test -s confdefs.h; then $as_echo "## ----------- ## ## confdefs.h. ## ## ----------- ##" echo cat confdefs.h echo fi test "$ac_signal" != 0 && $as_echo "$as_me: caught signal $ac_signal" $as_echo "$as_me: exit $exit_status" } >&5 rm -f core *.core core.conftest.* && rm -f -r conftest* confdefs* conf$$* $ac_clean_files && exit $exit_status ' 0 for ac_signal in 1 2 13 15; do trap 'ac_signal='$ac_signal'; as_fn_exit 1' $ac_signal done ac_signal=0 # confdefs.h avoids OS command line length limits that DEFS can exceed. rm -f -r conftest* confdefs.h $as_echo "/* confdefs.h */" > confdefs.h # Predefined preprocessor variables. cat >>confdefs.h <<_ACEOF #define PACKAGE_NAME "$PACKAGE_NAME" _ACEOF cat >>confdefs.h <<_ACEOF #define PACKAGE_TARNAME "$PACKAGE_TARNAME" _ACEOF cat >>confdefs.h <<_ACEOF #define PACKAGE_VERSION "$PACKAGE_VERSION" _ACEOF cat >>confdefs.h <<_ACEOF #define PACKAGE_STRING "$PACKAGE_STRING" _ACEOF cat >>confdefs.h <<_ACEOF #define PACKAGE_BUGREPORT "$PACKAGE_BUGREPORT" _ACEOF cat >>confdefs.h <<_ACEOF #define PACKAGE_URL "$PACKAGE_URL" _ACEOF # Let the site file select an alternate cache file if it wants to. # Prefer an explicitly selected file to automatically selected ones. ac_site_file1=NONE ac_site_file2=NONE if test -n "$CONFIG_SITE"; then # We do not want a PATH search for config.site. case $CONFIG_SITE in #(( -*) ac_site_file1=./$CONFIG_SITE;; */*) ac_site_file1=$CONFIG_SITE;; *) ac_site_file1=./$CONFIG_SITE;; esac elif test "x$prefix" != xNONE; then ac_site_file1=$prefix/share/config.site ac_site_file2=$prefix/etc/config.site else ac_site_file1=$ac_default_prefix/share/config.site ac_site_file2=$ac_default_prefix/etc/config.site fi for ac_site_file in "$ac_site_file1" "$ac_site_file2" do test "x$ac_site_file" = xNONE && continue if test /dev/null != "$ac_site_file" && test -r "$ac_site_file"; then { $as_echo "$as_me:${as_lineno-$LINENO}: loading site script $ac_site_file" >&5 $as_echo "$as_me: loading site script $ac_site_file" >&6;} sed 's/^/| /' "$ac_site_file" >&5 . "$ac_site_file" \ || { { $as_echo "$as_me:${as_lineno-$LINENO}: error: in \`$ac_pwd':" >&5 $as_echo "$as_me: error: in \`$ac_pwd':" >&2;} as_fn_error $? "failed to load site script $ac_site_file See \`config.log' for more details" "$LINENO" 5; } fi done if test -r "$cache_file"; then # Some versions of bash will fail to source /dev/null (special files # actually), so we avoid doing that. DJGPP emulates it as a regular file. if test /dev/null != "$cache_file" && test -f "$cache_file"; then { $as_echo "$as_me:${as_lineno-$LINENO}: loading cache $cache_file" >&5 $as_echo "$as_me: loading cache $cache_file" >&6;} case $cache_file in [\\/]* | ?:[\\/]* ) . "$cache_file";; *) . "./$cache_file";; esac fi else { $as_echo "$as_me:${as_lineno-$LINENO}: creating cache $cache_file" >&5 $as_echo "$as_me: creating cache $cache_file" >&6;} >$cache_file fi # Check that the precious variables saved in the cache have kept the same # value. ac_cache_corrupted=false for ac_var in $ac_precious_vars; do eval ac_old_set=\$ac_cv_env_${ac_var}_set eval ac_new_set=\$ac_env_${ac_var}_set eval ac_old_val=\$ac_cv_env_${ac_var}_value eval ac_new_val=\$ac_env_${ac_var}_value case $ac_old_set,$ac_new_set in set,) { $as_echo "$as_me:${as_lineno-$LINENO}: error: \`$ac_var' was set to \`$ac_old_val' in the previous run" >&5 $as_echo "$as_me: error: \`$ac_var' was set to \`$ac_old_val' in the previous run" >&2;} ac_cache_corrupted=: ;; ,set) { $as_echo "$as_me:${as_lineno-$LINENO}: error: \`$ac_var' was not set in the previous run" >&5 $as_echo "$as_me: error: \`$ac_var' was not set in the previous run" >&2;} ac_cache_corrupted=: ;; ,);; *) if test "x$ac_old_val" != "x$ac_new_val"; then # differences in whitespace do not lead to failure. ac_old_val_w=`echo x $ac_old_val` ac_new_val_w=`echo x $ac_new_val` if test "$ac_old_val_w" != "$ac_new_val_w"; then { $as_echo "$as_me:${as_lineno-$LINENO}: error: \`$ac_var' has changed since the previous run:" >&5 $as_echo "$as_me: error: \`$ac_var' has changed since the previous run:" >&2;} ac_cache_corrupted=: else { $as_echo "$as_me:${as_lineno-$LINENO}: warning: ignoring whitespace changes in \`$ac_var' since the previous run:" >&5 $as_echo "$as_me: warning: ignoring whitespace changes in \`$ac_var' since the previous run:" >&2;} eval $ac_var=\$ac_old_val fi { $as_echo "$as_me:${as_lineno-$LINENO}: former value: \`$ac_old_val'" >&5 $as_echo "$as_me: former value: \`$ac_old_val'" >&2;} { $as_echo "$as_me:${as_lineno-$LINENO}: current value: \`$ac_new_val'" >&5 $as_echo "$as_me: current value: \`$ac_new_val'" >&2;} fi;; esac # Pass precious variables to config.status. if test "$ac_new_set" = set; then case $ac_new_val in *\'*) ac_arg=$ac_var=`$as_echo "$ac_new_val" | sed "s/'/'\\\\\\\\''/g"` ;; *) ac_arg=$ac_var=$ac_new_val ;; esac case " $ac_configure_args " in *" '$ac_arg' "*) ;; # Avoid dups. Use of quotes ensures accuracy. *) as_fn_append ac_configure_args " '$ac_arg'" ;; esac fi done if $ac_cache_corrupted; then { $as_echo "$as_me:${as_lineno-$LINENO}: error: in \`$ac_pwd':" >&5 $as_echo "$as_me: error: in \`$ac_pwd':" >&2;} { $as_echo "$as_me:${as_lineno-$LINENO}: error: changes in the environment can compromise the build" >&5 $as_echo "$as_me: error: changes in the environment can compromise the build" >&2;} as_fn_error $? "run \`make distclean' and/or \`rm $cache_file' and start over" "$LINENO" 5 fi ## -------------------- ## ## Main body of script. ## ## -------------------- ## ac_ext=c ac_cpp='$CPP $CPPFLAGS' ac_compile='$CC -c $CFLAGS $CPPFLAGS conftest.$ac_ext >&5' ac_link='$CC -o conftest$ac_exeext $CFLAGS $CPPFLAGS $LDFLAGS conftest.$ac_ext $LIBS >&5' ac_compiler_gnu=$ac_cv_c_compiler_gnu ac_aux_dir= for ac_dir in build-aux "$srcdir"/build-aux; do if test -f "$ac_dir/install-sh"; then ac_aux_dir=$ac_dir ac_install_sh="$ac_aux_dir/install-sh -c" break elif test -f "$ac_dir/install.sh"; then ac_aux_dir=$ac_dir ac_install_sh="$ac_aux_dir/install.sh -c" break elif test -f "$ac_dir/shtool"; then ac_aux_dir=$ac_dir ac_install_sh="$ac_aux_dir/shtool install -c" break fi done if test -z "$ac_aux_dir"; then as_fn_error $? "cannot find install-sh, install.sh, or shtool in build-aux \"$srcdir\"/build-aux" "$LINENO" 5 fi # These three variables are undocumented and unsupported, # and are intended to be withdrawn in a future Autoconf release. # They can cause serious problems if a builder's source tree is in a directory # whose full name contains unusual characters. ac_config_guess="$SHELL $ac_aux_dir/config.guess" # Please don't use this var. ac_config_sub="$SHELL $ac_aux_dir/config.sub" # Please don't use this var. ac_configure="$SHELL $ac_aux_dir/configure" # Please don't use this var. ac_config_headers="$ac_config_headers config.h" am__api_version='1.11' # Find a good install program. We prefer a C program (faster), # so one script is as good as another. But avoid the broken or # incompatible versions: # SysV /etc/install, /usr/sbin/install # SunOS /usr/etc/install # IRIX /sbin/install # AIX /bin/install # AmigaOS /C/install, which installs bootblocks on floppy discs # AIX 4 /usr/bin/installbsd, which doesn't work without a -g flag # AFS /usr/afsws/bin/install, which mishandles nonexistent args # SVR4 /usr/ucb/install, which tries to use the nonexistent group "staff" # OS/2's system install, which has a completely different semantic # ./install, which can be erroneously created by make from ./install.sh. # Reject install programs that cannot install multiple files. { $as_echo "$as_me:${as_lineno-$LINENO}: checking for a BSD-compatible install" >&5 $as_echo_n "checking for a BSD-compatible install... " >&6; } if test -z "$INSTALL"; then if ${ac_cv_path_install+:} false; then : $as_echo_n "(cached) " >&6 else as_save_IFS=$IFS; IFS=$PATH_SEPARATOR for as_dir in $PATH do IFS=$as_save_IFS test -z "$as_dir" && as_dir=. # Account for people who put trailing slashes in PATH elements. case $as_dir/ in #(( ./ | .// | /[cC]/* | \ /etc/* | /usr/sbin/* | /usr/etc/* | /sbin/* | /usr/afsws/bin/* | \ ?:[\\/]os2[\\/]install[\\/]* | ?:[\\/]OS2[\\/]INSTALL[\\/]* | \ /usr/ucb/* ) ;; *) # OSF1 and SCO ODT 3.0 have their own names for install. # Don't use installbsd from OSF since it installs stuff as root # by default. for ac_prog in ginstall scoinst install; do for ac_exec_ext in '' $ac_executable_extensions; do if as_fn_executable_p "$as_dir/$ac_prog$ac_exec_ext"; then if test $ac_prog = install && grep dspmsg "$as_dir/$ac_prog$ac_exec_ext" >/dev/null 2>&1; then # AIX install. It has an incompatible calling convention. : elif test $ac_prog = install && grep pwplus "$as_dir/$ac_prog$ac_exec_ext" >/dev/null 2>&1; then # program-specific install script used by HP pwplus--don't use. : else rm -rf conftest.one conftest.two conftest.dir echo one > conftest.one echo two > conftest.two mkdir conftest.dir if "$as_dir/$ac_prog$ac_exec_ext" -c conftest.one conftest.two "`pwd`/conftest.dir" && test -s conftest.one && test -s conftest.two && test -s conftest.dir/conftest.one && test -s conftest.dir/conftest.two then ac_cv_path_install="$as_dir/$ac_prog$ac_exec_ext -c" break 3 fi fi fi done done ;; esac done IFS=$as_save_IFS rm -rf conftest.one conftest.two conftest.dir fi if test "${ac_cv_path_install+set}" = set; then INSTALL=$ac_cv_path_install else # As a last resort, use the slow shell script. Don't cache a # value for INSTALL within a source directory, because that will # break other packages using the cache if that directory is # removed, or if the value is a relative name. INSTALL=$ac_install_sh fi fi { $as_echo "$as_me:${as_lineno-$LINENO}: result: $INSTALL" >&5 $as_echo "$INSTALL" >&6; } # Use test -z because SunOS4 sh mishandles braces in ${var-val}. # It thinks the first close brace ends the variable substitution. test -z "$INSTALL_PROGRAM" && INSTALL_PROGRAM='${INSTALL}' test -z "$INSTALL_SCRIPT" && INSTALL_SCRIPT='${INSTALL}' test -z "$INSTALL_DATA" && INSTALL_DATA='${INSTALL} -m 644' { $as_echo "$as_me:${as_lineno-$LINENO}: checking whether build environment is sane" >&5 $as_echo_n "checking whether build environment is sane... " >&6; } # Just in case sleep 1 echo timestamp > conftest.file # Reject unsafe characters in $srcdir or the absolute working directory # name. Accept space and tab only in the latter. am_lf=' ' case `pwd` in *[\\\"\#\$\&\'\`$am_lf]*) as_fn_error $? "unsafe absolute working directory name" "$LINENO" 5;; esac case $srcdir in *[\\\"\#\$\&\'\`$am_lf\ \ ]*) as_fn_error $? "unsafe srcdir value: \`$srcdir'" "$LINENO" 5;; esac # Do `set' in a subshell so we don't clobber the current shell's # arguments. Must try -L first in case configure is actually a # symlink; some systems play weird games with the mod time of symlinks # (eg FreeBSD returns the mod time of the symlink's containing # directory). if ( set X `ls -Lt "$srcdir/configure" conftest.file 2> /dev/null` if test "$*" = "X"; then # -L didn't work. set X `ls -t "$srcdir/configure" conftest.file` fi rm -f conftest.file if test "$*" != "X $srcdir/configure conftest.file" \ && test "$*" != "X conftest.file $srcdir/configure"; then # If neither matched, then we have a broken ls. This can happen # if, for instance, CONFIG_SHELL is bash and it inherits a # broken ls alias from the environment. This has actually # happened. Such a system could not be considered "sane". as_fn_error $? "ls -t appears to fail. Make sure there is not a broken alias in your environment" "$LINENO" 5 fi test "$2" = conftest.file ) then # Ok. : else as_fn_error $? "newly created file is older than distributed files! Check your system clock" "$LINENO" 5 fi { $as_echo "$as_me:${as_lineno-$LINENO}: result: yes" >&5 $as_echo "yes" >&6; } test "$program_prefix" != NONE && program_transform_name="s&^&$program_prefix&;$program_transform_name" # Use a double $ so make ignores it. test "$program_suffix" != NONE && program_transform_name="s&\$&$program_suffix&;$program_transform_name" # Double any \ or $. # By default was `s,x,x', remove it if useless. ac_script='s/[\\$]/&&/g;s/;s,x,x,$//' program_transform_name=`$as_echo "$program_transform_name" | sed "$ac_script"` # expand $ac_aux_dir to an absolute path am_aux_dir=`cd $ac_aux_dir && pwd` if test x"${MISSING+set}" != xset; then case $am_aux_dir in *\ * | *\ *) MISSING="\${SHELL} \"$am_aux_dir/missing\"" ;; *) MISSING="\${SHELL} $am_aux_dir/missing" ;; esac fi # Use eval to expand $SHELL if eval "$MISSING --run true"; then am_missing_run="$MISSING --run " else am_missing_run= { $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: \`missing' script is too old or missing" >&5 $as_echo "$as_me: WARNING: \`missing' script is too old or missing" >&2;} fi if test x"${install_sh}" != xset; then case $am_aux_dir in *\ * | *\ *) install_sh="\${SHELL} '$am_aux_dir/install-sh'" ;; *) install_sh="\${SHELL} $am_aux_dir/install-sh" esac fi # Installed binaries are usually stripped using `strip' when the user # run `make install-strip'. However `strip' might not be the right # tool to use in cross-compilation environments, therefore Automake # will honor the `STRIP' environment variable to overrule this program. if test "$cross_compiling" != no; then if test -n "$ac_tool_prefix"; then # Extract the first word of "${ac_tool_prefix}strip", so it can be a program name with args. set dummy ${ac_tool_prefix}strip; ac_word=$2 { $as_echo "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5 $as_echo_n "checking for $ac_word... " >&6; } if ${ac_cv_prog_STRIP+:} false; then : $as_echo_n "(cached) " >&6 else if test -n "$STRIP"; then ac_cv_prog_STRIP="$STRIP" # Let the user override the test. else as_save_IFS=$IFS; IFS=$PATH_SEPARATOR for as_dir in $PATH do IFS=$as_save_IFS test -z "$as_dir" && as_dir=. for ac_exec_ext in '' $ac_executable_extensions; do if as_fn_executable_p "$as_dir/$ac_word$ac_exec_ext"; then ac_cv_prog_STRIP="${ac_tool_prefix}strip" $as_echo "$as_me:${as_lineno-$LINENO}: found $as_dir/$ac_word$ac_exec_ext" >&5 break 2 fi done done IFS=$as_save_IFS fi fi STRIP=$ac_cv_prog_STRIP if test -n "$STRIP"; then { $as_echo "$as_me:${as_lineno-$LINENO}: result: $STRIP" >&5 $as_echo "$STRIP" >&6; } else { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5 $as_echo "no" >&6; } fi fi if test -z "$ac_cv_prog_STRIP"; then ac_ct_STRIP=$STRIP # Extract the first word of "strip", so it can be a program name with args. set dummy strip; ac_word=$2 { $as_echo "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5 $as_echo_n "checking for $ac_word... " >&6; } if ${ac_cv_prog_ac_ct_STRIP+:} false; then : $as_echo_n "(cached) " >&6 else if test -n "$ac_ct_STRIP"; then ac_cv_prog_ac_ct_STRIP="$ac_ct_STRIP" # Let the user override the test. else as_save_IFS=$IFS; IFS=$PATH_SEPARATOR for as_dir in $PATH do IFS=$as_save_IFS test -z "$as_dir" && as_dir=. for ac_exec_ext in '' $ac_executable_extensions; do if as_fn_executable_p "$as_dir/$ac_word$ac_exec_ext"; then ac_cv_prog_ac_ct_STRIP="strip" $as_echo "$as_me:${as_lineno-$LINENO}: found $as_dir/$ac_word$ac_exec_ext" >&5 break 2 fi done done IFS=$as_save_IFS fi fi ac_ct_STRIP=$ac_cv_prog_ac_ct_STRIP if test -n "$ac_ct_STRIP"; then { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_ct_STRIP" >&5 $as_echo "$ac_ct_STRIP" >&6; } else { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5 $as_echo "no" >&6; } fi if test "x$ac_ct_STRIP" = x; then STRIP=":" else case $cross_compiling:$ac_tool_warned in yes:) { $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: using cross tools not prefixed with host triplet" >&5 $as_echo "$as_me: WARNING: using cross tools not prefixed with host triplet" >&2;} ac_tool_warned=yes ;; esac STRIP=$ac_ct_STRIP fi else STRIP="$ac_cv_prog_STRIP" fi fi INSTALL_STRIP_PROGRAM="\$(install_sh) -c -s" { $as_echo "$as_me:${as_lineno-$LINENO}: checking for a thread-safe mkdir -p" >&5 $as_echo_n "checking for a thread-safe mkdir -p... " >&6; } if test -z "$MKDIR_P"; then if ${ac_cv_path_mkdir+:} false; then : $as_echo_n "(cached) " >&6 else as_save_IFS=$IFS; IFS=$PATH_SEPARATOR for as_dir in $PATH$PATH_SEPARATOR/opt/sfw/bin do IFS=$as_save_IFS test -z "$as_dir" && as_dir=. for ac_prog in mkdir gmkdir; do for ac_exec_ext in '' $ac_executable_extensions; do as_fn_executable_p "$as_dir/$ac_prog$ac_exec_ext" || continue case `"$as_dir/$ac_prog$ac_exec_ext" --version 2>&1` in #( 'mkdir (GNU coreutils) '* | \ 'mkdir (coreutils) '* | \ 'mkdir (fileutils) '4.1*) ac_cv_path_mkdir=$as_dir/$ac_prog$ac_exec_ext break 3;; esac done done done IFS=$as_save_IFS fi test -d ./--version && rmdir ./--version if test "${ac_cv_path_mkdir+set}" = set; then MKDIR_P="$ac_cv_path_mkdir -p" else # As a last resort, use the slow shell script. Don't cache a # value for MKDIR_P within a source directory, because that will # break other packages using the cache if that directory is # removed, or if the value is a relative name. MKDIR_P="$ac_install_sh -d" fi fi { $as_echo "$as_me:${as_lineno-$LINENO}: result: $MKDIR_P" >&5 $as_echo "$MKDIR_P" >&6; } mkdir_p="$MKDIR_P" case $mkdir_p in [\\/$]* | ?:[\\/]*) ;; */*) mkdir_p="\$(top_builddir)/$mkdir_p" ;; esac for ac_prog in gawk mawk nawk awk do # Extract the first word of "$ac_prog", so it can be a program name with args. set dummy $ac_prog; ac_word=$2 { $as_echo "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5 $as_echo_n "checking for $ac_word... " >&6; } if ${ac_cv_prog_AWK+:} false; then : $as_echo_n "(cached) " >&6 else if test -n "$AWK"; then ac_cv_prog_AWK="$AWK" # Let the user override the test. else as_save_IFS=$IFS; IFS=$PATH_SEPARATOR for as_dir in $PATH do IFS=$as_save_IFS test -z "$as_dir" && as_dir=. for ac_exec_ext in '' $ac_executable_extensions; do if as_fn_executable_p "$as_dir/$ac_word$ac_exec_ext"; then ac_cv_prog_AWK="$ac_prog" $as_echo "$as_me:${as_lineno-$LINENO}: found $as_dir/$ac_word$ac_exec_ext" >&5 break 2 fi done done IFS=$as_save_IFS fi fi AWK=$ac_cv_prog_AWK if test -n "$AWK"; then { $as_echo "$as_me:${as_lineno-$LINENO}: result: $AWK" >&5 $as_echo "$AWK" >&6; } else { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5 $as_echo "no" >&6; } fi test -n "$AWK" && break done { $as_echo "$as_me:${as_lineno-$LINENO}: checking whether ${MAKE-make} sets \$(MAKE)" >&5 $as_echo_n "checking whether ${MAKE-make} sets \$(MAKE)... " >&6; } set x ${MAKE-make} ac_make=`$as_echo "$2" | sed 's/+/p/g; s/[^a-zA-Z0-9_]/_/g'` if eval \${ac_cv_prog_make_${ac_make}_set+:} false; then : $as_echo_n "(cached) " >&6 else cat >conftest.make <<\_ACEOF SHELL = /bin/sh all: @echo '@@@%%%=$(MAKE)=@@@%%%' _ACEOF # GNU make sometimes prints "make[1]: Entering ...", which would confuse us. case `${MAKE-make} -f conftest.make 2>/dev/null` in *@@@%%%=?*=@@@%%%*) eval ac_cv_prog_make_${ac_make}_set=yes;; *) eval ac_cv_prog_make_${ac_make}_set=no;; esac rm -f conftest.make fi if eval test \$ac_cv_prog_make_${ac_make}_set = yes; then { $as_echo "$as_me:${as_lineno-$LINENO}: result: yes" >&5 $as_echo "yes" >&6; } SET_MAKE= else { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5 $as_echo "no" >&6; } SET_MAKE="MAKE=${MAKE-make}" fi rm -rf .tst 2>/dev/null mkdir .tst 2>/dev/null if test -d .tst; then am__leading_dot=. else am__leading_dot=_ fi rmdir .tst 2>/dev/null if test "`cd $srcdir && pwd`" != "`pwd`"; then # Use -I$(srcdir) only when $(srcdir) != ., so that make's output # is not polluted with repeated "-I." am__isrc=' -I$(srcdir)' # test to see if srcdir already configured if test -f $srcdir/config.status; then as_fn_error $? "source directory already configured; run \"make distclean\" there first" "$LINENO" 5 fi fi # test whether we have cygpath if test -z "$CYGPATH_W"; then if (cygpath --version) >/dev/null 2>/dev/null; then CYGPATH_W='cygpath -w' else CYGPATH_W=echo fi fi # Define the identity of the package. PACKAGE='guile-gnome-platform' VERSION='2.16.2' cat >>confdefs.h <<_ACEOF #define PACKAGE "$PACKAGE" _ACEOF cat >>confdefs.h <<_ACEOF #define VERSION "$VERSION" _ACEOF # Some tools Automake needs. ACLOCAL=${ACLOCAL-"${am_missing_run}aclocal-${am__api_version}"} AUTOCONF=${AUTOCONF-"${am_missing_run}autoconf"} AUTOMAKE=${AUTOMAKE-"${am_missing_run}automake-${am__api_version}"} AUTOHEADER=${AUTOHEADER-"${am_missing_run}autoheader"} MAKEINFO=${MAKEINFO-"${am_missing_run}makeinfo"} # We need awk for the "check" target. The system "awk" is bad on # some platforms. # Always define AMTAR for backward compatibility. Yes, it's still used # in the wild :-( We should find a proper way to deprecate it ... AMTAR='$${TAR-tar}' am__tar='$${TAR-tar} chof - "$$tardir"' am__untar='$${TAR-tar} xf -' VERSION=2.16.2 # Meaning of the API version # -------------------------- # # If 0, guile-gnome is unstable, and the API might change anytime. # Otherwise, guile-gnome is stable. Future incompatible releases will # bump this number so as to allow parallel, incompatible versions to # coexist. API_VERSION=2 # Check whether --enable-static was given. if test "${enable_static+set}" = set; then : enableval=$enable_static; p=${PACKAGE-default} case $enableval in yes) enable_static=yes ;; no) enable_static=no ;; *) enable_static=no # Look at the argument we got. We use all the common list separators. lt_save_ifs="$IFS"; IFS="${IFS}$PATH_SEPARATOR," for pkg in $enableval; do IFS="$lt_save_ifs" if test "X$pkg" = "X$p"; then enable_static=yes fi done IFS="$lt_save_ifs" ;; esac else enable_static=no fi DEPDIR="${am__leading_dot}deps" ac_config_commands="$ac_config_commands depfiles" am_make=${MAKE-make} cat > confinc << 'END' am__doit: @echo this is the am__doit target .PHONY: am__doit END # If we don't find an include directive, just comment out the code. { $as_echo "$as_me:${as_lineno-$LINENO}: checking for style of include used by $am_make" >&5 $as_echo_n "checking for style of include used by $am_make... " >&6; } am__include="#" am__quote= _am_result=none # First try GNU make style include. echo "include confinc" > confmf # Ignore all kinds of additional output from `make'. case `$am_make -s -f confmf 2> /dev/null` in #( *the\ am__doit\ target*) am__include=include am__quote= _am_result=GNU ;; esac # Now try BSD make style include. if test "$am__include" = "#"; then echo '.include "confinc"' > confmf case `$am_make -s -f confmf 2> /dev/null` in #( *the\ am__doit\ target*) am__include=.include am__quote="\"" _am_result=BSD ;; esac fi { $as_echo "$as_me:${as_lineno-$LINENO}: result: $_am_result" >&5 $as_echo "$_am_result" >&6; } rm -f confinc confmf # Check whether --enable-dependency-tracking was given. if test "${enable_dependency_tracking+set}" = set; then : enableval=$enable_dependency_tracking; fi if test "x$enable_dependency_tracking" != xno; then am_depcomp="$ac_aux_dir/depcomp" AMDEPBACKSLASH='\' am__nodep='_no' fi if test "x$enable_dependency_tracking" != xno; then AMDEP_TRUE= AMDEP_FALSE='#' else AMDEP_TRUE='#' AMDEP_FALSE= fi ac_ext=c ac_cpp='$CPP $CPPFLAGS' ac_compile='$CC -c $CFLAGS $CPPFLAGS conftest.$ac_ext >&5' ac_link='$CC -o conftest$ac_exeext $CFLAGS $CPPFLAGS $LDFLAGS conftest.$ac_ext $LIBS >&5' ac_compiler_gnu=$ac_cv_c_compiler_gnu if test -n "$ac_tool_prefix"; then # Extract the first word of "${ac_tool_prefix}gcc", so it can be a program name with args. set dummy ${ac_tool_prefix}gcc; ac_word=$2 { $as_echo "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5 $as_echo_n "checking for $ac_word... " >&6; } if ${ac_cv_prog_CC+:} false; then : $as_echo_n "(cached) " >&6 else if test -n "$CC"; then ac_cv_prog_CC="$CC" # Let the user override the test. else as_save_IFS=$IFS; IFS=$PATH_SEPARATOR for as_dir in $PATH do IFS=$as_save_IFS test -z "$as_dir" && as_dir=. for ac_exec_ext in '' $ac_executable_extensions; do if as_fn_executable_p "$as_dir/$ac_word$ac_exec_ext"; then ac_cv_prog_CC="${ac_tool_prefix}gcc" $as_echo "$as_me:${as_lineno-$LINENO}: found $as_dir/$ac_word$ac_exec_ext" >&5 break 2 fi done done IFS=$as_save_IFS fi fi CC=$ac_cv_prog_CC if test -n "$CC"; then { $as_echo "$as_me:${as_lineno-$LINENO}: result: $CC" >&5 $as_echo "$CC" >&6; } else { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5 $as_echo "no" >&6; } fi fi if test -z "$ac_cv_prog_CC"; then ac_ct_CC=$CC # Extract the first word of "gcc", so it can be a program name with args. set dummy gcc; ac_word=$2 { $as_echo "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5 $as_echo_n "checking for $ac_word... " >&6; } if ${ac_cv_prog_ac_ct_CC+:} false; then : $as_echo_n "(cached) " >&6 else if test -n "$ac_ct_CC"; then ac_cv_prog_ac_ct_CC="$ac_ct_CC" # Let the user override the test. else as_save_IFS=$IFS; IFS=$PATH_SEPARATOR for as_dir in $PATH do IFS=$as_save_IFS test -z "$as_dir" && as_dir=. for ac_exec_ext in '' $ac_executable_extensions; do if as_fn_executable_p "$as_dir/$ac_word$ac_exec_ext"; then ac_cv_prog_ac_ct_CC="gcc" $as_echo "$as_me:${as_lineno-$LINENO}: found $as_dir/$ac_word$ac_exec_ext" >&5 break 2 fi done done IFS=$as_save_IFS fi fi ac_ct_CC=$ac_cv_prog_ac_ct_CC if test -n "$ac_ct_CC"; then { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_ct_CC" >&5 $as_echo "$ac_ct_CC" >&6; } else { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5 $as_echo "no" >&6; } fi if test "x$ac_ct_CC" = x; then CC="" else case $cross_compiling:$ac_tool_warned in yes:) { $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: using cross tools not prefixed with host triplet" >&5 $as_echo "$as_me: WARNING: using cross tools not prefixed with host triplet" >&2;} ac_tool_warned=yes ;; esac CC=$ac_ct_CC fi else CC="$ac_cv_prog_CC" fi if test -z "$CC"; then if test -n "$ac_tool_prefix"; then # Extract the first word of "${ac_tool_prefix}cc", so it can be a program name with args. set dummy ${ac_tool_prefix}cc; ac_word=$2 { $as_echo "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5 $as_echo_n "checking for $ac_word... " >&6; } if ${ac_cv_prog_CC+:} false; then : $as_echo_n "(cached) " >&6 else if test -n "$CC"; then ac_cv_prog_CC="$CC" # Let the user override the test. else as_save_IFS=$IFS; IFS=$PATH_SEPARATOR for as_dir in $PATH do IFS=$as_save_IFS test -z "$as_dir" && as_dir=. for ac_exec_ext in '' $ac_executable_extensions; do if as_fn_executable_p "$as_dir/$ac_word$ac_exec_ext"; then ac_cv_prog_CC="${ac_tool_prefix}cc" $as_echo "$as_me:${as_lineno-$LINENO}: found $as_dir/$ac_word$ac_exec_ext" >&5 break 2 fi done done IFS=$as_save_IFS fi fi CC=$ac_cv_prog_CC if test -n "$CC"; then { $as_echo "$as_me:${as_lineno-$LINENO}: result: $CC" >&5 $as_echo "$CC" >&6; } else { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5 $as_echo "no" >&6; } fi fi fi if test -z "$CC"; then # Extract the first word of "cc", so it can be a program name with args. set dummy cc; ac_word=$2 { $as_echo "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5 $as_echo_n "checking for $ac_word... " >&6; } if ${ac_cv_prog_CC+:} false; then : $as_echo_n "(cached) " >&6 else if test -n "$CC"; then ac_cv_prog_CC="$CC" # Let the user override the test. else ac_prog_rejected=no as_save_IFS=$IFS; IFS=$PATH_SEPARATOR for as_dir in $PATH do IFS=$as_save_IFS test -z "$as_dir" && as_dir=. for ac_exec_ext in '' $ac_executable_extensions; do if as_fn_executable_p "$as_dir/$ac_word$ac_exec_ext"; then if test "$as_dir/$ac_word$ac_exec_ext" = "/usr/ucb/cc"; then ac_prog_rejected=yes continue fi ac_cv_prog_CC="cc" $as_echo "$as_me:${as_lineno-$LINENO}: found $as_dir/$ac_word$ac_exec_ext" >&5 break 2 fi done done IFS=$as_save_IFS if test $ac_prog_rejected = yes; then # We found a bogon in the path, so make sure we never use it. set dummy $ac_cv_prog_CC shift if test $# != 0; then # We chose a different compiler from the bogus one. # However, it has the same basename, so the bogon will be chosen # first if we set CC to just the basename; use the full file name. shift ac_cv_prog_CC="$as_dir/$ac_word${1+' '}$@" fi fi fi fi CC=$ac_cv_prog_CC if test -n "$CC"; then { $as_echo "$as_me:${as_lineno-$LINENO}: result: $CC" >&5 $as_echo "$CC" >&6; } else { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5 $as_echo "no" >&6; } fi fi if test -z "$CC"; then if test -n "$ac_tool_prefix"; then for ac_prog in cl.exe do # Extract the first word of "$ac_tool_prefix$ac_prog", so it can be a program name with args. set dummy $ac_tool_prefix$ac_prog; ac_word=$2 { $as_echo "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5 $as_echo_n "checking for $ac_word... " >&6; } if ${ac_cv_prog_CC+:} false; then : $as_echo_n "(cached) " >&6 else if test -n "$CC"; then ac_cv_prog_CC="$CC" # Let the user override the test. else as_save_IFS=$IFS; IFS=$PATH_SEPARATOR for as_dir in $PATH do IFS=$as_save_IFS test -z "$as_dir" && as_dir=. for ac_exec_ext in '' $ac_executable_extensions; do if as_fn_executable_p "$as_dir/$ac_word$ac_exec_ext"; then ac_cv_prog_CC="$ac_tool_prefix$ac_prog" $as_echo "$as_me:${as_lineno-$LINENO}: found $as_dir/$ac_word$ac_exec_ext" >&5 break 2 fi done done IFS=$as_save_IFS fi fi CC=$ac_cv_prog_CC if test -n "$CC"; then { $as_echo "$as_me:${as_lineno-$LINENO}: result: $CC" >&5 $as_echo "$CC" >&6; } else { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5 $as_echo "no" >&6; } fi test -n "$CC" && break done fi if test -z "$CC"; then ac_ct_CC=$CC for ac_prog in cl.exe do # Extract the first word of "$ac_prog", so it can be a program name with args. set dummy $ac_prog; ac_word=$2 { $as_echo "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5 $as_echo_n "checking for $ac_word... " >&6; } if ${ac_cv_prog_ac_ct_CC+:} false; then : $as_echo_n "(cached) " >&6 else if test -n "$ac_ct_CC"; then ac_cv_prog_ac_ct_CC="$ac_ct_CC" # Let the user override the test. else as_save_IFS=$IFS; IFS=$PATH_SEPARATOR for as_dir in $PATH do IFS=$as_save_IFS test -z "$as_dir" && as_dir=. for ac_exec_ext in '' $ac_executable_extensions; do if as_fn_executable_p "$as_dir/$ac_word$ac_exec_ext"; then ac_cv_prog_ac_ct_CC="$ac_prog" $as_echo "$as_me:${as_lineno-$LINENO}: found $as_dir/$ac_word$ac_exec_ext" >&5 break 2 fi done done IFS=$as_save_IFS fi fi ac_ct_CC=$ac_cv_prog_ac_ct_CC if test -n "$ac_ct_CC"; then { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_ct_CC" >&5 $as_echo "$ac_ct_CC" >&6; } else { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5 $as_echo "no" >&6; } fi test -n "$ac_ct_CC" && break done if test "x$ac_ct_CC" = x; then CC="" else case $cross_compiling:$ac_tool_warned in yes:) { $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: using cross tools not prefixed with host triplet" >&5 $as_echo "$as_me: WARNING: using cross tools not prefixed with host triplet" >&2;} ac_tool_warned=yes ;; esac CC=$ac_ct_CC fi fi fi test -z "$CC" && { { $as_echo "$as_me:${as_lineno-$LINENO}: error: in \`$ac_pwd':" >&5 $as_echo "$as_me: error: in \`$ac_pwd':" >&2;} as_fn_error $? "no acceptable C compiler found in \$PATH See \`config.log' for more details" "$LINENO" 5; } # Provide some information about the compiler. $as_echo "$as_me:${as_lineno-$LINENO}: checking for C compiler version" >&5 set X $ac_compile ac_compiler=$2 for ac_option in --version -v -V -qversion; do { { ac_try="$ac_compiler $ac_option >&5" case "(($ac_try" in *\"* | *\`* | *\\*) ac_try_echo=\$ac_try;; *) ac_try_echo=$ac_try;; esac eval ac_try_echo="\"\$as_me:${as_lineno-$LINENO}: $ac_try_echo\"" $as_echo "$ac_try_echo"; } >&5 (eval "$ac_compiler $ac_option >&5") 2>conftest.err ac_status=$? if test -s conftest.err; then sed '10a\ ... rest of stderr output deleted ... 10q' conftest.err >conftest.er1 cat conftest.er1 >&5 fi rm -f conftest.er1 conftest.err $as_echo "$as_me:${as_lineno-$LINENO}: \$? = $ac_status" >&5 test $ac_status = 0; } done cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ int main () { ; return 0; } _ACEOF ac_clean_files_save=$ac_clean_files ac_clean_files="$ac_clean_files a.out a.out.dSYM a.exe b.out" # Try to create an executable without -o first, disregard a.out. # It will help us diagnose broken compilers, and finding out an intuition # of exeext. { $as_echo "$as_me:${as_lineno-$LINENO}: checking whether the C compiler works" >&5 $as_echo_n "checking whether the C compiler works... " >&6; } ac_link_default=`$as_echo "$ac_link" | sed 's/ -o *conftest[^ ]*//'` # The possible output files: ac_files="a.out conftest.exe conftest a.exe a_out.exe b.out conftest.*" ac_rmfiles= for ac_file in $ac_files do case $ac_file in *.$ac_ext | *.xcoff | *.tds | *.d | *.pdb | *.xSYM | *.bb | *.bbg | *.map | *.inf | *.dSYM | *.o | *.obj ) ;; * ) ac_rmfiles="$ac_rmfiles $ac_file";; esac done rm -f $ac_rmfiles if { { ac_try="$ac_link_default" case "(($ac_try" in *\"* | *\`* | *\\*) ac_try_echo=\$ac_try;; *) ac_try_echo=$ac_try;; esac eval ac_try_echo="\"\$as_me:${as_lineno-$LINENO}: $ac_try_echo\"" $as_echo "$ac_try_echo"; } >&5 (eval "$ac_link_default") 2>&5 ac_status=$? $as_echo "$as_me:${as_lineno-$LINENO}: \$? = $ac_status" >&5 test $ac_status = 0; }; then : # Autoconf-2.13 could set the ac_cv_exeext variable to `no'. # So ignore a value of `no', otherwise this would lead to `EXEEXT = no' # in a Makefile. We should not override ac_cv_exeext if it was cached, # so that the user can short-circuit this test for compilers unknown to # Autoconf. for ac_file in $ac_files '' do test -f "$ac_file" || continue case $ac_file in *.$ac_ext | *.xcoff | *.tds | *.d | *.pdb | *.xSYM | *.bb | *.bbg | *.map | *.inf | *.dSYM | *.o | *.obj ) ;; [ab].out ) # We found the default executable, but exeext='' is most # certainly right. break;; *.* ) if test "${ac_cv_exeext+set}" = set && test "$ac_cv_exeext" != no; then :; else ac_cv_exeext=`expr "$ac_file" : '[^.]*\(\..*\)'` fi # We set ac_cv_exeext here because the later test for it is not # safe: cross compilers may not add the suffix if given an `-o' # argument, so we may need to know it at that point already. # Even if this section looks crufty: it has the advantage of # actually working. break;; * ) break;; esac done test "$ac_cv_exeext" = no && ac_cv_exeext= else ac_file='' fi if test -z "$ac_file"; then : { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5 $as_echo "no" >&6; } $as_echo "$as_me: failed program was:" >&5 sed 's/^/| /' conftest.$ac_ext >&5 { { $as_echo "$as_me:${as_lineno-$LINENO}: error: in \`$ac_pwd':" >&5 $as_echo "$as_me: error: in \`$ac_pwd':" >&2;} as_fn_error 77 "C compiler cannot create executables See \`config.log' for more details" "$LINENO" 5; } else { $as_echo "$as_me:${as_lineno-$LINENO}: result: yes" >&5 $as_echo "yes" >&6; } fi { $as_echo "$as_me:${as_lineno-$LINENO}: checking for C compiler default output file name" >&5 $as_echo_n "checking for C compiler default output file name... " >&6; } { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_file" >&5 $as_echo "$ac_file" >&6; } ac_exeext=$ac_cv_exeext rm -f -r a.out a.out.dSYM a.exe conftest$ac_cv_exeext b.out ac_clean_files=$ac_clean_files_save { $as_echo "$as_me:${as_lineno-$LINENO}: checking for suffix of executables" >&5 $as_echo_n "checking for suffix of executables... " >&6; } if { { ac_try="$ac_link" case "(($ac_try" in *\"* | *\`* | *\\*) ac_try_echo=\$ac_try;; *) ac_try_echo=$ac_try;; esac eval ac_try_echo="\"\$as_me:${as_lineno-$LINENO}: $ac_try_echo\"" $as_echo "$ac_try_echo"; } >&5 (eval "$ac_link") 2>&5 ac_status=$? $as_echo "$as_me:${as_lineno-$LINENO}: \$? = $ac_status" >&5 test $ac_status = 0; }; then : # If both `conftest.exe' and `conftest' are `present' (well, observable) # catch `conftest.exe'. For instance with Cygwin, `ls conftest' will # work properly (i.e., refer to `conftest.exe'), while it won't with # `rm'. for ac_file in conftest.exe conftest conftest.*; do test -f "$ac_file" || continue case $ac_file in *.$ac_ext | *.xcoff | *.tds | *.d | *.pdb | *.xSYM | *.bb | *.bbg | *.map | *.inf | *.dSYM | *.o | *.obj ) ;; *.* ) ac_cv_exeext=`expr "$ac_file" : '[^.]*\(\..*\)'` break;; * ) break;; esac done else { { $as_echo "$as_me:${as_lineno-$LINENO}: error: in \`$ac_pwd':" >&5 $as_echo "$as_me: error: in \`$ac_pwd':" >&2;} as_fn_error $? "cannot compute suffix of executables: cannot compile and link See \`config.log' for more details" "$LINENO" 5; } fi rm -f conftest conftest$ac_cv_exeext { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_exeext" >&5 $as_echo "$ac_cv_exeext" >&6; } rm -f conftest.$ac_ext EXEEXT=$ac_cv_exeext ac_exeext=$EXEEXT cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ #include int main () { FILE *f = fopen ("conftest.out", "w"); return ferror (f) || fclose (f) != 0; ; return 0; } _ACEOF ac_clean_files="$ac_clean_files conftest.out" # Check that the compiler produces executables we can run. If not, either # the compiler is broken, or we cross compile. { $as_echo "$as_me:${as_lineno-$LINENO}: checking whether we are cross compiling" >&5 $as_echo_n "checking whether we are cross compiling... " >&6; } if test "$cross_compiling" != yes; then { { ac_try="$ac_link" case "(($ac_try" in *\"* | *\`* | *\\*) ac_try_echo=\$ac_try;; *) ac_try_echo=$ac_try;; esac eval ac_try_echo="\"\$as_me:${as_lineno-$LINENO}: $ac_try_echo\"" $as_echo "$ac_try_echo"; } >&5 (eval "$ac_link") 2>&5 ac_status=$? $as_echo "$as_me:${as_lineno-$LINENO}: \$? = $ac_status" >&5 test $ac_status = 0; } if { ac_try='./conftest$ac_cv_exeext' { { case "(($ac_try" in *\"* | *\`* | *\\*) ac_try_echo=\$ac_try;; *) ac_try_echo=$ac_try;; esac eval ac_try_echo="\"\$as_me:${as_lineno-$LINENO}: $ac_try_echo\"" $as_echo "$ac_try_echo"; } >&5 (eval "$ac_try") 2>&5 ac_status=$? $as_echo "$as_me:${as_lineno-$LINENO}: \$? = $ac_status" >&5 test $ac_status = 0; }; }; then cross_compiling=no else if test "$cross_compiling" = maybe; then cross_compiling=yes else { { $as_echo "$as_me:${as_lineno-$LINENO}: error: in \`$ac_pwd':" >&5 $as_echo "$as_me: error: in \`$ac_pwd':" >&2;} as_fn_error $? "cannot run C compiled programs. If you meant to cross compile, use \`--host'. See \`config.log' for more details" "$LINENO" 5; } fi fi fi { $as_echo "$as_me:${as_lineno-$LINENO}: result: $cross_compiling" >&5 $as_echo "$cross_compiling" >&6; } rm -f conftest.$ac_ext conftest$ac_cv_exeext conftest.out ac_clean_files=$ac_clean_files_save { $as_echo "$as_me:${as_lineno-$LINENO}: checking for suffix of object files" >&5 $as_echo_n "checking for suffix of object files... " >&6; } if ${ac_cv_objext+:} false; then : $as_echo_n "(cached) " >&6 else cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ int main () { ; return 0; } _ACEOF rm -f conftest.o conftest.obj if { { ac_try="$ac_compile" case "(($ac_try" in *\"* | *\`* | *\\*) ac_try_echo=\$ac_try;; *) ac_try_echo=$ac_try;; esac eval ac_try_echo="\"\$as_me:${as_lineno-$LINENO}: $ac_try_echo\"" $as_echo "$ac_try_echo"; } >&5 (eval "$ac_compile") 2>&5 ac_status=$? $as_echo "$as_me:${as_lineno-$LINENO}: \$? = $ac_status" >&5 test $ac_status = 0; }; then : for ac_file in conftest.o conftest.obj conftest.*; do test -f "$ac_file" || continue; case $ac_file in *.$ac_ext | *.xcoff | *.tds | *.d | *.pdb | *.xSYM | *.bb | *.bbg | *.map | *.inf | *.dSYM ) ;; *) ac_cv_objext=`expr "$ac_file" : '.*\.\(.*\)'` break;; esac done else $as_echo "$as_me: failed program was:" >&5 sed 's/^/| /' conftest.$ac_ext >&5 { { $as_echo "$as_me:${as_lineno-$LINENO}: error: in \`$ac_pwd':" >&5 $as_echo "$as_me: error: in \`$ac_pwd':" >&2;} as_fn_error $? "cannot compute suffix of object files: cannot compile See \`config.log' for more details" "$LINENO" 5; } fi rm -f conftest.$ac_cv_objext conftest.$ac_ext fi { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_objext" >&5 $as_echo "$ac_cv_objext" >&6; } OBJEXT=$ac_cv_objext ac_objext=$OBJEXT { $as_echo "$as_me:${as_lineno-$LINENO}: checking whether we are using the GNU C compiler" >&5 $as_echo_n "checking whether we are using the GNU C compiler... " >&6; } if ${ac_cv_c_compiler_gnu+:} false; then : $as_echo_n "(cached) " >&6 else cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ int main () { #ifndef __GNUC__ choke me #endif ; return 0; } _ACEOF if ac_fn_c_try_compile "$LINENO"; then : ac_compiler_gnu=yes else ac_compiler_gnu=no fi rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext ac_cv_c_compiler_gnu=$ac_compiler_gnu fi { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_c_compiler_gnu" >&5 $as_echo "$ac_cv_c_compiler_gnu" >&6; } if test $ac_compiler_gnu = yes; then GCC=yes else GCC= fi ac_test_CFLAGS=${CFLAGS+set} ac_save_CFLAGS=$CFLAGS { $as_echo "$as_me:${as_lineno-$LINENO}: checking whether $CC accepts -g" >&5 $as_echo_n "checking whether $CC accepts -g... " >&6; } if ${ac_cv_prog_cc_g+:} false; then : $as_echo_n "(cached) " >&6 else ac_save_c_werror_flag=$ac_c_werror_flag ac_c_werror_flag=yes ac_cv_prog_cc_g=no CFLAGS="-g" cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ int main () { ; return 0; } _ACEOF if ac_fn_c_try_compile "$LINENO"; then : ac_cv_prog_cc_g=yes else CFLAGS="" cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ int main () { ; return 0; } _ACEOF if ac_fn_c_try_compile "$LINENO"; then : else ac_c_werror_flag=$ac_save_c_werror_flag CFLAGS="-g" cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ int main () { ; return 0; } _ACEOF if ac_fn_c_try_compile "$LINENO"; then : ac_cv_prog_cc_g=yes fi rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext fi rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext fi rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext ac_c_werror_flag=$ac_save_c_werror_flag fi { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_prog_cc_g" >&5 $as_echo "$ac_cv_prog_cc_g" >&6; } if test "$ac_test_CFLAGS" = set; then CFLAGS=$ac_save_CFLAGS elif test $ac_cv_prog_cc_g = yes; then if test "$GCC" = yes; then CFLAGS="-g -O2" else CFLAGS="-g" fi else if test "$GCC" = yes; then CFLAGS="-O2" else CFLAGS= fi fi { $as_echo "$as_me:${as_lineno-$LINENO}: checking for $CC option to accept ISO C89" >&5 $as_echo_n "checking for $CC option to accept ISO C89... " >&6; } if ${ac_cv_prog_cc_c89+:} false; then : $as_echo_n "(cached) " >&6 else ac_cv_prog_cc_c89=no ac_save_CC=$CC cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ #include #include struct stat; /* Most of the following tests are stolen from RCS 5.7's src/conf.sh. */ struct buf { int x; }; FILE * (*rcsopen) (struct buf *, struct stat *, int); static char *e (p, i) char **p; int i; { return p[i]; } static char *f (char * (*g) (char **, int), char **p, ...) { char *s; va_list v; va_start (v,p); s = g (p, va_arg (v,int)); va_end (v); return s; } /* OSF 4.0 Compaq cc is some sort of almost-ANSI by default. It has function prototypes and stuff, but not '\xHH' hex character constants. These don't provoke an error unfortunately, instead are silently treated as 'x'. The following induces an error, until -std is added to get proper ANSI mode. Curiously '\x00'!='x' always comes out true, for an array size at least. It's necessary to write '\x00'==0 to get something that's true only with -std. */ int osf4_cc_array ['\x00' == 0 ? 1 : -1]; /* IBM C 6 for AIX is almost-ANSI by default, but it replaces macro parameters inside strings and character constants. */ #define FOO(x) 'x' int xlc6_cc_array[FOO(a) == 'x' ? 1 : -1]; int test (int i, double x); struct s1 {int (*f) (int a);}; struct s2 {int (*f) (double a);}; int pairnames (int, char **, FILE *(*)(struct buf *, struct stat *, int), int, int); int argc; char **argv; int main () { return f (e, argv, 0) != argv[0] || f (e, argv, 1) != argv[1]; ; return 0; } _ACEOF for ac_arg in '' -qlanglvl=extc89 -qlanglvl=ansi -std \ -Ae "-Aa -D_HPUX_SOURCE" "-Xc -D__EXTENSIONS__" do CC="$ac_save_CC $ac_arg" if ac_fn_c_try_compile "$LINENO"; then : ac_cv_prog_cc_c89=$ac_arg fi rm -f core conftest.err conftest.$ac_objext test "x$ac_cv_prog_cc_c89" != "xno" && break done rm -f conftest.$ac_ext CC=$ac_save_CC fi # AC_CACHE_VAL case "x$ac_cv_prog_cc_c89" in x) { $as_echo "$as_me:${as_lineno-$LINENO}: result: none needed" >&5 $as_echo "none needed" >&6; } ;; xno) { $as_echo "$as_me:${as_lineno-$LINENO}: result: unsupported" >&5 $as_echo "unsupported" >&6; } ;; *) CC="$CC $ac_cv_prog_cc_c89" { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_prog_cc_c89" >&5 $as_echo "$ac_cv_prog_cc_c89" >&6; } ;; esac if test "x$ac_cv_prog_cc_c89" != xno; then : fi ac_ext=c ac_cpp='$CPP $CPPFLAGS' ac_compile='$CC -c $CFLAGS $CPPFLAGS conftest.$ac_ext >&5' ac_link='$CC -o conftest$ac_exeext $CFLAGS $CPPFLAGS $LDFLAGS conftest.$ac_ext $LIBS >&5' ac_compiler_gnu=$ac_cv_c_compiler_gnu depcc="$CC" am_compiler_list= { $as_echo "$as_me:${as_lineno-$LINENO}: checking dependency style of $depcc" >&5 $as_echo_n "checking dependency style of $depcc... " >&6; } if ${am_cv_CC_dependencies_compiler_type+:} false; then : $as_echo_n "(cached) " >&6 else if test -z "$AMDEP_TRUE" && test -f "$am_depcomp"; then # We make a subdir and do the tests there. Otherwise we can end up # making bogus files that we don't know about and never remove. For # instance it was reported that on HP-UX the gcc test will end up # making a dummy file named `D' -- because `-MD' means `put the output # in D'. rm -rf conftest.dir mkdir conftest.dir # Copy depcomp to subdir because otherwise we won't find it if we're # using a relative directory. cp "$am_depcomp" conftest.dir cd conftest.dir # We will build objects and dependencies in a subdirectory because # it helps to detect inapplicable dependency modes. For instance # both Tru64's cc and ICC support -MD to output dependencies as a # side effect of compilation, but ICC will put the dependencies in # the current directory while Tru64 will put them in the object # directory. mkdir sub am_cv_CC_dependencies_compiler_type=none if test "$am_compiler_list" = ""; then am_compiler_list=`sed -n 's/^#*\([a-zA-Z0-9]*\))$/\1/p' < ./depcomp` fi am__universal=false case " $depcc " in #( *\ -arch\ *\ -arch\ *) am__universal=true ;; esac for depmode in $am_compiler_list; do # Setup a source with many dependencies, because some compilers # like to wrap large dependency lists on column 80 (with \), and # we should not choose a depcomp mode which is confused by this. # # We need to recreate these files for each test, as the compiler may # overwrite some of them when testing with obscure command lines. # This happens at least with the AIX C compiler. : > sub/conftest.c for i in 1 2 3 4 5 6; do echo '#include "conftst'$i'.h"' >> sub/conftest.c # Using `: > sub/conftst$i.h' creates only sub/conftst1.h with # Solaris 8's {/usr,}/bin/sh. touch sub/conftst$i.h done echo "${am__include} ${am__quote}sub/conftest.Po${am__quote}" > confmf # We check with `-c' and `-o' for the sake of the "dashmstdout" # mode. It turns out that the SunPro C++ compiler does not properly # handle `-M -o', and we need to detect this. Also, some Intel # versions had trouble with output in subdirs am__obj=sub/conftest.${OBJEXT-o} am__minus_obj="-o $am__obj" case $depmode in gcc) # This depmode causes a compiler race in universal mode. test "$am__universal" = false || continue ;; nosideeffect) # after this tag, mechanisms are not by side-effect, so they'll # only be used when explicitly requested if test "x$enable_dependency_tracking" = xyes; then continue else break fi ;; msvc7 | msvc7msys | msvisualcpp | msvcmsys) # This compiler won't grok `-c -o', but also, the minuso test has # not run yet. These depmodes are late enough in the game, and # so weak that their functioning should not be impacted. am__obj=conftest.${OBJEXT-o} am__minus_obj= ;; none) break ;; esac if depmode=$depmode \ source=sub/conftest.c object=$am__obj \ depfile=sub/conftest.Po tmpdepfile=sub/conftest.TPo \ $SHELL ./depcomp $depcc -c $am__minus_obj sub/conftest.c \ >/dev/null 2>conftest.err && grep sub/conftst1.h sub/conftest.Po > /dev/null 2>&1 && grep sub/conftst6.h sub/conftest.Po > /dev/null 2>&1 && grep $am__obj sub/conftest.Po > /dev/null 2>&1 && ${MAKE-make} -s -f confmf > /dev/null 2>&1; then # icc doesn't choke on unknown options, it will just issue warnings # or remarks (even with -Werror). So we grep stderr for any message # that says an option was ignored or not supported. # When given -MP, icc 7.0 and 7.1 complain thusly: # icc: Command line warning: ignoring option '-M'; no argument required # The diagnosis changed in icc 8.0: # icc: Command line remark: option '-MP' not supported if (grep 'ignoring option' conftest.err || grep 'not supported' conftest.err) >/dev/null 2>&1; then :; else am_cv_CC_dependencies_compiler_type=$depmode break fi fi done cd .. rm -rf conftest.dir else am_cv_CC_dependencies_compiler_type=none fi fi { $as_echo "$as_me:${as_lineno-$LINENO}: result: $am_cv_CC_dependencies_compiler_type" >&5 $as_echo "$am_cv_CC_dependencies_compiler_type" >&6; } CCDEPMODE=depmode=$am_cv_CC_dependencies_compiler_type if test "x$enable_dependency_tracking" != xno \ && test "$am_cv_CC_dependencies_compiler_type" = gcc3; then am__fastdepCC_TRUE= am__fastdepCC_FALSE='#' else am__fastdepCC_TRUE='#' am__fastdepCC_FALSE= fi { $as_echo "$as_me:${as_lineno-$LINENO}: checking for library containing strerror" >&5 $as_echo_n "checking for library containing strerror... " >&6; } if ${ac_cv_search_strerror+:} false; then : $as_echo_n "(cached) " >&6 else ac_func_search_save_LIBS=$LIBS cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ /* Override any GCC internal prototype to avoid an error. Use char because int might match the return type of a GCC builtin and then its argument prototype would still apply. */ #ifdef __cplusplus extern "C" #endif char strerror (); int main () { return strerror (); ; return 0; } _ACEOF for ac_lib in '' cposix; do if test -z "$ac_lib"; then ac_res="none required" else ac_res=-l$ac_lib LIBS="-l$ac_lib $ac_func_search_save_LIBS" fi if ac_fn_c_try_link "$LINENO"; then : ac_cv_search_strerror=$ac_res fi rm -f core conftest.err conftest.$ac_objext \ conftest$ac_exeext if ${ac_cv_search_strerror+:} false; then : break fi done if ${ac_cv_search_strerror+:} false; then : else ac_cv_search_strerror=no fi rm conftest.$ac_ext LIBS=$ac_func_search_save_LIBS fi { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_search_strerror" >&5 $as_echo "$ac_cv_search_strerror" >&6; } ac_res=$ac_cv_search_strerror if test "$ac_res" != no; then : test "$ac_res" = "none required" || LIBS="$ac_res $LIBS" fi ac_ext=c ac_cpp='$CPP $CPPFLAGS' ac_compile='$CC -c $CFLAGS $CPPFLAGS conftest.$ac_ext >&5' ac_link='$CC -o conftest$ac_exeext $CFLAGS $CPPFLAGS $LDFLAGS conftest.$ac_ext $LIBS >&5' ac_compiler_gnu=$ac_cv_c_compiler_gnu if test -n "$ac_tool_prefix"; then # Extract the first word of "${ac_tool_prefix}gcc", so it can be a program name with args. set dummy ${ac_tool_prefix}gcc; ac_word=$2 { $as_echo "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5 $as_echo_n "checking for $ac_word... " >&6; } if ${ac_cv_prog_CC+:} false; then : $as_echo_n "(cached) " >&6 else if test -n "$CC"; then ac_cv_prog_CC="$CC" # Let the user override the test. else as_save_IFS=$IFS; IFS=$PATH_SEPARATOR for as_dir in $PATH do IFS=$as_save_IFS test -z "$as_dir" && as_dir=. for ac_exec_ext in '' $ac_executable_extensions; do if as_fn_executable_p "$as_dir/$ac_word$ac_exec_ext"; then ac_cv_prog_CC="${ac_tool_prefix}gcc" $as_echo "$as_me:${as_lineno-$LINENO}: found $as_dir/$ac_word$ac_exec_ext" >&5 break 2 fi done done IFS=$as_save_IFS fi fi CC=$ac_cv_prog_CC if test -n "$CC"; then { $as_echo "$as_me:${as_lineno-$LINENO}: result: $CC" >&5 $as_echo "$CC" >&6; } else { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5 $as_echo "no" >&6; } fi fi if test -z "$ac_cv_prog_CC"; then ac_ct_CC=$CC # Extract the first word of "gcc", so it can be a program name with args. set dummy gcc; ac_word=$2 { $as_echo "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5 $as_echo_n "checking for $ac_word... " >&6; } if ${ac_cv_prog_ac_ct_CC+:} false; then : $as_echo_n "(cached) " >&6 else if test -n "$ac_ct_CC"; then ac_cv_prog_ac_ct_CC="$ac_ct_CC" # Let the user override the test. else as_save_IFS=$IFS; IFS=$PATH_SEPARATOR for as_dir in $PATH do IFS=$as_save_IFS test -z "$as_dir" && as_dir=. for ac_exec_ext in '' $ac_executable_extensions; do if as_fn_executable_p "$as_dir/$ac_word$ac_exec_ext"; then ac_cv_prog_ac_ct_CC="gcc" $as_echo "$as_me:${as_lineno-$LINENO}: found $as_dir/$ac_word$ac_exec_ext" >&5 break 2 fi done done IFS=$as_save_IFS fi fi ac_ct_CC=$ac_cv_prog_ac_ct_CC if test -n "$ac_ct_CC"; then { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_ct_CC" >&5 $as_echo "$ac_ct_CC" >&6; } else { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5 $as_echo "no" >&6; } fi if test "x$ac_ct_CC" = x; then CC="" else case $cross_compiling:$ac_tool_warned in yes:) { $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: using cross tools not prefixed with host triplet" >&5 $as_echo "$as_me: WARNING: using cross tools not prefixed with host triplet" >&2;} ac_tool_warned=yes ;; esac CC=$ac_ct_CC fi else CC="$ac_cv_prog_CC" fi if test -z "$CC"; then if test -n "$ac_tool_prefix"; then # Extract the first word of "${ac_tool_prefix}cc", so it can be a program name with args. set dummy ${ac_tool_prefix}cc; ac_word=$2 { $as_echo "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5 $as_echo_n "checking for $ac_word... " >&6; } if ${ac_cv_prog_CC+:} false; then : $as_echo_n "(cached) " >&6 else if test -n "$CC"; then ac_cv_prog_CC="$CC" # Let the user override the test. else as_save_IFS=$IFS; IFS=$PATH_SEPARATOR for as_dir in $PATH do IFS=$as_save_IFS test -z "$as_dir" && as_dir=. for ac_exec_ext in '' $ac_executable_extensions; do if as_fn_executable_p "$as_dir/$ac_word$ac_exec_ext"; then ac_cv_prog_CC="${ac_tool_prefix}cc" $as_echo "$as_me:${as_lineno-$LINENO}: found $as_dir/$ac_word$ac_exec_ext" >&5 break 2 fi done done IFS=$as_save_IFS fi fi CC=$ac_cv_prog_CC if test -n "$CC"; then { $as_echo "$as_me:${as_lineno-$LINENO}: result: $CC" >&5 $as_echo "$CC" >&6; } else { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5 $as_echo "no" >&6; } fi fi fi if test -z "$CC"; then # Extract the first word of "cc", so it can be a program name with args. set dummy cc; ac_word=$2 { $as_echo "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5 $as_echo_n "checking for $ac_word... " >&6; } if ${ac_cv_prog_CC+:} false; then : $as_echo_n "(cached) " >&6 else if test -n "$CC"; then ac_cv_prog_CC="$CC" # Let the user override the test. else ac_prog_rejected=no as_save_IFS=$IFS; IFS=$PATH_SEPARATOR for as_dir in $PATH do IFS=$as_save_IFS test -z "$as_dir" && as_dir=. for ac_exec_ext in '' $ac_executable_extensions; do if as_fn_executable_p "$as_dir/$ac_word$ac_exec_ext"; then if test "$as_dir/$ac_word$ac_exec_ext" = "/usr/ucb/cc"; then ac_prog_rejected=yes continue fi ac_cv_prog_CC="cc" $as_echo "$as_me:${as_lineno-$LINENO}: found $as_dir/$ac_word$ac_exec_ext" >&5 break 2 fi done done IFS=$as_save_IFS if test $ac_prog_rejected = yes; then # We found a bogon in the path, so make sure we never use it. set dummy $ac_cv_prog_CC shift if test $# != 0; then # We chose a different compiler from the bogus one. # However, it has the same basename, so the bogon will be chosen # first if we set CC to just the basename; use the full file name. shift ac_cv_prog_CC="$as_dir/$ac_word${1+' '}$@" fi fi fi fi CC=$ac_cv_prog_CC if test -n "$CC"; then { $as_echo "$as_me:${as_lineno-$LINENO}: result: $CC" >&5 $as_echo "$CC" >&6; } else { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5 $as_echo "no" >&6; } fi fi if test -z "$CC"; then if test -n "$ac_tool_prefix"; then for ac_prog in cl.exe do # Extract the first word of "$ac_tool_prefix$ac_prog", so it can be a program name with args. set dummy $ac_tool_prefix$ac_prog; ac_word=$2 { $as_echo "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5 $as_echo_n "checking for $ac_word... " >&6; } if ${ac_cv_prog_CC+:} false; then : $as_echo_n "(cached) " >&6 else if test -n "$CC"; then ac_cv_prog_CC="$CC" # Let the user override the test. else as_save_IFS=$IFS; IFS=$PATH_SEPARATOR for as_dir in $PATH do IFS=$as_save_IFS test -z "$as_dir" && as_dir=. for ac_exec_ext in '' $ac_executable_extensions; do if as_fn_executable_p "$as_dir/$ac_word$ac_exec_ext"; then ac_cv_prog_CC="$ac_tool_prefix$ac_prog" $as_echo "$as_me:${as_lineno-$LINENO}: found $as_dir/$ac_word$ac_exec_ext" >&5 break 2 fi done done IFS=$as_save_IFS fi fi CC=$ac_cv_prog_CC if test -n "$CC"; then { $as_echo "$as_me:${as_lineno-$LINENO}: result: $CC" >&5 $as_echo "$CC" >&6; } else { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5 $as_echo "no" >&6; } fi test -n "$CC" && break done fi if test -z "$CC"; then ac_ct_CC=$CC for ac_prog in cl.exe do # Extract the first word of "$ac_prog", so it can be a program name with args. set dummy $ac_prog; ac_word=$2 { $as_echo "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5 $as_echo_n "checking for $ac_word... " >&6; } if ${ac_cv_prog_ac_ct_CC+:} false; then : $as_echo_n "(cached) " >&6 else if test -n "$ac_ct_CC"; then ac_cv_prog_ac_ct_CC="$ac_ct_CC" # Let the user override the test. else as_save_IFS=$IFS; IFS=$PATH_SEPARATOR for as_dir in $PATH do IFS=$as_save_IFS test -z "$as_dir" && as_dir=. for ac_exec_ext in '' $ac_executable_extensions; do if as_fn_executable_p "$as_dir/$ac_word$ac_exec_ext"; then ac_cv_prog_ac_ct_CC="$ac_prog" $as_echo "$as_me:${as_lineno-$LINENO}: found $as_dir/$ac_word$ac_exec_ext" >&5 break 2 fi done done IFS=$as_save_IFS fi fi ac_ct_CC=$ac_cv_prog_ac_ct_CC if test -n "$ac_ct_CC"; then { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_ct_CC" >&5 $as_echo "$ac_ct_CC" >&6; } else { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5 $as_echo "no" >&6; } fi test -n "$ac_ct_CC" && break done if test "x$ac_ct_CC" = x; then CC="" else case $cross_compiling:$ac_tool_warned in yes:) { $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: using cross tools not prefixed with host triplet" >&5 $as_echo "$as_me: WARNING: using cross tools not prefixed with host triplet" >&2;} ac_tool_warned=yes ;; esac CC=$ac_ct_CC fi fi fi test -z "$CC" && { { $as_echo "$as_me:${as_lineno-$LINENO}: error: in \`$ac_pwd':" >&5 $as_echo "$as_me: error: in \`$ac_pwd':" >&2;} as_fn_error $? "no acceptable C compiler found in \$PATH See \`config.log' for more details" "$LINENO" 5; } # Provide some information about the compiler. $as_echo "$as_me:${as_lineno-$LINENO}: checking for C compiler version" >&5 set X $ac_compile ac_compiler=$2 for ac_option in --version -v -V -qversion; do { { ac_try="$ac_compiler $ac_option >&5" case "(($ac_try" in *\"* | *\`* | *\\*) ac_try_echo=\$ac_try;; *) ac_try_echo=$ac_try;; esac eval ac_try_echo="\"\$as_me:${as_lineno-$LINENO}: $ac_try_echo\"" $as_echo "$ac_try_echo"; } >&5 (eval "$ac_compiler $ac_option >&5") 2>conftest.err ac_status=$? if test -s conftest.err; then sed '10a\ ... rest of stderr output deleted ... 10q' conftest.err >conftest.er1 cat conftest.er1 >&5 fi rm -f conftest.er1 conftest.err $as_echo "$as_me:${as_lineno-$LINENO}: \$? = $ac_status" >&5 test $ac_status = 0; } done { $as_echo "$as_me:${as_lineno-$LINENO}: checking whether we are using the GNU C compiler" >&5 $as_echo_n "checking whether we are using the GNU C compiler... " >&6; } if ${ac_cv_c_compiler_gnu+:} false; then : $as_echo_n "(cached) " >&6 else cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ int main () { #ifndef __GNUC__ choke me #endif ; return 0; } _ACEOF if ac_fn_c_try_compile "$LINENO"; then : ac_compiler_gnu=yes else ac_compiler_gnu=no fi rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext ac_cv_c_compiler_gnu=$ac_compiler_gnu fi { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_c_compiler_gnu" >&5 $as_echo "$ac_cv_c_compiler_gnu" >&6; } if test $ac_compiler_gnu = yes; then GCC=yes else GCC= fi ac_test_CFLAGS=${CFLAGS+set} ac_save_CFLAGS=$CFLAGS { $as_echo "$as_me:${as_lineno-$LINENO}: checking whether $CC accepts -g" >&5 $as_echo_n "checking whether $CC accepts -g... " >&6; } if ${ac_cv_prog_cc_g+:} false; then : $as_echo_n "(cached) " >&6 else ac_save_c_werror_flag=$ac_c_werror_flag ac_c_werror_flag=yes ac_cv_prog_cc_g=no CFLAGS="-g" cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ int main () { ; return 0; } _ACEOF if ac_fn_c_try_compile "$LINENO"; then : ac_cv_prog_cc_g=yes else CFLAGS="" cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ int main () { ; return 0; } _ACEOF if ac_fn_c_try_compile "$LINENO"; then : else ac_c_werror_flag=$ac_save_c_werror_flag CFLAGS="-g" cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ int main () { ; return 0; } _ACEOF if ac_fn_c_try_compile "$LINENO"; then : ac_cv_prog_cc_g=yes fi rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext fi rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext fi rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext ac_c_werror_flag=$ac_save_c_werror_flag fi { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_prog_cc_g" >&5 $as_echo "$ac_cv_prog_cc_g" >&6; } if test "$ac_test_CFLAGS" = set; then CFLAGS=$ac_save_CFLAGS elif test $ac_cv_prog_cc_g = yes; then if test "$GCC" = yes; then CFLAGS="-g -O2" else CFLAGS="-g" fi else if test "$GCC" = yes; then CFLAGS="-O2" else CFLAGS= fi fi { $as_echo "$as_me:${as_lineno-$LINENO}: checking for $CC option to accept ISO C89" >&5 $as_echo_n "checking for $CC option to accept ISO C89... " >&6; } if ${ac_cv_prog_cc_c89+:} false; then : $as_echo_n "(cached) " >&6 else ac_cv_prog_cc_c89=no ac_save_CC=$CC cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ #include #include struct stat; /* Most of the following tests are stolen from RCS 5.7's src/conf.sh. */ struct buf { int x; }; FILE * (*rcsopen) (struct buf *, struct stat *, int); static char *e (p, i) char **p; int i; { return p[i]; } static char *f (char * (*g) (char **, int), char **p, ...) { char *s; va_list v; va_start (v,p); s = g (p, va_arg (v,int)); va_end (v); return s; } /* OSF 4.0 Compaq cc is some sort of almost-ANSI by default. It has function prototypes and stuff, but not '\xHH' hex character constants. These don't provoke an error unfortunately, instead are silently treated as 'x'. The following induces an error, until -std is added to get proper ANSI mode. Curiously '\x00'!='x' always comes out true, for an array size at least. It's necessary to write '\x00'==0 to get something that's true only with -std. */ int osf4_cc_array ['\x00' == 0 ? 1 : -1]; /* IBM C 6 for AIX is almost-ANSI by default, but it replaces macro parameters inside strings and character constants. */ #define FOO(x) 'x' int xlc6_cc_array[FOO(a) == 'x' ? 1 : -1]; int test (int i, double x); struct s1 {int (*f) (int a);}; struct s2 {int (*f) (double a);}; int pairnames (int, char **, FILE *(*)(struct buf *, struct stat *, int), int, int); int argc; char **argv; int main () { return f (e, argv, 0) != argv[0] || f (e, argv, 1) != argv[1]; ; return 0; } _ACEOF for ac_arg in '' -qlanglvl=extc89 -qlanglvl=ansi -std \ -Ae "-Aa -D_HPUX_SOURCE" "-Xc -D__EXTENSIONS__" do CC="$ac_save_CC $ac_arg" if ac_fn_c_try_compile "$LINENO"; then : ac_cv_prog_cc_c89=$ac_arg fi rm -f core conftest.err conftest.$ac_objext test "x$ac_cv_prog_cc_c89" != "xno" && break done rm -f conftest.$ac_ext CC=$ac_save_CC fi # AC_CACHE_VAL case "x$ac_cv_prog_cc_c89" in x) { $as_echo "$as_me:${as_lineno-$LINENO}: result: none needed" >&5 $as_echo "none needed" >&6; } ;; xno) { $as_echo "$as_me:${as_lineno-$LINENO}: result: unsupported" >&5 $as_echo "unsupported" >&6; } ;; *) CC="$CC $ac_cv_prog_cc_c89" { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_prog_cc_c89" >&5 $as_echo "$ac_cv_prog_cc_c89" >&6; } ;; esac if test "x$ac_cv_prog_cc_c89" != xno; then : fi ac_ext=c ac_cpp='$CPP $CPPFLAGS' ac_compile='$CC -c $CFLAGS $CPPFLAGS conftest.$ac_ext >&5' ac_link='$CC -o conftest$ac_exeext $CFLAGS $CPPFLAGS $LDFLAGS conftest.$ac_ext $LIBS >&5' ac_compiler_gnu=$ac_cv_c_compiler_gnu depcc="$CC" am_compiler_list= { $as_echo "$as_me:${as_lineno-$LINENO}: checking dependency style of $depcc" >&5 $as_echo_n "checking dependency style of $depcc... " >&6; } if ${am_cv_CC_dependencies_compiler_type+:} false; then : $as_echo_n "(cached) " >&6 else if test -z "$AMDEP_TRUE" && test -f "$am_depcomp"; then # We make a subdir and do the tests there. Otherwise we can end up # making bogus files that we don't know about and never remove. For # instance it was reported that on HP-UX the gcc test will end up # making a dummy file named `D' -- because `-MD' means `put the output # in D'. rm -rf conftest.dir mkdir conftest.dir # Copy depcomp to subdir because otherwise we won't find it if we're # using a relative directory. cp "$am_depcomp" conftest.dir cd conftest.dir # We will build objects and dependencies in a subdirectory because # it helps to detect inapplicable dependency modes. For instance # both Tru64's cc and ICC support -MD to output dependencies as a # side effect of compilation, but ICC will put the dependencies in # the current directory while Tru64 will put them in the object # directory. mkdir sub am_cv_CC_dependencies_compiler_type=none if test "$am_compiler_list" = ""; then am_compiler_list=`sed -n 's/^#*\([a-zA-Z0-9]*\))$/\1/p' < ./depcomp` fi am__universal=false case " $depcc " in #( *\ -arch\ *\ -arch\ *) am__universal=true ;; esac for depmode in $am_compiler_list; do # Setup a source with many dependencies, because some compilers # like to wrap large dependency lists on column 80 (with \), and # we should not choose a depcomp mode which is confused by this. # # We need to recreate these files for each test, as the compiler may # overwrite some of them when testing with obscure command lines. # This happens at least with the AIX C compiler. : > sub/conftest.c for i in 1 2 3 4 5 6; do echo '#include "conftst'$i'.h"' >> sub/conftest.c # Using `: > sub/conftst$i.h' creates only sub/conftst1.h with # Solaris 8's {/usr,}/bin/sh. touch sub/conftst$i.h done echo "${am__include} ${am__quote}sub/conftest.Po${am__quote}" > confmf # We check with `-c' and `-o' for the sake of the "dashmstdout" # mode. It turns out that the SunPro C++ compiler does not properly # handle `-M -o', and we need to detect this. Also, some Intel # versions had trouble with output in subdirs am__obj=sub/conftest.${OBJEXT-o} am__minus_obj="-o $am__obj" case $depmode in gcc) # This depmode causes a compiler race in universal mode. test "$am__universal" = false || continue ;; nosideeffect) # after this tag, mechanisms are not by side-effect, so they'll # only be used when explicitly requested if test "x$enable_dependency_tracking" = xyes; then continue else break fi ;; msvc7 | msvc7msys | msvisualcpp | msvcmsys) # This compiler won't grok `-c -o', but also, the minuso test has # not run yet. These depmodes are late enough in the game, and # so weak that their functioning should not be impacted. am__obj=conftest.${OBJEXT-o} am__minus_obj= ;; none) break ;; esac if depmode=$depmode \ source=sub/conftest.c object=$am__obj \ depfile=sub/conftest.Po tmpdepfile=sub/conftest.TPo \ $SHELL ./depcomp $depcc -c $am__minus_obj sub/conftest.c \ >/dev/null 2>conftest.err && grep sub/conftst1.h sub/conftest.Po > /dev/null 2>&1 && grep sub/conftst6.h sub/conftest.Po > /dev/null 2>&1 && grep $am__obj sub/conftest.Po > /dev/null 2>&1 && ${MAKE-make} -s -f confmf > /dev/null 2>&1; then # icc doesn't choke on unknown options, it will just issue warnings # or remarks (even with -Werror). So we grep stderr for any message # that says an option was ignored or not supported. # When given -MP, icc 7.0 and 7.1 complain thusly: # icc: Command line warning: ignoring option '-M'; no argument required # The diagnosis changed in icc 8.0: # icc: Command line remark: option '-MP' not supported if (grep 'ignoring option' conftest.err || grep 'not supported' conftest.err) >/dev/null 2>&1; then :; else am_cv_CC_dependencies_compiler_type=$depmode break fi fi done cd .. rm -rf conftest.dir else am_cv_CC_dependencies_compiler_type=none fi fi { $as_echo "$as_me:${as_lineno-$LINENO}: result: $am_cv_CC_dependencies_compiler_type" >&5 $as_echo "$am_cv_CC_dependencies_compiler_type" >&6; } CCDEPMODE=depmode=$am_cv_CC_dependencies_compiler_type if test "x$enable_dependency_tracking" != xno \ && test "$am_cv_CC_dependencies_compiler_type" = gcc3; then am__fastdepCC_TRUE= am__fastdepCC_FALSE='#' else am__fastdepCC_TRUE='#' am__fastdepCC_FALSE= fi ac_ext=c ac_cpp='$CPP $CPPFLAGS' ac_compile='$CC -c $CFLAGS $CPPFLAGS conftest.$ac_ext >&5' ac_link='$CC -o conftest$ac_exeext $CFLAGS $CPPFLAGS $LDFLAGS conftest.$ac_ext $LIBS >&5' ac_compiler_gnu=$ac_cv_c_compiler_gnu { $as_echo "$as_me:${as_lineno-$LINENO}: checking how to run the C preprocessor" >&5 $as_echo_n "checking how to run the C preprocessor... " >&6; } # On Suns, sometimes $CPP names a directory. if test -n "$CPP" && test -d "$CPP"; then CPP= fi if test -z "$CPP"; then if ${ac_cv_prog_CPP+:} false; then : $as_echo_n "(cached) " >&6 else # Double quotes because CPP needs to be expanded for CPP in "$CC -E" "$CC -E -traditional-cpp" "/lib/cpp" do ac_preproc_ok=false for ac_c_preproc_warn_flag in '' yes do # Use a header file that comes with gcc, so configuring glibc # with a fresh cross-compiler works. # Prefer to if __STDC__ is defined, since # exists even on freestanding compilers. # On the NeXT, cc -E runs the code through the compiler's parser, # not just through cpp. "Syntax error" is here to catch this case. cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ #ifdef __STDC__ # include #else # include #endif Syntax error _ACEOF if ac_fn_c_try_cpp "$LINENO"; then : else # Broken: fails on valid input. continue fi rm -f conftest.err conftest.i conftest.$ac_ext # OK, works on sane cases. Now check whether nonexistent headers # can be detected and how. cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ #include _ACEOF if ac_fn_c_try_cpp "$LINENO"; then : # Broken: success on invalid input. continue else # Passes both tests. ac_preproc_ok=: break fi rm -f conftest.err conftest.i conftest.$ac_ext done # Because of `break', _AC_PREPROC_IFELSE's cleaning code was skipped. rm -f conftest.i conftest.err conftest.$ac_ext if $ac_preproc_ok; then : break fi done ac_cv_prog_CPP=$CPP fi CPP=$ac_cv_prog_CPP else ac_cv_prog_CPP=$CPP fi { $as_echo "$as_me:${as_lineno-$LINENO}: result: $CPP" >&5 $as_echo "$CPP" >&6; } ac_preproc_ok=false for ac_c_preproc_warn_flag in '' yes do # Use a header file that comes with gcc, so configuring glibc # with a fresh cross-compiler works. # Prefer to if __STDC__ is defined, since # exists even on freestanding compilers. # On the NeXT, cc -E runs the code through the compiler's parser, # not just through cpp. "Syntax error" is here to catch this case. cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ #ifdef __STDC__ # include #else # include #endif Syntax error _ACEOF if ac_fn_c_try_cpp "$LINENO"; then : else # Broken: fails on valid input. continue fi rm -f conftest.err conftest.i conftest.$ac_ext # OK, works on sane cases. Now check whether nonexistent headers # can be detected and how. cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ #include _ACEOF if ac_fn_c_try_cpp "$LINENO"; then : # Broken: success on invalid input. continue else # Passes both tests. ac_preproc_ok=: break fi rm -f conftest.err conftest.i conftest.$ac_ext done # Because of `break', _AC_PREPROC_IFELSE's cleaning code was skipped. rm -f conftest.i conftest.err conftest.$ac_ext if $ac_preproc_ok; then : else { { $as_echo "$as_me:${as_lineno-$LINENO}: error: in \`$ac_pwd':" >&5 $as_echo "$as_me: error: in \`$ac_pwd':" >&2;} as_fn_error $? "C preprocessor \"$CPP\" fails sanity check See \`config.log' for more details" "$LINENO" 5; } fi ac_ext=c ac_cpp='$CPP $CPPFLAGS' ac_compile='$CC -c $CFLAGS $CPPFLAGS conftest.$ac_ext >&5' ac_link='$CC -o conftest$ac_exeext $CFLAGS $CPPFLAGS $LDFLAGS conftest.$ac_ext $LIBS >&5' ac_compiler_gnu=$ac_cv_c_compiler_gnu { $as_echo "$as_me:${as_lineno-$LINENO}: checking for grep that handles long lines and -e" >&5 $as_echo_n "checking for grep that handles long lines and -e... " >&6; } if ${ac_cv_path_GREP+:} false; then : $as_echo_n "(cached) " >&6 else if test -z "$GREP"; then ac_path_GREP_found=false # Loop through the user's path and test for each of PROGNAME-LIST as_save_IFS=$IFS; IFS=$PATH_SEPARATOR for as_dir in $PATH$PATH_SEPARATOR/usr/xpg4/bin do IFS=$as_save_IFS test -z "$as_dir" && as_dir=. for ac_prog in grep ggrep; do for ac_exec_ext in '' $ac_executable_extensions; do ac_path_GREP="$as_dir/$ac_prog$ac_exec_ext" as_fn_executable_p "$ac_path_GREP" || continue # Check for GNU ac_path_GREP and select it if it is found. # Check for GNU $ac_path_GREP case `"$ac_path_GREP" --version 2>&1` in *GNU*) ac_cv_path_GREP="$ac_path_GREP" ac_path_GREP_found=:;; *) ac_count=0 $as_echo_n 0123456789 >"conftest.in" while : do cat "conftest.in" "conftest.in" >"conftest.tmp" mv "conftest.tmp" "conftest.in" cp "conftest.in" "conftest.nl" $as_echo 'GREP' >> "conftest.nl" "$ac_path_GREP" -e 'GREP$' -e '-(cannot match)-' < "conftest.nl" >"conftest.out" 2>/dev/null || break diff "conftest.out" "conftest.nl" >/dev/null 2>&1 || break as_fn_arith $ac_count + 1 && ac_count=$as_val if test $ac_count -gt ${ac_path_GREP_max-0}; then # Best one so far, save it but keep looking for a better one ac_cv_path_GREP="$ac_path_GREP" ac_path_GREP_max=$ac_count fi # 10*(2^10) chars as input seems more than enough test $ac_count -gt 10 && break done rm -f conftest.in conftest.tmp conftest.nl conftest.out;; esac $ac_path_GREP_found && break 3 done done done IFS=$as_save_IFS if test -z "$ac_cv_path_GREP"; then as_fn_error $? "no acceptable grep could be found in $PATH$PATH_SEPARATOR/usr/xpg4/bin" "$LINENO" 5 fi else ac_cv_path_GREP=$GREP fi fi { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_path_GREP" >&5 $as_echo "$ac_cv_path_GREP" >&6; } GREP="$ac_cv_path_GREP" { $as_echo "$as_me:${as_lineno-$LINENO}: checking for egrep" >&5 $as_echo_n "checking for egrep... " >&6; } if ${ac_cv_path_EGREP+:} false; then : $as_echo_n "(cached) " >&6 else if echo a | $GREP -E '(a|b)' >/dev/null 2>&1 then ac_cv_path_EGREP="$GREP -E" else if test -z "$EGREP"; then ac_path_EGREP_found=false # Loop through the user's path and test for each of PROGNAME-LIST as_save_IFS=$IFS; IFS=$PATH_SEPARATOR for as_dir in $PATH$PATH_SEPARATOR/usr/xpg4/bin do IFS=$as_save_IFS test -z "$as_dir" && as_dir=. for ac_prog in egrep; do for ac_exec_ext in '' $ac_executable_extensions; do ac_path_EGREP="$as_dir/$ac_prog$ac_exec_ext" as_fn_executable_p "$ac_path_EGREP" || continue # Check for GNU ac_path_EGREP and select it if it is found. # Check for GNU $ac_path_EGREP case `"$ac_path_EGREP" --version 2>&1` in *GNU*) ac_cv_path_EGREP="$ac_path_EGREP" ac_path_EGREP_found=:;; *) ac_count=0 $as_echo_n 0123456789 >"conftest.in" while : do cat "conftest.in" "conftest.in" >"conftest.tmp" mv "conftest.tmp" "conftest.in" cp "conftest.in" "conftest.nl" $as_echo 'EGREP' >> "conftest.nl" "$ac_path_EGREP" 'EGREP$' < "conftest.nl" >"conftest.out" 2>/dev/null || break diff "conftest.out" "conftest.nl" >/dev/null 2>&1 || break as_fn_arith $ac_count + 1 && ac_count=$as_val if test $ac_count -gt ${ac_path_EGREP_max-0}; then # Best one so far, save it but keep looking for a better one ac_cv_path_EGREP="$ac_path_EGREP" ac_path_EGREP_max=$ac_count fi # 10*(2^10) chars as input seems more than enough test $ac_count -gt 10 && break done rm -f conftest.in conftest.tmp conftest.nl conftest.out;; esac $ac_path_EGREP_found && break 3 done done done IFS=$as_save_IFS if test -z "$ac_cv_path_EGREP"; then as_fn_error $? "no acceptable egrep could be found in $PATH$PATH_SEPARATOR/usr/xpg4/bin" "$LINENO" 5 fi else ac_cv_path_EGREP=$EGREP fi fi fi { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_path_EGREP" >&5 $as_echo "$ac_cv_path_EGREP" >&6; } EGREP="$ac_cv_path_EGREP" { $as_echo "$as_me:${as_lineno-$LINENO}: checking for ANSI C header files" >&5 $as_echo_n "checking for ANSI C header files... " >&6; } if ${ac_cv_header_stdc+:} false; then : $as_echo_n "(cached) " >&6 else cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ #include #include #include #include int main () { ; return 0; } _ACEOF if ac_fn_c_try_compile "$LINENO"; then : ac_cv_header_stdc=yes else ac_cv_header_stdc=no fi rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext if test $ac_cv_header_stdc = yes; then # SunOS 4.x string.h does not declare mem*, contrary to ANSI. cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ #include _ACEOF if (eval "$ac_cpp conftest.$ac_ext") 2>&5 | $EGREP "memchr" >/dev/null 2>&1; then : else ac_cv_header_stdc=no fi rm -f conftest* fi if test $ac_cv_header_stdc = yes; then # ISC 2.0.2 stdlib.h does not declare free, contrary to ANSI. cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ #include _ACEOF if (eval "$ac_cpp conftest.$ac_ext") 2>&5 | $EGREP "free" >/dev/null 2>&1; then : else ac_cv_header_stdc=no fi rm -f conftest* fi if test $ac_cv_header_stdc = yes; then # /bin/cc in Irix-4.0.5 gets non-ANSI ctype macros unless using -ansi. if test "$cross_compiling" = yes; then : : else cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ #include #include #if ((' ' & 0x0FF) == 0x020) # define ISLOWER(c) ('a' <= (c) && (c) <= 'z') # define TOUPPER(c) (ISLOWER(c) ? 'A' + ((c) - 'a') : (c)) #else # define ISLOWER(c) \ (('a' <= (c) && (c) <= 'i') \ || ('j' <= (c) && (c) <= 'r') \ || ('s' <= (c) && (c) <= 'z')) # define TOUPPER(c) (ISLOWER(c) ? ((c) | 0x40) : (c)) #endif #define XOR(e, f) (((e) && !(f)) || (!(e) && (f))) int main () { int i; for (i = 0; i < 256; i++) if (XOR (islower (i), ISLOWER (i)) || toupper (i) != TOUPPER (i)) return 2; return 0; } _ACEOF if ac_fn_c_try_run "$LINENO"; then : else ac_cv_header_stdc=no fi rm -f core *.core core.conftest.* gmon.out bb.out conftest$ac_exeext \ conftest.$ac_objext conftest.beam conftest.$ac_ext fi fi fi { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_header_stdc" >&5 $as_echo "$ac_cv_header_stdc" >&6; } if test $ac_cv_header_stdc = yes; then $as_echo "#define STDC_HEADERS 1" >>confdefs.h fi case `pwd` in *\ * | *\ *) { $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: Libtool does not cope well with whitespace in \`pwd\`" >&5 $as_echo "$as_me: WARNING: Libtool does not cope well with whitespace in \`pwd\`" >&2;} ;; esac macro_version='2.4.2' macro_revision='1.3337' ltmain="$ac_aux_dir/ltmain.sh" # Make sure we can run config.sub. $SHELL "$ac_aux_dir/config.sub" sun4 >/dev/null 2>&1 || as_fn_error $? "cannot run $SHELL $ac_aux_dir/config.sub" "$LINENO" 5 { $as_echo "$as_me:${as_lineno-$LINENO}: checking build system type" >&5 $as_echo_n "checking build system type... " >&6; } if ${ac_cv_build+:} false; then : $as_echo_n "(cached) " >&6 else ac_build_alias=$build_alias test "x$ac_build_alias" = x && ac_build_alias=`$SHELL "$ac_aux_dir/config.guess"` test "x$ac_build_alias" = x && as_fn_error $? "cannot guess build type; you must specify one" "$LINENO" 5 ac_cv_build=`$SHELL "$ac_aux_dir/config.sub" $ac_build_alias` || as_fn_error $? "$SHELL $ac_aux_dir/config.sub $ac_build_alias failed" "$LINENO" 5 fi { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_build" >&5 $as_echo "$ac_cv_build" >&6; } case $ac_cv_build in *-*-*) ;; *) as_fn_error $? "invalid value of canonical build" "$LINENO" 5;; esac build=$ac_cv_build ac_save_IFS=$IFS; IFS='-' set x $ac_cv_build shift build_cpu=$1 build_vendor=$2 shift; shift # Remember, the first character of IFS is used to create $*, # except with old shells: build_os=$* IFS=$ac_save_IFS case $build_os in *\ *) build_os=`echo "$build_os" | sed 's/ /-/g'`;; esac { $as_echo "$as_me:${as_lineno-$LINENO}: checking host system type" >&5 $as_echo_n "checking host system type... " >&6; } if ${ac_cv_host+:} false; then : $as_echo_n "(cached) " >&6 else if test "x$host_alias" = x; then ac_cv_host=$ac_cv_build else ac_cv_host=`$SHELL "$ac_aux_dir/config.sub" $host_alias` || as_fn_error $? "$SHELL $ac_aux_dir/config.sub $host_alias failed" "$LINENO" 5 fi fi { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_host" >&5 $as_echo "$ac_cv_host" >&6; } case $ac_cv_host in *-*-*) ;; *) as_fn_error $? "invalid value of canonical host" "$LINENO" 5;; esac host=$ac_cv_host ac_save_IFS=$IFS; IFS='-' set x $ac_cv_host shift host_cpu=$1 host_vendor=$2 shift; shift # Remember, the first character of IFS is used to create $*, # except with old shells: host_os=$* IFS=$ac_save_IFS case $host_os in *\ *) host_os=`echo "$host_os" | sed 's/ /-/g'`;; esac # Backslashify metacharacters that are still active within # double-quoted strings. sed_quote_subst='s/\(["`$\\]\)/\\\1/g' # Same as above, but do not quote variable references. double_quote_subst='s/\(["`\\]\)/\\\1/g' # Sed substitution to delay expansion of an escaped shell variable in a # double_quote_subst'ed string. delay_variable_subst='s/\\\\\\\\\\\$/\\\\\\$/g' # Sed substitution to delay expansion of an escaped single quote. delay_single_quote_subst='s/'\''/'\'\\\\\\\'\''/g' # Sed substitution to avoid accidental globbing in evaled expressions no_glob_subst='s/\*/\\\*/g' ECHO='\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\' ECHO=$ECHO$ECHO$ECHO$ECHO$ECHO ECHO=$ECHO$ECHO$ECHO$ECHO$ECHO$ECHO { $as_echo "$as_me:${as_lineno-$LINENO}: checking how to print strings" >&5 $as_echo_n "checking how to print strings... " >&6; } # Test print first, because it will be a builtin if present. if test "X`( print -r -- -n ) 2>/dev/null`" = X-n && \ test "X`print -r -- $ECHO 2>/dev/null`" = "X$ECHO"; then ECHO='print -r --' elif test "X`printf %s $ECHO 2>/dev/null`" = "X$ECHO"; then ECHO='printf %s\n' else # Use this function as a fallback that always works. func_fallback_echo () { eval 'cat <<_LTECHO_EOF $1 _LTECHO_EOF' } ECHO='func_fallback_echo' fi # func_echo_all arg... # Invoke $ECHO with all args, space-separated. func_echo_all () { $ECHO "" } case "$ECHO" in printf*) { $as_echo "$as_me:${as_lineno-$LINENO}: result: printf" >&5 $as_echo "printf" >&6; } ;; print*) { $as_echo "$as_me:${as_lineno-$LINENO}: result: print -r" >&5 $as_echo "print -r" >&6; } ;; *) { $as_echo "$as_me:${as_lineno-$LINENO}: result: cat" >&5 $as_echo "cat" >&6; } ;; esac { $as_echo "$as_me:${as_lineno-$LINENO}: checking for a sed that does not truncate output" >&5 $as_echo_n "checking for a sed that does not truncate output... " >&6; } if ${ac_cv_path_SED+:} false; then : $as_echo_n "(cached) " >&6 else ac_script=s/aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa/bbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbb/ for ac_i in 1 2 3 4 5 6 7; do ac_script="$ac_script$as_nl$ac_script" done echo "$ac_script" 2>/dev/null | sed 99q >conftest.sed { ac_script=; unset ac_script;} if test -z "$SED"; then ac_path_SED_found=false # Loop through the user's path and test for each of PROGNAME-LIST as_save_IFS=$IFS; IFS=$PATH_SEPARATOR for as_dir in $PATH do IFS=$as_save_IFS test -z "$as_dir" && as_dir=. for ac_prog in sed gsed; do for ac_exec_ext in '' $ac_executable_extensions; do ac_path_SED="$as_dir/$ac_prog$ac_exec_ext" as_fn_executable_p "$ac_path_SED" || continue # Check for GNU ac_path_SED and select it if it is found. # Check for GNU $ac_path_SED case `"$ac_path_SED" --version 2>&1` in *GNU*) ac_cv_path_SED="$ac_path_SED" ac_path_SED_found=:;; *) ac_count=0 $as_echo_n 0123456789 >"conftest.in" while : do cat "conftest.in" "conftest.in" >"conftest.tmp" mv "conftest.tmp" "conftest.in" cp "conftest.in" "conftest.nl" $as_echo '' >> "conftest.nl" "$ac_path_SED" -f conftest.sed < "conftest.nl" >"conftest.out" 2>/dev/null || break diff "conftest.out" "conftest.nl" >/dev/null 2>&1 || break as_fn_arith $ac_count + 1 && ac_count=$as_val if test $ac_count -gt ${ac_path_SED_max-0}; then # Best one so far, save it but keep looking for a better one ac_cv_path_SED="$ac_path_SED" ac_path_SED_max=$ac_count fi # 10*(2^10) chars as input seems more than enough test $ac_count -gt 10 && break done rm -f conftest.in conftest.tmp conftest.nl conftest.out;; esac $ac_path_SED_found && break 3 done done done IFS=$as_save_IFS if test -z "$ac_cv_path_SED"; then as_fn_error $? "no acceptable sed could be found in \$PATH" "$LINENO" 5 fi else ac_cv_path_SED=$SED fi fi { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_path_SED" >&5 $as_echo "$ac_cv_path_SED" >&6; } SED="$ac_cv_path_SED" rm -f conftest.sed test -z "$SED" && SED=sed Xsed="$SED -e 1s/^X//" { $as_echo "$as_me:${as_lineno-$LINENO}: checking for fgrep" >&5 $as_echo_n "checking for fgrep... " >&6; } if ${ac_cv_path_FGREP+:} false; then : $as_echo_n "(cached) " >&6 else if echo 'ab*c' | $GREP -F 'ab*c' >/dev/null 2>&1 then ac_cv_path_FGREP="$GREP -F" else if test -z "$FGREP"; then ac_path_FGREP_found=false # Loop through the user's path and test for each of PROGNAME-LIST as_save_IFS=$IFS; IFS=$PATH_SEPARATOR for as_dir in $PATH$PATH_SEPARATOR/usr/xpg4/bin do IFS=$as_save_IFS test -z "$as_dir" && as_dir=. for ac_prog in fgrep; do for ac_exec_ext in '' $ac_executable_extensions; do ac_path_FGREP="$as_dir/$ac_prog$ac_exec_ext" as_fn_executable_p "$ac_path_FGREP" || continue # Check for GNU ac_path_FGREP and select it if it is found. # Check for GNU $ac_path_FGREP case `"$ac_path_FGREP" --version 2>&1` in *GNU*) ac_cv_path_FGREP="$ac_path_FGREP" ac_path_FGREP_found=:;; *) ac_count=0 $as_echo_n 0123456789 >"conftest.in" while : do cat "conftest.in" "conftest.in" >"conftest.tmp" mv "conftest.tmp" "conftest.in" cp "conftest.in" "conftest.nl" $as_echo 'FGREP' >> "conftest.nl" "$ac_path_FGREP" FGREP < "conftest.nl" >"conftest.out" 2>/dev/null || break diff "conftest.out" "conftest.nl" >/dev/null 2>&1 || break as_fn_arith $ac_count + 1 && ac_count=$as_val if test $ac_count -gt ${ac_path_FGREP_max-0}; then # Best one so far, save it but keep looking for a better one ac_cv_path_FGREP="$ac_path_FGREP" ac_path_FGREP_max=$ac_count fi # 10*(2^10) chars as input seems more than enough test $ac_count -gt 10 && break done rm -f conftest.in conftest.tmp conftest.nl conftest.out;; esac $ac_path_FGREP_found && break 3 done done done IFS=$as_save_IFS if test -z "$ac_cv_path_FGREP"; then as_fn_error $? "no acceptable fgrep could be found in $PATH$PATH_SEPARATOR/usr/xpg4/bin" "$LINENO" 5 fi else ac_cv_path_FGREP=$FGREP fi fi fi { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_path_FGREP" >&5 $as_echo "$ac_cv_path_FGREP" >&6; } FGREP="$ac_cv_path_FGREP" test -z "$GREP" && GREP=grep # Check whether --with-gnu-ld was given. if test "${with_gnu_ld+set}" = set; then : withval=$with_gnu_ld; test "$withval" = no || with_gnu_ld=yes else with_gnu_ld=no fi ac_prog=ld if test "$GCC" = yes; then # Check if gcc -print-prog-name=ld gives a path. { $as_echo "$as_me:${as_lineno-$LINENO}: checking for ld used by $CC" >&5 $as_echo_n "checking for ld used by $CC... " >&6; } case $host in *-*-mingw*) # gcc leaves a trailing carriage return which upsets mingw ac_prog=`($CC -print-prog-name=ld) 2>&5 | tr -d '\015'` ;; *) ac_prog=`($CC -print-prog-name=ld) 2>&5` ;; esac case $ac_prog in # Accept absolute paths. [\\/]* | ?:[\\/]*) re_direlt='/[^/][^/]*/\.\./' # Canonicalize the pathname of ld ac_prog=`$ECHO "$ac_prog"| $SED 's%\\\\%/%g'` while $ECHO "$ac_prog" | $GREP "$re_direlt" > /dev/null 2>&1; do ac_prog=`$ECHO $ac_prog| $SED "s%$re_direlt%/%"` done test -z "$LD" && LD="$ac_prog" ;; "") # If it fails, then pretend we aren't using GCC. ac_prog=ld ;; *) # If it is relative, then search for the first ld in PATH. with_gnu_ld=unknown ;; esac elif test "$with_gnu_ld" = yes; then { $as_echo "$as_me:${as_lineno-$LINENO}: checking for GNU ld" >&5 $as_echo_n "checking for GNU ld... " >&6; } else { $as_echo "$as_me:${as_lineno-$LINENO}: checking for non-GNU ld" >&5 $as_echo_n "checking for non-GNU ld... " >&6; } fi if ${lt_cv_path_LD+:} false; then : $as_echo_n "(cached) " >&6 else if test -z "$LD"; then lt_save_ifs="$IFS"; IFS=$PATH_SEPARATOR for ac_dir in $PATH; do IFS="$lt_save_ifs" test -z "$ac_dir" && ac_dir=. if test -f "$ac_dir/$ac_prog" || test -f "$ac_dir/$ac_prog$ac_exeext"; then lt_cv_path_LD="$ac_dir/$ac_prog" # Check to see if the program is GNU ld. I'd rather use --version, # but apparently some variants of GNU ld only accept -v. # Break only if it was the GNU/non-GNU ld that we prefer. case `"$lt_cv_path_LD" -v 2>&1 &5 $as_echo "$LD" >&6; } else { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5 $as_echo "no" >&6; } fi test -z "$LD" && as_fn_error $? "no acceptable ld found in \$PATH" "$LINENO" 5 { $as_echo "$as_me:${as_lineno-$LINENO}: checking if the linker ($LD) is GNU ld" >&5 $as_echo_n "checking if the linker ($LD) is GNU ld... " >&6; } if ${lt_cv_prog_gnu_ld+:} false; then : $as_echo_n "(cached) " >&6 else # I'd rather use --version here, but apparently some GNU lds only accept -v. case `$LD -v 2>&1 &5 $as_echo "$lt_cv_prog_gnu_ld" >&6; } with_gnu_ld=$lt_cv_prog_gnu_ld { $as_echo "$as_me:${as_lineno-$LINENO}: checking for BSD- or MS-compatible name lister (nm)" >&5 $as_echo_n "checking for BSD- or MS-compatible name lister (nm)... " >&6; } if ${lt_cv_path_NM+:} false; then : $as_echo_n "(cached) " >&6 else if test -n "$NM"; then # Let the user override the test. lt_cv_path_NM="$NM" else lt_nm_to_check="${ac_tool_prefix}nm" if test -n "$ac_tool_prefix" && test "$build" = "$host"; then lt_nm_to_check="$lt_nm_to_check nm" fi for lt_tmp_nm in $lt_nm_to_check; do lt_save_ifs="$IFS"; IFS=$PATH_SEPARATOR for ac_dir in $PATH /usr/ccs/bin/elf /usr/ccs/bin /usr/ucb /bin; do IFS="$lt_save_ifs" test -z "$ac_dir" && ac_dir=. tmp_nm="$ac_dir/$lt_tmp_nm" if test -f "$tmp_nm" || test -f "$tmp_nm$ac_exeext" ; then # Check to see if the nm accepts a BSD-compat flag. # Adding the `sed 1q' prevents false positives on HP-UX, which says: # nm: unknown option "B" ignored # Tru64's nm complains that /dev/null is an invalid object file case `"$tmp_nm" -B /dev/null 2>&1 | sed '1q'` in */dev/null* | *'Invalid file or object type'*) lt_cv_path_NM="$tmp_nm -B" break ;; *) case `"$tmp_nm" -p /dev/null 2>&1 | sed '1q'` in */dev/null*) lt_cv_path_NM="$tmp_nm -p" break ;; *) lt_cv_path_NM=${lt_cv_path_NM="$tmp_nm"} # keep the first match, but continue # so that we can try to find one that supports BSD flags ;; esac ;; esac fi done IFS="$lt_save_ifs" done : ${lt_cv_path_NM=no} fi fi { $as_echo "$as_me:${as_lineno-$LINENO}: result: $lt_cv_path_NM" >&5 $as_echo "$lt_cv_path_NM" >&6; } if test "$lt_cv_path_NM" != "no"; then NM="$lt_cv_path_NM" else # Didn't find any BSD compatible name lister, look for dumpbin. if test -n "$DUMPBIN"; then : # Let the user override the test. else if test -n "$ac_tool_prefix"; then for ac_prog in dumpbin "link -dump" do # Extract the first word of "$ac_tool_prefix$ac_prog", so it can be a program name with args. set dummy $ac_tool_prefix$ac_prog; ac_word=$2 { $as_echo "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5 $as_echo_n "checking for $ac_word... " >&6; } if ${ac_cv_prog_DUMPBIN+:} false; then : $as_echo_n "(cached) " >&6 else if test -n "$DUMPBIN"; then ac_cv_prog_DUMPBIN="$DUMPBIN" # Let the user override the test. else as_save_IFS=$IFS; IFS=$PATH_SEPARATOR for as_dir in $PATH do IFS=$as_save_IFS test -z "$as_dir" && as_dir=. for ac_exec_ext in '' $ac_executable_extensions; do if as_fn_executable_p "$as_dir/$ac_word$ac_exec_ext"; then ac_cv_prog_DUMPBIN="$ac_tool_prefix$ac_prog" $as_echo "$as_me:${as_lineno-$LINENO}: found $as_dir/$ac_word$ac_exec_ext" >&5 break 2 fi done done IFS=$as_save_IFS fi fi DUMPBIN=$ac_cv_prog_DUMPBIN if test -n "$DUMPBIN"; then { $as_echo "$as_me:${as_lineno-$LINENO}: result: $DUMPBIN" >&5 $as_echo "$DUMPBIN" >&6; } else { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5 $as_echo "no" >&6; } fi test -n "$DUMPBIN" && break done fi if test -z "$DUMPBIN"; then ac_ct_DUMPBIN=$DUMPBIN for ac_prog in dumpbin "link -dump" do # Extract the first word of "$ac_prog", so it can be a program name with args. set dummy $ac_prog; ac_word=$2 { $as_echo "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5 $as_echo_n "checking for $ac_word... " >&6; } if ${ac_cv_prog_ac_ct_DUMPBIN+:} false; then : $as_echo_n "(cached) " >&6 else if test -n "$ac_ct_DUMPBIN"; then ac_cv_prog_ac_ct_DUMPBIN="$ac_ct_DUMPBIN" # Let the user override the test. else as_save_IFS=$IFS; IFS=$PATH_SEPARATOR for as_dir in $PATH do IFS=$as_save_IFS test -z "$as_dir" && as_dir=. for ac_exec_ext in '' $ac_executable_extensions; do if as_fn_executable_p "$as_dir/$ac_word$ac_exec_ext"; then ac_cv_prog_ac_ct_DUMPBIN="$ac_prog" $as_echo "$as_me:${as_lineno-$LINENO}: found $as_dir/$ac_word$ac_exec_ext" >&5 break 2 fi done done IFS=$as_save_IFS fi fi ac_ct_DUMPBIN=$ac_cv_prog_ac_ct_DUMPBIN if test -n "$ac_ct_DUMPBIN"; then { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_ct_DUMPBIN" >&5 $as_echo "$ac_ct_DUMPBIN" >&6; } else { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5 $as_echo "no" >&6; } fi test -n "$ac_ct_DUMPBIN" && break done if test "x$ac_ct_DUMPBIN" = x; then DUMPBIN=":" else case $cross_compiling:$ac_tool_warned in yes:) { $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: using cross tools not prefixed with host triplet" >&5 $as_echo "$as_me: WARNING: using cross tools not prefixed with host triplet" >&2;} ac_tool_warned=yes ;; esac DUMPBIN=$ac_ct_DUMPBIN fi fi case `$DUMPBIN -symbols /dev/null 2>&1 | sed '1q'` in *COFF*) DUMPBIN="$DUMPBIN -symbols" ;; *) DUMPBIN=: ;; esac fi if test "$DUMPBIN" != ":"; then NM="$DUMPBIN" fi fi test -z "$NM" && NM=nm { $as_echo "$as_me:${as_lineno-$LINENO}: checking the name lister ($NM) interface" >&5 $as_echo_n "checking the name lister ($NM) interface... " >&6; } if ${lt_cv_nm_interface+:} false; then : $as_echo_n "(cached) " >&6 else lt_cv_nm_interface="BSD nm" echo "int some_variable = 0;" > conftest.$ac_ext (eval echo "\"\$as_me:$LINENO: $ac_compile\"" >&5) (eval "$ac_compile" 2>conftest.err) cat conftest.err >&5 (eval echo "\"\$as_me:$LINENO: $NM \\\"conftest.$ac_objext\\\"\"" >&5) (eval "$NM \"conftest.$ac_objext\"" 2>conftest.err > conftest.out) cat conftest.err >&5 (eval echo "\"\$as_me:$LINENO: output\"" >&5) cat conftest.out >&5 if $GREP 'External.*some_variable' conftest.out > /dev/null; then lt_cv_nm_interface="MS dumpbin" fi rm -f conftest* fi { $as_echo "$as_me:${as_lineno-$LINENO}: result: $lt_cv_nm_interface" >&5 $as_echo "$lt_cv_nm_interface" >&6; } { $as_echo "$as_me:${as_lineno-$LINENO}: checking whether ln -s works" >&5 $as_echo_n "checking whether ln -s works... " >&6; } LN_S=$as_ln_s if test "$LN_S" = "ln -s"; then { $as_echo "$as_me:${as_lineno-$LINENO}: result: yes" >&5 $as_echo "yes" >&6; } else { $as_echo "$as_me:${as_lineno-$LINENO}: result: no, using $LN_S" >&5 $as_echo "no, using $LN_S" >&6; } fi # find the maximum length of command line arguments { $as_echo "$as_me:${as_lineno-$LINENO}: checking the maximum length of command line arguments" >&5 $as_echo_n "checking the maximum length of command line arguments... " >&6; } if ${lt_cv_sys_max_cmd_len+:} false; then : $as_echo_n "(cached) " >&6 else i=0 teststring="ABCD" case $build_os in msdosdjgpp*) # On DJGPP, this test can blow up pretty badly due to problems in libc # (any single argument exceeding 2000 bytes causes a buffer overrun # during glob expansion). Even if it were fixed, the result of this # check would be larger than it should be. lt_cv_sys_max_cmd_len=12288; # 12K is about right ;; gnu*) # Under GNU Hurd, this test is not required because there is # no limit to the length of command line arguments. # Libtool will interpret -1 as no limit whatsoever lt_cv_sys_max_cmd_len=-1; ;; cygwin* | mingw* | cegcc*) # On Win9x/ME, this test blows up -- it succeeds, but takes # about 5 minutes as the teststring grows exponentially. # Worse, since 9x/ME are not pre-emptively multitasking, # you end up with a "frozen" computer, even though with patience # the test eventually succeeds (with a max line length of 256k). # Instead, let's just punt: use the minimum linelength reported by # all of the supported platforms: 8192 (on NT/2K/XP). lt_cv_sys_max_cmd_len=8192; ;; mint*) # On MiNT this can take a long time and run out of memory. lt_cv_sys_max_cmd_len=8192; ;; amigaos*) # On AmigaOS with pdksh, this test takes hours, literally. # So we just punt and use a minimum line length of 8192. lt_cv_sys_max_cmd_len=8192; ;; netbsd* | freebsd* | openbsd* | darwin* | dragonfly*) # This has been around since 386BSD, at least. Likely further. if test -x /sbin/sysctl; then lt_cv_sys_max_cmd_len=`/sbin/sysctl -n kern.argmax` elif test -x /usr/sbin/sysctl; then lt_cv_sys_max_cmd_len=`/usr/sbin/sysctl -n kern.argmax` else lt_cv_sys_max_cmd_len=65536 # usable default for all BSDs fi # And add a safety zone lt_cv_sys_max_cmd_len=`expr $lt_cv_sys_max_cmd_len \/ 4` lt_cv_sys_max_cmd_len=`expr $lt_cv_sys_max_cmd_len \* 3` ;; interix*) # We know the value 262144 and hardcode it with a safety zone (like BSD) lt_cv_sys_max_cmd_len=196608 ;; os2*) # The test takes a long time on OS/2. lt_cv_sys_max_cmd_len=8192 ;; osf*) # Dr. Hans Ekkehard Plesser reports seeing a kernel panic running configure # due to this test when exec_disable_arg_limit is 1 on Tru64. It is not # nice to cause kernel panics so lets avoid the loop below. # First set a reasonable default. lt_cv_sys_max_cmd_len=16384 # if test -x /sbin/sysconfig; then case `/sbin/sysconfig -q proc exec_disable_arg_limit` in *1*) lt_cv_sys_max_cmd_len=-1 ;; esac fi ;; sco3.2v5*) lt_cv_sys_max_cmd_len=102400 ;; sysv5* | sco5v6* | sysv4.2uw2*) kargmax=`grep ARG_MAX /etc/conf/cf.d/stune 2>/dev/null` if test -n "$kargmax"; then lt_cv_sys_max_cmd_len=`echo $kargmax | sed 's/.*[ ]//'` else lt_cv_sys_max_cmd_len=32768 fi ;; *) lt_cv_sys_max_cmd_len=`(getconf ARG_MAX) 2> /dev/null` if test -n "$lt_cv_sys_max_cmd_len"; then lt_cv_sys_max_cmd_len=`expr $lt_cv_sys_max_cmd_len \/ 4` lt_cv_sys_max_cmd_len=`expr $lt_cv_sys_max_cmd_len \* 3` else # Make teststring a little bigger before we do anything with it. # a 1K string should be a reasonable start. for i in 1 2 3 4 5 6 7 8 ; do teststring=$teststring$teststring done SHELL=${SHELL-${CONFIG_SHELL-/bin/sh}} # If test is not a shell built-in, we'll probably end up computing a # maximum length that is only half of the actual maximum length, but # we can't tell. while { test "X"`env echo "$teststring$teststring" 2>/dev/null` \ = "X$teststring$teststring"; } >/dev/null 2>&1 && test $i != 17 # 1/2 MB should be enough do i=`expr $i + 1` teststring=$teststring$teststring done # Only check the string length outside the loop. lt_cv_sys_max_cmd_len=`expr "X$teststring" : ".*" 2>&1` teststring= # Add a significant safety factor because C++ compilers can tack on # massive amounts of additional arguments before passing them to the # linker. It appears as though 1/2 is a usable value. lt_cv_sys_max_cmd_len=`expr $lt_cv_sys_max_cmd_len \/ 2` fi ;; esac fi if test -n $lt_cv_sys_max_cmd_len ; then { $as_echo "$as_me:${as_lineno-$LINENO}: result: $lt_cv_sys_max_cmd_len" >&5 $as_echo "$lt_cv_sys_max_cmd_len" >&6; } else { $as_echo "$as_me:${as_lineno-$LINENO}: result: none" >&5 $as_echo "none" >&6; } fi max_cmd_len=$lt_cv_sys_max_cmd_len : ${CP="cp -f"} : ${MV="mv -f"} : ${RM="rm -f"} { $as_echo "$as_me:${as_lineno-$LINENO}: checking whether the shell understands some XSI constructs" >&5 $as_echo_n "checking whether the shell understands some XSI constructs... " >&6; } # Try some XSI features xsi_shell=no ( _lt_dummy="a/b/c" test "${_lt_dummy##*/},${_lt_dummy%/*},${_lt_dummy#??}"${_lt_dummy%"$_lt_dummy"}, \ = c,a/b,b/c, \ && eval 'test $(( 1 + 1 )) -eq 2 \ && test "${#_lt_dummy}" -eq 5' ) >/dev/null 2>&1 \ && xsi_shell=yes { $as_echo "$as_me:${as_lineno-$LINENO}: result: $xsi_shell" >&5 $as_echo "$xsi_shell" >&6; } { $as_echo "$as_me:${as_lineno-$LINENO}: checking whether the shell understands \"+=\"" >&5 $as_echo_n "checking whether the shell understands \"+=\"... " >&6; } lt_shell_append=no ( foo=bar; set foo baz; eval "$1+=\$2" && test "$foo" = barbaz ) \ >/dev/null 2>&1 \ && lt_shell_append=yes { $as_echo "$as_me:${as_lineno-$LINENO}: result: $lt_shell_append" >&5 $as_echo "$lt_shell_append" >&6; } if ( (MAIL=60; unset MAIL) || exit) >/dev/null 2>&1; then lt_unset=unset else lt_unset=false fi # test EBCDIC or ASCII case `echo X|tr X '\101'` in A) # ASCII based system # \n is not interpreted correctly by Solaris 8 /usr/ucb/tr lt_SP2NL='tr \040 \012' lt_NL2SP='tr \015\012 \040\040' ;; *) # EBCDIC based system lt_SP2NL='tr \100 \n' lt_NL2SP='tr \r\n \100\100' ;; esac { $as_echo "$as_me:${as_lineno-$LINENO}: checking how to convert $build file names to $host format" >&5 $as_echo_n "checking how to convert $build file names to $host format... " >&6; } if ${lt_cv_to_host_file_cmd+:} false; then : $as_echo_n "(cached) " >&6 else case $host in *-*-mingw* ) case $build in *-*-mingw* ) # actually msys lt_cv_to_host_file_cmd=func_convert_file_msys_to_w32 ;; *-*-cygwin* ) lt_cv_to_host_file_cmd=func_convert_file_cygwin_to_w32 ;; * ) # otherwise, assume *nix lt_cv_to_host_file_cmd=func_convert_file_nix_to_w32 ;; esac ;; *-*-cygwin* ) case $build in *-*-mingw* ) # actually msys lt_cv_to_host_file_cmd=func_convert_file_msys_to_cygwin ;; *-*-cygwin* ) lt_cv_to_host_file_cmd=func_convert_file_noop ;; * ) # otherwise, assume *nix lt_cv_to_host_file_cmd=func_convert_file_nix_to_cygwin ;; esac ;; * ) # unhandled hosts (and "normal" native builds) lt_cv_to_host_file_cmd=func_convert_file_noop ;; esac fi to_host_file_cmd=$lt_cv_to_host_file_cmd { $as_echo "$as_me:${as_lineno-$LINENO}: result: $lt_cv_to_host_file_cmd" >&5 $as_echo "$lt_cv_to_host_file_cmd" >&6; } { $as_echo "$as_me:${as_lineno-$LINENO}: checking how to convert $build file names to toolchain format" >&5 $as_echo_n "checking how to convert $build file names to toolchain format... " >&6; } if ${lt_cv_to_tool_file_cmd+:} false; then : $as_echo_n "(cached) " >&6 else #assume ordinary cross tools, or native build. lt_cv_to_tool_file_cmd=func_convert_file_noop case $host in *-*-mingw* ) case $build in *-*-mingw* ) # actually msys lt_cv_to_tool_file_cmd=func_convert_file_msys_to_w32 ;; esac ;; esac fi to_tool_file_cmd=$lt_cv_to_tool_file_cmd { $as_echo "$as_me:${as_lineno-$LINENO}: result: $lt_cv_to_tool_file_cmd" >&5 $as_echo "$lt_cv_to_tool_file_cmd" >&6; } { $as_echo "$as_me:${as_lineno-$LINENO}: checking for $LD option to reload object files" >&5 $as_echo_n "checking for $LD option to reload object files... " >&6; } if ${lt_cv_ld_reload_flag+:} false; then : $as_echo_n "(cached) " >&6 else lt_cv_ld_reload_flag='-r' fi { $as_echo "$as_me:${as_lineno-$LINENO}: result: $lt_cv_ld_reload_flag" >&5 $as_echo "$lt_cv_ld_reload_flag" >&6; } reload_flag=$lt_cv_ld_reload_flag case $reload_flag in "" | " "*) ;; *) reload_flag=" $reload_flag" ;; esac reload_cmds='$LD$reload_flag -o $output$reload_objs' case $host_os in cygwin* | mingw* | pw32* | cegcc*) if test "$GCC" != yes; then reload_cmds=false fi ;; darwin*) if test "$GCC" = yes; then reload_cmds='$LTCC $LTCFLAGS -nostdlib ${wl}-r -o $output$reload_objs' else reload_cmds='$LD$reload_flag -o $output$reload_objs' fi ;; esac if test -n "$ac_tool_prefix"; then # Extract the first word of "${ac_tool_prefix}objdump", so it can be a program name with args. set dummy ${ac_tool_prefix}objdump; ac_word=$2 { $as_echo "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5 $as_echo_n "checking for $ac_word... " >&6; } if ${ac_cv_prog_OBJDUMP+:} false; then : $as_echo_n "(cached) " >&6 else if test -n "$OBJDUMP"; then ac_cv_prog_OBJDUMP="$OBJDUMP" # Let the user override the test. else as_save_IFS=$IFS; IFS=$PATH_SEPARATOR for as_dir in $PATH do IFS=$as_save_IFS test -z "$as_dir" && as_dir=. for ac_exec_ext in '' $ac_executable_extensions; do if as_fn_executable_p "$as_dir/$ac_word$ac_exec_ext"; then ac_cv_prog_OBJDUMP="${ac_tool_prefix}objdump" $as_echo "$as_me:${as_lineno-$LINENO}: found $as_dir/$ac_word$ac_exec_ext" >&5 break 2 fi done done IFS=$as_save_IFS fi fi OBJDUMP=$ac_cv_prog_OBJDUMP if test -n "$OBJDUMP"; then { $as_echo "$as_me:${as_lineno-$LINENO}: result: $OBJDUMP" >&5 $as_echo "$OBJDUMP" >&6; } else { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5 $as_echo "no" >&6; } fi fi if test -z "$ac_cv_prog_OBJDUMP"; then ac_ct_OBJDUMP=$OBJDUMP # Extract the first word of "objdump", so it can be a program name with args. set dummy objdump; ac_word=$2 { $as_echo "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5 $as_echo_n "checking for $ac_word... " >&6; } if ${ac_cv_prog_ac_ct_OBJDUMP+:} false; then : $as_echo_n "(cached) " >&6 else if test -n "$ac_ct_OBJDUMP"; then ac_cv_prog_ac_ct_OBJDUMP="$ac_ct_OBJDUMP" # Let the user override the test. else as_save_IFS=$IFS; IFS=$PATH_SEPARATOR for as_dir in $PATH do IFS=$as_save_IFS test -z "$as_dir" && as_dir=. for ac_exec_ext in '' $ac_executable_extensions; do if as_fn_executable_p "$as_dir/$ac_word$ac_exec_ext"; then ac_cv_prog_ac_ct_OBJDUMP="objdump" $as_echo "$as_me:${as_lineno-$LINENO}: found $as_dir/$ac_word$ac_exec_ext" >&5 break 2 fi done done IFS=$as_save_IFS fi fi ac_ct_OBJDUMP=$ac_cv_prog_ac_ct_OBJDUMP if test -n "$ac_ct_OBJDUMP"; then { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_ct_OBJDUMP" >&5 $as_echo "$ac_ct_OBJDUMP" >&6; } else { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5 $as_echo "no" >&6; } fi if test "x$ac_ct_OBJDUMP" = x; then OBJDUMP="false" else case $cross_compiling:$ac_tool_warned in yes:) { $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: using cross tools not prefixed with host triplet" >&5 $as_echo "$as_me: WARNING: using cross tools not prefixed with host triplet" >&2;} ac_tool_warned=yes ;; esac OBJDUMP=$ac_ct_OBJDUMP fi else OBJDUMP="$ac_cv_prog_OBJDUMP" fi test -z "$OBJDUMP" && OBJDUMP=objdump { $as_echo "$as_me:${as_lineno-$LINENO}: checking how to recognize dependent libraries" >&5 $as_echo_n "checking how to recognize dependent libraries... " >&6; } if ${lt_cv_deplibs_check_method+:} false; then : $as_echo_n "(cached) " >&6 else lt_cv_file_magic_cmd='$MAGIC_CMD' lt_cv_file_magic_test_file= lt_cv_deplibs_check_method='unknown' # Need to set the preceding variable on all platforms that support # interlibrary dependencies. # 'none' -- dependencies not supported. # `unknown' -- same as none, but documents that we really don't know. # 'pass_all' -- all dependencies passed with no checks. # 'test_compile' -- check by making test program. # 'file_magic [[regex]]' -- check by looking for files in library path # which responds to the $file_magic_cmd with a given extended regex. # If you have `file' or equivalent on your system and you're not sure # whether `pass_all' will *always* work, you probably want this one. case $host_os in aix[4-9]*) lt_cv_deplibs_check_method=pass_all ;; beos*) lt_cv_deplibs_check_method=pass_all ;; bsdi[45]*) lt_cv_deplibs_check_method='file_magic ELF [0-9][0-9]*-bit [ML]SB (shared object|dynamic lib)' lt_cv_file_magic_cmd='/usr/bin/file -L' lt_cv_file_magic_test_file=/shlib/libc.so ;; cygwin*) # func_win32_libid is a shell function defined in ltmain.sh lt_cv_deplibs_check_method='file_magic ^x86 archive import|^x86 DLL' lt_cv_file_magic_cmd='func_win32_libid' ;; mingw* | pw32*) # Base MSYS/MinGW do not provide the 'file' command needed by # func_win32_libid shell function, so use a weaker test based on 'objdump', # unless we find 'file', for example because we are cross-compiling. # func_win32_libid assumes BSD nm, so disallow it if using MS dumpbin. if ( test "$lt_cv_nm_interface" = "BSD nm" && file / ) >/dev/null 2>&1; then lt_cv_deplibs_check_method='file_magic ^x86 archive import|^x86 DLL' lt_cv_file_magic_cmd='func_win32_libid' else # Keep this pattern in sync with the one in func_win32_libid. lt_cv_deplibs_check_method='file_magic file format (pei*-i386(.*architecture: i386)?|pe-arm-wince|pe-x86-64)' lt_cv_file_magic_cmd='$OBJDUMP -f' fi ;; cegcc*) # use the weaker test based on 'objdump'. See mingw*. lt_cv_deplibs_check_method='file_magic file format pe-arm-.*little(.*architecture: arm)?' lt_cv_file_magic_cmd='$OBJDUMP -f' ;; darwin* | rhapsody*) lt_cv_deplibs_check_method=pass_all ;; freebsd* | dragonfly*) if echo __ELF__ | $CC -E - | $GREP __ELF__ > /dev/null; then case $host_cpu in i*86 ) # Not sure whether the presence of OpenBSD here was a mistake. # Let's accept both of them until this is cleared up. lt_cv_deplibs_check_method='file_magic (FreeBSD|OpenBSD|DragonFly)/i[3-9]86 (compact )?demand paged shared library' lt_cv_file_magic_cmd=/usr/bin/file lt_cv_file_magic_test_file=`echo /usr/lib/libc.so.*` ;; esac else lt_cv_deplibs_check_method=pass_all fi ;; gnu*) lt_cv_deplibs_check_method=pass_all ;; haiku*) lt_cv_deplibs_check_method=pass_all ;; hpux10.20* | hpux11*) lt_cv_file_magic_cmd=/usr/bin/file case $host_cpu in ia64*) lt_cv_deplibs_check_method='file_magic (s[0-9][0-9][0-9]|ELF-[0-9][0-9]) shared object file - IA64' lt_cv_file_magic_test_file=/usr/lib/hpux32/libc.so ;; hppa*64*) lt_cv_deplibs_check_method='file_magic (s[0-9][0-9][0-9]|ELF[ -][0-9][0-9])(-bit)?( [LM]SB)? shared object( file)?[, -]* PA-RISC [0-9]\.[0-9]' lt_cv_file_magic_test_file=/usr/lib/pa20_64/libc.sl ;; *) lt_cv_deplibs_check_method='file_magic (s[0-9][0-9][0-9]|PA-RISC[0-9]\.[0-9]) shared library' lt_cv_file_magic_test_file=/usr/lib/libc.sl ;; esac ;; interix[3-9]*) # PIC code is broken on Interix 3.x, that's why |\.a not |_pic\.a here lt_cv_deplibs_check_method='match_pattern /lib[^/]+(\.so|\.a)$' ;; irix5* | irix6* | nonstopux*) case $LD in *-32|*"-32 ") libmagic=32-bit;; *-n32|*"-n32 ") libmagic=N32;; *-64|*"-64 ") libmagic=64-bit;; *) libmagic=never-match;; esac lt_cv_deplibs_check_method=pass_all ;; # This must be glibc/ELF. linux* | k*bsd*-gnu | kopensolaris*-gnu) lt_cv_deplibs_check_method=pass_all ;; netbsd* | netbsdelf*-gnu) if echo __ELF__ | $CC -E - | $GREP __ELF__ > /dev/null; then lt_cv_deplibs_check_method='match_pattern /lib[^/]+(\.so\.[0-9]+\.[0-9]+|_pic\.a)$' else lt_cv_deplibs_check_method='match_pattern /lib[^/]+(\.so|_pic\.a)$' fi ;; newos6*) lt_cv_deplibs_check_method='file_magic ELF [0-9][0-9]*-bit [ML]SB (executable|dynamic lib)' lt_cv_file_magic_cmd=/usr/bin/file lt_cv_file_magic_test_file=/usr/lib/libnls.so ;; *nto* | *qnx*) lt_cv_deplibs_check_method=pass_all ;; openbsd*) if test -z "`echo __ELF__ | $CC -E - | $GREP __ELF__`" || test "$host_os-$host_cpu" = "openbsd2.8-powerpc"; then lt_cv_deplibs_check_method='match_pattern /lib[^/]+(\.so\.[0-9]+\.[0-9]+|\.so|_pic\.a)$' else lt_cv_deplibs_check_method='match_pattern /lib[^/]+(\.so\.[0-9]+\.[0-9]+|_pic\.a)$' fi ;; osf3* | osf4* | osf5*) lt_cv_deplibs_check_method=pass_all ;; rdos*) lt_cv_deplibs_check_method=pass_all ;; solaris*) lt_cv_deplibs_check_method=pass_all ;; sysv5* | sco3.2v5* | sco5v6* | unixware* | OpenUNIX* | sysv4*uw2*) lt_cv_deplibs_check_method=pass_all ;; sysv4 | sysv4.3*) case $host_vendor in motorola) lt_cv_deplibs_check_method='file_magic ELF [0-9][0-9]*-bit [ML]SB (shared object|dynamic lib) M[0-9][0-9]* Version [0-9]' lt_cv_file_magic_test_file=`echo /usr/lib/libc.so*` ;; ncr) lt_cv_deplibs_check_method=pass_all ;; sequent) lt_cv_file_magic_cmd='/bin/file' lt_cv_deplibs_check_method='file_magic ELF [0-9][0-9]*-bit [LM]SB (shared object|dynamic lib )' ;; sni) lt_cv_file_magic_cmd='/bin/file' lt_cv_deplibs_check_method="file_magic ELF [0-9][0-9]*-bit [LM]SB dynamic lib" lt_cv_file_magic_test_file=/lib/libc.so ;; siemens) lt_cv_deplibs_check_method=pass_all ;; pc) lt_cv_deplibs_check_method=pass_all ;; esac ;; tpf*) lt_cv_deplibs_check_method=pass_all ;; esac fi { $as_echo "$as_me:${as_lineno-$LINENO}: result: $lt_cv_deplibs_check_method" >&5 $as_echo "$lt_cv_deplibs_check_method" >&6; } file_magic_glob= want_nocaseglob=no if test "$build" = "$host"; then case $host_os in mingw* | pw32*) if ( shopt | grep nocaseglob ) >/dev/null 2>&1; then want_nocaseglob=yes else file_magic_glob=`echo aAbBcCdDeEfFgGhHiIjJkKlLmMnNoOpPqQrRsStTuUvVwWxXyYzZ | $SED -e "s/\(..\)/s\/[\1]\/[\1]\/g;/g"` fi ;; esac fi file_magic_cmd=$lt_cv_file_magic_cmd deplibs_check_method=$lt_cv_deplibs_check_method test -z "$deplibs_check_method" && deplibs_check_method=unknown if test -n "$ac_tool_prefix"; then # Extract the first word of "${ac_tool_prefix}dlltool", so it can be a program name with args. set dummy ${ac_tool_prefix}dlltool; ac_word=$2 { $as_echo "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5 $as_echo_n "checking for $ac_word... " >&6; } if ${ac_cv_prog_DLLTOOL+:} false; then : $as_echo_n "(cached) " >&6 else if test -n "$DLLTOOL"; then ac_cv_prog_DLLTOOL="$DLLTOOL" # Let the user override the test. else as_save_IFS=$IFS; IFS=$PATH_SEPARATOR for as_dir in $PATH do IFS=$as_save_IFS test -z "$as_dir" && as_dir=. for ac_exec_ext in '' $ac_executable_extensions; do if as_fn_executable_p "$as_dir/$ac_word$ac_exec_ext"; then ac_cv_prog_DLLTOOL="${ac_tool_prefix}dlltool" $as_echo "$as_me:${as_lineno-$LINENO}: found $as_dir/$ac_word$ac_exec_ext" >&5 break 2 fi done done IFS=$as_save_IFS fi fi DLLTOOL=$ac_cv_prog_DLLTOOL if test -n "$DLLTOOL"; then { $as_echo "$as_me:${as_lineno-$LINENO}: result: $DLLTOOL" >&5 $as_echo "$DLLTOOL" >&6; } else { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5 $as_echo "no" >&6; } fi fi if test -z "$ac_cv_prog_DLLTOOL"; then ac_ct_DLLTOOL=$DLLTOOL # Extract the first word of "dlltool", so it can be a program name with args. set dummy dlltool; ac_word=$2 { $as_echo "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5 $as_echo_n "checking for $ac_word... " >&6; } if ${ac_cv_prog_ac_ct_DLLTOOL+:} false; then : $as_echo_n "(cached) " >&6 else if test -n "$ac_ct_DLLTOOL"; then ac_cv_prog_ac_ct_DLLTOOL="$ac_ct_DLLTOOL" # Let the user override the test. else as_save_IFS=$IFS; IFS=$PATH_SEPARATOR for as_dir in $PATH do IFS=$as_save_IFS test -z "$as_dir" && as_dir=. for ac_exec_ext in '' $ac_executable_extensions; do if as_fn_executable_p "$as_dir/$ac_word$ac_exec_ext"; then ac_cv_prog_ac_ct_DLLTOOL="dlltool" $as_echo "$as_me:${as_lineno-$LINENO}: found $as_dir/$ac_word$ac_exec_ext" >&5 break 2 fi done done IFS=$as_save_IFS fi fi ac_ct_DLLTOOL=$ac_cv_prog_ac_ct_DLLTOOL if test -n "$ac_ct_DLLTOOL"; then { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_ct_DLLTOOL" >&5 $as_echo "$ac_ct_DLLTOOL" >&6; } else { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5 $as_echo "no" >&6; } fi if test "x$ac_ct_DLLTOOL" = x; then DLLTOOL="false" else case $cross_compiling:$ac_tool_warned in yes:) { $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: using cross tools not prefixed with host triplet" >&5 $as_echo "$as_me: WARNING: using cross tools not prefixed with host triplet" >&2;} ac_tool_warned=yes ;; esac DLLTOOL=$ac_ct_DLLTOOL fi else DLLTOOL="$ac_cv_prog_DLLTOOL" fi test -z "$DLLTOOL" && DLLTOOL=dlltool { $as_echo "$as_me:${as_lineno-$LINENO}: checking how to associate runtime and link libraries" >&5 $as_echo_n "checking how to associate runtime and link libraries... " >&6; } if ${lt_cv_sharedlib_from_linklib_cmd+:} false; then : $as_echo_n "(cached) " >&6 else lt_cv_sharedlib_from_linklib_cmd='unknown' case $host_os in cygwin* | mingw* | pw32* | cegcc*) # two different shell functions defined in ltmain.sh # decide which to use based on capabilities of $DLLTOOL case `$DLLTOOL --help 2>&1` in *--identify-strict*) lt_cv_sharedlib_from_linklib_cmd=func_cygming_dll_for_implib ;; *) lt_cv_sharedlib_from_linklib_cmd=func_cygming_dll_for_implib_fallback ;; esac ;; *) # fallback: assume linklib IS sharedlib lt_cv_sharedlib_from_linklib_cmd="$ECHO" ;; esac fi { $as_echo "$as_me:${as_lineno-$LINENO}: result: $lt_cv_sharedlib_from_linklib_cmd" >&5 $as_echo "$lt_cv_sharedlib_from_linklib_cmd" >&6; } sharedlib_from_linklib_cmd=$lt_cv_sharedlib_from_linklib_cmd test -z "$sharedlib_from_linklib_cmd" && sharedlib_from_linklib_cmd=$ECHO if test -n "$ac_tool_prefix"; then for ac_prog in ar do # Extract the first word of "$ac_tool_prefix$ac_prog", so it can be a program name with args. set dummy $ac_tool_prefix$ac_prog; ac_word=$2 { $as_echo "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5 $as_echo_n "checking for $ac_word... " >&6; } if ${ac_cv_prog_AR+:} false; then : $as_echo_n "(cached) " >&6 else if test -n "$AR"; then ac_cv_prog_AR="$AR" # Let the user override the test. else as_save_IFS=$IFS; IFS=$PATH_SEPARATOR for as_dir in $PATH do IFS=$as_save_IFS test -z "$as_dir" && as_dir=. for ac_exec_ext in '' $ac_executable_extensions; do if as_fn_executable_p "$as_dir/$ac_word$ac_exec_ext"; then ac_cv_prog_AR="$ac_tool_prefix$ac_prog" $as_echo "$as_me:${as_lineno-$LINENO}: found $as_dir/$ac_word$ac_exec_ext" >&5 break 2 fi done done IFS=$as_save_IFS fi fi AR=$ac_cv_prog_AR if test -n "$AR"; then { $as_echo "$as_me:${as_lineno-$LINENO}: result: $AR" >&5 $as_echo "$AR" >&6; } else { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5 $as_echo "no" >&6; } fi test -n "$AR" && break done fi if test -z "$AR"; then ac_ct_AR=$AR for ac_prog in ar do # Extract the first word of "$ac_prog", so it can be a program name with args. set dummy $ac_prog; ac_word=$2 { $as_echo "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5 $as_echo_n "checking for $ac_word... " >&6; } if ${ac_cv_prog_ac_ct_AR+:} false; then : $as_echo_n "(cached) " >&6 else if test -n "$ac_ct_AR"; then ac_cv_prog_ac_ct_AR="$ac_ct_AR" # Let the user override the test. else as_save_IFS=$IFS; IFS=$PATH_SEPARATOR for as_dir in $PATH do IFS=$as_save_IFS test -z "$as_dir" && as_dir=. for ac_exec_ext in '' $ac_executable_extensions; do if as_fn_executable_p "$as_dir/$ac_word$ac_exec_ext"; then ac_cv_prog_ac_ct_AR="$ac_prog" $as_echo "$as_me:${as_lineno-$LINENO}: found $as_dir/$ac_word$ac_exec_ext" >&5 break 2 fi done done IFS=$as_save_IFS fi fi ac_ct_AR=$ac_cv_prog_ac_ct_AR if test -n "$ac_ct_AR"; then { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_ct_AR" >&5 $as_echo "$ac_ct_AR" >&6; } else { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5 $as_echo "no" >&6; } fi test -n "$ac_ct_AR" && break done if test "x$ac_ct_AR" = x; then AR="false" else case $cross_compiling:$ac_tool_warned in yes:) { $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: using cross tools not prefixed with host triplet" >&5 $as_echo "$as_me: WARNING: using cross tools not prefixed with host triplet" >&2;} ac_tool_warned=yes ;; esac AR=$ac_ct_AR fi fi : ${AR=ar} : ${AR_FLAGS=cru} { $as_echo "$as_me:${as_lineno-$LINENO}: checking for archiver @FILE support" >&5 $as_echo_n "checking for archiver @FILE support... " >&6; } if ${lt_cv_ar_at_file+:} false; then : $as_echo_n "(cached) " >&6 else lt_cv_ar_at_file=no cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ int main () { ; return 0; } _ACEOF if ac_fn_c_try_compile "$LINENO"; then : echo conftest.$ac_objext > conftest.lst lt_ar_try='$AR $AR_FLAGS libconftest.a @conftest.lst >&5' { { eval echo "\"\$as_me\":${as_lineno-$LINENO}: \"$lt_ar_try\""; } >&5 (eval $lt_ar_try) 2>&5 ac_status=$? $as_echo "$as_me:${as_lineno-$LINENO}: \$? = $ac_status" >&5 test $ac_status = 0; } if test "$ac_status" -eq 0; then # Ensure the archiver fails upon bogus file names. rm -f conftest.$ac_objext libconftest.a { { eval echo "\"\$as_me\":${as_lineno-$LINENO}: \"$lt_ar_try\""; } >&5 (eval $lt_ar_try) 2>&5 ac_status=$? $as_echo "$as_me:${as_lineno-$LINENO}: \$? = $ac_status" >&5 test $ac_status = 0; } if test "$ac_status" -ne 0; then lt_cv_ar_at_file=@ fi fi rm -f conftest.* libconftest.a fi rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext fi { $as_echo "$as_me:${as_lineno-$LINENO}: result: $lt_cv_ar_at_file" >&5 $as_echo "$lt_cv_ar_at_file" >&6; } if test "x$lt_cv_ar_at_file" = xno; then archiver_list_spec= else archiver_list_spec=$lt_cv_ar_at_file fi if test -n "$ac_tool_prefix"; then # Extract the first word of "${ac_tool_prefix}strip", so it can be a program name with args. set dummy ${ac_tool_prefix}strip; ac_word=$2 { $as_echo "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5 $as_echo_n "checking for $ac_word... " >&6; } if ${ac_cv_prog_STRIP+:} false; then : $as_echo_n "(cached) " >&6 else if test -n "$STRIP"; then ac_cv_prog_STRIP="$STRIP" # Let the user override the test. else as_save_IFS=$IFS; IFS=$PATH_SEPARATOR for as_dir in $PATH do IFS=$as_save_IFS test -z "$as_dir" && as_dir=. for ac_exec_ext in '' $ac_executable_extensions; do if as_fn_executable_p "$as_dir/$ac_word$ac_exec_ext"; then ac_cv_prog_STRIP="${ac_tool_prefix}strip" $as_echo "$as_me:${as_lineno-$LINENO}: found $as_dir/$ac_word$ac_exec_ext" >&5 break 2 fi done done IFS=$as_save_IFS fi fi STRIP=$ac_cv_prog_STRIP if test -n "$STRIP"; then { $as_echo "$as_me:${as_lineno-$LINENO}: result: $STRIP" >&5 $as_echo "$STRIP" >&6; } else { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5 $as_echo "no" >&6; } fi fi if test -z "$ac_cv_prog_STRIP"; then ac_ct_STRIP=$STRIP # Extract the first word of "strip", so it can be a program name with args. set dummy strip; ac_word=$2 { $as_echo "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5 $as_echo_n "checking for $ac_word... " >&6; } if ${ac_cv_prog_ac_ct_STRIP+:} false; then : $as_echo_n "(cached) " >&6 else if test -n "$ac_ct_STRIP"; then ac_cv_prog_ac_ct_STRIP="$ac_ct_STRIP" # Let the user override the test. else as_save_IFS=$IFS; IFS=$PATH_SEPARATOR for as_dir in $PATH do IFS=$as_save_IFS test -z "$as_dir" && as_dir=. for ac_exec_ext in '' $ac_executable_extensions; do if as_fn_executable_p "$as_dir/$ac_word$ac_exec_ext"; then ac_cv_prog_ac_ct_STRIP="strip" $as_echo "$as_me:${as_lineno-$LINENO}: found $as_dir/$ac_word$ac_exec_ext" >&5 break 2 fi done done IFS=$as_save_IFS fi fi ac_ct_STRIP=$ac_cv_prog_ac_ct_STRIP if test -n "$ac_ct_STRIP"; then { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_ct_STRIP" >&5 $as_echo "$ac_ct_STRIP" >&6; } else { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5 $as_echo "no" >&6; } fi if test "x$ac_ct_STRIP" = x; then STRIP=":" else case $cross_compiling:$ac_tool_warned in yes:) { $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: using cross tools not prefixed with host triplet" >&5 $as_echo "$as_me: WARNING: using cross tools not prefixed with host triplet" >&2;} ac_tool_warned=yes ;; esac STRIP=$ac_ct_STRIP fi else STRIP="$ac_cv_prog_STRIP" fi test -z "$STRIP" && STRIP=: if test -n "$ac_tool_prefix"; then # Extract the first word of "${ac_tool_prefix}ranlib", so it can be a program name with args. set dummy ${ac_tool_prefix}ranlib; ac_word=$2 { $as_echo "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5 $as_echo_n "checking for $ac_word... " >&6; } if ${ac_cv_prog_RANLIB+:} false; then : $as_echo_n "(cached) " >&6 else if test -n "$RANLIB"; then ac_cv_prog_RANLIB="$RANLIB" # Let the user override the test. else as_save_IFS=$IFS; IFS=$PATH_SEPARATOR for as_dir in $PATH do IFS=$as_save_IFS test -z "$as_dir" && as_dir=. for ac_exec_ext in '' $ac_executable_extensions; do if as_fn_executable_p "$as_dir/$ac_word$ac_exec_ext"; then ac_cv_prog_RANLIB="${ac_tool_prefix}ranlib" $as_echo "$as_me:${as_lineno-$LINENO}: found $as_dir/$ac_word$ac_exec_ext" >&5 break 2 fi done done IFS=$as_save_IFS fi fi RANLIB=$ac_cv_prog_RANLIB if test -n "$RANLIB"; then { $as_echo "$as_me:${as_lineno-$LINENO}: result: $RANLIB" >&5 $as_echo "$RANLIB" >&6; } else { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5 $as_echo "no" >&6; } fi fi if test -z "$ac_cv_prog_RANLIB"; then ac_ct_RANLIB=$RANLIB # Extract the first word of "ranlib", so it can be a program name with args. set dummy ranlib; ac_word=$2 { $as_echo "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5 $as_echo_n "checking for $ac_word... " >&6; } if ${ac_cv_prog_ac_ct_RANLIB+:} false; then : $as_echo_n "(cached) " >&6 else if test -n "$ac_ct_RANLIB"; then ac_cv_prog_ac_ct_RANLIB="$ac_ct_RANLIB" # Let the user override the test. else as_save_IFS=$IFS; IFS=$PATH_SEPARATOR for as_dir in $PATH do IFS=$as_save_IFS test -z "$as_dir" && as_dir=. for ac_exec_ext in '' $ac_executable_extensions; do if as_fn_executable_p "$as_dir/$ac_word$ac_exec_ext"; then ac_cv_prog_ac_ct_RANLIB="ranlib" $as_echo "$as_me:${as_lineno-$LINENO}: found $as_dir/$ac_word$ac_exec_ext" >&5 break 2 fi done done IFS=$as_save_IFS fi fi ac_ct_RANLIB=$ac_cv_prog_ac_ct_RANLIB if test -n "$ac_ct_RANLIB"; then { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_ct_RANLIB" >&5 $as_echo "$ac_ct_RANLIB" >&6; } else { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5 $as_echo "no" >&6; } fi if test "x$ac_ct_RANLIB" = x; then RANLIB=":" else case $cross_compiling:$ac_tool_warned in yes:) { $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: using cross tools not prefixed with host triplet" >&5 $as_echo "$as_me: WARNING: using cross tools not prefixed with host triplet" >&2;} ac_tool_warned=yes ;; esac RANLIB=$ac_ct_RANLIB fi else RANLIB="$ac_cv_prog_RANLIB" fi test -z "$RANLIB" && RANLIB=: # Determine commands to create old-style static archives. old_archive_cmds='$AR $AR_FLAGS $oldlib$oldobjs' old_postinstall_cmds='chmod 644 $oldlib' old_postuninstall_cmds= if test -n "$RANLIB"; then case $host_os in openbsd*) old_postinstall_cmds="$old_postinstall_cmds~\$RANLIB -t \$tool_oldlib" ;; *) old_postinstall_cmds="$old_postinstall_cmds~\$RANLIB \$tool_oldlib" ;; esac old_archive_cmds="$old_archive_cmds~\$RANLIB \$tool_oldlib" fi case $host_os in darwin*) lock_old_archive_extraction=yes ;; *) lock_old_archive_extraction=no ;; esac # If no C compiler was specified, use CC. LTCC=${LTCC-"$CC"} # If no C compiler flags were specified, use CFLAGS. LTCFLAGS=${LTCFLAGS-"$CFLAGS"} # Allow CC to be a program name with arguments. compiler=$CC # Check for command to grab the raw symbol name followed by C symbol from nm. { $as_echo "$as_me:${as_lineno-$LINENO}: checking command to parse $NM output from $compiler object" >&5 $as_echo_n "checking command to parse $NM output from $compiler object... " >&6; } if ${lt_cv_sys_global_symbol_pipe+:} false; then : $as_echo_n "(cached) " >&6 else # These are sane defaults that work on at least a few old systems. # [They come from Ultrix. What could be older than Ultrix?!! ;)] # Character class describing NM global symbol codes. symcode='[BCDEGRST]' # Regexp to match symbols that can be accessed directly from C. sympat='\([_A-Za-z][_A-Za-z0-9]*\)' # Define system-specific variables. case $host_os in aix*) symcode='[BCDT]' ;; cygwin* | mingw* | pw32* | cegcc*) symcode='[ABCDGISTW]' ;; hpux*) if test "$host_cpu" = ia64; then symcode='[ABCDEGRST]' fi ;; irix* | nonstopux*) symcode='[BCDEGRST]' ;; osf*) symcode='[BCDEGQRST]' ;; solaris*) symcode='[BDRT]' ;; sco3.2v5*) symcode='[DT]' ;; sysv4.2uw2*) symcode='[DT]' ;; sysv5* | sco5v6* | unixware* | OpenUNIX*) symcode='[ABDT]' ;; sysv4) symcode='[DFNSTU]' ;; esac # If we're using GNU nm, then use its standard symbol codes. case `$NM -V 2>&1` in *GNU* | *'with BFD'*) symcode='[ABCDGIRSTW]' ;; esac # Transform an extracted symbol line into a proper C declaration. # Some systems (esp. on ia64) link data and code symbols differently, # so use this general approach. lt_cv_sys_global_symbol_to_cdecl="sed -n -e 's/^T .* \(.*\)$/extern int \1();/p' -e 's/^$symcode* .* \(.*\)$/extern char \1;/p'" # Transform an extracted symbol line into symbol name and symbol address lt_cv_sys_global_symbol_to_c_name_address="sed -n -e 's/^: \([^ ]*\)[ ]*$/ {\\\"\1\\\", (void *) 0},/p' -e 's/^$symcode* \([^ ]*\) \([^ ]*\)$/ {\"\2\", (void *) \&\2},/p'" lt_cv_sys_global_symbol_to_c_name_address_lib_prefix="sed -n -e 's/^: \([^ ]*\)[ ]*$/ {\\\"\1\\\", (void *) 0},/p' -e 's/^$symcode* \([^ ]*\) \(lib[^ ]*\)$/ {\"\2\", (void *) \&\2},/p' -e 's/^$symcode* \([^ ]*\) \([^ ]*\)$/ {\"lib\2\", (void *) \&\2},/p'" # Handle CRLF in mingw tool chain opt_cr= case $build_os in mingw*) opt_cr=`$ECHO 'x\{0,1\}' | tr x '\015'` # option cr in regexp ;; esac # Try without a prefix underscore, then with it. for ac_symprfx in "" "_"; do # Transform symcode, sympat, and symprfx into a raw symbol and a C symbol. symxfrm="\\1 $ac_symprfx\\2 \\2" # Write the raw and C identifiers. if test "$lt_cv_nm_interface" = "MS dumpbin"; then # Fake it for dumpbin and say T for any non-static function # and D for any global variable. # Also find C++ and __fastcall symbols from MSVC++, # which start with @ or ?. lt_cv_sys_global_symbol_pipe="$AWK '"\ " {last_section=section; section=\$ 3};"\ " /^COFF SYMBOL TABLE/{for(i in hide) delete hide[i]};"\ " /Section length .*#relocs.*(pick any)/{hide[last_section]=1};"\ " \$ 0!~/External *\|/{next};"\ " / 0+ UNDEF /{next}; / UNDEF \([^|]\)*()/{next};"\ " {if(hide[section]) next};"\ " {f=0}; \$ 0~/\(\).*\|/{f=1}; {printf f ? \"T \" : \"D \"};"\ " {split(\$ 0, a, /\||\r/); split(a[2], s)};"\ " s[1]~/^[@?]/{print s[1], s[1]; next};"\ " s[1]~prfx {split(s[1],t,\"@\"); print t[1], substr(t[1],length(prfx))}"\ " ' prfx=^$ac_symprfx" else lt_cv_sys_global_symbol_pipe="sed -n -e 's/^.*[ ]\($symcode$symcode*\)[ ][ ]*$ac_symprfx$sympat$opt_cr$/$symxfrm/p'" fi lt_cv_sys_global_symbol_pipe="$lt_cv_sys_global_symbol_pipe | sed '/ __gnu_lto/d'" # Check to see that the pipe works correctly. pipe_works=no rm -f conftest* cat > conftest.$ac_ext <<_LT_EOF #ifdef __cplusplus extern "C" { #endif char nm_test_var; void nm_test_func(void); void nm_test_func(void){} #ifdef __cplusplus } #endif int main(){nm_test_var='a';nm_test_func();return(0);} _LT_EOF if { { eval echo "\"\$as_me\":${as_lineno-$LINENO}: \"$ac_compile\""; } >&5 (eval $ac_compile) 2>&5 ac_status=$? $as_echo "$as_me:${as_lineno-$LINENO}: \$? = $ac_status" >&5 test $ac_status = 0; }; then # Now try to grab the symbols. nlist=conftest.nm if { { eval echo "\"\$as_me\":${as_lineno-$LINENO}: \"$NM conftest.$ac_objext \| "$lt_cv_sys_global_symbol_pipe" \> $nlist\""; } >&5 (eval $NM conftest.$ac_objext \| "$lt_cv_sys_global_symbol_pipe" \> $nlist) 2>&5 ac_status=$? $as_echo "$as_me:${as_lineno-$LINENO}: \$? = $ac_status" >&5 test $ac_status = 0; } && test -s "$nlist"; then # Try sorting and uniquifying the output. if sort "$nlist" | uniq > "$nlist"T; then mv -f "$nlist"T "$nlist" else rm -f "$nlist"T fi # Make sure that we snagged all the symbols we need. if $GREP ' nm_test_var$' "$nlist" >/dev/null; then if $GREP ' nm_test_func$' "$nlist" >/dev/null; then cat <<_LT_EOF > conftest.$ac_ext /* Keep this code in sync between libtool.m4, ltmain, lt_system.h, and tests. */ #if defined(_WIN32) || defined(__CYGWIN__) || defined(_WIN32_WCE) /* DATA imports from DLLs on WIN32 con't be const, because runtime relocations are performed -- see ld's documentation on pseudo-relocs. */ # define LT_DLSYM_CONST #elif defined(__osf__) /* This system does not cope well with relocations in const data. */ # define LT_DLSYM_CONST #else # define LT_DLSYM_CONST const #endif #ifdef __cplusplus extern "C" { #endif _LT_EOF # Now generate the symbol file. eval "$lt_cv_sys_global_symbol_to_cdecl"' < "$nlist" | $GREP -v main >> conftest.$ac_ext' cat <<_LT_EOF >> conftest.$ac_ext /* The mapping between symbol names and symbols. */ LT_DLSYM_CONST struct { const char *name; void *address; } lt__PROGRAM__LTX_preloaded_symbols[] = { { "@PROGRAM@", (void *) 0 }, _LT_EOF $SED "s/^$symcode$symcode* \(.*\) \(.*\)$/ {\"\2\", (void *) \&\2},/" < "$nlist" | $GREP -v main >> conftest.$ac_ext cat <<\_LT_EOF >> conftest.$ac_ext {0, (void *) 0} }; /* This works around a problem in FreeBSD linker */ #ifdef FREEBSD_WORKAROUND static const void *lt_preloaded_setup() { return lt__PROGRAM__LTX_preloaded_symbols; } #endif #ifdef __cplusplus } #endif _LT_EOF # Now try linking the two files. mv conftest.$ac_objext conftstm.$ac_objext lt_globsym_save_LIBS=$LIBS lt_globsym_save_CFLAGS=$CFLAGS LIBS="conftstm.$ac_objext" CFLAGS="$CFLAGS$lt_prog_compiler_no_builtin_flag" if { { eval echo "\"\$as_me\":${as_lineno-$LINENO}: \"$ac_link\""; } >&5 (eval $ac_link) 2>&5 ac_status=$? $as_echo "$as_me:${as_lineno-$LINENO}: \$? = $ac_status" >&5 test $ac_status = 0; } && test -s conftest${ac_exeext}; then pipe_works=yes fi LIBS=$lt_globsym_save_LIBS CFLAGS=$lt_globsym_save_CFLAGS else echo "cannot find nm_test_func in $nlist" >&5 fi else echo "cannot find nm_test_var in $nlist" >&5 fi else echo "cannot run $lt_cv_sys_global_symbol_pipe" >&5 fi else echo "$progname: failed program was:" >&5 cat conftest.$ac_ext >&5 fi rm -rf conftest* conftst* # Do not use the global_symbol_pipe unless it works. if test "$pipe_works" = yes; then break else lt_cv_sys_global_symbol_pipe= fi done fi if test -z "$lt_cv_sys_global_symbol_pipe"; then lt_cv_sys_global_symbol_to_cdecl= fi if test -z "$lt_cv_sys_global_symbol_pipe$lt_cv_sys_global_symbol_to_cdecl"; then { $as_echo "$as_me:${as_lineno-$LINENO}: result: failed" >&5 $as_echo "failed" >&6; } else { $as_echo "$as_me:${as_lineno-$LINENO}: result: ok" >&5 $as_echo "ok" >&6; } fi # Response file support. if test "$lt_cv_nm_interface" = "MS dumpbin"; then nm_file_list_spec='@' elif $NM --help 2>/dev/null | grep '[@]FILE' >/dev/null; then nm_file_list_spec='@' fi { $as_echo "$as_me:${as_lineno-$LINENO}: checking for sysroot" >&5 $as_echo_n "checking for sysroot... " >&6; } # Check whether --with-sysroot was given. if test "${with_sysroot+set}" = set; then : withval=$with_sysroot; else with_sysroot=no fi lt_sysroot= case ${with_sysroot} in #( yes) if test "$GCC" = yes; then lt_sysroot=`$CC --print-sysroot 2>/dev/null` fi ;; #( /*) lt_sysroot=`echo "$with_sysroot" | sed -e "$sed_quote_subst"` ;; #( no|'') ;; #( *) { $as_echo "$as_me:${as_lineno-$LINENO}: result: ${with_sysroot}" >&5 $as_echo "${with_sysroot}" >&6; } as_fn_error $? "The sysroot must be an absolute path." "$LINENO" 5 ;; esac { $as_echo "$as_me:${as_lineno-$LINENO}: result: ${lt_sysroot:-no}" >&5 $as_echo "${lt_sysroot:-no}" >&6; } # Check whether --enable-libtool-lock was given. if test "${enable_libtool_lock+set}" = set; then : enableval=$enable_libtool_lock; fi test "x$enable_libtool_lock" != xno && enable_libtool_lock=yes # Some flags need to be propagated to the compiler or linker for good # libtool support. case $host in ia64-*-hpux*) # Find out which ABI we are using. echo 'int i;' > conftest.$ac_ext if { { eval echo "\"\$as_me\":${as_lineno-$LINENO}: \"$ac_compile\""; } >&5 (eval $ac_compile) 2>&5 ac_status=$? $as_echo "$as_me:${as_lineno-$LINENO}: \$? = $ac_status" >&5 test $ac_status = 0; }; then case `/usr/bin/file conftest.$ac_objext` in *ELF-32*) HPUX_IA64_MODE="32" ;; *ELF-64*) HPUX_IA64_MODE="64" ;; esac fi rm -rf conftest* ;; *-*-irix6*) # Find out which ABI we are using. echo '#line '$LINENO' "configure"' > conftest.$ac_ext if { { eval echo "\"\$as_me\":${as_lineno-$LINENO}: \"$ac_compile\""; } >&5 (eval $ac_compile) 2>&5 ac_status=$? $as_echo "$as_me:${as_lineno-$LINENO}: \$? = $ac_status" >&5 test $ac_status = 0; }; then if test "$lt_cv_prog_gnu_ld" = yes; then case `/usr/bin/file conftest.$ac_objext` in *32-bit*) LD="${LD-ld} -melf32bsmip" ;; *N32*) LD="${LD-ld} -melf32bmipn32" ;; *64-bit*) LD="${LD-ld} -melf64bmip" ;; esac else case `/usr/bin/file conftest.$ac_objext` in *32-bit*) LD="${LD-ld} -32" ;; *N32*) LD="${LD-ld} -n32" ;; *64-bit*) LD="${LD-ld} -64" ;; esac fi fi rm -rf conftest* ;; x86_64-*kfreebsd*-gnu|x86_64-*linux*|ppc*-*linux*|powerpc*-*linux*| \ s390*-*linux*|s390*-*tpf*|sparc*-*linux*) # Find out which ABI we are using. echo 'int i;' > conftest.$ac_ext if { { eval echo "\"\$as_me\":${as_lineno-$LINENO}: \"$ac_compile\""; } >&5 (eval $ac_compile) 2>&5 ac_status=$? $as_echo "$as_me:${as_lineno-$LINENO}: \$? = $ac_status" >&5 test $ac_status = 0; }; then case `/usr/bin/file conftest.o` in *32-bit*) case $host in x86_64-*kfreebsd*-gnu) LD="${LD-ld} -m elf_i386_fbsd" ;; x86_64-*linux*) LD="${LD-ld} -m elf_i386" ;; ppc64-*linux*|powerpc64-*linux*) LD="${LD-ld} -m elf32ppclinux" ;; s390x-*linux*) LD="${LD-ld} -m elf_s390" ;; sparc64-*linux*) LD="${LD-ld} -m elf32_sparc" ;; esac ;; *64-bit*) case $host in x86_64-*kfreebsd*-gnu) LD="${LD-ld} -m elf_x86_64_fbsd" ;; x86_64-*linux*) LD="${LD-ld} -m elf_x86_64" ;; ppc*-*linux*|powerpc*-*linux*) LD="${LD-ld} -m elf64ppc" ;; s390*-*linux*|s390*-*tpf*) LD="${LD-ld} -m elf64_s390" ;; sparc*-*linux*) LD="${LD-ld} -m elf64_sparc" ;; esac ;; esac fi rm -rf conftest* ;; *-*-sco3.2v5*) # On SCO OpenServer 5, we need -belf to get full-featured binaries. SAVE_CFLAGS="$CFLAGS" CFLAGS="$CFLAGS -belf" { $as_echo "$as_me:${as_lineno-$LINENO}: checking whether the C compiler needs -belf" >&5 $as_echo_n "checking whether the C compiler needs -belf... " >&6; } if ${lt_cv_cc_needs_belf+:} false; then : $as_echo_n "(cached) " >&6 else ac_ext=c ac_cpp='$CPP $CPPFLAGS' ac_compile='$CC -c $CFLAGS $CPPFLAGS conftest.$ac_ext >&5' ac_link='$CC -o conftest$ac_exeext $CFLAGS $CPPFLAGS $LDFLAGS conftest.$ac_ext $LIBS >&5' ac_compiler_gnu=$ac_cv_c_compiler_gnu cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ int main () { ; return 0; } _ACEOF if ac_fn_c_try_link "$LINENO"; then : lt_cv_cc_needs_belf=yes else lt_cv_cc_needs_belf=no fi rm -f core conftest.err conftest.$ac_objext \ conftest$ac_exeext conftest.$ac_ext ac_ext=c ac_cpp='$CPP $CPPFLAGS' ac_compile='$CC -c $CFLAGS $CPPFLAGS conftest.$ac_ext >&5' ac_link='$CC -o conftest$ac_exeext $CFLAGS $CPPFLAGS $LDFLAGS conftest.$ac_ext $LIBS >&5' ac_compiler_gnu=$ac_cv_c_compiler_gnu fi { $as_echo "$as_me:${as_lineno-$LINENO}: result: $lt_cv_cc_needs_belf" >&5 $as_echo "$lt_cv_cc_needs_belf" >&6; } if test x"$lt_cv_cc_needs_belf" != x"yes"; then # this is probably gcc 2.8.0, egcs 1.0 or newer; no need for -belf CFLAGS="$SAVE_CFLAGS" fi ;; *-*solaris*) # Find out which ABI we are using. echo 'int i;' > conftest.$ac_ext if { { eval echo "\"\$as_me\":${as_lineno-$LINENO}: \"$ac_compile\""; } >&5 (eval $ac_compile) 2>&5 ac_status=$? $as_echo "$as_me:${as_lineno-$LINENO}: \$? = $ac_status" >&5 test $ac_status = 0; }; then case `/usr/bin/file conftest.o` in *64-bit*) case $lt_cv_prog_gnu_ld in yes*) case $host in i?86-*-solaris*) LD="${LD-ld} -m elf_x86_64" ;; sparc*-*-solaris*) LD="${LD-ld} -m elf64_sparc" ;; esac # GNU ld 2.21 introduced _sol2 emulations. Use them if available. if ${LD-ld} -V | grep _sol2 >/dev/null 2>&1; then LD="${LD-ld}_sol2" fi ;; *) if ${LD-ld} -64 -r -o conftest2.o conftest.o >/dev/null 2>&1; then LD="${LD-ld} -64" fi ;; esac ;; esac fi rm -rf conftest* ;; esac need_locks="$enable_libtool_lock" if test -n "$ac_tool_prefix"; then # Extract the first word of "${ac_tool_prefix}mt", so it can be a program name with args. set dummy ${ac_tool_prefix}mt; ac_word=$2 { $as_echo "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5 $as_echo_n "checking for $ac_word... " >&6; } if ${ac_cv_prog_MANIFEST_TOOL+:} false; then : $as_echo_n "(cached) " >&6 else if test -n "$MANIFEST_TOOL"; then ac_cv_prog_MANIFEST_TOOL="$MANIFEST_TOOL" # Let the user override the test. else as_save_IFS=$IFS; IFS=$PATH_SEPARATOR for as_dir in $PATH do IFS=$as_save_IFS test -z "$as_dir" && as_dir=. for ac_exec_ext in '' $ac_executable_extensions; do if as_fn_executable_p "$as_dir/$ac_word$ac_exec_ext"; then ac_cv_prog_MANIFEST_TOOL="${ac_tool_prefix}mt" $as_echo "$as_me:${as_lineno-$LINENO}: found $as_dir/$ac_word$ac_exec_ext" >&5 break 2 fi done done IFS=$as_save_IFS fi fi MANIFEST_TOOL=$ac_cv_prog_MANIFEST_TOOL if test -n "$MANIFEST_TOOL"; then { $as_echo "$as_me:${as_lineno-$LINENO}: result: $MANIFEST_TOOL" >&5 $as_echo "$MANIFEST_TOOL" >&6; } else { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5 $as_echo "no" >&6; } fi fi if test -z "$ac_cv_prog_MANIFEST_TOOL"; then ac_ct_MANIFEST_TOOL=$MANIFEST_TOOL # Extract the first word of "mt", so it can be a program name with args. set dummy mt; ac_word=$2 { $as_echo "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5 $as_echo_n "checking for $ac_word... " >&6; } if ${ac_cv_prog_ac_ct_MANIFEST_TOOL+:} false; then : $as_echo_n "(cached) " >&6 else if test -n "$ac_ct_MANIFEST_TOOL"; then ac_cv_prog_ac_ct_MANIFEST_TOOL="$ac_ct_MANIFEST_TOOL" # Let the user override the test. else as_save_IFS=$IFS; IFS=$PATH_SEPARATOR for as_dir in $PATH do IFS=$as_save_IFS test -z "$as_dir" && as_dir=. for ac_exec_ext in '' $ac_executable_extensions; do if as_fn_executable_p "$as_dir/$ac_word$ac_exec_ext"; then ac_cv_prog_ac_ct_MANIFEST_TOOL="mt" $as_echo "$as_me:${as_lineno-$LINENO}: found $as_dir/$ac_word$ac_exec_ext" >&5 break 2 fi done done IFS=$as_save_IFS fi fi ac_ct_MANIFEST_TOOL=$ac_cv_prog_ac_ct_MANIFEST_TOOL if test -n "$ac_ct_MANIFEST_TOOL"; then { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_ct_MANIFEST_TOOL" >&5 $as_echo "$ac_ct_MANIFEST_TOOL" >&6; } else { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5 $as_echo "no" >&6; } fi if test "x$ac_ct_MANIFEST_TOOL" = x; then MANIFEST_TOOL=":" else case $cross_compiling:$ac_tool_warned in yes:) { $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: using cross tools not prefixed with host triplet" >&5 $as_echo "$as_me: WARNING: using cross tools not prefixed with host triplet" >&2;} ac_tool_warned=yes ;; esac MANIFEST_TOOL=$ac_ct_MANIFEST_TOOL fi else MANIFEST_TOOL="$ac_cv_prog_MANIFEST_TOOL" fi test -z "$MANIFEST_TOOL" && MANIFEST_TOOL=mt { $as_echo "$as_me:${as_lineno-$LINENO}: checking if $MANIFEST_TOOL is a manifest tool" >&5 $as_echo_n "checking if $MANIFEST_TOOL is a manifest tool... " >&6; } if ${lt_cv_path_mainfest_tool+:} false; then : $as_echo_n "(cached) " >&6 else lt_cv_path_mainfest_tool=no echo "$as_me:$LINENO: $MANIFEST_TOOL '-?'" >&5 $MANIFEST_TOOL '-?' 2>conftest.err > conftest.out cat conftest.err >&5 if $GREP 'Manifest Tool' conftest.out > /dev/null; then lt_cv_path_mainfest_tool=yes fi rm -f conftest* fi { $as_echo "$as_me:${as_lineno-$LINENO}: result: $lt_cv_path_mainfest_tool" >&5 $as_echo "$lt_cv_path_mainfest_tool" >&6; } if test "x$lt_cv_path_mainfest_tool" != xyes; then MANIFEST_TOOL=: fi case $host_os in rhapsody* | darwin*) if test -n "$ac_tool_prefix"; then # Extract the first word of "${ac_tool_prefix}dsymutil", so it can be a program name with args. set dummy ${ac_tool_prefix}dsymutil; ac_word=$2 { $as_echo "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5 $as_echo_n "checking for $ac_word... " >&6; } if ${ac_cv_prog_DSYMUTIL+:} false; then : $as_echo_n "(cached) " >&6 else if test -n "$DSYMUTIL"; then ac_cv_prog_DSYMUTIL="$DSYMUTIL" # Let the user override the test. else as_save_IFS=$IFS; IFS=$PATH_SEPARATOR for as_dir in $PATH do IFS=$as_save_IFS test -z "$as_dir" && as_dir=. for ac_exec_ext in '' $ac_executable_extensions; do if as_fn_executable_p "$as_dir/$ac_word$ac_exec_ext"; then ac_cv_prog_DSYMUTIL="${ac_tool_prefix}dsymutil" $as_echo "$as_me:${as_lineno-$LINENO}: found $as_dir/$ac_word$ac_exec_ext" >&5 break 2 fi done done IFS=$as_save_IFS fi fi DSYMUTIL=$ac_cv_prog_DSYMUTIL if test -n "$DSYMUTIL"; then { $as_echo "$as_me:${as_lineno-$LINENO}: result: $DSYMUTIL" >&5 $as_echo "$DSYMUTIL" >&6; } else { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5 $as_echo "no" >&6; } fi fi if test -z "$ac_cv_prog_DSYMUTIL"; then ac_ct_DSYMUTIL=$DSYMUTIL # Extract the first word of "dsymutil", so it can be a program name with args. set dummy dsymutil; ac_word=$2 { $as_echo "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5 $as_echo_n "checking for $ac_word... " >&6; } if ${ac_cv_prog_ac_ct_DSYMUTIL+:} false; then : $as_echo_n "(cached) " >&6 else if test -n "$ac_ct_DSYMUTIL"; then ac_cv_prog_ac_ct_DSYMUTIL="$ac_ct_DSYMUTIL" # Let the user override the test. else as_save_IFS=$IFS; IFS=$PATH_SEPARATOR for as_dir in $PATH do IFS=$as_save_IFS test -z "$as_dir" && as_dir=. for ac_exec_ext in '' $ac_executable_extensions; do if as_fn_executable_p "$as_dir/$ac_word$ac_exec_ext"; then ac_cv_prog_ac_ct_DSYMUTIL="dsymutil" $as_echo "$as_me:${as_lineno-$LINENO}: found $as_dir/$ac_word$ac_exec_ext" >&5 break 2 fi done done IFS=$as_save_IFS fi fi ac_ct_DSYMUTIL=$ac_cv_prog_ac_ct_DSYMUTIL if test -n "$ac_ct_DSYMUTIL"; then { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_ct_DSYMUTIL" >&5 $as_echo "$ac_ct_DSYMUTIL" >&6; } else { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5 $as_echo "no" >&6; } fi if test "x$ac_ct_DSYMUTIL" = x; then DSYMUTIL=":" else case $cross_compiling:$ac_tool_warned in yes:) { $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: using cross tools not prefixed with host triplet" >&5 $as_echo "$as_me: WARNING: using cross tools not prefixed with host triplet" >&2;} ac_tool_warned=yes ;; esac DSYMUTIL=$ac_ct_DSYMUTIL fi else DSYMUTIL="$ac_cv_prog_DSYMUTIL" fi if test -n "$ac_tool_prefix"; then # Extract the first word of "${ac_tool_prefix}nmedit", so it can be a program name with args. set dummy ${ac_tool_prefix}nmedit; ac_word=$2 { $as_echo "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5 $as_echo_n "checking for $ac_word... " >&6; } if ${ac_cv_prog_NMEDIT+:} false; then : $as_echo_n "(cached) " >&6 else if test -n "$NMEDIT"; then ac_cv_prog_NMEDIT="$NMEDIT" # Let the user override the test. else as_save_IFS=$IFS; IFS=$PATH_SEPARATOR for as_dir in $PATH do IFS=$as_save_IFS test -z "$as_dir" && as_dir=. for ac_exec_ext in '' $ac_executable_extensions; do if as_fn_executable_p "$as_dir/$ac_word$ac_exec_ext"; then ac_cv_prog_NMEDIT="${ac_tool_prefix}nmedit" $as_echo "$as_me:${as_lineno-$LINENO}: found $as_dir/$ac_word$ac_exec_ext" >&5 break 2 fi done done IFS=$as_save_IFS fi fi NMEDIT=$ac_cv_prog_NMEDIT if test -n "$NMEDIT"; then { $as_echo "$as_me:${as_lineno-$LINENO}: result: $NMEDIT" >&5 $as_echo "$NMEDIT" >&6; } else { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5 $as_echo "no" >&6; } fi fi if test -z "$ac_cv_prog_NMEDIT"; then ac_ct_NMEDIT=$NMEDIT # Extract the first word of "nmedit", so it can be a program name with args. set dummy nmedit; ac_word=$2 { $as_echo "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5 $as_echo_n "checking for $ac_word... " >&6; } if ${ac_cv_prog_ac_ct_NMEDIT+:} false; then : $as_echo_n "(cached) " >&6 else if test -n "$ac_ct_NMEDIT"; then ac_cv_prog_ac_ct_NMEDIT="$ac_ct_NMEDIT" # Let the user override the test. else as_save_IFS=$IFS; IFS=$PATH_SEPARATOR for as_dir in $PATH do IFS=$as_save_IFS test -z "$as_dir" && as_dir=. for ac_exec_ext in '' $ac_executable_extensions; do if as_fn_executable_p "$as_dir/$ac_word$ac_exec_ext"; then ac_cv_prog_ac_ct_NMEDIT="nmedit" $as_echo "$as_me:${as_lineno-$LINENO}: found $as_dir/$ac_word$ac_exec_ext" >&5 break 2 fi done done IFS=$as_save_IFS fi fi ac_ct_NMEDIT=$ac_cv_prog_ac_ct_NMEDIT if test -n "$ac_ct_NMEDIT"; then { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_ct_NMEDIT" >&5 $as_echo "$ac_ct_NMEDIT" >&6; } else { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5 $as_echo "no" >&6; } fi if test "x$ac_ct_NMEDIT" = x; then NMEDIT=":" else case $cross_compiling:$ac_tool_warned in yes:) { $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: using cross tools not prefixed with host triplet" >&5 $as_echo "$as_me: WARNING: using cross tools not prefixed with host triplet" >&2;} ac_tool_warned=yes ;; esac NMEDIT=$ac_ct_NMEDIT fi else NMEDIT="$ac_cv_prog_NMEDIT" fi if test -n "$ac_tool_prefix"; then # Extract the first word of "${ac_tool_prefix}lipo", so it can be a program name with args. set dummy ${ac_tool_prefix}lipo; ac_word=$2 { $as_echo "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5 $as_echo_n "checking for $ac_word... " >&6; } if ${ac_cv_prog_LIPO+:} false; then : $as_echo_n "(cached) " >&6 else if test -n "$LIPO"; then ac_cv_prog_LIPO="$LIPO" # Let the user override the test. else as_save_IFS=$IFS; IFS=$PATH_SEPARATOR for as_dir in $PATH do IFS=$as_save_IFS test -z "$as_dir" && as_dir=. for ac_exec_ext in '' $ac_executable_extensions; do if as_fn_executable_p "$as_dir/$ac_word$ac_exec_ext"; then ac_cv_prog_LIPO="${ac_tool_prefix}lipo" $as_echo "$as_me:${as_lineno-$LINENO}: found $as_dir/$ac_word$ac_exec_ext" >&5 break 2 fi done done IFS=$as_save_IFS fi fi LIPO=$ac_cv_prog_LIPO if test -n "$LIPO"; then { $as_echo "$as_me:${as_lineno-$LINENO}: result: $LIPO" >&5 $as_echo "$LIPO" >&6; } else { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5 $as_echo "no" >&6; } fi fi if test -z "$ac_cv_prog_LIPO"; then ac_ct_LIPO=$LIPO # Extract the first word of "lipo", so it can be a program name with args. set dummy lipo; ac_word=$2 { $as_echo "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5 $as_echo_n "checking for $ac_word... " >&6; } if ${ac_cv_prog_ac_ct_LIPO+:} false; then : $as_echo_n "(cached) " >&6 else if test -n "$ac_ct_LIPO"; then ac_cv_prog_ac_ct_LIPO="$ac_ct_LIPO" # Let the user override the test. else as_save_IFS=$IFS; IFS=$PATH_SEPARATOR for as_dir in $PATH do IFS=$as_save_IFS test -z "$as_dir" && as_dir=. for ac_exec_ext in '' $ac_executable_extensions; do if as_fn_executable_p "$as_dir/$ac_word$ac_exec_ext"; then ac_cv_prog_ac_ct_LIPO="lipo" $as_echo "$as_me:${as_lineno-$LINENO}: found $as_dir/$ac_word$ac_exec_ext" >&5 break 2 fi done done IFS=$as_save_IFS fi fi ac_ct_LIPO=$ac_cv_prog_ac_ct_LIPO if test -n "$ac_ct_LIPO"; then { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_ct_LIPO" >&5 $as_echo "$ac_ct_LIPO" >&6; } else { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5 $as_echo "no" >&6; } fi if test "x$ac_ct_LIPO" = x; then LIPO=":" else case $cross_compiling:$ac_tool_warned in yes:) { $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: using cross tools not prefixed with host triplet" >&5 $as_echo "$as_me: WARNING: using cross tools not prefixed with host triplet" >&2;} ac_tool_warned=yes ;; esac LIPO=$ac_ct_LIPO fi else LIPO="$ac_cv_prog_LIPO" fi if test -n "$ac_tool_prefix"; then # Extract the first word of "${ac_tool_prefix}otool", so it can be a program name with args. set dummy ${ac_tool_prefix}otool; ac_word=$2 { $as_echo "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5 $as_echo_n "checking for $ac_word... " >&6; } if ${ac_cv_prog_OTOOL+:} false; then : $as_echo_n "(cached) " >&6 else if test -n "$OTOOL"; then ac_cv_prog_OTOOL="$OTOOL" # Let the user override the test. else as_save_IFS=$IFS; IFS=$PATH_SEPARATOR for as_dir in $PATH do IFS=$as_save_IFS test -z "$as_dir" && as_dir=. for ac_exec_ext in '' $ac_executable_extensions; do if as_fn_executable_p "$as_dir/$ac_word$ac_exec_ext"; then ac_cv_prog_OTOOL="${ac_tool_prefix}otool" $as_echo "$as_me:${as_lineno-$LINENO}: found $as_dir/$ac_word$ac_exec_ext" >&5 break 2 fi done done IFS=$as_save_IFS fi fi OTOOL=$ac_cv_prog_OTOOL if test -n "$OTOOL"; then { $as_echo "$as_me:${as_lineno-$LINENO}: result: $OTOOL" >&5 $as_echo "$OTOOL" >&6; } else { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5 $as_echo "no" >&6; } fi fi if test -z "$ac_cv_prog_OTOOL"; then ac_ct_OTOOL=$OTOOL # Extract the first word of "otool", so it can be a program name with args. set dummy otool; ac_word=$2 { $as_echo "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5 $as_echo_n "checking for $ac_word... " >&6; } if ${ac_cv_prog_ac_ct_OTOOL+:} false; then : $as_echo_n "(cached) " >&6 else if test -n "$ac_ct_OTOOL"; then ac_cv_prog_ac_ct_OTOOL="$ac_ct_OTOOL" # Let the user override the test. else as_save_IFS=$IFS; IFS=$PATH_SEPARATOR for as_dir in $PATH do IFS=$as_save_IFS test -z "$as_dir" && as_dir=. for ac_exec_ext in '' $ac_executable_extensions; do if as_fn_executable_p "$as_dir/$ac_word$ac_exec_ext"; then ac_cv_prog_ac_ct_OTOOL="otool" $as_echo "$as_me:${as_lineno-$LINENO}: found $as_dir/$ac_word$ac_exec_ext" >&5 break 2 fi done done IFS=$as_save_IFS fi fi ac_ct_OTOOL=$ac_cv_prog_ac_ct_OTOOL if test -n "$ac_ct_OTOOL"; then { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_ct_OTOOL" >&5 $as_echo "$ac_ct_OTOOL" >&6; } else { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5 $as_echo "no" >&6; } fi if test "x$ac_ct_OTOOL" = x; then OTOOL=":" else case $cross_compiling:$ac_tool_warned in yes:) { $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: using cross tools not prefixed with host triplet" >&5 $as_echo "$as_me: WARNING: using cross tools not prefixed with host triplet" >&2;} ac_tool_warned=yes ;; esac OTOOL=$ac_ct_OTOOL fi else OTOOL="$ac_cv_prog_OTOOL" fi if test -n "$ac_tool_prefix"; then # Extract the first word of "${ac_tool_prefix}otool64", so it can be a program name with args. set dummy ${ac_tool_prefix}otool64; ac_word=$2 { $as_echo "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5 $as_echo_n "checking for $ac_word... " >&6; } if ${ac_cv_prog_OTOOL64+:} false; then : $as_echo_n "(cached) " >&6 else if test -n "$OTOOL64"; then ac_cv_prog_OTOOL64="$OTOOL64" # Let the user override the test. else as_save_IFS=$IFS; IFS=$PATH_SEPARATOR for as_dir in $PATH do IFS=$as_save_IFS test -z "$as_dir" && as_dir=. for ac_exec_ext in '' $ac_executable_extensions; do if as_fn_executable_p "$as_dir/$ac_word$ac_exec_ext"; then ac_cv_prog_OTOOL64="${ac_tool_prefix}otool64" $as_echo "$as_me:${as_lineno-$LINENO}: found $as_dir/$ac_word$ac_exec_ext" >&5 break 2 fi done done IFS=$as_save_IFS fi fi OTOOL64=$ac_cv_prog_OTOOL64 if test -n "$OTOOL64"; then { $as_echo "$as_me:${as_lineno-$LINENO}: result: $OTOOL64" >&5 $as_echo "$OTOOL64" >&6; } else { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5 $as_echo "no" >&6; } fi fi if test -z "$ac_cv_prog_OTOOL64"; then ac_ct_OTOOL64=$OTOOL64 # Extract the first word of "otool64", so it can be a program name with args. set dummy otool64; ac_word=$2 { $as_echo "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5 $as_echo_n "checking for $ac_word... " >&6; } if ${ac_cv_prog_ac_ct_OTOOL64+:} false; then : $as_echo_n "(cached) " >&6 else if test -n "$ac_ct_OTOOL64"; then ac_cv_prog_ac_ct_OTOOL64="$ac_ct_OTOOL64" # Let the user override the test. else as_save_IFS=$IFS; IFS=$PATH_SEPARATOR for as_dir in $PATH do IFS=$as_save_IFS test -z "$as_dir" && as_dir=. for ac_exec_ext in '' $ac_executable_extensions; do if as_fn_executable_p "$as_dir/$ac_word$ac_exec_ext"; then ac_cv_prog_ac_ct_OTOOL64="otool64" $as_echo "$as_me:${as_lineno-$LINENO}: found $as_dir/$ac_word$ac_exec_ext" >&5 break 2 fi done done IFS=$as_save_IFS fi fi ac_ct_OTOOL64=$ac_cv_prog_ac_ct_OTOOL64 if test -n "$ac_ct_OTOOL64"; then { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_ct_OTOOL64" >&5 $as_echo "$ac_ct_OTOOL64" >&6; } else { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5 $as_echo "no" >&6; } fi if test "x$ac_ct_OTOOL64" = x; then OTOOL64=":" else case $cross_compiling:$ac_tool_warned in yes:) { $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: using cross tools not prefixed with host triplet" >&5 $as_echo "$as_me: WARNING: using cross tools not prefixed with host triplet" >&2;} ac_tool_warned=yes ;; esac OTOOL64=$ac_ct_OTOOL64 fi else OTOOL64="$ac_cv_prog_OTOOL64" fi { $as_echo "$as_me:${as_lineno-$LINENO}: checking for -single_module linker flag" >&5 $as_echo_n "checking for -single_module linker flag... " >&6; } if ${lt_cv_apple_cc_single_mod+:} false; then : $as_echo_n "(cached) " >&6 else lt_cv_apple_cc_single_mod=no if test -z "${LT_MULTI_MODULE}"; then # By default we will add the -single_module flag. You can override # by either setting the environment variable LT_MULTI_MODULE # non-empty at configure time, or by adding -multi_module to the # link flags. rm -rf libconftest.dylib* echo "int foo(void){return 1;}" > conftest.c echo "$LTCC $LTCFLAGS $LDFLAGS -o libconftest.dylib \ -dynamiclib -Wl,-single_module conftest.c" >&5 $LTCC $LTCFLAGS $LDFLAGS -o libconftest.dylib \ -dynamiclib -Wl,-single_module conftest.c 2>conftest.err _lt_result=$? # If there is a non-empty error log, and "single_module" # appears in it, assume the flag caused a linker warning if test -s conftest.err && $GREP single_module conftest.err; then cat conftest.err >&5 # Otherwise, if the output was created with a 0 exit code from # the compiler, it worked. elif test -f libconftest.dylib && test $_lt_result -eq 0; then lt_cv_apple_cc_single_mod=yes else cat conftest.err >&5 fi rm -rf libconftest.dylib* rm -f conftest.* fi fi { $as_echo "$as_me:${as_lineno-$LINENO}: result: $lt_cv_apple_cc_single_mod" >&5 $as_echo "$lt_cv_apple_cc_single_mod" >&6; } { $as_echo "$as_me:${as_lineno-$LINENO}: checking for -exported_symbols_list linker flag" >&5 $as_echo_n "checking for -exported_symbols_list linker flag... " >&6; } if ${lt_cv_ld_exported_symbols_list+:} false; then : $as_echo_n "(cached) " >&6 else lt_cv_ld_exported_symbols_list=no save_LDFLAGS=$LDFLAGS echo "_main" > conftest.sym LDFLAGS="$LDFLAGS -Wl,-exported_symbols_list,conftest.sym" cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ int main () { ; return 0; } _ACEOF if ac_fn_c_try_link "$LINENO"; then : lt_cv_ld_exported_symbols_list=yes else lt_cv_ld_exported_symbols_list=no fi rm -f core conftest.err conftest.$ac_objext \ conftest$ac_exeext conftest.$ac_ext LDFLAGS="$save_LDFLAGS" fi { $as_echo "$as_me:${as_lineno-$LINENO}: result: $lt_cv_ld_exported_symbols_list" >&5 $as_echo "$lt_cv_ld_exported_symbols_list" >&6; } { $as_echo "$as_me:${as_lineno-$LINENO}: checking for -force_load linker flag" >&5 $as_echo_n "checking for -force_load linker flag... " >&6; } if ${lt_cv_ld_force_load+:} false; then : $as_echo_n "(cached) " >&6 else lt_cv_ld_force_load=no cat > conftest.c << _LT_EOF int forced_loaded() { return 2;} _LT_EOF echo "$LTCC $LTCFLAGS -c -o conftest.o conftest.c" >&5 $LTCC $LTCFLAGS -c -o conftest.o conftest.c 2>&5 echo "$AR cru libconftest.a conftest.o" >&5 $AR cru libconftest.a conftest.o 2>&5 echo "$RANLIB libconftest.a" >&5 $RANLIB libconftest.a 2>&5 cat > conftest.c << _LT_EOF int main() { return 0;} _LT_EOF echo "$LTCC $LTCFLAGS $LDFLAGS -o conftest conftest.c -Wl,-force_load,./libconftest.a" >&5 $LTCC $LTCFLAGS $LDFLAGS -o conftest conftest.c -Wl,-force_load,./libconftest.a 2>conftest.err _lt_result=$? if test -s conftest.err && $GREP force_load conftest.err; then cat conftest.err >&5 elif test -f conftest && test $_lt_result -eq 0 && $GREP forced_load conftest >/dev/null 2>&1 ; then lt_cv_ld_force_load=yes else cat conftest.err >&5 fi rm -f conftest.err libconftest.a conftest conftest.c rm -rf conftest.dSYM fi { $as_echo "$as_me:${as_lineno-$LINENO}: result: $lt_cv_ld_force_load" >&5 $as_echo "$lt_cv_ld_force_load" >&6; } case $host_os in rhapsody* | darwin1.[012]) _lt_dar_allow_undefined='${wl}-undefined ${wl}suppress' ;; darwin1.*) _lt_dar_allow_undefined='${wl}-flat_namespace ${wl}-undefined ${wl}suppress' ;; darwin*) # darwin 5.x on # if running on 10.5 or later, the deployment target defaults # to the OS version, if on x86, and 10.4, the deployment # target defaults to 10.4. Don't you love it? case ${MACOSX_DEPLOYMENT_TARGET-10.0},$host in 10.0,*86*-darwin8*|10.0,*-darwin[91]*) _lt_dar_allow_undefined='${wl}-undefined ${wl}dynamic_lookup' ;; 10.[012]*) _lt_dar_allow_undefined='${wl}-flat_namespace ${wl}-undefined ${wl}suppress' ;; 10.*) _lt_dar_allow_undefined='${wl}-undefined ${wl}dynamic_lookup' ;; esac ;; esac if test "$lt_cv_apple_cc_single_mod" = "yes"; then _lt_dar_single_mod='$single_module' fi if test "$lt_cv_ld_exported_symbols_list" = "yes"; then _lt_dar_export_syms=' ${wl}-exported_symbols_list,$output_objdir/${libname}-symbols.expsym' else _lt_dar_export_syms='~$NMEDIT -s $output_objdir/${libname}-symbols.expsym ${lib}' fi if test "$DSYMUTIL" != ":" && test "$lt_cv_ld_force_load" = "no"; then _lt_dsymutil='~$DSYMUTIL $lib || :' else _lt_dsymutil= fi ;; esac # On IRIX 5.3, sys/types and inttypes.h are conflicting. for ac_header in sys/types.h sys/stat.h stdlib.h string.h memory.h strings.h \ inttypes.h stdint.h unistd.h do : as_ac_Header=`$as_echo "ac_cv_header_$ac_header" | $as_tr_sh` ac_fn_c_check_header_compile "$LINENO" "$ac_header" "$as_ac_Header" "$ac_includes_default " if eval test \"x\$"$as_ac_Header"\" = x"yes"; then : cat >>confdefs.h <<_ACEOF #define `$as_echo "HAVE_$ac_header" | $as_tr_cpp` 1 _ACEOF fi done for ac_header in dlfcn.h do : ac_fn_c_check_header_compile "$LINENO" "dlfcn.h" "ac_cv_header_dlfcn_h" "$ac_includes_default " if test "x$ac_cv_header_dlfcn_h" = xyes; then : cat >>confdefs.h <<_ACEOF #define HAVE_DLFCN_H 1 _ACEOF fi done # Set options enable_dlopen=no enable_win32_dll=no # Check whether --enable-shared was given. if test "${enable_shared+set}" = set; then : enableval=$enable_shared; p=${PACKAGE-default} case $enableval in yes) enable_shared=yes ;; no) enable_shared=no ;; *) enable_shared=no # Look at the argument we got. We use all the common list separators. lt_save_ifs="$IFS"; IFS="${IFS}$PATH_SEPARATOR," for pkg in $enableval; do IFS="$lt_save_ifs" if test "X$pkg" = "X$p"; then enable_shared=yes fi done IFS="$lt_save_ifs" ;; esac else enable_shared=yes fi # Check whether --with-pic was given. if test "${with_pic+set}" = set; then : withval=$with_pic; lt_p=${PACKAGE-default} case $withval in yes|no) pic_mode=$withval ;; *) pic_mode=default # Look at the argument we got. We use all the common list separators. lt_save_ifs="$IFS"; IFS="${IFS}$PATH_SEPARATOR," for lt_pkg in $withval; do IFS="$lt_save_ifs" if test "X$lt_pkg" = "X$lt_p"; then pic_mode=yes fi done IFS="$lt_save_ifs" ;; esac else pic_mode=default fi test -z "$pic_mode" && pic_mode=default # Check whether --enable-fast-install was given. if test "${enable_fast_install+set}" = set; then : enableval=$enable_fast_install; p=${PACKAGE-default} case $enableval in yes) enable_fast_install=yes ;; no) enable_fast_install=no ;; *) enable_fast_install=no # Look at the argument we got. We use all the common list separators. lt_save_ifs="$IFS"; IFS="${IFS}$PATH_SEPARATOR," for pkg in $enableval; do IFS="$lt_save_ifs" if test "X$pkg" = "X$p"; then enable_fast_install=yes fi done IFS="$lt_save_ifs" ;; esac else enable_fast_install=yes fi # This can be used to rebuild libtool when needed LIBTOOL_DEPS="$ltmain" # Always use our own libtool. LIBTOOL='$(SHELL) $(top_builddir)/libtool' test -z "$LN_S" && LN_S="ln -s" if test -n "${ZSH_VERSION+set}" ; then setopt NO_GLOB_SUBST fi { $as_echo "$as_me:${as_lineno-$LINENO}: checking for objdir" >&5 $as_echo_n "checking for objdir... " >&6; } if ${lt_cv_objdir+:} false; then : $as_echo_n "(cached) " >&6 else rm -f .libs 2>/dev/null mkdir .libs 2>/dev/null if test -d .libs; then lt_cv_objdir=.libs else # MS-DOS does not allow filenames that begin with a dot. lt_cv_objdir=_libs fi rmdir .libs 2>/dev/null fi { $as_echo "$as_me:${as_lineno-$LINENO}: result: $lt_cv_objdir" >&5 $as_echo "$lt_cv_objdir" >&6; } objdir=$lt_cv_objdir cat >>confdefs.h <<_ACEOF #define LT_OBJDIR "$lt_cv_objdir/" _ACEOF case $host_os in aix3*) # AIX sometimes has problems with the GCC collect2 program. For some # reason, if we set the COLLECT_NAMES environment variable, the problems # vanish in a puff of smoke. if test "X${COLLECT_NAMES+set}" != Xset; then COLLECT_NAMES= export COLLECT_NAMES fi ;; esac # Global variables: ofile=libtool can_build_shared=yes # All known linkers require a `.a' archive for static linking (except MSVC, # which needs '.lib'). libext=a with_gnu_ld="$lt_cv_prog_gnu_ld" old_CC="$CC" old_CFLAGS="$CFLAGS" # Set sane defaults for various variables test -z "$CC" && CC=cc test -z "$LTCC" && LTCC=$CC test -z "$LTCFLAGS" && LTCFLAGS=$CFLAGS test -z "$LD" && LD=ld test -z "$ac_objext" && ac_objext=o for cc_temp in $compiler""; do case $cc_temp in compile | *[\\/]compile | ccache | *[\\/]ccache ) ;; distcc | *[\\/]distcc | purify | *[\\/]purify ) ;; \-*) ;; *) break;; esac done cc_basename=`$ECHO "$cc_temp" | $SED "s%.*/%%; s%^$host_alias-%%"` # Only perform the check for file, if the check method requires it test -z "$MAGIC_CMD" && MAGIC_CMD=file case $deplibs_check_method in file_magic*) if test "$file_magic_cmd" = '$MAGIC_CMD'; then { $as_echo "$as_me:${as_lineno-$LINENO}: checking for ${ac_tool_prefix}file" >&5 $as_echo_n "checking for ${ac_tool_prefix}file... " >&6; } if ${lt_cv_path_MAGIC_CMD+:} false; then : $as_echo_n "(cached) " >&6 else case $MAGIC_CMD in [\\/*] | ?:[\\/]*) lt_cv_path_MAGIC_CMD="$MAGIC_CMD" # Let the user override the test with a path. ;; *) lt_save_MAGIC_CMD="$MAGIC_CMD" lt_save_ifs="$IFS"; IFS=$PATH_SEPARATOR ac_dummy="/usr/bin$PATH_SEPARATOR$PATH" for ac_dir in $ac_dummy; do IFS="$lt_save_ifs" test -z "$ac_dir" && ac_dir=. if test -f $ac_dir/${ac_tool_prefix}file; then lt_cv_path_MAGIC_CMD="$ac_dir/${ac_tool_prefix}file" if test -n "$file_magic_test_file"; then case $deplibs_check_method in "file_magic "*) file_magic_regex=`expr "$deplibs_check_method" : "file_magic \(.*\)"` MAGIC_CMD="$lt_cv_path_MAGIC_CMD" if eval $file_magic_cmd \$file_magic_test_file 2> /dev/null | $EGREP "$file_magic_regex" > /dev/null; then : else cat <<_LT_EOF 1>&2 *** Warning: the command libtool uses to detect shared libraries, *** $file_magic_cmd, produces output that libtool cannot recognize. *** The result is that libtool may fail to recognize shared libraries *** as such. This will affect the creation of libtool libraries that *** depend on shared libraries, but programs linked with such libtool *** libraries will work regardless of this problem. Nevertheless, you *** may want to report the problem to your system manager and/or to *** bug-libtool@gnu.org _LT_EOF fi ;; esac fi break fi done IFS="$lt_save_ifs" MAGIC_CMD="$lt_save_MAGIC_CMD" ;; esac fi MAGIC_CMD="$lt_cv_path_MAGIC_CMD" if test -n "$MAGIC_CMD"; then { $as_echo "$as_me:${as_lineno-$LINENO}: result: $MAGIC_CMD" >&5 $as_echo "$MAGIC_CMD" >&6; } else { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5 $as_echo "no" >&6; } fi if test -z "$lt_cv_path_MAGIC_CMD"; then if test -n "$ac_tool_prefix"; then { $as_echo "$as_me:${as_lineno-$LINENO}: checking for file" >&5 $as_echo_n "checking for file... " >&6; } if ${lt_cv_path_MAGIC_CMD+:} false; then : $as_echo_n "(cached) " >&6 else case $MAGIC_CMD in [\\/*] | ?:[\\/]*) lt_cv_path_MAGIC_CMD="$MAGIC_CMD" # Let the user override the test with a path. ;; *) lt_save_MAGIC_CMD="$MAGIC_CMD" lt_save_ifs="$IFS"; IFS=$PATH_SEPARATOR ac_dummy="/usr/bin$PATH_SEPARATOR$PATH" for ac_dir in $ac_dummy; do IFS="$lt_save_ifs" test -z "$ac_dir" && ac_dir=. if test -f $ac_dir/file; then lt_cv_path_MAGIC_CMD="$ac_dir/file" if test -n "$file_magic_test_file"; then case $deplibs_check_method in "file_magic "*) file_magic_regex=`expr "$deplibs_check_method" : "file_magic \(.*\)"` MAGIC_CMD="$lt_cv_path_MAGIC_CMD" if eval $file_magic_cmd \$file_magic_test_file 2> /dev/null | $EGREP "$file_magic_regex" > /dev/null; then : else cat <<_LT_EOF 1>&2 *** Warning: the command libtool uses to detect shared libraries, *** $file_magic_cmd, produces output that libtool cannot recognize. *** The result is that libtool may fail to recognize shared libraries *** as such. This will affect the creation of libtool libraries that *** depend on shared libraries, but programs linked with such libtool *** libraries will work regardless of this problem. Nevertheless, you *** may want to report the problem to your system manager and/or to *** bug-libtool@gnu.org _LT_EOF fi ;; esac fi break fi done IFS="$lt_save_ifs" MAGIC_CMD="$lt_save_MAGIC_CMD" ;; esac fi MAGIC_CMD="$lt_cv_path_MAGIC_CMD" if test -n "$MAGIC_CMD"; then { $as_echo "$as_me:${as_lineno-$LINENO}: result: $MAGIC_CMD" >&5 $as_echo "$MAGIC_CMD" >&6; } else { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5 $as_echo "no" >&6; } fi else MAGIC_CMD=: fi fi fi ;; esac # Use C for the default configuration in the libtool script lt_save_CC="$CC" ac_ext=c ac_cpp='$CPP $CPPFLAGS' ac_compile='$CC -c $CFLAGS $CPPFLAGS conftest.$ac_ext >&5' ac_link='$CC -o conftest$ac_exeext $CFLAGS $CPPFLAGS $LDFLAGS conftest.$ac_ext $LIBS >&5' ac_compiler_gnu=$ac_cv_c_compiler_gnu # Source file extension for C test sources. ac_ext=c # Object file extension for compiled C test sources. objext=o objext=$objext # Code to be used in simple compile tests lt_simple_compile_test_code="int some_variable = 0;" # Code to be used in simple link tests lt_simple_link_test_code='int main(){return(0);}' # If no C compiler was specified, use CC. LTCC=${LTCC-"$CC"} # If no C compiler flags were specified, use CFLAGS. LTCFLAGS=${LTCFLAGS-"$CFLAGS"} # Allow CC to be a program name with arguments. compiler=$CC # Save the default compiler, since it gets overwritten when the other # tags are being tested, and _LT_TAGVAR(compiler, []) is a NOP. compiler_DEFAULT=$CC # save warnings/boilerplate of simple test code ac_outfile=conftest.$ac_objext echo "$lt_simple_compile_test_code" >conftest.$ac_ext eval "$ac_compile" 2>&1 >/dev/null | $SED '/^$/d; /^ *+/d' >conftest.err _lt_compiler_boilerplate=`cat conftest.err` $RM conftest* ac_outfile=conftest.$ac_objext echo "$lt_simple_link_test_code" >conftest.$ac_ext eval "$ac_link" 2>&1 >/dev/null | $SED '/^$/d; /^ *+/d' >conftest.err _lt_linker_boilerplate=`cat conftest.err` $RM -r conftest* if test -n "$compiler"; then lt_prog_compiler_no_builtin_flag= if test "$GCC" = yes; then case $cc_basename in nvcc*) lt_prog_compiler_no_builtin_flag=' -Xcompiler -fno-builtin' ;; *) lt_prog_compiler_no_builtin_flag=' -fno-builtin' ;; esac { $as_echo "$as_me:${as_lineno-$LINENO}: checking if $compiler supports -fno-rtti -fno-exceptions" >&5 $as_echo_n "checking if $compiler supports -fno-rtti -fno-exceptions... " >&6; } if ${lt_cv_prog_compiler_rtti_exceptions+:} false; then : $as_echo_n "(cached) " >&6 else lt_cv_prog_compiler_rtti_exceptions=no ac_outfile=conftest.$ac_objext echo "$lt_simple_compile_test_code" > conftest.$ac_ext lt_compiler_flag="-fno-rtti -fno-exceptions" # Insert the option either (1) after the last *FLAGS variable, or # (2) before a word containing "conftest.", or (3) at the end. # Note that $ac_compile itself does not contain backslashes and begins # with a dollar sign (not a hyphen), so the echo should work correctly. # The option is referenced via a variable to avoid confusing sed. lt_compile=`echo "$ac_compile" | $SED \ -e 's:.*FLAGS}\{0,1\} :&$lt_compiler_flag :; t' \ -e 's: [^ ]*conftest\.: $lt_compiler_flag&:; t' \ -e 's:$: $lt_compiler_flag:'` (eval echo "\"\$as_me:$LINENO: $lt_compile\"" >&5) (eval "$lt_compile" 2>conftest.err) ac_status=$? cat conftest.err >&5 echo "$as_me:$LINENO: \$? = $ac_status" >&5 if (exit $ac_status) && test -s "$ac_outfile"; then # The compiler can only warn and ignore the option if not recognized # So say no if there are warnings other than the usual output. $ECHO "$_lt_compiler_boilerplate" | $SED '/^$/d' >conftest.exp $SED '/^$/d; /^ *+/d' conftest.err >conftest.er2 if test ! -s conftest.er2 || diff conftest.exp conftest.er2 >/dev/null; then lt_cv_prog_compiler_rtti_exceptions=yes fi fi $RM conftest* fi { $as_echo "$as_me:${as_lineno-$LINENO}: result: $lt_cv_prog_compiler_rtti_exceptions" >&5 $as_echo "$lt_cv_prog_compiler_rtti_exceptions" >&6; } if test x"$lt_cv_prog_compiler_rtti_exceptions" = xyes; then lt_prog_compiler_no_builtin_flag="$lt_prog_compiler_no_builtin_flag -fno-rtti -fno-exceptions" else : fi fi lt_prog_compiler_wl= lt_prog_compiler_pic= lt_prog_compiler_static= if test "$GCC" = yes; then lt_prog_compiler_wl='-Wl,' lt_prog_compiler_static='-static' case $host_os in aix*) # All AIX code is PIC. if test "$host_cpu" = ia64; then # AIX 5 now supports IA64 processor lt_prog_compiler_static='-Bstatic' fi ;; amigaos*) case $host_cpu in powerpc) # see comment about AmigaOS4 .so support lt_prog_compiler_pic='-fPIC' ;; m68k) # FIXME: we need at least 68020 code to build shared libraries, but # adding the `-m68020' flag to GCC prevents building anything better, # like `-m68040'. lt_prog_compiler_pic='-m68020 -resident32 -malways-restore-a4' ;; esac ;; beos* | irix5* | irix6* | nonstopux* | osf3* | osf4* | osf5*) # PIC is the default for these OSes. ;; mingw* | cygwin* | pw32* | os2* | cegcc*) # This hack is so that the source file can tell whether it is being # built for inclusion in a dll (and should export symbols for example). # Although the cygwin gcc ignores -fPIC, still need this for old-style # (--disable-auto-import) libraries lt_prog_compiler_pic='-DDLL_EXPORT' ;; darwin* | rhapsody*) # PIC is the default on this platform # Common symbols not allowed in MH_DYLIB files lt_prog_compiler_pic='-fno-common' ;; haiku*) # PIC is the default for Haiku. # The "-static" flag exists, but is broken. lt_prog_compiler_static= ;; hpux*) # PIC is the default for 64-bit PA HP-UX, but not for 32-bit # PA HP-UX. On IA64 HP-UX, PIC is the default but the pic flag # sets the default TLS model and affects inlining. case $host_cpu in hppa*64*) # +Z the default ;; *) lt_prog_compiler_pic='-fPIC' ;; esac ;; interix[3-9]*) # Interix 3.x gcc -fpic/-fPIC options generate broken code. # Instead, we relocate shared libraries at runtime. ;; msdosdjgpp*) # Just because we use GCC doesn't mean we suddenly get shared libraries # on systems that don't support them. lt_prog_compiler_can_build_shared=no enable_shared=no ;; *nto* | *qnx*) # QNX uses GNU C++, but need to define -shared option too, otherwise # it will coredump. lt_prog_compiler_pic='-fPIC -shared' ;; sysv4*MP*) if test -d /usr/nec; then lt_prog_compiler_pic=-Kconform_pic fi ;; *) lt_prog_compiler_pic='-fPIC' ;; esac case $cc_basename in nvcc*) # Cuda Compiler Driver 2.2 lt_prog_compiler_wl='-Xlinker ' if test -n "$lt_prog_compiler_pic"; then lt_prog_compiler_pic="-Xcompiler $lt_prog_compiler_pic" fi ;; esac else # PORTME Check for flag to pass linker flags through the system compiler. case $host_os in aix*) lt_prog_compiler_wl='-Wl,' if test "$host_cpu" = ia64; then # AIX 5 now supports IA64 processor lt_prog_compiler_static='-Bstatic' else lt_prog_compiler_static='-bnso -bI:/lib/syscalls.exp' fi ;; mingw* | cygwin* | pw32* | os2* | cegcc*) # This hack is so that the source file can tell whether it is being # built for inclusion in a dll (and should export symbols for example). lt_prog_compiler_pic='-DDLL_EXPORT' ;; hpux9* | hpux10* | hpux11*) lt_prog_compiler_wl='-Wl,' # PIC is the default for IA64 HP-UX and 64-bit HP-UX, but # not for PA HP-UX. case $host_cpu in hppa*64*|ia64*) # +Z the default ;; *) lt_prog_compiler_pic='+Z' ;; esac # Is there a better lt_prog_compiler_static that works with the bundled CC? lt_prog_compiler_static='${wl}-a ${wl}archive' ;; irix5* | irix6* | nonstopux*) lt_prog_compiler_wl='-Wl,' # PIC (with -KPIC) is the default. lt_prog_compiler_static='-non_shared' ;; linux* | k*bsd*-gnu | kopensolaris*-gnu) case $cc_basename in # old Intel for x86_64 which still supported -KPIC. ecc*) lt_prog_compiler_wl='-Wl,' lt_prog_compiler_pic='-KPIC' lt_prog_compiler_static='-static' ;; # icc used to be incompatible with GCC. # ICC 10 doesn't accept -KPIC any more. icc* | ifort*) lt_prog_compiler_wl='-Wl,' lt_prog_compiler_pic='-fPIC' lt_prog_compiler_static='-static' ;; # Lahey Fortran 8.1. lf95*) lt_prog_compiler_wl='-Wl,' lt_prog_compiler_pic='--shared' lt_prog_compiler_static='--static' ;; nagfor*) # NAG Fortran compiler lt_prog_compiler_wl='-Wl,-Wl,,' lt_prog_compiler_pic='-PIC' lt_prog_compiler_static='-Bstatic' ;; pgcc* | pgf77* | pgf90* | pgf95* | pgfortran*) # Portland Group compilers (*not* the Pentium gcc compiler, # which looks to be a dead project) lt_prog_compiler_wl='-Wl,' lt_prog_compiler_pic='-fpic' lt_prog_compiler_static='-Bstatic' ;; ccc*) lt_prog_compiler_wl='-Wl,' # All Alpha code is PIC. lt_prog_compiler_static='-non_shared' ;; xl* | bgxl* | bgf* | mpixl*) # IBM XL C 8.0/Fortran 10.1, 11.1 on PPC and BlueGene lt_prog_compiler_wl='-Wl,' lt_prog_compiler_pic='-qpic' lt_prog_compiler_static='-qstaticlink' ;; *) case `$CC -V 2>&1 | sed 5q` in *Sun\ Ceres\ Fortran* | *Sun*Fortran*\ [1-7].* | *Sun*Fortran*\ 8.[0-3]*) # Sun Fortran 8.3 passes all unrecognized flags to the linker lt_prog_compiler_pic='-KPIC' lt_prog_compiler_static='-Bstatic' lt_prog_compiler_wl='' ;; *Sun\ F* | *Sun*Fortran*) lt_prog_compiler_pic='-KPIC' lt_prog_compiler_static='-Bstatic' lt_prog_compiler_wl='-Qoption ld ' ;; *Sun\ C*) # Sun C 5.9 lt_prog_compiler_pic='-KPIC' lt_prog_compiler_static='-Bstatic' lt_prog_compiler_wl='-Wl,' ;; *Intel*\ [CF]*Compiler*) lt_prog_compiler_wl='-Wl,' lt_prog_compiler_pic='-fPIC' lt_prog_compiler_static='-static' ;; *Portland\ Group*) lt_prog_compiler_wl='-Wl,' lt_prog_compiler_pic='-fpic' lt_prog_compiler_static='-Bstatic' ;; esac ;; esac ;; newsos6) lt_prog_compiler_pic='-KPIC' lt_prog_compiler_static='-Bstatic' ;; *nto* | *qnx*) # QNX uses GNU C++, but need to define -shared option too, otherwise # it will coredump. lt_prog_compiler_pic='-fPIC -shared' ;; osf3* | osf4* | osf5*) lt_prog_compiler_wl='-Wl,' # All OSF/1 code is PIC. lt_prog_compiler_static='-non_shared' ;; rdos*) lt_prog_compiler_static='-non_shared' ;; solaris*) lt_prog_compiler_pic='-KPIC' lt_prog_compiler_static='-Bstatic' case $cc_basename in f77* | f90* | f95* | sunf77* | sunf90* | sunf95*) lt_prog_compiler_wl='-Qoption ld ';; *) lt_prog_compiler_wl='-Wl,';; esac ;; sunos4*) lt_prog_compiler_wl='-Qoption ld ' lt_prog_compiler_pic='-PIC' lt_prog_compiler_static='-Bstatic' ;; sysv4 | sysv4.2uw2* | sysv4.3*) lt_prog_compiler_wl='-Wl,' lt_prog_compiler_pic='-KPIC' lt_prog_compiler_static='-Bstatic' ;; sysv4*MP*) if test -d /usr/nec ;then lt_prog_compiler_pic='-Kconform_pic' lt_prog_compiler_static='-Bstatic' fi ;; sysv5* | unixware* | sco3.2v5* | sco5v6* | OpenUNIX*) lt_prog_compiler_wl='-Wl,' lt_prog_compiler_pic='-KPIC' lt_prog_compiler_static='-Bstatic' ;; unicos*) lt_prog_compiler_wl='-Wl,' lt_prog_compiler_can_build_shared=no ;; uts4*) lt_prog_compiler_pic='-pic' lt_prog_compiler_static='-Bstatic' ;; *) lt_prog_compiler_can_build_shared=no ;; esac fi case $host_os in # For platforms which do not support PIC, -DPIC is meaningless: *djgpp*) lt_prog_compiler_pic= ;; *) lt_prog_compiler_pic="$lt_prog_compiler_pic -DPIC" ;; esac { $as_echo "$as_me:${as_lineno-$LINENO}: checking for $compiler option to produce PIC" >&5 $as_echo_n "checking for $compiler option to produce PIC... " >&6; } if ${lt_cv_prog_compiler_pic+:} false; then : $as_echo_n "(cached) " >&6 else lt_cv_prog_compiler_pic=$lt_prog_compiler_pic fi { $as_echo "$as_me:${as_lineno-$LINENO}: result: $lt_cv_prog_compiler_pic" >&5 $as_echo "$lt_cv_prog_compiler_pic" >&6; } lt_prog_compiler_pic=$lt_cv_prog_compiler_pic # # Check to make sure the PIC flag actually works. # if test -n "$lt_prog_compiler_pic"; then { $as_echo "$as_me:${as_lineno-$LINENO}: checking if $compiler PIC flag $lt_prog_compiler_pic works" >&5 $as_echo_n "checking if $compiler PIC flag $lt_prog_compiler_pic works... " >&6; } if ${lt_cv_prog_compiler_pic_works+:} false; then : $as_echo_n "(cached) " >&6 else lt_cv_prog_compiler_pic_works=no ac_outfile=conftest.$ac_objext echo "$lt_simple_compile_test_code" > conftest.$ac_ext lt_compiler_flag="$lt_prog_compiler_pic -DPIC" # Insert the option either (1) after the last *FLAGS variable, or # (2) before a word containing "conftest.", or (3) at the end. # Note that $ac_compile itself does not contain backslashes and begins # with a dollar sign (not a hyphen), so the echo should work correctly. # The option is referenced via a variable to avoid confusing sed. lt_compile=`echo "$ac_compile" | $SED \ -e 's:.*FLAGS}\{0,1\} :&$lt_compiler_flag :; t' \ -e 's: [^ ]*conftest\.: $lt_compiler_flag&:; t' \ -e 's:$: $lt_compiler_flag:'` (eval echo "\"\$as_me:$LINENO: $lt_compile\"" >&5) (eval "$lt_compile" 2>conftest.err) ac_status=$? cat conftest.err >&5 echo "$as_me:$LINENO: \$? = $ac_status" >&5 if (exit $ac_status) && test -s "$ac_outfile"; then # The compiler can only warn and ignore the option if not recognized # So say no if there are warnings other than the usual output. $ECHO "$_lt_compiler_boilerplate" | $SED '/^$/d' >conftest.exp $SED '/^$/d; /^ *+/d' conftest.err >conftest.er2 if test ! -s conftest.er2 || diff conftest.exp conftest.er2 >/dev/null; then lt_cv_prog_compiler_pic_works=yes fi fi $RM conftest* fi { $as_echo "$as_me:${as_lineno-$LINENO}: result: $lt_cv_prog_compiler_pic_works" >&5 $as_echo "$lt_cv_prog_compiler_pic_works" >&6; } if test x"$lt_cv_prog_compiler_pic_works" = xyes; then case $lt_prog_compiler_pic in "" | " "*) ;; *) lt_prog_compiler_pic=" $lt_prog_compiler_pic" ;; esac else lt_prog_compiler_pic= lt_prog_compiler_can_build_shared=no fi fi # # Check to make sure the static flag actually works. # wl=$lt_prog_compiler_wl eval lt_tmp_static_flag=\"$lt_prog_compiler_static\" { $as_echo "$as_me:${as_lineno-$LINENO}: checking if $compiler static flag $lt_tmp_static_flag works" >&5 $as_echo_n "checking if $compiler static flag $lt_tmp_static_flag works... " >&6; } if ${lt_cv_prog_compiler_static_works+:} false; then : $as_echo_n "(cached) " >&6 else lt_cv_prog_compiler_static_works=no save_LDFLAGS="$LDFLAGS" LDFLAGS="$LDFLAGS $lt_tmp_static_flag" echo "$lt_simple_link_test_code" > conftest.$ac_ext if (eval $ac_link 2>conftest.err) && test -s conftest$ac_exeext; then # The linker can only warn and ignore the option if not recognized # So say no if there are warnings if test -s conftest.err; then # Append any errors to the config.log. cat conftest.err 1>&5 $ECHO "$_lt_linker_boilerplate" | $SED '/^$/d' > conftest.exp $SED '/^$/d; /^ *+/d' conftest.err >conftest.er2 if diff conftest.exp conftest.er2 >/dev/null; then lt_cv_prog_compiler_static_works=yes fi else lt_cv_prog_compiler_static_works=yes fi fi $RM -r conftest* LDFLAGS="$save_LDFLAGS" fi { $as_echo "$as_me:${as_lineno-$LINENO}: result: $lt_cv_prog_compiler_static_works" >&5 $as_echo "$lt_cv_prog_compiler_static_works" >&6; } if test x"$lt_cv_prog_compiler_static_works" = xyes; then : else lt_prog_compiler_static= fi { $as_echo "$as_me:${as_lineno-$LINENO}: checking if $compiler supports -c -o file.$ac_objext" >&5 $as_echo_n "checking if $compiler supports -c -o file.$ac_objext... " >&6; } if ${lt_cv_prog_compiler_c_o+:} false; then : $as_echo_n "(cached) " >&6 else lt_cv_prog_compiler_c_o=no $RM -r conftest 2>/dev/null mkdir conftest cd conftest mkdir out echo "$lt_simple_compile_test_code" > conftest.$ac_ext lt_compiler_flag="-o out/conftest2.$ac_objext" # Insert the option either (1) after the last *FLAGS variable, or # (2) before a word containing "conftest.", or (3) at the end. # Note that $ac_compile itself does not contain backslashes and begins # with a dollar sign (not a hyphen), so the echo should work correctly. lt_compile=`echo "$ac_compile" | $SED \ -e 's:.*FLAGS}\{0,1\} :&$lt_compiler_flag :; t' \ -e 's: [^ ]*conftest\.: $lt_compiler_flag&:; t' \ -e 's:$: $lt_compiler_flag:'` (eval echo "\"\$as_me:$LINENO: $lt_compile\"" >&5) (eval "$lt_compile" 2>out/conftest.err) ac_status=$? cat out/conftest.err >&5 echo "$as_me:$LINENO: \$? = $ac_status" >&5 if (exit $ac_status) && test -s out/conftest2.$ac_objext then # The compiler can only warn and ignore the option if not recognized # So say no if there are warnings $ECHO "$_lt_compiler_boilerplate" | $SED '/^$/d' > out/conftest.exp $SED '/^$/d; /^ *+/d' out/conftest.err >out/conftest.er2 if test ! -s out/conftest.er2 || diff out/conftest.exp out/conftest.er2 >/dev/null; then lt_cv_prog_compiler_c_o=yes fi fi chmod u+w . 2>&5 $RM conftest* # SGI C++ compiler will create directory out/ii_files/ for # template instantiation test -d out/ii_files && $RM out/ii_files/* && rmdir out/ii_files $RM out/* && rmdir out cd .. $RM -r conftest $RM conftest* fi { $as_echo "$as_me:${as_lineno-$LINENO}: result: $lt_cv_prog_compiler_c_o" >&5 $as_echo "$lt_cv_prog_compiler_c_o" >&6; } { $as_echo "$as_me:${as_lineno-$LINENO}: checking if $compiler supports -c -o file.$ac_objext" >&5 $as_echo_n "checking if $compiler supports -c -o file.$ac_objext... " >&6; } if ${lt_cv_prog_compiler_c_o+:} false; then : $as_echo_n "(cached) " >&6 else lt_cv_prog_compiler_c_o=no $RM -r conftest 2>/dev/null mkdir conftest cd conftest mkdir out echo "$lt_simple_compile_test_code" > conftest.$ac_ext lt_compiler_flag="-o out/conftest2.$ac_objext" # Insert the option either (1) after the last *FLAGS variable, or # (2) before a word containing "conftest.", or (3) at the end. # Note that $ac_compile itself does not contain backslashes and begins # with a dollar sign (not a hyphen), so the echo should work correctly. lt_compile=`echo "$ac_compile" | $SED \ -e 's:.*FLAGS}\{0,1\} :&$lt_compiler_flag :; t' \ -e 's: [^ ]*conftest\.: $lt_compiler_flag&:; t' \ -e 's:$: $lt_compiler_flag:'` (eval echo "\"\$as_me:$LINENO: $lt_compile\"" >&5) (eval "$lt_compile" 2>out/conftest.err) ac_status=$? cat out/conftest.err >&5 echo "$as_me:$LINENO: \$? = $ac_status" >&5 if (exit $ac_status) && test -s out/conftest2.$ac_objext then # The compiler can only warn and ignore the option if not recognized # So say no if there are warnings $ECHO "$_lt_compiler_boilerplate" | $SED '/^$/d' > out/conftest.exp $SED '/^$/d; /^ *+/d' out/conftest.err >out/conftest.er2 if test ! -s out/conftest.er2 || diff out/conftest.exp out/conftest.er2 >/dev/null; then lt_cv_prog_compiler_c_o=yes fi fi chmod u+w . 2>&5 $RM conftest* # SGI C++ compiler will create directory out/ii_files/ for # template instantiation test -d out/ii_files && $RM out/ii_files/* && rmdir out/ii_files $RM out/* && rmdir out cd .. $RM -r conftest $RM conftest* fi { $as_echo "$as_me:${as_lineno-$LINENO}: result: $lt_cv_prog_compiler_c_o" >&5 $as_echo "$lt_cv_prog_compiler_c_o" >&6; } hard_links="nottested" if test "$lt_cv_prog_compiler_c_o" = no && test "$need_locks" != no; then # do not overwrite the value of need_locks provided by the user { $as_echo "$as_me:${as_lineno-$LINENO}: checking if we can lock with hard links" >&5 $as_echo_n "checking if we can lock with hard links... " >&6; } hard_links=yes $RM conftest* ln conftest.a conftest.b 2>/dev/null && hard_links=no touch conftest.a ln conftest.a conftest.b 2>&5 || hard_links=no ln conftest.a conftest.b 2>/dev/null && hard_links=no { $as_echo "$as_me:${as_lineno-$LINENO}: result: $hard_links" >&5 $as_echo "$hard_links" >&6; } if test "$hard_links" = no; then { $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: \`$CC' does not support \`-c -o', so \`make -j' may be unsafe" >&5 $as_echo "$as_me: WARNING: \`$CC' does not support \`-c -o', so \`make -j' may be unsafe" >&2;} need_locks=warn fi else need_locks=no fi { $as_echo "$as_me:${as_lineno-$LINENO}: checking whether the $compiler linker ($LD) supports shared libraries" >&5 $as_echo_n "checking whether the $compiler linker ($LD) supports shared libraries... " >&6; } runpath_var= allow_undefined_flag= always_export_symbols=no archive_cmds= archive_expsym_cmds= compiler_needs_object=no enable_shared_with_static_runtimes=no export_dynamic_flag_spec= export_symbols_cmds='$NM $libobjs $convenience | $global_symbol_pipe | $SED '\''s/.* //'\'' | sort | uniq > $export_symbols' hardcode_automatic=no hardcode_direct=no hardcode_direct_absolute=no hardcode_libdir_flag_spec= hardcode_libdir_separator= hardcode_minus_L=no hardcode_shlibpath_var=unsupported inherit_rpath=no link_all_deplibs=unknown module_cmds= module_expsym_cmds= old_archive_from_new_cmds= old_archive_from_expsyms_cmds= thread_safe_flag_spec= whole_archive_flag_spec= # include_expsyms should be a list of space-separated symbols to be *always* # included in the symbol list include_expsyms= # exclude_expsyms can be an extended regexp of symbols to exclude # it will be wrapped by ` (' and `)$', so one must not match beginning or # end of line. Example: `a|bc|.*d.*' will exclude the symbols `a' and `bc', # as well as any symbol that contains `d'. exclude_expsyms='_GLOBAL_OFFSET_TABLE_|_GLOBAL__F[ID]_.*' # Although _GLOBAL_OFFSET_TABLE_ is a valid symbol C name, most a.out # platforms (ab)use it in PIC code, but their linkers get confused if # the symbol is explicitly referenced. Since portable code cannot # rely on this symbol name, it's probably fine to never include it in # preloaded symbol tables. # Exclude shared library initialization/finalization symbols. extract_expsyms_cmds= case $host_os in cygwin* | mingw* | pw32* | cegcc*) # FIXME: the MSVC++ port hasn't been tested in a loooong time # When not using gcc, we currently assume that we are using # Microsoft Visual C++. if test "$GCC" != yes; then with_gnu_ld=no fi ;; interix*) # we just hope/assume this is gcc and not c89 (= MSVC++) with_gnu_ld=yes ;; openbsd*) with_gnu_ld=no ;; linux* | k*bsd*-gnu | gnu*) link_all_deplibs=no ;; esac ld_shlibs=yes # On some targets, GNU ld is compatible enough with the native linker # that we're better off using the native interface for both. lt_use_gnu_ld_interface=no if test "$with_gnu_ld" = yes; then case $host_os in aix*) # The AIX port of GNU ld has always aspired to compatibility # with the native linker. However, as the warning in the GNU ld # block says, versions before 2.19.5* couldn't really create working # shared libraries, regardless of the interface used. case `$LD -v 2>&1` in *\ \(GNU\ Binutils\)\ 2.19.5*) ;; *\ \(GNU\ Binutils\)\ 2.[2-9]*) ;; *\ \(GNU\ Binutils\)\ [3-9]*) ;; *) lt_use_gnu_ld_interface=yes ;; esac ;; *) lt_use_gnu_ld_interface=yes ;; esac fi if test "$lt_use_gnu_ld_interface" = yes; then # If archive_cmds runs LD, not CC, wlarc should be empty wlarc='${wl}' # Set some defaults for GNU ld with shared library support. These # are reset later if shared libraries are not supported. Putting them # here allows them to be overridden if necessary. runpath_var=LD_RUN_PATH hardcode_libdir_flag_spec='${wl}-rpath ${wl}$libdir' export_dynamic_flag_spec='${wl}--export-dynamic' # ancient GNU ld didn't support --whole-archive et. al. if $LD --help 2>&1 | $GREP 'no-whole-archive' > /dev/null; then whole_archive_flag_spec="$wlarc"'--whole-archive$convenience '"$wlarc"'--no-whole-archive' else whole_archive_flag_spec= fi supports_anon_versioning=no case `$LD -v 2>&1` in *GNU\ gold*) supports_anon_versioning=yes ;; *\ [01].* | *\ 2.[0-9].* | *\ 2.10.*) ;; # catch versions < 2.11 *\ 2.11.93.0.2\ *) supports_anon_versioning=yes ;; # RH7.3 ... *\ 2.11.92.0.12\ *) supports_anon_versioning=yes ;; # Mandrake 8.2 ... *\ 2.11.*) ;; # other 2.11 versions *) supports_anon_versioning=yes ;; esac # See if GNU ld supports shared libraries. case $host_os in aix[3-9]*) # On AIX/PPC, the GNU linker is very broken if test "$host_cpu" != ia64; then ld_shlibs=no cat <<_LT_EOF 1>&2 *** Warning: the GNU linker, at least up to release 2.19, is reported *** to be unable to reliably create shared libraries on AIX. *** Therefore, libtool is disabling shared libraries support. If you *** really care for shared libraries, you may want to install binutils *** 2.20 or above, or modify your PATH so that a non-GNU linker is found. *** You will then need to restart the configuration process. _LT_EOF fi ;; amigaos*) case $host_cpu in powerpc) # see comment about AmigaOS4 .so support archive_cmds='$CC -shared $libobjs $deplibs $compiler_flags ${wl}-soname $wl$soname -o $lib' archive_expsym_cmds='' ;; m68k) archive_cmds='$RM $output_objdir/a2ixlibrary.data~$ECHO "#define NAME $libname" > $output_objdir/a2ixlibrary.data~$ECHO "#define LIBRARY_ID 1" >> $output_objdir/a2ixlibrary.data~$ECHO "#define VERSION $major" >> $output_objdir/a2ixlibrary.data~$ECHO "#define REVISION $revision" >> $output_objdir/a2ixlibrary.data~$AR $AR_FLAGS $lib $libobjs~$RANLIB $lib~(cd $output_objdir && a2ixlibrary -32)' hardcode_libdir_flag_spec='-L$libdir' hardcode_minus_L=yes ;; esac ;; beos*) if $LD --help 2>&1 | $GREP ': supported targets:.* elf' > /dev/null; then allow_undefined_flag=unsupported # Joseph Beckenbach says some releases of gcc # support --undefined. This deserves some investigation. FIXME archive_cmds='$CC -nostart $libobjs $deplibs $compiler_flags ${wl}-soname $wl$soname -o $lib' else ld_shlibs=no fi ;; cygwin* | mingw* | pw32* | cegcc*) # _LT_TAGVAR(hardcode_libdir_flag_spec, ) is actually meaningless, # as there is no search path for DLLs. hardcode_libdir_flag_spec='-L$libdir' export_dynamic_flag_spec='${wl}--export-all-symbols' allow_undefined_flag=unsupported always_export_symbols=no enable_shared_with_static_runtimes=yes export_symbols_cmds='$NM $libobjs $convenience | $global_symbol_pipe | $SED -e '\''/^[BCDGRS][ ]/s/.*[ ]\([^ ]*\)/\1 DATA/;s/^.*[ ]__nm__\([^ ]*\)[ ][^ ]*/\1 DATA/;/^I[ ]/d;/^[AITW][ ]/s/.* //'\'' | sort | uniq > $export_symbols' exclude_expsyms='[_]+GLOBAL_OFFSET_TABLE_|[_]+GLOBAL__[FID]_.*|[_]+head_[A-Za-z0-9_]+_dll|[A-Za-z0-9_]+_dll_iname' if $LD --help 2>&1 | $GREP 'auto-import' > /dev/null; then archive_cmds='$CC -shared $libobjs $deplibs $compiler_flags -o $output_objdir/$soname ${wl}--enable-auto-image-base -Xlinker --out-implib -Xlinker $lib' # If the export-symbols file already is a .def file (1st line # is EXPORTS), use it as is; otherwise, prepend... archive_expsym_cmds='if test "x`$SED 1q $export_symbols`" = xEXPORTS; then cp $export_symbols $output_objdir/$soname.def; else echo EXPORTS > $output_objdir/$soname.def; cat $export_symbols >> $output_objdir/$soname.def; fi~ $CC -shared $output_objdir/$soname.def $libobjs $deplibs $compiler_flags -o $output_objdir/$soname ${wl}--enable-auto-image-base -Xlinker --out-implib -Xlinker $lib' else ld_shlibs=no fi ;; haiku*) archive_cmds='$CC -shared $libobjs $deplibs $compiler_flags ${wl}-soname $wl$soname -o $lib' link_all_deplibs=yes ;; interix[3-9]*) hardcode_direct=no hardcode_shlibpath_var=no hardcode_libdir_flag_spec='${wl}-rpath,$libdir' export_dynamic_flag_spec='${wl}-E' # Hack: On Interix 3.x, we cannot compile PIC because of a broken gcc. # Instead, shared libraries are loaded at an image base (0x10000000 by # default) and relocated if they conflict, which is a slow very memory # consuming and fragmenting process. To avoid this, we pick a random, # 256 KiB-aligned image base between 0x50000000 and 0x6FFC0000 at link # time. Moving up from 0x10000000 also allows more sbrk(2) space. archive_cmds='$CC -shared $pic_flag $libobjs $deplibs $compiler_flags ${wl}-h,$soname ${wl}--image-base,`expr ${RANDOM-$$} % 4096 / 2 \* 262144 + 1342177280` -o $lib' archive_expsym_cmds='sed "s,^,_," $export_symbols >$output_objdir/$soname.expsym~$CC -shared $pic_flag $libobjs $deplibs $compiler_flags ${wl}-h,$soname ${wl}--retain-symbols-file,$output_objdir/$soname.expsym ${wl}--image-base,`expr ${RANDOM-$$} % 4096 / 2 \* 262144 + 1342177280` -o $lib' ;; gnu* | linux* | tpf* | k*bsd*-gnu | kopensolaris*-gnu) tmp_diet=no if test "$host_os" = linux-dietlibc; then case $cc_basename in diet\ *) tmp_diet=yes;; # linux-dietlibc with static linking (!diet-dyn) esac fi if $LD --help 2>&1 | $EGREP ': supported targets:.* elf' > /dev/null \ && test "$tmp_diet" = no then tmp_addflag=' $pic_flag' tmp_sharedflag='-shared' case $cc_basename,$host_cpu in pgcc*) # Portland Group C compiler whole_archive_flag_spec='${wl}--whole-archive`for conv in $convenience\"\"; do test -n \"$conv\" && new_convenience=\"$new_convenience,$conv\"; done; func_echo_all \"$new_convenience\"` ${wl}--no-whole-archive' tmp_addflag=' $pic_flag' ;; pgf77* | pgf90* | pgf95* | pgfortran*) # Portland Group f77 and f90 compilers whole_archive_flag_spec='${wl}--whole-archive`for conv in $convenience\"\"; do test -n \"$conv\" && new_convenience=\"$new_convenience,$conv\"; done; func_echo_all \"$new_convenience\"` ${wl}--no-whole-archive' tmp_addflag=' $pic_flag -Mnomain' ;; ecc*,ia64* | icc*,ia64*) # Intel C compiler on ia64 tmp_addflag=' -i_dynamic' ;; efc*,ia64* | ifort*,ia64*) # Intel Fortran compiler on ia64 tmp_addflag=' -i_dynamic -nofor_main' ;; ifc* | ifort*) # Intel Fortran compiler tmp_addflag=' -nofor_main' ;; lf95*) # Lahey Fortran 8.1 whole_archive_flag_spec= tmp_sharedflag='--shared' ;; xl[cC]* | bgxl[cC]* | mpixl[cC]*) # IBM XL C 8.0 on PPC (deal with xlf below) tmp_sharedflag='-qmkshrobj' tmp_addflag= ;; nvcc*) # Cuda Compiler Driver 2.2 whole_archive_flag_spec='${wl}--whole-archive`for conv in $convenience\"\"; do test -n \"$conv\" && new_convenience=\"$new_convenience,$conv\"; done; func_echo_all \"$new_convenience\"` ${wl}--no-whole-archive' compiler_needs_object=yes ;; esac case `$CC -V 2>&1 | sed 5q` in *Sun\ C*) # Sun C 5.9 whole_archive_flag_spec='${wl}--whole-archive`new_convenience=; for conv in $convenience\"\"; do test -z \"$conv\" || new_convenience=\"$new_convenience,$conv\"; done; func_echo_all \"$new_convenience\"` ${wl}--no-whole-archive' compiler_needs_object=yes tmp_sharedflag='-G' ;; *Sun\ F*) # Sun Fortran 8.3 tmp_sharedflag='-G' ;; esac archive_cmds='$CC '"$tmp_sharedflag""$tmp_addflag"' $libobjs $deplibs $compiler_flags ${wl}-soname $wl$soname -o $lib' if test "x$supports_anon_versioning" = xyes; then archive_expsym_cmds='echo "{ global:" > $output_objdir/$libname.ver~ cat $export_symbols | sed -e "s/\(.*\)/\1;/" >> $output_objdir/$libname.ver~ echo "local: *; };" >> $output_objdir/$libname.ver~ $CC '"$tmp_sharedflag""$tmp_addflag"' $libobjs $deplibs $compiler_flags ${wl}-soname $wl$soname ${wl}-version-script ${wl}$output_objdir/$libname.ver -o $lib' fi case $cc_basename in xlf* | bgf* | bgxlf* | mpixlf*) # IBM XL Fortran 10.1 on PPC cannot create shared libs itself whole_archive_flag_spec='--whole-archive$convenience --no-whole-archive' hardcode_libdir_flag_spec='${wl}-rpath ${wl}$libdir' archive_cmds='$LD -shared $libobjs $deplibs $linker_flags -soname $soname -o $lib' if test "x$supports_anon_versioning" = xyes; then archive_expsym_cmds='echo "{ global:" > $output_objdir/$libname.ver~ cat $export_symbols | sed -e "s/\(.*\)/\1;/" >> $output_objdir/$libname.ver~ echo "local: *; };" >> $output_objdir/$libname.ver~ $LD -shared $libobjs $deplibs $linker_flags -soname $soname -version-script $output_objdir/$libname.ver -o $lib' fi ;; esac else ld_shlibs=no fi ;; netbsd* | netbsdelf*-gnu) if echo __ELF__ | $CC -E - | $GREP __ELF__ >/dev/null; then archive_cmds='$LD -Bshareable $libobjs $deplibs $linker_flags -o $lib' wlarc= else archive_cmds='$CC -shared $pic_flag $libobjs $deplibs $compiler_flags ${wl}-soname $wl$soname -o $lib' archive_expsym_cmds='$CC -shared $pic_flag $libobjs $deplibs $compiler_flags ${wl}-soname $wl$soname ${wl}-retain-symbols-file $wl$export_symbols -o $lib' fi ;; solaris*) if $LD -v 2>&1 | $GREP 'BFD 2\.8' > /dev/null; then ld_shlibs=no cat <<_LT_EOF 1>&2 *** Warning: The releases 2.8.* of the GNU linker cannot reliably *** create shared libraries on Solaris systems. Therefore, libtool *** is disabling shared libraries support. We urge you to upgrade GNU *** binutils to release 2.9.1 or newer. Another option is to modify *** your PATH or compiler configuration so that the native linker is *** used, and then restart. _LT_EOF elif $LD --help 2>&1 | $GREP ': supported targets:.* elf' > /dev/null; then archive_cmds='$CC -shared $pic_flag $libobjs $deplibs $compiler_flags ${wl}-soname $wl$soname -o $lib' archive_expsym_cmds='$CC -shared $pic_flag $libobjs $deplibs $compiler_flags ${wl}-soname $wl$soname ${wl}-retain-symbols-file $wl$export_symbols -o $lib' else ld_shlibs=no fi ;; sysv5* | sco3.2v5* | sco5v6* | unixware* | OpenUNIX*) case `$LD -v 2>&1` in *\ [01].* | *\ 2.[0-9].* | *\ 2.1[0-5].*) ld_shlibs=no cat <<_LT_EOF 1>&2 *** Warning: Releases of the GNU linker prior to 2.16.91.0.3 can not *** reliably create shared libraries on SCO systems. Therefore, libtool *** is disabling shared libraries support. We urge you to upgrade GNU *** binutils to release 2.16.91.0.3 or newer. Another option is to modify *** your PATH or compiler configuration so that the native linker is *** used, and then restart. _LT_EOF ;; *) # For security reasons, it is highly recommended that you always # use absolute paths for naming shared libraries, and exclude the # DT_RUNPATH tag from executables and libraries. But doing so # requires that you compile everything twice, which is a pain. if $LD --help 2>&1 | $GREP ': supported targets:.* elf' > /dev/null; then hardcode_libdir_flag_spec='${wl}-rpath ${wl}$libdir' archive_cmds='$CC -shared $libobjs $deplibs $compiler_flags ${wl}-soname $wl$soname -o $lib' archive_expsym_cmds='$CC -shared $libobjs $deplibs $compiler_flags ${wl}-soname $wl$soname ${wl}-retain-symbols-file $wl$export_symbols -o $lib' else ld_shlibs=no fi ;; esac ;; sunos4*) archive_cmds='$LD -assert pure-text -Bshareable -o $lib $libobjs $deplibs $linker_flags' wlarc= hardcode_direct=yes hardcode_shlibpath_var=no ;; *) if $LD --help 2>&1 | $GREP ': supported targets:.* elf' > /dev/null; then archive_cmds='$CC -shared $pic_flag $libobjs $deplibs $compiler_flags ${wl}-soname $wl$soname -o $lib' archive_expsym_cmds='$CC -shared $pic_flag $libobjs $deplibs $compiler_flags ${wl}-soname $wl$soname ${wl}-retain-symbols-file $wl$export_symbols -o $lib' else ld_shlibs=no fi ;; esac if test "$ld_shlibs" = no; then runpath_var= hardcode_libdir_flag_spec= export_dynamic_flag_spec= whole_archive_flag_spec= fi else # PORTME fill in a description of your system's linker (not GNU ld) case $host_os in aix3*) allow_undefined_flag=unsupported always_export_symbols=yes archive_expsym_cmds='$LD -o $output_objdir/$soname $libobjs $deplibs $linker_flags -bE:$export_symbols -T512 -H512 -bM:SRE~$AR $AR_FLAGS $lib $output_objdir/$soname' # Note: this linker hardcodes the directories in LIBPATH if there # are no directories specified by -L. hardcode_minus_L=yes if test "$GCC" = yes && test -z "$lt_prog_compiler_static"; then # Neither direct hardcoding nor static linking is supported with a # broken collect2. hardcode_direct=unsupported fi ;; aix[4-9]*) if test "$host_cpu" = ia64; then # On IA64, the linker does run time linking by default, so we don't # have to do anything special. aix_use_runtimelinking=no exp_sym_flag='-Bexport' no_entry_flag="" else # If we're using GNU nm, then we don't want the "-C" option. # -C means demangle to AIX nm, but means don't demangle with GNU nm # Also, AIX nm treats weak defined symbols like other global # defined symbols, whereas GNU nm marks them as "W". if $NM -V 2>&1 | $GREP 'GNU' > /dev/null; then export_symbols_cmds='$NM -Bpg $libobjs $convenience | awk '\''{ if (((\$ 2 == "T") || (\$ 2 == "D") || (\$ 2 == "B") || (\$ 2 == "W")) && (substr(\$ 3,1,1) != ".")) { print \$ 3 } }'\'' | sort -u > $export_symbols' else export_symbols_cmds='$NM -BCpg $libobjs $convenience | awk '\''{ if (((\$ 2 == "T") || (\$ 2 == "D") || (\$ 2 == "B")) && (substr(\$ 3,1,1) != ".")) { print \$ 3 } }'\'' | sort -u > $export_symbols' fi aix_use_runtimelinking=no # Test if we are trying to use run time linking or normal # AIX style linking. If -brtl is somewhere in LDFLAGS, we # need to do runtime linking. case $host_os in aix4.[23]|aix4.[23].*|aix[5-9]*) for ld_flag in $LDFLAGS; do if (test $ld_flag = "-brtl" || test $ld_flag = "-Wl,-brtl"); then aix_use_runtimelinking=yes break fi done ;; esac exp_sym_flag='-bexport' no_entry_flag='-bnoentry' fi # When large executables or shared objects are built, AIX ld can # have problems creating the table of contents. If linking a library # or program results in "error TOC overflow" add -mminimal-toc to # CXXFLAGS/CFLAGS for g++/gcc. In the cases where that is not # enough to fix the problem, add -Wl,-bbigtoc to LDFLAGS. archive_cmds='' hardcode_direct=yes hardcode_direct_absolute=yes hardcode_libdir_separator=':' link_all_deplibs=yes file_list_spec='${wl}-f,' if test "$GCC" = yes; then case $host_os in aix4.[012]|aix4.[012].*) # We only want to do this on AIX 4.2 and lower, the check # below for broken collect2 doesn't work under 4.3+ collect2name=`${CC} -print-prog-name=collect2` if test -f "$collect2name" && strings "$collect2name" | $GREP resolve_lib_name >/dev/null then # We have reworked collect2 : else # We have old collect2 hardcode_direct=unsupported # It fails to find uninstalled libraries when the uninstalled # path is not listed in the libpath. Setting hardcode_minus_L # to unsupported forces relinking hardcode_minus_L=yes hardcode_libdir_flag_spec='-L$libdir' hardcode_libdir_separator= fi ;; esac shared_flag='-shared' if test "$aix_use_runtimelinking" = yes; then shared_flag="$shared_flag "'${wl}-G' fi link_all_deplibs=no else # not using gcc if test "$host_cpu" = ia64; then # VisualAge C++, Version 5.5 for AIX 5L for IA-64, Beta 3 Release # chokes on -Wl,-G. The following line is correct: shared_flag='-G' else if test "$aix_use_runtimelinking" = yes; then shared_flag='${wl}-G' else shared_flag='${wl}-bM:SRE' fi fi fi export_dynamic_flag_spec='${wl}-bexpall' # It seems that -bexpall does not export symbols beginning with # underscore (_), so it is better to generate a list of symbols to export. always_export_symbols=yes if test "$aix_use_runtimelinking" = yes; then # Warning - without using the other runtime loading flags (-brtl), # -berok will link without error, but may produce a broken library. allow_undefined_flag='-berok' # Determine the default libpath from the value encoded in an # empty executable. if test "${lt_cv_aix_libpath+set}" = set; then aix_libpath=$lt_cv_aix_libpath else if ${lt_cv_aix_libpath_+:} false; then : $as_echo_n "(cached) " >&6 else cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ int main () { ; return 0; } _ACEOF if ac_fn_c_try_link "$LINENO"; then : lt_aix_libpath_sed=' /Import File Strings/,/^$/ { /^0/ { s/^0 *\([^ ]*\) *$/\1/ p } }' lt_cv_aix_libpath_=`dump -H conftest$ac_exeext 2>/dev/null | $SED -n -e "$lt_aix_libpath_sed"` # Check for a 64-bit object if we didn't find anything. if test -z "$lt_cv_aix_libpath_"; then lt_cv_aix_libpath_=`dump -HX64 conftest$ac_exeext 2>/dev/null | $SED -n -e "$lt_aix_libpath_sed"` fi fi rm -f core conftest.err conftest.$ac_objext \ conftest$ac_exeext conftest.$ac_ext if test -z "$lt_cv_aix_libpath_"; then lt_cv_aix_libpath_="/usr/lib:/lib" fi fi aix_libpath=$lt_cv_aix_libpath_ fi hardcode_libdir_flag_spec='${wl}-blibpath:$libdir:'"$aix_libpath" archive_expsym_cmds='$CC -o $output_objdir/$soname $libobjs $deplibs '"\${wl}$no_entry_flag"' $compiler_flags `if test "x${allow_undefined_flag}" != "x"; then func_echo_all "${wl}${allow_undefined_flag}"; else :; fi` '"\${wl}$exp_sym_flag:\$export_symbols $shared_flag" else if test "$host_cpu" = ia64; then hardcode_libdir_flag_spec='${wl}-R $libdir:/usr/lib:/lib' allow_undefined_flag="-z nodefs" archive_expsym_cmds="\$CC $shared_flag"' -o $output_objdir/$soname $libobjs $deplibs '"\${wl}$no_entry_flag"' $compiler_flags ${wl}${allow_undefined_flag} '"\${wl}$exp_sym_flag:\$export_symbols" else # Determine the default libpath from the value encoded in an # empty executable. if test "${lt_cv_aix_libpath+set}" = set; then aix_libpath=$lt_cv_aix_libpath else if ${lt_cv_aix_libpath_+:} false; then : $as_echo_n "(cached) " >&6 else cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ int main () { ; return 0; } _ACEOF if ac_fn_c_try_link "$LINENO"; then : lt_aix_libpath_sed=' /Import File Strings/,/^$/ { /^0/ { s/^0 *\([^ ]*\) *$/\1/ p } }' lt_cv_aix_libpath_=`dump -H conftest$ac_exeext 2>/dev/null | $SED -n -e "$lt_aix_libpath_sed"` # Check for a 64-bit object if we didn't find anything. if test -z "$lt_cv_aix_libpath_"; then lt_cv_aix_libpath_=`dump -HX64 conftest$ac_exeext 2>/dev/null | $SED -n -e "$lt_aix_libpath_sed"` fi fi rm -f core conftest.err conftest.$ac_objext \ conftest$ac_exeext conftest.$ac_ext if test -z "$lt_cv_aix_libpath_"; then lt_cv_aix_libpath_="/usr/lib:/lib" fi fi aix_libpath=$lt_cv_aix_libpath_ fi hardcode_libdir_flag_spec='${wl}-blibpath:$libdir:'"$aix_libpath" # Warning - without using the other run time loading flags, # -berok will link without error, but may produce a broken library. no_undefined_flag=' ${wl}-bernotok' allow_undefined_flag=' ${wl}-berok' if test "$with_gnu_ld" = yes; then # We only use this code for GNU lds that support --whole-archive. whole_archive_flag_spec='${wl}--whole-archive$convenience ${wl}--no-whole-archive' else # Exported symbols can be pulled into shared objects from archives whole_archive_flag_spec='$convenience' fi archive_cmds_need_lc=yes # This is similar to how AIX traditionally builds its shared libraries. archive_expsym_cmds="\$CC $shared_flag"' -o $output_objdir/$soname $libobjs $deplibs ${wl}-bnoentry $compiler_flags ${wl}-bE:$export_symbols${allow_undefined_flag}~$AR $AR_FLAGS $output_objdir/$libname$release.a $output_objdir/$soname' fi fi ;; amigaos*) case $host_cpu in powerpc) # see comment about AmigaOS4 .so support archive_cmds='$CC -shared $libobjs $deplibs $compiler_flags ${wl}-soname $wl$soname -o $lib' archive_expsym_cmds='' ;; m68k) archive_cmds='$RM $output_objdir/a2ixlibrary.data~$ECHO "#define NAME $libname" > $output_objdir/a2ixlibrary.data~$ECHO "#define LIBRARY_ID 1" >> $output_objdir/a2ixlibrary.data~$ECHO "#define VERSION $major" >> $output_objdir/a2ixlibrary.data~$ECHO "#define REVISION $revision" >> $output_objdir/a2ixlibrary.data~$AR $AR_FLAGS $lib $libobjs~$RANLIB $lib~(cd $output_objdir && a2ixlibrary -32)' hardcode_libdir_flag_spec='-L$libdir' hardcode_minus_L=yes ;; esac ;; bsdi[45]*) export_dynamic_flag_spec=-rdynamic ;; cygwin* | mingw* | pw32* | cegcc*) # When not using gcc, we currently assume that we are using # Microsoft Visual C++. # hardcode_libdir_flag_spec is actually meaningless, as there is # no search path for DLLs. case $cc_basename in cl*) # Native MSVC hardcode_libdir_flag_spec=' ' allow_undefined_flag=unsupported always_export_symbols=yes file_list_spec='@' # Tell ltmain to make .lib files, not .a files. libext=lib # Tell ltmain to make .dll files, not .so files. shrext_cmds=".dll" # FIXME: Setting linknames here is a bad hack. archive_cmds='$CC -o $output_objdir/$soname $libobjs $compiler_flags $deplibs -Wl,-dll~linknames=' archive_expsym_cmds='if test "x`$SED 1q $export_symbols`" = xEXPORTS; then sed -n -e 's/\\\\\\\(.*\\\\\\\)/-link\\\ -EXPORT:\\\\\\\1/' -e '1\\\!p' < $export_symbols > $output_objdir/$soname.exp; else sed -e 's/\\\\\\\(.*\\\\\\\)/-link\\\ -EXPORT:\\\\\\\1/' < $export_symbols > $output_objdir/$soname.exp; fi~ $CC -o $tool_output_objdir$soname $libobjs $compiler_flags $deplibs "@$tool_output_objdir$soname.exp" -Wl,-DLL,-IMPLIB:"$tool_output_objdir$libname.dll.lib"~ linknames=' # The linker will not automatically build a static lib if we build a DLL. # _LT_TAGVAR(old_archive_from_new_cmds, )='true' enable_shared_with_static_runtimes=yes exclude_expsyms='_NULL_IMPORT_DESCRIPTOR|_IMPORT_DESCRIPTOR_.*' export_symbols_cmds='$NM $libobjs $convenience | $global_symbol_pipe | $SED -e '\''/^[BCDGRS][ ]/s/.*[ ]\([^ ]*\)/\1,DATA/'\'' | $SED -e '\''/^[AITW][ ]/s/.*[ ]//'\'' | sort | uniq > $export_symbols' # Don't use ranlib old_postinstall_cmds='chmod 644 $oldlib' postlink_cmds='lt_outputfile="@OUTPUT@"~ lt_tool_outputfile="@TOOL_OUTPUT@"~ case $lt_outputfile in *.exe|*.EXE) ;; *) lt_outputfile="$lt_outputfile.exe" lt_tool_outputfile="$lt_tool_outputfile.exe" ;; esac~ if test "$MANIFEST_TOOL" != ":" && test -f "$lt_outputfile.manifest"; then $MANIFEST_TOOL -manifest "$lt_tool_outputfile.manifest" -outputresource:"$lt_tool_outputfile" || exit 1; $RM "$lt_outputfile.manifest"; fi' ;; *) # Assume MSVC wrapper hardcode_libdir_flag_spec=' ' allow_undefined_flag=unsupported # Tell ltmain to make .lib files, not .a files. libext=lib # Tell ltmain to make .dll files, not .so files. shrext_cmds=".dll" # FIXME: Setting linknames here is a bad hack. archive_cmds='$CC -o $lib $libobjs $compiler_flags `func_echo_all "$deplibs" | $SED '\''s/ -lc$//'\''` -link -dll~linknames=' # The linker will automatically build a .lib file if we build a DLL. old_archive_from_new_cmds='true' # FIXME: Should let the user specify the lib program. old_archive_cmds='lib -OUT:$oldlib$oldobjs$old_deplibs' enable_shared_with_static_runtimes=yes ;; esac ;; darwin* | rhapsody*) archive_cmds_need_lc=no hardcode_direct=no hardcode_automatic=yes hardcode_shlibpath_var=unsupported if test "$lt_cv_ld_force_load" = "yes"; then whole_archive_flag_spec='`for conv in $convenience\"\"; do test -n \"$conv\" && new_convenience=\"$new_convenience ${wl}-force_load,$conv\"; done; func_echo_all \"$new_convenience\"`' else whole_archive_flag_spec='' fi link_all_deplibs=yes allow_undefined_flag="$_lt_dar_allow_undefined" case $cc_basename in ifort*) _lt_dar_can_shared=yes ;; *) _lt_dar_can_shared=$GCC ;; esac if test "$_lt_dar_can_shared" = "yes"; then output_verbose_link_cmd=func_echo_all archive_cmds="\$CC -dynamiclib \$allow_undefined_flag -o \$lib \$libobjs \$deplibs \$compiler_flags -install_name \$rpath/\$soname \$verstring $_lt_dar_single_mod${_lt_dsymutil}" module_cmds="\$CC \$allow_undefined_flag -o \$lib -bundle \$libobjs \$deplibs \$compiler_flags${_lt_dsymutil}" archive_expsym_cmds="sed 's,^,_,' < \$export_symbols > \$output_objdir/\${libname}-symbols.expsym~\$CC -dynamiclib \$allow_undefined_flag -o \$lib \$libobjs \$deplibs \$compiler_flags -install_name \$rpath/\$soname \$verstring ${_lt_dar_single_mod}${_lt_dar_export_syms}${_lt_dsymutil}" module_expsym_cmds="sed -e 's,^,_,' < \$export_symbols > \$output_objdir/\${libname}-symbols.expsym~\$CC \$allow_undefined_flag -o \$lib -bundle \$libobjs \$deplibs \$compiler_flags${_lt_dar_export_syms}${_lt_dsymutil}" else ld_shlibs=no fi ;; dgux*) archive_cmds='$LD -G -h $soname -o $lib $libobjs $deplibs $linker_flags' hardcode_libdir_flag_spec='-L$libdir' hardcode_shlibpath_var=no ;; # FreeBSD 2.2.[012] allows us to include c++rt0.o to get C++ constructor # support. Future versions do this automatically, but an explicit c++rt0.o # does not break anything, and helps significantly (at the cost of a little # extra space). freebsd2.2*) archive_cmds='$LD -Bshareable -o $lib $libobjs $deplibs $linker_flags /usr/lib/c++rt0.o' hardcode_libdir_flag_spec='-R$libdir' hardcode_direct=yes hardcode_shlibpath_var=no ;; # Unfortunately, older versions of FreeBSD 2 do not have this feature. freebsd2.*) archive_cmds='$LD -Bshareable -o $lib $libobjs $deplibs $linker_flags' hardcode_direct=yes hardcode_minus_L=yes hardcode_shlibpath_var=no ;; # FreeBSD 3 and greater uses gcc -shared to do shared libraries. freebsd* | dragonfly*) archive_cmds='$CC -shared $pic_flag -o $lib $libobjs $deplibs $compiler_flags' hardcode_libdir_flag_spec='-R$libdir' hardcode_direct=yes hardcode_shlibpath_var=no ;; hpux9*) if test "$GCC" = yes; then archive_cmds='$RM $output_objdir/$soname~$CC -shared $pic_flag ${wl}+b ${wl}$install_libdir -o $output_objdir/$soname $libobjs $deplibs $compiler_flags~test $output_objdir/$soname = $lib || mv $output_objdir/$soname $lib' else archive_cmds='$RM $output_objdir/$soname~$LD -b +b $install_libdir -o $output_objdir/$soname $libobjs $deplibs $linker_flags~test $output_objdir/$soname = $lib || mv $output_objdir/$soname $lib' fi hardcode_libdir_flag_spec='${wl}+b ${wl}$libdir' hardcode_libdir_separator=: hardcode_direct=yes # hardcode_minus_L: Not really in the search PATH, # but as the default location of the library. hardcode_minus_L=yes export_dynamic_flag_spec='${wl}-E' ;; hpux10*) if test "$GCC" = yes && test "$with_gnu_ld" = no; then archive_cmds='$CC -shared $pic_flag ${wl}+h ${wl}$soname ${wl}+b ${wl}$install_libdir -o $lib $libobjs $deplibs $compiler_flags' else archive_cmds='$LD -b +h $soname +b $install_libdir -o $lib $libobjs $deplibs $linker_flags' fi if test "$with_gnu_ld" = no; then hardcode_libdir_flag_spec='${wl}+b ${wl}$libdir' hardcode_libdir_separator=: hardcode_direct=yes hardcode_direct_absolute=yes export_dynamic_flag_spec='${wl}-E' # hardcode_minus_L: Not really in the search PATH, # but as the default location of the library. hardcode_minus_L=yes fi ;; hpux11*) if test "$GCC" = yes && test "$with_gnu_ld" = no; then case $host_cpu in hppa*64*) archive_cmds='$CC -shared ${wl}+h ${wl}$soname -o $lib $libobjs $deplibs $compiler_flags' ;; ia64*) archive_cmds='$CC -shared $pic_flag ${wl}+h ${wl}$soname ${wl}+nodefaultrpath -o $lib $libobjs $deplibs $compiler_flags' ;; *) archive_cmds='$CC -shared $pic_flag ${wl}+h ${wl}$soname ${wl}+b ${wl}$install_libdir -o $lib $libobjs $deplibs $compiler_flags' ;; esac else case $host_cpu in hppa*64*) archive_cmds='$CC -b ${wl}+h ${wl}$soname -o $lib $libobjs $deplibs $compiler_flags' ;; ia64*) archive_cmds='$CC -b ${wl}+h ${wl}$soname ${wl}+nodefaultrpath -o $lib $libobjs $deplibs $compiler_flags' ;; *) # Older versions of the 11.00 compiler do not understand -b yet # (HP92453-01 A.11.01.20 doesn't, HP92453-01 B.11.X.35175-35176.GP does) { $as_echo "$as_me:${as_lineno-$LINENO}: checking if $CC understands -b" >&5 $as_echo_n "checking if $CC understands -b... " >&6; } if ${lt_cv_prog_compiler__b+:} false; then : $as_echo_n "(cached) " >&6 else lt_cv_prog_compiler__b=no save_LDFLAGS="$LDFLAGS" LDFLAGS="$LDFLAGS -b" echo "$lt_simple_link_test_code" > conftest.$ac_ext if (eval $ac_link 2>conftest.err) && test -s conftest$ac_exeext; then # The linker can only warn and ignore the option if not recognized # So say no if there are warnings if test -s conftest.err; then # Append any errors to the config.log. cat conftest.err 1>&5 $ECHO "$_lt_linker_boilerplate" | $SED '/^$/d' > conftest.exp $SED '/^$/d; /^ *+/d' conftest.err >conftest.er2 if diff conftest.exp conftest.er2 >/dev/null; then lt_cv_prog_compiler__b=yes fi else lt_cv_prog_compiler__b=yes fi fi $RM -r conftest* LDFLAGS="$save_LDFLAGS" fi { $as_echo "$as_me:${as_lineno-$LINENO}: result: $lt_cv_prog_compiler__b" >&5 $as_echo "$lt_cv_prog_compiler__b" >&6; } if test x"$lt_cv_prog_compiler__b" = xyes; then archive_cmds='$CC -b ${wl}+h ${wl}$soname ${wl}+b ${wl}$install_libdir -o $lib $libobjs $deplibs $compiler_flags' else archive_cmds='$LD -b +h $soname +b $install_libdir -o $lib $libobjs $deplibs $linker_flags' fi ;; esac fi if test "$with_gnu_ld" = no; then hardcode_libdir_flag_spec='${wl}+b ${wl}$libdir' hardcode_libdir_separator=: case $host_cpu in hppa*64*|ia64*) hardcode_direct=no hardcode_shlibpath_var=no ;; *) hardcode_direct=yes hardcode_direct_absolute=yes export_dynamic_flag_spec='${wl}-E' # hardcode_minus_L: Not really in the search PATH, # but as the default location of the library. hardcode_minus_L=yes ;; esac fi ;; irix5* | irix6* | nonstopux*) if test "$GCC" = yes; then archive_cmds='$CC -shared $pic_flag $libobjs $deplibs $compiler_flags ${wl}-soname ${wl}$soname `test -n "$verstring" && func_echo_all "${wl}-set_version ${wl}$verstring"` ${wl}-update_registry ${wl}${output_objdir}/so_locations -o $lib' # Try to use the -exported_symbol ld option, if it does not # work, assume that -exports_file does not work either and # implicitly export all symbols. # This should be the same for all languages, so no per-tag cache variable. { $as_echo "$as_me:${as_lineno-$LINENO}: checking whether the $host_os linker accepts -exported_symbol" >&5 $as_echo_n "checking whether the $host_os linker accepts -exported_symbol... " >&6; } if ${lt_cv_irix_exported_symbol+:} false; then : $as_echo_n "(cached) " >&6 else save_LDFLAGS="$LDFLAGS" LDFLAGS="$LDFLAGS -shared ${wl}-exported_symbol ${wl}foo ${wl}-update_registry ${wl}/dev/null" cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ int foo (void) { return 0; } _ACEOF if ac_fn_c_try_link "$LINENO"; then : lt_cv_irix_exported_symbol=yes else lt_cv_irix_exported_symbol=no fi rm -f core conftest.err conftest.$ac_objext \ conftest$ac_exeext conftest.$ac_ext LDFLAGS="$save_LDFLAGS" fi { $as_echo "$as_me:${as_lineno-$LINENO}: result: $lt_cv_irix_exported_symbol" >&5 $as_echo "$lt_cv_irix_exported_symbol" >&6; } if test "$lt_cv_irix_exported_symbol" = yes; then archive_expsym_cmds='$CC -shared $pic_flag $libobjs $deplibs $compiler_flags ${wl}-soname ${wl}$soname `test -n "$verstring" && func_echo_all "${wl}-set_version ${wl}$verstring"` ${wl}-update_registry ${wl}${output_objdir}/so_locations ${wl}-exports_file ${wl}$export_symbols -o $lib' fi else archive_cmds='$CC -shared $libobjs $deplibs $compiler_flags -soname $soname `test -n "$verstring" && func_echo_all "-set_version $verstring"` -update_registry ${output_objdir}/so_locations -o $lib' archive_expsym_cmds='$CC -shared $libobjs $deplibs $compiler_flags -soname $soname `test -n "$verstring" && func_echo_all "-set_version $verstring"` -update_registry ${output_objdir}/so_locations -exports_file $export_symbols -o $lib' fi archive_cmds_need_lc='no' hardcode_libdir_flag_spec='${wl}-rpath ${wl}$libdir' hardcode_libdir_separator=: inherit_rpath=yes link_all_deplibs=yes ;; netbsd* | netbsdelf*-gnu) if echo __ELF__ | $CC -E - | $GREP __ELF__ >/dev/null; then archive_cmds='$LD -Bshareable -o $lib $libobjs $deplibs $linker_flags' # a.out else archive_cmds='$LD -shared -o $lib $libobjs $deplibs $linker_flags' # ELF fi hardcode_libdir_flag_spec='-R$libdir' hardcode_direct=yes hardcode_shlibpath_var=no ;; newsos6) archive_cmds='$LD -G -h $soname -o $lib $libobjs $deplibs $linker_flags' hardcode_direct=yes hardcode_libdir_flag_spec='${wl}-rpath ${wl}$libdir' hardcode_libdir_separator=: hardcode_shlibpath_var=no ;; *nto* | *qnx*) ;; openbsd*) if test -f /usr/libexec/ld.so; then hardcode_direct=yes hardcode_shlibpath_var=no hardcode_direct_absolute=yes if test -z "`echo __ELF__ | $CC -E - | $GREP __ELF__`" || test "$host_os-$host_cpu" = "openbsd2.8-powerpc"; then archive_cmds='$CC -shared $pic_flag -o $lib $libobjs $deplibs $compiler_flags' archive_expsym_cmds='$CC -shared $pic_flag -o $lib $libobjs $deplibs $compiler_flags ${wl}-retain-symbols-file,$export_symbols' hardcode_libdir_flag_spec='${wl}-rpath,$libdir' export_dynamic_flag_spec='${wl}-E' else case $host_os in openbsd[01].* | openbsd2.[0-7] | openbsd2.[0-7].*) archive_cmds='$LD -Bshareable -o $lib $libobjs $deplibs $linker_flags' hardcode_libdir_flag_spec='-R$libdir' ;; *) archive_cmds='$CC -shared $pic_flag -o $lib $libobjs $deplibs $compiler_flags' hardcode_libdir_flag_spec='${wl}-rpath,$libdir' ;; esac fi else ld_shlibs=no fi ;; os2*) hardcode_libdir_flag_spec='-L$libdir' hardcode_minus_L=yes allow_undefined_flag=unsupported archive_cmds='$ECHO "LIBRARY $libname INITINSTANCE" > $output_objdir/$libname.def~$ECHO "DESCRIPTION \"$libname\"" >> $output_objdir/$libname.def~echo DATA >> $output_objdir/$libname.def~echo " SINGLE NONSHARED" >> $output_objdir/$libname.def~echo EXPORTS >> $output_objdir/$libname.def~emxexp $libobjs >> $output_objdir/$libname.def~$CC -Zdll -Zcrtdll -o $lib $libobjs $deplibs $compiler_flags $output_objdir/$libname.def' old_archive_from_new_cmds='emximp -o $output_objdir/$libname.a $output_objdir/$libname.def' ;; osf3*) if test "$GCC" = yes; then allow_undefined_flag=' ${wl}-expect_unresolved ${wl}\*' archive_cmds='$CC -shared${allow_undefined_flag} $libobjs $deplibs $compiler_flags ${wl}-soname ${wl}$soname `test -n "$verstring" && func_echo_all "${wl}-set_version ${wl}$verstring"` ${wl}-update_registry ${wl}${output_objdir}/so_locations -o $lib' else allow_undefined_flag=' -expect_unresolved \*' archive_cmds='$CC -shared${allow_undefined_flag} $libobjs $deplibs $compiler_flags -soname $soname `test -n "$verstring" && func_echo_all "-set_version $verstring"` -update_registry ${output_objdir}/so_locations -o $lib' fi archive_cmds_need_lc='no' hardcode_libdir_flag_spec='${wl}-rpath ${wl}$libdir' hardcode_libdir_separator=: ;; osf4* | osf5*) # as osf3* with the addition of -msym flag if test "$GCC" = yes; then allow_undefined_flag=' ${wl}-expect_unresolved ${wl}\*' archive_cmds='$CC -shared${allow_undefined_flag} $pic_flag $libobjs $deplibs $compiler_flags ${wl}-msym ${wl}-soname ${wl}$soname `test -n "$verstring" && func_echo_all "${wl}-set_version ${wl}$verstring"` ${wl}-update_registry ${wl}${output_objdir}/so_locations -o $lib' hardcode_libdir_flag_spec='${wl}-rpath ${wl}$libdir' else allow_undefined_flag=' -expect_unresolved \*' archive_cmds='$CC -shared${allow_undefined_flag} $libobjs $deplibs $compiler_flags -msym -soname $soname `test -n "$verstring" && func_echo_all "-set_version $verstring"` -update_registry ${output_objdir}/so_locations -o $lib' archive_expsym_cmds='for i in `cat $export_symbols`; do printf "%s %s\\n" -exported_symbol "\$i" >> $lib.exp; done; printf "%s\\n" "-hidden">> $lib.exp~ $CC -shared${allow_undefined_flag} ${wl}-input ${wl}$lib.exp $compiler_flags $libobjs $deplibs -soname $soname `test -n "$verstring" && $ECHO "-set_version $verstring"` -update_registry ${output_objdir}/so_locations -o $lib~$RM $lib.exp' # Both c and cxx compiler support -rpath directly hardcode_libdir_flag_spec='-rpath $libdir' fi archive_cmds_need_lc='no' hardcode_libdir_separator=: ;; solaris*) no_undefined_flag=' -z defs' if test "$GCC" = yes; then wlarc='${wl}' archive_cmds='$CC -shared $pic_flag ${wl}-z ${wl}text ${wl}-h ${wl}$soname -o $lib $libobjs $deplibs $compiler_flags' archive_expsym_cmds='echo "{ global:" > $lib.exp~cat $export_symbols | $SED -e "s/\(.*\)/\1;/" >> $lib.exp~echo "local: *; };" >> $lib.exp~ $CC -shared $pic_flag ${wl}-z ${wl}text ${wl}-M ${wl}$lib.exp ${wl}-h ${wl}$soname -o $lib $libobjs $deplibs $compiler_flags~$RM $lib.exp' else case `$CC -V 2>&1` in *"Compilers 5.0"*) wlarc='' archive_cmds='$LD -G${allow_undefined_flag} -h $soname -o $lib $libobjs $deplibs $linker_flags' archive_expsym_cmds='echo "{ global:" > $lib.exp~cat $export_symbols | $SED -e "s/\(.*\)/\1;/" >> $lib.exp~echo "local: *; };" >> $lib.exp~ $LD -G${allow_undefined_flag} -M $lib.exp -h $soname -o $lib $libobjs $deplibs $linker_flags~$RM $lib.exp' ;; *) wlarc='${wl}' archive_cmds='$CC -G${allow_undefined_flag} -h $soname -o $lib $libobjs $deplibs $compiler_flags' archive_expsym_cmds='echo "{ global:" > $lib.exp~cat $export_symbols | $SED -e "s/\(.*\)/\1;/" >> $lib.exp~echo "local: *; };" >> $lib.exp~ $CC -G${allow_undefined_flag} -M $lib.exp -h $soname -o $lib $libobjs $deplibs $compiler_flags~$RM $lib.exp' ;; esac fi hardcode_libdir_flag_spec='-R$libdir' hardcode_shlibpath_var=no case $host_os in solaris2.[0-5] | solaris2.[0-5].*) ;; *) # The compiler driver will combine and reorder linker options, # but understands `-z linker_flag'. GCC discards it without `$wl', # but is careful enough not to reorder. # Supported since Solaris 2.6 (maybe 2.5.1?) if test "$GCC" = yes; then whole_archive_flag_spec='${wl}-z ${wl}allextract$convenience ${wl}-z ${wl}defaultextract' else whole_archive_flag_spec='-z allextract$convenience -z defaultextract' fi ;; esac link_all_deplibs=yes ;; sunos4*) if test "x$host_vendor" = xsequent; then # Use $CC to link under sequent, because it throws in some extra .o # files that make .init and .fini sections work. archive_cmds='$CC -G ${wl}-h $soname -o $lib $libobjs $deplibs $compiler_flags' else archive_cmds='$LD -assert pure-text -Bstatic -o $lib $libobjs $deplibs $linker_flags' fi hardcode_libdir_flag_spec='-L$libdir' hardcode_direct=yes hardcode_minus_L=yes hardcode_shlibpath_var=no ;; sysv4) case $host_vendor in sni) archive_cmds='$LD -G -h $soname -o $lib $libobjs $deplibs $linker_flags' hardcode_direct=yes # is this really true??? ;; siemens) ## LD is ld it makes a PLAMLIB ## CC just makes a GrossModule. archive_cmds='$LD -G -o $lib $libobjs $deplibs $linker_flags' reload_cmds='$CC -r -o $output$reload_objs' hardcode_direct=no ;; motorola) archive_cmds='$LD -G -h $soname -o $lib $libobjs $deplibs $linker_flags' hardcode_direct=no #Motorola manual says yes, but my tests say they lie ;; esac runpath_var='LD_RUN_PATH' hardcode_shlibpath_var=no ;; sysv4.3*) archive_cmds='$LD -G -h $soname -o $lib $libobjs $deplibs $linker_flags' hardcode_shlibpath_var=no export_dynamic_flag_spec='-Bexport' ;; sysv4*MP*) if test -d /usr/nec; then archive_cmds='$LD -G -h $soname -o $lib $libobjs $deplibs $linker_flags' hardcode_shlibpath_var=no runpath_var=LD_RUN_PATH hardcode_runpath_var=yes ld_shlibs=yes fi ;; sysv4*uw2* | sysv5OpenUNIX* | sysv5UnixWare7.[01].[10]* | unixware7* | sco3.2v5.0.[024]*) no_undefined_flag='${wl}-z,text' archive_cmds_need_lc=no hardcode_shlibpath_var=no runpath_var='LD_RUN_PATH' if test "$GCC" = yes; then archive_cmds='$CC -shared ${wl}-h,$soname -o $lib $libobjs $deplibs $compiler_flags' archive_expsym_cmds='$CC -shared ${wl}-Bexport:$export_symbols ${wl}-h,$soname -o $lib $libobjs $deplibs $compiler_flags' else archive_cmds='$CC -G ${wl}-h,$soname -o $lib $libobjs $deplibs $compiler_flags' archive_expsym_cmds='$CC -G ${wl}-Bexport:$export_symbols ${wl}-h,$soname -o $lib $libobjs $deplibs $compiler_flags' fi ;; sysv5* | sco3.2v5* | sco5v6*) # Note: We can NOT use -z defs as we might desire, because we do not # link with -lc, and that would cause any symbols used from libc to # always be unresolved, which means just about no library would # ever link correctly. If we're not using GNU ld we use -z text # though, which does catch some bad symbols but isn't as heavy-handed # as -z defs. no_undefined_flag='${wl}-z,text' allow_undefined_flag='${wl}-z,nodefs' archive_cmds_need_lc=no hardcode_shlibpath_var=no hardcode_libdir_flag_spec='${wl}-R,$libdir' hardcode_libdir_separator=':' link_all_deplibs=yes export_dynamic_flag_spec='${wl}-Bexport' runpath_var='LD_RUN_PATH' if test "$GCC" = yes; then archive_cmds='$CC -shared ${wl}-h,$soname -o $lib $libobjs $deplibs $compiler_flags' archive_expsym_cmds='$CC -shared ${wl}-Bexport:$export_symbols ${wl}-h,$soname -o $lib $libobjs $deplibs $compiler_flags' else archive_cmds='$CC -G ${wl}-h,$soname -o $lib $libobjs $deplibs $compiler_flags' archive_expsym_cmds='$CC -G ${wl}-Bexport:$export_symbols ${wl}-h,$soname -o $lib $libobjs $deplibs $compiler_flags' fi ;; uts4*) archive_cmds='$LD -G -h $soname -o $lib $libobjs $deplibs $linker_flags' hardcode_libdir_flag_spec='-L$libdir' hardcode_shlibpath_var=no ;; *) ld_shlibs=no ;; esac if test x$host_vendor = xsni; then case $host in sysv4 | sysv4.2uw2* | sysv4.3* | sysv5*) export_dynamic_flag_spec='${wl}-Blargedynsym' ;; esac fi fi { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ld_shlibs" >&5 $as_echo "$ld_shlibs" >&6; } test "$ld_shlibs" = no && can_build_shared=no with_gnu_ld=$with_gnu_ld # # Do we need to explicitly link libc? # case "x$archive_cmds_need_lc" in x|xyes) # Assume -lc should be added archive_cmds_need_lc=yes if test "$enable_shared" = yes && test "$GCC" = yes; then case $archive_cmds in *'~'*) # FIXME: we may have to deal with multi-command sequences. ;; '$CC '*) # Test whether the compiler implicitly links with -lc since on some # systems, -lgcc has to come before -lc. If gcc already passes -lc # to ld, don't add -lc before -lgcc. { $as_echo "$as_me:${as_lineno-$LINENO}: checking whether -lc should be explicitly linked in" >&5 $as_echo_n "checking whether -lc should be explicitly linked in... " >&6; } if ${lt_cv_archive_cmds_need_lc+:} false; then : $as_echo_n "(cached) " >&6 else $RM conftest* echo "$lt_simple_compile_test_code" > conftest.$ac_ext if { { eval echo "\"\$as_me\":${as_lineno-$LINENO}: \"$ac_compile\""; } >&5 (eval $ac_compile) 2>&5 ac_status=$? $as_echo "$as_me:${as_lineno-$LINENO}: \$? = $ac_status" >&5 test $ac_status = 0; } 2>conftest.err; then soname=conftest lib=conftest libobjs=conftest.$ac_objext deplibs= wl=$lt_prog_compiler_wl pic_flag=$lt_prog_compiler_pic compiler_flags=-v linker_flags=-v verstring= output_objdir=. libname=conftest lt_save_allow_undefined_flag=$allow_undefined_flag allow_undefined_flag= if { { eval echo "\"\$as_me\":${as_lineno-$LINENO}: \"$archive_cmds 2\>\&1 \| $GREP \" -lc \" \>/dev/null 2\>\&1\""; } >&5 (eval $archive_cmds 2\>\&1 \| $GREP \" -lc \" \>/dev/null 2\>\&1) 2>&5 ac_status=$? $as_echo "$as_me:${as_lineno-$LINENO}: \$? = $ac_status" >&5 test $ac_status = 0; } then lt_cv_archive_cmds_need_lc=no else lt_cv_archive_cmds_need_lc=yes fi allow_undefined_flag=$lt_save_allow_undefined_flag else cat conftest.err 1>&5 fi $RM conftest* fi { $as_echo "$as_me:${as_lineno-$LINENO}: result: $lt_cv_archive_cmds_need_lc" >&5 $as_echo "$lt_cv_archive_cmds_need_lc" >&6; } archive_cmds_need_lc=$lt_cv_archive_cmds_need_lc ;; esac fi ;; esac { $as_echo "$as_me:${as_lineno-$LINENO}: checking dynamic linker characteristics" >&5 $as_echo_n "checking dynamic linker characteristics... " >&6; } if test "$GCC" = yes; then case $host_os in darwin*) lt_awk_arg="/^libraries:/,/LR/" ;; *) lt_awk_arg="/^libraries:/" ;; esac case $host_os in mingw* | cegcc*) lt_sed_strip_eq="s,=\([A-Za-z]:\),\1,g" ;; *) lt_sed_strip_eq="s,=/,/,g" ;; esac lt_search_path_spec=`$CC -print-search-dirs | awk $lt_awk_arg | $SED -e "s/^libraries://" -e $lt_sed_strip_eq` case $lt_search_path_spec in *\;*) # if the path contains ";" then we assume it to be the separator # otherwise default to the standard path separator (i.e. ":") - it is # assumed that no part of a normal pathname contains ";" but that should # okay in the real world where ";" in dirpaths is itself problematic. lt_search_path_spec=`$ECHO "$lt_search_path_spec" | $SED 's/;/ /g'` ;; *) lt_search_path_spec=`$ECHO "$lt_search_path_spec" | $SED "s/$PATH_SEPARATOR/ /g"` ;; esac # Ok, now we have the path, separated by spaces, we can step through it # and add multilib dir if necessary. lt_tmp_lt_search_path_spec= lt_multi_os_dir=`$CC $CPPFLAGS $CFLAGS $LDFLAGS -print-multi-os-directory 2>/dev/null` for lt_sys_path in $lt_search_path_spec; do if test -d "$lt_sys_path/$lt_multi_os_dir"; then lt_tmp_lt_search_path_spec="$lt_tmp_lt_search_path_spec $lt_sys_path/$lt_multi_os_dir" else test -d "$lt_sys_path" && \ lt_tmp_lt_search_path_spec="$lt_tmp_lt_search_path_spec $lt_sys_path" fi done lt_search_path_spec=`$ECHO "$lt_tmp_lt_search_path_spec" | awk ' BEGIN {RS=" "; FS="/|\n";} { lt_foo=""; lt_count=0; for (lt_i = NF; lt_i > 0; lt_i--) { if ($lt_i != "" && $lt_i != ".") { if ($lt_i == "..") { lt_count++; } else { if (lt_count == 0) { lt_foo="/" $lt_i lt_foo; } else { lt_count--; } } } } if (lt_foo != "") { lt_freq[lt_foo]++; } if (lt_freq[lt_foo] == 1) { print lt_foo; } }'` # AWK program above erroneously prepends '/' to C:/dos/paths # for these hosts. case $host_os in mingw* | cegcc*) lt_search_path_spec=`$ECHO "$lt_search_path_spec" |\ $SED 's,/\([A-Za-z]:\),\1,g'` ;; esac sys_lib_search_path_spec=`$ECHO "$lt_search_path_spec" | $lt_NL2SP` else sys_lib_search_path_spec="/lib /usr/lib /usr/local/lib" fi library_names_spec= libname_spec='lib$name' soname_spec= shrext_cmds=".so" postinstall_cmds= postuninstall_cmds= finish_cmds= finish_eval= shlibpath_var= shlibpath_overrides_runpath=unknown version_type=none dynamic_linker="$host_os ld.so" sys_lib_dlsearch_path_spec="/lib /usr/lib" need_lib_prefix=unknown hardcode_into_libs=no # when you set need_version to no, make sure it does not cause -set_version # flags to be left without arguments need_version=unknown case $host_os in aix3*) version_type=linux # correct to gnu/linux during the next big refactor library_names_spec='${libname}${release}${shared_ext}$versuffix $libname.a' shlibpath_var=LIBPATH # AIX 3 has no versioning support, so we append a major version to the name. soname_spec='${libname}${release}${shared_ext}$major' ;; aix[4-9]*) version_type=linux # correct to gnu/linux during the next big refactor need_lib_prefix=no need_version=no hardcode_into_libs=yes if test "$host_cpu" = ia64; then # AIX 5 supports IA64 library_names_spec='${libname}${release}${shared_ext}$major ${libname}${release}${shared_ext}$versuffix $libname${shared_ext}' shlibpath_var=LD_LIBRARY_PATH else # With GCC up to 2.95.x, collect2 would create an import file # for dependence libraries. The import file would start with # the line `#! .'. This would cause the generated library to # depend on `.', always an invalid library. This was fixed in # development snapshots of GCC prior to 3.0. case $host_os in aix4 | aix4.[01] | aix4.[01].*) if { echo '#if __GNUC__ > 2 || (__GNUC__ == 2 && __GNUC_MINOR__ >= 97)' echo ' yes ' echo '#endif'; } | ${CC} -E - | $GREP yes > /dev/null; then : else can_build_shared=no fi ;; esac # AIX (on Power*) has no versioning support, so currently we can not hardcode correct # soname into executable. Probably we can add versioning support to # collect2, so additional links can be useful in future. if test "$aix_use_runtimelinking" = yes; then # If using run time linking (on AIX 4.2 or later) use lib.so # instead of lib.a to let people know that these are not # typical AIX shared libraries. library_names_spec='${libname}${release}${shared_ext}$versuffix ${libname}${release}${shared_ext}$major $libname${shared_ext}' else # We preserve .a as extension for shared libraries through AIX4.2 # and later when we are not doing run time linking. library_names_spec='${libname}${release}.a $libname.a' soname_spec='${libname}${release}${shared_ext}$major' fi shlibpath_var=LIBPATH fi ;; amigaos*) case $host_cpu in powerpc) # Since July 2007 AmigaOS4 officially supports .so libraries. # When compiling the executable, add -use-dynld -Lsobjs: to the compileline. library_names_spec='${libname}${release}${shared_ext}$versuffix ${libname}${release}${shared_ext}$major $libname${shared_ext}' ;; m68k) library_names_spec='$libname.ixlibrary $libname.a' # Create ${libname}_ixlibrary.a entries in /sys/libs. finish_eval='for lib in `ls $libdir/*.ixlibrary 2>/dev/null`; do libname=`func_echo_all "$lib" | $SED '\''s%^.*/\([^/]*\)\.ixlibrary$%\1%'\''`; test $RM /sys/libs/${libname}_ixlibrary.a; $show "cd /sys/libs && $LN_S $lib ${libname}_ixlibrary.a"; cd /sys/libs && $LN_S $lib ${libname}_ixlibrary.a || exit 1; done' ;; esac ;; beos*) library_names_spec='${libname}${shared_ext}' dynamic_linker="$host_os ld.so" shlibpath_var=LIBRARY_PATH ;; bsdi[45]*) version_type=linux # correct to gnu/linux during the next big refactor need_version=no library_names_spec='${libname}${release}${shared_ext}$versuffix ${libname}${release}${shared_ext}$major $libname${shared_ext}' soname_spec='${libname}${release}${shared_ext}$major' finish_cmds='PATH="\$PATH:/sbin" ldconfig $libdir' shlibpath_var=LD_LIBRARY_PATH sys_lib_search_path_spec="/shlib /usr/lib /usr/X11/lib /usr/contrib/lib /lib /usr/local/lib" sys_lib_dlsearch_path_spec="/shlib /usr/lib /usr/local/lib" # the default ld.so.conf also contains /usr/contrib/lib and # /usr/X11R6/lib (/usr/X11 is a link to /usr/X11R6), but let us allow # libtool to hard-code these into programs ;; cygwin* | mingw* | pw32* | cegcc*) version_type=windows shrext_cmds=".dll" need_version=no need_lib_prefix=no case $GCC,$cc_basename in yes,*) # gcc library_names_spec='$libname.dll.a' # DLL is installed to $(libdir)/../bin by postinstall_cmds postinstall_cmds='base_file=`basename \${file}`~ dlpath=`$SHELL 2>&1 -c '\''. $dir/'\''\${base_file}'\''i; echo \$dlname'\''`~ dldir=$destdir/`dirname \$dlpath`~ test -d \$dldir || mkdir -p \$dldir~ $install_prog $dir/$dlname \$dldir/$dlname~ chmod a+x \$dldir/$dlname~ if test -n '\''$stripme'\'' && test -n '\''$striplib'\''; then eval '\''$striplib \$dldir/$dlname'\'' || exit \$?; fi' postuninstall_cmds='dldll=`$SHELL 2>&1 -c '\''. $file; echo \$dlname'\''`~ dlpath=$dir/\$dldll~ $RM \$dlpath' shlibpath_overrides_runpath=yes case $host_os in cygwin*) # Cygwin DLLs use 'cyg' prefix rather than 'lib' soname_spec='`echo ${libname} | sed -e 's/^lib/cyg/'``echo ${release} | $SED -e 's/[.]/-/g'`${versuffix}${shared_ext}' sys_lib_search_path_spec="$sys_lib_search_path_spec /usr/lib/w32api" ;; mingw* | cegcc*) # MinGW DLLs use traditional 'lib' prefix soname_spec='${libname}`echo ${release} | $SED -e 's/[.]/-/g'`${versuffix}${shared_ext}' ;; pw32*) # pw32 DLLs use 'pw' prefix rather than 'lib' library_names_spec='`echo ${libname} | sed -e 's/^lib/pw/'``echo ${release} | $SED -e 's/[.]/-/g'`${versuffix}${shared_ext}' ;; esac dynamic_linker='Win32 ld.exe' ;; *,cl*) # Native MSVC libname_spec='$name' soname_spec='${libname}`echo ${release} | $SED -e 's/[.]/-/g'`${versuffix}${shared_ext}' library_names_spec='${libname}.dll.lib' case $build_os in mingw*) sys_lib_search_path_spec= lt_save_ifs=$IFS IFS=';' for lt_path in $LIB do IFS=$lt_save_ifs # Let DOS variable expansion print the short 8.3 style file name. lt_path=`cd "$lt_path" 2>/dev/null && cmd //C "for %i in (".") do @echo %~si"` sys_lib_search_path_spec="$sys_lib_search_path_spec $lt_path" done IFS=$lt_save_ifs # Convert to MSYS style. sys_lib_search_path_spec=`$ECHO "$sys_lib_search_path_spec" | sed -e 's|\\\\|/|g' -e 's| \\([a-zA-Z]\\):| /\\1|g' -e 's|^ ||'` ;; cygwin*) # Convert to unix form, then to dos form, then back to unix form # but this time dos style (no spaces!) so that the unix form looks # like /cygdrive/c/PROGRA~1:/cygdr... sys_lib_search_path_spec=`cygpath --path --unix "$LIB"` sys_lib_search_path_spec=`cygpath --path --dos "$sys_lib_search_path_spec" 2>/dev/null` sys_lib_search_path_spec=`cygpath --path --unix "$sys_lib_search_path_spec" | $SED -e "s/$PATH_SEPARATOR/ /g"` ;; *) sys_lib_search_path_spec="$LIB" if $ECHO "$sys_lib_search_path_spec" | $GREP ';[c-zC-Z]:/' >/dev/null; then # It is most probably a Windows format PATH. sys_lib_search_path_spec=`$ECHO "$sys_lib_search_path_spec" | $SED -e 's/;/ /g'` else sys_lib_search_path_spec=`$ECHO "$sys_lib_search_path_spec" | $SED -e "s/$PATH_SEPARATOR/ /g"` fi # FIXME: find the short name or the path components, as spaces are # common. (e.g. "Program Files" -> "PROGRA~1") ;; esac # DLL is installed to $(libdir)/../bin by postinstall_cmds postinstall_cmds='base_file=`basename \${file}`~ dlpath=`$SHELL 2>&1 -c '\''. $dir/'\''\${base_file}'\''i; echo \$dlname'\''`~ dldir=$destdir/`dirname \$dlpath`~ test -d \$dldir || mkdir -p \$dldir~ $install_prog $dir/$dlname \$dldir/$dlname' postuninstall_cmds='dldll=`$SHELL 2>&1 -c '\''. $file; echo \$dlname'\''`~ dlpath=$dir/\$dldll~ $RM \$dlpath' shlibpath_overrides_runpath=yes dynamic_linker='Win32 link.exe' ;; *) # Assume MSVC wrapper library_names_spec='${libname}`echo ${release} | $SED -e 's/[.]/-/g'`${versuffix}${shared_ext} $libname.lib' dynamic_linker='Win32 ld.exe' ;; esac # FIXME: first we should search . and the directory the executable is in shlibpath_var=PATH ;; darwin* | rhapsody*) dynamic_linker="$host_os dyld" version_type=darwin need_lib_prefix=no need_version=no library_names_spec='${libname}${release}${major}$shared_ext ${libname}$shared_ext' soname_spec='${libname}${release}${major}$shared_ext' shlibpath_overrides_runpath=yes shlibpath_var=DYLD_LIBRARY_PATH shrext_cmds='`test .$module = .yes && echo .so || echo .dylib`' sys_lib_search_path_spec="$sys_lib_search_path_spec /usr/local/lib" sys_lib_dlsearch_path_spec='/usr/local/lib /lib /usr/lib' ;; dgux*) version_type=linux # correct to gnu/linux during the next big refactor need_lib_prefix=no need_version=no library_names_spec='${libname}${release}${shared_ext}$versuffix ${libname}${release}${shared_ext}$major $libname$shared_ext' soname_spec='${libname}${release}${shared_ext}$major' shlibpath_var=LD_LIBRARY_PATH ;; freebsd* | dragonfly*) # DragonFly does not have aout. When/if they implement a new # versioning mechanism, adjust this. if test -x /usr/bin/objformat; then objformat=`/usr/bin/objformat` else case $host_os in freebsd[23].*) objformat=aout ;; *) objformat=elf ;; esac fi version_type=freebsd-$objformat case $version_type in freebsd-elf*) library_names_spec='${libname}${release}${shared_ext}$versuffix ${libname}${release}${shared_ext} $libname${shared_ext}' need_version=no need_lib_prefix=no ;; freebsd-*) library_names_spec='${libname}${release}${shared_ext}$versuffix $libname${shared_ext}$versuffix' need_version=yes ;; esac shlibpath_var=LD_LIBRARY_PATH case $host_os in freebsd2.*) shlibpath_overrides_runpath=yes ;; freebsd3.[01]* | freebsdelf3.[01]*) shlibpath_overrides_runpath=yes hardcode_into_libs=yes ;; freebsd3.[2-9]* | freebsdelf3.[2-9]* | \ freebsd4.[0-5] | freebsdelf4.[0-5] | freebsd4.1.1 | freebsdelf4.1.1) shlibpath_overrides_runpath=no hardcode_into_libs=yes ;; *) # from 4.6 on, and DragonFly shlibpath_overrides_runpath=yes hardcode_into_libs=yes ;; esac ;; gnu*) version_type=linux # correct to gnu/linux during the next big refactor need_lib_prefix=no need_version=no library_names_spec='${libname}${release}${shared_ext}$versuffix ${libname}${release}${shared_ext}${major} ${libname}${shared_ext}' soname_spec='${libname}${release}${shared_ext}$major' shlibpath_var=LD_LIBRARY_PATH shlibpath_overrides_runpath=no hardcode_into_libs=yes ;; haiku*) version_type=linux # correct to gnu/linux during the next big refactor need_lib_prefix=no need_version=no dynamic_linker="$host_os runtime_loader" library_names_spec='${libname}${release}${shared_ext}$versuffix ${libname}${release}${shared_ext}${major} ${libname}${shared_ext}' soname_spec='${libname}${release}${shared_ext}$major' shlibpath_var=LIBRARY_PATH shlibpath_overrides_runpath=yes sys_lib_dlsearch_path_spec='/boot/home/config/lib /boot/common/lib /boot/system/lib' hardcode_into_libs=yes ;; hpux9* | hpux10* | hpux11*) # Give a soname corresponding to the major version so that dld.sl refuses to # link against other versions. version_type=sunos need_lib_prefix=no need_version=no case $host_cpu in ia64*) shrext_cmds='.so' hardcode_into_libs=yes dynamic_linker="$host_os dld.so" shlibpath_var=LD_LIBRARY_PATH shlibpath_overrides_runpath=yes # Unless +noenvvar is specified. library_names_spec='${libname}${release}${shared_ext}$versuffix ${libname}${release}${shared_ext}$major $libname${shared_ext}' soname_spec='${libname}${release}${shared_ext}$major' if test "X$HPUX_IA64_MODE" = X32; then sys_lib_search_path_spec="/usr/lib/hpux32 /usr/local/lib/hpux32 /usr/local/lib" else sys_lib_search_path_spec="/usr/lib/hpux64 /usr/local/lib/hpux64" fi sys_lib_dlsearch_path_spec=$sys_lib_search_path_spec ;; hppa*64*) shrext_cmds='.sl' hardcode_into_libs=yes dynamic_linker="$host_os dld.sl" shlibpath_var=LD_LIBRARY_PATH # How should we handle SHLIB_PATH shlibpath_overrides_runpath=yes # Unless +noenvvar is specified. library_names_spec='${libname}${release}${shared_ext}$versuffix ${libname}${release}${shared_ext}$major $libname${shared_ext}' soname_spec='${libname}${release}${shared_ext}$major' sys_lib_search_path_spec="/usr/lib/pa20_64 /usr/ccs/lib/pa20_64" sys_lib_dlsearch_path_spec=$sys_lib_search_path_spec ;; *) shrext_cmds='.sl' dynamic_linker="$host_os dld.sl" shlibpath_var=SHLIB_PATH shlibpath_overrides_runpath=no # +s is required to enable SHLIB_PATH library_names_spec='${libname}${release}${shared_ext}$versuffix ${libname}${release}${shared_ext}$major $libname${shared_ext}' soname_spec='${libname}${release}${shared_ext}$major' ;; esac # HP-UX runs *really* slowly unless shared libraries are mode 555, ... postinstall_cmds='chmod 555 $lib' # or fails outright, so override atomically: install_override_mode=555 ;; interix[3-9]*) version_type=linux # correct to gnu/linux during the next big refactor need_lib_prefix=no need_version=no library_names_spec='${libname}${release}${shared_ext}$versuffix ${libname}${release}${shared_ext}$major ${libname}${shared_ext}' soname_spec='${libname}${release}${shared_ext}$major' dynamic_linker='Interix 3.x ld.so.1 (PE, like ELF)' shlibpath_var=LD_LIBRARY_PATH shlibpath_overrides_runpath=no hardcode_into_libs=yes ;; irix5* | irix6* | nonstopux*) case $host_os in nonstopux*) version_type=nonstopux ;; *) if test "$lt_cv_prog_gnu_ld" = yes; then version_type=linux # correct to gnu/linux during the next big refactor else version_type=irix fi ;; esac need_lib_prefix=no need_version=no soname_spec='${libname}${release}${shared_ext}$major' library_names_spec='${libname}${release}${shared_ext}$versuffix ${libname}${release}${shared_ext}$major ${libname}${release}${shared_ext} $libname${shared_ext}' case $host_os in irix5* | nonstopux*) libsuff= shlibsuff= ;; *) case $LD in # libtool.m4 will add one of these switches to LD *-32|*"-32 "|*-melf32bsmip|*"-melf32bsmip ") libsuff= shlibsuff= libmagic=32-bit;; *-n32|*"-n32 "|*-melf32bmipn32|*"-melf32bmipn32 ") libsuff=32 shlibsuff=N32 libmagic=N32;; *-64|*"-64 "|*-melf64bmip|*"-melf64bmip ") libsuff=64 shlibsuff=64 libmagic=64-bit;; *) libsuff= shlibsuff= libmagic=never-match;; esac ;; esac shlibpath_var=LD_LIBRARY${shlibsuff}_PATH shlibpath_overrides_runpath=no sys_lib_search_path_spec="/usr/lib${libsuff} /lib${libsuff} /usr/local/lib${libsuff}" sys_lib_dlsearch_path_spec="/usr/lib${libsuff} /lib${libsuff}" hardcode_into_libs=yes ;; # No shared lib support for Linux oldld, aout, or coff. linux*oldld* | linux*aout* | linux*coff*) dynamic_linker=no ;; # This must be glibc/ELF. linux* | k*bsd*-gnu | kopensolaris*-gnu) version_type=linux # correct to gnu/linux during the next big refactor need_lib_prefix=no need_version=no library_names_spec='${libname}${release}${shared_ext}$versuffix ${libname}${release}${shared_ext}$major $libname${shared_ext}' soname_spec='${libname}${release}${shared_ext}$major' finish_cmds='PATH="\$PATH:/sbin" ldconfig -n $libdir' shlibpath_var=LD_LIBRARY_PATH shlibpath_overrides_runpath=no # Some binutils ld are patched to set DT_RUNPATH if ${lt_cv_shlibpath_overrides_runpath+:} false; then : $as_echo_n "(cached) " >&6 else lt_cv_shlibpath_overrides_runpath=no save_LDFLAGS=$LDFLAGS save_libdir=$libdir eval "libdir=/foo; wl=\"$lt_prog_compiler_wl\"; \ LDFLAGS=\"\$LDFLAGS $hardcode_libdir_flag_spec\"" cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ int main () { ; return 0; } _ACEOF if ac_fn_c_try_link "$LINENO"; then : if ($OBJDUMP -p conftest$ac_exeext) 2>/dev/null | grep "RUNPATH.*$libdir" >/dev/null; then : lt_cv_shlibpath_overrides_runpath=yes fi fi rm -f core conftest.err conftest.$ac_objext \ conftest$ac_exeext conftest.$ac_ext LDFLAGS=$save_LDFLAGS libdir=$save_libdir fi shlibpath_overrides_runpath=$lt_cv_shlibpath_overrides_runpath # This implies no fast_install, which is unacceptable. # Some rework will be needed to allow for fast_install # before this can be enabled. hardcode_into_libs=yes # Append ld.so.conf contents to the search path if test -f /etc/ld.so.conf; then lt_ld_extra=`awk '/^include / { system(sprintf("cd /etc; cat %s 2>/dev/null", \$2)); skip = 1; } { if (!skip) print \$0; skip = 0; }' < /etc/ld.so.conf | $SED -e 's/#.*//;/^[ ]*hwcap[ ]/d;s/[:, ]/ /g;s/=[^=]*$//;s/=[^= ]* / /g;s/"//g;/^$/d' | tr '\n' ' '` sys_lib_dlsearch_path_spec="/lib /usr/lib $lt_ld_extra" fi # We used to test for /lib/ld.so.1 and disable shared libraries on # powerpc, because MkLinux only supported shared libraries with the # GNU dynamic linker. Since this was broken with cross compilers, # most powerpc-linux boxes support dynamic linking these days and # people can always --disable-shared, the test was removed, and we # assume the GNU/Linux dynamic linker is in use. dynamic_linker='GNU/Linux ld.so' ;; netbsdelf*-gnu) version_type=linux need_lib_prefix=no need_version=no library_names_spec='${libname}${release}${shared_ext}$versuffix ${libname}${release}${shared_ext}$major ${libname}${shared_ext}' soname_spec='${libname}${release}${shared_ext}$major' shlibpath_var=LD_LIBRARY_PATH shlibpath_overrides_runpath=no hardcode_into_libs=yes dynamic_linker='NetBSD ld.elf_so' ;; netbsd*) version_type=sunos need_lib_prefix=no need_version=no if echo __ELF__ | $CC -E - | $GREP __ELF__ >/dev/null; then library_names_spec='${libname}${release}${shared_ext}$versuffix ${libname}${shared_ext}$versuffix' finish_cmds='PATH="\$PATH:/sbin" ldconfig -m $libdir' dynamic_linker='NetBSD (a.out) ld.so' else library_names_spec='${libname}${release}${shared_ext}$versuffix ${libname}${release}${shared_ext}$major ${libname}${shared_ext}' soname_spec='${libname}${release}${shared_ext}$major' dynamic_linker='NetBSD ld.elf_so' fi shlibpath_var=LD_LIBRARY_PATH shlibpath_overrides_runpath=yes hardcode_into_libs=yes ;; newsos6) version_type=linux # correct to gnu/linux during the next big refactor library_names_spec='${libname}${release}${shared_ext}$versuffix ${libname}${release}${shared_ext}$major $libname${shared_ext}' shlibpath_var=LD_LIBRARY_PATH shlibpath_overrides_runpath=yes ;; *nto* | *qnx*) version_type=qnx need_lib_prefix=no need_version=no library_names_spec='${libname}${release}${shared_ext}$versuffix ${libname}${release}${shared_ext}$major $libname${shared_ext}' soname_spec='${libname}${release}${shared_ext}$major' shlibpath_var=LD_LIBRARY_PATH shlibpath_overrides_runpath=no hardcode_into_libs=yes dynamic_linker='ldqnx.so' ;; openbsd*) version_type=sunos sys_lib_dlsearch_path_spec="/usr/lib" need_lib_prefix=no # Some older versions of OpenBSD (3.3 at least) *do* need versioned libs. case $host_os in openbsd3.3 | openbsd3.3.*) need_version=yes ;; *) need_version=no ;; esac library_names_spec='${libname}${release}${shared_ext}$versuffix ${libname}${shared_ext}$versuffix' finish_cmds='PATH="\$PATH:/sbin" ldconfig -m $libdir' shlibpath_var=LD_LIBRARY_PATH if test -z "`echo __ELF__ | $CC -E - | $GREP __ELF__`" || test "$host_os-$host_cpu" = "openbsd2.8-powerpc"; then case $host_os in openbsd2.[89] | openbsd2.[89].*) shlibpath_overrides_runpath=no ;; *) shlibpath_overrides_runpath=yes ;; esac else shlibpath_overrides_runpath=yes fi ;; os2*) libname_spec='$name' shrext_cmds=".dll" need_lib_prefix=no library_names_spec='$libname${shared_ext} $libname.a' dynamic_linker='OS/2 ld.exe' shlibpath_var=LIBPATH ;; osf3* | osf4* | osf5*) version_type=osf need_lib_prefix=no need_version=no soname_spec='${libname}${release}${shared_ext}$major' library_names_spec='${libname}${release}${shared_ext}$versuffix ${libname}${release}${shared_ext}$major $libname${shared_ext}' shlibpath_var=LD_LIBRARY_PATH sys_lib_search_path_spec="/usr/shlib /usr/ccs/lib /usr/lib/cmplrs/cc /usr/lib /usr/local/lib /var/shlib" sys_lib_dlsearch_path_spec="$sys_lib_search_path_spec" ;; rdos*) dynamic_linker=no ;; solaris*) version_type=linux # correct to gnu/linux during the next big refactor need_lib_prefix=no need_version=no library_names_spec='${libname}${release}${shared_ext}$versuffix ${libname}${release}${shared_ext}$major $libname${shared_ext}' soname_spec='${libname}${release}${shared_ext}$major' shlibpath_var=LD_LIBRARY_PATH shlibpath_overrides_runpath=yes hardcode_into_libs=yes # ldd complains unless libraries are executable postinstall_cmds='chmod +x $lib' ;; sunos4*) version_type=sunos library_names_spec='${libname}${release}${shared_ext}$versuffix ${libname}${shared_ext}$versuffix' finish_cmds='PATH="\$PATH:/usr/etc" ldconfig $libdir' shlibpath_var=LD_LIBRARY_PATH shlibpath_overrides_runpath=yes if test "$with_gnu_ld" = yes; then need_lib_prefix=no fi need_version=yes ;; sysv4 | sysv4.3*) version_type=linux # correct to gnu/linux during the next big refactor library_names_spec='${libname}${release}${shared_ext}$versuffix ${libname}${release}${shared_ext}$major $libname${shared_ext}' soname_spec='${libname}${release}${shared_ext}$major' shlibpath_var=LD_LIBRARY_PATH case $host_vendor in sni) shlibpath_overrides_runpath=no need_lib_prefix=no runpath_var=LD_RUN_PATH ;; siemens) need_lib_prefix=no ;; motorola) need_lib_prefix=no need_version=no shlibpath_overrides_runpath=no sys_lib_search_path_spec='/lib /usr/lib /usr/ccs/lib' ;; esac ;; sysv4*MP*) if test -d /usr/nec ;then version_type=linux # correct to gnu/linux during the next big refactor library_names_spec='$libname${shared_ext}.$versuffix $libname${shared_ext}.$major $libname${shared_ext}' soname_spec='$libname${shared_ext}.$major' shlibpath_var=LD_LIBRARY_PATH fi ;; sysv5* | sco3.2v5* | sco5v6* | unixware* | OpenUNIX* | sysv4*uw2*) version_type=freebsd-elf need_lib_prefix=no need_version=no library_names_spec='${libname}${release}${shared_ext}$versuffix ${libname}${release}${shared_ext} $libname${shared_ext}' soname_spec='${libname}${release}${shared_ext}$major' shlibpath_var=LD_LIBRARY_PATH shlibpath_overrides_runpath=yes hardcode_into_libs=yes if test "$with_gnu_ld" = yes; then sys_lib_search_path_spec='/usr/local/lib /usr/gnu/lib /usr/ccs/lib /usr/lib /lib' else sys_lib_search_path_spec='/usr/ccs/lib /usr/lib' case $host_os in sco3.2v5*) sys_lib_search_path_spec="$sys_lib_search_path_spec /lib" ;; esac fi sys_lib_dlsearch_path_spec='/usr/lib' ;; tpf*) # TPF is a cross-target only. Preferred cross-host = GNU/Linux. version_type=linux # correct to gnu/linux during the next big refactor need_lib_prefix=no need_version=no library_names_spec='${libname}${release}${shared_ext}$versuffix ${libname}${release}${shared_ext}$major $libname${shared_ext}' shlibpath_var=LD_LIBRARY_PATH shlibpath_overrides_runpath=no hardcode_into_libs=yes ;; uts4*) version_type=linux # correct to gnu/linux during the next big refactor library_names_spec='${libname}${release}${shared_ext}$versuffix ${libname}${release}${shared_ext}$major $libname${shared_ext}' soname_spec='${libname}${release}${shared_ext}$major' shlibpath_var=LD_LIBRARY_PATH ;; *) dynamic_linker=no ;; esac { $as_echo "$as_me:${as_lineno-$LINENO}: result: $dynamic_linker" >&5 $as_echo "$dynamic_linker" >&6; } test "$dynamic_linker" = no && can_build_shared=no variables_saved_for_relink="PATH $shlibpath_var $runpath_var" if test "$GCC" = yes; then variables_saved_for_relink="$variables_saved_for_relink GCC_EXEC_PREFIX COMPILER_PATH LIBRARY_PATH" fi if test "${lt_cv_sys_lib_search_path_spec+set}" = set; then sys_lib_search_path_spec="$lt_cv_sys_lib_search_path_spec" fi if test "${lt_cv_sys_lib_dlsearch_path_spec+set}" = set; then sys_lib_dlsearch_path_spec="$lt_cv_sys_lib_dlsearch_path_spec" fi { $as_echo "$as_me:${as_lineno-$LINENO}: checking how to hardcode library paths into programs" >&5 $as_echo_n "checking how to hardcode library paths into programs... " >&6; } hardcode_action= if test -n "$hardcode_libdir_flag_spec" || test -n "$runpath_var" || test "X$hardcode_automatic" = "Xyes" ; then # We can hardcode non-existent directories. if test "$hardcode_direct" != no && # If the only mechanism to avoid hardcoding is shlibpath_var, we # have to relink, otherwise we might link with an installed library # when we should be linking with a yet-to-be-installed one ## test "$_LT_TAGVAR(hardcode_shlibpath_var, )" != no && test "$hardcode_minus_L" != no; then # Linking always hardcodes the temporary library directory. hardcode_action=relink else # We can link without hardcoding, and we can hardcode nonexisting dirs. hardcode_action=immediate fi else # We cannot hardcode anything, or else we can only hardcode existing # directories. hardcode_action=unsupported fi { $as_echo "$as_me:${as_lineno-$LINENO}: result: $hardcode_action" >&5 $as_echo "$hardcode_action" >&6; } if test "$hardcode_action" = relink || test "$inherit_rpath" = yes; then # Fast installation is not supported enable_fast_install=no elif test "$shlibpath_overrides_runpath" = yes || test "$enable_shared" = no; then # Fast installation is not necessary enable_fast_install=needless fi if test "x$enable_dlopen" != xyes; then enable_dlopen=unknown enable_dlopen_self=unknown enable_dlopen_self_static=unknown else lt_cv_dlopen=no lt_cv_dlopen_libs= case $host_os in beos*) lt_cv_dlopen="load_add_on" lt_cv_dlopen_libs= lt_cv_dlopen_self=yes ;; mingw* | pw32* | cegcc*) lt_cv_dlopen="LoadLibrary" lt_cv_dlopen_libs= ;; cygwin*) lt_cv_dlopen="dlopen" lt_cv_dlopen_libs= ;; darwin*) # if libdl is installed we need to link against it { $as_echo "$as_me:${as_lineno-$LINENO}: checking for dlopen in -ldl" >&5 $as_echo_n "checking for dlopen in -ldl... " >&6; } if ${ac_cv_lib_dl_dlopen+:} false; then : $as_echo_n "(cached) " >&6 else ac_check_lib_save_LIBS=$LIBS LIBS="-ldl $LIBS" cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ /* Override any GCC internal prototype to avoid an error. Use char because int might match the return type of a GCC builtin and then its argument prototype would still apply. */ #ifdef __cplusplus extern "C" #endif char dlopen (); int main () { return dlopen (); ; return 0; } _ACEOF if ac_fn_c_try_link "$LINENO"; then : ac_cv_lib_dl_dlopen=yes else ac_cv_lib_dl_dlopen=no fi rm -f core conftest.err conftest.$ac_objext \ conftest$ac_exeext conftest.$ac_ext LIBS=$ac_check_lib_save_LIBS fi { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_lib_dl_dlopen" >&5 $as_echo "$ac_cv_lib_dl_dlopen" >&6; } if test "x$ac_cv_lib_dl_dlopen" = xyes; then : lt_cv_dlopen="dlopen" lt_cv_dlopen_libs="-ldl" else lt_cv_dlopen="dyld" lt_cv_dlopen_libs= lt_cv_dlopen_self=yes fi ;; *) ac_fn_c_check_func "$LINENO" "shl_load" "ac_cv_func_shl_load" if test "x$ac_cv_func_shl_load" = xyes; then : lt_cv_dlopen="shl_load" else { $as_echo "$as_me:${as_lineno-$LINENO}: checking for shl_load in -ldld" >&5 $as_echo_n "checking for shl_load in -ldld... " >&6; } if ${ac_cv_lib_dld_shl_load+:} false; then : $as_echo_n "(cached) " >&6 else ac_check_lib_save_LIBS=$LIBS LIBS="-ldld $LIBS" cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ /* Override any GCC internal prototype to avoid an error. Use char because int might match the return type of a GCC builtin and then its argument prototype would still apply. */ #ifdef __cplusplus extern "C" #endif char shl_load (); int main () { return shl_load (); ; return 0; } _ACEOF if ac_fn_c_try_link "$LINENO"; then : ac_cv_lib_dld_shl_load=yes else ac_cv_lib_dld_shl_load=no fi rm -f core conftest.err conftest.$ac_objext \ conftest$ac_exeext conftest.$ac_ext LIBS=$ac_check_lib_save_LIBS fi { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_lib_dld_shl_load" >&5 $as_echo "$ac_cv_lib_dld_shl_load" >&6; } if test "x$ac_cv_lib_dld_shl_load" = xyes; then : lt_cv_dlopen="shl_load" lt_cv_dlopen_libs="-ldld" else ac_fn_c_check_func "$LINENO" "dlopen" "ac_cv_func_dlopen" if test "x$ac_cv_func_dlopen" = xyes; then : lt_cv_dlopen="dlopen" else { $as_echo "$as_me:${as_lineno-$LINENO}: checking for dlopen in -ldl" >&5 $as_echo_n "checking for dlopen in -ldl... " >&6; } if ${ac_cv_lib_dl_dlopen+:} false; then : $as_echo_n "(cached) " >&6 else ac_check_lib_save_LIBS=$LIBS LIBS="-ldl $LIBS" cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ /* Override any GCC internal prototype to avoid an error. Use char because int might match the return type of a GCC builtin and then its argument prototype would still apply. */ #ifdef __cplusplus extern "C" #endif char dlopen (); int main () { return dlopen (); ; return 0; } _ACEOF if ac_fn_c_try_link "$LINENO"; then : ac_cv_lib_dl_dlopen=yes else ac_cv_lib_dl_dlopen=no fi rm -f core conftest.err conftest.$ac_objext \ conftest$ac_exeext conftest.$ac_ext LIBS=$ac_check_lib_save_LIBS fi { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_lib_dl_dlopen" >&5 $as_echo "$ac_cv_lib_dl_dlopen" >&6; } if test "x$ac_cv_lib_dl_dlopen" = xyes; then : lt_cv_dlopen="dlopen" lt_cv_dlopen_libs="-ldl" else { $as_echo "$as_me:${as_lineno-$LINENO}: checking for dlopen in -lsvld" >&5 $as_echo_n "checking for dlopen in -lsvld... " >&6; } if ${ac_cv_lib_svld_dlopen+:} false; then : $as_echo_n "(cached) " >&6 else ac_check_lib_save_LIBS=$LIBS LIBS="-lsvld $LIBS" cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ /* Override any GCC internal prototype to avoid an error. Use char because int might match the return type of a GCC builtin and then its argument prototype would still apply. */ #ifdef __cplusplus extern "C" #endif char dlopen (); int main () { return dlopen (); ; return 0; } _ACEOF if ac_fn_c_try_link "$LINENO"; then : ac_cv_lib_svld_dlopen=yes else ac_cv_lib_svld_dlopen=no fi rm -f core conftest.err conftest.$ac_objext \ conftest$ac_exeext conftest.$ac_ext LIBS=$ac_check_lib_save_LIBS fi { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_lib_svld_dlopen" >&5 $as_echo "$ac_cv_lib_svld_dlopen" >&6; } if test "x$ac_cv_lib_svld_dlopen" = xyes; then : lt_cv_dlopen="dlopen" lt_cv_dlopen_libs="-lsvld" else { $as_echo "$as_me:${as_lineno-$LINENO}: checking for dld_link in -ldld" >&5 $as_echo_n "checking for dld_link in -ldld... " >&6; } if ${ac_cv_lib_dld_dld_link+:} false; then : $as_echo_n "(cached) " >&6 else ac_check_lib_save_LIBS=$LIBS LIBS="-ldld $LIBS" cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ /* Override any GCC internal prototype to avoid an error. Use char because int might match the return type of a GCC builtin and then its argument prototype would still apply. */ #ifdef __cplusplus extern "C" #endif char dld_link (); int main () { return dld_link (); ; return 0; } _ACEOF if ac_fn_c_try_link "$LINENO"; then : ac_cv_lib_dld_dld_link=yes else ac_cv_lib_dld_dld_link=no fi rm -f core conftest.err conftest.$ac_objext \ conftest$ac_exeext conftest.$ac_ext LIBS=$ac_check_lib_save_LIBS fi { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_lib_dld_dld_link" >&5 $as_echo "$ac_cv_lib_dld_dld_link" >&6; } if test "x$ac_cv_lib_dld_dld_link" = xyes; then : lt_cv_dlopen="dld_link" lt_cv_dlopen_libs="-ldld" fi fi fi fi fi fi ;; esac if test "x$lt_cv_dlopen" != xno; then enable_dlopen=yes else enable_dlopen=no fi case $lt_cv_dlopen in dlopen) save_CPPFLAGS="$CPPFLAGS" test "x$ac_cv_header_dlfcn_h" = xyes && CPPFLAGS="$CPPFLAGS -DHAVE_DLFCN_H" save_LDFLAGS="$LDFLAGS" wl=$lt_prog_compiler_wl eval LDFLAGS=\"\$LDFLAGS $export_dynamic_flag_spec\" save_LIBS="$LIBS" LIBS="$lt_cv_dlopen_libs $LIBS" { $as_echo "$as_me:${as_lineno-$LINENO}: checking whether a program can dlopen itself" >&5 $as_echo_n "checking whether a program can dlopen itself... " >&6; } if ${lt_cv_dlopen_self+:} false; then : $as_echo_n "(cached) " >&6 else if test "$cross_compiling" = yes; then : lt_cv_dlopen_self=cross else lt_dlunknown=0; lt_dlno_uscore=1; lt_dlneed_uscore=2 lt_status=$lt_dlunknown cat > conftest.$ac_ext <<_LT_EOF #line $LINENO "configure" #include "confdefs.h" #if HAVE_DLFCN_H #include #endif #include #ifdef RTLD_GLOBAL # define LT_DLGLOBAL RTLD_GLOBAL #else # ifdef DL_GLOBAL # define LT_DLGLOBAL DL_GLOBAL # else # define LT_DLGLOBAL 0 # endif #endif /* We may have to define LT_DLLAZY_OR_NOW in the command line if we find out it does not work in some platform. */ #ifndef LT_DLLAZY_OR_NOW # ifdef RTLD_LAZY # define LT_DLLAZY_OR_NOW RTLD_LAZY # else # ifdef DL_LAZY # define LT_DLLAZY_OR_NOW DL_LAZY # else # ifdef RTLD_NOW # define LT_DLLAZY_OR_NOW RTLD_NOW # else # ifdef DL_NOW # define LT_DLLAZY_OR_NOW DL_NOW # else # define LT_DLLAZY_OR_NOW 0 # endif # endif # endif # endif #endif /* When -fvisbility=hidden is used, assume the code has been annotated correspondingly for the symbols needed. */ #if defined(__GNUC__) && (((__GNUC__ == 3) && (__GNUC_MINOR__ >= 3)) || (__GNUC__ > 3)) int fnord () __attribute__((visibility("default"))); #endif int fnord () { return 42; } int main () { void *self = dlopen (0, LT_DLGLOBAL|LT_DLLAZY_OR_NOW); int status = $lt_dlunknown; if (self) { if (dlsym (self,"fnord")) status = $lt_dlno_uscore; else { if (dlsym( self,"_fnord")) status = $lt_dlneed_uscore; else puts (dlerror ()); } /* dlclose (self); */ } else puts (dlerror ()); return status; } _LT_EOF if { { eval echo "\"\$as_me\":${as_lineno-$LINENO}: \"$ac_link\""; } >&5 (eval $ac_link) 2>&5 ac_status=$? $as_echo "$as_me:${as_lineno-$LINENO}: \$? = $ac_status" >&5 test $ac_status = 0; } && test -s conftest${ac_exeext} 2>/dev/null; then (./conftest; exit; ) >&5 2>/dev/null lt_status=$? case x$lt_status in x$lt_dlno_uscore) lt_cv_dlopen_self=yes ;; x$lt_dlneed_uscore) lt_cv_dlopen_self=yes ;; x$lt_dlunknown|x*) lt_cv_dlopen_self=no ;; esac else : # compilation failed lt_cv_dlopen_self=no fi fi rm -fr conftest* fi { $as_echo "$as_me:${as_lineno-$LINENO}: result: $lt_cv_dlopen_self" >&5 $as_echo "$lt_cv_dlopen_self" >&6; } if test "x$lt_cv_dlopen_self" = xyes; then wl=$lt_prog_compiler_wl eval LDFLAGS=\"\$LDFLAGS $lt_prog_compiler_static\" { $as_echo "$as_me:${as_lineno-$LINENO}: checking whether a statically linked program can dlopen itself" >&5 $as_echo_n "checking whether a statically linked program can dlopen itself... " >&6; } if ${lt_cv_dlopen_self_static+:} false; then : $as_echo_n "(cached) " >&6 else if test "$cross_compiling" = yes; then : lt_cv_dlopen_self_static=cross else lt_dlunknown=0; lt_dlno_uscore=1; lt_dlneed_uscore=2 lt_status=$lt_dlunknown cat > conftest.$ac_ext <<_LT_EOF #line $LINENO "configure" #include "confdefs.h" #if HAVE_DLFCN_H #include #endif #include #ifdef RTLD_GLOBAL # define LT_DLGLOBAL RTLD_GLOBAL #else # ifdef DL_GLOBAL # define LT_DLGLOBAL DL_GLOBAL # else # define LT_DLGLOBAL 0 # endif #endif /* We may have to define LT_DLLAZY_OR_NOW in the command line if we find out it does not work in some platform. */ #ifndef LT_DLLAZY_OR_NOW # ifdef RTLD_LAZY # define LT_DLLAZY_OR_NOW RTLD_LAZY # else # ifdef DL_LAZY # define LT_DLLAZY_OR_NOW DL_LAZY # else # ifdef RTLD_NOW # define LT_DLLAZY_OR_NOW RTLD_NOW # else # ifdef DL_NOW # define LT_DLLAZY_OR_NOW DL_NOW # else # define LT_DLLAZY_OR_NOW 0 # endif # endif # endif # endif #endif /* When -fvisbility=hidden is used, assume the code has been annotated correspondingly for the symbols needed. */ #if defined(__GNUC__) && (((__GNUC__ == 3) && (__GNUC_MINOR__ >= 3)) || (__GNUC__ > 3)) int fnord () __attribute__((visibility("default"))); #endif int fnord () { return 42; } int main () { void *self = dlopen (0, LT_DLGLOBAL|LT_DLLAZY_OR_NOW); int status = $lt_dlunknown; if (self) { if (dlsym (self,"fnord")) status = $lt_dlno_uscore; else { if (dlsym( self,"_fnord")) status = $lt_dlneed_uscore; else puts (dlerror ()); } /* dlclose (self); */ } else puts (dlerror ()); return status; } _LT_EOF if { { eval echo "\"\$as_me\":${as_lineno-$LINENO}: \"$ac_link\""; } >&5 (eval $ac_link) 2>&5 ac_status=$? $as_echo "$as_me:${as_lineno-$LINENO}: \$? = $ac_status" >&5 test $ac_status = 0; } && test -s conftest${ac_exeext} 2>/dev/null; then (./conftest; exit; ) >&5 2>/dev/null lt_status=$? case x$lt_status in x$lt_dlno_uscore) lt_cv_dlopen_self_static=yes ;; x$lt_dlneed_uscore) lt_cv_dlopen_self_static=yes ;; x$lt_dlunknown|x*) lt_cv_dlopen_self_static=no ;; esac else : # compilation failed lt_cv_dlopen_self_static=no fi fi rm -fr conftest* fi { $as_echo "$as_me:${as_lineno-$LINENO}: result: $lt_cv_dlopen_self_static" >&5 $as_echo "$lt_cv_dlopen_self_static" >&6; } fi CPPFLAGS="$save_CPPFLAGS" LDFLAGS="$save_LDFLAGS" LIBS="$save_LIBS" ;; esac case $lt_cv_dlopen_self in yes|no) enable_dlopen_self=$lt_cv_dlopen_self ;; *) enable_dlopen_self=unknown ;; esac case $lt_cv_dlopen_self_static in yes|no) enable_dlopen_self_static=$lt_cv_dlopen_self_static ;; *) enable_dlopen_self_static=unknown ;; esac fi striplib= old_striplib= { $as_echo "$as_me:${as_lineno-$LINENO}: checking whether stripping libraries is possible" >&5 $as_echo_n "checking whether stripping libraries is possible... " >&6; } if test -n "$STRIP" && $STRIP -V 2>&1 | $GREP "GNU strip" >/dev/null; then test -z "$old_striplib" && old_striplib="$STRIP --strip-debug" test -z "$striplib" && striplib="$STRIP --strip-unneeded" { $as_echo "$as_me:${as_lineno-$LINENO}: result: yes" >&5 $as_echo "yes" >&6; } else # FIXME - insert some real tests, host_os isn't really good enough case $host_os in darwin*) if test -n "$STRIP" ; then striplib="$STRIP -x" old_striplib="$STRIP -S" { $as_echo "$as_me:${as_lineno-$LINENO}: result: yes" >&5 $as_echo "yes" >&6; } else { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5 $as_echo "no" >&6; } fi ;; *) { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5 $as_echo "no" >&6; } ;; esac fi # Report which library types will actually be built { $as_echo "$as_me:${as_lineno-$LINENO}: checking if libtool supports shared libraries" >&5 $as_echo_n "checking if libtool supports shared libraries... " >&6; } { $as_echo "$as_me:${as_lineno-$LINENO}: result: $can_build_shared" >&5 $as_echo "$can_build_shared" >&6; } { $as_echo "$as_me:${as_lineno-$LINENO}: checking whether to build shared libraries" >&5 $as_echo_n "checking whether to build shared libraries... " >&6; } test "$can_build_shared" = "no" && enable_shared=no # On AIX, shared libraries and static libraries use the same namespace, and # are all built from PIC. case $host_os in aix3*) test "$enable_shared" = yes && enable_static=no if test -n "$RANLIB"; then archive_cmds="$archive_cmds~\$RANLIB \$lib" postinstall_cmds='$RANLIB $lib' fi ;; aix[4-9]*) if test "$host_cpu" != ia64 && test "$aix_use_runtimelinking" = no ; then test "$enable_shared" = yes && enable_static=no fi ;; esac { $as_echo "$as_me:${as_lineno-$LINENO}: result: $enable_shared" >&5 $as_echo "$enable_shared" >&6; } { $as_echo "$as_me:${as_lineno-$LINENO}: checking whether to build static libraries" >&5 $as_echo_n "checking whether to build static libraries... " >&6; } # Make sure either enable_shared or enable_static is yes. test "$enable_shared" = yes || enable_static=yes { $as_echo "$as_me:${as_lineno-$LINENO}: result: $enable_static" >&5 $as_echo "$enable_static" >&6; } fi ac_ext=c ac_cpp='$CPP $CPPFLAGS' ac_compile='$CC -c $CFLAGS $CPPFLAGS conftest.$ac_ext >&5' ac_link='$CC -o conftest$ac_exeext $CFLAGS $CPPFLAGS $LDFLAGS conftest.$ac_ext $LIBS >&5' ac_compiler_gnu=$ac_cv_c_compiler_gnu CC="$lt_save_CC" ac_config_commands="$ac_config_commands libtool" # Only expand once: AG_PKG_CONFIG_PATH=$pkg_config_path if test "x$prefix" = xNONE; then as_fn_error $? "No explicit prefix given. Guile-GNOME requires you to explicitly enter in a prefix when configuring. This is because the default prefix, /usr/local, is not in the default guile load path. What you probably want to do is to run $0 --prefix=/usr so that guile can find the guile-gnome modules when they are installed. If you choose to install to a prefix that is not in guile's load path, you will need to modify GUILE_LOAD_PATH and LD_LIBRARY_PATH every time you run guile. (Which is a pain.)" "$LINENO" 5 fi WARN_CFLAGS=-Wall # Check whether --enable-Werror was given. if test "${enable_Werror+set}" = set; then : enableval=$enable_Werror; WARN_CFLAGS="-Wall -Werror" fi DISABLE_DEPRECATED=false # Check whether --enable-deprecated was given. if test "${enable_deprecated+set}" = set; then : enableval=$enable_deprecated; DISABLE_DEPRECATED=true else DISABLE_DEPRECATED=false fi # # Check for Guile # GUILE_EFFECTIVE_VERSION=no all_versions="2.2 2.0 1.8" for v in $all_versions; do if test $GUILE_EFFECTIVE_VERSION = no; then { $as_echo "$as_me:${as_lineno-$LINENO}: checking for Guile $v.x" >&5 $as_echo "$as_me: checking for Guile $v.x" >&6;} if test "x$ac_cv_env_PKG_CONFIG_set" != "xset"; then if test -n "$ac_tool_prefix"; then # Extract the first word of "${ac_tool_prefix}pkg-config", so it can be a program name with args. set dummy ${ac_tool_prefix}pkg-config; ac_word=$2 { $as_echo "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5 $as_echo_n "checking for $ac_word... " >&6; } if ${ac_cv_path_PKG_CONFIG+:} false; then : $as_echo_n "(cached) " >&6 else case $PKG_CONFIG in [\\/]* | ?:[\\/]*) ac_cv_path_PKG_CONFIG="$PKG_CONFIG" # Let the user override the test with a path. ;; *) as_save_IFS=$IFS; IFS=$PATH_SEPARATOR for as_dir in $PATH do IFS=$as_save_IFS test -z "$as_dir" && as_dir=. for ac_exec_ext in '' $ac_executable_extensions; do if as_fn_executable_p "$as_dir/$ac_word$ac_exec_ext"; then ac_cv_path_PKG_CONFIG="$as_dir/$ac_word$ac_exec_ext" $as_echo "$as_me:${as_lineno-$LINENO}: found $as_dir/$ac_word$ac_exec_ext" >&5 break 2 fi done done IFS=$as_save_IFS ;; esac fi PKG_CONFIG=$ac_cv_path_PKG_CONFIG if test -n "$PKG_CONFIG"; then { $as_echo "$as_me:${as_lineno-$LINENO}: result: $PKG_CONFIG" >&5 $as_echo "$PKG_CONFIG" >&6; } else { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5 $as_echo "no" >&6; } fi fi if test -z "$ac_cv_path_PKG_CONFIG"; then ac_pt_PKG_CONFIG=$PKG_CONFIG # Extract the first word of "pkg-config", so it can be a program name with args. set dummy pkg-config; ac_word=$2 { $as_echo "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5 $as_echo_n "checking for $ac_word... " >&6; } if ${ac_cv_path_ac_pt_PKG_CONFIG+:} false; then : $as_echo_n "(cached) " >&6 else case $ac_pt_PKG_CONFIG in [\\/]* | ?:[\\/]*) ac_cv_path_ac_pt_PKG_CONFIG="$ac_pt_PKG_CONFIG" # Let the user override the test with a path. ;; *) as_save_IFS=$IFS; IFS=$PATH_SEPARATOR for as_dir in $PATH do IFS=$as_save_IFS test -z "$as_dir" && as_dir=. for ac_exec_ext in '' $ac_executable_extensions; do if as_fn_executable_p "$as_dir/$ac_word$ac_exec_ext"; then ac_cv_path_ac_pt_PKG_CONFIG="$as_dir/$ac_word$ac_exec_ext" $as_echo "$as_me:${as_lineno-$LINENO}: found $as_dir/$ac_word$ac_exec_ext" >&5 break 2 fi done done IFS=$as_save_IFS ;; esac fi ac_pt_PKG_CONFIG=$ac_cv_path_ac_pt_PKG_CONFIG if test -n "$ac_pt_PKG_CONFIG"; then { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_pt_PKG_CONFIG" >&5 $as_echo "$ac_pt_PKG_CONFIG" >&6; } else { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5 $as_echo "no" >&6; } fi if test "x$ac_pt_PKG_CONFIG" = x; then PKG_CONFIG="" else case $cross_compiling:$ac_tool_warned in yes:) { $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: using cross tools not prefixed with host triplet" >&5 $as_echo "$as_me: WARNING: using cross tools not prefixed with host triplet" >&2;} ac_tool_warned=yes ;; esac PKG_CONFIG=$ac_pt_PKG_CONFIG fi else PKG_CONFIG="$ac_cv_path_PKG_CONFIG" fi fi if test -n "$PKG_CONFIG"; then _pkg_min_version=0.9.0 { $as_echo "$as_me:${as_lineno-$LINENO}: checking pkg-config is at least version $_pkg_min_version" >&5 $as_echo_n "checking pkg-config is at least version $_pkg_min_version... " >&6; } if $PKG_CONFIG --atleast-pkgconfig-version $_pkg_min_version; then { $as_echo "$as_me:${as_lineno-$LINENO}: result: yes" >&5 $as_echo "yes" >&6; } else { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5 $as_echo "no" >&6; } PKG_CONFIG="" fi fi pkg_failed=no { $as_echo "$as_me:${as_lineno-$LINENO}: checking for GUILE" >&5 $as_echo_n "checking for GUILE... " >&6; } if test -n "$GUILE_CFLAGS"; then pkg_cv_GUILE_CFLAGS="$GUILE_CFLAGS" elif test -n "$PKG_CONFIG"; then if test -n "$PKG_CONFIG" && \ { { $as_echo "$as_me:${as_lineno-$LINENO}: \$PKG_CONFIG --exists --print-errors \"guile-\$v\""; } >&5 ($PKG_CONFIG --exists --print-errors "guile-$v") 2>&5 ac_status=$? $as_echo "$as_me:${as_lineno-$LINENO}: \$? = $ac_status" >&5 test $ac_status = 0; }; then pkg_cv_GUILE_CFLAGS=`$PKG_CONFIG --cflags "guile-$v" 2>/dev/null` test "x$?" != "x0" && pkg_failed=yes else pkg_failed=yes fi else pkg_failed=untried fi if test -n "$GUILE_LIBS"; then pkg_cv_GUILE_LIBS="$GUILE_LIBS" elif test -n "$PKG_CONFIG"; then if test -n "$PKG_CONFIG" && \ { { $as_echo "$as_me:${as_lineno-$LINENO}: \$PKG_CONFIG --exists --print-errors \"guile-\$v\""; } >&5 ($PKG_CONFIG --exists --print-errors "guile-$v") 2>&5 ac_status=$? $as_echo "$as_me:${as_lineno-$LINENO}: \$? = $ac_status" >&5 test $ac_status = 0; }; then pkg_cv_GUILE_LIBS=`$PKG_CONFIG --libs "guile-$v" 2>/dev/null` test "x$?" != "x0" && pkg_failed=yes else pkg_failed=yes fi else pkg_failed=untried fi if test $pkg_failed = yes; then { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5 $as_echo "no" >&6; } if $PKG_CONFIG --atleast-pkgconfig-version 0.20; then _pkg_short_errors_supported=yes else _pkg_short_errors_supported=no fi if test $_pkg_short_errors_supported = yes; then GUILE_PKG_ERRORS=`$PKG_CONFIG --short-errors --print-errors --cflags --libs "guile-$v" 2>&1` else GUILE_PKG_ERRORS=`$PKG_CONFIG --print-errors --cflags --libs "guile-$v" 2>&1` fi # Put the nasty error message in config.log where it belongs echo "$GUILE_PKG_ERRORS" >&5 true elif test $pkg_failed = untried; then { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5 $as_echo "no" >&6; } true else GUILE_CFLAGS=$pkg_cv_GUILE_CFLAGS GUILE_LIBS=$pkg_cv_GUILE_LIBS { $as_echo "$as_me:${as_lineno-$LINENO}: result: yes" >&5 $as_echo "yes" >&6; } GUILE_EFFECTIVE_VERSION=$v fi fi done if test $GUILE_EFFECTIVE_VERSION = no; then as_fn_error $? "Failed to find Guile. Is it installed?" "$LINENO" 5 else { $as_echo "$as_me:${as_lineno-$LINENO}: found Guile $GUILE_EFFECTIVE_VERSION.x" >&5 $as_echo "$as_me: found Guile $GUILE_EFFECTIVE_VERSION.x" >&6;} fi # Check for g-wrap pkg_failed=no { $as_echo "$as_me:${as_lineno-$LINENO}: checking for G_WRAP" >&5 $as_echo_n "checking for G_WRAP... " >&6; } if test -n "$G_WRAP_CFLAGS"; then pkg_cv_G_WRAP_CFLAGS="$G_WRAP_CFLAGS" elif test -n "$PKG_CONFIG"; then if test -n "$PKG_CONFIG" && \ { { $as_echo "$as_me:${as_lineno-$LINENO}: \$PKG_CONFIG --exists --print-errors \"g-wrap-2.0-guile >= 1.9.14\""; } >&5 ($PKG_CONFIG --exists --print-errors "g-wrap-2.0-guile >= 1.9.14") 2>&5 ac_status=$? $as_echo "$as_me:${as_lineno-$LINENO}: \$? = $ac_status" >&5 test $ac_status = 0; }; then pkg_cv_G_WRAP_CFLAGS=`$PKG_CONFIG --cflags "g-wrap-2.0-guile >= 1.9.14" 2>/dev/null` test "x$?" != "x0" && pkg_failed=yes else pkg_failed=yes fi else pkg_failed=untried fi if test -n "$G_WRAP_LIBS"; then pkg_cv_G_WRAP_LIBS="$G_WRAP_LIBS" elif test -n "$PKG_CONFIG"; then if test -n "$PKG_CONFIG" && \ { { $as_echo "$as_me:${as_lineno-$LINENO}: \$PKG_CONFIG --exists --print-errors \"g-wrap-2.0-guile >= 1.9.14\""; } >&5 ($PKG_CONFIG --exists --print-errors "g-wrap-2.0-guile >= 1.9.14") 2>&5 ac_status=$? $as_echo "$as_me:${as_lineno-$LINENO}: \$? = $ac_status" >&5 test $ac_status = 0; }; then pkg_cv_G_WRAP_LIBS=`$PKG_CONFIG --libs "g-wrap-2.0-guile >= 1.9.14" 2>/dev/null` test "x$?" != "x0" && pkg_failed=yes else pkg_failed=yes fi else pkg_failed=untried fi if test $pkg_failed = yes; then { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5 $as_echo "no" >&6; } if $PKG_CONFIG --atleast-pkgconfig-version 0.20; then _pkg_short_errors_supported=yes else _pkg_short_errors_supported=no fi if test $_pkg_short_errors_supported = yes; then G_WRAP_PKG_ERRORS=`$PKG_CONFIG --short-errors --print-errors --cflags --libs "g-wrap-2.0-guile >= 1.9.14" 2>&1` else G_WRAP_PKG_ERRORS=`$PKG_CONFIG --print-errors --cflags --libs "g-wrap-2.0-guile >= 1.9.14" 2>&1` fi # Put the nasty error message in config.log where it belongs echo "$G_WRAP_PKG_ERRORS" >&5 as_fn_error $? "Package requirements (g-wrap-2.0-guile >= 1.9.14) were not met: $G_WRAP_PKG_ERRORS Consider adjusting the PKG_CONFIG_PATH environment variable if you installed software in a non-standard prefix. Alternatively, you may set the environment variables G_WRAP_CFLAGS and G_WRAP_LIBS to avoid the need to call pkg-config. See the pkg-config man page for more details." "$LINENO" 5 elif test $pkg_failed = untried; then { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5 $as_echo "no" >&6; } { { $as_echo "$as_me:${as_lineno-$LINENO}: error: in \`$ac_pwd':" >&5 $as_echo "$as_me: error: in \`$ac_pwd':" >&2;} as_fn_error $? "The pkg-config script could not be found or is too old. Make sure it is in your PATH or set the PKG_CONFIG environment variable to the full path to pkg-config. Alternatively, you may set the environment variables G_WRAP_CFLAGS and G_WRAP_LIBS to avoid the need to call pkg-config. See the pkg-config man page for more details. To get pkg-config, see . See \`config.log' for more details" "$LINENO" 5; } else G_WRAP_CFLAGS=$pkg_cv_G_WRAP_CFLAGS G_WRAP_LIBS=$pkg_cv_G_WRAP_LIBS { $as_echo "$as_me:${as_lineno-$LINENO}: result: yes" >&5 $as_echo "yes" >&6; } fi G_WRAP_MODULE_DIR=`${PKG_CONFIG} --variable=module_directory g-wrap-2.0-guile` G_WRAP_LIB_DIR=`echo $G_WRAP_MODULE_DIR | sed -e 's|share/guile|lib|'` PACKAGES_TO_BUILD="" PACKAGES_NOT_BUILT="" record_check() { local package=$1; local buildp=$2; case $buildp in yes|true) if test -z "$PACKAGES_TO_BUILD"; then PACKAGES_TO_BUILD="$package" else PACKAGES_TO_BUILD="$PACKAGES_TO_BUILD $package" fi ;; no|false) if test -z "$PACKAGES_NOT_BUILT"; then PACKAGES_NOT_BUILT="$package" else PACKAGES_NOT_BUILT="$PACKAGES_NOT_BUILT $package" fi ;; *) echo "bad record_check value: \"$buildp\" (for package \"$package\")" exit 1 ;; esac } # Per-package checks follow # atk pkg_failed=no { $as_echo "$as_me:${as_lineno-$LINENO}: checking for ATK" >&5 $as_echo_n "checking for ATK... " >&6; } if test -n "$ATK_CFLAGS"; then pkg_cv_ATK_CFLAGS="$ATK_CFLAGS" elif test -n "$PKG_CONFIG"; then if test -n "$PKG_CONFIG" && \ { { $as_echo "$as_me:${as_lineno-$LINENO}: \$PKG_CONFIG --exists --print-errors \"atk >= 1.12\""; } >&5 ($PKG_CONFIG --exists --print-errors "atk >= 1.12") 2>&5 ac_status=$? $as_echo "$as_me:${as_lineno-$LINENO}: \$? = $ac_status" >&5 test $ac_status = 0; }; then pkg_cv_ATK_CFLAGS=`$PKG_CONFIG --cflags "atk >= 1.12" 2>/dev/null` test "x$?" != "x0" && pkg_failed=yes else pkg_failed=yes fi else pkg_failed=untried fi if test -n "$ATK_LIBS"; then pkg_cv_ATK_LIBS="$ATK_LIBS" elif test -n "$PKG_CONFIG"; then if test -n "$PKG_CONFIG" && \ { { $as_echo "$as_me:${as_lineno-$LINENO}: \$PKG_CONFIG --exists --print-errors \"atk >= 1.12\""; } >&5 ($PKG_CONFIG --exists --print-errors "atk >= 1.12") 2>&5 ac_status=$? $as_echo "$as_me:${as_lineno-$LINENO}: \$? = $ac_status" >&5 test $ac_status = 0; }; then pkg_cv_ATK_LIBS=`$PKG_CONFIG --libs "atk >= 1.12" 2>/dev/null` test "x$?" != "x0" && pkg_failed=yes else pkg_failed=yes fi else pkg_failed=untried fi if test $pkg_failed = yes; then { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5 $as_echo "no" >&6; } if $PKG_CONFIG --atleast-pkgconfig-version 0.20; then _pkg_short_errors_supported=yes else _pkg_short_errors_supported=no fi if test $_pkg_short_errors_supported = yes; then ATK_PKG_ERRORS=`$PKG_CONFIG --short-errors --print-errors --cflags --libs "atk >= 1.12" 2>&1` else ATK_PKG_ERRORS=`$PKG_CONFIG --print-errors --cflags --libs "atk >= 1.12" 2>&1` fi # Put the nasty error message in config.log where it belongs echo "$ATK_PKG_ERRORS" >&5 HAVE_ATK=false elif test $pkg_failed = untried; then { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5 $as_echo "no" >&6; } HAVE_ATK=false else ATK_CFLAGS=$pkg_cv_ATK_CFLAGS ATK_LIBS=$pkg_cv_ATK_LIBS { $as_echo "$as_me:${as_lineno-$LINENO}: result: yes" >&5 $as_echo "yes" >&6; } HAVE_ATK=true fi if $HAVE_ATK; then HAVE_ATK_TRUE= HAVE_ATK_FALSE='#' else HAVE_ATK_TRUE='#' HAVE_ATK_FALSE= fi record_check atk $HAVE_ATK # cairo pkg_failed=no { $as_echo "$as_me:${as_lineno-$LINENO}: checking for GUILE_CAIRO" >&5 $as_echo_n "checking for GUILE_CAIRO... " >&6; } if test -n "$GUILE_CAIRO_CFLAGS"; then pkg_cv_GUILE_CAIRO_CFLAGS="$GUILE_CAIRO_CFLAGS" elif test -n "$PKG_CONFIG"; then if test -n "$PKG_CONFIG" && \ { { $as_echo "$as_me:${as_lineno-$LINENO}: \$PKG_CONFIG --exists --print-errors \"guile-cairo\""; } >&5 ($PKG_CONFIG --exists --print-errors "guile-cairo") 2>&5 ac_status=$? $as_echo "$as_me:${as_lineno-$LINENO}: \$? = $ac_status" >&5 test $ac_status = 0; }; then pkg_cv_GUILE_CAIRO_CFLAGS=`$PKG_CONFIG --cflags "guile-cairo" 2>/dev/null` test "x$?" != "x0" && pkg_failed=yes else pkg_failed=yes fi else pkg_failed=untried fi if test -n "$GUILE_CAIRO_LIBS"; then pkg_cv_GUILE_CAIRO_LIBS="$GUILE_CAIRO_LIBS" elif test -n "$PKG_CONFIG"; then if test -n "$PKG_CONFIG" && \ { { $as_echo "$as_me:${as_lineno-$LINENO}: \$PKG_CONFIG --exists --print-errors \"guile-cairo\""; } >&5 ($PKG_CONFIG --exists --print-errors "guile-cairo") 2>&5 ac_status=$? $as_echo "$as_me:${as_lineno-$LINENO}: \$? = $ac_status" >&5 test $ac_status = 0; }; then pkg_cv_GUILE_CAIRO_LIBS=`$PKG_CONFIG --libs "guile-cairo" 2>/dev/null` test "x$?" != "x0" && pkg_failed=yes else pkg_failed=yes fi else pkg_failed=untried fi if test $pkg_failed = yes; then { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5 $as_echo "no" >&6; } if $PKG_CONFIG --atleast-pkgconfig-version 0.20; then _pkg_short_errors_supported=yes else _pkg_short_errors_supported=no fi if test $_pkg_short_errors_supported = yes; then GUILE_CAIRO_PKG_ERRORS=`$PKG_CONFIG --short-errors --print-errors --cflags --libs "guile-cairo" 2>&1` else GUILE_CAIRO_PKG_ERRORS=`$PKG_CONFIG --print-errors --cflags --libs "guile-cairo" 2>&1` fi # Put the nasty error message in config.log where it belongs echo "$GUILE_CAIRO_PKG_ERRORS" >&5 HAVE_CAIRO=false elif test $pkg_failed = untried; then { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5 $as_echo "no" >&6; } HAVE_CAIRO=false else GUILE_CAIRO_CFLAGS=$pkg_cv_GUILE_CAIRO_CFLAGS GUILE_CAIRO_LIBS=$pkg_cv_GUILE_CAIRO_LIBS { $as_echo "$as_me:${as_lineno-$LINENO}: result: yes" >&5 $as_echo "yes" >&6; } HAVE_CAIRO=true fi if $HAVE_CAIRO; then HAVE_CAIRO_TRUE= HAVE_CAIRO_FALSE='#' else HAVE_CAIRO_TRUE='#' HAVE_CAIRO_FALSE= fi record_check cairo $HAVE_CAIRO # corba pkg_failed=no { $as_echo "$as_me:${as_lineno-$LINENO}: checking for CORBA" >&5 $as_echo_n "checking for CORBA... " >&6; } if test -n "$CORBA_CFLAGS"; then pkg_cv_CORBA_CFLAGS="$CORBA_CFLAGS" elif test -n "$PKG_CONFIG"; then if test -n "$PKG_CONFIG" && \ { { $as_echo "$as_me:${as_lineno-$LINENO}: \$PKG_CONFIG --exists --print-errors \"libbonobo-2.0\""; } >&5 ($PKG_CONFIG --exists --print-errors "libbonobo-2.0") 2>&5 ac_status=$? $as_echo "$as_me:${as_lineno-$LINENO}: \$? = $ac_status" >&5 test $ac_status = 0; }; then pkg_cv_CORBA_CFLAGS=`$PKG_CONFIG --cflags "libbonobo-2.0" 2>/dev/null` test "x$?" != "x0" && pkg_failed=yes else pkg_failed=yes fi else pkg_failed=untried fi if test -n "$CORBA_LIBS"; then pkg_cv_CORBA_LIBS="$CORBA_LIBS" elif test -n "$PKG_CONFIG"; then if test -n "$PKG_CONFIG" && \ { { $as_echo "$as_me:${as_lineno-$LINENO}: \$PKG_CONFIG --exists --print-errors \"libbonobo-2.0\""; } >&5 ($PKG_CONFIG --exists --print-errors "libbonobo-2.0") 2>&5 ac_status=$? $as_echo "$as_me:${as_lineno-$LINENO}: \$? = $ac_status" >&5 test $ac_status = 0; }; then pkg_cv_CORBA_LIBS=`$PKG_CONFIG --libs "libbonobo-2.0" 2>/dev/null` test "x$?" != "x0" && pkg_failed=yes else pkg_failed=yes fi else pkg_failed=untried fi if test $pkg_failed = yes; then { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5 $as_echo "no" >&6; } if $PKG_CONFIG --atleast-pkgconfig-version 0.20; then _pkg_short_errors_supported=yes else _pkg_short_errors_supported=no fi if test $_pkg_short_errors_supported = yes; then CORBA_PKG_ERRORS=`$PKG_CONFIG --short-errors --print-errors --cflags --libs "libbonobo-2.0" 2>&1` else CORBA_PKG_ERRORS=`$PKG_CONFIG --print-errors --cflags --libs "libbonobo-2.0" 2>&1` fi # Put the nasty error message in config.log where it belongs echo "$CORBA_PKG_ERRORS" >&5 HAVE_CORBA=false elif test $pkg_failed = untried; then { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5 $as_echo "no" >&6; } HAVE_CORBA=false else CORBA_CFLAGS=$pkg_cv_CORBA_CFLAGS CORBA_LIBS=$pkg_cv_CORBA_LIBS { $as_echo "$as_me:${as_lineno-$LINENO}: result: yes" >&5 $as_echo "yes" >&6; } HAVE_CORBA=true fi if $HAVE_CORBA; then HAVE_CORBA_TRUE= HAVE_CORBA_FALSE='#' else HAVE_CORBA_TRUE='#' HAVE_CORBA_FALSE= fi ORBIT_IDL="`pkg-config --variable=orbit_idl ORBit-2.0`" BONOBO_IDL_DIR="`pkg-config --variable=idldir libbonobo-2.0`" record_check corba $HAVE_CORBA # gconf pkg_failed=no { $as_echo "$as_me:${as_lineno-$LINENO}: checking for GCONF" >&5 $as_echo_n "checking for GCONF... " >&6; } if test -n "$GCONF_CFLAGS"; then pkg_cv_GCONF_CFLAGS="$GCONF_CFLAGS" elif test -n "$PKG_CONFIG"; then if test -n "$PKG_CONFIG" && \ { { $as_echo "$as_me:${as_lineno-$LINENO}: \$PKG_CONFIG --exists --print-errors \"gconf-2.0 >= 2.18\""; } >&5 ($PKG_CONFIG --exists --print-errors "gconf-2.0 >= 2.18") 2>&5 ac_status=$? $as_echo "$as_me:${as_lineno-$LINENO}: \$? = $ac_status" >&5 test $ac_status = 0; }; then pkg_cv_GCONF_CFLAGS=`$PKG_CONFIG --cflags "gconf-2.0 >= 2.18" 2>/dev/null` test "x$?" != "x0" && pkg_failed=yes else pkg_failed=yes fi else pkg_failed=untried fi if test -n "$GCONF_LIBS"; then pkg_cv_GCONF_LIBS="$GCONF_LIBS" elif test -n "$PKG_CONFIG"; then if test -n "$PKG_CONFIG" && \ { { $as_echo "$as_me:${as_lineno-$LINENO}: \$PKG_CONFIG --exists --print-errors \"gconf-2.0 >= 2.18\""; } >&5 ($PKG_CONFIG --exists --print-errors "gconf-2.0 >= 2.18") 2>&5 ac_status=$? $as_echo "$as_me:${as_lineno-$LINENO}: \$? = $ac_status" >&5 test $ac_status = 0; }; then pkg_cv_GCONF_LIBS=`$PKG_CONFIG --libs "gconf-2.0 >= 2.18" 2>/dev/null` test "x$?" != "x0" && pkg_failed=yes else pkg_failed=yes fi else pkg_failed=untried fi if test $pkg_failed = yes; then { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5 $as_echo "no" >&6; } if $PKG_CONFIG --atleast-pkgconfig-version 0.20; then _pkg_short_errors_supported=yes else _pkg_short_errors_supported=no fi if test $_pkg_short_errors_supported = yes; then GCONF_PKG_ERRORS=`$PKG_CONFIG --short-errors --print-errors --cflags --libs "gconf-2.0 >= 2.18" 2>&1` else GCONF_PKG_ERRORS=`$PKG_CONFIG --print-errors --cflags --libs "gconf-2.0 >= 2.18" 2>&1` fi # Put the nasty error message in config.log where it belongs echo "$GCONF_PKG_ERRORS" >&5 HAVE_GCONF=false elif test $pkg_failed = untried; then { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5 $as_echo "no" >&6; } HAVE_GCONF=false else GCONF_CFLAGS=$pkg_cv_GCONF_CFLAGS GCONF_LIBS=$pkg_cv_GCONF_LIBS { $as_echo "$as_me:${as_lineno-$LINENO}: result: yes" >&5 $as_echo "yes" >&6; } HAVE_GCONF=true fi if $HAVE_GCONF; then HAVE_GCONF_TRUE= HAVE_GCONF_FALSE='#' else HAVE_GCONF_TRUE='#' HAVE_GCONF_FALSE= fi record_check gconf $HAVE_GCONF # glib pkg_failed=no { $as_echo "$as_me:${as_lineno-$LINENO}: checking for GLIB" >&5 $as_echo_n "checking for GLIB... " >&6; } if test -n "$GLIB_CFLAGS"; then pkg_cv_GLIB_CFLAGS="$GLIB_CFLAGS" elif test -n "$PKG_CONFIG"; then if test -n "$PKG_CONFIG" && \ { { $as_echo "$as_me:${as_lineno-$LINENO}: \$PKG_CONFIG --exists --print-errors \"glib-2.0 >= 2.10.0\""; } >&5 ($PKG_CONFIG --exists --print-errors "glib-2.0 >= 2.10.0") 2>&5 ac_status=$? $as_echo "$as_me:${as_lineno-$LINENO}: \$? = $ac_status" >&5 test $ac_status = 0; }; then pkg_cv_GLIB_CFLAGS=`$PKG_CONFIG --cflags "glib-2.0 >= 2.10.0" 2>/dev/null` test "x$?" != "x0" && pkg_failed=yes else pkg_failed=yes fi else pkg_failed=untried fi if test -n "$GLIB_LIBS"; then pkg_cv_GLIB_LIBS="$GLIB_LIBS" elif test -n "$PKG_CONFIG"; then if test -n "$PKG_CONFIG" && \ { { $as_echo "$as_me:${as_lineno-$LINENO}: \$PKG_CONFIG --exists --print-errors \"glib-2.0 >= 2.10.0\""; } >&5 ($PKG_CONFIG --exists --print-errors "glib-2.0 >= 2.10.0") 2>&5 ac_status=$? $as_echo "$as_me:${as_lineno-$LINENO}: \$? = $ac_status" >&5 test $ac_status = 0; }; then pkg_cv_GLIB_LIBS=`$PKG_CONFIG --libs "glib-2.0 >= 2.10.0" 2>/dev/null` test "x$?" != "x0" && pkg_failed=yes else pkg_failed=yes fi else pkg_failed=untried fi if test $pkg_failed = yes; then { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5 $as_echo "no" >&6; } if $PKG_CONFIG --atleast-pkgconfig-version 0.20; then _pkg_short_errors_supported=yes else _pkg_short_errors_supported=no fi if test $_pkg_short_errors_supported = yes; then GLIB_PKG_ERRORS=`$PKG_CONFIG --short-errors --print-errors --cflags --libs "glib-2.0 >= 2.10.0" 2>&1` else GLIB_PKG_ERRORS=`$PKG_CONFIG --print-errors --cflags --libs "glib-2.0 >= 2.10.0" 2>&1` fi # Put the nasty error message in config.log where it belongs echo "$GLIB_PKG_ERRORS" >&5 as_fn_error $? "Package requirements (glib-2.0 >= 2.10.0) were not met: $GLIB_PKG_ERRORS Consider adjusting the PKG_CONFIG_PATH environment variable if you installed software in a non-standard prefix. Alternatively, you may set the environment variables GLIB_CFLAGS and GLIB_LIBS to avoid the need to call pkg-config. See the pkg-config man page for more details." "$LINENO" 5 elif test $pkg_failed = untried; then { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5 $as_echo "no" >&6; } { { $as_echo "$as_me:${as_lineno-$LINENO}: error: in \`$ac_pwd':" >&5 $as_echo "$as_me: error: in \`$ac_pwd':" >&2;} as_fn_error $? "The pkg-config script could not be found or is too old. Make sure it is in your PATH or set the PKG_CONFIG environment variable to the full path to pkg-config. Alternatively, you may set the environment variables GLIB_CFLAGS and GLIB_LIBS to avoid the need to call pkg-config. See the pkg-config man page for more details. To get pkg-config, see . See \`config.log' for more details" "$LINENO" 5; } else GLIB_CFLAGS=$pkg_cv_GLIB_CFLAGS GLIB_LIBS=$pkg_cv_GLIB_LIBS { $as_echo "$as_me:${as_lineno-$LINENO}: result: yes" >&5 $as_echo "yes" >&6; } fi pkg_failed=no { $as_echo "$as_me:${as_lineno-$LINENO}: checking for GOBJECT" >&5 $as_echo_n "checking for GOBJECT... " >&6; } if test -n "$GOBJECT_CFLAGS"; then pkg_cv_GOBJECT_CFLAGS="$GOBJECT_CFLAGS" elif test -n "$PKG_CONFIG"; then if test -n "$PKG_CONFIG" && \ { { $as_echo "$as_me:${as_lineno-$LINENO}: \$PKG_CONFIG --exists --print-errors \"gobject-2.0\""; } >&5 ($PKG_CONFIG --exists --print-errors "gobject-2.0") 2>&5 ac_status=$? $as_echo "$as_me:${as_lineno-$LINENO}: \$? = $ac_status" >&5 test $ac_status = 0; }; then pkg_cv_GOBJECT_CFLAGS=`$PKG_CONFIG --cflags "gobject-2.0" 2>/dev/null` test "x$?" != "x0" && pkg_failed=yes else pkg_failed=yes fi else pkg_failed=untried fi if test -n "$GOBJECT_LIBS"; then pkg_cv_GOBJECT_LIBS="$GOBJECT_LIBS" elif test -n "$PKG_CONFIG"; then if test -n "$PKG_CONFIG" && \ { { $as_echo "$as_me:${as_lineno-$LINENO}: \$PKG_CONFIG --exists --print-errors \"gobject-2.0\""; } >&5 ($PKG_CONFIG --exists --print-errors "gobject-2.0") 2>&5 ac_status=$? $as_echo "$as_me:${as_lineno-$LINENO}: \$? = $ac_status" >&5 test $ac_status = 0; }; then pkg_cv_GOBJECT_LIBS=`$PKG_CONFIG --libs "gobject-2.0" 2>/dev/null` test "x$?" != "x0" && pkg_failed=yes else pkg_failed=yes fi else pkg_failed=untried fi if test $pkg_failed = yes; then { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5 $as_echo "no" >&6; } if $PKG_CONFIG --atleast-pkgconfig-version 0.20; then _pkg_short_errors_supported=yes else _pkg_short_errors_supported=no fi if test $_pkg_short_errors_supported = yes; then GOBJECT_PKG_ERRORS=`$PKG_CONFIG --short-errors --print-errors --cflags --libs "gobject-2.0" 2>&1` else GOBJECT_PKG_ERRORS=`$PKG_CONFIG --print-errors --cflags --libs "gobject-2.0" 2>&1` fi # Put the nasty error message in config.log where it belongs echo "$GOBJECT_PKG_ERRORS" >&5 as_fn_error $? "Package requirements (gobject-2.0) were not met: $GOBJECT_PKG_ERRORS Consider adjusting the PKG_CONFIG_PATH environment variable if you installed software in a non-standard prefix. Alternatively, you may set the environment variables GOBJECT_CFLAGS and GOBJECT_LIBS to avoid the need to call pkg-config. See the pkg-config man page for more details." "$LINENO" 5 elif test $pkg_failed = untried; then { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5 $as_echo "no" >&6; } { { $as_echo "$as_me:${as_lineno-$LINENO}: error: in \`$ac_pwd':" >&5 $as_echo "$as_me: error: in \`$ac_pwd':" >&2;} as_fn_error $? "The pkg-config script could not be found or is too old. Make sure it is in your PATH or set the PKG_CONFIG environment variable to the full path to pkg-config. Alternatively, you may set the environment variables GOBJECT_CFLAGS and GOBJECT_LIBS to avoid the need to call pkg-config. See the pkg-config man page for more details. To get pkg-config, see . See \`config.log' for more details" "$LINENO" 5; } else GOBJECT_CFLAGS=$pkg_cv_GOBJECT_CFLAGS GOBJECT_LIBS=$pkg_cv_GOBJECT_LIBS { $as_echo "$as_me:${as_lineno-$LINENO}: result: yes" >&5 $as_echo "yes" >&6; } fi pkg_failed=no { $as_echo "$as_me:${as_lineno-$LINENO}: checking for GTHREAD" >&5 $as_echo_n "checking for GTHREAD... " >&6; } if test -n "$GTHREAD_CFLAGS"; then pkg_cv_GTHREAD_CFLAGS="$GTHREAD_CFLAGS" elif test -n "$PKG_CONFIG"; then if test -n "$PKG_CONFIG" && \ { { $as_echo "$as_me:${as_lineno-$LINENO}: \$PKG_CONFIG --exists --print-errors \"gthread-2.0\""; } >&5 ($PKG_CONFIG --exists --print-errors "gthread-2.0") 2>&5 ac_status=$? $as_echo "$as_me:${as_lineno-$LINENO}: \$? = $ac_status" >&5 test $ac_status = 0; }; then pkg_cv_GTHREAD_CFLAGS=`$PKG_CONFIG --cflags "gthread-2.0" 2>/dev/null` test "x$?" != "x0" && pkg_failed=yes else pkg_failed=yes fi else pkg_failed=untried fi if test -n "$GTHREAD_LIBS"; then pkg_cv_GTHREAD_LIBS="$GTHREAD_LIBS" elif test -n "$PKG_CONFIG"; then if test -n "$PKG_CONFIG" && \ { { $as_echo "$as_me:${as_lineno-$LINENO}: \$PKG_CONFIG --exists --print-errors \"gthread-2.0\""; } >&5 ($PKG_CONFIG --exists --print-errors "gthread-2.0") 2>&5 ac_status=$? $as_echo "$as_me:${as_lineno-$LINENO}: \$? = $ac_status" >&5 test $ac_status = 0; }; then pkg_cv_GTHREAD_LIBS=`$PKG_CONFIG --libs "gthread-2.0" 2>/dev/null` test "x$?" != "x0" && pkg_failed=yes else pkg_failed=yes fi else pkg_failed=untried fi if test $pkg_failed = yes; then { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5 $as_echo "no" >&6; } if $PKG_CONFIG --atleast-pkgconfig-version 0.20; then _pkg_short_errors_supported=yes else _pkg_short_errors_supported=no fi if test $_pkg_short_errors_supported = yes; then GTHREAD_PKG_ERRORS=`$PKG_CONFIG --short-errors --print-errors --cflags --libs "gthread-2.0" 2>&1` else GTHREAD_PKG_ERRORS=`$PKG_CONFIG --print-errors --cflags --libs "gthread-2.0" 2>&1` fi # Put the nasty error message in config.log where it belongs echo "$GTHREAD_PKG_ERRORS" >&5 as_fn_error $? "Package requirements (gthread-2.0) were not met: $GTHREAD_PKG_ERRORS Consider adjusting the PKG_CONFIG_PATH environment variable if you installed software in a non-standard prefix. Alternatively, you may set the environment variables GTHREAD_CFLAGS and GTHREAD_LIBS to avoid the need to call pkg-config. See the pkg-config man page for more details." "$LINENO" 5 elif test $pkg_failed = untried; then { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5 $as_echo "no" >&6; } { { $as_echo "$as_me:${as_lineno-$LINENO}: error: in \`$ac_pwd':" >&5 $as_echo "$as_me: error: in \`$ac_pwd':" >&2;} as_fn_error $? "The pkg-config script could not be found or is too old. Make sure it is in your PATH or set the PKG_CONFIG environment variable to the full path to pkg-config. Alternatively, you may set the environment variables GTHREAD_CFLAGS and GTHREAD_LIBS to avoid the need to call pkg-config. See the pkg-config man page for more details. To get pkg-config, see . See \`config.log' for more details" "$LINENO" 5; } else GTHREAD_CFLAGS=$pkg_cv_GTHREAD_CFLAGS GTHREAD_LIBS=$pkg_cv_GTHREAD_LIBS { $as_echo "$as_me:${as_lineno-$LINENO}: result: yes" >&5 $as_echo "yes" >&6; } fi GUILE_GLIB_CFLAGS='-I$(top_srcdir)/glib/gnome/gobject -I$(top_builddir)/glib/gnome/gobject' GUILE_GLIB_LIBS='$(top_builddir)/glib/gnome/gobject/libguile-gnome-gobject-$(API_VERSION).la' ac_config_commands="$ac_config_commands glib/gnome/gobject/guile-gnome-gobject" record_check glib true # gnome-vfs pkg_failed=no { $as_echo "$as_me:${as_lineno-$LINENO}: checking for GNOME_VFS" >&5 $as_echo_n "checking for GNOME_VFS... " >&6; } if test -n "$GNOME_VFS_CFLAGS"; then pkg_cv_GNOME_VFS_CFLAGS="$GNOME_VFS_CFLAGS" elif test -n "$PKG_CONFIG"; then if test -n "$PKG_CONFIG" && \ { { $as_echo "$as_me:${as_lineno-$LINENO}: \$PKG_CONFIG --exists --print-errors \"gnome-vfs-2.0 >= 2.16.0\""; } >&5 ($PKG_CONFIG --exists --print-errors "gnome-vfs-2.0 >= 2.16.0") 2>&5 ac_status=$? $as_echo "$as_me:${as_lineno-$LINENO}: \$? = $ac_status" >&5 test $ac_status = 0; }; then pkg_cv_GNOME_VFS_CFLAGS=`$PKG_CONFIG --cflags "gnome-vfs-2.0 >= 2.16.0" 2>/dev/null` test "x$?" != "x0" && pkg_failed=yes else pkg_failed=yes fi else pkg_failed=untried fi if test -n "$GNOME_VFS_LIBS"; then pkg_cv_GNOME_VFS_LIBS="$GNOME_VFS_LIBS" elif test -n "$PKG_CONFIG"; then if test -n "$PKG_CONFIG" && \ { { $as_echo "$as_me:${as_lineno-$LINENO}: \$PKG_CONFIG --exists --print-errors \"gnome-vfs-2.0 >= 2.16.0\""; } >&5 ($PKG_CONFIG --exists --print-errors "gnome-vfs-2.0 >= 2.16.0") 2>&5 ac_status=$? $as_echo "$as_me:${as_lineno-$LINENO}: \$? = $ac_status" >&5 test $ac_status = 0; }; then pkg_cv_GNOME_VFS_LIBS=`$PKG_CONFIG --libs "gnome-vfs-2.0 >= 2.16.0" 2>/dev/null` test "x$?" != "x0" && pkg_failed=yes else pkg_failed=yes fi else pkg_failed=untried fi if test $pkg_failed = yes; then { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5 $as_echo "no" >&6; } if $PKG_CONFIG --atleast-pkgconfig-version 0.20; then _pkg_short_errors_supported=yes else _pkg_short_errors_supported=no fi if test $_pkg_short_errors_supported = yes; then GNOME_VFS_PKG_ERRORS=`$PKG_CONFIG --short-errors --print-errors --cflags --libs "gnome-vfs-2.0 >= 2.16.0" 2>&1` else GNOME_VFS_PKG_ERRORS=`$PKG_CONFIG --print-errors --cflags --libs "gnome-vfs-2.0 >= 2.16.0" 2>&1` fi # Put the nasty error message in config.log where it belongs echo "$GNOME_VFS_PKG_ERRORS" >&5 HAVE_GNOME_VFS=false elif test $pkg_failed = untried; then { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5 $as_echo "no" >&6; } HAVE_GNOME_VFS=false else GNOME_VFS_CFLAGS=$pkg_cv_GNOME_VFS_CFLAGS GNOME_VFS_LIBS=$pkg_cv_GNOME_VFS_LIBS { $as_echo "$as_me:${as_lineno-$LINENO}: result: yes" >&5 $as_echo "yes" >&6; } HAVE_GNOME_VFS=true fi if $HAVE_GNOME_VFS; then HAVE_GNOME_VFS_TRUE= HAVE_GNOME_VFS_FALSE='#' else HAVE_GNOME_VFS_TRUE='#' HAVE_GNOME_VFS_FALSE= fi if $DISABLE_DEPRECATED; then GNOME_VFS_DEPRECATED_CFLAGS=-DGNOME_VFS_DISABLE_DEPRECATED else GNOME_VFS_DEPRECATED_CFLAGS= fi record_check gnome-vfs $HAVE_GNOME_VFS # gtk pkg_failed=no { $as_echo "$as_me:${as_lineno-$LINENO}: checking for GDK_PIXBUF" >&5 $as_echo_n "checking for GDK_PIXBUF... " >&6; } if test -n "$GDK_PIXBUF_CFLAGS"; then pkg_cv_GDK_PIXBUF_CFLAGS="$GDK_PIXBUF_CFLAGS" elif test -n "$PKG_CONFIG"; then if test -n "$PKG_CONFIG" && \ { { $as_echo "$as_me:${as_lineno-$LINENO}: \$PKG_CONFIG --exists --print-errors \"gdk-pixbuf-2.0 >= 2.10.0\""; } >&5 ($PKG_CONFIG --exists --print-errors "gdk-pixbuf-2.0 >= 2.10.0") 2>&5 ac_status=$? $as_echo "$as_me:${as_lineno-$LINENO}: \$? = $ac_status" >&5 test $ac_status = 0; }; then pkg_cv_GDK_PIXBUF_CFLAGS=`$PKG_CONFIG --cflags "gdk-pixbuf-2.0 >= 2.10.0" 2>/dev/null` test "x$?" != "x0" && pkg_failed=yes else pkg_failed=yes fi else pkg_failed=untried fi if test -n "$GDK_PIXBUF_LIBS"; then pkg_cv_GDK_PIXBUF_LIBS="$GDK_PIXBUF_LIBS" elif test -n "$PKG_CONFIG"; then if test -n "$PKG_CONFIG" && \ { { $as_echo "$as_me:${as_lineno-$LINENO}: \$PKG_CONFIG --exists --print-errors \"gdk-pixbuf-2.0 >= 2.10.0\""; } >&5 ($PKG_CONFIG --exists --print-errors "gdk-pixbuf-2.0 >= 2.10.0") 2>&5 ac_status=$? $as_echo "$as_me:${as_lineno-$LINENO}: \$? = $ac_status" >&5 test $ac_status = 0; }; then pkg_cv_GDK_PIXBUF_LIBS=`$PKG_CONFIG --libs "gdk-pixbuf-2.0 >= 2.10.0" 2>/dev/null` test "x$?" != "x0" && pkg_failed=yes else pkg_failed=yes fi else pkg_failed=untried fi if test $pkg_failed = yes; then { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5 $as_echo "no" >&6; } if $PKG_CONFIG --atleast-pkgconfig-version 0.20; then _pkg_short_errors_supported=yes else _pkg_short_errors_supported=no fi if test $_pkg_short_errors_supported = yes; then GDK_PIXBUF_PKG_ERRORS=`$PKG_CONFIG --short-errors --print-errors --cflags --libs "gdk-pixbuf-2.0 >= 2.10.0" 2>&1` else GDK_PIXBUF_PKG_ERRORS=`$PKG_CONFIG --print-errors --cflags --libs "gdk-pixbuf-2.0 >= 2.10.0" 2>&1` fi # Put the nasty error message in config.log where it belongs echo "$GDK_PIXBUF_PKG_ERRORS" >&5 HAVE_GDK_PIBXUF=false elif test $pkg_failed = untried; then { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5 $as_echo "no" >&6; } HAVE_GDK_PIBXUF=false else GDK_PIXBUF_CFLAGS=$pkg_cv_GDK_PIXBUF_CFLAGS GDK_PIXBUF_LIBS=$pkg_cv_GDK_PIXBUF_LIBS { $as_echo "$as_me:${as_lineno-$LINENO}: result: yes" >&5 $as_echo "yes" >&6; } HAVE_GDK_PIXBUF=true fi if $HAVE_GDK_PIXBUF; then HAVE_GDK_PIXBUF_TRUE= HAVE_GDK_PIXBUF_FALSE='#' else HAVE_GDK_PIXBUF_TRUE='#' HAVE_GDK_PIXBUF_FALSE= fi if $HAVE_CAIRO; then pkg_failed=no { $as_echo "$as_me:${as_lineno-$LINENO}: checking for GDK" >&5 $as_echo_n "checking for GDK... " >&6; } if test -n "$GDK_CFLAGS"; then pkg_cv_GDK_CFLAGS="$GDK_CFLAGS" elif test -n "$PKG_CONFIG"; then if test -n "$PKG_CONFIG" && \ { { $as_echo "$as_me:${as_lineno-$LINENO}: \$PKG_CONFIG --exists --print-errors \"gdk-2.0 >= 2.10.0\""; } >&5 ($PKG_CONFIG --exists --print-errors "gdk-2.0 >= 2.10.0") 2>&5 ac_status=$? $as_echo "$as_me:${as_lineno-$LINENO}: \$? = $ac_status" >&5 test $ac_status = 0; }; then pkg_cv_GDK_CFLAGS=`$PKG_CONFIG --cflags "gdk-2.0 >= 2.10.0" 2>/dev/null` test "x$?" != "x0" && pkg_failed=yes else pkg_failed=yes fi else pkg_failed=untried fi if test -n "$GDK_LIBS"; then pkg_cv_GDK_LIBS="$GDK_LIBS" elif test -n "$PKG_CONFIG"; then if test -n "$PKG_CONFIG" && \ { { $as_echo "$as_me:${as_lineno-$LINENO}: \$PKG_CONFIG --exists --print-errors \"gdk-2.0 >= 2.10.0\""; } >&5 ($PKG_CONFIG --exists --print-errors "gdk-2.0 >= 2.10.0") 2>&5 ac_status=$? $as_echo "$as_me:${as_lineno-$LINENO}: \$? = $ac_status" >&5 test $ac_status = 0; }; then pkg_cv_GDK_LIBS=`$PKG_CONFIG --libs "gdk-2.0 >= 2.10.0" 2>/dev/null` test "x$?" != "x0" && pkg_failed=yes else pkg_failed=yes fi else pkg_failed=untried fi if test $pkg_failed = yes; then { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5 $as_echo "no" >&6; } if $PKG_CONFIG --atleast-pkgconfig-version 0.20; then _pkg_short_errors_supported=yes else _pkg_short_errors_supported=no fi if test $_pkg_short_errors_supported = yes; then GDK_PKG_ERRORS=`$PKG_CONFIG --short-errors --print-errors --cflags --libs "gdk-2.0 >= 2.10.0" 2>&1` else GDK_PKG_ERRORS=`$PKG_CONFIG --print-errors --cflags --libs "gdk-2.0 >= 2.10.0" 2>&1` fi # Put the nasty error message in config.log where it belongs echo "$GDK_PKG_ERRORS" >&5 HAVE_GDK=false elif test $pkg_failed = untried; then { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5 $as_echo "no" >&6; } HAVE_GDK=false else GDK_CFLAGS=$pkg_cv_GDK_CFLAGS GDK_LIBS=$pkg_cv_GDK_LIBS { $as_echo "$as_me:${as_lineno-$LINENO}: result: yes" >&5 $as_echo "yes" >&6; } HAVE_GDK=true fi pkg_failed=no { $as_echo "$as_me:${as_lineno-$LINENO}: checking for GTK" >&5 $as_echo_n "checking for GTK... " >&6; } if test -n "$GTK_CFLAGS"; then pkg_cv_GTK_CFLAGS="$GTK_CFLAGS" elif test -n "$PKG_CONFIG"; then if test -n "$PKG_CONFIG" && \ { { $as_echo "$as_me:${as_lineno-$LINENO}: \$PKG_CONFIG --exists --print-errors \"gtk+-2.0 >= 2.10.0\""; } >&5 ($PKG_CONFIG --exists --print-errors "gtk+-2.0 >= 2.10.0") 2>&5 ac_status=$? $as_echo "$as_me:${as_lineno-$LINENO}: \$? = $ac_status" >&5 test $ac_status = 0; }; then pkg_cv_GTK_CFLAGS=`$PKG_CONFIG --cflags "gtk+-2.0 >= 2.10.0" 2>/dev/null` test "x$?" != "x0" && pkg_failed=yes else pkg_failed=yes fi else pkg_failed=untried fi if test -n "$GTK_LIBS"; then pkg_cv_GTK_LIBS="$GTK_LIBS" elif test -n "$PKG_CONFIG"; then if test -n "$PKG_CONFIG" && \ { { $as_echo "$as_me:${as_lineno-$LINENO}: \$PKG_CONFIG --exists --print-errors \"gtk+-2.0 >= 2.10.0\""; } >&5 ($PKG_CONFIG --exists --print-errors "gtk+-2.0 >= 2.10.0") 2>&5 ac_status=$? $as_echo "$as_me:${as_lineno-$LINENO}: \$? = $ac_status" >&5 test $ac_status = 0; }; then pkg_cv_GTK_LIBS=`$PKG_CONFIG --libs "gtk+-2.0 >= 2.10.0" 2>/dev/null` test "x$?" != "x0" && pkg_failed=yes else pkg_failed=yes fi else pkg_failed=untried fi if test $pkg_failed = yes; then { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5 $as_echo "no" >&6; } if $PKG_CONFIG --atleast-pkgconfig-version 0.20; then _pkg_short_errors_supported=yes else _pkg_short_errors_supported=no fi if test $_pkg_short_errors_supported = yes; then GTK_PKG_ERRORS=`$PKG_CONFIG --short-errors --print-errors --cflags --libs "gtk+-2.0 >= 2.10.0" 2>&1` else GTK_PKG_ERRORS=`$PKG_CONFIG --print-errors --cflags --libs "gtk+-2.0 >= 2.10.0" 2>&1` fi # Put the nasty error message in config.log where it belongs echo "$GTK_PKG_ERRORS" >&5 HAVE_GTK=false elif test $pkg_failed = untried; then { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5 $as_echo "no" >&6; } HAVE_GTK=false else GTK_CFLAGS=$pkg_cv_GTK_CFLAGS GTK_LIBS=$pkg_cv_GTK_LIBS { $as_echo "$as_me:${as_lineno-$LINENO}: result: yes" >&5 $as_echo "yes" >&6; } HAVE_GTK=true fi if $DISABLE_DEPRECATED; then GTK_DEPRECATED_CFLAGS=-DGTK_DISABLE_DEPRECATED else GTK_DEPRECATED_CFLAGS= fi else { $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: not building gdk/gtk due to missing guile-cairo" >&5 $as_echo "$as_me: WARNING: not building gdk/gtk due to missing guile-cairo" >&2;} HAVE_GDK=false HAVE_GTK=false fi if $HAVE_GDK; then HAVE_GDK_TRUE= HAVE_GDK_FALSE='#' else HAVE_GDK_TRUE='#' HAVE_GDK_FALSE= fi if $HAVE_GTK; then HAVE_GTK_TRUE= HAVE_GTK_FALSE='#' else HAVE_GTK_TRUE='#' HAVE_GTK_FALSE= fi record_check gtk $HAVE_GTK # libglade pkg_failed=no { $as_echo "$as_me:${as_lineno-$LINENO}: checking for LIBGLADE" >&5 $as_echo_n "checking for LIBGLADE... " >&6; } if test -n "$LIBGLADE_CFLAGS"; then pkg_cv_LIBGLADE_CFLAGS="$LIBGLADE_CFLAGS" elif test -n "$PKG_CONFIG"; then if test -n "$PKG_CONFIG" && \ { { $as_echo "$as_me:${as_lineno-$LINENO}: \$PKG_CONFIG --exists --print-errors \"libglade-2.0 >= 2.6\""; } >&5 ($PKG_CONFIG --exists --print-errors "libglade-2.0 >= 2.6") 2>&5 ac_status=$? $as_echo "$as_me:${as_lineno-$LINENO}: \$? = $ac_status" >&5 test $ac_status = 0; }; then pkg_cv_LIBGLADE_CFLAGS=`$PKG_CONFIG --cflags "libglade-2.0 >= 2.6" 2>/dev/null` test "x$?" != "x0" && pkg_failed=yes else pkg_failed=yes fi else pkg_failed=untried fi if test -n "$LIBGLADE_LIBS"; then pkg_cv_LIBGLADE_LIBS="$LIBGLADE_LIBS" elif test -n "$PKG_CONFIG"; then if test -n "$PKG_CONFIG" && \ { { $as_echo "$as_me:${as_lineno-$LINENO}: \$PKG_CONFIG --exists --print-errors \"libglade-2.0 >= 2.6\""; } >&5 ($PKG_CONFIG --exists --print-errors "libglade-2.0 >= 2.6") 2>&5 ac_status=$? $as_echo "$as_me:${as_lineno-$LINENO}: \$? = $ac_status" >&5 test $ac_status = 0; }; then pkg_cv_LIBGLADE_LIBS=`$PKG_CONFIG --libs "libglade-2.0 >= 2.6" 2>/dev/null` test "x$?" != "x0" && pkg_failed=yes else pkg_failed=yes fi else pkg_failed=untried fi if test $pkg_failed = yes; then { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5 $as_echo "no" >&6; } if $PKG_CONFIG --atleast-pkgconfig-version 0.20; then _pkg_short_errors_supported=yes else _pkg_short_errors_supported=no fi if test $_pkg_short_errors_supported = yes; then LIBGLADE_PKG_ERRORS=`$PKG_CONFIG --short-errors --print-errors --cflags --libs "libglade-2.0 >= 2.6" 2>&1` else LIBGLADE_PKG_ERRORS=`$PKG_CONFIG --print-errors --cflags --libs "libglade-2.0 >= 2.6" 2>&1` fi # Put the nasty error message in config.log where it belongs echo "$LIBGLADE_PKG_ERRORS" >&5 HAVE_LIBGLADE=false elif test $pkg_failed = untried; then { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5 $as_echo "no" >&6; } HAVE_LIBGLADE=false else LIBGLADE_CFLAGS=$pkg_cv_LIBGLADE_CFLAGS LIBGLADE_LIBS=$pkg_cv_LIBGLADE_LIBS { $as_echo "$as_me:${as_lineno-$LINENO}: result: yes" >&5 $as_echo "yes" >&6; } HAVE_LIBGLADE=true fi if $HAVE_LIBGLADE; then HAVE_LIBGLADE_TRUE= HAVE_LIBGLADE_FALSE='#' else HAVE_LIBGLADE_TRUE='#' HAVE_LIBGLADE_FALSE= fi record_check libglade $HAVE_LIBGLADE # libgnome pkg_failed=no { $as_echo "$as_me:${as_lineno-$LINENO}: checking for LIBGNOME" >&5 $as_echo_n "checking for LIBGNOME... " >&6; } if test -n "$LIBGNOME_CFLAGS"; then pkg_cv_LIBGNOME_CFLAGS="$LIBGNOME_CFLAGS" elif test -n "$PKG_CONFIG"; then if test -n "$PKG_CONFIG" && \ { { $as_echo "$as_me:${as_lineno-$LINENO}: \$PKG_CONFIG --exists --print-errors \"libgnome-2.0 >= 2.16\""; } >&5 ($PKG_CONFIG --exists --print-errors "libgnome-2.0 >= 2.16") 2>&5 ac_status=$? $as_echo "$as_me:${as_lineno-$LINENO}: \$? = $ac_status" >&5 test $ac_status = 0; }; then pkg_cv_LIBGNOME_CFLAGS=`$PKG_CONFIG --cflags "libgnome-2.0 >= 2.16" 2>/dev/null` test "x$?" != "x0" && pkg_failed=yes else pkg_failed=yes fi else pkg_failed=untried fi if test -n "$LIBGNOME_LIBS"; then pkg_cv_LIBGNOME_LIBS="$LIBGNOME_LIBS" elif test -n "$PKG_CONFIG"; then if test -n "$PKG_CONFIG" && \ { { $as_echo "$as_me:${as_lineno-$LINENO}: \$PKG_CONFIG --exists --print-errors \"libgnome-2.0 >= 2.16\""; } >&5 ($PKG_CONFIG --exists --print-errors "libgnome-2.0 >= 2.16") 2>&5 ac_status=$? $as_echo "$as_me:${as_lineno-$LINENO}: \$? = $ac_status" >&5 test $ac_status = 0; }; then pkg_cv_LIBGNOME_LIBS=`$PKG_CONFIG --libs "libgnome-2.0 >= 2.16" 2>/dev/null` test "x$?" != "x0" && pkg_failed=yes else pkg_failed=yes fi else pkg_failed=untried fi if test $pkg_failed = yes; then { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5 $as_echo "no" >&6; } if $PKG_CONFIG --atleast-pkgconfig-version 0.20; then _pkg_short_errors_supported=yes else _pkg_short_errors_supported=no fi if test $_pkg_short_errors_supported = yes; then LIBGNOME_PKG_ERRORS=`$PKG_CONFIG --short-errors --print-errors --cflags --libs "libgnome-2.0 >= 2.16" 2>&1` else LIBGNOME_PKG_ERRORS=`$PKG_CONFIG --print-errors --cflags --libs "libgnome-2.0 >= 2.16" 2>&1` fi # Put the nasty error message in config.log where it belongs echo "$LIBGNOME_PKG_ERRORS" >&5 HAVE_LIBGNOME=false elif test $pkg_failed = untried; then { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5 $as_echo "no" >&6; } HAVE_LIBGNOME=false else LIBGNOME_CFLAGS=$pkg_cv_LIBGNOME_CFLAGS LIBGNOME_LIBS=$pkg_cv_LIBGNOME_LIBS { $as_echo "$as_me:${as_lineno-$LINENO}: result: yes" >&5 $as_echo "yes" >&6; } HAVE_LIBGNOME=true fi if $HAVE_LIBGNOME; then HAVE_LIBGNOME_TRUE= HAVE_LIBGNOME_FALSE='#' else HAVE_LIBGNOME_TRUE='#' HAVE_LIBGNOME_FALSE= fi record_check libgnome $HAVE_LIBGNOME # libgnomecanvas pkg_failed=no { $as_echo "$as_me:${as_lineno-$LINENO}: checking for CANVAS" >&5 $as_echo_n "checking for CANVAS... " >&6; } if test -n "$CANVAS_CFLAGS"; then pkg_cv_CANVAS_CFLAGS="$CANVAS_CFLAGS" elif test -n "$PKG_CONFIG"; then if test -n "$PKG_CONFIG" && \ { { $as_echo "$as_me:${as_lineno-$LINENO}: \$PKG_CONFIG --exists --print-errors \"libgnomecanvas-2.0 >= 2.14\""; } >&5 ($PKG_CONFIG --exists --print-errors "libgnomecanvas-2.0 >= 2.14") 2>&5 ac_status=$? $as_echo "$as_me:${as_lineno-$LINENO}: \$? = $ac_status" >&5 test $ac_status = 0; }; then pkg_cv_CANVAS_CFLAGS=`$PKG_CONFIG --cflags "libgnomecanvas-2.0 >= 2.14" 2>/dev/null` test "x$?" != "x0" && pkg_failed=yes else pkg_failed=yes fi else pkg_failed=untried fi if test -n "$CANVAS_LIBS"; then pkg_cv_CANVAS_LIBS="$CANVAS_LIBS" elif test -n "$PKG_CONFIG"; then if test -n "$PKG_CONFIG" && \ { { $as_echo "$as_me:${as_lineno-$LINENO}: \$PKG_CONFIG --exists --print-errors \"libgnomecanvas-2.0 >= 2.14\""; } >&5 ($PKG_CONFIG --exists --print-errors "libgnomecanvas-2.0 >= 2.14") 2>&5 ac_status=$? $as_echo "$as_me:${as_lineno-$LINENO}: \$? = $ac_status" >&5 test $ac_status = 0; }; then pkg_cv_CANVAS_LIBS=`$PKG_CONFIG --libs "libgnomecanvas-2.0 >= 2.14" 2>/dev/null` test "x$?" != "x0" && pkg_failed=yes else pkg_failed=yes fi else pkg_failed=untried fi if test $pkg_failed = yes; then { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5 $as_echo "no" >&6; } if $PKG_CONFIG --atleast-pkgconfig-version 0.20; then _pkg_short_errors_supported=yes else _pkg_short_errors_supported=no fi if test $_pkg_short_errors_supported = yes; then CANVAS_PKG_ERRORS=`$PKG_CONFIG --short-errors --print-errors --cflags --libs "libgnomecanvas-2.0 >= 2.14" 2>&1` else CANVAS_PKG_ERRORS=`$PKG_CONFIG --print-errors --cflags --libs "libgnomecanvas-2.0 >= 2.14" 2>&1` fi # Put the nasty error message in config.log where it belongs echo "$CANVAS_PKG_ERRORS" >&5 HAVE_CANVAS=false elif test $pkg_failed = untried; then { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5 $as_echo "no" >&6; } HAVE_CANVAS=false else CANVAS_CFLAGS=$pkg_cv_CANVAS_CFLAGS CANVAS_LIBS=$pkg_cv_CANVAS_LIBS { $as_echo "$as_me:${as_lineno-$LINENO}: result: yes" >&5 $as_echo "yes" >&6; } HAVE_CANVAS=true fi if $HAVE_CANVAS; then HAVE_CANVAS_TRUE= HAVE_CANVAS_FALSE='#' else HAVE_CANVAS_TRUE='#' HAVE_CANVAS_FALSE= fi record_check libgnomecanvas $HAVE_CANVAS # libgnomeui pkg_failed=no { $as_echo "$as_me:${as_lineno-$LINENO}: checking for LIBGNOMEUI" >&5 $as_echo_n "checking for LIBGNOMEUI... " >&6; } if test -n "$LIBGNOMEUI_CFLAGS"; then pkg_cv_LIBGNOMEUI_CFLAGS="$LIBGNOMEUI_CFLAGS" elif test -n "$PKG_CONFIG"; then if test -n "$PKG_CONFIG" && \ { { $as_echo "$as_me:${as_lineno-$LINENO}: \$PKG_CONFIG --exists --print-errors \"libgnomeui-2.0 >= 2.16.0\""; } >&5 ($PKG_CONFIG --exists --print-errors "libgnomeui-2.0 >= 2.16.0") 2>&5 ac_status=$? $as_echo "$as_me:${as_lineno-$LINENO}: \$? = $ac_status" >&5 test $ac_status = 0; }; then pkg_cv_LIBGNOMEUI_CFLAGS=`$PKG_CONFIG --cflags "libgnomeui-2.0 >= 2.16.0" 2>/dev/null` test "x$?" != "x0" && pkg_failed=yes else pkg_failed=yes fi else pkg_failed=untried fi if test -n "$LIBGNOMEUI_LIBS"; then pkg_cv_LIBGNOMEUI_LIBS="$LIBGNOMEUI_LIBS" elif test -n "$PKG_CONFIG"; then if test -n "$PKG_CONFIG" && \ { { $as_echo "$as_me:${as_lineno-$LINENO}: \$PKG_CONFIG --exists --print-errors \"libgnomeui-2.0 >= 2.16.0\""; } >&5 ($PKG_CONFIG --exists --print-errors "libgnomeui-2.0 >= 2.16.0") 2>&5 ac_status=$? $as_echo "$as_me:${as_lineno-$LINENO}: \$? = $ac_status" >&5 test $ac_status = 0; }; then pkg_cv_LIBGNOMEUI_LIBS=`$PKG_CONFIG --libs "libgnomeui-2.0 >= 2.16.0" 2>/dev/null` test "x$?" != "x0" && pkg_failed=yes else pkg_failed=yes fi else pkg_failed=untried fi if test $pkg_failed = yes; then { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5 $as_echo "no" >&6; } if $PKG_CONFIG --atleast-pkgconfig-version 0.20; then _pkg_short_errors_supported=yes else _pkg_short_errors_supported=no fi if test $_pkg_short_errors_supported = yes; then LIBGNOMEUI_PKG_ERRORS=`$PKG_CONFIG --short-errors --print-errors --cflags --libs "libgnomeui-2.0 >= 2.16.0" 2>&1` else LIBGNOMEUI_PKG_ERRORS=`$PKG_CONFIG --print-errors --cflags --libs "libgnomeui-2.0 >= 2.16.0" 2>&1` fi # Put the nasty error message in config.log where it belongs echo "$LIBGNOMEUI_PKG_ERRORS" >&5 HAVE_LIBGNOMEUI=false elif test $pkg_failed = untried; then { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5 $as_echo "no" >&6; } HAVE_LIBGNOMEUI=false else LIBGNOMEUI_CFLAGS=$pkg_cv_LIBGNOMEUI_CFLAGS LIBGNOMEUI_LIBS=$pkg_cv_LIBGNOMEUI_LIBS { $as_echo "$as_me:${as_lineno-$LINENO}: result: yes" >&5 $as_echo "yes" >&6; } HAVE_LIBGNOMEUI=true fi if $HAVE_LIBGNOMEUI; then HAVE_LIBGNOMEUI_TRUE= HAVE_LIBGNOMEUI_FALSE='#' else HAVE_LIBGNOMEUI_TRUE='#' HAVE_LIBGNOMEUI_FALSE= fi if $DISABLE_DEPRECATED; then GNOMEUI_DEPRECATION_FLAGS=-DGNOME_DISABLE_DEPRECATED_SOURCE -DGNOME_DISABLE_DEPRECATED else GNOMEUI_DEPRECATION_FLAGS= fi record_check libgnomeui $HAVE_LIBGNOMEUI # pango pkg_failed=no { $as_echo "$as_me:${as_lineno-$LINENO}: checking for PANGO" >&5 $as_echo_n "checking for PANGO... " >&6; } if test -n "$PANGO_CFLAGS"; then pkg_cv_PANGO_CFLAGS="$PANGO_CFLAGS" elif test -n "$PKG_CONFIG"; then if test -n "$PKG_CONFIG" && \ { { $as_echo "$as_me:${as_lineno-$LINENO}: \$PKG_CONFIG --exists --print-errors \"pango >= 1.14\""; } >&5 ($PKG_CONFIG --exists --print-errors "pango >= 1.14") 2>&5 ac_status=$? $as_echo "$as_me:${as_lineno-$LINENO}: \$? = $ac_status" >&5 test $ac_status = 0; }; then pkg_cv_PANGO_CFLAGS=`$PKG_CONFIG --cflags "pango >= 1.14" 2>/dev/null` test "x$?" != "x0" && pkg_failed=yes else pkg_failed=yes fi else pkg_failed=untried fi if test -n "$PANGO_LIBS"; then pkg_cv_PANGO_LIBS="$PANGO_LIBS" elif test -n "$PKG_CONFIG"; then if test -n "$PKG_CONFIG" && \ { { $as_echo "$as_me:${as_lineno-$LINENO}: \$PKG_CONFIG --exists --print-errors \"pango >= 1.14\""; } >&5 ($PKG_CONFIG --exists --print-errors "pango >= 1.14") 2>&5 ac_status=$? $as_echo "$as_me:${as_lineno-$LINENO}: \$? = $ac_status" >&5 test $ac_status = 0; }; then pkg_cv_PANGO_LIBS=`$PKG_CONFIG --libs "pango >= 1.14" 2>/dev/null` test "x$?" != "x0" && pkg_failed=yes else pkg_failed=yes fi else pkg_failed=untried fi if test $pkg_failed = yes; then { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5 $as_echo "no" >&6; } if $PKG_CONFIG --atleast-pkgconfig-version 0.20; then _pkg_short_errors_supported=yes else _pkg_short_errors_supported=no fi if test $_pkg_short_errors_supported = yes; then PANGO_PKG_ERRORS=`$PKG_CONFIG --short-errors --print-errors --cflags --libs "pango >= 1.14" 2>&1` else PANGO_PKG_ERRORS=`$PKG_CONFIG --print-errors --cflags --libs "pango >= 1.14" 2>&1` fi # Put the nasty error message in config.log where it belongs echo "$PANGO_PKG_ERRORS" >&5 HAVE_PANGO=false elif test $pkg_failed = untried; then { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5 $as_echo "no" >&6; } HAVE_PANGO=false else PANGO_CFLAGS=$pkg_cv_PANGO_CFLAGS PANGO_LIBS=$pkg_cv_PANGO_LIBS { $as_echo "$as_me:${as_lineno-$LINENO}: result: yes" >&5 $as_echo "yes" >&6; } HAVE_PANGO=true fi if $HAVE_PANGO; then HAVE_PANGO_TRUE= HAVE_PANGO_FALSE='#' else HAVE_PANGO_TRUE='#' HAVE_PANGO_FALSE= fi pkg_failed=no { $as_echo "$as_me:${as_lineno-$LINENO}: checking for PANGOCAIRO" >&5 $as_echo_n "checking for PANGOCAIRO... " >&6; } if test -n "$PANGOCAIRO_CFLAGS"; then pkg_cv_PANGOCAIRO_CFLAGS="$PANGOCAIRO_CFLAGS" elif test -n "$PKG_CONFIG"; then if test -n "$PKG_CONFIG" && \ { { $as_echo "$as_me:${as_lineno-$LINENO}: \$PKG_CONFIG --exists --print-errors \"pangocairo >= 1.14\""; } >&5 ($PKG_CONFIG --exists --print-errors "pangocairo >= 1.14") 2>&5 ac_status=$? $as_echo "$as_me:${as_lineno-$LINENO}: \$? = $ac_status" >&5 test $ac_status = 0; }; then pkg_cv_PANGOCAIRO_CFLAGS=`$PKG_CONFIG --cflags "pangocairo >= 1.14" 2>/dev/null` test "x$?" != "x0" && pkg_failed=yes else pkg_failed=yes fi else pkg_failed=untried fi if test -n "$PANGOCAIRO_LIBS"; then pkg_cv_PANGOCAIRO_LIBS="$PANGOCAIRO_LIBS" elif test -n "$PKG_CONFIG"; then if test -n "$PKG_CONFIG" && \ { { $as_echo "$as_me:${as_lineno-$LINENO}: \$PKG_CONFIG --exists --print-errors \"pangocairo >= 1.14\""; } >&5 ($PKG_CONFIG --exists --print-errors "pangocairo >= 1.14") 2>&5 ac_status=$? $as_echo "$as_me:${as_lineno-$LINENO}: \$? = $ac_status" >&5 test $ac_status = 0; }; then pkg_cv_PANGOCAIRO_LIBS=`$PKG_CONFIG --libs "pangocairo >= 1.14" 2>/dev/null` test "x$?" != "x0" && pkg_failed=yes else pkg_failed=yes fi else pkg_failed=untried fi if test $pkg_failed = yes; then { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5 $as_echo "no" >&6; } if $PKG_CONFIG --atleast-pkgconfig-version 0.20; then _pkg_short_errors_supported=yes else _pkg_short_errors_supported=no fi if test $_pkg_short_errors_supported = yes; then PANGOCAIRO_PKG_ERRORS=`$PKG_CONFIG --short-errors --print-errors --cflags --libs "pangocairo >= 1.14" 2>&1` else PANGOCAIRO_PKG_ERRORS=`$PKG_CONFIG --print-errors --cflags --libs "pangocairo >= 1.14" 2>&1` fi # Put the nasty error message in config.log where it belongs echo "$PANGOCAIRO_PKG_ERRORS" >&5 HAVE_PANGOCAIRO=false elif test $pkg_failed = untried; then { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5 $as_echo "no" >&6; } HAVE_PANGOCAIRO=false else PANGOCAIRO_CFLAGS=$pkg_cv_PANGOCAIRO_CFLAGS PANGOCAIRO_LIBS=$pkg_cv_PANGOCAIRO_LIBS { $as_echo "$as_me:${as_lineno-$LINENO}: result: yes" >&5 $as_echo "yes" >&6; } HAVE_PANGOCAIRO=true fi if $HAVE_PANGOCAIRO; then HAVE_PANGOCAIRO_TRUE= HAVE_PANGOCAIRO_FALSE='#' else HAVE_PANGOCAIRO_TRUE='#' HAVE_PANGOCAIRO_FALSE= fi record_check pango $HAVE_PANGO if test -z "$PACKAGES_TO_BUILD"; then as_fn_error $? "All wrappers failed their prerequisites. These following wrappers cannot be built: $PACKAGES_NOT_BUILT Check the README files in the above subdirectories, install the necessary packages, and try again. " "$LINENO" 5 fi if test -z "$PACKAGES_NOT_BUILT"; then { $as_echo "$as_me:${as_lineno-$LINENO}: All available wrappers will be built: $PACKAGES_TO_BUILD " >&5 $as_echo "$as_me: All available wrappers will be built: $PACKAGES_TO_BUILD " >&6;} else { $as_echo "$as_me:${as_lineno-$LINENO}: Some packages will not be built. These wrappers will be built: $PACKAGES_TO_BUILD These wrappers failed their prerequisites and will NOT be built: $PACKAGES_NOT_BUILT Check the README files in the above subdirectories for more information on the prerequisites of a package. " >&5 $as_echo "$as_me: Some packages will not be built. These wrappers will be built: $PACKAGES_TO_BUILD These wrappers failed their prerequisites and will NOT be built: $PACKAGES_NOT_BUILT Check the README files in the above subdirectories for more information on the prerequisites of a package. " >&6;} fi ac_config_files="$ac_config_files dev-environ" ac_config_files="$ac_config_files Makefile atk/doc/Makefile atk/tests/Makefile atk/gnome/gw/Makefile atk/gnome/Makefile atk/gnome/overrides/Makefile atk/Makefile cairo/gnome/gw/Makefile cairo/gnome/Makefile cairo/Makefile corba/doc/Makefile corba/tests/Makefile corba/gnome/gw/Makefile corba/gnome/Makefile corba/gnome/corba/Makefile corba/Makefile corba/demos/Makefile corba/demos/corba/Makefile defs/tools/Makefile defs/gnome/Makefile defs/gnome/defs/Makefile defs/Makefile gconf/examples/Makefile gconf/examples/gconf/Makefile gconf/doc/Makefile gconf/tests/Makefile gconf/gnome/gw/Makefile gconf/gnome/Makefile gconf/gnome/overrides/Makefile gconf/Makefile glib/examples/Makefile glib/doc/Makefile glib/doc/glib/Makefile glib/doc/gobject/Makefile glib/gnome/gw/Makefile glib/gnome/gw/support/Makefile glib/gnome/Makefile glib/gnome/overrides/Makefile glib/gnome/gobject/Makefile glib/test-suite/Makefile glib/Makefile glib/bin/Makefile gnome-vfs/examples/gnome-vfs/Makefile gnome-vfs/examples/Makefile gnome-vfs/doc/Makefile gnome-vfs/tests/Makefile gnome-vfs/gnome/gw/Makefile gnome-vfs/gnome/Makefile gnome-vfs/gnome/overrides/Makefile gnome-vfs/Makefile gtk/examples/Makefile gtk/doc/gtk/Makefile gtk/doc/gdk/Makefile gtk/doc/Makefile gtk/tests/gtk/Makefile gtk/tests/gdk/Makefile gtk/tests/Makefile gtk/gnome/contrib/Makefile gtk/gnome/gw/Makefile gtk/gnome/gtk/Makefile gtk/gnome/Makefile gtk/gnome/overrides/Makefile gtk/Makefile libglade/examples/Makefile libglade/doc/Makefile libglade/tests/Makefile libglade/gnome/gw/Makefile libglade/gnome/Makefile libglade/gnome/overrides/Makefile libglade/Makefile libgnome/doc/Makefile libgnome/tests/Makefile libgnome/gnome/gw/Makefile libgnome/gnome/Makefile libgnome/gnome/overrides/Makefile libgnome/Makefile libgnomecanvas/examples/Makefile libgnomecanvas/doc/Makefile libgnomecanvas/tests/Makefile libgnomecanvas/gnome/gw/Makefile libgnomecanvas/gnome/Makefile libgnomecanvas/gnome/overrides/Makefile libgnomecanvas/Makefile libgnomeui/doc/Makefile libgnomeui/tests/Makefile libgnomeui/gnome/gw/Makefile libgnomeui/gnome/Makefile libgnomeui/gnome/overrides/Makefile libgnomeui/Makefile pango/doc/pango/Makefile pango/doc/pangocairo/Makefile pango/doc/Makefile pango/tests/pango/Makefile pango/tests/pangocairo/Makefile pango/tests/Makefile pango/gnome/gw/Makefile pango/gnome/Makefile pango/gnome/overrides/Makefile pango/Makefile cairo/guile-gnome-cairo.pc cairo/guile-gnome-cairo-uninstalled.pc defs/guile-gnome-defs.pc defs/guile-gnome-defs-uninstalled.pc glib/guile-gnome-glib.pc glib/guile-gnome-glib-uninstalled.pc gtk/guile-gnome-gtk.pc gtk/guile-gnome-gtk-uninstalled.pc libgnomeui/guile-gnome-libgnomeui.pc libgnomeui/guile-gnome-libgnomeui-uninstalled.pc" cat >confcache <<\_ACEOF # This file is a shell script that caches the results of configure # tests run on this system so they can be shared between configure # scripts and configure runs, see configure's option --config-cache. # It is not useful on other systems. If it contains results you don't # want to keep, you may remove or edit it. # # config.status only pays attention to the cache file if you give it # the --recheck option to rerun configure. # # `ac_cv_env_foo' variables (set or unset) will be overridden when # loading this file, other *unset* `ac_cv_foo' will be assigned the # following values. _ACEOF # The following way of writing the cache mishandles newlines in values, # but we know of no workaround that is simple, portable, and efficient. # So, we kill variables containing newlines. # Ultrix sh set writes to stderr and can't be redirected directly, # and sets the high bit in the cache file unless we assign to the vars. ( for ac_var in `(set) 2>&1 | sed -n 's/^\([a-zA-Z_][a-zA-Z0-9_]*\)=.*/\1/p'`; do eval ac_val=\$$ac_var case $ac_val in #( *${as_nl}*) case $ac_var in #( *_cv_*) { $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: cache variable $ac_var contains a newline" >&5 $as_echo "$as_me: WARNING: cache variable $ac_var contains a newline" >&2;} ;; esac case $ac_var in #( _ | IFS | as_nl) ;; #( BASH_ARGV | BASH_SOURCE) eval $ac_var= ;; #( *) { eval $ac_var=; unset $ac_var;} ;; esac ;; esac done (set) 2>&1 | case $as_nl`(ac_space=' '; set) 2>&1` in #( *${as_nl}ac_space=\ *) # `set' does not quote correctly, so add quotes: double-quote # substitution turns \\\\ into \\, and sed turns \\ into \. sed -n \ "s/'/'\\\\''/g; s/^\\([_$as_cr_alnum]*_cv_[_$as_cr_alnum]*\\)=\\(.*\\)/\\1='\\2'/p" ;; #( *) # `set' quotes correctly as required by POSIX, so do not add quotes. sed -n "/^[_$as_cr_alnum]*_cv_[_$as_cr_alnum]*=/p" ;; esac | sort ) | sed ' /^ac_cv_env_/b end t clear :clear s/^\([^=]*\)=\(.*[{}].*\)$/test "${\1+set}" = set || &/ t end s/^\([^=]*\)=\(.*\)$/\1=${\1=\2}/ :end' >>confcache if diff "$cache_file" confcache >/dev/null 2>&1; then :; else if test -w "$cache_file"; then if test "x$cache_file" != "x/dev/null"; then { $as_echo "$as_me:${as_lineno-$LINENO}: updating cache $cache_file" >&5 $as_echo "$as_me: updating cache $cache_file" >&6;} if test ! -f "$cache_file" || test -h "$cache_file"; then cat confcache >"$cache_file" else case $cache_file in #( */* | ?:*) mv -f confcache "$cache_file"$$ && mv -f "$cache_file"$$ "$cache_file" ;; #( *) mv -f confcache "$cache_file" ;; esac fi fi else { $as_echo "$as_me:${as_lineno-$LINENO}: not updating unwritable cache $cache_file" >&5 $as_echo "$as_me: not updating unwritable cache $cache_file" >&6;} fi fi rm -f confcache test "x$prefix" = xNONE && prefix=$ac_default_prefix # Let make expand exec_prefix. test "x$exec_prefix" = xNONE && exec_prefix='${prefix}' DEFS=-DHAVE_CONFIG_H ac_libobjs= ac_ltlibobjs= U= for ac_i in : $LIBOBJS; do test "x$ac_i" = x: && continue # 1. Remove the extension, and $U if already installed. ac_script='s/\$U\././;s/\.o$//;s/\.obj$//' ac_i=`$as_echo "$ac_i" | sed "$ac_script"` # 2. Prepend LIBOBJDIR. When used with automake>=1.10 LIBOBJDIR # will be set to the directory where LIBOBJS objects are built. as_fn_append ac_libobjs " \${LIBOBJDIR}$ac_i\$U.$ac_objext" as_fn_append ac_ltlibobjs " \${LIBOBJDIR}$ac_i"'$U.lo' done LIBOBJS=$ac_libobjs LTLIBOBJS=$ac_ltlibobjs if test -n "$EXEEXT"; then am__EXEEXT_TRUE= am__EXEEXT_FALSE='#' else am__EXEEXT_TRUE='#' am__EXEEXT_FALSE= fi if test -z "${AMDEP_TRUE}" && test -z "${AMDEP_FALSE}"; then as_fn_error $? "conditional \"AMDEP\" was never defined. Usually this means the macro was only invoked conditionally." "$LINENO" 5 fi if test -z "${am__fastdepCC_TRUE}" && test -z "${am__fastdepCC_FALSE}"; then as_fn_error $? "conditional \"am__fastdepCC\" was never defined. Usually this means the macro was only invoked conditionally." "$LINENO" 5 fi if test -z "${am__fastdepCC_TRUE}" && test -z "${am__fastdepCC_FALSE}"; then as_fn_error $? "conditional \"am__fastdepCC\" was never defined. Usually this means the macro was only invoked conditionally." "$LINENO" 5 fi if test -z "${HAVE_ATK_TRUE}" && test -z "${HAVE_ATK_FALSE}"; then as_fn_error $? "conditional \"HAVE_ATK\" was never defined. Usually this means the macro was only invoked conditionally." "$LINENO" 5 fi if test -z "${HAVE_CAIRO_TRUE}" && test -z "${HAVE_CAIRO_FALSE}"; then as_fn_error $? "conditional \"HAVE_CAIRO\" was never defined. Usually this means the macro was only invoked conditionally." "$LINENO" 5 fi if test -z "${HAVE_CORBA_TRUE}" && test -z "${HAVE_CORBA_FALSE}"; then as_fn_error $? "conditional \"HAVE_CORBA\" was never defined. Usually this means the macro was only invoked conditionally." "$LINENO" 5 fi if test -z "${HAVE_GCONF_TRUE}" && test -z "${HAVE_GCONF_FALSE}"; then as_fn_error $? "conditional \"HAVE_GCONF\" was never defined. Usually this means the macro was only invoked conditionally." "$LINENO" 5 fi if test -z "${HAVE_GNOME_VFS_TRUE}" && test -z "${HAVE_GNOME_VFS_FALSE}"; then as_fn_error $? "conditional \"HAVE_GNOME_VFS\" was never defined. Usually this means the macro was only invoked conditionally." "$LINENO" 5 fi if test -z "${HAVE_GDK_PIXBUF_TRUE}" && test -z "${HAVE_GDK_PIXBUF_FALSE}"; then as_fn_error $? "conditional \"HAVE_GDK_PIXBUF\" was never defined. Usually this means the macro was only invoked conditionally." "$LINENO" 5 fi if test -z "${HAVE_GDK_TRUE}" && test -z "${HAVE_GDK_FALSE}"; then as_fn_error $? "conditional \"HAVE_GDK\" was never defined. Usually this means the macro was only invoked conditionally." "$LINENO" 5 fi if test -z "${HAVE_GTK_TRUE}" && test -z "${HAVE_GTK_FALSE}"; then as_fn_error $? "conditional \"HAVE_GTK\" was never defined. Usually this means the macro was only invoked conditionally." "$LINENO" 5 fi if test -z "${HAVE_LIBGLADE_TRUE}" && test -z "${HAVE_LIBGLADE_FALSE}"; then as_fn_error $? "conditional \"HAVE_LIBGLADE\" was never defined. Usually this means the macro was only invoked conditionally." "$LINENO" 5 fi if test -z "${HAVE_LIBGNOME_TRUE}" && test -z "${HAVE_LIBGNOME_FALSE}"; then as_fn_error $? "conditional \"HAVE_LIBGNOME\" was never defined. Usually this means the macro was only invoked conditionally." "$LINENO" 5 fi if test -z "${HAVE_CANVAS_TRUE}" && test -z "${HAVE_CANVAS_FALSE}"; then as_fn_error $? "conditional \"HAVE_CANVAS\" was never defined. Usually this means the macro was only invoked conditionally." "$LINENO" 5 fi if test -z "${HAVE_LIBGNOMEUI_TRUE}" && test -z "${HAVE_LIBGNOMEUI_FALSE}"; then as_fn_error $? "conditional \"HAVE_LIBGNOMEUI\" was never defined. Usually this means the macro was only invoked conditionally." "$LINENO" 5 fi if test -z "${HAVE_PANGO_TRUE}" && test -z "${HAVE_PANGO_FALSE}"; then as_fn_error $? "conditional \"HAVE_PANGO\" was never defined. Usually this means the macro was only invoked conditionally." "$LINENO" 5 fi if test -z "${HAVE_PANGOCAIRO_TRUE}" && test -z "${HAVE_PANGOCAIRO_FALSE}"; then as_fn_error $? "conditional \"HAVE_PANGOCAIRO\" was never defined. Usually this means the macro was only invoked conditionally." "$LINENO" 5 fi : "${CONFIG_STATUS=./config.status}" ac_write_fail=0 ac_clean_files_save=$ac_clean_files ac_clean_files="$ac_clean_files $CONFIG_STATUS" { $as_echo "$as_me:${as_lineno-$LINENO}: creating $CONFIG_STATUS" >&5 $as_echo "$as_me: creating $CONFIG_STATUS" >&6;} as_write_fail=0 cat >$CONFIG_STATUS <<_ASEOF || as_write_fail=1 #! $SHELL # Generated by $as_me. # Run this file to recreate the current configuration. # Compiler output produced by configure, useful for debugging # configure, is in config.log if it exists. debug=false ac_cs_recheck=false ac_cs_silent=false SHELL=\${CONFIG_SHELL-$SHELL} export SHELL _ASEOF cat >>$CONFIG_STATUS <<\_ASEOF || as_write_fail=1 ## -------------------- ## ## M4sh Initialization. ## ## -------------------- ## # Be more Bourne compatible DUALCASE=1; export DUALCASE # for MKS sh if test -n "${ZSH_VERSION+set}" && (emulate sh) >/dev/null 2>&1; then : emulate sh NULLCMD=: # Pre-4.2 versions of Zsh do word splitting on ${1+"$@"}, which # is contrary to our usage. Disable this feature. alias -g '${1+"$@"}'='"$@"' setopt NO_GLOB_SUBST else case `(set -o) 2>/dev/null` in #( *posix*) : set -o posix ;; #( *) : ;; esac fi as_nl=' ' export as_nl # Printing a long string crashes Solaris 7 /usr/bin/printf. as_echo='\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\' as_echo=$as_echo$as_echo$as_echo$as_echo$as_echo as_echo=$as_echo$as_echo$as_echo$as_echo$as_echo$as_echo # Prefer a ksh shell builtin over an external printf program on Solaris, # but without wasting forks for bash or zsh. if test -z "$BASH_VERSION$ZSH_VERSION" \ && (test "X`print -r -- $as_echo`" = "X$as_echo") 2>/dev/null; then as_echo='print -r --' as_echo_n='print -rn --' elif (test "X`printf %s $as_echo`" = "X$as_echo") 2>/dev/null; then as_echo='printf %s\n' as_echo_n='printf %s' else if test "X`(/usr/ucb/echo -n -n $as_echo) 2>/dev/null`" = "X-n $as_echo"; then as_echo_body='eval /usr/ucb/echo -n "$1$as_nl"' as_echo_n='/usr/ucb/echo -n' else as_echo_body='eval expr "X$1" : "X\\(.*\\)"' as_echo_n_body='eval arg=$1; case $arg in #( *"$as_nl"*) expr "X$arg" : "X\\(.*\\)$as_nl"; arg=`expr "X$arg" : ".*$as_nl\\(.*\\)"`;; esac; expr "X$arg" : "X\\(.*\\)" | tr -d "$as_nl" ' export as_echo_n_body as_echo_n='sh -c $as_echo_n_body as_echo' fi export as_echo_body as_echo='sh -c $as_echo_body as_echo' fi # The user is always right. if test "${PATH_SEPARATOR+set}" != set; then PATH_SEPARATOR=: (PATH='/bin;/bin'; FPATH=$PATH; sh -c :) >/dev/null 2>&1 && { (PATH='/bin:/bin'; FPATH=$PATH; sh -c :) >/dev/null 2>&1 || PATH_SEPARATOR=';' } fi # IFS # We need space, tab and new line, in precisely that order. Quoting is # there to prevent editors from complaining about space-tab. # (If _AS_PATH_WALK were called with IFS unset, it would disable word # splitting by setting IFS to empty value.) IFS=" "" $as_nl" # Find who we are. Look in the path if we contain no directory separator. as_myself= case $0 in #(( *[\\/]* ) as_myself=$0 ;; *) as_save_IFS=$IFS; IFS=$PATH_SEPARATOR for as_dir in $PATH do IFS=$as_save_IFS test -z "$as_dir" && as_dir=. test -r "$as_dir/$0" && as_myself=$as_dir/$0 && break done IFS=$as_save_IFS ;; esac # We did not find ourselves, most probably we were run as `sh COMMAND' # in which case we are not to be found in the path. if test "x$as_myself" = x; then as_myself=$0 fi if test ! -f "$as_myself"; then $as_echo "$as_myself: error: cannot find myself; rerun with an absolute file name" >&2 exit 1 fi # Unset variables that we do not need and which cause bugs (e.g. in # pre-3.0 UWIN ksh). But do not cause bugs in bash 2.01; the "|| exit 1" # suppresses any "Segmentation fault" message there. '((' could # trigger a bug in pdksh 5.2.14. for as_var in BASH_ENV ENV MAIL MAILPATH do eval test x\${$as_var+set} = xset \ && ( (unset $as_var) || exit 1) >/dev/null 2>&1 && unset $as_var || : done PS1='$ ' PS2='> ' PS4='+ ' # NLS nuisances. LC_ALL=C export LC_ALL LANGUAGE=C export LANGUAGE # CDPATH. (unset CDPATH) >/dev/null 2>&1 && unset CDPATH # as_fn_error STATUS ERROR [LINENO LOG_FD] # ---------------------------------------- # Output "`basename $0`: error: ERROR" to stderr. If LINENO and LOG_FD are # provided, also output the error to LOG_FD, referencing LINENO. Then exit the # script with STATUS, using 1 if that was 0. as_fn_error () { as_status=$1; test $as_status -eq 0 && as_status=1 if test "$4"; then as_lineno=${as_lineno-"$3"} as_lineno_stack=as_lineno_stack=$as_lineno_stack $as_echo "$as_me:${as_lineno-$LINENO}: error: $2" >&$4 fi $as_echo "$as_me: error: $2" >&2 as_fn_exit $as_status } # as_fn_error # as_fn_set_status STATUS # ----------------------- # Set $? to STATUS, without forking. as_fn_set_status () { return $1 } # as_fn_set_status # as_fn_exit STATUS # ----------------- # Exit the shell with STATUS, even in a "trap 0" or "set -e" context. as_fn_exit () { set +e as_fn_set_status $1 exit $1 } # as_fn_exit # as_fn_unset VAR # --------------- # Portably unset VAR. as_fn_unset () { { eval $1=; unset $1;} } as_unset=as_fn_unset # as_fn_append VAR VALUE # ---------------------- # Append the text in VALUE to the end of the definition contained in VAR. Take # advantage of any shell optimizations that allow amortized linear growth over # repeated appends, instead of the typical quadratic growth present in naive # implementations. if (eval "as_var=1; as_var+=2; test x\$as_var = x12") 2>/dev/null; then : eval 'as_fn_append () { eval $1+=\$2 }' else as_fn_append () { eval $1=\$$1\$2 } fi # as_fn_append # as_fn_arith ARG... # ------------------ # Perform arithmetic evaluation on the ARGs, and store the result in the # global $as_val. Take advantage of shells that can avoid forks. The arguments # must be portable across $(()) and expr. if (eval "test \$(( 1 + 1 )) = 2") 2>/dev/null; then : eval 'as_fn_arith () { as_val=$(( $* )) }' else as_fn_arith () { as_val=`expr "$@" || test $? -eq 1` } fi # as_fn_arith if expr a : '\(a\)' >/dev/null 2>&1 && test "X`expr 00001 : '.*\(...\)'`" = X001; then as_expr=expr else as_expr=false fi if (basename -- /) >/dev/null 2>&1 && test "X`basename -- / 2>&1`" = "X/"; then as_basename=basename else as_basename=false fi if (as_dir=`dirname -- /` && test "X$as_dir" = X/) >/dev/null 2>&1; then as_dirname=dirname else as_dirname=false fi as_me=`$as_basename -- "$0" || $as_expr X/"$0" : '.*/\([^/][^/]*\)/*$' \| \ X"$0" : 'X\(//\)$' \| \ X"$0" : 'X\(/\)' \| . 2>/dev/null || $as_echo X/"$0" | sed '/^.*\/\([^/][^/]*\)\/*$/{ s//\1/ q } /^X\/\(\/\/\)$/{ s//\1/ q } /^X\/\(\/\).*/{ s//\1/ q } s/.*/./; q'` # Avoid depending upon Character Ranges. as_cr_letters='abcdefghijklmnopqrstuvwxyz' as_cr_LETTERS='ABCDEFGHIJKLMNOPQRSTUVWXYZ' as_cr_Letters=$as_cr_letters$as_cr_LETTERS as_cr_digits='0123456789' as_cr_alnum=$as_cr_Letters$as_cr_digits ECHO_C= ECHO_N= ECHO_T= case `echo -n x` in #((((( -n*) case `echo 'xy\c'` in *c*) ECHO_T=' ';; # ECHO_T is single tab character. xy) ECHO_C='\c';; *) echo `echo ksh88 bug on AIX 6.1` > /dev/null ECHO_T=' ';; esac;; *) ECHO_N='-n';; esac rm -f conf$$ conf$$.exe conf$$.file if test -d conf$$.dir; then rm -f conf$$.dir/conf$$.file else rm -f conf$$.dir mkdir conf$$.dir 2>/dev/null fi if (echo >conf$$.file) 2>/dev/null; then if ln -s conf$$.file conf$$ 2>/dev/null; then as_ln_s='ln -s' # ... but there are two gotchas: # 1) On MSYS, both `ln -s file dir' and `ln file dir' fail. # 2) DJGPP < 2.04 has no symlinks; `ln -s' creates a wrapper executable. # In both cases, we have to default to `cp -pR'. ln -s conf$$.file conf$$.dir 2>/dev/null && test ! -f conf$$.exe || as_ln_s='cp -pR' elif ln conf$$.file conf$$ 2>/dev/null; then as_ln_s=ln else as_ln_s='cp -pR' fi else as_ln_s='cp -pR' fi rm -f conf$$ conf$$.exe conf$$.dir/conf$$.file conf$$.file rmdir conf$$.dir 2>/dev/null # as_fn_mkdir_p # ------------- # Create "$as_dir" as a directory, including parents if necessary. as_fn_mkdir_p () { case $as_dir in #( -*) as_dir=./$as_dir;; esac test -d "$as_dir" || eval $as_mkdir_p || { as_dirs= while :; do case $as_dir in #( *\'*) as_qdir=`$as_echo "$as_dir" | sed "s/'/'\\\\\\\\''/g"`;; #'( *) as_qdir=$as_dir;; esac as_dirs="'$as_qdir' $as_dirs" as_dir=`$as_dirname -- "$as_dir" || $as_expr X"$as_dir" : 'X\(.*[^/]\)//*[^/][^/]*/*$' \| \ X"$as_dir" : 'X\(//\)[^/]' \| \ X"$as_dir" : 'X\(//\)$' \| \ X"$as_dir" : 'X\(/\)' \| . 2>/dev/null || $as_echo X"$as_dir" | sed '/^X\(.*[^/]\)\/\/*[^/][^/]*\/*$/{ s//\1/ q } /^X\(\/\/\)[^/].*/{ s//\1/ q } /^X\(\/\/\)$/{ s//\1/ q } /^X\(\/\).*/{ s//\1/ q } s/.*/./; q'` test -d "$as_dir" && break done test -z "$as_dirs" || eval "mkdir $as_dirs" } || test -d "$as_dir" || as_fn_error $? "cannot create directory $as_dir" } # as_fn_mkdir_p if mkdir -p . 2>/dev/null; then as_mkdir_p='mkdir -p "$as_dir"' else test -d ./-p && rmdir ./-p as_mkdir_p=false fi # as_fn_executable_p FILE # ----------------------- # Test if FILE is an executable regular file. as_fn_executable_p () { test -f "$1" && test -x "$1" } # as_fn_executable_p as_test_x='test -x' as_executable_p=as_fn_executable_p # Sed expression to map a string onto a valid CPP name. as_tr_cpp="eval sed 'y%*$as_cr_letters%P$as_cr_LETTERS%;s%[^_$as_cr_alnum]%_%g'" # Sed expression to map a string onto a valid variable name. as_tr_sh="eval sed 'y%*+%pp%;s%[^_$as_cr_alnum]%_%g'" exec 6>&1 ## ----------------------------------- ## ## Main body of $CONFIG_STATUS script. ## ## ----------------------------------- ## _ASEOF test $as_write_fail = 0 && chmod +x $CONFIG_STATUS || ac_write_fail=1 cat >>$CONFIG_STATUS <<\_ACEOF || ac_write_fail=1 # Save the log message, to keep $0 and so on meaningful, and to # report actual input values of CONFIG_FILES etc. instead of their # values after options handling. ac_log=" This file was extended by guile-gnome-platform $as_me 2.16.2, which was generated by GNU Autoconf 2.69. Invocation command line was CONFIG_FILES = $CONFIG_FILES CONFIG_HEADERS = $CONFIG_HEADERS CONFIG_LINKS = $CONFIG_LINKS CONFIG_COMMANDS = $CONFIG_COMMANDS $ $0 $@ on `(hostname || uname -n) 2>/dev/null | sed 1q` " _ACEOF case $ac_config_files in *" "*) set x $ac_config_files; shift; ac_config_files=$*;; esac case $ac_config_headers in *" "*) set x $ac_config_headers; shift; ac_config_headers=$*;; esac cat >>$CONFIG_STATUS <<_ACEOF || ac_write_fail=1 # Files that config.status was made for. config_files="$ac_config_files" config_headers="$ac_config_headers" config_commands="$ac_config_commands" _ACEOF cat >>$CONFIG_STATUS <<\_ACEOF || ac_write_fail=1 ac_cs_usage="\ \`$as_me' instantiates files and other configuration actions from templates according to the current configuration. Unless the files and actions are specified as TAGs, all are instantiated by default. Usage: $0 [OPTION]... [TAG]... -h, --help print this help, then exit -V, --version print version number and configuration settings, then exit --config print configuration, then exit -q, --quiet, --silent do not print progress messages -d, --debug don't remove temporary files --recheck update $as_me by reconfiguring in the same conditions --file=FILE[:TEMPLATE] instantiate the configuration file FILE --header=FILE[:TEMPLATE] instantiate the configuration header FILE Configuration files: $config_files Configuration headers: $config_headers Configuration commands: $config_commands Report bugs to the package provider." _ACEOF cat >>$CONFIG_STATUS <<_ACEOF || ac_write_fail=1 ac_cs_config="`$as_echo "$ac_configure_args" | sed 's/^ //; s/[\\""\`\$]/\\\\&/g'`" ac_cs_version="\\ guile-gnome-platform config.status 2.16.2 configured by $0, generated by GNU Autoconf 2.69, with options \\"\$ac_cs_config\\" Copyright (C) 2012 Free Software Foundation, Inc. This config.status script is free software; the Free Software Foundation gives unlimited permission to copy, distribute and modify it." ac_pwd='$ac_pwd' srcdir='$srcdir' INSTALL='$INSTALL' MKDIR_P='$MKDIR_P' AWK='$AWK' test -n "\$AWK" || AWK=awk _ACEOF cat >>$CONFIG_STATUS <<\_ACEOF || ac_write_fail=1 # The default lists apply if the user does not specify any file. ac_need_defaults=: while test $# != 0 do case $1 in --*=?*) ac_option=`expr "X$1" : 'X\([^=]*\)='` ac_optarg=`expr "X$1" : 'X[^=]*=\(.*\)'` ac_shift=: ;; --*=) ac_option=`expr "X$1" : 'X\([^=]*\)='` ac_optarg= ac_shift=: ;; *) ac_option=$1 ac_optarg=$2 ac_shift=shift ;; esac case $ac_option in # Handling of the options. -recheck | --recheck | --rechec | --reche | --rech | --rec | --re | --r) ac_cs_recheck=: ;; --version | --versio | --versi | --vers | --ver | --ve | --v | -V ) $as_echo "$ac_cs_version"; exit ;; --config | --confi | --conf | --con | --co | --c ) $as_echo "$ac_cs_config"; exit ;; --debug | --debu | --deb | --de | --d | -d ) debug=: ;; --file | --fil | --fi | --f ) $ac_shift case $ac_optarg in *\'*) ac_optarg=`$as_echo "$ac_optarg" | sed "s/'/'\\\\\\\\''/g"` ;; '') as_fn_error $? "missing file argument" ;; esac as_fn_append CONFIG_FILES " '$ac_optarg'" ac_need_defaults=false;; --header | --heade | --head | --hea ) $ac_shift case $ac_optarg in *\'*) ac_optarg=`$as_echo "$ac_optarg" | sed "s/'/'\\\\\\\\''/g"` ;; esac as_fn_append CONFIG_HEADERS " '$ac_optarg'" ac_need_defaults=false;; --he | --h) # Conflict between --help and --header as_fn_error $? "ambiguous option: \`$1' Try \`$0 --help' for more information.";; --help | --hel | -h ) $as_echo "$ac_cs_usage"; exit ;; -q | -quiet | --quiet | --quie | --qui | --qu | --q \ | -silent | --silent | --silen | --sile | --sil | --si | --s) ac_cs_silent=: ;; # This is an error. -*) as_fn_error $? "unrecognized option: \`$1' Try \`$0 --help' for more information." ;; *) as_fn_append ac_config_targets " $1" ac_need_defaults=false ;; esac shift done ac_configure_extra_args= if $ac_cs_silent; then exec 6>/dev/null ac_configure_extra_args="$ac_configure_extra_args --silent" fi _ACEOF cat >>$CONFIG_STATUS <<_ACEOF || ac_write_fail=1 if \$ac_cs_recheck; then set X $SHELL '$0' $ac_configure_args \$ac_configure_extra_args --no-create --no-recursion shift \$as_echo "running CONFIG_SHELL=$SHELL \$*" >&6 CONFIG_SHELL='$SHELL' export CONFIG_SHELL exec "\$@" fi _ACEOF cat >>$CONFIG_STATUS <<\_ACEOF || ac_write_fail=1 exec 5>>config.log { echo sed 'h;s/./-/g;s/^.../## /;s/...$/ ##/;p;x;p;x' <<_ASBOX ## Running $as_me. ## _ASBOX $as_echo "$ac_log" } >&5 _ACEOF cat >>$CONFIG_STATUS <<_ACEOF || ac_write_fail=1 # # INIT-COMMANDS # AMDEP_TRUE="$AMDEP_TRUE" ac_aux_dir="$ac_aux_dir" # The HP-UX ksh and POSIX shell print the target directory to stdout # if CDPATH is set. (unset CDPATH) >/dev/null 2>&1 && unset CDPATH sed_quote_subst='$sed_quote_subst' double_quote_subst='$double_quote_subst' delay_variable_subst='$delay_variable_subst' enable_static='`$ECHO "$enable_static" | $SED "$delay_single_quote_subst"`' macro_version='`$ECHO "$macro_version" | $SED "$delay_single_quote_subst"`' macro_revision='`$ECHO "$macro_revision" | $SED "$delay_single_quote_subst"`' enable_shared='`$ECHO "$enable_shared" | $SED "$delay_single_quote_subst"`' pic_mode='`$ECHO "$pic_mode" | $SED "$delay_single_quote_subst"`' enable_fast_install='`$ECHO "$enable_fast_install" | $SED "$delay_single_quote_subst"`' SHELL='`$ECHO "$SHELL" | $SED "$delay_single_quote_subst"`' ECHO='`$ECHO "$ECHO" | $SED "$delay_single_quote_subst"`' PATH_SEPARATOR='`$ECHO "$PATH_SEPARATOR" | $SED "$delay_single_quote_subst"`' host_alias='`$ECHO "$host_alias" | $SED "$delay_single_quote_subst"`' host='`$ECHO "$host" | $SED "$delay_single_quote_subst"`' host_os='`$ECHO "$host_os" | $SED "$delay_single_quote_subst"`' build_alias='`$ECHO "$build_alias" | $SED "$delay_single_quote_subst"`' build='`$ECHO "$build" | $SED "$delay_single_quote_subst"`' build_os='`$ECHO "$build_os" | $SED "$delay_single_quote_subst"`' SED='`$ECHO "$SED" | $SED "$delay_single_quote_subst"`' Xsed='`$ECHO "$Xsed" | $SED "$delay_single_quote_subst"`' GREP='`$ECHO "$GREP" | $SED "$delay_single_quote_subst"`' EGREP='`$ECHO "$EGREP" | $SED "$delay_single_quote_subst"`' FGREP='`$ECHO "$FGREP" | $SED "$delay_single_quote_subst"`' LD='`$ECHO "$LD" | $SED "$delay_single_quote_subst"`' NM='`$ECHO "$NM" | $SED "$delay_single_quote_subst"`' LN_S='`$ECHO "$LN_S" | $SED "$delay_single_quote_subst"`' max_cmd_len='`$ECHO "$max_cmd_len" | $SED "$delay_single_quote_subst"`' ac_objext='`$ECHO "$ac_objext" | $SED "$delay_single_quote_subst"`' exeext='`$ECHO "$exeext" | $SED "$delay_single_quote_subst"`' lt_unset='`$ECHO "$lt_unset" | $SED "$delay_single_quote_subst"`' lt_SP2NL='`$ECHO "$lt_SP2NL" | $SED "$delay_single_quote_subst"`' lt_NL2SP='`$ECHO "$lt_NL2SP" | $SED "$delay_single_quote_subst"`' lt_cv_to_host_file_cmd='`$ECHO "$lt_cv_to_host_file_cmd" | $SED "$delay_single_quote_subst"`' lt_cv_to_tool_file_cmd='`$ECHO "$lt_cv_to_tool_file_cmd" | $SED "$delay_single_quote_subst"`' reload_flag='`$ECHO "$reload_flag" | $SED "$delay_single_quote_subst"`' reload_cmds='`$ECHO "$reload_cmds" | $SED "$delay_single_quote_subst"`' OBJDUMP='`$ECHO "$OBJDUMP" | $SED "$delay_single_quote_subst"`' deplibs_check_method='`$ECHO "$deplibs_check_method" | $SED "$delay_single_quote_subst"`' file_magic_cmd='`$ECHO "$file_magic_cmd" | $SED "$delay_single_quote_subst"`' file_magic_glob='`$ECHO "$file_magic_glob" | $SED "$delay_single_quote_subst"`' want_nocaseglob='`$ECHO "$want_nocaseglob" | $SED "$delay_single_quote_subst"`' DLLTOOL='`$ECHO "$DLLTOOL" | $SED "$delay_single_quote_subst"`' sharedlib_from_linklib_cmd='`$ECHO "$sharedlib_from_linklib_cmd" | $SED "$delay_single_quote_subst"`' AR='`$ECHO "$AR" | $SED "$delay_single_quote_subst"`' AR_FLAGS='`$ECHO "$AR_FLAGS" | $SED "$delay_single_quote_subst"`' archiver_list_spec='`$ECHO "$archiver_list_spec" | $SED "$delay_single_quote_subst"`' STRIP='`$ECHO "$STRIP" | $SED "$delay_single_quote_subst"`' RANLIB='`$ECHO "$RANLIB" | $SED "$delay_single_quote_subst"`' old_postinstall_cmds='`$ECHO "$old_postinstall_cmds" | $SED "$delay_single_quote_subst"`' old_postuninstall_cmds='`$ECHO "$old_postuninstall_cmds" | $SED "$delay_single_quote_subst"`' old_archive_cmds='`$ECHO "$old_archive_cmds" | $SED "$delay_single_quote_subst"`' lock_old_archive_extraction='`$ECHO "$lock_old_archive_extraction" | $SED "$delay_single_quote_subst"`' CC='`$ECHO "$CC" | $SED "$delay_single_quote_subst"`' CFLAGS='`$ECHO "$CFLAGS" | $SED "$delay_single_quote_subst"`' compiler='`$ECHO "$compiler" | $SED "$delay_single_quote_subst"`' GCC='`$ECHO "$GCC" | $SED "$delay_single_quote_subst"`' lt_cv_sys_global_symbol_pipe='`$ECHO "$lt_cv_sys_global_symbol_pipe" | $SED "$delay_single_quote_subst"`' lt_cv_sys_global_symbol_to_cdecl='`$ECHO "$lt_cv_sys_global_symbol_to_cdecl" | $SED "$delay_single_quote_subst"`' lt_cv_sys_global_symbol_to_c_name_address='`$ECHO "$lt_cv_sys_global_symbol_to_c_name_address" | $SED "$delay_single_quote_subst"`' lt_cv_sys_global_symbol_to_c_name_address_lib_prefix='`$ECHO "$lt_cv_sys_global_symbol_to_c_name_address_lib_prefix" | $SED "$delay_single_quote_subst"`' nm_file_list_spec='`$ECHO "$nm_file_list_spec" | $SED "$delay_single_quote_subst"`' lt_sysroot='`$ECHO "$lt_sysroot" | $SED "$delay_single_quote_subst"`' objdir='`$ECHO "$objdir" | $SED "$delay_single_quote_subst"`' MAGIC_CMD='`$ECHO "$MAGIC_CMD" | $SED "$delay_single_quote_subst"`' lt_prog_compiler_no_builtin_flag='`$ECHO "$lt_prog_compiler_no_builtin_flag" | $SED "$delay_single_quote_subst"`' lt_prog_compiler_pic='`$ECHO "$lt_prog_compiler_pic" | $SED "$delay_single_quote_subst"`' lt_prog_compiler_wl='`$ECHO "$lt_prog_compiler_wl" | $SED "$delay_single_quote_subst"`' lt_prog_compiler_static='`$ECHO "$lt_prog_compiler_static" | $SED "$delay_single_quote_subst"`' lt_cv_prog_compiler_c_o='`$ECHO "$lt_cv_prog_compiler_c_o" | $SED "$delay_single_quote_subst"`' need_locks='`$ECHO "$need_locks" | $SED "$delay_single_quote_subst"`' MANIFEST_TOOL='`$ECHO "$MANIFEST_TOOL" | $SED "$delay_single_quote_subst"`' DSYMUTIL='`$ECHO "$DSYMUTIL" | $SED "$delay_single_quote_subst"`' NMEDIT='`$ECHO "$NMEDIT" | $SED "$delay_single_quote_subst"`' LIPO='`$ECHO "$LIPO" | $SED "$delay_single_quote_subst"`' OTOOL='`$ECHO "$OTOOL" | $SED "$delay_single_quote_subst"`' OTOOL64='`$ECHO "$OTOOL64" | $SED "$delay_single_quote_subst"`' libext='`$ECHO "$libext" | $SED "$delay_single_quote_subst"`' shrext_cmds='`$ECHO "$shrext_cmds" | $SED "$delay_single_quote_subst"`' extract_expsyms_cmds='`$ECHO "$extract_expsyms_cmds" | $SED "$delay_single_quote_subst"`' archive_cmds_need_lc='`$ECHO "$archive_cmds_need_lc" | $SED "$delay_single_quote_subst"`' enable_shared_with_static_runtimes='`$ECHO "$enable_shared_with_static_runtimes" | $SED "$delay_single_quote_subst"`' export_dynamic_flag_spec='`$ECHO "$export_dynamic_flag_spec" | $SED "$delay_single_quote_subst"`' whole_archive_flag_spec='`$ECHO "$whole_archive_flag_spec" | $SED "$delay_single_quote_subst"`' compiler_needs_object='`$ECHO "$compiler_needs_object" | $SED "$delay_single_quote_subst"`' old_archive_from_new_cmds='`$ECHO "$old_archive_from_new_cmds" | $SED "$delay_single_quote_subst"`' old_archive_from_expsyms_cmds='`$ECHO "$old_archive_from_expsyms_cmds" | $SED "$delay_single_quote_subst"`' archive_cmds='`$ECHO "$archive_cmds" | $SED "$delay_single_quote_subst"`' archive_expsym_cmds='`$ECHO "$archive_expsym_cmds" | $SED "$delay_single_quote_subst"`' module_cmds='`$ECHO "$module_cmds" | $SED "$delay_single_quote_subst"`' module_expsym_cmds='`$ECHO "$module_expsym_cmds" | $SED "$delay_single_quote_subst"`' with_gnu_ld='`$ECHO "$with_gnu_ld" | $SED "$delay_single_quote_subst"`' allow_undefined_flag='`$ECHO "$allow_undefined_flag" | $SED "$delay_single_quote_subst"`' no_undefined_flag='`$ECHO "$no_undefined_flag" | $SED "$delay_single_quote_subst"`' hardcode_libdir_flag_spec='`$ECHO "$hardcode_libdir_flag_spec" | $SED "$delay_single_quote_subst"`' hardcode_libdir_separator='`$ECHO "$hardcode_libdir_separator" | $SED "$delay_single_quote_subst"`' hardcode_direct='`$ECHO "$hardcode_direct" | $SED "$delay_single_quote_subst"`' hardcode_direct_absolute='`$ECHO "$hardcode_direct_absolute" | $SED "$delay_single_quote_subst"`' hardcode_minus_L='`$ECHO "$hardcode_minus_L" | $SED "$delay_single_quote_subst"`' hardcode_shlibpath_var='`$ECHO "$hardcode_shlibpath_var" | $SED "$delay_single_quote_subst"`' hardcode_automatic='`$ECHO "$hardcode_automatic" | $SED "$delay_single_quote_subst"`' inherit_rpath='`$ECHO "$inherit_rpath" | $SED "$delay_single_quote_subst"`' link_all_deplibs='`$ECHO "$link_all_deplibs" | $SED "$delay_single_quote_subst"`' always_export_symbols='`$ECHO "$always_export_symbols" | $SED "$delay_single_quote_subst"`' export_symbols_cmds='`$ECHO "$export_symbols_cmds" | $SED "$delay_single_quote_subst"`' exclude_expsyms='`$ECHO "$exclude_expsyms" | $SED "$delay_single_quote_subst"`' include_expsyms='`$ECHO "$include_expsyms" | $SED "$delay_single_quote_subst"`' prelink_cmds='`$ECHO "$prelink_cmds" | $SED "$delay_single_quote_subst"`' postlink_cmds='`$ECHO "$postlink_cmds" | $SED "$delay_single_quote_subst"`' file_list_spec='`$ECHO "$file_list_spec" | $SED "$delay_single_quote_subst"`' variables_saved_for_relink='`$ECHO "$variables_saved_for_relink" | $SED "$delay_single_quote_subst"`' need_lib_prefix='`$ECHO "$need_lib_prefix" | $SED "$delay_single_quote_subst"`' need_version='`$ECHO "$need_version" | $SED "$delay_single_quote_subst"`' version_type='`$ECHO "$version_type" | $SED "$delay_single_quote_subst"`' runpath_var='`$ECHO "$runpath_var" | $SED "$delay_single_quote_subst"`' shlibpath_var='`$ECHO "$shlibpath_var" | $SED "$delay_single_quote_subst"`' shlibpath_overrides_runpath='`$ECHO "$shlibpath_overrides_runpath" | $SED "$delay_single_quote_subst"`' libname_spec='`$ECHO "$libname_spec" | $SED "$delay_single_quote_subst"`' library_names_spec='`$ECHO "$library_names_spec" | $SED "$delay_single_quote_subst"`' soname_spec='`$ECHO "$soname_spec" | $SED "$delay_single_quote_subst"`' install_override_mode='`$ECHO "$install_override_mode" | $SED "$delay_single_quote_subst"`' postinstall_cmds='`$ECHO "$postinstall_cmds" | $SED "$delay_single_quote_subst"`' postuninstall_cmds='`$ECHO "$postuninstall_cmds" | $SED "$delay_single_quote_subst"`' finish_cmds='`$ECHO "$finish_cmds" | $SED "$delay_single_quote_subst"`' finish_eval='`$ECHO "$finish_eval" | $SED "$delay_single_quote_subst"`' hardcode_into_libs='`$ECHO "$hardcode_into_libs" | $SED "$delay_single_quote_subst"`' sys_lib_search_path_spec='`$ECHO "$sys_lib_search_path_spec" | $SED "$delay_single_quote_subst"`' sys_lib_dlsearch_path_spec='`$ECHO "$sys_lib_dlsearch_path_spec" | $SED "$delay_single_quote_subst"`' hardcode_action='`$ECHO "$hardcode_action" | $SED "$delay_single_quote_subst"`' enable_dlopen='`$ECHO "$enable_dlopen" | $SED "$delay_single_quote_subst"`' enable_dlopen_self='`$ECHO "$enable_dlopen_self" | $SED "$delay_single_quote_subst"`' enable_dlopen_self_static='`$ECHO "$enable_dlopen_self_static" | $SED "$delay_single_quote_subst"`' old_striplib='`$ECHO "$old_striplib" | $SED "$delay_single_quote_subst"`' striplib='`$ECHO "$striplib" | $SED "$delay_single_quote_subst"`' LTCC='$LTCC' LTCFLAGS='$LTCFLAGS' compiler='$compiler_DEFAULT' # A function that is used when there is no print builtin or printf. func_fallback_echo () { eval 'cat <<_LTECHO_EOF \$1 _LTECHO_EOF' } # Quote evaled strings. for var in SHELL \ ECHO \ PATH_SEPARATOR \ SED \ GREP \ EGREP \ FGREP \ LD \ NM \ LN_S \ lt_SP2NL \ lt_NL2SP \ reload_flag \ OBJDUMP \ deplibs_check_method \ file_magic_cmd \ file_magic_glob \ want_nocaseglob \ DLLTOOL \ sharedlib_from_linklib_cmd \ AR \ AR_FLAGS \ archiver_list_spec \ STRIP \ RANLIB \ CC \ CFLAGS \ compiler \ lt_cv_sys_global_symbol_pipe \ lt_cv_sys_global_symbol_to_cdecl \ lt_cv_sys_global_symbol_to_c_name_address \ lt_cv_sys_global_symbol_to_c_name_address_lib_prefix \ nm_file_list_spec \ lt_prog_compiler_no_builtin_flag \ lt_prog_compiler_pic \ lt_prog_compiler_wl \ lt_prog_compiler_static \ lt_cv_prog_compiler_c_o \ need_locks \ MANIFEST_TOOL \ DSYMUTIL \ NMEDIT \ LIPO \ OTOOL \ OTOOL64 \ shrext_cmds \ export_dynamic_flag_spec \ whole_archive_flag_spec \ compiler_needs_object \ with_gnu_ld \ allow_undefined_flag \ no_undefined_flag \ hardcode_libdir_flag_spec \ hardcode_libdir_separator \ exclude_expsyms \ include_expsyms \ file_list_spec \ variables_saved_for_relink \ libname_spec \ library_names_spec \ soname_spec \ install_override_mode \ finish_eval \ old_striplib \ striplib; do case \`eval \\\\\$ECHO \\\\""\\\\\$\$var"\\\\"\` in *[\\\\\\\`\\"\\\$]*) eval "lt_\$var=\\\\\\"\\\`\\\$ECHO \\"\\\$\$var\\" | \\\$SED \\"\\\$sed_quote_subst\\"\\\`\\\\\\"" ;; *) eval "lt_\$var=\\\\\\"\\\$\$var\\\\\\"" ;; esac done # Double-quote double-evaled strings. for var in reload_cmds \ old_postinstall_cmds \ old_postuninstall_cmds \ old_archive_cmds \ extract_expsyms_cmds \ old_archive_from_new_cmds \ old_archive_from_expsyms_cmds \ archive_cmds \ archive_expsym_cmds \ module_cmds \ module_expsym_cmds \ export_symbols_cmds \ prelink_cmds \ postlink_cmds \ postinstall_cmds \ postuninstall_cmds \ finish_cmds \ sys_lib_search_path_spec \ sys_lib_dlsearch_path_spec; do case \`eval \\\\\$ECHO \\\\""\\\\\$\$var"\\\\"\` in *[\\\\\\\`\\"\\\$]*) eval "lt_\$var=\\\\\\"\\\`\\\$ECHO \\"\\\$\$var\\" | \\\$SED -e \\"\\\$double_quote_subst\\" -e \\"\\\$sed_quote_subst\\" -e \\"\\\$delay_variable_subst\\"\\\`\\\\\\"" ;; *) eval "lt_\$var=\\\\\\"\\\$\$var\\\\\\"" ;; esac done ac_aux_dir='$ac_aux_dir' xsi_shell='$xsi_shell' lt_shell_append='$lt_shell_append' # See if we are running on zsh, and set the options which allow our # commands through without removal of \ escapes INIT. if test -n "\${ZSH_VERSION+set}" ; then setopt NO_GLOB_SUBST fi PACKAGE='$PACKAGE' VERSION='$VERSION' TIMESTAMP='$TIMESTAMP' RM='$RM' ofile='$ofile' _ACEOF cat >>$CONFIG_STATUS <<\_ACEOF || ac_write_fail=1 # Handling of arguments. for ac_config_target in $ac_config_targets do case $ac_config_target in "config.h") CONFIG_HEADERS="$CONFIG_HEADERS config.h" ;; "depfiles") CONFIG_COMMANDS="$CONFIG_COMMANDS depfiles" ;; "libtool") CONFIG_COMMANDS="$CONFIG_COMMANDS libtool" ;; "glib/gnome/gobject/guile-gnome-gobject") CONFIG_COMMANDS="$CONFIG_COMMANDS glib/gnome/gobject/guile-gnome-gobject" ;; "dev-environ") CONFIG_FILES="$CONFIG_FILES dev-environ" ;; "Makefile") CONFIG_FILES="$CONFIG_FILES Makefile" ;; "atk/doc/Makefile") CONFIG_FILES="$CONFIG_FILES atk/doc/Makefile" ;; "atk/tests/Makefile") CONFIG_FILES="$CONFIG_FILES atk/tests/Makefile" ;; "atk/gnome/gw/Makefile") CONFIG_FILES="$CONFIG_FILES atk/gnome/gw/Makefile" ;; "atk/gnome/Makefile") CONFIG_FILES="$CONFIG_FILES atk/gnome/Makefile" ;; "atk/gnome/overrides/Makefile") CONFIG_FILES="$CONFIG_FILES atk/gnome/overrides/Makefile" ;; "atk/Makefile") CONFIG_FILES="$CONFIG_FILES atk/Makefile" ;; "cairo/gnome/gw/Makefile") CONFIG_FILES="$CONFIG_FILES cairo/gnome/gw/Makefile" ;; "cairo/gnome/Makefile") CONFIG_FILES="$CONFIG_FILES cairo/gnome/Makefile" ;; "cairo/Makefile") CONFIG_FILES="$CONFIG_FILES cairo/Makefile" ;; "corba/doc/Makefile") CONFIG_FILES="$CONFIG_FILES corba/doc/Makefile" ;; "corba/tests/Makefile") CONFIG_FILES="$CONFIG_FILES corba/tests/Makefile" ;; "corba/gnome/gw/Makefile") CONFIG_FILES="$CONFIG_FILES corba/gnome/gw/Makefile" ;; "corba/gnome/Makefile") CONFIG_FILES="$CONFIG_FILES corba/gnome/Makefile" ;; "corba/gnome/corba/Makefile") CONFIG_FILES="$CONFIG_FILES corba/gnome/corba/Makefile" ;; "corba/Makefile") CONFIG_FILES="$CONFIG_FILES corba/Makefile" ;; "corba/demos/Makefile") CONFIG_FILES="$CONFIG_FILES corba/demos/Makefile" ;; "corba/demos/corba/Makefile") CONFIG_FILES="$CONFIG_FILES corba/demos/corba/Makefile" ;; "defs/tools/Makefile") CONFIG_FILES="$CONFIG_FILES defs/tools/Makefile" ;; "defs/gnome/Makefile") CONFIG_FILES="$CONFIG_FILES defs/gnome/Makefile" ;; "defs/gnome/defs/Makefile") CONFIG_FILES="$CONFIG_FILES defs/gnome/defs/Makefile" ;; "defs/Makefile") CONFIG_FILES="$CONFIG_FILES defs/Makefile" ;; "gconf/examples/Makefile") CONFIG_FILES="$CONFIG_FILES gconf/examples/Makefile" ;; "gconf/examples/gconf/Makefile") CONFIG_FILES="$CONFIG_FILES gconf/examples/gconf/Makefile" ;; "gconf/doc/Makefile") CONFIG_FILES="$CONFIG_FILES gconf/doc/Makefile" ;; "gconf/tests/Makefile") CONFIG_FILES="$CONFIG_FILES gconf/tests/Makefile" ;; "gconf/gnome/gw/Makefile") CONFIG_FILES="$CONFIG_FILES gconf/gnome/gw/Makefile" ;; "gconf/gnome/Makefile") CONFIG_FILES="$CONFIG_FILES gconf/gnome/Makefile" ;; "gconf/gnome/overrides/Makefile") CONFIG_FILES="$CONFIG_FILES gconf/gnome/overrides/Makefile" ;; "gconf/Makefile") CONFIG_FILES="$CONFIG_FILES gconf/Makefile" ;; "glib/examples/Makefile") CONFIG_FILES="$CONFIG_FILES glib/examples/Makefile" ;; "glib/doc/Makefile") CONFIG_FILES="$CONFIG_FILES glib/doc/Makefile" ;; "glib/doc/glib/Makefile") CONFIG_FILES="$CONFIG_FILES glib/doc/glib/Makefile" ;; "glib/doc/gobject/Makefile") CONFIG_FILES="$CONFIG_FILES glib/doc/gobject/Makefile" ;; "glib/gnome/gw/Makefile") CONFIG_FILES="$CONFIG_FILES glib/gnome/gw/Makefile" ;; "glib/gnome/gw/support/Makefile") CONFIG_FILES="$CONFIG_FILES glib/gnome/gw/support/Makefile" ;; "glib/gnome/Makefile") CONFIG_FILES="$CONFIG_FILES glib/gnome/Makefile" ;; "glib/gnome/overrides/Makefile") CONFIG_FILES="$CONFIG_FILES glib/gnome/overrides/Makefile" ;; "glib/gnome/gobject/Makefile") CONFIG_FILES="$CONFIG_FILES glib/gnome/gobject/Makefile" ;; "glib/test-suite/Makefile") CONFIG_FILES="$CONFIG_FILES glib/test-suite/Makefile" ;; "glib/Makefile") CONFIG_FILES="$CONFIG_FILES glib/Makefile" ;; "glib/bin/Makefile") CONFIG_FILES="$CONFIG_FILES glib/bin/Makefile" ;; "gnome-vfs/examples/gnome-vfs/Makefile") CONFIG_FILES="$CONFIG_FILES gnome-vfs/examples/gnome-vfs/Makefile" ;; "gnome-vfs/examples/Makefile") CONFIG_FILES="$CONFIG_FILES gnome-vfs/examples/Makefile" ;; "gnome-vfs/doc/Makefile") CONFIG_FILES="$CONFIG_FILES gnome-vfs/doc/Makefile" ;; "gnome-vfs/tests/Makefile") CONFIG_FILES="$CONFIG_FILES gnome-vfs/tests/Makefile" ;; "gnome-vfs/gnome/gw/Makefile") CONFIG_FILES="$CONFIG_FILES gnome-vfs/gnome/gw/Makefile" ;; "gnome-vfs/gnome/Makefile") CONFIG_FILES="$CONFIG_FILES gnome-vfs/gnome/Makefile" ;; "gnome-vfs/gnome/overrides/Makefile") CONFIG_FILES="$CONFIG_FILES gnome-vfs/gnome/overrides/Makefile" ;; "gnome-vfs/Makefile") CONFIG_FILES="$CONFIG_FILES gnome-vfs/Makefile" ;; "gtk/examples/Makefile") CONFIG_FILES="$CONFIG_FILES gtk/examples/Makefile" ;; "gtk/doc/gtk/Makefile") CONFIG_FILES="$CONFIG_FILES gtk/doc/gtk/Makefile" ;; "gtk/doc/gdk/Makefile") CONFIG_FILES="$CONFIG_FILES gtk/doc/gdk/Makefile" ;; "gtk/doc/Makefile") CONFIG_FILES="$CONFIG_FILES gtk/doc/Makefile" ;; "gtk/tests/gtk/Makefile") CONFIG_FILES="$CONFIG_FILES gtk/tests/gtk/Makefile" ;; "gtk/tests/gdk/Makefile") CONFIG_FILES="$CONFIG_FILES gtk/tests/gdk/Makefile" ;; "gtk/tests/Makefile") CONFIG_FILES="$CONFIG_FILES gtk/tests/Makefile" ;; "gtk/gnome/contrib/Makefile") CONFIG_FILES="$CONFIG_FILES gtk/gnome/contrib/Makefile" ;; "gtk/gnome/gw/Makefile") CONFIG_FILES="$CONFIG_FILES gtk/gnome/gw/Makefile" ;; "gtk/gnome/gtk/Makefile") CONFIG_FILES="$CONFIG_FILES gtk/gnome/gtk/Makefile" ;; "gtk/gnome/Makefile") CONFIG_FILES="$CONFIG_FILES gtk/gnome/Makefile" ;; "gtk/gnome/overrides/Makefile") CONFIG_FILES="$CONFIG_FILES gtk/gnome/overrides/Makefile" ;; "gtk/Makefile") CONFIG_FILES="$CONFIG_FILES gtk/Makefile" ;; "libglade/examples/Makefile") CONFIG_FILES="$CONFIG_FILES libglade/examples/Makefile" ;; "libglade/doc/Makefile") CONFIG_FILES="$CONFIG_FILES libglade/doc/Makefile" ;; "libglade/tests/Makefile") CONFIG_FILES="$CONFIG_FILES libglade/tests/Makefile" ;; "libglade/gnome/gw/Makefile") CONFIG_FILES="$CONFIG_FILES libglade/gnome/gw/Makefile" ;; "libglade/gnome/Makefile") CONFIG_FILES="$CONFIG_FILES libglade/gnome/Makefile" ;; "libglade/gnome/overrides/Makefile") CONFIG_FILES="$CONFIG_FILES libglade/gnome/overrides/Makefile" ;; "libglade/Makefile") CONFIG_FILES="$CONFIG_FILES libglade/Makefile" ;; "libgnome/doc/Makefile") CONFIG_FILES="$CONFIG_FILES libgnome/doc/Makefile" ;; "libgnome/tests/Makefile") CONFIG_FILES="$CONFIG_FILES libgnome/tests/Makefile" ;; "libgnome/gnome/gw/Makefile") CONFIG_FILES="$CONFIG_FILES libgnome/gnome/gw/Makefile" ;; "libgnome/gnome/Makefile") CONFIG_FILES="$CONFIG_FILES libgnome/gnome/Makefile" ;; "libgnome/gnome/overrides/Makefile") CONFIG_FILES="$CONFIG_FILES libgnome/gnome/overrides/Makefile" ;; "libgnome/Makefile") CONFIG_FILES="$CONFIG_FILES libgnome/Makefile" ;; "libgnomecanvas/examples/Makefile") CONFIG_FILES="$CONFIG_FILES libgnomecanvas/examples/Makefile" ;; "libgnomecanvas/doc/Makefile") CONFIG_FILES="$CONFIG_FILES libgnomecanvas/doc/Makefile" ;; "libgnomecanvas/tests/Makefile") CONFIG_FILES="$CONFIG_FILES libgnomecanvas/tests/Makefile" ;; "libgnomecanvas/gnome/gw/Makefile") CONFIG_FILES="$CONFIG_FILES libgnomecanvas/gnome/gw/Makefile" ;; "libgnomecanvas/gnome/Makefile") CONFIG_FILES="$CONFIG_FILES libgnomecanvas/gnome/Makefile" ;; "libgnomecanvas/gnome/overrides/Makefile") CONFIG_FILES="$CONFIG_FILES libgnomecanvas/gnome/overrides/Makefile" ;; "libgnomecanvas/Makefile") CONFIG_FILES="$CONFIG_FILES libgnomecanvas/Makefile" ;; "libgnomeui/doc/Makefile") CONFIG_FILES="$CONFIG_FILES libgnomeui/doc/Makefile" ;; "libgnomeui/tests/Makefile") CONFIG_FILES="$CONFIG_FILES libgnomeui/tests/Makefile" ;; "libgnomeui/gnome/gw/Makefile") CONFIG_FILES="$CONFIG_FILES libgnomeui/gnome/gw/Makefile" ;; "libgnomeui/gnome/Makefile") CONFIG_FILES="$CONFIG_FILES libgnomeui/gnome/Makefile" ;; "libgnomeui/gnome/overrides/Makefile") CONFIG_FILES="$CONFIG_FILES libgnomeui/gnome/overrides/Makefile" ;; "libgnomeui/Makefile") CONFIG_FILES="$CONFIG_FILES libgnomeui/Makefile" ;; "pango/doc/pango/Makefile") CONFIG_FILES="$CONFIG_FILES pango/doc/pango/Makefile" ;; "pango/doc/pangocairo/Makefile") CONFIG_FILES="$CONFIG_FILES pango/doc/pangocairo/Makefile" ;; "pango/doc/Makefile") CONFIG_FILES="$CONFIG_FILES pango/doc/Makefile" ;; "pango/tests/pango/Makefile") CONFIG_FILES="$CONFIG_FILES pango/tests/pango/Makefile" ;; "pango/tests/pangocairo/Makefile") CONFIG_FILES="$CONFIG_FILES pango/tests/pangocairo/Makefile" ;; "pango/tests/Makefile") CONFIG_FILES="$CONFIG_FILES pango/tests/Makefile" ;; "pango/gnome/gw/Makefile") CONFIG_FILES="$CONFIG_FILES pango/gnome/gw/Makefile" ;; "pango/gnome/Makefile") CONFIG_FILES="$CONFIG_FILES pango/gnome/Makefile" ;; "pango/gnome/overrides/Makefile") CONFIG_FILES="$CONFIG_FILES pango/gnome/overrides/Makefile" ;; "pango/Makefile") CONFIG_FILES="$CONFIG_FILES pango/Makefile" ;; "cairo/guile-gnome-cairo.pc") CONFIG_FILES="$CONFIG_FILES cairo/guile-gnome-cairo.pc" ;; "cairo/guile-gnome-cairo-uninstalled.pc") CONFIG_FILES="$CONFIG_FILES cairo/guile-gnome-cairo-uninstalled.pc" ;; "defs/guile-gnome-defs.pc") CONFIG_FILES="$CONFIG_FILES defs/guile-gnome-defs.pc" ;; "defs/guile-gnome-defs-uninstalled.pc") CONFIG_FILES="$CONFIG_FILES defs/guile-gnome-defs-uninstalled.pc" ;; "glib/guile-gnome-glib.pc") CONFIG_FILES="$CONFIG_FILES glib/guile-gnome-glib.pc" ;; "glib/guile-gnome-glib-uninstalled.pc") CONFIG_FILES="$CONFIG_FILES glib/guile-gnome-glib-uninstalled.pc" ;; "gtk/guile-gnome-gtk.pc") CONFIG_FILES="$CONFIG_FILES gtk/guile-gnome-gtk.pc" ;; "gtk/guile-gnome-gtk-uninstalled.pc") CONFIG_FILES="$CONFIG_FILES gtk/guile-gnome-gtk-uninstalled.pc" ;; "libgnomeui/guile-gnome-libgnomeui.pc") CONFIG_FILES="$CONFIG_FILES libgnomeui/guile-gnome-libgnomeui.pc" ;; "libgnomeui/guile-gnome-libgnomeui-uninstalled.pc") CONFIG_FILES="$CONFIG_FILES libgnomeui/guile-gnome-libgnomeui-uninstalled.pc" ;; *) as_fn_error $? "invalid argument: \`$ac_config_target'" "$LINENO" 5;; esac done # If the user did not use the arguments to specify the items to instantiate, # then the envvar interface is used. Set only those that are not. # We use the long form for the default assignment because of an extremely # bizarre bug on SunOS 4.1.3. if $ac_need_defaults; then test "${CONFIG_FILES+set}" = set || CONFIG_FILES=$config_files test "${CONFIG_HEADERS+set}" = set || CONFIG_HEADERS=$config_headers test "${CONFIG_COMMANDS+set}" = set || CONFIG_COMMANDS=$config_commands fi # Have a temporary directory for convenience. Make it in the build tree # simply because there is no reason against having it here, and in addition, # creating and moving files from /tmp can sometimes cause problems. # Hook for its removal unless debugging. # Note that there is a small window in which the directory will not be cleaned: # after its creation but before its name has been assigned to `$tmp'. $debug || { tmp= ac_tmp= trap 'exit_status=$? : "${ac_tmp:=$tmp}" { test ! -d "$ac_tmp" || rm -fr "$ac_tmp"; } && exit $exit_status ' 0 trap 'as_fn_exit 1' 1 2 13 15 } # Create a (secure) tmp directory for tmp files. { tmp=`(umask 077 && mktemp -d "./confXXXXXX") 2>/dev/null` && test -d "$tmp" } || { tmp=./conf$$-$RANDOM (umask 077 && mkdir "$tmp") } || as_fn_error $? "cannot create a temporary directory in ." "$LINENO" 5 ac_tmp=$tmp # Set up the scripts for CONFIG_FILES section. # No need to generate them if there are no CONFIG_FILES. # This happens for instance with `./config.status config.h'. if test -n "$CONFIG_FILES"; then ac_cr=`echo X | tr X '\015'` # On cygwin, bash can eat \r inside `` if the user requested igncr. # But we know of no other shell where ac_cr would be empty at this # point, so we can use a bashism as a fallback. if test "x$ac_cr" = x; then eval ac_cr=\$\'\\r\' fi ac_cs_awk_cr=`$AWK 'BEGIN { print "a\rb" }' /dev/null` if test "$ac_cs_awk_cr" = "a${ac_cr}b"; then ac_cs_awk_cr='\\r' else ac_cs_awk_cr=$ac_cr fi echo 'BEGIN {' >"$ac_tmp/subs1.awk" && _ACEOF { echo "cat >conf$$subs.awk <<_ACEOF" && echo "$ac_subst_vars" | sed 's/.*/&!$&$ac_delim/' && echo "_ACEOF" } >conf$$subs.sh || as_fn_error $? "could not make $CONFIG_STATUS" "$LINENO" 5 ac_delim_num=`echo "$ac_subst_vars" | grep -c '^'` ac_delim='%!_!# ' for ac_last_try in false false false false false :; do . ./conf$$subs.sh || as_fn_error $? "could not make $CONFIG_STATUS" "$LINENO" 5 ac_delim_n=`sed -n "s/.*$ac_delim\$/X/p" conf$$subs.awk | grep -c X` if test $ac_delim_n = $ac_delim_num; then break elif $ac_last_try; then as_fn_error $? "could not make $CONFIG_STATUS" "$LINENO" 5 else ac_delim="$ac_delim!$ac_delim _$ac_delim!! " fi done rm -f conf$$subs.sh cat >>$CONFIG_STATUS <<_ACEOF || ac_write_fail=1 cat >>"\$ac_tmp/subs1.awk" <<\\_ACAWK && _ACEOF sed -n ' h s/^/S["/; s/!.*/"]=/ p g s/^[^!]*!// :repl t repl s/'"$ac_delim"'$// t delim :nl h s/\(.\{148\}\)..*/\1/ t more1 s/["\\]/\\&/g; s/^/"/; s/$/\\n"\\/ p n b repl :more1 s/["\\]/\\&/g; s/^/"/; s/$/"\\/ p g s/.\{148\}// t nl :delim h s/\(.\{148\}\)..*/\1/ t more2 s/["\\]/\\&/g; s/^/"/; s/$/"/ p b :more2 s/["\\]/\\&/g; s/^/"/; s/$/"\\/ p g s/.\{148\}// t delim ' >$CONFIG_STATUS || ac_write_fail=1 rm -f conf$$subs.awk cat >>$CONFIG_STATUS <<_ACEOF || ac_write_fail=1 _ACAWK cat >>"\$ac_tmp/subs1.awk" <<_ACAWK && for (key in S) S_is_set[key] = 1 FS = "" } { line = $ 0 nfields = split(line, field, "@") substed = 0 len = length(field[1]) for (i = 2; i < nfields; i++) { key = field[i] keylen = length(key) if (S_is_set[key]) { value = S[key] line = substr(line, 1, len) "" value "" substr(line, len + keylen + 3) len += length(value) + length(field[++i]) substed = 1 } else len += 1 + keylen } print line } _ACAWK _ACEOF cat >>$CONFIG_STATUS <<\_ACEOF || ac_write_fail=1 if sed "s/$ac_cr//" < /dev/null > /dev/null 2>&1; then sed "s/$ac_cr\$//; s/$ac_cr/$ac_cs_awk_cr/g" else cat fi < "$ac_tmp/subs1.awk" > "$ac_tmp/subs.awk" \ || as_fn_error $? "could not setup config files machinery" "$LINENO" 5 _ACEOF # VPATH may cause trouble with some makes, so we remove sole $(srcdir), # ${srcdir} and @srcdir@ entries from VPATH if srcdir is ".", strip leading and # trailing colons and then remove the whole line if VPATH becomes empty # (actually we leave an empty line to preserve line numbers). if test "x$srcdir" = x.; then ac_vpsub='/^[ ]*VPATH[ ]*=[ ]*/{ h s/// s/^/:/ s/[ ]*$/:/ s/:\$(srcdir):/:/g s/:\${srcdir}:/:/g s/:@srcdir@:/:/g s/^:*// s/:*$// x s/\(=[ ]*\).*/\1/ G s/\n// s/^[^=]*=[ ]*$// }' fi cat >>$CONFIG_STATUS <<\_ACEOF || ac_write_fail=1 fi # test -n "$CONFIG_FILES" # Set up the scripts for CONFIG_HEADERS section. # No need to generate them if there are no CONFIG_HEADERS. # This happens for instance with `./config.status Makefile'. if test -n "$CONFIG_HEADERS"; then cat >"$ac_tmp/defines.awk" <<\_ACAWK || BEGIN { _ACEOF # Transform confdefs.h into an awk script `defines.awk', embedded as # here-document in config.status, that substitutes the proper values into # config.h.in to produce config.h. # Create a delimiter string that does not exist in confdefs.h, to ease # handling of long lines. ac_delim='%!_!# ' for ac_last_try in false false :; do ac_tt=`sed -n "/$ac_delim/p" confdefs.h` if test -z "$ac_tt"; then break elif $ac_last_try; then as_fn_error $? "could not make $CONFIG_HEADERS" "$LINENO" 5 else ac_delim="$ac_delim!$ac_delim _$ac_delim!! " fi done # For the awk script, D is an array of macro values keyed by name, # likewise P contains macro parameters if any. Preserve backslash # newline sequences. ac_word_re=[_$as_cr_Letters][_$as_cr_alnum]* sed -n ' s/.\{148\}/&'"$ac_delim"'/g t rset :rset s/^[ ]*#[ ]*define[ ][ ]*/ / t def d :def s/\\$// t bsnl s/["\\]/\\&/g s/^ \('"$ac_word_re"'\)\(([^()]*)\)[ ]*\(.*\)/P["\1"]="\2"\ D["\1"]=" \3"/p s/^ \('"$ac_word_re"'\)[ ]*\(.*\)/D["\1"]=" \2"/p d :bsnl s/["\\]/\\&/g s/^ \('"$ac_word_re"'\)\(([^()]*)\)[ ]*\(.*\)/P["\1"]="\2"\ D["\1"]=" \3\\\\\\n"\\/p t cont s/^ \('"$ac_word_re"'\)[ ]*\(.*\)/D["\1"]=" \2\\\\\\n"\\/p t cont d :cont n s/.\{148\}/&'"$ac_delim"'/g t clear :clear s/\\$// t bsnlc s/["\\]/\\&/g; s/^/"/; s/$/"/p d :bsnlc s/["\\]/\\&/g; s/^/"/; s/$/\\\\\\n"\\/p b cont ' >$CONFIG_STATUS || ac_write_fail=1 cat >>$CONFIG_STATUS <<_ACEOF || ac_write_fail=1 for (key in D) D_is_set[key] = 1 FS = "" } /^[\t ]*#[\t ]*(define|undef)[\t ]+$ac_word_re([\t (]|\$)/ { line = \$ 0 split(line, arg, " ") if (arg[1] == "#") { defundef = arg[2] mac1 = arg[3] } else { defundef = substr(arg[1], 2) mac1 = arg[2] } split(mac1, mac2, "(") #) macro = mac2[1] prefix = substr(line, 1, index(line, defundef) - 1) if (D_is_set[macro]) { # Preserve the white space surrounding the "#". print prefix "define", macro P[macro] D[macro] next } else { # Replace #undef with comments. This is necessary, for example, # in the case of _POSIX_SOURCE, which is predefined and required # on some systems where configure will not decide to define it. if (defundef == "undef") { print "/*", prefix defundef, macro, "*/" next } } } { print } _ACAWK _ACEOF cat >>$CONFIG_STATUS <<\_ACEOF || ac_write_fail=1 as_fn_error $? "could not setup config headers machinery" "$LINENO" 5 fi # test -n "$CONFIG_HEADERS" eval set X " :F $CONFIG_FILES :H $CONFIG_HEADERS :C $CONFIG_COMMANDS" shift for ac_tag do case $ac_tag in :[FHLC]) ac_mode=$ac_tag; continue;; esac case $ac_mode$ac_tag in :[FHL]*:*);; :L* | :C*:*) as_fn_error $? "invalid tag \`$ac_tag'" "$LINENO" 5;; :[FH]-) ac_tag=-:-;; :[FH]*) ac_tag=$ac_tag:$ac_tag.in;; esac ac_save_IFS=$IFS IFS=: set x $ac_tag IFS=$ac_save_IFS shift ac_file=$1 shift case $ac_mode in :L) ac_source=$1;; :[FH]) ac_file_inputs= for ac_f do case $ac_f in -) ac_f="$ac_tmp/stdin";; *) # Look for the file first in the build tree, then in the source tree # (if the path is not absolute). The absolute path cannot be DOS-style, # because $ac_f cannot contain `:'. test -f "$ac_f" || case $ac_f in [\\/$]*) false;; *) test -f "$srcdir/$ac_f" && ac_f="$srcdir/$ac_f";; esac || as_fn_error 1 "cannot find input file: \`$ac_f'" "$LINENO" 5;; esac case $ac_f in *\'*) ac_f=`$as_echo "$ac_f" | sed "s/'/'\\\\\\\\''/g"`;; esac as_fn_append ac_file_inputs " '$ac_f'" done # Let's still pretend it is `configure' which instantiates (i.e., don't # use $as_me), people would be surprised to read: # /* config.h. Generated by config.status. */ configure_input='Generated from '` $as_echo "$*" | sed 's|^[^:]*/||;s|:[^:]*/|, |g' `' by configure.' if test x"$ac_file" != x-; then configure_input="$ac_file. $configure_input" { $as_echo "$as_me:${as_lineno-$LINENO}: creating $ac_file" >&5 $as_echo "$as_me: creating $ac_file" >&6;} fi # Neutralize special characters interpreted by sed in replacement strings. case $configure_input in #( *\&* | *\|* | *\\* ) ac_sed_conf_input=`$as_echo "$configure_input" | sed 's/[\\\\&|]/\\\\&/g'`;; #( *) ac_sed_conf_input=$configure_input;; esac case $ac_tag in *:-:* | *:-) cat >"$ac_tmp/stdin" \ || as_fn_error $? "could not create $ac_file" "$LINENO" 5 ;; esac ;; esac ac_dir=`$as_dirname -- "$ac_file" || $as_expr X"$ac_file" : 'X\(.*[^/]\)//*[^/][^/]*/*$' \| \ X"$ac_file" : 'X\(//\)[^/]' \| \ X"$ac_file" : 'X\(//\)$' \| \ X"$ac_file" : 'X\(/\)' \| . 2>/dev/null || $as_echo X"$ac_file" | sed '/^X\(.*[^/]\)\/\/*[^/][^/]*\/*$/{ s//\1/ q } /^X\(\/\/\)[^/].*/{ s//\1/ q } /^X\(\/\/\)$/{ s//\1/ q } /^X\(\/\).*/{ s//\1/ q } s/.*/./; q'` as_dir="$ac_dir"; as_fn_mkdir_p ac_builddir=. case "$ac_dir" in .) ac_dir_suffix= ac_top_builddir_sub=. ac_top_build_prefix= ;; *) ac_dir_suffix=/`$as_echo "$ac_dir" | sed 's|^\.[\\/]||'` # A ".." for each directory in $ac_dir_suffix. ac_top_builddir_sub=`$as_echo "$ac_dir_suffix" | sed 's|/[^\\/]*|/..|g;s|/||'` case $ac_top_builddir_sub in "") ac_top_builddir_sub=. ac_top_build_prefix= ;; *) ac_top_build_prefix=$ac_top_builddir_sub/ ;; esac ;; esac ac_abs_top_builddir=$ac_pwd ac_abs_builddir=$ac_pwd$ac_dir_suffix # for backward compatibility: ac_top_builddir=$ac_top_build_prefix case $srcdir in .) # We are building in place. ac_srcdir=. ac_top_srcdir=$ac_top_builddir_sub ac_abs_top_srcdir=$ac_pwd ;; [\\/]* | ?:[\\/]* ) # Absolute name. ac_srcdir=$srcdir$ac_dir_suffix; ac_top_srcdir=$srcdir ac_abs_top_srcdir=$srcdir ;; *) # Relative name. ac_srcdir=$ac_top_build_prefix$srcdir$ac_dir_suffix ac_top_srcdir=$ac_top_build_prefix$srcdir ac_abs_top_srcdir=$ac_pwd/$srcdir ;; esac ac_abs_srcdir=$ac_abs_top_srcdir$ac_dir_suffix case $ac_mode in :F) # # CONFIG_FILE # case $INSTALL in [\\/$]* | ?:[\\/]* ) ac_INSTALL=$INSTALL ;; *) ac_INSTALL=$ac_top_build_prefix$INSTALL ;; esac ac_MKDIR_P=$MKDIR_P case $MKDIR_P in [\\/$]* | ?:[\\/]* ) ;; */*) ac_MKDIR_P=$ac_top_build_prefix$MKDIR_P ;; esac _ACEOF cat >>$CONFIG_STATUS <<\_ACEOF || ac_write_fail=1 # If the template does not know about datarootdir, expand it. # FIXME: This hack should be removed a few years after 2.60. ac_datarootdir_hack=; ac_datarootdir_seen= ac_sed_dataroot=' /datarootdir/ { p q } /@datadir@/p /@docdir@/p /@infodir@/p /@localedir@/p /@mandir@/p' case `eval "sed -n \"\$ac_sed_dataroot\" $ac_file_inputs"` in *datarootdir*) ac_datarootdir_seen=yes;; *@datadir@*|*@docdir@*|*@infodir@*|*@localedir@*|*@mandir@*) { $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: $ac_file_inputs seems to ignore the --datarootdir setting" >&5 $as_echo "$as_me: WARNING: $ac_file_inputs seems to ignore the --datarootdir setting" >&2;} _ACEOF cat >>$CONFIG_STATUS <<_ACEOF || ac_write_fail=1 ac_datarootdir_hack=' s&@datadir@&$datadir&g s&@docdir@&$docdir&g s&@infodir@&$infodir&g s&@localedir@&$localedir&g s&@mandir@&$mandir&g s&\\\${datarootdir}&$datarootdir&g' ;; esac _ACEOF # Neutralize VPATH when `$srcdir' = `.'. # Shell code in configure.ac might set extrasub. # FIXME: do we really want to maintain this feature? cat >>$CONFIG_STATUS <<_ACEOF || ac_write_fail=1 ac_sed_extra="$ac_vpsub $extrasub _ACEOF cat >>$CONFIG_STATUS <<\_ACEOF || ac_write_fail=1 :t /@[a-zA-Z_][a-zA-Z_0-9]*@/!b s|@configure_input@|$ac_sed_conf_input|;t t s&@top_builddir@&$ac_top_builddir_sub&;t t s&@top_build_prefix@&$ac_top_build_prefix&;t t s&@srcdir@&$ac_srcdir&;t t s&@abs_srcdir@&$ac_abs_srcdir&;t t s&@top_srcdir@&$ac_top_srcdir&;t t s&@abs_top_srcdir@&$ac_abs_top_srcdir&;t t s&@builddir@&$ac_builddir&;t t s&@abs_builddir@&$ac_abs_builddir&;t t s&@abs_top_builddir@&$ac_abs_top_builddir&;t t s&@INSTALL@&$ac_INSTALL&;t t s&@MKDIR_P@&$ac_MKDIR_P&;t t $ac_datarootdir_hack " eval sed \"\$ac_sed_extra\" "$ac_file_inputs" | $AWK -f "$ac_tmp/subs.awk" \ >$ac_tmp/out || as_fn_error $? "could not create $ac_file" "$LINENO" 5 test -z "$ac_datarootdir_hack$ac_datarootdir_seen" && { ac_out=`sed -n '/\${datarootdir}/p' "$ac_tmp/out"`; test -n "$ac_out"; } && { ac_out=`sed -n '/^[ ]*datarootdir[ ]*:*=/p' \ "$ac_tmp/out"`; test -z "$ac_out"; } && { $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: $ac_file contains a reference to the variable \`datarootdir' which seems to be undefined. Please make sure it is defined" >&5 $as_echo "$as_me: WARNING: $ac_file contains a reference to the variable \`datarootdir' which seems to be undefined. Please make sure it is defined" >&2;} rm -f "$ac_tmp/stdin" case $ac_file in -) cat "$ac_tmp/out" && rm -f "$ac_tmp/out";; *) rm -f "$ac_file" && mv "$ac_tmp/out" "$ac_file";; esac \ || as_fn_error $? "could not create $ac_file" "$LINENO" 5 ;; :H) # # CONFIG_HEADER # if test x"$ac_file" != x-; then { $as_echo "/* $configure_input */" \ && eval '$AWK -f "$ac_tmp/defines.awk"' "$ac_file_inputs" } >"$ac_tmp/config.h" \ || as_fn_error $? "could not create $ac_file" "$LINENO" 5 if diff "$ac_file" "$ac_tmp/config.h" >/dev/null 2>&1; then { $as_echo "$as_me:${as_lineno-$LINENO}: $ac_file is unchanged" >&5 $as_echo "$as_me: $ac_file is unchanged" >&6;} else rm -f "$ac_file" mv "$ac_tmp/config.h" "$ac_file" \ || as_fn_error $? "could not create $ac_file" "$LINENO" 5 fi else $as_echo "/* $configure_input */" \ && eval '$AWK -f "$ac_tmp/defines.awk"' "$ac_file_inputs" \ || as_fn_error $? "could not create -" "$LINENO" 5 fi # Compute "$ac_file"'s index in $config_headers. _am_arg="$ac_file" _am_stamp_count=1 for _am_header in $config_headers :; do case $_am_header in $_am_arg | $_am_arg:* ) break ;; * ) _am_stamp_count=`expr $_am_stamp_count + 1` ;; esac done echo "timestamp for $_am_arg" >`$as_dirname -- "$_am_arg" || $as_expr X"$_am_arg" : 'X\(.*[^/]\)//*[^/][^/]*/*$' \| \ X"$_am_arg" : 'X\(//\)[^/]' \| \ X"$_am_arg" : 'X\(//\)$' \| \ X"$_am_arg" : 'X\(/\)' \| . 2>/dev/null || $as_echo X"$_am_arg" | sed '/^X\(.*[^/]\)\/\/*[^/][^/]*\/*$/{ s//\1/ q } /^X\(\/\/\)[^/].*/{ s//\1/ q } /^X\(\/\/\)$/{ s//\1/ q } /^X\(\/\).*/{ s//\1/ q } s/.*/./; q'`/stamp-h$_am_stamp_count ;; :C) { $as_echo "$as_me:${as_lineno-$LINENO}: executing $ac_file commands" >&5 $as_echo "$as_me: executing $ac_file commands" >&6;} ;; esac case $ac_file$ac_mode in "depfiles":C) test x"$AMDEP_TRUE" != x"" || { # Autoconf 2.62 quotes --file arguments for eval, but not when files # are listed without --file. Let's play safe and only enable the eval # if we detect the quoting. case $CONFIG_FILES in *\'*) eval set x "$CONFIG_FILES" ;; *) set x $CONFIG_FILES ;; esac shift for mf do # Strip MF so we end up with the name of the file. mf=`echo "$mf" | sed -e 's/:.*$//'` # Check whether this is an Automake generated Makefile or not. # We used to match only the files named `Makefile.in', but # some people rename them; so instead we look at the file content. # Grep'ing the first line is not enough: some people post-process # each Makefile.in and add a new line on top of each file to say so. # Grep'ing the whole file is not good either: AIX grep has a line # limit of 2048, but all sed's we know have understand at least 4000. if sed -n 's,^#.*generated by automake.*,X,p' "$mf" | grep X >/dev/null 2>&1; then dirpart=`$as_dirname -- "$mf" || $as_expr X"$mf" : 'X\(.*[^/]\)//*[^/][^/]*/*$' \| \ X"$mf" : 'X\(//\)[^/]' \| \ X"$mf" : 'X\(//\)$' \| \ X"$mf" : 'X\(/\)' \| . 2>/dev/null || $as_echo X"$mf" | sed '/^X\(.*[^/]\)\/\/*[^/][^/]*\/*$/{ s//\1/ q } /^X\(\/\/\)[^/].*/{ s//\1/ q } /^X\(\/\/\)$/{ s//\1/ q } /^X\(\/\).*/{ s//\1/ q } s/.*/./; q'` else continue fi # Extract the definition of DEPDIR, am__include, and am__quote # from the Makefile without running `make'. DEPDIR=`sed -n 's/^DEPDIR = //p' < "$mf"` test -z "$DEPDIR" && continue am__include=`sed -n 's/^am__include = //p' < "$mf"` test -z "am__include" && continue am__quote=`sed -n 's/^am__quote = //p' < "$mf"` # When using ansi2knr, U may be empty or an underscore; expand it U=`sed -n 's/^U = //p' < "$mf"` # Find all dependency output files, they are included files with # $(DEPDIR) in their names. We invoke sed twice because it is the # simplest approach to changing $(DEPDIR) to its actual value in the # expansion. for file in `sed -n " s/^$am__include $am__quote\(.*(DEPDIR).*\)$am__quote"'$/\1/p' <"$mf" | \ sed -e 's/\$(DEPDIR)/'"$DEPDIR"'/g' -e 's/\$U/'"$U"'/g'`; do # Make sure the directory exists. test -f "$dirpart/$file" && continue fdir=`$as_dirname -- "$file" || $as_expr X"$file" : 'X\(.*[^/]\)//*[^/][^/]*/*$' \| \ X"$file" : 'X\(//\)[^/]' \| \ X"$file" : 'X\(//\)$' \| \ X"$file" : 'X\(/\)' \| . 2>/dev/null || $as_echo X"$file" | sed '/^X\(.*[^/]\)\/\/*[^/][^/]*\/*$/{ s//\1/ q } /^X\(\/\/\)[^/].*/{ s//\1/ q } /^X\(\/\/\)$/{ s//\1/ q } /^X\(\/\).*/{ s//\1/ q } s/.*/./; q'` as_dir=$dirpart/$fdir; as_fn_mkdir_p # echo "creating $dirpart/$file" echo '# dummy' > "$dirpart/$file" done done } ;; "libtool":C) # See if we are running on zsh, and set the options which allow our # commands through without removal of \ escapes. if test -n "${ZSH_VERSION+set}" ; then setopt NO_GLOB_SUBST fi cfgfile="${ofile}T" trap "$RM \"$cfgfile\"; exit 1" 1 2 15 $RM "$cfgfile" cat <<_LT_EOF >> "$cfgfile" #! $SHELL # `$ECHO "$ofile" | sed 's%^.*/%%'` - Provide generalized library-building support services. # Generated automatically by $as_me ($PACKAGE$TIMESTAMP) $VERSION # Libtool was configured on host `(hostname || uname -n) 2>/dev/null | sed 1q`: # NOTE: Changes made to this file will be lost: look at ltmain.sh. # # Copyright (C) 1996, 1997, 1998, 1999, 2000, 2001, 2003, 2004, 2005, # 2006, 2007, 2008, 2009, 2010, 2011 Free Software # Foundation, Inc. # Written by Gordon Matzigkeit, 1996 # # This file is part of GNU Libtool. # # GNU Libtool is free software; you can redistribute it and/or # modify it under the terms of the GNU General Public License as # published by the Free Software Foundation; either version 2 of # the License, or (at your option) any later version. # # As a special exception to the GNU General Public License, # if you distribute this file as part of a program or library that # is built using GNU Libtool, you may include this file under the # same distribution terms that you use for the rest of that program. # # GNU Libtool is distributed in the hope that it will be useful, # but WITHOUT ANY WARRANTY; without even the implied warranty of # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the # GNU General Public License for more details. # # You should have received a copy of the GNU General Public License # along with GNU Libtool; see the file COPYING. If not, a copy # can be downloaded from http://www.gnu.org/licenses/gpl.html, or # obtained by writing to the Free Software Foundation, Inc., # 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA. # The names of the tagged configurations supported by this script. available_tags="" # ### BEGIN LIBTOOL CONFIG # Whether or not to build static libraries. build_old_libs=$enable_static # Which release of libtool.m4 was used? macro_version=$macro_version macro_revision=$macro_revision # Whether or not to build shared libraries. build_libtool_libs=$enable_shared # What type of objects to build. pic_mode=$pic_mode # Whether or not to optimize for fast installation. fast_install=$enable_fast_install # Shell to use when invoking shell scripts. SHELL=$lt_SHELL # An echo program that protects backslashes. ECHO=$lt_ECHO # The PATH separator for the build system. PATH_SEPARATOR=$lt_PATH_SEPARATOR # The host system. host_alias=$host_alias host=$host host_os=$host_os # The build system. build_alias=$build_alias build=$build build_os=$build_os # A sed program that does not truncate output. SED=$lt_SED # Sed that helps us avoid accidentally triggering echo(1) options like -n. Xsed="\$SED -e 1s/^X//" # A grep program that handles long lines. GREP=$lt_GREP # An ERE matcher. EGREP=$lt_EGREP # A literal string matcher. FGREP=$lt_FGREP # A BSD- or MS-compatible name lister. NM=$lt_NM # Whether we need soft or hard links. LN_S=$lt_LN_S # What is the maximum length of a command? max_cmd_len=$max_cmd_len # Object file suffix (normally "o"). objext=$ac_objext # Executable file suffix (normally ""). exeext=$exeext # whether the shell understands "unset". lt_unset=$lt_unset # turn spaces into newlines. SP2NL=$lt_lt_SP2NL # turn newlines into spaces. NL2SP=$lt_lt_NL2SP # convert \$build file names to \$host format. to_host_file_cmd=$lt_cv_to_host_file_cmd # convert \$build files to toolchain format. to_tool_file_cmd=$lt_cv_to_tool_file_cmd # An object symbol dumper. OBJDUMP=$lt_OBJDUMP # Method to check whether dependent libraries are shared objects. deplibs_check_method=$lt_deplibs_check_method # Command to use when deplibs_check_method = "file_magic". file_magic_cmd=$lt_file_magic_cmd # How to find potential files when deplibs_check_method = "file_magic". file_magic_glob=$lt_file_magic_glob # Find potential files using nocaseglob when deplibs_check_method = "file_magic". want_nocaseglob=$lt_want_nocaseglob # DLL creation program. DLLTOOL=$lt_DLLTOOL # Command to associate shared and link libraries. sharedlib_from_linklib_cmd=$lt_sharedlib_from_linklib_cmd # The archiver. AR=$lt_AR # Flags to create an archive. AR_FLAGS=$lt_AR_FLAGS # How to feed a file listing to the archiver. archiver_list_spec=$lt_archiver_list_spec # A symbol stripping program. STRIP=$lt_STRIP # Commands used to install an old-style archive. RANLIB=$lt_RANLIB old_postinstall_cmds=$lt_old_postinstall_cmds old_postuninstall_cmds=$lt_old_postuninstall_cmds # Whether to use a lock for old archive extraction. lock_old_archive_extraction=$lock_old_archive_extraction # A C compiler. LTCC=$lt_CC # LTCC compiler flags. LTCFLAGS=$lt_CFLAGS # Take the output of nm and produce a listing of raw symbols and C names. global_symbol_pipe=$lt_lt_cv_sys_global_symbol_pipe # Transform the output of nm in a proper C declaration. global_symbol_to_cdecl=$lt_lt_cv_sys_global_symbol_to_cdecl # Transform the output of nm in a C name address pair. global_symbol_to_c_name_address=$lt_lt_cv_sys_global_symbol_to_c_name_address # Transform the output of nm in a C name address pair when lib prefix is needed. global_symbol_to_c_name_address_lib_prefix=$lt_lt_cv_sys_global_symbol_to_c_name_address_lib_prefix # Specify filename containing input files for \$NM. nm_file_list_spec=$lt_nm_file_list_spec # The root where to search for dependent libraries,and in which our libraries should be installed. lt_sysroot=$lt_sysroot # The name of the directory that contains temporary libtool files. objdir=$objdir # Used to examine libraries when file_magic_cmd begins with "file". MAGIC_CMD=$MAGIC_CMD # Must we lock files when doing compilation? need_locks=$lt_need_locks # Manifest tool. MANIFEST_TOOL=$lt_MANIFEST_TOOL # Tool to manipulate archived DWARF debug symbol files on Mac OS X. DSYMUTIL=$lt_DSYMUTIL # Tool to change global to local symbols on Mac OS X. NMEDIT=$lt_NMEDIT # Tool to manipulate fat objects and archives on Mac OS X. LIPO=$lt_LIPO # ldd/readelf like tool for Mach-O binaries on Mac OS X. OTOOL=$lt_OTOOL # ldd/readelf like tool for 64 bit Mach-O binaries on Mac OS X 10.4. OTOOL64=$lt_OTOOL64 # Old archive suffix (normally "a"). libext=$libext # Shared library suffix (normally ".so"). shrext_cmds=$lt_shrext_cmds # The commands to extract the exported symbol list from a shared archive. extract_expsyms_cmds=$lt_extract_expsyms_cmds # Variables whose values should be saved in libtool wrapper scripts and # restored at link time. variables_saved_for_relink=$lt_variables_saved_for_relink # Do we need the "lib" prefix for modules? need_lib_prefix=$need_lib_prefix # Do we need a version for libraries? need_version=$need_version # Library versioning type. version_type=$version_type # Shared library runtime path variable. runpath_var=$runpath_var # Shared library path variable. shlibpath_var=$shlibpath_var # Is shlibpath searched before the hard-coded library search path? shlibpath_overrides_runpath=$shlibpath_overrides_runpath # Format of library name prefix. libname_spec=$lt_libname_spec # List of archive names. First name is the real one, the rest are links. # The last name is the one that the linker finds with -lNAME library_names_spec=$lt_library_names_spec # The coded name of the library, if different from the real name. soname_spec=$lt_soname_spec # Permission mode override for installation of shared libraries. install_override_mode=$lt_install_override_mode # Command to use after installation of a shared archive. postinstall_cmds=$lt_postinstall_cmds # Command to use after uninstallation of a shared archive. postuninstall_cmds=$lt_postuninstall_cmds # Commands used to finish a libtool library installation in a directory. finish_cmds=$lt_finish_cmds # As "finish_cmds", except a single script fragment to be evaled but # not shown. finish_eval=$lt_finish_eval # Whether we should hardcode library paths into libraries. hardcode_into_libs=$hardcode_into_libs # Compile-time system search path for libraries. sys_lib_search_path_spec=$lt_sys_lib_search_path_spec # Run-time system search path for libraries. sys_lib_dlsearch_path_spec=$lt_sys_lib_dlsearch_path_spec # Whether dlopen is supported. dlopen_support=$enable_dlopen # Whether dlopen of programs is supported. dlopen_self=$enable_dlopen_self # Whether dlopen of statically linked programs is supported. dlopen_self_static=$enable_dlopen_self_static # Commands to strip libraries. old_striplib=$lt_old_striplib striplib=$lt_striplib # The linker used to build libraries. LD=$lt_LD # How to create reloadable object files. reload_flag=$lt_reload_flag reload_cmds=$lt_reload_cmds # Commands used to build an old-style archive. old_archive_cmds=$lt_old_archive_cmds # A language specific compiler. CC=$lt_compiler # Is the compiler the GNU compiler? with_gcc=$GCC # Compiler flag to turn off builtin functions. no_builtin_flag=$lt_lt_prog_compiler_no_builtin_flag # Additional compiler flags for building library objects. pic_flag=$lt_lt_prog_compiler_pic # How to pass a linker flag through the compiler. wl=$lt_lt_prog_compiler_wl # Compiler flag to prevent dynamic linking. link_static_flag=$lt_lt_prog_compiler_static # Does compiler simultaneously support -c and -o options? compiler_c_o=$lt_lt_cv_prog_compiler_c_o # Whether or not to add -lc for building shared libraries. build_libtool_need_lc=$archive_cmds_need_lc # Whether or not to disallow shared libs when runtime libs are static. allow_libtool_libs_with_static_runtimes=$enable_shared_with_static_runtimes # Compiler flag to allow reflexive dlopens. export_dynamic_flag_spec=$lt_export_dynamic_flag_spec # Compiler flag to generate shared objects directly from archives. whole_archive_flag_spec=$lt_whole_archive_flag_spec # Whether the compiler copes with passing no objects directly. compiler_needs_object=$lt_compiler_needs_object # Create an old-style archive from a shared archive. old_archive_from_new_cmds=$lt_old_archive_from_new_cmds # Create a temporary old-style archive to link instead of a shared archive. old_archive_from_expsyms_cmds=$lt_old_archive_from_expsyms_cmds # Commands used to build a shared archive. archive_cmds=$lt_archive_cmds archive_expsym_cmds=$lt_archive_expsym_cmds # Commands used to build a loadable module if different from building # a shared archive. module_cmds=$lt_module_cmds module_expsym_cmds=$lt_module_expsym_cmds # Whether we are building with GNU ld or not. with_gnu_ld=$lt_with_gnu_ld # Flag that allows shared libraries with undefined symbols to be built. allow_undefined_flag=$lt_allow_undefined_flag # Flag that enforces no undefined symbols. no_undefined_flag=$lt_no_undefined_flag # Flag to hardcode \$libdir into a binary during linking. # This must work even if \$libdir does not exist hardcode_libdir_flag_spec=$lt_hardcode_libdir_flag_spec # Whether we need a single "-rpath" flag with a separated argument. hardcode_libdir_separator=$lt_hardcode_libdir_separator # Set to "yes" if using DIR/libNAME\${shared_ext} during linking hardcodes # DIR into the resulting binary. hardcode_direct=$hardcode_direct # Set to "yes" if using DIR/libNAME\${shared_ext} during linking hardcodes # DIR into the resulting binary and the resulting library dependency is # "absolute",i.e impossible to change by setting \${shlibpath_var} if the # library is relocated. hardcode_direct_absolute=$hardcode_direct_absolute # Set to "yes" if using the -LDIR flag during linking hardcodes DIR # into the resulting binary. hardcode_minus_L=$hardcode_minus_L # Set to "yes" if using SHLIBPATH_VAR=DIR during linking hardcodes DIR # into the resulting binary. hardcode_shlibpath_var=$hardcode_shlibpath_var # Set to "yes" if building a shared library automatically hardcodes DIR # into the library and all subsequent libraries and executables linked # against it. hardcode_automatic=$hardcode_automatic # Set to yes if linker adds runtime paths of dependent libraries # to runtime path list. inherit_rpath=$inherit_rpath # Whether libtool must link a program against all its dependency libraries. link_all_deplibs=$link_all_deplibs # Set to "yes" if exported symbols are required. always_export_symbols=$always_export_symbols # The commands to list exported symbols. export_symbols_cmds=$lt_export_symbols_cmds # Symbols that should not be listed in the preloaded symbols. exclude_expsyms=$lt_exclude_expsyms # Symbols that must always be exported. include_expsyms=$lt_include_expsyms # Commands necessary for linking programs (against libraries) with templates. prelink_cmds=$lt_prelink_cmds # Commands necessary for finishing linking programs. postlink_cmds=$lt_postlink_cmds # Specify filename containing input files. file_list_spec=$lt_file_list_spec # How to hardcode a shared library path into an executable. hardcode_action=$hardcode_action # ### END LIBTOOL CONFIG _LT_EOF case $host_os in aix3*) cat <<\_LT_EOF >> "$cfgfile" # AIX sometimes has problems with the GCC collect2 program. For some # reason, if we set the COLLECT_NAMES environment variable, the problems # vanish in a puff of smoke. if test "X${COLLECT_NAMES+set}" != Xset; then COLLECT_NAMES= export COLLECT_NAMES fi _LT_EOF ;; esac ltmain="$ac_aux_dir/ltmain.sh" # We use sed instead of cat because bash on DJGPP gets confused if # if finds mixed CR/LF and LF-only lines. Since sed operates in # text mode, it properly converts lines to CR/LF. This bash problem # is reportedly fixed, but why not run on old versions too? sed '$q' "$ltmain" >> "$cfgfile" \ || (rm -f "$cfgfile"; exit 1) if test x"$xsi_shell" = xyes; then sed -e '/^func_dirname ()$/,/^} # func_dirname /c\ func_dirname ()\ {\ \ case ${1} in\ \ */*) func_dirname_result="${1%/*}${2}" ;;\ \ * ) func_dirname_result="${3}" ;;\ \ esac\ } # Extended-shell func_dirname implementation' "$cfgfile" > $cfgfile.tmp \ && mv -f "$cfgfile.tmp" "$cfgfile" \ || (rm -f "$cfgfile" && cp "$cfgfile.tmp" "$cfgfile" && rm -f "$cfgfile.tmp") test 0 -eq $? || _lt_function_replace_fail=: sed -e '/^func_basename ()$/,/^} # func_basename /c\ func_basename ()\ {\ \ func_basename_result="${1##*/}"\ } # Extended-shell func_basename implementation' "$cfgfile" > $cfgfile.tmp \ && mv -f "$cfgfile.tmp" "$cfgfile" \ || (rm -f "$cfgfile" && cp "$cfgfile.tmp" "$cfgfile" && rm -f "$cfgfile.tmp") test 0 -eq $? || _lt_function_replace_fail=: sed -e '/^func_dirname_and_basename ()$/,/^} # func_dirname_and_basename /c\ func_dirname_and_basename ()\ {\ \ case ${1} in\ \ */*) func_dirname_result="${1%/*}${2}" ;;\ \ * ) func_dirname_result="${3}" ;;\ \ esac\ \ func_basename_result="${1##*/}"\ } # Extended-shell func_dirname_and_basename implementation' "$cfgfile" > $cfgfile.tmp \ && mv -f "$cfgfile.tmp" "$cfgfile" \ || (rm -f "$cfgfile" && cp "$cfgfile.tmp" "$cfgfile" && rm -f "$cfgfile.tmp") test 0 -eq $? || _lt_function_replace_fail=: sed -e '/^func_stripname ()$/,/^} # func_stripname /c\ func_stripname ()\ {\ \ # pdksh 5.2.14 does not do ${X%$Y} correctly if both X and Y are\ \ # positional parameters, so assign one to ordinary parameter first.\ \ func_stripname_result=${3}\ \ func_stripname_result=${func_stripname_result#"${1}"}\ \ func_stripname_result=${func_stripname_result%"${2}"}\ } # Extended-shell func_stripname implementation' "$cfgfile" > $cfgfile.tmp \ && mv -f "$cfgfile.tmp" "$cfgfile" \ || (rm -f "$cfgfile" && cp "$cfgfile.tmp" "$cfgfile" && rm -f "$cfgfile.tmp") test 0 -eq $? || _lt_function_replace_fail=: sed -e '/^func_split_long_opt ()$/,/^} # func_split_long_opt /c\ func_split_long_opt ()\ {\ \ func_split_long_opt_name=${1%%=*}\ \ func_split_long_opt_arg=${1#*=}\ } # Extended-shell func_split_long_opt implementation' "$cfgfile" > $cfgfile.tmp \ && mv -f "$cfgfile.tmp" "$cfgfile" \ || (rm -f "$cfgfile" && cp "$cfgfile.tmp" "$cfgfile" && rm -f "$cfgfile.tmp") test 0 -eq $? || _lt_function_replace_fail=: sed -e '/^func_split_short_opt ()$/,/^} # func_split_short_opt /c\ func_split_short_opt ()\ {\ \ func_split_short_opt_arg=${1#??}\ \ func_split_short_opt_name=${1%"$func_split_short_opt_arg"}\ } # Extended-shell func_split_short_opt implementation' "$cfgfile" > $cfgfile.tmp \ && mv -f "$cfgfile.tmp" "$cfgfile" \ || (rm -f "$cfgfile" && cp "$cfgfile.tmp" "$cfgfile" && rm -f "$cfgfile.tmp") test 0 -eq $? || _lt_function_replace_fail=: sed -e '/^func_lo2o ()$/,/^} # func_lo2o /c\ func_lo2o ()\ {\ \ case ${1} in\ \ *.lo) func_lo2o_result=${1%.lo}.${objext} ;;\ \ *) func_lo2o_result=${1} ;;\ \ esac\ } # Extended-shell func_lo2o implementation' "$cfgfile" > $cfgfile.tmp \ && mv -f "$cfgfile.tmp" "$cfgfile" \ || (rm -f "$cfgfile" && cp "$cfgfile.tmp" "$cfgfile" && rm -f "$cfgfile.tmp") test 0 -eq $? || _lt_function_replace_fail=: sed -e '/^func_xform ()$/,/^} # func_xform /c\ func_xform ()\ {\ func_xform_result=${1%.*}.lo\ } # Extended-shell func_xform implementation' "$cfgfile" > $cfgfile.tmp \ && mv -f "$cfgfile.tmp" "$cfgfile" \ || (rm -f "$cfgfile" && cp "$cfgfile.tmp" "$cfgfile" && rm -f "$cfgfile.tmp") test 0 -eq $? || _lt_function_replace_fail=: sed -e '/^func_arith ()$/,/^} # func_arith /c\ func_arith ()\ {\ func_arith_result=$(( $* ))\ } # Extended-shell func_arith implementation' "$cfgfile" > $cfgfile.tmp \ && mv -f "$cfgfile.tmp" "$cfgfile" \ || (rm -f "$cfgfile" && cp "$cfgfile.tmp" "$cfgfile" && rm -f "$cfgfile.tmp") test 0 -eq $? || _lt_function_replace_fail=: sed -e '/^func_len ()$/,/^} # func_len /c\ func_len ()\ {\ func_len_result=${#1}\ } # Extended-shell func_len implementation' "$cfgfile" > $cfgfile.tmp \ && mv -f "$cfgfile.tmp" "$cfgfile" \ || (rm -f "$cfgfile" && cp "$cfgfile.tmp" "$cfgfile" && rm -f "$cfgfile.tmp") test 0 -eq $? || _lt_function_replace_fail=: fi if test x"$lt_shell_append" = xyes; then sed -e '/^func_append ()$/,/^} # func_append /c\ func_append ()\ {\ eval "${1}+=\\${2}"\ } # Extended-shell func_append implementation' "$cfgfile" > $cfgfile.tmp \ && mv -f "$cfgfile.tmp" "$cfgfile" \ || (rm -f "$cfgfile" && cp "$cfgfile.tmp" "$cfgfile" && rm -f "$cfgfile.tmp") test 0 -eq $? || _lt_function_replace_fail=: sed -e '/^func_append_quoted ()$/,/^} # func_append_quoted /c\ func_append_quoted ()\ {\ \ func_quote_for_eval "${2}"\ \ eval "${1}+=\\\\ \\$func_quote_for_eval_result"\ } # Extended-shell func_append_quoted implementation' "$cfgfile" > $cfgfile.tmp \ && mv -f "$cfgfile.tmp" "$cfgfile" \ || (rm -f "$cfgfile" && cp "$cfgfile.tmp" "$cfgfile" && rm -f "$cfgfile.tmp") test 0 -eq $? || _lt_function_replace_fail=: # Save a `func_append' function call where possible by direct use of '+=' sed -e 's%func_append \([a-zA-Z_]\{1,\}\) "%\1+="%g' $cfgfile > $cfgfile.tmp \ && mv -f "$cfgfile.tmp" "$cfgfile" \ || (rm -f "$cfgfile" && cp "$cfgfile.tmp" "$cfgfile" && rm -f "$cfgfile.tmp") test 0 -eq $? || _lt_function_replace_fail=: else # Save a `func_append' function call even when '+=' is not available sed -e 's%func_append \([a-zA-Z_]\{1,\}\) "%\1="$\1%g' $cfgfile > $cfgfile.tmp \ && mv -f "$cfgfile.tmp" "$cfgfile" \ || (rm -f "$cfgfile" && cp "$cfgfile.tmp" "$cfgfile" && rm -f "$cfgfile.tmp") test 0 -eq $? || _lt_function_replace_fail=: fi if test x"$_lt_function_replace_fail" = x":"; then { $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: Unable to substitute extended shell functions in $ofile" >&5 $as_echo "$as_me: WARNING: Unable to substitute extended shell functions in $ofile" >&2;} fi mv -f "$cfgfile" "$ofile" || (rm -f "$ofile" && cp "$cfgfile" "$ofile" && rm -f "$cfgfile") chmod +x "$ofile" ;; "glib/gnome/gobject/guile-gnome-gobject":C) rm -f glib/gnome/gobject/guile-gnome-gobject ln -s `cd $srcdir && pwd`/glib/gnome/gobject/ glib/gnome/gobject/guile-gnome-gobject ;; "dev-environ":F) chmod +x ./dev-environ ;; esac done # for ac_tag as_fn_exit 0 _ACEOF ac_clean_files=$ac_clean_files_save test $ac_write_fail = 0 || as_fn_error $? "write failure creating $CONFIG_STATUS" "$LINENO" 5 # configure is writing to config.log, and then calls config.status. # config.status does its own redirection, appending to config.log. # Unfortunately, on DOS this fails, as config.log is still kept open # by configure, so config.status won't be able to write to it; its # output is simply discarded. So we exec the FD to /dev/null, # effectively closing config.log, so it can be properly (re)opened and # appended to by config.status. When coming back to configure, we # need to make the FD available again. if test "$no_create" != yes; then ac_cs_success=: ac_config_status_args= test "$silent" = yes && ac_config_status_args="$ac_config_status_args --quiet" exec 5>/dev/null $SHELL $CONFIG_STATUS $ac_config_status_args || ac_cs_success=false exec 5>>config.log # Use ||, not &&, to avoid exiting from the if with $? = 1, which # would make configure fail if this is the last instruction. $ac_cs_success || as_fn_exit 1 fi if test -n "$ac_unrecognized_opts" && test "$enable_option_checking" != no; then { $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: unrecognized options: $ac_unrecognized_opts" >&5 $as_echo "$as_me: WARNING: unrecognized options: $ac_unrecognized_opts" >&2;} fi guile-gnome-platform-2.16.2/libgnome/0000755000175000017500000000000011752546504017771 5ustar00wingowingo00000000000000guile-gnome-platform-2.16.2/libgnome/doc/0000755000175000017500000000000011752546504020536 5ustar00wingowingo00000000000000guile-gnome-platform-2.16.2/libgnome/doc/undocumented.texi0000644000175000017500000000075611670374303024126 0ustar00wingowingo00000000000000 @c %start of fragment @node Undocumented @chapter Undocumented The following symbols, if any, have not been properly documented. @section (gnome gnome) @defun gnome-program-init name version . properties @end defun @section (gnome gw libgnome) @defvar %gnome-program-init @end defvar @defvar gnome-gconf-get-app-settings-relative @end defvar @defvar gnome-gconf-get-gnome-libs-settings-relative @end defvar @defvar gnome-program-get-human-readable-name @end defvar @c %end of fragment guile-gnome-platform-2.16.2/libgnome/doc/defuns-gnome-program.xml.texi0000644000175000017500000000523111670374303026260 0ustar00wingowingo00000000000000 @c %start of fragment @deftp Class Derives from @code{}. This class defines the following slots: @table @code @item app-id ID string to use for this application @item app-version Version of this application @item human-readable-name Human readable name of this application @item gnome-path Path in which to look for installed files @item gnome-prefix Prefix where GNOME was installed @item gnome-libdir Library prefix where GNOME was installed @item gnome-datadir Data prefix where GNOME was installed @item gnome-sysconfdir Configuration prefix where GNOME was installed @item app-prefix Prefix where this application was installed @item app-libdir Library prefix where this application was installed @item app-datadir Data prefix where this application was installed @item app-sysconfdir Configuration prefix where this application was installed @item create-directories Create standard GNOME directories on startup @item enable-sound Enable sound on startup @item espeaker How to connect to esd @item popt-table The table of options for popt @item popt-flags The flags to use for popt @item popt-context The popt context pointer that GnomeProgram is using @item goption-context The goption context pointer that GnomeProgram is using @end table @end deftp @deffn Function gnome-program-get @result{}@tie{} (ret@tie{}@code{}) Retrieves an object that stored information about the application's state. Other functions assume this will always return a @code{} object which (if not @samp{@code{#f}}) has already been initialized. @table @var @item ret The application's @code{} instance, or @samp{@code{#f}} if it does not exist. @end table @end deffn @deffn Function gnome-program-get-app-id (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{mchars}) @deffnx Method get-app-id This function returns a pointer to a static string that the application has provided as an identifier. This is not meant as a human-readable identifier so much as a unique identifier for programs and libraries. @table @var @item program The program object @item ret Application ID string. @end table @end deffn @deffn Function gnome-program-get-app-version (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{mchars}) @deffnx Method get-app-version This function returns a pointer to a static string that the application has provided as a version number. This is not meant as a human-readable identifier so much as a unique identifier for programs and libraries. @table @var @item program The application object @item ret Application version string. @end table @end deffn @c %end of fragment guile-gnome-platform-2.16.2/libgnome/doc/guile-gnome-libgnome.info0000644000175000017500000004077311752516273025430 0ustar00wingowingo00000000000000This is guile-gnome-libgnome.info, produced by makeinfo version 4.13 from guile-gnome-libgnome.texi. This manual is for `(gnome libgnome)' (version 2.16.2, updated 9 December 2011) Copyright 2001-2007 Kjartan Maraas, Malcolm Tredinnick, and others Permission is granted to copy, distribute and/or modify this document under the terms of the GNU General Public License, Version 2 or any later version published by the Free Software Foundation. INFO-DIR-SECTION The Algorithmic Language Scheme START-INFO-DIR-ENTRY * Guile-Libgnome: (guile-gnome-libgnome.info). A GNOME catchall library. END-INFO-DIR-ENTRY  File: guile-gnome-libgnome.info, Node: Top, Next: Overview, Up: (dir) Guile-Libgnome ************** This manual is for `(gnome libgnome)' (version 2.16.2, updated 9 December 2011) Copyright 2001-2007 Kjartan Maraas, Malcolm Tredinnick, and others Permission is granted to copy, distribute and/or modify this document under the terms of the GNU General Public License, Version 2 or any later version published by the Free Software Foundation. * Menu: * Overview:: About libgnome and its Guile bindings. * gnome-help:: Display application and GNOME system help. * gnome-init:: Functions used during initialisation of libgnome and other platform libraries. * gnome-program:: Initialize and retrieve information about a GNOME application. * gnome-sound:: Sound playing routines. * gnome-url:: Display urls using appropriate viewers. * Undocumented:: Undocumented functions. * Type Index:: * Function Index::  File: guile-gnome-libgnome.info, Node: Overview, Next: gnome-help, Prev: Top, Up: Top 1 Overview ********** `(gnome gnome)' wraps some pieces of the libgnome library for Guile. It is a part of Guile-GNOME. Libgnome historically was a staging ground for code meant to go elsewhere. In the modern environment, it has largely been replaced, its functionality having been pushed into GLib, GTK+, and other lower-level libraries. However, as of 2008 it still has some utility. The help functions are useful. `(gnome gnome)' wraps those parts that have not been replaced yet. See the documentation for `(gnome gobject)' for more information on Guile-GNOME.  File: guile-gnome-libgnome.info, Node: gnome-help, Next: gnome-init, Prev: Overview, Up: Top 2 gnome-help ************ Display application and GNOME system help. 2.1 Overview ============ These functions provide a way to display help files that are either installed as part of the main GNOME installation or that are specific to the current application. 2.2 Usage ========= -- Function: gnome-help-display (file_name `mchars') (link_id `mchars') => (ret `bool') Displays the help file specified by FILE-NAME at location LINK-ID in the preferred help browser of the user. FILE-NAME The name of the help document to display. LINK-ID Can be ``#f''. If set, refers to an anchor or section id within the requested document. ERROR A `' instance that will hold the specifics of any error which occurs during processing, or ``#f'' RET ``#t'' on success, ``#f'' otherwise (in which case ERROR will contain the actual error). -- Function: gnome-help-display-with-doc-id (program `') (doc_id `mchars') (file_name `mchars') (link_id `mchars') => (ret `bool') Displays the help file specified by FILE-NAME at location LINK-ID within the DOC-ID domain in the preferred help browser of the user. Most of the time, you want to call `gnome-help-display' instead. This function will display the help through creating a "ghelp" URI, by looking for FILE-NAME in the applications installed help location (found by `') and its app_id. The resulting URI is roughly in the form "ghelp:appid/file_name?link_id". If a matching file cannot be found, ``#f'' is returned and ERROR is set. Please note that this only displays application help. To display help files from the global GNOME domain, you will want to use `gnome-help-display-desktop'. PROGRAM The current application object, or ``#f'' for the default one. DOC-ID The document identifier, or ``#f'' to default to the application ID (app_id) of the specified PROGRAM. FILE-NAME The name of the help document to display. LINK-ID Can be ``#f''. If set, refers to an anchor or section id within the requested document. ERROR A `' instance that will hold the specifics of any error which occurs during processing, or ``#f'' RET ``#t'' on success, ``#f'' otherwise (in which case ERROR will contain the actual error). -- Function: gnome-help-display-desktop (program `') (doc_id `mchars') (file_name `mchars') (link_id `mchars') => (ret `bool') Displays the GNOME system help file specified by FILE-NAME at location LINK-ID in the preferred help browser of the user. This is done by creating a "ghelp" URI, by looking for FILE-NAME in the system help domain (`') and it's app_id. This domain is determined when the library is compiled. If a matching file cannot be found, ``#f'' is returned and ERROR is set. Please note that this only displays system help. To display help files for an application, you will want to use `gnome-help-display'. PROGRAM The current application object, or ``#f'' for the default one. DOC-ID The name of the help file relative to the system's help domain (`'). FILE-NAME The name of the help document to display. LINK-ID Can be ``#f''. If set, refers to an anchor or section id within the requested document. ERROR A `' instance that will hold the specifics of any error which occurs during processing, or ``#f'' RET ``#t'' on success, ``#f'' otherwise (in which case ERROR will contain the actual error). -- Function: gnome-help-display-uri (help_uri `mchars') => (ret `bool') Displays HELP-URI in the user's preferred viewer. You should never need to call this function directly in code, since it is just a wrapper for `gnome-url-show' and consequently the viewer used to display the results depends upon the scheme of the URI (so it is not strictly a help-only function). HELP-URI The URI to display. ERROR A `' instance that will hold the specifics of any error which occurs during processing, or ``#f'' RET ``#t'' on success, ``#f'' otherwise (in which case ERROR will contain the actual error).  File: guile-gnome-libgnome.info, Node: gnome-init, Next: gnome-program, Prev: gnome-help, Up: Top 3 gnome-init ************ Functions used during initialisation of libgnome and other platform libraries. 3.1 Overview ============ 3.2 Usage ========= -- Function: gnome-user-dir-get => (ret `mchars') Retrieves the user-specific directory for GNOME apps to use ($HOME/.gnome2 is the usual GNOME 2 value). RET An absolute path to the directory. -- Function: gnome-user-private-dir-get => (ret `mchars') Differs from `gnome-user-dir-get' in that the directory returned here will have had permissions of 0700 (rwx-----) enforced when it was created. Of course, the permissions may have been altered since creation, so care still needs to be taken. RET An absolute path to the user-specific private directory that GNOME apps can use. -- Function: gnome-user-accels-dir-get => (ret `mchars') Retrieves the user-specific directory that stores the keyboard shortcut files for each GNOME app. Note that most applications should be using GConf for storing this information, but it may be necessary to use the `gnome-user-accels-dir-get' directory for legacy applications. RET The absolute path to the directory.  File: guile-gnome-libgnome.info, Node: gnome-program, Next: gnome-sound, Prev: gnome-init, Up: Top 4 gnome-program *************** Initialize and retrieve information about a GNOME application. 4.1 Overview ============ 4.2 Usage ========= -- Class: Derives from `'. This class defines the following slots: `app-id' ID string to use for this application `app-version' Version of this application `human-readable-name' Human readable name of this application `gnome-path' Path in which to look for installed files `gnome-prefix' Prefix where GNOME was installed `gnome-libdir' Library prefix where GNOME was installed `gnome-datadir' Data prefix where GNOME was installed `gnome-sysconfdir' Configuration prefix where GNOME was installed `app-prefix' Prefix where this application was installed `app-libdir' Library prefix where this application was installed `app-datadir' Data prefix where this application was installed `app-sysconfdir' Configuration prefix where this application was installed `create-directories' Create standard GNOME directories on startup `enable-sound' Enable sound on startup `espeaker' How to connect to esd `popt-table' The table of options for popt `popt-flags' The flags to use for popt `popt-context' The popt context pointer that GnomeProgram is using `goption-context' The goption context pointer that GnomeProgram is using -- Function: gnome-program-get => (ret `') Retrieves an object that stored information about the application's state. Other functions assume this will always return a `' object which (if not ``#f'') has already been initialized. RET The application's `' instance, or ``#f'' if it does not exist. -- Function: gnome-program-get-app-id (self `') => (ret `mchars') -- Method: get-app-id This function returns a pointer to a static string that the application has provided as an identifier. This is not meant as a human-readable identifier so much as a unique identifier for programs and libraries. PROGRAM The program object RET Application ID string. -- Function: gnome-program-get-app-version (self `') => (ret `mchars') -- Method: get-app-version This function returns a pointer to a static string that the application has provided as a version number. This is not meant as a human-readable identifier so much as a unique identifier for programs and libraries. PROGRAM The application object RET Application version string.  File: guile-gnome-libgnome.info, Node: gnome-sound, Next: gnome-url, Prev: gnome-program, Up: Top 5 gnome-sound ************* Sound playing routines. 5.1 Overview ============ This module provides wrapper functions for playing sound samples. Currently it just wraps the esound daemon, but the API is flexible enough that other sound infrastructures can be included in the future. These functions also allow for the fact that no sound may be supported on the current platform. So applications can safely call these functions to play sounds and they will just quietly return if no action is possible. 5.2 Usage ========= -- Function: gnome-sound-init (hostname `mchars') Initialize the esd connection. HOSTNAME Hostname where esd daemon resides. -- Function: gnome-sound-shutdown Shuts down the gnome sound support. -- Function: gnome-sound-play (filename `mchars') Plays the audio stored in FILENAME, if possible. Fail quietly if playing is not possible (due to missing sound support or for other reasons). FILENAME File containing the sound sample. -- Function: gnome-sound-sample-load (sample_name `mchars') (filename `mchars') => (ret `int') Loads the audio from FILENAME and load it into the esd cache for later playing. Programs will rarely want to call this function directly. Use `gnome-sound-play' instead for fire and forget sound playing. SAMPLE-NAME The name of the sample. FILENAME The filename where the audio is stored. RET The esound sample_id or `-1' if the sample was unable to be cached for esound.  File: guile-gnome-libgnome.info, Node: gnome-url, Next: Undocumented, Prev: gnome-sound, Up: Top 6 gnome-url *********** Display urls using appropriate viewers. 6.1 Overview ============ A GNOME user can configure which viewers they wish to use to view certain protocols. Protocols can include http, ftp (where "view" might mean "download"), ghelp, etc. This module provides a means for application to display a url without having to worry about which viewer is going to ultimately handle the job. 6.2 Usage ========= -- Function: gnome-url-show (url `mchars') => (ret `bool') Once the input has been converted into a fully qualified url this function calls gnome_vfs_url_show. Any error codes returned by gnome-vfs will be wrapped in the error parameter. All errors comes from the `GNOME_URL_ERROR'% domain. URL The url or path to display. The path can be relative to the current working directory or the user's home directory. This function will convert it into a fully qualified url using the gnome_url_get_from_input function. ERROR Used to store any errors that result from trying to display the URL. RET ``#t'' if everything went fine, ``#f'' otherwise (in which case ERROR will contain the actual error).  File: guile-gnome-libgnome.info, Node: Undocumented, Next: Type Index, Prev: gnome-url, Up: Top 7 Undocumented ************** The following symbols, if any, have not been properly documented. 7.1 (gnome gnome) ================= -- Function: gnome-program-init name version . properties 7.2 (gnome gw libgnome) ======================= -- Variable: %gnome-program-init -- Variable: gnome-gconf-get-app-settings-relative -- Variable: gnome-gconf-get-gnome-libs-settings-relative -- Variable: gnome-program-get-human-readable-name  File: guile-gnome-libgnome.info, Node: Type Index, Next: Function Index, Prev: Undocumented, Up: Top Type Index ********** [index] * Menu: * : gnome-program. (line 15)  File: guile-gnome-libgnome.info, Node: Function Index, Prev: Type Index, Up: Top Function Index ************** [index] * Menu: * get-app-id: gnome-program. (line 93) * get-app-version: gnome-program. (line 109) * gnome-help-display: gnome-help. (line 20) * gnome-help-display-desktop: gnome-help. (line 86) * gnome-help-display-uri: gnome-help. (line 123) * gnome-help-display-with-doc-id: gnome-help. (line 43) * gnome-program-get: gnome-program. (line 79) * gnome-program-get-app-id: gnome-program. (line 92) * gnome-program-get-app-version: gnome-program. (line 108) * gnome-program-init: Undocumented. (line 12) * gnome-sound-init: gnome-sound. (line 24) * gnome-sound-play: gnome-sound. (line 36) * gnome-sound-sample-load: gnome-sound. (line 47) * gnome-sound-shutdown: gnome-sound. (line 32) * gnome-url-show: gnome-url. (line 21) * gnome-user-accels-dir-get: gnome-init. (line 37) * gnome-user-dir-get: gnome-init. (line 16) * gnome-user-private-dir-get: gnome-init. (line 25)  Tag Table: Node: Top634 Node: Overview1642 Node: gnome-help2314 Node: gnome-init7066 Node: gnome-program8403 Node: gnome-sound11377 Node: gnome-url13065 Node: Undocumented14409 Node: Type Index14957 Node: Function Index15183  End Tag Table guile-gnome-platform-2.16.2/libgnome/doc/defuns-gnome-init.xml.texi0000644000175000017500000000230511670374303025553 0ustar00wingowingo00000000000000 @c %start of fragment @deffn Function gnome-user-dir-get @result{}@tie{} (ret@tie{}@code{mchars}) Retrieves the user-specific directory for GNOME apps to use ($HOME/.gnome2 is the usual GNOME 2 value). @table @var @item ret An absolute path to the directory. @end table @end deffn @deffn Function gnome-user-private-dir-get @result{}@tie{} (ret@tie{}@code{mchars}) Differs from @code{gnome-user-dir-get} in that the directory returned here will have had permissions of 0700 (rwx------) enforced when it was created. Of course, the permissions may have been altered since creation, so care still needs to be taken. @table @var @item ret An absolute path to the user-specific private directory that GNOME apps can use. @end table @end deffn @deffn Function gnome-user-accels-dir-get @result{}@tie{} (ret@tie{}@code{mchars}) Retrieves the user-specific directory that stores the keyboard shortcut files for each GNOME app. Note that most applications should be using GConf for storing this information, but it may be necessary to use the @code{gnome-user-accels-dir-get} directory for legacy applications. @table @var @item ret The absolute path to the directory. @end table @end deffn @c %end of fragment guile-gnome-platform-2.16.2/libgnome/doc/defuns-gnome-url.xml.texi0000644000175000017500000000154711670374303025421 0ustar00wingowingo00000000000000 @c %start of fragment @deffn Function gnome-url-show (url@tie{}@code{mchars}) @result{}@tie{} (ret@tie{}@code{bool}) Once the input has been converted into a fully qualified url this function calls gnome_vfs_url_show. Any error codes returned by gnome-vfs will be wrapped in the error parameter. All errors comes from the @samp{GNOME_URL_ERROR}% domain. @table @var @item url The url or path to display. The path can be relative to the current working directory or the user's home directory. This function will convert it into a fully qualified url using the gnome_url_get_from_input function. @item error Used to store any errors that result from trying to display the @var{url}. @item ret @samp{@code{#t}} if everything went fine, @samp{@code{#f}} otherwise (in which case @var{error} will contain the actual error). @end table @end deffn @c %end of fragment guile-gnome-platform-2.16.2/libgnome/doc/guile-gnome-libgnome.texi0000644000175000017500000000374311670374303025435 0ustar00wingowingo00000000000000\input texinfo @c -*-texinfo-*- @c %**start of header @setfilename guile-gnome-libgnome.info @settitle Guile-Libgnome @c %**end of header @include version.texi @copying This manual is for @code{(gnome libgnome)} (version @value{VERSION}, updated @value{UPDATED}) Copyright 2001-2007 Kjartan Maraas, Malcolm Tredinnick, and others @c libgnome is LGPL, ergo GPL distribution is possible @quotation Permission is granted to copy, distribute and/or modify this document under the terms of the GNU General Public License, Version 2 or any later version published by the Free Software Foundation. @end quotation @end copying @dircategory The Algorithmic Language Scheme @direntry * Guile-Libgnome: (guile-gnome-libgnome.info). A GNOME catchall library. @end direntry @titlepage @title Guile-GNOME: Libgnome @subtitle version @value{VERSION}, updated @value{UPDATED} @author Kjartan Maraas @author Malcolm Tredinnick @author many others @page @vskip 0pt plus 1filll @insertcopying @end titlepage @ifnottex @node Top @top Guile-Libgnome @insertcopying @menu * Overview:: About libgnome and its Guile bindings. * gnome-help:: Display application and GNOME system help. * gnome-init:: Functions used during initialisation of libgnome and other platform libraries. * gnome-program:: Initialize and retrieve information about a GNOME application. * gnome-sound:: Sound playing routines. * gnome-url:: Display urls using appropriate viewers. * Undocumented:: Undocumented functions. * Type Index:: * Function Index:: @end menu @end ifnottex @iftex @shortcontents @end iftex @include overview.texi @include section-gnome-help.xml.texi @include section-gnome-init.xml.texi @include section-gnome-program.xml.texi @include section-gnome-sound.xml.texi @include section-gnome-url.xml.texi @include undocumented.texi @node Type Index @unnumbered Type Index @printindex tp @node Function Index @unnumbered Function Index @printindex fn @bye guile-gnome-platform-2.16.2/libgnome/doc/section-gnome-init.xml.texi0000644000175000017500000000034711670374303025737 0ustar00wingowingo00000000000000 @c %start of fragment @node gnome-init @chapter gnome-init Functions used during initialisation of libgnome and other platform libraries. @section Overview @section Usage @include defuns-gnome-init.xml.texi @c %end of fragment guile-gnome-platform-2.16.2/libgnome/doc/section-gnome-url.xml.texi0000644000175000017500000000076511670374303025602 0ustar00wingowingo00000000000000 @c %start of fragment @node gnome-url @chapter gnome-url Display urls using appropriate viewers. @section Overview A GNOME user can configure which viewers they wish to use to view certain protocols. Protocols can include http, ftp (where "view" might mean "download"), ghelp, etc. This module provides a means for application to display a url without having to worry about which viewer is going to ultimately handle the job. @section Usage @include defuns-gnome-url.xml.texi @c %end of fragment guile-gnome-platform-2.16.2/libgnome/doc/defuns-gnome-help.xml.texi0000644000175000017500000001102311670374303025535 0ustar00wingowingo00000000000000 @c %start of fragment @deffn Function gnome-help-display (file_name@tie{}@code{mchars}) (link_id@tie{}@code{mchars}) @result{}@tie{} (ret@tie{}@code{bool}) Displays the help file specified by @var{file-name} at location @var{link-id} in the preferred help browser of the user. @table @var @item file-name The name of the help document to display. @item link-id Can be @samp{@code{#f}}. If set, refers to an anchor or section id within the requested document. @item error A @code{} instance that will hold the specifics of any error which occurs during processing, or @samp{@code{#f}} @item ret @samp{@code{#t}} on success, @samp{@code{#f}} otherwise (in which case @var{error} will contain the actual error). @end table @end deffn @deffn Function gnome-help-display-with-doc-id (program@tie{}@code{}) (doc_id@tie{}@code{mchars}) (file_name@tie{}@code{mchars}) (link_id@tie{}@code{mchars}) @result{}@tie{} (ret@tie{}@code{bool}) Displays the help file specified by @var{file-name} at location @var{link-id} within the @var{doc-id} domain in the preferred help browser of the user. Most of the time, you want to call @code{gnome-help-display} instead. This function will display the help through creating a "ghelp" URI, by looking for @var{file-name} in the applications installed help location (found by @code{}) and its app_id. The resulting URI is roughly in the form "ghelp:appid/file_name?link_id". If a matching file cannot be found, @samp{@code{#f}} is returned and @var{error} is set. Please note that this only displays application help. To display help files from the global GNOME domain, you will want to use @code{gnome-help-display-desktop}. @table @var @item program The current application object, or @samp{@code{#f}} for the default one. @item doc-id The document identifier, or @samp{@code{#f}} to default to the application ID (app_id) of the specified @var{program}. @item file-name The name of the help document to display. @item link-id Can be @samp{@code{#f}}. If set, refers to an anchor or section id within the requested document. @item error A @code{} instance that will hold the specifics of any error which occurs during processing, or @samp{@code{#f}} @item ret @samp{@code{#t}} on success, @samp{@code{#f}} otherwise (in which case @var{error} will contain the actual error). @end table @end deffn @deffn Function gnome-help-display-desktop (program@tie{}@code{}) (doc_id@tie{}@code{mchars}) (file_name@tie{}@code{mchars}) (link_id@tie{}@code{mchars}) @result{}@tie{} (ret@tie{}@code{bool}) Displays the GNOME system help file specified by @var{file-name} at location @var{link-id} in the preferred help browser of the user. This is done by creating a "ghelp" URI, by looking for @var{file-name} in the system help domain (@code{}) and it's app_id. This domain is determined when the library is compiled. If a matching file cannot be found, @samp{@code{#f}} is returned and @var{error} is set. Please note that this only displays system help. To display help files for an application, you will want to use @code{gnome-help-display}. @table @var @item program The current application object, or @samp{@code{#f}} for the default one. @item doc-id The name of the help file relative to the system's help domain (@code{}). @item file-name The name of the help document to display. @item link-id Can be @samp{@code{#f}}. If set, refers to an anchor or section id within the requested document. @item error A @code{} instance that will hold the specifics of any error which occurs during processing, or @samp{@code{#f}} @item ret @samp{@code{#t}} on success, @samp{@code{#f}} otherwise (in which case @var{error} will contain the actual error). @end table @end deffn @deffn Function gnome-help-display-uri (help_uri@tie{}@code{mchars}) @result{}@tie{} (ret@tie{}@code{bool}) Displays @var{help-uri} in the user's preferred viewer. You should never need to call this function directly in code, since it is just a wrapper for @code{gnome-url-show} and consequently the viewer used to display the results depends upon the scheme of the URI (so it is not strictly a help-only function). @table @var @item help-uri The URI to display. @item error A @code{} instance that will hold the specifics of any error which occurs during processing, or @samp{@code{#f}} @item ret @samp{@code{#t}} on success, @samp{@code{#f}} otherwise (in which case @var{error} will contain the actual error). @end table @end deffn @c %end of fragment guile-gnome-platform-2.16.2/libgnome/doc/overrides.texi0000644000175000017500000000000011670374303023414 0ustar00wingowingo00000000000000guile-gnome-platform-2.16.2/libgnome/doc/defuns-gnome-sound.xml.texi0000644000175000017500000000226211670374303025742 0ustar00wingowingo00000000000000 @c %start of fragment @deffn Function gnome-sound-init (hostname@tie{}@code{mchars}) Initialize the esd connection. @table @var @item hostname Hostname where esd daemon resides. @end table @end deffn @deffn Function gnome-sound-shutdown Shuts down the gnome sound support. @end deffn @deffn Function gnome-sound-play (filename@tie{}@code{mchars}) Plays the audio stored in @var{filename}, if possible. Fail quietly if playing is not possible (due to missing sound support or for other reasons). @table @var @item filename File containing the sound sample. @end table @end deffn @deffn Function gnome-sound-sample-load (sample_name@tie{}@code{mchars}) (filename@tie{}@code{mchars}) @result{}@tie{} (ret@tie{}@code{int}) Loads the audio from @var{filename} and load it into the esd cache for later playing. Programs will rarely want to call this function directly. Use @code{gnome-sound-play} instead for fire and forget sound playing. @table @var @item sample-name The name of the sample. @item filename The filename where the audio is stored. @item ret The esound sample_id or @samp{-1} if the sample was unable to be cached for esound. @end table @end deffn @c %end of fragment guile-gnome-platform-2.16.2/libgnome/doc/section-gnome-program.xml.texi0000644000175000017500000000034011670374303026434 0ustar00wingowingo00000000000000 @c %start of fragment @node gnome-program @chapter gnome-program Initialize and retrieve information about a GNOME application. @section Overview @section Usage @include defuns-gnome-program.xml.texi @c %end of fragment guile-gnome-platform-2.16.2/libgnome/doc/version.texi0000644000175000017500000000014611752511104023103 0ustar00wingowingo00000000000000@set UPDATED 9 December 2011 @set UPDATED-MONTH December 2011 @set EDITION 2.16.2 @set VERSION 2.16.2 guile-gnome-platform-2.16.2/libgnome/doc/Makefile.am0000644000175000017500000000145611670374303022573 0ustar00wingowingo00000000000000################################################################################ ## guile-gnome-libgnome.info include $(top_srcdir)/generate-docs.mk docbook_xml_wildcard = ~/src/gnome2/libgnome/doc/reference/xml/*.xml docbook_xml_ignore_files = \ %gnome-config.xml \ %gnome-exec.xml \ %gnome-gconf.xml \ %gnome-i18n.xml \ %gnome-score.xml \ %gnome-triggers.xml \ %gnome-util.xml \ %libgnometypebuiltins.xml \ %libgnome.xml docbook_xml_files = $(filter-out $(docbook_xml_ignore_files), $(wildcard $(docbook_xml_wildcard))) wrapset_stem = libgnome GTK_DOC_COVERAGE_MODULES = (gnome gnome) (gnome gw $(wrapset_stem)) EXTRA_DIST = overrides.texi info_TEXINFOS=guile-gnome-libgnome.texi guile_gnome_libgnome_TEXINFOS=overview.texi \ $(wildcard section-*.texi) $(wildcard defuns-*.texi) undocumented.texi guile-gnome-platform-2.16.2/libgnome/doc/Makefile.in0000644000175000017500000006576211752511070022611 0ustar00wingowingo00000000000000# Makefile.in generated by automake 1.11.5 from Makefile.am. # @configure_input@ # Copyright (C) 1994, 1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, # 2003, 2004, 2005, 2006, 2007, 2008, 2009, 2010, 2011 Free Software # Foundation, Inc. # This Makefile.in is free software; the Free Software Foundation # gives unlimited permission to copy and/or distribute it, # with or without modifications, as long as this notice is preserved. # This program is distributed in the hope that it will be useful, # but WITHOUT ANY WARRANTY, to the extent permitted by law; without # even the implied warranty of MERCHANTABILITY or FITNESS FOR A # PARTICULAR PURPOSE. @SET_MAKE@ ################################################################################ # guile-gnome # Copyright (C) 2007, 2011 Free Software Foundation, Inc. # This program is free software; you can redistribute it and/or # modify it under the terms of the GNU General Public License as # published by the Free Software Foundation; either version 2 of # the License, or (at your option) any later version. # This program is distributed in the hope that it will be useful, # but WITHOUT ANY WARRANTY; without even the implied warranty of # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the # GNU General Public License for more details. # You should have received a copy of the GNU General Public License # along with this program; if not, contact: # Free Software Foundation Voice: +1-617-542-5942 # 59 Temple Place - Suite 330 Fax: +1-617-542-2652 # Boston, MA 02111-1307, USA gnu@gnu.org # # Makefile snippet # VPATH = @srcdir@ am__make_dryrun = \ { \ am__dry=no; \ case $$MAKEFLAGS in \ *\\[\ \ ]*) \ echo 'am--echo: ; @echo "AM" OK' | $(MAKE) -f - 2>/dev/null \ | grep '^AM OK$$' >/dev/null || am__dry=yes;; \ *) \ for am__flg in $$MAKEFLAGS; do \ case $$am__flg in \ *=*|--*) ;; \ *n*) am__dry=yes; break;; \ esac; \ done;; \ esac; \ test $$am__dry = yes; \ } pkgdatadir = $(datadir)/@PACKAGE@ pkgincludedir = $(includedir)/@PACKAGE@ pkglibdir = $(libdir)/@PACKAGE@ pkglibexecdir = $(libexecdir)/@PACKAGE@ am__cd = CDPATH="$${ZSH_VERSION+.}$(PATH_SEPARATOR)" && cd install_sh_DATA = $(install_sh) -c -m 644 install_sh_PROGRAM = $(install_sh) -c install_sh_SCRIPT = $(install_sh) -c INSTALL_HEADER = $(INSTALL_DATA) transform = $(program_transform_name) NORMAL_INSTALL = : PRE_INSTALL = : POST_INSTALL = : NORMAL_UNINSTALL = : PRE_UNINSTALL = : POST_UNINSTALL = : build_triplet = @build@ host_triplet = @host@ DIST_COMMON = $(guile_gnome_libgnome_TEXINFOS) $(srcdir)/Makefile.am \ $(srcdir)/Makefile.in $(srcdir)/stamp-vti \ $(srcdir)/version.texi $(top_srcdir)/generate-docs.mk subdir = libgnome/doc ACLOCAL_M4 = $(top_srcdir)/aclocal.m4 am__aclocal_m4_deps = $(top_srcdir)/configure.ac am__configure_deps = $(am__aclocal_m4_deps) $(CONFIGURE_DEPENDENCIES) \ $(ACLOCAL_M4) mkinstalldirs = $(install_sh) -d CONFIG_HEADER = $(top_builddir)/config.h CONFIG_CLEAN_FILES = CONFIG_CLEAN_VPATH_FILES = SOURCES = DIST_SOURCES = INFO_DEPS = $(srcdir)/guile-gnome-libgnome.info TEXINFO_TEX = $(top_srcdir)/build-aux/texinfo.tex am__TEXINFO_TEX_DIR = $(top_srcdir)/build-aux DVIS = guile-gnome-libgnome.dvi PDFS = guile-gnome-libgnome.pdf PSS = guile-gnome-libgnome.ps HTMLS = guile-gnome-libgnome.html TEXINFOS = guile-gnome-libgnome.texi TEXI2DVI = texi2dvi TEXI2PDF = $(TEXI2DVI) --pdf --batch MAKEINFOHTML = $(MAKEINFO) --html AM_MAKEINFOHTMLFLAGS = $(AM_MAKEINFOFLAGS) DVIPS = dvips am__can_run_installinfo = \ case $$AM_UPDATE_INFO_DIR in \ n|no|NO) false;; \ *) (install-info --version) >/dev/null 2>&1;; \ esac am__installdirs = "$(DESTDIR)$(infodir)" am__vpath_adj_setup = srcdirstrip=`echo "$(srcdir)" | sed 's|.|.|g'`; am__vpath_adj = case $$p in \ $(srcdir)/*) f=`echo "$$p" | sed "s|^$$srcdirstrip/||"`;; \ *) f=$$p;; \ esac; am__strip_dir = f=`echo $$p | sed -e 's|^.*/||'`; am__install_max = 40 am__nobase_strip_setup = \ srcdirstrip=`echo "$(srcdir)" | sed 's/[].[^$$\\*|]/\\\\&/g'` am__nobase_strip = \ for p in $$list; do echo "$$p"; done | sed -e "s|$$srcdirstrip/||" am__nobase_list = $(am__nobase_strip_setup); \ for p in $$list; do echo "$$p $$p"; done | \ sed "s| $$srcdirstrip/| |;"' / .*\//!s/ .*/ ./; s,\( .*\)/[^/]*$$,\1,' | \ $(AWK) 'BEGIN { files["."] = "" } { files[$$2] = files[$$2] " " $$1; \ if (++n[$$2] == $(am__install_max)) \ { print $$2, files[$$2]; n[$$2] = 0; files[$$2] = "" } } \ END { for (dir in files) print dir, files[dir] }' am__base_list = \ sed '$$!N;$$!N;$$!N;$$!N;$$!N;$$!N;$$!N;s/\n/ /g' | \ sed '$$!N;$$!N;$$!N;$$!N;s/\n/ /g' am__uninstall_files_from_dir = { \ test -z "$$files" \ || { test ! -d "$$dir" && test ! -f "$$dir" && test ! -r "$$dir"; } \ || { echo " ( cd '$$dir' && rm -f" $$files ")"; \ $(am__cd) "$$dir" && rm -f $$files; }; \ } DISTFILES = $(DIST_COMMON) $(DIST_SOURCES) $(TEXINFOS) $(EXTRA_DIST) ACLOCAL = @ACLOCAL@ AG_PKG_CONFIG_PATH = @AG_PKG_CONFIG_PATH@ AMTAR = @AMTAR@ API_VERSION = @API_VERSION@ AR = @AR@ ATK_CFLAGS = @ATK_CFLAGS@ ATK_LIBS = @ATK_LIBS@ AUTOCONF = @AUTOCONF@ AUTOHEADER = @AUTOHEADER@ AUTOMAKE = @AUTOMAKE@ AWK = @AWK@ BONOBO_IDL_DIR = @BONOBO_IDL_DIR@ CANVAS_CFLAGS = @CANVAS_CFLAGS@ CANVAS_LIBS = @CANVAS_LIBS@ CC = @CC@ CCDEPMODE = @CCDEPMODE@ CFLAGS = @CFLAGS@ CORBA_CFLAGS = @CORBA_CFLAGS@ CORBA_LIBS = @CORBA_LIBS@ CPP = @CPP@ CPPFLAGS = @CPPFLAGS@ CYGPATH_W = @CYGPATH_W@ DEFS = @DEFS@ DEPDIR = @DEPDIR@ DLLTOOL = @DLLTOOL@ DSYMUTIL = @DSYMUTIL@ DUMPBIN = @DUMPBIN@ ECHO_C = @ECHO_C@ ECHO_N = @ECHO_N@ ECHO_T = @ECHO_T@ EGREP = @EGREP@ EXEEXT = @EXEEXT@ FGREP = @FGREP@ GCONF_CFLAGS = @GCONF_CFLAGS@ GCONF_LIBS = @GCONF_LIBS@ GDK_CFLAGS = @GDK_CFLAGS@ GDK_LIBS = @GDK_LIBS@ GDK_PIXBUF_CFLAGS = @GDK_PIXBUF_CFLAGS@ GDK_PIXBUF_LIBS = @GDK_PIXBUF_LIBS@ GLIB_CFLAGS = @GLIB_CFLAGS@ GLIB_LIBS = @GLIB_LIBS@ GNOMEUI_DEPRECATION_FLAGS = @GNOMEUI_DEPRECATION_FLAGS@ GNOME_VFS_CFLAGS = @GNOME_VFS_CFLAGS@ GNOME_VFS_DEPRECATED_CFLAGS = @GNOME_VFS_DEPRECATED_CFLAGS@ GNOME_VFS_LIBS = @GNOME_VFS_LIBS@ GOBJECT_CFLAGS = @GOBJECT_CFLAGS@ GOBJECT_LIBS = @GOBJECT_LIBS@ GREP = @GREP@ GTHREAD_CFLAGS = @GTHREAD_CFLAGS@ GTHREAD_LIBS = @GTHREAD_LIBS@ GTK_CFLAGS = @GTK_CFLAGS@ GTK_DEPRECATED_CFLAGS = @GTK_DEPRECATED_CFLAGS@ GTK_LIBS = @GTK_LIBS@ GUILE_CAIRO_CFLAGS = @GUILE_CAIRO_CFLAGS@ GUILE_CAIRO_LIBS = @GUILE_CAIRO_LIBS@ GUILE_CFLAGS = @GUILE_CFLAGS@ GUILE_EFFECTIVE_VERSION = @GUILE_EFFECTIVE_VERSION@ GUILE_GLIB_CFLAGS = @GUILE_GLIB_CFLAGS@ GUILE_GLIB_LIBS = @GUILE_GLIB_LIBS@ GUILE_LIBS = @GUILE_LIBS@ G_WRAP_CFLAGS = @G_WRAP_CFLAGS@ G_WRAP_LIBS = @G_WRAP_LIBS@ G_WRAP_LIB_DIR = @G_WRAP_LIB_DIR@ G_WRAP_MODULE_DIR = @G_WRAP_MODULE_DIR@ INSTALL = @INSTALL@ INSTALL_DATA = @INSTALL_DATA@ INSTALL_PROGRAM = @INSTALL_PROGRAM@ INSTALL_SCRIPT = @INSTALL_SCRIPT@ INSTALL_STRIP_PROGRAM = @INSTALL_STRIP_PROGRAM@ LD = @LD@ LDFLAGS = @LDFLAGS@ LIBGLADE_CFLAGS = @LIBGLADE_CFLAGS@ LIBGLADE_LIBS = @LIBGLADE_LIBS@ LIBGNOMEUI_CFLAGS = @LIBGNOMEUI_CFLAGS@ LIBGNOMEUI_LIBS = @LIBGNOMEUI_LIBS@ LIBGNOME_CFLAGS = @LIBGNOME_CFLAGS@ LIBGNOME_LIBS = @LIBGNOME_LIBS@ LIBOBJS = @LIBOBJS@ LIBS = @LIBS@ LIBTOOL = @LIBTOOL@ LIPO = @LIPO@ LN_S = @LN_S@ LTLIBOBJS = @LTLIBOBJS@ MAKEINFO = @MAKEINFO@ MANIFEST_TOOL = @MANIFEST_TOOL@ MKDIR_P = @MKDIR_P@ NM = @NM@ NMEDIT = @NMEDIT@ OBJDUMP = @OBJDUMP@ OBJEXT = @OBJEXT@ ORBIT_IDL = @ORBIT_IDL@ OTOOL = @OTOOL@ OTOOL64 = @OTOOL64@ PACKAGE = @PACKAGE@ PACKAGE_BUGREPORT = @PACKAGE_BUGREPORT@ PACKAGE_NAME = @PACKAGE_NAME@ PACKAGE_STRING = @PACKAGE_STRING@ PACKAGE_TARNAME = @PACKAGE_TARNAME@ PACKAGE_URL = @PACKAGE_URL@ PACKAGE_VERSION = @PACKAGE_VERSION@ PANGOCAIRO_CFLAGS = @PANGOCAIRO_CFLAGS@ PANGOCAIRO_LIBS = @PANGOCAIRO_LIBS@ PANGO_CFLAGS = @PANGO_CFLAGS@ PANGO_LIBS = @PANGO_LIBS@ PATH_SEPARATOR = @PATH_SEPARATOR@ PKG_CONFIG = @PKG_CONFIG@ PKG_CONFIG_LIBDIR = @PKG_CONFIG_LIBDIR@ PKG_CONFIG_PATH = @PKG_CONFIG_PATH@ RANLIB = @RANLIB@ SED = @SED@ SET_MAKE = @SET_MAKE@ SHELL = @SHELL@ STRIP = @STRIP@ VERSION = @VERSION@ WARN_CFLAGS = @WARN_CFLAGS@ abs_builddir = @abs_builddir@ abs_srcdir = @abs_srcdir@ abs_top_builddir = @abs_top_builddir@ abs_top_srcdir = @abs_top_srcdir@ ac_ct_AR = @ac_ct_AR@ ac_ct_CC = @ac_ct_CC@ ac_ct_DUMPBIN = @ac_ct_DUMPBIN@ am__include = @am__include@ am__leading_dot = @am__leading_dot@ am__quote = @am__quote@ am__tar = @am__tar@ am__untar = @am__untar@ bindir = @bindir@ build = @build@ build_alias = @build_alias@ build_cpu = @build_cpu@ build_os = @build_os@ build_vendor = @build_vendor@ builddir = @builddir@ datadir = @datadir@ datarootdir = @datarootdir@ docdir = @docdir@ dvidir = @dvidir@ exec_prefix = @exec_prefix@ host = @host@ host_alias = @host_alias@ host_cpu = @host_cpu@ host_os = @host_os@ host_vendor = @host_vendor@ htmldir = @htmldir@ includedir = @includedir@ infodir = @infodir@ install_sh = @install_sh@ libdir = @libdir@ libexecdir = @libexecdir@ localedir = @localedir@ localstatedir = @localstatedir@ mandir = @mandir@ mkdir_p = @mkdir_p@ oldincludedir = @oldincludedir@ pdfdir = @pdfdir@ prefix = @prefix@ program_transform_name = @program_transform_name@ psdir = @psdir@ sbindir = @sbindir@ sharedstatedir = @sharedstatedir@ srcdir = @srcdir@ sysconfdir = @sysconfdir@ target_alias = @target_alias@ top_build_prefix = @top_build_prefix@ top_builddir = @top_builddir@ top_srcdir = @top_srcdir@ wrapset_module = (gnome gw $(wrapset_stem)-spec) wrapset_name = gnome-$(wrapset_stem) GTK_DOC_TO_TEXI_STUBS = '((@ (gnome gw support gtk-doc) gtk-doc->texi-stubs) (cdr (program-arguments)))' GTK_DOC_DEFUN_HEURISTICS_METHOD = heuristics GTK_DOC_DEFUN_HEURISTICS_ARGS = (your-module-here) GTK_DOC_DEFUN_GWRAP_METHOD = g-wrap GTK_DOC_DEFUN_GWRAP_ARGS = $(wrapset_module) $(wrapset_name) GTK_DOC_DEFUN_METHOD = $(GTK_DOC_DEFUN_GWRAP_METHOD) GTK_DOC_DEFUN_ARGS = $(GTK_DOC_DEFUN_GWRAP_ARGS) GTK_DOC_TO_TEXI_DEFUNS = "(apply (@ (gnome gw support gtk-doc) gtk-doc->texi-defuns) (cadr (program-arguments)) '$(GTK_DOC_DEFUN_METHOD) '($(GTK_DOC_DEFUN_ARGS)) (cddr (program-arguments)))" GTK_DOC_COVERAGE_MODULES = (gnome gnome) (gnome gw $(wrapset_stem)) GTK_DOC_COVERAGE_TEXI = $(info_TEXINFOS) GTK_DOC_CHECK_COVERAGE = "((@ (gnome gw support gtk-doc) check-documentation-coverage) '($(GTK_DOC_COVERAGE_MODULES)) \"$(GTK_DOC_COVERAGE_TEXI)\")" GTK_DOC_GENERATE_UNDOCUMENTED = "((@ (gnome gw support gtk-doc) generate-undocumented-texi) '($(GTK_DOC_COVERAGE_MODULES)) \"$(GTK_DOC_COVERAGE_TEXI)\")" GUILE = $(top_builddir)/dev-environ guile docbook_xml_wildcard = ~/src/gnome2/libgnome/doc/reference/xml/*.xml docbook_xml_ignore_files = \ %gnome-config.xml \ %gnome-exec.xml \ %gnome-gconf.xml \ %gnome-i18n.xml \ %gnome-score.xml \ %gnome-triggers.xml \ %gnome-util.xml \ %libgnometypebuiltins.xml \ %libgnome.xml docbook_xml_files = $(filter-out $(docbook_xml_ignore_files), $(wildcard $(docbook_xml_wildcard))) wrapset_stem = libgnome EXTRA_DIST = overrides.texi info_TEXINFOS = guile-gnome-libgnome.texi guile_gnome_libgnome_TEXINFOS = overview.texi \ $(wildcard section-*.texi) $(wildcard defuns-*.texi) undocumented.texi all: all-am .SUFFIXES: .SUFFIXES: .dvi .html .info .pdf .ps .texi $(srcdir)/Makefile.in: $(srcdir)/Makefile.am $(top_srcdir)/generate-docs.mk $(am__configure_deps) @for dep in $?; do \ case '$(am__configure_deps)' in \ *$$dep*) \ ( cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh ) \ && { if test -f $@; then exit 0; else break; fi; }; \ exit 1;; \ esac; \ done; \ echo ' cd $(top_srcdir) && $(AUTOMAKE) --gnu libgnome/doc/Makefile'; \ $(am__cd) $(top_srcdir) && \ $(AUTOMAKE) --gnu libgnome/doc/Makefile .PRECIOUS: Makefile Makefile: $(srcdir)/Makefile.in $(top_builddir)/config.status @case '$?' in \ *config.status*) \ cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh;; \ *) \ echo ' cd $(top_builddir) && $(SHELL) ./config.status $(subdir)/$@ $(am__depfiles_maybe)'; \ cd $(top_builddir) && $(SHELL) ./config.status $(subdir)/$@ $(am__depfiles_maybe);; \ esac; $(top_srcdir)/generate-docs.mk: $(top_builddir)/config.status: $(top_srcdir)/configure $(CONFIG_STATUS_DEPENDENCIES) cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh $(top_srcdir)/configure: $(am__configure_deps) cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh $(ACLOCAL_M4): $(am__aclocal_m4_deps) cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh $(am__aclocal_m4_deps): mostlyclean-libtool: -rm -f *.lo clean-libtool: -rm -rf .libs _libs .texi.info: restore=: && backupdir="$(am__leading_dot)am$$$$" && \ am__cwd=`pwd` && $(am__cd) $(srcdir) && \ rm -rf $$backupdir && mkdir $$backupdir && \ if ($(MAKEINFO) --version) >/dev/null 2>&1; then \ for f in $@ $@-[0-9] $@-[0-9][0-9] $(@:.info=).i[0-9] $(@:.info=).i[0-9][0-9]; do \ if test -f $$f; then mv $$f $$backupdir; restore=mv; else :; fi; \ done; \ else :; fi && \ cd "$$am__cwd"; \ if $(MAKEINFO) $(AM_MAKEINFOFLAGS) $(MAKEINFOFLAGS) -I $(srcdir) \ -o $@ $<; \ then \ rc=0; \ $(am__cd) $(srcdir); \ else \ rc=$$?; \ $(am__cd) $(srcdir) && \ $$restore $$backupdir/* `echo "./$@" | sed 's|[^/]*$$||'`; \ fi; \ rm -rf $$backupdir; exit $$rc .texi.dvi: TEXINPUTS="$(am__TEXINFO_TEX_DIR)$(PATH_SEPARATOR)$$TEXINPUTS" \ MAKEINFO='$(MAKEINFO) $(AM_MAKEINFOFLAGS) $(MAKEINFOFLAGS) -I $(srcdir)' \ $(TEXI2DVI) $< .texi.pdf: TEXINPUTS="$(am__TEXINFO_TEX_DIR)$(PATH_SEPARATOR)$$TEXINPUTS" \ MAKEINFO='$(MAKEINFO) $(AM_MAKEINFOFLAGS) $(MAKEINFOFLAGS) -I $(srcdir)' \ $(TEXI2PDF) $< .texi.html: rm -rf $(@:.html=.htp) if $(MAKEINFOHTML) $(AM_MAKEINFOHTMLFLAGS) $(MAKEINFOFLAGS) -I $(srcdir) \ -o $(@:.html=.htp) $<; \ then \ rm -rf $@; \ if test ! -d $(@:.html=.htp) && test -d $(@:.html=); then \ mv $(@:.html=) $@; else mv $(@:.html=.htp) $@; fi; \ else \ if test ! -d $(@:.html=.htp) && test -d $(@:.html=); then \ rm -rf $(@:.html=); else rm -Rf $(@:.html=.htp) $@; fi; \ exit 1; \ fi $(srcdir)/guile-gnome-libgnome.info: guile-gnome-libgnome.texi $(srcdir)/version.texi $(guile_gnome_libgnome_TEXINFOS) guile-gnome-libgnome.dvi: guile-gnome-libgnome.texi $(srcdir)/version.texi $(guile_gnome_libgnome_TEXINFOS) guile-gnome-libgnome.pdf: guile-gnome-libgnome.texi $(srcdir)/version.texi $(guile_gnome_libgnome_TEXINFOS) guile-gnome-libgnome.html: guile-gnome-libgnome.texi $(srcdir)/version.texi $(guile_gnome_libgnome_TEXINFOS) $(srcdir)/version.texi: $(srcdir)/stamp-vti $(srcdir)/stamp-vti: guile-gnome-libgnome.texi $(top_srcdir)/configure @(dir=.; test -f ./guile-gnome-libgnome.texi || dir=$(srcdir); \ set `$(SHELL) $(top_srcdir)/build-aux/mdate-sh $$dir/guile-gnome-libgnome.texi`; \ echo "@set UPDATED $$1 $$2 $$3"; \ echo "@set UPDATED-MONTH $$2 $$3"; \ echo "@set EDITION $(VERSION)"; \ echo "@set VERSION $(VERSION)") > vti.tmp @cmp -s vti.tmp $(srcdir)/version.texi \ || (echo "Updating $(srcdir)/version.texi"; \ cp vti.tmp $(srcdir)/version.texi) -@rm -f vti.tmp @cp $(srcdir)/version.texi $@ mostlyclean-vti: -rm -f vti.tmp maintainer-clean-vti: -rm -f $(srcdir)/stamp-vti $(srcdir)/version.texi .dvi.ps: TEXINPUTS="$(am__TEXINFO_TEX_DIR)$(PATH_SEPARATOR)$$TEXINPUTS" \ $(DVIPS) -o $@ $< uninstall-dvi-am: @$(NORMAL_UNINSTALL) @list='$(DVIS)'; test -n "$(dvidir)" || list=; \ for p in $$list; do \ $(am__strip_dir) \ echo " rm -f '$(DESTDIR)$(dvidir)/$$f'"; \ rm -f "$(DESTDIR)$(dvidir)/$$f"; \ done uninstall-html-am: @$(NORMAL_UNINSTALL) @list='$(HTMLS)'; test -n "$(htmldir)" || list=; \ for p in $$list; do \ $(am__strip_dir) \ echo " rm -rf '$(DESTDIR)$(htmldir)/$$f'"; \ rm -rf "$(DESTDIR)$(htmldir)/$$f"; \ done uninstall-info-am: @$(PRE_UNINSTALL) @if test -d '$(DESTDIR)$(infodir)' && $(am__can_run_installinfo); then \ list='$(INFO_DEPS)'; \ for file in $$list; do \ relfile=`echo "$$file" | sed 's|^.*/||'`; \ echo " install-info --info-dir='$(DESTDIR)$(infodir)' --remove '$(DESTDIR)$(infodir)/$$relfile'"; \ if install-info --info-dir="$(DESTDIR)$(infodir)" --remove "$(DESTDIR)$(infodir)/$$relfile"; \ then :; else test ! -f "$(DESTDIR)$(infodir)/$$relfile" || exit 1; fi; \ done; \ else :; fi @$(NORMAL_UNINSTALL) @list='$(INFO_DEPS)'; \ for file in $$list; do \ relfile=`echo "$$file" | sed 's|^.*/||'`; \ relfile_i=`echo "$$relfile" | sed 's|\.info$$||;s|$$|.i|'`; \ (if test -d "$(DESTDIR)$(infodir)" && cd "$(DESTDIR)$(infodir)"; then \ echo " cd '$(DESTDIR)$(infodir)' && rm -f $$relfile $$relfile-[0-9] $$relfile-[0-9][0-9] $$relfile_i[0-9] $$relfile_i[0-9][0-9]"; \ rm -f $$relfile $$relfile-[0-9] $$relfile-[0-9][0-9] $$relfile_i[0-9] $$relfile_i[0-9][0-9]; \ else :; fi); \ done uninstall-pdf-am: @$(NORMAL_UNINSTALL) @list='$(PDFS)'; test -n "$(pdfdir)" || list=; \ for p in $$list; do \ $(am__strip_dir) \ echo " rm -f '$(DESTDIR)$(pdfdir)/$$f'"; \ rm -f "$(DESTDIR)$(pdfdir)/$$f"; \ done uninstall-ps-am: @$(NORMAL_UNINSTALL) @list='$(PSS)'; test -n "$(psdir)" || list=; \ for p in $$list; do \ $(am__strip_dir) \ echo " rm -f '$(DESTDIR)$(psdir)/$$f'"; \ rm -f "$(DESTDIR)$(psdir)/$$f"; \ done dist-info: $(INFO_DEPS) @srcdirstrip=`echo "$(srcdir)" | sed 's|.|.|g'`; \ list='$(INFO_DEPS)'; \ for base in $$list; do \ case $$base in \ $(srcdir)/*) base=`echo "$$base" | sed "s|^$$srcdirstrip/||"`;; \ esac; \ if test -f $$base; then d=.; else d=$(srcdir); fi; \ base_i=`echo "$$base" | sed 's|\.info$$||;s|$$|.i|'`; \ for file in $$d/$$base $$d/$$base-[0-9] $$d/$$base-[0-9][0-9] $$d/$$base_i[0-9] $$d/$$base_i[0-9][0-9]; do \ if test -f $$file; then \ relfile=`expr "$$file" : "$$d/\(.*\)"`; \ test -f "$(distdir)/$$relfile" || \ cp -p $$file "$(distdir)/$$relfile"; \ else :; fi; \ done; \ done mostlyclean-aminfo: -rm -rf guile-gnome-libgnome.aux guile-gnome-libgnome.cp \ guile-gnome-libgnome.cps guile-gnome-libgnome.fn \ guile-gnome-libgnome.fns guile-gnome-libgnome.ky \ guile-gnome-libgnome.kys guile-gnome-libgnome.log \ guile-gnome-libgnome.pg guile-gnome-libgnome.pgs \ guile-gnome-libgnome.tmp guile-gnome-libgnome.toc \ guile-gnome-libgnome.tp guile-gnome-libgnome.tps \ guile-gnome-libgnome.vr guile-gnome-libgnome.vrs clean-aminfo: -test -z "guile-gnome-libgnome.dvi guile-gnome-libgnome.pdf \ guile-gnome-libgnome.ps guile-gnome-libgnome.html" \ || rm -rf guile-gnome-libgnome.dvi guile-gnome-libgnome.pdf \ guile-gnome-libgnome.ps guile-gnome-libgnome.html maintainer-clean-aminfo: @list='$(INFO_DEPS)'; for i in $$list; do \ i_i=`echo "$$i" | sed 's|\.info$$||;s|$$|.i|'`; \ echo " rm -f $$i $$i-[0-9] $$i-[0-9][0-9] $$i_i[0-9] $$i_i[0-9][0-9]"; \ rm -f $$i $$i-[0-9] $$i-[0-9][0-9] $$i_i[0-9] $$i_i[0-9][0-9]; \ done tags: TAGS TAGS: ctags: CTAGS CTAGS: distdir: $(DISTFILES) @srcdirstrip=`echo "$(srcdir)" | sed 's/[].[^$$\\*]/\\\\&/g'`; \ topsrcdirstrip=`echo "$(top_srcdir)" | sed 's/[].[^$$\\*]/\\\\&/g'`; \ list='$(DISTFILES)'; \ dist_files=`for file in $$list; do echo $$file; done | \ sed -e "s|^$$srcdirstrip/||;t" \ -e "s|^$$topsrcdirstrip/|$(top_builddir)/|;t"`; \ case $$dist_files in \ */*) $(MKDIR_P) `echo "$$dist_files" | \ sed '/\//!d;s|^|$(distdir)/|;s,/[^/]*$$,,' | \ sort -u` ;; \ esac; \ for file in $$dist_files; do \ if test -f $$file || test -d $$file; then d=.; else d=$(srcdir); fi; \ if test -d $$d/$$file; then \ dir=`echo "/$$file" | sed -e 's,/[^/]*$$,,'`; \ if test -d "$(distdir)/$$file"; then \ find "$(distdir)/$$file" -type d ! -perm -700 -exec chmod u+rwx {} \;; \ fi; \ if test -d $(srcdir)/$$file && test $$d != $(srcdir); then \ cp -fpR $(srcdir)/$$file "$(distdir)$$dir" || exit 1; \ find "$(distdir)/$$file" -type d ! -perm -700 -exec chmod u+rwx {} \;; \ fi; \ cp -fpR $$d/$$file "$(distdir)$$dir" || exit 1; \ else \ test -f "$(distdir)/$$file" \ || cp -p $$d/$$file "$(distdir)/$$file" \ || exit 1; \ fi; \ done $(MAKE) $(AM_MAKEFLAGS) \ top_distdir="$(top_distdir)" distdir="$(distdir)" \ dist-info check-am: all-am check: check-am all-am: Makefile $(INFO_DEPS) installdirs: for dir in "$(DESTDIR)$(infodir)"; do \ test -z "$$dir" || $(MKDIR_P) "$$dir"; \ done install: install-am install-exec: install-exec-am install-data: install-data-am uninstall: uninstall-am install-am: all-am @$(MAKE) $(AM_MAKEFLAGS) install-exec-am install-data-am installcheck: installcheck-am install-strip: if test -z '$(STRIP)'; then \ $(MAKE) $(AM_MAKEFLAGS) INSTALL_PROGRAM="$(INSTALL_STRIP_PROGRAM)" \ install_sh_PROGRAM="$(INSTALL_STRIP_PROGRAM)" INSTALL_STRIP_FLAG=-s \ install; \ else \ $(MAKE) $(AM_MAKEFLAGS) INSTALL_PROGRAM="$(INSTALL_STRIP_PROGRAM)" \ install_sh_PROGRAM="$(INSTALL_STRIP_PROGRAM)" INSTALL_STRIP_FLAG=-s \ "INSTALL_PROGRAM_ENV=STRIPPROG='$(STRIP)'" install; \ fi mostlyclean-generic: clean-generic: distclean-generic: -test -z "$(CONFIG_CLEAN_FILES)" || rm -f $(CONFIG_CLEAN_FILES) -test . = "$(srcdir)" || test -z "$(CONFIG_CLEAN_VPATH_FILES)" || rm -f $(CONFIG_CLEAN_VPATH_FILES) maintainer-clean-generic: @echo "This command is intended for maintainers to use" @echo "it deletes files that may require special tools to rebuild." clean: clean-am clean-am: clean-aminfo clean-generic clean-libtool mostlyclean-am distclean: distclean-am -rm -f Makefile distclean-am: clean-am distclean-generic dvi: dvi-am dvi-am: $(DVIS) html: html-am html-am: $(HTMLS) info: info-am info-am: $(INFO_DEPS) install-data-am: install-info-am install-dvi: install-dvi-am install-dvi-am: $(DVIS) @$(NORMAL_INSTALL) @list='$(DVIS)'; test -n "$(dvidir)" || list=; \ if test -n "$$list"; then \ echo " $(MKDIR_P) '$(DESTDIR)$(dvidir)'"; \ $(MKDIR_P) "$(DESTDIR)$(dvidir)" || exit 1; \ fi; \ for p in $$list; do \ if test -f "$$p"; then d=; else d="$(srcdir)/"; fi; \ echo "$$d$$p"; \ done | $(am__base_list) | \ while read files; do \ echo " $(INSTALL_DATA) $$files '$(DESTDIR)$(dvidir)'"; \ $(INSTALL_DATA) $$files "$(DESTDIR)$(dvidir)" || exit $$?; \ done install-exec-am: install-html: install-html-am install-html-am: $(HTMLS) @$(NORMAL_INSTALL) @list='$(HTMLS)'; list2=; test -n "$(htmldir)" || list=; \ if test -n "$$list"; then \ echo " $(MKDIR_P) '$(DESTDIR)$(htmldir)'"; \ $(MKDIR_P) "$(DESTDIR)$(htmldir)" || exit 1; \ fi; \ for p in $$list; do \ if test -f "$$p" || test -d "$$p"; then d=; else d="$(srcdir)/"; fi; \ $(am__strip_dir) \ d2=$$d$$p; \ if test -d "$$d2"; then \ echo " $(MKDIR_P) '$(DESTDIR)$(htmldir)/$$f'"; \ $(MKDIR_P) "$(DESTDIR)$(htmldir)/$$f" || exit 1; \ echo " $(INSTALL_DATA) '$$d2'/* '$(DESTDIR)$(htmldir)/$$f'"; \ $(INSTALL_DATA) "$$d2"/* "$(DESTDIR)$(htmldir)/$$f" || exit $$?; \ else \ list2="$$list2 $$d2"; \ fi; \ done; \ test -z "$$list2" || { echo "$$list2" | $(am__base_list) | \ while read files; do \ echo " $(INSTALL_DATA) $$files '$(DESTDIR)$(htmldir)'"; \ $(INSTALL_DATA) $$files "$(DESTDIR)$(htmldir)" || exit $$?; \ done; } install-info: install-info-am install-info-am: $(INFO_DEPS) @$(NORMAL_INSTALL) @srcdirstrip=`echo "$(srcdir)" | sed 's|.|.|g'`; \ list='$(INFO_DEPS)'; test -n "$(infodir)" || list=; \ if test -n "$$list"; then \ echo " $(MKDIR_P) '$(DESTDIR)$(infodir)'"; \ $(MKDIR_P) "$(DESTDIR)$(infodir)" || exit 1; \ fi; \ for file in $$list; do \ case $$file in \ $(srcdir)/*) file=`echo "$$file" | sed "s|^$$srcdirstrip/||"`;; \ esac; \ if test -f $$file; then d=.; else d=$(srcdir); fi; \ file_i=`echo "$$file" | sed 's|\.info$$||;s|$$|.i|'`; \ for ifile in $$d/$$file $$d/$$file-[0-9] $$d/$$file-[0-9][0-9] \ $$d/$$file_i[0-9] $$d/$$file_i[0-9][0-9] ; do \ if test -f $$ifile; then \ echo "$$ifile"; \ else : ; fi; \ done; \ done | $(am__base_list) | \ while read files; do \ echo " $(INSTALL_DATA) $$files '$(DESTDIR)$(infodir)'"; \ $(INSTALL_DATA) $$files "$(DESTDIR)$(infodir)" || exit $$?; done @$(POST_INSTALL) @if $(am__can_run_installinfo); then \ list='$(INFO_DEPS)'; test -n "$(infodir)" || list=; \ for file in $$list; do \ relfile=`echo "$$file" | sed 's|^.*/||'`; \ echo " install-info --info-dir='$(DESTDIR)$(infodir)' '$(DESTDIR)$(infodir)/$$relfile'";\ install-info --info-dir="$(DESTDIR)$(infodir)" "$(DESTDIR)$(infodir)/$$relfile" || :;\ done; \ else : ; fi install-man: install-pdf: install-pdf-am install-pdf-am: $(PDFS) @$(NORMAL_INSTALL) @list='$(PDFS)'; test -n "$(pdfdir)" || list=; \ if test -n "$$list"; then \ echo " $(MKDIR_P) '$(DESTDIR)$(pdfdir)'"; \ $(MKDIR_P) "$(DESTDIR)$(pdfdir)" || exit 1; \ fi; \ for p in $$list; do \ if test -f "$$p"; then d=; else d="$(srcdir)/"; fi; \ echo "$$d$$p"; \ done | $(am__base_list) | \ while read files; do \ echo " $(INSTALL_DATA) $$files '$(DESTDIR)$(pdfdir)'"; \ $(INSTALL_DATA) $$files "$(DESTDIR)$(pdfdir)" || exit $$?; done install-ps: install-ps-am install-ps-am: $(PSS) @$(NORMAL_INSTALL) @list='$(PSS)'; test -n "$(psdir)" || list=; \ if test -n "$$list"; then \ echo " $(MKDIR_P) '$(DESTDIR)$(psdir)'"; \ $(MKDIR_P) "$(DESTDIR)$(psdir)" || exit 1; \ fi; \ for p in $$list; do \ if test -f "$$p"; then d=; else d="$(srcdir)/"; fi; \ echo "$$d$$p"; \ done | $(am__base_list) | \ while read files; do \ echo " $(INSTALL_DATA) $$files '$(DESTDIR)$(psdir)'"; \ $(INSTALL_DATA) $$files "$(DESTDIR)$(psdir)" || exit $$?; done installcheck-am: maintainer-clean: maintainer-clean-am -rm -f Makefile maintainer-clean-am: distclean-am maintainer-clean-aminfo \ maintainer-clean-generic maintainer-clean-vti mostlyclean: mostlyclean-am mostlyclean-am: mostlyclean-aminfo mostlyclean-generic \ mostlyclean-libtool mostlyclean-vti pdf: pdf-am pdf-am: $(PDFS) ps: ps-am ps-am: $(PSS) uninstall-am: uninstall-dvi-am uninstall-html-am uninstall-info-am \ uninstall-pdf-am uninstall-ps-am .MAKE: install-am install-strip .PHONY: all all-am check check-am clean clean-aminfo clean-generic \ clean-libtool dist-info distclean distclean-generic \ distclean-libtool distdir dvi dvi-am html html-am info info-am \ install install-am install-data install-data-am install-dvi \ install-dvi-am install-exec install-exec-am install-html \ install-html-am install-info install-info-am install-man \ install-pdf install-pdf-am install-ps install-ps-am \ install-strip installcheck installcheck-am installdirs \ maintainer-clean maintainer-clean-aminfo \ maintainer-clean-generic maintainer-clean-vti mostlyclean \ mostlyclean-aminfo mostlyclean-generic mostlyclean-libtool \ mostlyclean-vti pdf pdf-am ps ps-am uninstall uninstall-am \ uninstall-dvi-am uninstall-html-am uninstall-info-am \ uninstall-pdf-am uninstall-ps-am generate-stubs: $(GUILE) $(GUILE_FLAGS) -c $(GTK_DOC_TO_TEXI_STUBS) $(docbook_xml_files) generate-defuns: $(GUILE) $(GUILE_FLAGS) -c $(GTK_DOC_TO_TEXI_DEFUNS) ./overrides.texi $(docbook_xml_files) check-coverage: $(GUILE) $(GUILE_FLAGS) -c $(GTK_DOC_CHECK_COVERAGE) generate-undocumented: rm -f undocumented.texi; touch undocumented.texi $(GUILE) $(GUILE_FLAGS) -c $(GTK_DOC_GENERATE_UNDOCUMENTED) # Tell versions [3.59,3.63) of GNU make to not export all variables. # Otherwise a system limit (for SysV at least) may be exceeded. .NOEXPORT: guile-gnome-platform-2.16.2/libgnome/doc/stamp-vti0000644000175000017500000000014611752511104022372 0ustar00wingowingo00000000000000@set UPDATED 9 December 2011 @set UPDATED-MONTH December 2011 @set EDITION 2.16.2 @set VERSION 2.16.2 guile-gnome-platform-2.16.2/libgnome/doc/overview.texi0000644000175000017500000000112311670374303023267 0ustar00wingowingo00000000000000@node Overview @chapter Overview @code{(gnome gnome)} wraps some pieces of the libgnome library for Guile. It is a part of Guile-GNOME. Libgnome historically was a staging ground for code meant to go elsewhere. In the modern environment, it has largely been replaced, its functionality having been pushed into GLib, GTK+, and other lower-level libraries. However, as of 2008 it still has some utility. The help functions are useful. @code{(gnome gnome)} wraps those parts that have not been replaced yet. See the documentation for @code{(gnome gobject)} for more information on Guile-GNOME. guile-gnome-platform-2.16.2/libgnome/doc/section-gnome-help.xml.texi0000644000175000017500000000055211670374303025722 0ustar00wingowingo00000000000000 @c %start of fragment @node gnome-help @chapter gnome-help Display application and GNOME system help. @section Overview These functions provide a way to display help files that are either installed as part of the main GNOME installation or that are specific to the current application. @section Usage @include defuns-gnome-help.xml.texi @c %end of fragment guile-gnome-platform-2.16.2/libgnome/doc/section-gnome-sound.xml.texi0000644000175000017500000000113411670374303026117 0ustar00wingowingo00000000000000 @c %start of fragment @node gnome-sound @chapter gnome-sound Sound playing routines. @section Overview This module provides wrapper functions for playing sound samples. Currently it just wraps the esound daemon, but the API is flexible enough that other sound infrastructures can be included in the future. These functions also allow for the fact that no sound may be supported on the current platform. So applications can safely call these functions to play sounds and they will just quietly return if no action is possible. @section Usage @include defuns-gnome-sound.xml.texi @c %end of fragment guile-gnome-platform-2.16.2/libgnome/tests/0000755000175000017500000000000011752546504021133 5ustar00wingowingo00000000000000guile-gnome-platform-2.16.2/libgnome/tests/wrapset.scm0000644000175000017500000000311411670374303023316 0ustar00wingowingo00000000000000;;; ---------------------------------------------------------------------- ;;; unit test ;;; Copyright (C) 2007 Andy Wingo ;;; ;;; This program is free software; you can redistribute it and/or modify ;;; it under the terms of the GNU General Public License as published by ;;; the Free Software Foundation; either version 2 of the License, or ;;; (at your option) any later version. ;;; ;;; This program is distributed in the hope that it will be useful, ;;; but WITHOUT ANY WARRANTY; without even the implied warranty of ;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the ;;; GNU General Public License for more details. ;;; ;;; You should have received a copy of the GNU General Public License ;;; along with this program; if not, write to the Free Software ;;; Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA ;;; ---------------------------------------------------------------------- (use-modules (unit-test) (apicheck) (ice-9 pretty-print) (oop goops)) (define-class ()) (define *modules* (call-with-input-string (getenv "WRAPSET_MODULES") read)) (define *api-file* (getenv "WRAPSET_API_FILE")) (define-method (test-wrapset-api (self )) (apicheck-validate (call-with-input-file *api-file* read) *modules*)) (define (main args) (exit-with-summary (run-all-defined-test-cases))) (define (update-api args) (with-output-to-file *api-file* (lambda () (pretty-print (apicheck-generate *modules*))))) guile-gnome-platform-2.16.2/libgnome/tests/Makefile.am0000644000175000017500000000012011670374303023153 0ustar00wingowingo00000000000000include ../../tests.mk wrapset_stem = libgnome top_module_name = (gnome gnome) guile-gnome-platform-2.16.2/libgnome/tests/Makefile.in0000644000175000017500000004015611752511070023174 0ustar00wingowingo00000000000000# Makefile.in generated by automake 1.11.5 from Makefile.am. # @configure_input@ # Copyright (C) 1994, 1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, # 2003, 2004, 2005, 2006, 2007, 2008, 2009, 2010, 2011 Free Software # Foundation, Inc. # This Makefile.in is free software; the Free Software Foundation # gives unlimited permission to copy and/or distribute it, # with or without modifications, as long as this notice is preserved. # This program is distributed in the hope that it will be useful, # but WITHOUT ANY WARRANTY, to the extent permitted by law; without # even the implied warranty of MERCHANTABILITY or FITNESS FOR A # PARTICULAR PURPOSE. @SET_MAKE@ # guile-gnome # Copyright (C) 2007, 2011 Free Software Foundation, Inc. # This program is free software; you can redistribute it and/or # modify it under the terms of the GNU General Public License as # published by the Free Software Foundation; either version 2 of # the License, or (at your option) any later version. # This program is distributed in the hope that it will be useful, # but WITHOUT ANY WARRANTY; without even the implied warranty of # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the # GNU General Public License for more details. # You should have received a copy of the GNU General Public License # along with this program; if not, contact: # Free Software Foundation Voice: +1-617-542-5942 # 59 Temple Place - Suite 330 Fax: +1-617-542-2652 # Boston, MA 02111-1307, USA gnu@gnu.org VPATH = @srcdir@ am__make_dryrun = \ { \ am__dry=no; \ case $$MAKEFLAGS in \ *\\[\ \ ]*) \ echo 'am--echo: ; @echo "AM" OK' | $(MAKE) -f - 2>/dev/null \ | grep '^AM OK$$' >/dev/null || am__dry=yes;; \ *) \ for am__flg in $$MAKEFLAGS; do \ case $$am__flg in \ *=*|--*) ;; \ *n*) am__dry=yes; break;; \ esac; \ done;; \ esac; \ test $$am__dry = yes; \ } pkgdatadir = $(datadir)/@PACKAGE@ pkgincludedir = $(includedir)/@PACKAGE@ pkglibdir = $(libdir)/@PACKAGE@ pkglibexecdir = $(libexecdir)/@PACKAGE@ am__cd = CDPATH="$${ZSH_VERSION+.}$(PATH_SEPARATOR)" && cd install_sh_DATA = $(install_sh) -c -m 644 install_sh_PROGRAM = $(install_sh) -c install_sh_SCRIPT = $(install_sh) -c INSTALL_HEADER = $(INSTALL_DATA) transform = $(program_transform_name) NORMAL_INSTALL = : PRE_INSTALL = : POST_INSTALL = : NORMAL_UNINSTALL = : PRE_UNINSTALL = : POST_UNINSTALL = : build_triplet = @build@ host_triplet = @host@ DIST_COMMON = $(srcdir)/../../tests.mk $(srcdir)/Makefile.am \ $(srcdir)/Makefile.in subdir = libgnome/tests ACLOCAL_M4 = $(top_srcdir)/aclocal.m4 am__aclocal_m4_deps = $(top_srcdir)/configure.ac am__configure_deps = $(am__aclocal_m4_deps) $(CONFIGURE_DEPENDENCIES) \ $(ACLOCAL_M4) mkinstalldirs = $(install_sh) -d CONFIG_HEADER = $(top_builddir)/config.h CONFIG_CLEAN_FILES = CONFIG_CLEAN_VPATH_FILES = SOURCES = DIST_SOURCES = am__can_run_installinfo = \ case $$AM_UPDATE_INFO_DIR in \ n|no|NO) false;; \ *) (install-info --version) >/dev/null 2>&1;; \ esac am__tty_colors = \ red=; grn=; lgn=; blu=; std= DISTFILES = $(DIST_COMMON) $(DIST_SOURCES) $(TEXINFOS) $(EXTRA_DIST) ACLOCAL = @ACLOCAL@ AG_PKG_CONFIG_PATH = @AG_PKG_CONFIG_PATH@ AMTAR = @AMTAR@ API_VERSION = @API_VERSION@ AR = @AR@ ATK_CFLAGS = @ATK_CFLAGS@ ATK_LIBS = @ATK_LIBS@ AUTOCONF = @AUTOCONF@ AUTOHEADER = @AUTOHEADER@ AUTOMAKE = @AUTOMAKE@ AWK = @AWK@ BONOBO_IDL_DIR = @BONOBO_IDL_DIR@ CANVAS_CFLAGS = @CANVAS_CFLAGS@ CANVAS_LIBS = @CANVAS_LIBS@ CC = @CC@ CCDEPMODE = @CCDEPMODE@ CFLAGS = @CFLAGS@ CORBA_CFLAGS = @CORBA_CFLAGS@ CORBA_LIBS = @CORBA_LIBS@ CPP = @CPP@ CPPFLAGS = @CPPFLAGS@ CYGPATH_W = @CYGPATH_W@ DEFS = @DEFS@ DEPDIR = @DEPDIR@ DLLTOOL = @DLLTOOL@ DSYMUTIL = @DSYMUTIL@ DUMPBIN = @DUMPBIN@ ECHO_C = @ECHO_C@ ECHO_N = @ECHO_N@ ECHO_T = @ECHO_T@ EGREP = @EGREP@ EXEEXT = @EXEEXT@ FGREP = @FGREP@ GCONF_CFLAGS = @GCONF_CFLAGS@ GCONF_LIBS = @GCONF_LIBS@ GDK_CFLAGS = @GDK_CFLAGS@ GDK_LIBS = @GDK_LIBS@ GDK_PIXBUF_CFLAGS = @GDK_PIXBUF_CFLAGS@ GDK_PIXBUF_LIBS = @GDK_PIXBUF_LIBS@ GLIB_CFLAGS = @GLIB_CFLAGS@ GLIB_LIBS = @GLIB_LIBS@ GNOMEUI_DEPRECATION_FLAGS = @GNOMEUI_DEPRECATION_FLAGS@ GNOME_VFS_CFLAGS = @GNOME_VFS_CFLAGS@ GNOME_VFS_DEPRECATED_CFLAGS = @GNOME_VFS_DEPRECATED_CFLAGS@ GNOME_VFS_LIBS = @GNOME_VFS_LIBS@ GOBJECT_CFLAGS = @GOBJECT_CFLAGS@ GOBJECT_LIBS = @GOBJECT_LIBS@ GREP = @GREP@ GTHREAD_CFLAGS = @GTHREAD_CFLAGS@ GTHREAD_LIBS = @GTHREAD_LIBS@ GTK_CFLAGS = @GTK_CFLAGS@ GTK_DEPRECATED_CFLAGS = @GTK_DEPRECATED_CFLAGS@ GTK_LIBS = @GTK_LIBS@ GUILE_CAIRO_CFLAGS = @GUILE_CAIRO_CFLAGS@ GUILE_CAIRO_LIBS = @GUILE_CAIRO_LIBS@ GUILE_CFLAGS = @GUILE_CFLAGS@ GUILE_EFFECTIVE_VERSION = @GUILE_EFFECTIVE_VERSION@ GUILE_GLIB_CFLAGS = @GUILE_GLIB_CFLAGS@ GUILE_GLIB_LIBS = @GUILE_GLIB_LIBS@ GUILE_LIBS = @GUILE_LIBS@ G_WRAP_CFLAGS = @G_WRAP_CFLAGS@ G_WRAP_LIBS = @G_WRAP_LIBS@ G_WRAP_LIB_DIR = @G_WRAP_LIB_DIR@ G_WRAP_MODULE_DIR = @G_WRAP_MODULE_DIR@ INSTALL = @INSTALL@ INSTALL_DATA = @INSTALL_DATA@ INSTALL_PROGRAM = @INSTALL_PROGRAM@ INSTALL_SCRIPT = @INSTALL_SCRIPT@ INSTALL_STRIP_PROGRAM = @INSTALL_STRIP_PROGRAM@ LD = @LD@ LDFLAGS = @LDFLAGS@ LIBGLADE_CFLAGS = @LIBGLADE_CFLAGS@ LIBGLADE_LIBS = @LIBGLADE_LIBS@ LIBGNOMEUI_CFLAGS = @LIBGNOMEUI_CFLAGS@ LIBGNOMEUI_LIBS = @LIBGNOMEUI_LIBS@ LIBGNOME_CFLAGS = @LIBGNOME_CFLAGS@ LIBGNOME_LIBS = @LIBGNOME_LIBS@ LIBOBJS = @LIBOBJS@ LIBS = @LIBS@ LIBTOOL = @LIBTOOL@ LIPO = @LIPO@ LN_S = @LN_S@ LTLIBOBJS = @LTLIBOBJS@ MAKEINFO = @MAKEINFO@ MANIFEST_TOOL = @MANIFEST_TOOL@ MKDIR_P = @MKDIR_P@ NM = @NM@ NMEDIT = @NMEDIT@ OBJDUMP = @OBJDUMP@ OBJEXT = @OBJEXT@ ORBIT_IDL = @ORBIT_IDL@ OTOOL = @OTOOL@ OTOOL64 = @OTOOL64@ PACKAGE = @PACKAGE@ PACKAGE_BUGREPORT = @PACKAGE_BUGREPORT@ PACKAGE_NAME = @PACKAGE_NAME@ PACKAGE_STRING = @PACKAGE_STRING@ PACKAGE_TARNAME = @PACKAGE_TARNAME@ PACKAGE_URL = @PACKAGE_URL@ PACKAGE_VERSION = @PACKAGE_VERSION@ PANGOCAIRO_CFLAGS = @PANGOCAIRO_CFLAGS@ PANGOCAIRO_LIBS = @PANGOCAIRO_LIBS@ PANGO_CFLAGS = @PANGO_CFLAGS@ PANGO_LIBS = @PANGO_LIBS@ PATH_SEPARATOR = @PATH_SEPARATOR@ PKG_CONFIG = @PKG_CONFIG@ PKG_CONFIG_LIBDIR = @PKG_CONFIG_LIBDIR@ PKG_CONFIG_PATH = @PKG_CONFIG_PATH@ RANLIB = @RANLIB@ SED = @SED@ SET_MAKE = @SET_MAKE@ SHELL = @SHELL@ STRIP = @STRIP@ VERSION = @VERSION@ WARN_CFLAGS = @WARN_CFLAGS@ abs_builddir = @abs_builddir@ abs_srcdir = @abs_srcdir@ abs_top_builddir = @abs_top_builddir@ abs_top_srcdir = @abs_top_srcdir@ ac_ct_AR = @ac_ct_AR@ ac_ct_CC = @ac_ct_CC@ ac_ct_DUMPBIN = @ac_ct_DUMPBIN@ am__include = @am__include@ am__leading_dot = @am__leading_dot@ am__quote = @am__quote@ am__tar = @am__tar@ am__untar = @am__untar@ bindir = @bindir@ build = @build@ build_alias = @build_alias@ build_cpu = @build_cpu@ build_os = @build_os@ build_vendor = @build_vendor@ builddir = @builddir@ datadir = @datadir@ datarootdir = @datarootdir@ docdir = @docdir@ dvidir = @dvidir@ exec_prefix = @exec_prefix@ host = @host@ host_alias = @host_alias@ host_cpu = @host_cpu@ host_os = @host_os@ host_vendor = @host_vendor@ htmldir = @htmldir@ includedir = @includedir@ infodir = @infodir@ install_sh = @install_sh@ libdir = @libdir@ libexecdir = @libexecdir@ localedir = @localedir@ localstatedir = @localstatedir@ mandir = @mandir@ mkdir_p = @mkdir_p@ oldincludedir = @oldincludedir@ pdfdir = @pdfdir@ prefix = @prefix@ program_transform_name = @program_transform_name@ psdir = @psdir@ sbindir = @sbindir@ sharedstatedir = @sharedstatedir@ srcdir = @srcdir@ sysconfdir = @sysconfdir@ target_alias = @target_alias@ top_build_prefix = @top_build_prefix@ top_builddir = @top_builddir@ top_srcdir = @top_srcdir@ # # Makefile snippet # EXTRA_DIST = wrapset.api wrapset.scm wrapset_stem = libgnome top_module_name = (gnome gnome) gw_module_name = (gnome gw $(wrapset_stem)) extra_module_names = wrapset_modules = ($(top_module_name) $(gw_module_name) $(extra_module_names)) WRAPSET_TESTS_ENV = WRAPSET_MODULES="$(wrapset_modules)" WRAPSET_API_FILE=$(srcdir)/wrapset.api DEV_ENV = $(top_builddir)/dev-environ GUILE = guile TESTS_ENVIRONMENT = $(WRAPSET_TESTS_ENV) $(DEV_ENV) $(GUILE) $(GUILE_FLAGS) -e main -s TESTS = wrapset.scm all: all-am .SUFFIXES: $(srcdir)/Makefile.in: $(srcdir)/Makefile.am $(srcdir)/../../tests.mk $(am__configure_deps) @for dep in $?; do \ case '$(am__configure_deps)' in \ *$$dep*) \ ( cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh ) \ && { if test -f $@; then exit 0; else break; fi; }; \ exit 1;; \ esac; \ done; \ echo ' cd $(top_srcdir) && $(AUTOMAKE) --gnu libgnome/tests/Makefile'; \ $(am__cd) $(top_srcdir) && \ $(AUTOMAKE) --gnu libgnome/tests/Makefile .PRECIOUS: Makefile Makefile: $(srcdir)/Makefile.in $(top_builddir)/config.status @case '$?' in \ *config.status*) \ cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh;; \ *) \ echo ' cd $(top_builddir) && $(SHELL) ./config.status $(subdir)/$@ $(am__depfiles_maybe)'; \ cd $(top_builddir) && $(SHELL) ./config.status $(subdir)/$@ $(am__depfiles_maybe);; \ esac; $(srcdir)/../../tests.mk: $(top_builddir)/config.status: $(top_srcdir)/configure $(CONFIG_STATUS_DEPENDENCIES) cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh $(top_srcdir)/configure: $(am__configure_deps) cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh $(ACLOCAL_M4): $(am__aclocal_m4_deps) cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh $(am__aclocal_m4_deps): mostlyclean-libtool: -rm -f *.lo clean-libtool: -rm -rf .libs _libs tags: TAGS TAGS: ctags: CTAGS CTAGS: check-TESTS: $(TESTS) @failed=0; all=0; xfail=0; xpass=0; skip=0; \ srcdir=$(srcdir); export srcdir; \ list=' $(TESTS) '; \ $(am__tty_colors); \ if test -n "$$list"; then \ for tst in $$list; do \ if test -f ./$$tst; then dir=./; \ elif test -f $$tst; then dir=; \ else dir="$(srcdir)/"; fi; \ if $(TESTS_ENVIRONMENT) $${dir}$$tst; then \ all=`expr $$all + 1`; \ case " $(XFAIL_TESTS) " in \ *[\ \ ]$$tst[\ \ ]*) \ xpass=`expr $$xpass + 1`; \ failed=`expr $$failed + 1`; \ col=$$red; res=XPASS; \ ;; \ *) \ col=$$grn; res=PASS; \ ;; \ esac; \ elif test $$? -ne 77; then \ all=`expr $$all + 1`; \ case " $(XFAIL_TESTS) " in \ *[\ \ ]$$tst[\ \ ]*) \ xfail=`expr $$xfail + 1`; \ col=$$lgn; res=XFAIL; \ ;; \ *) \ failed=`expr $$failed + 1`; \ col=$$red; res=FAIL; \ ;; \ esac; \ else \ skip=`expr $$skip + 1`; \ col=$$blu; res=SKIP; \ fi; \ echo "$${col}$$res$${std}: $$tst"; \ done; \ if test "$$all" -eq 1; then \ tests="test"; \ All=""; \ else \ tests="tests"; \ All="All "; \ fi; \ if test "$$failed" -eq 0; then \ if test "$$xfail" -eq 0; then \ banner="$$All$$all $$tests passed"; \ else \ if test "$$xfail" -eq 1; then failures=failure; else failures=failures; fi; \ banner="$$All$$all $$tests behaved as expected ($$xfail expected $$failures)"; \ fi; \ else \ if test "$$xpass" -eq 0; then \ banner="$$failed of $$all $$tests failed"; \ else \ if test "$$xpass" -eq 1; then passes=pass; else passes=passes; fi; \ banner="$$failed of $$all $$tests did not behave as expected ($$xpass unexpected $$passes)"; \ fi; \ fi; \ dashes="$$banner"; \ skipped=""; \ if test "$$skip" -ne 0; then \ if test "$$skip" -eq 1; then \ skipped="($$skip test was not run)"; \ else \ skipped="($$skip tests were not run)"; \ fi; \ test `echo "$$skipped" | wc -c` -le `echo "$$banner" | wc -c` || \ dashes="$$skipped"; \ fi; \ report=""; \ if test "$$failed" -ne 0 && test -n "$(PACKAGE_BUGREPORT)"; then \ report="Please report to $(PACKAGE_BUGREPORT)"; \ test `echo "$$report" | wc -c` -le `echo "$$banner" | wc -c` || \ dashes="$$report"; \ fi; \ dashes=`echo "$$dashes" | sed s/./=/g`; \ if test "$$failed" -eq 0; then \ col="$$grn"; \ else \ col="$$red"; \ fi; \ echo "$${col}$$dashes$${std}"; \ echo "$${col}$$banner$${std}"; \ test -z "$$skipped" || echo "$${col}$$skipped$${std}"; \ test -z "$$report" || echo "$${col}$$report$${std}"; \ echo "$${col}$$dashes$${std}"; \ test "$$failed" -eq 0; \ else :; fi distdir: $(DISTFILES) @srcdirstrip=`echo "$(srcdir)" | sed 's/[].[^$$\\*]/\\\\&/g'`; \ topsrcdirstrip=`echo "$(top_srcdir)" | sed 's/[].[^$$\\*]/\\\\&/g'`; \ list='$(DISTFILES)'; \ dist_files=`for file in $$list; do echo $$file; done | \ sed -e "s|^$$srcdirstrip/||;t" \ -e "s|^$$topsrcdirstrip/|$(top_builddir)/|;t"`; \ case $$dist_files in \ */*) $(MKDIR_P) `echo "$$dist_files" | \ sed '/\//!d;s|^|$(distdir)/|;s,/[^/]*$$,,' | \ sort -u` ;; \ esac; \ for file in $$dist_files; do \ if test -f $$file || test -d $$file; then d=.; else d=$(srcdir); fi; \ if test -d $$d/$$file; then \ dir=`echo "/$$file" | sed -e 's,/[^/]*$$,,'`; \ if test -d "$(distdir)/$$file"; then \ find "$(distdir)/$$file" -type d ! -perm -700 -exec chmod u+rwx {} \;; \ fi; \ if test -d $(srcdir)/$$file && test $$d != $(srcdir); then \ cp -fpR $(srcdir)/$$file "$(distdir)$$dir" || exit 1; \ find "$(distdir)/$$file" -type d ! -perm -700 -exec chmod u+rwx {} \;; \ fi; \ cp -fpR $$d/$$file "$(distdir)$$dir" || exit 1; \ else \ test -f "$(distdir)/$$file" \ || cp -p $$d/$$file "$(distdir)/$$file" \ || exit 1; \ fi; \ done check-am: all-am $(MAKE) $(AM_MAKEFLAGS) check-TESTS check: check-am all-am: Makefile installdirs: install: install-am install-exec: install-exec-am install-data: install-data-am uninstall: uninstall-am install-am: all-am @$(MAKE) $(AM_MAKEFLAGS) install-exec-am install-data-am installcheck: installcheck-am install-strip: if test -z '$(STRIP)'; then \ $(MAKE) $(AM_MAKEFLAGS) INSTALL_PROGRAM="$(INSTALL_STRIP_PROGRAM)" \ install_sh_PROGRAM="$(INSTALL_STRIP_PROGRAM)" INSTALL_STRIP_FLAG=-s \ install; \ else \ $(MAKE) $(AM_MAKEFLAGS) INSTALL_PROGRAM="$(INSTALL_STRIP_PROGRAM)" \ install_sh_PROGRAM="$(INSTALL_STRIP_PROGRAM)" INSTALL_STRIP_FLAG=-s \ "INSTALL_PROGRAM_ENV=STRIPPROG='$(STRIP)'" install; \ fi mostlyclean-generic: clean-generic: distclean-generic: -test -z "$(CONFIG_CLEAN_FILES)" || rm -f $(CONFIG_CLEAN_FILES) -test . = "$(srcdir)" || test -z "$(CONFIG_CLEAN_VPATH_FILES)" || rm -f $(CONFIG_CLEAN_VPATH_FILES) maintainer-clean-generic: @echo "This command is intended for maintainers to use" @echo "it deletes files that may require special tools to rebuild." clean: clean-am clean-am: clean-generic clean-libtool mostlyclean-am distclean: distclean-am -rm -f Makefile distclean-am: clean-am distclean-generic dvi: dvi-am dvi-am: html: html-am html-am: info: info-am info-am: install-data-am: install-dvi: install-dvi-am install-dvi-am: install-exec-am: install-html: install-html-am install-html-am: install-info: install-info-am install-info-am: install-man: install-pdf: install-pdf-am install-pdf-am: install-ps: install-ps-am install-ps-am: installcheck-am: maintainer-clean: maintainer-clean-am -rm -f Makefile maintainer-clean-am: distclean-am maintainer-clean-generic mostlyclean: mostlyclean-am mostlyclean-am: mostlyclean-generic mostlyclean-libtool pdf: pdf-am pdf-am: ps: ps-am ps-am: uninstall-am: .MAKE: check-am install-am install-strip .PHONY: all all-am check check-TESTS check-am clean clean-generic \ clean-libtool distclean distclean-generic distclean-libtool \ distdir dvi dvi-am html html-am info info-am install \ install-am install-data install-data-am install-dvi \ install-dvi-am install-exec install-exec-am install-html \ install-html-am install-info install-info-am install-man \ install-pdf install-pdf-am install-ps install-ps-am \ install-strip installcheck installcheck-am installdirs \ maintainer-clean maintainer-clean-generic mostlyclean \ mostlyclean-generic mostlyclean-libtool pdf pdf-am ps ps-am \ uninstall uninstall-am wrapset.api.update: $(WRAPSET_TESTS_ENV) $(DEV_ENV) $(GUILE) -e update-api -s $(srcdir)/wrapset.scm %.check: % $(TESTS_ENVIRONMENT) $(srcdir)/$* # Tell versions [3.59,3.63) of GNU make to not export all variables. # Otherwise a system limit (for SysV at least) may be exceeded. .NOEXPORT: guile-gnome-platform-2.16.2/libgnome/tests/wrapset.api0000644000175000017500000000464211670374303023314 0ustar00wingowingo00000000000000(module-api (version 1 0) ((gnome gnome) (uses-interfaces (gnome gw libgnome)) (typed-exports (gnome-program-init procedure (arity 2 0 #t)))) ((gnome gobject generics) (uses-interfaces) (typed-exports (block generic ( )) (connect generic ( )) (connect-after generic ( )) (connected? generic ( )) (create-signal generic ( )) (disconnect generic ( )) (emit generic ( . )) (find-property generic ( )) (get generic ( )) (get-properties generic ()) (get-property-names generic ()) (get-signals generic ()) (invoke generic ( . )) (set generic ( )) (unblock generic ( )))) ((gnome gw generics) (uses-interfaces (gnome gobject generics)) (typed-exports)) ((gnome gw libgnome) (uses-interfaces (gnome gw generics)) (typed-exports (%gnome-program-init procedure (arity 0 0 #t)) (gnome-gconf-get-app-settings-relative procedure (arity 0 0 #t)) (gnome-gconf-get-gnome-libs-settings-relative procedure (arity 0 0 #t)) (gnome-help-display procedure (arity 2 0 #f)) (gnome-help-display-desktop procedure (arity 4 0 #f)) (gnome-help-display-uri procedure (arity 1 0 #f)) (gnome-help-display-with-doc-id procedure (arity 4 0 #f)) (gnome-program-get procedure (arity 0 0 #t)) (gnome-program-get-app-id procedure (arity 0 0 #t)) (gnome-program-get-app-version procedure (arity 0 0 #t)) (gnome-program-get-human-readable-name procedure (arity 0 0 #t)) (gnome-sound-init procedure (arity 0 0 #t)) (gnome-sound-play procedure (arity 0 0 #t)) (gnome-sound-sample-load procedure (arity 0 0 #t)) (gnome-sound-shutdown procedure (arity 0 0 #t)) (gnome-url-show procedure (arity 1 0 #f)) (gnome-user-accels-dir-get procedure (arity 0 0 #t)) (gnome-user-dir-get procedure (arity 0 0 #t)) (gnome-user-private-dir-get procedure (arity 0 0 #t))))) guile-gnome-platform-2.16.2/libgnome/gnome/0000755000175000017500000000000011752546504021076 5ustar00wingowingo00000000000000guile-gnome-platform-2.16.2/libgnome/gnome/gw/0000755000175000017500000000000011752546504021513 5ustar00wingowingo00000000000000guile-gnome-platform-2.16.2/libgnome/gnome/gw/Makefile.am0000644000175000017500000000170311670374303023543 0ustar00wingowingo00000000000000include $(top_srcdir)/common.mk guilegwmodule_DATA = libgnome-spec.scm libgnome.scm EXTRA_DIST = libgnome-spec.scm # There is one shared library for each wrapset. Each is produced by # g-wrap, but also may contain some hand-coded routines. guilegnomelib_LTLIBRARIES = libgw-guile-gnome-libgnome.la ######################################################################## ## libgnome nodist_libgw_guile_gnome_libgnome_la_SOURCES = guile-gnome-gw-libgnome.c libgw_guile_gnome_libgnome_la_SOURCES = gnome-support.c gnome-support.h libgw_guile_gnome_libgnome_la_CFLAGS = $(GUILE_GLIB_CFLAGS) \ $(AM_CFLAGS) $(LIBGNOME_CFLAGS) $(GUILE_CFLAGS) \ $(G_WRAP_CFLAGS) libgw_guile_gnome_libgnome_la_LIBADD = $(LIBGNOME_LIBS) $(GUILE_LIBS) \ $(G_WRAP_LIBS) $(GUILE_GLIB_LIBS) libgw_guile_gnome_libgnome_la_LDFLAGS = -module CLEANFILES = $(wildcard gnome-*.log) \ $(wildcard guile-gnome-gw-libgnome.*) libgnome.scm BUILT_SOURCES = guile-gnome-gw-libgnome.c guile-gnome-platform-2.16.2/libgnome/gnome/gw/libgnome-spec.scm0000644000175000017500000000410311670374303024734 0ustar00wingowingo00000000000000;; guile-gnome ;; Copyright (C) 2003,2004 Andy Wingo ;; This program is free software; you can redistribute it and/or ;; modify it under the terms of the GNU General Public License as ;; published by the Free Software Foundation; either version 2 of ;; the License, or (at your option) any later version. ;; ;; This program is distributed in the hope that it will be useful, ;; but WITHOUT ANY WARRANTY; without even the implied warranty of ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the ;; GNU General Public License for more details. ;; ;; You should have received a copy of the GNU General Public License ;; along with this program; if not, contact: ;; ;; Free Software Foundation Voice: +1-617-542-5942 ;; 59 Temple Place - Suite 330 Fax: +1-617-542-2652 ;; Boston, MA 02111-1307, USA gnu@gnu.org ;;; Commentary: ;; ;;g-wrap specification for libgnome. ;; ;;; Code: (define-module (gnome gw libgnome-spec) #:use-module (oop goops) #:use-module (gnome gw support g-wrap) #:use-module (gnome gw gobject-spec) #:use-module (gnome gw support gobject) #:use-module (gnome gw support defs)) (define-class () #:id 'gnome-libgnome #:dependencies '(standard gnome-glib gnome-gobject)) (define-method (initialize (ws ) initargs) (next-method ws (append '(#:module (gnome gw libgnome)) initargs)) (load-defs-with-overrides ws "gnome/defs/libgnome.defs")) (define-method (global-declarations-cg (self )) (list (next-method) "#include \n" "#include \n" "#include \"gnome-support.h\"\n")) (define-method (client-global-declarations-cg (self )) (list (next-method) "#include \n" "#include \n")) guile-gnome-platform-2.16.2/libgnome/gnome/gw/Makefile.in0000644000175000017500000006624211752520710023561 0ustar00wingowingo00000000000000# Makefile.in generated by automake 1.11.5 from Makefile.am. # @configure_input@ # Copyright (C) 1994, 1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, # 2003, 2004, 2005, 2006, 2007, 2008, 2009, 2010, 2011 Free Software # Foundation, Inc. # This Makefile.in is free software; the Free Software Foundation # gives unlimited permission to copy and/or distribute it, # with or without modifications, as long as this notice is preserved. # This program is distributed in the hope that it will be useful, # but WITHOUT ANY WARRANTY, to the extent permitted by law; without # even the implied warranty of MERCHANTABILITY or FITNESS FOR A # PARTICULAR PURPOSE. @SET_MAKE@ # guile-gnome # Copyright (C) 2003,2004,2009,2012 Free Software Foundation, Inc. # This program is free software; you can redistribute it and/or # modify it under the terms of the GNU General Public License as # published by the Free Software Foundation; either version 2 of # the License, or (at your option) any later version. # This program is distributed in the hope that it will be useful, # but WITHOUT ANY WARRANTY; without even the implied warranty of # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the # GNU General Public License for more details. # You should have received a copy of the GNU General Public License # along with this program; if not, contact: # Free Software Foundation Voice: +1-617-542-5942 # 59 Temple Place - Suite 330 Fax: +1-617-542-2652 # Boston, MA 02111-1307, USA gnu@gnu.org # # Makefile snippet # VPATH = @srcdir@ am__make_dryrun = \ { \ am__dry=no; \ case $$MAKEFLAGS in \ *\\[\ \ ]*) \ echo 'am--echo: ; @echo "AM" OK' | $(MAKE) -f - 2>/dev/null \ | grep '^AM OK$$' >/dev/null || am__dry=yes;; \ *) \ for am__flg in $$MAKEFLAGS; do \ case $$am__flg in \ *=*|--*) ;; \ *n*) am__dry=yes; break;; \ esac; \ done;; \ esac; \ test $$am__dry = yes; \ } pkgdatadir = $(datadir)/@PACKAGE@ pkgincludedir = $(includedir)/@PACKAGE@ pkglibdir = $(libdir)/@PACKAGE@ pkglibexecdir = $(libexecdir)/@PACKAGE@ am__cd = CDPATH="$${ZSH_VERSION+.}$(PATH_SEPARATOR)" && cd install_sh_DATA = $(install_sh) -c -m 644 install_sh_PROGRAM = $(install_sh) -c install_sh_SCRIPT = $(install_sh) -c INSTALL_HEADER = $(INSTALL_DATA) transform = $(program_transform_name) NORMAL_INSTALL = : PRE_INSTALL = : POST_INSTALL = : NORMAL_UNINSTALL = : PRE_UNINSTALL = : POST_UNINSTALL = : build_triplet = @build@ host_triplet = @host@ DIST_COMMON = $(srcdir)/Makefile.am $(srcdir)/Makefile.in \ $(top_srcdir)/common.mk subdir = libgnome/gnome/gw ACLOCAL_M4 = $(top_srcdir)/aclocal.m4 am__aclocal_m4_deps = $(top_srcdir)/configure.ac am__configure_deps = $(am__aclocal_m4_deps) $(CONFIGURE_DEPENDENCIES) \ $(ACLOCAL_M4) mkinstalldirs = $(install_sh) -d CONFIG_HEADER = $(top_builddir)/config.h CONFIG_CLEAN_FILES = CONFIG_CLEAN_VPATH_FILES = am__vpath_adj_setup = srcdirstrip=`echo "$(srcdir)" | sed 's|.|.|g'`; am__vpath_adj = case $$p in \ $(srcdir)/*) f=`echo "$$p" | sed "s|^$$srcdirstrip/||"`;; \ *) f=$$p;; \ esac; am__strip_dir = f=`echo $$p | sed -e 's|^.*/||'`; am__install_max = 40 am__nobase_strip_setup = \ srcdirstrip=`echo "$(srcdir)" | sed 's/[].[^$$\\*|]/\\\\&/g'` am__nobase_strip = \ for p in $$list; do echo "$$p"; done | sed -e "s|$$srcdirstrip/||" am__nobase_list = $(am__nobase_strip_setup); \ for p in $$list; do echo "$$p $$p"; done | \ sed "s| $$srcdirstrip/| |;"' / .*\//!s/ .*/ ./; s,\( .*\)/[^/]*$$,\1,' | \ $(AWK) 'BEGIN { files["."] = "" } { files[$$2] = files[$$2] " " $$1; \ if (++n[$$2] == $(am__install_max)) \ { print $$2, files[$$2]; n[$$2] = 0; files[$$2] = "" } } \ END { for (dir in files) print dir, files[dir] }' am__base_list = \ sed '$$!N;$$!N;$$!N;$$!N;$$!N;$$!N;$$!N;s/\n/ /g' | \ sed '$$!N;$$!N;$$!N;$$!N;s/\n/ /g' am__uninstall_files_from_dir = { \ test -z "$$files" \ || { test ! -d "$$dir" && test ! -f "$$dir" && test ! -r "$$dir"; } \ || { echo " ( cd '$$dir' && rm -f" $$files ")"; \ $(am__cd) "$$dir" && rm -f $$files; }; \ } am__installdirs = "$(DESTDIR)$(guilegnomelibdir)" \ "$(DESTDIR)$(guilegwmoduledir)" LTLIBRARIES = $(guilegnomelib_LTLIBRARIES) am__DEPENDENCIES_1 = libgw_guile_gnome_libgnome_la_DEPENDENCIES = $(am__DEPENDENCIES_1) \ $(am__DEPENDENCIES_1) $(am__DEPENDENCIES_1) \ $(am__DEPENDENCIES_1) am_libgw_guile_gnome_libgnome_la_OBJECTS = \ libgw_guile_gnome_libgnome_la-gnome-support.lo nodist_libgw_guile_gnome_libgnome_la_OBJECTS = \ libgw_guile_gnome_libgnome_la-guile-gnome-gw-libgnome.lo libgw_guile_gnome_libgnome_la_OBJECTS = \ $(am_libgw_guile_gnome_libgnome_la_OBJECTS) \ $(nodist_libgw_guile_gnome_libgnome_la_OBJECTS) libgw_guile_gnome_libgnome_la_LINK = $(LIBTOOL) --tag=CC \ $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=link $(CCLD) \ $(libgw_guile_gnome_libgnome_la_CFLAGS) $(CFLAGS) \ $(libgw_guile_gnome_libgnome_la_LDFLAGS) $(LDFLAGS) -o $@ DEFAULT_INCLUDES = -I.@am__isrc@ -I$(top_builddir) depcomp = $(SHELL) $(top_srcdir)/build-aux/depcomp am__depfiles_maybe = depfiles am__mv = mv -f COMPILE = $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(AM_CPPFLAGS) \ $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) LTCOMPILE = $(LIBTOOL) --tag=CC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) \ --mode=compile $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) \ $(AM_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) CCLD = $(CC) LINK = $(LIBTOOL) --tag=CC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) \ --mode=link $(CCLD) $(AM_CFLAGS) $(CFLAGS) $(AM_LDFLAGS) \ $(LDFLAGS) -o $@ SOURCES = $(libgw_guile_gnome_libgnome_la_SOURCES) \ $(nodist_libgw_guile_gnome_libgnome_la_SOURCES) DIST_SOURCES = $(libgw_guile_gnome_libgnome_la_SOURCES) am__can_run_installinfo = \ case $$AM_UPDATE_INFO_DIR in \ n|no|NO) false;; \ *) (install-info --version) >/dev/null 2>&1;; \ esac DATA = $(guilegwmodule_DATA) ETAGS = etags CTAGS = ctags DISTFILES = $(DIST_COMMON) $(DIST_SOURCES) $(TEXINFOS) $(EXTRA_DIST) ACLOCAL = @ACLOCAL@ AG_PKG_CONFIG_PATH = @AG_PKG_CONFIG_PATH@ AMTAR = @AMTAR@ API_VERSION = @API_VERSION@ AR = @AR@ ATK_CFLAGS = @ATK_CFLAGS@ ATK_LIBS = @ATK_LIBS@ AUTOCONF = @AUTOCONF@ AUTOHEADER = @AUTOHEADER@ AUTOMAKE = @AUTOMAKE@ AWK = @AWK@ BONOBO_IDL_DIR = @BONOBO_IDL_DIR@ CANVAS_CFLAGS = @CANVAS_CFLAGS@ CANVAS_LIBS = @CANVAS_LIBS@ CC = @CC@ CCDEPMODE = @CCDEPMODE@ CFLAGS = @CFLAGS@ CORBA_CFLAGS = @CORBA_CFLAGS@ CORBA_LIBS = @CORBA_LIBS@ CPP = @CPP@ CPPFLAGS = @CPPFLAGS@ CYGPATH_W = @CYGPATH_W@ DEFS = @DEFS@ DEPDIR = @DEPDIR@ DLLTOOL = @DLLTOOL@ DSYMUTIL = @DSYMUTIL@ DUMPBIN = @DUMPBIN@ ECHO_C = @ECHO_C@ ECHO_N = @ECHO_N@ ECHO_T = @ECHO_T@ EGREP = @EGREP@ EXEEXT = @EXEEXT@ FGREP = @FGREP@ GCONF_CFLAGS = @GCONF_CFLAGS@ GCONF_LIBS = @GCONF_LIBS@ GDK_CFLAGS = @GDK_CFLAGS@ GDK_LIBS = @GDK_LIBS@ GDK_PIXBUF_CFLAGS = @GDK_PIXBUF_CFLAGS@ GDK_PIXBUF_LIBS = @GDK_PIXBUF_LIBS@ GLIB_CFLAGS = @GLIB_CFLAGS@ GLIB_LIBS = @GLIB_LIBS@ GNOMEUI_DEPRECATION_FLAGS = @GNOMEUI_DEPRECATION_FLAGS@ GNOME_VFS_CFLAGS = @GNOME_VFS_CFLAGS@ GNOME_VFS_DEPRECATED_CFLAGS = @GNOME_VFS_DEPRECATED_CFLAGS@ GNOME_VFS_LIBS = @GNOME_VFS_LIBS@ GOBJECT_CFLAGS = @GOBJECT_CFLAGS@ GOBJECT_LIBS = @GOBJECT_LIBS@ GREP = @GREP@ GTHREAD_CFLAGS = @GTHREAD_CFLAGS@ GTHREAD_LIBS = @GTHREAD_LIBS@ GTK_CFLAGS = @GTK_CFLAGS@ GTK_DEPRECATED_CFLAGS = @GTK_DEPRECATED_CFLAGS@ GTK_LIBS = @GTK_LIBS@ GUILE_CAIRO_CFLAGS = @GUILE_CAIRO_CFLAGS@ GUILE_CAIRO_LIBS = @GUILE_CAIRO_LIBS@ GUILE_CFLAGS = @GUILE_CFLAGS@ GUILE_EFFECTIVE_VERSION = @GUILE_EFFECTIVE_VERSION@ GUILE_GLIB_CFLAGS = @GUILE_GLIB_CFLAGS@ GUILE_GLIB_LIBS = @GUILE_GLIB_LIBS@ GUILE_LIBS = @GUILE_LIBS@ G_WRAP_CFLAGS = @G_WRAP_CFLAGS@ G_WRAP_LIBS = @G_WRAP_LIBS@ G_WRAP_LIB_DIR = @G_WRAP_LIB_DIR@ G_WRAP_MODULE_DIR = @G_WRAP_MODULE_DIR@ INSTALL = @INSTALL@ INSTALL_DATA = @INSTALL_DATA@ INSTALL_PROGRAM = @INSTALL_PROGRAM@ INSTALL_SCRIPT = @INSTALL_SCRIPT@ INSTALL_STRIP_PROGRAM = @INSTALL_STRIP_PROGRAM@ LD = @LD@ LDFLAGS = @LDFLAGS@ LIBGLADE_CFLAGS = @LIBGLADE_CFLAGS@ LIBGLADE_LIBS = @LIBGLADE_LIBS@ LIBGNOMEUI_CFLAGS = @LIBGNOMEUI_CFLAGS@ LIBGNOMEUI_LIBS = @LIBGNOMEUI_LIBS@ LIBGNOME_CFLAGS = @LIBGNOME_CFLAGS@ LIBGNOME_LIBS = @LIBGNOME_LIBS@ LIBOBJS = @LIBOBJS@ LIBS = @LIBS@ LIBTOOL = @LIBTOOL@ LIPO = @LIPO@ LN_S = @LN_S@ LTLIBOBJS = @LTLIBOBJS@ MAKEINFO = @MAKEINFO@ MANIFEST_TOOL = @MANIFEST_TOOL@ MKDIR_P = @MKDIR_P@ NM = @NM@ NMEDIT = @NMEDIT@ OBJDUMP = @OBJDUMP@ OBJEXT = @OBJEXT@ ORBIT_IDL = @ORBIT_IDL@ OTOOL = @OTOOL@ OTOOL64 = @OTOOL64@ PACKAGE = @PACKAGE@ PACKAGE_BUGREPORT = @PACKAGE_BUGREPORT@ PACKAGE_NAME = @PACKAGE_NAME@ PACKAGE_STRING = @PACKAGE_STRING@ PACKAGE_TARNAME = @PACKAGE_TARNAME@ PACKAGE_URL = @PACKAGE_URL@ PACKAGE_VERSION = @PACKAGE_VERSION@ PANGOCAIRO_CFLAGS = @PANGOCAIRO_CFLAGS@ PANGOCAIRO_LIBS = @PANGOCAIRO_LIBS@ PANGO_CFLAGS = @PANGO_CFLAGS@ PANGO_LIBS = @PANGO_LIBS@ PATH_SEPARATOR = @PATH_SEPARATOR@ PKG_CONFIG = @PKG_CONFIG@ PKG_CONFIG_LIBDIR = @PKG_CONFIG_LIBDIR@ PKG_CONFIG_PATH = @PKG_CONFIG_PATH@ RANLIB = @RANLIB@ SED = @SED@ SET_MAKE = @SET_MAKE@ SHELL = @SHELL@ STRIP = @STRIP@ VERSION = @VERSION@ WARN_CFLAGS = @WARN_CFLAGS@ abs_builddir = @abs_builddir@ abs_srcdir = @abs_srcdir@ abs_top_builddir = @abs_top_builddir@ abs_top_srcdir = @abs_top_srcdir@ ac_ct_AR = @ac_ct_AR@ ac_ct_CC = @ac_ct_CC@ ac_ct_DUMPBIN = @ac_ct_DUMPBIN@ am__include = @am__include@ am__leading_dot = @am__leading_dot@ am__quote = @am__quote@ am__tar = @am__tar@ am__untar = @am__untar@ bindir = @bindir@ build = @build@ build_alias = @build_alias@ build_cpu = @build_cpu@ build_os = @build_os@ build_vendor = @build_vendor@ builddir = @builddir@ datadir = @datadir@ datarootdir = @datarootdir@ docdir = @docdir@ dvidir = @dvidir@ exec_prefix = @exec_prefix@ host = @host@ host_alias = @host_alias@ host_cpu = @host_cpu@ host_os = @host_os@ host_vendor = @host_vendor@ htmldir = @htmldir@ includedir = @includedir@ infodir = @infodir@ install_sh = @install_sh@ libdir = @libdir@ libexecdir = @libexecdir@ localedir = @localedir@ localstatedir = @localstatedir@ mandir = @mandir@ mkdir_p = @mkdir_p@ oldincludedir = @oldincludedir@ pdfdir = @pdfdir@ prefix = @prefix@ program_transform_name = @program_transform_name@ psdir = @psdir@ sbindir = @sbindir@ sharedstatedir = @sharedstatedir@ srcdir = @srcdir@ sysconfdir = @sysconfdir@ target_alias = @target_alias@ top_build_prefix = @top_build_prefix@ top_builddir = @top_builddir@ top_srcdir = @top_srcdir@ guilegnomedir = $(datadir)/guile-gnome-@API_VERSION@ guilemoduledir = $(guilegnomedir)/gnome guilegwmoduledir = $(guilegnomedir)/gnome/gw guilegnomelibdir = $(libdir)/guile-gnome-@API_VERSION@ AM_CFLAGS = -I. -I$(srcdir) $(WARN_CFLAGS) $(DEBUG_CFLAGS) # For overriding from the command line (e.g. --debug) GUILE_FLAGS = SUFFIXES = .x .doc GUILE_SNARF_CFLAGS = $(DEFS) $(AM_CFLAGS) $(GUILE_CFLAGS) $(G_WRAP_CFLAGS) PACKAGES = atk cairo corba defs gconf glib gnome-vfs gtk libglade libgnome libgnomecanvas libgnomeui pango SOURCE_GUILE_PATH = $(shell echo $(addprefix $(top_srcdir)/,$(PACKAGES)) | sed -e 's/ /:/g'):$(srcdir) BUILD_GUILE_PATH = $(if $(filter-out $(top_srcdir),$(top_builddir)),$(shell echo -n $(addprefix $(top_builddir)/,$(PACKAGES)): | sed -e 's/ /:/g'),) GUILE_LOAD_PATH := $(BUILD_GUILE_PATH)$(SOURCE_GUILE_PATH):${G_WRAP_MODULE_DIR}:${GUILE_LOAD_PATH} # Real gnu make foo packages = $(filter-out %-uninstalled,$(patsubst %.pc.in,%,$(notdir $(wildcard $(srcdir)/*.pc.in)))) pcifiles = $(patsubst %,%-@API_VERSION@.pc,$(packages)) pcufiles = $(patsubst %,%-@API_VERSION@-uninstalled.pc,$(packages)) guilegwmodule_DATA = libgnome-spec.scm libgnome.scm EXTRA_DIST = libgnome-spec.scm # There is one shared library for each wrapset. Each is produced by # g-wrap, but also may contain some hand-coded routines. guilegnomelib_LTLIBRARIES = libgw-guile-gnome-libgnome.la ######################################################################## nodist_libgw_guile_gnome_libgnome_la_SOURCES = guile-gnome-gw-libgnome.c libgw_guile_gnome_libgnome_la_SOURCES = gnome-support.c gnome-support.h libgw_guile_gnome_libgnome_la_CFLAGS = $(GUILE_GLIB_CFLAGS) \ $(AM_CFLAGS) $(LIBGNOME_CFLAGS) $(GUILE_CFLAGS) \ $(G_WRAP_CFLAGS) libgw_guile_gnome_libgnome_la_LIBADD = $(LIBGNOME_LIBS) $(GUILE_LIBS) \ $(G_WRAP_LIBS) $(GUILE_GLIB_LIBS) libgw_guile_gnome_libgnome_la_LDFLAGS = -module CLEANFILES = $(wildcard gnome-*.log) \ $(wildcard guile-gnome-gw-libgnome.*) libgnome.scm BUILT_SOURCES = guile-gnome-gw-libgnome.c all: $(BUILT_SOURCES) $(MAKE) $(AM_MAKEFLAGS) all-am .SUFFIXES: .SUFFIXES: .x .doc .c .lo .o .obj $(srcdir)/Makefile.in: $(srcdir)/Makefile.am $(top_srcdir)/common.mk $(am__configure_deps) @for dep in $?; do \ case '$(am__configure_deps)' in \ *$$dep*) \ ( cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh ) \ && { if test -f $@; then exit 0; else break; fi; }; \ exit 1;; \ esac; \ done; \ echo ' cd $(top_srcdir) && $(AUTOMAKE) --gnu libgnome/gnome/gw/Makefile'; \ $(am__cd) $(top_srcdir) && \ $(AUTOMAKE) --gnu libgnome/gnome/gw/Makefile .PRECIOUS: Makefile Makefile: $(srcdir)/Makefile.in $(top_builddir)/config.status @case '$?' in \ *config.status*) \ cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh;; \ *) \ echo ' cd $(top_builddir) && $(SHELL) ./config.status $(subdir)/$@ $(am__depfiles_maybe)'; \ cd $(top_builddir) && $(SHELL) ./config.status $(subdir)/$@ $(am__depfiles_maybe);; \ esac; $(top_srcdir)/common.mk: $(top_builddir)/config.status: $(top_srcdir)/configure $(CONFIG_STATUS_DEPENDENCIES) cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh $(top_srcdir)/configure: $(am__configure_deps) cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh $(ACLOCAL_M4): $(am__aclocal_m4_deps) cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh $(am__aclocal_m4_deps): install-guilegnomelibLTLIBRARIES: $(guilegnomelib_LTLIBRARIES) @$(NORMAL_INSTALL) @list='$(guilegnomelib_LTLIBRARIES)'; test -n "$(guilegnomelibdir)" || list=; \ list2=; for p in $$list; do \ if test -f $$p; then \ list2="$$list2 $$p"; \ else :; fi; \ done; \ test -z "$$list2" || { \ echo " $(MKDIR_P) '$(DESTDIR)$(guilegnomelibdir)'"; \ $(MKDIR_P) "$(DESTDIR)$(guilegnomelibdir)" || exit 1; \ echo " $(LIBTOOL) $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=install $(INSTALL) $(INSTALL_STRIP_FLAG) $$list2 '$(DESTDIR)$(guilegnomelibdir)'"; \ $(LIBTOOL) $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=install $(INSTALL) $(INSTALL_STRIP_FLAG) $$list2 "$(DESTDIR)$(guilegnomelibdir)"; \ } uninstall-guilegnomelibLTLIBRARIES: @$(NORMAL_UNINSTALL) @list='$(guilegnomelib_LTLIBRARIES)'; test -n "$(guilegnomelibdir)" || list=; \ for p in $$list; do \ $(am__strip_dir) \ echo " $(LIBTOOL) $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=uninstall rm -f '$(DESTDIR)$(guilegnomelibdir)/$$f'"; \ $(LIBTOOL) $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=uninstall rm -f "$(DESTDIR)$(guilegnomelibdir)/$$f"; \ done clean-guilegnomelibLTLIBRARIES: -test -z "$(guilegnomelib_LTLIBRARIES)" || rm -f $(guilegnomelib_LTLIBRARIES) @list='$(guilegnomelib_LTLIBRARIES)'; for p in $$list; do \ dir="`echo $$p | sed -e 's|/[^/]*$$||'`"; \ test "$$dir" != "$$p" || dir=.; \ echo "rm -f \"$${dir}/so_locations\""; \ rm -f "$${dir}/so_locations"; \ done libgw-guile-gnome-libgnome.la: $(libgw_guile_gnome_libgnome_la_OBJECTS) $(libgw_guile_gnome_libgnome_la_DEPENDENCIES) $(EXTRA_libgw_guile_gnome_libgnome_la_DEPENDENCIES) $(libgw_guile_gnome_libgnome_la_LINK) -rpath $(guilegnomelibdir) $(libgw_guile_gnome_libgnome_la_OBJECTS) $(libgw_guile_gnome_libgnome_la_LIBADD) $(LIBS) mostlyclean-compile: -rm -f *.$(OBJEXT) distclean-compile: -rm -f *.tab.c @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/libgw_guile_gnome_libgnome_la-gnome-support.Plo@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/libgw_guile_gnome_libgnome_la-guile-gnome-gw-libgnome.Plo@am__quote@ .c.o: @am__fastdepCC_TRUE@ $(COMPILE) -MT $@ -MD -MP -MF $(DEPDIR)/$*.Tpo -c -o $@ $< @am__fastdepCC_TRUE@ $(am__mv) $(DEPDIR)/$*.Tpo $(DEPDIR)/$*.Po @AMDEP_TRUE@@am__fastdepCC_FALSE@ source='$<' object='$@' libtool=no @AMDEPBACKSLASH@ @AMDEP_TRUE@@am__fastdepCC_FALSE@ DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@ @am__fastdepCC_FALSE@ $(COMPILE) -c $< .c.obj: @am__fastdepCC_TRUE@ $(COMPILE) -MT $@ -MD -MP -MF $(DEPDIR)/$*.Tpo -c -o $@ `$(CYGPATH_W) '$<'` @am__fastdepCC_TRUE@ $(am__mv) $(DEPDIR)/$*.Tpo $(DEPDIR)/$*.Po @AMDEP_TRUE@@am__fastdepCC_FALSE@ source='$<' object='$@' libtool=no @AMDEPBACKSLASH@ @AMDEP_TRUE@@am__fastdepCC_FALSE@ DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@ @am__fastdepCC_FALSE@ $(COMPILE) -c `$(CYGPATH_W) '$<'` .c.lo: @am__fastdepCC_TRUE@ $(LTCOMPILE) -MT $@ -MD -MP -MF $(DEPDIR)/$*.Tpo -c -o $@ $< @am__fastdepCC_TRUE@ $(am__mv) $(DEPDIR)/$*.Tpo $(DEPDIR)/$*.Plo @AMDEP_TRUE@@am__fastdepCC_FALSE@ source='$<' object='$@' libtool=yes @AMDEPBACKSLASH@ @AMDEP_TRUE@@am__fastdepCC_FALSE@ DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@ @am__fastdepCC_FALSE@ $(LTCOMPILE) -c -o $@ $< libgw_guile_gnome_libgnome_la-gnome-support.lo: gnome-support.c @am__fastdepCC_TRUE@ $(LIBTOOL) --tag=CC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(AM_CPPFLAGS) $(CPPFLAGS) $(libgw_guile_gnome_libgnome_la_CFLAGS) $(CFLAGS) -MT libgw_guile_gnome_libgnome_la-gnome-support.lo -MD -MP -MF $(DEPDIR)/libgw_guile_gnome_libgnome_la-gnome-support.Tpo -c -o libgw_guile_gnome_libgnome_la-gnome-support.lo `test -f 'gnome-support.c' || echo '$(srcdir)/'`gnome-support.c @am__fastdepCC_TRUE@ $(am__mv) $(DEPDIR)/libgw_guile_gnome_libgnome_la-gnome-support.Tpo $(DEPDIR)/libgw_guile_gnome_libgnome_la-gnome-support.Plo @AMDEP_TRUE@@am__fastdepCC_FALSE@ source='gnome-support.c' object='libgw_guile_gnome_libgnome_la-gnome-support.lo' libtool=yes @AMDEPBACKSLASH@ @AMDEP_TRUE@@am__fastdepCC_FALSE@ DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@ @am__fastdepCC_FALSE@ $(LIBTOOL) --tag=CC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(AM_CPPFLAGS) $(CPPFLAGS) $(libgw_guile_gnome_libgnome_la_CFLAGS) $(CFLAGS) -c -o libgw_guile_gnome_libgnome_la-gnome-support.lo `test -f 'gnome-support.c' || echo '$(srcdir)/'`gnome-support.c libgw_guile_gnome_libgnome_la-guile-gnome-gw-libgnome.lo: guile-gnome-gw-libgnome.c @am__fastdepCC_TRUE@ $(LIBTOOL) --tag=CC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(AM_CPPFLAGS) $(CPPFLAGS) $(libgw_guile_gnome_libgnome_la_CFLAGS) $(CFLAGS) -MT libgw_guile_gnome_libgnome_la-guile-gnome-gw-libgnome.lo -MD -MP -MF $(DEPDIR)/libgw_guile_gnome_libgnome_la-guile-gnome-gw-libgnome.Tpo -c -o libgw_guile_gnome_libgnome_la-guile-gnome-gw-libgnome.lo `test -f 'guile-gnome-gw-libgnome.c' || echo '$(srcdir)/'`guile-gnome-gw-libgnome.c @am__fastdepCC_TRUE@ $(am__mv) $(DEPDIR)/libgw_guile_gnome_libgnome_la-guile-gnome-gw-libgnome.Tpo $(DEPDIR)/libgw_guile_gnome_libgnome_la-guile-gnome-gw-libgnome.Plo @AMDEP_TRUE@@am__fastdepCC_FALSE@ source='guile-gnome-gw-libgnome.c' object='libgw_guile_gnome_libgnome_la-guile-gnome-gw-libgnome.lo' libtool=yes @AMDEPBACKSLASH@ @AMDEP_TRUE@@am__fastdepCC_FALSE@ DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@ @am__fastdepCC_FALSE@ $(LIBTOOL) --tag=CC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(AM_CPPFLAGS) $(CPPFLAGS) $(libgw_guile_gnome_libgnome_la_CFLAGS) $(CFLAGS) -c -o libgw_guile_gnome_libgnome_la-guile-gnome-gw-libgnome.lo `test -f 'guile-gnome-gw-libgnome.c' || echo '$(srcdir)/'`guile-gnome-gw-libgnome.c mostlyclean-libtool: -rm -f *.lo clean-libtool: -rm -rf .libs _libs install-guilegwmoduleDATA: $(guilegwmodule_DATA) @$(NORMAL_INSTALL) @list='$(guilegwmodule_DATA)'; test -n "$(guilegwmoduledir)" || list=; \ if test -n "$$list"; then \ echo " $(MKDIR_P) '$(DESTDIR)$(guilegwmoduledir)'"; \ $(MKDIR_P) "$(DESTDIR)$(guilegwmoduledir)" || exit 1; \ fi; \ for p in $$list; do \ if test -f "$$p"; then d=; else d="$(srcdir)/"; fi; \ echo "$$d$$p"; \ done | $(am__base_list) | \ while read files; do \ echo " $(INSTALL_DATA) $$files '$(DESTDIR)$(guilegwmoduledir)'"; \ $(INSTALL_DATA) $$files "$(DESTDIR)$(guilegwmoduledir)" || exit $$?; \ done uninstall-guilegwmoduleDATA: @$(NORMAL_UNINSTALL) @list='$(guilegwmodule_DATA)'; test -n "$(guilegwmoduledir)" || list=; \ files=`for p in $$list; do echo $$p; done | sed -e 's|^.*/||'`; \ dir='$(DESTDIR)$(guilegwmoduledir)'; $(am__uninstall_files_from_dir) ID: $(HEADERS) $(SOURCES) $(LISP) $(TAGS_FILES) list='$(SOURCES) $(HEADERS) $(LISP) $(TAGS_FILES)'; \ unique=`for i in $$list; do \ if test -f "$$i"; then echo $$i; else echo $(srcdir)/$$i; fi; \ done | \ $(AWK) '{ files[$$0] = 1; nonempty = 1; } \ END { if (nonempty) { for (i in files) print i; }; }'`; \ mkid -fID $$unique tags: TAGS TAGS: $(HEADERS) $(SOURCES) $(TAGS_DEPENDENCIES) \ $(TAGS_FILES) $(LISP) set x; \ here=`pwd`; \ list='$(SOURCES) $(HEADERS) $(LISP) $(TAGS_FILES)'; \ unique=`for i in $$list; do \ if test -f "$$i"; then echo $$i; else echo $(srcdir)/$$i; fi; \ done | \ $(AWK) '{ files[$$0] = 1; nonempty = 1; } \ END { if (nonempty) { for (i in files) print i; }; }'`; \ shift; \ if test -z "$(ETAGS_ARGS)$$*$$unique"; then :; else \ test -n "$$unique" || unique=$$empty_fix; \ if test $$# -gt 0; then \ $(ETAGS) $(ETAGSFLAGS) $(AM_ETAGSFLAGS) $(ETAGS_ARGS) \ "$$@" $$unique; \ else \ $(ETAGS) $(ETAGSFLAGS) $(AM_ETAGSFLAGS) $(ETAGS_ARGS) \ $$unique; \ fi; \ fi ctags: CTAGS CTAGS: $(HEADERS) $(SOURCES) $(TAGS_DEPENDENCIES) \ $(TAGS_FILES) $(LISP) list='$(SOURCES) $(HEADERS) $(LISP) $(TAGS_FILES)'; \ unique=`for i in $$list; do \ if test -f "$$i"; then echo $$i; else echo $(srcdir)/$$i; fi; \ done | \ $(AWK) '{ files[$$0] = 1; nonempty = 1; } \ END { if (nonempty) { for (i in files) print i; }; }'`; \ test -z "$(CTAGS_ARGS)$$unique" \ || $(CTAGS) $(CTAGSFLAGS) $(AM_CTAGSFLAGS) $(CTAGS_ARGS) \ $$unique GTAGS: here=`$(am__cd) $(top_builddir) && pwd` \ && $(am__cd) $(top_srcdir) \ && gtags -i $(GTAGS_ARGS) "$$here" distclean-tags: -rm -f TAGS ID GTAGS GRTAGS GSYMS GPATH tags distdir: $(DISTFILES) @srcdirstrip=`echo "$(srcdir)" | sed 's/[].[^$$\\*]/\\\\&/g'`; \ topsrcdirstrip=`echo "$(top_srcdir)" | sed 's/[].[^$$\\*]/\\\\&/g'`; \ list='$(DISTFILES)'; \ dist_files=`for file in $$list; do echo $$file; done | \ sed -e "s|^$$srcdirstrip/||;t" \ -e "s|^$$topsrcdirstrip/|$(top_builddir)/|;t"`; \ case $$dist_files in \ */*) $(MKDIR_P) `echo "$$dist_files" | \ sed '/\//!d;s|^|$(distdir)/|;s,/[^/]*$$,,' | \ sort -u` ;; \ esac; \ for file in $$dist_files; do \ if test -f $$file || test -d $$file; then d=.; else d=$(srcdir); fi; \ if test -d $$d/$$file; then \ dir=`echo "/$$file" | sed -e 's,/[^/]*$$,,'`; \ if test -d "$(distdir)/$$file"; then \ find "$(distdir)/$$file" -type d ! -perm -700 -exec chmod u+rwx {} \;; \ fi; \ if test -d $(srcdir)/$$file && test $$d != $(srcdir); then \ cp -fpR $(srcdir)/$$file "$(distdir)$$dir" || exit 1; \ find "$(distdir)/$$file" -type d ! -perm -700 -exec chmod u+rwx {} \;; \ fi; \ cp -fpR $$d/$$file "$(distdir)$$dir" || exit 1; \ else \ test -f "$(distdir)/$$file" \ || cp -p $$d/$$file "$(distdir)/$$file" \ || exit 1; \ fi; \ done check-am: all-am check: $(BUILT_SOURCES) $(MAKE) $(AM_MAKEFLAGS) check-am all-am: Makefile $(LTLIBRARIES) $(DATA) installdirs: for dir in "$(DESTDIR)$(guilegnomelibdir)" "$(DESTDIR)$(guilegwmoduledir)"; do \ test -z "$$dir" || $(MKDIR_P) "$$dir"; \ done install: $(BUILT_SOURCES) $(MAKE) $(AM_MAKEFLAGS) install-am install-exec: install-exec-am install-data: install-data-am uninstall: uninstall-am install-am: all-am @$(MAKE) $(AM_MAKEFLAGS) install-exec-am install-data-am installcheck: installcheck-am install-strip: if test -z '$(STRIP)'; then \ $(MAKE) $(AM_MAKEFLAGS) INSTALL_PROGRAM="$(INSTALL_STRIP_PROGRAM)" \ install_sh_PROGRAM="$(INSTALL_STRIP_PROGRAM)" INSTALL_STRIP_FLAG=-s \ install; \ else \ $(MAKE) $(AM_MAKEFLAGS) INSTALL_PROGRAM="$(INSTALL_STRIP_PROGRAM)" \ install_sh_PROGRAM="$(INSTALL_STRIP_PROGRAM)" INSTALL_STRIP_FLAG=-s \ "INSTALL_PROGRAM_ENV=STRIPPROG='$(STRIP)'" install; \ fi mostlyclean-generic: clean-generic: -test -z "$(CLEANFILES)" || rm -f $(CLEANFILES) distclean-generic: -test -z "$(CONFIG_CLEAN_FILES)" || rm -f $(CONFIG_CLEAN_FILES) -test . = "$(srcdir)" || test -z "$(CONFIG_CLEAN_VPATH_FILES)" || rm -f $(CONFIG_CLEAN_VPATH_FILES) maintainer-clean-generic: @echo "This command is intended for maintainers to use" @echo "it deletes files that may require special tools to rebuild." -test -z "$(BUILT_SOURCES)" || rm -f $(BUILT_SOURCES) clean: clean-am clean-am: clean-generic clean-guilegnomelibLTLIBRARIES clean-libtool \ mostlyclean-am distclean: distclean-am -rm -rf ./$(DEPDIR) -rm -f Makefile distclean-am: clean-am distclean-compile distclean-generic \ distclean-tags dvi: dvi-am dvi-am: html: html-am html-am: info: info-am info-am: install-data-am: install-guilegnomelibLTLIBRARIES \ install-guilegwmoduleDATA install-dvi: install-dvi-am install-dvi-am: install-exec-am: install-html: install-html-am install-html-am: install-info: install-info-am install-info-am: install-man: install-pdf: install-pdf-am install-pdf-am: install-ps: install-ps-am install-ps-am: installcheck-am: maintainer-clean: maintainer-clean-am -rm -rf ./$(DEPDIR) -rm -f Makefile maintainer-clean-am: distclean-am maintainer-clean-generic mostlyclean: mostlyclean-am mostlyclean-am: mostlyclean-compile mostlyclean-generic \ mostlyclean-libtool pdf: pdf-am pdf-am: ps: ps-am ps-am: uninstall-am: uninstall-guilegnomelibLTLIBRARIES \ uninstall-guilegwmoduleDATA .MAKE: all check install install-am install-strip .PHONY: CTAGS GTAGS all all-am check check-am clean clean-generic \ clean-guilegnomelibLTLIBRARIES clean-libtool ctags distclean \ distclean-compile distclean-generic distclean-libtool \ distclean-tags distdir dvi dvi-am html html-am info info-am \ install install-am install-data install-data-am install-dvi \ install-dvi-am install-exec install-exec-am \ install-guilegnomelibLTLIBRARIES install-guilegwmoduleDATA \ install-html install-html-am install-info install-info-am \ install-man install-pdf install-pdf-am install-ps \ install-ps-am install-strip installcheck installcheck-am \ installdirs maintainer-clean maintainer-clean-generic \ mostlyclean mostlyclean-compile mostlyclean-generic \ mostlyclean-libtool pdf pdf-am ps ps-am tags uninstall \ uninstall-am uninstall-guilegnomelibLTLIBRARIES \ uninstall-guilegwmoduleDATA export GUILE_LOAD_PATH .c.x: guile-snarf $(GUILE_SNARF_CFLAGS) $< > $@ \ || { rm $@; false; } .c.doc: $(CPP) -DSCM_MAGIC_SNARF_DOCS $(GUILE_SNARF_CFLAGS) $< \ | grep -E '(\^\^ {|\^\^ })' > $@ || { rm $@; false; } %.scm guile-gnome-gw-%.c: %-spec.scm guile $(GUILE_FLAGS) -c \ "(debug-set! stack 400000) \ (use-modules (gnome-@API_VERSION@)) \ (use-modules (g-wrap)) \ (use-modules (gnome gw $*-spec)) \ (generate-wrapset 'guile 'gnome-$* \"guile-gnome-gw-$*\")" mv guile-gnome-gw-$*.scm $*.scm %-@API_VERSION@.pc: %.pc cp $< $@ %-@API_VERSION@-uninstalled.pc: %-uninstalled.pc cp $< $@ # Tell versions [3.59,3.63) of GNU make to not export all variables. # Otherwise a system limit (for SysV at least) may be exceeded. .NOEXPORT: guile-gnome-platform-2.16.2/libgnome/gnome/gw/gnome-support.h0000644000175000017500000000236711670374303024506 0ustar00wingowingo00000000000000/* guile-gnome * Copyright (C) 2003,2004 Andy Wingo * * gnome-support.h: Customizations for libgnome wrappers * * This program is free software; you can redistribute it and/or * modify it under the terms of the GNU General Public License as * published by the Free Software Foundation; either version 2 of * the License, or (at your option) any later version. * * This program is distributed in the hope that it will be useful, * but WITHOUT ANY WARRANTY; without even the implied warranty of * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the * GNU General Public License for more details. * * You should have received a copy of the GNU General Public License * along with this program; if not, contact: * * Free Software Foundation Voice: +1-617-542-5942 * 59 Temple Place - Suite 330 Fax: +1-617-542-2652 * Boston, MA 02111-1307, USA gnu@gnu.org */ #include #include GnomeProgram* _wrap_gnome_program_init (const gchar *app_id, const gchar *app_version); guile-gnome-platform-2.16.2/libgnome/gnome/gw/gnome-support.c0000644000175000017500000000353711670374303024501 0ustar00wingowingo00000000000000/* guile-gnome * Copyright (C) 2003 Andy Wingo * * gnome-support.c: Customizations for libgnome wrappers * * This program is free software; you can redistribute it and/or * modify it under the terms of the GNU General Public License as * published by the Free Software Foundation; either version 2 of * the License, or (at your option) any later version. * * This program is distributed in the hope that it will be useful, * but WITHOUT ANY WARRANTY; without even the implied warranty of * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the * GNU General Public License for more details. * * You should have received a copy of the GNU General Public License * along with this program; if not, contact: * * Free Software Foundation Voice: +1-617-542-5942 * 59 Temple Place - Suite 330 Fax: +1-617-542-2652 * Boston, MA 02111-1307, USA gnu@gnu.org */ #include "gnome-support.h" #include "guile-gnome-gobject.h" GnomeProgram* _wrap_gnome_program_init (const gchar *app_id, const gchar *app_version) { GnomeProgram *program; char **argv, **cwalk; int argc, i; SCM args, walk; args = scm_program_arguments (); argc = scm_to_int (scm_length (args)); argv = g_new0 (char*, argc); walk = args; cwalk = argv; while (walk != SCM_EOL) { *cwalk = scm_to_locale_string (SCM_CAR (walk)); cwalk++; walk = SCM_CDR (walk); } program = gnome_program_init (app_id, app_version, LIBGNOME_MODULE, argc, argv, NULL); for (i = 0; i < argc; i++) free (argv[i]); g_free (argv); return program; } guile-gnome-platform-2.16.2/libgnome/gnome/gnome.scm0000644000175000017500000000342111670374303022702 0ustar00wingowingo00000000000000;; guile-gnome ;; Copyright (C) 2003,2004 Andy Wingo ;; This program is free software; you can redistribute it and/or ;; modify it under the terms of the GNU General Public License as ;; published by the Free Software Foundation; either version 2 of ;; the License, or (at your option) any later version. ;; ;; This program is distributed in the hope that it will be useful, ;; but WITHOUT ANY WARRANTY; without even the implied warranty of ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the ;; GNU General Public License for more details. ;; ;; You should have received a copy of the GNU General Public License ;; along with this program; if not, contact: ;; ;; Free Software Foundation Voice: +1-617-542-5942 ;; 59 Temple Place - Suite 330 Fax: +1-617-542-2652 ;; Boston, MA 02111-1307, USA gnu@gnu.org ;;; Commentary: ;; ;;Guile wrappers for libgnome only (not GTK, not libgnomeui, ...). ;; ;;; Code: (define-module (gnome gnome) #:use-module (gnome gobject) #:use-module (gnome gw libgnome) #:use-module (oop goops) #:use-module (gnome gw support modules) #:export (gnome-program-init)) (re-export-modules (gnome gw libgnome)) (define (gnome-program-init name version . properties) (let ((program (%gnome-program-init name version))) (if (not (even? (length properties))) (scm-error 'gruntime-error "Invalid property list: ~A" properties)) (let loop ((props properties)) (if (null? props) program (begin (set program (car props) (cadr props)) (loop (cddr props))))))) guile-gnome-platform-2.16.2/libgnome/gnome/Makefile.am0000644000175000017500000000030211670374303023120 0ustar00wingowingo00000000000000include $(top_srcdir)/common.mk SUBDIRS = overrides guilemodule_DATA = if HAVE_LIBGNOME guilemodule_DATA += gnome.scm SUBDIRS += gw endif EXTRA_DIST = gnome.scm DIST_SUBDIRS = gw overrides guile-gnome-platform-2.16.2/libgnome/gnome/Makefile.in0000644000175000017500000005746111752520707023155 0ustar00wingowingo00000000000000# Makefile.in generated by automake 1.11.5 from Makefile.am. # @configure_input@ # Copyright (C) 1994, 1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, # 2003, 2004, 2005, 2006, 2007, 2008, 2009, 2010, 2011 Free Software # Foundation, Inc. # This Makefile.in is free software; the Free Software Foundation # gives unlimited permission to copy and/or distribute it, # with or without modifications, as long as this notice is preserved. # This program is distributed in the hope that it will be useful, # but WITHOUT ANY WARRANTY, to the extent permitted by law; without # even the implied warranty of MERCHANTABILITY or FITNESS FOR A # PARTICULAR PURPOSE. @SET_MAKE@ # guile-gnome # Copyright (C) 2003,2004,2009,2012 Free Software Foundation, Inc. # This program is free software; you can redistribute it and/or # modify it under the terms of the GNU General Public License as # published by the Free Software Foundation; either version 2 of # the License, or (at your option) any later version. # This program is distributed in the hope that it will be useful, # but WITHOUT ANY WARRANTY; without even the implied warranty of # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the # GNU General Public License for more details. # You should have received a copy of the GNU General Public License # along with this program; if not, contact: # Free Software Foundation Voice: +1-617-542-5942 # 59 Temple Place - Suite 330 Fax: +1-617-542-2652 # Boston, MA 02111-1307, USA gnu@gnu.org # # Makefile snippet # VPATH = @srcdir@ am__make_dryrun = \ { \ am__dry=no; \ case $$MAKEFLAGS in \ *\\[\ \ ]*) \ echo 'am--echo: ; @echo "AM" OK' | $(MAKE) -f - 2>/dev/null \ | grep '^AM OK$$' >/dev/null || am__dry=yes;; \ *) \ for am__flg in $$MAKEFLAGS; do \ case $$am__flg in \ *=*|--*) ;; \ *n*) am__dry=yes; break;; \ esac; \ done;; \ esac; \ test $$am__dry = yes; \ } pkgdatadir = $(datadir)/@PACKAGE@ pkgincludedir = $(includedir)/@PACKAGE@ pkglibdir = $(libdir)/@PACKAGE@ pkglibexecdir = $(libexecdir)/@PACKAGE@ am__cd = CDPATH="$${ZSH_VERSION+.}$(PATH_SEPARATOR)" && cd install_sh_DATA = $(install_sh) -c -m 644 install_sh_PROGRAM = $(install_sh) -c install_sh_SCRIPT = $(install_sh) -c INSTALL_HEADER = $(INSTALL_DATA) transform = $(program_transform_name) NORMAL_INSTALL = : PRE_INSTALL = : POST_INSTALL = : NORMAL_UNINSTALL = : PRE_UNINSTALL = : POST_UNINSTALL = : build_triplet = @build@ host_triplet = @host@ DIST_COMMON = $(srcdir)/Makefile.am $(srcdir)/Makefile.in \ $(top_srcdir)/common.mk @HAVE_LIBGNOME_TRUE@am__append_1 = gnome.scm @HAVE_LIBGNOME_TRUE@am__append_2 = gw subdir = libgnome/gnome ACLOCAL_M4 = $(top_srcdir)/aclocal.m4 am__aclocal_m4_deps = $(top_srcdir)/configure.ac am__configure_deps = $(am__aclocal_m4_deps) $(CONFIGURE_DEPENDENCIES) \ $(ACLOCAL_M4) mkinstalldirs = $(install_sh) -d CONFIG_HEADER = $(top_builddir)/config.h CONFIG_CLEAN_FILES = CONFIG_CLEAN_VPATH_FILES = SOURCES = DIST_SOURCES = RECURSIVE_TARGETS = all-recursive check-recursive dvi-recursive \ html-recursive info-recursive install-data-recursive \ install-dvi-recursive install-exec-recursive \ install-html-recursive install-info-recursive \ install-pdf-recursive install-ps-recursive install-recursive \ installcheck-recursive installdirs-recursive pdf-recursive \ ps-recursive uninstall-recursive am__can_run_installinfo = \ case $$AM_UPDATE_INFO_DIR in \ n|no|NO) false;; \ *) (install-info --version) >/dev/null 2>&1;; \ esac am__vpath_adj_setup = srcdirstrip=`echo "$(srcdir)" | sed 's|.|.|g'`; am__vpath_adj = case $$p in \ $(srcdir)/*) f=`echo "$$p" | sed "s|^$$srcdirstrip/||"`;; \ *) f=$$p;; \ esac; am__strip_dir = f=`echo $$p | sed -e 's|^.*/||'`; am__install_max = 40 am__nobase_strip_setup = \ srcdirstrip=`echo "$(srcdir)" | sed 's/[].[^$$\\*|]/\\\\&/g'` am__nobase_strip = \ for p in $$list; do echo "$$p"; done | sed -e "s|$$srcdirstrip/||" am__nobase_list = $(am__nobase_strip_setup); \ for p in $$list; do echo "$$p $$p"; done | \ sed "s| $$srcdirstrip/| |;"' / .*\//!s/ .*/ ./; s,\( .*\)/[^/]*$$,\1,' | \ $(AWK) 'BEGIN { files["."] = "" } { files[$$2] = files[$$2] " " $$1; \ if (++n[$$2] == $(am__install_max)) \ { print $$2, files[$$2]; n[$$2] = 0; files[$$2] = "" } } \ END { for (dir in files) print dir, files[dir] }' am__base_list = \ sed '$$!N;$$!N;$$!N;$$!N;$$!N;$$!N;$$!N;s/\n/ /g' | \ sed '$$!N;$$!N;$$!N;$$!N;s/\n/ /g' am__uninstall_files_from_dir = { \ test -z "$$files" \ || { test ! -d "$$dir" && test ! -f "$$dir" && test ! -r "$$dir"; } \ || { echo " ( cd '$$dir' && rm -f" $$files ")"; \ $(am__cd) "$$dir" && rm -f $$files; }; \ } am__installdirs = "$(DESTDIR)$(guilemoduledir)" DATA = $(guilemodule_DATA) RECURSIVE_CLEAN_TARGETS = mostlyclean-recursive clean-recursive \ distclean-recursive maintainer-clean-recursive AM_RECURSIVE_TARGETS = $(RECURSIVE_TARGETS:-recursive=) \ $(RECURSIVE_CLEAN_TARGETS:-recursive=) tags TAGS ctags CTAGS \ distdir ETAGS = etags CTAGS = ctags DISTFILES = $(DIST_COMMON) $(DIST_SOURCES) $(TEXINFOS) $(EXTRA_DIST) am__relativize = \ dir0=`pwd`; \ sed_first='s,^\([^/]*\)/.*$$,\1,'; \ sed_rest='s,^[^/]*/*,,'; \ sed_last='s,^.*/\([^/]*\)$$,\1,'; \ sed_butlast='s,/*[^/]*$$,,'; \ while test -n "$$dir1"; do \ first=`echo "$$dir1" | sed -e "$$sed_first"`; \ if test "$$first" != "."; then \ if test "$$first" = ".."; then \ dir2=`echo "$$dir0" | sed -e "$$sed_last"`/"$$dir2"; \ dir0=`echo "$$dir0" | sed -e "$$sed_butlast"`; \ else \ first2=`echo "$$dir2" | sed -e "$$sed_first"`; \ if test "$$first2" = "$$first"; then \ dir2=`echo "$$dir2" | sed -e "$$sed_rest"`; \ else \ dir2="../$$dir2"; \ fi; \ dir0="$$dir0"/"$$first"; \ fi; \ fi; \ dir1=`echo "$$dir1" | sed -e "$$sed_rest"`; \ done; \ reldir="$$dir2" ACLOCAL = @ACLOCAL@ AG_PKG_CONFIG_PATH = @AG_PKG_CONFIG_PATH@ AMTAR = @AMTAR@ API_VERSION = @API_VERSION@ AR = @AR@ ATK_CFLAGS = @ATK_CFLAGS@ ATK_LIBS = @ATK_LIBS@ AUTOCONF = @AUTOCONF@ AUTOHEADER = @AUTOHEADER@ AUTOMAKE = @AUTOMAKE@ AWK = @AWK@ BONOBO_IDL_DIR = @BONOBO_IDL_DIR@ CANVAS_CFLAGS = @CANVAS_CFLAGS@ CANVAS_LIBS = @CANVAS_LIBS@ CC = @CC@ CCDEPMODE = @CCDEPMODE@ CFLAGS = @CFLAGS@ CORBA_CFLAGS = @CORBA_CFLAGS@ CORBA_LIBS = @CORBA_LIBS@ CPP = @CPP@ CPPFLAGS = @CPPFLAGS@ CYGPATH_W = @CYGPATH_W@ DEFS = @DEFS@ DEPDIR = @DEPDIR@ DLLTOOL = @DLLTOOL@ DSYMUTIL = @DSYMUTIL@ DUMPBIN = @DUMPBIN@ ECHO_C = @ECHO_C@ ECHO_N = @ECHO_N@ ECHO_T = @ECHO_T@ EGREP = @EGREP@ EXEEXT = @EXEEXT@ FGREP = @FGREP@ GCONF_CFLAGS = @GCONF_CFLAGS@ GCONF_LIBS = @GCONF_LIBS@ GDK_CFLAGS = @GDK_CFLAGS@ GDK_LIBS = @GDK_LIBS@ GDK_PIXBUF_CFLAGS = @GDK_PIXBUF_CFLAGS@ GDK_PIXBUF_LIBS = @GDK_PIXBUF_LIBS@ GLIB_CFLAGS = @GLIB_CFLAGS@ GLIB_LIBS = @GLIB_LIBS@ GNOMEUI_DEPRECATION_FLAGS = @GNOMEUI_DEPRECATION_FLAGS@ GNOME_VFS_CFLAGS = @GNOME_VFS_CFLAGS@ GNOME_VFS_DEPRECATED_CFLAGS = @GNOME_VFS_DEPRECATED_CFLAGS@ GNOME_VFS_LIBS = @GNOME_VFS_LIBS@ GOBJECT_CFLAGS = @GOBJECT_CFLAGS@ GOBJECT_LIBS = @GOBJECT_LIBS@ GREP = @GREP@ GTHREAD_CFLAGS = @GTHREAD_CFLAGS@ GTHREAD_LIBS = @GTHREAD_LIBS@ GTK_CFLAGS = @GTK_CFLAGS@ GTK_DEPRECATED_CFLAGS = @GTK_DEPRECATED_CFLAGS@ GTK_LIBS = @GTK_LIBS@ GUILE_CAIRO_CFLAGS = @GUILE_CAIRO_CFLAGS@ GUILE_CAIRO_LIBS = @GUILE_CAIRO_LIBS@ GUILE_CFLAGS = @GUILE_CFLAGS@ GUILE_EFFECTIVE_VERSION = @GUILE_EFFECTIVE_VERSION@ GUILE_GLIB_CFLAGS = @GUILE_GLIB_CFLAGS@ GUILE_GLIB_LIBS = @GUILE_GLIB_LIBS@ GUILE_LIBS = @GUILE_LIBS@ G_WRAP_CFLAGS = @G_WRAP_CFLAGS@ G_WRAP_LIBS = @G_WRAP_LIBS@ G_WRAP_LIB_DIR = @G_WRAP_LIB_DIR@ G_WRAP_MODULE_DIR = @G_WRAP_MODULE_DIR@ INSTALL = @INSTALL@ INSTALL_DATA = @INSTALL_DATA@ INSTALL_PROGRAM = @INSTALL_PROGRAM@ INSTALL_SCRIPT = @INSTALL_SCRIPT@ INSTALL_STRIP_PROGRAM = @INSTALL_STRIP_PROGRAM@ LD = @LD@ LDFLAGS = @LDFLAGS@ LIBGLADE_CFLAGS = @LIBGLADE_CFLAGS@ LIBGLADE_LIBS = @LIBGLADE_LIBS@ LIBGNOMEUI_CFLAGS = @LIBGNOMEUI_CFLAGS@ LIBGNOMEUI_LIBS = @LIBGNOMEUI_LIBS@ LIBGNOME_CFLAGS = @LIBGNOME_CFLAGS@ LIBGNOME_LIBS = @LIBGNOME_LIBS@ LIBOBJS = @LIBOBJS@ LIBS = @LIBS@ LIBTOOL = @LIBTOOL@ LIPO = @LIPO@ LN_S = @LN_S@ LTLIBOBJS = @LTLIBOBJS@ MAKEINFO = @MAKEINFO@ MANIFEST_TOOL = @MANIFEST_TOOL@ MKDIR_P = @MKDIR_P@ NM = @NM@ NMEDIT = @NMEDIT@ OBJDUMP = @OBJDUMP@ OBJEXT = @OBJEXT@ ORBIT_IDL = @ORBIT_IDL@ OTOOL = @OTOOL@ OTOOL64 = @OTOOL64@ PACKAGE = @PACKAGE@ PACKAGE_BUGREPORT = @PACKAGE_BUGREPORT@ PACKAGE_NAME = @PACKAGE_NAME@ PACKAGE_STRING = @PACKAGE_STRING@ PACKAGE_TARNAME = @PACKAGE_TARNAME@ PACKAGE_URL = @PACKAGE_URL@ PACKAGE_VERSION = @PACKAGE_VERSION@ PANGOCAIRO_CFLAGS = @PANGOCAIRO_CFLAGS@ PANGOCAIRO_LIBS = @PANGOCAIRO_LIBS@ PANGO_CFLAGS = @PANGO_CFLAGS@ PANGO_LIBS = @PANGO_LIBS@ PATH_SEPARATOR = @PATH_SEPARATOR@ PKG_CONFIG = @PKG_CONFIG@ PKG_CONFIG_LIBDIR = @PKG_CONFIG_LIBDIR@ PKG_CONFIG_PATH = @PKG_CONFIG_PATH@ RANLIB = @RANLIB@ SED = @SED@ SET_MAKE = @SET_MAKE@ SHELL = @SHELL@ STRIP = @STRIP@ VERSION = @VERSION@ WARN_CFLAGS = @WARN_CFLAGS@ abs_builddir = @abs_builddir@ abs_srcdir = @abs_srcdir@ abs_top_builddir = @abs_top_builddir@ abs_top_srcdir = @abs_top_srcdir@ ac_ct_AR = @ac_ct_AR@ ac_ct_CC = @ac_ct_CC@ ac_ct_DUMPBIN = @ac_ct_DUMPBIN@ am__include = @am__include@ am__leading_dot = @am__leading_dot@ am__quote = @am__quote@ am__tar = @am__tar@ am__untar = @am__untar@ bindir = @bindir@ build = @build@ build_alias = @build_alias@ build_cpu = @build_cpu@ build_os = @build_os@ build_vendor = @build_vendor@ builddir = @builddir@ datadir = @datadir@ datarootdir = @datarootdir@ docdir = @docdir@ dvidir = @dvidir@ exec_prefix = @exec_prefix@ host = @host@ host_alias = @host_alias@ host_cpu = @host_cpu@ host_os = @host_os@ host_vendor = @host_vendor@ htmldir = @htmldir@ includedir = @includedir@ infodir = @infodir@ install_sh = @install_sh@ libdir = @libdir@ libexecdir = @libexecdir@ localedir = @localedir@ localstatedir = @localstatedir@ mandir = @mandir@ mkdir_p = @mkdir_p@ oldincludedir = @oldincludedir@ pdfdir = @pdfdir@ prefix = @prefix@ program_transform_name = @program_transform_name@ psdir = @psdir@ sbindir = @sbindir@ sharedstatedir = @sharedstatedir@ srcdir = @srcdir@ sysconfdir = @sysconfdir@ target_alias = @target_alias@ top_build_prefix = @top_build_prefix@ top_builddir = @top_builddir@ top_srcdir = @top_srcdir@ guilegnomedir = $(datadir)/guile-gnome-@API_VERSION@ guilemoduledir = $(guilegnomedir)/gnome guilegwmoduledir = $(guilegnomedir)/gnome/gw guilegnomelibdir = $(libdir)/guile-gnome-@API_VERSION@ AM_CFLAGS = -I. -I$(srcdir) $(WARN_CFLAGS) $(DEBUG_CFLAGS) # For overriding from the command line (e.g. --debug) GUILE_FLAGS = SUFFIXES = .x .doc GUILE_SNARF_CFLAGS = $(DEFS) $(AM_CFLAGS) $(GUILE_CFLAGS) $(G_WRAP_CFLAGS) PACKAGES = atk cairo corba defs gconf glib gnome-vfs gtk libglade libgnome libgnomecanvas libgnomeui pango SOURCE_GUILE_PATH = $(shell echo $(addprefix $(top_srcdir)/,$(PACKAGES)) | sed -e 's/ /:/g'):$(srcdir) BUILD_GUILE_PATH = $(if $(filter-out $(top_srcdir),$(top_builddir)),$(shell echo -n $(addprefix $(top_builddir)/,$(PACKAGES)): | sed -e 's/ /:/g'),) GUILE_LOAD_PATH := $(BUILD_GUILE_PATH)$(SOURCE_GUILE_PATH):${G_WRAP_MODULE_DIR}:${GUILE_LOAD_PATH} # Real gnu make foo packages = $(filter-out %-uninstalled,$(patsubst %.pc.in,%,$(notdir $(wildcard $(srcdir)/*.pc.in)))) pcifiles = $(patsubst %,%-@API_VERSION@.pc,$(packages)) pcufiles = $(patsubst %,%-@API_VERSION@-uninstalled.pc,$(packages)) SUBDIRS = overrides $(am__append_2) guilemodule_DATA = $(am__append_1) EXTRA_DIST = gnome.scm DIST_SUBDIRS = gw overrides all: all-recursive .SUFFIXES: .SUFFIXES: .x .doc .c $(srcdir)/Makefile.in: $(srcdir)/Makefile.am $(top_srcdir)/common.mk $(am__configure_deps) @for dep in $?; do \ case '$(am__configure_deps)' in \ *$$dep*) \ ( cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh ) \ && { if test -f $@; then exit 0; else break; fi; }; \ exit 1;; \ esac; \ done; \ echo ' cd $(top_srcdir) && $(AUTOMAKE) --gnu libgnome/gnome/Makefile'; \ $(am__cd) $(top_srcdir) && \ $(AUTOMAKE) --gnu libgnome/gnome/Makefile .PRECIOUS: Makefile Makefile: $(srcdir)/Makefile.in $(top_builddir)/config.status @case '$?' in \ *config.status*) \ cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh;; \ *) \ echo ' cd $(top_builddir) && $(SHELL) ./config.status $(subdir)/$@ $(am__depfiles_maybe)'; \ cd $(top_builddir) && $(SHELL) ./config.status $(subdir)/$@ $(am__depfiles_maybe);; \ esac; $(top_srcdir)/common.mk: $(top_builddir)/config.status: $(top_srcdir)/configure $(CONFIG_STATUS_DEPENDENCIES) cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh $(top_srcdir)/configure: $(am__configure_deps) cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh $(ACLOCAL_M4): $(am__aclocal_m4_deps) cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh $(am__aclocal_m4_deps): mostlyclean-libtool: -rm -f *.lo clean-libtool: -rm -rf .libs _libs install-guilemoduleDATA: $(guilemodule_DATA) @$(NORMAL_INSTALL) @list='$(guilemodule_DATA)'; test -n "$(guilemoduledir)" || list=; \ if test -n "$$list"; then \ echo " $(MKDIR_P) '$(DESTDIR)$(guilemoduledir)'"; \ $(MKDIR_P) "$(DESTDIR)$(guilemoduledir)" || exit 1; \ fi; \ for p in $$list; do \ if test -f "$$p"; then d=; else d="$(srcdir)/"; fi; \ echo "$$d$$p"; \ done | $(am__base_list) | \ while read files; do \ echo " $(INSTALL_DATA) $$files '$(DESTDIR)$(guilemoduledir)'"; \ $(INSTALL_DATA) $$files "$(DESTDIR)$(guilemoduledir)" || exit $$?; \ done uninstall-guilemoduleDATA: @$(NORMAL_UNINSTALL) @list='$(guilemodule_DATA)'; test -n "$(guilemoduledir)" || list=; \ files=`for p in $$list; do echo $$p; done | sed -e 's|^.*/||'`; \ dir='$(DESTDIR)$(guilemoduledir)'; $(am__uninstall_files_from_dir) # This directory's subdirectories are mostly independent; you can cd # into them and run `make' without going through this Makefile. # To change the values of `make' variables: instead of editing Makefiles, # (1) if the variable is set in `config.status', edit `config.status' # (which will cause the Makefiles to be regenerated when you run `make'); # (2) otherwise, pass the desired values on the `make' command line. $(RECURSIVE_TARGETS): @fail= failcom='exit 1'; \ for f in x $$MAKEFLAGS; do \ case $$f in \ *=* | --[!k]*);; \ *k*) failcom='fail=yes';; \ esac; \ done; \ dot_seen=no; \ target=`echo $@ | sed s/-recursive//`; \ list='$(SUBDIRS)'; for subdir in $$list; do \ echo "Making $$target in $$subdir"; \ if test "$$subdir" = "."; then \ dot_seen=yes; \ local_target="$$target-am"; \ else \ local_target="$$target"; \ fi; \ ($(am__cd) $$subdir && $(MAKE) $(AM_MAKEFLAGS) $$local_target) \ || eval $$failcom; \ done; \ if test "$$dot_seen" = "no"; then \ $(MAKE) $(AM_MAKEFLAGS) "$$target-am" || exit 1; \ fi; test -z "$$fail" $(RECURSIVE_CLEAN_TARGETS): @fail= failcom='exit 1'; \ for f in x $$MAKEFLAGS; do \ case $$f in \ *=* | --[!k]*);; \ *k*) failcom='fail=yes';; \ esac; \ done; \ dot_seen=no; \ case "$@" in \ distclean-* | maintainer-clean-*) list='$(DIST_SUBDIRS)' ;; \ *) list='$(SUBDIRS)' ;; \ esac; \ rev=''; for subdir in $$list; do \ if test "$$subdir" = "."; then :; else \ rev="$$subdir $$rev"; \ fi; \ done; \ rev="$$rev ."; \ target=`echo $@ | sed s/-recursive//`; \ for subdir in $$rev; do \ echo "Making $$target in $$subdir"; \ if test "$$subdir" = "."; then \ local_target="$$target-am"; \ else \ local_target="$$target"; \ fi; \ ($(am__cd) $$subdir && $(MAKE) $(AM_MAKEFLAGS) $$local_target) \ || eval $$failcom; \ done && test -z "$$fail" tags-recursive: list='$(SUBDIRS)'; for subdir in $$list; do \ test "$$subdir" = . || ($(am__cd) $$subdir && $(MAKE) $(AM_MAKEFLAGS) tags); \ done ctags-recursive: list='$(SUBDIRS)'; for subdir in $$list; do \ test "$$subdir" = . || ($(am__cd) $$subdir && $(MAKE) $(AM_MAKEFLAGS) ctags); \ done ID: $(HEADERS) $(SOURCES) $(LISP) $(TAGS_FILES) list='$(SOURCES) $(HEADERS) $(LISP) $(TAGS_FILES)'; \ unique=`for i in $$list; do \ if test -f "$$i"; then echo $$i; else echo $(srcdir)/$$i; fi; \ done | \ $(AWK) '{ files[$$0] = 1; nonempty = 1; } \ END { if (nonempty) { for (i in files) print i; }; }'`; \ mkid -fID $$unique tags: TAGS TAGS: tags-recursive $(HEADERS) $(SOURCES) $(TAGS_DEPENDENCIES) \ $(TAGS_FILES) $(LISP) set x; \ here=`pwd`; \ if ($(ETAGS) --etags-include --version) >/dev/null 2>&1; then \ include_option=--etags-include; \ empty_fix=.; \ else \ include_option=--include; \ empty_fix=; \ fi; \ list='$(SUBDIRS)'; for subdir in $$list; do \ if test "$$subdir" = .; then :; else \ test ! -f $$subdir/TAGS || \ set "$$@" "$$include_option=$$here/$$subdir/TAGS"; \ fi; \ done; \ list='$(SOURCES) $(HEADERS) $(LISP) $(TAGS_FILES)'; \ unique=`for i in $$list; do \ if test -f "$$i"; then echo $$i; else echo $(srcdir)/$$i; fi; \ done | \ $(AWK) '{ files[$$0] = 1; nonempty = 1; } \ END { if (nonempty) { for (i in files) print i; }; }'`; \ shift; \ if test -z "$(ETAGS_ARGS)$$*$$unique"; then :; else \ test -n "$$unique" || unique=$$empty_fix; \ if test $$# -gt 0; then \ $(ETAGS) $(ETAGSFLAGS) $(AM_ETAGSFLAGS) $(ETAGS_ARGS) \ "$$@" $$unique; \ else \ $(ETAGS) $(ETAGSFLAGS) $(AM_ETAGSFLAGS) $(ETAGS_ARGS) \ $$unique; \ fi; \ fi ctags: CTAGS CTAGS: ctags-recursive $(HEADERS) $(SOURCES) $(TAGS_DEPENDENCIES) \ $(TAGS_FILES) $(LISP) list='$(SOURCES) $(HEADERS) $(LISP) $(TAGS_FILES)'; \ unique=`for i in $$list; do \ if test -f "$$i"; then echo $$i; else echo $(srcdir)/$$i; fi; \ done | \ $(AWK) '{ files[$$0] = 1; nonempty = 1; } \ END { if (nonempty) { for (i in files) print i; }; }'`; \ test -z "$(CTAGS_ARGS)$$unique" \ || $(CTAGS) $(CTAGSFLAGS) $(AM_CTAGSFLAGS) $(CTAGS_ARGS) \ $$unique GTAGS: here=`$(am__cd) $(top_builddir) && pwd` \ && $(am__cd) $(top_srcdir) \ && gtags -i $(GTAGS_ARGS) "$$here" distclean-tags: -rm -f TAGS ID GTAGS GRTAGS GSYMS GPATH tags distdir: $(DISTFILES) @srcdirstrip=`echo "$(srcdir)" | sed 's/[].[^$$\\*]/\\\\&/g'`; \ topsrcdirstrip=`echo "$(top_srcdir)" | sed 's/[].[^$$\\*]/\\\\&/g'`; \ list='$(DISTFILES)'; \ dist_files=`for file in $$list; do echo $$file; done | \ sed -e "s|^$$srcdirstrip/||;t" \ -e "s|^$$topsrcdirstrip/|$(top_builddir)/|;t"`; \ case $$dist_files in \ */*) $(MKDIR_P) `echo "$$dist_files" | \ sed '/\//!d;s|^|$(distdir)/|;s,/[^/]*$$,,' | \ sort -u` ;; \ esac; \ for file in $$dist_files; do \ if test -f $$file || test -d $$file; then d=.; else d=$(srcdir); fi; \ if test -d $$d/$$file; then \ dir=`echo "/$$file" | sed -e 's,/[^/]*$$,,'`; \ if test -d "$(distdir)/$$file"; then \ find "$(distdir)/$$file" -type d ! -perm -700 -exec chmod u+rwx {} \;; \ fi; \ if test -d $(srcdir)/$$file && test $$d != $(srcdir); then \ cp -fpR $(srcdir)/$$file "$(distdir)$$dir" || exit 1; \ find "$(distdir)/$$file" -type d ! -perm -700 -exec chmod u+rwx {} \;; \ fi; \ cp -fpR $$d/$$file "$(distdir)$$dir" || exit 1; \ else \ test -f "$(distdir)/$$file" \ || cp -p $$d/$$file "$(distdir)/$$file" \ || exit 1; \ fi; \ done @list='$(DIST_SUBDIRS)'; for subdir in $$list; do \ if test "$$subdir" = .; then :; else \ $(am__make_dryrun) \ || test -d "$(distdir)/$$subdir" \ || $(MKDIR_P) "$(distdir)/$$subdir" \ || exit 1; \ dir1=$$subdir; dir2="$(distdir)/$$subdir"; \ $(am__relativize); \ new_distdir=$$reldir; \ dir1=$$subdir; dir2="$(top_distdir)"; \ $(am__relativize); \ new_top_distdir=$$reldir; \ echo " (cd $$subdir && $(MAKE) $(AM_MAKEFLAGS) top_distdir="$$new_top_distdir" distdir="$$new_distdir" \\"; \ echo " am__remove_distdir=: am__skip_length_check=: am__skip_mode_fix=: distdir)"; \ ($(am__cd) $$subdir && \ $(MAKE) $(AM_MAKEFLAGS) \ top_distdir="$$new_top_distdir" \ distdir="$$new_distdir" \ am__remove_distdir=: \ am__skip_length_check=: \ am__skip_mode_fix=: \ distdir) \ || exit 1; \ fi; \ done check-am: all-am check: check-recursive all-am: Makefile $(DATA) installdirs: installdirs-recursive installdirs-am: for dir in "$(DESTDIR)$(guilemoduledir)"; do \ test -z "$$dir" || $(MKDIR_P) "$$dir"; \ done install: install-recursive install-exec: install-exec-recursive install-data: install-data-recursive uninstall: uninstall-recursive install-am: all-am @$(MAKE) $(AM_MAKEFLAGS) install-exec-am install-data-am installcheck: installcheck-recursive install-strip: if test -z '$(STRIP)'; then \ $(MAKE) $(AM_MAKEFLAGS) INSTALL_PROGRAM="$(INSTALL_STRIP_PROGRAM)" \ install_sh_PROGRAM="$(INSTALL_STRIP_PROGRAM)" INSTALL_STRIP_FLAG=-s \ install; \ else \ $(MAKE) $(AM_MAKEFLAGS) INSTALL_PROGRAM="$(INSTALL_STRIP_PROGRAM)" \ install_sh_PROGRAM="$(INSTALL_STRIP_PROGRAM)" INSTALL_STRIP_FLAG=-s \ "INSTALL_PROGRAM_ENV=STRIPPROG='$(STRIP)'" install; \ fi mostlyclean-generic: clean-generic: distclean-generic: -test -z "$(CONFIG_CLEAN_FILES)" || rm -f $(CONFIG_CLEAN_FILES) -test . = "$(srcdir)" || test -z "$(CONFIG_CLEAN_VPATH_FILES)" || rm -f $(CONFIG_CLEAN_VPATH_FILES) maintainer-clean-generic: @echo "This command is intended for maintainers to use" @echo "it deletes files that may require special tools to rebuild." clean: clean-recursive clean-am: clean-generic clean-libtool mostlyclean-am distclean: distclean-recursive -rm -f Makefile distclean-am: clean-am distclean-generic distclean-tags dvi: dvi-recursive dvi-am: html: html-recursive html-am: info: info-recursive info-am: install-data-am: install-guilemoduleDATA install-dvi: install-dvi-recursive install-dvi-am: install-exec-am: install-html: install-html-recursive install-html-am: install-info: install-info-recursive install-info-am: install-man: install-pdf: install-pdf-recursive install-pdf-am: install-ps: install-ps-recursive install-ps-am: installcheck-am: maintainer-clean: maintainer-clean-recursive -rm -f Makefile maintainer-clean-am: distclean-am maintainer-clean-generic mostlyclean: mostlyclean-recursive mostlyclean-am: mostlyclean-generic mostlyclean-libtool pdf: pdf-recursive pdf-am: ps: ps-recursive ps-am: uninstall-am: uninstall-guilemoduleDATA .MAKE: $(RECURSIVE_CLEAN_TARGETS) $(RECURSIVE_TARGETS) ctags-recursive \ install-am install-strip tags-recursive .PHONY: $(RECURSIVE_CLEAN_TARGETS) $(RECURSIVE_TARGETS) CTAGS GTAGS \ all all-am check check-am clean clean-generic clean-libtool \ ctags ctags-recursive distclean distclean-generic \ distclean-libtool distclean-tags distdir dvi dvi-am html \ html-am info info-am install install-am install-data \ install-data-am install-dvi install-dvi-am install-exec \ install-exec-am install-guilemoduleDATA install-html \ install-html-am install-info install-info-am install-man \ install-pdf install-pdf-am install-ps install-ps-am \ install-strip installcheck installcheck-am installdirs \ installdirs-am maintainer-clean maintainer-clean-generic \ mostlyclean mostlyclean-generic mostlyclean-libtool pdf pdf-am \ ps ps-am tags tags-recursive uninstall uninstall-am \ uninstall-guilemoduleDATA export GUILE_LOAD_PATH .c.x: guile-snarf $(GUILE_SNARF_CFLAGS) $< > $@ \ || { rm $@; false; } .c.doc: $(CPP) -DSCM_MAGIC_SNARF_DOCS $(GUILE_SNARF_CFLAGS) $< \ | grep -E '(\^\^ {|\^\^ })' > $@ || { rm $@; false; } %.scm guile-gnome-gw-%.c: %-spec.scm guile $(GUILE_FLAGS) -c \ "(debug-set! stack 400000) \ (use-modules (gnome-@API_VERSION@)) \ (use-modules (g-wrap)) \ (use-modules (gnome gw $*-spec)) \ (generate-wrapset 'guile 'gnome-$* \"guile-gnome-gw-$*\")" mv guile-gnome-gw-$*.scm $*.scm %-@API_VERSION@.pc: %.pc cp $< $@ %-@API_VERSION@-uninstalled.pc: %-uninstalled.pc cp $< $@ # Tell versions [3.59,3.63) of GNU make to not export all variables. # Otherwise a system limit (for SysV at least) may be exceeded. .NOEXPORT: guile-gnome-platform-2.16.2/libgnome/gnome/overrides/0000755000175000017500000000000011752546504023100 5ustar00wingowingo00000000000000guile-gnome-platform-2.16.2/libgnome/gnome/overrides/Makefile.am0000644000175000017500000000020411670374303025123 0ustar00wingowingo00000000000000include $(top_srcdir)/common.mk moduledir = $(guilemoduledir)/overrides module_DATA = libgnome.defs EXTRA_DIST = $(module_DATA) guile-gnome-platform-2.16.2/libgnome/gnome/overrides/Makefile.in0000644000175000017500000004123211752520711025137 0ustar00wingowingo00000000000000# Makefile.in generated by automake 1.11.5 from Makefile.am. # @configure_input@ # Copyright (C) 1994, 1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, # 2003, 2004, 2005, 2006, 2007, 2008, 2009, 2010, 2011 Free Software # Foundation, Inc. # This Makefile.in is free software; the Free Software Foundation # gives unlimited permission to copy and/or distribute it, # with or without modifications, as long as this notice is preserved. # This program is distributed in the hope that it will be useful, # but WITHOUT ANY WARRANTY, to the extent permitted by law; without # even the implied warranty of MERCHANTABILITY or FITNESS FOR A # PARTICULAR PURPOSE. @SET_MAKE@ # guile-gnome # Copyright (C) 2003,2004,2009,2012 Free Software Foundation, Inc. # This program is free software; you can redistribute it and/or # modify it under the terms of the GNU General Public License as # published by the Free Software Foundation; either version 2 of # the License, or (at your option) any later version. # This program is distributed in the hope that it will be useful, # but WITHOUT ANY WARRANTY; without even the implied warranty of # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the # GNU General Public License for more details. # You should have received a copy of the GNU General Public License # along with this program; if not, contact: # Free Software Foundation Voice: +1-617-542-5942 # 59 Temple Place - Suite 330 Fax: +1-617-542-2652 # Boston, MA 02111-1307, USA gnu@gnu.org # # Makefile snippet # VPATH = @srcdir@ am__make_dryrun = \ { \ am__dry=no; \ case $$MAKEFLAGS in \ *\\[\ \ ]*) \ echo 'am--echo: ; @echo "AM" OK' | $(MAKE) -f - 2>/dev/null \ | grep '^AM OK$$' >/dev/null || am__dry=yes;; \ *) \ for am__flg in $$MAKEFLAGS; do \ case $$am__flg in \ *=*|--*) ;; \ *n*) am__dry=yes; break;; \ esac; \ done;; \ esac; \ test $$am__dry = yes; \ } pkgdatadir = $(datadir)/@PACKAGE@ pkgincludedir = $(includedir)/@PACKAGE@ pkglibdir = $(libdir)/@PACKAGE@ pkglibexecdir = $(libexecdir)/@PACKAGE@ am__cd = CDPATH="$${ZSH_VERSION+.}$(PATH_SEPARATOR)" && cd install_sh_DATA = $(install_sh) -c -m 644 install_sh_PROGRAM = $(install_sh) -c install_sh_SCRIPT = $(install_sh) -c INSTALL_HEADER = $(INSTALL_DATA) transform = $(program_transform_name) NORMAL_INSTALL = : PRE_INSTALL = : POST_INSTALL = : NORMAL_UNINSTALL = : PRE_UNINSTALL = : POST_UNINSTALL = : build_triplet = @build@ host_triplet = @host@ DIST_COMMON = $(srcdir)/Makefile.am $(srcdir)/Makefile.in \ $(top_srcdir)/common.mk subdir = libgnome/gnome/overrides ACLOCAL_M4 = $(top_srcdir)/aclocal.m4 am__aclocal_m4_deps = $(top_srcdir)/configure.ac am__configure_deps = $(am__aclocal_m4_deps) $(CONFIGURE_DEPENDENCIES) \ $(ACLOCAL_M4) mkinstalldirs = $(install_sh) -d CONFIG_HEADER = $(top_builddir)/config.h CONFIG_CLEAN_FILES = CONFIG_CLEAN_VPATH_FILES = SOURCES = DIST_SOURCES = am__can_run_installinfo = \ case $$AM_UPDATE_INFO_DIR in \ n|no|NO) false;; \ *) (install-info --version) >/dev/null 2>&1;; \ esac am__vpath_adj_setup = srcdirstrip=`echo "$(srcdir)" | sed 's|.|.|g'`; am__vpath_adj = case $$p in \ $(srcdir)/*) f=`echo "$$p" | sed "s|^$$srcdirstrip/||"`;; \ *) f=$$p;; \ esac; am__strip_dir = f=`echo $$p | sed -e 's|^.*/||'`; am__install_max = 40 am__nobase_strip_setup = \ srcdirstrip=`echo "$(srcdir)" | sed 's/[].[^$$\\*|]/\\\\&/g'` am__nobase_strip = \ for p in $$list; do echo "$$p"; done | sed -e "s|$$srcdirstrip/||" am__nobase_list = $(am__nobase_strip_setup); \ for p in $$list; do echo "$$p $$p"; done | \ sed "s| $$srcdirstrip/| |;"' / .*\//!s/ .*/ ./; s,\( .*\)/[^/]*$$,\1,' | \ $(AWK) 'BEGIN { files["."] = "" } { files[$$2] = files[$$2] " " $$1; \ if (++n[$$2] == $(am__install_max)) \ { print $$2, files[$$2]; n[$$2] = 0; files[$$2] = "" } } \ END { for (dir in files) print dir, files[dir] }' am__base_list = \ sed '$$!N;$$!N;$$!N;$$!N;$$!N;$$!N;$$!N;s/\n/ /g' | \ sed '$$!N;$$!N;$$!N;$$!N;s/\n/ /g' am__uninstall_files_from_dir = { \ test -z "$$files" \ || { test ! -d "$$dir" && test ! -f "$$dir" && test ! -r "$$dir"; } \ || { echo " ( cd '$$dir' && rm -f" $$files ")"; \ $(am__cd) "$$dir" && rm -f $$files; }; \ } am__installdirs = "$(DESTDIR)$(moduledir)" DATA = $(module_DATA) DISTFILES = $(DIST_COMMON) $(DIST_SOURCES) $(TEXINFOS) $(EXTRA_DIST) ACLOCAL = @ACLOCAL@ AG_PKG_CONFIG_PATH = @AG_PKG_CONFIG_PATH@ AMTAR = @AMTAR@ API_VERSION = @API_VERSION@ AR = @AR@ ATK_CFLAGS = @ATK_CFLAGS@ ATK_LIBS = @ATK_LIBS@ AUTOCONF = @AUTOCONF@ AUTOHEADER = @AUTOHEADER@ AUTOMAKE = @AUTOMAKE@ AWK = @AWK@ BONOBO_IDL_DIR = @BONOBO_IDL_DIR@ CANVAS_CFLAGS = @CANVAS_CFLAGS@ CANVAS_LIBS = @CANVAS_LIBS@ CC = @CC@ CCDEPMODE = @CCDEPMODE@ CFLAGS = @CFLAGS@ CORBA_CFLAGS = @CORBA_CFLAGS@ CORBA_LIBS = @CORBA_LIBS@ CPP = @CPP@ CPPFLAGS = @CPPFLAGS@ CYGPATH_W = @CYGPATH_W@ DEFS = @DEFS@ DEPDIR = @DEPDIR@ DLLTOOL = @DLLTOOL@ DSYMUTIL = @DSYMUTIL@ DUMPBIN = @DUMPBIN@ ECHO_C = @ECHO_C@ ECHO_N = @ECHO_N@ ECHO_T = @ECHO_T@ EGREP = @EGREP@ EXEEXT = @EXEEXT@ FGREP = @FGREP@ GCONF_CFLAGS = @GCONF_CFLAGS@ GCONF_LIBS = @GCONF_LIBS@ GDK_CFLAGS = @GDK_CFLAGS@ GDK_LIBS = @GDK_LIBS@ GDK_PIXBUF_CFLAGS = @GDK_PIXBUF_CFLAGS@ GDK_PIXBUF_LIBS = @GDK_PIXBUF_LIBS@ GLIB_CFLAGS = @GLIB_CFLAGS@ GLIB_LIBS = @GLIB_LIBS@ GNOMEUI_DEPRECATION_FLAGS = @GNOMEUI_DEPRECATION_FLAGS@ GNOME_VFS_CFLAGS = @GNOME_VFS_CFLAGS@ GNOME_VFS_DEPRECATED_CFLAGS = @GNOME_VFS_DEPRECATED_CFLAGS@ GNOME_VFS_LIBS = @GNOME_VFS_LIBS@ GOBJECT_CFLAGS = @GOBJECT_CFLAGS@ GOBJECT_LIBS = @GOBJECT_LIBS@ GREP = @GREP@ GTHREAD_CFLAGS = @GTHREAD_CFLAGS@ GTHREAD_LIBS = @GTHREAD_LIBS@ GTK_CFLAGS = @GTK_CFLAGS@ GTK_DEPRECATED_CFLAGS = @GTK_DEPRECATED_CFLAGS@ GTK_LIBS = @GTK_LIBS@ GUILE_CAIRO_CFLAGS = @GUILE_CAIRO_CFLAGS@ GUILE_CAIRO_LIBS = @GUILE_CAIRO_LIBS@ GUILE_CFLAGS = @GUILE_CFLAGS@ GUILE_EFFECTIVE_VERSION = @GUILE_EFFECTIVE_VERSION@ GUILE_GLIB_CFLAGS = @GUILE_GLIB_CFLAGS@ GUILE_GLIB_LIBS = @GUILE_GLIB_LIBS@ GUILE_LIBS = @GUILE_LIBS@ G_WRAP_CFLAGS = @G_WRAP_CFLAGS@ G_WRAP_LIBS = @G_WRAP_LIBS@ G_WRAP_LIB_DIR = @G_WRAP_LIB_DIR@ G_WRAP_MODULE_DIR = @G_WRAP_MODULE_DIR@ INSTALL = @INSTALL@ INSTALL_DATA = @INSTALL_DATA@ INSTALL_PROGRAM = @INSTALL_PROGRAM@ INSTALL_SCRIPT = @INSTALL_SCRIPT@ INSTALL_STRIP_PROGRAM = @INSTALL_STRIP_PROGRAM@ LD = @LD@ LDFLAGS = @LDFLAGS@ LIBGLADE_CFLAGS = @LIBGLADE_CFLAGS@ LIBGLADE_LIBS = @LIBGLADE_LIBS@ LIBGNOMEUI_CFLAGS = @LIBGNOMEUI_CFLAGS@ LIBGNOMEUI_LIBS = @LIBGNOMEUI_LIBS@ LIBGNOME_CFLAGS = @LIBGNOME_CFLAGS@ LIBGNOME_LIBS = @LIBGNOME_LIBS@ LIBOBJS = @LIBOBJS@ LIBS = @LIBS@ LIBTOOL = @LIBTOOL@ LIPO = @LIPO@ LN_S = @LN_S@ LTLIBOBJS = @LTLIBOBJS@ MAKEINFO = @MAKEINFO@ MANIFEST_TOOL = @MANIFEST_TOOL@ MKDIR_P = @MKDIR_P@ NM = @NM@ NMEDIT = @NMEDIT@ OBJDUMP = @OBJDUMP@ OBJEXT = @OBJEXT@ ORBIT_IDL = @ORBIT_IDL@ OTOOL = @OTOOL@ OTOOL64 = @OTOOL64@ PACKAGE = @PACKAGE@ PACKAGE_BUGREPORT = @PACKAGE_BUGREPORT@ PACKAGE_NAME = @PACKAGE_NAME@ PACKAGE_STRING = @PACKAGE_STRING@ PACKAGE_TARNAME = @PACKAGE_TARNAME@ PACKAGE_URL = @PACKAGE_URL@ PACKAGE_VERSION = @PACKAGE_VERSION@ PANGOCAIRO_CFLAGS = @PANGOCAIRO_CFLAGS@ PANGOCAIRO_LIBS = @PANGOCAIRO_LIBS@ PANGO_CFLAGS = @PANGO_CFLAGS@ PANGO_LIBS = @PANGO_LIBS@ PATH_SEPARATOR = @PATH_SEPARATOR@ PKG_CONFIG = @PKG_CONFIG@ PKG_CONFIG_LIBDIR = @PKG_CONFIG_LIBDIR@ PKG_CONFIG_PATH = @PKG_CONFIG_PATH@ RANLIB = @RANLIB@ SED = @SED@ SET_MAKE = @SET_MAKE@ SHELL = @SHELL@ STRIP = @STRIP@ VERSION = @VERSION@ WARN_CFLAGS = @WARN_CFLAGS@ abs_builddir = @abs_builddir@ abs_srcdir = @abs_srcdir@ abs_top_builddir = @abs_top_builddir@ abs_top_srcdir = @abs_top_srcdir@ ac_ct_AR = @ac_ct_AR@ ac_ct_CC = @ac_ct_CC@ ac_ct_DUMPBIN = @ac_ct_DUMPBIN@ am__include = @am__include@ am__leading_dot = @am__leading_dot@ am__quote = @am__quote@ am__tar = @am__tar@ am__untar = @am__untar@ bindir = @bindir@ build = @build@ build_alias = @build_alias@ build_cpu = @build_cpu@ build_os = @build_os@ build_vendor = @build_vendor@ builddir = @builddir@ datadir = @datadir@ datarootdir = @datarootdir@ docdir = @docdir@ dvidir = @dvidir@ exec_prefix = @exec_prefix@ host = @host@ host_alias = @host_alias@ host_cpu = @host_cpu@ host_os = @host_os@ host_vendor = @host_vendor@ htmldir = @htmldir@ includedir = @includedir@ infodir = @infodir@ install_sh = @install_sh@ libdir = @libdir@ libexecdir = @libexecdir@ localedir = @localedir@ localstatedir = @localstatedir@ mandir = @mandir@ mkdir_p = @mkdir_p@ oldincludedir = @oldincludedir@ pdfdir = @pdfdir@ prefix = @prefix@ program_transform_name = @program_transform_name@ psdir = @psdir@ sbindir = @sbindir@ sharedstatedir = @sharedstatedir@ srcdir = @srcdir@ sysconfdir = @sysconfdir@ target_alias = @target_alias@ top_build_prefix = @top_build_prefix@ top_builddir = @top_builddir@ top_srcdir = @top_srcdir@ guilegnomedir = $(datadir)/guile-gnome-@API_VERSION@ guilemoduledir = $(guilegnomedir)/gnome guilegwmoduledir = $(guilegnomedir)/gnome/gw guilegnomelibdir = $(libdir)/guile-gnome-@API_VERSION@ AM_CFLAGS = -I. -I$(srcdir) $(WARN_CFLAGS) $(DEBUG_CFLAGS) # For overriding from the command line (e.g. --debug) GUILE_FLAGS = SUFFIXES = .x .doc GUILE_SNARF_CFLAGS = $(DEFS) $(AM_CFLAGS) $(GUILE_CFLAGS) $(G_WRAP_CFLAGS) PACKAGES = atk cairo corba defs gconf glib gnome-vfs gtk libglade libgnome libgnomecanvas libgnomeui pango SOURCE_GUILE_PATH = $(shell echo $(addprefix $(top_srcdir)/,$(PACKAGES)) | sed -e 's/ /:/g'):$(srcdir) BUILD_GUILE_PATH = $(if $(filter-out $(top_srcdir),$(top_builddir)),$(shell echo -n $(addprefix $(top_builddir)/,$(PACKAGES)): | sed -e 's/ /:/g'),) GUILE_LOAD_PATH := $(BUILD_GUILE_PATH)$(SOURCE_GUILE_PATH):${G_WRAP_MODULE_DIR}:${GUILE_LOAD_PATH} # Real gnu make foo packages = $(filter-out %-uninstalled,$(patsubst %.pc.in,%,$(notdir $(wildcard $(srcdir)/*.pc.in)))) pcifiles = $(patsubst %,%-@API_VERSION@.pc,$(packages)) pcufiles = $(patsubst %,%-@API_VERSION@-uninstalled.pc,$(packages)) moduledir = $(guilemoduledir)/overrides module_DATA = libgnome.defs EXTRA_DIST = $(module_DATA) all: all-am .SUFFIXES: .SUFFIXES: .x .doc .c $(srcdir)/Makefile.in: $(srcdir)/Makefile.am $(top_srcdir)/common.mk $(am__configure_deps) @for dep in $?; do \ case '$(am__configure_deps)' in \ *$$dep*) \ ( cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh ) \ && { if test -f $@; then exit 0; else break; fi; }; \ exit 1;; \ esac; \ done; \ echo ' cd $(top_srcdir) && $(AUTOMAKE) --gnu libgnome/gnome/overrides/Makefile'; \ $(am__cd) $(top_srcdir) && \ $(AUTOMAKE) --gnu libgnome/gnome/overrides/Makefile .PRECIOUS: Makefile Makefile: $(srcdir)/Makefile.in $(top_builddir)/config.status @case '$?' in \ *config.status*) \ cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh;; \ *) \ echo ' cd $(top_builddir) && $(SHELL) ./config.status $(subdir)/$@ $(am__depfiles_maybe)'; \ cd $(top_builddir) && $(SHELL) ./config.status $(subdir)/$@ $(am__depfiles_maybe);; \ esac; $(top_srcdir)/common.mk: $(top_builddir)/config.status: $(top_srcdir)/configure $(CONFIG_STATUS_DEPENDENCIES) cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh $(top_srcdir)/configure: $(am__configure_deps) cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh $(ACLOCAL_M4): $(am__aclocal_m4_deps) cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh $(am__aclocal_m4_deps): mostlyclean-libtool: -rm -f *.lo clean-libtool: -rm -rf .libs _libs install-moduleDATA: $(module_DATA) @$(NORMAL_INSTALL) @list='$(module_DATA)'; test -n "$(moduledir)" || list=; \ if test -n "$$list"; then \ echo " $(MKDIR_P) '$(DESTDIR)$(moduledir)'"; \ $(MKDIR_P) "$(DESTDIR)$(moduledir)" || exit 1; \ fi; \ for p in $$list; do \ if test -f "$$p"; then d=; else d="$(srcdir)/"; fi; \ echo "$$d$$p"; \ done | $(am__base_list) | \ while read files; do \ echo " $(INSTALL_DATA) $$files '$(DESTDIR)$(moduledir)'"; \ $(INSTALL_DATA) $$files "$(DESTDIR)$(moduledir)" || exit $$?; \ done uninstall-moduleDATA: @$(NORMAL_UNINSTALL) @list='$(module_DATA)'; test -n "$(moduledir)" || list=; \ files=`for p in $$list; do echo $$p; done | sed -e 's|^.*/||'`; \ dir='$(DESTDIR)$(moduledir)'; $(am__uninstall_files_from_dir) tags: TAGS TAGS: ctags: CTAGS CTAGS: distdir: $(DISTFILES) @srcdirstrip=`echo "$(srcdir)" | sed 's/[].[^$$\\*]/\\\\&/g'`; \ topsrcdirstrip=`echo "$(top_srcdir)" | sed 's/[].[^$$\\*]/\\\\&/g'`; \ list='$(DISTFILES)'; \ dist_files=`for file in $$list; do echo $$file; done | \ sed -e "s|^$$srcdirstrip/||;t" \ -e "s|^$$topsrcdirstrip/|$(top_builddir)/|;t"`; \ case $$dist_files in \ */*) $(MKDIR_P) `echo "$$dist_files" | \ sed '/\//!d;s|^|$(distdir)/|;s,/[^/]*$$,,' | \ sort -u` ;; \ esac; \ for file in $$dist_files; do \ if test -f $$file || test -d $$file; then d=.; else d=$(srcdir); fi; \ if test -d $$d/$$file; then \ dir=`echo "/$$file" | sed -e 's,/[^/]*$$,,'`; \ if test -d "$(distdir)/$$file"; then \ find "$(distdir)/$$file" -type d ! -perm -700 -exec chmod u+rwx {} \;; \ fi; \ if test -d $(srcdir)/$$file && test $$d != $(srcdir); then \ cp -fpR $(srcdir)/$$file "$(distdir)$$dir" || exit 1; \ find "$(distdir)/$$file" -type d ! -perm -700 -exec chmod u+rwx {} \;; \ fi; \ cp -fpR $$d/$$file "$(distdir)$$dir" || exit 1; \ else \ test -f "$(distdir)/$$file" \ || cp -p $$d/$$file "$(distdir)/$$file" \ || exit 1; \ fi; \ done check-am: all-am check: check-am all-am: Makefile $(DATA) installdirs: for dir in "$(DESTDIR)$(moduledir)"; do \ test -z "$$dir" || $(MKDIR_P) "$$dir"; \ done install: install-am install-exec: install-exec-am install-data: install-data-am uninstall: uninstall-am install-am: all-am @$(MAKE) $(AM_MAKEFLAGS) install-exec-am install-data-am installcheck: installcheck-am install-strip: if test -z '$(STRIP)'; then \ $(MAKE) $(AM_MAKEFLAGS) INSTALL_PROGRAM="$(INSTALL_STRIP_PROGRAM)" \ install_sh_PROGRAM="$(INSTALL_STRIP_PROGRAM)" INSTALL_STRIP_FLAG=-s \ install; \ else \ $(MAKE) $(AM_MAKEFLAGS) INSTALL_PROGRAM="$(INSTALL_STRIP_PROGRAM)" \ install_sh_PROGRAM="$(INSTALL_STRIP_PROGRAM)" INSTALL_STRIP_FLAG=-s \ "INSTALL_PROGRAM_ENV=STRIPPROG='$(STRIP)'" install; \ fi mostlyclean-generic: clean-generic: distclean-generic: -test -z "$(CONFIG_CLEAN_FILES)" || rm -f $(CONFIG_CLEAN_FILES) -test . = "$(srcdir)" || test -z "$(CONFIG_CLEAN_VPATH_FILES)" || rm -f $(CONFIG_CLEAN_VPATH_FILES) maintainer-clean-generic: @echo "This command is intended for maintainers to use" @echo "it deletes files that may require special tools to rebuild." clean: clean-am clean-am: clean-generic clean-libtool mostlyclean-am distclean: distclean-am -rm -f Makefile distclean-am: clean-am distclean-generic dvi: dvi-am dvi-am: html: html-am html-am: info: info-am info-am: install-data-am: install-moduleDATA install-dvi: install-dvi-am install-dvi-am: install-exec-am: install-html: install-html-am install-html-am: install-info: install-info-am install-info-am: install-man: install-pdf: install-pdf-am install-pdf-am: install-ps: install-ps-am install-ps-am: installcheck-am: maintainer-clean: maintainer-clean-am -rm -f Makefile maintainer-clean-am: distclean-am maintainer-clean-generic mostlyclean: mostlyclean-am mostlyclean-am: mostlyclean-generic mostlyclean-libtool pdf: pdf-am pdf-am: ps: ps-am ps-am: uninstall-am: uninstall-moduleDATA .MAKE: install-am install-strip .PHONY: all all-am check check-am clean clean-generic clean-libtool \ distclean distclean-generic distclean-libtool distdir dvi \ dvi-am html html-am info info-am install install-am \ install-data install-data-am install-dvi install-dvi-am \ install-exec install-exec-am install-html install-html-am \ install-info install-info-am install-man install-moduleDATA \ install-pdf install-pdf-am install-ps install-ps-am \ install-strip installcheck installcheck-am installdirs \ maintainer-clean maintainer-clean-generic mostlyclean \ mostlyclean-generic mostlyclean-libtool pdf pdf-am ps ps-am \ uninstall uninstall-am uninstall-moduleDATA export GUILE_LOAD_PATH .c.x: guile-snarf $(GUILE_SNARF_CFLAGS) $< > $@ \ || { rm $@; false; } .c.doc: $(CPP) -DSCM_MAGIC_SNARF_DOCS $(GUILE_SNARF_CFLAGS) $< \ | grep -E '(\^\^ {|\^\^ })' > $@ || { rm $@; false; } %.scm guile-gnome-gw-%.c: %-spec.scm guile $(GUILE_FLAGS) -c \ "(debug-set! stack 400000) \ (use-modules (gnome-@API_VERSION@)) \ (use-modules (g-wrap)) \ (use-modules (gnome gw $*-spec)) \ (generate-wrapset 'guile 'gnome-$* \"guile-gnome-gw-$*\")" mv guile-gnome-gw-$*.scm $*.scm %-@API_VERSION@.pc: %.pc cp $< $@ %-@API_VERSION@-uninstalled.pc: %-uninstalled.pc cp $< $@ # Tell versions [3.59,3.63) of GNU make to not export all variables. # Otherwise a system limit (for SysV at least) may be exceeded. .NOEXPORT: guile-gnome-platform-2.16.2/libgnome/gnome/overrides/libgnome.defs0000644000175000017500000000507611670374303025542 0ustar00wingowingo00000000000000;; -*- scheme -*- ;; guile-gnome ;; Copyright (C) 2003,2004 Andy Wingo ;; This program is free software; you can redistribute it and/or ;; modify it under the terms of the GNU General Public License as ;; published by the Free Software Foundation; either version 2 of ;; the License, or (at your option) any later version. ;; ;; This program is distributed in the hope that it will be useful, ;; but WITHOUT ANY WARRANTY; without even the implied warranty of ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the ;; GNU General Public License for more details. ;; ;; You should have received a copy of the GNU General Public License ;; along with this program; if not, contact: ;; ;; Free Software Foundation Voice: +1-617-542-5942 ;; 59 Temple Place - Suite 330 Fax: +1-617-542-2652 ;; Boston, MA 02111-1307, USA gnu@gnu.org ;;; Commentary: ;; ;;Custom wrapper definitions. ;; ;;; Code: (define-function program_initv (c-name "_wrap_gnome_program_init") (overrides "%gnome-program-init") ;; hacky! (return-type "GnomeProgram*") (parameters '("const-char*" "app_id") '("const-char*" "app_version"))) (ignore-glob "*_get_type" "_*" "*_ref" "*_unref" "*_copy" "*_free" "*_newv" "*_valist" "*_setv" "*_foreach" "*_valist") (ignore-glob "gnome_config*" "gnome_execute_*" "gnome_i18n_*" "*_vector" "gnome_triggers_v*" "gnome_program_init*" "gnome_score*" ) (ignore "g_extension_pointer" "gnome_bonobo_module_info_get" "gnome_clearenv" "gnome_help_display_desktop_with_env" "gnome_help_display_uri_with_env" "gnome_help_display_with_doc_id_and_env" "gnome_help_error_quark" "gnome_program_install_property" ; GnomeProgramClass* "gnome_program_locate_file" "gnome_program_module_load" "gnome_program_module_register" ; GnomeModuleInfo* "gnome_program_module_registered" ; GnomeModuleInfo* "gnome_program_parse_args" "gnome_program_postinit" "gnome_program_preinit" ; poptContext "gnome_score_init" "gnome_setenv" "gnome_sound_connection_get" "gnome_unsetenv" "gnome_url_error_quark" "gnome_url_show_with_env" "gnome_util_user_shell" "gnome_win32_get_prefixes" "libgnome_module_info_get" ) guile-gnome-platform-2.16.2/libgnome/Makefile.am0000644000175000017500000000011211752516607022020 0ustar00wingowingo00000000000000SUBDIRS = gnome doc tests EXTRA_DIST = ChangeLog.pre-2.16 AUTHORS README guile-gnome-platform-2.16.2/libgnome/Makefile.in0000644000175000017500000004535711752516632022053 0ustar00wingowingo00000000000000# Makefile.in generated by automake 1.11.5 from Makefile.am. # @configure_input@ # Copyright (C) 1994, 1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, # 2003, 2004, 2005, 2006, 2007, 2008, 2009, 2010, 2011 Free Software # Foundation, Inc. # This Makefile.in is free software; the Free Software Foundation # gives unlimited permission to copy and/or distribute it, # with or without modifications, as long as this notice is preserved. # This program is distributed in the hope that it will be useful, # but WITHOUT ANY WARRANTY, to the extent permitted by law; without # even the implied warranty of MERCHANTABILITY or FITNESS FOR A # PARTICULAR PURPOSE. @SET_MAKE@ VPATH = @srcdir@ am__make_dryrun = \ { \ am__dry=no; \ case $$MAKEFLAGS in \ *\\[\ \ ]*) \ echo 'am--echo: ; @echo "AM" OK' | $(MAKE) -f - 2>/dev/null \ | grep '^AM OK$$' >/dev/null || am__dry=yes;; \ *) \ for am__flg in $$MAKEFLAGS; do \ case $$am__flg in \ *=*|--*) ;; \ *n*) am__dry=yes; break;; \ esac; \ done;; \ esac; \ test $$am__dry = yes; \ } pkgdatadir = $(datadir)/@PACKAGE@ pkgincludedir = $(includedir)/@PACKAGE@ pkglibdir = $(libdir)/@PACKAGE@ pkglibexecdir = $(libexecdir)/@PACKAGE@ am__cd = CDPATH="$${ZSH_VERSION+.}$(PATH_SEPARATOR)" && cd install_sh_DATA = $(install_sh) -c -m 644 install_sh_PROGRAM = $(install_sh) -c install_sh_SCRIPT = $(install_sh) -c INSTALL_HEADER = $(INSTALL_DATA) transform = $(program_transform_name) NORMAL_INSTALL = : PRE_INSTALL = : POST_INSTALL = : NORMAL_UNINSTALL = : PRE_UNINSTALL = : POST_UNINSTALL = : build_triplet = @build@ host_triplet = @host@ subdir = libgnome DIST_COMMON = README $(srcdir)/Makefile.am $(srcdir)/Makefile.in \ AUTHORS ChangeLog ACLOCAL_M4 = $(top_srcdir)/aclocal.m4 am__aclocal_m4_deps = $(top_srcdir)/configure.ac am__configure_deps = $(am__aclocal_m4_deps) $(CONFIGURE_DEPENDENCIES) \ $(ACLOCAL_M4) mkinstalldirs = $(install_sh) -d CONFIG_HEADER = $(top_builddir)/config.h CONFIG_CLEAN_FILES = CONFIG_CLEAN_VPATH_FILES = SOURCES = DIST_SOURCES = RECURSIVE_TARGETS = all-recursive check-recursive dvi-recursive \ html-recursive info-recursive install-data-recursive \ install-dvi-recursive install-exec-recursive \ install-html-recursive install-info-recursive \ install-pdf-recursive install-ps-recursive install-recursive \ installcheck-recursive installdirs-recursive pdf-recursive \ ps-recursive uninstall-recursive am__can_run_installinfo = \ case $$AM_UPDATE_INFO_DIR in \ n|no|NO) false;; \ *) (install-info --version) >/dev/null 2>&1;; \ esac RECURSIVE_CLEAN_TARGETS = mostlyclean-recursive clean-recursive \ distclean-recursive maintainer-clean-recursive AM_RECURSIVE_TARGETS = $(RECURSIVE_TARGETS:-recursive=) \ $(RECURSIVE_CLEAN_TARGETS:-recursive=) tags TAGS ctags CTAGS \ distdir ETAGS = etags CTAGS = ctags DIST_SUBDIRS = $(SUBDIRS) DISTFILES = $(DIST_COMMON) $(DIST_SOURCES) $(TEXINFOS) $(EXTRA_DIST) am__relativize = \ dir0=`pwd`; \ sed_first='s,^\([^/]*\)/.*$$,\1,'; \ sed_rest='s,^[^/]*/*,,'; \ sed_last='s,^.*/\([^/]*\)$$,\1,'; \ sed_butlast='s,/*[^/]*$$,,'; \ while test -n "$$dir1"; do \ first=`echo "$$dir1" | sed -e "$$sed_first"`; \ if test "$$first" != "."; then \ if test "$$first" = ".."; then \ dir2=`echo "$$dir0" | sed -e "$$sed_last"`/"$$dir2"; \ dir0=`echo "$$dir0" | sed -e "$$sed_butlast"`; \ else \ first2=`echo "$$dir2" | sed -e "$$sed_first"`; \ if test "$$first2" = "$$first"; then \ dir2=`echo "$$dir2" | sed -e "$$sed_rest"`; \ else \ dir2="../$$dir2"; \ fi; \ dir0="$$dir0"/"$$first"; \ fi; \ fi; \ dir1=`echo "$$dir1" | sed -e "$$sed_rest"`; \ done; \ reldir="$$dir2" ACLOCAL = @ACLOCAL@ AG_PKG_CONFIG_PATH = @AG_PKG_CONFIG_PATH@ AMTAR = @AMTAR@ API_VERSION = @API_VERSION@ AR = @AR@ ATK_CFLAGS = @ATK_CFLAGS@ ATK_LIBS = @ATK_LIBS@ AUTOCONF = @AUTOCONF@ AUTOHEADER = @AUTOHEADER@ AUTOMAKE = @AUTOMAKE@ AWK = @AWK@ BONOBO_IDL_DIR = @BONOBO_IDL_DIR@ CANVAS_CFLAGS = @CANVAS_CFLAGS@ CANVAS_LIBS = @CANVAS_LIBS@ CC = @CC@ CCDEPMODE = @CCDEPMODE@ CFLAGS = @CFLAGS@ CORBA_CFLAGS = @CORBA_CFLAGS@ CORBA_LIBS = @CORBA_LIBS@ CPP = @CPP@ CPPFLAGS = @CPPFLAGS@ CYGPATH_W = @CYGPATH_W@ DEFS = @DEFS@ DEPDIR = @DEPDIR@ DLLTOOL = @DLLTOOL@ DSYMUTIL = @DSYMUTIL@ DUMPBIN = @DUMPBIN@ ECHO_C = @ECHO_C@ ECHO_N = @ECHO_N@ ECHO_T = @ECHO_T@ EGREP = @EGREP@ EXEEXT = @EXEEXT@ FGREP = @FGREP@ GCONF_CFLAGS = @GCONF_CFLAGS@ GCONF_LIBS = @GCONF_LIBS@ GDK_CFLAGS = @GDK_CFLAGS@ GDK_LIBS = @GDK_LIBS@ GDK_PIXBUF_CFLAGS = @GDK_PIXBUF_CFLAGS@ GDK_PIXBUF_LIBS = @GDK_PIXBUF_LIBS@ GLIB_CFLAGS = @GLIB_CFLAGS@ GLIB_LIBS = @GLIB_LIBS@ GNOMEUI_DEPRECATION_FLAGS = @GNOMEUI_DEPRECATION_FLAGS@ GNOME_VFS_CFLAGS = @GNOME_VFS_CFLAGS@ GNOME_VFS_DEPRECATED_CFLAGS = @GNOME_VFS_DEPRECATED_CFLAGS@ GNOME_VFS_LIBS = @GNOME_VFS_LIBS@ GOBJECT_CFLAGS = @GOBJECT_CFLAGS@ GOBJECT_LIBS = @GOBJECT_LIBS@ GREP = @GREP@ GTHREAD_CFLAGS = @GTHREAD_CFLAGS@ GTHREAD_LIBS = @GTHREAD_LIBS@ GTK_CFLAGS = @GTK_CFLAGS@ GTK_DEPRECATED_CFLAGS = @GTK_DEPRECATED_CFLAGS@ GTK_LIBS = @GTK_LIBS@ GUILE_CAIRO_CFLAGS = @GUILE_CAIRO_CFLAGS@ GUILE_CAIRO_LIBS = @GUILE_CAIRO_LIBS@ GUILE_CFLAGS = @GUILE_CFLAGS@ GUILE_EFFECTIVE_VERSION = @GUILE_EFFECTIVE_VERSION@ GUILE_GLIB_CFLAGS = @GUILE_GLIB_CFLAGS@ GUILE_GLIB_LIBS = @GUILE_GLIB_LIBS@ GUILE_LIBS = @GUILE_LIBS@ G_WRAP_CFLAGS = @G_WRAP_CFLAGS@ G_WRAP_LIBS = @G_WRAP_LIBS@ G_WRAP_LIB_DIR = @G_WRAP_LIB_DIR@ G_WRAP_MODULE_DIR = @G_WRAP_MODULE_DIR@ INSTALL = @INSTALL@ INSTALL_DATA = @INSTALL_DATA@ INSTALL_PROGRAM = @INSTALL_PROGRAM@ INSTALL_SCRIPT = @INSTALL_SCRIPT@ INSTALL_STRIP_PROGRAM = @INSTALL_STRIP_PROGRAM@ LD = @LD@ LDFLAGS = @LDFLAGS@ LIBGLADE_CFLAGS = @LIBGLADE_CFLAGS@ LIBGLADE_LIBS = @LIBGLADE_LIBS@ LIBGNOMEUI_CFLAGS = @LIBGNOMEUI_CFLAGS@ LIBGNOMEUI_LIBS = @LIBGNOMEUI_LIBS@ LIBGNOME_CFLAGS = @LIBGNOME_CFLAGS@ LIBGNOME_LIBS = @LIBGNOME_LIBS@ LIBOBJS = @LIBOBJS@ LIBS = @LIBS@ LIBTOOL = @LIBTOOL@ LIPO = @LIPO@ LN_S = @LN_S@ LTLIBOBJS = @LTLIBOBJS@ MAKEINFO = @MAKEINFO@ MANIFEST_TOOL = @MANIFEST_TOOL@ MKDIR_P = @MKDIR_P@ NM = @NM@ NMEDIT = @NMEDIT@ OBJDUMP = @OBJDUMP@ OBJEXT = @OBJEXT@ ORBIT_IDL = @ORBIT_IDL@ OTOOL = @OTOOL@ OTOOL64 = @OTOOL64@ PACKAGE = @PACKAGE@ PACKAGE_BUGREPORT = @PACKAGE_BUGREPORT@ PACKAGE_NAME = @PACKAGE_NAME@ PACKAGE_STRING = @PACKAGE_STRING@ PACKAGE_TARNAME = @PACKAGE_TARNAME@ PACKAGE_URL = @PACKAGE_URL@ PACKAGE_VERSION = @PACKAGE_VERSION@ PANGOCAIRO_CFLAGS = @PANGOCAIRO_CFLAGS@ PANGOCAIRO_LIBS = @PANGOCAIRO_LIBS@ PANGO_CFLAGS = @PANGO_CFLAGS@ PANGO_LIBS = @PANGO_LIBS@ PATH_SEPARATOR = @PATH_SEPARATOR@ PKG_CONFIG = @PKG_CONFIG@ PKG_CONFIG_LIBDIR = @PKG_CONFIG_LIBDIR@ PKG_CONFIG_PATH = @PKG_CONFIG_PATH@ RANLIB = @RANLIB@ SED = @SED@ SET_MAKE = @SET_MAKE@ SHELL = @SHELL@ STRIP = @STRIP@ VERSION = @VERSION@ WARN_CFLAGS = @WARN_CFLAGS@ abs_builddir = @abs_builddir@ abs_srcdir = @abs_srcdir@ abs_top_builddir = @abs_top_builddir@ abs_top_srcdir = @abs_top_srcdir@ ac_ct_AR = @ac_ct_AR@ ac_ct_CC = @ac_ct_CC@ ac_ct_DUMPBIN = @ac_ct_DUMPBIN@ am__include = @am__include@ am__leading_dot = @am__leading_dot@ am__quote = @am__quote@ am__tar = @am__tar@ am__untar = @am__untar@ bindir = @bindir@ build = @build@ build_alias = @build_alias@ build_cpu = @build_cpu@ build_os = @build_os@ build_vendor = @build_vendor@ builddir = @builddir@ datadir = @datadir@ datarootdir = @datarootdir@ docdir = @docdir@ dvidir = @dvidir@ exec_prefix = @exec_prefix@ host = @host@ host_alias = @host_alias@ host_cpu = @host_cpu@ host_os = @host_os@ host_vendor = @host_vendor@ htmldir = @htmldir@ includedir = @includedir@ infodir = @infodir@ install_sh = @install_sh@ libdir = @libdir@ libexecdir = @libexecdir@ localedir = @localedir@ localstatedir = @localstatedir@ mandir = @mandir@ mkdir_p = @mkdir_p@ oldincludedir = @oldincludedir@ pdfdir = @pdfdir@ prefix = @prefix@ program_transform_name = @program_transform_name@ psdir = @psdir@ sbindir = @sbindir@ sharedstatedir = @sharedstatedir@ srcdir = @srcdir@ sysconfdir = @sysconfdir@ target_alias = @target_alias@ top_build_prefix = @top_build_prefix@ top_builddir = @top_builddir@ top_srcdir = @top_srcdir@ SUBDIRS = gnome doc tests EXTRA_DIST = ChangeLog.pre-2.16 AUTHORS README all: all-recursive .SUFFIXES: $(srcdir)/Makefile.in: $(srcdir)/Makefile.am $(am__configure_deps) @for dep in $?; do \ case '$(am__configure_deps)' in \ *$$dep*) \ ( cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh ) \ && { if test -f $@; then exit 0; else break; fi; }; \ exit 1;; \ esac; \ done; \ echo ' cd $(top_srcdir) && $(AUTOMAKE) --gnu libgnome/Makefile'; \ $(am__cd) $(top_srcdir) && \ $(AUTOMAKE) --gnu libgnome/Makefile .PRECIOUS: Makefile Makefile: $(srcdir)/Makefile.in $(top_builddir)/config.status @case '$?' in \ *config.status*) \ cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh;; \ *) \ echo ' cd $(top_builddir) && $(SHELL) ./config.status $(subdir)/$@ $(am__depfiles_maybe)'; \ cd $(top_builddir) && $(SHELL) ./config.status $(subdir)/$@ $(am__depfiles_maybe);; \ esac; $(top_builddir)/config.status: $(top_srcdir)/configure $(CONFIG_STATUS_DEPENDENCIES) cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh $(top_srcdir)/configure: $(am__configure_deps) cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh $(ACLOCAL_M4): $(am__aclocal_m4_deps) cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh $(am__aclocal_m4_deps): mostlyclean-libtool: -rm -f *.lo clean-libtool: -rm -rf .libs _libs # This directory's subdirectories are mostly independent; you can cd # into them and run `make' without going through this Makefile. # To change the values of `make' variables: instead of editing Makefiles, # (1) if the variable is set in `config.status', edit `config.status' # (which will cause the Makefiles to be regenerated when you run `make'); # (2) otherwise, pass the desired values on the `make' command line. $(RECURSIVE_TARGETS): @fail= failcom='exit 1'; \ for f in x $$MAKEFLAGS; do \ case $$f in \ *=* | --[!k]*);; \ *k*) failcom='fail=yes';; \ esac; \ done; \ dot_seen=no; \ target=`echo $@ | sed s/-recursive//`; \ list='$(SUBDIRS)'; for subdir in $$list; do \ echo "Making $$target in $$subdir"; \ if test "$$subdir" = "."; then \ dot_seen=yes; \ local_target="$$target-am"; \ else \ local_target="$$target"; \ fi; \ ($(am__cd) $$subdir && $(MAKE) $(AM_MAKEFLAGS) $$local_target) \ || eval $$failcom; \ done; \ if test "$$dot_seen" = "no"; then \ $(MAKE) $(AM_MAKEFLAGS) "$$target-am" || exit 1; \ fi; test -z "$$fail" $(RECURSIVE_CLEAN_TARGETS): @fail= failcom='exit 1'; \ for f in x $$MAKEFLAGS; do \ case $$f in \ *=* | --[!k]*);; \ *k*) failcom='fail=yes';; \ esac; \ done; \ dot_seen=no; \ case "$@" in \ distclean-* | maintainer-clean-*) list='$(DIST_SUBDIRS)' ;; \ *) list='$(SUBDIRS)' ;; \ esac; \ rev=''; for subdir in $$list; do \ if test "$$subdir" = "."; then :; else \ rev="$$subdir $$rev"; \ fi; \ done; \ rev="$$rev ."; \ target=`echo $@ | sed s/-recursive//`; \ for subdir in $$rev; do \ echo "Making $$target in $$subdir"; \ if test "$$subdir" = "."; then \ local_target="$$target-am"; \ else \ local_target="$$target"; \ fi; \ ($(am__cd) $$subdir && $(MAKE) $(AM_MAKEFLAGS) $$local_target) \ || eval $$failcom; \ done && test -z "$$fail" tags-recursive: list='$(SUBDIRS)'; for subdir in $$list; do \ test "$$subdir" = . || ($(am__cd) $$subdir && $(MAKE) $(AM_MAKEFLAGS) tags); \ done ctags-recursive: list='$(SUBDIRS)'; for subdir in $$list; do \ test "$$subdir" = . || ($(am__cd) $$subdir && $(MAKE) $(AM_MAKEFLAGS) ctags); \ done ID: $(HEADERS) $(SOURCES) $(LISP) $(TAGS_FILES) list='$(SOURCES) $(HEADERS) $(LISP) $(TAGS_FILES)'; \ unique=`for i in $$list; do \ if test -f "$$i"; then echo $$i; else echo $(srcdir)/$$i; fi; \ done | \ $(AWK) '{ files[$$0] = 1; nonempty = 1; } \ END { if (nonempty) { for (i in files) print i; }; }'`; \ mkid -fID $$unique tags: TAGS TAGS: tags-recursive $(HEADERS) $(SOURCES) $(TAGS_DEPENDENCIES) \ $(TAGS_FILES) $(LISP) set x; \ here=`pwd`; \ if ($(ETAGS) --etags-include --version) >/dev/null 2>&1; then \ include_option=--etags-include; \ empty_fix=.; \ else \ include_option=--include; \ empty_fix=; \ fi; \ list='$(SUBDIRS)'; for subdir in $$list; do \ if test "$$subdir" = .; then :; else \ test ! -f $$subdir/TAGS || \ set "$$@" "$$include_option=$$here/$$subdir/TAGS"; \ fi; \ done; \ list='$(SOURCES) $(HEADERS) $(LISP) $(TAGS_FILES)'; \ unique=`for i in $$list; do \ if test -f "$$i"; then echo $$i; else echo $(srcdir)/$$i; fi; \ done | \ $(AWK) '{ files[$$0] = 1; nonempty = 1; } \ END { if (nonempty) { for (i in files) print i; }; }'`; \ shift; \ if test -z "$(ETAGS_ARGS)$$*$$unique"; then :; else \ test -n "$$unique" || unique=$$empty_fix; \ if test $$# -gt 0; then \ $(ETAGS) $(ETAGSFLAGS) $(AM_ETAGSFLAGS) $(ETAGS_ARGS) \ "$$@" $$unique; \ else \ $(ETAGS) $(ETAGSFLAGS) $(AM_ETAGSFLAGS) $(ETAGS_ARGS) \ $$unique; \ fi; \ fi ctags: CTAGS CTAGS: ctags-recursive $(HEADERS) $(SOURCES) $(TAGS_DEPENDENCIES) \ $(TAGS_FILES) $(LISP) list='$(SOURCES) $(HEADERS) $(LISP) $(TAGS_FILES)'; \ unique=`for i in $$list; do \ if test -f "$$i"; then echo $$i; else echo $(srcdir)/$$i; fi; \ done | \ $(AWK) '{ files[$$0] = 1; nonempty = 1; } \ END { if (nonempty) { for (i in files) print i; }; }'`; \ test -z "$(CTAGS_ARGS)$$unique" \ || $(CTAGS) $(CTAGSFLAGS) $(AM_CTAGSFLAGS) $(CTAGS_ARGS) \ $$unique GTAGS: here=`$(am__cd) $(top_builddir) && pwd` \ && $(am__cd) $(top_srcdir) \ && gtags -i $(GTAGS_ARGS) "$$here" distclean-tags: -rm -f TAGS ID GTAGS GRTAGS GSYMS GPATH tags distdir: $(DISTFILES) @srcdirstrip=`echo "$(srcdir)" | sed 's/[].[^$$\\*]/\\\\&/g'`; \ topsrcdirstrip=`echo "$(top_srcdir)" | sed 's/[].[^$$\\*]/\\\\&/g'`; \ list='$(DISTFILES)'; \ dist_files=`for file in $$list; do echo $$file; done | \ sed -e "s|^$$srcdirstrip/||;t" \ -e "s|^$$topsrcdirstrip/|$(top_builddir)/|;t"`; \ case $$dist_files in \ */*) $(MKDIR_P) `echo "$$dist_files" | \ sed '/\//!d;s|^|$(distdir)/|;s,/[^/]*$$,,' | \ sort -u` ;; \ esac; \ for file in $$dist_files; do \ if test -f $$file || test -d $$file; then d=.; else d=$(srcdir); fi; \ if test -d $$d/$$file; then \ dir=`echo "/$$file" | sed -e 's,/[^/]*$$,,'`; \ if test -d "$(distdir)/$$file"; then \ find "$(distdir)/$$file" -type d ! -perm -700 -exec chmod u+rwx {} \;; \ fi; \ if test -d $(srcdir)/$$file && test $$d != $(srcdir); then \ cp -fpR $(srcdir)/$$file "$(distdir)$$dir" || exit 1; \ find "$(distdir)/$$file" -type d ! -perm -700 -exec chmod u+rwx {} \;; \ fi; \ cp -fpR $$d/$$file "$(distdir)$$dir" || exit 1; \ else \ test -f "$(distdir)/$$file" \ || cp -p $$d/$$file "$(distdir)/$$file" \ || exit 1; \ fi; \ done @list='$(DIST_SUBDIRS)'; for subdir in $$list; do \ if test "$$subdir" = .; then :; else \ $(am__make_dryrun) \ || test -d "$(distdir)/$$subdir" \ || $(MKDIR_P) "$(distdir)/$$subdir" \ || exit 1; \ dir1=$$subdir; dir2="$(distdir)/$$subdir"; \ $(am__relativize); \ new_distdir=$$reldir; \ dir1=$$subdir; dir2="$(top_distdir)"; \ $(am__relativize); \ new_top_distdir=$$reldir; \ echo " (cd $$subdir && $(MAKE) $(AM_MAKEFLAGS) top_distdir="$$new_top_distdir" distdir="$$new_distdir" \\"; \ echo " am__remove_distdir=: am__skip_length_check=: am__skip_mode_fix=: distdir)"; \ ($(am__cd) $$subdir && \ $(MAKE) $(AM_MAKEFLAGS) \ top_distdir="$$new_top_distdir" \ distdir="$$new_distdir" \ am__remove_distdir=: \ am__skip_length_check=: \ am__skip_mode_fix=: \ distdir) \ || exit 1; \ fi; \ done check-am: all-am check: check-recursive all-am: Makefile installdirs: installdirs-recursive installdirs-am: install: install-recursive install-exec: install-exec-recursive install-data: install-data-recursive uninstall: uninstall-recursive install-am: all-am @$(MAKE) $(AM_MAKEFLAGS) install-exec-am install-data-am installcheck: installcheck-recursive install-strip: if test -z '$(STRIP)'; then \ $(MAKE) $(AM_MAKEFLAGS) INSTALL_PROGRAM="$(INSTALL_STRIP_PROGRAM)" \ install_sh_PROGRAM="$(INSTALL_STRIP_PROGRAM)" INSTALL_STRIP_FLAG=-s \ install; \ else \ $(MAKE) $(AM_MAKEFLAGS) INSTALL_PROGRAM="$(INSTALL_STRIP_PROGRAM)" \ install_sh_PROGRAM="$(INSTALL_STRIP_PROGRAM)" INSTALL_STRIP_FLAG=-s \ "INSTALL_PROGRAM_ENV=STRIPPROG='$(STRIP)'" install; \ fi mostlyclean-generic: clean-generic: distclean-generic: -test -z "$(CONFIG_CLEAN_FILES)" || rm -f $(CONFIG_CLEAN_FILES) -test . = "$(srcdir)" || test -z "$(CONFIG_CLEAN_VPATH_FILES)" || rm -f $(CONFIG_CLEAN_VPATH_FILES) maintainer-clean-generic: @echo "This command is intended for maintainers to use" @echo "it deletes files that may require special tools to rebuild." clean: clean-recursive clean-am: clean-generic clean-libtool mostlyclean-am distclean: distclean-recursive -rm -f Makefile distclean-am: clean-am distclean-generic distclean-tags dvi: dvi-recursive dvi-am: html: html-recursive html-am: info: info-recursive info-am: install-data-am: install-dvi: install-dvi-recursive install-dvi-am: install-exec-am: install-html: install-html-recursive install-html-am: install-info: install-info-recursive install-info-am: install-man: install-pdf: install-pdf-recursive install-pdf-am: install-ps: install-ps-recursive install-ps-am: installcheck-am: maintainer-clean: maintainer-clean-recursive -rm -f Makefile maintainer-clean-am: distclean-am maintainer-clean-generic mostlyclean: mostlyclean-recursive mostlyclean-am: mostlyclean-generic mostlyclean-libtool pdf: pdf-recursive pdf-am: ps: ps-recursive ps-am: uninstall-am: .MAKE: $(RECURSIVE_CLEAN_TARGETS) $(RECURSIVE_TARGETS) ctags-recursive \ install-am install-strip tags-recursive .PHONY: $(RECURSIVE_CLEAN_TARGETS) $(RECURSIVE_TARGETS) CTAGS GTAGS \ all all-am check check-am clean clean-generic clean-libtool \ ctags ctags-recursive distclean distclean-generic \ distclean-libtool distclean-tags distdir dvi dvi-am html \ html-am info info-am install install-am install-data \ install-data-am install-dvi install-dvi-am install-exec \ install-exec-am install-html install-html-am install-info \ install-info-am install-man install-pdf install-pdf-am \ install-ps install-ps-am install-strip installcheck \ installcheck-am installdirs installdirs-am maintainer-clean \ maintainer-clean-generic mostlyclean mostlyclean-generic \ mostlyclean-libtool pdf pdf-am ps ps-am tags tags-recursive \ uninstall uninstall-am # Tell versions [3.59,3.63) of GNU make to not export all variables. # Otherwise a system limit (for SysV at least) may be exceeded. .NOEXPORT: guile-gnome-platform-2.16.2/libgnome/README0000644000175000017500000000156611670374303020654 0ustar00wingowingo00000000000000guile-gnome-libgnome README Copyright (C) 2004 Free Software Foundation, Inc. See the end for copying conditions of this file. Last updated 16 September 2004. About guile-gnome-libgnome ========================== guile-gnome-libgnome is a Guile wrapper for libgnome. It is a part of GNU guile-gnome. See the README file in the toplevel source directory for more information. Build dependencies ================== Besides the base guile-gnome requirements given in ../README, guile-gnome-libgnome requires libgnome development packages. guile-gnome-libgnome depends on the following guile-gnome modules: glib, defs. Copying this file ================= Copyright (C) 2004 Free Software Foundation, Inc. Copying and distribution of this file, with or without modification, are permitted in any medium without royalty provided the copyright notice and this notice are preserved. guile-gnome-platform-2.16.2/libgnome/AUTHORS0000644000175000017500000000054211670374303021035 0ustar00wingowingo00000000000000To find out what should go in this file, see "Information For Maintainers of GNU Software" (maintain.texi), the section called "Recording Changes". Andy Wingo: In the directory gnome/gw, wrote: libgnome-spec.scm gnome-support.c gnome-support.h In the directory gnome/overrides, wrote: libgnome.defs In the directory gnome, wrote: gnome.scm guile-gnome-platform-2.16.2/libgnome/ChangeLog.pre-2.160000644000175000017500000001055311670374303022713 0ustar00wingowingo000000000000002008-05-01 Andy Wingo * doc/overview.texi (Overview): Add some perspective. 2008-04-25 Andy Wingo * == Released guile-gnome-platform version 2.15.98 == 2008-04-25 Andy Wingo * doc/*.texi: Update docs. 2008-04-24 Andy Wingo * gnome/gw/gnome-support.c (_wrap_gnome_program_init): Fix some deprecation warnings. 2008-04-10 Andy Wingo * == Released guile-gnome-platform version 2.15.97 == 2008-04-10 Andy Wingo * NEWS: Update NEWS. 2007-12-10 Andy Wingo * == Released guile-gnome-platform version 2.15.96 == 2007-12-06 Andy Wingo * tests/wrapset.api: Regenerated. * doc/defuns-*.texi: Regenerated. * doc/guile-gnome-libgnome.texi (Top): * doc/undocumented.texi: New section for undocumented exports. 2007-11-30 Andy Wingo * gnome/gw/libgnome-spec.scm (client-global-declarations-cg): Don't add gnome-support.h to client decls. * gnome/overrides/libgnome.defs: Ignore some more functions. * doc/guile-gnome-libgnome.texi (Top): Type and function index. 2007-11-10 Andy Wingo * == Released guile-gnome-platform version 2.15.95 == 2007-11-10 Andy Wingo * tests/Makefile.am: * tests/wrapset.api: * tests/wrapset.scm: Add API regression test suite. 2007-11-01 Andy Wingo * Makefile.am: * doc/: Add documentation, generated from upstream gtk-doc. 2007-09-25 Andy Wingo * == Released guile-gnome-platform version 2.15.94 == 2007-09-25 Andy Wingo * NEWS: Updated. 2007-06-15 Andy Wingo * == Released guile-gnome-platform version 2.15.93 == 2007-05-24 Andy Wingo * == Released guile-gnome-platform version 2.15.92 == 2007-05-24 Andy Wingo * gnome/gw/libgnome-spec.scm (initialize): Load libgnome.defs. * gnome/overrides/Makefile.am (module_DATA): * gnome/overrides/libgnome.defs: Renamed from gnome.defs. Update to deal with new generated libgnome.defs for libgnome 2.16. 2007-05-10 Andy Wingo * == Released guile-gnome-platform version 2.15.91 == 2006-12-15 Andy Wingo * == Released guile-gnome-platform version 2.15.90 == 2006-11-05 Andy Wingo * gnome/gw/libgnome-spec.scm: Use (gnome gw support g-wrap), the g-wrap compatibility wrapper. 2006-08-13 Andy Wingo * gnome/gw/libgnome-spec.scm (gnome): Use (g-wrap guile); seems to prevent problems with some g-wrap versions. 2005-03-06 Andy Wingo * == Released guile-gnome-platform version 2.7.99 == 2005-01-11 Andy Wingo * == Released platform version 2.7.98 == 2004-12-06 Andy Wingo * == Released platform version 2.7.97 == 2004-11-15 Andy Wingo * package.ac: Add record_check. 2004-10-28 Andy Wingo * glib-checks.ac: * defs-checks.ac: Versioned pkg-config check. 2004-10-26 Andy Wingo * gnome/gw/Makefile.am (guilegnomelib_LTLIBRARIES): Install to versioned directory. 2004-09-27 Andy Wingo * gnome/gnome.scm: Avoid deprecated modules. 2004-09-26 Andy Wingo * gnome/Makefile.am (guilemodule_DATA): Install to the proper directory. 2004-09-19 Andy Wingo * gnome/gw/Makefile.am (libgw_guile_gnome_libgnome_la_LIBADD): Not G_WRAP_LINK_ARGS, it's G_WRAP_LIBS. 2004-09-16 Andy Wingo * Makefile.am (SUBDIRS): Dist fixes. * README: Added. * NEWS: Added. * AUTHORS: Added. * glib-checks.ac: Check the right package. 2004-09-12 Andy Wingo * gnome/gw/libgnome-spec.scm: Use proper keywords. * Makefile.am: Dist fixes. * gnome/gnome.scm: Use proper keywords (#:). * gnome/gw/libgnome-spec.scm (initialize): Adapt to load-defs-with-overrides, new module names. * gnome/gw/Makefile.am (libgw_guile_gnome_libgnome_la_SOURCES): Don't dist the g-wrap generated C file. * ChangeLog: All ChangeLogs merged, with non-libgnome entries elided. Now there's nothing here! * gnome/overrides/Makefile.am, overrides/gnome.defs: Add overrides. * gnome/Makefile.am (SUBDIRS): Add overrides. 2004-01-14 Andy Wingo * libgnome bindings started. guile-gnome-platform-2.16.2/libgnome/ChangeLog0000644000175000017500000000006711670374303021541 0ustar00wingowingo00000000000000See the revision control log for changes since 2.16.0. guile-gnome-platform-2.16.2/config.h.in0000644000175000017500000000312111752511102020177 0ustar00wingowingo00000000000000/* config.h.in. Generated from configure.ac by autoheader. */ /* Define to 1 if you have the header file. */ #undef HAVE_DLFCN_H /* Define to 1 if you have the header file. */ #undef HAVE_INTTYPES_H /* Define to 1 if you have the header file. */ #undef HAVE_MEMORY_H /* Define to 1 if you have the header file. */ #undef HAVE_STDINT_H /* Define to 1 if you have the header file. */ #undef HAVE_STDLIB_H /* Define to 1 if you have the header file. */ #undef HAVE_STRINGS_H /* Define to 1 if you have the header file. */ #undef HAVE_STRING_H /* Define to 1 if you have the header file. */ #undef HAVE_SYS_STAT_H /* Define to 1 if you have the header file. */ #undef HAVE_SYS_TYPES_H /* Define to 1 if you have the header file. */ #undef HAVE_UNISTD_H /* Define to the sub-directory in which libtool stores uninstalled libraries. */ #undef LT_OBJDIR /* Name of package */ #undef PACKAGE /* Define to the address where bug reports for this package should be sent. */ #undef PACKAGE_BUGREPORT /* Define to the full name of this package. */ #undef PACKAGE_NAME /* Define to the full name and version of this package. */ #undef PACKAGE_STRING /* Define to the one symbol short name of this package. */ #undef PACKAGE_TARNAME /* Define to the home page for this package. */ #undef PACKAGE_URL /* Define to the version of this package. */ #undef PACKAGE_VERSION /* Define to 1 if you have the ANSI C header files. */ #undef STDC_HEADERS /* Version number of package */ #undef VERSION guile-gnome-platform-2.16.2/gtk/0000755000175000017500000000000011752546503016761 5ustar00wingowingo00000000000000guile-gnome-platform-2.16.2/gtk/TODO0000644000175000017500000000060511670374302017445 0ustar00wingowingo00000000000000* Change private representation of events Using a struct is too brittle (you have to worry about vtable-offset-user, have to create new struct types, etc). We should use a standard type. An alist would be nice, but vectors might be noticeably more efficient. Dunno. * Add a toplevel GDK module GDK isn't finished, of course, and it won't be until someone writes an app that uses it. guile-gnome-platform-2.16.2/gtk/examples/0000755000175000017500000000000011752546502020576 5ustar00wingowingo00000000000000guile-gnome-platform-2.16.2/gtk/examples/calc.scm0000644000175000017500000004647311670374303022217 0ustar00wingowingo00000000000000#! /bin/sh exec guile-gnome-2 -s $0 "$@" !# ;; Time-stamp: <07-sep-2004 11:42:38 pat> ;; ;; Copyright (C) 1997, 1998, 1999 Marius Vollmer ;; Copyright (C) 2004 Patrick Bernaud ;; ;; This program is free software; you can redistribute it and/or ;; modify it under the terms of the GNU General Public License as ;; published by the Free Software Foundation; either version 2, or (at ;; your option) any later version. ;; ;; This program is distributed in the hope that it will be useful, but ;; WITHOUT ANY WARRANTY; without even the implied warranty of ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU ;; General Public License for more details. ;; ;; You should have received a copy of the GNU General Public License ;; along with this software; see the file COPYING. If not, write to ;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, ;; USA. ;; ;; ;; Calc - a HP48 like calculator ;; ;; This is a small demo application of the Guile-gtk bindings, written ;; for the Gnome and Guile workshop at the IN congress in Aachen. ;; ;; It implements a simple desktop calculator in the famous HP ;; style. Altho it is quite simple, it is very powerful. The complete ;; Scheme programming language is available to the user, both to ;; extend its functionality and while using it interactively. ;; ;; * Basic concepts ;; ;; The calculator maintains a stack of arbitray Scheme values and an ;; entry field where the user can type in new values. Below the entry ;; field is an array of buttons that can be configured to the liking ;; of the user. ;; ;; The specification of such a button is quite straightforward: You ;; have to give it a label (a string), a Scheme function that performs ;; the desired operation, the number of argument this function takes ;; from the stack, and what to do with the return value. The rest ;; happens automatically. The stack is popped and pushed, etc. ;; ;; Buttons are grouped into a `row', and rows are grouped into a ;; `panel`. Finally, when constructing a specific calculator, you ;; pass a list of panels that should appear in the calculator window. ;; ;; Typically, a panel groups buttons that belong to one theme, like ;; transcendetal functions, stack operations, functions for doing ;; calculus, or financial operations. Even the digit pad is such a ;; panel with nothing special about it. ;; ;; When the calculator app starts, it reads the file "~/.calcrc" and ;; evaluates it as Scheme code. The main purpose of this file is to ;; set up the preferred button configuration. You can define new ;; panels and/or rearrange the existing ones. ;; ;; * Specifics ;; ;; The panel configuration for the calculator is defined by the ;; variable "calc-panels". To setup your own configuration, you can ;; set it in your "~/.calcrc" file. There are some predefined panels ;; that you can use. They are: ;; ;; calc-arith-ops: A row with "+-" "+" "-" "*" and "/" ;; ;; calc-trans-ops: Some rows with trigonometric functions and ;; their inverses. ;; ;; calc-stack-ops: Functions for manipulating the stack, like ;; "drop", "dup" and "swap". ;; ;; calc-digit-pad: The ten digits plus the arith-ops and some ;; goodies. ;; ;; You have to set "calc-panels" to a list of all the panels you want ;; to have in your calculator, like this ;; ;; (set! calc-panels (list calc-arith-ops calc-trans-ops)) ;; ;; This would give you only the artihmetic operations and some ;; scientific functions. There would be nothing else, not even a ;; digit pad. ;; ;; To define your own panels, you can use the "calc-panel" construct. ;; This is actually a macro, so the normal rules of argument ;; evaluation do not apply to it. The new syntax is: ;; ;; (calc-panel ROW...) ;; ;; with ;; ;; ROW -> (BUTTON...) ;; ;; BUTTON -> (LABEL FUNC N-ARGS [RETURN-ACTION]) ;; ;; This will construct a new panel that consists of the specified ROWs ;; and return it. You can then bind the return value to a variable or ;; use it directly. ;; ;; Each ROW is a list of BUTTONs and each BUTTON is specified by a ;; list of four elements. That's quite a mouthful of lists, but this ;; is LISP, after all... ;; ;; The LABEL of a button is simply the string that will appear on the ;; screen. LABEL will not be evaluated. This means that you can only ;; put constant strings there and not variables. If this is not what ;; you want, you can construct the panel description on your own with ;; `list', etc, but we don't explain it here. ;; ;; The FUNC is a Scheme function that will carry out the operation. ;; Unlike LABEL, FUNC *will* be evaluated by calc-panel, because that ;; is almost always what you want. This means that you can simply ;; name functions by their name or construct new ones with `lambda'. ;; See below how this function is invoked. When FUNC throws an error, ;; it is captured by the calculator and the stack is restored to its ;; previous state. ;; ;; N-ARGS indicates how many arguments this function takes. When ;; N-ARGS is a number, the calculator will pop this many items off its ;; stack and pass them to FUNC. When N-ARGS is the symbol `all', the ;; function will receive the complete stack as its arguments. Note: ;; it will not be called with a single argument that is a list of all ;; stack items. Rather it receives as many arguments as there are ;; stack items. The first argument to FUNC is the last-popped stack ;; item. When N-ARGS is the symbol `entry', it receives the current ;; value of the entry field as a string. N-ARGS is not evaluated. ;; ;; RETURN-ACTION is a symbol that indicates what happens with the ;; return value. It should be one of: ;; ;; push: Take the return value and push it onto the stack. ;; ;; push-list: The return value is a list. Push all its elements ;; onto the stack, beginning with the first list element. ;; ;; set-entry: Set the entry field to the returned string. ;; ;; Specifying RETURN-ACTION is optional. When it is left out, it ;; defaults to `push'. RETURN-ACTION is not evaluated. ;; ;; To recap: LABEL, N-ARGS and RETURN-ACTION are not evaluted, but ;; FUNC is. ;; ;; * Examples ;; ;; This is a panel that only contains one row with one button. The ;; button takes the top two items in the stack, adds them as numbers ;; and pushes the result. ;; ;; (define my-plus-panel (calc-panel (("+" + 2))) ;; ;; There is only one ROW, and the row contains only one BUTTON. The ;; RETURN-ACTION of the BUTTON has been defaulted to `push'. ;; ;; The `+' right after the "+" label is the Scheme variable that ;; carries the normal addition function. ;; ;; The next one is slightly more involved. It is a row of two buttons. ;; One swaps the two top elements of the stack, the other clears the ;; stack. ;; ;; (define my-stack-ops ;; (calc-panel (("swap" (lambda (a b) (list b a)) 2 push-list) ;; ("clear" (lambda args '()) #t push-list)))) ;; ;; Note that we are using `lambda' here to construct the functions in ;; place. ;; ;; `Swap' takes two arguments and returns them in a list that will be ;; pushed element-by-element. `Clear' takes the whole stack as its ;; arguments, but ignores it and pushes nothing, thus leaving the ;; stack empty. ;; ;; For examples about the entry field, see the definition of ;; calc-digit-pad below. ;; ;; ;; * Implementation ;; ;; We put the calculator into its own module to protect us from ;; overwriting builtin functions. (define-module (calc) :use-module (oop goops) :use-module (gnome gtk)) ;; This one loads a file from the users home directory, if it exists. (define (load-rcfile name) (let ((file (string-append (getenv "HOME") "/" name))) (if (file-exists? file) (load file)))) ;; Ok now, this is the meat of the calculator. MAKE-CALCULATOR ;; constructs a new toplevel window and poulates it with widgets, ;; connects to their signals and then shows everything. PANELS is the ;; list of panels that should be displayed below the entry field. (define (make-calculator panels) ;; First, we create some widgets and store references to them in ;; local variables. (let* ((window (make #:type 'toplevel)) (box (make #:homogeneous #f #:spacing 0)) (scrolled-win (make )) (text-buffer (make )) (text-view (make #:buffer text-buffer #:editable #f)) (entry (make )) (echo (make #:label " ")) ;; This is the caluclator stack. It is simply a list of ;; arbitrary values, with the top of the stack in the first ;; element. It starts out empty. (stack '())) ;; Some handy operations to work on the stack. I think you can ;; figure them out. (define (push val) (set! stack (cons val stack))) (define (pop) (let ((val (car stack))) (set! stack (cdr stack)) val)) ;; This pops N elements from the stack and returns a list of them. ;; The first element of this list is the stack item that was ;; popped last. When there are fewer than N items on the stack, ;; we throw an error. (define (pop-n n) (if (< (length stack) n) (throw 'too-few-arguments) (do ((i n (1- i)) (s '() (cons (pop) s))) ((zero? i) s)))) ;; Make our text-view show the stack. The text-buffer is ;; cleared and refilled each time. This is slow, but should be ;; okay for now. (define (redisplay) ;; Now clear the text-buffer and insert a stack-line for every ;; stack item. (set-text text-buffer "") (let ((iter (get-start-iter text-buffer))) (do ((i 1 (1+ i)) (s stack (cdr s))) ((null? s)) ;; A line of the stack display is composed of a numeric label ;; at the left and the value at the right on the line below. We ;; print to a string to get the printed representation of the ;; value. (insert text-buffer iter (string-append (number->string i) ":\n")) (insert-with-tags-by-name text-buffer iter (call-with-output-string (lambda (port) (write (car s) port) (newline port))) '("right-justify"))))) ;; This sets the echo area of the calculator to TEXT. (define set-echo (let ((last-text "")) (lambda (text) ;; Avoid changing the label when the text would not change. ;; Gtk does a lot of size negotiating when the label is ;; changed, which leads to visible flicker. (cond ((not (string=? last-text text)) (set! last-text text) (set-text echo text)))))) ;; Construct a concise error message out of KEY and ARGS. For now ;; we just return the KEY as a string and print a more verbose ;; description to stderr. (define (construct-error-message key args) (if (= (length args) 4) (apply display-error #f (current-error-port) args)) (symbol->string key)) ;; This gets called when the text in the entry field should be ;; pushed on the stack. The text is filtered thru `read' so that ;; you can enter arbitray Scheme data in the field, like numbers, ;; strings, symbols or lists. ACTIVATE-ENTRY takes one argument ;; that says whether to duplicate the topmost stack item when the ;; entry is empty. It defaults to `#t'. The entry is cleared ;; after pushing the value. (define (activate-entry . opt-dup) (define (read-all port) (let loop ((res '()) (val (read port))) (if (eof-object? val) (reverse! res) (loop (cons val res) (read port))))) (let ((vals (call-with-input-string (get-text entry) read-all))) (if (null? vals) (if (and (or (null? opt-dup) (car opt-dup)) (not (null? stack))) (push (car stack))) (for-each push vals)) (redisplay) (set-text entry "") (set-echo ""))) ;; Do whatever ACTION says to do with VAL. (define (perform-action val action) (case action ((push) (push val)) ((push-list) (for-each push val)) ((set-entry) (set-text entry val)) (else (error "bad action")))) ;; Return a new function that is suitable as a signal handler on a ;; panel button. That new function prepares the arguments ;; according to N-ARGS, invokes FUNC and then performs ACTION on ;; the return value. (define (make-op func n-args action) ;; Push the entry field prior to collecting the arguments, but ;; only when we are taking them from the stack. (if (not (eq? action 'set-entry)) (activate-entry #f)) ;; Save the stack so that we can restore it later. (let ((saved-stack stack)) ;; Now, collect all arguments, invoke the real function with ;; them and stuff the return value, all while catching ;; errors. (catch #t ;; This is the normal action. (lambda () (set-echo "") (let ((args (cond ((number? n-args) (pop-n n-args)) ((eq? 'all n-args) (pop-n (length stack))) ((eq? 'entry n-args) (list (get-text entry))) (else (error "bad arg spec" n-args))))) (perform-action (apply func args) action))) ;; We come here when we have caught an error. (lambda (key . args) (set-echo (construct-error-message key args)) (set! stack saved-stack)))) ;; Update the stack display. (redisplay)) ;; Construct a hbox full of buttons according to SPECS. SPECS is ;; a list of button specifications ;; ;; (LABEL FUNC N-ARGS RETURN-ACTION), ;; ;; very similar to the BUTTON template above under "Specifics". ;; But here it is simply a list of values, not syntax with special ;; evaluation rules. All the evaluation or not-evaluation takes ;; place when executing the `calc-panel' form. See below. (define (make-button-row specs) (let ((box (make #:homogeneous #t #:spacing 2))) (for-each (lambda (s) (let ((b (make #:label (car s)))) (connect b 'clicked (lambda (w) (apply make-op (cdr s)))) (pack-start box b #t #t 0))) specs) box)) ;; Now setup the GUI. This is fairly basic Gtk stuff, just like ;; you would write it in C. (set-title window "Calc") (set-policy scrolled-win 'automatic 'always) (add-with-viewport scrolled-win text-view) (set-alignment echo 0.0 0.5) (set-size-request scrolled-win 200 120) ;; Pack the widgets from top to bottom. (add window box) (pack-start box scrolled-win #t #t 0) (pack-start box entry #f #f 0) ;; The text tag to right align the value in text-view (create-tag text-buffer "right-justify" 'justification 'right) ;; Here we loop thru all panels, and (within each panel) thru all ;; rows. Each row is in the format expected by `make-button-row' ;; so we can simply pass it thru. (for-each (lambda (p) (for-each (lambda (r) (let ((br (make-button-row r))) (pack-start box br #f #f 1))) p) (pack-start box (make ) #f #f 1)) panels) ;; Pack the echo area at the bottom. (pack-end box echo #f #f 0) ;; Finally, connect to some signals, show the whole mess and we ;; are done. (connect entry 'activate activate-entry) (connect window 'destroy (lambda (w) (gtk-main-quit))) (show-all window))) ;; This is the definition of the CALC-PANEL macro. It looks quite ;; involved and was indeed not exactly trivial to get right. A better ;; macro system like the syntax-case macros that are now included with ;; Guile should definitely be able to help here. ;; ;; Anyway, all it does is to construct a Scheme expression that -- ;; when evaluated -- in turn constructs a list that can be used as a ;; panel description. A panel description is a list of rows, and a ;; row is a list of button specifications. A button spec is a list ;; of four elements: ;; ;; (LABEL FUNC N-ARGS RETURN-ACTION) ;; ;; This is very similar to the input syntax of `calc-panel' (see above ;; under "Specifics") but not the same. For one, `calc-panel' ;; provides the default value of `push' for the RETURN-ACTION if it is ;; missing in the input; and it handles the funky evaluation business. ;; LABEL, N-ARGS and RETURN-ACTION are quoted in the constructed ;; Scheme expression, but FUNC is not. ;; ;; Thus, the expression ;; ;; (calc-panel (("+" + 2))) ;; ;; expands into ;; ;; (list (list (list '"+" + '2 'push))) (define-macro (calc-panel . rows) (let ((row-exprs (map (lambda (r) `(list ,@(map (lambda (s) `(list ',(car s) ,(cadr s) ',(caddr s) ',(if (null? (cdddr s)) 'push (cadddr s)))) r))) rows))) `(list ,@row-exprs))) ;; Some ready-made panels. ;; ;; The arithmetic operators are straight forward. Maybe "+-" is ;; interesting: It is just the builtin `-' function with only one ;; argument, whereas the minus operator is this same builtin function ;; but with two arguments. (define calc-arith-ops (calc-panel (("+-" - 1) ("+" + 2) ("-" - 2) ("*" * 2) ("/" / 2)))) ;; These should be easy to understand. (define calc-trans-ops (calc-panel (("sin" sin 1) ("cos" cos 1) ("tan" tan 1) ("exp" exp 1)) (("asin" asin 1) ("acos" acos 1) ("atan" atan 1) ("log" log 1)) (("sinh" sinh 1) ("cosh" cosh 1) ("tanh" tanh 1) ("expt" expt 2)))) ;; The stack operations are a little bit more involved, but not ;; really. Note that the "eval" button gives us a complete Scheme ;; interpreter in our calculator. (We should do some module magic ;; here to protect us from evil evals.) When RMS's visions come true ;; about Guile supporting many popular syntaxes and semantics, we ;; might get as easily a Phyton interpreter, or Perl, or TCL, or Java, ;; or what-you-have. (define calc-stack-ops (calc-panel (("drop" (lambda (a) '()) 1 push-list) ("swap" (lambda (a b) (list b a)) 2 push-list) ("dup" (lambda (a) (list a a)) 1 push-list) ("clear" (lambda args '()) all push-list) ("eval" eval 1)))) ;; The digit-pad has to implement insertion/deletion in the entry ;; field. We need some helper functions for that. INS produces an ;; insertion function that just tacks the argument given to INS onto ;; the old entry field text. DEL removes the last char of the text, ;; when there is one. (define (ins string) (lambda (entry) (string-append entry string))) (define (del entry) (let ((len (string-length entry))) (if (> len 0) (substring entry 0 (1- len)) entry))) ;; Can you figure out the "get" function? (define calc-digit-pad (calc-panel (("+-" - 1) ("get" (lambda (a) (with-output-to-string (lambda () (write a)))) 1 set-entry) ("ENTER" (lambda () '()) 0 push-list) ("DEL" del entry set-entry)) (("7" (ins "7") entry set-entry) ("8" (ins "8") entry set-entry) ("9" (ins "9") entry set-entry) ("/" / 2)) (("4" (ins "4") entry set-entry) ("5" (ins "5") entry set-entry) ("6" (ins "6") entry set-entry) ("*" * 2)) (("1" (ins "1") entry set-entry) ("2" (ins "2") entry set-entry) ("3" (ins "3") entry set-entry) ("-" - 2)) (("0" (ins "0") entry set-entry) ("." (ins ".") entry set-entry) ("SPC" (ins " ") entry set-entry) ("+" + 2)))) ;; Predefine CALC-PANELS with some useful panels. Note that the ;; arith-ops are not included because they are also on the digit-pad. (define calc-panels (list calc-stack-ops calc-trans-ops calc-digit-pad)) ;; Now load the user configuration file and use whatever ends up in ;; `calc-panels' to construct the calculator. (load-rcfile ".calcrc") (make-calculator calc-panels) (gtk-main) ; Local Variables: ; mode: scheme ; End: guile-gnome-platform-2.16.2/gtk/examples/guile-gtk-demo/0000755000175000017500000000000011670374303023405 5ustar00wingowingo00000000000000guile-gnome-platform-2.16.2/gtk/examples/guile-gtk-demo/guile-gtk-demo.scm0000755000175000017500000001434311670374303026733 0ustar00wingowingo00000000000000#! /bin/sh # -*- scheme -*- exec guile-gnome-2 -s $0 "$@" !# ;; guile-gnome ;; Copyright (C) 2003,2004 Free Software Foundation, Inc. ;; This program is free software; you can redistribute it and/or ;; modify it under the terms of the GNU General Public License as ;; published by the Free Software Foundation; either version 2 of ;; the License, or (at your option) any later version. ;; ;; This program is distributed in the hope that it will be useful, ;; but WITHOUT ANY WARRANTY; without even the implied warranty of ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the ;; GNU General Public License for more details. ;; ;; You should have received a copy of the GNU General Public License ;; along with this program; if not, contact: ;; ;; Free Software Foundation Voice: +1-617-542-5942 ;; 59 Temple Place - Suite 330 Fax: +1-617-542-2652 ;; Boston, MA 02111-1307, USA gnu@gnu.org (read-set! keywords 'prefix) (use-modules (oop goops) (gnome gobject) (gnome glib) (gnome gtk) (srfi srfi-13) (srfi srfi-1) (ice-9 rw) (ice-9 receive)) ;; Why aren't these part of the distro? (define (file-size f) (stat:size (stat f))) (define (read-file f) (let* ((size (file-size f)) (str (make-string size #\ ))) (with-input-from-file f (lambda () (if (eq? size (read-string!/partial str)) str ""))))) ;; Detecting and loading up the demos (define this-dir (dirname (car (program-arguments)))) (set! %load-path (cons this-dir %load-path)) (define (build-path . args) (string-join args "/")) (define (get-demos) (let* ((demo-dir (build-path this-dir "demos")) (demos '()) (dir (opendir demo-dir))) (do ((entry (readdir dir) (readdir dir))) ((eof-object? entry)) (if (and (eq? 'regular (stat:type (stat (build-path demo-dir entry)))) (string-suffix? ".scm" entry)) ;; cons on the module and source of the file (set! demos (cons (cons (resolve-module (list 'demos (string->symbol (substring entry 0 (- (string-length entry) 4)))) #t) (read-file (build-path demo-dir entry))) demos)))) demos)) (define (demo-module demo) (car demo)) (define (demo-source demo) (cdr demo)) (define (demo-name demo) (eval 'name (demo-module demo))) (define (demo-main demo) (eval 'main (demo-module demo))) (define (demo-description demo) (eval 'description (demo-module demo))) ;; The main window (define main-window (make :title "Guile-Gtk Demo" :type 'toplevel)) (define (make-scrolled) (make :hscrollbar-policy 'automatic :vscrollbar-policy 'automatic)) (define tree-view (let* ((store (gtk-list-store-new (list ))) (tree-view (make :model store)) (cellrenderer (make )) (column (make :title "Widget (double-click to show)")) (selection (get-selection tree-view))) (for-each (lambda (demo) (gtk-tree-or-list-store-set store (gtk-list-store-append store) 0 demo 1 (demo-name demo))) (get-demos)) (set-mode selection 'single) (pack-start column cellrenderer #t) (add-attribute column cellrenderer "text" 1) (append-column tree-view column) (set-size-request tree-view 200 -1) tree-view)) (define notebook (make )) (define (make-text-view wrap-mode pix name) (let* ((scrolled (make-scrolled)) (text-view (make )) (text-buffer (get-buffer text-view))) (set text-view 'editable #f) (set text-view 'cursor-visible #f) (set text-view 'wrap-mode wrap-mode) (set text-view 'pixels-above-lines pix) (set text-view 'pixels-below-lines pix) (set scrolled 'shadow-type 'in) (add scrolled text-view) (append-page notebook scrolled (make :label name :use-underline #t)) text-buffer)) (define info-buffer (make-text-view 'word 2 "_Info")) (define source-buffer (make-text-view 'none 0 "_Source")) (create-tag info-buffer "title" 'font "Sans 18") (create-tag source-buffer "source" 'font "Courier 12" 'pixels-above-lines 0 'pixels-below-lines 0) (define (clear-buffer buf) (receive (start end) (get-bounds buf) (gtk-text-buffer-delete buf start end))) (define (set-demo demo) (clear-buffer info-buffer) (let ((name (demo-name demo)) (desc (demo-description demo)) (iter (get-iter-at-offset info-buffer 0)) (start #f)) (insert info-buffer iter name) (set! start (get-iter-at-offset info-buffer 0)) (apply-tag-by-name info-buffer "title" start iter) (insert info-buffer iter "\n") (insert info-buffer iter desc)) (clear-buffer source-buffer) (let ((source (demo-source demo)) (iter (get-iter-at-offset source-buffer 0)) (start #f)) (insert source-buffer iter source) (set! start (get-iter-at-offset source-buffer 0)) (apply-tag-by-name source-buffer "source" start iter))) (set-default-size main-window 600 400) ;; Pack the widgets (let ((hbox (make ))) (add main-window hbox) (let ((scrolled (make-scrolled))) (add scrolled tree-view) (pack-start hbox scrolled #f #f 0)) (pack-start hbox notebook #t #t 0)) ;; Signals... (connect main-window 'delete-event (lambda (w e) (gtk-main-quit) #f)) (connect tree-view 'row-activated (lambda (tview path col) (let* ((model (get-model tview)) (iter (gtk-tree-model-get-iter model path)) (demo (gtk-tree-model-get-value model iter 0)) (main (demo-main demo))) (main)))) (connect (get-selection tree-view) 'changed (lambda (selection) (receive (model iter) (get-selected selection) (if iter (set-demo (gtk-tree-model-get-value model iter 0)))))) (emit (get-selection tree-view) 'changed) (show-all main-window) (gtk-main) guile-gnome-platform-2.16.2/gtk/examples/guile-gtk-demo/gtk-logo-rgb.gif0000644000175000017500000001443311670374303026374 0ustar00wingowingo00000000000000GIF89akŒçÿÿÿïûõïô󪫹ÔÄèÔÜÔ˜¸­Æ¹ÅÄ/L”\lÀu’x 4# "7èÕï„x¤:Z¬5d Y$]'+4 ."dª¢Ü»Ò¼-E76Z7nNdlG7]9$7L 5(4…=`Ûëà-LE*48  ; &M–=rá2fÆpˆz$L-M¸>vâ!C‚ÌåÚ %<’/e®o{,D´9MG 'Þõç=WW +T›,[Ÿ’ª¬43\Ç,  7gÓOkw1U» Ã¸DVr¦” ‚¤Œ=!2kFZûîú&Rl #4Td\ھس˜JmÍ ,š~¬ÕÌâ($;DL&p,X%I 5'iU!¤):ÉFA9GDjÓÔÖÕe²)<9 H ØFE‚,)7 ëIKj)%6#&¨89;4P 4E&¶@4˜âÞ•pA àYhPJ,A‡~(Ût,0ñC&Η"ŠCÎwÅa¥…†Œ9ñŽˆÝ Û” @¡ƒƒ¼5¤ÚqGZp¤X@QHñ"\Ö6eS´d–¦Xä–:¼b¥˜R\T¥Ž 2AdvP0CMà  àp%‘õ ‰ƒ„¥ÝpÊRBY±D‡ÞMwÙlBL‘å h6¥l5„¢zP §þÜ10abK%qE‹9JY‚@+ÀªõÂ,Ø6儳æGÁ‚[j7°•¢2YЀët»Vaâ-œ:®ù…›#š,4!*}Ù51‚¬¥a° ü™ë¡šÈ"¶ùmÆB¥Nh[¿•V0…vCú0A ¸†TIZ´p&š:º *ƒLˆ(®¸³"›,¸h: ­‰¼1ÑBùÅ’[àŠ˜?8„[û;B: ¬ÃLÖ­;n|ÃpΗƒ¢$#F*`EÉÂuY ‚>¨C·ãF9âÀB«èCÝJÕ7Ô ôƒC#‰æ(ª¨–áÞ0BB¸ºÂGÉ@­fÍàþœCd6t·uCÞsù®yNDWAš†[ÖÍzv'»%Ô ­ŠÍÖ7\]¼ð凇‰€îœsSѹQTýaÜ[É`hRš"€Œ.ÙYúðÅe-d¦,Ù Ë÷BÓ¡¬âJAÂçqA´v`0@i,ÂUAì½<¶ñ@¿™Ø\b‰â'×^ÊcDÆQÖP†«pò6"˜Áù †ù›zkÖ|¸U)<ŠKô)\ *ÅŠõaI ÀO¿6S³Ø¹ê~EÌJšEêM˜ÃNþU»e-RrÊÁïJÓŠ…(!'€AÐT6 ¬{ZÚŽun7®”è„þ*ªÙ£æÄ›{ÉæC.H`ÐR¸%­Ì¯èŠ@œ0ƒ<1RÀ€ ä¶DMM-NCS| '·4áY?`ÂØ„ðUˆ&Ü[‘ìW4¸ÀBèŠf ƒ#\àjà€âÖ½ïõîY`€Ø‡(@¸½¡h°MØ\0„ïOwK$]œb!‹Ö•`!Ã,† °¡ nxCà ¼qP€_íz'‰Ìn#ãXHG ‰7´€B,j±† Ø!Vàc Ô9ÌlÈbtðAAn Tdî FFüÆjì© ÷¸HF&îm :¸.fÄ |ÈBìðÁ”wþÀCÌt€@ ,\Š¦€|u°š½¹Ÿø@׃’±xDœ#o¨°† HF»èD x ìá4àCü€<üpá¢Æ»¬1!Œp] ‹4©ªmljôC別ˆÆ‚ hÀÒP2ôÂ6¸À/:º…#Ðà€DIñ 3¹èÓ4Ÿ§p;Žý€GºØ"Õòƒ–q>è¤ÅL ¤áÀ†\…A‚ #(yÌ B ˆ©â!„‚‹.PƒB”¯§>0\ ƒ&™ön`CøÁ¦bv™`òƒ½ó->`Èà k0ˆA aÜ@ Å@H‘†#ð!ª~Åþ"øY>¨ ôÓRWÛ‚&ÍQ>ÞT™ÝzGÂéJWXÁ†(c´¤%-%JP âÐäxjb[R? áE|@¬$@:·‹\c÷ô‡± @A—åÕÃVpOXÄ€n~I{Œ°i€"NÐ Œ”»xðÃ"PúÇ#`€ X«oü6Á(ÁnKÀ ®¤I¹êVG¸ÁÝç7Š½@2ˆðA¤REp ñÇI! .X£‰˜ ·`+c,øAC‡Æ?qQàr¯”O~€‹ÖÀ% ÆØotõ«ŒDªAyiÄBÚ‡Ë ^æN ½úŒ@’®ëØþˆ$®$à°¿ÔÁ"ó¥,C¿¤….t™ŸR$$Š Š`¿ dƒÔÀ‡4”á€(Š‚tš&ÖvÒæë Œ°„ Ôµk‰ñ]f¬vÄ^Ć©>¢Ðx ÃS£ùâ#À¡Uõ Í<Ô1±Þ`"7{“N#È SÎ5±‰ñ쌷\pˆÞA•Ð ‡{ÝH$Ћ$ÐKGZáPPÖ I$Ó‡qàyÝå¬8hùáw±um– ÜàW‚Ї~èÐCà ÇP‹K° ·§ƒËVZo!A @ŽæHW¦l˜{À!q` [s –Àâr|ðÜE¸ŒÝµ ‹F·”à øÑ‹K@o2¨}ѵrˆpqö #—<Ƹ÷´ t@~EAM)^ˆÁo`un "ems þ H†œ`Š° ÝpŽ¤¥ y|–ŽpÊðqÊЀ~¦0°ø’Û[ßà’€$x_—Hˆ~4à¤7Uƒ` 6Ðr¥ “¨ƒÁ  Ù`6P”r—_#W àtúÕ < ‘3@2›€É7UtPcA”}‚x° !¥„0Uß6Œ¸``†`à §gáW `Ž¥æÇdŒO@2Ü@}YR‘Pc€t&¢ˆj 16„°`|pxð ‹`Oƒž¹ ½È)• l9já 2$ mIZað°0°o± ß@|~… ¬Øš•öG~þ· „p àP×ø ƒ@A€‘æÈ $0oë°“£¶{ê Ëà™ÑUœpñlJ/À nÀ†  X•.²Lmà~ð€à߇¸QrÙ`Yðä™ ÂrÄ  ìUQ™qŽ.Òƒ‘ú)ÎøŸ±õ8˜ÙiJâ@Rt âÙ‹A€™¶G Ý`6P¡%Îð; ]Ê€‚áR ¹ˆbô lÏRÜ  j0ÕmÀ—o€ùväð~â飊@jÊ`‡H¦`à †€ %F‘ùAÈ _hbU†wÉФå› ¥{Xm„ kjt¦Ôr’Pþtʦ ÚAY`žÄ l†b)Z!7¦pqeŒq¬ã"›° µY|‚ ¥ýÈù4Un``pˆ`p¨j™Ž6à fðÌ` ÌÀ ÂU–•ÊC¡`r ¡'ä/ùyH [èW5 O w̉·óh*¤Ê°<„$°ù¨oq‹À«Qð"}PUTJ¬(•F÷”S% `¡ŽZŸdZ¦%œ0Žµ.Apg2 ÃÍ®OðG›–`›.§ ¢Zl°m÷Ø®K€6¯¤e¿Ù!7° °Î`‘ú£»ð“GWÎÖ¤N:Щ–pþ®.7Á^üX‹v{ZRnpl¦&f²ˆAËp Yà Šͺ­(†ô€²dò",+Å÷ á¢åš®®Ù•Œù®fÙ_Ú!ÎÀ cˆ+äÉ›¹Ø“`ЭõÀI°œŠ° [m3$Š+~@séz]êW‘ðÞ—£¶™BëP™!KàžÉ ¿yÚ€²€&Xäð‹·°VJ ^PkmöW[ìZi ÚZbG‰+4`>š2ð\ô©lëà!GP (+`µEp[hXWR·¥7+[€ÀŠ"y›’f™o 2 !‹¡…g] ¡€²Q þDÛ`Ÿ–|€µ G^Éf7à}Ê ¢ˆ1™Ë›¾ÃÙ–£u¾>š” !•0h}ðj`¹¹km»ËšÉZ|tp­% ¸ù•o¢žŸœ‚&¾Ð…ÑU¤„j a½æu›[m~ /˾Õö ,§ (V$P¦©{`wºº% Á Q 7``ç€ k°»¥qšÌC6pgxv“•¦7Ù‹©[f0²Ê¶ f2%`)Á‚ŇŸ7òb`Å÷Wt A$0Ÿ£f¤â¢·c¦ YYà“&æ `H7p‰ !`&PܲŸçä w…æ êÉŽÂùþØP­ ù›#\)Ç`Æ¤å ¨¢ °vƒÆç ÇêçWTL·3[ûkU˜Pþ lbzˆ•Ðˋ؈÷êT7œ £M…Ð’o å!¾ ÁÎœM¡Ç° DMÝrI 7¸¥îà× £ Âç¹Z^h‚%ì “‰× êÀ;º\Xæ;°î°L3íãÙ¬ -ÒËë¡^m¾ k6)ÅÆ!F@ ï GçéíãEè4ÞÇt :label title)) (bbox (make (if horizontal ) :layout-style layout :spacing spacing :border-width 5))) (add frame bbox) (for-each (lambda (s) (add bbox (make :label (gtk-stock-id s) :use-stock #t))) '(ok cancel help)) frame)) (define (main) (let ((window (make :type 'toplevel :title "Button Boxes" :border-width 10)) (mainvbox (make :homogeneous #f :spacing 0)) (framehorz (make :label "Horizontal Button Boxes")) (vbox (make :homogeneous #f :spacing 0 :border-width 10)) (framevert (make :label "Horizontal Button Boxes")) (hbox (make :homogeneous #f :spacing 0 :border-width 10))) (add window mainvbox) (pack-start mainvbox framehorz #t #t 10) (add framehorz vbox) (pack-start vbox (create-bbox #t "Spread" 40 'spread) #t #t 0) (pack-start vbox (create-bbox #t "Edge" 40 'edge) #t #t 5) (pack-start vbox (create-bbox #t "Start" 40 'start) #t #t 5) (pack-start vbox (create-bbox #t "End" 40 'end) #t #t 5) (pack-start mainvbox framevert #t #t 10) (add framevert hbox) (pack-start hbox (create-bbox #f "Spread" 30 'spread) #t #t 0) (pack-start hbox (create-bbox #f "Edge" 30 'edge) #t #t 5) (pack-start hbox (create-bbox #f "Start" 30 'start) #t #t 5) (pack-start hbox (create-bbox #f "End" 30 'end) #t #t 5) (show-all window))) (define name "Button Boxes") (define description (string-append "The Button Box widgets are used to arrange buttons with padding.")) guile-gnome-platform-2.16.2/gtk/examples/guile-gtk-demo/demos/editable-cells.scm0000644000175000017500000000706211670374303030076 0ustar00wingowingo00000000000000;; Copyright (C) 2004 Patrick Bernaud ;; GNU General Public License version 2 or later. No warrantee. (define-module (demos editable-cells) :use-module (oop goops) :use-module (gnome gobject) :use-module (gnome gtk)) (define (populate-model model) (for-each (lambda (x) (add-item model x)) '((3 "bottles of coke" #t) (5 "package of noodles" #t) (2 "packages of chocolate chip cookies" #t) (1 "can vanilla ice cream" #t) (6 "eggs" #t)))) (define (add-item model item) (let ((iter (append model))) (for-each (lambda (i x) (set-value model iter i x)) '(0 1 2) item))) (define (add-new-item model) (add-item model '(0 "Description here" #t))) (define (remove-selected-item treeview) (call-with-values (lambda () (get-selected (get-selection treeview))) (lambda (model iter) (if iter (remove model iter))))) (define (cell-edited model column path newtext) (let ((iter (get-iter model path))) (cond (;; number column (eqv? column 0) (set-value model iter 0 (string->number newtext))) (;; product column (eq? column 1) (set-value model iter 1 newtext))))) (define (add-columns treeview) (let ((model (get-model treeview)) ;; number column (renderer1 (make )) (column1 (make :title "Number")) ;; product column (renderer2 (make )) (column2 (make :title "Product"))) (connect renderer1 'edited (lambda (w p d) (cell-edited model 0 p d))) (pack-start column1 renderer1 #f) (add-attribute column1 renderer1 "text" 0) (add-attribute column1 renderer1 "editable" 2) (append-column treeview column1) (connect renderer2 'edited (lambda (w p d) (cell-edited model 1 p d))) (pack-start column2 renderer2 #f) (add-attribute column2 renderer2 "text" 1) (add-attribute column2 renderer2 "editable" 2) (append-column treeview column2))) (define (main) (let* (;; create window, etc (window (make :type 'toplevel :title "Shopping list")) (vbox (make :homogeneous #f :spacing 5)) (sw (make :hscrollbar-policy 'automatic :vscrollbar-policy 'automatic :shadow-type 'etched-in)) ;; create tree model (model (gtk-list-store-new (list ))) ;; create tree view (treeview (make :model model :rules-hint #t)) ;; some buttons (hbox (make :homogeneous #t :spacing 4)) (button1 (make :label "Add item")) (button2 (make :label "Remove item"))) (set-border-width window 5) (add window vbox) (pack-start vbox (make :label "Shopping list (you can edit the cells!)") #f #f 0) (pack-start vbox sw #t #t 0) (populate-model model) (set-mode (get-selection treeview) 'single) (add-columns treeview) (add sw treeview) (pack-start vbox hbox #f #f 0) (connect button1 'clicked (lambda (w) (add-new-item model))) (pack-start hbox button1 #t #t 0) (connect button2 'clicked (lambda (w) (remove-selected-item treeview))) (pack-start hbox button2 #t #t 0) (set-default-size window 320 200) (show-all window))) (define name "Tree View/Editable Cells") (define description (string-append "This demo demonstrates the use of editable cells in a GtkTreeView. If " "you're new to the GtkTreeView widgets and associates, look into " "the GtkListStore example first.")) guile-gnome-platform-2.16.2/gtk/examples/guile-gtk-demo/demos/panes.scm0000644000175000017500000001027611670374303026334 0ustar00wingowingo00000000000000;; Copyright (C) 2004 Patrick Bernaud ;; GNU General Public License version 2 or later. No warrantee. (define-module (demos panes) :use-module (oop goops) :use-module (gnome gobject) :use-module (gnome gtk)) (define (toggle-resize child) (let* ((paned (get-parent child)) (is-child1 (eq? child (get-child1 paned))) (resize (make #:value #f)) (shrink (make #:value #f))) ;; hack: child-get-property should be wrapped more nicely (child-get-property paned child "resize" resize) (child-get-property paned child "shrink" shrink) (remove paned child) (if is-child1 (pack1 paned child (not (gvalue->scm resize)) (gvalue->scm shrink)) (pack2 paned child (not (gvalue->scm resize)) (gvalue->scm shrink))))) (define (toggle-shrink child) (let* ((paned (get-parent child)) (is-child1 (eq? child (get-child1 paned))) (resize (make #:value #f)) (shrink (make #:value #f))) ;; hack: child-get-property should be wrapped more nicely (child-get-property paned child "resize" resize) (child-get-property paned child "shrink" shrink) (remove paned child) (if is-child1 (pack1 paned child (gvalue->scm resize) (not (gvalue->scm shrink))) (pack2 paned child (gvalue->scm resize) (not (gvalue->scm shrink)))))) (define (create-pane-options paned frame-label label1 label2) (let ((frame (make :label frame-label :border-width 4)) (table (make :n-rows 3 :n-columns 2 :homogeneous #t))) (add frame table) (let ((label (make :label label1)) (check-button1 (make :label "_Resize" :use-underline #t)) (check-button2 (make :label "_Shrink" :use-underline #t :active #t))) (attach-defaults table label 0 1 0 1) (attach-defaults table check-button1 0 1 1 2) (connect check-button1 'toggled (lambda (w) (toggle-resize (get-child1 paned)))) (attach-defaults table check-button2 0 1 2 3) (connect check-button2 'toggled (lambda (w) (toggle-shrink (get-child1 paned))))) (let ((label (make :label label2)) (check-button1 (make :label "_Resize" :use-underline #t)) (check-button2 (make :label "_Shrink" :use-underline #t :active #t))) (attach-defaults table label 1 2 0 1) (attach-defaults table check-button1 1 2 1 2) (connect check-button1 'toggled (lambda (w) (toggle-resize (get-child2 paned)))) (attach-defaults table check-button2 1 2 2 3) (connect check-button2 'toggled (lambda (w) (toggle-shrink (get-child2 paned))))) frame)) (define (main) (let* ((window (make :type 'toplevel :title "Panes" :border-width 0)) (vbox (make :homogeneous #f :spacing 0)) (vpaned (make :border-width 5)) (hpaned (make )) (frame1 (make :shadow-type 'in :width-request 60 :height-request 60)) (frame2 (make :shadow-type 'in :width-request 80 :height-request 60)) (frame3 (make :shadow-type 'in :width-request 60 :height-request 80)) (button (make :label "_Hi there" :use-underline #t)) (vpane-options (create-pane-options vpaned "Vertical" "Top" "Bottom")) (hpane-options (create-pane-options hpaned "Horizontal" "Left" "Right"))) (add window vbox) (pack-start vbox vpaned #t #t 0) (add1 vpaned hpaned) (add1 hpaned frame1) (add frame1 button) (add2 hpaned frame2) (add2 vpaned frame3) ;; (pack-start vbox hpane-options #f #f 0) (pack-start vbox vpane-options #f #f 0) (show-all window))) (define name "Paned Widgets") (define description (string-append "The GtkHPaned and GtkVPaned Widgets divide their content" "area into two panes with a divider in between that the" "user can adjust. A separate child is placed into each" "pane." "\n" "There are a number of options that can be set for each pane." "This test contains both a horizontal (HPaned) and a vertical" "(VPaned) widget, and allows you to adjust the options for" "each side of each widget.")) guile-gnome-platform-2.16.2/gtk/examples/guile-gtk-demo/demos/sizegroup.scm0000644000175000017500000000662511670374303027260 0ustar00wingowingo00000000000000;; Copyright (C) 2004 Patrick Bernaud ;; GNU General Public License version 2 or later. No warrantee. (define-module (demos sizegroup) :use-module (oop goops) :use-module (gnome gobject) :use-module (gnome gtk)) (define color-options '("Red" "Green" "Blue")) (define dash-options '("Solid" "Dashed" "Dotted")) (define end-options '("Square" "Round" "Arrow")) (define (main) ;; convenience function to create a combo box holding a number of strings (define (create-combo-box strings) (let ((combobox (gtk-combo-box-new-text))) (for-each (lambda (str) (append-text combobox str)) strings) (set-active combobox 0) combobox)) (define (add-row table row sizegroup labeltext options) (let* ((combobox (create-combo-box options)) (label (make :label labeltext :use-underline #t :mnemonic-widget combobox :xalign 0 :yalign 1))) (attach table label 0 1 row (+ row 1) '(fill expand) #f 0 0) (add-widget sizegroup combobox) (attach table combobox 1 2 row (+ 1 row) #f #f 0 0))) (define (toggle-grouping checkbutton sizegroup) (set sizegroup 'mode (if (get-active checkbutton) 'horizontal 'none))) (let* ((w (make :title "GtkSizeGroup" :resizable #f)) (vbox (make :homogeneous #f :spacing 5 :border-width 5)) (sg (make :mode 'horizontal)) (frame1 (make :label "Color options")) (table1 (make :n-columns 2 :n-rows 2 :homogeneous #f :border-width 5 :row-spacing 5 :row-spacing 10)) (frame2 (make :label "Line options")) (table2 (make :n-columns 2 :n-rows 2 :homogeneous #f :border-width 5 :row-spacing 5 :row-spacing 10)) (cb (make :label "_Enable grouping" :use-underline #t :active #t))) (add-button w (gtk-stock-id 'close) (genum->value (make :value 'none))) (connect w 'response (lambda (w a) (gtk-widget-destroy w) #f)) (pack-start (get-vbox w) vbox #t #t 0) ;; frame holding color options (pack-start vbox frame1 #t #t 0) (add frame1 table1) (add-row table1 0 sg "_Foreground" color-options) (add-row table1 1 sg "_Background" color-options) ;; second frame holding line style options (pack-start vbox frame2 #f #f 0) (add frame2 table2) (add-row table2 0 sg "_Dashing" dash-options) (add-row table2 1 sg "_Line ends" end-options) ;; check button to turn grouping on and off (pack-start vbox cb #f #f 0) (connect cb 'toggled (lambda (b) (toggle-grouping b sg))) (show-all w))) (define name "Size Groups") (define description (string-append "GtkSizeGroup provides a mechanism for grouping a number of " "widgets together so they all request the same amount of space." "This is typically useful when you want a column of widgets to " "have the same size, but you can't use a GtkTable widget." "\n" "Note that size groups only affect the amount of space requested," "not the size that the widgets finally receive. If you want the" "widgets in a GtkSizeGroup to actually be the same size, you need" "to pack them in such a way that they get the size they request" "and not more. For example, if you are packing your widgets" "into a table, you would not include the GTK_FILL flag.")) guile-gnome-platform-2.16.2/gtk/examples/guile-gtk-demo/demos/tree-store.scm0000644000175000017500000002057011670374303027315 0ustar00wingowingo00000000000000;; Copyright (C) 2004 Patrick Bernaud ;; GNU General Public License version 2 or later. No warrantee. (define-module (demos tree-store) :use-module (oop goops) :use-module (gnome gobject) :use-module (gnome gtk)) (define january '(("New Years Day" #t #t #t #t #f #t) ("Presidential Inauguration" #f #t #f #t #f #f) ("Martin Luther King Jr. day" #f #t #f #t #f #f))) (define february '(("Presidents' Day" #f #t #f #t #f #f) ("Groundhog Day" #f #f #f #f #f #f) ("Valentine's Day" #f #f #f #f #t #t))) (define march '(("National Tree Planting Day" #f #f #f #f #f #f) ("St Patrick's Day" #f #f #f #f #f #t))) (define april '(("April Fools' Day" #f #f #f #f #f #t) ("Army Day" #f #f #f #f #f #f) ("Earth Day" #f #f #f #f #f #t) ("Administrative Professionals' Day" #f #f #f #f #f #f))) (define may '(("Nurses' Day" #f #f #f #f #f #f) ("National Day of Prayer" #f #f #f #f #f #f) ("Mothers' Day" #f #f #f #f #f #t) ("Armed Forces Day" #f #f #f #f #f #f) ("Memorial Day" #t #t #t #t #f #t))) (define june '(("June Fathers' Day" #f #f #f #f #f #t) ("Juneteenth (Liberation of Slaves)" #f #f #f #f #f #f) ("Flag Day" #f #t #f #t #f #f))) (define july '(("Parents' Day" #f #f #f #f #f #t) ("Independence Day" #f #t #f #t #f #f))) (define august '(("Air Force Day" #f #f #f #f #f #f) ("Coast Guard Day" #f #f #f #f #f #f) ("Friendship Day" #f #f #f #f #f #f))) (define september '(("Grandparents' Day" #f #f #f #f #f #t) ("Citizenship Day or Constitution Day" #f #f #f #f #f #f) ("Labor Day" #t #t #t #t #f #t))) (define october '(("National Children's Day" #f #f #f #f #f #f) ("Bosses' Day" #f #f #f #f #f #f) ("Sweetest Day" #f #f #f #f #f #f) ("Mother-in-Law's Day" #f #f #f #f #f #f) ("Navy Day" #f #f #f #f #f #f) ("Columbus Day" #f #t #f #t #f #f) ("Halloween" #f #f #f #f #f #t))) (define november '(("Marine Corps Day" #f #f #f #f #f #f) ("Veterans' Day" #t #t #t #t #f #t) ("Thanksgiving" #f #t #f #t #f #f))) (define december '(("Pearl Harbor Remembrance Day" #f #f #f #f #f #f) ("Christmas" #t #t #t #t #f #t) ("Kwanzaa" #f #f #f #f #f #f))) (define toplevel `(("January" ,january) ("February" ,february) ("March" ,march) ("April" ,april) ("May" ,may) ("June" ,june) ("July" ,july) ("August" ,august) ("September" ,september) ("October" ,october) ("November" ,november) ("December" ,december))) (define holiday-name-column 0) (define alex-column 1) (define havoc-column 2) (define tim-column 3) (define owen-column 4) (define dave-column 5) (define visible-column 6) (define world-column 7) (define (create-model) (let ( ; create tree store (model (gtk-tree-store-new (list )))) (for-each (lambda (m) (let ((iter (append model (make )))) (set-value model iter holiday-name-column (car m)) (for-each (lambda (c) (set-value model iter c #f)) (list alex-column havoc-column tim-column owen-column dave-column visible-column world-column)) (for-each (lambda (h) (let ((iter (append model iter))) (for-each (lambda (c i) (set-value model iter i c)) h (list holiday-name-column alex-column havoc-column tim-column owen-column dave-column world-column)) (set-value model iter visible-column #t))) (cadr m)))) toplevel) model)) (define (item-toggled treemodel pathstr column) (let* ( ;; get toggled iter (iter (get-iter treemodel pathstr)) ;; get current value and invert (toggle (not (get-value treemodel iter column)))) ;; set the new value (set-value treemodel iter column toggle))) (define (add-columns treeview) (let ((model (get-model treeview)) ;; column for holiday names (renderer1 (make :xalign 0)) (column1 (make :title "Holliday" ;; set this column to a fixed sizing (of 50 pixels) :clickable #t)) ;; alex column (renderer2 (make :xalign 0)) (column2 (make :title "Alex" :sizing 'fixed :fixed-width 50 :clickable #t)) ;; havoc column (renderer3 (make :xalign 0)) (column3 (make :title "Havoc" :sizing 'fixed :fixed-width 50 :clickable #t)) ;; tim column (renderer4 (make :xalign 0)) (column4 (make :title "Tim" :sizing 'fixed :fixed-width 50 :clickable #t)) ;; owen column (renderer5 (make :xalign 0)) (column5 (make :title "Owen" :sizing 'fixed :fixed-width 50 :clickable #t)) ;; dave column (renderer6 (make :xalign 0)) (column6 (make :title "Dave" :sizing 'fixed :fixed-width 50 :clickable #t))) (pack-start column1 renderer1 #f) (add-attribute column1 renderer1 "text" 0) (append-column treeview column1) (pack-start column2 renderer2 #f) (connect renderer2 'toggled (lambda (w p) (item-toggled model p alex-column))) (add-attribute column2 renderer2 "active" alex-column) (add-attribute column2 renderer2 "visible" visible-column) (add-attribute column2 renderer2 "activatable" world-column) (append-column treeview column2) (connect renderer3 'toggled (lambda (w p) (item-toggled model p havoc-column))) (pack-start column3 renderer3 #f) (add-attribute column3 renderer3 "active" havoc-column) (add-attribute column3 renderer3 "visible" visible-column) (append-column treeview column3) (connect renderer4 'toggled (lambda (w p) (item-toggled model p tim-column))) (pack-start column4 renderer4 #f) (add-attribute column4 renderer4 "active" tim-column) (add-attribute column4 renderer4 "visible" visible-column) (add-attribute column4 renderer4 "activatable" world-column) (append-column treeview column4) (connect renderer5 'toggled (lambda (w p) (item-toggled model p owen-column))) (pack-start column5 renderer5 #f) (add-attribute column5 renderer5 "active" owen-column) (add-attribute column5 renderer5 "visible" visible-column) (append-column treeview column5) (connect renderer6 'toggled (lambda (w p) (item-toggled model p dave-column))) (pack-start column6 renderer6 #f) (add-attribute column6 renderer6 "active" dave-column) (add-attribute column6 renderer6 "visible" visible-column) (append-column treeview column6))) (define (main) (let* ( ;; create window, etc (window (make :type 'toplevel :title "Card planning sheet" :default-width 650 :default-height 400)) (vbox (make :homogeneous #f :spacing 8 :border-width 8)) (sw (make :hscrollbar-policy 'automatic :vscrollbar-policy 'automatic :shadow-type 'etched-in)) ;; create tree model (model (create-model)) ;; create tree view (treeview (make :model model :rules-hint #t)) ;; some buttons (hbox (make :homogeneous #t :spacing 4)) (button1 (make :label "Add item")) (button2 (make :label "Remove item"))) (add window vbox) (pack-start vbox (make :label "Jonathan's Holiday Card Planning Sheet") #f #f 0) (pack-start vbox sw #t #t 0) (set-mode (get-selection treeview) 'multiple) (add-columns treeview) (add sw treeview) ;; expand all rows after the treeview widget has been realized (connect treeview 'realize (lambda (w) (gtk-tree-view-expand-all treeview))) (show-all window))) (define name "Tree View/Tree Store") (define description (string-append "The GtkTreeStore is used to store data in tree form, to be " "used later on by a GtkTreeView to display it. This demo builds " "a simple GtkTreeStore and displays it. If you're new to the " "GtkTreeView widgets and associates, look into the GtkListStore " "example first.")) guile-gnome-platform-2.16.2/gtk/examples/guile-gtk-demo/demos/dialog.scm0000644000175000017500000001055611671226170026465 0ustar00wingowingo00000000000000;; Copyright (C) 2004 Patrick Bernaud ;; GNU General Public License version 2 or later. No warrantee. (define-module (demos dialog) :use-module (oop goops) :use-module (gnome gobject) :use-module (gnome gtk)) (define message-dialog-clicked (let ((i 0)) (lambda (parent) (let ((dialog (make :transient-for parent :destroy-with-parent #t :modal #t :message-type 'info :buttons 'ok :text (string-append "This message box has been popped up " "the following\n" "number of times:\n\n" (number->string i))))) (run dialog) (destroy dialog) (set! i (+ 1 i)))))) (define (interactive-dialog-clicked parent entry1 entry2) (let ( ;; original demos makes use of gtk_dialog_new_with_buttons() (dialog (make :title "Interactive Dialog" :modal #t :destroy-with-parent #t)) (hbox (make :homogeneous #f :spacing 8)) (stock (make :stock (gtk-stock-id 'dialog-question) :icon-size (genum->value (make #:value 'dialog)))) (table (make :n-columns 2 :n-rows 2 :homogeneous #f)) (label1 (make :label "_Entry 1" :use-underline #t)) (local-entry1 (make )) (label2 (make :label "E_ntry 2" :use-underline #t)) (local-entry2 (make ))) (add-button dialog (gtk-stock-id 'ok) (genum->value (make :value 'ok))) (add-button dialog "_Non-stock Button" (genum->value (make :value 'cancel))) (set-border-width hbox 8) (pack-start (get-vbox dialog) hbox #f #f 0) (pack-start hbox stock #f #f 0) (set-row-spacings table 4) (set-col-spacings table 4) (pack-start hbox table #t #t 0) (attach-defaults table label1 0 1 0 1) (set-text local-entry1 (get-text entry1)) (attach-defaults table local-entry1 1 2 0 1) (set-mnemonic-widget label1 local-entry1) (attach-defaults table label2 0 1 1 2) (set-text local-entry2 (get-text entry2)) (attach-defaults table local-entry2 1 2 1 2) (set-mnemonic-widget label2 local-entry2) (show-all hbox) (if (eq? 'ok (genum->symbol (make :value (run dialog)))) (begin (set-text entry1 (get-text local-entry1)) (set-text entry2 (get-text local-entry2)))) (destroy dialog))) (define (main) (let ((window (make :type 'toplevel)) (frame (make :label "Dialogs")) (vbox (make :homogeneous #f :spacing 8))) (set-title window "Dialogs") (set-border-width window 8) (add window frame) (set-border-width vbox 8) (add frame vbox) ;; standard message dialog (let ((hbox (make :homogeneous #f :spacing 8)) (button (make :label "_Message Dialog" :use-underline #t))) (pack-start vbox hbox #f #f 0) (connect button 'clicked (lambda (w) (message-dialog-clicked window))) (pack-start hbox button #f #f 0)) (pack-start vbox (make ) #f #f 0) ;; interactive dialog (let ((hbox (make :homogeneous #f :spacing 8)) (vbox2 (make :homogeneous #f :spacing 0)) (button (make :label "_Interactive Dialog" :use-underline #t)) (table (make :n-columns 2 :n-rows 2 :homogeneous #f)) (label1 (make :label "_Entry 1" :use-underline #t)) (entry1 (make )) (label2 (make :label "E_ntry 2" :use-underline #t)) (entry2 (make ))) (pack-start vbox hbox #f #f 0) (connect button 'clicked (lambda (w) (interactive-dialog-clicked window entry1 entry2))) (pack-start hbox vbox2 #f #f 0) (pack-start vbox2 button #f #f 0) (set-row-spacings table 4) (set-col-spacings table 4) (pack-start hbox table #f #f 0) (attach-defaults table label1 0 1 0 1) (attach-defaults table entry1 1 2 0 1) (set-mnemonic-widget label1 entry1) (attach-defaults table label2 0 1 1 2) (attach-defaults table entry2 1 2 1 2) (set-mnemonic-widget label2 entry2)) (show-all window))) (define name "Dialog and Message Boxes") (define description (string-append "Dialog widgets are used to pop up a transient window for user feedback.")) guile-gnome-platform-2.16.2/gtk/examples/guile-gtk-demo/demos/continuations.scm0000644000175000017500000000663211670374303030124 0ustar00wingowingo00000000000000;; Copyright (C) 2000,2003,2004 Free Software Foundation, Inc. ;; GNU General Public License version 2 or later. No warrantee. ;; Don't try this at home, kids: it's a broken strategy. (define-module (demos continuations) :use-module (oop goops) :use-module (gnome gobject) :use-module (gnome gtk)) (define name "Continuations") (define description (string-append "This is an example of how to use continuations with the Gtk event " "loop. It implements a dialog box that looks like to the programmer " "like it was modal, and to the user like it was non-modal. The " "function `yes-or-no?' that implements this dialog box only returns " "to the caller when the user has aswered the dialog. The user " "however can pop up any number of these dialog boxes and answer them " "in any order he likes. The main application stays alive as well.")) (define (main) ;; When the signal fires, PROC will be added on a list of functions to ;; call when we get to it. (define (connect-delayed obj sig proc) (connect obj sig (lambda (o) (g-idle-add (lambda () (proc o) #f))))) ;; Now for the continuation part. To implement the non-modal dialog box ;; that can be used from your code like a modal one, we save the ;; continuation of the YES-OR-NO? invokation and reenter the event-loop ;; (after popping up the window). When a button has been clicked, we ;; destroy the window and invoke the saved continuation with the ;; appropriate return value. (define (yes-or-no? title) (call-with-current-continuation (lambda (cont) ;; Now CONT is the part of the program that receives our ;; return value. (let* ((d (make #:type 'toplevel)) (v (make )) (h (make )) (l (make #:label title)) (s (make )) (y (make #:label "Yes")) (n (make #:label "No")) (answer (lambda (val) (destroy d) ;; Here we return to our caller after the ;; dialog has been destroyed. (cont val)))) (add d v) (pack-start v l #f #f 0) (pack-start v s #f #f 0) (pack-start v h #f #f 0) (pack-start h y #f #f 0) (pack-start h n #f #f 0) (show-all d) ;; Bind ANSWER to the "clicked" signals of the action ;; buttons. (connect-delayed y 'clicked (lambda (y) (answer #t))) (connect-delayed n 'clicked (lambda (n) (answer #f))) ;; Reenter the event-loop. You can think of this as a goto. (g-main-loop-run (g-main-loop-new #f #f)))))) (define w (make #:type 'toplevel)) (define b (make #:label "Ok!")) (set-default-size w 150 100) (add w b) (show b) (show w) (connect-delayed b 'clicked (let ((i 0)) (lambda (f) (set! i (1+ i)) ;; capture I in a local environment so that nobody can alter ;; it while YES-OR-NO? does its thing. (let ((i i)) ;; Use YES-OR-NO? as if it were a modal dialog. (pk i (yes-or-no? (string-append (number->string i) ": Really?"))))))) ;; still need to ensure the main loops are properly exited when this ;; is destroyed (connect w 'destroy (lambda (w) (destroy w) #t))) guile-gnome-platform-2.16.2/gtk/examples/guile-gtk-demo/demos/list-store.scm0000644000175000017500000001073411670374303027332 0ustar00wingowingo00000000000000;; Copyright (C) 2004 Patrick Bernaud ;; GNU General Public License version 2 or later. No warrantee. (define-module (demos list-store) :use-module (oop goops) :use-module (gnome gobject) :use-module (gnome gtk)) (define data '((#f 60482 "Normal" "scrollable notebooks and hidden tabs") (#f 60620 "Critical" "gdk_window_clear_area (gdkwindow-win32.c) is not thread-safe") (#f 50214 "Major" "Xft support does not clean up correctly") (#t 52877 "Major" "GtkFileSelection needs a refresh method. ") (#f 56070 "Normal" "Can't click button after setting in sensitive") (#t 56355 "Normal" "GtkLabel - Not all changes propagate correctly") (#f 50055 "Normal" "Rework width/height computations for TreeView") (#f 58278 "Normal" "gtk_dialog_set_response_sensitive () doesn't work") (#f 55767 "Normal" "Getters for all setters") (#f 56925 "Normal" "Gtkcalender size") (#f 56221 "Normal" "Selectable label needs right-click copy menu") (#t 50939 "Normal" "Add shift clicking to GtkTextView") (#f 6112 "Enhancement" "netscape-like collapsable toolbars") (#f 1 "Normal" "First bug :=)"))) (define (populate-model store) ;; add data to the list store (for-each (lambda (b) (let ((iter (gtk-list-store-append store))) (for-each (lambda (col data) (set-value store iter col data)) '(0 1 2 3) b))) data)) (define (fixed-toggled treemodel pathstr) (let* ( ;; get toggled iter (iter (get-iter treemodel pathstr)) ;; get current value and invert (fixed (not (get-value treemodel iter 0)))) ;; set the new value (set-value treemodel iter 0 fixed))) (define (add-columns treeview) (let* ((model (get-model treeview)) ;; column for fixed toggles (renderer1 (make )) (column1 (make :title "Fixed?" ;; set this column to a fixed sizing (of 50 pixels) :sizing 'fixed :fixed-width 50)) ;; column for bug numbers (renderer2 (make )) (column2 (make :title "Bug number")) ;; column for severities (renderer3 (make )) (column3 (make :title "Severity")) ;; column for description (renderer4 (make )) (column4 (make :title "Description")) ) (connect renderer1 'toggled (lambda (w p) (fixed-toggled model p))) (pack-start column1 renderer1 #f) (add-attribute column1 renderer1 "active" 0) (append-column treeview column1) (pack-start column2 renderer2 #f) (add-attribute column2 renderer2 "text" 1) (set-sort-column-id column2 1) (append-column treeview column2) (pack-start column3 renderer3 #f) (add-attribute column3 renderer3 "text" 2) (set-sort-column-id column3 2) (append-column treeview column3) (pack-start column4 renderer4 #f) (add-attribute column4 renderer4 "text" 3) (set-sort-column-id column4 4) (append-column treeview column4))) (define (main) (let* ( ;; create window, etc (window (make :type 'toplevel :title "GtkListStore demo" :default-width 280 :default-height 250 :border-width 8)) (vbox (make :homogeneous #f :spacing 8)) (label (make :label (string-append "This is the bug list (note: not based on real " "data, it would be nice to have a nice ODBC " "interface to bugzilla or so, though)."))) (sw (make :hscrollbar-policy 'never :vscrollbar-policy 'automatic :shadow-type 'etched-in)) ;; create list store (model (gtk-list-store-new (list ))) ;; create tree view (treeview (make :model model :rules-hint #t :search-column 3))) (populate-model model) (add window vbox) (pack-start vbox label #f #f 0) (pack-start vbox sw #t #t 0) (add sw treeview) ;; add columns to the tree view (add-columns treeview) (show-all window))) (define name "Tree View/List Store") (define description (string-append "The GtkListStore is used to store data in list form, to be used " "later on by a GtkTreeView to display it. This demo builds a " "simple GtkListStore and displays it. See the Stock Browser " "demo for a more advanced example.")) guile-gnome-platform-2.16.2/gtk/examples/guile-gtk-demo/demos/ui-manager.scm0000644000175000017500000001503211670374303027246 0ustar00wingowingo00000000000000;; Copyright (C) 2004 Patrick Bernaud ;; GNU General Public License version 2 or later. No warrantee. (define-module (demos ui-manager) :use-module (oop goops) :use-module (gnome gobject) :use-module (gnome gtk)) (define (activate-action action) (display (format #f "Action \"~A\" activated\n" (get-name action)))) (define (activate-radio-action action current) (display (format #f "Radio action \"~A\" activated\n" (get-name current)))) (define entries `(("FileMenu" #f "_File") ; name, stock id, label ("PreferencesMenu" #f "_Preferences") ; name, stock id, label ("ColorMenu" #f "_Color") ; name, stock id, label ("ShapeMenu" #f "_Shape") ; name, stock id, label ("HelpMenu" #f "_Help") ; name, stock id, label ("New" ,(gtk-stock-id 'new) "_New" ; name, stock id, label "N" ; accelerator "Create a new file" ; tooltip ,activate-action) ("Open" ,(gtk-stock-id 'open) "_Open" ; name, stock id, label "O" ; accelerator "Open a file" ; tooltip ,activate-action) ("Save" ,(gtk-stock-id 'save) "_Save" ; name, stock id, label "S" ; accelerator "Save current file" ; tooltip ,activate-action) ("SaveAs" ,(gtk-stock-id 'save) "Save _As..." ; name, stock id, label #f ; accelerator "Save to a file" ; tooltip ,activate-action) ("Quit" ,(gtk-stock-id 'quit) "_Quit" ; name, stock id, label "Q" ; accelerator "Quit" ; tooltip ,activate-action) ("About" #f "_About" ; name, stock id, label "A" ; accelerator "About" ; tooltip ,activate-action) ("Logo" "demo-gtk-logo" #f ; name, stock id, label #f ; accelerator "GTK+" ; tooltip ,activate-action))) (define toggle-entries `(("Bold" ,(gtk-stock-id 'bold) "_Bold" ; name, stock id, label "B" ; accelerator "Bold" ; tooltip ,activate-action #t) ; is_active )) (define color-red 0) (define color-green 1) (define color-blue 2) (define color-entries `(("Red" #f "_Red" ; name, stock id, label "R" ; accelerator "Blood" ,color-red) ; tooltip, value ("Green" #f "_Green" ; name, stock id, label "G" ; label, accelerator "Grass" ,color-green) ; tooltip, value ("Blue" #f "_Blue" ; name, stock id, label "B" ; label, accelerator "Sky" ,color-blue) ; tooltip, value )) (define shape-square 0) (define shape-rectangle 1) (define shape-oval 2) (define shape-entries `(("Square" #f "_Square" ; name, stock id, label "S" ; accelerator "Square" ,shape-square) ; tooltip, value ("Rectangle" #f "_Rectangle" ; name, stock id, label "R" ; accelerator "Rectangle" ,shape-rectangle) ; tooltip, value ("Oval" #f "_Oval" ; name, stock id, label "O" ; accelerator "Egg" ,shape-oval) ; tooltip, value )) (define ui-info " ") (define (main) (let* ( ;; create window, etc (window (make :type 'toplevel :title "UI Manager" :border-width 0)) (actions (make :name "Actions")) (ui (make )) (box1 (make :homogeneous #f :spacing 0)) (label (make :label "Type\n\nto start" :width-request 200 :height-request 200 :xalign 0.5 :yalign 0.5)) (separator (make )) (box2 (make :homogeneous #f :spacing 10 :border-width 10)) (button (make :label "close"))) (add-actions actions entries) (add-toggle-actions actions toggle-entries) (add-radio-actions actions color-entries color-red activate-radio-action) (add-radio-actions actions shape-entries shape-oval activate-radio-action) (insert-action-group ui actions 0) (add-accel-group window (get-accel-group ui)) (catch #t (lambda () (add-ui-from-string ui ui-info)) (lambda (key . args) (case key ((g-error) (display (format #f "building menus failed: ~A\n" (caddr args)))) (else (apply throw key args))))) (add window box1) (pack-start box1 (get-widget ui "/MenuBar") #f #f 0) (pack-start box1 label #t #t 0) (pack-start box1 separator #f #t 0) (pack-start box1 box2 #f #t 0) (connect window 'delete-event (lambda (w e) (gtk-true))) (connect button 'clicked (lambda (w) (destroy window))) (pack-start box2 button #t #t 0) ;(set-flags button 'can-default) ;(grab-default button) (show-all window))) (define name "UI Manager") (define description (string-append "The GtkUIManager object allows the easy creation of menus " "from an array of actions and a description of the menu hierarchy.")) guile-gnome-platform-2.16.2/gtk/examples/guile-gtk-demo/demos/entry-completion.scm0000644000175000017500000000336211670374303030534 0ustar00wingowingo00000000000000;; Copyright (C) 2004 Patrick Bernaud ;; GNU General Public License version 2 or later. No warrantee. (define-module (demos entry-completion) :use-module (oop goops) :use-module (gnome gobject) :use-module (gnome gtk)) (define (create-completion-model) (let ((store (gtk-list-store-new (list )))) (for-each (lambda (v) ;; append a word (set-value store (append store) 0 v)) '("GNOME" "total" "totally")) store)) (define (main) (let ( ;; original demos uses gtk_dialog_new_with_buttons (window (make :title "GtkEntryCompletion" :resizable #f)) (vbox (make :homogeneous #f :spacing 5 :border-width 5)) (label (make :label (string-append "Completion demo, try writing total " "or gnome for example.") :use-markup #t)) (entry (make )) (completion (make :model (create-completion-model)))) ;; do here what gtk_dialog_new_with_buttons() normally do (add-button window (gtk-stock-id 'close) (genum->value (make :value 'none))) (connect window 'response (lambda (w a) (destroy window))) (pack-start (get-vbox window) vbox #t #t 0) (pack-start vbox label #f #f 0) (pack-start vbox entry #f #f 0) ;; assign the completion to the entry (set-completion entry completion) ;; use model column 0 as the text column (set-text-column completion 0) (show-all window))) (define name "Entry Completion") (define description (string-append "GtkEntryCompletion provides a mechanism for adding support for " "completion in GtkEntry.")) guile-gnome-platform-2.16.2/gtk/examples/guile-gtk-demo/demos/menus.scm0000644000175000017500000000627411670374303026360 0ustar00wingowingo00000000000000;; Copyright (C) 2004 Patrick Bernaud ;; GNU General Public License version 2 or later. No warrantee. (define-module (demos menus) :use-module (oop goops) :use-module (gnome gobject) :use-module (gnome gtk)) (define (main) (define (create-menu depth tearoff) (and=> (>= depth 1) (lambda (x) (let ((menu (make ))) (if tearoff (append menu (make ))) (let loop ((i 0) (group #f)) (let ((menuitem (gtk-radio-menu-item-new-with-label group (format #f "item ~A - ~A" depth (+ 1 i))))) (append menu menuitem) (set-sensitive menuitem (not (eq? i 3))) (if (> depth 1) (set-submenu menuitem (create-menu (- depth 1) tearoff))) (if (< i 4) (loop (+ i 1) (get-group menuitem))))) menu)))) (let ((window (make :type 'toplevel :title "menus" :border-width 0)) (accelgroup (make )) (box1 (make :homogeneous #f :spacing 0)) (menubar (make )) (box2 (make :homogeneous #f :spacing 10 :border-width 10)) (button (make :label "close"))) (connect window 'delete-event (lambda (w e) (gtk-true))) (add-accel-group window accelgroup) (add window box1) (pack-start box1 menubar #f #t 0) (for-each (lambda (m) (let ((menu (create-menu (cdr m) #t)) (menuitem (gtk-menu-item-new-with-label (car m)))) (set-submenu menuitem menu) (set-right-justified menuitem (string=? (car m) "bar")) (append menubar menuitem))) '(("test\nline2" . 2) ("foo" . 3) ("bar" . 4))) (pack-start box1 box2 #f #t 0) (connect button 'clicked (lambda (w) (destroy window))) (pack-start box2 button #t #t 0) ; GTK_WIDGET_SET_FLAGS (button, GTK_CAN_DEFAULT); ; (grab-default button) (show-all window))) (define name "Menus") (define description (string-append "There are several widgets involved in displaying menus. The" "GtkMenuBar widget is a horizontal menu bar, which normally appears" "at the top of an application. The GtkMenu widget is the actual menu" "that pops up. Both GtkMenuBar and GtkMenu are subclasses of" "GtkMenuShell; a GtkMenuShell contains menu items" "(GtkMenuItem). Each menu item contains text and/or images and can" "be selected by the user." "\n" "There are several kinds of menu item, including plain GtkMenuItem," "GtkCheckMenuItem which can be checked/unchecked, GtkRadioMenuItem" "which is a check menu item that's in a mutually exclusive group," "GtkSeparatorMenuItem which is a separator bar, GtkTearoffMenuItem" "which allows a GtkMenu to be torn off, and GtkImageMenuItem which" "can place a GtkImage or other widget next to the menu text." "\n" "A GtkMenuItem can have a submenu, which is simply a GtkMenu to pop" "up when the menu item is selected. Typically, all menu items in a menu bar" "have submenus." "\n" "GtkUIManager provides a higher-level interface for creating menu bars" "and menus; while you can construct menus manually, most people don't" "do that. There's a separate demo for GtkUIManager.")) guile-gnome-platform-2.16.2/gtk/examples/guile-gtk-demo/demos/tree-model.scm0000644000175000017500000000574311670374303027266 0ustar00wingowingo00000000000000;; Copyright (C) 2003,2004 Free Software Foundation, Inc. ;; GNU General Public License version 2 or later. No warrantee. (define-module (demos tree-model) :use-module (oop goops) :use-module (gnome gobject) :use-module (gnome gtk)) (define-class () depth siblings) (define-method (on-get-n-columns (obj )) 1) (define-method (on-get-column-type (obj ) index) ) (define-method (on-get-iter (obj ) path) path) (define-method (on-get-path (obj ) iter) iter) (define-method (on-get-value (obj ) iter index) (format #f "~A" iter)) (define-method (on-iter-next (obj ) iter) (let* ((reversed (reverse iter)) (next (1+ (car reversed)))) (if (eq? next (slot-ref obj 'siblings)) #f (reverse (cons next (cdr reversed)))))) (define-method (on-iter-children (obj ) parent) (cond ((not parent) (list 0)) ((eq? (length parent) (slot-ref obj 'depth)) #f) (else (reverse (cons 0 (reverse parent)))))) (define-method (on-iter-has-child (obj ) iter) (not (eq? (length iter) (slot-ref obj 'depth)))) (define-method (on-iter-n-children (obj ) iter) (cond ((not iter) (slot-ref obj 'siblings)) ((on-iter-has-child obj iter) (slot-ref obj 'siblings)) (else 0))) (define-method (on-iter-nth-child (obj ) parent n) (let ((nchildren (on-iter-n-children obj parent))) (if (< n nchildren) (reverse (cons n (if parent (reverse parent) '()))) #f))) (define-method (on-iter-parent (obj ) iter) (if (zero? (length iter)) #f (reverse (cdr (reverse iter))))) (define-method (initialize (obj ) initargs) (next-method) (slot-set! obj 'depth 4) (slot-set! obj 'siblings 5)) (define (main) (let* ((w (make :type 'toplevel :title "TreeModel Test")) (scroll (make :hscrollbar-policy 'automatic :vscrollbar-policy 'automatic)) (tmodel (make )) (tview (make :model tmodel)) (cell (make )) (column (make :title "Data"))) (pack-start column cell #t) (add-attribute column cell "text" 0) (append-column tview column) (set-default-size w 250 250) (add w scroll) (add scroll tview) (show-all w) (connect w 'delete-event (lambda (w e) (gtk-widget-destroy w) #f)))) (define name "Tree Model") (define description (string-append "This example shows how to implement a tree model in Scheme.\n" "Tree paths are natively represented as lists of integers. In this simple " "model, iters and values of the model are also the same as the paths. Note " "that the data is not stored in the model, only the algorithm of how to " "produce the data when it is requested. ")) guile-gnome-platform-2.16.2/gtk/examples/guile-gtk-demo/demos/appwindow.scm0000644000175000017500000002155711671226173027244 0ustar00wingowingo00000000000000;; Copyright (C) 2004 Patrick Bernaud ;; GNU General Public License version 2 or later. No warrantee. (define-module (demos appwindow) :use-module (oop goops) :use-module (gnome gobject) :use-module (gnome gtk) :use-module (gnome gtk gdk-event)) (define window #f) (define (activate-action action) (let* ((name (get-name action)) (dialog (make :transient-for window :destroy-with-parent #t :message-type 'info :buttons 'close :text (format #f "You activated action: \"~A\" of type \"~A\"" name (class-of action))))) ;; close dialog on user response (connect dialog 'response (lambda (d arg1) (gtk-widget-destroy dialog))) (show dialog))) (define (activate-radio-action action current) (if (get-active current) (let ((dialog (make :transient-for window :destroy-with-parent #t :message-type 'info :buttons 'close :text (format #f "You activated radio action: \"~A\" of type \"~A\".\nCurrent value: ~A" (get-name current) (class-of action) (get-current-value current))))) ;; close dialog on user response (connect dialog 'response (lambda (d arg1) (destroy dialog))) (show dialog)))) (define entries `(("FileMenu" #f "_File") ; name, stock id, label ("PreferencesMenu" #f "_Preferences") ; name, stock id, label ("ColorMenu" #f "_Color") ; name, stock id, label ("ShapeMenu" #f "_Shape") ; name, stock id, label ("HelpMenu" #f "_Help") ; name, stock id, label ("New" ,(gtk-stock-id 'new) "_New" ; name, stock id, label "N" ; accelerator "Create a new file" ; tooltip ,activate-action) ("Open" ,(gtk-stock-id 'open) "_Open" ; name, stock id, label "O" ; accelerator "Open a file" ; tooltip ,activate-action) ("Save" ,(gtk-stock-id 'save) "_Save" ; name, stock id, label "S" ; accelerator "Save current file" ; tooltip ,activate-action) ("SaveAs" ,(gtk-stock-id 'save) "Save _As..." ; name, stock id, label #f ; accelerator "Save to a file" ; tooltip ,activate-action) ("Quit" ,(gtk-stock-id 'quit) "_Quit" ; name, stock id, label "Q" ; accelerator "Quit" ; tooltip ,activate-action) ("About" #f "_About" ; name, stock id, label "A" ; accelerator "About" ; tooltip ,activate-action) ("Logo" "demo-gtk-logo" #f ; name, stock id, label #f ; accelerator "GTK+" ; tooltip ,activate-action))) (define toggle-entries `(("Bold" ,(gtk-stock-id 'bold) "_Bold" ; name, stock id, label "B" ; accelerator "Bold" ; tooltip ,activate-action #t) ; is_active )) (define color-red 0) (define color-green 1) (define color-blue 2) (define color-entries `(("Red" #f "_Red" ; name, stock id, label "R" ; accelerator "Blood" ,color-red) ; tooltip, value ("Green" #f "_Green" ; name, stock id, label "G" ; label, accelerator "Grass" ,color-green) ; tooltip, value ("Blue" #f "_Blue" ; name, stock id, label "B" ; label, accelerator "Sky" ,color-blue) ; tooltip, value )) (define shape-square 0) (define shape-rectangle 1) (define shape-oval 2) (define shape-entries `(("Square" #f "_Square" ; name, stock id, label "S" ; accelerator "Square" ,shape-square) ; tooltip, value ("Rectangle" #f "_Rectangle" ; name, stock id, label "R" ; accelerator "Rectangle" ,shape-rectangle) ; tooltip, value ("Oval" #f "_Oval" ; name, stock id, label "O" ; accelerator "Egg" ,shape-oval) ; tooltip, value )) (define ui-info " ") (define (main) (define (update-statusbar buffer statusbar) (let ((iter (get-iter-at-mark buffer (get-insert buffer)))) ;; clear any previous message, underflow is allowed (pop statusbar 0) (push statusbar 0 (format #f "Cursor at row ~A column ~A - ~A chars in document" (gtk-text-iter-get-line iter) (gtk-text-iter-get-line-offset iter) (get-char-count buffer))))) (define (update-resize-grip widget event statusbar) (let ((changed-mask (gdk-event-window-state:changed-mask event)) (new-window-state (gdk-event-window-state:new-window-state event))) (or (memq 'maximized changed-mask) (memq 'fullscreen changed-mask) (set-has-resize-grip statusbar (not (or (memq 'maximized new-window-state) (memq 'fullscreen new-window-state)))))) #f) ;; create window, etc (set! window (make :type 'toplevel :title "Application Window" :default-width 200 :default-height 200)) (let* ((table (make :n-rows 1 :n-columns 4 :homogeneous #f)) (actions (make :name "AppWindowActions")) (merge (make )) ;; create document (sw (make :hscrollbar-policy 'automatic :vscrollbar-policy 'automatic :shadow-type 'in)) (contents (make )) (buffer (get-buffer contents)) ;; create statusbar (statusbar (make ))) (add window table) (add-actions actions entries) (add-toggle-actions actions toggle-entries) (add-radio-actions actions color-entries color-red activate-radio-action) (add-radio-actions actions shape-entries shape-oval activate-radio-action) (insert-action-group merge actions 0) (add-accel-group window (get-accel-group merge)) (add-ui-from-string merge ui-info) (let ((bar1 (get-widget merge "/MenuBar")) (bar2 (get-widget merge "/ToolBar"))) (show bar1) (attach table bar1 ; X direction ; Y direction 0 1 0 1 '(expand fill) 0 0 0) (set-tooltips bar2 #t) (show bar2) (attach table bar2 ; X direction ; Y direction 0 1 1 2 '(expand fill) 0 0 0)) (attach table sw ; X direction ; Y direction 0 1 2 3 '(expand fill) '(expand fill) 0 0) (grab-focus contents) (add sw contents) (attach table statusbar ; X direction ; Y direction 0 1 3 4 '(expand fill) 0 0 0) ;; show text widget info in the statusbar (connect buffer 'changed (lambda (buffer) (update-statusbar buffer statusbar))) (connect buffer 'mark-set (lambda (buffer l m) (update-statusbar buffer statusbar))) (connect window 'window-state-event (lambda (w e) (update-resize-grip w e statusbar))) (connect window 'delete-event (lambda (w e) (destroy w) #f)) (update-statusbar buffer statusbar) (show-all window))) (define name "Application main window") (define description (string-append "Demonstrates a typical application window, with menubar, toolbar, " "statusbar.")) guile-gnome-platform-2.16.2/gtk/examples/tutorial/0000755000175000017500000000000011670374303022436 5ustar00wingowingo00000000000000guile-gnome-platform-2.16.2/gtk/examples/tutorial/hello2.scm0000644000175000017500000000157211670374303024334 0ustar00wingowingo00000000000000(use-modules (oop goops) (gnome gobject) (gnome gtk)) (let ((window (make #:type 'toplevel #:title "Hello Buttons!")) (box1 (make )) (button1 (make #:label "Button 1")) (button2 (make #:label "Button 2")) (signal-handler (lambda (w message) (format #t "Hello again -- ~A was pressed\n" message)))) (connect window 'delete-event (lambda (window event) (gtk-main-quit) #f)) (set window 'border-width 10) (add window box1) (pack-start box1 button1 #t #t 0) (pack-start box1 button2 #t #t 0) ;; there are many ways to use the same lambda with different data -- ;; wrapping like this is one way... (connect button1 'clicked (lambda (b) (signal-handler b "button 1"))) (connect button2 'clicked (lambda (b) (signal-handler b "button 2"))) (show-all window) (gtk-main)) guile-gnome-platform-2.16.2/gtk/examples/tutorial/hello.scm0000644000175000017500000000162311670374303024247 0ustar00wingowingo00000000000000(use-modules (oop goops) (gnome gobject) (gnome gtk)) (let ((window (make #:type 'toplevel)) (button (make #:label "Hello World"))) (connect window 'delete-event (lambda (window event) (display "delete-event occurred\n") ;; returning #t to prevent further ;; propogation of this signal... #t)) (connect window 'destroy (lambda (window) (gtk-main-quit))) ;; we could also call (set-border-width window 10), but i like the property ;; interface... (set window 'border-width 10) ;; with closures being so easy to make, there's not too much of a need ;; for connect-swapped, although i suppose we could add it (connect button 'clicked (lambda (button) (destroy window))) (add window button) (show-all window) (gtk-main)) guile-gnome-platform-2.16.2/gtk/examples/repl.scm0000755000175000017500000000233111670374303022243 0ustar00wingowingo00000000000000#! /bin/sh # -*- scheme -*- exec guile-gnome-2 -s $0 "$@" !# ;; guile-gnome ;; Copyright (C) 2004 Free Software Foundation, Inc. ;; This program is free software; you can redistribute it and/or ;; modify it under the terms of the GNU General Public License as ;; published by the Free Software Foundation; either version 2 of ;; the License, or (at your option) any later version. ;; ;; This program is distributed in the hope that it will be useful, ;; but WITHOUT ANY WARRANTY; without even the implied warranty of ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the ;; GNU General Public License for more details. ;; ;; You should have received a copy of the GNU General Public License ;; along with this program; if not, contact: ;; ;; Free Software Foundation Voice: +1-617-542-5942 ;; 59 Temple Place - Suite 330 Fax: +1-617-542-2652 ;; Boston, MA 02111-1307, USA gnu@gnu.org (use-modules (gnome gtk) (gnome gtk graphical-repl)) ;; All the code is in (gnome gtk graphical-repl) now :) (guile-gtk-repl) guile-gnome-platform-2.16.2/gtk/examples/test-gdk.scm0000644000175000017500000001402611670374303023024 0ustar00wingowingo00000000000000#! /bin/sh # -*- scheme -*- exec guile-gnome-2 -s $0 "$@" !# ;; guile-gnome ;; Copyright (C) 2000 Free Software Foundation, Inc. ;; This program is free software; you can redistribute it and/or ;; modify it under the terms of the GNU General Public License as ;; published by the Free Software Foundation; either version 2 of ;; the License, or (at your option) any later version. ;; ;; This program is distributed in the hope that it will be useful, ;; but WITHOUT ANY WARRANTY; without even the implied warranty of ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the ;; GNU General Public License for more details. ;; ;; You should have received a copy of the GNU General Public License ;; along with this program; if not, contact: ;; ;; Free Software Foundation Voice: +1-617-542-5942 ;; 59 Temple Place - Suite 330 Fax: +1-617-542-2652 ;; Boston, MA 02111-1307, USA gnu@gnu.org (use-modules (gnome gtk)) ;; translate me nicely please :-) (define div quotient) (define (arc-drawer-new width height start-adj extent-adj) (let ((widget (make )) (pixmap #f) (window #f) (fore-gc #f) (back-gc #f) (handle-gc #f) (start #f) (extent #f) (need-update #t) (pi (* 2 (acos 0))) (poly '((10 . 10) (20 . 10) (10 . 20) (50 . 50))) (use-backing #f)) (define (realize) (set! window (window widget)) (let ((style (gtk-widget-style widget))) (set! fore-gc (gtk-style-fg-gc style 'normal)) (set! back-gc (gtk-style-bg-gc style 'normal))) (configure #f)) (define (configure ev) (cond (ev (set! width (gdk-event-configure-width ev)) (set! height (gdk-event-configure-height ev)))) (cond (window (set! pixmap (if use-backing (gdk-pixmap-new window width height) window)) (set! need-update #t) (set! handle-gc (gdk-gc-new pixmap)) (gdk-gc-set-foreground handle-gc "red3")))) (define (expose ev) (cond (use-backing (if need-update (update)) (gdk-draw-pixmap window back-gc pixmap 0 0 0 0 width height)) (else (update)))) (define (draw-handle x y) (gdk-draw-rectangle pixmap handle-gc #t (+ x -2) (+ y -2) 4 4)) (define (draw-poly) (gdk-draw-polygon pixmap fore-gc #t poly) (for-each (lambda (p) (draw-handle (car p) (cdr p))) poly)) (define (draw-arc) (let ((dx 5) (dy 5) (w (- width 10)) (h (- height 10))) (define (draw-arc-handle angle) (define (->rad x) (* x (/ pi (* 180 64)))) (let ((x (inexact->exact (* 0.5 w (cos (->rad angle))))) (y (inexact->exact (* -0.5 h (sin (->rad angle)))))) (draw-handle (+ (div w 2) dx x) (+ (div h 2) dy y)))) (gdk-draw-arc pixmap fore-gc #f dx dy w h (remainder start (* 360 64)) extent) (draw-arc-handle start) (draw-arc-handle (+ start extent)))) (define button1-motion-handler #f) (define (button1-motion ev) (if button1-motion-handler (button1-motion-handler ev))) (define (button-release ev) (cond ((= (gdk-event-button ev) 1) (set! button1-motion-handler #f)))) (define (drag-poly ev) (define (find-poly-handle x y) (or-map (lambda (p) (and (< (abs (- x (car p))) 4) (< (abs (- y (cdr p))) 4) p)) poly)) (let ((handle (find-poly-handle (gdk-event-x ev) (gdk-event-y ev)))) (cond (handle (set! button1-motion-handler (lambda (ev) (let ((x (gdk-event-x ev)) (y (gdk-event-y ev))) (set-car! handle x) (set-cdr! handle y) (update)))))))) (define (update) (set! start (inexact->exact (* (gtk-adjustment-value start-adj) 64))) (set! extent (inexact->exact (* (gtk-adjustment-value extent-adj) 64))) (cond (window (gdk-draw-rectangle pixmap back-gc #t 0 0 width height) (draw-arc) (draw-poly) (set! need-update #f) (if use-backing (expose #f))))) (define (pk-event ev) (pk (gdk-event-type ev) (gdk-event-x ev) (gdk-event-y ev))) (gtk-signal-connect widget "button_press_event" drag-poly) (gtk-signal-connect widget "button_release_event" button-release) (gtk-signal-connect widget "motion_notify_event" button1-motion) (gtk-signal-connect widget "realize" realize) (gtk-signal-connect widget "expose_event" expose) (gtk-signal-connect widget "configure_event" configure) (gtk-signal-connect start-adj "value_changed" update) (gtk-signal-connect extent-adj "value_changed" update) (gtk-drawing-area-size widget width height) (gtk-widget-set-events widget '(exposure-mask button-press-mask button-release-mask button1-motion-mask key-press-mask)) (lambda (op . args) (case op ((widget) widget) ((use-backing) (set! use-backing (car args)) (configure #f)))))) (let* ((window (gtk-window-new 'toplevel)) (vbox (gtk-vbox-new #f 5)) (start-adj (gtk-adjustment-new 360.0 0.0 721.0 1.0 1.0 1.0)) (start-scl (gtk-hscale-new start-adj)) (extent-adj (gtk-adjustment-new 180.0 0.0 361.0 1.0 1.0 1.0)) (extent-scl (gtk-hscale-new extent-adj)) (arc (arc-drawer-new 150 150 start-adj extent-adj)) (backing-button (gtk-check-button-new-with-label "Use backing pixmap")) (close (gtk-button-new-with-label "close"))) (gtk-container-add window vbox) (gtk-box-pack-start vbox (arc 'widget) #t #t 0) (gtk-box-pack-end vbox close #f #f 0) (gtk-box-pack-end vbox backing-button #f #f 0) (gtk-box-pack-end vbox extent-scl #f #f 0) (gtk-box-pack-end vbox start-scl #f #f 0) (gtk-signal-connect backing-button "clicked" (lambda () (arc 'use-backing (gtk-widget-get backing-button 'active)))) (gtk-signal-connect close "clicked" (lambda () (gtk-widget-destroy window))) (gtk-scale-set-draw-value start-scl #f) (gtk-scale-set-draw-value extent-scl #f) (gtk-widget-show-all window) (gtk-standalone-main window)) guile-gnome-platform-2.16.2/gtk/examples/metaspline.scm0000644000175000017500000004032011670374303023437 0ustar00wingowingo00000000000000#! /bin/sh # -*- scheme -*- exec guile-gnome-2 -s $0 "$@" !# ;; guile-gnome ;; Copyright (C) 1999 Free Software Foundation, Inc. ;; This program is free software; you can redistribute it and/or ;; modify it under the terms of the GNU General Public License as ;; published by the Free Software Foundation; either version 2 of ;; the License, or (at your option) any later version. ;; ;; This program is distributed in the hope that it will be useful, ;; but WITHOUT ANY WARRANTY; without even the implied warranty of ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the ;; GNU General Public License for more details. ;; ;; You should have received a copy of the GNU General Public License ;; along with this program; if not, contact: ;; ;; Free Software Foundation Voice: +1-617-542-5942 ;; 59 Temple Place - Suite 330 Fax: +1-617-542-2652 ;; Boston, MA 02111-1307, USA gnu@gnu.org ;; translate me please!!! ;;; ;;; Meta-Spline ;;; ;; Allow the user to edit a Bezier spline with parameters as used in ;; Metafont. Normally, you would use a GtkCanvas for this, but I'll ;; do it the hard way to test out the guile-gtk low-level Gdk support. ;; And my ability to understand a Knuthonian algorithm. (define-module (metaspline) :use-module (gtk gtk) :use-module (gtk gdk) :use-module (ice-9 common-list)) ;;; Utilities ;; This is a little cheesy. The fix would be to make internal defines ;; behave like letrec*, if you know what I mean. (defmacro define-struct (tag . fields) (let* ((field-syms (map (lambda (f) (if (pair? f) (car f) f)) fields)) (make-parms (remove-if pair? fields)) (make-args (map (lambda (f) (if (pair? f) (cadr f) f)) fields)) (type (make-record-type tag field-syms))) `(begin (define ,(symbol-append 'make- tag) (let ((maker (record-constructor ',type))) (lambda ,make-parms (maker ,@make-args)))) (define ,(symbol-append tag '?) (record-predicate ',type)) ,@(map (lambda (f) `(define ,(symbol-append tag '- f) (record-accessor ',type ',f))) field-syms) ,@(map (lambda (f) `(define ,(symbol-append tag '-set- f '!) (record-modifier ',type ',f))) field-syms)))) ;;; Tinytalk in 40 lines Scheme... (define (set-dispatcher! obj proc) (set-object-property! obj 'dispatcher proc)) (define (get-dispatcher obj) (object-property obj 'dispatcher)) (define (send obj . msg) (let ((dispatcher (get-dispatcher obj))) (if dispatcher (apply dispatcher msg) (error "Not an object: " obj)))) (defmacro define-dispatcher (obj . cases) `(let* ((obj ,obj) (parent (get-dispatcher ,obj)) (send-super (lambda (op . args) (if parent (apply parent op args) (error "object has no super class"))))) (set-dispatcher! obj (lambda (op . args) (case op ,@(map (lambda (c) (let ((proto (car c)) (body (cdr c))) `((,(car proto)) (apply (lambda ,(cdr proto) ,@body) args)))) cases) (else (if parent (apply parent op args) (error "no method for: " op)))))))) (defmacro define-methods (class . methods) `(begin ,@(map (lambda (m) `(define (,(symbol-append class '- (car m)) ,@(cdr m)) (send ,(cadr m) ',(car m) ,@(cddr m)))) methods))) (define make-point cons) (define point-x car) (define point-y cdr) (define (point-sub p1 p2) (make-point (- (point-x p1) (point-x p2)) (- (point-y p1) (point-y p2)))) (define (point-add p1 p2) (make-point (+ (point-x p1) (point-x p2)) (+ (point-y p1) (point-y p2)))) (define (point-dist p1 p2) (sqrt (+ (expt (- (point-x p1) (point-x p2)) 2) (expt (- (point-y p1) (point-y p2)) 2)))) ;;; The drawing board (define (drawing-board-new) (let ((widget (gtk-drawing-area-new)) (configures '()) (updates '()) (window #f) (width #f) (height #f) (back-gc #f) (need-configure #f)) (define (configure) (if (not back-gc) (let ((style (gtk-widget-style widget))) (set! back-gc (gtk-style-bg-gc style 'normal)))) (for-each (lambda (c) (c window width height)) configures)) (define (update) (gdk-draw-rectangle window back-gc #t 0 0 width height) (for-each (lambda (u) (u)) updates)) (define (realize) (set! window (gtk-widget-window widget)) (if need-configure (configure))) (define (configure-event ev) (if ev (begin (set! width (gdk-event-configure-width ev)) (set! height (gdk-event-configure-height ev)) (if window (configure) (set! need-configure #t))))) (define (expose-event ev) (update)) (gtk-signal-connect widget "realize" realize) (gtk-signal-connect widget "configure_event" configure-event) (gtk-signal-connect widget "expose_event" expose-event) (define-dispatcher widget ((add-configure proc) (set! configures (cons proc configures))) ((rem-configure proc) (set! configures (delq! proc configures))) ((add-update proc) (set! updates (cons proc updates))) ((rem-update proc) (set! updates (delq! proc updates))) ((update) (if window (update)))) widget)) (define-methods drawing-board (add-configure board proc) (rem-configure board proc) (add-update board proc) (rem-update board proc) (update board)) ;;; The handle box. Turns a drawing board into something that can ;;; push handles around. (define (handle-box-new) (let ((board #f) (window #f) (fore-gc #f) (active-gc #f) (width #f) (height #f) (settled #t) (settled-timer #f) (settle-notify '()) (all-handles '()) (active-handle #f) (dragged-handle #f)) (define (configure wnd w h) (if (not fore-gc) (let ((style (gtk-widget-style board))) (set! fore-gc (gtk-style-fg-gc style 'normal)) (set! active-gc (gdk-gc-new wnd)) (gdk-gc-set-foreground active-gc "red3"))) (set! window wnd) (set! width w) (set! height h)) (define-struct handle posf placef ) (define (handle-pos h) ((handle-posf h))) (define (handle-place! h p) ((handle-placef h) p)) (define (handle-hit? h p) (< (point-dist p (handle-pos h)) 5)) (define (draw-handle h) (let* ((p (handle-pos h)) (x (point-x p)) (y (point-y p))) (gdk-draw-rectangle window (if (eq? h active-handle) active-gc fore-gc) #t (+ x -2) (+ y -2) 5 5))) (define (settled-timeout) (set! settled-timer #f) ;; timeouts can't reliably be removed ;; while the callback runs, it seems. (set-settled #t) #f) (define (set-settled f) (if settled-timer (gtk-timeout-remove settled-timer)) (if (not f) (set! settled-timer (gtk-timeout-add 150 settled-timeout))) (cond ((not (eq? f settled)) (set! settled f) (for-each (lambda (s) (s settled)) settle-notify)))) (define (button-press ev) (if (= (gdk-event-button ev) 1) (let* ((p (make-point (gdk-event-x ev) (gdk-event-y ev))) (h (or-map (lambda (h) (and (handle-hit? h p) h)) all-handles))) (set! active-handle h) (set! dragged-handle h) (drawing-board-update board)))) (define (motion-notify ev) (cond (dragged-handle (set-settled #f) (handle-place! dragged-handle (make-point (gdk-event-x ev) (gdk-event-y ev)))))) (define (button-release ev) (cond ((= (gdk-event-button ev) 1) (set! dragged-handle #f) (set-settled #t) (drawing-board-update board)))) (define (add-handle h) (set! all-handles (cons h all-handles))) (define (rem-handle h) (set! all-handles (delq! h all-handles))) (define (add-settle-notify p) (set! settle-notify (cons p settle-notify))) (define (update) (for-each draw-handle all-handles)) (define-struct HandleBox) ; dummy (let ((box (make-HandleBox))) (define-dispatcher box ((set-board b) (set! board b) (drawing-board-add-configure board configure) (drawing-board-add-update board update) (gtk-widget-set-events board '(exposure-mask button-press-mask button-release-mask button1-motion-mask)) (gtk-signal-connect board "button_press_event" button-press) (gtk-signal-connect board "button_release_event" button-release) (gtk-signal-connect board "motion_notify_event" motion-notify)) ((add-handle posf placef) (let ((h (make-handle posf placef))) (add-handle h) h)) ((rem-handle h) (rem-handle h)) ((dragging?) dragged-handle) ((add-settle-notify proc) (add-settle-notify proc))) box))) (define-methods handle-box (set-board box board) (add-handle box posf placef) (rem-handle box handle) (dragging? box) (add-settle-notify box proc)) ;;; Data structures for paths ;; type is one of endpoint, explicit, given, curl, open. (define-struct knot pos control- control+ left-tension right-tension left-type right-type left-curl right-curl left-given right-given) (define (make-start-knot pos) (make-knot pos #f #f 1.0 1.0 'endpoint 'curl #f 1.0 #f #f)) (define (make-mid-knot pos) (make-knot pos #f #f 1.0 1.0 'open 'open #f #f #f #f)) (define (make-end-knot pos) (make-knot pos #f #f 1.0 1.0 'curl 'endpoint 1.0 #f #f #f)) ;;; The spline drawer (define (spline-drawer-new) (let ((board #f) (box #f) (window #f) (fore-gc #f) (back-gc #f) (spline-gc #f) (control-gc #f) (width #f) (height #f) (spline '()) (bezier-steps 5)) (define (configure wnd w h) (if (not fore-gc) (let ((style (gtk-widget-style board))) (set! fore-gc (gtk-style-fg-gc style 'normal)) (set! spline-gc (gdk-gc-new wnd)) (gdk-gc-set-foreground spline-gc "black") (gdk-gc-set-line-attributes spline-gc 2 'solid 'round 'round) (set! control-gc (gdk-gc-new wnd)) (gdk-gc-set-foreground control-gc "black") (gdk-gc-set-line-attributes control-gc 0 'on-off-dash 'round 'round))) (set! window wnd) (set! width w) (set! height h)) ;; knots (define (draw-knot k) (if (knot-control- k) (gdk-draw-lines window control-gc (list (knot-pos k) (knot-control- k)))) (if (knot-control+ k) (gdk-draw-lines window control-gc (list (knot-pos k) (knot-control+ k))))) (define (draw-knots knots) (for-each draw-knot knots)) ;; Bezier curves (define (bezier-point knots t) (let* ((seg (inexact->exact (floor t))) (t (- t seg)) (k1 (list-ref knots seg)) (k2 (list-ref knots (1+ seg)))) (bezier-point1 (knot-pos k1) (knot-control+ k1) (knot-control- k2) (knot-pos k2) t))) (define (bezier-point1 p1 p2 p3 p4 t) (define (scalar-cubic s1 s2 s3 s4 t) (inexact->exact (+ (* (expt (- 1 t) 3) s1) (* 3 t (expt (- 1 t) 2) s2) (* 3 t t (- 1 t) s3) (* t t t s4)))) (make-point (scalar-cubic (point-x p1) (point-x p2) (point-x p3) (point-x p4) t) (scalar-cubic (point-y p1) (point-y p2) (point-y p3) (point-y p4) t))) (define (draw-bezier knots) (cond ((null? knots) #t) ((not (null? (cdr knots))) (let ((k1 (car knots)) (k2 (cadr knots))) (draw-bezier1 window spline-gc (knot-pos k1) (knot-control+ k1) (knot-control- k2) (knot-pos k2)) (draw-bezier (cdr knots)))))) (define (draw-bezier1 window gc p1 p2 p3 p4) (let* ((points (make-vector (1+ bezier-steps)))) (vector-set! points 0 p1) (do ((i 1 (1+ i))) ((= i bezier-steps)) (vector-set! points i (bezier-point1 p1 p2 p3 p4 (/ i bezier-steps)))) (vector-set! points bezier-steps p4) (gdk-draw-lines window gc points))) (define (update) (draw-bezier spline) (draw-knots spline)) (define-struct Spline) ; dummy (let ((sp (make-Spline))) (define-dispatcher sp ((set-board b) (set! board b) (drawing-board-add-configure board configure) (drawing-board-add-update board update)) ((set-handle-box b) (set! box b) (handle-box-add-settle-notify box (lambda (f) (set! bezier-steps (if f 30 7)) (drawing-board-update board)))) ((set-knots kn) (set! spline kn) (drawing-board-update board))) sp))) (define-methods spline-drawer (set-board spline board) (set-handle-box spline box) (set-knots spline knots)) ;;; The spline controller - implements the Metafont algorithm for ;;; choosing control points (define (spline-controller-new) (let ((board #f) (box #f) (knots '()) (handles '()) (selected-knot #f)) (define (rem-handles) (for-each (lambda (h) (handle-box-rem-handle box h)) handles) (set! handles '())) (define (update-handles) (rem-handles) (for-each (lambda (k) (define (pos) (knot-pos k)) (define (pos-) (knot-control- k)) (define (pos+) (knot-control+ k)) (define (place p) (let ((dp (point-sub p (knot-pos k)))) (knot-set-pos! k p) (if (knot-control- k) (knot-set-control-! k (point-add (knot-control- k) dp))) (if (knot-control+ k) (knot-set-control+! k (point-add (knot-control+ k) dp))) (update-choices))) (define (place- p) (knot-set-control-! k p) (update-choices)) (define (place+ p) (knot-set-control+! k p) (update-choices)) (set! handles (cons (handle-box-add-handle box pos place) handles)) (if (eq? (knot-left-type k) 'explicit) (set! handles (cons (handle-box-add-handle box pos- place-) handles))) (if (eq? (knot-right-type k) 'explicit) (set! handles (cons (handle-box-add-handle box pos+ place+) handles)))) knots)) (define (make-choices) ;; How low can you go. (for-each (lambda (k) (if (not (eq? (knot-left-type k) 'endpoint)) (knot-set-control-! k (point-add (knot-pos k) (make-point -20 0)))) (if (not (eq? (knot-right-type k) 'endpoint)) (knot-set-control+! k (point-add (knot-pos k) (make-point 20 0))))) knots)) (define (update-choices) (make-choices) (drawing-board-update board)) (define (make-type-frame label) (let ((f (gtk-frame-new label)) (vbox (gtk-vbox-new #f 2)) (group #f)) (gtk-container-add f vbox) (for-each (lambda (t) (set! group (gtk-radio-button-new-with-label group (symbol->string t))) (gtk-box-pack-start vbox group #f #f) (gtk-signal-connect group "clicked" (lambda () (pk 'type t)))) '(explicit given curl open)) f)) (let ((widget (gtk-hbox-new #f 2)) (left-type-frame (make-type-frame "left type")) (right-type-frame (make-type-frame "right type"))) (gtk-box-pack-start widget left-type-frame #f #f) (gtk-box-pack-end widget right-type-frame #f #f) (define-dispatcher widget ((set-board b) (set! board b)) ((set-handle-box b) (rem-handles) (set! box b) (update-handles)) ((set-knots k) (set! knots k) (update-handles) (make-choices))) widget))) (define-methods spline-controller (set-board cntrl board) (set-handle-box cntrl box) (set-knots cntrl knots)) ;;; Main (let ((toplevel (gtk-window-new 'toplevel)) (vbox (gtk-vbox-new #f 1)) (board (drawing-board-new)) (box (handle-box-new)) (drawer (spline-drawer-new)) (controller (spline-controller-new)) (quit-b (gtk-button-new-with-label "Quit"))) (spline-drawer-set-handle-box drawer box) (spline-controller-set-handle-box controller box) (handle-box-set-board box board) (spline-drawer-set-board drawer board) (spline-controller-set-board controller board) (gtk-container-add toplevel vbox) (gtk-box-pack-start vbox board #t #t) (gtk-box-pack-start vbox controller #f #f) (gtk-box-pack-start vbox quit-b #f #f) (let ((kn (list (make-start-knot (make-point 100 50)) (make-mid-knot (make-point 200 50)) (make-end-knot (make-point 300 50))))) (spline-controller-set-knots controller kn) (spline-drawer-set-knots drawer kn)) (gtk-signal-connect quit-b "clicked" (lambda () (gtk-widget-destroy toplevel))) (gtk-drawing-area-size board 400 200) (gtk-widget-show-all toplevel) (gtk-standalone-main toplevel)) guile-gnome-platform-2.16.2/gtk/examples/Makefile.am0000644000175000017500000000006711670374303022632 0ustar00wingowingo00000000000000EXTRA_DIST = $(wildcard *.scm) guile-gtk-demo tutorial guile-gnome-platform-2.16.2/gtk/examples/Makefile.in0000644000175000017500000002731211752511067022646 0ustar00wingowingo00000000000000# Makefile.in generated by automake 1.11.5 from Makefile.am. # @configure_input@ # Copyright (C) 1994, 1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, # 2003, 2004, 2005, 2006, 2007, 2008, 2009, 2010, 2011 Free Software # Foundation, Inc. # This Makefile.in is free software; the Free Software Foundation # gives unlimited permission to copy and/or distribute it, # with or without modifications, as long as this notice is preserved. # This program is distributed in the hope that it will be useful, # but WITHOUT ANY WARRANTY, to the extent permitted by law; without # even the implied warranty of MERCHANTABILITY or FITNESS FOR A # PARTICULAR PURPOSE. @SET_MAKE@ VPATH = @srcdir@ am__make_dryrun = \ { \ am__dry=no; \ case $$MAKEFLAGS in \ *\\[\ \ ]*) \ echo 'am--echo: ; @echo "AM" OK' | $(MAKE) -f - 2>/dev/null \ | grep '^AM OK$$' >/dev/null || am__dry=yes;; \ *) \ for am__flg in $$MAKEFLAGS; do \ case $$am__flg in \ *=*|--*) ;; \ *n*) am__dry=yes; break;; \ esac; \ done;; \ esac; \ test $$am__dry = yes; \ } pkgdatadir = $(datadir)/@PACKAGE@ pkgincludedir = $(includedir)/@PACKAGE@ pkglibdir = $(libdir)/@PACKAGE@ pkglibexecdir = $(libexecdir)/@PACKAGE@ am__cd = CDPATH="$${ZSH_VERSION+.}$(PATH_SEPARATOR)" && cd install_sh_DATA = $(install_sh) -c -m 644 install_sh_PROGRAM = $(install_sh) -c install_sh_SCRIPT = $(install_sh) -c INSTALL_HEADER = $(INSTALL_DATA) transform = $(program_transform_name) NORMAL_INSTALL = : PRE_INSTALL = : POST_INSTALL = : NORMAL_UNINSTALL = : PRE_UNINSTALL = : POST_UNINSTALL = : build_triplet = @build@ host_triplet = @host@ subdir = gtk/examples DIST_COMMON = $(srcdir)/Makefile.am $(srcdir)/Makefile.in ACLOCAL_M4 = $(top_srcdir)/aclocal.m4 am__aclocal_m4_deps = $(top_srcdir)/configure.ac am__configure_deps = $(am__aclocal_m4_deps) $(CONFIGURE_DEPENDENCIES) \ $(ACLOCAL_M4) mkinstalldirs = $(install_sh) -d CONFIG_HEADER = $(top_builddir)/config.h CONFIG_CLEAN_FILES = CONFIG_CLEAN_VPATH_FILES = SOURCES = DIST_SOURCES = am__can_run_installinfo = \ case $$AM_UPDATE_INFO_DIR in \ n|no|NO) false;; \ *) (install-info --version) >/dev/null 2>&1;; \ esac DISTFILES = $(DIST_COMMON) $(DIST_SOURCES) $(TEXINFOS) $(EXTRA_DIST) ACLOCAL = @ACLOCAL@ AG_PKG_CONFIG_PATH = @AG_PKG_CONFIG_PATH@ AMTAR = @AMTAR@ API_VERSION = @API_VERSION@ AR = @AR@ ATK_CFLAGS = @ATK_CFLAGS@ ATK_LIBS = @ATK_LIBS@ AUTOCONF = @AUTOCONF@ AUTOHEADER = @AUTOHEADER@ AUTOMAKE = @AUTOMAKE@ AWK = @AWK@ BONOBO_IDL_DIR = @BONOBO_IDL_DIR@ CANVAS_CFLAGS = @CANVAS_CFLAGS@ CANVAS_LIBS = @CANVAS_LIBS@ CC = @CC@ CCDEPMODE = @CCDEPMODE@ CFLAGS = @CFLAGS@ CORBA_CFLAGS = @CORBA_CFLAGS@ CORBA_LIBS = @CORBA_LIBS@ CPP = @CPP@ CPPFLAGS = @CPPFLAGS@ CYGPATH_W = @CYGPATH_W@ DEFS = @DEFS@ DEPDIR = @DEPDIR@ DLLTOOL = @DLLTOOL@ DSYMUTIL = @DSYMUTIL@ DUMPBIN = @DUMPBIN@ ECHO_C = @ECHO_C@ ECHO_N = @ECHO_N@ ECHO_T = @ECHO_T@ EGREP = @EGREP@ EXEEXT = @EXEEXT@ FGREP = @FGREP@ GCONF_CFLAGS = @GCONF_CFLAGS@ GCONF_LIBS = @GCONF_LIBS@ GDK_CFLAGS = @GDK_CFLAGS@ GDK_LIBS = @GDK_LIBS@ GDK_PIXBUF_CFLAGS = @GDK_PIXBUF_CFLAGS@ GDK_PIXBUF_LIBS = @GDK_PIXBUF_LIBS@ GLIB_CFLAGS = @GLIB_CFLAGS@ GLIB_LIBS = @GLIB_LIBS@ GNOMEUI_DEPRECATION_FLAGS = @GNOMEUI_DEPRECATION_FLAGS@ GNOME_VFS_CFLAGS = @GNOME_VFS_CFLAGS@ GNOME_VFS_DEPRECATED_CFLAGS = @GNOME_VFS_DEPRECATED_CFLAGS@ GNOME_VFS_LIBS = @GNOME_VFS_LIBS@ GOBJECT_CFLAGS = @GOBJECT_CFLAGS@ GOBJECT_LIBS = @GOBJECT_LIBS@ GREP = @GREP@ GTHREAD_CFLAGS = @GTHREAD_CFLAGS@ GTHREAD_LIBS = @GTHREAD_LIBS@ GTK_CFLAGS = @GTK_CFLAGS@ GTK_DEPRECATED_CFLAGS = @GTK_DEPRECATED_CFLAGS@ GTK_LIBS = @GTK_LIBS@ GUILE_CAIRO_CFLAGS = @GUILE_CAIRO_CFLAGS@ GUILE_CAIRO_LIBS = @GUILE_CAIRO_LIBS@ GUILE_CFLAGS = @GUILE_CFLAGS@ GUILE_EFFECTIVE_VERSION = @GUILE_EFFECTIVE_VERSION@ GUILE_GLIB_CFLAGS = @GUILE_GLIB_CFLAGS@ GUILE_GLIB_LIBS = @GUILE_GLIB_LIBS@ GUILE_LIBS = @GUILE_LIBS@ G_WRAP_CFLAGS = @G_WRAP_CFLAGS@ G_WRAP_LIBS = @G_WRAP_LIBS@ G_WRAP_LIB_DIR = @G_WRAP_LIB_DIR@ G_WRAP_MODULE_DIR = @G_WRAP_MODULE_DIR@ INSTALL = @INSTALL@ INSTALL_DATA = @INSTALL_DATA@ INSTALL_PROGRAM = @INSTALL_PROGRAM@ INSTALL_SCRIPT = @INSTALL_SCRIPT@ INSTALL_STRIP_PROGRAM = @INSTALL_STRIP_PROGRAM@ LD = @LD@ LDFLAGS = @LDFLAGS@ LIBGLADE_CFLAGS = @LIBGLADE_CFLAGS@ LIBGLADE_LIBS = @LIBGLADE_LIBS@ LIBGNOMEUI_CFLAGS = @LIBGNOMEUI_CFLAGS@ LIBGNOMEUI_LIBS = @LIBGNOMEUI_LIBS@ LIBGNOME_CFLAGS = @LIBGNOME_CFLAGS@ LIBGNOME_LIBS = @LIBGNOME_LIBS@ LIBOBJS = @LIBOBJS@ LIBS = @LIBS@ LIBTOOL = @LIBTOOL@ LIPO = @LIPO@ LN_S = @LN_S@ LTLIBOBJS = @LTLIBOBJS@ MAKEINFO = @MAKEINFO@ MANIFEST_TOOL = @MANIFEST_TOOL@ MKDIR_P = @MKDIR_P@ NM = @NM@ NMEDIT = @NMEDIT@ OBJDUMP = @OBJDUMP@ OBJEXT = @OBJEXT@ ORBIT_IDL = @ORBIT_IDL@ OTOOL = @OTOOL@ OTOOL64 = @OTOOL64@ PACKAGE = @PACKAGE@ PACKAGE_BUGREPORT = @PACKAGE_BUGREPORT@ PACKAGE_NAME = @PACKAGE_NAME@ PACKAGE_STRING = @PACKAGE_STRING@ PACKAGE_TARNAME = @PACKAGE_TARNAME@ PACKAGE_URL = @PACKAGE_URL@ PACKAGE_VERSION = @PACKAGE_VERSION@ PANGOCAIRO_CFLAGS = @PANGOCAIRO_CFLAGS@ PANGOCAIRO_LIBS = @PANGOCAIRO_LIBS@ PANGO_CFLAGS = @PANGO_CFLAGS@ PANGO_LIBS = @PANGO_LIBS@ PATH_SEPARATOR = @PATH_SEPARATOR@ PKG_CONFIG = @PKG_CONFIG@ PKG_CONFIG_LIBDIR = @PKG_CONFIG_LIBDIR@ PKG_CONFIG_PATH = @PKG_CONFIG_PATH@ RANLIB = @RANLIB@ SED = @SED@ SET_MAKE = @SET_MAKE@ SHELL = @SHELL@ STRIP = @STRIP@ VERSION = @VERSION@ WARN_CFLAGS = @WARN_CFLAGS@ abs_builddir = @abs_builddir@ abs_srcdir = @abs_srcdir@ abs_top_builddir = @abs_top_builddir@ abs_top_srcdir = @abs_top_srcdir@ ac_ct_AR = @ac_ct_AR@ ac_ct_CC = @ac_ct_CC@ ac_ct_DUMPBIN = @ac_ct_DUMPBIN@ am__include = @am__include@ am__leading_dot = @am__leading_dot@ am__quote = @am__quote@ am__tar = @am__tar@ am__untar = @am__untar@ bindir = @bindir@ build = @build@ build_alias = @build_alias@ build_cpu = @build_cpu@ build_os = @build_os@ build_vendor = @build_vendor@ builddir = @builddir@ datadir = @datadir@ datarootdir = @datarootdir@ docdir = @docdir@ dvidir = @dvidir@ exec_prefix = @exec_prefix@ host = @host@ host_alias = @host_alias@ host_cpu = @host_cpu@ host_os = @host_os@ host_vendor = @host_vendor@ htmldir = @htmldir@ includedir = @includedir@ infodir = @infodir@ install_sh = @install_sh@ libdir = @libdir@ libexecdir = @libexecdir@ localedir = @localedir@ localstatedir = @localstatedir@ mandir = @mandir@ mkdir_p = @mkdir_p@ oldincludedir = @oldincludedir@ pdfdir = @pdfdir@ prefix = @prefix@ program_transform_name = @program_transform_name@ psdir = @psdir@ sbindir = @sbindir@ sharedstatedir = @sharedstatedir@ srcdir = @srcdir@ sysconfdir = @sysconfdir@ target_alias = @target_alias@ top_build_prefix = @top_build_prefix@ top_builddir = @top_builddir@ top_srcdir = @top_srcdir@ EXTRA_DIST = $(wildcard *.scm) guile-gtk-demo tutorial all: all-am .SUFFIXES: $(srcdir)/Makefile.in: $(srcdir)/Makefile.am $(am__configure_deps) @for dep in $?; do \ case '$(am__configure_deps)' in \ *$$dep*) \ ( cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh ) \ && { if test -f $@; then exit 0; else break; fi; }; \ exit 1;; \ esac; \ done; \ echo ' cd $(top_srcdir) && $(AUTOMAKE) --gnu gtk/examples/Makefile'; \ $(am__cd) $(top_srcdir) && \ $(AUTOMAKE) --gnu gtk/examples/Makefile .PRECIOUS: Makefile Makefile: $(srcdir)/Makefile.in $(top_builddir)/config.status @case '$?' in \ *config.status*) \ cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh;; \ *) \ echo ' cd $(top_builddir) && $(SHELL) ./config.status $(subdir)/$@ $(am__depfiles_maybe)'; \ cd $(top_builddir) && $(SHELL) ./config.status $(subdir)/$@ $(am__depfiles_maybe);; \ esac; $(top_builddir)/config.status: $(top_srcdir)/configure $(CONFIG_STATUS_DEPENDENCIES) cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh $(top_srcdir)/configure: $(am__configure_deps) cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh $(ACLOCAL_M4): $(am__aclocal_m4_deps) cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh $(am__aclocal_m4_deps): mostlyclean-libtool: -rm -f *.lo clean-libtool: -rm -rf .libs _libs tags: TAGS TAGS: ctags: CTAGS CTAGS: distdir: $(DISTFILES) @srcdirstrip=`echo "$(srcdir)" | sed 's/[].[^$$\\*]/\\\\&/g'`; \ topsrcdirstrip=`echo "$(top_srcdir)" | sed 's/[].[^$$\\*]/\\\\&/g'`; \ list='$(DISTFILES)'; \ dist_files=`for file in $$list; do echo $$file; done | \ sed -e "s|^$$srcdirstrip/||;t" \ -e "s|^$$topsrcdirstrip/|$(top_builddir)/|;t"`; \ case $$dist_files in \ */*) $(MKDIR_P) `echo "$$dist_files" | \ sed '/\//!d;s|^|$(distdir)/|;s,/[^/]*$$,,' | \ sort -u` ;; \ esac; \ for file in $$dist_files; do \ if test -f $$file || test -d $$file; then d=.; else d=$(srcdir); fi; \ if test -d $$d/$$file; then \ dir=`echo "/$$file" | sed -e 's,/[^/]*$$,,'`; \ if test -d "$(distdir)/$$file"; then \ find "$(distdir)/$$file" -type d ! -perm -700 -exec chmod u+rwx {} \;; \ fi; \ if test -d $(srcdir)/$$file && test $$d != $(srcdir); then \ cp -fpR $(srcdir)/$$file "$(distdir)$$dir" || exit 1; \ find "$(distdir)/$$file" -type d ! -perm -700 -exec chmod u+rwx {} \;; \ fi; \ cp -fpR $$d/$$file "$(distdir)$$dir" || exit 1; \ else \ test -f "$(distdir)/$$file" \ || cp -p $$d/$$file "$(distdir)/$$file" \ || exit 1; \ fi; \ done check-am: all-am check: check-am all-am: Makefile installdirs: install: install-am install-exec: install-exec-am install-data: install-data-am uninstall: uninstall-am install-am: all-am @$(MAKE) $(AM_MAKEFLAGS) install-exec-am install-data-am installcheck: installcheck-am install-strip: if test -z '$(STRIP)'; then \ $(MAKE) $(AM_MAKEFLAGS) INSTALL_PROGRAM="$(INSTALL_STRIP_PROGRAM)" \ install_sh_PROGRAM="$(INSTALL_STRIP_PROGRAM)" INSTALL_STRIP_FLAG=-s \ install; \ else \ $(MAKE) $(AM_MAKEFLAGS) INSTALL_PROGRAM="$(INSTALL_STRIP_PROGRAM)" \ install_sh_PROGRAM="$(INSTALL_STRIP_PROGRAM)" INSTALL_STRIP_FLAG=-s \ "INSTALL_PROGRAM_ENV=STRIPPROG='$(STRIP)'" install; \ fi mostlyclean-generic: clean-generic: distclean-generic: -test -z "$(CONFIG_CLEAN_FILES)" || rm -f $(CONFIG_CLEAN_FILES) -test . = "$(srcdir)" || test -z "$(CONFIG_CLEAN_VPATH_FILES)" || rm -f $(CONFIG_CLEAN_VPATH_FILES) maintainer-clean-generic: @echo "This command is intended for maintainers to use" @echo "it deletes files that may require special tools to rebuild." clean: clean-am clean-am: clean-generic clean-libtool mostlyclean-am distclean: distclean-am -rm -f Makefile distclean-am: clean-am distclean-generic dvi: dvi-am dvi-am: html: html-am html-am: info: info-am info-am: install-data-am: install-dvi: install-dvi-am install-dvi-am: install-exec-am: install-html: install-html-am install-html-am: install-info: install-info-am install-info-am: install-man: install-pdf: install-pdf-am install-pdf-am: install-ps: install-ps-am install-ps-am: installcheck-am: maintainer-clean: maintainer-clean-am -rm -f Makefile maintainer-clean-am: distclean-am maintainer-clean-generic mostlyclean: mostlyclean-am mostlyclean-am: mostlyclean-generic mostlyclean-libtool pdf: pdf-am pdf-am: ps: ps-am ps-am: uninstall-am: .MAKE: install-am install-strip .PHONY: all all-am check check-am clean clean-generic clean-libtool \ distclean distclean-generic distclean-libtool distdir dvi \ dvi-am html html-am info info-am install install-am \ install-data install-data-am install-dvi install-dvi-am \ install-exec install-exec-am install-html install-html-am \ install-info install-info-am install-man install-pdf \ install-pdf-am install-ps install-ps-am install-strip \ installcheck installcheck-am installdirs maintainer-clean \ maintainer-clean-generic mostlyclean mostlyclean-generic \ mostlyclean-libtool pdf pdf-am ps ps-am uninstall uninstall-am # Tell versions [3.59,3.63) of GNU make to not export all variables. # Otherwise a system limit (for SysV at least) may be exceeded. .NOEXPORT: guile-gnome-platform-2.16.2/gtk/examples/hello-generics.scm0000644000175000017500000000431211670374303024177 0ustar00wingowingo00000000000000#! /bin/sh # -*- scheme -*- exec guile-gnome-2 -s $0 "$@" !# ;; guile-gnome ;; Copyright (C) 2003,2004 Free Software Foundation, Inc. ;; This program is free software; you can redistribute it and/or ;; modify it under the terms of the GNU General Public License as ;; published by the Free Software Foundation; either version 2 of ;; the License, or (at your option) any later version. ;; ;; This program is distributed in the hope that it will be useful, ;; but WITHOUT ANY WARRANTY; without even the implied warranty of ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the ;; GNU General Public License for more details. ;; ;; You should have received a copy of the GNU General Public License ;; along with this program; if not, contact: ;; ;; Free Software Foundation Voice: +1-617-542-5942 ;; 59 Temple Place - Suite 330 Fax: +1-617-542-2652 ;; Boston, MA 02111-1307, USA gnu@gnu.org (use-modules (oop goops) (gnome gobject) (gnome gtk)) (define (hello) (let* ((window (make #:type 'toplevel)) (button (make #:label "Hello, World!"))) ;; up to here, everything is the same as hello.scm. however, now we ;; can make use of generic functions: ;; since window is a container, this generic maps onto the function ;; gtk-container-set-border-width (set-border-width window 10) ;; note that we can set the border width with a gobject property as ;; well: (gobject-set-property window 'border-width 15) ;; (gnome gobject generics), re-exported by (gnome gtk), defines a ;; generic `set' method for gobject-set-property, se we can also do ;; it like this: (set window 'border-width 20) ;; this is much less typing :-) (add window button) ;; see (gnome gobject generics) for a full list of gobject generic ;; functions (connect button 'clicked (lambda (b) (gtk-main-quit))) ;; generic functions for .defs apis are defined in the .defs files, ;; not manually (show-all window) (gtk-main))) (hello) guile-gnome-platform-2.16.2/gtk/examples/tic-tac-toe.scm0000644000175000017500000001155711670374303023421 0ustar00wingowingo00000000000000#! /bin/sh # -*- scheme -*- exec guile-gnome-2 -s $0 "$@" !# ;; guile-gnome ;; Copyright (C) 2003,2004 Free Software Foundation, Inc. ;; This program is free software; you can redistribute it and/or ;; modify it under the terms of the GNU General Public License as ;; published by the Free Software Foundation; either version 2 of ;; the License, or (at your option) any later version. ;; ;; This program is distributed in the hope that it will be useful, ;; but WITHOUT ANY WARRANTY; without even the implied warranty of ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the ;; GNU General Public License for more details. ;; ;; You should have received a copy of the GNU General Public License ;; along with this program; if not, contact: ;; ;; Free Software Foundation Voice: +1-617-542-5942 ;; 59 Temple Place - Suite 330 Fax: +1-617-542-2652 ;; Boston, MA 02111-1307, USA gnu@gnu.org (read-set! keywords 'prefix) (use-modules (oop goops) (gnome gobject) (gnome glib) (gnome gtk)) (define-class () (board-size ;; this slot is exported as a gobject property :gparam `(, :minimum 2 :maximum 100 :default-value 3 :flags (read write construct))) table buttons winning-combinations :gsignal '(tic-tac-toe #f)) (define (ttt-clear ttt) (let ((buttons (slot-ref ttt 'buttons))) (do ((p 0 (1+ p))) ((>= p (vector-length buttons))) (set (vector-ref buttons p) 'active #f)))) (define (ttt-toggle ttt) (let ((buttons (slot-ref ttt 'buttons))) (let loop ((wins (slot-ref ttt 'winning-combinations))) (cond ((not (null? wins)) (cond ((and-map (lambda (wp) (get (vector-ref buttons wp) 'active)) (car wins)) (emit ttt 'tic-tac-toe) (ttt-clear ttt)) (else (loop (cdr wins))))))))) (define (make-sequence len init step) (let loop ((i len) (val init)) (if (eq? i 0) '() (cons val (loop (1- i) (+ val step)))))) (define-method (gobject:set-property (ttt ) (name ) value) (next-method) ;; actually store the values with the next-method (case name ((board-size) (if (slot-bound? ttt 'table) (destroy (slot-ref ttt 'table))) (let ((t (gtk-table-new value value #f)) (bvect (make-vector (* value value)))) (do ((p 0 (1+ p))) ((>= p (vector-length bvect))) (let ((b (make )) (i (quotient p value)) (j (remainder p value))) (vector-set! bvect p b) (attach-defaults t b i (1+ i) j (1+ j)) (connect b 'toggled (lambda (unused-arg) (ttt-toggle ttt))))) (slot-set! ttt 'winning-combinations (map (lambda (pair) (make-sequence value (car pair) (cadr pair))) (cons* ;; the diagonals (list 0 (1+ value)) (list (1- value) (1- value)) (append ;; the horizontals (let loop ((i 0)) (if (eq? i value) '() (cons (list i value) (loop (1+ i))))) ;; the verticals (let loop ((i 0)) (if (eq? i (* value value)) '() (cons (list i 1) (loop (+ i value))))))))) (slot-set! ttt 'table t) (slot-set! ttt 'buttons bvect) (pack-start-defaults ttt t) (show-all t)) (slot-set! ttt 'board-size value)))) ;; setting the 'board-size property on ttt, which is done on ;; construction (due to the 'construct flag in the param's flags), takes ;; care of setting up widget internals. we don't need to explicitly ;; initialize anything -- which is nice, that ;; means the object has a robust interface. (let* ((w (make :type 'toplevel :title "Tic tac toe")) (vbox (make )) (ttt (make )) (adj (gtk-adjustment-new 3 2 100 1 1 1)) ;; not a gobject yet, argh (spin (make ))) (set spin 'adjustment adj) (connect adj 'value-changed (lambda (a) (set ttt 'board-size (inexact->exact (get a 'value))))) (set-default-size w 250 250) (add w vbox) (pack-start-defaults vbox ttt) (pack-start vbox spin #f #f 0) (show-all w) (g-timeout-add 100 (lambda () #t)) (connect ttt 'tic-tac-toe (lambda (ttt) (display "Yay!\n"))) (connect w 'delete-event (lambda (ttt e) (gtk-main-quit) #f))) (gtk-main) guile-gnome-platform-2.16.2/gtk/examples/hello.scm0000644000175000017500000000427111670374303022406 0ustar00wingowingo00000000000000#! /bin/sh # -*- scheme -*- exec guile-gnome-2 -s $0 "$@" !# ;; guile-gnome ;; Copyright (C) 2003,2004 Free Software Foundation, Inc. ;; This program is free software; you can redistribute it and/or ;; modify it under the terms of the GNU General Public License as ;; published by the Free Software Foundation; either version 2 of ;; the License, or (at your option) any later version. ;; ;; This program is distributed in the hope that it will be useful, ;; but WITHOUT ANY WARRANTY; without even the implied warranty of ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the ;; GNU General Public License for more details. ;; ;; You should have received a copy of the GNU General Public License ;; along with this program; if not, contact: ;; ;; Free Software Foundation Voice: +1-617-542-5942 ;; 59 Temple Place - Suite 330 Fax: +1-617-542-2652 ;; Boston, MA 02111-1307, USA gnu@gnu.org (use-modules (oop goops) (gnome gobject) (gnome gtk)) ;; define the hello as a function -- there are many other ways to do this, ;; of course... (define (hello) ;; we can make new widgets just like we make goops objects -- there is ;; a corresponding goops class for every GType we know about. the ;; arguments to make, after the class, are interpreted as properties ;; to set. in this case we make a toplevel window and a button with ;; the label, "Hello, World!". (let* ((window (make #:type 'toplevel)) (button (make #:label "Hello, World!"))) ;; there are scheme functions corresponding to all of the c ones... ;; and of course we don't have to cast anything. (gtk-container-set-border-width window 10) (gtk-container-add window button) ;; and of course you can attach a lambda to a signal :-) (gtype-instance-signal-connect button 'clicked (lambda (b) (gtk-main-quit))) (gtk-widget-show-all window) ;; this will block until gtk-main-quit is called... (gtk-main))) ;; meaning this blocks until the button is clicked. (hello) guile-gnome-platform-2.16.2/gtk/examples/continuations.scm0000644000175000017500000001072211671226175024202 0ustar00wingowingo00000000000000;; This demo is pure crack. Don't do this. Glib allocates things on the ;; stack sometimes, then points to them from the heap -- any stack ;; manipulation that does not allow GLib to unwind the stack (for which ;; GLib supplies no hooks) will cause undefined behaviour. It's ;; surprising this works. --wingo. ;; guile-gnome ;; Copyright (C) 2000,2003,2004 Free Software Foundation, Inc. ;; This program is free software; you can redistribute it and/or ;; modify it under the terms of the GNU General Public License as ;; published by the Free Software Foundation; either version 2 of ;; the License, or (at your option) any later version. ;; ;; This program is distributed in the hope that it will be useful, ;; but WITHOUT ANY WARRANTY; without even the implied warranty of ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the ;; GNU General Public License for more details. ;; ;; You should have received a copy of the GNU General Public License ;; along with this program; if not, contact: ;; ;; Free Software Foundation Voice: +1-617-542-5942 ;; 59 Temple Place - Suite 330 Fax: +1-617-542-2652 ;; Boston, MA 02111-1307, USA gnu@gnu.org ;; This is an example of how to use continuations with the Gtk event ;; loop. It implements a dialog box that looks like to the programmer ;; like it was modal, and to the user like it was non-modal. The ;; function `yes-or-no?' that implements this dialog box only returns ;; to the caller when the user has aswered the dialog. The user ;; however can pop up any number of these dialog boxes and answer them ;; in any order he likes. The main application stays alive as well. (use-modules (oop goops) (gnome gtk)) ;; The callbacks that have been delayed (define callbacks '()) ;; Our own event-loop. We remove the callbacks before invoking them ;; so that we don't get confused when the callback reenters the ;; event-loop. (define (event-loop) (cond ((not (null? callbacks)) (let ((c (car callbacks))) (set! callbacks (cdr callbacks)) (c #f) (event-loop))) ((gtk-main-iteration) (event-loop)))) ;; Connect to a signal and arrange for PROC to be consed onto ;; CALLBACKS when the signal is emitted. (define (connect-delayed obj sig proc) (connect obj sig (lambda (o) (set! callbacks (cons proc callbacks))))) ;; Now for the continuation part. To implement the non-modal dialog box ;; that can be used from your code like a modal one, we save the ;; continuation of the YES-OR-NO? invokation and reenter the event-loop ;; (after popping up the window). When a button has been clicked, we ;; destroy the window and invoke the saved continuation with the ;; appropriate return value. (define (yes-or-no? title) (call-with-current-continuation (lambda (cont) ;; Now CONT is the part of the program that receives our ;; return value. (let* ((d (make #:type 'toplevel)) (v (make )) (h (make )) (l (make #:label title)) (s (make )) (y (make #:label "Yes")) (n (make #:label "No")) (answer (lambda (val) (destroy d) ;; Here we return to our caller after the ;; dialog has been destroyed. (cont val)))) (add d v) (pack-start v l #f #f 0) (pack-start v s #f #f 0) (pack-start v h #f #f 0) (pack-start h y #f #f 0) (pack-start h n #f #f 0) (show-all d) ;; Bind ANSWER to the "clicked" signals of the action ;; buttons. (connect-delayed y 'clicked (lambda (y) (answer #t))) (connect-delayed n 'clicked (lambda (n) (answer #f))) ;; Reenter the event-loop. You can think of this as a goto. (event-loop))))) (define w (make #:type 'toplevel)) (define b (make #:label "Ok!")) (set-default-size w 150 100) (add w b) (connect-delayed b 'clicked (let ((i 0)) (lambda (f) (set! i (1+ i)) ;; capture I in a local environment so that nobody can alter ;; it while YES-OR-NO? does its thing. (let ((i i)) ;; Use YES-OR-NO? as if it were a modal dialog. (pk i (yes-or-no? (string-append (number->string i) ": Really?"))))))) (connect w 'destroy (lambda (w) (quit))) (show b) (show w) (event-loop) guile-gnome-platform-2.16.2/gtk/examples/scribble.scm0000755000175000017500000000731511670374303023075 0ustar00wingowingo00000000000000#! /bin/sh # -*- scheme -*- exec guile-gnome-2 -s $0 "$@" !# ;;;A translation of the GTK scribble example ;;;It features a resizable canvas that can be drawn on with the mouse ;;;by Marcello Mathias Herreshoff ;;;translated to the guile-gnome API by Andy Wingo ;;;(C) 2004 GNU GPL (use-modules (oop goops) (gnome glib) (gnome gtk) (gnome gtk gdk-event)) ;Variables holding the size of the pixmap & drawing area. (define width 200) (define height 200) (define brush-size 4) ;;The widgets: (define toplevel-window (make #:type 'toplevel)) (define layout-box (make )) (define drawing-area (make )) (define close-button (make #:label (gtk-stock-id 'close) #:use-stock #t)) (define pixmap #f) ;to be created by recreate-pixmap ; We can't generate these until the window is visble, ; because we need the style object (define fore-gc #f) (define back-gc #f) ;Note: configure is GTKese for resize (define (configure-handler x ev) (recreate-pixmap) #t) (define (recreate-pixmap) (let ((window (get-window drawing-area)) (a (get-allocation drawing-area))) (set! width (vector-ref a 2)) (set! height (vector-ref a 3)) (set! pixmap (gdk-pixmap-new window width height -1)) (gdk-draw-rectangle pixmap back-gc 1 0 0 width height)) (update-handler)) ;Important note: we can't draw directly on the drawing area. ;the pixmap must use the drawing area's window. ;expose, that is, some other window is no longer covering us (define (expose-handler w x) (update-handler) ;we just redraw everything. #t) ;To redraw, we just write our backup pixmap onto the drawing area's window (define (update-handler) (gdk-draw-drawable (get-window drawing-area) back-gc pixmap 0 0 0 0 width height)) ;How to draw on the pixmap: (define (draw-brush widget x y) (gdk-draw-rectangle pixmap fore-gc 1 x y brush-size brush-size) ;;we just make a rectangle (update-handler)) ; if they click, call draw-brush with the exact position (define (click-handler w ev) (draw-brush drawing-area (inexact->exact (gdk-event-button:x ev)) (inexact->exact (gdk-event-button:y ev))) #t) ;If they drag the mouse over the drawing area and the button is down, ;then we call draw-brush with the exact position (define (drag-handler w ev) (if (memq 'button1-mask (gdk-event-motion:modifiers ev)) (draw-brush drawing-area (inexact->exact (gdk-event-motion:x ev)) (inexact->exact (gdk-event-motion:y ev)))) #t) ;Set the events that the drawing-area can capture, ; so we can respond to click and drags. ;We need to to this before the widget is visible. (set-events drawing-area '(button-press-mask pointer-motion-mask)) ;Lay out the widgets (pack-start layout-box drawing-area) (pack-start layout-box close-button) (add toplevel-window layout-box) ;Set the size of the drawing area to something reasonable. (set-size-request drawing-area width height) ;make the window, and its contents visible (show-all toplevel-window) ;Now we connect the events ;We need to do this things are visible, as some of these events might get ;called and panic. (connect drawing-area 'configure-event configure-handler) (connect drawing-area 'expose-event expose-handler) (connect drawing-area 'motion-notify-event drag-handler) (connect drawing-area 'button-press-event click-handler) (connect close-button 'clicked (lambda args (exit 0))) ;This also needs to happen after the window is visible, because ;we need its style (let ((style (get-style toplevel-window))) (set! fore-gc (get-black-gc style)) (set! back-gc (get-white-gc style))) ;We set up the pixmap (recreate-pixmap) (g-main-loop-run (g-main-loop-new)) guile-gnome-platform-2.16.2/gtk/examples/texinfo-browser.scm0000755000175000017500000000330211670374303024435 0ustar00wingowingo00000000000000#! /bin/sh # -*- scheme -*- exec guile-gnome-2 -s $0 "$@" !# ;; guile-gnome ;; Copyright (C) 2003,2004 Andy Wingo ;; This program is free software; you can redistribute it and/or ;; modify it under the terms of the GNU General Public License as ;; published by the Free Software Foundation; either version 2 of ;; the License, or (at your option) any later version. ;; ;; This program is distributed in the hope that it will be useful, ;; but WITHOUT ANY WARRANTY; without even the implied warranty of ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the ;; GNU General Public License for more details. ;; ;; You should have received a copy of the GNU General Public License ;; along with this program; if not, contact: ;; ;; Free Software Foundation Voice: +1-617-542-5942 ;; 59 Temple Place - Suite 330 Fax: +1-617-542-2652 ;; Boston, MA 02111-1307, USA gnu@gnu.org (define (usage) (display "Usage: texinfo-browser.scm TEXINFO-FILE\n") (exit 1)) (or (= (length (command-line)) 2) (usage)) (use-modules (gnome glib) (gnome gtk) (texinfo) (texinfo nodal-tree) (gnome contrib help-browser)) (let* ((texinfo-file (cadr (command-line))) (stexinfo (call-with-file-and-dir texinfo-file texi->stexi)) (nodes (stexi->nodal-tree stexinfo 3))) (add-help-root! nodes) (show-help) (connect the-help-window 'delete-event (lambda args (exit 0))) (g-main-loop-run (g-main-loop-new #f #f))) guile-gnome-platform-2.16.2/gtk/examples/calendar.scm0000644000175000017500000000266711670374303023063 0ustar00wingowingo00000000000000#! /bin/sh # -*- scheme -*- exec guile-gnome-2 -s $0 "$@" !# ;; guile-gnome ;; Copyright (C) 2001,2002,2003,2004 Free Software Foundation, Inc. ;; This program is free software; you can redistribute it and/or ;; modify it under the terms of the GNU General Public License as ;; published by the Free Software Foundation; either version 2 of ;; the License, or (at your option) any later version. ;; ;; This program is distributed in the hope that it will be useful, ;; but WITHOUT ANY WARRANTY; without even the implied warranty of ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the ;; GNU General Public License for more details. ;; ;; You should have received a copy of the GNU General Public License ;; along with this program; if not, contact: ;; ;; Free Software Foundation Voice: +1-617-542-5942 ;; 59 Temple Place - Suite 330 Fax: +1-617-542-2652 ;; Boston, MA 02111-1307, USA gnu@gnu.org (use-modules (oop goops) (gnome gtk)) (define (calendar-example) (let ((window (make #:type 'toplevel)) (calendar (make ))) (connect window 'delete-event (lambda (w e) (gtk-main-quit) #f)) (add window calendar) (show-all window) (gtk-main))) (calendar-example) ;;Ariel Rios, Andy Wingo guile-gnome-platform-2.16.2/gtk/doc/0000755000175000017500000000000011752546502017525 5ustar00wingowingo00000000000000guile-gnome-platform-2.16.2/gtk/doc/gtk/0000755000175000017500000000000011752546503020313 5ustar00wingowingo00000000000000guile-gnome-platform-2.16.2/gtk/doc/gtk/defuns-gtkcellrendererspin.xml.texi0000644000175000017500000000120611670374302027327 0ustar00wingowingo00000000000000 @c %start of fragment @deftp Class Derives from @code{}. This class defines the following slots: @table @code @item adjustment The adjustment that holds the value of the spinbutton. @item climb-rate The acceleration rate when you hold down a button @item digits The number of decimal places to display @end table @end deftp @deffn Function gtk-cell-renderer-spin-new @result{}@tie{} (ret@tie{}@code{}) Creates a new @code{}. @table @var @item ret a new @code{} @end table Since 2.10 @end deffn @c %end of fragment guile-gnome-platform-2.16.2/gtk/doc/gtk/section-gtkcelleditable.xml.texi0000644000175000017500000000056511670374302026567 0ustar00wingowingo00000000000000 @c %start of fragment @node GtkCellEditable @chapter GtkCellEditable Interface for widgets which can are used for editing cells @section Overview The @code{} interface must be implemented for widgets to be usable when editing the contents of a @code{} cell. @section Usage @include defuns-gtkcelleditable.xml.texi @c %end of fragment guile-gnome-platform-2.16.2/gtk/doc/gtk/defuns-gtkbutton.xml.texi0000644000175000017500000003003111670374302025300 0ustar00wingowingo00000000000000 @c %start of fragment @deftp Class Derives from @code{}. This class defines the following slots: @table @code @item label Text of the label widget inside the button, if the button contains a label widget @item image Child widget to appear next to the button text @item relief The border relief style @item use-underline If set, an underline in the text indicates the next character should be used for the mnemonic accelerator key @item use-stock If set, the label is used to pick a stock item instead of being displayed @item focus-on-click Whether the button grabs focus when it is clicked with the mouse @item xalign Horizontal position of child in available space. 0.0 is left aligned, 1.0 is right aligned @item yalign Vertical position of child in available space. 0.0 is top aligned, 1.0 is bottom aligned @item image-position The position of the image relative to the text @end table @end deftp @defop Signal activate The "activate" signal on GtkButton is an action signal and emitting it causes the button to animate press then release. Applications should never connect to this signal, but use the "clicked" signal. @end defop @defop Signal pressed Emitted when the button is pressed. @var{deprecated}: Use the GtkWidget::button-press-event signal. @end defop @defop Signal released Emitted when the button is released. @var{deprecated}: Use the GtkWidget::button-release-event signal. @end defop @defop Signal clicked Emitted when the button has been activated (pressed and released). @end defop @defop Signal enter Emitted when the pointer enters the button. @var{deprecated}: Use the GtkWidget::enter-notify-event signal. @end defop @defop Signal leave Emitted when the pointer leaves the button. @var{deprecated}: Use the GtkWidget::leave-notify-event signal. @end defop @deffn Function gtk-button-new @result{}@tie{} (ret@tie{}@code{}) Creates a new @code{} widget. To add a child widget to the button, use @code{gtk-container-add}. @table @var @item ret The newly created @code{} widget. @end table @end deffn @deffn Function gtk-button-new-with-label (label@tie{}@code{mchars}) @result{}@tie{} (ret@tie{}@code{}) Creates a @code{} widget with a @code{} child containing the given text. @table @var @item label The text you want the @code{} to hold. @item ret The newly created @code{} widget. @end table @end deffn @deffn Function gtk-button-new-with-mnemonic (label@tie{}@code{mchars}) @result{}@tie{} (ret@tie{}@code{}) Creates a new @code{} containing a label. If characters in @var{label} are preceded by an underscore, they are underlined. If you need a literal underscore character in a label, use '__' (two underscores). The first underlined character represents a keyboard accelerator called a mnemonic. Pressing Alt and that key activates the button. @table @var @item label The text of the button, with an underscore in front of the mnemonic character @item ret a new @code{} @end table @end deffn @deffn Function gtk-button-new-from-stock (stock_id@tie{}@code{mchars}) @result{}@tie{} (ret@tie{}@code{}) Creates a new @code{} containing the image and text from a stock item. Some stock ids have preprocessor macros like @code{} and @code{}. If @var{stock-id} is unknown, then it will be treated as a mnemonic label (as for @code{gtk-button-new-with-mnemonic}). @table @var @item stock-id the name of the stock item @item ret a new @code{} @end table @end deffn @deffn Function gtk-button-pressed (self@tie{}@code{}) @deffnx Method pressed Emits a @code{} signal to the given @code{}. @table @var @item button The @code{} you want to send the signal to. @end table @end deffn @deffn Function gtk-button-released (self@tie{}@code{}) @deffnx Method released Emits a @code{} signal to the given @code{}. @table @var @item button The @code{} you want to send the signal to. @end table @end deffn @deffn Function gtk-button-clicked (self@tie{}@code{}) @deffnx Method clicked Emits a @code{} signal to the given @code{}. @table @var @item button The @code{} you want to send the signal to. @end table @end deffn @deffn Function gtk-button-enter (self@tie{}@code{}) @deffnx Method enter Emits a @code{} signal to the given @code{}. @table @var @item button The @code{} you want to send the signal to. @end table @end deffn @deffn Function gtk-button-leave (self@tie{}@code{}) @deffnx Method leave Emits a @code{} signal to the given @code{}. @table @var @item button The @code{} you want to send the signal to. @end table @end deffn @deffn Function gtk-button-set-relief (self@tie{}@code{}) (newstyle@tie{}@code{}) @deffnx Method set-relief Sets the relief style of the edges of the given @code{} widget. Three styles exist, GTK_RELIEF_NORMAL, GTK_RELIEF_HALF, GTK_RELIEF_NONE. The default style is, as one can guess, GTK_RELIEF_NORMAL. @table @var @item button The @code{} you want to set relief styles of. @item newstyle The GtkReliefStyle as described above. @end table @end deffn @deffn Function gtk-button-get-relief (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{}) @deffnx Method get-relief Returns the current relief style of the given @code{}. @table @var @item button The @code{} you want the @code{} from. @item ret The current @code{} @end table @end deffn @deffn Function gtk-button-get-label (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{mchars}) @deffnx Method get-label Fetches the text from the label of the button, as set by @code{gtk-button-set-label}. If the label text has not been set the return value will be @samp{@code{#f}}. This will be the case if you create an empty button with @code{gtk-button-new} to use as a container. @table @var @item button a @code{} @item ret The text of the label widget. This string is owned by the widget and must not be modified or freed. @end table @end deffn @deffn Function gtk-button-set-label (self@tie{}@code{}) (label@tie{}@code{mchars}) @deffnx Method set-label Sets the text of the label of the button to @var{str}. This text is also used to select the stock item if @code{gtk-button-set-use-stock} is used. This will also clear any previously set labels. @table @var @item button a @code{} @item label a string @end table @end deffn @deffn Function gtk-button-get-use-stock (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{bool}) @deffnx Method get-use-stock Returns whether the button label is a stock item. @table @var @item button a @code{} @item ret @samp{@code{#t}} if the button label is used to select a stock item instead of being used directly as the label text. @end table @end deffn @deffn Function gtk-button-set-use-stock (self@tie{}@code{}) (use_stock@tie{}@code{bool}) @deffnx Method set-use-stock If true, the label set on the button is used as a stock id to select the stock item for the button. @table @var @item button a @code{} @item use-stock @samp{@code{#t}} if the button should use a stock item @end table @end deffn @deffn Function gtk-button-get-use-underline (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{bool}) @deffnx Method get-use-underline Returns whether an embedded underline in the button label indicates a mnemonic. See @code{gtk-button-set-use-underline}. @table @var @item button a @code{} @item ret @samp{@code{#t}} if an embedded underline in the button label indicates the mnemonic accelerator keys. @end table @end deffn @deffn Function gtk-button-set-use-underline (self@tie{}@code{}) (use_underline@tie{}@code{bool}) @deffnx Method set-use-underline If true, an underline in the text of the button label indicates the next character should be used for the mnemonic accelerator key. @table @var @item button a @code{} @item use-underline @samp{@code{#t}} if underlines in the text indicate mnemonics @end table @end deffn @deffn Function gtk-button-set-focus-on-click (self@tie{}@code{}) (focus_on_click@tie{}@code{bool}) @deffnx Method set-focus-on-click Sets whether the button will grab focus when it is clicked with the mouse. Making mouse clicks not grab focus is useful in places like toolbars where you don't want the keyboard focus removed from the main area of the application. @table @var @item button a @code{} @item focus-on-click whether the button grabs focus when clicked with the mouse @end table Since 2.4 @end deffn @deffn Function gtk-button-get-focus-on-click (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{bool}) @deffnx Method get-focus-on-click Returns whether the button grabs focus when it is clicked with the mouse. See @code{gtk-button-set-focus-on-click}. @table @var @item button a @code{} @item ret @samp{@code{#t}} if the button grabs focus when it is clicked with the mouse. @end table Since 2.4 @end deffn @deffn Function gtk-button-set-alignment (self@tie{}@code{}) (xalign@tie{}@code{float}) (yalign@tie{}@code{float}) @deffnx Method set-alignment Sets the alignment of the child. This property has no effect unless the child is a @code{} or a @code{}. @table @var @item button a @code{} @item xalign the horizontal position of the child, 0.0 is left aligned, 1.0 is right aligned @item yalign the vertical position of the child, 0.0 is top aligned, 1.0 is bottom aligned @end table Since 2.4 @end deffn @deffn Function gtk-button-get-alignment (self@tie{}@code{}) @result{}@tie{} (xalign@tie{}@code{float}) (yalign@tie{}@code{float}) @deffnx Method get-alignment Gets the alignment of the child in the button. @table @var @item button a @code{} @item xalign return location for horizontal alignment @item yalign return location for vertical alignment @end table Since 2.4 @end deffn @deffn Function gtk-button-set-image (self@tie{}@code{}) (image@tie{}@code{}) @deffnx Method set-image Set the image of @var{button} to the given widget. Note that it depends on the gtk-button-images setting whether the image will be displayed or not, you don't have to call @code{gtk-widget-show} on @var{image} yourself. @table @var @item button a @code{} @item image a widget to set as the image for the button @end table Since 2.6 @end deffn @deffn Function gtk-button-get-image (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{}) @deffnx Method get-image Gets the widget that is currenty set as the image of @var{button}. This may have been explicitly set by @code{gtk-button-set-image} or constructed by @code{gtk-button-new-from-stock}. @table @var @item button a @code{} @item ret a @code{} or @samp{@code{#f}} in case there is no image @end table Since 2.6 @end deffn @deffn Function gtk-button-set-image-position (self@tie{}@code{}) (position@tie{}@code{}) @deffnx Method set-image-position Sets the position of the image relative to the text inside the button. @table @var @item button a @code{} @item position the position @end table Since 2.10 @end deffn @deffn Function gtk-button-get-image-position (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{}) @deffnx Method get-image-position Gets the position of the image relative to the text inside the button. @table @var @item button a @code{} @item ret the position @end table Since 2.10 @end deffn @c %end of fragment guile-gnome-platform-2.16.2/gtk/doc/gtk/section-gtkcellrenderertoggle.xml.texi0000644000175000017500000000063711670374302030026 0ustar00wingowingo00000000000000 @c %start of fragment @node GtkCellRendererToggle @chapter GtkCellRendererToggle Renders a toggle button in a cell @section Overview @code{} renders a toggle button in a cell. The button is drawn as a radio- or checkbutton, depending on the radio property. When activated, it emits the toggled signal. @section Usage @include defuns-gtkcellrenderertoggle.xml.texi @c %end of fragment guile-gnome-platform-2.16.2/gtk/doc/gtk/guile-gnome-gtk.info-50000644000175000017500000076207111752516272024342 0ustar00wingowingo00000000000000This is guile-gnome-gtk.info, produced by makeinfo version 4.13 from guile-gnome-gtk.texi. This manual is for `(gnome gtk)' (version 2.16.2, updated 9 December 2011) Copyright 1997-2007 Damon Chaplin and others This work may be reproduced and distributed in whole or in part, in any medium, physical or electronic, so as long as this copyright notice remains intact and unchanged on all copies. Commercial redistribution is permitted and encouraged, but you may not redistribute, in whole or in part, under terms more restrictive than those under which you received it. If you redistribute a modified or translated version of this work, you must also make the source code to the modified or translated version available in electronic form without charge. However, mere aggregation as part of a larger work shall not count as a modification for this purpose. All code examples in this work are placed into the public domain, and may be used, modified and redistributed without restriction. BECAUSE THIS WORK IS LICENSED FREE OF CHARGE, THERE IS NO WARRANTY FOR THE WORK, TO THE EXTENT PERMITTED BY APPLICABLE LAW. EXCEPT WHEN OTHERWISE STATED IN WRITING THE COPYRIGHT HOLDERS AND/OR OTHER PARTIES PROVIDE THE WORK "AS IS" WITHOUT WARRANTY OF ANY KIND, EITHER EXPRESSED OR IMPLIED, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE. SHOULD THE WORK PROVE DEFECTIVE, YOU ASSUME THE COST OF ALL NECESSARY REPAIR OR CORRECTION. IN NO EVENT UNLESS REQUIRED BY APPLICABLE LAW OR AGREED TO IN WRITING WILL ANY COPYRIGHT HOLDER, OR ANY OTHER PARTY WHO MAY MODIFY AND/OR REDISTRIBUTE THE WORK AS PERMITTED ABOVE, BE LIABLE TO YOU FOR DAMAGES, INCLUDING ANY GENERAL, SPECIAL, INCIDENTAL OR CONSEQUENTIAL DAMAGES ARISING OUT OF THE USE OR INABILITY TO USE THE WORK, EVEN IF SUCH HOLDER OR OTHER PARTY HAS BEEN ADVISED OF THE POSSIBILITY OF SUCH DAMAGES. INFO-DIR-SECTION The Algorithmic Language Scheme START-INFO-DIR-ENTRY * Guile-Gtk: (guile-gnome-gtk.info). The GIMP ToolKit. END-INFO-DIR-ENTRY  File: guile-gnome-gtk.info, Node: Function Index, Prev: Type Index, Up: Top Function Index ************** [index] * Menu: * %gtk-message-dialog-new: Undocumented. (line 54) * accel-cleared on : GtkCellRendererAccel. (line 49) * accel-closures-changed on : GtkWidget. (line 508) * accel-edited on : GtkCellRendererAccel. (line 42) * accept-position on : GtkPaned. (line 86) * action-activated on : GtkEntryCompletion. (line 106) * actions-changed on : GtkUIManager. (line 252) * activate <1>: GtkWidget. (line 946) * activate <2>: GtkAction. (line 257) * activate <3>: GtkMenuItem. (line 170) * activate: GtkCellRenderer. (line 181) * activate on : GtkAction. (line 107) * activate on : GtkButton. (line 63) * activate on : GtkEntry. (line 89) * activate on : GtkExpander. (line 85) * activate on : GtkMenuItem. (line 32) * activate on : GtkStatusIcon. (line 100) * activate-current on : GtkMenuShell. (line 49) * activate-cursor-item on : GtkIconView. (line 91) * activate-default: GtkWindow. (line 262) * activate-default on : GtkWindow. (line 121) * activate-focus: GtkWindow. (line 249) * activate-focus on : GtkWindow. (line 119) * activate-item: GtkMenuShell. (line 166) * activate-item on : GtkMenuItem. (line 36) * activate-key: GtkWindow. (line 557) * add <1>: GtkContainer. (line 133) * add: GtkTextTagTable. (line 43) * add on : GtkContainer. (line 123) * add-accel-group: GtkWindow. (line 221) * add-accelerator: GtkWidget. (line 793) * add-action: GtkActionGroup. (line 231) * add-action-widget <1>: GtkAssistant. (line 394) * add-action-widget: GtkDialog. (line 212) * add-actions: GtkActionGroup. (line 266) * add-age: GtkRecentFilter. (line 160) * add-application: GtkRecentFilter. (line 128) * add-attribute <1>: GtkCellLayout. (line 116) * add-attribute: GtkTreeViewColumn. (line 145) * add-button: GtkDialog. (line 189) * add-child-at-anchor: GtkTextView. (line 532) * add-child-in-window: GtkTextView. (line 596) * add-events: GtkWidget. (line 1149) * add-filter <1>: GtkRecentChooser. (line 447) * add-filter: GtkFileChooser. (line 1017) * add-group: GtkRecentFilter. (line 144) * add-id: GtkSocket. (line 95) * add-item: GtkRecentManager. (line 163) * add-mime-type <1>: GtkRecentFilter. (line 96) * add-mime-type: GtkFileFilter. (line 92) * add-mnemonic: GtkWindow. (line 505) * add-mnemonic-label: GtkWidget. (line 2659) * add-pattern <1>: GtkRecentFilter. (line 112) * add-pattern: GtkFileFilter. (line 107) * add-pixbuf-formats: GtkFileFilter. (line 122) * add-radio-actions: GtkActionGroup. (line 317) * add-table: GtkIMContextSimple. (line 32) * add-toggle-actions: GtkActionGroup. (line 290) * add-ui: GtkUIManager. (line 519) * add-ui-from-file: GtkUIManager. (line 477) * add-ui-from-string: GtkUIManager. (line 449) * add-widget: GtkSizeGroup. (line 144) * add-widget on : GtkUIManager. (line 244) * add-window: GtkWindowGroup. (line 33) * add1: GtkPaned. (line 91) * add2: GtkPaned. (line 104) * adjust-bounds on : GtkRange. (line 53) * append <1>: GtkMenuShell. (line 69) * append <2>: GtkTreeStore. (line 196) * append: GtkListStore. (line 256) * append-column: GtkTreeView. (line 381) * append-page <1>: GtkNotebook. (line 130) * append-page: GtkAssistant. (line 163) * append-page-menu: GtkNotebook. (line 152) * append-text: GtkComboBox. (line 313) * apply on : GtkAssistant. (line 49) * apply-tag: GtkTextBuffer. (line 825) * apply-tag on : GtkTextBuffer. (line 133) * apply-tag-by-name: GtkTextBuffer. (line 869) * attach <1>: GtkTable. (line 106) * attach: GtkMenu. (line 128) * attach-defaults: GtkTable. (line 154) * backspace: GtkTextBuffer. (line 420) * backspace on : GtkEntry. (line 96) * backspace on : GtkTextView. (line 88) * backward-display-line: GtkTextView. (line 458) * begin-move-drag: GtkWindow. (line 942) * begin-print on : GtkPrintOperation. (line 143) * begin-resize-drag: GtkWindow. (line 910) * begin-user-action: GtkTextBuffer. (line 1148) * begin-user-action on : GtkTextBuffer. (line 157) * block-activate-from: GtkAction. (line 405) * button-press-event on : GtkWidget. (line 179) * button-release-event on : GtkWidget. (line 182) * can-activate-accel: GtkWidget. (line 901) * can-activate-accel on : GtkWidget. (line 513) * cancel <1>: GtkPrintOperation. (line 508) * cancel: GtkMenuShell. (line 182) * cancel on : GtkAssistant. (line 33) * cancel on : GtkMenuShell. (line 54) * cancel-position on : GtkPaned. (line 88) * change-current-page on : GtkNotebook. (line 83) * change-value on : GtkRange. (line 60) * change-value on : GtkSpinButton. (line 117) * changed: GtkAdjustment. (line 147) * changed on : GtkAdjustment. (line 56) * changed on : GtkComboBox. (line 79) * changed on : GtkEditable. (line 56) * changed on : GtkRadioAction. (line 37) * changed on : GtkRecentManager. (line 74) * changed on : GtkTextBuffer. (line 47) * changed on : GtkTreeSelection. (line 46) * check-resize: GtkContainer. (line 205) * check-resize on : GtkContainer. (line 127) * child-attached on : GtkHandleBox. (line 59) * child-detached on : GtkHandleBox. (line 64) * child-focus: GtkWidget. (line 2261) * child-get-property: GtkContainer. (line 333) * child-notify: GtkWidget. (line 2303) * child-notify on : GtkWidget. (line 157) * child-set-property: GtkContainer. (line 353) * child-type: GtkContainer. (line 315) * clamp-page: GtkAdjustment. (line 128) * class-path: GtkWidget. (line 1645) * clear <1>: GtkTreeStore. (line 254) * clear <2>: GtkListStore. (line 271) * clear <3>: GtkCellLayout. (line 102) * clear <4>: GtkTreeViewColumn. (line 133) * clear: GtkImage. (line 480) * clear-attributes: GtkCellLayout. (line 142) * clear-cache <1>: GtkTreeModelFilter. (line 97) * clear-cache: GtkTreeModelSort. (line 147) * clear-marks: GtkCalendar. (line 155) * clicked <1>: GtkTreeViewColumn. (line 352) * clicked: GtkButton. (line 175) * clicked on : GtkButton. (line 82) * clicked on : GtkToolButton. (line 61) * clicked on : GtkTreeViewColumn. (line 80) * client-event on : GtkWidget. (line 470) * close on : GtkAssistant. (line 25) * close on : GtkDialog. (line 115) * collapse-all: GtkTreeView. (line 679) * collapse-row: GtkTreeView. (line 725) * color-changed on : GtkColorSelection. (line 41) * color-set on : GtkColorButton. (line 40) * columns-autosize: GtkTreeView. (line 306) * columns-changed on : GtkTreeView. (line 138) * commit on : GtkIMContext. (line 27) * complete <1>: GtkFileSelection. (line 158) * complete: GtkEntryCompletion. (line 174) * composited-changed on : GtkWidget. (line 107) * configure: GtkSpinButton. (line 133) * configure-event on : GtkWidget. (line 227) * confirm-overwrite on : GtkFileChooser. (line 435) * connect-accelerator: GtkAction. (line 375) * connect-proxy: GtkAction. (line 322) * connect-proxy on : GtkActionGroup. (line 52) * connect-proxy on : GtkUIManager. (line 205) * construct: GtkPlug. (line 40) * construct-for-display: GtkPlug. (line 55) * copy-clipboard <1>: GtkTextBuffer. (line 1118) * copy-clipboard: GtkEditable. (line 196) * copy-clipboard on : GtkEntry. (line 85) * copy-clipboard on : GtkLabel. (line 175) * copy-clipboard on : GtkTextView. (line 79) * create-child-anchor: GtkTextBuffer. (line 581) * create-custom-widget on : GtkPrintOperation. (line 255) * create-drag-icon: GtkIconView. (line 777) * create-icon: GtkAction. (line 273) * create-mark: GtkTextBuffer. (line 602) * create-menu-item: GtkAction. (line 292) * create-menu-proxy on : GtkToolItem. (line 42) * create-pango-context: GtkWidget. (line 1855) * create-pango-layout: GtkWidget. (line 1894) * create-row-drag-icon: GtkTreeView. (line 886) * create-tag: Undocumented. (line 14) * create-tool-item: GtkAction. (line 307) * create-window on : GtkNotebook. (line 116) * current-folder-changed on : GtkFileChooser. (line 359) * cursor-changed on : GtkTreeView. (line 142) * cursor-on-match on : GtkEntryCompletion. (line 103) * curve-type-changed on : GtkCurve. (line 55) * custom-widget-apply on : GtkPrintOperation. (line 271) * cut-clipboard <1>: GtkTextBuffer. (line 1131) * cut-clipboard: GtkEditable. (line 186) * cut-clipboard on : GtkEntry. (line 98) * cut-clipboard on : GtkTextView. (line 90) * cycle-child-focus on : GtkPaned. (line 76) * cycle-focus on : GtkMenuShell. (line 61) * cycle-handle-focus on : GtkPaned. (line 84) * day-selected on : GtkCalendar. (line 67) * day-selected-double-click on : GtkCalendar. (line 71) * deactivate: GtkMenuShell. (line 114) * deactivate on : GtkMenuShell. (line 34) * deiconify: GtkWindow. (line 715) * delete: GtkTextBuffer. (line 369) * delete-action: GtkEntryCompletion. (line 200) * delete-event on : GtkWidget. (line 195) * delete-from-cursor on : GtkEntry. (line 94) * delete-from-cursor on : GtkTextView. (line 86) * delete-interactive: GtkTextBuffer. (line 393) * delete-mark: GtkTextBuffer. (line 675) * delete-mark-by-name: GtkTextBuffer. (line 696) * delete-range on : GtkTextBuffer. (line 95) * delete-selection <1>: GtkTextBuffer. (line 1072) * delete-selection: GtkEditable. (line 216) * delete-surrounding: GtkIMContext. (line 194) * delete-surrounding on : GtkIMContext. (line 32) * delete-text: GtkEditable. (line 143) * delete-text on : GtkEditable. (line 71) * deselect <1>: GtkItem. (line 46) * deselect <2>: GtkMenuShell. (line 156) * deselect: GtkMenuItem. (line 160) * deselect on : GtkItem. (line 28) * destroy: GtkWidget. (line 534) * destroy on : GtkObject. (line 89) * destroy-event on : GtkWidget. (line 204) * detach: GtkMenu. (line 372) * direction-changed on : GtkWidget. (line 146) * disable: GtkTooltips. (line 103) * disable-device on : GtkInputDialog. (line 45) * disconnect-accelerator: GtkAction. (line 393) * disconnect-proxy: GtkAction. (line 343) * disconnect-proxy on : GtkActionGroup. (line 69) * disconnect-proxy on : GtkUIManager. (line 217) * done on : GtkPrintOperation. (line 128) * drag-begin on : GtkWidget. (line 273) * drag-data-delete on : GtkWidget. (line 285) * drag-data-get: GtkTreeView drag-and-drop. (line 46) * drag-data-get on : GtkWidget. (line 400) * drag-data-received on : GtkWidget. (line 411) * drag-drop on : GtkWidget. (line 384) * drag-end on : GtkWidget. (line 279) * drag-failed on : GtkWidget. (line 294) * drag-leave on : GtkWidget. (line 266) * drag-motion on : GtkWidget. (line 299) * draw-page on : GtkPrintOperation. (line 184) * edited on : GtkCellRendererText. (line 172) * editing-canceled: GtkCellRenderer. (line 255) * editing-canceled on : GtkCellRenderer. (line 95) * editing-done: GtkCellEditable. (line 45) * editing-done on : GtkCellEditable. (line 24) * editing-started on : GtkCellRenderer. (line 106) * embedded on : GtkPlug. (line 36) * enable: GtkTooltips. (line 93) * enable-device on : GtkInputDialog. (line 39) * end-print on : GtkPrintOperation. (line 238) * end-user-action: GtkTextBuffer. (line 1173) * end-user-action on : GtkTextBuffer. (line 168) * ensure-style: GtkWidget. (line 1419) * ensure-update: GtkUIManager. (line 590) * enter: GtkButton. (line 184) * enter on : GtkButton. (line 86) * enter-notify-event on : GtkWidget. (line 221) * event <1>: GtkWidget. (line 924) * event: GtkTextTag. (line 303) * event on : GtkTextTag. (line 243) * event on : GtkWidget. (line 174) * event-after on : GtkWidget. (line 176) * expand-all: GtkTreeView. (line 670) * expand-collapse-cursor-row on : GtkTreeView. (line 153) * expand-row: GtkTreeView. (line 705) * expand-to-path: GtkTreeView. (line 689) * expose-event on : GtkWidget. (line 212) * file-activated on : GtkFileChooser. (line 420) * file-set on : GtkFileChooserButton. (line 62) * filter-keypress: GtkIMContext. (line 53) * filter-new: GtkTreeModelFilter. (line 50) * focus on : GtkWidget. (line 169) * focus-cell: GtkTreeViewColumn. (line 549) * focus-home-or-end on : GtkToolbar. (line 78) * focus-in: GtkIMContext. (line 70) * focus-in-event on : GtkWidget. (line 230) * focus-out: GtkIMContext. (line 81) * focus-out-event on : GtkWidget. (line 233) * focus-tab on : GtkNotebook. (line 77) * font-set on : GtkFontButton. (line 44) * force-window: GtkTooltips. (line 136) * format-value on : GtkScale. (line 45) * forward-display-line: GtkTextView. (line 433) * frame-event on : GtkWindow. (line 117) * freeze: GtkCalendar. (line 201) * freeze-child-notify: GtkWidget. (line 2319) * fullscreen: GtkWindow. (line 805) * get: GtkPrintSettings. (line 64) * get-above-child: GtkEventBox. (line 67) * get-accel-closure: GtkAction. (line 477) * get-accel-group <1>: GtkUIManager. (line 359) * get-accel-group: GtkMenu. (line 222) * get-accel-path: GtkAction. (line 443) * get-accel-widget: GtkAccelLabel. (line 106) * get-accel-width: GtkAccelLabel. (line 133) * get-accept-focus: GtkWindow. (line 1623) * get-accepts-tab: GtkTextView. (line 930) * get-accessible: GtkWidget. (line 2235) * get-action <1>: GtkWidget. (line 2698) * get-action <2>: GtkFileChooser. (line 482) * get-action <3>: GtkActionGroup. (line 198) * get-action: GtkUIManager. (line 428) * get-action-groups: GtkUIManager. (line 343) * get-activates-default: GtkEntry. (line 189) * get-active <1>: GtkToggleAction. (line 89) * get-active <2>: GtkToggleToolButton. (line 65) * get-active <3>: GtkCheckMenuItem. (line 68) * get-active <4>: GtkMenu. (line 326) * get-active <5>: GtkComboBox. (line 191) * get-active <6>: GtkCellRendererToggle. (line 95) * get-active: GtkToggleButton. (line 165) * get-active-iter: GtkComboBox. (line 227) * get-active-text: GtkComboBox. (line 386) * get-add-tearoffs <1>: GtkUIManager. (line 290) * get-add-tearoffs: GtkComboBox. (line 465) * get-adjustment <1>: GtkRange. (line 82) * get-adjustment: GtkSpinButton. (line 214) * get-alignment <1>: GtkMisc. (line 86) * get-alignment <2>: GtkTreeViewColumn. (line 497) * get-alignment <3>: GtkEntry. (line 351) * get-alignment: GtkButton. (line 379) * get-alpha: GtkColorButton. (line 129) * get-ancestor: GtkWidget. (line 1227) * get-angle: GtkLabel. (line 774) * get-animation: GtkImage. (line 154) * get-attach-widget: GtkMenu. (line 384) * get-attributes: GtkLabel. (line 553) * get-bin-window: GtkTreeView. (line 795) * get-blinking: GtkStatusIcon. (line 408) * get-bool: GtkPrintSettings. (line 116) * get-border-width: GtkContainer. (line 372) * get-bottom-margin: GtkPageSetup. (line 170) * get-bounds: GtkTextBuffer. (line 1019) * get-buffer <1>: GtkTextView. (line 154) * get-buffer: GtkTextMark. (line 117) * get-cairo-context: GtkPrintContext. (line 88) * get-cell-renderers: GtkCellView. (line 187) * get-char-count: GtkTextBuffer. (line 207) * get-chars: GtkEditable. (line 163) * get-child: GtkBin. (line 31) * get-child-requisition: GtkWidget. (line 747) * get-child-secondary: GtkButtonBox. (line 67) * get-child-visible: GtkWidget. (line 2334) * get-child1: GtkPaned. (line 156) * get-child2: GtkPaned. (line 171) * get-children: GtkContainer. (line 211) * get-clickable: GtkTreeViewColumn. (line 440) * get-clipboard: GtkWidget. (line 2383) * get-col-spacing: GtkTable. (line 309) * get-collate: GtkPrintSettings. (line 479) * get-color: GtkColorButton. (line 98) * get-colormap: GtkWidget. (line 1252) * get-column: GtkTreeView. (line 438) * get-column-spacing: GtkIconView. (line 506) * get-column-type: GtkTreeModel. (line 486) * get-columns <1>: GtkIconView. (line 381) * get-columns: GtkTreeView. (line 456) * get-completion: GtkEntry. (line 469) * get-composite-name: GtkWidget. (line 1667) * get-context-id: GtkStatusbar. (line 76) * get-copyright: GtkAboutDialog. (line 164) * get-current-folder: GtkFileChooser. (line 767) * get-current-item: GtkRecentChooser. (line 349) * get-current-page <1>: GtkNotebook. (line 442) * get-current-page: GtkAssistant. (line 76) * get-current-uri: GtkRecentChooser. (line 334) * get-current-value: GtkRadioAction. (line 123) * get-cursor-visible: GtkTextView. (line 723) * get-date: GtkCalendar. (line 182) * get-decorated: GtkWindow. (line 1212) * get-default-col-spacing: GtkTable. (line 326) * get-default-row-spacing: GtkTable. (line 263) * get-default-size: GtkWindow. (line 1252) * get-deletable: GtkWindow. (line 1226) * get-deleted <1>: GtkTextView. (line 576) * get-deleted: GtkTextMark. (line 90) * get-destroy-with-parent: GtkWindow. (line 1271) * get-digits <1>: GtkScale. (line 106) * get-digits: GtkSpinButton. (line 388) * get-direction: GtkWidget. (line 1534) * get-display: GtkWidget. (line 2408) * get-displayed-row: GtkCellView. (line 133) * get-dither: GtkPrintSettings. (line 783) * get-double: GtkPrintSettings. (line 156) * get-dpi-x: GtkPrintContext. (line 176) * get-dpi-y: GtkPrintContext. (line 192) * get-draw: GtkSeparatorToolItem. (line 67) * get-draw-as-radio: GtkToggleAction. (line 119) * get-draw-value: GtkScale. (line 119) * get-drop-index: GtkToolbar. (line 167) * get-duplex: GtkPrintSettings. (line 539) * get-editable <1>: GtkTextView. (line 694) * get-editable: GtkEditable. (line 276) * get-ellipsize <1>: GtkProgressBar. (line 232) * get-ellipsize: GtkLabel. (line 585) * get-enable-search: GtkTreeView. (line 921) * get-enable-tree-lines: GtkTreeView. (line 1140) * get-end-iter: GtkTextBuffer. (line 1001) * get-entry: GtkEntryCompletion. (line 125) * get-error: GtkPrintOperation. (line 348) * get-events: GtkWidget. (line 1296) * get-expand <1>: GtkToolItem. (line 151) * get-expand: GtkTreeViewColumn. (line 411) * get-expanded: GtkExpander. (line 139) * get-expander-column: GtkTreeView. (line 508) * get-extension-events: GtkWidget. (line 1177) * get-extra-widget: GtkFileChooser. (line 1001) * get-filename <1>: GtkFileChooser. (line 590) * get-filename: GtkFileSelection. (line 139) * get-filenames: GtkFileChooser. (line 725) * get-filter <1>: GtkRecentChooser. (line 514) * get-filter: GtkFileChooser. (line 1092) * get-finishings: GtkPrintSettings. (line 813) * get-fixed-height-mode: GtkTreeView. (line 1007) * get-fixed-size: GtkCellRenderer. (line 293) * get-flags: GtkTreeModel. (line 458) * get-focus: GtkWindow. (line 598) * get-focus-hadjustment: GtkContainer. (line 272) * get-focus-on-click <1>: GtkComboBox. (line 528) * get-focus-on-click: GtkButton. (line 341) * get-focus-on-map: GtkWindow. (line 1638) * get-focus-vadjustment: GtkContainer. (line 235) * get-font-name <1>: GtkFontSelection. (line 54) * get-font-name: GtkFontButton. (line 101) * get-fraction: GtkProgressBar. (line 206) * get-frame-dimensions: GtkWindow. (line 1286) * get-gravity: GtkWindow. (line 357) * get-grid-lines: GtkTreeView. (line 1171) * get-group <1>: GtkRadioAction. (line 77) * get-group <2>: GtkRadioToolButton. (line 55) * get-group <3>: GtkRadioMenuItem. (line 109) * get-group <4>: GtkRadioButton. (line 184) * get-group: GtkWindow. (line 1653) * get-group-id: GtkNotebook. (line 853) * get-hadjustment <1>: GtkViewport. (line 53) * get-hadjustment <2>: GtkScrolledWindow. (line 119) * get-hadjustment <3>: GtkLayout. (line 140) * get-hadjustment: GtkTreeView. (line 225) * get-handle-position: GtkHandleBox. (line 130) * get-has-frame <1>: GtkEntry. (line 202) * get-has-frame: GtkWindow. (line 1320) * get-has-palette: GtkColorSelection. (line 69) * get-has-resize-grip: GtkStatusbar. (line 159) * get-has-selection: GtkTextBuffer. (line 766) * get-has-separator: GtkDialog. (line 233) * get-has-window: GtkFixed. (line 104) * get-headers-clickable: GtkTreeView. (line 317) * get-headers-visible: GtkTreeView. (line 281) * get-height: GtkPrintContext. (line 161) * get-homogeneous <1>: GtkBox. (line 185) * get-homogeneous <2>: GtkTable. (line 278) * get-homogeneous: GtkToolItem. (line 116) * get-hover-expand: GtkTreeView. (line 1074) * get-hover-selection: GtkTreeView. (line 1041) * get-hscrollbar: GtkScrolledWindow. (line 149) * get-icon: GtkWindow. (line 1335) * get-icon-list: GtkWindow. (line 1349) * get-icon-name <1>: GtkToolButton. (line 236) * get-icon-name <2>: GtkStatusIcon. (line 307) * get-icon-name: GtkWindow. (line 1364) * get-icon-size <1>: GtkToolItem. (line 298) * get-icon-size: GtkToolbar. (line 307) * get-icon-widget: GtkToolButton. (line 269) * get-id <1>: GtkSocket. (line 121) * get-id: GtkPlug. (line 109) * get-ignore-hidden: GtkSizeGroup. (line 129) * get-image <1>: GtkImageMenuItem. (line 48) * get-image: GtkButton. (line 415) * get-image-position: GtkButton. (line 448) * get-inconsistent: GtkToggleButton. (line 195) * get-increments: GtkSpinButton. (line 402) * get-indent: GtkTextView. (line 864) * get-inner-border: GtkEntry. (line 215) * get-insert: GtkTextBuffer. (line 727) * get-int: GtkPrintSettings. (line 237) * get-inverted: GtkRange. (line 139) * get-invisible-char: GtkEntry. (line 317) * get-is-important: GtkToolItem. (line 282) * get-item-index: GtkToolbar. (line 113) * get-item-width: GtkIconView. (line 413) * get-items <1>: GtkRecentChooser. (line 426) * get-items: GtkRecentManager. (line 324) * get-iter: GtkTreeModel. (line 502) * get-iter-at-line: GtkTextBuffer. (line 953) * get-iter-at-location: GtkTextView. (line 370) * get-iter-at-mark: GtkTextBuffer. (line 970) * get-iter-at-offset: GtkTextBuffer. (line 932) * get-iter-first: GtkTreeModel. (line 521) * get-iter-location: GtkTextView. (line 305) * get-justification: GtkTextView. (line 780) * get-justify: GtkLabel. (line 571) * get-label <1>: GtkFrame. (line 119) * get-label <2>: GtkExpander. (line 205) * get-label <3>: GtkToolButton. (line 124) * get-label <4>: GtkButton. (line 232) * get-label: GtkLabel. (line 633) * get-label-align: GtkFrame. (line 137) * get-label-widget <1>: GtkFrame. (line 154) * get-label-widget <2>: GtkExpander. (line 305) * get-label-widget: GtkToolButton. (line 304) * get-layout <1>: GtkScale. (line 146) * get-layout <2>: GtkButtonBox. (line 52) * get-layout <3>: GtkEntry. (line 366) * get-layout: GtkLabel. (line 649) * get-layout-offsets <1>: GtkScale. (line 164) * get-layout-offsets <2>: GtkEntry. (line 388) * get-layout-offsets: GtkLabel. (line 384) * get-left-gravity: GtkTextMark. (line 131) * get-left-margin <1>: GtkPageSetup. (line 207) * get-left-margin: GtkTextView. (line 808) * get-length: GtkPrintSettings. (line 193) * get-license: GtkAboutDialog. (line 196) * get-limit <1>: GtkRecentChooser. (line 194) * get-limit: GtkRecentManager. (line 291) * get-line-at-y: GtkTextView. (line 324) * get-line-count: GtkTextBuffer. (line 193) * get-line-wrap: GtkLabel. (line 665) * get-line-wrap-mode: GtkLabel. (line 679) * get-line-yrange: GtkTextView. (line 347) * get-local-only <1>: GtkRecentChooser. (line 162) * get-local-only: GtkFileChooser. (line 519) * get-logo: GtkAboutDialog. (line 321) * get-logo-icon-name: GtkAboutDialog. (line 355) * get-margin: GtkIconView. (line 537) * get-mark: GtkTextBuffer. (line 710) * get-markup-column: GtkIconView. (line 202) * get-max-length: GtkEntry. (line 422) * get-max-width: GtkTreeViewColumn. (line 338) * get-max-width-chars: GtkLabel. (line 617) * get-media-type: GtkPrintSettings. (line 749) * get-menu: GtkMenuToolButton. (line 87) * get-menu-label: GtkNotebook. (line 457) * get-menu-label-text: GtkNotebook. (line 687) * get-metric: GtkRuler. (line 92) * get-min-width: GtkTreeViewColumn. (line 308) * get-mnemonic-keyval: GtkLabel. (line 408) * get-mnemonic-modifier: GtkWindow. (line 1380) * get-mnemonic-widget: GtkLabel. (line 695) * get-modal: GtkWindow. (line 1394) * get-mode <1>: GtkSizeGroup. (line 98) * get-mode <2>: GtkTreeSelection. (line 70) * get-mode: GtkToggleButton. (line 140) * get-model <1>: GtkComboBox. (line 261) * get-model <2>: GtkTreeModelFilter. (line 69) * get-model <3>: GtkTreeModelSort. (line 134) * get-model <4>: GtkIconView. (line 136) * get-model <5>: GtkTreeView. (line 182) * get-model: GtkEntryCompletion. (line 157) * get-modified: GtkTextBuffer. (line 1037) * get-modifier-style: GtkWidget. (line 1712) * get-n-columns: GtkTreeModel. (line 473) * get-n-copies: GtkPrintSettings. (line 599) * get-n-items: GtkToolbar. (line 132) * get-n-pages <1>: GtkNotebook. (line 491) * get-n-pages: GtkAssistant. (line 111) * get-name <1>: GtkRecentFilter. (line 62) * get-name <2>: GtkWidget. (line 1036) * get-name <3>: GtkFileFilter. (line 75) * get-name <4>: GtkAction. (line 142) * get-name <5>: GtkActionGroup. (line 117) * get-name <6>: GtkTextMark. (line 104) * get-name: GtkAboutDialog. (line 101) * get-needed <1>: GtkRecentFilter. (line 176) * get-needed: GtkFileFilter. (line 135) * get-no-show-all: GtkWidget. (line 2618) * get-nth-item: GtkToolbar. (line 147) * get-nth-page <1>: GtkNotebook. (line 474) * get-nth-page: GtkAssistant. (line 126) * get-number-up: GtkPrintSettings. (line 629) * get-numeric: GtkSpinButton. (line 419) * get-orientation <1>: GtkPageSetup. (line 72) * get-orientation <2>: GtkPrintSettings. (line 306) * get-orientation <3>: GtkToolItem. (line 316) * get-orientation <4>: GtkToolbar. (line 279) * get-orientation: GtkIconView. (line 348) * get-output-bin: GtkPrintSettings. (line 843) * get-overwrite: GtkTextView. (line 751) * get-pack-direction: GtkMenuBar. (line 59) * get-padding <1>: GtkMisc. (line 103) * get-padding: GtkAlignment. (line 128) * get-page-complete: GtkAssistant. (line 376) * get-page-header-image: GtkAssistant. (line 298) * get-page-height: GtkPageSetup. (line 342) * get-page-set: GtkPrintSettings. (line 719) * get-page-setup: GtkPrintContext. (line 130) * get-page-side-image: GtkAssistant. (line 338) * get-page-title: GtkAssistant. (line 259) * get-page-type: GtkAssistant. (line 222) * get-page-width: GtkPageSetup. (line 321) * get-pango-context: GtkWidget. (line 1870) * get-pango-fontmap: GtkPrintContext. (line 208) * get-paper-height <1>: GtkPageSetup. (line 300) * get-paper-height: GtkPrintSettings. (line 411) * get-paper-size <1>: GtkPageSetup. (line 102) * get-paper-size: GtkPrintSettings. (line 338) * get-paper-width <1>: GtkPageSetup. (line 279) * get-paper-width: GtkPrintSettings. (line 372) * get-parent: GtkWidget. (line 2352) * get-parent-window: GtkWidget. (line 1114) * get-path: GtkTreeModel. (line 539) * get-path-at-pos: GtkIconView. (line 248) * get-pixbuf <1>: GtkStatusIcon. (line 268) * get-pixbuf: GtkImage. (line 138) * get-pixbuf-column: GtkIconView. (line 233) * get-pixel-size: GtkImage. (line 517) * get-placement: GtkScrolledWindow. (line 291) * get-pointer: GtkWidget. (line 1311) * get-popup-accessible: GtkComboBox. (line 432) * get-position <1>: GtkPaned. (line 200) * get-position <2>: GtkEditable. (line 245) * get-position: GtkWindow. (line 1408) * get-preview-text: GtkFontSelection. (line 97) * get-preview-uri: GtkFileChooser. (line 968) * get-preview-widget: GtkFileChooser. (line 952) * get-printer: GtkPrintSettings. (line 273) * get-priority: GtkTextTag. (line 266) * get-proxies: GtkAction. (line 359) * get-proxy-menu-item: GtkToolItem. (line 389) * get-pulse-step: GtkProgressBar. (line 219) * get-quality: GtkPrintSettings. (line 569) * get-radio: GtkCellRendererToggle. (line 62) * get-range <1>: GtkRuler. (line 107) * get-range: GtkSpinButton. (line 433) * get-relief: GtkButton. (line 219) * get-relief-style <1>: GtkToolItem. (line 368) * get-relief-style: GtkToolbar. (line 335) * get-reorderable <1>: GtkIconView. (line 743) * get-reorderable: GtkTreeView. (line 781) * get-resizable <1>: GtkTreeViewColumn. (line 240) * get-resizable: GtkWindow. (line 208) * get-resize-mode: GtkContainer. (line 175) * get-resolution: GtkPrintSettings. (line 659) * get-response-for-widget: GtkDialog. (line 293) * get-reverse: GtkPrintSettings. (line 509) * get-right-justified: GtkMenuItem. (line 206) * get-right-margin <1>: GtkPageSetup. (line 243) * get-right-margin: GtkTextView. (line 836) * get-role: GtkWindow. (line 1462) * get-root-window: GtkWidget. (line 2429) * get-row-spacing <1>: GtkTable. (line 292) * get-row-spacing: GtkIconView. (line 475) * get-row-span-column: GtkComboBox. (line 159) * get-rubber-banding: GtkTreeView. (line 1106) * get-rules-hint: GtkTreeView. (line 368) * get-scale: GtkPrintSettings. (line 689) * get-screen <1>: GtkWidget. (line 2453) * get-screen <2>: GtkWindow. (line 439) * get-screen: GtkInvisible. (line 72) * get-scrollable: GtkNotebook. (line 706) * get-search-column: GtkTreeView. (line 935) * get-search-entry: GtkTreeView. (line 970) * get-selectable: GtkLabel. (line 423) * get-selected: GtkTreeSelection. (line 98) * get-selected-items: GtkIconView. (line 602) * get-selection: GtkTreeView. (line 212) * get-selection-bound: GtkTextBuffer. (line 743) * get-selection-bounds <1>: GtkEditable. (line 103) * get-selection-bounds: GtkLabel. (line 710) * get-selection-mode: GtkIconView. (line 317) * get-sensitive <1>: GtkAction. (line 174) * get-sensitive: GtkActionGroup. (line 132) * get-settings: GtkWidget. (line 2365) * get-shadow-type <1>: GtkViewport. (line 118) * get-shadow-type <2>: GtkHandleBox. (line 144) * get-shadow-type <3>: GtkScrolledWindow. (line 307) * get-shadow-type: GtkFrame. (line 168) * get-show-arrow: GtkToolbar. (line 263) * get-show-border: GtkNotebook. (line 720) * get-show-hidden: GtkFileChooser. (line 551) * get-show-icons: GtkRecentChooser. (line 128) * get-show-numbers: GtkRecentChooser. (line 260) * get-show-private: GtkRecentChooser. (line 95) * get-show-size: GtkFontButton. (line 164) * get-show-style: GtkFontButton. (line 132) * get-show-tabs: GtkNotebook. (line 734) * get-show-tips: GtkRecentChooser. (line 225) * get-single-line-mode: GtkLabel. (line 759) * get-size <1>: GtkLayout. (line 122) * get-size <2>: GtkTextTagTable. (line 91) * get-size <3>: GtkStatusIcon. (line 326) * get-size: GtkWindow. (line 1477) * get-size-of-row: GtkCellView. (line 150) * get-size-request: GtkWidget. (line 2492) * get-sizing: GtkTreeViewColumn. (line 268) * get-skip-pager-hint: GtkWindow. (line 1593) * get-skip-taskbar-hint: GtkWindow. (line 1578) * get-slice: GtkTextBuffer. (line 500) * get-snap-edge: GtkHandleBox. (line 158) * get-snap-to-ticks: GtkSpinButton. (line 450) * get-sort-order: GtkTreeViewColumn. (line 536) * get-sort-type: GtkRecentChooser. (line 298) * get-spacing <1>: GtkBox. (line 213) * get-spacing <2>: GtkExpander. (line 173) * get-spacing <3>: GtkIconView. (line 444) * get-spacing: GtkTreeViewColumn. (line 183) * get-start-iter: GtkTextBuffer. (line 986) * get-status: GtkPrintOperation. (line 522) * get-stock: GtkStatusIcon. (line 287) * get-stock-id: GtkToolButton. (line 201) * get-storage-type <1>: GtkStatusIcon. (line 250) * get-storage-type: GtkImage. (line 171) * get-string-from-iter: GtkTreeModel. (line 703) * get-style <1>: GtkWidget. (line 1432) * get-style: GtkToolbar. (line 293) * get-submenu: GtkMenuItem. (line 221) * get-surrounding: GtkIMContext. (line 158) * get-tab-detachable: GtkNotebook. (line 798) * get-tab-label: GtkNotebook. (line 506) * get-tab-label-text: GtkNotebook. (line 748) * get-tab-pos: GtkNotebook. (line 766) * get-tab-reorderable: GtkNotebook. (line 780) * get-tabs: GtkTextView. (line 893) * get-tag-table: GtkTextBuffer. (line 223) * get-take-focus: GtkMenuShell. (line 236) * get-tearoff-state: GtkMenu. (line 280) * get-text <1>: GtkTextBuffer. (line 471) * get-text <2>: GtkEntry. (line 118) * get-text <3>: GtkProgressBar. (line 189) * get-text: GtkLabel. (line 435) * get-text-column <1>: GtkComboBoxEntry. (line 119) * get-text-column: GtkIconView. (line 169) * get-title <1>: GtkFontButton. (line 256) * get-title <2>: GtkFileChooserButton. (line 84) * get-title <3>: GtkColorButton. (line 190) * get-title <4>: GtkMenu. (line 293) * get-title <5>: GtkComboBox. (line 493) * get-title <6>: GtkTreeViewColumn. (line 377) * get-title: GtkWindow. (line 1535) * get-toolbar-style: GtkToolItem. (line 334) * get-tooltips: GtkToolbar. (line 321) * get-top-margin: GtkPageSetup. (line 133) * get-toplevel: GtkWidget. (line 1191) * get-toplevels: GtkUIManager. (line 407) * get-transient-for: GtkWindow. (line 1550) * get-tree-view: GtkTreeSelection. (line 84) * get-type-hint: GtkWindow. (line 1565) * get-ui: GtkUIManager. (line 575) * get-update-policy: GtkRange. (line 168) * get-urgency-hint: GtkWindow. (line 1608) * get-uri <1>: GtkFileChooser. (line 796) * get-uri: GtkLinkButton. (line 75) * get-uris: GtkFileChooser. (line 906) * get-use-alpha: GtkColorButton. (line 160) * get-use-color: GtkPrintSettings. (line 449) * get-use-drag-window: GtkToolItem. (line 209) * get-use-font: GtkFontButton. (line 195) * get-use-markup <1>: GtkExpander. (line 273) * get-use-markup: GtkLabel. (line 730) * get-use-size: GtkFontButton. (line 226) * get-use-stock: GtkButton. (line 266) * get-use-underline <1>: GtkExpander. (line 240) * get-use-underline <2>: GtkToolButton. (line 165) * get-use-underline <3>: GtkButton. (line 294) * get-use-underline: GtkLabel. (line 744) * get-vadjustment <1>: GtkViewport. (line 66) * get-vadjustment <2>: GtkScrolledWindow. (line 134) * get-vadjustment <3>: GtkLayout. (line 159) * get-vadjustment: GtkTreeView. (line 253) * get-value <1>: GtkRange. (line 181) * get-value <2>: GtkAdjustment. (line 96) * get-value <3>: GtkTreeModel. (line 556) * get-value: GtkSpinButton. (line 464) * get-value-as-int: GtkSpinButton. (line 276) * get-value-pos: GtkScale. (line 133) * get-version: GtkAboutDialog. (line 133) * get-visibility: GtkEntry. (line 437) * get-visible <1>: GtkAction. (line 224) * get-visible <2>: GtkActionGroup. (line 165) * get-visible <3>: GtkTreeViewColumn. (line 209) * get-visible <4>: GtkTextMark. (line 76) * get-visible: GtkStatusIcon. (line 374) * get-visible-rect: GtkTextView. (line 290) * get-visible-vertical: GtkToolItem. (line 245) * get-visible-window: GtkEventBox. (line 129) * get-visual: GtkWidget. (line 1283) * get-vscrollbar: GtkScrolledWindow. (line 165) * get-website: GtkAboutDialog. (line 258) * get-website-label: GtkAboutDialog. (line 289) * get-widget <1>: GtkUIManager. (line 374) * get-widget: GtkTreeViewColumn. (line 468) * get-widgets: GtkTextView. (line 562) * get-width <1>: GtkPrintContext. (line 146) * get-width: GtkTreeViewColumn. (line 281) * get-width-chars <1>: GtkEntry. (line 231) * get-width-chars: GtkLabel. (line 601) * get-window: GtkTextView. (line 393) * get-window-type: GtkTextView. (line 414) * get-wrap: GtkSpinButton. (line 477) * get-wrap-license: GtkAboutDialog. (line 228) * get-wrap-mode: GtkTextView. (line 666) * get-wrap-width: GtkComboBox. (line 125) * got-page-size on : GtkPrintOperation. (line 316) * grab-broken-event on : GtkWidget. (line 479) * grab-default: GtkWidget. (line 1002) * grab-focus: GtkWidget. (line 990) * grab-focus on : GtkWidget. (line 166) * grab-notify on : GtkWidget. (line 148) * group-changed on : GtkRadioButton. (line 89) * group-changed on : GtkRadioMenuItem. (line 48) * gtk-about-dialog-get-copyright: GtkAboutDialog. (line 163) * gtk-about-dialog-get-license: GtkAboutDialog. (line 195) * gtk-about-dialog-get-logo: GtkAboutDialog. (line 320) * gtk-about-dialog-get-logo-icon-name: GtkAboutDialog. (line 354) * gtk-about-dialog-get-name: GtkAboutDialog. (line 100) * gtk-about-dialog-get-version: GtkAboutDialog. (line 132) * gtk-about-dialog-get-website: GtkAboutDialog. (line 257) * gtk-about-dialog-get-website-label: GtkAboutDialog. (line 288) * gtk-about-dialog-get-wrap-license: GtkAboutDialog. (line 227) * gtk-about-dialog-new: GtkAboutDialog. (line 89) * gtk-about-dialog-set-copyright: GtkAboutDialog. (line 179) * gtk-about-dialog-set-license: GtkAboutDialog. (line 211) * gtk-about-dialog-set-logo: GtkAboutDialog. (line 337) * gtk-about-dialog-set-logo-icon-name: GtkAboutDialog. (line 371) * gtk-about-dialog-set-name: GtkAboutDialog. (line 116) * gtk-about-dialog-set-version: GtkAboutDialog. (line 148) * gtk-about-dialog-set-website: GtkAboutDialog. (line 273) * gtk-about-dialog-set-website-label: GtkAboutDialog. (line 304) * gtk-about-dialog-set-wrap-license: GtkAboutDialog. (line 242) * gtk-accel-groups-from-object: Undocumented. (line 82) * gtk-accel-label-get-accel-widget: GtkAccelLabel. (line 105) * gtk-accel-label-get-accel-width: GtkAccelLabel. (line 132) * gtk-accel-label-new: GtkAccelLabel. (line 78) * gtk-accel-label-refetch: GtkAccelLabel. (line 147) * gtk-accel-label-set-accel-closure: GtkAccelLabel. (line 90) * gtk-accel-label-set-accel-widget: GtkAccelLabel. (line 119) * gtk-action-activate: GtkAction. (line 256) * gtk-action-block-activate-from: GtkAction. (line 404) * gtk-action-connect-accelerator: GtkAction. (line 374) * gtk-action-connect-proxy: GtkAction. (line 321) * gtk-action-create-icon: GtkAction. (line 272) * gtk-action-create-menu-item: GtkAction. (line 291) * gtk-action-create-tool-item: GtkAction. (line 306) * gtk-action-disconnect-accelerator: GtkAction. (line 392) * gtk-action-disconnect-proxy: GtkAction. (line 342) * gtk-action-get-accel-closure: GtkAction. (line 476) * gtk-action-get-accel-path: GtkAction. (line 442) * gtk-action-get-name: GtkAction. (line 141) * gtk-action-get-proxies: GtkAction. (line 358) * gtk-action-get-sensitive: GtkAction. (line 173) * gtk-action-get-visible: GtkAction. (line 223) * gtk-action-group-add-action: GtkActionGroup. (line 230) * gtk-action-group-add-actions: GtkActionGroup. (line 265) * gtk-action-group-add-radio-actions: GtkActionGroup. (line 316) * gtk-action-group-add-toggle-actions: GtkActionGroup. (line 289) * gtk-action-group-get-action: GtkActionGroup. (line 197) * gtk-action-group-get-name: GtkActionGroup. (line 116) * gtk-action-group-get-sensitive: GtkActionGroup. (line 131) * gtk-action-group-get-visible: GtkActionGroup. (line 164) * gtk-action-group-list-actions: GtkActionGroup. (line 215) * gtk-action-group-new: GtkActionGroup. (line 101) * gtk-action-group-remove-action: GtkActionGroup. (line 250) * gtk-action-group-set-sensitive: GtkActionGroup. (line 149) * gtk-action-group-set-visible: GtkActionGroup. (line 182) * gtk-action-group-translate-string: GtkActionGroup. (line 350) * gtk-action-is-sensitive: GtkAction. (line 157) * gtk-action-is-visible: GtkAction. (line 207) * gtk-action-new: GtkAction. (line 115) * gtk-action-set-accel-group: GtkAction. (line 492) * gtk-action-set-accel-path: GtkAction. (line 459) * gtk-action-set-sensitive: GtkAction. (line 190) * gtk-action-set-visible: GtkAction. (line 240) * gtk-action-unblock-activate-from: GtkAction. (line 423) * gtk-adjustment-changed: GtkAdjustment. (line 146) * gtk-adjustment-clamp-page: GtkAdjustment. (line 127) * gtk-adjustment-get-value: GtkAdjustment. (line 95) * gtk-adjustment-new: GtkAdjustment. (line 68) * gtk-adjustment-set-value: GtkAdjustment. (line 109) * gtk-adjustment-value-changed: GtkAdjustment. (line 158) * gtk-alignment-get-padding: GtkAlignment. (line 127) * gtk-alignment-new: GtkAlignment. (line 66) * gtk-alignment-set: GtkAlignment. (line 96) * gtk-alignment-set-padding: GtkAlignment. (line 157) * gtk-alternative-dialog-button-order: GtkDialog. (line 311) * gtk-arrow-new: GtkArrow. (line 43) * gtk-arrow-set: GtkArrow. (line 59) * gtk-aspect-frame-new: GtkAspectFrame. (line 43) * gtk-aspect-frame-set: GtkAspectFrame. (line 73) * gtk-assistant-add-action-widget: GtkAssistant. (line 393) * gtk-assistant-append-page: GtkAssistant. (line 162) * gtk-assistant-get-current-page: GtkAssistant. (line 75) * gtk-assistant-get-n-pages: GtkAssistant. (line 110) * gtk-assistant-get-nth-page: GtkAssistant. (line 125) * gtk-assistant-get-page-complete: GtkAssistant. (line 375) * gtk-assistant-get-page-header-image: GtkAssistant. (line 297) * gtk-assistant-get-page-side-image: GtkAssistant. (line 337) * gtk-assistant-get-page-title: GtkAssistant. (line 258) * gtk-assistant-get-page-type: GtkAssistant. (line 221) * gtk-assistant-insert-page: GtkAssistant. (line 180) * gtk-assistant-new: GtkAssistant. (line 64) * gtk-assistant-prepend-page: GtkAssistant. (line 144) * gtk-assistant-remove-action-widget: GtkAssistant. (line 408) * gtk-assistant-set-current-page: GtkAssistant. (line 91) * gtk-assistant-set-page-complete: GtkAssistant. (line 356) * gtk-assistant-set-page-header-image: GtkAssistant. (line 277) * gtk-assistant-set-page-side-image: GtkAssistant. (line 317) * gtk-assistant-set-page-title: GtkAssistant. (line 239) * gtk-assistant-set-page-type: GtkAssistant. (line 202) * gtk-assistant-update-buttons-state: GtkAssistant. (line 423) * gtk-bin-get-child: GtkBin. (line 30) * gtk-box-get-homogeneous: GtkBox. (line 184) * gtk-box-get-spacing: GtkBox. (line 212) * gtk-box-pack-end: GtkBox. (line 111) * gtk-box-pack-end-defaults: GtkBox. (line 165) * gtk-box-pack-start: GtkBox. (line 75) * gtk-box-pack-start-defaults: GtkBox. (line 146) * gtk-box-reorder-child: GtkBox. (line 237) * gtk-box-set-child-packing: GtkBox. (line 263) * gtk-box-set-homogeneous: GtkBox. (line 198) * gtk-box-set-spacing: GtkBox. (line 224) * gtk-button-box-get-child-secondary: GtkButtonBox. (line 66) * gtk-button-box-get-layout: GtkButtonBox. (line 51) * gtk-button-box-set-child-secondary: GtkButtonBox. (line 99) * gtk-button-box-set-layout: GtkButtonBox. (line 85) * gtk-button-clicked: GtkButton. (line 174) * gtk-button-enter: GtkButton. (line 183) * gtk-button-get-alignment: GtkButton. (line 378) * gtk-button-get-focus-on-click: GtkButton. (line 340) * gtk-button-get-image: GtkButton. (line 414) * gtk-button-get-image-position: GtkButton. (line 447) * gtk-button-get-label: GtkButton. (line 231) * gtk-button-get-relief: GtkButton. (line 218) * gtk-button-get-use-stock: GtkButton. (line 265) * gtk-button-get-use-underline: GtkButton. (line 293) * gtk-button-leave: GtkButton. (line 192) * gtk-button-new: GtkButton. (line 98) * gtk-button-new-from-stock: GtkButton. (line 139) * gtk-button-new-with-label: GtkButton. (line 108) * gtk-button-new-with-mnemonic: GtkButton. (line 121) * gtk-button-pressed: GtkButton. (line 155) * gtk-button-released: GtkButton. (line 164) * gtk-button-set-alignment: GtkButton. (line 357) * gtk-button-set-focus-on-click: GtkButton. (line 322) * gtk-button-set-image: GtkButton. (line 396) * gtk-button-set-image-position: GtkButton. (line 431) * gtk-button-set-label: GtkButton. (line 248) * gtk-button-set-relief: GtkButton. (line 202) * gtk-button-set-use-stock: GtkButton. (line 279) * gtk-button-set-use-underline: GtkButton. (line 308) * gtk-calendar-clear-marks: GtkCalendar. (line 154) * gtk-calendar-freeze: GtkCalendar. (line 200) * gtk-calendar-get-date: GtkCalendar. (line 181) * gtk-calendar-mark-day: GtkCalendar. (line 123) * gtk-calendar-new: GtkCalendar. (line 81) * gtk-calendar-select-day: GtkCalendar. (line 109) * gtk-calendar-select-month: GtkCalendar. (line 90) * gtk-calendar-set-display-options: GtkCalendar. (line 164) * gtk-calendar-thaw: GtkCalendar. (line 213) * gtk-calendar-unmark-day: GtkCalendar. (line 139) * gtk-cell-editable-editing-done: GtkCellEditable. (line 44) * gtk-cell-editable-remove-widget: GtkCellEditable. (line 55) * gtk-cell-editable-start-editing: GtkCellEditable. (line 29) * gtk-cell-layout-add-attribute: GtkCellLayout. (line 115) * gtk-cell-layout-clear: GtkCellLayout. (line 101) * gtk-cell-layout-clear-attributes: GtkCellLayout. (line 141) * gtk-cell-layout-pack-end: GtkCellLayout. (line 60) * gtk-cell-layout-pack-start: GtkCellLayout. (line 36) * gtk-cell-layout-reorder: GtkCellLayout. (line 83) * gtk-cell-renderer-accel-new: GtkCellRendererAccel. (line 56) * gtk-cell-renderer-activate: GtkCellRenderer. (line 180) * gtk-cell-renderer-combo-new: GtkCellRendererCombo. (line 48) * gtk-cell-renderer-editing-canceled: GtkCellRenderer. (line 254) * gtk-cell-renderer-get-fixed-size: GtkCellRenderer. (line 292) * gtk-cell-renderer-pixbuf-new: GtkCellRendererPixbuf. (line 60) * gtk-cell-renderer-progress-new: GtkCellRendererProgress. (line 50) * gtk-cell-renderer-render: GtkCellRenderer. (line 141) * gtk-cell-renderer-set-fixed-size: GtkCellRenderer. (line 310) * gtk-cell-renderer-spin-new: GtkCellRendererSpin. (line 47) * gtk-cell-renderer-start-editing: GtkCellRenderer. (line 220) * gtk-cell-renderer-stop-editing: GtkCellRenderer. (line 273) * gtk-cell-renderer-text-new: GtkCellRendererText. (line 176) * gtk-cell-renderer-toggle-get-active: GtkCellRendererToggle. (line 94) * gtk-cell-renderer-toggle-get-radio: GtkCellRendererToggle. (line 61) * gtk-cell-renderer-toggle-new: GtkCellRendererToggle. (line 46) * gtk-cell-renderer-toggle-set-active: GtkCellRendererToggle. (line 108) * gtk-cell-renderer-toggle-set-radio: GtkCellRendererToggle. (line 75) * gtk-cell-view-get-cell-renderers: GtkCellView. (line 186) * gtk-cell-view-get-displayed-row: GtkCellView. (line 132) * gtk-cell-view-get-size-of-row: GtkCellView. (line 149) * gtk-cell-view-new: GtkCellView. (line 39) * gtk-cell-view-new-with-markup: GtkCellView. (line 65) * gtk-cell-view-new-with-pixbuf: GtkCellView. (line 81) * gtk-cell-view-new-with-text: GtkCellView. (line 50) * gtk-cell-view-set-background-color: GtkCellView. (line 171) * gtk-cell-view-set-displayed-row: GtkCellView. (line 113) * gtk-cell-view-set-model: GtkCellView. (line 96) * gtk-check-button-new: GtkCheckButton. (line 29) * gtk-check-button-new-with-label: GtkCheckButton. (line 38) * gtk-check-button-new-with-mnemonic: GtkCheckButton. (line 51) * gtk-check-menu-item-get-active: GtkCheckMenuItem. (line 67) * gtk-check-menu-item-new: GtkCheckMenuItem. (line 46) * gtk-check-menu-item-new-with-label: GtkCheckMenuItem. (line 55) * gtk-check-menu-item-set-active: GtkCheckMenuItem. (line 81) * gtk-check-menu-item-toggled: GtkCheckMenuItem. (line 93) * gtk-color-button-get-alpha: GtkColorButton. (line 128) * gtk-color-button-get-color: GtkColorButton. (line 97) * gtk-color-button-get-title: GtkColorButton. (line 189) * gtk-color-button-get-use-alpha: GtkColorButton. (line 159) * gtk-color-button-new: GtkColorButton. (line 53) * gtk-color-button-new-with-color: GtkColorButton. (line 68) * gtk-color-button-set-alpha: GtkColorButton. (line 113) * gtk-color-button-set-color: GtkColorButton. (line 82) * gtk-color-button-set-title: GtkColorButton. (line 174) * gtk-color-button-set-use-alpha: GtkColorButton. (line 143) * gtk-color-selection-dialog-new: GtkColorSelectionDialog. (line 26) * gtk-color-selection-get-has-palette: GtkColorSelection. (line 68) * gtk-color-selection-is-adjusting: GtkColorSelection. (line 81) * gtk-color-selection-new: GtkColorSelection. (line 46) * gtk-color-selection-set-has-palette: GtkColorSelection. (line 55) * gtk-combo-box-append-text: GtkComboBox. (line 312) * gtk-combo-box-entry-get-text-column: GtkComboBoxEntry. (line 118) * gtk-combo-box-entry-new: GtkComboBoxEntry. (line 50) * gtk-combo-box-entry-new-text: GtkComboBoxEntry. (line 85) * gtk-combo-box-entry-new-with-model: GtkComboBoxEntry. (line 65) * gtk-combo-box-entry-set-text-column: GtkComboBoxEntry. (line 102) * gtk-combo-box-get-active: GtkComboBox. (line 190) * gtk-combo-box-get-active-iter: GtkComboBox. (line 226) * gtk-combo-box-get-active-text: GtkComboBox. (line 385) * gtk-combo-box-get-add-tearoffs: GtkComboBox. (line 464) * gtk-combo-box-get-focus-on-click: GtkComboBox. (line 527) * gtk-combo-box-get-model: GtkComboBox. (line 260) * gtk-combo-box-get-popup-accessible: GtkComboBox. (line 431) * gtk-combo-box-get-row-span-column: GtkComboBox. (line 158) * gtk-combo-box-get-title: GtkComboBox. (line 492) * gtk-combo-box-get-wrap-width: GtkComboBox. (line 124) * gtk-combo-box-insert-text: GtkComboBox. (line 330) * gtk-combo-box-new: GtkComboBox. (line 98) * gtk-combo-box-new-text: GtkComboBox. (line 296) * gtk-combo-box-new-with-model: GtkComboBox. (line 109) * gtk-combo-box-popdown: GtkComboBox. (line 416) * gtk-combo-box-popup: GtkComboBox. (line 402) * gtk-combo-box-prepend-text: GtkComboBox. (line 351) * gtk-combo-box-remove-text: GtkComboBox. (line 368) * gtk-combo-box-set-active: GtkComboBox. (line 210) * gtk-combo-box-set-active-iter: GtkComboBox. (line 244) * gtk-combo-box-set-add-tearoffs: GtkComboBox. (line 449) * gtk-combo-box-set-focus-on-click: GtkComboBox. (line 509) * gtk-combo-box-set-model: GtkComboBox. (line 276) * gtk-combo-box-set-row-span-column: GtkComboBox. (line 173) * gtk-combo-box-set-title: GtkComboBox. (line 477) * gtk-combo-box-set-wrap-width: GtkComboBox. (line 141) * gtk-container-add: GtkContainer. (line 132) * gtk-container-check-resize: GtkContainer. (line 204) * gtk-container-child-get-property: GtkContainer. (line 332) * gtk-container-child-set-property: GtkContainer. (line 352) * gtk-container-child-type: GtkContainer. (line 314) * gtk-container-get-border-width: GtkContainer. (line 371) * gtk-container-get-children: GtkContainer. (line 210) * gtk-container-get-focus-hadjustment: GtkContainer. (line 271) * gtk-container-get-focus-vadjustment: GtkContainer. (line 234) * gtk-container-get-resize-mode: GtkContainer. (line 174) * gtk-container-propagate-expose: GtkContainer. (line 408) * gtk-container-remove: GtkContainer. (line 153) * gtk-container-resize-children: GtkContainer. (line 308) * gtk-container-set-border-width: GtkContainer. (line 385) * gtk-container-set-focus-chain: GtkContainer. (line 438) * gtk-container-set-focus-child: GtkContainer. (line 226) * gtk-container-set-focus-hadjustment: GtkContainer. (line 286) * gtk-container-set-focus-vadjustment: GtkContainer. (line 248) * gtk-container-set-resize-mode: GtkContainer. (line 188) * gtk-container-unset-focus-chain: GtkContainer. (line 457) * gtk-curve-new: GtkCurve. (line 62) * gtk-curve-reset: GtkCurve. (line 70) * gtk-curve-set-gamma: GtkCurve. (line 81) * gtk-curve-set-range: GtkCurve. (line 99) * gtk-dialog-add-action-widget: GtkDialog. (line 211) * gtk-dialog-add-button: GtkDialog. (line 188) * gtk-dialog-get-has-separator: GtkDialog. (line 232) * gtk-dialog-get-response-for-widget: GtkDialog. (line 292) * gtk-dialog-response: GtkDialog. (line 171) * gtk-dialog-run: GtkDialog. (line 117) * gtk-dialog-set-default-response: GtkDialog. (line 245) * gtk-dialog-set-has-separator: GtkDialog. (line 260) * gtk-dialog-set-response-sensitive: GtkDialog. (line 274) * gtk-drag-dest-set: Undocumented. (line 222) * gtk-drag-finish: Undocumented. (line 230) * gtk-drag-get-data: Undocumented. (line 232) * gtk-drag-source-set-icon: Undocumented. (line 256) * gtk-drawing-area-new: GtkDrawingArea. (line 82) * gtk-editable-copy-clipboard: GtkEditable. (line 195) * gtk-editable-cut-clipboard: GtkEditable. (line 185) * gtk-editable-delete-selection: GtkEditable. (line 215) * gtk-editable-delete-text: GtkEditable. (line 142) * gtk-editable-get-chars: GtkEditable. (line 162) * gtk-editable-get-editable: GtkEditable. (line 275) * gtk-editable-get-position: GtkEditable. (line 244) * gtk-editable-get-selection-bounds: GtkEditable. (line 102) * gtk-editable-insert-text: GtkEditable. (line 121) * gtk-editable-paste-clipboard: GtkEditable. (line 205) * gtk-editable-select-region: GtkEditable. (line 82) * gtk-editable-set-editable: GtkEditable. (line 261) * gtk-editable-set-position: GtkEditable. (line 226) * gtk-entry-completion-complete: GtkEntryCompletion. (line 173) * gtk-entry-completion-delete-action: GtkEntryCompletion. (line 199) * gtk-entry-completion-get-entry: GtkEntryCompletion. (line 124) * gtk-entry-completion-get-model: GtkEntryCompletion. (line 156) * gtk-entry-completion-insert-prefix: GtkEntryCompletion. (line 187) * gtk-entry-completion-new: GtkEntryCompletion. (line 113) * gtk-entry-completion-set-model: GtkEntryCompletion. (line 139) * gtk-entry-get-activates-default: GtkEntry. (line 188) * gtk-entry-get-alignment: GtkEntry. (line 350) * gtk-entry-get-completion: GtkEntry. (line 468) * gtk-entry-get-has-frame: GtkEntry. (line 201) * gtk-entry-get-inner-border: GtkEntry. (line 214) * gtk-entry-get-invisible-char: GtkEntry. (line 316) * gtk-entry-get-layout: GtkEntry. (line 365) * gtk-entry-get-layout-offsets: GtkEntry. (line 387) * gtk-entry-get-max-length: GtkEntry. (line 421) * gtk-entry-get-text: GtkEntry. (line 117) * gtk-entry-get-visibility: GtkEntry. (line 436) * gtk-entry-get-width-chars: GtkEntry. (line 230) * gtk-entry-set-activates-default: GtkEntry. (line 243) * gtk-entry-set-alignment: GtkEntry. (line 332) * gtk-entry-set-completion: GtkEntry. (line 450) * gtk-entry-set-has-frame: GtkEntry. (line 264) * gtk-entry-set-inner-border: GtkEntry. (line 277) * gtk-entry-set-invisible-char: GtkEntry. (line 153) * gtk-entry-set-max-length: GtkEntry. (line 171) * gtk-entry-set-text: GtkEntry. (line 104) * gtk-entry-set-visibility: GtkEntry. (line 133) * gtk-entry-set-width-chars: GtkEntry. (line 299) * gtk-event-box-get-above-child: GtkEventBox. (line 66) * gtk-event-box-get-visible-window: GtkEventBox. (line 128) * gtk-event-box-new: GtkEventBox. (line 35) * gtk-event-box-set-above-child: GtkEventBox. (line 44) * gtk-event-box-set-visible-window: GtkEventBox. (line 83) * gtk-expander-get-expanded: GtkExpander. (line 138) * gtk-expander-get-label: GtkExpander. (line 204) * gtk-expander-get-label-widget: GtkExpander. (line 304) * gtk-expander-get-spacing: GtkExpander. (line 172) * gtk-expander-get-use-markup: GtkExpander. (line 272) * gtk-expander-get-use-underline: GtkExpander. (line 239) * gtk-expander-new: GtkExpander. (line 87) * gtk-expander-new-with-mnemonic: GtkExpander. (line 101) * gtk-expander-set-expanded: GtkExpander. (line 121) * gtk-expander-set-label: GtkExpander. (line 187) * gtk-expander-set-label-widget: GtkExpander. (line 288) * gtk-expander-set-spacing: GtkExpander. (line 156) * gtk-expander-set-use-markup: GtkExpander. (line 256) * gtk-expander-set-use-underline: GtkExpander. (line 223) * gtk-file-chooser-add-filter: GtkFileChooser. (line 1016) * gtk-file-chooser-add-shortcut-folder: Undocumented. (line 306) * gtk-file-chooser-add-shortcut-folder-uri: Undocumented. (line 308) * gtk-file-chooser-button-get-title: GtkFileChooserButton. (line 83) * gtk-file-chooser-button-new: GtkFileChooserButton. (line 66) * gtk-file-chooser-button-set-title: GtkFileChooserButton. (line 99) * gtk-file-chooser-get-action: GtkFileChooser. (line 481) * gtk-file-chooser-get-current-folder: GtkFileChooser. (line 766) * gtk-file-chooser-get-extra-widget: GtkFileChooser. (line 1000) * gtk-file-chooser-get-filename: GtkFileChooser. (line 589) * gtk-file-chooser-get-filenames: GtkFileChooser. (line 724) * gtk-file-chooser-get-filter: GtkFileChooser. (line 1091) * gtk-file-chooser-get-local-only: GtkFileChooser. (line 518) * gtk-file-chooser-get-preview-uri: GtkFileChooser. (line 967) * gtk-file-chooser-get-preview-widget: GtkFileChooser. (line 951) * gtk-file-chooser-get-show-hidden: GtkFileChooser. (line 550) * gtk-file-chooser-get-uri: GtkFileChooser. (line 795) * gtk-file-chooser-get-uris: GtkFileChooser. (line 905) * gtk-file-chooser-list-filters: GtkFileChooser. (line 1052) * gtk-file-chooser-list-shortcut-folder-uris: Undocumented. (line 336) * gtk-file-chooser-list-shortcut-folders: Undocumented. (line 338) * gtk-file-chooser-remove-filter: GtkFileChooser. (line 1036) * gtk-file-chooser-remove-shortcut-folder: Undocumented. (line 340) * gtk-file-chooser-remove-shortcut-folder-uri: Undocumented. (line 342) * gtk-file-chooser-select-all: GtkFileChooser. (line 701) * gtk-file-chooser-select-filename: GtkFileChooser. (line 664) * gtk-file-chooser-select-uri: GtkFileChooser. (line 867) * gtk-file-chooser-set-action: GtkFileChooser. (line 462) * gtk-file-chooser-set-current-folder: GtkFileChooser. (line 745) * gtk-file-chooser-set-current-name: GtkFileChooser. (line 566) * gtk-file-chooser-set-extra-widget: GtkFileChooser. (line 984) * gtk-file-chooser-set-filename: GtkFileChooser. (line 611) * gtk-file-chooser-set-filter: GtkFileChooser. (line 1071) * gtk-file-chooser-set-local-only: GtkFileChooser. (line 497) * gtk-file-chooser-set-preview-widget: GtkFileChooser. (line 923) * gtk-file-chooser-set-show-hidden: GtkFileChooser. (line 534) * gtk-file-chooser-set-uri: GtkFileChooser. (line 816) * gtk-file-chooser-unselect-all: GtkFileChooser. (line 712) * gtk-file-chooser-unselect-filename: GtkFileChooser. (line 685) * gtk-file-chooser-unselect-uri: GtkFileChooser. (line 888) * gtk-file-chooser-widget-new: GtkFileChooserWidget. (line 33) * gtk-file-filter-add-mime-type: GtkFileFilter. (line 91) * gtk-file-filter-add-pattern: GtkFileFilter. (line 106) * gtk-file-filter-add-pixbuf-formats: GtkFileFilter. (line 121) * gtk-file-filter-get-name: GtkFileFilter. (line 74) * gtk-file-filter-get-needed: GtkFileFilter. (line 134) * gtk-file-filter-new: GtkFileFilter. (line 37) * gtk-file-filter-set-name: GtkFileFilter. (line 56) * gtk-file-selection-complete: GtkFileSelection. (line 157) * gtk-file-selection-get-filename: GtkFileSelection. (line 138) * gtk-file-selection-new: GtkFileSelection. (line 99) * gtk-file-selection-set-filename: GtkFileSelection. (line 116) * gtk-fixed-get-has-window: GtkFixed. (line 103) * gtk-fixed-move: GtkFixed. (line 84) * gtk-fixed-new: GtkFixed. (line 56) * gtk-fixed-put: GtkFixed. (line 65) * gtk-fixed-set-has-window: GtkFixed. (line 117) * gtk-font-button-get-font-name: GtkFontButton. (line 100) * gtk-font-button-get-show-size: GtkFontButton. (line 163) * gtk-font-button-get-show-style: GtkFontButton. (line 131) * gtk-font-button-get-title: GtkFontButton. (line 255) * gtk-font-button-get-use-font: GtkFontButton. (line 194) * gtk-font-button-get-use-size: GtkFontButton. (line 225) * gtk-font-button-new: GtkFontButton. (line 56) * gtk-font-button-new-with-font: GtkFontButton. (line 67) * gtk-font-button-set-font-name: GtkFontButton. (line 81) * gtk-font-button-set-show-size: GtkFontButton. (line 147) * gtk-font-button-set-show-style: GtkFontButton. (line 115) * gtk-font-button-set-title: GtkFontButton. (line 240) * gtk-font-button-set-use-font: GtkFontButton. (line 178) * gtk-font-button-set-use-size: GtkFontButton. (line 209) * gtk-font-selection-dialog-new: GtkFontSelectionDialog. (line 34) * gtk-font-selection-get-font-name: GtkFontSelection. (line 53) * gtk-font-selection-get-preview-text: GtkFontSelection. (line 96) * gtk-font-selection-new: GtkFontSelection. (line 44) * gtk-font-selection-set-font-name: GtkFontSelection. (line 75) * gtk-font-selection-set-preview-text: GtkFontSelection. (line 110) * gtk-frame-get-label: GtkFrame. (line 118) * gtk-frame-get-label-align: GtkFrame. (line 136) * gtk-frame-get-label-widget: GtkFrame. (line 153) * gtk-frame-get-shadow-type: GtkFrame. (line 167) * gtk-frame-new: GtkFrame. (line 45) * gtk-frame-set-label: GtkFrame. (line 57) * gtk-frame-set-label-align: GtkFrame. (line 85) * gtk-frame-set-label-widget: GtkFrame. (line 71) * gtk-frame-set-shadow-type: GtkFrame. (line 105) * gtk-gamma-curve-new: GtkGammaCurve. (line 38) * gtk-handle-box-get-handle-position: GtkHandleBox. (line 129) * gtk-handle-box-get-shadow-type: GtkHandleBox. (line 143) * gtk-handle-box-get-snap-edge: GtkHandleBox. (line 157) * gtk-handle-box-new: GtkHandleBox. (line 69) * gtk-handle-box-set-handle-position: GtkHandleBox. (line 92) * gtk-handle-box-set-shadow-type: GtkHandleBox. (line 78) * gtk-handle-box-set-snap-edge: GtkHandleBox. (line 105) * gtk-hbox-new: GtkHBox. (line 29) * gtk-hbutton-box-new: GtkHButtonBox. (line 38) * gtk-hpaned-new: GtkHPaned. (line 25) * gtk-hruler-new: GtkHRuler. (line 35) * gtk-hscale-new: GtkHScale. (line 30) * gtk-hscale-new-with-range: GtkHScale. (line 42) * gtk-hscrollbar-new: GtkHScrollbar. (line 28) * gtk-hseparator-new: GtkHSeparator. (line 30) * gtk-icon-size-lookup: Undocumented. (line 412) * gtk-icon-size-lookup-for-settings: Undocumented. (line 414) * gtk-icon-theme-list-icons: Undocumented. (line 474) * gtk-icon-theme-load-icon: Undocumented. (line 476) * gtk-icon-view-create-drag-icon: GtkIconView. (line 776) * gtk-icon-view-get-column-spacing: GtkIconView. (line 505) * gtk-icon-view-get-columns: GtkIconView. (line 380) * gtk-icon-view-get-item-width: GtkIconView. (line 412) * gtk-icon-view-get-margin: GtkIconView. (line 536) * gtk-icon-view-get-markup-column: GtkIconView. (line 201) * gtk-icon-view-get-model: GtkIconView. (line 135) * gtk-icon-view-get-orientation: GtkIconView. (line 347) * gtk-icon-view-get-path-at-pos: GtkIconView. (line 247) * gtk-icon-view-get-pixbuf-column: GtkIconView. (line 232) * gtk-icon-view-get-reorderable: GtkIconView. (line 742) * gtk-icon-view-get-row-spacing: GtkIconView. (line 474) * gtk-icon-view-get-selected-items: GtkIconView. (line 601) * gtk-icon-view-get-selection-mode: GtkIconView. (line 316) * gtk-icon-view-get-spacing: GtkIconView. (line 443) * gtk-icon-view-get-text-column: GtkIconView. (line 168) * gtk-icon-view-item-activated: GtkIconView. (line 650) * gtk-icon-view-new: GtkIconView. (line 93) * gtk-icon-view-new-with-model: GtkIconView. (line 104) * gtk-icon-view-path-is-selected: GtkIconView. (line 581) * gtk-icon-view-scroll-to-path: GtkIconView. (line 666) * gtk-icon-view-select-all: GtkIconView. (line 626) * gtk-icon-view-select-path: GtkIconView. (line 551) * gtk-icon-view-set-column-spacing: GtkIconView. (line 489) * gtk-icon-view-set-columns: GtkIconView. (line 363) * gtk-icon-view-set-cursor: GtkIconView. (line 272) * gtk-icon-view-set-drag-dest-item: GtkIconView. (line 758) * gtk-icon-view-set-item-width: GtkIconView. (line 395) * gtk-icon-view-set-margin: GtkIconView. (line 520) * gtk-icon-view-set-markup-column: GtkIconView. (line 183) * gtk-icon-view-set-model: GtkIconView. (line 118) * gtk-icon-view-set-orientation: GtkIconView. (line 331) * gtk-icon-view-set-pixbuf-column: GtkIconView. (line 216) * gtk-icon-view-set-reorderable: GtkIconView. (line 717) * gtk-icon-view-set-row-spacing: GtkIconView. (line 458) * gtk-icon-view-set-selection-mode: GtkIconView. (line 301) * gtk-icon-view-set-spacing: GtkIconView. (line 427) * gtk-icon-view-set-text-column: GtkIconView. (line 152) * gtk-icon-view-unselect-all: GtkIconView. (line 638) * gtk-icon-view-unselect-path: GtkIconView. (line 566) * gtk-icon-view-unset-model-drag-dest: GtkIconView. (line 705) * gtk-im-context-delete-surrounding: GtkIMContext. (line 193) * gtk-im-context-filter-keypress: GtkIMContext. (line 52) * gtk-im-context-focus-in: GtkIMContext. (line 69) * gtk-im-context-focus-out: GtkIMContext. (line 80) * gtk-im-context-get-surrounding: GtkIMContext. (line 157) * gtk-im-context-reset: GtkIMContext. (line 92) * gtk-im-context-set-client-window: GtkIMContext. (line 35) * gtk-im-context-set-cursor-location: GtkIMContext. (line 104) * gtk-im-context-set-surrounding: GtkIMContext. (line 134) * gtk-im-context-set-use-preedit: GtkIMContext. (line 118) * gtk-im-context-simple-add-table: GtkIMContextSimple. (line 31) * gtk-im-context-simple-new: GtkIMContextSimple. (line 21) * gtk-im-multicontext-new: GtkIMMulticontext. (line 21) * gtk-image-clear: GtkImage. (line 479) * gtk-image-get-animation: GtkImage. (line 153) * gtk-image-get-pixbuf: GtkImage. (line 137) * gtk-image-get-pixel-size: GtkImage. (line 516) * gtk-image-get-storage-type: GtkImage. (line 170) * gtk-image-menu-item-get-image: GtkImageMenuItem. (line 47) * gtk-image-menu-item-new: GtkImageMenuItem. (line 60) * gtk-image-menu-item-new-from-stock: GtkImageMenuItem. (line 69) * gtk-image-menu-item-new-with-label: GtkImageMenuItem. (line 94) * gtk-image-menu-item-set-image: GtkImageMenuItem. (line 32) * gtk-image-new: GtkImage. (line 490) * gtk-image-new-from-animation: GtkImage. (line 317) * gtk-image-new-from-file: GtkImage. (line 185) * gtk-image-new-from-icon-name: GtkImage. (line 338) * gtk-image-new-from-icon-set: GtkImage. (line 212) * gtk-image-new-from-image: GtkImage. (line 238) * gtk-image-new-from-pixbuf: GtkImage. (line 258) * gtk-image-new-from-pixmap: GtkImage. (line 277) * gtk-image-new-from-stock: GtkImage. (line 297) * gtk-image-set-from-animation: GtkImage. (line 448) * gtk-image-set-from-file: GtkImage. (line 358) * gtk-image-set-from-icon-name: GtkImage. (line 462) * gtk-image-set-from-icon-set: GtkImage. (line 371) * gtk-image-set-from-image: GtkImage. (line 387) * gtk-image-set-from-pixbuf: GtkImage. (line 403) * gtk-image-set-from-pixmap: GtkImage. (line 416) * gtk-image-set-from-stock: GtkImage. (line 432) * gtk-image-set-pixel-size: GtkImage. (line 499) * gtk-input-dialog-new: GtkInputDialog. (line 51) * gtk-invisible-get-screen: GtkInvisible. (line 71) * gtk-invisible-new: GtkInvisible. (line 31) * gtk-invisible-new-for-screen: GtkInvisible. (line 40) * gtk-invisible-set-screen: GtkInvisible. (line 55) * gtk-item-deselect: GtkItem. (line 45) * gtk-item-select: GtkItem. (line 36) * gtk-item-toggle: GtkItem. (line 54) * gtk-label-get-angle: GtkLabel. (line 773) * gtk-label-get-attributes: GtkLabel. (line 552) * gtk-label-get-ellipsize: GtkLabel. (line 584) * gtk-label-get-justify: GtkLabel. (line 570) * gtk-label-get-label: GtkLabel. (line 632) * gtk-label-get-layout: GtkLabel. (line 648) * gtk-label-get-layout-offsets: GtkLabel. (line 383) * gtk-label-get-line-wrap: GtkLabel. (line 664) * gtk-label-get-line-wrap-mode: GtkLabel. (line 678) * gtk-label-get-max-width-chars: GtkLabel. (line 616) * gtk-label-get-mnemonic-keyval: GtkLabel. (line 407) * gtk-label-get-mnemonic-widget: GtkLabel. (line 694) * gtk-label-get-selectable: GtkLabel. (line 422) * gtk-label-get-selection-bounds: GtkLabel. (line 709) * gtk-label-get-single-line-mode: GtkLabel. (line 758) * gtk-label-get-text: GtkLabel. (line 434) * gtk-label-get-use-markup: GtkLabel. (line 729) * gtk-label-get-use-underline: GtkLabel. (line 743) * gtk-label-get-width-chars: GtkLabel. (line 600) * gtk-label-new: GtkLabel. (line 179) * gtk-label-new-with-mnemonic: GtkLabel. (line 450) * gtk-label-select-region: GtkLabel. (line 476) * gtk-label-set-angle: GtkLabel. (line 844) * gtk-label-set-attributes: GtkLabel. (line 207) * gtk-label-set-ellipsize: GtkLabel. (line 299) * gtk-label-set-justify: GtkLabel. (line 281) * gtk-label-set-label: GtkLabel. (line 787) * gtk-label-set-line-wrap: GtkLabel. (line 344) * gtk-label-set-line-wrap-mode: GtkLabel. (line 366) * gtk-label-set-markup: GtkLabel. (line 222) * gtk-label-set-markup-with-mnemonic: GtkLabel. (line 245) * gtk-label-set-max-width-chars: GtkLabel. (line 330) * gtk-label-set-mnemonic-widget: GtkLabel. (line 495) * gtk-label-set-pattern: GtkLabel. (line 265) * gtk-label-set-selectable: GtkLabel. (line 521) * gtk-label-set-single-line-mode: GtkLabel. (line 830) * gtk-label-set-text: GtkLabel. (line 191) * gtk-label-set-text-with-mnemonic: GtkLabel. (line 535) * gtk-label-set-use-markup: GtkLabel. (line 802) * gtk-label-set-use-underline: GtkLabel. (line 816) * gtk-label-set-width-chars: GtkLabel. (line 315) * gtk-layout-get-hadjustment: GtkLayout. (line 139) * gtk-layout-get-size: GtkLayout. (line 121) * gtk-layout-get-vadjustment: GtkLayout. (line 158) * gtk-layout-move: GtkLayout. (line 86) * gtk-layout-new: GtkLayout. (line 49) * gtk-layout-put: GtkLayout. (line 66) * gtk-layout-set-hadjustment: GtkLayout. (line 177) * gtk-layout-set-size: GtkLayout. (line 105) * gtk-layout-set-vadjustment: GtkLayout. (line 193) * gtk-link-button-get-uri: GtkLinkButton. (line 74) * gtk-link-button-new: GtkLinkButton. (line 43) * gtk-link-button-new-with-label: GtkLinkButton. (line 57) * gtk-link-button-set-uri: GtkLinkButton. (line 90) * gtk-list-store-append: GtkListStore. (line 255) * gtk-list-store-clear: GtkListStore. (line 270) * gtk-list-store-insert: GtkListStore. (line 179) * gtk-list-store-insert-after: GtkListStore. (line 219) * gtk-list-store-insert-before: GtkListStore. (line 199) * gtk-list-store-iter-is-valid: GtkListStore. (line 280) * gtk-list-store-move-after: GtkListStore. (line 358) * gtk-list-store-move-before: GtkListStore. (line 338) * gtk-list-store-new: GtkListStore. (line 120) * gtk-list-store-prepend: GtkListStore. (line 239) * gtk-list-store-remove: GtkListStore. (line 161) * gtk-list-store-reorder: GtkListStore. (line 301) * gtk-list-store-set-value: GtkListStore. (line 141) * gtk-list-store-swap: GtkListStore. (line 319) * gtk-main-iteration-do: Undocumented. (line 500) * gtk-menu-attach: GtkMenu. (line 127) * gtk-menu-bar-get-pack-direction: GtkMenuBar. (line 58) * gtk-menu-bar-new: GtkMenuBar. (line 34) * gtk-menu-bar-set-pack-direction: GtkMenuBar. (line 43) * gtk-menu-detach: GtkMenu. (line 371) * gtk-menu-get-accel-group: GtkMenu. (line 221) * gtk-menu-get-active: GtkMenu. (line 325) * gtk-menu-get-attach-widget: GtkMenu. (line 383) * gtk-menu-get-for-attach-widget: GtkMenu. (line 396) * gtk-menu-get-tearoff-state: GtkMenu. (line 279) * gtk-menu-get-title: GtkMenu. (line 292) * gtk-menu-item-activate: GtkMenuItem. (line 169) * gtk-menu-item-deselect: GtkMenuItem. (line 159) * gtk-menu-item-get-right-justified: GtkMenuItem. (line 205) * gtk-menu-item-get-submenu: GtkMenuItem. (line 220) * gtk-menu-item-new: GtkMenuItem. (line 46) * gtk-menu-item-new-with-label: GtkMenuItem. (line 55) * gtk-menu-item-new-with-mnemonic: GtkMenuItem. (line 67) * gtk-menu-item-remove-submenu: GtkMenuItem. (line 140) * gtk-menu-item-select: GtkMenuItem. (line 149) * gtk-menu-item-set-accel-path: GtkMenuItem. (line 113) * gtk-menu-item-set-right-justified: GtkMenuItem. (line 82) * gtk-menu-item-set-submenu: GtkMenuItem. (line 100) * gtk-menu-item-toggle-size-allocate: GtkMenuItem. (line 192) * gtk-menu-item-toggle-size-request: GtkMenuItem. (line 179) * gtk-menu-new: GtkMenu. (line 82) * gtk-menu-popdown: GtkMenu. (line 306) * gtk-menu-popup: GtkMenu. (line 162) * gtk-menu-reorder-child: GtkMenu. (line 107) * gtk-menu-reposition: GtkMenu. (line 315) * gtk-menu-set-accel-group: GtkMenu. (line 204) * gtk-menu-set-accel-path: GtkMenu. (line 235) * gtk-menu-set-active: GtkMenu. (line 341) * gtk-menu-set-monitor: GtkMenu. (line 411) * gtk-menu-set-screen: GtkMenu. (line 91) * gtk-menu-set-tearoff-state: GtkMenu. (line 356) * gtk-menu-set-title: GtkMenu. (line 263) * gtk-menu-shell-activate-item: GtkMenuShell. (line 165) * gtk-menu-shell-append: GtkMenuShell. (line 68) * gtk-menu-shell-cancel: GtkMenuShell. (line 181) * gtk-menu-shell-deactivate: GtkMenuShell. (line 113) * gtk-menu-shell-deselect: GtkMenuShell. (line 155) * gtk-menu-shell-get-take-focus: GtkMenuShell. (line 235) * gtk-menu-shell-insert: GtkMenuShell. (line 96) * gtk-menu-shell-prepend: GtkMenuShell. (line 82) * gtk-menu-shell-select-first: GtkMenuShell. (line 137) * gtk-menu-shell-select-item: GtkMenuShell. (line 124) * gtk-menu-shell-set-take-focus: GtkMenuShell. (line 193) * gtk-menu-tool-button-get-menu: GtkMenuToolButton. (line 86) * gtk-menu-tool-button-new: GtkMenuToolButton. (line 36) * gtk-menu-tool-button-new-from-stock: GtkMenuToolButton. (line 54) * gtk-menu-tool-button-set-menu: GtkMenuToolButton. (line 70) * gtk-message-dialog-set-image: GtkMessageDialog. (line 97) * gtk-message-dialog-set-markup: GtkMessageDialog. (line 81) * gtk-misc-get-alignment: GtkMisc. (line 85) * gtk-misc-get-padding: GtkMisc. (line 102) * gtk-misc-set-alignment: GtkMisc. (line 51) * gtk-misc-set-padding: GtkMisc. (line 67) * gtk-notebook-append-page: GtkNotebook. (line 129) * gtk-notebook-append-page-menu: GtkNotebook. (line 151) * gtk-notebook-get-current-page: GtkNotebook. (line 441) * gtk-notebook-get-group-id: GtkNotebook. (line 852) * gtk-notebook-get-menu-label: GtkNotebook. (line 456) * gtk-notebook-get-menu-label-text: GtkNotebook. (line 686) * gtk-notebook-get-n-pages: GtkNotebook. (line 490) * gtk-notebook-get-nth-page: GtkNotebook. (line 473) * gtk-notebook-get-scrollable: GtkNotebook. (line 705) * gtk-notebook-get-show-border: GtkNotebook. (line 719) * gtk-notebook-get-show-tabs: GtkNotebook. (line 733) * gtk-notebook-get-tab-detachable: GtkNotebook. (line 797) * gtk-notebook-get-tab-label: GtkNotebook. (line 505) * gtk-notebook-get-tab-label-text: GtkNotebook. (line 747) * gtk-notebook-get-tab-pos: GtkNotebook. (line 765) * gtk-notebook-get-tab-reorderable: GtkNotebook. (line 779) * gtk-notebook-insert-page: GtkNotebook. (line 235) * gtk-notebook-insert-page-menu: GtkNotebook. (line 261) * gtk-notebook-new: GtkNotebook. (line 119) * gtk-notebook-next-page: GtkNotebook. (line 325) * gtk-notebook-page-num: GtkNotebook. (line 309) * gtk-notebook-popup-disable: GtkNotebook. (line 431) * gtk-notebook-popup-enable: GtkNotebook. (line 420) * gtk-notebook-prepend-page: GtkNotebook. (line 182) * gtk-notebook-prepend-page-menu: GtkNotebook. (line 204) * gtk-notebook-prev-page: GtkNotebook. (line 335) * gtk-notebook-remove-page: GtkNotebook. (line 295) * gtk-notebook-reorder-child: GtkNotebook. (line 346) * gtk-notebook-set-current-page: GtkNotebook. (line 815) * gtk-notebook-set-group-id: GtkNotebook. (line 834) * gtk-notebook-set-menu-label: GtkNotebook. (line 523) * gtk-notebook-set-menu-label-text: GtkNotebook. (line 539) * gtk-notebook-set-scrollable: GtkNotebook. (line 407) * gtk-notebook-set-show-border: GtkNotebook. (line 392) * gtk-notebook-set-show-tabs: GtkNotebook. (line 379) * gtk-notebook-set-tab-detachable: GtkNotebook. (line 633) * gtk-notebook-set-tab-label: GtkNotebook. (line 555) * gtk-notebook-set-tab-label-packing: GtkNotebook. (line 573) * gtk-notebook-set-tab-label-text: GtkNotebook. (line 597) * gtk-notebook-set-tab-pos: GtkNotebook. (line 365) * gtk-notebook-set-tab-reorderable: GtkNotebook. (line 614) * gtk-page-setup-get-bottom-margin: GtkPageSetup. (line 169) * gtk-page-setup-get-left-margin: GtkPageSetup. (line 206) * gtk-page-setup-get-orientation: GtkPageSetup. (line 71) * gtk-page-setup-get-page-height: GtkPageSetup. (line 341) * gtk-page-setup-get-page-width: GtkPageSetup. (line 320) * gtk-page-setup-get-paper-height: GtkPageSetup. (line 299) * gtk-page-setup-get-paper-size: GtkPageSetup. (line 101) * gtk-page-setup-get-paper-width: GtkPageSetup. (line 278) * gtk-page-setup-get-right-margin: GtkPageSetup. (line 242) * gtk-page-setup-get-top-margin: GtkPageSetup. (line 132) * gtk-page-setup-new: GtkPageSetup. (line 60) * gtk-page-setup-set-bottom-margin: GtkPageSetup. (line 188) * gtk-page-setup-set-left-margin: GtkPageSetup. (line 224) * gtk-page-setup-set-orientation: GtkPageSetup. (line 86) * gtk-page-setup-set-paper-size: GtkPageSetup. (line 116) * gtk-page-setup-set-right-margin: GtkPageSetup. (line 260) * gtk-page-setup-set-top-margin: GtkPageSetup. (line 150) * gtk-paned-add1: GtkPaned. (line 90) * gtk-paned-add2: GtkPaned. (line 103) * gtk-paned-get-child1: GtkPaned. (line 155) * gtk-paned-get-child2: GtkPaned. (line 170) * gtk-paned-get-position: GtkPaned. (line 199) * gtk-paned-pack1: GtkPaned. (line 117) * gtk-paned-pack2: GtkPaned. (line 136) * gtk-paned-set-position: GtkPaned. (line 185) * gtk-paper-size-get-default: GtkPaperSize. (line 232) * gtk-paper-size-get-display-name: GtkPaperSize. (line 139) * gtk-paper-size-get-height: GtkPaperSize. (line 184) * gtk-paper-size-get-name: GtkPaperSize. (line 125) * gtk-paper-size-get-ppd-name: GtkPaperSize. (line 153) * gtk-paper-size-get-width: GtkPaperSize. (line 167) * gtk-paper-size-is-custom: GtkPaperSize. (line 201) * gtk-paper-size-is-equal: GtkPaperSize. (line 108) * gtk-paper-size-new: GtkPaperSize. (line 34) * gtk-paper-size-new-custom: GtkPaperSize. (line 81) * gtk-paper-size-new-from-ppd: GtkPaperSize. (line 53) * gtk-paper-size-set-size: GtkPaperSize. (line 213) * gtk-plug-construct: GtkPlug. (line 39) * gtk-plug-construct-for-display: GtkPlug. (line 54) * gtk-plug-get-id: GtkPlug. (line 108) * gtk-plug-new: GtkPlug. (line 76) * gtk-plug-new-for-display: GtkPlug. (line 90) * gtk-print-context-get-cairo-context: GtkPrintContext. (line 87) * gtk-print-context-get-dpi-x: GtkPrintContext. (line 175) * gtk-print-context-get-dpi-y: GtkPrintContext. (line 191) * gtk-print-context-get-height: GtkPrintContext. (line 160) * gtk-print-context-get-page-setup: GtkPrintContext. (line 129) * gtk-print-context-get-pango-fontmap: GtkPrintContext. (line 207) * gtk-print-context-get-width: GtkPrintContext. (line 145) * gtk-print-context-set-cairo-context: GtkPrintContext. (line 104) * gtk-print-operation-cancel: GtkPrintOperation. (line 507) * gtk-print-operation-get-error: GtkPrintOperation. (line 347) * gtk-print-operation-get-status: GtkPrintOperation. (line 521) * gtk-print-operation-is-finished: GtkPrintOperation. (line 537) * gtk-print-operation-new: GtkPrintOperation. (line 319) * gtk-print-operation-run: GtkPrintOperation. (line 426) * gtk-print-operation-set-allow-async: GtkPrintOperation. (line 330) * gtk-print-operation-set-job-name: GtkPrintOperation. (line 365) * gtk-print-operation-set-n-pages: GtkPrintOperation. (line 384) * gtk-print-operation-set-unit: GtkPrintOperation. (line 407) * gtk-print-run-page-setup-dialog: GtkPrintOperation. (line 578) * gtk-print-settings-get: GtkPrintSettings. (line 63) * gtk-print-settings-get-bool: GtkPrintSettings. (line 115) * gtk-print-settings-get-collate: GtkPrintSettings. (line 478) * gtk-print-settings-get-dither: GtkPrintSettings. (line 782) * gtk-print-settings-get-double: GtkPrintSettings. (line 155) * gtk-print-settings-get-duplex: GtkPrintSettings. (line 538) * gtk-print-settings-get-finishings: GtkPrintSettings. (line 812) * gtk-print-settings-get-int: GtkPrintSettings. (line 236) * gtk-print-settings-get-length: GtkPrintSettings. (line 192) * gtk-print-settings-get-media-type: GtkPrintSettings. (line 748) * gtk-print-settings-get-n-copies: GtkPrintSettings. (line 598) * gtk-print-settings-get-number-up: GtkPrintSettings. (line 628) * gtk-print-settings-get-orientation: GtkPrintSettings. (line 305) * gtk-print-settings-get-output-bin: GtkPrintSettings. (line 842) * gtk-print-settings-get-page-set: GtkPrintSettings. (line 718) * gtk-print-settings-get-paper-height: GtkPrintSettings. (line 410) * gtk-print-settings-get-paper-size: GtkPrintSettings. (line 337) * gtk-print-settings-get-paper-width: GtkPrintSettings. (line 371) * gtk-print-settings-get-printer: GtkPrintSettings. (line 272) * gtk-print-settings-get-quality: GtkPrintSettings. (line 568) * gtk-print-settings-get-resolution: GtkPrintSettings. (line 658) * gtk-print-settings-get-reverse: GtkPrintSettings. (line 508) * gtk-print-settings-get-scale: GtkPrintSettings. (line 688) * gtk-print-settings-get-use-color: GtkPrintSettings. (line 448) * gtk-print-settings-has-key: GtkPrintSettings. (line 45) * gtk-print-settings-new: GtkPrintSettings. (line 34) * gtk-print-settings-set: GtkPrintSettings. (line 81) * gtk-print-settings-set-bool: GtkPrintSettings. (line 136) * gtk-print-settings-set-collate: GtkPrintSettings. (line 493) * gtk-print-settings-set-dither: GtkPrintSettings. (line 797) * gtk-print-settings-set-double: GtkPrintSettings. (line 173) * gtk-print-settings-set-duplex: GtkPrintSettings. (line 553) * gtk-print-settings-set-finishings: GtkPrintSettings. (line 827) * gtk-print-settings-set-int: GtkPrintSettings. (line 254) * gtk-print-settings-set-length: GtkPrintSettings. (line 215) * gtk-print-settings-set-media-type: GtkPrintSettings. (line 765) * gtk-print-settings-set-n-copies: GtkPrintSettings. (line 613) * gtk-print-settings-set-number-up: GtkPrintSettings. (line 643) * gtk-print-settings-set-orientation: GtkPrintSettings. (line 322) * gtk-print-settings-set-output-bin: GtkPrintSettings. (line 857) * gtk-print-settings-set-page-set: GtkPrintSettings. (line 733) * gtk-print-settings-set-paper-height: GtkPrintSettings. (line 430) * gtk-print-settings-set-paper-size: GtkPrintSettings. (line 353) * gtk-print-settings-set-paper-width: GtkPrintSettings. (line 391) * gtk-print-settings-set-printer: GtkPrintSettings. (line 288) * gtk-print-settings-set-quality: GtkPrintSettings. (line 583) * gtk-print-settings-set-resolution: GtkPrintSettings. (line 673) * gtk-print-settings-set-reverse: GtkPrintSettings. (line 523) * gtk-print-settings-set-scale: GtkPrintSettings. (line 703) * gtk-print-settings-set-use-color: GtkPrintSettings. (line 463) * gtk-print-settings-unset: GtkPrintSettings. (line 99) * gtk-progress-bar-get-ellipsize: GtkProgressBar. (line 231) * gtk-progress-bar-get-fraction: GtkProgressBar. (line 205) * gtk-progress-bar-get-pulse-step: GtkProgressBar. (line 218) * gtk-progress-bar-get-text: GtkProgressBar. (line 188) * gtk-progress-bar-new: GtkProgressBar. (line 94) * gtk-progress-bar-pulse: GtkProgressBar. (line 102) * gtk-progress-bar-set-ellipsize: GtkProgressBar. (line 172) * gtk-progress-bar-set-fraction: GtkProgressBar. (line 129) * gtk-progress-bar-set-orientation: GtkProgressBar. (line 158) * gtk-progress-bar-set-pulse-step: GtkProgressBar. (line 143) * gtk-progress-bar-set-text: GtkProgressBar. (line 116) * gtk-radio-action-get-current-value: GtkRadioAction. (line 122) * gtk-radio-action-get-group: GtkRadioAction. (line 76) * gtk-radio-action-new: GtkRadioAction. (line 47) * gtk-radio-action-set-current-value: GtkRadioAction. (line 138) * gtk-radio-action-set-group: GtkRadioAction. (line 107) * gtk-radio-button-get-group: GtkRadioButton. (line 183) * gtk-radio-button-new: GtkRadioButton. (line 101) * gtk-radio-button-new-from-widget: GtkRadioButton. (line 115) * gtk-radio-button-new-with-label: GtkRadioButton. (line 130) * gtk-radio-button-new-with-mnemonic: GtkRadioButton. (line 147) * gtk-radio-button-set-group: GtkRadioButton. (line 166) * gtk-radio-menu-item-get-group: GtkRadioMenuItem. (line 108) * gtk-radio-menu-item-new: GtkRadioMenuItem. (line 51) * gtk-radio-menu-item-new-from-widget: GtkRadioMenuItem. (line 80) * gtk-radio-menu-item-new-with-label: GtkRadioMenuItem. (line 64) * gtk-radio-menu-item-set-group: GtkRadioMenuItem. (line 95) * gtk-radio-tool-button-get-group: GtkRadioToolButton. (line 54) * gtk-radio-tool-button-new: GtkRadioToolButton. (line 38) * gtk-radio-tool-button-new-from-stock: Undocumented. (line 616) * gtk-radio-tool-button-set-group: GtkRadioToolButton. (line 69) * gtk-range-get-adjustment: GtkRange. (line 81) * gtk-range-get-inverted: GtkRange. (line 138) * gtk-range-get-update-policy: GtkRange. (line 167) * gtk-range-get-value: GtkRange. (line 180) * gtk-range-set-adjustment: GtkRange. (line 118) * gtk-range-set-increments: GtkRange. (line 193) * gtk-range-set-inverted: GtkRange. (line 151) * gtk-range-set-range: GtkRange. (line 212) * gtk-range-set-update-policy: GtkRange. (line 97) * gtk-range-set-value: GtkRange. (line 229) * gtk-rc-get-style-by-paths: Undocumented. (line 642) * gtk-rc-set-default-files: Undocumented. (line 666) * gtk-recent-chooser-add-filter: GtkRecentChooser. (line 446) * gtk-recent-chooser-get-current-item: GtkRecentChooser. (line 348) * gtk-recent-chooser-get-current-uri: GtkRecentChooser. (line 333) * gtk-recent-chooser-get-filter: GtkRecentChooser. (line 513) * gtk-recent-chooser-get-items: GtkRecentChooser. (line 425) * gtk-recent-chooser-get-limit: GtkRecentChooser. (line 193) * gtk-recent-chooser-get-local-only: GtkRecentChooser. (line 161) * gtk-recent-chooser-get-show-icons: GtkRecentChooser. (line 127) * gtk-recent-chooser-get-show-numbers: GtkRecentChooser. (line 259) * gtk-recent-chooser-get-show-private: GtkRecentChooser. (line 94) * gtk-recent-chooser-get-show-tips: GtkRecentChooser. (line 224) * gtk-recent-chooser-get-sort-type: GtkRecentChooser. (line 297) * gtk-recent-chooser-list-filters: GtkRecentChooser. (line 481) * gtk-recent-chooser-menu-new: GtkRecentChooserMenu. (line 47) * gtk-recent-chooser-remove-filter: GtkRecentChooser. (line 465) * gtk-recent-chooser-select-all: GtkRecentChooser. (line 400) * gtk-recent-chooser-select-uri: GtkRecentChooser. (line 364) * gtk-recent-chooser-set-current-uri: GtkRecentChooser. (line 312) * gtk-recent-chooser-set-filter: GtkRecentChooser. (line 497) * gtk-recent-chooser-set-limit: GtkRecentChooser. (line 177) * gtk-recent-chooser-set-local-only: GtkRecentChooser. (line 142) * gtk-recent-chooser-set-show-icons: GtkRecentChooser. (line 111) * gtk-recent-chooser-set-show-numbers: GtkRecentChooser. (line 240) * gtk-recent-chooser-set-show-private: GtkRecentChooser. (line 78) * gtk-recent-chooser-set-show-tips: GtkRecentChooser. (line 209) * gtk-recent-chooser-set-sort-type: GtkRecentChooser. (line 280) * gtk-recent-chooser-unselect-all: GtkRecentChooser. (line 413) * gtk-recent-chooser-unselect-uri: GtkRecentChooser. (line 385) * gtk-recent-chooser-widget-new: GtkRecentChooserWidget. (line 33) * gtk-recent-filter-add-age: GtkRecentFilter. (line 159) * gtk-recent-filter-add-application: GtkRecentFilter. (line 127) * gtk-recent-filter-add-group: GtkRecentFilter. (line 143) * gtk-recent-filter-add-mime-type: GtkRecentFilter. (line 95) * gtk-recent-filter-add-pattern: GtkRecentFilter. (line 111) * gtk-recent-filter-get-name: GtkRecentFilter. (line 61) * gtk-recent-filter-get-needed: GtkRecentFilter. (line 175) * gtk-recent-filter-new: GtkRecentFilter. (line 41) * gtk-recent-filter-set-name: GtkRecentFilter. (line 78) * gtk-recent-info-exists: GtkRecentManager. (line 617) * gtk-recent-info-get-added: GtkRecentManager. (line 420) * gtk-recent-info-get-age: GtkRecentManager. (line 586) * gtk-recent-info-get-application-info: Undocumented. (line 692) * gtk-recent-info-get-description: GtkRecentManager. (line 390) * gtk-recent-info-get-display-name: GtkRecentManager. (line 374) * gtk-recent-info-get-icon: GtkRecentManager. (line 537) * gtk-recent-info-get-mime-type: GtkRecentManager. (line 405) * gtk-recent-info-get-modified: GtkRecentManager. (line 436) * gtk-recent-info-get-private-hint: GtkRecentManager. (line 468) * gtk-recent-info-get-short-name: GtkRecentManager. (line 555) * gtk-recent-info-get-uri: GtkRecentManager. (line 359) * gtk-recent-info-get-uri-display: GtkRecentManager. (line 572) * gtk-recent-info-get-visited: GtkRecentManager. (line 452) * gtk-recent-info-has-application: GtkRecentManager. (line 518) * gtk-recent-info-has-group: GtkRecentManager. (line 499) * gtk-recent-info-is-local: GtkRecentManager. (line 602) * gtk-recent-info-last-application: GtkRecentManager. (line 484) * gtk-recent-info-match: GtkRecentManager. (line 633) * gtk-recent-manager-add-item: GtkRecentManager. (line 162) * gtk-recent-manager-get-default: GtkRecentManager. (line 107) * gtk-recent-manager-get-for-screen: GtkRecentManager. (line 122) * gtk-recent-manager-get-items: GtkRecentManager. (line 323) * gtk-recent-manager-get-limit: GtkRecentManager. (line 290) * gtk-recent-manager-has-item: GtkRecentManager. (line 240) * gtk-recent-manager-lookup-item: GtkRecentManager. (line 214) * gtk-recent-manager-move-item: GtkRecentManager. (line 260) * gtk-recent-manager-new: GtkRecentManager. (line 87) * gtk-recent-manager-purge-items: GtkRecentManager. (line 340) * gtk-recent-manager-remove-item: GtkRecentManager. (line 189) * gtk-recent-manager-set-limit: GtkRecentManager. (line 306) * gtk-recent-manager-set-screen: GtkRecentManager. (line 146) * gtk-requisition-copy: GtkWidget. (line 2732) * gtk-ruler-get-metric: GtkRuler. (line 91) * gtk-ruler-get-range: GtkRuler. (line 106) * gtk-ruler-set-metric: GtkRuler. (line 53) * gtk-ruler-set-range: GtkRuler. (line 68) * gtk-scale-get-digits: GtkScale. (line 105) * gtk-scale-get-draw-value: GtkScale. (line 118) * gtk-scale-get-layout: GtkScale. (line 145) * gtk-scale-get-layout-offsets: GtkScale. (line 163) * gtk-scale-get-value-pos: GtkScale. (line 132) * gtk-scale-set-digits: GtkScale. (line 62) * gtk-scale-set-draw-value: GtkScale. (line 79) * gtk-scale-set-value-pos: GtkScale. (line 93) * gtk-scrolled-window-get-hadjustment: GtkScrolledWindow. (line 118) * gtk-scrolled-window-get-hscrollbar: GtkScrolledWindow. (line 148) * gtk-scrolled-window-get-placement: GtkScrolledWindow. (line 290) * gtk-scrolled-window-get-shadow-type: GtkScrolledWindow. (line 306) * gtk-scrolled-window-get-vadjustment: GtkScrolledWindow. (line 133) * gtk-scrolled-window-get-vscrollbar: GtkScrolledWindow. (line 164) * gtk-scrolled-window-new: GtkScrolledWindow. (line 99) * gtk-scrolled-window-set-hadjustment: GtkScrolledWindow. (line 263) * gtk-scrolled-window-set-placement: GtkScrolledWindow. (line 206) * gtk-scrolled-window-set-policy: GtkScrolledWindow. (line 182) * gtk-scrolled-window-set-shadow-type: GtkScrolledWindow. (line 248) * gtk-scrolled-window-set-vadjustment: GtkScrolledWindow. (line 277) * gtk-scrolled-window-unset-placement: GtkScrolledWindow. (line 230) * gtk-selection-convert: Undocumented. (line 706) * gtk-selection-owner-set: Undocumented. (line 724) * gtk-selection-owner-set-for-display: Undocumented. (line 726) * gtk-separator-menu-item-new: GtkSeparatorMenuItem. (line 25) * gtk-separator-tool-item-get-draw: GtkSeparatorToolItem. (line 66) * gtk-separator-tool-item-new: GtkSeparatorToolItem. (line 37) * gtk-separator-tool-item-set-draw: GtkSeparatorToolItem. (line 48) * gtk-size-group-add-widget: GtkSizeGroup. (line 143) * gtk-size-group-get-ignore-hidden: GtkSizeGroup. (line 128) * gtk-size-group-get-mode: GtkSizeGroup. (line 97) * gtk-size-group-new: GtkSizeGroup. (line 66) * gtk-size-group-remove-widget: GtkSizeGroup. (line 161) * gtk-size-group-set-ignore-hidden: GtkSizeGroup. (line 111) * gtk-size-group-set-mode: GtkSizeGroup. (line 78) * gtk-socket-add-id: GtkSocket. (line 94) * gtk-socket-get-id: GtkSocket. (line 120) * gtk-socket-new: GtkSocket. (line 85) * gtk-spin-button-configure: GtkSpinButton. (line 132) * gtk-spin-button-get-adjustment: GtkSpinButton. (line 213) * gtk-spin-button-get-digits: GtkSpinButton. (line 387) * gtk-spin-button-get-increments: GtkSpinButton. (line 401) * gtk-spin-button-get-numeric: GtkSpinButton. (line 418) * gtk-spin-button-get-range: GtkSpinButton. (line 432) * gtk-spin-button-get-snap-to-ticks: GtkSpinButton. (line 449) * gtk-spin-button-get-value: GtkSpinButton. (line 463) * gtk-spin-button-get-value-as-int: GtkSpinButton. (line 275) * gtk-spin-button-get-wrap: GtkSpinButton. (line 476) * gtk-spin-button-new: GtkSpinButton. (line 154) * gtk-spin-button-new-with-range: GtkSpinButton. (line 174) * gtk-spin-button-set-adjustment: GtkSpinButton. (line 200) * gtk-spin-button-set-digits: GtkSpinButton. (line 226) * gtk-spin-button-set-increments: GtkSpinButton. (line 241) * gtk-spin-button-set-numeric: GtkSpinButton. (line 317) * gtk-spin-button-set-range: GtkSpinButton. (line 259) * gtk-spin-button-set-snap-to-ticks: GtkSpinButton. (line 363) * gtk-spin-button-set-update-policy: GtkSpinButton. (line 302) * gtk-spin-button-set-value: GtkSpinButton. (line 288) * gtk-spin-button-set-wrap: GtkSpinButton. (line 348) * gtk-spin-button-spin: GtkSpinButton. (line 331) * gtk-spin-button-update: GtkSpinButton. (line 377) * gtk-status-icon-get-blinking: GtkStatusIcon. (line 407) * gtk-status-icon-get-icon-name: GtkStatusIcon. (line 306) * gtk-status-icon-get-pixbuf: GtkStatusIcon. (line 267) * gtk-status-icon-get-size: GtkStatusIcon. (line 325) * gtk-status-icon-get-stock: GtkStatusIcon. (line 286) * gtk-status-icon-get-storage-type: GtkStatusIcon. (line 249) * gtk-status-icon-get-visible: GtkStatusIcon. (line 373) * gtk-status-icon-is-embedded: GtkStatusIcon. (line 423) * gtk-status-icon-new: GtkStatusIcon. (line 107) * gtk-status-icon-new-from-file: GtkStatusIcon. (line 135) * gtk-status-icon-new-from-icon-name: GtkStatusIcon. (line 169) * gtk-status-icon-new-from-pixbuf: GtkStatusIcon. (line 118) * gtk-status-icon-new-from-stock: GtkStatusIcon. (line 152) * gtk-status-icon-set-blinking: GtkStatusIcon. (line 390) * gtk-status-icon-set-from-file: GtkStatusIcon. (line 201) * gtk-status-icon-set-from-icon-name: GtkStatusIcon. (line 233) * gtk-status-icon-set-from-pixbuf: GtkStatusIcon. (line 185) * gtk-status-icon-set-from-stock: GtkStatusIcon. (line 217) * gtk-status-icon-set-tooltip: GtkStatusIcon. (line 343) * gtk-status-icon-set-visible: GtkStatusIcon. (line 358) * gtk-statusbar-get-context-id: GtkStatusbar. (line 75) * gtk-statusbar-get-has-resize-grip: GtkStatusbar. (line 158) * gtk-statusbar-new: GtkStatusbar. (line 66) * gtk-statusbar-pop: GtkStatusbar. (line 115) * gtk-statusbar-push: GtkStatusbar. (line 94) * gtk-statusbar-remove: GtkStatusbar. (line 128) * gtk-statusbar-set-has-resize-grip: GtkStatusbar. (line 145) * gtk-stock-id: Undocumented. (line 19) * gtk-stock-list-ids: Undocumented. (line 750) * gtk-table-attach: GtkTable. (line 105) * gtk-table-attach-defaults: GtkTable. (line 153) * gtk-table-get-col-spacing: GtkTable. (line 308) * gtk-table-get-default-col-spacing: GtkTable. (line 325) * gtk-table-get-default-row-spacing: GtkTable. (line 262) * gtk-table-get-homogeneous: GtkTable. (line 277) * gtk-table-get-row-spacing: GtkTable. (line 291) * gtk-table-new: GtkTable. (line 61) * gtk-table-resize: GtkTable. (line 83) * gtk-table-set-col-spacing: GtkTable. (line 201) * gtk-table-set-col-spacings: GtkTable. (line 232) * gtk-table-set-homogeneous: GtkTable. (line 246) * gtk-table-set-row-spacing: GtkTable. (line 184) * gtk-table-set-row-spacings: GtkTable. (line 218) * gtk-tearoff-menu-item-new: GtkTearoffMenuItem. (line 34) * gtk-text-attributes-copy: GtkTextTag. (line 333) * gtk-text-attributes-copy-values: GtkTextTag. (line 345) * gtk-text-attributes-new: GtkTextTag. (line 323) * gtk-text-buffer-apply-tag: GtkTextBuffer. (line 824) * gtk-text-buffer-apply-tag-by-name: GtkTextBuffer. (line 868) * gtk-text-buffer-backspace: GtkTextBuffer. (line 419) * gtk-text-buffer-begin-user-action: GtkTextBuffer. (line 1147) * gtk-text-buffer-copy-clipboard: GtkTextBuffer. (line 1117) * gtk-text-buffer-create-child-anchor: GtkTextBuffer. (line 580) * gtk-text-buffer-create-mark: GtkTextBuffer. (line 601) * gtk-text-buffer-create-tag: Undocumented. (line 21) * gtk-text-buffer-cut-clipboard: GtkTextBuffer. (line 1130) * gtk-text-buffer-delete: GtkTextBuffer. (line 368) * gtk-text-buffer-delete-interactive: GtkTextBuffer. (line 392) * gtk-text-buffer-delete-mark: GtkTextBuffer. (line 674) * gtk-text-buffer-delete-mark-by-name: GtkTextBuffer. (line 695) * gtk-text-buffer-delete-selection: GtkTextBuffer. (line 1071) * gtk-text-buffer-end-user-action: GtkTextBuffer. (line 1172) * gtk-text-buffer-get-bounds: GtkTextBuffer. (line 1018) * gtk-text-buffer-get-char-count: GtkTextBuffer. (line 206) * gtk-text-buffer-get-end-iter: GtkTextBuffer. (line 1000) * gtk-text-buffer-get-has-selection: GtkTextBuffer. (line 765) * gtk-text-buffer-get-insert: GtkTextBuffer. (line 726) * gtk-text-buffer-get-iter-at-line: GtkTextBuffer. (line 952) * gtk-text-buffer-get-iter-at-mark: GtkTextBuffer. (line 969) * gtk-text-buffer-get-iter-at-offset: GtkTextBuffer. (line 931) * gtk-text-buffer-get-line-count: GtkTextBuffer. (line 192) * gtk-text-buffer-get-mark: GtkTextBuffer. (line 709) * gtk-text-buffer-get-modified: GtkTextBuffer. (line 1036) * gtk-text-buffer-get-selection-bound: GtkTextBuffer. (line 742) * gtk-text-buffer-get-slice: GtkTextBuffer. (line 499) * gtk-text-buffer-get-start-iter: GtkTextBuffer. (line 985) * gtk-text-buffer-get-tag-table: GtkTextBuffer. (line 222) * gtk-text-buffer-get-text: GtkTextBuffer. (line 470) * gtk-text-buffer-insert: GtkTextBuffer. (line 235) * gtk-text-buffer-insert-at-cursor: GtkTextBuffer. (line 260) * gtk-text-buffer-insert-child-anchor: GtkTextBuffer. (line 553) * gtk-text-buffer-insert-interactive: GtkTextBuffer. (line 278) * gtk-text-buffer-insert-pixbuf: GtkTextBuffer. (line 529) * gtk-text-buffer-insert-range: GtkTextBuffer. (line 311) * gtk-text-buffer-insert-with-tags: GtkTextBuffer. (line 338) * gtk-text-buffer-insert-with-tags-by-name: Undocumented. (line 798) * gtk-text-buffer-move-mark: GtkTextBuffer. (line 639) * gtk-text-buffer-move-mark-by-name: GtkTextBuffer. (line 657) * gtk-text-buffer-new: GtkTextBuffer. (line 180) * gtk-text-buffer-paste-clipboard: GtkTextBuffer. (line 1095) * gtk-text-buffer-place-cursor: GtkTextBuffer. (line 780) * gtk-text-buffer-remove-all-tags: GtkTextBuffer. (line 910) * gtk-text-buffer-remove-tag: GtkTextBuffer. (line 846) * gtk-text-buffer-remove-tag-by-name: GtkTextBuffer. (line 889) * gtk-text-buffer-select-range: GtkTextBuffer. (line 799) * gtk-text-buffer-set-modified: GtkTextBuffer. (line 1052) * gtk-text-buffer-set-text: GtkTextBuffer. (line 452) * gtk-text-child-anchor-get-deleted: GtkTextView. (line 575) * gtk-text-child-anchor-get-widgets: GtkTextView. (line 561) * gtk-text-child-anchor-new: GtkTextView. (line 548) * gtk-text-iter-backward-char: GtkTextIter. (line 645) * gtk-text-iter-backward-chars: GtkTextIter. (line 680) * gtk-text-iter-backward-line: GtkTextIter. (line 715) * gtk-text-iter-backward-lines: GtkTextIter. (line 754) * gtk-text-iter-backward-search: GtkTextIter. (line 1086) * gtk-text-iter-backward-visible-line: GtkTextIter. (line 887) * gtk-text-iter-backward-word-start: GtkTextIter. (line 821) * gtk-text-iter-backward-word-starts: GtkTextIter. (line 790) * gtk-text-iter-begins-tag: GtkTextIter. (line 267) * gtk-text-iter-can-insert: GtkTextIter. (line 377) * gtk-text-iter-compare: GtkTextIter. (line 1133) * gtk-text-iter-copy: GtkTextIter. (line 38) * gtk-text-iter-editable: GtkTextIter. (line 352) * gtk-text-iter-ends-line: GtkTextIter. (line 458) * gtk-text-iter-ends-sentence: GtkTextIter. (line 492) * gtk-text-iter-ends-tag: GtkTextIter. (line 286) * gtk-text-iter-ends-word: GtkTextIter. (line 412) * gtk-text-iter-equal: GtkTextIter. (line 1114) * gtk-text-iter-forward-char: GtkTextIter. (line 627) * gtk-text-iter-forward-chars: GtkTextIter. (line 660) * gtk-text-iter-forward-line: GtkTextIter. (line 700) * gtk-text-iter-forward-lines: GtkTextIter. (line 733) * gtk-text-iter-forward-search: GtkTextIter. (line 1043) * gtk-text-iter-forward-sentence-end: GtkTextIter. (line 837) * gtk-text-iter-forward-sentence-ends: GtkTextIter. (line 853) * gtk-text-iter-forward-to-end: GtkTextIter. (line 988) * gtk-text-iter-forward-to-line-end: GtkTextIter. (line 1000) * gtk-text-iter-forward-to-tag-toggle: GtkTextIter. (line 1021) * gtk-text-iter-forward-visible-line: GtkTextIter. (line 870) * gtk-text-iter-forward-visible-lines: GtkTextIter. (line 908) * gtk-text-iter-forward-word-end: GtkTextIter. (line 805) * gtk-text-iter-forward-word-ends: GtkTextIter. (line 775) * gtk-text-iter-get-attributes: GtkTextIter. (line 562) * gtk-text-iter-get-buffer: GtkTextIter. (line 26) * gtk-text-iter-get-bytes-in-line: GtkTextIter. (line 549) * gtk-text-iter-get-char: GtkTextIter. (line 111) * gtk-text-iter-get-chars-in-line: GtkTextIter. (line 536) * gtk-text-iter-get-child-anchor: GtkTextIter. (line 253) * gtk-text-iter-get-language: GtkTextIter. (line 584) * gtk-text-iter-get-line: GtkTextIter. (line 68) * gtk-text-iter-get-line-index: GtkTextIter. (line 96) * gtk-text-iter-get-line-offset: GtkTextIter. (line 82) * gtk-text-iter-get-marks: GtkTextIter. (line 217) * gtk-text-iter-get-offset: GtkTextIter. (line 53) * gtk-text-iter-get-pixbuf: GtkTextIter. (line 204) * gtk-text-iter-get-slice: GtkTextIter. (line 129) * gtk-text-iter-get-tags: GtkTextIter. (line 337) * gtk-text-iter-get-text: GtkTextIter. (line 151) * gtk-text-iter-get-toggled-tags: GtkTextIter. (line 233) * gtk-text-iter-get-visible-slice: GtkTextIter. (line 170) * gtk-text-iter-get-visible-text: GtkTextIter. (line 187) * gtk-text-iter-has-tag: GtkTextIter. (line 322) * gtk-text-iter-in-range: GtkTextIter. (line 1153) * gtk-text-iter-inside-sentence: GtkTextIter. (line 507) * gtk-text-iter-inside-word: GtkTextIter. (line 427) * gtk-text-iter-is-cursor-position: GtkTextIter. (line 523) * gtk-text-iter-is-end: GtkTextIter. (line 599) * gtk-text-iter-is-start: GtkTextIter. (line 614) * gtk-text-iter-order: GtkTextIter. (line 1172) * gtk-text-iter-set-line: GtkTextIter. (line 944) * gtk-text-iter-set-line-index: GtkTextIter. (line 975) * gtk-text-iter-set-line-offset: GtkTextIter. (line 958) * gtk-text-iter-set-offset: GtkTextIter. (line 931) * gtk-text-iter-starts-line: GtkTextIter. (line 442) * gtk-text-iter-starts-sentence: GtkTextIter. (line 477) * gtk-text-iter-starts-word: GtkTextIter. (line 397) * gtk-text-iter-toggles-tag: GtkTextIter. (line 305) * gtk-text-mark-get-buffer: GtkTextMark. (line 116) * gtk-text-mark-get-deleted: GtkTextMark. (line 89) * gtk-text-mark-get-left-gravity: GtkTextMark. (line 130) * gtk-text-mark-get-name: GtkTextMark. (line 103) * gtk-text-mark-get-visible: GtkTextMark. (line 75) * gtk-text-mark-set-visible: GtkTextMark. (line 58) * gtk-text-tag-event: GtkTextTag. (line 302) * gtk-text-tag-get-priority: GtkTextTag. (line 265) * gtk-text-tag-new: GtkTextTag. (line 252) * gtk-text-tag-set-priority: GtkTextTag. (line 278) * gtk-text-tag-table-add: GtkTextTagTable. (line 42) * gtk-text-tag-table-get-size: GtkTextTagTable. (line 90) * gtk-text-tag-table-lookup: GtkTextTagTable. (line 74) * gtk-text-tag-table-new: GtkTextTagTable. (line 32) * gtk-text-tag-table-remove: GtkTextTagTable. (line 59) * gtk-text-view-add-child-at-anchor: GtkTextView. (line 531) * gtk-text-view-add-child-in-window: GtkTextView. (line 595) * gtk-text-view-backward-display-line: GtkTextView. (line 457) * gtk-text-view-buffer-to-window-coords: Undocumented. (line 848) * gtk-text-view-forward-display-line: GtkTextView. (line 432) * gtk-text-view-get-accepts-tab: GtkTextView. (line 929) * gtk-text-view-get-buffer: GtkTextView. (line 153) * gtk-text-view-get-cursor-visible: GtkTextView. (line 722) * gtk-text-view-get-editable: GtkTextView. (line 693) * gtk-text-view-get-indent: GtkTextView. (line 863) * gtk-text-view-get-iter-at-location: GtkTextView. (line 369) * gtk-text-view-get-iter-location: GtkTextView. (line 304) * gtk-text-view-get-justification: GtkTextView. (line 779) * gtk-text-view-get-left-margin: GtkTextView. (line 807) * gtk-text-view-get-line-at-y: GtkTextView. (line 323) * gtk-text-view-get-line-yrange: GtkTextView. (line 346) * gtk-text-view-get-overwrite: GtkTextView. (line 750) * gtk-text-view-get-right-margin: GtkTextView. (line 835) * gtk-text-view-get-tabs: GtkTextView. (line 892) * gtk-text-view-get-visible-rect: GtkTextView. (line 289) * gtk-text-view-get-window: GtkTextView. (line 392) * gtk-text-view-get-window-type: GtkTextView. (line 413) * gtk-text-view-get-wrap-mode: GtkTextView. (line 665) * gtk-text-view-move-child: GtkTextView. (line 632) * gtk-text-view-move-mark-onscreen: GtkTextView. (line 258) * gtk-text-view-move-visually: GtkTextView. (line 500) * gtk-text-view-new-with-buffer: GtkTextView. (line 119) * gtk-text-view-place-cursor-onscreen: GtkTextView. (line 275) * gtk-text-view-scroll-mark-onscreen: GtkTextView. (line 244) * gtk-text-view-scroll-to-iter: GtkTextView. (line 203) * gtk-text-view-scroll-to-mark: GtkTextView. (line 169) * gtk-text-view-set-accepts-tab: GtkTextView. (line 909) * gtk-text-view-set-buffer: GtkTextView. (line 136) * gtk-text-view-set-cursor-visible: GtkTextView. (line 707) * gtk-text-view-set-editable: GtkTextView. (line 678) * gtk-text-view-set-indent: GtkTextView. (line 849) * gtk-text-view-set-justification: GtkTextView. (line 765) * gtk-text-view-set-left-margin: GtkTextView. (line 793) * gtk-text-view-set-overwrite: GtkTextView. (line 735) * gtk-text-view-set-right-margin: GtkTextView. (line 821) * gtk-text-view-set-tabs: GtkTextView. (line 878) * gtk-text-view-set-wrap-mode: GtkTextView. (line 652) * gtk-text-view-starts-display-line: GtkTextView. (line 482) * gtk-text-view-window-to-buffer-coords: Undocumented. (line 870) * gtk-toggle-action-get-active: GtkToggleAction. (line 88) * gtk-toggle-action-get-draw-as-radio: GtkToggleAction. (line 118) * gtk-toggle-action-new: GtkToggleAction. (line 37) * gtk-toggle-action-set-active: GtkToggleAction. (line 73) * gtk-toggle-action-set-draw-as-radio: GtkToggleAction. (line 103) * gtk-toggle-action-toggled: GtkToggleAction. (line 61) * gtk-toggle-button-get-active: GtkToggleButton. (line 164) * gtk-toggle-button-get-inconsistent: GtkToggleButton. (line 194) * gtk-toggle-button-get-mode: GtkToggleButton. (line 139) * gtk-toggle-button-new: GtkToggleButton. (line 79) * gtk-toggle-button-new-with-label: GtkToggleButton. (line 89) * gtk-toggle-button-new-with-mnemonic: GtkToggleButton. (line 102) * gtk-toggle-button-set-active: GtkToggleButton. (line 179) * gtk-toggle-button-set-inconsistent: GtkToggleButton. (line 208) * gtk-toggle-button-set-mode: GtkToggleButton. (line 117) * gtk-toggle-button-toggled: GtkToggleButton. (line 153) * gtk-toggle-tool-button-get-active: GtkToggleToolButton. (line 64) * gtk-toggle-tool-button-new: GtkToggleToolButton. (line 36) * gtk-toggle-tool-button-set-active: GtkToggleToolButton. (line 47) * gtk-tool-button-get-icon-name: GtkToolButton. (line 235) * gtk-tool-button-get-icon-widget: GtkToolButton. (line 268) * gtk-tool-button-get-label: GtkToolButton. (line 123) * gtk-tool-button-get-label-widget: GtkToolButton. (line 303) * gtk-tool-button-get-stock-id: GtkToolButton. (line 200) * gtk-tool-button-get-use-underline: GtkToolButton. (line 164) * gtk-tool-button-new: GtkToolButton. (line 67) * gtk-tool-button-new-from-stock: GtkToolButton. (line 85) * gtk-tool-button-set-icon-name: GtkToolButton. (line 217) * gtk-tool-button-set-icon-widget: GtkToolButton. (line 251) * gtk-tool-button-set-label: GtkToolButton. (line 103) * gtk-tool-button-set-label-widget: GtkToolButton. (line 284) * gtk-tool-button-set-stock-id: GtkToolButton. (line 182) * gtk-tool-button-set-use-underline: GtkToolButton. (line 141) * gtk-tool-item-get-expand: GtkToolItem. (line 150) * gtk-tool-item-get-homogeneous: GtkToolItem. (line 115) * gtk-tool-item-get-icon-size: GtkToolItem. (line 297) * gtk-tool-item-get-is-important: GtkToolItem. (line 281) * gtk-tool-item-get-orientation: GtkToolItem. (line 315) * gtk-tool-item-get-proxy-menu-item: GtkToolItem. (line 388) * gtk-tool-item-get-relief-style: GtkToolItem. (line 367) * gtk-tool-item-get-toolbar-style: GtkToolItem. (line 333) * gtk-tool-item-get-use-drag-window: GtkToolItem. (line 208) * gtk-tool-item-get-visible-vertical: GtkToolItem. (line 244) * gtk-tool-item-new: GtkToolItem. (line 87) * gtk-tool-item-rebuild-menu: GtkToolItem. (line 435) * gtk-tool-item-set-expand: GtkToolItem. (line 132) * gtk-tool-item-set-homogeneous: GtkToolItem. (line 98) * gtk-tool-item-set-is-important: GtkToolItem. (line 261) * gtk-tool-item-set-proxy-menu-item: GtkToolItem. (line 416) * gtk-tool-item-set-tooltip: GtkToolItem. (line 167) * gtk-tool-item-set-use-drag-window: GtkToolItem. (line 190) * gtk-tool-item-set-visible-vertical: GtkToolItem. (line 224) * gtk-toolbar-get-drop-index: GtkToolbar. (line 166) * gtk-toolbar-get-icon-size: GtkToolbar. (line 306) * gtk-toolbar-get-item-index: GtkToolbar. (line 112) * gtk-toolbar-get-n-items: GtkToolbar. (line 131) * gtk-toolbar-get-nth-item: GtkToolbar. (line 146) * gtk-toolbar-get-orientation: GtkToolbar. (line 278) * gtk-toolbar-get-relief-style: GtkToolbar. (line 334) * gtk-toolbar-get-show-arrow: GtkToolbar. (line 262) * gtk-toolbar-get-style: GtkToolbar. (line 292) * gtk-toolbar-get-tooltips: GtkToolbar. (line 320) * gtk-toolbar-insert: GtkToolbar. (line 92) * gtk-toolbar-new: GtkToolbar. (line 83) * gtk-toolbar-set-drop-highlight-item: GtkToolbar. (line 192) * gtk-toolbar-set-orientation: GtkToolbar. (line 235) * gtk-toolbar-set-show-arrow: GtkToolbar. (line 218) * gtk-toolbar-set-style: GtkToolbar. (line 350) * gtk-toolbar-set-tooltips: GtkToolbar. (line 248) * gtk-toolbar-unset-style: GtkToolbar. (line 363) * gtk-tooltips-disable: GtkTooltips. (line 102) * gtk-tooltips-enable: GtkTooltips. (line 92) * gtk-tooltips-force-window: GtkTooltips. (line 135) * gtk-tooltips-new: GtkTooltips. (line 82) * gtk-tooltips-set-tip: GtkTooltips. (line 115) * gtk-tree-drag-source-drag-data-get: GtkTreeView drag-and-drop. (line 45) * gtk-tree-drag-source-row-draggable: GtkTreeView drag-and-drop. (line 69) * gtk-tree-iter-copy: GtkTreeModel. (line 442) * gtk-tree-model-filter-clear-cache: GtkTreeModelFilter. (line 96) * gtk-tree-model-filter-get-model: GtkTreeModelFilter. (line 68) * gtk-tree-model-filter-new: GtkTreeModelFilter. (line 49) * gtk-tree-model-filter-refilter: GtkTreeModelFilter. (line 83) * gtk-tree-model-get-column-type: GtkTreeModel. (line 485) * gtk-tree-model-get-flags: GtkTreeModel. (line 457) * gtk-tree-model-get-iter: GtkTreeModel. (line 501) * gtk-tree-model-get-iter-first: GtkTreeModel. (line 520) * gtk-tree-model-get-n-columns: GtkTreeModel. (line 472) * gtk-tree-model-get-path: GtkTreeModel. (line 538) * gtk-tree-model-get-string-from-iter: GtkTreeModel. (line 702) * gtk-tree-model-get-value: GtkTreeModel. (line 555) * gtk-tree-model-iter-children: GtkTreeModel. (line 594) * gtk-tree-model-iter-has-child: GtkTreeModel. (line 619) * gtk-tree-model-iter-n-children: GtkTreeModel. (line 635) * gtk-tree-model-iter-next: GtkTreeModel. (line 576) * gtk-tree-model-iter-nth-child: GtkTreeModel. (line 653) * gtk-tree-model-iter-parent: GtkTreeModel. (line 679) * gtk-tree-model-ref-node: GtkTreeModel. (line 722) * gtk-tree-model-row-changed: GtkTreeModel. (line 766) * gtk-tree-model-row-deleted: GtkTreeModel. (line 798) * gtk-tree-model-row-inserted: GtkTreeModel. (line 782) * gtk-tree-model-rows-reordered: GtkTreeModel. (line 816) * gtk-tree-model-sort-clear-cache: GtkTreeModelSort. (line 146) * gtk-tree-model-sort-get-model: GtkTreeModelSort. (line 133) * gtk-tree-model-sort-iter-is-valid: GtkTreeModelSort. (line 162) * gtk-tree-model-sort-new-with-model: GtkTreeModelSort. (line 120) * gtk-tree-model-unref-node: GtkTreeModel. (line 747) * gtk-tree-or-list-store-set: Undocumented. (line 23) * gtk-tree-path-append-index: GtkTreeModel. (line 256) * gtk-tree-path-copy: GtkTreeModel. (line 282) * gtk-tree-path-new-from-string: GtkTreeModel. (line 239) * gtk-tree-path-prepend-index: GtkTreeModel. (line 269) * gtk-tree-row-reference-deleted: GtkTreeModel. (line 407) * gtk-tree-row-reference-get-model: GtkTreeModel. (line 353) * gtk-tree-row-reference-get-path: GtkTreeModel. (line 367) * gtk-tree-row-reference-inserted: GtkTreeModel. (line 393) * gtk-tree-row-reference-new: GtkTreeModel. (line 294) * gtk-tree-row-reference-new-proxy: GtkTreeModel. (line 314) * gtk-tree-row-reference-reordered: GtkTreeModel. (line 422) * gtk-tree-row-reference-valid: GtkTreeModel. (line 380) * gtk-tree-selection-get-mode: GtkTreeSelection. (line 69) * gtk-tree-selection-get-selected: GtkTreeSelection. (line 97) * gtk-tree-selection-get-tree-view: GtkTreeSelection. (line 83) * gtk-tree-selection-iter-is-selected: GtkTreeSelection. (line 190) * gtk-tree-selection-path-is-selected: GtkTreeSelection. (line 145) * gtk-tree-selection-select-all: GtkTreeSelection. (line 206) * gtk-tree-selection-select-iter: GtkTreeSelection. (line 163) * gtk-tree-selection-select-path: GtkTreeSelection. (line 118) * gtk-tree-selection-select-range: GtkTreeSelection. (line 228) * gtk-tree-selection-set-mode: GtkTreeSelection. (line 54) * gtk-tree-selection-unselect-all: GtkTreeSelection. (line 217) * gtk-tree-selection-unselect-iter: GtkTreeSelection. (line 176) * gtk-tree-selection-unselect-path: GtkTreeSelection. (line 131) * gtk-tree-selection-unselect-range: GtkTreeSelection. (line 247) * gtk-tree-set-row-drag-data: GtkTreeView drag-and-drop. (line 88) * gtk-tree-store-append: GtkTreeStore. (line 195) * gtk-tree-store-clear: GtkTreeStore. (line 253) * gtk-tree-store-insert: GtkTreeStore. (line 92) * gtk-tree-store-insert-after: GtkTreeStore. (line 147) * gtk-tree-store-insert-before: GtkTreeStore. (line 119) * gtk-tree-store-is-ancestor: GtkTreeStore. (line 217) * gtk-tree-store-iter-depth: GtkTreeStore. (line 237) * gtk-tree-store-iter-is-valid: GtkTreeStore. (line 263) * gtk-tree-store-move-after: GtkTreeStore. (line 347) * gtk-tree-store-move-before: GtkTreeStore. (line 326) * gtk-tree-store-new: GtkTreeStore. (line 31) * gtk-tree-store-prepend: GtkTreeStore. (line 174) * gtk-tree-store-remove: GtkTreeStore. (line 73) * gtk-tree-store-reorder: GtkTreeStore. (line 285) * gtk-tree-store-set-value: GtkTreeStore. (line 53) * gtk-tree-store-swap: GtkTreeStore. (line 307) * gtk-tree-view-append-column: GtkTreeView. (line 380) * gtk-tree-view-collapse-all: GtkTreeView. (line 678) * gtk-tree-view-collapse-row: GtkTreeView. (line 724) * gtk-tree-view-column-add-attribute: GtkTreeViewColumn. (line 144) * gtk-tree-view-column-cell-get-position: Undocumented. (line 916) * gtk-tree-view-column-clear: GtkTreeViewColumn. (line 132) * gtk-tree-view-column-clicked: GtkTreeViewColumn. (line 351) * gtk-tree-view-column-focus-cell: GtkTreeViewColumn. (line 548) * gtk-tree-view-column-get-alignment: GtkTreeViewColumn. (line 496) * gtk-tree-view-column-get-cell-renderers: Undocumented. (line 924) * gtk-tree-view-column-get-clickable: GtkTreeViewColumn. (line 439) * gtk-tree-view-column-get-expand: GtkTreeViewColumn. (line 410) * gtk-tree-view-column-get-max-width: GtkTreeViewColumn. (line 337) * gtk-tree-view-column-get-min-width: GtkTreeViewColumn. (line 307) * gtk-tree-view-column-get-resizable: GtkTreeViewColumn. (line 239) * gtk-tree-view-column-get-sizing: GtkTreeViewColumn. (line 267) * gtk-tree-view-column-get-sort-order: GtkTreeViewColumn. (line 535) * gtk-tree-view-column-get-spacing: GtkTreeViewColumn. (line 182) * gtk-tree-view-column-get-title: GtkTreeViewColumn. (line 376) * gtk-tree-view-column-get-visible: GtkTreeViewColumn. (line 208) * gtk-tree-view-column-get-widget: GtkTreeViewColumn. (line 467) * gtk-tree-view-column-get-width: GtkTreeViewColumn. (line 280) * gtk-tree-view-column-new: GtkTreeViewColumn. (line 83) * gtk-tree-view-column-pack-end: GtkTreeViewColumn. (line 114) * gtk-tree-view-column-pack-start: GtkTreeViewColumn. (line 93) * gtk-tree-view-column-queue-resize: GtkTreeViewColumn. (line 564) * gtk-tree-view-column-set-alignment: GtkTreeViewColumn. (line 481) * gtk-tree-view-column-set-clickable: GtkTreeViewColumn. (line 425) * gtk-tree-view-column-set-expand: GtkTreeViewColumn. (line 390) * gtk-tree-view-column-set-max-width: GtkTreeViewColumn. (line 321) * gtk-tree-view-column-set-min-width: GtkTreeViewColumn. (line 293) * gtk-tree-view-column-set-resizable: GtkTreeViewColumn. (line 222) * gtk-tree-view-column-set-sizing: GtkTreeViewColumn. (line 253) * gtk-tree-view-column-set-sort-order: GtkTreeViewColumn. (line 510) * gtk-tree-view-column-set-spacing: GtkTreeViewColumn. (line 168) * gtk-tree-view-column-set-title: GtkTreeViewColumn. (line 362) * gtk-tree-view-column-set-visible: GtkTreeViewColumn. (line 195) * gtk-tree-view-column-set-widget: GtkTreeViewColumn. (line 452) * gtk-tree-view-columns-autosize: GtkTreeView. (line 305) * gtk-tree-view-create-row-drag-icon: GtkTreeView. (line 885) * gtk-tree-view-expand-all: GtkTreeView. (line 669) * gtk-tree-view-expand-row: GtkTreeView. (line 704) * gtk-tree-view-expand-to-path: GtkTreeView. (line 688) * gtk-tree-view-get-bin-window: GtkTreeView. (line 794) * gtk-tree-view-get-column: GtkTreeView. (line 437) * gtk-tree-view-get-columns: GtkTreeView. (line 455) * gtk-tree-view-get-enable-search: GtkTreeView. (line 920) * gtk-tree-view-get-enable-tree-lines: GtkTreeView. (line 1139) * gtk-tree-view-get-expander-column: GtkTreeView. (line 507) * gtk-tree-view-get-fixed-height-mode: GtkTreeView. (line 1006) * gtk-tree-view-get-grid-lines: GtkTreeView. (line 1170) * gtk-tree-view-get-hadjustment: GtkTreeView. (line 224) * gtk-tree-view-get-headers-clickable: GtkTreeView. (line 316) * gtk-tree-view-get-headers-visible: GtkTreeView. (line 280) * gtk-tree-view-get-hover-expand: GtkTreeView. (line 1073) * gtk-tree-view-get-hover-selection: GtkTreeView. (line 1040) * gtk-tree-view-get-model: GtkTreeView. (line 181) * gtk-tree-view-get-reorderable: GtkTreeView. (line 780) * gtk-tree-view-get-rubber-banding: GtkTreeView. (line 1105) * gtk-tree-view-get-rules-hint: GtkTreeView. (line 367) * gtk-tree-view-get-search-column: GtkTreeView. (line 934) * gtk-tree-view-get-search-entry: GtkTreeView. (line 969) * gtk-tree-view-get-selection: GtkTreeView. (line 211) * gtk-tree-view-get-vadjustment: GtkTreeView. (line 252) * gtk-tree-view-insert-column: GtkTreeView. (line 415) * gtk-tree-view-move-column-after: GtkTreeView. (line 471) * gtk-tree-view-new: GtkTreeView. (line 159) * gtk-tree-view-new-with-model: GtkTreeView. (line 168) * gtk-tree-view-remove-column: GtkTreeView. (line 398) * gtk-tree-view-row-activated: GtkTreeView. (line 654) * gtk-tree-view-row-expanded: GtkTreeView. (line 740) * gtk-tree-view-scroll-to-cell: GtkTreeView. (line 545) * gtk-tree-view-scroll-to-point: GtkTreeView. (line 521) * gtk-tree-view-set-cursor: GtkTreeView. (line 590) * gtk-tree-view-set-cursor-on-cell: GtkTreeView. (line 619) * gtk-tree-view-set-drag-dest-row: GtkTreeView. (line 868) * gtk-tree-view-set-enable-search: GtkTreeView. (line 902) * gtk-tree-view-set-enable-tree-lines: GtkTreeView. (line 1154) * gtk-tree-view-set-expander-column: GtkTreeView. (line 489) * gtk-tree-view-set-fixed-height-mode: GtkTreeView. (line 1021) * gtk-tree-view-set-grid-lines: GtkTreeView. (line 1186) * gtk-tree-view-set-hadjustment: GtkTreeView. (line 239) * gtk-tree-view-set-headers-clickable: GtkTreeView. (line 331) * gtk-tree-view-set-headers-visible: GtkTreeView. (line 293) * gtk-tree-view-set-hover-expand: GtkTreeView. (line 1088) * gtk-tree-view-set-hover-selection: GtkTreeView. (line 1055) * gtk-tree-view-set-model: GtkTreeView. (line 196) * gtk-tree-view-set-reorderable: GtkTreeView. (line 757) * gtk-tree-view-set-rubber-banding: GtkTreeView. (line 1122) * gtk-tree-view-set-rules-hint: GtkTreeView. (line 344) * gtk-tree-view-set-search-column: GtkTreeView. (line 947) * gtk-tree-view-set-search-entry: GtkTreeView. (line 986) * gtk-tree-view-set-vadjustment: GtkTreeView. (line 267) * gtk-tree-view-tree-to-widget-coords: GtkTreeView. (line 835) * gtk-tree-view-unset-rows-drag-dest: GtkTreeView. (line 858) * gtk-tree-view-widget-to-tree-coords: GtkTreeView. (line 811) * gtk-ui-manager-add-ui: GtkUIManager. (line 518) * gtk-ui-manager-add-ui-from-file: GtkUIManager. (line 476) * gtk-ui-manager-add-ui-from-string: GtkUIManager. (line 448) * gtk-ui-manager-ensure-update: GtkUIManager. (line 589) * gtk-ui-manager-get-accel-group: GtkUIManager. (line 358) * gtk-ui-manager-get-action: GtkUIManager. (line 427) * gtk-ui-manager-get-action-groups: GtkUIManager. (line 342) * gtk-ui-manager-get-add-tearoffs: GtkUIManager. (line 289) * gtk-ui-manager-get-toplevels: GtkUIManager. (line 406) * gtk-ui-manager-get-ui: GtkUIManager. (line 574) * gtk-ui-manager-get-widget: GtkUIManager. (line 373) * gtk-ui-manager-insert-action-group: GtkUIManager. (line 306) * gtk-ui-manager-new: GtkUIManager. (line 259) * gtk-ui-manager-new-merge-id: GtkUIManager. (line 500) * gtk-ui-manager-remove-action-group: GtkUIManager. (line 326) * gtk-ui-manager-remove-ui: GtkUIManager. (line 559) * gtk-ui-manager-set-add-tearoffs: GtkUIManager. (line 270) * gtk-vbox-new: GtkVBox. (line 30) * gtk-vbutton-box-new: GtkVButtonBox. (line 38) * gtk-viewport-get-hadjustment: GtkViewport. (line 52) * gtk-viewport-get-shadow-type: GtkViewport. (line 117) * gtk-viewport-get-vadjustment: GtkViewport. (line 65) * gtk-viewport-new: GtkViewport. (line 37) * gtk-viewport-set-hadjustment: GtkViewport. (line 78) * gtk-viewport-set-shadow-type: GtkViewport. (line 104) * gtk-viewport-set-vadjustment: GtkViewport. (line 91) * gtk-vpaned-new: GtkVPaned. (line 25) * gtk-vruler-new: GtkVRuler. (line 35) * gtk-vscale-new: GtkVScale. (line 29) * gtk-vscale-new-with-range: GtkVScale. (line 41) * gtk-vscrollbar-get-type: Undocumented. (line 948) * gtk-vscrollbar-new: GtkVScrollbar. (line 28) * gtk-vseparator-new: GtkVSeparator. (line 25) * gtk-widget-activate: GtkWidget. (line 945) * gtk-widget-add-accelerator: GtkWidget. (line 792) * gtk-widget-add-events: GtkWidget. (line 1148) * gtk-widget-add-mnemonic-label: GtkWidget. (line 2658) * gtk-widget-can-activate-accel: GtkWidget. (line 900) * gtk-widget-child-focus: GtkWidget. (line 2260) * gtk-widget-child-notify: GtkWidget. (line 2302) * gtk-widget-class-path: GtkWidget. (line 1644) * gtk-widget-create-pango-context: GtkWidget. (line 1854) * gtk-widget-create-pango-layout: GtkWidget. (line 1893) * gtk-widget-destroy: GtkWidget. (line 533) * gtk-widget-ensure-style: GtkWidget. (line 1418) * gtk-widget-event: GtkWidget. (line 923) * gtk-widget-freeze-child-notify: GtkWidget. (line 2318) * gtk-widget-get-accessible: GtkWidget. (line 2234) * gtk-widget-get-action: GtkWidget. (line 2697) * gtk-widget-get-ancestor: GtkWidget. (line 1226) * gtk-widget-get-child-requisition: GtkWidget. (line 746) * gtk-widget-get-child-visible: GtkWidget. (line 2333) * gtk-widget-get-clipboard: GtkWidget. (line 2382) * gtk-widget-get-colormap: GtkWidget. (line 1251) * gtk-widget-get-composite-name: GtkWidget. (line 1666) * gtk-widget-get-default-colormap: GtkWidget. (line 1491) * gtk-widget-get-default-direction: GtkWidget. (line 1557) * gtk-widget-get-default-style: GtkWidget. (line 1482) * gtk-widget-get-default-visual: GtkWidget. (line 1499) * gtk-widget-get-direction: GtkWidget. (line 1533) * gtk-widget-get-display: GtkWidget. (line 2407) * gtk-widget-get-events: GtkWidget. (line 1295) * gtk-widget-get-extension-events: GtkWidget. (line 1176) * gtk-widget-get-modifier-style: GtkWidget. (line 1711) * gtk-widget-get-name: GtkWidget. (line 1035) * gtk-widget-get-no-show-all: GtkWidget. (line 2617) * gtk-widget-get-pango-context: GtkWidget. (line 1869) * gtk-widget-get-parent: GtkWidget. (line 2351) * gtk-widget-get-parent-window: GtkWidget. (line 1113) * gtk-widget-get-pointer: GtkWidget. (line 1310) * gtk-widget-get-root-window: GtkWidget. (line 2428) * gtk-widget-get-screen: GtkWidget. (line 2452) * gtk-widget-get-settings: GtkWidget. (line 2364) * gtk-widget-get-size-request: GtkWidget. (line 2491) * gtk-widget-get-style: GtkWidget. (line 1431) * gtk-widget-get-toplevel: GtkWidget. (line 1190) * gtk-widget-get-visual: GtkWidget. (line 1282) * gtk-widget-grab-default: GtkWidget. (line 1001) * gtk-widget-grab-focus: GtkWidget. (line 989) * gtk-widget-has-screen: GtkWidget. (line 2473) * gtk-widget-hide: GtkWidget. (line 597) * gtk-widget-hide-all: GtkWidget. (line 617) * gtk-widget-hide-on-delete: GtkWidget. (line 1383) * gtk-widget-input-shape-combine-mask: GtkWidget. (line 1590) * gtk-widget-is-ancestor: GtkWidget. (line 1331) * gtk-widget-is-composited: GtkWidget. (line 2714) * gtk-widget-is-focus: GtkWidget. (line 974) * gtk-widget-list-accel-closures: GtkWidget. (line 882) * gtk-widget-list-mnemonic-labels: GtkWidget. (line 2634) * gtk-widget-map: GtkWidget. (line 626) * gtk-widget-mnemonic-activate: GtkWidget. (line 2157) * gtk-widget-modify-base: GtkWidget. (line 1808) * gtk-widget-modify-bg: GtkWidget. (line 1757) * gtk-widget-modify-fg: GtkWidget. (line 1737) * gtk-widget-modify-font: GtkWidget. (line 1839) * gtk-widget-modify-style: GtkWidget. (line 1681) * gtk-widget-modify-text: GtkWidget. (line 1786) * gtk-widget-path: GtkWidget. (line 1614) * gtk-widget-pop-colormap: GtkWidget. (line 1467) * gtk-widget-pop-composite-child: GtkWidget. (line 1950) * gtk-widget-push-colormap: GtkWidget. (line 1456) * gtk-widget-push-composite-child: GtkWidget. (line 1955) * gtk-widget-queue-draw: GtkWidget. (line 683) * gtk-widget-queue-draw-area: GtkWidget. (line 1979) * gtk-widget-queue-resize: GtkWidget. (line 693) * gtk-widget-queue-resize-no-redraw: GtkWidget. (line 706) * gtk-widget-realize: GtkWidget. (line 646) * gtk-widget-region-intersect: GtkWidget. (line 2167) * gtk-widget-remove-accelerator: GtkWidget. (line 826) * gtk-widget-remove-mnemonic-label: GtkWidget. (line 2678) * gtk-widget-render-icon: GtkWidget. (line 1917) * gtk-widget-reparent: GtkWidget. (line 961) * gtk-widget-reset-rc-styles: GtkWidget. (line 1443) * gtk-widget-reset-shapes: GtkWidget. (line 2019) * gtk-widget-send-expose: GtkWidget. (line 2192) * gtk-widget-set-accel-path: GtkWidget. (line 849) * gtk-widget-set-app-paintable: GtkWidget. (line 2029) * gtk-widget-set-child-visible: GtkWidget. (line 2513) * gtk-widget-set-colormap: GtkWidget. (line 1266) * gtk-widget-set-composite-name: GtkWidget. (line 2119) * gtk-widget-set-default-colormap: GtkWidget. (line 1472) * gtk-widget-set-default-direction: GtkWidget. (line 1547) * gtk-widget-set-direction: GtkWidget. (line 1509) * gtk-widget-set-double-buffered: GtkWidget. (line 2061) * gtk-widget-set-events: GtkWidget. (line 1126) * gtk-widget-set-extension-events: GtkWidget. (line 1162) * gtk-widget-set-name: GtkWidget. (line 1015) * gtk-widget-set-no-show-all: GtkWidget. (line 2597) * gtk-widget-set-parent: GtkWidget. (line 1083) * gtk-widget-set-parent-window: GtkWidget. (line 1100) * gtk-widget-set-redraw-on-allocate: GtkWidget. (line 2091) * gtk-widget-set-scroll-adjustments: GtkWidget. (line 2134) * gtk-widget-set-sensitive: GtkWidget. (line 1066) * gtk-widget-set-size-request: GtkWidget. (line 2542) * gtk-widget-set-state: GtkWidget. (line 1050) * gtk-widget-set-style: GtkWidget. (line 1402) * gtk-widget-shape-combine-mask: GtkWidget. (line 1568) * gtk-widget-show: GtkWidget. (line 566) * gtk-widget-show-all: GtkWidget. (line 607) * gtk-widget-show-now: GtkWidget. (line 585) * gtk-widget-size-allocate: GtkWidget. (line 776) * gtk-widget-size-request: GtkWidget. (line 719) * gtk-widget-style-get-property: GtkWidget. (line 2218) * gtk-widget-thaw-child-notify: GtkWidget. (line 2585) * gtk-widget-translate-coordinates: GtkWidget. (line 1350) * gtk-widget-unmap: GtkWidget. (line 636) * gtk-widget-unparent: GtkWidget. (line 555) * gtk-widget-unrealize: GtkWidget. (line 672) * gtk-window-activate-default: GtkWindow. (line 261) * gtk-window-activate-focus: GtkWindow. (line 248) * gtk-window-activate-key: GtkWindow. (line 556) * gtk-window-add-accel-group: GtkWindow. (line 220) * gtk-window-add-mnemonic: GtkWindow. (line 504) * gtk-window-begin-move-drag: GtkWindow. (line 941) * gtk-window-begin-resize-drag: GtkWindow. (line 909) * gtk-window-deiconify: GtkWindow. (line 714) * gtk-window-fullscreen: GtkWindow. (line 804) * gtk-window-get-accept-focus: GtkWindow. (line 1622) * gtk-window-get-decorated: GtkWindow. (line 1211) * gtk-window-get-default-icon-list: GtkWindow. (line 1240) * gtk-window-get-default-size: GtkWindow. (line 1251) * gtk-window-get-deletable: GtkWindow. (line 1225) * gtk-window-get-destroy-with-parent: GtkWindow. (line 1270) * gtk-window-get-focus: GtkWindow. (line 597) * gtk-window-get-focus-on-map: GtkWindow. (line 1637) * gtk-window-get-frame-dimensions: GtkWindow. (line 1285) * gtk-window-get-gravity: GtkWindow. (line 356) * gtk-window-get-group: GtkWindow. (line 1652) * gtk-window-get-has-frame: GtkWindow. (line 1319) * gtk-window-get-icon: GtkWindow. (line 1334) * gtk-window-get-icon-list: GtkWindow. (line 1348) * gtk-window-get-icon-name: GtkWindow. (line 1363) * gtk-window-get-mnemonic-modifier: GtkWindow. (line 1379) * gtk-window-get-modal: GtkWindow. (line 1393) * gtk-window-get-position: GtkWindow. (line 1407) * gtk-window-get-resizable: GtkWindow. (line 207) * gtk-window-get-role: GtkWindow. (line 1461) * gtk-window-get-screen: GtkWindow. (line 438) * gtk-window-get-size: GtkWindow. (line 1476) * gtk-window-get-skip-pager-hint: GtkWindow. (line 1592) * gtk-window-get-skip-taskbar-hint: GtkWindow. (line 1577) * gtk-window-get-title: GtkWindow. (line 1534) * gtk-window-get-transient-for: GtkWindow. (line 1549) * gtk-window-get-type-hint: GtkWindow. (line 1564) * gtk-window-get-urgency-hint: GtkWindow. (line 1607) * gtk-window-group-add-window: GtkWindowGroup. (line 32) * gtk-window-group-new: GtkWindowGroup. (line 21) * gtk-window-group-remove-window: GtkWindowGroup. (line 45) * gtk-window-has-toplevel-focus: GtkWindow. (line 474) * gtk-window-iconify: GtkWindow. (line 693) * gtk-window-is-active: GtkWindow. (line 453) * gtk-window-list-toplevels: GtkWindow. (line 490) * gtk-window-maximize: GtkWindow. (line 766) * gtk-window-mnemonic-activate: GtkWindow. (line 537) * gtk-window-move: GtkWindow. (line 1667) * gtk-window-new: GtkWindow. (line 126) * gtk-window-parse-geometry: GtkWindow. (line 1717) * gtk-window-present: GtkWindow. (line 651) * gtk-window-present-with-time: GtkWindow. (line 676) * gtk-window-propagate-key-event: GtkWindow. (line 576) * gtk-window-remove-accel-group: GtkWindow. (line 235) * gtk-window-remove-mnemonic: GtkWindow. (line 520) * gtk-window-reshow-with-initial-size: GtkWindow. (line 1796) * gtk-window-resize: GtkWindow. (line 1807) * gtk-window-set-accept-focus: GtkWindow. (line 1178) * gtk-window-set-decorated: GtkWindow. (line 969) * gtk-window-set-default: GtkWindow. (line 631) * gtk-window-set-default-icon: GtkWindow. (line 1845) * gtk-window-set-default-icon-from-file: Undocumented. (line 958) * gtk-window-set-default-icon-list: GtkWindow. (line 1832) * gtk-window-set-default-icon-name: GtkWindow. (line 1856) * gtk-window-set-default-size: GtkWindow. (line 294) * gtk-window-set-deletable: GtkWindow. (line 992) * gtk-window-set-destroy-with-parent: GtkWindow. (line 405) * gtk-window-set-focus: GtkWindow. (line 613) * gtk-window-set-focus-on-map: GtkWindow. (line 1194) * gtk-window-set-frame-dimensions: GtkWindow. (line 1016) * gtk-window-set-gravity: GtkWindow. (line 338) * gtk-window-set-has-frame: GtkWindow. (line 1044) * gtk-window-set-icon: GtkWindow. (line 1869) * gtk-window-set-icon-from-file: GtkWindow. (line 1936) * gtk-window-set-icon-list: GtkWindow. (line 1899) * gtk-window-set-icon-name: GtkWindow. (line 1960) * gtk-window-set-keep-above: GtkWindow. (line 844) * gtk-window-set-keep-below: GtkWindow. (line 876) * gtk-window-set-mnemonic-modifier: GtkWindow. (line 1070) * gtk-window-set-modal: GtkWindow. (line 276) * gtk-window-set-position: GtkWindow. (line 369) * gtk-window-set-resizable: GtkWindow. (line 193) * gtk-window-set-role: GtkWindow. (line 1082) * gtk-window-set-screen: GtkWindow. (line 421) * gtk-window-set-skip-pager-hint: GtkWindow. (line 1143) * gtk-window-set-skip-taskbar-hint: GtkWindow. (line 1127) * gtk-window-set-title: GtkWindow. (line 149) * gtk-window-set-transient-for: GtkWindow. (line 384) * gtk-window-set-type-hint: GtkWindow. (line 1107) * gtk-window-set-urgency-hint: GtkWindow. (line 1162) * gtk-window-set-wmclass: GtkWindow. (line 169) * gtk-window-stick: GtkWindow. (line 730) * gtk-window-unfullscreen: GtkWindow. (line 823) * gtk-window-unmaximize: GtkWindow. (line 787) * gtk-window-unstick: GtkWindow. (line 749) * has-item: GtkRecentManager. (line 241) * has-key: GtkPrintSettings. (line 46) * has-screen: GtkWidget. (line 2474) * has-toplevel-focus: GtkWindow. (line 475) * hide: GtkWidget. (line 598) * hide on : GtkWidget. (line 111) * hide-all: GtkWidget. (line 618) * hide-on-delete: GtkWidget. (line 1384) * hierarchy-changed on : GtkWidget. (line 132) * iconify: GtkWindow. (line 694) * input on : GtkSpinButton. (line 119) * input-shape-combine-mask: GtkWidget. (line 1591) * insert <1>: GtkToolbar. (line 93) * insert <2>: GtkMenuShell. (line 97) * insert <3>: GtkTreeStore. (line 93) * insert <4>: GtkListStore. (line 180) * insert: GtkTextBuffer. (line 236) * insert-action-group: GtkUIManager. (line 307) * insert-after <1>: GtkTreeStore. (line 148) * insert-after: GtkListStore. (line 220) * insert-at-cursor: GtkTextBuffer. (line 261) * insert-at-cursor on : GtkEntry. (line 91) * insert-at-cursor on : GtkTextView. (line 83) * insert-before <1>: GtkTreeStore. (line 120) * insert-before: GtkListStore. (line 200) * insert-child-anchor: GtkTextBuffer. (line 554) * insert-child-anchor on : GtkTextBuffer. (line 81) * insert-column: GtkTreeView. (line 416) * insert-interactive: GtkTextBuffer. (line 279) * insert-page <1>: GtkNotebook. (line 236) * insert-page: GtkAssistant. (line 181) * insert-page-menu: GtkNotebook. (line 262) * insert-pixbuf: GtkTextBuffer. (line 530) * insert-pixbuf on : GtkTextBuffer. (line 67) * insert-prefix: GtkEntryCompletion. (line 188) * insert-prefix on : GtkEntryCompletion. (line 78) * insert-range: GtkTextBuffer. (line 312) * insert-text <1>: GtkComboBox. (line 331) * insert-text: GtkEditable. (line 122) * insert-text on : GtkEditable. (line 61) * insert-text on : GtkTextBuffer. (line 53) * insert-with-tags: GtkTextBuffer. (line 339) * is-active: GtkWindow. (line 454) * is-adjusting: GtkColorSelection. (line 82) * is-ancestor <1>: GtkWidget. (line 1332) * is-ancestor: GtkTreeStore. (line 218) * is-composited: GtkWidget. (line 2715) * is-embedded: GtkStatusIcon. (line 424) * is-finished: GtkPrintOperation. (line 538) * is-focus: GtkWidget. (line 975) * is-sensitive: GtkAction. (line 158) * is-visible: GtkAction. (line 208) * item-activated: GtkIconView. (line 651) * item-activated on : GtkIconView. (line 81) * item-activated on : GtkRecentChooser. (line 71) * iter-children: GtkTreeModel. (line 595) * iter-depth: GtkTreeStore. (line 238) * iter-has-child: GtkTreeModel. (line 620) * iter-is-selected: GtkTreeSelection. (line 191) * iter-is-valid <1>: GtkTreeStore. (line 264) * iter-is-valid <2>: GtkListStore. (line 281) * iter-is-valid: GtkTreeModelSort. (line 163) * iter-n-children: GtkTreeModel. (line 636) * iter-next: GtkTreeModel. (line 577) * iter-nth-child: GtkTreeModel. (line 654) * iter-parent: GtkTreeModel. (line 680) * key-press-event on : GtkWidget. (line 215) * key-release-event on : GtkWidget. (line 218) * keynav-failed on : GtkWidget. (line 191) * keys-changed on : GtkWindow. (line 123) * leave: GtkButton. (line 193) * leave on : GtkButton. (line 92) * leave-notify-event on : GtkWidget. (line 224) * list-accel-closures: GtkWidget. (line 883) * list-actions: GtkActionGroup. (line 216) * list-filters <1>: GtkRecentChooser. (line 482) * list-filters: GtkFileChooser. (line 1053) * list-mnemonic-labels: GtkWidget. (line 2635) * lookup: GtkTextTagTable. (line 75) * lookup-item: GtkRecentManager. (line 215) * map: GtkWidget. (line 627) * map on : GtkWidget. (line 113) * map-event on : GtkWidget. (line 236) * mark-day: GtkCalendar. (line 124) * mark-deleted on : GtkTextBuffer. (line 125) * mark-set on : GtkTextBuffer. (line 117) * match-selected on : GtkEntryCompletion. (line 93) * maximize: GtkWindow. (line 767) * mnemonic-activate <1>: GtkWidget. (line 2158) * mnemonic-activate: GtkWindow. (line 538) * mnemonic-activate on : GtkWidget. (line 164) * modified-changed on : GtkTextBuffer. (line 109) * modify-base: GtkWidget. (line 1809) * modify-bg: GtkWidget. (line 1758) * modify-fg: GtkWidget. (line 1738) * modify-font: GtkWidget. (line 1840) * modify-style: GtkWidget. (line 1682) * modify-text: GtkWidget. (line 1787) * month-changed on : GtkCalendar. (line 62) * motion-notify-event on : GtkWidget. (line 188) * move <1>: GtkLayout. (line 87) * move <2>: GtkFixed. (line 85) * move: GtkWindow. (line 1668) * move-active on : GtkComboBox. (line 89) * move-after <1>: GtkTreeStore. (line 348) * move-after: GtkListStore. (line 359) * move-before <1>: GtkTreeStore. (line 327) * move-before: GtkListStore. (line 339) * move-child: GtkTextView. (line 633) * move-column-after: GtkTreeView. (line 472) * move-current on : GtkMenuShell. (line 44) * move-cursor on : GtkEntry. (line 83) * move-cursor on : GtkIconView. (line 74) * move-cursor on : GtkLabel. (line 173) * move-cursor on : GtkTextView. (line 70) * move-cursor on : GtkTreeView. (line 92) * move-focus on : GtkWidget. (line 171) * move-focus-out on : GtkNotebook. (line 86) * move-focus-out on : GtkScrolledWindow. (line 93) * move-handle on : GtkPaned. (line 81) * move-item: GtkRecentManager. (line 261) * move-mark: GtkTextBuffer. (line 640) * move-mark-by-name: GtkTextBuffer. (line 658) * move-mark-onscreen: GtkTextView. (line 259) * move-scroll on : GtkMenu. (line 80) * move-selected on : GtkMenuShell. (line 64) * move-slider on : GtkRange. (line 55) * move-viewport on : GtkTextView. (line 105) * move-visually: GtkTextView. (line 501) * new-merge-id: GtkUIManager. (line 501) * next-month on : GtkCalendar. (line 75) * next-page: GtkNotebook. (line 326) * next-year on : GtkCalendar. (line 79) * no-expose-event on : GtkWidget. (line 473) * on-get-column-type: Undocumented. (line 25) * on-get-flags: Undocumented. (line 27) * on-get-iter: Undocumented. (line 31) * on-get-n-columns: Undocumented. (line 33) * on-get-path: Undocumented. (line 35) * on-get-value: Undocumented. (line 37) * on-iter-children: Undocumented. (line 39) * on-iter-has-child: Undocumented. (line 41) * on-iter-n-children: Undocumented. (line 43) * on-iter-next: Undocumented. (line 45) * on-iter-nth-child: Undocumented. (line 47) * on-iter-parent: Undocumented. (line 49) * orientation-changed on : GtkToolbar. (line 57) * output on : GtkSpinButton. (line 121) * pack-end <1>: GtkBox. (line 112) * pack-end <2>: GtkCellLayout. (line 61) * pack-end: GtkTreeViewColumn. (line 115) * pack-end-defaults: GtkBox. (line 166) * pack-start <1>: GtkBox. (line 76) * pack-start <2>: GtkCellLayout. (line 37) * pack-start: GtkTreeViewColumn. (line 94) * pack-start-defaults: GtkBox. (line 147) * pack1: GtkPaned. (line 118) * pack2: GtkPaned. (line 137) * page-added on : GtkNotebook. (line 108) * page-horizontally on : GtkTextView. (line 102) * page-num: GtkNotebook. (line 310) * page-removed on : GtkNotebook. (line 100) * page-reordered on : GtkNotebook. (line 92) * paginate on : GtkPrintOperation. (line 156) * parent-set on : GtkWidget. (line 127) * parse-geometry: GtkWindow. (line 1718) * paste-clipboard <1>: GtkTextBuffer. (line 1096) * paste-clipboard: GtkEditable. (line 206) * paste-clipboard on : GtkEntry. (line 100) * paste-clipboard on : GtkTextView. (line 92) * path: GtkWidget. (line 1615) * path-is-selected <1>: GtkIconView. (line 582) * path-is-selected: GtkTreeSelection. (line 146) * place-cursor: GtkTextBuffer. (line 781) * place-cursor-onscreen: GtkTextView. (line 276) * plug-added on : GtkSocket. (line 73) * plug-removed on : GtkSocket. (line 78) * pop: GtkStatusbar. (line 116) * popdown <1>: GtkMenu. (line 307) * popdown: GtkComboBox. (line 417) * popdown on : GtkComboBox. (line 95) * populate-popup on : GtkEntry. (line 87) * populate-popup on : GtkLabel. (line 177) * populate-popup on : GtkTextView. (line 81) * popup <1>: GtkMenu. (line 163) * popup: GtkComboBox. (line 403) * popup on : GtkComboBox. (line 92) * popup-context-menu on : GtkToolbar. (line 66) * popup-disable: GtkNotebook. (line 432) * popup-enable: GtkNotebook. (line 421) * popup-menu on : GtkStatusIcon. (line 89) * popup-menu on : GtkWidget. (line 495) * post-activate on : GtkActionGroup. (line 90) * post-activate on : GtkUIManager. (line 234) * pre-activate on : GtkActionGroup. (line 80) * pre-activate on : GtkUIManager. (line 224) * preedit-changed on : GtkIMContext. (line 25) * preedit-end on : GtkIMContext. (line 23) * preedit-start on : GtkIMContext. (line 21) * prepare on : GtkAssistant. (line 40) * prepend <1>: GtkMenuShell. (line 83) * prepend <2>: GtkTreeStore. (line 175) * prepend: GtkListStore. (line 240) * prepend-page <1>: GtkNotebook. (line 183) * prepend-page: GtkAssistant. (line 145) * prepend-page-menu: GtkNotebook. (line 205) * prepend-text: GtkComboBox. (line 352) * present: GtkWindow. (line 652) * present-with-time: GtkWindow. (line 677) * pressed: GtkButton. (line 156) * pressed on : GtkButton. (line 70) * prev-month on : GtkCalendar. (line 73) * prev-page: GtkNotebook. (line 336) * prev-year on : GtkCalendar. (line 77) * preview on : GtkPrintOperation. (line 283) * propagate-expose: GtkContainer. (line 409) * propagate-key-event: GtkWindow. (line 577) * property-notify-event on : GtkWidget. (line 242) * proximity-in-event on : GtkWidget. (line 260) * proximity-out-event on : GtkWidget. (line 263) * pulse: GtkProgressBar. (line 103) * purge-items: GtkRecentManager. (line 341) * push: GtkStatusbar. (line 95) * put <1>: GtkLayout. (line 67) * put: GtkFixed. (line 66) * query-tooltip on : GtkWidget. (line 492) * queue-draw: GtkWidget. (line 684) * queue-draw-area: GtkWidget. (line 1980) * queue-resize <1>: GtkWidget. (line 694) * queue-resize: GtkTreeViewColumn. (line 565) * queue-resize-no-redraw: GtkWidget. (line 707) * ready on : GtkPrintOperation. (line 312) * realize: GtkWidget. (line 647) * realize on : GtkWidget. (line 117) * rebuild-menu: GtkToolItem. (line 436) * ref-node: GtkTreeModel. (line 723) * refetch: GtkAccelLabel. (line 148) * refilter: GtkTreeModelFilter. (line 84) * region-intersect: GtkWidget. (line 2168) * released: GtkButton. (line 165) * released on : GtkButton. (line 76) * remove <1>: GtkContainer. (line 154) * remove <2>: GtkTreeStore. (line 74) * remove <3>: GtkListStore. (line 162) * remove <4>: GtkTextTagTable. (line 60) * remove: GtkStatusbar. (line 129) * remove on : GtkContainer. (line 125) * remove-accel-group: GtkWindow. (line 236) * remove-accelerator: GtkWidget. (line 827) * remove-action: GtkActionGroup. (line 251) * remove-action-group: GtkUIManager. (line 327) * remove-action-widget: GtkAssistant. (line 409) * remove-all-tags: GtkTextBuffer. (line 911) * remove-column: GtkTreeView. (line 399) * remove-filter <1>: GtkRecentChooser. (line 466) * remove-filter: GtkFileChooser. (line 1037) * remove-item: GtkRecentManager. (line 190) * remove-mnemonic: GtkWindow. (line 521) * remove-mnemonic-label: GtkWidget. (line 2679) * remove-page: GtkNotebook. (line 296) * remove-submenu: GtkMenuItem. (line 141) * remove-tag: GtkTextBuffer. (line 847) * remove-tag on : GtkTextBuffer. (line 146) * remove-tag-by-name: GtkTextBuffer. (line 890) * remove-text: GtkComboBox. (line 369) * remove-ui: GtkUIManager. (line 560) * remove-widget <1>: GtkSizeGroup. (line 162) * remove-widget: GtkCellEditable. (line 56) * remove-widget on : GtkCellEditable. (line 26) * remove-window: GtkWindowGroup. (line 46) * render: GtkCellRenderer. (line 142) * render-icon: GtkWidget. (line 1918) * reorder <1>: GtkTreeStore. (line 286) * reorder <2>: GtkListStore. (line 302) * reorder: GtkCellLayout. (line 84) * reorder-child <1>: GtkBox. (line 238) * reorder-child <2>: GtkNotebook. (line 347) * reorder-child: GtkMenu. (line 108) * reorder-tab on : GtkNotebook. (line 89) * reparent: GtkWidget. (line 962) * reposition: GtkMenu. (line 316) * request-page-setup on : GtkPrintOperation. (line 175) * reset <1>: GtkCurve. (line 71) * reset: GtkIMContext. (line 93) * reset-rc-styles: GtkWidget. (line 1444) * reset-shapes: GtkWidget. (line 2020) * reshow-with-initial-size: GtkWindow. (line 1797) * resize <1>: GtkTable. (line 84) * resize: GtkWindow. (line 1808) * resize-children: GtkContainer. (line 309) * response: GtkDialog. (line 172) * response on : GtkDialog. (line 107) * retrieve-surrounding on : GtkIMContext. (line 29) * row-activated: GtkTreeView. (line 655) * row-activated on : GtkTreeView. (line 102) * row-changed: GtkTreeModel. (line 767) * row-changed on : GtkTreeModel. (line 177) * row-collapsed on : GtkTreeView. (line 134) * row-deleted: GtkTreeModel. (line 799) * row-deleted on : GtkTreeModel. (line 197) * row-draggable: GtkTreeView drag-and-drop. (line 70) * row-expanded: GtkTreeView. (line 741) * row-expanded on : GtkTreeView. (line 129) * row-has-child-toggled on : GtkTreeModel. (line 192) * row-inserted: GtkTreeModel. (line 783) * row-inserted on : GtkTreeModel. (line 182) * rows-reordered: GtkTreeModel. (line 817) * rows-reordered on : GtkTreeModel. (line 211) * run <1>: GtkPrintOperation. (line 427) * run: GtkDialog. (line 118) * screen-changed on : GtkWidget. (line 510) * scroll-child on : GtkScrolledWindow. (line 96) * scroll-event on : GtkWidget. (line 185) * scroll-mark-onscreen: GtkTextView. (line 245) * scroll-to-cell: GtkTreeView. (line 546) * scroll-to-iter: GtkTextView. (line 204) * scroll-to-mark: GtkTextView. (line 170) * scroll-to-path: GtkIconView. (line 667) * scroll-to-point: GtkTreeView. (line 522) * select <1>: GtkItem. (line 37) * select: GtkMenuItem. (line 150) * select on : GtkItem. (line 24) * select-all <1>: GtkRecentChooser. (line 401) * select-all <2>: GtkFileChooser. (line 702) * select-all <3>: GtkIconView. (line 627) * select-all: GtkTreeSelection. (line 207) * select-all on : GtkIconView. (line 83) * select-all on : GtkTextView. (line 99) * select-all on : GtkTreeView. (line 97) * select-cursor-item on : GtkIconView. (line 87) * select-cursor-parent on : GtkTreeView. (line 155) * select-cursor-row on : GtkTreeView. (line 147) * select-day: GtkCalendar. (line 110) * select-filename: GtkFileChooser. (line 665) * select-first: GtkMenuShell. (line 138) * select-item: GtkMenuShell. (line 125) * select-iter: GtkTreeSelection. (line 164) * select-month: GtkCalendar. (line 91) * select-page on : GtkNotebook. (line 80) * select-path <1>: GtkIconView. (line 552) * select-path: GtkTreeSelection. (line 119) * select-range <1>: GtkTreeSelection. (line 229) * select-range: GtkTextBuffer. (line 800) * select-region <1>: GtkEditable. (line 83) * select-region: GtkLabel. (line 477) * select-uri <1>: GtkRecentChooser. (line 365) * select-uri: GtkFileChooser. (line 868) * selection-changed on : GtkFileChooser. (line 376) * selection-changed on : GtkIconView. (line 76) * selection-changed on : GtkRecentChooser. (line 62) * selection-clear-event on : GtkWidget. (line 245) * selection-done on : GtkMenuShell. (line 38) * selection-get on : GtkWidget. (line 257) * selection-notify-event on : GtkWidget. (line 251) * selection-received on : GtkWidget. (line 254) * selection-request-event on : GtkWidget. (line 248) * send-expose: GtkWidget. (line 2193) * set <1>: GtkArrow. (line 60) * set <2>: GtkPrintSettings. (line 82) * set <3>: GtkAspectFrame. (line 74) * set: GtkAlignment. (line 97) * set-above-child: GtkEventBox. (line 45) * set-accel-closure: GtkAccelLabel. (line 91) * set-accel-group <1>: GtkAction. (line 493) * set-accel-group: GtkMenu. (line 205) * set-accel-path <1>: GtkWidget. (line 850) * set-accel-path <2>: GtkAction. (line 460) * set-accel-path <3>: GtkMenuItem. (line 114) * set-accel-path: GtkMenu. (line 236) * set-accel-widget: GtkAccelLabel. (line 120) * set-accept-focus: GtkWindow. (line 1179) * set-accepts-tab: GtkTextView. (line 910) * set-action: GtkFileChooser. (line 463) * set-activates-default: GtkEntry. (line 244) * set-active <1>: GtkToggleAction. (line 74) * set-active <2>: GtkToggleToolButton. (line 48) * set-active <3>: GtkCheckMenuItem. (line 82) * set-active <4>: GtkMenu. (line 342) * set-active <5>: GtkComboBox. (line 211) * set-active <6>: GtkCellRendererToggle. (line 109) * set-active: GtkToggleButton. (line 180) * set-active-iter: GtkComboBox. (line 245) * set-add-tearoffs <1>: GtkUIManager. (line 271) * set-add-tearoffs: GtkComboBox. (line 450) * set-adjustment <1>: GtkRange. (line 119) * set-adjustment: GtkSpinButton. (line 201) * set-alignment <1>: GtkMisc. (line 52) * set-alignment <2>: GtkTreeViewColumn. (line 482) * set-alignment <3>: GtkEntry. (line 333) * set-alignment: GtkButton. (line 358) * set-allow-async: GtkPrintOperation. (line 331) * set-alpha: GtkColorButton. (line 114) * set-anchor on : GtkTextView. (line 107) * set-angle: GtkLabel. (line 845) * set-app-paintable: GtkWidget. (line 2030) * set-attributes: GtkLabel. (line 208) * set-background-color: GtkCellView. (line 172) * set-blinking: GtkStatusIcon. (line 391) * set-bool: GtkPrintSettings. (line 137) * set-border-width: GtkContainer. (line 386) * set-bottom-margin: GtkPageSetup. (line 189) * set-buffer: GtkTextView. (line 137) * set-cairo-context: GtkPrintContext. (line 105) * set-child-packing: GtkBox. (line 264) * set-child-secondary: GtkButtonBox. (line 100) * set-child-visible: GtkWidget. (line 2514) * set-clickable: GtkTreeViewColumn. (line 426) * set-client-window: GtkIMContext. (line 36) * set-col-spacing: GtkTable. (line 202) * set-col-spacings: GtkTable. (line 233) * set-collate: GtkPrintSettings. (line 494) * set-color: GtkColorButton. (line 83) * set-colormap: GtkWidget. (line 1267) * set-column-spacing: GtkIconView. (line 490) * set-columns: GtkIconView. (line 364) * set-completion: GtkEntry. (line 451) * set-composite-name: GtkWidget. (line 2120) * set-copyright: GtkAboutDialog. (line 180) * set-current-folder: GtkFileChooser. (line 746) * set-current-name: GtkFileChooser. (line 567) * set-current-page <1>: GtkNotebook. (line 816) * set-current-page: GtkAssistant. (line 92) * set-current-uri: GtkRecentChooser. (line 313) * set-current-value: GtkRadioAction. (line 139) * set-cursor <1>: GtkIconView. (line 273) * set-cursor: GtkTreeView. (line 591) * set-cursor-location: GtkIMContext. (line 105) * set-cursor-on-cell: GtkTreeView. (line 620) * set-cursor-visible: GtkTextView. (line 708) * set-decorated: GtkWindow. (line 970) * set-default: GtkWindow. (line 632) * set-default-response: GtkDialog. (line 246) * set-default-size: GtkWindow. (line 295) * set-deletable: GtkWindow. (line 993) * set-destroy-with-parent: GtkWindow. (line 406) * set-digits <1>: GtkScale. (line 63) * set-digits: GtkSpinButton. (line 227) * set-direction: GtkWidget. (line 1510) * set-display-options: GtkCalendar. (line 165) * set-displayed-row: GtkCellView. (line 114) * set-dither: GtkPrintSettings. (line 798) * set-double: GtkPrintSettings. (line 174) * set-double-buffered: GtkWidget. (line 2062) * set-drag-dest-item: GtkIconView. (line 759) * set-drag-dest-row: GtkTreeView. (line 869) * set-draw: GtkSeparatorToolItem. (line 49) * set-draw-as-radio: GtkToggleAction. (line 104) * set-draw-value: GtkScale. (line 80) * set-drop-highlight-item: GtkToolbar. (line 193) * set-duplex: GtkPrintSettings. (line 554) * set-editable <1>: GtkTextView. (line 679) * set-editable: GtkEditable. (line 262) * set-ellipsize <1>: GtkProgressBar. (line 173) * set-ellipsize: GtkLabel. (line 300) * set-enable-search: GtkTreeView. (line 903) * set-enable-tree-lines: GtkTreeView. (line 1155) * set-events: GtkWidget. (line 1127) * set-expand <1>: GtkToolItem. (line 133) * set-expand: GtkTreeViewColumn. (line 391) * set-expanded: GtkExpander. (line 122) * set-expander-column: GtkTreeView. (line 490) * set-extension-events: GtkWidget. (line 1163) * set-extra-widget: GtkFileChooser. (line 985) * set-filename <1>: GtkFileChooser. (line 612) * set-filename: GtkFileSelection. (line 117) * set-filter <1>: GtkRecentChooser. (line 498) * set-filter: GtkFileChooser. (line 1072) * set-finishings: GtkPrintSettings. (line 828) * set-fixed-height-mode: GtkTreeView. (line 1022) * set-fixed-size: GtkCellRenderer. (line 311) * set-focus: GtkWindow. (line 614) * set-focus on : GtkWindow. (line 114) * set-focus-chain: GtkContainer. (line 439) * set-focus-child: GtkContainer. (line 227) * set-focus-child on : GtkContainer. (line 129) * set-focus-hadjustment: GtkContainer. (line 287) * set-focus-on-click <1>: GtkComboBox. (line 510) * set-focus-on-click: GtkButton. (line 323) * set-focus-on-map: GtkWindow. (line 1195) * set-focus-vadjustment: GtkContainer. (line 249) * set-font-name <1>: GtkFontSelection. (line 76) * set-font-name: GtkFontButton. (line 82) * set-fraction: GtkProgressBar. (line 130) * set-frame-dimensions: GtkWindow. (line 1017) * set-from-animation: GtkImage. (line 449) * set-from-file <1>: GtkStatusIcon. (line 202) * set-from-file: GtkImage. (line 359) * set-from-icon-name <1>: GtkStatusIcon. (line 234) * set-from-icon-name: GtkImage. (line 463) * set-from-icon-set: GtkImage. (line 372) * set-from-image: GtkImage. (line 388) * set-from-pixbuf <1>: GtkStatusIcon. (line 186) * set-from-pixbuf: GtkImage. (line 404) * set-from-pixmap: GtkImage. (line 417) * set-from-stock <1>: GtkStatusIcon. (line 218) * set-from-stock: GtkImage. (line 433) * set-gamma: GtkCurve. (line 82) * set-gravity: GtkWindow. (line 339) * set-grid-lines: GtkTreeView. (line 1187) * set-group <1>: GtkRadioAction. (line 108) * set-group <2>: GtkRadioToolButton. (line 70) * set-group <3>: GtkRadioMenuItem. (line 96) * set-group: GtkRadioButton. (line 167) * set-group-id: GtkNotebook. (line 835) * set-hadjustment <1>: GtkViewport. (line 79) * set-hadjustment <2>: GtkScrolledWindow. (line 264) * set-hadjustment <3>: GtkLayout. (line 178) * set-hadjustment: GtkTreeView. (line 240) * set-handle-position: GtkHandleBox. (line 93) * set-has-frame <1>: GtkEntry. (line 265) * set-has-frame: GtkWindow. (line 1045) * set-has-palette: GtkColorSelection. (line 56) * set-has-resize-grip: GtkStatusbar. (line 146) * set-has-separator: GtkDialog. (line 261) * set-has-window: GtkFixed. (line 118) * set-headers-clickable: GtkTreeView. (line 332) * set-headers-visible: GtkTreeView. (line 294) * set-homogeneous <1>: GtkBox. (line 199) * set-homogeneous <2>: GtkTable. (line 247) * set-homogeneous: GtkToolItem. (line 99) * set-hover-expand: GtkTreeView. (line 1089) * set-hover-selection: GtkTreeView. (line 1056) * set-icon: GtkWindow. (line 1870) * set-icon-from-file: GtkWindow. (line 1937) * set-icon-list: GtkWindow. (line 1900) * set-icon-name <1>: GtkToolButton. (line 218) * set-icon-name: GtkWindow. (line 1961) * set-icon-widget: GtkToolButton. (line 252) * set-ignore-hidden: GtkSizeGroup. (line 112) * set-image <1>: GtkImageMenuItem. (line 33) * set-image <2>: GtkButton. (line 397) * set-image: GtkMessageDialog. (line 98) * set-image-position: GtkButton. (line 432) * set-inconsistent: GtkToggleButton. (line 209) * set-increments <1>: GtkRange. (line 194) * set-increments: GtkSpinButton. (line 242) * set-indent: GtkTextView. (line 850) * set-inner-border: GtkEntry. (line 278) * set-int: GtkPrintSettings. (line 255) * set-inverted: GtkRange. (line 152) * set-invisible-char: GtkEntry. (line 154) * set-is-important: GtkToolItem. (line 262) * set-item-width: GtkIconView. (line 396) * set-job-name: GtkPrintOperation. (line 366) * set-justification: GtkTextView. (line 766) * set-justify: GtkLabel. (line 282) * set-keep-above: GtkWindow. (line 845) * set-keep-below: GtkWindow. (line 877) * set-label <1>: GtkFrame. (line 58) * set-label <2>: GtkExpander. (line 188) * set-label <3>: GtkToolButton. (line 104) * set-label <4>: GtkButton. (line 249) * set-label: GtkLabel. (line 788) * set-label-align: GtkFrame. (line 86) * set-label-widget <1>: GtkFrame. (line 72) * set-label-widget <2>: GtkExpander. (line 289) * set-label-widget: GtkToolButton. (line 285) * set-layout: GtkButtonBox. (line 86) * set-left-margin <1>: GtkPageSetup. (line 225) * set-left-margin: GtkTextView. (line 794) * set-length: GtkPrintSettings. (line 216) * set-license: GtkAboutDialog. (line 212) * set-limit <1>: GtkRecentChooser. (line 178) * set-limit: GtkRecentManager. (line 307) * set-line-wrap: GtkLabel. (line 345) * set-line-wrap-mode: GtkLabel. (line 367) * set-local-only <1>: GtkRecentChooser. (line 143) * set-local-only: GtkFileChooser. (line 498) * set-logo: GtkAboutDialog. (line 338) * set-logo-icon-name: GtkAboutDialog. (line 372) * set-margin: GtkIconView. (line 521) * set-markup <1>: GtkLabel. (line 223) * set-markup: GtkMessageDialog. (line 82) * set-markup-column: GtkIconView. (line 184) * set-markup-with-mnemonic: GtkLabel. (line 246) * set-max-length: GtkEntry. (line 172) * set-max-width: GtkTreeViewColumn. (line 322) * set-max-width-chars: GtkLabel. (line 331) * set-media-type: GtkPrintSettings. (line 766) * set-menu: GtkMenuToolButton. (line 71) * set-menu-label: GtkNotebook. (line 524) * set-menu-label-text: GtkNotebook. (line 540) * set-metric: GtkRuler. (line 54) * set-min-width: GtkTreeViewColumn. (line 294) * set-mnemonic-modifier: GtkWindow. (line 1071) * set-mnemonic-widget: GtkLabel. (line 496) * set-modal: GtkWindow. (line 277) * set-mode <1>: GtkSizeGroup. (line 79) * set-mode <2>: GtkTreeSelection. (line 55) * set-mode: GtkToggleButton. (line 118) * set-model <1>: GtkComboBox. (line 277) * set-model <2>: GtkIconView. (line 119) * set-model <3>: GtkCellView. (line 97) * set-model <4>: GtkTreeView. (line 197) * set-model: GtkEntryCompletion. (line 140) * set-modified: GtkTextBuffer. (line 1053) * set-monitor: GtkMenu. (line 412) * set-n-copies: GtkPrintSettings. (line 614) * set-n-pages: GtkPrintOperation. (line 385) * set-name <1>: GtkRecentFilter. (line 79) * set-name <2>: GtkWidget. (line 1016) * set-name <3>: GtkFileFilter. (line 57) * set-name: GtkAboutDialog. (line 117) * set-no-show-all: GtkWidget. (line 2598) * set-number-up: GtkPrintSettings. (line 644) * set-numeric: GtkSpinButton. (line 318) * set-orientation <1>: GtkPageSetup. (line 87) * set-orientation <2>: GtkPrintSettings. (line 323) * set-orientation <3>: GtkToolbar. (line 236) * set-orientation <4>: GtkIconView. (line 332) * set-orientation: GtkProgressBar. (line 159) * set-output-bin: GtkPrintSettings. (line 858) * set-overwrite: GtkTextView. (line 736) * set-pack-direction: GtkMenuBar. (line 44) * set-padding <1>: GtkMisc. (line 68) * set-padding: GtkAlignment. (line 158) * set-page-complete: GtkAssistant. (line 357) * set-page-header-image: GtkAssistant. (line 278) * set-page-set: GtkPrintSettings. (line 734) * set-page-side-image: GtkAssistant. (line 318) * set-page-title: GtkAssistant. (line 240) * set-page-type: GtkAssistant. (line 203) * set-paper-height: GtkPrintSettings. (line 431) * set-paper-size <1>: GtkPageSetup. (line 117) * set-paper-size: GtkPrintSettings. (line 354) * set-paper-width: GtkPrintSettings. (line 392) * set-parent: GtkWidget. (line 1084) * set-parent-window: GtkWidget. (line 1101) * set-pattern: GtkLabel. (line 266) * set-pixbuf-column: GtkIconView. (line 217) * set-pixel-size: GtkImage. (line 500) * set-placement: GtkScrolledWindow. (line 207) * set-policy: GtkScrolledWindow. (line 183) * set-position <1>: GtkPaned. (line 186) * set-position <2>: GtkEditable. (line 227) * set-position: GtkWindow. (line 370) * set-preview-text: GtkFontSelection. (line 111) * set-preview-widget: GtkFileChooser. (line 924) * set-printer: GtkPrintSettings. (line 289) * set-priority: GtkTextTag. (line 279) * set-proxy-menu-item: GtkToolItem. (line 417) * set-pulse-step: GtkProgressBar. (line 144) * set-quality: GtkPrintSettings. (line 584) * set-radio: GtkCellRendererToggle. (line 76) * set-range <1>: GtkRuler. (line 69) * set-range <2>: GtkCurve. (line 100) * set-range <3>: GtkRange. (line 213) * set-range: GtkSpinButton. (line 260) * set-redraw-on-allocate: GtkWidget. (line 2092) * set-relief: GtkButton. (line 203) * set-reorderable <1>: GtkIconView. (line 718) * set-reorderable: GtkTreeView. (line 758) * set-resizable <1>: GtkTreeViewColumn. (line 223) * set-resizable: GtkWindow. (line 194) * set-resize-mode: GtkContainer. (line 189) * set-resolution: GtkPrintSettings. (line 674) * set-response-sensitive: GtkDialog. (line 275) * set-reverse: GtkPrintSettings. (line 524) * set-right-justified: GtkMenuItem. (line 83) * set-right-margin <1>: GtkPageSetup. (line 261) * set-right-margin: GtkTextView. (line 822) * set-role: GtkWindow. (line 1083) * set-row-spacing <1>: GtkTable. (line 185) * set-row-spacing: GtkIconView. (line 459) * set-row-spacings: GtkTable. (line 219) * set-row-span-column: GtkComboBox. (line 174) * set-rubber-banding: GtkTreeView. (line 1123) * set-rules-hint: GtkTreeView. (line 345) * set-scale: GtkPrintSettings. (line 704) * set-screen <1>: GtkRecentManager. (line 147) * set-screen <2>: GtkMenu. (line 92) * set-screen <3>: GtkWindow. (line 422) * set-screen: GtkInvisible. (line 56) * set-scroll-adjustments: GtkWidget. (line 2135) * set-scroll-adjustments on : GtkIconView. (line 79) * set-scroll-adjustments on : GtkLayout. (line 46) * set-scroll-adjustments on : GtkTextView. (line 97) * set-scroll-adjustments on : GtkTreeView. (line 95) * set-scroll-adjustments on : GtkViewport. (line 34) * set-scrollable: GtkNotebook. (line 408) * set-search-column: GtkTreeView. (line 948) * set-search-entry: GtkTreeView. (line 987) * set-selectable: GtkLabel. (line 522) * set-selection-mode: GtkIconView. (line 302) * set-sensitive <1>: GtkWidget. (line 1067) * set-sensitive <2>: GtkAction. (line 191) * set-sensitive: GtkActionGroup. (line 150) * set-shadow-type <1>: GtkViewport. (line 105) * set-shadow-type <2>: GtkHandleBox. (line 79) * set-shadow-type <3>: GtkScrolledWindow. (line 249) * set-shadow-type: GtkFrame. (line 106) * set-show-arrow: GtkToolbar. (line 219) * set-show-border: GtkNotebook. (line 393) * set-show-hidden: GtkFileChooser. (line 535) * set-show-icons: GtkRecentChooser. (line 112) * set-show-numbers: GtkRecentChooser. (line 241) * set-show-private: GtkRecentChooser. (line 79) * set-show-size: GtkFontButton. (line 148) * set-show-style: GtkFontButton. (line 116) * set-show-tabs: GtkNotebook. (line 380) * set-show-tips: GtkRecentChooser. (line 210) * set-single-line-mode: GtkLabel. (line 831) * set-size: GtkLayout. (line 106) * set-size-request: GtkWidget. (line 2543) * set-sizing: GtkTreeViewColumn. (line 254) * set-skip-pager-hint: GtkWindow. (line 1144) * set-skip-taskbar-hint: GtkWindow. (line 1128) * set-snap-edge: GtkHandleBox. (line 106) * set-snap-to-ticks: GtkSpinButton. (line 364) * set-sort-order: GtkTreeViewColumn. (line 511) * set-sort-type: GtkRecentChooser. (line 281) * set-spacing <1>: GtkBox. (line 225) * set-spacing <2>: GtkExpander. (line 157) * set-spacing <3>: GtkIconView. (line 428) * set-spacing: GtkTreeViewColumn. (line 169) * set-state: GtkWidget. (line 1051) * set-stock-id: GtkToolButton. (line 183) * set-style <1>: GtkWidget. (line 1403) * set-style: GtkToolbar. (line 351) * set-submenu: GtkMenuItem. (line 101) * set-surrounding: GtkIMContext. (line 135) * set-tab-detachable: GtkNotebook. (line 634) * set-tab-label: GtkNotebook. (line 556) * set-tab-label-packing: GtkNotebook. (line 574) * set-tab-label-text: GtkNotebook. (line 598) * set-tab-pos: GtkNotebook. (line 366) * set-tab-reorderable: GtkNotebook. (line 615) * set-tabs: GtkTextView. (line 879) * set-take-focus: GtkMenuShell. (line 194) * set-tearoff-state: GtkMenu. (line 357) * set-text <1>: GtkTextBuffer. (line 453) * set-text <2>: GtkEntry. (line 105) * set-text <3>: GtkProgressBar. (line 117) * set-text: GtkLabel. (line 192) * set-text-column <1>: GtkComboBoxEntry. (line 103) * set-text-column: GtkIconView. (line 153) * set-text-with-mnemonic: GtkLabel. (line 536) * set-tip: GtkTooltips. (line 116) * set-title <1>: GtkFontButton. (line 241) * set-title <2>: GtkFileChooserButton. (line 100) * set-title <3>: GtkColorButton. (line 175) * set-title <4>: GtkMenu. (line 264) * set-title <5>: GtkComboBox. (line 478) * set-title <6>: GtkTreeViewColumn. (line 363) * set-title: GtkWindow. (line 150) * set-tooltip <1>: GtkToolItem. (line 168) * set-tooltip: GtkStatusIcon. (line 344) * set-tooltip on : GtkToolItem. (line 81) * set-tooltips: GtkToolbar. (line 249) * set-top-margin: GtkPageSetup. (line 151) * set-transient-for: GtkWindow. (line 385) * set-type-hint: GtkWindow. (line 1108) * set-unit: GtkPrintOperation. (line 408) * set-update-policy <1>: GtkRange. (line 98) * set-update-policy: GtkSpinButton. (line 303) * set-urgency-hint: GtkWindow. (line 1163) * set-uri <1>: GtkFileChooser. (line 817) * set-uri: GtkLinkButton. (line 91) * set-use-alpha: GtkColorButton. (line 144) * set-use-color: GtkPrintSettings. (line 464) * set-use-drag-window: GtkToolItem. (line 191) * set-use-font: GtkFontButton. (line 179) * set-use-markup <1>: GtkExpander. (line 257) * set-use-markup: GtkLabel. (line 803) * set-use-preedit: GtkIMContext. (line 119) * set-use-size: GtkFontButton. (line 210) * set-use-stock: GtkButton. (line 280) * set-use-underline <1>: GtkExpander. (line 224) * set-use-underline <2>: GtkToolButton. (line 142) * set-use-underline <3>: GtkButton. (line 309) * set-use-underline: GtkLabel. (line 817) * set-vadjustment <1>: GtkViewport. (line 92) * set-vadjustment <2>: GtkScrolledWindow. (line 278) * set-vadjustment <3>: GtkLayout. (line 194) * set-vadjustment: GtkTreeView. (line 268) * set-value <1>: GtkRange. (line 230) * set-value <2>: GtkAdjustment. (line 110) * set-value <3>: GtkTreeStore. (line 54) * set-value <4>: GtkListStore. (line 142) * set-value: GtkSpinButton. (line 289) * set-value-pos: GtkScale. (line 94) * set-version: GtkAboutDialog. (line 149) * set-visibility: GtkEntry. (line 134) * set-visible <1>: GtkAction. (line 241) * set-visible <2>: GtkActionGroup. (line 183) * set-visible <3>: GtkTreeViewColumn. (line 196) * set-visible <4>: GtkTextMark. (line 59) * set-visible: GtkStatusIcon. (line 359) * set-visible-vertical: GtkToolItem. (line 225) * set-visible-window: GtkEventBox. (line 84) * set-website: GtkAboutDialog. (line 274) * set-website-label: GtkAboutDialog. (line 305) * set-widget: GtkTreeViewColumn. (line 453) * set-width-chars <1>: GtkEntry. (line 300) * set-width-chars: GtkLabel. (line 316) * set-wmclass: GtkWindow. (line 170) * set-wrap: GtkSpinButton. (line 349) * set-wrap-license: GtkAboutDialog. (line 243) * set-wrap-mode: GtkTextView. (line 653) * set-wrap-width: GtkComboBox. (line 142) * shape-combine-mask: GtkWidget. (line 1569) * show: GtkWidget. (line 567) * show on : GtkWidget. (line 109) * show-all: GtkWidget. (line 608) * show-help on : GtkWidget. (line 506) * show-menu on : GtkMenuToolButton. (line 33) * show-now: GtkWidget. (line 586) * size-allocate: GtkWidget. (line 777) * size-allocate on : GtkWidget. (line 123) * size-changed on : GtkStatusIcon. (line 81) * size-request: GtkWidget. (line 720) * size-request on : GtkWidget. (line 121) * sort-column-changed on : GtkTreeSortable. (line 25) * spin: GtkSpinButton. (line 332) * start-editing <1>: GtkCellEditable. (line 30) * start-editing: GtkCellRenderer. (line 221) * start-interactive-search on : GtkTreeView. (line 157) * starts-display-line: GtkTextView. (line 483) * state-changed on : GtkWidget. (line 125) * status-changed on : GtkPrintOperation. (line 246) * stick: GtkWindow. (line 731) * stop-editing: GtkCellRenderer. (line 274) * style-changed on : GtkToolbar. (line 61) * style-get-property: GtkWidget. (line 2219) * style-set on : GtkWidget. (line 139) * swap <1>: GtkTreeStore. (line 308) * swap: GtkListStore. (line 320) * switch-page on : GtkNotebook. (line 72) * tag-added on : GtkTextTagTable. (line 28) * tag-changed on : GtkTextTagTable. (line 26) * tag-removed on : GtkTextTagTable. (line 30) * test-collapse-row on : GtkTreeView. (line 122) * test-expand-row on : GtkTreeView. (line 114) * text-popped on : GtkStatusbar. (line 61) * text-pushed on : GtkStatusbar. (line 55) * thaw: GtkCalendar. (line 214) * thaw-child-notify: GtkWidget. (line 2586) * toggle: GtkItem. (line 55) * toggle on : GtkItem. (line 32) * toggle-cursor-item on : GtkIconView. (line 89) * toggle-cursor-row on : GtkTreeView. (line 149) * toggle-cursor-visible on : GtkTextView. (line 109) * toggle-handle-focus on : GtkPaned. (line 78) * toggle-overwrite on : GtkEntry. (line 102) * toggle-overwrite on : GtkTextView. (line 94) * toggle-size-allocate: GtkMenuItem. (line 193) * toggle-size-allocate on : GtkMenuItem. (line 44) * toggle-size-request: GtkMenuItem. (line 180) * toggle-size-request on : GtkMenuItem. (line 42) * toggled <1>: GtkToggleAction. (line 62) * toggled <2>: GtkCheckMenuItem. (line 94) * toggled: GtkToggleButton. (line 154) * toggled on : GtkCellRendererToggle. (line 41) * toggled on : GtkCheckMenuItem. (line 39) * toggled on : GtkToggleAction. (line 33) * toggled on : GtkToggleButton. (line 74) * toggled on : GtkToggleToolButton. (line 32) * toolbar-reconfigured on : GtkToolItem. (line 64) * translate-coordinates: GtkWidget. (line 1351) * translate-string: GtkActionGroup. (line 351) * tree-to-widget-coords: GtkTreeView. (line 836) * unblock-activate-from: GtkAction. (line 424) * unfullscreen: GtkWindow. (line 824) * unmap: GtkWidget. (line 637) * unmap on : GtkWidget. (line 115) * unmap-event on : GtkWidget. (line 239) * unmark-day: GtkCalendar. (line 140) * unmaximize: GtkWindow. (line 788) * unparent: GtkWidget. (line 556) * unrealize: GtkWidget. (line 673) * unrealize on : GtkWidget. (line 119) * unref-node: GtkTreeModel. (line 748) * unselect-all <1>: GtkRecentChooser. (line 414) * unselect-all <2>: GtkFileChooser. (line 713) * unselect-all <3>: GtkIconView. (line 639) * unselect-all: GtkTreeSelection. (line 218) * unselect-all on : GtkIconView. (line 85) * unselect-all on : GtkTreeView. (line 99) * unselect-filename: GtkFileChooser. (line 686) * unselect-iter: GtkTreeSelection. (line 177) * unselect-path <1>: GtkIconView. (line 567) * unselect-path: GtkTreeSelection. (line 132) * unselect-range: GtkTreeSelection. (line 248) * unselect-uri <1>: GtkRecentChooser. (line 386) * unselect-uri: GtkFileChooser. (line 889) * unset: GtkPrintSettings. (line 100) * unset-focus-chain: GtkContainer. (line 458) * unset-model-drag-dest: GtkIconView. (line 706) * unset-placement: GtkScrolledWindow. (line 231) * unset-rows-drag-dest: GtkTreeView. (line 859) * unset-style: GtkToolbar. (line 364) * unstick: GtkWindow. (line 750) * update: GtkSpinButton. (line 378) * update-buttons-state: GtkAssistant. (line 424) * update-preview on : GtkFileChooser. (line 393) * value-changed: GtkAdjustment. (line 159) * value-changed on : GtkAdjustment. (line 61) * value-changed on : GtkRange. (line 49) * value-changed on : GtkSpinButton. (line 115) * visibility-notify-event on : GtkWidget. (line 467) * widget-to-tree-coords: GtkTreeView. (line 812) * window-state-event on : GtkWidget. (line 476) * wrapped on : GtkSpinButton. (line 123) guile-gnome-platform-2.16.2/gtk/doc/gtk/defuns-gtkframe.xml.texi0000644000175000017500000001040411670374302025061 0ustar00wingowingo00000000000000 @c %start of fragment @deftp Class Derives from @code{}. This class defines the following slots: @table @code @item label Text of the frame's label @item label-xalign The horizontal alignment of the label @item label-yalign The vertical alignment of the label @item shadow Deprecated property, use shadow_type instead @item shadow-type Appearance of the frame border @item label-widget A widget to display in place of the usual frame label @end table @end deftp @deffn Function gtk-frame-new (label@tie{}@code{mchars}) @result{}@tie{} (ret@tie{}@code{}) Creates a new @code{}, with optional label @var{label}. If @var{label} is @samp{@code{#f}}, the label is omitted. @table @var @item label the text to use as the label of the frame @item ret a new @code{} widget @end table @end deffn @deffn Function gtk-frame-set-label (self@tie{}@code{}) (label@tie{}@code{mchars}) @deffnx Method set-label Sets the text of the label. If @var{label} is @samp{@code{#f}}, the current label is removed. @table @var @item frame a @code{} @item label the text to use as the label of the frame @end table @end deffn @deffn Function gtk-frame-set-label-widget (self@tie{}@code{}) (label_widget@tie{}@code{}) @deffnx Method set-label-widget Sets the label widget for the frame. This is the widget that will appear embedded in the top edge of the frame as a title. @table @var @item frame a @code{} @item label-widget the new label widget @end table @end deffn @deffn Function gtk-frame-set-label-align (self@tie{}@code{}) (xalign@tie{}@code{float}) (yalign@tie{}@code{float}) @deffnx Method set-label-align Sets the alignment of the frame widget's label. The default values for a newly created frame are 0.0 and 0.5. @table @var @item frame a @code{} @item xalign The position of the label along the top edge of the widget. A value of 0.0 represents left alignment; 1.0 represents right alignment. @item yalign The y alignment of the label. A value of 0.0 aligns under the frame; 1.0 aligns above the frame. @end table @end deffn @deffn Function gtk-frame-set-shadow-type (self@tie{}@code{}) (type@tie{}@code{}) @deffnx Method set-shadow-type Sets the shadow type for @var{frame}. @table @var @item frame a @code{} @item type the new @code{} @end table @end deffn @deffn Function gtk-frame-get-label (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{mchars}) @deffnx Method get-label If the frame's label widget is a @code{}, returns the text in the label widget. (The frame will have a @code{} for the label widget if a non-@samp{@code{#f}} argument was passed to @code{gtk-frame-new}.) @table @var @item frame a @code{} @item ret the text in the label, or @samp{@code{#f}} if there was no label widget or the lable widget was not a @code{}. This string is owned by GTK+ and must not be modified or freed. @end table @end deffn @deffn Function gtk-frame-get-label-align (self@tie{}@code{}) @result{}@tie{} (xalign@tie{}@code{float}) (yalign@tie{}@code{float}) @deffnx Method get-label-align Retrieves the X and Y alignment of the frame's label. See @code{gtk-frame-set-label-align}. @table @var @item frame a @code{} @item xalign location to store X alignment of frame's label, or @samp{@code{#f}} @item yalign location to store X alignment of frame's label, or @samp{@code{#f}} @end table @end deffn @deffn Function gtk-frame-get-label-widget (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{}) @deffnx Method get-label-widget Retrieves the label widget for the frame. See @code{gtk-frame-set-label-widget}. @table @var @item frame a @code{} @item ret the label widget, or @samp{@code{#f}} if there is none. @end table @end deffn @deffn Function gtk-frame-get-shadow-type (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{}) @deffnx Method get-shadow-type Retrieves the shadow type of the frame. See @code{gtk-frame-set-shadow-type}. @table @var @item frame a @code{} @item ret the current shadow type of the frame. @end table @end deffn @c %end of fragment guile-gnome-platform-2.16.2/gtk/doc/gtk/section-gtktoggletoolbutton.xml.texi0000644000175000017500000000101411670374303027560 0ustar00wingowingo00000000000000 @c %start of fragment @node GtkToggleToolButton @chapter GtkToggleToolButton A GtkToolItem containing a toggle button @section Overview A @code{} is a @code{} that contains a toggle button. Use @code{gtk-toggle-tool-button-new} to create a new @code{}. Use @code{gtk-toggle-tool-button-new-from-stock} to create a new @code{} containing a stock item. @section Usage @include defuns-gtktoggletoolbutton.xml.texi @c %end of fragment guile-gnome-platform-2.16.2/gtk/doc/gtk/defuns-gtkhscale.xml.texi0000644000175000017500000000244211670374302025231 0ustar00wingowingo00000000000000 @c %start of fragment @deftp Class Derives from @code{}. This class defines no direct slots. @end deftp @deffn Function gtk-hscale-new (adjustment@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{}) Creates a new @code{}. @table @var @item adjustment the @code{} which sets the range of the scale. @item ret a new @code{}. @end table @end deffn @deffn Function gtk-hscale-new-with-range (min@tie{}@code{double}) (max@tie{}@code{double}) (step@tie{}@code{double}) @result{}@tie{} (ret@tie{}@code{}) Creates a new horizontal scale widget that lets the user input a number between @var{min} and @var{max} (including @var{min} and @var{max}) with the increment @var{step}. @var{step} must be nonzero; it's the distance the slider moves when using the arrow keys to adjust the scale value. Note that the way in which the precision is derived works best if @var{step} is a power of ten. If the resulting precision is not suitable for your needs, use @code{gtk-scale-set-digits} to correct it. @table @var @item min minimum value @item max maximum value @item step step increment (tick size) used with keyboard shortcuts @item ret a new @code{} @end table @end deffn @c %end of fragment guile-gnome-platform-2.16.2/gtk/doc/gtk/defuns-gtktextview.xml.texi0000644000175000017500000006727211670374302025665 0ustar00wingowingo00000000000000 @c %start of fragment @deftp Class Derives from @code{}. This class defines the following slots: @table @code @item pixels-above-lines Pixels of blank space above paragraphs @item pixels-below-lines Pixels of blank space below paragraphs @item pixels-inside-wrap Pixels of blank space between wrapped lines in a paragraph @item editable Whether the text can be modified by the user @item wrap-mode Whether to wrap lines never, at word boundaries, or at character boundaries @item justification Left, right, or center justification @item left-margin Width of the left margin in pixels @item right-margin Width of the right margin in pixels @item indent Amount to indent the paragraph, in pixels @item tabs Custom tabs for this text @item cursor-visible If the insertion cursor is shown @item buffer The buffer which is displayed @item overwrite Whether entered text overwrites existing contents @item accepts-tab Whether Tab will result in a tab character being entered @end table @end deftp @defop Signal move-cursor (arg0@tie{}@code{}) (arg1@tie{}@code{}) (arg2@tie{}@code{}) The ::move-cursor signal is a keybinding signal which gets emitted when the user initiates a cursor movement. Applications should not connect to it, but may emit it with @code{g-signal-emit-by-name} if they need to control scrolling programmatically. @end defop @defop Signal copy-clipboard @end defop @defop Signal populate-popup (arg0@tie{}@code{}) @end defop @defop Signal insert-at-cursor (arg0@tie{}@code{}) @end defop @defop Signal delete-from-cursor (arg0@tie{}@code{}) (arg1@tie{}@code{}) @end defop @defop Signal backspace @end defop @defop Signal cut-clipboard @end defop @defop Signal paste-clipboard @end defop @defop Signal toggle-overwrite @end defop @defop Signal set-scroll-adjustments (arg0@tie{}@code{}) (arg1@tie{}@code{}) @end defop @defop Signal select-all (arg0@tie{}@code{}) @end defop @defop Signal page-horizontally (arg0@tie{}@code{}) (arg1@tie{}@code{}) @end defop @defop Signal move-viewport (arg0@tie{}@code{}) (arg1@tie{}@code{}) @end defop @defop Signal set-anchor @end defop @defop Signal toggle-cursor-visible undocumented @end defop @deftp Class Derives from @code{}. This class defines no direct slots. @end deftp @deffn Function gtk-text-view-new-with-buffer (buffer@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{}) Creates a new @code{} widget displaying the buffer @var{buffer}. One buffer can be shared among many widgets. @var{buffer} may be NULL to create a default buffer, in which case this function is equivalent to @code{gtk-text-view-new}. The text view adds its own reference count to the buffer; it does not take over an existing reference. @table @var @item buffer a @code{} @item ret a new @code{}. @end table @end deffn @deffn Function gtk-text-view-set-buffer (self@tie{}@code{}) (buffer@tie{}@code{}) @deffnx Method set-buffer Sets @var{buffer} as the buffer being displayed by @var{text-view}. The previous buffer displayed by the text view is unreferenced, and a reference is added to @var{buffer}. If you owned a reference to @var{buffer} before passing it to this function, you must remove that reference yourself; @code{} will not "adopt" it. @table @var @item text-view a @code{} @item buffer a @code{} @end table @end deffn @deffn Function gtk-text-view-get-buffer (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{}) @deffnx Method get-buffer Returns the @code{} being displayed by this text view. The reference count on the buffer is not incremented; the caller of this function won't own a new reference. @table @var @item text-view a @code{} @item ret a @code{} @end table @end deffn @deffn Function gtk-text-view-scroll-to-mark (self@tie{}@code{}) (mark@tie{}@code{}) (within_margin@tie{}@code{double}) (use_align@tie{}@code{bool}) (xalign@tie{}@code{double}) (yalign@tie{}@code{double}) @deffnx Method scroll-to-mark Scrolls @var{text-view} so that @var{mark} is on the screen in the position indicated by @var{xalign} and @var{yalign}. An alignment of 0.0 indicates left or top, 1.0 indicates right or bottom, 0.5 means center. If @var{use-align} is @samp{@code{#f}}, the text scrolls the minimal distance to get the mark onscreen, possibly not scrolling at all. The effective screen for purposes of this function is reduced by a margin of size @var{within-margin}. @table @var @item text-view a @code{} @item mark a @code{} @item within-margin margin as a [0.0,0.5) fraction of screen size @item use-align whether to use alignment arguments (if @samp{@code{#f}}, just get the mark onscreen) @item xalign horizontal alignment of mark within visible area. @item yalign vertical alignment of mark within visible area @end table @end deffn @deffn Function gtk-text-view-scroll-to-iter (self@tie{}@code{}) (iter@tie{}@code{}) (within_margin@tie{}@code{double}) (use_align@tie{}@code{bool}) (xalign@tie{}@code{double}) (yalign@tie{}@code{double}) @result{}@tie{} (ret@tie{}@code{bool}) @deffnx Method scroll-to-iter Scrolls @var{text-view} so that @var{iter} is on the screen in the position indicated by @var{xalign} and @var{yalign}. An alignment of 0.0 indicates left or top, 1.0 indicates right or bottom, 0.5 means center. If @var{use-align} is @samp{@code{#f}}, the text scrolls the minimal distance to get the mark onscreen, possibly not scrolling at all. The effective screen for purposes of this function is reduced by a margin of size @var{within-margin}. NOTE: This function uses the currently-computed height of the lines in the text buffer. Note that line heights are computed in an idle handler; so this function may not have the desired effect if it's called before the height computations. To avoid oddness, consider using @code{gtk-text-view-scroll-to-mark} which saves a point to be scrolled to after line validation. @table @var @item text-view a @code{} @item iter a @code{} @item within-margin margin as a [0.0,0.5) fraction of screen size @item use-align whether to use alignment arguments (if @samp{@code{#f}}, just get the mark onscreen) @item xalign horizontal alignment of mark within visible area. @item yalign vertical alignment of mark within visible area @item ret @samp{@code{#t}} if scrolling occurred @end table @end deffn @deffn Function gtk-text-view-scroll-mark-onscreen (self@tie{}@code{}) (mark@tie{}@code{}) @deffnx Method scroll-mark-onscreen Scrolls @var{text-view} the minimum distance such that @var{mark} is contained within the visible area of the widget. @table @var @item text-view a @code{} @item mark a mark in the buffer for @var{text-view} @end table @end deffn @deffn Function gtk-text-view-move-mark-onscreen (self@tie{}@code{}) (mark@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{bool}) @deffnx Method move-mark-onscreen Moves a mark within the buffer so that it's located within the currently-visible text area. @table @var @item text-view a @code{} @item mark a @code{} @item ret @samp{@code{#t}} if the mark moved (wasn't already onscreen) @end table @end deffn @deffn Function gtk-text-view-place-cursor-onscreen (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{bool}) @deffnx Method place-cursor-onscreen Moves the cursor to the currently visible region of the buffer, it it isn't there already. @table @var @item text-view a @code{} @item ret TRUE if the cursor had to be moved. @end table @end deffn @deffn Function gtk-text-view-get-visible-rect (self@tie{}@code{}) (visible_rect@tie{}@code{}) @deffnx Method get-visible-rect Fills @var{visible-rect} with the currently-visible region of the buffer, in buffer coordinates. Convert to window coordinates with @code{gtk-text-view-buffer-to-window-coords}. @table @var @item text-view a @code{} @item visible-rect rectangle to fill @end table @end deffn @deffn Function gtk-text-view-get-iter-location (self@tie{}@code{}) (iter@tie{}@code{}) (location@tie{}@code{}) @deffnx Method get-iter-location Gets a rectangle which roughly contains the character at @var{iter}. The rectangle position is in buffer coordinates; use @code{gtk-text-view-buffer-to-window-coords} to convert these coordinates to coordinates for one of the windows in the text view. @table @var @item text-view a @code{} @item iter a @code{} @item location bounds of the character at @var{iter} @end table @end deffn @deffn Function gtk-text-view-get-line-at-y (self@tie{}@code{}) (target_iter@tie{}@code{}) (y@tie{}@code{int}) @result{}@tie{} (line_top@tie{}@code{int}) @deffnx Method get-line-at-y Gets the @code{} at the start of the line containing the coordinate @var{y}. @var{y} is in buffer coordinates, convert from window coordinates with @code{gtk-text-view-window-to-buffer-coords}. If non-@samp{@code{#f}}, @var{line-top} will be filled with the coordinate of the top edge of the line. @table @var @item text-view a @code{} @item target-iter a @code{} @item y a y coordinate @item line-top return location for top coordinate of the line @end table @end deffn @deffn Function gtk-text-view-get-line-yrange (self@tie{}@code{}) (iter@tie{}@code{}) @result{}@tie{} (y@tie{}@code{int}) (height@tie{}@code{int}) @deffnx Method get-line-yrange Gets the y coordinate of the top of the line containing @var{iter}, and the height of the line. The coordinate is a buffer coordinate; convert to window coordinates with @code{gtk-text-view-buffer-to-window-coords}. @table @var @item text-view a @code{} @item iter a @code{} @item y return location for a y coordinate @item height return location for a height @end table @end deffn @deffn Function gtk-text-view-get-iter-at-location (self@tie{}@code{}) (iter@tie{}@code{}) (x@tie{}@code{int}) (y@tie{}@code{int}) @deffnx Method get-iter-at-location Retrieves the iterator at buffer coordinates @var{x} and @var{y}. Buffer coordinates are coordinates for the entire buffer, not just the currently-displayed portion. If you have coordinates from an event, you have to convert those to buffer coordinates with @code{gtk-text-view-window-to-buffer-coords}. @table @var @item text-view a @code{} @item iter a @code{} @item x x position, in buffer coordinates @item y y position, in buffer coordinates @end table @end deffn @deffn Function gtk-text-view-get-window (self@tie{}@code{}) (win@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{}) @deffnx Method get-window Retrieves the @code{} corresponding to an area of the text view; possible windows include the overall widget window, child windows on the left, right, top, bottom, and the window that displays the text buffer. Windows are @samp{@code{#f}} and nonexistent if their width or height is 0, and are nonexistent before the widget has been realized. @table @var @item text-view a @code{} @item win window to get @item ret a @code{}, or @samp{@code{#f}} @end table @end deffn @deffn Function gtk-text-view-get-window-type (self@tie{}@code{}) (window@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{}) @deffnx Method get-window-type Usually used to find out which window an event corresponds to. If you connect to an event signal on @var{text-view}, this function should be called on @samp{event->window} to see which window it was. @table @var @item text-view a @code{} @item window a window type @item ret the window type. @end table @end deffn @deffn Function gtk-text-view-forward-display-line (self@tie{}@code{}) (iter@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{bool}) @deffnx Method forward-display-line Moves the given @var{iter} forward by one display (wrapped) line. A display line is different from a paragraph. Paragraphs are separated by newlines or other paragraph separator characters. Display lines are created by line-wrapping a paragraph. If wrapping is turned off, display lines and paragraphs will be the same. Display lines are divided differently for each view, since they depend on the view's width; paragraphs are the same in all views, since they depend on the contents of the @code{}. @table @var @item text-view a @code{} @item iter a @code{} @item ret @samp{@code{#t}} if @var{iter} was moved and is not on the end iterator @end table @end deffn @deffn Function gtk-text-view-backward-display-line (self@tie{}@code{}) (iter@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{bool}) @deffnx Method backward-display-line Moves the given @var{iter} backward by one display (wrapped) line. A display line is different from a paragraph. Paragraphs are separated by newlines or other paragraph separator characters. Display lines are created by line-wrapping a paragraph. If wrapping is turned off, display lines and paragraphs will be the same. Display lines are divided differently for each view, since they depend on the view's width; paragraphs are the same in all views, since they depend on the contents of the @code{}. @table @var @item text-view a @code{} @item iter a @code{} @item ret @samp{@code{#t}} if @var{iter} was moved and is not on the end iterator @end table @end deffn @deffn Function gtk-text-view-starts-display-line (self@tie{}@code{}) (iter@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{bool}) @deffnx Method starts-display-line Determines whether @var{iter} is at the start of a display line. See @code{gtk-text-view-forward-display-line} for an explanation of display lines vs. paragraphs. @table @var @item text-view a @code{} @item iter a @code{} @item ret @samp{@code{#t}} if @var{iter} begins a wrapped line @end table @end deffn @deffn Function gtk-text-view-move-visually (self@tie{}@code{}) (iter@tie{}@code{}) (count@tie{}@code{int}) @result{}@tie{} (ret@tie{}@code{bool}) @deffnx Method move-visually Move the iterator a given number of characters visually, treating it as the strong cursor position. If @var{count} is positive, then the new strong cursor position will be @var{count} positions to the right of the old cursor position. If @var{count} is negative then the new strong cursor position will be @var{count} positions to the left of the old cursor position. In the presence of bidirection text, the correspondence between logical and visual order will depend on the direction of the current run, and there may be jumps when the cursor is moved off of the end of a run. @table @var @item text-view a @code{} @item iter a @code{} @item count number of characters to move (negative moves left, positive moves right) @item ret @samp{@code{#t}} if @var{iter} moved and is not on the end iterator @end table @end deffn @deffn Function gtk-text-view-add-child-at-anchor (self@tie{}@code{}) (child@tie{}@code{}) (anchor@tie{}@code{}) @deffnx Method add-child-at-anchor Adds a child widget in the text buffer, at the given @var{anchor}. @table @var @item text-view a @code{} @item child a @code{} @item anchor a @code{} in the @code{} for @var{text-view} @end table @end deffn @deffn Function gtk-text-child-anchor-new @result{}@tie{} (ret@tie{}@code{}) Creates a new @code{}. Usually you would then insert it into a @code{} with @code{gtk-text-buffer-insert-child-anchor}. To perform the creation and insertion in one step, use the convenience function @code{gtk-text-buffer-create-child-anchor}. @table @var @item ret a new @code{} @end table @end deffn @deffn Function gtk-text-child-anchor-get-widgets (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{glist-of}) @deffnx Method get-widgets Gets a list of all widgets anchored at this child anchor. The returned list should be freed with @code{g-list-free}. @table @var @item anchor a @code{} @item ret list of widgets anchored at @var{anchor} @end table @end deffn @deffn Function gtk-text-child-anchor-get-deleted (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{bool}) @deffnx Method get-deleted Determines whether a child anchor has been deleted from the buffer. Keep in mind that the child anchor will be unreferenced when removed from the buffer, so you need to hold your own reference (with @code{g-object-ref}) if you plan to use this function — otherwise all deleted child anchors will also be finalized. @table @var @item anchor a @code{} @item ret @samp{@code{#t}} if the child anchor has been deleted from its buffer @end table @end deffn @deffn Function gtk-text-view-add-child-in-window (self@tie{}@code{}) (child@tie{}@code{}) (which_window@tie{}@code{}) (xpos@tie{}@code{int}) (ypos@tie{}@code{int}) @deffnx Method add-child-in-window Adds a child at fixed coordinates in one of the text widget's windows. The window must have nonzero size (see @code{gtk-text-view-set-border-window-size}). Note that the child coordinates are given relative to the @code{} in question, and that these coordinates have no sane relationship to scrolling. When placing a child in @code{}, scrolling is irrelevant, the child floats above all scrollable areas. But when placing a child in one of the scrollable windows (border windows or text window), you'll need to compute the child's correct position in buffer coordinates any time scrolling occurs or buffer changes occur, and then call @code{gtk-text-view-move-child} to update the child's position. Unfortunately there's no good way to detect that scrolling has occurred, using the current API; a possible hack would be to update all child positions when the scroll adjustments change or the text buffer changes. See bug 64518 on bugzilla.gnome.org for status of fixing this issue. @table @var @item text-view a @code{} @item child a @code{} @item which-window which window the child should appear in @item xpos X position of child in window coordinates @item ypos Y position of child in window coordinates @end table @end deffn @deffn Function gtk-text-view-move-child (self@tie{}@code{}) (child@tie{}@code{}) (xpos@tie{}@code{int}) (ypos@tie{}@code{int}) @deffnx Method move-child Updates the position of a child, as for @code{gtk-text-view-add-child-in-window}. @table @var @item text-view a @code{} @item child child widget already added to the text view @item xpos new X position in window coordinates @item ypos new Y position in window coordinates @end table @end deffn @deffn Function gtk-text-view-set-wrap-mode (self@tie{}@code{}) (wrap_mode@tie{}@code{}) @deffnx Method set-wrap-mode Sets the line wrapping for the view. @table @var @item text-view a @code{} @item wrap-mode a @code{} @end table @end deffn @deffn Function gtk-text-view-get-wrap-mode (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{}) @deffnx Method get-wrap-mode Gets the line wrapping for the view. @table @var @item text-view a @code{} @item ret the line wrap setting @end table @end deffn @deffn Function gtk-text-view-set-editable (self@tie{}@code{}) (setting@tie{}@code{bool}) @deffnx Method set-editable Sets the default editability of the @code{}. You can override this default setting with tags in the buffer, using the "editable" attribute of tags. @table @var @item text-view a @code{} @item setting whether it's editable @end table @end deffn @deffn Function gtk-text-view-get-editable (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{bool}) @deffnx Method get-editable Returns the default editability of the @code{}. Tags in the buffer may override this setting for some ranges of text. @table @var @item text-view a @code{} @item ret whether text is editable by default @end table @end deffn @deffn Function gtk-text-view-set-cursor-visible (self@tie{}@code{}) (setting@tie{}@code{bool}) @deffnx Method set-cursor-visible Toggles whether the insertion point is displayed. A buffer with no editable text probably shouldn't have a visible cursor, so you may want to turn the cursor off. @table @var @item text-view a @code{} @item setting whether to show the insertion cursor @end table @end deffn @deffn Function gtk-text-view-get-cursor-visible (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{bool}) @deffnx Method get-cursor-visible Find out whether the cursor is being displayed. @table @var @item text-view a @code{} @item ret whether the insertion mark is visible @end table @end deffn @deffn Function gtk-text-view-set-overwrite (self@tie{}@code{}) (overwrite@tie{}@code{bool}) @deffnx Method set-overwrite Changes the @code{} overwrite mode. @table @var @item text-view a @code{} @item overwrite @samp{@code{#t}} to turn on overwrite mode, @samp{@code{#f}} to turn it off @end table Since 2.4 @end deffn @deffn Function gtk-text-view-get-overwrite (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{bool}) @deffnx Method get-overwrite Returns whether the @code{} is in overwrite mode or not. @table @var @item text-view a @code{} @item ret whether @var{text-view} is in overwrite mode or not. @end table Since 2.4 @end deffn @deffn Function gtk-text-view-set-justification (self@tie{}@code{}) (justification@tie{}@code{}) @deffnx Method set-justification Sets the default justification of text in @var{text-view}. Tags in the view's buffer may override the default. @table @var @item text-view a @code{} @item justification justification @end table @end deffn @deffn Function gtk-text-view-get-justification (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{}) @deffnx Method get-justification Gets the default justification of paragraphs in @var{text-view}. Tags in the buffer may override the default. @table @var @item text-view a @code{} @item ret default justification @end table @end deffn @deffn Function gtk-text-view-set-left-margin (self@tie{}@code{}) (left_margin@tie{}@code{int}) @deffnx Method set-left-margin Sets the default left margin for text in @var{text-view}. Tags in the buffer may override the default. @table @var @item text-view a @code{} @item left-margin left margin in pixels @end table @end deffn @deffn Function gtk-text-view-get-left-margin (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{int}) @deffnx Method get-left-margin Gets the default left margin size of paragraphs in the @var{text-view}. Tags in the buffer may override the default. @table @var @item text-view a @code{} @item ret left margin in pixels @end table @end deffn @deffn Function gtk-text-view-set-right-margin (self@tie{}@code{}) (right_margin@tie{}@code{int}) @deffnx Method set-right-margin Sets the default right margin for text in the text view. Tags in the buffer may override the default. @table @var @item text-view a @code{} @item right-margin right margin in pixels @end table @end deffn @deffn Function gtk-text-view-get-right-margin (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{int}) @deffnx Method get-right-margin Gets the default right margin for text in @var{text-view}. Tags in the buffer may override the default. @table @var @item text-view a @code{} @item ret right margin in pixels @end table @end deffn @deffn Function gtk-text-view-set-indent (self@tie{}@code{}) (indent@tie{}@code{int}) @deffnx Method set-indent Sets the default indentation for paragraphs in @var{text-view}. Tags in the buffer may override the default. @table @var @item text-view a @code{} @item indent indentation in pixels @end table @end deffn @deffn Function gtk-text-view-get-indent (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{int}) @deffnx Method get-indent Gets the default indentation of paragraphs in @var{text-view}. Tags in the view's buffer may override the default. The indentation may be negative. @table @var @item text-view a @code{} @item ret number of pixels of indentation @end table @end deffn @deffn Function gtk-text-view-set-tabs (self@tie{}@code{}) (tabs@tie{}@code{}) @deffnx Method set-tabs Sets the default tab stops for paragraphs in @var{text-view}. Tags in the buffer may override the default. @table @var @item text-view a @code{} @item tabs tabs as a @code{} @end table @end deffn @deffn Function gtk-text-view-get-tabs (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{}) @deffnx Method get-tabs Gets the default tabs for @var{text-view}. Tags in the buffer may override the defaults. The returned array will be @samp{@code{#f}} if "standard" (8-space) tabs are used. Free the return value with @code{pango-tab-array-free}. @table @var @item text-view a @code{} @item ret copy of default tab array, or @samp{@code{#f}} if "standard" tabs are used; must be freed with @code{pango-tab-array-free}. @end table @end deffn @deffn Function gtk-text-view-set-accepts-tab (self@tie{}@code{}) (accepts_tab@tie{}@code{bool}) @deffnx Method set-accepts-tab Sets the behavior of the text widget when the Tab key is pressed. If @var{accepts-tab} is @samp{@code{#t}} a tab character is inserted. If @var{accepts-tab} is @samp{@code{#f}} the keyboard focus is moved to the next widget in the focus chain. @table @var @item text-view A @code{} @item accepts-tab @samp{@code{#t}} if pressing the Tab key should insert a tab character, @samp{@code{#f}}, if pressing the Tab key should move the keyboard focus. @end table Since 2.4 @end deffn @deffn Function gtk-text-view-get-accepts-tab (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{bool}) @deffnx Method get-accepts-tab Returns whether pressing the Tab key inserts a tab characters. @code{gtk-text-view-set-accepts-tab}. @table @var @item text-view A @code{} @item ret @samp{@code{#t}} if pressing the Tab key inserts a tab character, @samp{@code{#f}} if pressing the Tab key moves the keyboard focus. @end table Since 2.4 @end deffn @c %end of fragment guile-gnome-platform-2.16.2/gtk/doc/gtk/undocumented.texi0000644000175000017500000006133411670374303023703 0ustar00wingowingo00000000000000 @c %start of fragment @node Undocumented @chapter Undocumented The following symbols, if any, have not been properly documented. @section (gnome gtk) @deftp Class @end deftp @deffn Generic create-tag @end deffn @deffn Method create-tag (@var{buffer} @code{}) (@var{tag-name} @code{}) (@var{properties} @code{})... @end deffn @defun gtk-stock-id nick @end defun @defun gtk-text-buffer-create-tag buffer tag-name . properties @end defun @defun gtk-tree-or-list-store-set store iter . args @end defun @deffn Generic on-get-column-type @end deffn @deffn Generic on-get-flags @end deffn @deffn Method on-get-flags (@var{obj} @code{}) @end deffn @deffn Generic on-get-iter @end deffn @deffn Generic on-get-n-columns @end deffn @deffn Generic on-get-path @end deffn @deffn Generic on-get-value @end deffn @deffn Generic on-iter-children @end deffn @deffn Generic on-iter-has-child @end deffn @deffn Generic on-iter-n-children @end deffn @deffn Generic on-iter-next @end deffn @deffn Generic on-iter-nth-child @end deffn @deffn Generic on-iter-parent @end deffn @section (gnome gw gtk) @defun %gtk-message-dialog-new @end defun @defvar @end defvar @defvar @end defvar @deftp Class @end deftp @defvar gtk-accel-group-activate @end defvar @defvar gtk-accel-group-connect @end defvar @defvar gtk-accel-group-connect-by-path @end defvar @defvar gtk-accel-group-disconnect @end defvar @defvar gtk-accel-group-disconnect-key @end defvar @defvar gtk-accel-group-from-accel-closure @end defvar @defvar gtk-accel-group-lock @end defvar @defvar gtk-accel-group-new @end defvar @defvar gtk-accel-group-unlock @end defvar @defvar gtk-accel-groups-activate @end defvar @defun gtk-accel-groups-from-object @end defun @defvar gtk-accel-map-add-entry @end defvar @defvar gtk-accel-map-add-filter @end defvar @defvar gtk-accel-map-change-entry @end defvar @defvar gtk-accel-map-get @end defvar @defvar gtk-accel-map-load @end defvar @defvar gtk-accel-map-load-fd @end defvar @defvar gtk-accel-map-lock-path @end defvar @defvar gtk-accel-map-save @end defvar @defvar gtk-accel-map-save-fd @end defvar @defvar gtk-accel-map-unlock-path @end defvar @defvar gtk-accelerator-get-default-mod-mask @end defvar @defvar gtk-accelerator-get-label @end defvar @defvar gtk-accelerator-name @end defvar @defvar gtk-accelerator-set-default-mod-mask @end defvar @defvar gtk-accelerator-valid @end defvar @defvar gtk-accessible-connect-widget-destroyed @end defvar @defvar gtk-action-group-add-action-with-accel @end defvar @defvar gtk-action-group-set-translation-domain @end defvar @defvar gtk-border-copy @end defvar @defvar gtk-border-free @end defvar @defvar gtk-calendar-get-display-options @end defvar @defvar gtk-cell-renderer-text-set-fixed-height-from-font @end defvar @defvar gtk-check-menu-item-get-draw-as-radio @end defvar @defvar gtk-check-menu-item-get-inconsistent @end defvar @defvar gtk-check-menu-item-new-with-mnemonic @end defvar @defvar gtk-check-menu-item-set-draw-as-radio @end defvar @defvar gtk-check-menu-item-set-inconsistent @end defvar @defvar gtk-check-version @end defvar @defvar gtk-clipboard-clear @end defvar @defvar gtk-clipboard-get @end defvar @defvar gtk-clipboard-get-display @end defvar @defvar gtk-clipboard-get-for-display @end defvar @defvar gtk-clipboard-get-owner @end defvar @defvar gtk-clipboard-set-image @end defvar @defvar gtk-clipboard-set-text @end defvar @defvar gtk-clipboard-store @end defvar @defvar gtk-clipboard-wait-for-contents @end defvar @defvar gtk-clipboard-wait-for-image @end defvar @defvar gtk-clipboard-wait-for-text @end defvar @defvar gtk-clipboard-wait-is-image-available @end defvar @defvar gtk-clipboard-wait-is-rich-text-available @end defvar @defvar gtk-clipboard-wait-is-target-available @end defvar @defvar gtk-clipboard-wait-is-text-available @end defvar @defvar gtk-color-selection-dialog-get-cancel-button @end defvar @defvar gtk-color-selection-dialog-get-colorsel @end defvar @defvar gtk-color-selection-dialog-get-help-button @end defvar @defvar gtk-color-selection-dialog-get-ok-button @end defvar @defvar gtk-color-selection-get-current-alpha @end defvar @defvar gtk-color-selection-get-current-color @end defvar @defvar gtk-color-selection-get-has-opacity-control @end defvar @defvar gtk-color-selection-get-previous-alpha @end defvar @defvar gtk-color-selection-get-previous-color @end defvar @defvar gtk-color-selection-palette-to-string @end defvar @defvar gtk-color-selection-set-current-alpha @end defvar @defvar gtk-color-selection-set-current-color @end defvar @defvar gtk-color-selection-set-has-opacity-control @end defvar @defvar gtk-color-selection-set-previous-alpha @end defvar @defvar gtk-color-selection-set-previous-color @end defvar @defvar gtk-combo-box-get-column-span-column @end defvar @defvar gtk-combo-box-set-column-span-column @end defvar @defvar gtk-container-set-reallocate-redraws @end defvar @defvar gtk-dialog-get-action-area @end defvar @defvar gtk-dialog-get-vbox @end defvar @defvar gtk-disable-setlocale @end defvar @defvar gtk-drag-check-threshold @end defvar @defvar gtk-drag-dest-add-image-targets @end defvar @defvar gtk-drag-dest-add-text-targets @end defvar @defvar gtk-drag-dest-add-uri-targets @end defvar @defvar gtk-drag-dest-get-track-motion @end defvar @defun gtk-drag-dest-set @end defun @defvar gtk-drag-dest-set-proxy @end defvar @defvar gtk-drag-dest-set-track-motion @end defvar @defvar gtk-drag-dest-unset @end defvar @defun gtk-drag-finish @end defun @defun gtk-drag-get-data @end defun @defvar gtk-drag-get-source-widget @end defvar @defvar gtk-drag-highlight @end defvar @defvar gtk-drag-set-icon-default @end defvar @defvar gtk-drag-set-icon-name @end defvar @defvar gtk-drag-set-icon-pixbuf @end defvar @defvar gtk-drag-set-icon-pixmap @end defvar @defvar gtk-drag-set-icon-stock @end defvar @defvar gtk-drag-set-icon-widget @end defvar @defvar gtk-drag-source-add-image-targets @end defvar @defvar gtk-drag-source-add-text-targets @end defvar @defvar gtk-drag-source-add-uri-targets @end defvar @defun gtk-drag-source-set-icon @end defun @defvar gtk-drag-source-set-icon-name @end defvar @defvar gtk-drag-source-set-icon-pixbuf @end defvar @defvar gtk-drag-source-set-icon-stock @end defvar @defvar gtk-drag-source-unset @end defvar @defvar gtk-drag-unhighlight @end defvar @defvar gtk-draw-insertion-cursor @end defvar @defvar gtk-entry-completion-get-inline-completion @end defvar @defvar gtk-entry-completion-get-minimum-key-length @end defvar @defvar gtk-entry-completion-get-popup-completion @end defvar @defvar gtk-entry-completion-get-popup-set-width @end defvar @defvar gtk-entry-completion-get-popup-single-match @end defvar @defvar gtk-entry-completion-get-text-column @end defvar @defvar gtk-entry-completion-insert-action-markup @end defvar @defvar gtk-entry-completion-insert-action-text @end defvar @defvar gtk-entry-completion-set-inline-completion @end defvar @defvar gtk-entry-completion-set-minimum-key-length @end defvar @defvar gtk-entry-completion-set-popup-completion @end defvar @defvar gtk-entry-completion-set-popup-set-width @end defvar @defvar gtk-entry-completion-set-popup-single-match @end defvar @defvar gtk-entry-completion-set-text-column @end defvar @defvar gtk-entry-layout-index-to-text-index @end defvar @defvar gtk-entry-text-index-to-layout-index @end defvar @defvar gtk-events-pending @end defvar @defvar gtk-false @end defvar @defun gtk-file-chooser-add-shortcut-folder @end defun @defun gtk-file-chooser-add-shortcut-folder-uri @end defun @defvar gtk-file-chooser-button-get-focus-on-click @end defvar @defvar gtk-file-chooser-button-get-width-chars @end defvar @defvar gtk-file-chooser-button-new-with-backend @end defvar @defvar gtk-file-chooser-button-new-with-dialog @end defvar @defvar gtk-file-chooser-button-set-focus-on-click @end defvar @defvar gtk-file-chooser-button-set-width-chars @end defvar @defvar gtk-file-chooser-error-quark @end defvar @defvar gtk-file-chooser-get-current-folder-uri @end defvar @defvar gtk-file-chooser-get-do-overwrite-confirmation @end defvar @defvar gtk-file-chooser-get-preview-filename @end defvar @defvar gtk-file-chooser-get-preview-widget-active @end defvar @defvar gtk-file-chooser-get-select-multiple @end defvar @defvar gtk-file-chooser-get-use-preview-label @end defvar @defun gtk-file-chooser-list-shortcut-folder-uris @end defun @defun gtk-file-chooser-list-shortcut-folders @end defun @defun gtk-file-chooser-remove-shortcut-folder @end defun @defun gtk-file-chooser-remove-shortcut-folder-uri @end defun @defvar gtk-file-chooser-set-current-folder-uri @end defvar @defvar gtk-file-chooser-set-do-overwrite-confirmation @end defvar @defvar gtk-file-chooser-set-preview-widget-active @end defvar @defvar gtk-file-chooser-set-select-multiple @end defvar @defvar gtk-file-chooser-set-use-preview-label @end defvar @defvar gtk-file-chooser-widget-new-with-backend @end defvar @defvar gtk-file-selection-get-select-multiple @end defvar @defvar gtk-file-selection-hide-fileop-buttons @end defvar @defvar gtk-file-selection-set-select-multiple @end defvar @defvar gtk-file-selection-show-fileop-buttons @end defvar @defvar gtk-file-selection:cancel-button @end defvar @defvar gtk-file-selection:ok-button @end defvar @defvar gtk-font-selection-dialog-get-font-name @end defvar @defvar gtk-font-selection-dialog-get-preview-text @end defvar @defvar gtk-font-selection-dialog-set-font-name @end defvar @defvar gtk-font-selection-dialog-set-preview-text @end defvar @defvar gtk-get-current-event-time @end defvar @defvar gtk-get-default-language @end defvar @defvar gtk-grab-add @end defvar @defvar gtk-grab-get-current @end defvar @defvar gtk-grab-remove @end defvar @defvar gtk-icon-factory-add @end defvar @defvar gtk-icon-factory-add-default @end defvar @defvar gtk-icon-factory-lookup @end defvar @defvar gtk-icon-factory-lookup-default @end defvar @defvar gtk-icon-factory-new @end defvar @defvar gtk-icon-factory-remove-default @end defvar @defvar gtk-icon-set-add-source @end defvar @defvar gtk-icon-set-copy @end defvar @defvar gtk-icon-set-new @end defvar @defvar gtk-icon-set-new-from-pixbuf @end defvar @defvar gtk-icon-set-render-icon @end defvar @defvar gtk-icon-size-from-name @end defvar @defvar gtk-icon-size-get-name @end defvar @defun gtk-icon-size-lookup @end defun @defun gtk-icon-size-lookup-for-settings @end defun @defvar gtk-icon-size-register @end defvar @defvar gtk-icon-size-register-alias @end defvar @defvar gtk-icon-source-copy @end defvar @defvar gtk-icon-source-get-direction @end defvar @defvar gtk-icon-source-get-direction-wildcarded @end defvar @defvar gtk-icon-source-get-filename @end defvar @defvar gtk-icon-source-get-icon-name @end defvar @defvar gtk-icon-source-get-pixbuf @end defvar @defvar gtk-icon-source-get-size @end defvar @defvar gtk-icon-source-get-size-wildcarded @end defvar @defvar gtk-icon-source-get-state @end defvar @defvar gtk-icon-source-get-state-wildcarded @end defvar @defvar gtk-icon-source-new @end defvar @defvar gtk-icon-source-set-direction @end defvar @defvar gtk-icon-source-set-direction-wildcarded @end defvar @defvar gtk-icon-source-set-filename @end defvar @defvar gtk-icon-source-set-icon-name @end defvar @defvar gtk-icon-source-set-pixbuf @end defvar @defvar gtk-icon-source-set-size @end defvar @defvar gtk-icon-source-set-size-wildcarded @end defvar @defvar gtk-icon-source-set-state @end defvar @defvar gtk-icon-source-set-state-wildcarded @end defvar @defvar gtk-icon-theme-add-builtin-icon @end defvar @defvar gtk-icon-theme-append-search-path @end defvar @defvar gtk-icon-theme-error-quark @end defvar @defvar gtk-icon-theme-get-default @end defvar @defvar gtk-icon-theme-get-example-icon-name @end defvar @defvar gtk-icon-theme-get-for-screen @end defvar @defvar gtk-icon-theme-has-icon @end defvar @defun gtk-icon-theme-list-icons @end defun @defun gtk-icon-theme-load-icon @end defun @defvar gtk-icon-theme-new @end defvar @defvar gtk-icon-theme-prepend-search-path @end defvar @defvar gtk-icon-theme-rescan-if-needed @end defvar @defvar gtk-icon-theme-set-custom-theme @end defvar @defvar gtk-icon-theme-set-screen @end defvar @defvar gtk-icon-view-unset-model-drag-source @end defvar @defvar gtk-im-multicontext-append-menuitems @end defvar @defvar gtk-image-menu-item-new-with-mnemonic @end defvar @defvar gtk-main @end defvar @defvar gtk-main-do-event @end defvar @defvar gtk-main-iteration @end defvar @defun gtk-main-iteration-do @end defun @defvar gtk-main-level @end defvar @defvar gtk-main-quit @end defvar @defvar gtk-menu-bar-get-child-pack-direction @end defvar @defvar gtk-menu-bar-set-child-pack-direction @end defvar @defvar gtk-menu-tool-button-set-arrow-tooltip @end defvar @defvar gtk-page-setup-set-paper-size-and-default-margins @end defvar @defvar gtk-paint-arrow @end defvar @defvar gtk-paint-box @end defvar @defvar gtk-paint-box-gap @end defvar @defvar gtk-paint-check @end defvar @defvar gtk-paint-diamond @end defvar @defvar gtk-paint-expander @end defvar @defvar gtk-paint-extension @end defvar @defvar gtk-paint-flat-box @end defvar @defvar gtk-paint-focus @end defvar @defvar gtk-paint-handle @end defvar @defvar gtk-paint-hline @end defvar @defvar gtk-paint-layout @end defvar @defvar gtk-paint-option @end defvar @defvar gtk-paint-resize-grip @end defvar @defvar gtk-paint-shadow @end defvar @defvar gtk-paint-shadow-gap @end defvar @defvar gtk-paint-slider @end defvar @defvar gtk-paint-tab @end defvar @defvar gtk-paint-vline @end defvar @defvar gtk-paper-size-get-default-bottom-margin @end defvar @defvar gtk-paper-size-get-default-left-margin @end defvar @defvar gtk-paper-size-get-default-right-margin @end defvar @defvar gtk-paper-size-get-default-top-margin @end defvar @defvar gtk-print-context-create-pango-context @end defvar @defvar gtk-print-context-create-pango-layout @end defvar @defvar gtk-print-error-quark @end defvar @defvar gtk-print-operation-get-default-page-setup @end defvar @defvar gtk-print-operation-get-print-settings @end defvar @defvar gtk-print-operation-get-status-string @end defvar @defvar gtk-print-operation-preview-end-preview @end defvar @defvar gtk-print-operation-preview-is-selected @end defvar @defvar gtk-print-operation-preview-render-page @end defvar @defvar gtk-print-operation-set-current-page @end defvar @defvar gtk-print-operation-set-custom-tab-label @end defvar @defvar gtk-print-operation-set-default-page-setup @end defvar @defvar gtk-print-operation-set-export-filename @end defvar @defvar gtk-print-operation-set-print-settings @end defvar @defvar gtk-print-operation-set-show-progress @end defvar @defvar gtk-print-operation-set-track-print-status @end defvar @defvar gtk-print-operation-set-use-full-page @end defvar @defvar gtk-print-settings-get-default-source @end defvar @defvar gtk-print-settings-get-double-with-default @end defvar @defvar gtk-print-settings-get-int-with-default @end defvar @defvar gtk-print-settings-set-default-source @end defvar @defvar gtk-progress-bar-get-orientation @end defvar @defvar gtk-propagate-event @end defvar @defvar gtk-radio-button-new-with-label-from-widget @end defvar @defvar gtk-radio-button-new-with-mnemonic-from-widget @end defvar @defvar gtk-radio-menu-item-new-with-label-from-widget @end defvar @defvar gtk-radio-menu-item-new-with-mnemonic @end defvar @defvar gtk-radio-menu-item-new-with-mnemonic-from-widget @end defvar @defun gtk-radio-tool-button-new-from-stock @end defun @defvar gtk-radio-tool-button-new-from-widget @end defvar @defvar gtk-radio-tool-button-new-with-stock-from-widget @end defvar @defvar gtk-range-get-lower-stepper-sensitivity @end defvar @defvar gtk-range-get-upper-stepper-sensitivity @end defvar @defvar gtk-range-set-lower-stepper-sensitivity @end defvar @defvar gtk-range-set-upper-stepper-sensitivity @end defvar @defvar gtk-rc-add-default-file @end defvar @defvar gtk-rc-find-module-in-path @end defvar @defvar gtk-rc-get-im-module-file @end defvar @defvar gtk-rc-get-im-module-path @end defvar @defvar gtk-rc-get-module-dir @end defvar @defvar gtk-rc-get-style @end defvar @defun gtk-rc-get-style-by-paths @end defun @defvar gtk-rc-get-theme-dir @end defvar @defvar gtk-rc-parse @end defvar @defvar gtk-rc-parse-string @end defvar @defvar gtk-rc-property-parse-border @end defvar @defvar gtk-rc-property-parse-color @end defvar @defvar gtk-rc-property-parse-enum @end defvar @defvar gtk-rc-property-parse-flags @end defvar @defvar gtk-rc-property-parse-requisition @end defvar @defvar gtk-rc-reparse-all @end defvar @defvar gtk-rc-reparse-all-for-settings @end defvar @defvar gtk-rc-reset-styles @end defvar @defun gtk-rc-set-default-files @end defun @defvar gtk-rc-style-copy @end defvar @defvar gtk-rc-style-new @end defvar @defvar gtk-recent-chooser-error-quark @end defvar @defvar gtk-recent-chooser-get-select-multiple @end defvar @defvar gtk-recent-chooser-get-show-not-found @end defvar @defvar gtk-recent-chooser-menu-get-show-numbers @end defvar @defvar gtk-recent-chooser-menu-new-for-manager @end defvar @defvar gtk-recent-chooser-menu-set-show-numbers @end defvar @defvar gtk-recent-chooser-set-select-multiple @end defvar @defvar gtk-recent-chooser-set-show-not-found @end defvar @defvar gtk-recent-chooser-widget-new-for-manager @end defvar @defvar gtk-recent-filter-add-pixbuf-formats @end defvar @defun gtk-recent-info-get-application-info @end defun @defvar gtk-recent-manager-error-quark @end defvar @defvar gtk-ruler-draw-pos @end defvar @defvar gtk-ruler-draw-ticks @end defvar @defvar gtk-scrolled-window-add-with-viewport @end defvar @defvar gtk-selection-add-target @end defvar @defvar gtk-selection-clear-targets @end defvar @defun gtk-selection-convert @end defun @defvar gtk-selection-data-get-as-string @end defvar @defvar gtk-selection-data-get-pixbuf @end defvar @defvar gtk-selection-data-set-pixbuf @end defvar @defvar gtk-selection-data-set-text @end defvar @defvar gtk-selection-data-targets-include-image @end defvar @defvar gtk-selection-data-targets-include-rich-text @end defvar @defvar gtk-selection-data-targets-include-text @end defvar @defvar gtk-selection-data-targets-include-uri @end defvar @defun gtk-selection-owner-set @end defun @defun gtk-selection-owner-set-for-display @end defun @defvar gtk-selection-remove-all @end defvar @defvar gtk-settings-get-default @end defvar @defvar gtk-settings-get-for-screen @end defvar @defvar gtk-settings-install-property @end defvar @defvar gtk-settings-set-double-property @end defvar @defvar gtk-settings-set-long-property @end defvar @defvar gtk-settings-set-string-property @end defvar @defvar gtk-spin-button-get-update-policy @end defvar @defvar gtk-stock-add @end defvar @defvar gtk-stock-add-static @end defvar @defvar gtk-stock-item-copy @end defvar @defun gtk-stock-list-ids @end defun @defvar gtk-stock-lookup @end defvar @defvar gtk-style-apply-default-background @end defvar @defvar gtk-style-attach @end defvar @defvar gtk-style-copy @end defvar @defvar gtk-style-detach @end defvar @defvar gtk-style-get-bg-gc @end defvar @defvar gtk-style-get-black-gc @end defvar @defvar gtk-style-get-fg-gc @end defvar @defvar gtk-style-get-white-gc @end defvar @defvar gtk-style-lookup-color @end defvar @defvar gtk-style-lookup-icon-set @end defvar @defvar gtk-style-new @end defvar @defvar gtk-style-render-icon @end defvar @defvar gtk-style-set-background @end defvar @defvar gtk-text-buffer-add-selection-clipboard @end defvar @defvar gtk-text-buffer-deserialize-get-can-create-tags @end defvar @defvar gtk-text-buffer-deserialize-set-can-create-tags @end defvar @defvar gtk-text-buffer-get-iter-at-child-anchor @end defvar @defvar gtk-text-buffer-get-iter-at-line-index @end defvar @defvar gtk-text-buffer-get-iter-at-line-offset @end defvar @defvar gtk-text-buffer-get-selection-bounds @end defvar @defvar gtk-text-buffer-insert-interactive-at-cursor @end defvar @defvar gtk-text-buffer-insert-range-interactive @end defvar @defun gtk-text-buffer-insert-with-tags-by-name @end defun @defvar gtk-text-buffer-register-deserialize-tagset @end defvar @defvar gtk-text-buffer-register-serialize-tagset @end defvar @defvar gtk-text-buffer-remove-selection-clipboard @end defvar @defvar gtk-text-iter-backward-cursor-position @end defvar @defvar gtk-text-iter-backward-cursor-positions @end defvar @defvar gtk-text-iter-backward-sentence-start @end defvar @defvar gtk-text-iter-backward-sentence-starts @end defvar @defvar gtk-text-iter-backward-to-tag-toggle @end defvar @defvar gtk-text-iter-backward-visible-cursor-position @end defvar @defvar gtk-text-iter-backward-visible-cursor-positions @end defvar @defvar gtk-text-iter-backward-visible-lines @end defvar @defvar gtk-text-iter-backward-visible-word-start @end defvar @defvar gtk-text-iter-backward-visible-word-starts @end defvar @defvar gtk-text-iter-forward-cursor-position @end defvar @defvar gtk-text-iter-forward-cursor-positions @end defvar @defvar gtk-text-iter-forward-visible-cursor-position @end defvar @defvar gtk-text-iter-forward-visible-cursor-positions @end defvar @defvar gtk-text-iter-forward-visible-word-end @end defvar @defvar gtk-text-iter-forward-visible-word-ends @end defvar @defvar gtk-text-iter-get-visible-line-index @end defvar @defvar gtk-text-iter-get-visible-line-offset @end defvar @defvar gtk-text-iter-set-visible-line-index @end defvar @defvar gtk-text-iter-set-visible-line-offset @end defvar @defvar gtk-text-view-backward-display-line-start @end defvar @defun gtk-text-view-buffer-to-window-coords @end defun @defvar gtk-text-view-forward-display-line-end @end defvar @defvar gtk-text-view-get-border-window-size @end defvar @defvar gtk-text-view-get-default-attributes @end defvar @defvar gtk-text-view-get-pixels-above-lines @end defvar @defvar gtk-text-view-get-pixels-below-lines @end defvar @defvar gtk-text-view-get-pixels-inside-wrap @end defvar @defvar gtk-text-view-set-border-window-size @end defvar @defvar gtk-text-view-set-pixels-above-lines @end defvar @defvar gtk-text-view-set-pixels-below-lines @end defvar @defvar gtk-text-view-set-pixels-inside-wrap @end defvar @defun gtk-text-view-window-to-buffer-coords @end defun @defvar gtk-toggle-tool-button-new-from-stock @end defvar @defvar gtk-tool-item-get-visible-horizontal @end defvar @defvar gtk-tool-item-retrieve-proxy-menu-item @end defvar @defvar gtk-tool-item-set-visible-horizontal @end defvar @defvar gtk-tree-drag-dest-drag-data-received @end defvar @defvar gtk-tree-drag-dest-row-drop-possible @end defvar @defvar gtk-tree-drag-source-drag-data-delete @end defvar @defvar gtk-tree-model-filter-convert-child-iter-to-iter @end defvar @defvar gtk-tree-model-filter-convert-child-path-to-path @end defvar @defvar gtk-tree-model-filter-convert-iter-to-child-iter @end defvar @defvar gtk-tree-model-filter-convert-path-to-child-path @end defvar @defvar gtk-tree-model-filter-set-visible-column @end defvar @defvar gtk-tree-model-row-has-child-toggled @end defvar @defvar gtk-tree-model-sort-convert-child-iter-to-iter @end defvar @defvar gtk-tree-model-sort-convert-child-path-to-path @end defvar @defvar gtk-tree-model-sort-convert-iter-to-child-iter @end defvar @defvar gtk-tree-model-sort-convert-path-to-child-path @end defvar @defvar gtk-tree-model-sort-reset-default-sort-func @end defvar @defvar gtk-tree-selection-count-selected-rows @end defvar @defvar gtk-tree-sortable-has-default-sort-func @end defvar @defvar gtk-tree-sortable-set-sort-column-id @end defvar @defvar gtk-tree-sortable-sort-column-changed @end defvar @defun gtk-tree-view-column-cell-get-position @end defun @defvar gtk-tree-view-column-cell-is-visible @end defvar @defvar gtk-tree-view-column-cell-set-cell-data @end defvar @defvar gtk-tree-view-column-clear-attributes @end defvar @defun gtk-tree-view-column-get-cell-renderers @end defun @defvar gtk-tree-view-column-get-fixed-width @end defvar @defvar gtk-tree-view-column-get-reorderable @end defvar @defvar gtk-tree-view-column-get-sort-column-id @end defvar @defvar gtk-tree-view-column-get-sort-indicator @end defvar @defvar gtk-tree-view-column-set-cell-data-func @end defvar @defvar gtk-tree-view-column-set-fixed-width @end defvar @defvar gtk-tree-view-column-set-reorderable @end defvar @defvar gtk-tree-view-column-set-sort-column-id @end defvar @defvar gtk-tree-view-column-set-sort-indicator @end defvar @defvar gtk-tree-view-unset-rows-drag-source @end defvar @defvar gtk-true @end defvar @defun gtk-vscrollbar-get-type @end defun @defvar gtk-widget-get-allocation @end defvar @defvar gtk-widget-get-state @end defvar @defvar gtk-widget-get-window @end defvar @defvar gtk-window-set-auto-startup-notification @end defvar @defun gtk-window-set-default-icon-from-file @end defun @c %end of fragment guile-gnome-platform-2.16.2/gtk/doc/gtk/defuns-gtklinkbutton.xml.texi0000644000175000017500000000305611670374302026165 0ustar00wingowingo00000000000000 @c %start of fragment @deftp Class Derives from @code{}. This class defines the following slots: @table @code @item uri The URI bound to this button @end table @end deftp @deffn Function gtk-link-button-new (uri@tie{}@code{mchars}) @result{}@tie{} (ret@tie{}@code{}) Creates a new @code{} with the URI as its text. @table @var @item uri a valid URI @item ret a new link button widget. @end table Since 2.10 @end deffn @deffn Function gtk-link-button-new-with-label (uri@tie{}@code{mchars}) (label@tie{}@code{mchars}) @result{}@tie{} (ret@tie{}@code{}) Creates a new @code{} containing a label. @table @var @item uri a valid URI @item label the text of the button @item ret a new link button widget. @end table Since 2.10 @end deffn @deffn Function gtk-link-button-get-uri (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{mchars}) @deffnx Method get-uri Retrieves the URI set using @code{gtk-link-button-set-uri}. @table @var @item link-button a @code{} @item ret a valid URI. The returned string is owned by the link button and should not be modified or freed. @end table Since 2.10 @end deffn @deffn Function gtk-link-button-set-uri (self@tie{}@code{}) (uri@tie{}@code{mchars}) @deffnx Method set-uri Sets @var{uri} as the URI where the @code{} points. @table @var @item link-button a @code{} @item uri a valid URI @end table Since 2.10 @end deffn @c %end of fragment guile-gnome-platform-2.16.2/gtk/doc/gtk/defuns-gtktextbuffer.xml.texi0000644000175000017500000011066611670374302026160 0ustar00wingowingo00000000000000 @c %start of fragment @deftp Class Derives from @code{}. This class defines the following slots: @table @code @item tag-table Text Tag Table @item text Current text of the buffer @item has-selection Whether the buffer has some text currently selected @item cursor-position The position of the insert mark (as offset from the beginning of the buffer) @item copy-target-list The list of targets this buffer supports for clipboard copying and DND source @item paste-target-list The list of targets this buffer supports for clipboard pasting and DND destination @end table @end deftp @defop Signal changed The changed signal is emitted when the content of a @code{} has changed. @end defop @defop Signal insert-text (arg0@tie{}@code{}) (arg1@tie{}@code{}) (arg2@tie{}@code{}) The insert_text signal is emitted to insert text in a @code{}. Insertion actually occurs in the default handler. Note that if your handler runs before the default handler it must not invalidate the @var{location} iter (or has to revalidate it). The default signal handler revalidates it to point to the end of the inserted text. See also: @code{gtk-text-buffer-insert}, @code{gtk-text-buffer-insert-range}. @end defop @defop Signal insert-pixbuf (arg0@tie{}@code{}) (arg1@tie{}@code{}) The insert_pixbuf signal is emitted to insert a @code{} in a @code{}. Insertion actually occurs in the default handler. Note that if your handler runs before the default handler it must not invalidate the @var{location} iter (or has to revalidate it). The default signal handler revalidates it to be placed after the inserted @var{pixbuf}. See also: @code{gtk-text-buffer-insert-pixbuf}. @end defop @defop Signal insert-child-anchor (arg0@tie{}@code{}) (arg1@tie{}@code{}) The insert_child_anchor signal is emitted to insert a @code{} in a @code{}. Insertion actually occurs in the default handler. Note that if your handler runs before the default handler it must not invalidate the @var{location} iter (or has to revalidate it). The default signal handler revalidates it to be placed after the inserted @var{anchor}. See also: @code{gtk-text-buffer-insert-child-anchor}. @end defop @defop Signal delete-range (arg0@tie{}@code{}) (arg1@tie{}@code{}) The delete_range signal is emitted to delete a range from a @code{}. Note that if your handler runs before the default handler it must not invalidate the @var{start} and @var{end} iters (or has to revalidate them). The default signal handler revalidates the @var{start} and @var{end} iters to both point point to the location where text was deleted. Handlers which run after the default handler (see @code{g-signal-connect-after}) do not have access to the deleted text. See also: @code{gtk-text-buffer-delete}. @end defop @defop Signal modified-changed The modified_changed signal is emitted when the modified bit of a @code{} flips. See also: @code{gtk-text-buffer-set-modified}. @end defop @defop Signal mark-set (arg0@tie{}@code{}) (arg1@tie{}@code{}) The mark_set signal is emitted as notification after a @code{} is set. See also: @code{gtk-text-buffer-create-mark}, @code{gtk-text-buffer-move-mark}. @end defop @defop Signal mark-deleted (arg0@tie{}@code{}) The mark_deleted signal is emitted as notification after a @code{} is deleted. See also: @code{gtk-text-buffer-delete-mark}. @end defop @defop Signal apply-tag (arg0@tie{}@code{}) (arg1@tie{}@code{}) (arg2@tie{}@code{}) The apply_tag signal is emitted to apply a tag to a range of text in a @code{}. Applying actually occurs in the default handler. Note that if your handler runs before the default handler it must not invalidate the @var{start} and @var{end} iters (or has to revalidate them). See also: @code{gtk-text-buffer-apply-tag}, @code{gtk-text-buffer-insert-with-tags}, @code{gtk-text-buffer-insert-range}. @end defop @defop Signal remove-tag (arg0@tie{}@code{}) (arg1@tie{}@code{}) (arg2@tie{}@code{}) The remove_tag signal is emitted to remove all occurrences of @var{tag} from a range of text in a @code{}. Removal actually occurs in the default handler. Note that if your handler runs before the default handler it must not invalidate the @var{start} and @var{end} iters (or has to revalidate them). See also: @code{gtk-text-buffer-remove-tag}. @end defop @defop Signal begin-user-action The begin_user_action signal is emitted at the beginning of a single user-visible operation on a @code{}. See also: @code{gtk-text-buffer-begin-user-action}, @code{gtk-text-buffer-insert-interactive}, @code{gtk-text-buffer-insert-range-interactive}, @code{gtk-text-buffer-delete-interactive}, @code{gtk-text-buffer-backspace}, @code{gtk-text-buffer-delete-selection}. @end defop @defop Signal end-user-action The end_user_action signal is emitted at the end of a single user-visible operation @code{}. See also: @code{gtk-text-buffer-end-user-action}, @code{gtk-text-buffer-insert-interactive}, @code{gtk-text-buffer-insert-range-interactive}, @code{gtk-text-buffer-delete-interactive}, @code{gtk-text-buffer-backspace}, @code{gtk-text-buffer-delete-selection}, @code{gtk-text-buffer-backspace}. @end defop @deffn Function gtk-text-buffer-new (table@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{}) Creates a new text buffer. @table @var @item table a tag table, or NULL to create a new one @item ret a new text buffer @end table @end deffn @deffn Function gtk-text-buffer-get-line-count (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{int}) @deffnx Method get-line-count Obtains the number of lines in the buffer. This value is cached, so the function is very fast. @table @var @item buffer a @code{} @item ret number of lines in the buffer @end table @end deffn @deffn Function gtk-text-buffer-get-char-count (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{int}) @deffnx Method get-char-count Gets the number of characters in the buffer; note that characters and bytes are not the same, you can't e.g. expect the contents of the buffer in string form to be this many bytes long. The character count is cached, so this function is very fast. @table @var @item buffer a @code{} @item ret number of characters in the buffer @end table @end deffn @deffn Function gtk-text-buffer-get-tag-table (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{}) @deffnx Method get-tag-table Get the @code{} associated with this buffer. @table @var @item buffer a @code{} @item ret the buffer's tag table @end table @end deffn @deffn Function gtk-text-buffer-insert (self@tie{}@code{}) (iter@tie{}@code{}) (stext@tie{}@code{scm}) @deffnx Method insert Inserts @var{len} bytes of @var{text} at position @var{iter}. If @var{len} is -1, @var{text} must be nul-terminated and will be inserted in its entirety. Emits the "insert_text" signal; insertion actually occurs in the default handler for the signal. @var{iter} is invalidated when insertion occurs (because the buffer contents change), but the default signal handler revalidates it to point to the end of the inserted text. @table @var @item buffer a @code{} @item iter a position in the buffer @item text UTF-8 format text to insert @item len length of text in bytes, or -1 @end table @end deffn @deffn Function gtk-text-buffer-insert-at-cursor (self@tie{}@code{}) (stext@tie{}@code{scm}) @deffnx Method insert-at-cursor Simply calls @code{gtk-text-buffer-insert}, using the current cursor position as the insertion point. @table @var @item buffer a @code{} @item text some text in UTF-8 format @item len length of text, in bytes @end table @end deffn @deffn Function gtk-text-buffer-insert-interactive (self@tie{}@code{}) (iter@tie{}@code{}) (stext@tie{}@code{scm}) (default_editable@tie{}@code{bool}) @result{}@tie{} (ret@tie{}@code{bool}) @deffnx Method insert-interactive Like @code{gtk-text-buffer-insert}, but the insertion will not occur if @var{iter} is at a non-editable location in the buffer. Usually you want to prevent insertions at ineditable locations if the insertion results from a user action (is interactive). @var{default-editable} indicates the editability of text that doesn't have a tag affecting editability applied to it. Typically the result of @code{gtk-text-view-get-editable} is appropriate here. @table @var @item buffer a @code{} @item iter a position in @var{buffer} @item text some UTF-8 text @item len length of text in bytes, or -1 @item default-editable default editability of buffer @item ret whether text was actually inserted @end table @end deffn @deffn Function gtk-text-buffer-insert-range (self@tie{}@code{}) (iter@tie{}@code{}) (start@tie{}@code{}) (end@tie{}@code{}) @deffnx Method insert-range Copies text, tags, and pixbufs between @var{start} and @var{end} (the order of @var{start} and @var{end} doesn't matter) and inserts the copy at @var{iter}. Used instead of simply getting/inserting text because it preserves images and tags. If @var{start} and @var{end} are in a different buffer from @var{buffer}, the two buffers must share the same tag table. Implemented via emissions of the insert_text and apply_tag signals, so expect those. @table @var @item buffer a @code{} @item iter a position in @var{buffer} @item start a position in a @code{} @item end another position in the same buffer as @var{start} @end table @end deffn @deffn Function gtk-text-buffer-insert-with-tags (self@tie{}@code{}) (iter@tie{}@code{}) (stext@tie{}@code{scm}) (tag_list@tie{}@code{glist-of}) @deffnx Method insert-with-tags Inserts @var{text} into @var{buffer} at @var{iter}, applying the list of tags to the newly-inserted text. The last tag specified must be NULL to terminate the list. Equivalent to calling @code{gtk-text-buffer-insert}, then @code{gtk-text-buffer-apply-tag} on the inserted text; @code{gtk-text-buffer-insert-with-tags} is just a convenience function. @table @var @item buffer a @code{} @item iter an iterator in @var{buffer} @item text UTF-8 text @item len length of @var{text}, or -1 @item first-tag first tag to apply to @var{text} @item ... NULL-terminated list of tags to apply @end table @end deffn @deffn Function gtk-text-buffer-delete (self@tie{}@code{}) (start@tie{}@code{}) (end@tie{}@code{}) @deffnx Method delete Deletes text between @var{start} and @var{end}. The order of @var{start} and @var{end} is not actually relevant; @code{gtk-text-buffer-delete} will reorder them. This function actually emits the "delete_range" signal, and the default handler of that signal deletes the text. Because the buffer is modified, all outstanding iterators become invalid after calling this function; however, the @var{start} and @var{end} will be re-initialized to point to the location where text was deleted. @table @var @item buffer a @code{} @item start a position in @var{buffer} @item end another position in @var{buffer} @end table @end deffn @deffn Function gtk-text-buffer-delete-interactive (self@tie{}@code{}) (start_iter@tie{}@code{}) (end_iter@tie{}@code{}) (default_editable@tie{}@code{bool}) @result{}@tie{} (ret@tie{}@code{bool}) @deffnx Method delete-interactive Deletes all @emph{editable} text in the given range. Calls @code{gtk-text-buffer-delete} for each editable sub-range of [@var{start},@var{end}). @var{start} and @var{end} are revalidated to point to the location of the last deleted range, or left untouched if no text was deleted. @table @var @item buffer a @code{} @item start-iter start of range to delete @item end-iter end of range @item default-editable whether the buffer is editable by default @item ret whether some text was actually deleted @end table @end deffn @deffn Function gtk-text-buffer-backspace (self@tie{}@code{}) (iter@tie{}@code{}) (interactive@tie{}@code{bool}) (default_editable@tie{}@code{bool}) @result{}@tie{} (ret@tie{}@code{bool}) @deffnx Method backspace Performs the appropriate action as if the user hit the delete key with the cursor at the position specified by @var{iter}. In the normal case a single character will be deleted, but when combining accents are involved, more than one character can be deleted, and when precomposed character and accent combinations are involved, less than one character will be deleted. Because the buffer is modified, all outstanding iterators become invalid after calling this function; however, the @var{iter} will be re-initialized to point to the location where text was deleted. @table @var @item buffer a @code{} @item iter a position in @var{buffer} @item interactive whether the deletion is caused by user interaction @item default-editable whether the buffer is editable by default @item ret @samp{@code{#t}} if the buffer was modified @end table Since 2.6 @end deffn @deffn Function gtk-text-buffer-set-text (self@tie{}@code{}) (stext@tie{}@code{scm}) @deffnx Method set-text Deletes current contents of @var{buffer}, and inserts @var{text} instead. If @var{len} is -1, @var{text} must be nul-terminated. @var{text} must be valid UTF-8. @table @var @item buffer a @code{} @item text UTF-8 text to insert @item len length of @var{text} in bytes @end table @end deffn @deffn Function gtk-text-buffer-get-text (self@tie{}@code{}) (start@tie{}@code{}) (end@tie{}@code{}) (include_hidden_chars@tie{}@code{bool}) @result{}@tie{} (ret@tie{}@code{mchars}) @deffnx Method get-text Returns the text in the range [@var{start},@var{end}). Excludes undisplayed text (text marked with tags that set the invisibility attribute) if @var{include-hidden-chars} is @samp{@code{#f}}. Does not include characters representing embedded images, so byte and character indexes into the returned string do @emph{not} correspond to byte and character indexes into the buffer. Contrast with @code{gtk-text-buffer-get-slice}. @table @var @item buffer a @code{} @item start start of a range @item end end of a range @item include-hidden-chars whether to include invisible text @item ret an allocated UTF-8 string @end table @end deffn @deffn Function gtk-text-buffer-get-slice (self@tie{}@code{}) (start@tie{}@code{}) (end@tie{}@code{}) (include_hidden_chars@tie{}@code{bool}) @result{}@tie{} (ret@tie{}@code{mchars}) @deffnx Method get-slice Returns the text in the range [@var{start},@var{end}). Excludes undisplayed text (text marked with tags that set the invisibility attribute) if @var{include-hidden-chars} is @samp{@code{#f}}. The returned string includes a 0xFFFC character whenever the buffer contains embedded images, so byte and character indexes into the returned string @emph{do} correspond to byte and character indexes into the buffer. Contrast with @code{gtk-text-buffer-get-text}. Note that 0xFFFC can occur in normal text as well, so it is not a reliable indicator that a pixbuf or widget is in the buffer. @table @var @item buffer a @code{} @item start start of a range @item end end of a range @item include-hidden-chars whether to include invisible text @item ret an allocated UTF-8 string @end table @end deffn @deffn Function gtk-text-buffer-insert-pixbuf (self@tie{}@code{}) (iter@tie{}@code{}) (pixbuf@tie{}@code{}) @deffnx Method insert-pixbuf Inserts an image into the text buffer at @var{iter}. The image will be counted as one character in character counts, and when obtaining the buffer contents as a string, will be represented by the Unicode "object replacement character" 0xFFFC. Note that the "slice" variants for obtaining portions of the buffer as a string include this character for pixbufs, but the "text" variants do not. e.g. see @code{gtk-text-buffer-get-slice} and @code{gtk-text-buffer-get-text}. @table @var @item buffer a @code{} @item iter location to insert the pixbuf @item pixbuf a @code{} @end table @end deffn @deffn Function gtk-text-buffer-insert-child-anchor (self@tie{}@code{}) (iter@tie{}@code{}) (anchor@tie{}@code{}) @deffnx Method insert-child-anchor Inserts a child widget anchor into the text buffer at @var{iter}. The anchor will be counted as one character in character counts, and when obtaining the buffer contents as a string, will be represented by the Unicode "object replacement character" 0xFFFC. Note that the "slice" variants for obtaining portions of the buffer as a string include this character for child anchors, but the "text" variants do not. e.g. see @code{gtk-text-buffer-get-slice} and @code{gtk-text-buffer-get-text}. Consider @code{gtk-text-buffer-create-child-anchor} as a more convenient alternative to this function. The buffer will add a reference to the anchor, so you can unref it after insertion. @table @var @item buffer a @code{} @item iter location to insert the anchor @item anchor a @code{} @end table @end deffn @deffn Function gtk-text-buffer-create-child-anchor (self@tie{}@code{}) (iter@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{}) @deffnx Method create-child-anchor This is a convenience function which simply creates a child anchor with @code{gtk-text-child-anchor-new} and inserts it into the buffer with @code{gtk-text-buffer-insert-child-anchor}. The new anchor is owned by the buffer; no reference count is returned to the caller of @code{gtk-text-buffer-create-child-anchor}. @table @var @item buffer a @code{} @item iter location in the buffer @item ret the created child anchor @end table @end deffn @deffn Function gtk-text-buffer-create-mark (self@tie{}@code{}) (mark_name@tie{}@code{mchars}) (where@tie{}@code{}) (left_gravity@tie{}@code{bool}) @result{}@tie{} (ret@tie{}@code{}) @deffnx Method create-mark Creates a mark at position @var{where}. If @var{mark-name} is @samp{@code{#f}}, the mark is anonymous; otherwise, the mark can be retrieved by name using @code{gtk-text-buffer-get-mark}. If a mark has left gravity, and text is inserted at the mark's current location, the mark will be moved to the left of the newly-inserted text. If the mark has right gravity (@var{left-gravity} = @samp{@code{#f}}), the mark will end up on the right of newly-inserted text. The standard left-to-right cursor is a mark with right gravity (when you type, the cursor stays on the right side of the text you're typing). The caller of this function does @emph{not} own a reference to the returned @code{}, so you can ignore the return value if you like. Marks are owned by the buffer and go away when the buffer does. Emits the "mark_set" signal as notification of the mark's initial placement. @table @var @item buffer a @code{} @item mark-name name for mark, or @samp{@code{#f}} @item where location to place mark @item left-gravity whether the mark has left gravity @item ret the new @code{} object @end table @end deffn @deffn Function gtk-text-buffer-move-mark (self@tie{}@code{}) (mark@tie{}@code{}) (where@tie{}@code{}) @deffnx Method move-mark Moves @var{mark} to the new location @var{where}. Emits the "mark_set" signal as notification of the move. @table @var @item buffer a @code{} @item mark a @code{} @item where new location for @var{mark} in @var{buffer} @end table @end deffn @deffn Function gtk-text-buffer-move-mark-by-name (self@tie{}@code{}) (name@tie{}@code{mchars}) (where@tie{}@code{}) @deffnx Method move-mark-by-name Moves the mark named @var{name} (which must exist) to location @var{where}. See @code{gtk-text-buffer-move-mark} for details. @table @var @item buffer a @code{} @item name name of a mark @item where new location for mark @end table @end deffn @deffn Function gtk-text-buffer-delete-mark (self@tie{}@code{}) (mark@tie{}@code{}) @deffnx Method delete-mark Deletes @var{mark}, so that it's no longer located anywhere in the buffer. Removes the reference the buffer holds to the mark, so if you haven't called @code{g-object-ref} on the mark, it will be freed. Even if the mark isn't freed, most operations on @var{mark} become invalid. There is no way to undelete a mark. @code{gtk-text-mark-get-deleted} will return TRUE after this function has been called on a mark; @code{gtk-text-mark-get-deleted} indicates that a mark no longer belongs to a buffer. The "mark_deleted" signal will be emitted as notification after the mark is deleted. @table @var @item buffer a @code{} @item mark a @code{} in @var{buffer} @end table @end deffn @deffn Function gtk-text-buffer-delete-mark-by-name (self@tie{}@code{}) (name@tie{}@code{mchars}) @deffnx Method delete-mark-by-name Deletes the mark named @var{name}; the mark must exist. See @code{gtk-text-buffer-delete-mark} for details. @table @var @item buffer a @code{} @item name name of a mark in @var{buffer} @end table @end deffn @deffn Function gtk-text-buffer-get-mark (self@tie{}@code{}) (name@tie{}@code{mchars}) @result{}@tie{} (ret@tie{}@code{}) @deffnx Method get-mark Returns the mark named @var{name} in buffer @var{buffer}, or NULL if no such mark exists in the buffer. @table @var @item buffer a @code{} @item name a mark name @item ret a @code{}, or NULL @end table @end deffn @deffn Function gtk-text-buffer-get-insert (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{}) @deffnx Method get-insert Returns the mark that represents the cursor (insertion point). Equivalent to calling @code{gtk-text-buffer-get-mark} to get the mark named "insert", but very slightly more efficient, and involves less typing. @table @var @item buffer a @code{} @item ret insertion point mark @end table @end deffn @deffn Function gtk-text-buffer-get-selection-bound (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{}) @deffnx Method get-selection-bound Returns the mark that represents the selection bound. Equivalent to calling @code{gtk-text-buffer-get-mark} to get the mark named "selection_bound", but very slightly more efficient, and involves less typing. The currently-selected text in @var{buffer} is the region between the "selection_bound" and "insert" marks. If "selection_bound" and "insert" are in the same place, then there is no current selection. @code{gtk-text-buffer-get-selection-bounds} is another convenient function for handling the selection, if you just want to know whether there's a selection and what its bounds are. @table @var @item buffer a @code{} @item ret selection bound mark @end table @end deffn @deffn Function gtk-text-buffer-get-has-selection (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{bool}) @deffnx Method get-has-selection Indicates whether the buffer has some text currently selected. @table @var @item buffer a @code{} @item ret @samp{@code{#t}} if the there is text selected @end table Since 2.10 @end deffn @deffn Function gtk-text-buffer-place-cursor (self@tie{}@code{}) (where@tie{}@code{}) @deffnx Method place-cursor This function moves the "insert" and "selection_bound" marks simultaneously. If you move them to the same place in two steps with @code{gtk-text-buffer-move-mark}, you will temporarily select a region in between their old and new locations, which can be pretty inefficient since the temporarily-selected region will force stuff to be recalculated. This function moves them as a unit, which can be optimized. @table @var @item buffer a @code{} @item where where to put the cursor @end table @end deffn @deffn Function gtk-text-buffer-select-range (self@tie{}@code{}) (ins@tie{}@code{}) (bound@tie{}@code{}) @deffnx Method select-range This function moves the "insert" and "selection_bound" marks simultaneously. If you move them in two steps with @code{gtk-text-buffer-move-mark}, you will temporarily select a region in between their old and new locations, which can be pretty inefficient since the temporarily-selected region will force stuff to be recalculated. This function moves them as a unit, which can be optimized. @table @var @item buffer a @code{} @item ins where to put the "insert" mark @item bound where to put the "selection_bound" mark @end table Since 2.4 @end deffn @deffn Function gtk-text-buffer-apply-tag (self@tie{}@code{}) (tag@tie{}@code{}) (start@tie{}@code{}) (end@tie{}@code{}) @deffnx Method apply-tag Emits the "apply_tag" signal on @var{buffer}. The default handler for the signal applies @var{tag} to the given range. @var{start} and @var{end} do not have to be in order. @table @var @item buffer a @code{} @item tag a @code{} @item start one bound of range to be tagged @item end other bound of range to be tagged @end table @end deffn @deffn Function gtk-text-buffer-remove-tag (self@tie{}@code{}) (tag@tie{}@code{}) (start@tie{}@code{}) (end@tie{}@code{}) @deffnx Method remove-tag Emits the "remove_tag" signal. The default handler for the signal removes all occurrences of @var{tag} from the given range. @var{start} and @var{end} don't have to be in order. @table @var @item buffer a @code{} @item tag a @code{} @item start one bound of range to be untagged @item end other bound of range to be untagged @end table @end deffn @deffn Function gtk-text-buffer-apply-tag-by-name (self@tie{}@code{}) (name@tie{}@code{mchars}) (start@tie{}@code{}) (end@tie{}@code{}) @deffnx Method apply-tag-by-name Calls @code{gtk-text-tag-table-lookup} on the buffer's tag table to get a @code{}, then calls @code{gtk-text-buffer-apply-tag}. @table @var @item buffer a @code{} @item name name of a named @code{} @item start one bound of range to be tagged @item end other bound of range to be tagged @end table @end deffn @deffn Function gtk-text-buffer-remove-tag-by-name (self@tie{}@code{}) (name@tie{}@code{mchars}) (start@tie{}@code{}) (end@tie{}@code{}) @deffnx Method remove-tag-by-name Calls @code{gtk-text-tag-table-lookup} on the buffer's tag table to get a @code{}, then calls @code{gtk-text-buffer-remove-tag}. @table @var @item buffer a @code{} @item name name of a @code{} @item start one bound of range to be untagged @item end other bound of range to be untagged @end table @end deffn @deffn Function gtk-text-buffer-remove-all-tags (self@tie{}@code{}) (start@tie{}@code{}) (end@tie{}@code{}) @deffnx Method remove-all-tags Removes all tags in the range between @var{start} and @var{end}. Be careful with this function; it could remove tags added in code unrelated to the code you're currently writing. That is, using this function is probably a bad idea if you have two or more unrelated code sections that add tags. @table @var @item buffer a @code{} @item start one bound of range to be untagged @item end other bound of range to be untagged @end table @end deffn @deffn Function gtk-text-buffer-get-iter-at-offset (self@tie{}@code{}) (char_offset@tie{}@code{int}) @result{}@tie{} (ret@tie{}@code{}) @deffnx Method get-iter-at-offset Initializes @var{iter} to a position @var{char-offset} chars from the start of the entire buffer. If @var{char-offset} is -1 or greater than the number of characters in the buffer, @var{iter} is initialized to the end iterator, the iterator one past the last valid character in the buffer. @table @var @item buffer a @code{} @item iter iterator to initialize @item char-offset char offset from start of buffer, counting from 0, or -1 @end table @end deffn @deffn Function gtk-text-buffer-get-iter-at-line (self@tie{}@code{}) (line_number@tie{}@code{int}) @result{}@tie{} (ret@tie{}@code{}) @deffnx Method get-iter-at-line Initializes @var{iter} to the start of the given line. @table @var @item buffer a @code{} @item iter iterator to initialize @item line-number line number counting from 0 @end table @end deffn @deffn Function gtk-text-buffer-get-iter-at-mark (self@tie{}@code{}) (mark@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{}) @deffnx Method get-iter-at-mark Initializes @var{iter} with the current position of @var{mark}. @table @var @item buffer a @code{} @item iter iterator to initialize @item mark a @code{} in @var{buffer} @end table @end deffn @deffn Function gtk-text-buffer-get-start-iter (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{}) @deffnx Method get-start-iter Initialized @var{iter} with the first position in the text buffer. This is the same as using @code{gtk-text-buffer-get-iter-at-offset} to get the iter at character offset 0. @table @var @item buffer a @code{} @item iter iterator to initialize @end table @end deffn @deffn Function gtk-text-buffer-get-end-iter (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{}) @deffnx Method get-end-iter Initializes @var{iter} with the "end iterator," one past the last valid character in the text buffer. If dereferenced with @code{gtk-text-iter-get-char}, the end iterator has a character value of 0. The entire buffer lies in the range from the first position in the buffer (call @code{gtk-text-buffer-get-start-iter} to get character position 0) to the end iterator. @table @var @item buffer a @code{} @item iter iterator to initialize @end table @end deffn @deffn Function gtk-text-buffer-get-bounds (self@tie{}@code{}) @result{}@tie{} (start@tie{}@code{}) (end@tie{}@code{}) @deffnx Method get-bounds @deffnx Method get-bounds Retrieves the first and last iterators in the buffer, i.e. the entire buffer lies within the range [@var{start},@var{end}). @table @var @item buffer a @code{} @item start iterator to initialize with first position in the buffer @item end iterator to initialize with the end iterator @end table @end deffn @deffn Function gtk-text-buffer-get-modified (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{bool}) @deffnx Method get-modified Indicates whether the buffer has been modified since the last call to @code{gtk-text-buffer-set-modified} set the modification flag to @samp{@code{#f}}. Used for example to enable a "save" function in a text editor. @table @var @item buffer a @code{} @item ret @samp{@code{#t}} if the buffer has been modified @end table @end deffn @deffn Function gtk-text-buffer-set-modified (self@tie{}@code{}) (setting@tie{}@code{bool}) @deffnx Method set-modified Used to keep track of whether the buffer has been modified since the last time it was saved. Whenever the buffer is saved to disk, call gtk_text_buffer_set_modified (@var{buffer}, FALSE). When the buffer is modified, it will automatically toggled on the modified bit again. When the modified bit flips, the buffer emits a "modified_changed" signal. @table @var @item buffer a @code{} @item setting modification flag setting @end table @end deffn @deffn Function gtk-text-buffer-delete-selection (self@tie{}@code{}) (interactive@tie{}@code{bool}) (default_editable@tie{}@code{bool}) @result{}@tie{} (ret@tie{}@code{bool}) @deffnx Method delete-selection Deletes the range between the "insert" and "selection_bound" marks, that is, the currently-selected text. If @var{interactive} is @samp{@code{#t}}, the editability of the selection will be considered (users can't delete uneditable text). @table @var @item buffer a @code{} @item interactive whether the deletion is caused by user interaction @item default-editable whether the buffer is editable by default @item ret whether there was a non-empty selection to delete @end table @end deffn @deffn Function gtk-text-buffer-paste-clipboard (self@tie{}@code{}) (clipboard@tie{}@code{}) (override_location@tie{}@code{}) (default_editable@tie{}@code{bool}) @deffnx Method paste-clipboard Pastes the contents of a clipboard at the insertion point, or at @var{override-location}. (Note: pasting is asynchronous, that is, we'll ask for the paste data and return, and at some point later after the main loop runs, the paste data will be inserted.) @table @var @item buffer a @code{} @item clipboard the @code{} to paste from @item override-location location to insert pasted text, or @samp{@code{#f}} for at the cursor @item default-editable whether the buffer is editable by default @end table @end deffn @deffn Function gtk-text-buffer-copy-clipboard (self@tie{}@code{}) (clipboard@tie{}@code{}) @deffnx Method copy-clipboard Copies the currently-selected text to a clipboard. @table @var @item buffer a @code{} @item clipboard the @code{} object to copy to. @end table @end deffn @deffn Function gtk-text-buffer-cut-clipboard (self@tie{}@code{}) (clipboard@tie{}@code{}) (default_editable@tie{}@code{bool}) @deffnx Method cut-clipboard Copies the currently-selected text to a clipboard, then deletes said text if it's editable. @table @var @item buffer a @code{} @item clipboard the @code{} object to cut to. @item default-editable default editability of the buffer @end table @end deffn @deffn Function gtk-text-buffer-begin-user-action (self@tie{}@code{}) @deffnx Method begin-user-action Called to indicate that the buffer operations between here and a call to @code{gtk-text-buffer-end-user-action} are part of a single user-visible operation. The operations between @code{gtk-text-buffer-begin-user-action} and @code{gtk-text-buffer-end-user-action} can then be grouped when creating an undo stack. @code{} maintains a count of calls to @code{gtk-text-buffer-begin-user-action} that have not been closed with a call to @code{gtk-text-buffer-end-user-action}, and emits the "begin_user_action" and "end_user_action" signals only for the outermost pair of calls. This allows you to build user actions from other user actions. The "interactive" buffer mutation functions, such as @code{gtk-text-buffer-insert-interactive}, automatically call begin/end user action around the buffer operations they perform, so there's no need to add extra calls if you user action consists solely of a single call to one of those functions. @table @var @item buffer a @code{} @end table @end deffn @deffn Function gtk-text-buffer-end-user-action (self@tie{}@code{}) @deffnx Method end-user-action Should be paired with a call to @code{gtk-text-buffer-begin-user-action}. See that function for a full explanation. @table @var @item buffer a @code{} @end table @end deffn @c %end of fragment guile-gnome-platform-2.16.2/gtk/doc/gtk/section-gtkrange.xml.texi0000644000175000017500000000030711670374302025244 0ustar00wingowingo00000000000000 @c %start of fragment @node GtkRange @chapter GtkRange Base class for widgets which visualize an adjustment @section Overview @section Usage @include defuns-gtkrange.xml.texi @c %end of fragment guile-gnome-platform-2.16.2/gtk/doc/gtk/defuns-gtkhandlebox.xml.texi0000644000175000017500000001004611670374302025735 0ustar00wingowingo00000000000000 @c %start of fragment @deftp Class Derives from @code{}. This class defines the following slots: @table @code @item shadow Deprecated property, use shadow_type instead @item shadow-type Appearance of the shadow that surrounds the container @item handle-position Position of the handle relative to the child widget @item snap-edge Side of the handlebox that's lined up with the docking point to dock the handlebox @item snap-edge-set Whether to use the value from the snap_edge property or a value derived from handle_position @end table @end deftp @defop Signal child-attached (arg0@tie{}@code{}) This signal is emitted when the contents of the handlebox are reattached to the main window. @end defop @defop Signal child-detached (arg0@tie{}@code{}) This signal is emitted when the contents of the handlebox are detached from the main window. @end defop @deffn Function gtk-handle-box-new @result{}@tie{} (ret@tie{}@code{}) Create a new handle box. @table @var @item ret a new @code{}. @end table @end deffn @deffn Function gtk-handle-box-set-shadow-type (self@tie{}@code{}) (type@tie{}@code{}) @deffnx Method set-shadow-type Sets the type of shadow to be drawn around the border of the handle box. @table @var @item handle-box a @code{} @item type the shadow type. @end table @end deffn @deffn Function gtk-handle-box-set-handle-position (self@tie{}@code{}) (position@tie{}@code{}) @deffnx Method set-handle-position Sets the side of the handlebox where the handle is drawn. @table @var @item handle-box a @code{} @item position the side of the handlebox where the handle should be drawn. @end table @end deffn @deffn Function gtk-handle-box-set-snap-edge (self@tie{}@code{}) (edge@tie{}@code{}) @deffnx Method set-snap-edge Sets the snap edge of a handlebox. The snap edge is the edge of the detached child that must be aligned with the corresponding edge of the "ghost" left behind when the child was detached to reattach the torn-off window. Usually, the snap edge should be chosen so that it stays in the same place on the screen when the handlebox is torn off. If the snap edge is not set, then an appropriate value will be guessed from the handle position. If the handle position is @samp{GTK_POS_RIGHT} or @samp{GTK_POS_LEFT}, then the snap edge will be @samp{GTK_POS_TOP}, otherwise it will be @samp{GTK_POS_LEFT}. @table @var @item handle-box a @code{} @item edge the snap edge, or -1 to unset the value; in which case GTK+ will try to guess an appropriate value in the future. @end table @end deffn @deffn Function gtk-handle-box-get-handle-position (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{}) @deffnx Method get-handle-position Gets the handle position of the handle box. See @code{gtk-handle-box-set-handle-position}. @table @var @item handle-box a @code{} @item ret the current handle position. @end table @end deffn @deffn Function gtk-handle-box-get-shadow-type (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{}) @deffnx Method get-shadow-type Gets the type of shadow drawn around the handle box. See @code{gtk-handle-box-set-shadow-type}. @table @var @item handle-box a @code{} @item ret the type of shadow currently drawn around the handle box. @end table @end deffn @deffn Function gtk-handle-box-get-snap-edge (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{}) @deffnx Method get-snap-edge Gets the edge used for determining reattachment of the handle box. See @code{gtk-handle-box-set-snap-edge}. @table @var @item handle-box a @code{} @item ret the edge used for determining reattachment, or (GtkPositionType)-1 if this is determined (as per default) from the handle position. @end table @end deffn @c %end of fragment guile-gnome-platform-2.16.2/gtk/doc/gtk/section-gtkbox.xml.texi0000644000175000017500000000452311670374302024744 0ustar00wingowingo00000000000000 @c %start of fragment @node GtkBox @chapter GtkBox Base class for box containers @section Overview GtkBox is an abstract widget which encapsulates functionallity for a particular kind of container, one that organizes a variable number of widgets into a rectangular area. GtkBox currently has two derived classes, @code{} and @code{}. The rectangular area of a GtkBox is organized into either a single row or a single column of child widgets depending upon whether the box is of type @code{} or @code{}, respectively. Thus, all children of a GtkBox are allocated one dimension in common, which is the height of a row, or the width of a column. GtkBox uses a notion of @emph{packing}. Packing refers to adding widgets with reference to a particular position in a @code{}. For a GtkBox, there are two reference positions: the @emph{start} and the @emph{end} of the box. For a @code{}, the start is defined as the top of the box and the end is defined as the bottom. For a @code{} the start is defined as the left side and the end is defined as the right side. Use repeated calls to @code{gtk-box-pack-start} to pack widgets into a GtkBox from start to end. Use @code{gtk-box-pack-end} to add widgets from end to start. You may intersperse these calls and add widgets from both ends of the same GtkBox. Use @code{gtk-box-pack-start-defaults} or @code{gtk-box-pack-end-defaults} to pack widgets into a GtkBox if you do not need to specify the , , or attributes of the child to be added. Because GtkBox is a @code{}, you may also use @code{gtk-container-add} to insert widgets into the box, and they will be packed as if with @code{gtk-box-pack-start-defaults}. Use @code{gtk-container-remove} to remove widgets from the GtkBox. Use @code{gtk-box-set-homogeneous} to specify whether or not all children of the GtkBox are forced to get the same amount of space. Use @code{gtk-box-set-spacing} to determine how much space will be minimally placed between all children in the GtkBox. Use @code{gtk-box-reorder-child} to move a GtkBox child to a different place in the box. Use @code{gtk-box-set-child-packing} to reset the , , and attributes of any GtkBox child. Use @code{gtk-box-query-child-packing} to query these fields. @section Usage @include defuns-gtkbox.xml.texi @c %end of fragment guile-gnome-platform-2.16.2/gtk/doc/gtk/guile-gnome-gtk.info-20000644000175000017500000111507311752516272024332 0ustar00wingowingo00000000000000This is guile-gnome-gtk.info, produced by makeinfo version 4.13 from guile-gnome-gtk.texi. This manual is for `(gnome gtk)' (version 2.16.2, updated 9 December 2011) Copyright 1997-2007 Damon Chaplin and others This work may be reproduced and distributed in whole or in part, in any medium, physical or electronic, so as long as this copyright notice remains intact and unchanged on all copies. Commercial redistribution is permitted and encouraged, but you may not redistribute, in whole or in part, under terms more restrictive than those under which you received it. If you redistribute a modified or translated version of this work, you must also make the source code to the modified or translated version available in electronic form without charge. However, mere aggregation as part of a larger work shall not count as a modification for this purpose. All code examples in this work are placed into the public domain, and may be used, modified and redistributed without restriction. BECAUSE THIS WORK IS LICENSED FREE OF CHARGE, THERE IS NO WARRANTY FOR THE WORK, TO THE EXTENT PERMITTED BY APPLICABLE LAW. EXCEPT WHEN OTHERWISE STATED IN WRITING THE COPYRIGHT HOLDERS AND/OR OTHER PARTIES PROVIDE THE WORK "AS IS" WITHOUT WARRANTY OF ANY KIND, EITHER EXPRESSED OR IMPLIED, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE. SHOULD THE WORK PROVE DEFECTIVE, YOU ASSUME THE COST OF ALL NECESSARY REPAIR OR CORRECTION. IN NO EVENT UNLESS REQUIRED BY APPLICABLE LAW OR AGREED TO IN WRITING WILL ANY COPYRIGHT HOLDER, OR ANY OTHER PARTY WHO MAY MODIFY AND/OR REDISTRIBUTE THE WORK AS PERMITTED ABOVE, BE LIABLE TO YOU FOR DAMAGES, INCLUDING ANY GENERAL, SPECIAL, INCIDENTAL OR CONSEQUENTIAL DAMAGES ARISING OUT OF THE USE OR INABILITY TO USE THE WORK, EVEN IF SUCH HOLDER OR OTHER PARTY HAS BEEN ADVISED OF THE POSSIBILITY OF SUCH DAMAGES. INFO-DIR-SECTION The Algorithmic Language Scheme START-INFO-DIR-ENTRY * Guile-Gtk: (guile-gnome-gtk.info). The GIMP ToolKit. END-INFO-DIR-ENTRY  File: guile-gnome-gtk.info, Node: GtkTextBuffer, Next: GtkTextTag, Prev: GtkTextMark, Up: Top 28 GtkTextBuffer **************** Stores attributed text for display in a 28.1 Overview ============= You may wish to begin by reading the text widget conceptual overview which gives an overview of all the objects and data types related to the text widget and how they work together. 28.2 Usage ========== -- Class: Derives from `'. This class defines the following slots: `tag-table' Text Tag Table `text' Current text of the buffer `has-selection' Whether the buffer has some text currently selected `cursor-position' The position of the insert mark (as offset from the beginning of the buffer) `copy-target-list' The list of targets this buffer supports for clipboard copying and DND source `paste-target-list' The list of targets this buffer supports for clipboard pasting and DND destination -- Signal on : changed The changed signal is emitted when the content of a `' has changed. -- Signal on : insert-text (arg0 `') (arg1 `') (arg2 `') The insert_text signal is emitted to insert text in a `'. Insertion actually occurs in the default handler. Note that if your handler runs before the default handler it must not invalidate the LOCATION iter (or has to revalidate it). The default signal handler revalidates it to point to the end of the inserted text. See also: `gtk-text-buffer-insert', `gtk-text-buffer-insert-range'. -- Signal on : insert-pixbuf (arg0 `') (arg1 `') The insert_pixbuf signal is emitted to insert a `' in a `'. Insertion actually occurs in the default handler. Note that if your handler runs before the default handler it must not invalidate the LOCATION iter (or has to revalidate it). The default signal handler revalidates it to be placed after the inserted PIXBUF. See also: `gtk-text-buffer-insert-pixbuf'. -- Signal on : insert-child-anchor (arg0 `') (arg1 `') The insert_child_anchor signal is emitted to insert a `' in a `'. Insertion actually occurs in the default handler. Note that if your handler runs before the default handler it must not invalidate the LOCATION iter (or has to revalidate it). The default signal handler revalidates it to be placed after the inserted ANCHOR. See also: `gtk-text-buffer-insert-child-anchor'. -- Signal on : delete-range (arg0 `') (arg1 `') The delete_range signal is emitted to delete a range from a `'. Note that if your handler runs before the default handler it must not invalidate the START and END iters (or has to revalidate them). The default signal handler revalidates the START and END iters to both point point to the location where text was deleted. Handlers which run after the default handler (see `g-signal-connect-after') do not have access to the deleted text. See also: `gtk-text-buffer-delete'. -- Signal on : modified-changed The modified_changed signal is emitted when the modified bit of a `' flips. See also: `gtk-text-buffer-set-modified'. -- Signal on : mark-set (arg0 `') (arg1 `') The mark_set signal is emitted as notification after a `' is set. See also: `gtk-text-buffer-create-mark', `gtk-text-buffer-move-mark'. -- Signal on : mark-deleted (arg0 `') The mark_deleted signal is emitted as notification after a `' is deleted. See also: `gtk-text-buffer-delete-mark'. -- Signal on : apply-tag (arg0 `') (arg1 `') (arg2 `') The apply_tag signal is emitted to apply a tag to a range of text in a `'. Applying actually occurs in the default handler. Note that if your handler runs before the default handler it must not invalidate the START and END iters (or has to revalidate them). See also: `gtk-text-buffer-apply-tag', `gtk-text-buffer-insert-with-tags', `gtk-text-buffer-insert-range'. -- Signal on : remove-tag (arg0 `') (arg1 `') (arg2 `') The remove_tag signal is emitted to remove all occurrences of TAG from a range of text in a `'. Removal actually occurs in the default handler. Note that if your handler runs before the default handler it must not invalidate the START and END iters (or has to revalidate them). See also: `gtk-text-buffer-remove-tag'. -- Signal on : begin-user-action The begin_user_action signal is emitted at the beginning of a single user-visible operation on a `'. See also: `gtk-text-buffer-begin-user-action', `gtk-text-buffer-insert-interactive', `gtk-text-buffer-insert-range-interactive', `gtk-text-buffer-delete-interactive', `gtk-text-buffer-backspace', `gtk-text-buffer-delete-selection'. -- Signal on : end-user-action The end_user_action signal is emitted at the end of a single user-visible operation `'. See also: `gtk-text-buffer-end-user-action', `gtk-text-buffer-insert-interactive', `gtk-text-buffer-insert-range-interactive', `gtk-text-buffer-delete-interactive', `gtk-text-buffer-backspace', `gtk-text-buffer-delete-selection', `gtk-text-buffer-backspace'. -- Function: gtk-text-buffer-new (table `') => (ret `') Creates a new text buffer. TABLE a tag table, or NULL to create a new one RET a new text buffer -- Function: gtk-text-buffer-get-line-count (self `') => (ret `int') -- Method: get-line-count Obtains the number of lines in the buffer. This value is cached, so the function is very fast. BUFFER a `' RET number of lines in the buffer -- Function: gtk-text-buffer-get-char-count (self `') => (ret `int') -- Method: get-char-count Gets the number of characters in the buffer; note that characters and bytes are not the same, you can't e.g. expect the contents of the buffer in string form to be this many bytes long. The character count is cached, so this function is very fast. BUFFER a `' RET number of characters in the buffer -- Function: gtk-text-buffer-get-tag-table (self `') => (ret `') -- Method: get-tag-table Get the `' associated with this buffer. BUFFER a `' RET the buffer's tag table -- Function: gtk-text-buffer-insert (self `') (iter `') (stext `scm') -- Method: insert Inserts LEN bytes of TEXT at position ITER. If LEN is -1, TEXT must be nul-terminated and will be inserted in its entirety. Emits the "insert_text" signal; insertion actually occurs in the default handler for the signal. ITER is invalidated when insertion occurs (because the buffer contents change), but the default signal handler revalidates it to point to the end of the inserted text. BUFFER a `' ITER a position in the buffer TEXT UTF-8 format text to insert LEN length of text in bytes, or -1 -- Function: gtk-text-buffer-insert-at-cursor (self `') (stext `scm') -- Method: insert-at-cursor Simply calls `gtk-text-buffer-insert', using the current cursor position as the insertion point. BUFFER a `' TEXT some text in UTF-8 format LEN length of text, in bytes -- Function: gtk-text-buffer-insert-interactive (self `') (iter `') (stext `scm') (default_editable `bool') => (ret `bool') -- Method: insert-interactive Like `gtk-text-buffer-insert', but the insertion will not occur if ITER is at a non-editable location in the buffer. Usually you want to prevent insertions at ineditable locations if the insertion results from a user action (is interactive). DEFAULT-EDITABLE indicates the editability of text that doesn't have a tag affecting editability applied to it. Typically the result of `gtk-text-view-get-editable' is appropriate here. BUFFER a `' ITER a position in BUFFER TEXT some UTF-8 text LEN length of text in bytes, or -1 DEFAULT-EDITABLE default editability of buffer RET whether text was actually inserted -- Function: gtk-text-buffer-insert-range (self `') (iter `') (start `') (end `') -- Method: insert-range Copies text, tags, and pixbufs between START and END (the order of START and END doesn't matter) and inserts the copy at ITER. Used instead of simply getting/inserting text because it preserves images and tags. If START and END are in a different buffer from BUFFER, the two buffers must share the same tag table. Implemented via emissions of the insert_text and apply_tag signals, so expect those. BUFFER a `' ITER a position in BUFFER START a position in a `' END another position in the same buffer as START -- Function: gtk-text-buffer-insert-with-tags (self `') (iter `') (stext `scm') (tag_list `glist-of') -- Method: insert-with-tags Inserts TEXT into BUFFER at ITER, applying the list of tags to the newly-inserted text. The last tag specified must be NULL to terminate the list. Equivalent to calling `gtk-text-buffer-insert', then `gtk-text-buffer-apply-tag' on the inserted text; `gtk-text-buffer-insert-with-tags' is just a convenience function. BUFFER a `' ITER an iterator in BUFFER TEXT UTF-8 text LEN length of TEXT, or -1 FIRST-TAG first tag to apply to TEXT ... NULL-terminated list of tags to apply -- Function: gtk-text-buffer-delete (self `') (start `') (end `') -- Method: delete Deletes text between START and END. The order of START and END is not actually relevant; `gtk-text-buffer-delete' will reorder them. This function actually emits the "delete_range" signal, and the default handler of that signal deletes the text. Because the buffer is modified, all outstanding iterators become invalid after calling this function; however, the START and END will be re-initialized to point to the location where text was deleted. BUFFER a `' START a position in BUFFER END another position in BUFFER -- Function: gtk-text-buffer-delete-interactive (self `') (start_iter `') (end_iter `') (default_editable `bool') => (ret `bool') -- Method: delete-interactive Deletes all _editable_ text in the given range. Calls `gtk-text-buffer-delete' for each editable sub-range of [START,END). START and END are revalidated to point to the location of the last deleted range, or left untouched if no text was deleted. BUFFER a `' START-ITER start of range to delete END-ITER end of range DEFAULT-EDITABLE whether the buffer is editable by default RET whether some text was actually deleted -- Function: gtk-text-buffer-backspace (self `') (iter `') (interactive `bool') (default_editable `bool') => (ret `bool') -- Method: backspace Performs the appropriate action as if the user hit the delete key with the cursor at the position specified by ITER. In the normal case a single character will be deleted, but when combining accents are involved, more than one character can be deleted, and when precomposed character and accent combinations are involved, less than one character will be deleted. Because the buffer is modified, all outstanding iterators become invalid after calling this function; however, the ITER will be re-initialized to point to the location where text was deleted. BUFFER a `' ITER a position in BUFFER INTERACTIVE whether the deletion is caused by user interaction DEFAULT-EDITABLE whether the buffer is editable by default RET ``#t'' if the buffer was modified Since 2.6 -- Function: gtk-text-buffer-set-text (self `') (stext `scm') -- Method: set-text Deletes current contents of BUFFER, and inserts TEXT instead. If LEN is -1, TEXT must be nul-terminated. TEXT must be valid UTF-8. BUFFER a `' TEXT UTF-8 text to insert LEN length of TEXT in bytes -- Function: gtk-text-buffer-get-text (self `') (start `') (end `') (include_hidden_chars `bool') => (ret `mchars') -- Method: get-text Returns the text in the range [START,END). Excludes undisplayed text (text marked with tags that set the invisibility attribute) if INCLUDE-HIDDEN-CHARS is ``#f''. Does not include characters representing embedded images, so byte and character indexes into the returned string do _not_ correspond to byte and character indexes into the buffer. Contrast with `gtk-text-buffer-get-slice'. BUFFER a `' START start of a range END end of a range INCLUDE-HIDDEN-CHARS whether to include invisible text RET an allocated UTF-8 string -- Function: gtk-text-buffer-get-slice (self `') (start `') (end `') (include_hidden_chars `bool') => (ret `mchars') -- Method: get-slice Returns the text in the range [START,END). Excludes undisplayed text (text marked with tags that set the invisibility attribute) if INCLUDE-HIDDEN-CHARS is ``#f''. The returned string includes a 0xFFFC character whenever the buffer contains embedded images, so byte and character indexes into the returned string _do_ correspond to byte and character indexes into the buffer. Contrast with `gtk-text-buffer-get-text'. Note that 0xFFFC can occur in normal text as well, so it is not a reliable indicator that a pixbuf or widget is in the buffer. BUFFER a `' START start of a range END end of a range INCLUDE-HIDDEN-CHARS whether to include invisible text RET an allocated UTF-8 string -- Function: gtk-text-buffer-insert-pixbuf (self `') (iter `') (pixbuf `') -- Method: insert-pixbuf Inserts an image into the text buffer at ITER. The image will be counted as one character in character counts, and when obtaining the buffer contents as a string, will be represented by the Unicode "object replacement character" 0xFFFC. Note that the "slice" variants for obtaining portions of the buffer as a string include this character for pixbufs, but the "text" variants do not. e.g. see `gtk-text-buffer-get-slice' and `gtk-text-buffer-get-text'. BUFFER a `' ITER location to insert the pixbuf PIXBUF a `' -- Function: gtk-text-buffer-insert-child-anchor (self `') (iter `') (anchor `') -- Method: insert-child-anchor Inserts a child widget anchor into the text buffer at ITER. The anchor will be counted as one character in character counts, and when obtaining the buffer contents as a string, will be represented by the Unicode "object replacement character" 0xFFFC. Note that the "slice" variants for obtaining portions of the buffer as a string include this character for child anchors, but the "text" variants do not. e.g. see `gtk-text-buffer-get-slice' and `gtk-text-buffer-get-text'. Consider `gtk-text-buffer-create-child-anchor' as a more convenient alternative to this function. The buffer will add a reference to the anchor, so you can unref it after insertion. BUFFER a `' ITER location to insert the anchor ANCHOR a `' -- Function: gtk-text-buffer-create-child-anchor (self `') (iter `') => (ret `') -- Method: create-child-anchor This is a convenience function which simply creates a child anchor with `gtk-text-child-anchor-new' and inserts it into the buffer with `gtk-text-buffer-insert-child-anchor'. The new anchor is owned by the buffer; no reference count is returned to the caller of `gtk-text-buffer-create-child-anchor'. BUFFER a `' ITER location in the buffer RET the created child anchor -- Function: gtk-text-buffer-create-mark (self `') (mark_name `mchars') (where `') (left_gravity `bool') => (ret `') -- Method: create-mark Creates a mark at position WHERE. If MARK-NAME is ``#f'', the mark is anonymous; otherwise, the mark can be retrieved by name using `gtk-text-buffer-get-mark'. If a mark has left gravity, and text is inserted at the mark's current location, the mark will be moved to the left of the newly-inserted text. If the mark has right gravity (LEFT-GRAVITY = ``#f''), the mark will end up on the right of newly-inserted text. The standard left-to-right cursor is a mark with right gravity (when you type, the cursor stays on the right side of the text you're typing). The caller of this function does _not_ own a reference to the returned `', so you can ignore the return value if you like. Marks are owned by the buffer and go away when the buffer does. Emits the "mark_set" signal as notification of the mark's initial placement. BUFFER a `' MARK-NAME name for mark, or ``#f'' WHERE location to place mark LEFT-GRAVITY whether the mark has left gravity RET the new `' object -- Function: gtk-text-buffer-move-mark (self `') (mark `') (where `') -- Method: move-mark Moves MARK to the new location WHERE. Emits the "mark_set" signal as notification of the move. BUFFER a `' MARK a `' WHERE new location for MARK in BUFFER -- Function: gtk-text-buffer-move-mark-by-name (self `') (name `mchars') (where `') -- Method: move-mark-by-name Moves the mark named NAME (which must exist) to location WHERE. See `gtk-text-buffer-move-mark' for details. BUFFER a `' NAME name of a mark WHERE new location for mark -- Function: gtk-text-buffer-delete-mark (self `') (mark `') -- Method: delete-mark Deletes MARK, so that it's no longer located anywhere in the buffer. Removes the reference the buffer holds to the mark, so if you haven't called `g-object-ref' on the mark, it will be freed. Even if the mark isn't freed, most operations on MARK become invalid. There is no way to undelete a mark. `gtk-text-mark-get-deleted' will return TRUE after this function has been called on a mark; `gtk-text-mark-get-deleted' indicates that a mark no longer belongs to a buffer. The "mark_deleted" signal will be emitted as notification after the mark is deleted. BUFFER a `' MARK a `' in BUFFER -- Function: gtk-text-buffer-delete-mark-by-name (self `') (name `mchars') -- Method: delete-mark-by-name Deletes the mark named NAME; the mark must exist. See `gtk-text-buffer-delete-mark' for details. BUFFER a `' NAME name of a mark in BUFFER -- Function: gtk-text-buffer-get-mark (self `') (name `mchars') => (ret `') -- Method: get-mark Returns the mark named NAME in buffer BUFFER, or NULL if no such mark exists in the buffer. BUFFER a `' NAME a mark name RET a `', or NULL -- Function: gtk-text-buffer-get-insert (self `') => (ret `') -- Method: get-insert Returns the mark that represents the cursor (insertion point). Equivalent to calling `gtk-text-buffer-get-mark' to get the mark named "insert", but very slightly more efficient, and involves less typing. BUFFER a `' RET insertion point mark -- Function: gtk-text-buffer-get-selection-bound (self `') => (ret `') -- Method: get-selection-bound Returns the mark that represents the selection bound. Equivalent to calling `gtk-text-buffer-get-mark' to get the mark named "selection_bound", but very slightly more efficient, and involves less typing. The currently-selected text in BUFFER is the region between the "selection_bound" and "insert" marks. If "selection_bound" and "insert" are in the same place, then there is no current selection. `gtk-text-buffer-get-selection-bounds' is another convenient function for handling the selection, if you just want to know whether there's a selection and what its bounds are. BUFFER a `' RET selection bound mark -- Function: gtk-text-buffer-get-has-selection (self `') => (ret `bool') -- Method: get-has-selection Indicates whether the buffer has some text currently selected. BUFFER a `' RET ``#t'' if the there is text selected Since 2.10 -- Function: gtk-text-buffer-place-cursor (self `') (where `') -- Method: place-cursor This function moves the "insert" and "selection_bound" marks simultaneously. If you move them to the same place in two steps with `gtk-text-buffer-move-mark', you will temporarily select a region in between their old and new locations, which can be pretty inefficient since the temporarily-selected region will force stuff to be recalculated. This function moves them as a unit, which can be optimized. BUFFER a `' WHERE where to put the cursor -- Function: gtk-text-buffer-select-range (self `') (ins `') (bound `') -- Method: select-range This function moves the "insert" and "selection_bound" marks simultaneously. If you move them in two steps with `gtk-text-buffer-move-mark', you will temporarily select a region in between their old and new locations, which can be pretty inefficient since the temporarily-selected region will force stuff to be recalculated. This function moves them as a unit, which can be optimized. BUFFER a `' INS where to put the "insert" mark BOUND where to put the "selection_bound" mark Since 2.4 -- Function: gtk-text-buffer-apply-tag (self `') (tag `') (start `') (end `') -- Method: apply-tag Emits the "apply_tag" signal on BUFFER. The default handler for the signal applies TAG to the given range. START and END do not have to be in order. BUFFER a `' TAG a `' START one bound of range to be tagged END other bound of range to be tagged -- Function: gtk-text-buffer-remove-tag (self `') (tag `') (start `') (end `') -- Method: remove-tag Emits the "remove_tag" signal. The default handler for the signal removes all occurrences of TAG from the given range. START and END don't have to be in order. BUFFER a `' TAG a `' START one bound of range to be untagged END other bound of range to be untagged -- Function: gtk-text-buffer-apply-tag-by-name (self `') (name `mchars') (start `') (end `') -- Method: apply-tag-by-name Calls `gtk-text-tag-table-lookup' on the buffer's tag table to get a `', then calls `gtk-text-buffer-apply-tag'. BUFFER a `' NAME name of a named `' START one bound of range to be tagged END other bound of range to be tagged -- Function: gtk-text-buffer-remove-tag-by-name (self `') (name `mchars') (start `') (end `') -- Method: remove-tag-by-name Calls `gtk-text-tag-table-lookup' on the buffer's tag table to get a `', then calls `gtk-text-buffer-remove-tag'. BUFFER a `' NAME name of a `' START one bound of range to be untagged END other bound of range to be untagged -- Function: gtk-text-buffer-remove-all-tags (self `') (start `') (end `') -- Method: remove-all-tags Removes all tags in the range between START and END. Be careful with this function; it could remove tags added in code unrelated to the code you're currently writing. That is, using this function is probably a bad idea if you have two or more unrelated code sections that add tags. BUFFER a `' START one bound of range to be untagged END other bound of range to be untagged -- Function: gtk-text-buffer-get-iter-at-offset (self `') (char_offset `int') => (ret `') -- Method: get-iter-at-offset Initializes ITER to a position CHAR-OFFSET chars from the start of the entire buffer. If CHAR-OFFSET is -1 or greater than the number of characters in the buffer, ITER is initialized to the end iterator, the iterator one past the last valid character in the buffer. BUFFER a `' ITER iterator to initialize CHAR-OFFSET char offset from start of buffer, counting from 0, or -1 -- Function: gtk-text-buffer-get-iter-at-line (self `') (line_number `int') => (ret `') -- Method: get-iter-at-line Initializes ITER to the start of the given line. BUFFER a `' ITER iterator to initialize LINE-NUMBER line number counting from 0 -- Function: gtk-text-buffer-get-iter-at-mark (self `') (mark `') => (ret `') -- Method: get-iter-at-mark Initializes ITER with the current position of MARK. BUFFER a `' ITER iterator to initialize MARK a `' in BUFFER -- Function: gtk-text-buffer-get-start-iter (self `') => (ret `') -- Method: get-start-iter Initialized ITER with the first position in the text buffer. This is the same as using `gtk-text-buffer-get-iter-at-offset' to get the iter at character offset 0. BUFFER a `' ITER iterator to initialize -- Function: gtk-text-buffer-get-end-iter (self `') => (ret `') -- Method: get-end-iter Initializes ITER with the "end iterator," one past the last valid character in the text buffer. If dereferenced with `gtk-text-iter-get-char', the end iterator has a character value of 0. The entire buffer lies in the range from the first position in the buffer (call `gtk-text-buffer-get-start-iter' to get character position 0) to the end iterator. BUFFER a `' ITER iterator to initialize -- Function: gtk-text-buffer-get-bounds (self `') => (start `') (end `') -- Method: get-bounds -- Method: get-bounds Retrieves the first and last iterators in the buffer, i.e. the entire buffer lies within the range [START,END). BUFFER a `' START iterator to initialize with first position in the buffer END iterator to initialize with the end iterator -- Function: gtk-text-buffer-get-modified (self `') => (ret `bool') -- Method: get-modified Indicates whether the buffer has been modified since the last call to `gtk-text-buffer-set-modified' set the modification flag to ``#f''. Used for example to enable a "save" function in a text editor. BUFFER a `' RET ``#t'' if the buffer has been modified -- Function: gtk-text-buffer-set-modified (self `') (setting `bool') -- Method: set-modified Used to keep track of whether the buffer has been modified since the last time it was saved. Whenever the buffer is saved to disk, call gtk_text_buffer_set_modified (BUFFER, FALSE). When the buffer is modified, it will automatically toggled on the modified bit again. When the modified bit flips, the buffer emits a "modified_changed" signal. BUFFER a `' SETTING modification flag setting -- Function: gtk-text-buffer-delete-selection (self `') (interactive `bool') (default_editable `bool') => (ret `bool') -- Method: delete-selection Deletes the range between the "insert" and "selection_bound" marks, that is, the currently-selected text. If INTERACTIVE is ``#t'', the editability of the selection will be considered (users can't delete uneditable text). BUFFER a `' INTERACTIVE whether the deletion is caused by user interaction DEFAULT-EDITABLE whether the buffer is editable by default RET whether there was a non-empty selection to delete -- Function: gtk-text-buffer-paste-clipboard (self `') (clipboard `') (override_location `') (default_editable `bool') -- Method: paste-clipboard Pastes the contents of a clipboard at the insertion point, or at OVERRIDE-LOCATION. (Note: pasting is asynchronous, that is, we'll ask for the paste data and return, and at some point later after the main loop runs, the paste data will be inserted.) BUFFER a `' CLIPBOARD the `' to paste from OVERRIDE-LOCATION location to insert pasted text, or ``#f'' for at the cursor DEFAULT-EDITABLE whether the buffer is editable by default -- Function: gtk-text-buffer-copy-clipboard (self `') (clipboard `') -- Method: copy-clipboard Copies the currently-selected text to a clipboard. BUFFER a `' CLIPBOARD the `' object to copy to. -- Function: gtk-text-buffer-cut-clipboard (self `') (clipboard `') (default_editable `bool') -- Method: cut-clipboard Copies the currently-selected text to a clipboard, then deletes said text if it's editable. BUFFER a `' CLIPBOARD the `' object to cut to. DEFAULT-EDITABLE default editability of the buffer -- Function: gtk-text-buffer-begin-user-action (self `') -- Method: begin-user-action Called to indicate that the buffer operations between here and a call to `gtk-text-buffer-end-user-action' are part of a single user-visible operation. The operations between `gtk-text-buffer-begin-user-action' and `gtk-text-buffer-end-user-action' can then be grouped when creating an undo stack. `' maintains a count of calls to `gtk-text-buffer-begin-user-action' that have not been closed with a call to `gtk-text-buffer-end-user-action', and emits the "begin_user_action" and "end_user_action" signals only for the outermost pair of calls. This allows you to build user actions from other user actions. The "interactive" buffer mutation functions, such as `gtk-text-buffer-insert-interactive', automatically call begin/end user action around the buffer operations they perform, so there's no need to add extra calls if you user action consists solely of a single call to one of those functions. BUFFER a `' -- Function: gtk-text-buffer-end-user-action (self `') -- Method: end-user-action Should be paired with a call to `gtk-text-buffer-begin-user-action'. See that function for a full explanation. BUFFER a `'  File: guile-gnome-gtk.info, Node: GtkTextTag, Next: GtkTextTagTable, Prev: GtkTextBuffer, Up: Top 29 GtkTextTag ************* A tag that can be applied to text in a 29.1 Overview ============= You may wish to begin by reading the text widget conceptual overview which gives an overview of all the objects and data types related to the text widget and how they work together. Tags should be in the `' for a given `' before using them with that buffer. `gtk-text-buffer-create-tag' is the best way to create tags. See for numerous examples. The "invisible" property was not implemented for GTK+ 2.0; it's planned to be implemented in future releases. 29.2 Usage ========== -- Class: Derives from `'. This class defines the following slots: `name' Name used to refer to the text tag. NULL for anonymous tags `background' Background color as a string `foreground' Foreground color as a string `background-gdk' Background color as a (possibly unallocated) GdkColor `foreground-gdk' Foreground color as a (possibly unallocated) GdkColor `background-stipple' Bitmap to use as a mask when drawing the text background `foreground-stipple' Bitmap to use as a mask when drawing the text foreground `font' Font description as a string, e.g. "Sans Italic 12" `font-desc' Font description as a PangoFontDescription struct `family' Name of the font family, e.g. Sans, Helvetica, Times, Monospace `style' Font style as a PangoStyle, e.g. PANGO_STYLE_ITALIC `variant' Font variant as a PangoVariant, e.g. PANGO_VARIANT_SMALL_CAPS `weight' Font weight as an integer, see predefined values in PangoWeight; for example, PANGO_WEIGHT_BOLD `stretch' Font stretch as a PangoStretch, e.g. PANGO_STRETCH_CONDENSED `size' Font size in Pango units `size-points' Font size in points `scale' Font size as a scale factor relative to the default font size. This properly adapts to theme changes etc. so is recommended. Pango predefines some scales such as PANGO_SCALE_X_LARGE `pixels-above-lines' Pixels of blank space above paragraphs `pixels-below-lines' Pixels of blank space below paragraphs `pixels-inside-wrap' Pixels of blank space between wrapped lines in a paragraph `editable' Whether the text can be modified by the user `wrap-mode' Whether to wrap lines never, at word boundaries, or at character boundaries `justification' Left, right, or center justification `direction' Text direction, e.g. right-to-left or left-to-right `left-margin' Width of the left margin in pixels `indent' Amount to indent the paragraph, in pixels `strikethrough' Whether to strike through the text `right-margin' Width of the right margin in pixels `underline' Style of underline for this text `rise' Offset of text above the baseline (below the baseline if rise is negative) in Pango units `background-full-height' Whether the background color fills the entire line height or only the height of the tagged characters `language' The language this text is in, as an ISO code. Pango can use this as a hint when rendering the text. If not set, an appropriate default will be used. `tabs' Custom tabs for this text `invisible' Whether this text is hidden. `paragraph-background' Paragraph background color as a string `paragraph-background-gdk' Paragraph background color as a (possibly unallocated) GdkColor `accumulative-margin' Whether left and right margins accumulate. `background-set' Whether this tag affects the background color `foreground-set' Whether this tag affects the foreground color `background-stipple-set' Whether this tag affects the background stipple `foreground-stipple-set' Whether this tag affects the foreground stipple `family-set' Whether this tag affects the font family `style-set' Whether this tag affects the font style `variant-set' Whether this tag affects the font variant `weight-set' Whether this tag affects the font weight `stretch-set' Whether this tag affects the font stretch `size-set' Whether this tag affects the font size `scale-set' Whether this tag scales the font size by a factor `pixels-above-lines-set' Whether this tag affects the number of pixels above lines `pixels-below-lines-set' Whether this tag affects the number of pixels above lines `pixels-inside-wrap-set' Whether this tag affects the number of pixels between wrapped lines `editable-set' Whether this tag affects text editability `wrap-mode-set' Whether this tag affects line wrap mode `justification-set' Whether this tag affects paragraph justification `left-margin-set' Whether this tag affects the left margin `indent-set' Whether this tag affects indentation `strikethrough-set' Whether this tag affects strikethrough `right-margin-set' Whether this tag affects the right margin `underline-set' Whether this tag affects underlining `rise-set' Whether this tag affects the rise `background-full-height-set' Whether this tag affects background height `language-set' Whether this tag affects the language the text is rendered as `tabs-set' Whether this tag affects tabs `invisible-set' Whether this tag affects text visibility `paragraph-background-set' Whether this tag affects the paragraph background color -- Signal on : event (arg0 `') (arg1 `') (arg2 `') => `' -- Class: Derives from `'. This class defines no direct slots. -- Function: gtk-text-tag-new (name `mchars') => (ret `') Creates a `'. Configure the tag using object arguments, i.e. using `g-object-set'. NAME tag name, or ``#f'' RET a new `' -- Function: gtk-text-tag-get-priority (self `') => (ret `int') -- Method: get-priority Get the tag priority. TAG a `' RET The tag's priority. -- Function: gtk-text-tag-set-priority (self `') (priority `int') -- Method: set-priority Sets the priority of a `'. Valid priorities are start at 0 and go to one less than `gtk-text-tag-table-get-size'. Each tag in a table has a unique priority; setting the priority of one tag shifts the priorities of all the other tags in the table to maintain a unique priority for each tag. Higher priority tags "win" if two tags both set the same text attribute. When adding a tag to a tag table, it will be assigned the highest priority in the table by default; so normally the precedence of a set of tags is the order in which they were added to the table, or created with `gtk-text-buffer-create-tag', which adds the tag to the buffer's table automatically. TAG a `' PRIORITY the new priority -- Function: gtk-text-tag-event (self `') (event_object `') (event `') (iter `') => (ret `bool') -- Method: event Emits the "event" signal on the `'. TAG a `' EVENT-OBJECT object that received the event, such as a widget EVENT the event ITER location where the event was received RET result of signal emission (whether the event was handled) -- Function: gtk-text-attributes-new => (ret `') Creates a `', which describes a set of properties on some text. RET a new `' -- Function: gtk-text-attributes-copy (self `') => (ret `') Copies SRC and returns a new `'. SRC a `' to be copied RET a copy of SRC -- Function: gtk-text-attributes-copy-values (self `') (dest `') Copies the values from SRC to DEST so that DEST has the same values as SRC. Frees existing values in DEST. SRC a `' DEST another `'  File: guile-gnome-gtk.info, Node: GtkTextTagTable, Next: GtkTextView, Prev: GtkTextTag, Up: Top 30 GtkTextTagTable ****************** Collection of tags that can be used together 30.1 Overview ============= You may wish to begin by reading the text widget conceptual overview which gives an overview of all the objects and data types related to the text widget and how they work together. 30.2 Usage ========== -- Class: Derives from `'. This class defines no direct slots. -- Signal on : tag-changed (arg0 `') (arg1 `') -- Signal on : tag-added (arg0 `') -- Signal on : tag-removed (arg0 `') -- Function: gtk-text-tag-table-new => (ret `') Creates a new `'. The table contains no tags by default. RET a new `' -- Function: gtk-text-tag-table-add (self `') (tag `') -- Method: add Add a tag to the table. The tag is assigned the highest priority in the table. TAG must not be in a tag table already, and may not have the same name as an already-added tag. TABLE a `' TAG a `' -- Function: gtk-text-tag-table-remove (self `') (tag `') -- Method: remove Remove a tag from the table. This will remove the table's reference to the tag, so be careful - the tag will end up destroyed if you don't have a reference to it. TABLE a `' TAG a `' -- Function: gtk-text-tag-table-lookup (self `') (name `mchars') => (ret `') -- Method: lookup Look up a named tag. TABLE a `' NAME name of a tag RET The tag, or ``#f'' if none by that name is in the table. -- Function: gtk-text-tag-table-get-size (self `') => (ret `int') -- Method: get-size Returns the size of the table (number of tags) TABLE a `' RET number of tags in TABLE  File: guile-gnome-gtk.info, Node: GtkTextView, Next: GtkTreeModel, Prev: GtkTextTagTable, Up: Top 31 GtkTextView ************** Widget that displays a 31.1 Overview ============= You may wish to begin by reading the text widget conceptual overview which gives an overview of all the objects and data types related to the text widget and how they work together. 31.2 Usage ========== -- Class: Derives from `'. This class defines the following slots: `pixels-above-lines' Pixels of blank space above paragraphs `pixels-below-lines' Pixels of blank space below paragraphs `pixels-inside-wrap' Pixels of blank space between wrapped lines in a paragraph `editable' Whether the text can be modified by the user `wrap-mode' Whether to wrap lines never, at word boundaries, or at character boundaries `justification' Left, right, or center justification `left-margin' Width of the left margin in pixels `right-margin' Width of the right margin in pixels `indent' Amount to indent the paragraph, in pixels `tabs' Custom tabs for this text `cursor-visible' If the insertion cursor is shown `buffer' The buffer which is displayed `overwrite' Whether entered text overwrites existing contents `accepts-tab' Whether Tab will result in a tab character being entered -- Signal on : move-cursor (arg0 `') (arg1 `') (arg2 `') The ::move-cursor signal is a keybinding signal which gets emitted when the user initiates a cursor movement. Applications should not connect to it, but may emit it with `g-signal-emit-by-name' if they need to control scrolling programmatically. -- Signal on : copy-clipboard -- Signal on : populate-popup (arg0 `') -- Signal on : insert-at-cursor (arg0 `') -- Signal on : delete-from-cursor (arg0 `') (arg1 `') -- Signal on : backspace -- Signal on : cut-clipboard -- Signal on : paste-clipboard -- Signal on : toggle-overwrite -- Signal on : set-scroll-adjustments (arg0 `') (arg1 `') -- Signal on : select-all (arg0 `') -- Signal on : page-horizontally (arg0 `') (arg1 `') -- Signal on : move-viewport (arg0 `') (arg1 `') -- Signal on : set-anchor -- Signal on : toggle-cursor-visible undocumented -- Class: Derives from `'. This class defines no direct slots. -- Function: gtk-text-view-new-with-buffer (buffer `') => (ret `') Creates a new `' widget displaying the buffer BUFFER. One buffer can be shared among many widgets. BUFFER may be NULL to create a default buffer, in which case this function is equivalent to `gtk-text-view-new'. The text view adds its own reference count to the buffer; it does not take over an existing reference. BUFFER a `' RET a new `'. -- Function: gtk-text-view-set-buffer (self `') (buffer `') -- Method: set-buffer Sets BUFFER as the buffer being displayed by TEXT-VIEW. The previous buffer displayed by the text view is unreferenced, and a reference is added to BUFFER. If you owned a reference to BUFFER before passing it to this function, you must remove that reference yourself; `' will not "adopt" it. TEXT-VIEW a `' BUFFER a `' -- Function: gtk-text-view-get-buffer (self `') => (ret `') -- Method: get-buffer Returns the `' being displayed by this text view. The reference count on the buffer is not incremented; the caller of this function won't own a new reference. TEXT-VIEW a `' RET a `' -- Function: gtk-text-view-scroll-to-mark (self `') (mark `') (within_margin `double') (use_align `bool') (xalign `double') (yalign `double') -- Method: scroll-to-mark Scrolls TEXT-VIEW so that MARK is on the screen in the position indicated by XALIGN and YALIGN. An alignment of 0.0 indicates left or top, 1.0 indicates right or bottom, 0.5 means center. If USE-ALIGN is ``#f'', the text scrolls the minimal distance to get the mark onscreen, possibly not scrolling at all. The effective screen for purposes of this function is reduced by a margin of size WITHIN-MARGIN. TEXT-VIEW a `' MARK a `' WITHIN-MARGIN margin as a [0.0,0.5) fraction of screen size USE-ALIGN whether to use alignment arguments (if ``#f'', just get the mark onscreen) XALIGN horizontal alignment of mark within visible area. YALIGN vertical alignment of mark within visible area -- Function: gtk-text-view-scroll-to-iter (self `') (iter `') (within_margin `double') (use_align `bool') (xalign `double') (yalign `double') => (ret `bool') -- Method: scroll-to-iter Scrolls TEXT-VIEW so that ITER is on the screen in the position indicated by XALIGN and YALIGN. An alignment of 0.0 indicates left or top, 1.0 indicates right or bottom, 0.5 means center. If USE-ALIGN is ``#f'', the text scrolls the minimal distance to get the mark onscreen, possibly not scrolling at all. The effective screen for purposes of this function is reduced by a margin of size WITHIN-MARGIN. NOTE: This function uses the currently-computed height of the lines in the text buffer. Note that line heights are computed in an idle handler; so this function may not have the desired effect if it's called before the height computations. To avoid oddness, consider using `gtk-text-view-scroll-to-mark' which saves a point to be scrolled to after line validation. TEXT-VIEW a `' ITER a `' WITHIN-MARGIN margin as a [0.0,0.5) fraction of screen size USE-ALIGN whether to use alignment arguments (if ``#f'', just get the mark onscreen) XALIGN horizontal alignment of mark within visible area. YALIGN vertical alignment of mark within visible area RET ``#t'' if scrolling occurred -- Function: gtk-text-view-scroll-mark-onscreen (self `') (mark `') -- Method: scroll-mark-onscreen Scrolls TEXT-VIEW the minimum distance such that MARK is contained within the visible area of the widget. TEXT-VIEW a `' MARK a mark in the buffer for TEXT-VIEW -- Function: gtk-text-view-move-mark-onscreen (self `') (mark `') => (ret `bool') -- Method: move-mark-onscreen Moves a mark within the buffer so that it's located within the currently-visible text area. TEXT-VIEW a `' MARK a `' RET ``#t'' if the mark moved (wasn't already onscreen) -- Function: gtk-text-view-place-cursor-onscreen (self `') => (ret `bool') -- Method: place-cursor-onscreen Moves the cursor to the currently visible region of the buffer, it it isn't there already. TEXT-VIEW a `' RET TRUE if the cursor had to be moved. -- Function: gtk-text-view-get-visible-rect (self `') (visible_rect `') -- Method: get-visible-rect Fills VISIBLE-RECT with the currently-visible region of the buffer, in buffer coordinates. Convert to window coordinates with `gtk-text-view-buffer-to-window-coords'. TEXT-VIEW a `' VISIBLE-RECT rectangle to fill -- Function: gtk-text-view-get-iter-location (self `') (iter `') (location `') -- Method: get-iter-location Gets a rectangle which roughly contains the character at ITER. The rectangle position is in buffer coordinates; use `gtk-text-view-buffer-to-window-coords' to convert these coordinates to coordinates for one of the windows in the text view. TEXT-VIEW a `' ITER a `' LOCATION bounds of the character at ITER -- Function: gtk-text-view-get-line-at-y (self `') (target_iter `') (y `int') => (line_top `int') -- Method: get-line-at-y Gets the `' at the start of the line containing the coordinate Y. Y is in buffer coordinates, convert from window coordinates with `gtk-text-view-window-to-buffer-coords'. If non-``#f'', LINE-TOP will be filled with the coordinate of the top edge of the line. TEXT-VIEW a `' TARGET-ITER a `' Y a y coordinate LINE-TOP return location for top coordinate of the line -- Function: gtk-text-view-get-line-yrange (self `') (iter `') => (y `int') (height `int') -- Method: get-line-yrange Gets the y coordinate of the top of the line containing ITER, and the height of the line. The coordinate is a buffer coordinate; convert to window coordinates with `gtk-text-view-buffer-to-window-coords'. TEXT-VIEW a `' ITER a `' Y return location for a y coordinate HEIGHT return location for a height -- Function: gtk-text-view-get-iter-at-location (self `') (iter `') (x `int') (y `int') -- Method: get-iter-at-location Retrieves the iterator at buffer coordinates X and Y. Buffer coordinates are coordinates for the entire buffer, not just the currently-displayed portion. If you have coordinates from an event, you have to convert those to buffer coordinates with `gtk-text-view-window-to-buffer-coords'. TEXT-VIEW a `' ITER a `' X x position, in buffer coordinates Y y position, in buffer coordinates -- Function: gtk-text-view-get-window (self `') (win `') => (ret `') -- Method: get-window Retrieves the `' corresponding to an area of the text view; possible windows include the overall widget window, child windows on the left, right, top, bottom, and the window that displays the text buffer. Windows are ``#f'' and nonexistent if their width or height is 0, and are nonexistent before the widget has been realized. TEXT-VIEW a `' WIN window to get RET a `', or ``#f'' -- Function: gtk-text-view-get-window-type (self `') (window `') => (ret `') -- Method: get-window-type Usually used to find out which window an event corresponds to. If you connect to an event signal on TEXT-VIEW, this function should be called on `event->window' to see which window it was. TEXT-VIEW a `' WINDOW a window type RET the window type. -- Function: gtk-text-view-forward-display-line (self `') (iter `') => (ret `bool') -- Method: forward-display-line Moves the given ITER forward by one display (wrapped) line. A display line is different from a paragraph. Paragraphs are separated by newlines or other paragraph separator characters. Display lines are created by line-wrapping a paragraph. If wrapping is turned off, display lines and paragraphs will be the same. Display lines are divided differently for each view, since they depend on the view's width; paragraphs are the same in all views, since they depend on the contents of the `'. TEXT-VIEW a `' ITER a `' RET ``#t'' if ITER was moved and is not on the end iterator -- Function: gtk-text-view-backward-display-line (self `') (iter `') => (ret `bool') -- Method: backward-display-line Moves the given ITER backward by one display (wrapped) line. A display line is different from a paragraph. Paragraphs are separated by newlines or other paragraph separator characters. Display lines are created by line-wrapping a paragraph. If wrapping is turned off, display lines and paragraphs will be the same. Display lines are divided differently for each view, since they depend on the view's width; paragraphs are the same in all views, since they depend on the contents of the `'. TEXT-VIEW a `' ITER a `' RET ``#t'' if ITER was moved and is not on the end iterator -- Function: gtk-text-view-starts-display-line (self `') (iter `') => (ret `bool') -- Method: starts-display-line Determines whether ITER is at the start of a display line. See `gtk-text-view-forward-display-line' for an explanation of display lines vs. paragraphs. TEXT-VIEW a `' ITER a `' RET ``#t'' if ITER begins a wrapped line -- Function: gtk-text-view-move-visually (self `') (iter `') (count `int') => (ret `bool') -- Method: move-visually Move the iterator a given number of characters visually, treating it as the strong cursor position. If COUNT is positive, then the new strong cursor position will be COUNT positions to the right of the old cursor position. If COUNT is negative then the new strong cursor position will be COUNT positions to the left of the old cursor position. In the presence of bidirection text, the correspondence between logical and visual order will depend on the direction of the current run, and there may be jumps when the cursor is moved off of the end of a run. TEXT-VIEW a `' ITER a `' COUNT number of characters to move (negative moves left, positive moves right) RET ``#t'' if ITER moved and is not on the end iterator -- Function: gtk-text-view-add-child-at-anchor (self `') (child `') (anchor `') -- Method: add-child-at-anchor Adds a child widget in the text buffer, at the given ANCHOR. TEXT-VIEW a `' CHILD a `' ANCHOR a `' in the `' for TEXT-VIEW -- Function: gtk-text-child-anchor-new => (ret `') Creates a new `'. Usually you would then insert it into a `' with `gtk-text-buffer-insert-child-anchor'. To perform the creation and insertion in one step, use the convenience function `gtk-text-buffer-create-child-anchor'. RET a new `' -- Function: gtk-text-child-anchor-get-widgets (self `') => (ret `glist-of') -- Method: get-widgets Gets a list of all widgets anchored at this child anchor. The returned list should be freed with `g-list-free'. ANCHOR a `' RET list of widgets anchored at ANCHOR -- Function: gtk-text-child-anchor-get-deleted (self `') => (ret `bool') -- Method: get-deleted Determines whether a child anchor has been deleted from the buffer. Keep in mind that the child anchor will be unreferenced when removed from the buffer, so you need to hold your own reference (with `g-object-ref') if you plan to use this function — otherwise all deleted child anchors will also be finalized. ANCHOR a `' RET ``#t'' if the child anchor has been deleted from its buffer -- Function: gtk-text-view-add-child-in-window (self `') (child `') (which_window `') (xpos `int') (ypos `int') -- Method: add-child-in-window Adds a child at fixed coordinates in one of the text widget's windows. The window must have nonzero size (see `gtk-text-view-set-border-window-size'). Note that the child coordinates are given relative to the `' in question, and that these coordinates have no sane relationship to scrolling. When placing a child in `', scrolling is irrelevant, the child floats above all scrollable areas. But when placing a child in one of the scrollable windows (border windows or text window), you'll need to compute the child's correct position in buffer coordinates any time scrolling occurs or buffer changes occur, and then call `gtk-text-view-move-child' to update the child's position. Unfortunately there's no good way to detect that scrolling has occurred, using the current API; a possible hack would be to update all child positions when the scroll adjustments change or the text buffer changes. See bug 64518 on bugzilla.gnome.org for status of fixing this issue. TEXT-VIEW a `' CHILD a `' WHICH-WINDOW which window the child should appear in XPOS X position of child in window coordinates YPOS Y position of child in window coordinates -- Function: gtk-text-view-move-child (self `') (child `') (xpos `int') (ypos `int') -- Method: move-child Updates the position of a child, as for `gtk-text-view-add-child-in-window'. TEXT-VIEW a `' CHILD child widget already added to the text view XPOS new X position in window coordinates YPOS new Y position in window coordinates -- Function: gtk-text-view-set-wrap-mode (self `') (wrap_mode `') -- Method: set-wrap-mode Sets the line wrapping for the view. TEXT-VIEW a `' WRAP-MODE a `' -- Function: gtk-text-view-get-wrap-mode (self `') => (ret `') -- Method: get-wrap-mode Gets the line wrapping for the view. TEXT-VIEW a `' RET the line wrap setting -- Function: gtk-text-view-set-editable (self `') (setting `bool') -- Method: set-editable Sets the default editability of the `'. You can override this default setting with tags in the buffer, using the "editable" attribute of tags. TEXT-VIEW a `' SETTING whether it's editable -- Function: gtk-text-view-get-editable (self `') => (ret `bool') -- Method: get-editable Returns the default editability of the `'. Tags in the buffer may override this setting for some ranges of text. TEXT-VIEW a `' RET whether text is editable by default -- Function: gtk-text-view-set-cursor-visible (self `') (setting `bool') -- Method: set-cursor-visible Toggles whether the insertion point is displayed. A buffer with no editable text probably shouldn't have a visible cursor, so you may want to turn the cursor off. TEXT-VIEW a `' SETTING whether to show the insertion cursor -- Function: gtk-text-view-get-cursor-visible (self `') => (ret `bool') -- Method: get-cursor-visible Find out whether the cursor is being displayed. TEXT-VIEW a `' RET whether the insertion mark is visible -- Function: gtk-text-view-set-overwrite (self `') (overwrite `bool') -- Method: set-overwrite Changes the `' overwrite mode. TEXT-VIEW a `' OVERWRITE ``#t'' to turn on overwrite mode, ``#f'' to turn it off Since 2.4 -- Function: gtk-text-view-get-overwrite (self `') => (ret `bool') -- Method: get-overwrite Returns whether the `' is in overwrite mode or not. TEXT-VIEW a `' RET whether TEXT-VIEW is in overwrite mode or not. Since 2.4 -- Function: gtk-text-view-set-justification (self `') (justification `') -- Method: set-justification Sets the default justification of text in TEXT-VIEW. Tags in the view's buffer may override the default. TEXT-VIEW a `' JUSTIFICATION justification -- Function: gtk-text-view-get-justification (self `') => (ret `') -- Method: get-justification Gets the default justification of paragraphs in TEXT-VIEW. Tags in the buffer may override the default. TEXT-VIEW a `' RET default justification -- Function: gtk-text-view-set-left-margin (self `') (left_margin `int') -- Method: set-left-margin Sets the default left margin for text in TEXT-VIEW. Tags in the buffer may override the default. TEXT-VIEW a `' LEFT-MARGIN left margin in pixels -- Function: gtk-text-view-get-left-margin (self `') => (ret `int') -- Method: get-left-margin Gets the default left margin size of paragraphs in the TEXT-VIEW. Tags in the buffer may override the default. TEXT-VIEW a `' RET left margin in pixels -- Function: gtk-text-view-set-right-margin (self `') (right_margin `int') -- Method: set-right-margin Sets the default right margin for text in the text view. Tags in the buffer may override the default. TEXT-VIEW a `' RIGHT-MARGIN right margin in pixels -- Function: gtk-text-view-get-right-margin (self `') => (ret `int') -- Method: get-right-margin Gets the default right margin for text in TEXT-VIEW. Tags in the buffer may override the default. TEXT-VIEW a `' RET right margin in pixels -- Function: gtk-text-view-set-indent (self `') (indent `int') -- Method: set-indent Sets the default indentation for paragraphs in TEXT-VIEW. Tags in the buffer may override the default. TEXT-VIEW a `' INDENT indentation in pixels -- Function: gtk-text-view-get-indent (self `') => (ret `int') -- Method: get-indent Gets the default indentation of paragraphs in TEXT-VIEW. Tags in the view's buffer may override the default. The indentation may be negative. TEXT-VIEW a `' RET number of pixels of indentation -- Function: gtk-text-view-set-tabs (self `') (tabs `') -- Method: set-tabs Sets the default tab stops for paragraphs in TEXT-VIEW. Tags in the buffer may override the default. TEXT-VIEW a `' TABS tabs as a `' -- Function: gtk-text-view-get-tabs (self `') => (ret `') -- Method: get-tabs Gets the default tabs for TEXT-VIEW. Tags in the buffer may override the defaults. The returned array will be ``#f'' if "standard" (8-space) tabs are used. Free the return value with `pango-tab-array-free'. TEXT-VIEW a `' RET copy of default tab array, or ``#f'' if "standard" tabs are used; must be freed with `pango-tab-array-free'. -- Function: gtk-text-view-set-accepts-tab (self `') (accepts_tab `bool') -- Method: set-accepts-tab Sets the behavior of the text widget when the Tab key is pressed. If ACCEPTS-TAB is ``#t'' a tab character is inserted. If ACCEPTS-TAB is ``#f'' the keyboard focus is moved to the next widget in the focus chain. TEXT-VIEW A `' ACCEPTS-TAB ``#t'' if pressing the Tab key should insert a tab character, ``#f'', if pressing the Tab key should move the keyboard focus. Since 2.4 -- Function: gtk-text-view-get-accepts-tab (self `') => (ret `bool') -- Method: get-accepts-tab Returns whether pressing the Tab key inserts a tab characters. `gtk-text-view-set-accepts-tab'. TEXT-VIEW A `' RET ``#t'' if pressing the Tab key inserts a tab character, ``#f'' if pressing the Tab key moves the keyboard focus. Since 2.4  File: guile-gnome-gtk.info, Node: GtkTreeModel, Next: GtkTreeSelection, Prev: GtkTextView, Up: Top 32 GtkTreeModel *************** The tree interface used by 32.1 Overview ============= The `' interface defines a generic tree interface for use by the `' widget. It is an abstract interface, and is designed to be usable with any appropriate data structure. The programmer just has to implement this interface on their own data type for it to be viewable by a `' widget. The model is represented as a hierarchical tree of strongly-typed, columned data. In other words, the model can be seen as a tree where every node has different values depending on which column is being queried. The type of data found in a column is determined by using the GType system (ie. `', `', `', etc.). The types are homogeneous per column across all nodes. It is important to note that this interface only provides a way of examining a model and observing changes. The implementation of each individual model decides how and if changes are made. In order to make life simpler for programmers who do not need to write their own specialized model, two generic models are provided — the `' and the `'. To use these, the developer simply pushes data into these models as necessary. These models provide the data structure as well as all appropriate tree interfaces. As a result, implementing drag and drop, sorting, and storing data is trivial. For the vast majority of trees and lists, these two models are sufficient. Models are accessed on a node/column level of granularity. One can query for the value of a model at a certain node and a certain column on that node. There are two structures used to reference a particular node in a model. They are the `' and the `' Most of the interface consists of operations on a `'. Here, is short for A path is essentially a potential node. It is a location on a model that may or may not actually correspond to a node on a specific model. The `' struct can be converted into either an array of unsigned integers or a string. The string form is a list of numbers separated by a colon. Each number refers to the offset at that level. Thus, the path refers to the root node and the path refers to the fifth child of the third node. By contrast, a `' is a reference to a specific node on a specific model. It is a generic struct with an integer and three generic pointers. These are filled in by the model in a model-specific way. One can convert a path to an iterator by calling `gtk-tree-model-get-iter'. These iterators are the primary way of accessing a model and are similar to the iterators used by `'. They are generally statically allocated on the stack and only used for a short time. The model interface defines a set of operations using them for navigating the model. It is expected that models fill in the iterator with private data. For example, the `' model, which is internally a simple linked list, stores a list node in one of the pointers. The `' stores an array and an offset in two of the pointers. Additionally, there is an integer field. This field is generally filled with a unique stamp per model. This stamp is for catching errors resulting from using invalid iterators with a model. The lifecycle of an iterator can be a little confusing at first. Iterators are expected to always be valid for as long as the model is unchanged (and doesn't emit a signal). The model is considered to own all outstanding iterators and nothing needs to be done to free them from the user's point of view. Additionally, some models guarantee that an iterator is valid for as long as the node it refers to is valid (most notably the `' and `'). Although generally uninteresting, as one always has to allow for the case where iterators do not persist beyond a signal, some very important performance enhancements were made in the sort model. As a result, the `' flag was added to indicate this behavior. To help show some common operation of a model, some examples are provided. The first example shows three ways of getting the iter at the location . While the first method shown is easier, the second is much more common, as you often get paths from callbacks. /* Three ways of getting the iter pointing to the location */ { GtkTreePath *path; GtkTreeIter iter; GtkTreeIter parent_iter; /* get the iterator from a string */ gtk_tree_model_get_iter_from_string (model, &iter, "3:2:5"); /* get the iterator from a path */ path = gtk_tree_path_new_from_string ("3:2:5"); gtk_tree_model_get_iter (model, &iter, path); gtk_tree_path_free (path); /* walk the tree to find the iterator */ gtk_tree_model_iter_nth_child (model, &iter, NULL, 3); parent_iter = iter; gtk_tree_model_iter_nth_child (model, &iter, &parent_iter, 2); parent_iter = iter; gtk_tree_model_iter_nth_child (model, &iter, &parent_iter, 5); } This second example shows a quick way of iterating through a list and getting a string and an integer from each row. The `populate-model' function used below is not shown, as it is specific to the `'. For information on how to write such a function, see the `' documentation. enum { STRING_COLUMN, INT_COLUMN, N_COLUMNS }; { GtkTreeModel *list_store; GtkTreeIter iter; gboolean valid; gint row_count = 0; /* make a new list_store */ list_store = gtk_list_store_new (N_COLUMNS, G_TYPE_STRING, G_TYPE_INT); /* Fill the list store with data */ populate_model (list_store); /* Get the first iter in the list */ valid = gtk_tree_model_get_iter_first (list_store, &iter); while (valid) { /* Walk through the list, reading each row */ gchar *str_data; gint int_data; /* Make sure you terminate calls to gtk_tree_model_get() * with a '-1' value */ gtk_tree_model_get (list_store, &iter, STRING_COLUMN, &str_data, INT_COLUMN, &int_data, -1); /* Do something with the data */ g_print ("Row %d: (%s,%d)\n", row_count, str_data, int_data); g_free (str_data); row_count ++; valid = gtk_tree_model_iter_next (list_store, &iter); } } 32.2 Usage ========== -- Class: Derives from `'. This class defines no direct slots. -- Signal on : row-changed (arg0 `') (arg1 `') This signal is emitted when a row in the model has changed. -- Signal on : row-inserted (arg0 `') (arg1 `') This signal is emitted when a new row has been inserted in the model. Note that the row may still be empty at this point, since it is a common pattern to first insert an empty row, and then fill it with the desired values. -- Signal on : row-has-child-toggled (arg0 `') (arg1 `') This signal is emitted when a row has gotten the first child row or lost its last child row. -- Signal on : row-deleted (arg0 `') This signal is emitted when a row has been deleted. Note that no iterator is passed to the signal handler, since the row is already deleted. Implementations of GtkTreeModel must emit row-deleted _before_ removing the node from its internal data structures. This is because models and views which access and monitor this model might have references on the node which need to be released in the row-deleted handler. -- Signal on : rows-reordered (arg0 `') (arg1 `') (arg2 `') This signal is emitted when the children of a node in the `' have been reordered. Note that this signal is _not_ emitted when rows are reordered by DND, since this is implemented by removing and then reinserting the row. -- Class: Derives from `'. This class defines no direct slots. -- Class: Derives from `'. This class defines no direct slots. -- Class: Derives from `'. This class defines no direct slots. -- Function: gtk-tree-path-new-from-string (path `mchars') (path `mchars') => (ret `') Creates a new `' initialized to PATH. PATH is expected to be a colon separated list of numbers. For example, the string "10:4:0" would create a path of depth 3 pointing to the 11th child of the root node, the 5th child of that 11th child, and the 1st child of that 5th child. If an invalid path string is passed in, ``#f'' is returned. PATH The string representation of a path. RET A newly-created `', or ``#f'' -- Function: gtk-tree-path-append-index (self `') (index `int') Appends a new index to a path. As a result, the depth of the path is increased. PATH A `'. INDEX The index. -- Function: gtk-tree-path-prepend-index (self `') (index `int') Prepends a new index to a path. As a result, the depth of the path is increased. PATH A `'. INDEX The index. -- Function: gtk-tree-path-copy (self `') => (ret `') Creates a new `' as a copy of PATH. PATH A `'. RET A new `'. -- Function: gtk-tree-row-reference-new (model `') (path `') => (ret `') Creates a row reference based on PATH. This reference will keep pointing to the node pointed to by PATH, so long as it exists. It listens to all signals emitted by MODEL, and updates its path appropriately. If PATH isn't a valid path in MODEL, then ``#f'' is returned. MODEL A `' PATH A valid `' to monitor RET A newly allocated `', or ``#f'' -- Function: gtk-tree-row-reference-new-proxy (proxy `') (model `') (path `') => (ret `') You do not need to use this function. Creates a row reference based on PATH. This reference will keep pointing to the node pointed to by PATH, so long as it exists. If PATH isn't a valid path in MODEL, then ``#f'' is returned. However, unlike references created with `gtk-tree-row-reference-new', it does not listen to the model for changes. The creator of the row reference must do this explicitly using `gtk-tree-row-reference-inserted', `gtk-tree-row-reference-deleted', `gtk-tree-row-reference-reordered'. These functions must be called exactly once per proxy when the corresponding signal on the model is emitted. This single call updates all row references for that proxy. Since built-in GTK+ objects like `' already use this mechanism internally, using them as the proxy object will produce unpredictable results. Further more, passing the same object as MODEL and PROXY doesn't work for reasons of internal implementation. This type of row reference is primarily meant by structures that need to carefully monitor exactly when a row reference updates itself, and is not generally needed by most applications. PROXY A proxy `' MODEL A `' PATH A valid `' to monitor RET A newly allocated `', or ``#f'' -- Function: gtk-tree-row-reference-get-model (self `') => (ret `') Returns the model that the row reference is monitoring. REFERENCE A `' RET the model Since 2.8 -- Function: gtk-tree-row-reference-get-path (self `') => (ret `') Returns a path that the row reference currently points to, or ``#f'' if the path pointed to is no longer valid. REFERENCE A `' RET A current path, or ``#f''. -- Function: gtk-tree-row-reference-valid (self `') => (ret `bool') Returns ``#t'' if the REFERENCE is non-``#f'' and refers to a current valid path. REFERENCE A `', or ``#f'' RET ``#t'' if REFERENCE points to a valid path. -- Function: gtk-tree-row-reference-inserted (proxy `') (path `') Lets a set of row reference created by `gtk-tree-row-reference-new-proxy' know that the model emitted the "row_inserted" signal. PROXY A `' PATH The row position that was inserted -- Function: gtk-tree-row-reference-deleted (proxy `') (path `') Lets a set of row reference created by `gtk-tree-row-reference-new-proxy' know that the model emitted the "row_deleted" signal. PROXY A `' PATH The path position that was deleted -- Function: gtk-tree-row-reference-reordered (proxy `') (path `') (iter `') => (new_order `int') Lets a set of row reference created by `gtk-tree-row-reference-new-proxy' know that the model emitted the "rows_reordered" signal. PROXY A `' PATH The parent path of the reordered signal ITER The iter pointing to the parent of the reordered NEW-ORDER The new order of rows -- Function: gtk-tree-iter-copy (self `') => (ret `') Creates a dynamically allocated tree iterator as a copy of ITER. This function is not intended for use in applications, because you can just copy the structs by value (`GtkTreeIter new_iter = iter;'). You must free this iter with `gtk-tree-iter-free'. ITER A `'. RET a newly-allocated copy of ITER. -- Function: gtk-tree-model-get-flags (self `') => (ret `') -- Method: get-flags Returns a set of flags supported by this interface. The flags are a bitwise combination of `'. The flags supported should not change during the lifecycle of the TREE-MODEL. TREE-MODEL A `'. RET The flags supported by this interface. -- Function: gtk-tree-model-get-n-columns (self `') => (ret `int') -- Method: get-n-columns Returns the number of columns supported by TREE-MODEL. TREE-MODEL A `'. RET The number of columns. -- Function: gtk-tree-model-get-column-type (self `') (index `int') => (ret `') -- Method: get-column-type Returns the type of the column. TREE-MODEL A `'. INDEX The column index. RET The type of the column. -- Function: gtk-tree-model-get-iter (self `') (path `') => (ret `') -- Method: get-iter Sets ITER to a valid iterator pointing to PATH. TREE-MODEL A `'. ITER The uninitialized `'. PATH The `'. RET ``#t'', if ITER was set. -- Function: gtk-tree-model-get-iter-first (self `') => (ret `') -- Method: get-iter-first Initializes ITER with the first iterator in the tree (the one at the path "0") and returns ``#t''. Returns ``#f'' if the tree is empty. TREE-MODEL A `'. ITER The uninitialized `'. RET ``#t'', if ITER was set. -- Function: gtk-tree-model-get-path (self `') (iter `') => (ret `') -- Method: get-path Returns a newly-created `' referenced by ITER. This path should be freed with `gtk-tree-path-free'. TREE-MODEL A `'. ITER The `'. RET a newly-created `'. -- Function: gtk-tree-model-get-value (self `') (iter `') (column `int') => (ret `scm') -- Method: get-value Sets initializes and sets VALUE to that at COLUMN. When done with VALUE, `g-value-unset' needs to be called to free any allocated memory. TREE-MODEL A `'. ITER The `'. COLUMN The column to lookup the value at. VALUE An empty `' to set. -- Function: gtk-tree-model-iter-next (self `') (iter `') => (ret `') -- Method: iter-next Sets ITER to point to the node following it at the current level. If there is no next ITER, ``#f'' is returned and ITER is set to be invalid. TREE-MODEL A `'. ITER The `'. RET ``#t'' if ITER has been changed to the next node. -- Function: gtk-tree-model-iter-children (self `') (parent `') => (ret `glist-of') -- Method: iter-children Sets ITER to point to the first child of PARENT. If PARENT has no children, ``#f'' is returned and ITER is set to be invalid. PARENT will remain a valid node after this function has been called. If PARENT is ``#f'' returns the first node, equivalent to `gtk_tree_model_get_iter_first (tree_model, iter);' TREE-MODEL A `'. ITER The new `' to be set to the child. PARENT The `', or ``#f'' RET ``#t'', if CHILD has been set to the first child. -- Function: gtk-tree-model-iter-has-child (self `') (iter `') => (ret `bool') -- Method: iter-has-child Returns ``#t'' if ITER has children, ``#f'' otherwise. TREE-MODEL A `'. ITER The `' to test for children. RET ``#t'' if ITER has children. -- Function: gtk-tree-model-iter-n-children (self `') (iter `') => (ret `int') -- Method: iter-n-children Returns the number of children that ITER has. As a special case, if ITER is ``#f'', then the number of toplevel nodes is returned. TREE-MODEL A `'. ITER The `', or ``#f''. RET The number of children of ITER. -- Function: gtk-tree-model-iter-nth-child (self `') (parent `') (n `int') => (ret `') -- Method: iter-nth-child Sets ITER to be the child of PARENT, using the given index. The first index is 0. If N is too big, or PARENT has no children, ITER is set to an invalid iterator and ``#f'' is returned. PARENT will remain a valid node after this function has been called. As a special case, if PARENT is ``#f'', then the Nth root node is set. TREE-MODEL A `'. ITER The `' to set to the nth child. PARENT The `' to get the child from, or ``#f''. N Then index of the desired child. RET ``#t'', if PARENT has an Nth child. -- Function: gtk-tree-model-iter-parent (self `') (child `') => (ret `') -- Method: iter-parent Sets ITER to be the parent of CHILD. If CHILD is at the toplevel, and doesn't have a parent, then ITER is set to an invalid iterator and ``#f'' is returned. CHILD will remain a valid node after this function has been called. TREE-MODEL A `' ITER The new `' to set to the parent. CHILD The `'. RET ``#t'', if ITER is set to the parent of CHILD. -- Function: gtk-tree-model-get-string-from-iter (self `') (iter `') => (ret `mchars') -- Method: get-string-from-iter Generates a string representation of the iter. This string is a ':' separated list of numbers. For example, "4:10:0:3" would be an acceptable return value for this string. TREE-MODEL A `'. ITER An `'. RET A newly-allocated string. Must be freed with `g-free'. Since 2.2 -- Function: gtk-tree-model-ref-node (self `') (iter `') -- Method: ref-node Lets the tree ref the node. This is an optional method for models to implement. To be more specific, models may ignore this call as it exists primarily for performance reasons. This function is primarily meant as a way for views to let caching model know when nodes are being displayed (and hence, whether or not to cache that node.) For example, a file-system based model would not want to keep the entire file-hierarchy in memory, just the sections that are currently being displayed by every current view. A model should be expected to be able to get an iter independent of its reffed state. TREE-MODEL A `'. ITER The `'. -- Function: gtk-tree-model-unref-node (self `') (iter `') -- Method: unref-node Lets the tree unref the node. This is an optional method for models to implement. To be more specific, models may ignore this call as it exists primarily for performance reasons. For more information on what this means, see `gtk-tree-model-ref-node'. Please note that nodes that are deleted are not unreffed. TREE-MODEL A `'. ITER The `'. -- Function: gtk-tree-model-row-changed (self `') (path `') (iter `') -- Method: row-changed Emits the "row_changed" signal on TREE-MODEL. TREE-MODEL A `' PATH A `' pointing to the changed row ITER A valid `' pointing to the changed row -- Function: gtk-tree-model-row-inserted (self `') (path `') (iter `') -- Method: row-inserted Emits the "row_inserted" signal on TREE-MODEL TREE-MODEL A `' PATH A `' pointing to the inserted row ITER A valid `' pointing to the inserted row -- Function: gtk-tree-model-row-deleted (self `') (path `') -- Method: row-deleted Emits the "row_deleted" signal on TREE-MODEL. This should be called by models after a row has been removed. The location pointed to by PATH should be the location that the row previously was at. It may not be a valid location anymore. TREE-MODEL A `' PATH A `' pointing to the previous location of the deleted row. -- Function: gtk-tree-model-rows-reordered (self `') (path `') (iter `') => (new_order `int') -- Method: rows-reordered Emits the "rows_reordered" signal on TREE-MODEL. This should be called by models when their rows have been reordered. TREE-MODEL A `' PATH A `' pointing to the tree node whose children have been reordered ITER A valid `' pointing to the node whose children have been reordered, or ``#f'' if the depth of PATH is 0. NEW-ORDER an array of integers mapping the current position of each child to its old position before the re-ordering, i.e. NEW-ORDER`[newpos] = oldpos'.  File: guile-gnome-gtk.info, Node: GtkTreeSelection, Next: GtkTreeViewColumn, Prev: GtkTreeModel, Up: Top 33 GtkTreeSelection ******************* The selection object for 33.1 Overview ============= The `' object is a helper object to manage the selection for a `' widget. The `' object is automatically created when a new `' widget is created, and cannot exist independentally of this widget. The primary reason the `' objects exists is for cleanliness of code and API. That is, there is no conceptual reason all these functions could not be methods on the `' widget instead of a separate function. The `' object is gotten from a `' by calling `gtk-tree-view-get-selection'. It can be manipulated to check the selection status of the tree, as well as select and deselect individual rows. Selection is done completely view side. As a result, multiple views of the same model can have completely different selections. Additionally, you cannot change the selection of a row on the model that is not currently displayed by the view without expanding its parents first. One of the important things to remember when monitoring the selection of a view is that the "changed" signal is mostly a hint. That is, it may only emit one signal when a range of rows is selected. Additionally, it may on occasion emit a "changed" signal when nothing has happened (mostly as a result of programmers calling select_row on an already selected row). 33.2 Usage ========== -- Class: Derives from `'. This class defines no direct slots. -- Signal on : changed Emitted whenever the selection has (possibly) changed. Please note that this signal is mostly a hint. It may only be emitted once when a range of rows are selected, and it may occasionally be emitted when nothing has happened. -- Function: gtk-tree-selection-set-mode (self `') (type `') -- Method: set-mode Sets the selection mode of the SELECTION. If the previous type was `', then the anchor is kept selected, if it was previously selected. SELECTION A `'. TYPE The selection mode -- Function: gtk-tree-selection-get-mode (self `') => (ret `') -- Method: get-mode Gets the selection mode for SELECTION. See `gtk-tree-selection-set-mode'. SELECTION a `' RET the current selection mode -- Function: gtk-tree-selection-get-tree-view (self `') => (ret `') -- Method: get-tree-view Returns the tree view associated with SELECTION. SELECTION A `' RET A `' -- Function: gtk-tree-selection-get-selected (self `') => (model `') (iter `') -- Method: get-selected -- Method: get-selected Retrieve the current selection, if SELECTION is set to `' or `'. This function will not work if you use SELECTION is `'. SELECTION A `'. MODEL A pointer to set to the `', or NULL. ITER The `', or NULL. -- Function: gtk-tree-selection-select-path (self `') (path `') -- Method: select-path Select the row at PATH. SELECTION A `'. PATH The `' to be selected. -- Function: gtk-tree-selection-unselect-path (self `') (path `') -- Method: unselect-path Unselects the row at PATH. SELECTION A `'. PATH The `' to be unselected. -- Function: gtk-tree-selection-path-is-selected (self `') (path `') => (ret `bool') -- Method: path-is-selected Returns ``#t'' if the row pointed to by PATH is currently selected. If PATH does not point to a valid location, ``#f'' is returned SELECTION A `'. PATH A `' to check selection on. RET ``#t'' if PATH is selected. -- Function: gtk-tree-selection-select-iter (self `') (iter `') -- Method: select-iter Selects the specified iterator. SELECTION A `'. ITER The `' to be selected. -- Function: gtk-tree-selection-unselect-iter (self `') (iter `') -- Method: unselect-iter Unselects the specified iterator. SELECTION A `'. ITER The `' to be unselected. -- Function: gtk-tree-selection-iter-is-selected (self `') (iter `') => (ret `bool') -- Method: iter-is-selected Returns ``#t'' if the row at ITER is currently selected. SELECTION A `' ITER A valid `' RET ``#t'', if ITER is selected -- Function: gtk-tree-selection-select-all (self `') -- Method: select-all Selects all the nodes. SELECTION must be set to `' mode. SELECTION A `'. -- Function: gtk-tree-selection-unselect-all (self `') -- Method: unselect-all Unselects all the nodes. SELECTION A `'. -- Function: gtk-tree-selection-select-range (self `') (start_path `') (end_path `') -- Method: select-range Selects a range of nodes, determined by START-PATH and END-PATH inclusive. SELECTION must be set to `' mode. SELECTION A `'. START-PATH The initial node of the range. END-PATH The final node of the range. -- Function: gtk-tree-selection-unselect-range (self `') (start_path `') (end_path `') -- Method: unselect-range Unselects a range of nodes, determined by START-PATH and END-PATH inclusive. SELECTION A `'. START-PATH The initial node of the range. END-PATH The initial node of the range. Since 2.2  File: guile-gnome-gtk.info, Node: GtkTreeViewColumn, Next: GtkTreeView, Prev: GtkTreeSelection, Up: Top 34 GtkTreeViewColumn ******************** A visible column in a widget 34.1 Overview ============= The GtkTreeViewColumn object represents a visible column in a `' widget. It allows to set properties of the column header, and functions as a holding pen for the cell renderers which determine how the data in the column is displayed. Please refer to the tree widget conceptual overview for an overview of all the objects and data types related to the tree widget and how they work together. 34.2 Usage ========== -- Class: Derives from `', `', `'. This class defines the following slots: `visible' Whether to display the column `resizable' Column is user-resizable `width' Current width of the column `spacing' Space which is inserted between cells `sizing' Resize mode of the column `fixed-width' Current fixed width of the column `min-width' Minimum allowed width of the column `max-width' Maximum allowed width of the column `title' Title to appear in column header `expand' Column gets share of extra width allocated to the widget `clickable' Whether the header can be clicked `widget' Widget to put in column header button instead of column title `alignment' X Alignment of the column header text or widget `reorderable' Whether the column can be reordered around the headers `sort-indicator' Whether to show a sort indicator `sort-order' Sort direction the sort indicator should indicate -- Signal on : clicked -- Function: gtk-tree-view-column-new => (ret `') Creates a new `'. RET A newly created `'. -- Function: gtk-tree-view-column-pack-start (self `') (cell `') (expand `bool') -- Method: pack-start Packs the CELL into the beginning of the column. If EXPAND is ``#f'', then the CELL is allocated no more space than it needs. Any unused space is divided evenly between cells for which EXPAND is ``#t''. TREE-COLUMN A `'. CELL The `'. EXPAND ``#t'' if CELL is to be given extra space allocated to TREE-COLUMN. -- Function: gtk-tree-view-column-pack-end (self `') (cell `') (expand `bool') -- Method: pack-end Adds the CELL to end of the column. If EXPAND is ``#f'', then the CELL is allocated no more space than it needs. Any unused space is divided evenly between cells for which EXPAND is ``#t''. TREE-COLUMN A `'. CELL The `'. EXPAND ``#t'' if CELL is to be given extra space allocated to TREE-COLUMN. -- Function: gtk-tree-view-column-clear (self `') -- Method: clear Unsets all the mappings on all renderers on the TREE-COLUMN. TREE-COLUMN A `' -- Function: gtk-tree-view-column-add-attribute (self `') (cell_renderer `') (attribute `mchars') (column `int') -- Method: add-attribute Adds an attribute mapping to the list in TREE-COLUMN. The COLUMN is the column of the model to get a value from, and the ATTRIBUTE is the parameter on CELL-RENDERER to be set from the value. So for example if column 2 of the model contains strings, you could have the "text" attribute of a `' get its values from column 2. TREE-COLUMN A `'. CELL-RENDERER the `' to set attributes on ATTRIBUTE An attribute on the renderer COLUMN The column position on the model to get the attribute from. -- Function: gtk-tree-view-column-set-spacing (self `') (spacing `int') -- Method: set-spacing Sets the spacing field of TREE-COLUMN, which is the number of pixels to place between cell renderers packed into it. TREE-COLUMN A `'. SPACING distance between cell renderers in pixels. -- Function: gtk-tree-view-column-get-spacing (self `') => (ret `int') -- Method: get-spacing Returns the spacing of TREE-COLUMN. TREE-COLUMN A `'. RET the spacing of TREE-COLUMN. -- Function: gtk-tree-view-column-set-visible (self `') (visible `bool') -- Method: set-visible Sets the visibility of TREE-COLUMN. TREE-COLUMN A `'. VISIBLE ``#t'' if the TREE-COLUMN is visible. -- Function: gtk-tree-view-column-get-visible (self `') => (ret `bool') -- Method: get-visible Returns ``#t'' if TREE-COLUMN is visible. TREE-COLUMN A `'. RET whether the column is visible or not. If it is visible, then the tree will show the column. -- Function: gtk-tree-view-column-set-resizable (self `') (resizable `bool') -- Method: set-resizable If RESIZABLE is ``#t'', then the user can explicitly resize the column by grabbing the outer edge of the column button. If resizable is ``#t'' and sizing mode of the column is `', then the sizing mode is changed to `'. TREE-COLUMN A `' RESIZABLE ``#t'', if the column can be resized -- Function: gtk-tree-view-column-get-resizable (self `') => (ret `bool') -- Method: get-resizable Returns ``#t'' if the TREE-COLUMN can be resized by the end user. TREE-COLUMN A `' RET ``#t'', if the TREE-COLUMN can be resized. -- Function: gtk-tree-view-column-set-sizing (self `') (type `') -- Method: set-sizing Sets the growth behavior of TREE-COLUMN to TYPE. TREE-COLUMN A `'. TYPE The `'. -- Function: gtk-tree-view-column-get-sizing (self `') => (ret `') -- Method: get-sizing Returns the current type of TREE-COLUMN. TREE-COLUMN A `'. RET The type of TREE-COLUMN. -- Function: gtk-tree-view-column-get-width (self `') => (ret `int') -- Method: get-width Returns the current size of TREE-COLUMN in pixels. TREE-COLUMN A `'. RET The current width of TREE-COLUMN. -- Function: gtk-tree-view-column-set-min-width (self `') (min_width `int') -- Method: set-min-width Sets the minimum width of the TREE-COLUMN. If MIN-WIDTH is -1, then the minimum width is unset. TREE-COLUMN A `'. MIN-WIDTH The minimum width of the column in pixels, or -1. -- Function: gtk-tree-view-column-get-min-width (self `') => (ret `int') -- Method: get-min-width Returns the minimum width in pixels of the TREE-COLUMN, or -1 if no minimum width is set. TREE-COLUMN A `'. RET The minimum width of the TREE-COLUMN. -- Function: gtk-tree-view-column-set-max-width (self `') (max_width `int') -- Method: set-max-width Sets the maximum width of the TREE-COLUMN. If MAX-WIDTH is -1, then the maximum width is unset. Note, the column can actually be wider than max width if it's the last column in a view. In this case, the column expands to fill any extra space. TREE-COLUMN A `'. MAX-WIDTH The maximum width of the column in pixels, or -1. -- Function: gtk-tree-view-column-get-max-width (self `') => (ret `int') -- Method: get-max-width Returns the maximum width in pixels of the TREE-COLUMN, or -1 if no maximum width is set. TREE-COLUMN A `'. RET The maximum width of the TREE-COLUMN. -- Function: gtk-tree-view-column-clicked (self `') -- Method: clicked Emits the "clicked" signal on the column. This function will only work if TREE-COLUMN is clickable. TREE-COLUMN a `' -- Function: gtk-tree-view-column-set-title (self `') (title `mchars') -- Method: set-title Sets the title of the TREE-COLUMN. If a custom widget has been set, then this value is ignored. TREE-COLUMN A `'. TITLE The title of the TREE-COLUMN. -- Function: gtk-tree-view-column-get-title (self `') => (ret `mchars') -- Method: get-title Returns the title of the widget. TREE-COLUMN A `'. RET the title of the column. This string should not be modified or freed. -- Function: gtk-tree-view-column-set-expand (self `') (expand `bool') -- Method: set-expand Sets the column to take available extra space. This space is shared equally amongst all columns that have the expand set to ``#t''. If no column has this option set, then the last column gets all extra space. By default, every column is created with this ``#f''. TREE-COLUMN A `' EXPAND ``#t'' if the column should take available extra space, ``#f'' if not Since 2.4 -- Function: gtk-tree-view-column-get-expand (self `') => (ret `bool') -- Method: get-expand Return ``#t'' if the column expands to take any available space. TREE-COLUMN a `' RET ``#t'', if the column expands Since 2.4 -- Function: gtk-tree-view-column-set-clickable (self `') (clickable `bool') -- Method: set-clickable Sets the header to be active if ACTIVE is ``#t''. When the header is active, then it can take keyboard focus, and can be clicked. TREE-COLUMN A `'. CLICKABLE ``#t'' if the header is active. -- Function: gtk-tree-view-column-get-clickable (self `') => (ret `bool') -- Method: get-clickable Returns ``#t'' if the user can click on the header for the column. TREE-COLUMN a `' RET ``#t'' if user can click the column header. -- Function: gtk-tree-view-column-set-widget (self `') (widget `') -- Method: set-widget Sets the widget in the header to be WIDGET. If widget is ``#f'', then the header button is set with a `' set to the title of TREE-COLUMN. TREE-COLUMN A `'. WIDGET A child `', or ``#f''. -- Function: gtk-tree-view-column-get-widget (self `') => (ret `') -- Method: get-widget Returns the `' in the button on the column header. If a custom widget has not been set then ``#f'' is returned. TREE-COLUMN A `'. RET The `' in the column header, or ``#f'' -- Function: gtk-tree-view-column-set-alignment (self `') (xalign `float') -- Method: set-alignment Sets the alignment of the title or custom widget inside the column header. The alignment determines its location inside the button - 0.0 for left, 0.5 for center, 1.0 for right. TREE-COLUMN A `'. XALIGN The alignment, which is between [0.0 and 1.0] inclusive. -- Function: gtk-tree-view-column-get-alignment (self `') => (ret `float') -- Method: get-alignment Returns the current x alignment of TREE-COLUMN. This value can range between 0.0 and 1.0. TREE-COLUMN A `'. RET The current alignent of TREE-COLUMN. -- Function: gtk-tree-view-column-set-sort-order (self `') (order `') -- Method: set-sort-order Changes the appearance of the sort indicator. This _does not_ actually sort the model. Use `gtk-tree-view-column-set-sort-column-id' if you want automatic sorting support. This function is primarily for custom sorting behavior, and should be used in conjunction with `gtk-tree-sortable-set-sort-column' to do that. For custom models, the mechanism will vary. The sort indicator changes direction to indicate normal sort or reverse sort. Note that you must have the sort indicator enabled to see anything when calling this function; see `gtk-tree-view-column-set-sort-indicator'. TREE-COLUMN a `' ORDER sort order that the sort indicator should indicate -- Function: gtk-tree-view-column-get-sort-order (self `') => (ret `') -- Method: get-sort-order Gets the value set by `gtk-tree-view-column-set-sort-order'. TREE-COLUMN a `' RET the sort order the sort indicator is indicating -- Function: gtk-tree-view-column-focus-cell (self `') (cell `') -- Method: focus-cell Sets the current keyboard focus to be at CELL, if the column contains 2 or more editable and activatable cells. TREE-COLUMN A `' CELL A `' Since 2.2 -- Function: gtk-tree-view-column-queue-resize (self `') -- Method: queue-resize Flags the column, and the cell renderers added to this column, to have their sizes renegotiated. TREE-COLUMN A `' Since 2.8  File: guile-gnome-gtk.info, Node: GtkTreeView, Next: GtkTreeView drag-and-drop, Prev: GtkTreeViewColumn, Up: Top 35 GtkTreeView ************** A widget for displaying both trees and lists 35.1 Overview ============= Widget that displays any object that implements the GtkTreeModel interface. Please refer to the tree widget conceptual overview for an overview of all the objects and data types related to the tree widget and how they work together. 35.2 Usage ========== -- Class: Derives from `'. This class defines the following slots: `model' The model for the tree view `hadjustment' Horizontal Adjustment for the widget `vadjustment' Vertical Adjustment for the widget `headers-visible' Show the column header buttons `headers-clickable' Column headers respond to click events `expander-column' Set the column for the expander column `reorderable' View is reorderable `rules-hint' Set a hint to the theme engine to draw rows in alternating colors `enable-search' View allows user to search through columns interactively `search-column' Model column to search through when searching through code `fixed-height-mode' Speeds up GtkTreeView by assuming that all rows have the same height `hover-selection' Whether the selection should follow the pointer `hover-expand' Whether rows should be expanded/collapsed when the pointer moves over them `show-expanders' View has expanders `level-indentation' Extra indentation for each level `rubber-banding' Whether to enable selection of multiple items by dragging the mouse pointer `enable-grid-lines' Whether grid lines should be drawn in the tree view `enable-tree-lines' Whether tree lines should be drawn in the tree view `tooltip-column' The column in the model containing the tooltip texts for the rows -- Signal on : move-cursor (arg0 `') (arg1 `') => `' -- Signal on : set-scroll-adjustments (arg0 `') (arg1 `') -- Signal on : select-all => `' -- Signal on : unselect-all => `' -- Signal on : row-activated (arg0 `') (arg1 `') The "row-activated" signal is emitted when the method `gtk-tree-view-row-activated' is called or the user double clicks a treeview row. It is also emitted when a non-editable row is selected and one of the keys: Space, Shift+Space, Return or Enter is pressed. For selection handling refer to the tree widget conceptual overview as well as `'. -- Signal on : test-expand-row (arg0 `') (arg1 `') => `' The given row is about to be expanded (show its children nodes). Use this signal if you need to control the expandability of individual rows. -- Signal on : test-collapse-row (arg0 `') (arg1 `') => `' The given row is about to be collapsed (hide its children nodes). Use this signal if you need to control the collapsibility of individual rows. -- Signal on : row-expanded (arg0 `') (arg1 `') The given row has been expanded (child nodes are shown). -- Signal on : row-collapsed (arg0 `') (arg1 `') The given row has been collapsed (child nodes are hidden). -- Signal on : columns-changed The number of columns of the treeview has changed. -- Signal on : cursor-changed The position of the cursor (focused cell) has changed. -- Signal on : select-cursor-row (arg0 `') => `' -- Signal on : toggle-cursor-row => `' -- Signal on : expand-collapse-cursor-row (arg0 `') (arg1 `') (arg2 `') => `' -- Signal on : select-cursor-parent => `' -- Signal on : start-interactive-search => `' -- Function: gtk-tree-view-new => (ret `') Creates a new `' widget. RET A newly created `' widget. -- Function: gtk-tree-view-new-with-model (model `') => (ret `') Creates a new `' widget with the model initialized to MODEL. MODEL the model. RET A newly created `' widget. -- Function: gtk-tree-view-get-model (self `') => (ret `') -- Method: get-model Returns the model the `' is based on. Returns ``#f'' if the model is unset. TREE-VIEW a `' RET A `', or ``#f'' if none is currently being used. -- Function: gtk-tree-view-set-model (self `') (model `') -- Method: set-model Sets the model for a `'. If the TREE-VIEW already has a model set, it will remove it before setting the new model. If MODEL is ``#f'', then it will unset the old model. TREE-VIEW A `'. MODEL The model. -- Function: gtk-tree-view-get-selection (self `') => (ret `') -- Method: get-selection Gets the `' associated with TREE-VIEW. TREE-VIEW A `'. RET A `' object. -- Function: gtk-tree-view-get-hadjustment (self `') => (ret `') -- Method: get-hadjustment Gets the `' currently being used for the horizontal aspect. TREE-VIEW A `' RET A `' object, or ``#f'' if none is currently being used. -- Function: gtk-tree-view-set-hadjustment (self `') (adjustment `') -- Method: set-hadjustment Sets the `' for the current horizontal aspect. TREE-VIEW A `' ADJUSTMENT The `' to set, or ``#f'' -- Function: gtk-tree-view-get-vadjustment (self `') => (ret `') -- Method: get-vadjustment Gets the `' currently being used for the vertical aspect. TREE-VIEW A `' RET A `' object, or ``#f'' if none is currently being used. -- Function: gtk-tree-view-set-vadjustment (self `') (adjustment `') -- Method: set-vadjustment Sets the `' for the current vertical aspect. TREE-VIEW A `' ADJUSTMENT The `' to set, or ``#f'' -- Function: gtk-tree-view-get-headers-visible (self `') => (ret `bool') -- Method: get-headers-visible Returns ``#t'' if the headers on the TREE-VIEW are visible. TREE-VIEW A `'. RET Whether the headers are visible or not. -- Function: gtk-tree-view-set-headers-visible (self `') (headers_visible `bool') -- Method: set-headers-visible Sets the visibility state of the headers. TREE-VIEW A `'. HEADERS-VISIBLE ``#t'' if the headers are visible -- Function: gtk-tree-view-columns-autosize (self `') -- Method: columns-autosize Resizes all columns to their optimal width. Only works after the treeview has been realized. TREE-VIEW A `'. -- Function: gtk-tree-view-get-headers-clickable (self `') => (ret `bool') -- Method: get-headers-clickable Returns whether all header columns are clickable. TREE-VIEW A `'. RET ``#t'' if all header columns are clickable, otherwise ``#f'' Since 2.10 -- Function: gtk-tree-view-set-headers-clickable (self `') (setting `bool') -- Method: set-headers-clickable Allow the column title buttons to be clicked. TREE-VIEW A `'. SETTING ``#t'' if the columns are clickable. -- Function: gtk-tree-view-set-rules-hint (self `') (setting `bool') -- Method: set-rules-hint This function tells GTK+ that the user interface for your application requires users to read across tree rows and associate cells with one another. By default, GTK+ will then render the tree with alternating row colors. Do _not_ use it just because you prefer the appearance of the ruled tree; that's a question for the theme. Some themes will draw tree rows in alternating colors even when rules are turned off, and users who prefer that appearance all the time can choose those themes. You should call this function only as a _semantic_ hint to the theme engine that your tree makes alternating colors useful from a functional standpoint (since it has lots of columns, generally). TREE-VIEW a `' SETTING ``#t'' if the tree requires reading across rows -- Function: gtk-tree-view-get-rules-hint (self `') => (ret `bool') -- Method: get-rules-hint Gets the setting set by `gtk-tree-view-set-rules-hint'. TREE-VIEW a `' RET ``#t'' if rules are useful for the user of this tree -- Function: gtk-tree-view-append-column (self `') (column `') => (ret `int') -- Method: append-column Appends COLUMN to the list of columns. If TREE-VIEW has "fixed_height" mode enabled, then COLUMN must have its "sizing" property set to be GTK_TREE_VIEW_COLUMN_FIXED. TREE-VIEW A `'. COLUMN The `' to add. RET The number of columns in TREE-VIEW after appending. -- Function: gtk-tree-view-remove-column (self `') (column `') => (ret `int') -- Method: remove-column Removes COLUMN from TREE-VIEW. TREE-VIEW A `'. COLUMN The `' to remove. RET The number of columns in TREE-VIEW after removing. -- Function: gtk-tree-view-insert-column (self `') (column `') (position `int') => (ret `int') -- Method: insert-column This inserts the COLUMN into the TREE-VIEW at POSITION. If POSITION is -1, then the column is inserted at the end. If TREE-VIEW has "fixed_height" mode enabled, then COLUMN must have its "sizing" property set to be GTK_TREE_VIEW_COLUMN_FIXED. TREE-VIEW A `'. COLUMN The `' to be inserted. POSITION The position to insert COLUMN in. RET The number of columns in TREE-VIEW after insertion. -- Function: gtk-tree-view-get-column (self `') (n `int') => (ret `') -- Method: get-column Gets the `' at the given position in the `'. TREE-VIEW A `'. N The position of the column, counting from 0. RET The `', or ``#f'' if the position is outside the range of columns. -- Function: gtk-tree-view-get-columns (self `') => (ret `glist-of') -- Method: get-columns Returns a `' of all the `' s currently in TREE-VIEW. The returned list must be freed with `g-list-free'. TREE-VIEW A `' RET A list of `' s -- Function: gtk-tree-view-move-column-after (self `') (column `') (base_column `') -- Method: move-column-after Moves COLUMN to be after to BASE-COLUMN. If BASE-COLUMN is ``#f'', then COLUMN is placed in the first position. TREE-VIEW A `' COLUMN The `' to be moved. BASE-COLUMN The `' to be moved relative to, or ``#f''. -- Function: gtk-tree-view-set-expander-column (self `') (column `') -- Method: set-expander-column Sets the column to draw the expander arrow at. It must be in TREE-VIEW. If COLUMN is ``#f'', then the expander arrow is always at the first visible column. If you do not want expander arrow to appear in your tree, set the expander column to a hidden column. TREE-VIEW A `' COLUMN ``#f'', or the column to draw the expander arrow at. -- Function: gtk-tree-view-get-expander-column (self `') => (ret `') -- Method: get-expander-column Returns the column that is the current expander column. This column has the expander arrow drawn next to it. TREE-VIEW A `' RET The expander column. -- Function: gtk-tree-view-scroll-to-point (self `') (tree_x `int') (tree_y `int') -- Method: scroll-to-point Scrolls the tree view such that the top-left corner of the visible area is TREE-X, TREE-Y, where TREE-X and TREE-Y are specified in tree window coordinates. The TREE-VIEW must be realized before this function is called. If it isn't, you probably want to be using `gtk-tree-view-scroll-to-cell'. If either TREE-X or TREE-Y are -1, then that direction isn't scrolled. TREE-VIEW a `' TREE-X X coordinate of new top-left pixel of visible area, or -1 TREE-Y Y coordinate of new top-left pixel of visible area, or -1 -- Function: gtk-tree-view-scroll-to-cell (self `') (path `') (column `') (use_align `bool') (row_align `float') (col_align `float') -- Method: scroll-to-cell Moves the alignments of TREE-VIEW to the position specified by COLUMN and PATH. If COLUMN is ``#f'', then no horizontal scrolling occurs. Likewise, if PATH is ``#f'' no vertical scrolling occurs. At a minimum, one of COLUMN or PATH need to be non-``#f''. ROW-ALIGN determines where the row is placed, and COL-ALIGN determines where COLUMN is placed. Both are expected to be between 0.0 and 1.0. 0.0 means left/top alignment, 1.0 means right/bottom alignment, 0.5 means center. If USE-ALIGN is ``#f'', then the alignment arguments are ignored, and the tree does the minimum amount of work to scroll the cell onto the screen. This means that the cell will be scrolled to the edge closest to its current position. If the cell is currently visible on the screen, nothing is done. This function only works if the model is set, and PATH is a valid row on the model. If the model changes before the TREE-VIEW is realized, the centered path will be modified to reflect this change. TREE-VIEW A `'. PATH The path of the row to move to, or ``#f''. COLUMN The `' to move horizontally to, or ``#f''. USE-ALIGN whether to use alignment arguments, or ``#f''. ROW-ALIGN The vertical alignment of the row specified by PATH. COL-ALIGN The horizontal alignment of the column specified by COLUMN. -- Function: gtk-tree-view-set-cursor (self `') (path `') (focus_column `') (start_editing `bool') -- Method: set-cursor Sets the current keyboard focus to be at PATH, and selects it. This is useful when you want to focus the user's attention on a particular row. If FOCUS-COLUMN is not ``#f'', then focus is given to the column specified by it. Additionally, if FOCUS-COLUMN is specified, and START-EDITING is ``#t'', then editing should be started in the specified cell. This function is often followed by GTK-WIDGET-GRAB-FOCUS (TREE-VIEW) in order to give keyboard focus to the widget. Please note that editing can only happen when the widget is realized. TREE-VIEW A `' PATH A `' FOCUS-COLUMN A `', or ``#f'' START-EDITING ``#t'' if the specified cell should start being edited. -- Function: gtk-tree-view-set-cursor-on-cell (self `') (path `') (focus_column `') (focus_cell `') (start_editing `bool') -- Method: set-cursor-on-cell Sets the current keyboard focus to be at PATH, and selects it. This is useful when you want to focus the user's attention on a particular row. If FOCUS-COLUMN is not ``#f'', then focus is given to the column specified by it. If FOCUS-COLUMN and FOCUS-CELL are not ``#f'', and FOCUS-COLUMN contains 2 or more editable or activatable cells, then focus is given to the cell specified by FOCUS-CELL. Additionally, if FOCUS-COLUMN is specified, and START-EDITING is ``#t'', then editing should be started in the specified cell. This function is often followed by GTK-WIDGET-GRAB-FOCUS (TREE-VIEW) in order to give keyboard focus to the widget. Please note that editing can only happen when the widget is realized. TREE-VIEW A `' PATH A `' FOCUS-COLUMN A `', or ``#f'' FOCUS-CELL A `', or ``#f'' START-EDITING ``#t'' if the specified cell should start being edited. Since 2.2 -- Function: gtk-tree-view-row-activated (self `') (path `') (column `') -- Method: row-activated Activates the cell determined by PATH and COLUMN. TREE-VIEW A `' PATH The `' to be activated. COLUMN The `' to be activated. -- Function: gtk-tree-view-expand-all (self `') -- Method: expand-all Recursively expands all nodes in the TREE-VIEW. TREE-VIEW A `'. -- Function: gtk-tree-view-collapse-all (self `') -- Method: collapse-all Recursively collapses all visible, expanded nodes in TREE-VIEW. TREE-VIEW A `'. -- Function: gtk-tree-view-expand-to-path (self `') (path `') -- Method: expand-to-path Expands the row at PATH. This will also expand all parent rows of PATH as necessary. TREE-VIEW A `'. PATH path to a row. Since 2.2 -- Function: gtk-tree-view-expand-row (self `') (path `') (open_all `bool') => (ret `bool') -- Method: expand-row Opens the row so its children are visible. TREE-VIEW a `' PATH path to a row OPEN-ALL whether to recursively expand, or just expand immediate children RET ``#t'' if the row existed and had children -- Function: gtk-tree-view-collapse-row (self `') (path `') => (ret `bool') -- Method: collapse-row Collapses a row (hides its child rows, if they exist). TREE-VIEW a `' PATH path to a row in the TREE-VIEW RET ``#t'' if the row was collapsed. -- Function: gtk-tree-view-row-expanded (self `') (path `') => (ret `bool') -- Method: row-expanded Returns ``#t'' if the node pointed to by PATH is expanded in TREE-VIEW. TREE-VIEW A `'. PATH A `' to test expansion state. RET ``#t'' if `' is expanded. -- Function: gtk-tree-view-set-reorderable (self `') (reorderable `bool') -- Method: set-reorderable This function is a convenience function to allow you to reorder models that support the `' and the `'. Both `' and `' support these. If REORDERABLE is ``#t'', then the user can reorder the model by dragging and dropping rows. The developer can listen to these changes by connecting to the model's row_inserted and row_deleted signals. This function does not give you any degree of control over the order - any reordering is allowed. If more control is needed, you should probably handle drag and drop manually. TREE-VIEW A `'. REORDERABLE ``#t'', if the tree can be reordered. -- Function: gtk-tree-view-get-reorderable (self `') => (ret `bool') -- Method: get-reorderable Retrieves whether the user can reorder the tree via drag-and-drop. See `gtk-tree-view-set-reorderable'. TREE-VIEW a `' RET ``#t'' if the tree can be reordered. -- Function: gtk-tree-view-get-bin-window (self `') => (ret `') -- Method: get-bin-window Returns the window that TREE-VIEW renders to. This is used primarily to compare to `event->window' to confirm that the event on TREE-VIEW is on the right window. TREE-VIEW A `' RET A `', or ``#f'' when TREE-VIEW hasn't been realized yet -- Function: gtk-tree-view-widget-to-tree-coords (self `') (wx `int') (wy `int') => (tx `int') (ty `int') -- Method: widget-to-tree-coords Converts widget coordinates to coordinates for the tree window (the full scrollable area of the tree). TREE-VIEW a `' WX widget X coordinate WY widget Y coordinate TX return location for tree X coordinate TY return location for tree Y coordinate -- Function: gtk-tree-view-tree-to-widget-coords (self `') (tx `int') (ty `int') => (wx `int') (wy `int') -- Method: tree-to-widget-coords Converts tree coordinates (coordinates in full scrollable area of the tree) to widget coordinates. TREE-VIEW a `' TX tree X coordinate TY tree Y coordinate WX return location for widget X coordinate WY return location for widget Y coordinate -- Function: gtk-tree-view-unset-rows-drag-dest (self `') -- Method: unset-rows-drag-dest Undoes the effect of `gtk-tree-view-enable-model-drag-dest'. TREE-VIEW a `' -- Function: gtk-tree-view-set-drag-dest-row (self `') (path `') (pos `') -- Method: set-drag-dest-row Sets the row that is highlighted for feedback. TREE-VIEW a `' PATH The path of the row to highlight, or ``#f''. POS Specifies whether to drop before, after or into the row -- Function: gtk-tree-view-create-row-drag-icon (self `') (path `') => (ret `') -- Method: create-row-drag-icon Creates a `' representation of the row at PATH. This image is used for a drag icon. TREE-VIEW a `' PATH a `' in TREE-VIEW RET a newly-allocated pixmap of the drag icon. -- Function: gtk-tree-view-set-enable-search (self `') (enable_search `bool') -- Method: set-enable-search If ENABLE-SEARCH is set, then the user can type in text to search through the tree interactively (this is sometimes called "typeahead find"). Note that even if this is ``#f'', the user can still initiate a search using the "start-interactive-search" key binding. TREE-VIEW A `' ENABLE-SEARCH ``#t'', if the user can search interactively -- Function: gtk-tree-view-get-enable-search (self `') => (ret `bool') -- Method: get-enable-search Returns whether or not the tree allows to start interactive searching by typing in text. TREE-VIEW A `' RET whether or not to let the user search interactively -- Function: gtk-tree-view-get-search-column (self `') => (ret `int') -- Method: get-search-column Gets the column searched on by the interactive search code. TREE-VIEW A `' RET the column the interactive search code searches in. -- Function: gtk-tree-view-set-search-column (self `') (column `int') -- Method: set-search-column Sets COLUMN as the column where the interactive search code should search in. If the sort column is set, users can use the "start-interactive-search" key binding to bring up search popup. The enable-search property controls whether simply typing text will also start an interactive search. Note that COLUMN refers to a column of the model. TREE-VIEW A `' COLUMN the column of the model to search in, or -1 to disable searching -- Function: gtk-tree-view-get-search-entry (self `') => (ret `') -- Method: get-search-entry Returns the GtkEntry which is currently in use as interactive search entry for TREE-VIEW. In case the built-in entry is being used, ``#f'' will be returned. TREE-VIEW A `' RET the entry currently in use as search entry. Since 2.10 -- Function: gtk-tree-view-set-search-entry (self `') (entry `') -- Method: set-search-entry Sets the entry which the interactive search code will use for this TREE-VIEW. This is useful when you want to provide a search entry in our interface at all time at a fixed position. Passing ``#f'' for ENTRY will make the interactive search code use the built-in popup entry again. TREE-VIEW A `' ENTRY the entry the interactive search code of TREE-VIEW should use or ``#f'' Since 2.10 -- Function: gtk-tree-view-get-fixed-height-mode (self `') => (ret `bool') -- Method: get-fixed-height-mode Returns whether fixed height mode is turned on for TREE-VIEW. TREE-VIEW a `' RET ``#t'' if TREE-VIEW is in fixed height mode Since 2.6 -- Function: gtk-tree-view-set-fixed-height-mode (self `') (enable `bool') -- Method: set-fixed-height-mode Enables or disables the fixed height mode of TREE-VIEW. Fixed height mode speeds up `' by assuming that all rows have the same height. Only enable this option if all rows are the same height and all columns are of type `GTK_TREE_VIEW_COLUMN_FIXED'. TREE-VIEW a `' ENABLE ``#t'' to enable fixed height mode Since 2.6 -- Function: gtk-tree-view-get-hover-selection (self `') => (ret `bool') -- Method: get-hover-selection Returns whether hover selection mode is turned on for TREE-VIEW. TREE-VIEW a `' RET ``#t'' if TREE-VIEW is in hover selection mode Since 2.6 -- Function: gtk-tree-view-set-hover-selection (self `') (hover `bool') -- Method: set-hover-selection Enables of disables the hover selection mode of TREE-VIEW. Hover selection makes the selected row follow the pointer. Currently, this works only for the selection modes `GTK_SELECTION_SINGLE' and `GTK_SELECTION_BROWSE'. TREE-VIEW a `' HOVER ``#t'' to enable hover selection mode Since 2.6 -- Function: gtk-tree-view-get-hover-expand (self `') => (ret `bool') -- Method: get-hover-expand Returns whether hover expansion mode is turned on for TREE-VIEW. TREE-VIEW a `' RET ``#t'' if TREE-VIEW is in hover expansion mode Since 2.6 -- Function: gtk-tree-view-set-hover-expand (self `') (expand `bool') -- Method: set-hover-expand Enables of disables the hover expansion mode of TREE-VIEW. Hover expansion makes rows expand or collaps if the pointer moves over them. TREE-VIEW a `' EXPAND ``#t'' to enable hover selection mode Since 2.6 -- Function: gtk-tree-view-get-rubber-banding (self `') => (ret `bool') -- Method: get-rubber-banding Returns whether rubber banding is turned on for TREE-VIEW. If the selection mode is `', rubber banding will allow the user to select multiple rows by dragging the mouse. TREE-VIEW a `' RET ``#t'' if rubber banding in TREE-VIEW is enabled. Since 2.10 -- Function: gtk-tree-view-set-rubber-banding (self `') (enable `bool') -- Method: set-rubber-banding Enables or disables rubber banding in TREE-VIEW. If the selection mode is `', rubber banding will allow the user to select multiple rows by dragging the mouse. TREE-VIEW a `' ENABLE ``#t'' to enable rubber banding Since 2.10 -- Function: gtk-tree-view-get-enable-tree-lines (self `') => (ret `bool') -- Method: get-enable-tree-lines Returns whether or not tree lines are drawn in TREE-VIEW. TREE-VIEW a `'. RET ``#t'' if tree lines are drawn in TREE-VIEW, ``#f'' otherwise. Since 2.10 -- Function: gtk-tree-view-set-enable-tree-lines (self `') (enabled `bool') -- Method: set-enable-tree-lines Sets whether to draw lines interconnecting the expanders in TREE-VIEW. This does not have any visible effects for lists. TREE-VIEW a `' ENABLED ``#t'' to enable tree line drawing, ``#f'' otherwise. Since 2.10 -- Function: gtk-tree-view-get-grid-lines (self `') => (ret `') -- Method: get-grid-lines Returns which grid lines are enabled in TREE-VIEW. TREE-VIEW a `' RET a `' value indicating which grid lines are enabled. Since 2.10 -- Function: gtk-tree-view-set-grid-lines (self `') (grid_lines `') -- Method: set-grid-lines Sets which grid lines to draw in TREE-VIEW. TREE-VIEW a `' GRID-LINES a `' value indicating which grid lines to enable. Since 2.10  File: guile-gnome-gtk.info, Node: GtkTreeView drag-and-drop, Next: GtkCellView, Prev: GtkTreeView, Up: Top 36 GtkTreeView drag-and-drop **************************** Interfaces for drag-and-drop support in GtkTreeView 36.1 Overview ============= GTK+ supports Drag-and-Drop in tree views with a high-level and a low-level API. The low-level API consists of the GTK+ DND API, augmented by some treeview utility functions: `gtk-tree-view-set-drag-dest-row', `gtk-tree-view-get-drag-dest-row', `gtk-tree-view-get-dest-row-at-pos', `gtk-tree-view-create-row-drag-icon', `gtk-tree-set-row-drag-data' and `gtk-tree-get-row-drag-data'. This API leaves a lot of flexibility, but nothing is done automatically, and implementing advanced features like hover-to-open-rows or autoscrolling on top of this API is a lot of work. On the other hand, if you write to the high-level API, then all the bookkeeping of rows is done for you, as well as things like hover-to-open and auto-scroll, but your models have to implement the `' and `' interfaces. 36.2 Usage ========== -- Class: Derives from `'. This class defines no direct slots. -- Class: Derives from `'. This class defines no direct slots. -- Function: gtk-tree-drag-source-drag-data-get (self `') (path `') (selection_data `') => (ret `bool') -- Method: drag-data-get Asks the `' to fill in SELECTION-DATA with a representation of the row at PATH. SELECTION-DATA->TARGET gives the required type of the data. Should robustly handle a PATH no longer found in the model! DRAG-SOURCE a `' PATH row that was dragged SELECTION-DATA a `' to fill with data from the dragged row RET ``#t'' if data of the required type was provided -- Function: gtk-tree-drag-source-row-draggable (self `') (path `') => (ret `bool') -- Method: row-draggable Asks the `' whether a particular row can be used as the source of a DND operation. If the source doesn't implement this interface, the row is assumed draggable. DRAG-SOURCE a `' PATH row on which user is initiating a drag RET ``#t'' if the row can be dragged -- Function: gtk-tree-set-row-drag-data (self `') (tree_model `') (path `') => (ret `bool') Sets selection data of target type `GTK_TREE_MODEL_ROW'. Normally used in a drag_data_get handler. SELECTION-DATA some `' TREE-MODEL a `' PATH a row in TREE-MODEL RET ``#t'' if the `' had the proper target type to allow us to set a tree row  File: guile-gnome-gtk.info, Node: GtkCellView, Next: GtkIconView, Prev: GtkTreeView drag-and-drop, Up: Top 37 GtkCellView ************** A widget displaying a single row of a GtkTreeModel 37.1 Overview ============= A `' displays a single row of a `', using cell renderers just like `'. `' doesn't support some of the more complex features of `', like cell editing and drag and drop. 37.2 Usage ========== -- Class: Derives from `', `'. This class defines the following slots: `background' Background color as a string `background-gdk' Background color as a GdkColor `background-set' Whether this tag affects the background color `model' The model for cell view -- Function: gtk-cell-view-new => (ret `') Creates a new `' widget. RET A newly created `' widget. Since 2.6 -- Function: gtk-cell-view-new-with-text (text `mchars') => (ret `') Creates a new `' widget, adds a `' to it, and makes its show TEXT. TEXT the text to display in the cell view RET A newly created `' widget. Since 2.6 -- Function: gtk-cell-view-new-with-markup (markup `mchars') => (ret `') Creates a new `' widget, adds a `' to it, and makes its show MARKUP. The text can text can be marked up with the Pango text markup language. MARKUP the text to display in the cell view RET A newly created `' widget. Since 2.6 -- Function: gtk-cell-view-new-with-pixbuf (pixbuf `') => (ret `') Creates a new `' widget, adds a `' to it, and makes its show PIXBUF. PIXBUF the image to display in the cell view RET A newly created `' widget. Since 2.6 -- Function: gtk-cell-view-set-model (self `') (model `') -- Method: set-model Sets the model for CELL-VIEW. If CELL-VIEW already has a model set, it will remove it before setting the new model. If MODEL is ``#f'', then it will unset the old model. CELL-VIEW a `' MODEL a `' Since 2.6 -- Function: gtk-cell-view-set-displayed-row (self `') (path `') -- Method: set-displayed-row Sets the row of the model that is currently displayed by the `'. If the path is unset, then the contents of the cellview "stick" at their last value; this is not normally a desired result, but may be a needed intermediate state if say, the model for the `' becomes temporarily empty. CELL-VIEW a `' PATH a `' or ``#f'' to unset. Since 2.6 -- Function: gtk-cell-view-get-displayed-row (self `') => (ret `') -- Method: get-displayed-row Returns a `' referring to the currently displayed row. If no row is currently displayed, ``#f'' is returned. CELL-VIEW a `' RET the currently displayed row or ``#f'' Since 2.6 -- Function: gtk-cell-view-get-size-of-row (self `') (path `') (requisition `') => (ret `bool') -- Method: get-size-of-row Sets REQUISITION to the size needed by CELL-VIEW to display the model row pointed to by PATH. CELL-VIEW a `' PATH a `' REQUISITION return location for the size RET ``#t'' Since 2.6 -- Function: gtk-cell-view-set-background-color (self `') (color `') -- Method: set-background-color Sets the background color of VIEW. CELL-VIEW a `' COLOR the new background color Since 2.6 -- Function: gtk-cell-view-get-cell-renderers (self `') => (ret `glist-of') -- Method: get-cell-renderers Returns the cell renderers which have been added to CELL-VIEW. CELL-VIEW a `' RET a list of cell renderers. The list, but not the renderers has been newly allocated and should be freed with `g-list-free' when no longer needed. Since 2.6  File: guile-gnome-gtk.info, Node: GtkIconView, Next: GtkTreeSortable, Prev: GtkCellView, Up: Top 38 GtkIconView ************** A widget which displays a list of icons in a grid 38.1 Overview ============= `' provides an alternative view on a list model. It displays the model as a grid of icons with labels. Like `', it allows to select one or multiple items (depending on the selection mode, see `gtk-icon-view-set-selection-mode'). In addition to selection with the arrow keys, `' supports rubberband selection, which is controlled by dragging the pointer. 38.2 Usage ========== -- Class: Derives from `', `'. This class defines the following slots: `pixbuf-column' Model column used to retrieve the icon pixbuf from `text-column' Model column used to retrieve the text from `markup-column' Model column used to retrieve the text if using Pango markup `selection-mode' The selection mode `orientation' How the text and icon of each item are positioned relative to each other `model' The model for the icon view `columns' Number of columns to display `item-width' The width used for each item `spacing' Space which is inserted between cells of an item `row-spacing' Space which is inserted between grid rows `column-spacing' Space which is inserted between grid columns `margin' Space which is inserted at the edges of the icon view `reorderable' View is reorderable `tooltip-column' The column in the model containing the tooltip texts for the items -- Signal on : move-cursor (arg0 `') (arg1 `') => `' -- Signal on : selection-changed -- Signal on : set-scroll-adjustments (arg0 `') (arg1 `') -- Signal on : item-activated (arg0 `') -- Signal on : select-all -- Signal on : unselect-all -- Signal on : select-cursor-item -- Signal on : toggle-cursor-item -- Signal on : activate-cursor-item => `' -- Function: gtk-icon-view-new => (ret `') Creates a new `' widget RET A newly created `' widget Since 2.6 -- Function: gtk-icon-view-new-with-model (model `') => (ret `') Creates a new `' widget with the model MODEL. MODEL The model. RET A newly created `' widget. Since 2.6 -- Function: gtk-icon-view-set-model (self `') (model `') -- Method: set-model Sets the model for a `'. If the ICON-VIEW already has a model set, it will remove it before setting the new model. If MODEL is ``#f'', then it will unset the old model. ICON-VIEW A `'. MODEL The model. Since 2.6 -- Function: gtk-icon-view-get-model (self `') => (ret `') -- Method: get-model Returns the model the `' is based on. Returns ``#f'' if the model is unset. ICON-VIEW a `' RET A `', or ``#f'' if none is currently being used. Since 2.6 -- Function: gtk-icon-view-set-text-column (self `') (column `int') -- Method: set-text-column Sets the column with text for ICON-VIEW to be COLUMN. The text column must be of type `'. ICON-VIEW A `'. COLUMN A column in the currently used model. Since 2.6 -- Function: gtk-icon-view-get-text-column (self `') => (ret `int') -- Method: get-text-column Returns the column with text for ICON-VIEW. ICON-VIEW A `'. RET the text column, or -1 if it's unset. Since 2.6 -- Function: gtk-icon-view-set-markup-column (self `') (column `int') -- Method: set-markup-column Sets the column with markup information for ICON-VIEW to be COLUMN. The markup column must be of type `'. If the markup column is set to something, it overrides the text column set by `gtk-icon-view-set-text-column'. ICON-VIEW A `'. COLUMN A column in the currently used model. Since 2.6 -- Function: gtk-icon-view-get-markup-column (self `') => (ret `int') -- Method: get-markup-column Returns the column with markup text for ICON-VIEW. ICON-VIEW A `'. RET the markup column, or -1 if it's unset. Since 2.6 -- Function: gtk-icon-view-set-pixbuf-column (self `') (column `int') -- Method: set-pixbuf-column Sets the column with pixbufs for ICON-VIEW to be COLUMN. The pixbuf column must be of type `' ICON-VIEW A `'. COLUMN A column in the currently used model. Since 2.6 -- Function: gtk-icon-view-get-pixbuf-column (self `') => (ret `int') -- Method: get-pixbuf-column Returns the column with pixbufs for ICON-VIEW. ICON-VIEW A `'. RET the pixbuf column, or -1 if it's unset. Since 2.6 -- Function: gtk-icon-view-get-path-at-pos (self `') (x `int') (y `int') => (ret `') -- Method: get-path-at-pos Finds the path at the point (X, Y), relative to widget coordinates. See `gtk-icon-view-get-item-at-pos', if you are also interested in the cell at the specified position. ICON-VIEW A `'. X The x position to be identified Y The y position to be identified RET The `' corresponding to the icon or ``#f'' if no icon exists at that position. Since 2.6 -- Function: gtk-icon-view-set-cursor (self `') (path `') (cell `') (start_editing `bool') -- Method: set-cursor Sets the current keyboard focus to be at PATH, and selects it. This is useful when you want to focus the user's attention on a particular item. If CELL is not ``#f'', then focus is given to the cell specified by it. Additionally, if START-EDITING is ``#t'', then editing should be started in the specified cell. This function is often followed by `gtk_widget_grab_focus (icon_view)' in order to give keyboard focus to the widget. Please note that editing can only happen when the widget is realized. ICON-VIEW A `' PATH A `' CELL One of the cell renderers of ICON-VIEW, or ``#f'' START-EDITING ``#t'' if the specified cell should start being edited. Since 2.8 -- Function: gtk-icon-view-set-selection-mode (self `') (mode `') -- Method: set-selection-mode Sets the selection mode of the ICON-VIEW. ICON-VIEW A `'. MODE The selection mode Since 2.6 -- Function: gtk-icon-view-get-selection-mode (self `') => (ret `') -- Method: get-selection-mode Gets the selection mode of the ICON-VIEW. ICON-VIEW A `'. RET the current selection mode Since 2.6 -- Function: gtk-icon-view-set-orientation (self `') (orientation `') -- Method: set-orientation Sets the ::orientation property which determines whether the labels are drawn beside the icons instead of below. ICON-VIEW a `' ORIENTATION the relative position of texts and icons Since 2.6 -- Function: gtk-icon-view-get-orientation (self `') => (ret `') -- Method: get-orientation Returns the value of the ::orientation property which determines whether the labels are drawn beside the icons instead of below. ICON-VIEW a `' RET the relative position of texts and icons Since 2.6 -- Function: gtk-icon-view-set-columns (self `') (columns `int') -- Method: set-columns Sets the ::columns property which determines in how many columns the icons are arranged. If COLUMNS is -1, the number of columns will be chosen automatically to fill the available area. ICON-VIEW a `' COLUMNS the number of columns Since 2.6 -- Function: gtk-icon-view-get-columns (self `') => (ret `int') -- Method: get-columns Returns the value of the ::columns property. ICON-VIEW a `' RET the number of columns, or -1 Since 2.6 -- Function: gtk-icon-view-set-item-width (self `') (item_width `int') -- Method: set-item-width Sets the ::item-width property which specifies the width to use for each item. If it is set to -1, the icon view will automatically determine a suitable item size. ICON-VIEW a `' ITEM-WIDTH the width for each item Since 2.6 -- Function: gtk-icon-view-get-item-width (self `') => (ret `int') -- Method: get-item-width Returns the value of the ::item-width property. ICON-VIEW a `' RET the width of a single item, or -1 Since 2.6 -- Function: gtk-icon-view-set-spacing (self `') (spacing `int') -- Method: set-spacing Sets the ::spacing property which specifies the space which is inserted between the cells (i.e. the icon and the text) of an item. ICON-VIEW a `' SPACING the spacing Since 2.6 -- Function: gtk-icon-view-get-spacing (self `') => (ret `int') -- Method: get-spacing Returns the value of the ::spacing property. ICON-VIEW a `' RET the space between cells Since 2.6 -- Function: gtk-icon-view-set-row-spacing (self `') (row_spacing `int') -- Method: set-row-spacing Sets the ::row-spacing property which specifies the space which is inserted between the rows of the icon view. ICON-VIEW a `' ROW-SPACING the row spacing Since 2.6 -- Function: gtk-icon-view-get-row-spacing (self `') => (ret `int') -- Method: get-row-spacing Returns the value of the ::row-spacing property. ICON-VIEW a `' RET the space between rows Since 2.6 -- Function: gtk-icon-view-set-column-spacing (self `') (column_spacing `int') -- Method: set-column-spacing Sets the ::column-spacing property which specifies the space which is inserted between the columns of the icon view. ICON-VIEW a `' COLUMN-SPACING the column spacing Since 2.6 -- Function: gtk-icon-view-get-column-spacing (self `') => (ret `int') -- Method: get-column-spacing Returns the value of the ::column-spacing property. ICON-VIEW a `' RET the space between columns Since 2.6 -- Function: gtk-icon-view-set-margin (self `') (margin `int') -- Method: set-margin Sets the ::margin property which specifies the space which is inserted at the top, bottom, left and right of the icon view. ICON-VIEW a `' MARGIN the margin Since 2.6 -- Function: gtk-icon-view-get-margin (self `') => (ret `int') -- Method: get-margin Returns the value of the ::margin property. ICON-VIEW a `' RET the space at the borders Since 2.6 -- Function: gtk-icon-view-select-path (self `') (path `') -- Method: select-path Selects the row at PATH. ICON-VIEW A `'. PATH The `' to be selected. Since 2.6 -- Function: gtk-icon-view-unselect-path (self `') (path `') -- Method: unselect-path Unselects the row at PATH. ICON-VIEW A `'. PATH The `' to be unselected. Since 2.6 -- Function: gtk-icon-view-path-is-selected (self `') (path `') => (ret `bool') -- Method: path-is-selected Returns ``#t'' if the icon pointed to by PATH is currently selected. If ICON does not point to a valid location, ``#f'' is returned. ICON-VIEW A `'. PATH A `' to check selection on. RET ``#t'' if PATH is selected. Since 2.6 -- Function: gtk-icon-view-get-selected-items (self `') => (ret `glist-of') -- Method: get-selected-items Creates a list of paths of all selected items. Additionally, if you are planning on modifying the model after calling this function, you may want to convert the returned list into a list of `'s. To do this, you can use `gtk-tree-row-reference-new'. To free the return value, use: g_list_foreach (list, gtk_tree_path_free, NULL); g_list_free (list); ICON-VIEW A `'. RET A `' containing a `' for each selected row. Since 2.6 -- Function: gtk-icon-view-select-all (self `') -- Method: select-all Selects all the icons. ICON-VIEW must has its selection mode set to `'. ICON-VIEW A `'. Since 2.6 -- Function: gtk-icon-view-unselect-all (self `') -- Method: unselect-all Unselects all the icons. ICON-VIEW A `'. Since 2.6 -- Function: gtk-icon-view-item-activated (self `') (path `') -- Method: item-activated Activates the item determined by PATH. ICON-VIEW A `' PATH The `' to be activated Since 2.6 -- Function: gtk-icon-view-scroll-to-path (self `') (path `') (use_align `bool') (row_align `float') (col_align `float') -- Method: scroll-to-path Moves the alignments of ICON-VIEW to the position specified by PATH. ROW-ALIGN determines where the row is placed, and COL-ALIGN determines where COLUMN is placed. Both are expected to be between 0.0 and 1.0. 0.0 means left/top alignment, 1.0 means right/bottom alignment, 0.5 means center. If USE-ALIGN is ``#f'', then the alignment arguments are ignored, and the tree does the minimum amount of work to scroll the item onto the screen. This means that the item will be scrolled to the edge closest to its current position. If the item is currently visible on the screen, nothing is done. This function only works if the model is set, and PATH is a valid row on the model. If the model changes before the ICON-VIEW is realized, the centered path will be modified to reflect this change. ICON-VIEW A `'. PATH The path of the item to move to. USE-ALIGN whether to use alignment arguments, or ``#f''. ROW-ALIGN The vertical alignment of the item specified by PATH. COL-ALIGN The horizontal alignment of the item specified by PATH. Since 2.8 -- Function: gtk-icon-view-unset-model-drag-dest (self `') -- Method: unset-model-drag-dest Undoes the effect of `gtk-icon-view-enable-model-drag-dest'. ICON-VIEW a `' Since 2.8 -- Function: gtk-icon-view-set-reorderable (self `') (reorderable `bool') -- Method: set-reorderable This function is a convenience function to allow you to reorder models that support the `' and the `'. Both `' and `' support these. If REORDERABLE is ``#t'', then the user can reorder the model by dragging and dropping rows. The developer can listen to these changes by connecting to the model's row_inserted and row_deleted signals. This function does not give you any degree of control over the order - any reordering is allowed. If more control is needed, you should probably handle drag and drop manually. ICON-VIEW A `'. REORDERABLE ``#t'', if the list of items can be reordered. Since 2.8 -- Function: gtk-icon-view-get-reorderable (self `') => (ret `bool') -- Method: get-reorderable Retrieves whether the user can reorder the list via drag-and-drop. See `gtk-icon-view-set-reorderable'. ICON-VIEW a `' RET ``#t'' if the list can be reordered. Since 2.8 -- Function: gtk-icon-view-set-drag-dest-item (self `') (path `') (pos `') -- Method: set-drag-dest-item Sets the item that is highlighted for feedback. ICON-VIEW a `' PATH The path of the item to highlight, or ``#f''. POS Specifies where to drop, relative to the item Since 2.8 -- Function: gtk-icon-view-create-drag-icon (self `') (path `') => (ret `') -- Method: create-drag-icon Creates a `' representation of the item at PATH. This image is used for a drag icon. ICON-VIEW a `' PATH a `' in ICON-VIEW RET a newly-allocated pixmap of the drag icon. Since 2.8  File: guile-gnome-gtk.info, Node: GtkTreeSortable, Next: GtkTreeModelSort, Prev: GtkIconView, Up: Top 39 GtkTreeSortable ****************** The interface for sortable models used by GtkTreeView 39.1 Overview ============= `' is an interface to be implemented by tree models which support sorting. The `' uses the methods provided by this interface to sort the model. 39.2 Usage ========== -- Class: Derives from `'. This class defines no direct slots. -- Signal on : sort-column-changed  File: guile-gnome-gtk.info, Node: GtkTreeModelSort, Next: GtkTreeModelFilter, Prev: GtkTreeSortable, Up: Top 40 GtkTreeModelSort ******************* A GtkTreeModel which makes an underlying tree model sortable 40.1 Overview ============= The `' is a model which implements the `' interface. It does not hold any data itself, but rather is created with a child model and proxies its data. It has identical column types to this child model, and the changes in the child are propagated. The primary purpose of this model is to provide a way to sort a different model without modifying it. Note that the sort function used by `' is not guaranteed to be stable. The use of this is best demonstrated through an example. In the following sample code we create two `' widgets each with a view of the same data. As the model is wrapped here by a `', the two `'s can each sort their view of the data without affecting the other. By contrast, if we simply put the same model in each widget, then sorting the first would sort the second. { GtkTreeView *tree_view1; GtkTreeView *tree_view2; GtkTreeModel *sort_model1; GtkTreeModel *sort_model2; GtkTreeModel *child_model; /* get the child model */ child_model = get_my_model (); /* Create the first tree */ sort_model1 = gtk_tree_model_sort_new_with_model (child_model); tree_view1 = gtk_tree_view_new_with_model (sort_model1); /* Create the second tree */ sort_model2 = gtk_tree_model_sort_new_with_model (child_model); tree_view2 = gtk_tree_view_new_with_model (sort_model2); /* Now we can sort the two models independently */ gtk_tree_sortable_set_sort_column_id (GTK_TREE_SORTABLE (sort_model1), COLUMN_1, GTK_SORT_ASCENDING); gtk_tree_sortable_set_sort_column_id (GTK_TREE_SORTABLE (sort_model2), COLUMN_1, GTK_SORT_DESCENDING); } To demonstrate how to access the underlying child model from the sort model, the next example will be a callback for the `' "changed" signal. In this callback, we get a string from COLUMN_1 of the model. We then modify the string, find the same selected row on the child model, and change the row there. void selection_changed (GtkTreeSelection *selection, gpointer data) { GtkTreeModel *sort_model = NULL; GtkTreeModel *child_model; GtkTreeIter sort_iter; GtkTreeIter child_iter; char *some_data = NULL; char *modified_data; /* Get the current selected row and the model. */ if (! gtk_tree_selection_get_selected (selection, &sort_model, &sort_iter)) return; /* Look up the current value on the selected row and get a new value * to change it to. */ gtk_tree_model_get (GTK_TREE_MODEL (sort_model), &sort_iter, COLUMN_1, &some_data, -1); modified_data = change_the_data (some_data); g_free (some_data); /* Get an iterator on the child model, instead of the sort model. */ gtk_tree_model_sort_convert_iter_to_child_iter (GTK_TREE_MODEL_SORT (sort_model), &child_iter, &sort_iter); /* Get the child model and change the value of the row. In this * example, the child model is a GtkListStore. It could be any other * type of model, though. */ child_model = gtk_tree_model_sort_get_model (GTK_TREE_MODEL_SORT (sort_model)); gtk_list_store_set (GTK_LIST_STORE (child_model), &child_iter, COLUMN_1, &modified_data, -1); g_free (modified_data); } 40.2 Usage ========== -- Class: Derives from `', `', `', `'. This class defines the following slots: `model' The model for the TreeModelSort to sort -- Function: gtk-tree-model-sort-new-with-model (child_model `') => (ret `') Creates a new `', with CHILD-MODEL as the child model. CHILD-MODEL A `' RET A new `'. -- Function: gtk-tree-model-sort-get-model (self `') => (ret `') -- Method: get-model Returns the model the `' is sorting. TREE-MODEL a `' RET the "child model" being sorted -- Function: gtk-tree-model-sort-clear-cache (self `') -- Method: clear-cache This function should almost never be called. It clears the TREE-MODEL-SORT of any cached iterators that haven't been reffed with `gtk-tree-model-ref-node'. This might be useful if the child model being sorted is static (and doesn't change often) and there has been a lot of unreffed access to nodes. As a side effect of this function, all unreffed iters will be invalid. TREE-MODEL-SORT A `' -- Function: gtk-tree-model-sort-iter-is-valid (self `') (iter `') => (ret `bool') -- Method: iter-is-valid This function is slow. Only use it for debugging and/or testing purposes. Checks if the given iter is a valid iter for this `'. TREE-MODEL-SORT A `'. ITER A `'. RET ``#t'' if the iter is valid, ``#f'' if the iter is invalid. Since 2.2  File: guile-gnome-gtk.info, Node: GtkTreeModelFilter, Next: GtkCellLayout, Prev: GtkTreeModelSort, Up: Top 41 GtkTreeModelFilter ********************* A GtkTreeModel which hides parts of an underlying tree model 41.1 Overview ============= A `' is a tree model which wraps another tree model, and can do the following things: Filter specific rows, based on data from a "visible column", a column storing booleans indicating whether the row should be filtered or not, or based on the return value of a "visible function", which gets a model, iter and user_data and returns a boolean indicating whether the row should be filtered or not. Modify the "appearance" of the model, using a modify function. This is extremely powerful and allows for just changing some values and also for creating a completely different model based on the given child model. Set a different root node, also known as a "virtual root". You can pass in a `' indicating the root node for the filter at construction time. 41.2 Usage ========== -- Class: Derives from `', `', `'. This class defines the following slots: `child-model' The model for the filtermodel to filter `virtual-root' The virtual root (relative to the child model) for this filtermodel -- Function: gtk-tree-model-filter-new (self `') (root `') => (ret `') -- Method: filter-new Creates a new `', with CHILD-MODEL as the child_model and ROOT as the virtual root. CHILD-MODEL A `'. ROOT A `' or ``#f''. RET A new `'. Since 2.4 -- Function: gtk-tree-model-filter-get-model (self `') => (ret `') -- Method: get-model Returns a pointer to the child model of FILTER. FILTER A `'. RET A pointer to a `'. Since 2.4 -- Function: gtk-tree-model-filter-refilter (self `') -- Method: refilter Emits ::row_changed for each row in the child model, which causes the filter to re-evaluate whether a row is visible or not. FILTER A `'. Since 2.4 -- Function: gtk-tree-model-filter-clear-cache (self `') -- Method: clear-cache This function should almost never be called. It clears the FILTER of any cached iterators that haven't been reffed with `gtk-tree-model-ref-node'. This might be useful if the child model being filtered is static (and doesn't change often) and there has been a lot of unreffed access to nodes. As a side effect of this function, all unreffed iters will be invalid. FILTER A `'. Since 2.4  File: guile-gnome-gtk.info, Node: GtkCellLayout, Next: GtkCellRenderer, Prev: GtkTreeModelFilter, Up: Top 42 GtkCellLayout **************** An interface for packing cells 42.1 Overview ============= `' is an interface to be implemented by all objects which want to provide a `' API for packing cells, setting attributes and data funcs. One of the notable features provided by implementations of GtkCellLayout are _attributes_. Attributes let you set the properties in flexible ways. They can just be set to constant values like regular properties. But they can also be mapped to a column of the underlying tree model with `gtk-cell-layout-set-attributes', which means that the value of the attribute can change from cell to cell as they are rendered by the cell renderer. Finally, it is possible to specify a function with `gtk-cell-layout-set-cell-data-func' that is called to determine the value of the attribute for each cell that is rendered. 42.2 Usage ========== -- Class: Derives from `'. This class defines no direct slots. -- Function: gtk-cell-layout-pack-start (self `') (cell `') (expand `bool') -- Method: pack-start Packs the CELL into the beginning of CELL-LAYOUT. If EXPAND is ``#f'', then the CELL is allocated no more space than it needs. Any unused space is divided evenly between cells for which EXPAND is ``#t''. Note that reusing the same cell renderer is not supported. CELL-LAYOUT A `'. CELL A `'. EXPAND ``#t'' if CELL is to be given extra space allocated to CELL-LAYOUT. Since 2.4 -- Function: gtk-cell-layout-pack-end (self `') (cell `') (expand `bool') -- Method: pack-end Adds the CELL to the end of CELL-LAYOUT. If EXPAND is ``#f'', then the CELL is allocated no more space than it needs. Any unused space is divided evenly between cells for which EXPAND is ``#t''. Note that reusing the same cell renderer is not supported. CELL-LAYOUT A `'. CELL A `'. EXPAND ``#t'' if CELL is to be given extra space allocated to CELL-LAYOUT. Since 2.4 -- Function: gtk-cell-layout-reorder (self `') (cell `') (position `int') -- Method: reorder Re-inserts CELL at POSITION. Note that CELL has already to be packed into CELL-LAYOUT for this to function properly. CELL-LAYOUT A `'. CELL A `' to reorder. POSITION New position to insert CELL at. Since 2.4 -- Function: gtk-cell-layout-clear (self `') -- Method: clear Unsets all the mappings on all renderers on CELL-LAYOUT and removes all renderers from CELL-LAYOUT. CELL-LAYOUT A `'. Since 2.4 -- Function: gtk-cell-layout-add-attribute (self `') (cell `') (attribute `mchars') (column `int') -- Method: add-attribute Adds an attribute mapping to the list in CELL-LAYOUT. The COLUMN is the column of the model to get a value from, and the ATTRIBUTE is the parameter on CELL to be set from the value. So for example if column 2 of the model contains strings, you could have the "text" attribute of a `' get its values from column 2. CELL-LAYOUT A `'. CELL A `'. ATTRIBUTE An attribute on the renderer. COLUMN The column position on the model to get the attribute from. Since 2.4 -- Function: gtk-cell-layout-clear-attributes (self `') (cell `') -- Method: clear-attributes Clears all existing attributes previously set with `gtk-cell-layout-set-attributes'. CELL-LAYOUT A `'. CELL A `' to clear the attribute mapping on. Since 2.4  File: guile-gnome-gtk.info, Node: GtkCellRenderer, Next: GtkCellEditable, Prev: GtkCellLayout, Up: Top 43 GtkCellRenderer ****************** An object for rendering a single cell on a 43.1 Overview ============= The `' is a base class of a set of objects used for rendering a cell to a `'. These objects are used primarily by the `' widget, though they aren't tied to them in any specific way. It is worth noting that `' is not a `' and cannot be treated as such. The primary use of a `' is for drawing a certain graphical elements on a `'. Typically, one cell renderer is used to draw many cells on the screen. To this extent, it isn't expected that a CellRenderer keep any permanent state around. Instead, any state is set just prior to use using `'s property system. Then, the cell is measured using `gtk-cell-renderer-get-size'. Finally, the cell is rendered in the correct location using `gtk-cell-renderer-render'. There are a number of rules that must be followed when writing a new `'. First and formost, it's important that a certain set of properties will always yield a cell renderer of the same size, barring a `' change. The `' also has a number of generic properties that are expected to be honored by all children. Beyond merely rendering a cell, cell renderers can optionally provide active user interface elements. A cell renderer can be "activatable" like `', which toggles when it gets activated by a mouse click, or it can be "editable" like `', which allows the user to edit the text using a `'. To make a cell renderer activatable or editable, you have to implement the ACTIVATE or START-EDITING virtual functions, respectively. 43.2 Usage ========== -- Class: Derives from `'. This class defines the following slots: `mode' Editable mode of the CellRenderer `visible' Display the cell `sensitive' Display the cell sensitive `xalign' The x-align `yalign' The y-align `xpad' The xpad `ypad' The ypad `width' The fixed width `height' The fixed height `is-expander' Row has children `is-expanded' Row is an expander row, and is expanded `cell-background' Cell background color as a string `cell-background-gdk' Cell background color as a GdkColor `cell-background-set' Whether this tag affects the cell background color -- Signal on : editing-canceled This signal gets emitted when the user cancels the process of editing a cell. For example, an editable cell renderer could be written to cancel editing when the user presses Escape. See also: `gtk-cell-renderer-editing-canceled' Since 2.4 -- Signal on : editing-started (arg0 `') (arg1 `') This signal gets emitted when a cell starts to be edited. The indended use of this signal is to do special setup on EDITABLE, e.g. adding a `' or setting up additional columns in a `'. Note that GTK+ doesn't guarantee that cell renderers will continue to use the same kind of widget for editing in future releases, therefore you should check the type of EDITABLE before doing any specific setup, as in the following example: static void text_editing_started (GtkCellRenderer *cell, GtkCellEditable *editable, const gchar *path, gpointer data) { if (GTK_IS_ENTRY (editable)) { GtkEntry *entry = GTK_ENTRY (editable); /* ... create a GtkEntryCompletion */ gtk_entry_set_completion (entry, completion); } } Since 2.6 -- Function: gtk-cell-renderer-render (self `') (window `') (widget `') (background_area `') (cell_area `') (expose_area `') (flags `') -- Method: render Invokes the virtual render function of the `'. The three passed-in rectangles are areas of WINDOW. Most renderers will draw within CELL-AREA; the xalign, yalign, xpad, and ypad fields of the `' should be honored with respect to CELL-AREA. BACKGROUND-AREA includes the blank space around the cell, and also the area containing the tree expander; so the BACKGROUND-AREA rectangles for all cells tile to cover the entire WINDOW. EXPOSE-AREA is a clip rectangle. CELL a `' WINDOW a `' to draw to WIDGET the widget owning WINDOW BACKGROUND-AREA entire cell area (including tree expanders and maybe padding on the sides) CELL-AREA area normally rendered by a cell renderer EXPOSE-AREA area that actually needs updating FLAGS flags that affect rendering -- Function: gtk-cell-renderer-activate (self `') (event `') (widget `') (path `mchars') (background_area `') (cell_area `') (flags `') => (ret `bool') -- Method: activate Passes an activate event to the cell renderer for possible processing. Some cell renderers may use events; for example, `' toggles when it gets a mouse click. CELL a `' EVENT a `' WIDGET widget that received the event PATH widget-dependent string representation of the event location; e.g. for `', a string representation of `' BACKGROUND-AREA background area as passed to GTK-CELL-RENDERER-RENDER CELL-AREA cell area as passed to GTK-CELL-RENDERER-RENDER FLAGS render flags RET ``#t'' if the event was consumed/handled -- Function: gtk-cell-renderer-start-editing (self `') (event `') (widget `') (path `mchars') (background_area `') (cell_area `') (flags `') => (ret `') -- Method: start-editing Passes an activate event to the cell renderer for possible processing. CELL a `' EVENT a `' WIDGET widget that received the event PATH widget-dependent string representation of the event location; e.g. for `', a string representation of `' BACKGROUND-AREA background area as passed to GTK-CELL-RENDERER-RENDER CELL-AREA cell area as passed to GTK-CELL-RENDERER-RENDER FLAGS render flags RET A new `', or ``#f'' -- Function: gtk-cell-renderer-editing-canceled (self `') -- Method: editing-canceled `gtk_cell_renderer_editing_canceled' has been deprecated since version 2.6 and should not be used in newly-written code. Use `gtk-cell-renderer-stop-editing' instead Causes the cell renderer to emit the "editing-canceled" signal. This function is for use only by implementations of cell renderers that need to notify the client program that an editing process was canceled and the changes were not committed. CELL A `' Since 2.4 -- Function: gtk-cell-renderer-stop-editing (self `') (canceled `bool') -- Method: stop-editing Informs the cell renderer that the editing is stopped. If CANCELED is ``#t'', the cell renderer will emit the "editing-canceled" signal. This function should be called by cell renderer implementations in response to the "editing-done" signal of `'. CELL A `' CANCELED ``#t'' if the editing has been canceled Since 2.6 -- Function: gtk-cell-renderer-get-fixed-size (self `') => (width `int') (height `int') -- Method: get-fixed-size Fills in WIDTH and HEIGHT with the appropriate size of CELL. CELL A `' WIDTH location to fill in with the fixed width of the widget, or ``#f'' HEIGHT location to fill in with the fixed height of the widget, or ``#f'' -- Function: gtk-cell-renderer-set-fixed-size (self `') (width `int') (height `int') -- Method: set-fixed-size Sets the renderer size to be explicit, independent of the properties set. CELL A `' WIDTH the width of the cell renderer, or -1 HEIGHT the height of the cell renderer, or -1  File: guile-gnome-gtk.info, Node: GtkCellEditable, Next: GtkCellRendererAccel, Prev: GtkCellRenderer, Up: Top 44 GtkCellEditable ****************** Interface for widgets which can are used for editing cells 44.1 Overview ============= The `' interface must be implemented for widgets to be usable when editing the contents of a `' cell. 44.2 Usage ========== -- Class: Derives from `'. This class defines no direct slots. -- Signal on : editing-done -- Signal on : remove-widget -- Function: gtk-cell-editable-start-editing (self `') (event `') -- Method: start-editing Begins editing on a CELL-EDITABLE. EVENT is the `' that began the editing process. It may be ``#f'', in the instance that editing was initiated through programatic means. CELL-EDITABLE A `' EVENT A `', or ``#f'' -- Function: gtk-cell-editable-editing-done (self `') -- Method: editing-done Emits the "editing_done" signal. This signal is a sign for the cell renderer to update its value from the cell. CELL-EDITABLE A `' -- Function: gtk-cell-editable-remove-widget (self `') -- Method: remove-widget Emits the "remove_widget" signal. This signal is meant to indicate that the cell is finished editing, and the widget may now be destroyed. CELL-EDITABLE A `'  File: guile-gnome-gtk.info, Node: GtkCellRendererAccel, Next: GtkCellRendererCombo, Prev: GtkCellEditable, Up: Top 45 GtkCellRendererAccel *********************** Renders a keyboard accelerator in a cell 45.1 Overview ============= `' displays a keyboard accelerator (i.e. a key combination like -a). If the cell renderer is editable, the accelerator can be changed by simply typing the new combination. The `' cell renderer was added in GTK+ 2.10. 45.2 Usage ========== -- Class: Derives from `'. This class defines the following slots: `accel-key' The keyval of the accelerator `accel-mods' The modifier mask of the accelerator `keycode' The hardware keycode of the accelerator `accel-mode' The type of accelerators -- Signal on : accel-edited (arg0 `') (arg1 `') (arg2 `') (arg3 `') Gets emitted when the user has selected a new accelerator. Since 2.10 -- Signal on : accel-cleared (arg0 `') Gets emitted when the user has removed the accelerator. Since 2.10 -- Function: gtk-cell-renderer-accel-new => (ret `') Creates a new `'. RET the new cell renderer Since 2.10  File: guile-gnome-gtk.info, Node: GtkCellRendererCombo, Next: GtkCellRendererPixbuf, Prev: GtkCellRendererAccel, Up: Top 46 GtkCellRendererCombo *********************** Renders a combobox in a cell 46.1 Overview ============= `' renders text in a cell like `' from which it is derived. But while `' offers a simple entry to edit the text, `' offers a `' or `' widget to edit the text. The values to display in the combo box are taken from the tree model specified in the model property. The combo cell renderer takes care of adding a text cell renderer to the combo box and sets it to display the column specified by its text-column property. Further properties of the comnbo box can be set in a handler for the editing-started signal. The `' cell renderer was added in GTK+ 2.6. 46.2 Usage ========== -- Class: Derives from `'. This class defines the following slots: `model' The model containing the possible values for the combo box `text-column' A column in the data source model to get the strings from `has-entry' If FALSE, don't allow to enter strings other than the chosen ones -- Function: gtk-cell-renderer-combo-new => (ret `') Creates a new `'. Adjust how text is drawn using object properties. Object properties can be set globally (with `g-object-set'). Also, with `', you can bind a property to a value in a `'. For example, you can bind the "text" property on the cell renderer to a string value in the model, thus rendering a different string in each row of the `'. RET the new cell renderer Since 2.6  File: guile-gnome-gtk.info, Node: GtkCellRendererPixbuf, Next: GtkCellRendererProgress, Prev: GtkCellRendererCombo, Up: Top 47 GtkCellRendererPixbuf ************************ Renders a pixbuf in a cell 47.1 Overview ============= A `' can be used to render an image in a cell. It allows to render either a given `' (set via the pixbuf property) or a stock icon (set via the stock-id property). To support the tree view, `' also supports rendering two alternative pixbufs, when the is-expander property is ``#t''. If the is-expanded property is ``#t'' and the pixbuf-expander-open property is set to a pixbuf, it renders that pixbuf, if the is-expanded property is ``#f'' and the pixbuf-expander-closed property is set to a pixbuf, it renders that one. 47.2 Usage ========== -- Class: Derives from `'. This class defines the following slots: `pixbuf' The pixbuf to render `pixbuf-expander-open' Pixbuf for open expander `pixbuf-expander-closed' Pixbuf for closed expander `stock-id' The stock ID of the stock icon to render `stock-size' The GtkIconSize value that specifies the size of the rendered icon `stock-detail' Render detail to pass to the theme engine `follow-state' Whether the rendered pixbuf should be colorized according to the state `icon-name' The name of the icon from the icon theme -- Function: gtk-cell-renderer-pixbuf-new => (ret `') Creates a new `'. Adjust rendering parameters using object properties. Object properties can be set globally (with `g-object-set'). Also, with `', you can bind a property to a value in a `'. For example, you can bind the "pixbuf" property on the cell renderer to a pixbuf value in the model, thus rendering a different image in each row of the `'. RET the new cell renderer  File: guile-gnome-gtk.info, Node: GtkCellRendererProgress, Next: GtkCellRendererSpin, Prev: GtkCellRendererPixbuf, Up: Top 48 GtkCellRendererProgress ************************** Renders numbers as progress bars 48.1 Overview ============= `' renders a numeric value as a progress par in a cell. Additionally, it can display a text on top of the progress bar. The `' cell renderer was added in GTK+ 2.6. 48.2 Usage ========== -- Class: Derives from `'. This class defines the following slots: `value' Value of the progress bar `text' Text on the progress bar `pulse' Set this to positive values to indicate that some progress is made, but you don't know how much. `text-xalign' The horizontal text alignment, from 0 (left) to 1 (right). Reversed for RTL layouts. `text-yalign' The vertical text alignment, from 0 (top) to 1 (bottom). `orientation' Orientation and growth direction of the progress bar -- Function: gtk-cell-renderer-progress-new => (ret `') Creates a new `'. RET the new cell renderer Since 2.6  File: guile-gnome-gtk.info, Node: GtkCellRendererSpin, Next: GtkCellRendererText, Prev: GtkCellRendererProgress, Up: Top 49 GtkCellRendererSpin ********************** Renders a spin button in a cell 49.1 Overview ============= `' renders text in a cell like `' from which it is derived. But while `' offers a simple entry to edit the text, `' offers a `' widget. Of course, that means that the text has to be parseable as a floating point number. The range of the spinbutton is taken from the adjustment property of the cell renderer, which can be set explicitly or mapped to a column in the tree model, like all properties of cell renders. `' also has properties for the climb rate and the number of digits to display. Other `' properties can be set in a handler for the start-editing signal. The `' cell renderer was added in GTK+ 2.10. 49.2 Usage ========== -- Class: Derives from `'. This class defines the following slots: `adjustment' The adjustment that holds the value of the spinbutton. `climb-rate' The acceleration rate when you hold down a button `digits' The number of decimal places to display -- Function: gtk-cell-renderer-spin-new => (ret `') Creates a new `'. RET a new `' Since 2.10  File: guile-gnome-gtk.info, Node: GtkCellRendererText, Next: GtkCellRendererToggle, Prev: GtkCellRendererSpin, Up: Top 50 GtkCellRendererText ********************** Renders text in a cell 50.1 Overview ============= A `' renders a given text in its cell, using the font, color and style information provided by its properties. The text will be ellipsized if it is too long and the ellipsize property allows it. If the mode is `GTK_CELL_RENDERER_MODE_EDITABLE', the `' allows to edit its text using an entry. 50.2 Usage ========== -- Class: Derives from `'. This class defines the following slots: `text' Text to render `markup' Marked up text to render `attributes' A list of style attributes to apply to the text of the renderer `single-paragraph-mode' Whether or not to keep all text in a single paragraph `width-chars' The desired width of the label, in characters `wrap-width' The width at which the text is wrapped `alignment' How to align the lines `background' Background color as a string `foreground' Foreground color as a string `background-gdk' Background color as a GdkColor `foreground-gdk' Foreground color as a GdkColor `font' Font description as a string, e.g. "Sans Italic 12" `font-desc' Font description as a PangoFontDescription struct `family' Name of the font family, e.g. Sans, Helvetica, Times, Monospace `style' Font style `variant' Font variant `weight' Font weight `stretch' Font stretch `size' Font size `size-points' Font size in points `scale' Font scaling factor `editable' Whether the text can be modified by the user `strikethrough' Whether to strike through the text `underline' Style of underline for this text `rise' Offset of text above the baseline (below the baseline if rise is negative) `language' The language this text is in, as an ISO code. Pango can use this as a hint when rendering the text. If you don't understand this parameter, you probably don't need it `ellipsize' The preferred place to ellipsize the string, if the cell renderer does not have enough room to display the entire string `wrap-mode' How to break the string into multiple lines, if the cell renderer does not have enough room to display the entire string `background-set' Whether this tag affects the background color `foreground-set' Whether this tag affects the foreground color `family-set' Whether this tag affects the font family `style-set' Whether this tag affects the font style `variant-set' Whether this tag affects the font variant `weight-set' Whether this tag affects the font weight `stretch-set' Whether this tag affects the font stretch `size-set' Whether this tag affects the font size `scale-set' Whether this tag scales the font size by a factor `editable-set' Whether this tag affects text editability `strikethrough-set' Whether this tag affects strikethrough `underline-set' Whether this tag affects underlining `rise-set' Whether this tag affects the rise `language-set' Whether this tag affects the language the text is rendered as `ellipsize-set' Whether this tag affects the ellipsize mode `align-set' Whether this tag affects the alignment mode -- Signal on : edited (arg0 `') (arg1 `') This signal is emitted after RENDERER has been edited. -- Function: gtk-cell-renderer-text-new => (ret `') Creates a new `'. Adjust how text is drawn using object properties. Object properties can be set globally (with `g-object-set'). Also, with `', you can bind a property to a value in a `'. For example, you can bind the "text" property on the cell renderer to a string value in the model, thus rendering a different string in each row of the `' RET the new cell renderer  File: guile-gnome-gtk.info, Node: GtkCellRendererToggle, Next: GtkListStore, Prev: GtkCellRendererText, Up: Top 51 GtkCellRendererToggle ************************ Renders a toggle button in a cell 51.1 Overview ============= `' renders a toggle button in a cell. The button is drawn as a radio- or checkbutton, depending on the radio property. When activated, it emits the toggled signal. 51.2 Usage ========== -- Class: Derives from `'. This class defines the following slots: `activatable' The toggle button can be activated `active' The toggle state of the button `radio' Draw the toggle button as a radio button `inconsistent' The inconsistent state of the button `indicator-size' Size of check or radio indicator -- Signal on : toggled (arg0 `') The ::toggled signal is emitted when the cell is toggled. -- Function: gtk-cell-renderer-toggle-new => (ret `') Creates a new `'. Adjust rendering parameters using object properties. Object properties can be set globally (with `g-object-set'). Also, with `', you can bind a property to a value in a `'. For example, you can bind the "active" property on the cell renderer to a boolean value in the model, thus causing the check button to reflect the state of the model. RET the new cell renderer -- Function: gtk-cell-renderer-toggle-get-radio (self `') => (ret `bool') -- Method: get-radio Returns whether we're rendering radio toggles rather than checkboxes. TOGGLE a `' RET ``#t'' if we're rendering radio toggles rather than checkboxes -- Function: gtk-cell-renderer-toggle-set-radio (self `') (radio `bool') -- Method: set-radio If RADIO is ``#t'', the cell renderer renders a radio toggle (i.e. a toggle in a group of mutually-exclusive toggles). If ``#f'', it renders a check toggle (a standalone boolean option). This can be set globally for the cell renderer, or changed just before rendering each cell in the model (for `', you set up a per-row setting using `' to associate model columns with cell renderer properties). TOGGLE a `' RADIO ``#t'' to make the toggle look like a radio button -- Function: gtk-cell-renderer-toggle-get-active (self `') => (ret `bool') -- Method: get-active Returns whether the cell renderer is active. See `gtk-cell-renderer-toggle-set-active'. TOGGLE a `' RET ``#t'' if the cell renderer is active. -- Function: gtk-cell-renderer-toggle-set-active (self `') (setting `bool') -- Method: set-active Activates or deactivates a cell renderer. TOGGLE a `'. SETTING the value to set.  File: guile-gnome-gtk.info, Node: GtkListStore, Next: GtkTreeStore, Prev: GtkCellRendererToggle, Up: Top 52 GtkListStore *************** A list-like data structure that can be used with the 52.1 Overview ============= The `' object is a list model for use with a `' widget. It implements the `' interface, and consequentialy, can use all of the methods available there. It also implements the `' interface so it can be sorted by the view. Finally, it also implements the tree drag and drop interfaces. The `' can accept most GObject types as a column type, though it can't accept all custom types. Internally, it will keep a copy of data passed in (such as a string or a boxed pointer). Columns that accept `'s are handled a little differently. The `' will keep a reference to the object instead of copying the value. As a result, if the object is modified, it is up to the application writer to call GTK-TREE-MODEL-ROW-CHANGED to emit the "row_changed" signal. This most commonly affects lists with `'s stored. enum { COLUMN_STRING, COLUMN_INT, COLUMN_BOOLEAN, N_COLUMNS }; { GtkListStore *list_store; GtkTreePath *path; GtkTreeIter iter; gint i; list_store = gtk_list_store_new (N_COLUMNS, G_TYPE_STRING, G_TYPE_INT, G_TYPE_BOOLEAN); for (i = 0; i < 10; i++) { gchar *some_data; some_data = get_some_data (i); /* Add a new row to the model */ gtk_list_store_append (list_store, &iter); gtk_list_store_set (list_store, &iter, COLUMN_STRING, some_data, COLUMN_INT, i, COLUMN_BOOLEAN, FALSE, -1); /* As the store will keep a copy of the string internally, we * free some_data. */ g_free (some_data); } /* Modify a particular row */ path = gtk_tree_path_new_from_string ("4"); gtk_tree_model_get_iter (GTK_TREE_MODEL (list_store), &iter, path); gtk_tree_path_free (path); gtk_list_store_set (list_store, &iter, COLUMN_BOOLEAN, TRUE, -1); } 52.2 Performance Considerations =============================== Internally, the `' was implemented with a linked list with a tail pointer prior to GTK+ 2.6. As a result, it was fast at data insertion and deletion, and not fast at random data access. The `' sets the `' flag, which means that `'s can be cached while the row exists. Thus, if access to a particular row is needed often and your code is expected to run on older versions of GTK+, it is worth keeping the iter around. It is important to note that only the methods GTK-LIST-STORE-INSERT-WITH-VALUES and GTK-LIST-STORE-INSERT-WITH-VALUESV are atomic, in the sense that the row is being appended to the store and the values filled in in a single operation with regard to `' signaling. In contrast, using e.g. GTK-LIST-STORE-APPEND and then GTK-LIST-STORE-SET will first create a row, which triggers the "row_inserted" `' signal on `'. The row, however, is still empty, and any signal handler connecting to "row_inserted" on this particular store should be prepared for the situation that the row might be empty. This is especially important if you are wrapping the `' inside a `' and are using a `'. Using any of the non-atomic operations to append rows to the `' will cause the `' to be visited with an empty row first; the function must be prepared for that. 52.3 Usage ========== -- Class: Derives from `', `', `', `', `', `'. This class defines no direct slots. -- Function: gtk-list-store-new (types `scm') => (ret `') Creates a new list store as with N-COLUMNS columns each of the types passed in. Note that only types derived from standard GObject fundamental types are supported. As an example, `gtk_tree_store_new (3, G_TYPE_INT, G_TYPE_STRING, GDK_TYPE_PIXBUF);' will create a new `' with three columns, of type int, string and `' respectively. N-COLUMNS number of columns in the list store ... all `' types for the columns, from first to last RET a new `' -- Function: gtk-list-store-set-value (self `') (iter `') (column `int') (value `scm') -- Method: set-value Sets the data in the cell specified by ITER and COLUMN. The type of VALUE must be convertible to the type of the column. LIST-STORE A `' ITER A valid `' for the row being modified COLUMN column number to modify VALUE new value for the cell -- Function: gtk-list-store-remove (self `') (iter `') => (ret `') -- Method: remove Removes the given row from the list store. After being removed, ITER is set to be the next valid row, or invalidated if it pointed to the last row in LIST-STORE. LIST-STORE A `' ITER A valid `' RET ``#t'' if ITER is valid, ``#f'' if not. -- Function: gtk-list-store-insert (self `') (position `int') => (ret `') -- Method: insert Creates a new row at POSITION. ITER will be changed to point to this new row. If POSITION is larger than the number of rows on the list, then the new row will be appended to the list. The row will be empty after this function is called. To fill in values, you need to call `gtk-list-store-set' or `gtk-list-store-set-value'. LIST-STORE A `' ITER An unset `' to set to the new row POSITION position to insert the new row -- Function: gtk-list-store-insert-before (self `') (sibling `') => (ret `') -- Method: insert-before Inserts a new row before SIBLING. If SIBLING is ``#f'', then the row will be appended to the end of the list. ITER will be changed to point to this new row. The row will be empty after this function is called. To fill in values, you need to call `gtk-list-store-set' or `gtk-list-store-set-value'. LIST-STORE A `' ITER An unset `' to set to the new row SIBLING A valid `', or ``#f'' -- Function: gtk-list-store-insert-after (self `') (sibling `') => (ret `') -- Method: insert-after Inserts a new row after SIBLING. If SIBLING is ``#f'', then the row will be prepended to the beginning of the list. ITER will be changed to point to this new row. The row will be empty after this function is called. To fill in values, you need to call `gtk-list-store-set' or `gtk-list-store-set-value'. LIST-STORE A `' ITER An unset `' to set to the new row SIBLING A valid `', or ``#f'' -- Function: gtk-list-store-prepend (self `') => (ret `') -- Method: prepend Prepends a new row to LIST-STORE. ITER will be changed to point to this new row. The row will be empty after this function is called. To fill in values, you need to call `gtk-list-store-set' or `gtk-list-store-set-value'. LIST-STORE A `' ITER An unset `' to set to the prepend row -- Function: gtk-list-store-append (self `') => (ret `') -- Method: append Appends a new row to LIST-STORE. ITER will be changed to point to this new row. The row will be empty after this function is called. To fill in values, you need to call `gtk-list-store-set' or `gtk-list-store-set-value'. LIST-STORE A `' ITER An unset `' to set to the appended row -- Function: gtk-list-store-clear (self `') -- Method: clear Removes all rows from the list store. LIST-STORE a `'. -- Function: gtk-list-store-iter-is-valid (self `') (iter `') => (ret `bool') -- Method: iter-is-valid purposes.") Checks if the given iter is a valid iter for this `'. LIST-STORE A `'. ITER A `'. RET ``#t'' if the iter is valid, ``#f'' if the iter is invalid. Since 2.2 -- Function: gtk-list-store-reorder (self `') => (new_order `int') -- Method: reorder Reorders STORE to follow the order indicated by NEW-ORDER. Note that this function only works with unsorted stores. STORE A `'. NEW-ORDER an array of integers mapping the new position of each child to its old position before the re-ordering, i.e. NEW-ORDER`[newpos] = oldpos'. Since 2.2 -- Function: gtk-list-store-swap (self `') (a `') (b `') -- Method: swap Swaps A and B in STORE. Note that this function only works with unsorted stores. STORE A `'. A A `'. B Another `'. Since 2.2 -- Function: gtk-list-store-move-before (self `') (iter `') (position `') -- Method: move-before Moves ITER in STORE to the position before POSITION. Note that this function only works with unsorted stores. If POSITION is ``#f'', ITER will be moved to the end of the list. STORE A `'. ITER A `'. POSITION A `', or ``#f''. Since 2.2 -- Function: gtk-list-store-move-after (self `') (iter `') (position `') -- Method: move-after Moves ITER in STORE to the position after POSITION. Note that this function only works with unsorted stores. If POSITION is ``#f'', ITER will be moved to the start of the list. STORE A `'. ITER A `'. POSITION A `' or ``#f''. Since 2.2  File: guile-gnome-gtk.info, Node: GtkTreeStore, Next: GtkComboBox, Prev: GtkListStore, Up: Top 53 GtkTreeStore *************** A tree-like data structure that can be used with the 53.1 Overview ============= The `' object is a list model for use with a `' widget. It implements the `' interface, and consequentialy, can use all of the methods available there. It also implements the `' interface so it can be sorted by the view. Finally, it also implements the tree drag and drop interfaces. 53.2 Usage ========== -- Class: Derives from `', `', `', `', `', `'. This class defines no direct slots. -- Function: gtk-tree-store-new (types `scm') => (ret `') Creates a new tree store as with N-COLUMNS columns each of the types passed in. Note that only types derived from standard GObject fundamental types are supported. As an example, `gtk_tree_store_new (3, G_TYPE_INT, G_TYPE_STRING, GDK_TYPE_PIXBUF);' will create a new `' with three columns, of type `', `' and `' respectively. N-COLUMNS number of columns in the tree store ... all `' types for the columns, from first to last RET a new `' -- Function: gtk-tree-store-set-value (self `') (iter `') (column `int') (value `scm') -- Method: set-value Sets the data in the cell specified by ITER and COLUMN. The type of VALUE must be convertible to the type of the column. TREE-STORE a `' ITER A valid `' for the row being modified COLUMN column number to modify VALUE new value for the cell -- Function: gtk-tree-store-remove (self `') (iter `') => (ret `') -- Method: remove Removes ITER from TREE-STORE. After being removed, ITER is set to the next valid row at that level, or invalidated if it previously pointed to the last one. TREE-STORE A `' ITER A valid `' RET ``#t'' if ITER is still valid, ``#f'' if not. -- Function: gtk-tree-store-insert (self `') (parent `') (position `int') => (ret `') -- Method: insert Creates a new row at POSITION. If parent is non-``#f'', then the row will be made a child of PARENT. Otherwise, the row will be created at the toplevel. If POSITION is larger than the number of rows at that level, then the new row will be inserted to the end of the list. ITER will be changed to point to this new row. The row will be empty after this function is called. To fill in values, you need to call `gtk-tree-store-set' or `gtk-tree-store-set-value'. TREE-STORE A `' ITER An unset `' to set to the new row PARENT A valid `', or ``#f'' POSITION position to insert the new row -- Function: gtk-tree-store-insert-before (self `') (parent `') (sibling `') => (ret `') -- Method: insert-before Inserts a new row before SIBLING. If SIBLING is ``#f'', then the row will be appended to PARENT 's children. If PARENT and SIBLING are ``#f'', then the row will be appended to the toplevel. If both SIBLING and PARENT are set, then PARENT must be the parent of SIBLING. When SIBLING is set, PARENT is optional. ITER will be changed to point to this new row. The row will be empty after this function is called. To fill in values, you need to call `gtk-tree-store-set' or `gtk-tree-store-set-value'. TREE-STORE A `' ITER An unset `' to set to the new row PARENT A valid `', or ``#f'' SIBLING A valid `', or ``#f'' -- Function: gtk-tree-store-insert-after (self `') (parent `') (sibling `') => (ret `') -- Method: insert-after Inserts a new row after SIBLING. If SIBLING is ``#f'', then the row will be prepended to PARENT 's children. If PARENT and SIBLING are ``#f'', then the row will be prepended to the toplevel. If both SIBLING and PARENT are set, then PARENT must be the parent of SIBLING. When SIBLING is set, PARENT is optional. ITER will be changed to point to this new row. The row will be empty after this function is called. To fill in values, you need to call `gtk-tree-store-set' or `gtk-tree-store-set-value'. TREE-STORE A `' ITER An unset `' to set to the new row PARENT A valid `', or ``#f'' SIBLING A valid `', or ``#f'' -- Function: gtk-tree-store-prepend (self `') (parent `') => (ret `') -- Method: prepend Prepends a new row to TREE-STORE. If PARENT is non-``#f'', then it will prepend the new row before the first child of PARENT, otherwise it will prepend a row to the top level. ITER will be changed to point to this new row. The row will be empty after this function is called. To fill in values, you need to call `gtk-tree-store-set' or `gtk-tree-store-set-value'. TREE-STORE A `' ITER An unset `' to set to the prepended row PARENT A valid `', or ``#f'' -- Function: gtk-tree-store-append (self `') (parent `') => (ret `') -- Method: append Appends a new row to TREE-STORE. If PARENT is non-``#f'', then it will append the new row after the last child of PARENT, otherwise it will append a row to the top level. ITER will be changed to point to this new row. The row will be empty after this function is called. To fill in values, you need to call `gtk-tree-store-set' or `gtk-tree-store-set-value'. TREE-STORE A `' ITER An unset `' to set to the appended row PARENT A valid `', or ``#f'' -- Function: gtk-tree-store-is-ancestor (self `') (iter `') (descendant `') => (ret `bool') -- Method: is-ancestor Returns ``#t'' if ITER is an ancestor of DESCENDANT. That is, ITER is the parent (or grandparent or great-grandparent) of DESCENDANT. TREE-STORE A `' ITER A valid `' DESCENDANT A valid `' RET ``#t'', if ITER is an ancestor of DESCENDANT -- Function: gtk-tree-store-iter-depth (self `') (iter `') => (ret `int') -- Method: iter-depth Returns the depth of ITER. This will be 0 for anything on the root level, 1 for anything down a level, etc. TREE-STORE A `' ITER A valid `' RET The depth of ITER -- Function: gtk-tree-store-clear (self `') -- Method: clear Removes all rows from TREE-STORE TREE-STORE a `' -- Function: gtk-tree-store-iter-is-valid (self `') (iter `') => (ret `bool') -- Method: iter-is-valid WARNING: This function is slow. Only use it for debugging and/or testing purposes. Checks if the given iter is a valid iter for this `'. TREE-STORE A `'. ITER A `'. RET ``#t'' if the iter is valid, ``#f'' if the iter is invalid. Since 2.2 -- Function: gtk-tree-store-reorder (self `') (parent `') => (new_order `int') -- Method: reorder Reorders the children of PARENT in TREE-STORE to follow the order indicated by NEW-ORDER. Note that this function only works with unsorted stores. TREE-STORE A `'. PARENT A `'. NEW-ORDER an array of integers mapping the new position of each child to its old position before the re-ordering, i.e. NEW-ORDER`[newpos] = oldpos'. Since 2.2 -- Function: gtk-tree-store-swap (self `') (a `') (b `') -- Method: swap Swaps A and B in the same level of TREE-STORE. Note that this function only works with unsorted stores. TREE-STORE A `'. A A `'. B Another `'. Since 2.2 -- Function: gtk-tree-store-move-before (self `') (iter `') (position `') -- Method: move-before Moves ITER in TREE-STORE to the position before POSITION. ITER and POSITION should be in the same level. Note that this function only works with unsorted stores. If POSITION is ``#f'', ITER will be moved to the end of the level. TREE-STORE A `'. ITER A `'. POSITION A `' or ``#f''. Since 2.2 -- Function: gtk-tree-store-move-after (self `') (iter `') (position `') -- Method: move-after Moves ITER in TREE-STORE to the position after POSITION. ITER and POSITION should be in the same level. Note that this function only works with unsorted stores. If POSITION is ``#f'', ITER will be moved to the start of the level. TREE-STORE A `'. ITER A `'. POSITION A `'. Since 2.2  File: guile-gnome-gtk.info, Node: GtkComboBox, Next: GtkComboBoxEntry, Prev: GtkTreeStore, Up: Top 54 GtkComboBox ************** A widget used to choose from a list of items 54.1 Overview ============= A `' is a widget that allows the user to choose from a list of valid choices. The `' displays the selected choice. When activated, the `' displays a popup which allows the user to make a new choice. The style in which the selected value is displayed, and the style of the popup is determined by the current theme. It may be similar to a `', or similar to a Windows-style combo box. Unlike its predecessors `' and `', the `' uses the model-view pattern; the list of valid choices is specified in the form of a tree model, and the display of the choices can be adapted to the data in the model by using cell renderers, as you would in a tree view. This is possible since `' implements the `' interface. The tree model holding the valid choices is not restricted to a flat list, it can be a real tree, and the popup will reflect the tree structure. In addition to the model-view API, `' offers a simple API which is suitable for text-only combo boxes, and hides the complexity of managing the data in a model. It consists of the functions `gtk-combo-box-new-text', `gtk-combo-box-append-text', `gtk-combo-box-insert-text', `gtk-combo-box-prepend-text', `gtk-combo-box-remove-text' and `gtk-combo-box-get-active-text'. 54.2 Usage ========== -- Class: Derives from `', `', `'. This class defines the following slots: `model' The model for the combo box `wrap-width' Wrap width for laying out the items in a grid `row-span-column' TreeModel column containing the row span values `column-span-column' TreeModel column containing the column span values `active' The item which is currently active `add-tearoffs' Whether dropdowns should have a tearoff menu item `tearoff-title' A title that may be displayed by the window manager when the popup is torn-off `has-frame' Whether the combo box draws a frame around the child `focus-on-click' Whether the combo box grabs focus when it is clicked with the mouse `popup-shown' Whether the combo's dropdown is shown -- Signal on : changed The changed signal is emitted when the active item is changed. The can be due to the user selecting a different item from the list, or due to a call to `gtk-combo-box-set-active-iter'. It will also be emitted while typing into a GtkComboBoxEntry, as well as when selecting an item from the GtkComboBoxEntry's list. Since 2.4 -- Signal on : move-active (arg0 `') undocumented -- Signal on : popup undocumented -- Signal on : popdown => `' undocumented -- Function: gtk-combo-box-new => (ret `') Creates a new empty `'. RET A new `'. Since 2.4 -- Function: gtk-combo-box-new-with-model (model `') => (ret `') Creates a new `' with the model initialized to MODEL. MODEL A `'. RET A new `'. Since 2.4 -- Function: gtk-combo-box-get-wrap-width (self `') => (ret `int') -- Method: get-wrap-width Returns the wrap width which is used to determine the number of columns for the popup menu. If the wrap width is larger than 1, the combo box is in table mode. COMBO-BOX A `'. RET the wrap width. Since 2.6 -- Function: gtk-combo-box-set-wrap-width (self `') (width `int') -- Method: set-wrap-width Sets the wrap width of COMBO-BOX to be WIDTH. The wrap width is basically the preferred number of columns when you want the popup to be layed out in a table. COMBO-BOX A `'. WIDTH Preferred number of columns. Since 2.4 -- Function: gtk-combo-box-get-row-span-column (self `') => (ret `int') -- Method: get-row-span-column Returns the column with row span information for COMBO-BOX. COMBO-BOX A `'. RET the row span column. Since 2.6 -- Function: gtk-combo-box-set-row-span-column (self `') (row_span `int') -- Method: set-row-span-column Sets the column with row span information for COMBO-BOX to be ROW-SPAN. The row span column contains integers which indicate how many rows an item should span. COMBO-BOX A `'. ROW-SPAN A column in the model passed during construction. Since 2.4 -- Function: gtk-combo-box-get-active (self `') => (ret `int') -- Method: get-active Returns the index of the currently active item, or -1 if there's no active item. If the model is a non-flat treemodel, and the active item is not an immediate child of the root of the tree, this function returns `gtk_tree_path_get_indices (path)[0]', where `path' is the `' of the active item. COMBO-BOX A `'. RET An integer which is the index of the currently active item, or -1 if there's no active item. Since 2.4 -- Function: gtk-combo-box-set-active (self `') (index_ `int') -- Method: set-active Sets the active item of COMBO-BOX to be the item at INDEX. COMBO-BOX A `'. INDEX An index in the model passed during construction, or -1 to have no active item. Since 2.4 -- Function: gtk-combo-box-get-active-iter (self `') (iter `') => (ret `bool') -- Method: get-active-iter Sets ITER to point to the current active item, if it exists. COMBO-BOX A `' ITER The uninitialized `'. RET ``#t'', if ITER was set Since 2.4 -- Function: gtk-combo-box-set-active-iter (self `') (iter `') -- Method: set-active-iter Sets the current active item to be the one referenced by ITER. ITER must correspond to a path of depth one. COMBO-BOX A `' ITER The `'. Since 2.4 -- Function: gtk-combo-box-get-model (self `') => (ret `') -- Method: get-model Returns the `' which is acting as data source for COMBO-BOX. COMBO-BOX A `'. RET A `' which was passed during construction. Since 2.4 -- Function: gtk-combo-box-set-model (self `') (model `') -- Method: set-model Sets the model used by COMBO-BOX to be MODEL. Will unset a previously set model (if applicable). If model is ``#f'', then it will unset the model. Note that this function does not clear the cell renderers, you have to call `gtk-combo-box-cell-layout-clear' yourself if you need to set up different cell renderers for the new model. COMBO-BOX A `'. MODEL A `'. Since 2.4 -- Function: gtk-combo-box-new-text => (ret `') Convenience function which constructs a new text combo box, which is a `' just displaying strings. If you use this function to create a text combo box, you should only manipulate its data source with the following convenience functions: `gtk-combo-box-append-text', `gtk-combo-box-insert-text', `gtk-combo-box-prepend-text' and `gtk-combo-box-remove-text'. RET A new text combo box. Since 2.4 -- Function: gtk-combo-box-append-text (self `') (text `mchars') -- Method: append-text Appends STRING to the list of strings stored in COMBO-BOX. Note that you can only use this function with combo boxes constructed with `gtk-combo-box-new-text'. COMBO-BOX A `' constructed using `gtk-combo-box-new-text'. TEXT A string. Since 2.4 -- Function: gtk-combo-box-insert-text (self `') (position `int') (text `mchars') -- Method: insert-text Inserts STRING at POSITION in the list of strings stored in COMBO-BOX. Note that you can only use this function with combo boxes constructed with `gtk-combo-box-new-text'. COMBO-BOX A `' constructed using `gtk-combo-box-new-text'. POSITION An index to insert TEXT. TEXT A string. Since 2.4 -- Function: gtk-combo-box-prepend-text (self `') (text `mchars') -- Method: prepend-text Prepends STRING to the list of strings stored in COMBO-BOX. Note that you can only use this function with combo boxes constructed with `gtk-combo-box-new-text'. COMBO-BOX A `' constructed with `gtk-combo-box-new-text'. TEXT A string. Since 2.4 -- Function: gtk-combo-box-remove-text (self `') (position `int') -- Method: remove-text Removes the string at POSITION from COMBO-BOX. Note that you can only use this function with combo boxes constructed with `gtk-combo-box-new-text'. COMBO-BOX A `' constructed with `gtk-combo-box-new-text'. POSITION Index of the item to remove. Since 2.4 -- Function: gtk-combo-box-get-active-text (self `') => (ret `mchars') -- Method: get-active-text Returns the currently active string in COMBO-BOX or ``#f'' if none is selected. Note that you can only use this function with combo boxes constructed with `gtk-combo-box-new-text' and with `'s. COMBO-BOX A `' constructed with `gtk-combo-box-new-text'. RET a newly allocated string containing the currently active text. Since 2.6 -- Function: gtk-combo-box-popup (self `') -- Method: popup Pops up the menu or dropdown list of COMBO-BOX. This function is mostly intended for use by accessibility technologies; applications should have little use for it. COMBO-BOX a `' Since 2.4 -- Function: gtk-combo-box-popdown (self `') -- Method: popdown Hides the menu or dropdown list of COMBO-BOX. This function is mostly intended for use by accessibility technologies; applications should have little use for it. COMBO-BOX a `' Since 2.4 -- Function: gtk-combo-box-get-popup-accessible (self `') => (ret `') -- Method: get-popup-accessible Gets the accessible object corresponding to the combo box's popup. This function is mostly intended for use by accessibility technologies; applications should have little use for it. COMBO-BOX a `' RET the accessible object corresponding to the combo box's popup. Since 2.6 -- Function: gtk-combo-box-set-add-tearoffs (self `') (add_tearoffs `bool') -- Method: set-add-tearoffs Sets whether the popup menu should have a tearoff menu item. COMBO-BOX a `' ADD-TEAROFFS ``#t'' to add tearoff menu items Since 2.6 -- Function: gtk-combo-box-get-add-tearoffs (self `') => (ret `bool') -- Method: get-add-tearoffs Gets the current value of the :add-tearoffs property. COMBO-BOX a `' RET the current value of the :add-tearoffs property. -- Function: gtk-combo-box-set-title (self `') (title `mchars') -- Method: set-title Sets the menu's title in tearoff mode. COMBO-BOX a `' TITLE a title for the menu in tearoff mode. Since 2.10 -- Function: gtk-combo-box-get-title (self `') => (ret `mchars') -- Method: get-title Gets the current title of the menu in tearoff mode. See `gtk-combo-box-set-add-tearoffs'. COMBO-BOX a `' RET the menu's title in tearoff mode. This is an internal copy of the string which must not be freed. Since 2.10 -- Function: gtk-combo-box-set-focus-on-click (self `') (focus_on_click `bool') -- Method: set-focus-on-click Sets whether the combo box will grab focus when it is clicked with the mouse. Making mouse clicks not grab focus is useful in places like toolbars where you don't want the keyboard focus removed from the main area of the application. COMBO a `' FOCUS-ON-CLICK whether the combo box grabs focus when clicked with the mouse Since 2.6 -- Function: gtk-combo-box-get-focus-on-click (self `') => (ret `bool') -- Method: get-focus-on-click Returns whether the combo box grabs focus when it is clicked with the mouse. See `gtk-combo-box-set-focus-on-click'. COMBO a `' RET ``#t'' if the combo box grabs focus when it is clicked with the mouse. Since 2.6  File: guile-gnome-gtk.info, Node: GtkComboBoxEntry, Next: GtkMenu, Prev: GtkComboBox, Up: Top 55 GtkComboBoxEntry ******************* A text entry field with a dropdown list 55.1 Overview ============= A `' is a widget that allows the user to choose from a list of valid choices or enter a different value. It is very similar to a `', but it displays the selected value in an entry to allow modifying it. In contrast to a `', the underlying model of a `' must always have a text column (see `gtk-combo-box-entry-set-text-column'), and the entry will show the content of the text column in the selected row. To get the text from the entry, use `gtk-combo-box-get-active-text'. The changed signal will be emitted while typing into a GtkComboBoxEntry, as well as when selecting an item from the GtkComboBoxEntry's list. Use `gtk-combo-box-get-active' or `gtk-combo-box-get-active-iter' to discover whether an item was actually selected from the list. Connect to the activate signal of the GtkEntry (use `gtk-bin-get-child') to detect when the user actually finishes entering text. The convenience API to construct simple text-only `'es can also be used with `'s which have been constructed with `gtk-combo-box-entry-new-text'. 55.2 Usage ========== -- Class: Derives from `'. This class defines the following slots: `text-column' A column in the data source model to get the strings from -- Function: gtk-combo-box-entry-new => (ret `') Creates a new `' which has a `' as child. After construction, you should set a model using `gtk-combo-box-set-model' and a text_column * using `gtk-combo-box-entry-set-text-column'. RET A new `'. Since 2.4 -- Function: gtk-combo-box-entry-new-with-model (model `') (text_column `int') => (ret `') Creates a new `' which has a `' as child and a list of strings as popup. You can get the `' from a `' using GTK_ENTRY (GTK_BIN (combo_box_entry)->child). To add and remove strings from the list, just modify MODEL using its data manipulation API. MODEL A `'. TEXT-COLUMN A column in MODEL to get the strings from. RET A new `'. Since 2.4 -- Function: gtk-combo-box-entry-new-text => (ret `') Convenience function which constructs a new editable text combo box, which is a `' just displaying strings. If you use this function to create a text combo box, you should only manipulate its data source with the following convenience functions: `gtk-combo-box-append-text', `gtk-combo-box-insert-text', `gtk-combo-box-prepend-text' and `gtk-combo-box-remove-text'. RET A new text `'. Since 2.4 -- Function: gtk-combo-box-entry-set-text-column (self `') (text_column `int') -- Method: set-text-column Sets the model column which ENTRY-BOX should use to get strings from to be TEXT-COLUMN. ENTRY-BOX A `'. TEXT-COLUMN A column in MODEL to get the strings from. Since 2.4 -- Function: gtk-combo-box-entry-get-text-column (self `') => (ret `int') -- Method: get-text-column Returns the column which ENTRY-BOX is using to get the strings from. ENTRY-BOX A `'. RET A column in the data source model of ENTRY-BOX. Since 2.4  File: guile-gnome-gtk.info, Node: GtkMenu, Next: GtkMenuBar, Prev: GtkComboBoxEntry, Up: Top 56 GtkMenu ********** A menu widget 56.1 Overview ============= A `' is a `' that implements a drop down menu consisting of a list of `' objects which can be navigated and activated by the user to perform application functions. A `' is most commonly dropped down by activating a `' in a `' or popped up by activating a `' in another `'. A `' can also be popped up by activating a `'. Other composite widgets such as the `' can pop up a `' as well. Applications can display a `' as a popup menu by calling the `gtk-menu-popup' function. The example below shows how an application can pop up a menu when the 3rd mouse button is pressed. /* connect our handler which will popup the menu */ g_signal_connect_swapped (window, "button_press_event", G_CALLBACK (my_popup_handler), menu); static gint my_popup_handler (GtkWidget *widget, GdkEvent *event) { GtkMenu *menu; GdkEventButton *event_button; g_return_val_if_fail (widget != NULL, FALSE); g_return_val_if_fail (GTK_IS_MENU (widget), FALSE); g_return_val_if_fail (event != NULL, FALSE); /* The "widget" is the menu that was supplied when * g_signal_connect_swapped() was called. */ menu = GTK_MENU (widget); if (event->type == GDK_BUTTON_PRESS) { event_button = (GdkEventButton *) event; if (event_button->button == 3) { gtk_menu_popup (menu, NULL, NULL, NULL, NULL, event_button->button, event_button->time); return TRUE; } } return FALSE; } 56.2 Usage ========== -- Class: Derives from `'. This class defines the following slots: `tearoff-state' A boolean that indicates whether the menu is torn-off `tearoff-title' A title that may be displayed by the window manager when this menu is torn-off -- Signal on : move-scroll (arg0 `') -- Function: gtk-menu-new => (ret `') Creates a new `'. RET a new `'. -- Function: gtk-menu-set-screen (self `') (screen `') -- Method: set-screen Sets the `' on which the menu will be displayed. MENU a `'. SCREEN a `', or ``#f'' if the screen should be determined by the widget the menu is attached to. Since 2.2 -- Function: gtk-menu-reorder-child (self `') (child `') (position `int') -- Method: reorder-child Moves a `' to a new position within the `'. MENU a `'. CHILD the `' to move. POSITION the new position to place CHILD. Positions are numbered from 0 to n-1. -- Function: gtk-menu-attach (self `') (child `') (left_attach `unsigned-int') (right_attach `unsigned-int') (top_attach `unsigned-int') (bottom_attach `unsigned-int') -- Method: attach Adds a new `' to a (table) menu. The number of 'cells' that an item will occupy is specified by LEFT-ATTACH, RIGHT-ATTACH, TOP-ATTACH and BOTTOM-ATTACH. These each represent the leftmost, rightmost, uppermost and lower column and row numbers of the table. (Columns and rows are indexed from zero). Note that this function is not related to `gtk-menu-detach'. MENU a `'. CHILD a `'. LEFT-ATTACH The column number to attach the left side of the item to. RIGHT-ATTACH The column number to attach the right side of the item to. TOP-ATTACH The row number to attach the top of the item to. BOTTOM-ATTACH The row number to attach the bottom of the item to. Since 2.4 -- Function: gtk-menu-popup (self `') (parent_menu_shell `') (parent_menu_item `') (menu_position_func `scm') (button `unsigned-int') (activate_time `unsigned-int32') -- Method: popup Displays a menu and makes it available for selection. Applications can use this function to display context-sensitive menus, and will typically supply ``#f'' for the PARENT-MENU-SHELL, PARENT-MENU-ITEM, FUNC and DATA parameters. The default menu positioning function will position the menu at the current mouse cursor position. The BUTTON parameter should be the mouse button pressed to initiate the menu popup. If the menu popup was initiated by something other than a mouse button press, such as a mouse button release or a keypress, BUTTON should be 0. The ACTIVATE-TIME parameter should be the time stamp of the event that initiated the popup. If such an event is not available, use `gtk-get-current-event-time' instead. MENU a `'. PARENT-MENU-SHELL the menu shell containing the triggering menu item, or ``#f'' PARENT-MENU-ITEM the menu item whose activation triggered the popup, or ``#f'' FUNC a user supplied function used to position the menu, or ``#f'' DATA user supplied data to be passed to FUNC. BUTTON the mouse button which was pressed to initiate the event. ACTIVATE-TIME the time at which the activation event occurred. -- Function: gtk-menu-set-accel-group (self `') (accel_group `') -- Method: set-accel-group Set the `' which holds global accelerators for the menu. This accelerator group needs to also be added to all windows that this menu is being used in with `gtk-window-add-accel-group', in order for those windows to support all the accelerators contained in this group. MENU a `'. ACCEL-GROUP the `' to be associated with the menu. -- Function: gtk-menu-get-accel-group (self `') => (ret `') -- Method: get-accel-group Gets the `' which holds global accelerators for the menu. See `gtk-menu-set-accel-group'. MENU a `'. RET the `' associated with the menu. -- Function: gtk-menu-set-accel-path (self `') (accel_path `mchars') -- Method: set-accel-path Sets an accelerator path for this menu from which accelerator paths for its immediate children, its menu items, can be constructed. The main purpose of this function is to spare the programmer the inconvenience of having to call `gtk-menu-item-set-accel-path' on each menu item that should support runtime user changable accelerators. Instead, by just calling `gtk-menu-set-accel-path' on their parent, each menu item of this menu, that contains a label describing its purpose, automatically gets an accel path assigned. For example, a menu containing menu items "New" and "Exit", will, after `gtk_menu_set_accel_path (menu, "/File");' has been called, assign its items the accel paths: `"/File/New"' and `"/File/Exit"'. Assigning accel paths to menu items then enables the user to change their accelerators at runtime. More details about accelerator paths and their default setups can be found at `gtk-accel-map-add-entry'. MENU a valid `' ACCEL-PATH a valid accelerator path -- Function: gtk-menu-set-title (self `') (title `mchars') -- Method: set-title Sets the title string for the menu. The title is displayed when the menu is shown as a tearoff menu. If TITLE is ``#f'', the menu will see if it is attached to a parent menu item, and if so it will try to use the same text as that menu item's label. MENU a `' TITLE a string containing the title for the menu. -- Function: gtk-menu-get-tearoff-state (self `') => (ret `bool') -- Method: get-tearoff-state Returns whether the menu is torn off. See `gtk-menu-set-tearoff-state'. MENU a `' RET ``#t'' if the menu is currently torn off. -- Function: gtk-menu-get-title (self `') => (ret `mchars') -- Method: get-title Returns the title of the menu. See `gtk-menu-set-title'. MENU a `' RET the title of the menu, or ``#f'' if the menu has no title set on it. This string is owned by the widget and should not be modified or freed. -- Function: gtk-menu-popdown (self `') -- Method: popdown Removes the menu from the screen. MENU a `'. -- Function: gtk-menu-reposition (self `') -- Method: reposition Repositions the menu according to its position function. MENU a `'. -- Function: gtk-menu-get-active (self `') => (ret `') -- Method: get-active Returns the selected menu item from the menu. This is used by the `'. MENU a `'. RET the `' that was last selected in the menu. If a selection has not yet been made, the first menu item is selected. -- Function: gtk-menu-set-active (self `') (index `unsigned-int') -- Method: set-active Selects the specified menu item within the menu. This is used by the `' and should not be used by anyone else. MENU a `'. INDEX the index of the menu item to select. Index values are from 0 to n-1. -- Function: gtk-menu-set-tearoff-state (self `') (torn_off `bool') -- Method: set-tearoff-state Changes the tearoff state of the menu. A menu is normally displayed as drop down menu which persists as long as the menu is active. It can also be displayed as a tearoff menu which persists until it is closed or reattached. MENU a `'. TORN-OFF If ``#t'', menu is displayed as a tearoff menu. -- Function: gtk-menu-detach (self `') -- Method: detach Detaches the menu from the widget to which it had been attached. This function will call the callback function, DETACHER, provided when the `gtk-menu-attach-to-widget' function was called. MENU a `'. -- Function: gtk-menu-get-attach-widget (self `') => (ret `') -- Method: get-attach-widget Returns the `' that the menu is attached to. MENU a `'. RET the `' that the menu is attached to. -- Function: gtk-menu-get-for-attach-widget (widget `') => (ret `glist-of') Returns a list of the menus which are attached to this widget. This list is owned by GTK+ and must not be modified. WIDGET a `' RET the list of menus attached to his widget. Since 2.6 -- Function: gtk-menu-set-monitor (self `') (monitor_num `int') -- Method: set-monitor Informs GTK+ on which monitor a menu should be popped up. See `gdk-screen-get-monitor-geometry'. This function should be called from a `' if the menu should not appear on the same monitor as the pointer. This information can't be reliably inferred from the coordinates returned by a `', since, for very long menus, these coordinates may extend beyond the monitor boundaries or even the screen boundaries. MENU a `' MONITOR-NUM the number of the monitor on which the menu should be popped up Since 2.4  File: guile-gnome-gtk.info, Node: GtkMenuBar, Next: GtkMenuItem, Prev: GtkMenu, Up: Top 57 GtkMenuBar ************* A subclass widget for which holds widgets 57.1 Overview ============= The `' is a subclass of `' which contains one to many `'. The result is a standard menu bar which can hold many menu items. `' allows for a shadow type to be set for aesthetic purposes. The shadow types are defined in the `' function. 57.2 Usage ========== -- Class: Derives from `'. This class defines the following slots: `pack-direction' The pack direction of the menubar `child-pack-direction' The child pack direction of the menubar -- Function: gtk-menu-bar-new => (ret `') Creates the new `' RET the `' -- Function: gtk-menu-bar-set-pack-direction (self `') (pack_dir `') -- Method: set-pack-direction Sets how items should be packed inside a menubar. MENUBAR a `'. PACK-DIR a new `'. Since 2.8 -- Function: gtk-menu-bar-get-pack-direction (self `') => (ret `') -- Method: get-pack-direction Retrieves the current pack direction of the menubar. See `gtk-menu-bar-set-pack-direction'. MENUBAR a `' RET the pack direction Since 2.8  File: guile-gnome-gtk.info, Node: GtkMenuItem, Next: GtkMenuShell, Prev: GtkMenuBar, Up: Top 58 GtkMenuItem ************** The widget used for item in menus 58.1 Overview ============= The `' widget and the derived widgets are the only valid childs for menus. Their function is to correctly handle highlighting, alignment, events and submenus. As it derives from `' it can hold any valid child widget, altough only a few are really useful. 58.2 Usage ========== -- Class: Derives from `'. This class defines the following slots: `submenu' The submenu attached to the menu item, or NULL if it has none -- Signal on : activate Emitted when the item is activated. -- Signal on : activate-item Emitted when the item is activated, but also if the menu item has a submenu. For normal applications, the relevant signal is "activate". -- Signal on : toggle-size-request (arg0 `') -- Signal on : toggle-size-allocate (arg0 `') -- Function: gtk-menu-item-new => (ret `') Creates a new `'. RET the newly created `' -- Function: gtk-menu-item-new-with-label (label `mchars') => (ret `') Creates a new `' whose child is a `'. LABEL the text for the label RET the newly created `' -- Function: gtk-menu-item-new-with-mnemonic (label `mchars') => (ret `') Creates a new `' containing a label. The label will be created using `gtk-label-new-with-mnemonic', so underscores in LABEL indicate the mnemonic for the menu item. LABEL The text of the button, with an underscore in front of the mnemonic character RET a new `' -- Function: gtk-menu-item-set-right-justified (self `') (right_justified `bool') -- Method: set-right-justified Sets whether the menu item appears justified at the right side of a menu bar. This was traditionally done for "Help" menu items, but is now considered a bad idea. (If the widget layout is reversed for a right-to-left language like Hebrew or Arabic, right-justified-menu-items appear at the left.) MENU-ITEM a `'. RIGHT-JUSTIFIED if ``#t'' the menu item will appear at the far right if added to a menu bar. -- Function: gtk-menu-item-set-submenu (self `') (submenu `') -- Method: set-submenu Sets the widget submenu, or changes it. MENU-ITEM the menu item widget SUBMENU the submenu -- Function: gtk-menu-item-set-accel-path (self `') (accel_path `mchars') -- Method: set-accel-path Set the accelerator path on MENU-ITEM, through which runtime changes of the menu item's accelerator caused by the user can be identified and saved to persistant storage (see `gtk-accel-map-save' on this). To setup a default accelerator for this menu item, call `gtk-accel-map-add-entry' with the same ACCEL-PATH. See also `gtk-accel-map-add-entry' on the specifics of accelerator paths, and `gtk-menu-set-accel-path' for a more convenient variant of this function. This function is basically a convenience wrapper that handles calling `gtk-widget-set-accel-path' with the appropriate accelerator group for the menu item. Note that you do need to set an accelerator on the parent menu with `gtk-menu-set-accel-group' for this to work. MENU-ITEM a valid `' ACCEL-PATH accelerator path, corresponding to this menu item's functionality, or ``#f'' to unset the current path. -- Function: gtk-menu-item-remove-submenu (self `') -- Method: remove-submenu Removes the widget's submenu. MENU-ITEM the menu item widget -- Function: gtk-menu-item-select (self `') -- Method: select Emits the "select" signal on the given item. Behaves exactly like `'. MENU-ITEM the menu item -- Function: gtk-menu-item-deselect (self `') -- Method: deselect Emits the "deselect" signal on the given item. Behaves exactly like `'. MENU-ITEM the menu item -- Function: gtk-menu-item-activate (self `') -- Method: activate Emits the "activate" signal on the given item MENU-ITEM the menu item -- Function: gtk-menu-item-toggle-size-request (self `') => (requisition `int') -- Method: toggle-size-request Emits the "toggle_size_request" signal on the given item. MENU-ITEM the menu item REQUISITION the requisition to use as signal data. -- Function: gtk-menu-item-toggle-size-allocate (self `') (allocation `int') -- Method: toggle-size-allocate Emits the "toggle_size_allocate" signal on the given item. MENU-ITEM the menu item. ALLOCATION the allocation to use as signal data. -- Function: gtk-menu-item-get-right-justified (self `') => (ret `bool') -- Method: get-right-justified Gets whether the menu item appears justified at the right side of the menu bar. MENU-ITEM a `' RET ``#t'' if the menu item will appear at the far right if added to a menu bar. -- Function: gtk-menu-item-get-submenu (self `') => (ret `') -- Method: get-submenu Gets the submenu underneath this menu item, if any. See `gtk-menu-item-set-submenu'. MENU-ITEM a `' RET submenu for this menu item, or ``#f'' if none.  File: guile-gnome-gtk.info, Node: GtkMenuShell, Next: GtkImageMenuItem, Prev: GtkMenuItem, Up: Top 59 GtkMenuShell *************** A base class for menu objects 59.1 Overview ============= A `' is the abstract base class used to derive the `' and `' subclasses. A `' is a container of `' objects arranged in a list which can be navigated, selected, and activated by the user to perform application functions. A `' can have a submenu associated with it, allowing for nested hierarchical menus. 59.2 Usage ========== -- Class: Derives from `'. This class defines the following slots: `take-focus' A boolean that determines whether the menu grabs the keyboard focus -- Signal on : deactivate This signal is emitted when a menu shell is deactivated. -- Signal on : selection-done This signal is emitted when a selection has been completed within a menu shell. -- Signal on : move-current (arg0 `') An action signal which moves the current menu item in the direction specified by DIRECTION. -- Signal on : activate-current (arg0 `') An action signal that activates the current menu item within the menu shell. -- Signal on : cancel An action signal which cancels the selection within the menu shell. Causes the GtkMenuShell::selection-done signal to be emitted. -- Signal on : cycle-focus (arg0 `') -- Signal on : move-selected (arg0 `') => `' undocumented -- Function: gtk-menu-shell-append (self `') (child `') -- Method: append Adds a new `' to the end of the menu shell's item list. MENU-SHELL a `'. CHILD The `' to add. -- Function: gtk-menu-shell-prepend (self `') (child `') -- Method: prepend Adds a new `' to the beginning of the menu shell's item list. MENU-SHELL a `'. CHILD The `' to add. -- Function: gtk-menu-shell-insert (self `') (child `') (position `int') -- Method: insert Adds a new `' to the menu shell's item list at the position indicated by POSITION. MENU-SHELL a `'. CHILD The `' to add. POSITION The position in the item list where CHILD is added. Positions are numbered from 0 to n-1. -- Function: gtk-menu-shell-deactivate (self `') -- Method: deactivate Deactivates the menu shell. Typically this results in the menu shell being erased from the screen. MENU-SHELL a `'. -- Function: gtk-menu-shell-select-item (self `') (menu_item `') -- Method: select-item Selects the menu item from the menu shell. MENU-SHELL a `'. MENU-ITEM The `' to select. -- Function: gtk-menu-shell-select-first (self `') (search_sensitive `bool') -- Method: select-first Select the first visible or selectable child of the menu shell; don't select tearoff items unless the only item is a tearoff item. MENU-SHELL a `' SEARCH-SENSITIVE if ``#t'', search for the first selectable menu item, otherwise select nothing if the first item isn't sensitive. This should be ``#f'' if the menu is being popped up initially. Since 2.2 -- Function: gtk-menu-shell-deselect (self `') -- Method: deselect Deselects the currently selected item from the menu shell, if any. MENU-SHELL a `'. -- Function: gtk-menu-shell-activate-item (self `') (menu_item `') (force_deactivate `bool') -- Method: activate-item Activates the menu item within the menu shell. MENU-SHELL a `'. MENU-ITEM The `' to activate. FORCE-DEACTIVATE If TRUE, force the deactivation of the menu shell after the menu item is activated. -- Function: gtk-menu-shell-cancel (self `') -- Method: cancel Cancels the selection within the menu shell. MENU-SHELL a `' Since 2.4 -- Function: gtk-menu-shell-set-take-focus (self `') (take_focus `bool') -- Method: set-take-focus If TAKE-FOCUS is ``#t'' (the default) the menu shell will take the keyboard focus so that it will receive all keyboard events which is needed to enable keyboard navigation in menus. Setting TAKE-FOCUS to ``#f'' is useful only for special applications like virtual keyboard implementations which should not take keyboard focus. The TAKE-FOCUS state of a menu or menu bar is automatically propagated to submenus whenever a submenu is popped up, so you don't have to worry about recursively setting it for your entire menu hierarchy. Only when programmatically picking a submenu and popping it up manually, the TAKE-FOCUS property of the submenu needs to be set explicitely. Note that setting it to ``#f'' has side-effects: If the focus is in some other app, it keeps the focus and keynav in the menu doesn't work. Consequently, keynav on the menu will only work if the focus is on some toplevel owned by the onscreen keyboard. To avoid confusing the user, menus with TAKE-FOCUS set to ``#f'' should not display mnemonics or accelerators, since it cannot be guaranteed that they will work. See also `gdk-keyboard-grab' MENU-SHELL a `' TAKE-FOCUS ``#t'' if the menu shell should take the keyboard focus on popup. Since 2.8 -- Function: gtk-menu-shell-get-take-focus (self `') => (ret `bool') -- Method: get-take-focus Returns ``#t'' if the menu shell will take the keyboard focus on popup. MENU-SHELL a `' RET ``#t'' if the menu shell will take the keyboard focus on popup. Since 2.8  File: guile-gnome-gtk.info, Node: GtkImageMenuItem, Next: GtkRadioMenuItem, Prev: GtkMenuShell, Up: Top 60 GtkImageMenuItem ******************* A menu item with an icon 60.1 Overview ============= A GtkImageMenuItem is a menu item which has an icon next to the text label. Note that the user can disable display of menu icons, so make sure to still fill in the text label. 60.2 Usage ========== -- Class: Derives from `'. This class defines the following slots: `image' Child widget to appear next to the menu text -- Function: gtk-image-menu-item-set-image (self `') (image `') -- Method: set-image Sets the image of IMAGE-MENU-ITEM to the given widget. Note that it depends on the show-menu-images setting whether the image will be displayed or not. IMAGE-MENU-ITEM a `'. IMAGE a widget to set as the image for the menu item. -- Function: gtk-image-menu-item-get-image (self `') => (ret `') -- Method: get-image Gets the widget that is currently set as the image of IMAGE-MENU-ITEM. See `gtk-image-menu-item-set-image'. IMAGE-MENU-ITEM a `'. RET the widget set as image of IMAGE-MENU-ITEM. -- Function: gtk-image-menu-item-new => (ret `') Creates a new `' with an empty label. RET a new `'. -- Function: gtk-image-menu-item-new-from-stock (stock_id `mchars') (accel_group `') => (ret `') Creates a new `' containing the image and text from a stock item. Some stock ids have preprocessor macros like `' and `'. If you want this menu item to have changeable accelerators, then pass in ``#f'' for accel_group. Next call `gtk-menu-item-set-accel-path' with an appropriate path for the menu item, use `gtk-stock-lookup' to look up the standard accelerator for the stock item, and if one is found, call `gtk-accel-map-add-entry' to register it. STOCK-ID the name of the stock item. ACCEL-GROUP the `' to add the menu items accelerator to, or ``#f''. RET a new `'. -- Function: gtk-image-menu-item-new-with-label (label `mchars') => (ret `') Creates a new `' containing a label. LABEL the text of the menu item. RET a new `'.  File: guile-gnome-gtk.info, Node: GtkRadioMenuItem, Next: GtkCheckMenuItem, Prev: GtkImageMenuItem, Up: Top 61 GtkRadioMenuItem ******************* A choice from multiple check menu items 61.1 Overview ============= A radio menu item is a check menu item that belongs to a group. At each instant exactly one of the radio menu items from a group is selected. The group list does not need to be freed, as each `' will remove itself and its list item when it is destroyed. The correct way to create a group of radio menu items is approximatively this: GSList *group = NULL; GtkWidget *item; gint i; for (i = 0; i < 5; i++) { item = gtk_radio_menu_item_new_with_label (group, "This is an example"); group = gtk_radio_menu_item_get_group (GTK_RADIO_MENU_ITEM (item)); if (i == 1) gtk_check_menu_item_set_active (GTK_CHECK_MENU_ITEM (item), TRUE); } 61.2 Usage ========== -- Class: Derives from `'. This class defines the following slots: `group' The radio menu item whose group this widget belongs to. -- Signal on : group-changed -- Function: gtk-radio-menu-item-new (group `') => (ret `') Creates a new `'. GROUP the group to which the radio menu item is to be attached RET a new `' -- Function: gtk-radio-menu-item-new-with-label (group `') (label `mchars') => (ret `') Creates a new `' whose child is a simple `'. GROUP the group to which the radio menu item is to be attached LABEL the text for the label RET a new `' -- Function: gtk-radio-menu-item-new-from-widget (group `') => (ret `') Creates a new `' adding it to the same group as GROUP. GROUP An existing `' RET The new `' Since 2.4 -- Function: gtk-radio-menu-item-set-group (self `') (group `') -- Method: set-group Sets the group of a radio menu item, or changes it. RADIO-MENU-ITEM a `'. GROUP the new group. -- Function: gtk-radio-menu-item-get-group (self `') => (ret `') -- Method: get-group Returns the group to which the radio menu item belongs, as a `' of `'. The list belongs to GTK+ and should not be freed. RADIO-MENU-ITEM a `'. RET the group of RADIO-MENU-ITEM.  File: guile-gnome-gtk.info, Node: GtkCheckMenuItem, Next: GtkSeparatorMenuItem, Prev: GtkRadioMenuItem, Up: Top 62 GtkCheckMenuItem ******************* A menu item with a check box 62.1 Overview ============= A `' is a menu item that maintains the state of a boolean value in addition to a `''s usual role in activating application code. A check box indicating the state of the boolean value is displayed at the left side of the `'. Activating the `' toggles the value. 62.2 Usage ========== -- Class: Derives from `'. This class defines the following slots: `active' Whether the menu item is checked `inconsistent' Whether to display an "inconsistent" state `draw-as-radio' Whether the menu item looks like a radio menu item -- Signal on : toggled This signal is emitted when the state of the check box is changed. A signal handler can examine the `' struct to discover the new state. -- Function: gtk-check-menu-item-new => (ret `') Creates a new `'. RET a new `'. -- Function: gtk-check-menu-item-new-with-label (label `mchars') => (ret `') Creates a new `' with a label. LABEL the string to use for the label. RET a new `'. -- Function: gtk-check-menu-item-get-active (self `') => (ret `bool') -- Method: get-active Returns whether the check menu item is active. See `gtk-check-menu-item-set-active'. CHECK-MENU-ITEM a `' RET ``#t'' if the menu item is checked. -- Function: gtk-check-menu-item-set-active (self `') (is_active `bool') -- Method: set-active Sets the active state of the menu item's check box. CHECK-MENU-ITEM a `'. IS-ACTIVE boolean value indicating whether the check box is active. -- Function: gtk-check-menu-item-toggled (self `') -- Method: toggled Emits the GtkCheckMenuItem::toggled signal. CHECK-MENU-ITEM a `'.  File: guile-gnome-gtk.info, Node: GtkSeparatorMenuItem, Next: GtkTearoffMenuItem, Prev: GtkCheckMenuItem, Up: Top 63 GtkSeparatorMenuItem *********************** A separator used in menus 63.1 Overview ============= The `' is a separator used to group items within a menu. It displays a horizontal line with a shadow to make it appear sunken into the interface. 63.2 Usage ========== -- Class: Derives from `'. This class defines no direct slots. -- Function: gtk-separator-menu-item-new => (ret `') Creates a new `'. RET a new `'. guile-gnome-platform-2.16.2/gtk/doc/gtk/section-gtktreemodelfilter.xml.texi0000644000175000017500000000202111670374303027332 0ustar00wingowingo00000000000000 @c %start of fragment @node GtkTreeModelFilter @chapter GtkTreeModelFilter A GtkTreeModel which hides parts of an underlying tree model @section Overview A @code{} is a tree model which wraps another tree model, and can do the following things: Filter specific rows, based on data from a "visible column", a column storing booleans indicating whether the row should be filtered or not, or based on the return value of a "visible function", which gets a model, iter and user_data and returns a boolean indicating whether the row should be filtered or not. Modify the "appearance" of the model, using a modify function. This is extremely powerful and allows for just changing some values and also for creating a completely different model based on the given child model. Set a different root node, also known as a "virtual root". You can pass in a @code{} indicating the root node for the filter at construction time. @section Usage @include defuns-gtktreemodelfilter.xml.texi @c %end of fragment guile-gnome-platform-2.16.2/gtk/doc/gtk/defuns-gtkexpander.xml.texi0000644000175000017500000001530411670374302025601 0ustar00wingowingo00000000000000 @c %start of fragment @deftp Class Derives from @code{}. This class defines the following slots: @table @code @item expanded Whether the expander has been opened to reveal the child widget @item label Text of the expander's label @item use-underline If set, an underline in the text indicates the next character should be used for the mnemonic accelerator key @item use-markup The text of the label includes XML markup. See pango_parse_markup() @item spacing Space to put between the label and the child @item label-widget A widget to display in place of the usual expander label @end table @end deftp @defop Signal activate @end defop @deffn Function gtk-expander-new (label@tie{}@code{mchars}) @result{}@tie{} (ret@tie{}@code{}) Creates a new expander using @var{label} as the text of the label. @table @var @item label the text of the label @item ret a new @code{} widget. @end table Since 2.4 @end deffn @deffn Function gtk-expander-new-with-mnemonic (label@tie{}@code{mchars}) @result{}@tie{} (ret@tie{}@code{}) Creates a new expander using @var{label} as the text of the label. If characters in @var{label} are preceded by an underscore, they are underlined. If you need a literal underscore character in a label, use '__' (two underscores). The first underlined character represents a keyboard accelerator called a mnemonic. Pressing Alt and that key activates the button. @table @var @item label the text of the label with an underscore in front of the mnemonic character @item ret a new @code{} widget. @end table Since 2.4 @end deffn @deffn Function gtk-expander-set-expanded (self@tie{}@code{}) (expanded@tie{}@code{bool}) @deffnx Method set-expanded Sets the state of the expander. Set to @samp{@code{#t}}, if you want the child widget to be revealed, and @samp{@code{#f}} if you want the child widget to be hidden. @table @var @item expander a @code{} @item expanded whether the child widget is revealed @end table Since 2.4 @end deffn @deffn Function gtk-expander-get-expanded (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{bool}) @deffnx Method get-expanded Queries a @code{} and returns its current state. Returns @samp{@code{#t}} if the child widget is revealed. See @code{gtk-expander-set-expanded}. @table @var @item expander a @code{} @item ret the current state of the expander. @end table Since 2.4 @end deffn @deffn Function gtk-expander-set-spacing (self@tie{}@code{}) (spacing@tie{}@code{int}) @deffnx Method set-spacing Sets the spacing field of @var{expander}, which is the number of pixels to place between expander and the child. @table @var @item expander a @code{} @item spacing distance between the expander and child in pixels. @end table Since 2.4 @end deffn @deffn Function gtk-expander-get-spacing (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{int}) @deffnx Method get-spacing Gets the value set by @code{gtk-expander-set-spacing}. @table @var @item expander a @code{} @item ret spacing between the expander and child. @end table Since 2.4 @end deffn @deffn Function gtk-expander-set-label (self@tie{}@code{}) (label@tie{}@code{mchars}) @deffnx Method set-label Sets the text of the label of the expander to @var{label}. This will also clear any previously set labels. @table @var @item expander a @code{} @item label a string @end table Since 2.4 @end deffn @deffn Function gtk-expander-get-label (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{mchars}) @deffnx Method get-label Fetches the text from the label of the expander, as set by @code{gtk-expander-set-label}. If the label text has not been set the return value will be @samp{@code{#f}}. This will be the case if you create an empty button with @code{gtk-button-new} to use as a container. @table @var @item expander a @code{} @item ret The text of the label widget. This string is owned by the widget and must not be modified or freed. @end table Since 2.4 @end deffn @deffn Function gtk-expander-set-use-underline (self@tie{}@code{}) (use_underline@tie{}@code{bool}) @deffnx Method set-use-underline If true, an underline in the text of the expander label indicates the next character should be used for the mnemonic accelerator key. @table @var @item expander a @code{} @item use-underline @samp{@code{#t}} if underlines in the text indicate mnemonics @end table Since 2.4 @end deffn @deffn Function gtk-expander-get-use-underline (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{bool}) @deffnx Method get-use-underline Returns whether an embedded underline in the expander label indicates a mnemonic. See @code{gtk-expander-set-use-underline}. @table @var @item expander a @code{} @item ret @samp{@code{#t}} if an embedded underline in the expander label indicates the mnemonic accelerator keys. @end table Since 2.4 @end deffn @deffn Function gtk-expander-set-use-markup (self@tie{}@code{}) (use_markup@tie{}@code{bool}) @deffnx Method set-use-markup Sets whether the text of the label contains markup in Pango's text markup language. See @code{gtk-label-set-markup}. @table @var @item expander a @code{} @item use-markup @samp{@code{#t}} if the label's text should be parsed for markup @end table Since 2.4 @end deffn @deffn Function gtk-expander-get-use-markup (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{bool}) @deffnx Method get-use-markup Returns whether the label's text is interpreted as marked up with the Pango text markup language. See @code{gtk-expander-set-use-markup}. @table @var @item expander a @code{} @item ret @samp{@code{#t}} if the label's text will be parsed for markup @end table Since 2.4 @end deffn @deffn Function gtk-expander-set-label-widget (self@tie{}@code{}) (label_widget@tie{}@code{}) @deffnx Method set-label-widget Set the label widget for the expander. This is the widget that will appear embedded alongside the expander arrow. @table @var @item expander a @code{} @item label-widget the new label widget @end table Since 2.4 @end deffn @deffn Function gtk-expander-get-label-widget (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{}) @deffnx Method get-label-widget Retrieves the label widget for the frame. See @code{gtk-expander-set-label-widget}. @table @var @item expander a @code{} @item ret the label widget, or @samp{@code{#f}} if there is none. @end table Since 2.4 @end deffn @c %end of fragment guile-gnome-platform-2.16.2/gtk/doc/gtk/defuns-gtkaccellabel.xml.texi0000644000175000017500000000540011670374302026036 0ustar00wingowingo00000000000000 @c %start of fragment @deftp Class Derives from @code{}. This class defines the following slots: @table @code @item accel-closure The closure to be monitored for accelerator changes @item accel-widget The widget to be monitored for accelerator changes @end table @end deftp @deffn Function gtk-accel-label-new (string@tie{}@code{mchars}) @result{}@tie{} (ret@tie{}@code{}) Creates a new @code{}. @table @var @item string the label string. Must be non-@samp{@code{#f}}. @item ret a new @code{}. @end table @end deffn @deffn Function gtk-accel-label-set-accel-closure (self@tie{}@code{}) (accel_closure@tie{}@code{}) @deffnx Method set-accel-closure Sets the closure to be monitored by this accelerator label. The closure must be connected to an accelerator group; see @code{gtk-accel-group-connect}. @table @var @item accel-label a @code{} @item accel-closure the closure to monitor for accelerator changes. @end table @end deffn @deffn Function gtk-accel-label-get-accel-widget (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{}) @deffnx Method get-accel-widget Fetches the widget monitored by this accelerator label. See @code{gtk-accel-label-set-accel-widget}. @table @var @item accel-label a @code{} @item ret the object monitored by the accelerator label, or @samp{@code{#f}}. @end table @end deffn @deffn Function gtk-accel-label-set-accel-widget (self@tie{}@code{}) (accel_widget@tie{}@code{}) @deffnx Method set-accel-widget Sets the widget to be monitored by this accelerator label. @table @var @item accel-label a @code{} @item accel-widget the widget to be monitored. @end table @end deffn @deffn Function gtk-accel-label-get-accel-width (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{unsigned-int}) @deffnx Method get-accel-width Returns the width needed to display the accelerator key(s). This is used by menus to align all of the @code{} widgets, and shouldn't be needed by applications. @table @var @item accel-label a @code{}. @item ret the width needed to display the accelerator key(s). @end table @end deffn @deffn Function gtk-accel-label-refetch (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{bool}) @deffnx Method refetch Recreates the string representing the accelerator keys. This should not be needed since the string is automatically updated whenever accelerators are added or removed from the associated widget. @table @var @item accel-label a @code{}. @item ret always returns @samp{@code{#f}}. @end table @end deffn @c %end of fragment guile-gnome-platform-2.16.2/gtk/doc/gtk/section-gtkalignment.xml.texi0000644000175000017500000000155511670374302026134 0ustar00wingowingo00000000000000 @c %start of fragment @node GtkAlignment @chapter GtkAlignment A widget which controls the alignment and size of its child @section Overview The @code{} widget controls the alignment and size of its child widget. It has four settings: xscale, yscale, xalign, and yalign. The scale settings are used to specify how much the child widget should expand to fill the space allocated to the @code{}. The values can range from 0 (meaning the child doesn't expand at all) to 1 (meaning the child expands to fill all of the available space). The align settings are used to place the child widget within the available area. The values range from 0 (top or left) to 1 (bottom or right). Of course, if the scale settings are both set to 1, the alignment settings have no effect. @section Usage @include defuns-gtkalignment.xml.texi @c %end of fragment guile-gnome-platform-2.16.2/gtk/doc/gtk/section-gtkliststore.xml.texi0000644000175000017500000000774511670374302026215 0ustar00wingowingo00000000000000 @c %start of fragment @node GtkListStore @chapter GtkListStore A list-like data structure that can be used with the @section Overview The @code{} object is a list model for use with a @code{} widget. It implements the @code{} interface, and consequentialy, can use all of the methods available there. It also implements the @code{} interface so it can be sorted by the view. Finally, it also implements the tree drag and drop interfaces. The @code{} can accept most GObject types as a column type, though it can't accept all custom types. Internally, it will keep a copy of data passed in (such as a string or a boxed pointer). Columns that accept @code{}s are handled a little differently. The @code{} will keep a reference to the object instead of copying the value. As a result, if the object is modified, it is up to the application writer to call @var{gtk-tree-model-row-changed} to emit the "row_changed" signal. This most commonly affects lists with @code{}s stored. @example enum @{ COLUMN_STRING, COLUMN_INT, COLUMN_BOOLEAN, N_COLUMNS @}; @{ GtkListStore *list_store; GtkTreePath *path; GtkTreeIter iter; gint i; list_store = gtk_list_store_new (N_COLUMNS, G_TYPE_STRING, G_TYPE_INT, G_TYPE_BOOLEAN); for (i = 0; i < 10; i++) @{ gchar *some_data; some_data = get_some_data (i); /* Add a new row to the model */ gtk_list_store_append (list_store, &iter); gtk_list_store_set (list_store, &iter, COLUMN_STRING, some_data, COLUMN_INT, i, COLUMN_BOOLEAN, FALSE, -1); /* As the store will keep a copy of the string internally, we * free some_data. */ g_free (some_data); @} /* Modify a particular row */ path = gtk_tree_path_new_from_string ("4"); gtk_tree_model_get_iter (GTK_TREE_MODEL (list_store), &iter, path); gtk_tree_path_free (path); gtk_list_store_set (list_store, &iter, COLUMN_BOOLEAN, TRUE, -1); @} @end example @section Performance Considerations Internally, the @code{} was implemented with a linked list with a tail pointer prior to GTK+ 2.6. As a result, it was fast at data insertion and deletion, and not fast at random data access. The @code{} sets the @code{} flag, which means that @code{}s can be cached while the row exists. Thus, if access to a particular row is needed often and your code is expected to run on older versions of GTK+, it is worth keeping the iter around. It is important to note that only the methods @var{gtk-list-store-insert-with-values} and @var{gtk-list-store-insert-with-valuesv} are atomic, in the sense that the row is being appended to the store and the values filled in in a single operation with regard to @code{} signaling. In contrast, using e.g. @var{gtk-list-store-append} and then @var{gtk-list-store-set} will first create a row, which triggers the "row_inserted" @code{} signal on @code{}. The row, however, is still empty, and any signal handler connecting to "row_inserted" on this particular store should be prepared for the situation that the row might be empty. This is especially important if you are wrapping the @code{} inside a @code{} and are using a @code{}. Using any of the non-atomic operations to append rows to the @code{} will cause the @code{} to be visited with an empty row first; the function must be prepared for that. @section Usage @include defuns-gtkliststore.xml.texi @c %end of fragment guile-gnome-platform-2.16.2/gtk/doc/gtk/section-gtkcheckbutton.xml.texi0000644000175000017500000000101111670374302026452 0ustar00wingowingo00000000000000 @c %start of fragment @node GtkCheckButton @chapter GtkCheckButton Create widgets with a discrete toggle button @section Overview A @code{} places a discrete @code{} next to a widget, (usually a @code{}). See the section on @code{} widgets for more information about toggle/check buttons. The important signal ('toggled') is also inherited from @code{}. @section Usage @include defuns-gtkcheckbutton.xml.texi @c %end of fragment guile-gnome-platform-2.16.2/gtk/doc/gtk/defuns-gtkeventbox.xml.texi0000644000175000017500000000760411670374302025631 0ustar00wingowingo00000000000000 @c %start of fragment @deftp Class Derives from @code{}. This class defines the following slots: @table @code @item visible-window Whether the event box is visible, as opposed to invisible and only used to trap events. @item above-child Whether the event-trapping window of the eventbox is above the window of the child widget as opposed to below it. @end table @end deftp @deffn Function gtk-event-box-new @result{}@tie{} (ret@tie{}@code{}) Creates a new @code{}. @table @var @item ret a new @code{}. @end table @end deffn @deffn Function gtk-event-box-set-above-child (self@tie{}@code{}) (above_child@tie{}@code{bool}) @deffnx Method set-above-child Set whether the event box window is positioned above the windows of its child, as opposed to below it. If the window is above, all events inside the event box will go to the event box. If the window is below, events in windows of child widgets will first got to that widget, and then to its parents. The default is to keep the window below the child. @table @var @item event-box a @code{} @item above-child @samp{@code{#t}} if the event box window is above the windows of its child @end table Since 2.4 @end deffn @deffn Function gtk-event-box-get-above-child (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{bool}) @deffnx Method get-above-child Returns whether the event box window is above or below the windows of its child. See @code{gtk-event-box-set-above-child} for details. @table @var @item event-box a @code{} @item ret @samp{@code{#t}} if the event box window is above the window of its child. @end table Since 2.4 @end deffn @deffn Function gtk-event-box-set-visible-window (self@tie{}@code{}) (visible_window@tie{}@code{bool}) @deffnx Method set-visible-window Set whether the event box uses a visible or invisible child window. The default is to use visible windows. In an invisible window event box, the window that that the event box creates is a @samp{GDK_INPUT_ONLY} window, which means that it is invisible and only serves to receive events. A visible window event box creates a visible (@samp{GDK_INPUT_OUTPUT}) window that acts as the parent window for all the widgets contained in the event box. You should generally make your event box invisible if you just want to trap events. Creating a visible window may cause artifacts that are visible to the user, especially if the user is using a theme with gradients or pixmaps. The main reason to create a non input-only event box is if you want to set the background to a different color or draw on it. There is one unexpected issue for an invisible event box that has its window below the child. (See @code{gtk-event-box-set-above-child}.) Since the input-only window is not an ancestor window of any windows that descendent widgets of the event box create, events on these windows aren't propagated up by the windowing system, but only by GTK+. The practical effect of this is if an event isn't in the event mask for the descendant window (see @code{gtk-widget-add-events}), it won't be received by the event box. This problem doesn't occur for visible event boxes, because in that case, the event box window is actually the ancestor of the descendant windows, not just at the same place on the screen. @table @var @item event-box a @code{} @item visible-window boolean value @end table Since 2.4 @end deffn @deffn Function gtk-event-box-get-visible-window (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{bool}) @deffnx Method get-visible-window Returns whether the event box has a visible window. See @code{gtk-event-box-set-visible-window} for details. @table @var @item event-box a @code{} @item ret @samp{@code{#t}} if the event box window is visible @end table Since 2.4 @end deffn @c %end of fragment guile-gnome-platform-2.16.2/gtk/doc/gtk/defuns-gtkbbox.xml.texi0000644000175000017500000000510111670374302024717 0ustar00wingowingo00000000000000 @c %start of fragment @deftp Class Derives from @code{}. This class defines the following slots: @table @code @item layout-style How to layout the buttons in the box. Possible values are default, spread, edge, start and end @end table @end deftp @deffn Function gtk-button-box-get-layout (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{}) @deffnx Method get-layout Retrieves the method being used to arrange the buttons in a button box. @table @var @item widget a @code{}. @item ret the method used to layout buttons in @var{widget}. @end table @end deffn @deffn Function gtk-button-box-get-child-secondary (self@tie{}@code{}) (child@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{bool}) @deffnx Method get-child-secondary Returns whether @var{child} should appear in a secondary group of children. @table @var @item widget a @code{} @item child a child of @var{widget} @item ret whether @var{child} should appear in a secondary group of children. @end table Since 2.4 @end deffn @deffn Function gtk-button-box-set-layout (self@tie{}@code{}) (layout_style@tie{}@code{}) @deffnx Method set-layout Changes the way buttons are arranged in their container. @table @var @item widget a @code{}. @item layout-style the new layout style. @end table @end deffn @deffn Function gtk-button-box-set-child-secondary (self@tie{}@code{}) (child@tie{}@code{}) (is_secondary@tie{}@code{bool}) @deffnx Method set-child-secondary Sets whether @var{child} should appear in a secondary group of children. A typical use of a secondary child is the help button in a dialog. This group appears after the other children if the style is @samp{GTK_BUTTONBOX_START}, @samp{GTK_BUTTONBOX_SPREAD} or @samp{GTK_BUTTONBOX_EDGE}, and before the other children if the style is @samp{GTK_BUTTONBOX_END}. For horizontal button boxes, the definition of before/after depends on direction of the widget (see @code{gtk-widget-set-direction}). If the style is @samp{GTK_BUTTONBOX_START} or @samp{GTK_BUTTONBOX_END}, then the secondary children are aligned at the other end of the button box from the main children. For the other styles, they appear immediately next to the main children. @table @var @item widget a @code{} @item child a child of @var{widget} @item is-secondary if @samp{@code{#t}}, the @var{child} appears in a secondary group of the button box. @end table @end deffn @c %end of fragment guile-gnome-platform-2.16.2/gtk/doc/gtk/section-gtklayout.xml.texi0000644000175000017500000000152111670374302025464 0ustar00wingowingo00000000000000 @c %start of fragment @node GtkLayout @chapter GtkLayout Infinite scrollable area containing child widgets and/or custom drawing @section Overview @code{} is similar to @code{} in that it's a "blank slate" and doesn't do anything but paint a blank background by default. It's different in that it supports scrolling natively (you can add it to a @code{}), and it can contain child widgets, since it's a @code{}. However if you're just going to draw, a @code{} is a better choice since it has lower overhead. When handling expose events on a @code{}, you must draw to GTK_LAYOUT (layout)->bin_window, rather than to GTK_WIDGET (layout)->window, as you would for a drawing area. @section Usage @include defuns-gtklayout.xml.texi @c %end of fragment guile-gnome-platform-2.16.2/gtk/doc/gtk/defuns-gtkcellrendererpixbuf.xml.texi0000644000175000017500000000245511670374302027662 0ustar00wingowingo00000000000000 @c %start of fragment @deftp Class Derives from @code{}. This class defines the following slots: @table @code @item pixbuf The pixbuf to render @item pixbuf-expander-open Pixbuf for open expander @item pixbuf-expander-closed Pixbuf for closed expander @item stock-id The stock ID of the stock icon to render @item stock-size The GtkIconSize value that specifies the size of the rendered icon @item stock-detail Render detail to pass to the theme engine @item follow-state Whether the rendered pixbuf should be colorized according to the state @item icon-name The name of the icon from the icon theme @end table @end deftp @deffn Function gtk-cell-renderer-pixbuf-new @result{}@tie{} (ret@tie{}@code{}) Creates a new @code{}. Adjust rendering parameters using object properties. Object properties can be set globally (with @code{g-object-set}). Also, with @code{}, you can bind a property to a value in a @code{}. For example, you can bind the "pixbuf" property on the cell renderer to a pixbuf value in the model, thus rendering a different image in each row of the @code{}. @table @var @item ret the new cell renderer @end table @end deffn @c %end of fragment guile-gnome-platform-2.16.2/gtk/doc/gtk/section-gtktreemodel.xml.texi0000644000175000017500000001507611670374303026142 0ustar00wingowingo00000000000000 @c %start of fragment @node GtkTreeModel @chapter GtkTreeModel The tree interface used by @section Overview The @code{} interface defines a generic tree interface for use by the @code{} widget. It is an abstract interface, and is designed to be usable with any appropriate data structure. The programmer just has to implement this interface on their own data type for it to be viewable by a @code{} widget. The model is represented as a hierarchical tree of strongly-typed, columned data. In other words, the model can be seen as a tree where every node has different values depending on which column is being queried. The type of data found in a column is determined by using the GType system (ie. @code{}, @code{}, @code{}, etc.). The types are homogeneous per column across all nodes. It is important to note that this interface only provides a way of examining a model and observing changes. The implementation of each individual model decides how and if changes are made. In order to make life simpler for programmers who do not need to write their own specialized model, two generic models are provided — the @code{} and the @code{}. To use these, the developer simply pushes data into these models as necessary. These models provide the data structure as well as all appropriate tree interfaces. As a result, implementing drag and drop, sorting, and storing data is trivial. For the vast majority of trees and lists, these two models are sufficient. Models are accessed on a node/column level of granularity. One can query for the value of a model at a certain node and a certain column on that node. There are two structures used to reference a particular node in a model. They are the @code{} and the @code{} Most of the interface consists of operations on a @code{}. Here, is short for A path is essentially a potential node. It is a location on a model that may or may not actually correspond to a node on a specific model. The @code{} struct can be converted into either an array of unsigned integers or a string. The string form is a list of numbers separated by a colon. Each number refers to the offset at that level. Thus, the path refers to the root node and the path refers to the fifth child of the third node. By contrast, a @code{} is a reference to a specific node on a specific model. It is a generic struct with an integer and three generic pointers. These are filled in by the model in a model-specific way. One can convert a path to an iterator by calling @code{gtk-tree-model-get-iter}. These iterators are the primary way of accessing a model and are similar to the iterators used by @code{}. They are generally statically allocated on the stack and only used for a short time. The model interface defines a set of operations using them for navigating the model. It is expected that models fill in the iterator with private data. For example, the @code{} model, which is internally a simple linked list, stores a list node in one of the pointers. The @code{} stores an array and an offset in two of the pointers. Additionally, there is an integer field. This field is generally filled with a unique stamp per model. This stamp is for catching errors resulting from using invalid iterators with a model. The lifecycle of an iterator can be a little confusing at first. Iterators are expected to always be valid for as long as the model is unchanged (and doesn't emit a signal). The model is considered to own all outstanding iterators and nothing needs to be done to free them from the user's point of view. Additionally, some models guarantee that an iterator is valid for as long as the node it refers to is valid (most notably the @code{} and @code{}). Although generally uninteresting, as one always has to allow for the case where iterators do not persist beyond a signal, some very important performance enhancements were made in the sort model. As a result, the @code{} flag was added to indicate this behavior. To help show some common operation of a model, some examples are provided. The first example shows three ways of getting the iter at the location . While the first method shown is easier, the second is much more common, as you often get paths from callbacks. @example /* Three ways of getting the iter pointing to the location */ @{ GtkTreePath *path; GtkTreeIter iter; GtkTreeIter parent_iter; /* get the iterator from a string */ gtk_tree_model_get_iter_from_string (model, &iter, "3:2:5"); /* get the iterator from a path */ path = gtk_tree_path_new_from_string ("3:2:5"); gtk_tree_model_get_iter (model, &iter, path); gtk_tree_path_free (path); /* walk the tree to find the iterator */ gtk_tree_model_iter_nth_child (model, &iter, NULL, 3); parent_iter = iter; gtk_tree_model_iter_nth_child (model, &iter, &parent_iter, 2); parent_iter = iter; gtk_tree_model_iter_nth_child (model, &iter, &parent_iter, 5); @} @end example This second example shows a quick way of iterating through a list and getting a string and an integer from each row. The @code{populate-model} function used below is not shown, as it is specific to the @code{}. For information on how to write such a function, see the @code{} documentation. @example enum @{ STRING_COLUMN, INT_COLUMN, N_COLUMNS @}; @{ GtkTreeModel *list_store; GtkTreeIter iter; gboolean valid; gint row_count = 0; /* make a new list_store */ list_store = gtk_list_store_new (N_COLUMNS, G_TYPE_STRING, G_TYPE_INT); /* Fill the list store with data */ populate_model (list_store); /* Get the first iter in the list */ valid = gtk_tree_model_get_iter_first (list_store, &iter); while (valid) @{ /* Walk through the list, reading each row */ gchar *str_data; gint int_data; /* Make sure you terminate calls to gtk_tree_model_get() * with a '-1' value */ gtk_tree_model_get (list_store, &iter, STRING_COLUMN, &str_data, INT_COLUMN, &int_data, -1); /* Do something with the data */ g_print ("Row %d: (%s,%d)\n", row_count, str_data, int_data); g_free (str_data); row_count ++; valid = gtk_tree_model_iter_next (list_store, &iter); @} @} @end example @section Usage @include defuns-gtktreemodel.xml.texi @c %end of fragment guile-gnome-platform-2.16.2/gtk/doc/gtk/section-gtkactiongroup.xml.texi0000644000175000017500000000231511670374302026503 0ustar00wingowingo00000000000000 @c %start of fragment @node GtkActionGroup @chapter GtkActionGroup A group of actions @section Overview Actions are organised into groups. An action group is essentially a map from names to @code{} objects. All actions that would make sense to use in a particular context should be in a single group. Multiple action groups may be used for a particular user interface. In fact, it is expected that most nontrivial applications will make use of multiple groups. For example, in an application that can edit multiple documents, one group holding global actions (e.g. quit, about, new), and one group per document holding actions that act on that document (eg. save, cut/copy/paste, etc). Each window's menus would be constructed from a combination of two action groups. Accelerators are handled by the GTK+ accelerator map. All actions are assigned an accelerator path (which normally has the form @samp{//}) and a shortcut is associated with this accelerator path. All menuitems and toolitems take on this accelerator path. The GTK+ accelerator map code makes sure that the correct shortcut is displayed next to the menu item. @section Usage @include defuns-gtkactiongroup.xml.texi @c %end of fragment guile-gnome-platform-2.16.2/gtk/doc/gtk/section-gtkrecentmanager.xml.texi0000644000175000017500000000320211670374303026761 0ustar00wingowingo00000000000000 @c %start of fragment @node GtkRecentManager @chapter GtkRecentManager Managing Recently Used Files @section Overview @code{} provides a facility for adding, removing and looking up recently used files. Each recently used file is identified by its URI, and has meta-data associated to it, like the names and command lines of the applications that have registered it, the number of time each application has registered the same file, the mime type of the file and whether the file should be displayed only by the applications that have registered it. The @code{} acts like a database of all the recently used files. You can create new @code{} objects, but it is more efficient to use the standard recent manager for the @code{} so that informations about the recently used files is shared with other people using them. In case the default screen is being used, adding a new recently used file is as simple as: @example GtkRecentManager *manager; manager = gtk_recent_manager_get_default (); gtk_recent_manager_add_item (manager, file_uri); @end example @example GtkRecentManager *manager; GtkRecentInfo *info; GError *error = NULL; manager = gtk_recent_manager_get_default (); info = gtk_recent_manager_lookup_item (manager, file_uri, &error); if (error) @{ g_warning ("Could not find the file: %s", error->message); g_error_free (error); @} else @{ /* Use the info object */ gtk_recent_info_unref (info); @} @end example Recently used files are supported since GTK+ 2.10. @section Usage @include defuns-gtkrecentmanager.xml.texi @c %end of fragment guile-gnome-platform-2.16.2/gtk/doc/gtk/defuns-gtksizegroup.xml.texi0000644000175000017500000000660211670374302026023 0ustar00wingowingo00000000000000 @c %start of fragment @deftp Class Derives from @code{}, @code{}. This class defines the following slots: @table @code @item mode The directions in which the size group affects the requested sizes of its component widgets @item ignore-hidden If TRUE, unmapped widgets are ignored when determining the size of the group @end table @end deftp @deffn Function gtk-size-group-new (mode@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{}) Create a new @code{}. @table @var @item mode the mode for the new size group. @item ret a newly created @code{} @end table @end deffn @deffn Function gtk-size-group-set-mode (self@tie{}@code{}) (mode@tie{}@code{}) @deffnx Method set-mode Sets the @code{} of the size group. The mode of the size group determines whether the widgets in the size group should all have the same horizontal requisition (@samp{GTK_SIZE_GROUP_MODE_HORIZONTAL}) all have the same vertical requisition (@samp{GTK_SIZE_GROUP_MODE_VERTICAL}), or should all have the same requisition in both directions (@samp{GTK_SIZE_GROUP_MODE_BOTH}). @table @var @item size-group a @code{} @item mode the mode to set for the size group. @end table @end deffn @deffn Function gtk-size-group-get-mode (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{}) @deffnx Method get-mode Gets the current mode of the size group. See @code{gtk-size-group-set-mode}. @table @var @item size-group a @code{} @item ret the current mode of the size group. @end table @end deffn @deffn Function gtk-size-group-set-ignore-hidden (self@tie{}@code{}) (ignore_hidden@tie{}@code{bool}) @deffnx Method set-ignore-hidden Sets whether unmapped widgets should be ignored when calculating the size. @table @var @item size-group a @code{} @item ignore-hidden whether unmapped widgets should be ignored when calculating the size @end table Since 2.8 @end deffn @deffn Function gtk-size-group-get-ignore-hidden (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{bool}) @deffnx Method get-ignore-hidden Returns if invisible widgets are ignored when calculating the size. @table @var @item size-group a @code{} @item ret @samp{@code{#t}} if invisible widgets are ignored. @end table Since 2.8 @end deffn @deffn Function gtk-size-group-add-widget (self@tie{}@code{}) (widget@tie{}@code{}) @deffnx Method add-widget Adds a widget to a @code{}. In the future, the requisition of the widget will be determined as the maximum of its requisition and the requisition of the other widgets in the size group. Whether this applies horizontally, vertically, or in both directions depends on the mode of the size group. See @code{gtk-size-group-set-mode}. @table @var @item size-group a @code{} @item widget the @code{} to add @end table @end deffn @deffn Function gtk-size-group-remove-widget (self@tie{}@code{}) (widget@tie{}@code{}) @deffnx Method remove-widget Removes a widget from a @code{}. @table @var @item size-group a @code{} @item widget the @code{} to remove @end table @end deffn @c %end of fragment guile-gnome-platform-2.16.2/gtk/doc/gtk/section-gtkentrycompletion.xml.texi0000644000175000017500000000342711670374302027411 0ustar00wingowingo00000000000000 @c %start of fragment @node GtkEntryCompletion @chapter GtkEntryCompletion Completion functionality for GtkEntry @section Overview @code{} is an auxiliary object to be used in conjunction with @code{} to provide the completion functionality. It implements the @code{} interface, to allow the user to add extra cells to the @code{} with completion matches. "Completion functionality" means that when the user modifies the text in the entry, @code{} checks which rows in the model match the current content of the entry, and displays a list of matches. By default, the matching is done by comparing the entry text case-insensitively against the text column of the model (see @code{gtk-entry-completion-set-text-column}), but this can be overridden with a custom match function (see @code{gtk-entry-completion-set-match-func}). When the user selects a completion, the content of the entry is updated. By default, the content of the entry is replaced by the text column of the model, but this can be overridden by connecting to the ::match-selected signal and updating the entry in the signal handler. Note that you should return @samp{@code{#t}} from the signal handler to suppress the default behaviour. To add completion functionality to an entry, use @code{gtk-entry-set-completion}. In addition to regular completion matches, which will be inserted into the entry when they are selected, @code{} also allows to display "actions" in the popup window. Their appearance is similar to menuitems, to differentiate them clearly from completion strings. When an action is selected, the ::action-activated signal is emitted. @section Usage @include defuns-gtkentrycompletion.xml.texi @c %end of fragment guile-gnome-platform-2.16.2/gtk/doc/gtk/section-gtkvbbox.xml.texi0000644000175000017500000000213611670374303025273 0ustar00wingowingo00000000000000 @c %start of fragment @node GtkVButtonBox @chapter GtkVButtonBox A container for arranging buttons vertically @section Overview A button box should be used to provide a consistent layout of buttons throughout your application. The layout/spacing can be altered by the programmer, or if desired, by the user to alter the 'feel' of a program to a small degree. A @code{} is created with @code{gtk-vbutton-box-new}. Buttons are packed into a button box the same way widgets are added to any other container, using @code{gtk-container-add}. You can also use @code{gtk-box-pack-start} or @code{gtk-box-pack-end}, but for button boxes both these functions work just like @code{gtk-container-add}, ie., they pack the button in a way that depends on the current layout style and on whether the button has had @code{gtk-button-box-set-child-secondary} called on it. The spacing between buttons can be set with @code{gtk-box-set-spacing}. The arrangement and layout of the buttons can be changed with @code{gtk-button-box-set-layout}. @section Usage @include defuns-gtkvbbox.xml.texi @c %end of fragment guile-gnome-platform-2.16.2/gtk/doc/gtk/section-gtkrecentfilter.xml.texi0000644000175000017500000000233511670374303026642 0ustar00wingowingo00000000000000 @c %start of fragment @node GtkRecentFilter @chapter GtkRecentFilter A filter for selecting a subset of recently used files @section Overview A @code{} can be used to restrict the files being shown in a @code{}. Files can be filtered based on their name (with @code{gtk-recent-filter-add-pattern}), on their mime type (with @code{gtk-file-filter-add-mime-type}), on the application that has registered them (with @code{gtk-recent-filter-add-application}), or by a custom filter function (with @code{gtk-recent-filter-add-custom}). Filtering by mime type handles aliasing and subclassing of mime types; e.g. a filter for text/plain also matches a file with mime type application/rtf, since application/rtf is a subclass of text/plain. Note that @code{} allows wildcards for the subtype of a mime type, so you can e.g. filter for image/*. Normally, filters are used by adding them to a @code{}, see @code{gtk-recent-chooser-add-filter}, but it is also possible to manually use a filter on a file with @code{gtk-recent-filter-filter}. Recently used files are supported since GTK+ 2.10. @section Usage @include defuns-gtkrecentfilter.xml.texi @c %end of fragment guile-gnome-platform-2.16.2/gtk/doc/gtk/section-gtktreemodelsort.xml.texi0000644000175000017500000000745411670374303027053 0ustar00wingowingo00000000000000 @c %start of fragment @node GtkTreeModelSort @chapter GtkTreeModelSort A GtkTreeModel which makes an underlying tree model sortable @section Overview The @code{} is a model which implements the @code{} interface. It does not hold any data itself, but rather is created with a child model and proxies its data. It has identical column types to this child model, and the changes in the child are propagated. The primary purpose of this model is to provide a way to sort a different model without modifying it. Note that the sort function used by @code{} is not guaranteed to be stable. The use of this is best demonstrated through an example. In the following sample code we create two @code{} widgets each with a view of the same data. As the model is wrapped here by a @code{}, the two @code{}s can each sort their view of the data without affecting the other. By contrast, if we simply put the same model in each widget, then sorting the first would sort the second. @example @{ GtkTreeView *tree_view1; GtkTreeView *tree_view2; GtkTreeModel *sort_model1; GtkTreeModel *sort_model2; GtkTreeModel *child_model; /* get the child model */ child_model = get_my_model (); /* Create the first tree */ sort_model1 = gtk_tree_model_sort_new_with_model (child_model); tree_view1 = gtk_tree_view_new_with_model (sort_model1); /* Create the second tree */ sort_model2 = gtk_tree_model_sort_new_with_model (child_model); tree_view2 = gtk_tree_view_new_with_model (sort_model2); /* Now we can sort the two models independently */ gtk_tree_sortable_set_sort_column_id (GTK_TREE_SORTABLE (sort_model1), COLUMN_1, GTK_SORT_ASCENDING); gtk_tree_sortable_set_sort_column_id (GTK_TREE_SORTABLE (sort_model2), COLUMN_1, GTK_SORT_DESCENDING); @} @end example To demonstrate how to access the underlying child model from the sort model, the next example will be a callback for the @code{} "changed" signal. In this callback, we get a string from COLUMN_1 of the model. We then modify the string, find the same selected row on the child model, and change the row there. @example void selection_changed (GtkTreeSelection *selection, gpointer data) @{ GtkTreeModel *sort_model = NULL; GtkTreeModel *child_model; GtkTreeIter sort_iter; GtkTreeIter child_iter; char *some_data = NULL; char *modified_data; /* Get the current selected row and the model. */ if (! gtk_tree_selection_get_selected (selection, &sort_model, &sort_iter)) return; /* Look up the current value on the selected row and get a new value * to change it to. */ gtk_tree_model_get (GTK_TREE_MODEL (sort_model), &sort_iter, COLUMN_1, &some_data, -1); modified_data = change_the_data (some_data); g_free (some_data); /* Get an iterator on the child model, instead of the sort model. */ gtk_tree_model_sort_convert_iter_to_child_iter (GTK_TREE_MODEL_SORT (sort_model), &child_iter, &sort_iter); /* Get the child model and change the value of the row. In this * example, the child model is a GtkListStore. It could be any other * type of model, though. */ child_model = gtk_tree_model_sort_get_model (GTK_TREE_MODEL_SORT (sort_model)); gtk_list_store_set (GTK_LIST_STORE (child_model), &child_iter, COLUMN_1, &modified_data, -1); g_free (modified_data); @} @end example @section Usage @include defuns-gtktreemodelsort.xml.texi @c %end of fragment guile-gnome-platform-2.16.2/gtk/doc/gtk/defuns-gtksettings.xml.texi0000644000175000017500000002532611670374302025640 0ustar00wingowingo00000000000000 @c %start of fragment @deftp Class Derives from @code{}. This class defines the following slots: @table @code @item gtk-double-click-time Maximum time allowed between two clicks for them to be considered a double click (in milliseconds) @item gtk-double-click-distance Maximum distance allowed between two clicks for them to be considered a double click (in pixels) @item gtk-cursor-blink Whether the cursor should blink @item gtk-cursor-blink-time Length of the cursor blink cycle, in milliseconds @item gtk-cursor-blink-timeout Time after which the cursor stops blinking, in seconds @item gtk-split-cursor Whether two cursors should be displayed for mixed left-to-right and right-to-left text @item gtk-theme-name Name of theme RC file to load @item gtk-icon-theme-name Name of icon theme to use @item gtk-fallback-icon-theme Name of a icon theme to fall back to @item gtk-key-theme-name Name of key theme RC file to load @item gtk-menu-bar-accel Keybinding to activate the menu bar @item gtk-dnd-drag-threshold Number of pixels the cursor can move before dragging @item gtk-font-name Name of default font to use @item gtk-icon-sizes List of icon sizes (gtk-menu=16,16:gtk-button=20,20... @item gtk-modules List of currently active GTK modules @item gtk-xft-antialias Whether to antialias Xft fonts; 0=no, 1=yes, -1=default @item gtk-xft-hinting Whether to hint Xft fonts; 0=no, 1=yes, -1=default @item gtk-xft-hintstyle What degree of hinting to use; hintnone, hintslight, hintmedium, or hintfull @item gtk-xft-rgba Type of subpixel antialiasing; none, rgb, bgr, vrgb, vbgr @item gtk-xft-dpi Resolution for Xft, in 1024 * dots/inch. -1 to use default value @item gtk-cursor-theme-name Name of the cursor theme to use, or NULL to use the default theme @item gtk-cursor-theme-size Size to use for cursors, or 0 to use the default size @item gtk-alternative-button-order Whether buttons in dialogs should use the alternative button order @item gtk-alternative-sort-arrows Whether the direction of the sort indicators in list and tree views is inverted compared to the default (where down means ascending) @item gtk-show-input-method-menu Whether the context menus of entries and text views should offer to change the input method @item gtk-show-unicode-menu Whether the context menus of entries and text views should offer to insert control characters @item gtk-timeout-initial Starting value for timeouts, when button is pressed @item gtk-timeout-repeat Repeat value for timeouts, when button is pressed @item gtk-timeout-expand Expand value for timeouts, when a widget is expanding a new region @item gtk-color-scheme A palette of named colors for use in themes @item gtk-enable-animations Whether to enable toolkit-wide animations. @item gtk-touchscreen-mode When TRUE, there are no motion notify events delivered on this screen @item gtk-tooltip-timeout Timeout before tooltip is shown @item gtk-tooltip-browse-timeout Timeout before tooltip is shown when browse mode is enabled @item gtk-tooltip-browse-mode-timeout Timeout after which browse mode is disabled @item gtk-keynav-cursor-only When TRUE, there are only cursor keys available to navigate widgets @item gtk-keynav-wrap-around Whether to wrap around when keyboard-navigating widgets @item gtk-error-bell When TRUE, keyboard navigation and other errors will cause a beep @item color-hash A hash table representation of the color scheme. @item gtk-file-chooser-backend Name of the GtkFileChooser backend to use by default @item gtk-print-backends List of the GtkPrintBackend backends to use by default @item gtk-print-preview-command Command to run when displaying a print preview @item gtk-enable-mnemonics Whether labels should have mnemonics @item gtk-enable-accels Whether menu items should have accelerators @item gtk-recent-files-limit Number of recently used files @item gtk-im-module Which IM module should be used by default @item gtk-label-select-on-focus Whether to select the contents of a selectable label when it is focused @item gtk-can-change-accels Whether menu accelerators can be changed by pressing a key over the menu item @item gtk-menu-popup-delay Minimum time the pointer must stay over a menu item before the submenu appear @item gtk-menu-popdown-delay The time before hiding a submenu when the pointer is moving towards the submenu @item gtk-button-images Whether stock icons should be shown in buttons @item gtk-color-palette Palette to use in the color selector @item gtk-entry-select-on-focus Whether to select the contents of an entry when it is focused @item gtk-entry-password-hint-timeout How long to show the last input character in hidden entries @item gtk-menu-images Whether images should be shown in menus @item gtk-menu-bar-popup-delay Delay before the submenus of a menu bar appear @item gtk-scrolled-window-placement Where the contents of scrolled windows are located with respect to the scrollbars, if not overridden by the scrolled window's own placement. @end table @end deftp @deffn Function gtk-settings-get-default @result{}@tie{} (ret@tie{}@code{}) Gets the @code{} object for the default GDK screen, creating it if necessary. See @code{gtk-settings-get-for-screen}. @table @var @item ret a @code{} object. If there is no default screen, then returns @samp{@code{#f}}. @end table @end deffn @deffn Function gtk-settings-get-for-screen (screen@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{}) Gets the @code{} object for @var{screen}, creating it if necessary. @table @var @item screen a @code{}. @item ret a @code{} object. @end table Since 2.2 @end deffn @deffn Function gtk-settings-install-property (pspec@tie{}@code{}) @table @var @item pspec @end table @end deffn @deffn Function gtk-rc-property-parse-color (pspec@tie{}@code{}) (gstring@tie{}@code{}) (property_value@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{bool}) A @code{} for use with @code{gtk-settings-install-property-parser} or @code{gtk-widget-class-install-style-property-parser} which parses a color given either by its name or in the form @samp{@{ red, green, blue @}} where @samp{red}, @samp{green} and @samp{blue} are integers between 0 and 65535 or floating-point numbers between 0 and 1. @table @var @item pspec a @code{} @item gstring the @code{} to be parsed @item property-value a @code{} which must hold @code{} values. @item ret @samp{@code{#t}} if @var{gstring} could be parsed and @var{property-value} has been set to the resulting @code{}. @end table @end deffn @deffn Function gtk-rc-property-parse-enum (pspec@tie{}@code{}) (gstring@tie{}@code{}) (property_value@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{bool}) A @code{} for use with @code{gtk-settings-install-property-parser} or @code{gtk-widget-class-install-style-property-parser} which parses a single enumeration value. The enumeration value can be specified by its name, its nickname or its numeric value. For consistency with flags parsing, the value may be surrounded by parentheses. @table @var @item pspec a @code{} @item gstring the @code{} to be parsed @item property-value a @code{} which must hold enum values. @item ret @samp{@code{#t}} if @var{gstring} could be parsed and @var{property-value} has been set to the resulting @code{}. @end table @end deffn @deffn Function gtk-rc-property-parse-flags (pspec@tie{}@code{}) (gstring@tie{}@code{}) (property_value@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{bool}) A @code{} for use with @code{gtk-settings-install-property-parser} or @code{gtk-widget-class-install-style-property-parser} which parses flags. Flags can be specified by their name, their nickname or numerically. Multiple flags can be specified in the form @samp{"( flag1 | flag2 | ... )"}. @table @var @item pspec a @code{} @item gstring the @code{} to be parsed @item property-value a @code{} which must hold flags values. @item ret @samp{@code{#t}} if @var{gstring} could be parsed and @var{property-value} has been set to the resulting flags value. @end table @end deffn @deffn Function gtk-rc-property-parse-requisition (pspec@tie{}@code{}) (gstring@tie{}@code{}) (property_value@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{bool}) A @code{} for use with @code{gtk-settings-install-property-parser} or @code{gtk-widget-class-install-style-property-parser} which parses a requisition in the form @samp{"@{ width, height @}"} for integers @samp{width} and @samp{height}. @table @var @item pspec a @code{} @item gstring the @code{} to be parsed @item property-value a @code{} which must hold boxed values. @item ret @samp{@code{#t}} if @var{gstring} could be parsed and @var{property-value} has been set to the resulting @code{}. @end table @end deffn @deffn Function gtk-rc-property-parse-border (pspec@tie{}@code{}) (gstring@tie{}@code{}) (property_value@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{bool}) A @code{} for use with @code{gtk-settings-install-property-parser} or @code{gtk-widget-class-install-style-property-parser} which parses borders in the form @samp{"@{ left, right, top, bottom @}"} for integers @samp{left}, @samp{right}, @samp{top} and @samp{bottom}. @table @var @item pspec a @code{} @item gstring the @code{} to be parsed @item property-value a @code{} which must hold boxed values. @item ret @samp{@code{#t}} if @var{gstring} could be parsed and @var{property-value} has been set to the resulting @code{}. @end table @end deffn @deffn Function gtk-settings-set-string-property (self@tie{}@code{}) (name@tie{}@code{mchars}) (v_string@tie{}@code{mchars}) (origin@tie{}@code{mchars}) @deffnx Method set-string-property @table @var @item settings @item name @item v-string @item origin @end table @end deffn @deffn Function gtk-settings-set-long-property (self@tie{}@code{}) (name@tie{}@code{mchars}) (v_long@tie{}@code{long}) (origin@tie{}@code{mchars}) @deffnx Method set-long-property @table @var @item settings @item name @item v-long @item origin @end table @end deffn @deffn Function gtk-settings-set-double-property (self@tie{}@code{}) (name@tie{}@code{mchars}) (v_double@tie{}@code{double}) (origin@tie{}@code{mchars}) @deffnx Method set-double-property @table @var @item settings @item name @item v-double @item origin @end table @end deffn @c %end of fragment guile-gnome-platform-2.16.2/gtk/doc/gtk/section-gtkcellrendererprogress.xml.texi0000644000175000017500000000071011670374302030401 0ustar00wingowingo00000000000000 @c %start of fragment @node GtkCellRendererProgress @chapter GtkCellRendererProgress Renders numbers as progress bars @section Overview @code{} renders a numeric value as a progress par in a cell. Additionally, it can display a text on top of the progress bar. The @code{} cell renderer was added in GTK+ 2.6. @section Usage @include defuns-gtkcellrendererprogress.xml.texi @c %end of fragment guile-gnome-platform-2.16.2/gtk/doc/gtk/section-gtkimcontextsimple.xml.texi0000644000175000017500000000035511670374302027377 0ustar00wingowingo00000000000000 @c %start of fragment @node GtkIMContextSimple @chapter GtkIMContextSimple An input method context supporting table-based input methods @section Overview @section Usage @include defuns-gtkimcontextsimple.xml.texi @c %end of fragment guile-gnome-platform-2.16.2/gtk/doc/gtk/defuns-gtktogglebutton.xml.texi0000644000175000017500000001237411670374302026514 0ustar00wingowingo00000000000000 @c %start of fragment @deftp Class Derives from @code{}. This class defines the following slots: @table @code @item active If the toggle button should be pressed in or not @item inconsistent If the toggle button is in an "in between" state @item draw-indicator If the toggle part of the button is displayed @end table @end deftp @defop Signal toggled Should be connected if you wish to perform an action whenever the @code{}'s state is changed. @end defop @deffn Function gtk-toggle-button-new @result{}@tie{} (ret@tie{}@code{}) Creates a new toggle button. A widget should be packed into the button, as in @code{gtk-button-new}. @table @var @item ret a new toggle button. @end table @end deffn @deffn Function gtk-toggle-button-new-with-label (label@tie{}@code{mchars}) @result{}@tie{} (ret@tie{}@code{}) Creates a new toggle button with a text label. @table @var @item label a string containing the message to be placed in the toggle button. @item ret a new toggle button. @end table @end deffn @deffn Function gtk-toggle-button-new-with-mnemonic (label@tie{}@code{mchars}) @result{}@tie{} (ret@tie{}@code{}) Creates a new @code{} containing a label. The label will be created using @code{gtk-label-new-with-mnemonic}, so underscores in @var{label} indicate the mnemonic for the button. @table @var @item label the text of the button, with an underscore in front of the mnemonic character @item ret a new @code{} @end table @end deffn @deffn Function gtk-toggle-button-set-mode (self@tie{}@code{}) (draw_indicator@tie{}@code{bool}) @deffnx Method set-mode Sets whether the button is displayed as a separate indicator and label. You can call this function on a checkbutton or a radiobutton with @var{draw-indicator} = @samp{@code{#f}} to make the button look like a normal button This function only affects instances of classes like @code{} and @code{} that derive from @code{}, not instances of @code{} itself. @table @var @item toggle-button a @code{} @item draw-indicator if @samp{@code{#t}}, draw the button as a separate indicator and label; if @samp{@code{#f}}, draw the button like a normal button @end table @end deffn @deffn Function gtk-toggle-button-get-mode (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{bool}) @deffnx Method get-mode Retrieves whether the button is displayed as a separate indicator and label. See @code{gtk-toggle-button-set-mode}. @table @var @item toggle-button a @code{} @item ret @samp{@code{#t}} if the togglebutton is drawn as a separate indicator and label. @end table @end deffn @deffn Function gtk-toggle-button-toggled (self@tie{}@code{}) @deffnx Method toggled Emits the toggled signal on the @code{}. There is no good reason for an application ever to call this function. @table @var @item toggle-button a @code{}. @end table @end deffn @deffn Function gtk-toggle-button-get-active (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{bool}) @deffnx Method get-active Queries a @code{} and returns its current state. Returns @samp{@code{#t}} if the toggle button is pressed in and @samp{@code{#f}} if it is raised. @table @var @item toggle-button a @code{}. @item ret a @code{} value. @end table @end deffn @deffn Function gtk-toggle-button-set-active (self@tie{}@code{}) (is_active@tie{}@code{bool}) @deffnx Method set-active Sets the status of the toggle button. Set to @samp{@code{#t}} if you want the GtkToggleButton to be 'pressed in', and @samp{@code{#f}} to raise it. This action causes the toggled signal to be emitted. @table @var @item toggle-button a @code{}. @item is-active @samp{@code{#t}} or @samp{@code{#f}}. @end table @end deffn @deffn Function gtk-toggle-button-get-inconsistent (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{bool}) @deffnx Method get-inconsistent Gets the value set by @code{gtk-toggle-button-set-inconsistent}. @table @var @item toggle-button a @code{} @item ret @samp{@code{#t}} if the button is displayed as inconsistent, @samp{@code{#f}} otherwise @end table @end deffn @deffn Function gtk-toggle-button-set-inconsistent (self@tie{}@code{}) (setting@tie{}@code{bool}) @deffnx Method set-inconsistent If the user has selected a range of elements (such as some text or spreadsheet cells) that are affected by a toggle button, and the current values in that range are inconsistent, you may want to display the toggle in an "in between" state. This function turns on "in between" display. Normally you would turn off the inconsistent state again if the user toggles the toggle button. This has to be done manually, @code{gtk-toggle-button-set-inconsistent} only affects visual appearance, it doesn't affect the semantics of the button. @table @var @item toggle-button a @code{} @item setting @samp{@code{#t}} if state is inconsistent @end table @end deffn @c %end of fragment guile-gnome-platform-2.16.2/gtk/doc/gtk/section-gtkfeatures.xml.texi0000644000175000017500000000062011670374302025764 0ustar00wingowingo00000000000000 @c %start of fragment @node Version Information @chapter Version Information Variables and functions to check the GTK+ version @section Overview GTK+ provides version information, primarily useful in configure checks for builds that have a configure script. Applications will not typically use the features described here. @section Usage @include defuns-gtkfeatures.xml.texi @c %end of fragment guile-gnome-platform-2.16.2/gtk/doc/gtk/section-gtkinvisible.xml.texi0000644000175000017500000000062611670374302026140 0ustar00wingowingo00000000000000 @c %start of fragment @node GtkInvisible @chapter GtkInvisible A widget which is not displayed @section Overview The @code{} widget is used internally in GTK+, and is probably not very useful for application developers. It is used for reliable pointer grabs and selection handling in the code for drag-and-drop. @section Usage @include defuns-gtkinvisible.xml.texi @c %end of fragment guile-gnome-platform-2.16.2/gtk/doc/gtk/section-gtkrecentchooser.xml.texi0000644000175000017500000000114411670374303027014 0ustar00wingowingo00000000000000 @c %start of fragment @node GtkRecentChooser @chapter GtkRecentChooser Interface implemented by GtkRecentChooserWidget, GtkRecentChooserMenu and GtkRecentChooserDialog @section Overview @code{} is an interface that can be implemented by widgets displaying the list of recently used files. In GTK+, the main objects that implement this interface are @code{}, @code{} and @code{}. Recently used files are supported since GTK+ 2.10. @section Usage @include defuns-gtkrecentchooser.xml.texi @c %end of fragment guile-gnome-platform-2.16.2/gtk/doc/gtk/defuns-gtkaspectframe.xml.texi0000644000175000017500000000404611670374302026266 0ustar00wingowingo00000000000000 @c %start of fragment @deftp Class Derives from @code{}. This class defines the following slots: @table @code @item xalign X alignment of the child @item yalign Y alignment of the child @item ratio Aspect ratio if obey_child is FALSE @item obey-child Force aspect ratio to match that of the frame's child @end table @end deftp @deffn Function gtk-aspect-frame-new (label@tie{}@code{mchars}) (xalign@tie{}@code{float}) (yalign@tie{}@code{float}) (ratio@tie{}@code{float}) (obey_child@tie{}@code{bool}) @result{}@tie{} (ret@tie{}@code{}) Create a new @code{}. @table @var @item label Label text. @item xalign Horizontal alignment of the child within the allocation of the @code{}. This ranges from 0.0 (left aligned) to 1.0 (right aligned) @item yalign Vertical alignment of the child within the allocation of the @code{}. This ranges from 0.0 (left aligned) to 1.0 (right aligned) @item ratio The desired aspect ratio. @item obey-child If @samp{@code{#t}}, @var{ratio} is ignored, and the aspect ratio is taken from the requistion of the child. @item ret the new @code{}. @end table @end deffn @deffn Function gtk-aspect-frame-set (self@tie{}@code{}) (xalign@tie{}@code{float}) (yalign@tie{}@code{float}) (ratio@tie{}@code{float}) (obey_child@tie{}@code{bool}) @deffnx Method set Set parameters for an existing @code{}. @table @var @item aspect-frame a @code{} @item xalign Horizontal alignment of the child within the allocation of the @code{}. This ranges from 0.0 (left aligned) to 1.0 (right aligned) @item yalign Vertical alignment of the child within the allocation of the @code{}. This ranges from 0.0 (left aligned) to 1.0 (right aligned) @item ratio The desired aspect ratio. @item obey-child If @samp{@code{#t}}, @var{ratio} is ignored, and the aspect ratio is taken from the requistion of the child. @end table @end deffn @c %end of fragment guile-gnome-platform-2.16.2/gtk/doc/gtk/section-gtkpaned.xml.texi0000644000175000017500000000423111670374302025237 0ustar00wingowingo00000000000000 @c %start of fragment @node GtkPaned @chapter GtkPaned Base class for widgets with two adjustable panes @section Overview @code{} is the base class for widgets with two panes, arranged either horizontally (@code{}) or vertically (@code{}). Child widgets are added to the panes of the widget with @code{gtk-paned-pack1} and @code{gtk-paned-pack2}. The division beween the two children is set by default from the size requests of the children, but it can be adjusted by the user. A paned widget draws a separator between the two child widgets and a small handle that the user can drag to adjust the division. It does not draw any relief around the children or around the separator. (The space in which the separator is called the gutter.) Often, it is useful to put each child inside a @code{} with the shadow type set to @samp{GTK_SHADOW_IN} so that the gutter appears as a ridge. Each child has two options that can be set, @var{resize} and @var{shrink}. If @var{resize} is true, then when the @code{} is resized, that child will expand or shrink along with the paned widget. If @var{shrink} is true, then when that child can be made smaller than its requisition by the user. Setting @var{shrink} to @samp{@code{#f}} allows the application to set a minimum size. If @var{resize} is false for both children, then this is treated as if @var{resize} is true for both children. The application can set the position of the slider as if it were set by the user, by calling @code{gtk-paned-set-position}. @example GtkWidget *hpaned = gtk_hpaned_new (); GtkWidget *frame1 = gtk_frame_new (NULL); GtkWidget *frame2 = gtk_frame_new (NULL); gtk_frame_set_shadow_type (GTK_FRAME (frame1), GTK_SHADOW_IN); gtk_frame_set_shadow_type (GTK_FRAME (frame2), GTK_SHADOW_IN); gtk_widget_set_size_request (hpaned, 200 + GTK_PANED (hpaned)->gutter_size, -1); gtk_paned_pack1 (GTK_PANED (hpaned), frame1, TRUE, FALSE); gtk_widget_set_size_request (frame1, 50, -1); gtk_paned_pack2 (GTK_PANED (hpaned), frame2, FALSE, FALSE); gtk_widget_set_size_request (frame2, 50, -1); @end example @section Usage @include defuns-gtkpaned.xml.texi @c %end of fragment guile-gnome-platform-2.16.2/gtk/doc/gtk/defuns-gtktoggleaction.xml.texi0000644000175000017500000000530511670374302026452 0ustar00wingowingo00000000000000 @c %start of fragment @deftp Class Derives from @code{}. This class defines the following slots: @table @code @item draw-as-radio Whether the proxies for this action look like radio action proxies @item active If the toggle action should be active in or not @end table @end deftp @defop Signal toggled @end defop @deffn Function gtk-toggle-action-new (name@tie{}@code{mchars}) (label@tie{}@code{mchars}) (tooltip@tie{}@code{mchars}) (stock_id@tie{}@code{mchars}) @result{}@tie{} (ret@tie{}@code{}) Creates a new @code{} object. To add the action to a @code{} and set the accelerator for the action, call @code{gtk-action-group-add-action-with-accel}. @table @var @item name A unique name for the action @item label The label displayed in menu items and on buttons @item tooltip A tooltip for the action @item stock-id The stock icon to display in widgets representing the action @item ret a new @code{} @end table Since 2.4 @end deffn @deffn Function gtk-toggle-action-toggled (self@tie{}@code{}) @deffnx Method toggled Emits the "toggled" signal on the toggle action. @table @var @item action the action object @end table Since 2.4 @end deffn @deffn Function gtk-toggle-action-set-active (self@tie{}@code{}) (is_active@tie{}@code{bool}) @deffnx Method set-active Sets the checked state on the toggle action. @table @var @item action the action object @item is-active whether the action should be checked or not @end table Since 2.4 @end deffn @deffn Function gtk-toggle-action-get-active (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{bool}) @deffnx Method get-active Returns the checked state of the toggle action. @table @var @item action the action object @item ret the checked state of the toggle action @end table Since 2.4 @end deffn @deffn Function gtk-toggle-action-set-draw-as-radio (self@tie{}@code{}) (draw_as_radio@tie{}@code{bool}) @deffnx Method set-draw-as-radio Sets whether the action should have proxies like a radio action. @table @var @item action the action object @item draw-as-radio whether the action should have proxies like a radio action @end table Since 2.4 @end deffn @deffn Function gtk-toggle-action-get-draw-as-radio (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{bool}) @deffnx Method get-draw-as-radio Returns whether the action should have proxies like a radio action. @table @var @item action the action object @item ret whether the action should have proxies like a radio action. @end table Since 2.4 @end deffn @c %end of fragment guile-gnome-platform-2.16.2/gtk/doc/gtk/defuns-gtkfilechooserdialog.xml.texi0000644000175000017500000000030311670374302027446 0ustar00wingowingo00000000000000 @c %start of fragment @deftp Class Derives from @code{}, @code{}. This class defines no direct slots. @end deftp @c %end of fragment guile-gnome-platform-2.16.2/gtk/doc/gtk/defuns-gtkrecentchooserdialog.xml.texi0000644000175000017500000000030711670374302030013 0ustar00wingowingo00000000000000 @c %start of fragment @deftp Class Derives from @code{}, @code{}. This class defines no direct slots. @end deftp @c %end of fragment guile-gnome-platform-2.16.2/gtk/doc/gtk/section-gtkmisc.xml.texi0000644000175000017500000000134611670374302025107 0ustar00wingowingo00000000000000 @c %start of fragment @node GtkMisc @chapter GtkMisc Base class for widgets with alignments and padding @section Overview The @code{} widget is an abstract widget which is not useful itself, but is used to derive subclasses which have alignment and padding attributes. The horizontal and vertical padding attributes allows extra space to be added around the widget. The horizontal and vertical alignment attributes enable the widget to be positioned within its allocated area. Note that if the widget is added to a container in such a way that it expands automatically to fill its allocated area, the alignment settings will not alter the widgets position. @section Usage @include defuns-gtkmisc.xml.texi @c %end of fragment guile-gnome-platform-2.16.2/gtk/doc/gtk/section-gtktreesortable.xml.texi0000644000175000017500000000063311670374303026646 0ustar00wingowingo00000000000000 @c %start of fragment @node GtkTreeSortable @chapter GtkTreeSortable The interface for sortable models used by GtkTreeView @section Overview @code{} is an interface to be implemented by tree models which support sorting. The @code{} uses the methods provided by this interface to sort the model. @section Usage @include defuns-gtktreesortable.xml.texi @c %end of fragment guile-gnome-platform-2.16.2/gtk/doc/gtk/defuns-gtkimcontextsimple.xml.texi0000644000175000017500000000244611670374302027222 0ustar00wingowingo00000000000000 @c %start of fragment @deftp Class Derives from @code{}. This class defines no direct slots. @end deftp @deffn Function gtk-im-context-simple-new @result{}@tie{} (ret@tie{}@code{}) Creates a new @code{}. @table @var @item ret a new @code{}. @end table @end deffn @deffn Function gtk-im-context-simple-add-table (self@tie{}@code{}) (max_seq_len@tie{}@code{int}) (n_seqs@tie{}@code{int}) @result{}@tie{} (data@tie{}@code{unsigned-int16}) @deffnx Method add-table Adds an additional table to search to the input context. Each row of the table consists of @var{max-seq-len} key symbols followed by two @code{} interpreted as the high and low words of a @code{} value. Tables are searched starting from the last added. The table must be sorted in dictionary order on the numeric value of the key symbol fields. (Values beyond the length of the sequence should be zero.) @table @var @item context-simple A @code{} @item data the table @item max-seq-len Maximum length of a sequence in the table (cannot be greater than @code{}) @item n-seqs number of sequences in the table @end table @end deffn @c %end of fragment guile-gnome-platform-2.16.2/gtk/doc/gtk/section-gtkiconfactory.xml.texi0000644000175000017500000000261211670374302026471 0ustar00wingowingo00000000000000 @c %start of fragment @node Themeable Stock Images @chapter Themeable Stock Images Manipulating stock icons @section Overview Browse the available stock icons in the list of stock IDs found here. You can also use the application for this purpose. An icon factory manages a collection of @code{}; a @code{} manages a set of variants of a particular icon (i.e. a @code{} contains variants for different sizes and widget states). Icons in an icon factory are named by a stock ID, which is a simple string identifying the icon. Each @code{} has a list of @code{} derived from the current theme; those icon factories are consulted first when searching for an icon. If the theme doesn't set a particular icon, GTK+ looks for the icon in a list of default icon factories, maintained by @code{gtk-icon-factory-add-default} and @code{gtk-icon-factory-remove-default}. Applications with icons should add a default icon factory with their icons, which will allow themes to override the icons for the application. To display an icon, always use @code{gtk-style-lookup-icon-set} on the widget that will display the icon, or the convenience function @code{gtk-widget-render-icon}. These functions take the theme into account when looking up the icon to use for a given stock ID. @section Usage @include defuns-gtkiconfactory.xml.texi @c %end of fragment guile-gnome-platform-2.16.2/gtk/doc/gtk/section-gtkimage.xml.texi0000644000175000017500000000625311670374302025240 0ustar00wingowingo00000000000000 @c %start of fragment @node GtkImage @chapter GtkImage A widget displaying an image @section Overview The @code{} widget displays an image. Various kinds of object can be displayed as an image; most typically, you would load a @code{} ("pixel buffer") from a file, and then display that. There's a convenience function to do this, @code{gtk-image-new-from-file}, used as follows: If the file isn't loaded successfully, the image will contain a "broken image" icon similar to that used in many web browsers. If you want to handle errors in loading the file yourself, for example by displaying an error message, then load the image with @code{gdk-pixbuf-new-from-file}, then create the @code{} with @code{gtk-image-new-from-pixbuf}. @example GtkWidget *image; image = gtk_image_new_from_file ("myfile.png"); @end example The image file may contain an animation, if so the @code{} will display an animation (@code{}) instead of a static image. @code{} is a subclass of @code{}, which implies that you can align it (center, left, right) and add padding to it, using @code{} methods. @code{} is a "no window" widget (has no @code{} of its own), so by default does not receive events. If you want to receive events on the image, such as button clicks, place the image inside a @code{}, then connect to the event signals on the event box. @example static gboolean button_press_callback (GtkWidget *event_box, GdkEventButton *event, gpointer data) @{ g_print ("Event box clicked at coordinates %f,%f\n", event->x, event->y); /* Returning TRUE means we handled the event, so the signal * emission should be stopped (don't call any further * callbacks that may be connected). Return FALSE * to continue invoking callbacks. */ return TRUE; @} static GtkWidget* create_image (void) @{ GtkWidget *image; GtkWidget *event_box; image = gtk_image_new_from_file ("myfile.png"); event_box = gtk_event_box_new (); gtk_container_add (GTK_CONTAINER (event_box), image); g_signal_connect (G_OBJECT (event_box), "button_press_event", G_CALLBACK (button_press_callback), image); return image; @} @end example When handling events on the event box, keep in mind that coordinates in the image may be different from event box coordinates due to the alignment and padding settings on the image (see @code{}). The simplest way to solve this is to set the alignment to 0.0 (left/top), and set the padding to zero. Then the origin of the image will be the same as the origin of the event box. Sometimes an application will want to avoid depending on external data files, such as image files. GTK+ comes with a program to avoid this, called . This program allows you to convert an image into a C variable declaration, which can then be loaded into a @code{} using @code{gdk-pixbuf-new-from-inline}. @section Usage @include defuns-gtkimage.xml.texi @c %end of fragment guile-gnome-platform-2.16.2/gtk/doc/gtk/defuns-gtkimmulticontext.xml.texi0000644000175000017500000000060411670374302027055 0ustar00wingowingo00000000000000 @c %start of fragment @deftp Class Derives from @code{}. This class defines no direct slots. @end deftp @deffn Function gtk-im-multicontext-new @result{}@tie{} (ret@tie{}@code{}) Creates a new @code{}. @table @var @item ret a new @code{}. @end table @end deffn @c %end of fragment guile-gnome-platform-2.16.2/gtk/doc/gtk/defuns-gtkmain.xml.texi0000644000175000017500000002115211670374302024715 0ustar00wingowingo00000000000000 @c %start of fragment @deffn Function gtk-disable-setlocale Prevents @code{gtk-init}, @code{gtk-init-check}, @code{gtk-init-with-args} and @code{gtk-parse-args} from automatically calling @samp{setlocale (LC_ALL, "")}. You would want to use this function if you wanted to set the locale for your program to something other than the user's locale, or if you wanted to set different values for different locale categories. Most programs should not need to call this function. @end deffn @deffn Function gtk-get-default-language @result{}@tie{} (ret@tie{}@code{}) Returns the @code{} for the default language currently in effect. (Note that this can change over the life of an application.) The default language is derived from the current locale. It determines, for example, whether GTK+ uses the right-to-left or left-to-right text direction. See @code{-gtk-get-lc-ctype} for notes on behaviour on Windows. @table @var @item ret the default language as a @code{}, must not be freed @end table @end deffn @deffn Function gtk-events-pending @result{}@tie{} (ret@tie{}@code{bool}) Checks if any events are pending. This can be used to update the GUI and invoke timeouts etc. while doing some time intensive computation. @c (title "Updating the GUI during a long computation.") @example /* computation going on */ ... while (gtk_events_pending ()) gtk_main_iteration (); ... /* computation continued */ @end example @table @var @item ret @samp{@code{#t}} if any events are pending, @samp{@code{#f}} otherwise. @end table @end deffn @deffn Function gtk-main Runs the main loop until @code{gtk-main-quit} is called. You can nest calls to @code{gtk-main}. In that case @code{gtk-main-quit} will make the innermost invocation of the main loop return. @end deffn @deffn Function gtk-main-level @result{}@tie{} (ret@tie{}@code{unsigned-int}) Asks for the current nesting level of the main loop. This can be useful when calling @code{gtk-quit-add}. @table @var @item ret the nesting level of the current invocation of the main loop. @end table @end deffn @deffn Function gtk-main-quit Makes the innermost invocation of the main loop return when it regains control. @end deffn @deffn Function gtk-main-iteration @result{}@tie{} (ret@tie{}@code{bool}) Runs a single iteration of the mainloop. If no events are waiting to be processed GTK+ will block until the next event is noticed. If you don't want to block look at @code{gtk-main-iteration-do} or check if any events are pending with @code{gtk-events-pending} first. @table @var @item ret @samp{@code{#t}} if @code{gtk-main-quit} has been called for the innermost mainloop. @end table @end deffn @deffn Function gtk-main-iteration-do (blocking@tie{}@code{bool}) @result{}@tie{} (ret@tie{}@code{bool}) Runs a single iteration of the mainloop. If no events are available either return or block dependent on the value of @var{blocking}. @table @var @item blocking @samp{@code{#t}} if you want GTK+ to block if no events are pending. @item ret @samp{@code{#t}} if @code{gtk-main-quit} has been called for the innermost mainloop. @end table @end deffn @deffn Function gtk-main-do-event (event@tie{}@code{}) Processes a single GDK event. This is public only to allow filtering of events between GDK and GTK+. You will not usually need to call this function directly. While you should not call this function directly, you might want to know how exactly events are handled. So here is what this function does with the event: @enumerate @item @item @item @item @item @end enumerate Compress enter/leave notify events. If the event passed build an enter/leave pair together with the next event (peeked from GDK) both events are thrown away. This is to avoid a backlog of (de-)highlighting widgets crossed by the pointer. Find the widget which got the event. If the widget can't be determined the event is thrown away unless it belongs to a INCR transaction. In that case it is passed to @code{gtk-selection-incr-event}. Then the event is passed on a stack so you can query the currently handled event with @code{gtk-get-current-event}. The event is sent to a widget. If a grab is active all events for widgets that are not in the contained in the grab widget are sent to the latter with a few exceptions: Another point of interest might be that all key events are first passed through the key snooper functions if there are any. Read the description of @code{gtk-key-snooper-install} if you need this feature. @itemize @item @item @item @item @end itemize Deletion and destruction events are still sent to the event widget for obvious reasons. Events which directly relate to the visual representation of the event widget. Leave events are delivered to the event widget if there was an enter event delivered to it before without the paired leave event. Drag events are not redirected because it is unclear what the semantics of that would be. After finishing the delivery the event is popped from the event stack. @table @var @item event An event to process (normally) passed by GDK. @end table @end deffn @deffn Function gtk-true @result{}@tie{} (ret@tie{}@code{bool}) All this function does it to return @samp{@code{#t}}. This can be useful for example if you want to inhibit the deletion of a window. Of course you should not do this as the user expects a reaction from clicking the close icon of the window... @c (title "A persistent window") @example ##include int main (int argc, char **argv) @{ GtkWidget *win, *but; gtk_init( &argc, &argv ); win = gtk_window_new (GTK_WINDOW_TOPLEVEL); g_signal_connect (win, "delete-event", G_CALLBACK (gtk_true), NULL); g_signal_connect (win, "destroy", G_CALLBACK (gtk_main_quit), NULL); but = gtk_button_new_with_label ("Close yourself. I mean it!"); g_signal_connect_swapped (but, "clicked", G_CALLBACK (gtk_object_destroy), win); gtk_container_add (GTK_CONTAINER (win), but); gtk_widget_show_all (win); gtk_main (); return 0; @} @end example @table @var @item ret @samp{@code{#t}} @end table @end deffn @deffn Function gtk-false @result{}@tie{} (ret@tie{}@code{bool}) Analogical to @code{gtk-true} this function does nothing but always returns @samp{@code{#f}}. @table @var @item ret @samp{@code{#f}} @end table @end deffn @deffn Function gtk-grab-add (self@tie{}@code{}) Makes @var{widget} the current grabbed widget. This means that interaction with other widgets in the same application is blocked and mouse as well as keyboard events are delivered to this widget. @table @var @item widget The widget that grabs keyboard and pointer events. @end table @end deffn @deffn Function gtk-grab-get-current @result{}@tie{} (ret@tie{}@code{}) Queries the current grab of the default window group. @table @var @item ret The widget which currently has the grab or @samp{@code{#f}} if no grab is active. @end table @end deffn @deffn Function gtk-grab-remove (self@tie{}@code{}) Removes the grab from the given widget. You have to pair calls to @code{gtk-grab-add} and @code{gtk-grab-remove}. @table @var @item widget The widget which gives up the grab. @end table @end deffn @deffn Function gtk-get-current-event-time @result{}@tie{} (ret@tie{}@code{unsigned-int32}) If there is a current event and it has a timestamp, return that timestamp, otherwise return @samp{GDK_CURRENT_TIME}. @table @var @item ret the timestamp from the current event, or @samp{GDK_CURRENT_TIME}. @end table @end deffn @deffn Function gtk-propagate-event (self@tie{}@code{}) (event@tie{}@code{}) Sends an event to a widget, propagating the event to parent widgets if the event remains unhandled. Events received by GTK+ from GDK normally begin in @code{gtk-main-do-event}. Depending on the type of event, existence of modal dialogs, grabs, etc., the event may be propagated; if so, this function is used. @code{gtk-propagate-event} calls @code{gtk-widget-event} on each widget it decides to send the event to. So @code{gtk-widget-event} is the lowest-level function; it simply emits the "event" and possibly an event-specific signal on a widget. @code{gtk-propagate-event} is a bit higher-level, and @code{gtk-main-do-event} is the highest level. All that said, you most likely don't want to use any of these functions; synthesizing events is rarely needed. Consider asking on the mailing list for better ways to achieve your goals. For example, use @code{gdk-window-invalidate-rect} or @code{gtk-widget-queue-draw} instead of making up expose events. @table @var @item widget a @code{} @item event an event @end table @end deffn @c %end of fragment guile-gnome-platform-2.16.2/gtk/doc/gtk/defuns-gtkliststore.xml.texi0000644000175000017500000002016511670374302026024 0ustar00wingowingo00000000000000 @c %start of fragment @deftp Class Derives from @code{}, @code{}, @code{}, @code{}, @code{}, @code{}. This class defines no direct slots. @end deftp @deffn Function gtk-list-store-new (types@tie{}@code{scm}) @result{}@tie{} (ret@tie{}@code{}) Creates a new list store as with @var{n-columns} columns each of the types passed in. Note that only types derived from standard GObject fundamental types are supported. As an example, @samp{gtk_tree_store_new (3, G_TYPE_INT, G_TYPE_STRING, GDK_TYPE_PIXBUF);} will create a new @code{} with three columns, of type int, string and @code{} respectively. @table @var @item n-columns number of columns in the list store @item ... all @code{} types for the columns, from first to last @item ret a new @code{} @end table @end deffn @deffn Function gtk-list-store-set-value (self@tie{}@code{}) (iter@tie{}@code{}) (column@tie{}@code{int}) (value@tie{}@code{scm}) @deffnx Method set-value Sets the data in the cell specified by @var{iter} and @var{column}. The type of @var{value} must be convertible to the type of the column. @table @var @item list-store A @code{} @item iter A valid @code{} for the row being modified @item column column number to modify @item value new value for the cell @end table @end deffn @deffn Function gtk-list-store-remove (self@tie{}@code{}) (iter@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{}) @deffnx Method remove Removes the given row from the list store. After being removed, @var{iter} is set to be the next valid row, or invalidated if it pointed to the last row in @var{list-store}. @table @var @item list-store A @code{} @item iter A valid @code{} @item ret @samp{@code{#t}} if @var{iter} is valid, @samp{@code{#f}} if not. @end table @end deffn @deffn Function gtk-list-store-insert (self@tie{}@code{}) (position@tie{}@code{int}) @result{}@tie{} (ret@tie{}@code{}) @deffnx Method insert Creates a new row at @var{position}. @var{iter} will be changed to point to this new row. If @var{position} is larger than the number of rows on the list, then the new row will be appended to the list. The row will be empty after this function is called. To fill in values, you need to call @code{gtk-list-store-set} or @code{gtk-list-store-set-value}. @table @var @item list-store A @code{} @item iter An unset @code{} to set to the new row @item position position to insert the new row @end table @end deffn @deffn Function gtk-list-store-insert-before (self@tie{}@code{}) (sibling@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{}) @deffnx Method insert-before Inserts a new row before @var{sibling}. If @var{sibling} is @samp{@code{#f}}, then the row will be appended to the end of the list. @var{iter} will be changed to point to this new row. The row will be empty after this function is called. To fill in values, you need to call @code{gtk-list-store-set} or @code{gtk-list-store-set-value}. @table @var @item list-store A @code{} @item iter An unset @code{} to set to the new row @item sibling A valid @code{}, or @samp{@code{#f}} @end table @end deffn @deffn Function gtk-list-store-insert-after (self@tie{}@code{}) (sibling@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{}) @deffnx Method insert-after Inserts a new row after @var{sibling}. If @var{sibling} is @samp{@code{#f}}, then the row will be prepended to the beginning of the list. @var{iter} will be changed to point to this new row. The row will be empty after this function is called. To fill in values, you need to call @code{gtk-list-store-set} or @code{gtk-list-store-set-value}. @table @var @item list-store A @code{} @item iter An unset @code{} to set to the new row @item sibling A valid @code{}, or @samp{@code{#f}} @end table @end deffn @deffn Function gtk-list-store-prepend (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{}) @deffnx Method prepend Prepends a new row to @var{list-store}. @var{iter} will be changed to point to this new row. The row will be empty after this function is called. To fill in values, you need to call @code{gtk-list-store-set} or @code{gtk-list-store-set-value}. @table @var @item list-store A @code{} @item iter An unset @code{} to set to the prepend row @end table @end deffn @deffn Function gtk-list-store-append (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{}) @deffnx Method append Appends a new row to @var{list-store}. @var{iter} will be changed to point to this new row. The row will be empty after this function is called. To fill in values, you need to call @code{gtk-list-store-set} or @code{gtk-list-store-set-value}. @table @var @item list-store A @code{} @item iter An unset @code{} to set to the appended row @end table @end deffn @deffn Function gtk-list-store-clear (self@tie{}@code{}) @deffnx Method clear Removes all rows from the list store. @table @var @item list-store a @code{}. @end table @end deffn @deffn Function gtk-list-store-iter-is-valid (self@tie{}@code{}) (iter@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{bool}) @deffnx Method iter-is-valid @c (warning "This function is slow. Only use it for debugging and/or testing purposes.") Checks if the given iter is a valid iter for this @code{}. @table @var @item list-store A @code{}. @item iter A @code{}. @item ret @samp{@code{#t}} if the iter is valid, @samp{@code{#f}} if the iter is invalid. @end table Since 2.2 @end deffn @deffn Function gtk-list-store-reorder (self@tie{}@code{}) @result{}@tie{} (new_order@tie{}@code{int}) @deffnx Method reorder Reorders @var{store} to follow the order indicated by @var{new-order}. Note that this function only works with unsorted stores. @table @var @item store A @code{}. @item new-order an array of integers mapping the new position of each child to its old position before the re-ordering, i.e. @var{new-order}@samp{[newpos] = oldpos}. @end table Since 2.2 @end deffn @deffn Function gtk-list-store-swap (self@tie{}@code{}) (a@tie{}@code{}) (b@tie{}@code{}) @deffnx Method swap Swaps @var{a} and @var{b} in @var{store}. Note that this function only works with unsorted stores. @table @var @item store A @code{}. @item a A @code{}. @item b Another @code{}. @end table Since 2.2 @end deffn @deffn Function gtk-list-store-move-before (self@tie{}@code{}) (iter@tie{}@code{}) (position@tie{}@code{}) @deffnx Method move-before Moves @var{iter} in @var{store} to the position before @var{position}. Note that this function only works with unsorted stores. If @var{position} is @samp{@code{#f}}, @var{iter} will be moved to the end of the list. @table @var @item store A @code{}. @item iter A @code{}. @item position A @code{}, or @samp{@code{#f}}. @end table Since 2.2 @end deffn @deffn Function gtk-list-store-move-after (self@tie{}@code{}) (iter@tie{}@code{}) (position@tie{}@code{}) @deffnx Method move-after Moves @var{iter} in @var{store} to the position after @var{position}. Note that this function only works with unsorted stores. If @var{position} is @samp{@code{#f}}, @var{iter} will be moved to the start of the list. @table @var @item store A @code{}. @item iter A @code{}. @item position A @code{} or @samp{@code{#f}}. @end table Since 2.2 @end deffn @c %end of fragment guile-gnome-platform-2.16.2/gtk/doc/gtk/defuns-gtkfilefilter.xml.texi0000644000175000017500000000623411670374302026122 0ustar00wingowingo00000000000000 @c %start of fragment @deftp Class Derives from @code{}. This class defines no direct slots. @end deftp @deffn Function gtk-file-filter-new @result{}@tie{} (ret@tie{}@code{}) Creates a new @code{} with no rules added to it. Such a filter doesn't accept any files, so is not particularly useful until you add rules with @code{gtk-file-filter-add-mime-type}, @code{gtk-file-filter-add-pattern}, or @code{gtk-file-filter-add-custom}. To create a filter that accepts any file, use: @example GtkFileFilter *filter = gtk_file_filter_new (); gtk_file_filter_add_pattern (filter, "*"); @end example @table @var @item ret a new @code{} @end table Since 2.4 @end deffn @deffn Function gtk-file-filter-set-name (self@tie{}@code{}) (name@tie{}@code{mchars}) @deffnx Method set-name Sets the human-readable name of the filter; this is the string that will be displayed in the file selector user interface if there is a selectable list of filters. @table @var @item filter a @code{} @item name the human-readable-name for the filter, or @samp{@code{#f}} to remove any existing name. @end table Since 2.4 @end deffn @deffn Function gtk-file-filter-get-name (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{mchars}) @deffnx Method get-name Gets the human-readable name for the filter. See @code{gtk-file-filter-set-name}. @table @var @item filter a @code{} @item ret The human-readable name of the filter, or @samp{@code{#f}}. This value is owned by GTK+ and must not be modified or freed. @end table Since 2.4 @end deffn @deffn Function gtk-file-filter-add-mime-type (self@tie{}@code{}) (mime_type@tie{}@code{mchars}) @deffnx Method add-mime-type Adds a rule allowing a given mime type to @var{filter}. @table @var @item filter A @code{} @item mime-type name of a MIME type @end table Since 2.4 @end deffn @deffn Function gtk-file-filter-add-pattern (self@tie{}@code{}) (pattern@tie{}@code{mchars}) @deffnx Method add-pattern Adds a rule allowing a shell style glob to a filter. @table @var @item filter a @code{} @item pattern a shell style glob @end table Since 2.4 @end deffn @deffn Function gtk-file-filter-add-pixbuf-formats (self@tie{}@code{}) @deffnx Method add-pixbuf-formats Adds a rule allowing image files in the formats supported by GdkPixbuf. @table @var @item filter a @code{} @end table Since 2.6 @end deffn @deffn Function gtk-file-filter-get-needed (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{}) @deffnx Method get-needed Gets the fields that need to be filled in for the structure passed to @code{gtk-file-filter-filter} This function will not typically be used by applications; it is intended principally for use in the implementation of @code{}. @table @var @item filter a @code{} @item ret bitfield of flags indicating needed fields when calling @code{gtk-file-filter-filter} @end table Since 2.4 @end deffn @c %end of fragment guile-gnome-platform-2.16.2/gtk/doc/gtk/defuns-gtkaccelmap.xml.texi0000644000175000017500000001402411670374302025536 0ustar00wingowingo00000000000000 @c %start of fragment @deftp Class Derives from @code{}. This class defines no direct slots. @end deftp @defop Signal changed (arg0@tie{}@code{}) (arg1@tie{}@code{}) (arg2@tie{}@code{}) Notifies of a change in the global accelerator map. The path is also used as the detail for the signal, so it is possible to connect to changed::@var{accel_path}. Since 2.4 @end defop @deffn Function gtk-accel-map-add-entry (accel_path@tie{}@code{mchars}) (accel_key@tie{}@code{unsigned-int}) (accel_mods@tie{}@code{}) Registers a new accelerator with the global accelerator map. This function should only be called once per @var{accel-path} with the canonical @var{accel-key} and @var{accel-mods} for this path. To change the accelerator during runtime programatically, use @code{gtk-accel-map-change-entry}. The accelerator path must consist of "/Category1/Category2/.../Action", where should be a unique application-specific identifier, that corresponds to the kind of window the accelerator is being used in, e.g. "Gimp-Image", "Abiword-Document" or "Gnumeric-Settings". The Category1/.../Action portion is most appropriately chosen by the action the accelerator triggers, i.e. for accelerators on menu items, choose the item's menu path, e.g. "File/Save As", "Image/View/Zoom" or "Edit/Select All". So a full valid accelerator path may look like: "/File/Dialogs/Tool Options...". @table @var @item accel-path valid accelerator path @item accel-key the accelerator key @item accel-mods the accelerator modifiers @end table @end deffn @deffn Function gtk-accel-map-change-entry (accel_path@tie{}@code{mchars}) (accel_key@tie{}@code{unsigned-int}) (accel_mods@tie{}@code{}) (replace@tie{}@code{bool}) @result{}@tie{} (ret@tie{}@code{bool}) Changes the @var{accel-key} and @var{accel-mods} currently associated with @var{accel-path}. Due to conflicts with other accelerators, a change may not always be possible, @var{replace} indicates whether other accelerators may be deleted to resolve such conflicts. A change will only occur if all conflicts could be resolved (which might not be the case if conflicting accelerators are locked). Successful changes are indicated by a @samp{@code{#t}} return value. @table @var @item accel-path a valid accelerator path @item accel-key the new accelerator key @item accel-mods the new accelerator modifiers @item replace @samp{@code{#t}} if other accelerators may be deleted upon conflicts @item ret @samp{@code{#t}} if the accelerator could be changed, @samp{@code{#f}} otherwise @end table @end deffn @deffn Function gtk-accel-map-load (file_name@tie{}@code{mchars}) Parses a file previously saved with @code{gtk-accel-map-save} for accelerator specifications, and propagates them accordingly. @table @var @item file-name a file containing accelerator specifications, in the GLib file name encoding @end table @end deffn @deffn Function gtk-accel-map-save (file_name@tie{}@code{mchars}) Saves current accelerator specifications (accelerator path, key and modifiers) to @var{file-name}. The file is written in a format suitable to be read back in by @code{gtk-accel-map-load}. @table @var @item file-name the name of the file to contain accelerator specifications, in the GLib file name encoding @end table @end deffn @deffn Function gtk-accel-map-load-fd (fd@tie{}@code{int}) Filedescriptor variant of @code{gtk-accel-map-load}. Note that the file descriptor will not be closed by this function. @table @var @item fd a valid readable file descriptor @end table @end deffn @deffn Function gtk-accel-map-save-fd (fd@tie{}@code{int}) Filedescriptor variant of @code{gtk-accel-map-save}. Note that the file descriptor will not be closed by this function. @table @var @item fd a valid writable file descriptor @end table @end deffn @deffn Function gtk-accel-map-add-filter (filter_pattern@tie{}@code{mchars}) Adds a filter to the global list of accel path filters. Accel map entries whose accel path matches one of the filters are skipped by @code{gtk-accel-map-foreach}. This function is intended for GTK+ modules that create their own menus, but don't want them to be saved into the applications accelerator map dump. @table @var @item filter-pattern a pattern (see @code{}) @end table @end deffn @deffn Function gtk-accel-map-get @result{}@tie{} (ret@tie{}@code{}) Gets the singleton global @code{} object. This object is useful only for notification of changes to the accelerator map via the ::changed signal; it isn't a parameter to the other accelerator map functions. @table @var @item ret the global @code{} object @end table Since 2.4 @end deffn @deffn Function gtk-accel-map-lock-path (accel_path@tie{}@code{mchars}) Locks the given accelerator path. If the accelerator map doesn't yet contain an entry for @var{accel-path}, a new one is created. Locking an accelerator path prevents its accelerator from being changed during runtime. A locked accelerator path can be unlocked by @code{gtk-accel-map-unlock-path}. Refer to @code{gtk-accel-map-change-entry} for information about runtime accelerator changes. If called more than once, @var{accel-path} remains locked until @code{gtk-accel-map-unlock-path} has been called an equivalent number of times. Note that locking of individual accelerator paths is independent from locking the @code{} containing them. For runtime accelerator changes to be possible both the accelerator path and its @code{} have to be unlocked. @table @var @item accel-path a valid accelerator path @end table Since 2.4 @end deffn @deffn Function gtk-accel-map-unlock-path (accel_path@tie{}@code{mchars}) Undoes the last call to @code{gtk-accel-map-lock-path} on this @var{accel-path}. Refer to @code{gtk-accel-map-lock-path} for information about accelerator path locking. @table @var @item accel-path a valid accelerator path @end table Since 2.4 @end deffn @c %end of fragment guile-gnome-platform-2.16.2/gtk/doc/gtk/section-gtkinputdialog.xml.texi0000644000175000017500000000221011670374302026462 0ustar00wingowingo00000000000000 @c %start of fragment @node GtkInputDialog @chapter GtkInputDialog Configure devices for the XInput extension @section Overview NOTE this widget is considered too specialized/little-used for GTK+, and will in the future be moved to some other package. If your application needs this widget, feel free to use it, as the widget does work and is useful in some applications; it's just not of general interest. However, we are not accepting new features for the widget, and it will eventually move out of the GTK+ distribution. @code{} displays a dialog which allows the user to configure XInput extension devices. For each device, they can control the mode of the device (disabled, screen-relative, or window-relative), the mapping of axes to coordinates, and the mapping of the devices macro keys to key press events. @code{} contains two buttons to which the application can connect; one for closing the dialog, and one for saving the changes. No actions are bound to these by default. The changes that the user makes take effect immediately. @section Usage @include defuns-gtkinputdialog.xml.texi @c %end of fragment guile-gnome-platform-2.16.2/gtk/doc/gtk/defuns-gtkstock.xml.texi0000644000175000017500000000420611670374302025115 0ustar00wingowingo00000000000000 @c %start of fragment @deftp Class Opaque pointer. This class defines no direct slots. @end deftp @deffn Function gtk-stock-add (items@tie{}@code{scm}) Registers each of the stock items in @var{items}. If an item already exists with the same stock ID as one of the @var{items}, the old item gets replaced. The stock items are copied, so GTK+ does not hold any pointer into @var{items} and @var{items} can be freed. Use @code{gtk-stock-add-static} if @var{items} is persistent and GTK+ need not copy the array. @table @var @item items a @code{} or array of items @item n-items number of @code{} in @var{items} @end table @end deffn @deffn Function gtk-stock-add-static (items@tie{}@code{}) (n_items@tie{}@code{unsigned-int}) Same as @code{gtk-stock-add}, but doesn't copy @var{items}, so @var{items} must persist until application exit. @table @var @item items a @code{} or array of @code{} @item n-items number of items @end table @end deffn @deffn Function gtk-stock-item-copy (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{}) Copies a stock item, mostly useful for language bindings and not in applications. @table @var @item item a @code{} @item ret a new @code{} @end table @end deffn @deffn Function gtk-stock-list-ids @result{}@tie{} (ret@tie{}@code{gslist-of}) Retrieves a list of all known stock IDs added to a @code{} or registered with @code{gtk-stock-add}. The list must be freed with @code{g-slist-free}, and each string in the list must be freed with @code{g-free}. @table @var @item ret a list of known stock IDs @end table @end deffn @deffn Function gtk-stock-lookup (stock_id@tie{}@code{mchars}) @result{}@tie{} (ret@tie{}@code{scm}) Fills @var{item} with the registered values for @var{stock-id}, returning @samp{@code{#t}} if @var{stock-id} was known. @table @var @item stock-id a stock item name @item item stock item to initialize with values @item ret @samp{@code{#t}} if @var{item} was initialized @end table @end deffn @c %end of fragment guile-gnome-platform-2.16.2/gtk/doc/gtk/defuns-gtkimagemenuitem.xml.texi0000644000175000017500000000512411670374302026620 0ustar00wingowingo00000000000000 @c %start of fragment @deftp Class Derives from @code{}. This class defines the following slots: @table @code @item image Child widget to appear next to the menu text @end table @end deftp @deffn Function gtk-image-menu-item-set-image (self@tie{}@code{}) (image@tie{}@code{}) @deffnx Method set-image Sets the image of @var{image-menu-item} to the given widget. Note that it depends on the show-menu-images setting whether the image will be displayed or not. @table @var @item image-menu-item a @code{}. @item image a widget to set as the image for the menu item. @end table @end deffn @deffn Function gtk-image-menu-item-get-image (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{}) @deffnx Method get-image Gets the widget that is currently set as the image of @var{image-menu-item}. See @code{gtk-image-menu-item-set-image}. @table @var @item image-menu-item a @code{}. @item ret the widget set as image of @var{image-menu-item}. @end table @end deffn @deffn Function gtk-image-menu-item-new @result{}@tie{} (ret@tie{}@code{}) Creates a new @code{} with an empty label. @table @var @item ret a new @code{}. @end table @end deffn @deffn Function gtk-image-menu-item-new-from-stock (stock_id@tie{}@code{mchars}) (accel_group@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{}) Creates a new @code{} containing the image and text from a stock item. Some stock ids have preprocessor macros like @code{} and @code{}. If you want this menu item to have changeable accelerators, then pass in @samp{@code{#f}} for accel_group. Next call @code{gtk-menu-item-set-accel-path} with an appropriate path for the menu item, use @code{gtk-stock-lookup} to look up the standard accelerator for the stock item, and if one is found, call @code{gtk-accel-map-add-entry} to register it. @table @var @item stock-id the name of the stock item. @item accel-group the @code{} to add the menu items accelerator to, or @samp{@code{#f}}. @item ret a new @code{}. @end table @end deffn @deffn Function gtk-image-menu-item-new-with-label (label@tie{}@code{mchars}) @result{}@tie{} (ret@tie{}@code{}) Creates a new @code{} containing a label. @table @var @item label the text of the menu item. @item ret a new @code{}. @end table @end deffn @c %end of fragment guile-gnome-platform-2.16.2/gtk/doc/gtk/section-gtkarrow.xml.texi0000644000175000017500000000144111670374302025302 0ustar00wingowingo00000000000000 @c %start of fragment @node GtkArrow @chapter GtkArrow Displays an arrow @section Overview GtkArrow should be used to draw simple arrows that need to point in one of the four cardinal directions (up, down, left, or right). The style of the arrow can be one of shadow in, shadow out, etched in, or etched out. Note that these directions and style types may be ammended in versions of Gtk to come. GtkArrow will fill any space alloted to it, but since it is inherited from @code{}, it can be padded and/or aligned, to fill exactly the space the programmer desires. Arrows are created with a call to @code{gtk-arrow-new}. The direction or style of an arrow can be changed after creation by using @code{gtk-arrow-set}. @section Usage @include defuns-gtkarrow.xml.texi @c %end of fragment guile-gnome-platform-2.16.2/gtk/doc/gtk/section-gtkscrollbar.xml.texi0000644000175000017500000000160611670374303026137 0ustar00wingowingo00000000000000 @c %start of fragment @node GtkScrollbar @chapter GtkScrollbar Base class for GtkHScrollbar and GtkVScrollbar @section Overview The @code{} widget is an abstract base class for @code{} and @code{}. It is not very useful in itself. The position of the thumb in a scrollbar is controlled by the scroll adjustments. See @code{} for the fields in an adjustment - for @code{}, the "value" field represents the position of the scrollbar, which must be between the "lower" field and "upper - page_size." The "page_size" field represents the size of the visible scrollable area. The "step_increment" and "page_increment" fields are used when the user asks to step down (using the small stepper arrows) or page down (using for example the PageDown key). @section Usage @include defuns-gtkscrollbar.xml.texi @c %end of fragment guile-gnome-platform-2.16.2/gtk/doc/gtk/section-gtkprintsettings.xml.texi0000644000175000017500000000153011670374302027064 0ustar00wingowingo00000000000000 @c %start of fragment @node GtkPrintSettings @chapter GtkPrintSettings Stores print settings @section Overview A GtkPrintSettings object represents the settings of a print dialog in a system-independent way. The main use for this object is that once you've printed you can get a settings object that represents the settings the user chose, and the next time you print you can pass that object in so that the user doesn't have to re-set all his settings. Its also possible to enumerate the settings so that you can easily save the settings for the next time your app runs, or even store them in a document. The predefined keys try to use shared values as much as possible so that moving such a document between systems still works. Printing support was added in GTK+ 2.10. @section Usage @include defuns-gtkprintsettings.xml.texi @c %end of fragment guile-gnome-platform-2.16.2/gtk/doc/gtk/section-gtkruler.xml.texi0000644000175000017500000000202011670374303025274 0ustar00wingowingo00000000000000 @c %start of fragment @node GtkRuler @chapter GtkRuler Base class for horizontal or vertical rulers @section Overview This widget is considered too specialized/little-used for GTK+, and will in the future be moved to some other package. If your application needs this widget, feel free to use it, as the widget does work and is useful in some applications; it's just not of general interest. However, we are not accepting new features for the widget, and it will eventually move out of the GTK+ distribution. The GTKRuler widget is a base class for horizontal and vertical rulers. Rulers are used to show the mouse pointer's location in a window. The ruler can either be horizontal or vertical on the window. Within the ruler a small triangle indicates the location of the mouse relative to the horizontal or vertical ruler. See @code{} to learn how to create a new horizontal ruler. See @code{} to learn how to create a new vertical ruler. @section Usage @include defuns-gtkruler.xml.texi @c %end of fragment guile-gnome-platform-2.16.2/gtk/doc/gtk/defuns-gtkcurve.xml.texi0000644000175000017500000000443411670374302025121 0ustar00wingowingo00000000000000 @c %start of fragment @deftp Class Derives from @code{}. This class defines the following slots: @table @code @item curve-type Is this curve linear, spline interpolated, or free-form @item min-x Minimum possible value for X @item max-x Maximum possible X value @item min-y Minimum possible value for Y @item max-y Maximum possible value for Y @end table @end deftp @defop Signal curve-type-changed Emitted when the curve type has been changed. The curve type can be changed explicitly with a call to @code{gtk-curve-set-curve-type}. It is also changed as a side-effect of calling @code{gtk-curve-reset} or @code{gtk-curve-set-gamma}. @end defop @deffn Function gtk-curve-new @result{}@tie{} (ret@tie{}@code{}) Creates a new @code{}. @table @var @item ret a new @code{}. @end table @end deffn @deffn Function gtk-curve-reset (self@tie{}@code{}) @deffnx Method reset Resets the curve to a straight line from the minimum x and y values to the maximum x and y values (i.e. from the bottom-left to the top-right corners). The curve type is not changed. @table @var @item curve a @code{}. @end table @end deffn @deffn Function gtk-curve-set-gamma (self@tie{}@code{}) (gamma@tie{}@code{float}) @deffnx Method set-gamma Recomputes the entire curve using the given gamma value. A gamma value of 1 results in a straight line. Values greater than 1 result in a curve above the straight line. Values less than 1 result in a curve below the straight line. The curve type is changed to @samp{GTK_CURVE_TYPE_FREE}. FIXME: Needs a more precise definition of gamma. @table @var @item curve a @code{}. @item gamma the gamma value. @end table @end deffn @deffn Function gtk-curve-set-range (self@tie{}@code{}) (min_x@tie{}@code{float}) (max_x@tie{}@code{float}) (min_y@tie{}@code{float}) (max_y@tie{}@code{float}) @deffnx Method set-range Sets the minimum and maximum x and y values of the curve. The curve is also reset with a call to @code{gtk-curve-reset}. @table @var @item curve a @code{}. @item min-x the minimum x value. @item max-x the maximum x value. @item min-y the minimum y value. @item max-y the maximum y value. @end table @end deffn @c %end of fragment guile-gnome-platform-2.16.2/gtk/doc/gtk/defuns-gtkprintsettings.xml.texi0000644000175000017500000004463411670374302026720 0ustar00wingowingo00000000000000 @c %start of fragment @deftp Class Derives from @code{}. This class defines no direct slots. @end deftp @deffn Function gtk-print-settings-new @result{}@tie{} (ret@tie{}@code{}) Creates a new @code{} object. @table @var @item ret a new @code{} object @end table Since 2.10 @end deffn @deffn Function gtk-print-settings-has-key (self@tie{}@code{}) (key@tie{}@code{mchars}) @result{}@tie{} (ret@tie{}@code{bool}) @deffnx Method has-key Returns @samp{@code{#t}}, if a value is associated with @var{key}. @table @var @item settings a @code{} @item key a key @item ret @samp{@code{#t}}, if @var{key} has a value @end table Since 2.10 @end deffn @deffn Function gtk-print-settings-get (self@tie{}@code{}) (key@tie{}@code{mchars}) @result{}@tie{} (ret@tie{}@code{mchars}) @deffnx Method get Looks up the string value associated with @var{key}. @table @var @item settings a @code{} @item key a key @item ret the string value for @var{key} @end table Since 2.10 @end deffn @deffn Function gtk-print-settings-set (self@tie{}@code{}) (key@tie{}@code{mchars}) (value@tie{}@code{mchars}) @deffnx Method set Associates @var{value} with @var{key}. @table @var @item settings a @code{} @item key a key @item value a string value, or @samp{@code{#f}} @end table Since 2.10 @end deffn @deffn Function gtk-print-settings-unset (self@tie{}@code{}) (key@tie{}@code{mchars}) @deffnx Method unset Removes any value associated with @var{key}. This has the same effect as setting the value to @samp{@code{#f}}. @table @var @item settings a @code{} @item key a key @end table Since 2.10 @end deffn @deffn Function gtk-print-settings-get-bool (self@tie{}@code{}) (key@tie{}@code{mchars}) @result{}@tie{} (ret@tie{}@code{bool}) @deffnx Method get-bool Returns the boolean represented by the value that is associated with @var{key}. The string "true" represents @samp{@code{#t}}, any other string @samp{@code{#f}}. @table @var @item settings a @code{} @item key a key @item ret @samp{@code{#t}}, if @var{key} maps to a true value. @end table Since 2.10 @end deffn @deffn Function gtk-print-settings-set-bool (self@tie{}@code{}) (key@tie{}@code{mchars}) (value@tie{}@code{bool}) @deffnx Method set-bool Sets @var{key} to a boolean value. @table @var @item settings a @code{} @item key a key @item value a boolean @end table Since 2.10 @end deffn @deffn Function gtk-print-settings-get-double (self@tie{}@code{}) (key@tie{}@code{mchars}) @result{}@tie{} (ret@tie{}@code{double}) @deffnx Method get-double Returns the double value associated with @var{key}, or 0. @table @var @item settings a @code{} @item key a key @item ret the double value of @var{key} @end table Since 2.10 @end deffn @deffn Function gtk-print-settings-set-double (self@tie{}@code{}) (key@tie{}@code{mchars}) (value@tie{}@code{double}) @deffnx Method set-double Sets @var{key} to a double value. @table @var @item settings a @code{} @item key a key @item value a double value @end table Since 2.10 @end deffn @deffn Function gtk-print-settings-get-length (self@tie{}@code{}) (key@tie{}@code{mchars}) (unit@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{double}) @deffnx Method get-length Returns the value associated with @var{key}, interpreted as a length. The returned value is converted to @var{units}. @table @var @item settings a @code{} @item key a key @item unit the unit of the return value @item ret the length value of @var{key}, converted to @var{unit} @end table Since 2.10 @end deffn @deffn Function gtk-print-settings-set-length (self@tie{}@code{}) (key@tie{}@code{mchars}) (value@tie{}@code{double}) (unit@tie{}@code{}) @deffnx Method set-length Associates a length in units of @var{unit} with @var{key}. @table @var @item settings a @code{} @item key a key @item value a length @item unit the unit of @var{length} @end table Since 2.10 @end deffn @deffn Function gtk-print-settings-get-int (self@tie{}@code{}) (key@tie{}@code{mchars}) @result{}@tie{} (ret@tie{}@code{int}) @deffnx Method get-int Returns the integer value of @var{key}, or 0. @table @var @item settings a @code{} @item key a key @item ret the integer value of @var{key} @end table Since 2.10 @end deffn @deffn Function gtk-print-settings-set-int (self@tie{}@code{}) (key@tie{}@code{mchars}) (value@tie{}@code{int}) @deffnx Method set-int Sets @var{key} to an integer value. @table @var @item settings a @code{} @item key a key @item value an integer @end table Since 2.10 @end deffn @deffn Function gtk-print-settings-get-printer (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{mchars}) @deffnx Method get-printer Convenience function to obtain the value of @samp{GTK_PRINT_SETTINGS_PRINTER}. @table @var @item settings a @code{} @item ret the printer name @end table Since 2.10 @end deffn @deffn Function gtk-print-settings-set-printer (self@tie{}@code{}) (printer@tie{}@code{mchars}) @deffnx Method set-printer Convenience function to set @samp{GTK_PRINT_SETTINGS_PRINTER} to @var{printer}. @table @var @item settings a @code{} @item printer the printer name @end table Since 2.10 @end deffn @deffn Function gtk-print-settings-get-orientation (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{}) @deffnx Method get-orientation Get the value of @samp{GTK_PRINT_SETTINGS_ORIENTATION}, converted to a @code{}. @table @var @item settings a @code{} @item ret the orientation @end table Since 2.10 @end deffn @deffn Function gtk-print-settings-set-orientation (self@tie{}@code{}) (orientation@tie{}@code{}) @deffnx Method set-orientation Sets the value of @samp{GTK_PRINT_SETTINGS_ORIENTATION}. @table @var @item settings a @code{} @item orientation a page orientation @end table Since 2.10 @end deffn @deffn Function gtk-print-settings-get-paper-size (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{}) @deffnx Method get-paper-size Gets the value of @samp{GTK_PRINT_SETTINGS_PAPER_FORMAT}, converted to a @code{}. @table @var @item settings a @code{} @item ret the paper size @end table Since 2.10 @end deffn @deffn Function gtk-print-settings-set-paper-size (self@tie{}@code{}) (paper_size@tie{}@code{}) @deffnx Method set-paper-size Sets the value of @samp{GTK_PRINT_SETTINGS_PAPER_FORMAT}, @samp{GTK_PRINT_SETTINGS_PAPER_WIDTH} and @samp{GTK_PRINT_SETTINGS_PAPER_HEIGHT}. @table @var @item settings a @code{} @item paper-size a paper size @end table Since 2.10 @end deffn @deffn Function gtk-print-settings-get-paper-width (self@tie{}@code{}) (unit@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{double}) @deffnx Method get-paper-width Gets the value of @samp{GTK_PRINT_SETTINGS_PAPER_WIDTH}, converted to @var{unit}. @table @var @item settings a @code{} @item unit the unit for the return value @item ret the paper width, in units of @var{unit} @end table Since 2.10 @end deffn @deffn Function gtk-print-settings-set-paper-width (self@tie{}@code{}) (width@tie{}@code{double}) (unit@tie{}@code{}) @deffnx Method set-paper-width Sets the value of @samp{GTK_PRINT_SETTINGS_PAPER_WIDTH}. @table @var @item settings a @code{} @item width the paper width @item unit the units of @var{width} @end table Since 2.10 @end deffn @deffn Function gtk-print-settings-get-paper-height (self@tie{}@code{}) (unit@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{double}) @deffnx Method get-paper-height Gets the value of @samp{GTK_PRINT_SETTINGS_PAPER_HEIGHT}, converted to @var{unit}. @table @var @item settings a @code{} @item unit the unit for the return value @item ret the paper height, in units of @var{unit} @end table Since 2.10 @end deffn @deffn Function gtk-print-settings-set-paper-height (self@tie{}@code{}) (height@tie{}@code{double}) (unit@tie{}@code{}) @deffnx Method set-paper-height Sets the value of @samp{GTK_PRINT_SETTINGS_PAPER_HEIGHT}. @table @var @item settings a @code{} @item height the paper height @item unit the units of @var{height} @end table Since 2.10 @end deffn @deffn Function gtk-print-settings-get-use-color (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{bool}) @deffnx Method get-use-color Gets the value of @samp{GTK_PRINT_SETTINGS_USE_COLOR}. @table @var @item settings a @code{} @item ret whether to use color @end table Since 2.10 @end deffn @deffn Function gtk-print-settings-set-use-color (self@tie{}@code{}) (use_color@tie{}@code{bool}) @deffnx Method set-use-color Sets the value of @samp{GTK_PRINT_SETTINGS_USE_COLOR}. @table @var @item settings a @code{} @item use-color whether to use color @end table Since 2.10 @end deffn @deffn Function gtk-print-settings-get-collate (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{bool}) @deffnx Method get-collate Gets the value of @samp{GTK_PRINT_SETTINGS_COLLATE}. @table @var @item settings a @code{} @item ret whether to collate the printed pages @end table Since 2.10 @end deffn @deffn Function gtk-print-settings-set-collate (self@tie{}@code{}) (collate@tie{}@code{bool}) @deffnx Method set-collate Sets the value of @samp{GTK_PRINT_SETTINGS_COLLATE}. @table @var @item settings a @code{} @item collate whether to collate the output @end table Since 2.10 @end deffn @deffn Function gtk-print-settings-get-reverse (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{bool}) @deffnx Method get-reverse Gets the value of @samp{GTK_PRINT_SETTINGS_REVERSE}. @table @var @item settings a @code{} @item ret whether to reverse the order of the printed pages @end table Since 2.10 @end deffn @deffn Function gtk-print-settings-set-reverse (self@tie{}@code{}) (reverse@tie{}@code{bool}) @deffnx Method set-reverse Sets the value of @samp{GTK_PRINT_SETTINGS_REVERSE}. @table @var @item settings a @code{} @item reverse whether to reverse the output @end table Since 2.10 @end deffn @deffn Function gtk-print-settings-get-duplex (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{}) @deffnx Method get-duplex Gets the value of @samp{GTK_PRINT_SETTINGS_DUPLEX}. @table @var @item settings a @code{} @item ret whether to print the output in duplex. @end table Since 2.10 @end deffn @deffn Function gtk-print-settings-set-duplex (self@tie{}@code{}) (duplex@tie{}@code{}) @deffnx Method set-duplex Sets the value of @samp{GTK_PRINT_SETTINGS_DUPLEX}. @table @var @item settings a @code{} @item duplex a @code{} value @end table Since 2.10 @end deffn @deffn Function gtk-print-settings-get-quality (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{}) @deffnx Method get-quality Gets the value of @samp{GTK_PRINT_SETTINGS_QUALITY}. @table @var @item settings a @code{} @item ret the print quality @end table Since 2.10 @end deffn @deffn Function gtk-print-settings-set-quality (self@tie{}@code{}) (quality@tie{}@code{}) @deffnx Method set-quality Sets the value of @samp{GTK_PRINT_SETTINGS_QUALITY}. @table @var @item settings a @code{} @item quality a @code{} value @end table Since 2.10 @end deffn @deffn Function gtk-print-settings-get-n-copies (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{int}) @deffnx Method get-n-copies Gets the value of @samp{GTK_PRINT_SETTINGS_N_COPIES}. @table @var @item settings a @code{} @item ret the number of copies to print @end table Since 2.10 @end deffn @deffn Function gtk-print-settings-set-n-copies (self@tie{}@code{}) (num_copies@tie{}@code{int}) @deffnx Method set-n-copies Sets the value of @samp{GTK_PRINT_SETTINGS_N_COPIES}. @table @var @item settings a @code{} @item num-copies the number of copies @end table Since 2.10 @end deffn @deffn Function gtk-print-settings-get-number-up (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{int}) @deffnx Method get-number-up Gets the value of @samp{GTK_PRINT_SETTINGS_NUMBER_UP}. @table @var @item settings a @code{} @item ret the number of pages per sheet @end table Since 2.10 @end deffn @deffn Function gtk-print-settings-set-number-up (self@tie{}@code{}) (number_up@tie{}@code{int}) @deffnx Method set-number-up Sets the value of @samp{GTK_PRINT_SETTINGS_NUMBER_UP}. @table @var @item settings a @code{} @item number-up the number of pages per sheet @end table Since 2.10 @end deffn @deffn Function gtk-print-settings-get-resolution (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{int}) @deffnx Method get-resolution Gets the value of @samp{GTK_PRINT_SETTINGS_RESOLUTION}. @table @var @item settings a @code{} @item ret the resolution in dpi @end table Since 2.10 @end deffn @deffn Function gtk-print-settings-set-resolution (self@tie{}@code{}) (resolution@tie{}@code{int}) @deffnx Method set-resolution Sets the value of @samp{GTK_PRINT_SETTINGS_RESOLUTION}. @table @var @item settings a @code{} @item resolution the resolution in dpi @end table Since 2.10 @end deffn @deffn Function gtk-print-settings-get-scale (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{double}) @deffnx Method get-scale Gets the value of @samp{GTK_PRINT_SETTINGS_SCALE}. @table @var @item settings a @code{} @item ret the scale in percent @end table Since 2.10 @end deffn @deffn Function gtk-print-settings-set-scale (self@tie{}@code{}) (scale@tie{}@code{double}) @deffnx Method set-scale Sets the value of @samp{GTK_PRINT_SETTINGS_SCALE}. @table @var @item settings a @code{} @item scale the scale in percent @end table Since 2.10 @end deffn @deffn Function gtk-print-settings-get-page-set (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{}) @deffnx Method get-page-set Gets the value of @samp{GTK_PRINT_SETTINGS_PAGE_SET}. @table @var @item settings a @code{} @item ret the set of pages to print @end table Since 2.10 @end deffn @deffn Function gtk-print-settings-set-page-set (self@tie{}@code{}) (page_set@tie{}@code{}) @deffnx Method set-page-set Sets the value of @samp{GTK_PRINT_SETTINGS_PAGE_SET}. @table @var @item settings a @code{} @item page-set a @code{} value @end table Since 2.10 @end deffn @deffn Function gtk-print-settings-get-media-type (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{mchars}) @deffnx Method get-media-type Gets the value of @samp{GTK_PRINT_SETTINGS_MEDIA_TYPE}. The set of media types is defined in PWG 5101.1-2002 PWG. @table @var @item settings a @code{} @item ret the media type @end table Since 2.10 @end deffn @deffn Function gtk-print-settings-set-media-type (self@tie{}@code{}) (media_type@tie{}@code{mchars}) @deffnx Method set-media-type Sets the value of @samp{GTK_PRINT_SETTINGS_MEDIA_TYPE}. The set of media types is defined in PWG 5101.1-2002 PWG. @table @var @item settings a @code{} @item media-type the media type @end table Since 2.10 @end deffn @deffn Function gtk-print-settings-get-dither (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{mchars}) @deffnx Method get-dither Gets the value of @samp{GTK_PRINT_SETTINGS_DITHER}. @table @var @item settings a @code{} @item ret the dithering that is used @end table Since 2.10 @end deffn @deffn Function gtk-print-settings-set-dither (self@tie{}@code{}) (dither@tie{}@code{mchars}) @deffnx Method set-dither Sets the value of @samp{GTK_PRINT_SETTINGS_DITHER}. @table @var @item settings a @code{} @item dither the dithering that is used @end table Since 2.10 @end deffn @deffn Function gtk-print-settings-get-finishings (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{mchars}) @deffnx Method get-finishings Gets the value of @samp{GTK_PRINT_SETTINGS_FINISHINGS}. @table @var @item settings a @code{} @item ret the finishings @end table Since 2.10 @end deffn @deffn Function gtk-print-settings-set-finishings (self@tie{}@code{}) (finishings@tie{}@code{mchars}) @deffnx Method set-finishings Sets the value of @samp{GTK_PRINT_SETTINGS_FINISHINGS}. @table @var @item settings a @code{} @item finishings the finishings @end table Since 2.10 @end deffn @deffn Function gtk-print-settings-get-output-bin (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{mchars}) @deffnx Method get-output-bin Gets the value of @samp{GTK_PRINT_SETTINGS_OUTPUT_BIN}. @table @var @item settings a @code{} @item ret the output bin @end table Since 2.10 @end deffn @deffn Function gtk-print-settings-set-output-bin (self@tie{}@code{}) (output_bin@tie{}@code{mchars}) @deffnx Method set-output-bin Sets the value of @samp{GTK_PRINT_SETTINGS_OUTPUT_BIN}. @table @var @item settings a @code{} @item output-bin the output bin @end table Since 2.10 @end deffn @c %end of fragment guile-gnome-platform-2.16.2/gtk/doc/gtk/defuns-gtkdialog.xml.texi0000644000175000017500000001662011670374302025234 0ustar00wingowingo00000000000000 @c %start of fragment @deftp Class Derives from @code{}. This class defines the following slots: @table @code @item has-separator The dialog has a separator bar above its buttons @end table @end deftp @defop Signal response (arg0@tie{}@code{}) Emitted when an action widget is clicked, the dialog receives a delete event, or the application programmer calls @code{gtk-dialog-response}. On a delete event, the response ID is @code{}. Otherwise, it depends on which action widget was clicked. @end defop @defop Signal close @end defop @deffn Function gtk-dialog-run (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{int}) @deffnx Method run Blocks in a recursive main loop until the @var{dialog} either emits the response signal, or is destroyed. If the dialog is destroyed during the call to @code{gtk-dialog-run}, gtk_dialog_returns @code{}. Otherwise, it returns the response ID from the "response" signal emission. Before entering the recursive main loop, @code{gtk-dialog-run} calls @code{gtk-widget-show} on the dialog for you. Note that you still need to show any children of the dialog yourself. During @code{gtk-dialog-run}, the default behavior of "delete_event" is disabled; if the dialog receives "delete_event", it will not be destroyed as windows usually are, and @code{gtk-dialog-run} will return @code{}. Also, during @code{gtk-dialog-run} the dialog will be modal. You can force @code{gtk-dialog-run} to return at any time by calling @code{gtk-dialog-response} to emit the "response" signal. Destroying the dialog during @code{gtk-dialog-run} is a very bad idea, because your post-run code won't know whether the dialog was destroyed or not. After @code{gtk-dialog-run} returns, you are responsible for hiding or destroying the dialog if you wish to do so. Typical usage of this function might be: @example gint result = gtk_dialog_run (GTK_DIALOG (dialog)); switch (result) @{ case GTK_RESPONSE_ACCEPT: do_application_specific_something (); break; default: do_nothing_since_dialog_was_cancelled (); break; @} gtk_widget_destroy (dialog); @end example Note that even though the recursive main loop gives the effect of a modal dialog (it prevents the user from interacting with other windows in the same window group while the dialog is run), callbacks such as timeouts, IO channel watches, DND drops, etc, @emph{will} be triggered during a @code{gtk-dialog-run} call. @table @var @item dialog a @code{} @item ret response ID @end table @end deffn @deffn Function gtk-dialog-response (self@tie{}@code{}) (response_id@tie{}@code{int}) @deffnx Method response Emits the "response" signal with the given response ID. Used to indicate that the user has responded to the dialog in some way; typically either you or @code{gtk-dialog-run} will be monitoring the "response" signal and take appropriate action. @table @var @item dialog a @code{} @item response-id response ID @end table @end deffn @deffn Function gtk-dialog-add-button (self@tie{}@code{}) (button_text@tie{}@code{mchars}) (response_id@tie{}@code{int}) @result{}@tie{} (ret@tie{}@code{}) @deffnx Method add-button Adds a button with the given text (or a stock button, if @var{button-text} is a stock ID) and sets things up so that clicking the button will emit the "response" signal with the given @var{response-id}. The button is appended to the end of the dialog's action area. The button widget is returned, but usually you don't need it. @table @var @item dialog a @code{} @item button-text text of button, or stock ID @item response-id response ID for the button @item ret the button widget that was added @end table @end deffn @deffn Function gtk-dialog-add-action-widget (self@tie{}@code{}) (child@tie{}@code{}) (response_id@tie{}@code{int}) @deffnx Method add-action-widget Adds an activatable widget to the action area of a @code{}, connecting a signal handler that will emit the "response" signal on the dialog when the widget is activated. The widget is appended to the end of the dialog's action area. If you want to add a non-activatable widget, simply pack it into the @samp{action_area} field of the @code{} struct. @table @var @item dialog a @code{} @item child an activatable widget @item response-id response ID for @var{child} @end table @end deffn @deffn Function gtk-dialog-get-has-separator (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{bool}) @deffnx Method get-has-separator Accessor for whether the dialog has a separator. @table @var @item dialog a @code{} @item ret @samp{@code{#t}} if the dialog has a separator @end table @end deffn @deffn Function gtk-dialog-set-default-response (self@tie{}@code{}) (response_id@tie{}@code{int}) @deffnx Method set-default-response Sets the last widget in the dialog's action area with the given @var{response-id} as the default widget for the dialog. Pressing "Enter" normally activates the default widget. @table @var @item dialog a @code{} @item response-id a response ID @end table @end deffn @deffn Function gtk-dialog-set-has-separator (self@tie{}@code{}) (setting@tie{}@code{bool}) @deffnx Method set-has-separator Sets whether the dialog has a separator above the buttons. @samp{@code{#t}} by default. @table @var @item dialog a @code{} @item setting @samp{@code{#t}} to have a separator @end table @end deffn @deffn Function gtk-dialog-set-response-sensitive (self@tie{}@code{}) (response_id@tie{}@code{int}) (setting@tie{}@code{bool}) @deffnx Method set-response-sensitive Calls @samp{gtk_widget_set_sensitive (widget, @var{setting})} for each widget in the dialog's action area with the given @var{response-id}. A convenient way to sensitize/desensitize dialog buttons. @table @var @item dialog a @code{} @item response-id a response ID @item setting @samp{@code{#t}} for sensitive @end table @end deffn @deffn Function gtk-dialog-get-response-for-widget (self@tie{}@code{}) (widget@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{int}) @deffnx Method get-response-for-widget Gets the response id of a widget in the action area of a dialog. @table @var @item dialog a @code{} @item widget a widget in the action area of @var{dialog} @item ret the response id of @var{widget}, or @samp{GTK_RESPONSE_NONE} if @var{widget} doesn't have a response id set. @end table Since 2.8 @end deffn @deffn Function gtk-alternative-dialog-button-order (screen@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{bool}) Returns @samp{@code{#t}} if dialogs are expected to use an alternative button order on the screen @var{screen}. See @code{gtk-dialog-set-alternative-button-order} for more details about alternative button order. If you need to use this function, you should probably connect to the ::notify:gtk-alternative-button-order signal on the @code{} object associated to @var{screen}, in order to be notified if the button order setting changes. @table @var @item screen a @code{}, or @samp{@code{#f}} to use the default screen @item ret Whether the alternative button order should be used @end table Since 2.6 @end deffn @c %end of fragment guile-gnome-platform-2.16.2/gtk/doc/gtk/section-gtkradiotoolbutton.xml.texi0000644000175000017500000000153211670374302027401 0ustar00wingowingo00000000000000 @c %start of fragment @node GtkRadioToolButton @chapter GtkRadioToolButton A toolbar item that contains a radio button @section Overview A @code{} is a @code{} that contains a radio button, that is, a button that is part of a group of toggle buttons where only one button can be active at a time. Use @code{gtk-radio-tool-button-new} to create a new @code{}. use @code{gtk-radio-tool-button-new-from-widget} to create a new @code{} that is part of the same group as an existing @code{}. Use @code{gtk-radio-tool-button-new-from-stock} or @code{gtk-radio-tool-button-new-from-widget-with-stock} to create a new @code{} containing a stock item. @section Usage @include defuns-gtkradiotoolbutton.xml.texi @c %end of fragment guile-gnome-platform-2.16.2/gtk/doc/gtk/section-gtktexttagtable.xml.texi0000644000175000017500000000061311670374303026641 0ustar00wingowingo00000000000000 @c %start of fragment @node GtkTextTagTable @chapter GtkTextTagTable Collection of tags that can be used together @section Overview You may wish to begin by reading the text widget conceptual overview which gives an overview of all the objects and data types related to the text widget and how they work together. @section Usage @include defuns-gtktexttagtable.xml.texi @c %end of fragment guile-gnome-platform-2.16.2/gtk/doc/gtk/defuns-gtkfontsel.xml.texi0000644000175000017500000000556011670374302025450 0ustar00wingowingo00000000000000 @c %start of fragment @deftp Class Derives from @code{}. This class defines the following slots: @table @code @item font-name The X string that represents this font @item font The GdkFont that is currently selected @item preview-text The text to display in order to demonstrate the selected font @end table @end deftp @deffn Function gtk-font-selection-new @result{}@tie{} (ret@tie{}@code{}) Creates a new @code{}. @table @var @item ret a new @code{}. @end table @end deffn @deffn Function gtk-font-selection-get-font-name (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{mchars}) @deffnx Method get-font-name Gets the currently-selected font name. Note that this can be a different string than what you set with @code{gtk-font-selection-set-font-name}, as the font selection widget may normalize font names and thus return a string with a different structure. For example, "Helvetica Italic Bold 12" could be normalized to "Helvetica Bold Italic 12". Use @code{pango-font-description-equal} if you want to compare two font descriptions. @table @var @item fontsel a @code{} @item ret A string with the name of the current font, or @code{@code{#f}} if no font is selected. You must free this string with @code{g-free}. @end table @end deffn @deffn Function gtk-font-selection-set-font-name (self@tie{}@code{}) (fontname@tie{}@code{mchars}) @result{}@tie{} (ret@tie{}@code{bool}) @deffnx Method set-font-name Sets the currently-selected font. Note that the @var{fontsel} needs to know the screen in which it will appear for this to work; this can be guaranteed by simply making sure that the @var{fontsel} is inserted in a toplevel window before you call this function. @table @var @item fontsel a @code{} @item fontname a font name like "Helvetica 12" or "Times Bold 18" @item ret @code{@code{#t}} if the font could be set successfully; @code{@code{#f}} if no such font exists or if the @var{fontsel} doesn't belong to a particular screen yet. @end table @end deffn @deffn Function gtk-font-selection-get-preview-text (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{mchars}) @deffnx Method get-preview-text Gets the text displayed in the preview area. @table @var @item fontsel a @code{}. @item ret the text displayed in the preview area. This string is owned by the widget and should not be modified or freed. @end table @end deffn @deffn Function gtk-font-selection-set-preview-text (self@tie{}@code{}) (text@tie{}@code{mchars}) @deffnx Method set-preview-text Sets the text displayed in the preview area. @table @var @item fontsel a @code{}. @item text the text to display in the preview area. @end table @end deffn @c %end of fragment guile-gnome-platform-2.16.2/gtk/doc/gtk/section-gtkeditable.xml.texi0000644000175000017500000000257511670374302025732 0ustar00wingowingo00000000000000 @c %start of fragment @node GtkEditable @chapter GtkEditable Interface for text-editing widgets @section Overview The @code{} interface is an interface which should be implemented by text editing widgets, such as @code{} and @code{}. It contains functions for generically manipulating an editable widget, a large number of action signals used for key bindings, and several signals that an application can connect to to modify the behavior of a widget. As an example of the latter usage, by connecting the following handler to "insert_text", an application can convert all entry into a widget into uppercase. @example #include void insert_text_handler (GtkEditable *editable, const gchar *text, gint length, gint *position, gpointer data) @{ int i; gchar *result = g_utf8_strup (text, length); g_signal_handlers_block_by_func (editable, (gpointer) insert_text_handler, data); gtk_editable_insert_text (editable, result, length, position); g_signal_handlers_unblock_by_func (editable, (gpointer) insert_text_handler, data); g_signal_stop_emission_by_name (editable, "insert_text"); g_free (result); @} @end example @section Usage @include defuns-gtkeditable.xml.texi @c %end of fragment guile-gnome-platform-2.16.2/gtk/doc/gtk/section-gtkradiomenuitem.xml.texi0000644000175000017500000000161111670374302027011 0ustar00wingowingo00000000000000 @c %start of fragment @node GtkRadioMenuItem @chapter GtkRadioMenuItem A choice from multiple check menu items @section Overview A radio menu item is a check menu item that belongs to a group. At each instant exactly one of the radio menu items from a group is selected. The group list does not need to be freed, as each @code{} will remove itself and its list item when it is destroyed. The correct way to create a group of radio menu items is approximatively this: @example GSList *group = NULL; GtkWidget *item; gint i; for (i = 0; i < 5; i++) @{ item = gtk_radio_menu_item_new_with_label (group, "This is an example"); group = gtk_radio_menu_item_get_group (GTK_RADIO_MENU_ITEM (item)); if (i == 1) gtk_check_menu_item_set_active (GTK_CHECK_MENU_ITEM (item), TRUE); @} @end example @section Usage @include defuns-gtkradiomenuitem.xml.texi @c %end of fragment guile-gnome-platform-2.16.2/gtk/doc/gtk/defuns-gtkiconfactory.xml.texi0000644000175000017500000005130411670374302026313 0ustar00wingowingo00000000000000 @c %start of fragment @deftp Class Derives from @code{}. This class defines no direct slots. @end deftp @deftp Class Derives from @code{}. This class defines no direct slots. @end deftp @deftp Class Derives from @code{}. This class defines no direct slots. @end deftp @deffn Function gtk-icon-source-copy (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{}) Creates a copy of @var{source}; mostly useful for language bindings. @table @var @item source a @code{} @item ret a new @code{} @end table @end deffn @deffn Function gtk-icon-factory-add (self@tie{}@code{}) (stock_id@tie{}@code{mchars}) (icon_set@tie{}@code{}) @deffnx Method add Adds the given @var{icon-set} to the icon factory, under the name @var{stock-id}. @var{stock-id} should be namespaced for your application, e.g. "myapp-whatever-icon". Normally applications create a @code{}, then add it to the list of default factories with @code{gtk-icon-factory-add-default}. Then they pass the @var{stock-id} to widgets such as @code{} to display the icon. Themes can provide an icon with the same name (such as "myapp-whatever-icon") to override your application's default icons. If an icon already existed in @var{factory} for @var{stock-id}, it is unreferenced and replaced with the new @var{icon-set}. @table @var @item factory a @code{} @item stock-id icon name @item icon-set icon set @end table @end deffn @deffn Function gtk-icon-factory-add-default (self@tie{}@code{}) @deffnx Method add-default Adds an icon factory to the list of icon factories searched by @code{gtk-style-lookup-icon-set}. This means that, for example, @code{gtk-image-new-from-stock} will be able to find icons in @var{factory}. There will normally be an icon factory added for each library or application that comes with icons. The default icon factories can be overridden by themes. @table @var @item factory a @code{} @end table @end deffn @deffn Function gtk-icon-factory-lookup (self@tie{}@code{}) (stock_id@tie{}@code{mchars}) @result{}@tie{} (ret@tie{}@code{}) @deffnx Method lookup Looks up @var{stock-id} in the icon factory, returning an icon set if found, otherwise @samp{@code{#f}}. For display to the user, you should use @code{gtk-style-lookup-icon-set} on the @code{} for the widget that will display the icon, instead of using this function directly, so that themes are taken into account. @table @var @item factory a @code{} @item stock-id an icon name @item ret icon set of @var{stock-id}. @end table @end deffn @deffn Function gtk-icon-factory-lookup-default (stock_id@tie{}@code{mchars}) @result{}@tie{} (ret@tie{}@code{}) Looks for an icon in the list of default icon factories. For display to the user, you should use @code{gtk-style-lookup-icon-set} on the @code{} for the widget that will display the icon, instead of using this function directly, so that themes are taken into account. @table @var @item stock-id an icon name @item ret a @code{}, or @samp{@code{#f}} @end table @end deffn @deffn Function gtk-icon-factory-new @result{}@tie{} (ret@tie{}@code{}) Creates a new @code{}. An icon factory manages a collection of @code{}s; a @code{} manages a set of variants of a particular icon (i.e. a @code{} contains variants for different sizes and widget states). Icons in an icon factory are named by a stock ID, which is a simple string identifying the icon. Each @code{} has a list of @code{}s derived from the current theme; those icon factories are consulted first when searching for an icon. If the theme doesn't set a particular icon, GTK+ looks for the icon in a list of default icon factories, maintained by @code{gtk-icon-factory-add-default} and @code{gtk-icon-factory-remove-default}. Applications with icons should add a default icon factory with their icons, which will allow themes to override the icons for the application. @table @var @item ret a new @code{} @end table @end deffn @deffn Function gtk-icon-factory-remove-default (self@tie{}@code{}) @deffnx Method remove-default Removes an icon factory from the list of default icon factories. Not normally used; you might use it for a library that can be unloaded or shut down. @table @var @item factory a @code{} previously added with @code{gtk-icon-factory-add-default} @end table @end deffn @deffn Function gtk-icon-set-add-source (self@tie{}@code{}) (source@tie{}@code{}) Icon sets have a list of @code{}, which they use as base icons for rendering icons in different states and sizes. Icons are scaled, made to look insensitive, etc. in @code{gtk-icon-set-render-icon}, but @code{} needs base images to work with. The base images and when to use them are described by a @code{}. This function copies @var{source}, so you can reuse the same source immediately without affecting the icon set. An example of when you'd use this function: a web browser's "Back to Previous Page" icon might point in a different direction in Hebrew and in English; it might look different when insensitive; and it might change size depending on toolbar mode (small/large icons). So a single icon set would contain all those variants of the icon, and you might add a separate source for each one. You should nearly always add a "default" icon source with all fields wildcarded, which will be used as a fallback if no more specific source matches. @code{} always prefers more specific icon sources to more generic icon sources. The order in which you add the sources to the icon set does not matter. @code{gtk-icon-set-new-from-pixbuf} creates a new icon set with a default icon source based on the given pixbuf. @table @var @item icon-set a @code{} @item source a @code{} @end table @end deffn @deffn Function gtk-icon-set-copy (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{}) Copies @var{icon-set} by value. @table @var @item icon-set a @code{} @item ret a new @code{} identical to the first. @end table @end deffn @deffn Function gtk-icon-set-new @result{}@tie{} (ret@tie{}@code{}) Creates a new @code{}. A @code{} represents a single icon in various sizes and widget states. It can provide a @code{} for a given size and state on request, and automatically caches some of the rendered @code{} objects. Normally you would use @code{gtk-widget-render-icon} instead of using @code{} directly. The one case where you'd use @code{} is to create application-specific icon sets to place in a @code{}. @table @var @item ret a new @code{} @end table @end deffn @deffn Function gtk-icon-set-new-from-pixbuf (pixbuf@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{}) Creates a new @code{} with @var{pixbuf} as the default/fallback source image. If you don't add any additional @code{} to the icon set, all variants of the icon will be created from @var{pixbuf}, using scaling, pixelation, etc. as required to adjust the icon size or make the icon look insensitive/prelighted. @table @var @item pixbuf a @code{} @item ret a new @code{} @end table @end deffn @deffn Function gtk-icon-set-render-icon (self@tie{}@code{}) (style@tie{}@code{}) (direction@tie{}@code{}) (state@tie{}@code{}) (size@tie{}@code{}) (widget@tie{}@code{}) (detail@tie{}@code{mchars}) @result{}@tie{} (ret@tie{}@code{}) Renders an icon using @code{gtk-style-render-icon}. In most cases, @code{gtk-widget-render-icon} is better, since it automatically provides most of the arguments from the current widget settings. This function never returns @samp{@code{#f}}; if the icon can't be rendered (perhaps because an image file fails to load), a default "missing image" icon will be returned instead. @table @var @item icon-set a @code{} @item style a @code{} associated with @var{widget}, or @samp{@code{#f}} @item direction text direction @item state widget state @item size icon size. A size of (GtkIconSize)-1 means render at the size of the source and don't scale. @item widget widget that will display the icon, or @samp{@code{#f}}. The only use that is typically made of this is to determine the appropriate @code{}. @item detail detail to pass to the theme engine, or @samp{@code{#f}}. Note that passing a detail of anything but @samp{@code{#f}} will disable caching. @item ret a @code{} to be displayed @end table @end deffn @deffn Function gtk-icon-size-lookup (size@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{bool}) (width@tie{}@code{int}) (height@tie{}@code{int}) Obtains the pixel size of a semantic icon size, possibly modified by user preferences for the default @code{}. (See @code{gtk-icon-size-lookup-for-settings}.) Normally @var{size} would be @code{}, @code{}, etc. This function isn't normally needed, @code{gtk-widget-render-icon} is the usual way to get an icon for rendering, then just look at the size of the rendered pixbuf. The rendered pixbuf may not even correspond to the width/height returned by @code{gtk-icon-size-lookup}, because themes are free to render the pixbuf however they like, including changing the usual size. @table @var @item size an icon size @item width location to store icon width @item height location to store icon height @item ret @samp{@code{#t}} if @var{size} was a valid size @end table @end deffn @deffn Function gtk-icon-size-lookup-for-settings (settings@tie{}@code{}) (size@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{bool}) (width@tie{}@code{int}) (height@tie{}@code{int}) Obtains the pixel size of a semantic icon size, possibly modified by user preferences for a particular @code{}. Normally @var{size} would be @code{}, @code{}, etc. This function isn't normally needed, @code{gtk-widget-render-icon} is the usual way to get an icon for rendering, then just look at the size of the rendered pixbuf. The rendered pixbuf may not even correspond to the width/height returned by @code{gtk-icon-size-lookup}, because themes are free to render the pixbuf however they like, including changing the usual size. @table @var @item settings a @code{} object, used to determine which set of user preferences to used. @item size an icon size @item width location to store icon width @item height location to store icon height @item ret @samp{@code{#t}} if @var{size} was a valid size @end table Since 2.2 @end deffn @deffn Function gtk-icon-size-register (name@tie{}@code{mchars}) (width@tie{}@code{int}) (height@tie{}@code{int}) @result{}@tie{} (ret@tie{}@code{}) Registers a new icon size, along the same lines as @code{}, etc. Returns the integer value for the size. @table @var @item name name of the icon size @item width the icon width @item height the icon height @item ret integer value representing the size @end table @end deffn @deffn Function gtk-icon-size-register-alias (alias@tie{}@code{mchars}) (target@tie{}@code{}) Registers @var{alias} as another name for @var{target}. So calling @code{gtk-icon-size-from-name} with @var{alias} as argument will return @var{target}. @table @var @item alias an alias for @var{target} @item target an existing icon size @end table @end deffn @deffn Function gtk-icon-size-from-name (name@tie{}@code{mchars}) @result{}@tie{} (ret@tie{}@code{}) Looks up the icon size associated with @var{name}. @table @var @item name the name to look up. @item ret the icon size with the given name. @end table @end deffn @deffn Function gtk-icon-size-get-name (size@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{mchars}) Gets the canonical name of the given icon size. The returned string is statically allocated and should not be freed. @table @var @item size a @code{}. @item ret the name of the given icon size. @end table @end deffn @deffn Function gtk-icon-source-get-direction (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{}) Obtains the text direction this icon source applies to. The return value is only useful/meaningful if the text direction is @emph{not} wildcarded. @table @var @item source a @code{} @item ret text direction this source matches @end table @end deffn @deffn Function gtk-icon-source-get-filename (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{mchars}) Retrieves the source filename, or @samp{@code{#f}} if none is set. The filename is not a copy, and should not be modified or expected to persist beyond the lifetime of the icon source. @table @var @item source a @code{} @item ret image filename. This string must not be modified or freed. @end table @end deffn @deffn Function gtk-icon-source-get-pixbuf (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{}) Retrieves the source pixbuf, or @samp{@code{#f}} if none is set. In addition, if a filename source is in use, this function in some cases will return the pixbuf from loaded from the filename. This is, for example, true for the GtkIconSource passed to the GtkStyle::@code{render-icon} virtual function. The reference count on the pixbuf is not incremented. @table @var @item source a @code{} @item ret source pixbuf @end table @end deffn @deffn Function gtk-icon-source-get-icon-name (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{mchars}) Retrieves the source icon name, or @samp{@code{#f}} if none is set. The icon_name is not a copy, and should not be modified or expected to persist beyond the lifetime of the icon source. @table @var @item source a @code{} @item ret icon name. This string must not be modified or freed. @end table @end deffn @deffn Function gtk-icon-source-get-size (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{}) Obtains the icon size this source applies to. The return value is only useful/meaningful if the icon size is @emph{not} wildcarded. @table @var @item source a @code{} @item ret icon size this source matches. @end table @end deffn @deffn Function gtk-icon-source-get-size-wildcarded (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{bool}) Gets the value set by @code{gtk-icon-source-set-size-wildcarded}. @table @var @item source a @code{} @item ret @samp{@code{#t}} if this icon source is a base for any icon size variant @end table @end deffn @deffn Function gtk-icon-source-get-state (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{}) Obtains the widget state this icon source applies to. The return value is only useful/meaningful if the widget state is @emph{not} wildcarded. @table @var @item source a @code{} @item ret widget state this source matches @end table @end deffn @deffn Function gtk-icon-source-new @result{}@tie{} (ret@tie{}@code{}) Creates a new @code{}. A @code{} contains a @code{} (or image filename) that serves as the base image for one or more of the icons in a @code{}, along with a specification for which icons in the icon set will be based on that pixbuf or image file. An icon set contains a set of icons that represent "the same" logical concept in different states, different global text directions, and different sizes. So for example a web browser's "Back to Previous Page" icon might point in a different direction in Hebrew and in English; it might look different when insensitive; and it might change size depending on toolbar mode (small/large icons). So a single icon set would contain all those variants of the icon. @code{} contains a list of @code{} from which it can derive specific icon variants in the set. In the simplest case, @code{} contains one source pixbuf from which it derives all variants. The convenience function @code{gtk-icon-set-new-from-pixbuf} handles this case; if you only have one source pixbuf, just use that function. If you want to use a different base pixbuf for different icon variants, you create multiple icon sources, mark which variants they'll be used to create, and add them to the icon set with @code{gtk-icon-set-add-source}. By default, the icon source has all parameters wildcarded. That is, the icon source will be used as the base icon for any desired text direction, widget state, or icon size. @table @var @item ret a new @code{} @end table @end deffn @deffn Function gtk-icon-source-set-direction (self@tie{}@code{}) (direction@tie{}@code{}) Sets the text direction this icon source is intended to be used with. Setting the text direction on an icon source makes no difference if the text direction is wildcarded. Therefore, you should usually call @code{gtk-icon-source-set-direction-wildcarded} to un-wildcard it in addition to calling this function. @table @var @item source a @code{} @item direction text direction this source applies to @end table @end deffn @deffn Function gtk-icon-source-set-filename (self@tie{}@code{}) (filename@tie{}@code{mchars}) Sets the name of an image file to use as a base image when creating icon variants for @code{}. The filename must be absolute. @table @var @item source a @code{} @item filename image file to use @end table @end deffn @deffn Function gtk-icon-source-set-pixbuf (self@tie{}@code{}) (pixbuf@tie{}@code{}) Sets a pixbuf to use as a base image when creating icon variants for @code{}. @table @var @item source a @code{} @item pixbuf pixbuf to use as a source @end table @end deffn @deffn Function gtk-icon-source-set-icon-name (self@tie{}@code{}) (icon_name@tie{}@code{mchars}) Sets the name of an icon to look up in the current icon theme to use as a base image when creating icon variants for @code{}. @table @var @item source a @code{} @item icon-name name of icon to use @end table @end deffn @deffn Function gtk-icon-source-set-size (self@tie{}@code{}) (size@tie{}@code{}) Sets the icon size this icon source is intended to be used with. Setting the icon size on an icon source makes no difference if the size is wildcarded. Therefore, you should usually call @code{gtk-icon-source-set-size-wildcarded} to un-wildcard it in addition to calling this function. @table @var @item source a @code{} @item size icon size this source applies to @end table @end deffn @deffn Function gtk-icon-source-set-size-wildcarded (self@tie{}@code{}) (setting@tie{}@code{bool}) If the icon size is wildcarded, this source can be used as the base image for an icon of any size. If the size is not wildcarded, then the size the source applies to should be set with @code{gtk-icon-source-set-size} and the icon source will only be used with that specific size. @code{} prefers non-wildcarded sources (exact matches) over wildcarded sources, and will use an exact match when possible. @code{} will normally scale wildcarded source images to produce an appropriate icon at a given size, but will not change the size of source images that match exactly. @table @var @item source a @code{} @item setting @samp{@code{#t}} to wildcard the widget state @end table @end deffn @deffn Function gtk-icon-source-set-state (self@tie{}@code{}) (state@tie{}@code{}) Sets the widget state this icon source is intended to be used with. Setting the widget state on an icon source makes no difference if the state is wildcarded. Therefore, you should usually call @code{gtk-icon-source-set-state-wildcarded} to un-wildcard it in addition to calling this function. @table @var @item source a @code{} @item state widget state this source applies to @end table @end deffn @c %end of fragment guile-gnome-platform-2.16.2/gtk/doc/gtk/section-gtkstyle.xml.texi0000644000175000017500000000026111670374303025310 0ustar00wingowingo00000000000000 @c %start of fragment @node Styles @chapter Styles Functions for drawing widget parts @section Overview @section Usage @include defuns-gtkstyle.xml.texi @c %end of fragment guile-gnome-platform-2.16.2/gtk/doc/gtk/section-gtkvscale.xml.texi0000644000175000017500000000077511670374303025437 0ustar00wingowingo00000000000000 @c %start of fragment @node GtkVScale @chapter GtkVScale A vertical slider widget for selecting a value from a range @section Overview The @code{} widget is used to allow the user to select a value using a vertical slider. To create one, use @code{gtk-hscale-new-with-range}. The position to show the current value, and the number of decimal places shown can be set using the parent @code{} class's functions. @section Usage @include defuns-gtkvscale.xml.texi @c %end of fragment guile-gnome-platform-2.16.2/gtk/doc/gtk/defuns-gtklayout.xml.texi0000644000175000017500000001156311670374302025313 0ustar00wingowingo00000000000000 @c %start of fragment @deftp Class Derives from @code{}. This class defines the following slots: @table @code @item hadjustment The GtkAdjustment for the horizontal position @item vadjustment The GtkAdjustment for the vertical position @item width The width of the layout @item height The height of the layout @end table @end deftp @defop Signal set-scroll-adjustments (arg0@tie{}@code{}) (arg1@tie{}@code{}) @end defop @deffn Function gtk-layout-new (hadjustment@tie{}@code{}) (vadjustment@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{}) Creates a new @code{}. Unless you have a specific adjustment you'd like the layout to use for scrolling, pass @samp{@code{#f}} for @var{hadjustment} and @var{vadjustment}. @table @var @item hadjustment horizontal scroll adjustment, or @samp{@code{#f}} @item vadjustment vertical scroll adjustment, or @samp{@code{#f}} @item ret a new @code{} @end table @end deffn @deffn Function gtk-layout-put (self@tie{}@code{}) (child_widget@tie{}@code{}) (x@tie{}@code{int}) (y@tie{}@code{int}) @deffnx Method put Adds @var{child-widget} to @var{layout}, at position (@var{x},@var{y}). @var{layout} becomes the new parent container of @var{child-widget}. @table @var @item layout a @code{} @item child-widget child widget @item x X position of child widget @item y Y position of child widget @end table @end deffn @deffn Function gtk-layout-move (self@tie{}@code{}) (child_widget@tie{}@code{}) (x@tie{}@code{int}) (y@tie{}@code{int}) @deffnx Method move Moves a current child of @var{layout} to a new position. @table @var @item layout a @code{} @item child-widget a current child of @var{layout} @item x X position to move to @item y Y position to move to @end table @end deffn @deffn Function gtk-layout-set-size (self@tie{}@code{}) (width@tie{}@code{unsigned-int}) (height@tie{}@code{unsigned-int}) @deffnx Method set-size Sets the size of the scrollable area of the layout. @table @var @item layout a @code{} @item width width of entire scrollable area @item height height of entire scrollable area @end table @end deffn @deffn Function gtk-layout-get-size (self@tie{}@code{}) @result{}@tie{} (width@tie{}@code{unsigned-int}) (height@tie{}@code{unsigned-int}) @deffnx Method get-size Gets the size that has been set on the layout, and that determines the total extents of the layout's scrollbar area. See @code{gtk-layout-set-size}. @table @var @item layout a @code{} @item width location to store the width set on @var{layout}, or @samp{@code{#f}} @item height location to store the height set on @var{layout}, or @samp{@code{#f}} @end table @end deffn @deffn Function gtk-layout-get-hadjustment (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{}) @deffnx Method get-hadjustment This function should only be called after the layout has been placed in a @code{} or otherwise configured for scrolling. It returns the @code{} used for communication between the horizontal scrollbar and @var{layout}. See @code{}, @code{}, @code{} for details. @table @var @item layout a @code{} @item ret horizontal scroll adjustment @end table @end deffn @deffn Function gtk-layout-get-vadjustment (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{}) @deffnx Method get-vadjustment This function should only be called after the layout has been placed in a @code{} or otherwise configured for scrolling. It returns the @code{} used for communication between the vertical scrollbar and @var{layout}. See @code{}, @code{}, @code{} for details. @table @var @item layout a @code{} @item ret vertical scroll adjustment @end table @end deffn @deffn Function gtk-layout-set-hadjustment (self@tie{}@code{}) (adjustment@tie{}@code{}) @deffnx Method set-hadjustment Sets the horizontal scroll adjustment for the layout. See @code{}, @code{}, @code{} for details. @table @var @item layout a @code{} @item adjustment new scroll adjustment @end table @end deffn @deffn Function gtk-layout-set-vadjustment (self@tie{}@code{}) (adjustment@tie{}@code{}) @deffnx Method set-vadjustment Sets the vertical scroll adjustment for the layout. See @code{}, @code{}, @code{} for details. @table @var @item layout a @code{} @item adjustment new scroll adjustment @end table @end deffn @c %end of fragment guile-gnome-platform-2.16.2/gtk/doc/gtk/section-gtkvscrollbar.xml.texi0000644000175000017500000000102511670374303026320 0ustar00wingowingo00000000000000 @c %start of fragment @node GtkVScrollbar @chapter GtkVScrollbar A vertical scrollbar @section Overview The @code{} widget is a widget arranged vertically creating a scrollbar. See @code{} for details on scrollbars. @code{} pointers may be added to handle the adjustment of the scrollbar or it may be left @samp{@code{#f}} in which case one will be created for you. See @code{} for details. @section Usage @include defuns-gtkvscrollbar.xml.texi @c %end of fragment guile-gnome-platform-2.16.2/gtk/doc/gtk/defuns-gtkcellrendererprogress.xml.texi0000644000175000017500000000155711670374302030233 0ustar00wingowingo00000000000000 @c %start of fragment @deftp Class Derives from @code{}. This class defines the following slots: @table @code @item value Value of the progress bar @item text Text on the progress bar @item pulse Set this to positive values to indicate that some progress is made, but you don't know how much. @item text-xalign The horizontal text alignment, from 0 (left) to 1 (right). Reversed for RTL layouts. @item text-yalign The vertical text alignment, from 0 (top) to 1 (bottom). @item orientation Orientation and growth direction of the progress bar @end table @end deftp @deffn Function gtk-cell-renderer-progress-new @result{}@tie{} (ret@tie{}@code{}) Creates a new @code{}. @table @var @item ret the new cell renderer @end table Since 2.6 @end deffn @c %end of fragment guile-gnome-platform-2.16.2/gtk/doc/gtk/defuns-gtkdnd.xml.texi0000644000175000017500000003351711670374302024546 0ustar00wingowingo00000000000000 @c %start of fragment @deffn Function gtk-drag-dest-set (self@tie{}@code{}) (flags@tie{}@code{}) (types@tie{}@code{glist-of}) (actions@tie{}@code{}) Sets a widget as a potential drop destination. @table @var @item widget a @code{} @item flags the flags that specify what actions GTK+ should take on behalf of a widget for drops onto that widget. The @var{targets} and @var{actions} fields only are used if @samp{GTK_DEST_DEFAULT_MOTION} or @samp{GTK_DEST_DEFAULT_DROP} are given. @item targets a pointer to an array of @code{}s indicating the drop types that this widget will accept. @item n-targets the number of entries in @var{targets}. @item actions a bitmask of possible actions for a drop onto this widget. @end table @end deffn @deffn Function gtk-drag-dest-set-proxy (self@tie{}@code{}) (proxy_window@tie{}@code{}) (protocol@tie{}@code{}) (use_coordinates@tie{}@code{bool}) Sets this widget as a proxy for drops to another window. @table @var @item widget a @code{} @item proxy-window the window to which to forward drag events @item protocol the drag protocol which the @var{proxy-window} accepts (You can use @code{gdk-drag-get-protocol} to determine this) @item use-coordinates If @samp{@code{#t}}, send the same coordinates to the destination, because it is an embedded subwindow. @end table @end deffn @deffn Function gtk-drag-dest-unset (self@tie{}@code{}) Clears information about a drop destination set with @code{gtk-drag-dest-set}. The widget will no longer receive notification of drags. @table @var @item widget a @code{} @end table @end deffn @deffn Function gtk-drag-dest-add-text-targets (widget@tie{}@code{}) Add the text targets supported by @code{} to the target list of the drag destination. The targets are added with @var{info} = 0. If you need another value, use @code{gtk-target-list-add-text-targets} and @code{gtk-drag-dest-set-target-list}. @table @var @item widget a @code{} that's a drag destination @end table Since 2.6 @end deffn @deffn Function gtk-drag-dest-add-image-targets (widget@tie{}@code{}) Add the image targets supported by @code{} to the target list of the drag destination. The targets are added with @var{info} = 0. If you need another value, use @code{gtk-target-list-add-image-targets} and @code{gtk-drag-dest-set-target-list}. @table @var @item widget a @code{} that's a drag destination @end table Since 2.6 @end deffn @deffn Function gtk-drag-dest-add-uri-targets (widget@tie{}@code{}) Add the URI targets supported by @code{} to the target list of the drag destination. The targets are added with @var{info} = 0. If you need another value, use @code{gtk-target-list-add-uri-targets} and @code{gtk-drag-dest-set-target-list}. @table @var @item widget a @code{} that's a drag destination @end table Since 2.6 @end deffn @deffn Function gtk-drag-dest-set-track-motion (widget@tie{}@code{}) (track_motion@tie{}@code{bool}) Tells the widget to emit ::drag-motion and ::drag-leave events regardless of the targets and the @samp{GTK_DEST_DEFAULT_MOTION} flag. This may be used when a widget wants to do generic actions regardless of the targets that the source offers. @table @var @item widget a @code{} that's a drag destination @item track-motion whether to accept all targets @end table Since 2.10 @end deffn @deffn Function gtk-drag-dest-get-track-motion (widget@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{bool}) Returns whether the widget has been configured to always emit ::drag-motion signals. @table @var @item widget a @code{} that's a drag destination @item ret @samp{@code{#t}} if the widget always emits ::drag-motion events @end table Since 2.10 @end deffn @deffn Function gtk-drag-finish (self@tie{}@code{}) (success@tie{}@code{bool}) (del@tie{}@code{bool}) (time@tie{}@code{unsigned-int32}) Informs the drag source that the drop is finished, and that the data of the drag will no longer be required. @table @var @item context the drag context. @item success a flag indicating whether the drop was successful @item del a flag indicating whether the source should delete the original data. (This should be @samp{@code{#t}} for a move) @item time the timestamp from the "drag_data_drop" signal. @end table @end deffn @deffn Function gtk-drag-get-data (self@tie{}@code{}) (context@tie{}@code{}) (target@tie{}@code{}) (time@tie{}@code{unsigned-int32}) Gets the data associated with a drag. When the data is received or the retrieval fails, GTK+ will emit a "drag_data_received" signal. Failure of the retrieval is indicated by the length field of the @var{selection-data} signal parameter being negative. However, when @code{gtk-drag-get-data} is called implicitely because the @samp{GTK_DEST_DEFAULT_DROP} was set, then the widget will not receive notification of failed drops. @table @var @item widget the widget that will receive the "drag_data_received" signal. @item context the drag context @item target the target (form of the data) to retrieve. @item time a timestamp for retrieving the data. This will generally be the time received in a "drag_data_motion" or "drag_data_drop" signal. @end table @end deffn @deffn Function gtk-drag-get-source-widget (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{}) Determines the source widget for a drag. @table @var @item context a (destination side) drag context. @item ret if the drag is occurring within a single application, a pointer to the source widget. Otherwise, @samp{@code{#f}}. @end table @end deffn @deffn Function gtk-drag-highlight (self@tie{}@code{}) Draws a highlight around a widget. This will attach handlers to "expose_event" and "draw", so the highlight will continue to be displayed until @code{gtk-drag-unhighlight} is called. @table @var @item widget a widget to highlight @end table @end deffn @deffn Function gtk-drag-unhighlight (self@tie{}@code{}) Removes a highlight set by @code{gtk-drag-highlight} from a widget. @table @var @item widget a widget to remove the highlight from. @end table @end deffn @deffn Function gtk-drag-set-icon-widget (self@tie{}@code{}) (widget@tie{}@code{}) (hot_x@tie{}@code{int}) (hot_y@tie{}@code{int}) Changes the icon for a widget to a given widget. GTK+ will not destroy the icon, so if you don't want it to persist, you should connect to the "drag_end" signal and destroy it yourself. @table @var @item context the context for a drag. (This must be called with a context for the source side of a drag) @item widget a toplevel window to use as an icon. @item hot-x the X offset within @var{widget} of the hotspot. @item hot-y the Y offset within @var{widget} of the hotspot. @end table @end deffn @deffn Function gtk-drag-set-icon-pixmap (self@tie{}@code{}) (colormap@tie{}@code{}) (pixmap@tie{}@code{}) (mask@tie{}@code{}) (hot_x@tie{}@code{int}) (hot_y@tie{}@code{int}) Sets @var{pixmap} as the icon for a given drag. GTK+ retains references for the arguments, and will release them when they are no longer needed. In general, @code{gtk-drag-set-icon-pixbuf} will be more convenient to use. @table @var @item context the context for a drag. (This must be called with a context for the source side of a drag) @item colormap the colormap of the icon @item pixmap the image data for the icon @item mask the transparency mask for the icon @item hot-x the X offset within @var{pixmap} of the hotspot. @item hot-y the Y offset within @var{pixmap} of the hotspot. @end table @end deffn @deffn Function gtk-drag-set-icon-pixbuf (self@tie{}@code{}) (pixbuf@tie{}@code{}) (hot_x@tie{}@code{int}) (hot_y@tie{}@code{int}) Sets @var{pixbuf} as the icon for a given drag. @table @var @item context the context for a drag. (This must be called with a context for the source side of a drag) @item pixbuf the @code{} to use as the drag icon. @item hot-x the X offset within @var{widget} of the hotspot. @item hot-y the Y offset within @var{widget} of the hotspot. @end table @end deffn @deffn Function gtk-drag-set-icon-stock (self@tie{}@code{}) (stock_id@tie{}@code{mchars}) (hot_x@tie{}@code{int}) (hot_y@tie{}@code{int}) Sets the icon for a given drag from a stock ID. @table @var @item context the context for a drag. (This must be called with a context for the source side of a drag) @item stock-id the ID of the stock icon to use for the drag. @item hot-x the X offset within the icon of the hotspot. @item hot-y the Y offset within the icon of the hotspot. @end table @end deffn @deffn Function gtk-drag-set-icon-name (context@tie{}@code{}) (icon_name@tie{}@code{mchars}) (hot_x@tie{}@code{int}) (hot_y@tie{}@code{int}) Sets the icon for a given drag from a named themed icon. See the docs for @code{} for more details. Note that the size of the icon depends on the icon theme (the icon is loaded at the symbolic size @code{}), thus @var{hot-x} and @var{hot-y} have to be used with care. @table @var @item context the context for a drag. (This must be called with a context for the source side of a drag) @item icon-name name of icon to use @item hot-x the X offset of the hotspot within the icon @item hot-y the Y offset of the hotspot within the icon @end table Since 2.8 @end deffn @deffn Function gtk-drag-set-icon-default (self@tie{}@code{}) Sets the icon for a particular drag to the default icon. @table @var @item context the context for a drag. (This must be called with a context for the source side of a drag) @end table @end deffn @deffn Function gtk-drag-check-threshold (self@tie{}@code{}) (start_x@tie{}@code{int}) (start_y@tie{}@code{int}) (current_x@tie{}@code{int}) (current_y@tie{}@code{int}) @result{}@tie{} (ret@tie{}@code{bool}) Checks to see if a mouse drag starting at (@var{start-x}, @var{start-y}) and ending at (@var{current-x}, @var{current-y}) has passed the GTK+ drag threshold, and thus should trigger the beginning of a drag-and-drop operation. @table @var @item widget a @code{} @item start-x X coordinate of start of drag @item start-y Y coordinate of start of drag @item current-x current X coordinate @item current-y current Y coordinate @item ret @samp{@code{#t}} if the drag threshold has been passed. @end table @end deffn @deffn Function gtk-drag-source-set-icon (self@tie{}@code{}) (colormap@tie{}@code{}) (pixmap@tie{}@code{}) (mask@tie{}@code{}) Sets the icon that will be used for drags from a particular widget from a pixmap/mask. GTK+ retains references for the arguments, and will release them when they are no longer needed. Use @code{gtk-drag-source-set-icon-pixbuf} instead. @table @var @item widget a @code{} @item colormap the colormap of the icon @item pixmap the image data for the icon @item mask the transparency mask for an image. @end table @end deffn @deffn Function gtk-drag-source-set-icon-pixbuf (self@tie{}@code{}) (pixbuf@tie{}@code{}) Sets the icon that will be used for drags from a particular widget from a @code{}. GTK+ retains a reference for @var{pixbuf} and will release it when it is no longer needed. @table @var @item widget a @code{} @item pixbuf the @code{} for the drag icon @end table @end deffn @deffn Function gtk-drag-source-set-icon-stock (self@tie{}@code{}) (stock_id@tie{}@code{mchars}) Sets the icon that will be used for drags from a particular source to a stock icon. @table @var @item widget a @code{} @item stock-id the ID of the stock icon to use @end table @end deffn @deffn Function gtk-drag-source-set-icon-name (widget@tie{}@code{}) (icon_name@tie{}@code{mchars}) Sets the icon that will be used for drags from a particular source to a themed icon. See the docs for @code{} for more details. @table @var @item widget a @code{} @item icon-name name of icon to use @end table Since 2.8 @end deffn @deffn Function gtk-drag-source-unset (self@tie{}@code{}) Undoes the effects of @code{gtk-drag-source-set}. @table @var @item widget a @code{} @end table @end deffn @deffn Function gtk-drag-source-add-text-targets (widget@tie{}@code{}) Add the text targets supported by @code{} to the target list of the drag source. The targets are added with @var{info} = 0. If you need another value, use @code{gtk-target-list-add-text-targets} and @code{gtk-drag-source-set-target-list}. @table @var @item widget a @code{} that's is a drag source @end table Since 2.6 @end deffn @deffn Function gtk-drag-source-add-image-targets (widget@tie{}@code{}) Add the writable image targets supported by @code{} to the target list of the drag source. The targets are added with @var{info} = 0. If you need another value, use @code{gtk-target-list-add-image-targets} and @code{gtk-drag-source-set-target-list}. @table @var @item widget a @code{} that's is a drag source @end table Since 2.6 @end deffn @deffn Function gtk-drag-source-add-uri-targets (widget@tie{}@code{}) Add the URI targets supported by @code{} to the target list of the drag source. The targets are added with @var{info} = 0. If you need another value, use @code{gtk-target-list-add-uri-targets} and @code{gtk-drag-source-set-target-list}. @table @var @item widget a @code{} that's is a drag source @end table Since 2.6 @end deffn @c %end of fragment guile-gnome-platform-2.16.2/gtk/doc/gtk/section-gtkstatusicon.xml.texi0000644000175000017500000000267311670374303026355 0ustar00wingowingo00000000000000 @c %start of fragment @node GtkStatusIcon @chapter GtkStatusIcon Display an icon in the system tray @section Overview The "system tray" or notification area is normally used for transient icons that indicate some special state. For example, a system tray icon might appear to tell the user that they have new mail, or have an incoming instant message, or something along those lines. The basic idea is that creating an icon in the notification area is less annoying than popping up a dialog. A @code{} object can be used to display an icon in a "system tray". The icon can have a tooltip, and the user can interact with it by activating it or popping up a context menu. Critical information should not solely be displayed in a @code{}, since it may not be visible (e.g. when the user doesn't have a notification area on his panel). This can be checked with @code{gtk-status-icon-is-embedded}. On X11, the implementation follows the freedesktop.org "System Tray" @uref{http://www.freedesktop.org/wiki/Standards/systemtray-spec,specification}. Implementations of the "tray" side of this specification can be found e.g. in the GNOME and KDE panel applications. Note that a GtkStatusIcon is @emph{not} a widget, but just a @code{}. Making it a widget would be impractical, since the system tray on Win32 doesn't allow to embed arbitrary widgets. @section Usage @include defuns-gtkstatusicon.xml.texi @c %end of fragment guile-gnome-platform-2.16.2/gtk/doc/gtk/defuns-gtkradiomenuitem.xml.texi0000644000175000017500000000433311670374302026635 0ustar00wingowingo00000000000000 @c %start of fragment @deftp Class Derives from @code{}. This class defines the following slots: @table @code @item group The radio menu item whose group this widget belongs to. @end table @end deftp @defop Signal group-changed @end defop @deffn Function gtk-radio-menu-item-new (group@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{}) Creates a new @code{}. @table @var @item group the group to which the radio menu item is to be attached @item ret a new @code{} @end table @end deffn @deffn Function gtk-radio-menu-item-new-with-label (group@tie{}@code{}) (label@tie{}@code{mchars}) @result{}@tie{} (ret@tie{}@code{}) Creates a new @code{} whose child is a simple @code{}. @table @var @item group the group to which the radio menu item is to be attached @item label the text for the label @item ret a new @code{} @end table @end deffn @deffn Function gtk-radio-menu-item-new-from-widget (group@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{}) Creates a new @code{} adding it to the same group as @var{group}. @table @var @item group An existing @code{} @item ret The new @code{} @end table Since 2.4 @end deffn @deffn Function gtk-radio-menu-item-set-group (self@tie{}@code{}) (group@tie{}@code{}) @deffnx Method set-group Sets the group of a radio menu item, or changes it. @table @var @item radio-menu-item a @code{}. @item group the new group. @end table @end deffn @deffn Function gtk-radio-menu-item-get-group (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{}) @deffnx Method get-group Returns the group to which the radio menu item belongs, as a @code{} of @code{}. The list belongs to GTK+ and should not be freed. @table @var @item radio-menu-item a @code{}. @item ret the group of @var{radio-menu-item}. @end table @end deffn @c %end of fragment guile-gnome-platform-2.16.2/gtk/doc/gtk/section-gtkcellrendererspin.xml.texi0000644000175000017500000000202411670374302027506 0ustar00wingowingo00000000000000 @c %start of fragment @node GtkCellRendererSpin @chapter GtkCellRendererSpin Renders a spin button in a cell @section Overview @code{} renders text in a cell like @code{} from which it is derived. But while @code{} offers a simple entry to edit the text, @code{} offers a @code{} widget. Of course, that means that the text has to be parseable as a floating point number. The range of the spinbutton is taken from the adjustment property of the cell renderer, which can be set explicitly or mapped to a column in the tree model, like all properties of cell renders. @code{} also has properties for the climb rate and the number of digits to display. Other @code{} properties can be set in a handler for the start-editing signal. The @code{} cell renderer was added in GTK+ 2.10. @section Usage @include defuns-gtkcellrendererspin.xml.texi @c %end of fragment guile-gnome-platform-2.16.2/gtk/doc/gtk/defuns-gtktexttag.xml.texi0000644000175000017500000002005611670374302025453 0ustar00wingowingo00000000000000 @c %start of fragment @deftp Class Derives from @code{}. This class defines the following slots: @table @code @item name Name used to refer to the text tag. NULL for anonymous tags @item background Background color as a string @item foreground Foreground color as a string @item background-gdk Background color as a (possibly unallocated) GdkColor @item foreground-gdk Foreground color as a (possibly unallocated) GdkColor @item background-stipple Bitmap to use as a mask when drawing the text background @item foreground-stipple Bitmap to use as a mask when drawing the text foreground @item font Font description as a string, e.g. "Sans Italic 12" @item font-desc Font description as a PangoFontDescription struct @item family Name of the font family, e.g. Sans, Helvetica, Times, Monospace @item style Font style as a PangoStyle, e.g. PANGO_STYLE_ITALIC @item variant Font variant as a PangoVariant, e.g. PANGO_VARIANT_SMALL_CAPS @item weight Font weight as an integer, see predefined values in PangoWeight; for example, PANGO_WEIGHT_BOLD @item stretch Font stretch as a PangoStretch, e.g. PANGO_STRETCH_CONDENSED @item size Font size in Pango units @item size-points Font size in points @item scale Font size as a scale factor relative to the default font size. This properly adapts to theme changes etc. so is recommended. Pango predefines some scales such as PANGO_SCALE_X_LARGE @item pixels-above-lines Pixels of blank space above paragraphs @item pixels-below-lines Pixels of blank space below paragraphs @item pixels-inside-wrap Pixels of blank space between wrapped lines in a paragraph @item editable Whether the text can be modified by the user @item wrap-mode Whether to wrap lines never, at word boundaries, or at character boundaries @item justification Left, right, or center justification @item direction Text direction, e.g. right-to-left or left-to-right @item left-margin Width of the left margin in pixels @item indent Amount to indent the paragraph, in pixels @item strikethrough Whether to strike through the text @item right-margin Width of the right margin in pixels @item underline Style of underline for this text @item rise Offset of text above the baseline (below the baseline if rise is negative) in Pango units @item background-full-height Whether the background color fills the entire line height or only the height of the tagged characters @item language The language this text is in, as an ISO code. Pango can use this as a hint when rendering the text. If not set, an appropriate default will be used. @item tabs Custom tabs for this text @item invisible Whether this text is hidden. @item paragraph-background Paragraph background color as a string @item paragraph-background-gdk Paragraph background color as a (possibly unallocated) GdkColor @item accumulative-margin Whether left and right margins accumulate. @item background-set Whether this tag affects the background color @item foreground-set Whether this tag affects the foreground color @item background-stipple-set Whether this tag affects the background stipple @item foreground-stipple-set Whether this tag affects the foreground stipple @item family-set Whether this tag affects the font family @item style-set Whether this tag affects the font style @item variant-set Whether this tag affects the font variant @item weight-set Whether this tag affects the font weight @item stretch-set Whether this tag affects the font stretch @item size-set Whether this tag affects the font size @item scale-set Whether this tag scales the font size by a factor @item pixels-above-lines-set Whether this tag affects the number of pixels above lines @item pixels-below-lines-set Whether this tag affects the number of pixels above lines @item pixels-inside-wrap-set Whether this tag affects the number of pixels between wrapped lines @item editable-set Whether this tag affects text editability @item wrap-mode-set Whether this tag affects line wrap mode @item justification-set Whether this tag affects paragraph justification @item left-margin-set Whether this tag affects the left margin @item indent-set Whether this tag affects indentation @item strikethrough-set Whether this tag affects strikethrough @item right-margin-set Whether this tag affects the right margin @item underline-set Whether this tag affects underlining @item rise-set Whether this tag affects the rise @item background-full-height-set Whether this tag affects background height @item language-set Whether this tag affects the language the text is rendered as @item tabs-set Whether this tag affects tabs @item invisible-set Whether this tag affects text visibility @item paragraph-background-set Whether this tag affects the paragraph background color @end table @end deftp @defop Signal event (arg0@tie{}@code{}) (arg1@tie{}@code{}) (arg2@tie{}@code{}) @result{}@tie{}@code{} @end defop @deftp Class Derives from @code{}. This class defines no direct slots. @end deftp @deffn Function gtk-text-tag-new (name@tie{}@code{mchars}) @result{}@tie{} (ret@tie{}@code{}) Creates a @code{}. Configure the tag using object arguments, i.e. using @code{g-object-set}. @table @var @item name tag name, or @samp{@code{#f}} @item ret a new @code{} @end table @end deffn @deffn Function gtk-text-tag-get-priority (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{int}) @deffnx Method get-priority Get the tag priority. @table @var @item tag a @code{} @item ret The tag's priority. @end table @end deffn @deffn Function gtk-text-tag-set-priority (self@tie{}@code{}) (priority@tie{}@code{int}) @deffnx Method set-priority Sets the priority of a @code{}. Valid priorities are start at 0 and go to one less than @code{gtk-text-tag-table-get-size}. Each tag in a table has a unique priority; setting the priority of one tag shifts the priorities of all the other tags in the table to maintain a unique priority for each tag. Higher priority tags "win" if two tags both set the same text attribute. When adding a tag to a tag table, it will be assigned the highest priority in the table by default; so normally the precedence of a set of tags is the order in which they were added to the table, or created with @code{gtk-text-buffer-create-tag}, which adds the tag to the buffer's table automatically. @table @var @item tag a @code{} @item priority the new priority @end table @end deffn @deffn Function gtk-text-tag-event (self@tie{}@code{}) (event_object@tie{}@code{}) (event@tie{}@code{}) (iter@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{bool}) @deffnx Method event Emits the "event" signal on the @code{}. @table @var @item tag a @code{} @item event-object object that received the event, such as a widget @item event the event @item iter location where the event was received @item ret result of signal emission (whether the event was handled) @end table @end deffn @deffn Function gtk-text-attributes-new @result{}@tie{} (ret@tie{}@code{}) Creates a @code{}, which describes a set of properties on some text. @table @var @item ret a new @code{} @end table @end deffn @deffn Function gtk-text-attributes-copy (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{}) Copies @var{src} and returns a new @code{}. @table @var @item src a @code{} to be copied @item ret a copy of @var{src} @end table @end deffn @deffn Function gtk-text-attributes-copy-values (self@tie{}@code{}) (dest@tie{}@code{}) Copies the values from @var{src} to @var{dest} so that @var{dest} has the same values as @var{src}. Frees existing values in @var{dest}. @table @var @item src a @code{} @item dest another @code{} @end table @end deffn @c %end of fragment guile-gnome-platform-2.16.2/gtk/doc/gtk/defuns-gtkscale.xml.texi0000644000175000017500000001055511670374302025065 0ustar00wingowingo00000000000000 @c %start of fragment @deftp Class Derives from @code{}. This class defines the following slots: @table @code @item digits The number of decimal places that are displayed in the value @item draw-value Whether the current value is displayed as a string next to the slider @item value-pos The position in which the current value is displayed @end table @end deftp @defop Signal format-value (arg0@tie{}@code{}) @result{}@tie{}@code{} Signal which allows you to change how the scale value is displayed. Connect a signal handler which returns an allocated string representing @var{value}. That string will then be used to display the scale's value. Here's an example signal handler which displays a value 1.0 as with "-->1.0<--". @example static gchar* format_value_callback (GtkScale *scale, gdouble value) @{ return g_strdup_printf ("-->%0.*g<--", gtk_scale_get_digits (scale), value); @} @end example @end defop @deffn Function gtk-scale-set-digits (self@tie{}@code{}) (digits@tie{}@code{int}) @deffnx Method set-digits Sets the number of decimal places that are displayed in the value. Also causes the value of the adjustment to be rounded off to this number of digits, so the retrieved value matches the value the user saw. @table @var @item scale a @code{}. @item digits the number of decimal places to display, e.g. use 1 to display 1.0, 2 to display 1.00 etc. @end table @end deffn @deffn Function gtk-scale-set-draw-value (self@tie{}@code{}) (draw_value@tie{}@code{bool}) @deffnx Method set-draw-value Specifies whether the current value is displayed as a string next to the slider. @table @var @item scale a @code{}. @item draw-value a boolean. @end table @end deffn @deffn Function gtk-scale-set-value-pos (self@tie{}@code{}) (pos@tie{}@code{}) @deffnx Method set-value-pos Sets the position in which the current value is displayed. @table @var @item scale a @code{}. @item pos the position in which the current value is displayed. @end table @end deffn @deffn Function gtk-scale-get-digits (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{int}) @deffnx Method get-digits Gets the number of decimal places that are displayed in the value. @table @var @item scale a @code{}. @item ret the number of decimal places that are displayed. @end table @end deffn @deffn Function gtk-scale-get-draw-value (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{bool}) @deffnx Method get-draw-value Returns whether the current value is displayed as a string next to the slider. @table @var @item scale a @code{}. @item ret whether the current value is displayed as a string. @end table @end deffn @deffn Function gtk-scale-get-value-pos (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{}) @deffnx Method get-value-pos Gets the position in which the current value is displayed. @table @var @item scale a @code{}. @item ret the position in which the current value is displayed. @end table @end deffn @deffn Function gtk-scale-get-layout (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{}) @deffnx Method get-layout Gets the @code{} used to display the scale. The returned object is owned by the scale so does not need to be freed by the caller. @table @var @item scale A @code{} @item ret the @code{} for this scale, or @samp{@code{#f}} if the draw_value property is @samp{@code{#f}}. @end table Since 2.4 @end deffn @deffn Function gtk-scale-get-layout-offsets (self@tie{}@code{}) @result{}@tie{} (x@tie{}@code{int}) (y@tie{}@code{int}) @deffnx Method get-layout-offsets Obtains the coordinates where the scale will draw the @code{} representing the text in the scale. Remember when using the @code{} function you need to convert to and from pixels using @code{pango-pixels} or @code{}. If the draw_value property is @samp{@code{#f}}, the return values are undefined. @table @var @item scale a @code{} @item x location to store X offset of layout, or @samp{@code{#f}} @item y location to store Y offset of layout, or @samp{@code{#f}} @end table Since 2.4 @end deffn @c %end of fragment guile-gnome-platform-2.16.2/gtk/doc/gtk/section-gtkexpander.xml.texi0000644000175000017500000000307111670374302025757 0ustar00wingowingo00000000000000 @c %start of fragment @node GtkExpander @chapter GtkExpander A container which can hide its child @section Overview A @code{} allows the user to hide or show its child by clicking on an expander triangle similar to the triangles used in a @code{}. Normally you use an expander as you would use any other descendant of @code{}; you create the child widget and use @code{gtk-container-add} to add it to the expander. When the expander is toggled, it will take care of showing and hiding the child automatically. There are situations in which you may prefer to show and hide the expanded widget yourself, such as when you want to actually create the widget at expansion time. In this case, create a @code{} but do not add a child to it. The expander widget has an @samp{expanded} property which can be used to monitor its expansion state. You should watch this property with a signal connection as follows: @example expander = gtk_expander_new_with_mnemonic ("_More Options"); g_signal_connect (expander, "notify::expanded", G_CALLBACK (expander_callback), NULL); ... static void expander_callback (GObject *object, GParamSpec *param_spec, gpointer user_data) @{ GtkExpander *expander; expander = GTK_EXPANDER (object); if (gtk_expander_get_expanded (expander)) @{ /* Show or create widgets */ @} else @{ /* Hide or destroy widgets */ @} @} @end example @section Usage @include defuns-gtkexpander.xml.texi @c %end of fragment guile-gnome-platform-2.16.2/gtk/doc/gtk/defuns-gtkpaned.xml.texi0000644000175000017500000000771411670374302025070 0ustar00wingowingo00000000000000 @c %start of fragment @deftp Class Derives from @code{}. This class defines the following slots: @table @code @item position Position of paned separator in pixels (0 means all the way to the left/top) @item position-set TRUE if the Position property should be used @item min-position Smallest possible value for the "position" property @item max-position Largest possible value for the "position" property @end table @end deftp @defop Signal cycle-child-focus (arg0@tie{}@code{}) @result{}@tie{}@code{} @end defop @defop Signal toggle-handle-focus @result{}@tie{}@code{} @end defop @defop Signal move-handle (arg0@tie{}@code{}) @result{}@tie{}@code{} @end defop @defop Signal cycle-handle-focus (arg0@tie{}@code{}) @result{}@tie{}@code{} @end defop @defop Signal accept-position @result{}@tie{}@code{} @end defop @defop Signal cancel-position @result{}@tie{}@code{} @end defop @deffn Function gtk-paned-add1 (self@tie{}@code{}) (child@tie{}@code{}) @deffnx Method add1 Adds a child to the top or left pane with default parameters. This is equivalent to @samp{gtk_paned_pack1 (paned, child, FALSE, TRUE)}. @table @var @item paned a paned widget @item child the child to add @end table @end deffn @deffn Function gtk-paned-add2 (self@tie{}@code{}) (child@tie{}@code{}) @deffnx Method add2 Adds a child to the bottom or right pane with default parameters. This is equivalent to @samp{gtk_paned_pack2 (paned, child, TRUE, TRUE)}. @table @var @item paned a paned widget @item child the child to add @end table @end deffn @deffn Function gtk-paned-pack1 (self@tie{}@code{}) (child@tie{}@code{}) (resize@tie{}@code{bool}) (shrink@tie{}@code{bool}) @deffnx Method pack1 Adds a child to the top or left pane. @table @var @item paned a paned widget @item child the child to add @item resize should this child expand when the paned widget is resized. @item shrink can this child be made smaller than its requisition. @end table @end deffn @deffn Function gtk-paned-pack2 (self@tie{}@code{}) (child@tie{}@code{}) (resize@tie{}@code{bool}) (shrink@tie{}@code{bool}) @deffnx Method pack2 Adds a child to the bottom or right pane. @table @var @item paned a paned widget @item child the child to add @item resize should this child expand when the paned widget is resized. @item shrink can this child be made smaller than its requisition. @end table @end deffn @deffn Function gtk-paned-get-child1 (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{}) @deffnx Method get-child1 Obtains the first child of the paned widget. @table @var @item paned a @code{} widget @item ret first child, or @samp{@code{#f}} if it is not set. @end table Since 2.4 @end deffn @deffn Function gtk-paned-get-child2 (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{}) @deffnx Method get-child2 Obtains the second child of the paned widget. @table @var @item paned a @code{} widget @item ret second child, or @samp{@code{#f}} if it is not set. @end table Since 2.4 @end deffn @deffn Function gtk-paned-set-position (self@tie{}@code{}) (position@tie{}@code{int}) @deffnx Method set-position Sets the position of the divider between the two panes. @table @var @item paned a @code{} widget @item position pixel position of divider, a negative value means that the position is unset. @end table @end deffn @deffn Function gtk-paned-get-position (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{int}) @deffnx Method get-position Obtains the position of the divider between the two panes. @table @var @item paned a @code{} widget @item ret position of the divider @end table @end deffn @c %end of fragment guile-gnome-platform-2.16.2/gtk/doc/gtk/defuns-gtkvpaned.xml.texi0000644000175000017500000000052611670374302025250 0ustar00wingowingo00000000000000 @c %start of fragment @deftp Class Derives from @code{}. This class defines no direct slots. @end deftp @deffn Function gtk-vpaned-new @result{}@tie{} (ret@tie{}@code{}) Create a new @code{} @table @var @item ret the new @code{} @end table @end deffn @c %end of fragment guile-gnome-platform-2.16.2/gtk/doc/gtk/section-gtkfilefilter.xml.texi0000644000175000017500000000203211670374302026272 0ustar00wingowingo00000000000000 @c %start of fragment @node GtkFileFilter @chapter GtkFileFilter A filter for selecting a file subset @section Overview A GtkFileFilter can be used to restrict the files being shown in a @code{}. Files can be filtered based on their name (with @code{gtk-file-filter-add-pattern}), on their mime type (with @code{gtk-file-filter-add-mime-type}), or by a custom filter function (with @code{gtk-file-filter-add-custom}). Filtering by mime types handles aliasing and subclassing of mime types; e.g. a filter for text/plain also matches a file with mime type application/rtf, since application/rtf is a subclass of text/plain. Note that @code{} allows wildcards for the subtype of a mime type, so you can e.g. filter for image/*. Normally, filters are used by adding them to a @code{}, see @code{gtk-file-chooser-add-filter}, but it is also possible to manually use a filter on a file with @code{gtk-file-filter-filter}. @section Usage @include defuns-gtkfilefilter.xml.texi @c %end of fragment guile-gnome-platform-2.16.2/gtk/doc/gtk/defuns-gtkaccelgroup.xml.texi0000644000175000017500000002124411670374302026117 0ustar00wingowingo00000000000000 @c %start of fragment @deftp Class Derives from @code{}. This class defines no direct slots. @end deftp @defop Signal accel-activate (arg0@tie{}@code{}) (arg1@tie{}@code{}) (arg2@tie{}@code{}) @result{}@tie{}@code{} The accel-activate signal is an implementation detail of @code{} and not meant to be used by applications. @end defop @defop Signal accel-changed (arg0@tie{}@code{}) (arg1@tie{}@code{}) (arg2@tie{}@code{}) The accel-changed signal is emitted when a @code{} is added to or removed from the accel group. Widgets like @code{} which display an associated accelerator should connect to this signal, and rebuild their visual representation if the @var{accel-closure} is theirs. @end defop @deffn Function gtk-accel-group-new @result{}@tie{} (ret@tie{}@code{}) Creates a new @code{}. @table @var @item ret a new @code{} object @end table @end deffn @deffn Function gtk-accel-group-connect (self@tie{}@code{}) (accel_key@tie{}@code{unsigned-int}) (accel_mods@tie{}@code{}) (accel_flags@tie{}@code{}) (closure@tie{}@code{}) @deffnx Method connect Installs an accelerator in this group. When @var{accel-group} is being activated in response to a call to @code{gtk-accel-groups-activate}, @var{closure} will be invoked if the @var{accel-key} and @var{accel-mods} from @code{gtk-accel-groups-activate} match those of this connection. The signature used for the @var{closure} is that of @code{}. Note that, due to implementation details, a single closure can only be connected to one accelerator group. @table @var @item accel-group the accelerator group to install an accelerator in @item accel-key key value of the accelerator @item accel-mods modifier combination of the accelerator @item accel-flags a flag mask to configure this accelerator @item closure closure to be executed upon accelerator activation @end table @end deffn @deffn Function gtk-accel-group-connect-by-path (self@tie{}@code{}) (accel_path@tie{}@code{mchars}) (closure@tie{}@code{}) @deffnx Method connect-by-path Installs an accelerator in this group, using an accelerator path to look up the appropriate key and modifiers (see @code{gtk-accel-map-add-entry}). When @var{accel-group} is being activated in response to a call to @code{gtk-accel-groups-activate}, @var{closure} will be invoked if the @var{accel-key} and @var{accel-mods} from @code{gtk-accel-groups-activate} match the key and modifiers for the path. The signature used for the @var{closure} is that of @code{}. @table @var @item accel-group the accelerator group to install an accelerator in @item accel-path path used for determining key and modifiers. @item closure closure to be executed upon accelerator activation @end table @end deffn @deffn Function gtk-accel-group-disconnect (self@tie{}@code{}) (closure@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{bool}) @deffnx Method disconnect Removes an accelerator previously installed through @code{gtk-accel-group-connect}. @table @var @item accel-group the accelerator group to remove an accelerator from @item closure the closure to remove from this accelerator group @item ret @samp{@code{#t}} if the closure was found and got disconnected @end table @end deffn @deffn Function gtk-accel-group-disconnect-key (self@tie{}@code{}) (accel_key@tie{}@code{unsigned-int}) (accel_mods@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{bool}) @deffnx Method disconnect-key Removes an accelerator previously installed through @code{gtk-accel-group-connect}. @table @var @item accel-group the accelerator group to install an accelerator in @item accel-key key value of the accelerator @item accel-mods modifier combination of the accelerator @item ret @samp{@code{#t}} if there was an accelerator which could be removed, @samp{@code{#f}} otherwise @end table @end deffn @deffn Function gtk-accel-group-activate (self@tie{}@code{}) (accel_quark@tie{}@code{unsigned-int}) (acceleratable@tie{}@code{}) (accel_key@tie{}@code{unsigned-int}) (accel_mods@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{bool}) @deffnx Method activate @table @var @item accel-group @item accel-quark @item acceleratable @item accel-key @item accel-mods @item ret @end table @end deffn @deffn Function gtk-accel-group-lock (self@tie{}@code{}) @deffnx Method lock Locks the given accelerator group. Locking an acelerator group prevents the accelerators contained within it to be changed during runtime. Refer to @code{gtk-accel-map-change-entry} about runtime accelerator changes. If called more than once, @var{accel-group} remains locked until @code{gtk-accel-group-unlock} has been called an equivalent number of times. @table @var @item accel-group a @code{} @end table @end deffn @deffn Function gtk-accel-group-unlock (self@tie{}@code{}) @deffnx Method unlock Undoes the last call to @code{gtk-accel-group-lock} on this @var{accel-group}. @table @var @item accel-group a @code{} @end table @end deffn @deffn Function gtk-accel-group-from-accel-closure (closure@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{}) Finds the @code{} to which @var{closure} is connected; see @code{gtk-accel-group-connect}. @table @var @item closure a @code{} @item ret the @code{} to which @var{closure} is connected, or @samp{@code{#f}}. @end table @end deffn @deffn Function gtk-accel-groups-activate (object@tie{}@code{}) (accel_key@tie{}@code{unsigned-int}) (accel_mods@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{bool}) Finds the first accelerator in any @code{} attached to @var{object} that matches @var{accel-key} and @var{accel-mods}, and activates that accelerator. If an accelerator was activated and handled this keypress, @samp{@code{#t}} is returned. @table @var @item object the @code{}, usually a @code{}, on which to activate the accelerator. @item accel-key accelerator keyval from a key event @item accel-mods keyboard state mask from a key event @item ret @samp{@code{#t}} if the accelerator was handled, @samp{@code{#f}} otherwise @end table @end deffn @deffn Function gtk-accel-groups-from-object (object@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{gslist-of}) Gets a list of all accel groups which are attached to @var{object}. @table @var @item object a @code{}, usually a @code{} @item ret a list of all accel groups which are attached to @var{object} @end table @end deffn @deffn Function gtk-accelerator-valid (keyval@tie{}@code{unsigned-int}) (modifiers@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{bool}) Determines whether a given keyval and modifier mask constitute a valid keyboard accelerator. For example, the @code{} keyval plus @code{} is valid - this is a "Ctrl+a" accelerator. But, you can't, for instance, use the @code{} keyval as an accelerator. @table @var @item keyval a GDK keyval @item modifiers modifier mask @item ret @samp{@code{#t}} if the accelerator is valid @end table @end deffn @deffn Function gtk-accelerator-name (accelerator_key@tie{}@code{unsigned-int}) (accelerator_mods@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{mchars}) Converts an accelerator keyval and modifier mask into a string parseable by @code{gtk-accelerator-parse}. For example, if you pass in @code{} and @code{}, this function returns "q". If you need to display accelerators in the user interface, see @code{gtk-accelerator-get-label}. @table @var @item accelerator-key accelerator keyval @item accelerator-mods accelerator modifier mask @item ret a newly-allocated accelerator name @end table @end deffn @deffn Function gtk-accelerator-get-label (accelerator_key@tie{}@code{unsigned-int}) (accelerator_mods@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{mchars}) Converts an accelerator keyval and modifier mask into a string which can be used to represent the accelerator to the user. @table @var @item accelerator-key accelerator keyval @item accelerator-mods accelerator modifier mask @item ret a newly-allocated string representing the accelerator. @end table Since 2.6 @end deffn @c %end of fragment guile-gnome-platform-2.16.2/gtk/doc/gtk/defuns-gtkclipboard.xml.texi0000644000175000017500000001732111670374302025733 0ustar00wingowingo00000000000000 @c %start of fragment @deftp Class Derives from @code{}. This class defines no direct slots. @end deftp @defop Signal owner-change (arg0@tie{}@code{}) @end defop @deffn Function gtk-clipboard-get (selection@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{}) Returns the clipboard object for the given selection. See @code{gtk-clipboard-get-for-display} for complete details. @table @var @item selection a @code{} which identifies the clipboard to use. @item ret the appropriate clipboard object. If no clipboard already exists, a new one will be created. Once a clipboard object has been created, it is persistent and, since it is owned by GTK+, must not be freed or unrefd. @end table @end deffn @deffn Function gtk-clipboard-get-for-display (display@tie{}@code{}) (selection@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{}) Returns the clipboard object for the given selection. Cut/copy/paste menu items and keyboard shortcuts should use the default clipboard, returned by passing @samp{GDK_SELECTION_CLIPBOARD} for @var{selection}. (@samp{GDK_NONE} is supported as a synonym for GDK_SELECTION_CLIPBOARD for backwards compatibility reasons.) The currently-selected object or text should be provided on the clipboard identified by @code{}. Cut/copy/paste menu items conceptually copy the contents of the @code{} clipboard to the default clipboard, i.e. they copy the selection to what the user sees as the clipboard. (Passing @code{} is the same as using @samp{gdk_atom_intern ("CLIPBOARD", FALSE)}. See @uref{http://www.freedesktop.org/Standards/clipboards-spec, http://www.freedesktop.org/Standards/clipboards-spec} for a detailed discussion of the "CLIPBOARD" vs. "PRIMARY" selections under the X window system. On Win32 the @code{} clipboard is essentially ignored.) It's possible to have arbitrary named clipboards; if you do invent new clipboards, you should prefix the selection name with an underscore (because the ICCCM requires that nonstandard atoms are underscore-prefixed), and namespace it as well. For example, if your application called "Foo" has a special-purpose clipboard, you might call it "_FOO_SPECIAL_CLIPBOARD". @table @var @item display the display for which the clipboard is to be retrieved or created @item selection a @code{} which identifies the clipboard to use. @item ret the appropriate clipboard object. If no clipboard already exists, a new one will be created. Once a clipboard object has been created, it is persistent and, since it is owned by GTK+, must not be freed or unrefd. @end table Since 2.2 @end deffn @deffn Function gtk-clipboard-get-display (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{}) @deffnx Method get-display Gets the @code{} associated with @var{clipboard} @table @var @item clipboard a @code{} @item ret the @code{} associated with @var{clipboard} @end table Since 2.2 @end deffn @deffn Function gtk-clipboard-get-owner (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{}) @deffnx Method get-owner If the clipboard contents callbacks were set with @code{gtk-clipboard-set-with-owner}, and the @code{gtk-clipboard-set-with-data} or @code{gtk-clipboard-clear} has not subsequently called, returns the owner set by @code{gtk-clipboard-set-with-owner}. @table @var @item clipboard a @code{} @item ret the owner of the clipboard, if any; otherwise @samp{@code{#f}}. @end table @end deffn @deffn Function gtk-clipboard-clear (self@tie{}@code{}) @deffnx Method clear Clears the contents of the clipboard. Generally this should only be called between the time you call @code{gtk-clipboard-set-with-owner} or @code{gtk-clipboard-set-with-data}, and when the @var{clear-func} you supplied is called. Otherwise, the clipboard may be owned by someone else. @table @var @item clipboard a @code{} @end table @end deffn @deffn Function gtk-clipboard-set-text (self@tie{}@code{}) (text@tie{}@code{mchars}) @deffnx Method set-text Sets the contents of the clipboard to the given UTF-8 string. GTK+ will make a copy of the text and take responsibility for responding for requests for the text, and for converting the text into the requested format. @table @var @item clipboard a @code{} object @item text a UTF-8 string. @item len length of @var{text}, in bytes, or -1, in which case the length will be determined with @code{@code{strlen}}. @end table @end deffn @deffn Function gtk-clipboard-set-image (self@tie{}@code{}) (pixbuf@tie{}@code{}) @deffnx Method set-image Sets the contents of the clipboard to the given @code{}. GTK+ will take responsibility for responding for requests for the image, and for converting the image into the requested format. @table @var @item clipboard a @code{} object @item pixbuf a @code{} @end table Since 2.6 @end deffn @deffn Function gtk-clipboard-wait-for-contents (self@tie{}@code{}) (target@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{}) @deffnx Method wait-for-contents Requests the contents of the clipboard using the given target. This function waits for the data to be received using the main loop, so events, timeouts, etc, may be dispatched during the wait. @table @var @item clipboard a @code{} @item target an atom representing the form into which the clipboard owner should convert the selection. @item ret a newly-allocated @code{} object or @samp{@code{#f}} if retrieving the given target failed. If non-@samp{@code{#f}}, this value must be freed with @code{gtk-selection-data-free} when you are finished with it. @end table @end deffn @deffn Function gtk-clipboard-wait-for-text (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{mchars}) @deffnx Method wait-for-text Requests the contents of the clipboard as text and converts the result to UTF-8 if necessary. This function waits for the data to be received using the main loop, so events, timeouts, etc, may be dispatched during the wait. @table @var @item clipboard a @code{} @item ret a newly-allocated UTF-8 string which must be freed with @code{g-free}, or @samp{@code{#f}} if retrieving the selection data failed. (This could happen for various reasons, in particular if the clipboard was empty or if the contents of the clipboard could not be converted into text form.) @end table @end deffn @deffn Function gtk-clipboard-wait-for-image (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{}) @deffnx Method wait-for-image Requests the contents of the clipboard as image and converts the result to a @code{}. This function waits for the data to be received using the main loop, so events, timeouts, etc, may be dispatched during the wait. @table @var @item clipboard a @code{} @item ret a newly-allocated @code{} object which must be disposed with @code{g-object-unref}, or @samp{@code{#f}} if retrieving the selection data failed. (This could happen for various reasons, in particular if the clipboard was empty or if the contents of the clipboard could not be converted into an image.) @end table Since 2.6 @end deffn @deffn Function gtk-clipboard-store (self@tie{}@code{}) @deffnx Method store Stores the current clipboard data somewhere so that it will stay around after the application has quit. @table @var @item clipboard a @code{} @end table Since 2.6 @end deffn @c %end of fragment guile-gnome-platform-2.16.2/gtk/doc/gtk/defuns-gtkvbbox.xml.texi0000644000175000017500000000056111670374302025112 0ustar00wingowingo00000000000000 @c %start of fragment @deftp Class Derives from @code{}. This class defines no direct slots. @end deftp @deffn Function gtk-vbutton-box-new @result{}@tie{} (ret@tie{}@code{}) Creates a new vertical button box. @table @var @item ret a new button box @code{}. @end table @end deffn @c %end of fragment guile-gnome-platform-2.16.2/gtk/doc/gtk/section-gtkfilechooser.xml.texi0000644000175000017500000002421711670374302026460 0ustar00wingowingo00000000000000 @c %start of fragment @node GtkFileChooser @chapter GtkFileChooser File chooser interface used by GtkFileChooserWidget and GtkFileChooserDialog @section Overview @code{} is an interface that can be implemented by file selection widgets. In GTK+, the main objects that implement this interface are @code{}, @code{}, and @code{}. You do not need to write an object that implements the @code{} interface unless you are trying to adapt an existing file selector to expose a standard programming interface. @code{} allows for shortcuts to various places in the filesystem. In the default implementation these are displayed in the left pane. It may be a bit confusing at first taht these shortcuts come from various sources and in various flavours, so lets explain the terminology here: @table @var @item Shortcuts @c %start of fragment @c %end of fragment @item Volumes @c %start of fragment @c %end of fragment @end table are created by the user, by dragging folders from the right pane to the left pane, or by using the "Add". Bookmarks can be renamed and deleted by the user. can be provided by the application or by the underlying filesystem abstraction (e.g. both the gnome-vfs and the Windows filesystems provide "Desktop" shortcuts). Shortcuts cannot be modified by the user. are provided by the underlying filesystem abstraction. They are the "roots" of the filesystem. @section File Names and Encodings When the user is finished selecting files in a @code{}, your program can get the selected names either as filenames or as URIs. For URIs, the normal escaping rules are applied if the URI contains non-ASCII characters. However, filenames are @emph{always} returned in the character set specified by the @env{G_FILENAME_ENCODING} environment variable. Please see the Glib documentation for more details about this variable. This means that while you can pass the result of @code{gtk-file-chooser-get-filename} to @code{open(2)} or @code{fopen(3)}, you may not be able to directly set it as the text of a @code{} widget unless you convert it first to UTF-8, which all GTK+ widgets expect. You should use @code{g-filename-to-utf8} to convert filenames into strings that can be passed to GTK+ widgets. @section Adding a Preview Widget You can add a custom preview widget to a file chooser and then get notification about when the preview needs to be updated. To install a preview widget, use @code{gtk-file-chooser-set-preview-widget}. Then, connect to the @code{} signal to get notified when you need to update the contents of the preview. Your callback should use @code{gtk-file-chooser-get-preview-filename} to see what needs previewing. Once you have generated the preview for the corresponding file, you must call @code{gtk-file-chooser-set-preview-widget-active} with a boolean flag that indicates whether your callback could successfully generate a preview. @example @{ GtkImage *preview; ... preview = gtk_image_new (); gtk_file_chooser_set_preview_widget (my_file_chooser, preview); g_signal_connect (my_file_chooser, "update-preview", G_CALLBACK (update_preview_cb), preview); @} static void update_preview_cb (GtkFileChooser *file_chooser, gpointer data) @{ GtkWidget *preview; char *filename; GdkPixbuf *pixbuf; gboolean have_preview; preview = GTK_WIDGET (data); filename = gtk_file_chooser_get_preview_filename (file_chooser); pixbuf = gdk_pixbuf_new_from_file_at_size (filename, 128, 128, NULL); have_preview = (pixbuf != NULL); g_free (filename); gtk_image_set_from_pixbuf (GTK_IMAGE (preview), pixbuf); if (pixbuf) gobject_unref (pixbuf); gtk_file_chooser_set_preview_widget_active (file_chooser, have_preview); @} @end example @section Adding Extra Widgets You can add extra widgets to a file chooser to provide options that are not present in the default design. For example, you can add a toggle button to give the user the option to open a file in read-only mode. You can use @code{gtk-file-chooser-set-extra-widget} to insert additional widgets in a file chooser. @example @{ GtkWidget *toggle; ... toggle = gtk_check_button_new_with_label ("Open file read-only"); gtk_widget_show (toggle); gtk_file_chooser_set_extra_widget (my_file_chooser, toggle); @} @end example If you want to set more than one extra widget in the file chooser, you can a container such as a GtkVBox or a GtkTable and include your widgets in it. Then, set the container as the whole extra widget. @section Key Bindings Internally, GTK+ implements a file chooser's graphical user interface with the private . This widget has several key bindings and their associated signals. This section describes the available key binding signals. The default keys that activate the key-binding signals in are as follows: Both the individual key and the numeric keypad's "divide" key are supported. Both the individual Up key and the numeric keypad's Up key are supported. You can change these defaults to something else. For example, to add a modifier to a few of the default bindings, you can include the following fragment in your @file{.gtkrc-2.0} file: @example binding "my-own-gtkfilechooser-bindings" @{ bind "Up" @{ "up-folder" () @} bind "Down" @{ "down-folder" () @} bind "Home" @{ "home-folder" () @} @} class "GtkFileChooserDefault" binding "my-own-gtkfilechooser-bindings" @end example @subsection The "GtkFileChooserDefault::location-popup" signal @example void user_function (GtkFileChooserDefault *chooser, const char *path, gpointer user_data); @end example This is used to make the file chooser show a "Location" dialog which the user can use to manually type the name of the file he wishes to select. The @var{path} argument is a string that gets put in the text entry for the file name. By default this is bound to with a @var{path} string of "" (the empty string). It is also bound to with a @var{path} string of "@samp{/}" (a slash): this lets you type and immediately type a path name. On Unix systems, this is bound to (tilde) with a @var{path} string of "~" itself for access to home directories. @table @var @item chooser the object which received the signal. @item path default contents for the text entry for the file name @item user-data user data set when the signal handler was connected. @end table You can create your own bindings for the signal with custom @var{path} strings, and have a crude form of easily-to-type bookmarks. For example, say you access the path @file{/home/username/misc} very frequently. You could then create an shortcut by including the following in your @file{.gtkrc-2.0}: @example binding "misc-shortcut" @{ bind "M" @{ "location-popup" ("/home/username/misc") @} @} class "GtkFileChooserDefault" binding "misc-shortcut" @end example @subsection The "GtkFileChooserDefault::up-folder" signal @example void user_function (GtkFileChooserDefault *chooser, gpointer user_data); @end example This is used to make the file chooser go to the parent of the current folder in the file hierarchy. By default this is bound to and (the Up key in the numeric keypad also works). @table @var @item chooser the object which received the signal. @item user-data user data set when the signal handler was connected. @end table @subsection The "GtkFileChooserDefault::down-folder" signal @example void user_function (GtkFileChooserDefault *chooser, gpointer user_data); @end example This is used to make the file chooser go to a child of the current folder in the file hierarchy. The subfolder that will be used is displayed in the path bar widget of the file chooser. For example, if the path bar is showing "/foo/@emph{bar/}baz", then this will cause the file chooser to switch to the "baz" subfolder. By default this is bound to (the Down key in the numeric keypad also works). @table @var @item chooser the object which received the signal. @item user-data user data set when the signal handler was connected. @end table @subsection The "GtkFileChooserDefault::home-folder" signal @example void user_function (GtkFileChooserDefault *chooser, gpointer user_data); @end example This is used to make the file chooser show the user's home folder in the file list. By default this is bound to (the Home key in the numeric keypad also works). @table @var @item chooser the object which received the signal. @item user-data user data set when the signal handler was connected. @end table @subsection The "GtkFileChooserDefault::desktop-folder" signal @example void user_function (GtkFileChooserDefault *chooser, gpointer user_data); @end example This is used to make the file chooser show the user's Desktop folder in the file list. By default this is bound to . @table @var @item chooser the object which received the signal. @item user-data user data set when the signal handler was connected. @end table @subsection The "GtkFileChooserDefault::quick-bookmark" signal @example void user_function (GtkFileChooserDefault *chooser, gint bookmark_index, gpointer user_data); @end example This is used to make the file chooser switch to the bookmark specified in the @var{bookmark-index} parameter. For example, if you have three bookmarks, you can pass 0, 1, 2 to this signal to switch to each of them, respectively. By default this is bound to , , etc. until . Note that in the default binding, that is actually defined to switch to the bookmark at index 0, and so on successively; is defined to switch to the bookmark at index 10. @table @var @item chooser the object which received the signal. @item bookmark-indes index of the bookmark to switch to; the indices start at 0. @item user-data user data set when the signal handler was connected. @end table @section Usage @include defuns-gtkfilechooser.xml.texi @c %end of fragment guile-gnome-platform-2.16.2/gtk/doc/gtk/defuns-gtkprintcontext.xml.texi0000644000175000017500000000664311670374302026542 0ustar00wingowingo00000000000000 @c %start of fragment @deftp Class Derives from @code{}. This class defines no direct slots. @end deftp @deffn Function gtk-print-context-get-cairo-context (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{cairo-t}) @deffnx Method get-cairo-context Obtains the cairo context that is associated with the @code{}. @table @var @item context a @code{} @item ret the cairo context of @var{context} @end table Since 2.10 @end deffn @deffn Function gtk-print-context-set-cairo-context (self@tie{}@code{}) (cr@tie{}@code{cairo-t}) (dpi_x@tie{}@code{double}) (dpi_y@tie{}@code{double}) @deffnx Method set-cairo-context Sets a new cairo context on a print context. This function is intended to be used when implementing an internal print preview, it is not needed for printing, since GTK+ itself creates a suitable cairo context in that case. @table @var @item context a @code{} @item cr the cairo context @item dpi-x the horizontal resolution to use with @var{cr} @item dpi-y the vertical resolution to use with @var{cr} @end table Since 2.10 @end deffn @deffn Function gtk-print-context-get-page-setup (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{}) @deffnx Method get-page-setup Obtains the @code{} that determines the page dimensions of the @code{}. @table @var @item context a @code{} @item ret the page setup of @var{context} @end table Since 2.10 @end deffn @deffn Function gtk-print-context-get-width (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{double}) @deffnx Method get-width Obtains the width of the @code{}, in pixels. @table @var @item context a @code{} @item ret the width of @var{context} @end table Since 2.10 @end deffn @deffn Function gtk-print-context-get-height (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{double}) @deffnx Method get-height Obtains the height of the @code{}, in pixels. @table @var @item context a @code{} @item ret the height of @var{context} @end table Since 2.10 @end deffn @deffn Function gtk-print-context-get-dpi-x (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{double}) @deffnx Method get-dpi-x Obtains the horizontal resolution of the @code{}, in dots per inch. @table @var @item context a @code{} @item ret the horizontal resolution of @var{context} @end table Since 2.10 @end deffn @deffn Function gtk-print-context-get-dpi-y (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{double}) @deffnx Method get-dpi-y Obtains the vertical resolution of the @code{}, in dots per inch. @table @var @item context a @code{} @item ret the vertical resolution of @var{context} @end table Since 2.10 @end deffn @deffn Function gtk-print-context-get-pango-fontmap (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{}) @deffnx Method get-pango-fontmap Returns a @code{} that is suitable for use with the @code{}. @table @var @item context a @code{} @item ret the font map of @var{context} @end table Since 2.10 @end deffn @c %end of fragment guile-gnome-platform-2.16.2/gtk/doc/gtk/defuns-gtksocket.xml.texi0000644000175000017500000000423611670374302025265 0ustar00wingowingo00000000000000 @c %start of fragment @deftp Class Derives from @code{}. This class defines no direct slots. @end deftp @defop Signal plug-added This signal is emitted when a client is successfully added to the socket. @end defop @defop Signal plug-removed @result{}@tie{}@code{} This signal is emitted when a client is removed from the socket. The default action is to destroy the @code{} widget, so if you want to reuse it you must add a signal handler that returns @samp{@code{#t}}. @end defop @deffn Function gtk-socket-new @result{}@tie{} (ret@tie{}@code{}) Create a new empty @code{}. @table @var @item ret the new @code{}. @end table @end deffn @deffn Function gtk-socket-add-id (self@tie{}@code{}) (window_id@tie{}@code{unsigned-long}) @deffnx Method add-id Adds an XEMBED client, such as a @code{}, to the @code{}. The client may be in the same process or in a different process. To embed a @code{} in a @code{}, you can either create the @code{} with @samp{gtk_plug_new (0)}, call @code{gtk-plug-get-id} to get the window ID of the plug, and then pass that to the @code{gtk-socket-add-id}, or you can call @code{gtk-socket-get-id} to get the window ID for the socket, and call @code{gtk-plug-new} passing in that ID. The @code{} must have already be added into a toplevel window before you can make this call. @table @var @item socket a @code{} @item window-id the window ID of a client participating in the XEMBED protocol. @end table @end deffn @deffn Function gtk-socket-get-id (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{unsigned-long}) @deffnx Method get-id Gets the window ID of a @code{} widget, which can then be used to create a client embedded inside the socket, for instance with @code{gtk-plug-new}. The @code{} must have already be added into a toplevel window before you can make this call. @table @var @item socket a @code{}. @item ret the window ID for the socket @end table @end deffn @c %end of fragment guile-gnome-platform-2.16.2/gtk/doc/gtk/defuns-gtkcelllayout.xml.texi0000644000175000017500000000712311670374302026150 0ustar00wingowingo00000000000000 @c %start of fragment @deftp Class Derives from @code{}. This class defines no direct slots. @end deftp @deffn Function gtk-cell-layout-pack-start (self@tie{}@code{}) (cell@tie{}@code{}) (expand@tie{}@code{bool}) @deffnx Method pack-start Packs the @var{cell} into the beginning of @var{cell-layout}. If @var{expand} is @samp{@code{#f}}, then the @var{cell} is allocated no more space than it needs. Any unused space is divided evenly between cells for which @var{expand} is @samp{@code{#t}}. Note that reusing the same cell renderer is not supported. @table @var @item cell-layout A @code{}. @item cell A @code{}. @item expand @samp{@code{#t}} if @var{cell} is to be given extra space allocated to @var{cell-layout}. @end table Since 2.4 @end deffn @deffn Function gtk-cell-layout-pack-end (self@tie{}@code{}) (cell@tie{}@code{}) (expand@tie{}@code{bool}) @deffnx Method pack-end Adds the @var{cell} to the end of @var{cell-layout}. If @var{expand} is @samp{@code{#f}}, then the @var{cell} is allocated no more space than it needs. Any unused space is divided evenly between cells for which @var{expand} is @samp{@code{#t}}. Note that reusing the same cell renderer is not supported. @table @var @item cell-layout A @code{}. @item cell A @code{}. @item expand @samp{@code{#t}} if @var{cell} is to be given extra space allocated to @var{cell-layout}. @end table Since 2.4 @end deffn @deffn Function gtk-cell-layout-reorder (self@tie{}@code{}) (cell@tie{}@code{}) (position@tie{}@code{int}) @deffnx Method reorder Re-inserts @var{cell} at @var{position}. Note that @var{cell} has already to be packed into @var{cell-layout} for this to function properly. @table @var @item cell-layout A @code{}. @item cell A @code{} to reorder. @item position New position to insert @var{cell} at. @end table Since 2.4 @end deffn @deffn Function gtk-cell-layout-clear (self@tie{}@code{}) @deffnx Method clear Unsets all the mappings on all renderers on @var{cell-layout} and removes all renderers from @var{cell-layout}. @table @var @item cell-layout A @code{}. @end table Since 2.4 @end deffn @deffn Function gtk-cell-layout-add-attribute (self@tie{}@code{}) (cell@tie{}@code{}) (attribute@tie{}@code{mchars}) (column@tie{}@code{int}) @deffnx Method add-attribute Adds an attribute mapping to the list in @var{cell-layout}. The @var{column} is the column of the model to get a value from, and the @var{attribute} is the parameter on @var{cell} to be set from the value. So for example if column 2 of the model contains strings, you could have the "text" attribute of a @code{} get its values from column 2. @table @var @item cell-layout A @code{}. @item cell A @code{}. @item attribute An attribute on the renderer. @item column The column position on the model to get the attribute from. @end table Since 2.4 @end deffn @deffn Function gtk-cell-layout-clear-attributes (self@tie{}@code{}) (cell@tie{}@code{}) @deffnx Method clear-attributes Clears all existing attributes previously set with @code{gtk-cell-layout-set-attributes}. @table @var @item cell-layout A @code{}. @item cell A @code{} to clear the attribute mapping on. @end table Since 2.4 @end deffn @c %end of fragment guile-gnome-platform-2.16.2/gtk/doc/gtk/section-gtkaccessible.xml.texi0000644000175000017500000000030311670374302026241 0ustar00wingowingo00000000000000 @c %start of fragment @node GtkAccessible @chapter GtkAccessible Accessibility support for widgets @section Overview @section Usage @include defuns-gtkaccessible.xml.texi @c %end of fragment guile-gnome-platform-2.16.2/gtk/doc/gtk/section-gtktextmark.xml.texi0000644000175000017500000000320011670374303026003 0ustar00wingowingo00000000000000 @c %start of fragment @node GtkTextMark @chapter GtkTextMark A position in the buffer preserved across buffer modifications @section Overview You may wish to begin by reading the text widget conceptual overview which gives an overview of all the objects and data types related to the text widget and how they work together. A @code{} is like a bookmark in a text buffer; it preserves a position in the text. You can convert the mark to an iterator using @code{gtk-text-buffer-get-iter-at-mark}. Unlike iterators, marks remain valid across buffer mutations, because their behavior is defined when text is inserted or deleted. When text containing a mark is deleted, the mark remains in the position originally occupied by the deleted text. When text is inserted at a mark, a mark with @dfn{left gravity} will be moved to the beginning of the newly-inserted text, and a mark with @dfn{right gravity} will be moved to the end. "left" and "right" here refer to logical direction (left is the toward the start of the buffer); in some languages such as Hebrew the logically-leftmost text is not actually on the left when displayed. Marks are reference counted, but the reference count only controls the validity of the memory; marks can be deleted from the buffer at any time with @code{gtk-text-buffer-delete-mark}. Once deleted from the buffer, a mark is essentially useless. Marks optionally have names; these can be convenient to avoid passing the @code{} object around. Marks are typically created using the @code{gtk-text-buffer-create-mark} function. @section Usage @include defuns-gtktextmark.xml.texi @c %end of fragment guile-gnome-platform-2.16.2/gtk/doc/gtk/defuns-gtktoolbar.xml.texi0000644000175000017500000002212611670374302025435 0ustar00wingowingo00000000000000 @c %start of fragment @deftp Class Derives from @code{}. This class defines the following slots: @table @code @item orientation The orientation of the toolbar @item toolbar-style How to draw the toolbar @item show-arrow If an arrow should be shown if the toolbar doesn't fit @item tooltips If the tooltips of the toolbar should be active or not @item icon-size Size of icons in this toolbar @item icon-size-set Whether the icon-size property has been set @end table @end deftp @defop Signal orientation-changed (arg0@tie{}@code{}) Emitted when the orientation of the toolbar changes. @end defop @defop Signal style-changed (arg0@tie{}@code{}) Emitted when the style of the toolbar changes. @end defop @defop Signal popup-context-menu (arg0@tie{}@code{}) (arg1@tie{}@code{}) (arg2@tie{}@code{}) @result{}@tie{}@code{} Emitted when the user right-clicks the toolbar or uses the keybinding to display a popup menu. Application developers should handle this signal if they want to display a context menu on the toolbar. The context-menu should appear at the coordinates given by @var{x} and @var{y}. The mouse button number is given by the @var{button} parameter. If the menu was popped up using the keybaord, @var{button} is -1. @end defop @defop Signal focus-home-or-end (arg0@tie{}@code{}) @result{}@tie{}@code{} A keybinding signal used internally by GTK+. This signal can't be used in application code @end defop @deffn Function gtk-toolbar-new @result{}@tie{} (ret@tie{}@code{}) Creates a new toolbar. @table @var @item ret the newly-created toolbar. @end table @end deffn @deffn Function gtk-toolbar-insert (self@tie{}@code{}) (item@tie{}@code{}) (pos@tie{}@code{int}) @deffnx Method insert Insert a @code{} into the toolbar at position @var{pos}. If @var{pos} is 0 the item is prepended to the start of the toolbar. If @var{pos} is negative, the item is appended to the end of the toolbar. @table @var @item toolbar a @code{} @item item a @code{} @item pos the position of the new item @end table Since 2.4 @end deffn @deffn Function gtk-toolbar-get-item-index (self@tie{}@code{}) (item@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{int}) @deffnx Method get-item-index Returns the position of @var{item} on the toolbar, starting from 0. It is an error if @var{item} is not a child of the toolbar. @table @var @item toolbar a @code{} @item item a @code{} that is a child of @var{toolbar} @item ret the position of item on the toolbar. @end table Since 2.4 @end deffn @deffn Function gtk-toolbar-get-n-items (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{int}) @deffnx Method get-n-items Returns the number of items on the toolbar. @table @var @item toolbar a @code{} @item ret the number of items on the toolbar @end table Since 2.4 @end deffn @deffn Function gtk-toolbar-get-nth-item (self@tie{}@code{}) (n@tie{}@code{int}) @result{}@tie{} (ret@tie{}@code{}) @deffnx Method get-nth-item Returns the @var{n}'th item on @var{toolbar}, or @samp{@code{#f}} if the toolbar does not contain an @var{n}'th item. @table @var @item toolbar a @code{} @item n A position on the toolbar @item ret The @var{n}'th @code{} on @var{toolbar}, or @samp{@code{#f}} if there isn't an @var{n}'th item. @end table Since 2.4 @end deffn @deffn Function gtk-toolbar-get-drop-index (self@tie{}@code{}) (x@tie{}@code{int}) (y@tie{}@code{int}) @result{}@tie{} (ret@tie{}@code{int}) @deffnx Method get-drop-index Returns the position corresponding to the indicated point on @var{toolbar}. This is useful when dragging items to the toolbar: this function returns the position a new item should be inserted. @var{x} and @var{y} are in @var{toolbar} coordinates. @table @var @item toolbar a @code{} @item x x coordinate of a point on the toolbar @item y y coordinate of a point on the toolbar @item ret The position corresponding to the point (@var{x}, @var{y}) on the toolbar. @end table Since 2.4 @end deffn @deffn Function gtk-toolbar-set-drop-highlight-item (self@tie{}@code{}) (tool_item@tie{}@code{}) (index_@tie{}@code{int}) @deffnx Method set-drop-highlight-item Highlights @var{toolbar} to give an idea of what it would look like if @var{item} was added to @var{toolbar} at the position indicated by @var{index}. If @var{item} is @samp{@code{#f}}, highlighting is turned off. In that case @var{index} is ignored. The @var{tool-item} passed to this function must not be part of any widget hierarchy. When an item is set as drop highlight item it can not added to any widget hierarchy or used as highlight item for another toolbar. @table @var @item toolbar a @code{} @item tool-item a @code{}, or @samp{@code{#f}} to turn of highlighting @item index a position on @var{toolbar} @end table Since 2.4 @end deffn @deffn Function gtk-toolbar-set-show-arrow (self@tie{}@code{}) (show_arrow@tie{}@code{bool}) @deffnx Method set-show-arrow Sets whether to show an overflow menu when @var{toolbar} doesn't have room for all items on it. If @samp{@code{#t}}, items that there are not room are available through an overflow menu. @table @var @item toolbar a @code{} @item show-arrow Whether to show an overflow menu @end table Since 2.4 @end deffn @deffn Function gtk-toolbar-set-orientation (self@tie{}@code{}) (orientation@tie{}@code{}) @deffnx Method set-orientation Sets whether a toolbar should appear horizontally or vertically. @table @var @item toolbar a @code{}. @item orientation a new @code{}. @end table @end deffn @deffn Function gtk-toolbar-set-tooltips (self@tie{}@code{}) (enable@tie{}@code{bool}) @deffnx Method set-tooltips Sets if the tooltips of a toolbar should be active or not. @table @var @item toolbar a @code{}. @item enable set to @samp{@code{#f}} to disable the tooltips, or @samp{@code{#t}} to enable them. @end table @end deffn @deffn Function gtk-toolbar-get-show-arrow (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{bool}) @deffnx Method get-show-arrow Returns whether the toolbar has an overflow menu. See @code{gtk-toolbar-set-show-arrow}. @table @var @item toolbar a @code{} @item ret @samp{@code{#t}} if the toolbar has an overflow menu. @end table Since 2.4 @end deffn @deffn Function gtk-toolbar-get-orientation (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{}) @deffnx Method get-orientation Retrieves the current orientation of the toolbar. See @code{gtk-toolbar-set-orientation}. @table @var @item toolbar a @code{} @item ret the orientation @end table @end deffn @deffn Function gtk-toolbar-get-style (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{}) @deffnx Method get-style Retrieves whether the toolbar has text, icons, or both . See @code{gtk-toolbar-set-style}. @table @var @item toolbar a @code{} @item ret the current style of @var{toolbar} @end table @end deffn @deffn Function gtk-toolbar-get-icon-size (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{}) @deffnx Method get-icon-size Retrieves the icon size for the toolbar. See @code{gtk-toolbar-set-icon-size}. @table @var @item toolbar a @code{} @item ret the current icon size for the icons on the toolbar. @end table @end deffn @deffn Function gtk-toolbar-get-tooltips (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{bool}) @deffnx Method get-tooltips Retrieves whether tooltips are enabled. See @code{gtk-toolbar-set-tooltips}. @table @var @item toolbar a @code{} @item ret @samp{@code{#t}} if tooltips are enabled @end table @end deffn @deffn Function gtk-toolbar-get-relief-style (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{}) @deffnx Method get-relief-style Returns the relief style of buttons on @var{toolbar}. See @code{gtk-button-set-relief}. @table @var @item toolbar a @code{} @item ret The relief style of buttons on @var{toolbar}. @end table Since 2.4 @end deffn @deffn Function gtk-toolbar-set-style (self@tie{}@code{}) (style@tie{}@code{}) @deffnx Method set-style Alters the view of @var{toolbar} to display either icons only, text only, or both. @table @var @item toolbar a @code{}. @item style the new style for @var{toolbar}. @end table @end deffn @deffn Function gtk-toolbar-unset-style (self@tie{}@code{}) @deffnx Method unset-style Unsets a toolbar style set with @code{gtk-toolbar-set-style}, so that user preferences will be used to determine the toolbar style. @table @var @item toolbar a @code{} @end table @end deffn @c %end of fragment guile-gnome-platform-2.16.2/gtk/doc/gtk/section-gtkrecentchooserwidget.xml.texi0000644000175000017500000000135711670374303030226 0ustar00wingowingo00000000000000 @c %start of fragment @node GtkRecentChooserWidget @chapter GtkRecentChooserWidget Displays recently used files @section Overview @code{} is a widget suitable for selecting recently used files. It is the main building block of a @code{}. Most applications will only need to use the latter; you can use @code{} as part of a larger window if you have special needs. Note that @code{} does not have any methods of its own. Instead, you should use the functions that work on a @code{}. Recently used files are supported since GTK+ 2.10. @section Usage @include defuns-gtkrecentchooserwidget.xml.texi @c %end of fragment guile-gnome-platform-2.16.2/gtk/doc/gtk/section-gtktextview.xml.texi0000644000175000017500000000055111670374303026031 0ustar00wingowingo00000000000000 @c %start of fragment @node GtkTextView @chapter GtkTextView Widget that displays a @section Overview You may wish to begin by reading the text widget conceptual overview which gives an overview of all the objects and data types related to the text widget and how they work together. @section Usage @include defuns-gtktextview.xml.texi @c %end of fragment guile-gnome-platform-2.16.2/gtk/doc/gtk/defuns-gtkcalendar.xml.texi0000644000175000017500000001140211670374302025537 0ustar00wingowingo00000000000000 @c %start of fragment @deftp Class Derives from @code{}. This class defines the following slots: @table @code @item year The selected year @item month The selected month (as a number between 0 and 11) @item day The selected day (as a number between 1 and 31, or 0 to unselect the currently selected day) @item show-heading If TRUE, a heading is displayed @item show-day-names If TRUE, day names are displayed @item no-month-change If TRUE, the selected month cannot be changed @item show-week-numbers If TRUE, week numbers are displayed @end table @end deftp @defop Signal month-changed Emitted when the user clicks a button to change the selected month on a calendar. @end defop @defop Signal day-selected Emitted when the user selects a day. @end defop @defop Signal day-selected-double-click @end defop @defop Signal prev-month @end defop @defop Signal next-month @end defop @defop Signal prev-year @end defop @defop Signal next-year @end defop @deffn Function gtk-calendar-new @result{}@tie{} (ret@tie{}@code{}) Creates a new calendar, with the current date being selected. @table @var @item ret a newly @code{} widget @end table @end deffn @deffn Function gtk-calendar-select-month (self@tie{}@code{}) (month@tie{}@code{unsigned-int}) (year@tie{}@code{unsigned-int}) @result{}@tie{} (ret@tie{}@code{bool}) @deffnx Method select-month Shifts the calendar to a different month. @table @var @item calendar a @code{} @item month a month number between 0 and 11. @item year the year the month is in. @item ret @samp{@code{#t}}, always @end table @end deffn @deffn Function gtk-calendar-select-day (self@tie{}@code{}) (day@tie{}@code{unsigned-int}) @deffnx Method select-day Selects a day from the current month. @table @var @item calendar a @code{}. @item day the day number between 1 and 31, or 0 to unselect the currently selected day. @end table @end deffn @deffn Function gtk-calendar-mark-day (self@tie{}@code{}) (day@tie{}@code{unsigned-int}) @result{}@tie{} (ret@tie{}@code{bool}) @deffnx Method mark-day Places a visual marker on a particular day. @table @var @item calendar a @code{} @item day the day number to mark between 1 and 31. @item ret @samp{@code{#t}}, always @end table @end deffn @deffn Function gtk-calendar-unmark-day (self@tie{}@code{}) (day@tie{}@code{unsigned-int}) @result{}@tie{} (ret@tie{}@code{bool}) @deffnx Method unmark-day Removes the visual marker from a particular day. @table @var @item calendar a @code{}. @item day the day number to unmark between 1 and 31. @item ret @samp{@code{#t}}, always @end table @end deffn @deffn Function gtk-calendar-clear-marks (self@tie{}@code{}) @deffnx Method clear-marks Remove all visual markers. @table @var @item calendar a @code{} @end table @end deffn @deffn Function gtk-calendar-set-display-options (self@tie{}@code{}) (flags@tie{}@code{}) @deffnx Method set-display-options Sets display options (whether to display the heading and the month headings). @table @var @item calendar a @code{} @item flags the display options to set @end table Since 2.4 @end deffn @deffn Function gtk-calendar-get-date (self@tie{}@code{}) @result{}@tie{} (year@tie{}@code{unsigned-int}) (month@tie{}@code{unsigned-int}) (day@tie{}@code{unsigned-int}) @deffnx Method get-date Obtains the selected date from a @code{}. @table @var @item calendar a @code{} @item year location to store the year number, or @samp{@code{#f}} @item month location to store the month number (between 0 and 11), or @samp{@code{#f}} @item day location to store the day number (between 1 and 31), or @samp{@code{#f}} @end table @end deffn @deffn Function gtk-calendar-freeze (self@tie{}@code{}) @deffnx Method freeze @samp{gtk_calendar_freeze} has been deprecated since version 2.8 and should not be used in newly-written code. Does nothing. Previously locked the display of the calendar until it was thawed with @code{gtk-calendar-thaw}. @table @var @item calendar a @code{} @end table @end deffn @deffn Function gtk-calendar-thaw (self@tie{}@code{}) @deffnx Method thaw @samp{gtk_calendar_thaw} has been deprecated since version 2.8 and should not be used in newly-written code. Does nothing. Previously defrosted a calendar; all the changes made since the last @code{gtk-calendar-freeze} were displayed. @table @var @item calendar a @code{} @end table @end deffn @c %end of fragment guile-gnome-platform-2.16.2/gtk/doc/gtk/defuns-gtkrecentchooserwidget.xml.texi0000644000175000017500000000101711670374302030036 0ustar00wingowingo00000000000000 @c %start of fragment @deftp Class Derives from @code{}, @code{}. This class defines no direct slots. @end deftp @deffn Function gtk-recent-chooser-widget-new @result{}@tie{} (ret@tie{}@code{}) Creates a new @code{} object. This is an embeddable widget used to access the recently used resources list. @table @var @item ret a new @code{} @end table Since 2.10 @end deffn @c %end of fragment guile-gnome-platform-2.16.2/gtk/doc/gtk/defuns-gtkradioaction.xml.texi0000644000175000017500000000673411670374302026276 0ustar00wingowingo00000000000000 @c %start of fragment @deftp Class Derives from @code{}. This class defines the following slots: @table @code @item value The value returned by gtk_radio_action_get_current_value() when this action is the current action of its group. @item group The radio action whose group this action belongs to. @item current-value The value property of the currently active member of the group to which this action belongs. @end table @end deftp @defop Signal changed (arg0@tie{}@code{}) The ::changed signal is emitted on every member of a radio group when the active member is changed. The signal gets emitted after the ::activate signals for the previous and current active members. Since 2.4 @end defop @deffn Function gtk-radio-action-new (name@tie{}@code{mchars}) (label@tie{}@code{mchars}) (tooltip@tie{}@code{mchars}) (stock_id@tie{}@code{mchars}) (value@tie{}@code{int}) @result{}@tie{} (ret@tie{}@code{}) Creates a new @code{} object. To add the action to a @code{} and set the accelerator for the action, call @code{gtk-action-group-add-action-with-accel}. @table @var @item name A unique name for the action @item label The label displayed in menu items and on buttons @item tooltip A tooltip for this action @item stock-id The stock icon to display in widgets representing this action @item value The value which @code{gtk-radio-action-get-current-value} should return if this action is selected. @item ret a new @code{} @end table Since 2.4 @end deffn @deffn Function gtk-radio-action-get-group (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{}) @deffnx Method get-group Returns the list representing the radio group for this object. Note that the returned list is only valid until the next change to the group. A common way to set up a group of radio group is the following: @example GSList *group = NULL; GtkRadioAction *action; while (/* more actions to add */) @{ action = gtk_radio_action_new (...); gtk_radio_action_set_group (action, group); group = gtk_radio_action_get_group (action); @} @end example @table @var @item action the action object @item ret the list representing the radio group for this object @end table Since 2.4 @end deffn @deffn Function gtk-radio-action-set-group (self@tie{}@code{}) (group@tie{}@code{}) @deffnx Method set-group Sets the radio group for the radio action object. @table @var @item action the action object @item group a list representing a radio group @end table Since 2.4 @end deffn @deffn Function gtk-radio-action-get-current-value (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{int}) @deffnx Method get-current-value Obtains the value property of the currently active member of the group to which @var{action} belongs. @table @var @item action a @code{} @item ret The value of the currently active group member @end table Since 2.4 @end deffn @deffn Function gtk-radio-action-set-current-value (self@tie{}@code{}) (current_value@tie{}@code{int}) @deffnx Method set-current-value Sets the currently active group member to the member with value property @var{current-value}. @table @var @item action a @code{} @item current-value the new value @end table Since 2.10 @end deffn @c %end of fragment guile-gnome-platform-2.16.2/gtk/doc/gtk/section-gtkfilechooserdialog.xml.texi0000644000175000017500000000733411670374302027641 0ustar00wingowingo00000000000000 @c %start of fragment @node GtkFileChooserDialog @chapter GtkFileChooserDialog A file chooser dialog, suitable for "File/Open" or "File/Save" commands @section Overview @code{} is a dialog box suitable for use with "File/Open" or "File/Save as" commands. This widget works by putting a @code{} inside a @code{}. It exposes the @code{} interface, so you can use all of the @code{} functions on the file chooser dialog as well as those for @code{}. Note that @code{} does not have any methods of its own. Instead, you should use the functions that work on a @code{}. In the simplest of cases, you can the following code to use @code{} to select a file for opening: @example GtkWidget *dialog; dialog = gtk_file_chooser_dialog_new ("Open File", parent_window, GTK_FILE_CHOOSER_ACTION_OPEN, GTK_STOCK_CANCEL, GTK_RESPONSE_CANCEL, GTK_STOCK_OPEN, GTK_RESPONSE_ACCEPT, NULL); if (gtk_dialog_run (GTK_DIALOG (dialog)) == GTK_RESPONSE_ACCEPT) @{ char *filename; filename = gtk_file_chooser_get_filename (GTK_FILE_CHOOSER (dialog)); open_file (filename); g_free (filename); @} gtk_widget_destroy (dialog); @end example To use a dialog for saving, you can use this: @example GtkWidget *dialog; dialog = gtk_file_chooser_dialog_new ("Save File", parent_window, GTK_FILE_CHOOSER_ACTION_SAVE, GTK_STOCK_CANCEL, GTK_RESPONSE_CANCEL, GTK_STOCK_SAVE, GTK_RESPONSE_ACCEPT, NULL); gtk_file_chooser_set_do_overwrite_confirmation (GTK_FILE_CHOOSER (dialog), TRUE); if (user_edited_a_new_document) @{ gtk_file_chooser_set_current_folder (GTK_FILE_CHOOSER (dialog), default_folder_for_saving); gtk_file_chooser_set_current_name (GTK_FILE_CHOOSER (dialog), "Untitled document"); @} else gtk_file_chooser_set_filename (GTK_FILE_CHOOSER (dialog), filename_for_existing_document); if (gtk_dialog_run (GTK_DIALOG (dialog)) == GTK_RESPONSE_ACCEPT) @{ char *filename; filename = gtk_file_chooser_get_filename (GTK_FILE_CHOOSER (dialog)); save_to_file (filename); g_free (filename); @} gtk_widget_destroy (dialog); @end example @code{} inherits from @code{}, so buttons that go in its action area have response codes such as @code{} and @code{}. For example, you could call @code{gtk-file-chooser-dialog-new} as follows: @example GtkWidget *dialog; dialog = gtk_file_chooser_dialog_new ("Open File", parent_window, GTK_FILE_CHOOSER_ACTION_OPEN, GTK_STOCK_CANCEL, GTK_RESPONSE_CANCEL, GTK_STOCK_OPEN, GTK_RESPONSE_ACCEPT, NULL); @end example This will create buttons for "Cancel" and "Open" that use stock response identifiers from @code{}. For most dialog boxes you can use your own custom response codes rather than the ones in @code{}, but @code{} assumes that its "accept"-type action, e.g. an "Open" or "Save" button, @emph{will} have one of the following response codes: This is because @code{} must intercept responses and switch to folders if appropriate, rather than letting the dialog terminate — the implementation uses these known response codes to know which responses can be blocked if appropriate. To summarize, make sure you use a stock response code when you use @code{} to ensure proper operation. @section Usage @include defuns-gtkfilechooserdialog.xml.texi @c %end of fragment guile-gnome-platform-2.16.2/gtk/doc/gtk/defuns-gtktooltips.xml.texi0000644000175000017500000000403111670374302025643 0ustar00wingowingo00000000000000 @c %start of fragment @deftp Class Derives from @code{}. This class defines no direct slots. @end deftp @deffn Function gtk-tooltips-new @result{}@tie{} (ret@tie{}@code{}) Creates an empty group of tooltips. This function initialises a @code{} structure. Without at least one such structure, you can not add tips to your application. @table @var @item ret a new @code{} group for you to use. @end table @end deffn @deffn Function gtk-tooltips-enable (self@tie{}@code{}) @deffnx Method enable Allows the user to see your tooltips as they navigate your application. @table @var @item tooltips a @code{}. @end table @end deffn @deffn Function gtk-tooltips-disable (self@tie{}@code{}) @deffnx Method disable Causes all tooltips in @var{tooltips} to become inactive. Any widgets that have tips associated with that group will no longer display their tips until they are enabled again with @code{gtk-tooltips-enable}. @table @var @item tooltips a @code{}. @end table @end deffn @deffn Function gtk-tooltips-set-tip (self@tie{}@code{}) (widget@tie{}@code{}) (tip_text@tie{}@code{mchars}) (tip_private@tie{}@code{mchars}) @deffnx Method set-tip Adds a tooltip containing the message @var{tip-text} to the specified @code{}. @table @var @item tooltips a @code{}. @item widget the @code{} you wish to associate the tip with. @item tip-text a string containing the tip itself. @item tip-private a string of any further information that may be useful if the user gets stuck. @end table @end deffn @deffn Function gtk-tooltips-force-window (self@tie{}@code{}) @deffnx Method force-window Ensures that the window used for displaying the given @var{tooltips} is created. Applications should never have to call this function, since GTK+ takes care of this. @table @var @item tooltips a @code{} @end table @end deffn @c %end of fragment guile-gnome-platform-2.16.2/gtk/doc/gtk/defuns-gtkhbbox.xml.texi0000644000175000017500000000056311670374302025076 0ustar00wingowingo00000000000000 @c %start of fragment @deftp Class Derives from @code{}. This class defines no direct slots. @end deftp @deffn Function gtk-hbutton-box-new @result{}@tie{} (ret@tie{}@code{}) Creates a new horizontal button box. @table @var @item ret a new button box @code{}. @end table @end deffn @c %end of fragment guile-gnome-platform-2.16.2/gtk/doc/gtk/guile-gnome-gtk.info-30000644000175000017500000111437311752516272024335 0ustar00wingowingo00000000000000This is guile-gnome-gtk.info, produced by makeinfo version 4.13 from guile-gnome-gtk.texi. This manual is for `(gnome gtk)' (version 2.16.2, updated 9 December 2011) Copyright 1997-2007 Damon Chaplin and others This work may be reproduced and distributed in whole or in part, in any medium, physical or electronic, so as long as this copyright notice remains intact and unchanged on all copies. Commercial redistribution is permitted and encouraged, but you may not redistribute, in whole or in part, under terms more restrictive than those under which you received it. If you redistribute a modified or translated version of this work, you must also make the source code to the modified or translated version available in electronic form without charge. However, mere aggregation as part of a larger work shall not count as a modification for this purpose. All code examples in this work are placed into the public domain, and may be used, modified and redistributed without restriction. BECAUSE THIS WORK IS LICENSED FREE OF CHARGE, THERE IS NO WARRANTY FOR THE WORK, TO THE EXTENT PERMITTED BY APPLICABLE LAW. EXCEPT WHEN OTHERWISE STATED IN WRITING THE COPYRIGHT HOLDERS AND/OR OTHER PARTIES PROVIDE THE WORK "AS IS" WITHOUT WARRANTY OF ANY KIND, EITHER EXPRESSED OR IMPLIED, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE. SHOULD THE WORK PROVE DEFECTIVE, YOU ASSUME THE COST OF ALL NECESSARY REPAIR OR CORRECTION. IN NO EVENT UNLESS REQUIRED BY APPLICABLE LAW OR AGREED TO IN WRITING WILL ANY COPYRIGHT HOLDER, OR ANY OTHER PARTY WHO MAY MODIFY AND/OR REDISTRIBUTE THE WORK AS PERMITTED ABOVE, BE LIABLE TO YOU FOR DAMAGES, INCLUDING ANY GENERAL, SPECIAL, INCIDENTAL OR CONSEQUENTIAL DAMAGES ARISING OUT OF THE USE OR INABILITY TO USE THE WORK, EVEN IF SUCH HOLDER OR OTHER PARTY HAS BEEN ADVISED OF THE POSSIBILITY OF SUCH DAMAGES. INFO-DIR-SECTION The Algorithmic Language Scheme START-INFO-DIR-ENTRY * Guile-Gtk: (guile-gnome-gtk.info). The GIMP ToolKit. END-INFO-DIR-ENTRY  File: guile-gnome-gtk.info, Node: GtkTearoffMenuItem, Next: GtkToolbar, Prev: GtkSeparatorMenuItem, Up: Top 64 GtkTearoffMenuItem ********************* A menu item used to tear off and reattach its menu 64.1 Overview ============= A `' is a special `' which is used to tear off and reattach its menu. When its menu is shown normally, the `' is drawn as a dotted line indicating that the menu can be torn off. Activating it causes its menu to be torn off and displayed in its own window as a tearoff menu. When its menu is shown as a tearoff menu, the `' is drawn as a dotted line which has a left pointing arrow graphic indicating that the tearoff menu can be reattached. Activating it will erase the tearoff menu window. 64.2 Usage ========== -- Class: Derives from `'. This class defines no direct slots. -- Function: gtk-tearoff-menu-item-new => (ret `') Creates a new `'. RET a new `'.  File: guile-gnome-gtk.info, Node: GtkToolbar, Next: GtkToolItem, Prev: GtkTearoffMenuItem, Up: Top 65 GtkToolbar ************* Create bars of buttons and other widgets 65.1 Overview ============= A toolbar is created with a call to `gtk-toolbar-new'. A toolbar can contain instances of a subclass of `'. To add a `' to the a toolbar, use `gtk-toolbar-insert'. To remove an item from the toolbar use `gtk-container-remove'. To add a button to the toolbar, add an instance of `'. Toolbar items can be visually grouped by adding instances of `' to the toolbar. If a `' has the "expand" property set to ``#t'' and the "draw" property set to ``#f'' the effect is to force all following items to the end of the toolbar. Creating a context menu for the toolbar can be done by connecting to the `' signal. 65.2 Usage ========== -- Class: Derives from `'. This class defines the following slots: `orientation' The orientation of the toolbar `toolbar-style' How to draw the toolbar `show-arrow' If an arrow should be shown if the toolbar doesn't fit `tooltips' If the tooltips of the toolbar should be active or not `icon-size' Size of icons in this toolbar `icon-size-set' Whether the icon-size property has been set -- Signal on : orientation-changed (arg0 `') Emitted when the orientation of the toolbar changes. -- Signal on : style-changed (arg0 `') Emitted when the style of the toolbar changes. -- Signal on : popup-context-menu (arg0 `') (arg1 `') (arg2 `') => `' Emitted when the user right-clicks the toolbar or uses the keybinding to display a popup menu. Application developers should handle this signal if they want to display a context menu on the toolbar. The context-menu should appear at the coordinates given by X and Y. The mouse button number is given by the BUTTON parameter. If the menu was popped up using the keybaord, BUTTON is -1. -- Signal on : focus-home-or-end (arg0 `') => `' A keybinding signal used internally by GTK+. This signal can't be used in application code -- Function: gtk-toolbar-new => (ret `') Creates a new toolbar. RET the newly-created toolbar. -- Function: gtk-toolbar-insert (self `') (item `') (pos `int') -- Method: insert Insert a `' into the toolbar at position POS. If POS is 0 the item is prepended to the start of the toolbar. If POS is negative, the item is appended to the end of the toolbar. TOOLBAR a `' ITEM a `' POS the position of the new item Since 2.4 -- Function: gtk-toolbar-get-item-index (self `') (item `') => (ret `int') -- Method: get-item-index Returns the position of ITEM on the toolbar, starting from 0. It is an error if ITEM is not a child of the toolbar. TOOLBAR a `' ITEM a `' that is a child of TOOLBAR RET the position of item on the toolbar. Since 2.4 -- Function: gtk-toolbar-get-n-items (self `') => (ret `int') -- Method: get-n-items Returns the number of items on the toolbar. TOOLBAR a `' RET the number of items on the toolbar Since 2.4 -- Function: gtk-toolbar-get-nth-item (self `') (n `int') => (ret `') -- Method: get-nth-item Returns the N'th item on TOOLBAR, or ``#f'' if the toolbar does not contain an N'th item. TOOLBAR a `' N A position on the toolbar RET The N'th `' on TOOLBAR, or ``#f'' if there isn't an N'th item. Since 2.4 -- Function: gtk-toolbar-get-drop-index (self `') (x `int') (y `int') => (ret `int') -- Method: get-drop-index Returns the position corresponding to the indicated point on TOOLBAR. This is useful when dragging items to the toolbar: this function returns the position a new item should be inserted. X and Y are in TOOLBAR coordinates. TOOLBAR a `' X x coordinate of a point on the toolbar Y y coordinate of a point on the toolbar RET The position corresponding to the point (X, Y) on the toolbar. Since 2.4 -- Function: gtk-toolbar-set-drop-highlight-item (self `') (tool_item `') (index_ `int') -- Method: set-drop-highlight-item Highlights TOOLBAR to give an idea of what it would look like if ITEM was added to TOOLBAR at the position indicated by INDEX. If ITEM is ``#f'', highlighting is turned off. In that case INDEX is ignored. The TOOL-ITEM passed to this function must not be part of any widget hierarchy. When an item is set as drop highlight item it can not added to any widget hierarchy or used as highlight item for another toolbar. TOOLBAR a `' TOOL-ITEM a `', or ``#f'' to turn of highlighting INDEX a position on TOOLBAR Since 2.4 -- Function: gtk-toolbar-set-show-arrow (self `') (show_arrow `bool') -- Method: set-show-arrow Sets whether to show an overflow menu when TOOLBAR doesn't have room for all items on it. If ``#t'', items that there are not room are available through an overflow menu. TOOLBAR a `' SHOW-ARROW Whether to show an overflow menu Since 2.4 -- Function: gtk-toolbar-set-orientation (self `') (orientation `') -- Method: set-orientation Sets whether a toolbar should appear horizontally or vertically. TOOLBAR a `'. ORIENTATION a new `'. -- Function: gtk-toolbar-set-tooltips (self `') (enable `bool') -- Method: set-tooltips Sets if the tooltips of a toolbar should be active or not. TOOLBAR a `'. ENABLE set to ``#f'' to disable the tooltips, or ``#t'' to enable them. -- Function: gtk-toolbar-get-show-arrow (self `') => (ret `bool') -- Method: get-show-arrow Returns whether the toolbar has an overflow menu. See `gtk-toolbar-set-show-arrow'. TOOLBAR a `' RET ``#t'' if the toolbar has an overflow menu. Since 2.4 -- Function: gtk-toolbar-get-orientation (self `') => (ret `') -- Method: get-orientation Retrieves the current orientation of the toolbar. See `gtk-toolbar-set-orientation'. TOOLBAR a `' RET the orientation -- Function: gtk-toolbar-get-style (self `') => (ret `') -- Method: get-style Retrieves whether the toolbar has text, icons, or both . See `gtk-toolbar-set-style'. TOOLBAR a `' RET the current style of TOOLBAR -- Function: gtk-toolbar-get-icon-size (self `') => (ret `') -- Method: get-icon-size Retrieves the icon size for the toolbar. See `gtk-toolbar-set-icon-size'. TOOLBAR a `' RET the current icon size for the icons on the toolbar. -- Function: gtk-toolbar-get-tooltips (self `') => (ret `bool') -- Method: get-tooltips Retrieves whether tooltips are enabled. See `gtk-toolbar-set-tooltips'. TOOLBAR a `' RET ``#t'' if tooltips are enabled -- Function: gtk-toolbar-get-relief-style (self `') => (ret `') -- Method: get-relief-style Returns the relief style of buttons on TOOLBAR. See `gtk-button-set-relief'. TOOLBAR a `' RET The relief style of buttons on TOOLBAR. Since 2.4 -- Function: gtk-toolbar-set-style (self `') (style `') -- Method: set-style Alters the view of TOOLBAR to display either icons only, text only, or both. TOOLBAR a `'. STYLE the new style for TOOLBAR. -- Function: gtk-toolbar-unset-style (self `') -- Method: unset-style Unsets a toolbar style set with `gtk-toolbar-set-style', so that user preferences will be used to determine the toolbar style. TOOLBAR a `'  File: guile-gnome-gtk.info, Node: GtkToolItem, Next: GtkSeparatorToolItem, Prev: GtkToolbar, Up: Top 66 GtkToolItem ************** The base class of widgets that can be added to GtkToolbar 66.1 Overview ============= `'s are widgets that can appear on a toolbar. To create a toolbar item that contain something else than a button, use `gtk-tool-item-new'. Use `gtk-container-add' to add a child widget to the tool item. For toolbar items that contain buttons, see the `', `' and `' classes. 66.2 Usage ========== -- Class: Derives from `'. This class defines the following slots: `visible-horizontal' Whether the toolbar item is visible when the toolbar is in a horizontal orientation. `visible-vertical' Whether the toolbar item is visible when the toolbar is in a vertical orientation. `is-important' Whether the toolbar item is considered important. When TRUE, toolbar buttons show text in GTK_TOOLBAR_BOTH_HORIZ mode -- Signal on : create-menu-proxy => `' This signal is emitted when the toolbar needs information from TOOL-ITEM about whether the item should appear in the toolbar overflow menu. In response the tool item should either * call `gtk-tool-item-set-proxy-menu-item' with a ``#f'' pointer and return ``#t'' to indicate that the item should not appear in the overflow menu * call `gtk-tool-item-set-proxy-menu-item' with a new menu item and return ``#t'', or * return ``#f'' to indicate that the signal was not handled by the item. This means that the item will not appear in the overflow menu unless a later handler installs a menu item. The toolbar may cache the result of this signal. When the tool item changes how it will respond to this signal it must call `gtk-tool-item-rebuild-menu' to invalidate the cache and ensure that the toolbar rebuilds its overflow menu. -- Signal on : toolbar-reconfigured This signal is emitted when some property of the toolbar that the item is a child of changes. For custom subclasses of `', the default handler of this signal use the functions to find out what the toolbar should look like and change themselves accordingly. * `gtk-toolbar-get-orientation' * `gtk-toolbar-get-style' * `gtk-toolbar-get-icon-size' * `gtk-toolbar-get-relief-style' -- Signal on : set-tooltip (arg0 `') (arg1 `') (arg2 `') => `' This signal is emitted when the toolitem's tooltip changes. Application developers can use `gtk-tool-item-set-tooltip' to set the item's tooltip. -- Function: gtk-tool-item-new => (ret `') Creates a new `' RET the new `' Since 2.4 -- Function: gtk-tool-item-set-homogeneous (self `') (homogeneous `bool') -- Method: set-homogeneous Sets whether TOOL-ITEM is to be allocated the same size as other homogeneous items. The effect is that all homogeneous items will have the same width as the widest of the items. TOOL-ITEM a `' HOMOGENEOUS whether TOOL-ITEM is the same size as other homogeneous items Since 2.4 -- Function: gtk-tool-item-get-homogeneous (self `') => (ret `bool') -- Method: get-homogeneous Returns whether TOOL-ITEM is the same size as other homogeneous items. See `gtk-tool-item-set-homogeneous'. TOOL-ITEM a `' RET ``#t'' if the item is the same size as other homogeneous item.s Since 2.4 -- Function: gtk-tool-item-set-expand (self `') (expand `bool') -- Method: set-expand Sets whether TOOL-ITEM is allocated extra space when there is more room on the toolbar then needed for the items. The effect is that the item gets bigger when the toolbar gets bigger and smaller when the toolbar gets smaller. TOOL-ITEM a `' EXPAND Whether TOOL-ITEM is allocated extra space Since 2.4 -- Function: gtk-tool-item-get-expand (self `') => (ret `bool') -- Method: get-expand Returns whether TOOL-ITEM is allocated extra space. See `gtk-tool-item-set-expand'. TOOL-ITEM a `' RET ``#t'' if TOOL-ITEM is allocated extra space. Since 2.4 -- Function: gtk-tool-item-set-tooltip (self `') (tooltips `') (tip_text `mchars') (tip_private `mchars') -- Method: set-tooltip Sets the `' object to be used for TOOL-ITEM, the text to be displayed as tooltip on the item and the private text to be used. See `gtk-tooltips-set-tip'. TOOL-ITEM a `' TOOLTIPS The `' object to be used TIP-TEXT text to be used as tooltip text for TOOL-ITEM TIP-PRIVATE text to be used as private tooltip text Since 2.4 -- Function: gtk-tool-item-set-use-drag-window (self `') (use_drag_window `bool') -- Method: set-use-drag-window Sets whether TOOLITEM has a drag window. When ``#t'' the toolitem can be used as a drag source through `gtk-drag-source-set'. When TOOLITEM has a drag window it will intercept all events, even those that would otherwise be sent to a child of TOOLITEM. TOOLITEM a `' USE-DRAG-WINDOW Whether TOOLITEM has a drag window. Since 2.4 -- Function: gtk-tool-item-get-use-drag-window (self `') => (ret `bool') -- Method: get-use-drag-window Returns whether TOOLITEM has a drag window. See `gtk-tool-item-set-use-drag-window'. TOOLITEM a `' RET ``#t'' if TOOLITEM uses a drag window. Since 2.4 -- Function: gtk-tool-item-set-visible-vertical (self `') (visible_vertical `bool') -- Method: set-visible-vertical Sets whether TOOLITEM is visible when the toolbar is docked vertically. Some tool items, such as text entries, are too wide to be useful on a vertically docked toolbar. If VISIBLE-VERTICAL is ``#f''TOOLITEM will not appear on toolbars that are docked vertically. TOOLITEM a `' VISIBLE-VERTICAL whether TOOLITEM is visible when the toolbar is in vertical mode Since 2.4 -- Function: gtk-tool-item-get-visible-vertical (self `') => (ret `bool') -- Method: get-visible-vertical Returns whether TOOLITEM is visible when the toolbar is docked vertically. See `gtk-tool-item-set-visible-vertical'. TOOLITEM a `' RET Whether TOOLITEM is visible when the toolbar is docked vertically Since 2.4 -- Function: gtk-tool-item-set-is-important (self `') (is_important `bool') -- Method: set-is-important Sets whether TOOL-ITEM should be considered important. The `' class uses this property to determine whether to show or hide its label when the toolbar style is `GTK_TOOLBAR_BOTH_HORIZ'. The result is that only tool buttons with the "is_important" property set have labels, an effect known as "priority text" TOOL-ITEM a `' IS-IMPORTANT whether the tool item should be considered important Since 2.4 -- Function: gtk-tool-item-get-is-important (self `') => (ret `bool') -- Method: get-is-important Returns whether TOOL-ITEM is considered important. See `gtk-tool-item-set-is-important' TOOL-ITEM a `' RET ``#t'' if TOOL-ITEM is considered important. Since 2.4 -- Function: gtk-tool-item-get-icon-size (self `') => (ret `') -- Method: get-icon-size Returns the icon size used for TOOL-ITEM. Custom subclasses of `' should call this function to find out what size icons they should use. TOOL-ITEM a `' RET a `' indicating the icon size used for TOOL-ITEM Since 2.4 -- Function: gtk-tool-item-get-orientation (self `') => (ret `') -- Method: get-orientation Returns the orientation used for TOOL-ITEM. Custom subclasses of `' should call this function to find out what size icons they should use. TOOL-ITEM a `' RET a `' indicating the orientation used for TOOL-ITEM Since 2.4 -- Function: gtk-tool-item-get-toolbar-style (self `') => (ret `') -- Method: get-toolbar-style Returns the toolbar style used for TOOL-ITEM. Custom subclasses of `' should call this function in the handler of the GtkToolItem::toolbar_reconfigured signal to find out in what style the toolbar is displayed and change themselves accordingly Possibilities are: * GTK_TOOLBAR_BOTH, meaning the tool item should show both an icon and a label, stacked vertically * GTK_TOOLBAR_ICONS, meaning the toolbar shows only icons * GTK_TOOLBAR_TEXT, meaning the tool item should only show text * GTK_TOOLBAR_BOTH_HORIZ, meaning the tool item should show both an icon and a label, arranged horizontally (however, note the `' that makes tool buttons not show labels when the toolbar style is GTK_TOOLBAR_BOTH_HORIZ. TOOL-ITEM a `' RET A `' indicating the toolbar style used for TOOL-ITEM. Since 2.4 -- Function: gtk-tool-item-get-relief-style (self `') => (ret `') -- Method: get-relief-style Returns the relief style of TOOL-ITEM. See `gtk-button-set-relief-style'. Custom subclasses of `' should call this function in the handler of the `' signal to find out the relief style of buttons. TOOL-ITEM a `' RET a `' indicating the relief style used for TOOL-ITEM. Since 2.4 -- Function: gtk-tool-item-get-proxy-menu-item (self `') (menu_item_id `mchars') => (ret `') -- Method: get-proxy-menu-item If MENU-ITEM-ID matches the string passed to `gtk-tool-item-set-proxy-menu-item' return the corresponding `'. Custom subclasses of `' should use this function to update their menu item when the `' changes. That the MENU-ITEM-IDs must match ensures that a `' will not inadvertently change a menu item that they did not create. TOOL-ITEM a `' MENU-ITEM-ID a string used to identify the menu item RET The `' passed to `gtk-tool-item-set-proxy-menu-item', if the MENU-ITEM-IDs match. Since 2.4 -- Function: gtk-tool-item-set-proxy-menu-item (self `') (menu_item_id `mchars') (menu_item `') -- Method: set-proxy-menu-item Sets the `' used in the toolbar overflow menu. The MENU-ITEM-ID is used to identify the caller of this function and should also be used with `gtk-tool-item-get-proxy-menu-item'. TOOL-ITEM a `' MENU-ITEM-ID a string used to identify MENU-ITEM MENU-ITEM a `' to be used in the overflow menu Since 2.4 -- Function: gtk-tool-item-rebuild-menu (self `') -- Method: rebuild-menu Calling this function signals to the toolbar that the overflow menu item for TOOL-ITEM has changed. If the overflow menu is visible when this function it called, the menu will be rebuilt. The function must be called when the tool item changes what it will do in response to the "create_menu_proxy" signal. TOOL-ITEM a `' Since 2.6  File: guile-gnome-gtk.info, Node: GtkSeparatorToolItem, Next: GtkToolButton, Prev: GtkToolItem, Up: Top 67 GtkSeparatorToolItem *********************** A toolbar item that separates groups of other toolbar items 67.1 Overview ============= A `' is a `' that separates groups of other `'. Depending on the theme, a `' will often look like a vertical line on horizontally docked toolbars. If the property "expand" is ``#t'' and the property "draw" is ``#f'', a `' will act as a "spring" that forces other items to the ends of the toolbar. Use `gtk-separator-tool-item-new' to create a new `'. 67.2 Usage ========== -- Class: Derives from `'. This class defines the following slots: `draw' Whether the separator is drawn, or just blank -- Function: gtk-separator-tool-item-new => (ret `') Create a new `' RET the new `' Since 2.4 -- Function: gtk-separator-tool-item-set-draw (self `') (draw `bool') -- Method: set-draw When SEPARATOR-TOOL-ITEMS is drawn as a vertical line, or just blank. Setting this ``#f'' along with `gtk-tool-item-set-expand' is useful to create an item that forces following items to the end of the toolbar. ITEM a `' DRAW whether SEPARATOR-TOOL-ITEM is drawn as a vertical line Since 2.4 -- Function: gtk-separator-tool-item-get-draw (self `') => (ret `bool') -- Method: get-draw Returns whether SEPARATOR-TOOL-ITEM is drawn as a line, or just blank. See `gtk-separator-tool-item-set-draw'. ITEM a `' RET ``#t'' if SEPARATOR-TOOL-ITEM is drawn as a line, or just blank. Since 2.4  File: guile-gnome-gtk.info, Node: GtkToolButton, Next: GtkMenuToolButton, Prev: GtkSeparatorToolItem, Up: Top 68 GtkToolButton **************** A GtkToolItem subclass that displays buttons 68.1 Overview ============= `'s are `' containing buttons. Use `gtk-tool-button-new' to create a new `'. Use `gtk-tool-button-new-with-stock' to create a `' containing a stock item. The label of a `' is determined by the properties "label_widget", "label", and "stock_id". If "label_widget" is non-``#f'', then that widget is used as the label. Otherwise, if "label" is non-``#f'', that string is used as the label. Otherwise, if "stock_id" is non-``#f'', the label is determined by the stock item. Otherwise, the button does not have a label. The icon of a `' is determined by the properties "icon_widget" and "stock_id". If "icon_widget" is non-``#f'', then that widget is used as the icon. Otherwise, if "stock_id" is non-``#f'', the icon is determined by the stock item. Otherwise, the button does not have a label. 68.2 Usage ========== -- Class: Derives from `'. This class defines the following slots: `label' Text to show in the item. `use-underline' If set, an underline in the label property indicates that the next character should be used for the mnemonic accelerator key in the overflow menu `label-widget' Widget to use as the item label `stock-id' The stock icon displayed on the item `icon-name' The name of the themed icon displayed on the item `icon-widget' Icon widget to display in the item -- Signal on : clicked This signal is emitted when the tool button is clicked with the mouse or activated with the keyboard. -- Function: gtk-tool-button-new (icon_widget `') (label `mchars') => (ret `') Creates a new `GtkToolButton' using ICON-WIDGET as icon and LABEL as label. ICON-WIDGET a widget that will be used as icon widget, or ``#f'' LABEL a string that will be used as label, or ``#f'' RET A new `' Since 2.4 -- Function: gtk-tool-button-new-from-stock (stock_id `mchars') => (ret `') Creates a new `' containing the image and text from a stock item. Some stock ids have preprocessor macros like `' and `'. It is an error if STOCK-ID is not a name of a stock item. STOCK-ID the name of the stock item RET A new `' Since 2.4 -- Function: gtk-tool-button-set-label (self `') (label `mchars') -- Method: set-label Sets LABEL as the label used for the tool button. The "label" property only has an effect if not overridden by a non-``#f'' "label_widget" property. If both the "label_widget" and "label" properties are ``#f'', the label is determined by the "stock_id" property. If the "stock_id" property is also ``#f'', BUTTON will not have a label. BUTTON a `' LABEL a string that will be used as label, or ``#f''. Since 2.4 -- Function: gtk-tool-button-get-label (self `') => (ret `mchars') -- Method: get-label Returns the label used by the tool button, or ``#f'' if the tool button doesn't have a label. or uses a the label from a stock item. The returned string is owned by GTK+, and must not be modified or freed. BUTTON a `' RET The label, or ``#f'' Since 2.4 -- Function: gtk-tool-button-set-use-underline (self `') (use_underline `bool') -- Method: set-use-underline If set, an underline in the label property indicates that the next character should be used for the mnemonic accelerator key in the overflow menu. For example, if the label property is "_Open" and USE-UNDERLINE is ``#t'', the label on the tool button will be "Open" and the item on the overflow menu will have an underlined 'O'. Labels shown on tool buttons never have mnemonics on them; this property only affects the menu item on the overflow menu. BUTTON a `' USE-UNDERLINE whether the button label has the form "_Open" Since 2.4 -- Function: gtk-tool-button-get-use-underline (self `') => (ret `bool') -- Method: get-use-underline Returns whether underscores in the label property are used as mnemonics on menu items on the overflow menu. See `gtk-tool-button-set-use-underline'. BUTTON a `' RET ``#t'' if underscores in the label property are used as mnemonics on menu items on the overflow menu. Since 2.4 -- Function: gtk-tool-button-set-stock-id (self `') (stock_id `mchars') -- Method: set-stock-id Sets the name of the stock item. See `gtk-tool-button-new-from-stock'. The stock_id property only has an effect if not overridden by non-``#f'' "label" and "icon_widget" properties. BUTTON a `' STOCK-ID a name of a stock item, or ``#f'' Since 2.4 -- Function: gtk-tool-button-get-stock-id (self `') => (ret `mchars') -- Method: get-stock-id Returns the name of the stock item. See `gtk-tool-button-set-stock-id'. The returned string is owned by GTK+ and must not be freed or modifed. BUTTON a `' RET the name of the stock item for BUTTON. Since 2.4 -- Function: gtk-tool-button-set-icon-name (self `') (icon_name `mchars') -- Method: set-icon-name Sets the icon for the tool button from a named themed icon. See the docs for `' for more details. The "icon_name" property only has an effect if not overridden by non-``#f'' "label", "icon_widget" and "stock_id" properties. BUTTON a `' ICON-NAME the name of the themed icon Since 2.8 -- Function: gtk-tool-button-get-icon-name (self `') => (ret `mchars') -- Method: get-icon-name Returns the name of the themed icon for the tool button, see `gtk-tool-button-set-icon-name'. BUTTON a `' RET the icon name or ``#f'' if the tool button has no themed icon Since 2.8 -- Function: gtk-tool-button-set-icon-widget (self `') (icon_widget `') -- Method: set-icon-widget Sets ICON as the widget used as icon on BUTTON. If ICON-WIDGET is ``#f'' the icon is determined by the "stock_id" property. If the "stock_id" property is also ``#f'', BUTTON will not have an icon. BUTTON a `' ICON-WIDGET the widget used as icon, or ``#f'' Since 2.4 -- Function: gtk-tool-button-get-icon-widget (self `') => (ret `') -- Method: get-icon-widget Return the widget used as icon widget on BUTTON. See `gtk-tool-button-set-icon-widget'. BUTTON a `' RET The widget used as icon on BUTTON, or ``#f''. Since 2.4 -- Function: gtk-tool-button-set-label-widget (self `') (label_widget `') -- Method: set-label-widget Sets LABEL-WIDGET as the widget that will be used as the label for BUTTON. If LABEL-WIDGET is ``#f'' the "label" property is used as label. If "label" is also ``#f'', the label in the stock item determined by the "stock_id" property is used as label. If "stock_id" is also ``#f'', BUTTON does not have a label. BUTTON a `' LABEL-WIDGET the widget used as label, or ``#f'' Since 2.4 -- Function: gtk-tool-button-get-label-widget (self `') => (ret `') -- Method: get-label-widget Returns the widget used as label on BUTTON. See `gtk-tool-button-set-label-widget'. BUTTON a `' RET The widget used as label on BUTTON, or ``#f''. Since 2.4  File: guile-gnome-gtk.info, Node: GtkMenuToolButton, Next: GtkToggleToolButton, Prev: GtkToolButton, Up: Top 69 GtkMenuToolButton ******************** A GtkToolItem containing a button with an additional dropdown menu 69.1 Overview ============= A `' is a `' that contains a button and a small additional button with an arrow. When clicked, the arrow button pops up a dropdown menu. Use `gtk-menu-tool-button-new' to create a new `'. Use `gtk-menu-tool-button-new-from-stock' to create a new `' containing a stock item. 69.2 Usage ========== -- Class: Derives from `'. This class defines the following slots: `menu' The dropdown menu -- Signal on : show-menu -- Function: gtk-menu-tool-button-new (icon_widget `') (label `mchars') => (ret `') Creates a new `' using ICON-WIDGET as icon and LABEL as label. ICON-WIDGET a widget that will be used as icon widget, or ``#f'' LABEL a string that will be used as label, or ``#f'' RET the new `' Since 2.6 -- Function: gtk-menu-tool-button-new-from-stock (stock_id `mchars') => (ret `') Creates a new `'. The new `' will contain an icon and label from the stock item indicated by STOCK-ID. STOCK-ID the name of a stock item RET the new `' Since 2.6 -- Function: gtk-menu-tool-button-set-menu (self `') (menu `') -- Method: set-menu Sets the `' that is popped up when the user clicks on the arrow. If MENU is NULL, the arrow button becomes insensitive. BUTTON a `' MENU the `' associated with `' Since 2.6 -- Function: gtk-menu-tool-button-get-menu (self `') => (ret `') -- Method: get-menu Gets the `' associated with `'. BUTTON a `' RET the `' associated with `' Since 2.6  File: guile-gnome-gtk.info, Node: GtkToggleToolButton, Next: GtkRadioToolButton, Prev: GtkMenuToolButton, Up: Top 70 GtkToggleToolButton ********************** A GtkToolItem containing a toggle button 70.1 Overview ============= A `' is a `' that contains a toggle button. Use `gtk-toggle-tool-button-new' to create a new `'. Use `gtk-toggle-tool-button-new-from-stock' to create a new `' containing a stock item. 70.2 Usage ========== -- Class: Derives from `'. This class defines the following slots: `active' If the toggle button should be pressed in or not -- Signal on : toggled Emitted whenever the toggle tool button changes state. -- Function: gtk-toggle-tool-button-new => (ret `') Returns a new `' RET a newly created `' Since 2.4 -- Function: gtk-toggle-tool-button-set-active (self `') (is_active `bool') -- Method: set-active Sets the status of the toggle tool button. Set to ``#t'' if you want the GtkToggleButton to be 'pressed in', and ``#f'' to raise it. This action causes the toggled signal to be emitted. BUTTON a `' IS-ACTIVE whether BUTTON should be active Since 2.4 -- Function: gtk-toggle-tool-button-get-active (self `') => (ret `bool') -- Method: get-active Queries a `' and returns its current state. Returns ``#t'' if the toggle button is pressed in and ``#f'' if it is raised. BUTTON a `' RET ``#t'' if the toggle tool button is pressed in, ``#f'' if not Since 2.4  File: guile-gnome-gtk.info, Node: GtkRadioToolButton, Next: GtkUIManager, Prev: GtkToggleToolButton, Up: Top 71 GtkRadioToolButton ********************* A toolbar item that contains a radio button 71.1 Overview ============= A `' is a `' that contains a radio button, that is, a button that is part of a group of toggle buttons where only one button can be active at a time. Use `gtk-radio-tool-button-new' to create a new `'. use `gtk-radio-tool-button-new-from-widget' to create a new `' that is part of the same group as an existing `'. Use `gtk-radio-tool-button-new-from-stock' or `gtk-radio-tool-button-new-from-widget-with-stock' to create a new `' containing a stock item. 71.2 Usage ========== -- Class: Derives from `'. This class defines the following slots: `group' The radio tool button whose group this button belongs to. -- Function: gtk-radio-tool-button-new (group `') => (ret `') Creates a new `', adding it to GROUP. GROUP An existing radio button group, or ``#f'' if you are creating a new group RET The new `' Since 2.4 -- Function: gtk-radio-tool-button-get-group (self `') => (ret `') -- Method: get-group Returns the radio button group BUTTON belongs to. BUTTON a `' RET The group BUTTON belongs to. Since 2.4 -- Function: gtk-radio-tool-button-set-group (self `') (group `') -- Method: set-group Adds BUTTON to GROUP, removing it from the group it belonged to before. BUTTON a `' GROUP an existing radio button group Since 2.4  File: guile-gnome-gtk.info, Node: GtkUIManager, Next: GtkActionGroup, Prev: GtkRadioToolButton, Up: Top 72 GtkUIManager *************** Constructing menus and toolbars from an XML description 72.1 Overview ============= A `' constructs a user interface (menus and toolbars) from one or more UI definitions, which reference actions from one or more action groups. 72.2 UI Definitions =================== The UI definitions are specified in an XML format which can be roughly described by the following DTD. There are some additional restrictions beyond those specified in the DTD, e.g. every toolitem must have a toolbar in its anchestry and every menuitem must have a menubar or popup in its anchestry. Since a `' parser is used to parse the UI description, it must not only be valid XML, but valid `'. If a name is not specified, it defaults to the action. If an action is not specified either, the element name is used. The name and action attributes must not contain '/' characters after parsing (since that would mess up path lookup) and must be usable as XML attributes when enclosed in doublequotes, thus they must not '"' characters or references to the " entity. The constructed widget hierarchy is very similar to the element tree of the XML, with the exception that placeholders are merged into their parents. The correspondence of XML elements to widgets should be almost obvious: TOOLBAR POPUP MENU MENUITEM TOOLITEM SEPARATOR ACCELERATOR a `' a `' a toplevel `' a `' attached to a menuitem a `' subclass, the exact type depends on the action a `' subclass, the exact type depends on the action. Note that toolitem elements may contain a menu element, but only if their associated action specifies a `' as proxy. a `' or `' a keyboard accelerator The "position" attribute determines where a constructed widget is positioned wrt. to its siblings in the partially constructed tree. If it is "top", the widget is prepended, otherwise it is appended. 72.3 UI Merging =============== The most remarkable feature of `' is that it can overlay a set of menuitems and toolitems over another one, and demerge them later. Merging is done based on the names of the XML elements. Each element is identified by a path which consists of the names of its anchestors, separated by slashes. For example, the menuitem named "Left" in the example above has the path `/ui/menubar/JustifyMenu/Left' and the toolitem with the same name has path `/ui/toolbar1/JustifyToolItems/Left'. 72.4 Accelerators ================= Every action has an accelerator path. Accelerators are installed together with menuitem proxies, but they can also be explicitly added with elements in the UI definition. This makes it possible to have accelerators for actions even if they have no visible proxies. 72.5 Smart Separators ===================== The separators created by `' are "smart", i.e. they do not show up in the UI unless they end up between two visible menu or tool items. Separators which are located at the very beginning or end of the menu or toolbar containing them, or multiple separators next to each other, are hidden. This is a useful feature, since the merging of UI elements from multiple sources can make it hard or impossible to determine in advance whether a separator will end up in such an unfortunate position. For separators in toolbars, you can set `expand="true"' to turn them from a small, visible separator to an expanding, invisible one. Toolitems following an expanding separator are effectively right-aligned. 72.6 Empty Menus ================ Submenus pose similar problems to separators inconnection with merging. It is impossible to know in advance whether they will end up empty after merging. `' offers two ways to treat empty submenus: The behaviour is chosen based on the "hide_if_empty" property of the action to which the submenu is associated. make them disappear by hiding the menu item they're attached to add an insensitive "Empty" item 72.7 Usage ========== -- Class: Derives from `', `'. This class defines the following slots: `add-tearoffs' Whether tearoff menu items should be added to menus `ui' An XML string describing the merged UI -- Signal on : connect-proxy (arg0 `') (arg1 `') The connect_proxy signal is emitted after connecting a proxy to an action in the group. This is intended for simple customizations for which a custom action class would be too clumsy, e.g. showing tooltips for menuitems in the statusbar. Since 2.4 -- Signal on : disconnect-proxy (arg0 `') (arg1 `') The disconnect_proxy signal is emitted after disconnecting a proxy from an action in the group. Since 2.4 -- Signal on : pre-activate (arg0 `') The pre_activate signal is emitted just before the ACTION is activated. This is intended for applications to get notification just before any action is activated. Since 2.4 -- Signal on : post-activate (arg0 `') The post_activate signal is emitted just after the ACTION is activated. This is intended for applications to get notification just after any action is activated. Since 2.4 -- Signal on : add-widget (arg0 `') The add_widget signal is emitted for each generated menubar and toolbar. It is not emitted for generated popup menus, which can be obtained by `gtk-ui-manager-get-widget'. Since 2.4 -- Signal on : actions-changed The "actions-changed" signal is emitted whenever the set of actions changes. Since 2.4 -- Function: gtk-ui-manager-new => (ret `') Creates a new ui manager object. RET a new ui manager object. Since 2.4 -- Function: gtk-ui-manager-set-add-tearoffs (self `') (add_tearoffs `bool') -- Method: set-add-tearoffs Sets the "add_tearoffs" property, which controls whether menus generated by this `' will have tearoff menu items. Note that this only affects regular menus. Generated popup menus never have tearoff menu items. SELF a `' ADD-TEAROFFS whether tearoff menu items are added Since 2.4 -- Function: gtk-ui-manager-get-add-tearoffs (self `') => (ret `bool') -- Method: get-add-tearoffs Returns whether menus generated by this `' will have tearoff menu items. SELF a `' RET whether tearoff menu items are added Since 2.4 -- Function: gtk-ui-manager-insert-action-group (self `') (action_group `') (pos `int') -- Method: insert-action-group Inserts an action group into the list of action groups associated with SELF. Actions in earlier groups hide actions with the same name in later groups. SELF a `' object ACTION-GROUP the action group to be inserted POS the position at which the group will be inserted. Since 2.4 -- Function: gtk-ui-manager-remove-action-group (self `') (action_group `') -- Method: remove-action-group Removes an action group from the list of action groups associated with SELF. SELF a `' object ACTION-GROUP the action group to be removed Since 2.4 -- Function: gtk-ui-manager-get-action-groups (self `') => (ret `glist-of') -- Method: get-action-groups Returns the list of action groups associated with SELF. SELF a `' object RET a `' of action groups. The list is owned by GTK+ and should not be modified. Since 2.4 -- Function: gtk-ui-manager-get-accel-group (self `') => (ret `') -- Method: get-accel-group Returns the `' associated with SELF. SELF a `' object RET the `'. Since 2.4 -- Function: gtk-ui-manager-get-widget (self `') (path `mchars') => (ret `') -- Method: get-widget Looks up a widget by following a path. The path consists of the names specified in the XML description of the UI. separated by '/'. Elements which don't have a name or action attribute in the XML (e.g. ) can be addressed by their XML element name (e.g. "popup"). The root element ("/ui") can be omitted in the path. Note that the widget found by following a path that ends in a element is the menuitem to which the menu is attached, not the menu itself. Also note that the widgets constructed by a ui manager are not tied to the lifecycle of the ui manager. If you add the widgets returned by this function to some container or explicitly ref them, they will survive the destruction of the ui manager. SELF a `' PATH a path RET the widget found by following the path, or ``#f'' if no widget was found. Since 2.4 -- Function: gtk-ui-manager-get-toplevels (self `') (types `') => (ret `gslist-of') -- Method: get-toplevels Obtains a list of all toplevel widgets of the requested types. SELF a `' TYPES specifies the types of toplevel widgets to include. Allowed types are `', `' and `'. RET a newly-allocated of all toplevel widgets of the requested types. Since 2.4 -- Function: gtk-ui-manager-get-action (self `') (path `mchars') => (ret `') -- Method: get-action Looks up an action by following a path. See `gtk-ui-manager-get-widget' for more information about paths. SELF a `' PATH a path RET the action whose proxy widget is found by following the path, or ``#f'' if no widget was found. Since 2.4 -- Function: gtk-ui-manager-add-ui-from-string (self `') (buffer `mchars') => (ret `unsigned-int') -- Method: add-ui-from-string Parses a string containing a UI definition and merges it with the current contents of SELF. An enclosing element is added if it is missing. SELF a `' object BUFFER the string to parse LENGTH the length of BUFFER (may be -1 if BUFFER is nul-terminated) ERROR return location for an error RET The merge id for the merged UI. The merge id can be used to unmerge the UI with `gtk-ui-manager-remove-ui'. If an error occurred, the return value is 0. Since 2.4 -- Function: gtk-ui-manager-add-ui-from-file (self `') (filename `mchars') => (ret `unsigned-int') -- Method: add-ui-from-file Parses a file containing a UI definition and merges it with the current contents of SELF. SELF a `' object FILENAME the name of the file to parse ERROR return location for an error RET The merge id for the merged UI. The merge id can be used to unmerge the UI with `gtk-ui-manager-remove-ui'. If an error occurred, the return value is 0. Since 2.4 -- Function: gtk-ui-manager-new-merge-id (self `') => (ret `unsigned-int') -- Method: new-merge-id Returns an unused merge id, suitable for use with `gtk-ui-manager-add-ui'. SELF a `' RET an unused merge id. Since 2.4 -- Function: gtk-ui-manager-add-ui (self `') (merge_id `unsigned-int') (path `mchars') (name `mchars') (action `mchars') (type `') (top `bool') -- Method: add-ui Adds a UI element to the current contents of SELF. If TYPE is `GTK_UI_MANAGER_AUTO', GTK+ inserts a menuitem, toolitem or separator if such an element can be inserted at the place determined by PATH. Otherwise TYPE must indicate an element that can be inserted at the place determined by PATH. If PATH points to a menuitem or toolitem, the new element will be inserted before or after this item, depending on TOP. SELF a `' MERGE-ID the merge id for the merged UI, see `gtk-ui-manager-new-merge-id' PATH a path NAME the name for the added UI element ACTION the name of the action to be proxied, or ``#f'' to add a separator TYPE the type of UI element to add. TOP if ``#t'', the UI element is added before its siblings, otherwise it is added after its siblings. Since 2.4 -- Function: gtk-ui-manager-remove-ui (self `') (merge_id `unsigned-int') -- Method: remove-ui Unmerges the part of SELFs content identified by MERGE-ID. SELF a `' object MERGE-ID a merge id as returned by `gtk-ui-manager-add-ui-from-string' Since 2.4 -- Function: gtk-ui-manager-get-ui (self `') => (ret `mchars') -- Method: get-ui Creates a UI definition of the merged UI. SELF a `' RET A newly allocated string containing an XML representation of the merged UI. Since 2.4 -- Function: gtk-ui-manager-ensure-update (self `') -- Method: ensure-update Makes sure that all pending updates to the UI have been completed. This may occasionally be necessary, since `' updates the UI in an idle function. A typical example where this function is useful is to enforce that the menubar and toolbar have been added to the main window before showing it: gtk_container_add (GTK_CONTAINER (window), vbox); g_signal_connect (merge, "add_widget", G_CALLBACK (add_widget), vbox); gtk_ui_manager_add_ui_from_file (merge, "my-menus"); gtk_ui_manager_add_ui_from_file (merge, "my-toolbars"); gtk_ui_manager_ensure_update (merge); gtk_widget_show (window); SELF a `' Since 2.4  File: guile-gnome-gtk.info, Node: GtkActionGroup, Next: GtkAction, Prev: GtkUIManager, Up: Top 73 GtkActionGroup ***************** A group of actions 73.1 Overview ============= Actions are organised into groups. An action group is essentially a map from names to `' objects. All actions that would make sense to use in a particular context should be in a single group. Multiple action groups may be used for a particular user interface. In fact, it is expected that most nontrivial applications will make use of multiple groups. For example, in an application that can edit multiple documents, one group holding global actions (e.g. quit, about, new), and one group per document holding actions that act on that document (eg. save, cut/copy/paste, etc). Each window's menus would be constructed from a combination of two action groups. Accelerators are handled by the GTK+ accelerator map. All actions are assigned an accelerator path (which normally has the form `//') and a shortcut is associated with this accelerator path. All menuitems and toolitems take on this accelerator path. The GTK+ accelerator map code makes sure that the correct shortcut is displayed next to the menu item. 73.2 Usage ========== -- Class: Derives from `', `'. This class defines the following slots: `name' A name for the action group. `sensitive' Whether the action group is enabled. `visible' Whether the action group is visible. -- Signal on : connect-proxy (arg0 `') (arg1 `') The connect_proxy signal is emitted after connecting a proxy to an action in the group. Note that the proxy may have been connected to a different action before. This is intended for simple customizations for which a custom action class would be too clumsy, e.g. showing tooltips for menuitems in the statusbar. `' proxies the signal and provides global notification just before any action is connected to a proxy, which is probably more convenient to use. Since 2.4 -- Signal on : disconnect-proxy (arg0 `') (arg1 `') The disconnect_proxy signal is emitted after disconnecting a proxy from an action in the group. `' proxies the signal and provides global notification just before any action is connected to a proxy, which is probably more convenient to use. Since 2.4 -- Signal on : pre-activate (arg0 `') The pre_activate signal is emitted just before the ACTION in the ACTION-GROUP is activated This is intended for `' to proxy the signal and provide global notification just before any action is activated. Since 2.4 -- Signal on : post-activate (arg0 `') The post_activate signal is emitted just after the ACTION in the ACTION-GROUP is activated This is intended for `' to proxy the signal and provide global notification just after any action is activated. Since 2.4 -- Function: gtk-action-group-new (name `mchars') => (ret `') Creates a new `' object. The name of the action group is used when associating keybindings with the actions. NAME the name of the action group. RET the new `' Since 2.4 -- Function: gtk-action-group-get-name (self `') => (ret `mchars') -- Method: get-name Gets the name of the action group. ACTION-GROUP the action group RET the name of the action group. Since 2.4 -- Function: gtk-action-group-get-sensitive (self `') => (ret `bool') -- Method: get-sensitive Returns ``#t'' if the group is sensitive. The constituent actions can only be logically sensitive (see `gtk-action-is-sensitive') if they are sensitive (see `gtk-action-get-sensitive') and their group is sensitive. ACTION-GROUP the action group RET ``#t'' if the group is sensitive. Since 2.4 -- Function: gtk-action-group-set-sensitive (self `') (sensitive `bool') -- Method: set-sensitive Changes the sensitivity of ACTION-GROUP ACTION-GROUP the action group SENSITIVE new sensitivity Since 2.4 -- Function: gtk-action-group-get-visible (self `') => (ret `bool') -- Method: get-visible Returns ``#t'' if the group is visible. The constituent actions can only be logically visible (see `gtk-action-is-visible') if they are visible (see `gtk-action-get-visible') and their group is visible. ACTION-GROUP the action group RET ``#t'' if the group is visible. Since 2.4 -- Function: gtk-action-group-set-visible (self `') (visible `bool') -- Method: set-visible Changes the visible of ACTION-GROUP. ACTION-GROUP the action group VISIBLE new visiblity Since 2.4 -- Function: gtk-action-group-get-action (self `') (action_name `mchars') => (ret `') -- Method: get-action Looks up an action in the action group by name. ACTION-GROUP the action group ACTION-NAME the name of the action RET the action, or ``#f'' if no action by that name exists Since 2.4 -- Function: gtk-action-group-list-actions (self `') => (ret `glist-of') -- Method: list-actions Lists the actions in the action group. ACTION-GROUP the action group RET an allocated list of the action objects in the action group Since 2.4 -- Function: gtk-action-group-add-action (self `') (action `') -- Method: add-action Adds an action object to the action group. Note that this function does not set up the accel path of the action, which can lead to problems if a user tries to modify the accelerator of a menuitem associated with the action. Therefore you must either set the accel path yourself with `gtk-action-set-accel-path', or use `gtk_action_group_add_action_with_accel (..., NULL)'. ACTION-GROUP the action group ACTION an action Since 2.4 -- Function: gtk-action-group-remove-action (self `') (action `') -- Method: remove-action Removes an action object from the action group. ACTION-GROUP the action group ACTION an action Since 2.4 -- Function: gtk-action-group-add-actions (self `') (entries `scm') -- Method: add-actions This is a convenience function to create a number of actions and add them to the action group. The "activate" signals of the actions are connected to the callbacks and their accel paths are set to `//'. ACTION-GROUP The action group SCM An list of actions. The actions are of the form `(NAME STOCK-ID `label' `accelerator' `tooltip' `proc'?)'. All values are strings except the PROC, which should be a procedure suitable for connecting to the `activate' signal on the action. STOCK-ID, LABEL, ACCELERATOR, TOOLTIP, and PROC may be `#f'. Since 2.4 -- Function: gtk-action-group-add-toggle-actions (self `') (entries `scm') -- Method: add-toggle-actions This is a convenience function to create a number of toggle actions and add them to the action group. The "activate" signals of the actions are connected to the callbacks and their accel paths are set to `/GROUP-NAME/ACTION-NAME'. ACTION-GROUP the action group ENTRIES an array of toggle action descriptions N-ENTRIES the number of entries USER-DATA data to pass to the action callbacks Since 2.4 -- Function: gtk-action-group-add-radio-actions (self `') (entries `scm') (value `int') (on_change `scm') -- Method: add-radio-actions This is a convenience routine to create a group of radio actions and add them to the action group. The "changed" signal of the first radio action is connected to the ON-CHANGE callback and the accel paths of the actions are set to `/GROUP-NAME/ACTION-NAME'. ACTION-GROUP the action group ENTRIES an array of radio action descriptions N-ENTRIES the number of entries VALUE the value of the action to activate initially, or -1 if no action should be activated ON-CHANGE the callback to connect to the changed signal USER-DATA data to pass to the action callbacks Since 2.4 -- Function: gtk-action-group-translate-string (self `') (string `mchars') => (ret `mchars') -- Method: translate-string Translates a string using the specified `translate-func'. This is mainly intended for language bindings. ACTION-GROUP a `' STRING a string RET the translation of STRING Since 2.6  File: guile-gnome-gtk.info, Node: GtkAction, Next: GtkToggleAction, Prev: GtkActionGroup, Up: Top 74 GtkAction ************ An action which can be triggered by a menu or toolbar item 74.1 Overview ============= Actions represent operations that the user can be perform, along with some information how it should be presented in the interface. Each action provides methods to create icons, menu items and toolbar items representing itself. As well as the callback that is called when the action gets activated, the following also gets associated with the action: The action will also have some state information: a name (not translated, for path lookup) a label (translated, for display) an accelerator whether label indicates a stock id a tooltip (optional, translated) a toolbar label (optional, shorter than label) visible (shown/hidden) sensitive (enabled/disabled) Apart from regular actions, there are toggle actions, which can be toggled between two states and radio actions, of which only one in a group can be in the "active" state. Other actions can be implemented as `' subclasses. Each action can have one or more proxy menu item, toolbar button or other proxy widgets. Proxies mirror the state of the action (text label, tooltip, icon, visible, sensitive, etc), and should change when the action's state changes. When the proxy is activated, it should activate its action. 74.2 Usage ========== -- Class: Derives from `', `'. This class defines the following slots: `name' A unique name for the action. `label' The label used for menu items and buttons that activate this action. `short-label' A shorter label that may be used on toolbar buttons. `tooltip' A tooltip for this action. `stock-id' The stock icon displayed in widgets representing this action. `icon-name' The name of the icon from the icon theme `visible-horizontal' Whether the toolbar item is visible when the toolbar is in a horizontal orientation. `visible-vertical' Whether the toolbar item is visible when the toolbar is in a vertical orientation. `visible-overflown' When TRUE, toolitem proxies for this action are represented in the toolbar overflow menu. `is-important' Whether the action is considered important. When TRUE, toolitem proxies for this action show text in GTK_TOOLBAR_BOTH_HORIZ mode. `hide-if-empty' When TRUE, empty menu proxies for this action are hidden. `sensitive' Whether the action is enabled. `visible' Whether the action is visible. `action-group' The GtkActionGroup this GtkAction is associated with, or NULL (for internal use). -- Signal on : activate The "activate" signal is emitted when the action is activated. Since 2.4 -- Function: gtk-action-new (name `mchars') (label `mchars') (tooltip `mchars') (stock_id `mchars') => (ret `') Creates a new `' object. To add the action to a `' and set the accelerator for the action, call `gtk-action-group-add-action-with-accel'. See _(the missing figure, XML-UI_ for information on allowed action names. NAME A unique name for the action LABEL the label displayed in menu items and on buttons TOOLTIP a tooltip for the action STOCK-ID the stock icon to display in widgets representing the action RET a new `' Since 2.4 -- Function: gtk-action-get-name (self `') => (ret `mchars') -- Method: get-name Returns the name of the action. ACTION the action object RET the name of the action. The string belongs to GTK+ and should not be freed. Since 2.4 -- Function: gtk-action-is-sensitive (self `') => (ret `bool') -- Method: is-sensitive Returns whether the action is effectively sensitive. ACTION the action object RET ``#t'' if the action and its associated action group are both sensitive. Since 2.4 -- Function: gtk-action-get-sensitive (self `') => (ret `bool') -- Method: get-sensitive Returns whether the action itself is sensitive. Note that this doesn't necessarily mean effective sensitivity. See `gtk-action-is-sensitive' for that. ACTION the action object RET ``#t'' if the action itself is sensitive. Since 2.4 -- Function: gtk-action-set-sensitive (self `') (sensitive `bool') -- Method: set-sensitive Sets the ::sensitive property of the action to SENSITIVE. Note that this doesn't necessarily mean effective sensitivity. See `gtk-action-is-sensitive' for that. ACTION the action object SENSITIVE ``#t'' to make the action sensitive Since 2.6 -- Function: gtk-action-is-visible (self `') => (ret `bool') -- Method: is-visible Returns whether the action is effectively visible. ACTION the action object RET ``#t'' if the action and its associated action group are both visible. Since 2.4 -- Function: gtk-action-get-visible (self `') => (ret `bool') -- Method: get-visible Returns whether the action itself is visible. Note that this doesn't necessarily mean effective visibility. See `gtk-action-is-sensitive' for that. ACTION the action object RET ``#t'' if the action itself is visible. Since 2.4 -- Function: gtk-action-set-visible (self `') (visible `bool') -- Method: set-visible Sets the ::visible property of the action to VISIBLE. Note that this doesn't necessarily mean effective visibility. See `gtk-action-is-visible' for that. ACTION the action object VISIBLE ``#t'' to make the action visible Since 2.6 -- Function: gtk-action-activate (self `') -- Method: activate Emits the "activate" signal on the specified action, if it isn't insensitive. This gets called by the proxy widgets when they get activated. It can also be used to manually activate an action. ACTION the action object Since 2.4 -- Function: gtk-action-create-icon (self `') (icon_size `') => (ret `') -- Method: create-icon This function is intended for use by action implementations to create icons displayed in the proxy widgets. ACTION the action object ICON-SIZE the size of the icon that should be created. RET a widget that displays the icon for this action. Since 2.4 -- Function: gtk-action-create-menu-item (self `') => (ret `') -- Method: create-menu-item Creates a menu item widget that proxies for the given action. ACTION the action object RET a menu item connected to the action. Since 2.4 -- Function: gtk-action-create-tool-item (self `') => (ret `') -- Method: create-tool-item Creates a toolbar item widget that proxies for the given action. ACTION the action object RET a toolbar item connected to the action. Since 2.4 -- Function: gtk-action-connect-proxy (self `') (proxy `') -- Method: connect-proxy Connects a widget to an action object as a proxy. Synchronises various properties of the action with the widget (such as label text, icon, tooltip, etc), and attaches a callback so that the action gets activated when the proxy widget does. If the widget is already connected to an action, it is disconnected first. ACTION the action object PROXY the proxy widget Since 2.4 -- Function: gtk-action-disconnect-proxy (self `') (proxy `') -- Method: disconnect-proxy Disconnects a proxy widget from an action. Does _not_ destroy the widget, however. ACTION the action object PROXY the proxy widget Since 2.4 -- Function: gtk-action-get-proxies (self `') => (ret `gslist-of') -- Method: get-proxies Returns the proxy widgets for an action. See also `gtk-widget-get-action'. ACTION the action object RET a `' of proxy widgets. The list is owned by GTK+ and must not be modified. Since 2.4 -- Function: gtk-action-connect-accelerator (self `') -- Method: connect-accelerator Installs the accelerator for ACTION if ACTION has an accel path and group. See `gtk-action-set-accel-path' and `gtk-action-set-accel-group' Since multiple proxies may independently trigger the installation of the accelerator, the ACTION counts the number of times this function has been called and doesn't remove the accelerator until `gtk-action-disconnect-accelerator' has been called as many times. ACTION a `' Since 2.4 -- Function: gtk-action-disconnect-accelerator (self `') -- Method: disconnect-accelerator Undoes the effect of one call to `gtk-action-connect-accelerator'. ACTION a `' Since 2.4 -- Function: gtk-action-block-activate-from (self `') (proxy `') -- Method: block-activate-from Disables calls to the `gtk-action-activate' function by signals on the given proxy widget. This is used to break notification loops for things like check or radio actions. This function is intended for use by action implementations. ACTION the action object PROXY a proxy widget Since 2.4 -- Function: gtk-action-unblock-activate-from (self `') (proxy `') -- Method: unblock-activate-from Re-enables calls to the `gtk-action-activate' function by signals on the given proxy widget. This undoes the blocking done by `gtk-action-block-activate-from'. This function is intended for use by action implementations. ACTION the action object PROXY a proxy widget Since 2.4 -- Function: gtk-action-get-accel-path (self `') => (ret `mchars') -- Method: get-accel-path Returns the accel path for this action. ACTION the action object RET the accel path for this action, or ``#f'' if none is set. The returned string is owned by GTK+ and must not be freed or modified. Since 2.6 -- Function: gtk-action-set-accel-path (self `') (accel_path `mchars') -- Method: set-accel-path Sets the accel path for this action. All proxy widgets associated with the action will have this accel path, so that their accelerators are consistent. ACTION the action object ACCEL-PATH the accelerator path Since 2.4 -- Function: gtk-action-get-accel-closure (self `') => (ret `') -- Method: get-accel-closure Returns the accel closure for this action. ACTION the action object RET the accel closure for this action. The returned closure is owned by GTK+ and must not be unreffed or modified. Since 2.8 -- Function: gtk-action-set-accel-group (self `') (accel_group `') -- Method: set-accel-group Sets the `' in which the accelerator for this action will be installed. ACTION the action object ACCEL-GROUP a `' or ``#f'' Since 2.4  File: guile-gnome-gtk.info, Node: GtkToggleAction, Next: GtkRadioAction, Prev: GtkAction, Up: Top 75 GtkToggleAction ****************** An action which can be toggled between two states 75.1 Overview ============= A `' corresponds roughly to a `'. It has an "active" state specifying whether the action has been checked or not. 75.2 Usage ========== -- Class: Derives from `'. This class defines the following slots: `draw-as-radio' Whether the proxies for this action look like radio action proxies `active' If the toggle action should be active in or not -- Signal on : toggled -- Function: gtk-toggle-action-new (name `mchars') (label `mchars') (tooltip `mchars') (stock_id `mchars') => (ret `') Creates a new `' object. To add the action to a `' and set the accelerator for the action, call `gtk-action-group-add-action-with-accel'. NAME A unique name for the action LABEL The label displayed in menu items and on buttons TOOLTIP A tooltip for the action STOCK-ID The stock icon to display in widgets representing the action RET a new `' Since 2.4 -- Function: gtk-toggle-action-toggled (self `') -- Method: toggled Emits the "toggled" signal on the toggle action. ACTION the action object Since 2.4 -- Function: gtk-toggle-action-set-active (self `') (is_active `bool') -- Method: set-active Sets the checked state on the toggle action. ACTION the action object IS-ACTIVE whether the action should be checked or not Since 2.4 -- Function: gtk-toggle-action-get-active (self `') => (ret `bool') -- Method: get-active Returns the checked state of the toggle action. ACTION the action object RET the checked state of the toggle action Since 2.4 -- Function: gtk-toggle-action-set-draw-as-radio (self `') (draw_as_radio `bool') -- Method: set-draw-as-radio Sets whether the action should have proxies like a radio action. ACTION the action object DRAW-AS-RADIO whether the action should have proxies like a radio action Since 2.4 -- Function: gtk-toggle-action-get-draw-as-radio (self `') => (ret `bool') -- Method: get-draw-as-radio Returns whether the action should have proxies like a radio action. ACTION the action object RET whether the action should have proxies like a radio action. Since 2.4  File: guile-gnome-gtk.info, Node: GtkRadioAction, Next: GtkColorButton, Prev: GtkToggleAction, Up: Top 76 GtkRadioAction ***************** An action of which only one in a group can be active 76.1 Overview ============= A `' is similar to `'. A number of radio actions can be linked together so that only one may be active at any one time. 76.2 Usage ========== -- Class: Derives from `'. This class defines the following slots: `value' The value returned by gtk_radio_action_get_current_value() when this action is the current action of its group. `group' The radio action whose group this action belongs to. `current-value' The value property of the currently active member of the group to which this action belongs. -- Signal on : changed (arg0 `') The ::changed signal is emitted on every member of a radio group when the active member is changed. The signal gets emitted after the ::activate signals for the previous and current active members. Since 2.4 -- Function: gtk-radio-action-new (name `mchars') (label `mchars') (tooltip `mchars') (stock_id `mchars') (value `int') => (ret `') Creates a new `' object. To add the action to a `' and set the accelerator for the action, call `gtk-action-group-add-action-with-accel'. NAME A unique name for the action LABEL The label displayed in menu items and on buttons TOOLTIP A tooltip for this action STOCK-ID The stock icon to display in widgets representing this action VALUE The value which `gtk-radio-action-get-current-value' should return if this action is selected. RET a new `' Since 2.4 -- Function: gtk-radio-action-get-group (self `') => (ret `') -- Method: get-group Returns the list representing the radio group for this object. Note that the returned list is only valid until the next change to the group. A common way to set up a group of radio group is the following: GSList *group = NULL; GtkRadioAction *action; while (/* more actions to add */) { action = gtk_radio_action_new (...); gtk_radio_action_set_group (action, group); group = gtk_radio_action_get_group (action); } ACTION the action object RET the list representing the radio group for this object Since 2.4 -- Function: gtk-radio-action-set-group (self `') (group `') -- Method: set-group Sets the radio group for the radio action object. ACTION the action object GROUP a list representing a radio group Since 2.4 -- Function: gtk-radio-action-get-current-value (self `') => (ret `int') -- Method: get-current-value Obtains the value property of the currently active member of the group to which ACTION belongs. ACTION a `' RET The value of the currently active group member Since 2.4 -- Function: gtk-radio-action-set-current-value (self `') (current_value `int') -- Method: set-current-value Sets the currently active group member to the member with value property CURRENT-VALUE. ACTION a `' CURRENT-VALUE the new value Since 2.10  File: guile-gnome-gtk.info, Node: GtkColorButton, Next: GtkColorSelection, Prev: GtkRadioAction, Up: Top 77 GtkColorButton ***************** A button to launch a color selection dialog 77.1 Overview ============= The `' is a button which displays the currently selected color an allows to open a color selection dialog to change the color. It is suitable widget for selecting a color in a preference dialog. 77.2 Usage ========== -- Class: Derives from `'. This class defines the following slots: `use-alpha' Whether or not to give the color an alpha value `title' The title of the color selection dialog `color' The selected color `alpha' The selected opacity value (0 fully transparent, 65535 fully opaque) -- Signal on : color-set The ::color-set signal is emitted when the user selects a color. When handling this signal, use `gtk-color-button-get-color' and `gtk-color-button-get-alpha' to find out which color was just selected. Note that this signal is only emitted when the _user_ changes the color. If you need to react to programmatic color changes as well, use the notify::color signal. Since 2.4 -- Function: gtk-color-button-new => (ret `') Creates a new color button. This returns a widget in the form of a small button containing a swatch representing the current selected color. When the button is clicked, a color-selection dialog will open, allowing the user to select a color. The swatch will be updated to reflect the new color when the user finishes. RET a new color button. Since 2.4 -- Function: gtk-color-button-new-with-color (color `') => (ret `') Creates a new color button. COLOR A `' to set the current color with. RET a new color button. Since 2.4 -- Function: gtk-color-button-set-color (self `') (color `') -- Method: set-color Sets the current color to be COLOR. COLOR-BUTTON a `'. COLOR A `' to set the current color with. Since 2.4 -- Function: gtk-color-button-get-color (self `') (color `') -- Method: get-color Sets COLOR to be the current color in the `' widget. COLOR-BUTTON a `'. COLOR a `' to fill in with the current color. Since 2.4 -- Function: gtk-color-button-set-alpha (self `') (alpha `unsigned-int16') -- Method: set-alpha Sets the current opacity to be ALPHA. COLOR-BUTTON a `'. ALPHA an integer between 0 and 65535. Since 2.4 -- Function: gtk-color-button-get-alpha (self `') => (ret `unsigned-int16') -- Method: get-alpha Returns the current alpha value. COLOR-BUTTON a `'. RET an integer between 0 and 65535. Since 2.4 -- Function: gtk-color-button-set-use-alpha (self `') (use_alpha `bool') -- Method: set-use-alpha Sets whether or not the color button should use the alpha channel. COLOR-BUTTON a `'. USE-ALPHA ``#t'' if color button should use alpha channel, ``#f'' if not. Since 2.4 -- Function: gtk-color-button-get-use-alpha (self `') => (ret `bool') -- Method: get-use-alpha Does the color selection dialog use the alpha channel? COLOR-BUTTON a `'. RET ``#t'' if the color sample uses alpha channel, ``#f'' if not. Since 2.4 -- Function: gtk-color-button-set-title (self `') (title `mchars') -- Method: set-title Sets the title for the color selection dialog. COLOR-BUTTON a `' TITLE String containing new window title. Since 2.4 -- Function: gtk-color-button-get-title (self `') => (ret `mchars') -- Method: get-title Gets the title of the color selection dialog. COLOR-BUTTON a `' RET An internal string, do not free the return value Since 2.4  File: guile-gnome-gtk.info, Node: GtkColorSelection, Next: GtkColorSelectionDialog, Prev: GtkColorButton, Up: Top 78 GtkColorSelection ******************** A widget used to select a color 78.1 Overview ============= The `' is a widget that is used to select a color. It consists of a color wheel and number of sliders and entry boxes for color parameters such as hue, saturation, value, red, green, blue, and opacity. It is found on the standard color selection dialog box `'. 78.2 Usage ========== -- Class: Derives from `'. This class defines the following slots: `has-palette' Whether a palette should be used `has-opacity-control' Whether the color selector should allow setting opacity `current-color' The current color `current-alpha' The current opacity value (0 fully transparent, 65535 fully opaque) -- Signal on : color-changed This signal is emitted when the color changes in the `' according to its update policy. -- Function: gtk-color-selection-new => (ret `') Creates a new GtkColorSelection. RET a new `' -- Function: gtk-color-selection-set-has-palette (self `') (has_palette `bool') -- Method: set-has-palette Shows and hides the palette based upon the value of HAS-PALETTE. COLORSEL a `'. HAS-PALETTE ``#t'' if palette is to be visible, ``#f'' otherwise. -- Function: gtk-color-selection-get-has-palette (self `') => (ret `bool') -- Method: get-has-palette Determines whether the color selector has a color palette. COLORSEL a `'. RET ``#t'' if the selector has a palette. ``#f'' if it hasn't. -- Function: gtk-color-selection-is-adjusting (self `') => (ret `bool') -- Method: is-adjusting Gets the current state of the COLORSEL. COLORSEL a `'. RET ``#t'' if the user is currently dragging a color around, and ``#f'' if the selection has stopped.  File: guile-gnome-gtk.info, Node: GtkColorSelectionDialog, Next: GtkFileSelection, Prev: GtkColorSelection, Up: Top 79 GtkColorSelectionDialog ************************** A standard dialog box for selecting a color 79.1 Overview ============= The `' provides a standard dialog which allows the user to select a color much like the `' provides a standard dialog for file selection. 79.2 Usage ========== -- Class: Derives from `'. This class defines no direct slots. -- Function: gtk-color-selection-dialog-new (title `mchars') => (ret `') Creates a new `'. TITLE a string containing the title text for the dialog. RET a `'.  File: guile-gnome-gtk.info, Node: GtkFileSelection, Next: GtkFileChooser, Prev: GtkColorSelectionDialog, Up: Top 80 GtkFileSelection ******************* Prompt the user for a file or directory name 80.1 Overview ============= `' should be used to retrieve file or directory names from the user. It will create a new dialog window containing a directory list, and a file list corresponding to the current working directory. The filesystem can be navigated using the directory list or the drop-down history menu. Alternatively, the TAB key can be used to navigate using filename completion - common in text based editors such as emacs and jed. File selection dialogs are created with a call to `gtk-file-selection-new'. The default filename can be set using `gtk-file-selection-set-filename' and the selected filename retrieved using `gtk-file-selection-get-filename'. Use `gtk-file-selection-complete' to display files and directories that match a given pattern. This can be used for example, to show only *.txt files, or only files beginning with gtk*. Simple file operations; create directory, delete file, and rename file, are available from buttons at the top of the dialog. These can be hidden using `gtk-file-selection-hide-fileop-buttons' and shown again using `gtk-file-selection-show-fileop-buttons'. /* The file selection widget and the string to store the chosen filename */ void store_filename (GtkWidget *widget, gpointer user_data) { GtkWidget *file_selector = GTK_WIDGET (user_data); const gchar *selected_filename; selected_filename = gtk_file_selection_get_filename (GTK_FILE_SELECTION (file_selector)); g_print ("Selected filename: %s\n", selected_filename); } void create_file_selection (void) { GtkWidget *file_selector; /* Create the selector */ file_selector = gtk_file_selection_new ("Please select a file for editing."); g_signal_connect (GTK_FILE_SELECTION (file_selector)->ok_button, "clicked", G_CALLBACK (store_filename), file_selector); /* Ensure that the dialog box is destroyed when the user clicks a button. */ g_signal_connect_swapped (GTK_FILE_SELECTION (file_selector)->ok_button, "clicked", G_CALLBACK (gtk_widget_destroy), file_selector); g_signal_connect_swapped (GTK_FILE_SELECTION (file_selector)->cancel_button, "clicked", G_CALLBACK (gtk_widget_destroy), file_selector); /* Display that dialog */ gtk_widget_show (file_selector); } 80.2 Usage ========== -- Class: Derives from `'. This class defines the following slots: `show-fileops' Whether buttons for creating/manipulating files should be displayed `filename' The currently selected filename `select-multiple' Whether to allow multiple files to be selected -- Function: gtk-file-selection-new (title `mchars') => (ret `') Creates a new file selection dialog box. By default it will contain a `' of the application's current working directory, and a file listing. Operation buttons that allow the user to create a directory, delete files and rename files, are also present. TITLE a message that will be placed in the file requestor's titlebar. RET the new file selection. -- Function: gtk-file-selection-set-filename (self `') (filename `mchars') -- Method: set-filename Sets a default path for the file requestor. If FILENAME includes a directory path, then the requestor will open with that path as its current working directory. This has the consequence that in order to open the requestor with a working directory and an empty filename, FILENAME must have a trailing directory separator. The encoding of FILENAME is preferred GLib file name encoding, which may not be UTF-8. See `g-filename-from-utf8'. FILESEL a `'. FILENAME a string to set as the default file name. -- Function: gtk-file-selection-get-filename (self `') => (ret `mchars') -- Method: get-filename This function returns the selected filename in the GLib file name encoding. To convert to UTF-8, call `g-filename-to-utf8'. The returned string points to a statically allocated buffer and should be copied if you plan to keep it around. If no file is selected then the selected directory path is returned. FILESEL a `' RET currently-selected filename in the on-disk encoding. -- Function: gtk-file-selection-complete (self `') (pattern `mchars') -- Method: complete Will attempt to match PATTERN to a valid filenames or subdirectories in the current directory. If a match can be made, the matched filename will appear in the text entry field of the file selection dialog. If a partial match can be made, the "Files" list will contain those file names which have been partially matched, and the "Folders" list those directories which have been partially matched. FILESEL a `'. PATTERN a string of characters which may or may not match any filenames in the current directory.  File: guile-gnome-gtk.info, Node: GtkFileChooser, Next: GtkFileChooserButton, Prev: GtkFileSelection, Up: Top 81 GtkFileChooser ***************** File chooser interface used by GtkFileChooserWidget and GtkFileChooserDialog 81.1 Overview ============= `' is an interface that can be implemented by file selection widgets. In GTK+, the main objects that implement this interface are `', `', and `'. You do not need to write an object that implements the `' interface unless you are trying to adapt an existing file selector to expose a standard programming interface. `' allows for shortcuts to various places in the filesystem. In the default implementation these are displayed in the left pane. It may be a bit confusing at first taht these shortcuts come from various sources and in various flavours, so lets explain the terminology here: SHORTCUTS VOLUMES are created by the user, by dragging folders from the right pane to the left pane, or by using the "Add". Bookmarks can be renamed and deleted by the user. can be provided by the application or by the underlying filesystem abstraction (e.g. both the gnome-vfs and the Windows filesystems provide "Desktop" shortcuts). Shortcuts cannot be modified by the user. are provided by the underlying filesystem abstraction. They are the "roots" of the filesystem. 81.2 File Names and Encodings ============================= When the user is finished selecting files in a `', your program can get the selected names either as filenames or as URIs. For URIs, the normal escaping rules are applied if the URI contains non-ASCII characters. However, filenames are _always_ returned in the character set specified by the `G_FILENAME_ENCODING' environment variable. Please see the Glib documentation for more details about this variable. This means that while you can pass the result of `gtk-file-chooser-get-filename' to `open(2)' or `fopen(3)', you may not be able to directly set it as the text of a `' widget unless you convert it first to UTF-8, which all GTK+ widgets expect. You should use `g-filename-to-utf8' to convert filenames into strings that can be passed to GTK+ widgets. 81.3 Adding a Preview Widget ============================ You can add a custom preview widget to a file chooser and then get notification about when the preview needs to be updated. To install a preview widget, use `gtk-file-chooser-set-preview-widget'. Then, connect to the `' signal to get notified when you need to update the contents of the preview. Your callback should use `gtk-file-chooser-get-preview-filename' to see what needs previewing. Once you have generated the preview for the corresponding file, you must call `gtk-file-chooser-set-preview-widget-active' with a boolean flag that indicates whether your callback could successfully generate a preview. { GtkImage *preview; ... preview = gtk_image_new (); gtk_file_chooser_set_preview_widget (my_file_chooser, preview); g_signal_connect (my_file_chooser, "update-preview", G_CALLBACK (update_preview_cb), preview); } static void update_preview_cb (GtkFileChooser *file_chooser, gpointer data) { GtkWidget *preview; char *filename; GdkPixbuf *pixbuf; gboolean have_preview; preview = GTK_WIDGET (data); filename = gtk_file_chooser_get_preview_filename (file_chooser); pixbuf = gdk_pixbuf_new_from_file_at_size (filename, 128, 128, NULL); have_preview = (pixbuf != NULL); g_free (filename); gtk_image_set_from_pixbuf (GTK_IMAGE (preview), pixbuf); if (pixbuf) gobject_unref (pixbuf); gtk_file_chooser_set_preview_widget_active (file_chooser, have_preview); } 81.4 Adding Extra Widgets ========================= You can add extra widgets to a file chooser to provide options that are not present in the default design. For example, you can add a toggle button to give the user the option to open a file in read-only mode. You can use `gtk-file-chooser-set-extra-widget' to insert additional widgets in a file chooser. { GtkWidget *toggle; ... toggle = gtk_check_button_new_with_label ("Open file read-only"); gtk_widget_show (toggle); gtk_file_chooser_set_extra_widget (my_file_chooser, toggle); } If you want to set more than one extra widget in the file chooser, you can a container such as a GtkVBox or a GtkTable and include your widgets in it. Then, set the container as the whole extra widget. 81.5 Key Bindings ================= Internally, GTK+ implements a file chooser's graphical user interface with the private . This widget has several key bindings and their associated signals. This section describes the available key binding signals. The default keys that activate the key-binding signals in are as follows: Both the individual key and the numeric keypad's "divide" key are supported. Both the individual Up key and the numeric keypad's Up key are supported. You can change these defaults to something else. For example, to add a modifier to a few of the default bindings, you can include the following fragment in your `.gtkrc-2.0' file: binding "my-own-gtkfilechooser-bindings" { bind "Up" { "up-folder" () } bind "Down" { "down-folder" () } bind "Home" { "home-folder" () } } class "GtkFileChooserDefault" binding "my-own-gtkfilechooser-bindings" 81.5.1 The "GtkFileChooserDefault::location-popup" signal --------------------------------------------------------- void user_function (GtkFileChooserDefault *chooser, const char *path, gpointer user_data); This is used to make the file chooser show a "Location" dialog which the user can use to manually type the name of the file he wishes to select. The PATH argument is a string that gets put in the text entry for the file name. By default this is bound to with a PATH string of "" (the empty string). It is also bound to with a PATH string of "`/'" (a slash): this lets you type and immediately type a path name. On Unix systems, this is bound to (tilde) with a PATH string of "~" itself for access to home directories. CHOOSER the object which received the signal. PATH default contents for the text entry for the file name USER-DATA user data set when the signal handler was connected. You can create your own bindings for the signal with custom PATH strings, and have a crude form of easily-to-type bookmarks. For example, say you access the path `/home/username/misc' very frequently. You could then create an shortcut by including the following in your `.gtkrc-2.0': binding "misc-shortcut" { bind "M" { "location-popup" ("/home/username/misc") } } class "GtkFileChooserDefault" binding "misc-shortcut" 81.5.2 The "GtkFileChooserDefault::up-folder" signal ---------------------------------------------------- void user_function (GtkFileChooserDefault *chooser, gpointer user_data); This is used to make the file chooser go to the parent of the current folder in the file hierarchy. By default this is bound to and (the Up key in the numeric keypad also works). CHOOSER the object which received the signal. USER-DATA user data set when the signal handler was connected. 81.5.3 The "GtkFileChooserDefault::down-folder" signal ------------------------------------------------------ void user_function (GtkFileChooserDefault *chooser, gpointer user_data); This is used to make the file chooser go to a child of the current folder in the file hierarchy. The subfolder that will be used is displayed in the path bar widget of the file chooser. For example, if the path bar is showing "/foo/_bar/_baz", then this will cause the file chooser to switch to the "baz" subfolder. By default this is bound to (the Down key in the numeric keypad also works). CHOOSER the object which received the signal. USER-DATA user data set when the signal handler was connected. 81.5.4 The "GtkFileChooserDefault::home-folder" signal ------------------------------------------------------ void user_function (GtkFileChooserDefault *chooser, gpointer user_data); This is used to make the file chooser show the user's home folder in the file list. By default this is bound to (the Home key in the numeric keypad also works). CHOOSER the object which received the signal. USER-DATA user data set when the signal handler was connected. 81.5.5 The "GtkFileChooserDefault::desktop-folder" signal --------------------------------------------------------- void user_function (GtkFileChooserDefault *chooser, gpointer user_data); This is used to make the file chooser show the user's Desktop folder in the file list. By default this is bound to . CHOOSER the object which received the signal. USER-DATA user data set when the signal handler was connected. 81.5.6 The "GtkFileChooserDefault::quick-bookmark" signal --------------------------------------------------------- void user_function (GtkFileChooserDefault *chooser, gint bookmark_index, gpointer user_data); This is used to make the file chooser switch to the bookmark specified in the BOOKMARK-INDEX parameter. For example, if you have three bookmarks, you can pass 0, 1, 2 to this signal to switch to each of them, respectively. By default this is bound to , , etc. until . Note that in the default binding, that is actually defined to switch to the bookmark at index 0, and so on successively; is defined to switch to the bookmark at index 10. CHOOSER the object which received the signal. BOOKMARK-INDES index of the bookmark to switch to; the indices start at 0. USER-DATA user data set when the signal handler was connected. 81.6 Usage ========== -- Class: Derives from `'. This class defines the following slots: `filter' The current filter for selecting which files are displayed `local-only' Whether the selected file(s) should be limited to local file: URLs `use-preview-label' Whether to display a stock label with the name of the previewed file. `preview-widget-active' Whether the application supplied widget for custom previews should be shown. `preview-widget' Application supplied widget for custom previews. `show-hidden' Whether the hidden files and folders should be displayed `do-overwrite-confirmation' Whether a file chooser in save mode will present an overwrite confirmation dialog if necessary. `extra-widget' Application supplied widget for extra options. `file-system-backend' Name of file system backend to use `action' The type of operation that the file selector is performing `select-multiple' Whether to allow multiple files to be selected -- Signal on : current-folder-changed This signal is emitted when the current folder in a `' changes. This can happen due to the user performing some action that changes folders, such as selecting a bookmark or visiting a folder on the file list. It can also happen as a result of calling a function to explicitly change the current folder in a file chooser. Normally you do not need to connect to this signal, unless you need to keep track of which folder a file chooser is showing. See also: `gtk-file-chooser-set-current-folder', `gtk-file-chooser-get-current-folder', `gtk-file-chooser-set-current-folder-uri', `gtk-file-chooser-get-current-folder-uri'. -- Signal on : selection-changed This signal is emitted when there is a change in the set of selected files in a `'. This can happen when the user modifies the selection with the mouse or the keyboard, or when explicitly calling functions to change the selection. Normally you do not need to connect to this signal, as it is easier to wait for the file chooser to finish running, and then to get the list of selected files using the functions mentioned below. See also: `gtk-file-chooser-select-filename', `gtk-file-chooser-unselect-filename', `gtk-file-chooser-get-filename', `gtk-file-chooser-get-filenames', `gtk-file-chooser-select-uri', `gtk-file-chooser-unselect-uri', `gtk-file-chooser-get-uri', `gtk-file-chooser-get-uris'. -- Signal on : update-preview This signal is emitted when the preview in a file chooser should be regenerated. For example, this can happen when the currently selected file changes. You should use this signal if you want your file chooser to have a preview widget. Once you have installed a preview widget with `gtk-file-chooser-set-preview-widget', you should update it when this signal is emitted. You can use the functions `gtk-file-chooser-get-preview-filename' or `gtk-file-chooser-get-preview-uri' to get the name of the file to preview. Your widget may not be able to preview all kinds of files; your callback must call `gtk-file-chooser-set-preview-wiget-active' to inform the file chooser about whether the preview was generated successfully or not. Please see the example code in _(the missing figure, gtkfilechooser-preview_. See also: `gtk-file-chooser-set-preview-widget', `gtk-file-chooser-set-preview-widget-active', `gtk-file-chooser-set-use-preview-label', `gtk-file-chooser-get-preview-filename', `gtk-file-chooser-get-preview-uri'. -- Signal on : file-activated This signal is emitted when the user "activates" a file in the file chooser. This can happen by double-clicking on a file in the file list, or by pressing (keycap "Enter") . Normally you do not need to connect to this signal. It is used internally by `' to know when to activate the default button in the dialog. See also: `gtk-file-chooser-get-filename', `gtk-file-chooser-get-filenames', `gtk-file-chooser-get-uri', `gtk-file-chooser-get-uris'. -- Signal on : confirm-overwrite => `' This signal gets emitted whenever it is appropriate to present a confirmation dialog when the user has selected a file name that already exists. The signal only gets emitted when the file chooser is in `' mode. Most applications just need to turn on the do-overwrite-confirmation property (or call the `gtk-file-chooser-set-do-overwrite-confirmation' function), and they will automatically get a stock confirmation dialog. Applications which need to customize this behavior should do that, and also connect to the `confirm-overwrite' signal. A signal handler for this signal must return a `' value, which indicates the action to take. If the handler determines that the user wants to select a different filename, it should return `'. If it determines that the user is satisfied with his choice of file name, it should return `'. On the other hand, if it determines that the stock confirmation dialog should be used, it should return `'. The following example illustrates this. -- Function: gtk-file-chooser-set-action (self `') (action `') -- Method: set-action Sets the type of operation that the chooser is performing; the user interface is adapted to suit the selected action. For example, an option to create a new folder might be shown if the action is `GTK_FILE_CHOOSER_ACTION_SAVE' but not if the action is `GTK_FILE_CHOOSER_ACTION_OPEN'. CHOOSER a `' ACTION the action that the file selector is performing Since 2.4 -- Function: gtk-file-chooser-get-action (self `') => (ret `') -- Method: get-action Gets the type of operation that the file chooser is performing; see `gtk-file-chooser-set-action'. CHOOSER a `' RET the action that the file selector is performing Since 2.4 -- Function: gtk-file-chooser-set-local-only (self `') (local_only `bool') -- Method: set-local-only Sets whether only local files can be selected in the file selector. If LOCAL-ONLY is ``#t'' (the default), then the selected file are files are guaranteed to be accessible through the operating systems native file file system and therefore the application only needs to worry about the filename functions in `', like `gtk-file-chooser-get-filename', rather than the URI functions like `gtk-file-chooser-get-uri', CHOOSER a `' LOCAL-ONLY ``#t'' if only local files can be selected Since 2.4 -- Function: gtk-file-chooser-get-local-only (self `') => (ret `bool') -- Method: get-local-only Gets whether only local files can be selected in the file selector. See `gtk-file-chooser-set-local-only' CHOOSER a `' RET ``#t'' if only local files can be selected. Since 2.4 -- Function: gtk-file-chooser-set-show-hidden (self `') (show_hidden `bool') -- Method: set-show-hidden Sets whether hidden files and folders are displayed in the file selector. CHOOSER a `' SHOW-HIDDEN ``#t'' if hidden files and folders should be displayed. Since 2.6 -- Function: gtk-file-chooser-get-show-hidden (self `') => (ret `bool') -- Method: get-show-hidden Gets whether hidden files and folders are displayed in the file selector. See `gtk-file-chooser-set-show-hidden'. CHOOSER a `' RET ``#t'' if hidden files and folders are displayed. Since 2.6 -- Function: gtk-file-chooser-set-current-name (self `') (name `mchars') -- Method: set-current-name Sets the current name in the file selector, as if entered by the user. Note that the name passed in here is a UTF-8 string rather than a filename. This function is meant for such uses as a suggested name in a "Save As..." dialog. If you want to preselect a particular existing file, you should use `gtk-file-chooser-set-filename' or `gtk-file-chooser-set-uri' instead. Please see the documentation for those functions for an example of using `gtk-file-chooser-set-current-name' as well. CHOOSER a `' NAME the filename to use, as a UTF-8 string Since 2.4 -- Function: gtk-file-chooser-get-filename (self `') => (ret `mchars') -- Method: get-filename Gets the filename for the currently selected file in the file selector. If multiple files are selected, one of the filenames will be returned at random. If the file chooser is in folder mode, this function returns the selected folder. CHOOSER a `' RET The currently selected filename, or ``#f'' if no file is selected, or the selected file can't be represented with a local filename. Free with `g-free'. Since 2.4 -- Function: gtk-file-chooser-set-filename (self `') (filename `mchars') => (ret `bool') -- Method: set-filename Sets FILENAME as the current filename for the file chooser, by changing to the file's parent folder and actually selecting the file in list. If the CHOOSER is in `' mode, the file's base name will also appear in the dialog's file name entry. If the file name isn't in the current folder of CHOOSER, then the current folder of CHOOSER will be changed to the folder containing FILENAME. This is equivalent to a sequence of `gtk-file-chooser-unselect-all' followed by `gtk-file-chooser-select-filename'. Note that the file must exist, or nothing will be done except for the directory change. If you are implementing a use this function if you already have a file name to which the user may save; for example, when the user opens an existing file and then does "File/Save As...") on it. If you don't have a file name already — for example, if the user just created a new file and is saving it for the first time, do not call this function. Instead, use something similar to this: if (document_is_new) { /* the user just created a new document */ gtk_file_chooser_set_current_folder (chooser, default_folder_for_saving); gtk_file_chooser_set_current_name (chooser, "Untitled document"); } else { /* the user edited an existing document */ gtk_file_chooser_set_filename (chooser, existing_filename); } CHOOSER a `' FILENAME the filename to set as current RET ``#t'' if both the folder could be changed and the file was selected successfully, ``#f'' otherwise. Since 2.4 -- Function: gtk-file-chooser-select-filename (self `') (filename `mchars') => (ret `bool') -- Method: select-filename Selects a filename. If the file name isn't in the current folder of CHOOSER, then the current folder of CHOOSER will be changed to the folder containing FILENAME. CHOOSER a `' FILENAME the filename to select RET ``#t'' if both the folder could be changed and the file was selected successfully, ``#f'' otherwise. Since 2.4 -- Function: gtk-file-chooser-unselect-filename (self `') (filename `mchars') -- Method: unselect-filename Unselects a currently selected filename. If the filename is not in the current directory, does not exist, or is otherwise not currently selected, does nothing. CHOOSER a `' FILENAME the filename to unselect Since 2.4 -- Function: gtk-file-chooser-select-all (self `') -- Method: select-all Selects all the files in the current folder of a file chooser. CHOOSER a `' Since 2.4 -- Function: gtk-file-chooser-unselect-all (self `') -- Method: unselect-all Unselects all the files in the current folder of a file chooser. CHOOSER a `' Since 2.4 -- Function: gtk-file-chooser-get-filenames (self `') => (ret `gslist-of') -- Method: get-filenames Lists all the selected files and subfolders in the current folder of CHOOSER. The returned names are full absolute paths. If files in the current folder cannot be represented as local filenames they will be ignored. (See `gtk-file-chooser-get-uris') CHOOSER a `' RET a `' containing the filenames of all selected files and subfolders in the current folder. Free the returned list with `g-slist-free', and the filenames with `g-free'. Since 2.4 -- Function: gtk-file-chooser-set-current-folder (self `') (filename `mchars') => (ret `bool') -- Method: set-current-folder Sets the current folder for CHOOSER from a local filename. The user will be shown the full contents of the current folder, plus user interface elements for navigating to other folders. CHOOSER a `' FILENAME the full path of the new current folder RET ``#t'' if the folder could be changed successfully, ``#f'' otherwise. Since 2.4 -- Function: gtk-file-chooser-get-current-folder (self `') => (ret `mchars') -- Method: get-current-folder Gets the current folder of CHOOSER as a local filename. See `gtk-file-chooser-set-current-folder'. Note that this is the folder that the file chooser is currently displaying (e.g. "/home/username/Documents"), which is _not the same_ as the currently-selected folder if the chooser is in `' mode (e.g. "/home/username/Documents/selected-folder/". To get the currently-selected folder in that mode, use `gtk-file-chooser-get-uri' as the usual way to get the selection. CHOOSER a `' RET the full path of the current folder, or ``#f'' if the current path cannot be represented as a local filename. Free with `g-free'. This function will also return ``#f'' if the file chooser was unable to load the last folder that was requested from it; for example, as would be for calling `gtk-file-chooser-set-current-folder' on a nonexistent folder. Since 2.4 -- Function: gtk-file-chooser-get-uri (self `') => (ret `mchars') -- Method: get-uri Gets the URI for the currently selected file in the file selector. If multiple files are selected, one of the filenames will be returned at random. If the file chooser is in folder mode, this function returns the selected folder. CHOOSER a `' RET The currently selected URI, or ``#f'' if no file is selected. Free with `g-free' Since 2.4 -- Function: gtk-file-chooser-set-uri (self `') (uri `mchars') => (ret `bool') -- Method: set-uri Sets the file referred to by URI as the current file for the file chooser, by changing to the URI's parent folder and actually selecting the URI in the list. If the CHOOSER is `' mode, the URI's base name will also appear in the dialog's file name entry. If the URI isn't in the current folder of CHOOSER, then the current folder of CHOOSER will be changed to the folder containing URI. This is equivalent to a sequence of `gtk-file-chooser-unselect-all' followed by `gtk-file-chooser-select-uri'. Note that the URI must exist, or nothing will be done except for the directory change. If you are implementing a should use this function if you already have a file name to which the user may save; for example, when the user opens an existing file and then does (guimenuitem "File/Save As...") on it. If you don't have a file name already — for example, if the user just created a new file and is saving it for the first time, do not call this function. Instead, use something similar to this: if (document_is_new) { /* the user just created a new document */ gtk_file_chooser_set_current_folder_uri (chooser, default_folder_for_saving); gtk_file_chooser_set_current_name (chooser, "Untitled document"); } else { /* the user edited an existing document */ gtk_file_chooser_set_uri (chooser, existing_uri); } CHOOSER a `' URI the URI to set as current RET ``#t'' if both the folder could be changed and the URI was selected successfully, ``#f'' otherwise. Since 2.4 -- Function: gtk-file-chooser-select-uri (self `') (uri `mchars') => (ret `bool') -- Method: select-uri Selects the file to by URI. If the URI doesn't refer to a file in the current folder of CHOOSER, then the current folder of CHOOSER will be changed to the folder containing FILENAME. CHOOSER a `' URI the URI to select RET ``#t'' if both the folder could be changed and the URI was selected successfully, ``#f'' otherwise. Since 2.4 -- Function: gtk-file-chooser-unselect-uri (self `') (uri `mchars') -- Method: unselect-uri Unselects the file referred to by URI. If the file is not in the current directory, does not exist, or is otherwise not currently selected, does nothing. CHOOSER a `' URI the URI to unselect Since 2.4 -- Function: gtk-file-chooser-get-uris (self `') => (ret `gslist-of') -- Method: get-uris Lists all the selected files and subfolders in the current folder of CHOOSER. The returned names are full absolute URIs. CHOOSER a `' RET a `' containing the URIs of all selected files and subfolders in the current folder. Free the returned list with `g-slist-free', and the filenames with `g-free'. Since 2.4 -- Function: gtk-file-chooser-set-preview-widget (self `') (preview_widget `') -- Method: set-preview-widget Sets an application-supplied widget to use to display a custom preview of the currently selected file. To implement a preview, after setting the preview widget, you connect to the ::update-preview signal, and call `gtk-file-chooser-get-preview-filename' or `gtk-file-chooser-get-preview-uri' on each change. If you can display a preview of the new file, update your widget and set the preview active using `gtk-file-chooser-set-preview-widget-active'. Otherwise, set the preview inactive. When there is no application-supplied preview widget, or the application-supplied preview widget is not active, the file chooser may display an internally generated preview of the current file or it may display no preview at all. CHOOSER a `' PREVIEW-WIDGET widget for displaying preview. Since 2.4 -- Function: gtk-file-chooser-get-preview-widget (self `') => (ret `') -- Method: get-preview-widget Gets the current preview widget; see `gtk-file-chooser-set-preview-widget'. CHOOSER a `' RET the current preview widget, or ``#f'' Since 2.4 -- Function: gtk-file-chooser-get-preview-uri (self `') => (ret `mchars') -- Method: get-preview-uri Gets the URI that should be previewed in a custom preview widget. See `gtk-file-chooser-set-preview-widget'. CHOOSER a `' RET the URI for the file to preview, or ``#f'' if no file is selected. Free with `g-free'. Since 2.4 -- Function: gtk-file-chooser-set-extra-widget (self `') (extra_widget `') -- Method: set-extra-widget Sets an application-supplied widget to provide extra options to the user. CHOOSER a `' EXTRA-WIDGET widget for extra options Since 2.4 -- Function: gtk-file-chooser-get-extra-widget (self `') => (ret `') -- Method: get-extra-widget Gets the current preview widget; see `gtk-file-chooser-set-extra-widget'. CHOOSER a `' RET the current extra widget, or ``#f'' Since 2.4 -- Function: gtk-file-chooser-add-filter (self `') (filter `') -- Method: add-filter Adds FILTER to the list of filters that the user can select between. When a filter is selected, only files that are passed by that filter are displayed. Note that the CHOOSER takes ownership of the filter, so you have to ref and sink it if you want to keep a reference. CHOOSER a `' FILTER a `' Since 2.4 -- Function: gtk-file-chooser-remove-filter (self `') (filter `') -- Method: remove-filter Removes FILTER from the list of filters that the user can select between. CHOOSER a `' FILTER a `' Since 2.4 -- Function: gtk-file-chooser-list-filters (self `') => (ret `gslist-of') -- Method: list-filters Lists the current set of user-selectable filters; see `gtk-file-chooser-add-filter', `gtk-file-chooser-remove-filter'. CHOOSER a `' RET a `' containing the current set of user selectable filters. The contents of the list are owned by GTK+, but you must free the list itself with `g-slist-free' when you are done with it. Since 2.4 -- Function: gtk-file-chooser-set-filter (self `') (filter `') -- Method: set-filter Sets the current filter; only the files that pass the filter will be displayed. If the user-selectable list of filters is non-empty, then the filter should be one of the filters in that list. Setting the current filter when the list of filters is empty is useful if you want to restrict the displayed set of files without letting the user change it. CHOOSER a `' FILTER a `' Since 2.4 -- Function: gtk-file-chooser-get-filter (self `') => (ret `') -- Method: get-filter Gets the current filter; see `gtk-file-chooser-set-filter'. CHOOSER a `' RET the current filter, or ``#f'' Since 2.4  File: guile-gnome-gtk.info, Node: GtkFileChooserButton, Next: GtkFileChooserDialog, Prev: GtkFileChooser, Up: Top 82 GtkFileChooserButton *********************** A button to launch a file selection dialog 82.1 Overview ============= The `' is a widget that lets the user select a file. It implements the `' interface. Visually, it is a file name with a button to bring up a `'. The user can then use that dialog to change the file associated with that button. This widget does not support setting the "select-multiple" property to ``#t''. { GtkWidget *button; button = gtk_file_chooser_button_new (_("Select a file"), GTK_FILE_CHOOSER_ACTION_OPEN); gtk_file_chooser_set_current_folder (GTK_FILE_CHOOSER (button), "/etc"); } The `' supports the `'s `GTK_FILE_CHOOSER_ACTION_OPEN' and `GTK_FILE_CHOOSER_ACTION_SELECT_FOLDER'. The `' will ellipsize the label, and thus will thus request little horizontal space. To give the button more space, you should call `gtk-widget-size-request', `gtk-file-chooser-button-set-width-chars', or pack the button in such a way that other interface elements give space to the widget. 82.2 Usage ========== -- Class: Derives from `', `'. This class defines the following slots: `dialog' The file chooser dialog to use. `focus-on-click' Whether the button grabs focus when it is clicked with the mouse `title' The title of the file chooser dialog. `width-chars' The desired width of the button widget, in characters. -- Signal on : file-set undocumented -- Function: gtk-file-chooser-button-new (title `mchars') (action `') => (ret `') Creates a new file-selecting button widget. TITLE the title of the browse dialog. ACTION the open mode for the widget. RET a new button widget. Since 2.6 -- Function: gtk-file-chooser-button-get-title (self `') => (ret `mchars') -- Method: get-title Retrieves the title of the browse dialog used by BUTTON. The returned value should not be modified or freed. BUTTON the button widget to examine. RET a pointer to the browse dialog's title. Since 2.6 -- Function: gtk-file-chooser-button-set-title (self `') (title `mchars') -- Method: set-title Modifies the TITLE of the browse dialog used by BUTTON. BUTTON the button widget to modify. TITLE the new browse dialog title. Since 2.6  File: guile-gnome-gtk.info, Node: GtkFileChooserDialog, Next: GtkFileChooserWidget, Prev: GtkFileChooserButton, Up: Top 83 GtkFileChooserDialog *********************** A file chooser dialog, suitable for "File/Open" or "File/Save" commands 83.1 Overview ============= `' is a dialog box suitable for use with "File/Open" or "File/Save as" commands. This widget works by putting a `' inside a `'. It exposes the `' interface, so you can use all of the `' functions on the file chooser dialog as well as those for `'. Note that `' does not have any methods of its own. Instead, you should use the functions that work on a `'. In the simplest of cases, you can the following code to use `' to select a file for opening: GtkWidget *dialog; dialog = gtk_file_chooser_dialog_new ("Open File", parent_window, GTK_FILE_CHOOSER_ACTION_OPEN, GTK_STOCK_CANCEL, GTK_RESPONSE_CANCEL, GTK_STOCK_OPEN, GTK_RESPONSE_ACCEPT, NULL); if (gtk_dialog_run (GTK_DIALOG (dialog)) == GTK_RESPONSE_ACCEPT) { char *filename; filename = gtk_file_chooser_get_filename (GTK_FILE_CHOOSER (dialog)); open_file (filename); g_free (filename); } gtk_widget_destroy (dialog); To use a dialog for saving, you can use this: GtkWidget *dialog; dialog = gtk_file_chooser_dialog_new ("Save File", parent_window, GTK_FILE_CHOOSER_ACTION_SAVE, GTK_STOCK_CANCEL, GTK_RESPONSE_CANCEL, GTK_STOCK_SAVE, GTK_RESPONSE_ACCEPT, NULL); gtk_file_chooser_set_do_overwrite_confirmation (GTK_FILE_CHOOSER (dialog), TRUE); if (user_edited_a_new_document) { gtk_file_chooser_set_current_folder (GTK_FILE_CHOOSER (dialog), default_folder_for_saving); gtk_file_chooser_set_current_name (GTK_FILE_CHOOSER (dialog), "Untitled document"); } else gtk_file_chooser_set_filename (GTK_FILE_CHOOSER (dialog), filename_for_existing_document); if (gtk_dialog_run (GTK_DIALOG (dialog)) == GTK_RESPONSE_ACCEPT) { char *filename; filename = gtk_file_chooser_get_filename (GTK_FILE_CHOOSER (dialog)); save_to_file (filename); g_free (filename); } gtk_widget_destroy (dialog); `' inherits from `', so buttons that go in its action area have response codes such as `' and `'. For example, you could call `gtk-file-chooser-dialog-new' as follows: GtkWidget *dialog; dialog = gtk_file_chooser_dialog_new ("Open File", parent_window, GTK_FILE_CHOOSER_ACTION_OPEN, GTK_STOCK_CANCEL, GTK_RESPONSE_CANCEL, GTK_STOCK_OPEN, GTK_RESPONSE_ACCEPT, NULL); This will create buttons for "Cancel" and "Open" that use stock response identifiers from `'. For most dialog boxes you can use your own custom response codes rather than the ones in `', but `' assumes that its "accept"-type action, e.g. an "Open" or "Save" button, _will_ have one of the following response codes: This is because `' must intercept responses and switch to folders if appropriate, rather than letting the dialog terminate — the implementation uses these known response codes to know which responses can be blocked if appropriate. To summarize, make sure you use a stock response code when you use `' to ensure proper operation. 83.2 Usage ========== -- Class: Derives from `', `'. This class defines no direct slots.  File: guile-gnome-gtk.info, Node: GtkFileChooserWidget, Next: GtkFileFilter, Prev: GtkFileChooserDialog, Up: Top 84 GtkFileChooserWidget *********************** File chooser widget that can be embedded in other widgets 84.1 Overview ============= `' is a widget suitable for selecting files. It is the main building block of a `'. Most applications will only need to use the latter; you can use `' as part of a larger window if you have special needs. Note that `' does not have any methods of its own. Instead, you should use the functions that work on a `'. 84.2 Usage ========== -- Class: Derives from `', `', `'. This class defines no direct slots. -- Function: gtk-file-chooser-widget-new (action `') => (ret `') Creates a new `'. This is a file chooser widget that can be embedded in custom windows, and it is the same widget that is used by `'. ACTION Open or save mode for the widget RET a new `' Since 2.4  File: guile-gnome-gtk.info, Node: GtkFileFilter, Next: GtkFontButton, Prev: GtkFileChooserWidget, Up: Top 85 GtkFileFilter **************** A filter for selecting a file subset 85.1 Overview ============= A GtkFileFilter can be used to restrict the files being shown in a `'. Files can be filtered based on their name (with `gtk-file-filter-add-pattern'), on their mime type (with `gtk-file-filter-add-mime-type'), or by a custom filter function (with `gtk-file-filter-add-custom'). Filtering by mime types handles aliasing and subclassing of mime types; e.g. a filter for text/plain also matches a file with mime type application/rtf, since application/rtf is a subclass of text/plain. Note that `' allows wildcards for the subtype of a mime type, so you can e.g. filter for image/*. Normally, filters are used by adding them to a `', see `gtk-file-chooser-add-filter', but it is also possible to manually use a filter on a file with `gtk-file-filter-filter'. 85.2 Usage ========== -- Class: Derives from `'. This class defines no direct slots. -- Function: gtk-file-filter-new => (ret `') Creates a new `' with no rules added to it. Such a filter doesn't accept any files, so is not particularly useful until you add rules with `gtk-file-filter-add-mime-type', `gtk-file-filter-add-pattern', or `gtk-file-filter-add-custom'. To create a filter that accepts any file, use: GtkFileFilter *filter = gtk_file_filter_new (); gtk_file_filter_add_pattern (filter, "*"); RET a new `' Since 2.4 -- Function: gtk-file-filter-set-name (self `') (name `mchars') -- Method: set-name Sets the human-readable name of the filter; this is the string that will be displayed in the file selector user interface if there is a selectable list of filters. FILTER a `' NAME the human-readable-name for the filter, or ``#f'' to remove any existing name. Since 2.4 -- Function: gtk-file-filter-get-name (self `') => (ret `mchars') -- Method: get-name Gets the human-readable name for the filter. See `gtk-file-filter-set-name'. FILTER a `' RET The human-readable name of the filter, or ``#f''. This value is owned by GTK+ and must not be modified or freed. Since 2.4 -- Function: gtk-file-filter-add-mime-type (self `') (mime_type `mchars') -- Method: add-mime-type Adds a rule allowing a given mime type to FILTER. FILTER A `' MIME-TYPE name of a MIME type Since 2.4 -- Function: gtk-file-filter-add-pattern (self `') (pattern `mchars') -- Method: add-pattern Adds a rule allowing a shell style glob to a filter. FILTER a `' PATTERN a shell style glob Since 2.4 -- Function: gtk-file-filter-add-pixbuf-formats (self `') -- Method: add-pixbuf-formats Adds a rule allowing image files in the formats supported by GdkPixbuf. FILTER a `' Since 2.6 -- Function: gtk-file-filter-get-needed (self `') => (ret `') -- Method: get-needed Gets the fields that need to be filled in for the structure passed to `gtk-file-filter-filter' This function will not typically be used by applications; it is intended principally for use in the implementation of `'. FILTER a `' RET bitfield of flags indicating needed fields when calling `gtk-file-filter-filter' Since 2.4  File: guile-gnome-gtk.info, Node: GtkFontButton, Next: GtkFontSelection, Prev: GtkFileFilter, Up: Top 86 GtkFontButton **************** A button to launch a font selection dialog 86.1 Overview ============= The `' is a button which displays the currently selected font an allows to open a font selection dialog to change the font. It is suitable widget for selecting a font in a preference dialog. 86.2 Usage ========== -- Class: Derives from `'. This class defines the following slots: `title' The title of the font selection dialog `font-name' The name of the selected font `use-font' Whether the label is drawn in the selected font `use-size' Whether the label is drawn with the selected font size `show-style' Whether the selected font style is shown in the label `show-size' Whether selected font size is shown in the label -- Signal on : font-set The ::font-set signal is emitted when the user selects a font. When handling this signal, use `gtk-font-button-get-font-name' to find out which font was just selected. Note that this signal is only emitted when the _user_ changes the font. If you need to react to programmatic font changes as well, use the notify::font-name signal. Since 2.4 -- Function: gtk-font-button-new => (ret `') Creates a new font picker widget. RET a new font picker widget. Since 2.4 -- Function: gtk-font-button-new-with-font (fontname `mchars') => (ret `') Creates a new font picker widget. FONTNAME Name of font to display in font selection dialog RET a new font picker widget. Since 2.4 -- Function: gtk-font-button-set-font-name (self `') (fontname `mchars') => (ret `bool') -- Method: set-font-name Sets or updates the currently-displayed font in font picker dialog. FONT-BUTTON a `' FONTNAME Name of font to display in font selection dialog RET Return value of `gtk-font-selection-dialog-set-font-name' if the font selection dialog exists, otherwise ``#f''. Since 2.4 -- Function: gtk-font-button-get-font-name (self `') => (ret `mchars') -- Method: get-font-name Retrieves the name of the currently selected font. FONT-BUTTON a `' RET an internal copy of the font name which must not be freed. Since 2.4 -- Function: gtk-font-button-set-show-style (self `') (show_style `bool') -- Method: set-show-style If SHOW-STYLE is ``#t'', the font style will be displayed along with name of the selected font. FONT-BUTTON a `' SHOW-STYLE ``#t'' if font style should be displayed in label. Since 2.4 -- Function: gtk-font-button-get-show-style (self `') => (ret `bool') -- Method: get-show-style Returns whether the name of the font style will be shown in the label. FONT-BUTTON a `' RET whether the font style will be shown in the label. Since 2.4 -- Function: gtk-font-button-set-show-size (self `') (show_size `bool') -- Method: set-show-size If SHOW-SIZE is ``#t'', the font size will be displayed along with the name of the selected font. FONT-BUTTON a `' SHOW-SIZE ``#t'' if font size should be displayed in dialog. Since 2.4 -- Function: gtk-font-button-get-show-size (self `') => (ret `bool') -- Method: get-show-size Returns whether the font size will be shown in the label. FONT-BUTTON a `' RET whether the font size will be shown in the label. Since 2.4 -- Function: gtk-font-button-set-use-font (self `') (use_font `bool') -- Method: set-use-font If USE-FONT is ``#t'', the font name will be written using the selected font. FONT-BUTTON a `' USE-FONT If ``#t'', font name will be written using font chosen. Since 2.4 -- Function: gtk-font-button-get-use-font (self `') => (ret `bool') -- Method: get-use-font Returns whether the selected font is used in the label. FONT-BUTTON a `' RET whether the selected font is used in the label. Since 2.4 -- Function: gtk-font-button-set-use-size (self `') (use_size `bool') -- Method: set-use-size If USE-SIZE is ``#t'', the font name will be written using the selected size. FONT-BUTTON a `' USE-SIZE If ``#t'', font name will be written using the selected size. Since 2.4 -- Function: gtk-font-button-get-use-size (self `') => (ret `bool') -- Method: get-use-size Returns whether the selected size is used in the label. FONT-BUTTON a `' RET whether the selected size is used in the label. Since 2.4 -- Function: gtk-font-button-set-title (self `') (title `mchars') -- Method: set-title Sets the title for the font selection dialog. FONT-BUTTON a `' TITLE a string containing the font selection dialog title Since 2.4 -- Function: gtk-font-button-get-title (self `') => (ret `mchars') -- Method: get-title Retrieves the title of the font selection dialog. FONT-BUTTON a `' RET an internal copy of the title string which must not be freed. Since 2.4  File: guile-gnome-gtk.info, Node: GtkFontSelection, Next: GtkFontSelectionDialog, Prev: GtkFontButton, Up: Top 87 GtkFontSelection ******************* A widget for selecting fonts 87.1 Overview ============= The `' widget lists the available fonts, styles and sizes, allowing the user to select a font. It is used in the `' widget to provide a dialog box for selecting fonts. To set the font which is initially selected, use `gtk-font-selection-set-font-name'. To get the selected font use `gtk-font-selection-get-font-name'. To change the text which is shown in the preview area, use `gtk-font-selection-set-preview-text'. 87.2 Usage ========== -- Class: Derives from `'. This class defines the following slots: `font-name' The X string that represents this font `font' The GdkFont that is currently selected `preview-text' The text to display in order to demonstrate the selected font -- Function: gtk-font-selection-new => (ret `') Creates a new `'. RET a new `'. -- Function: gtk-font-selection-get-font-name (self `') => (ret `mchars') -- Method: get-font-name Gets the currently-selected font name. Note that this can be a different string than what you set with `gtk-font-selection-set-font-name', as the font selection widget may normalize font names and thus return a string with a different structure. For example, "Helvetica Italic Bold 12" could be normalized to "Helvetica Bold Italic 12". Use `pango-font-description-equal' if you want to compare two font descriptions. FONTSEL a `' RET A string with the name of the current font, or ``#f'' if no font is selected. You must free this string with `g-free'. -- Function: gtk-font-selection-set-font-name (self `') (fontname `mchars') => (ret `bool') -- Method: set-font-name Sets the currently-selected font. Note that the FONTSEL needs to know the screen in which it will appear for this to work; this can be guaranteed by simply making sure that the FONTSEL is inserted in a toplevel window before you call this function. FONTSEL a `' FONTNAME a font name like "Helvetica 12" or "Times Bold 18" RET ``#t'' if the font could be set successfully; ``#f'' if no such font exists or if the FONTSEL doesn't belong to a particular screen yet. -- Function: gtk-font-selection-get-preview-text (self `') => (ret `mchars') -- Method: get-preview-text Gets the text displayed in the preview area. FONTSEL a `'. RET the text displayed in the preview area. This string is owned by the widget and should not be modified or freed. -- Function: gtk-font-selection-set-preview-text (self `') (text `mchars') -- Method: set-preview-text Sets the text displayed in the preview area. FONTSEL a `'. TEXT the text to display in the preview area.  File: guile-gnome-gtk.info, Node: GtkFontSelectionDialog, Next: GtkInputDialog, Prev: GtkFontSelection, Up: Top 88 GtkFontSelectionDialog ************************* A dialog box for selecting fonts 88.1 Overview ============= The `' widget is a dialog box for selecting a font. To set the font which is initially selected, use `gtk-font-selection-dialog-set-font-name'. To get the selected font use `gtk-font-selection-dialog-get-font-name'. To change the text which is shown in the preview area, use `gtk-font-selection-dialog-set-preview-text'. 88.2 Usage ========== -- Class: Derives from `'. This class defines no direct slots. -- Function: gtk-font-selection-dialog-new (title `mchars') => (ret `') Creates a new `'. TITLE the title of the dialog box. RET a new `'.  File: guile-gnome-gtk.info, Node: GtkInputDialog, Next: GtkAlignment, Prev: GtkFontSelectionDialog, Up: Top 89 GtkInputDialog ***************** Configure devices for the XInput extension 89.1 Overview ============= NOTE this widget is considered too specialized/little-used for GTK+, and will in the future be moved to some other package. If your application needs this widget, feel free to use it, as the widget does work and is useful in some applications; it's just not of general interest. However, we are not accepting new features for the widget, and it will eventually move out of the GTK+ distribution. `' displays a dialog which allows the user to configure XInput extension devices. For each device, they can control the mode of the device (disabled, screen-relative, or window-relative), the mapping of axes to coordinates, and the mapping of the devices macro keys to key press events. `' contains two buttons to which the application can connect; one for closing the dialog, and one for saving the changes. No actions are bound to these by default. The changes that the user makes take effect immediately. 89.2 Usage ========== -- Class: Derives from `'. This class defines no direct slots. -- Signal on : enable-device (arg0 `') This signal is emitted when the user changes the mode of a device from `' to a `' or `'. -- Signal on : disable-device (arg0 `') This signal is emitted when the user changes the mode of a device from a `' or `' to `'. -- Function: gtk-input-dialog-new => (ret `') Creates a new `'. RET the new `'.  File: guile-gnome-gtk.info, Node: GtkAlignment, Next: GtkAspectFrame, Prev: GtkInputDialog, Up: Top 90 GtkAlignment *************** A widget which controls the alignment and size of its child 90.1 Overview ============= The `' widget controls the alignment and size of its child widget. It has four settings: xscale, yscale, xalign, and yalign. The scale settings are used to specify how much the child widget should expand to fill the space allocated to the `'. The values can range from 0 (meaning the child doesn't expand at all) to 1 (meaning the child expands to fill all of the available space). The align settings are used to place the child widget within the available area. The values range from 0 (top or left) to 1 (bottom or right). Of course, if the scale settings are both set to 1, the alignment settings have no effect. 90.2 Usage ========== -- Class: Derives from `'. This class defines the following slots: `xalign' Horizontal position of child in available space. 0.0 is left aligned, 1.0 is right aligned `yalign' Vertical position of child in available space. 0.0 is top aligned, 1.0 is bottom aligned `xscale' If available horizontal space is bigger than needed for the child, how much of it to use for the child. 0.0 means none, 1.0 means all `yscale' If available vertical space is bigger than needed for the child, how much of it to use for the child. 0.0 means none, 1.0 means all `top-padding' The padding to insert at the top of the widget. `bottom-padding' The padding to insert at the bottom of the widget. `left-padding' The padding to insert at the left of the widget. `right-padding' The padding to insert at the right of the widget. -- Function: gtk-alignment-new (xalign `float') (yalign `float') (xscale `float') (yscale `float') => (ret `') Creates a new `'. XALIGN the horizontal alignment of the child widget, from 0 (left) to 1 (right). YALIGN the vertical alignment of the child widget, from 0 (top) to 1 (bottom). XSCALE the amount that the child widget expands horizontally to fill up unused space, from 0 to 1. A value of 0 indicates that the child widget should never expand. A value of 1 indicates that the child widget will expand to fill all of the space allocated for the `'. YSCALE the amount that the child widget expands vertically to fill up unused space, from 0 to 1. The values are similar to XSCALE. RET the new `'. -- Function: gtk-alignment-set (self `') (xalign `float') (yalign `float') (xscale `float') (yscale `float') -- Method: set Sets the `' values. ALIGNMENT a `'. XALIGN the horizontal alignment of the child widget, from 0 (left) to 1 (right). YALIGN the vertical alignment of the child widget, from 0 (top) to 1 (bottom). XSCALE the amount that the child widget expands horizontally to fill up unused space, from 0 to 1. A value of 0 indicates that the child widget should never expand. A value of 1 indicates that the child widget will expand to fill all of the space allocated for the `'. YSCALE the amount that the child widget expands vertically to fill up unused space, from 0 to 1. The values are similar to XSCALE. -- Function: gtk-alignment-get-padding (self `') => (padding_top `unsigned-int') (padding_bottom `unsigned-int') (padding_left `unsigned-int') (padding_right `unsigned-int') -- Method: get-padding Gets the padding on the different sides of the widget. See `gtk-alignment-set-padding'. ALIGNMENT a `' PADDING-TOP location to store the padding for the top of the widget, or ``#f'' PADDING-BOTTOM location to store the padding for the bottom of the widget, or ``#f'' PADDING-LEFT location to store the padding for the left of the widget, or ``#f'' PADDING-RIGHT location to store the padding for the right of the widget, or ``#f'' Since 2.4 -- Function: gtk-alignment-set-padding (self `') (padding_top `unsigned-int') (padding_bottom `unsigned-int') (padding_left `unsigned-int') (padding_right `unsigned-int') -- Method: set-padding Sets the padding on the different sides of the widget. The padding adds blank space to the sides of the widget. For instance, this can be used to indent the child widget towards the right by adding padding on the left. ALIGNMENT a `' PADDING-TOP the padding at the top of the widget PADDING-BOTTOM the padding at the bottom of the widget PADDING-LEFT the padding at the left of the widget PADDING-RIGHT the padding at the right of the widget. Since 2.4  File: guile-gnome-gtk.info, Node: GtkAspectFrame, Next: GtkHBox, Prev: GtkAlignment, Up: Top 91 GtkAspectFrame ***************** A frame that constrains its child to a particular aspect ratio 91.1 Overview ============= The `' is useful when you want pack a widget so that it can resize but always retains the same aspect ratio. For instance, one might be drawing a small preview of a larger image. `' derives from `', so it can draw a label and a frame around the child. The frame will be "shrink-wrapped" to the size of the child. 91.2 Usage ========== -- Class: Derives from `'. This class defines the following slots: `xalign' X alignment of the child `yalign' Y alignment of the child `ratio' Aspect ratio if obey_child is FALSE `obey-child' Force aspect ratio to match that of the frame's child -- Function: gtk-aspect-frame-new (label `mchars') (xalign `float') (yalign `float') (ratio `float') (obey_child `bool') => (ret `') Create a new `'. LABEL Label text. XALIGN Horizontal alignment of the child within the allocation of the `'. This ranges from 0.0 (left aligned) to 1.0 (right aligned) YALIGN Vertical alignment of the child within the allocation of the `'. This ranges from 0.0 (left aligned) to 1.0 (right aligned) RATIO The desired aspect ratio. OBEY-CHILD If ``#t'', RATIO is ignored, and the aspect ratio is taken from the requistion of the child. RET the new `'. -- Function: gtk-aspect-frame-set (self `') (xalign `float') (yalign `float') (ratio `float') (obey_child `bool') -- Method: set Set parameters for an existing `'. ASPECT-FRAME a `' XALIGN Horizontal alignment of the child within the allocation of the `'. This ranges from 0.0 (left aligned) to 1.0 (right aligned) YALIGN Vertical alignment of the child within the allocation of the `'. This ranges from 0.0 (left aligned) to 1.0 (right aligned) RATIO The desired aspect ratio. OBEY-CHILD If ``#t'', RATIO is ignored, and the aspect ratio is taken from the requistion of the child.  File: guile-gnome-gtk.info, Node: GtkHBox, Next: GtkVBox, Prev: GtkAspectFrame, Up: Top 92 GtkHBox ********** A horizontal container box 92.1 Overview ============= GtkHBox is a container that organizes child widgets into a single row. Use the `' packing interface to determine the arrangement, spacing, width, and alignment of GtkHBox children. All children are allocated the same height. 92.2 Usage ========== -- Class: Derives from `'. This class defines no direct slots. -- Function: gtk-hbox-new (homogeneous `bool') (spacing `int') => (ret `') Creates a new GtkHBox. HOMOGENEOUS ``#t'' if all children are to be given equal space allotments. SPACING the number of pixels to place by default between children. RET a new GtkHBox.  File: guile-gnome-gtk.info, Node: GtkVBox, Next: GtkHButtonBox, Prev: GtkHBox, Up: Top 93 GtkVBox ********** A vertical container box 93.1 Overview ============= GtkVBox is a container that organizes child widgets into a single column. Use the `' packing interface to determine the arrangement, spacing, height, and alignment of GtkVBox children. All children are allocated the same width. 93.2 Usage ========== -- Class: Derives from `'. This class defines no direct slots. -- Function: gtk-vbox-new (homogeneous `bool') (spacing `int') => (ret `') Creates a new GtkVBox. HOMOGENEOUS ``#t'' if all children are to be given equal space allotments. SPACING the number of pixels to place by default between children. RET a new GtkVBox.  File: guile-gnome-gtk.info, Node: GtkHButtonBox, Next: GtkVButtonBox, Prev: GtkVBox, Up: Top 94 GtkHButtonBox **************** A container for arranging buttons horizontally 94.1 Overview ============= A button box should be used to provide a consistent layout of buttons throughout your application. The layout/spacing can be altered by the programmer, or if desired, by the user to alter the 'feel' of a program to a small degree. A `' is created with `gtk-hbutton-box-new'. Buttons are packed into a button box the same way widgets are added to any other container, using `gtk-container-add'. You can also use `gtk-box-pack-start' or `gtk-box-pack-end', but for button boxes both these functions work just like `gtk-container-add', ie., they pack the button in a way that depends on the current layout style and on whether the button has had `gtk-button-box-set-child-secondary' called on it. The spacing between buttons can be set with `gtk-box-set-spacing'. The arrangement and layout of the buttons can be changed with `gtk-button-box-set-layout'. 94.2 Usage ========== -- Class: Derives from `'. This class defines no direct slots. -- Function: gtk-hbutton-box-new => (ret `') Creates a new horizontal button box. RET a new button box `'.  File: guile-gnome-gtk.info, Node: GtkVButtonBox, Next: GtkFixed, Prev: GtkHButtonBox, Up: Top 95 GtkVButtonBox **************** A container for arranging buttons vertically 95.1 Overview ============= A button box should be used to provide a consistent layout of buttons throughout your application. The layout/spacing can be altered by the programmer, or if desired, by the user to alter the 'feel' of a program to a small degree. A `' is created with `gtk-vbutton-box-new'. Buttons are packed into a button box the same way widgets are added to any other container, using `gtk-container-add'. You can also use `gtk-box-pack-start' or `gtk-box-pack-end', but for button boxes both these functions work just like `gtk-container-add', ie., they pack the button in a way that depends on the current layout style and on whether the button has had `gtk-button-box-set-child-secondary' called on it. The spacing between buttons can be set with `gtk-box-set-spacing'. The arrangement and layout of the buttons can be changed with `gtk-button-box-set-layout'. 95.2 Usage ========== -- Class: Derives from `'. This class defines no direct slots. -- Function: gtk-vbutton-box-new => (ret `') Creates a new vertical button box. RET a new button box `'.  File: guile-gnome-gtk.info, Node: GtkFixed, Next: GtkHPaned, Prev: GtkVButtonBox, Up: Top 96 GtkFixed *********** A container which allows you to position widgets at fixed coordinates 96.1 Overview ============= The `' widget is a container which can place child widgets at fixed positions and with fixed sizes, given in pixels. `' performs no automatic layout management. For most applications, you should not use this container! It keeps you from having to learn about the other GTK+ containers, but it results in broken applications. With `', the following things will result in truncated text, overlapping widgets, and other display bugs: Themes, which may change widget sizes. Fonts other than the one you used to write the app will of course change the size of widgets containing text; keep in mind that users may use a larger font because of difficulty reading the default, or they may be using Windows or the framebuffer port of GTK+, where different fonts are available. Translation of text into other languages changes its size. Also, display of non-English text will use a different font in many cases. In addition, the fixed widget can't properly be mirrored in right-to-left languages such as Hebrew and Arabic. i.e. normally GTK+ will flip the interface to put labels to the right of the thing they label, but it can't do that with `'. So your application will not be usable in right-to-left languages. Finally, fixed positioning makes it kind of annoying to add/remove GUI elements, since you have to reposition all the other elements. This is a long-term maintenance problem for your application. If you know none of these things are an issue for your application, and prefer the simplicity of `', by all means use the widget. But you should be aware of the tradeoffs. 96.2 Usage ========== -- Class: Derives from `'. This class defines no direct slots. -- Function: gtk-fixed-new => (ret `') Creates a new `'. RET a new `'. -- Function: gtk-fixed-put (self `') (widget `') (x `int') (y `int') -- Method: put Adds a widget to a `' container at the given position. FIXED a `'. WIDGET the widget to add. X the horizontal position to place the widget at. Y the vertical position to place the widget at. -- Function: gtk-fixed-move (self `') (widget `') (x `int') (y `int') -- Method: move Moves a child of a `' container to the given position. FIXED a `'. WIDGET the child widget. X the horizontal position to move the widget to. Y the vertical position to move the widget to. -- Function: gtk-fixed-get-has-window (self `') => (ret `bool') -- Method: get-has-window Gets whether the `' has its own `'. See `gdk-fixed-set-has-window'. FIXED a `' RET ``#t'' if FIXED has its own window. -- Function: gtk-fixed-set-has-window (self `') (has_window `bool') -- Method: set-has-window Sets whether a `' widget is created with a separate `' for WIDGET->WINDOW or not. (By default, it will be created with no separate `'). This function must be called while the `' is not realized, for instance, immediately after the window is created. This function was added to provide an easy migration path for older applications which may expect `' to have a separate window. FIXED a `' HAS-WINDOW ``#t'' if a separate window should be created  File: guile-gnome-gtk.info, Node: GtkHPaned, Next: GtkVPaned, Prev: GtkFixed, Up: Top 97 GtkHPaned ************ A container with two panes arranged horizontally 97.1 Overview ============= The HPaned widget is a container widget with two children arranged horizontally. The division between the two panes is adjustable by the user by dragging a handle. See `' for details. 97.2 Usage ========== -- Class: Derives from `'. This class defines no direct slots. -- Function: gtk-hpaned-new => (ret `') Create a new `' RET the new `'  File: guile-gnome-gtk.info, Node: GtkVPaned, Next: GtkLayout, Prev: GtkHPaned, Up: Top 98 GtkVPaned ************ A container with two panes arranged vertically 98.1 Overview ============= The VPaned widget is a container widget with two children arranged vertically. The division between the two panes is adjustable by the user by dragging a handle. See `' for details. 98.2 Usage ========== -- Class: Derives from `'. This class defines no direct slots. -- Function: gtk-vpaned-new => (ret `') Create a new `' RET the new `'  File: guile-gnome-gtk.info, Node: GtkLayout, Next: GtkNotebook, Prev: GtkVPaned, Up: Top 99 GtkLayout ************ Infinite scrollable area containing child widgets and/or custom drawing 99.1 Overview ============= `' is similar to `' in that it's a "blank slate" and doesn't do anything but paint a blank background by default. It's different in that it supports scrolling natively (you can add it to a `'), and it can contain child widgets, since it's a `'. However if you're just going to draw, a `' is a better choice since it has lower overhead. When handling expose events on a `', you must draw to GTK_LAYOUT (layout)->bin_window, rather than to GTK_WIDGET (layout)->window, as you would for a drawing area. 99.2 Usage ========== -- Class: Derives from `'. This class defines the following slots: `hadjustment' The GtkAdjustment for the horizontal position `vadjustment' The GtkAdjustment for the vertical position `width' The width of the layout `height' The height of the layout -- Signal on : set-scroll-adjustments (arg0 `') (arg1 `') -- Function: gtk-layout-new (hadjustment `') (vadjustment `') => (ret `') Creates a new `'. Unless you have a specific adjustment you'd like the layout to use for scrolling, pass ``#f'' for HADJUSTMENT and VADJUSTMENT. HADJUSTMENT horizontal scroll adjustment, or ``#f'' VADJUSTMENT vertical scroll adjustment, or ``#f'' RET a new `' -- Function: gtk-layout-put (self `') (child_widget `') (x `int') (y `int') -- Method: put Adds CHILD-WIDGET to LAYOUT, at position (X,Y). LAYOUT becomes the new parent container of CHILD-WIDGET. LAYOUT a `' CHILD-WIDGET child widget X X position of child widget Y Y position of child widget -- Function: gtk-layout-move (self `') (child_widget `') (x `int') (y `int') -- Method: move Moves a current child of LAYOUT to a new position. LAYOUT a `' CHILD-WIDGET a current child of LAYOUT X X position to move to Y Y position to move to -- Function: gtk-layout-set-size (self `') (width `unsigned-int') (height `unsigned-int') -- Method: set-size Sets the size of the scrollable area of the layout. LAYOUT a `' WIDTH width of entire scrollable area HEIGHT height of entire scrollable area -- Function: gtk-layout-get-size (self `') => (width `unsigned-int') (height `unsigned-int') -- Method: get-size Gets the size that has been set on the layout, and that determines the total extents of the layout's scrollbar area. See `gtk-layout-set-size'. LAYOUT a `' WIDTH location to store the width set on LAYOUT, or ``#f'' HEIGHT location to store the height set on LAYOUT, or ``#f'' -- Function: gtk-layout-get-hadjustment (self `') => (ret `') -- Method: get-hadjustment This function should only be called after the layout has been placed in a `' or otherwise configured for scrolling. It returns the `' used for communication between the horizontal scrollbar and LAYOUT. See `', `', `' for details. LAYOUT a `' RET horizontal scroll adjustment -- Function: gtk-layout-get-vadjustment (self `') => (ret `') -- Method: get-vadjustment This function should only be called after the layout has been placed in a `' or otherwise configured for scrolling. It returns the `' used for communication between the vertical scrollbar and LAYOUT. See `', `', `' for details. LAYOUT a `' RET vertical scroll adjustment -- Function: gtk-layout-set-hadjustment (self `') (adjustment `') -- Method: set-hadjustment Sets the horizontal scroll adjustment for the layout. See `', `', `' for details. LAYOUT a `' ADJUSTMENT new scroll adjustment -- Function: gtk-layout-set-vadjustment (self `') (adjustment `') -- Method: set-vadjustment Sets the vertical scroll adjustment for the layout. See `', `', `' for details. LAYOUT a `' ADJUSTMENT new scroll adjustment  File: guile-gnome-gtk.info, Node: GtkNotebook, Next: GtkTable, Prev: GtkLayout, Up: Top 100 GtkNotebook *************** A tabbed notebook container 100.1 Overview ============== The `' widget is a `' whose children are pages that can be switched between using tab labels along one edge. There are many configuration options for `'. Among other things, you can choose on which edge the tabs appear (see `gtk-notebook-set-tab-pos'), whether, if there are too many tabs to fit the noteobook should be made bigger or scrolling arrows added (see gtk_notebook_set_scrollable), and whether there will be a popup menu allowing the users to switch pages. (see `gtk-notebook-enable-popup', `gtk-noteobook-disable-popup') 100.2 Usage =========== -- Class: Derives from `'. This class defines the following slots: `tab-pos' Which side of the notebook holds the tabs `show-tabs' Whether tabs should be shown or not `show-border' Whether the border should be shown or not `scrollable' If TRUE, scroll arrows are added if there are too many tabs to fit `tab-border' Width of the border around the tab labels `tab-hborder' Width of the horizontal border of tab labels `tab-vborder' Width of the vertical border of tab labels `page' The index of the current page `enable-popup' If TRUE, pressing the right mouse button on the notebook pops up a menu that you can use to go to a page `group-id' Group ID for tabs drag and drop `group' Group for tabs drag and drop `homogeneous' Whether tabs should have homogeneous sizes -- Signal on : switch-page (arg0 `') (arg1 `') Emitted when the user or a function changes the current page. -- Signal on : focus-tab (arg0 `') => `' -- Signal on : select-page (arg0 `') => `' -- Signal on : change-current-page (arg0 `') => `' -- Signal on : move-focus-out (arg0 `') -- Signal on : reorder-tab (arg0 `') (arg1 `') => `' -- Signal on : page-reordered (arg0 `') (arg1 `') the ::page-reordered signal is emitted in the notebook right after a page has been reordered. Since 2.10 -- Signal on : page-removed (arg0 `') (arg1 `') the ::page-removed signal is emitted in the notebook right after a page is removed from the notebook. Since 2.10 -- Signal on : page-added (arg0 `') (arg1 `') the ::page-added signal is emitted in the notebook right after a page is added to the notebook. Since 2.10 -- Signal on : create-window (arg0 `') (arg1 `') (arg2 `') => `' undocumented -- Function: gtk-notebook-new => (ret `') Creates a new `' widget with no pages. RET the newly created `' -- Function: gtk-notebook-append-page (self `') (child `') (tab_label `') => (ret `int') -- Method: append-page Appends a page to NOTEBOOK. NOTEBOOK a `' CHILD the `' to use as the contents of the page. TAB-LABEL the `' to be used as the label for the page, or ``#f'' to use the default label, 'page N'. RET the index (starting from 0) of the appended page in the notebook, or -1 if function fails -- Function: gtk-notebook-append-page-menu (self `') (child `') (tab_label `') (menu_label `') => (ret `int') -- Method: append-page-menu Appends a page to NOTEBOOK, specifying the widget to use as the label in the popup menu. NOTEBOOK a `' CHILD the `' to use as the contents of the page. TAB-LABEL the `' to be used as the label for the page, or ``#f'' to use the default label, 'page N'. MENU-LABEL the widget to use as a label for the page-switch menu, if that is enabled. If ``#f'', and TAB-LABEL is a `' or ``#f'', then the menu label will be a newly created label with the same text as TAB-LABEL; If TAB-LABEL is not a `', MENU-LABEL must be specified if the page-switch menu is to be used. RET the index (starting from 0) of the appended page in the notebook, or -1 if function fails -- Function: gtk-notebook-prepend-page (self `') (child `') (tab_label `') => (ret `int') -- Method: prepend-page Prepends a page to NOTEBOOK. NOTEBOOK a `' CHILD the `' to use as the contents of the page. TAB-LABEL the `' to be used as the label for the page, or ``#f'' to use the default label, 'page N'. RET the index (starting from 0) of the prepended page in the notebook, or -1 if function fails -- Function: gtk-notebook-prepend-page-menu (self `') (child `') (tab_label `') (menu_label `') => (ret `int') -- Method: prepend-page-menu Prepends a page to NOTEBOOK, specifying the widget to use as the label in the popup menu. NOTEBOOK a `' CHILD the `' to use as the contents of the page. TAB-LABEL the `' to be used as the label for the page, or ``#f'' to use the default label, 'page N'. MENU-LABEL the widget to use as a label for the page-switch menu, if that is enabled. If ``#f'', and TAB-LABEL is a `' or ``#f'', then the menu label will be a newly created label with the same text as TAB-LABEL; If TAB-LABEL is not a `', MENU-LABEL must be specified if the page-switch menu is to be used. RET the index (starting from 0) of the prepended page in the notebook, or -1 if function fails -- Function: gtk-notebook-insert-page (self `') (child `') (tab_label `') (position `int') => (ret `int') -- Method: insert-page Insert a page into NOTEBOOK at the given position. NOTEBOOK a `' CHILD the `' to use as the contents of the page. TAB-LABEL the `' to be used as the label for the page, or ``#f'' to use the default label, 'page N'. POSITION the index (starting at 0) at which to insert the page, or -1 to append the page after all other pages. RET the index (starting from 0) of the inserted page in the notebook, or -1 if function fails -- Function: gtk-notebook-insert-page-menu (self `') (child `') (tab_label `') (menu_label `') (position `int') => (ret `int') -- Method: insert-page-menu Insert a page into NOTEBOOK at the given position, specifying the widget to use as the label in the popup menu. NOTEBOOK a `' CHILD the `' to use as the contents of the page. TAB-LABEL the `' to be used as the label for the page, or ``#f'' to use the default label, 'page N'. MENU-LABEL the widget to use as a label for the page-switch menu, if that is enabled. If ``#f'', and TAB-LABEL is a `' or ``#f'', then the menu label will be a newly created label with the same text as TAB-LABEL; If TAB-LABEL is not a `', MENU-LABEL must be specified if the page-switch menu is to be used. POSITION the index (starting at 0) at which to insert the page, or -1 to append the page after all other pages. RET the index (starting from 0) of the inserted page in the notebook -- Function: gtk-notebook-remove-page (self `') (page_num `int') -- Method: remove-page Removes a page from the notebook given its index in the notebook. NOTEBOOK a `'. PAGE-NUM the index of a notebook page, starting from 0. If -1, the last page will be removed. -- Function: gtk-notebook-page-num (self `') (child `') => (ret `int') -- Method: page-num Finds the index of the page which contains the given child widget. NOTEBOOK a `' CHILD a `' RET the index of the page containing CHILD, or -1 if CHILD is not in the notebook. -- Function: gtk-notebook-next-page (self `') -- Method: next-page Switches to the next page. Nothing happens if the current page is the last page. NOTEBOOK a `' -- Function: gtk-notebook-prev-page (self `') -- Method: prev-page Switches to the previous page. Nothing happens if the current page is the first page. NOTEBOOK a `' -- Function: gtk-notebook-reorder-child (self `') (child `') (position `int') -- Method: reorder-child Reorders the page containing CHILD, so that it appears in position POSITION. If POSITION is greater than or equal to the number of children in the list or negative, CHILD will be moved to the end of the list. NOTEBOOK a `' CHILD the child to move POSITION the new position, or -1 to move to the end -- Function: gtk-notebook-set-tab-pos (self `') (pos `') -- Method: set-tab-pos Sets the edge at which the tabs for switching pages in the notebook are drawn. NOTEBOOK a `'. POS the edge to draw the tabs at. -- Function: gtk-notebook-set-show-tabs (self `') (show_tabs `bool') -- Method: set-show-tabs Sets whether to show the tabs for the notebook or not. NOTEBOOK a `' SHOW-TABS ``#t'' if the tabs should be shown. -- Function: gtk-notebook-set-show-border (self `') (show_border `bool') -- Method: set-show-border Sets whether a bevel will be drawn around the notebook pages. This only has a visual effect when the tabs are not shown. See `gtk-notebook-set-show-tabs'. NOTEBOOK a `' SHOW-BORDER ``#t'' if a bevel should be drawn around the notebook. -- Function: gtk-notebook-set-scrollable (self `') (scrollable `bool') -- Method: set-scrollable Sets whether the tab label area will have arrows for scrolling if there are too many tabs to fit in the area. NOTEBOOK a `' SCROLLABLE ``#t'' if scroll arrows should be added -- Function: gtk-notebook-popup-enable (self `') -- Method: popup-enable Enables the popup menu: if the user clicks with the right mouse button on the bookmarks, a menu with all the pages will be popped up. NOTEBOOK a `' -- Function: gtk-notebook-popup-disable (self `') -- Method: popup-disable Disables the popup menu. NOTEBOOK a `' -- Function: gtk-notebook-get-current-page (self `') => (ret `int') -- Method: get-current-page Returns the page number of the current page. NOTEBOOK a `' RET the index (starting from 0) of the current page in the notebook. If the notebook has no pages, then -1 will be returned. -- Function: gtk-notebook-get-menu-label (self `') (child `') => (ret `') -- Method: get-menu-label Retrieves the menu label widget of the page containing CHILD. NOTEBOOK a `' CHILD a widget contained in a page of NOTEBOOK RET the menu label, or ``#f'' if the notebook page does not have a menu label other than the default (the tab label). -- Function: gtk-notebook-get-nth-page (self `') (page_num `int') => (ret `') -- Method: get-nth-page Returns the child widget contained in page number PAGE-NUM. NOTEBOOK a `' PAGE-NUM the index of a page in the noteobok, or -1 to get the last page. RET the child widget, or ``#f'' if PAGE-NUM is out of bounds. -- Function: gtk-notebook-get-n-pages (self `') => (ret `int') -- Method: get-n-pages Gets the number of pages in a notebook. NOTEBOOK a `' RET the number of pages in the notebook. Since 2.2 -- Function: gtk-notebook-get-tab-label (self `') (child `') => (ret `') -- Method: get-tab-label Returns the tab label widget for the page CHILD. ``#f'' is returned if CHILD is not in NOTEBOOK or if no tab label has specifically been set for CHILD. NOTEBOOK a `' CHILD the page RET the tab label -- Function: gtk-notebook-set-menu-label (self `') (child `') (menu_label `') -- Method: set-menu-label Changes the menu label for the page containing CHILD. NOTEBOOK a `' CHILD the child widget MENU-LABEL the menu label, or NULL for default -- Function: gtk-notebook-set-menu-label-text (self `') (child `') (menu_text `mchars') -- Method: set-menu-label-text Creates a new label and sets it as the menu label of CHILD. NOTEBOOK a `' CHILD the child widget MENU-TEXT the label text -- Function: gtk-notebook-set-tab-label (self `') (child `') (tab_label `') -- Method: set-tab-label Changes the tab label for CHILD. If ``#f'' is specified for TAB-LABEL, then the page will have the label 'page N'. NOTEBOOK a `' CHILD the page TAB-LABEL the tab label widget to use, or ``#f'' for default tab label. -- Function: gtk-notebook-set-tab-label-packing (self `') (child `') (expand `bool') (fill `bool') (pack_type `') -- Method: set-tab-label-packing Sets the packing parameters for the tab label of the page containing CHILD. See `gtk-box-pack-start' for the exact meaning of the parameters. NOTEBOOK a `' CHILD the child widget EXPAND whether to expand the bookmark or not FILL whether the bookmark should fill the allocated area or not PACK-TYPE the position of the bookmark -- Function: gtk-notebook-set-tab-label-text (self `') (child `') (tab_text `mchars') -- Method: set-tab-label-text Creates a new label and sets it as the tab label for the page containing CHILD. NOTEBOOK a `' CHILD the page TAB-TEXT the label text -- Function: gtk-notebook-set-tab-reorderable (self `') (child `') (reorderable `bool') -- Method: set-tab-reorderable Sets whether the notebook tab can be reordered via drag and drop or not. NOTEBOOK a `' CHILD a child `' REORDERABLE whether the tab is reorderable or not. Since 2.10 -- Function: gtk-notebook-set-tab-detachable (self `') (child `') (detachable `bool') -- Method: set-tab-detachable Sets whether the tab can be detached from NOTEBOOK to another notebook or widget. Note that 2 notebooks must share a common group identificator (see `gtk-notebook-set-group-id') to allow automatic tabs interchange between them. If you want a widget to interact with a notebook through DnD (i.e.: accept dragged tabs from it) it must be set as a drop destination and accept the target "GTK_NOTEBOOK_TAB". The notebook will fill the selection with a GtkWidget** pointing to the child widget that corresponds to the dropped tab. static void on_drop_zone_drag_data_received (GtkWidget *widget, GdkDragContext *context, gint x, gint y, GtkSelectionData *selection_data, guint info, guint time, gpointer user_data) { GtkWidget *notebook; GtkWidget **child; notebook = gtk_drag_get_source_widget (context); child = (void*) selection_data->data; process_widget (*child); gtk_container_remove (GTK_CONTAINER (notebook), *child); } If you want a notebook to accept drags from other widgets, you will have to set your own DnD code to do it. NOTEBOOK a `' CHILD a child `' DETACHABLE whether the tab is detachable or not Since 2.10 -- Function: gtk-notebook-get-menu-label-text (self `') (child `') => (ret `mchars') -- Method: get-menu-label-text Retrieves the text of the menu label for the page containing CHILD. NOTEBOOK a `' CHILD the child widget of a page of the notebook. RET value: the text of the tab label, or ``#f'' if the widget does not have a menu label other than the default menu label, or the menu label widget is not a `'. The string is owned by the widget and must not be freed. -- Function: gtk-notebook-get-scrollable (self `') => (ret `bool') -- Method: get-scrollable Returns whether the tab label area has arrows for scrolling. See `gtk-notebook-set-scrollable'. NOTEBOOK a `' RET ``#t'' if arrows for scrolling are present -- Function: gtk-notebook-get-show-border (self `') => (ret `bool') -- Method: get-show-border Returns whether a bevel will be drawn around the notebook pages. See `gtk-notebook-set-show-border'. NOTEBOOK a `' RET ``#t'' if the bevel is drawn -- Function: gtk-notebook-get-show-tabs (self `') => (ret `bool') -- Method: get-show-tabs Returns whether the tabs of the notebook are shown. See `gtk-notebook-set-show-tabs'. NOTEBOOK a `' RET ``#t'' if the tabs are shown -- Function: gtk-notebook-get-tab-label-text (self `') (child `') => (ret `mchars') -- Method: get-tab-label-text Retrieves the text of the tab label for the page containing CHILD. NOTEBOOK a `' CHILD a widget contained in a page of NOTEBOOK RET value: the text of the tab label, or ``#f'' if the tab label widget is not a `'. The string is owned by the widget and must not be freed. -- Function: gtk-notebook-get-tab-pos (self `') => (ret `') -- Method: get-tab-pos Gets the edge at which the tabs for switching pages in the notebook are drawn. NOTEBOOK a `' RET the edge at which the tabs are drawn -- Function: gtk-notebook-get-tab-reorderable (self `') (child `') => (ret `bool') -- Method: get-tab-reorderable Gets whether the tab can be reordered via drag and drop or not. NOTEBOOK a `' CHILD a child `' RET ``#t'' if the tab is reorderable. Since 2.10 -- Function: gtk-notebook-get-tab-detachable (self `') (child `') => (ret `bool') -- Method: get-tab-detachable Returns whether the tab contents can be detached from NOTEBOOK. NOTEBOOK a `' CHILD a child `' RET TRUE if the tab is detachable. Since 2.10 -- Function: gtk-notebook-set-current-page (self `') (page_num `int') -- Method: set-current-page Switches to the page number PAGE-NUM. Note that due to historical reasons, GtkNotebook refuses to switch to a page unless the child widget is visible. Therefore, it is recommended to show child widgets before adding them to a notebook. NOTEBOOK a `' PAGE-NUM index of the page to switch to, starting from 0. If negative, the last page will be used. If greater than the number of pages in the notebook, nothing will be done. -- Function: gtk-notebook-set-group-id (self `') (group_id `int') -- Method: set-group-id Sets an group identificator for NOTEBOOK, notebooks sharing the same group identificator will be able to exchange tabs via drag and drop. A notebook with group identificator -1 will not be able to exchange tabs with any other notebook. NOTEBOOK a `' GROUP-ID a group identificator, or -1 to unset it Since 2.10 -- Function: gtk-notebook-get-group-id (self `') => (ret `int') -- Method: get-group-id Gets the current group identificator for NOTEBOOK. NOTEBOOK a `' RET the group identificator, or -1 if none is set. Since 2.10  File: guile-gnome-gtk.info, Node: GtkTable, Next: GtkExpander, Prev: GtkNotebook, Up: Top 101 GtkTable ************ Pack widgets in regular patterns 101.1 Overview ============== The `' functions allow the programmer to arrange widgets in rows and columns, making it easy to align many widgets next to each other, horizontally and vertically. Tables are created with a call to `gtk-table-new', the size of which can later be changed with `gtk-table-resize'. Widgets can be added to a table using `gtk-table-attach' or the more convenient (but slightly less flexible) `gtk-table-attach-defaults'. To alter the space next to a specific row, use `gtk-table-set-row-spacing', and for a column, `gtk-table-set-col-spacing'. The gaps between _all_ rows or columns can be changed by calling `gtk-table-set-row-spacings' or `gtk-table-set-col-spacings' respectively. `gtk-table-set-homogeneous', can be used to set whether all cells in the table will resize themselves to the size of the largest widget in the table. 101.2 Usage =========== -- Class: Derives from `'. This class defines the following slots: `n-rows' The number of rows in the table `n-columns' The number of columns in the table `column-spacing' The amount of space between two consecutive columns `row-spacing' The amount of space between two consecutive rows `homogeneous' If TRUE, the table cells are all the same width/height -- Function: gtk-table-new (rows `unsigned-int') (columns `unsigned-int') (homogeneous `bool') => (ret `') Used to create a new table widget. An initial size must be given by specifying how many rows and columns the table should have, although this can be changed later with `gtk-table-resize'. ROWS and COLUMNS must both be in the range 0 .. 65535. ROWS The number of rows the new table should have. COLUMNS The number of columns the new table should have. HOMOGENEOUS If set to ``#t'', all table cells are resized to the size of the cell containing the largest widget. RET A pointer to the the newly created table widget. -- Function: gtk-table-resize (self `') (rows `unsigned-int') (columns `unsigned-int') -- Method: resize If you need to change a table's size _after_ it has been created, this function allows you to do so. TABLE The `' you wish to change the size of. ROWS The new number of rows. COLUMNS The new number of columns. -- Function: gtk-table-attach (self `') (child `') (left_attach `unsigned-int') (right_attach `unsigned-int') (top_attach `unsigned-int') (bottom_attach `unsigned-int') (xoptions `') (yoptions `') (xpadding `unsigned-int') (ypadding `unsigned-int') -- Method: attach Adds a widget to a table. The number of 'cells' that a widget will occupy is specified by LEFT-ATTACH, RIGHT-ATTACH, TOP-ATTACH and BOTTOM-ATTACH. These each represent the leftmost, rightmost, uppermost and lowest column and row numbers of the table. (Columns and rows are indexed from zero). TABLE The `' to add a new widget to. CHILD The widget to add. LEFT-ATTACH the column number to attach the left side of a child widget to. RIGHT-ATTACH the column number to attach the right side of a child widget to. TOP-ATTACH the row number to attach the top of a child widget to. BOTTOM-ATTACH the row number to attach the bottom of a child widget to. XOPTIONS Used to specify the properties of the child widget when the table is resized. YOPTIONS The same as xoptions, except this field determines behaviour of vertical resizing. XPADDING An integer value specifying the padding on the left and right of the widget being added to the table. YPADDING The amount of padding above and below the child widget. -- Function: gtk-table-attach-defaults (self `') (widget `') (left_attach `unsigned-int') (right_attach `unsigned-int') (top_attach `unsigned-int') (bottom_attach `unsigned-int') -- Method: attach-defaults As there are many options associated with `gtk-table-attach', this convenience function provides the programmer with a means to add children to a table with identical padding and expansion options. The values used for the `' are `GTK_EXPAND | GTK_FILL', and the padding is set to 0. TABLE The table to add a new child widget to. WIDGET The child widget to add. LEFT-ATTACH The column number to attach the left side of the child widget to. RIGHT-ATTACH The column number to attach the right side of the child widget to. TOP-ATTACH The row number to attach the top of the child widget to. BOTTOM-ATTACH The row number to attach the bottom of the child widget to. -- Function: gtk-table-set-row-spacing (self `') (row `unsigned-int') (spacing `unsigned-int') -- Method: set-row-spacing Changes the space between a given table row and the subsequent row. TABLE a `' containing the row whose properties you wish to change. ROW row number whose spacing will be changed. SPACING number of pixels that the spacing should take up. -- Function: gtk-table-set-col-spacing (self `') (column `unsigned-int') (spacing `unsigned-int') -- Method: set-col-spacing Alters the amount of space between a given table column and the following column. TABLE a `'. COLUMN the column whose spacing should be changed. SPACING number of pixels that the spacing should take up. -- Function: gtk-table-set-row-spacings (self `') (spacing `unsigned-int') -- Method: set-row-spacings Sets the space between every row in TABLE equal to SPACING. TABLE a `'. SPACING the number of pixels of space to place between every row in the table. -- Function: gtk-table-set-col-spacings (self `') (spacing `unsigned-int') -- Method: set-col-spacings Sets the space between every column in TABLE equal to SPACING. TABLE a `'. SPACING the number of pixels of space to place between every column in the table. -- Function: gtk-table-set-homogeneous (self `') (homogeneous `bool') -- Method: set-homogeneous Changes the homogenous property of table cells, ie. whether all cells are an equal size or not. TABLE The `' you wish to set the homogeneous properties of. HOMOGENEOUS Set to ``#t'' to ensure all table cells are the same size. Set to ``#f'' if this is not your desired behaviour. -- Function: gtk-table-get-default-row-spacing (self `') => (ret `unsigned-int') -- Method: get-default-row-spacing Gets the default row spacing for the table. This is the spacing that will be used for newly added rows. (See `gtk-table-set-row-spacings') TABLE a `' RET value: the default row spacing -- Function: gtk-table-get-homogeneous (self `') => (ret `bool') -- Method: get-homogeneous Returns whether the table cells are all constrained to the same width and height. (See `gtk-table-set-homogenous') TABLE a `' RET ``#t'' if the cells are all constrained to the same size -- Function: gtk-table-get-row-spacing (self `') (row `unsigned-int') => (ret `unsigned-int') -- Method: get-row-spacing Gets the amount of space between row ROW, and row ROW + 1. See `gtk-table-set-row-spacing'. TABLE a `' ROW a row in the table, 0 indicates the first row RET the row spacing -- Function: gtk-table-get-col-spacing (self `') (column `unsigned-int') => (ret `unsigned-int') -- Method: get-col-spacing Gets the amount of space between column COL, and column COL + 1. See `gtk-table-set-col-spacing'. TABLE a `' COLUMN a column in the table, 0 indicates the first column RET the column spacing -- Function: gtk-table-get-default-col-spacing (self `') => (ret `unsigned-int') -- Method: get-default-col-spacing Gets the default column spacing for the table. This is the spacing that will be used for newly added columns. (See `gtk-table-set-col-spacings') TABLE a `' RET value: the default column spacing  File: guile-gnome-gtk.info, Node: GtkExpander, Next: GtkFrame, Prev: GtkTable, Up: Top 102 GtkExpander *************** A container which can hide its child 102.1 Overview ============== A `' allows the user to hide or show its child by clicking on an expander triangle similar to the triangles used in a `'. Normally you use an expander as you would use any other descendant of `'; you create the child widget and use `gtk-container-add' to add it to the expander. When the expander is toggled, it will take care of showing and hiding the child automatically. There are situations in which you may prefer to show and hide the expanded widget yourself, such as when you want to actually create the widget at expansion time. In this case, create a `' but do not add a child to it. The expander widget has an `expanded' property which can be used to monitor its expansion state. You should watch this property with a signal connection as follows: expander = gtk_expander_new_with_mnemonic ("_More Options"); g_signal_connect (expander, "notify::expanded", G_CALLBACK (expander_callback), NULL); ... static void expander_callback (GObject *object, GParamSpec *param_spec, gpointer user_data) { GtkExpander *expander; expander = GTK_EXPANDER (object); if (gtk_expander_get_expanded (expander)) { /* Show or create widgets */ } else { /* Hide or destroy widgets */ } } 102.2 Usage =========== -- Class: Derives from `'. This class defines the following slots: `expanded' Whether the expander has been opened to reveal the child widget `label' Text of the expander's label `use-underline' If set, an underline in the text indicates the next character should be used for the mnemonic accelerator key `use-markup' The text of the label includes XML markup. See pango_parse_markup() `spacing' Space to put between the label and the child `label-widget' A widget to display in place of the usual expander label -- Signal on : activate -- Function: gtk-expander-new (label `mchars') => (ret `') Creates a new expander using LABEL as the text of the label. LABEL the text of the label RET a new `' widget. Since 2.4 -- Function: gtk-expander-new-with-mnemonic (label `mchars') => (ret `') Creates a new expander using LABEL as the text of the label. If characters in LABEL are preceded by an underscore, they are underlined. If you need a literal underscore character in a label, use '__' (two underscores). The first underlined character represents a keyboard accelerator called a mnemonic. Pressing Alt and that key activates the button. LABEL the text of the label with an underscore in front of the mnemonic character RET a new `' widget. Since 2.4 -- Function: gtk-expander-set-expanded (self `') (expanded `bool') -- Method: set-expanded Sets the state of the expander. Set to ``#t'', if you want the child widget to be revealed, and ``#f'' if you want the child widget to be hidden. EXPANDER a `' EXPANDED whether the child widget is revealed Since 2.4 -- Function: gtk-expander-get-expanded (self `') => (ret `bool') -- Method: get-expanded Queries a `' and returns its current state. Returns ``#t'' if the child widget is revealed. See `gtk-expander-set-expanded'. EXPANDER a `' RET the current state of the expander. Since 2.4 -- Function: gtk-expander-set-spacing (self `') (spacing `int') -- Method: set-spacing Sets the spacing field of EXPANDER, which is the number of pixels to place between expander and the child. EXPANDER a `' SPACING distance between the expander and child in pixels. Since 2.4 -- Function: gtk-expander-get-spacing (self `') => (ret `int') -- Method: get-spacing Gets the value set by `gtk-expander-set-spacing'. EXPANDER a `' RET spacing between the expander and child. Since 2.4 -- Function: gtk-expander-set-label (self `') (label `mchars') -- Method: set-label Sets the text of the label of the expander to LABEL. This will also clear any previously set labels. EXPANDER a `' LABEL a string Since 2.4 -- Function: gtk-expander-get-label (self `') => (ret `mchars') -- Method: get-label Fetches the text from the label of the expander, as set by `gtk-expander-set-label'. If the label text has not been set the return value will be ``#f''. This will be the case if you create an empty button with `gtk-button-new' to use as a container. EXPANDER a `' RET The text of the label widget. This string is owned by the widget and must not be modified or freed. Since 2.4 -- Function: gtk-expander-set-use-underline (self `') (use_underline `bool') -- Method: set-use-underline If true, an underline in the text of the expander label indicates the next character should be used for the mnemonic accelerator key. EXPANDER a `' USE-UNDERLINE ``#t'' if underlines in the text indicate mnemonics Since 2.4 -- Function: gtk-expander-get-use-underline (self `') => (ret `bool') -- Method: get-use-underline Returns whether an embedded underline in the expander label indicates a mnemonic. See `gtk-expander-set-use-underline'. EXPANDER a `' RET ``#t'' if an embedded underline in the expander label indicates the mnemonic accelerator keys. Since 2.4 -- Function: gtk-expander-set-use-markup (self `') (use_markup `bool') -- Method: set-use-markup Sets whether the text of the label contains markup in Pango's text markup language. See `gtk-label-set-markup'. EXPANDER a `' USE-MARKUP ``#t'' if the label's text should be parsed for markup Since 2.4 -- Function: gtk-expander-get-use-markup (self `') => (ret `bool') -- Method: get-use-markup Returns whether the label's text is interpreted as marked up with the Pango text markup language. See `gtk-expander-set-use-markup'. EXPANDER a `' RET ``#t'' if the label's text will be parsed for markup Since 2.4 -- Function: gtk-expander-set-label-widget (self `') (label_widget `') -- Method: set-label-widget Set the label widget for the expander. This is the widget that will appear embedded alongside the expander arrow. EXPANDER a `' LABEL-WIDGET the new label widget Since 2.4 -- Function: gtk-expander-get-label-widget (self `') => (ret `') -- Method: get-label-widget Retrieves the label widget for the frame. See `gtk-expander-set-label-widget'. EXPANDER a `' RET the label widget, or ``#f'' if there is none. Since 2.4  File: guile-gnome-gtk.info, Node: GtkFrame, Next: GtkHSeparator, Prev: GtkExpander, Up: Top 103 GtkFrame ************ A bin with a decorative frame and optional label 103.1 Overview ============== The frame widget is a Bin that surrounds its child with a decorative frame and an optional label. If present, the label is drawn in a gap in the top side of the frame. The position of the label can be controlled with `gtk-frame-set-label-align'. 103.2 Usage =========== -- Class: Derives from `'. This class defines the following slots: `label' Text of the frame's label `label-xalign' The horizontal alignment of the label `label-yalign' The vertical alignment of the label `shadow' Deprecated property, use shadow_type instead `shadow-type' Appearance of the frame border `label-widget' A widget to display in place of the usual frame label -- Function: gtk-frame-new (label `mchars') => (ret `') Creates a new `', with optional label LABEL. If LABEL is ``#f'', the label is omitted. LABEL the text to use as the label of the frame RET a new `' widget -- Function: gtk-frame-set-label (self `') (label `mchars') -- Method: set-label Sets the text of the label. If LABEL is ``#f'', the current label is removed. FRAME a `' LABEL the text to use as the label of the frame -- Function: gtk-frame-set-label-widget (self `') (label_widget `') -- Method: set-label-widget Sets the label widget for the frame. This is the widget that will appear embedded in the top edge of the frame as a title. FRAME a `' LABEL-WIDGET the new label widget -- Function: gtk-frame-set-label-align (self `') (xalign `float') (yalign `float') -- Method: set-label-align Sets the alignment of the frame widget's label. The default values for a newly created frame are 0.0 and 0.5. FRAME a `' XALIGN The position of the label along the top edge of the widget. A value of 0.0 represents left alignment; 1.0 represents right alignment. YALIGN The y alignment of the label. A value of 0.0 aligns under the frame; 1.0 aligns above the frame. -- Function: gtk-frame-set-shadow-type (self `') (type `') -- Method: set-shadow-type Sets the shadow type for FRAME. FRAME a `' TYPE the new `' -- Function: gtk-frame-get-label (self `') => (ret `mchars') -- Method: get-label If the frame's label widget is a `', returns the text in the label widget. (The frame will have a `' for the label widget if a non-``#f'' argument was passed to `gtk-frame-new'.) FRAME a `' RET the text in the label, or ``#f'' if there was no label widget or the lable widget was not a `'. This string is owned by GTK+ and must not be modified or freed. -- Function: gtk-frame-get-label-align (self `') => (xalign `float') (yalign `float') -- Method: get-label-align Retrieves the X and Y alignment of the frame's label. See `gtk-frame-set-label-align'. FRAME a `' XALIGN location to store X alignment of frame's label, or ``#f'' YALIGN location to store X alignment of frame's label, or ``#f'' -- Function: gtk-frame-get-label-widget (self `') => (ret `') -- Method: get-label-widget Retrieves the label widget for the frame. See `gtk-frame-set-label-widget'. FRAME a `' RET the label widget, or ``#f'' if there is none. -- Function: gtk-frame-get-shadow-type (self `') => (ret `') -- Method: get-shadow-type Retrieves the shadow type of the frame. See `gtk-frame-set-shadow-type'. FRAME a `' RET the current shadow type of the frame.  File: guile-gnome-gtk.info, Node: GtkHSeparator, Next: GtkVSeparator, Prev: GtkFrame, Up: Top 104 GtkHSeparator ***************** A horizontal separator 104.1 Overview ============== The `' widget is a horizontal separator, used to group the widgets within a window. It displays a horizontal line with a shadow to make it appear sunken into the interface. The `' widget is not used as a separator within menus. To create a separator in a menu create an empty `' widget using `gtk-separator-menu-item-new' and add it to the menu with `gtk-menu-shell-append'. 104.2 Usage =========== -- Class: Derives from `'. This class defines no direct slots. -- Function: gtk-hseparator-new => (ret `') Creates a new `'. RET a new `'.  File: guile-gnome-gtk.info, Node: GtkVSeparator, Next: GtkHScrollbar, Prev: GtkHSeparator, Up: Top 105 GtkVSeparator ***************** A vertical separator 105.1 Overview ============== The `' widget is a vertical separator, used to group the widgets within a window. It displays a vertical line with a shadow to make it appear sunken into the interface. 105.2 Usage =========== -- Class: Derives from `'. This class defines no direct slots. -- Function: gtk-vseparator-new => (ret `') Creates a new `'. RET a new `'.  File: guile-gnome-gtk.info, Node: GtkHScrollbar, Next: GtkVScrollbar, Prev: GtkVSeparator, Up: Top 106 GtkHScrollbar ***************** A horizontal scrollbar 106.1 Overview ============== The `' widget is a widget arranged horizontally creating a scrollbar. See `' for details on scrollbars. `' pointers may be added to handle the adjustment of the scrollbar or it may be left ``#f'' in which case one will be created for you. See `' for details. 106.2 Usage =========== -- Class: Derives from `'. This class defines no direct slots. -- Function: gtk-hscrollbar-new (adjustment `') => (ret `') Creates a new horizontal scrollbar. ADJUSTMENT the `' to use, or ``#f'' to create a new adjustment. RET the new `'.  File: guile-gnome-gtk.info, Node: GtkVScrollbar, Next: GtkScrolledWindow, Prev: GtkHScrollbar, Up: Top 107 GtkVScrollbar ***************** A vertical scrollbar 107.1 Overview ============== The `' widget is a widget arranged vertically creating a scrollbar. See `' for details on scrollbars. `' pointers may be added to handle the adjustment of the scrollbar or it may be left ``#f'' in which case one will be created for you. See `' for details. 107.2 Usage =========== -- Class: Derives from `'. This class defines no direct slots. -- Function: gtk-vscrollbar-new (adjustment `') => (ret `') Creates a new vertical scrollbar. ADJUSTMENT the `' to use, or ``#f'' to create a new adjustment. RET the new `'  File: guile-gnome-gtk.info, Node: GtkScrolledWindow, Next: GtkPrintOperation, Prev: GtkVScrollbar, Up: Top 108 GtkScrolledWindow ********************* Adds scrollbars to its child widget 108.1 Overview ============== `' is a `' subclass: it's a container the accepts a single child widget. `' adds scrollbars to the child widget and optionally draws a beveled frame around the child widget. The scrolled window can work in two ways. Some widgets have native scrolling support; these widgets have "slots" for `' objects. Widgets with native scroll support include `', `', and `'. The scrolled window installs `' objects in the child window's slots using the set_scroll_adjustments_signal, found in `'. (Conceptually, these widgets implement a "Scrollable" interface; because GTK+ 1.2 lacked interface support in the object system, this interface is hackily implemented as a signal in `'. The GTK+ 2.0 object system would allow a clean implementation, but it wasn't worth breaking the API.) For widgets that lack native scrolling support, the `' widget acts as an adaptor class, implementing scrollability for child widgets that lack their own scrolling capabilities. Use `' to scroll child widgets such as `', `', and so on. If a widget has native scrolling abilities, it can be added to the `' with `gtk-container-add'. If a widget does not, you must first add the widget to a `', then add the `' to the scrolled window. The convenience function `gtk-scrolled-window-add-with-viewport' does exactly this, so you can ignore the presence of the viewport. The position of the scrollbars is controlled by the scroll adjustments. See `' for the fields in an adjustment - for `', used by `', the "value" field represents the position of the scrollbar, which must be between the "lower" field and "upper - page_size." The "page_size" field represents the size of the visible scrollable area. The "step_increment" and "page_increment" fields are used when the user asks to step down (using the small stepper arrows) or page down (using for example the PageDown key). If a `' doesn't behave quite as you would like, or doesn't have exactly the right layout, it's very possible to set up your own scrolling with `' and for example a `'. 108.2 Usage =========== -- Class: Derives from `'. This class defines the following slots: `hadjustment' The GtkAdjustment for the horizontal position `vadjustment' The GtkAdjustment for the vertical position `hscrollbar-policy' When the horizontal scrollbar is displayed `vscrollbar-policy' When the vertical scrollbar is displayed `window-placement' Where the contents are located with respect to the scrollbars. This property only takes effect if "window-placement-set" is TRUE. `window-placement-set' Whether "window-placement" should be used to determine the location of the contents with respect to the scrollbars. `shadow-type' Style of bevel around the contents -- Signal on : move-focus-out (arg0 `') -- Signal on : scroll-child (arg0 `') (arg1 `') => `' -- Function: gtk-scrolled-window-new (hadjustment `') (vadjustment `') => (ret `') Creates a new scrolled window. The two arguments are the scrolled window's adjustments; these will be shared with the scrollbars and the child widget to keep the bars in sync with the child. Usually you want to pass ``#f'' for the adjustments, which will cause the scrolled window to create them for you. HADJUSTMENT Horizontal adjustment. VADJUSTMENT Vertical adjustment. RET New scrolled window. -- Function: gtk-scrolled-window-get-hadjustment (self `') => (ret `') -- Method: get-hadjustment Returns the horizontal scrollbar's adjustment, used to connect the horizontal scrollbar to the child widget's horizontal scroll functionality. SCROLLED-WINDOW A `'. RET The horizontal `'. -- Function: gtk-scrolled-window-get-vadjustment (self `') => (ret `') -- Method: get-vadjustment Returns the vertical scrollbar's adjustment, used to connect the vertical scrollbar to the child widget's vertical scroll functionality. SCROLLED-WINDOW A `'. RET The vertical `'. -- Function: gtk-scrolled-window-get-hscrollbar (self `') => (ret `') -- Method: get-hscrollbar Returns the horizontal scrollbar of SCROLLED-WINDOW. SCROLLED-WINDOW a `' RET the horizontal scrollbar of the scrolled window, or ``#f'' if it does not have one. Since 2.8 -- Function: gtk-scrolled-window-get-vscrollbar (self `') => (ret `') -- Method: get-vscrollbar Returns the vertical scrollbar of SCROLLED-WINDOW. SCROLLED-WINDOW a `' RET the vertical scrollbar of the scrolled window, or ``#f'' if it does not have one. Since 2.8 -- Function: gtk-scrolled-window-set-policy (self `') (hscrollbar_policy `') (vscrollbar_policy `') -- Method: set-policy Sets the scrollbar policy for the horizontal and vertical scrollbars. The policy determines when the scrollbar should appear; it is a value from the `' enumeration. If `GTK_POLICY_ALWAYS', the scrollbar is always present; if `GTK_POLICY_NEVER', the scrollbar is never present; if `GTK_POLICY_AUTOMATIC', the scrollbar is present only if needed (that is, if the slider part of the bar would be smaller than the trough - the display is larger than the page size). SCROLLED-WINDOW A `'. HSCROLLBAR-POLICY Policy for horizontal bar. VSCROLLBAR-POLICY Policy for vertical bar. -- Function: gtk-scrolled-window-set-placement (self `') (window_placement `') -- Method: set-placement Sets the placement of the contents with respect to the scrollbars for the scrolled window. See also `gtk-scrolled-window-get-placement' and `gtk-scrolled-window-unset-placement'. Determines the location of the child widget with respect to the scrollbars. The default is `GTK_CORNER_TOP_LEFT', meaning the child is in the top left, with the scrollbars underneath and to the right. Other values in `' are `GTK_CORNER_TOP_RIGHT', `GTK_CORNER_BOTTOM_LEFT', and `GTK_CORNER_BOTTOM_RIGHT'. SCROLLED-WINDOW a `' WINDOW-PLACEMENT Position of the child window. -- Function: gtk-scrolled-window-unset-placement (self `') -- Method: unset-placement Unsets the placement of the contents with respect to the scrollbars for the scrolled window. If no window placement is set for a scrolled window, it obeys the "gtk-scrolled-window-placement" XSETTING. See also `gtk-scrolled-window-set-placement' and `gtk-scrolled-window-get-placement'. SCROLLED-WINDOW a `' Since 2.10 -- Function: gtk-scrolled-window-set-shadow-type (self `') (type `') -- Method: set-shadow-type Changes the type of shadow drawn around the contents of SCROLLED-WINDOW. SCROLLED-WINDOW a `' TYPE kind of shadow to draw around scrolled window contents -- Function: gtk-scrolled-window-set-hadjustment (self `') (hadjustment `') -- Method: set-hadjustment Sets the `' for the horizontal scrollbar. SCROLLED-WINDOW A `'. HADJUSTMENT Horizontal scroll adjustment. -- Function: gtk-scrolled-window-set-vadjustment (self `') (vadjustment `') -- Method: set-vadjustment Sets the `' for the vertical scrollbar. SCROLLED-WINDOW A `'. VADJUSTMENT Vertical scroll adjustment. -- Function: gtk-scrolled-window-get-placement (self `') => (ret `') -- Method: get-placement Gets the placement of the contents with respect to the scrollbars for the scrolled window. See `gtk-scrolled-window-set-placement'. SCROLLED-WINDOW a `' RET the current placement value. See also `gtk-scrolled-window-set-placement' and `gtk-scrolled-window-unset-placement'. -- Function: gtk-scrolled-window-get-shadow-type (self `') => (ret `') -- Method: get-shadow-type Gets the shadow type of the scrolled window. See `gtk-scrolled-window-set-shadow-type'. SCROLLED-WINDOW a `' RET the current shadow type  File: guile-gnome-gtk.info, Node: GtkPrintOperation, Next: GtkPrintContext, Prev: GtkScrolledWindow, Up: Top 109 GtkPrintOperation ********************* High-level Printing API 109.1 Overview ============== GtkPrintOperation is the high-level, portable printing API. It looks a bit different than other GTK+ dialogs such as the `', since some platforms don't expose enough infrastructure to implement a good print dialog. On such platforms, GtkPrintOperation uses the native print dialog. On platforms which do not provide a native print dialog, GTK+ uses its own, see `'. The typical way to use the high-level printing API is to create a `' object with `gtk-print-operation-new' when the user selects to print. Then you set some properties on it, e.g. the page size, any `' from previous print operations, the number of pages, the current page, etc. Then you start the print operation by calling `gtk-print-operation-run'. It will then show a dialog, let the user select a printer and options. When the user finished the dialog various signals will be emitted on the `', the main one being ::draw-page, which you are supposed to catch and render the page on the provided `' using Cairo. static GtkPrintSettings *settings = NULL; static void do_print (void) { GtkPrintOperation *print; GtkPrintOperationResult res; print = gtk_print_operation_new (); if (settings != NULL) gtk_print_operation_set_print_settings (print, settings); g_signal_connect (print, "begin_print", G_CALLBACK (begin_print), NULL); g_signal_connect (print, "draw_page", G_CALLBACK (draw_page), NULL); res = gtk_print_operation_run (print, GTK_PRINT_OPERATION_ACTION_PRINT_DIALOG, GTK_WINDOW (main_window), NULL); if (res == GTK_PRINT_OPERATION_RESULT_APPLY) { if (settings != NULL) g_object_unref (settings); settings = g_object_ref (gtk_print_operation_get_print_settings (print)); } g_object_unref (print); } By default GtkPrintOperation uses an external application to do print preview. To implement a custom print preview, an application must connect to the preview signal. The functions `gtk-print-operation-print-preview-render-page', `gtk-print-operation-preview-end-preview' and `gtk-print-operation-preview-is-selected' are useful when implementing a print preview. Printing support was added in GTK+ 2.10. 109.2 Usage =========== -- Class: Derives from `', `'. This class defines the following slots: `default-page-setup' The GtkPageSetup used by default `print-settings' The GtkPrintSettings used for initializing the dialog `job-name' A string used for identifying the print job. `n-pages' The number of pages in the document. `current-page' The current page in the document `use-full-page' TRUE if the origin of the context should be at the corner of the page and not the corner of the imageable area `track-print-status' TRUE if the print operation will continue to report on the print job status after the print data has been sent to the printer or print server. `unit' The unit in which distances can be measured in the context `show-progress' TRUE if a progress dialog is shown while printing. `allow-async' TRUE if print process may run asynchronous. `export-filename' Export filename `status' The status of the print operation `status-string' A human-readable description of the status `custom-tab-label' Label for the tab containing custom widgets. -- Signal on : done (arg0 `') Emitted when the print operation run has finished doing everything required for printing. RESULT gives you information about what happened during the run. If RESULT is `GTK_PRINT_OPERATION_RESULT_ERROR' then you can call `gtk-print-operation-get-error' for more information. If you enabled print status tracking then `gtk-print-operation-is-finished' may still return ``#f'' after this was emitted. Since 2.10 -- Signal on : begin-print (arg0 `') Emitted after the user has finished changing print settings in the dialog, before the actual rendering starts. A typical use for this signal is to use the parameters from the `' and paginate the document accordingly, and then set the number of pages with `gtk-print-operation-set-n-pages'. Since 2.10 -- Signal on : paginate (arg0 `') => `' Emitted after the begin-print signal, but before the actual rendering starts. It keeps getting emitted until it returns ``#f''. This signal is intended to be used for paginating the document in small chunks, to avoid blocking the user interface for a long time. The signal handler should update the number of pages using `gtk-print-operation-set-n-pages', and return ``#t'' if the document has been completely paginated. If you don't need to do pagination in chunks, you can simply do it all in the begin-print handler, and set the number of pages from there. Since 2.10 -- Signal on : request-page-setup (arg0 `') (arg1 `') (arg2 `') Emitted once for every page that is printed, to give the application a chance to modify the page setup. Any changes done to SETUP will be in force only for printing this page. Since 2.10 -- Signal on : draw-page (arg0 `') (arg1 `') Emitted for every page that is printed. The signal handler must render the PAGE-NR's page onto the cairo context obtained from CONTEXT using `gtk-print-context-get-cairo-context'. static void draw_page (GtkPrintOperation *operation, GtkPrintContext *context, gint page_nr, gpointer user_data) { cairo_t *cr; PangoLayout *layout; gdouble width, text_height; gint layout_height; PangoFontDescription *desc; cr = gtk_print_context_get_cairo_context (context); width = gtk_print_context_get_width (context); cairo_rectangle (cr, 0, 0, width, HEADER_HEIGHT); cairo_set_source_rgb (cr, 0.8, 0.8, 0.8); cairo_fill (cr); layout = gtk_print_context_create_pango_layout (context); desc = pango_font_description_from_string ("sans 14"); pango_layout_set_font_description (layout, desc); pango_font_description_free (desc); pango_layout_set_text (layout, "some text", -1); pango_layout_set_width (layout, width); pango_layout_set_alignment (layout, PANGO_ALIGN_CENTER); pango_layout_get_size (layout, NULL, &layout_height); text_height = (gdouble)layout_height / PANGO_SCALE; cairo_move_to (cr, width / 2, (HEADER_HEIGHT - text_height) / 2); pango_cairo_show_layout (cr, layout); g_object_unref (layout); } Use `gtk-print-operation-set-use-full-page' and `gtk-print-operation-set-unit' before starting the print operation to set up the transformation of the cairo context according to your needs. Since 2.10 -- Signal on : end-print (arg0 `') Emitted after all pages have been rendered. A handler for this signal can clean up any resources that have been allocated in the ::begin-print handler. Since 2.10 -- Signal on : status-changed Emitted at between the various phases of the print operation. See `' for the phases that are being discriminated. Use `gtk-print-operation-get-status' to find out the current status. Since 2.10 -- Signal on : create-custom-widget => `' Emitted when displaying the print dialog. If you return a widget in a handler for this signal it will be added to a custom tab in the print dialog. You typically return a container widget with multiple widgets in it. The print dialog owns the returned widget, and its lifetime isn't controlled by the app. However, the widget is guaranteed to stay around until the custom-widget-apply signal is emitted on the operation. Then you can read out any information you need from the widgets. Since 2.10 -- Signal on : custom-widget-apply (arg0 `') Emitted right before begin-print if you added a custom widget in the create-custom-widget handler. When you get this signal you should read the information from the custom widgets, as the widgets are not guaraneed to be around at a later time. Since 2.10 -- Signal on : preview (arg0 `') (arg1 `') (arg2 `') => `' Gets emitted when a preview is requested from the native dialog. The default handler for this signal uses an external viewer application to preview. To implement a custom print preview, an application must return ``#t'' from its handler for this signal. In order to use the provided CONTEXT for the preview implementation, it must be given a suitable cairo context with `gtk-print-context-set-cairo-context'. The custom preview implementation can use `gtk-print-operation-preview-is-selected' and `gtk-print-operation-preview-render-page' to find pages which are selected for print and render them. The preview must be finished by calling `gtk-print-operation-preview-end-preview' (typically in response to the user clicking a close button). Since 2.10 -- Class: Derives from `'. This class defines no direct slots. -- Signal on : ready (arg0 `') undocumented -- Signal on : got-page-size (arg0 `') (arg1 `') undocumented -- Function: gtk-print-operation-new => (ret `') Creates a new `'. RET a new `' Since 2.10 -- Function: gtk-print-operation-set-allow-async (self `') (allow_async `bool') -- Method: set-allow-async Sets whether the `gtk-print-operation-run' may return before the print operation is completed. Note that some platforms may not allow asynchronous operation. OP a `' ALLOW-ASYNC ``#t'' to allow asynchronous operation Since 2.10 -- Function: gtk-print-operation-get-error (self `') -- Method: get-error Call this when the result of a print operation is `GTK_PRINT_OPERATION_RESULT_ERROR', either as returned by `gtk-print-operation-run', or in the ::done signal handler. The returned `' will contain more details on what went wrong. OP a `' ERROR return location for the error Since 2.10 -- Function: gtk-print-operation-set-job-name (self `') (job_name `mchars') -- Method: set-job-name Sets the name of the print job. The name is used to identify the job (e.g. in monitoring applications like eggcups). If you don't set a job name, GTK+ picks a default one by numbering successive print jobs. OP a `' JOB-NAME a string that identifies the print job Since 2.10 -- Function: gtk-print-operation-set-n-pages (self `') (n_pages `int') -- Method: set-n-pages Sets the number of pages in the document. This _must_ be set to a positive number before the rendering starts. It may be set in a ::begin-print signal hander. Note that the page numbers passed to the ::request-page-setup and ::draw-page signals are 0-based, i.e. if the user chooses to print all pages, the last ::draw-page signal will be for page N-PAGES - 1. OP a `' N-PAGES the number of pages Since 2.10 -- Function: gtk-print-operation-set-unit (self `') (unit `') -- Method: set-unit Sets up the transformation for the cairo context obtained from `' in such a way that distances are measured in units of UNIT. OP a `' UNIT the unit to use Since 2.10 -- Function: gtk-print-operation-run (self `') (action `') (parent `') => (ret `') -- Method: run Runs the print operation, by first letting the user modify print settings in the print dialog, and then print the document. Normally that this function does not return until the rendering of all pages is complete. You can connect to the ::status-changed signal on OP to obtain some information about the progress of the print operation. Furthermore, it may use a recursive mainloop to show the print dialog. If you call `gtk-print-operation-set-allow-async' or set the allow-async property the operation will run asyncronously if this is supported on the platform. The ::done signal will be emitted with the operation results when the operation is done (i.e. when the dialog is canceled, or when the print succeeds or fails). if (settings != NULL) gtk_print_operation_set_print_settings (print, settings); if (page_setup != NULL) gtk_print_operation_set_default_page_setup (print, page_setup); g_signal_connect (print, "begin-print", G_CALLBACK (begin_print), &data); g_signal_connect (print, "draw-page", G_CALLBACK (draw_page), &data); res = gtk_print_operation_run (print, GTK_PRINT_OPERATION_ACTION_PRINT_DIALOG, parent, &error); if (res == GTK_PRINT_OPERATION_RESULT_ERROR) { error_dialog = gtk_message_dialog_new (GTK_WINDOW (parent), GTK_DIALOG_DESTROY_WITH_PARENT, GTK_MESSAGE_ERROR, GTK_BUTTONS_CLOSE, "Error printing file:\n%s", error->message); g_signal_connect (error_dialog, "response", G_CALLBACK (gtk_widget_destroy), NULL); gtk_widget_show (error_dialog); g_error_free (error); } else if (res == GTK_PRINT_OPERATION_RESULT_APPLY) { if (settings != NULL) g_object_unref (settings); settings = g_object_ref (gtk_print_operation_get_print_settings (print)); } Note that `gtk-print-operation-run' can only be called once on a given `'. OP a `' ACTION the action to start PARENT Transient parent of the dialog, or ``#f'' ERROR Return location for errors, or ``#f'' RET the result of the print operation. A return value of `GTK_PRINT_OPERATION_RESULT_APPLY' indicates that the printing was completed successfully. In this case, it is a good idea to obtain the used print settings with `gtk-print-operation-get-print-settings' and store them for reuse with the next print operation. A value of `GTK_PRINT_OPERATION_RESULT_IN_PROGRESS' means the operation is running asynchronously, and will emit the ::done signal when done. Since 2.10 -- Function: gtk-print-operation-cancel (self `') -- Method: cancel Cancels a running print operation. This function may be called from a begin-print, paginate or draw-page signal handler to stop the currently running print operation. OP a `' Since 2.10 -- Function: gtk-print-operation-get-status (self `') => (ret `') -- Method: get-status Returns the status of the print operation. Also see `gtk-print-operation-get-status-string'. OP a `' RET the status of the print operation Since 2.10 -- Function: gtk-print-operation-is-finished (self `') => (ret `bool') -- Method: is-finished A convenience function to find out if the print operation is finished, either successfully (`GTK_PRINT_STATUS_FINISHED') or unsuccessfully (`GTK_PRINT_STATUS_FINISHED_ABORTED'). Note: when you enable print status tracking the print operation can be in a non-finished state even after done has been called, as the operation status then tracks the print job status on the printer. OP a `' RET ``#t'', if the print operation is finished. Since 2.10 -- Function: gtk-print-operation-get-error (self `') -- Method: get-error Call this when the result of a print operation is `GTK_PRINT_OPERATION_RESULT_ERROR', either as returned by `gtk-print-operation-run', or in the ::done signal handler. The returned `' will contain more details on what went wrong. OP a `' ERROR return location for the error Since 2.10 -- Function: gtk-print-run-page-setup-dialog (parent `') (page_setup `') (settings `') => (ret `') Runs a page setup dialog, letting the user modify the values from PAGE-SETUP. If the user cancels the dialog, the returned `' is identical to the passed in PAGE-SETUP, otherwise it contains the modifications done in the dialog. Note that this function may use a recursive mainloop to show the page setup dialog. See `gtk-print-run-page-setup-dialog-async' if this is a problem. PARENT transient parent, or ``#f'' PAGE-SETUP an existing `', or ``#f'' SETTINGS a `' RET a new `' Since 2.10  File: guile-gnome-gtk.info, Node: GtkPrintContext, Next: GtkPrintSettings, Prev: GtkPrintOperation, Up: Top 110 GtkPrintContext ******************* Encapsulates context for drawing pages 110.1 Overview ============== A GtkPrintContext encapsulates context information that is required when drawing pages for printing, such as the cairo context and important parameters like page size and resolution. It also lets you easily create `' and `' objects that match the font metrics of the cairo surface. GtkPrintContext objects gets passed to the ::begin-print, ::end-print, ::request-page-setup and ::draw-page signals on the `'. static void draw_page (GtkPrintOperation *operation, GtkPrintContext *context, int page_nr) { cairo_t *cr; PangoLayout *layout; PangoFontDescription *desc; cr = gtk_print_context_get_cairo_context (context); /* Draw a red rectangle, as wide as the paper (inside the margins) */ cairo_set_source_rgb (cr, 1.0, 0, 0); cairo_rectangle (cr, 0, 0, gtk_print_context_get_width (context), 50); cairo_fill (cr); /* Draw some lines */ cairo_move_to (cr, 20, 10); cairo_line_to (cr, 40, 20); cairo_arc (cr, 60, 60, 20, 0, M_PI); cairo_line_to (cr, 80, 20); cairo_set_source_rgb (cr, 0, 0, 0); cairo_set_line_width (cr, 5); cairo_set_line_cap (cr, CAIRO_LINE_CAP_ROUND); cairo_set_line_join (cr, CAIRO_LINE_JOIN_ROUND); cairo_stroke (cr); /* Draw some text */ layout = gtk_print_context_create_layout (context); pango_layout_set_text (layout, "Hello World! Printing is easy", -1); desc = pango_font_description_from_string ("sans 28"); pango_layout_set_font_description (layout, desc); pango_font_description_free (desc); cairo_move_to (cr, 30, 20); pango_cairo_layout_path (cr, layout); /* Font Outline */ cairo_set_source_rgb (cr, 0.93, 1.0, 0.47); cairo_set_line_width (cr, 0.5); cairo_stroke_preserve (cr); /* Font Fill */ cairo_set_source_rgb (cr, 0, 0.0, 1.0); cairo_fill (cr); g_object_unref (layout); } Printing support was added in GTK+ 2.10. 110.2 Usage =========== -- Class: Derives from `'. This class defines no direct slots. -- Function: gtk-print-context-get-cairo-context (self `') => (ret `cairo-t') -- Method: get-cairo-context Obtains the cairo context that is associated with the `'. CONTEXT a `' RET the cairo context of CONTEXT Since 2.10 -- Function: gtk-print-context-set-cairo-context (self `') (cr `cairo-t') (dpi_x `double') (dpi_y `double') -- Method: set-cairo-context Sets a new cairo context on a print context. This function is intended to be used when implementing an internal print preview, it is not needed for printing, since GTK+ itself creates a suitable cairo context in that case. CONTEXT a `' CR the cairo context DPI-X the horizontal resolution to use with CR DPI-Y the vertical resolution to use with CR Since 2.10 -- Function: gtk-print-context-get-page-setup (self `') => (ret `') -- Method: get-page-setup Obtains the `' that determines the page dimensions of the `'. CONTEXT a `' RET the page setup of CONTEXT Since 2.10 -- Function: gtk-print-context-get-width (self `') => (ret `double') -- Method: get-width Obtains the width of the `', in pixels. CONTEXT a `' RET the width of CONTEXT Since 2.10 -- Function: gtk-print-context-get-height (self `') => (ret `double') -- Method: get-height Obtains the height of the `', in pixels. CONTEXT a `' RET the height of CONTEXT Since 2.10 -- Function: gtk-print-context-get-dpi-x (self `') => (ret `double') -- Method: get-dpi-x Obtains the horizontal resolution of the `', in dots per inch. CONTEXT a `' RET the horizontal resolution of CONTEXT Since 2.10 -- Function: gtk-print-context-get-dpi-y (self `') => (ret `double') -- Method: get-dpi-y Obtains the vertical resolution of the `', in dots per inch. CONTEXT a `' RET the vertical resolution of CONTEXT Since 2.10 -- Function: gtk-print-context-get-pango-fontmap (self `') => (ret `') -- Method: get-pango-fontmap Returns a `' that is suitable for use with the `'. CONTEXT a `' RET the font map of CONTEXT Since 2.10  File: guile-gnome-gtk.info, Node: GtkPrintSettings, Next: GtkPageSetup, Prev: GtkPrintContext, Up: Top 111 GtkPrintSettings ******************** Stores print settings 111.1 Overview ============== A GtkPrintSettings object represents the settings of a print dialog in a system-independent way. The main use for this object is that once you've printed you can get a settings object that represents the settings the user chose, and the next time you print you can pass that object in so that the user doesn't have to re-set all his settings. Its also possible to enumerate the settings so that you can easily save the settings for the next time your app runs, or even store them in a document. The predefined keys try to use shared values as much as possible so that moving such a document between systems still works. Printing support was added in GTK+ 2.10. 111.2 Usage =========== -- Class: Derives from `'. This class defines no direct slots. -- Function: gtk-print-settings-new => (ret `') Creates a new `' object. RET a new `' object Since 2.10 -- Function: gtk-print-settings-has-key (self `') (key `mchars') => (ret `bool') -- Method: has-key Returns ``#t'', if a value is associated with KEY. SETTINGS a `' KEY a key RET ``#t'', if KEY has a value Since 2.10 -- Function: gtk-print-settings-get (self `') (key `mchars') => (ret `mchars') -- Method: get Looks up the string value associated with KEY. SETTINGS a `' KEY a key RET the string value for KEY Since 2.10 -- Function: gtk-print-settings-set (self `') (key `mchars') (value `mchars') -- Method: set Associates VALUE with KEY. SETTINGS a `' KEY a key VALUE a string value, or ``#f'' Since 2.10 -- Function: gtk-print-settings-unset (self `') (key `mchars') -- Method: unset Removes any value associated with KEY. This has the same effect as setting the value to ``#f''. SETTINGS a `' KEY a key Since 2.10 -- Function: gtk-print-settings-get-bool (self `') (key `mchars') => (ret `bool') -- Method: get-bool Returns the boolean represented by the value that is associated with KEY. The string "true" represents ``#t'', any other string ``#f''. SETTINGS a `' KEY a key RET ``#t'', if KEY maps to a true value. Since 2.10 -- Function: gtk-print-settings-set-bool (self `') (key `mchars') (value `bool') -- Method: set-bool Sets KEY to a boolean value. SETTINGS a `' KEY a key VALUE a boolean Since 2.10 -- Function: gtk-print-settings-get-double (self `') (key `mchars') => (ret `double') -- Method: get-double Returns the double value associated with KEY, or 0. SETTINGS a `' KEY a key RET the double value of KEY Since 2.10 -- Function: gtk-print-settings-set-double (self `') (key `mchars') (value `double') -- Method: set-double Sets KEY to a double value. SETTINGS a `' KEY a key VALUE a double value Since 2.10 -- Function: gtk-print-settings-get-length (self `') (key `mchars') (unit `') => (ret `double') -- Method: get-length Returns the value associated with KEY, interpreted as a length. The returned value is converted to UNITS. SETTINGS a `' KEY a key UNIT the unit of the return value RET the length value of KEY, converted to UNIT Since 2.10 -- Function: gtk-print-settings-set-length (self `') (key `mchars') (value `double') (unit `') -- Method: set-length Associates a length in units of UNIT with KEY. SETTINGS a `' KEY a key VALUE a length UNIT the unit of LENGTH Since 2.10 -- Function: gtk-print-settings-get-int (self `') (key `mchars') => (ret `int') -- Method: get-int Returns the integer value of KEY, or 0. SETTINGS a `' KEY a key RET the integer value of KEY Since 2.10 -- Function: gtk-print-settings-set-int (self `') (key `mchars') (value `int') -- Method: set-int Sets KEY to an integer value. SETTINGS a `' KEY a key VALUE an integer Since 2.10 -- Function: gtk-print-settings-get-printer (self `') => (ret `mchars') -- Method: get-printer Convenience function to obtain the value of `GTK_PRINT_SETTINGS_PRINTER'. SETTINGS a `' RET the printer name Since 2.10 -- Function: gtk-print-settings-set-printer (self `') (printer `mchars') -- Method: set-printer Convenience function to set `GTK_PRINT_SETTINGS_PRINTER' to PRINTER. SETTINGS a `' PRINTER the printer name Since 2.10 -- Function: gtk-print-settings-get-orientation (self `') => (ret `') -- Method: get-orientation Get the value of `GTK_PRINT_SETTINGS_ORIENTATION', converted to a `'. SETTINGS a `' RET the orientation Since 2.10 -- Function: gtk-print-settings-set-orientation (self `') (orientation `') -- Method: set-orientation Sets the value of `GTK_PRINT_SETTINGS_ORIENTATION'. SETTINGS a `' ORIENTATION a page orientation Since 2.10 -- Function: gtk-print-settings-get-paper-size (self `') => (ret `') -- Method: get-paper-size Gets the value of `GTK_PRINT_SETTINGS_PAPER_FORMAT', converted to a `'. SETTINGS a `' RET the paper size Since 2.10 -- Function: gtk-print-settings-set-paper-size (self `') (paper_size `') -- Method: set-paper-size Sets the value of `GTK_PRINT_SETTINGS_PAPER_FORMAT', `GTK_PRINT_SETTINGS_PAPER_WIDTH' and `GTK_PRINT_SETTINGS_PAPER_HEIGHT'. SETTINGS a `' PAPER-SIZE a paper size Since 2.10 -- Function: gtk-print-settings-get-paper-width (self `') (unit `') => (ret `double') -- Method: get-paper-width Gets the value of `GTK_PRINT_SETTINGS_PAPER_WIDTH', converted to UNIT. SETTINGS a `' UNIT the unit for the return value RET the paper width, in units of UNIT Since 2.10 -- Function: gtk-print-settings-set-paper-width (self `') (width `double') (unit `') -- Method: set-paper-width Sets the value of `GTK_PRINT_SETTINGS_PAPER_WIDTH'. SETTINGS a `' WIDTH the paper width UNIT the units of WIDTH Since 2.10 -- Function: gtk-print-settings-get-paper-height (self `') (unit `') => (ret `double') -- Method: get-paper-height Gets the value of `GTK_PRINT_SETTINGS_PAPER_HEIGHT', converted to UNIT. SETTINGS a `' UNIT the unit for the return value RET the paper height, in units of UNIT Since 2.10 -- Function: gtk-print-settings-set-paper-height (self `') (height `double') (unit `') -- Method: set-paper-height Sets the value of `GTK_PRINT_SETTINGS_PAPER_HEIGHT'. SETTINGS a `' HEIGHT the paper height UNIT the units of HEIGHT Since 2.10 -- Function: gtk-print-settings-get-use-color (self `') => (ret `bool') -- Method: get-use-color Gets the value of `GTK_PRINT_SETTINGS_USE_COLOR'. SETTINGS a `' RET whether to use color Since 2.10 -- Function: gtk-print-settings-set-use-color (self `') (use_color `bool') -- Method: set-use-color Sets the value of `GTK_PRINT_SETTINGS_USE_COLOR'. SETTINGS a `' USE-COLOR whether to use color Since 2.10 -- Function: gtk-print-settings-get-collate (self `') => (ret `bool') -- Method: get-collate Gets the value of `GTK_PRINT_SETTINGS_COLLATE'. SETTINGS a `' RET whether to collate the printed pages Since 2.10 -- Function: gtk-print-settings-set-collate (self `') (collate `bool') -- Method: set-collate Sets the value of `GTK_PRINT_SETTINGS_COLLATE'. SETTINGS a `' COLLATE whether to collate the output Since 2.10 -- Function: gtk-print-settings-get-reverse (self `') => (ret `bool') -- Method: get-reverse Gets the value of `GTK_PRINT_SETTINGS_REVERSE'. SETTINGS a `' RET whether to reverse the order of the printed pages Since 2.10 -- Function: gtk-print-settings-set-reverse (self `') (reverse `bool') -- Method: set-reverse Sets the value of `GTK_PRINT_SETTINGS_REVERSE'. SETTINGS a `' REVERSE whether to reverse the output Since 2.10 -- Function: gtk-print-settings-get-duplex (self `') => (ret `') -- Method: get-duplex Gets the value of `GTK_PRINT_SETTINGS_DUPLEX'. SETTINGS a `' RET whether to print the output in duplex. Since 2.10 -- Function: gtk-print-settings-set-duplex (self `') (duplex `') -- Method: set-duplex Sets the value of `GTK_PRINT_SETTINGS_DUPLEX'. SETTINGS a `' DUPLEX a `' value Since 2.10 -- Function: gtk-print-settings-get-quality (self `') => (ret `') -- Method: get-quality Gets the value of `GTK_PRINT_SETTINGS_QUALITY'. SETTINGS a `' RET the print quality Since 2.10 -- Function: gtk-print-settings-set-quality (self `') (quality `') -- Method: set-quality Sets the value of `GTK_PRINT_SETTINGS_QUALITY'. SETTINGS a `' QUALITY a `' value Since 2.10 -- Function: gtk-print-settings-get-n-copies (self `') => (ret `int') -- Method: get-n-copies Gets the value of `GTK_PRINT_SETTINGS_N_COPIES'. SETTINGS a `' RET the number of copies to print Since 2.10 -- Function: gtk-print-settings-set-n-copies (self `') (num_copies `int') -- Method: set-n-copies Sets the value of `GTK_PRINT_SETTINGS_N_COPIES'. SETTINGS a `' NUM-COPIES the number of copies Since 2.10 -- Function: gtk-print-settings-get-number-up (self `') => (ret `int') -- Method: get-number-up Gets the value of `GTK_PRINT_SETTINGS_NUMBER_UP'. SETTINGS a `' RET the number of pages per sheet Since 2.10 -- Function: gtk-print-settings-set-number-up (self `') (number_up `int') -- Method: set-number-up Sets the value of `GTK_PRINT_SETTINGS_NUMBER_UP'. SETTINGS a `' NUMBER-UP the number of pages per sheet Since 2.10 -- Function: gtk-print-settings-get-resolution (self `') => (ret `int') -- Method: get-resolution Gets the value of `GTK_PRINT_SETTINGS_RESOLUTION'. SETTINGS a `' RET the resolution in dpi Since 2.10 -- Function: gtk-print-settings-set-resolution (self `') (resolution `int') -- Method: set-resolution Sets the value of `GTK_PRINT_SETTINGS_RESOLUTION'. SETTINGS a `' RESOLUTION the resolution in dpi Since 2.10 -- Function: gtk-print-settings-get-scale (self `') => (ret `double') -- Method: get-scale Gets the value of `GTK_PRINT_SETTINGS_SCALE'. SETTINGS a `' RET the scale in percent Since 2.10 -- Function: gtk-print-settings-set-scale (self `') (scale `double') -- Method: set-scale Sets the value of `GTK_PRINT_SETTINGS_SCALE'. SETTINGS a `' SCALE the scale in percent Since 2.10 -- Function: gtk-print-settings-get-page-set (self `') => (ret `') -- Method: get-page-set Gets the value of `GTK_PRINT_SETTINGS_PAGE_SET'. SETTINGS a `' RET the set of pages to print Since 2.10 -- Function: gtk-print-settings-set-page-set (self `') (page_set `') -- Method: set-page-set Sets the value of `GTK_PRINT_SETTINGS_PAGE_SET'. SETTINGS a `' PAGE-SET a `' value Since 2.10 -- Function: gtk-print-settings-get-media-type (self `') => (ret `mchars') -- Method: get-media-type Gets the value of `GTK_PRINT_SETTINGS_MEDIA_TYPE'. The set of media types is defined in PWG 5101.1-2002 PWG. SETTINGS a `' RET the media type Since 2.10 -- Function: gtk-print-settings-set-media-type (self `') (media_type `mchars') -- Method: set-media-type Sets the value of `GTK_PRINT_SETTINGS_MEDIA_TYPE'. The set of media types is defined in PWG 5101.1-2002 PWG. SETTINGS a `' MEDIA-TYPE the media type Since 2.10 -- Function: gtk-print-settings-get-dither (self `') => (ret `mchars') -- Method: get-dither Gets the value of `GTK_PRINT_SETTINGS_DITHER'. SETTINGS a `' RET the dithering that is used Since 2.10 -- Function: gtk-print-settings-set-dither (self `') (dither `mchars') -- Method: set-dither Sets the value of `GTK_PRINT_SETTINGS_DITHER'. SETTINGS a `' DITHER the dithering that is used Since 2.10 -- Function: gtk-print-settings-get-finishings (self `') => (ret `mchars') -- Method: get-finishings Gets the value of `GTK_PRINT_SETTINGS_FINISHINGS'. SETTINGS a `' RET the finishings Since 2.10 -- Function: gtk-print-settings-set-finishings (self `') (finishings `mchars') -- Method: set-finishings Sets the value of `GTK_PRINT_SETTINGS_FINISHINGS'. SETTINGS a `' FINISHINGS the finishings Since 2.10 -- Function: gtk-print-settings-get-output-bin (self `') => (ret `mchars') -- Method: get-output-bin Gets the value of `GTK_PRINT_SETTINGS_OUTPUT_BIN'. SETTINGS a `' RET the output bin Since 2.10 -- Function: gtk-print-settings-set-output-bin (self `') (output_bin `mchars') -- Method: set-output-bin Sets the value of `GTK_PRINT_SETTINGS_OUTPUT_BIN'. SETTINGS a `' OUTPUT-BIN the output bin Since 2.10  File: guile-gnome-gtk.info, Node: GtkPageSetup, Next: GtkPaperSize, Prev: GtkPrintSettings, Up: Top 112 GtkPageSetup **************** Stores page setup information 112.1 Overview ============== A GtkPageSetup object stores the page size, orientation and margins. The idea is that you can get one of these from the page setup dialog and then pass it to the `' when printing. The benefit of splitting this out of the `' is that these affect the actual layout of the page, and thus need to be set long before user prints. The margins specified in this object are the "print margins", i.e. the parts of the page that the printer cannot print on. These are different from the layout margins that a word processor uses; they are typically used to determine the _minimal_ size for the layout margins. To obtain a `' use `gtk-page-setup-new' to get the defaults, or use `gtk-print-run-page-setup-dialog' to show the page setup dialog and receive the resulting page setup. static GtkPrintSettings *settings = NULL; static GtkPageSetup *page_setup = NULL; static void do_page_setup (void) { GtkPageSetup *new_page_setup; if (settings == NULL) settings = gtk_print_settings_new (); new_page_setup = gtk_print_run_page_setup_dialog (GTK_WINDOW (main_window), page_setup, settings); if (page_setup) g_object_unref (page_setup); page_setup = new_page_setup; } Printing support was added in GTK+ 2.10. 112.2 Usage =========== -- Class: Derives from `'. This class defines no direct slots. -- Function: gtk-page-setup-new => (ret `') Creates a new `'. RET a new `'. Since 2.10 -- Function: gtk-page-setup-get-orientation (self `') => (ret `') -- Method: get-orientation Gets the page orientation of the `'. SETUP a `' RET the page orientation Since 2.10 -- Function: gtk-page-setup-set-orientation (self `') (orientation `') -- Method: set-orientation Sets the page orientation of the `'. SETUP a `' ORIENTATION a `' value Since 2.10 -- Function: gtk-page-setup-get-paper-size (self `') => (ret `') -- Method: get-paper-size Gets the paper size of the `'. SETUP a `' RET the paper size Since 2.10 -- Function: gtk-page-setup-set-paper-size (self `') (size `') -- Method: set-paper-size Sets the paper size of the `' without changing the margins. See `gtk-page-setup-set-paper-size-and-default-margins'. SETUP a `' SIZE a `' Since 2.10 -- Function: gtk-page-setup-get-top-margin (self `') (unit `') => (ret `double') -- Method: get-top-margin Gets the top margin in units of UNIT. SETUP a `' UNIT the unit for the return value RET the top margin Since 2.10 -- Function: gtk-page-setup-set-top-margin (self `') (margin `double') (unit `') -- Method: set-top-margin Sets the top margin of the `'. SETUP a `' MARGIN the new top margin in units of UNIT UNIT the units for MARGIN Since 2.10 -- Function: gtk-page-setup-get-bottom-margin (self `') (unit `') => (ret `double') -- Method: get-bottom-margin Gets the bottom margin in units of UNIT. SETUP a `' UNIT the unit for the return value RET the bottom margin Since 2.10 -- Function: gtk-page-setup-set-bottom-margin (self `') (margin `double') (unit `') -- Method: set-bottom-margin Sets the bottom margin of the `'. SETUP a `' MARGIN the new bottom margin in units of UNIT UNIT the units for MARGIN Since 2.10 -- Function: gtk-page-setup-get-left-margin (self `') (unit `') => (ret `double') -- Method: get-left-margin Gets the left margin in units of UNIT. SETUP a `' UNIT the unit for the return value RET the left margin Since 2.10 -- Function: gtk-page-setup-set-left-margin (self `') (margin `double') (unit `') -- Method: set-left-margin Sets the left margin of the `'. SETUP a `' MARGIN the new left margin in units of UNIT UNIT the units for MARGIN Since 2.10 -- Function: gtk-page-setup-get-right-margin (self `') (unit `') => (ret `double') -- Method: get-right-margin Gets the right margin in units of UNIT. SETUP a `' UNIT the unit for the return value RET the right margin Since 2.10 -- Function: gtk-page-setup-set-right-margin (self `') (margin `double') (unit `') -- Method: set-right-margin Sets the right margin of the `'. SETUP a `' MARGIN the new right margin in units of UNIT UNIT the units for MARGIN Since 2.10 -- Function: gtk-page-setup-get-paper-width (self `') (unit `') => (ret `double') -- Method: get-paper-width Returns the paper width in units of UNIT. Note that this function takes orientation, but not margins into consideration. See `gtk-page-setup-get-page-width'. SETUP a `' UNIT the unit for the return value RET the paper width. Since 2.10 -- Function: gtk-page-setup-get-paper-height (self `') (unit `') => (ret `double') -- Method: get-paper-height Returns the paper height in units of UNIT. Note that this function takes orientation, but not margins into consideration. See `gtk-page-setup-get-page-height'. SETUP a `' UNIT the unit for the return value RET the paper height. Since 2.10 -- Function: gtk-page-setup-get-page-width (self `') (unit `') => (ret `double') -- Method: get-page-width Returns the page width in units of UNIT. Note that this function takes orientation and margins into consideration. See `gtk-page-setup-get-paper-width'. SETUP a `' UNIT the unit for the return value RET the page width. Since 2.10 -- Function: gtk-page-setup-get-page-height (self `') (unit `') => (ret `double') -- Method: get-page-height Returns the page height in units of UNIT. Note that this function takes orientation and margins into consideration. See `gtk-page-setup-get-paper-height'. SETUP a `' UNIT the unit for the return value RET the page height. Since 2.10  File: guile-gnome-gtk.info, Node: GtkPaperSize, Next: GtkAdjustment, Prev: GtkPageSetup, Up: Top 113 GtkPaperSize **************** Support for named paper sizes 113.1 Overview ============== GtkPaperSize handles paper sizes. It uses the standard called "PWG 5101.1-2002 PWG: Standard for Media Standardized Names" to name the paper sizes (and to get the data for the page sizes). In addition to standard paper sizes, GtkPaperSize allows to construct custom paper sizes with arbitrary dimensions. The `' object stores not only the dimensions (width and height) of a paper size and its name, it also provides default print margins. Printing support has been added in GTK+ 2.10. 113.2 Usage =========== -- Class: Derives from `'. This class defines no direct slots. -- Function: gtk-paper-size-new (name `mchars') => (ret `') Creates a new `' object by parsing a PWG 5101.1-2002 PWG paper name. If NAME is ``#f'', the default paper size is returned, see `gtk-paper-size-get-default'. NAME a paper size name, or ``#f'' RET a new `', use `gtk-paper-size-free' to free it Since 2.10 -- Function: gtk-paper-size-new-from-ppd (ppd_name `mchars') (ppd_display_name `mchars') (width `double') (height `double') => (ret `') Creates a new `' object by using PPD information. If PPD-NAME is not a recognized PPD paper name, PPD-DISPLAY-NAME, WIDTH and HEIGHT are used to construct a custom `' object. PPD-NAME a PPD paper name PPD-DISPLAY-NAME the corresponding human-readable name WIDTH the paper width, in points HEIGHT the paper height in points RET a new `', use `gtk-paper-size-free' to free it Since 2.10 -- Function: gtk-paper-size-new-custom (name `mchars') (display_name `mchars') (width `double') (height `double') (unit `') => (ret `') Creates a new `' object with the given parameters. NAME the paper name DISPLAY-NAME the human-readable name WIDTH the paper width, in units of UNIT HEIGHT the paper height, in units of UNIT UNIT the unit for WIDTH and HEIGHT RET a new `' object, use `gtk-paper-size-free' to free it Since 2.10 -- Function: gtk-paper-size-is-equal (self `') (size2 `') => (ret `bool') Compares two `' objects. SIZE1 a `' object SIZE2 another `' object RET ``#t'', if SIZE1 and SIZE2 represent the same paper size Since 2.10 -- Function: gtk-paper-size-get-name (self `') => (ret `mchars') Gets the name of the `'. SIZE a `' object RET the name of SIZE Since 2.10 -- Function: gtk-paper-size-get-display-name (self `') => (ret `mchars') Gets the human-readable name of the `'. SIZE a `' object RET the human-readable name of SIZE Since 2.10 -- Function: gtk-paper-size-get-ppd-name (self `') => (ret `mchars') Gets the PPD name of the `', which may be ``#f''. SIZE a `' object RET the PPD name of SIZE Since 2.10 -- Function: gtk-paper-size-get-width (self `') (unit `') => (ret `double') Gets the paper width of the `', in units of UNIT. SIZE a `' object UNIT the unit for the return value RET the paper width Since 2.10 -- Function: gtk-paper-size-get-height (self `') (unit `') => (ret `double') Gets the paper height of the `', in units of UNIT. SIZE a `' object UNIT the unit for the return value RET the paper height Since 2.10 -- Function: gtk-paper-size-is-custom (self `') => (ret `bool') Returns ``#t'' if SIZE is not a standard paper size. SIZE a `' object RET whether SIZE is a custom paper size. -- Function: gtk-paper-size-set-size (self `') (width `double') (height `double') (unit `') Changes the dimensions of a SIZE to WIDTH x HEIGHT. SIZE a custom `' object WIDTH the new width in units of UNIT HEIGHT the new height in units of UNIT UNIT the unit for WIDTH and HEIGHT Since 2.10 -- Function: gtk-paper-size-get-default => (ret `mchars') Returns the name of the default paper size, which depends on the current locale. RET the name of the default paper size. The string is owned by GTK+ and should not be modified. Since 2.10 guile-gnome-platform-2.16.2/gtk/doc/gtk/section-gtkmenubar.xml.texi0000644000175000017500000000104011670374302025574 0ustar00wingowingo00000000000000 @c %start of fragment @node GtkMenuBar @chapter GtkMenuBar A subclass widget for which holds widgets @section Overview The @code{} is a subclass of @code{} which contains one to many @code{}. The result is a standard menu bar which can hold many menu items. @code{} allows for a shadow type to be set for aesthetic purposes. The shadow types are defined in the @code{} function. @section Usage @include defuns-gtkmenubar.xml.texi @c %end of fragment guile-gnome-platform-2.16.2/gtk/doc/gtk/section-gtkmenutoolbutton.xml.texi0000644000175000017500000000116311670374302027247 0ustar00wingowingo00000000000000 @c %start of fragment @node GtkMenuToolButton @chapter GtkMenuToolButton A GtkToolItem containing a button with an additional dropdown menu @section Overview A @code{} is a @code{} that contains a button and a small additional button with an arrow. When clicked, the arrow button pops up a dropdown menu. Use @code{gtk-menu-tool-button-new} to create a new @code{}. Use @code{gtk-menu-tool-button-new-from-stock} to create a new @code{} containing a stock item. @section Usage @include defuns-gtkmenutoolbutton.xml.texi @c %end of fragment guile-gnome-platform-2.16.2/gtk/doc/gtk/section-gtkbutton.xml.texi0000644000175000017500000000105711670374302025466 0ustar00wingowingo00000000000000 @c %start of fragment @node GtkButton @chapter GtkButton A widget that creates a signal when clicked on @section Overview The @code{} widget is generally used to attach a function to that is called when the button is pressed. The various signals and how to use them are outlined below. The @code{} widget can hold any valid child widget. That is it can hold most any other standard @code{}. The most commonly used child is the @code{}. @section Usage @include defuns-gtkbutton.xml.texi @c %end of fragment guile-gnome-platform-2.16.2/gtk/doc/gtk/defuns-gtktreesortable.xml.texi0000644000175000017500000000034511670374302026465 0ustar00wingowingo00000000000000 @c %start of fragment @deftp Class Derives from @code{}. This class defines no direct slots. @end deftp @defop Signal sort-column-changed @end defop @c %end of fragment guile-gnome-platform-2.16.2/gtk/doc/gtk/overrides.texi0000644000175000017500000000364411670374302023212 0ustar00wingowingo00000000000000@deffn Function gtk-text-buffer-get-bounds (self@tie{}@code{}) @result{}@tie{} (start@tie{}@code{}) (end@tie{}@code{}) @deffnx Method get-bounds Retrieves the first and last iterators in the buffer, i.e. the entire buffer lies within the range [@var{start},@var{end}). @table @var @item buffer a @code{} @item start iterator to initialize with first position in the buffer @item end iterator to initialize with the end iterator @end table @end deffn @deffn Function gtk-tree-selection-get-selected (self@tie{}@code{}) @result{}@tie{} (model@tie{}@code{}) (iter@tie{}@code{}) @deffnx Method get-selected Retrieve the current selection, if @var{selection} is set to @code{} or @code{}. This function will not work if you use @var{selection} is @code{}. @table @var @item selection A @code{}. @item model A pointer to set to the @code{}, or NULL. @item iter The @code{}, or NULL. @end table @end deffn @deffn Function gtk-action-group-add-actions (self@tie{}@code{}) (entries@tie{}@code{scm}) This is a convenience function to create a number of actions and add them to the action group. The "activate" signals of the actions are connected to the callbacks and their accel paths are set to @samp{//}. @table @var @item action-group The action group @item scm An list of actions. The actions are of the form @code{(@var{name} @var{stock-id} @code{label} @code{accelerator} @code{tooltip} @code{proc}?)}. All values are strings except the @var{proc}, which should be a procedure suitable for connecting to the @code{activate} signal on the action. @var{stock-id}, @var{label}, @var{accelerator}, @var{tooltip}, and @var{proc} may be @code{#f}. @end table Since 2.4 @end deffn guile-gnome-platform-2.16.2/gtk/doc/gtk/defuns-gtkdrawingarea.xml.texi0000644000175000017500000000054211670374302026255 0ustar00wingowingo00000000000000 @c %start of fragment @deftp Class Derives from @code{}. This class defines no direct slots. @end deftp @deffn Function gtk-drawing-area-new @result{}@tie{} (ret@tie{}@code{}) Creates a new drawing area. @table @var @item ret a new @code{} @end table @end deffn @c %end of fragment guile-gnome-platform-2.16.2/gtk/doc/gtk/section-gtktoolbar.xml.texi0000644000175000017500000000174211670374303025617 0ustar00wingowingo00000000000000 @c %start of fragment @node GtkToolbar @chapter GtkToolbar Create bars of buttons and other widgets @section Overview A toolbar is created with a call to @code{gtk-toolbar-new}. A toolbar can contain instances of a subclass of @code{}. To add a @code{} to the a toolbar, use @code{gtk-toolbar-insert}. To remove an item from the toolbar use @code{gtk-container-remove}. To add a button to the toolbar, add an instance of @code{}. Toolbar items can be visually grouped by adding instances of @code{} to the toolbar. If a @code{} has the "expand" property set to @code{@code{#t}} and the "draw" property set to @code{@code{#f}} the effect is to force all following items to the end of the toolbar. Creating a context menu for the toolbar can be done by connecting to the @code{} signal. @section Usage @include defuns-gtktoolbar.xml.texi @c %end of fragment guile-gnome-platform-2.16.2/gtk/doc/gtk/defuns-gtkrecentmanager.xml.texi0000644000175000017500000003713611670374302026615 0ustar00wingowingo00000000000000 @c %start of fragment @deftp Class Derives from @code{}. This class defines the following slots: @table @code @item filename The full path to the file to be used to store and read the list @item limit The maximum number of items to be returned by gtk_recent_manager_get_items() @item size The size of the recently used resources list @end table @end deftp @defop Signal changed Emitted when the current recently used resources manager changes its contents. Since 2.10 @end defop @deftp Class Derives from @code{}. This class defines no direct slots. @end deftp @deffn Function gtk-recent-manager-new @result{}@tie{} (ret@tie{}@code{}) Creates a new recent manager object. Recent manager objects are used to handle the list of recently used resources. A @code{} object monitors the recently used resources list, and emits the "changed" signal each time something inside the list changes. @code{} objects are expensive: be sure to create them only when needed. You should use the @code{gtk-recent-manager-new-for-screen} or the @code{gtk-recent-manager-get-default} functions instead. @table @var @item ret A newly created @code{} object. @end table Since 2.10 @end deffn @deffn Function gtk-recent-manager-get-default @result{}@tie{} (ret@tie{}@code{}) Gets the recent manager for the default screen. See @code{gtk-recent-manager-get-for-screen}. @table @var @item ret A unique @code{} associated with the default screen. This recent manager is associated with the screen and can be used as long as the screen is open. Do not ref or unref it. @end table Since 2.10 @end deffn @deffn Function gtk-recent-manager-get-for-screen (screen@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{}) Gets the recent manager object associated with @var{screen}; if this function has not previously been called for the given screen, a new recent manager object will be created and associated with the screen. Recent manager objects are fairly expensive to create, so using this function is usually a better choice than calling @code{gtk-recent-manager-new} and setting the screen yourself; by using this function a single recent manager object will be shared between users. @table @var @item screen a @code{} @item ret A unique @code{} associated with the given screen. This recent manager is associated to the with the screen and can be used as long as the screen is open. Do not ref or unref it. @end table Since 2.10 @end deffn @deffn Function gtk-recent-manager-set-screen (self@tie{}@code{}) (screen@tie{}@code{}) @deffnx Method set-screen Sets the screen for a recent manager; the screen is used to track the user's currently configured recently used documents storage. @table @var @item manager a @code{} @item screen a @code{} @end table Since 2.10 @end deffn @deffn Function gtk-recent-manager-add-item (self@tie{}@code{}) (uri@tie{}@code{mchars}) @result{}@tie{} (ret@tie{}@code{bool}) @deffnx Method add-item Adds a new resource, pointed by @var{uri}, into the recently used resources list. This function automatically retrieving some of the needed metadata and setting other metadata to common default values; it then feeds the data to @code{gtk-recent-manager-add-full}. See @code{gtk-recent-manager-add-full} if you want to explicitely define the metadata for the resource pointed by @var{uri}. @table @var @item manager a @code{} @item uri a valid URI @item ret @samp{@code{#t}} if the new item was successfully added to the recently used resources list @end table Since 2.10 @end deffn @deffn Function gtk-recent-manager-remove-item (self@tie{}@code{}) (uri@tie{}@code{mchars}) @result{}@tie{} (ret@tie{}@code{bool}) @deffnx Method remove-item Removes a resource pointed by @var{uri} from the recently used resources list handled by a recent manager. @table @var @item manager a @code{} @item uri the URI of the item you wish to remove @item error return location for a @code{}, or @samp{@code{#f}} @item ret @samp{@code{#t}} if the item pointed by @var{uri} has been successfully removed by the recently used resources list, and @samp{@code{#f}} otherwise. @end table Since 2.10 @end deffn @deffn Function gtk-recent-manager-lookup-item (self@tie{}@code{}) (uri@tie{}@code{mchars}) @result{}@tie{} (ret@tie{}@code{}) @deffnx Method lookup-item Searches for a URI inside the recently used resources list, and returns a structure containing informations about the resource like its MIME type, or its display name. @table @var @item manager a @code{} @item uri a URI @item error a return location for a @code{}, or @samp{@code{#f}} @item ret a @code{} structure containing information about the resource pointed by @var{uri}, or @samp{@code{#f}} if the URI was not registered in the recently used resources list. Free with @code{gtk-recent-info-unref}. @end table Since 2.10 @end deffn @deffn Function gtk-recent-manager-has-item (self@tie{}@code{}) (uri@tie{}@code{mchars}) @result{}@tie{} (ret@tie{}@code{bool}) @deffnx Method has-item Checks whether there is a recently used resource registered with @var{uri} inside the recent manager. @table @var @item manager a @code{} @item uri a URI @item ret @samp{@code{#t}} if the resource was found, @samp{@code{#f}} otherwise. @end table Since 2.10 @end deffn @deffn Function gtk-recent-manager-move-item (self@tie{}@code{}) (uri@tie{}@code{mchars}) (new_uri@tie{}@code{mchars}) @result{}@tie{} (ret@tie{}@code{bool}) @deffnx Method move-item Changes the location of a recently used resource from @var{uri} to @var{new-uri}. Please note that this function will not affect the resource pointed by the URIs, but only the URI used in the recently used resources list. @table @var @item manager a @code{} @item uri the URI of a recently used resource @item new-uri the new URI of the recently used resource, or @samp{@code{#f}} to remove the item pointed by @var{uri} in the list @item error a return location for a @code{}, or @samp{@code{#f}} @item ret @samp{@code{#t}} on success. @end table Since 2.10 @end deffn @deffn Function gtk-recent-manager-get-limit (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{int}) @deffnx Method get-limit Gets the maximum number of items that the @code{gtk-recent-manager-get-items} function should return. @table @var @item manager a @code{} @item ret the number of items to return, or -1 for every item. @end table Since 2.10 @end deffn @deffn Function gtk-recent-manager-set-limit (self@tie{}@code{}) (limit@tie{}@code{int}) @deffnx Method set-limit Sets the maximum number of item that the @code{gtk-recent-manager-get-items} function should return. If @var{limit} is set to -1, then return all the items. @table @var @item manager a @code{} @item limit the maximum number of items to return, or -1. @end table Since 2.10 @end deffn @deffn Function gtk-recent-manager-get-items (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{glist-of}) @deffnx Method get-items Gets the list of recently used resources. @table @var @item manager a @code{} @item ret a list of newly allocated @code{} objects. Use @code{gtk-recent-info-unref} on each item inside the list, and then free the list itself using @code{g-list-free}. @end table Since 2.10 @end deffn @deffn Function gtk-recent-manager-purge-items (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{int}) @deffnx Method purge-items Purges every item from the recently used resources list. @table @var @item manager a @code{} @item error a return location for a @code{}, or @samp{@code{#f}} @item ret the number of items that have been removed from the recently used resources list. @end table Since 2.10 @end deffn @deffn Function gtk-recent-info-get-uri (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{mchars}) Gets the URI of the resource. @table @var @item info a @code{} @item ret the URI of the resource. The returned string is owned by the recent manager, and should not be freed. @end table Since 2.10 @end deffn @deffn Function gtk-recent-info-get-display-name (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{mchars}) Gets the name of the resource. If none has been defined, the basename of the resource is obtained. @table @var @item info a @code{} @item ret the display name of the resource. The returned string is owned by the recent manager, and should not be freed. @end table Since 2.10 @end deffn @deffn Function gtk-recent-info-get-description (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{mchars}) Gets the (short) description of the resource. @table @var @item info a @code{} @item ret the description of the resource. The returned string is owned by the recent manager, and should not be freed. @end table Since 2.10 @end deffn @deffn Function gtk-recent-info-get-mime-type (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{mchars}) Gets the MIME type of the resource. @table @var @item info a @code{} @item ret the MIME type of the resource. The returned string is owned by the recent manager, and should not be freed. @end table Since 2.10 @end deffn @deffn Function gtk-recent-info-get-added (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{long}) Gets the timestamp (seconds from system's Epoch) when the resource was added to the recently used resources list. @table @var @item info a @code{} @item ret the number of seconds elapsed from system's Epoch when the resource was added to the list, or -1 on failure. @end table Since 2.10 @end deffn @deffn Function gtk-recent-info-get-modified (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{long}) Gets the timestamp (seconds from system's Epoch) when the resource was last modified. @table @var @item info a @code{} @item ret the number of seconds elapsed from system's Epoch when the resource was last modified, or -1 on failure. @end table Since 2.10 @end deffn @deffn Function gtk-recent-info-get-visited (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{long}) Gets the timestamp (seconds from system's Epoch) when the resource was last visited. @table @var @item info a @code{} @item ret the number of seconds elapsed from system's Epoch when the resource was last visited, or -1 on failure. @end table Since 2.10 @end deffn @deffn Function gtk-recent-info-get-private-hint (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{bool}) Gets the value of the "private" flag. Resources in the recently used list that have this flag set to @samp{@code{#t}} should only be displayed by the applications that have registered them. @table @var @item info a @code{} @item ret @samp{@code{#t}} if the private flag was found, @samp{@code{#f}} otherwise. @end table Since 2.10 @end deffn @deffn Function gtk-recent-info-last-application (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{mchars}) Gets the name of the last application that have registered the recently used resource represented by @var{info}. @table @var @item info a @code{} @item ret an application name. Use @code{g-free} to free it. @end table Since 2.10 @end deffn @deffn Function gtk-recent-info-has-group (self@tie{}@code{}) (group_name@tie{}@code{mchars}) @result{}@tie{} (ret@tie{}@code{bool}) Checks whether @var{group-name} appears inside the groups registered for the recently used item @var{info}. @table @var @item info a @code{} @item group-name name of a group @item ret @samp{@code{#t}} if the group was found. @end table Since 2.10 @end deffn @deffn Function gtk-recent-info-has-application (self@tie{}@code{}) (app_name@tie{}@code{mchars}) @result{}@tie{} (ret@tie{}@code{bool}) Checks whether an application registered this resource using @var{app-name}. @table @var @item info a @code{} @item app-name a string containing an application name @item ret @samp{@code{#t}} if an application with name @var{app-name} was found, @samp{@code{#f}} otherwise. @end table Since 2.10 @end deffn @deffn Function gtk-recent-info-get-icon (self@tie{}@code{}) (size@tie{}@code{int}) @result{}@tie{} (ret@tie{}@code{}) Retrieves the icon of size @var{size} associated to the resource MIME type. @table @var @item info a @code{} @item size the size of the icon in pixels @item ret a @code{} containing the icon, or @samp{@code{#f}}. @end table Since 2.10 @end deffn @deffn Function gtk-recent-info-get-short-name (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{mchars}) Computes a valid UTF-8 string that can be used as the name of the item in a menu or list. For example, calling this function on an item that refers to "file:///foo/bar.txt" will yield "bar.txt". @table @var @item info an @code{} @item ret A newly-allocated string in UTF-8 encoding; free it with @code{g-free}. @end table Since 2.10 @end deffn @deffn Function gtk-recent-info-get-uri-display (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{mchars}) Gets a displayable version of the resource's URI. @table @var @item info a @code{} @item ret a UTF-8 string containing the resource's URI or @samp{@code{#f}} @end table Since 2.10 @end deffn @deffn Function gtk-recent-info-get-age (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{int}) Gets the number of days elapsed since the last update of the resource pointed by @var{info}. @table @var @item info a @code{} @item ret a positive integer containing the number of days elapsed since the time this resource was last modified. @end table Since 2.10 @end deffn @deffn Function gtk-recent-info-is-local (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{bool}) Checks whether the resource is local or not by looking at the scheme of its URI. @table @var @item info a @code{} @item ret @samp{@code{#t}} if the resource is local. @end table Since 2.10 @end deffn @deffn Function gtk-recent-info-exists (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{bool}) Checks whether the resource pointed by @var{info} still exists. At the moment this check is done only on resources pointing to local files. @table @var @item info a @code{} @item ret @samp{@code{#t}} if the resource exists @end table Since 2.10 @end deffn @deffn Function gtk-recent-info-match (self@tie{}@code{}) (info_b@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{bool}) Checks whether two @code{} structures point to the same resource. @table @var @item info-a a @code{} @item info-b a @code{} @item ret @samp{@code{#t}} if both @code{} structures point to se same resource, @samp{@code{#f}} otherwise. @end table Since 2.10 @end deffn @c %end of fragment guile-gnome-platform-2.16.2/gtk/doc/gtk/defuns-gtkvbox.xml.texi0000644000175000017500000000103011670374302024740 0ustar00wingowingo00000000000000 @c %start of fragment @deftp Class Derives from @code{}. This class defines no direct slots. @end deftp @deffn Function gtk-vbox-new (homogeneous@tie{}@code{bool}) (spacing@tie{}@code{int}) @result{}@tie{} (ret@tie{}@code{}) Creates a new GtkVBox. @table @var @item homogeneous @samp{@code{#t}} if all children are to be given equal space allotments. @item spacing the number of pixels to place by default between children. @item ret a new GtkVBox. @end table @end deffn @c %end of fragment guile-gnome-platform-2.16.2/gtk/doc/gtk/section-gtkdrawingarea.xml.texi0000644000175000017500000000542711670374302026444 0ustar00wingowingo00000000000000 @c %start of fragment @node GtkDrawingArea @chapter GtkDrawingArea A widget for custom user interface elements @section Overview The @code{} widget is used for creating custom user interface elements. It's essentially a blank widget; you can draw on @samp{widget->window}. After creating a drawing area, the application may want to connect to: Mouse and button press signals to respond to input from the user. (Use @code{gtk-widget-add-events} to enable events you wish to receive.) The "realize" signal to take any necessary actions when the widget is instantiated on a particular display. (Create GDK resources in response to this signal.) The "configure_event" signal to take any necessary actions when the widget changes size. The "expose_event" signal to handle redrawing the contents of the widget. The following code portion demonstrates using a drawing area to display a circle in the normal widget foreground color. Note that GDK automatically clears the exposed area to the background color before sending the expose event, and that drawing is implicitly clipped to the exposed area. @example gboolean expose_event_callback (GtkWidget *widget, GdkEventExpose *event, gpointer data) @{ gdk_draw_arc (widget->window, widget->style->fg_gc[GTK_WIDGET_STATE (widget)], TRUE, 0, 0, widget->allocation.width, widget->allocation.height, 0, 64 * 360); return TRUE; @} [...] GtkWidget *drawing_area = gtk_drawing_area_new (); gtk_widget_set_size_request (drawing_area, 100, 100); g_signal_connect (G_OBJECT (drawing_area), "expose_event", G_CALLBACK (expose_event_callback), NULL); @end example Expose events are normally delivered when a drawing area first comes onscreen, or when it's covered by another window and then uncovered (exposed). You can also force an expose event by adding to the "damage region" of the drawing area's window; @code{gtk-widget-queue-draw-area} and @code{gdk-window-invalidate-rect} are equally good ways to do this. You'll then get an expose event for the invalid region. The available routines for drawing are documented on the GDK Drawing Primitives page. See also @code{gdk-pixbuf-render-to-drawable} for drawing a @code{}. To receive mouse events on a drawing area, you will need to enable them with @code{gtk-widget-add-events}. To receive keyboard events, you will need to set the @code{} flag on the drawing area, and should probably draw some user-visible indication that the drawing area is focused. Use the @code{gtk-has-focus} macro in your expose event handler to decide whether to draw the focus indicator. See @code{gtk-paint-focus} for one way to draw focus. @section Usage @include defuns-gtkdrawingarea.xml.texi @c %end of fragment guile-gnome-platform-2.16.2/gtk/doc/gtk/section-gtkcellrenderercombo.xml.texi0000644000175000017500000000170211670374302027636 0ustar00wingowingo00000000000000 @c %start of fragment @node GtkCellRendererCombo @chapter GtkCellRendererCombo Renders a combobox in a cell @section Overview @code{} renders text in a cell like @code{} from which it is derived. But while @code{} offers a simple entry to edit the text, @code{} offers a @code{} or @code{} widget to edit the text. The values to display in the combo box are taken from the tree model specified in the model property. The combo cell renderer takes care of adding a text cell renderer to the combo box and sets it to display the column specified by its text-column property. Further properties of the comnbo box can be set in a handler for the editing-started signal. The @code{} cell renderer was added in GTK+ 2.6. @section Usage @include defuns-gtkcellrenderercombo.xml.texi @c %end of fragment guile-gnome-platform-2.16.2/gtk/doc/gtk/guile-gnome-gtk.info0000644000175000017500000001476711752516272024202 0ustar00wingowingo00000000000000This is guile-gnome-gtk.info, produced by makeinfo version 4.13 from guile-gnome-gtk.texi. This manual is for `(gnome gtk)' (version 2.16.2, updated 9 December 2011) Copyright 1997-2007 Damon Chaplin and others This work may be reproduced and distributed in whole or in part, in any medium, physical or electronic, so as long as this copyright notice remains intact and unchanged on all copies. Commercial redistribution is permitted and encouraged, but you may not redistribute, in whole or in part, under terms more restrictive than those under which you received it. If you redistribute a modified or translated version of this work, you must also make the source code to the modified or translated version available in electronic form without charge. However, mere aggregation as part of a larger work shall not count as a modification for this purpose. All code examples in this work are placed into the public domain, and may be used, modified and redistributed without restriction. BECAUSE THIS WORK IS LICENSED FREE OF CHARGE, THERE IS NO WARRANTY FOR THE WORK, TO THE EXTENT PERMITTED BY APPLICABLE LAW. EXCEPT WHEN OTHERWISE STATED IN WRITING THE COPYRIGHT HOLDERS AND/OR OTHER PARTIES PROVIDE THE WORK "AS IS" WITHOUT WARRANTY OF ANY KIND, EITHER EXPRESSED OR IMPLIED, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE. SHOULD THE WORK PROVE DEFECTIVE, YOU ASSUME THE COST OF ALL NECESSARY REPAIR OR CORRECTION. IN NO EVENT UNLESS REQUIRED BY APPLICABLE LAW OR AGREED TO IN WRITING WILL ANY COPYRIGHT HOLDER, OR ANY OTHER PARTY WHO MAY MODIFY AND/OR REDISTRIBUTE THE WORK AS PERMITTED ABOVE, BE LIABLE TO YOU FOR DAMAGES, INCLUDING ANY GENERAL, SPECIAL, INCIDENTAL OR CONSEQUENTIAL DAMAGES ARISING OUT OF THE USE OR INABILITY TO USE THE WORK, EVEN IF SUCH HOLDER OR OTHER PARTY HAS BEEN ADVISED OF THE POSSIBILITY OF SUCH DAMAGES. INFO-DIR-SECTION The Algorithmic Language Scheme START-INFO-DIR-ENTRY * Guile-Gtk: (guile-gnome-gtk.info). The GIMP ToolKit. END-INFO-DIR-ENTRY  Indirect: guile-gnome-gtk.info-1: 2202 guile-gnome-gtk.info-2: 295883 guile-gnome-gtk.info-3: 595308 guile-gnome-gtk.info-4: 894413 guile-gnome-gtk.info-5: 1180319  Tag Table: (Indirect) Node: Top2202 Node: Overview15054 Node: GtkDialog18106 Node: GtkInvisible29137 Node: GtkMessageDialog30872 Node: GtkWindow34066 Node: GtkWindowGroup94995 Node: GtkAboutDialog96142 Node: GtkAssistant105380 Node: GtkAccelLabel115567 Node: GtkImage120648 Node: GtkLabel135440 Node: GtkProgressBar160457 Node: GtkStatusbar167731 Node: GtkStatusIcon172416 Node: GtkButton183586 Node: GtkCheckButton195502 Node: GtkRadioButton197023 Node: GtkToggleButton203219 Node: GtkLinkButton210028 Node: GtkEntry212317 Node: GtkEntryCompletion225589 Node: GtkHScale231723 Node: GtkVScale233402 Node: GtkSpinButton235070 Node: GtkEditable247998 Node: GtkTextIter256421 Node: GtkTextMark292016 Node: GtkTextBuffer295883 Node: GtkTextTag331638 Node: GtkTextTagTable340925 Node: GtkTextView343286 Node: GtkTreeModel369966 Node: GtkTreeSelection395557 Node: GtkTreeViewColumn402555 Node: GtkTreeView417719 Node: GtkTreeView drag-and-drop450551 Node: GtkCellView453691 Node: GtkIconView458511 Node: GtkTreeSortable477594 Node: GtkTreeModelSort478194 Node: GtkTreeModelFilter484274 Node: GtkCellLayout487331 Node: GtkCellRenderer491643 Node: GtkCellEditable501250 Node: GtkCellRendererAccel502905 Node: GtkCellRendererCombo504425 Node: GtkCellRendererPixbuf506412 Node: GtkCellRendererProgress508582 Node: GtkCellRendererSpin509924 Node: GtkCellRendererText511531 Node: GtkCellRendererToggle516228 Node: GtkListStore519552 Node: GtkTreeStore531026 Node: GtkComboBox541510 Node: GtkComboBoxEntry555673 Node: GtkMenu559580 Node: GtkMenuBar572051 Node: GtkMenuItem573650 Node: GtkMenuShell579767 Node: GtkImageMenuItem586496 Node: GtkRadioMenuItem589242 Node: GtkCheckMenuItem592178 Node: GtkSeparatorMenuItem594597 Node: GtkTearoffMenuItem595308 Node: GtkToolbar596438 Node: GtkToolItem605705 Node: GtkSeparatorToolItem618670 Node: GtkToolButton620728 Node: GtkMenuToolButton629403 Node: GtkToggleToolButton631842 Node: GtkRadioToolButton633790 Node: GtkUIManager635867 Node: GtkActionGroup654211 Node: GtkAction663921 Node: GtkToggleAction676251 Node: GtkRadioAction679161 Node: GtkColorButton682988 Node: GtkColorSelection687573 Node: GtkColorSelectionDialog689918 Node: GtkFileSelection690774 Node: GtkFileChooser696570 Node: GtkFileChooserButton731970 Node: GtkFileChooserDialog734950 Node: GtkFileChooserWidget738991 Node: GtkFileFilter740316 Node: GtkFontButton744326 Node: GtkFontSelection750425 Node: GtkFontSelectionDialog753830 Node: GtkInputDialog754821 Node: GtkAlignment756737 Node: GtkAspectFrame762205 Node: GtkHBox764836 Node: GtkVBox765710 Node: GtkHButtonBox766584 Node: GtkVButtonBox767964 Node: GtkFixed769341 Node: GtkHPaned773292 Node: GtkVPaned773944 Node: GtkLayout774593 Node: GtkNotebook779870 Node: GtkTable803245 Node: GtkExpander812624 Node: GtkFrame820601 Node: GtkHSeparator824993 Node: GtkVSeparator825902 Node: GtkHScrollbar826563 Node: GtkVScrollbar827514 Node: GtkScrolledWindow828462 Node: GtkPrintOperation838527 Node: GtkPrintContext858097 Node: GtkPrintSettings863533 Node: GtkPageSetup881076 Node: GtkPaperSize888996 Node: GtkAdjustment894413 Node: GtkArrow898863 Node: GtkCalendar900641 Node: GtkDrawingArea905947 Node: GtkEventBox909087 Node: GtkHandleBox913400 Node: GtkIMContextSimple918619 Node: GtkIMMulticontext920091 Node: GtkSizeGroup920654 Node: GtkTooltips925945 Node: GtkViewport930585 Node: GtkAccessible933452 Node: GtkBin933783 Node: GtkBox934834 Node: GtkButtonBox943731 Node: GtkContainer947374 Node: GtkItem962888 Node: GtkMisc964048 Node: GtkObject966921 Node: GtkPaned970575 Node: GtkRange976278 Node: GtkScale982998 Node: GtkScrollbar987918 Node: GtkSeparator988935 Node: GtkWidget989384 Node: GtkIMContext1079960 Node: GtkPlug1087072 Node: GtkSocket1090205 Node: GtkCurve1094824 Node: GtkGammaCurve1098139 Node: GtkRuler1099514 Node: GtkHRuler1102880 Node: GtkVRuler1104080 Node: GtkRecentManager1105281 Node: GtkRecentChooser1121828 Node: GtkRecentChooserDialog1134374 Node: GtkRecentChooserMenu1136063 Node: GtkRecentChooserWidget1138416 Node: GtkRecentFilter1139619 Node: Undocumented1144730 Node: Type Index1167177 Node: Function Index1180319  End Tag Table guile-gnome-platform-2.16.2/gtk/doc/gtk/defuns-gtkradiotoolbutton.xml.texi0000644000175000017500000000261711670374302027226 0ustar00wingowingo00000000000000 @c %start of fragment @deftp Class Derives from @code{}. This class defines the following slots: @table @code @item group The radio tool button whose group this button belongs to. @end table @end deftp @deffn Function gtk-radio-tool-button-new (group@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{}) Creates a new @code{}, adding it to @var{group}. @table @var @item group An existing radio button group, or @samp{@code{#f}} if you are creating a new group @item ret The new @code{} @end table Since 2.4 @end deffn @deffn Function gtk-radio-tool-button-get-group (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{}) @deffnx Method get-group Returns the radio button group @var{button} belongs to. @table @var @item button a @code{} @item ret The group @var{button} belongs to. @end table Since 2.4 @end deffn @deffn Function gtk-radio-tool-button-set-group (self@tie{}@code{}) (group@tie{}@code{}) @deffnx Method set-group Adds @var{button} to @var{group}, removing it from the group it belonged to before. @table @var @item button a @code{} @item group an existing radio button group @end table Since 2.4 @end deffn @c %end of fragment guile-gnome-platform-2.16.2/gtk/doc/gtk/section-gtkcellrendererpixbuf.xml.texi0000644000175000017500000000151511670374302030036 0ustar00wingowingo00000000000000 @c %start of fragment @node GtkCellRendererPixbuf @chapter GtkCellRendererPixbuf Renders a pixbuf in a cell @section Overview A @code{} can be used to render an image in a cell. It allows to render either a given @code{} (set via the pixbuf property) or a stock icon (set via the stock-id property). To support the tree view, @code{} also supports rendering two alternative pixbufs, when the is-expander property is @samp{@code{#t}}. If the is-expanded property is @samp{@code{#t}} and the pixbuf-expander-open property is set to a pixbuf, it renders that pixbuf, if the is-expanded property is @samp{@code{#f}} and the pixbuf-expander-closed property is set to a pixbuf, it renders that one. @section Usage @include defuns-gtkcellrendererpixbuf.xml.texi @c %end of fragment guile-gnome-platform-2.16.2/gtk/doc/gtk/section-gtkimmulticontext.xml.texi0000644000175000017500000000036111670374302027235 0ustar00wingowingo00000000000000 @c %start of fragment @node GtkIMMulticontext @chapter GtkIMMulticontext An input method context supporting multiple, loadable input methods @section Overview @section Usage @include defuns-gtkimmulticontext.xml.texi @c %end of fragment guile-gnome-platform-2.16.2/gtk/doc/gtk/section-gtkrecentchooserdialog.xml.texi0000644000175000017500000000273211670374303030200 0ustar00wingowingo00000000000000 @c %start of fragment @node GtkRecentChooserDialog @chapter GtkRecentChooserDialog Displays recently used files in a dialog @section Overview @code{} is a dialog box suitable for displaying the recently used documents. This widgets works by putting a @code{} inside a @code{}. It exposes the @code{} interface, so you can use all the @code{} functions on the recent chooser dialog as well as those for @code{}. Note that @code{} does not have any methods of its own. Instead, you should use the functions that work on a @code{}. In the simplest of cases, you can use the following code to use a @code{} to select a recently used file: @example GtkWidget *dialog; dialog = gtk_recent_chooser_dialog_new ("Recent Documents", parent_window, GTK_STOCK_CANCEL, GTK_RESPONSE_CANCEL, GTK_STOCK_OPEN, GTK_RESPONSE_ACCEPT, NULL); if (gtk_dialog_run (GTK_DIALOG (dialog)) == GTK_RESPONSE_ACCEPT) @{ GtkRecentInfo *info; info = gtk_recent_chooser_get_current_item (GTK_RECENT_CHOOSER (dialog)); open_file (gtk_recent_info_get_uri (info)); gtk_recent_info_unref (info); @} gtk_widget_destroy (dialog); @end example Recently used files are supported since GTK+ 2.10. @section Usage @include defuns-gtkrecentchooserdialog.xml.texi @c %end of fragment guile-gnome-platform-2.16.2/gtk/doc/gtk/defuns-gtkuimanager.xml.texi0000644000175000017500000002645111670374302025750 0ustar00wingowingo00000000000000 @c %start of fragment @deftp Class Derives from @code{}, @code{}. This class defines the following slots: @table @code @item add-tearoffs Whether tearoff menu items should be added to menus @item ui An XML string describing the merged UI @end table @end deftp @defop Signal connect-proxy (arg0@tie{}@code{}) (arg1@tie{}@code{}) The connect_proxy signal is emitted after connecting a proxy to an action in the group. This is intended for simple customizations for which a custom action class would be too clumsy, e.g. showing tooltips for menuitems in the statusbar. Since 2.4 @end defop @defop Signal disconnect-proxy (arg0@tie{}@code{}) (arg1@tie{}@code{}) The disconnect_proxy signal is emitted after disconnecting a proxy from an action in the group. Since 2.4 @end defop @defop Signal pre-activate (arg0@tie{}@code{}) The pre_activate signal is emitted just before the @var{action} is activated. This is intended for applications to get notification just before any action is activated. Since 2.4 @end defop @defop Signal post-activate (arg0@tie{}@code{}) The post_activate signal is emitted just after the @var{action} is activated. This is intended for applications to get notification just after any action is activated. Since 2.4 @end defop @defop Signal add-widget (arg0@tie{}@code{}) The add_widget signal is emitted for each generated menubar and toolbar. It is not emitted for generated popup menus, which can be obtained by @code{gtk-ui-manager-get-widget}. Since 2.4 @end defop @defop Signal actions-changed The "actions-changed" signal is emitted whenever the set of actions changes. Since 2.4 @end defop @deffn Function gtk-ui-manager-new @result{}@tie{} (ret@tie{}@code{}) Creates a new ui manager object. @table @var @item ret a new ui manager object. @end table Since 2.4 @end deffn @deffn Function gtk-ui-manager-set-add-tearoffs (self@tie{}@code{}) (add_tearoffs@tie{}@code{bool}) @deffnx Method set-add-tearoffs Sets the "add_tearoffs" property, which controls whether menus generated by this @code{} will have tearoff menu items. Note that this only affects regular menus. Generated popup menus never have tearoff menu items. @table @var @item self a @code{} @item add-tearoffs whether tearoff menu items are added @end table Since 2.4 @end deffn @deffn Function gtk-ui-manager-get-add-tearoffs (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{bool}) @deffnx Method get-add-tearoffs Returns whether menus generated by this @code{} will have tearoff menu items. @table @var @item self a @code{} @item ret whether tearoff menu items are added @end table Since 2.4 @end deffn @deffn Function gtk-ui-manager-insert-action-group (self@tie{}@code{}) (action_group@tie{}@code{}) (pos@tie{}@code{int}) @deffnx Method insert-action-group Inserts an action group into the list of action groups associated with @var{self}. Actions in earlier groups hide actions with the same name in later groups. @table @var @item self a @code{} object @item action-group the action group to be inserted @item pos the position at which the group will be inserted. @end table Since 2.4 @end deffn @deffn Function gtk-ui-manager-remove-action-group (self@tie{}@code{}) (action_group@tie{}@code{}) @deffnx Method remove-action-group Removes an action group from the list of action groups associated with @var{self}. @table @var @item self a @code{} object @item action-group the action group to be removed @end table Since 2.4 @end deffn @deffn Function gtk-ui-manager-get-action-groups (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{glist-of}) @deffnx Method get-action-groups Returns the list of action groups associated with @var{self}. @table @var @item self a @code{} object @item ret a @code{} of action groups. The list is owned by GTK+ and should not be modified. @end table Since 2.4 @end deffn @deffn Function gtk-ui-manager-get-accel-group (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{}) @deffnx Method get-accel-group Returns the @code{} associated with @var{self}. @table @var @item self a @code{} object @item ret the @code{}. @end table Since 2.4 @end deffn @deffn Function gtk-ui-manager-get-widget (self@tie{}@code{}) (path@tie{}@code{mchars}) @result{}@tie{} (ret@tie{}@code{}) @deffnx Method get-widget Looks up a widget by following a path. The path consists of the names specified in the XML description of the UI. separated by '/'. Elements which don't have a name or action attribute in the XML (e.g. ) can be addressed by their XML element name (e.g. "popup"). The root element ("/ui") can be omitted in the path. Note that the widget found by following a path that ends in a element is the menuitem to which the menu is attached, not the menu itself. Also note that the widgets constructed by a ui manager are not tied to the lifecycle of the ui manager. If you add the widgets returned by this function to some container or explicitly ref them, they will survive the destruction of the ui manager. @table @var @item self a @code{} @item path a path @item ret the widget found by following the path, or @samp{@code{#f}} if no widget was found. @end table Since 2.4 @end deffn @deffn Function gtk-ui-manager-get-toplevels (self@tie{}@code{}) (types@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{gslist-of}) @deffnx Method get-toplevels Obtains a list of all toplevel widgets of the requested types. @table @var @item self a @code{} @item types specifies the types of toplevel widgets to include. Allowed types are @code{}, @code{} and @code{}. @item ret a newly-allocated of all toplevel widgets of the requested types. @end table Since 2.4 @end deffn @deffn Function gtk-ui-manager-get-action (self@tie{}@code{}) (path@tie{}@code{mchars}) @result{}@tie{} (ret@tie{}@code{}) @deffnx Method get-action Looks up an action by following a path. See @code{gtk-ui-manager-get-widget} for more information about paths. @table @var @item self a @code{} @item path a path @item ret the action whose proxy widget is found by following the path, or @samp{@code{#f}} if no widget was found. @end table Since 2.4 @end deffn @deffn Function gtk-ui-manager-add-ui-from-string (self@tie{}@code{}) (buffer@tie{}@code{mchars}) @result{}@tie{} (ret@tie{}@code{unsigned-int}) @deffnx Method add-ui-from-string Parses a string containing a UI definition and merges it with the current contents of @var{self}. An enclosing element is added if it is missing. @table @var @item self a @code{} object @item buffer the string to parse @item length the length of @var{buffer} (may be -1 if @var{buffer} is nul-terminated) @item error return location for an error @item ret The merge id for the merged UI. The merge id can be used to unmerge the UI with @code{gtk-ui-manager-remove-ui}. If an error occurred, the return value is 0. @end table Since 2.4 @end deffn @deffn Function gtk-ui-manager-add-ui-from-file (self@tie{}@code{}) (filename@tie{}@code{mchars}) @result{}@tie{} (ret@tie{}@code{unsigned-int}) @deffnx Method add-ui-from-file Parses a file containing a UI definition and merges it with the current contents of @var{self}. @table @var @item self a @code{} object @item filename the name of the file to parse @item error return location for an error @item ret The merge id for the merged UI. The merge id can be used to unmerge the UI with @code{gtk-ui-manager-remove-ui}. If an error occurred, the return value is 0. @end table Since 2.4 @end deffn @deffn Function gtk-ui-manager-new-merge-id (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{unsigned-int}) @deffnx Method new-merge-id Returns an unused merge id, suitable for use with @code{gtk-ui-manager-add-ui}. @table @var @item self a @code{} @item ret an unused merge id. @end table Since 2.4 @end deffn @deffn Function gtk-ui-manager-add-ui (self@tie{}@code{}) (merge_id@tie{}@code{unsigned-int}) (path@tie{}@code{mchars}) (name@tie{}@code{mchars}) (action@tie{}@code{mchars}) (type@tie{}@code{}) (top@tie{}@code{bool}) @deffnx Method add-ui Adds a UI element to the current contents of @var{self}. If @var{type} is @samp{GTK_UI_MANAGER_AUTO}, GTK+ inserts a menuitem, toolitem or separator if such an element can be inserted at the place determined by @var{path}. Otherwise @var{type} must indicate an element that can be inserted at the place determined by @var{path}. If @var{path} points to a menuitem or toolitem, the new element will be inserted before or after this item, depending on @var{top}. @table @var @item self a @code{} @item merge-id the merge id for the merged UI, see @code{gtk-ui-manager-new-merge-id} @item path a path @item name the name for the added UI element @item action the name of the action to be proxied, or @samp{@code{#f}} to add a separator @item type the type of UI element to add. @item top if @samp{@code{#t}}, the UI element is added before its siblings, otherwise it is added after its siblings. @end table Since 2.4 @end deffn @deffn Function gtk-ui-manager-remove-ui (self@tie{}@code{}) (merge_id@tie{}@code{unsigned-int}) @deffnx Method remove-ui Unmerges the part of @var{self}s content identified by @var{merge-id}. @table @var @item self a @code{} object @item merge-id a merge id as returned by @code{gtk-ui-manager-add-ui-from-string} @end table Since 2.4 @end deffn @deffn Function gtk-ui-manager-get-ui (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{mchars}) @deffnx Method get-ui Creates a UI definition of the merged UI. @table @var @item self a @code{} @item ret A newly allocated string containing an XML representation of the merged UI. @end table Since 2.4 @end deffn @deffn Function gtk-ui-manager-ensure-update (self@tie{}@code{}) @deffnx Method ensure-update Makes sure that all pending updates to the UI have been completed. This may occasionally be necessary, since @code{} updates the UI in an idle function. A typical example where this function is useful is to enforce that the menubar and toolbar have been added to the main window before showing it: @example gtk_container_add (GTK_CONTAINER (window), vbox); g_signal_connect (merge, "add_widget", G_CALLBACK (add_widget), vbox); gtk_ui_manager_add_ui_from_file (merge, "my-menus"); gtk_ui_manager_add_ui_from_file (merge, "my-toolbars"); gtk_ui_manager_ensure_update (merge); gtk_widget_show (window); @end example @table @var @item self a @code{} @end table Since 2.4 @end deffn @c %end of fragment guile-gnome-platform-2.16.2/gtk/doc/gtk/version.texi0000644000175000017500000000014611752511104022661 0ustar00wingowingo00000000000000@set UPDATED 9 December 2011 @set UPDATED-MONTH December 2011 @set EDITION 2.16.2 @set VERSION 2.16.2 guile-gnome-platform-2.16.2/gtk/doc/gtk/section-gtkcellrenderer.xml.texi0000644000175000017500000000370011670374302026616 0ustar00wingowingo00000000000000 @c %start of fragment @node GtkCellRenderer @chapter GtkCellRenderer An object for rendering a single cell on a @section Overview The @code{} is a base class of a set of objects used for rendering a cell to a @code{}. These objects are used primarily by the @code{} widget, though they aren't tied to them in any specific way. It is worth noting that @code{} is not a @code{} and cannot be treated as such. The primary use of a @code{} is for drawing a certain graphical elements on a @code{}. Typically, one cell renderer is used to draw many cells on the screen. To this extent, it isn't expected that a CellRenderer keep any permanent state around. Instead, any state is set just prior to use using @code{}s property system. Then, the cell is measured using @code{gtk-cell-renderer-get-size}. Finally, the cell is rendered in the correct location using @code{gtk-cell-renderer-render}. There are a number of rules that must be followed when writing a new @code{}. First and formost, it's important that a certain set of properties will always yield a cell renderer of the same size, barring a @code{} change. The @code{} also has a number of generic properties that are expected to be honored by all children. Beyond merely rendering a cell, cell renderers can optionally provide active user interface elements. A cell renderer can be @dfn{activatable} like @code{}, which toggles when it gets activated by a mouse click, or it can be @dfn{editable} like @code{}, which allows the user to edit the text using a @code{}. To make a cell renderer activatable or editable, you have to implement the @var{activate} or @var{start-editing} virtual functions, respectively. @section Usage @include defuns-gtkcellrenderer.xml.texi @c %end of fragment guile-gnome-platform-2.16.2/gtk/doc/gtk/section-gtkprintoperation.xml.texi0000644000175000017500000000502511670374302027227 0ustar00wingowingo00000000000000 @c %start of fragment @node GtkPrintOperation @chapter GtkPrintOperation High-level Printing API @section Overview GtkPrintOperation is the high-level, portable printing API. It looks a bit different than other GTK+ dialogs such as the @code{}, since some platforms don't expose enough infrastructure to implement a good print dialog. On such platforms, GtkPrintOperation uses the native print dialog. On platforms which do not provide a native print dialog, GTK+ uses its own, see @code{}. The typical way to use the high-level printing API is to create a @code{} object with @code{gtk-print-operation-new} when the user selects to print. Then you set some properties on it, e.g. the page size, any @code{} from previous print operations, the number of pages, the current page, etc. Then you start the print operation by calling @code{gtk-print-operation-run}. It will then show a dialog, let the user select a printer and options. When the user finished the dialog various signals will be emitted on the @code{}, the main one being ::draw-page, which you are supposed to catch and render the page on the provided @code{} using Cairo. @example static GtkPrintSettings *settings = NULL; static void do_print (void) @{ GtkPrintOperation *print; GtkPrintOperationResult res; print = gtk_print_operation_new (); if (settings != NULL) gtk_print_operation_set_print_settings (print, settings); g_signal_connect (print, "begin_print", G_CALLBACK (begin_print), NULL); g_signal_connect (print, "draw_page", G_CALLBACK (draw_page), NULL); res = gtk_print_operation_run (print, GTK_PRINT_OPERATION_ACTION_PRINT_DIALOG, GTK_WINDOW (main_window), NULL); if (res == GTK_PRINT_OPERATION_RESULT_APPLY) @{ if (settings != NULL) g_object_unref (settings); settings = g_object_ref (gtk_print_operation_get_print_settings (print)); @} g_object_unref (print); @} @end example By default GtkPrintOperation uses an external application to do print preview. To implement a custom print preview, an application must connect to the preview signal. The functions @code{gtk-print-operation-print-preview-render-page}, @code{gtk-print-operation-preview-end-preview} and @code{gtk-print-operation-preview-is-selected} are useful when implementing a print preview. Printing support was added in GTK+ 2.10. @section Usage @include defuns-gtkprintoperation.xml.texi @c %end of fragment guile-gnome-platform-2.16.2/gtk/doc/gtk/section-gtkgamma.xml.texi0000644000175000017500000000211611670374302025232 0ustar00wingowingo00000000000000 @c %start of fragment @node GtkGammaCurve @chapter GtkGammaCurve a subclass of for editing gamma curves. @section Overview This widget is considered too specialized/little-used for GTK+, and will in the future be moved to some other package. If your application needs this widget, feel free to use it, as the widget does work and is useful in some applications; it's just not of general interest. However, we are not accepting new features for the widget, and it will eventually move out of the GTK+ distribution. The @code{} widget is a variant of @code{} specifically for editing gamma curves, which are used in graphics applications such as the Gimp. The @code{} widget shows a curve which the user can edit with the mouse just like a @code{} widget. On the right of the curve it also displays 5 buttons, 3 of which change between the 3 curve modes (spline, linear and free), and the other 2 set the curve to a particular gamma value, or reset it to a straight line. @section Usage @include defuns-gtkgamma.xml.texi @c %end of fragment guile-gnome-platform-2.16.2/gtk/doc/gtk/defuns-gtktearoffmenuitem.xml.texi0000644000175000017500000000060711670374302027165 0ustar00wingowingo00000000000000 @c %start of fragment @deftp Class Derives from @code{}. This class defines no direct slots. @end deftp @deffn Function gtk-tearoff-menu-item-new @result{}@tie{} (ret@tie{}@code{}) Creates a new @code{}. @table @var @item ret a new @code{}. @end table @end deffn @c %end of fragment guile-gnome-platform-2.16.2/gtk/doc/gtk/section-gtkhbbox.xml.texi0000644000175000017500000000214011670374302025247 0ustar00wingowingo00000000000000 @c %start of fragment @node GtkHButtonBox @chapter GtkHButtonBox A container for arranging buttons horizontally @section Overview A button box should be used to provide a consistent layout of buttons throughout your application. The layout/spacing can be altered by the programmer, or if desired, by the user to alter the 'feel' of a program to a small degree. A @code{} is created with @code{gtk-hbutton-box-new}. Buttons are packed into a button box the same way widgets are added to any other container, using @code{gtk-container-add}. You can also use @code{gtk-box-pack-start} or @code{gtk-box-pack-end}, but for button boxes both these functions work just like @code{gtk-container-add}, ie., they pack the button in a way that depends on the current layout style and on whether the button has had @code{gtk-button-box-set-child-secondary} called on it. The spacing between buttons can be set with @code{gtk-box-set-spacing}. The arrangement and layout of the buttons can be changed with @code{gtk-button-box-set-layout}. @section Usage @include defuns-gtkhbbox.xml.texi @c %end of fragment guile-gnome-platform-2.16.2/gtk/doc/gtk/section-gtkicontheme.xml.texi0000644000175000017500000000625411670374302026132 0ustar00wingowingo00000000000000 @c %start of fragment @node GtkIconTheme @chapter GtkIconTheme Looking up icons by name @section Overview @code{} provides a facility for looking up icons by name and size. The main reason for using a name rather than simply providing a filename is to allow different icons to be used depending on what @dfn{icon theme} is selecetd by the user. The operation of icon themes on Linux and Unix follows the @uref{http://www.freedesktop.org/Standards/icon-theme-spec,Icon Theme Specification}. There is a default icon theme, named @samp{hicolor} where applications should install their icons, but more additional application themes can be installed as operating system vendors and users choose. Named icons are similar to the @emph{(the missing figure, gtk-Themeable-Stock-Images} facility, and the distinction between the two may be a bit confusing. A few things to keep in mind: Stock images usually are used in conjunction with @emph{(the missing figure, gtk-Stock-Items}., such as @samp{GTK_STOCK_OK} or @samp{GTK_STOCK_OPEN}. Named icons are easier to set up and therefore are more useful for new icons that an application wants to add, such as application icons or window icons. Stock images can only be loaded at the symbolic sizes defined by the @code{} enumeration, or by custom sizes defined by @code{gtk-icon-size-register}, while named icons are more flexible and any pixel size can be specified. Because stock images are closely tied to stock items, and thus to actions in the user interface, stock images may come in multiple variants for different widget states or writing directions. A good rule of thumb is that if there is a stock image for what you want to use, use it, otherwise use a named icon. It turns out that internally stock images are generally defined in terms of one or more named icons. (An example of the more than one case is icons that depend on writing direction; GTK_STOCK_GO_FORWARD uses the two themed icons "gtk-stock-go-forward-ltr" and "gtk-stock-go-forward-rtl".) In many cases, named themes are used indirectly, via @code{} or stock items, rather than directly, but looking up icons directly is also simple. The @code{} object acts as a database of all the icons in the current theme. You can create new @code{} objects, but its much more efficient to use the standard icon theme for the @code{} so that the icon information is shared with other people looking up icons. In the case where the default screen is being used, looking up an icon can be as simple as: @example GError *error = NULL; GtkIconTheme *icon_theme; GdkPixbuf *pixbuf; icon_theme = gtk_icon_theme_get_default (); pixbuf = gtk_icon_theme_load_icon (icon_theme, "my-icon-name", /* icon name */ 48, /* size */ 0, /* flags */ &error); if (!pixbuf) @{ g_warning ("Couldn't load icon: %s", error->message); g_error_free (error); @} else @{ /* Use the pixbuf */ g_object_unref (pixbuf); @} @end example @section Usage @include defuns-gtkicontheme.xml.texi @c %end of fragment guile-gnome-platform-2.16.2/gtk/doc/gtk/defuns-gtkarrow.xml.texi0000644000175000017500000000212411670374302025121 0ustar00wingowingo00000000000000 @c %start of fragment @deftp Class Derives from @code{}. This class defines the following slots: @table @code @item arrow-type The direction the arrow should point @item shadow-type Appearance of the shadow surrounding the arrow @end table @end deftp @deffn Function gtk-arrow-new (arrow_type@tie{}@code{}) (shadow_type@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{}) Creates a new arrow widget. @table @var @item arrow-type a valid @code{}. @item shadow-type a valid @code{}. @item ret the new @code{} widget. @end table @end deffn @deffn Function gtk-arrow-set (self@tie{}@code{}) (arrow_type@tie{}@code{}) (shadow_type@tie{}@code{}) @deffnx Method set Sets the direction and style of the @code{}, @var{arrow}. @table @var @item arrow a widget of type @code{}. @item arrow-type a valid @code{}. @item shadow-type a valid @code{}. @end table @end deffn @c %end of fragment guile-gnome-platform-2.16.2/gtk/doc/gtk/defuns-gtkrc.xml.texi0000644000175000017500000001705511670374302024404 0ustar00wingowingo00000000000000 @c %start of fragment @deftp Class Derives from @code{}. This class defines no direct slots. @end deftp @deffn Function gtk-rc-get-style (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{}) Finds all matching RC styles for a given widget, composites them together, and then creates a @code{} representing the composite appearance. (GTK+ actually keeps a cache of previously created styles, so a new style may not be created.) @table @var @item widget a @code{} @item ret the resulting style. No refcount is added to the returned style, so if you want to save this style around, you should add a reference yourself. @end table @end deffn @deffn Function gtk-rc-get-style-by-paths (settings@tie{}@code{}) (widget_path@tie{}@code{mchars}) (class_path@tie{}@code{mchars}) (type@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{}) Creates up a @code{} from styles defined in a RC file by providing the raw components used in matching. This function may be useful when creating pseudo-widgets that should be themed like widgets but don't actually have corresponding GTK+ widgets. An example of this would be items inside a GNOME canvas widget. The action of @code{gtk-rc-get-style} is similar to: @example gtk_widget_path (widget, NULL, &path, NULL); gtk_widget_class_path (widget, NULL, &class_path, NULL); gtk_rc_get_style_by_paths (gtk_widget_get_settings (widget), path, class_path, G_OBJECT_TYPE (widget)); @end example @table @var @item settings a @code{} object @item widget-path the widget path to use when looking up the style, or @samp{@code{#f}} if no matching against the widget path should be done @item class-path the class path to use when looking up the style, or @samp{@code{#f}} if no matching against the class path should be done. @item type a type that will be used along with parent types of this type when matching against class styles, or @code{} @item ret A style created by matching with the supplied paths, or @samp{@code{#f}} if nothing matching was specified and the default style should be used. The returned value is owned by GTK+ as part of an internal cache, so you must call @code{g-object-ref} on the returned value if you want to keep a reference to it. @end table @end deffn @deffn Function gtk-rc-parse (filename@tie{}@code{mchars}) Parses a given resource file. @table @var @item filename the filename of a file to parse. If @var{filename} is not absolute, it is searched in the current directory. @end table @end deffn @deffn Function gtk-rc-parse-string (rc_string@tie{}@code{mchars}) Parses resource information directly from a string. @table @var @item rc-string a string to parse. @end table @end deffn @deffn Function gtk-rc-reparse-all @result{}@tie{} (ret@tie{}@code{bool}) If the modification time on any previously read file for the default @code{} has changed, discard all style information and then reread all previously read RC files. @table @var @item ret @samp{@code{#t}} if the files were reread. @end table @end deffn @deffn Function gtk-rc-reparse-all-for-settings (settings@tie{}@code{}) (force_load@tie{}@code{bool}) @result{}@tie{} (ret@tie{}@code{bool}) If the modification time on any previously read file for the given @code{} has changed, discard all style information and then reread all previously read RC files. @table @var @item settings a @code{} @item force-load load whether or not anything changed @item ret @samp{@code{#t}} if the files were reread. @end table @end deffn @deffn Function gtk-rc-reset-styles (settings@tie{}@code{}) This function recomputes the styles for all widgets that use a particular @code{} object. (There is one @code{} object per @code{}, see @code{gtk-settings-get-for-screen}); It is useful when some global parameter has changed that affects the appearance of all widgets, because when a widget gets a new style, it will both redraw and recompute any cached information about its appearance. As an example, it is used when the default font size set by the operating system changes. Note that this function doesn't affect widgets that have a style set explicitely on them with @code{gtk-widget-set-style}. @table @var @item settings a @code{} @end table Since 2.4 @end deffn @deffn Function gtk-rc-add-default-file (filename@tie{}@code{mchars}) Adds a file to the list of files to be parsed at the end of @code{gtk-init}. @table @var @item filename the pathname to the file. If @var{filename} is not absolute, it is searched in the current directory. @end table @end deffn @deffn Function gtk-rc-set-default-files @result{}@tie{} (filenames@tie{}@code{mchars}) Sets the list of files that GTK+ will read at the end of @code{gtk-init}. @table @var @item filenames A @samp{@code{#f}}-terminated list of filenames. @end table @end deffn @deffn Function gtk-rc-find-module-in-path (module_file@tie{}@code{mchars}) @result{}@tie{} (ret@tie{}@code{mchars}) Searches for a theme engine in the GTK+ search path. This function is not useful for applications and should not be used. @table @var @item module-file name of a theme engine @item ret The filename, if found (must be freed with @code{g-free}), otherwise @samp{@code{#f}}. @end table @end deffn @deffn Function gtk-rc-get-module-dir @result{}@tie{} (ret@tie{}@code{mchars}) Returns a directory in which GTK+ looks for theme engines. For full information about the search for theme engines, see the docs for @env{GTK_PATH} in @emph{(the missing figure, gtk-running}. @table @var @item ret the directory. (Must be freed with @code{g-free}) @end table @end deffn @deffn Function gtk-rc-get-im-module-path @result{}@tie{} (ret@tie{}@code{mchars}) Obtains the path in which to look for IM modules. See the documentation of the @env{GTK_PATH} environment variable for more details about looking up modules. This function is useful solely for utilities supplied with GTK+ and should not be used by applications under normal circumstances. @table @var @item ret a newly-allocated string containing the path in which to look for IM modules. @end table @end deffn @deffn Function gtk-rc-get-im-module-file @result{}@tie{} (ret@tie{}@code{mchars}) Obtains the path to the IM modules file. See the documentation of the @env{GTK_IM_MODULE_FILE} environment variable for more details. @table @var @item ret a newly-allocated string containing the name of the file listing the IM modules available for loading @end table @end deffn @deffn Function gtk-rc-get-theme-dir @result{}@tie{} (ret@tie{}@code{mchars}) Returns the standard directory in which themes should be installed. (GTK+ does not actually use this directory itself.) @table @var @item ret The directory (must be freed with @code{g-free}). @end table @end deffn @deffn Function gtk-rc-style-new @result{}@tie{} (ret@tie{}@code{}) Creates a new @code{} with no fields set and a reference count of 1. @table @var @item ret the newly-created @code{} @end table @end deffn @deffn Function gtk-rc-style-copy (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{}) @deffnx Method copy Makes a copy of the specified @code{}. This function will correctly copy an RC style that is a member of a class derived from @code{}. @table @var @item orig the style to copy @item ret the resulting @code{} @end table @end deffn @c %end of fragment guile-gnome-platform-2.16.2/gtk/doc/gtk/defuns-gtktoggletoolbutton.xml.texi0000644000175000017500000000316611670374302027411 0ustar00wingowingo00000000000000 @c %start of fragment @deftp Class Derives from @code{}. This class defines the following slots: @table @code @item active If the toggle button should be pressed in or not @end table @end deftp @defop Signal toggled Emitted whenever the toggle tool button changes state. @end defop @deffn Function gtk-toggle-tool-button-new @result{}@tie{} (ret@tie{}@code{}) Returns a new @code{} @table @var @item ret a newly created @code{} @end table Since 2.4 @end deffn @deffn Function gtk-toggle-tool-button-set-active (self@tie{}@code{}) (is_active@tie{}@code{bool}) @deffnx Method set-active Sets the status of the toggle tool button. Set to @samp{@code{#t}} if you want the GtkToggleButton to be 'pressed in', and @samp{@code{#f}} to raise it. This action causes the toggled signal to be emitted. @table @var @item button a @code{} @item is-active whether @var{button} should be active @end table Since 2.4 @end deffn @deffn Function gtk-toggle-tool-button-get-active (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{bool}) @deffnx Method get-active Queries a @code{} and returns its current state. Returns @samp{@code{#t}} if the toggle button is pressed in and @samp{@code{#f}} if it is raised. @table @var @item button a @code{} @item ret @samp{@code{#t}} if the toggle tool button is pressed in, @samp{@code{#f}} if not @end table Since 2.4 @end deffn @c %end of fragment guile-gnome-platform-2.16.2/gtk/doc/gtk/section-gtkwidget.xml.texi0000644000175000017500000000174211670374303025440 0ustar00wingowingo00000000000000 @c %start of fragment @node GtkWidget @chapter GtkWidget Base class for all widgets @section Overview introduces @dfn{style properties} - these are basically object properties that are stored not on the object, but in the style object associated to the widget. Style properties are set in resource files. This mechanism is used for configuring such things as the location of the scrollbar arrows through the theme, giving theme authors more control over the look of applications without the need to write a theme engine in C. Use @code{gtk-widget-class-install-style-property} to install style properties for a widget class, @code{gtk-widget-class-find-style-property} or @code{gtk-widget-class-list-style-properties} to get information about existing style properties and @code{gtk-widget-style-get-property}, @code{gtk-widget-style-get} or @code{gtk-widget-style-get-valist} to obtain the value of a style property. @section Usage @include defuns-gtkwidget.xml.texi @c %end of fragment guile-gnome-platform-2.16.2/gtk/doc/gtk/defuns-gtkmisc.xml.texi0000644000175000017500000000440411670374302024725 0ustar00wingowingo00000000000000 @c %start of fragment @deftp Class Derives from @code{}. This class defines the following slots: @table @code @item xalign The horizontal alignment, from 0 (left) to 1 (right). Reversed for RTL layouts. @item yalign The vertical alignment, from 0 (top) to 1 (bottom) @item xpad The amount of space to add on the left and right of the widget, in pixels @item ypad The amount of space to add on the top and bottom of the widget, in pixels @end table @end deftp @deffn Function gtk-misc-set-alignment (self@tie{}@code{}) (xalign@tie{}@code{float}) (yalign@tie{}@code{float}) @deffnx Method set-alignment Sets the alignment of the widget. @table @var @item misc a @code{}. @item xalign the horizontal alignment, from 0 (left) to 1 (right). @item yalign the vertical alignment, from 0 (top) to 1 (bottom). @end table @end deffn @deffn Function gtk-misc-set-padding (self@tie{}@code{}) (xpad@tie{}@code{int}) (ypad@tie{}@code{int}) @deffnx Method set-padding Sets the amount of space to add around the widget. @table @var @item misc a @code{}. @item xpad the amount of space to add on the left and right of the widget, in pixels. @item ypad the amount of space to add on the top and bottom of the widget, in pixels. @end table @end deffn @deffn Function gtk-misc-get-alignment (self@tie{}@code{}) @result{}@tie{} (xalign@tie{}@code{float}) (yalign@tie{}@code{float}) @deffnx Method get-alignment Gets the X and Y alignment of the widget within its allocation. See @code{gtk-misc-set-alignment}. @table @var @item misc a @code{} @item xalign location to store X alignment of @var{misc}, or @samp{@code{#f}} @item yalign location to store Y alignment of @var{misc}, or @samp{@code{#f}} @end table @end deffn @deffn Function gtk-misc-get-padding (self@tie{}@code{}) @result{}@tie{} (xpad@tie{}@code{int}) (ypad@tie{}@code{int}) @deffnx Method get-padding Gets the padding in the X and Y directions of the widget. See @code{gtk-misc-set-padding}. @table @var @item misc a @code{} @item xpad location to store padding in the X direction, or @samp{@code{#f}} @item ypad location to store padding in the Y direction, or @samp{@code{#f}} @end table @end deffn @c %end of fragment guile-gnome-platform-2.16.2/gtk/doc/gtk/section-gtknotebook.xml.texi0000644000175000017500000000142711670374302025774 0ustar00wingowingo00000000000000 @c %start of fragment @node GtkNotebook @chapter GtkNotebook A tabbed notebook container @section Overview The @code{} widget is a @code{} whose children are pages that can be switched between using tab labels along one edge. There are many configuration options for @code{}. Among other things, you can choose on which edge the tabs appear (see @code{gtk-notebook-set-tab-pos}), whether, if there are too many tabs to fit the noteobook should be made bigger or scrolling arrows added (see gtk_notebook_set_scrollable), and whether there will be a popup menu allowing the users to switch pages. (see @code{gtk-notebook-enable-popup}, @code{gtk-noteobook-disable-popup}) @section Usage @include defuns-gtknotebook.xml.texi @c %end of fragment guile-gnome-platform-2.16.2/gtk/doc/gtk/section-gtktoolitem.xml.texi0000644000175000017500000000112611670374303026005 0ustar00wingowingo00000000000000 @c %start of fragment @node GtkToolItem @chapter GtkToolItem The base class of widgets that can be added to GtkToolbar @section Overview @code{}s are widgets that can appear on a toolbar. To create a toolbar item that contain something else than a button, use @code{gtk-tool-item-new}. Use @code{gtk-container-add} to add a child widget to the tool item. For toolbar items that contain buttons, see the @code{}, @code{} and @code{} classes. @section Usage @include defuns-gtktoolitem.xml.texi @c %end of fragment guile-gnome-platform-2.16.2/gtk/doc/gtk/section-gtkplug.xml.texi0000644000175000017500000000136511670374302025124 0ustar00wingowingo00000000000000 @c %start of fragment @node GtkPlug @chapter GtkPlug Toplevel for embedding into other processes @section Overview Together with @code{}, @code{} provides the ability to embed widgets from one process into another process in a fashion that is transparent to the user. One process creates a @code{} widget and, passes the ID of that widgets window to the other process, which then creates a @code{} with that window ID. Any widgets contained in the @code{} then will appear inside the first applications window. The @code{} and @code{} widgets are currently not available on all platforms supported by GTK+. @section Usage @include defuns-gtkplug.xml.texi @c %end of fragment guile-gnome-platform-2.16.2/gtk/doc/gtk/section-gtkfilechooserbutton.xml.texi0000644000175000017500000000262211670374302027710 0ustar00wingowingo00000000000000 @c %start of fragment @node GtkFileChooserButton @chapter GtkFileChooserButton A button to launch a file selection dialog @section Overview The @code{} is a widget that lets the user select a file. It implements the @code{} interface. Visually, it is a file name with a button to bring up a @code{}. The user can then use that dialog to change the file associated with that button. This widget does not support setting the "select-multiple" property to @samp{@code{#t}}. @example @{ GtkWidget *button; button = gtk_file_chooser_button_new (_("Select a file"), GTK_FILE_CHOOSER_ACTION_OPEN); gtk_file_chooser_set_current_folder (GTK_FILE_CHOOSER (button), "/etc"); @} @end example The @code{} supports the @code{}s @samp{GTK_FILE_CHOOSER_ACTION_OPEN} and @samp{GTK_FILE_CHOOSER_ACTION_SELECT_FOLDER}. The @code{} will ellipsize the label, and thus will thus request little horizontal space. To give the button more space, you should call @code{gtk-widget-size-request}, @code{gtk-file-chooser-button-set-width-chars}, or pack the button in such a way that other interface elements give space to the widget. @section Usage @include defuns-gtkfilechooserbutton.xml.texi @c %end of fragment guile-gnome-platform-2.16.2/gtk/doc/gtk/defuns-gtkicontheme.xml.texi0000644000175000017500000002012511670374302025743 0ustar00wingowingo00000000000000 @c %start of fragment @deftp Class Derives from @code{}. This class defines no direct slots. @end deftp @defop Signal changed Emitted when the current icon theme is switched or GTK+ detects that a change has occurred in the contents of the current icon theme. @end defop @deffn Function gtk-icon-theme-new @result{}@tie{} (ret@tie{}@code{}) Creates a new icon theme object. Icon theme objects are used to lookup up an icon by name in a particular icon theme. Usually, you'll want to use @code{gtk-icon-theme-get-default} or @code{gtk-icon-theme-get-for-screen} rather than creating a new icon theme object for scratch. @table @var @item ret the newly created @code{} object. @end table Since 2.4 @end deffn @deffn Function gtk-icon-theme-get-default @result{}@tie{} (ret@tie{}@code{}) Gets the icon theme for the default screen. See @code{gtk-icon-theme-get-for-screen}. @table @var @item ret A unique @code{} associated with the default screen. This icon theme is associated with the screen and can be used as long as the screen is open. Do not ref or unref it. @end table Since 2.4 @end deffn @deffn Function gtk-icon-theme-get-for-screen (screen@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{}) Gets the icon theme object associated with @var{screen}; if this function has not previously been called for the given screen, a new icon theme object will be created and associated with the screen. Icon theme objects are fairly expensive to create, so using this function is usually a better choice than calling than @code{gtk-icon-theme-new} and setting the screen yourself; by using this function a single icon theme object will be shared between users. @table @var @item screen a @code{} @item ret A unique @code{} associated with the given screen. This icon theme is associated with the screen and can be used as long as the screen is open. Do not ref or unref it. @end table Since 2.4 @end deffn @deffn Function gtk-icon-theme-set-screen (self@tie{}@code{}) (screen@tie{}@code{}) @deffnx Method set-screen Sets the screen for an icon theme; the screen is used to track the user's currently configured icon theme, which might be different for different screens. @table @var @item icon-theme a @code{} @item screen a @code{} @end table Since 2.4 @end deffn @deffn Function gtk-icon-theme-append-search-path (self@tie{}@code{}) (path@tie{}@code{mchars}) @deffnx Method append-search-path Appends a directory to the search path. See @code{gtk-icon-theme-set-search-path}. @table @var @item icon-theme a @code{} @item path directory name to append to the icon path @end table Since 2.4 @end deffn @deffn Function gtk-icon-theme-prepend-search-path (self@tie{}@code{}) (path@tie{}@code{mchars}) @deffnx Method prepend-search-path Prepends a directory to the search path. See @code{gtk-icon-theme-set-search-path}. @table @var @item icon-theme a @code{} @item path directory name to prepend to the icon path @end table Since 2.4 @end deffn @deffn Function gtk-icon-theme-set-custom-theme (self@tie{}@code{}) (theme_name@tie{}@code{mchars}) @deffnx Method set-custom-theme Sets the name of the icon theme that the @code{} object uses overriding system configuration. This function cannot be called on the icon theme objects returned from @code{gtk-icon-theme-get-default} and @code{gtk-icon-theme-get-for-screen}. @table @var @item icon-theme a @code{} @item theme-name name of icon theme to use instead of configured theme, or @samp{@code{#f}} to unset a previously set custom theme @end table Since 2.4 @end deffn @deffn Function gtk-icon-theme-has-icon (self@tie{}@code{}) (icon_name@tie{}@code{mchars}) @result{}@tie{} (ret@tie{}@code{bool}) @deffnx Method has-icon Checks whether an icon theme includes an icon for a particular name. @table @var @item icon-theme a @code{} @item icon-name the name of an icon @item ret @samp{@code{#t}} if @var{icon-theme} includes an icon for @var{icon-name}. @end table Since 2.4 @end deffn @deffn Function gtk-icon-theme-load-icon (self@tie{}@code{}) (icon_name@tie{}@code{mchars}) (size@tie{}@code{int}) (flags@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{}) @deffnx Method load-icon Looks up an icon in an icon theme, scales it to the given size and renders it into a pixbuf. This is a convenience function; if more details about the icon are needed, use @code{gtk-icon-theme-lookup-icon} followed by @code{gtk-icon-info-load-icon}. Note that you probably want to listen for icon theme changes and update the icon. This is usually done by connecting to the GtkWidget::style-set signal. If for some reason you do not want to update the icon when the icon theme changes, you should consider using @code{gdk-pixbuf-copy} to make a private copy of the pixbuf returned by this function. Otherwise GTK+ may need to keep the old icon theme loaded, which would be a waste of memory. @table @var @item icon-theme a @code{} @item icon-name the name of the icon to lookup @item size the desired icon size. The resulting icon may not be exactly this size; see @code{gtk-icon-info-load-icon}. @item flags flags modifying the behavior of the icon lookup @item error Location to store error information on failure, or @samp{@code{#f}}. @item ret the rendered icon; this may be a newly created icon or a new reference to an internal icon, so you must not modify the icon. Use @code{g-object-unref} to release your reference to the icon. @samp{@code{#f}} if the icon isn't found. @end table Since 2.4 @end deffn @deffn Function gtk-icon-theme-list-icons (self@tie{}@code{}) (context@tie{}@code{mchars}) @result{}@tie{} (ret@tie{}@code{glist-of}) @deffnx Method list-icons Lists the icons in the current icon theme. Only a subset of the icons can be listed by providing a context string. The set of values for the context string is system dependent, but will typically include such values as "Applications" and "MimeTypes". @table @var @item icon-theme a @code{} @item context a string identifying a particular type of icon, or @samp{@code{#f}} to list all icons. @item ret a @code{} list holding the names of all the icons in the theme. You must first free each element in the list with @code{g-free}, then free the list itself with @code{g-list-free}. @end table Since 2.4 @end deffn @deffn Function gtk-icon-theme-rescan-if-needed (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{bool}) @deffnx Method rescan-if-needed Checks to see if the icon theme has changed; if it has, any currently cached information is discarded and will be reloaded next time @var{icon-theme} is accessed. @table @var @item icon-theme a @code{} @item ret @samp{@code{#t}} if the icon theme has changed and needed to be reloaded. @end table Since 2.4 @end deffn @deffn Function gtk-icon-theme-add-builtin-icon (icon_name@tie{}@code{mchars}) (size@tie{}@code{int}) (pixbuf@tie{}@code{}) Registers a built-in icon for icon theme lookups. The idea of built-in icons is to allow an application or library that uses themed icons to function requiring files to be present in the file system. For instance, the default images for all of GTK+'s stock icons are registered as built-icons. In general, if you use @code{gtk-icon-theme-add-builtin-icon} you should also install the icon in the icon theme, so that the icon is generally available. This function will generally be used with pixbufs loaded via @code{gdk-pixbuf-new-from-inline}. @table @var @item icon-name the name of the icon to register @item size the size at which to register the icon (different images can be registered for the same icon name at different sizes.) @item pixbuf @code{} that contains the image to use for @var{icon-name}. @end table Since 2.4 @end deffn @c %end of fragment guile-gnome-platform-2.16.2/gtk/doc/gtk/defuns-gtkadjustment.xml.texi0000644000175000017500000000723111670374302026151 0ustar00wingowingo00000000000000 @c %start of fragment @deftp Class Derives from @code{}. This class defines the following slots: @table @code @item value The value of the adjustment @item lower The minimum value of the adjustment @item upper The maximum value of the adjustment @item step-increment The step increment of the adjustment @item page-increment The page increment of the adjustment @item page-size The page size of the adjustment @end table @end deftp @defop Signal changed Emitted when one or more of the @code{} fields have been changed, other than the value field. @end defop @defop Signal value-changed Emitted when the @code{} value field has been changed. @end defop @deffn Function gtk-adjustment-new (value@tie{}@code{double}) (lower@tie{}@code{double}) (upper@tie{}@code{double}) (step_increment@tie{}@code{double}) (page_increment@tie{}@code{double}) (page_size@tie{}@code{double}) @result{}@tie{} (ret@tie{}@code{}) Creates a new @code{}. @table @var @item value the initial value. @item lower the minimum value. @item upper the maximum value. @item step-increment the step increment. @item page-increment the page increment. @item page-size the page size. @item ret a new @code{}. @end table @end deffn @deffn Function gtk-adjustment-get-value (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{double}) @deffnx Method get-value Gets the current value of the adjustment. See @code{gtk-adjustment-set-value}. @table @var @item adjustment a @code{} @item ret The current value of the adjustment. @end table @end deffn @deffn Function gtk-adjustment-set-value (self@tie{}@code{}) (value@tie{}@code{double}) @deffnx Method set-value Sets the @code{} value. The value is clamped to lie between @samp{adjustment->lower} and @samp{adjustment->upper}. Note that for adjustments which are used in a @code{}, the effective range of allowed values goes from @samp{adjustment->lower} to @samp{adjustment->upper - adjustment->page_size}. @table @var @item adjustment a @code{}. @item value the new value. @end table @end deffn @deffn Function gtk-adjustment-clamp-page (self@tie{}@code{}) (lower@tie{}@code{double}) (upper@tie{}@code{double}) @deffnx Method clamp-page Updates the @code{}@var{value} to ensure that the range between @var{lower} and @var{upper} is in the current page (i.e. between @var{value} and @var{value} + @var{page-size}). If the range is larger than the page size, then only the start of it will be in the current page. A "changed" signal will be emitted if the value is changed. @table @var @item adjustment a @code{}. @item lower the lower value. @item upper the upper value. @end table @end deffn @deffn Function gtk-adjustment-changed (self@tie{}@code{}) @deffnx Method changed Emits a "changed" signal from the @code{}. This is typically called by the owner of the @code{} after it has changed any of the @code{} fields other than the value. @table @var @item adjustment a @code{} @end table @end deffn @deffn Function gtk-adjustment-value-changed (self@tie{}@code{}) @deffnx Method value-changed Emits a "value_changed" signal from the @code{}. This is typically called by the owner of the @code{} after it has changed the @code{} value field. @table @var @item adjustment a @code{} @end table @end deffn @c %end of fragment guile-gnome-platform-2.16.2/gtk/doc/gtk/defuns-gtkimcontext.xml.texi0000644000175000017500000001621311670374302026005 0ustar00wingowingo00000000000000 @c %start of fragment @deftp Class Derives from @code{}. This class defines no direct slots. @end deftp @defop Signal preedit-start @end defop @defop Signal preedit-end @end defop @defop Signal preedit-changed @end defop @defop Signal commit (arg0@tie{}@code{}) @end defop @defop Signal retrieve-surrounding @result{}@tie{}@code{} @end defop @defop Signal delete-surrounding (arg0@tie{}@code{}) (arg1@tie{}@code{}) @result{}@tie{}@code{} @end defop @deffn Function gtk-im-context-set-client-window (self@tie{}@code{}) (window@tie{}@code{}) @deffnx Method set-client-window Set the client window for the input context; this is the @code{} in which the input appears. This window is used in order to correctly position status windows, and may also be used for purposes internal to the input method. @table @var @item context a @code{} @item window the client window. This may be @samp{@code{#f}} to indicate that the previous client window no longer exists. @end table @end deffn @deffn Function gtk-im-context-filter-keypress (self@tie{}@code{}) (event@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{bool}) @deffnx Method filter-keypress Allow an input method to internally handle key press and release events. If this function returns @samp{@code{#t}}, then no further processing should be done for this key event. @table @var @item context a @code{} @item event the key event @item ret @samp{@code{#t}} if the input method handled the key event. @end table @end deffn @deffn Function gtk-im-context-focus-in (self@tie{}@code{}) @deffnx Method focus-in Notify the input method that the widget to which this input context corresponds has gained focus. The input method may, for example, change the displayed feedback to reflect this change. @table @var @item context a @code{} @end table @end deffn @deffn Function gtk-im-context-focus-out (self@tie{}@code{}) @deffnx Method focus-out Notify the input method that the widget to which this input context corresponds has lost focus. The input method may, for example, change the displayed feedback or reset the contexts state to reflect this change. @table @var @item context a @code{} @end table @end deffn @deffn Function gtk-im-context-reset (self@tie{}@code{}) @deffnx Method reset Notify the input method that a change such as a change in cursor position has been made. This will typically cause the input method to clear the preedit state. @table @var @item context a @code{} @end table @end deffn @deffn Function gtk-im-context-set-cursor-location (self@tie{}@code{}) (area@tie{}@code{}) @deffnx Method set-cursor-location Notify the input method that a change in cursor position has been made. The location is relative to the client window. @table @var @item context a @code{} @item area new location @end table @end deffn @deffn Function gtk-im-context-set-use-preedit (self@tie{}@code{}) (use_preedit@tie{}@code{bool}) @deffnx Method set-use-preedit Sets whether the IM context should use the preedit string to display feedback. If @var{use-preedit} is FALSE (default is TRUE), then the IM context may use some other method to display feedback, such as displaying it in a child of the root window. @table @var @item context a @code{} @item use-preedit whether the IM context should use the preedit string. @end table @end deffn @deffn Function gtk-im-context-set-surrounding (self@tie{}@code{}) (text@tie{}@code{mchars}) (len@tie{}@code{int}) (cursor_index@tie{}@code{int}) @deffnx Method set-surrounding Sets surrounding context around the insertion point and preedit string. This function is expected to be called in response to the GtkIMContext::retrieve_surrounding signal, and will likely have no effect if called at other times. @table @var @item context a @code{} @item text text surrounding the insertion point, as UTF-8. the preedit string should not be included within @var{text}. @item len the length of @var{text}, or -1 if @var{text} is nul-terminated @item cursor-index the byte index of the insertion cursor within @var{text}. @end table @end deffn @deffn Function gtk-im-context-get-surrounding (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{bool}) (text@tie{}@code{mchars}) (cursor_index@tie{}@code{int}) @deffnx Method get-surrounding Retrieves context around the insertion point. Input methods typically want context in order to constrain input text based on existing text; this is important for languages such as Thai where only some sequences of characters are allowed. This function is implemented by emitting the GtkIMContext::retrieve_surrounding signal on the input method; in response to this signal, a widget should provide as much context as is available, up to an entire paragraph, by calling @code{gtk-im-context-set-surrounding}. Note that there is no obligation for a widget to respond to the ::retrieve_surrounding signal, so input methods must be prepared to function without context. @table @var @item context a @code{} @item text location to store a UTF-8 encoded string of text holding context around the insertion point. If the function returns @samp{@code{#t}}, then you must free the result stored in this location with @code{g-free}. @item cursor-index location to store byte index of the insertion cursor within @var{text}. @item ret @samp{@code{#t}} if surrounding text was provided; in this case you must free the result stored in *text. @end table @end deffn @deffn Function gtk-im-context-delete-surrounding (self@tie{}@code{}) (offset@tie{}@code{int}) (n_chars@tie{}@code{int}) @result{}@tie{} (ret@tie{}@code{bool}) @deffnx Method delete-surrounding Asks the widget that the input context is attached to to delete characters around the cursor position by emitting the GtkIMContext::delete_surrounding signal. Note that @var{offset} and @var{n-chars} are in characters not in bytes which differs from the usage other places in @code{}. In order to use this function, you should first call @code{gtk-im-context-get-surrounding} to get the current context, and call this function immediately afterwards to make sure that you know what you are deleting. You should also account for the fact that even if the signal was handled, the input context might not have deleted all the characters that were requested to be deleted. This function is used by an input method that wants to make subsitutions in the existing text in response to new input. It is not useful for applications. @table @var @item context a @code{} @item offset offset from cursor position in chars; a negative value means start before the cursor. @item n-chars number of characters to delete. @item ret @samp{@code{#t}} if the signal was handled. @end table @end deffn @c %end of fragment guile-gnome-platform-2.16.2/gtk/doc/gtk/defuns-gtkvscrollbar.xml.texi0000644000175000017500000000076711670374302026153 0ustar00wingowingo00000000000000 @c %start of fragment @deftp Class Derives from @code{}. This class defines no direct slots. @end deftp @deffn Function gtk-vscrollbar-new (adjustment@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{}) Creates a new vertical scrollbar. @table @var @item adjustment the @code{} to use, or @samp{@code{#f}} to create a new adjustment. @item ret the new @code{} @end table @end deffn @c %end of fragment guile-gnome-platform-2.16.2/gtk/doc/gtk/section-gtkhscrollbar.xml.texi0000644000175000017500000000103111670374302026276 0ustar00wingowingo00000000000000 @c %start of fragment @node GtkHScrollbar @chapter GtkHScrollbar A horizontal scrollbar @section Overview The @code{} widget is a widget arranged horizontally creating a scrollbar. See @code{} for details on scrollbars. @code{} pointers may be added to handle the adjustment of the scrollbar or it may be left @samp{@code{#f}} in which case one will be created for you. See @code{} for details. @section Usage @include defuns-gtkhscrollbar.xml.texi @c %end of fragment guile-gnome-platform-2.16.2/gtk/doc/gtk/defuns-gtkaction.xml.texi0000644000175000017500000002622311670374302025252 0ustar00wingowingo00000000000000 @c %start of fragment @deftp Class Derives from @code{}, @code{}. This class defines the following slots: @table @code @item name A unique name for the action. @item label The label used for menu items and buttons that activate this action. @item short-label A shorter label that may be used on toolbar buttons. @item tooltip A tooltip for this action. @item stock-id The stock icon displayed in widgets representing this action. @item icon-name The name of the icon from the icon theme @item visible-horizontal Whether the toolbar item is visible when the toolbar is in a horizontal orientation. @item visible-vertical Whether the toolbar item is visible when the toolbar is in a vertical orientation. @item visible-overflown When TRUE, toolitem proxies for this action are represented in the toolbar overflow menu. @item is-important Whether the action is considered important. When TRUE, toolitem proxies for this action show text in GTK_TOOLBAR_BOTH_HORIZ mode. @item hide-if-empty When TRUE, empty menu proxies for this action are hidden. @item sensitive Whether the action is enabled. @item visible Whether the action is visible. @item action-group The GtkActionGroup this GtkAction is associated with, or NULL (for internal use). @end table @end deftp @defop Signal activate The "activate" signal is emitted when the action is activated. Since 2.4 @end defop @deffn Function gtk-action-new (name@tie{}@code{mchars}) (label@tie{}@code{mchars}) (tooltip@tie{}@code{mchars}) (stock_id@tie{}@code{mchars}) @result{}@tie{} (ret@tie{}@code{}) Creates a new @code{} object. To add the action to a @code{} and set the accelerator for the action, call @code{gtk-action-group-add-action-with-accel}. See @emph{(the missing figure, XML-UI} for information on allowed action names. @table @var @item name A unique name for the action @item label the label displayed in menu items and on buttons @item tooltip a tooltip for the action @item stock-id the stock icon to display in widgets representing the action @item ret a new @code{} @end table Since 2.4 @end deffn @deffn Function gtk-action-get-name (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{mchars}) @deffnx Method get-name Returns the name of the action. @table @var @item action the action object @item ret the name of the action. The string belongs to GTK+ and should not be freed. @end table Since 2.4 @end deffn @deffn Function gtk-action-is-sensitive (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{bool}) @deffnx Method is-sensitive Returns whether the action is effectively sensitive. @table @var @item action the action object @item ret @samp{@code{#t}} if the action and its associated action group are both sensitive. @end table Since 2.4 @end deffn @deffn Function gtk-action-get-sensitive (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{bool}) @deffnx Method get-sensitive Returns whether the action itself is sensitive. Note that this doesn't necessarily mean effective sensitivity. See @code{gtk-action-is-sensitive} for that. @table @var @item action the action object @item ret @samp{@code{#t}} if the action itself is sensitive. @end table Since 2.4 @end deffn @deffn Function gtk-action-set-sensitive (self@tie{}@code{}) (sensitive@tie{}@code{bool}) @deffnx Method set-sensitive Sets the ::sensitive property of the action to @var{sensitive}. Note that this doesn't necessarily mean effective sensitivity. See @code{gtk-action-is-sensitive} for that. @table @var @item action the action object @item sensitive @samp{@code{#t}} to make the action sensitive @end table Since 2.6 @end deffn @deffn Function gtk-action-is-visible (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{bool}) @deffnx Method is-visible Returns whether the action is effectively visible. @table @var @item action the action object @item ret @samp{@code{#t}} if the action and its associated action group are both visible. @end table Since 2.4 @end deffn @deffn Function gtk-action-get-visible (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{bool}) @deffnx Method get-visible Returns whether the action itself is visible. Note that this doesn't necessarily mean effective visibility. See @code{gtk-action-is-sensitive} for that. @table @var @item action the action object @item ret @samp{@code{#t}} if the action itself is visible. @end table Since 2.4 @end deffn @deffn Function gtk-action-set-visible (self@tie{}@code{}) (visible@tie{}@code{bool}) @deffnx Method set-visible Sets the ::visible property of the action to @var{visible}. Note that this doesn't necessarily mean effective visibility. See @code{gtk-action-is-visible} for that. @table @var @item action the action object @item visible @samp{@code{#t}} to make the action visible @end table Since 2.6 @end deffn @deffn Function gtk-action-activate (self@tie{}@code{}) @deffnx Method activate Emits the "activate" signal on the specified action, if it isn't insensitive. This gets called by the proxy widgets when they get activated. It can also be used to manually activate an action. @table @var @item action the action object @end table Since 2.4 @end deffn @deffn Function gtk-action-create-icon (self@tie{}@code{}) (icon_size@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{}) @deffnx Method create-icon This function is intended for use by action implementations to create icons displayed in the proxy widgets. @table @var @item action the action object @item icon-size the size of the icon that should be created. @item ret a widget that displays the icon for this action. @end table Since 2.4 @end deffn @deffn Function gtk-action-create-menu-item (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{}) @deffnx Method create-menu-item Creates a menu item widget that proxies for the given action. @table @var @item action the action object @item ret a menu item connected to the action. @end table Since 2.4 @end deffn @deffn Function gtk-action-create-tool-item (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{}) @deffnx Method create-tool-item Creates a toolbar item widget that proxies for the given action. @table @var @item action the action object @item ret a toolbar item connected to the action. @end table Since 2.4 @end deffn @deffn Function gtk-action-connect-proxy (self@tie{}@code{}) (proxy@tie{}@code{}) @deffnx Method connect-proxy Connects a widget to an action object as a proxy. Synchronises various properties of the action with the widget (such as label text, icon, tooltip, etc), and attaches a callback so that the action gets activated when the proxy widget does. If the widget is already connected to an action, it is disconnected first. @table @var @item action the action object @item proxy the proxy widget @end table Since 2.4 @end deffn @deffn Function gtk-action-disconnect-proxy (self@tie{}@code{}) (proxy@tie{}@code{}) @deffnx Method disconnect-proxy Disconnects a proxy widget from an action. Does @emph{not} destroy the widget, however. @table @var @item action the action object @item proxy the proxy widget @end table Since 2.4 @end deffn @deffn Function gtk-action-get-proxies (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{gslist-of}) @deffnx Method get-proxies Returns the proxy widgets for an action. See also @code{gtk-widget-get-action}. @table @var @item action the action object @item ret a @code{} of proxy widgets. The list is owned by GTK+ and must not be modified. @end table Since 2.4 @end deffn @deffn Function gtk-action-connect-accelerator (self@tie{}@code{}) @deffnx Method connect-accelerator Installs the accelerator for @var{action} if @var{action} has an accel path and group. See @code{gtk-action-set-accel-path} and @code{gtk-action-set-accel-group} Since multiple proxies may independently trigger the installation of the accelerator, the @var{action} counts the number of times this function has been called and doesn't remove the accelerator until @code{gtk-action-disconnect-accelerator} has been called as many times. @table @var @item action a @code{} @end table Since 2.4 @end deffn @deffn Function gtk-action-disconnect-accelerator (self@tie{}@code{}) @deffnx Method disconnect-accelerator Undoes the effect of one call to @code{gtk-action-connect-accelerator}. @table @var @item action a @code{} @end table Since 2.4 @end deffn @deffn Function gtk-action-block-activate-from (self@tie{}@code{}) (proxy@tie{}@code{}) @deffnx Method block-activate-from Disables calls to the @code{gtk-action-activate} function by signals on the given proxy widget. This is used to break notification loops for things like check or radio actions. This function is intended for use by action implementations. @table @var @item action the action object @item proxy a proxy widget @end table Since 2.4 @end deffn @deffn Function gtk-action-unblock-activate-from (self@tie{}@code{}) (proxy@tie{}@code{}) @deffnx Method unblock-activate-from Re-enables calls to the @code{gtk-action-activate} function by signals on the given proxy widget. This undoes the blocking done by @code{gtk-action-block-activate-from}. This function is intended for use by action implementations. @table @var @item action the action object @item proxy a proxy widget @end table Since 2.4 @end deffn @deffn Function gtk-action-get-accel-path (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{mchars}) @deffnx Method get-accel-path Returns the accel path for this action. @table @var @item action the action object @item ret the accel path for this action, or @samp{@code{#f}} if none is set. The returned string is owned by GTK+ and must not be freed or modified. @end table Since 2.6 @end deffn @deffn Function gtk-action-set-accel-path (self@tie{}@code{}) (accel_path@tie{}@code{mchars}) @deffnx Method set-accel-path Sets the accel path for this action. All proxy widgets associated with the action will have this accel path, so that their accelerators are consistent. @table @var @item action the action object @item accel-path the accelerator path @end table Since 2.4 @end deffn @deffn Function gtk-action-get-accel-closure (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{}) @deffnx Method get-accel-closure Returns the accel closure for this action. @table @var @item action the action object @item ret the accel closure for this action. The returned closure is owned by GTK+ and must not be unreffed or modified. @end table Since 2.8 @end deffn @deffn Function gtk-action-set-accel-group (self@tie{}@code{}) (accel_group@tie{}@code{}) @deffnx Method set-accel-group Sets the @code{} in which the accelerator for this action will be installed. @table @var @item action the action object @item accel-group a @code{} or @samp{@code{#f}} @end table Since 2.4 @end deffn @c %end of fragment guile-gnome-platform-2.16.2/gtk/doc/gtk/section-gtkradioaction.xml.texi0000644000175000017500000000060311670374302026443 0ustar00wingowingo00000000000000 @c %start of fragment @node GtkRadioAction @chapter GtkRadioAction An action of which only one in a group can be active @section Overview A @code{} is similar to @code{}. A number of radio actions can be linked together so that only one may be active at any one time. @section Usage @include defuns-gtkradioaction.xml.texi @c %end of fragment guile-gnome-platform-2.16.2/gtk/doc/gtk/defuns-gtkmenutoolbutton.xml.texi0000644000175000017500000000406311670374302027071 0ustar00wingowingo00000000000000 @c %start of fragment @deftp Class Derives from @code{}. This class defines the following slots: @table @code @item menu The dropdown menu @end table @end deftp @defop Signal show-menu @end defop @deffn Function gtk-menu-tool-button-new (icon_widget@tie{}@code{}) (label@tie{}@code{mchars}) @result{}@tie{} (ret@tie{}@code{}) Creates a new @code{} using @var{icon-widget} as icon and @var{label} as label. @table @var @item icon-widget a widget that will be used as icon widget, or @samp{@code{#f}} @item label a string that will be used as label, or @samp{@code{#f}} @item ret the new @code{} @end table Since 2.6 @end deffn @deffn Function gtk-menu-tool-button-new-from-stock (stock_id@tie{}@code{mchars}) @result{}@tie{} (ret@tie{}@code{}) Creates a new @code{}. The new @code{} will contain an icon and label from the stock item indicated by @var{stock-id}. @table @var @item stock-id the name of a stock item @item ret the new @code{} @end table Since 2.6 @end deffn @deffn Function gtk-menu-tool-button-set-menu (self@tie{}@code{}) (menu@tie{}@code{}) @deffnx Method set-menu Sets the @code{} that is popped up when the user clicks on the arrow. If @var{menu} is NULL, the arrow button becomes insensitive. @table @var @item button a @code{} @item menu the @code{} associated with @code{} @end table Since 2.6 @end deffn @deffn Function gtk-menu-tool-button-get-menu (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{}) @deffnx Method get-menu Gets the @code{} associated with @code{}. @table @var @item button a @code{} @item ret the @code{} associated with @code{} @end table Since 2.6 @end deffn @c %end of fragment guile-gnome-platform-2.16.2/gtk/doc/gtk/defuns-gtkrange.xml.texi0000644000175000017500000001533611670374302025074 0ustar00wingowingo00000000000000 @c %start of fragment @deftp Class Derives from @code{}. This class defines the following slots: @table @code @item update-policy How the range should be updated on the screen @item adjustment The GtkAdjustment that contains the current value of this range object @item inverted Invert direction slider moves to increase range value @item lower-stepper-sensitivity The sensitivity policy for the stepper that points to the adjustment's lower side @item upper-stepper-sensitivity The sensitivity policy for the stepper that points to the adjustment's upper side @item show-fill-level Whether to display a fill level indicator graphics on trough. @item restrict-to-fill-level Whether to restrict the upper boundary to the fill level. @item fill-level The fill level. @end table @end deftp @defop Signal value-changed Emitted when the range value changes. @end defop @defop Signal adjust-bounds (arg0@tie{}@code{}) @end defop @defop Signal move-slider (arg0@tie{}@code{}) Virtual function that moves the slider. Used for keybindings. @end defop @defop Signal change-value (arg0@tie{}@code{}) (arg1@tie{}@code{}) @result{}@tie{}@code{} The ::change-value signal is emitted when a scroll action is performed on a range. It allows an application to determine the type of scroll event that occurred and the resultant new value. The application can handle the event itself and return @samp{@code{#t}} to prevent further processing. Or, by returning @samp{@code{#f}}, it can pass the event to other handlers until the default GTK+ handler is reached. The value parameter is unrounded. An application that overrides the ::change-value signal is responsible for clamping the value to the desired number of decimal digits; the default GTK+ handler clamps the value based on @var{range->round-digits}. It is not possible to use delayed update policies in an overridden ::change-value handler. Since 2.6 @end defop @deffn Function gtk-range-get-adjustment (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{}) @deffnx Method get-adjustment Get the @code{} which is the "model" object for @code{}. See @code{gtk-range-set-adjustment} for details. The return value does not have a reference added, so should not be unreferenced. @table @var @item range a @code{} @item ret a @code{} @end table @end deffn @deffn Function gtk-range-set-update-policy (self@tie{}@code{}) (policy@tie{}@code{}) @deffnx Method set-update-policy Sets the update policy for the range. @code{} means that anytime the range slider is moved, the range value will change and the value_changed signal will be emitted. @code{} means that the value will be updated after a brief timeout where no slider motion occurs, so updates are spaced by a short time rather than continuous. @code{} means that the value will only be updated when the user releases the button and ends the slider drag operation. @table @var @item range a @code{} @item policy update policy @end table @end deffn @deffn Function gtk-range-set-adjustment (self@tie{}@code{}) (adjustment@tie{}@code{}) @deffnx Method set-adjustment Sets the adjustment to be used as the "model" object for this range widget. The adjustment indicates the current range value, the minimum and maximum range values, the step/page increments used for keybindings and scrolling, and the page size. The page size is normally 0 for @code{} and nonzero for @code{}, and indicates the size of the visible area of the widget being scrolled. The page size affects the size of the scrollbar slider. @table @var @item range a @code{} @item adjustment a @code{} @end table @end deffn @deffn Function gtk-range-get-inverted (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{bool}) @deffnx Method get-inverted Gets the value set by @code{gtk-range-set-inverted}. @table @var @item range a @code{} @item ret @samp{@code{#t}} if the range is inverted @end table @end deffn @deffn Function gtk-range-set-inverted (self@tie{}@code{}) (setting@tie{}@code{bool}) @deffnx Method set-inverted Ranges normally move from lower to higher values as the slider moves from top to bottom or left to right. Inverted ranges have higher values at the top or on the right rather than on the bottom or left. @table @var @item range a @code{} @item setting @samp{@code{#t}} to invert the range @end table @end deffn @deffn Function gtk-range-get-update-policy (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{}) @deffnx Method get-update-policy Gets the update policy of @var{range}. See @code{gtk-range-set-update-policy}. @table @var @item range a @code{} @item ret the current update policy @end table @end deffn @deffn Function gtk-range-get-value (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{double}) @deffnx Method get-value Gets the current value of the range. @table @var @item range a @code{} @item ret current value of the range. @end table @end deffn @deffn Function gtk-range-set-increments (self@tie{}@code{}) (step@tie{}@code{double}) (page@tie{}@code{double}) @deffnx Method set-increments Sets the step and page sizes for the range. The step size is used when the user clicks the @code{} arrows or moves @code{} via arrow keys. The page size is used for example when moving via Page Up or Page Down keys. @table @var @item range a @code{} @item step step size @item page page size @end table @end deffn @deffn Function gtk-range-set-range (self@tie{}@code{}) (min@tie{}@code{double}) (max@tie{}@code{double}) @deffnx Method set-range Sets the allowable values in the @code{}, and clamps the range value to be between @var{min} and @var{max}. (If the range has a non-zero page size, it is clamped between @var{min} and @var{max} - page-size.) @table @var @item range a @code{} @item min minimum range value @item max maximum range value @end table @end deffn @deffn Function gtk-range-set-value (self@tie{}@code{}) (value@tie{}@code{double}) @deffnx Method set-value Sets the current value of the range; if the value is outside the minimum or maximum range values, it will be clamped to fit inside them. The range emits the "value_changed" signal if the value changes. @table @var @item range a @code{} @item value new value of the range @end table @end deffn @c %end of fragment guile-gnome-platform-2.16.2/gtk/doc/gtk/section-gtkimagemenuitem.xml.texi0000644000175000017500000000056511670374302027004 0ustar00wingowingo00000000000000 @c %start of fragment @node GtkImageMenuItem @chapter GtkImageMenuItem A menu item with an icon @section Overview A GtkImageMenuItem is a menu item which has an icon next to the text label. Note that the user can disable display of menu icons, so make sure to still fill in the text label. @section Usage @include defuns-gtkimagemenuitem.xml.texi @c %end of fragment guile-gnome-platform-2.16.2/gtk/doc/gtk/defuns-gtkcheckmenuitem.xml.texi0000644000175000017500000000417011670374302026613 0ustar00wingowingo00000000000000 @c %start of fragment @deftp Class Derives from @code{}. This class defines the following slots: @table @code @item active Whether the menu item is checked @item inconsistent Whether to display an "inconsistent" state @item draw-as-radio Whether the menu item looks like a radio menu item @end table @end deftp @defop Signal toggled This signal is emitted when the state of the check box is changed. A signal handler can examine the @c (structfield "active") field of the @code{} struct to discover the new state. @end defop @deffn Function gtk-check-menu-item-new @result{}@tie{} (ret@tie{}@code{}) Creates a new @code{}. @table @var @item ret a new @code{}. @end table @end deffn @deffn Function gtk-check-menu-item-new-with-label (label@tie{}@code{mchars}) @result{}@tie{} (ret@tie{}@code{}) Creates a new @code{} with a label. @table @var @item label the string to use for the label. @item ret a new @code{}. @end table @end deffn @deffn Function gtk-check-menu-item-get-active (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{bool}) @deffnx Method get-active Returns whether the check menu item is active. See @code{gtk-check-menu-item-set-active}. @table @var @item check-menu-item a @code{} @item ret @samp{@code{#t}} if the menu item is checked. @end table @end deffn @deffn Function gtk-check-menu-item-set-active (self@tie{}@code{}) (is_active@tie{}@code{bool}) @deffnx Method set-active Sets the active state of the menu item's check box. @table @var @item check-menu-item a @code{}. @item is-active boolean value indicating whether the check box is active. @end table @end deffn @deffn Function gtk-check-menu-item-toggled (self@tie{}@code{}) @deffnx Method toggled Emits the GtkCheckMenuItem::toggled signal. @table @var @item check-menu-item a @code{}. @end table @end deffn @c %end of fragment guile-gnome-platform-2.16.2/gtk/doc/gtk/section-gtktreeselection.xml.texi0000644000175000017500000000311611670374303027017 0ustar00wingowingo00000000000000 @c %start of fragment @node GtkTreeSelection @chapter GtkTreeSelection The selection object for @section Overview The @code{} object is a helper object to manage the selection for a @code{} widget. The @code{} object is automatically created when a new @code{} widget is created, and cannot exist independentally of this widget. The primary reason the @code{} objects exists is for cleanliness of code and API. That is, there is no conceptual reason all these functions could not be methods on the @code{} widget instead of a separate function. The @code{} object is gotten from a @code{} by calling @code{gtk-tree-view-get-selection}. It can be manipulated to check the selection status of the tree, as well as select and deselect individual rows. Selection is done completely view side. As a result, multiple views of the same model can have completely different selections. Additionally, you cannot change the selection of a row on the model that is not currently displayed by the view without expanding its parents first. One of the important things to remember when monitoring the selection of a view is that the "changed" signal is mostly a hint. That is, it may only emit one signal when a range of rows is selected. Additionally, it may on occasion emit a "changed" signal when nothing has happened (mostly as a result of programmers calling select_row on an already selected row). @section Usage @include defuns-gtktreeselection.xml.texi @c %end of fragment guile-gnome-platform-2.16.2/gtk/doc/gtk/section-gtkscale.xml.texi0000644000175000017500000000145711670374303025247 0ustar00wingowingo00000000000000 @c %start of fragment @node GtkScale @chapter GtkScale Base class for GtkHScale and GtkVScale @section Overview A @code{} is a slider control used to select a numeric value. To use it, you'll probably want to investigate the methods on its base class, @code{}, in addition to the methods for @code{} itself. To set the value of a scale, you would normally use @code{gtk-range-set-value}. To detect changes to the value, you would normally use the "value_changed" signal. The @code{} widget is an abstract class, used only for deriving the subclasses @code{} and @code{}. To create a scale widget, call @code{gtk-hscale-new-with-range} or @code{gtk-vscale-new-with-range}. @section Usage @include defuns-gtkscale.xml.texi @c %end of fragment guile-gnome-platform-2.16.2/gtk/doc/gtk/defuns-gtkbox.xml.texi0000644000175000017500000001735711670374302024575 0ustar00wingowingo00000000000000 @c %start of fragment @deftp Class Derives from @code{}. This class defines the following slots: @table @code @item spacing The amount of space between children @item homogeneous Whether the children should all be the same size @end table @end deftp @deffn Function gtk-box-pack-start (self@tie{}@code{}) (child@tie{}@code{}) (expand@tie{}@code{bool}) (fill@tie{}@code{bool}) (padding@tie{}@code{unsigned-int}) @deffnx Method pack-start Adds @var{child} to @var{box}, packed with reference to the start of @var{box}. The @var{child} is packed after any other child packed with reference to the start of @var{box}. @table @var @item box a @code{}. @item child the @code{} to be added to @var{box}. @item expand @samp{@code{#t}} if the new child is to be given extra space allocated to @var{box}. The extra space will be divided evenly between all children of @var{box} that use this option. @item fill @samp{@code{#t}} if space given to @var{child} by the @var{expand} option is actually allocated to @var{child}, rather than just padding it. This parameter has no effect if @var{expand} is set to @samp{@code{#f}}. A child is always allocated the full height of a @code{} and the full width of a @code{}. This option affects the other dimension. @item padding extra space in pixels to put between this child and its neighbors, over and above the global amount specified by @c (structfield "spacing") in @code{}. If @var{child} is a widget at one of the reference ends of @var{box}, then @var{padding} pixels are also put between @var{child} and the reference edge of @var{box}. @end table @end deffn @deffn Function gtk-box-pack-end (self@tie{}@code{}) (child@tie{}@code{}) (expand@tie{}@code{bool}) (fill@tie{}@code{bool}) (padding@tie{}@code{unsigned-int}) @deffnx Method pack-end Adds @var{child} to @var{box}, packed with reference to the end of @var{box}. The @var{child} is packed after (away from end of) any other child packed with reference to the end of @var{box}. @table @var @item box a @code{}. @item child the @code{} to be added to @var{box}. @item expand @samp{@code{#t}} if the new child is to be given extra space allocated to @var{box}. The extra space will be divided evenly between all children of @var{box} that use this option. @item fill @samp{@code{#t}} if space given to @var{child} by the @var{expand} option is actually allocated to @var{child}, rather than just padding it. This parameter has no effect if @var{expand} is set to @samp{@code{#f}}. A child is always allocated the full height of a @code{} and the full width of a @code{}. This option affects the other dimension. @item padding extra space in pixels to put between this child and its neighbors, over and above the global amount specified by @c (structfield "spacing") in @code{}. If @var{child} is a widget at one of the reference ends of @var{box}, then @var{padding} pixels are also put between @var{child} and the reference edge of @var{box}. @end table @end deffn @deffn Function gtk-box-pack-start-defaults (self@tie{}@code{}) (widget@tie{}@code{}) @deffnx Method pack-start-defaults Adds @var{widget} to @var{box}, packed with reference to the start of @var{box}. The child is packed after any other child packed with reference to the start of @var{box}. Parameters for how to pack the child @var{widget}, @c (structfield "expand") , @c (structfield "fill") , and @c (structfield "padding") in @code{}, are given their default values, @samp{@code{#t}}, @samp{@code{#t}}, and 0, respectively. @table @var @item box a @code{}. @item widget the @code{} to be added to @var{box}. @end table @end deffn @deffn Function gtk-box-pack-end-defaults (self@tie{}@code{}) (widget@tie{}@code{}) @deffnx Method pack-end-defaults Adds @var{widget} to @var{box}, packed with reference to the end of @var{box}. The child is packed after (away from end of) any other child packed with reference to the end of @var{box}. Parameters for how to pack the child @var{widget}, @c (structfield "expand") , @c (structfield "fill") , and @c (structfield "padding") in @code{}, are given their default values, @samp{@code{#t}}, @samp{@code{#t}}, and 0, respectively. @table @var @item box a @code{}. @item widget the @code{} to be added to @var{box}. @end table @end deffn @deffn Function gtk-box-get-homogeneous (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{bool}) @deffnx Method get-homogeneous Returns whether the box is homogeneous (all children are the same size). See @code{gtk-box-set-homogeneous}. @table @var @item box a @code{} @item ret @samp{@code{#t}} if the box is homogeneous. @end table @end deffn @deffn Function gtk-box-set-homogeneous (self@tie{}@code{}) (homogeneous@tie{}@code{bool}) @deffnx Method set-homogeneous Sets the @c (structfield "homogeneous") field of @code{}, controlling whether or not all children of @var{box} are given equal space in the box. @table @var @item box a @code{}. @item homogeneous a boolean value, @samp{@code{#t}} to create equal allotments, @samp{@code{#f}} for variable allotments. @end table @end deffn @deffn Function gtk-box-get-spacing (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{int}) @deffnx Method get-spacing Gets the value set by @code{gtk-box-set-spacing}. @table @var @item box a @code{} @item ret spacing between children @end table @end deffn @deffn Function gtk-box-set-spacing (self@tie{}@code{}) (spacing@tie{}@code{int}) @deffnx Method set-spacing Sets the @c (structfield "spacing") field of @code{}, which is the number of pixels to place between children of @var{box}. @table @var @item box a @code{}. @item spacing the number of pixels to put between children. @end table @end deffn @deffn Function gtk-box-reorder-child (self@tie{}@code{}) (child@tie{}@code{}) (position@tie{}@code{int}) @deffnx Method reorder-child Moves @var{child} to a new @var{position} in the list of @var{box} children. The list is the @c (structfield "children") field of @code{}, and contains both widgets packed @code{} as well as widgets packed @code{}, in the order that these widgets were added to @var{box}. A widget's position in the @var{box} children list determines where the widget is packed into @var{box}. A child widget at some position in the list will be packed just after all other widgets of the same packing type that appear earlier in the list. @table @var @item box a @code{}. @item child the @code{} to move. @item position the new position for @var{child} in the @c (structfield "children") list of @code{}, starting from 0. If negative, indicates the end of the list. @end table @end deffn @deffn Function gtk-box-set-child-packing (self@tie{}@code{}) (child@tie{}@code{}) (expand@tie{}@code{bool}) (fill@tie{}@code{bool}) (padding@tie{}@code{unsigned-int}) (pack_type@tie{}@code{}) @deffnx Method set-child-packing Sets the way @var{child} is packed into @var{box}. @table @var @item box a @code{}. @item child the @code{} of the child to set. @item expand the new value of the @c (structfield "expand") field in @code{}. @item fill the new value of the @c (structfield "fill") field in @code{}. @item padding the new value of the @c (structfield "padding") field in @code{}. @item pack-type the new value of the @c (structfield "pack") field in @code{}. @end table @end deffn @c %end of fragment guile-gnome-platform-2.16.2/gtk/doc/gtk/section-gtkrc.xml.texi0000644000175000017500000004242411670374302024562 0ustar00wingowingo00000000000000 @c %start of fragment @node Resource Files @chapter Resource Files Routines for handling resource files @section Overview GTK+ provides resource file mechanism for configuring various aspects of the operation of a GTK+ program at runtime. @section Default files An application can cause GTK+ to parse a specific RC file by calling @code{gtk-rc-parse}. In addition to this, certain files will be read at the end of @code{gtk-init}. Unless modified, the files looked for will be @file{/gtk-2.0/gtkrc} and @file{.gtkrc-2.0} in the users home directory. (@file{} defaults to @file{/usr/local/etc}. It can be changed with the or options when configuring GTK+.) Note that although the filenames contain the version number 2.0, all 2.x versions of GTK+ look for these files. The set of these @dfn{default} files can be retrieved with @code{gtk-rc-get-default-files} and modified with @code{gtk-rc-add-default-file} and @code{gtk-rc-set-default-files}. Additionally, the @env{GTK2_RC_FILES} environment variable can be set to a @code{} list of files in order to overwrite the set of default files at runtime. For each RC file, in addition to the file itself, GTK+ will look for a locale-specific file that will be parsed after the main file. For instance, if @env{LANG} is set to @samp{ja_JP.ujis}, when loading the default file @file{~/.gtkrc} then GTK+ looks for @file{~/.gtkrc.ja_JP} and @file{~/.gtkrc.ja}, and parses the first of those that exists. @section Pathnames and patterns A resource file defines a number of styles and key bindings and attaches them to particular widgets. The attachment is done by the @samp{widget}, @samp{widget_class}, and @samp{class} declarations. As an example of such a statement: attaches the style @samp{"my-entry-class"} to all widgets whose @dfn{widget path} matches the @dfn{pattern}@samp{"mywindow.*.GtkEntry"}. That is, all @code{} widgets which are part of a @code{} named @samp{"mywindow"}. @example widget "mywindow.*.GtkEntry" style "my-entry-class" @end example The patterns here are given in the standard shell glob syntax. The @samp{"?"} wildcard matches any character, while @samp{"*"} matches zero or more of any character. The three types of matching are against the widget path, the @dfn{class path} and the class hierarchy. Both the widget path and the class path consist of a @samp{"."} separated list of all the parents of the widget and the widget itself from outermost to innermost. The difference is that in the widget path, the name assigned by @code{gtk-widget-set-name} is used if present, otherwise the class name of the widget, while for the class path, the class name is always used. Since GTK+ 2.10,@samp{widget_class} paths can also contain @samp{} substrings, which are matching the class with the given name and any derived classes. For instance, will match @code{} widgets which are contained in any kind of menu item. @example widget_class "*.GtkLabel" style "my-style" @end example So, if you have a @code{} named @samp{"myentry"}, inside of a horizontal box in a window named @samp{"mywindow"}, then the widget path is: @samp{"mywindow.GtkHBox.myentry"} while the class path is: @samp{"GtkWindow.GtkHBox.GtkEntry"}. Matching against class is a little different. The pattern match is done against all class names in the widgets class hierarchy (not the layout hierarchy) in sequence, so the pattern: will match not just @code{} widgets, but also @code{} and @code{} widgets, since those classes derive from @code{}. @example class "GtkButton" style "my-style" @end example Additionally, a priority can be specified for each pattern, and styles override other styles first by priority, then by pattern type and then by order of specification (later overrides earlier). The priorities that can be specified are (highest to lowest): @samp{rc} is the default for styles read from an RC file, @samp{theme} is the default for styles read from theme RC files, @samp{application} should be used for styles an application sets up, and @samp{gtk} is used for styles that GTK+ creates internally. @section Optimizing RC Style Matches Everytime a widget is created and added to the layout hierarchy of a @code{} ("anchored" to be exact), a list of matching RC styles out of all RC styles read in so far is composed. For this, every RC style is matched against the widgets class path, the widgets name path and widgets inheritance hierarchy. As a consequence, significant slowdown can be caused by utilization of many RC styles and by using RC style patterns that are slow or complicated to match against a given widget. The following ordered list provides a number of advices (prioritized by effectiveness) to reduce the performance overhead associated with RC style matches: @enumerate @item @item @item @item @item @item @item @end enumerate Move RC styles for specific applications into RC files dedicated to those applications and parse application specific RC files only from applications that are affected by them. This reduces the overall amount of RC styles that have to be considered for a match across a group of applications. Merge multiple styles which use the same matching rule, for instance: is faster to match as: @example style "Foo" @{ foo_content @} class "X" style "Foo" style "Bar" @{ bar_content @} class "X" style "Bar" @end example @example style "FooBar" @{ foo_content bar_content @} class "X" style "FooBar" @end example Use of wildcards should be avoided, this can reduce the individual RC style match to a single integer comparison in most cases. To avoid complex recursive matching, specification of full class names (for @samp{class} matches) or full path names (for @samp{widget} and @samp{widget_class} matches) is to be preferred over shortened names containing @samp{"*"} or @samp{"?"}. If at all necessary, wildcards should only be used at the tail or head of a pattern. This reduces the match complexity to a string comparison per RC style. When using wildcards, use of @samp{"?"} should be preferred over @samp{"*"}. This can reduce the matching complexity from O(n^2) to O(n). For example @samp{"Gtk*Box"} can be turned into @samp{"Gtk?Box"} and will still match @code{} and @code{}. The use of @samp{"*"} wildcards should be restricted as much as possible, because matching @samp{"A*B*C*RestString"} can result in matching complexities of O(n^2) worst case. @section Toplevel declarations An RC file is a text file which is composed of a sequence of declarations. @samp{'#'} characters delimit comments and the portion of a line after a @samp{'#'} is ignored when parsing an RC file. The possible toplevel declarations are: @table @var @item class [ style | binding ][ : ] @c %start of fragment @c %end of fragment @item include @c %start of fragment @c %end of fragment @item module_path @c %start of fragment @c %end of fragment @item pixmap_path @c %start of fragment @c %end of fragment @item im_module_file @c %start of fragment @c %end of fragment @item style [ = ] @{ ... @} @c %start of fragment @c %end of fragment @item widget [ style | binding ][ : ] @c %start of fragment @c %end of fragment @item widget_class [ style | binding ][ : ] @c %start of fragment @c %end of fragment @item @c %start of fragment @c %end of fragment @end table Declares a binding set. Specifies a style or binding set for a particular branch of the inheritance hierarchy. Parses another file at this point. If is not an absolute filename, it is searched in the directories of the currently open RC files. GTK+ also tries to load a locale-specific variant of the included file. Sets a path (a list of directories separated by colons) that will be searched for theme engines referenced in RC files. Sets a path (a list of directories separated by colons) that will be searched for pixmaps referenced in RC files. Sets the pathname for the IM modules file. Setting this from RC files is deprecated; you should use the environment variable @env{GTK_IM_MODULE_FILE} instead. Declares a style. Specifies a style or binding set for a particular group of widgets by matching on the widget pathname. Specifies a style or binding set for a particular group of widgets by matching on the class pathname. Specifies a value for a setting. Note that settings in RC files are overwritten by system-wide settings (which are managed by an XSettings manager on X11). @section Styles A RC style is specified by a @samp{style} declaration in a RC file, and then bound to widgets with a @samp{widget}, @samp{widget_class}, or @samp{class} declaration. All styles applying to a particular widget are composited together with @samp{widget} declarations overriding @samp{widget_class} declarations which, in turn, override @samp{class} declarations. Within each type of declaration, later declarations override earlier ones. Within a @samp{style} declaration, the possible elements are: @table @var @item fg[] = @c %start of fragment @c %end of fragment @item base[] = @c %start of fragment @c %end of fragment @item text[] = @c %start of fragment @c %end of fragment @item xthickness = @c %start of fragment @c %end of fragment @item ythickness = @c %start of fragment @c %end of fragment @item bg_pixmap[] = @c %start of fragment @c %end of fragment @item font = @c %start of fragment @c %end of fragment @item fontset = @c %start of fragment @c %end of fragment @item font_name = @c %start of fragment @c %end of fragment @item stock[] = @{ @} @c %start of fragment @c %end of fragment @item color[] = @c %start of fragment @c %end of fragment @item engine @{ @} @c %start of fragment @c %end of fragment @item :: = @c %start of fragment @c %end of fragment @end table Sets the color used for the background of most widgets. Sets the color used for the foreground of most widgets. Sets the color used for the background of widgets displaying editable text. This color is used for the background of, among others, @code{}, @code{}, @code{}, and @code{}. Sets the color used for foreground of widgets using @samp{base} for the background color. Sets the xthickness, which is used for various horizontal padding values in GTK+. Sets the ythickness, which is used for various vertical padding values in GTK+. Sets a background pixmap to be used in place of the @samp{bg} color (or for @code{}, in place of the @samp{base} color. The special value @samp{""} may be used to indicate that the widget should use the same background pixmap as its parent. The special value @samp{""} may be used to indicate no background pixmap. Starting with GTK+ 2.0, the "font" and "fontset" declarations are ignored; use "font_name" declarations instead. Starting with GTK+ 2.0, the "font" and "fontset" declarations are ignored; use "font_name" declarations instead. Sets the font for a widget. must be a Pango font name, e.g. @samp{"Sans Italic 10"}. For details about Pango font names, see @code{pango-font-description-from-string}. Defines the icon for a stock item. Since 2.10, this element can be used to defines symbolic colors. See below for the syntax of color specifications. Defines the engine to be used when drawing with this style. Sets a style property for a widget class. The colors and background pixmaps are specified as a function of the state of the widget. The states are: @table @var @item ACTIVE @c %start of fragment @c %end of fragment @item PRELIGHT @c %start of fragment @c %end of fragment @item SELECTED @c %start of fragment @c %end of fragment @item INSENSITIVE @c %start of fragment @c %end of fragment @end table A color used for a widget in its normal state. A variant of the @samp{NORMAL} color used when the widget is in the @samp{GTK_STATE_ACTIVE} state, and also for the trough of a ScrollBar, tabs of a NoteBook other than the current tab and similar areas. Frequently, this should be a darker variant of the @samp{NORMAL} color. A color used for widgets in the @samp{GTK_STATE_PRELIGHT} state. This state is the used for Buttons and MenuItems that have the mouse cursor over them, and for their children. A color used to highlight data selected by the user. for instance, the selected items in a list widget, and the selection in an editable widget. A color used for the background of widgets that have been set insensitive with @code{gtk-widget-set-sensitive}. Colors can be specified as a string containing a color name (GTK+ knows all names from the X color database @file{/usr/lib/X11/rgb.txt}), in one of the hexadecimal forms @samp{#rrrrggggbbbb}, @samp{#rrrgggbbb}, @samp{#rrggbb}, or @samp{#rgb}, where @samp{r}, @samp{g} and @samp{b} are hex digits, or they can be specified as a triplet @samp{@{ , , @}}, where @samp{r}, @samp{g} and @samp{b} are either integers in the range 0-65535 or floats in the range 0.0-1.0. Since 2.10, colors can also be specified by refering to a symbolic color, as follows: @samp{@@color-name}, or by using expressions to combine colors. The following expressions are currently supported: @table @var @item shade ( @c %start of fragment @c %end of fragment @item lighter ( @c %start of fragment @c %end of fragment @item darker ( @c %start of fragment @c %end of fragment @end table Computes a new color by mixing and . The determines how close the new color is to . A factor of 1.0 gives pure , a factor of 0.0 gives pure . Computes a lighter or darker variant of . A of 1.0 leaves the color unchanged, smaller factors yield darker colors, larger factors yield lighter colors. This is an abbreviation for @samp{shade (1.3, )}. This is an abbreviation for @samp{shade (0.7, )}. Here are some examples of color expressions: @example mix (0.5, "red", "blue") shade (1.5, mix (0.3, "#0abbc0", @{ 0.3, 0.5, 0.9 @})) lighter (@@foreground) @end example In a @samp{stock} definition, icon sources are specified as a 4-tuple of image filename or icon name, text direction, widget state, and size, in that order. Each icon source specifies an image filename or icon name to use with a given direction, state, and size. Filenames are specified as a string such as @samp{"itemltr.png"}, while icon names (looked up in the current icon theme), are specified with a leading @samp{@@}, such as @samp{@@"item-ltr"}. The @samp{*} character can be used as a wildcard, and if direction/state/size are omitted they default to @samp{*}. So for example, the following specifies different icons to use for left-to-right and right-to-left languages: This could be abbreviated as follows: @example stock["my-stock-item"] = @{ @{ "itemltr.png", LTR, *, * @}, @{ "itemrtl.png", RTL, *, * @} @} @end example @example stock["my-stock-item"] = @{ @{ "itemltr.png", LTR @}, @{ "itemrtl.png", RTL @} @} @end example You can specify custom icons for specific sizes, as follows: The sizes that come with GTK+ itself are @samp{"gtk-menu"}, @samp{"gtk-small-toolbar"}, @samp{"gtk-large-toolbar"}, @samp{"gtk-button"}, @samp{"gtk-dialog"}. Applications can define other sizes. @example stock["my-stock-item"] = @{ @{ "itemmenusize.png", *, *, "gtk-menu" @}, @{ "itemtoolbarsize.png", *, *, "gtk-large-toolbar" @} @{ "itemgeneric.png" @} /* implicit *, *, * as a fallback */ @} @end example It's also possible to use custom icons for a given state, for example: @example stock["my-stock-item"] = @{ @{ "itemprelight.png", *, PRELIGHT @}, @{ "iteminsensitive.png", *, INSENSITIVE @}, @{ "itemgeneric.png" @} /* implicit *, *, * as a fallback */ @} @end example When selecting an icon source to use, GTK+ will consider text direction most important, state second, and size third. It will select the best match based on those criteria. If an attribute matches exactly (e.g. you specified @samp{PRELIGHT} or specified the size), GTK+ won't modify the image; if the attribute matches with a wildcard, GTK+ will scale or modify the image to match the state and size the user requested. @section Key bindings Key bindings allow the user to specify actions to be taken on particular key presses. The form of a binding set declaration is: @example binding @{ bind @{ (, ...) ... @} ... @} @end example is a string consisting of a series of modifiers followed by the name of a key. The modifiers can be: @samp{} is an alias for @samp{}, @samp{} is an alias for @samp{}, and @samp{} is an alias for @samp{}. The action that is bound to the key is a sequence of signal names (strings) followed by parameters for each signal. The signals must be action signals. (See @code{g-signal-new}). Each parameter can be a float, integer, string, or unquoted string representing an enumeration value. The types of the parameters specified must match the types of the parameters of the signal. Binding sets are connected to widgets in the same manner as styles, with one difference: Binding sets override other binding sets first by pattern type, then by priority and then by order of specification. The priorities that can be specified and their default values are the same as for styles. @section Usage @include defuns-gtkrc.xml.texi @c %end of fragment guile-gnome-platform-2.16.2/gtk/doc/gtk/defuns-gtkruler.xml.texi0000644000175000017500000000470511670374302025127 0ustar00wingowingo00000000000000 @c %start of fragment @deftp Class Derives from @code{}. This class defines the following slots: @table @code @item lower Lower limit of ruler @item upper Upper limit of ruler @item position Position of mark on the ruler @item max-size Maximum size of the ruler @item metric The metric used for the ruler @end table @end deftp @deffn Function gtk-ruler-set-metric (self@tie{}@code{}) (metric@tie{}@code{}) @deffnx Method set-metric This calls the @code{} to set the ruler to units defined. Available units are GTK_PIXELS, GTK_INCHES, or GTK_CENTIMETERS. The default unit of measurement is GTK_PIXELS. @table @var @item ruler the gtkruler @item metric the unit of measurement @end table @end deffn @deffn Function gtk-ruler-set-range (self@tie{}@code{}) (lower@tie{}@code{double}) (upper@tie{}@code{double}) (position@tie{}@code{double}) (max_size@tie{}@code{double}) @deffnx Method set-range This sets the range of the ruler using gfloat lower, gfloat upper, gfloat position, and gfloat max_size. @table @var @item ruler the gtkruler @item lower the lower limit of the ruler @item upper the upper limit of the ruler @item position the mark on the ruler @item max-size the maximum size of the ruler @end table @end deffn @deffn Function gtk-ruler-get-metric (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{}) @deffnx Method get-metric Gets the units used for a @code{}. See @code{gtk-ruler-set-metric}. @table @var @item ruler a @code{} @item ret the units currently used for @var{ruler} @end table @end deffn @deffn Function gtk-ruler-get-range (self@tie{}@code{}) @result{}@tie{} (lower@tie{}@code{double}) (upper@tie{}@code{double}) (position@tie{}@code{double}) (max_size@tie{}@code{double}) @deffnx Method get-range Retrieves values indicating the range and current position of a @code{}. See @code{gtk-ruler-set-range}. @table @var @item ruler a @code{} @item lower location to store lower limit of the ruler, or @samp{@code{#f}} @item upper location to store upper limit of the ruler, or @samp{@code{#f}} @item position location to store the current position of the mark on the ruler, or @samp{@code{#f}} @item max-size location to store the maximum size of the ruler used when calculating the space to leave for the text, or @samp{@code{#f}}. @end table @end deffn @c %end of fragment guile-gnome-platform-2.16.2/gtk/doc/gtk/section-gtkwindowgroup.xml.texi0000644000175000017500000000027611670374303026542 0ustar00wingowingo00000000000000 @c %start of fragment @node GtkWindowGroup @chapter GtkWindowGroup Limit the effect of grabs @section Overview @section Usage @include defuns-gtkwindowgroup.xml.texi @c %end of fragment guile-gnome-platform-2.16.2/gtk/doc/gtk/section-gtkeventbox.xml.texi0000644000175000017500000000065511670374302026010 0ustar00wingowingo00000000000000 @c %start of fragment @node GtkEventBox @chapter GtkEventBox A widget used to catch events for widgets which do not have their own window @section Overview The @code{} widget is a subclass of @code{} which also has its own window. It is useful since it allows you to catch events for widgets which do not have their own window. @section Usage @include defuns-gtkeventbox.xml.texi @c %end of fragment guile-gnome-platform-2.16.2/gtk/doc/gtk/section-gtkhruler.xml.texi0000644000175000017500000000164311670374302025455 0ustar00wingowingo00000000000000 @c %start of fragment @node GtkHRuler @chapter GtkHRuler A horizontal ruler. @section Overview This widget is considered too specialized/little-used for GTK+, and will in the future be moved to some other package. If your application needs this widget, feel free to use it, as the widget does work and is useful in some applications; it's just not of general interest. However, we are not accepting new features for the widget, and it will eventually move out of the GTK+ distribution. The HRuler widget is a widget arranged horizontally creating a ruler that is utilized around other widgets such as a text widget. The ruler is used to show the location of the mouse on the window and to show the size of the window in specified units. The available units of measurement are GTK_PIXELS, GTK_INCHES and GTK_CENTIMETERS. GTK_PIXELS is the default. rulers. @section Usage @include defuns-gtkhruler.xml.texi @c %end of fragment guile-gnome-platform-2.16.2/gtk/doc/gtk/defuns-gtktreeview.xml.texi0000644000175000017500000010557111670374302025633 0ustar00wingowingo00000000000000 @c %start of fragment @deftp Class Derives from @code{}. This class defines the following slots: @table @code @item model The model for the tree view @item hadjustment Horizontal Adjustment for the widget @item vadjustment Vertical Adjustment for the widget @item headers-visible Show the column header buttons @item headers-clickable Column headers respond to click events @item expander-column Set the column for the expander column @item reorderable View is reorderable @item rules-hint Set a hint to the theme engine to draw rows in alternating colors @item enable-search View allows user to search through columns interactively @item search-column Model column to search through when searching through code @item fixed-height-mode Speeds up GtkTreeView by assuming that all rows have the same height @item hover-selection Whether the selection should follow the pointer @item hover-expand Whether rows should be expanded/collapsed when the pointer moves over them @item show-expanders View has expanders @item level-indentation Extra indentation for each level @item rubber-banding Whether to enable selection of multiple items by dragging the mouse pointer @item enable-grid-lines Whether grid lines should be drawn in the tree view @item enable-tree-lines Whether tree lines should be drawn in the tree view @item tooltip-column The column in the model containing the tooltip texts for the rows @end table @end deftp @defop Signal move-cursor (arg0@tie{}@code{}) (arg1@tie{}@code{}) @result{}@tie{}@code{} @end defop @defop Signal set-scroll-adjustments (arg0@tie{}@code{}) (arg1@tie{}@code{}) @end defop @defop Signal select-all @result{}@tie{}@code{} @end defop @defop Signal unselect-all @result{}@tie{}@code{} @end defop @defop Signal row-activated (arg0@tie{}@code{}) (arg1@tie{}@code{}) The "row-activated" signal is emitted when the method @code{gtk-tree-view-row-activated} is called or the user double clicks a treeview row. It is also emitted when a non-editable row is selected and one of the keys: Space, Shift+Space, Return or Enter is pressed. For selection handling refer to the tree widget conceptual overview as well as @code{}. @end defop @defop Signal test-expand-row (arg0@tie{}@code{}) (arg1@tie{}@code{}) @result{}@tie{}@code{} The given row is about to be expanded (show its children nodes). Use this signal if you need to control the expandability of individual rows. @end defop @defop Signal test-collapse-row (arg0@tie{}@code{}) (arg1@tie{}@code{}) @result{}@tie{}@code{} The given row is about to be collapsed (hide its children nodes). Use this signal if you need to control the collapsibility of individual rows. @end defop @defop Signal row-expanded (arg0@tie{}@code{}) (arg1@tie{}@code{}) The given row has been expanded (child nodes are shown). @end defop @defop Signal row-collapsed (arg0@tie{}@code{}) (arg1@tie{}@code{}) The given row has been collapsed (child nodes are hidden). @end defop @defop Signal columns-changed The number of columns of the treeview has changed. @end defop @defop Signal cursor-changed The position of the cursor (focused cell) has changed. @end defop @defop Signal select-cursor-row (arg0@tie{}@code{}) @result{}@tie{}@code{} @end defop @defop Signal toggle-cursor-row @result{}@tie{}@code{} @end defop @defop Signal expand-collapse-cursor-row (arg0@tie{}@code{}) (arg1@tie{}@code{}) (arg2@tie{}@code{}) @result{}@tie{}@code{} @end defop @defop Signal select-cursor-parent @result{}@tie{}@code{} @end defop @defop Signal start-interactive-search @result{}@tie{}@code{} @end defop @deffn Function gtk-tree-view-new @result{}@tie{} (ret@tie{}@code{}) Creates a new @code{} widget. @table @var @item ret A newly created @code{} widget. @end table @end deffn @deffn Function gtk-tree-view-new-with-model (model@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{}) Creates a new @code{} widget with the model initialized to @var{model}. @table @var @item model the model. @item ret A newly created @code{} widget. @end table @end deffn @deffn Function gtk-tree-view-get-model (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{}) @deffnx Method get-model Returns the model the @code{} is based on. Returns @samp{@code{#f}} if the model is unset. @table @var @item tree-view a @code{} @item ret A @code{}, or @samp{@code{#f}} if none is currently being used. @end table @end deffn @deffn Function gtk-tree-view-set-model (self@tie{}@code{}) (model@tie{}@code{}) @deffnx Method set-model Sets the model for a @code{}. If the @var{tree-view} already has a model set, it will remove it before setting the new model. If @var{model} is @samp{@code{#f}}, then it will unset the old model. @table @var @item tree-view A @code{}. @item model The model. @end table @end deffn @deffn Function gtk-tree-view-get-selection (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{}) @deffnx Method get-selection Gets the @code{} associated with @var{tree-view}. @table @var @item tree-view A @code{}. @item ret A @code{} object. @end table @end deffn @deffn Function gtk-tree-view-get-hadjustment (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{}) @deffnx Method get-hadjustment Gets the @code{} currently being used for the horizontal aspect. @table @var @item tree-view A @code{} @item ret A @code{} object, or @samp{@code{#f}} if none is currently being used. @end table @end deffn @deffn Function gtk-tree-view-set-hadjustment (self@tie{}@code{}) (adjustment@tie{}@code{}) @deffnx Method set-hadjustment Sets the @code{} for the current horizontal aspect. @table @var @item tree-view A @code{} @item adjustment The @code{} to set, or @samp{@code{#f}} @end table @end deffn @deffn Function gtk-tree-view-get-vadjustment (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{}) @deffnx Method get-vadjustment Gets the @code{} currently being used for the vertical aspect. @table @var @item tree-view A @code{} @item ret A @code{} object, or @samp{@code{#f}} if none is currently being used. @end table @end deffn @deffn Function gtk-tree-view-set-vadjustment (self@tie{}@code{}) (adjustment@tie{}@code{}) @deffnx Method set-vadjustment Sets the @code{} for the current vertical aspect. @table @var @item tree-view A @code{} @item adjustment The @code{} to set, or @samp{@code{#f}} @end table @end deffn @deffn Function gtk-tree-view-get-headers-visible (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{bool}) @deffnx Method get-headers-visible Returns @samp{@code{#t}} if the headers on the @var{tree-view} are visible. @table @var @item tree-view A @code{}. @item ret Whether the headers are visible or not. @end table @end deffn @deffn Function gtk-tree-view-set-headers-visible (self@tie{}@code{}) (headers_visible@tie{}@code{bool}) @deffnx Method set-headers-visible Sets the visibility state of the headers. @table @var @item tree-view A @code{}. @item headers-visible @samp{@code{#t}} if the headers are visible @end table @end deffn @deffn Function gtk-tree-view-columns-autosize (self@tie{}@code{}) @deffnx Method columns-autosize Resizes all columns to their optimal width. Only works after the treeview has been realized. @table @var @item tree-view A @code{}. @end table @end deffn @deffn Function gtk-tree-view-get-headers-clickable (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{bool}) @deffnx Method get-headers-clickable Returns whether all header columns are clickable. @table @var @item tree-view A @code{}. @item ret @samp{@code{#t}} if all header columns are clickable, otherwise @samp{@code{#f}} @end table Since 2.10 @end deffn @deffn Function gtk-tree-view-set-headers-clickable (self@tie{}@code{}) (setting@tie{}@code{bool}) @deffnx Method set-headers-clickable Allow the column title buttons to be clicked. @table @var @item tree-view A @code{}. @item setting @samp{@code{#t}} if the columns are clickable. @end table @end deffn @deffn Function gtk-tree-view-set-rules-hint (self@tie{}@code{}) (setting@tie{}@code{bool}) @deffnx Method set-rules-hint This function tells GTK+ that the user interface for your application requires users to read across tree rows and associate cells with one another. By default, GTK+ will then render the tree with alternating row colors. Do @emph{not} use it just because you prefer the appearance of the ruled tree; that's a question for the theme. Some themes will draw tree rows in alternating colors even when rules are turned off, and users who prefer that appearance all the time can choose those themes. You should call this function only as a @emph{semantic} hint to the theme engine that your tree makes alternating colors useful from a functional standpoint (since it has lots of columns, generally). @table @var @item tree-view a @code{} @item setting @samp{@code{#t}} if the tree requires reading across rows @end table @end deffn @deffn Function gtk-tree-view-get-rules-hint (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{bool}) @deffnx Method get-rules-hint Gets the setting set by @code{gtk-tree-view-set-rules-hint}. @table @var @item tree-view a @code{} @item ret @samp{@code{#t}} if rules are useful for the user of this tree @end table @end deffn @deffn Function gtk-tree-view-append-column (self@tie{}@code{}) (column@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{int}) @deffnx Method append-column Appends @var{column} to the list of columns. If @var{tree-view} has "fixed_height" mode enabled, then @var{column} must have its "sizing" property set to be GTK_TREE_VIEW_COLUMN_FIXED. @table @var @item tree-view A @code{}. @item column The @code{} to add. @item ret The number of columns in @var{tree-view} after appending. @end table @end deffn @deffn Function gtk-tree-view-remove-column (self@tie{}@code{}) (column@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{int}) @deffnx Method remove-column Removes @var{column} from @var{tree-view}. @table @var @item tree-view A @code{}. @item column The @code{} to remove. @item ret The number of columns in @var{tree-view} after removing. @end table @end deffn @deffn Function gtk-tree-view-insert-column (self@tie{}@code{}) (column@tie{}@code{}) (position@tie{}@code{int}) @result{}@tie{} (ret@tie{}@code{int}) @deffnx Method insert-column This inserts the @var{column} into the @var{tree-view} at @var{position}. If @var{position} is -1, then the column is inserted at the end. If @var{tree-view} has "fixed_height" mode enabled, then @var{column} must have its "sizing" property set to be GTK_TREE_VIEW_COLUMN_FIXED. @table @var @item tree-view A @code{}. @item column The @code{} to be inserted. @item position The position to insert @var{column} in. @item ret The number of columns in @var{tree-view} after insertion. @end table @end deffn @deffn Function gtk-tree-view-get-column (self@tie{}@code{}) (n@tie{}@code{int}) @result{}@tie{} (ret@tie{}@code{}) @deffnx Method get-column Gets the @code{} at the given position in the @code{}. @table @var @item tree-view A @code{}. @item n The position of the column, counting from 0. @item ret The @code{}, or @samp{@code{#f}} if the position is outside the range of columns. @end table @end deffn @deffn Function gtk-tree-view-get-columns (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{glist-of}) @deffnx Method get-columns Returns a @code{} of all the @code{} s currently in @var{tree-view}. The returned list must be freed with @code{g-list-free}. @table @var @item tree-view A @code{} @item ret A list of @code{} s @end table @end deffn @deffn Function gtk-tree-view-move-column-after (self@tie{}@code{}) (column@tie{}@code{}) (base_column@tie{}@code{}) @deffnx Method move-column-after Moves @var{column} to be after to @var{base-column}. If @var{base-column} is @samp{@code{#f}}, then @var{column} is placed in the first position. @table @var @item tree-view A @code{} @item column The @code{} to be moved. @item base-column The @code{} to be moved relative to, or @samp{@code{#f}}. @end table @end deffn @deffn Function gtk-tree-view-set-expander-column (self@tie{}@code{}) (column@tie{}@code{}) @deffnx Method set-expander-column Sets the column to draw the expander arrow at. It must be in @var{tree-view}. If @var{column} is @samp{@code{#f}}, then the expander arrow is always at the first visible column. If you do not want expander arrow to appear in your tree, set the expander column to a hidden column. @table @var @item tree-view A @code{} @item column @samp{@code{#f}}, or the column to draw the expander arrow at. @end table @end deffn @deffn Function gtk-tree-view-get-expander-column (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{}) @deffnx Method get-expander-column Returns the column that is the current expander column. This column has the expander arrow drawn next to it. @table @var @item tree-view A @code{} @item ret The expander column. @end table @end deffn @deffn Function gtk-tree-view-scroll-to-point (self@tie{}@code{}) (tree_x@tie{}@code{int}) (tree_y@tie{}@code{int}) @deffnx Method scroll-to-point Scrolls the tree view such that the top-left corner of the visible area is @var{tree-x}, @var{tree-y}, where @var{tree-x} and @var{tree-y} are specified in tree window coordinates. The @var{tree-view} must be realized before this function is called. If it isn't, you probably want to be using @code{gtk-tree-view-scroll-to-cell}. If either @var{tree-x} or @var{tree-y} are -1, then that direction isn't scrolled. @table @var @item tree-view a @code{} @item tree-x X coordinate of new top-left pixel of visible area, or -1 @item tree-y Y coordinate of new top-left pixel of visible area, or -1 @end table @end deffn @deffn Function gtk-tree-view-scroll-to-cell (self@tie{}@code{}) (path@tie{}@code{}) (column@tie{}@code{}) (use_align@tie{}@code{bool}) (row_align@tie{}@code{float}) (col_align@tie{}@code{float}) @deffnx Method scroll-to-cell Moves the alignments of @var{tree-view} to the position specified by @var{column} and @var{path}. If @var{column} is @samp{@code{#f}}, then no horizontal scrolling occurs. Likewise, if @var{path} is @samp{@code{#f}} no vertical scrolling occurs. At a minimum, one of @var{column} or @var{path} need to be non-@samp{@code{#f}}. @var{row-align} determines where the row is placed, and @var{col-align} determines where @var{column} is placed. Both are expected to be between 0.0 and 1.0. 0.0 means left/top alignment, 1.0 means right/bottom alignment, 0.5 means center. If @var{use-align} is @samp{@code{#f}}, then the alignment arguments are ignored, and the tree does the minimum amount of work to scroll the cell onto the screen. This means that the cell will be scrolled to the edge closest to its current position. If the cell is currently visible on the screen, nothing is done. This function only works if the model is set, and @var{path} is a valid row on the model. If the model changes before the @var{tree-view} is realized, the centered path will be modified to reflect this change. @table @var @item tree-view A @code{}. @item path The path of the row to move to, or @samp{@code{#f}}. @item column The @code{} to move horizontally to, or @samp{@code{#f}}. @item use-align whether to use alignment arguments, or @samp{@code{#f}}. @item row-align The vertical alignment of the row specified by @var{path}. @item col-align The horizontal alignment of the column specified by @var{column}. @end table @end deffn @deffn Function gtk-tree-view-set-cursor (self@tie{}@code{}) (path@tie{}@code{}) (focus_column@tie{}@code{}) (start_editing@tie{}@code{bool}) @deffnx Method set-cursor Sets the current keyboard focus to be at @var{path}, and selects it. This is useful when you want to focus the user's attention on a particular row. If @var{focus-column} is not @samp{@code{#f}}, then focus is given to the column specified by it. Additionally, if @var{focus-column} is specified, and @var{start-editing} is @samp{@code{#t}}, then editing should be started in the specified cell. This function is often followed by @var{gtk-widget-grab-focus} (@var{tree-view}) in order to give keyboard focus to the widget. Please note that editing can only happen when the widget is realized. @table @var @item tree-view A @code{} @item path A @code{} @item focus-column A @code{}, or @samp{@code{#f}} @item start-editing @samp{@code{#t}} if the specified cell should start being edited. @end table @end deffn @deffn Function gtk-tree-view-set-cursor-on-cell (self@tie{}@code{}) (path@tie{}@code{}) (focus_column@tie{}@code{}) (focus_cell@tie{}@code{}) (start_editing@tie{}@code{bool}) @deffnx Method set-cursor-on-cell Sets the current keyboard focus to be at @var{path}, and selects it. This is useful when you want to focus the user's attention on a particular row. If @var{focus-column} is not @samp{@code{#f}}, then focus is given to the column specified by it. If @var{focus-column} and @var{focus-cell} are not @samp{@code{#f}}, and @var{focus-column} contains 2 or more editable or activatable cells, then focus is given to the cell specified by @var{focus-cell}. Additionally, if @var{focus-column} is specified, and @var{start-editing} is @samp{@code{#t}}, then editing should be started in the specified cell. This function is often followed by @var{gtk-widget-grab-focus} (@var{tree-view}) in order to give keyboard focus to the widget. Please note that editing can only happen when the widget is realized. @table @var @item tree-view A @code{} @item path A @code{} @item focus-column A @code{}, or @samp{@code{#f}} @item focus-cell A @code{}, or @samp{@code{#f}} @item start-editing @samp{@code{#t}} if the specified cell should start being edited. @end table Since 2.2 @end deffn @deffn Function gtk-tree-view-row-activated (self@tie{}@code{}) (path@tie{}@code{}) (column@tie{}@code{}) @deffnx Method row-activated Activates the cell determined by @var{path} and @var{column}. @table @var @item tree-view A @code{} @item path The @code{} to be activated. @item column The @code{} to be activated. @end table @end deffn @deffn Function gtk-tree-view-expand-all (self@tie{}@code{}) @deffnx Method expand-all Recursively expands all nodes in the @var{tree-view}. @table @var @item tree-view A @code{}. @end table @end deffn @deffn Function gtk-tree-view-collapse-all (self@tie{}@code{}) @deffnx Method collapse-all Recursively collapses all visible, expanded nodes in @var{tree-view}. @table @var @item tree-view A @code{}. @end table @end deffn @deffn Function gtk-tree-view-expand-to-path (self@tie{}@code{}) (path@tie{}@code{}) @deffnx Method expand-to-path Expands the row at @var{path}. This will also expand all parent rows of @var{path} as necessary. @table @var @item tree-view A @code{}. @item path path to a row. @end table Since 2.2 @end deffn @deffn Function gtk-tree-view-expand-row (self@tie{}@code{}) (path@tie{}@code{}) (open_all@tie{}@code{bool}) @result{}@tie{} (ret@tie{}@code{bool}) @deffnx Method expand-row Opens the row so its children are visible. @table @var @item tree-view a @code{} @item path path to a row @item open-all whether to recursively expand, or just expand immediate children @item ret @samp{@code{#t}} if the row existed and had children @end table @end deffn @deffn Function gtk-tree-view-collapse-row (self@tie{}@code{}) (path@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{bool}) @deffnx Method collapse-row Collapses a row (hides its child rows, if they exist). @table @var @item tree-view a @code{} @item path path to a row in the @var{tree-view} @item ret @samp{@code{#t}} if the row was collapsed. @end table @end deffn @deffn Function gtk-tree-view-row-expanded (self@tie{}@code{}) (path@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{bool}) @deffnx Method row-expanded Returns @samp{@code{#t}} if the node pointed to by @var{path} is expanded in @var{tree-view}. @table @var @item tree-view A @code{}. @item path A @code{} to test expansion state. @item ret @samp{@code{#t}} if @code{} is expanded. @end table @end deffn @deffn Function gtk-tree-view-set-reorderable (self@tie{}@code{}) (reorderable@tie{}@code{bool}) @deffnx Method set-reorderable This function is a convenience function to allow you to reorder models that support the @code{} and the @code{}. Both @code{} and @code{} support these. If @var{reorderable} is @samp{@code{#t}}, then the user can reorder the model by dragging and dropping rows. The developer can listen to these changes by connecting to the model's row_inserted and row_deleted signals. This function does not give you any degree of control over the order -- any reordering is allowed. If more control is needed, you should probably handle drag and drop manually. @table @var @item tree-view A @code{}. @item reorderable @samp{@code{#t}}, if the tree can be reordered. @end table @end deffn @deffn Function gtk-tree-view-get-reorderable (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{bool}) @deffnx Method get-reorderable Retrieves whether the user can reorder the tree via drag-and-drop. See @code{gtk-tree-view-set-reorderable}. @table @var @item tree-view a @code{} @item ret @samp{@code{#t}} if the tree can be reordered. @end table @end deffn @deffn Function gtk-tree-view-get-bin-window (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{}) @deffnx Method get-bin-window Returns the window that @var{tree-view} renders to. This is used primarily to compare to @samp{event->window} to confirm that the event on @var{tree-view} is on the right window. @table @var @item tree-view A @code{} @item ret A @code{}, or @samp{@code{#f}} when @var{tree-view} hasn't been realized yet @end table @end deffn @deffn Function gtk-tree-view-widget-to-tree-coords (self@tie{}@code{}) (wx@tie{}@code{int}) (wy@tie{}@code{int}) @result{}@tie{} (tx@tie{}@code{int}) (ty@tie{}@code{int}) @deffnx Method widget-to-tree-coords Converts widget coordinates to coordinates for the tree window (the full scrollable area of the tree). @table @var @item tree-view a @code{} @item wx widget X coordinate @item wy widget Y coordinate @item tx return location for tree X coordinate @item ty return location for tree Y coordinate @end table @end deffn @deffn Function gtk-tree-view-tree-to-widget-coords (self@tie{}@code{}) (tx@tie{}@code{int}) (ty@tie{}@code{int}) @result{}@tie{} (wx@tie{}@code{int}) (wy@tie{}@code{int}) @deffnx Method tree-to-widget-coords Converts tree coordinates (coordinates in full scrollable area of the tree) to widget coordinates. @table @var @item tree-view a @code{} @item tx tree X coordinate @item ty tree Y coordinate @item wx return location for widget X coordinate @item wy return location for widget Y coordinate @end table @end deffn @deffn Function gtk-tree-view-unset-rows-drag-dest (self@tie{}@code{}) @deffnx Method unset-rows-drag-dest Undoes the effect of @code{gtk-tree-view-enable-model-drag-dest}. @table @var @item tree-view a @code{} @end table @end deffn @deffn Function gtk-tree-view-set-drag-dest-row (self@tie{}@code{}) (path@tie{}@code{}) (pos@tie{}@code{}) @deffnx Method set-drag-dest-row Sets the row that is highlighted for feedback. @table @var @item tree-view a @code{} @item path The path of the row to highlight, or @samp{@code{#f}}. @item pos Specifies whether to drop before, after or into the row @end table @end deffn @deffn Function gtk-tree-view-create-row-drag-icon (self@tie{}@code{}) (path@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{}) @deffnx Method create-row-drag-icon Creates a @code{} representation of the row at @var{path}. This image is used for a drag icon. @table @var @item tree-view a @code{} @item path a @code{} in @var{tree-view} @item ret a newly-allocated pixmap of the drag icon. @end table @end deffn @deffn Function gtk-tree-view-set-enable-search (self@tie{}@code{}) (enable_search@tie{}@code{bool}) @deffnx Method set-enable-search If @var{enable-search} is set, then the user can type in text to search through the tree interactively (this is sometimes called "typeahead find"). Note that even if this is @samp{@code{#f}}, the user can still initiate a search using the "start-interactive-search" key binding. @table @var @item tree-view A @code{} @item enable-search @samp{@code{#t}}, if the user can search interactively @end table @end deffn @deffn Function gtk-tree-view-get-enable-search (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{bool}) @deffnx Method get-enable-search Returns whether or not the tree allows to start interactive searching by typing in text. @table @var @item tree-view A @code{} @item ret whether or not to let the user search interactively @end table @end deffn @deffn Function gtk-tree-view-get-search-column (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{int}) @deffnx Method get-search-column Gets the column searched on by the interactive search code. @table @var @item tree-view A @code{} @item ret the column the interactive search code searches in. @end table @end deffn @deffn Function gtk-tree-view-set-search-column (self@tie{}@code{}) (column@tie{}@code{int}) @deffnx Method set-search-column Sets @var{column} as the column where the interactive search code should search in. If the sort column is set, users can use the "start-interactive-search" key binding to bring up search popup. The enable-search property controls whether simply typing text will also start an interactive search. Note that @var{column} refers to a column of the model. @table @var @item tree-view A @code{} @item column the column of the model to search in, or -1 to disable searching @end table @end deffn @deffn Function gtk-tree-view-get-search-entry (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{}) @deffnx Method get-search-entry Returns the GtkEntry which is currently in use as interactive search entry for @var{tree-view}. In case the built-in entry is being used, @samp{@code{#f}} will be returned. @table @var @item tree-view A @code{} @item ret the entry currently in use as search entry. @end table Since 2.10 @end deffn @deffn Function gtk-tree-view-set-search-entry (self@tie{}@code{}) (entry@tie{}@code{}) @deffnx Method set-search-entry Sets the entry which the interactive search code will use for this @var{tree-view}. This is useful when you want to provide a search entry in our interface at all time at a fixed position. Passing @samp{@code{#f}} for @var{entry} will make the interactive search code use the built-in popup entry again. @table @var @item tree-view A @code{} @item entry the entry the interactive search code of @var{tree-view} should use or @samp{@code{#f}} @end table Since 2.10 @end deffn @deffn Function gtk-tree-view-get-fixed-height-mode (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{bool}) @deffnx Method get-fixed-height-mode Returns whether fixed height mode is turned on for @var{tree-view}. @table @var @item tree-view a @code{} @item ret @samp{@code{#t}} if @var{tree-view} is in fixed height mode @end table Since 2.6 @end deffn @deffn Function gtk-tree-view-set-fixed-height-mode (self@tie{}@code{}) (enable@tie{}@code{bool}) @deffnx Method set-fixed-height-mode Enables or disables the fixed height mode of @var{tree-view}. Fixed height mode speeds up @code{} by assuming that all rows have the same height. Only enable this option if all rows are the same height and all columns are of type @samp{GTK_TREE_VIEW_COLUMN_FIXED}. @table @var @item tree-view a @code{} @item enable @samp{@code{#t}} to enable fixed height mode @end table Since 2.6 @end deffn @deffn Function gtk-tree-view-get-hover-selection (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{bool}) @deffnx Method get-hover-selection Returns whether hover selection mode is turned on for @var{tree-view}. @table @var @item tree-view a @code{} @item ret @samp{@code{#t}} if @var{tree-view} is in hover selection mode @end table Since 2.6 @end deffn @deffn Function gtk-tree-view-set-hover-selection (self@tie{}@code{}) (hover@tie{}@code{bool}) @deffnx Method set-hover-selection Enables of disables the hover selection mode of @var{tree-view}. Hover selection makes the selected row follow the pointer. Currently, this works only for the selection modes @samp{GTK_SELECTION_SINGLE} and @samp{GTK_SELECTION_BROWSE}. @table @var @item tree-view a @code{} @item hover @samp{@code{#t}} to enable hover selection mode @end table Since 2.6 @end deffn @deffn Function gtk-tree-view-get-hover-expand (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{bool}) @deffnx Method get-hover-expand Returns whether hover expansion mode is turned on for @var{tree-view}. @table @var @item tree-view a @code{} @item ret @samp{@code{#t}} if @var{tree-view} is in hover expansion mode @end table Since 2.6 @end deffn @deffn Function gtk-tree-view-set-hover-expand (self@tie{}@code{}) (expand@tie{}@code{bool}) @deffnx Method set-hover-expand Enables of disables the hover expansion mode of @var{tree-view}. Hover expansion makes rows expand or collaps if the pointer moves over them. @table @var @item tree-view a @code{} @item expand @samp{@code{#t}} to enable hover selection mode @end table Since 2.6 @end deffn @deffn Function gtk-tree-view-get-rubber-banding (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{bool}) @deffnx Method get-rubber-banding Returns whether rubber banding is turned on for @var{tree-view}. If the selection mode is @code{}, rubber banding will allow the user to select multiple rows by dragging the mouse. @table @var @item tree-view a @code{} @item ret @samp{@code{#t}} if rubber banding in @var{tree-view} is enabled. @end table Since 2.10 @end deffn @deffn Function gtk-tree-view-set-rubber-banding (self@tie{}@code{}) (enable@tie{}@code{bool}) @deffnx Method set-rubber-banding Enables or disables rubber banding in @var{tree-view}. If the selection mode is @code{}, rubber banding will allow the user to select multiple rows by dragging the mouse. @table @var @item tree-view a @code{} @item enable @samp{@code{#t}} to enable rubber banding @end table Since 2.10 @end deffn @deffn Function gtk-tree-view-get-enable-tree-lines (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{bool}) @deffnx Method get-enable-tree-lines Returns whether or not tree lines are drawn in @var{tree-view}. @table @var @item tree-view a @code{}. @item ret @samp{@code{#t}} if tree lines are drawn in @var{tree-view}, @samp{@code{#f}} otherwise. @end table Since 2.10 @end deffn @deffn Function gtk-tree-view-set-enable-tree-lines (self@tie{}@code{}) (enabled@tie{}@code{bool}) @deffnx Method set-enable-tree-lines Sets whether to draw lines interconnecting the expanders in @var{tree-view}. This does not have any visible effects for lists. @table @var @item tree-view a @code{} @item enabled @samp{@code{#t}} to enable tree line drawing, @samp{@code{#f}} otherwise. @end table Since 2.10 @end deffn @deffn Function gtk-tree-view-get-grid-lines (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{}) @deffnx Method get-grid-lines Returns which grid lines are enabled in @var{tree-view}. @table @var @item tree-view a @code{} @item ret a @code{} value indicating which grid lines are enabled. @end table Since 2.10 @end deffn @deffn Function gtk-tree-view-set-grid-lines (self@tie{}@code{}) (grid_lines@tie{}@code{}) @deffnx Method set-grid-lines Sets which grid lines to draw in @var{tree-view}. @table @var @item tree-view a @code{} @item grid-lines a @code{} value indicating which grid lines to enable. @end table Since 2.10 @end deffn @c %end of fragment guile-gnome-platform-2.16.2/gtk/doc/gtk/Makefile.am0000644000175000017500000000244211670374302022344 0ustar00wingowingo00000000000000################################################################################ ## guile-gnome-gtk.info include $(top_srcdir)/generate-docs.mk docbook_xml_wildcard = ~/src/gnome2/gtk+/docs/reference/gtk/xml/*.xml docbook_xml_except = \ %glossary.xml \ %gtkbindings.xml \ %gtkclist.xml \ %gtkcombo.xml \ %gtkctree.xml \ %gtkenums.xml \ %gtkgc.xml \ %gtkitemfactory.xml \ %gtklistitem.xml \ %gtklist.xml \ %gtkoldeditable.xml \ %gtkoptionmenu.xml \ %gtkpagesetupunixdialog.xml \ %gtkpixmap.xml \ %gtkpreview.xml \ %gtkprinter.xml \ %gtkprintjob.xml \ %gtkprintunixdialog.xml \ %gtkprogress.xml \ %gtksignal.xml \ %gtktext.xml \ %gtkthemes.xml \ %gtktipsquery.xml \ %gtktreeitem.xml \ %gtktree.xml \ %gtktypeutils.xml docbook_xml_files = $(filter-out $(docbook_xml_except),$(wildcard $(docbook_xml_wildcard))) generate-defuns: $(GUILE) $(GUILE_FLAGS) -c "(begin (debug-set! stack 400000) (apply (@ (gnome gw support gtk-doc) gtk-doc->texi-defuns) (cadr (program-arguments)) '$(GTK_DOC_DEFUN_METHOD) '($(GTK_DOC_DEFUN_ARGS)) (cddr (program-arguments))))" ./overrides.texi $(docbook_xml_files) wrapset_stem = gtk EXTRA_DIST = overrides.texi info_TEXINFOS=guile-gnome-gtk.texi guile_gnome_gtk_TEXINFOS=overview.texi $(wildcard section-*.texi) $(wildcard defuns-*.texi) undocumented.texi guile-gnome-platform-2.16.2/gtk/doc/gtk/section-gtkimcontext.xml.texi0000644000175000017500000000030311670374302026156 0ustar00wingowingo00000000000000 @c %start of fragment @node GtkIMContext @chapter GtkIMContext Base class for input method contexts @section Overview @section Usage @include defuns-gtkimcontext.xml.texi @c %end of fragment guile-gnome-platform-2.16.2/gtk/doc/gtk/section-gtkclipboard.xml.texi0000644000175000017500000000662211670374302026115 0ustar00wingowingo00000000000000 @c %start of fragment @node Clipboards @chapter Clipboards Storing data on clipboards @section Overview The @code{} object represents a clipboard of data shared between different processes or between different widgets in the same process. Each clipboard is identified by a name encoded as a @code{}. (Conversion to and from strings can be done with @code{gdk-atom-intern} and @code{gdk-atom-name}.) The default clipboard corresponds to the "CLIPBOARD" atom; another commonly used clipboard is the "PRIMARY" clipboard, which, in X, traditionally contains the currently selected text. To support having a number of different formats on the clipboard at the same time, the clipboard mechanism allows providing callbacks instead of the actual data. When you set the contents of the clipboard, you can either supply the data directly (via functions like @code{gtk-clipboard-set-text}), or you can supply a callback to be called at a later time when the data is needed (via @code{gtk-clipboard-set-with-data} or @code{gtk-clipboard-set-with-owner}.) Providing a callback also avoids having to make copies of the data when it is not needed. @code{gtk-clipboard-set-with-data} and @code{gtk-clipboard-set-with-owner} are quite similar; the choice between the two depends mostly on which is more convenient in a particular situation. The former is most useful when you want to have a blob of data with callbacks to convert it into the various data types that you advertise. When the @var{clear-func} you provided is called, you simply free the data blob. The latter is more useful when the contents of clipboard reflect the internal state of a @code{} (As an example, for the PRIMARY clipboard, when an entry widget provides the clipboard's contents the contents are simply the text within the selected region.) If the contents change, the entry widget can call @code{gtk-clipboard-set-with-owner} to update the timestamp for clipboard ownership, without having to worry about @var{clear-func} being called. Requesting the data from the clipboard is essentially asynchronous. If the contents of the clipboard are provided within the same process, then a direct function call will be made to retrieve the data, but if they are provided by another process, then the data needs to be retrieved from the other process, which may take some time. To avoid blocking the user interface, the call to request the selection, @code{gtk-clipboard-request-contents} takes a callback that will be called when the contents are received (or when the request fails.) If you don't want to deal with providing a separate callback, you can also use @code{gtk-clipboard-wait-for-contents}. What this does is run the GLib main loop recursively waiting for the contents. This can simplify the code flow, but you still have to be aware that other callbacks in your program can be called while this recursive mainloop is running. Along with the functions to get the clipboard contents as an arbitrary data chunk, there are also functions to retrieve it as text, @code{gtk-clipboard-request-text} and @code{gtk-clipboard-wait-for-text}. These functions take care of determining which formats are advertised by the clipboard provider, asking for the clipboard in the best available format and converting the results into the UTF-8 encoding. (The standard form for representing strings in GTK+.) @section Usage @include defuns-gtkclipboard.xml.texi @c %end of fragment guile-gnome-platform-2.16.2/gtk/doc/gtk/section-gtkspinbutton.xml.texi0000644000175000017500000000461311670374303026362 0ustar00wingowingo00000000000000 @c %start of fragment @node GtkSpinButton @chapter GtkSpinButton Retrieve an integer or floating-point number from the user @section Overview A @code{} is an ideal way to allow the user to set the value of some attribute. Rather than having to directly type a number into a @code{}, @code{} allows the user to click on one of two arrows to increment or decrement the displayed value. A value can still be typed in, with the bonus that it can be checked to ensure it is in a given range. The main properties of a @code{} are through a @code{}. See the @code{} section for more details about an adjustment's properties. @example /* Provides a function to retrieve an integer value from a GtkSpinButton * and creates a spin button to model percentage values. */ gint grab_int_value (GtkSpinButton *a_spinner, gpointer user_data) @{ return gtk_spin_button_get_value_as_int (a_spinner); @} void create_integer_spin_button (void) @{ GtkWidget *window, *spinner; GtkAdjustment *spinner_adj; spinner_adj = (GtkAdjustment *) gtk_adjustment_new (50.0, 0.0, 100.0, 1.0, 5.0, 5.0); window = gtk_window_new (GTK_WINDOW_TOPLEVEL); gtk_container_set_border_width (GTK_CONTAINER (window), 5); /* creates the spinner, with no decimal places */ spinner = gtk_spin_button_new (spinner_adj, 1.0, 0); gtk_container_add (GTK_CONTAINER (window), spinner); gtk_widget_show_all (window); return; @} @end example @example /* Provides a function to retrieve a floating point value from a * GtkSpinButton, and creates a high precision spin button. */ gfloat grab_int_value (GtkSpinButton *a_spinner, gpointer user_data) @{ return gtk_spin_button_get_value (a_spinner); @} void create_floating_spin_button (void) @{ GtkWidget *window, *spinner; GtkAdjustment *spinner_adj; spinner_adj = (GtkAdjustment *) gtk_adjustment_new (2.500, 0.0, 5.0, 0.001, 0.1, 0.1); window = gtk_window_new (GTK_WINDOW_TOPLEVEL); gtk_container_set_border_width (GTK_CONTAINER (window), 5); /* creates the spinner, with three decimal places */ spinner = gtk_spin_button_new (spinner_adj, 0.001, 3); gtk_container_add (GTK_CONTAINER (window), spinner); gtk_widget_show_all (window); return; @} @end example @section Usage @include defuns-gtkspinbutton.xml.texi @c %end of fragment guile-gnome-platform-2.16.2/gtk/doc/gtk/defuns-gtkiconview.xml.texi0000644000175000017500000004735611670374302025632 0ustar00wingowingo00000000000000 @c %start of fragment @deftp Class Derives from @code{}, @code{}. This class defines the following slots: @table @code @item pixbuf-column Model column used to retrieve the icon pixbuf from @item text-column Model column used to retrieve the text from @item markup-column Model column used to retrieve the text if using Pango markup @item selection-mode The selection mode @item orientation How the text and icon of each item are positioned relative to each other @item model The model for the icon view @item columns Number of columns to display @item item-width The width used for each item @item spacing Space which is inserted between cells of an item @item row-spacing Space which is inserted between grid rows @item column-spacing Space which is inserted between grid columns @item margin Space which is inserted at the edges of the icon view @item reorderable View is reorderable @item tooltip-column The column in the model containing the tooltip texts for the items @end table @end deftp @defop Signal move-cursor (arg0@tie{}@code{}) (arg1@tie{}@code{}) @result{}@tie{}@code{} @end defop @defop Signal selection-changed @end defop @defop Signal set-scroll-adjustments (arg0@tie{}@code{}) (arg1@tie{}@code{}) @end defop @defop Signal item-activated (arg0@tie{}@code{}) @end defop @defop Signal select-all @end defop @defop Signal unselect-all @end defop @defop Signal select-cursor-item @end defop @defop Signal toggle-cursor-item @end defop @defop Signal activate-cursor-item @result{}@tie{}@code{} @end defop @deffn Function gtk-icon-view-new @result{}@tie{} (ret@tie{}@code{}) Creates a new @code{} widget @table @var @item ret A newly created @code{} widget @end table Since 2.6 @end deffn @deffn Function gtk-icon-view-new-with-model (model@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{}) Creates a new @code{} widget with the model @var{model}. @table @var @item model The model. @item ret A newly created @code{} widget. @end table Since 2.6 @end deffn @deffn Function gtk-icon-view-set-model (self@tie{}@code{}) (model@tie{}@code{}) @deffnx Method set-model Sets the model for a @code{}. If the @var{icon-view} already has a model set, it will remove it before setting the new model. If @var{model} is @samp{@code{#f}}, then it will unset the old model. @table @var @item icon-view A @code{}. @item model The model. @end table Since 2.6 @end deffn @deffn Function gtk-icon-view-get-model (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{}) @deffnx Method get-model Returns the model the @code{} is based on. Returns @samp{@code{#f}} if the model is unset. @table @var @item icon-view a @code{} @item ret A @code{}, or @samp{@code{#f}} if none is currently being used. @end table Since 2.6 @end deffn @deffn Function gtk-icon-view-set-text-column (self@tie{}@code{}) (column@tie{}@code{int}) @deffnx Method set-text-column Sets the column with text for @var{icon-view} to be @var{column}. The text column must be of type @code{}. @table @var @item icon-view A @code{}. @item column A column in the currently used model. @end table Since 2.6 @end deffn @deffn Function gtk-icon-view-get-text-column (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{int}) @deffnx Method get-text-column Returns the column with text for @var{icon-view}. @table @var @item icon-view A @code{}. @item ret the text column, or -1 if it's unset. @end table Since 2.6 @end deffn @deffn Function gtk-icon-view-set-markup-column (self@tie{}@code{}) (column@tie{}@code{int}) @deffnx Method set-markup-column Sets the column with markup information for @var{icon-view} to be @var{column}. The markup column must be of type @code{}. If the markup column is set to something, it overrides the text column set by @code{gtk-icon-view-set-text-column}. @table @var @item icon-view A @code{}. @item column A column in the currently used model. @end table Since 2.6 @end deffn @deffn Function gtk-icon-view-get-markup-column (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{int}) @deffnx Method get-markup-column Returns the column with markup text for @var{icon-view}. @table @var @item icon-view A @code{}. @item ret the markup column, or -1 if it's unset. @end table Since 2.6 @end deffn @deffn Function gtk-icon-view-set-pixbuf-column (self@tie{}@code{}) (column@tie{}@code{int}) @deffnx Method set-pixbuf-column Sets the column with pixbufs for @var{icon-view} to be @var{column}. The pixbuf column must be of type @code{} @table @var @item icon-view A @code{}. @item column A column in the currently used model. @end table Since 2.6 @end deffn @deffn Function gtk-icon-view-get-pixbuf-column (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{int}) @deffnx Method get-pixbuf-column Returns the column with pixbufs for @var{icon-view}. @table @var @item icon-view A @code{}. @item ret the pixbuf column, or -1 if it's unset. @end table Since 2.6 @end deffn @deffn Function gtk-icon-view-get-path-at-pos (self@tie{}@code{}) (x@tie{}@code{int}) (y@tie{}@code{int}) @result{}@tie{} (ret@tie{}@code{}) @deffnx Method get-path-at-pos Finds the path at the point (@var{x}, @var{y}), relative to widget coordinates. See @code{gtk-icon-view-get-item-at-pos}, if you are also interested in the cell at the specified position. @table @var @item icon-view A @code{}. @item x The x position to be identified @item y The y position to be identified @item ret The @code{} corresponding to the icon or @samp{@code{#f}} if no icon exists at that position. @end table Since 2.6 @end deffn @deffn Function gtk-icon-view-set-cursor (self@tie{}@code{}) (path@tie{}@code{}) (cell@tie{}@code{}) (start_editing@tie{}@code{bool}) @deffnx Method set-cursor Sets the current keyboard focus to be at @var{path}, and selects it. This is useful when you want to focus the user's attention on a particular item. If @var{cell} is not @samp{@code{#f}}, then focus is given to the cell specified by it. Additionally, if @var{start-editing} is @samp{@code{#t}}, then editing should be started in the specified cell. This function is often followed by @samp{gtk_widget_grab_focus (icon_view)} in order to give keyboard focus to the widget. Please note that editing can only happen when the widget is realized. @table @var @item icon-view A @code{} @item path A @code{} @item cell One of the cell renderers of @var{icon-view}, or @samp{@code{#f}} @item start-editing @samp{@code{#t}} if the specified cell should start being edited. @end table Since 2.8 @end deffn @deffn Function gtk-icon-view-set-selection-mode (self@tie{}@code{}) (mode@tie{}@code{}) @deffnx Method set-selection-mode Sets the selection mode of the @var{icon-view}. @table @var @item icon-view A @code{}. @item mode The selection mode @end table Since 2.6 @end deffn @deffn Function gtk-icon-view-get-selection-mode (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{}) @deffnx Method get-selection-mode Gets the selection mode of the @var{icon-view}. @table @var @item icon-view A @code{}. @item ret the current selection mode @end table Since 2.6 @end deffn @deffn Function gtk-icon-view-set-orientation (self@tie{}@code{}) (orientation@tie{}@code{}) @deffnx Method set-orientation Sets the ::orientation property which determines whether the labels are drawn beside the icons instead of below. @table @var @item icon-view a @code{} @item orientation the relative position of texts and icons @end table Since 2.6 @end deffn @deffn Function gtk-icon-view-get-orientation (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{}) @deffnx Method get-orientation Returns the value of the ::orientation property which determines whether the labels are drawn beside the icons instead of below. @table @var @item icon-view a @code{} @item ret the relative position of texts and icons @end table Since 2.6 @end deffn @deffn Function gtk-icon-view-set-columns (self@tie{}@code{}) (columns@tie{}@code{int}) @deffnx Method set-columns Sets the ::columns property which determines in how many columns the icons are arranged. If @var{columns} is -1, the number of columns will be chosen automatically to fill the available area. @table @var @item icon-view a @code{} @item columns the number of columns @end table Since 2.6 @end deffn @deffn Function gtk-icon-view-get-columns (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{int}) @deffnx Method get-columns Returns the value of the ::columns property. @table @var @item icon-view a @code{} @item ret the number of columns, or -1 @end table Since 2.6 @end deffn @deffn Function gtk-icon-view-set-item-width (self@tie{}@code{}) (item_width@tie{}@code{int}) @deffnx Method set-item-width Sets the ::item-width property which specifies the width to use for each item. If it is set to -1, the icon view will automatically determine a suitable item size. @table @var @item icon-view a @code{} @item item-width the width for each item @end table Since 2.6 @end deffn @deffn Function gtk-icon-view-get-item-width (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{int}) @deffnx Method get-item-width Returns the value of the ::item-width property. @table @var @item icon-view a @code{} @item ret the width of a single item, or -1 @end table Since 2.6 @end deffn @deffn Function gtk-icon-view-set-spacing (self@tie{}@code{}) (spacing@tie{}@code{int}) @deffnx Method set-spacing Sets the ::spacing property which specifies the space which is inserted between the cells (i.e. the icon and the text) of an item. @table @var @item icon-view a @code{} @item spacing the spacing @end table Since 2.6 @end deffn @deffn Function gtk-icon-view-get-spacing (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{int}) @deffnx Method get-spacing Returns the value of the ::spacing property. @table @var @item icon-view a @code{} @item ret the space between cells @end table Since 2.6 @end deffn @deffn Function gtk-icon-view-set-row-spacing (self@tie{}@code{}) (row_spacing@tie{}@code{int}) @deffnx Method set-row-spacing Sets the ::row-spacing property which specifies the space which is inserted between the rows of the icon view. @table @var @item icon-view a @code{} @item row-spacing the row spacing @end table Since 2.6 @end deffn @deffn Function gtk-icon-view-get-row-spacing (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{int}) @deffnx Method get-row-spacing Returns the value of the ::row-spacing property. @table @var @item icon-view a @code{} @item ret the space between rows @end table Since 2.6 @end deffn @deffn Function gtk-icon-view-set-column-spacing (self@tie{}@code{}) (column_spacing@tie{}@code{int}) @deffnx Method set-column-spacing Sets the ::column-spacing property which specifies the space which is inserted between the columns of the icon view. @table @var @item icon-view a @code{} @item column-spacing the column spacing @end table Since 2.6 @end deffn @deffn Function gtk-icon-view-get-column-spacing (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{int}) @deffnx Method get-column-spacing Returns the value of the ::column-spacing property. @table @var @item icon-view a @code{} @item ret the space between columns @end table Since 2.6 @end deffn @deffn Function gtk-icon-view-set-margin (self@tie{}@code{}) (margin@tie{}@code{int}) @deffnx Method set-margin Sets the ::margin property which specifies the space which is inserted at the top, bottom, left and right of the icon view. @table @var @item icon-view a @code{} @item margin the margin @end table Since 2.6 @end deffn @deffn Function gtk-icon-view-get-margin (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{int}) @deffnx Method get-margin Returns the value of the ::margin property. @table @var @item icon-view a @code{} @item ret the space at the borders @end table Since 2.6 @end deffn @deffn Function gtk-icon-view-select-path (self@tie{}@code{}) (path@tie{}@code{}) @deffnx Method select-path Selects the row at @var{path}. @table @var @item icon-view A @code{}. @item path The @code{} to be selected. @end table Since 2.6 @end deffn @deffn Function gtk-icon-view-unselect-path (self@tie{}@code{}) (path@tie{}@code{}) @deffnx Method unselect-path Unselects the row at @var{path}. @table @var @item icon-view A @code{}. @item path The @code{} to be unselected. @end table Since 2.6 @end deffn @deffn Function gtk-icon-view-path-is-selected (self@tie{}@code{}) (path@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{bool}) @deffnx Method path-is-selected Returns @samp{@code{#t}} if the icon pointed to by @var{path} is currently selected. If @var{icon} does not point to a valid location, @samp{@code{#f}} is returned. @table @var @item icon-view A @code{}. @item path A @code{} to check selection on. @item ret @samp{@code{#t}} if @var{path} is selected. @end table Since 2.6 @end deffn @deffn Function gtk-icon-view-get-selected-items (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{glist-of}) @deffnx Method get-selected-items Creates a list of paths of all selected items. Additionally, if you are planning on modifying the model after calling this function, you may want to convert the returned list into a list of @code{}s. To do this, you can use @code{gtk-tree-row-reference-new}. To free the return value, use: @example g_list_foreach (list, gtk_tree_path_free, NULL); g_list_free (list); @end example @table @var @item icon-view A @code{}. @item ret A @code{} containing a @code{} for each selected row. @end table Since 2.6 @end deffn @deffn Function gtk-icon-view-select-all (self@tie{}@code{}) @deffnx Method select-all Selects all the icons. @var{icon-view} must has its selection mode set to @code{}. @table @var @item icon-view A @code{}. @end table Since 2.6 @end deffn @deffn Function gtk-icon-view-unselect-all (self@tie{}@code{}) @deffnx Method unselect-all Unselects all the icons. @table @var @item icon-view A @code{}. @end table Since 2.6 @end deffn @deffn Function gtk-icon-view-item-activated (self@tie{}@code{}) (path@tie{}@code{}) @deffnx Method item-activated Activates the item determined by @var{path}. @table @var @item icon-view A @code{} @item path The @code{} to be activated @end table Since 2.6 @end deffn @deffn Function gtk-icon-view-scroll-to-path (self@tie{}@code{}) (path@tie{}@code{}) (use_align@tie{}@code{bool}) (row_align@tie{}@code{float}) (col_align@tie{}@code{float}) @deffnx Method scroll-to-path Moves the alignments of @var{icon-view} to the position specified by @var{path}. @var{row-align} determines where the row is placed, and @var{col-align} determines where @var{column} is placed. Both are expected to be between 0.0 and 1.0. 0.0 means left/top alignment, 1.0 means right/bottom alignment, 0.5 means center. If @var{use-align} is @samp{@code{#f}}, then the alignment arguments are ignored, and the tree does the minimum amount of work to scroll the item onto the screen. This means that the item will be scrolled to the edge closest to its current position. If the item is currently visible on the screen, nothing is done. This function only works if the model is set, and @var{path} is a valid row on the model. If the model changes before the @var{icon-view} is realized, the centered path will be modified to reflect this change. @table @var @item icon-view A @code{}. @item path The path of the item to move to. @item use-align whether to use alignment arguments, or @samp{@code{#f}}. @item row-align The vertical alignment of the item specified by @var{path}. @item col-align The horizontal alignment of the item specified by @var{path}. @end table Since 2.8 @end deffn @deffn Function gtk-icon-view-unset-model-drag-dest (self@tie{}@code{}) @deffnx Method unset-model-drag-dest Undoes the effect of @code{gtk-icon-view-enable-model-drag-dest}. @table @var @item icon-view a @code{} @end table Since 2.8 @end deffn @deffn Function gtk-icon-view-set-reorderable (self@tie{}@code{}) (reorderable@tie{}@code{bool}) @deffnx Method set-reorderable This function is a convenience function to allow you to reorder models that support the @code{} and the @code{}. Both @code{} and @code{} support these. If @var{reorderable} is @samp{@code{#t}}, then the user can reorder the model by dragging and dropping rows. The developer can listen to these changes by connecting to the model's row_inserted and row_deleted signals. This function does not give you any degree of control over the order -- any reordering is allowed. If more control is needed, you should probably handle drag and drop manually. @table @var @item icon-view A @code{}. @item reorderable @samp{@code{#t}}, if the list of items can be reordered. @end table Since 2.8 @end deffn @deffn Function gtk-icon-view-get-reorderable (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{bool}) @deffnx Method get-reorderable Retrieves whether the user can reorder the list via drag-and-drop. See @code{gtk-icon-view-set-reorderable}. @table @var @item icon-view a @code{} @item ret @samp{@code{#t}} if the list can be reordered. @end table Since 2.8 @end deffn @deffn Function gtk-icon-view-set-drag-dest-item (self@tie{}@code{}) (path@tie{}@code{}) (pos@tie{}@code{}) @deffnx Method set-drag-dest-item Sets the item that is highlighted for feedback. @table @var @item icon-view a @code{} @item path The path of the item to highlight, or @samp{@code{#f}}. @item pos Specifies where to drop, relative to the item @end table Since 2.8 @end deffn @deffn Function gtk-icon-view-create-drag-icon (self@tie{}@code{}) (path@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{}) @deffnx Method create-drag-icon Creates a @code{} representation of the item at @var{path}. This image is used for a drag icon. @table @var @item icon-view a @code{} @item path a @code{} in @var{icon-view} @item ret a newly-allocated pixmap of the drag icon. @end table Since 2.8 @end deffn @c %end of fragment guile-gnome-platform-2.16.2/gtk/doc/gtk/defuns-gtkcontainer.xml.texi0000644000175000017500000002667111670374302025766 0ustar00wingowingo00000000000000 @c %start of fragment @deftp Class Derives from @code{}. This class defines the following slots: @table @code @item border-width The width of the empty border outside the containers children @item resize-mode Specify how resize events are handled @item child Can be used to add a new child to the container @end table @end deftp @defop Signal add (arg0@tie{}@code{}) @end defop @defop Signal remove (arg0@tie{}@code{}) @end defop @defop Signal check-resize @end defop @defop Signal set-focus-child (arg0@tie{}@code{}) @end defop @deffn Function gtk-container-add (self@tie{}@code{}) (widget@tie{}@code{}) @deffnx Method add Adds @var{widget} to @var{container}. Typically used for simple containers such as @code{}, @code{}, or @code{}; for more complicated layout containers such as @code{} or @code{}, this function will pick default packing parameters that may not be correct. So consider functions such as @code{gtk-box-pack-start} and @code{gtk-table-attach} as an alternative to @code{gtk-container-add} in those cases. A widget may be added to only one container at a time; you can't place the same widget inside two different containers. @table @var @item container a @code{} @item widget a widget to be placed inside @var{container} @end table @end deffn @deffn Function gtk-container-remove (self@tie{}@code{}) (widget@tie{}@code{}) @deffnx Method remove Removes @var{widget} from @var{container}. @var{widget} must be inside @var{container}. Note that @var{container} will own a reference to @var{widget}, and that this may be the last reference held; so removing a widget from its container can destroy that widget. If you want to use @var{widget} again, you need to add a reference to it while it's not inside a container, using @code{g-object-ref}. If you don't want to use @var{widget} again it's usually more efficient to simply destroy it directly using @code{gtk-widget-destroy} since this will remove it from the container and help break any circular reference count cycles. @table @var @item container a @code{} @item widget a current child of @var{container} @end table @end deffn @deffn Function gtk-container-get-resize-mode (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{}) @deffnx Method get-resize-mode Returns the resize mode for the container. See @code{gtk-container-set-resize-mode}. @table @var @item container a @code{} @item ret the current resize mode @end table @end deffn @deffn Function gtk-container-set-resize-mode (self@tie{}@code{}) (resize_mode@tie{}@code{}) @deffnx Method set-resize-mode Sets the resize mode for the container. The resize mode of a container determines whether a resize request will be passed to the container's parent, queued for later execution or executed immediately. @table @var @item container a @code{}. @item resize-mode the new resize mode. @end table @end deffn @deffn Function gtk-container-check-resize (self@tie{}@code{}) @deffnx Method check-resize @table @var @item container @end table @end deffn @deffn Function gtk-container-get-children (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{glist-of}) @deffnx Method get-children Returns the container's non-internal children. See @code{gtk-container-forall} for details on what constitutes an "internal" child. @table @var @item container a @code{}. @item ret a newly-allocated list of the container's non-internal children. @end table @end deffn @deffn Function gtk-container-set-focus-child (self@tie{}@code{}) (child@tie{}@code{}) @deffnx Method set-focus-child @table @var @item container @item child @end table @end deffn @deffn Function gtk-container-get-focus-vadjustment (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{}) @deffnx Method get-focus-vadjustment Retrieves the vertical focus adjustment for the container. See @code{gtk-container-set-focus-vadjustment}. @table @var @item container a @code{} @item ret the vertical focus adjustment, or @samp{@code{#f}} if none has been set. @end table @end deffn @deffn Function gtk-container-set-focus-vadjustment (self@tie{}@code{}) (adjustment@tie{}@code{}) @deffnx Method set-focus-vadjustment Hooks up an adjustment to focus handling in a container, so when a child of the container is focused, the adjustment is scrolled to show that widget. This function sets the vertical alignment. See @code{gtk-scrolled-window-get-vadjustment} for a typical way of obtaining the adjustment and @code{gtk-container-set-focus-hadjustment} for setting the horizontal adjustment. The adjustments have to be in pixel units and in the same coordinate system as the allocation for immediate children of the container. @table @var @item container a @code{} @item adjustment an adjustment which should be adjusted when the focus is moved among the descendents of @var{container} @end table @end deffn @deffn Function gtk-container-get-focus-hadjustment (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{}) @deffnx Method get-focus-hadjustment Retrieves the horizontal focus adjustment for the container. See @code{gtk-container-set-focus-hadjustment}. @table @var @item container a @code{} @item ret the horizontal focus adjustment, or @samp{@code{#f}} if none has been set. @end table @end deffn @deffn Function gtk-container-set-focus-hadjustment (self@tie{}@code{}) (adjustment@tie{}@code{}) @deffnx Method set-focus-hadjustment Hooks up an adjustment to focus handling in a container, so when a child of the container is focused, the adjustment is scrolled to show that widget. This function sets the horizontal alignment. See @code{gtk-scrolled-window-get-hadjustment} for a typical way of obtaining the adjustment and @code{gtk-container-set-focus-vadjustment} for setting the vertical adjustment. The adjustments have to be in pixel units and in the same coordinate system as the allocation for immediate children of the container. @table @var @item container a @code{} @item adjustment an adjustment which should be adjusted when the focus is moved among the descendents of @var{container} @end table @end deffn @deffn Function gtk-container-resize-children (self@tie{}@code{}) @deffnx Method resize-children @table @var @item container @end table @end deffn @deffn Function gtk-container-child-type (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{}) @deffnx Method child-type Returns the type of the children supported by the container. Note that this may return @samp{G_TYPE_NONE} to indicate that no more children can be added, e.g. for a @code{} which already has two children. @table @var @item container a @code{}. @item ret a @code{}. @end table @end deffn @deffn Function gtk-container-child-get-property (self@tie{}@code{}) (child@tie{}@code{}) (property_name@tie{}@code{mchars}) (value@tie{}@code{}) @deffnx Method child-get-property Gets the value of a child property for @var{child} and @var{container}. @table @var @item container a @code{} @item child a widget which is a child of @var{container} @item property-name the name of the property to get @item value a location to return the value @end table @end deffn @deffn Function gtk-container-child-set-property (self@tie{}@code{}) (child@tie{}@code{}) (property_name@tie{}@code{mchars}) (value@tie{}@code{}) @deffnx Method child-set-property Sets a child property for @var{child} and @var{container}. @table @var @item container a @code{} @item child a widget which is a child of @var{container} @item property-name the name of the property to set @item value the value to set the property to @end table @end deffn @deffn Function gtk-container-get-border-width (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{unsigned-int}) @deffnx Method get-border-width Retrieves the border width of the container. See @code{gtk-container-set-border-width}. @table @var @item container a @code{} @item ret the current border width @end table @end deffn @deffn Function gtk-container-set-border-width (self@tie{}@code{}) (border_width@tie{}@code{unsigned-int}) @deffnx Method set-border-width Sets the border width of the container. The border width of a container is the amount of space to leave around the outside of the container. The only exception to this is @code{}; because toplevel windows can't leave space outside, they leave the space inside. The border is added on all sides of the container. To add space to only one side, one approach is to create a @code{} widget, call @code{gtk-widget-set-usize} to give it a size, and place it on the side of the container as a spacer. @table @var @item container a @code{} @item border-width amount of blank space to leave @emph{outside} the container. Valid values are in the range 0-65535 pixels. @end table @end deffn @deffn Function gtk-container-propagate-expose (self@tie{}@code{}) (child@tie{}@code{}) (event@tie{}@code{}) @deffnx Method propagate-expose When a container receives an expose event, it must send synthetic expose events to all children that don't have their own @code{}. This function provides a convenient way of doing this. A container, when it receives an expose event, calls @code{gtk-container-propagate-expose} once for each child, passing in the event the container received. @code{gtk-container-propagate-expose} takes care of deciding whether an expose event needs to be sent to the child, intersecting the event's area with the child area, and sending the event. In most cases, a container can simply either simply inherit the ::expose implementation from @code{}, or, do some drawing and then chain to the ::expose implementation from @code{}. @table @var @item container a @code{} @item child a child of @var{container} @item event a expose event sent to container @end table @end deffn @deffn Function gtk-container-set-focus-chain (self@tie{}@code{}) (focusable_widgets@tie{}@code{glist-of}) @deffnx Method set-focus-chain Sets a focus chain, overriding the one computed automatically by GTK+. In principle each widget in the chain should be a descendant of the container, but this is not enforced by this method, since it's allowed to set the focus chain before you pack the widgets, or have a widget in the chain that isn't always packed. The necessary checks are done when the focus chain is actually traversed. @table @var @item container a @code{}. @item focusable-widgets the new focus chain. @end table @end deffn @deffn Function gtk-container-unset-focus-chain (self@tie{}@code{}) @deffnx Method unset-focus-chain Removes a focus chain explicitly set with @code{gtk-container-set-focus-chain}. @table @var @item container a @code{}. @end table @end deffn @c %end of fragment guile-gnome-platform-2.16.2/gtk/doc/gtk/defuns-gtkrecentchoosermenu.xml.texi0000644000175000017500000000205011670374302027515 0ustar00wingowingo00000000000000 @c %start of fragment @deftp Class Derives from @code{}, @code{}. This class defines the following slots: @table @code @item show-numbers Whether the items should be displayed with a number @end table @end deftp @deffn Function gtk-recent-chooser-menu-new @result{}@tie{} (ret@tie{}@code{}) Creates a new @code{} widget. This kind of widget shows the list of recently used resources as a menu, each item as a menu item. Each item inside the menu might have an icon, representing its MIME type, and a number, for mnemonic access. This widget implements the @code{} interface. This widget creates its own @code{} object. See the @code{gtk-recent-chooser-menu-new-for-manager} function to know how to create a @code{} widget bound to another @code{} object. @table @var @item ret a new @code{} @end table Since 2.10 @end deffn @c %end of fragment guile-gnome-platform-2.16.2/gtk/doc/gtk/defuns-gtkseparatortoolitem.xml.texi0000644000175000017500000000274611670374302027556 0ustar00wingowingo00000000000000 @c %start of fragment @deftp Class Derives from @code{}. This class defines the following slots: @table @code @item draw Whether the separator is drawn, or just blank @end table @end deftp @deffn Function gtk-separator-tool-item-new @result{}@tie{} (ret@tie{}@code{}) Create a new @code{} @table @var @item ret the new @code{} @end table Since 2.4 @end deffn @deffn Function gtk-separator-tool-item-set-draw (self@tie{}@code{}) (draw@tie{}@code{bool}) @deffnx Method set-draw When @var{separator-tool-items} is drawn as a vertical line, or just blank. Setting this @code{@code{#f}} along with @code{gtk-tool-item-set-expand} is useful to create an item that forces following items to the end of the toolbar. @table @var @item item a @code{} @item draw whether @var{separator-tool-item} is drawn as a vertical line @end table Since 2.4 @end deffn @deffn Function gtk-separator-tool-item-get-draw (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{bool}) @deffnx Method get-draw Returns whether @var{separator-tool-item} is drawn as a line, or just blank. See @code{gtk-separator-tool-item-set-draw}. @table @var @item item a @code{} @item ret @code{@code{#t}} if @var{separator-tool-item} is drawn as a line, or just blank. @end table Since 2.4 @end deffn @c %end of fragment guile-gnome-platform-2.16.2/gtk/doc/gtk/defuns-gtkhpaned.xml.texi0000644000175000017500000000052611670374302025232 0ustar00wingowingo00000000000000 @c %start of fragment @deftp Class Derives from @code{}. This class defines no direct slots. @end deftp @deffn Function gtk-hpaned-new @result{}@tie{} (ret@tie{}@code{}) Create a new @code{} @table @var @item ret the new @code{} @end table @end deffn @c %end of fragment guile-gnome-platform-2.16.2/gtk/doc/gtk/section-gtkobject.xml.texi0000644000175000017500000000642511670374302025425 0ustar00wingowingo00000000000000 @c %start of fragment @node GtkObject @chapter GtkObject The base class of the GTK+ type hierarchy @section Overview @section Description @code{} is the base class for all widgets, and for a few non-widget objects such as @code{}. @code{} predates @code{}; non-widgets that derive from @code{} rather than @code{} do so for backward compatibility reasons. @code{}s are created with a "floating" reference count. This means that the initial reference is not owned by anyone. Calling @code{g-object-unref} on a newly-created @code{} is incorrect, the floating reference has to be removed first. This can be done by anyone at any time, by calling @code{g-object-ref-sink} to convert the floating reference into a regular reference. @code{g-object-ref-sink} returns a new reference if an object is already sunk (has no floating reference). When you add a widget to its parent container, the parent container will do this: This means that the container now owns a reference to the child widget and the child widget has no floating reference. @example g_object_ref_sink (G_OBJECT (child_widget)); @end example The purpose of the floating reference is to keep the child widget alive until you add it to a parent container: @example button = gtk_button_new (); /* button has one floating reference to keep it alive */ gtk_container_add (GTK_CONTAINER (container), button); /* button has one non-floating reference owned by the container */ @end example @code{} is a special case, because GTK+ itself will ref/sink it on creation. That is, after calling @code{gtk-window-new}, the @code{} will have one reference which is owned by GTK+, and no floating references. One more factor comes into play: the "destroy" signal, emitted by the @code{gtk-object-destroy} method. The "destroy" signal asks all code owning a reference to an object to release said reference. So, for example, if you call @code{gtk-object-destroy} on a @code{}, GTK+ will release the reference count that it owns; if you call @code{gtk-object-destroy} on a @code{}, then the button will be removed from its parent container and the parent container will release its reference to the button. Because these references are released, calling @code{gtk-object-destroy} should result in freeing all memory associated with an object, unless some buggy code fails to release its references in response to the "destroy" signal. Freeing memory (referred to as @dfn{finalization} only happens if the reference count reaches zero. Some simple rules for handling @code{} Never call @code{g-object-unref} unless you have previously called @code{g-object-ref}, even if you created the @code{}. (Note: this is @emph{not} true for @code{}; for @code{}, the creator of the object owns a reference.) Call @code{gtk-object-destroy} to get rid of most objects in most cases. In particular, widgets are almost always destroyed in this way. Because of the floating reference count, you don't need to worry about reference counting for widgets and toplevel windows, unless you explicitly call @code{g-object-ref} yourself. @section Usage @include defuns-gtkobject.xml.texi @c %end of fragment guile-gnome-platform-2.16.2/gtk/doc/gtk/section-gtktreeviewcolumn.xml.texi0000644000175000017500000000114711670374303027224 0ustar00wingowingo00000000000000 @c %start of fragment @node GtkTreeViewColumn @chapter GtkTreeViewColumn A visible column in a widget @section Overview The GtkTreeViewColumn object represents a visible column in a @code{} widget. It allows to set properties of the column header, and functions as a holding pen for the cell renderers which determine how the data in the column is displayed. Please refer to the tree widget conceptual overview for an overview of all the objects and data types related to the tree widget and how they work together. @section Usage @include defuns-gtktreeviewcolumn.xml.texi @c %end of fragment guile-gnome-platform-2.16.2/gtk/doc/gtk/section-gtkpagesetup.xml.texi0000644000175000017500000000304611670374302026150 0ustar00wingowingo00000000000000 @c %start of fragment @node GtkPageSetup @chapter GtkPageSetup Stores page setup information @section Overview A GtkPageSetup object stores the page size, orientation and margins. The idea is that you can get one of these from the page setup dialog and then pass it to the @code{} when printing. The benefit of splitting this out of the @code{} is that these affect the actual layout of the page, and thus need to be set long before user prints. The margins specified in this object are the "print margins", i.e. the parts of the page that the printer cannot print on. These are different from the layout margins that a word processor uses; they are typically used to determine the @emph{minimal} size for the layout margins. To obtain a @code{} use @code{gtk-page-setup-new} to get the defaults, or use @code{gtk-print-run-page-setup-dialog} to show the page setup dialog and receive the resulting page setup. @example static GtkPrintSettings *settings = NULL; static GtkPageSetup *page_setup = NULL; static void do_page_setup (void) @{ GtkPageSetup *new_page_setup; if (settings == NULL) settings = gtk_print_settings_new (); new_page_setup = gtk_print_run_page_setup_dialog (GTK_WINDOW (main_window), page_setup, settings); if (page_setup) g_object_unref (page_setup); page_setup = new_page_setup; @} @end example Printing support was added in GTK+ 2.10. @section Usage @include defuns-gtkpagesetup.xml.texi @c %end of fragment guile-gnome-platform-2.16.2/gtk/doc/gtk/section-gtktreednd.xml.texi0000644000175000017500000000212311670374303025574 0ustar00wingowingo00000000000000 @c %start of fragment @node GtkTreeView drag-and-drop @chapter GtkTreeView drag-and-drop Interfaces for drag-and-drop support in GtkTreeView @section Overview GTK+ supports Drag-and-Drop in tree views with a high-level and a low-level API. The low-level API consists of the GTK+ DND API, augmented by some treeview utility functions: @code{gtk-tree-view-set-drag-dest-row}, @code{gtk-tree-view-get-drag-dest-row}, @code{gtk-tree-view-get-dest-row-at-pos}, @code{gtk-tree-view-create-row-drag-icon}, @code{gtk-tree-set-row-drag-data} and @code{gtk-tree-get-row-drag-data}. This API leaves a lot of flexibility, but nothing is done automatically, and implementing advanced features like hover-to-open-rows or autoscrolling on top of this API is a lot of work. On the other hand, if you write to the high-level API, then all the bookkeeping of rows is done for you, as well as things like hover-to-open and auto-scroll, but your models have to implement the @code{} and @code{} interfaces. @section Usage @include defuns-gtktreednd.xml.texi @c %end of fragment guile-gnome-platform-2.16.2/gtk/doc/gtk/Makefile.in0000644000175000017500000006650511752511067022371 0ustar00wingowingo00000000000000# Makefile.in generated by automake 1.11.5 from Makefile.am. # @configure_input@ # Copyright (C) 1994, 1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, # 2003, 2004, 2005, 2006, 2007, 2008, 2009, 2010, 2011 Free Software # Foundation, Inc. # This Makefile.in is free software; the Free Software Foundation # gives unlimited permission to copy and/or distribute it, # with or without modifications, as long as this notice is preserved. # This program is distributed in the hope that it will be useful, # but WITHOUT ANY WARRANTY, to the extent permitted by law; without # even the implied warranty of MERCHANTABILITY or FITNESS FOR A # PARTICULAR PURPOSE. @SET_MAKE@ ################################################################################ # guile-gnome # Copyright (C) 2007, 2011 Free Software Foundation, Inc. # This program is free software; you can redistribute it and/or # modify it under the terms of the GNU General Public License as # published by the Free Software Foundation; either version 2 of # the License, or (at your option) any later version. # This program is distributed in the hope that it will be useful, # but WITHOUT ANY WARRANTY; without even the implied warranty of # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the # GNU General Public License for more details. # You should have received a copy of the GNU General Public License # along with this program; if not, contact: # Free Software Foundation Voice: +1-617-542-5942 # 59 Temple Place - Suite 330 Fax: +1-617-542-2652 # Boston, MA 02111-1307, USA gnu@gnu.org # # Makefile snippet # VPATH = @srcdir@ am__make_dryrun = \ { \ am__dry=no; \ case $$MAKEFLAGS in \ *\\[\ \ ]*) \ echo 'am--echo: ; @echo "AM" OK' | $(MAKE) -f - 2>/dev/null \ | grep '^AM OK$$' >/dev/null || am__dry=yes;; \ *) \ for am__flg in $$MAKEFLAGS; do \ case $$am__flg in \ *=*|--*) ;; \ *n*) am__dry=yes; break;; \ esac; \ done;; \ esac; \ test $$am__dry = yes; \ } pkgdatadir = $(datadir)/@PACKAGE@ pkgincludedir = $(includedir)/@PACKAGE@ pkglibdir = $(libdir)/@PACKAGE@ pkglibexecdir = $(libexecdir)/@PACKAGE@ am__cd = CDPATH="$${ZSH_VERSION+.}$(PATH_SEPARATOR)" && cd install_sh_DATA = $(install_sh) -c -m 644 install_sh_PROGRAM = $(install_sh) -c install_sh_SCRIPT = $(install_sh) -c INSTALL_HEADER = $(INSTALL_DATA) transform = $(program_transform_name) NORMAL_INSTALL = : PRE_INSTALL = : POST_INSTALL = : NORMAL_UNINSTALL = : PRE_UNINSTALL = : POST_UNINSTALL = : build_triplet = @build@ host_triplet = @host@ DIST_COMMON = $(guile_gnome_gtk_TEXINFOS) $(srcdir)/Makefile.am \ $(srcdir)/Makefile.in $(srcdir)/stamp-vti \ $(srcdir)/version.texi $(top_srcdir)/generate-docs.mk subdir = gtk/doc/gtk ACLOCAL_M4 = $(top_srcdir)/aclocal.m4 am__aclocal_m4_deps = $(top_srcdir)/configure.ac am__configure_deps = $(am__aclocal_m4_deps) $(CONFIGURE_DEPENDENCIES) \ $(ACLOCAL_M4) mkinstalldirs = $(install_sh) -d CONFIG_HEADER = $(top_builddir)/config.h CONFIG_CLEAN_FILES = CONFIG_CLEAN_VPATH_FILES = SOURCES = DIST_SOURCES = INFO_DEPS = $(srcdir)/guile-gnome-gtk.info TEXINFO_TEX = $(top_srcdir)/build-aux/texinfo.tex am__TEXINFO_TEX_DIR = $(top_srcdir)/build-aux DVIS = guile-gnome-gtk.dvi PDFS = guile-gnome-gtk.pdf PSS = guile-gnome-gtk.ps HTMLS = guile-gnome-gtk.html TEXINFOS = guile-gnome-gtk.texi TEXI2DVI = texi2dvi TEXI2PDF = $(TEXI2DVI) --pdf --batch MAKEINFOHTML = $(MAKEINFO) --html AM_MAKEINFOHTMLFLAGS = $(AM_MAKEINFOFLAGS) DVIPS = dvips am__can_run_installinfo = \ case $$AM_UPDATE_INFO_DIR in \ n|no|NO) false;; \ *) (install-info --version) >/dev/null 2>&1;; \ esac am__installdirs = "$(DESTDIR)$(infodir)" am__vpath_adj_setup = srcdirstrip=`echo "$(srcdir)" | sed 's|.|.|g'`; am__vpath_adj = case $$p in \ $(srcdir)/*) f=`echo "$$p" | sed "s|^$$srcdirstrip/||"`;; \ *) f=$$p;; \ esac; am__strip_dir = f=`echo $$p | sed -e 's|^.*/||'`; am__install_max = 40 am__nobase_strip_setup = \ srcdirstrip=`echo "$(srcdir)" | sed 's/[].[^$$\\*|]/\\\\&/g'` am__nobase_strip = \ for p in $$list; do echo "$$p"; done | sed -e "s|$$srcdirstrip/||" am__nobase_list = $(am__nobase_strip_setup); \ for p in $$list; do echo "$$p $$p"; done | \ sed "s| $$srcdirstrip/| |;"' / .*\//!s/ .*/ ./; s,\( .*\)/[^/]*$$,\1,' | \ $(AWK) 'BEGIN { files["."] = "" } { files[$$2] = files[$$2] " " $$1; \ if (++n[$$2] == $(am__install_max)) \ { print $$2, files[$$2]; n[$$2] = 0; files[$$2] = "" } } \ END { for (dir in files) print dir, files[dir] }' am__base_list = \ sed '$$!N;$$!N;$$!N;$$!N;$$!N;$$!N;$$!N;s/\n/ /g' | \ sed '$$!N;$$!N;$$!N;$$!N;s/\n/ /g' am__uninstall_files_from_dir = { \ test -z "$$files" \ || { test ! -d "$$dir" && test ! -f "$$dir" && test ! -r "$$dir"; } \ || { echo " ( cd '$$dir' && rm -f" $$files ")"; \ $(am__cd) "$$dir" && rm -f $$files; }; \ } DISTFILES = $(DIST_COMMON) $(DIST_SOURCES) $(TEXINFOS) $(EXTRA_DIST) ACLOCAL = @ACLOCAL@ AG_PKG_CONFIG_PATH = @AG_PKG_CONFIG_PATH@ AMTAR = @AMTAR@ API_VERSION = @API_VERSION@ AR = @AR@ ATK_CFLAGS = @ATK_CFLAGS@ ATK_LIBS = @ATK_LIBS@ AUTOCONF = @AUTOCONF@ AUTOHEADER = @AUTOHEADER@ AUTOMAKE = @AUTOMAKE@ AWK = @AWK@ BONOBO_IDL_DIR = @BONOBO_IDL_DIR@ CANVAS_CFLAGS = @CANVAS_CFLAGS@ CANVAS_LIBS = @CANVAS_LIBS@ CC = @CC@ CCDEPMODE = @CCDEPMODE@ CFLAGS = @CFLAGS@ CORBA_CFLAGS = @CORBA_CFLAGS@ CORBA_LIBS = @CORBA_LIBS@ CPP = @CPP@ CPPFLAGS = @CPPFLAGS@ CYGPATH_W = @CYGPATH_W@ DEFS = @DEFS@ DEPDIR = @DEPDIR@ DLLTOOL = @DLLTOOL@ DSYMUTIL = @DSYMUTIL@ DUMPBIN = @DUMPBIN@ ECHO_C = @ECHO_C@ ECHO_N = @ECHO_N@ ECHO_T = @ECHO_T@ EGREP = @EGREP@ EXEEXT = @EXEEXT@ FGREP = @FGREP@ GCONF_CFLAGS = @GCONF_CFLAGS@ GCONF_LIBS = @GCONF_LIBS@ GDK_CFLAGS = @GDK_CFLAGS@ GDK_LIBS = @GDK_LIBS@ GDK_PIXBUF_CFLAGS = @GDK_PIXBUF_CFLAGS@ GDK_PIXBUF_LIBS = @GDK_PIXBUF_LIBS@ GLIB_CFLAGS = @GLIB_CFLAGS@ GLIB_LIBS = @GLIB_LIBS@ GNOMEUI_DEPRECATION_FLAGS = @GNOMEUI_DEPRECATION_FLAGS@ GNOME_VFS_CFLAGS = @GNOME_VFS_CFLAGS@ GNOME_VFS_DEPRECATED_CFLAGS = @GNOME_VFS_DEPRECATED_CFLAGS@ GNOME_VFS_LIBS = @GNOME_VFS_LIBS@ GOBJECT_CFLAGS = @GOBJECT_CFLAGS@ GOBJECT_LIBS = @GOBJECT_LIBS@ GREP = @GREP@ GTHREAD_CFLAGS = @GTHREAD_CFLAGS@ GTHREAD_LIBS = @GTHREAD_LIBS@ GTK_CFLAGS = @GTK_CFLAGS@ GTK_DEPRECATED_CFLAGS = @GTK_DEPRECATED_CFLAGS@ GTK_LIBS = @GTK_LIBS@ GUILE_CAIRO_CFLAGS = @GUILE_CAIRO_CFLAGS@ GUILE_CAIRO_LIBS = @GUILE_CAIRO_LIBS@ GUILE_CFLAGS = @GUILE_CFLAGS@ GUILE_EFFECTIVE_VERSION = @GUILE_EFFECTIVE_VERSION@ GUILE_GLIB_CFLAGS = @GUILE_GLIB_CFLAGS@ GUILE_GLIB_LIBS = @GUILE_GLIB_LIBS@ GUILE_LIBS = @GUILE_LIBS@ G_WRAP_CFLAGS = @G_WRAP_CFLAGS@ G_WRAP_LIBS = @G_WRAP_LIBS@ G_WRAP_LIB_DIR = @G_WRAP_LIB_DIR@ G_WRAP_MODULE_DIR = @G_WRAP_MODULE_DIR@ INSTALL = @INSTALL@ INSTALL_DATA = @INSTALL_DATA@ INSTALL_PROGRAM = @INSTALL_PROGRAM@ INSTALL_SCRIPT = @INSTALL_SCRIPT@ INSTALL_STRIP_PROGRAM = @INSTALL_STRIP_PROGRAM@ LD = @LD@ LDFLAGS = @LDFLAGS@ LIBGLADE_CFLAGS = @LIBGLADE_CFLAGS@ LIBGLADE_LIBS = @LIBGLADE_LIBS@ LIBGNOMEUI_CFLAGS = @LIBGNOMEUI_CFLAGS@ LIBGNOMEUI_LIBS = @LIBGNOMEUI_LIBS@ LIBGNOME_CFLAGS = @LIBGNOME_CFLAGS@ LIBGNOME_LIBS = @LIBGNOME_LIBS@ LIBOBJS = @LIBOBJS@ LIBS = @LIBS@ LIBTOOL = @LIBTOOL@ LIPO = @LIPO@ LN_S = @LN_S@ LTLIBOBJS = @LTLIBOBJS@ MAKEINFO = @MAKEINFO@ MANIFEST_TOOL = @MANIFEST_TOOL@ MKDIR_P = @MKDIR_P@ NM = @NM@ NMEDIT = @NMEDIT@ OBJDUMP = @OBJDUMP@ OBJEXT = @OBJEXT@ ORBIT_IDL = @ORBIT_IDL@ OTOOL = @OTOOL@ OTOOL64 = @OTOOL64@ PACKAGE = @PACKAGE@ PACKAGE_BUGREPORT = @PACKAGE_BUGREPORT@ PACKAGE_NAME = @PACKAGE_NAME@ PACKAGE_STRING = @PACKAGE_STRING@ PACKAGE_TARNAME = @PACKAGE_TARNAME@ PACKAGE_URL = @PACKAGE_URL@ PACKAGE_VERSION = @PACKAGE_VERSION@ PANGOCAIRO_CFLAGS = @PANGOCAIRO_CFLAGS@ PANGOCAIRO_LIBS = @PANGOCAIRO_LIBS@ PANGO_CFLAGS = @PANGO_CFLAGS@ PANGO_LIBS = @PANGO_LIBS@ PATH_SEPARATOR = @PATH_SEPARATOR@ PKG_CONFIG = @PKG_CONFIG@ PKG_CONFIG_LIBDIR = @PKG_CONFIG_LIBDIR@ PKG_CONFIG_PATH = @PKG_CONFIG_PATH@ RANLIB = @RANLIB@ SED = @SED@ SET_MAKE = @SET_MAKE@ SHELL = @SHELL@ STRIP = @STRIP@ VERSION = @VERSION@ WARN_CFLAGS = @WARN_CFLAGS@ abs_builddir = @abs_builddir@ abs_srcdir = @abs_srcdir@ abs_top_builddir = @abs_top_builddir@ abs_top_srcdir = @abs_top_srcdir@ ac_ct_AR = @ac_ct_AR@ ac_ct_CC = @ac_ct_CC@ ac_ct_DUMPBIN = @ac_ct_DUMPBIN@ am__include = @am__include@ am__leading_dot = @am__leading_dot@ am__quote = @am__quote@ am__tar = @am__tar@ am__untar = @am__untar@ bindir = @bindir@ build = @build@ build_alias = @build_alias@ build_cpu = @build_cpu@ build_os = @build_os@ build_vendor = @build_vendor@ builddir = @builddir@ datadir = @datadir@ datarootdir = @datarootdir@ docdir = @docdir@ dvidir = @dvidir@ exec_prefix = @exec_prefix@ host = @host@ host_alias = @host_alias@ host_cpu = @host_cpu@ host_os = @host_os@ host_vendor = @host_vendor@ htmldir = @htmldir@ includedir = @includedir@ infodir = @infodir@ install_sh = @install_sh@ libdir = @libdir@ libexecdir = @libexecdir@ localedir = @localedir@ localstatedir = @localstatedir@ mandir = @mandir@ mkdir_p = @mkdir_p@ oldincludedir = @oldincludedir@ pdfdir = @pdfdir@ prefix = @prefix@ program_transform_name = @program_transform_name@ psdir = @psdir@ sbindir = @sbindir@ sharedstatedir = @sharedstatedir@ srcdir = @srcdir@ sysconfdir = @sysconfdir@ target_alias = @target_alias@ top_build_prefix = @top_build_prefix@ top_builddir = @top_builddir@ top_srcdir = @top_srcdir@ wrapset_module = (gnome gw $(wrapset_stem)-spec) wrapset_name = gnome-$(wrapset_stem) GTK_DOC_TO_TEXI_STUBS = '((@ (gnome gw support gtk-doc) gtk-doc->texi-stubs) (cdr (program-arguments)))' GTK_DOC_DEFUN_HEURISTICS_METHOD = heuristics GTK_DOC_DEFUN_HEURISTICS_ARGS = (your-module-here) GTK_DOC_DEFUN_GWRAP_METHOD = g-wrap GTK_DOC_DEFUN_GWRAP_ARGS = $(wrapset_module) $(wrapset_name) GTK_DOC_DEFUN_METHOD = $(GTK_DOC_DEFUN_GWRAP_METHOD) GTK_DOC_DEFUN_ARGS = $(GTK_DOC_DEFUN_GWRAP_ARGS) GTK_DOC_TO_TEXI_DEFUNS = "(apply (@ (gnome gw support gtk-doc) gtk-doc->texi-defuns) (cadr (program-arguments)) '$(GTK_DOC_DEFUN_METHOD) '($(GTK_DOC_DEFUN_ARGS)) (cddr (program-arguments)))" GTK_DOC_COVERAGE_MODULES = (gnome $(wrapset_stem)) (gnome gw $(wrapset_stem)) GTK_DOC_COVERAGE_TEXI = $(info_TEXINFOS) GTK_DOC_CHECK_COVERAGE = "((@ (gnome gw support gtk-doc) check-documentation-coverage) '($(GTK_DOC_COVERAGE_MODULES)) \"$(GTK_DOC_COVERAGE_TEXI)\")" GTK_DOC_GENERATE_UNDOCUMENTED = "((@ (gnome gw support gtk-doc) generate-undocumented-texi) '($(GTK_DOC_COVERAGE_MODULES)) \"$(GTK_DOC_COVERAGE_TEXI)\")" GUILE = $(top_builddir)/dev-environ guile docbook_xml_wildcard = ~/src/gnome2/gtk+/docs/reference/gtk/xml/*.xml docbook_xml_except = \ %glossary.xml \ %gtkbindings.xml \ %gtkclist.xml \ %gtkcombo.xml \ %gtkctree.xml \ %gtkenums.xml \ %gtkgc.xml \ %gtkitemfactory.xml \ %gtklistitem.xml \ %gtklist.xml \ %gtkoldeditable.xml \ %gtkoptionmenu.xml \ %gtkpagesetupunixdialog.xml \ %gtkpixmap.xml \ %gtkpreview.xml \ %gtkprinter.xml \ %gtkprintjob.xml \ %gtkprintunixdialog.xml \ %gtkprogress.xml \ %gtksignal.xml \ %gtktext.xml \ %gtkthemes.xml \ %gtktipsquery.xml \ %gtktreeitem.xml \ %gtktree.xml \ %gtktypeutils.xml docbook_xml_files = $(filter-out $(docbook_xml_except),$(wildcard $(docbook_xml_wildcard))) wrapset_stem = gtk EXTRA_DIST = overrides.texi info_TEXINFOS = guile-gnome-gtk.texi guile_gnome_gtk_TEXINFOS = overview.texi $(wildcard section-*.texi) $(wildcard defuns-*.texi) undocumented.texi all: all-am .SUFFIXES: .SUFFIXES: .dvi .html .info .pdf .ps .texi $(srcdir)/Makefile.in: $(srcdir)/Makefile.am $(top_srcdir)/generate-docs.mk $(am__configure_deps) @for dep in $?; do \ case '$(am__configure_deps)' in \ *$$dep*) \ ( cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh ) \ && { if test -f $@; then exit 0; else break; fi; }; \ exit 1;; \ esac; \ done; \ echo ' cd $(top_srcdir) && $(AUTOMAKE) --gnu gtk/doc/gtk/Makefile'; \ $(am__cd) $(top_srcdir) && \ $(AUTOMAKE) --gnu gtk/doc/gtk/Makefile .PRECIOUS: Makefile Makefile: $(srcdir)/Makefile.in $(top_builddir)/config.status @case '$?' in \ *config.status*) \ cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh;; \ *) \ echo ' cd $(top_builddir) && $(SHELL) ./config.status $(subdir)/$@ $(am__depfiles_maybe)'; \ cd $(top_builddir) && $(SHELL) ./config.status $(subdir)/$@ $(am__depfiles_maybe);; \ esac; $(top_srcdir)/generate-docs.mk: $(top_builddir)/config.status: $(top_srcdir)/configure $(CONFIG_STATUS_DEPENDENCIES) cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh $(top_srcdir)/configure: $(am__configure_deps) cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh $(ACLOCAL_M4): $(am__aclocal_m4_deps) cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh $(am__aclocal_m4_deps): mostlyclean-libtool: -rm -f *.lo clean-libtool: -rm -rf .libs _libs .texi.info: restore=: && backupdir="$(am__leading_dot)am$$$$" && \ am__cwd=`pwd` && $(am__cd) $(srcdir) && \ rm -rf $$backupdir && mkdir $$backupdir && \ if ($(MAKEINFO) --version) >/dev/null 2>&1; then \ for f in $@ $@-[0-9] $@-[0-9][0-9] $(@:.info=).i[0-9] $(@:.info=).i[0-9][0-9]; do \ if test -f $$f; then mv $$f $$backupdir; restore=mv; else :; fi; \ done; \ else :; fi && \ cd "$$am__cwd"; \ if $(MAKEINFO) $(AM_MAKEINFOFLAGS) $(MAKEINFOFLAGS) -I $(srcdir) \ -o $@ $<; \ then \ rc=0; \ $(am__cd) $(srcdir); \ else \ rc=$$?; \ $(am__cd) $(srcdir) && \ $$restore $$backupdir/* `echo "./$@" | sed 's|[^/]*$$||'`; \ fi; \ rm -rf $$backupdir; exit $$rc .texi.dvi: TEXINPUTS="$(am__TEXINFO_TEX_DIR)$(PATH_SEPARATOR)$$TEXINPUTS" \ MAKEINFO='$(MAKEINFO) $(AM_MAKEINFOFLAGS) $(MAKEINFOFLAGS) -I $(srcdir)' \ $(TEXI2DVI) $< .texi.pdf: TEXINPUTS="$(am__TEXINFO_TEX_DIR)$(PATH_SEPARATOR)$$TEXINPUTS" \ MAKEINFO='$(MAKEINFO) $(AM_MAKEINFOFLAGS) $(MAKEINFOFLAGS) -I $(srcdir)' \ $(TEXI2PDF) $< .texi.html: rm -rf $(@:.html=.htp) if $(MAKEINFOHTML) $(AM_MAKEINFOHTMLFLAGS) $(MAKEINFOFLAGS) -I $(srcdir) \ -o $(@:.html=.htp) $<; \ then \ rm -rf $@; \ if test ! -d $(@:.html=.htp) && test -d $(@:.html=); then \ mv $(@:.html=) $@; else mv $(@:.html=.htp) $@; fi; \ else \ if test ! -d $(@:.html=.htp) && test -d $(@:.html=); then \ rm -rf $(@:.html=); else rm -Rf $(@:.html=.htp) $@; fi; \ exit 1; \ fi $(srcdir)/guile-gnome-gtk.info: guile-gnome-gtk.texi $(srcdir)/version.texi $(guile_gnome_gtk_TEXINFOS) guile-gnome-gtk.dvi: guile-gnome-gtk.texi $(srcdir)/version.texi $(guile_gnome_gtk_TEXINFOS) guile-gnome-gtk.pdf: guile-gnome-gtk.texi $(srcdir)/version.texi $(guile_gnome_gtk_TEXINFOS) guile-gnome-gtk.html: guile-gnome-gtk.texi $(srcdir)/version.texi $(guile_gnome_gtk_TEXINFOS) $(srcdir)/version.texi: $(srcdir)/stamp-vti $(srcdir)/stamp-vti: guile-gnome-gtk.texi $(top_srcdir)/configure @(dir=.; test -f ./guile-gnome-gtk.texi || dir=$(srcdir); \ set `$(SHELL) $(top_srcdir)/build-aux/mdate-sh $$dir/guile-gnome-gtk.texi`; \ echo "@set UPDATED $$1 $$2 $$3"; \ echo "@set UPDATED-MONTH $$2 $$3"; \ echo "@set EDITION $(VERSION)"; \ echo "@set VERSION $(VERSION)") > vti.tmp @cmp -s vti.tmp $(srcdir)/version.texi \ || (echo "Updating $(srcdir)/version.texi"; \ cp vti.tmp $(srcdir)/version.texi) -@rm -f vti.tmp @cp $(srcdir)/version.texi $@ mostlyclean-vti: -rm -f vti.tmp maintainer-clean-vti: -rm -f $(srcdir)/stamp-vti $(srcdir)/version.texi .dvi.ps: TEXINPUTS="$(am__TEXINFO_TEX_DIR)$(PATH_SEPARATOR)$$TEXINPUTS" \ $(DVIPS) -o $@ $< uninstall-dvi-am: @$(NORMAL_UNINSTALL) @list='$(DVIS)'; test -n "$(dvidir)" || list=; \ for p in $$list; do \ $(am__strip_dir) \ echo " rm -f '$(DESTDIR)$(dvidir)/$$f'"; \ rm -f "$(DESTDIR)$(dvidir)/$$f"; \ done uninstall-html-am: @$(NORMAL_UNINSTALL) @list='$(HTMLS)'; test -n "$(htmldir)" || list=; \ for p in $$list; do \ $(am__strip_dir) \ echo " rm -rf '$(DESTDIR)$(htmldir)/$$f'"; \ rm -rf "$(DESTDIR)$(htmldir)/$$f"; \ done uninstall-info-am: @$(PRE_UNINSTALL) @if test -d '$(DESTDIR)$(infodir)' && $(am__can_run_installinfo); then \ list='$(INFO_DEPS)'; \ for file in $$list; do \ relfile=`echo "$$file" | sed 's|^.*/||'`; \ echo " install-info --info-dir='$(DESTDIR)$(infodir)' --remove '$(DESTDIR)$(infodir)/$$relfile'"; \ if install-info --info-dir="$(DESTDIR)$(infodir)" --remove "$(DESTDIR)$(infodir)/$$relfile"; \ then :; else test ! -f "$(DESTDIR)$(infodir)/$$relfile" || exit 1; fi; \ done; \ else :; fi @$(NORMAL_UNINSTALL) @list='$(INFO_DEPS)'; \ for file in $$list; do \ relfile=`echo "$$file" | sed 's|^.*/||'`; \ relfile_i=`echo "$$relfile" | sed 's|\.info$$||;s|$$|.i|'`; \ (if test -d "$(DESTDIR)$(infodir)" && cd "$(DESTDIR)$(infodir)"; then \ echo " cd '$(DESTDIR)$(infodir)' && rm -f $$relfile $$relfile-[0-9] $$relfile-[0-9][0-9] $$relfile_i[0-9] $$relfile_i[0-9][0-9]"; \ rm -f $$relfile $$relfile-[0-9] $$relfile-[0-9][0-9] $$relfile_i[0-9] $$relfile_i[0-9][0-9]; \ else :; fi); \ done uninstall-pdf-am: @$(NORMAL_UNINSTALL) @list='$(PDFS)'; test -n "$(pdfdir)" || list=; \ for p in $$list; do \ $(am__strip_dir) \ echo " rm -f '$(DESTDIR)$(pdfdir)/$$f'"; \ rm -f "$(DESTDIR)$(pdfdir)/$$f"; \ done uninstall-ps-am: @$(NORMAL_UNINSTALL) @list='$(PSS)'; test -n "$(psdir)" || list=; \ for p in $$list; do \ $(am__strip_dir) \ echo " rm -f '$(DESTDIR)$(psdir)/$$f'"; \ rm -f "$(DESTDIR)$(psdir)/$$f"; \ done dist-info: $(INFO_DEPS) @srcdirstrip=`echo "$(srcdir)" | sed 's|.|.|g'`; \ list='$(INFO_DEPS)'; \ for base in $$list; do \ case $$base in \ $(srcdir)/*) base=`echo "$$base" | sed "s|^$$srcdirstrip/||"`;; \ esac; \ if test -f $$base; then d=.; else d=$(srcdir); fi; \ base_i=`echo "$$base" | sed 's|\.info$$||;s|$$|.i|'`; \ for file in $$d/$$base $$d/$$base-[0-9] $$d/$$base-[0-9][0-9] $$d/$$base_i[0-9] $$d/$$base_i[0-9][0-9]; do \ if test -f $$file; then \ relfile=`expr "$$file" : "$$d/\(.*\)"`; \ test -f "$(distdir)/$$relfile" || \ cp -p $$file "$(distdir)/$$relfile"; \ else :; fi; \ done; \ done mostlyclean-aminfo: -rm -rf guile-gnome-gtk.aux guile-gnome-gtk.cp guile-gnome-gtk.cps \ guile-gnome-gtk.fn guile-gnome-gtk.fns guile-gnome-gtk.ky \ guile-gnome-gtk.kys guile-gnome-gtk.log guile-gnome-gtk.pg \ guile-gnome-gtk.pgs guile-gnome-gtk.tmp guile-gnome-gtk.toc \ guile-gnome-gtk.tp guile-gnome-gtk.tps guile-gnome-gtk.vr \ guile-gnome-gtk.vrs clean-aminfo: -test -z "guile-gnome-gtk.dvi guile-gnome-gtk.pdf guile-gnome-gtk.ps \ guile-gnome-gtk.html" \ || rm -rf guile-gnome-gtk.dvi guile-gnome-gtk.pdf guile-gnome-gtk.ps \ guile-gnome-gtk.html maintainer-clean-aminfo: @list='$(INFO_DEPS)'; for i in $$list; do \ i_i=`echo "$$i" | sed 's|\.info$$||;s|$$|.i|'`; \ echo " rm -f $$i $$i-[0-9] $$i-[0-9][0-9] $$i_i[0-9] $$i_i[0-9][0-9]"; \ rm -f $$i $$i-[0-9] $$i-[0-9][0-9] $$i_i[0-9] $$i_i[0-9][0-9]; \ done tags: TAGS TAGS: ctags: CTAGS CTAGS: distdir: $(DISTFILES) @srcdirstrip=`echo "$(srcdir)" | sed 's/[].[^$$\\*]/\\\\&/g'`; \ topsrcdirstrip=`echo "$(top_srcdir)" | sed 's/[].[^$$\\*]/\\\\&/g'`; \ list='$(DISTFILES)'; \ dist_files=`for file in $$list; do echo $$file; done | \ sed -e "s|^$$srcdirstrip/||;t" \ -e "s|^$$topsrcdirstrip/|$(top_builddir)/|;t"`; \ case $$dist_files in \ */*) $(MKDIR_P) `echo "$$dist_files" | \ sed '/\//!d;s|^|$(distdir)/|;s,/[^/]*$$,,' | \ sort -u` ;; \ esac; \ for file in $$dist_files; do \ if test -f $$file || test -d $$file; then d=.; else d=$(srcdir); fi; \ if test -d $$d/$$file; then \ dir=`echo "/$$file" | sed -e 's,/[^/]*$$,,'`; \ if test -d "$(distdir)/$$file"; then \ find "$(distdir)/$$file" -type d ! -perm -700 -exec chmod u+rwx {} \;; \ fi; \ if test -d $(srcdir)/$$file && test $$d != $(srcdir); then \ cp -fpR $(srcdir)/$$file "$(distdir)$$dir" || exit 1; \ find "$(distdir)/$$file" -type d ! -perm -700 -exec chmod u+rwx {} \;; \ fi; \ cp -fpR $$d/$$file "$(distdir)$$dir" || exit 1; \ else \ test -f "$(distdir)/$$file" \ || cp -p $$d/$$file "$(distdir)/$$file" \ || exit 1; \ fi; \ done $(MAKE) $(AM_MAKEFLAGS) \ top_distdir="$(top_distdir)" distdir="$(distdir)" \ dist-info check-am: all-am check: check-am all-am: Makefile $(INFO_DEPS) installdirs: for dir in "$(DESTDIR)$(infodir)"; do \ test -z "$$dir" || $(MKDIR_P) "$$dir"; \ done install: install-am install-exec: install-exec-am install-data: install-data-am uninstall: uninstall-am install-am: all-am @$(MAKE) $(AM_MAKEFLAGS) install-exec-am install-data-am installcheck: installcheck-am install-strip: if test -z '$(STRIP)'; then \ $(MAKE) $(AM_MAKEFLAGS) INSTALL_PROGRAM="$(INSTALL_STRIP_PROGRAM)" \ install_sh_PROGRAM="$(INSTALL_STRIP_PROGRAM)" INSTALL_STRIP_FLAG=-s \ install; \ else \ $(MAKE) $(AM_MAKEFLAGS) INSTALL_PROGRAM="$(INSTALL_STRIP_PROGRAM)" \ install_sh_PROGRAM="$(INSTALL_STRIP_PROGRAM)" INSTALL_STRIP_FLAG=-s \ "INSTALL_PROGRAM_ENV=STRIPPROG='$(STRIP)'" install; \ fi mostlyclean-generic: clean-generic: distclean-generic: -test -z "$(CONFIG_CLEAN_FILES)" || rm -f $(CONFIG_CLEAN_FILES) -test . = "$(srcdir)" || test -z "$(CONFIG_CLEAN_VPATH_FILES)" || rm -f $(CONFIG_CLEAN_VPATH_FILES) maintainer-clean-generic: @echo "This command is intended for maintainers to use" @echo "it deletes files that may require special tools to rebuild." clean: clean-am clean-am: clean-aminfo clean-generic clean-libtool mostlyclean-am distclean: distclean-am -rm -f Makefile distclean-am: clean-am distclean-generic dvi: dvi-am dvi-am: $(DVIS) html: html-am html-am: $(HTMLS) info: info-am info-am: $(INFO_DEPS) install-data-am: install-info-am install-dvi: install-dvi-am install-dvi-am: $(DVIS) @$(NORMAL_INSTALL) @list='$(DVIS)'; test -n "$(dvidir)" || list=; \ if test -n "$$list"; then \ echo " $(MKDIR_P) '$(DESTDIR)$(dvidir)'"; \ $(MKDIR_P) "$(DESTDIR)$(dvidir)" || exit 1; \ fi; \ for p in $$list; do \ if test -f "$$p"; then d=; else d="$(srcdir)/"; fi; \ echo "$$d$$p"; \ done | $(am__base_list) | \ while read files; do \ echo " $(INSTALL_DATA) $$files '$(DESTDIR)$(dvidir)'"; \ $(INSTALL_DATA) $$files "$(DESTDIR)$(dvidir)" || exit $$?; \ done install-exec-am: install-html: install-html-am install-html-am: $(HTMLS) @$(NORMAL_INSTALL) @list='$(HTMLS)'; list2=; test -n "$(htmldir)" || list=; \ if test -n "$$list"; then \ echo " $(MKDIR_P) '$(DESTDIR)$(htmldir)'"; \ $(MKDIR_P) "$(DESTDIR)$(htmldir)" || exit 1; \ fi; \ for p in $$list; do \ if test -f "$$p" || test -d "$$p"; then d=; else d="$(srcdir)/"; fi; \ $(am__strip_dir) \ d2=$$d$$p; \ if test -d "$$d2"; then \ echo " $(MKDIR_P) '$(DESTDIR)$(htmldir)/$$f'"; \ $(MKDIR_P) "$(DESTDIR)$(htmldir)/$$f" || exit 1; \ echo " $(INSTALL_DATA) '$$d2'/* '$(DESTDIR)$(htmldir)/$$f'"; \ $(INSTALL_DATA) "$$d2"/* "$(DESTDIR)$(htmldir)/$$f" || exit $$?; \ else \ list2="$$list2 $$d2"; \ fi; \ done; \ test -z "$$list2" || { echo "$$list2" | $(am__base_list) | \ while read files; do \ echo " $(INSTALL_DATA) $$files '$(DESTDIR)$(htmldir)'"; \ $(INSTALL_DATA) $$files "$(DESTDIR)$(htmldir)" || exit $$?; \ done; } install-info: install-info-am install-info-am: $(INFO_DEPS) @$(NORMAL_INSTALL) @srcdirstrip=`echo "$(srcdir)" | sed 's|.|.|g'`; \ list='$(INFO_DEPS)'; test -n "$(infodir)" || list=; \ if test -n "$$list"; then \ echo " $(MKDIR_P) '$(DESTDIR)$(infodir)'"; \ $(MKDIR_P) "$(DESTDIR)$(infodir)" || exit 1; \ fi; \ for file in $$list; do \ case $$file in \ $(srcdir)/*) file=`echo "$$file" | sed "s|^$$srcdirstrip/||"`;; \ esac; \ if test -f $$file; then d=.; else d=$(srcdir); fi; \ file_i=`echo "$$file" | sed 's|\.info$$||;s|$$|.i|'`; \ for ifile in $$d/$$file $$d/$$file-[0-9] $$d/$$file-[0-9][0-9] \ $$d/$$file_i[0-9] $$d/$$file_i[0-9][0-9] ; do \ if test -f $$ifile; then \ echo "$$ifile"; \ else : ; fi; \ done; \ done | $(am__base_list) | \ while read files; do \ echo " $(INSTALL_DATA) $$files '$(DESTDIR)$(infodir)'"; \ $(INSTALL_DATA) $$files "$(DESTDIR)$(infodir)" || exit $$?; done @$(POST_INSTALL) @if $(am__can_run_installinfo); then \ list='$(INFO_DEPS)'; test -n "$(infodir)" || list=; \ for file in $$list; do \ relfile=`echo "$$file" | sed 's|^.*/||'`; \ echo " install-info --info-dir='$(DESTDIR)$(infodir)' '$(DESTDIR)$(infodir)/$$relfile'";\ install-info --info-dir="$(DESTDIR)$(infodir)" "$(DESTDIR)$(infodir)/$$relfile" || :;\ done; \ else : ; fi install-man: install-pdf: install-pdf-am install-pdf-am: $(PDFS) @$(NORMAL_INSTALL) @list='$(PDFS)'; test -n "$(pdfdir)" || list=; \ if test -n "$$list"; then \ echo " $(MKDIR_P) '$(DESTDIR)$(pdfdir)'"; \ $(MKDIR_P) "$(DESTDIR)$(pdfdir)" || exit 1; \ fi; \ for p in $$list; do \ if test -f "$$p"; then d=; else d="$(srcdir)/"; fi; \ echo "$$d$$p"; \ done | $(am__base_list) | \ while read files; do \ echo " $(INSTALL_DATA) $$files '$(DESTDIR)$(pdfdir)'"; \ $(INSTALL_DATA) $$files "$(DESTDIR)$(pdfdir)" || exit $$?; done install-ps: install-ps-am install-ps-am: $(PSS) @$(NORMAL_INSTALL) @list='$(PSS)'; test -n "$(psdir)" || list=; \ if test -n "$$list"; then \ echo " $(MKDIR_P) '$(DESTDIR)$(psdir)'"; \ $(MKDIR_P) "$(DESTDIR)$(psdir)" || exit 1; \ fi; \ for p in $$list; do \ if test -f "$$p"; then d=; else d="$(srcdir)/"; fi; \ echo "$$d$$p"; \ done | $(am__base_list) | \ while read files; do \ echo " $(INSTALL_DATA) $$files '$(DESTDIR)$(psdir)'"; \ $(INSTALL_DATA) $$files "$(DESTDIR)$(psdir)" || exit $$?; done installcheck-am: maintainer-clean: maintainer-clean-am -rm -f Makefile maintainer-clean-am: distclean-am maintainer-clean-aminfo \ maintainer-clean-generic maintainer-clean-vti mostlyclean: mostlyclean-am mostlyclean-am: mostlyclean-aminfo mostlyclean-generic \ mostlyclean-libtool mostlyclean-vti pdf: pdf-am pdf-am: $(PDFS) ps: ps-am ps-am: $(PSS) uninstall-am: uninstall-dvi-am uninstall-html-am uninstall-info-am \ uninstall-pdf-am uninstall-ps-am .MAKE: install-am install-strip .PHONY: all all-am check check-am clean clean-aminfo clean-generic \ clean-libtool dist-info distclean distclean-generic \ distclean-libtool distdir dvi dvi-am html html-am info info-am \ install install-am install-data install-data-am install-dvi \ install-dvi-am install-exec install-exec-am install-html \ install-html-am install-info install-info-am install-man \ install-pdf install-pdf-am install-ps install-ps-am \ install-strip installcheck installcheck-am installdirs \ maintainer-clean maintainer-clean-aminfo \ maintainer-clean-generic maintainer-clean-vti mostlyclean \ mostlyclean-aminfo mostlyclean-generic mostlyclean-libtool \ mostlyclean-vti pdf pdf-am ps ps-am uninstall uninstall-am \ uninstall-dvi-am uninstall-html-am uninstall-info-am \ uninstall-pdf-am uninstall-ps-am generate-stubs: $(GUILE) $(GUILE_FLAGS) -c $(GTK_DOC_TO_TEXI_STUBS) $(docbook_xml_files) generate-defuns: $(GUILE) $(GUILE_FLAGS) -c $(GTK_DOC_TO_TEXI_DEFUNS) ./overrides.texi $(docbook_xml_files) check-coverage: $(GUILE) $(GUILE_FLAGS) -c $(GTK_DOC_CHECK_COVERAGE) generate-undocumented: rm -f undocumented.texi; touch undocumented.texi $(GUILE) $(GUILE_FLAGS) -c $(GTK_DOC_GENERATE_UNDOCUMENTED) generate-defuns: $(GUILE) $(GUILE_FLAGS) -c "(begin (debug-set! stack 400000) (apply (@ (gnome gw support gtk-doc) gtk-doc->texi-defuns) (cadr (program-arguments)) '$(GTK_DOC_DEFUN_METHOD) '($(GTK_DOC_DEFUN_ARGS)) (cddr (program-arguments))))" ./overrides.texi $(docbook_xml_files) # Tell versions [3.59,3.63) of GNU make to not export all variables. # Otherwise a system limit (for SysV at least) may be exceeded. .NOEXPORT: guile-gnome-platform-2.16.2/gtk/doc/gtk/defuns-gtkcellrenderertoggle.xml.texi0000644000175000017500000000610011670374302027635 0ustar00wingowingo00000000000000 @c %start of fragment @deftp Class Derives from @code{}. This class defines the following slots: @table @code @item activatable The toggle button can be activated @item active The toggle state of the button @item radio Draw the toggle button as a radio button @item inconsistent The inconsistent state of the button @item indicator-size Size of check or radio indicator @end table @end deftp @defop Signal toggled (arg0@tie{}@code{}) The ::toggled signal is emitted when the cell is toggled. @end defop @deffn Function gtk-cell-renderer-toggle-new @result{}@tie{} (ret@tie{}@code{}) Creates a new @code{}. Adjust rendering parameters using object properties. Object properties can be set globally (with @code{g-object-set}). Also, with @code{}, you can bind a property to a value in a @code{}. For example, you can bind the "active" property on the cell renderer to a boolean value in the model, thus causing the check button to reflect the state of the model. @table @var @item ret the new cell renderer @end table @end deffn @deffn Function gtk-cell-renderer-toggle-get-radio (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{bool}) @deffnx Method get-radio Returns whether we're rendering radio toggles rather than checkboxes. @table @var @item toggle a @code{} @item ret @samp{@code{#t}} if we're rendering radio toggles rather than checkboxes @end table @end deffn @deffn Function gtk-cell-renderer-toggle-set-radio (self@tie{}@code{}) (radio@tie{}@code{bool}) @deffnx Method set-radio If @var{radio} is @samp{@code{#t}}, the cell renderer renders a radio toggle (i.e. a toggle in a group of mutually-exclusive toggles). If @samp{@code{#f}}, it renders a check toggle (a standalone boolean option). This can be set globally for the cell renderer, or changed just before rendering each cell in the model (for @code{}, you set up a per-row setting using @code{} to associate model columns with cell renderer properties). @table @var @item toggle a @code{} @item radio @samp{@code{#t}} to make the toggle look like a radio button @end table @end deffn @deffn Function gtk-cell-renderer-toggle-get-active (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{bool}) @deffnx Method get-active Returns whether the cell renderer is active. See @code{gtk-cell-renderer-toggle-set-active}. @table @var @item toggle a @code{} @item ret @samp{@code{#t}} if the cell renderer is active. @end table @end deffn @deffn Function gtk-cell-renderer-toggle-set-active (self@tie{}@code{}) (setting@tie{}@code{bool}) @deffnx Method set-active Activates or deactivates a cell renderer. @table @var @item toggle a @code{}. @item setting the value to set. @end table @end deffn @c %end of fragment guile-gnome-platform-2.16.2/gtk/doc/gtk/section-gtkfontseldlg.xml.texi0000644000175000017500000000111011670374302026302 0ustar00wingowingo00000000000000 @c %start of fragment @node GtkFontSelectionDialog @chapter GtkFontSelectionDialog A dialog box for selecting fonts @section Overview The @code{} widget is a dialog box for selecting a font. To set the font which is initially selected, use @code{gtk-font-selection-dialog-set-font-name}. To get the selected font use @code{gtk-font-selection-dialog-get-font-name}. To change the text which is shown in the preview area, use @code{gtk-font-selection-dialog-set-preview-text}. @section Usage @include defuns-gtkfontseldlg.xml.texi @c %end of fragment guile-gnome-platform-2.16.2/gtk/doc/gtk/defuns-gtkmenuitem.xml.texi0000644000175000017500000001414711670374302025622 0ustar00wingowingo00000000000000 @c %start of fragment @deftp Class Derives from @code{}. This class defines the following slots: @table @code @item submenu The submenu attached to the menu item, or NULL if it has none @end table @end deftp @defop Signal activate Emitted when the item is activated. @end defop @defop Signal activate-item Emitted when the item is activated, but also if the menu item has a submenu. For normal applications, the relevant signal is "activate". @end defop @defop Signal toggle-size-request (arg0@tie{}@code{}) @end defop @defop Signal toggle-size-allocate (arg0@tie{}@code{}) @end defop @deffn Function gtk-menu-item-new @result{}@tie{} (ret@tie{}@code{}) Creates a new @code{}. @table @var @item ret the newly created @code{} @end table @end deffn @deffn Function gtk-menu-item-new-with-label (label@tie{}@code{mchars}) @result{}@tie{} (ret@tie{}@code{}) Creates a new @code{} whose child is a @code{}. @table @var @item label the text for the label @item ret the newly created @code{} @end table @end deffn @deffn Function gtk-menu-item-new-with-mnemonic (label@tie{}@code{mchars}) @result{}@tie{} (ret@tie{}@code{}) Creates a new @code{} containing a label. The label will be created using @code{gtk-label-new-with-mnemonic}, so underscores in @var{label} indicate the mnemonic for the menu item. @table @var @item label The text of the button, with an underscore in front of the mnemonic character @item ret a new @code{} @end table @end deffn @deffn Function gtk-menu-item-set-right-justified (self@tie{}@code{}) (right_justified@tie{}@code{bool}) @deffnx Method set-right-justified Sets whether the menu item appears justified at the right side of a menu bar. This was traditionally done for "Help" menu items, but is now considered a bad idea. (If the widget layout is reversed for a right-to-left language like Hebrew or Arabic, right-justified-menu-items appear at the left.) @table @var @item menu-item a @code{}. @item right-justified if @samp{@code{#t}} the menu item will appear at the far right if added to a menu bar. @end table @end deffn @deffn Function gtk-menu-item-set-submenu (self@tie{}@code{}) (submenu@tie{}@code{}) @deffnx Method set-submenu Sets the widget submenu, or changes it. @table @var @item menu-item the menu item widget @item submenu the submenu @end table @end deffn @deffn Function gtk-menu-item-set-accel-path (self@tie{}@code{}) (accel_path@tie{}@code{mchars}) @deffnx Method set-accel-path Set the accelerator path on @var{menu-item}, through which runtime changes of the menu item's accelerator caused by the user can be identified and saved to persistant storage (see @code{gtk-accel-map-save} on this). To setup a default accelerator for this menu item, call @code{gtk-accel-map-add-entry} with the same @var{accel-path}. See also @code{gtk-accel-map-add-entry} on the specifics of accelerator paths, and @code{gtk-menu-set-accel-path} for a more convenient variant of this function. This function is basically a convenience wrapper that handles calling @code{gtk-widget-set-accel-path} with the appropriate accelerator group for the menu item. Note that you do need to set an accelerator on the parent menu with @code{gtk-menu-set-accel-group} for this to work. @table @var @item menu-item a valid @code{} @item accel-path accelerator path, corresponding to this menu item's functionality, or @samp{@code{#f}} to unset the current path. @end table @end deffn @deffn Function gtk-menu-item-remove-submenu (self@tie{}@code{}) @deffnx Method remove-submenu Removes the widget's submenu. @table @var @item menu-item the menu item widget @end table @end deffn @deffn Function gtk-menu-item-select (self@tie{}@code{}) @deffnx Method select Emits the "select" signal on the given item. Behaves exactly like @code{}. @table @var @item menu-item the menu item @end table @end deffn @deffn Function gtk-menu-item-deselect (self@tie{}@code{}) @deffnx Method deselect Emits the "deselect" signal on the given item. Behaves exactly like @code{}. @table @var @item menu-item the menu item @end table @end deffn @deffn Function gtk-menu-item-activate (self@tie{}@code{}) @deffnx Method activate Emits the "activate" signal on the given item @table @var @item menu-item the menu item @end table @end deffn @deffn Function gtk-menu-item-toggle-size-request (self@tie{}@code{}) @result{}@tie{} (requisition@tie{}@code{int}) @deffnx Method toggle-size-request Emits the "toggle_size_request" signal on the given item. @table @var @item menu-item the menu item @item requisition the requisition to use as signal data. @end table @end deffn @deffn Function gtk-menu-item-toggle-size-allocate (self@tie{}@code{}) (allocation@tie{}@code{int}) @deffnx Method toggle-size-allocate Emits the "toggle_size_allocate" signal on the given item. @table @var @item menu-item the menu item. @item allocation the allocation to use as signal data. @end table @end deffn @deffn Function gtk-menu-item-get-right-justified (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{bool}) @deffnx Method get-right-justified Gets whether the menu item appears justified at the right side of the menu bar. @table @var @item menu-item a @code{} @item ret @samp{@code{#t}} if the menu item will appear at the far right if added to a menu bar. @end table @end deffn @deffn Function gtk-menu-item-get-submenu (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{}) @deffnx Method get-submenu Gets the submenu underneath this menu item, if any. See @code{gtk-menu-item-set-submenu}. @table @var @item menu-item a @code{} @item ret submenu for this menu item, or @samp{@code{#f}} if none. @end table @end deffn @c %end of fragment guile-gnome-platform-2.16.2/gtk/doc/gtk/defuns-gtkcellrenderer.xml.texi0000644000175000017500000001711111670374302026437 0ustar00wingowingo00000000000000 @c %start of fragment @deftp Class Derives from @code{}. This class defines the following slots: @table @code @item mode Editable mode of the CellRenderer @item visible Display the cell @item sensitive Display the cell sensitive @item xalign The x-align @item yalign The y-align @item xpad The xpad @item ypad The ypad @item width The fixed width @item height The fixed height @item is-expander Row has children @item is-expanded Row is an expander row, and is expanded @item cell-background Cell background color as a string @item cell-background-gdk Cell background color as a GdkColor @item cell-background-set Whether this tag affects the cell background color @end table @end deftp @defop Signal editing-canceled This signal gets emitted when the user cancels the process of editing a cell. For example, an editable cell renderer could be written to cancel editing when the user presses Escape. See also: @code{gtk-cell-renderer-editing-canceled} Since 2.4 @end defop @defop Signal editing-started (arg0@tie{}@code{}) (arg1@tie{}@code{}) This signal gets emitted when a cell starts to be edited. The indended use of this signal is to do special setup on @var{editable}, e.g. adding a @code{} or setting up additional columns in a @code{}. Note that GTK+ doesn't guarantee that cell renderers will continue to use the same kind of widget for editing in future releases, therefore you should check the type of @var{editable} before doing any specific setup, as in the following example: @example static void text_editing_started (GtkCellRenderer *cell, GtkCellEditable *editable, const gchar *path, gpointer data) @{ if (GTK_IS_ENTRY (editable)) @{ GtkEntry *entry = GTK_ENTRY (editable); /* ... create a GtkEntryCompletion */ gtk_entry_set_completion (entry, completion); @} @} @end example Since 2.6 @end defop @deffn Function gtk-cell-renderer-render (self@tie{}@code{}) (window@tie{}@code{}) (widget@tie{}@code{}) (background_area@tie{}@code{}) (cell_area@tie{}@code{}) (expose_area@tie{}@code{}) (flags@tie{}@code{}) @deffnx Method render Invokes the virtual render function of the @code{}. The three passed-in rectangles are areas of @var{window}. Most renderers will draw within @var{cell-area}; the xalign, yalign, xpad, and ypad fields of the @code{} should be honored with respect to @var{cell-area}. @var{background-area} includes the blank space around the cell, and also the area containing the tree expander; so the @var{background-area} rectangles for all cells tile to cover the entire @var{window}. @var{expose-area} is a clip rectangle. @table @var @item cell a @code{} @item window a @code{} to draw to @item widget the widget owning @var{window} @item background-area entire cell area (including tree expanders and maybe padding on the sides) @item cell-area area normally rendered by a cell renderer @item expose-area area that actually needs updating @item flags flags that affect rendering @end table @end deffn @deffn Function gtk-cell-renderer-activate (self@tie{}@code{}) (event@tie{}@code{}) (widget@tie{}@code{}) (path@tie{}@code{mchars}) (background_area@tie{}@code{}) (cell_area@tie{}@code{}) (flags@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{bool}) @deffnx Method activate Passes an activate event to the cell renderer for possible processing. Some cell renderers may use events; for example, @code{} toggles when it gets a mouse click. @table @var @item cell a @code{} @item event a @code{} @item widget widget that received the event @item path widget-dependent string representation of the event location; e.g. for @code{}, a string representation of @code{} @item background-area background area as passed to @var{gtk-cell-renderer-render} @item cell-area cell area as passed to @var{gtk-cell-renderer-render} @item flags render flags @item ret @samp{@code{#t}} if the event was consumed/handled @end table @end deffn @deffn Function gtk-cell-renderer-start-editing (self@tie{}@code{}) (event@tie{}@code{}) (widget@tie{}@code{}) (path@tie{}@code{mchars}) (background_area@tie{}@code{}) (cell_area@tie{}@code{}) (flags@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{}) @deffnx Method start-editing Passes an activate event to the cell renderer for possible processing. @table @var @item cell a @code{} @item event a @code{} @item widget widget that received the event @item path widget-dependent string representation of the event location; e.g. for @code{}, a string representation of @code{} @item background-area background area as passed to @var{gtk-cell-renderer-render} @item cell-area cell area as passed to @var{gtk-cell-renderer-render} @item flags render flags @item ret A new @code{}, or @samp{@code{#f}} @end table @end deffn @deffn Function gtk-cell-renderer-editing-canceled (self@tie{}@code{}) @deffnx Method editing-canceled @samp{gtk_cell_renderer_editing_canceled} has been deprecated since version 2.6 and should not be used in newly-written code. Use @code{gtk-cell-renderer-stop-editing} instead Causes the cell renderer to emit the "editing-canceled" signal. This function is for use only by implementations of cell renderers that need to notify the client program that an editing process was canceled and the changes were not committed. @table @var @item cell A @code{} @end table Since 2.4 @end deffn @deffn Function gtk-cell-renderer-stop-editing (self@tie{}@code{}) (canceled@tie{}@code{bool}) @deffnx Method stop-editing Informs the cell renderer that the editing is stopped. If @var{canceled} is @samp{@code{#t}}, the cell renderer will emit the "editing-canceled" signal. This function should be called by cell renderer implementations in response to the "editing-done" signal of @code{}. @table @var @item cell A @code{} @item canceled @samp{@code{#t}} if the editing has been canceled @end table Since 2.6 @end deffn @deffn Function gtk-cell-renderer-get-fixed-size (self@tie{}@code{}) @result{}@tie{} (width@tie{}@code{int}) (height@tie{}@code{int}) @deffnx Method get-fixed-size Fills in @var{width} and @var{height} with the appropriate size of @var{cell}. @table @var @item cell A @code{} @item width location to fill in with the fixed width of the widget, or @samp{@code{#f}} @item height location to fill in with the fixed height of the widget, or @samp{@code{#f}} @end table @end deffn @deffn Function gtk-cell-renderer-set-fixed-size (self@tie{}@code{}) (width@tie{}@code{int}) (height@tie{}@code{int}) @deffnx Method set-fixed-size Sets the renderer size to be explicit, independent of the properties set. @table @var @item cell A @code{} @item width the width of the cell renderer, or -1 @item height the height of the cell renderer, or -1 @end table @end deffn @c %end of fragment guile-gnome-platform-2.16.2/gtk/doc/gtk/guile-gnome-gtk.texi0000644000175000017500000004673211670374302024210 0ustar00wingowingo00000000000000\input texinfo @c -*-texinfo-*- @c %**start of header @setfilename guile-gnome-gtk.info @settitle Guile-Gtk @c %**end of header @include version.texi @copying This manual is for @code{(gnome gtk)} (version @value{VERSION}, updated @value{UPDATED}) Copyright 1997-2007 Damon Chaplin and others @c from gtk+/docs/reference/COPYING @quotation This work may be reproduced and distributed in whole or in part, in any medium, physical or electronic, so as long as this copyright notice remains intact and unchanged on all copies. Commercial redistribution is permitted and encouraged, but you may not redistribute, in whole or in part, under terms more restrictive than those under which you received it. If you redistribute a modified or translated version of this work, you must also make the source code to the modified or translated version available in electronic form without charge. However, mere aggregation as part of a larger work shall not count as a modification for this purpose. All code examples in this work are placed into the public domain, and may be used, modified and redistributed without restriction. BECAUSE THIS WORK IS LICENSED FREE OF CHARGE, THERE IS NO WARRANTY FOR THE WORK, TO THE EXTENT PERMITTED BY APPLICABLE LAW. EXCEPT WHEN OTHERWISE STATED IN WRITING THE COPYRIGHT HOLDERS AND/OR OTHER PARTIES PROVIDE THE WORK "AS IS" WITHOUT WARRANTY OF ANY KIND, EITHER EXPRESSED OR IMPLIED, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE. SHOULD THE WORK PROVE DEFECTIVE, YOU ASSUME THE COST OF ALL NECESSARY REPAIR OR CORRECTION. IN NO EVENT UNLESS REQUIRED BY APPLICABLE LAW OR AGREED TO IN WRITING WILL ANY COPYRIGHT HOLDER, OR ANY OTHER PARTY WHO MAY MODIFY AND/OR REDISTRIBUTE THE WORK AS PERMITTED ABOVE, BE LIABLE TO YOU FOR DAMAGES, INCLUDING ANY GENERAL, SPECIAL, INCIDENTAL OR CONSEQUENTIAL DAMAGES ARISING OUT OF THE USE OR INABILITY TO USE THE WORK, EVEN IF SUCH HOLDER OR OTHER PARTY HAS BEEN ADVISED OF THE POSSIBILITY OF SUCH DAMAGES. @end quotation @end copying @dircategory The Algorithmic Language Scheme @direntry * Guile-Gtk: (guile-gnome-gtk.info). The GIMP ToolKit. @end direntry @titlepage @title Guile-GNOME: Gtk @subtitle version @value{VERSION}, updated @value{UPDATED} @author Damon Chaplin @author many others @page @vskip 0pt plus 1filll @insertcopying @end titlepage @ifnottex @node Top @top Guile-Gtk @insertcopying @menu * Overview:: Overview Windows * GtkDialog:: Create popup windows * GtkInvisible:: A widget which is not displayed * GtkMessageDialog:: A convenient message window * GtkWindow:: Toplevel which can contain other widgets * GtkWindowGroup:: Limit the effect of grabs * GtkAboutDialog:: Display information about an application * GtkAssistant:: A widget used to guide users through multi-step operations Display Widgets * GtkAccelLabel:: A label which displays an accelerator key on the right of the text * GtkImage:: A widget displaying an image * GtkLabel:: A widget that displays a small to medium amount of text * GtkProgressBar:: A widget which indicates progress visually * GtkStatusbar:: Report messages of minor importance to the user * GtkStatusIcon:: Display an icon in the system tray Buttons and Toggles * GtkButton:: A widget that creates a signal when clicked on * GtkCheckButton:: Create widgets with a discrete toggle button * GtkRadioButton:: A choice from multiple check buttons * GtkToggleButton:: Create buttons which retain their state * GtkLinkButton:: Create buttons bound to a URL Numeric/Text Data Entry * GtkEntry:: A single line text entry field * GtkEntryCompletion:: Completion functionality for GtkEntry * GtkHScale:: A horizontal slider widget for selecting a value from a range * GtkVScale:: A vertical slider widget for selecting a value from a range * GtkSpinButton:: Retrieve an integer or floating-point number from the user * GtkEditable:: Interface for text-editing widgets Multiline Text Editor * GtkTextIter:: Text buffer iterator * GtkTextMark:: A position in the buffer preserved across buffer modifications * GtkTextBuffer:: Stores attributed text for display in a GtkTextView * GtkTextTag:: A tag that can be applied to text in a GtkTextBuffer * GtkTextTagTable:: Collection of tags that can be used together * GtkTextView:: Widget that displays a GtkTextBuffer Tree, List and Icon Grid Widgets * GtkTreeModel:: The tree interface used by GtkTreeView * GtkTreeSelection:: The selection object for GtkTreeView * GtkTreeViewColumn:: A visible column in a GtkTreeView widget * GtkTreeView:: A widget for displaying both trees and lists * GtkTreeView drag-and-drop:: Interfaces for drag-and-drop support in GtkTreeView * GtkCellView:: A widget displaying a single row of a GtkTreeModel * GtkIconView:: A widget which displays a list of icons in a grid * GtkTreeSortable:: The interface for sortable models used by GtkTreeView * GtkTreeModelSort:: A GtkTreeModel which makes an underlying tree model sortable * GtkTreeModelFilter:: A GtkTreeModel which hides parts of an underlying tree model * GtkCellLayout:: An interface for packing cells * GtkCellRenderer:: An object for rendering a single cell on a GdkDrawable * GtkCellEditable:: Interface for widgets which can are used for editing cells * GtkCellRendererAccel:: Renders a keyboard accelerator in a cell * GtkCellRendererCombo:: Renders a combobox in a cell * GtkCellRendererPixbuf:: Renders a pixbuf in a cell * GtkCellRendererProgress:: Renders numbers as progress bars * GtkCellRendererSpin:: Renders a spin button in a cell * GtkCellRendererText:: Renders text in a cell * GtkCellRendererToggle:: Renders a toggle button in a cell * GtkListStore:: A list-like data structure that can be used with the GtkTreeView * GtkTreeStore:: A tree-like data structure that can be used with the GtkTreeView Menus, Combo Box, Toolbar * GtkComboBox:: A widget used to choose from a list of items * GtkComboBoxEntry:: A text entry field with a dropdown list * GtkMenu:: A menu widget * GtkMenuBar:: A subclass widget for GtkMenuShell which holds GtkMenuItem widgets * GtkMenuItem:: The widget used for item in menus * GtkMenuShell:: A base class for menu objects * GtkImageMenuItem:: A menu item with an icon * GtkRadioMenuItem:: A choice from multiple check menu items * GtkCheckMenuItem:: A menu item with a check box * GtkSeparatorMenuItem:: A separator used in menus * GtkTearoffMenuItem:: A menu item used to tear off and reattach its menu * GtkToolbar:: Create bars of buttons and other widgets * GtkToolItem:: The base class of widgets that can be added to GtkToolbar * GtkSeparatorToolItem:: A toolbar item that separates groups of other toolbar items * GtkToolButton:: A GtkToolItem subclass that displays buttons * GtkMenuToolButton:: A GtkToolItem containing a button with an additional dropdown menu * GtkToggleToolButton:: A GtkToolItem containing a toggle button * GtkRadioToolButton:: A toolbar item that contains a radio button Action-based menus and toolbars * GtkUIManager:: Constructing menus and toolbars from an XML description * GtkActionGroup:: A group of actions * GtkAction:: An action which can be triggered by a menu or toolbar item * GtkToggleAction:: An action which can be toggled between two states * GtkRadioAction:: An action of which only one in a group can be active Selectors (File/Font/Color/Input Devices) * GtkColorButton:: A button to launch a color selection dialog * GtkColorSelection:: A widget used to select a color * GtkColorSelectionDialog:: A standard dialog box for selecting a color * GtkFileSelection:: Prompt the user for a file or directory name * GtkFileChooser:: File chooser interface used by GtkFileChooserWidget and GtkFileChooserDialog * GtkFileChooserButton:: A button to launch a file selection dialog * GtkFileChooserDialog:: A file chooser dialog, suitable for "File/Open" or "File/Save" commands * GtkFileChooserWidget:: File chooser widget that can be embedded in other widgets * GtkFileFilter:: A filter for selecting a file subset * GtkFontButton:: A button to launch a font selection dialog * GtkFontSelection:: A widget for selecting fonts * GtkFontSelectionDialog:: A dialog box for selecting fonts * GtkInputDialog:: Configure devices for the XInput extension Layout Containers * GtkAlignment:: A widget which controls the alignment and size of its child * GtkAspectFrame:: A frame that constrains its child to a particular aspect ratio * GtkHBox:: A horizontal container box * GtkVBox:: A vertical container box * GtkHButtonBox:: A container for arranging buttons horizontally * GtkVButtonBox:: A container for arranging buttons vertically * GtkFixed:: A container which allows you to position widgets at fixed coordinates * GtkHPaned:: A container with two panes arranged horizontally * GtkVPaned:: A container with two panes arranged vertically * GtkLayout:: Infinite scrollable area containing child widgets and/or custom drawing * GtkNotebook:: A tabbed notebook container * GtkTable:: Pack widgets in regular patterns * GtkExpander:: A container which can hide its child Ornaments * GtkFrame:: A bin with a decorative frame and optional label * GtkHSeparator:: A horizontal separator * GtkVSeparator:: A vertical separator Scrolling * GtkHScrollbar:: A horizontal scrollbar * GtkVScrollbar:: A vertical scrollbar * GtkScrolledWindow:: Adds scrollbars to its child widget Printing * GtkPrintOperation:: High-level Printing API * GtkPrintContext:: Encapsulates context for drawing pages * GtkPrintSettings:: Stores print settings * GtkPageSetup:: Stores page setup information * GtkPaperSize:: Support for named paper sizes Miscellaneous * GtkAdjustment:: A GtkObject representing an adjustable bounded value * GtkArrow:: Displays an arrow * GtkCalendar:: Displays a calendar and allows the user to select a date * GtkDrawingArea:: A widget for custom user interface elements * GtkEventBox:: A widget used to catch events for widgets which do not have their own window * GtkHandleBox:: a widget for detachable window portions * GtkIMContextSimple:: An input method context supporting table-based input methods * GtkIMMulticontext:: An input method context supporting multiple, loadable input methods * GtkSizeGroup:: Grouping widgets so they request the same size * GtkTooltips:: Add tips to your widgets * GtkViewport:: An adapter which makes widgets scrollable * GtkAccessible:: Accessibility support for widgets Abstract Base Classes * GtkBin:: A container with just one child * GtkBox:: Base class for box containers * GtkButtonBox:: Base class for GtkHButtonBox and GtkVButtonBox * GtkContainer:: Base class for widgets which contain other widgets * GtkItem:: Abstract base class for GtkMenuItem, GtkListItem and GtkTreeItem * GtkMisc:: Base class for widgets with alignments and padding * GtkObject:: The base class of the GTK+ type hierarchy * GtkPaned:: Base class for widgets with two adjustable panes * GtkRange:: Base class for widgets which visualize an adjustment * GtkScale:: Base class for GtkHScale and GtkVScale * GtkScrollbar:: Base class for GtkHScrollbar and GtkVScrollbar * GtkSeparator:: Base class for GtkHSeparator and GtkVSeparator * GtkWidget:: Base class for all widgets * GtkIMContext:: Base class for input method contexts Cross-process Embedding * GtkPlug:: Toplevel for embedding into other processes * GtkSocket:: Container for widgets from other processes Special-purpose features * GtkCurve:: Allows direct editing of a curve * GtkGammaCurve:: a subclass of GtkCurve for editing gamma curves. * GtkRuler:: Base class for horizontal or vertical rulers * GtkHRuler:: A horizontal ruler. * GtkVRuler:: A vertical ruler. Recently Used Documents * GtkRecentManager:: Managing Recently Used Files * GtkRecentChooser:: Interface implemented by GtkRecentChooserWidget, GtkRecentChooserMenu and GtkRecentChooserDialog * GtkRecentChooserDialog:: Displays recently used files in a dialog * GtkRecentChooserMenu:: Displays recently used files in a menu * GtkRecentChooserWidget:: Displays recently used files * GtkRecentFilter:: A filter for selecting a subset of recently used files * Undocumented:: Undocumented functions. * Type Index:: * Function Index:: @end menu @end ifnottex @iftex @shortcontents @end iftex @include overview.texi @include section-gtkdialog.xml.texi @include section-gtkinvisible.xml.texi @include section-gtkmessagedialog.xml.texi @include section-gtkwindow.xml.texi @include section-gtkwindowgroup.xml.texi @include section-gtkaboutdialog.xml.texi @include section-gtkassistant.xml.texi @c Display Widgets @include section-gtkaccellabel.xml.texi @include section-gtkimage.xml.texi @include section-gtklabel.xml.texi @include section-gtkprogressbar.xml.texi @include section-gtkstatusbar.xml.texi @include section-gtkstatusicon.xml.texi @c Buttons and Toggles @include section-gtkbutton.xml.texi @include section-gtkcheckbutton.xml.texi @include section-gtkradiobutton.xml.texi @include section-gtktogglebutton.xml.texi @include section-gtklinkbutton.xml.texi @c Numeric/Text Data Entry @include section-gtkentry.xml.texi @include section-gtkentrycompletion.xml.texi @include section-gtkhscale.xml.texi @include section-gtkvscale.xml.texi @include section-gtkspinbutton.xml.texi @include section-gtkeditable.xml.texi @c Multiline Text Editor @include section-gtktextiter.xml.texi @include section-gtktextmark.xml.texi @include section-gtktextbuffer.xml.texi @include section-gtktexttag.xml.texi @include section-gtktexttagtable.xml.texi @include section-gtktextview.xml.texi @c Tree, List and Icon Grid Widgets @include section-gtktreemodel.xml.texi @include section-gtktreeselection.xml.texi @include section-gtktreeviewcolumn.xml.texi @include section-gtktreeview.xml.texi @include section-gtktreednd.xml.texi @include section-gtkcellview.xml.texi @include section-gtkiconview.xml.texi @include section-gtktreesortable.xml.texi @include section-gtktreemodelsort.xml.texi @include section-gtktreemodelfilter.xml.texi @include section-gtkcelllayout.xml.texi @include section-gtkcellrenderer.xml.texi @include section-gtkcelleditable.xml.texi @include section-gtkcellrendereraccel.xml.texi @include section-gtkcellrenderercombo.xml.texi @include section-gtkcellrendererpixbuf.xml.texi @include section-gtkcellrendererprogress.xml.texi @include section-gtkcellrendererspin.xml.texi @include section-gtkcellrenderertext.xml.texi @include section-gtkcellrenderertoggle.xml.texi @include section-gtkliststore.xml.texi @include section-gtktreestore.xml.texi @c Menus, Combo Box, Toolbar @include section-gtkcombobox.xml.texi @include section-gtkcomboboxentry.xml.texi @include section-gtkmenu.xml.texi @include section-gtkmenubar.xml.texi @include section-gtkmenuitem.xml.texi @include section-gtkmenushell.xml.texi @include section-gtkimagemenuitem.xml.texi @include section-gtkradiomenuitem.xml.texi @include section-gtkcheckmenuitem.xml.texi @include section-gtkseparatormenuitem.xml.texi @include section-gtktearoffmenuitem.xml.texi @include section-gtktoolbar.xml.texi @include section-gtktoolitem.xml.texi @include section-gtkseparatortoolitem.xml.texi @include section-gtktoolbutton.xml.texi @include section-gtkmenutoolbutton.xml.texi @include section-gtktoggletoolbutton.xml.texi @include section-gtkradiotoolbutton.xml.texi @c Action-based menus and toolbars @include section-gtkuimanager.xml.texi @include section-gtkactiongroup.xml.texi @include section-gtkaction.xml.texi @include section-gtktoggleaction.xml.texi @include section-gtkradioaction.xml.texi @c Selectors (File/Font/Color/Input Devices) @include section-gtkcolorbutton.xml.texi @include section-gtkcolorsel.xml.texi @include section-gtkcolorseldlg.xml.texi @include section-gtkfilesel.xml.texi @include section-gtkfilechooser.xml.texi @include section-gtkfilechooserbutton.xml.texi @include section-gtkfilechooserdialog.xml.texi @include section-gtkfilechooserwidget.xml.texi @include section-gtkfilefilter.xml.texi @include section-gtkfontbutton.xml.texi @include section-gtkfontsel.xml.texi @include section-gtkfontseldlg.xml.texi @include section-gtkinputdialog.xml.texi @c Layout Containers @include section-gtkalignment.xml.texi @include section-gtkaspectframe.xml.texi @include section-gtkhbox.xml.texi @include section-gtkvbox.xml.texi @include section-gtkhbbox.xml.texi @include section-gtkvbbox.xml.texi @include section-gtkfixed.xml.texi @include section-gtkhpaned.xml.texi @include section-gtkvpaned.xml.texi @include section-gtklayout.xml.texi @include section-gtknotebook.xml.texi @include section-gtktable.xml.texi @include section-gtkexpander.xml.texi @c Ornaments @include section-gtkframe.xml.texi @include section-gtkhseparator.xml.texi @include section-gtkvseparator.xml.texi @c Scrolling @include section-gtkhscrollbar.xml.texi @include section-gtkvscrollbar.xml.texi @include section-gtkscrolledwindow.xml.texi @c Printing @include section-gtkprintoperation.xml.texi @include section-gtkprintcontext.xml.texi @include section-gtkprintsettings.xml.texi @include section-gtkpagesetup.xml.texi @include section-gtkpapersize.xml.texi @c Miscellaneous @include section-gtkadjustment.xml.texi @include section-gtkarrow.xml.texi @include section-gtkcalendar.xml.texi @include section-gtkdrawingarea.xml.texi @include section-gtkeventbox.xml.texi @include section-gtkhandlebox.xml.texi @include section-gtkimcontextsimple.xml.texi @include section-gtkimmulticontext.xml.texi @include section-gtksizegroup.xml.texi @include section-gtktooltips.xml.texi @include section-gtkviewport.xml.texi @include section-gtkaccessible.xml.texi @c Abstract Base Classes @include section-gtkbin.xml.texi @include section-gtkbox.xml.texi @include section-gtkbbox.xml.texi @include section-gtkcontainer.xml.texi @include section-gtkitem.xml.texi @include section-gtkmisc.xml.texi @include section-gtkobject.xml.texi @include section-gtkpaned.xml.texi @include section-gtkrange.xml.texi @include section-gtkscale.xml.texi @include section-gtkscrollbar.xml.texi @include section-gtkseparator.xml.texi @include section-gtkwidget.xml.texi @include section-gtkimcontext.xml.texi @c Cross-process Embedding @include section-gtkplug.xml.texi @include section-gtksocket.xml.texi @c Special-purpose features @include section-gtkcurve.xml.texi @include section-gtkgamma.xml.texi @include section-gtkruler.xml.texi @include section-gtkhruler.xml.texi @include section-gtkvruler.xml.texi @c Recently Used Documents @include section-gtkrecentmanager.xml.texi @include section-gtkrecentchooser.xml.texi @include section-gtkrecentchooserdialog.xml.texi @include section-gtkrecentchoosermenu.xml.texi @include section-gtkrecentchooserwidget.xml.texi @include section-gtkrecentfilter.xml.texi @include undocumented.texi @node Type Index @unnumbered Type Index @printindex tp @node Function Index @unnumbered Function Index @printindex fn @bye guile-gnome-platform-2.16.2/gtk/doc/gtk/section-gtktogglebutton.xml.texi0000644000175000017500000000353211670374303026671 0ustar00wingowingo00000000000000 @c %start of fragment @node GtkToggleButton @chapter GtkToggleButton Create buttons which retain their state @section Overview A @code{} is a @code{} which will remain 'pressed-in' when clicked. Clicking again will cause the toggle button to return to its normal state. A toggle button is created by calling either @code{gtk-toggle-button-new} or @code{gtk-toggle-button-new-with-label}. If using the former, it is advisable to pack a widget, (such as a @code{} and/or a @code{}), into the toggle button's container. (See @code{} for more information). The state of a @code{} can be set specifically using @code{gtk-toggle-button-set-active}, and retrieved using @code{gtk-toggle-button-get-active}. To simply switch the state of a toggle button, use gtk_toggle_button_toggled. @example void make_toggles (void) @{ GtkWidget *dialog, *toggle1, *toggle2; dialog = gtk_dialog_new (); toggle1 = gtk_toggle_button_new_with_label ("Hi, i'm a toggle button."); /* Makes this toggle button invisible */ gtk_toggle_button_set_mode (GTK_TOGGLE_BUTTON (toggle1), TRUE); g_signal_connect (toggle1, "toggled", G_CALLBACK (output_state), NULL); gtk_box_pack_start (GTK_BOX (GTK_DIALOG (dialog)->action_area), toggle1, FALSE, FALSE, 2); toggle2 = gtk_toggle_button_new_with_label ("Hi, i'm another toggle button."); gtk_toggle_button_set_mode (GTK_TOGGLE_BUTTON (toggle2), FALSE); g_signal_connect (toggle2, "toggled", G_CALLBACK (output_state), NULL); gtk_box_pack_start (GTK_BOX (GTK_DIALOG (dialog)->action_area), toggle2, FALSE, FALSE, 2); gtk_widget_show_all (dialog); @} @end example @section Usage @include defuns-gtktogglebutton.xml.texi @c %end of fragment guile-gnome-platform-2.16.2/gtk/doc/gtk/section-gtkitem.xml.texi0000644000175000017500000000052711670374302025112 0ustar00wingowingo00000000000000 @c %start of fragment @node GtkItem @chapter GtkItem Abstract base class for GtkMenuItem, GtkListItem and GtkTreeItem @section Overview The @code{} widget is an abstract base class for @code{}, @code{} and @code{}. @section Usage @include defuns-gtkitem.xml.texi @c %end of fragment guile-gnome-platform-2.16.2/gtk/doc/gtk/section-gtkcalendar.xml.texi0000644000175000017500000000167511670374302025732 0ustar00wingowingo00000000000000 @c %start of fragment @node GtkCalendar @chapter GtkCalendar Displays a calendar and allows the user to select a date @section Overview @code{} is a widget that displays a calendar, one month at a time. It can be created with @code{gtk-calendar-new}. The month and year currently displayed can be altered with @code{gtk-calendar-select-month}. The exact day can be selected from the displayed month using @code{gtk-calendar-select-day}. To place a visual marker on a particular day, use @code{gtk-calendar-mark-day} and to remove the marker, @code{gtk-calendar-unmark-day}. Alternative, all marks can be cleared with @code{gtk-calendar-clear-marks}. The way in which the calendar itself is displayed can be altered using @code{gtk-calendar-set-display-options}. The selected date can be retrieved from a @code{} using @code{gtk-calendar-get-date}. @section Usage @include defuns-gtkcalendar.xml.texi @c %end of fragment guile-gnome-platform-2.16.2/gtk/doc/gtk/section-gtkmessagedialog.xml.texi0000644000175000017500000000367011670374302026762 0ustar00wingowingo00000000000000 @c %start of fragment @node GtkMessageDialog @chapter GtkMessageDialog A convenient message window @section Overview @code{} presents a dialog with an image representing the type of message (Error, Question, etc.) alongside some message text. It's simply a convenience widget; you could construct the equivalent of @code{} from @code{} without too much effort, but @code{} saves typing. The easiest way to do a modal message dialog is to use @code{gtk-dialog-run}, though you can also pass in the @samp{GTK_DIALOG_MODAL} flag, @code{gtk-dialog-run} automatically makes the dialog modal and waits for the user to respond to it. @code{gtk-dialog-run} returns when any dialog button is clicked. @example dialog = gtk_message_dialog_new (main_application_window, GTK_DIALOG_DESTROY_WITH_PARENT, GTK_MESSAGE_ERROR, GTK_BUTTONS_CLOSE, "Error loading file '%s': %s", filename, g_strerror (errno)); gtk_dialog_run (GTK_DIALOG (dialog)); gtk_widget_destroy (dialog); @end example You might do a non-modal @code{} as follows: @example dialog = gtk_message_dialog_new (main_application_window, GTK_DIALOG_DESTROY_WITH_PARENT, GTK_MESSAGE_ERROR, GTK_BUTTONS_CLOSE, "Error loading file '%s': %s", filename, g_strerror (errno)); /* Destroy the dialog when the user responds to it (e.g. clicks a button) */ g_signal_connect_swapped (dialog, "response", G_CALLBACK (gtk_widget_destroy), dialog); @end example @section Usage @include defuns-gtkmessagedialog.xml.texi @c %end of fragment guile-gnome-platform-2.16.2/gtk/doc/gtk/defuns-gtkgamma.xml.texi0000644000175000017500000000055211670374302025054 0ustar00wingowingo00000000000000 @c %start of fragment @deftp Class Derives from @code{}. This class defines no direct slots. @end deftp @deffn Function gtk-gamma-curve-new @result{}@tie{} (ret@tie{}@code{}) Creates a new @code{}. @table @var @item ret a new @code{}. @end table @end deffn @c %end of fragment guile-gnome-platform-2.16.2/gtk/doc/gtk/section-gtkassistant.xml.texi0000644000175000017500000000065211670374302026164 0ustar00wingowingo00000000000000 @c %start of fragment @node GtkAssistant @chapter GtkAssistant A widget used to guide users through multi-step operations @section Overview A @code{} is a widget used to represent a generally complex operation splitted in several steps, guiding the user through its pages and controlling the page flow to collect the necessary data. @section Usage @include defuns-gtkassistant.xml.texi @c %end of fragment guile-gnome-platform-2.16.2/gtk/doc/gtk/defuns-gtkscrolledwindow.xml.texi0000644000175000017500000001725711670374302027043 0ustar00wingowingo00000000000000 @c %start of fragment @deftp Class Derives from @code{}. This class defines the following slots: @table @code @item hadjustment The GtkAdjustment for the horizontal position @item vadjustment The GtkAdjustment for the vertical position @item hscrollbar-policy When the horizontal scrollbar is displayed @item vscrollbar-policy When the vertical scrollbar is displayed @item window-placement Where the contents are located with respect to the scrollbars. This property only takes effect if "window-placement-set" is TRUE. @item window-placement-set Whether "window-placement" should be used to determine the location of the contents with respect to the scrollbars. @item shadow-type Style of bevel around the contents @end table @end deftp @defop Signal move-focus-out (arg0@tie{}@code{}) @end defop @defop Signal scroll-child (arg0@tie{}@code{}) (arg1@tie{}@code{}) @result{}@tie{}@code{} @end defop @deffn Function gtk-scrolled-window-new (hadjustment@tie{}@code{}) (vadjustment@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{}) Creates a new scrolled window. The two arguments are the scrolled window's adjustments; these will be shared with the scrollbars and the child widget to keep the bars in sync with the child. Usually you want to pass @samp{@code{#f}} for the adjustments, which will cause the scrolled window to create them for you. @table @var @item hadjustment Horizontal adjustment. @item vadjustment Vertical adjustment. @item ret New scrolled window. @end table @end deffn @deffn Function gtk-scrolled-window-get-hadjustment (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{}) @deffnx Method get-hadjustment Returns the horizontal scrollbar's adjustment, used to connect the horizontal scrollbar to the child widget's horizontal scroll functionality. @table @var @item scrolled-window A @code{}. @item ret The horizontal @code{}. @end table @end deffn @deffn Function gtk-scrolled-window-get-vadjustment (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{}) @deffnx Method get-vadjustment Returns the vertical scrollbar's adjustment, used to connect the vertical scrollbar to the child widget's vertical scroll functionality. @table @var @item scrolled-window A @code{}. @item ret The vertical @code{}. @end table @end deffn @deffn Function gtk-scrolled-window-get-hscrollbar (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{}) @deffnx Method get-hscrollbar Returns the horizontal scrollbar of @var{scrolled-window}. @table @var @item scrolled-window a @code{} @item ret the horizontal scrollbar of the scrolled window, or @samp{@code{#f}} if it does not have one. @end table Since 2.8 @end deffn @deffn Function gtk-scrolled-window-get-vscrollbar (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{}) @deffnx Method get-vscrollbar Returns the vertical scrollbar of @var{scrolled-window}. @table @var @item scrolled-window a @code{} @item ret the vertical scrollbar of the scrolled window, or @samp{@code{#f}} if it does not have one. @end table Since 2.8 @end deffn @deffn Function gtk-scrolled-window-set-policy (self@tie{}@code{}) (hscrollbar_policy@tie{}@code{}) (vscrollbar_policy@tie{}@code{}) @deffnx Method set-policy Sets the scrollbar policy for the horizontal and vertical scrollbars. The policy determines when the scrollbar should appear; it is a value from the @code{} enumeration. If @samp{GTK_POLICY_ALWAYS}, the scrollbar is always present; if @samp{GTK_POLICY_NEVER}, the scrollbar is never present; if @samp{GTK_POLICY_AUTOMATIC}, the scrollbar is present only if needed (that is, if the slider part of the bar would be smaller than the trough - the display is larger than the page size). @table @var @item scrolled-window A @code{}. @item hscrollbar-policy Policy for horizontal bar. @item vscrollbar-policy Policy for vertical bar. @end table @end deffn @deffn Function gtk-scrolled-window-set-placement (self@tie{}@code{}) (window_placement@tie{}@code{}) @deffnx Method set-placement Sets the placement of the contents with respect to the scrollbars for the scrolled window. See also @code{gtk-scrolled-window-get-placement} and @code{gtk-scrolled-window-unset-placement}. Determines the location of the child widget with respect to the scrollbars. The default is @samp{GTK_CORNER_TOP_LEFT}, meaning the child is in the top left, with the scrollbars underneath and to the right. Other values in @code{} are @samp{GTK_CORNER_TOP_RIGHT}, @samp{GTK_CORNER_BOTTOM_LEFT}, and @samp{GTK_CORNER_BOTTOM_RIGHT}. @table @var @item scrolled-window a @code{} @item window-placement Position of the child window. @end table @end deffn @deffn Function gtk-scrolled-window-unset-placement (self@tie{}@code{}) @deffnx Method unset-placement Unsets the placement of the contents with respect to the scrollbars for the scrolled window. If no window placement is set for a scrolled window, it obeys the "gtk-scrolled-window-placement" XSETTING. See also @code{gtk-scrolled-window-set-placement} and @code{gtk-scrolled-window-get-placement}. @table @var @item scrolled-window a @code{} @end table Since 2.10 @end deffn @deffn Function gtk-scrolled-window-set-shadow-type (self@tie{}@code{}) (type@tie{}@code{}) @deffnx Method set-shadow-type Changes the type of shadow drawn around the contents of @var{scrolled-window}. @table @var @item scrolled-window a @code{} @item type kind of shadow to draw around scrolled window contents @end table @end deffn @deffn Function gtk-scrolled-window-set-hadjustment (self@tie{}@code{}) (hadjustment@tie{}@code{}) @deffnx Method set-hadjustment Sets the @code{} for the horizontal scrollbar. @table @var @item scrolled-window A @code{}. @item hadjustment Horizontal scroll adjustment. @end table @end deffn @deffn Function gtk-scrolled-window-set-vadjustment (self@tie{}@code{}) (vadjustment@tie{}@code{}) @deffnx Method set-vadjustment Sets the @code{} for the vertical scrollbar. @table @var @item scrolled-window A @code{}. @item vadjustment Vertical scroll adjustment. @end table @end deffn @deffn Function gtk-scrolled-window-get-placement (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{}) @deffnx Method get-placement Gets the placement of the contents with respect to the scrollbars for the scrolled window. See @code{gtk-scrolled-window-set-placement}. @table @var @item scrolled-window a @code{} @item ret the current placement value. See also @code{gtk-scrolled-window-set-placement} and @code{gtk-scrolled-window-unset-placement}. @end table @end deffn @deffn Function gtk-scrolled-window-get-shadow-type (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{}) @deffnx Method get-shadow-type Gets the shadow type of the scrolled window. See @code{gtk-scrolled-window-set-shadow-type}. @table @var @item scrolled-window a @code{} @item ret the current shadow type @end table @end deffn @c %end of fragment guile-gnome-platform-2.16.2/gtk/doc/gtk/section-gtkhbox.xml.texi0000644000175000017500000000063411670374302025113 0ustar00wingowingo00000000000000 @c %start of fragment @node GtkHBox @chapter GtkHBox A horizontal container box @section Overview GtkHBox is a container that organizes child widgets into a single row. Use the @code{} packing interface to determine the arrangement, spacing, width, and alignment of GtkHBox children. All children are allocated the same height. @section Usage @include defuns-gtkhbox.xml.texi @c %end of fragment guile-gnome-platform-2.16.2/gtk/doc/gtk/defuns-gtkfontbutton.xml.texi0000644000175000017500000001414511670374302026177 0ustar00wingowingo00000000000000 @c %start of fragment @deftp Class Derives from @code{}. This class defines the following slots: @table @code @item title The title of the font selection dialog @item font-name The name of the selected font @item use-font Whether the label is drawn in the selected font @item use-size Whether the label is drawn with the selected font size @item show-style Whether the selected font style is shown in the label @item show-size Whether selected font size is shown in the label @end table @end deftp @defop Signal font-set The ::font-set signal is emitted when the user selects a font. When handling this signal, use @code{gtk-font-button-get-font-name} to find out which font was just selected. Note that this signal is only emitted when the @emph{user} changes the font. If you need to react to programmatic font changes as well, use the notify::font-name signal. Since 2.4 @end defop @deffn Function gtk-font-button-new @result{}@tie{} (ret@tie{}@code{}) Creates a new font picker widget. @table @var @item ret a new font picker widget. @end table Since 2.4 @end deffn @deffn Function gtk-font-button-new-with-font (fontname@tie{}@code{mchars}) @result{}@tie{} (ret@tie{}@code{}) Creates a new font picker widget. @table @var @item fontname Name of font to display in font selection dialog @item ret a new font picker widget. @end table Since 2.4 @end deffn @deffn Function gtk-font-button-set-font-name (self@tie{}@code{}) (fontname@tie{}@code{mchars}) @result{}@tie{} (ret@tie{}@code{bool}) @deffnx Method set-font-name Sets or updates the currently-displayed font in font picker dialog. @table @var @item font-button a @code{} @item fontname Name of font to display in font selection dialog @item ret Return value of @code{gtk-font-selection-dialog-set-font-name} if the font selection dialog exists, otherwise @samp{@code{#f}}. @end table Since 2.4 @end deffn @deffn Function gtk-font-button-get-font-name (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{mchars}) @deffnx Method get-font-name Retrieves the name of the currently selected font. @table @var @item font-button a @code{} @item ret an internal copy of the font name which must not be freed. @end table Since 2.4 @end deffn @deffn Function gtk-font-button-set-show-style (self@tie{}@code{}) (show_style@tie{}@code{bool}) @deffnx Method set-show-style If @var{show-style} is @samp{@code{#t}}, the font style will be displayed along with name of the selected font. @table @var @item font-button a @code{} @item show-style @samp{@code{#t}} if font style should be displayed in label. @end table Since 2.4 @end deffn @deffn Function gtk-font-button-get-show-style (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{bool}) @deffnx Method get-show-style Returns whether the name of the font style will be shown in the label. @table @var @item font-button a @code{} @item ret whether the font style will be shown in the label. @end table Since 2.4 @end deffn @deffn Function gtk-font-button-set-show-size (self@tie{}@code{}) (show_size@tie{}@code{bool}) @deffnx Method set-show-size If @var{show-size} is @samp{@code{#t}}, the font size will be displayed along with the name of the selected font. @table @var @item font-button a @code{} @item show-size @samp{@code{#t}} if font size should be displayed in dialog. @end table Since 2.4 @end deffn @deffn Function gtk-font-button-get-show-size (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{bool}) @deffnx Method get-show-size Returns whether the font size will be shown in the label. @table @var @item font-button a @code{} @item ret whether the font size will be shown in the label. @end table Since 2.4 @end deffn @deffn Function gtk-font-button-set-use-font (self@tie{}@code{}) (use_font@tie{}@code{bool}) @deffnx Method set-use-font If @var{use-font} is @samp{@code{#t}}, the font name will be written using the selected font. @table @var @item font-button a @code{} @item use-font If @samp{@code{#t}}, font name will be written using font chosen. @end table Since 2.4 @end deffn @deffn Function gtk-font-button-get-use-font (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{bool}) @deffnx Method get-use-font Returns whether the selected font is used in the label. @table @var @item font-button a @code{} @item ret whether the selected font is used in the label. @end table Since 2.4 @end deffn @deffn Function gtk-font-button-set-use-size (self@tie{}@code{}) (use_size@tie{}@code{bool}) @deffnx Method set-use-size If @var{use-size} is @samp{@code{#t}}, the font name will be written using the selected size. @table @var @item font-button a @code{} @item use-size If @samp{@code{#t}}, font name will be written using the selected size. @end table Since 2.4 @end deffn @deffn Function gtk-font-button-get-use-size (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{bool}) @deffnx Method get-use-size Returns whether the selected size is used in the label. @table @var @item font-button a @code{} @item ret whether the selected size is used in the label. @end table Since 2.4 @end deffn @deffn Function gtk-font-button-set-title (self@tie{}@code{}) (title@tie{}@code{mchars}) @deffnx Method set-title Sets the title for the font selection dialog. @table @var @item font-button a @code{} @item title a string containing the font selection dialog title @end table Since 2.4 @end deffn @deffn Function gtk-font-button-get-title (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{mchars}) @deffnx Method get-title Retrieves the title of the font selection dialog. @table @var @item font-button a @code{} @item ret an internal copy of the title string which must not be freed. @end table Since 2.4 @end deffn @c %end of fragment guile-gnome-platform-2.16.2/gtk/doc/gtk/defuns-gtkhbox.xml.texi0000644000175000017500000000103011670374302024722 0ustar00wingowingo00000000000000 @c %start of fragment @deftp Class Derives from @code{}. This class defines no direct slots. @end deftp @deffn Function gtk-hbox-new (homogeneous@tie{}@code{bool}) (spacing@tie{}@code{int}) @result{}@tie{} (ret@tie{}@code{}) Creates a new GtkHBox. @table @var @item homogeneous @samp{@code{#t}} if all children are to be given equal space allotments. @item spacing the number of pixels to place by default between children. @item ret a new GtkHBox. @end table @end deffn @c %end of fragment guile-gnome-platform-2.16.2/gtk/doc/gtk/section-gtkfixed.xml.texi0000644000175000017500000000352511670374302025254 0ustar00wingowingo00000000000000 @c %start of fragment @node GtkFixed @chapter GtkFixed A container which allows you to position widgets at fixed coordinates @section Overview The @code{} widget is a container which can place child widgets at fixed positions and with fixed sizes, given in pixels. @code{} performs no automatic layout management. For most applications, you should not use this container! It keeps you from having to learn about the other GTK+ containers, but it results in broken applications. With @code{}, the following things will result in truncated text, overlapping widgets, and other display bugs: Themes, which may change widget sizes. Fonts other than the one you used to write the app will of course change the size of widgets containing text; keep in mind that users may use a larger font because of difficulty reading the default, or they may be using Windows or the framebuffer port of GTK+, where different fonts are available. Translation of text into other languages changes its size. Also, display of non-English text will use a different font in many cases. In addition, the fixed widget can't properly be mirrored in right-to-left languages such as Hebrew and Arabic. i.e. normally GTK+ will flip the interface to put labels to the right of the thing they label, but it can't do that with @code{}. So your application will not be usable in right-to-left languages. Finally, fixed positioning makes it kind of annoying to add/remove GUI elements, since you have to reposition all the other elements. This is a long-term maintenance problem for your application. If you know none of these things are an issue for your application, and prefer the simplicity of @code{}, by all means use the widget. But you should be aware of the tradeoffs. @section Usage @include defuns-gtkfixed.xml.texi @c %end of fragment guile-gnome-platform-2.16.2/gtk/doc/gtk/defuns-gtkseparator.xml.texi0000644000175000017500000000023611670374302025771 0ustar00wingowingo00000000000000 @c %start of fragment @deftp Class Derives from @code{}. This class defines no direct slots. @end deftp @c %end of fragment guile-gnome-platform-2.16.2/gtk/doc/gtk/section-gtktoggleaction.xml.texi0000644000175000017500000000057611670374303026640 0ustar00wingowingo00000000000000 @c %start of fragment @node GtkToggleAction @chapter GtkToggleAction An action which can be toggled between two states @section Overview A @code{} corresponds roughly to a @code{}. It has an "active" state specifying whether the action has been checked or not. @section Usage @include defuns-gtktoggleaction.xml.texi @c %end of fragment guile-gnome-platform-2.16.2/gtk/doc/gtk/section-gtkmenushell.xml.texi0000644000175000017500000000114211670374302026142 0ustar00wingowingo00000000000000 @c %start of fragment @node GtkMenuShell @chapter GtkMenuShell A base class for menu objects @section Overview A @code{} is the abstract base class used to derive the @code{} and @code{} subclasses. A @code{} is a container of @code{} objects arranged in a list which can be navigated, selected, and activated by the user to perform application functions. A @code{} can have a submenu associated with it, allowing for nested hierarchical menus. @section Usage @include defuns-gtkmenushell.xml.texi @c %end of fragment guile-gnome-platform-2.16.2/gtk/doc/gtk/stamp-vti0000644000175000017500000000014611752511104022150 0ustar00wingowingo00000000000000@set UPDATED 9 December 2011 @set UPDATED-MONTH December 2011 @set EDITION 2.16.2 @set VERSION 2.16.2 guile-gnome-platform-2.16.2/gtk/doc/gtk/defuns-gtkprintoperation.xml.texi0000644000175000017500000004027311670374302027053 0ustar00wingowingo00000000000000 @c %start of fragment @deftp Class Derives from @code{}, @code{}. This class defines the following slots: @table @code @item default-page-setup The GtkPageSetup used by default @item print-settings The GtkPrintSettings used for initializing the dialog @item job-name A string used for identifying the print job. @item n-pages The number of pages in the document. @item current-page The current page in the document @item use-full-page TRUE if the origin of the context should be at the corner of the page and not the corner of the imageable area @item track-print-status TRUE if the print operation will continue to report on the print job status after the print data has been sent to the printer or print server. @item unit The unit in which distances can be measured in the context @item show-progress TRUE if a progress dialog is shown while printing. @item allow-async TRUE if print process may run asynchronous. @item export-filename Export filename @item status The status of the print operation @item status-string A human-readable description of the status @item custom-tab-label Label for the tab containing custom widgets. @end table @end deftp @defop Signal done (arg0@tie{}@code{}) Emitted when the print operation run has finished doing everything required for printing. @var{result} gives you information about what happened during the run. If @var{result} is @samp{GTK_PRINT_OPERATION_RESULT_ERROR} then you can call @code{gtk-print-operation-get-error} for more information. If you enabled print status tracking then @code{gtk-print-operation-is-finished} may still return @samp{@code{#f}} after this was emitted. Since 2.10 @end defop @defop Signal begin-print (arg0@tie{}@code{}) Emitted after the user has finished changing print settings in the dialog, before the actual rendering starts. A typical use for this signal is to use the parameters from the @code{} and paginate the document accordingly, and then set the number of pages with @code{gtk-print-operation-set-n-pages}. Since 2.10 @end defop @defop Signal paginate (arg0@tie{}@code{}) @result{}@tie{}@code{} Emitted after the begin-print signal, but before the actual rendering starts. It keeps getting emitted until it returns @samp{@code{#f}}. This signal is intended to be used for paginating the document in small chunks, to avoid blocking the user interface for a long time. The signal handler should update the number of pages using @code{gtk-print-operation-set-n-pages}, and return @samp{@code{#t}} if the document has been completely paginated. If you don't need to do pagination in chunks, you can simply do it all in the begin-print handler, and set the number of pages from there. Since 2.10 @end defop @defop Signal request-page-setup (arg0@tie{}@code{}) (arg1@tie{}@code{}) (arg2@tie{}@code{}) Emitted once for every page that is printed, to give the application a chance to modify the page setup. Any changes done to @var{setup} will be in force only for printing this page. Since 2.10 @end defop @defop Signal draw-page (arg0@tie{}@code{}) (arg1@tie{}@code{}) Emitted for every page that is printed. The signal handler must render the @var{page-nr}'s page onto the cairo context obtained from @var{context} using @code{gtk-print-context-get-cairo-context}. @example static void draw_page (GtkPrintOperation *operation, GtkPrintContext *context, gint page_nr, gpointer user_data) @{ cairo_t *cr; PangoLayout *layout; gdouble width, text_height; gint layout_height; PangoFontDescription *desc; cr = gtk_print_context_get_cairo_context (context); width = gtk_print_context_get_width (context); cairo_rectangle (cr, 0, 0, width, HEADER_HEIGHT); cairo_set_source_rgb (cr, 0.8, 0.8, 0.8); cairo_fill (cr); layout = gtk_print_context_create_pango_layout (context); desc = pango_font_description_from_string ("sans 14"); pango_layout_set_font_description (layout, desc); pango_font_description_free (desc); pango_layout_set_text (layout, "some text", -1); pango_layout_set_width (layout, width); pango_layout_set_alignment (layout, PANGO_ALIGN_CENTER); pango_layout_get_size (layout, NULL, &layout_height); text_height = (gdouble)layout_height / PANGO_SCALE; cairo_move_to (cr, width / 2, (HEADER_HEIGHT - text_height) / 2); pango_cairo_show_layout (cr, layout); g_object_unref (layout); @} @end example Use @code{gtk-print-operation-set-use-full-page} and @code{gtk-print-operation-set-unit} before starting the print operation to set up the transformation of the cairo context according to your needs. Since 2.10 @end defop @defop Signal end-print (arg0@tie{}@code{}) Emitted after all pages have been rendered. A handler for this signal can clean up any resources that have been allocated in the ::begin-print handler. Since 2.10 @end defop @defop Signal status-changed Emitted at between the various phases of the print operation. See @code{} for the phases that are being discriminated. Use @code{gtk-print-operation-get-status} to find out the current status. Since 2.10 @end defop @defop Signal create-custom-widget @result{}@tie{}@code{} Emitted when displaying the print dialog. If you return a widget in a handler for this signal it will be added to a custom tab in the print dialog. You typically return a container widget with multiple widgets in it. The print dialog owns the returned widget, and its lifetime isn't controlled by the app. However, the widget is guaranteed to stay around until the custom-widget-apply signal is emitted on the operation. Then you can read out any information you need from the widgets. Since 2.10 @end defop @defop Signal custom-widget-apply (arg0@tie{}@code{}) Emitted right before begin-print if you added a custom widget in the create-custom-widget handler. When you get this signal you should read the information from the custom widgets, as the widgets are not guaraneed to be around at a later time. Since 2.10 @end defop @defop Signal preview (arg0@tie{}@code{}) (arg1@tie{}@code{}) (arg2@tie{}@code{}) @result{}@tie{}@code{} Gets emitted when a preview is requested from the native dialog. The default handler for this signal uses an external viewer application to preview. To implement a custom print preview, an application must return @samp{@code{#t}} from its handler for this signal. In order to use the provided @var{context} for the preview implementation, it must be given a suitable cairo context with @code{gtk-print-context-set-cairo-context}. The custom preview implementation can use @code{gtk-print-operation-preview-is-selected} and @code{gtk-print-operation-preview-render-page} to find pages which are selected for print and render them. The preview must be finished by calling @code{gtk-print-operation-preview-end-preview} (typically in response to the user clicking a close button). Since 2.10 @end defop @deftp Class Derives from @code{}. This class defines no direct slots. @end deftp @defop Signal ready (arg0@tie{}@code{}) undocumented @end defop @defop Signal got-page-size (arg0@tie{}@code{}) (arg1@tie{}@code{}) undocumented @end defop @deffn Function gtk-print-operation-new @result{}@tie{} (ret@tie{}@code{}) Creates a new @code{}. @table @var @item ret a new @code{} @end table Since 2.10 @end deffn @deffn Function gtk-print-operation-set-allow-async (self@tie{}@code{}) (allow_async@tie{}@code{bool}) @deffnx Method set-allow-async Sets whether the @code{gtk-print-operation-run} may return before the print operation is completed. Note that some platforms may not allow asynchronous operation. @table @var @item op a @code{} @item allow-async @samp{@code{#t}} to allow asynchronous operation @end table Since 2.10 @end deffn @deffn Function gtk-print-operation-get-error (self@tie{}@code{}) @deffnx Method get-error Call this when the result of a print operation is @samp{GTK_PRINT_OPERATION_RESULT_ERROR}, either as returned by @code{gtk-print-operation-run}, or in the ::done signal handler. The returned @code{} will contain more details on what went wrong. @table @var @item op a @code{} @item error return location for the error @end table Since 2.10 @end deffn @deffn Function gtk-print-operation-set-job-name (self@tie{}@code{}) (job_name@tie{}@code{mchars}) @deffnx Method set-job-name Sets the name of the print job. The name is used to identify the job (e.g. in monitoring applications like eggcups). If you don't set a job name, GTK+ picks a default one by numbering successive print jobs. @table @var @item op a @code{} @item job-name a string that identifies the print job @end table Since 2.10 @end deffn @deffn Function gtk-print-operation-set-n-pages (self@tie{}@code{}) (n_pages@tie{}@code{int}) @deffnx Method set-n-pages Sets the number of pages in the document. This @emph{must} be set to a positive number before the rendering starts. It may be set in a ::begin-print signal hander. Note that the page numbers passed to the ::request-page-setup and ::draw-page signals are 0-based, i.e. if the user chooses to print all pages, the last ::draw-page signal will be for page @var{n-pages} - 1. @table @var @item op a @code{} @item n-pages the number of pages @end table Since 2.10 @end deffn @deffn Function gtk-print-operation-set-unit (self@tie{}@code{}) (unit@tie{}@code{}) @deffnx Method set-unit Sets up the transformation for the cairo context obtained from @code{} in such a way that distances are measured in units of @var{unit}. @table @var @item op a @code{} @item unit the unit to use @end table Since 2.10 @end deffn @deffn Function gtk-print-operation-run (self@tie{}@code{}) (action@tie{}@code{}) (parent@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{}) @deffnx Method run Runs the print operation, by first letting the user modify print settings in the print dialog, and then print the document. Normally that this function does not return until the rendering of all pages is complete. You can connect to the ::status-changed signal on @var{op} to obtain some information about the progress of the print operation. Furthermore, it may use a recursive mainloop to show the print dialog. If you call @code{gtk-print-operation-set-allow-async} or set the allow-async property the operation will run asyncronously if this is supported on the platform. The ::done signal will be emitted with the operation results when the operation is done (i.e. when the dialog is canceled, or when the print succeeds or fails). @example if (settings != NULL) gtk_print_operation_set_print_settings (print, settings); if (page_setup != NULL) gtk_print_operation_set_default_page_setup (print, page_setup); g_signal_connect (print, "begin-print", G_CALLBACK (begin_print), &data); g_signal_connect (print, "draw-page", G_CALLBACK (draw_page), &data); res = gtk_print_operation_run (print, GTK_PRINT_OPERATION_ACTION_PRINT_DIALOG, parent, &error); if (res == GTK_PRINT_OPERATION_RESULT_ERROR) @{ error_dialog = gtk_message_dialog_new (GTK_WINDOW (parent), GTK_DIALOG_DESTROY_WITH_PARENT, GTK_MESSAGE_ERROR, GTK_BUTTONS_CLOSE, "Error printing file:\n%s", error->message); g_signal_connect (error_dialog, "response", G_CALLBACK (gtk_widget_destroy), NULL); gtk_widget_show (error_dialog); g_error_free (error); @} else if (res == GTK_PRINT_OPERATION_RESULT_APPLY) @{ if (settings != NULL) g_object_unref (settings); settings = g_object_ref (gtk_print_operation_get_print_settings (print)); @} @end example Note that @code{gtk-print-operation-run} can only be called once on a given @code{}. @table @var @item op a @code{} @item action the action to start @item parent Transient parent of the dialog, or @samp{@code{#f}} @item error Return location for errors, or @samp{@code{#f}} @item ret the result of the print operation. A return value of @samp{GTK_PRINT_OPERATION_RESULT_APPLY} indicates that the printing was completed successfully. In this case, it is a good idea to obtain the used print settings with @code{gtk-print-operation-get-print-settings} and store them for reuse with the next print operation. A value of @samp{GTK_PRINT_OPERATION_RESULT_IN_PROGRESS} means the operation is running asynchronously, and will emit the ::done signal when done. @end table Since 2.10 @end deffn @deffn Function gtk-print-operation-cancel (self@tie{}@code{}) @deffnx Method cancel Cancels a running print operation. This function may be called from a begin-print, paginate or draw-page signal handler to stop the currently running print operation. @table @var @item op a @code{} @end table Since 2.10 @end deffn @deffn Function gtk-print-operation-get-status (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{}) @deffnx Method get-status Returns the status of the print operation. Also see @code{gtk-print-operation-get-status-string}. @table @var @item op a @code{} @item ret the status of the print operation @end table Since 2.10 @end deffn @deffn Function gtk-print-operation-is-finished (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{bool}) @deffnx Method is-finished A convenience function to find out if the print operation is finished, either successfully (@samp{GTK_PRINT_STATUS_FINISHED}) or unsuccessfully (@samp{GTK_PRINT_STATUS_FINISHED_ABORTED}). Note: when you enable print status tracking the print operation can be in a non-finished state even after done has been called, as the operation status then tracks the print job status on the printer. @table @var @item op a @code{} @item ret @samp{@code{#t}}, if the print operation is finished. @end table Since 2.10 @end deffn @deffn Function gtk-print-operation-get-error (self@tie{}@code{}) @deffnx Method get-error Call this when the result of a print operation is @samp{GTK_PRINT_OPERATION_RESULT_ERROR}, either as returned by @code{gtk-print-operation-run}, or in the ::done signal handler. The returned @code{} will contain more details on what went wrong. @table @var @item op a @code{} @item error return location for the error @end table Since 2.10 @end deffn @deffn Function gtk-print-run-page-setup-dialog (parent@tie{}@code{}) (page_setup@tie{}@code{}) (settings@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{}) Runs a page setup dialog, letting the user modify the values from @var{page-setup}. If the user cancels the dialog, the returned @code{} is identical to the passed in @var{page-setup}, otherwise it contains the modifications done in the dialog. Note that this function may use a recursive mainloop to show the page setup dialog. See @code{gtk-print-run-page-setup-dialog-async} if this is a problem. @table @var @item parent transient parent, or @samp{@code{#f}} @item page-setup an existing @code{}, or @samp{@code{#f}} @item settings a @code{} @item ret a new @code{} @end table Since 2.10 @end deffn @c %end of fragment guile-gnome-platform-2.16.2/gtk/doc/gtk/section-gtkframe.xml.texi0000644000175000017500000000067711670374302025254 0ustar00wingowingo00000000000000 @c %start of fragment @node GtkFrame @chapter GtkFrame A bin with a decorative frame and optional label @section Overview The frame widget is a Bin that surrounds its child with a decorative frame and an optional label. If present, the label is drawn in a gap in the top side of the frame. The position of the label can be controlled with @code{gtk-frame-set-label-align}. @section Usage @include defuns-gtkframe.xml.texi @c %end of fragment guile-gnome-platform-2.16.2/gtk/doc/gtk/defuns-gtktextmark.xml.texi0000644000175000017500000000475511670374302025642 0ustar00wingowingo00000000000000 @c %start of fragment @deftp Class Derives from @code{}. This class defines the following slots: @table @code @item name Mark name @item left-gravity Whether the mark has left gravity @end table @end deftp @deffn Function gtk-text-mark-set-visible (self@tie{}@code{}) (setting@tie{}@code{bool}) @deffnx Method set-visible Sets the visibility of @var{mark}; the insertion point is normally visible, i.e. you can see it as a vertical bar. Also, the text widget uses a visible mark to indicate where a drop will occur when dragging-and-dropping text. Most other marks are not visible. Marks are not visible by default. @table @var @item mark a @code{} @item setting visibility of mark @end table @end deffn @deffn Function gtk-text-mark-get-visible (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{bool}) @deffnx Method get-visible Returns @samp{@code{#t}} if the mark is visible (i.e. a cursor is displayed for it) @table @var @item mark a @code{} @item ret @samp{@code{#t}} if visible @end table @end deffn @deffn Function gtk-text-mark-get-deleted (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{bool}) @deffnx Method get-deleted Returns @samp{@code{#t}} if the mark has been removed from its buffer with @code{gtk-text-buffer-delete-mark}. Marks can't be used once deleted. @table @var @item mark a @code{} @item ret whether the mark is deleted @end table @end deffn @deffn Function gtk-text-mark-get-name (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{mchars}) @deffnx Method get-name Returns the mark name; returns NULL for anonymous marks. @table @var @item mark a @code{} @item ret mark name @end table @end deffn @deffn Function gtk-text-mark-get-buffer (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{}) @deffnx Method get-buffer Gets the buffer this mark is located inside, or NULL if the mark is deleted. @table @var @item mark a @code{} @item ret the mark's @code{} @end table @end deffn @deffn Function gtk-text-mark-get-left-gravity (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{bool}) @deffnx Method get-left-gravity Determines whether the mark has left gravity. @table @var @item mark a @code{} @item ret @samp{@code{#t}} if the mark has left gravity, @samp{@code{#f}} otherwise @end table @end deffn @c %end of fragment guile-gnome-platform-2.16.2/gtk/doc/gtk/defuns-gtktreestore.xml.texi0000644000175000017500000002570311670374302026013 0ustar00wingowingo00000000000000 @c %start of fragment @deftp Class Derives from @code{}, @code{}, @code{}, @code{}, @code{}, @code{}. This class defines no direct slots. @end deftp @deffn Function gtk-tree-store-new (types@tie{}@code{scm}) @result{}@tie{} (ret@tie{}@code{}) Creates a new tree store as with @var{n-columns} columns each of the types passed in. Note that only types derived from standard GObject fundamental types are supported. As an example, @samp{gtk_tree_store_new (3, G_TYPE_INT, G_TYPE_STRING, GDK_TYPE_PIXBUF);} will create a new @code{} with three columns, of type @code{}, @code{} and @code{} respectively. @table @var @item n-columns number of columns in the tree store @item ... all @code{} types for the columns, from first to last @item ret a new @code{} @end table @end deffn @deffn Function gtk-tree-store-set-value (self@tie{}@code{}) (iter@tie{}@code{}) (column@tie{}@code{int}) (value@tie{}@code{scm}) @deffnx Method set-value Sets the data in the cell specified by @var{iter} and @var{column}. The type of @var{value} must be convertible to the type of the column. @table @var @item tree-store a @code{} @item iter A valid @code{} for the row being modified @item column column number to modify @item value new value for the cell @end table @end deffn @deffn Function gtk-tree-store-remove (self@tie{}@code{}) (iter@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{}) @deffnx Method remove Removes @var{iter} from @var{tree-store}. After being removed, @var{iter} is set to the next valid row at that level, or invalidated if it previously pointed to the last one. @table @var @item tree-store A @code{} @item iter A valid @code{} @item ret @samp{@code{#t}} if @var{iter} is still valid, @samp{@code{#f}} if not. @end table @end deffn @deffn Function gtk-tree-store-insert (self@tie{}@code{}) (parent@tie{}@code{}) (position@tie{}@code{int}) @result{}@tie{} (ret@tie{}@code{}) @deffnx Method insert Creates a new row at @var{position}. If parent is non-@samp{@code{#f}}, then the row will be made a child of @var{parent}. Otherwise, the row will be created at the toplevel. If @var{position} is larger than the number of rows at that level, then the new row will be inserted to the end of the list. @var{iter} will be changed to point to this new row. The row will be empty after this function is called. To fill in values, you need to call @code{gtk-tree-store-set} or @code{gtk-tree-store-set-value}. @table @var @item tree-store A @code{} @item iter An unset @code{} to set to the new row @item parent A valid @code{}, or @samp{@code{#f}} @item position position to insert the new row @end table @end deffn @deffn Function gtk-tree-store-insert-before (self@tie{}@code{}) (parent@tie{}@code{}) (sibling@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{}) @deffnx Method insert-before Inserts a new row before @var{sibling}. If @var{sibling} is @samp{@code{#f}}, then the row will be appended to @var{parent} 's children. If @var{parent} and @var{sibling} are @samp{@code{#f}}, then the row will be appended to the toplevel. If both @var{sibling} and @var{parent} are set, then @var{parent} must be the parent of @var{sibling}. When @var{sibling} is set, @var{parent} is optional. @var{iter} will be changed to point to this new row. The row will be empty after this function is called. To fill in values, you need to call @code{gtk-tree-store-set} or @code{gtk-tree-store-set-value}. @table @var @item tree-store A @code{} @item iter An unset @code{} to set to the new row @item parent A valid @code{}, or @samp{@code{#f}} @item sibling A valid @code{}, or @samp{@code{#f}} @end table @end deffn @deffn Function gtk-tree-store-insert-after (self@tie{}@code{}) (parent@tie{}@code{}) (sibling@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{}) @deffnx Method insert-after Inserts a new row after @var{sibling}. If @var{sibling} is @samp{@code{#f}}, then the row will be prepended to @var{parent} 's children. If @var{parent} and @var{sibling} are @samp{@code{#f}}, then the row will be prepended to the toplevel. If both @var{sibling} and @var{parent} are set, then @var{parent} must be the parent of @var{sibling}. When @var{sibling} is set, @var{parent} is optional. @var{iter} will be changed to point to this new row. The row will be empty after this function is called. To fill in values, you need to call @code{gtk-tree-store-set} or @code{gtk-tree-store-set-value}. @table @var @item tree-store A @code{} @item iter An unset @code{} to set to the new row @item parent A valid @code{}, or @samp{@code{#f}} @item sibling A valid @code{}, or @samp{@code{#f}} @end table @end deffn @deffn Function gtk-tree-store-prepend (self@tie{}@code{}) (parent@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{}) @deffnx Method prepend Prepends a new row to @var{tree-store}. If @var{parent} is non-@samp{@code{#f}}, then it will prepend the new row before the first child of @var{parent}, otherwise it will prepend a row to the top level. @var{iter} will be changed to point to this new row. The row will be empty after this function is called. To fill in values, you need to call @code{gtk-tree-store-set} or @code{gtk-tree-store-set-value}. @table @var @item tree-store A @code{} @item iter An unset @code{} to set to the prepended row @item parent A valid @code{}, or @samp{@code{#f}} @end table @end deffn @deffn Function gtk-tree-store-append (self@tie{}@code{}) (parent@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{}) @deffnx Method append Appends a new row to @var{tree-store}. If @var{parent} is non-@samp{@code{#f}}, then it will append the new row after the last child of @var{parent}, otherwise it will append a row to the top level. @var{iter} will be changed to point to this new row. The row will be empty after this function is called. To fill in values, you need to call @code{gtk-tree-store-set} or @code{gtk-tree-store-set-value}. @table @var @item tree-store A @code{} @item iter An unset @code{} to set to the appended row @item parent A valid @code{}, or @samp{@code{#f}} @end table @end deffn @deffn Function gtk-tree-store-is-ancestor (self@tie{}@code{}) (iter@tie{}@code{}) (descendant@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{bool}) @deffnx Method is-ancestor Returns @samp{@code{#t}} if @var{iter} is an ancestor of @var{descendant}. That is, @var{iter} is the parent (or grandparent or great-grandparent) of @var{descendant}. @table @var @item tree-store A @code{} @item iter A valid @code{} @item descendant A valid @code{} @item ret @samp{@code{#t}}, if @var{iter} is an ancestor of @var{descendant} @end table @end deffn @deffn Function gtk-tree-store-iter-depth (self@tie{}@code{}) (iter@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{int}) @deffnx Method iter-depth Returns the depth of @var{iter}. This will be 0 for anything on the root level, 1 for anything down a level, etc. @table @var @item tree-store A @code{} @item iter A valid @code{} @item ret The depth of @var{iter} @end table @end deffn @deffn Function gtk-tree-store-clear (self@tie{}@code{}) @deffnx Method clear Removes all rows from @var{tree-store} @table @var @item tree-store a @code{} @end table @end deffn @deffn Function gtk-tree-store-iter-is-valid (self@tie{}@code{}) (iter@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{bool}) @deffnx Method iter-is-valid WARNING: This function is slow. Only use it for debugging and/or testing purposes. Checks if the given iter is a valid iter for this @code{}. @table @var @item tree-store A @code{}. @item iter A @code{}. @item ret @samp{@code{#t}} if the iter is valid, @samp{@code{#f}} if the iter is invalid. @end table Since 2.2 @end deffn @deffn Function gtk-tree-store-reorder (self@tie{}@code{}) (parent@tie{}@code{}) @result{}@tie{} (new_order@tie{}@code{int}) @deffnx Method reorder Reorders the children of @var{parent} in @var{tree-store} to follow the order indicated by @var{new-order}. Note that this function only works with unsorted stores. @table @var @item tree-store A @code{}. @item parent A @code{}. @item new-order an array of integers mapping the new position of each child to its old position before the re-ordering, i.e. @var{new-order}@samp{[newpos] = oldpos}. @end table Since 2.2 @end deffn @deffn Function gtk-tree-store-swap (self@tie{}@code{}) (a@tie{}@code{}) (b@tie{}@code{}) @deffnx Method swap Swaps @var{a} and @var{b} in the same level of @var{tree-store}. Note that this function only works with unsorted stores. @table @var @item tree-store A @code{}. @item a A @code{}. @item b Another @code{}. @end table Since 2.2 @end deffn @deffn Function gtk-tree-store-move-before (self@tie{}@code{}) (iter@tie{}@code{}) (position@tie{}@code{}) @deffnx Method move-before Moves @var{iter} in @var{tree-store} to the position before @var{position}. @var{iter} and @var{position} should be in the same level. Note that this function only works with unsorted stores. If @var{position} is @samp{@code{#f}}, @var{iter} will be moved to the end of the level. @table @var @item tree-store A @code{}. @item iter A @code{}. @item position A @code{} or @samp{@code{#f}}. @end table Since 2.2 @end deffn @deffn Function gtk-tree-store-move-after (self@tie{}@code{}) (iter@tie{}@code{}) (position@tie{}@code{}) @deffnx Method move-after Moves @var{iter} in @var{tree-store} to the position after @var{position}. @var{iter} and @var{position} should be in the same level. Note that this function only works with unsorted stores. If @var{position} is @samp{@code{#f}}, @var{iter} will be moved to the start of the level. @table @var @item tree-store A @code{}. @item iter A @code{}. @item position A @code{}. @end table Since 2.2 @end deffn @c %end of fragment guile-gnome-platform-2.16.2/gtk/doc/gtk/section-gtkcellrendereraccel.xml.texi0000644000175000017500000000077711670374302027621 0ustar00wingowingo00000000000000 @c %start of fragment @node GtkCellRendererAccel @chapter GtkCellRendererAccel Renders a keyboard accelerator in a cell @section Overview @code{} displays a keyboard accelerator (i.e. a key combination like -a). If the cell renderer is editable, the accelerator can be changed by simply typing the new combination. The @code{} cell renderer was added in GTK+ 2.10. @section Usage @include defuns-gtkcellrendereraccel.xml.texi @c %end of fragment guile-gnome-platform-2.16.2/gtk/doc/gtk/defuns-gtkcheckbutton.xml.texi0000644000175000017500000000224411670374302026303 0ustar00wingowingo00000000000000 @c %start of fragment @deftp Class Derives from @code{}. This class defines no direct slots. @end deftp @deffn Function gtk-check-button-new @result{}@tie{} (ret@tie{}@code{}) Creates a new @code{}. @table @var @item ret a @code{}. @end table @end deffn @deffn Function gtk-check-button-new-with-label (label@tie{}@code{mchars}) @result{}@tie{} (ret@tie{}@code{}) Creates a new @code{} with a @code{} to the right of it. @table @var @item label the text for the check button. @item ret a @code{}. @end table @end deffn @deffn Function gtk-check-button-new-with-mnemonic (label@tie{}@code{mchars}) @result{}@tie{} (ret@tie{}@code{}) Creates a new @code{} containing a label. The label will be created using @code{gtk-label-new-with-mnemonic}, so underscores in @var{label} indicate the mnemonic for the check button. @table @var @item label The text of the button, with an underscore in front of the mnemonic character @item ret a new @code{} @end table @end deffn @c %end of fragment guile-gnome-platform-2.16.2/gtk/doc/gtk/section-gtkvbox.xml.texi0000644000175000017500000000063511670374303025133 0ustar00wingowingo00000000000000 @c %start of fragment @node GtkVBox @chapter GtkVBox A vertical container box @section Overview GtkVBox is a container that organizes child widgets into a single column. Use the @code{} packing interface to determine the arrangement, spacing, height, and alignment of GtkVBox children. All children are allocated the same width. @section Usage @include defuns-gtkvbox.xml.texi @c %end of fragment guile-gnome-platform-2.16.2/gtk/doc/gtk/defuns-gtkvseparator.xml.texi0000644000175000017500000000055311670374302026161 0ustar00wingowingo00000000000000 @c %start of fragment @deftp Class Derives from @code{}. This class defines no direct slots. @end deftp @deffn Function gtk-vseparator-new @result{}@tie{} (ret@tie{}@code{}) Creates a new @code{}. @table @var @item ret a new @code{}. @end table @end deffn @c %end of fragment guile-gnome-platform-2.16.2/gtk/doc/gtk/defuns-gtkplug.xml.texi0000644000175000017500000000522111670374302024737 0ustar00wingowingo00000000000000 @c %start of fragment @deftp Class Derives from @code{}. This class defines the following slots: @table @code @item embedded Whether or not the plug is embedded @end table @end deftp @defop Signal embedded @end defop @deffn Function gtk-plug-construct (self@tie{}@code{}) (socket_id@tie{}@code{unsigned-long}) @deffnx Method construct Finish the initialization of @var{plug} for a given @code{} identified by @var{socket-id}. This function will generally only be used by classes deriving from @code{}. @table @var @item plug a @code{}. @item socket-id the XID of the socket's window. @end table @end deffn @deffn Function gtk-plug-construct-for-display (self@tie{}@code{}) (display@tie{}@code{}) (socket_id@tie{}@code{unsigned-long}) @deffnx Method construct-for-display Finish the initialization of @var{plug} for a given @code{} identified by @var{socket-id} which is currently displayed on @var{display}. This function will generally only be used by classes deriving from @code{}. @table @var @item plug a @code{}. @item display the @code{} associated with @var{socket-id}'s @code{}. @item socket-id the XID of the socket's window. @end table Since 2.2 @end deffn @deffn Function gtk-plug-new (socket_id@tie{}@code{unsigned-long}) @result{}@tie{} (ret@tie{}@code{}) Creates a new plug widget inside the @code{} identified by @var{socket-id}. If @var{socket-id} is 0, the plug is left "unplugged" and can later be plugged into a @code{} by @code{gtk-socket-add-id}. @table @var @item socket-id the window ID of the socket, or 0. @item ret the new @code{} widget. @end table @end deffn @deffn Function gtk-plug-new-for-display (display@tie{}@code{}) (socket_id@tie{}@code{unsigned-long}) @result{}@tie{} (ret@tie{}@code{}) Create a new plug widget inside the @code{} identified by socket_id. @table @var @item display the @code{} on which @var{socket-id} is displayed @item socket-id the XID of the socket's window. @item ret the new @code{} widget. @end table Since 2.2 @end deffn @deffn Function gtk-plug-get-id (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{unsigned-long}) @deffnx Method get-id Gets the window ID of a @code{} widget, which can then be used to embed this window inside another window, for instance with @code{gtk-socket-add-id}. @table @var @item plug a @code{}. @item ret the window ID for the plug @end table @end deffn @c %end of fragment guile-gnome-platform-2.16.2/gtk/doc/gtk/defuns-gtkmenubar.xml.texi0000644000175000017500000000233311670374302025422 0ustar00wingowingo00000000000000 @c %start of fragment @deftp Class Derives from @code{}. This class defines the following slots: @table @code @item pack-direction The pack direction of the menubar @item child-pack-direction The child pack direction of the menubar @end table @end deftp @deffn Function gtk-menu-bar-new @result{}@tie{} (ret@tie{}@code{}) Creates the new @code{} @table @var @item ret the @code{} @end table @end deffn @deffn Function gtk-menu-bar-set-pack-direction (self@tie{}@code{}) (pack_dir@tie{}@code{}) @deffnx Method set-pack-direction Sets how items should be packed inside a menubar. @table @var @item menubar a @code{}. @item pack-dir a new @code{}. @end table Since 2.8 @end deffn @deffn Function gtk-menu-bar-get-pack-direction (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{}) @deffnx Method get-pack-direction Retrieves the current pack direction of the menubar. See @code{gtk-menu-bar-set-pack-direction}. @table @var @item menubar a @code{} @item ret the pack direction @end table Since 2.8 @end deffn @c %end of fragment guile-gnome-platform-2.16.2/gtk/doc/gtk/defuns-gtknotebook.xml.texi0000644000175000017500000005737311670374302025627 0ustar00wingowingo00000000000000 @c %start of fragment @deftp Class Derives from @code{}. This class defines the following slots: @table @code @item tab-pos Which side of the notebook holds the tabs @item show-tabs Whether tabs should be shown or not @item show-border Whether the border should be shown or not @item scrollable If TRUE, scroll arrows are added if there are too many tabs to fit @item tab-border Width of the border around the tab labels @item tab-hborder Width of the horizontal border of tab labels @item tab-vborder Width of the vertical border of tab labels @item page The index of the current page @item enable-popup If TRUE, pressing the right mouse button on the notebook pops up a menu that you can use to go to a page @item group-id Group ID for tabs drag and drop @item group Group for tabs drag and drop @item homogeneous Whether tabs should have homogeneous sizes @end table @end deftp @defop Signal switch-page (arg0@tie{}@code{}) (arg1@tie{}@code{}) Emitted when the user or a function changes the current page. @end defop @defop Signal focus-tab (arg0@tie{}@code{}) @result{}@tie{}@code{} @end defop @defop Signal select-page (arg0@tie{}@code{}) @result{}@tie{}@code{} @end defop @defop Signal change-current-page (arg0@tie{}@code{}) @result{}@tie{}@code{} @end defop @defop Signal move-focus-out (arg0@tie{}@code{}) @end defop @defop Signal reorder-tab (arg0@tie{}@code{}) (arg1@tie{}@code{}) @result{}@tie{}@code{} @end defop @defop Signal page-reordered (arg0@tie{}@code{}) (arg1@tie{}@code{}) the ::page-reordered signal is emitted in the notebook right after a page has been reordered. Since 2.10 @end defop @defop Signal page-removed (arg0@tie{}@code{}) (arg1@tie{}@code{}) the ::page-removed signal is emitted in the notebook right after a page is removed from the notebook. Since 2.10 @end defop @defop Signal page-added (arg0@tie{}@code{}) (arg1@tie{}@code{}) the ::page-added signal is emitted in the notebook right after a page is added to the notebook. Since 2.10 @end defop @defop Signal create-window (arg0@tie{}@code{}) (arg1@tie{}@code{}) (arg2@tie{}@code{}) @result{}@tie{}@code{} undocumented @end defop @deffn Function gtk-notebook-new @result{}@tie{} (ret@tie{}@code{}) Creates a new @code{} widget with no pages. @table @var @item ret the newly created @code{} @end table @end deffn @deffn Function gtk-notebook-append-page (self@tie{}@code{}) (child@tie{}@code{}) (tab_label@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{int}) @deffnx Method append-page Appends a page to @var{notebook}. @table @var @item notebook a @code{} @item child the @code{} to use as the contents of the page. @item tab-label the @code{} to be used as the label for the page, or @samp{@code{#f}} to use the default label, 'page N'. @item ret the index (starting from 0) of the appended page in the notebook, or -1 if function fails @end table @end deffn @deffn Function gtk-notebook-append-page-menu (self@tie{}@code{}) (child@tie{}@code{}) (tab_label@tie{}@code{}) (menu_label@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{int}) @deffnx Method append-page-menu Appends a page to @var{notebook}, specifying the widget to use as the label in the popup menu. @table @var @item notebook a @code{} @item child the @code{} to use as the contents of the page. @item tab-label the @code{} to be used as the label for the page, or @samp{@code{#f}} to use the default label, 'page N'. @item menu-label the widget to use as a label for the page-switch menu, if that is enabled. If @samp{@code{#f}}, and @var{tab-label} is a @code{} or @samp{@code{#f}}, then the menu label will be a newly created label with the same text as @var{tab-label}; If @var{tab-label} is not a @code{}, @var{menu-label} must be specified if the page-switch menu is to be used. @item ret the index (starting from 0) of the appended page in the notebook, or -1 if function fails @end table @end deffn @deffn Function gtk-notebook-prepend-page (self@tie{}@code{}) (child@tie{}@code{}) (tab_label@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{int}) @deffnx Method prepend-page Prepends a page to @var{notebook}. @table @var @item notebook a @code{} @item child the @code{} to use as the contents of the page. @item tab-label the @code{} to be used as the label for the page, or @samp{@code{#f}} to use the default label, 'page N'. @item ret the index (starting from 0) of the prepended page in the notebook, or -1 if function fails @end table @end deffn @deffn Function gtk-notebook-prepend-page-menu (self@tie{}@code{}) (child@tie{}@code{}) (tab_label@tie{}@code{}) (menu_label@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{int}) @deffnx Method prepend-page-menu Prepends a page to @var{notebook}, specifying the widget to use as the label in the popup menu. @table @var @item notebook a @code{} @item child the @code{} to use as the contents of the page. @item tab-label the @code{} to be used as the label for the page, or @samp{@code{#f}} to use the default label, 'page N'. @item menu-label the widget to use as a label for the page-switch menu, if that is enabled. If @samp{@code{#f}}, and @var{tab-label} is a @code{} or @samp{@code{#f}}, then the menu label will be a newly created label with the same text as @var{tab-label}; If @var{tab-label} is not a @code{}, @var{menu-label} must be specified if the page-switch menu is to be used. @item ret the index (starting from 0) of the prepended page in the notebook, or -1 if function fails @end table @end deffn @deffn Function gtk-notebook-insert-page (self@tie{}@code{}) (child@tie{}@code{}) (tab_label@tie{}@code{}) (position@tie{}@code{int}) @result{}@tie{} (ret@tie{}@code{int}) @deffnx Method insert-page Insert a page into @var{notebook} at the given position. @table @var @item notebook a @code{} @item child the @code{} to use as the contents of the page. @item tab-label the @code{} to be used as the label for the page, or @samp{@code{#f}} to use the default label, 'page N'. @item position the index (starting at 0) at which to insert the page, or -1 to append the page after all other pages. @item ret the index (starting from 0) of the inserted page in the notebook, or -1 if function fails @end table @end deffn @deffn Function gtk-notebook-insert-page-menu (self@tie{}@code{}) (child@tie{}@code{}) (tab_label@tie{}@code{}) (menu_label@tie{}@code{}) (position@tie{}@code{int}) @result{}@tie{} (ret@tie{}@code{int}) @deffnx Method insert-page-menu Insert a page into @var{notebook} at the given position, specifying the widget to use as the label in the popup menu. @table @var @item notebook a @code{} @item child the @code{} to use as the contents of the page. @item tab-label the @code{} to be used as the label for the page, or @samp{@code{#f}} to use the default label, 'page N'. @item menu-label the widget to use as a label for the page-switch menu, if that is enabled. If @samp{@code{#f}}, and @var{tab-label} is a @code{} or @samp{@code{#f}}, then the menu label will be a newly created label with the same text as @var{tab-label}; If @var{tab-label} is not a @code{}, @var{menu-label} must be specified if the page-switch menu is to be used. @item position the index (starting at 0) at which to insert the page, or -1 to append the page after all other pages. @item ret the index (starting from 0) of the inserted page in the notebook @end table @end deffn @deffn Function gtk-notebook-remove-page (self@tie{}@code{}) (page_num@tie{}@code{int}) @deffnx Method remove-page Removes a page from the notebook given its index in the notebook. @table @var @item notebook a @code{}. @item page-num the index of a notebook page, starting from 0. If -1, the last page will be removed. @end table @end deffn @deffn Function gtk-notebook-page-num (self@tie{}@code{}) (child@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{int}) @deffnx Method page-num Finds the index of the page which contains the given child widget. @table @var @item notebook a @code{} @item child a @code{} @item ret the index of the page containing @var{child}, or -1 if @var{child} is not in the notebook. @end table @end deffn @deffn Function gtk-notebook-next-page (self@tie{}@code{}) @deffnx Method next-page Switches to the next page. Nothing happens if the current page is the last page. @table @var @item notebook a @code{} @end table @end deffn @deffn Function gtk-notebook-prev-page (self@tie{}@code{}) @deffnx Method prev-page Switches to the previous page. Nothing happens if the current page is the first page. @table @var @item notebook a @code{} @end table @end deffn @deffn Function gtk-notebook-reorder-child (self@tie{}@code{}) (child@tie{}@code{}) (position@tie{}@code{int}) @deffnx Method reorder-child Reorders the page containing @var{child}, so that it appears in position @var{position}. If @var{position} is greater than or equal to the number of children in the list or negative, @var{child} will be moved to the end of the list. @table @var @item notebook a @code{} @item child the child to move @item position the new position, or -1 to move to the end @end table @end deffn @deffn Function gtk-notebook-set-tab-pos (self@tie{}@code{}) (pos@tie{}@code{}) @deffnx Method set-tab-pos Sets the edge at which the tabs for switching pages in the notebook are drawn. @table @var @item notebook a @code{}. @item pos the edge to draw the tabs at. @end table @end deffn @deffn Function gtk-notebook-set-show-tabs (self@tie{}@code{}) (show_tabs@tie{}@code{bool}) @deffnx Method set-show-tabs Sets whether to show the tabs for the notebook or not. @table @var @item notebook a @code{} @item show-tabs @samp{@code{#t}} if the tabs should be shown. @end table @end deffn @deffn Function gtk-notebook-set-show-border (self@tie{}@code{}) (show_border@tie{}@code{bool}) @deffnx Method set-show-border Sets whether a bevel will be drawn around the notebook pages. This only has a visual effect when the tabs are not shown. See @code{gtk-notebook-set-show-tabs}. @table @var @item notebook a @code{} @item show-border @samp{@code{#t}} if a bevel should be drawn around the notebook. @end table @end deffn @deffn Function gtk-notebook-set-scrollable (self@tie{}@code{}) (scrollable@tie{}@code{bool}) @deffnx Method set-scrollable Sets whether the tab label area will have arrows for scrolling if there are too many tabs to fit in the area. @table @var @item notebook a @code{} @item scrollable @samp{@code{#t}} if scroll arrows should be added @end table @end deffn @deffn Function gtk-notebook-popup-enable (self@tie{}@code{}) @deffnx Method popup-enable Enables the popup menu: if the user clicks with the right mouse button on the bookmarks, a menu with all the pages will be popped up. @table @var @item notebook a @code{} @end table @end deffn @deffn Function gtk-notebook-popup-disable (self@tie{}@code{}) @deffnx Method popup-disable Disables the popup menu. @table @var @item notebook a @code{} @end table @end deffn @deffn Function gtk-notebook-get-current-page (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{int}) @deffnx Method get-current-page Returns the page number of the current page. @table @var @item notebook a @code{} @item ret the index (starting from 0) of the current page in the notebook. If the notebook has no pages, then -1 will be returned. @end table @end deffn @deffn Function gtk-notebook-get-menu-label (self@tie{}@code{}) (child@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{}) @deffnx Method get-menu-label Retrieves the menu label widget of the page containing @var{child}. @table @var @item notebook a @code{} @item child a widget contained in a page of @var{notebook} @item ret the menu label, or @samp{@code{#f}} if the notebook page does not have a menu label other than the default (the tab label). @end table @end deffn @deffn Function gtk-notebook-get-nth-page (self@tie{}@code{}) (page_num@tie{}@code{int}) @result{}@tie{} (ret@tie{}@code{}) @deffnx Method get-nth-page Returns the child widget contained in page number @var{page-num}. @table @var @item notebook a @code{} @item page-num the index of a page in the noteobok, or -1 to get the last page. @item ret the child widget, or @samp{@code{#f}} if @var{page-num} is out of bounds. @end table @end deffn @deffn Function gtk-notebook-get-n-pages (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{int}) @deffnx Method get-n-pages Gets the number of pages in a notebook. @table @var @item notebook a @code{} @item ret the number of pages in the notebook. @end table Since 2.2 @end deffn @deffn Function gtk-notebook-get-tab-label (self@tie{}@code{}) (child@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{}) @deffnx Method get-tab-label Returns the tab label widget for the page @var{child}. @samp{@code{#f}} is returned if @var{child} is not in @var{notebook} or if no tab label has specifically been set for @var{child}. @table @var @item notebook a @code{} @item child the page @item ret the tab label @end table @end deffn @deffn Function gtk-notebook-set-menu-label (self@tie{}@code{}) (child@tie{}@code{}) (menu_label@tie{}@code{}) @deffnx Method set-menu-label Changes the menu label for the page containing @var{child}. @table @var @item notebook a @code{} @item child the child widget @item menu-label the menu label, or NULL for default @end table @end deffn @deffn Function gtk-notebook-set-menu-label-text (self@tie{}@code{}) (child@tie{}@code{}) (menu_text@tie{}@code{mchars}) @deffnx Method set-menu-label-text Creates a new label and sets it as the menu label of @var{child}. @table @var @item notebook a @code{} @item child the child widget @item menu-text the label text @end table @end deffn @deffn Function gtk-notebook-set-tab-label (self@tie{}@code{}) (child@tie{}@code{}) (tab_label@tie{}@code{}) @deffnx Method set-tab-label Changes the tab label for @var{child}. If @samp{@code{#f}} is specified for @var{tab-label}, then the page will have the label 'page N'. @table @var @item notebook a @code{} @item child the page @item tab-label the tab label widget to use, or @samp{@code{#f}} for default tab label. @end table @end deffn @deffn Function gtk-notebook-set-tab-label-packing (self@tie{}@code{}) (child@tie{}@code{}) (expand@tie{}@code{bool}) (fill@tie{}@code{bool}) (pack_type@tie{}@code{}) @deffnx Method set-tab-label-packing Sets the packing parameters for the tab label of the page containing @var{child}. See @code{gtk-box-pack-start} for the exact meaning of the parameters. @table @var @item notebook a @code{} @item child the child widget @item expand whether to expand the bookmark or not @item fill whether the bookmark should fill the allocated area or not @item pack-type the position of the bookmark @end table @end deffn @deffn Function gtk-notebook-set-tab-label-text (self@tie{}@code{}) (child@tie{}@code{}) (tab_text@tie{}@code{mchars}) @deffnx Method set-tab-label-text Creates a new label and sets it as the tab label for the page containing @var{child}. @table @var @item notebook a @code{} @item child the page @item tab-text the label text @end table @end deffn @deffn Function gtk-notebook-set-tab-reorderable (self@tie{}@code{}) (child@tie{}@code{}) (reorderable@tie{}@code{bool}) @deffnx Method set-tab-reorderable Sets whether the notebook tab can be reordered via drag and drop or not. @table @var @item notebook a @code{} @item child a child @code{} @item reorderable whether the tab is reorderable or not. @end table Since 2.10 @end deffn @deffn Function gtk-notebook-set-tab-detachable (self@tie{}@code{}) (child@tie{}@code{}) (detachable@tie{}@code{bool}) @deffnx Method set-tab-detachable Sets whether the tab can be detached from @var{notebook} to another notebook or widget. Note that 2 notebooks must share a common group identificator (see @code{gtk-notebook-set-group-id}) to allow automatic tabs interchange between them. If you want a widget to interact with a notebook through DnD (i.e.: accept dragged tabs from it) it must be set as a drop destination and accept the target "GTK_NOTEBOOK_TAB". The notebook will fill the selection with a GtkWidget** pointing to the child widget that corresponds to the dropped tab. @example static void on_drop_zone_drag_data_received (GtkWidget *widget, GdkDragContext *context, gint x, gint y, GtkSelectionData *selection_data, guint info, guint time, gpointer user_data) @{ GtkWidget *notebook; GtkWidget **child; notebook = gtk_drag_get_source_widget (context); child = (void*) selection_data->data; process_widget (*child); gtk_container_remove (GTK_CONTAINER (notebook), *child); @} @end example If you want a notebook to accept drags from other widgets, you will have to set your own DnD code to do it. @table @var @item notebook a @code{} @item child a child @code{} @item detachable whether the tab is detachable or not @end table Since 2.10 @end deffn @deffn Function gtk-notebook-get-menu-label-text (self@tie{}@code{}) (child@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{mchars}) @deffnx Method get-menu-label-text Retrieves the text of the menu label for the page containing @var{child}. @table @var @item notebook a @code{} @item child the child widget of a page of the notebook. @item ret value: the text of the tab label, or @samp{@code{#f}} if the widget does not have a menu label other than the default menu label, or the menu label widget is not a @code{}. The string is owned by the widget and must not be freed. @end table @end deffn @deffn Function gtk-notebook-get-scrollable (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{bool}) @deffnx Method get-scrollable Returns whether the tab label area has arrows for scrolling. See @code{gtk-notebook-set-scrollable}. @table @var @item notebook a @code{} @item ret @samp{@code{#t}} if arrows for scrolling are present @end table @end deffn @deffn Function gtk-notebook-get-show-border (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{bool}) @deffnx Method get-show-border Returns whether a bevel will be drawn around the notebook pages. See @code{gtk-notebook-set-show-border}. @table @var @item notebook a @code{} @item ret @samp{@code{#t}} if the bevel is drawn @end table @end deffn @deffn Function gtk-notebook-get-show-tabs (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{bool}) @deffnx Method get-show-tabs Returns whether the tabs of the notebook are shown. See @code{gtk-notebook-set-show-tabs}. @table @var @item notebook a @code{} @item ret @samp{@code{#t}} if the tabs are shown @end table @end deffn @deffn Function gtk-notebook-get-tab-label-text (self@tie{}@code{}) (child@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{mchars}) @deffnx Method get-tab-label-text Retrieves the text of the tab label for the page containing @var{child}. @table @var @item notebook a @code{} @item child a widget contained in a page of @var{notebook} @item ret value: the text of the tab label, or @samp{@code{#f}} if the tab label widget is not a @code{}. The string is owned by the widget and must not be freed. @end table @end deffn @deffn Function gtk-notebook-get-tab-pos (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{}) @deffnx Method get-tab-pos Gets the edge at which the tabs for switching pages in the notebook are drawn. @table @var @item notebook a @code{} @item ret the edge at which the tabs are drawn @end table @end deffn @deffn Function gtk-notebook-get-tab-reorderable (self@tie{}@code{}) (child@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{bool}) @deffnx Method get-tab-reorderable Gets whether the tab can be reordered via drag and drop or not. @table @var @item notebook a @code{} @item child a child @code{} @item ret @samp{@code{#t}} if the tab is reorderable. @end table Since 2.10 @end deffn @deffn Function gtk-notebook-get-tab-detachable (self@tie{}@code{}) (child@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{bool}) @deffnx Method get-tab-detachable Returns whether the tab contents can be detached from @var{notebook}. @table @var @item notebook a @code{} @item child a child @code{} @item ret TRUE if the tab is detachable. @end table Since 2.10 @end deffn @deffn Function gtk-notebook-set-current-page (self@tie{}@code{}) (page_num@tie{}@code{int}) @deffnx Method set-current-page Switches to the page number @var{page-num}. Note that due to historical reasons, GtkNotebook refuses to switch to a page unless the child widget is visible. Therefore, it is recommended to show child widgets before adding them to a notebook. @table @var @item notebook a @code{} @item page-num index of the page to switch to, starting from 0. If negative, the last page will be used. If greater than the number of pages in the notebook, nothing will be done. @end table @end deffn @deffn Function gtk-notebook-set-group-id (self@tie{}@code{}) (group_id@tie{}@code{int}) @deffnx Method set-group-id Sets an group identificator for @var{notebook}, notebooks sharing the same group identificator will be able to exchange tabs via drag and drop. A notebook with group identificator -1 will not be able to exchange tabs with any other notebook. @table @var @item notebook a @code{} @item group-id a group identificator, or -1 to unset it @end table Since 2.10 @end deffn @deffn Function gtk-notebook-get-group-id (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{int}) @deffnx Method get-group-id Gets the current group identificator for @var{notebook}. @table @var @item notebook a @code{} @item ret the group identificator, or -1 if none is set. @end table Since 2.10 @end deffn @c %end of fragment guile-gnome-platform-2.16.2/gtk/doc/gtk/defuns-gtklabel.xml.texi0000644000175000017500000005411411670374302025054 0ustar00wingowingo00000000000000 @c %start of fragment @deftp Class Derives from @code{}. This class defines the following slots: @table @code @item label The text of the label @item attributes A list of style attributes to apply to the text of the label @item use-markup The text of the label includes XML markup. See pango_parse_markup() @item use-underline If set, an underline in the text indicates the next character should be used for the mnemonic accelerator key @item justify The alignment of the lines in the text of the label relative to each other. This does NOT affect the alignment of the label within its allocation. See GtkMisc::xalign for that @item pattern A string with _ characters in positions correspond to characters in the text to underline @item wrap If set, wrap lines if the text becomes too wide @item wrap-mode If wrap is set, controls how linewrapping is done @item selectable Whether the label text can be selected with the mouse @item mnemonic-keyval The mnemonic accelerator key for this label @item mnemonic-widget The widget to be activated when the label's mnemonic key is pressed @item cursor-position The current position of the insertion cursor in chars @item selection-bound The position of the opposite end of the selection from the cursor in chars @item ellipsize The preferred place to ellipsize the string, if the label does not have enough room to display the entire string @item width-chars The desired width of the label, in characters @item single-line-mode Whether the label is in single line mode @item angle Angle at which the label is rotated @item max-width-chars The desired maximum width of the label, in characters @end table @end deftp @defop Signal move-cursor (arg0@tie{}@code{}) (arg1@tie{}@code{}) (arg2@tie{}@code{}) @end defop @defop Signal copy-clipboard @end defop @defop Signal populate-popup (arg0@tie{}@code{}) @end defop @deffn Function gtk-label-new (str@tie{}@code{mchars}) @result{}@tie{} (ret@tie{}@code{}) Creates a new label with the given text inside it. You can pass @samp{@code{#f}} to get an empty label widget. @table @var @item str The text of the label @item ret the new @code{} @end table @end deffn @deffn Function gtk-label-set-text (self@tie{}@code{}) (str@tie{}@code{mchars}) @deffnx Method set-text Sets the text within the @code{} widget. It overwrites any text that was there before. This will also clear any previously set mnemonic accelerators. @table @var @item label a @code{} @item str The text you want to set. @end table @end deffn @deffn Function gtk-label-set-attributes (self@tie{}@code{}) (attrs@tie{}@code{}) @deffnx Method set-attributes Sets a @code{}; the attributes in the list are applied to the label text. The attributes set with this function will be ignored if the "use_underline" property or the "use_markup" property is @samp{@code{#t}}. @table @var @item label a @code{} @item attrs a @code{} @end table @end deffn @deffn Function gtk-label-set-markup (self@tie{}@code{}) (str@tie{}@code{mchars}) @deffnx Method set-markup Parses @var{str} which is marked up with the Pango text markup language, setting the label's text and attribute list based on the parse results. If the @var{str} is external data, you may need to escape it with @code{g-markup-escape-text} or @code{g-markup-printf-escaped}: @example char *markup; markup = g_markup_printf_escaped ("%s", str); gtk_label_set_markup (GTK_LABEL (label), markup); g_free (markup); @end example @table @var @item label a @code{} @item str a markup string (see Pango markup format) @end table @end deffn @deffn Function gtk-label-set-markup-with-mnemonic (self@tie{}@code{}) (str@tie{}@code{mchars}) @deffnx Method set-markup-with-mnemonic Parses @var{str} which is marked up with the Pango text markup language, setting the label's text and attribute list based on the parse results. If characters in @var{str} are preceded by an underscore, they are underlined indicating that they represent a keyboard accelerator called a mnemonic. The mnemonic key can be used to activate another widget, chosen automatically, or explicitly using @code{gtk-label-set-mnemonic-widget}. @table @var @item label a @code{} @item str a markup string (see Pango markup format) @end table @end deffn @deffn Function gtk-label-set-pattern (self@tie{}@code{}) (pattern@tie{}@code{mchars}) @deffnx Method set-pattern The pattern of underlines you want under the existing text within the @code{} widget. For example if the current text of the label says "FooBarBaz" passing a pattern of "___ ___" will underline "Foo" and "Baz" but not "Bar". @table @var @item label The @code{} you want to set the pattern to. @item pattern The pattern as described above. @end table @end deffn @deffn Function gtk-label-set-justify (self@tie{}@code{}) (jtype@tie{}@code{}) @deffnx Method set-justify Sets the alignment of the lines in the text of the label relative to each other. @samp{GTK_JUSTIFY_LEFT} is the default value when the widget is first created with @code{gtk-label-new}. If you instead want to set the alignment of the label as a whole, use @code{gtk-misc-set-alignment} instead. @code{gtk-label-set-justify} has no effect on labels containing only a single line. @table @var @item label a @code{} @item jtype a @code{} @end table @end deffn @deffn Function gtk-label-set-ellipsize (self@tie{}@code{}) (mode@tie{}@code{}) @deffnx Method set-ellipsize Sets the mode used to ellipsize (add an ellipsis: "...") to the text if there is not enough space to render the entire string. @table @var @item label a @code{} @item mode a @code{} @end table Since 2.6 @end deffn @deffn Function gtk-label-set-width-chars (self@tie{}@code{}) (n_chars@tie{}@code{int}) @deffnx Method set-width-chars Sets the desired width in characters of @var{label} to @var{n-chars}. @table @var @item label a @code{} @item n-chars the new desired width, in characters. @end table Since 2.6 @end deffn @deffn Function gtk-label-set-max-width-chars (self@tie{}@code{}) (n_chars@tie{}@code{int}) @deffnx Method set-max-width-chars Sets the desired maximum width in characters of @var{label} to @var{n-chars}. @table @var @item label a @code{} @item n-chars the new desired maximum width, in characters. @end table Since 2.6 @end deffn @deffn Function gtk-label-set-line-wrap (self@tie{}@code{}) (wrap@tie{}@code{bool}) @deffnx Method set-line-wrap Toggles line wrapping within the @code{} widget. @samp{@code{#t}} makes it break lines if text exceeds the widget's size. @samp{@code{#f}} lets the text get cut off by the edge of the widget if it exceeds the widget size. Note that setting line wrapping to @samp{@code{#t}} does not make the label wrap at its parent container's width, because GTK+ widgets conceptually can't make their requisition depend on the parent container's size. For a label that wraps at a specific position, set the label's width using @code{gtk-widget-set-size-request}. @table @var @item label a @code{} @item wrap the setting @end table @end deffn @deffn Function gtk-label-set-line-wrap-mode (self@tie{}@code{}) (wrap_mode@tie{}@code{}) @deffnx Method set-line-wrap-mode If line wrapping is on (see @code{gtk-label-set-line-wrap}) this controls how the line wrapping is done. The default is @samp{PANGO_WRAP_WORD} which means wrap on word boundaries. @table @var @item label a @code{} @item wrap-mode the line wrapping mode @end table Since 2.10 @end deffn @deffn Function gtk-label-get-layout-offsets (self@tie{}@code{}) @result{}@tie{} (x@tie{}@code{int}) (y@tie{}@code{int}) @deffnx Method get-layout-offsets Obtains the coordinates where the label will draw the @code{} representing the text in the label; useful to convert mouse events into coordinates inside the @code{}, e.g. to take some action if some part of the label is clicked. Of course you will need to create a @code{} to receive the events, and pack the label inside it, since labels are a @code{} widget. Remember when using the @code{} functions you need to convert to and from pixels using @code{pango-pixels} or @code{}. @table @var @item label a @code{} @item x location to store X offset of layout, or @samp{@code{#f}} @item y location to store Y offset of layout, or @samp{@code{#f}} @end table @end deffn @deffn Function gtk-label-get-mnemonic-keyval (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{unsigned-int}) @deffnx Method get-mnemonic-keyval If the label has been set so that it has an mnemonic key this function returns the keyval used for the mnemonic accelerator. If there is no mnemonic set up it returns @code{}. @table @var @item label a @code{} @item ret GDK keyval usable for accelerators, or @code{} @end table @end deffn @deffn Function gtk-label-get-selectable (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{bool}) @deffnx Method get-selectable Gets the value set by @code{gtk-label-set-selectable}. @table @var @item label a @code{} @item ret @samp{@code{#t}} if the user can copy text from the label @end table @end deffn @deffn Function gtk-label-get-text (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{mchars}) @deffnx Method get-text Fetches the text from a label widget, as displayed on the screen. This does not include any embedded underlines indicating mnemonics or Pango markup. (See @code{gtk-label-get-label}) @table @var @item label a @code{} @item ret the text in the label widget. This is the internal string used by the label, and must not be modified. @end table @end deffn @deffn Function gtk-label-new-with-mnemonic (str@tie{}@code{mchars}) @result{}@tie{} (ret@tie{}@code{}) Creates a new @code{}, containing the text in @var{str}. If characters in @var{str} are preceded by an underscore, they are underlined. If you need a literal underscore character in a label, use '__' (two underscores). The first underlined character represents a keyboard accelerator called a mnemonic. The mnemonic key can be used to activate another widget, chosen automatically, or explicitly using @code{gtk-label-set-mnemonic-widget}. If @code{gtk-label-set-mnemonic-widget} is not called, then the first activatable ancestor of the @code{} will be chosen as the mnemonic widget. For instance, if the label is inside a button or menu item, the button or menu item will automatically become the mnemonic widget and be activated by the mnemonic. @table @var @item str The text of the label, with an underscore in front of the mnemonic character @item ret the new @code{} @end table @end deffn @deffn Function gtk-label-select-region (self@tie{}@code{}) (start_offset@tie{}@code{int}) (end_offset@tie{}@code{int}) @deffnx Method select-region Selects a range of characters in the label, if the label is selectable. See @code{gtk-label-set-selectable}. If the label is not selectable, this function has no effect. If @var{start-offset} or @var{end-offset} are -1, then the end of the label will be substituted. @table @var @item label a @code{} @item start-offset start offset (in characters not bytes) @item end-offset end offset (in characters not bytes) @end table @end deffn @deffn Function gtk-label-set-mnemonic-widget (self@tie{}@code{}) (widget@tie{}@code{}) @deffnx Method set-mnemonic-widget If the label has been set so that it has an mnemonic key (using i.e. @code{gtk-label-set-markup-with-mnemonic}, @code{gtk-label-set-text-with-mnemonic}, @code{gtk-label-new-with-mnemonic} or the "use_underline" property) the label can be associated with a widget that is the target of the mnemonic. When the label is inside a widget (like a @code{} or a @code{} tab) it is automatically associated with the correct widget, but sometimes (i.e. when the target is a @code{} next to the label) you need to set it explicitly using this function. The target widget will be accelerated by emitting "mnemonic_activate" on it. The default handler for this signal will activate the widget if there are no mnemonic collisions and toggle focus between the colliding widgets otherwise. @table @var @item label a @code{} @item widget the target @code{} @end table @end deffn @deffn Function gtk-label-set-selectable (self@tie{}@code{}) (setting@tie{}@code{bool}) @deffnx Method set-selectable Selectable labels allow the user to select text from the label, for copy-and-paste. @table @var @item label a @code{} @item setting @samp{@code{#t}} to allow selecting text in the label @end table @end deffn @deffn Function gtk-label-set-text-with-mnemonic (self@tie{}@code{}) (str@tie{}@code{mchars}) @deffnx Method set-text-with-mnemonic Sets the label's text from the string @var{str}. If characters in @var{str} are preceded by an underscore, they are underlined indicating that they represent a keyboard accelerator called a mnemonic. The mnemonic key can be used to activate another widget, chosen automatically, or explicitly using @code{gtk-label-set-mnemonic-widget}. @table @var @item label a @code{} @item str a string @end table @end deffn @deffn Function gtk-label-get-attributes (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{}) @deffnx Method get-attributes Gets the attribute list that was set on the label using @code{gtk-label-set-attributes}, if any. This function does not reflect attributes that come from the labels markup (see @code{gtk-label-set-markup}). If you want to get the effective attributes for the label, use pango_layout_get_attribute (gtk_label_get_layout (label)). @table @var @item label a @code{} @item ret the attribute list, or @samp{@code{#f}} if none was set. @end table @end deffn @deffn Function gtk-label-get-justify (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{}) @deffnx Method get-justify Returns the justification of the label. See @code{gtk-label-set-justify}. @table @var @item label a @code{} @item ret @code{} @end table @end deffn @deffn Function gtk-label-get-ellipsize (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{}) @deffnx Method get-ellipsize Returns the ellipsizing position of the label. See @code{gtk-label-set-ellipsize}. @table @var @item label a @code{} @item ret @code{} @end table Since 2.6 @end deffn @deffn Function gtk-label-get-width-chars (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{int}) @deffnx Method get-width-chars Retrieves the desired width of @var{label}, in characters. See @code{gtk-label-set-width-chars}. @table @var @item label a @code{} @item ret the width of the label in characters. @end table Since 2.6 @end deffn @deffn Function gtk-label-get-max-width-chars (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{int}) @deffnx Method get-max-width-chars Retrieves the desired maximum width of @var{label}, in characters. See @code{gtk-label-set-width-chars}. @table @var @item label a @code{} @item ret the maximum width of the label in characters. @end table Since 2.6 @end deffn @deffn Function gtk-label-get-label (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{mchars}) @deffnx Method get-label Fetches the text from a label widget including any embedded underlines indicating mnemonics and Pango markup. (See @code{gtk-label-get-text}). @table @var @item label a @code{} @item ret the text of the label widget. This string is owned by the widget and must not be modified or freed. @end table @end deffn @deffn Function gtk-label-get-layout (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{}) @deffnx Method get-layout Gets the @code{} used to display the label. The layout is useful to e.g. convert text positions to pixel positions, in combination with @code{gtk-label-get-layout-offsets}. The returned layout is owned by the label so need not be freed by the caller. @table @var @item label a @code{} @item ret the @code{} for this label @end table @end deffn @deffn Function gtk-label-get-line-wrap (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{bool}) @deffnx Method get-line-wrap Returns whether lines in the label are automatically wrapped. See @code{gtk-label-set-line-wrap}. @table @var @item label a @code{} @item ret @samp{@code{#t}} if the lines of the label are automatically wrapped. @end table @end deffn @deffn Function gtk-label-get-line-wrap-mode (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{}) @deffnx Method get-line-wrap-mode Returns line wrap mode used by the label. See @code{gtk-label-set-line-wrap-mode}. @table @var @item label a @code{} @item ret @samp{@code{#t}} if the lines of the label are automatically wrapped. @end table Since 2.10 @end deffn @deffn Function gtk-label-get-mnemonic-widget (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{}) @deffnx Method get-mnemonic-widget Retrieves the target of the mnemonic (keyboard shortcut) of this label. See @code{gtk-label-set-mnemonic-widget}. @table @var @item label a @code{} @item ret the target of the label's mnemonic, or @samp{@code{#f}} if none has been set and the default algorithm will be used. @end table @end deffn @deffn Function gtk-label-get-selection-bounds (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{bool}) (start@tie{}@code{int}) (end@tie{}@code{int}) @deffnx Method get-selection-bounds Gets the selected range of characters in the label, returning @samp{@code{#t}} if there's a selection. @table @var @item label a @code{} @item start return location for start of selection, as a character offset @item end return location for end of selection, as a character offset @item ret @samp{@code{#t}} if selection is non-empty @end table @end deffn @deffn Function gtk-label-get-use-markup (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{bool}) @deffnx Method get-use-markup Returns whether the label's text is interpreted as marked up with the Pango text markup language. See @code{gtk-label-set-use-markup}. @table @var @item label a @code{} @item ret @samp{@code{#t}} if the label's text will be parsed for markup. @end table @end deffn @deffn Function gtk-label-get-use-underline (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{bool}) @deffnx Method get-use-underline Returns whether an embedded underline in the label indicates a mnemonic. See @code{gtk-label-set-use-underline}. @table @var @item label a @code{} @item ret @samp{@code{#t}} whether an embedded underline in the label indicates the mnemonic accelerator keys. @end table @end deffn @deffn Function gtk-label-get-single-line-mode (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{bool}) @deffnx Method get-single-line-mode Returns whether the label is in single line mode. @table @var @item label a @code{} @item ret @samp{@code{#t}} when the label is in single line mode. @end table Since 2.6 @end deffn @deffn Function gtk-label-get-angle (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{double}) @deffnx Method get-angle Gets the angle of rotation for the label. See gtk_label_set_angle. @table @var @item label a @code{} @item ret the angle of rotation for the label @end table Since 2.6 @end deffn @deffn Function gtk-label-set-label (self@tie{}@code{}) (str@tie{}@code{mchars}) @deffnx Method set-label Sets the text of the label. The label is interpreted as including embedded underlines and/or Pango markup depending on the values of label->use_underline and label->use_markup. @table @var @item label a @code{} @item str the new text to set for the label @end table @end deffn @deffn Function gtk-label-set-use-markup (self@tie{}@code{}) (setting@tie{}@code{bool}) @deffnx Method set-use-markup Sets whether the text of the label contains markup in Pango's text markup language. See @code{gtk-label-set-markup}. @table @var @item label a @code{} @item setting @samp{@code{#t}} if the label's text should be parsed for markup. @end table @end deffn @deffn Function gtk-label-set-use-underline (self@tie{}@code{}) (setting@tie{}@code{bool}) @deffnx Method set-use-underline If true, an underline in the text indicates the next character should be used for the mnemonic accelerator key. @table @var @item label a @code{} @item setting @samp{@code{#t}} if underlines in the text indicate mnemonics @end table @end deffn @deffn Function gtk-label-set-single-line-mode (self@tie{}@code{}) (single_line_mode@tie{}@code{bool}) @deffnx Method set-single-line-mode Sets whether the label is in single line mode. @table @var @item label a @code{} @item single-line-mode @samp{@code{#t}} if the label should be in single line mode @end table Since 2.6 @end deffn @deffn Function gtk-label-set-angle (self@tie{}@code{}) (angle@tie{}@code{double}) @deffnx Method set-angle Sets the angle of rotation for the label. An angle of 90 reads from from bottom to top, an angle of 270, from top to bottom. The angle setting for the label is ignored if the label is selectable, wrapped, or ellipsized. @table @var @item label a @code{} @item angle the angle that the baseline of the label makes with the horizontal, in degrees, measured counterclockwise @end table Since 2.6 @end deffn @c %end of fragment guile-gnome-platform-2.16.2/gtk/doc/gtk/defuns-gtkfilechooser.xml.texi0000644000175000017500000006201111670374302026272 0ustar00wingowingo00000000000000 @c %start of fragment @deftp Class Derives from @code{}. This class defines the following slots: @table @code @item filter The current filter for selecting which files are displayed @item local-only Whether the selected file(s) should be limited to local file: URLs @item use-preview-label Whether to display a stock label with the name of the previewed file. @item preview-widget-active Whether the application supplied widget for custom previews should be shown. @item preview-widget Application supplied widget for custom previews. @item show-hidden Whether the hidden files and folders should be displayed @item do-overwrite-confirmation Whether a file chooser in save mode will present an overwrite confirmation dialog if necessary. @item extra-widget Application supplied widget for extra options. @item file-system-backend Name of file system backend to use @item action The type of operation that the file selector is performing @item select-multiple Whether to allow multiple files to be selected @end table @end deftp @defop Signal current-folder-changed This signal is emitted when the current folder in a @code{} changes. This can happen due to the user performing some action that changes folders, such as selecting a bookmark or visiting a folder on the file list. It can also happen as a result of calling a function to explicitly change the current folder in a file chooser. Normally you do not need to connect to this signal, unless you need to keep track of which folder a file chooser is showing. See also: @code{gtk-file-chooser-set-current-folder}, @code{gtk-file-chooser-get-current-folder}, @code{gtk-file-chooser-set-current-folder-uri}, @code{gtk-file-chooser-get-current-folder-uri}. @end defop @defop Signal selection-changed This signal is emitted when there is a change in the set of selected files in a @code{}. This can happen when the user modifies the selection with the mouse or the keyboard, or when explicitly calling functions to change the selection. Normally you do not need to connect to this signal, as it is easier to wait for the file chooser to finish running, and then to get the list of selected files using the functions mentioned below. See also: @code{gtk-file-chooser-select-filename}, @code{gtk-file-chooser-unselect-filename}, @code{gtk-file-chooser-get-filename}, @code{gtk-file-chooser-get-filenames}, @code{gtk-file-chooser-select-uri}, @code{gtk-file-chooser-unselect-uri}, @code{gtk-file-chooser-get-uri}, @code{gtk-file-chooser-get-uris}. @end defop @defop Signal update-preview This signal is emitted when the preview in a file chooser should be regenerated. For example, this can happen when the currently selected file changes. You should use this signal if you want your file chooser to have a preview widget. Once you have installed a preview widget with @code{gtk-file-chooser-set-preview-widget}, you should update it when this signal is emitted. You can use the functions @code{gtk-file-chooser-get-preview-filename} or @code{gtk-file-chooser-get-preview-uri} to get the name of the file to preview. Your widget may not be able to preview all kinds of files; your callback must call @code{gtk-file-chooser-set-preview-wiget-active} to inform the file chooser about whether the preview was generated successfully or not. Please see the example code in @emph{(the missing figure, gtkfilechooser-preview}. See also: @code{gtk-file-chooser-set-preview-widget}, @code{gtk-file-chooser-set-preview-widget-active}, @code{gtk-file-chooser-set-use-preview-label}, @code{gtk-file-chooser-get-preview-filename}, @code{gtk-file-chooser-get-preview-uri}. @end defop @defop Signal file-activated This signal is emitted when the user "activates" a file in the file chooser. This can happen by double-clicking on a file in the file list, or by pressing @c (keycap "Enter") . Normally you do not need to connect to this signal. It is used internally by @code{} to know when to activate the default button in the dialog. See also: @code{gtk-file-chooser-get-filename}, @code{gtk-file-chooser-get-filenames}, @code{gtk-file-chooser-get-uri}, @code{gtk-file-chooser-get-uris}. @end defop @defop Signal confirm-overwrite @result{}@tie{}@code{} This signal gets emitted whenever it is appropriate to present a confirmation dialog when the user has selected a file name that already exists. The signal only gets emitted when the file chooser is in @code{} mode. Most applications just need to turn on the do-overwrite-confirmation property (or call the @code{gtk-file-chooser-set-do-overwrite-confirmation} function), and they will automatically get a stock confirmation dialog. Applications which need to customize this behavior should do that, and also connect to the @code{confirm-overwrite} signal. A signal handler for this signal must return a @code{} value, which indicates the action to take. If the handler determines that the user wants to select a different filename, it should return @code{}. If it determines that the user is satisfied with his choice of file name, it should return @code{}. On the other hand, if it determines that the stock confirmation dialog should be used, it should return @code{}. The following example illustrates this. @end defop @deffn Function gtk-file-chooser-set-action (self@tie{}@code{}) (action@tie{}@code{}) @deffnx Method set-action Sets the type of operation that the chooser is performing; the user interface is adapted to suit the selected action. For example, an option to create a new folder might be shown if the action is @samp{GTK_FILE_CHOOSER_ACTION_SAVE} but not if the action is @samp{GTK_FILE_CHOOSER_ACTION_OPEN}. @table @var @item chooser a @code{} @item action the action that the file selector is performing @end table Since 2.4 @end deffn @deffn Function gtk-file-chooser-get-action (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{}) @deffnx Method get-action Gets the type of operation that the file chooser is performing; see @code{gtk-file-chooser-set-action}. @table @var @item chooser a @code{} @item ret the action that the file selector is performing @end table Since 2.4 @end deffn @deffn Function gtk-file-chooser-set-local-only (self@tie{}@code{}) (local_only@tie{}@code{bool}) @deffnx Method set-local-only Sets whether only local files can be selected in the file selector. If @var{local-only} is @samp{@code{#t}} (the default), then the selected file are files are guaranteed to be accessible through the operating systems native file file system and therefore the application only needs to worry about the filename functions in @code{}, like @code{gtk-file-chooser-get-filename}, rather than the URI functions like @code{gtk-file-chooser-get-uri}, @table @var @item chooser a @code{} @item local-only @samp{@code{#t}} if only local files can be selected @end table Since 2.4 @end deffn @deffn Function gtk-file-chooser-get-local-only (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{bool}) @deffnx Method get-local-only Gets whether only local files can be selected in the file selector. See @code{gtk-file-chooser-set-local-only} @table @var @item chooser a @code{} @item ret @samp{@code{#t}} if only local files can be selected. @end table Since 2.4 @end deffn @deffn Function gtk-file-chooser-set-show-hidden (self@tie{}@code{}) (show_hidden@tie{}@code{bool}) @deffnx Method set-show-hidden Sets whether hidden files and folders are displayed in the file selector. @table @var @item chooser a @code{} @item show-hidden @samp{@code{#t}} if hidden files and folders should be displayed. @end table Since 2.6 @end deffn @deffn Function gtk-file-chooser-get-show-hidden (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{bool}) @deffnx Method get-show-hidden Gets whether hidden files and folders are displayed in the file selector. See @code{gtk-file-chooser-set-show-hidden}. @table @var @item chooser a @code{} @item ret @samp{@code{#t}} if hidden files and folders are displayed. @end table Since 2.6 @end deffn @deffn Function gtk-file-chooser-set-current-name (self@tie{}@code{}) (name@tie{}@code{mchars}) @deffnx Method set-current-name Sets the current name in the file selector, as if entered by the user. Note that the name passed in here is a UTF-8 string rather than a filename. This function is meant for such uses as a suggested name in a "Save As..." dialog. If you want to preselect a particular existing file, you should use @code{gtk-file-chooser-set-filename} or @code{gtk-file-chooser-set-uri} instead. Please see the documentation for those functions for an example of using @code{gtk-file-chooser-set-current-name} as well. @table @var @item chooser a @code{} @item name the filename to use, as a UTF-8 string @end table Since 2.4 @end deffn @deffn Function gtk-file-chooser-get-filename (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{mchars}) @deffnx Method get-filename Gets the filename for the currently selected file in the file selector. If multiple files are selected, one of the filenames will be returned at random. If the file chooser is in folder mode, this function returns the selected folder. @table @var @item chooser a @code{} @item ret The currently selected filename, or @samp{@code{#f}} if no file is selected, or the selected file can't be represented with a local filename. Free with @code{g-free}. @end table Since 2.4 @end deffn @deffn Function gtk-file-chooser-set-filename (self@tie{}@code{}) (filename@tie{}@code{mchars}) @result{}@tie{} (ret@tie{}@code{bool}) @deffnx Method set-filename Sets @var{filename} as the current filename for the file chooser, by changing to the file's parent folder and actually selecting the file in list. If the @var{chooser} is in @code{} mode, the file's base name will also appear in the dialog's file name entry. If the file name isn't in the current folder of @var{chooser}, then the current folder of @var{chooser} will be changed to the folder containing @var{filename}. This is equivalent to a sequence of @code{gtk-file-chooser-unselect-all} followed by @code{gtk-file-chooser-select-filename}. Note that the file must exist, or nothing will be done except for the directory change. If you are implementing a @c (guimenuitem "File/Save As...") dialog, you should use this function if you already have a file name to which the user may save; for example, when the user opens an existing file and then does @c (guimenuitem "File/Save As...") on it. If you don't have a file name already — for example, if the user just created a new file and is saving it for the first time, do not call this function. Instead, use something similar to this: @example if (document_is_new) @{ /* the user just created a new document */ gtk_file_chooser_set_current_folder (chooser, default_folder_for_saving); gtk_file_chooser_set_current_name (chooser, "Untitled document"); @} else @{ /* the user edited an existing document */ gtk_file_chooser_set_filename (chooser, existing_filename); @} @end example @table @var @item chooser a @code{} @item filename the filename to set as current @item ret @samp{@code{#t}} if both the folder could be changed and the file was selected successfully, @samp{@code{#f}} otherwise. @end table Since 2.4 @end deffn @deffn Function gtk-file-chooser-select-filename (self@tie{}@code{}) (filename@tie{}@code{mchars}) @result{}@tie{} (ret@tie{}@code{bool}) @deffnx Method select-filename Selects a filename. If the file name isn't in the current folder of @var{chooser}, then the current folder of @var{chooser} will be changed to the folder containing @var{filename}. @table @var @item chooser a @code{} @item filename the filename to select @item ret @samp{@code{#t}} if both the folder could be changed and the file was selected successfully, @samp{@code{#f}} otherwise. @end table Since 2.4 @end deffn @deffn Function gtk-file-chooser-unselect-filename (self@tie{}@code{}) (filename@tie{}@code{mchars}) @deffnx Method unselect-filename Unselects a currently selected filename. If the filename is not in the current directory, does not exist, or is otherwise not currently selected, does nothing. @table @var @item chooser a @code{} @item filename the filename to unselect @end table Since 2.4 @end deffn @deffn Function gtk-file-chooser-select-all (self@tie{}@code{}) @deffnx Method select-all Selects all the files in the current folder of a file chooser. @table @var @item chooser a @code{} @end table Since 2.4 @end deffn @deffn Function gtk-file-chooser-unselect-all (self@tie{}@code{}) @deffnx Method unselect-all Unselects all the files in the current folder of a file chooser. @table @var @item chooser a @code{} @end table Since 2.4 @end deffn @deffn Function gtk-file-chooser-get-filenames (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{gslist-of}) @deffnx Method get-filenames Lists all the selected files and subfolders in the current folder of @var{chooser}. The returned names are full absolute paths. If files in the current folder cannot be represented as local filenames they will be ignored. (See @code{gtk-file-chooser-get-uris}) @table @var @item chooser a @code{} @item ret a @code{} containing the filenames of all selected files and subfolders in the current folder. Free the returned list with @code{g-slist-free}, and the filenames with @code{g-free}. @end table Since 2.4 @end deffn @deffn Function gtk-file-chooser-set-current-folder (self@tie{}@code{}) (filename@tie{}@code{mchars}) @result{}@tie{} (ret@tie{}@code{bool}) @deffnx Method set-current-folder Sets the current folder for @var{chooser} from a local filename. The user will be shown the full contents of the current folder, plus user interface elements for navigating to other folders. @table @var @item chooser a @code{} @item filename the full path of the new current folder @item ret @samp{@code{#t}} if the folder could be changed successfully, @samp{@code{#f}} otherwise. @end table Since 2.4 @end deffn @deffn Function gtk-file-chooser-get-current-folder (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{mchars}) @deffnx Method get-current-folder Gets the current folder of @var{chooser} as a local filename. See @code{gtk-file-chooser-set-current-folder}. Note that this is the folder that the file chooser is currently displaying (e.g. "/home/username/Documents"), which is @emph{not the same} as the currently-selected folder if the chooser is in @code{} mode (e.g. "/home/username/Documents/selected-folder/". To get the currently-selected folder in that mode, use @code{gtk-file-chooser-get-uri} as the usual way to get the selection. @table @var @item chooser a @code{} @item ret the full path of the current folder, or @samp{@code{#f}} if the current path cannot be represented as a local filename. Free with @code{g-free}. This function will also return @samp{@code{#f}} if the file chooser was unable to load the last folder that was requested from it; for example, as would be for calling @code{gtk-file-chooser-set-current-folder} on a nonexistent folder. @end table Since 2.4 @end deffn @deffn Function gtk-file-chooser-get-uri (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{mchars}) @deffnx Method get-uri Gets the URI for the currently selected file in the file selector. If multiple files are selected, one of the filenames will be returned at random. If the file chooser is in folder mode, this function returns the selected folder. @table @var @item chooser a @code{} @item ret The currently selected URI, or @samp{@code{#f}} if no file is selected. Free with @code{g-free} @end table Since 2.4 @end deffn @deffn Function gtk-file-chooser-set-uri (self@tie{}@code{}) (uri@tie{}@code{mchars}) @result{}@tie{} (ret@tie{}@code{bool}) @deffnx Method set-uri Sets the file referred to by @var{uri} as the current file for the file chooser, by changing to the URI's parent folder and actually selecting the URI in the list. If the @var{chooser} is @code{} mode, the URI's base name will also appear in the dialog's file name entry. If the URI isn't in the current folder of @var{chooser}, then the current folder of @var{chooser} will be changed to the folder containing @var{uri}. This is equivalent to a sequence of @code{gtk-file-chooser-unselect-all} followed by @code{gtk-file-chooser-select-uri}. Note that the URI must exist, or nothing will be done except for the directory change. If you are implementing a @c (guimenuitem "File/Save As...") dialog, you should use this function if you already have a file name to which the user may save; for example, when the user opens an existing file and then does @c (guimenuitem "File/Save As...") on it. If you don't have a file name already — for example, if the user just created a new file and is saving it for the first time, do not call this function. Instead, use something similar to this: @example if (document_is_new) @{ /* the user just created a new document */ gtk_file_chooser_set_current_folder_uri (chooser, default_folder_for_saving); gtk_file_chooser_set_current_name (chooser, "Untitled document"); @} else @{ /* the user edited an existing document */ gtk_file_chooser_set_uri (chooser, existing_uri); @} @end example @table @var @item chooser a @code{} @item uri the URI to set as current @item ret @samp{@code{#t}} if both the folder could be changed and the URI was selected successfully, @samp{@code{#f}} otherwise. @end table Since 2.4 @end deffn @deffn Function gtk-file-chooser-select-uri (self@tie{}@code{}) (uri@tie{}@code{mchars}) @result{}@tie{} (ret@tie{}@code{bool}) @deffnx Method select-uri Selects the file to by @var{uri}. If the URI doesn't refer to a file in the current folder of @var{chooser}, then the current folder of @var{chooser} will be changed to the folder containing @var{filename}. @table @var @item chooser a @code{} @item uri the URI to select @item ret @samp{@code{#t}} if both the folder could be changed and the URI was selected successfully, @samp{@code{#f}} otherwise. @end table Since 2.4 @end deffn @deffn Function gtk-file-chooser-unselect-uri (self@tie{}@code{}) (uri@tie{}@code{mchars}) @deffnx Method unselect-uri Unselects the file referred to by @var{uri}. If the file is not in the current directory, does not exist, or is otherwise not currently selected, does nothing. @table @var @item chooser a @code{} @item uri the URI to unselect @end table Since 2.4 @end deffn @deffn Function gtk-file-chooser-get-uris (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{gslist-of}) @deffnx Method get-uris Lists all the selected files and subfolders in the current folder of @var{chooser}. The returned names are full absolute URIs. @table @var @item chooser a @code{} @item ret a @code{} containing the URIs of all selected files and subfolders in the current folder. Free the returned list with @code{g-slist-free}, and the filenames with @code{g-free}. @end table Since 2.4 @end deffn @deffn Function gtk-file-chooser-set-preview-widget (self@tie{}@code{}) (preview_widget@tie{}@code{}) @deffnx Method set-preview-widget Sets an application-supplied widget to use to display a custom preview of the currently selected file. To implement a preview, after setting the preview widget, you connect to the ::update-preview signal, and call @code{gtk-file-chooser-get-preview-filename} or @code{gtk-file-chooser-get-preview-uri} on each change. If you can display a preview of the new file, update your widget and set the preview active using @code{gtk-file-chooser-set-preview-widget-active}. Otherwise, set the preview inactive. When there is no application-supplied preview widget, or the application-supplied preview widget is not active, the file chooser may display an internally generated preview of the current file or it may display no preview at all. @table @var @item chooser a @code{} @item preview-widget widget for displaying preview. @end table Since 2.4 @end deffn @deffn Function gtk-file-chooser-get-preview-widget (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{}) @deffnx Method get-preview-widget Gets the current preview widget; see @code{gtk-file-chooser-set-preview-widget}. @table @var @item chooser a @code{} @item ret the current preview widget, or @samp{@code{#f}} @end table Since 2.4 @end deffn @deffn Function gtk-file-chooser-get-preview-uri (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{mchars}) @deffnx Method get-preview-uri Gets the URI that should be previewed in a custom preview widget. See @code{gtk-file-chooser-set-preview-widget}. @table @var @item chooser a @code{} @item ret the URI for the file to preview, or @samp{@code{#f}} if no file is selected. Free with @code{g-free}. @end table Since 2.4 @end deffn @deffn Function gtk-file-chooser-set-extra-widget (self@tie{}@code{}) (extra_widget@tie{}@code{}) @deffnx Method set-extra-widget Sets an application-supplied widget to provide extra options to the user. @table @var @item chooser a @code{} @item extra-widget widget for extra options @end table Since 2.4 @end deffn @deffn Function gtk-file-chooser-get-extra-widget (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{}) @deffnx Method get-extra-widget Gets the current preview widget; see @code{gtk-file-chooser-set-extra-widget}. @table @var @item chooser a @code{} @item ret the current extra widget, or @samp{@code{#f}} @end table Since 2.4 @end deffn @deffn Function gtk-file-chooser-add-filter (self@tie{}@code{}) (filter@tie{}@code{}) @deffnx Method add-filter Adds @var{filter} to the list of filters that the user can select between. When a filter is selected, only files that are passed by that filter are displayed. Note that the @var{chooser} takes ownership of the filter, so you have to ref and sink it if you want to keep a reference. @table @var @item chooser a @code{} @item filter a @code{} @end table Since 2.4 @end deffn @deffn Function gtk-file-chooser-remove-filter (self@tie{}@code{}) (filter@tie{}@code{}) @deffnx Method remove-filter Removes @var{filter} from the list of filters that the user can select between. @table @var @item chooser a @code{} @item filter a @code{} @end table Since 2.4 @end deffn @deffn Function gtk-file-chooser-list-filters (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{gslist-of}) @deffnx Method list-filters Lists the current set of user-selectable filters; see @code{gtk-file-chooser-add-filter}, @code{gtk-file-chooser-remove-filter}. @table @var @item chooser a @code{} @item ret a @code{} containing the current set of user selectable filters. The contents of the list are owned by GTK+, but you must free the list itself with @code{g-slist-free} when you are done with it. @end table Since 2.4 @end deffn @deffn Function gtk-file-chooser-set-filter (self@tie{}@code{}) (filter@tie{}@code{}) @deffnx Method set-filter Sets the current filter; only the files that pass the filter will be displayed. If the user-selectable list of filters is non-empty, then the filter should be one of the filters in that list. Setting the current filter when the list of filters is empty is useful if you want to restrict the displayed set of files without letting the user change it. @table @var @item chooser a @code{} @item filter a @code{} @end table Since 2.4 @end deffn @deffn Function gtk-file-chooser-get-filter (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{}) @deffnx Method get-filter Gets the current filter; see @code{gtk-file-chooser-set-filter}. @table @var @item chooser a @code{} @item ret the current filter, or @samp{@code{#f}} @end table Since 2.4 @end deffn @c %end of fragment guile-gnome-platform-2.16.2/gtk/doc/gtk/section-gtktreeview.xml.texi0000644000175000017500000000066311670374303026010 0ustar00wingowingo00000000000000 @c %start of fragment @node GtkTreeView @chapter GtkTreeView A widget for displaying both trees and lists @section Overview Widget that displays any object that implements the GtkTreeModel interface. Please refer to the tree widget conceptual overview for an overview of all the objects and data types related to the tree widget and how they work together. @section Usage @include defuns-gtktreeview.xml.texi @c %end of fragment guile-gnome-platform-2.16.2/gtk/doc/gtk/section-gtktooltips.xml.texi0000644000175000017500000000523311670374303026031 0ustar00wingowingo00000000000000 @c %start of fragment @node GtkTooltips @chapter GtkTooltips Add tips to your widgets @section Overview Tooltips are the messages that appear next to a widget when the mouse pointer is held over it for a short amount of time. They are especially helpful for adding more verbose descriptions of things such as buttons in a toolbar. An individual tooltip belongs to a group of tooltips. A group is created with a call to @code{gtk-tooltips-new}. Every tooltip in the group can then be turned off with a call to @code{gtk-tooltips-disable} and enabled with @code{gtk-tooltips-enable}. The length of time the user must keep the mouse over a widget before the tip is shown, can be altered with @code{gtk-tooltips-set-delay}. This is set on a 'per group of tooltips' basis. To assign a tip to a particular @code{}, @code{gtk-tooltips-set-tip} is used. Tooltips can only be set on widgets which have their own X window and receive enter and leave events. To check if a widget has its own window use @code{gtk-widget-no-window}. To add a tooltip to a widget that doesn't have its own window, place the widget inside a @code{} and add a tooltip to that instead. The default appearance of all tooltips in a program is determined by the current GTK+ theme that the user has selected. Information about the tooltip (if any) associated with an arbitrary widget can be retrieved using @code{gtk-tooltips-data-get}. @example GtkWidget *load_button, *save_button, *hbox; GtkTooltips *button_bar_tips; button_bar_tips = gtk_tooltips_new (); /* Create the buttons and pack them into a GtkHBox */ hbox = gtk_hbox_new (TRUE, 2); load_button = gtk_button_new_with_label ("Load a file"); gtk_box_pack_start (GTK_BOX (hbox), load_button, TRUE, TRUE, 2); gtk_widget_show (load_button); save_button = gtk_button_new_with_label ("Save a file"); gtk_box_pack_start (GTK_BOX (hbox), save_button, TRUE, TRUE, 2); gtk_widget_show (save_button); gtk_widget_show (hbox); /* Add the tips */ gtk_tooltips_set_tip (GTK_TOOLTIPS (button_bar_tips), load_button, "Load a new document into this window", "Requests the filename of a document. This will then be loaded into the current window, replacing the contents of whatever is already loaded."); gtk_tooltips_set_tip (GTK_TOOLTIPS (button_bar_tips), save_button, "Saves the current document to a file", "If you have saved the document previously, then the new version will be saved over the old one. Otherwise, you will be prompted for a filename."); @end example @section Usage @include defuns-gtktooltips.xml.texi @c %end of fragment guile-gnome-platform-2.16.2/gtk/doc/gtk/section-gtkseparatormenuitem.xml.texi0000644000175000017500000000060111670374303027712 0ustar00wingowingo00000000000000 @c %start of fragment @node GtkSeparatorMenuItem @chapter GtkSeparatorMenuItem A separator used in menus @section Overview The @code{} is a separator used to group items within a menu. It displays a horizontal line with a shadow to make it appear sunken into the interface. @section Usage @include defuns-gtkseparatormenuitem.xml.texi @c %end of fragment guile-gnome-platform-2.16.2/gtk/doc/gtk/defuns-gtkhruler.xml.texi0000644000175000017500000000052411670374302025272 0ustar00wingowingo00000000000000 @c %start of fragment @deftp Class Derives from @code{}. This class defines no direct slots. @end deftp @deffn Function gtk-hruler-new @result{}@tie{} (ret@tie{}@code{}) Creates a new horizontal ruler. @table @var @item ret a new @code{}. @end table @end deffn @c %end of fragment guile-gnome-platform-2.16.2/gtk/doc/gtk/section-gtktextiter.xml.texi0000644000175000017500000000054711670374303026027 0ustar00wingowingo00000000000000 @c %start of fragment @node GtkTextIter @chapter GtkTextIter Text buffer iterator @section Overview You may wish to begin by reading the text widget conceptual overview which gives an overview of all the objects and data types related to the text widget and how they work together. @section Usage @include defuns-gtktextiter.xml.texi @c %end of fragment guile-gnome-platform-2.16.2/gtk/doc/gtk/defuns-gtkcolorsel.xml.texi0000644000175000017500000000401111670374302025606 0ustar00wingowingo00000000000000 @c %start of fragment @deftp Class Derives from @code{}. This class defines the following slots: @table @code @item has-palette Whether a palette should be used @item has-opacity-control Whether the color selector should allow setting opacity @item current-color The current color @item current-alpha The current opacity value (0 fully transparent, 65535 fully opaque) @end table @end deftp @defop Signal color-changed This signal is emitted when the color changes in the @code{} according to its update policy. @end defop @deffn Function gtk-color-selection-new @result{}@tie{} (ret@tie{}@code{}) Creates a new GtkColorSelection. @table @var @item ret a new @code{} @end table @end deffn @deffn Function gtk-color-selection-set-has-palette (self@tie{}@code{}) (has_palette@tie{}@code{bool}) @deffnx Method set-has-palette Shows and hides the palette based upon the value of @var{has-palette}. @table @var @item colorsel a @code{}. @item has-palette @samp{@code{#t}} if palette is to be visible, @samp{@code{#f}} otherwise. @end table @end deffn @deffn Function gtk-color-selection-get-has-palette (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{bool}) @deffnx Method get-has-palette Determines whether the color selector has a color palette. @table @var @item colorsel a @code{}. @item ret @samp{@code{#t}} if the selector has a palette. @samp{@code{#f}} if it hasn't. @end table @end deffn @deffn Function gtk-color-selection-is-adjusting (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{bool}) @deffnx Method is-adjusting Gets the current state of the @var{colorsel}. @table @var @item colorsel a @code{}. @item ret @samp{@code{#t}} if the user is currently dragging a color around, and @samp{@code{#f}} if the selection has stopped. @end table @end deffn @c %end of fragment guile-gnome-platform-2.16.2/gtk/doc/gtk/defuns-gtkprogressbar.xml.texi0000644000175000017500000001243711670374302026330 0ustar00wingowingo00000000000000 @c %start of fragment @deftp Class Derives from @code{}. This class defines the following slots: @table @code @item fraction The fraction of total work that has been completed @item pulse-step The fraction of total progress to move the bouncing block when pulsed @item orientation Orientation and growth direction of the progress bar @item text Text to be displayed in the progress bar @item ellipsize The preferred place to ellipsize the string, if the progress bar does not have enough room to display the entire string, if at all. @item adjustment The GtkAdjustment connected to the progress bar (Deprecated) @item bar-style Specifies the visual style of the bar in percentage mode (Deprecated) @item activity-step The increment used for each iteration in activity mode (Deprecated) @item activity-blocks The number of blocks which can fit in the progress bar area in activity mode (Deprecated) @item discrete-blocks The number of discrete blocks in a progress bar (when shown in the discrete style) @end table @end deftp @deffn Function gtk-progress-bar-new @result{}@tie{} (ret@tie{}@code{}) Creates a new @code{}. @table @var @item ret a @code{}. @end table @end deffn @deffn Function gtk-progress-bar-pulse (self@tie{}@code{}) @deffnx Method pulse Indicates that some progress is made, but you don't know how much. Causes the progress bar to enter "activity mode," where a block bounces back and forth. Each call to @code{gtk-progress-bar-pulse} causes the block to move by a little bit (the amount of movement per pulse is determined by @code{gtk-progress-bar-set-pulse-step}). @table @var @item pbar a @code{} @end table @end deffn @deffn Function gtk-progress-bar-set-text (self@tie{}@code{}) (text@tie{}@code{mchars}) @deffnx Method set-text Causes the given @var{text} to appear superimposed on the progress bar. @table @var @item pbar a @code{} @item text a UTF-8 string, or @samp{@code{#f}} @end table @end deffn @deffn Function gtk-progress-bar-set-fraction (self@tie{}@code{}) (fraction@tie{}@code{double}) @deffnx Method set-fraction Causes the progress bar to "fill in" the given fraction of the bar. The fraction should be between 0.0 and 1.0, inclusive. @table @var @item pbar a @code{} @item fraction fraction of the task that's been completed @end table @end deffn @deffn Function gtk-progress-bar-set-pulse-step (self@tie{}@code{}) (fraction@tie{}@code{double}) @deffnx Method set-pulse-step Sets the fraction of total progress bar length to move the bouncing block for each call to @code{gtk-progress-bar-pulse}. @table @var @item pbar a @code{} @item fraction fraction between 0.0 and 1.0 @end table @end deffn @deffn Function gtk-progress-bar-set-orientation (self@tie{}@code{}) (orientation@tie{}@code{}) @deffnx Method set-orientation Causes the progress bar to switch to a different orientation (left-to-right, right-to-left, top-to-bottom, or bottom-to-top). @table @var @item pbar a @code{} @item orientation orientation of the progress bar @end table @end deffn @deffn Function gtk-progress-bar-set-ellipsize (self@tie{}@code{}) (mode@tie{}@code{}) @deffnx Method set-ellipsize Sets the mode used to ellipsize (add an ellipsis: "...") the text if there is not enough space to render the entire string. @table @var @item pbar a @code{} @item mode a @code{} @end table Since 2.6 @end deffn @deffn Function gtk-progress-bar-get-text (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{mchars}) @deffnx Method get-text Retrieves the text displayed superimposed on the progress bar, if any, otherwise @samp{@code{#f}}. The return value is a reference to the text, not a copy of it, so will become invalid if you change the text in the progress bar. @table @var @item pbar a @code{} @item ret text, or @samp{@code{#f}}; this string is owned by the widget and should not be modified or freed. @end table @end deffn @deffn Function gtk-progress-bar-get-fraction (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{double}) @deffnx Method get-fraction Returns the current fraction of the task that's been completed. @table @var @item pbar a @code{} @item ret a fraction from 0.0 to 1.0 @end table @end deffn @deffn Function gtk-progress-bar-get-pulse-step (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{double}) @deffnx Method get-pulse-step Retrieves the pulse step set with @code{gtk-progress-bar-set-pulse-step} @table @var @item pbar a @code{} @item ret a fraction from 0.0 to 1.0 @end table @end deffn @deffn Function gtk-progress-bar-get-ellipsize (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{}) @deffnx Method get-ellipsize Returns the ellipsizing position of the progressbar. See @code{gtk-progress-bar-set-ellipsize}. @table @var @item pbar a @code{} @item ret @code{} @end table Since 2.6 @end deffn @c %end of fragment guile-gnome-platform-2.16.2/gtk/doc/gtk/section-gtkmenuitem.xml.texi0000644000175000017500000000074011670374302025774 0ustar00wingowingo00000000000000 @c %start of fragment @node GtkMenuItem @chapter GtkMenuItem The widget used for item in menus @section Overview The @code{} widget and the derived widgets are the only valid childs for menus. Their function is to correctly handle highlighting, alignment, events and submenus. As it derives from @code{} it can hold any valid child widget, altough only a few are really useful. @section Usage @include defuns-gtkmenuitem.xml.texi @c %end of fragment guile-gnome-platform-2.16.2/gtk/doc/gtk/section-gtktexttag.xml.texi0000644000175000017500000000127711670374303025640 0ustar00wingowingo00000000000000 @c %start of fragment @node GtkTextTag @chapter GtkTextTag A tag that can be applied to text in a @section Overview You may wish to begin by reading the text widget conceptual overview which gives an overview of all the objects and data types related to the text widget and how they work together. Tags should be in the @code{} for a given @code{} before using them with that buffer. @code{gtk-text-buffer-create-tag} is the best way to create tags. See for numerous examples. The "invisible" property was not implemented for GTK+ 2.0; it's planned to be implemented in future releases. @section Usage @include defuns-gtktexttag.xml.texi @c %end of fragment guile-gnome-platform-2.16.2/gtk/doc/gtk/overview.texi0000644000175000017500000000541711670374302023056 0ustar00wingowingo00000000000000@node Overview @chapter Overview The GTK+ wrapper for Guile is a part of Guile-GNOME. It's a good idea to read the @code{(gnome gobject)} documentation first. @xref{Top,,Contents,guile-gnome-gobject, Guile-GNOME: GObject}. @section Example usage The following code can be found in the file @code{gtk/examples/hello.scm} in your distribution. @example (use-modules (oop goops) (gnome gobject) (gnome gtk)) ;; define the app as a function -- there are many other ways to do ;; this, of course... (define (hello) ;; every widget has a class. here we define a window and a button. (let* ((window (make #:type 'toplevel)) (button (make #:label "Hello, World!"))) (gtk-container-set-border-width window 10) (gtk-container-add window button) ;; of course you can attach a lambda to a signal :-) (gtype-instance-signal-connect button 'clicked (lambda (b) (gtk-main-quit))) (gtk-widget-show-all window) ;; this will block until gtk-main-quit is called... (gtk-main))) ;; meaning this blocks until the button is clicked. (hello) @end example @section @code{hello world}, improved There's something about this that resembles programming in C a little bit too much. In Python, you can just do @code{window.add(button)}. That's a lot less typing. In GOOPS, the object framework for Guile, methods are implemented a bit differently -- @xref{gnome gobject generics,,(gnome gobject generics),guile-gnome-gobject,Guile-Gnome:GObject}. If we use the GOOPS methods, @code{hello-generics.scm} looks a bit different: @example (use-modules (oop goops) (gnome gobject) (gnome gtk) (gnome gobject utils)) (define (hello) (let* ((window (make #:type 'toplevel)) (button (make #:label "Hello, World!"))) ;; since window is a container, this generic maps onto the ;; function gtk-container-set-border-width (set-border-width window 10) ;; note that we can set the border width with a gobject property ;; as well: (gobject-set-property window 'border-width 15) ;; (gnome gobject generics), re-exported by (gnome gtk), defines a ;; generic `set' method for gobject-set-property, se we can also ;; do it like this: (set window 'border-width 20) ;; or, like this, using with-accessors from (gnome gobject utils): (with-accessors (border-width) (set! (border-width window) 20)) ;; this is much less typing :-) (add window button) ;; see (gnome gobject generics) for a full list of gobject generic ;; functions (connect button 'clicked (lambda (b) (gtk-main-quit))) ;; generic functions for .defs apis are defined in the .defs files, ;; not manually (show-all window) (gtk-main))) (hello) @end example guile-gnome-platform-2.16.2/gtk/doc/gtk/section-gtkmenu.xml.texi0000644000175000017500000000347611670374302025126 0ustar00wingowingo00000000000000 @c %start of fragment @node GtkMenu @chapter GtkMenu A menu widget @section Overview A @code{} is a @code{} that implements a drop down menu consisting of a list of @code{} objects which can be navigated and activated by the user to perform application functions. A @code{} is most commonly dropped down by activating a @code{} in a @code{} or popped up by activating a @code{} in another @code{}. A @code{} can also be popped up by activating a @code{}. Other composite widgets such as the @code{} can pop up a @code{} as well. Applications can display a @code{} as a popup menu by calling the @code{gtk-menu-popup} function. The example below shows how an application can pop up a menu when the 3rd mouse button is pressed. @example /* connect our handler which will popup the menu */ g_signal_connect_swapped (window, "button_press_event", G_CALLBACK (my_popup_handler), menu); @end example @example static gint my_popup_handler (GtkWidget *widget, GdkEvent *event) @{ GtkMenu *menu; GdkEventButton *event_button; g_return_val_if_fail (widget != NULL, FALSE); g_return_val_if_fail (GTK_IS_MENU (widget), FALSE); g_return_val_if_fail (event != NULL, FALSE); /* The "widget" is the menu that was supplied when * g_signal_connect_swapped() was called. */ menu = GTK_MENU (widget); if (event->type == GDK_BUTTON_PRESS) @{ event_button = (GdkEventButton *) event; if (event_button->button == 3) @{ gtk_menu_popup (menu, NULL, NULL, NULL, NULL, event_button->button, event_button->time); return TRUE; @} @} return FALSE; @} @end example @section Usage @include defuns-gtkmenu.xml.texi @c %end of fragment guile-gnome-platform-2.16.2/gtk/doc/gtk/section-gtkfilesel.xml.texi0000644000175000017500000000531311670374302025575 0ustar00wingowingo00000000000000 @c %start of fragment @node GtkFileSelection @chapter GtkFileSelection Prompt the user for a file or directory name @section Overview @code{} should be used to retrieve file or directory names from the user. It will create a new dialog window containing a directory list, and a file list corresponding to the current working directory. The filesystem can be navigated using the directory list or the drop-down history menu. Alternatively, the TAB key can be used to navigate using filename completion - common in text based editors such as emacs and jed. File selection dialogs are created with a call to @code{gtk-file-selection-new}. The default filename can be set using @code{gtk-file-selection-set-filename} and the selected filename retrieved using @code{gtk-file-selection-get-filename}. Use @code{gtk-file-selection-complete} to display files and directories that match a given pattern. This can be used for example, to show only *.txt files, or only files beginning with gtk*. Simple file operations; create directory, delete file, and rename file, are available from buttons at the top of the dialog. These can be hidden using @code{gtk-file-selection-hide-fileop-buttons} and shown again using @code{gtk-file-selection-show-fileop-buttons}. @example /* The file selection widget and the string to store the chosen filename */ void store_filename (GtkWidget *widget, gpointer user_data) @{ GtkWidget *file_selector = GTK_WIDGET (user_data); const gchar *selected_filename; selected_filename = gtk_file_selection_get_filename (GTK_FILE_SELECTION (file_selector)); g_print ("Selected filename: %s\n", selected_filename); @} void create_file_selection (void) @{ GtkWidget *file_selector; /* Create the selector */ file_selector = gtk_file_selection_new ("Please select a file for editing."); g_signal_connect (GTK_FILE_SELECTION (file_selector)->ok_button, "clicked", G_CALLBACK (store_filename), file_selector); /* Ensure that the dialog box is destroyed when the user clicks a button. */ g_signal_connect_swapped (GTK_FILE_SELECTION (file_selector)->ok_button, "clicked", G_CALLBACK (gtk_widget_destroy), file_selector); g_signal_connect_swapped (GTK_FILE_SELECTION (file_selector)->cancel_button, "clicked", G_CALLBACK (gtk_widget_destroy), file_selector); /* Display that dialog */ gtk_widget_show (file_selector); @} @end example @section Usage @include defuns-gtkfilesel.xml.texi @c %end of fragment guile-gnome-platform-2.16.2/gtk/doc/gtk/defuns-gtkcolorbutton.xml.texi0000644000175000017500000001065311670374302026347 0ustar00wingowingo00000000000000 @c %start of fragment @deftp Class Derives from @code{}. This class defines the following slots: @table @code @item use-alpha Whether or not to give the color an alpha value @item title The title of the color selection dialog @item color The selected color @item alpha The selected opacity value (0 fully transparent, 65535 fully opaque) @end table @end deftp @defop Signal color-set The ::color-set signal is emitted when the user selects a color. When handling this signal, use @code{gtk-color-button-get-color} and @code{gtk-color-button-get-alpha} to find out which color was just selected. Note that this signal is only emitted when the @emph{user} changes the color. If you need to react to programmatic color changes as well, use the notify::color signal. Since 2.4 @end defop @deffn Function gtk-color-button-new @result{}@tie{} (ret@tie{}@code{}) Creates a new color button. This returns a widget in the form of a small button containing a swatch representing the current selected color. When the button is clicked, a color-selection dialog will open, allowing the user to select a color. The swatch will be updated to reflect the new color when the user finishes. @table @var @item ret a new color button. @end table Since 2.4 @end deffn @deffn Function gtk-color-button-new-with-color (color@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{}) Creates a new color button. @table @var @item color A @code{} to set the current color with. @item ret a new color button. @end table Since 2.4 @end deffn @deffn Function gtk-color-button-set-color (self@tie{}@code{}) (color@tie{}@code{}) @deffnx Method set-color Sets the current color to be @var{color}. @table @var @item color-button a @code{}. @item color A @code{} to set the current color with. @end table Since 2.4 @end deffn @deffn Function gtk-color-button-get-color (self@tie{}@code{}) (color@tie{}@code{}) @deffnx Method get-color Sets @var{color} to be the current color in the @code{} widget. @table @var @item color-button a @code{}. @item color a @code{} to fill in with the current color. @end table Since 2.4 @end deffn @deffn Function gtk-color-button-set-alpha (self@tie{}@code{}) (alpha@tie{}@code{unsigned-int16}) @deffnx Method set-alpha Sets the current opacity to be @var{alpha}. @table @var @item color-button a @code{}. @item alpha an integer between 0 and 65535. @end table Since 2.4 @end deffn @deffn Function gtk-color-button-get-alpha (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{unsigned-int16}) @deffnx Method get-alpha Returns the current alpha value. @table @var @item color-button a @code{}. @item ret an integer between 0 and 65535. @end table Since 2.4 @end deffn @deffn Function gtk-color-button-set-use-alpha (self@tie{}@code{}) (use_alpha@tie{}@code{bool}) @deffnx Method set-use-alpha Sets whether or not the color button should use the alpha channel. @table @var @item color-button a @code{}. @item use-alpha @samp{@code{#t}} if color button should use alpha channel, @samp{@code{#f}} if not. @end table Since 2.4 @end deffn @deffn Function gtk-color-button-get-use-alpha (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{bool}) @deffnx Method get-use-alpha Does the color selection dialog use the alpha channel? @table @var @item color-button a @code{}. @item ret @samp{@code{#t}} if the color sample uses alpha channel, @samp{@code{#f}} if not. @end table Since 2.4 @end deffn @deffn Function gtk-color-button-set-title (self@tie{}@code{}) (title@tie{}@code{mchars}) @deffnx Method set-title Sets the title for the color selection dialog. @table @var @item color-button a @code{} @item title String containing new window title. @end table Since 2.4 @end deffn @deffn Function gtk-color-button-get-title (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{mchars}) @deffnx Method get-title Gets the title of the color selection dialog. @table @var @item color-button a @code{} @item ret An internal string, do not free the return value @end table Since 2.4 @end deffn @c %end of fragment guile-gnome-platform-2.16.2/gtk/doc/gtk/defuns-gtkfixed.xml.texi0000644000175000017500000000446411670374302025077 0ustar00wingowingo00000000000000 @c %start of fragment @deftp Class Derives from @code{}. This class defines no direct slots. @end deftp @deffn Function gtk-fixed-new @result{}@tie{} (ret@tie{}@code{}) Creates a new @code{}. @table @var @item ret a new @code{}. @end table @end deffn @deffn Function gtk-fixed-put (self@tie{}@code{}) (widget@tie{}@code{}) (x@tie{}@code{int}) (y@tie{}@code{int}) @deffnx Method put Adds a widget to a @code{} container at the given position. @table @var @item fixed a @code{}. @item widget the widget to add. @item x the horizontal position to place the widget at. @item y the vertical position to place the widget at. @end table @end deffn @deffn Function gtk-fixed-move (self@tie{}@code{}) (widget@tie{}@code{}) (x@tie{}@code{int}) (y@tie{}@code{int}) @deffnx Method move Moves a child of a @code{} container to the given position. @table @var @item fixed a @code{}. @item widget the child widget. @item x the horizontal position to move the widget to. @item y the vertical position to move the widget to. @end table @end deffn @deffn Function gtk-fixed-get-has-window (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{bool}) @deffnx Method get-has-window Gets whether the @code{} has its own @code{}. See @code{gdk-fixed-set-has-window}. @table @var @item fixed a @code{} @item ret @samp{@code{#t}} if @var{fixed} has its own window. @end table @end deffn @deffn Function gtk-fixed-set-has-window (self@tie{}@code{}) (has_window@tie{}@code{bool}) @deffnx Method set-has-window Sets whether a @code{} widget is created with a separate @code{} for @var{widget->window} or not. (By default, it will be created with no separate @code{}). This function must be called while the @code{} is not realized, for instance, immediately after the window is created. This function was added to provide an easy migration path for older applications which may expect @code{} to have a separate window. @table @var @item fixed a @code{} @item has-window @samp{@code{#t}} if a separate window should be created @end table @end deffn @c %end of fragment guile-gnome-platform-2.16.2/gtk/doc/gtk/section-gtkbin.xml.texi0000644000175000017500000000107011670374302024716 0ustar00wingowingo00000000000000 @c %start of fragment @node GtkBin @chapter GtkBin A container with just one child @section Overview The @code{} widget is a container with just one child. It is not very useful itself, but it is useful for deriving subclasses, since it provides common code needed for handling a single child widget. Many GTK+ widgets are subclasses of @code{}, including @code{}, @code{}, @code{}, @code{}, and @code{}. @section Usage @include defuns-gtkbin.xml.texi @c %end of fragment guile-gnome-platform-2.16.2/gtk/doc/gtk/section-gtkhscale.xml.texi0000644000175000017500000000100111670374302025377 0ustar00wingowingo00000000000000 @c %start of fragment @node GtkHScale @chapter GtkHScale A horizontal slider widget for selecting a value from a range @section Overview The @code{} widget is used to allow the user to select a value using a horizontal slider. To create one, use @code{gtk-hscale-new-with-range}. The position to show the current value, and the number of decimal places shown can be set using the parent @code{} class's functions. @section Usage @include defuns-gtkhscale.xml.texi @c %end of fragment guile-gnome-platform-2.16.2/gtk/doc/gtk/section-gtkhandlebox.xml.texi0000644000175000017500000000244611670374302026122 0ustar00wingowingo00000000000000 @c %start of fragment @node GtkHandleBox @chapter GtkHandleBox a widget for detachable window portions @section Overview The @code{} widget allows a portion of a window to be "torn off". It is a bin widget which displays its child and a handle that the user can drag to tear off a separate window (the @dfn{float window}) containing the child widget. A thin @dfn{ghost} is drawn in the original location of the handlebox. By dragging the separate window back to its original location, it can be reattached. When reattaching, the ghost and float window, must be aligned along one of the edges, the @dfn{snap edge}. This either can be specified by the application programmer explicitely, or GTK+ will pick a reasonable default based on the handle position. To make detaching and reattaching the handlebox as minimally confusing as possible to the user, it is important to set the snap edge so that the snap edge does not move when the handlebox is deattached. For instance, if the handlebox is packed at the bottom of a VBox, then when the handlebox is detached, the bottom edge of the handlebox's allocation will remain fixed as the height of the handlebox shrinks, so the snap edge should be set to @samp{GTK_POS_BOTTOM}. @section Usage @include defuns-gtkhandlebox.xml.texi @c %end of fragment guile-gnome-platform-2.16.2/gtk/doc/gtk/section-gtkadjustment.xml.texi0000644000175000017500000000202611670374302026326 0ustar00wingowingo00000000000000 @c %start of fragment @node GtkAdjustment @chapter GtkAdjustment A GtkObject representing an adjustable bounded value @section Overview The @code{} object represents a value which has an associated lower and upper bound, together with step and page increments, and a page size. It is used within several GTK+ widgets, including @code{}, @code{}, and @code{} (which is a base class for @code{}, @code{}, @code{}, and @code{}). The @code{} object does not update the value itself. Instead it is left up to the owner of the @code{} to control the value. The owner of the @code{} typically calls the @code{gtk-adjustment-value-changed} and @code{gtk-adjustment-changed} functions after changing the value and its bounds. This results in the emission of the "value_changed" or "changed" signal respectively. @section Usage @include defuns-gtkadjustment.xml.texi @c %end of fragment guile-gnome-platform-2.16.2/gtk/doc/gtk/defuns-gtktreeselection.xml.texi0000644000175000017500000001372311670374302026643 0ustar00wingowingo00000000000000 @c %start of fragment @deftp Class Derives from @code{}. This class defines no direct slots. @end deftp @defop Signal changed Emitted whenever the selection has (possibly) changed. Please note that this signal is mostly a hint. It may only be emitted once when a range of rows are selected, and it may occasionally be emitted when nothing has happened. @end defop @deffn Function gtk-tree-selection-set-mode (self@tie{}@code{}) (type@tie{}@code{}) @deffnx Method set-mode Sets the selection mode of the @var{selection}. If the previous type was @code{}, then the anchor is kept selected, if it was previously selected. @table @var @item selection A @code{}. @item type The selection mode @end table @end deffn @deffn Function gtk-tree-selection-get-mode (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{}) @deffnx Method get-mode Gets the selection mode for @var{selection}. See @code{gtk-tree-selection-set-mode}. @table @var @item selection a @code{} @item ret the current selection mode @end table @end deffn @deffn Function gtk-tree-selection-get-tree-view (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{}) @deffnx Method get-tree-view Returns the tree view associated with @var{selection}. @table @var @item selection A @code{} @item ret A @code{} @end table @end deffn @deffn Function gtk-tree-selection-get-selected (self@tie{}@code{}) @result{}@tie{} (model@tie{}@code{}) (iter@tie{}@code{}) @deffnx Method get-selected @deffnx Method get-selected Retrieve the current selection, if @var{selection} is set to @code{} or @code{}. This function will not work if you use @var{selection} is @code{}. @table @var @item selection A @code{}. @item model A pointer to set to the @code{}, or NULL. @item iter The @code{}, or NULL. @end table @end deffn @deffn Function gtk-tree-selection-select-path (self@tie{}@code{}) (path@tie{}@code{}) @deffnx Method select-path Select the row at @var{path}. @table @var @item selection A @code{}. @item path The @code{} to be selected. @end table @end deffn @deffn Function gtk-tree-selection-unselect-path (self@tie{}@code{}) (path@tie{}@code{}) @deffnx Method unselect-path Unselects the row at @var{path}. @table @var @item selection A @code{}. @item path The @code{} to be unselected. @end table @end deffn @deffn Function gtk-tree-selection-path-is-selected (self@tie{}@code{}) (path@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{bool}) @deffnx Method path-is-selected Returns @samp{@code{#t}} if the row pointed to by @var{path} is currently selected. If @var{path} does not point to a valid location, @samp{@code{#f}} is returned @table @var @item selection A @code{}. @item path A @code{} to check selection on. @item ret @samp{@code{#t}} if @var{path} is selected. @end table @end deffn @deffn Function gtk-tree-selection-select-iter (self@tie{}@code{}) (iter@tie{}@code{}) @deffnx Method select-iter Selects the specified iterator. @table @var @item selection A @code{}. @item iter The @code{} to be selected. @end table @end deffn @deffn Function gtk-tree-selection-unselect-iter (self@tie{}@code{}) (iter@tie{}@code{}) @deffnx Method unselect-iter Unselects the specified iterator. @table @var @item selection A @code{}. @item iter The @code{} to be unselected. @end table @end deffn @deffn Function gtk-tree-selection-iter-is-selected (self@tie{}@code{}) (iter@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{bool}) @deffnx Method iter-is-selected Returns @samp{@code{#t}} if the row at @var{iter} is currently selected. @table @var @item selection A @code{} @item iter A valid @code{} @item ret @samp{@code{#t}}, if @var{iter} is selected @end table @end deffn @deffn Function gtk-tree-selection-select-all (self@tie{}@code{}) @deffnx Method select-all Selects all the nodes. @var{selection} must be set to @code{} mode. @table @var @item selection A @code{}. @end table @end deffn @deffn Function gtk-tree-selection-unselect-all (self@tie{}@code{}) @deffnx Method unselect-all Unselects all the nodes. @table @var @item selection A @code{}. @end table @end deffn @deffn Function gtk-tree-selection-select-range (self@tie{}@code{}) (start_path@tie{}@code{}) (end_path@tie{}@code{}) @deffnx Method select-range Selects a range of nodes, determined by @var{start-path} and @var{end-path} inclusive. @var{selection} must be set to @code{} mode. @table @var @item selection A @code{}. @item start-path The initial node of the range. @item end-path The final node of the range. @end table @end deffn @deffn Function gtk-tree-selection-unselect-range (self@tie{}@code{}) (start_path@tie{}@code{}) (end_path@tie{}@code{}) @deffnx Method unselect-range Unselects a range of nodes, determined by @var{start-path} and @var{end-path} inclusive. @table @var @item selection A @code{}. @item start-path The initial node of the range. @item end-path The initial node of the range. @end table Since 2.2 @end deffn @c %end of fragment guile-gnome-platform-2.16.2/gtk/doc/gtk/defuns-gtkcellrendereraccel.xml.texi0000644000175000017500000000205511670374302027430 0ustar00wingowingo00000000000000 @c %start of fragment @deftp Class Derives from @code{}. This class defines the following slots: @table @code @item accel-key The keyval of the accelerator @item accel-mods The modifier mask of the accelerator @item keycode The hardware keycode of the accelerator @item accel-mode The type of accelerators @end table @end deftp @defop Signal accel-edited (arg0@tie{}@code{}) (arg1@tie{}@code{}) (arg2@tie{}@code{}) (arg3@tie{}@code{}) Gets emitted when the user has selected a new accelerator. Since 2.10 @end defop @defop Signal accel-cleared (arg0@tie{}@code{}) Gets emitted when the user has removed the accelerator. Since 2.10 @end defop @deffn Function gtk-cell-renderer-accel-new @result{}@tie{} (ret@tie{}@code{}) Creates a new @code{}. @table @var @item ret the new cell renderer @end table Since 2.10 @end deffn @c %end of fragment guile-gnome-platform-2.16.2/gtk/doc/gtk/section-gtklabel.xml.texi0000644000175000017500000000762411670374302025240 0ustar00wingowingo00000000000000 @c %start of fragment @node GtkLabel @chapter GtkLabel A widget that displays a small to medium amount of text @section Overview The @code{} widget displays a small amount of text. As the name implies, most labels are used to label another widget such as a @code{}, a @code{}, or a @code{}. @section Mnemonics Labels may contain @dfn{mnemonics}. Mnemonics are underlined characters in the label, used for keyboard navigation. Mnemonics are created by providing a string with an underscore before the mnemonic character, such as @samp{"_File"}, to the functions @code{gtk-label-new-with-mnemonic} or @code{gtk-label-set-text-with-mnemonic}. Mnemonics automatically activate any activatable widget the label is inside, such as a @code{}; if the label is not inside the mnemonic's target widget, you have to tell the label about the target using @code{gtk-label-set-mnemonic-widget}. Here's a simple example where the label is inside a button: There's a convenience function to create buttons with a mnemonic label already inside: To create a mnemonic for a widget alongside the label, such as a @code{}, you have to point the label at the entry with @code{gtk-label-set-mnemonic-widget}: @example /* Pressing Alt+H will activate this button */ button = gtk_button_new (); label = gtk_label_new_with_mnemonic ("_Hello"); gtk_container_add (GTK_CONTAINER (button), label); @end example @example /* Pressing Alt+H will activate this button */ button = gtk_button_new_with_mnemonic ("_Hello"); @end example @example /* Pressing Alt+H will focus the entry */ entry = gtk_entry_new (); label = gtk_label_new_with_mnemonic ("_Hello"); gtk_label_set_mnemonic_widget (GTK_LABEL (label), entry); @end example @section Markup (styled text) To make it easy to format text in a label (changing colors, fonts, etc.), label text can be provided in a simple markup format. Here's how to create a label with a small font: (See complete documentation of available tags in the Pango manual.) @example label = gtk_label_new (NULL); gtk_label_set_markup (GTK_LABEL (label), "Small text"); @end example The markup passed to @code{gtk-label-set-markup} must be valid; for example, literal /& characters must be escaped as <, >, and &. If you pass text obtained from the user, file, or a network to @code{gtk-label-set-markup}, you'll want to escape it with @code{g-markup-escape-text} or @code{g-markup-printf-escaped}. Markup strings are just a convenient way to set the @code{} on a label; @code{gtk-label-set-attributes} may be a simpler way to set attributes in some cases. Be careful though; @code{} tends to cause internationalization problems, unless you're applying attributes to the entire string (i.e. unless you set the range of each attribute to [0, G_MAXINT)). The reason is that specifying the start_index and end_index for a @code{} requires knowledge of the exact string being displayed, so translations will cause problems. @section Selectable labels Labels can be made selectable with @code{gtk-label-set-selectable}. Selectable labels allow the user to copy the label contents to the clipboard. Only labels that contain useful-to-copy information — such as error messages — should be made selectable. @section Text layout A label can contain any number of paragraphs, but will have performance problems if it contains more than a small number. Paragraphs are separated by newlines or other paragraph separators understood by Pango. Labels can automatically wrap text if you call @code{gtk-label-set-line-wrap}. @code{gtk-label-set-justify} sets how the lines in a label align with one another. If you want to set how the label as a whole aligns in its available space, see @code{gtk-misc-set-alignment}. @section Usage @include defuns-gtklabel.xml.texi @c %end of fragment guile-gnome-platform-2.16.2/gtk/doc/gtk/section-gtkhseparator.xml.texi0000644000175000017500000000120311670374302026314 0ustar00wingowingo00000000000000 @c %start of fragment @node GtkHSeparator @chapter GtkHSeparator A horizontal separator @section Overview The @code{} widget is a horizontal separator, used to group the widgets within a window. It displays a horizontal line with a shadow to make it appear sunken into the interface. The @code{} widget is not used as a separator within menus. To create a separator in a menu create an empty @code{} widget using @code{gtk-separator-menu-item-new} and add it to the menu with @code{gtk-menu-shell-append}. @section Usage @include defuns-gtkhseparator.xml.texi @c %end of fragment guile-gnome-platform-2.16.2/gtk/doc/gtk/defuns-gtkcombobox.xml.texi0000644000175000017500000003243011670374302025602 0ustar00wingowingo00000000000000 @c %start of fragment @deftp Class Derives from @code{}, @code{}, @code{}. This class defines the following slots: @table @code @item model The model for the combo box @item wrap-width Wrap width for laying out the items in a grid @item row-span-column TreeModel column containing the row span values @item column-span-column TreeModel column containing the column span values @item active The item which is currently active @item add-tearoffs Whether dropdowns should have a tearoff menu item @item tearoff-title A title that may be displayed by the window manager when the popup is torn-off @item has-frame Whether the combo box draws a frame around the child @item focus-on-click Whether the combo box grabs focus when it is clicked with the mouse @item popup-shown Whether the combo's dropdown is shown @end table @end deftp @defop Signal changed The changed signal is emitted when the active item is changed. The can be due to the user selecting a different item from the list, or due to a call to @code{gtk-combo-box-set-active-iter}. It will also be emitted while typing into a GtkComboBoxEntry, as well as when selecting an item from the GtkComboBoxEntry's list. Since 2.4 @end defop @defop Signal move-active (arg0@tie{}@code{}) undocumented @end defop @defop Signal popup undocumented @end defop @defop Signal popdown @result{}@tie{}@code{} undocumented @end defop @deffn Function gtk-combo-box-new @result{}@tie{} (ret@tie{}@code{}) Creates a new empty @code{}. @table @var @item ret A new @code{}. @end table Since 2.4 @end deffn @deffn Function gtk-combo-box-new-with-model (model@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{}) Creates a new @code{} with the model initialized to @var{model}. @table @var @item model A @code{}. @item ret A new @code{}. @end table Since 2.4 @end deffn @deffn Function gtk-combo-box-get-wrap-width (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{int}) @deffnx Method get-wrap-width Returns the wrap width which is used to determine the number of columns for the popup menu. If the wrap width is larger than 1, the combo box is in table mode. @table @var @item combo-box A @code{}. @item ret the wrap width. @end table Since 2.6 @end deffn @deffn Function gtk-combo-box-set-wrap-width (self@tie{}@code{}) (width@tie{}@code{int}) @deffnx Method set-wrap-width Sets the wrap width of @var{combo-box} to be @var{width}. The wrap width is basically the preferred number of columns when you want the popup to be layed out in a table. @table @var @item combo-box A @code{}. @item width Preferred number of columns. @end table Since 2.4 @end deffn @deffn Function gtk-combo-box-get-row-span-column (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{int}) @deffnx Method get-row-span-column Returns the column with row span information for @var{combo-box}. @table @var @item combo-box A @code{}. @item ret the row span column. @end table Since 2.6 @end deffn @deffn Function gtk-combo-box-set-row-span-column (self@tie{}@code{}) (row_span@tie{}@code{int}) @deffnx Method set-row-span-column Sets the column with row span information for @var{combo-box} to be @var{row-span}. The row span column contains integers which indicate how many rows an item should span. @table @var @item combo-box A @code{}. @item row-span A column in the model passed during construction. @end table Since 2.4 @end deffn @deffn Function gtk-combo-box-get-active (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{int}) @deffnx Method get-active Returns the index of the currently active item, or -1 if there's no active item. If the model is a non-flat treemodel, and the active item is not an immediate child of the root of the tree, this function returns @samp{gtk_tree_path_get_indices (path)[0]}, where @samp{path} is the @code{} of the active item. @table @var @item combo-box A @code{}. @item ret An integer which is the index of the currently active item, or -1 if there's no active item. @end table Since 2.4 @end deffn @deffn Function gtk-combo-box-set-active (self@tie{}@code{}) (index_@tie{}@code{int}) @deffnx Method set-active Sets the active item of @var{combo-box} to be the item at @var{index}. @table @var @item combo-box A @code{}. @item index An index in the model passed during construction, or -1 to have no active item. @end table Since 2.4 @end deffn @deffn Function gtk-combo-box-get-active-iter (self@tie{}@code{}) (iter@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{bool}) @deffnx Method get-active-iter Sets @var{iter} to point to the current active item, if it exists. @table @var @item combo-box A @code{} @item iter The uninitialized @code{}. @item ret @samp{@code{#t}}, if @var{iter} was set @end table Since 2.4 @end deffn @deffn Function gtk-combo-box-set-active-iter (self@tie{}@code{}) (iter@tie{}@code{}) @deffnx Method set-active-iter Sets the current active item to be the one referenced by @var{iter}. @var{iter} must correspond to a path of depth one. @table @var @item combo-box A @code{} @item iter The @code{}. @end table Since 2.4 @end deffn @deffn Function gtk-combo-box-get-model (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{}) @deffnx Method get-model Returns the @code{} which is acting as data source for @var{combo-box}. @table @var @item combo-box A @code{}. @item ret A @code{} which was passed during construction. @end table Since 2.4 @end deffn @deffn Function gtk-combo-box-set-model (self@tie{}@code{}) (model@tie{}@code{}) @deffnx Method set-model Sets the model used by @var{combo-box} to be @var{model}. Will unset a previously set model (if applicable). If model is @samp{@code{#f}}, then it will unset the model. Note that this function does not clear the cell renderers, you have to call @code{gtk-combo-box-cell-layout-clear} yourself if you need to set up different cell renderers for the new model. @table @var @item combo-box A @code{}. @item model A @code{}. @end table Since 2.4 @end deffn @deffn Function gtk-combo-box-new-text @result{}@tie{} (ret@tie{}@code{}) Convenience function which constructs a new text combo box, which is a @code{} just displaying strings. If you use this function to create a text combo box, you should only manipulate its data source with the following convenience functions: @code{gtk-combo-box-append-text}, @code{gtk-combo-box-insert-text}, @code{gtk-combo-box-prepend-text} and @code{gtk-combo-box-remove-text}. @table @var @item ret A new text combo box. @end table Since 2.4 @end deffn @deffn Function gtk-combo-box-append-text (self@tie{}@code{}) (text@tie{}@code{mchars}) @deffnx Method append-text Appends @var{string} to the list of strings stored in @var{combo-box}. Note that you can only use this function with combo boxes constructed with @code{gtk-combo-box-new-text}. @table @var @item combo-box A @code{} constructed using @code{gtk-combo-box-new-text}. @item text A string. @end table Since 2.4 @end deffn @deffn Function gtk-combo-box-insert-text (self@tie{}@code{}) (position@tie{}@code{int}) (text@tie{}@code{mchars}) @deffnx Method insert-text Inserts @var{string} at @var{position} in the list of strings stored in @var{combo-box}. Note that you can only use this function with combo boxes constructed with @code{gtk-combo-box-new-text}. @table @var @item combo-box A @code{} constructed using @code{gtk-combo-box-new-text}. @item position An index to insert @var{text}. @item text A string. @end table Since 2.4 @end deffn @deffn Function gtk-combo-box-prepend-text (self@tie{}@code{}) (text@tie{}@code{mchars}) @deffnx Method prepend-text Prepends @var{string} to the list of strings stored in @var{combo-box}. Note that you can only use this function with combo boxes constructed with @code{gtk-combo-box-new-text}. @table @var @item combo-box A @code{} constructed with @code{gtk-combo-box-new-text}. @item text A string. @end table Since 2.4 @end deffn @deffn Function gtk-combo-box-remove-text (self@tie{}@code{}) (position@tie{}@code{int}) @deffnx Method remove-text Removes the string at @var{position} from @var{combo-box}. Note that you can only use this function with combo boxes constructed with @code{gtk-combo-box-new-text}. @table @var @item combo-box A @code{} constructed with @code{gtk-combo-box-new-text}. @item position Index of the item to remove. @end table Since 2.4 @end deffn @deffn Function gtk-combo-box-get-active-text (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{mchars}) @deffnx Method get-active-text Returns the currently active string in @var{combo-box} or @samp{@code{#f}} if none is selected. Note that you can only use this function with combo boxes constructed with @code{gtk-combo-box-new-text} and with @code{}s. @table @var @item combo-box A @code{} constructed with @code{gtk-combo-box-new-text}. @item ret a newly allocated string containing the currently active text. @end table Since 2.6 @end deffn @deffn Function gtk-combo-box-popup (self@tie{}@code{}) @deffnx Method popup Pops up the menu or dropdown list of @var{combo-box}. This function is mostly intended for use by accessibility technologies; applications should have little use for it. @table @var @item combo-box a @code{} @end table Since 2.4 @end deffn @deffn Function gtk-combo-box-popdown (self@tie{}@code{}) @deffnx Method popdown Hides the menu or dropdown list of @var{combo-box}. This function is mostly intended for use by accessibility technologies; applications should have little use for it. @table @var @item combo-box a @code{} @end table Since 2.4 @end deffn @deffn Function gtk-combo-box-get-popup-accessible (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{}) @deffnx Method get-popup-accessible Gets the accessible object corresponding to the combo box's popup. This function is mostly intended for use by accessibility technologies; applications should have little use for it. @table @var @item combo-box a @code{} @item ret the accessible object corresponding to the combo box's popup. @end table Since 2.6 @end deffn @deffn Function gtk-combo-box-set-add-tearoffs (self@tie{}@code{}) (add_tearoffs@tie{}@code{bool}) @deffnx Method set-add-tearoffs Sets whether the popup menu should have a tearoff menu item. @table @var @item combo-box a @code{} @item add-tearoffs @samp{@code{#t}} to add tearoff menu items @end table Since 2.6 @end deffn @deffn Function gtk-combo-box-get-add-tearoffs (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{bool}) @deffnx Method get-add-tearoffs Gets the current value of the :add-tearoffs property. @table @var @item combo-box a @code{} @item ret the current value of the :add-tearoffs property. @end table @end deffn @deffn Function gtk-combo-box-set-title (self@tie{}@code{}) (title@tie{}@code{mchars}) @deffnx Method set-title Sets the menu's title in tearoff mode. @table @var @item combo-box a @code{} @item title a title for the menu in tearoff mode. @end table Since 2.10 @end deffn @deffn Function gtk-combo-box-get-title (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{mchars}) @deffnx Method get-title Gets the current title of the menu in tearoff mode. See @code{gtk-combo-box-set-add-tearoffs}. @table @var @item combo-box a @code{} @item ret the menu's title in tearoff mode. This is an internal copy of the string which must not be freed. @end table Since 2.10 @end deffn @deffn Function gtk-combo-box-set-focus-on-click (self@tie{}@code{}) (focus_on_click@tie{}@code{bool}) @deffnx Method set-focus-on-click Sets whether the combo box will grab focus when it is clicked with the mouse. Making mouse clicks not grab focus is useful in places like toolbars where you don't want the keyboard focus removed from the main area of the application. @table @var @item combo a @code{} @item focus-on-click whether the combo box grabs focus when clicked with the mouse @end table Since 2.6 @end deffn @deffn Function gtk-combo-box-get-focus-on-click (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{bool}) @deffnx Method get-focus-on-click Returns whether the combo box grabs focus when it is clicked with the mouse. See @code{gtk-combo-box-set-focus-on-click}. @table @var @item combo a @code{} @item ret @samp{@code{#t}} if the combo box grabs focus when it is clicked with the mouse. @end table Since 2.6 @end deffn @c %end of fragment guile-gnome-platform-2.16.2/gtk/doc/gtk/section-gtksettings.xml.texi0000644000175000017500000000027311670374303026013 0ustar00wingowingo00000000000000 @c %start of fragment @node Settings @chapter Settings Sharing settings between applications @section Overview @section Usage @include defuns-gtksettings.xml.texi @c %end of fragment guile-gnome-platform-2.16.2/gtk/doc/gtk/section-gtkaboutdialog.xml.texi0000644000175000017500000000247611670374302026453 0ustar00wingowingo00000000000000 @c %start of fragment @node GtkAboutDialog @chapter GtkAboutDialog Display information about an application @section Overview The @code{} offers a simple way to display information about a program like its logo, name, copyright, website and license. It is also possible to give credits to the authors, documenters, translators and artists who have worked on the program. An about dialog is typically opened when the user selects the @samp{About} option from the @samp{Help} menu. All parts of the dialog are optional. About dialog often contain links and email addresses. @code{} supports this by offering global hooks, which are called when the user clicks on a link or email address, see @code{gtk-about-dialog-set-email-hook} and @code{gtk-about-dialog-set-url-hook}. Email addresses in the authors, documenters and artists properties are recognized by looking for @samp{}, URLs are recognized by looking for @samp{http://url}, with @samp{url} extending to the next space, tab or line break. To make constructing a @code{} as convenient as possible, you can use the function @code{gtk-show-about-dialog} which constructs and shows a dialog and keeps it around so that it can be shown again. @section Usage @include defuns-gtkaboutdialog.xml.texi @c %end of fragment guile-gnome-platform-2.16.2/gtk/doc/gtk/defuns-gtkscrollbar.xml.texi0000644000175000017500000000023511670374302025753 0ustar00wingowingo00000000000000 @c %start of fragment @deftp Class Derives from @code{}. This class defines no direct slots. @end deftp @c %end of fragment guile-gnome-platform-2.16.2/gtk/doc/gtk/section-gtksocket.xml.texi0000644000175000017500000000511011670374303025436 0ustar00wingowingo00000000000000 @c %start of fragment @node GtkSocket @chapter GtkSocket Container for widgets from other processes @section Overview Together with @code{}, @code{} provides the ability to embed widgets from one process into another process in a fashion that is transparent to the user. One process creates a @code{} widget and, passes the that widget's window ID to the other process, which then creates a @code{} with that window ID. Any widgets contained in the @code{} then will appear inside the first applications window. The socket's window ID is obtained by using @code{gtk-socket-get-id}. Before using this function, the socket must have been realized, and for hence, have been added to its parent. @example GtkWidget *socket = gtk_socket_new (); gtk_widget_show (socket); gtk_container_add (GTK_CONTAINER (parent), socket); /* The following call is only necessary if one of * the ancestors of the socket is not yet visible. */ gtk_widget_realize (socket); g_print ("The ID of the sockets window is %x\n", gtk_socket_get_id (socket)); @end example Note that if you pass the window ID of the socket to another process that will create a plug in the socket, you must make sure that the socket widget is not destroyed until that plug is created. Violating this rule will cause unpredictable consequences, the most likely consequence being that the plug will appear as a separate toplevel window. You can check if the plug has been created by examining the field of the @code{} structure. If this field is non-@samp{@code{#f}}, then the plug has been successfully created inside of the socket. When GTK+ is notified that the embedded window has been destroyed, then it will destroy the socket as well. You should always, therefore, be prepared for your sockets to be destroyed at any time when the main event loop is running. The communication between a @code{} and a @code{} follows the @uref{http://www.freedesktop.org/standards/xembed-spec,XEmbed} protocol. This protocol has also been implemented in other toolkits, e.g. , allowing the same level of integration when embedding a widget in GTK or vice versa. A socket can also be used to swallow arbitrary pre-existing top-level windows using @code{gtk-socket-steal}, though the integration when this is done will not be as close as between a @code{} and a @code{}. The @code{} and @code{} widgets are currently not available on all platforms supported by GTK+. @section Usage @include defuns-gtksocket.xml.texi @c %end of fragment guile-gnome-platform-2.16.2/gtk/doc/gtk/section-gtklinkbutton.xml.texi0000644000175000017500000000165011670374302026343 0ustar00wingowingo00000000000000 @c %start of fragment @node GtkLinkButton @chapter GtkLinkButton Create buttons bound to a URL @section Overview A @code{} is a @code{} with a hyperlink, similar to the one used by web browsers, which triggers an action when clicked. It is useful to show quick links to resources. A link button is created by calling either @code{gtk-link-button-new} or @code{gtk-link-button-new-with-label}. If using the former, the URI you pass to the constructor is used as a label for the widget. The URI bound to a @code{} can be set specifically using @code{gtk-link-button-set-uri}, and retrieved using @code{gtk-link-button-get-uri}. @code{} offers a global hook, which is called when the used clicks on it: see @code{gtk-link-button-set-uri-hook}. @code{} was added in GTK+ 2.10. @section Usage @include defuns-gtklinkbutton.xml.texi @c %end of fragment guile-gnome-platform-2.16.2/gtk/doc/gtk/section-gtkstock.xml.texi0000644000175000017500000000214011670374303025271 0ustar00wingowingo00000000000000 @c %start of fragment @node Stock Items @chapter Stock Items Prebuilt common menu/toolbar items and corresponding icons @section Overview Stock items represent commonly-used menu or toolbar items such as "Open" or "Exit". Each stock item is identified by a stock ID; stock IDs are just strings, but macros such as @code{} are provided to avoid typing mistakes in the strings. Applications can register their own stock items in addition to those built-in to GTK+. Each stock ID can be associated with a @code{}, which contains the user-visible label, keyboard accelerator, and translation domain of the menu or toolbar item; and/or with an icon stored in a @code{}. See GtkIconFactory for more information on stock icons. The connection between a @code{} and stock icons is purely conventional (by virtue of using the same stock ID); it's possible to register a stock item but no icon, and vice versa. Stock icons may have a RTL variant which gets used for right-to-left locales. @section Usage @include defuns-gtkstock.xml.texi @c %end of fragment guile-gnome-platform-2.16.2/gtk/doc/gtk/section-gtkaspectframe.xml.texi0000644000175000017500000000113311670374302026440 0ustar00wingowingo00000000000000 @c %start of fragment @node GtkAspectFrame @chapter GtkAspectFrame A frame that constrains its child to a particular aspect ratio @section Overview The @code{} is useful when you want pack a widget so that it can resize but always retains the same aspect ratio. For instance, one might be drawing a small preview of a larger image. @code{} derives from @code{}, so it can draw a label and a frame around the child. The frame will be "shrink-wrapped" to the size of the child. @section Usage @include defuns-gtkaspectframe.xml.texi @c %end of fragment guile-gnome-platform-2.16.2/gtk/doc/gtk/defuns-gtkspinbutton.xml.texi0000644000175000017500000002626211670374302026205 0ustar00wingowingo00000000000000 @c %start of fragment @deftp Class Derives from @code{}. This class defines the following slots: @table @code @item adjustment The adjustment that holds the value of the spinbutton @item climb-rate The acceleration rate when you hold down a button @item digits The number of decimal places to display @item snap-to-ticks Whether erroneous values are automatically changed to a spin button's nearest step increment @item numeric Whether non-numeric characters should be ignored @item wrap Whether a spin button should wrap upon reaching its limits @item update-policy Whether the spin button should update always, or only when the value is legal @item value Reads the current value, or sets a new value @end table @end deftp @defop Signal value-changed @end defop @defop Signal change-value (arg0@tie{}@code{}) @end defop @defop Signal input (arg0@tie{}@code{}) @result{}@tie{}@code{} @end defop @defop Signal output @result{}@tie{}@code{} @end defop @defop Signal wrapped The wrapped signal is emitted right after the spinbutton wraps from its maximum to minimum value or vice-versa. Since 2.10 @end defop @deffn Function gtk-spin-button-configure (self@tie{}@code{}) (adjustment@tie{}@code{}) (climb_rate@tie{}@code{double}) (digits@tie{}@code{unsigned-int}) @deffnx Method configure Changes the properties of an existing spin button. The adjustment, climb rate, and number of decimal places are all changed accordingly, after this function call. @table @var @item spin-button a @code{}. @item adjustment a @code{}. @item climb-rate the new climb rate. @item digits the number of decimal places to display in the spin button. @end table @end deffn @deffn Function gtk-spin-button-new (adjustment@tie{}@code{}) (climb_rate@tie{}@code{double}) (digits@tie{}@code{unsigned-int}) @result{}@tie{} (ret@tie{}@code{}) Creates a new @code{}. @table @var @item adjustment the @code{} object that this spin button should use. @item climb-rate specifies how much the spin button changes when an arrow is clicked on. @item digits the number of decimal places to display. @item ret The new spin button as a @code{}. @end table @end deffn @deffn Function gtk-spin-button-new-with-range (min@tie{}@code{double}) (max@tie{}@code{double}) (step@tie{}@code{double}) @result{}@tie{} (ret@tie{}@code{}) This is a convenience constructor that allows creation of a numeric @code{} without manually creating an adjustment. The value is initially set to the minimum value and a page increment of 10 * @var{step} is the default. The precision of the spin button is equivalent to the precision of @var{step}. Note that the way in which the precision is derived works best if @var{step} is a power of ten. If the resulting precision is not suitable for your needs, use @code{gtk-spin-button-set-digits} to correct it. @table @var @item min Minimum allowable value @item max Maximum allowable value @item step Increment added or subtracted by spinning the widget @item ret The new spin button as a @code{}. @end table @end deffn @deffn Function gtk-spin-button-set-adjustment (self@tie{}@code{}) (adjustment@tie{}@code{}) @deffnx Method set-adjustment Replaces the @code{} associated with @var{spin-button}. @table @var @item spin-button a @code{} @item adjustment a @code{} to replace the existing adjustment @end table @end deffn @deffn Function gtk-spin-button-get-adjustment (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{}) @deffnx Method get-adjustment Get the adjustment associated with a @code{} @table @var @item spin-button a @code{} @item ret the @code{} of @var{spin-button} @end table @end deffn @deffn Function gtk-spin-button-set-digits (self@tie{}@code{}) (digits@tie{}@code{unsigned-int}) @deffnx Method set-digits Set the precision to be displayed by @var{spin-button}. Up to 20 digit precision is allowed. @table @var @item spin-button a @code{} @item digits the number of digits after the decimal point to be displayed for the spin button's value @end table @end deffn @deffn Function gtk-spin-button-set-increments (self@tie{}@code{}) (step@tie{}@code{double}) (page@tie{}@code{double}) @deffnx Method set-increments Sets the step and page increments for spin_button. This affects how quickly the value changes when the spin button's arrows are activated. @table @var @item spin-button a @code{} @item step increment applied for a button 1 press. @item page increment applied for a button 2 press. @end table @end deffn @deffn Function gtk-spin-button-set-range (self@tie{}@code{}) (min@tie{}@code{double}) (max@tie{}@code{double}) @deffnx Method set-range Sets the minimum and maximum allowable values for @var{spin-button} @table @var @item spin-button a @code{} @item min minimum allowable value @item max maximum allowable value @end table @end deffn @deffn Function gtk-spin-button-get-value-as-int (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{int}) @deffnx Method get-value-as-int Get the value @var{spin-button} represented as an integer. @table @var @item spin-button a @code{} @item ret the value of @var{spin-button} @end table @end deffn @deffn Function gtk-spin-button-set-value (self@tie{}@code{}) (value@tie{}@code{double}) @deffnx Method set-value Set the value of @var{spin-button}. @table @var @item spin-button a @code{} @item value the new value @end table @end deffn @deffn Function gtk-spin-button-set-update-policy (self@tie{}@code{}) (policy@tie{}@code{}) @deffnx Method set-update-policy Sets the update behavior of a spin button. This determines whether the spin button is always updated or only when a valid value is set. @table @var @item spin-button a @code{} @item policy a @code{} value @end table @end deffn @deffn Function gtk-spin-button-set-numeric (self@tie{}@code{}) (numeric@tie{}@code{bool}) @deffnx Method set-numeric Sets the flag that determines if non-numeric text can be typed into the spin button. @table @var @item spin-button a @code{} @item numeric flag indicating if only numeric entry is allowed. @end table @end deffn @deffn Function gtk-spin-button-spin (self@tie{}@code{}) (direction@tie{}@code{}) (increment@tie{}@code{double}) @deffnx Method spin Increment or decrement a spin button's value in a specified direction by a specified amount. @table @var @item spin-button a @code{} @item direction a @code{} indicating the direction to spin. @item increment step increment to apply in the specified direction. @end table @end deffn @deffn Function gtk-spin-button-set-wrap (self@tie{}@code{}) (wrap@tie{}@code{bool}) @deffnx Method set-wrap Sets the flag that determines if a spin button value wraps around to the opposite limit when the upper or lower limit of the range is exceeded. @table @var @item spin-button a @code{} @item wrap a flag indicating if wrapping behavior is performed. @end table @end deffn @deffn Function gtk-spin-button-set-snap-to-ticks (self@tie{}@code{}) (snap_to_ticks@tie{}@code{bool}) @deffnx Method set-snap-to-ticks Sets the policy as to whether values are corrected to the nearest step increment when a spin button is activated after providing an invalid value. @table @var @item spin-button a @code{} @item snap-to-ticks a flag indicating if invalid values should be corrected. @end table @end deffn @deffn Function gtk-spin-button-update (self@tie{}@code{}) @deffnx Method update Manually force an update of the spin button. @table @var @item spin-button a @code{} @end table @end deffn @deffn Function gtk-spin-button-get-digits (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{unsigned-int}) @deffnx Method get-digits Fetches the precision of @var{spin-button}. See @code{gtk-spin-button-set-digits}. @table @var @item spin-button a @code{} @item ret the current precision @end table @end deffn @deffn Function gtk-spin-button-get-increments (self@tie{}@code{}) @result{}@tie{} (step@tie{}@code{double}) (page@tie{}@code{double}) @deffnx Method get-increments Gets the current step and page the increments used by @var{spin-button}. See @code{gtk-spin-button-set-increments}. @table @var @item spin-button a @code{} @item step location to store step increment, or @samp{@code{#f}} @item page location to store page increment, or @samp{@code{#f}} @end table @end deffn @deffn Function gtk-spin-button-get-numeric (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{bool}) @deffnx Method get-numeric Returns whether non-numeric text can be typed into the spin button. See @code{gtk-spin-button-set-numeric}. @table @var @item spin-button a @code{} @item ret @samp{@code{#t}} if only numeric text can be entered @end table @end deffn @deffn Function gtk-spin-button-get-range (self@tie{}@code{}) @result{}@tie{} (min@tie{}@code{double}) (max@tie{}@code{double}) @deffnx Method get-range Gets the range allowed for @var{spin-button}. See @code{gtk-spin-button-set-range}. @table @var @item spin-button a @code{} @item min location to store minimum allowed value, or @samp{@code{#f}} @item max location to store maximum allowed value, or @samp{@code{#f}} @end table @end deffn @deffn Function gtk-spin-button-get-snap-to-ticks (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{bool}) @deffnx Method get-snap-to-ticks Returns whether the values are corrected to the nearest step. See @code{gtk-spin-button-set-snap-to-ticks}. @table @var @item spin-button a @code{} @item ret @samp{@code{#t}} if values are snapped to the nearest step. @end table @end deffn @deffn Function gtk-spin-button-get-value (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{double}) @deffnx Method get-value Get the value in the @var{spin-button}. @table @var @item spin-button a @code{} @item ret the value of @var{spin-button} @end table @end deffn @deffn Function gtk-spin-button-get-wrap (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{bool}) @deffnx Method get-wrap Returns whether the spin button's value wraps around to the opposite limit when the upper or lower limit of the range is exceeded. See @code{gtk-spin-button-set-wrap}. @table @var @item spin-button a @code{} @item ret @samp{@code{#t}} if the spin button wraps around @end table @end deffn @c %end of fragment guile-gnome-platform-2.16.2/gtk/doc/gtk/section-gtkentry.xml.texi0000644000175000017500000000066111670374302025314 0ustar00wingowingo00000000000000 @c %start of fragment @node GtkEntry @chapter GtkEntry A single line text entry field @section Overview The @code{} widget is a single line text entry widget. A fairly large set of key bindings are supported by default. If the entered text is longer than the allocation of the widget, the widget will scroll so that the cursor position is visible. @section Usage @include defuns-gtkentry.xml.texi @c %end of fragment guile-gnome-platform-2.16.2/gtk/doc/gtk/section-gtkviewport.xml.texi0000644000175000017500000000030511670374303026026 0ustar00wingowingo00000000000000 @c %start of fragment @node GtkViewport @chapter GtkViewport An adapter which makes widgets scrollable @section Overview @section Usage @include defuns-gtkviewport.xml.texi @c %end of fragment guile-gnome-platform-2.16.2/gtk/doc/gtk/section-gtkprintcontext.xml.texi0000644000175000017500000000416611670374302026720 0ustar00wingowingo00000000000000 @c %start of fragment @node GtkPrintContext @chapter GtkPrintContext Encapsulates context for drawing pages @section Overview A GtkPrintContext encapsulates context information that is required when drawing pages for printing, such as the cairo context and important parameters like page size and resolution. It also lets you easily create @code{} and @code{} objects that match the font metrics of the cairo surface. GtkPrintContext objects gets passed to the ::begin-print, ::end-print, ::request-page-setup and ::draw-page signals on the @code{}. @example static void draw_page (GtkPrintOperation *operation, GtkPrintContext *context, int page_nr) @{ cairo_t *cr; PangoLayout *layout; PangoFontDescription *desc; cr = gtk_print_context_get_cairo_context (context); /* Draw a red rectangle, as wide as the paper (inside the margins) */ cairo_set_source_rgb (cr, 1.0, 0, 0); cairo_rectangle (cr, 0, 0, gtk_print_context_get_width (context), 50); cairo_fill (cr); /* Draw some lines */ cairo_move_to (cr, 20, 10); cairo_line_to (cr, 40, 20); cairo_arc (cr, 60, 60, 20, 0, M_PI); cairo_line_to (cr, 80, 20); cairo_set_source_rgb (cr, 0, 0, 0); cairo_set_line_width (cr, 5); cairo_set_line_cap (cr, CAIRO_LINE_CAP_ROUND); cairo_set_line_join (cr, CAIRO_LINE_JOIN_ROUND); cairo_stroke (cr); /* Draw some text */ layout = gtk_print_context_create_layout (context); pango_layout_set_text (layout, "Hello World! Printing is easy", -1); desc = pango_font_description_from_string ("sans 28"); pango_layout_set_font_description (layout, desc); pango_font_description_free (desc); cairo_move_to (cr, 30, 20); pango_cairo_layout_path (cr, layout); /* Font Outline */ cairo_set_source_rgb (cr, 0.93, 1.0, 0.47); cairo_set_line_width (cr, 0.5); cairo_stroke_preserve (cr); /* Font Fill */ cairo_set_source_rgb (cr, 0, 0.0, 1.0); cairo_fill (cr); g_object_unref (layout); @} @end example Printing support was added in GTK+ 2.10. @section Usage @include defuns-gtkprintcontext.xml.texi @c %end of fragment guile-gnome-platform-2.16.2/gtk/doc/gtk/section-gtkvruler.xml.texi0000644000175000017500000000163711670374303025477 0ustar00wingowingo00000000000000 @c %start of fragment @node GtkVRuler @chapter GtkVRuler A vertical ruler. @section Overview This widget is considered too specialized/little-used for GTK+, and will in the future be moved to some other package. If your application needs this widget, feel free to use it, as the widget does work and is useful in some applications; it's just not of general interest. However, we are not accepting new features for the widget, and it will eventually move out of the GTK+ distribution. The VRuler widget is a widget arranged vertically creating a ruler that is utilized around other widgets such as a text widget. The ruler is used to show the location of the mouse on the window and to show the size of the window in specified units. The available units of measurement are GTK_PIXELS, GTK_INCHES and GTK_CENTIMETERS. GTK_PIXELS is the default. rulers. @section Usage @include defuns-gtkvruler.xml.texi @c %end of fragment guile-gnome-platform-2.16.2/gtk/doc/gtk/section-gtkseparatortoolitem.xml.texi0000644000175000017500000000141111670374303027723 0ustar00wingowingo00000000000000 @c %start of fragment @node GtkSeparatorToolItem @chapter GtkSeparatorToolItem A toolbar item that separates groups of other toolbar items @section Overview A @code{} is a @code{} that separates groups of other @code{}. Depending on the theme, a @code{} will often look like a vertical line on horizontally docked toolbars. If the property "expand" is @code{@code{#t}} and the property "draw" is @code{@code{#f}}, a @code{} will act as a "spring" that forces other items to the ends of the toolbar. Use @code{gtk-separator-tool-item-new} to create a new @code{}. @section Usage @include defuns-gtkseparatortoolitem.xml.texi @c %end of fragment guile-gnome-platform-2.16.2/gtk/doc/gtk/defuns-gtktexttagtable.xml.texi0000644000175000017500000000434211670374302026463 0ustar00wingowingo00000000000000 @c %start of fragment @deftp Class Derives from @code{}. This class defines no direct slots. @end deftp @defop Signal tag-changed (arg0@tie{}@code{}) (arg1@tie{}@code{}) @end defop @defop Signal tag-added (arg0@tie{}@code{}) @end defop @defop Signal tag-removed (arg0@tie{}@code{}) @end defop @deffn Function gtk-text-tag-table-new @result{}@tie{} (ret@tie{}@code{}) Creates a new @code{}. The table contains no tags by default. @table @var @item ret a new @code{} @end table @end deffn @deffn Function gtk-text-tag-table-add (self@tie{}@code{}) (tag@tie{}@code{}) @deffnx Method add Add a tag to the table. The tag is assigned the highest priority in the table. @var{tag} must not be in a tag table already, and may not have the same name as an already-added tag. @table @var @item table a @code{} @item tag a @code{} @end table @end deffn @deffn Function gtk-text-tag-table-remove (self@tie{}@code{}) (tag@tie{}@code{}) @deffnx Method remove Remove a tag from the table. This will remove the table's reference to the tag, so be careful - the tag will end up destroyed if you don't have a reference to it. @table @var @item table a @code{} @item tag a @code{} @end table @end deffn @deffn Function gtk-text-tag-table-lookup (self@tie{}@code{}) (name@tie{}@code{mchars}) @result{}@tie{} (ret@tie{}@code{}) @deffnx Method lookup Look up a named tag. @table @var @item table a @code{} @item name name of a tag @item ret The tag, or @samp{@code{#f}} if none by that name is in the table. @end table @end deffn @deffn Function gtk-text-tag-table-get-size (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{int}) @deffnx Method get-size Returns the size of the table (number of tags) @table @var @item table a @code{} @item ret number of tags in @var{table} @end table @end deffn @c %end of fragment guile-gnome-platform-2.16.2/gtk/doc/gtk/defuns-gtkaboutdialog.xml.texi0000644000175000017500000002043311670374302026264 0ustar00wingowingo00000000000000 @c %start of fragment @deftp Class Derives from @code{}. This class defines the following slots: @table @code @item program-name The name of the program. If this is not set, it defaults to g_get_application_name() @item version The version of the program @item copyright Copyright information for the program @item comments Comments about the program @item website The URL for the link to the website of the program @item website-label The label for the link to the website of the program. If this is not set, it defaults to the URL @item license The license of the program @item authors List of authors of the program @item documenters List of people documenting the program @item translator-credits Credits to the translators. This string should be marked as translatable @item artists List of people who have contributed artwork to the program @item logo A logo for the about box. If this is not set, it defaults to gtk_window_get_default_icon_list() @item logo-icon-name A named icon to use as the logo for the about box. @item wrap-license Whether to wrap the license text. @end table @end deftp @deffn Function gtk-about-dialog-new @result{}@tie{} (ret@tie{}@code{}) Creates a new @code{}. @table @var @item ret a newly created @code{} @end table Since 2.6 @end deffn @deffn Function gtk-about-dialog-get-name (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{mchars}) @deffnx Method get-name Returns the program name displayed in the about dialog. @table @var @item about a @code{} @item ret The program name. The string is owned by the about dialog and must not be modified. @end table Since 2.6 @end deffn @deffn Function gtk-about-dialog-set-name (self@tie{}@code{}) (name@tie{}@code{mchars}) @deffnx Method set-name Sets the name to display in the about dialog. If this is not set, it defaults to @code{g-get-application-name}. @table @var @item about a @code{} @item name the program name @end table Since 2.6 @end deffn @deffn Function gtk-about-dialog-get-version (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{mchars}) @deffnx Method get-version Returns the version string. @table @var @item about a @code{} @item ret The version string. The string is owned by the about dialog and must not be modified. @end table Since 2.6 @end deffn @deffn Function gtk-about-dialog-set-version (self@tie{}@code{}) (version@tie{}@code{mchars}) @deffnx Method set-version Sets the version string to display in the about dialog. @table @var @item about a @code{} @item version the version string @end table Since 2.6 @end deffn @deffn Function gtk-about-dialog-get-copyright (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{mchars}) @deffnx Method get-copyright Returns the copyright string. @table @var @item about a @code{} @item ret The copyright string. The string is owned by the about dialog and must not be modified. @end table Since 2.6 @end deffn @deffn Function gtk-about-dialog-set-copyright (self@tie{}@code{}) (copyright@tie{}@code{mchars}) @deffnx Method set-copyright Sets the copyright string to display in the about dialog. This should be a short string of one or two lines. @table @var @item about a @code{} @item copyright the copyright string @end table Since 2.6 @end deffn @deffn Function gtk-about-dialog-get-license (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{mchars}) @deffnx Method get-license Returns the license information. @table @var @item about a @code{} @item ret The license information. The string is owned by the about dialog and must not be modified. @end table Since 2.6 @end deffn @deffn Function gtk-about-dialog-set-license (self@tie{}@code{}) (license@tie{}@code{mchars}) @deffnx Method set-license Sets the license information to be displayed in the secondary license dialog. If @var{license} is @samp{@code{#f}}, the license button is hidden. @table @var @item about a @code{} @item license the license information or @samp{@code{#f}} @end table Since 2.6 @end deffn @deffn Function gtk-about-dialog-get-wrap-license (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{bool}) @deffnx Method get-wrap-license Returns whether the license text in @var{about} is automatically wrapped. @table @var @item about a @code{} @item ret @samp{@code{#t}} if the license text is wrapped @end table Since 2.8 @end deffn @deffn Function gtk-about-dialog-set-wrap-license (self@tie{}@code{}) (wrap_license@tie{}@code{bool}) @deffnx Method set-wrap-license Sets whether the license text in @var{about} is automatically wrapped. @table @var @item about a @code{} @item wrap-license whether to wrap the license @end table Since 2.8 @end deffn @deffn Function gtk-about-dialog-get-website (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{mchars}) @deffnx Method get-website Returns the website URL. @table @var @item about a @code{} @item ret The website URL. The string is owned by the about dialog and must not be modified. @end table Since 2.6 @end deffn @deffn Function gtk-about-dialog-set-website (self@tie{}@code{}) (website@tie{}@code{mchars}) @deffnx Method set-website Sets the URL to use for the website link. @table @var @item about a @code{} @item website a URL string starting with "http://" @end table Since 2.6 @end deffn @deffn Function gtk-about-dialog-get-website-label (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{mchars}) @deffnx Method get-website-label Returns the label used for the website link. @table @var @item about a @code{} @item ret The label used for the website link. The string is owned by the about dialog and must not be modified. @end table Since 2.6 @end deffn @deffn Function gtk-about-dialog-set-website-label (self@tie{}@code{}) (website_label@tie{}@code{mchars}) @deffnx Method set-website-label Sets the label to be used for the website link. It defaults to the website URL. @table @var @item about a @code{} @item website-label the label used for the website link @end table Since 2.6 @end deffn @deffn Function gtk-about-dialog-get-logo (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{}) @deffnx Method get-logo Returns the pixbuf displayed as logo in the about dialog. @table @var @item about a @code{} @item ret the pixbuf displayed as logo. The pixbuf is owned by the about dialog. If you want to keep a reference to it, you have to call @code{g-object-ref} on it. @end table Since 2.6 @end deffn @deffn Function gtk-about-dialog-set-logo (self@tie{}@code{}) (logo@tie{}@code{}) @deffnx Method set-logo Sets the pixbuf to be displayed as logo in the about dialog. If it is @samp{@code{#f}}, the default window icon set with @code{gtk-window-set-default-icon} will be used. @table @var @item about a @code{} @item logo a @code{}, or @samp{@code{#f}} @end table Since 2.6 @end deffn @deffn Function gtk-about-dialog-get-logo-icon-name (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{mchars}) @deffnx Method get-logo-icon-name Returns the icon name displayed as logo in the about dialog. @table @var @item about a @code{} @item ret the icon name displayed as logo. The string is owned by the dialog. If you want to keep a reference to it, you have to call @code{g-strdup} on it. @end table Since 2.6 @end deffn @deffn Function gtk-about-dialog-set-logo-icon-name (self@tie{}@code{}) (icon_name@tie{}@code{mchars}) @deffnx Method set-logo-icon-name Sets the pixbuf to be displayed as logo in the about dialog. If it is @samp{@code{#f}}, the default window icon set with @code{gtk-window-set-default-icon} will be used. @table @var @item about a @code{} @item icon-name an icon name, or @samp{@code{#f}} @end table Since 2.6 @end deffn @c %end of fragment guile-gnome-platform-2.16.2/gtk/doc/gtk/guile-gnome-gtk.info-10000644000175000017500000110171311752516272024325 0ustar00wingowingo00000000000000This is guile-gnome-gtk.info, produced by makeinfo version 4.13 from guile-gnome-gtk.texi. This manual is for `(gnome gtk)' (version 2.16.2, updated 9 December 2011) Copyright 1997-2007 Damon Chaplin and others This work may be reproduced and distributed in whole or in part, in any medium, physical or electronic, so as long as this copyright notice remains intact and unchanged on all copies. Commercial redistribution is permitted and encouraged, but you may not redistribute, in whole or in part, under terms more restrictive than those under which you received it. If you redistribute a modified or translated version of this work, you must also make the source code to the modified or translated version available in electronic form without charge. However, mere aggregation as part of a larger work shall not count as a modification for this purpose. All code examples in this work are placed into the public domain, and may be used, modified and redistributed without restriction. BECAUSE THIS WORK IS LICENSED FREE OF CHARGE, THERE IS NO WARRANTY FOR THE WORK, TO THE EXTENT PERMITTED BY APPLICABLE LAW. EXCEPT WHEN OTHERWISE STATED IN WRITING THE COPYRIGHT HOLDERS AND/OR OTHER PARTIES PROVIDE THE WORK "AS IS" WITHOUT WARRANTY OF ANY KIND, EITHER EXPRESSED OR IMPLIED, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE. SHOULD THE WORK PROVE DEFECTIVE, YOU ASSUME THE COST OF ALL NECESSARY REPAIR OR CORRECTION. IN NO EVENT UNLESS REQUIRED BY APPLICABLE LAW OR AGREED TO IN WRITING WILL ANY COPYRIGHT HOLDER, OR ANY OTHER PARTY WHO MAY MODIFY AND/OR REDISTRIBUTE THE WORK AS PERMITTED ABOVE, BE LIABLE TO YOU FOR DAMAGES, INCLUDING ANY GENERAL, SPECIAL, INCIDENTAL OR CONSEQUENTIAL DAMAGES ARISING OUT OF THE USE OR INABILITY TO USE THE WORK, EVEN IF SUCH HOLDER OR OTHER PARTY HAS BEEN ADVISED OF THE POSSIBILITY OF SUCH DAMAGES. INFO-DIR-SECTION The Algorithmic Language Scheme START-INFO-DIR-ENTRY * Guile-Gtk: (guile-gnome-gtk.info). The GIMP ToolKit. END-INFO-DIR-ENTRY  File: guile-gnome-gtk.info, Node: Top, Next: Overview, Up: (dir) Guile-Gtk ********* This manual is for `(gnome gtk)' (version 2.16.2, updated 9 December 2011) Copyright 1997-2007 Damon Chaplin and others This work may be reproduced and distributed in whole or in part, in any medium, physical or electronic, so as long as this copyright notice remains intact and unchanged on all copies. Commercial redistribution is permitted and encouraged, but you may not redistribute, in whole or in part, under terms more restrictive than those under which you received it. If you redistribute a modified or translated version of this work, you must also make the source code to the modified or translated version available in electronic form without charge. However, mere aggregation as part of a larger work shall not count as a modification for this purpose. All code examples in this work are placed into the public domain, and may be used, modified and redistributed without restriction. BECAUSE THIS WORK IS LICENSED FREE OF CHARGE, THERE IS NO WARRANTY FOR THE WORK, TO THE EXTENT PERMITTED BY APPLICABLE LAW. EXCEPT WHEN OTHERWISE STATED IN WRITING THE COPYRIGHT HOLDERS AND/OR OTHER PARTIES PROVIDE THE WORK "AS IS" WITHOUT WARRANTY OF ANY KIND, EITHER EXPRESSED OR IMPLIED, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE. SHOULD THE WORK PROVE DEFECTIVE, YOU ASSUME THE COST OF ALL NECESSARY REPAIR OR CORRECTION. IN NO EVENT UNLESS REQUIRED BY APPLICABLE LAW OR AGREED TO IN WRITING WILL ANY COPYRIGHT HOLDER, OR ANY OTHER PARTY WHO MAY MODIFY AND/OR REDISTRIBUTE THE WORK AS PERMITTED ABOVE, BE LIABLE TO YOU FOR DAMAGES, INCLUDING ANY GENERAL, SPECIAL, INCIDENTAL OR CONSEQUENTIAL DAMAGES ARISING OUT OF THE USE OR INABILITY TO USE THE WORK, EVEN IF SUCH HOLDER OR OTHER PARTY HAS BEEN ADVISED OF THE POSSIBILITY OF SUCH DAMAGES. * Menu: * Overview:: Overview Windows * GtkDialog:: Create popup windows * GtkInvisible:: A widget which is not displayed * GtkMessageDialog:: A convenient message window * GtkWindow:: Toplevel which can contain other widgets * GtkWindowGroup:: Limit the effect of grabs * GtkAboutDialog:: Display information about an application * GtkAssistant:: A widget used to guide users through multi-step operations Display Widgets * GtkAccelLabel:: A label which displays an accelerator key on the right of the text * GtkImage:: A widget displaying an image * GtkLabel:: A widget that displays a small to medium amount of text * GtkProgressBar:: A widget which indicates progress visually * GtkStatusbar:: Report messages of minor importance to the user * GtkStatusIcon:: Display an icon in the system tray Buttons and Toggles * GtkButton:: A widget that creates a signal when clicked on * GtkCheckButton:: Create widgets with a discrete toggle button * GtkRadioButton:: A choice from multiple check buttons * GtkToggleButton:: Create buttons which retain their state * GtkLinkButton:: Create buttons bound to a URL Numeric/Text Data Entry * GtkEntry:: A single line text entry field * GtkEntryCompletion:: Completion functionality for GtkEntry * GtkHScale:: A horizontal slider widget for selecting a value from a range * GtkVScale:: A vertical slider widget for selecting a value from a range * GtkSpinButton:: Retrieve an integer or floating-point number from the user * GtkEditable:: Interface for text-editing widgets Multiline Text Editor * GtkTextIter:: Text buffer iterator * GtkTextMark:: A position in the buffer preserved across buffer modifications * GtkTextBuffer:: Stores attributed text for display in a GtkTextView * GtkTextTag:: A tag that can be applied to text in a GtkTextBuffer * GtkTextTagTable:: Collection of tags that can be used together * GtkTextView:: Widget that displays a GtkTextBuffer Tree, List and Icon Grid Widgets * GtkTreeModel:: The tree interface used by GtkTreeView * GtkTreeSelection:: The selection object for GtkTreeView * GtkTreeViewColumn:: A visible column in a GtkTreeView widget * GtkTreeView:: A widget for displaying both trees and lists * GtkTreeView drag-and-drop:: Interfaces for drag-and-drop support in GtkTreeView * GtkCellView:: A widget displaying a single row of a GtkTreeModel * GtkIconView:: A widget which displays a list of icons in a grid * GtkTreeSortable:: The interface for sortable models used by GtkTreeView * GtkTreeModelSort:: A GtkTreeModel which makes an underlying tree model sortable * GtkTreeModelFilter:: A GtkTreeModel which hides parts of an underlying tree model * GtkCellLayout:: An interface for packing cells * GtkCellRenderer:: An object for rendering a single cell on a GdkDrawable * GtkCellEditable:: Interface for widgets which can are used for editing cells * GtkCellRendererAccel:: Renders a keyboard accelerator in a cell * GtkCellRendererCombo:: Renders a combobox in a cell * GtkCellRendererPixbuf:: Renders a pixbuf in a cell * GtkCellRendererProgress:: Renders numbers as progress bars * GtkCellRendererSpin:: Renders a spin button in a cell * GtkCellRendererText:: Renders text in a cell * GtkCellRendererToggle:: Renders a toggle button in a cell * GtkListStore:: A list-like data structure that can be used with the GtkTreeView * GtkTreeStore:: A tree-like data structure that can be used with the GtkTreeView Menus, Combo Box, Toolbar * GtkComboBox:: A widget used to choose from a list of items * GtkComboBoxEntry:: A text entry field with a dropdown list * GtkMenu:: A menu widget * GtkMenuBar:: A subclass widget for GtkMenuShell which holds GtkMenuItem widgets * GtkMenuItem:: The widget used for item in menus * GtkMenuShell:: A base class for menu objects * GtkImageMenuItem:: A menu item with an icon * GtkRadioMenuItem:: A choice from multiple check menu items * GtkCheckMenuItem:: A menu item with a check box * GtkSeparatorMenuItem:: A separator used in menus * GtkTearoffMenuItem:: A menu item used to tear off and reattach its menu * GtkToolbar:: Create bars of buttons and other widgets * GtkToolItem:: The base class of widgets that can be added to GtkToolbar * GtkSeparatorToolItem:: A toolbar item that separates groups of other toolbar items * GtkToolButton:: A GtkToolItem subclass that displays buttons * GtkMenuToolButton:: A GtkToolItem containing a button with an additional dropdown menu * GtkToggleToolButton:: A GtkToolItem containing a toggle button * GtkRadioToolButton:: A toolbar item that contains a radio button Action-based menus and toolbars * GtkUIManager:: Constructing menus and toolbars from an XML description * GtkActionGroup:: A group of actions * GtkAction:: An action which can be triggered by a menu or toolbar item * GtkToggleAction:: An action which can be toggled between two states * GtkRadioAction:: An action of which only one in a group can be active Selectors (File/Font/Color/Input Devices) * GtkColorButton:: A button to launch a color selection dialog * GtkColorSelection:: A widget used to select a color * GtkColorSelectionDialog:: A standard dialog box for selecting a color * GtkFileSelection:: Prompt the user for a file or directory name * GtkFileChooser:: File chooser interface used by GtkFileChooserWidget and GtkFileChooserDialog * GtkFileChooserButton:: A button to launch a file selection dialog * GtkFileChooserDialog:: A file chooser dialog, suitable for "File/Open" or "File/Save" commands * GtkFileChooserWidget:: File chooser widget that can be embedded in other widgets * GtkFileFilter:: A filter for selecting a file subset * GtkFontButton:: A button to launch a font selection dialog * GtkFontSelection:: A widget for selecting fonts * GtkFontSelectionDialog:: A dialog box for selecting fonts * GtkInputDialog:: Configure devices for the XInput extension Layout Containers * GtkAlignment:: A widget which controls the alignment and size of its child * GtkAspectFrame:: A frame that constrains its child to a particular aspect ratio * GtkHBox:: A horizontal container box * GtkVBox:: A vertical container box * GtkHButtonBox:: A container for arranging buttons horizontally * GtkVButtonBox:: A container for arranging buttons vertically * GtkFixed:: A container which allows you to position widgets at fixed coordinates * GtkHPaned:: A container with two panes arranged horizontally * GtkVPaned:: A container with two panes arranged vertically * GtkLayout:: Infinite scrollable area containing child widgets and/or custom drawing * GtkNotebook:: A tabbed notebook container * GtkTable:: Pack widgets in regular patterns * GtkExpander:: A container which can hide its child Ornaments * GtkFrame:: A bin with a decorative frame and optional label * GtkHSeparator:: A horizontal separator * GtkVSeparator:: A vertical separator Scrolling * GtkHScrollbar:: A horizontal scrollbar * GtkVScrollbar:: A vertical scrollbar * GtkScrolledWindow:: Adds scrollbars to its child widget Printing * GtkPrintOperation:: High-level Printing API * GtkPrintContext:: Encapsulates context for drawing pages * GtkPrintSettings:: Stores print settings * GtkPageSetup:: Stores page setup information * GtkPaperSize:: Support for named paper sizes Miscellaneous * GtkAdjustment:: A GtkObject representing an adjustable bounded value * GtkArrow:: Displays an arrow * GtkCalendar:: Displays a calendar and allows the user to select a date * GtkDrawingArea:: A widget for custom user interface elements * GtkEventBox:: A widget used to catch events for widgets which do not have their own window * GtkHandleBox:: a widget for detachable window portions * GtkIMContextSimple:: An input method context supporting table-based input methods * GtkIMMulticontext:: An input method context supporting multiple, loadable input methods * GtkSizeGroup:: Grouping widgets so they request the same size * GtkTooltips:: Add tips to your widgets * GtkViewport:: An adapter which makes widgets scrollable * GtkAccessible:: Accessibility support for widgets Abstract Base Classes * GtkBin:: A container with just one child * GtkBox:: Base class for box containers * GtkButtonBox:: Base class for GtkHButtonBox and GtkVButtonBox * GtkContainer:: Base class for widgets which contain other widgets * GtkItem:: Abstract base class for GtkMenuItem, GtkListItem and GtkTreeItem * GtkMisc:: Base class for widgets with alignments and padding * GtkObject:: The base class of the GTK+ type hierarchy * GtkPaned:: Base class for widgets with two adjustable panes * GtkRange:: Base class for widgets which visualize an adjustment * GtkScale:: Base class for GtkHScale and GtkVScale * GtkScrollbar:: Base class for GtkHScrollbar and GtkVScrollbar * GtkSeparator:: Base class for GtkHSeparator and GtkVSeparator * GtkWidget:: Base class for all widgets * GtkIMContext:: Base class for input method contexts Cross-process Embedding * GtkPlug:: Toplevel for embedding into other processes * GtkSocket:: Container for widgets from other processes Special-purpose features * GtkCurve:: Allows direct editing of a curve * GtkGammaCurve:: a subclass of GtkCurve for editing gamma curves. * GtkRuler:: Base class for horizontal or vertical rulers * GtkHRuler:: A horizontal ruler. * GtkVRuler:: A vertical ruler. Recently Used Documents * GtkRecentManager:: Managing Recently Used Files * GtkRecentChooser:: Interface implemented by GtkRecentChooserWidget, GtkRecentChooserMenu and GtkRecentChooserDialog * GtkRecentChooserDialog:: Displays recently used files in a dialog * GtkRecentChooserMenu:: Displays recently used files in a menu * GtkRecentChooserWidget:: Displays recently used files * GtkRecentFilter:: A filter for selecting a subset of recently used files * Undocumented:: Undocumented functions. * Type Index:: * Function Index::  File: guile-gnome-gtk.info, Node: Overview, Next: GtkDialog, Prev: Top, Up: Top 1 Overview ********** The GTK+ wrapper for Guile is a part of Guile-GNOME. It's a good idea to read the `(gnome gobject)' documentation first. *Note Contents: (guile-gnome-gobject)Top. 1.1 Example usage ================= The following code can be found in the file `gtk/examples/hello.scm' in your distribution. (use-modules (oop goops) (gnome gobject) (gnome gtk)) ;; define the app as a function -- there are many other ways to do ;; this, of course... (define (hello) ;; every widget has a class. here we define a window and a button. (let* ((window (make #:type 'toplevel)) (button (make #:label "Hello, World!"))) (gtk-container-set-border-width window 10) (gtk-container-add window button) ;; of course you can attach a lambda to a signal :-) (gtype-instance-signal-connect button 'clicked (lambda (b) (gtk-main-quit))) (gtk-widget-show-all window) ;; this will block until gtk-main-quit is called... (gtk-main))) ;; meaning this blocks until the button is clicked. (hello) 1.2 `hello world', improved =========================== There's something about this that resembles programming in C a little bit too much. In Python, you can just do `window.add(button)'. That's a lot less typing. In GOOPS, the object framework for Guile, methods are implemented a bit differently - *Note (gnome gobject generics): (guile-gnome-gobject)gnome gobject generics. If we use the GOOPS methods, `hello-generics.scm' looks a bit different: (use-modules (oop goops) (gnome gobject) (gnome gtk) (gnome gobject utils)) (define (hello) (let* ((window (make #:type 'toplevel)) (button (make #:label "Hello, World!"))) ;; since window is a container, this generic maps onto the ;; function gtk-container-set-border-width (set-border-width window 10) ;; note that we can set the border width with a gobject property ;; as well: (gobject-set-property window 'border-width 15) ;; (gnome gobject generics), re-exported by (gnome gtk), defines a ;; generic `set' method for gobject-set-property, se we can also ;; do it like this: (set window 'border-width 20) ;; or, like this, using with-accessors from (gnome gobject utils): (with-accessors (border-width) (set! (border-width window) 20)) ;; this is much less typing :-) (add window button) ;; see (gnome gobject generics) for a full list of gobject generic ;; functions (connect button 'clicked (lambda (b) (gtk-main-quit))) ;; generic functions for .defs apis are defined in the .defs files, ;; not manually (show-all window) (gtk-main))) (hello)  File: guile-gnome-gtk.info, Node: GtkDialog, Next: GtkInvisible, Prev: Overview, Up: Top 2 GtkDialog *********** Create popup windows 2.1 Overview ============ Dialog boxes are a convenient way to prompt the user for a small amount of input, e.g. to display a message, ask a question, or anything else that does not require extensive effort on the user's part. GTK+ treats a dialog as a window split vertically. The top section is a `', and is where widgets such as a `' or a `' should be packed. The bottom area is known as the . This is generally used for packing buttons into the dialog which may perform functions such as cancel, ok, or apply. The two areas are separated by a `'. `' boxes are created with a call to `gtk-dialog-new' or `gtk-dialog-new-with-buttons'. `gtk-dialog-new-with-buttons' is recommended; it allows you to set the dialog title, some convenient flags, and add simple buttons. If 'dialog' is a newly created dialog, the two primary areas of the window can be accessed as `GTK_DIALOG(dialog)->vbox' and `GTK_DIALOG(dialog)->action_area', as can be seen from the example, below. A 'modal' dialog (that is, one which freezes the rest of the application from user input), can be created by calling `gtk-window-set-modal' on the dialog. Use the `gtk-window' macro to cast the widget returned from `gtk-dialog-new' into a `'. When using `gtk-dialog-new-with-buttons' you can also pass the `' flag to make a dialog modal. If you add buttons to `' using `gtk-dialog-new-with-buttons', `gtk-dialog-add-button', `gtk-dialog-add-buttons', or `gtk-dialog-add-action-widget', clicking the button will emit a signal called "response" with a response ID that you specified. GTK+ will never assign a meaning to positive response IDs; these are entirely user-defined. But for convenience, you can use the response IDs in the `' enumeration (these all have values less than zero). If a dialog receives a delete event, the "response" signal will be emitted with a response ID of `'. If you want to block waiting for a dialog to return before returning control flow to your code, you can call `gtk-dialog-run'. This function enters a recursive main loop and waits for the user to respond to the dialog, returning the response ID corresponding to the button the user clicked. For the simple dialog in the following example, in reality you'd probably use `' to save yourself some effort. But you'd need to create the dialog contents manually if you had more than a simple message in the dialog. /* Function to open a dialog box displaying the message provided. */ void quick_message (gchar *message) { GtkWidget *dialog, *label; /* Create the widgets */ dialog = gtk_dialog_new_with_buttons ("Message", main_application_window, GTK_DIALOG_DESTROY_WITH_PARENT, GTK_STOCK_OK, GTK_RESPONSE_NONE, NULL); label = gtk_label_new (message); /* Ensure that the dialog box is destroyed when the user responds. */ g_signal_connect_swapped (dialog, "response", G_CALLBACK (gtk_widget_destroy), dialog); /* Add the label, and show everything we've added to the dialog. */ gtk_container_add (GTK_CONTAINER (GTK_DIALOG(dialog)->vbox), label); gtk_widget_show_all (dialog); } 2.2 Usage ========= -- Class: Derives from `'. This class defines the following slots: `has-separator' The dialog has a separator bar above its buttons -- Signal on : response (arg0 `') Emitted when an action widget is clicked, the dialog receives a delete event, or the application programmer calls `gtk-dialog-response'. On a delete event, the response ID is `'. Otherwise, it depends on which action widget was clicked. -- Signal on : close -- Function: gtk-dialog-run (self `') => (ret `int') -- Method: run Blocks in a recursive main loop until the DIALOG either emits the response signal, or is destroyed. If the dialog is destroyed during the call to `gtk-dialog-run', gtk_dialog_returns `'. Otherwise, it returns the response ID from the "response" signal emission. Before entering the recursive main loop, `gtk-dialog-run' calls `gtk-widget-show' on the dialog for you. Note that you still need to show any children of the dialog yourself. During `gtk-dialog-run', the default behavior of "delete_event" is disabled; if the dialog receives "delete_event", it will not be destroyed as windows usually are, and `gtk-dialog-run' will return `'. Also, during `gtk-dialog-run' the dialog will be modal. You can force `gtk-dialog-run' to return at any time by calling `gtk-dialog-response' to emit the "response" signal. Destroying the dialog during `gtk-dialog-run' is a very bad idea, because your post-run code won't know whether the dialog was destroyed or not. After `gtk-dialog-run' returns, you are responsible for hiding or destroying the dialog if you wish to do so. Typical usage of this function might be: gint result = gtk_dialog_run (GTK_DIALOG (dialog)); switch (result) { case GTK_RESPONSE_ACCEPT: do_application_specific_something (); break; default: do_nothing_since_dialog_was_cancelled (); break; } gtk_widget_destroy (dialog); Note that even though the recursive main loop gives the effect of a modal dialog (it prevents the user from interacting with other windows in the same window group while the dialog is run), callbacks such as timeouts, IO channel watches, DND drops, etc, _will_ be triggered during a `gtk-dialog-run' call. DIALOG a `' RET response ID -- Function: gtk-dialog-response (self `') (response_id `int') -- Method: response Emits the "response" signal with the given response ID. Used to indicate that the user has responded to the dialog in some way; typically either you or `gtk-dialog-run' will be monitoring the "response" signal and take appropriate action. DIALOG a `' RESPONSE-ID response ID -- Function: gtk-dialog-add-button (self `') (button_text `mchars') (response_id `int') => (ret `') -- Method: add-button Adds a button with the given text (or a stock button, if BUTTON-TEXT is a stock ID) and sets things up so that clicking the button will emit the "response" signal with the given RESPONSE-ID. The button is appended to the end of the dialog's action area. The button widget is returned, but usually you don't need it. DIALOG a `' BUTTON-TEXT text of button, or stock ID RESPONSE-ID response ID for the button RET the button widget that was added -- Function: gtk-dialog-add-action-widget (self `') (child `') (response_id `int') -- Method: add-action-widget Adds an activatable widget to the action area of a `', connecting a signal handler that will emit the "response" signal on the dialog when the widget is activated. The widget is appended to the end of the dialog's action area. If you want to add a non-activatable widget, simply pack it into the `action_area' field of the `' struct. DIALOG a `' CHILD an activatable widget RESPONSE-ID response ID for CHILD -- Function: gtk-dialog-get-has-separator (self `') => (ret `bool') -- Method: get-has-separator Accessor for whether the dialog has a separator. DIALOG a `' RET ``#t'' if the dialog has a separator -- Function: gtk-dialog-set-default-response (self `') (response_id `int') -- Method: set-default-response Sets the last widget in the dialog's action area with the given RESPONSE-ID as the default widget for the dialog. Pressing "Enter" normally activates the default widget. DIALOG a `' RESPONSE-ID a response ID -- Function: gtk-dialog-set-has-separator (self `') (setting `bool') -- Method: set-has-separator Sets whether the dialog has a separator above the buttons. ``#t'' by default. DIALOG a `' SETTING ``#t'' to have a separator -- Function: gtk-dialog-set-response-sensitive (self `') (response_id `int') (setting `bool') -- Method: set-response-sensitive Calls `gtk_widget_set_sensitive (widget, SETTING)' for each widget in the dialog's action area with the given RESPONSE-ID. A convenient way to sensitize/desensitize dialog buttons. DIALOG a `' RESPONSE-ID a response ID SETTING ``#t'' for sensitive -- Function: gtk-dialog-get-response-for-widget (self `') (widget `') => (ret `int') -- Method: get-response-for-widget Gets the response id of a widget in the action area of a dialog. DIALOG a `' WIDGET a widget in the action area of DIALOG RET the response id of WIDGET, or `GTK_RESPONSE_NONE' if WIDGET doesn't have a response id set. Since 2.8 -- Function: gtk-alternative-dialog-button-order (screen `') => (ret `bool') Returns ``#t'' if dialogs are expected to use an alternative button order on the screen SCREEN. See `gtk-dialog-set-alternative-button-order' for more details about alternative button order. If you need to use this function, you should probably connect to the ::notify:gtk-alternative-button-order signal on the `' object associated to SCREEN, in order to be notified if the button order setting changes. SCREEN a `', or ``#f'' to use the default screen RET Whether the alternative button order should be used Since 2.6  File: guile-gnome-gtk.info, Node: GtkInvisible, Next: GtkMessageDialog, Prev: GtkDialog, Up: Top 3 GtkInvisible ************** A widget which is not displayed 3.1 Overview ============ The `' widget is used internally in GTK+, and is probably not very useful for application developers. It is used for reliable pointer grabs and selection handling in the code for drag-and-drop. 3.2 Usage ========= -- Class: Derives from `'. This class defines the following slots: `screen' The screen where this window will be displayed -- Function: gtk-invisible-new => (ret `') Creates a new `'. RET a new `'. -- Function: gtk-invisible-new-for-screen (screen `') => (ret `') Creates a new `' object for a specified screen SCREEN a `' which identifies on which the new `' will be created. RET a newly created `' object Since 2.2 -- Function: gtk-invisible-set-screen (self `') (screen `') -- Method: set-screen Sets the `' where the `' object will be displayed. INVISIBLE a `'. SCREEN a `'. Since 2.2 -- Function: gtk-invisible-get-screen (self `') => (ret `') -- Method: get-screen Returns the `' object associated with INVISIBLE INVISIBLE a `'. RET the associated `'. Since 2.2  File: guile-gnome-gtk.info, Node: GtkMessageDialog, Next: GtkWindow, Prev: GtkInvisible, Up: Top 4 GtkMessageDialog ****************** A convenient message window 4.1 Overview ============ `' presents a dialog with an image representing the type of message (Error, Question, etc.) alongside some message text. It's simply a convenience widget; you could construct the equivalent of `' from `' without too much effort, but `' saves typing. The easiest way to do a modal message dialog is to use `gtk-dialog-run', though you can also pass in the `GTK_DIALOG_MODAL' flag, `gtk-dialog-run' automatically makes the dialog modal and waits for the user to respond to it. `gtk-dialog-run' returns when any dialog button is clicked. dialog = gtk_message_dialog_new (main_application_window, GTK_DIALOG_DESTROY_WITH_PARENT, GTK_MESSAGE_ERROR, GTK_BUTTONS_CLOSE, "Error loading file '%s': %s", filename, g_strerror (errno)); gtk_dialog_run (GTK_DIALOG (dialog)); gtk_widget_destroy (dialog); You might do a non-modal `' as follows: dialog = gtk_message_dialog_new (main_application_window, GTK_DIALOG_DESTROY_WITH_PARENT, GTK_MESSAGE_ERROR, GTK_BUTTONS_CLOSE, "Error loading file '%s': %s", filename, g_strerror (errno)); /* Destroy the dialog when the user responds to it (e.g. clicks a button) */ g_signal_connect_swapped (dialog, "response", G_CALLBACK (gtk_widget_destroy), dialog); 4.2 Usage ========= -- Class: Derives from `'. This class defines the following slots: `message-type' The type of message `buttons' The buttons shown in the message dialog `text' The primary text of the message dialog `use-markup' The primary text of the title includes Pango markup. `secondary-text' The secondary text of the message dialog `secondary-use-markup' The secondary text includes Pango markup. `image' The image -- Function: gtk-message-dialog-set-markup (self `') (str `mchars') -- Method: set-markup Sets the text of the message dialog to be STR, which is marked up with the Pango text markup language. MESSAGE-DIALOG a `' STR markup string (see Pango markup format) Since 2.4 -- Function: gtk-message-dialog-set-image (self `') (image `') -- Method: set-image Sets the dialog's image to IMAGE. DIALOG a `' IMAGE the image Since 2.10  File: guile-gnome-gtk.info, Node: GtkWindow, Next: GtkWindowGroup, Prev: GtkMessageDialog, Up: Top 5 GtkWindow *********** Toplevel which can contain other widgets 5.1 Overview ============ 5.2 Usage ========= -- Class: Derives from `'. This class defines the following slots: `type' The type of the window `title' The title of the window `startup-id' Unique startup identifier for the window used by startup-notification `role' Unique identifier for the window to be used when restoring a session `allow-shrink' If TRUE, the window has no mimimum size. Setting this to TRUE is 99% of the time a bad idea `allow-grow' If TRUE, users can expand the window beyond its minimum size `resizable' If TRUE, users can resize the window `modal' If TRUE, the window is modal (other windows are not usable while this one is up) `window-position' The initial position of the window `default-width' The default width of the window, used when initially showing the window `default-height' The default height of the window, used when initially showing the window `destroy-with-parent' If this window should be destroyed when the parent is destroyed `icon' Icon for this window `icon-name' Name of the themed icon for this window `screen' The screen where this window will be displayed `type-hint' Hint to help the desktop environment understand what kind of window this is and how to treat it. `skip-taskbar-hint' TRUE if the window should not be in the task bar. `skip-pager-hint' TRUE if the window should not be in the pager. `urgency-hint' TRUE if the window should be brought to the user's attention. `accept-focus' TRUE if the window should receive the input focus. `focus-on-map' TRUE if the window should receive the input focus when mapped. `decorated' Whether the window should be decorated by the window manager `deletable' Whether the window frame should have a close button `gravity' The window gravity of the window `transient-for' The transient parent of the dialog `opacity' The opacity of the window, from 0 to 1 `is-active' Whether the toplevel is the current active window `has-toplevel-focus' Whether the input focus is within this GtkWindow -- Signal on : set-focus (arg0 `') -- Signal on : frame-event (arg0 `') => `' -- Signal on : activate-focus -- Signal on : activate-default -- Signal on : keys-changed -- Function: gtk-window-new (type `') => (ret `') Creates a new `', which is a toplevel window that can contain other widgets. Nearly always, the type of the window should be `'. If you're implementing something like a popup menu from scratch (which is a bad idea, just use `'), you might use `'. `' is not for dialogs, though in some other toolkits dialogs are called "popups". In GTK+, `' means a pop-up menu or pop-up tooltip. On X11, popup windows are not controlled by the window manager. If you simply want an undecorated window (no window borders), use `gtk-window-set-decorated', don't use `'. TYPE type of window RET a new `'. -- Function: gtk-window-set-title (self `') (title `mchars') -- Method: set-title Sets the title of the `'. The title of a window will be displayed in its title bar; on the X Window System, the title bar is rendered by the window manager, so exactly how the title appears to users may vary according to a user's exact configuration. The title should help a user distinguish this window from other windows they may have open. A good title might include the application name and current document filename, for example. WINDOW a `' TITLE title of the window -- Function: gtk-window-set-wmclass (self `') (wmclass_name `mchars') (wmclass_class `mchars') -- Method: set-wmclass Don't use this function. It sets the X Window System "class" and "name" hints for a window. According to the ICCCM, you should always set these to the same value for all windows in an application, and GTK+ sets them to that value by default, so calling this function is sort of pointless. However, you may want to call `gtk-window-set-role' on each window in your application, for the benefit of the session manager. Setting the role allows the window manager to restore window positions when loading a saved session. WINDOW a `' WMCLASS-NAME window name hint WMCLASS-CLASS window class hint -- Function: gtk-window-set-resizable (self `') (resizable `bool') -- Method: set-resizable Sets whether the user can resize a window. Windows are user resizable by default. WINDOW a `' RESIZABLE ``#t'' if the user can resize this window -- Function: gtk-window-get-resizable (self `') => (ret `bool') -- Method: get-resizable Gets the value set by `gtk-window-set-resizable'. WINDOW a `' RET ``#t'' if the user can resize the window -- Function: gtk-window-add-accel-group (self `') (accel_group `') -- Method: add-accel-group Associate ACCEL-GROUP with WINDOW, such that calling `gtk-accel-groups-activate' on WINDOW will activate accelerators in ACCEL-GROUP. WINDOW window to attach accelerator group to ACCEL-GROUP a `' -- Function: gtk-window-remove-accel-group (self `') (accel_group `') -- Method: remove-accel-group Reverses the effects of `gtk-window-add-accel-group'. WINDOW a `' ACCEL-GROUP a `' -- Function: gtk-window-activate-focus (self `') => (ret `bool') -- Method: activate-focus Activates the current focused widget within the window. WINDOW a `' RET ``#t'' if a widget got activated. -- Function: gtk-window-activate-default (self `') => (ret `bool') -- Method: activate-default Activates the default widget for the window, unless the current focused widget has been configured to receive the default action (see `' in `'), in which case the focused widget is activated. WINDOW a `' RET ``#t'' if a widget got activated. -- Function: gtk-window-set-modal (self `') (modal `bool') -- Method: set-modal Sets a window modal or non-modal. Modal windows prevent interaction with other windows in the same application. To keep modal dialogs on top of main application windows, use `gtk-window-set-transient-for' to make the dialog transient for the parent; most window managers will then disallow lowering the dialog below the parent. WINDOW a `' MODAL whether the window is modal -- Function: gtk-window-set-default-size (self `') (width `int') (height `int') -- Method: set-default-size Sets the default size of a window. If the window's "natural" size (its size request) is larger than the default, the default will be ignored. More generally, if the default size does not obey the geometry hints for the window (`gtk-window-set-geometry-hints' can be used to set these explicitly), the default size will be clamped to the nearest permitted size. Unlike `gtk-widget-set-size-request', which sets a size request for a widget and thus would keep users from shrinking the window, this function only sets the initial size, just as if the user had resized the window themselves. Users can still shrink the window again as they normally would. Setting a default size of -1 means to use the "natural" default size (the size request of the window). For more control over a window's initial size and how resizing works, investigate `gtk-window-set-geometry-hints'. For some uses, `gtk-window-resize' is a more appropriate function. `gtk-window-resize' changes the current size of the window, rather than the size to be used on initial display. `gtk-window-resize' always affects the window itself, not the geometry widget. The default size of a window only affects the first time a window is shown; if a window is hidden and re-shown, it will remember the size it had prior to hiding, rather than using the default size. Windows can't actually be 0x0 in size, they must be at least 1x1, but passing 0 for WIDTH and HEIGHT is OK, resulting in a 1x1 default size. WINDOW a `' WIDTH width in pixels, or -1 to unset the default width HEIGHT height in pixels, or -1 to unset the default height -- Function: gtk-window-set-gravity (self `') (gravity `') -- Method: set-gravity Window gravity defines the meaning of coordinates passed to `gtk-window-move'. See `gtk-window-move' and `' for more details. The default window gravity is `' which will typically "do what you mean." WINDOW a `' GRAVITY window gravity -- Function: gtk-window-get-gravity (self `') => (ret `') -- Method: get-gravity Gets the value set by `gtk-window-set-gravity'. WINDOW a `' RET window gravity -- Function: gtk-window-set-position (self `') (position `') -- Method: set-position Sets a position constraint for this window. If the old or new constraint is `GTK_WIN_POS_CENTER_ALWAYS', this will also cause the window to be repositioned to satisfy the new constraint. WINDOW a `'. POSITION a position constraint. -- Function: gtk-window-set-transient-for (self `') (parent `') -- Method: set-transient-for Dialog windows should be set transient for the main application window they were spawned from. This allows window managers to e.g. keep the dialog on top of the main window, or center the dialog over the main window. `gtk-dialog-new-with-buttons' and other convenience functions in GTK+ will sometimes call `gtk-window-set-transient-for' on your behalf. On Windows, this function will and put the child window on top of the parent, much as the window manager would have done on X. WINDOW a `' PARENT parent window -- Function: gtk-window-set-destroy-with-parent (self `') (setting `bool') -- Method: set-destroy-with-parent If SETTING is ``#t'', then destroying the transient parent of WINDOW will also destroy WINDOW itself. This is useful for dialogs that shouldn't persist beyond the lifetime of the main window they're associated with, for example. WINDOW a `' SETTING whether to destroy WINDOW with its transient parent -- Function: gtk-window-set-screen (self `') (screen `') -- Method: set-screen Sets the `' where the WINDOW is displayed; if the window is already mapped, it will be unmapped, and then remapped on the new screen. WINDOW a `'. SCREEN a `'. Since 2.2 -- Function: gtk-window-get-screen (self `') => (ret `') -- Method: get-screen Returns the `' associated with WINDOW. WINDOW a `'. RET a `'. Since 2.2 -- Function: gtk-window-is-active (self `') => (ret `bool') -- Method: is-active Returns whether the window is part of the current active toplevel. (That is, the toplevel window receiving keystrokes.) The return value is ``#t'' if the window is active toplevel itself, but also if it is, say, a `' embedded in the active toplevel. You might use this function if you wanted to draw a widget differently in an active window from a widget in an inactive window. See `gtk-window-has-toplevel-focus' WINDOW a `' RET ``#t'' if the window part of the current active window. Since 2.4 -- Function: gtk-window-has-toplevel-focus (self `') => (ret `bool') -- Method: has-toplevel-focus Returns whether the input focus is within this GtkWindow. For real toplevel windows, this is identical to `gtk-window-is-active', but for embedded windows, like `', the results will differ. WINDOW a `' RET ``#t'' if the input focus is within this GtkWindow Since 2.4 -- Function: gtk-window-list-toplevels => (ret `glist-of') Returns a list of all existing toplevel windows. The widgets in the list are not individually referenced. If you want to iterate through the list and perform actions involving callbacks that might destroy the widgets, you _must_ call `g_list_foreach (result, (GFunc)g_object_ref, NULL)' first, and then unref all the widgets afterwards. RET list of toplevel widgets -- Function: gtk-window-add-mnemonic (self `') (keyval `unsigned-int') (target `') -- Method: add-mnemonic Adds a mnemonic to this window. WINDOW a `' KEYVAL the mnemonic TARGET the widget that gets activated by the mnemonic -- Function: gtk-window-remove-mnemonic (self `') (keyval `unsigned-int') (target `') -- Method: remove-mnemonic Removes a mnemonic from this window. WINDOW a `' KEYVAL the mnemonic TARGET the widget that gets activated by the mnemonic -- Function: gtk-window-mnemonic-activate (self `') (keyval `unsigned-int') (modifier `') => (ret `bool') -- Method: mnemonic-activate Activates the targets associated with the mnemonic. WINDOW a `' KEYVAL the mnemonic MODIFIER the modifiers RET ``#t'' if the activation is done. -- Function: gtk-window-activate-key (self `') (event `') => (ret `bool') -- Method: activate-key Activates mnemonics and accelerators for this `'. This is normally called by the default ::key_press_event handler for toplevel windows, however in some cases it may be useful to call this directly when overriding the standard key handling for a toplevel window. WINDOW a `' EVENT a `' RET ``#t'' if a mnemonic or accelerator was found and activated. -- Function: gtk-window-propagate-key-event (self `') (event `') => (ret `bool') -- Method: propagate-key-event Propagate a key press or release event to the focus widget and up the focus container chain until a widget handles EVENT. This is normally called by the default ::key_press_event and ::key_release_event handlers for toplevel windows, however in some cases it may be useful to call this directly when overriding the standard key handling for a toplevel window. WINDOW a `' EVENT a `' RET ``#t'' if a widget in the focus chain handled the event. -- Function: gtk-window-get-focus (self `') => (ret `') -- Method: get-focus Retrieves the current focused widget within the window. Note that this is the widget that would have the focus if the toplevel window focused; if the toplevel window is not focused then `GTK_WIDGET_HAS_FOCUS (widget)' will not be ``#t'' for the widget. WINDOW a `' RET the currently focused widget, or ``#f'' if there is none. -- Function: gtk-window-set-focus (self `') (focus `') -- Method: set-focus If FOCUS is not the current focus widget, and is focusable, sets it as the focus widget for the window. If FOCUS is ``#f'', unsets the focus widget for this window. To set the focus to a particular widget in the toplevel, it is usually more convenient to use `gtk-widget-grab-focus' instead of this function. WINDOW a `' FOCUS widget to be the new focus widget, or ``#f'' to unset any focus widget for the toplevel window. -- Function: gtk-window-set-default (self `') (default_widget `') -- Method: set-default The default widget is the widget that's activated when the user presses Enter in a dialog (for example). This function sets or unsets the default widget for a `' about. When setting (rather than unsetting) the default widget it's generally easier to call `gtk-widget-grab-focus' on the widget. Before making a widget the default widget, you must set the `' flag on the widget you'd like to make the default using `gtk-widget-set-flags'. WINDOW a `' DEFAULT-WIDGET widget to be the default, or ``#f'' to unset the default widget for the toplevel. -- Function: gtk-window-present (self `') -- Method: present Presents a window to the user. This may mean raising the window in the stacking order, deiconifying it, moving it to the current desktop, and/or giving it the keyboard focus, possibly dependent on the user's platform, window manager, and preferences. If WINDOW is hidden, this function calls `gtk-widget-show' as well. This function should be used when the user tries to open a window that's already open. Say for example the preferences dialog is currently open, and the user chooses Preferences from the menu a second time; use `gtk-window-present' to move the already-open dialog where the user can see it. If you are calling this function in response to a user interaction, it is preferable to use `gtk-window-present-with-time'. WINDOW a `' -- Function: gtk-window-present-with-time (self `') (timestamp `unsigned-int32') -- Method: present-with-time Presents a window to the user in response to a user interaction. If you need to present a window without a timestamp, use `gtk-window-present'. See `gtk-window-present' for details. WINDOW a `' TIMESTAMP the timestamp of the user interaction (typically a button or key press event) which triggered this call Since 2.8 -- Function: gtk-window-iconify (self `') -- Method: iconify Asks to iconify (i.e. minimize) the specified WINDOW. Note that you shouldn't assume the window is definitely iconified afterward, because other entities (e.g. the user or window manager) could deiconify it again, or there may not be a window manager in which case iconification isn't possible, etc. But normally the window will end up iconified. Just don't write code that crashes if not. It's permitted to call this function before showing a window, in which case the window will be iconified before it ever appears onscreen. You can track iconification via the "window_state_event" signal on `'. WINDOW a `' -- Function: gtk-window-deiconify (self `') -- Method: deiconify Asks to deiconify (i.e. unminimize) the specified WINDOW. Note that you shouldn't assume the window is definitely deiconified afterward, because other entities (e.g. the user or window manager) could iconify it again before your code which assumes deiconification gets to run. You can track iconification via the "window_state_event" signal on `'. WINDOW a `' -- Function: gtk-window-stick (self `') -- Method: stick Asks to stick WINDOW, which means that it will appear on all user desktops. Note that you shouldn't assume the window is definitely stuck afterward, because other entities (e.g. the user or window manager) could unstick it again, and some window managers do not support sticking windows. But normally the window will end up stuck. Just don't write code that crashes if not. It's permitted to call this function before showing a window. You can track stickiness via the "window_state_event" signal on `'. WINDOW a `' -- Function: gtk-window-unstick (self `') -- Method: unstick Asks to unstick WINDOW, which means that it will appear on only one of the user's desktops. Note that you shouldn't assume the window is definitely unstuck afterward, because other entities (e.g. the user or window manager) could stick it again. But normally the window will end up stuck. Just don't write code that crashes if not. You can track stickiness via the "window_state_event" signal on `'. WINDOW a `' -- Function: gtk-window-maximize (self `') -- Method: maximize Asks to maximize WINDOW, so that it becomes full-screen. Note that you shouldn't assume the window is definitely maximized afterward, because other entities (e.g. the user or window manager) could unmaximize it again, and not all window managers support maximization. But normally the window will end up maximized. Just don't write code that crashes if not. It's permitted to call this function before showing a window, in which case the window will be maximized when it appears onscreen initially. You can track maximization via the "window_state_event" signal on `'. WINDOW a `' -- Function: gtk-window-unmaximize (self `') -- Method: unmaximize Asks to unmaximize WINDOW. Note that you shouldn't assume the window is definitely unmaximized afterward, because other entities (e.g. the user or window manager) could maximize it again, and not all window managers honor requests to unmaximize. But normally the window will end up unmaximized. Just don't write code that crashes if not. You can track maximization via the "window_state_event" signal on `'. WINDOW a `' -- Function: gtk-window-fullscreen (self `') -- Method: fullscreen Asks to place WINDOW in the fullscreen state. Note that you shouldn't assume the window is definitely full screen afterward, because other entities (e.g. the user or window manager) could unfullscreen it again, and not all window managers honor requests to fullscreen windows. But normally the window will end up fullscreen. Just don't write code that crashes if not. You can track the fullscreen state via the "window_state_event" signal on `'. WINDOW a `' Since 2.2 -- Function: gtk-window-unfullscreen (self `') -- Method: unfullscreen Asks to toggle off the fullscreen state for WINDOW. Note that you shouldn't assume the window is definitely not full screen afterward, because other entities (e.g. the user or window manager) could fullscreen it again, and not all window managers honor requests to unfullscreen windows. But normally the window will end up restored to its normal state. Just don't write code that crashes if not. You can track the fullscreen state via the "window_state_event" signal on `'. WINDOW a `' Since 2.2 -- Function: gtk-window-set-keep-above (self `') (setting `bool') -- Method: set-keep-above Asks to keep WINDOW above, so that it stays on top. Note that you shouldn't assume the window is definitely above afterward, because other entities (e.g. the user or window manager) could not keep it above, and not all window managers support keeping windows above. But normally the window will end kept above. Just don't write code that crashes if not. It's permitted to call this function before showing a window, in which case the window will be kept above when it appears onscreen initially. You can track the above state via the "window_state_event" signal on `'. Note that, according to the Extended Window Manager Hints (http://www.freedesktop.org/Standards/wm-spec) specification, the above state is mainly meant for user preferences and should not be used by applications e.g. for drawing attention to their dialogs. WINDOW a `' SETTING whether to keep WINDOW above other windows Since 2.4 -- Function: gtk-window-set-keep-below (self `') (setting `bool') -- Method: set-keep-below Asks to keep WINDOW below, so that it stays in bottom. Note that you shouldn't assume the window is definitely below afterward, because other entities (e.g. the user or window manager) could not keep it below, and not all window managers support putting windows below. But normally the window will be kept below. Just don't write code that crashes if not. It's permitted to call this function before showing a window, in which case the window will be kept below when it appears onscreen initially. You can track the below state via the "window_state_event" signal on `'. Note that, according to the Extended Window Manager Hints (http://www.freedesktop.org/Standards/wm-spec) specification, the above state is mainly meant for user preferences and should not be used by applications e.g. for drawing attention to their dialogs. WINDOW a `' SETTING whether to keep WINDOW below other windows Since 2.4 -- Function: gtk-window-begin-resize-drag (self `') (edge `') (button `int') (root_x `int') (root_y `int') (timestamp `unsigned-int32') -- Method: begin-resize-drag Starts resizing a window. This function is used if an application has window resizing controls. When GDK can support it, the resize will be done using the standard mechanism for the window manager or windowing system. Otherwise, GDK will try to emulate window resizing, potentially not all that well, depending on the windowing system. WINDOW a `' EDGE position of the resize control BUTTON mouse button that initiated the drag ROOT-X X position where the user clicked to initiate the drag, in root window coordinates ROOT-Y Y position where the user clicked to initiate the drag TIMESTAMP timestamp from the click event that initiated the drag -- Function: gtk-window-begin-move-drag (self `') (button `int') (root_x `int') (root_y `int') (timestamp `unsigned-int32') -- Method: begin-move-drag Starts moving a window. This function is used if an application has window movement grips. When GDK can support it, the window movement will be done using the standard mechanism for the window manager or windowing system. Otherwise, GDK will try to emulate window movement, potentially not all that well, depending on the windowing system. WINDOW a `' BUTTON mouse button that initiated the drag ROOT-X X position where the user clicked to initiate the drag, in root window coordinates ROOT-Y Y position where the user clicked to initiate the drag TIMESTAMP timestamp from the click event that initiated the drag -- Function: gtk-window-set-decorated (self `') (setting `bool') -- Method: set-decorated By default, windows are decorated with a title bar, resize controls, etc. Some window managers allow GTK+ to disable these decorations, creating a borderless window. If you set the decorated property to ``#f'' using this function, GTK+ will do its best to convince the window manager not to decorate the window. Depending on the system, this function may not have any effect when called on a window that is already visible, so you should call it before calling `gtk-window-show'. On Windows, this function always works, since there's no window manager policy involved. WINDOW a `' SETTING ``#t'' to decorate the window -- Function: gtk-window-set-deletable (self `') (setting `bool') -- Method: set-deletable By default, windows have a close button in the window frame. Some window managers allow GTK+ to disable this button. If you set the deletable property to ``#f'' using this function, GTK+ will do its best to convince the window manager not to show a close button. Depending on the system, this function may not have any effect when called on a window that is already visible, so you should call it before calling `gtk-window-show'. On Windows, this function always works, since there's no window manager policy involved. WINDOW a `' SETTING ``#t'' to decorate the window as deletable Since 2.10 -- Function: gtk-window-set-frame-dimensions (self `') (left `int') (top `int') (right `int') (bottom `int') -- Method: set-frame-dimensions (Note: this is a special-purpose function intended for the framebuffer port; see `gtk-window-set-has-frame'. It will have no effect on the window border drawn by the window manager, which is the normal case when using the X Window system.) For windows with frames (see `gtk-window-set-has-frame') this function can be used to change the size of the frame border. WINDOW a `' that has a frame LEFT The width of the left border TOP The height of the top border RIGHT The width of the right border BOTTOM The height of the bottom border -- Function: gtk-window-set-has-frame (self `') (setting `bool') -- Method: set-has-frame (Note: this is a special-purpose function for the framebuffer port, that causes GTK+ to draw its own window border. For most applications, you want `gtk-window-set-decorated' instead, which tells the window manager whether to draw the window border.) If this function is called on a window with setting of ``#t'', before it is realized or showed, it will have a "frame" window around WINDOW->WINDOW, accessible in WINDOW->FRAME. Using the signal frame_event you can receive all events targeted at the frame. This function is used by the linux-fb port to implement managed windows, but it could conceivably be used by X-programs that want to do their own window decorations. WINDOW a `' SETTING a boolean -- Function: gtk-window-set-mnemonic-modifier (self `') (modifier `') -- Method: set-mnemonic-modifier Sets the mnemonic modifier for this window. WINDOW a `' MODIFIER the modifier mask used to activate mnemonics on this window. -- Function: gtk-window-set-role (self `') (role `mchars') -- Method: set-role This function is only useful on X11, not with other GTK+ targets. In combination with the window title, the window role allows a window manager to identify "the same" window when an application is restarted. So for example you might set the "toolbox" role on your app's toolbox window, so that when the user restarts their session, the window manager can put the toolbox back in the same place. If a window already has a unique title, you don't need to set the role, since the WM can use the title to identify the window when restoring the session. WINDOW a `' ROLE unique identifier for the window to be used when restoring a session -- Function: gtk-window-set-type-hint (self `') (hint `') -- Method: set-type-hint By setting the type hint for the window, you allow the window manager to decorate and handle the window in a way which is suitable to the function of the window in your application. This function should be called before the window becomes visible. `gtk-dialog-new-with-buttons' and other convenience functions in GTK+ will sometimes call `gtk-window-set-type-hint' on your behalf. WINDOW a `' HINT the window type -- Function: gtk-window-set-skip-taskbar-hint (self `') (setting `bool') -- Method: set-skip-taskbar-hint Windows may set a hint asking the desktop environment not to display the window in the task bar. This function sets this hint. WINDOW a `' SETTING ``#t'' to keep this window from appearing in the task bar Since 2.2 -- Function: gtk-window-set-skip-pager-hint (self `') (setting `bool') -- Method: set-skip-pager-hint Windows may set a hint asking the desktop environment not to display the window in the pager. This function sets this hint. (A "pager" is any desktop navigation tool such as a workspace switcher that displays a thumbnail representation of the windows on the screen.) WINDOW a `' SETTING ``#t'' to keep this window from appearing in the pager Since 2.2 -- Function: gtk-window-set-urgency-hint (self `') (setting `bool') -- Method: set-urgency-hint Windows may set a hint asking the desktop environment to draw the users attention to the window. This function sets this hint. WINDOW a `' SETTING ``#t'' to mark this window as urgent Since 2.8 -- Function: gtk-window-set-accept-focus (self `') (setting `bool') -- Method: set-accept-focus Windows may set a hint asking the desktop environment not to receive the input focus. This function sets this hint. WINDOW a `' SETTING ``#t'' to let this window receive input focus Since 2.4 -- Function: gtk-window-set-focus-on-map (self `') (setting `bool') -- Method: set-focus-on-map Windows may set a hint asking the desktop environment not to receive the input focus when the window is mapped. This function sets this hint. WINDOW a `' SETTING ``#t'' to let this window receive input focus on map Since 2.6 -- Function: gtk-window-get-decorated (self `') => (ret `bool') -- Method: get-decorated Returns whether the window has been set to have decorations such as a title bar via `gtk-window-set-decorated'. WINDOW a `' RET ``#t'' if the window has been set to have decorations -- Function: gtk-window-get-deletable (self `') => (ret `bool') -- Method: get-deletable Returns whether the window has been set to have a close button via `gtk-window-set-deletable'. WINDOW a `' RET ``#t'' if the window has been set to have a close button Since 2.10 -- Function: gtk-window-get-default-icon-list => (ret `glist-of') Gets the value set by `gtk-window-set-default-icon-list'. The list is a copy and should be freed with `g-list-free', but the pixbufs in the list have not had their reference count incremented. RET copy of default icon list -- Function: gtk-window-get-default-size (self `') => (width `int') (height `int') -- Method: get-default-size Gets the default size of the window. A value of -1 for the width or height indicates that a default size has not been explicitly set for that dimension, so the "natural" size of the window will be used. WINDOW a `' WIDTH location to store the default width, or ``#f'' HEIGHT location to store the default height, or ``#f'' -- Function: gtk-window-get-destroy-with-parent (self `') => (ret `bool') -- Method: get-destroy-with-parent Returns whether the window will be destroyed with its transient parent. See `gtk-window-set-destroy-with-parent'. WINDOW a `' RET ``#t'' if the window will be destroyed with its transient parent. -- Function: gtk-window-get-frame-dimensions (self `') => (left `int') (top `int') (right `int') (bottom `int') -- Method: get-frame-dimensions (Note: this is a special-purpose function intended for the framebuffer port; see `gtk-window-set-has-frame'. It will not return the size of the window border drawn by the window manager, which is the normal case when using a windowing system. See `gdk-window-get-frame-extents' to get the standard window border extents.) Retrieves the dimensions of the frame window for this toplevel. See `gtk-window-set-has-frame', `gtk-window-set-frame-dimensions'. WINDOW a `' LEFT location to store the width of the frame at the left, or ``#f'' TOP location to store the height of the frame at the top, or ``#f'' RIGHT location to store the width of the frame at the returns, or ``#f'' BOTTOM location to store the height of the frame at the bottom, or ``#f'' -- Function: gtk-window-get-has-frame (self `') => (ret `bool') -- Method: get-has-frame Accessor for whether the window has a frame window exterior to WINDOW->WINDOW. Gets the value set by `gtk-window-set-has-frame'. WINDOW a `' RET ``#t'' if a frame has been added to the window via `gtk-window-set-has-frame'. -- Function: gtk-window-get-icon (self `') => (ret `') -- Method: get-icon Gets the value set by `gtk-window-set-icon' (or if you've called `gtk-window-set-icon-list', gets the first icon in the icon list). WINDOW a `' RET icon for window -- Function: gtk-window-get-icon-list (self `') => (ret `glist-of') -- Method: get-icon-list Retrieves the list of icons set by `gtk-window-set-icon-list'. The list is copied, but the reference count on each member won't be incremented. WINDOW a `' RET copy of window's icon list -- Function: gtk-window-get-icon-name (self `') => (ret `mchars') -- Method: get-icon-name Returns the name of the themed icon for the window, see `gtk-window-set-icon-name'. WINDOW a `' RET the icon name or ``#f'' if the window has no themed icon Since 2.6 -- Function: gtk-window-get-mnemonic-modifier (self `') => (ret `') -- Method: get-mnemonic-modifier Returns the mnemonic modifier for this window. See `gtk-window-set-mnemonic-modifier'. WINDOW a `' RET the modifier mask used to activate mnemonics on this window. -- Function: gtk-window-get-modal (self `') => (ret `bool') -- Method: get-modal Returns whether the window is modal. See `gtk-window-set-modal'. WINDOW a `' RET ``#t'' if the window is set to be modal and establishes a grab when shown -- Function: gtk-window-get-position (self `') => (root_x `int') (root_y `int') -- Method: get-position This function returns the position you need to pass to `gtk-window-move' to keep WINDOW in its current position. This means that the meaning of the returned value varies with window gravity. See `gtk-window-move' for more details. If you haven't changed the window gravity, its gravity will be `'. This means that `gtk-window-get-position' gets the position of the top-left corner of the window manager frame for the window. `gtk-window-move' sets the position of this same top-left corner. `gtk-window-get-position' is not 100% reliable because the X Window System does not specify a way to obtain the geometry of the decorations placed on a window by the window manager. Thus GTK+ is using a "best guess" that works with most window managers. Moreover, nearly all window managers are historically broken with respect to their handling of window gravity. So moving a window to its current position as returned by `gtk-window-get-position' tends to result in moving the window slightly. Window managers are slowly getting better over time. If a window has gravity `' the window manager frame is not relevant, and thus `gtk-window-get-position' will always produce accurate results. However you can't use static gravity to do things like place a window in a corner of the screen, because static gravity ignores the window manager decorations. If you are saving and restoring your application's window positions, you should know that it's impossible for applications to do this without getting it somewhat wrong because applications do not have sufficient knowledge of window manager state. The Correct Mechanism is to support the session management protocol (see the "GnomeClient" object in the GNOME libraries for example) and allow the window manager to save your window sizes and positions. WINDOW a `' ROOT-X return location for X coordinate of gravity-determined reference p\oint ROOT-Y return location for Y coordinate of gravity-determined reference p\oint -- Function: gtk-window-get-role (self `') => (ret `mchars') -- Method: get-role Returns the role of the window. See `gtk-window-set-role' for further explanation. WINDOW a `' RET the role of the window if set, or ``#f''. The returned is owned by the widget and must not be modified or freed. -- Function: gtk-window-get-size (self `') => (width `int') (height `int') -- Method: get-size Obtains the current size of WINDOW. If WINDOW is not onscreen, it returns the size GTK+ will suggest to the window manager for the initial window size (but this is not reliably the same as the size the window manager will actually select). The size obtained by `gtk-window-get-size' is the last size received in a `', that is, GTK+ uses its locally-stored size, rather than querying the X server for the size. As a result, if you call `gtk-window-resize' then immediately call `gtk-window-get-size', the size won't have taken effect yet. After the window manager processes the resize request, GTK+ receives notification that the size has changed via a configure event, and the size of the window gets updated. Note 1: Nearly any use of this function creates a race condition, because the size of the window may change between the time that you get the size and the time that you perform some action assuming that size is the current size. To avoid race conditions, connect to "configure_event" on the window and adjust your size-dependent state to match the size delivered in the `'. Note 2: The returned size does _not_ include the size of the window manager decorations (aka the window frame or border). Those are not drawn by GTK+ and GTK+ has no reliable method of determining their size. Note 3: If you are getting a window size in order to position the window onscreen, there may be a better way. The preferred way is to simply set the window's semantic type with `gtk-window-set-type-hint', which allows the window manager to e.g. center dialogs. Also, if you set the transient parent of dialogs with `gtk-window-set-transient-for' window managers will often center the dialog over its parent window. It's much preferred to let the window manager handle these things rather than doing it yourself, because all apps will behave consistently and according to user prefs if the window manager handles it. Also, the window manager can take the size of the window decorations/border into account, while your application cannot. In any case, if you insist on application-specified window positioning, there's _still_ a better way than doing it yourself - `gtk-window-set-position' will frequently handle the details for you. WINDOW a `' WIDTH return location for width, or ``#f'' HEIGHT return location for height, or ``#f'' -- Function: gtk-window-get-title (self `') => (ret `mchars') -- Method: get-title Retrieves the title of the window. See `gtk-window-set-title'. WINDOW a `' RET the title of the window, or ``#f'' if none has been set explicitely. The returned string is owned by the widget and must not be modified or freed. -- Function: gtk-window-get-transient-for (self `') => (ret `') -- Method: get-transient-for Fetches the transient parent for this window. See `gtk-window-set-transient-for'. WINDOW a `' RET the transient parent for this window, or ``#f'' if no transient parent has been set. -- Function: gtk-window-get-type-hint (self `') => (ret `') -- Method: get-type-hint Gets the type hint for this window. See `gtk-window-set-type-hint'. WINDOW a `' RET the type hint for WINDOW. -- Function: gtk-window-get-skip-taskbar-hint (self `') => (ret `bool') -- Method: get-skip-taskbar-hint Gets the value set by `gtk-window-set-skip-taskbar-hint' WINDOW a `' RET ``#t'' if window shouldn't be in taskbar Since 2.2 -- Function: gtk-window-get-skip-pager-hint (self `') => (ret `bool') -- Method: get-skip-pager-hint Gets the value set by `gtk-window-set-skip-pager-hint'. WINDOW a `' RET ``#t'' if window shouldn't be in pager Since 2.2 -- Function: gtk-window-get-urgency-hint (self `') => (ret `bool') -- Method: get-urgency-hint Gets the value set by `gtk-window-set-urgency-hint' WINDOW a `' RET ``#t'' if window is urgent Since 2.8 -- Function: gtk-window-get-accept-focus (self `') => (ret `bool') -- Method: get-accept-focus Gets the value set by `gtk-window-set-accept-focus'. WINDOW a `' RET ``#t'' if window should receive the input focus Since 2.4 -- Function: gtk-window-get-focus-on-map (self `') => (ret `bool') -- Method: get-focus-on-map Gets the value set by `gtk-window-set-focus-on-map'. WINDOW a `' RET ``#t'' if window should receive the input focus when mapped. Since 2.6 -- Function: gtk-window-get-group (self `') => (ret `') -- Method: get-group Returns the group for WINDOW or the default group, if WINDOW is ``#f'' or if WINDOW does not have an explicit window group. WINDOW a `', or ``#f'' RET the `' for a window or the default group Since 2.10 -- Function: gtk-window-move (self `') (x `int') (y `int') -- Method: move Asks the window manager to move WINDOW to the given position. Window managers are free to ignore this; most window managers ignore requests for initial window positions (instead using a user-defined placement algorithm) and honor requests after the window has already been shown. Note: the position is the position of the gravity-determined reference point for the window. The gravity determines two things: first, the location of the reference point in root window coordinates; and second, which point on the window is positioned at the reference point. By default the gravity is `', so the reference point is simply the X, Y supplied to `gtk-window-move'. The top-left corner of the window decorations (aka window frame or border) will be placed at X, Y. Therefore, to position a window at the top left of the screen, you want to use the default gravity (which is `') and move the window to 0,0. To position a window at the bottom right corner of the screen, you would set `', which means that the reference point is at X + the window width and Y + the window height, and the bottom-right corner of the window border will be placed at that reference point. So, to place a window in the bottom right corner you would first set gravity to south east, then write: `gtk_window_move (window, `gdk-screen-width' - window_width, `gdk-screen-height' - window_height)' (note that this example does not take multi-head scenarios into account). The Extended Window Manager Hints specification at http://www.freedesktop.org/Standards/wm-spec (http://www.freedesktop.org/Standards/wm-spec) has a nice table of gravities in the "implementation notes" section. The `gtk-window-get-position' documentation may also be relevant. WINDOW a `' X X coordinate to move window to Y Y coordinate to move window to -- Function: gtk-window-parse-geometry (self `') (geometry `mchars') => (ret `bool') -- Method: parse-geometry Parses a standard X Window System geometry string - see the manual page for X (type 'man X') for details on this. `gtk-window-parse-geometry' does work on all GTK+ ports including Win32 but is primarily intended for an X environment. If either a size or a position can be extracted from the geometry string, `gtk-window-parse-geometry' returns ``#t'' and calls `gtk-window-set-default-size' and/or `gtk-window-move' to resize/move the window. If `gtk-window-parse-geometry' returns ``#t'', it will also set the `' and/or `' hints indicating to the window manager that the size/position of the window was user-specified. This causes most window managers to honor the geometry. Note that for `gtk-window-parse-geometry' to work as expected, it has to be called when the window has its "final" size, i.e. after calling `gtk-widget-show-all' on the contents and `gtk-window-set-geometry-hints' on the window. #include static void fill_with_content (GtkWidget *vbox) { /* fill with content... */ } int main (int argc, char *argv[]) { GtkWidget *window, *vbox; GdkGeometry size_hints = { 100, 50, 0, 0, 100, 50, 10, 10, 0.0, 0.0, GDK_GRAVITY_NORTH_WEST }; gtk_init (&argc, &argv); window = gtk_window_new (GTK_WINDOW_TOPLEVEL); vbox = gtk_vbox_new (FALSE, 0); gtk_container_add (GTK_CONTAINER (window), vbox); fill_with_content (vbox); gtk_widget_show_all (vbox); gtk_window_set_geometry_hints (GTK_WINDOW (window), window, &size_hints, GDK_HINT_MIN_SIZE | GDK_HINT_BASE_SIZE | GDK_HINT_RESIZE_INC); if (argc > 1) { if (!gtk_window_parse_geometry (GTK_WINDOW (window), argv[1])) fprintf (stderr, "Failed to parse '%s'\n", argv[1]); } gtk_widget_show_all (window); gtk_main (); return 0; } WINDOW a `' GEOMETRY geometry string RET ``#t'' if string was parsed successfully -- Function: gtk-window-reshow-with-initial-size (self `') -- Method: reshow-with-initial-size Hides WINDOW, then reshows it, resetting the default size and position of the window. Used by GUI builders only. WINDOW a `' -- Function: gtk-window-resize (self `') (width `int') (height `int') -- Method: resize Resizes the window as if the user had done so, obeying geometry constraints. The default geometry constraint is that windows may not be smaller than their size request; to override this constraint, call `gtk-widget-set-size-request' to set the window's request to a smaller value. If `gtk-window-resize' is called before showing a window for the first time, it overrides any default size set with `gtk-window-set-default-size'. Windows may not be resized smaller than 1 by 1 pixels. WINDOW a `' WIDTH width in pixels to resize the window to HEIGHT height in pixels to resize the window to -- Function: gtk-window-set-default-icon-list (list `glist-of') Sets an icon list to be used as fallback for windows that haven't had `gtk-window-set-icon-list' called on them to set up a window-specific icon list. This function allows you to set up the icon for all windows in your app at once. See `gtk-window-set-icon-list' for more details. LIST a list of `' -- Function: gtk-window-set-default-icon (icon `') Sets an icon to be used as fallback for windows that haven't had `gtk-window-set-icon' called on them from a pixbuf. ICON the icon Since 2.4 -- Function: gtk-window-set-default-icon-name (name `mchars') Sets an icon to be used as fallback for windows that haven't had `gtk-window-set-icon-list' called on them from a named themed icon, see `gtk-window-set-icon-name'. NAME the name of the themed icon Since 2.6 -- Function: gtk-window-set-icon (self `') (icon `') -- Method: set-icon Sets up the icon representing a `'. This icon is used when the window is minimized (also known as iconified). Some window managers or desktop environments may also place it in the window frame, or display it in other contexts. The icon should be provided in whatever size it was naturally drawn; that is, don't scale the image before passing it to GTK+. Scaling is postponed until the last minute, when the desired final size is known, to allow best quality. If you have your icon hand-drawn in multiple sizes, use `gtk-window-set-icon-list'. Then the best size will be used. This function is equivalent to calling `gtk-window-set-icon-list' with a 1-element list. See also `gtk-window-set-default-icon-list' to set the icon for all windows in your application in one go. WINDOW a `' ICON icon image, or ``#f'' -- Function: gtk-window-set-icon-list (self `') (list `glist-of') -- Method: set-icon-list Sets up the icon representing a `'. The icon is used when the window is minimized (also known as iconified). Some window managers or desktop environments may also place it in the window frame, or display it in other contexts. `gtk-window-set-icon-list' allows you to pass in the same icon in several hand-drawn sizes. The list should contain the natural sizes your icon is available in; that is, don't scale the image before passing it to GTK+. Scaling is postponed until the last minute, when the desired final size is known, to allow best quality. By passing several sizes, you may improve the final image quality of the icon, by reducing or eliminating automatic image scaling. Recommended sizes to provide: 16x16, 32x32, 48x48 at minimum, and larger images (64x64, 128x128) if you have them. See also `gtk-window-set-default-icon-list' to set the icon for all windows in your application in one go. Note that transient windows (those who have been set transient for another window using `gtk-window-set-transient-for') will inherit their icon from their transient parent. So there's no need to explicitly set the icon on transient windows. WINDOW a `' LIST list of `' -- Function: gtk-window-set-icon-from-file (self `') (filename `mchars') => (ret `bool') -- Method: set-icon-from-file Sets the icon for WINDOW. Warns on failure if ERR is ``#f''. This function is equivalent to calling `gtk-window-set-icon' with a pixbuf created by loading the image from FILENAME. WINDOW a `' FILENAME location of icon file ERR location to store error, or ``#f''. RET ``#t'' if setting the icon succeeded. Since 2.2 -- Function: gtk-window-set-icon-name (self `') (name `mchars') -- Method: set-icon-name Sets the icon for the window from a named themed icon. See the docs for `' for more details. Note that this has nothing to do with the WM_ICON_NAME property which is mentioned in the ICCCM. WINDOW a `' NAME the name of the themed icon Since 2.6  File: guile-gnome-gtk.info, Node: GtkWindowGroup, Next: GtkAboutDialog, Prev: GtkWindow, Up: Top 6 GtkWindowGroup **************** Limit the effect of grabs 6.1 Overview ============ 6.2 Usage ========= -- Class: Derives from `'. This class defines no direct slots. -- Function: gtk-window-group-new => (ret `') Creates a new `' object. Grabs added with `gtk-grab-add' only affect windows within the same `'. RET a new `'. -- Function: gtk-window-group-add-window (self `') (window `') -- Method: add-window Adds a window to a `'. WINDOW-GROUP a `' WINDOW the `' to add -- Function: gtk-window-group-remove-window (self `') (window `') -- Method: remove-window Removes a window from a `'. WINDOW-GROUP a `' WINDOW the `' to remove  File: guile-gnome-gtk.info, Node: GtkAboutDialog, Next: GtkAssistant, Prev: GtkWindowGroup, Up: Top 7 GtkAboutDialog **************** Display information about an application 7.1 Overview ============ The `' offers a simple way to display information about a program like its logo, name, copyright, website and license. It is also possible to give credits to the authors, documenters, translators and artists who have worked on the program. An about dialog is typically opened when the user selects the `About' option from the `Help' menu. All parts of the dialog are optional. About dialog often contain links and email addresses. `' supports this by offering global hooks, which are called when the user clicks on a link or email address, see `gtk-about-dialog-set-email-hook' and `gtk-about-dialog-set-url-hook'. Email addresses in the authors, documenters and artists properties are recognized by looking for `', URLs are recognized by looking for `http://url', with `url' extending to the next space, tab or line break. To make constructing a `' as convenient as possible, you can use the function `gtk-show-about-dialog' which constructs and shows a dialog and keeps it around so that it can be shown again. 7.2 Usage ========= -- Class: Derives from `'. This class defines the following slots: `program-name' The name of the program. If this is not set, it defaults to g_get_application_name() `version' The version of the program `copyright' Copyright information for the program `comments' Comments about the program `website' The URL for the link to the website of the program `website-label' The label for the link to the website of the program. If this is not set, it defaults to the URL `license' The license of the program `authors' List of authors of the program `documenters' List of people documenting the program `translator-credits' Credits to the translators. This string should be marked as translatable `artists' List of people who have contributed artwork to the program `logo' A logo for the about box. If this is not set, it defaults to gtk_window_get_default_icon_list() `logo-icon-name' A named icon to use as the logo for the about box. `wrap-license' Whether to wrap the license text. -- Function: gtk-about-dialog-new => (ret `') Creates a new `'. RET a newly created `' Since 2.6 -- Function: gtk-about-dialog-get-name (self `') => (ret `mchars') -- Method: get-name Returns the program name displayed in the about dialog. ABOUT a `' RET The program name. The string is owned by the about dialog and must not be modified. Since 2.6 -- Function: gtk-about-dialog-set-name (self `') (name `mchars') -- Method: set-name Sets the name to display in the about dialog. If this is not set, it defaults to `g-get-application-name'. ABOUT a `' NAME the program name Since 2.6 -- Function: gtk-about-dialog-get-version (self `') => (ret `mchars') -- Method: get-version Returns the version string. ABOUT a `' RET The version string. The string is owned by the about dialog and must not be modified. Since 2.6 -- Function: gtk-about-dialog-set-version (self `') (version `mchars') -- Method: set-version Sets the version string to display in the about dialog. ABOUT a `' VERSION the version string Since 2.6 -- Function: gtk-about-dialog-get-copyright (self `') => (ret `mchars') -- Method: get-copyright Returns the copyright string. ABOUT a `' RET The copyright string. The string is owned by the about dialog and must not be modified. Since 2.6 -- Function: gtk-about-dialog-set-copyright (self `') (copyright `mchars') -- Method: set-copyright Sets the copyright string to display in the about dialog. This should be a short string of one or two lines. ABOUT a `' COPYRIGHT the copyright string Since 2.6 -- Function: gtk-about-dialog-get-license (self `') => (ret `mchars') -- Method: get-license Returns the license information. ABOUT a `' RET The license information. The string is owned by the about dialog and must not be modified. Since 2.6 -- Function: gtk-about-dialog-set-license (self `') (license `mchars') -- Method: set-license Sets the license information to be displayed in the secondary license dialog. If LICENSE is ``#f'', the license button is hidden. ABOUT a `' LICENSE the license information or ``#f'' Since 2.6 -- Function: gtk-about-dialog-get-wrap-license (self `') => (ret `bool') -- Method: get-wrap-license Returns whether the license text in ABOUT is automatically wrapped. ABOUT a `' RET ``#t'' if the license text is wrapped Since 2.8 -- Function: gtk-about-dialog-set-wrap-license (self `') (wrap_license `bool') -- Method: set-wrap-license Sets whether the license text in ABOUT is automatically wrapped. ABOUT a `' WRAP-LICENSE whether to wrap the license Since 2.8 -- Function: gtk-about-dialog-get-website (self `') => (ret `mchars') -- Method: get-website Returns the website URL. ABOUT a `' RET The website URL. The string is owned by the about dialog and must not be modified. Since 2.6 -- Function: gtk-about-dialog-set-website (self `') (website `mchars') -- Method: set-website Sets the URL to use for the website link. ABOUT a `' WEBSITE a URL string starting with "http://" Since 2.6 -- Function: gtk-about-dialog-get-website-label (self `') => (ret `mchars') -- Method: get-website-label Returns the label used for the website link. ABOUT a `' RET The label used for the website link. The string is owned by the about dialog and must not be modified. Since 2.6 -- Function: gtk-about-dialog-set-website-label (self `') (website_label `mchars') -- Method: set-website-label Sets the label to be used for the website link. It defaults to the website URL. ABOUT a `' WEBSITE-LABEL the label used for the website link Since 2.6 -- Function: gtk-about-dialog-get-logo (self `') => (ret `') -- Method: get-logo Returns the pixbuf displayed as logo in the about dialog. ABOUT a `' RET the pixbuf displayed as logo. The pixbuf is owned by the about dialog. If you want to keep a reference to it, you have to call `g-object-ref' on it. Since 2.6 -- Function: gtk-about-dialog-set-logo (self `') (logo `') -- Method: set-logo Sets the pixbuf to be displayed as logo in the about dialog. If it is ``#f'', the default window icon set with `gtk-window-set-default-icon' will be used. ABOUT a `' LOGO a `', or ``#f'' Since 2.6 -- Function: gtk-about-dialog-get-logo-icon-name (self `') => (ret `mchars') -- Method: get-logo-icon-name Returns the icon name displayed as logo in the about dialog. ABOUT a `' RET the icon name displayed as logo. The string is owned by the dialog. If you want to keep a reference to it, you have to call `g-strdup' on it. Since 2.6 -- Function: gtk-about-dialog-set-logo-icon-name (self `') (icon_name `mchars') -- Method: set-logo-icon-name Sets the pixbuf to be displayed as logo in the about dialog. If it is ``#f'', the default window icon set with `gtk-window-set-default-icon' will be used. ABOUT a `' ICON-NAME an icon name, or ``#f'' Since 2.6  File: guile-gnome-gtk.info, Node: GtkAssistant, Next: GtkAccelLabel, Prev: GtkAboutDialog, Up: Top 8 GtkAssistant ************** A widget used to guide users through multi-step operations 8.1 Overview ============ A `' is a widget used to represent a generally complex operation splitted in several steps, guiding the user through its pages and controlling the page flow to collect the necessary data. 8.2 Usage ========= -- Class: Derives from `'. This class defines no direct slots. -- Signal on : close The ::close signal is emitted either when the close button of a summary page is clicked, or when the apply button in the last page in the flow (of type GTK_ASSISTANT_PAGE_CONFIRM) is clicked. Since 2.10 -- Signal on : cancel The ::cancel signal is emitted when then the cancel button is clicked. Since 2.10 -- Signal on : prepare (arg0 `') The ::prepared signal is emitted when a new page is set as the assistant's current page, before making the new page visible. A handler for this signal can do any preparation which are necessary before showing PAGE. Since 2.10 -- Signal on : apply The ::apply signal is emitted when the apply button is clicked. The default behavior of the `' is to switch to the page after the current page, unless the current page is the last one. A handler for the ::apply signal should carry out the actions for which the wizard has collected data. If the action takes a long time to complete, you might consider to put a page of type GTK_ASSISTANT_PAGE_PROGRESS after the confirmation page and handle this operation within the ::prepare signal of the progress page. Since 2.10 -- Function: gtk-assistant-new => (ret `') Creates a new `'. RET a newly created `' Since 2.10 -- Function: gtk-assistant-get-current-page (self `') => (ret `int') -- Method: get-current-page Returns the page number of the current page ASSISTANT a `' RET The index (starting from 0) of the current page in the ASSISTANT, if the ASSISTANT has no pages, -1 will be returned Since 2.10 -- Function: gtk-assistant-set-current-page (self `') (page_num `int') -- Method: set-current-page Switches the page to PAGE-NUM. Note that this will only be necessary in custom buttons, as the ASSISTANT flow can be set with `gtk-assistant-set-forward-page-func'. ASSISTANT a `' PAGE-NUM index of the page to switch to, starting from 0. If negative, the last page will be used. If greater than the number of pages in the ASSISTANT, nothing will be done. Since 2.10 -- Function: gtk-assistant-get-n-pages (self `') => (ret `int') -- Method: get-n-pages Returns the number of pages in the ASSISTANT ASSISTANT a `' RET The number of pages in the ASSISTANT. Since 2.10 -- Function: gtk-assistant-get-nth-page (self `') (page_num `int') => (ret `') -- Method: get-nth-page Returns the child widget contained in page number PAGE-NUM. ASSISTANT a `' PAGE-NUM The index of a page in the ASSISTANT, or -1 to get the last page; RET The child widget, or ``#f'' if PAGE-NUM is out of bounds. Since 2.10 -- Function: gtk-assistant-prepend-page (self `') (page `') => (ret `int') -- Method: prepend-page Prepends a page to the ASSISTANT. ASSISTANT a `' PAGE a `' RET the index (starting at 0) of the inserted page Since 2.10 -- Function: gtk-assistant-append-page (self `') (page `') => (ret `int') -- Method: append-page Appends a page to the ASSISTANT. ASSISTANT a `' PAGE a `' RET the index (starting at 0) of the inserted page Since 2.10 -- Function: gtk-assistant-insert-page (self `') (page `') (position `int') => (ret `int') -- Method: insert-page Inserts a page in the ASSISTANT at a given position. ASSISTANT a `' PAGE a `' POSITION the index (starting at 0) at which to insert the page, or -1 to append the page to the ASSISTANT RET the index (starting from 0) of the inserted page Since 2.10 -- Function: gtk-assistant-set-page-type (self `') (page `') (type `') -- Method: set-page-type Sets the page type for PAGE. The page type determines the page behavior in the ASSISTANT. ASSISTANT a `' PAGE a page of ASSISTANT TYPE the new type for PAGE Since 2.10 -- Function: gtk-assistant-get-page-type (self `') (page `') => (ret `') -- Method: get-page-type Gets the page type of PAGE. ASSISTANT a `' PAGE a page of ASSISTANT RET the page type of PAGE. Since 2.10 -- Function: gtk-assistant-set-page-title (self `') (page `') (title `mchars') -- Method: set-page-title Sets a title for PAGE. The title is displayed in the header area of the assistant when PAGE is the current page. ASSISTANT a `' PAGE a page of ASSISTANT TITLE the new title for PAGE Since 2.10 -- Function: gtk-assistant-get-page-title (self `') (page `') => (ret `mchars') -- Method: get-page-title Gets the title for PAGE. ASSISTANT a `' PAGE a page of ASSISTANT RET the title for PAGE. Since 2.10 -- Function: gtk-assistant-set-page-header-image (self `') (page `') (pixbuf `') -- Method: set-page-header-image Sets a header image for PAGE. This image is displayed in the header area of the assistant when PAGE is the current page. ASSISTANT a `' PAGE a page of ASSISTANT PIXBUF the new header image PAGE Since 2.10 -- Function: gtk-assistant-get-page-header-image (self `') (page `') => (ret `') -- Method: get-page-header-image Gets the header image for PAGE. ASSISTANT a `' PAGE a page of ASSISTANT RET the header image for PAGE, or ``#f'' if there's no header image for the page. Since 2.10 -- Function: gtk-assistant-set-page-side-image (self `') (page `') (pixbuf `') -- Method: set-page-side-image Sets a header image for PAGE. This image is displayed in the side area of the assistant when PAGE is the current page. ASSISTANT a `' PAGE a page of ASSISTANT PIXBUF the new header image PAGE Since 2.10 -- Function: gtk-assistant-get-page-side-image (self `') (page `') => (ret `') -- Method: get-page-side-image Gets the header image for PAGE. ASSISTANT a `' PAGE a page of ASSISTANT RET the side image for PAGE, or ``#f'' if there's no side image for the page. Since 2.10 -- Function: gtk-assistant-set-page-complete (self `') (page `') (complete `bool') -- Method: set-page-complete Sets whether PAGE contents are complete. This will make ASSISTANT update the buttons state to be able to continue the task. ASSISTANT a `' PAGE a page of ASSISTANT COMPLETE the completeness status of the page Since 2.10 -- Function: gtk-assistant-get-page-complete (self `') (page `') => (ret `bool') -- Method: get-page-complete Gets whether PAGE is complete.. ASSISTANT a `' PAGE a page of ASSISTANT RET ``#t'' if PAGE is complete. Since 2.10 -- Function: gtk-assistant-add-action-widget (self `') (child `') -- Method: add-action-widget Adds a widget to the action area of a `'. ASSISTANT a `' CHILD a `' Since 2.10 -- Function: gtk-assistant-remove-action-widget (self `') (child `') -- Method: remove-action-widget Removes a widget from the action area of a `'. ASSISTANT a `' CHILD a `' Since 2.10 -- Function: gtk-assistant-update-buttons-state (self `') -- Method: update-buttons-state Forces ASSISTANT to recompute the buttons state. GTK+ automatically takes care of this in most situations, e.g. when the user goes to a different page, or when the visibility or completeness of a page changes. One situation where it can be necessary to call this function is when changing a value on the current page affects the future page flow of the assistant. ASSISTANT a `' Since 2.10  File: guile-gnome-gtk.info, Node: GtkAccelLabel, Next: GtkImage, Prev: GtkAssistant, Up: Top 9 GtkAccelLabel *************** A label which displays an accelerator key on the right of the text 9.1 Overview ============ The `' widget is a subclass of `' that also displays an accelerator key on the right of the label text, e.g. 'Ctl+S'. It is commonly used in menus to show the keyboard short-cuts for commands. The accelerator key to display is not set explicitly. Instead, the `' displays the accelerators which have been added to a particular widget. This widget is set by calling `gtk-accel-label-set-accel-widget'. For example, a `' widget may have an accelerator added to emit the "activate" signal when the 'Ctl+S' key combination is pressed. A `' is created and added to the `', and `gtk-accel-label-set-accel-widget' is called with the `' as the second argument. The `' will now display 'Ctl+S' after its label. Note that creating a `' with `gtk-menu-item-new-with-label' (or one of the similar functions for `' and `') automatically adds a `' to the `' and calls `gtk-accel-label-set-accel-widget' to set it up for you. A `' will only display accelerators which have `GTK_ACCEL_VISIBLE' set (see `'). A `' can display multiple accelerators and even signal names, though it is almost always used to display just one accelerator key. GtkWidget *save_item; GtkAccelGroup *accel_group; /* Create a GtkAccelGroup and add it to the window. */ accel_group = gtk_accel_group_new (); gtk_window_add_accel_group (GTK_WINDOW (window), accel_group); /* Create the menu item using the convenience function. */ save_item = gtk_menu_item_new_with_label ("Save"); gtk_widget_show (save_item); gtk_container_add (GTK_CONTAINER (menu), save_item); /* Now add the accelerator to the GtkMenuItem. Note that since we called gtk_menu_item_new_with_label() to create the GtkMenuItem the GtkAccelLabel is automatically set up to display the GtkMenuItem accelerators. We just need to make sure we use GTK_ACCEL_VISIBLE here. */ gtk_widget_add_accelerator (save_item, "activate", accel_group, GDK_s, GDK_CONTROL_MASK, GTK_ACCEL_VISIBLE); 9.2 Usage ========= -- Class: Derives from `'. This class defines the following slots: `accel-closure' The closure to be monitored for accelerator changes `accel-widget' The widget to be monitored for accelerator changes -- Function: gtk-accel-label-new (string `mchars') => (ret `') Creates a new `'. STRING the label string. Must be non-``#f''. RET a new `'. -- Function: gtk-accel-label-set-accel-closure (self `') (accel_closure `') -- Method: set-accel-closure Sets the closure to be monitored by this accelerator label. The closure must be connected to an accelerator group; see `gtk-accel-group-connect'. ACCEL-LABEL a `' ACCEL-CLOSURE the closure to monitor for accelerator changes. -- Function: gtk-accel-label-get-accel-widget (self `') => (ret `') -- Method: get-accel-widget Fetches the widget monitored by this accelerator label. See `gtk-accel-label-set-accel-widget'. ACCEL-LABEL a `' RET the object monitored by the accelerator label, or ``#f''. -- Function: gtk-accel-label-set-accel-widget (self `') (accel_widget `') -- Method: set-accel-widget Sets the widget to be monitored by this accelerator label. ACCEL-LABEL a `' ACCEL-WIDGET the widget to be monitored. -- Function: gtk-accel-label-get-accel-width (self `') => (ret `unsigned-int') -- Method: get-accel-width Returns the width needed to display the accelerator key(s). This is used by menus to align all of the `' widgets, and shouldn't be needed by applications. ACCEL-LABEL a `'. RET the width needed to display the accelerator key(s). -- Function: gtk-accel-label-refetch (self `') => (ret `bool') -- Method: refetch Recreates the string representing the accelerator keys. This should not be needed since the string is automatically updated whenever accelerators are added or removed from the associated widget. ACCEL-LABEL a `'. RET always returns ``#f''.  File: guile-gnome-gtk.info, Node: GtkImage, Next: GtkLabel, Prev: GtkAccelLabel, Up: Top 10 GtkImage *********** A widget displaying an image 10.1 Overview ============= The `' widget displays an image. Various kinds of object can be displayed as an image; most typically, you would load a `' ("pixel buffer") from a file, and then display that. There's a convenience function to do this, `gtk-image-new-from-file', used as follows: If the file isn't loaded successfully, the image will contain a "broken image" icon similar to that used in many web browsers. If you want to handle errors in loading the file yourself, for example by displaying an error message, then load the image with `gdk-pixbuf-new-from-file', then create the `' with `gtk-image-new-from-pixbuf'. GtkWidget *image; image = gtk_image_new_from_file ("myfile.png"); The image file may contain an animation, if so the `' will display an animation (`') instead of a static image. `' is a subclass of `', which implies that you can align it (center, left, right) and add padding to it, using `' methods. `' is a "no window" widget (has no `' of its own), so by default does not receive events. If you want to receive events on the image, such as button clicks, place the image inside a `', then connect to the event signals on the event box. static gboolean button_press_callback (GtkWidget *event_box, GdkEventButton *event, gpointer data) { g_print ("Event box clicked at coordinates %f,%f\n", event->x, event->y); /* Returning TRUE means we handled the event, so the signal * emission should be stopped (don't call any further * callbacks that may be connected). Return FALSE * to continue invoking callbacks. */ return TRUE; } static GtkWidget* create_image (void) { GtkWidget *image; GtkWidget *event_box; image = gtk_image_new_from_file ("myfile.png"); event_box = gtk_event_box_new (); gtk_container_add (GTK_CONTAINER (event_box), image); g_signal_connect (G_OBJECT (event_box), "button_press_event", G_CALLBACK (button_press_callback), image); return image; } When handling events on the event box, keep in mind that coordinates in the image may be different from event box coordinates due to the alignment and padding settings on the image (see `'). The simplest way to solve this is to set the alignment to 0.0 (left/top), and set the padding to zero. Then the origin of the image will be the same as the origin of the event box. Sometimes an application will want to avoid depending on external data files, such as image files. GTK+ comes with a program to avoid this, called . This program allows you to convert an image into a C variable declaration, which can then be loaded into a `' using `gdk-pixbuf-new-from-inline'. 10.2 Usage ========== -- Class: Derives from `'. This class defines the following slots: `pixbuf' A GdkPixbuf to display `pixmap' A GdkPixmap to display `image' A GdkImage to display `mask' Mask bitmap to use with GdkImage or GdkPixmap `file' Filename to load and display `stock' Stock ID for a stock image to display `icon-set' Icon set to display `icon-size' Symbolic size to use for stock icon, icon set or named icon `pixel-size' Pixel size to use for named icon `pixbuf-animation' GdkPixbufAnimation to display `icon-name' The name of the icon from the icon theme `storage-type' The representation being used for image data -- Function: gtk-image-get-pixbuf (self `') => (ret `') -- Method: get-pixbuf Gets the `' being displayed by the `'. The storage type of the image must be `GTK_IMAGE_EMPTY' or `GTK_IMAGE_PIXBUF' (see `gtk-image-get-storage-type'). The caller of this function does not own a reference to the returned pixbuf. IMAGE a `' RET the displayed pixbuf, or ``#f'' if the image is empty -- Function: gtk-image-get-animation (self `') => (ret `') -- Method: get-animation Gets the `' being displayed by the `'. The storage type of the image must be `GTK_IMAGE_EMPTY' or `GTK_IMAGE_ANIMATION' (see `gtk-image-get-storage-type'). The caller of this function does not own a reference to the returned animation. IMAGE a `' RET the displayed animation, or ``#f'' if the image is empty -- Function: gtk-image-get-storage-type (self `') => (ret `') -- Method: get-storage-type Gets the type of representation being used by the `' to store image data. If the `' has no image data, the return value will be `GTK_IMAGE_EMPTY'. IMAGE a `' RET image representation being used -- Function: gtk-image-new-from-file (filename `mchars') => (ret `') Creates a new `' displaying the file FILENAME. If the file isn't found or can't be loaded, the resulting `' will display a "broken image" icon. This function never returns ``#f'', it always returns a valid `' widget. If the file contains an animation, the image will contain an animation. If you need to detect failures to load the file, use `gdk-pixbuf-new-from-file' to load the file yourself, then create the `' from the pixbuf. (Or for animations, use `gdk-pixbuf-animation-new-from-file'). The storage type (`gtk-image-get-storage-type') of the returned image is not defined, it will be whatever is appropriate for displaying the file. FILENAME a filename RET a new `' -- Function: gtk-image-new-from-icon-set (icon_set `') (size `') => (ret `') Creates a `' displaying an icon set. Sample stock sizes are `', `'. Instead of using this function, usually it's better to create a `', put your icon sets in the icon factory, add the icon factory to the list of default factories with `gtk-icon-factory-add-default', and then use `gtk-image-new-from-stock'. This will allow themes to override the icon you ship with your application. The `' does not assume a reference to the icon set; you still need to unref it if you own references. `' will add its own reference rather than adopting yours. ICON-SET a `' SIZE a stock icon size RET a new `' -- Function: gtk-image-new-from-image (image `') (mask `') => (ret `') Creates a `' widget displaying a IMAGE with a MASK. A `' is a client-side image buffer in the pixel format of the current display. The `' does not assume a reference to the image or mask; you still need to unref them if you own references. `' will add its own reference rather than adopting yours. IMAGE a `', or ``#f'' MASK a `', or ``#f'' RET a new `' -- Function: gtk-image-new-from-pixbuf (pixbuf `') => (ret `') Creates a new `' displaying PIXBUF. The `' does not assume a reference to the pixbuf; you still need to unref it if you own references. `' will add its own reference rather than adopting yours. Note that this function just creates an `' from the pixbuf. The `' created will not react to state changes. Should you want that, you should use `gtk-image-new-from-icon-set'. PIXBUF a `', or ``#f'' RET a new `' -- Function: gtk-image-new-from-pixmap (pixmap `') (mask `') => (ret `') Creates a `' widget displaying PIXMAP with a MASK. A `' is a server-side image buffer in the pixel format of the current display. The `' does not assume a reference to the pixmap or mask; you still need to unref them if you own references. `' will add its own reference rather than adopting yours. PIXMAP a `', or ``#f'' MASK a `', or ``#f'' RET a new `' -- Function: gtk-image-new-from-stock (stock_id `mchars') (size `') => (ret `') Creates a `' displaying a stock icon. Sample stock icon names are `', `'. Sample stock sizes are `', `'. If the stock icon name isn't known, the image will be empty. You can register your own stock icon names, see `gtk-icon-factory-add-default' and `gtk-icon-factory-add'. STOCK-ID a stock icon name SIZE a stock icon size RET a new `' displaying the stock icon -- Function: gtk-image-new-from-animation (animation `') => (ret `') Creates a `' displaying the given animation. The `' does not assume a reference to the animation; you still need to unref it if you own references. `' will add its own reference rather than adopting yours. Note that the animation frames are shown using a timeout with `'. When using animations to indicate busyness, keep in mind that the animation will only be shown if the main loop is not busy with something that has a higher priority. ANIMATION an animation RET a new `' widget -- Function: gtk-image-new-from-icon-name (icon_name `mchars') (size `') => (ret `') Creates a `' displaying an icon from the current icon theme. If the icon name isn't known, a "broken image" icon will be displayed instead. If the current icon theme is changed, the icon will be updated appropriately. ICON-NAME an icon name SIZE a stock icon size RET a new `' displaying the themed icon Since 2.6 -- Function: gtk-image-set-from-file (self `') (filename `mchars') -- Method: set-from-file See `gtk-image-new-from-file' for details. IMAGE a `' FILENAME a filename or ``#f'' -- Function: gtk-image-set-from-icon-set (self `') (icon_set `') (size `') -- Method: set-from-icon-set See `gtk-image-new-from-icon-set' for details. IMAGE a `' ICON-SET a `' SIZE a stock icon size -- Function: gtk-image-set-from-image (self `') (gdk_image `') (mask `') -- Method: set-from-image See `gtk-image-new-from-image' for details. IMAGE a `' GDK-IMAGE a `' or ``#f'' MASK a `' or ``#f'' -- Function: gtk-image-set-from-pixbuf (self `') (pixbuf `') -- Method: set-from-pixbuf See `gtk-image-new-from-pixbuf' for details. IMAGE a `' PIXBUF a `' or ``#f'' -- Function: gtk-image-set-from-pixmap (self `') (pixmap `') (mask `') -- Method: set-from-pixmap See `gtk-image-new-from-pixmap' for details. IMAGE a `' PIXMAP a `' or ``#f'' MASK a `' or ``#f'' -- Function: gtk-image-set-from-stock (self `') (stock_id `mchars') (size `') -- Method: set-from-stock See `gtk-image-new-from-stock' for details. IMAGE a `' STOCK-ID a stock icon name SIZE a stock icon size -- Function: gtk-image-set-from-animation (self `') (animation `') -- Method: set-from-animation Causes the `' to display the given animation (or display nothing, if you set the animation to ``#f''). IMAGE a `' ANIMATION the `' -- Function: gtk-image-set-from-icon-name (self `') (icon_name `mchars') (size `') -- Method: set-from-icon-name See `gtk-image-new-from-icon-name' for details. IMAGE a `' ICON-NAME an icon name SIZE an icon size Since 2.6 -- Function: gtk-image-clear (self `') -- Method: clear Resets the image to be empty. IMAGE a `' Since 2.8 -- Function: gtk-image-new => (ret `') Creates a new empty `' widget. RET a newly created `' widget. -- Function: gtk-image-set-pixel-size (self `') (pixel_size `int') -- Method: set-pixel-size Sets the pixel size to use for named icons. If the pixel size is set to a value != -1, it is used instead of the icon size set by `gtk-image-set-from-icon-name'. IMAGE a `' PIXEL-SIZE the new pixel size Since 2.6 -- Function: gtk-image-get-pixel-size (self `') => (ret `int') -- Method: get-pixel-size Gets the pixel size used for named icons. IMAGE a `' RET the pixel size used for named icons. Since 2.6  File: guile-gnome-gtk.info, Node: GtkLabel, Next: GtkProgressBar, Prev: GtkImage, Up: Top 11 GtkLabel *********** A widget that displays a small to medium amount of text 11.1 Overview ============= The `' widget displays a small amount of text. As the name implies, most labels are used to label another widget such as a `', a `', or a `'. 11.2 Mnemonics ============== Labels may contain "mnemonics". Mnemonics are underlined characters in the label, used for keyboard navigation. Mnemonics are created by providing a string with an underscore before the mnemonic character, such as `"_File"', to the functions `gtk-label-new-with-mnemonic' or `gtk-label-set-text-with-mnemonic'. Mnemonics automatically activate any activatable widget the label is inside, such as a `'; if the label is not inside the mnemonic's target widget, you have to tell the label about the target using `gtk-label-set-mnemonic-widget'. Here's a simple example where the label is inside a button: There's a convenience function to create buttons with a mnemonic label already inside: To create a mnemonic for a widget alongside the label, such as a `', you have to point the label at the entry with `gtk-label-set-mnemonic-widget': /* Pressing Alt+H will activate this button */ button = gtk_button_new (); label = gtk_label_new_with_mnemonic ("_Hello"); gtk_container_add (GTK_CONTAINER (button), label); /* Pressing Alt+H will activate this button */ button = gtk_button_new_with_mnemonic ("_Hello"); /* Pressing Alt+H will focus the entry */ entry = gtk_entry_new (); label = gtk_label_new_with_mnemonic ("_Hello"); gtk_label_set_mnemonic_widget (GTK_LABEL (label), entry); 11.3 Markup (styled text) ========================= To make it easy to format text in a label (changing colors, fonts, etc.), label text can be provided in a simple markup format. Here's how to create a label with a small font: (See complete documentation of available tags in the Pango manual.) label = gtk_label_new (NULL); gtk_label_set_markup (GTK_LABEL (label), "Small text"); The markup passed to `gtk-label-set-markup' must be valid; for example, literal /& characters must be escaped as <, >, and &. If you pass text obtained from the user, file, or a network to `gtk-label-set-markup', you'll want to escape it with `g-markup-escape-text' or `g-markup-printf-escaped'. Markup strings are just a convenient way to set the `' on a label; `gtk-label-set-attributes' may be a simpler way to set attributes in some cases. Be careful though; `' tends to cause internationalization problems, unless you're applying attributes to the entire string (i.e. unless you set the range of each attribute to [0, G_MAXINT)). The reason is that specifying the start_index and end_index for a `' requires knowledge of the exact string being displayed, so translations will cause problems. 11.4 Selectable labels ====================== Labels can be made selectable with `gtk-label-set-selectable'. Selectable labels allow the user to copy the label contents to the clipboard. Only labels that contain useful-to-copy information — such as error messages — should be made selectable. 11.5 Text layout ================ A label can contain any number of paragraphs, but will have performance problems if it contains more than a small number. Paragraphs are separated by newlines or other paragraph separators understood by Pango. Labels can automatically wrap text if you call `gtk-label-set-line-wrap'. `gtk-label-set-justify' sets how the lines in a label align with one another. If you want to set how the label as a whole aligns in its available space, see `gtk-misc-set-alignment'. 11.6 Usage ========== -- Class: Derives from `'. This class defines the following slots: `label' The text of the label `attributes' A list of style attributes to apply to the text of the label `use-markup' The text of the label includes XML markup. See pango_parse_markup() `use-underline' If set, an underline in the text indicates the next character should be used for the mnemonic accelerator key `justify' The alignment of the lines in the text of the label relative to each other. This does NOT affect the alignment of the label within its allocation. See GtkMisc::xalign for that `pattern' A string with _ characters in positions correspond to characters in the text to underline `wrap' If set, wrap lines if the text becomes too wide `wrap-mode' If wrap is set, controls how linewrapping is done `selectable' Whether the label text can be selected with the mouse `mnemonic-keyval' The mnemonic accelerator key for this label `mnemonic-widget' The widget to be activated when the label's mnemonic key is pressed `cursor-position' The current position of the insertion cursor in chars `selection-bound' The position of the opposite end of the selection from the cursor in chars `ellipsize' The preferred place to ellipsize the string, if the label does not have enough room to display the entire string `width-chars' The desired width of the label, in characters `single-line-mode' Whether the label is in single line mode `angle' Angle at which the label is rotated `max-width-chars' The desired maximum width of the label, in characters -- Signal on : move-cursor (arg0 `') (arg1 `') (arg2 `') -- Signal on : copy-clipboard -- Signal on : populate-popup (arg0 `') -- Function: gtk-label-new (str `mchars') => (ret `') Creates a new label with the given text inside it. You can pass ``#f'' to get an empty label widget. STR The text of the label RET the new `' -- Function: gtk-label-set-text (self `') (str `mchars') -- Method: set-text Sets the text within the `' widget. It overwrites any text that was there before. This will also clear any previously set mnemonic accelerators. LABEL a `' STR The text you want to set. -- Function: gtk-label-set-attributes (self `') (attrs `') -- Method: set-attributes Sets a `'; the attributes in the list are applied to the label text. The attributes set with this function will be ignored if the "use_underline" property or the "use_markup" property is ``#t''. LABEL a `' ATTRS a `' -- Function: gtk-label-set-markup (self `') (str `mchars') -- Method: set-markup Parses STR which is marked up with the Pango text markup language, setting the label's text and attribute list based on the parse results. If the STR is external data, you may need to escape it with `g-markup-escape-text' or `g-markup-printf-escaped': char *markup; markup = g_markup_printf_escaped ("%s", str); gtk_label_set_markup (GTK_LABEL (label), markup); g_free (markup); LABEL a `' STR a markup string (see Pango markup format) -- Function: gtk-label-set-markup-with-mnemonic (self `') (str `mchars') -- Method: set-markup-with-mnemonic Parses STR which is marked up with the Pango text markup language, setting the label's text and attribute list based on the parse results. If characters in STR are preceded by an underscore, they are underlined indicating that they represent a keyboard accelerator called a mnemonic. The mnemonic key can be used to activate another widget, chosen automatically, or explicitly using `gtk-label-set-mnemonic-widget'. LABEL a `' STR a markup string (see Pango markup format) -- Function: gtk-label-set-pattern (self `') (pattern `mchars') -- Method: set-pattern The pattern of underlines you want under the existing text within the `' widget. For example if the current text of the label says "FooBarBaz" passing a pattern of "___ ___" will underline "Foo" and "Baz" but not "Bar". LABEL The `' you want to set the pattern to. PATTERN The pattern as described above. -- Function: gtk-label-set-justify (self `') (jtype `') -- Method: set-justify Sets the alignment of the lines in the text of the label relative to each other. `GTK_JUSTIFY_LEFT' is the default value when the widget is first created with `gtk-label-new'. If you instead want to set the alignment of the label as a whole, use `gtk-misc-set-alignment' instead. `gtk-label-set-justify' has no effect on labels containing only a single line. LABEL a `' JTYPE a `' -- Function: gtk-label-set-ellipsize (self `') (mode `') -- Method: set-ellipsize Sets the mode used to ellipsize (add an ellipsis: "...") to the text if there is not enough space to render the entire string. LABEL a `' MODE a `' Since 2.6 -- Function: gtk-label-set-width-chars (self `') (n_chars `int') -- Method: set-width-chars Sets the desired width in characters of LABEL to N-CHARS. LABEL a `' N-CHARS the new desired width, in characters. Since 2.6 -- Function: gtk-label-set-max-width-chars (self `') (n_chars `int') -- Method: set-max-width-chars Sets the desired maximum width in characters of LABEL to N-CHARS. LABEL a `' N-CHARS the new desired maximum width, in characters. Since 2.6 -- Function: gtk-label-set-line-wrap (self `') (wrap `bool') -- Method: set-line-wrap Toggles line wrapping within the `' widget. ``#t'' makes it break lines if text exceeds the widget's size. ``#f'' lets the text get cut off by the edge of the widget if it exceeds the widget size. Note that setting line wrapping to ``#t'' does not make the label wrap at its parent container's width, because GTK+ widgets conceptually can't make their requisition depend on the parent container's size. For a label that wraps at a specific position, set the label's width using `gtk-widget-set-size-request'. LABEL a `' WRAP the setting -- Function: gtk-label-set-line-wrap-mode (self `') (wrap_mode `') -- Method: set-line-wrap-mode If line wrapping is on (see `gtk-label-set-line-wrap') this controls how the line wrapping is done. The default is `PANGO_WRAP_WORD' which means wrap on word boundaries. LABEL a `' WRAP-MODE the line wrapping mode Since 2.10 -- Function: gtk-label-get-layout-offsets (self `') => (x `int') (y `int') -- Method: get-layout-offsets Obtains the coordinates where the label will draw the `' representing the text in the label; useful to convert mouse events into coordinates inside the `', e.g. to take some action if some part of the label is clicked. Of course you will need to create a `' to receive the events, and pack the label inside it, since labels are a `' widget. Remember when using the `' functions you need to convert to and from pixels using `pango-pixels' or `'. LABEL a `' X location to store X offset of layout, or ``#f'' Y location to store Y offset of layout, or ``#f'' -- Function: gtk-label-get-mnemonic-keyval (self `') => (ret `unsigned-int') -- Method: get-mnemonic-keyval If the label has been set so that it has an mnemonic key this function returns the keyval used for the mnemonic accelerator. If there is no mnemonic set up it returns `'. LABEL a `' RET GDK keyval usable for accelerators, or `' -- Function: gtk-label-get-selectable (self `') => (ret `bool') -- Method: get-selectable Gets the value set by `gtk-label-set-selectable'. LABEL a `' RET ``#t'' if the user can copy text from the label -- Function: gtk-label-get-text (self `') => (ret `mchars') -- Method: get-text Fetches the text from a label widget, as displayed on the screen. This does not include any embedded underlines indicating mnemonics or Pango markup. (See `gtk-label-get-label') LABEL a `' RET the text in the label widget. This is the internal string used by the label, and must not be modified. -- Function: gtk-label-new-with-mnemonic (str `mchars') => (ret `') Creates a new `', containing the text in STR. If characters in STR are preceded by an underscore, they are underlined. If you need a literal underscore character in a label, use '__' (two underscores). The first underlined character represents a keyboard accelerator called a mnemonic. The mnemonic key can be used to activate another widget, chosen automatically, or explicitly using `gtk-label-set-mnemonic-widget'. If `gtk-label-set-mnemonic-widget' is not called, then the first activatable ancestor of the `' will be chosen as the mnemonic widget. For instance, if the label is inside a button or menu item, the button or menu item will automatically become the mnemonic widget and be activated by the mnemonic. STR The text of the label, with an underscore in front of the mnemonic character RET the new `' -- Function: gtk-label-select-region (self `') (start_offset `int') (end_offset `int') -- Method: select-region Selects a range of characters in the label, if the label is selectable. See `gtk-label-set-selectable'. If the label is not selectable, this function has no effect. If START-OFFSET or END-OFFSET are -1, then the end of the label will be substituted. LABEL a `' START-OFFSET start offset (in characters not bytes) END-OFFSET end offset (in characters not bytes) -- Function: gtk-label-set-mnemonic-widget (self `') (widget `') -- Method: set-mnemonic-widget If the label has been set so that it has an mnemonic key (using i.e. `gtk-label-set-markup-with-mnemonic', `gtk-label-set-text-with-mnemonic', `gtk-label-new-with-mnemonic' or the "use_underline" property) the label can be associated with a widget that is the target of the mnemonic. When the label is inside a widget (like a `' or a `' tab) it is automatically associated with the correct widget, but sometimes (i.e. when the target is a `' next to the label) you need to set it explicitly using this function. The target widget will be accelerated by emitting "mnemonic_activate" on it. The default handler for this signal will activate the widget if there are no mnemonic collisions and toggle focus between the colliding widgets otherwise. LABEL a `' WIDGET the target `' -- Function: gtk-label-set-selectable (self `') (setting `bool') -- Method: set-selectable Selectable labels allow the user to select text from the label, for copy-and-paste. LABEL a `' SETTING ``#t'' to allow selecting text in the label -- Function: gtk-label-set-text-with-mnemonic (self `') (str `mchars') -- Method: set-text-with-mnemonic Sets the label's text from the string STR. If characters in STR are preceded by an underscore, they are underlined indicating that they represent a keyboard accelerator called a mnemonic. The mnemonic key can be used to activate another widget, chosen automatically, or explicitly using `gtk-label-set-mnemonic-widget'. LABEL a `' STR a string -- Function: gtk-label-get-attributes (self `') => (ret `') -- Method: get-attributes Gets the attribute list that was set on the label using `gtk-label-set-attributes', if any. This function does not reflect attributes that come from the labels markup (see `gtk-label-set-markup'). If you want to get the effective attributes for the label, use pango_layout_get_attribute (gtk_label_get_layout (label)). LABEL a `' RET the attribute list, or ``#f'' if none was set. -- Function: gtk-label-get-justify (self `') => (ret `') -- Method: get-justify Returns the justification of the label. See `gtk-label-set-justify'. LABEL a `' RET `' -- Function: gtk-label-get-ellipsize (self `') => (ret `') -- Method: get-ellipsize Returns the ellipsizing position of the label. See `gtk-label-set-ellipsize'. LABEL a `' RET `' Since 2.6 -- Function: gtk-label-get-width-chars (self `') => (ret `int') -- Method: get-width-chars Retrieves the desired width of LABEL, in characters. See `gtk-label-set-width-chars'. LABEL a `' RET the width of the label in characters. Since 2.6 -- Function: gtk-label-get-max-width-chars (self `') => (ret `int') -- Method: get-max-width-chars Retrieves the desired maximum width of LABEL, in characters. See `gtk-label-set-width-chars'. LABEL a `' RET the maximum width of the label in characters. Since 2.6 -- Function: gtk-label-get-label (self `') => (ret `mchars') -- Method: get-label Fetches the text from a label widget including any embedded underlines indicating mnemonics and Pango markup. (See `gtk-label-get-text'). LABEL a `' RET the text of the label widget. This string is owned by the widget and must not be modified or freed. -- Function: gtk-label-get-layout (self `') => (ret `') -- Method: get-layout Gets the `' used to display the label. The layout is useful to e.g. convert text positions to pixel positions, in combination with `gtk-label-get-layout-offsets'. The returned layout is owned by the label so need not be freed by the caller. LABEL a `' RET the `' for this label -- Function: gtk-label-get-line-wrap (self `') => (ret `bool') -- Method: get-line-wrap Returns whether lines in the label are automatically wrapped. See `gtk-label-set-line-wrap'. LABEL a `' RET ``#t'' if the lines of the label are automatically wrapped. -- Function: gtk-label-get-line-wrap-mode (self `') => (ret `') -- Method: get-line-wrap-mode Returns line wrap mode used by the label. See `gtk-label-set-line-wrap-mode'. LABEL a `' RET ``#t'' if the lines of the label are automatically wrapped. Since 2.10 -- Function: gtk-label-get-mnemonic-widget (self `') => (ret `') -- Method: get-mnemonic-widget Retrieves the target of the mnemonic (keyboard shortcut) of this label. See `gtk-label-set-mnemonic-widget'. LABEL a `' RET the target of the label's mnemonic, or ``#f'' if none has been set and the default algorithm will be used. -- Function: gtk-label-get-selection-bounds (self `') => (ret `bool') (start `int') (end `int') -- Method: get-selection-bounds Gets the selected range of characters in the label, returning ``#t'' if there's a selection. LABEL a `' START return location for start of selection, as a character offset END return location for end of selection, as a character offset RET ``#t'' if selection is non-empty -- Function: gtk-label-get-use-markup (self `') => (ret `bool') -- Method: get-use-markup Returns whether the label's text is interpreted as marked up with the Pango text markup language. See `gtk-label-set-use-markup'. LABEL a `' RET ``#t'' if the label's text will be parsed for markup. -- Function: gtk-label-get-use-underline (self `') => (ret `bool') -- Method: get-use-underline Returns whether an embedded underline in the label indicates a mnemonic. See `gtk-label-set-use-underline'. LABEL a `' RET ``#t'' whether an embedded underline in the label indicates the mnemonic accelerator keys. -- Function: gtk-label-get-single-line-mode (self `') => (ret `bool') -- Method: get-single-line-mode Returns whether the label is in single line mode. LABEL a `' RET ``#t'' when the label is in single line mode. Since 2.6 -- Function: gtk-label-get-angle (self `') => (ret `double') -- Method: get-angle Gets the angle of rotation for the label. See gtk_label_set_angle. LABEL a `' RET the angle of rotation for the label Since 2.6 -- Function: gtk-label-set-label (self `') (str `mchars') -- Method: set-label Sets the text of the label. The label is interpreted as including embedded underlines and/or Pango markup depending on the values of label->use_underline and label->use_markup. LABEL a `' STR the new text to set for the label -- Function: gtk-label-set-use-markup (self `') (setting `bool') -- Method: set-use-markup Sets whether the text of the label contains markup in Pango's text markup language. See `gtk-label-set-markup'. LABEL a `' SETTING ``#t'' if the label's text should be parsed for markup. -- Function: gtk-label-set-use-underline (self `') (setting `bool') -- Method: set-use-underline If true, an underline in the text indicates the next character should be used for the mnemonic accelerator key. LABEL a `' SETTING ``#t'' if underlines in the text indicate mnemonics -- Function: gtk-label-set-single-line-mode (self `') (single_line_mode `bool') -- Method: set-single-line-mode Sets whether the label is in single line mode. LABEL a `' SINGLE-LINE-MODE ``#t'' if the label should be in single line mode Since 2.6 -- Function: gtk-label-set-angle (self `') (angle `double') -- Method: set-angle Sets the angle of rotation for the label. An angle of 90 reads from from bottom to top, an angle of 270, from top to bottom. The angle setting for the label is ignored if the label is selectable, wrapped, or ellipsized. LABEL a `' ANGLE the angle that the baseline of the label makes with the horizontal, in degrees, measured counterclockwise Since 2.6  File: guile-gnome-gtk.info, Node: GtkProgressBar, Next: GtkStatusbar, Prev: GtkLabel, Up: Top 12 GtkProgressBar ***************** A widget which indicates progress visually 12.1 Overview ============= The `' is typically used to display the progress of a long running operation. It provides a visual clue that processing is underway. The `' can be used in two different modes: percentage mode and activity mode. When an application can determine how much work needs to take place (e.g. read a fixed number of bytes from a file) and can monitor its progress, it can use the `' in percentage mode and the user sees a growing bar indicating the percentage of the work that has been completed. In this mode, the application is required to call `gtk-progress-bar-set-fraction' periodically to update the progress bar. When an application has no accurate way of knowing the amount of work to do, it can use the `' in activity mode, which shows activity by a block moving back and forth within the progress area. In this mode, the application is required to call `gtk-progress-bar-pulse' perodically to update the progress bar. There is quite a bit of flexibility provided to control the appearance of the `'. Functions are provided to control the orientation of the bar, optional text can be displayed along with the bar, and the step size used in activity mode can be set. The `'/`' API in GTK 1.2 was bloated, needlessly complex and hard to use properly. Therefore `' has been deprecated completely and the `' API has been reduced to the following 10 functions: `gtk-progress-bar-new', `gtk-progress-bar-pulse', `gtk-progress-bar-set-text', `gtk-progress-bar-set-fraction', `gtk-progress-bar-set-pulse-step', `gtk-progress-bar-set-orientation', `gtk-progress-bar-get-text', `gtk-progress-bar-get-fraction', `gtk-progress-bar-get-pulse-step', `gtk-progress-bar-get-orientation'. These have been grouped at the beginning of this section, followed by a large chunk of deprecated 1.2 compatibility functions. 12.2 Usage ========== -- Class: Derives from `'. This class defines the following slots: `fraction' The fraction of total work that has been completed `pulse-step' The fraction of total progress to move the bouncing block when pulsed `orientation' Orientation and growth direction of the progress bar `text' Text to be displayed in the progress bar `ellipsize' The preferred place to ellipsize the string, if the progress bar does not have enough room to display the entire string, if at all. `adjustment' The GtkAdjustment connected to the progress bar (Deprecated) `bar-style' Specifies the visual style of the bar in percentage mode (Deprecated) `activity-step' The increment used for each iteration in activity mode (Deprecated) `activity-blocks' The number of blocks which can fit in the progress bar area in activity mode (Deprecated) `discrete-blocks' The number of discrete blocks in a progress bar (when shown in the discrete style) -- Function: gtk-progress-bar-new => (ret `') Creates a new `'. RET a `'. -- Function: gtk-progress-bar-pulse (self `') -- Method: pulse Indicates that some progress is made, but you don't know how much. Causes the progress bar to enter "activity mode," where a block bounces back and forth. Each call to `gtk-progress-bar-pulse' causes the block to move by a little bit (the amount of movement per pulse is determined by `gtk-progress-bar-set-pulse-step'). PBAR a `' -- Function: gtk-progress-bar-set-text (self `') (text `mchars') -- Method: set-text Causes the given TEXT to appear superimposed on the progress bar. PBAR a `' TEXT a UTF-8 string, or ``#f'' -- Function: gtk-progress-bar-set-fraction (self `') (fraction `double') -- Method: set-fraction Causes the progress bar to "fill in" the given fraction of the bar. The fraction should be between 0.0 and 1.0, inclusive. PBAR a `' FRACTION fraction of the task that's been completed -- Function: gtk-progress-bar-set-pulse-step (self `') (fraction `double') -- Method: set-pulse-step Sets the fraction of total progress bar length to move the bouncing block for each call to `gtk-progress-bar-pulse'. PBAR a `' FRACTION fraction between 0.0 and 1.0 -- Function: gtk-progress-bar-set-orientation (self `') (orientation `') -- Method: set-orientation Causes the progress bar to switch to a different orientation (left-to-right, right-to-left, top-to-bottom, or bottom-to-top). PBAR a `' ORIENTATION orientation of the progress bar -- Function: gtk-progress-bar-set-ellipsize (self `') (mode `') -- Method: set-ellipsize Sets the mode used to ellipsize (add an ellipsis: "...") the text if there is not enough space to render the entire string. PBAR a `' MODE a `' Since 2.6 -- Function: gtk-progress-bar-get-text (self `') => (ret `mchars') -- Method: get-text Retrieves the text displayed superimposed on the progress bar, if any, otherwise ``#f''. The return value is a reference to the text, not a copy of it, so will become invalid if you change the text in the progress bar. PBAR a `' RET text, or ``#f''; this string is owned by the widget and should not be modified or freed. -- Function: gtk-progress-bar-get-fraction (self `') => (ret `double') -- Method: get-fraction Returns the current fraction of the task that's been completed. PBAR a `' RET a fraction from 0.0 to 1.0 -- Function: gtk-progress-bar-get-pulse-step (self `') => (ret `double') -- Method: get-pulse-step Retrieves the pulse step set with `gtk-progress-bar-set-pulse-step' PBAR a `' RET a fraction from 0.0 to 1.0 -- Function: gtk-progress-bar-get-ellipsize (self `') => (ret `') -- Method: get-ellipsize Returns the ellipsizing position of the progressbar. See `gtk-progress-bar-set-ellipsize'. PBAR a `' RET `' Since 2.6  File: guile-gnome-gtk.info, Node: GtkStatusbar, Next: GtkStatusIcon, Prev: GtkProgressBar, Up: Top 13 GtkStatusbar *************** Report messages of minor importance to the user 13.1 Overview ============= A `' is usually placed along the bottom of an application's main `'. It may provide a regular commentary of the application's status (as is usually the case in a web browser, for example), or may be used to simply output a message when the status changes, (when an upload is complete in an FTP client, for example). It may also have a resize grip (a triangular area in the lower right corner) which can be clicked on to resize the window containing the statusbar. Status bars in Gtk+ maintain a stack of messages. The message at the top of the each bar's stack is the one that will currently be displayed. Any messages added to a statusbar's stack must specify a _context_id_ that is used to uniquely identify the source of a message. This context_id can be generated by `gtk-statusbar-get-context-id', given a message and the statusbar that it will be added to. Note that messages are stored in a stack, and when choosing which message to display, the stack structure is adhered to, regardless of the context identifier of a message. Status bars are created using `gtk-statusbar-new'. Messages are added to the bar's stack with `gtk-statusbar-push'. The message at the top of the stack can be removed using `gtk-statusbar-pop'. A message can be removed from anywhere in the stack if its message_id was recorded at the time it was added. This is done using `gtk-statusbar-remove'. 13.2 Usage ========== -- Class: Derives from `'. This class defines the following slots: `has-resize-grip' Whether the statusbar has a grip for resizing the toplevel -- Signal on : text-pushed (arg0 `') (arg1 `') Is emitted whenever a new message gets pushed onto a statusbar's stack. -- Signal on : text-popped (arg0 `') (arg1 `') Is emitted whenever a new message is popped off a statusbar's stack. -- Function: gtk-statusbar-new => (ret `') Creates a new `' ready for messages. RET the new `'. -- Function: gtk-statusbar-get-context-id (self `') (context_description `mchars') => (ret `unsigned-int') -- Method: get-context-id Returns a new context identifier, given a description of the actual context. STATUSBAR a `'. CONTEXT-DESCRIPTION textual description of what context the new message is being used in. RET an integer id. -- Function: gtk-statusbar-push (self `') (context_id `unsigned-int') (text `mchars') => (ret `unsigned-int') -- Method: push Pushes a new message onto a statusbar's stack. STATUSBAR a `'. CONTEXT-ID the message's context id, as returned by `gtk-statusbar-get-context-id'. TEXT the message to add to the statusbar. RET the message's new message id for use with `gtk-statusbar-remove'. -- Function: gtk-statusbar-pop (self `') (context_id `unsigned-int') -- Method: pop Removes the message at the top of a `''s stack. STATUSBAR a `'. CONTEXT-ID a context identifier. -- Function: gtk-statusbar-remove (self `') (context_id `unsigned-int') (message_id `unsigned-int') -- Method: remove Forces the removal of a message from a statusbar's stack. The exact CONTEXT-ID and MESSAGE-ID must be specified. STATUSBAR a `'. CONTEXT-ID a context identifier. MESSAGE-ID a message identifier, as returned by `gtk-statusbar-push'. -- Function: gtk-statusbar-set-has-resize-grip (self `') (setting `bool') -- Method: set-has-resize-grip Sets whether the statusbar has a resize grip. ``#t'' by default. STATUSBAR a `'. SETTING ``#t'' to have a resize grip. -- Function: gtk-statusbar-get-has-resize-grip (self `') => (ret `bool') -- Method: get-has-resize-grip Returns whether the statusbar has a resize grip. STATUSBAR a `'. RET ``#t'' if the statusbar has a resize grip.  File: guile-gnome-gtk.info, Node: GtkStatusIcon, Next: GtkButton, Prev: GtkStatusbar, Up: Top 14 GtkStatusIcon **************** Display an icon in the system tray 14.1 Overview ============= The "system tray" or notification area is normally used for transient icons that indicate some special state. For example, a system tray icon might appear to tell the user that they have new mail, or have an incoming instant message, or something along those lines. The basic idea is that creating an icon in the notification area is less annoying than popping up a dialog. A `' object can be used to display an icon in a "system tray". The icon can have a tooltip, and the user can interact with it by activating it or popping up a context menu. Critical information should not solely be displayed in a `', since it may not be visible (e.g. when the user doesn't have a notification area on his panel). This can be checked with `gtk-status-icon-is-embedded'. On X11, the implementation follows the freedesktop.org "System Tray" specification (http://www.freedesktop.org/wiki/Standards/systemtray-spec). Implementations of the "tray" side of this specification can be found e.g. in the GNOME and KDE panel applications. Note that a GtkStatusIcon is _not_ a widget, but just a `'. Making it a widget would be impractical, since the system tray on Win32 doesn't allow to embed arbitrary widgets. 14.2 Usage ========== -- Class: Derives from `'. This class defines the following slots: `pixbuf' A GdkPixbuf to display `file' Filename to load and display `stock' Stock ID for a stock image to display `icon-name' The name of the icon from the icon theme `storage-type' The representation being used for image data `size' The size of the icon `screen' The screen where this status icon will be displayed `visible' Whether or not the status icon is visible `orientation' The orientation of the tray `embedded' Whether or not the status icon is embedded `blinking' Whether or not the status icon is blinking -- Signal on : size-changed (arg0 `') => `' Gets emitted when the size available for the image changes, e.g. because the notification area got resized. Since 2.10 -- Signal on : popup-menu (arg0 `') (arg1 `') Gets emitted when the user brings up the context menu of the status icon. Whether status icons can have context menus and how these are activated is platform-dependent. The BUTTON and ACTIVATE-TIMEOUT parameters should be passed as the last to arguments to `gtk-menu-popup'. Since 2.10 -- Signal on : activate Gets emitted when the user activates the status icon. If and how status icons can activated is platform-dependent. Since 2.10 -- Function: gtk-status-icon-new => (ret `') Creates an empty status icon object. RET a new `' Since 2.10 -- Function: gtk-status-icon-new-from-pixbuf (pixbuf `') => (ret `') Creates a status icon displaying PIXBUF. The image will be scaled down to fit in the available space in the notification area, if necessary. PIXBUF a `' RET a new `' Since 2.10 -- Function: gtk-status-icon-new-from-file (filename `mchars') => (ret `') Creates a status icon displaying the file FILENAME. The image will be scaled down to fit in the available space in the notification area, if necessary. FILENAME a filename RET a new `' Since 2.10 -- Function: gtk-status-icon-new-from-stock (stock_id `mchars') => (ret `') Creates a status icon displaying a stock icon. Sample stock icon names are `', `'. You can register your own stock icon names, see `gtk-icon-factory-add-default' and `gtk-icon-factory-add'. STOCK-ID a stock icon id RET a new `' Since 2.10 -- Function: gtk-status-icon-new-from-icon-name (icon_name `mchars') => (ret `') Creates a status icon displaying an icon from the current icon theme. If the current icon theme is changed, the icon will be updated appropriately. ICON-NAME an icon name RET a new `' Since 2.10 -- Function: gtk-status-icon-set-from-pixbuf (self `') (pixbuf `') -- Method: set-from-pixbuf Makes STATUS-ICON display PIXBUF. See `gtk-status-icon-new-from-pixbuf' for details. STATUS-ICON a `' PIXBUF a `' or ``#f'' Since 2.10 -- Function: gtk-status-icon-set-from-file (self `') (filename `mchars') -- Method: set-from-file Makes STATUS-ICON display the file FILENAME. See `gtk-status-icon-new-from-file' for details. STATUS-ICON a `' FILENAME a filename Since 2.10 -- Function: gtk-status-icon-set-from-stock (self `') (stock_id `mchars') -- Method: set-from-stock Makes STATUS-ICON display the stock icon with the id STOCK-ID. See `gtk-status-icon-new-from-stock' for details. STATUS-ICON a `' STOCK-ID a stock icon id Since 2.10 -- Function: gtk-status-icon-set-from-icon-name (self `') (icon_name `mchars') -- Method: set-from-icon-name Makes STATUS-ICON display the icon named ICON-NAME from the current icon theme. See `gtk-status-icon-new-from-icon-name' for details. STATUS-ICON a `' ICON-NAME an icon name Since 2.10 -- Function: gtk-status-icon-get-storage-type (self `') => (ret `') -- Method: get-storage-type Gets the type of representation being used by the `' to store image data. If the `' has no image data, the return value will be `GTK_IMAGE_EMPTY'. STATUS-ICON a `' RET the image representation being used Since 2.10 -- Function: gtk-status-icon-get-pixbuf (self `') => (ret `') -- Method: get-pixbuf Gets the `' being displayed by the `'. The storage type of the status icon must be `GTK_IMAGE_EMPTY' or `GTK_IMAGE_PIXBUF' (see `gtk-status-icon-get-storage-type'). The caller of this function does not own a reference to the returned pixbuf. STATUS-ICON a `' RET the displayed pixbuf, or ``#f'' if the image is empty. Since 2.10 -- Function: gtk-status-icon-get-stock (self `') => (ret `mchars') -- Method: get-stock Gets the id of the stock icon being displayed by the `'. The storage type of the status icon must be `GTK_IMAGE_EMPTY' or `GTK_IMAGE_STOCK' (see `gtk-status-icon-get-storage-type'). The returned string is owned by the `' and should not be freed or modified. STATUS-ICON a `' RET stock id of the displayed stock icon, or ``#f'' if the image is empty. Since 2.10 -- Function: gtk-status-icon-get-icon-name (self `') => (ret `mchars') -- Method: get-icon-name Gets the name of the icon being displayed by the `'. The storage type of the status icon must be `GTK_IMAGE_EMPTY' or `GTK_IMAGE_ICON_NAME' (see `gtk-status-icon-get-storage-type'). The returned string is owned by the `' and should not be freed or modified. STATUS-ICON a `' RET name of the displayed icon, or ``#f'' if the image is empty. Since 2.10 -- Function: gtk-status-icon-get-size (self `') => (ret `int') -- Method: get-size Gets the size in pixels that is available for the image. Stock icons and named icons adapt their size automatically if the size of the notification area changes. For other storage types, the size-changed signal can be used to react to size changes. STATUS-ICON a `' RET the size that is available for the image Since 2.10 -- Function: gtk-status-icon-set-tooltip (self `') (tooltip_text `mchars') -- Method: set-tooltip Sets the tooltip of the status icon. STATUS-ICON a `' TOOLTIP-TEXT the tooltip text, or ``#f'' Since 2.10 -- Function: gtk-status-icon-set-visible (self `') (visible `bool') -- Method: set-visible Shows or hides a status icon. STATUS-ICON a `' VISIBLE ``#t'' to show the status icon, ``#f'' to hide it Since 2.10 -- Function: gtk-status-icon-get-visible (self `') => (ret `bool') -- Method: get-visible Returns whether the status icon is visible or not. Note that being visible does not guarantee that the user can actually see the icon, see also `gtk-status-icon-is-embedded'. STATUS-ICON a `' RET ``#t'' if the status icon is visible Since 2.10 -- Function: gtk-status-icon-set-blinking (self `') (blinking `bool') -- Method: set-blinking Makes the status icon start or stop blinking. Note that blinking user interface elements may be problematic for some users, and thus may be turned off, in which case this setting has no effect. STATUS-ICON a `' BLINKING ``#t'' to turn blinking on, ``#f'' to turn it off Since 2.10 -- Function: gtk-status-icon-get-blinking (self `') => (ret `bool') -- Method: get-blinking Returns whether the icon is blinking, see `gtk-status-icon-set-blinking'. STATUS-ICON a `' RET ``#t'' if the icon is blinking Since 2.10 -- Function: gtk-status-icon-is-embedded (self `') => (ret `bool') -- Method: is-embedded Returns whether the status icon is embedded in a notification area. STATUS-ICON a `' RET ``#t'' if the status icon is embedded in a notification area. Since 2.10  File: guile-gnome-gtk.info, Node: GtkButton, Next: GtkCheckButton, Prev: GtkStatusIcon, Up: Top 15 GtkButton ************ A widget that creates a signal when clicked on 15.1 Overview ============= The `' widget is generally used to attach a function to that is called when the button is pressed. The various signals and how to use them are outlined below. The `' widget can hold any valid child widget. That is it can hold most any other standard `'. The most commonly used child is the `'. 15.2 Usage ========== -- Class: Derives from `'. This class defines the following slots: `label' Text of the label widget inside the button, if the button contains a label widget `image' Child widget to appear next to the button text `relief' The border relief style `use-underline' If set, an underline in the text indicates the next character should be used for the mnemonic accelerator key `use-stock' If set, the label is used to pick a stock item instead of being displayed `focus-on-click' Whether the button grabs focus when it is clicked with the mouse `xalign' Horizontal position of child in available space. 0.0 is left aligned, 1.0 is right aligned `yalign' Vertical position of child in available space. 0.0 is top aligned, 1.0 is bottom aligned `image-position' The position of the image relative to the text -- Signal on : activate The "activate" signal on GtkButton is an action signal and emitting it causes the button to animate press then release. Applications should never connect to this signal, but use the "clicked" signal. -- Signal on : pressed Emitted when the button is pressed. DEPRECATED: Use the GtkWidget::button-press-event signal. -- Signal on : released Emitted when the button is released. DEPRECATED: Use the GtkWidget::button-release-event signal. -- Signal on : clicked Emitted when the button has been activated (pressed and released). -- Signal on : enter Emitted when the pointer enters the button. DEPRECATED: Use the GtkWidget::enter-notify-event signal. -- Signal on : leave Emitted when the pointer leaves the button. DEPRECATED: Use the GtkWidget::leave-notify-event signal. -- Function: gtk-button-new => (ret `') Creates a new `' widget. To add a child widget to the button, use `gtk-container-add'. RET The newly created `' widget. -- Function: gtk-button-new-with-label (label `mchars') => (ret `') Creates a `' widget with a `' child containing the given text. LABEL The text you want the `' to hold. RET The newly created `' widget. -- Function: gtk-button-new-with-mnemonic (label `mchars') => (ret `') Creates a new `' containing a label. If characters in LABEL are preceded by an underscore, they are underlined. If you need a literal underscore character in a label, use '__' (two underscores). The first underlined character represents a keyboard accelerator called a mnemonic. Pressing Alt and that key activates the button. LABEL The text of the button, with an underscore in front of the mnemonic character RET a new `' -- Function: gtk-button-new-from-stock (stock_id `mchars') => (ret `') Creates a new `' containing the image and text from a stock item. Some stock ids have preprocessor macros like `' and `'. If STOCK-ID is unknown, then it will be treated as a mnemonic label (as for `gtk-button-new-with-mnemonic'). STOCK-ID the name of the stock item RET a new `' -- Function: gtk-button-pressed (self `') -- Method: pressed Emits a `' signal to the given `'. BUTTON The `' you want to send the signal to. -- Function: gtk-button-released (self `') -- Method: released Emits a `' signal to the given `'. BUTTON The `' you want to send the signal to. -- Function: gtk-button-clicked (self `') -- Method: clicked Emits a `' signal to the given `'. BUTTON The `' you want to send the signal to. -- Function: gtk-button-enter (self `') -- Method: enter Emits a `' signal to the given `'. BUTTON The `' you want to send the signal to. -- Function: gtk-button-leave (self `') -- Method: leave Emits a `' signal to the given `'. BUTTON The `' you want to send the signal to. -- Function: gtk-button-set-relief (self `') (newstyle `') -- Method: set-relief Sets the relief style of the edges of the given `' widget. Three styles exist, GTK_RELIEF_NORMAL, GTK_RELIEF_HALF, GTK_RELIEF_NONE. The default style is, as one can guess, GTK_RELIEF_NORMAL. BUTTON The `' you want to set relief styles of. NEWSTYLE The GtkReliefStyle as described above. -- Function: gtk-button-get-relief (self `') => (ret `') -- Method: get-relief Returns the current relief style of the given `'. BUTTON The `' you want the `' from. RET The current `' -- Function: gtk-button-get-label (self `') => (ret `mchars') -- Method: get-label Fetches the text from the label of the button, as set by `gtk-button-set-label'. If the label text has not been set the return value will be ``#f''. This will be the case if you create an empty button with `gtk-button-new' to use as a container. BUTTON a `' RET The text of the label widget. This string is owned by the widget and must not be modified or freed. -- Function: gtk-button-set-label (self `') (label `mchars') -- Method: set-label Sets the text of the label of the button to STR. This text is also used to select the stock item if `gtk-button-set-use-stock' is used. This will also clear any previously set labels. BUTTON a `' LABEL a string -- Function: gtk-button-get-use-stock (self `') => (ret `bool') -- Method: get-use-stock Returns whether the button label is a stock item. BUTTON a `' RET ``#t'' if the button label is used to select a stock item instead of being used directly as the label text. -- Function: gtk-button-set-use-stock (self `') (use_stock `bool') -- Method: set-use-stock If true, the label set on the button is used as a stock id to select the stock item for the button. BUTTON a `' USE-STOCK ``#t'' if the button should use a stock item -- Function: gtk-button-get-use-underline (self `') => (ret `bool') -- Method: get-use-underline Returns whether an embedded underline in the button label indicates a mnemonic. See `gtk-button-set-use-underline'. BUTTON a `' RET ``#t'' if an embedded underline in the button label indicates the mnemonic accelerator keys. -- Function: gtk-button-set-use-underline (self `') (use_underline `bool') -- Method: set-use-underline If true, an underline in the text of the button label indicates the next character should be used for the mnemonic accelerator key. BUTTON a `' USE-UNDERLINE ``#t'' if underlines in the text indicate mnemonics -- Function: gtk-button-set-focus-on-click (self `') (focus_on_click `bool') -- Method: set-focus-on-click Sets whether the button will grab focus when it is clicked with the mouse. Making mouse clicks not grab focus is useful in places like toolbars where you don't want the keyboard focus removed from the main area of the application. BUTTON a `' FOCUS-ON-CLICK whether the button grabs focus when clicked with the mouse Since 2.4 -- Function: gtk-button-get-focus-on-click (self `') => (ret `bool') -- Method: get-focus-on-click Returns whether the button grabs focus when it is clicked with the mouse. See `gtk-button-set-focus-on-click'. BUTTON a `' RET ``#t'' if the button grabs focus when it is clicked with the mouse. Since 2.4 -- Function: gtk-button-set-alignment (self `') (xalign `float') (yalign `float') -- Method: set-alignment Sets the alignment of the child. This property has no effect unless the child is a `' or a `'. BUTTON a `' XALIGN the horizontal position of the child, 0.0 is left aligned, 1.0 is right aligned YALIGN the vertical position of the child, 0.0 is top aligned, 1.0 is bottom aligned Since 2.4 -- Function: gtk-button-get-alignment (self `') => (xalign `float') (yalign `float') -- Method: get-alignment Gets the alignment of the child in the button. BUTTON a `' XALIGN return location for horizontal alignment YALIGN return location for vertical alignment Since 2.4 -- Function: gtk-button-set-image (self `') (image `') -- Method: set-image Set the image of BUTTON to the given widget. Note that it depends on the gtk-button-images setting whether the image will be displayed or not, you don't have to call `gtk-widget-show' on IMAGE yourself. BUTTON a `' IMAGE a widget to set as the image for the button Since 2.6 -- Function: gtk-button-get-image (self `') => (ret `') -- Method: get-image Gets the widget that is currenty set as the image of BUTTON. This may have been explicitly set by `gtk-button-set-image' or constructed by `gtk-button-new-from-stock'. BUTTON a `' RET a `' or ``#f'' in case there is no image Since 2.6 -- Function: gtk-button-set-image-position (self `') (position `') -- Method: set-image-position Sets the position of the image relative to the text inside the button. BUTTON a `' POSITION the position Since 2.10 -- Function: gtk-button-get-image-position (self `') => (ret `') -- Method: get-image-position Gets the position of the image relative to the text inside the button. BUTTON a `' RET the position Since 2.10  File: guile-gnome-gtk.info, Node: GtkCheckButton, Next: GtkRadioButton, Prev: GtkButton, Up: Top 16 GtkCheckButton ***************** Create widgets with a discrete toggle button 16.1 Overview ============= A `' places a discrete `' next to a widget, (usually a `'). See the section on `' widgets for more information about toggle/check buttons. The important signal ('toggled') is also inherited from `'. 16.2 Usage ========== -- Class: Derives from `'. This class defines no direct slots. -- Function: gtk-check-button-new => (ret `') Creates a new `'. RET a `'. -- Function: gtk-check-button-new-with-label (label `mchars') => (ret `') Creates a new `' with a `' to the right of it. LABEL the text for the check button. RET a `'. -- Function: gtk-check-button-new-with-mnemonic (label `mchars') => (ret `') Creates a new `' containing a label. The label will be created using `gtk-label-new-with-mnemonic', so underscores in LABEL indicate the mnemonic for the check button. LABEL The text of the button, with an underscore in front of the mnemonic character RET a new `'  File: guile-gnome-gtk.info, Node: GtkRadioButton, Next: GtkToggleButton, Prev: GtkCheckButton, Up: Top 17 GtkRadioButton ***************** A choice from multiple check buttons 17.1 Overview ============= A single radio button performs the same basic function as a `', as its position in the object hierarchy reflects. It is only when multiple radio buttons are grouped together that they become a different user interface component in their own right. Every radio button is a member of some group of radio buttons. When one is selected, all other radio buttons in the same group are deselected. A `' is one way of giving the user a choice from many options. Radio button widgets are created with `gtk-radio-button-new', passing NULL as the argument if this is the first radio button in a group. In subsequent calls, the group you wish to add this button to should be passed as an argument. Optionally, `gtk-radio-button-new-with-label' can be used if you want a text label on the radio button. Alternatively, when adding widgets to an existing group of radio buttons, use `gtk-radio-button-new-from-widget' with a `' that already has a group assigned to it. The convenience function `gtk-radio-button-new-with-label-from-widget' is also provided. To retrieve the group a `' is assigned to, use `gtk-radio-button-get-group'. To remove a `' from one group and make it part of a new one, use `gtk-radio-button-set-group'. The group list does not need to be freed, as each `' will remove itself and its list item when it is destroyed. void create_radio_buttons (void) { GtkWidget *window, *radio1, *radio2, *box, *entry; window = gtk_window_new (GTK_WINDOW_TOPLEVEL); box = gtk_vbox_new (TRUE, 2); /* Create a radio button with a GtkEntry widget */ radio1 = gtk_radio_button_new (NULL); entry = gtk_entry_new (); gtk_container_add (GTK_CONTAINER (radio1), entry); /* Create a radio button with a label */ radio2 = gtk_radio_button_new_with_label_from_widget (GTK_RADIO_BUTTON (radio1), "I'm the second radio button."); /* Pack them into a box, then show all the widgets */ gtk_box_pack_start (GTK_BOX (box), radio1, TRUE, TRUE, 2); gtk_box_pack_start (GTK_BOX (box), radio2, TRUE, TRUE, 2); gtk_container_add (GTK_CONTAINER (window), box); gtk_widget_show_all (window); return; } When an unselected button in the group is clicked the clicked button receives the "toggled" signal, as does the previously selected button. Inside the "toggled" handler, `gtk-toggle-button-get-active' can be used to determine if the button has been selected or deselected. 17.2 Usage ========== -- Class: Derives from `'. This class defines the following slots: `group' The radio button whose group this widget belongs to. -- Signal on : group-changed Emitted when the group of radio buttons that a radio button belongs to changes. This is emitted when a radio button switches from being alone to being part of a group of 2 or more buttons, or vice-versa, and when a buttton is moved from one group of 2 or more buttons to a different one, but not when the composition of the group that a button belongs to changes. Since 2.4 -- Function: gtk-radio-button-new (group `') => (ret `') Creates a new `'. To be of any practical value, a widget should then be packed into the radio button. GROUP an existing radio button group, or ``#f'' if you are creating a new group. RET a new radio button. -- Function: gtk-radio-button-new-from-widget (group `') => (ret `') Creates a new `', adding it to the same group as GROUP. As with `gtk-radio-button-new', a widget should be packed into the radio button. GROUP an existing `'. RET a new radio button. -- Function: gtk-radio-button-new-with-label (group `') (label `mchars') => (ret `') Creates a new `' with a text label. GROUP an existing radio button group, or ``#f'' if you are creating a new group. LABEL the text label to display next to the radio button. RET a new radio button. -- Function: gtk-radio-button-new-with-mnemonic (group `') (label `mchars') => (ret `') Creates a new `' containing a label, adding it to the same group as GROUP. The label will be created using `gtk-label-new-with-mnemonic', so underscores in LABEL indicate the mnemonic for the button. GROUP the radio button group LABEL the text of the button, with an underscore in front of the mnemonic character RET a new `' -- Function: gtk-radio-button-set-group (self `') (group `') -- Method: set-group Sets a `''s group. It should be noted that this does not change the layout of your interface in any way, so if you are changing the group, it is likely you will need to re-arrange the user interface to reflect these changes. RADIO-BUTTON a `'. GROUP an existing radio button group, such as one returned from `gtk-radio-button-get-group'. -- Function: gtk-radio-button-get-group (self `') => (ret `') -- Method: get-group Retrieves the group assigned to a radio button. RADIO-BUTTON a `'. RET a linked list containing all the radio buttons in the same group as RADIO-BUTTON.  File: guile-gnome-gtk.info, Node: GtkToggleButton, Next: GtkLinkButton, Prev: GtkRadioButton, Up: Top 18 GtkToggleButton ****************** Create buttons which retain their state 18.1 Overview ============= A `' is a `' which will remain 'pressed-in' when clicked. Clicking again will cause the toggle button to return to its normal state. A toggle button is created by calling either `gtk-toggle-button-new' or `gtk-toggle-button-new-with-label'. If using the former, it is advisable to pack a widget, (such as a `' and/or a `'), into the toggle button's container. (See `' for more information). The state of a `' can be set specifically using `gtk-toggle-button-set-active', and retrieved using `gtk-toggle-button-get-active'. To simply switch the state of a toggle button, use gtk_toggle_button_toggled. void make_toggles (void) { GtkWidget *dialog, *toggle1, *toggle2; dialog = gtk_dialog_new (); toggle1 = gtk_toggle_button_new_with_label ("Hi, i'm a toggle button."); /* Makes this toggle button invisible */ gtk_toggle_button_set_mode (GTK_TOGGLE_BUTTON (toggle1), TRUE); g_signal_connect (toggle1, "toggled", G_CALLBACK (output_state), NULL); gtk_box_pack_start (GTK_BOX (GTK_DIALOG (dialog)->action_area), toggle1, FALSE, FALSE, 2); toggle2 = gtk_toggle_button_new_with_label ("Hi, i'm another toggle button."); gtk_toggle_button_set_mode (GTK_TOGGLE_BUTTON (toggle2), FALSE); g_signal_connect (toggle2, "toggled", G_CALLBACK (output_state), NULL); gtk_box_pack_start (GTK_BOX (GTK_DIALOG (dialog)->action_area), toggle2, FALSE, FALSE, 2); gtk_widget_show_all (dialog); } 18.2 Usage ========== -- Class: Derives from `'. This class defines the following slots: `active' If the toggle button should be pressed in or not `inconsistent' If the toggle button is in an "in between" state `draw-indicator' If the toggle part of the button is displayed -- Signal on : toggled Should be connected if you wish to perform an action whenever the `''s state is changed. -- Function: gtk-toggle-button-new => (ret `') Creates a new toggle button. A widget should be packed into the button, as in `gtk-button-new'. RET a new toggle button. -- Function: gtk-toggle-button-new-with-label (label `mchars') => (ret `') Creates a new toggle button with a text label. LABEL a string containing the message to be placed in the toggle button. RET a new toggle button. -- Function: gtk-toggle-button-new-with-mnemonic (label `mchars') => (ret `') Creates a new `' containing a label. The label will be created using `gtk-label-new-with-mnemonic', so underscores in LABEL indicate the mnemonic for the button. LABEL the text of the button, with an underscore in front of the mnemonic character RET a new `' -- Function: gtk-toggle-button-set-mode (self `') (draw_indicator `bool') -- Method: set-mode Sets whether the button is displayed as a separate indicator and label. You can call this function on a checkbutton or a radiobutton with DRAW-INDICATOR = ``#f'' to make the button look like a normal button This function only affects instances of classes like `' and `' that derive from `', not instances of `' itself. TOGGLE-BUTTON a `' DRAW-INDICATOR if ``#t'', draw the button as a separate indicator and label; if ``#f'', draw the button like a normal button -- Function: gtk-toggle-button-get-mode (self `') => (ret `bool') -- Method: get-mode Retrieves whether the button is displayed as a separate indicator and label. See `gtk-toggle-button-set-mode'. TOGGLE-BUTTON a `' RET ``#t'' if the togglebutton is drawn as a separate indicator and label. -- Function: gtk-toggle-button-toggled (self `') -- Method: toggled Emits the toggled signal on the `'. There is no good reason for an application ever to call this function. TOGGLE-BUTTON a `'. -- Function: gtk-toggle-button-get-active (self `') => (ret `bool') -- Method: get-active Queries a `' and returns its current state. Returns ``#t'' if the toggle button is pressed in and ``#f'' if it is raised. TOGGLE-BUTTON a `'. RET a `' value. -- Function: gtk-toggle-button-set-active (self `') (is_active `bool') -- Method: set-active Sets the status of the toggle button. Set to ``#t'' if you want the GtkToggleButton to be 'pressed in', and ``#f'' to raise it. This action causes the toggled signal to be emitted. TOGGLE-BUTTON a `'. IS-ACTIVE ``#t'' or ``#f''. -- Function: gtk-toggle-button-get-inconsistent (self `') => (ret `bool') -- Method: get-inconsistent Gets the value set by `gtk-toggle-button-set-inconsistent'. TOGGLE-BUTTON a `' RET ``#t'' if the button is displayed as inconsistent, ``#f'' otherwise -- Function: gtk-toggle-button-set-inconsistent (self `') (setting `bool') -- Method: set-inconsistent If the user has selected a range of elements (such as some text or spreadsheet cells) that are affected by a toggle button, and the current values in that range are inconsistent, you may want to display the toggle in an "in between" state. This function turns on "in between" display. Normally you would turn off the inconsistent state again if the user toggles the toggle button. This has to be done manually, `gtk-toggle-button-set-inconsistent' only affects visual appearance, it doesn't affect the semantics of the button. TOGGLE-BUTTON a `' SETTING ``#t'' if state is inconsistent  File: guile-gnome-gtk.info, Node: GtkLinkButton, Next: GtkEntry, Prev: GtkToggleButton, Up: Top 19 GtkLinkButton **************** Create buttons bound to a URL 19.1 Overview ============= A `' is a `' with a hyperlink, similar to the one used by web browsers, which triggers an action when clicked. It is useful to show quick links to resources. A link button is created by calling either `gtk-link-button-new' or `gtk-link-button-new-with-label'. If using the former, the URI you pass to the constructor is used as a label for the widget. The URI bound to a `' can be set specifically using `gtk-link-button-set-uri', and retrieved using `gtk-link-button-get-uri'. `' offers a global hook, which is called when the used clicks on it: see `gtk-link-button-set-uri-hook'. `' was added in GTK+ 2.10. 19.2 Usage ========== -- Class: Derives from `'. This class defines the following slots: `uri' The URI bound to this button -- Function: gtk-link-button-new (uri `mchars') => (ret `') Creates a new `' with the URI as its text. URI a valid URI RET a new link button widget. Since 2.10 -- Function: gtk-link-button-new-with-label (uri `mchars') (label `mchars') => (ret `') Creates a new `' containing a label. URI a valid URI LABEL the text of the button RET a new link button widget. Since 2.10 -- Function: gtk-link-button-get-uri (self `') => (ret `mchars') -- Method: get-uri Retrieves the URI set using `gtk-link-button-set-uri'. LINK-BUTTON a `' RET a valid URI. The returned string is owned by the link button and should not be modified or freed. Since 2.10 -- Function: gtk-link-button-set-uri (self `') (uri `mchars') -- Method: set-uri Sets URI as the URI where the `' points. LINK-BUTTON a `' URI a valid URI Since 2.10  File: guile-gnome-gtk.info, Node: GtkEntry, Next: GtkEntryCompletion, Prev: GtkLinkButton, Up: Top 20 GtkEntry *********** A single line text entry field 20.1 Overview ============= The `' widget is a single line text entry widget. A fairly large set of key bindings are supported by default. If the entered text is longer than the allocation of the widget, the widget will scroll so that the cursor position is visible. 20.2 Usage ========== -- Class: Derives from `', `', `'. This class defines the following slots: `cursor-position' The current position of the insertion cursor in chars `selection-bound' The position of the opposite end of the selection from the cursor in chars `editable' Whether the entry contents can be edited `max-length' Maximum number of characters for this entry. Zero if no maximum `visibility' FALSE displays the "invisible char" instead of the actual text (password mode) `has-frame' FALSE removes outside bevel from entry `inner-border' Border between text and frame. Overrides the inner-border style property `invisible-char' The character to use when masking entry contents (in "password mode") `activates-default' Whether to activate the default widget (such as the default button in a dialog) when Enter is pressed `width-chars' Number of characters to leave space for in the entry `scroll-offset' Number of pixels of the entry scrolled off the screen to the left `text' The contents of the entry `xalign' The horizontal alignment, from 0 (left) to 1 (right). Reversed for RTL layouts. `truncate-multiline' Whether to truncate multiline pastes to one line. `shadow-type' Which kind of shadow to draw around the entry when has-frame is set -- Signal on : move-cursor (arg0 `') (arg1 `') (arg2 `') -- Signal on : copy-clipboard -- Signal on : populate-popup (arg0 `') -- Signal on : activate -- Signal on : insert-at-cursor (arg0 `') -- Signal on : delete-from-cursor (arg0 `') (arg1 `') -- Signal on : backspace -- Signal on : cut-clipboard -- Signal on : paste-clipboard -- Signal on : toggle-overwrite -- Function: gtk-entry-set-text (self `') (text `mchars') -- Method: set-text Sets the text in the widget to the given value, replacing the current contents. ENTRY a `'. TEXT the new text. -- Function: gtk-entry-get-text (self `') => (ret `mchars') -- Method: get-text Retrieves the contents of the entry widget. See also `gtk-editable-get-chars'. ENTRY a `' RET a pointer to the contents of the widget as a string. This string points to internally allocated storage in the widget and must not be freed, modified or stored. -- Function: gtk-entry-set-visibility (self `') (visible `bool') -- Method: set-visibility Sets whether the contents of the entry are visible or not. When visibility is set to ``#f'', characters are displayed as the invisible char, and will also appear that way when the text in the entry widget is copied elsewhere. The default invisible char is the asterisk '*', but it can be changed with `gtk-entry-set-invisible-char'. ENTRY a `'. VISIBLE ``#t'' if the contents of the entry are displayed as plaintext. -- Function: gtk-entry-set-invisible-char (self `') (ch `unsigned-int32') -- Method: set-invisible-char Sets the character to use in place of the actual text when `gtk-entry-set-visibility' has been called to set text visibility to ``#f''. i.e. this is the character used in "password mode" to show the user how many characters have been typed. The default invisible char is an asterisk ('*'). If you set the invisible char to 0, then the user will get no feedback at all; there will be no text on the screen as they type. ENTRY a `' CH a Unicode character -- Function: gtk-entry-set-max-length (self `') (max `int') -- Method: set-max-length Sets the maximum allowed length of the contents of the widget. If the current contents are longer than the given length, then they will be truncated to fit. ENTRY a `'. MAX the maximum length of the entry, or 0 for no maximum. (other than the maximum length of entries.) The value passed in will be clamped to the range 0-65536. -- Function: gtk-entry-get-activates-default (self `') => (ret `bool') -- Method: get-activates-default Retrieves the value set by `gtk-entry-set-activates-default'. ENTRY a `' RET ``#t'' if the entry will activate the default widget -- Function: gtk-entry-get-has-frame (self `') => (ret `bool') -- Method: get-has-frame Gets the value set by `gtk-entry-set-has-frame'. ENTRY a `' RET whether the entry has a beveled frame -- Function: gtk-entry-get-inner-border (self `') => (ret `') -- Method: get-inner-border This function returns the entry's inner-border property. See `gtk-entry-set-inner-border' for more information. ENTRY a `' RET the entry's `', or ``#f'' if none was set. Since 2.10 -- Function: gtk-entry-get-width-chars (self `') => (ret `int') -- Method: get-width-chars Gets the value set by `gtk-entry-set-width-chars'. ENTRY a `' RET number of chars to request space for, or negative if unset -- Function: gtk-entry-set-activates-default (self `') (setting `bool') -- Method: set-activates-default If SETTING is ``#t'', pressing Enter in the ENTRY will activate the default widget for the window containing the entry. This usually means that the dialog box containing the entry will be closed, since the default widget is usually one of the dialog buttons. (For experts: if SETTING is ``#t'', the entry calls `gtk-window-activate-default' on the window containing the entry, in the default handler for the "activate" signal.) ENTRY a `' SETTING ``#t'' to activate window's default widget on Enter keypress -- Function: gtk-entry-set-has-frame (self `') (setting `bool') -- Method: set-has-frame Sets whether the entry has a beveled frame around it. ENTRY a `' SETTING new value -- Function: gtk-entry-set-inner-border (self `') (border `') -- Method: set-inner-border Sets `entry''s inner-border property to `border', or clears it if ``#f'' is passed. The inner-border is the area around the entry's text, but inside its frame. If set, this property overrides the inner-border style property. Overriding the style-provided border is useful when you want to do in-place editing of some text in a canvas or list widget, where pixel-exact positioning of the entry is important. ENTRY a `' BORDER a `', or ``#f'' Since 2.10 -- Function: gtk-entry-set-width-chars (self `') (n_chars `int') -- Method: set-width-chars Changes the size request of the entry to be about the right size for N-CHARS characters. Note that it changes the size _request_, the size can still be affected by how you pack the widget into containers. If N-CHARS is -1, the size reverts to the default entry size. ENTRY a `' N-CHARS width in chars -- Function: gtk-entry-get-invisible-char (self `') => (ret `unsigned-int32') -- Method: get-invisible-char Retrieves the character displayed in place of the real characters for entries with visisbility set to false. See `gtk-entry-set-invisible-char'. ENTRY a `' RET the current invisible char, or 0, if the entry does not show invisible text at all. -- Function: gtk-entry-set-alignment (self `') (xalign `float') -- Method: set-alignment Sets the alignment for the contents of the entry. This controls the horizontal positioning of the contents when the displayed text is shorter than the width of the entry. ENTRY a `' XALIGN The horizontal alignment, from 0 (left) to 1 (right). Reversed for RTL layouts Since 2.4 -- Function: gtk-entry-get-alignment (self `') => (ret `float') -- Method: get-alignment Gets the value set by `gtk-entry-set-alignment'. ENTRY a `' RET the alignment Since 2.4 -- Function: gtk-entry-get-layout (self `') => (ret `') -- Method: get-layout Gets the `' used to display the entry. The layout is useful to e.g. convert text positions to pixel positions, in combination with `gtk-entry-get-layout-offsets'. The returned layout is owned by the entry and must not be modified or freed by the caller. Keep in mind that the layout text may contain a preedit string, so `gtk-entry-layout-index-to-text-index' and `gtk-entry-text-index-to-layout-index' are needed to convert byte indices in the layout to byte indices in the entry contents. ENTRY a `' RET the `' for this entry -- Function: gtk-entry-get-layout-offsets (self `') => (x `int') (y `int') -- Method: get-layout-offsets Obtains the position of the `' used to render text in the entry, in widget coordinates. Useful if you want to line up the text in an entry with some other text, e.g. when using the entry to implement editable cells in a sheet widget. Also useful to convert mouse events into coordinates inside the `', e.g. to take some action if some part of the entry text is clicked. Note that as the user scrolls around in the entry the offsets will change; you'll need to connect to the "notify::scroll-offset" signal to track this. Remember when using the `' functions you need to convert to and from pixels using `pango-pixels' or `'. Keep in mind that the layout text may contain a preedit string, so `gtk-entry-layout-index-to-text-index' and `gtk-entry-text-index-to-layout-index' are needed to convert byte indices in the layout to byte indices in the entry contents. ENTRY a `' X location to store X offset of layout, or ``#f'' Y location to store Y offset of layout, or ``#f'' -- Function: gtk-entry-get-max-length (self `') => (ret `int') -- Method: get-max-length Retrieves the maximum allowed length of the text in ENTRY. See `gtk-entry-set-max-length'. ENTRY a `' RET the maximum allowed number of characters in `', or 0 if there is no maximum. -- Function: gtk-entry-get-visibility (self `') => (ret `bool') -- Method: get-visibility Retrieves whether the text in ENTRY is visible. See `gtk-entry-set-visibility'. ENTRY a `' RET ``#t'' if the text is currently visible -- Function: gtk-entry-set-completion (self `') (completion `') -- Method: set-completion Sets COMPLETION to be the auxiliary completion object to use with ENTRY. All further configuration of the completion mechanism is done on COMPLETION using the `' API. Completion is disabled if COMPLETION is set to ``#f''. ENTRY A `'. COMPLETION The `' or ``#f''. Since 2.4 -- Function: gtk-entry-get-completion (self `') => (ret `') -- Method: get-completion Returns the auxiliary completion object currently in use by ENTRY. ENTRY A `'. RET The auxiliary completion object currently in use by ENTRY. Since 2.4  File: guile-gnome-gtk.info, Node: GtkEntryCompletion, Next: GtkHScale, Prev: GtkEntry, Up: Top 21 GtkEntryCompletion ********************* Completion functionality for GtkEntry 21.1 Overview ============= `' is an auxiliary object to be used in conjunction with `' to provide the completion functionality. It implements the `' interface, to allow the user to add extra cells to the `' with completion matches. "Completion functionality" means that when the user modifies the text in the entry, `' checks which rows in the model match the current content of the entry, and displays a list of matches. By default, the matching is done by comparing the entry text case-insensitively against the text column of the model (see `gtk-entry-completion-set-text-column'), but this can be overridden with a custom match function (see `gtk-entry-completion-set-match-func'). When the user selects a completion, the content of the entry is updated. By default, the content of the entry is replaced by the text column of the model, but this can be overridden by connecting to the ::match-selected signal and updating the entry in the signal handler. Note that you should return ``#t'' from the signal handler to suppress the default behaviour. To add completion functionality to an entry, use `gtk-entry-set-completion'. In addition to regular completion matches, which will be inserted into the entry when they are selected, `' also allows to display "actions" in the popup window. Their appearance is similar to menuitems, to differentiate them clearly from completion strings. When an action is selected, the ::action-activated signal is emitted. 21.2 Usage ========== -- Class: Derives from `', `', `'. This class defines the following slots: `model' The model to find matches in `minimum-key-length' Minimum length of the search key in order to look up matches `text-column' The column of the model containing the strings. `inline-completion' Whether the common prefix should be inserted automatically `popup-completion' Whether the completions should be shown in a popup window `popup-set-width' If TRUE, the popup window will have the same size as the entry `popup-single-match' If TRUE, the popup window will appear for a single match. `inline-selection' Your description here -- Signal on : insert-prefix (arg0 `') => `' Gets emitted when the inline autocompletion is triggered. The default behaviour is to make the entry display the whole prefix and select the newly inserted part. Applications may connect to this signal in order to insert only a smaller part of the PREFIX into the entry - e.g. the entry used in the `' inserts only the part of the prefix up to the next '/'. Since 2.6 -- Signal on : match-selected (arg0 `') (arg1 `') => `' Gets emitted when a match from the list is selected. The default behaviour is to replace the contents of the entry with the contents of the text column in the row pointed to by ITER. Since 2.4 -- Signal on : cursor-on-match (arg0 `') (arg1 `') => `' undocumented -- Signal on : action-activated (arg0 `') Gets emitted when an action is activated. Since 2.4 -- Function: gtk-entry-completion-new => (ret `') Creates a new `' object. RET A newly created `' object. Since 2.4 -- Function: gtk-entry-completion-get-entry (self `') => (ret `') -- Method: get-entry Gets the entry COMPLETION has been attached to. COMPLETION A `'. RET The entry COMPLETION has been attached to. Since 2.4 -- Function: gtk-entry-completion-set-model (self `') (model `') -- Method: set-model Sets the model for a `'. If COMPLETION already has a model set, it will remove it before setting the new model. If model is ``#f'', then it will unset the model. COMPLETION A `'. MODEL The `'. Since 2.4 -- Function: gtk-entry-completion-get-model (self `') => (ret `') -- Method: get-model Returns the model the `' is using as data source. Returns ``#f'' if the model is unset. COMPLETION A `'. RET A `', or ``#f'' if none is currently being used. Since 2.4 -- Function: gtk-entry-completion-complete (self `') -- Method: complete Requests a completion operation, or in other words a refiltering of the current list with completions, using the current key. The completion list view will be updated accordingly. COMPLETION A `'. Since 2.4 -- Function: gtk-entry-completion-insert-prefix (self `') -- Method: insert-prefix Requests a prefix insertion. COMPLETION a `' Since 2.6 -- Function: gtk-entry-completion-delete-action (self `') (index `int') -- Method: delete-action Deletes the action at INDEX from COMPLETION's action list. COMPLETION A `'. INDEX The index of the item to Delete. Since 2.4  File: guile-gnome-gtk.info, Node: GtkHScale, Next: GtkVScale, Prev: GtkEntryCompletion, Up: Top 22 GtkHScale ************ A horizontal slider widget for selecting a value from a range 22.1 Overview ============= The `' widget is used to allow the user to select a value using a horizontal slider. To create one, use `gtk-hscale-new-with-range'. The position to show the current value, and the number of decimal places shown can be set using the parent `' class's functions. 22.2 Usage ========== -- Class: Derives from `'. This class defines no direct slots. -- Function: gtk-hscale-new (adjustment `') => (ret `') Creates a new `'. ADJUSTMENT the `' which sets the range of the scale. RET a new `'. -- Function: gtk-hscale-new-with-range (min `double') (max `double') (step `double') => (ret `') Creates a new horizontal scale widget that lets the user input a number between MIN and MAX (including MIN and MAX) with the increment STEP. STEP must be nonzero; it's the distance the slider moves when using the arrow keys to adjust the scale value. Note that the way in which the precision is derived works best if STEP is a power of ten. If the resulting precision is not suitable for your needs, use `gtk-scale-set-digits' to correct it. MIN minimum value MAX maximum value STEP step increment (tick size) used with keyboard shortcuts RET a new `'  File: guile-gnome-gtk.info, Node: GtkVScale, Next: GtkSpinButton, Prev: GtkHScale, Up: Top 23 GtkVScale ************ A vertical slider widget for selecting a value from a range 23.1 Overview ============= The `' widget is used to allow the user to select a value using a vertical slider. To create one, use `gtk-hscale-new-with-range'. The position to show the current value, and the number of decimal places shown can be set using the parent `' class's functions. 23.2 Usage ========== -- Class: Derives from `'. This class defines no direct slots. -- Function: gtk-vscale-new (adjustment `') => (ret `') Creates a new `'. ADJUSTMENT the `' which sets the range of the scale. RET a new `'. -- Function: gtk-vscale-new-with-range (min `double') (max `double') (step `double') => (ret `') Creates a new vertical scale widget that lets the user input a number between MIN and MAX (including MIN and MAX) with the increment STEP. STEP must be nonzero; it's the distance the slider moves when using the arrow keys to adjust the scale value. Note that the way in which the precision is derived works best if STEP is a power of ten. If the resulting precision is not suitable for your needs, use `gtk-scale-set-digits' to correct it. MIN minimum value MAX maximum value STEP step increment (tick size) used with keyboard shortcuts RET a new `'  File: guile-gnome-gtk.info, Node: GtkSpinButton, Next: GtkEditable, Prev: GtkVScale, Up: Top 24 GtkSpinButton **************** Retrieve an integer or floating-point number from the user 24.1 Overview ============= A `' is an ideal way to allow the user to set the value of some attribute. Rather than having to directly type a number into a `', `' allows the user to click on one of two arrows to increment or decrement the displayed value. A value can still be typed in, with the bonus that it can be checked to ensure it is in a given range. The main properties of a `' are through a `'. See the `' section for more details about an adjustment's properties. /* Provides a function to retrieve an integer value from a GtkSpinButton * and creates a spin button to model percentage values. */ gint grab_int_value (GtkSpinButton *a_spinner, gpointer user_data) { return gtk_spin_button_get_value_as_int (a_spinner); } void create_integer_spin_button (void) { GtkWidget *window, *spinner; GtkAdjustment *spinner_adj; spinner_adj = (GtkAdjustment *) gtk_adjustment_new (50.0, 0.0, 100.0, 1.0, 5.0, 5.0); window = gtk_window_new (GTK_WINDOW_TOPLEVEL); gtk_container_set_border_width (GTK_CONTAINER (window), 5); /* creates the spinner, with no decimal places */ spinner = gtk_spin_button_new (spinner_adj, 1.0, 0); gtk_container_add (GTK_CONTAINER (window), spinner); gtk_widget_show_all (window); return; } /* Provides a function to retrieve a floating point value from a * GtkSpinButton, and creates a high precision spin button. */ gfloat grab_int_value (GtkSpinButton *a_spinner, gpointer user_data) { return gtk_spin_button_get_value (a_spinner); } void create_floating_spin_button (void) { GtkWidget *window, *spinner; GtkAdjustment *spinner_adj; spinner_adj = (GtkAdjustment *) gtk_adjustment_new (2.500, 0.0, 5.0, 0.001, 0.1, 0.1); window = gtk_window_new (GTK_WINDOW_TOPLEVEL); gtk_container_set_border_width (GTK_CONTAINER (window), 5); /* creates the spinner, with three decimal places */ spinner = gtk_spin_button_new (spinner_adj, 0.001, 3); gtk_container_add (GTK_CONTAINER (window), spinner); gtk_widget_show_all (window); return; } 24.2 Usage ========== -- Class: Derives from `'. This class defines the following slots: `adjustment' The adjustment that holds the value of the spinbutton `climb-rate' The acceleration rate when you hold down a button `digits' The number of decimal places to display `snap-to-ticks' Whether erroneous values are automatically changed to a spin button's nearest step increment `numeric' Whether non-numeric characters should be ignored `wrap' Whether a spin button should wrap upon reaching its limits `update-policy' Whether the spin button should update always, or only when the value is legal `value' Reads the current value, or sets a new value -- Signal on : value-changed -- Signal on : change-value (arg0 `') -- Signal on : input (arg0 `') => `' -- Signal on : output => `' -- Signal on : wrapped The wrapped signal is emitted right after the spinbutton wraps from its maximum to minimum value or vice-versa. Since 2.10 -- Function: gtk-spin-button-configure (self `') (adjustment `') (climb_rate `double') (digits `unsigned-int') -- Method: configure Changes the properties of an existing spin button. The adjustment, climb rate, and number of decimal places are all changed accordingly, after this function call. SPIN-BUTTON a `'. ADJUSTMENT a `'. CLIMB-RATE the new climb rate. DIGITS the number of decimal places to display in the spin button. -- Function: gtk-spin-button-new (adjustment `') (climb_rate `double') (digits `unsigned-int') => (ret `') Creates a new `'. ADJUSTMENT the `' object that this spin button should use. CLIMB-RATE specifies how much the spin button changes when an arrow is clicked on. DIGITS the number of decimal places to display. RET The new spin button as a `'. -- Function: gtk-spin-button-new-with-range (min `double') (max `double') (step `double') => (ret `') This is a convenience constructor that allows creation of a numeric `' without manually creating an adjustment. The value is initially set to the minimum value and a page increment of 10 * STEP is the default. The precision of the spin button is equivalent to the precision of STEP. Note that the way in which the precision is derived works best if STEP is a power of ten. If the resulting precision is not suitable for your needs, use `gtk-spin-button-set-digits' to correct it. MIN Minimum allowable value MAX Maximum allowable value STEP Increment added or subtracted by spinning the widget RET The new spin button as a `'. -- Function: gtk-spin-button-set-adjustment (self `') (adjustment `') -- Method: set-adjustment Replaces the `' associated with SPIN-BUTTON. SPIN-BUTTON a `' ADJUSTMENT a `' to replace the existing adjustment -- Function: gtk-spin-button-get-adjustment (self `') => (ret `') -- Method: get-adjustment Get the adjustment associated with a `' SPIN-BUTTON a `' RET the `' of SPIN-BUTTON -- Function: gtk-spin-button-set-digits (self `') (digits `unsigned-int') -- Method: set-digits Set the precision to be displayed by SPIN-BUTTON. Up to 20 digit precision is allowed. SPIN-BUTTON a `' DIGITS the number of digits after the decimal point to be displayed for the spin button's value -- Function: gtk-spin-button-set-increments (self `') (step `double') (page `double') -- Method: set-increments Sets the step and page increments for spin_button. This affects how quickly the value changes when the spin button's arrows are activated. SPIN-BUTTON a `' STEP increment applied for a button 1 press. PAGE increment applied for a button 2 press. -- Function: gtk-spin-button-set-range (self `') (min `double') (max `double') -- Method: set-range Sets the minimum and maximum allowable values for SPIN-BUTTON SPIN-BUTTON a `' MIN minimum allowable value MAX maximum allowable value -- Function: gtk-spin-button-get-value-as-int (self `') => (ret `int') -- Method: get-value-as-int Get the value SPIN-BUTTON represented as an integer. SPIN-BUTTON a `' RET the value of SPIN-BUTTON -- Function: gtk-spin-button-set-value (self `') (value `double') -- Method: set-value Set the value of SPIN-BUTTON. SPIN-BUTTON a `' VALUE the new value -- Function: gtk-spin-button-set-update-policy (self `') (policy `') -- Method: set-update-policy Sets the update behavior of a spin button. This determines whether the spin button is always updated or only when a valid value is set. SPIN-BUTTON a `' POLICY a `' value -- Function: gtk-spin-button-set-numeric (self `') (numeric `bool') -- Method: set-numeric Sets the flag that determines if non-numeric text can be typed into the spin button. SPIN-BUTTON a `' NUMERIC flag indicating if only numeric entry is allowed. -- Function: gtk-spin-button-spin (self `') (direction `') (increment `double') -- Method: spin Increment or decrement a spin button's value in a specified direction by a specified amount. SPIN-BUTTON a `' DIRECTION a `' indicating the direction to spin. INCREMENT step increment to apply in the specified direction. -- Function: gtk-spin-button-set-wrap (self `') (wrap `bool') -- Method: set-wrap Sets the flag that determines if a spin button value wraps around to the opposite limit when the upper or lower limit of the range is exceeded. SPIN-BUTTON a `' WRAP a flag indicating if wrapping behavior is performed. -- Function: gtk-spin-button-set-snap-to-ticks (self `') (snap_to_ticks `bool') -- Method: set-snap-to-ticks Sets the policy as to whether values are corrected to the nearest step increment when a spin button is activated after providing an invalid value. SPIN-BUTTON a `' SNAP-TO-TICKS a flag indicating if invalid values should be corrected. -- Function: gtk-spin-button-update (self `') -- Method: update Manually force an update of the spin button. SPIN-BUTTON a `' -- Function: gtk-spin-button-get-digits (self `') => (ret `unsigned-int') -- Method: get-digits Fetches the precision of SPIN-BUTTON. See `gtk-spin-button-set-digits'. SPIN-BUTTON a `' RET the current precision -- Function: gtk-spin-button-get-increments (self `') => (step `double') (page `double') -- Method: get-increments Gets the current step and page the increments used by SPIN-BUTTON. See `gtk-spin-button-set-increments'. SPIN-BUTTON a `' STEP location to store step increment, or ``#f'' PAGE location to store page increment, or ``#f'' -- Function: gtk-spin-button-get-numeric (self `') => (ret `bool') -- Method: get-numeric Returns whether non-numeric text can be typed into the spin button. See `gtk-spin-button-set-numeric'. SPIN-BUTTON a `' RET ``#t'' if only numeric text can be entered -- Function: gtk-spin-button-get-range (self `') => (min `double') (max `double') -- Method: get-range Gets the range allowed for SPIN-BUTTON. See `gtk-spin-button-set-range'. SPIN-BUTTON a `' MIN location to store minimum allowed value, or ``#f'' MAX location to store maximum allowed value, or ``#f'' -- Function: gtk-spin-button-get-snap-to-ticks (self `') => (ret `bool') -- Method: get-snap-to-ticks Returns whether the values are corrected to the nearest step. See `gtk-spin-button-set-snap-to-ticks'. SPIN-BUTTON a `' RET ``#t'' if values are snapped to the nearest step. -- Function: gtk-spin-button-get-value (self `') => (ret `double') -- Method: get-value Get the value in the SPIN-BUTTON. SPIN-BUTTON a `' RET the value of SPIN-BUTTON -- Function: gtk-spin-button-get-wrap (self `') => (ret `bool') -- Method: get-wrap Returns whether the spin button's value wraps around to the opposite limit when the upper or lower limit of the range is exceeded. See `gtk-spin-button-set-wrap'. SPIN-BUTTON a `' RET ``#t'' if the spin button wraps around  File: guile-gnome-gtk.info, Node: GtkEditable, Next: GtkTextIter, Prev: GtkSpinButton, Up: Top 25 GtkEditable ************** Interface for text-editing widgets 25.1 Overview ============= The `' interface is an interface which should be implemented by text editing widgets, such as `' and `'. It contains functions for generically manipulating an editable widget, a large number of action signals used for key bindings, and several signals that an application can connect to to modify the behavior of a widget. As an example of the latter usage, by connecting the following handler to "insert_text", an application can convert all entry into a widget into uppercase. #include void insert_text_handler (GtkEditable *editable, const gchar *text, gint length, gint *position, gpointer data) { int i; gchar *result = g_utf8_strup (text, length); g_signal_handlers_block_by_func (editable, (gpointer) insert_text_handler, data); gtk_editable_insert_text (editable, result, length, position); g_signal_handlers_unblock_by_func (editable, (gpointer) insert_text_handler, data); g_signal_stop_emission_by_name (editable, "insert_text"); g_free (result); } 25.2 Usage ========== -- Class: Derives from `'. This class defines no direct slots. -- Signal on : changed Indicates that the user has changed the contents of the widget. -- Signal on : insert-text (arg0 `') (arg1 `') (arg2 `') This signal is emitted when text is inserted into the widget by the user. The default handler for this signal will normally be responsible for inserting the text, so by connecting to this signal and then stopping the signal with `gtk-signal-emit-stop', it is possible to modify the inserted text, or prevent it from being inserted entirely. -- Signal on : delete-text (arg0 `') (arg1 `') This signal is emitted when text is deleted from the widget by the user. The default handler for this signal will normally be responsible for inserting the text, so by connecting to this signal and then stopping the signal with `gtk-signal-emit-stop', it is possible to modify the inserted text, or prevent it from being inserted entirely. The START-POS and END-POS parameters are interpreted as for `gtk-editable-delete-text' -- Function: gtk-editable-select-region (self `') (start `int') (end `int') -- Method: select-region Selects a region of text. The characters that are selected are those characters at positions from START-POS up to, but not including END-POS. If END-POS is negative, then the the characters selected will be those characters from START-POS to the end of the text. EDITABLE a `' widget. START the starting position. END the end position. -- Function: gtk-editable-get-selection-bounds (self `') => (ret `bool') (start `int') (end `int') -- Method: get-selection-bounds Gets the current selection bounds, if there is a selection. EDITABLE a `' widget. START location to store the starting position, or ``#f''. END location to store the end position, or ``#f''. RET ``#t'' if there is a selection. -- Function: gtk-editable-insert-text (self `') (new_text `mchars') (position `int') => (ret `int') -- Method: insert-text Inserts text at a given position. EDITABLE a `' widget. NEW-TEXT the text to insert. NEW-TEXT-LENGTH the length of the text to insert, in bytes POSITION an inout parameter. The caller initializes it to the position at which to insert the text. After the call it points at the position after the newly inserted text. -- Function: gtk-editable-delete-text (self `') (start_pos `int') (end_pos `int') -- Method: delete-text Deletes a sequence of characters. The characters that are deleted are those characters at positions from START-POS up to, but not including END-POS. If END-POS is negative, then the the characters deleted will be those characters from START-POS to the end of the text. EDITABLE a `' widget. START-POS the starting position. END-POS the end position. -- Function: gtk-editable-get-chars (self `') (start_pos `int') (end_pos `int') => (ret `mchars') -- Method: get-chars Retrieves a sequence of characters. The characters that are retrieved are those characters at positions from START-POS up to, but not including END-POS. If END-POS is negative, then the the characters retrieved will be those characters from START-POS to the end of the text. EDITABLE a `' widget. START-POS the starting position. END-POS the end position. RET the characters in the indicated region. The result must be freed with `g-free' when the application is finished with it. -- Function: gtk-editable-cut-clipboard (self `') -- Method: cut-clipboard Causes the characters in the current selection to be copied to the clipboard and then deleted from the widget. EDITABLE a `' widget. -- Function: gtk-editable-copy-clipboard (self `') -- Method: copy-clipboard Causes the characters in the current selection to be copied to the clipboard. EDITABLE a `' widget. -- Function: gtk-editable-paste-clipboard (self `') -- Method: paste-clipboard Causes the contents of the clipboard to be pasted into the given widget at the current cursor position. EDITABLE a `' widget. -- Function: gtk-editable-delete-selection (self `') -- Method: delete-selection Deletes the current contents of the widgets selection and disclaims the selection. EDITABLE a `' widget. -- Function: gtk-editable-set-position (self `') (position `int') -- Method: set-position Sets the cursor position. EDITABLE a `' widget. POSITION the position of the cursor. The cursor is displayed before the character with the given (base 0) index in the widget. The value must be less than or equal to the number of characters in the widget. A value of -1 indicates that the position should be set after the last character in the entry. Note that this position is in characters, not in bytes. -- Function: gtk-editable-get-position (self `') => (ret `int') -- Method: get-position Retrieves the current cursor position. EDITABLE a `' widget. RET the position of the cursor. The cursor is displayed before the character with the given (base 0) index in the widget. The value will be less than or equal to the number of characters in the widget. Note that this position is in characters, not in bytes. -- Function: gtk-editable-set-editable (self `') (is_editable `bool') -- Method: set-editable Determines if the user can edit the text in the editable widget or not. EDITABLE a `' widget. IS-EDITABLE ``#t'' if the user is allowed to edit the text in the widget. -- Function: gtk-editable-get-editable (self `') => (ret `bool') -- Method: get-editable Retrieves whether EDITABLE is editable. See `gtk-editable-set-editable'. EDITABLE a `' RET ``#t'' if EDITABLE is editable.  File: guile-gnome-gtk.info, Node: GtkTextIter, Next: GtkTextMark, Prev: GtkEditable, Up: Top 26 GtkTextIter ************** Text buffer iterator 26.1 Overview ============= You may wish to begin by reading the text widget conceptual overview which gives an overview of all the objects and data types related to the text widget and how they work together. 26.2 Usage ========== -- Class: Derives from `'. This class defines no direct slots. -- Function: gtk-text-iter-get-buffer (self `') => (ret `') Returns the `' this iterator is associated with. ITER an iterator RET the buffer -- Function: gtk-text-iter-copy (self `') => (ret `') Creates a dynamically-allocated copy of an iterator. This function is not useful in applications, because iterators can be copied with a simple assignment (`GtkTextIter i = j;'). The function is used by language bindings. ITER an iterator RET a copy of the ITER, free with `gtk-text-iter-free' -- Function: gtk-text-iter-get-offset (self `') => (ret `int') Returns the character offset of an iterator. Each character in a `' has an offset, starting with 0 for the first character in the buffer. Use `gtk-text-buffer-get-iter-at-offset' to convert an offset back into an iterator. ITER an iterator RET a character offset -- Function: gtk-text-iter-get-line (self `') => (ret `int') Returns the line number containing the iterator. Lines in a `' are numbered beginning with 0 for the first line in the buffer. ITER an iterator RET a line number -- Function: gtk-text-iter-get-line-offset (self `') => (ret `int') Returns the character offset of the iterator, counting from the start of a newline-terminated line. The first character on the line has offset 0. ITER an iterator RET offset from start of line -- Function: gtk-text-iter-get-line-index (self `') => (ret `int') Returns the byte index of the iterator, counting from the start of a newline-terminated line. Remember that `' encodes text in UTF-8, and that characters can require a variable number of bytes to represent. ITER an iterator RET distance from start of line, in bytes -- Function: gtk-text-iter-get-char (self `') => (ret `unsigned-int32') Returns the Unicode character at this iterator. (Equivalent to operator* on a C++ iterator.) If the element at this iterator is a non-character element, such as an image embedded in the buffer, the Unicode "unknown" character 0xFFFC is returned. If invoked on the end iterator, zero is returned; zero is not a valid Unicode character. So you can write a loop which ends when `gtk-text-iter-get-char' returns 0. ITER an iterator RET a Unicode character, or 0 if ITER is not dereferenceable -- Function: gtk-text-iter-get-slice (self `') (end `') => (ret `mchars') Returns the text in the given range. A "slice" is an array of characters encoded in UTF-8 format, including the Unicode "unknown" character 0xFFFC for iterable non-character elements in the buffer, such as images. Because images are encoded in the slice, byte and character offsets in the returned array will correspond to byte offsets in the text buffer. Note that 0xFFFC can occur in normal text as well, so it is not a reliable indicator that a pixbuf or widget is in the buffer. START iterator at start of a range END iterator at end of a range RET slice of text from the buffer -- Function: gtk-text-iter-get-text (self `') (end `') => (ret `mchars') Returns _text_ in the given range. If the range contains non-text elements such as images, the character and byte offsets in the returned string will not correspond to character and byte offsets in the buffer. If you want offsets to correspond, see `gtk-text-iter-get-slice'. START iterator at start of a range END iterator at end of a range RET array of characters from the buffer -- Function: gtk-text-iter-get-visible-slice (self `') (end `') => (ret `mchars') Like `gtk-text-iter-get-slice', but invisible text is not included. Invisible text is usually invisible because a `' with the "invisible" attribute turned on has been applied to it. START iterator at start of range END iterator at end of range RET slice of text from the buffer -- Function: gtk-text-iter-get-visible-text (self `') (end `') => (ret `mchars') Like `gtk-text-iter-get-text', but invisible text is not included. Invisible text is usually invisible because a `' with the "invisible" attribute turned on has been applied to it. START iterator at start of range END iterator at end of range RET string containing visible text in the range -- Function: gtk-text-iter-get-pixbuf (self `') => (ret `') If the element at ITER is a pixbuf, the pixbuf is returned (with no new reference count added). Otherwise, ``#f'' is returned. ITER an iterator RET the pixbuf at ITER -- Function: gtk-text-iter-get-marks (self `') => (ret `gslist-of') Returns a list of all `' at this location. Because marks are not iterable (they don't take up any "space" in the buffer, they are just marks in between iterable locations), multiple marks can exist in the same place. The returned list is not in any meaningful order. ITER an iterator RET list of `' -- Function: gtk-text-iter-get-toggled-tags (self `') (toggled_on `bool') => (ret `gslist-of') Returns a list of `' that are toggled on or off at this point. (If TOGGLED-ON is ``#t'', the list contains tags that are toggled on.) If a tag is toggled on at ITER, then some non-empty range of characters following ITER has that tag applied to it. If a tag is toggled off, then some non-empty range following ITER does _not_ have the tag applied to it. ITER an iterator TOGGLED-ON ``#t'' to get toggled-on tags RET tags toggled at this point -- Function: gtk-text-iter-get-child-anchor (self `') => (ret `') If the location at ITER contains a child anchor, the anchor is returned (with no new reference count added). Otherwise, ``#f'' is returned. ITER an iterator RET the anchor at ITER -- Function: gtk-text-iter-begins-tag (self `') (tag `') => (ret `bool') Returns ``#t'' if TAG is toggled on at exactly this point. If TAG is ``#f'', returns ``#t'' if any tag is toggled on at this point. Note that the `gtk-text-iter-begins-tag' returns ``#t'' if ITER is the _start_ of the tagged range; `gtk-text-iter-has-tag' tells you whether an iterator is _within_ a tagged range. ITER an iterator TAG a `', or ``#f'' RET whether ITER is the start of a range tagged with TAG -- Function: gtk-text-iter-ends-tag (self `') (tag `') => (ret `bool') Returns ``#t'' if TAG is toggled off at exactly this point. If TAG is ``#f'', returns ``#t'' if any tag is toggled off at this point. Note that the `gtk-text-iter-ends-tag' returns ``#t'' if ITER is the _end_ of the tagged range; `gtk-text-iter-has-tag' tells you whether an iterator is _within_ a tagged range. ITER an iterator TAG a `', or ``#f'' RET whether ITER is the end of a range tagged with TAG -- Function: gtk-text-iter-toggles-tag (self `') (tag `') => (ret `bool') This is equivalent to (`gtk-text-iter-begins-tag' || `gtk-text-iter-ends-tag'), i.e. it tells you whether a range with TAG applied to it begins _or_ ends at ITER. ITER an iterator TAG a `', or ``#f'' RET whether TAG is toggled on or off at ITER -- Function: gtk-text-iter-has-tag (self `') (tag `') => (ret `bool') Returns ``#t'' if ITER is within a range tagged with TAG. ITER an iterator TAG a `' RET whether ITER is tagged with TAG -- Function: gtk-text-iter-get-tags (self `') => (ret `gslist-of') Returns a list of tags that apply to ITER, in ascending order of priority (highest-priority tags are last). The `' in the list don't have a reference added, but you have to free the list itself. ITER a `' RET list of `' -- Function: gtk-text-iter-editable (self `') (default_setting `bool') => (ret `bool') Returns whether the character at ITER is within an editable region of text. Non-editable text is "locked" and can't be changed by the user via `'. This function is simply a convenience wrapper around `gtk-text-iter-get-attributes'. If no tags applied to this text affect editability, DEFAULT-SETTING will be returned. You don't want to use this function to decide whether text can be inserted at ITER, because for insertion you don't want to know whether the char at ITER is inside an editable range, you want to know whether a new character inserted at ITER would be inside an editable range. Use `gtk-text-iter-can-insert' to handle this case. ITER an iterator DEFAULT-SETTING ``#t'' if text is editable by default RET whether ITER is inside an editable range -- Function: gtk-text-iter-can-insert (self `') (default_editability `bool') => (ret `bool') Considering the default editability of the buffer, and tags that affect editability, determines whether text inserted at ITER would be editable. If text inserted at ITER would be editable then the user should be allowed to insert text at ITER. `gtk-text-buffer-insert-interactive' uses this function to decide whether insertions are allowed at a given position. ITER an iterator DEFAULT-EDITABILITY ``#t'' if text is editable by default RET whether text inserted at ITER would be editable -- Function: gtk-text-iter-starts-word (self `') => (ret `bool') Determines whether ITER begins a natural-language word. Word breaks are determined by Pango and should be correct for nearly any language (if not, the correct fix would be to the Pango word break algorithms). ITER a `' RET ``#t'' if ITER is at the start of a word -- Function: gtk-text-iter-ends-word (self `') => (ret `bool') Determines whether ITER ends a natural-language word. Word breaks are determined by Pango and should be correct for nearly any language (if not, the correct fix would be to the Pango word break algorithms). ITER a `' RET ``#t'' if ITER is at the end of a word -- Function: gtk-text-iter-inside-word (self `') => (ret `bool') Determines whether ITER is inside a natural-language word (as opposed to say inside some whitespace). Word breaks are determined by Pango and should be correct for nearly any language (if not, the correct fix would be to the Pango word break algorithms). ITER a `' RET ``#t'' if ITER is inside a word -- Function: gtk-text-iter-starts-line (self `') => (ret `bool') Returns ``#t'' if ITER begins a paragraph, i.e. if `gtk-text-iter-get-line-offset' would return 0. However this function is potentially more efficient than `gtk-text-iter-get-line-offset' because it doesn't have to compute the offset, it just has to see whether it's 0. ITER an iterator RET whether ITER begins a line -- Function: gtk-text-iter-ends-line (self `') => (ret `bool') Returns ``#t'' if ITER points to the start of the paragraph delimiter characters for a line (delimiters will be either a newline, a carriage return, a carriage return followed by a newline, or a Unicode paragraph separator character). Note that an iterator pointing to the \n of a \r\n pair will not be counted as the end of a line, the line ends before the \r. The end iterator is considered to be at the end of a line, even though there are no paragraph delimiter chars there. ITER an iterator RET whether ITER is at the end of a line -- Function: gtk-text-iter-starts-sentence (self `') => (ret `bool') Determines whether ITER begins a sentence. Sentence boundaries are determined by Pango and should be correct for nearly any language (if not, the correct fix would be to the Pango text boundary algorithms). ITER a `' RET ``#t'' if ITER is at the start of a sentence. -- Function: gtk-text-iter-ends-sentence (self `') => (ret `bool') Determines whether ITER ends a sentence. Sentence boundaries are determined by Pango and should be correct for nearly any language (if not, the correct fix would be to the Pango text boundary algorithms). ITER a `' RET ``#t'' if ITER is at the end of a sentence. -- Function: gtk-text-iter-inside-sentence (self `') => (ret `bool') Determines whether ITER is inside a sentence (as opposed to in between two sentences, e.g. after a period and before the first letter of the next sentence). Sentence boundaries are determined by Pango and should be correct for nearly any language (if not, the correct fix would be to the Pango text boundary algorithms). ITER a `' RET ``#t'' if ITER is inside a sentence. -- Function: gtk-text-iter-is-cursor-position (self `') => (ret `bool') See `gtk-text-iter-forward-cursor-position' or `' or `pango-break' for details on what a cursor position is. ITER a `' RET ``#t'' if the cursor can be placed at ITER -- Function: gtk-text-iter-get-chars-in-line (self `') => (ret `int') Returns the number of characters in the line containing ITER, including the paragraph delimiters. ITER an iterator RET number of characters in the line -- Function: gtk-text-iter-get-bytes-in-line (self `') => (ret `int') Returns the number of bytes in the line containing ITER, including the paragraph delimiters. ITER an iterator RET number of bytes in the line -- Function: gtk-text-iter-get-attributes (self `') (values `') => (ret `bool') Computes the effect of any tags applied to this spot in the text. The VALUES parameter should be initialized to the default settings you wish to use if no tags are in effect. You'd typically obtain the defaults from `gtk-text-view-get-default-attributes'. `gtk-text-iter-get-attributes' will modify VALUES, applying the effects of any tags present at ITER. If any tags affected VALUES, the function returns ``#t''. ITER an iterator VALUES a `' to be filled in RET ``#t'' if VALUES was modified -- Function: gtk-text-iter-get-language (self `') => (ret `') A convenience wrapper around `gtk-text-iter-get-attributes', which returns the language in effect at ITER. If no tags affecting language apply to ITER, the return value is identical to that of `gtk-get-default-language'. ITER an iterator RET language in effect at ITER -- Function: gtk-text-iter-is-end (self `') => (ret `bool') Returns ``#t'' if ITER is the end iterator, i.e. one past the last dereferenceable iterator in the buffer. `gtk-text-iter-is-end' is the most efficient way to check whether an iterator is the end iterator. ITER an iterator RET whether ITER is the end iterator -- Function: gtk-text-iter-is-start (self `') => (ret `bool') Returns ``#t'' if ITER is the first iterator in the buffer, that is if ITER has a character offset of 0. ITER an iterator RET whether ITER is the first in the buffer -- Function: gtk-text-iter-forward-char (self `') => (ret `bool') Moves ITER forward by one character offset. Note that images embedded in the buffer occupy 1 character slot, so `gtk-text-iter-forward-char' may actually move onto an image instead of a character, if you have images in your buffer. If ITER is the end iterator or one character before it, ITER will now point at the end iterator, and `gtk-text-iter-forward-char' returns ``#f'' for convenience when writing loops. ITER an iterator RET whether ITER moved and is dereferenceable -- Function: gtk-text-iter-backward-char (self `') => (ret `bool') Moves backward by one character offset. Returns ``#t'' if movement was possible; if ITER was the first in the buffer (character offset 0), `gtk-text-iter-backward-char' returns ``#f'' for convenience when writing loops. ITER an iterator RET whether movement was possible -- Function: gtk-text-iter-forward-chars (self `') (count `int') => (ret `bool') Moves COUNT characters if possible (if COUNT would move past the start or end of the buffer, moves to the start or end of the buffer). The return value indicates whether the new position of ITER is different from its original position, and dereferenceable (the last iterator in the buffer is not dereferenceable). If COUNT is 0, the function does nothing and returns ``#f''. ITER an iterator COUNT number of characters to move, may be negative RET whether ITER moved and is dereferenceable -- Function: gtk-text-iter-backward-chars (self `') (count `int') => (ret `bool') Moves COUNT characters backward, if possible (if COUNT would move past the start or end of the buffer, moves to the start or end of the buffer). The return value indicates whether the iterator moved onto a dereferenceable position; if the iterator didn't move, or moved onto the end iterator, then ``#f'' is returned. If COUNT is 0, the function does nothing and returns ``#f''. ITER an iterator COUNT number of characters to move RET whether ITER moved and is dereferenceable -- Function: gtk-text-iter-forward-line (self `') => (ret `bool') Moves ITER to the start of the next line. Returns ``#t'' if there was a next line to move to, and ``#f'' if ITER was simply moved to the end of the buffer and is now not dereferenceable, or if ITER was already at the end of the buffer. ITER an iterator RET whether ITER can be dereferenced -- Function: gtk-text-iter-backward-line (self `') => (ret `bool') Moves ITER to the start of the previous line. Returns ``#t'' if ITER could be moved; i.e. if ITER was at character offset 0, this function returns ``#f''. Therefore if ITER was already on line 0, but not at the start of the line, ITER is snapped to the start of the line and the function returns ``#t''. (Note that this implies that in a loop calling this function, the line number may not change on every iteration, if your first iteration is on line 0.) ITER an iterator RET whether ITER moved -- Function: gtk-text-iter-forward-lines (self `') (count `int') => (ret `bool') Moves COUNT lines forward, if possible (if COUNT would move past the start or end of the buffer, moves to the start or end of the buffer). The return value indicates whether the iterator moved onto a dereferenceable position; if the iterator didn't move, or moved onto the end iterator, then ``#f'' is returned. If COUNT is 0, the function does nothing and returns ``#f''. If COUNT is negative, moves backward by 0 - COUNT lines. ITER a `' COUNT number of lines to move forward RET whether ITER moved and is dereferenceable -- Function: gtk-text-iter-backward-lines (self `') (count `int') => (ret `bool') Moves COUNT lines backward, if possible (if COUNT would move past the start or end of the buffer, moves to the start or end of the buffer). The return value indicates whether the iterator moved onto a dereferenceable position; if the iterator didn't move, or moved onto the end iterator, then ``#f'' is returned. If COUNT is 0, the function does nothing and returns ``#f''. If COUNT is negative, moves forward by 0 - COUNT lines. ITER a `' COUNT number of lines to move backward RET whether ITER moved and is dereferenceable -- Function: gtk-text-iter-forward-word-ends (self `') (count `int') => (ret `bool') Calls `gtk-text-iter-forward-word-end' up to COUNT times. ITER a `' COUNT number of times to move RET ``#t'' if ITER moved and is not the end iterator -- Function: gtk-text-iter-backward-word-starts (self `') (count `int') => (ret `bool') Calls `gtk-text-iter-backward-word-start' up to COUNT times. ITER a `' COUNT number of times to move RET ``#t'' if ITER moved and is not the end iterator -- Function: gtk-text-iter-forward-word-end (self `') => (ret `bool') Moves forward to the next word end. (If ITER is currently on a word end, moves forward to the next one after that.) Word breaks are determined by Pango and should be correct for nearly any language (if not, the correct fix would be to the Pango word break algorithms). ITER a `' RET ``#t'' if ITER moved and is not the end iterator -- Function: gtk-text-iter-backward-word-start (self `') => (ret `bool') Moves backward to the previous word start. (If ITER is currently on a word start, moves backward to the next one after that.) Word breaks are determined by Pango and should be correct for nearly any language (if not, the correct fix would be to the Pango word break algorithms). ITER a `' RET ``#t'' if ITER moved and is not the end iterator -- Function: gtk-text-iter-forward-sentence-end (self `') => (ret `bool') Moves forward to the next sentence end. (If ITER is at the end of a sentence, moves to the next end of sentence.) Sentence boundaries are determined by Pango and should be correct for nearly any language (if not, the correct fix would be to the Pango text boundary algorithms). ITER a `' RET ``#t'' if ITER moved and is not the end iterator -- Function: gtk-text-iter-forward-sentence-ends (self `') (count `int') => (ret `bool') Calls `gtk-text-iter-forward-sentence-end'COUNT times (or until `gtk-text-iter-forward-sentence-end' returns ``#f''). If COUNT is negative, moves backward instead of forward. ITER a `' COUNT number of sentences to move RET ``#t'' if ITER moved and is not the end iterator -- Function: gtk-text-iter-forward-visible-line (self `') => (ret `bool') Moves ITER to the start of the next visible line. Returns ``#t'' if there was a next line to move to, and ``#f'' if ITER was simply moved to the end of the buffer and is now not dereferenceable, or if ITER was already at the end of the buffer. ITER an iterator RET whether ITER can be dereferenced Since 2.8 -- Function: gtk-text-iter-backward-visible-line (self `') => (ret `bool') Moves ITER to the start of the previous visible line. Returns ``#t'' if ITER could be moved; i.e. if ITER was at character offset 0, this function returns ``#f''. Therefore if ITER was already on line 0, but not at the start of the line, ITER is snapped to the start of the line and the function returns ``#t''. (Note that this implies that in a loop calling this function, the line number may not change on every iteration, if your first iteration is on line 0.) ITER an iterator RET whether ITER moved Since 2.8 -- Function: gtk-text-iter-forward-visible-lines (self `') (count `int') => (ret `bool') Moves COUNT visible lines forward, if possible (if COUNT would move past the start or end of the buffer, moves to the start or end of the buffer). The return value indicates whether the iterator moved onto a dereferenceable position; if the iterator didn't move, or moved onto the end iterator, then ``#f'' is returned. If COUNT is 0, the function does nothing and returns ``#f''. If COUNT is negative, moves backward by 0 - COUNT lines. ITER a `' COUNT number of lines to move forward RET whether ITER moved and is dereferenceable Since 2.8 -- Function: gtk-text-iter-set-offset (self `') (char_offset `int') Sets ITER to point to CHAR-OFFSET. CHAR-OFFSET counts from the start of the entire text buffer, starting with 0. ITER a `' CHAR-OFFSET a character number -- Function: gtk-text-iter-set-line (self `') (line_number `int') Moves iterator ITER to the start of the line LINE-NUMBER. If LINE-NUMBER is negative or larger than the number of lines in the buffer, moves ITER to the start of the last line in the buffer. ITER a `' LINE-NUMBER line number (counted from 0) -- Function: gtk-text-iter-set-line-offset (self `') (char_on_line `int') Moves ITER within a line, to a new _character_ (not byte) offset. The given character offset must be less than or equal to the number of characters in the line; if equal, ITER moves to the start of the next line. See `gtk-text-iter-set-line-index' if you have a byte index rather than a character offset. ITER a `' CHAR-ON-LINE a character offset relative to the start of ITER's current line -- Function: gtk-text-iter-set-line-index (self `') (byte_on_line `int') Same as `gtk-text-iter-set-line-offset', but works with a _byte_ index. The given byte index must be at the start of a character, it can't be in the middle of a UTF-8 encoded character. ITER a `' BYTE-ON-LINE a byte index relative to the start of ITER's current line -- Function: gtk-text-iter-forward-to-end (self `') Moves ITER forward to the "end iterator," which points one past the last valid character in the buffer. `gtk-text-iter-get-char' called on the end iterator returns 0, which is convenient for writing loops. ITER a `' -- Function: gtk-text-iter-forward-to-line-end (self `') => (ret `bool') Moves the iterator to point to the paragraph delimiter characters, which will be either a newline, a carriage return, a carriage return/newline in sequence, or the Unicode paragraph separator character. If the iterator is already at the paragraph delimiter characters, moves to the paragraph delimiter characters for the next line. If ITER is on the last line in the buffer, which does not end in paragraph delimiters, moves to the end iterator (end of the last line), and returns ``#f''. ITER a `' RET ``#t'' if we moved and the new location is not the end iterator -- Function: gtk-text-iter-forward-to-tag-toggle (self `') (tag `') => (ret `bool') Moves forward to the next toggle (on or off) of the `'TAG, or to the next toggle of any tag if TAG is ``#f''. If no matching tag toggles are found, returns ``#f'', otherwise ``#t''. Does not return toggles located at ITER, only toggles after ITER. Sets ITER to the location of the toggle, or to the end of the buffer if no toggle is found. ITER a `' TAG a `', or ``#f'' RET whether we found a tag toggle after ITER -- Function: gtk-text-iter-forward-search (self `') (str `mchars') (flags `') (match_start `') (match_end `') (limit `') => (ret `bool') Searches forward for STR. Any match is returned by setting MATCH-START to the first character of the match and MATCH-END to the first character after the match. The search will not continue past LIMIT. Note that a search is a linear or O(n) operation, so you may wish to use LIMIT to avoid locking up your UI on large buffers. If the `' flag is present, the match may have invisible text interspersed in STR. i.e. STR will be a possibly-noncontiguous subsequence of the matched range. similarly, if you specify `', the match may have pixbufs or child widgets mixed inside the matched range. If these flags are not given, the match must be exact; the special 0xFFFC character in STR will match embedded pixbufs or child widgets. ITER start of search STR a search string FLAGS flags affecting how the search is done MATCH-START return location for start of match, or ``#f'' MATCH-END return location for end of match, or ``#f'' LIMIT bound for the search, or ``#f'' for the end of the buffer RET whether a match was found -- Function: gtk-text-iter-backward-search (self `') (str `mchars') (flags `') (match_start `') (match_end `') (limit `') => (ret `bool') Same as `gtk-text-iter-forward-search', but moves backward. ITER a `' where the search begins STR search string FLAGS bitmask of flags affecting the search MATCH-START return location for start of match, or ``#f'' MATCH-END return location for end of match, or ``#f'' LIMIT location of last possible MATCH-START, or ``#f'' for start of buffer RET whether a match was found -- Function: gtk-text-iter-equal (self `') (rhs `') => (ret `bool') Tests whether two iterators are equal, using the fastest possible mechanism. This function is very fast; you can expect it to perform better than e.g. getting the character offset for each iterator and comparing the offsets yourself. Also, it's a bit faster than `gtk-text-iter-compare'. LHS a `' RHS another `' RET ``#t'' if the iterators point to the same place in the buffer -- Function: gtk-text-iter-compare (self `') (rhs `') => (ret `int') A `qsort'-style function that returns negative if LHS is less than RHS, positive if LHS is greater than RHS, and 0 if they're equal. Ordering is in character offset order, i.e. the first character in the buffer is less than the second character in the buffer. LHS a `' RHS another `' RET -1 if LHS is less than RHS, 1 if LHS is greater, 0 if they are equal -- Function: gtk-text-iter-in-range (self `') (start `') (end `') => (ret `bool') Checks whether ITER falls in the range [START, END). START and END must be in ascending order. ITER a `' START start of range END end of range RET ``#t'' if ITER is in the range -- Function: gtk-text-iter-order (self `') (second `') Swaps the value of FIRST and SECOND if SECOND comes before FIRST in the buffer. That is, ensures that FIRST and SECOND are in sequence. Most text buffer functions that take a range call this automatically on your behalf, so there's no real reason to call it yourself in those cases. There are some exceptions, such as `gtk-text-iter-in-range', that expect a pre-sorted range. FIRST a `' SECOND another `'  File: guile-gnome-gtk.info, Node: GtkTextMark, Next: GtkTextBuffer, Prev: GtkTextIter, Up: Top 27 GtkTextMark ************** A position in the buffer preserved across buffer modifications 27.1 Overview ============= You may wish to begin by reading the text widget conceptual overview which gives an overview of all the objects and data types related to the text widget and how they work together. A `' is like a bookmark in a text buffer; it preserves a position in the text. You can convert the mark to an iterator using `gtk-text-buffer-get-iter-at-mark'. Unlike iterators, marks remain valid across buffer mutations, because their behavior is defined when text is inserted or deleted. When text containing a mark is deleted, the mark remains in the position originally occupied by the deleted text. When text is inserted at a mark, a mark with "left gravity" will be moved to the beginning of the newly-inserted text, and a mark with "right gravity" will be moved to the end. "left" and "right" here refer to logical direction (left is the toward the start of the buffer); in some languages such as Hebrew the logically-leftmost text is not actually on the left when displayed. Marks are reference counted, but the reference count only controls the validity of the memory; marks can be deleted from the buffer at any time with `gtk-text-buffer-delete-mark'. Once deleted from the buffer, a mark is essentially useless. Marks optionally have names; these can be convenient to avoid passing the `' object around. Marks are typically created using the `gtk-text-buffer-create-mark' function. 27.2 Usage ========== -- Class: Derives from `'. This class defines the following slots: `name' Mark name `left-gravity' Whether the mark has left gravity -- Function: gtk-text-mark-set-visible (self `') (setting `bool') -- Method: set-visible Sets the visibility of MARK; the insertion point is normally visible, i.e. you can see it as a vertical bar. Also, the text widget uses a visible mark to indicate where a drop will occur when dragging-and-dropping text. Most other marks are not visible. Marks are not visible by default. MARK a `' SETTING visibility of mark -- Function: gtk-text-mark-get-visible (self `') => (ret `bool') -- Method: get-visible Returns ``#t'' if the mark is visible (i.e. a cursor is displayed for it) MARK a `' RET ``#t'' if visible -- Function: gtk-text-mark-get-deleted (self `') => (ret `bool') -- Method: get-deleted Returns ``#t'' if the mark has been removed from its buffer with `gtk-text-buffer-delete-mark'. Marks can't be used once deleted. MARK a `' RET whether the mark is deleted -- Function: gtk-text-mark-get-name (self `') => (ret `mchars') -- Method: get-name Returns the mark name; returns NULL for anonymous marks. MARK a `' RET mark name -- Function: gtk-text-mark-get-buffer (self `') => (ret `') -- Method: get-buffer Gets the buffer this mark is located inside, or NULL if the mark is deleted. MARK a `' RET the mark's `' -- Function: gtk-text-mark-get-left-gravity (self `') => (ret `bool') -- Method: get-left-gravity Determines whether the mark has left gravity. MARK a `' RET ``#t'' if the mark has left gravity, ``#f'' otherwise guile-gnome-platform-2.16.2/gtk/doc/gtk/guile-gnome-gtk.info-40000644000175000017500000106255411752516272024341 0ustar00wingowingo00000000000000This is guile-gnome-gtk.info, produced by makeinfo version 4.13 from guile-gnome-gtk.texi. This manual is for `(gnome gtk)' (version 2.16.2, updated 9 December 2011) Copyright 1997-2007 Damon Chaplin and others This work may be reproduced and distributed in whole or in part, in any medium, physical or electronic, so as long as this copyright notice remains intact and unchanged on all copies. Commercial redistribution is permitted and encouraged, but you may not redistribute, in whole or in part, under terms more restrictive than those under which you received it. If you redistribute a modified or translated version of this work, you must also make the source code to the modified or translated version available in electronic form without charge. However, mere aggregation as part of a larger work shall not count as a modification for this purpose. All code examples in this work are placed into the public domain, and may be used, modified and redistributed without restriction. BECAUSE THIS WORK IS LICENSED FREE OF CHARGE, THERE IS NO WARRANTY FOR THE WORK, TO THE EXTENT PERMITTED BY APPLICABLE LAW. EXCEPT WHEN OTHERWISE STATED IN WRITING THE COPYRIGHT HOLDERS AND/OR OTHER PARTIES PROVIDE THE WORK "AS IS" WITHOUT WARRANTY OF ANY KIND, EITHER EXPRESSED OR IMPLIED, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE. SHOULD THE WORK PROVE DEFECTIVE, YOU ASSUME THE COST OF ALL NECESSARY REPAIR OR CORRECTION. IN NO EVENT UNLESS REQUIRED BY APPLICABLE LAW OR AGREED TO IN WRITING WILL ANY COPYRIGHT HOLDER, OR ANY OTHER PARTY WHO MAY MODIFY AND/OR REDISTRIBUTE THE WORK AS PERMITTED ABOVE, BE LIABLE TO YOU FOR DAMAGES, INCLUDING ANY GENERAL, SPECIAL, INCIDENTAL OR CONSEQUENTIAL DAMAGES ARISING OUT OF THE USE OR INABILITY TO USE THE WORK, EVEN IF SUCH HOLDER OR OTHER PARTY HAS BEEN ADVISED OF THE POSSIBILITY OF SUCH DAMAGES. INFO-DIR-SECTION The Algorithmic Language Scheme START-INFO-DIR-ENTRY * Guile-Gtk: (guile-gnome-gtk.info). The GIMP ToolKit. END-INFO-DIR-ENTRY  File: guile-gnome-gtk.info, Node: GtkAdjustment, Next: GtkArrow, Prev: GtkPaperSize, Up: Top 114 GtkAdjustment ***************** A GtkObject representing an adjustable bounded value 114.1 Overview ============== The `' object represents a value which has an associated lower and upper bound, together with step and page increments, and a page size. It is used within several GTK+ widgets, including `', `', and `' (which is a base class for `', `', `', and `'). The `' object does not update the value itself. Instead it is left up to the owner of the `' to control the value. The owner of the `' typically calls the `gtk-adjustment-value-changed' and `gtk-adjustment-changed' functions after changing the value and its bounds. This results in the emission of the "value_changed" or "changed" signal respectively. 114.2 Usage =========== -- Class: Derives from `'. This class defines the following slots: `value' The value of the adjustment `lower' The minimum value of the adjustment `upper' The maximum value of the adjustment `step-increment' The step increment of the adjustment `page-increment' The page increment of the adjustment `page-size' The page size of the adjustment -- Signal on : changed Emitted when one or more of the `' fields have been changed, other than the value field. -- Signal on : value-changed Emitted when the `' value field has been changed. -- Function: gtk-adjustment-new (value `double') (lower `double') (upper `double') (step_increment `double') (page_increment `double') (page_size `double') => (ret `') Creates a new `'. VALUE the initial value. LOWER the minimum value. UPPER the maximum value. STEP-INCREMENT the step increment. PAGE-INCREMENT the page increment. PAGE-SIZE the page size. RET a new `'. -- Function: gtk-adjustment-get-value (self `') => (ret `double') -- Method: get-value Gets the current value of the adjustment. See `gtk-adjustment-set-value'. ADJUSTMENT a `' RET The current value of the adjustment. -- Function: gtk-adjustment-set-value (self `') (value `double') -- Method: set-value Sets the `' value. The value is clamped to lie between `adjustment->lower' and `adjustment->upper'. Note that for adjustments which are used in a `', the effective range of allowed values goes from `adjustment->lower' to `adjustment->upper - adjustment->page_size'. ADJUSTMENT a `'. VALUE the new value. -- Function: gtk-adjustment-clamp-page (self `') (lower `double') (upper `double') -- Method: clamp-page Updates the `'VALUE to ensure that the range between LOWER and UPPER is in the current page (i.e. between VALUE and VALUE + PAGE-SIZE). If the range is larger than the page size, then only the start of it will be in the current page. A "changed" signal will be emitted if the value is changed. ADJUSTMENT a `'. LOWER the lower value. UPPER the upper value. -- Function: gtk-adjustment-changed (self `') -- Method: changed Emits a "changed" signal from the `'. This is typically called by the owner of the `' after it has changed any of the `' fields other than the value. ADJUSTMENT a `' -- Function: gtk-adjustment-value-changed (self `') -- Method: value-changed Emits a "value_changed" signal from the `'. This is typically called by the owner of the `' after it has changed the `' value field. ADJUSTMENT a `'  File: guile-gnome-gtk.info, Node: GtkArrow, Next: GtkCalendar, Prev: GtkAdjustment, Up: Top 115 GtkArrow ************ Displays an arrow 115.1 Overview ============== GtkArrow should be used to draw simple arrows that need to point in one of the four cardinal directions (up, down, left, or right). The style of the arrow can be one of shadow in, shadow out, etched in, or etched out. Note that these directions and style types may be ammended in versions of Gtk to come. GtkArrow will fill any space alloted to it, but since it is inherited from `', it can be padded and/or aligned, to fill exactly the space the programmer desires. Arrows are created with a call to `gtk-arrow-new'. The direction or style of an arrow can be changed after creation by using `gtk-arrow-set'. 115.2 Usage =========== -- Class: Derives from `'. This class defines the following slots: `arrow-type' The direction the arrow should point `shadow-type' Appearance of the shadow surrounding the arrow -- Function: gtk-arrow-new (arrow_type `') (shadow_type `') => (ret `') Creates a new arrow widget. ARROW-TYPE a valid `'. SHADOW-TYPE a valid `'. RET the new `' widget. -- Function: gtk-arrow-set (self `') (arrow_type `') (shadow_type `') -- Method: set Sets the direction and style of the `', ARROW. ARROW a widget of type `'. ARROW-TYPE a valid `'. SHADOW-TYPE a valid `'.  File: guile-gnome-gtk.info, Node: GtkCalendar, Next: GtkDrawingArea, Prev: GtkArrow, Up: Top 116 GtkCalendar *************** Displays a calendar and allows the user to select a date 116.1 Overview ============== `' is a widget that displays a calendar, one month at a time. It can be created with `gtk-calendar-new'. The month and year currently displayed can be altered with `gtk-calendar-select-month'. The exact day can be selected from the displayed month using `gtk-calendar-select-day'. To place a visual marker on a particular day, use `gtk-calendar-mark-day' and to remove the marker, `gtk-calendar-unmark-day'. Alternative, all marks can be cleared with `gtk-calendar-clear-marks'. The way in which the calendar itself is displayed can be altered using `gtk-calendar-set-display-options'. The selected date can be retrieved from a `' using `gtk-calendar-get-date'. 116.2 Usage =========== -- Class: Derives from `'. This class defines the following slots: `year' The selected year `month' The selected month (as a number between 0 and 11) `day' The selected day (as a number between 1 and 31, or 0 to unselect the currently selected day) `show-heading' If TRUE, a heading is displayed `show-day-names' If TRUE, day names are displayed `no-month-change' If TRUE, the selected month cannot be changed `show-week-numbers' If TRUE, week numbers are displayed -- Signal on : month-changed Emitted when the user clicks a button to change the selected month on a calendar. -- Signal on : day-selected Emitted when the user selects a day. -- Signal on : day-selected-double-click -- Signal on : prev-month -- Signal on : next-month -- Signal on : prev-year -- Signal on : next-year -- Function: gtk-calendar-new => (ret `') Creates a new calendar, with the current date being selected. RET a newly `' widget -- Function: gtk-calendar-select-month (self `') (month `unsigned-int') (year `unsigned-int') => (ret `bool') -- Method: select-month Shifts the calendar to a different month. CALENDAR a `' MONTH a month number between 0 and 11. YEAR the year the month is in. RET ``#t'', always -- Function: gtk-calendar-select-day (self `') (day `unsigned-int') -- Method: select-day Selects a day from the current month. CALENDAR a `'. DAY the day number between 1 and 31, or 0 to unselect the currently selected day. -- Function: gtk-calendar-mark-day (self `') (day `unsigned-int') => (ret `bool') -- Method: mark-day Places a visual marker on a particular day. CALENDAR a `' DAY the day number to mark between 1 and 31. RET ``#t'', always -- Function: gtk-calendar-unmark-day (self `') (day `unsigned-int') => (ret `bool') -- Method: unmark-day Removes the visual marker from a particular day. CALENDAR a `'. DAY the day number to unmark between 1 and 31. RET ``#t'', always -- Function: gtk-calendar-clear-marks (self `') -- Method: clear-marks Remove all visual markers. CALENDAR a `' -- Function: gtk-calendar-set-display-options (self `') (flags `') -- Method: set-display-options Sets display options (whether to display the heading and the month headings). CALENDAR a `' FLAGS the display options to set Since 2.4 -- Function: gtk-calendar-get-date (self `') => (year `unsigned-int') (month `unsigned-int') (day `unsigned-int') -- Method: get-date Obtains the selected date from a `'. CALENDAR a `' YEAR location to store the year number, or ``#f'' MONTH location to store the month number (between 0 and 11), or ``#f'' DAY location to store the day number (between 1 and 31), or ``#f'' -- Function: gtk-calendar-freeze (self `') -- Method: freeze `gtk_calendar_freeze' has been deprecated since version 2.8 and should not be used in newly-written code. Does nothing. Previously locked the display of the calendar until it was thawed with `gtk-calendar-thaw'. CALENDAR a `' -- Function: gtk-calendar-thaw (self `') -- Method: thaw `gtk_calendar_thaw' has been deprecated since version 2.8 and should not be used in newly-written code. Does nothing. Previously defrosted a calendar; all the changes made since the last `gtk-calendar-freeze' were displayed. CALENDAR a `'  File: guile-gnome-gtk.info, Node: GtkDrawingArea, Next: GtkEventBox, Prev: GtkCalendar, Up: Top 117 GtkDrawingArea ****************** A widget for custom user interface elements 117.1 Overview ============== The `' widget is used for creating custom user interface elements. It's essentially a blank widget; you can draw on `widget->window'. After creating a drawing area, the application may want to connect to: Mouse and button press signals to respond to input from the user. (Use `gtk-widget-add-events' to enable events you wish to receive.) The "realize" signal to take any necessary actions when the widget is instantiated on a particular display. (Create GDK resources in response to this signal.) The "configure_event" signal to take any necessary actions when the widget changes size. The "expose_event" signal to handle redrawing the contents of the widget. The following code portion demonstrates using a drawing area to display a circle in the normal widget foreground color. Note that GDK automatically clears the exposed area to the background color before sending the expose event, and that drawing is implicitly clipped to the exposed area. gboolean expose_event_callback (GtkWidget *widget, GdkEventExpose *event, gpointer data) { gdk_draw_arc (widget->window, widget->style->fg_gc[GTK_WIDGET_STATE (widget)], TRUE, 0, 0, widget->allocation.width, widget->allocation.height, 0, 64 * 360); return TRUE; } [...] GtkWidget *drawing_area = gtk_drawing_area_new (); gtk_widget_set_size_request (drawing_area, 100, 100); g_signal_connect (G_OBJECT (drawing_area), "expose_event", G_CALLBACK (expose_event_callback), NULL); Expose events are normally delivered when a drawing area first comes onscreen, or when it's covered by another window and then uncovered (exposed). You can also force an expose event by adding to the "damage region" of the drawing area's window; `gtk-widget-queue-draw-area' and `gdk-window-invalidate-rect' are equally good ways to do this. You'll then get an expose event for the invalid region. The available routines for drawing are documented on the GDK Drawing Primitives page. See also `gdk-pixbuf-render-to-drawable' for drawing a `'. To receive mouse events on a drawing area, you will need to enable them with `gtk-widget-add-events'. To receive keyboard events, you will need to set the `' flag on the drawing area, and should probably draw some user-visible indication that the drawing area is focused. Use the `gtk-has-focus' macro in your expose event handler to decide whether to draw the focus indicator. See `gtk-paint-focus' for one way to draw focus. 117.2 Usage =========== -- Class: Derives from `'. This class defines no direct slots. -- Function: gtk-drawing-area-new => (ret `') Creates a new drawing area. RET a new `'  File: guile-gnome-gtk.info, Node: GtkEventBox, Next: GtkHandleBox, Prev: GtkDrawingArea, Up: Top 118 GtkEventBox *************** A widget used to catch events for widgets which do not have their own window 118.1 Overview ============== The `' widget is a subclass of `' which also has its own window. It is useful since it allows you to catch events for widgets which do not have their own window. 118.2 Usage =========== -- Class: Derives from `'. This class defines the following slots: `visible-window' Whether the event box is visible, as opposed to invisible and only used to trap events. `above-child' Whether the event-trapping window of the eventbox is above the window of the child widget as opposed to below it. -- Function: gtk-event-box-new => (ret `') Creates a new `'. RET a new `'. -- Function: gtk-event-box-set-above-child (self `') (above_child `bool') -- Method: set-above-child Set whether the event box window is positioned above the windows of its child, as opposed to below it. If the window is above, all events inside the event box will go to the event box. If the window is below, events in windows of child widgets will first got to that widget, and then to its parents. The default is to keep the window below the child. EVENT-BOX a `' ABOVE-CHILD ``#t'' if the event box window is above the windows of its child Since 2.4 -- Function: gtk-event-box-get-above-child (self `') => (ret `bool') -- Method: get-above-child Returns whether the event box window is above or below the windows of its child. See `gtk-event-box-set-above-child' for details. EVENT-BOX a `' RET ``#t'' if the event box window is above the window of its child. Since 2.4 -- Function: gtk-event-box-set-visible-window (self `') (visible_window `bool') -- Method: set-visible-window Set whether the event box uses a visible or invisible child window. The default is to use visible windows. In an invisible window event box, the window that that the event box creates is a `GDK_INPUT_ONLY' window, which means that it is invisible and only serves to receive events. A visible window event box creates a visible (`GDK_INPUT_OUTPUT') window that acts as the parent window for all the widgets contained in the event box. You should generally make your event box invisible if you just want to trap events. Creating a visible window may cause artifacts that are visible to the user, especially if the user is using a theme with gradients or pixmaps. The main reason to create a non input-only event box is if you want to set the background to a different color or draw on it. There is one unexpected issue for an invisible event box that has its window below the child. (See `gtk-event-box-set-above-child'.) Since the input-only window is not an ancestor window of any windows that descendent widgets of the event box create, events on these windows aren't propagated up by the windowing system, but only by GTK+. The practical effect of this is if an event isn't in the event mask for the descendant window (see `gtk-widget-add-events'), it won't be received by the event box. This problem doesn't occur for visible event boxes, because in that case, the event box window is actually the ancestor of the descendant windows, not just at the same place on the screen. EVENT-BOX a `' VISIBLE-WINDOW boolean value Since 2.4 -- Function: gtk-event-box-get-visible-window (self `') => (ret `bool') -- Method: get-visible-window Returns whether the event box has a visible window. See `gtk-event-box-set-visible-window' for details. EVENT-BOX a `' RET ``#t'' if the event box window is visible Since 2.4  File: guile-gnome-gtk.info, Node: GtkHandleBox, Next: GtkIMContextSimple, Prev: GtkEventBox, Up: Top 119 GtkHandleBox **************** a widget for detachable window portions 119.1 Overview ============== The `' widget allows a portion of a window to be "torn off". It is a bin widget which displays its child and a handle that the user can drag to tear off a separate window (the "float window") containing the child widget. A thin "ghost" is drawn in the original location of the handlebox. By dragging the separate window back to its original location, it can be reattached. When reattaching, the ghost and float window, must be aligned along one of the edges, the "snap edge". This either can be specified by the application programmer explicitely, or GTK+ will pick a reasonable default based on the handle position. To make detaching and reattaching the handlebox as minimally confusing as possible to the user, it is important to set the snap edge so that the snap edge does not move when the handlebox is deattached. For instance, if the handlebox is packed at the bottom of a VBox, then when the handlebox is detached, the bottom edge of the handlebox's allocation will remain fixed as the height of the handlebox shrinks, so the snap edge should be set to `GTK_POS_BOTTOM'. 119.2 Usage =========== -- Class: Derives from `'. This class defines the following slots: `shadow' Deprecated property, use shadow_type instead `shadow-type' Appearance of the shadow that surrounds the container `handle-position' Position of the handle relative to the child widget `snap-edge' Side of the handlebox that's lined up with the docking point to dock the handlebox `snap-edge-set' Whether to use the value from the snap_edge property or a value derived from handle_position -- Signal on : child-attached (arg0 `') This signal is emitted when the contents of the handlebox are reattached to the main window. -- Signal on : child-detached (arg0 `') This signal is emitted when the contents of the handlebox are detached from the main window. -- Function: gtk-handle-box-new => (ret `') Create a new handle box. RET a new `'. -- Function: gtk-handle-box-set-shadow-type (self `') (type `') -- Method: set-shadow-type Sets the type of shadow to be drawn around the border of the handle box. HANDLE-BOX a `' TYPE the shadow type. -- Function: gtk-handle-box-set-handle-position (self `') (position `') -- Method: set-handle-position Sets the side of the handlebox where the handle is drawn. HANDLE-BOX a `' POSITION the side of the handlebox where the handle should be drawn. -- Function: gtk-handle-box-set-snap-edge (self `') (edge `') -- Method: set-snap-edge Sets the snap edge of a handlebox. The snap edge is the edge of the detached child that must be aligned with the corresponding edge of the "ghost" left behind when the child was detached to reattach the torn-off window. Usually, the snap edge should be chosen so that it stays in the same place on the screen when the handlebox is torn off. If the snap edge is not set, then an appropriate value will be guessed from the handle position. If the handle position is `GTK_POS_RIGHT' or `GTK_POS_LEFT', then the snap edge will be `GTK_POS_TOP', otherwise it will be `GTK_POS_LEFT'. HANDLE-BOX a `' EDGE the snap edge, or -1 to unset the value; in which case GTK+ will try to guess an appropriate value in the future. -- Function: gtk-handle-box-get-handle-position (self `') => (ret `') -- Method: get-handle-position Gets the handle position of the handle box. See `gtk-handle-box-set-handle-position'. HANDLE-BOX a `' RET the current handle position. -- Function: gtk-handle-box-get-shadow-type (self `') => (ret `') -- Method: get-shadow-type Gets the type of shadow drawn around the handle box. See `gtk-handle-box-set-shadow-type'. HANDLE-BOX a `' RET the type of shadow currently drawn around the handle box. -- Function: gtk-handle-box-get-snap-edge (self `') => (ret `') -- Method: get-snap-edge Gets the edge used for determining reattachment of the handle box. See `gtk-handle-box-set-snap-edge'. HANDLE-BOX a `' RET the edge used for determining reattachment, or (GtkPositionType)-1 if this is determined (as per default) from the handle position.  File: guile-gnome-gtk.info, Node: GtkIMContextSimple, Next: GtkIMMulticontext, Prev: GtkHandleBox, Up: Top 120 GtkIMContextSimple ********************** An input method context supporting table-based input methods 120.1 Overview ============== 120.2 Usage =========== -- Class: Derives from `'. This class defines no direct slots. -- Function: gtk-im-context-simple-new => (ret `') Creates a new `'. RET a new `'. -- Function: gtk-im-context-simple-add-table (self `') (max_seq_len `int') (n_seqs `int') => (data `unsigned-int16') -- Method: add-table Adds an additional table to search to the input context. Each row of the table consists of MAX-SEQ-LEN key symbols followed by two `' interpreted as the high and low words of a `' value. Tables are searched starting from the last added. The table must be sorted in dictionary order on the numeric value of the key symbol fields. (Values beyond the length of the sequence should be zero.) CONTEXT-SIMPLE A `' DATA the table MAX-SEQ-LEN Maximum length of a sequence in the table (cannot be greater than `') N-SEQS number of sequences in the table  File: guile-gnome-gtk.info, Node: GtkIMMulticontext, Next: GtkSizeGroup, Prev: GtkIMContextSimple, Up: Top 121 GtkIMMulticontext ********************* An input method context supporting multiple, loadable input methods 121.1 Overview ============== 121.2 Usage =========== -- Class: Derives from `'. This class defines no direct slots. -- Function: gtk-im-multicontext-new => (ret `') Creates a new `'. RET a new `'.  File: guile-gnome-gtk.info, Node: GtkSizeGroup, Next: GtkTooltips, Prev: GtkIMMulticontext, Up: Top 122 GtkSizeGroup **************** Grouping widgets so they request the same size 122.1 Overview ============== `' provides a mechanism for grouping a number of widgets together so they all request the same amount of space. This is typically useful when you want a column of widgets to have the same size, but you can't use a `' widget. In detail, the size requested for each widget in a `' is the maximum of the sizes that would have been requested for each widget in the size group if they were not in the size group. The mode of the size group (see `gtk-size-group-set-mode') determines whether this applies to the horizontal size, the vertical size, or both sizes. Note that size groups only affect the amount of space requested, not the size that the widgets finally receive. If you want the widgets in a `' to actually be the same size, you need to pack them in such a way that they get the size they request and not more. For example, if you are packing your widgets into a table, you would not include the `GTK_FILL' flag. `' objects are referenced by each widget in the size group, so once you have added all widgets to a `', you can drop the initial reference to the size group with `g-object-unref'. If the widgets in the size group are subsequently destroyed, then they will be removed from the size group and drop their references on the size group; when all widgets have been removed, the size group will be freed. Widgets can be part of multiple size groups; GTK+ will compute the horizontal size of a widget from the horizontal requisition of all widgets that can be reached from the widget by a chain of size groups of type `GTK_SIZE_GROUP_HORIZONTAL' or `GTK_SIZE_GROUP_BOTH', and the vertical size from the vertical requisition of all widgets that can be reached from the widget by a chain of size groups of type `GTK_SIZE_GROUP_VERTICAL' or `GTK_SIZE_GROUP_BOTH'. 122.2 Usage =========== -- Class: Derives from `', `'. This class defines the following slots: `mode' The directions in which the size group affects the requested sizes of its component widgets `ignore-hidden' If TRUE, unmapped widgets are ignored when determining the size of the group -- Function: gtk-size-group-new (mode `') => (ret `') Create a new `'. MODE the mode for the new size group. RET a newly created `' -- Function: gtk-size-group-set-mode (self `') (mode `') -- Method: set-mode Sets the `' of the size group. The mode of the size group determines whether the widgets in the size group should all have the same horizontal requisition (`GTK_SIZE_GROUP_MODE_HORIZONTAL') all have the same vertical requisition (`GTK_SIZE_GROUP_MODE_VERTICAL'), or should all have the same requisition in both directions (`GTK_SIZE_GROUP_MODE_BOTH'). SIZE-GROUP a `' MODE the mode to set for the size group. -- Function: gtk-size-group-get-mode (self `') => (ret `') -- Method: get-mode Gets the current mode of the size group. See `gtk-size-group-set-mode'. SIZE-GROUP a `' RET the current mode of the size group. -- Function: gtk-size-group-set-ignore-hidden (self `') (ignore_hidden `bool') -- Method: set-ignore-hidden Sets whether unmapped widgets should be ignored when calculating the size. SIZE-GROUP a `' IGNORE-HIDDEN whether unmapped widgets should be ignored when calculating the size Since 2.8 -- Function: gtk-size-group-get-ignore-hidden (self `') => (ret `bool') -- Method: get-ignore-hidden Returns if invisible widgets are ignored when calculating the size. SIZE-GROUP a `' RET ``#t'' if invisible widgets are ignored. Since 2.8 -- Function: gtk-size-group-add-widget (self `') (widget `') -- Method: add-widget Adds a widget to a `'. In the future, the requisition of the widget will be determined as the maximum of its requisition and the requisition of the other widgets in the size group. Whether this applies horizontally, vertically, or in both directions depends on the mode of the size group. See `gtk-size-group-set-mode'. SIZE-GROUP a `' WIDGET the `' to add -- Function: gtk-size-group-remove-widget (self `') (widget `') -- Method: remove-widget Removes a widget from a `'. SIZE-GROUP a `' WIDGET the `' to remove  File: guile-gnome-gtk.info, Node: GtkTooltips, Next: GtkViewport, Prev: GtkSizeGroup, Up: Top 123 GtkTooltips *************** Add tips to your widgets 123.1 Overview ============== Tooltips are the messages that appear next to a widget when the mouse pointer is held over it for a short amount of time. They are especially helpful for adding more verbose descriptions of things such as buttons in a toolbar. An individual tooltip belongs to a group of tooltips. A group is created with a call to `gtk-tooltips-new'. Every tooltip in the group can then be turned off with a call to `gtk-tooltips-disable' and enabled with `gtk-tooltips-enable'. The length of time the user must keep the mouse over a widget before the tip is shown, can be altered with `gtk-tooltips-set-delay'. This is set on a 'per group of tooltips' basis. To assign a tip to a particular `', `gtk-tooltips-set-tip' is used. Tooltips can only be set on widgets which have their own X window and receive enter and leave events. To check if a widget has its own window use `gtk-widget-no-window'. To add a tooltip to a widget that doesn't have its own window, place the widget inside a `' and add a tooltip to that instead. The default appearance of all tooltips in a program is determined by the current GTK+ theme that the user has selected. Information about the tooltip (if any) associated with an arbitrary widget can be retrieved using `gtk-tooltips-data-get'. GtkWidget *load_button, *save_button, *hbox; GtkTooltips *button_bar_tips; button_bar_tips = gtk_tooltips_new (); /* Create the buttons and pack them into a GtkHBox */ hbox = gtk_hbox_new (TRUE, 2); load_button = gtk_button_new_with_label ("Load a file"); gtk_box_pack_start (GTK_BOX (hbox), load_button, TRUE, TRUE, 2); gtk_widget_show (load_button); save_button = gtk_button_new_with_label ("Save a file"); gtk_box_pack_start (GTK_BOX (hbox), save_button, TRUE, TRUE, 2); gtk_widget_show (save_button); gtk_widget_show (hbox); /* Add the tips */ gtk_tooltips_set_tip (GTK_TOOLTIPS (button_bar_tips), load_button, "Load a new document into this window", "Requests the filename of a document. This will then be loaded into the current window, replacing the contents of whatever is already loaded."); gtk_tooltips_set_tip (GTK_TOOLTIPS (button_bar_tips), save_button, "Saves the current document to a file", "If you have saved the document previously, then the new version will be saved over the old one. Otherwise, you will be prompted for a filename."); 123.2 Usage =========== -- Class: Derives from `'. This class defines no direct slots. -- Function: gtk-tooltips-new => (ret `') Creates an empty group of tooltips. This function initialises a `' structure. Without at least one such structure, you can not add tips to your application. RET a new `' group for you to use. -- Function: gtk-tooltips-enable (self `') -- Method: enable Allows the user to see your tooltips as they navigate your application. TOOLTIPS a `'. -- Function: gtk-tooltips-disable (self `') -- Method: disable Causes all tooltips in TOOLTIPS to become inactive. Any widgets that have tips associated with that group will no longer display their tips until they are enabled again with `gtk-tooltips-enable'. TOOLTIPS a `'. -- Function: gtk-tooltips-set-tip (self `') (widget `') (tip_text `mchars') (tip_private `mchars') -- Method: set-tip Adds a tooltip containing the message TIP-TEXT to the specified `'. TOOLTIPS a `'. WIDGET the `' you wish to associate the tip with. TIP-TEXT a string containing the tip itself. TIP-PRIVATE a string of any further information that may be useful if the user gets stuck. -- Function: gtk-tooltips-force-window (self `') -- Method: force-window Ensures that the window used for displaying the given TOOLTIPS is created. Applications should never have to call this function, since GTK+ takes care of this. TOOLTIPS a `'  File: guile-gnome-gtk.info, Node: GtkViewport, Next: GtkAccessible, Prev: GtkTooltips, Up: Top 124 GtkViewport *************** An adapter which makes widgets scrollable 124.1 Overview ============== 124.2 Usage =========== -- Class: Derives from `'. This class defines the following slots: `hadjustment' The GtkAdjustment that determines the values of the horizontal position for this viewport `vadjustment' The GtkAdjustment that determines the values of the vertical position for this viewport `shadow-type' Determines how the shadowed box around the viewport is drawn -- Signal on : set-scroll-adjustments (arg0 `') (arg1 `') -- Function: gtk-viewport-new (hadjustment `') (vadjustment `') => (ret `') Creates a new `' with the given adjustments. HADJUSTMENT horizontal adjustment. VADJUSTMENT vertical adjustment. RET a new `'. -- Function: gtk-viewport-get-hadjustment (self `') => (ret `') -- Method: get-hadjustment Returns the horizontal adjustment of the viewport. VIEWPORT a `'. RET the horizontal adjustment of VIEWPORT. -- Function: gtk-viewport-get-vadjustment (self `') => (ret `') -- Method: get-vadjustment Returns the vertical adjustment of the viewport. VIEWPORT a `'. RET the vertical adjustment of VIEWPORT. -- Function: gtk-viewport-set-hadjustment (self `') (adjustment `') -- Method: set-hadjustment Sets the horizontal adjustment of the viewport. VIEWPORT a `'. ADJUSTMENT a `'. -- Function: gtk-viewport-set-vadjustment (self `') (adjustment `') -- Method: set-vadjustment Sets the vertical adjustment of the viewport. VIEWPORT a `'. ADJUSTMENT a `'. -- Function: gtk-viewport-set-shadow-type (self `') (type `') -- Method: set-shadow-type Sets the shadow type of the viewport. VIEWPORT a `'. TYPE the new shadow type. -- Function: gtk-viewport-get-shadow-type (self `') => (ret `') -- Method: get-shadow-type Gets the shadow type of the `'. See `gtk-viewport-set-shadow-type'. VIEWPORT a `' RET the shadow type  File: guile-gnome-gtk.info, Node: GtkAccessible, Next: GtkBin, Prev: GtkViewport, Up: Top 125 GtkAccessible ***************** Accessibility support for widgets 125.1 Overview ============== 125.2 Usage =========== -- Class: Derives from `'. This class defines no direct slots.  File: guile-gnome-gtk.info, Node: GtkBin, Next: GtkBox, Prev: GtkAccessible, Up: Top 126 GtkBin ********** A container with just one child 126.1 Overview ============== The `' widget is a container with just one child. It is not very useful itself, but it is useful for deriving subclasses, since it provides common code needed for handling a single child widget. Many GTK+ widgets are subclasses of `', including `', `', `', `', and `'. 126.2 Usage =========== -- Class: Derives from `'. This class defines no direct slots. -- Function: gtk-bin-get-child (self `') => (ret `') -- Method: get-child Gets the child of the `', or ``#f'' if the bin contains no child widget. The returned widget does not have a reference added, so you do not need to unref it. BIN a `' RET pointer to child of the `'  File: guile-gnome-gtk.info, Node: GtkBox, Next: GtkButtonBox, Prev: GtkBin, Up: Top 127 GtkBox ********** Base class for box containers 127.1 Overview ============== GtkBox is an abstract widget which encapsulates functionallity for a particular kind of container, one that organizes a variable number of widgets into a rectangular area. GtkBox currently has two derived classes, `' and `'. The rectangular area of a GtkBox is organized into either a single row or a single column of child widgets depending upon whether the box is of type `' or `', respectively. Thus, all children of a GtkBox are allocated one dimension in common, which is the height of a row, or the width of a column. GtkBox uses a notion of _packing_. Packing refers to adding widgets with reference to a particular position in a `'. For a GtkBox, there are two reference positions: the _start_ and the _end_ of the box. For a `', the start is defined as the top of the box and the end is defined as the bottom. For a `' the start is defined as the left side and the end is defined as the right side. Use repeated calls to `gtk-box-pack-start' to pack widgets into a GtkBox from start to end. Use `gtk-box-pack-end' to add widgets from end to start. You may intersperse these calls and add widgets from both ends of the same GtkBox. Use `gtk-box-pack-start-defaults' or `gtk-box-pack-end-defaults' to pack widgets into a GtkBox if you do not need to specify the , , or attributes of the child to be added. Because GtkBox is a `', you may also use `gtk-container-add' to insert widgets into the box, and they will be packed as if with `gtk-box-pack-start-defaults'. Use `gtk-container-remove' to remove widgets from the GtkBox. Use `gtk-box-set-homogeneous' to specify whether or not all children of the GtkBox are forced to get the same amount of space. Use `gtk-box-set-spacing' to determine how much space will be minimally placed between all children in the GtkBox. Use `gtk-box-reorder-child' to move a GtkBox child to a different place in the box. Use `gtk-box-set-child-packing' to reset the , , and attributes of any GtkBox child. Use `gtk-box-query-child-packing' to query these fields. 127.2 Usage =========== -- Class: Derives from `'. This class defines the following slots: `spacing' The amount of space between children `homogeneous' Whether the children should all be the same size -- Function: gtk-box-pack-start (self `') (child `') (expand `bool') (fill `bool') (padding `unsigned-int') -- Method: pack-start Adds CHILD to BOX, packed with reference to the start of BOX. The CHILD is packed after any other child packed with reference to the start of BOX. BOX a `'. CHILD the `' to be added to BOX. EXPAND ``#t'' if the new child is to be given extra space allocated to BOX. The extra space will be divided evenly between all children of BOX that use this option. FILL ``#t'' if space given to CHILD by the EXPAND option is actually allocated to CHILD, rather than just padding it. This parameter has no effect if EXPAND is set to ``#f''. A child is always allocated the full height of a `' and the full width of a `'. This option affects the other dimension. PADDING extra space in pixels to put between this child and its neighbors, over and above the global amount specified by `'. If CHILD is a widget at one of the reference ends of BOX, then PADDING pixels are also put between CHILD and the reference edge of BOX. -- Function: gtk-box-pack-end (self `') (child `') (expand `bool') (fill `bool') (padding `unsigned-int') -- Method: pack-end Adds CHILD to BOX, packed with reference to the end of BOX. The CHILD is packed after (away from end of) any other child packed with reference to the end of BOX. BOX a `'. CHILD the `' to be added to BOX. EXPAND ``#t'' if the new child is to be given extra space allocated to BOX. The extra space will be divided evenly between all children of BOX that use this option. FILL ``#t'' if space given to CHILD by the EXPAND option is actually allocated to CHILD, rather than just padding it. This parameter has no effect if EXPAND is set to ``#f''. A child is always allocated the full height of a `' and the full width of a `'. This option affects the other dimension. PADDING extra space in pixels to put between this child and its neighbors, over and above the global amount specified by `'. If CHILD is a widget at one of the reference ends of BOX, then PADDING pixels are also put between CHILD and the reference edge of BOX. -- Function: gtk-box-pack-start-defaults (self `') (widget `') -- Method: pack-start-defaults Adds WIDGET to BOX, packed with reference to the start of BOX. The child is packed after any other child packed with reference to the start of BOX. Parameters for how to pack the child WIDGET, `', are given their default values, ``#t'', ``#t'', and 0, respectively. BOX a `'. WIDGET the `' to be added to BOX. -- Function: gtk-box-pack-end-defaults (self `') (widget `') -- Method: pack-end-defaults Adds WIDGET to BOX, packed with reference to the end of BOX. The child is packed after (away from end of) any other child packed with reference to the end of BOX. Parameters for how to pack the child WIDGET, `', are given their default values, ``#t'', ``#t'', and 0, respectively. BOX a `'. WIDGET the `' to be added to BOX. -- Function: gtk-box-get-homogeneous (self `') => (ret `bool') -- Method: get-homogeneous Returns whether the box is homogeneous (all children are the same size). See `gtk-box-set-homogeneous'. BOX a `' RET ``#t'' if the box is homogeneous. -- Function: gtk-box-set-homogeneous (self `') (homogeneous `bool') -- Method: set-homogeneous Sets the whether or not all children of BOX are given equal space in the box. BOX a `'. HOMOGENEOUS a boolean value, ``#t'' to create equal allotments, ``#f'' for variable allotments. -- Function: gtk-box-get-spacing (self `') => (ret `int') -- Method: get-spacing Gets the value set by `gtk-box-set-spacing'. BOX a `' RET spacing between children -- Function: gtk-box-set-spacing (self `') (spacing `int') -- Method: set-spacing Sets the number of pixels to place between children of BOX. BOX a `'. SPACING the number of pixels to put between children. -- Function: gtk-box-reorder-child (self `') (child `') (position `int') -- Method: reorder-child Moves CHILD to a new POSITION in the list of BOX children. The list is the both widgets packed `' as well as widgets packed `', in the order that these widgets were added to BOX. A widget's position in the BOX children list determines where the widget is packed into BOX. A child widget at some position in the list will be packed just after all other widgets of the same packing type that appear earlier in the list. BOX a `'. CHILD the `' to move. POSITION the new position for CHILD in the `', starting from 0. If negative, indicates the end of the list. -- Function: gtk-box-set-child-packing (self `') (child `') (expand `bool') (fill `bool') (padding `unsigned-int') (pack_type `') -- Method: set-child-packing Sets the way CHILD is packed into BOX. BOX a `'. CHILD the `' of the child to set. EXPAND the new value of the FILL the new value of the PADDING the new value of the PACK-TYPE the new value of the  File: guile-gnome-gtk.info, Node: GtkButtonBox, Next: GtkContainer, Prev: GtkBox, Up: Top 128 GtkButtonBox **************** Base class for and 128.1 Overview ============== The primary purpose of this class is to keep track of the various properties of `' and `' widgets. `gtk-button-box-get-child-size' retrieves the minimum width and height for widgets in a given button box. `gtk-button-box-set-child-size' allows those properties to be changed. The internal padding of buttons can be retrieved and changed per button box using `gtk-button-box-get-child-ipadding' and `gtk-button-box-set-child-ipadding' respectively. `gtk-button-box-get-spacing' and `gtk-button-box-set-spacing' retrieve and change default number of pixels between buttons, respectively. `gtk-button-box-get-layout' and `gtk-button-box-set-layout' retrieve and alter the method used to spread the buttons in a button box across the container, respectively. The main purpose of GtkButtonBox is to make sure the children have all the same size. Therefore it ignores the homogeneous property which it inherited from GtkBox, and always behaves as if homogeneous was ``#t''. 128.2 Usage =========== -- Class: Derives from `'. This class defines the following slots: `layout-style' How to layout the buttons in the box. Possible values are default, spread, edge, start and end -- Function: gtk-button-box-get-layout (self `') => (ret `') -- Method: get-layout Retrieves the method being used to arrange the buttons in a button box. WIDGET a `'. RET the method used to layout buttons in WIDGET. -- Function: gtk-button-box-get-child-secondary (self `') (child `') => (ret `bool') -- Method: get-child-secondary Returns whether CHILD should appear in a secondary group of children. WIDGET a `' CHILD a child of WIDGET RET whether CHILD should appear in a secondary group of children. Since 2.4 -- Function: gtk-button-box-set-layout (self `') (layout_style `') -- Method: set-layout Changes the way buttons are arranged in their container. WIDGET a `'. LAYOUT-STYLE the new layout style. -- Function: gtk-button-box-set-child-secondary (self `') (child `') (is_secondary `bool') -- Method: set-child-secondary Sets whether CHILD should appear in a secondary group of children. A typical use of a secondary child is the help button in a dialog. This group appears after the other children if the style is `GTK_BUTTONBOX_START', `GTK_BUTTONBOX_SPREAD' or `GTK_BUTTONBOX_EDGE', and before the other children if the style is `GTK_BUTTONBOX_END'. For horizontal button boxes, the definition of before/after depends on direction of the widget (see `gtk-widget-set-direction'). If the style is `GTK_BUTTONBOX_START' or `GTK_BUTTONBOX_END', then the secondary children are aligned at the other end of the button box from the main children. For the other styles, they appear immediately next to the main children. WIDGET a `' CHILD a child of WIDGET IS-SECONDARY if ``#t'', the CHILD appears in a secondary group of the button box.  File: guile-gnome-gtk.info, Node: GtkContainer, Next: GtkItem, Prev: GtkButtonBox, Up: Top 129 GtkContainer **************** Base class for widgets which contain other widgets 129.1 Overview ============== A GTK+ user interface is constructed by nesting widgets inside widgets. Container widgets are the inner nodes in the resulting tree of widgets: they contain other widgets. So, for example, you might have a `' containing a `' containing a GtkLabel. If you wanted an image instead of a textual label inside the frame, you might replace the `' widget with a `' widget. There are two major kinds of container widgets in GTK+. Both are subclasses of the abstract `' base class. The first type of container widget has a single child widget and derives from `'. These containers are "decorators", which add some kind of functionality to the child. For example, a `' makes its child into a clickable button; a `' draws a frame around its child and a `' places its child widget inside a top-level window. The second type of container can have more than one child; its purpose is to manage "layout". This means that these containers assign sizes and positions to their children. For example, a `' arranges its children in a horizontal row, and a `' arranges the widgets it contains in a two-dimensional grid. To fulfill its task, a layout container must negotiate the size requirements with its parent and its children. This negotiation is carried out in two phases, "size requisition" and "size allocation". 129.2 Size Requisition ====================== The size requisition of a widget is it's desired width and height. This is represented by a `'. How a widget determines its desired size depends on the widget. A `', for example, requests enough space to display all its text. Container widgets generally base their size request on the requisitions of their children. The size requisition phase of the widget layout process operates top-down. It starts at a top-level widget, typically a `'. The top-level widget asks its child for its size requisition by calling `gtk-widget-size-request'. To determine its requisition, the child asks its own children for their requisitions and so on. Finally, the top-level widget will get a requisition back from its child. 129.3 Size Allocation ===================== When the top-level widget has determined how much space its child would like to have, the second phase of the size negotiation, size allocation, begins. Depending on its configuration (see `gtk-window-set-resizable'), the top-level widget may be able to expand in order to satisfy the size request or it may have to ignore the size request and keep its fixed size. It then tells its child widget how much space it gets by calling `gtk-widget-size-allocate'. The child widget divides the space among its children and tells each child how much space it got, and so on. Under normal circumstances, a `' will always give its child the amount of space the child requested. A child's size allocation is represented by a `'. This struct contains not only a width and height, but also a position (i.e. X and Y coordinates), so that containers can tell their children not only how much space they have gotten, but also where they are positioned inside the space available to the container. Widgets are required to honor the size allocation they receive; a size request is only a request, and widgets must be able to cope with any size. 129.4 Child properties ====================== introduces "child properties" - these are object properties that are not specific to either the container or the contained widget, but rather to their relation. Typical examples of child properties are the position or pack-type of a widget which is contained in a `'. Use `gtk-container-class-install-child-property' to install child properties for a container class and `gtk-container-class-find-child-property' or `gtk-container-class-list-child-properties' to get information about existing child properties. To set the value of a child property, use `gtk-container-child-set-property', `gtk-container-child-set' or `gtk-container-child-set-valist'. To obtain the value of a child property, use `gtk-container-child-get-property', `gtk-container-child-get' or `gtk-container-child-get-valist'. To emit notification about child property changes, use `gtk-widget-child-notify'. 129.5 Usage =========== -- Class: Derives from `'. This class defines the following slots: `border-width' The width of the empty border outside the containers children `resize-mode' Specify how resize events are handled `child' Can be used to add a new child to the container -- Signal on : add (arg0 `') -- Signal on : remove (arg0 `') -- Signal on : check-resize -- Signal on : set-focus-child (arg0 `') -- Function: gtk-container-add (self `') (widget `') -- Method: add Adds WIDGET to CONTAINER. Typically used for simple containers such as `', `', or `'; for more complicated layout containers such as `' or `', this function will pick default packing parameters that may not be correct. So consider functions such as `gtk-box-pack-start' and `gtk-table-attach' as an alternative to `gtk-container-add' in those cases. A widget may be added to only one container at a time; you can't place the same widget inside two different containers. CONTAINER a `' WIDGET a widget to be placed inside CONTAINER -- Function: gtk-container-remove (self `') (widget `') -- Method: remove Removes WIDGET from CONTAINER. WIDGET must be inside CONTAINER. Note that CONTAINER will own a reference to WIDGET, and that this may be the last reference held; so removing a widget from its container can destroy that widget. If you want to use WIDGET again, you need to add a reference to it while it's not inside a container, using `g-object-ref'. If you don't want to use WIDGET again it's usually more efficient to simply destroy it directly using `gtk-widget-destroy' since this will remove it from the container and help break any circular reference count cycles. CONTAINER a `' WIDGET a current child of CONTAINER -- Function: gtk-container-get-resize-mode (self `') => (ret `') -- Method: get-resize-mode Returns the resize mode for the container. See `gtk-container-set-resize-mode'. CONTAINER a `' RET the current resize mode -- Function: gtk-container-set-resize-mode (self `') (resize_mode `') -- Method: set-resize-mode Sets the resize mode for the container. The resize mode of a container determines whether a resize request will be passed to the container's parent, queued for later execution or executed immediately. CONTAINER a `'. RESIZE-MODE the new resize mode. -- Function: gtk-container-check-resize (self `') -- Method: check-resize CONTAINER -- Function: gtk-container-get-children (self `') => (ret `glist-of') -- Method: get-children Returns the container's non-internal children. See `gtk-container-forall' for details on what constitutes an "internal" child. CONTAINER a `'. RET a newly-allocated list of the container's non-internal children. -- Function: gtk-container-set-focus-child (self `') (child `') -- Method: set-focus-child CONTAINER CHILD -- Function: gtk-container-get-focus-vadjustment (self `') => (ret `') -- Method: get-focus-vadjustment Retrieves the vertical focus adjustment for the container. See `gtk-container-set-focus-vadjustment'. CONTAINER a `' RET the vertical focus adjustment, or ``#f'' if none has been set. -- Function: gtk-container-set-focus-vadjustment (self `') (adjustment `') -- Method: set-focus-vadjustment Hooks up an adjustment to focus handling in a container, so when a child of the container is focused, the adjustment is scrolled to show that widget. This function sets the vertical alignment. See `gtk-scrolled-window-get-vadjustment' for a typical way of obtaining the adjustment and `gtk-container-set-focus-hadjustment' for setting the horizontal adjustment. The adjustments have to be in pixel units and in the same coordinate system as the allocation for immediate children of the container. CONTAINER a `' ADJUSTMENT an adjustment which should be adjusted when the focus is moved among the descendents of CONTAINER -- Function: gtk-container-get-focus-hadjustment (self `') => (ret `') -- Method: get-focus-hadjustment Retrieves the horizontal focus adjustment for the container. See `gtk-container-set-focus-hadjustment'. CONTAINER a `' RET the horizontal focus adjustment, or ``#f'' if none has been set. -- Function: gtk-container-set-focus-hadjustment (self `') (adjustment `') -- Method: set-focus-hadjustment Hooks up an adjustment to focus handling in a container, so when a child of the container is focused, the adjustment is scrolled to show that widget. This function sets the horizontal alignment. See `gtk-scrolled-window-get-hadjustment' for a typical way of obtaining the adjustment and `gtk-container-set-focus-vadjustment' for setting the vertical adjustment. The adjustments have to be in pixel units and in the same coordinate system as the allocation for immediate children of the container. CONTAINER a `' ADJUSTMENT an adjustment which should be adjusted when the focus is moved among the descendents of CONTAINER -- Function: gtk-container-resize-children (self `') -- Method: resize-children CONTAINER -- Function: gtk-container-child-type (self `') => (ret `') -- Method: child-type Returns the type of the children supported by the container. Note that this may return `G_TYPE_NONE' to indicate that no more children can be added, e.g. for a `' which already has two children. CONTAINER a `'. RET a `'. -- Function: gtk-container-child-get-property (self `') (child `') (property_name `mchars') (value `') -- Method: child-get-property Gets the value of a child property for CHILD and CONTAINER. CONTAINER a `' CHILD a widget which is a child of CONTAINER PROPERTY-NAME the name of the property to get VALUE a location to return the value -- Function: gtk-container-child-set-property (self `') (child `') (property_name `mchars') (value `') -- Method: child-set-property Sets a child property for CHILD and CONTAINER. CONTAINER a `' CHILD a widget which is a child of CONTAINER PROPERTY-NAME the name of the property to set VALUE the value to set the property to -- Function: gtk-container-get-border-width (self `') => (ret `unsigned-int') -- Method: get-border-width Retrieves the border width of the container. See `gtk-container-set-border-width'. CONTAINER a `' RET the current border width -- Function: gtk-container-set-border-width (self `') (border_width `unsigned-int') -- Method: set-border-width Sets the border width of the container. The border width of a container is the amount of space to leave around the outside of the container. The only exception to this is `'; because toplevel windows can't leave space outside, they leave the space inside. The border is added on all sides of the container. To add space to only one side, one approach is to create a `' widget, call `gtk-widget-set-usize' to give it a size, and place it on the side of the container as a spacer. CONTAINER a `' BORDER-WIDTH amount of blank space to leave _outside_ the container. Valid values are in the range 0-65535 pixels. -- Function: gtk-container-propagate-expose (self `') (child `') (event `') -- Method: propagate-expose When a container receives an expose event, it must send synthetic expose events to all children that don't have their own `'. This function provides a convenient way of doing this. A container, when it receives an expose event, calls `gtk-container-propagate-expose' once for each child, passing in the event the container received. `gtk-container-propagate-expose' takes care of deciding whether an expose event needs to be sent to the child, intersecting the event's area with the child area, and sending the event. In most cases, a container can simply either simply inherit the ::expose implementation from `', or, do some drawing and then chain to the ::expose implementation from `'. CONTAINER a `' CHILD a child of CONTAINER EVENT a expose event sent to container -- Function: gtk-container-set-focus-chain (self `') (focusable_widgets `glist-of') -- Method: set-focus-chain Sets a focus chain, overriding the one computed automatically by GTK+. In principle each widget in the chain should be a descendant of the container, but this is not enforced by this method, since it's allowed to set the focus chain before you pack the widgets, or have a widget in the chain that isn't always packed. The necessary checks are done when the focus chain is actually traversed. CONTAINER a `'. FOCUSABLE-WIDGETS the new focus chain. -- Function: gtk-container-unset-focus-chain (self `') -- Method: unset-focus-chain Removes a focus chain explicitly set with `gtk-container-set-focus-chain'. CONTAINER a `'.  File: guile-gnome-gtk.info, Node: GtkItem, Next: GtkMisc, Prev: GtkContainer, Up: Top 130 GtkItem *********** Abstract base class for GtkMenuItem, GtkListItem and GtkTreeItem 130.1 Overview ============== The `' widget is an abstract base class for `', `' and `'. 130.2 Usage =========== -- Class: Derives from `'. This class defines no direct slots. -- Signal on : select Emitted when the item is selected. -- Signal on : deselect Emitted when the item is deselected. -- Signal on : toggle Emitted when the item is toggled. -- Function: gtk-item-select (self `') -- Method: select Emits the "select" signal on the given item. ITEM a `'. -- Function: gtk-item-deselect (self `') -- Method: deselect Emits the "deselect" signal on the given item. ITEM a `'. -- Function: gtk-item-toggle (self `') -- Method: toggle Emits the "toggle" signal on the given item. ITEM a `'.  File: guile-gnome-gtk.info, Node: GtkMisc, Next: GtkObject, Prev: GtkItem, Up: Top 131 GtkMisc *********** Base class for widgets with alignments and padding 131.1 Overview ============== The `' widget is an abstract widget which is not useful itself, but is used to derive subclasses which have alignment and padding attributes. The horizontal and vertical padding attributes allows extra space to be added around the widget. The horizontal and vertical alignment attributes enable the widget to be positioned within its allocated area. Note that if the widget is added to a container in such a way that it expands automatically to fill its allocated area, the alignment settings will not alter the widgets position. 131.2 Usage =========== -- Class: Derives from `'. This class defines the following slots: `xalign' The horizontal alignment, from 0 (left) to 1 (right). Reversed for RTL layouts. `yalign' The vertical alignment, from 0 (top) to 1 (bottom) `xpad' The amount of space to add on the left and right of the widget, in pixels `ypad' The amount of space to add on the top and bottom of the widget, in pixels -- Function: gtk-misc-set-alignment (self `') (xalign `float') (yalign `float') -- Method: set-alignment Sets the alignment of the widget. MISC a `'. XALIGN the horizontal alignment, from 0 (left) to 1 (right). YALIGN the vertical alignment, from 0 (top) to 1 (bottom). -- Function: gtk-misc-set-padding (self `') (xpad `int') (ypad `int') -- Method: set-padding Sets the amount of space to add around the widget. MISC a `'. XPAD the amount of space to add on the left and right of the widget, in pixels. YPAD the amount of space to add on the top and bottom of the widget, in pixels. -- Function: gtk-misc-get-alignment (self `') => (xalign `float') (yalign `float') -- Method: get-alignment Gets the X and Y alignment of the widget within its allocation. See `gtk-misc-set-alignment'. MISC a `' XALIGN location to store X alignment of MISC, or ``#f'' YALIGN location to store Y alignment of MISC, or ``#f'' -- Function: gtk-misc-get-padding (self `') => (xpad `int') (ypad `int') -- Method: get-padding Gets the padding in the X and Y directions of the widget. See `gtk-misc-set-padding'. MISC a `' XPAD location to store padding in the X direction, or ``#f'' YPAD location to store padding in the Y direction, or ``#f''  File: guile-gnome-gtk.info, Node: GtkObject, Next: GtkPaned, Prev: GtkMisc, Up: Top 132 GtkObject ************* The base class of the GTK+ type hierarchy 132.1 Overview ============== 132.2 Description ================= `' is the base class for all widgets, and for a few non-widget objects such as `'. `' predates `'; non-widgets that derive from `' rather than `' do so for backward compatibility reasons. `'s are created with a "floating" reference count. This means that the initial reference is not owned by anyone. Calling `g-object-unref' on a newly-created `' is incorrect, the floating reference has to be removed first. This can be done by anyone at any time, by calling `g-object-ref-sink' to convert the floating reference into a regular reference. `g-object-ref-sink' returns a new reference if an object is already sunk (has no floating reference). When you add a widget to its parent container, the parent container will do this: This means that the container now owns a reference to the child widget and the child widget has no floating reference. g_object_ref_sink (G_OBJECT (child_widget)); The purpose of the floating reference is to keep the child widget alive until you add it to a parent container: button = gtk_button_new (); /* button has one floating reference to keep it alive */ gtk_container_add (GTK_CONTAINER (container), button); /* button has one non-floating reference owned by the container */ `' is a special case, because GTK+ itself will ref/sink it on creation. That is, after calling `gtk-window-new', the `' will have one reference which is owned by GTK+, and no floating references. One more factor comes into play: the "destroy" signal, emitted by the `gtk-object-destroy' method. The "destroy" signal asks all code owning a reference to an object to release said reference. So, for example, if you call `gtk-object-destroy' on a `', GTK+ will release the reference count that it owns; if you call `gtk-object-destroy' on a `', then the button will be removed from its parent container and the parent container will release its reference to the button. Because these references are released, calling `gtk-object-destroy' should result in freeing all memory associated with an object, unless some buggy code fails to release its references in response to the "destroy" signal. Freeing memory (referred to as "finalization" only happens if the reference count reaches zero. Some simple rules for handling `' Never call `g-object-unref' unless you have previously called `g-object-ref', even if you created the `'. (Note: this is _not_ true for `'; for `', the creator of the object owns a reference.) Call `gtk-object-destroy' to get rid of most objects in most cases. In particular, widgets are almost always destroyed in this way. Because of the floating reference count, you don't need to worry about reference counting for widgets and toplevel windows, unless you explicitly call `g-object-ref' yourself. 132.3 Usage =========== -- Class: Derives from `'. This class defines the following slots: `user-data' Anonymous User Data Pointer -- Signal on : destroy Signals that all holders of a reference to the `' should release the reference that they hold. May result in finalization of the object if all references are released.  File: guile-gnome-gtk.info, Node: GtkPaned, Next: GtkRange, Prev: GtkObject, Up: Top 133 GtkPaned ************ Base class for widgets with two adjustable panes 133.1 Overview ============== `' is the base class for widgets with two panes, arranged either horizontally (`') or vertically (`'). Child widgets are added to the panes of the widget with `gtk-paned-pack1' and `gtk-paned-pack2'. The division beween the two children is set by default from the size requests of the children, but it can be adjusted by the user. A paned widget draws a separator between the two child widgets and a small handle that the user can drag to adjust the division. It does not draw any relief around the children or around the separator. (The space in which the separator is called the gutter.) Often, it is useful to put each child inside a `' with the shadow type set to `GTK_SHADOW_IN' so that the gutter appears as a ridge. Each child has two options that can be set, RESIZE and SHRINK. If RESIZE is true, then when the `' is resized, that child will expand or shrink along with the paned widget. If SHRINK is true, then when that child can be made smaller than its requisition by the user. Setting SHRINK to ``#f'' allows the application to set a minimum size. If RESIZE is false for both children, then this is treated as if RESIZE is true for both children. The application can set the position of the slider as if it were set by the user, by calling `gtk-paned-set-position'. GtkWidget *hpaned = gtk_hpaned_new (); GtkWidget *frame1 = gtk_frame_new (NULL); GtkWidget *frame2 = gtk_frame_new (NULL); gtk_frame_set_shadow_type (GTK_FRAME (frame1), GTK_SHADOW_IN); gtk_frame_set_shadow_type (GTK_FRAME (frame2), GTK_SHADOW_IN); gtk_widget_set_size_request (hpaned, 200 + GTK_PANED (hpaned)->gutter_size, -1); gtk_paned_pack1 (GTK_PANED (hpaned), frame1, TRUE, FALSE); gtk_widget_set_size_request (frame1, 50, -1); gtk_paned_pack2 (GTK_PANED (hpaned), frame2, FALSE, FALSE); gtk_widget_set_size_request (frame2, 50, -1); 133.2 Usage =========== -- Class: Derives from `'. This class defines the following slots: `position' Position of paned separator in pixels (0 means all the way to the left/top) `position-set' TRUE if the Position property should be used `min-position' Smallest possible value for the "position" property `max-position' Largest possible value for the "position" property -- Signal on : cycle-child-focus (arg0 `') => `' -- Signal on : toggle-handle-focus => `' -- Signal on : move-handle (arg0 `') => `' -- Signal on : cycle-handle-focus (arg0 `') => `' -- Signal on : accept-position => `' -- Signal on : cancel-position => `' -- Function: gtk-paned-add1 (self `') (child `') -- Method: add1 Adds a child to the top or left pane with default parameters. This is equivalent to `gtk_paned_pack1 (paned, child, FALSE, TRUE)'. PANED a paned widget CHILD the child to add -- Function: gtk-paned-add2 (self `') (child `') -- Method: add2 Adds a child to the bottom or right pane with default parameters. This is equivalent to `gtk_paned_pack2 (paned, child, TRUE, TRUE)'. PANED a paned widget CHILD the child to add -- Function: gtk-paned-pack1 (self `') (child `') (resize `bool') (shrink `bool') -- Method: pack1 Adds a child to the top or left pane. PANED a paned widget CHILD the child to add RESIZE should this child expand when the paned widget is resized. SHRINK can this child be made smaller than its requisition. -- Function: gtk-paned-pack2 (self `') (child `') (resize `bool') (shrink `bool') -- Method: pack2 Adds a child to the bottom or right pane. PANED a paned widget CHILD the child to add RESIZE should this child expand when the paned widget is resized. SHRINK can this child be made smaller than its requisition. -- Function: gtk-paned-get-child1 (self `') => (ret `') -- Method: get-child1 Obtains the first child of the paned widget. PANED a `' widget RET first child, or ``#f'' if it is not set. Since 2.4 -- Function: gtk-paned-get-child2 (self `') => (ret `') -- Method: get-child2 Obtains the second child of the paned widget. PANED a `' widget RET second child, or ``#f'' if it is not set. Since 2.4 -- Function: gtk-paned-set-position (self `') (position `int') -- Method: set-position Sets the position of the divider between the two panes. PANED a `' widget POSITION pixel position of divider, a negative value means that the position is unset. -- Function: gtk-paned-get-position (self `') => (ret `int') -- Method: get-position Obtains the position of the divider between the two panes. PANED a `' widget RET position of the divider  File: guile-gnome-gtk.info, Node: GtkRange, Next: GtkScale, Prev: GtkPaned, Up: Top 134 GtkRange ************ Base class for widgets which visualize an adjustment 134.1 Overview ============== 134.2 Usage =========== -- Class: Derives from `'. This class defines the following slots: `update-policy' How the range should be updated on the screen `adjustment' The GtkAdjustment that contains the current value of this range object `inverted' Invert direction slider moves to increase range value `lower-stepper-sensitivity' The sensitivity policy for the stepper that points to the adjustment's lower side `upper-stepper-sensitivity' The sensitivity policy for the stepper that points to the adjustment's upper side `show-fill-level' Whether to display a fill level indicator graphics on trough. `restrict-to-fill-level' Whether to restrict the upper boundary to the fill level. `fill-level' The fill level. -- Signal on : value-changed Emitted when the range value changes. -- Signal on : adjust-bounds (arg0 `') -- Signal on : move-slider (arg0 `') Virtual function that moves the slider. Used for keybindings. -- Signal on : change-value (arg0 `') (arg1 `') => `' The ::change-value signal is emitted when a scroll action is performed on a range. It allows an application to determine the type of scroll event that occurred and the resultant new value. The application can handle the event itself and return ``#t'' to prevent further processing. Or, by returning ``#f'', it can pass the event to other handlers until the default GTK+ handler is reached. The value parameter is unrounded. An application that overrides the ::change-value signal is responsible for clamping the value to the desired number of decimal digits; the default GTK+ handler clamps the value based on RANGE->ROUND-DIGITS. It is not possible to use delayed update policies in an overridden ::change-value handler. Since 2.6 -- Function: gtk-range-get-adjustment (self `') => (ret `') -- Method: get-adjustment Get the `' which is the "model" object for `'. See `gtk-range-set-adjustment' for details. The return value does not have a reference added, so should not be unreferenced. RANGE a `' RET a `' -- Function: gtk-range-set-update-policy (self `') (policy `') -- Method: set-update-policy Sets the update policy for the range. `' means that anytime the range slider is moved, the range value will change and the value_changed signal will be emitted. `' means that the value will be updated after a brief timeout where no slider motion occurs, so updates are spaced by a short time rather than continuous. `' means that the value will only be updated when the user releases the button and ends the slider drag operation. RANGE a `' POLICY update policy -- Function: gtk-range-set-adjustment (self `') (adjustment `') -- Method: set-adjustment Sets the adjustment to be used as the "model" object for this range widget. The adjustment indicates the current range value, the minimum and maximum range values, the step/page increments used for keybindings and scrolling, and the page size. The page size is normally 0 for `' and nonzero for `', and indicates the size of the visible area of the widget being scrolled. The page size affects the size of the scrollbar slider. RANGE a `' ADJUSTMENT a `' -- Function: gtk-range-get-inverted (self `') => (ret `bool') -- Method: get-inverted Gets the value set by `gtk-range-set-inverted'. RANGE a `' RET ``#t'' if the range is inverted -- Function: gtk-range-set-inverted (self `') (setting `bool') -- Method: set-inverted Ranges normally move from lower to higher values as the slider moves from top to bottom or left to right. Inverted ranges have higher values at the top or on the right rather than on the bottom or left. RANGE a `' SETTING ``#t'' to invert the range -- Function: gtk-range-get-update-policy (self `') => (ret `') -- Method: get-update-policy Gets the update policy of RANGE. See `gtk-range-set-update-policy'. RANGE a `' RET the current update policy -- Function: gtk-range-get-value (self `') => (ret `double') -- Method: get-value Gets the current value of the range. RANGE a `' RET current value of the range. -- Function: gtk-range-set-increments (self `') (step `double') (page `double') -- Method: set-increments Sets the step and page sizes for the range. The step size is used when the user clicks the `' arrows or moves `' via arrow keys. The page size is used for example when moving via Page Up or Page Down keys. RANGE a `' STEP step size PAGE page size -- Function: gtk-range-set-range (self `') (min `double') (max `double') -- Method: set-range Sets the allowable values in the `', and clamps the range value to be between MIN and MAX. (If the range has a non-zero page size, it is clamped between MIN and MAX - page-size.) RANGE a `' MIN minimum range value MAX maximum range value -- Function: gtk-range-set-value (self `') (value `double') -- Method: set-value Sets the current value of the range; if the value is outside the minimum or maximum range values, it will be clamped to fit inside them. The range emits the "value_changed" signal if the value changes. RANGE a `' VALUE new value of the range  File: guile-gnome-gtk.info, Node: GtkScale, Next: GtkScrollbar, Prev: GtkRange, Up: Top 135 GtkScale ************ Base class for GtkHScale and GtkVScale 135.1 Overview ============== A `' is a slider control used to select a numeric value. To use it, you'll probably want to investigate the methods on its base class, `', in addition to the methods for `' itself. To set the value of a scale, you would normally use `gtk-range-set-value'. To detect changes to the value, you would normally use the "value_changed" signal. The `' widget is an abstract class, used only for deriving the subclasses `' and `'. To create a scale widget, call `gtk-hscale-new-with-range' or `gtk-vscale-new-with-range'. 135.2 Usage =========== -- Class: Derives from `'. This class defines the following slots: `digits' The number of decimal places that are displayed in the value `draw-value' Whether the current value is displayed as a string next to the slider `value-pos' The position in which the current value is displayed -- Signal on : format-value (arg0 `') => `' Signal which allows you to change how the scale value is displayed. Connect a signal handler which returns an allocated string representing VALUE. That string will then be used to display the scale's value. Here's an example signal handler which displays a value 1.0 as with "->1.0<-". static gchar* format_value_callback (GtkScale *scale, gdouble value) { return g_strdup_printf ("-->%0.*g<--", gtk_scale_get_digits (scale), value); } -- Function: gtk-scale-set-digits (self `') (digits `int') -- Method: set-digits Sets the number of decimal places that are displayed in the value. Also causes the value of the adjustment to be rounded off to this number of digits, so the retrieved value matches the value the user saw. SCALE a `'. DIGITS the number of decimal places to display, e.g. use 1 to display 1.0, 2 to display 1.00 etc. -- Function: gtk-scale-set-draw-value (self `') (draw_value `bool') -- Method: set-draw-value Specifies whether the current value is displayed as a string next to the slider. SCALE a `'. DRAW-VALUE a boolean. -- Function: gtk-scale-set-value-pos (self `') (pos `') -- Method: set-value-pos Sets the position in which the current value is displayed. SCALE a `'. POS the position in which the current value is displayed. -- Function: gtk-scale-get-digits (self `') => (ret `int') -- Method: get-digits Gets the number of decimal places that are displayed in the value. SCALE a `'. RET the number of decimal places that are displayed. -- Function: gtk-scale-get-draw-value (self `') => (ret `bool') -- Method: get-draw-value Returns whether the current value is displayed as a string next to the slider. SCALE a `'. RET whether the current value is displayed as a string. -- Function: gtk-scale-get-value-pos (self `') => (ret `') -- Method: get-value-pos Gets the position in which the current value is displayed. SCALE a `'. RET the position in which the current value is displayed. -- Function: gtk-scale-get-layout (self `') => (ret `') -- Method: get-layout Gets the `' used to display the scale. The returned object is owned by the scale so does not need to be freed by the caller. SCALE A `' RET the `' for this scale, or ``#f'' if the draw_value property is ``#f''. Since 2.4 -- Function: gtk-scale-get-layout-offsets (self `') => (x `int') (y `int') -- Method: get-layout-offsets Obtains the coordinates where the scale will draw the `' representing the text in the scale. Remember when using the `' function you need to convert to and from pixels using `pango-pixels' or `'. If the draw_value property is ``#f'', the return values are undefined. SCALE a `' X location to store X offset of layout, or ``#f'' Y location to store Y offset of layout, or ``#f'' Since 2.4  File: guile-gnome-gtk.info, Node: GtkScrollbar, Next: GtkSeparator, Prev: GtkScale, Up: Top 136 GtkScrollbar **************** Base class for GtkHScrollbar and GtkVScrollbar 136.1 Overview ============== The `' widget is an abstract base class for `' and `'. It is not very useful in itself. The position of the thumb in a scrollbar is controlled by the scroll adjustments. See `' for the fields in an adjustment - for `', the "value" field represents the position of the scrollbar, which must be between the "lower" field and "upper - page_size." The "page_size" field represents the size of the visible scrollable area. The "step_increment" and "page_increment" fields are used when the user asks to step down (using the small stepper arrows) or page down (using for example the PageDown key). 136.2 Usage =========== -- Class: Derives from `'. This class defines no direct slots.  File: guile-gnome-gtk.info, Node: GtkSeparator, Next: GtkWidget, Prev: GtkScrollbar, Up: Top 137 GtkSeparator **************** Base class for and 137.1 Overview ============== The `' widget is an abstract class, used only for deriving the subclasses `' and `'. 137.2 Usage =========== -- Class: Derives from `'. This class defines no direct slots.  File: guile-gnome-gtk.info, Node: GtkWidget, Next: GtkIMContext, Prev: GtkSeparator, Up: Top 138 GtkWidget ************* Base class for all widgets 138.1 Overview ============== introduces "style properties" - these are basically object properties that are stored not on the object, but in the style object associated to the widget. Style properties are set in resource files. This mechanism is used for configuring such things as the location of the scrollbar arrows through the theme, giving theme authors more control over the look of applications without the need to write a theme engine in C. Use `gtk-widget-class-install-style-property' to install style properties for a widget class, `gtk-widget-class-find-style-property' or `gtk-widget-class-list-style-properties' to get information about existing style properties and `gtk-widget-style-get-property', `gtk-widget-style-get' or `gtk-widget-style-get-valist' to obtain the value of a style property. 138.2 Usage =========== -- Class: Derives from `', `', `'. This class defines the following slots: `name' The name of the widget `parent' The parent widget of this widget. Must be a Container widget `width-request' Override for width request of the widget, or -1 if natural request should be used `height-request' Override for height request of the widget, or -1 if natural request should be used `visible' Whether the widget is visible `sensitive' Whether the widget responds to input `app-paintable' Whether the application will paint directly on the widget `can-focus' Whether the widget can accept the input focus `has-focus' Whether the widget has the input focus `is-focus' Whether the widget is the focus widget within the toplevel `can-default' Whether the widget can be the default widget `has-default' Whether the widget is the default widget `receives-default' If TRUE, the widget will receive the default action when it is focused `composite-child' Whether the widget is part of a composite widget `style' The style of the widget, which contains information about how it will look (colors etc) `events' The event mask that decides what kind of GdkEvents this widget gets `extension-events' The mask that decides what kind of extension events this widget gets `no-show-all' Whether gtk_widget_show_all() should not affect this widget `has-tooltip' Whether this widget has a tooltip `tooltip-markup' The contents of the tooltip for this widget `tooltip-text' The contents of the tooltip for this widget -- Signal on : composited-changed -- Signal on : show -- Signal on : hide -- Signal on : map -- Signal on : unmap -- Signal on : realize -- Signal on : unrealize -- Signal on : size-request (arg0 `') -- Signal on : size-allocate (arg0 `') -- Signal on : state-changed (arg0 `') -- Signal on : parent-set (arg0 `') The parent-set signal is emitted when a new parent has been set on a widget. -- Signal on : hierarchy-changed (arg0 `') Emitted when there is a chance in the hierarchy to which a widget belong. More precisely, a widget is "anchored" when its toplevel ancestor is a `'. This signal is emitted when a widget changes from un-anchored to anchored or vice-versa. -- Signal on : style-set (arg0 `') The style-set signal is emitted when a new style has been set on a widget. Note that style-modifying functions like `gtk-widget-modify-base' also cause this signal to be emitted. -- Signal on : direction-changed (arg0 `') -- Signal on : grab-notify (arg0 `') The ::grab-notify signal is emitted when a widget becomes shadowed by a GTK+ grab (not a pointer or keyboard grab) on another widget, or when it becomes unshadowed due to a grab being removed. A widget is shadowed by a `gtk-grab-add' when the topmost grab widget in the grab stack of its window group is not its ancestor. -- Signal on : child-notify (arg0 `') The ::child-notify signal is emitted for each child property that has changed on an object. The signal's detail holds the property name. -- Signal on : mnemonic-activate (arg0 `') => `' -- Signal on : grab-focus -- Signal on : focus (arg0 `') => `' -- Signal on : move-focus (arg0 `') undocumented -- Signal on : event (arg0 `') => `' -- Signal on : event-after (arg0 `') -- Signal on : button-press-event (arg0 `') => `' -- Signal on : button-release-event (arg0 `') => `' -- Signal on : scroll-event (arg0 `') => `' -- Signal on : motion-notify-event (arg0 `') => `' -- Signal on : keynav-failed (arg0 `') => `' undocumented -- Signal on : delete-event (arg0 `') => `' The ::delete-event signal is emitted if a user requests that a toplevel window is closed. The default handler for this signal destroys the window. Connecting `gtk-widget-hide-on-delete' to this signal will cause the window to be hidden instead, so that it can later be shown again without reconstructing it. -- Signal on : destroy-event (arg0 `') => `' The ::destroy-event signal is emitted when a `' is destroyed. You rarely get this signal, because most widgets disconnect themselves from their window before they destroy it, so no widget owns the window at destroy time. -- Signal on : expose-event (arg0 `') => `' -- Signal on : key-press-event (arg0 `') => `' -- Signal on : key-release-event (arg0 `') => `' -- Signal on : enter-notify-event (arg0 `') => `' -- Signal on : leave-notify-event (arg0 `') => `' -- Signal on : configure-event (arg0 `') => `' -- Signal on : focus-in-event (arg0 `') => `' -- Signal on : focus-out-event (arg0 `') => `' -- Signal on : map-event (arg0 `') => `' -- Signal on : unmap-event (arg0 `') => `' -- Signal on : property-notify-event (arg0 `') => `' -- Signal on : selection-clear-event (arg0 `') => `' -- Signal on : selection-request-event (arg0 `') => `' -- Signal on : selection-notify-event (arg0 `') => `' -- Signal on : selection-received (arg0 `') (arg1 `') -- Signal on : selection-get (arg0 `') (arg1 `') (arg2 `') -- Signal on : proximity-in-event (arg0 `') => `' -- Signal on : proximity-out-event (arg0 `') => `' -- Signal on : drag-leave (arg0 `') (arg1 `') The ::drag-leave signal is emitted on the drop site when the cursor leaves the widget. A typical reason to connect to this signal is to undo things done in ::drag-motion, e.g. undo highlighting with `gtk-drag-unhighlight' -- Signal on : drag-begin (arg0 `') The ::drag-begin signal is emitted on the drag source when a drag is started. A typical reason to connect to this signal is to set up a custom drag icon with `gtk-drag-source-set-icon'. -- Signal on : drag-end (arg0 `') The ::drag-end signal is emitted on the drag source when a drag is finished. A typical reason to connect to this signal is to undo things done in ::drag-begin. -- Signal on : drag-data-delete (arg0 `') The ::drag-data-delete signal is emitted on the drag source when a drag with the action `GDK_ACTION_MOVE' is successfully completed. The signal handler is responsible for deleting the data that has been dropped. What "delete" means, depends on the context of the drag operation. -- Signal on : drag-failed (arg0 `') (arg1 `') => `' undocumented -- Signal on : drag-motion (arg0 `') (arg1 `') (arg2 `') (arg3 `') => `' The ::drag-motion signal is emitted on the drop site when the user moves the cursor over the widget during a drag. The signal handler must determine whether the cursor position is in a drop zone or not. If it is not in a drop zone, it returns ``#f'' and no further processing is necessary. Otherwise, the handler returns ``#t''. In this case, the handler is responsible for providing the necessary information for displaying feedback to the user, by calling `gdk-drag-status'. If the decision whether the drop will be accepted or rejected can't be made based solely on the cursor position and the type of the data, the handler may inspect the dragged data by calling `gtk-drag-get-data' and defer the `gdk-drag-status' call to the ::drag-data-received handler. Note that there is no ::drag-enter signal. The drag receiver has to keep track of whether he has received any ::drag-motion signals since the last ::drag-leave and if not, treat the ::drag-motion signal as an "enter" signal. Upon an "enter", the handler will typically highlight the drop site with `gtk-drag-highlight'. static void drag_motion (GtkWidget *widget, GdkDragContext *context, gint x, gint y, guint time) { GdkAtom target; PrivateData *private_data = GET_PRIVATE_DATA (widget); if (!private_data->drag_highlight) { private_data->drag_highlight = 1; gtk_drag_highlight (widget); } target = gtk_drag_dest_find_target (widget, context, NULL); if (target == GDK_NONE) gdk_drag_status (context, 0, time); else { private_data->pending_status = context->suggested_action; gtk_drag_get_data (widget, context, target, time); } return TRUE; } static void drag_data_received (GtkWidget *widget, GdkDragContext *context, gint x, gint y, GtkSelectionData *selection_data, guint info, guint time) { PrivateData *private_data = GET_PRIVATE_DATA (widget); if (private_data->suggested_action) { private_data->suggested_action = 0; /* We are getting this data due to a request in drag_motion, * rather than due to a request in drag_drop, so we are just * supposed to call gdk_drag_status(), not actually paste in * the data. */ str = gtk_selection_data_get_text (selection_data); if (!data_is_acceptable (str)) gdk_drag_status (context, 0, time); else gdk_drag_status (context, private_data->suggested_action, time); } else { /* accept the drop */ } } -- Signal on : drag-drop (arg0 `') (arg1 `') (arg2 `') (arg3 `') => `' The ::drag-drop signal is emitted on the drop site when the user drops the data onto the widget. The signal handler must determine whether the cursor position is in a drop zone or not. If it is not in a drop zone, it returns ``#f'' and no further processing is necessary. Otherwise, the handler returns ``#t''. In this case, the handler must ensure that `gtk-drag-finish' is called to let the source know that the drop is done. The call to `gtk-drag-finish' can be done either directly or in a ::drag-data-received handler which gets triggered by calling `gtk-drop-get-data' to receive the data for one or more of the supported targets. -- Signal on : drag-data-get (arg0 `') (arg1 `') (arg2 `') (arg3 `') The ::drag-data-get signal is emitted on the drag source when the drop site requests the data which is dragged. It is the responsibility of the signal handler to fill DATA with the data in the format which is indicated by INFO. See `gtk-selection-data-set' and `gtk-selection-data-set-text'. -- Signal on : drag-data-received (arg0 `') (arg1 `') (arg2 `') (arg3 `') (arg4 `') (arg5 `') The ::drag-data-received signal is emitted on the drop site when the dragged data has been received. If the data was received in order to determine whether the drop will be accepted, the handler is expected to call `gdk-drag-status' and _not_ finish the drag. If the data was received in response to a ::drag-drop signal (and this is the last target to be received), the handler for this signal is expected to process the received data and then call `gtk-drag-finish', setting the SUCCESS parameter depending on whether the data was processed successfully. The handler may inspect and modify DRAG-CONTEXT->ACTION before calling `gtk-drag-finish', e.g. to implement `GDK_ACTION_ASK' as shown in the following example: void drag_data_received (GtkWidget *widget, GdkDragContext *drag_context, gint x, gint y, GtkSelectionData *data, guint info, guint time) { if ((data->length >= 0) && (data->format == 8)) { if (drag_context->action == GDK_ACTION_ASK) { GtkWidget *dialog; gint response; dialog = gtk_message_dialog_new (NULL, GTK_DIALOG_MODAL | GTK_DIALOG_DESTROY_WITH_PARENT, GTK_MESSAGE_INFO, GTK_BUTTONS_YES_NO, "Move the data ?\n"); response = gtk_dialog_run (GTK_DIALOG (dialog)); gtk_widget_destroy (dialog); if (response == GTK_RESPONSE_YES) drag_context->action = GDK_ACTION_MOVE; else drag_context->action = GDK_ACTION_COPY; } gtk_drag_finish (drag_context, TRUE, FALSE, time); return; } gtk_drag_finish (drag_context, FALSE, FALSE, time); } -- Signal on : visibility-notify-event (arg0 `') => `' -- Signal on : client-event (arg0 `') => `' -- Signal on : no-expose-event (arg0 `') => `' -- Signal on : window-state-event (arg0 `') => `' -- Signal on : grab-broken-event (arg0 `') => `' Emitted when a pointer or keyboard grab on a window belonging to WIDGET gets broken. On X11, this happens when the grab window becomes unviewable (i.e. it or one of its ancestors is unmapped), or if the same application grabs the pointer or keyboard again. Since 2.8 -- Signal on : query-tooltip (arg0 `') (arg1 `') (arg2 `') (arg3 `') => `' undocumented -- Signal on : popup-menu => `' This signal gets emitted whenever a widget should pop up a context-sensitive menu. This usually happens through the standard key binding mechanism; by pressing a certain key while a widget is focused, the user can cause the widget to pop up a menu. For example, the `' widget creates a menu with clipboard commands. See _(the missing figure, checklist-popup-menu_ for an example of how to use this signal. -- Signal on : show-help (arg0 `') => `' -- Signal on : accel-closures-changed -- Signal on : screen-changed (arg0 `') -- Signal on : can-activate-accel (arg0 `') => `' Determines whether an accelerator that activates the signal identified by SIGNAL-ID can currently be activated. This signal is present to allow applications and derived widgets to override the default `' handling for determining whether an accelerator can be activated. -- Class: Derives from `'. This class defines no direct slots. -- Class: Derives from `'. This class defines no direct slots. -- Function: gtk-widget-destroy (self `') -- Method: destroy Destroys a widget. Equivalent to `gtk-object-destroy', except that you don't have to cast the widget to `'. When a widget is destroyed, it will break any references it holds to other objects. If the widget is inside a container, the widget will be removed from the container. If the widget is a toplevel (derived from `'), it will be removed from the list of toplevels, and the reference GTK+ holds to it will be removed. Removing a widget from its container or the list of toplevels results in the widget being finalized, unless you've added additional references to the widget with `g-object-ref'. In most cases, only toplevel widgets (windows) require explicit destruction, because when you destroy a toplevel its children will be destroyed as well. WIDGET a `' -- Function: gtk-widget-unparent (self `') -- Method: unparent This function is only for use in widget implementations. Should be called by implementations of the remove method on `', to dissociate a child from the container. WIDGET a `' -- Function: gtk-widget-show (self `') -- Method: show Flags a widget to be displayed. Any widget that isn't shown will not appear on the screen. If you want to show all the widgets in a container, it's easier to call `gtk-widget-show-all' on the container, instead of individually showing the widgets. Remember that you have to show the containers containing a widget, in addition to the widget itself, before it will appear onscreen. When a toplevel container is shown, it is immediately realized and mapped; other shown widgets are realized and mapped when their toplevel container is realized and mapped. WIDGET a `' -- Function: gtk-widget-show-now (self `') -- Method: show-now Shows a widget. If the widget is an unmapped toplevel widget (i.e. a `' that has not yet been shown), enter the main loop and wait for the window to actually be mapped. Be careful; because the main loop is running, anything can happen during this function. WIDGET a `' -- Function: gtk-widget-hide (self `') -- Method: hide Reverses the effects of `gtk-widget-show', causing the widget to be hidden (invisible to the user). WIDGET a `' -- Function: gtk-widget-show-all (self `') -- Method: show-all Recursively shows a widget, and any child widgets (if the widget is a container). WIDGET a `' -- Function: gtk-widget-hide-all (self `') -- Method: hide-all Recursively hides a widget and any child widgets. WIDGET a `' -- Function: gtk-widget-map (self `') -- Method: map This function is only for use in widget implementations. Causes a widget to be mapped if it isn't already. WIDGET a `' -- Function: gtk-widget-unmap (self `') -- Method: unmap This function is only for use in widget implementations. Causes a widget to be unmapped if it's currently mapped. WIDGET a `' -- Function: gtk-widget-realize (self `') -- Method: realize Creates the GDK (windowing system) resources associated with a widget. For example, WIDGET->WINDOW will be created when a widget is realized. Normally realization happens implicitly; if you show a widget and all its parent containers, then the widget will be realized and mapped automatically. Realizing a widget requires all the widget's parent widgets to be realized; calling `gtk-widget-realize' realizes the widget's parents in addition to WIDGET itself. If a widget is not yet inside a toplevel window when you realize it, bad things will happen. This function is primarily used in widget implementations, and isn't very useful otherwise. Many times when you think you might need it, a better approach is to connect to a signal that will be called after the widget is realized automatically, such as "expose_event". Or simply `g-signal-connect-after' to the "realize" signal. WIDGET a `' -- Function: gtk-widget-unrealize (self `') -- Method: unrealize This function is only useful in widget implementations. Causes a widget to be unrealized (frees all GDK resources associated with the widget, such as WIDGET->WINDOW). WIDGET a `' -- Function: gtk-widget-queue-draw (self `') -- Method: queue-draw Equivalent to calling `gtk-widget-queue-draw-area' for the entire area of a widget. WIDGET a `' -- Function: gtk-widget-queue-resize (self `') -- Method: queue-resize This function is only for use in widget implementations. Flags a widget to have its size renegotiated; should be called when a widget for some reason has a new size request. For example, when you change the text in a `', `' queues a resize to ensure there's enough space for the new text. WIDGET a `' -- Function: gtk-widget-queue-resize-no-redraw (self `') -- Method: queue-resize-no-redraw This function works like `gtk-widget-queue-resize', except that the widget is not invalidated. WIDGET a `' Since 2.4 -- Function: gtk-widget-size-request (self `') (requisition `') -- Method: size-request This function is typically used when implementing a `' subclass. Obtains the preferred size of a widget. The container uses this information to arrange its child widgets and decide what size allocations to give them with `gtk-widget-size-allocate'. You can also call this function from an application, with some caveats. Most notably, getting a size request requires the widget to be associated with a screen, because font information may be needed. Multihead-aware applications should keep this in mind. Also remember that the size request is not necessarily the size a widget will actually be allocated. See also `gtk-widget-get-child-requisition'. WIDGET a `' REQUISITION a `' to be filled in -- Function: gtk-widget-get-child-requisition (self `') (requisition `') -- Method: get-child-requisition This function is only for use in widget implementations. Obtains WIDGET->REQUISITION, unless someone has forced a particular geometry on the widget (e.g. with `gtk-widget-set-usize'), in which case it returns that geometry instead of the widget's requisition. This function differs from `gtk-widget-size-request' in that it retrieves the last size request value from WIDGET->REQUISITION, while `gtk-widget-size-request' actually calls the "size_request" method on WIDGET to compute the size request and fill in WIDGET->REQUISITION, and only then returns WIDGET->REQUISITION. Because this function does not call the "size_request" method, it can only be used when you know that WIDGET->REQUISITION is up-to-date, that is, `gtk-widget-size-request' has been called since the last time a resize was queued. In general, only container implementations have this information; applications should use `gtk-widget-size-request'. WIDGET a `' REQUISITION a `' to be filled in -- Function: gtk-widget-size-allocate (self `') (allocation `') -- Method: size-allocate This function is only used by `' subclasses, to assign a size and position to their child widgets. WIDGET a `' ALLOCATION position and size to be allocated to WIDGET -- Function: gtk-widget-add-accelerator (self `') (accel_signal `mchars') (accel_group `') (accel_key `unsigned-int') (accel_mods `') (accel_flags `') -- Method: add-accelerator Installs an accelerator for this WIDGET in ACCEL-GROUP that causes ACCEL-SIGNAL to be emitted if the accelerator is activated. The ACCEL-GROUP needs to be added to the widget's toplevel via `gtk-window-add-accel-group', and the signal must be of type `G_RUN_ACTION'. Accelerators added through this function are not user changeable during runtime. If you want to support accelerators that can be changed by the user, use `gtk-accel-map-add-entry' and `gtk-widget-set-accel-path' or `gtk-menu-item-set-accel-path' instead. WIDGET widget to install an accelerator on ACCEL-SIGNAL widget signal to emit on accelerator activation ACCEL-GROUP accel group for this widget, added to its toplevel ACCEL-KEY GDK keyval of the accelerator ACCEL-MODS modifier key combination of the accelerator ACCEL-FLAGS flag accelerators, e.g. `GTK_ACCEL_VISIBLE' -- Function: gtk-widget-remove-accelerator (self `') (accel_group `') (accel_key `unsigned-int') (accel_mods `') => (ret `bool') -- Method: remove-accelerator Removes an accelerator from WIDGET, previously installed with `gtk-widget-add-accelerator'. WIDGET widget to install an accelerator on ACCEL-GROUP accel group for this widget ACCEL-KEY GDK keyval of the accelerator ACCEL-MODS modifier key combination of the accelerator RET whether an accelerator was installed and could be removed -- Function: gtk-widget-set-accel-path (self `') (accel_path `mchars') (accel_group `') -- Method: set-accel-path Given an accelerator group, ACCEL-GROUP, and an accelerator path, ACCEL-PATH, sets up an accelerator in ACCEL-GROUP so whenever the key binding that is defined for ACCEL-PATH is pressed, WIDGET will be activated. This removes any accelerators (for any accelerator group) installed by previous calls to `gtk-widget-set-accel-path'. Associating accelerators with paths allows them to be modified by the user and the modifications to be saved for future use. (See `gtk-accel-map-save'.) This function is a low level function that would most likely be used by a menu creation system like `'. If you use `', setting up accelerator paths will be done automatically. Even when you you aren't using `', if you only want to set up accelerators on menu items `gtk-menu-item-set-accel-path' provides a somewhat more convenient interface. WIDGET a `' ACCEL-PATH path used to look up the accelerator ACCEL-GROUP a `'. -- Function: gtk-widget-list-accel-closures (self `') => (ret `glist-of') -- Method: list-accel-closures Lists the closures used by WIDGET for accelerator group connections with `gtk-accel-group-connect-by-path' or `gtk-accel-group-connect'. The closures can be used to monitor accelerator changes on WIDGET, by connecting to the ::accel_changed signal of the `' of a closure which can be found out with `gtk-accel-group-from-accel-closure'. WIDGET widget to list accelerator closures for RET a newly allocated `' of closures -- Function: gtk-widget-can-activate-accel (self `') (signal_id `unsigned-int') => (ret `bool') -- Method: can-activate-accel Determines whether an accelerator that activates the signal identified by SIGNAL-ID can currently be activated. This is done by emitting the GtkWidget::can-activate-accel signal on WIDGET; if the signal isn't overridden by a handler or in a derived widget, then the default check is that the widget must be sensitive, and the widget and all its ancestors mapped. WIDGET a `' SIGNAL-ID the ID of a signal installed on WIDGET RET ``#t'' if the accelerator can be activated. Since 2.4 -- Function: gtk-widget-event (self `') (event `') => (ret `bool') -- Method: event Rarely-used function. This function is used to emit the event signals on a widget (those signals should never be emitted without using this function to do so). If you want to synthesize an event though, don't use this function; instead, use `gtk-main-do-event' so the event will behave as if it were in the event queue. Don't synthesize expose events; instead, use `gdk-window-invalidate-rect' to invalidate a region of the window. WIDGET a `' EVENT a `' RET return from the event signal emission (``#t'' if the event was handled) -- Function: gtk-widget-activate (self `') => (ret `bool') -- Method: activate For widgets that can be "activated" (buttons, menu items, etc.) this function activates them. Activation is what happens when you press Enter on a widget during key navigation. If WIDGET isn't activatable, the function returns ``#f''. WIDGET a `' that's activatable RET ``#t'' if the widget was activatable -- Function: gtk-widget-reparent (self `') (new_parent `') -- Method: reparent Moves a widget from one `' to another, handling reference count issues to avoid destroying the widget. WIDGET a `' NEW-PARENT a `' to move the widget into -- Function: gtk-widget-is-focus (self `') => (ret `bool') -- Method: is-focus Determines if the widget is the focus widget within its toplevel. (This does not mean that the `HAS_FOCUS' flag is necessarily set; `HAS_FOCUS' will only be set if the toplevel widget additionally has the global input focus.) WIDGET a `' RET ``#t'' if the widget is the focus widget. -- Function: gtk-widget-grab-focus (self `') -- Method: grab-focus Causes WIDGET to have the keyboard focus for the `' it's inside. WIDGET must be a focusable widget, such as a `'; something like `' won't work. (More precisely, it must have the `GTK_CAN_FOCUS' flag set.) WIDGET a `' -- Function: gtk-widget-grab-default (self `') -- Method: grab-default Causes WIDGET to become the default widget. WIDGET must have the `GTK_CAN_DEFAULT' flag set; typically you have to set this flag yourself by calling `GTK_WIDGET_SET_FLAGS (WIDGET, GTK_CAN_DEFAULT)'. The default widget is activated when the user presses Enter in a window. Default widgets must be activatable, that is, `gtk-widget-activate' should affect them. WIDGET a `' -- Function: gtk-widget-set-name (self `') (name `mchars') -- Method: set-name Widgets can be named, which allows you to refer to them from a gtkrc file. You can apply a style to widgets with a particular name in the gtkrc file. See the documentation for gtkrc files (on the same page as the docs for `'). Note that widget names are separated by periods in paths (see `gtk-widget-path'), so names with embedded periods may cause confusion. WIDGET a `' NAME name for the widget -- Function: gtk-widget-get-name (self `') => (ret `mchars') -- Method: get-name Retrieves the name of a widget. See `gtk-widget-set-name' for the significance of widget names. WIDGET a `' RET name of the widget. This string is owned by GTK+ and should not be modified or freed -- Function: gtk-widget-set-state (self `') (state `') -- Method: set-state This function is for use in widget implementations. Sets the state of a widget (insensitive, prelighted, etc.) Usually you should set the state using wrapper functions such as `gtk-widget-set-sensitive'. WIDGET a `' STATE new state for WIDGET -- Function: gtk-widget-set-sensitive (self `') (sensitive `bool') -- Method: set-sensitive Sets the sensitivity of a widget. A widget is sensitive if the user can interact with it. Insensitive widgets are "grayed out" and the user can't interact with them. Insensitive widgets are known as "inactive", "disabled", or "ghosted" in some other toolkits. WIDGET a `' SENSITIVE ``#t'' to make the widget sensitive -- Function: gtk-widget-set-parent (self `') (parent `') -- Method: set-parent This function is useful only when implementing subclasses of `'. Sets the container as the parent of WIDGET, and takes care of some details such as updating the state and style of the child to reflect its new location. The opposite function is `gtk-widget-unparent'. WIDGET a `' PARENT parent container -- Function: gtk-widget-set-parent-window (self `') (parent_window `') -- Method: set-parent-window Sets a non default parent window for WIDGET. WIDGET a `'. PARENT-WINDOW the new parent window. -- Function: gtk-widget-get-parent-window (self `') => (ret `') -- Method: get-parent-window Gets WIDGET's parent window. WIDGET a `'. RET the parent window of WIDGET. -- Function: gtk-widget-set-events (self `') (events `') -- Method: set-events Sets the event mask (see `') for a widget. The event mask determines which events a widget will receive. Keep in mind that different widgets have different default event masks, and by changing the event mask you may disrupt a widget's functionality, so be careful. This function must be called while a widget is unrealized. Consider `gtk-widget-add-events' for widgets that are already realized, or if you want to preserve the existing event mask. This function can't be used with `' widgets; to get events on those widgets, place them inside a `' and receive events on the event box. WIDGET a `' EVENTS event mask -- Function: gtk-widget-add-events (self `') (events `') -- Method: add-events Adds the events in the bitfield EVENTS to the event mask for WIDGET. See `gtk-widget-set-events' for details. WIDGET a `' EVENTS an event mask, see `' -- Function: gtk-widget-set-extension-events (self `') (mode `') -- Method: set-extension-events Sets the extension events mask to MODE. See `' and `gdk-input-set-extension-events'. WIDGET a `' MODE bitfield of extension events to receive -- Function: gtk-widget-get-extension-events (self `') => (ret `') -- Method: get-extension-events Retrieves the extension events the widget will receive; see `gdk-input-set-extension-events'. WIDGET a `' RET extension events for WIDGET -- Function: gtk-widget-get-toplevel (self `') => (ret `') -- Method: get-toplevel This function returns the topmost widget in the container hierarchy WIDGET is a part of. If WIDGET has no parent widgets, it will be returned as the topmost widget. No reference will be added to the returned widget; it should not be unreferenced. Note the difference in behavior vs. `gtk-widget-get-ancestor'; `gtk_widget_get_ancestor (widget, GTK_TYPE_WINDOW)' would return ``#f'' if WIDGET wasn't inside a toplevel window, and if the window was inside a `' widget which was in turn inside the toplevel `'. While the second case may seem unlikely, it actually happens when a `' is embedded inside a `' within the same application. To reliably find the toplevel `', use `gtk-widget-get-toplevel' and check if the `TOPLEVEL' flags is set on the result. GtkWidget *toplevel = gtk_widget_get_toplevel (widget); if (GTK_WIDGET_TOPLEVEL (toplevel)) { [ Perform action on toplevel. ] } WIDGET a `' RET the topmost ancestor of WIDGET, or WIDGET itself if there's no ancestor. -- Function: gtk-widget-get-ancestor (self `') (widget_type `') => (ret `') -- Method: get-ancestor Gets the first ancestor of WIDGET with type WIDGET-TYPE. For example, `gtk_widget_get_ancestor (widget, GTK_TYPE_BOX)' gets the first `' that's an ancestor of WIDGET. No reference will be added to the returned widget; it should not be unreferenced. See note about checking for a toplevel `' in the docs for `gtk-widget-get-toplevel'. Note that unlike `gtk-widget-is-ancestor', `gtk-widget-get-ancestor' considers WIDGET to be an ancestor of itself. WIDGET a `' WIDGET-TYPE ancestor type RET the ancestor widget, or ``#f'' if not found -- Function: gtk-widget-get-colormap (self `') => (ret `') -- Method: get-colormap Gets the colormap that will be used to render WIDGET. No reference will be added to the returned colormap; it should not be unreferenced. WIDGET a `' RET the colormap used by WIDGET -- Function: gtk-widget-set-colormap (self `') (colormap `') -- Method: set-colormap Sets the colormap for the widget to the given value. Widget must not have been previously realized. This probably should only be used from an ``init'' function (i.e. from the constructor for the widget). WIDGET a `' COLORMAP a colormap -- Function: gtk-widget-get-visual (self `') => (ret `') -- Method: get-visual Gets the visual that will be used to render WIDGET. WIDGET a `' RET the visual for WIDGET -- Function: gtk-widget-get-events (self `') => (ret `int') -- Method: get-events Returns the event mask for the widget (a bitfield containing flags from the `' enumeration). These are the events that the widget will receive. WIDGET a `' RET event mask for WIDGET -- Function: gtk-widget-get-pointer (self `') => (x `int') (y `int') -- Method: get-pointer Obtains the location of the mouse pointer in widget coordinates. Widget coordinates are a bit odd; for historical reasons, they are defined as WIDGET->WINDOW coordinates for widgets that are not `' widgets, and are relative to WIDGET->ALLOCATION.X, WIDGET->ALLOCATION.Y for widgets that are `' widgets. WIDGET a `' X return location for the X coordinate, or ``#f'' Y return location for the Y coordinate, or ``#f'' -- Function: gtk-widget-is-ancestor (self `') (ancestor `') => (ret `bool') -- Method: is-ancestor Determines whether WIDGET is somewhere inside ANCESTOR, possibly with intermediate containers. WIDGET a `' ANCESTOR another `' RET ``#t'' if ANCESTOR contains WIDGET as a child, grandchild, great grandchild, etc. -- Function: gtk-widget-translate-coordinates (self `') (dest_widget `') (src_x `int') (src_y `int') => (ret `bool') (dest_x `int') (dest_y `int') -- Method: translate-coordinates Translate coordinates relative to SRC-WIDGET's allocation to coordinates relative to DEST-WIDGET's allocations. In order to perform this operation, both widgets must be realized, and must share a common toplevel. SRC-WIDGET a `' DEST-WIDGET a `' SRC-X X position relative to SRC-WIDGET SRC-Y Y position relative to SRC-WIDGET DEST-X location to store X position relative to DEST-WIDGET DEST-Y location to store Y position relative to DEST-WIDGET RET ``#f'' if either widget was not realized, or there was no common ancestor. In this case, nothing is stored in *DEST-X and *DEST-Y. Otherwise ``#t''. -- Function: gtk-widget-hide-on-delete (self `') => (ret `bool') -- Method: hide-on-delete Utility function; intended to be connected to the "delete_event" signal on a `'. The function calls `gtk-widget-hide' on its argument, then returns ``#t''. If connected to "delete_event", the result is that clicking the close button for a window (on the window frame, top right corner usually) will hide but not destroy the window. By default, GTK+ destroys windows when "delete_event" is received. WIDGET a `' RET ``#t'' -- Function: gtk-widget-set-style (self `') (style `') -- Method: set-style Sets the `' for a widget (WIDGET->STYLE). You probably don't want to use this function; it interacts badly with themes, because themes work by replacing the `'. Instead, use `gtk-widget-modify-style'. WIDGET a `' STYLE a `', or ``#f'' to remove the effect of a previous `gtk-widget-set-style' and go back to the default style -- Function: gtk-widget-ensure-style (self `') -- Method: ensure-style Ensures that WIDGET has a style (WIDGET->STYLE). Not a very useful function; most of the time, if you want the style, the widget is realized, and realized widgets are guaranteed to have a style already. WIDGET a `' -- Function: gtk-widget-get-style (self `') => (ret `') -- Method: get-style Simply an accessor function that returns WIDGET->STYLE. WIDGET a `' RET the widget's `' -- Function: gtk-widget-reset-rc-styles (self `') -- Method: reset-rc-styles Reset the styles of WIDGET and all descendents, so when they are looked up again, they get the correct values for the currently loaded RC file settings. This function is not useful for applications. WIDGET a `'. -- Function: gtk-widget-push-colormap (cmap `') Pushes CMAP onto a global stack of colormaps; the topmost colormap on the stack will be used to create all widgets. Remove CMAP with `gtk-widget-pop-colormap'. There's little reason to use this function. CMAP a `' -- Function: gtk-widget-pop-colormap Removes a colormap pushed with `gtk-widget-push-colormap'. -- Function: gtk-widget-set-default-colormap (colormap `') Sets the default colormap to use when creating widgets. `gtk-widget-push-colormap' is a better function to use if you only want to affect a few widgets, rather than all widgets. COLORMAP a `' -- Function: gtk-widget-get-default-style => (ret `') Returns the default style used by all widgets initially. RET the default style. This `' object is owned by GTK+ and should not be modified or freed. -- Function: gtk-widget-get-default-colormap => (ret `') Obtains the default colormap used to create widgets. RET default widget colormap -- Function: gtk-widget-get-default-visual => (ret `') Obtains the visual of the default colormap. Not really useful; used to be useful before `gdk-colormap-get-visual' existed. RET visual of the default colormap -- Function: gtk-widget-set-direction (self `') (dir `') -- Method: set-direction Sets the reading direction on a particular widget. This direction controls the primary direction for widgets containing text, and also the direction in which the children of a container are packed. The ability to set the direction is present in order so that correct localization into languages with right-to-left reading directions can be done. Generally, applications will let the default reading direction present, except for containers where the containers are arranged in an order that is explicitely visual rather than logical (such as buttons for text justification). If the direction is set to `GTK_TEXT_DIR_NONE', then the value set by `gtk-widget-set-default-direction' will be used. WIDGET a `' DIR the new direction -- Function: gtk-widget-get-direction (self `') => (ret `') -- Method: get-direction Gets the reading direction for a particular widget. See `gtk-widget-set-direction'. WIDGET a `' RET the reading direction for the widget. -- Function: gtk-widget-set-default-direction (dir `') Sets the default reading direction for widgets where the direction has not been explicitly set by `gtk-widget-set-direction'. DIR the new default direction. This cannot be `GTK_TEXT_DIR_NONE'. -- Function: gtk-widget-get-default-direction => (ret `') Obtains the current default reading direction. See `gtk-widget-set-default-direction'. RET the current default direction. -- Function: gtk-widget-shape-combine-mask (self `') (shape_mask `') (offset_x `int') (offset_y `int') -- Method: shape-combine-mask Sets a shape for this widget's GDK window. This allows for transparent windows etc., see `gdk-window-shape-combine-mask' for more information. WIDGET a `'. SHAPE-MASK shape to be added, or ``#f'' to remove an existing shape. OFFSET-X X position of shape mask with respect to WINDOW. OFFSET-Y Y position of shape mask with respect to WINDOW. -- Function: gtk-widget-input-shape-combine-mask (self `') (shape_mask `') (offset_x `int') (offset_y `int') -- Method: input-shape-combine-mask Sets an input shape for this widget's GDK window. This allows for windows which react to mouse click in a nonrectangular region, see `gdk-window-input-shape-combine-mask' for more information. WIDGET a `'. SHAPE-MASK shape to be added, or ``#f'' to remove an existing shape. OFFSET-X X position of shape mask with respect to WINDOW. OFFSET-Y Y position of shape mask with respect to WINDOW. Since 2.10 -- Function: gtk-widget-path (self `') => (path_length `unsigned-int') (path `mchars') (path_reversed `mchars') -- Method: path Obtains the full path to WIDGET. The path is simply the name of a widget and all its parents in the container hierarchy, separated by periods. The name of a widget comes from `gtk-widget-get-name'. Paths are used to apply styles to a widget in gtkrc configuration files. Widget names are the type of the widget by default (e.g. "GtkButton") or can be set to an application-specific value with `gtk-widget-set-name'. By setting the name of a widget, you allow users or theme authors to apply styles to that specific widget in their gtkrc file. PATH-REVERSED-P fills in the path in reverse order, i.e. starting with WIDGET's name instead of starting with the name of WIDGET's outermost ancestor. WIDGET a `' PATH-LENGTH location to store length of the path, or ``#f'' PATH location to store allocated path string, or ``#f'' PATH-REVERSED location to store allocated reverse path string, or ``#f'' -- Function: gtk-widget-class-path (self `') => (path_length `unsigned-int') (path `mchars') (path_reversed `mchars') -- Method: class-path Same as `gtk-widget-path', but always uses the name of a widget's type, never uses a custom name set with `gtk-widget-set-name'. WIDGET a `' PATH-LENGTH location to store the length of the class path, or ``#f'' PATH location to store the class path as an allocated string, or ``#f'' PATH-REVERSED location to store the reverse class path as an allocated string, or ``#f'' -- Function: gtk-widget-get-composite-name (self `') => (ret `mchars') -- Method: get-composite-name Obtains the composite name of a widget. WIDGET a `'. RET the composite name of WIDGET, or ``#f'' if WIDGET is not a composite child. The string should not be freed when it is no longer needed. -- Function: gtk-widget-modify-style (self `') (style `') -- Method: modify-style Modifies style values on the widget. Modifications made using this technique take precedence over style values set via an RC file, however, they will be overriden if a style is explicitely set on the widget using `gtk-widget-set-style'. The `' structure is designed so each field can either be set or unset, so it is possible, using this function, to modify some style values and leave the others unchanged. Note that modifications made with this function are not cumulative with previous calls to `gtk-widget-modify-style' or with such functions as `gtk-widget-modify-fg'. If you wish to retain previous values, you must first call `gtk-widget-get-modifier-style', make your modifications to the returned style, then call `gtk-widget-modify-style' with that style. On the other hand, if you first call `gtk-widget-modify-style', subsequent calls to such functions `gtk-widget-modify-fg' will have a cumulative effect with the initial modifications. WIDGET a `' STYLE the `' holding the style modifications -- Function: gtk-widget-get-modifier-style (self `') => (ret `') -- Method: get-modifier-style Returns the current modifier style for the widget. (As set by `gtk-widget-modify-style'.) If no style has previously set, a new `' will be created with all values unset, and set as the modifier style for the widget. If you make changes to this rc style, you must call `gtk-widget-modify-style', passing in the returned rc style, to make sure that your changes take effect. Caution: passing the style back to `gtk-widget-modify-style' will normally end up destroying it, because `gtk-widget-modify-style' copies the passed-in style and sets the copy as the new modifier style, thus dropping any reference to the old modifier style. Add a reference to the modifier style if you want to keep it alive. WIDGET a `' RET the modifier style for the widget. This rc style is owned by the widget. If you want to keep a pointer to value this around, you must add a refcount using `g-object-ref'. -- Function: gtk-widget-modify-fg (self `') (state `') (color `') -- Method: modify-fg Sets the foreground color for a widget in a particular state. All other style values are left untouched. See also `gtk-widget-modify-style'. WIDGET a `'. STATE the state for which to set the foreground color. COLOR the color to assign (does not need to be allocated), or ``#f'' to undo the effect of previous calls to of `gtk-widget-modify-fg'. -- Function: gtk-widget-modify-bg (self `') (state `') (color `') -- Method: modify-bg Sets the background color for a widget in a particular state. All other style values are left untouched. See also `gtk-widget-modify-style'. Note that "no window" widgets (which have the `GTK_NO_WINDOW' flag set) draw on their parent container's window and thus may not draw any background themselves. This is the case for e.g. `'. To modify the background of such widgets, you have to set the background color on their parent; if you want to set the background of a rectangular area around a label, try placing the label in a `' widget and setting the background color on that. WIDGET a `'. STATE the state for which to set the background color. COLOR the color to assign (does not need to be allocated), or ``#f'' to undo the effect of previous calls to of `gtk-widget-modify-bg'. -- Function: gtk-widget-modify-text (self `') (state `') (color `') -- Method: modify-text Sets the text color for a widget in a particular state. All other style values are left untouched. The text color is the foreground color used along with the base color (see `gtk-widget-modify-base') for widgets such as `' and `'. See also `gtk-widget-modify-style'. WIDGET a `'. STATE the state for which to set the text color. COLOR the color to assign (does not need to be allocated), or ``#f'' to undo the effect of previous calls to of `gtk-widget-modify-text'. -- Function: gtk-widget-modify-base (self `') (state `') (color `') -- Method: modify-base Sets the base color for a widget in a particular state. All other style values are left untouched. The base color is the background color used along with the text color (see `gtk-widget-modify-text') for widgets such as `' and `'. See also `gtk-widget-modify-style'. Note that "no window" widgets (which have the `GTK_NO_WINDOW' flag set) draw on their parent container's window and thus may not draw any background themselves. This is the case for e.g. `'. To modify the background of such widgets, you have to set the base color on their parent; if you want to set the background of a rectangular area around a label, try placing the label in a `' widget and setting the base color on that. WIDGET a `'. STATE the state for which to set the base color. COLOR the color to assign (does not need to be allocated), or ``#f'' to undo the effect of previous calls to of `gtk-widget-modify-base'. -- Function: gtk-widget-modify-font (self `') (font_desc `') -- Method: modify-font Sets the font to use for a widget. All other style values are left untouched. See also `gtk-widget-modify-style'. WIDGET a `' FONT-DESC the font description to use, or ``#f'' to undo the effect of previous calls to `gtk-widget-modify-font'. -- Function: gtk-widget-create-pango-context (self `') => (ret `') -- Method: create-pango-context Creates a new `' with the appropriate font map, font description, and base direction for drawing text for this widget. See also `gtk-widget-get-pango-context'. WIDGET a `' RET the new `' -- Function: gtk-widget-get-pango-context (self `') => (ret `') -- Method: get-pango-context Gets a `' with the appropriate font map, font description, and base direction for this widget. Unlike the context returned by `gtk-widget-create-pango-context', this context is owned by the widget (it can be used until the screen for the widget changes or the widget is removed from its toplevel), and will be updated to match any changes to the widget's attributes. If you create and keep a `' using this context, you must deal with changes to the context by calling `pango-layout-context-changed' on the layout in response to the ::style-set and ::direction-changed signals for the widget. WIDGET a `' RET the `' for the widget. -- Function: gtk-widget-create-pango-layout (self `') (text `mchars') => (ret `') -- Method: create-pango-layout Creates a new `' with the appropriate font map, font description, and base direction for drawing text for this widget. If you keep a `' created in this way around, in order to notify the layout of changes to the base direction or font of this widget, you must call `pango-layout-context-changed' in response to the ::style-set and ::direction-changed signals for the widget. WIDGET a `' TEXT text to set on the layout (can be ``#f'') RET the new `' -- Function: gtk-widget-render-icon (self `') (stock_id `mchars') (size `') (detail `mchars') => (ret `') -- Method: render-icon A convenience function that uses the theme engine and RC file settings for WIDGET to look up STOCK-ID and render it to a pixbuf. STOCK-ID should be a stock icon ID such as `' or `'. SIZE should be a size such as `'. DETAIL should be a string that identifies the widget or code doing the rendering, so that theme engines can special-case rendering for that widget or code. The pixels in the returned `' are shared with the rest of the application and should not be modified. The pixbuf should be freed after use with `g-object-unref'. WIDGET a `' STOCK-ID a stock ID SIZE a stock size. A size of (GtkIconSize)-1 means render at the size of the source and don't scale (if there are multiple source sizes, GTK+ picks one of the available sizes). DETAIL render detail to pass to theme engine RET a new pixbuf, or ``#f'' if the stock ID wasn't known -- Function: gtk-widget-pop-composite-child Cancels the effect of a previous call to `gtk-widget-push-composite-child'. -- Function: gtk-widget-push-composite-child Makes all newly-created widgets as composite children until the corresponding `gtk-widget-pop-composite-child' call. A composite child is a child that's an implementation detail of the container it's inside and should not be visible to people using the container. Composite children aren't treated differently by GTK (but see `gtk-container-foreach' vs. `gtk-container-forall'), but e.g. GUI builders might want to treat them in a different way. Here is a simple example: gtk_widget_push_composite_child (); scrolled_window->hscrollbar = gtk_hscrollbar_new (hadjustment); gtk_widget_set_composite_name (scrolled_window->hscrollbar, "hscrollbar"); gtk_widget_pop_composite_child (); gtk_widget_set_parent (scrolled_window->hscrollbar, GTK_WIDGET (scrolled_window)); g_object_ref (scrolled_window->hscrollbar); -- Function: gtk-widget-queue-draw-area (self `') (x `int') (y `int') (width `int') (height `int') -- Method: queue-draw-area Invalidates the rectangular area of WIDGET defined by X, Y, WIDTH and HEIGHT by calling `gdk-window-invalidate-rect' on the widget's window and all its child windows. Once the main loop becomes idle (after the current batch of events has been processed, roughly), the window will receive expose events for the union of all regions that have been invalidated. Normally you would only use this function in widget implementations. You might also use it, or `gdk-window-invalidate-rect' directly, to schedule a redraw of a `' or some portion thereof. Frequently you can just call `gdk-window-invalidate-rect' or `gdk-window-invalidate-region' instead of this function. Those functions will invalidate only a single window, instead of the widget and all its children. The advantage of adding to the invalidated region compared to simply drawing immediately is efficiency; using an invalid region ensures that you only have to redraw one time. WIDGET a `' X x coordinate of upper-left corner of rectangle to redraw Y y coordinate of upper-left corner of rectangle to redraw WIDTH width of region to draw HEIGHT height of region to draw -- Function: gtk-widget-reset-shapes (self `') -- Method: reset-shapes Recursively resets the shape on this widget and its descendants. WIDGET a `'. -- Function: gtk-widget-set-app-paintable (self `') (app_paintable `bool') -- Method: set-app-paintable Sets whether the application intends to draw on the widget in an ::expose-event handler. This is a hint to the widget and does not affect the behavior of the GTK+ core; many widgets ignore this flag entirely. For widgets that do pay attention to the flag, such as `' and `', the effect is to suppress default themed drawing of the widget's background. (Children of the widget will still be drawn.) The application is then entirely responsible for drawing the widget background. Note that the background is still drawn when the widget is mapped. If this is not suitable (e.g. because you want to make a transparent window using an RGBA visual), you can work around this by doing: gtk_widget_realize (window); gdk_window_set_back_pixmap (window->window, NULL, FALSE); gtk_widget_show (window); WIDGET a `' APP-PAINTABLE ``#t'' if the application will paint on the widget -- Function: gtk-widget-set-double-buffered (self `') (double_buffered `bool') -- Method: set-double-buffered Widgets are double buffered by default; you can use this function to turn off the buffering. "Double buffered" simply means that `gdk-window-begin-paint-region' and `gdk-window-end-paint' are called automatically around expose events sent to the widget. `gdk-window-begin-paint' diverts all drawing to a widget's window to an offscreen buffer, and `gdk-window-end-paint' draws the buffer to the screen. The result is that users see the window update in one smooth step, and don't see individual graphics primitives being rendered. In very simple terms, double buffered widgets don't flicker, so you would only use this function to turn off double buffering if you had special needs and really knew what you were doing. Note: if you turn off double-buffering, you have to handle expose events, since even the clearing to the background color or pixmap will not happen automatically (as it is done in `gdk-window-begin-paint'). WIDGET a `' DOUBLE-BUFFERED ``#t'' to double-buffer a widget -- Function: gtk-widget-set-redraw-on-allocate (self `') (redraw_on_allocate `bool') -- Method: set-redraw-on-allocate Sets whether the entire widget is queued for drawing when its size allocation changes. By default, this setting is ``#t'' and the entire widget is redrawn on every size change. If your widget leaves the upper left unchanged when made bigger, turning this setting on will improve performance. Note that for `NO_WINDOW' widgets setting this flag to ``#f'' turns off all allocation on resizing: the widget will not even redraw if its position changes; this is to allow containers that don't draw anything to avoid excess invalidations. If you set this flag on a `NO_WINDOW' widget that _does_ draw on WIDGET->WINDOW, you are responsible for invalidating both the old and new allocation of the widget when the widget is moved and responsible for invalidating regions newly when the widget increases size. WIDGET a `' REDRAW-ON-ALLOCATE if ``#t'', the entire widget will be redrawn when it is allocated to a new size. Otherwise, only the new portion of the widget will be redrawn. -- Function: gtk-widget-set-composite-name (self `') (name `mchars') -- Method: set-composite-name Sets a widgets composite name. The widget must be a composite child of its parent; see `gtk-widget-push-composite-child'. WIDGET a `'. NAME the name to set. -- Function: gtk-widget-set-scroll-adjustments (self `') (hadjustment `') (vadjustment `') => (ret `bool') -- Method: set-scroll-adjustments For widgets that support scrolling, sets the scroll adjustments and returns ``#t''. For widgets that don't support scrolling, does nothing and returns ``#f''. Widgets that don't support scrolling can be scrolled by placing them in a `', which does support scrolling. WIDGET a `' HADJUSTMENT an adjustment for horizontal scrolling, or ``#f'' VADJUSTMENT an adjustment for vertical scrolling, or ``#f'' RET ``#t'' if the widget supports scrolling -- Function: gtk-widget-mnemonic-activate (self `') (group_cycling `bool') => (ret `bool') -- Method: mnemonic-activate WIDGET GROUP-CYCLING RET -- Function: gtk-widget-region-intersect (self `') (region `') => (ret `') -- Method: region-intersect Computes the intersection of a WIDGET's area and REGION, returning the intersection. The result may be empty, use `gdk-region-empty' to check. WIDGET a `' REGION a `', in the same coordinate system as WIDGET->ALLOCATION. That is, relative to WIDGET->WINDOW for `NO_WINDOW' widgets; relative to the parent window of WIDGET->WINDOW for widgets with their own window. RET A newly allocated region holding the intersection of WIDGET and REGION. The coordinates of the return value are relative to WIDGET->WINDOW for `NO_WINDOW' widgets, and relative to the parent window of WIDGET->WINDOW for widgets with their own window. -- Function: gtk-widget-send-expose (self `') (event `') => (ret `int') -- Method: send-expose Very rarely-used function. This function is used to emit an expose event signals on a widget. This function is not normally used directly. The only time it is used is when propagating an expose event to a child `NO_WINDOW' widget, and that is normally done using `gtk-container-propagate-expose'. If you want to force an area of a window to be redrawn, use `gdk-window-invalidate-rect' or `gdk-window-invalidate-region'. To cause the redraw to be done immediately, follow that call with a call to `gdk-window-process-updates'. WIDGET a `' EVENT a expose `' RET return from the event signal emission (``#t'' if the event was handled) -- Function: gtk-widget-style-get-property (self `') (property_name `mchars') (value `') -- Method: style-get-property Gets the value of a style property of WIDGET. WIDGET a `' PROPERTY-NAME the name of a style property VALUE location to return the property value -- Function: gtk-widget-get-accessible (self `') => (ret `') -- Method: get-accessible Returns the accessible object that describes the widget to an assistive technology. If no accessibility library is loaded (i.e. no ATK implementation library is loaded via `GTK_MODULES' or via another application library, such as libgnome), then this `' instance may be a no-op. Likewise, if no class-specific `' implementation is available for the widget instance in question, it will inherit an `' implementation from the first ancestor class for which such an implementation is defined. The documentation of the ATK (http://developer.gnome.org/doc/API/2.0/atk/index.html) library contains more information about accessible objects and their uses. WIDGET a `' RET the `' associated with WIDGET -- Function: gtk-widget-child-focus (self `') (direction `') => (ret `bool') -- Method: child-focus This function is used by custom widget implementations; if you're writing an app, you'd use `gtk-widget-grab-focus' to move the focus to a particular widget, and `gtk-container-set-focus-chain' to change the focus tab order. So you may want to investigate those functions instead. `gtk-widget-child-focus' is called by containers as the user moves around the window using keyboard shortcuts. DIRECTION indicates what kind of motion is taking place (up, down, left, right, tab forward, tab backward). `gtk-widget-child-focus' invokes the "focus" signal on `'; widgets override the default handler for this signal in order to implement appropriate focus behavior. The "focus" default handler for a widget should return ``#t'' if moving in DIRECTION left the focus on a focusable location inside that widget, and ``#f'' if moving in DIRECTION moved the focus outside the widget. If returning ``#t'', widgets normally call `gtk-widget-grab-focus' to place the focus accordingly; if returning ``#f'', they don't modify the current focus location. This function replaces `gtk-container-focus' from GTK+ 1.2. It was necessary to check that the child was visible, sensitive, and focusable before calling `gtk-container-focus'. `gtk-widget-child-focus' returns ``#f'' if the widget is not currently in a focusable state, so there's no need for those checks. WIDGET a `' DIRECTION direction of focus movement RET ``#t'' if focus ended up inside WIDGET -- Function: gtk-widget-child-notify (self `') (child_property `mchars') -- Method: child-notify Emits a "child-notify" signal for the child propertyCHILD-PROPERTY on WIDGET. This is the analogue of `g-object-notify' for child properties. WIDGET a `' CHILD-PROPERTY the name of a child property installed on the class of WIDGET's parent. -- Function: gtk-widget-freeze-child-notify (self `') -- Method: freeze-child-notify Stops emission of "child-notify" signals on WIDGET. The signals are queued until `gtk-widget-thaw-child-notify' is called on WIDGET. This is the analogue of `g-object-freeze-notify' for child properties. WIDGET a `' -- Function: gtk-widget-get-child-visible (self `') => (ret `bool') -- Method: get-child-visible Gets the value set with `gtk-widget-set-child-visible'. If you feel a need to use this function, your code probably needs reorganization. This function is only useful for container implementations and never should be called by an application. WIDGET a `' RET ``#t'' if the widget is mapped with the parent. -- Function: gtk-widget-get-parent (self `') => (ret `') -- Method: get-parent Returns the parent container of WIDGET. WIDGET a `' RET the parent container of WIDGET, or ``#f'' -- Function: gtk-widget-get-settings (self `') => (ret `') -- Method: get-settings Gets the settings object holding the settings (global property settings, RC file information, etc) used for this widget. Note that this function can only be called when the `' is attached to a toplevel, since the settings object is specific to a particular `'. WIDGET a `' RET the relevant `' object -- Function: gtk-widget-get-clipboard (self `') (selection `') => (ret `') -- Method: get-clipboard Returns the clipboard object for the given selection to be used with WIDGET. WIDGET must have a `' associated with it, so must be attached to a toplevel window. WIDGET a `' SELECTION a `' which identifies the clipboard to use. `GDK_SELECTION_CLIPBOARD' gives the default clipboard. Another common value is `GDK_SELECTION_PRIMARY', which gives the primary X selection. RET the appropriate clipboard object. If no clipboard already exists, a new one will be created. Once a clipboard object has been created, it is persistent for all time. Since 2.2 -- Function: gtk-widget-get-display (self `') => (ret `') -- Method: get-display Get the `' for the toplevel window associated with this widget. This function can only be called after the widget has been added to a widget hierarchy with a `' at the top. In general, you should only create display specific resources when a widget has been realized, and you should free those resources when the widget is unrealized. WIDGET a `' RET the `' for the toplevel for this widget. Since 2.2 -- Function: gtk-widget-get-root-window (self `') => (ret `') -- Method: get-root-window Get the root window where this widget is located. This function can only be called after the widget has been added to a widget heirarchy with `' at the top. The root window is useful for such purposes as creating a popup `' associated with the window. In general, you should only create display specific resources when a widget has been realized, and you should free those resources when the widget is unrealized. WIDGET a `' RET the `' root window for the toplevel for this widget. Since 2.2 -- Function: gtk-widget-get-screen (self `') => (ret `') -- Method: get-screen Get the `' from the toplevel window associated with this widget. This function can only be called after the widget has been added to a widget hierarchy with a `' at the top. In general, you should only create screen specific resources when a widget has been realized, and you should free those resources when the widget is unrealized. WIDGET a `' RET the `' for the toplevel for this widget. Since 2.2 -- Function: gtk-widget-has-screen (self `') => (ret `bool') -- Method: has-screen Checks whether there is a `' is associated with this widget. All toplevel widgets have an associated screen, and all widgets added into a heirarchy with a toplevel window at the top. WIDGET a `' RET ``#t'' if there is a `' associcated with the widget. Since 2.2 -- Function: gtk-widget-get-size-request (self `') => (width `int') (height `int') -- Method: get-size-request Gets the size request that was explicitly set for the widget using `gtk-widget-set-size-request'. A value of -1 stored in WIDTH or HEIGHT indicates that that dimension has not been set explicitly and the natural requisition of the widget will be used intead. See `gtk-widget-set-size-request'. To get the size a widget will actually use, call `gtk-widget-size-request' instead of this function. WIDGET a `' WIDTH return location for width, or ``#f'' HEIGHT return location for height, or ``#f'' -- Function: gtk-widget-set-child-visible (self `') (is_visible `bool') -- Method: set-child-visible Sets whether WIDGET should be mapped along with its when its parent is mapped and WIDGET has been shown with `gtk-widget-show'. The child visibility can be set for widget before it is added to a container with `gtk-widget-set-parent', to avoid mapping children unnecessary before immediately unmapping them. However it will be reset to its default state of ``#t'' when the widget is removed from a container. Note that changing the child visibility of a widget does not queue a resize on the widget. Most of the time, the size of a widget is computed from all visible children, whether or not they are mapped. If this is not the case, the container can queue a resize itself. This function is only useful for container implementations and never should be called by an application. WIDGET a `' IS-VISIBLE if ``#t'', WIDGET should be mapped along with its parent. -- Function: gtk-widget-set-size-request (self `') (width `int') (height `int') -- Method: set-size-request Sets the minimum size of a widget; that is, the widget's size request will be WIDTH by HEIGHT. You can use this function to force a widget to be either larger or smaller than it normally would be. In most cases, `gtk-window-set-default-size' is a better choice for toplevel windows than this function; setting the default size will still allow users to shrink the window. Setting the size request will force them to leave the window at least as large as the size request. When dealing with window sizes, `gtk-window-set-geometry-hints' can be a useful function as well. Note the inherent danger of setting any fixed size - themes, translations into other languages, different fonts, and user action can all change the appropriate size for a given widget. So, it's basically impossible to hardcode a size that will always be correct. The size request of a widget is the smallest size a widget can accept while still functioning well and drawing itself correctly. However in some strange cases a widget may be allocated less than its requested size, and in many cases a widget may be allocated more space than it requested. If the size request in a given direction is -1 (unset), then the "natural" size request of the widget will be used instead. Widgets can't actually be allocated a size less than 1 by 1, but you can pass 0,0 to this function to mean "as small as possible." WIDGET a `' WIDTH width WIDGET should request, or -1 to unset HEIGHT height WIDGET should request, or -1 to unset -- Function: gtk-widget-thaw-child-notify (self `') -- Method: thaw-child-notify Reverts the effect of a previous call to `gtk-widget-freeze-child-notify'. This causes all queued "child-notify" signals on WIDGET to be emitted. WIDGET a `' -- Function: gtk-widget-set-no-show-all (self `') (no_show_all `bool') -- Method: set-no-show-all Sets the "no_show_all" property, which determines whether calls to `gtk-widget-show-all' and `gtk-widget-hide-all' will affect this widget. This is mostly for use in constructing widget hierarchies with externally controlled visibility, see `'. WIDGET a `' NO-SHOW-ALL the new value for the "no_show_all" property Since 2.4 -- Function: gtk-widget-get-no-show-all (self `') => (ret `bool') -- Method: get-no-show-all Returns the current value of the "no_show_all" property, which determines whether calls to `gtk-widget-show-all' and `gtk-widget-hide-all' will affect this widget. WIDGET a `' RET the current value of the "no_show_all" property. Since 2.4 -- Function: gtk-widget-list-mnemonic-labels (self `') => (ret `glist-of') -- Method: list-mnemonic-labels Returns a newly allocated list of the widgets, normally labels, for which this widget is a the target of a mnemonic (see for example, `gtk-label-set-mnemonic-widget'). The widgets in the list are not individually referenced. If you want to iterate through the list and perform actions involving callbacks that might destroy the widgets, you _must_ call `g_list_foreach (result, (GFunc)g_object_ref, NULL)' first, and then unref all the widgets afterwards. WIDGET a `' RET the list of mnemonic labels; free this list with `g-list-free' when you are done with it. Since 2.4 -- Function: gtk-widget-add-mnemonic-label (self `') (label `') -- Method: add-mnemonic-label Adds a widget to the list of mnemonic labels for this widget. (See `gtk-widget-list-mnemonic-labels'). Note the list of mnemonic labels for the widget is cleared when the widget is destroyed, so the caller must make sure to update its internal state at this point as well, by using a connection to the ::destroy signal or a weak notifier. WIDGET a `' LABEL a `' that acts as a mnemonic label for WIDGET. Since 2.4 -- Function: gtk-widget-remove-mnemonic-label (self `') (label `') -- Method: remove-mnemonic-label Removes a widget from the list of mnemonic labels for this widget. (See `gtk-widget-list-mnemonic-labels'). The widget must have previously been added to the list with `gtk-widget-add-mnemonic-label'. WIDGET a `' LABEL a `' that was previously set as a mnemnic label for WIDGET with `gtk-widget-add-mnemonic-label'. Since 2.4 -- Function: gtk-widget-get-action (self `') => (ret `') -- Method: get-action Returns the `' that WIDGET is a proxy for. See also `gtk-action-get-proxies'. WIDGET a `' RET the action that a widget is a proxy for, or ``#f'', if it is not attached to an action. Since 2.10 -- Function: gtk-widget-is-composited (self `') => (ret `bool') -- Method: is-composited Whether WIDGET can rely on having its alpha channel drawn correctly. On X11 this function returns whether a compositing manager is running for WIDGET's screen WIDGET a `' RET ``#t'' if the widget can rely on its alpha channel being drawn correctly. Since 2.10 -- Function: gtk-requisition-copy (self `') => (ret `') Copies a `'. REQUISITION a `'. RET a copy of REQUISITION.  File: guile-gnome-gtk.info, Node: GtkIMContext, Next: GtkPlug, Prev: GtkWidget, Up: Top 139 GtkIMContext **************** Base class for input method contexts 139.1 Overview ============== 139.2 Usage =========== -- Class: Derives from `'. This class defines no direct slots. -- Signal on : preedit-start -- Signal on : preedit-end -- Signal on : preedit-changed -- Signal on : commit (arg0 `') -- Signal on : retrieve-surrounding => `' -- Signal on : delete-surrounding (arg0 `') (arg1 `') => `' -- Function: gtk-im-context-set-client-window (self `') (window `') -- Method: set-client-window Set the client window for the input context; this is the `' in which the input appears. This window is used in order to correctly position status windows, and may also be used for purposes internal to the input method. CONTEXT a `' WINDOW the client window. This may be ``#f'' to indicate that the previous client window no longer exists. -- Function: gtk-im-context-filter-keypress (self `') (event `') => (ret `bool') -- Method: filter-keypress Allow an input method to internally handle key press and release events. If this function returns ``#t'', then no further processing should be done for this key event. CONTEXT a `' EVENT the key event RET ``#t'' if the input method handled the key event. -- Function: gtk-im-context-focus-in (self `') -- Method: focus-in Notify the input method that the widget to which this input context corresponds has gained focus. The input method may, for example, change the displayed feedback to reflect this change. CONTEXT a `' -- Function: gtk-im-context-focus-out (self `') -- Method: focus-out Notify the input method that the widget to which this input context corresponds has lost focus. The input method may, for example, change the displayed feedback or reset the contexts state to reflect this change. CONTEXT a `' -- Function: gtk-im-context-reset (self `') -- Method: reset Notify the input method that a change such as a change in cursor position has been made. This will typically cause the input method to clear the preedit state. CONTEXT a `' -- Function: gtk-im-context-set-cursor-location (self `') (area `') -- Method: set-cursor-location Notify the input method that a change in cursor position has been made. The location is relative to the client window. CONTEXT a `' AREA new location -- Function: gtk-im-context-set-use-preedit (self `') (use_preedit `bool') -- Method: set-use-preedit Sets whether the IM context should use the preedit string to display feedback. If USE-PREEDIT is FALSE (default is TRUE), then the IM context may use some other method to display feedback, such as displaying it in a child of the root window. CONTEXT a `' USE-PREEDIT whether the IM context should use the preedit string. -- Function: gtk-im-context-set-surrounding (self `') (text `mchars') (len `int') (cursor_index `int') -- Method: set-surrounding Sets surrounding context around the insertion point and preedit string. This function is expected to be called in response to the GtkIMContext::retrieve_surrounding signal, and will likely have no effect if called at other times. CONTEXT a `' TEXT text surrounding the insertion point, as UTF-8. the preedit string should not be included within TEXT. LEN the length of TEXT, or -1 if TEXT is nul-terminated CURSOR-INDEX the byte index of the insertion cursor within TEXT. -- Function: gtk-im-context-get-surrounding (self `') => (ret `bool') (text `mchars') (cursor_index `int') -- Method: get-surrounding Retrieves context around the insertion point. Input methods typically want context in order to constrain input text based on existing text; this is important for languages such as Thai where only some sequences of characters are allowed. This function is implemented by emitting the GtkIMContext::retrieve_surrounding signal on the input method; in response to this signal, a widget should provide as much context as is available, up to an entire paragraph, by calling `gtk-im-context-set-surrounding'. Note that there is no obligation for a widget to respond to the ::retrieve_surrounding signal, so input methods must be prepared to function without context. CONTEXT a `' TEXT location to store a UTF-8 encoded string of text holding context around the insertion point. If the function returns ``#t'', then you must free the result stored in this location with `g-free'. CURSOR-INDEX location to store byte index of the insertion cursor within TEXT. RET ``#t'' if surrounding text was provided; in this case you must free the result stored in *text. -- Function: gtk-im-context-delete-surrounding (self `') (offset `int') (n_chars `int') => (ret `bool') -- Method: delete-surrounding Asks the widget that the input context is attached to to delete characters around the cursor position by emitting the GtkIMContext::delete_surrounding signal. Note that OFFSET and N-CHARS are in characters not in bytes which differs from the usage other places in `'. In order to use this function, you should first call `gtk-im-context-get-surrounding' to get the current context, and call this function immediately afterwards to make sure that you know what you are deleting. You should also account for the fact that even if the signal was handled, the input context might not have deleted all the characters that were requested to be deleted. This function is used by an input method that wants to make subsitutions in the existing text in response to new input. It is not useful for applications. CONTEXT a `' OFFSET offset from cursor position in chars; a negative value means start before the cursor. N-CHARS number of characters to delete. RET ``#t'' if the signal was handled.  File: guile-gnome-gtk.info, Node: GtkPlug, Next: GtkSocket, Prev: GtkIMContext, Up: Top 140 GtkPlug *********** Toplevel for embedding into other processes 140.1 Overview ============== Together with `', `' provides the ability to embed widgets from one process into another process in a fashion that is transparent to the user. One process creates a `' widget and, passes the ID of that widgets window to the other process, which then creates a `' with that window ID. Any widgets contained in the `' then will appear inside the first applications window. The `' and `' widgets are currently not available on all platforms supported by GTK+. 140.2 Usage =========== -- Class: Derives from `'. This class defines the following slots: `embedded' Whether or not the plug is embedded -- Signal on : embedded -- Function: gtk-plug-construct (self `') (socket_id `unsigned-long') -- Method: construct Finish the initialization of PLUG for a given `' identified by SOCKET-ID. This function will generally only be used by classes deriving from `'. PLUG a `'. SOCKET-ID the XID of the socket's window. -- Function: gtk-plug-construct-for-display (self `') (display `') (socket_id `unsigned-long') -- Method: construct-for-display Finish the initialization of PLUG for a given `' identified by SOCKET-ID which is currently displayed on DISPLAY. This function will generally only be used by classes deriving from `'. PLUG a `'. DISPLAY the `' associated with SOCKET-ID's `'. SOCKET-ID the XID of the socket's window. Since 2.2 -- Function: gtk-plug-new (socket_id `unsigned-long') => (ret `') Creates a new plug widget inside the `' identified by SOCKET-ID. If SOCKET-ID is 0, the plug is left "unplugged" and can later be plugged into a `' by `gtk-socket-add-id'. SOCKET-ID the window ID of the socket, or 0. RET the new `' widget. -- Function: gtk-plug-new-for-display (display `') (socket_id `unsigned-long') => (ret `') Create a new plug widget inside the `' identified by socket_id. DISPLAY the `' on which SOCKET-ID is displayed SOCKET-ID the XID of the socket's window. RET the new `' widget. Since 2.2 -- Function: gtk-plug-get-id (self `') => (ret `unsigned-long') -- Method: get-id Gets the window ID of a `' widget, which can then be used to embed this window inside another window, for instance with `gtk-socket-add-id'. PLUG a `'. RET the window ID for the plug  File: guile-gnome-gtk.info, Node: GtkSocket, Next: GtkCurve, Prev: GtkPlug, Up: Top 141 GtkSocket ************* Container for widgets from other processes 141.1 Overview ============== Together with `', `' provides the ability to embed widgets from one process into another process in a fashion that is transparent to the user. One process creates a `' widget and, passes the that widget's window ID to the other process, which then creates a `' with that window ID. Any widgets contained in the `' then will appear inside the first applications window. The socket's window ID is obtained by using `gtk-socket-get-id'. Before using this function, the socket must have been realized, and for hence, have been added to its parent. GtkWidget *socket = gtk_socket_new (); gtk_widget_show (socket); gtk_container_add (GTK_CONTAINER (parent), socket); /* The following call is only necessary if one of * the ancestors of the socket is not yet visible. */ gtk_widget_realize (socket); g_print ("The ID of the sockets window is %x\n", gtk_socket_get_id (socket)); Note that if you pass the window ID of the socket to another process that will create a plug in the socket, you must make sure that the socket widget is not destroyed until that plug is created. Violating this rule will cause unpredictable consequences, the most likely consequence being that the plug will appear as a separate toplevel window. You can check if the plug has been created by examining the field of the `' structure. If this field is non-``#f'', then the plug has been successfully created inside of the socket. When GTK+ is notified that the embedded window has been destroyed, then it will destroy the socket as well. You should always, therefore, be prepared for your sockets to be destroyed at any time when the main event loop is running. The communication between a `' and a `' follows the XEmbed (http://www.freedesktop.org/standards/xembed-spec) protocol. This protocol has also been implemented in other toolkits, e.g. , allowing the same level of integration when embedding a widget in GTK or vice versa. A socket can also be used to swallow arbitrary pre-existing top-level windows using `gtk-socket-steal', though the integration when this is done will not be as close as between a `' and a `'. The `' and `' widgets are currently not available on all platforms supported by GTK+. 141.2 Usage =========== -- Class: Derives from `'. This class defines no direct slots. -- Signal on : plug-added This signal is emitted when a client is successfully added to the socket. -- Signal on : plug-removed => `' This signal is emitted when a client is removed from the socket. The default action is to destroy the `' widget, so if you want to reuse it you must add a signal handler that returns ``#t''. -- Function: gtk-socket-new => (ret `') Create a new empty `'. RET the new `'. -- Function: gtk-socket-add-id (self `') (window_id `unsigned-long') -- Method: add-id Adds an XEMBED client, such as a `', to the `'. The client may be in the same process or in a different process. To embed a `' in a `', you can either create the `' with `gtk_plug_new (0)', call `gtk-plug-get-id' to get the window ID of the plug, and then pass that to the `gtk-socket-add-id', or you can call `gtk-socket-get-id' to get the window ID for the socket, and call `gtk-plug-new' passing in that ID. The `' must have already be added into a toplevel window before you can make this call. SOCKET a `' WINDOW-ID the window ID of a client participating in the XEMBED protocol. -- Function: gtk-socket-get-id (self `') => (ret `unsigned-long') -- Method: get-id Gets the window ID of a `' widget, which can then be used to create a client embedded inside the socket, for instance with `gtk-plug-new'. The `' must have already be added into a toplevel window before you can make this call. SOCKET a `'. RET the window ID for the socket  File: guile-gnome-gtk.info, Node: GtkCurve, Next: GtkGammaCurve, Prev: GtkSocket, Up: Top 142 GtkCurve ************ Allows direct editing of a curve 142.1 Overview ============== This widget is considered too specialized/little-used for GTK+, and will in the future be moved to some other package. If your application needs this widget, feel free to use it, as the widget does work and is useful in some applications; it's just not of general interest. However, we are not accepting new features for the widget, and it will eventually move out of the GTK+ distribution. The `' widget allows the user to edit a curve covering a range of values. It is typically used to fine-tune color balances in graphics applications like the Gimp. The `' widget has 3 modes of operation - spline, linear and free. In spline mode the user places points on the curve which are automatically connected together into a smooth curve. In linear mode the user places points on the curve which are connected by straight lines. In free mode the user can draw the points of the curve freely, and they are not connected at all. 142.2 Usage =========== -- Class: Derives from `'. This class defines the following slots: `curve-type' Is this curve linear, spline interpolated, or free-form `min-x' Minimum possible value for X `max-x' Maximum possible X value `min-y' Minimum possible value for Y `max-y' Maximum possible value for Y -- Signal on : curve-type-changed Emitted when the curve type has been changed. The curve type can be changed explicitly with a call to `gtk-curve-set-curve-type'. It is also changed as a side-effect of calling `gtk-curve-reset' or `gtk-curve-set-gamma'. -- Function: gtk-curve-new => (ret `') Creates a new `'. RET a new `'. -- Function: gtk-curve-reset (self `') -- Method: reset Resets the curve to a straight line from the minimum x and y values to the maximum x and y values (i.e. from the bottom-left to the top-right corners). The curve type is not changed. CURVE a `'. -- Function: gtk-curve-set-gamma (self `') (gamma `float') -- Method: set-gamma Recomputes the entire curve using the given gamma value. A gamma value of 1 results in a straight line. Values greater than 1 result in a curve above the straight line. Values less than 1 result in a curve below the straight line. The curve type is changed to `GTK_CURVE_TYPE_FREE'. FIXME: Needs a more precise definition of gamma. CURVE a `'. GAMMA the gamma value. -- Function: gtk-curve-set-range (self `') (min_x `float') (max_x `float') (min_y `float') (max_y `float') -- Method: set-range Sets the minimum and maximum x and y values of the curve. The curve is also reset with a call to `gtk-curve-reset'. CURVE a `'. MIN-X the minimum x value. MAX-X the maximum x value. MIN-Y the minimum y value. MAX-Y the maximum y value.  File: guile-gnome-gtk.info, Node: GtkGammaCurve, Next: GtkRuler, Prev: GtkCurve, Up: Top 143 GtkGammaCurve ***************** a subclass of for editing gamma curves. 143.1 Overview ============== This widget is considered too specialized/little-used for GTK+, and will in the future be moved to some other package. If your application needs this widget, feel free to use it, as the widget does work and is useful in some applications; it's just not of general interest. However, we are not accepting new features for the widget, and it will eventually move out of the GTK+ distribution. The `' widget is a variant of `' specifically for editing gamma curves, which are used in graphics applications such as the Gimp. The `' widget shows a curve which the user can edit with the mouse just like a `' widget. On the right of the curve it also displays 5 buttons, 3 of which change between the 3 curve modes (spline, linear and free), and the other 2 set the curve to a particular gamma value, or reset it to a straight line. 143.2 Usage =========== -- Class: Derives from `'. This class defines no direct slots. -- Function: gtk-gamma-curve-new => (ret `') Creates a new `'. RET a new `'.  File: guile-gnome-gtk.info, Node: GtkRuler, Next: GtkHRuler, Prev: GtkGammaCurve, Up: Top 144 GtkRuler ************ Base class for horizontal or vertical rulers 144.1 Overview ============== This widget is considered too specialized/little-used for GTK+, and will in the future be moved to some other package. If your application needs this widget, feel free to use it, as the widget does work and is useful in some applications; it's just not of general interest. However, we are not accepting new features for the widget, and it will eventually move out of the GTK+ distribution. The GTKRuler widget is a base class for horizontal and vertical rulers. Rulers are used to show the mouse pointer's location in a window. The ruler can either be horizontal or vertical on the window. Within the ruler a small triangle indicates the location of the mouse relative to the horizontal or vertical ruler. See `' to learn how to create a new horizontal ruler. See `' to learn how to create a new vertical ruler. 144.2 Usage =========== -- Class: Derives from `'. This class defines the following slots: `lower' Lower limit of ruler `upper' Upper limit of ruler `position' Position of mark on the ruler `max-size' Maximum size of the ruler `metric' The metric used for the ruler -- Function: gtk-ruler-set-metric (self `') (metric `') -- Method: set-metric This calls the `' to set the ruler to units defined. Available units are GTK_PIXELS, GTK_INCHES, or GTK_CENTIMETERS. The default unit of measurement is GTK_PIXELS. RULER the gtkruler METRIC the unit of measurement -- Function: gtk-ruler-set-range (self `') (lower `double') (upper `double') (position `double') (max_size `double') -- Method: set-range This sets the range of the ruler using gfloat lower, gfloat upper, gfloat position, and gfloat max_size. RULER the gtkruler LOWER the lower limit of the ruler UPPER the upper limit of the ruler POSITION the mark on the ruler MAX-SIZE the maximum size of the ruler -- Function: gtk-ruler-get-metric (self `') => (ret `') -- Method: get-metric Gets the units used for a `'. See `gtk-ruler-set-metric'. RULER a `' RET the units currently used for RULER -- Function: gtk-ruler-get-range (self `') => (lower `double') (upper `double') (position `double') (max_size `double') -- Method: get-range Retrieves values indicating the range and current position of a `'. See `gtk-ruler-set-range'. RULER a `' LOWER location to store lower limit of the ruler, or ``#f'' UPPER location to store upper limit of the ruler, or ``#f'' POSITION location to store the current position of the mark on the ruler, or ``#f'' MAX-SIZE location to store the maximum size of the ruler used when calculating the space to leave for the text, or ``#f''.  File: guile-gnome-gtk.info, Node: GtkHRuler, Next: GtkVRuler, Prev: GtkRuler, Up: Top 145 GtkHRuler ************* A horizontal ruler. 145.1 Overview ============== This widget is considered too specialized/little-used for GTK+, and will in the future be moved to some other package. If your application needs this widget, feel free to use it, as the widget does work and is useful in some applications; it's just not of general interest. However, we are not accepting new features for the widget, and it will eventually move out of the GTK+ distribution. The HRuler widget is a widget arranged horizontally creating a ruler that is utilized around other widgets such as a text widget. The ruler is used to show the location of the mouse on the window and to show the size of the window in specified units. The available units of measurement are GTK_PIXELS, GTK_INCHES and GTK_CENTIMETERS. GTK_PIXELS is the default. rulers. 145.2 Usage =========== -- Class: Derives from `'. This class defines no direct slots. -- Function: gtk-hruler-new => (ret `') Creates a new horizontal ruler. RET a new `'.  File: guile-gnome-gtk.info, Node: GtkVRuler, Next: GtkRecentManager, Prev: GtkHRuler, Up: Top 146 GtkVRuler ************* A vertical ruler. 146.1 Overview ============== This widget is considered too specialized/little-used for GTK+, and will in the future be moved to some other package. If your application needs this widget, feel free to use it, as the widget does work and is useful in some applications; it's just not of general interest. However, we are not accepting new features for the widget, and it will eventually move out of the GTK+ distribution. The VRuler widget is a widget arranged vertically creating a ruler that is utilized around other widgets such as a text widget. The ruler is used to show the location of the mouse on the window and to show the size of the window in specified units. The available units of measurement are GTK_PIXELS, GTK_INCHES and GTK_CENTIMETERS. GTK_PIXELS is the default. rulers. 146.2 Usage =========== -- Class: Derives from `'. This class defines no direct slots. -- Function: gtk-vruler-new => (ret `') Creates a new vertical ruler RET a new `'.  File: guile-gnome-gtk.info, Node: GtkRecentManager, Next: GtkRecentChooser, Prev: GtkVRuler, Up: Top 147 GtkRecentManager ******************** Managing Recently Used Files 147.1 Overview ============== `' provides a facility for adding, removing and looking up recently used files. Each recently used file is identified by its URI, and has meta-data associated to it, like the names and command lines of the applications that have registered it, the number of time each application has registered the same file, the mime type of the file and whether the file should be displayed only by the applications that have registered it. The `' acts like a database of all the recently used files. You can create new `' objects, but it is more efficient to use the standard recent manager for the `' so that informations about the recently used files is shared with other people using them. In case the default screen is being used, adding a new recently used file is as simple as: GtkRecentManager *manager; manager = gtk_recent_manager_get_default (); gtk_recent_manager_add_item (manager, file_uri); GtkRecentManager *manager; GtkRecentInfo *info; GError *error = NULL; manager = gtk_recent_manager_get_default (); info = gtk_recent_manager_lookup_item (manager, file_uri, &error); if (error) { g_warning ("Could not find the file: %s", error->message); g_error_free (error); } else { /* Use the info object */ gtk_recent_info_unref (info); } Recently used files are supported since GTK+ 2.10. 147.2 Usage =========== -- Class: Derives from `'. This class defines the following slots: `filename' The full path to the file to be used to store and read the list `limit' The maximum number of items to be returned by gtk_recent_manager_get_items() `size' The size of the recently used resources list -- Signal on : changed Emitted when the current recently used resources manager changes its contents. Since 2.10 -- Class: Derives from `'. This class defines no direct slots. -- Function: gtk-recent-manager-new => (ret `') Creates a new recent manager object. Recent manager objects are used to handle the list of recently used resources. A `' object monitors the recently used resources list, and emits the "changed" signal each time something inside the list changes. `' objects are expensive: be sure to create them only when needed. You should use the `gtk-recent-manager-new-for-screen' or the `gtk-recent-manager-get-default' functions instead. RET A newly created `' object. Since 2.10 -- Function: gtk-recent-manager-get-default => (ret `') Gets the recent manager for the default screen. See `gtk-recent-manager-get-for-screen'. RET A unique `' associated with the default screen. This recent manager is associated with the screen and can be used as long as the screen is open. Do not ref or unref it. Since 2.10 -- Function: gtk-recent-manager-get-for-screen (screen `') => (ret `') Gets the recent manager object associated with SCREEN; if this function has not previously been called for the given screen, a new recent manager object will be created and associated with the screen. Recent manager objects are fairly expensive to create, so using this function is usually a better choice than calling `gtk-recent-manager-new' and setting the screen yourself; by using this function a single recent manager object will be shared between users. SCREEN a `' RET A unique `' associated with the given screen. This recent manager is associated to the with the screen and can be used as long as the screen is open. Do not ref or unref it. Since 2.10 -- Function: gtk-recent-manager-set-screen (self `') (screen `') -- Method: set-screen Sets the screen for a recent manager; the screen is used to track the user's currently configured recently used documents storage. MANAGER a `' SCREEN a `' Since 2.10 -- Function: gtk-recent-manager-add-item (self `') (uri `mchars') => (ret `bool') -- Method: add-item Adds a new resource, pointed by URI, into the recently used resources list. This function automatically retrieving some of the needed metadata and setting other metadata to common default values; it then feeds the data to `gtk-recent-manager-add-full'. See `gtk-recent-manager-add-full' if you want to explicitely define the metadata for the resource pointed by URI. MANAGER a `' URI a valid URI RET ``#t'' if the new item was successfully added to the recently used resources list Since 2.10 -- Function: gtk-recent-manager-remove-item (self `') (uri `mchars') => (ret `bool') -- Method: remove-item Removes a resource pointed by URI from the recently used resources list handled by a recent manager. MANAGER a `' URI the URI of the item you wish to remove ERROR return location for a `', or ``#f'' RET ``#t'' if the item pointed by URI has been successfully removed by the recently used resources list, and ``#f'' otherwise. Since 2.10 -- Function: gtk-recent-manager-lookup-item (self `') (uri `mchars') => (ret `') -- Method: lookup-item Searches for a URI inside the recently used resources list, and returns a structure containing informations about the resource like its MIME type, or its display name. MANAGER a `' URI a URI ERROR a return location for a `', or ``#f'' RET a `' structure containing information about the resource pointed by URI, or ``#f'' if the URI was not registered in the recently used resources list. Free with `gtk-recent-info-unref'. Since 2.10 -- Function: gtk-recent-manager-has-item (self `') (uri `mchars') => (ret `bool') -- Method: has-item Checks whether there is a recently used resource registered with URI inside the recent manager. MANAGER a `' URI a URI RET ``#t'' if the resource was found, ``#f'' otherwise. Since 2.10 -- Function: gtk-recent-manager-move-item (self `') (uri `mchars') (new_uri `mchars') => (ret `bool') -- Method: move-item Changes the location of a recently used resource from URI to NEW-URI. Please note that this function will not affect the resource pointed by the URIs, but only the URI used in the recently used resources list. MANAGER a `' URI the URI of a recently used resource NEW-URI the new URI of the recently used resource, or ``#f'' to remove the item pointed by URI in the list ERROR a return location for a `', or ``#f'' RET ``#t'' on success. Since 2.10 -- Function: gtk-recent-manager-get-limit (self `') => (ret `int') -- Method: get-limit Gets the maximum number of items that the `gtk-recent-manager-get-items' function should return. MANAGER a `' RET the number of items to return, or -1 for every item. Since 2.10 -- Function: gtk-recent-manager-set-limit (self `') (limit `int') -- Method: set-limit Sets the maximum number of item that the `gtk-recent-manager-get-items' function should return. If LIMIT is set to -1, then return all the items. MANAGER a `' LIMIT the maximum number of items to return, or -1. Since 2.10 -- Function: gtk-recent-manager-get-items (self `') => (ret `glist-of') -- Method: get-items Gets the list of recently used resources. MANAGER a `' RET a list of newly allocated `' objects. Use `gtk-recent-info-unref' on each item inside the list, and then free the list itself using `g-list-free'. Since 2.10 -- Function: gtk-recent-manager-purge-items (self `') => (ret `int') -- Method: purge-items Purges every item from the recently used resources list. MANAGER a `' ERROR a return location for a `', or ``#f'' RET the number of items that have been removed from the recently used resources list. Since 2.10 -- Function: gtk-recent-info-get-uri (self `') => (ret `mchars') Gets the URI of the resource. INFO a `' RET the URI of the resource. The returned string is owned by the recent manager, and should not be freed. Since 2.10 -- Function: gtk-recent-info-get-display-name (self `') => (ret `mchars') Gets the name of the resource. If none has been defined, the basename of the resource is obtained. INFO a `' RET the display name of the resource. The returned string is owned by the recent manager, and should not be freed. Since 2.10 -- Function: gtk-recent-info-get-description (self `') => (ret `mchars') Gets the (short) description of the resource. INFO a `' RET the description of the resource. The returned string is owned by the recent manager, and should not be freed. Since 2.10 -- Function: gtk-recent-info-get-mime-type (self `') => (ret `mchars') Gets the MIME type of the resource. INFO a `' RET the MIME type of the resource. The returned string is owned by the recent manager, and should not be freed. Since 2.10 -- Function: gtk-recent-info-get-added (self `') => (ret `long') Gets the timestamp (seconds from system's Epoch) when the resource was added to the recently used resources list. INFO a `' RET the number of seconds elapsed from system's Epoch when the resource was added to the list, or -1 on failure. Since 2.10 -- Function: gtk-recent-info-get-modified (self `') => (ret `long') Gets the timestamp (seconds from system's Epoch) when the resource was last modified. INFO a `' RET the number of seconds elapsed from system's Epoch when the resource was last modified, or -1 on failure. Since 2.10 -- Function: gtk-recent-info-get-visited (self `') => (ret `long') Gets the timestamp (seconds from system's Epoch) when the resource was last visited. INFO a `' RET the number of seconds elapsed from system's Epoch when the resource was last visited, or -1 on failure. Since 2.10 -- Function: gtk-recent-info-get-private-hint (self `') => (ret `bool') Gets the value of the "private" flag. Resources in the recently used list that have this flag set to ``#t'' should only be displayed by the applications that have registered them. INFO a `' RET ``#t'' if the private flag was found, ``#f'' otherwise. Since 2.10 -- Function: gtk-recent-info-last-application (self `') => (ret `mchars') Gets the name of the last application that have registered the recently used resource represented by INFO. INFO a `' RET an application name. Use `g-free' to free it. Since 2.10 -- Function: gtk-recent-info-has-group (self `') (group_name `mchars') => (ret `bool') Checks whether GROUP-NAME appears inside the groups registered for the recently used item INFO. INFO a `' GROUP-NAME name of a group RET ``#t'' if the group was found. Since 2.10 -- Function: gtk-recent-info-has-application (self `') (app_name `mchars') => (ret `bool') Checks whether an application registered this resource using APP-NAME. INFO a `' APP-NAME a string containing an application name RET ``#t'' if an application with name APP-NAME was found, ``#f'' otherwise. Since 2.10 -- Function: gtk-recent-info-get-icon (self `') (size `int') => (ret `') Retrieves the icon of size SIZE associated to the resource MIME type. INFO a `' SIZE the size of the icon in pixels RET a `' containing the icon, or ``#f''. Since 2.10 -- Function: gtk-recent-info-get-short-name (self `') => (ret `mchars') Computes a valid UTF-8 string that can be used as the name of the item in a menu or list. For example, calling this function on an item that refers to "file:///foo/bar.txt" will yield "bar.txt". INFO an `' RET A newly-allocated string in UTF-8 encoding; free it with `g-free'. Since 2.10 -- Function: gtk-recent-info-get-uri-display (self `') => (ret `mchars') Gets a displayable version of the resource's URI. INFO a `' RET a UTF-8 string containing the resource's URI or ``#f'' Since 2.10 -- Function: gtk-recent-info-get-age (self `') => (ret `int') Gets the number of days elapsed since the last update of the resource pointed by INFO. INFO a `' RET a positive integer containing the number of days elapsed since the time this resource was last modified. Since 2.10 -- Function: gtk-recent-info-is-local (self `') => (ret `bool') Checks whether the resource is local or not by looking at the scheme of its URI. INFO a `' RET ``#t'' if the resource is local. Since 2.10 -- Function: gtk-recent-info-exists (self `') => (ret `bool') Checks whether the resource pointed by INFO still exists. At the moment this check is done only on resources pointing to local files. INFO a `' RET ``#t'' if the resource exists Since 2.10 -- Function: gtk-recent-info-match (self `') (info_b `') => (ret `bool') Checks whether two `' structures point to the same resource. INFO-A a `' INFO-B a `' RET ``#t'' if both `' structures point to se same resource, ``#f'' otherwise. Since 2.10  File: guile-gnome-gtk.info, Node: GtkRecentChooser, Next: GtkRecentChooserDialog, Prev: GtkRecentManager, Up: Top 148 GtkRecentChooser ******************** Interface implemented by GtkRecentChooserWidget, GtkRecentChooserMenu and GtkRecentChooserDialog 148.1 Overview ============== `' is an interface that can be implemented by widgets displaying the list of recently used files. In GTK+, the main objects that implement this interface are `', `' and `'. Recently used files are supported since GTK+ 2.10. 148.2 Usage =========== -- Class: Derives from `'. This class defines the following slots: `recent-manager' The RecentManager object to use `show-private' Whether the private items should be displayed `show-not-found' Whether the items pointing to unavailable resources should be displayed `show-tips' Whether there should be a tooltip on the item `show-icons' Whether there should be an icon near the item `sort-type' The sorting order of the items displayed `select-multiple' Whether to allow multiple items to be selected `filter' The current filter for selecting which resources are displayed `limit' The maximum number of items to be displayed `local-only' Whether the selected resource(s) should be limited to local file: URIs -- Signal on : selection-changed This signal is emitted when there is a change in the set of selected recently used resources. This can happen when a user modifies the selection with the mouse or the keyboard, or when explicitely calling functions to change the selection. Since 2.10 -- Signal on : item-activated This signal is emitted when the user "activates" a recent item in the recent chooser. This can happen by double-clicking on an item in the recently used resources list, or by pressing Since 2.10 -- Function: gtk-recent-chooser-set-show-private (self `') (show_private `bool') -- Method: set-show-private Whether to show recently used resources marked registered as private. CHOOSER a `' SHOW-PRIVATE ``#t'' to show private items, ``#f'' otherwise Since 2.10 -- Function: gtk-recent-chooser-get-show-private (self `') => (ret `bool') -- Method: get-show-private Returns whether CHOOSER should display recently used resources registered as private. CHOOSER a `' RET ``#t'' if the recent chooser should show private items, ``#f'' otherwise. Since 2.10 -- Function: gtk-recent-chooser-set-show-icons (self `') (show_icons `bool') -- Method: set-show-icons Sets whether CHOOSER should show an icon near the resource when displaying it. CHOOSER a `' SHOW-ICONS whether to show an icon near the resource Since 2.10 -- Function: gtk-recent-chooser-get-show-icons (self `') => (ret `bool') -- Method: get-show-icons Retrieves whether CHOOSER should show an icon near the resource. CHOOSER a `' RET ``#t'' if the icons should be displayed, ``#f'' otherwise. Since 2.10 -- Function: gtk-recent-chooser-set-local-only (self `') (local_only `bool') -- Method: set-local-only Sets whether only local resources, that is resources using the file:// URI scheme, should be shown in the recently used resources selector. If LOCAL-ONLY is ``#t'' (the default) then the shown resources are guaranteed to be accessible through the operating system native file system. CHOOSER a `' LOCAL-ONLY ``#t'' if only local files can be shown Since 2.10 -- Function: gtk-recent-chooser-get-local-only (self `') => (ret `bool') -- Method: get-local-only Gets whether only local resources should be shown in the recently used resources selector. See `gtk-recent-chooser-set-local-only' CHOOSER a `' RET ``#t'' if only local resources should be shown. Since 2.10 -- Function: gtk-recent-chooser-set-limit (self `') (limit `int') -- Method: set-limit Sets the number of items that should be returned by `gtk-recent-chooser-get-items' and `gtk-recent-chooser-get-uris'. CHOOSER a `' LIMIT a positive integer, or -1 for all items Since 2.10 -- Function: gtk-recent-chooser-get-limit (self `') => (ret `int') -- Method: get-limit Gets the number of items returned by `gtk-recent-chooser-get-items' and `gtk-recent-chooser-get-uris'. CHOOSER a `' RET A positive integer, or -1 meaning that all items are returned. Since 2.10 -- Function: gtk-recent-chooser-set-show-tips (self `') (show_tips `bool') -- Method: set-show-tips Sets whether to show a tooltips on the widget. CHOOSER a `' SHOW-TIPS ``#t'' if tooltips should be shown Since 2.10 -- Function: gtk-recent-chooser-get-show-tips (self `') => (ret `bool') -- Method: get-show-tips Gets whether CHOOSER should display tooltips. CHOOSER a `' RET ``#t'' if the recent chooser should show tooltips, ``#f'' otherwise. Since 2.10 -- Function: gtk-recent-chooser-set-show-numbers (self `') (show_numbers `bool') -- Method: set-show-numbers Whether to show recently used resources prepended by a unique number. Do not use this function: use `gtk-recent-chooser-menu-set-show-numbers' instead. CHOOSER a `' SHOW-NUMBERS ``#t'' to show numbers, ``#f'' otherwise Since 2.10 -- Function: gtk-recent-chooser-get-show-numbers (self `') => (ret `bool') -- Method: get-show-numbers Returns whether CHOOSER should display recently used resources prepended by a unique number. Do not use this function: use `gtk-recent-chooser-menu-get-show-numbers' instead. CHOOSER a `' RET ``#t'' if the recent chooser should show display numbers, ``#f'' otherwise. Since 2.10 -- Function: gtk-recent-chooser-set-sort-type (self `') (sort_type `') -- Method: set-sort-type Changes the sorting order of the recently used resources list displayed by CHOOSER. CHOOSER a `' SORT-TYPE sort order that the chooser should use Since 2.10 -- Function: gtk-recent-chooser-get-sort-type (self `') => (ret `') -- Method: get-sort-type Gets the value set by `gtk-recent-chooser-set-sort-type'. CHOOSER a `' RET the sorting order of the CHOOSER. Since 2.10 -- Function: gtk-recent-chooser-set-current-uri (self `') (uri `mchars') => (ret `bool') -- Method: set-current-uri Sets URI as the current URI for CHOOSER. CHOOSER a `' URI a URI ERROR return location for a `', or ``#f'' RET ``#t'' if the URI was found. Since 2.10 -- Function: gtk-recent-chooser-get-current-uri (self `') => (ret `mchars') -- Method: get-current-uri Gets the URI currently selected by CHOOSER. CHOOSER a `' RET a newly allocated string holding a URI. Since 2.10 -- Function: gtk-recent-chooser-get-current-item (self `') => (ret `') -- Method: get-current-item Gets the `' currently selected by CHOOSER. CHOOSER a `' RET a `'. Use `gtk-recent-info-unref' when when you have finished using it. Since 2.10 -- Function: gtk-recent-chooser-select-uri (self `') (uri `mchars') => (ret `bool') -- Method: select-uri Selects URI inside CHOOSER. CHOOSER a `' URI a URI ERROR return location for a `', or ``#f'' RET ``#t'' if URI was found. Since 2.10 -- Function: gtk-recent-chooser-unselect-uri (self `') (uri `mchars') -- Method: unselect-uri Unselects URI inside CHOOSER. CHOOSER a `' URI a URI Since 2.10 -- Function: gtk-recent-chooser-select-all (self `') -- Method: select-all Selects all the items inside CHOOSER, if the CHOOSER supports multiple selection. CHOOSER a `' Since 2.10 -- Function: gtk-recent-chooser-unselect-all (self `') -- Method: unselect-all Unselects all the items inside CHOOSER. CHOOSER a `' Since 2.10 -- Function: gtk-recent-chooser-get-items (self `') => (ret `glist-of') -- Method: get-items Gets the list of recently used resources in form of `' objects. The return value of this function is affected by the "sort-type" and "limit" properties of CHOOSER. CHOOSER a `' RET A newly allocated list of `' objects. You should use `gtk-recent-info-unref' on every item of the list, and then free the list itself using `g-list-free'. Since 2.10 -- Function: gtk-recent-chooser-add-filter (self `') (filter `') -- Method: add-filter Adds FILTER to the list of `' objects held by CHOOSER. If no previous filter objects were defined, this function will call `gtk-recent-chooser-set-filter'. CHOOSER a `' FILTER a `' Since 2.10 -- Function: gtk-recent-chooser-remove-filter (self `') (filter `') -- Method: remove-filter Removes FILTER from the list of `' objects held by CHOOSER. CHOOSER a `' FILTER a `' Since 2.10 -- Function: gtk-recent-chooser-list-filters (self `') => (ret `gslist-of') -- Method: list-filters Gets the `' objects held by CHOOSER. CHOOSER a `' RET A singly linked list of `' objects. You should just free the returned list using `g-slist-free'. Since 2.10 -- Function: gtk-recent-chooser-set-filter (self `') (filter `') -- Method: set-filter Sets FILTER as the current `' object used by CHOOSER to affect the displayed recently used resources. CHOOSER a `' FILTER a `' Since 2.10 -- Function: gtk-recent-chooser-get-filter (self `') => (ret `') -- Method: get-filter Gets the `' object currently used by CHOOSER to affect the display of the recently used resources. CHOOSER a `' RET a `' object. Since 2.10  File: guile-gnome-gtk.info, Node: GtkRecentChooserDialog, Next: GtkRecentChooserMenu, Prev: GtkRecentChooser, Up: Top 149 GtkRecentChooserDialog ************************** Displays recently used files in a dialog 149.1 Overview ============== `' is a dialog box suitable for displaying the recently used documents. This widgets works by putting a `' inside a `'. It exposes the `' interface, so you can use all the `' functions on the recent chooser dialog as well as those for `'. Note that `' does not have any methods of its own. Instead, you should use the functions that work on a `'. In the simplest of cases, you can use the following code to use a `' to select a recently used file: GtkWidget *dialog; dialog = gtk_recent_chooser_dialog_new ("Recent Documents", parent_window, GTK_STOCK_CANCEL, GTK_RESPONSE_CANCEL, GTK_STOCK_OPEN, GTK_RESPONSE_ACCEPT, NULL); if (gtk_dialog_run (GTK_DIALOG (dialog)) == GTK_RESPONSE_ACCEPT) { GtkRecentInfo *info; info = gtk_recent_chooser_get_current_item (GTK_RECENT_CHOOSER (dialog)); open_file (gtk_recent_info_get_uri (info)); gtk_recent_info_unref (info); } gtk_widget_destroy (dialog); Recently used files are supported since GTK+ 2.10. 149.2 Usage =========== -- Class: Derives from `', `'. This class defines no direct slots.  File: guile-gnome-gtk.info, Node: GtkRecentChooserMenu, Next: GtkRecentChooserWidget, Prev: GtkRecentChooserDialog, Up: Top 150 GtkRecentChooserMenu ************************ Displays recently used files in a menu 150.1 Overview ============== `' is a widget suitable for displaying recently used files inside a menu. It can be used to set a sub-menu of a `' using `gtk-menu-item-set-submenu', or as the menu of a `'. Note that `' does not have any methods of its own. Instead, you should use the functions that work on a `'. Note also that `' does not support multiple filters, as it has no way to let the user choose between them as the `' and `' widgets do. Thus using `gtk-recent-chooser-add-filter' on a `' widget will yield the same effects as using `gtk-recent-chooser-set-filter', replacing any currently set filter with the supplied filter; `gtk-recent-chooser-remove-filter' will remove any currently set `' object and will unset the current filter; `gtk-recent-chooser-list-filters' will return a list containing a single `' object. Recently used files are supported since GTK+ 2.10. 150.2 Usage =========== -- Class: Derives from `', `'. This class defines the following slots: `show-numbers' Whether the items should be displayed with a number -- Function: gtk-recent-chooser-menu-new => (ret `') Creates a new `' widget. This kind of widget shows the list of recently used resources as a menu, each item as a menu item. Each item inside the menu might have an icon, representing its MIME type, and a number, for mnemonic access. This widget implements the `' interface. This widget creates its own `' object. See the `gtk-recent-chooser-menu-new-for-manager' function to know how to create a `' widget bound to another `' object. RET a new `' Since 2.10  File: guile-gnome-gtk.info, Node: GtkRecentChooserWidget, Next: GtkRecentFilter, Prev: GtkRecentChooserMenu, Up: Top 151 GtkRecentChooserWidget ************************** Displays recently used files 151.1 Overview ============== `' is a widget suitable for selecting recently used files. It is the main building block of a `'. Most applications will only need to use the latter; you can use `' as part of a larger window if you have special needs. Note that `' does not have any methods of its own. Instead, you should use the functions that work on a `'. Recently used files are supported since GTK+ 2.10. 151.2 Usage =========== -- Class: Derives from `', `'. This class defines no direct slots. -- Function: gtk-recent-chooser-widget-new => (ret `') Creates a new `' object. This is an embeddable widget used to access the recently used resources list. RET a new `' Since 2.10  File: guile-gnome-gtk.info, Node: GtkRecentFilter, Next: Undocumented, Prev: GtkRecentChooserWidget, Up: Top 152 GtkRecentFilter ******************* A filter for selecting a subset of recently used files 152.1 Overview ============== A `' can be used to restrict the files being shown in a `'. Files can be filtered based on their name (with `gtk-recent-filter-add-pattern'), on their mime type (with `gtk-file-filter-add-mime-type'), on the application that has registered them (with `gtk-recent-filter-add-application'), or by a custom filter function (with `gtk-recent-filter-add-custom'). Filtering by mime type handles aliasing and subclassing of mime types; e.g. a filter for text/plain also matches a file with mime type application/rtf, since application/rtf is a subclass of text/plain. Note that `' allows wildcards for the subtype of a mime type, so you can e.g. filter for image/*. Normally, filters are used by adding them to a `', see `gtk-recent-chooser-add-filter', but it is also possible to manually use a filter on a file with `gtk-recent-filter-filter'. Recently used files are supported since GTK+ 2.10. 152.2 Usage =========== -- Class: Derives from `'. This class defines no direct slots. -- Function: gtk-recent-filter-new => (ret `') Creates a new `' with no rules added to it. Such filter does not accept any recently used resources, so is not particularly useful until you add rules with `gtk-recent-filter-add-pattern', `gtk-recent-filter-add-mime-type', `gtk-recent-filter-add-application', `gtk-recent-filter-add-age'. To create a filter that accepts any recently used resource, use: GtkRecentFilter *filter = gtk_recent_filter_new (); gtk_recent_filter_add_pattern (filter, "*"); RET a new `' Since 2.10 -- Function: gtk-recent-filter-get-name (self `') => (ret `mchars') -- Method: get-name Gets the human-readable name for the filter. See `gtk-recent-filter-set-name'. FILTER a `' RET the name of the filter, or ``#f''. The returned string is owned by the filter object and should not be freed. Since 2.10 -- Function: gtk-recent-filter-set-name (self `') (name `mchars') -- Method: set-name Sets the human-readable name of the filter; this is the string that will be displayed in the recently used resources selector user interface if there is a selectable list of filters. FILTER a `' NAME then human readable name of FILTER Since 2.10 -- Function: gtk-recent-filter-add-mime-type (self `') (mime_type `mchars') -- Method: add-mime-type Adds a rule that allows resources based on their registered MIME type. FILTER a `' MIME-TYPE a MIME type Since 2.10 -- Function: gtk-recent-filter-add-pattern (self `') (pattern `mchars') -- Method: add-pattern Adds a rule that allows resources based on a pattern matching their display name. FILTER a `' PATTERN a file pattern Since 2.10 -- Function: gtk-recent-filter-add-application (self `') (application `mchars') -- Method: add-application Adds a rule that allows resources based on the name of the application that has registered them. FILTER a `' APPLICATION an application name Since 2.10 -- Function: gtk-recent-filter-add-group (self `') (group `mchars') -- Method: add-group Adds a rule that allows resources based on the name of the group to which they belong FILTER a `' GROUP a group name Since 2.10 -- Function: gtk-recent-filter-add-age (self `') (days `int') -- Method: add-age Adds a rule that allows resources based on their age - that is, the number of days elapsed since they were last modified. FILTER a `' DAYS number of days Since 2.10 -- Function: gtk-recent-filter-get-needed (self `') => (ret `') -- Method: get-needed Gets the fields that need to be filled in for the structure passed to `gtk-recent-filter-filter' This function will not typically be used by applications; it is intended principally for use in the implementation of `'. FILTER a `' RET bitfield of flags indicating needed fields when calling `gtk-recent-filter-filter' Since 2.10  File: guile-gnome-gtk.info, Node: Undocumented, Next: Type Index, Prev: GtkRecentFilter, Up: Top 153 Undocumented **************** The following symbols, if any, have not been properly documented. 153.1 (gnome gtk) ================= -- Class: -- Generic: create-tag -- Method: create-tag (BUFFER `') (TAG-NAME `') (PROPERTIES `')... -- Function: gtk-stock-id nick -- Function: gtk-text-buffer-create-tag buffer tag-name . properties -- Function: gtk-tree-or-list-store-set store iter . args -- Generic: on-get-column-type -- Generic: on-get-flags -- Method: on-get-flags (OBJ `') -- Generic: on-get-iter -- Generic: on-get-n-columns -- Generic: on-get-path -- Generic: on-get-value -- Generic: on-iter-children -- Generic: on-iter-has-child -- Generic: on-iter-n-children -- Generic: on-iter-next -- Generic: on-iter-nth-child -- Generic: on-iter-parent 153.2 (gnome gw gtk) ==================== -- Function: %gtk-message-dialog-new -- Variable: -- Variable: -- Class: -- Variable: gtk-accel-group-activate -- Variable: gtk-accel-group-connect -- Variable: gtk-accel-group-connect-by-path -- Variable: gtk-accel-group-disconnect -- Variable: gtk-accel-group-disconnect-key -- Variable: gtk-accel-group-from-accel-closure -- Variable: gtk-accel-group-lock -- Variable: gtk-accel-group-new -- Variable: gtk-accel-group-unlock -- Variable: gtk-accel-groups-activate -- Function: gtk-accel-groups-from-object -- Variable: gtk-accel-map-add-entry -- Variable: gtk-accel-map-add-filter -- Variable: gtk-accel-map-change-entry -- Variable: gtk-accel-map-get -- Variable: gtk-accel-map-load -- Variable: gtk-accel-map-load-fd -- Variable: gtk-accel-map-lock-path -- Variable: gtk-accel-map-save -- Variable: gtk-accel-map-save-fd -- Variable: gtk-accel-map-unlock-path -- Variable: gtk-accelerator-get-default-mod-mask -- Variable: gtk-accelerator-get-label -- Variable: gtk-accelerator-name -- Variable: gtk-accelerator-set-default-mod-mask -- Variable: gtk-accelerator-valid -- Variable: gtk-accessible-connect-widget-destroyed -- Variable: gtk-action-group-add-action-with-accel -- Variable: gtk-action-group-set-translation-domain -- Variable: gtk-border-copy -- Variable: gtk-border-free -- Variable: gtk-calendar-get-display-options -- Variable: gtk-cell-renderer-text-set-fixed-height-from-font -- Variable: gtk-check-menu-item-get-draw-as-radio -- Variable: gtk-check-menu-item-get-inconsistent -- Variable: gtk-check-menu-item-new-with-mnemonic -- Variable: gtk-check-menu-item-set-draw-as-radio -- Variable: gtk-check-menu-item-set-inconsistent -- Variable: gtk-check-version -- Variable: gtk-clipboard-clear -- Variable: gtk-clipboard-get -- Variable: gtk-clipboard-get-display -- Variable: gtk-clipboard-get-for-display -- Variable: gtk-clipboard-get-owner -- Variable: gtk-clipboard-set-image -- Variable: gtk-clipboard-set-text -- Variable: gtk-clipboard-store -- Variable: gtk-clipboard-wait-for-contents -- Variable: gtk-clipboard-wait-for-image -- Variable: gtk-clipboard-wait-for-text -- Variable: gtk-clipboard-wait-is-image-available -- Variable: gtk-clipboard-wait-is-rich-text-available -- Variable: gtk-clipboard-wait-is-target-available -- Variable: gtk-clipboard-wait-is-text-available -- Variable: gtk-color-selection-dialog-get-cancel-button -- Variable: gtk-color-selection-dialog-get-colorsel -- Variable: gtk-color-selection-dialog-get-help-button -- Variable: gtk-color-selection-dialog-get-ok-button -- Variable: gtk-color-selection-get-current-alpha -- Variable: gtk-color-selection-get-current-color -- Variable: gtk-color-selection-get-has-opacity-control -- Variable: gtk-color-selection-get-previous-alpha -- Variable: gtk-color-selection-get-previous-color -- Variable: gtk-color-selection-palette-to-string -- Variable: gtk-color-selection-set-current-alpha -- Variable: gtk-color-selection-set-current-color -- Variable: gtk-color-selection-set-has-opacity-control -- Variable: gtk-color-selection-set-previous-alpha -- Variable: gtk-color-selection-set-previous-color -- Variable: gtk-combo-box-get-column-span-column -- Variable: gtk-combo-box-set-column-span-column -- Variable: gtk-container-set-reallocate-redraws -- Variable: gtk-dialog-get-action-area -- Variable: gtk-dialog-get-vbox -- Variable: gtk-disable-setlocale -- Variable: gtk-drag-check-threshold -- Variable: gtk-drag-dest-add-image-targets -- Variable: gtk-drag-dest-add-text-targets -- Variable: gtk-drag-dest-add-uri-targets -- Variable: gtk-drag-dest-get-track-motion -- Function: gtk-drag-dest-set -- Variable: gtk-drag-dest-set-proxy -- Variable: gtk-drag-dest-set-track-motion -- Variable: gtk-drag-dest-unset -- Function: gtk-drag-finish -- Function: gtk-drag-get-data -- Variable: gtk-drag-get-source-widget -- Variable: gtk-drag-highlight -- Variable: gtk-drag-set-icon-default -- Variable: gtk-drag-set-icon-name -- Variable: gtk-drag-set-icon-pixbuf -- Variable: gtk-drag-set-icon-pixmap -- Variable: gtk-drag-set-icon-stock -- Variable: gtk-drag-set-icon-widget -- Variable: gtk-drag-source-add-image-targets -- Variable: gtk-drag-source-add-text-targets -- Variable: gtk-drag-source-add-uri-targets -- Function: gtk-drag-source-set-icon -- Variable: gtk-drag-source-set-icon-name -- Variable: gtk-drag-source-set-icon-pixbuf -- Variable: gtk-drag-source-set-icon-stock -- Variable: gtk-drag-source-unset -- Variable: gtk-drag-unhighlight -- Variable: gtk-draw-insertion-cursor -- Variable: gtk-entry-completion-get-inline-completion -- Variable: gtk-entry-completion-get-minimum-key-length -- Variable: gtk-entry-completion-get-popup-completion -- Variable: gtk-entry-completion-get-popup-set-width -- Variable: gtk-entry-completion-get-popup-single-match -- Variable: gtk-entry-completion-get-text-column -- Variable: gtk-entry-completion-insert-action-markup -- Variable: gtk-entry-completion-insert-action-text -- Variable: gtk-entry-completion-set-inline-completion -- Variable: gtk-entry-completion-set-minimum-key-length -- Variable: gtk-entry-completion-set-popup-completion -- Variable: gtk-entry-completion-set-popup-set-width -- Variable: gtk-entry-completion-set-popup-single-match -- Variable: gtk-entry-completion-set-text-column -- Variable: gtk-entry-layout-index-to-text-index -- Variable: gtk-entry-text-index-to-layout-index -- Variable: gtk-events-pending -- Variable: gtk-false -- Function: gtk-file-chooser-add-shortcut-folder -- Function: gtk-file-chooser-add-shortcut-folder-uri -- Variable: gtk-file-chooser-button-get-focus-on-click -- Variable: gtk-file-chooser-button-get-width-chars -- Variable: gtk-file-chooser-button-new-with-backend -- Variable: gtk-file-chooser-button-new-with-dialog -- Variable: gtk-file-chooser-button-set-focus-on-click -- Variable: gtk-file-chooser-button-set-width-chars -- Variable: gtk-file-chooser-error-quark -- Variable: gtk-file-chooser-get-current-folder-uri -- Variable: gtk-file-chooser-get-do-overwrite-confirmation -- Variable: gtk-file-chooser-get-preview-filename -- Variable: gtk-file-chooser-get-preview-widget-active -- Variable: gtk-file-chooser-get-select-multiple -- Variable: gtk-file-chooser-get-use-preview-label -- Function: gtk-file-chooser-list-shortcut-folder-uris -- Function: gtk-file-chooser-list-shortcut-folders -- Function: gtk-file-chooser-remove-shortcut-folder -- Function: gtk-file-chooser-remove-shortcut-folder-uri -- Variable: gtk-file-chooser-set-current-folder-uri -- Variable: gtk-file-chooser-set-do-overwrite-confirmation -- Variable: gtk-file-chooser-set-preview-widget-active -- Variable: gtk-file-chooser-set-select-multiple -- Variable: gtk-file-chooser-set-use-preview-label -- Variable: gtk-file-chooser-widget-new-with-backend -- Variable: gtk-file-selection-get-select-multiple -- Variable: gtk-file-selection-hide-fileop-buttons -- Variable: gtk-file-selection-set-select-multiple -- Variable: gtk-file-selection-show-fileop-buttons -- Variable: gtk-file-selection:cancel-button -- Variable: gtk-file-selection:ok-button -- Variable: gtk-font-selection-dialog-get-font-name -- Variable: gtk-font-selection-dialog-get-preview-text -- Variable: gtk-font-selection-dialog-set-font-name -- Variable: gtk-font-selection-dialog-set-preview-text -- Variable: gtk-get-current-event-time -- Variable: gtk-get-default-language -- Variable: gtk-grab-add -- Variable: gtk-grab-get-current -- Variable: gtk-grab-remove -- Variable: gtk-icon-factory-add -- Variable: gtk-icon-factory-add-default -- Variable: gtk-icon-factory-lookup -- Variable: gtk-icon-factory-lookup-default -- Variable: gtk-icon-factory-new -- Variable: gtk-icon-factory-remove-default -- Variable: gtk-icon-set-add-source -- Variable: gtk-icon-set-copy -- Variable: gtk-icon-set-new -- Variable: gtk-icon-set-new-from-pixbuf -- Variable: gtk-icon-set-render-icon -- Variable: gtk-icon-size-from-name -- Variable: gtk-icon-size-get-name -- Function: gtk-icon-size-lookup -- Function: gtk-icon-size-lookup-for-settings -- Variable: gtk-icon-size-register -- Variable: gtk-icon-size-register-alias -- Variable: gtk-icon-source-copy -- Variable: gtk-icon-source-get-direction -- Variable: gtk-icon-source-get-direction-wildcarded -- Variable: gtk-icon-source-get-filename -- Variable: gtk-icon-source-get-icon-name -- Variable: gtk-icon-source-get-pixbuf -- Variable: gtk-icon-source-get-size -- Variable: gtk-icon-source-get-size-wildcarded -- Variable: gtk-icon-source-get-state -- Variable: gtk-icon-source-get-state-wildcarded -- Variable: gtk-icon-source-new -- Variable: gtk-icon-source-set-direction -- Variable: gtk-icon-source-set-direction-wildcarded -- Variable: gtk-icon-source-set-filename -- Variable: gtk-icon-source-set-icon-name -- Variable: gtk-icon-source-set-pixbuf -- Variable: gtk-icon-source-set-size -- Variable: gtk-icon-source-set-size-wildcarded -- Variable: gtk-icon-source-set-state -- Variable: gtk-icon-source-set-state-wildcarded -- Variable: gtk-icon-theme-add-builtin-icon -- Variable: gtk-icon-theme-append-search-path -- Variable: gtk-icon-theme-error-quark -- Variable: gtk-icon-theme-get-default -- Variable: gtk-icon-theme-get-example-icon-name -- Variable: gtk-icon-theme-get-for-screen -- Variable: gtk-icon-theme-has-icon -- Function: gtk-icon-theme-list-icons -- Function: gtk-icon-theme-load-icon -- Variable: gtk-icon-theme-new -- Variable: gtk-icon-theme-prepend-search-path -- Variable: gtk-icon-theme-rescan-if-needed -- Variable: gtk-icon-theme-set-custom-theme -- Variable: gtk-icon-theme-set-screen -- Variable: gtk-icon-view-unset-model-drag-source -- Variable: gtk-im-multicontext-append-menuitems -- Variable: gtk-image-menu-item-new-with-mnemonic -- Variable: gtk-main -- Variable: gtk-main-do-event -- Variable: gtk-main-iteration -- Function: gtk-main-iteration-do -- Variable: gtk-main-level -- Variable: gtk-main-quit -- Variable: gtk-menu-bar-get-child-pack-direction -- Variable: gtk-menu-bar-set-child-pack-direction -- Variable: gtk-menu-tool-button-set-arrow-tooltip -- Variable: gtk-page-setup-set-paper-size-and-default-margins -- Variable: gtk-paint-arrow -- Variable: gtk-paint-box -- Variable: gtk-paint-box-gap -- Variable: gtk-paint-check -- Variable: gtk-paint-diamond -- Variable: gtk-paint-expander -- Variable: gtk-paint-extension -- Variable: gtk-paint-flat-box -- Variable: gtk-paint-focus -- Variable: gtk-paint-handle -- Variable: gtk-paint-hline -- Variable: gtk-paint-layout -- Variable: gtk-paint-option -- Variable: gtk-paint-resize-grip -- Variable: gtk-paint-shadow -- Variable: gtk-paint-shadow-gap -- Variable: gtk-paint-slider -- Variable: gtk-paint-tab -- Variable: gtk-paint-vline -- Variable: gtk-paper-size-get-default-bottom-margin -- Variable: gtk-paper-size-get-default-left-margin -- Variable: gtk-paper-size-get-default-right-margin -- Variable: gtk-paper-size-get-default-top-margin -- Variable: gtk-print-context-create-pango-context -- Variable: gtk-print-context-create-pango-layout -- Variable: gtk-print-error-quark -- Variable: gtk-print-operation-get-default-page-setup -- Variable: gtk-print-operation-get-print-settings -- Variable: gtk-print-operation-get-status-string -- Variable: gtk-print-operation-preview-end-preview -- Variable: gtk-print-operation-preview-is-selected -- Variable: gtk-print-operation-preview-render-page -- Variable: gtk-print-operation-set-current-page -- Variable: gtk-print-operation-set-custom-tab-label -- Variable: gtk-print-operation-set-default-page-setup -- Variable: gtk-print-operation-set-export-filename -- Variable: gtk-print-operation-set-print-settings -- Variable: gtk-print-operation-set-show-progress -- Variable: gtk-print-operation-set-track-print-status -- Variable: gtk-print-operation-set-use-full-page -- Variable: gtk-print-settings-get-default-source -- Variable: gtk-print-settings-get-double-with-default -- Variable: gtk-print-settings-get-int-with-default -- Variable: gtk-print-settings-set-default-source -- Variable: gtk-progress-bar-get-orientation -- Variable: gtk-propagate-event -- Variable: gtk-radio-button-new-with-label-from-widget -- Variable: gtk-radio-button-new-with-mnemonic-from-widget -- Variable: gtk-radio-menu-item-new-with-label-from-widget -- Variable: gtk-radio-menu-item-new-with-mnemonic -- Variable: gtk-radio-menu-item-new-with-mnemonic-from-widget -- Function: gtk-radio-tool-button-new-from-stock -- Variable: gtk-radio-tool-button-new-from-widget -- Variable: gtk-radio-tool-button-new-with-stock-from-widget -- Variable: gtk-range-get-lower-stepper-sensitivity -- Variable: gtk-range-get-upper-stepper-sensitivity -- Variable: gtk-range-set-lower-stepper-sensitivity -- Variable: gtk-range-set-upper-stepper-sensitivity -- Variable: gtk-rc-add-default-file -- Variable: gtk-rc-find-module-in-path -- Variable: gtk-rc-get-im-module-file -- Variable: gtk-rc-get-im-module-path -- Variable: gtk-rc-get-module-dir -- Variable: gtk-rc-get-style -- Function: gtk-rc-get-style-by-paths -- Variable: gtk-rc-get-theme-dir -- Variable: gtk-rc-parse -- Variable: gtk-rc-parse-string -- Variable: gtk-rc-property-parse-border -- Variable: gtk-rc-property-parse-color -- Variable: gtk-rc-property-parse-enum -- Variable: gtk-rc-property-parse-flags -- Variable: gtk-rc-property-parse-requisition -- Variable: gtk-rc-reparse-all -- Variable: gtk-rc-reparse-all-for-settings -- Variable: gtk-rc-reset-styles -- Function: gtk-rc-set-default-files -- Variable: gtk-rc-style-copy -- Variable: gtk-rc-style-new -- Variable: gtk-recent-chooser-error-quark -- Variable: gtk-recent-chooser-get-select-multiple -- Variable: gtk-recent-chooser-get-show-not-found -- Variable: gtk-recent-chooser-menu-get-show-numbers -- Variable: gtk-recent-chooser-menu-new-for-manager -- Variable: gtk-recent-chooser-menu-set-show-numbers -- Variable: gtk-recent-chooser-set-select-multiple -- Variable: gtk-recent-chooser-set-show-not-found -- Variable: gtk-recent-chooser-widget-new-for-manager -- Variable: gtk-recent-filter-add-pixbuf-formats -- Function: gtk-recent-info-get-application-info -- Variable: gtk-recent-manager-error-quark -- Variable: gtk-ruler-draw-pos -- Variable: gtk-ruler-draw-ticks -- Variable: gtk-scrolled-window-add-with-viewport -- Variable: gtk-selection-add-target -- Variable: gtk-selection-clear-targets -- Function: gtk-selection-convert -- Variable: gtk-selection-data-get-as-string -- Variable: gtk-selection-data-get-pixbuf -- Variable: gtk-selection-data-set-pixbuf -- Variable: gtk-selection-data-set-text -- Variable: gtk-selection-data-targets-include-image -- Variable: gtk-selection-data-targets-include-rich-text -- Variable: gtk-selection-data-targets-include-text -- Variable: gtk-selection-data-targets-include-uri -- Function: gtk-selection-owner-set -- Function: gtk-selection-owner-set-for-display -- Variable: gtk-selection-remove-all -- Variable: gtk-settings-get-default -- Variable: gtk-settings-get-for-screen -- Variable: gtk-settings-install-property -- Variable: gtk-settings-set-double-property -- Variable: gtk-settings-set-long-property -- Variable: gtk-settings-set-string-property -- Variable: gtk-spin-button-get-update-policy -- Variable: gtk-stock-add -- Variable: gtk-stock-add-static -- Variable: gtk-stock-item-copy -- Function: gtk-stock-list-ids -- Variable: gtk-stock-lookup -- Variable: gtk-style-apply-default-background -- Variable: gtk-style-attach -- Variable: gtk-style-copy -- Variable: gtk-style-detach -- Variable: gtk-style-get-bg-gc -- Variable: gtk-style-get-black-gc -- Variable: gtk-style-get-fg-gc -- Variable: gtk-style-get-white-gc -- Variable: gtk-style-lookup-color -- Variable: gtk-style-lookup-icon-set -- Variable: gtk-style-new -- Variable: gtk-style-render-icon -- Variable: gtk-style-set-background -- Variable: gtk-text-buffer-add-selection-clipboard -- Variable: gtk-text-buffer-deserialize-get-can-create-tags -- Variable: gtk-text-buffer-deserialize-set-can-create-tags -- Variable: gtk-text-buffer-get-iter-at-child-anchor -- Variable: gtk-text-buffer-get-iter-at-line-index -- Variable: gtk-text-buffer-get-iter-at-line-offset -- Variable: gtk-text-buffer-get-selection-bounds -- Variable: gtk-text-buffer-insert-interactive-at-cursor -- Variable: gtk-text-buffer-insert-range-interactive -- Function: gtk-text-buffer-insert-with-tags-by-name -- Variable: gtk-text-buffer-register-deserialize-tagset -- Variable: gtk-text-buffer-register-serialize-tagset -- Variable: gtk-text-buffer-remove-selection-clipboard -- Variable: gtk-text-iter-backward-cursor-position -- Variable: gtk-text-iter-backward-cursor-positions -- Variable: gtk-text-iter-backward-sentence-start -- Variable: gtk-text-iter-backward-sentence-starts -- Variable: gtk-text-iter-backward-to-tag-toggle -- Variable: gtk-text-iter-backward-visible-cursor-position -- Variable: gtk-text-iter-backward-visible-cursor-positions -- Variable: gtk-text-iter-backward-visible-lines -- Variable: gtk-text-iter-backward-visible-word-start -- Variable: gtk-text-iter-backward-visible-word-starts -- Variable: gtk-text-iter-forward-cursor-position -- Variable: gtk-text-iter-forward-cursor-positions -- Variable: gtk-text-iter-forward-visible-cursor-position -- Variable: gtk-text-iter-forward-visible-cursor-positions -- Variable: gtk-text-iter-forward-visible-word-end -- Variable: gtk-text-iter-forward-visible-word-ends -- Variable: gtk-text-iter-get-visible-line-index -- Variable: gtk-text-iter-get-visible-line-offset -- Variable: gtk-text-iter-set-visible-line-index -- Variable: gtk-text-iter-set-visible-line-offset -- Variable: gtk-text-view-backward-display-line-start -- Function: gtk-text-view-buffer-to-window-coords -- Variable: gtk-text-view-forward-display-line-end -- Variable: gtk-text-view-get-border-window-size -- Variable: gtk-text-view-get-default-attributes -- Variable: gtk-text-view-get-pixels-above-lines -- Variable: gtk-text-view-get-pixels-below-lines -- Variable: gtk-text-view-get-pixels-inside-wrap -- Variable: gtk-text-view-set-border-window-size -- Variable: gtk-text-view-set-pixels-above-lines -- Variable: gtk-text-view-set-pixels-below-lines -- Variable: gtk-text-view-set-pixels-inside-wrap -- Function: gtk-text-view-window-to-buffer-coords -- Variable: gtk-toggle-tool-button-new-from-stock -- Variable: gtk-tool-item-get-visible-horizontal -- Variable: gtk-tool-item-retrieve-proxy-menu-item -- Variable: gtk-tool-item-set-visible-horizontal -- Variable: gtk-tree-drag-dest-drag-data-received -- Variable: gtk-tree-drag-dest-row-drop-possible -- Variable: gtk-tree-drag-source-drag-data-delete -- Variable: gtk-tree-model-filter-convert-child-iter-to-iter -- Variable: gtk-tree-model-filter-convert-child-path-to-path -- Variable: gtk-tree-model-filter-convert-iter-to-child-iter -- Variable: gtk-tree-model-filter-convert-path-to-child-path -- Variable: gtk-tree-model-filter-set-visible-column -- Variable: gtk-tree-model-row-has-child-toggled -- Variable: gtk-tree-model-sort-convert-child-iter-to-iter -- Variable: gtk-tree-model-sort-convert-child-path-to-path -- Variable: gtk-tree-model-sort-convert-iter-to-child-iter -- Variable: gtk-tree-model-sort-convert-path-to-child-path -- Variable: gtk-tree-model-sort-reset-default-sort-func -- Variable: gtk-tree-selection-count-selected-rows -- Variable: gtk-tree-sortable-has-default-sort-func -- Variable: gtk-tree-sortable-set-sort-column-id -- Variable: gtk-tree-sortable-sort-column-changed -- Function: gtk-tree-view-column-cell-get-position -- Variable: gtk-tree-view-column-cell-is-visible -- Variable: gtk-tree-view-column-cell-set-cell-data -- Variable: gtk-tree-view-column-clear-attributes -- Function: gtk-tree-view-column-get-cell-renderers -- Variable: gtk-tree-view-column-get-fixed-width -- Variable: gtk-tree-view-column-get-reorderable -- Variable: gtk-tree-view-column-get-sort-column-id -- Variable: gtk-tree-view-column-get-sort-indicator -- Variable: gtk-tree-view-column-set-cell-data-func -- Variable: gtk-tree-view-column-set-fixed-width -- Variable: gtk-tree-view-column-set-reorderable -- Variable: gtk-tree-view-column-set-sort-column-id -- Variable: gtk-tree-view-column-set-sort-indicator -- Variable: gtk-tree-view-unset-rows-drag-source -- Variable: gtk-true -- Function: gtk-vscrollbar-get-type -- Variable: gtk-widget-get-allocation -- Variable: gtk-widget-get-state -- Variable: gtk-widget-get-window -- Variable: gtk-window-set-auto-startup-notification -- Function: gtk-window-set-default-icon-from-file  File: guile-gnome-gtk.info, Node: Type Index, Next: Function Index, Prev: Undocumented, Up: Top Type Index ********** [index] * Menu: * : GtkAboutDialog. (line 36) * : GtkAccelLabel. (line 64) * : GtkAccessible. (line 15) * : GtkActionGroup. (line 35) * : GtkAction. (line 51) * : GtkAdjustment. (line 31) * : GtkAlignment. (line 28) * : GtkArrow. (line 29) * : GtkAspectFrame. (line 22) * : GtkAssistant. (line 19) * : GtkBin. (line 23) * : GtkBox. (line 60) * : GtkButtonBox. (line 39) * : GtkButton. (line 23) * : GtkCalendar. (line 33) * : GtkCellEditable. (line 18) * : GtkCellLayout. (line 29) * : GtkCellRendererAccel. (line 21) * : GtkCellRendererCombo. (line 30) * : GtkCellRendererPixbuf. (line 26) * : GtkCellRendererProgress. (line 22) * : GtkCellRendererSpin. (line 31) * : GtkCellRendererText. (line 23) * : GtkCellRendererToggle. (line 19) * : GtkCellRenderer. (line 46) * : GtkCellView. (line 20) * : GtkCheckButton. (line 23) * : GtkCheckMenuItem. (line 23) * : GtkColorButton. (line 20) * : GtkColorSelectionDialog. (line 19) * : GtkColorSelection. (line 21) * : GtkComboBoxEntry. (line 40) * : GtkComboBox. (line 39) * : GtkContainer. (line 107) * : GtkCurve. (line 33) * : GtkDialog. (line 97) * : GtkDrawingArea. (line 76) * : GtkEditable. (line 50) * : GtkEntryCompletion. (line 46) * : GtkEntry. (line 20) * : GtkEventBox. (line 20) * : GtkExpander. (line 57) * : GtkFileChooserButton. (line 42) * : GtkFileChooserDialog. (line 113) * : GtkFileChooserWidget. (line 25) * : GtkFileChooser. (line 315) * : GtkFileFilter. (line 31) * : GtkFileSelection. (line 81) * : GtkFixed. (line 50) * : GtkFontButton. (line 19) * : GtkFontSelectionDialog. (line 27) * : GtkFontSelection. (line 28) * : GtkFrame. (line 20) * : GtkGammaCurve. (line 32) * : GtkHandleBox. (line 35) * : GtkHBox. (line 22) * : GtkHButtonBox. (line 32) * : GtkHPaned. (line 19) * : GtkHRuler. (line 29) * : GtkHScale. (line 23) * : GtkHScrollbar. (line 21) * : GtkHSeparator. (line 24) * : GtkIconView. (line 22) * : GtkIMContextSimple. (line 15) * : GtkIMContext. (line 15) * : GtkIMMulticontext. (line 15) * : GtkImageMenuItem. (line 21) * : GtkImage. (line 93) * : GtkInputDialog. (line 33) * : GtkInvisible. (line 21) * : GtkItem. (line 18) * : GtkLabel. (line 103) * : GtkLayout. (line 26) * : GtkLinkButton. (line 32) * : GtkListStore. (line 111) * : GtkMenuBar. (line 21) * : GtkMenuItem. (line 22) * : GtkMenuShell. (line 23) * : GtkMenuToolButton. (line 23) * : GtkMenu. (line 66) * : GtkMessageDialog. (line 52) * : GtkMisc. (line 28) * : GtkNotebook. (line 26) * : GtkObject. (line 79) * : GtkPageSetup. (line 54) * : GtkPaned. (line 55) * : GtkPaperSize. (line 27) * : GtkPlug. (line 26) * : GtkPrintContext. (line 80) * : GtkPrintOperation. (line 305) * : GtkPrintOperation. (line 75) * : GtkPrintSettings. (line 28) * : GtkProgressBar. (line 50) * : GtkRadioAction. (line 19) * : GtkRadioButton. (line 79) * : GtkRadioMenuItem. (line 38) * : GtkRadioToolButton. (line 27) * : GtkRange. (line 15) * : GtkRecentChooserDialog. (line 51) * : GtkRecentChooserMenu. (line 37) * : GtkRecentChooserWidget. (line 27) * : GtkRecentChooser. (line 23) * : GtkRecentFilter. (line 35) * : GtkRecentManager. (line 81) * : GtkRecentManager. (line 56) * : GtkWidget. (line 521) * : GtkRuler. (line 30) * : GtkScale. (line 27) * : GtkScrollbar. (line 28) * : GtkScrolledWindow. (line 61) * : GtkWidget. (line 527) * : GtkSeparatorMenuItem. (line 19) * : GtkSeparatorToolItem. (line 27) * : GtkSeparator. (line 18) * : GtkSizeGroup. (line 50) * : GtkSocket. (line 67) * : GtkSpinButton. (line 82) * : GtkStatusIcon. (line 40) * : GtkStatusbar. (line 44) * : GtkTable. (line 37) * : GtkTearoffMenuItem. (line 28) * : GtkTextTag. (line 245) * : GtkTextBuffer. (line 19) * : GtkTextView. (line 112) * : GtkTextIter. (line 19) * : GtkTextMark. (line 44) * : GtkTextTagTable. (line 19) * : GtkTextTag. (line 28) * : GtkTextView. (line 19) * : GtkToggleAction. (line 19) * : GtkToggleButton. (line 58) * : GtkToggleToolButton. (line 22) * : GtkToolButton. (line 34) * : GtkToolItem. (line 23) * : GtkToolbar. (line 31) * : GtkTooltips. (line 76) * : GtkTreeView drag-and-drop. (line 37) * : GtkTreeView drag-and-drop. (line 31) * : GtkTreeModel. (line 220) * : GtkTreeModelFilter. (line 33) * : GtkTreeModelSort. (line 108) * : GtkTreeModel. (line 170) * : GtkTreeModel. (line 226) * : GtkTreeModel. (line 232) * : GtkTreeSelection. (line 40) * : GtkTreeSortable. (line 19) * : GtkTreeStore. (line 22) * : GtkTreeViewColumn. (line 24) * : GtkTreeView. (line 22) * : GtkUIManager. (line 191) * : GtkVBox. (line 23) * : GtkVButtonBox. (line 32) * : GtkViewport. (line 15) * : GtkVPaned. (line 19) * : GtkVRuler. (line 29) * : GtkVScale. (line 22) * : GtkVScrollbar. (line 21) * : GtkVSeparator. (line 19) * : GtkWidget. (line 30) * : GtkWindowGroup. (line 15) * : GtkWindow. (line 15) * : Undocumented. (line 60) * : Undocumented. (line 12) guile-gnome-platform-2.16.2/gtk/doc/gtk/defuns-gtkvruler.xml.texi0000644000175000017500000000052111670374302025305 0ustar00wingowingo00000000000000 @c %start of fragment @deftp Class Derives from @code{}. This class defines no direct slots. @end deftp @deffn Function gtk-vruler-new @result{}@tie{} (ret@tie{}@code{}) Creates a new vertical ruler @table @var @item ret a new @code{}. @end table @end deffn @c %end of fragment guile-gnome-platform-2.16.2/gtk/doc/gtk/defuns-gtktable.xml.texi0000644000175000017500000002107211670374302025061 0ustar00wingowingo00000000000000 @c %start of fragment @deftp Class Derives from @code{}. This class defines the following slots: @table @code @item n-rows The number of rows in the table @item n-columns The number of columns in the table @item column-spacing The amount of space between two consecutive columns @item row-spacing The amount of space between two consecutive rows @item homogeneous If TRUE, the table cells are all the same width/height @end table @end deftp @deffn Function gtk-table-new (rows@tie{}@code{unsigned-int}) (columns@tie{}@code{unsigned-int}) (homogeneous@tie{}@code{bool}) @result{}@tie{} (ret@tie{}@code{}) Used to create a new table widget. An initial size must be given by specifying how many rows and columns the table should have, although this can be changed later with @code{gtk-table-resize}. @var{rows} and @var{columns} must both be in the range 0 .. 65535. @table @var @item rows The number of rows the new table should have. @item columns The number of columns the new table should have. @item homogeneous If set to @samp{@code{#t}}, all table cells are resized to the size of the cell containing the largest widget. @item ret A pointer to the the newly created table widget. @end table @end deffn @deffn Function gtk-table-resize (self@tie{}@code{}) (rows@tie{}@code{unsigned-int}) (columns@tie{}@code{unsigned-int}) @deffnx Method resize If you need to change a table's size @emph{after} it has been created, this function allows you to do so. @table @var @item table The @code{} you wish to change the size of. @item rows The new number of rows. @item columns The new number of columns. @end table @end deffn @deffn Function gtk-table-attach (self@tie{}@code{}) (child@tie{}@code{}) (left_attach@tie{}@code{unsigned-int}) (right_attach@tie{}@code{unsigned-int}) (top_attach@tie{}@code{unsigned-int}) (bottom_attach@tie{}@code{unsigned-int}) (xoptions@tie{}@code{}) (yoptions@tie{}@code{}) (xpadding@tie{}@code{unsigned-int}) (ypadding@tie{}@code{unsigned-int}) @deffnx Method attach Adds a widget to a table. The number of 'cells' that a widget will occupy is specified by @var{left-attach}, @var{right-attach}, @var{top-attach} and @var{bottom-attach}. These each represent the leftmost, rightmost, uppermost and lowest column and row numbers of the table. (Columns and rows are indexed from zero). @table @var @item table The @code{} to add a new widget to. @item child The widget to add. @item left-attach the column number to attach the left side of a child widget to. @item right-attach the column number to attach the right side of a child widget to. @item top-attach the row number to attach the top of a child widget to. @item bottom-attach the row number to attach the bottom of a child widget to. @item xoptions Used to specify the properties of the child widget when the table is resized. @item yoptions The same as xoptions, except this field determines behaviour of vertical resizing. @item xpadding An integer value specifying the padding on the left and right of the widget being added to the table. @item ypadding The amount of padding above and below the child widget. @end table @end deffn @deffn Function gtk-table-attach-defaults (self@tie{}@code{}) (widget@tie{}@code{}) (left_attach@tie{}@code{unsigned-int}) (right_attach@tie{}@code{unsigned-int}) (top_attach@tie{}@code{unsigned-int}) (bottom_attach@tie{}@code{unsigned-int}) @deffnx Method attach-defaults As there are many options associated with @code{gtk-table-attach}, this convenience function provides the programmer with a means to add children to a table with identical padding and expansion options. The values used for the @code{} are @samp{GTK_EXPAND | GTK_FILL}, and the padding is set to 0. @table @var @item table The table to add a new child widget to. @item widget The child widget to add. @item left-attach The column number to attach the left side of the child widget to. @item right-attach The column number to attach the right side of the child widget to. @item top-attach The row number to attach the top of the child widget to. @item bottom-attach The row number to attach the bottom of the child widget to. @end table @end deffn @deffn Function gtk-table-set-row-spacing (self@tie{}@code{}) (row@tie{}@code{unsigned-int}) (spacing@tie{}@code{unsigned-int}) @deffnx Method set-row-spacing Changes the space between a given table row and the subsequent row. @table @var @item table a @code{} containing the row whose properties you wish to change. @item row row number whose spacing will be changed. @item spacing number of pixels that the spacing should take up. @end table @end deffn @deffn Function gtk-table-set-col-spacing (self@tie{}@code{}) (column@tie{}@code{unsigned-int}) (spacing@tie{}@code{unsigned-int}) @deffnx Method set-col-spacing Alters the amount of space between a given table column and the following column. @table @var @item table a @code{}. @item column the column whose spacing should be changed. @item spacing number of pixels that the spacing should take up. @end table @end deffn @deffn Function gtk-table-set-row-spacings (self@tie{}@code{}) (spacing@tie{}@code{unsigned-int}) @deffnx Method set-row-spacings Sets the space between every row in @var{table} equal to @var{spacing}. @table @var @item table a @code{}. @item spacing the number of pixels of space to place between every row in the table. @end table @end deffn @deffn Function gtk-table-set-col-spacings (self@tie{}@code{}) (spacing@tie{}@code{unsigned-int}) @deffnx Method set-col-spacings Sets the space between every column in @var{table} equal to @var{spacing}. @table @var @item table a @code{}. @item spacing the number of pixels of space to place between every column in the table. @end table @end deffn @deffn Function gtk-table-set-homogeneous (self@tie{}@code{}) (homogeneous@tie{}@code{bool}) @deffnx Method set-homogeneous Changes the homogenous property of table cells, ie. whether all cells are an equal size or not. @table @var @item table The @code{} you wish to set the homogeneous properties of. @item homogeneous Set to @samp{@code{#t}} to ensure all table cells are the same size. Set to @samp{@code{#f}} if this is not your desired behaviour. @end table @end deffn @deffn Function gtk-table-get-default-row-spacing (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{unsigned-int}) @deffnx Method get-default-row-spacing Gets the default row spacing for the table. This is the spacing that will be used for newly added rows. (See @code{gtk-table-set-row-spacings}) @table @var @item table a @code{} @item ret value: the default row spacing @end table @end deffn @deffn Function gtk-table-get-homogeneous (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{bool}) @deffnx Method get-homogeneous Returns whether the table cells are all constrained to the same width and height. (See @code{gtk-table-set-homogenous}) @table @var @item table a @code{} @item ret @samp{@code{#t}} if the cells are all constrained to the same size @end table @end deffn @deffn Function gtk-table-get-row-spacing (self@tie{}@code{}) (row@tie{}@code{unsigned-int}) @result{}@tie{} (ret@tie{}@code{unsigned-int}) @deffnx Method get-row-spacing Gets the amount of space between row @var{row}, and row @var{row} + 1. See @code{gtk-table-set-row-spacing}. @table @var @item table a @code{} @item row a row in the table, 0 indicates the first row @item ret the row spacing @end table @end deffn @deffn Function gtk-table-get-col-spacing (self@tie{}@code{}) (column@tie{}@code{unsigned-int}) @result{}@tie{} (ret@tie{}@code{unsigned-int}) @deffnx Method get-col-spacing Gets the amount of space between column @var{col}, and column @var{col} + 1. See @code{gtk-table-set-col-spacing}. @table @var @item table a @code{} @item column a column in the table, 0 indicates the first column @item ret the column spacing @end table @end deffn @deffn Function gtk-table-get-default-col-spacing (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{unsigned-int}) @deffnx Method get-default-col-spacing Gets the default column spacing for the table. This is the spacing that will be used for newly added columns. (See @code{gtk-table-set-col-spacings}) @table @var @item table a @code{} @item ret value: the default column spacing @end table @end deffn @c %end of fragment guile-gnome-platform-2.16.2/gtk/doc/gtk/defuns-gtkselection.xml.texi0000644000175000017500000001153011670374302025755 0ustar00wingowingo00000000000000 @c %start of fragment @deffn Function gtk-selection-owner-set (self@tie{}@code{}) (selection@tie{}@code{}) (time@tie{}@code{unsigned-int32}) @result{}@tie{} (ret@tie{}@code{bool}) Claims ownership of a given selection for a particular widget, or, if @var{widget} is @samp{@code{#f}}, release ownership of the selection. @table @var @item widget a @code{}, or @samp{@code{#f}}. @item selection an interned atom representing the selection to claim @item time timestamp with which to claim the selection @item ret @samp{@code{#t}} if the operation succeeded @end table @end deffn @deffn Function gtk-selection-owner-set-for-display (display@tie{}@code{}) (widget@tie{}@code{}) (selection@tie{}@code{}) (time@tie{}@code{unsigned-int32}) @result{}@tie{} (ret@tie{}@code{bool}) Claim ownership of a given selection for a particular widget, or, if @var{widget} is @samp{@code{#f}}, release ownership of the selection. @table @var @item display the @code{} where the selection is set @item widget new selection owner (a @code{}), or @samp{@code{#f}}. @item selection an interned atom representing the selection to claim. @item time timestamp with which to claim the selection @item ret TRUE if the operation succeeded @end table Since 2.2 @end deffn @deffn Function gtk-selection-add-target (self@tie{}@code{}) (selection@tie{}@code{}) (target@tie{}@code{}) (info@tie{}@code{unsigned-int}) Appends a specified target to the list of supported targets for a given widget and selection. @table @var @item widget a @code{} @item selection the selection @item target target to add. @item info A unsigned integer which will be passed back to the application. @end table @end deffn @deffn Function gtk-selection-clear-targets (self@tie{}@code{}) (selection@tie{}@code{}) Remove all targets registered for the given selection for the widget. @table @var @item widget a @code{} @item selection an atom representing a selection @end table @end deffn @deffn Function gtk-selection-convert (self@tie{}@code{}) (selection@tie{}@code{}) (target@tie{}@code{}) (time@tie{}@code{unsigned-int32}) @result{}@tie{} (ret@tie{}@code{bool}) Requests the contents of a selection. When received, a "selection_received" signal will be generated. @table @var @item widget The widget which acts as requestor @item selection Which selection to get @item target Form of information desired (e.g., STRING) @item time Time of request (usually of triggering event) In emergency, you could use @code{} @item ret @samp{@code{#t}} if requested succeeded. @samp{@code{#f}} if we could not process request. (e.g., there was already a request in process for this widget). @end table @end deffn @deffn Function gtk-selection-data-set-text (self@tie{}@code{}) (str@tie{}@code{mchars}) (len@tie{}@code{int}) @result{}@tie{} (ret@tie{}@code{bool}) Sets the contents of the selection from a UTF-8 encoded string. The string is converted to the form determined by @var{selection-data->target}. @table @var @item selection-data a @code{} @item str a UTF-8 string @item len the length of @var{str}, or -1 if @var{str} is nul-terminated. @item ret @samp{@code{#t}} if the selection was successfully set, otherwise @samp{@code{#f}}. @end table @end deffn @deffn Function gtk-selection-data-set-pixbuf (self@tie{}@code{}) (pixbuf@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{bool}) Sets the contents of the selection from a @code{} The pixbuf is converted to the form determined by @var{selection-data->target}. @table @var @item selection-data a @code{} @item pixbuf a @code{} @item ret @samp{@code{#t}} if the selection was successfully set, otherwise @samp{@code{#f}}. @end table Since 2.6 @end deffn @deffn Function gtk-selection-data-get-pixbuf (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{}) Gets the contents of the selection data as a @code{}. @table @var @item selection-data a @code{} @item ret if the selection data contained a recognized image type and it could be converted to a @code{}, a newly allocated pixbuf is returned, otherwise @samp{@code{#f}}. If the result is non-@samp{@code{#f}} it must be freed with @code{g-object-unref}. @end table Since 2.6 @end deffn @deffn Function gtk-selection-remove-all (self@tie{}@code{}) Removes all handlers and unsets ownership of all selections for a widget. Called when widget is being destroyed. This function will not generally be called by applications. @table @var @item widget a @code{} @end table @end deffn @c %end of fragment guile-gnome-platform-2.16.2/gtk/doc/gtk/defuns-gtkfilechooserbutton.xml.texi0000644000175000017500000000324711670374302027534 0ustar00wingowingo00000000000000 @c %start of fragment @deftp Class Derives from @code{}, @code{}. This class defines the following slots: @table @code @item dialog The file chooser dialog to use. @item focus-on-click Whether the button grabs focus when it is clicked with the mouse @item title The title of the file chooser dialog. @item width-chars The desired width of the button widget, in characters. @end table @end deftp @defop Signal file-set undocumented @end defop @deffn Function gtk-file-chooser-button-new (title@tie{}@code{mchars}) (action@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{}) Creates a new file-selecting button widget. @table @var @item title the title of the browse dialog. @item action the open mode for the widget. @item ret a new button widget. @end table Since 2.6 @end deffn @deffn Function gtk-file-chooser-button-get-title (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{mchars}) @deffnx Method get-title Retrieves the title of the browse dialog used by @var{button}. The returned value should not be modified or freed. @table @var @item button the button widget to examine. @item ret a pointer to the browse dialog's title. @end table Since 2.6 @end deffn @deffn Function gtk-file-chooser-button-set-title (self@tie{}@code{}) (title@tie{}@code{mchars}) @deffnx Method set-title Modifies the @var{title} of the browse dialog used by @var{button}. @table @var @item button the button widget to modify. @item title the new browse dialog title. @end table Since 2.6 @end deffn @c %end of fragment guile-gnome-platform-2.16.2/gtk/doc/gtk/section-gtkbbox.xml.texi0000644000175000017500000000233011670374302025100 0ustar00wingowingo00000000000000 @c %start of fragment @node GtkButtonBox @chapter GtkButtonBox Base class for and @section Overview The primary purpose of this class is to keep track of the various properties of @code{} and @code{} widgets. @code{gtk-button-box-get-child-size} retrieves the minimum width and height for widgets in a given button box. @code{gtk-button-box-set-child-size} allows those properties to be changed. The internal padding of buttons can be retrieved and changed per button box using @code{gtk-button-box-get-child-ipadding} and @code{gtk-button-box-set-child-ipadding} respectively. @code{gtk-button-box-get-spacing} and @code{gtk-button-box-set-spacing} retrieve and change default number of pixels between buttons, respectively. @code{gtk-button-box-get-layout} and @code{gtk-button-box-set-layout} retrieve and alter the method used to spread the buttons in a button box across the container, respectively. The main purpose of GtkButtonBox is to make sure the children have all the same size. Therefore it ignores the homogeneous property which it inherited from GtkBox, and always behaves as if homogeneous was @samp{@code{#t}}. @section Usage @include defuns-gtkbbox.xml.texi @c %end of fragment guile-gnome-platform-2.16.2/gtk/doc/gtk/defuns-gtktextiter.xml.texi0000644000175000017500000011367311670374302025653 0ustar00wingowingo00000000000000 @c %start of fragment @deftp Class Derives from @code{}. This class defines no direct slots. @end deftp @deffn Function gtk-text-iter-get-buffer (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{}) Returns the @code{} this iterator is associated with. @table @var @item iter an iterator @item ret the buffer @end table @end deffn @deffn Function gtk-text-iter-copy (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{}) Creates a dynamically-allocated copy of an iterator. This function is not useful in applications, because iterators can be copied with a simple assignment (@samp{GtkTextIter i = j;}). The function is used by language bindings. @table @var @item iter an iterator @item ret a copy of the @var{iter}, free with @code{gtk-text-iter-free} @end table @end deffn @deffn Function gtk-text-iter-get-offset (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{int}) Returns the character offset of an iterator. Each character in a @code{} has an offset, starting with 0 for the first character in the buffer. Use @code{gtk-text-buffer-get-iter-at-offset} to convert an offset back into an iterator. @table @var @item iter an iterator @item ret a character offset @end table @end deffn @deffn Function gtk-text-iter-get-line (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{int}) Returns the line number containing the iterator. Lines in a @code{} are numbered beginning with 0 for the first line in the buffer. @table @var @item iter an iterator @item ret a line number @end table @end deffn @deffn Function gtk-text-iter-get-line-offset (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{int}) Returns the character offset of the iterator, counting from the start of a newline-terminated line. The first character on the line has offset 0. @table @var @item iter an iterator @item ret offset from start of line @end table @end deffn @deffn Function gtk-text-iter-get-line-index (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{int}) Returns the byte index of the iterator, counting from the start of a newline-terminated line. Remember that @code{} encodes text in UTF-8, and that characters can require a variable number of bytes to represent. @table @var @item iter an iterator @item ret distance from start of line, in bytes @end table @end deffn @deffn Function gtk-text-iter-get-char (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{unsigned-int32}) Returns the Unicode character at this iterator. (Equivalent to operator* on a C++ iterator.) If the element at this iterator is a non-character element, such as an image embedded in the buffer, the Unicode "unknown" character 0xFFFC is returned. If invoked on the end iterator, zero is returned; zero is not a valid Unicode character. So you can write a loop which ends when @code{gtk-text-iter-get-char} returns 0. @table @var @item iter an iterator @item ret a Unicode character, or 0 if @var{iter} is not dereferenceable @end table @end deffn @deffn Function gtk-text-iter-get-slice (self@tie{}@code{}) (end@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{mchars}) Returns the text in the given range. A "slice" is an array of characters encoded in UTF-8 format, including the Unicode "unknown" character 0xFFFC for iterable non-character elements in the buffer, such as images. Because images are encoded in the slice, byte and character offsets in the returned array will correspond to byte offsets in the text buffer. Note that 0xFFFC can occur in normal text as well, so it is not a reliable indicator that a pixbuf or widget is in the buffer. @table @var @item start iterator at start of a range @item end iterator at end of a range @item ret slice of text from the buffer @end table @end deffn @deffn Function gtk-text-iter-get-text (self@tie{}@code{}) (end@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{mchars}) Returns @emph{text} in the given range. If the range contains non-text elements such as images, the character and byte offsets in the returned string will not correspond to character and byte offsets in the buffer. If you want offsets to correspond, see @code{gtk-text-iter-get-slice}. @table @var @item start iterator at start of a range @item end iterator at end of a range @item ret array of characters from the buffer @end table @end deffn @deffn Function gtk-text-iter-get-visible-slice (self@tie{}@code{}) (end@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{mchars}) Like @code{gtk-text-iter-get-slice}, but invisible text is not included. Invisible text is usually invisible because a @code{} with the "invisible" attribute turned on has been applied to it. @table @var @item start iterator at start of range @item end iterator at end of range @item ret slice of text from the buffer @end table @end deffn @deffn Function gtk-text-iter-get-visible-text (self@tie{}@code{}) (end@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{mchars}) Like @code{gtk-text-iter-get-text}, but invisible text is not included. Invisible text is usually invisible because a @code{} with the "invisible" attribute turned on has been applied to it. @table @var @item start iterator at start of range @item end iterator at end of range @item ret string containing visible text in the range @end table @end deffn @deffn Function gtk-text-iter-get-pixbuf (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{}) If the element at @var{iter} is a pixbuf, the pixbuf is returned (with no new reference count added). Otherwise, @samp{@code{#f}} is returned. @table @var @item iter an iterator @item ret the pixbuf at @var{iter} @end table @end deffn @deffn Function gtk-text-iter-get-marks (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{gslist-of}) Returns a list of all @code{} at this location. Because marks are not iterable (they don't take up any "space" in the buffer, they are just marks in between iterable locations), multiple marks can exist in the same place. The returned list is not in any meaningful order. @table @var @item iter an iterator @item ret list of @code{} @end table @end deffn @deffn Function gtk-text-iter-get-toggled-tags (self@tie{}@code{}) (toggled_on@tie{}@code{bool}) @result{}@tie{} (ret@tie{}@code{gslist-of}) Returns a list of @code{} that are toggled on or off at this point. (If @var{toggled-on} is @samp{@code{#t}}, the list contains tags that are toggled on.) If a tag is toggled on at @var{iter}, then some non-empty range of characters following @var{iter} has that tag applied to it. If a tag is toggled off, then some non-empty range following @var{iter} does @emph{not} have the tag applied to it. @table @var @item iter an iterator @item toggled-on @samp{@code{#t}} to get toggled-on tags @item ret tags toggled at this point @end table @end deffn @deffn Function gtk-text-iter-get-child-anchor (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{}) If the location at @var{iter} contains a child anchor, the anchor is returned (with no new reference count added). Otherwise, @samp{@code{#f}} is returned. @table @var @item iter an iterator @item ret the anchor at @var{iter} @end table @end deffn @deffn Function gtk-text-iter-begins-tag (self@tie{}@code{}) (tag@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{bool}) Returns @samp{@code{#t}} if @var{tag} is toggled on at exactly this point. If @var{tag} is @samp{@code{#f}}, returns @samp{@code{#t}} if any tag is toggled on at this point. Note that the @code{gtk-text-iter-begins-tag} returns @samp{@code{#t}} if @var{iter} is the @emph{start} of the tagged range; @code{gtk-text-iter-has-tag} tells you whether an iterator is @emph{within} a tagged range. @table @var @item iter an iterator @item tag a @code{}, or @samp{@code{#f}} @item ret whether @var{iter} is the start of a range tagged with @var{tag} @end table @end deffn @deffn Function gtk-text-iter-ends-tag (self@tie{}@code{}) (tag@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{bool}) Returns @samp{@code{#t}} if @var{tag} is toggled off at exactly this point. If @var{tag} is @samp{@code{#f}}, returns @samp{@code{#t}} if any tag is toggled off at this point. Note that the @code{gtk-text-iter-ends-tag} returns @samp{@code{#t}} if @var{iter} is the @emph{end} of the tagged range; @code{gtk-text-iter-has-tag} tells you whether an iterator is @emph{within} a tagged range. @table @var @item iter an iterator @item tag a @code{}, or @samp{@code{#f}} @item ret whether @var{iter} is the end of a range tagged with @var{tag} @end table @end deffn @deffn Function gtk-text-iter-toggles-tag (self@tie{}@code{}) (tag@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{bool}) This is equivalent to (@code{gtk-text-iter-begins-tag} || @code{gtk-text-iter-ends-tag}), i.e. it tells you whether a range with @var{tag} applied to it begins @emph{or} ends at @var{iter}. @table @var @item iter an iterator @item tag a @code{}, or @samp{@code{#f}} @item ret whether @var{tag} is toggled on or off at @var{iter} @end table @end deffn @deffn Function gtk-text-iter-has-tag (self@tie{}@code{}) (tag@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{bool}) Returns @samp{@code{#t}} if @var{iter} is within a range tagged with @var{tag}. @table @var @item iter an iterator @item tag a @code{} @item ret whether @var{iter} is tagged with @var{tag} @end table @end deffn @deffn Function gtk-text-iter-get-tags (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{gslist-of}) Returns a list of tags that apply to @var{iter}, in ascending order of priority (highest-priority tags are last). The @code{} in the list don't have a reference added, but you have to free the list itself. @table @var @item iter a @code{} @item ret list of @code{} @end table @end deffn @deffn Function gtk-text-iter-editable (self@tie{}@code{}) (default_setting@tie{}@code{bool}) @result{}@tie{} (ret@tie{}@code{bool}) Returns whether the character at @var{iter} is within an editable region of text. Non-editable text is "locked" and can't be changed by the user via @code{}. This function is simply a convenience wrapper around @code{gtk-text-iter-get-attributes}. If no tags applied to this text affect editability, @var{default-setting} will be returned. You don't want to use this function to decide whether text can be inserted at @var{iter}, because for insertion you don't want to know whether the char at @var{iter} is inside an editable range, you want to know whether a new character inserted at @var{iter} would be inside an editable range. Use @code{gtk-text-iter-can-insert} to handle this case. @table @var @item iter an iterator @item default-setting @samp{@code{#t}} if text is editable by default @item ret whether @var{iter} is inside an editable range @end table @end deffn @deffn Function gtk-text-iter-can-insert (self@tie{}@code{}) (default_editability@tie{}@code{bool}) @result{}@tie{} (ret@tie{}@code{bool}) Considering the default editability of the buffer, and tags that affect editability, determines whether text inserted at @var{iter} would be editable. If text inserted at @var{iter} would be editable then the user should be allowed to insert text at @var{iter}. @code{gtk-text-buffer-insert-interactive} uses this function to decide whether insertions are allowed at a given position. @table @var @item iter an iterator @item default-editability @samp{@code{#t}} if text is editable by default @item ret whether text inserted at @var{iter} would be editable @end table @end deffn @deffn Function gtk-text-iter-starts-word (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{bool}) Determines whether @var{iter} begins a natural-language word. Word breaks are determined by Pango and should be correct for nearly any language (if not, the correct fix would be to the Pango word break algorithms). @table @var @item iter a @code{} @item ret @samp{@code{#t}} if @var{iter} is at the start of a word @end table @end deffn @deffn Function gtk-text-iter-ends-word (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{bool}) Determines whether @var{iter} ends a natural-language word. Word breaks are determined by Pango and should be correct for nearly any language (if not, the correct fix would be to the Pango word break algorithms). @table @var @item iter a @code{} @item ret @samp{@code{#t}} if @var{iter} is at the end of a word @end table @end deffn @deffn Function gtk-text-iter-inside-word (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{bool}) Determines whether @var{iter} is inside a natural-language word (as opposed to say inside some whitespace). Word breaks are determined by Pango and should be correct for nearly any language (if not, the correct fix would be to the Pango word break algorithms). @table @var @item iter a @code{} @item ret @samp{@code{#t}} if @var{iter} is inside a word @end table @end deffn @deffn Function gtk-text-iter-starts-line (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{bool}) Returns @samp{@code{#t}} if @var{iter} begins a paragraph, i.e. if @code{gtk-text-iter-get-line-offset} would return 0. However this function is potentially more efficient than @code{gtk-text-iter-get-line-offset} because it doesn't have to compute the offset, it just has to see whether it's 0. @table @var @item iter an iterator @item ret whether @var{iter} begins a line @end table @end deffn @deffn Function gtk-text-iter-ends-line (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{bool}) Returns @samp{@code{#t}} if @var{iter} points to the start of the paragraph delimiter characters for a line (delimiters will be either a newline, a carriage return, a carriage return followed by a newline, or a Unicode paragraph separator character). Note that an iterator pointing to the \n of a \r\n pair will not be counted as the end of a line, the line ends before the \r. The end iterator is considered to be at the end of a line, even though there are no paragraph delimiter chars there. @table @var @item iter an iterator @item ret whether @var{iter} is at the end of a line @end table @end deffn @deffn Function gtk-text-iter-starts-sentence (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{bool}) Determines whether @var{iter} begins a sentence. Sentence boundaries are determined by Pango and should be correct for nearly any language (if not, the correct fix would be to the Pango text boundary algorithms). @table @var @item iter a @code{} @item ret @samp{@code{#t}} if @var{iter} is at the start of a sentence. @end table @end deffn @deffn Function gtk-text-iter-ends-sentence (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{bool}) Determines whether @var{iter} ends a sentence. Sentence boundaries are determined by Pango and should be correct for nearly any language (if not, the correct fix would be to the Pango text boundary algorithms). @table @var @item iter a @code{} @item ret @samp{@code{#t}} if @var{iter} is at the end of a sentence. @end table @end deffn @deffn Function gtk-text-iter-inside-sentence (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{bool}) Determines whether @var{iter} is inside a sentence (as opposed to in between two sentences, e.g. after a period and before the first letter of the next sentence). Sentence boundaries are determined by Pango and should be correct for nearly any language (if not, the correct fix would be to the Pango text boundary algorithms). @table @var @item iter a @code{} @item ret @samp{@code{#t}} if @var{iter} is inside a sentence. @end table @end deffn @deffn Function gtk-text-iter-is-cursor-position (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{bool}) See @code{gtk-text-iter-forward-cursor-position} or @code{} or @code{pango-break} for details on what a cursor position is. @table @var @item iter a @code{} @item ret @samp{@code{#t}} if the cursor can be placed at @var{iter} @end table @end deffn @deffn Function gtk-text-iter-get-chars-in-line (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{int}) Returns the number of characters in the line containing @var{iter}, including the paragraph delimiters. @table @var @item iter an iterator @item ret number of characters in the line @end table @end deffn @deffn Function gtk-text-iter-get-bytes-in-line (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{int}) Returns the number of bytes in the line containing @var{iter}, including the paragraph delimiters. @table @var @item iter an iterator @item ret number of bytes in the line @end table @end deffn @deffn Function gtk-text-iter-get-attributes (self@tie{}@code{}) (values@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{bool}) Computes the effect of any tags applied to this spot in the text. The @var{values} parameter should be initialized to the default settings you wish to use if no tags are in effect. You'd typically obtain the defaults from @code{gtk-text-view-get-default-attributes}. @code{gtk-text-iter-get-attributes} will modify @var{values}, applying the effects of any tags present at @var{iter}. If any tags affected @var{values}, the function returns @samp{@code{#t}}. @table @var @item iter an iterator @item values a @code{} to be filled in @item ret @samp{@code{#t}} if @var{values} was modified @end table @end deffn @deffn Function gtk-text-iter-get-language (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{}) A convenience wrapper around @code{gtk-text-iter-get-attributes}, which returns the language in effect at @var{iter}. If no tags affecting language apply to @var{iter}, the return value is identical to that of @code{gtk-get-default-language}. @table @var @item iter an iterator @item ret language in effect at @var{iter} @end table @end deffn @deffn Function gtk-text-iter-is-end (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{bool}) Returns @samp{@code{#t}} if @var{iter} is the end iterator, i.e. one past the last dereferenceable iterator in the buffer. @code{gtk-text-iter-is-end} is the most efficient way to check whether an iterator is the end iterator. @table @var @item iter an iterator @item ret whether @var{iter} is the end iterator @end table @end deffn @deffn Function gtk-text-iter-is-start (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{bool}) Returns @samp{@code{#t}} if @var{iter} is the first iterator in the buffer, that is if @var{iter} has a character offset of 0. @table @var @item iter an iterator @item ret whether @var{iter} is the first in the buffer @end table @end deffn @deffn Function gtk-text-iter-forward-char (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{bool}) Moves @var{iter} forward by one character offset. Note that images embedded in the buffer occupy 1 character slot, so @code{gtk-text-iter-forward-char} may actually move onto an image instead of a character, if you have images in your buffer. If @var{iter} is the end iterator or one character before it, @var{iter} will now point at the end iterator, and @code{gtk-text-iter-forward-char} returns @samp{@code{#f}} for convenience when writing loops. @table @var @item iter an iterator @item ret whether @var{iter} moved and is dereferenceable @end table @end deffn @deffn Function gtk-text-iter-backward-char (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{bool}) Moves backward by one character offset. Returns @samp{@code{#t}} if movement was possible; if @var{iter} was the first in the buffer (character offset 0), @code{gtk-text-iter-backward-char} returns @samp{@code{#f}} for convenience when writing loops. @table @var @item iter an iterator @item ret whether movement was possible @end table @end deffn @deffn Function gtk-text-iter-forward-chars (self@tie{}@code{}) (count@tie{}@code{int}) @result{}@tie{} (ret@tie{}@code{bool}) Moves @var{count} characters if possible (if @var{count} would move past the start or end of the buffer, moves to the start or end of the buffer). The return value indicates whether the new position of @var{iter} is different from its original position, and dereferenceable (the last iterator in the buffer is not dereferenceable). If @var{count} is 0, the function does nothing and returns @samp{@code{#f}}. @table @var @item iter an iterator @item count number of characters to move, may be negative @item ret whether @var{iter} moved and is dereferenceable @end table @end deffn @deffn Function gtk-text-iter-backward-chars (self@tie{}@code{}) (count@tie{}@code{int}) @result{}@tie{} (ret@tie{}@code{bool}) Moves @var{count} characters backward, if possible (if @var{count} would move past the start or end of the buffer, moves to the start or end of the buffer). The return value indicates whether the iterator moved onto a dereferenceable position; if the iterator didn't move, or moved onto the end iterator, then @samp{@code{#f}} is returned. If @var{count} is 0, the function does nothing and returns @samp{@code{#f}}. @table @var @item iter an iterator @item count number of characters to move @item ret whether @var{iter} moved and is dereferenceable @end table @end deffn @deffn Function gtk-text-iter-forward-line (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{bool}) Moves @var{iter} to the start of the next line. Returns @samp{@code{#t}} if there was a next line to move to, and @samp{@code{#f}} if @var{iter} was simply moved to the end of the buffer and is now not dereferenceable, or if @var{iter} was already at the end of the buffer. @table @var @item iter an iterator @item ret whether @var{iter} can be dereferenced @end table @end deffn @deffn Function gtk-text-iter-backward-line (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{bool}) Moves @var{iter} to the start of the previous line. Returns @samp{@code{#t}} if @var{iter} could be moved; i.e. if @var{iter} was at character offset 0, this function returns @samp{@code{#f}}. Therefore if @var{iter} was already on line 0, but not at the start of the line, @var{iter} is snapped to the start of the line and the function returns @samp{@code{#t}}. (Note that this implies that in a loop calling this function, the line number may not change on every iteration, if your first iteration is on line 0.) @table @var @item iter an iterator @item ret whether @var{iter} moved @end table @end deffn @deffn Function gtk-text-iter-forward-lines (self@tie{}@code{}) (count@tie{}@code{int}) @result{}@tie{} (ret@tie{}@code{bool}) Moves @var{count} lines forward, if possible (if @var{count} would move past the start or end of the buffer, moves to the start or end of the buffer). The return value indicates whether the iterator moved onto a dereferenceable position; if the iterator didn't move, or moved onto the end iterator, then @samp{@code{#f}} is returned. If @var{count} is 0, the function does nothing and returns @samp{@code{#f}}. If @var{count} is negative, moves backward by 0 - @var{count} lines. @table @var @item iter a @code{} @item count number of lines to move forward @item ret whether @var{iter} moved and is dereferenceable @end table @end deffn @deffn Function gtk-text-iter-backward-lines (self@tie{}@code{}) (count@tie{}@code{int}) @result{}@tie{} (ret@tie{}@code{bool}) Moves @var{count} lines backward, if possible (if @var{count} would move past the start or end of the buffer, moves to the start or end of the buffer). The return value indicates whether the iterator moved onto a dereferenceable position; if the iterator didn't move, or moved onto the end iterator, then @samp{@code{#f}} is returned. If @var{count} is 0, the function does nothing and returns @samp{@code{#f}}. If @var{count} is negative, moves forward by 0 - @var{count} lines. @table @var @item iter a @code{} @item count number of lines to move backward @item ret whether @var{iter} moved and is dereferenceable @end table @end deffn @deffn Function gtk-text-iter-forward-word-ends (self@tie{}@code{}) (count@tie{}@code{int}) @result{}@tie{} (ret@tie{}@code{bool}) Calls @code{gtk-text-iter-forward-word-end} up to @var{count} times. @table @var @item iter a @code{} @item count number of times to move @item ret @samp{@code{#t}} if @var{iter} moved and is not the end iterator @end table @end deffn @deffn Function gtk-text-iter-backward-word-starts (self@tie{}@code{}) (count@tie{}@code{int}) @result{}@tie{} (ret@tie{}@code{bool}) Calls @code{gtk-text-iter-backward-word-start} up to @var{count} times. @table @var @item iter a @code{} @item count number of times to move @item ret @samp{@code{#t}} if @var{iter} moved and is not the end iterator @end table @end deffn @deffn Function gtk-text-iter-forward-word-end (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{bool}) Moves forward to the next word end. (If @var{iter} is currently on a word end, moves forward to the next one after that.) Word breaks are determined by Pango and should be correct for nearly any language (if not, the correct fix would be to the Pango word break algorithms). @table @var @item iter a @code{} @item ret @samp{@code{#t}} if @var{iter} moved and is not the end iterator @end table @end deffn @deffn Function gtk-text-iter-backward-word-start (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{bool}) Moves backward to the previous word start. (If @var{iter} is currently on a word start, moves backward to the next one after that.) Word breaks are determined by Pango and should be correct for nearly any language (if not, the correct fix would be to the Pango word break algorithms). @table @var @item iter a @code{} @item ret @samp{@code{#t}} if @var{iter} moved and is not the end iterator @end table @end deffn @deffn Function gtk-text-iter-forward-sentence-end (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{bool}) Moves forward to the next sentence end. (If @var{iter} is at the end of a sentence, moves to the next end of sentence.) Sentence boundaries are determined by Pango and should be correct for nearly any language (if not, the correct fix would be to the Pango text boundary algorithms). @table @var @item iter a @code{} @item ret @samp{@code{#t}} if @var{iter} moved and is not the end iterator @end table @end deffn @deffn Function gtk-text-iter-forward-sentence-ends (self@tie{}@code{}) (count@tie{}@code{int}) @result{}@tie{} (ret@tie{}@code{bool}) Calls @code{gtk-text-iter-forward-sentence-end}@var{count} times (or until @code{gtk-text-iter-forward-sentence-end} returns @samp{@code{#f}}). If @var{count} is negative, moves backward instead of forward. @table @var @item iter a @code{} @item count number of sentences to move @item ret @samp{@code{#t}} if @var{iter} moved and is not the end iterator @end table @end deffn @deffn Function gtk-text-iter-forward-visible-line (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{bool}) Moves @var{iter} to the start of the next visible line. Returns @samp{@code{#t}} if there was a next line to move to, and @samp{@code{#f}} if @var{iter} was simply moved to the end of the buffer and is now not dereferenceable, or if @var{iter} was already at the end of the buffer. @table @var @item iter an iterator @item ret whether @var{iter} can be dereferenced @end table Since 2.8 @end deffn @deffn Function gtk-text-iter-backward-visible-line (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{bool}) Moves @var{iter} to the start of the previous visible line. Returns @samp{@code{#t}} if @var{iter} could be moved; i.e. if @var{iter} was at character offset 0, this function returns @samp{@code{#f}}. Therefore if @var{iter} was already on line 0, but not at the start of the line, @var{iter} is snapped to the start of the line and the function returns @samp{@code{#t}}. (Note that this implies that in a loop calling this function, the line number may not change on every iteration, if your first iteration is on line 0.) @table @var @item iter an iterator @item ret whether @var{iter} moved @end table Since 2.8 @end deffn @deffn Function gtk-text-iter-forward-visible-lines (self@tie{}@code{}) (count@tie{}@code{int}) @result{}@tie{} (ret@tie{}@code{bool}) Moves @var{count} visible lines forward, if possible (if @var{count} would move past the start or end of the buffer, moves to the start or end of the buffer). The return value indicates whether the iterator moved onto a dereferenceable position; if the iterator didn't move, or moved onto the end iterator, then @samp{@code{#f}} is returned. If @var{count} is 0, the function does nothing and returns @samp{@code{#f}}. If @var{count} is negative, moves backward by 0 - @var{count} lines. @table @var @item iter a @code{} @item count number of lines to move forward @item ret whether @var{iter} moved and is dereferenceable @end table Since 2.8 @end deffn @deffn Function gtk-text-iter-set-offset (self@tie{}@code{}) (char_offset@tie{}@code{int}) Sets @var{iter} to point to @var{char-offset}. @var{char-offset} counts from the start of the entire text buffer, starting with 0. @table @var @item iter a @code{} @item char-offset a character number @end table @end deffn @deffn Function gtk-text-iter-set-line (self@tie{}@code{}) (line_number@tie{}@code{int}) Moves iterator @var{iter} to the start of the line @var{line-number}. If @var{line-number} is negative or larger than the number of lines in the buffer, moves @var{iter} to the start of the last line in the buffer. @table @var @item iter a @code{} @item line-number line number (counted from 0) @end table @end deffn @deffn Function gtk-text-iter-set-line-offset (self@tie{}@code{}) (char_on_line@tie{}@code{int}) Moves @var{iter} within a line, to a new @emph{character} (not byte) offset. The given character offset must be less than or equal to the number of characters in the line; if equal, @var{iter} moves to the start of the next line. See @code{gtk-text-iter-set-line-index} if you have a byte index rather than a character offset. @table @var @item iter a @code{} @item char-on-line a character offset relative to the start of @var{iter}'s current line @end table @end deffn @deffn Function gtk-text-iter-set-line-index (self@tie{}@code{}) (byte_on_line@tie{}@code{int}) Same as @code{gtk-text-iter-set-line-offset}, but works with a @emph{byte} index. The given byte index must be at the start of a character, it can't be in the middle of a UTF-8 encoded character. @table @var @item iter a @code{} @item byte-on-line a byte index relative to the start of @var{iter}'s current line @end table @end deffn @deffn Function gtk-text-iter-forward-to-end (self@tie{}@code{}) Moves @var{iter} forward to the "end iterator," which points one past the last valid character in the buffer. @code{gtk-text-iter-get-char} called on the end iterator returns 0, which is convenient for writing loops. @table @var @item iter a @code{} @end table @end deffn @deffn Function gtk-text-iter-forward-to-line-end (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{bool}) Moves the iterator to point to the paragraph delimiter characters, which will be either a newline, a carriage return, a carriage return/newline in sequence, or the Unicode paragraph separator character. If the iterator is already at the paragraph delimiter characters, moves to the paragraph delimiter characters for the next line. If @var{iter} is on the last line in the buffer, which does not end in paragraph delimiters, moves to the end iterator (end of the last line), and returns @samp{@code{#f}}. @table @var @item iter a @code{} @item ret @samp{@code{#t}} if we moved and the new location is not the end iterator @end table @end deffn @deffn Function gtk-text-iter-forward-to-tag-toggle (self@tie{}@code{}) (tag@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{bool}) Moves forward to the next toggle (on or off) of the @code{}@var{tag}, or to the next toggle of any tag if @var{tag} is @samp{@code{#f}}. If no matching tag toggles are found, returns @samp{@code{#f}}, otherwise @samp{@code{#t}}. Does not return toggles located at @var{iter}, only toggles after @var{iter}. Sets @var{iter} to the location of the toggle, or to the end of the buffer if no toggle is found. @table @var @item iter a @code{} @item tag a @code{}, or @samp{@code{#f}} @item ret whether we found a tag toggle after @var{iter} @end table @end deffn @deffn Function gtk-text-iter-forward-search (self@tie{}@code{}) (str@tie{}@code{mchars}) (flags@tie{}@code{}) (match_start@tie{}@code{}) (match_end@tie{}@code{}) (limit@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{bool}) Searches forward for @var{str}. Any match is returned by setting @var{match-start} to the first character of the match and @var{match-end} to the first character after the match. The search will not continue past @var{limit}. Note that a search is a linear or O(n) operation, so you may wish to use @var{limit} to avoid locking up your UI on large buffers. If the @code{} flag is present, the match may have invisible text interspersed in @var{str}. i.e. @var{str} will be a possibly-noncontiguous subsequence of the matched range. similarly, if you specify @code{}, the match may have pixbufs or child widgets mixed inside the matched range. If these flags are not given, the match must be exact; the special 0xFFFC character in @var{str} will match embedded pixbufs or child widgets. @table @var @item iter start of search @item str a search string @item flags flags affecting how the search is done @item match-start return location for start of match, or @samp{@code{#f}} @item match-end return location for end of match, or @samp{@code{#f}} @item limit bound for the search, or @samp{@code{#f}} for the end of the buffer @item ret whether a match was found @end table @end deffn @deffn Function gtk-text-iter-backward-search (self@tie{}@code{}) (str@tie{}@code{mchars}) (flags@tie{}@code{}) (match_start@tie{}@code{}) (match_end@tie{}@code{}) (limit@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{bool}) Same as @code{gtk-text-iter-forward-search}, but moves backward. @table @var @item iter a @code{} where the search begins @item str search string @item flags bitmask of flags affecting the search @item match-start return location for start of match, or @samp{@code{#f}} @item match-end return location for end of match, or @samp{@code{#f}} @item limit location of last possible @var{match-start}, or @samp{@code{#f}} for start of buffer @item ret whether a match was found @end table @end deffn @deffn Function gtk-text-iter-equal (self@tie{}@code{}) (rhs@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{bool}) Tests whether two iterators are equal, using the fastest possible mechanism. This function is very fast; you can expect it to perform better than e.g. getting the character offset for each iterator and comparing the offsets yourself. Also, it's a bit faster than @code{gtk-text-iter-compare}. @table @var @item lhs a @code{} @item rhs another @code{} @item ret @samp{@code{#t}} if the iterators point to the same place in the buffer @end table @end deffn @deffn Function gtk-text-iter-compare (self@tie{}@code{}) (rhs@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{int}) A @code{qsort}-style function that returns negative if @var{lhs} is less than @var{rhs}, positive if @var{lhs} is greater than @var{rhs}, and 0 if they're equal. Ordering is in character offset order, i.e. the first character in the buffer is less than the second character in the buffer. @table @var @item lhs a @code{} @item rhs another @code{} @item ret -1 if @var{lhs} is less than @var{rhs}, 1 if @var{lhs} is greater, 0 if they are equal @end table @end deffn @deffn Function gtk-text-iter-in-range (self@tie{}@code{}) (start@tie{}@code{}) (end@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{bool}) Checks whether @var{iter} falls in the range [@var{start}, @var{end}). @var{start} and @var{end} must be in ascending order. @table @var @item iter a @code{} @item start start of range @item end end of range @item ret @samp{@code{#t}} if @var{iter} is in the range @end table @end deffn @deffn Function gtk-text-iter-order (self@tie{}@code{}) (second@tie{}@code{}) Swaps the value of @var{first} and @var{second} if @var{second} comes before @var{first} in the buffer. That is, ensures that @var{first} and @var{second} are in sequence. Most text buffer functions that take a range call this automatically on your behalf, so there's no real reason to call it yourself in those cases. There are some exceptions, such as @code{gtk-text-iter-in-range}, that expect a pre-sorted range. @table @var @item first a @code{} @item second another @code{} @end table @end deffn @c %end of fragment guile-gnome-platform-2.16.2/gtk/doc/gtk/defuns-gtkalignment.xml.texi0000644000175000017500000001061611670374302025752 0ustar00wingowingo00000000000000 @c %start of fragment @deftp Class Derives from @code{}. This class defines the following slots: @table @code @item xalign Horizontal position of child in available space. 0.0 is left aligned, 1.0 is right aligned @item yalign Vertical position of child in available space. 0.0 is top aligned, 1.0 is bottom aligned @item xscale If available horizontal space is bigger than needed for the child, how much of it to use for the child. 0.0 means none, 1.0 means all @item yscale If available vertical space is bigger than needed for the child, how much of it to use for the child. 0.0 means none, 1.0 means all @item top-padding The padding to insert at the top of the widget. @item bottom-padding The padding to insert at the bottom of the widget. @item left-padding The padding to insert at the left of the widget. @item right-padding The padding to insert at the right of the widget. @end table @end deftp @deffn Function gtk-alignment-new (xalign@tie{}@code{float}) (yalign@tie{}@code{float}) (xscale@tie{}@code{float}) (yscale@tie{}@code{float}) @result{}@tie{} (ret@tie{}@code{}) Creates a new @code{}. @table @var @item xalign the horizontal alignment of the child widget, from 0 (left) to 1 (right). @item yalign the vertical alignment of the child widget, from 0 (top) to 1 (bottom). @item xscale the amount that the child widget expands horizontally to fill up unused space, from 0 to 1. A value of 0 indicates that the child widget should never expand. A value of 1 indicates that the child widget will expand to fill all of the space allocated for the @code{}. @item yscale the amount that the child widget expands vertically to fill up unused space, from 0 to 1. The values are similar to @var{xscale}. @item ret the new @code{}. @end table @end deffn @deffn Function gtk-alignment-set (self@tie{}@code{}) (xalign@tie{}@code{float}) (yalign@tie{}@code{float}) (xscale@tie{}@code{float}) (yscale@tie{}@code{float}) @deffnx Method set Sets the @code{} values. @table @var @item alignment a @code{}. @item xalign the horizontal alignment of the child widget, from 0 (left) to 1 (right). @item yalign the vertical alignment of the child widget, from 0 (top) to 1 (bottom). @item xscale the amount that the child widget expands horizontally to fill up unused space, from 0 to 1. A value of 0 indicates that the child widget should never expand. A value of 1 indicates that the child widget will expand to fill all of the space allocated for the @code{}. @item yscale the amount that the child widget expands vertically to fill up unused space, from 0 to 1. The values are similar to @var{xscale}. @end table @end deffn @deffn Function gtk-alignment-get-padding (self@tie{}@code{}) @result{}@tie{} (padding_top@tie{}@code{unsigned-int}) (padding_bottom@tie{}@code{unsigned-int}) (padding_left@tie{}@code{unsigned-int}) (padding_right@tie{}@code{unsigned-int}) @deffnx Method get-padding Gets the padding on the different sides of the widget. See @code{gtk-alignment-set-padding}. @table @var @item alignment a @code{} @item padding-top location to store the padding for the top of the widget, or @samp{@code{#f}} @item padding-bottom location to store the padding for the bottom of the widget, or @samp{@code{#f}} @item padding-left location to store the padding for the left of the widget, or @samp{@code{#f}} @item padding-right location to store the padding for the right of the widget, or @samp{@code{#f}} @end table Since 2.4 @end deffn @deffn Function gtk-alignment-set-padding (self@tie{}@code{}) (padding_top@tie{}@code{unsigned-int}) (padding_bottom@tie{}@code{unsigned-int}) (padding_left@tie{}@code{unsigned-int}) (padding_right@tie{}@code{unsigned-int}) @deffnx Method set-padding Sets the padding on the different sides of the widget. The padding adds blank space to the sides of the widget. For instance, this can be used to indent the child widget towards the right by adding padding on the left. @table @var @item alignment a @code{} @item padding-top the padding at the top of the widget @item padding-bottom the padding at the bottom of the widget @item padding-left the padding at the left of the widget @item padding-right the padding at the right of the widget. @end table Since 2.4 @end deffn @c %end of fragment guile-gnome-platform-2.16.2/gtk/doc/gtk/defuns-gtktreemodelsort.xml.texi0000644000175000017500000000425411670374302026665 0ustar00wingowingo00000000000000 @c %start of fragment @deftp Class Derives from @code{}, @code{}, @code{}, @code{}. This class defines the following slots: @table @code @item model The model for the TreeModelSort to sort @end table @end deftp @deffn Function gtk-tree-model-sort-new-with-model (child_model@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{}) Creates a new @code{}, with @var{child-model} as the child model. @table @var @item child-model A @code{} @item ret A new @code{}. @end table @end deffn @deffn Function gtk-tree-model-sort-get-model (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{}) @deffnx Method get-model Returns the model the @code{} is sorting. @table @var @item tree-model a @code{} @item ret the "child model" being sorted @end table @end deffn @deffn Function gtk-tree-model-sort-clear-cache (self@tie{}@code{}) @deffnx Method clear-cache This function should almost never be called. It clears the @var{tree-model-sort} of any cached iterators that haven't been reffed with @code{gtk-tree-model-ref-node}. This might be useful if the child model being sorted is static (and doesn't change often) and there has been a lot of unreffed access to nodes. As a side effect of this function, all unreffed iters will be invalid. @table @var @item tree-model-sort A @code{} @end table @end deffn @deffn Function gtk-tree-model-sort-iter-is-valid (self@tie{}@code{}) (iter@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{bool}) @deffnx Method iter-is-valid @c (warning) This function is slow. Only use it for debugging and/or testing purposes. Checks if the given iter is a valid iter for this @code{}. @table @var @item tree-model-sort A @code{}. @item iter A @code{}. @item ret @samp{@code{#t}} if the iter is valid, @samp{@code{#f}} if the iter is invalid. @end table Since 2.2 @end deffn @c %end of fragment guile-gnome-platform-2.16.2/gtk/doc/gtk/section-gtkcomboboxentry.xml.texi0000644000175000017500000000257511670374302027053 0ustar00wingowingo00000000000000 @c %start of fragment @node GtkComboBoxEntry @chapter GtkComboBoxEntry A text entry field with a dropdown list @section Overview A @code{} is a widget that allows the user to choose from a list of valid choices or enter a different value. It is very similar to a @code{}, but it displays the selected value in an entry to allow modifying it. In contrast to a @code{}, the underlying model of a @code{} must always have a text column (see @code{gtk-combo-box-entry-set-text-column}), and the entry will show the content of the text column in the selected row. To get the text from the entry, use @code{gtk-combo-box-get-active-text}. The changed signal will be emitted while typing into a GtkComboBoxEntry, as well as when selecting an item from the GtkComboBoxEntry's list. Use @code{gtk-combo-box-get-active} or @code{gtk-combo-box-get-active-iter} to discover whether an item was actually selected from the list. Connect to the activate signal of the GtkEntry (use @code{gtk-bin-get-child}) to detect when the user actually finishes entering text. The convenience API to construct simple text-only @code{}es can also be used with @code{}s which have been constructed with @code{gtk-combo-box-entry-new-text}. @section Usage @include defuns-gtkcomboboxentry.xml.texi @c %end of fragment guile-gnome-platform-2.16.2/gtk/doc/gtk/section-gtkmain.xml.texi0000644000175000017500000000421611670374302025077 0ustar00wingowingo00000000000000 @c %start of fragment @node Main loop and Events @chapter Main loop and Events Library initialization, main event loop, and events @section Overview Before using GTK+, you need to initialize it; initialization connects to the window system display, and parses some standard command line arguments. The @code{gtk-init} function initializes GTK+. @code{gtk-init} exits the application if errors occur; to avoid this, use @code{gtk-init-check}. @code{gtk-init-check} allows you to recover from a failed GTK+ initialization - you might start up your application in text mode instead. Like all GUI toolkits, GTK+ uses an event-driven programming model. When the user is doing nothing, GTK+ sits in the @dfn{main loop} and waits for input. If the user performs some action - say, a mouse click - then the main loop "wakes up" and delivers an event to GTK+. GTK+ forwards the event to one or more widgets. When widgets receive an event, they frequently emit one or more @dfn{signals}. Signals notify your program that "something interesting happened" by invoking functions you've connected to the signal with @code{g-signal-connect}. Functions connected to a signal are often termed @dfn{callbacks}. When your callbacks are invoked, you would typically take some action - for example, when an Open button is clicked you might display a @code{}. After a callback finishes, GTK+ will return to the main loop and await more user input. @example int main (int argc, char **argv) @{ /* Initialize i18n support */ gtk_set_locale (); /* Initialize the widget set */ gtk_init (&argc, &argv); /* Create the main window */ mainwin = gtk_window_new (GTK_WINDOW_TOPLEVEL); /* Set up our GUI elements */ ... /* Show the application window */ gtk_widget_show_all (mainwin); /* Enter the main event loop, and wait for user interaction */ gtk_main (); /* The user lost interest */ return 0; @} @end example It's OK to use the GLib main loop directly instead of @code{gtk-main}, though it involves slightly more typing. See @code{} in the GLib documentation. @section Usage @include defuns-gtkmain.xml.texi @c %end of fragment guile-gnome-platform-2.16.2/gtk/doc/gtk/defuns-gtkstatusbar.xml.texi0000644000175000017500000000653511670374302026011 0ustar00wingowingo00000000000000 @c %start of fragment @deftp Class Derives from @code{}. This class defines the following slots: @table @code @item has-resize-grip Whether the statusbar has a grip for resizing the toplevel @end table @end deftp @defop Signal text-pushed (arg0@tie{}@code{}) (arg1@tie{}@code{}) Is emitted whenever a new message gets pushed onto a statusbar's stack. @end defop @defop Signal text-popped (arg0@tie{}@code{}) (arg1@tie{}@code{}) Is emitted whenever a new message is popped off a statusbar's stack. @end defop @deffn Function gtk-statusbar-new @result{}@tie{} (ret@tie{}@code{}) Creates a new @code{} ready for messages. @table @var @item ret the new @code{}. @end table @end deffn @deffn Function gtk-statusbar-get-context-id (self@tie{}@code{}) (context_description@tie{}@code{mchars}) @result{}@tie{} (ret@tie{}@code{unsigned-int}) @deffnx Method get-context-id Returns a new context identifier, given a description of the actual context. @table @var @item statusbar a @code{}. @item context-description textual description of what context the new message is being used in. @item ret an integer id. @end table @end deffn @deffn Function gtk-statusbar-push (self@tie{}@code{}) (context_id@tie{}@code{unsigned-int}) (text@tie{}@code{mchars}) @result{}@tie{} (ret@tie{}@code{unsigned-int}) @deffnx Method push Pushes a new message onto a statusbar's stack. @table @var @item statusbar a @code{}. @item context-id the message's context id, as returned by @code{gtk-statusbar-get-context-id}. @item text the message to add to the statusbar. @item ret the message's new message id for use with @code{gtk-statusbar-remove}. @end table @end deffn @deffn Function gtk-statusbar-pop (self@tie{}@code{}) (context_id@tie{}@code{unsigned-int}) @deffnx Method pop Removes the message at the top of a @code{}'s stack. @table @var @item statusbar a @code{}. @item context-id a context identifier. @end table @end deffn @deffn Function gtk-statusbar-remove (self@tie{}@code{}) (context_id@tie{}@code{unsigned-int}) (message_id@tie{}@code{unsigned-int}) @deffnx Method remove Forces the removal of a message from a statusbar's stack. The exact @var{context-id} and @var{message-id} must be specified. @table @var @item statusbar a @code{}. @item context-id a context identifier. @item message-id a message identifier, as returned by @code{gtk-statusbar-push}. @end table @end deffn @deffn Function gtk-statusbar-set-has-resize-grip (self@tie{}@code{}) (setting@tie{}@code{bool}) @deffnx Method set-has-resize-grip Sets whether the statusbar has a resize grip. @samp{@code{#t}} by default. @table @var @item statusbar a @code{}. @item setting @samp{@code{#t}} to have a resize grip. @end table @end deffn @deffn Function gtk-statusbar-get-has-resize-grip (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{bool}) @deffnx Method get-has-resize-grip Returns whether the statusbar has a resize grip. @table @var @item statusbar a @code{}. @item ret @samp{@code{#t}} if the statusbar has a resize grip. @end table @end deffn @c %end of fragment guile-gnome-platform-2.16.2/gtk/doc/gtk/section-gtktoolbutton.xml.texi0000644000175000017500000000225111670374303026362 0ustar00wingowingo00000000000000 @c %start of fragment @node GtkToolButton @chapter GtkToolButton A GtkToolItem subclass that displays buttons @section Overview @code{}s are @code{} containing buttons. Use @code{gtk-tool-button-new} to create a new @code{}. Use @code{gtk-tool-button-new-with-stock} to create a @code{} containing a stock item. The label of a @code{} is determined by the properties "label_widget", "label", and "stock_id". If "label_widget" is non-@samp{@code{#f}}, then that widget is used as the label. Otherwise, if "label" is non-@samp{@code{#f}}, that string is used as the label. Otherwise, if "stock_id" is non-@samp{@code{#f}}, the label is determined by the stock item. Otherwise, the button does not have a label. The icon of a @code{} is determined by the properties "icon_widget" and "stock_id". If "icon_widget" is non-@samp{@code{#f}}, then that widget is used as the icon. Otherwise, if "stock_id" is non-@samp{@code{#f}}, the icon is determined by the stock item. Otherwise, the button does not have a label. @section Usage @include defuns-gtktoolbutton.xml.texi @c %end of fragment guile-gnome-platform-2.16.2/gtk/doc/gtk/section-gtkiconview.xml.texi0000644000175000017500000000116111670374302025772 0ustar00wingowingo00000000000000 @c %start of fragment @node GtkIconView @chapter GtkIconView A widget which displays a list of icons in a grid @section Overview @code{} provides an alternative view on a list model. It displays the model as a grid of icons with labels. Like @code{}, it allows to select one or multiple items (depending on the selection mode, see @code{gtk-icon-view-set-selection-mode}). In addition to selection with the arrow keys, @code{} supports rubberband selection, which is controlled by dragging the pointer. @section Usage @include defuns-gtkiconview.xml.texi @c %end of fragment guile-gnome-platform-2.16.2/gtk/doc/gtk/section-gtkcelllayout.xml.texi0000644000175000017500000000176311670374302026334 0ustar00wingowingo00000000000000 @c %start of fragment @node GtkCellLayout @chapter GtkCellLayout An interface for packing cells @section Overview @code{} is an interface to be implemented by all objects which want to provide a @code{} API for packing cells, setting attributes and data funcs. One of the notable features provided by implementations of GtkCellLayout are @emph{attributes}. Attributes let you set the properties in flexible ways. They can just be set to constant values like regular properties. But they can also be mapped to a column of the underlying tree model with @code{gtk-cell-layout-set-attributes}, which means that the value of the attribute can change from cell to cell as they are rendered by the cell renderer. Finally, it is possible to specify a function with @code{gtk-cell-layout-set-cell-data-func} that is called to determine the value of the attribute for each cell that is rendered. @section Usage @include defuns-gtkcelllayout.xml.texi @c %end of fragment guile-gnome-platform-2.16.2/gtk/doc/gtk/defuns-gtkhseparator.xml.texi0000644000175000017500000000055311670374302026143 0ustar00wingowingo00000000000000 @c %start of fragment @deftp Class Derives from @code{}. This class defines no direct slots. @end deftp @deffn Function gtk-hseparator-new @result{}@tie{} (ret@tie{}@code{}) Creates a new @code{}. @table @var @item ret a new @code{}. @end table @end deffn @c %end of fragment guile-gnome-platform-2.16.2/gtk/doc/gtk/section-gtkcombobox.xml.texi0000644000175000017500000000316211670374302025762 0ustar00wingowingo00000000000000 @c %start of fragment @node GtkComboBox @chapter GtkComboBox A widget used to choose from a list of items @section Overview A @code{} is a widget that allows the user to choose from a list of valid choices. The @code{} displays the selected choice. When activated, the @code{} displays a popup which allows the user to make a new choice. The style in which the selected value is displayed, and the style of the popup is determined by the current theme. It may be similar to a @code{}, or similar to a Windows-style combo box. Unlike its predecessors @code{} and @code{}, the @code{} uses the model-view pattern; the list of valid choices is specified in the form of a tree model, and the display of the choices can be adapted to the data in the model by using cell renderers, as you would in a tree view. This is possible since @code{} implements the @code{} interface. The tree model holding the valid choices is not restricted to a flat list, it can be a real tree, and the popup will reflect the tree structure. In addition to the model-view API, @code{} offers a simple API which is suitable for text-only combo boxes, and hides the complexity of managing the data in a model. It consists of the functions @code{gtk-combo-box-new-text}, @code{gtk-combo-box-append-text}, @code{gtk-combo-box-insert-text}, @code{gtk-combo-box-prepend-text}, @code{gtk-combo-box-remove-text} and @code{gtk-combo-box-get-active-text}. @section Usage @include defuns-gtkcombobox.xml.texi @c %end of fragment guile-gnome-platform-2.16.2/gtk/doc/gtk/defuns-gtkviewport.xml.texi0000644000175000017500000000566611670374302025664 0ustar00wingowingo00000000000000 @c %start of fragment @deftp Class Derives from @code{}. This class defines the following slots: @table @code @item hadjustment The GtkAdjustment that determines the values of the horizontal position for this viewport @item vadjustment The GtkAdjustment that determines the values of the vertical position for this viewport @item shadow-type Determines how the shadowed box around the viewport is drawn @end table @end deftp @defop Signal set-scroll-adjustments (arg0@tie{}@code{}) (arg1@tie{}@code{}) @end defop @deffn Function gtk-viewport-new (hadjustment@tie{}@code{}) (vadjustment@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{}) Creates a new @code{} with the given adjustments. @table @var @item hadjustment horizontal adjustment. @item vadjustment vertical adjustment. @item ret a new @code{}. @end table @end deffn @deffn Function gtk-viewport-get-hadjustment (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{}) @deffnx Method get-hadjustment Returns the horizontal adjustment of the viewport. @table @var @item viewport a @code{}. @item ret the horizontal adjustment of @var{viewport}. @end table @end deffn @deffn Function gtk-viewport-get-vadjustment (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{}) @deffnx Method get-vadjustment Returns the vertical adjustment of the viewport. @table @var @item viewport a @code{}. @item ret the vertical adjustment of @var{viewport}. @end table @end deffn @deffn Function gtk-viewport-set-hadjustment (self@tie{}@code{}) (adjustment@tie{}@code{}) @deffnx Method set-hadjustment Sets the horizontal adjustment of the viewport. @table @var @item viewport a @code{}. @item adjustment a @code{}. @end table @end deffn @deffn Function gtk-viewport-set-vadjustment (self@tie{}@code{}) (adjustment@tie{}@code{}) @deffnx Method set-vadjustment Sets the vertical adjustment of the viewport. @table @var @item viewport a @code{}. @item adjustment a @code{}. @end table @end deffn @deffn Function gtk-viewport-set-shadow-type (self@tie{}@code{}) (type@tie{}@code{}) @deffnx Method set-shadow-type Sets the shadow type of the viewport. @table @var @item viewport a @code{}. @item type the new shadow type. @end table @end deffn @deffn Function gtk-viewport-get-shadow-type (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{}) @deffnx Method get-shadow-type Gets the shadow type of the @code{}. See @code{gtk-viewport-set-shadow-type}. @table @var @item viewport a @code{} @item ret the shadow type @end table @end deffn @c %end of fragment guile-gnome-platform-2.16.2/gtk/doc/gtk/defuns-gtkitem.xml.texi0000644000175000017500000000175211670374302024733 0ustar00wingowingo00000000000000 @c %start of fragment @deftp Class Derives from @code{}. This class defines no direct slots. @end deftp @defop Signal select Emitted when the item is selected. @end defop @defop Signal deselect Emitted when the item is deselected. @end defop @defop Signal toggle Emitted when the item is toggled. @end defop @deffn Function gtk-item-select (self@tie{}@code{}) @deffnx Method select Emits the "select" signal on the given item. @table @var @item item a @code{}. @end table @end deffn @deffn Function gtk-item-deselect (self@tie{}@code{}) @deffnx Method deselect Emits the "deselect" signal on the given item. @table @var @item item a @code{}. @end table @end deffn @deffn Function gtk-item-toggle (self@tie{}@code{}) @deffnx Method toggle Emits the "toggle" signal on the given item. @table @var @item item a @code{}. @end table @end deffn @c %end of fragment guile-gnome-platform-2.16.2/gtk/doc/gtk/defuns-gtkfeatures.xml.texi0000644000175000017500000000326611670374302025615 0ustar00wingowingo00000000000000 @c %start of fragment @deffn Function gtk-check-version (required_major@tie{}@code{unsigned-int}) (required_minor@tie{}@code{unsigned-int}) (required_micro@tie{}@code{unsigned-int}) @result{}@tie{} (ret@tie{}@code{mchars}) Checks that the GTK+ library in use is compatible with the given version. Generally you would pass in the constants @code{}, @code{}, @code{} as the three arguments to this function; that produces a check that the library in use is compatible with the version of GTK+ the application or module was compiled against. Compatibility is defined by two things: first the version of the running library is newer than the version @var{required-major.required-minor}.@var{required-micro}. Second the running library must be binary compatible with the version @var{required-major.required-minor}.@var{required-micro} (same major version.) This function is primarily for GTK+ modules; the module can call this function to check that it wasn't loaded into an incompatible version of GTK+. However, such a a check isn't completely reliable, since the module may be linked against an old version of GTK+ and calling the old version of @code{gtk-check-version}, but still get loaded into an application using a newer version of GTK+. @table @var @item required-major the required major version. @item required-minor the required major version. @item required-micro the required major version. @item ret @samp{@code{#f}} if the GTK+ library is compatible with the given version, or a string describing the version mismatch. The returned string is owned by GTK+ and should not be modified or freed. @end table @end deffn @c %end of fragment guile-gnome-platform-2.16.2/gtk/doc/gtk/section-gtkvseparator.xml.texi0000644000175000017500000000056511670374303026345 0ustar00wingowingo00000000000000 @c %start of fragment @node GtkVSeparator @chapter GtkVSeparator A vertical separator @section Overview The @code{} widget is a vertical separator, used to group the widgets within a window. It displays a vertical line with a shadow to make it appear sunken into the interface. @section Usage @include defuns-gtkvseparator.xml.texi @c %end of fragment guile-gnome-platform-2.16.2/gtk/doc/gtk/defuns-gtktoolitem.xml.texi0000644000175000017500000003160211670374302025626 0ustar00wingowingo00000000000000 @c %start of fragment @deftp Class Derives from @code{}. This class defines the following slots: @table @code @item visible-horizontal Whether the toolbar item is visible when the toolbar is in a horizontal orientation. @item visible-vertical Whether the toolbar item is visible when the toolbar is in a vertical orientation. @item is-important Whether the toolbar item is considered important. When TRUE, toolbar buttons show text in GTK_TOOLBAR_BOTH_HORIZ mode @end table @end deftp @defop Signal create-menu-proxy @result{}@tie{}@code{} This signal is emitted when the toolbar needs information from @var{tool-item} about whether the item should appear in the toolbar overflow menu. In response the tool item should either @itemize @item call @code{gtk-tool-item-set-proxy-menu-item} with a @samp{@code{#f}} pointer and return @samp{@code{#t}} to indicate that the item should not appear in the overflow menu @item call @code{gtk-tool-item-set-proxy-menu-item} with a new menu item and return @samp{@code{#t}}, or @item return @samp{@code{#f}} to indicate that the signal was not handled by the item. This means that the item will not appear in the overflow menu unless a later handler installs a menu item. @end itemize The toolbar may cache the result of this signal. When the tool item changes how it will respond to this signal it must call @code{gtk-tool-item-rebuild-menu} to invalidate the cache and ensure that the toolbar rebuilds its overflow menu. @end defop @defop Signal toolbar-reconfigured This signal is emitted when some property of the toolbar that the item is a child of changes. For custom subclasses of @code{}, the default handler of this signal use the functions to find out what the toolbar should look like and change themselves accordingly. @itemize @item @code{gtk-toolbar-get-orientation}@item @code{gtk-toolbar-get-style}@item @code{gtk-toolbar-get-icon-size}@item @code{gtk-toolbar-get-relief-style}@end itemize @end defop @defop Signal set-tooltip (arg0@tie{}@code{}) (arg1@tie{}@code{}) (arg2@tie{}@code{}) @result{}@tie{}@code{} This signal is emitted when the toolitem's tooltip changes. Application developers can use @code{gtk-tool-item-set-tooltip} to set the item's tooltip. @end defop @deffn Function gtk-tool-item-new @result{}@tie{} (ret@tie{}@code{}) Creates a new @code{} @table @var @item ret the new @code{} @end table Since 2.4 @end deffn @deffn Function gtk-tool-item-set-homogeneous (self@tie{}@code{}) (homogeneous@tie{}@code{bool}) @deffnx Method set-homogeneous Sets whether @var{tool-item} is to be allocated the same size as other homogeneous items. The effect is that all homogeneous items will have the same width as the widest of the items. @table @var @item tool-item a @code{} @item homogeneous whether @var{tool-item} is the same size as other homogeneous items @end table Since 2.4 @end deffn @deffn Function gtk-tool-item-get-homogeneous (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{bool}) @deffnx Method get-homogeneous Returns whether @var{tool-item} is the same size as other homogeneous items. See @code{gtk-tool-item-set-homogeneous}. @table @var @item tool-item a @code{} @item ret @samp{@code{#t}} if the item is the same size as other homogeneous item.s @end table Since 2.4 @end deffn @deffn Function gtk-tool-item-set-expand (self@tie{}@code{}) (expand@tie{}@code{bool}) @deffnx Method set-expand Sets whether @var{tool-item} is allocated extra space when there is more room on the toolbar then needed for the items. The effect is that the item gets bigger when the toolbar gets bigger and smaller when the toolbar gets smaller. @table @var @item tool-item a @code{} @item expand Whether @var{tool-item} is allocated extra space @end table Since 2.4 @end deffn @deffn Function gtk-tool-item-get-expand (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{bool}) @deffnx Method get-expand Returns whether @var{tool-item} is allocated extra space. See @code{gtk-tool-item-set-expand}. @table @var @item tool-item a @code{} @item ret @samp{@code{#t}} if @var{tool-item} is allocated extra space. @end table Since 2.4 @end deffn @deffn Function gtk-tool-item-set-tooltip (self@tie{}@code{}) (tooltips@tie{}@code{}) (tip_text@tie{}@code{mchars}) (tip_private@tie{}@code{mchars}) @deffnx Method set-tooltip Sets the @code{} object to be used for @var{tool-item}, the text to be displayed as tooltip on the item and the private text to be used. See @code{gtk-tooltips-set-tip}. @table @var @item tool-item a @code{} @item tooltips The @code{} object to be used @item tip-text text to be used as tooltip text for @var{tool-item} @item tip-private text to be used as private tooltip text @end table Since 2.4 @end deffn @deffn Function gtk-tool-item-set-use-drag-window (self@tie{}@code{}) (use_drag_window@tie{}@code{bool}) @deffnx Method set-use-drag-window Sets whether @var{toolitem} has a drag window. When @samp{@code{#t}} the toolitem can be used as a drag source through @code{gtk-drag-source-set}. When @var{toolitem} has a drag window it will intercept all events, even those that would otherwise be sent to a child of @var{toolitem}. @table @var @item toolitem a @code{} @item use-drag-window Whether @var{toolitem} has a drag window. @end table Since 2.4 @end deffn @deffn Function gtk-tool-item-get-use-drag-window (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{bool}) @deffnx Method get-use-drag-window Returns whether @var{toolitem} has a drag window. See @code{gtk-tool-item-set-use-drag-window}. @table @var @item toolitem a @code{} @item ret @samp{@code{#t}} if @var{toolitem} uses a drag window. @end table Since 2.4 @end deffn @deffn Function gtk-tool-item-set-visible-vertical (self@tie{}@code{}) (visible_vertical@tie{}@code{bool}) @deffnx Method set-visible-vertical Sets whether @var{toolitem} is visible when the toolbar is docked vertically. Some tool items, such as text entries, are too wide to be useful on a vertically docked toolbar. If @var{visible-vertical} is @samp{@code{#f}}@var{toolitem} will not appear on toolbars that are docked vertically. @table @var @item toolitem a @code{} @item visible-vertical whether @var{toolitem} is visible when the toolbar is in vertical mode @end table Since 2.4 @end deffn @deffn Function gtk-tool-item-get-visible-vertical (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{bool}) @deffnx Method get-visible-vertical Returns whether @var{toolitem} is visible when the toolbar is docked vertically. See @code{gtk-tool-item-set-visible-vertical}. @table @var @item toolitem a @code{} @item ret Whether @var{toolitem} is visible when the toolbar is docked vertically @end table Since 2.4 @end deffn @deffn Function gtk-tool-item-set-is-important (self@tie{}@code{}) (is_important@tie{}@code{bool}) @deffnx Method set-is-important Sets whether @var{tool-item} should be considered important. The @code{} class uses this property to determine whether to show or hide its label when the toolbar style is @samp{GTK_TOOLBAR_BOTH_HORIZ}. The result is that only tool buttons with the "is_important" property set have labels, an effect known as "priority text" @table @var @item tool-item a @code{} @item is-important whether the tool item should be considered important @end table Since 2.4 @end deffn @deffn Function gtk-tool-item-get-is-important (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{bool}) @deffnx Method get-is-important Returns whether @var{tool-item} is considered important. See @code{gtk-tool-item-set-is-important} @table @var @item tool-item a @code{} @item ret @samp{@code{#t}} if @var{tool-item} is considered important. @end table Since 2.4 @end deffn @deffn Function gtk-tool-item-get-icon-size (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{}) @deffnx Method get-icon-size Returns the icon size used for @var{tool-item}. Custom subclasses of @code{} should call this function to find out what size icons they should use. @table @var @item tool-item a @code{} @item ret a @code{} indicating the icon size used for @var{tool-item} @end table Since 2.4 @end deffn @deffn Function gtk-tool-item-get-orientation (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{}) @deffnx Method get-orientation Returns the orientation used for @var{tool-item}. Custom subclasses of @code{} should call this function to find out what size icons they should use. @table @var @item tool-item a @code{} @item ret a @code{} indicating the orientation used for @var{tool-item} @end table Since 2.4 @end deffn @deffn Function gtk-tool-item-get-toolbar-style (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{}) @deffnx Method get-toolbar-style Returns the toolbar style used for @var{tool-item}. Custom subclasses of @code{} should call this function in the handler of the GtkToolItem::toolbar_reconfigured signal to find out in what style the toolbar is displayed and change themselves accordingly Possibilities are: @itemize @item GTK_TOOLBAR_BOTH, meaning the tool item should show both an icon and a label, stacked vertically @item GTK_TOOLBAR_ICONS, meaning the toolbar shows only icons @item GTK_TOOLBAR_TEXT, meaning the tool item should only show text@item GTK_TOOLBAR_BOTH_HORIZ, meaning the tool item should show both an icon and a label, arranged horizontally (however, note the @code{} that makes tool buttons not show labels when the toolbar style is GTK_TOOLBAR_BOTH_HORIZ. @end itemize @table @var @item tool-item a @code{} @item ret A @code{} indicating the toolbar style used for @var{tool-item}. @end table Since 2.4 @end deffn @deffn Function gtk-tool-item-get-relief-style (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{}) @deffnx Method get-relief-style Returns the relief style of @var{tool-item}. See @code{gtk-button-set-relief-style}. Custom subclasses of @code{} should call this function in the handler of the @code{} signal to find out the relief style of buttons. @table @var @item tool-item a @code{} @item ret a @code{} indicating the relief style used for @var{tool-item}. @end table Since 2.4 @end deffn @deffn Function gtk-tool-item-get-proxy-menu-item (self@tie{}@code{}) (menu_item_id@tie{}@code{mchars}) @result{}@tie{} (ret@tie{}@code{}) @deffnx Method get-proxy-menu-item If @var{menu-item-id} matches the string passed to @code{gtk-tool-item-set-proxy-menu-item} return the corresponding @code{}. Custom subclasses of @code{} should use this function to update their menu item when the @code{} changes. That the @var{menu-item-id}s must match ensures that a @code{} will not inadvertently change a menu item that they did not create. @table @var @item tool-item a @code{} @item menu-item-id a string used to identify the menu item @item ret The @code{} passed to @code{gtk-tool-item-set-proxy-menu-item}, if the @var{menu-item-id}s match. @end table Since 2.4 @end deffn @deffn Function gtk-tool-item-set-proxy-menu-item (self@tie{}@code{}) (menu_item_id@tie{}@code{mchars}) (menu_item@tie{}@code{}) @deffnx Method set-proxy-menu-item Sets the @code{} used in the toolbar overflow menu. The @var{menu-item-id} is used to identify the caller of this function and should also be used with @code{gtk-tool-item-get-proxy-menu-item}. @table @var @item tool-item a @code{} @item menu-item-id a string used to identify @var{menu-item} @item menu-item a @code{} to be used in the overflow menu @end table Since 2.4 @end deffn @deffn Function gtk-tool-item-rebuild-menu (self@tie{}@code{}) @deffnx Method rebuild-menu Calling this function signals to the toolbar that the overflow menu item for @var{tool-item} has changed. If the overflow menu is visible when this function it called, the menu will be rebuilt. The function must be called when the tool item changes what it will do in response to the "create_menu_proxy" signal. @table @var @item tool-item a @code{} @end table Since 2.6 @end deffn @c %end of fragment guile-gnome-platform-2.16.2/gtk/doc/gtk/defuns-gtkcellview.xml.texi0000644000175000017500000001134611670374302025607 0ustar00wingowingo00000000000000 @c %start of fragment @deftp Class Derives from @code{}, @code{}. This class defines the following slots: @table @code @item background Background color as a string @item background-gdk Background color as a GdkColor @item background-set Whether this tag affects the background color @item model The model for cell view @end table @end deftp @deffn Function gtk-cell-view-new @result{}@tie{} (ret@tie{}@code{}) Creates a new @code{} widget. @table @var @item ret A newly created @code{} widget. @end table Since 2.6 @end deffn @deffn Function gtk-cell-view-new-with-text (text@tie{}@code{mchars}) @result{}@tie{} (ret@tie{}@code{}) Creates a new @code{} widget, adds a @code{} to it, and makes its show @var{text}. @table @var @item text the text to display in the cell view @item ret A newly created @code{} widget. @end table Since 2.6 @end deffn @deffn Function gtk-cell-view-new-with-markup (markup@tie{}@code{mchars}) @result{}@tie{} (ret@tie{}@code{}) Creates a new @code{} widget, adds a @code{} to it, and makes its show @var{markup}. The text can text can be marked up with the Pango text markup language. @table @var @item markup the text to display in the cell view @item ret A newly created @code{} widget. @end table Since 2.6 @end deffn @deffn Function gtk-cell-view-new-with-pixbuf (pixbuf@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{}) Creates a new @code{} widget, adds a @code{} to it, and makes its show @var{pixbuf}. @table @var @item pixbuf the image to display in the cell view @item ret A newly created @code{} widget. @end table Since 2.6 @end deffn @deffn Function gtk-cell-view-set-model (self@tie{}@code{}) (model@tie{}@code{}) @deffnx Method set-model Sets the model for @var{cell-view}. If @var{cell-view} already has a model set, it will remove it before setting the new model. If @var{model} is @samp{@code{#f}}, then it will unset the old model. @table @var @item cell-view a @code{} @item model a @code{} @end table Since 2.6 @end deffn @deffn Function gtk-cell-view-set-displayed-row (self@tie{}@code{}) (path@tie{}@code{}) @deffnx Method set-displayed-row Sets the row of the model that is currently displayed by the @code{}. If the path is unset, then the contents of the cellview "stick" at their last value; this is not normally a desired result, but may be a needed intermediate state if say, the model for the @code{} becomes temporarily empty. @table @var @item cell-view a @code{} @item path a @code{} or @samp{@code{#f}} to unset. @end table Since 2.6 @end deffn @deffn Function gtk-cell-view-get-displayed-row (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{}) @deffnx Method get-displayed-row Returns a @code{} referring to the currently displayed row. If no row is currently displayed, @samp{@code{#f}} is returned. @table @var @item cell-view a @code{} @item ret the currently displayed row or @samp{@code{#f}} @end table Since 2.6 @end deffn @deffn Function gtk-cell-view-get-size-of-row (self@tie{}@code{}) (path@tie{}@code{}) (requisition@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{bool}) @deffnx Method get-size-of-row Sets @var{requisition} to the size needed by @var{cell-view} to display the model row pointed to by @var{path}. @table @var @item cell-view a @code{} @item path a @code{} @item requisition return location for the size @item ret @samp{@code{#t}} @end table Since 2.6 @end deffn @deffn Function gtk-cell-view-set-background-color (self@tie{}@code{}) (color@tie{}@code{}) @deffnx Method set-background-color Sets the background color of @var{view}. @table @var @item cell-view a @code{} @item color the new background color @end table Since 2.6 @end deffn @deffn Function gtk-cell-view-get-cell-renderers (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{glist-of}) @deffnx Method get-cell-renderers Returns the cell renderers which have been added to @var{cell-view}. @table @var @item cell-view a @code{} @item ret a list of cell renderers. The list, but not the renderers has been newly allocated and should be freed with @code{g-list-free} when no longer needed. @end table Since 2.6 @end deffn @c %end of fragment guile-gnome-platform-2.16.2/gtk/doc/gtk/defuns-gtkseparatormenuitem.xml.texi0000644000175000017500000000061711670374302027540 0ustar00wingowingo00000000000000 @c %start of fragment @deftp Class Derives from @code{}. This class defines no direct slots. @end deftp @deffn Function gtk-separator-menu-item-new @result{}@tie{} (ret@tie{}@code{}) Creates a new @code{}. @table @var @item ret a new @code{}. @end table @end deffn @c %end of fragment guile-gnome-platform-2.16.2/gtk/doc/gtk/defuns-gtkfilesel.xml.texi0000644000175000017500000000572011670374302025417 0ustar00wingowingo00000000000000 @c %start of fragment @deftp Class Derives from @code{}. This class defines the following slots: @table @code @item show-fileops Whether buttons for creating/manipulating files should be displayed @item filename The currently selected filename @item select-multiple Whether to allow multiple files to be selected @end table @end deftp @deffn Function gtk-file-selection-new (title@tie{}@code{mchars}) @result{}@tie{} (ret@tie{}@code{}) Creates a new file selection dialog box. By default it will contain a @code{} of the application's current working directory, and a file listing. Operation buttons that allow the user to create a directory, delete files and rename files, are also present. @table @var @item title a message that will be placed in the file requestor's titlebar. @item ret the new file selection. @end table @end deffn @deffn Function gtk-file-selection-set-filename (self@tie{}@code{}) (filename@tie{}@code{mchars}) @deffnx Method set-filename Sets a default path for the file requestor. If @var{filename} includes a directory path, then the requestor will open with that path as its current working directory. This has the consequence that in order to open the requestor with a working directory and an empty filename, @var{filename} must have a trailing directory separator. The encoding of @var{filename} is preferred GLib file name encoding, which may not be UTF-8. See @code{g-filename-from-utf8}. @table @var @item filesel a @code{}. @item filename a string to set as the default file name. @end table @end deffn @deffn Function gtk-file-selection-get-filename (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{mchars}) @deffnx Method get-filename This function returns the selected filename in the GLib file name encoding. To convert to UTF-8, call @code{g-filename-to-utf8}. The returned string points to a statically allocated buffer and should be copied if you plan to keep it around. If no file is selected then the selected directory path is returned. @table @var @item filesel a @code{} @item ret currently-selected filename in the on-disk encoding. @end table @end deffn @deffn Function gtk-file-selection-complete (self@tie{}@code{}) (pattern@tie{}@code{mchars}) @deffnx Method complete Will attempt to match @var{pattern} to a valid filenames or subdirectories in the current directory. If a match can be made, the matched filename will appear in the text entry field of the file selection dialog. If a partial match can be made, the "Files" list will contain those file names which have been partially matched, and the "Folders" list those directories which have been partially matched. @table @var @item filesel a @code{}. @item pattern a string of characters which may or may not match any filenames in the current directory. @end table @end deffn @c %end of fragment guile-gnome-platform-2.16.2/gtk/doc/gtk/section-gtkrecentchoosermenu.xml.texi0000644000175000017500000000257511670374303027712 0ustar00wingowingo00000000000000 @c %start of fragment @node GtkRecentChooserMenu @chapter GtkRecentChooserMenu Displays recently used files in a menu @section Overview @code{} is a widget suitable for displaying recently used files inside a menu. It can be used to set a sub-menu of a @code{} using @code{gtk-menu-item-set-submenu}, or as the menu of a @code{}. Note that @code{} does not have any methods of its own. Instead, you should use the functions that work on a @code{}. Note also that @code{} does not support multiple filters, as it has no way to let the user choose between them as the @code{} and @code{} widgets do. Thus using @code{gtk-recent-chooser-add-filter} on a @code{} widget will yield the same effects as using @code{gtk-recent-chooser-set-filter}, replacing any currently set filter with the supplied filter; @code{gtk-recent-chooser-remove-filter} will remove any currently set @code{} object and will unset the current filter; @code{gtk-recent-chooser-list-filters} will return a list containing a single @code{} object. Recently used files are supported since GTK+ 2.10. @section Usage @include defuns-gtkrecentchoosermenu.xml.texi @c %end of fragment guile-gnome-platform-2.16.2/gtk/doc/gtk/section-gtkstatusbar.xml.texi0000644000175000017500000000317411670374303026166 0ustar00wingowingo00000000000000 @c %start of fragment @node GtkStatusbar @chapter GtkStatusbar Report messages of minor importance to the user @section Overview A @code{} is usually placed along the bottom of an application's main @code{}. It may provide a regular commentary of the application's status (as is usually the case in a web browser, for example), or may be used to simply output a message when the status changes, (when an upload is complete in an FTP client, for example). It may also have a resize grip (a triangular area in the lower right corner) which can be clicked on to resize the window containing the statusbar. Status bars in Gtk+ maintain a stack of messages. The message at the top of the each bar's stack is the one that will currently be displayed. Any messages added to a statusbar's stack must specify a @emph{context_id} that is used to uniquely identify the source of a message. This context_id can be generated by @code{gtk-statusbar-get-context-id}, given a message and the statusbar that it will be added to. Note that messages are stored in a stack, and when choosing which message to display, the stack structure is adhered to, regardless of the context identifier of a message. Status bars are created using @code{gtk-statusbar-new}. Messages are added to the bar's stack with @code{gtk-statusbar-push}. The message at the top of the stack can be removed using @code{gtk-statusbar-pop}. A message can be removed from anywhere in the stack if its message_id was recorded at the time it was added. This is done using @code{gtk-statusbar-remove}. @section Usage @include defuns-gtkstatusbar.xml.texi @c %end of fragment guile-gnome-platform-2.16.2/gtk/doc/gtk/section-gtkvpaned.xml.texi0000644000175000017500000000061311670374303025426 0ustar00wingowingo00000000000000 @c %start of fragment @node GtkVPaned @chapter GtkVPaned A container with two panes arranged vertically @section Overview The VPaned widget is a container widget with two children arranged vertically. The division between the two panes is adjustable by the user by dragging a handle. See @code{} for details. @section Usage @include defuns-gtkvpaned.xml.texi @c %end of fragment guile-gnome-platform-2.16.2/gtk/doc/gtk/defuns-gtkhscrollbar.xml.texi0000644000175000017500000000077211670374302026131 0ustar00wingowingo00000000000000 @c %start of fragment @deftp Class Derives from @code{}. This class defines no direct slots. @end deftp @deffn Function gtk-hscrollbar-new (adjustment@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{}) Creates a new horizontal scrollbar. @table @var @item adjustment the @code{} to use, or @samp{@code{#f}} to create a new adjustment. @item ret the new @code{}. @end table @end deffn @c %end of fragment guile-gnome-platform-2.16.2/gtk/doc/gtk/defuns-gtkfilechooserwidget.xml.texi0000644000175000017500000000130011670374302027470 0ustar00wingowingo00000000000000 @c %start of fragment @deftp Class Derives from @code{}, @code{}, @code{}. This class defines no direct slots. @end deftp @deffn Function gtk-file-chooser-widget-new (action@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{}) Creates a new @code{}. This is a file chooser widget that can be embedded in custom windows, and it is the same widget that is used by @code{}. @table @var @item action Open or save mode for the widget @item ret a new @code{} @end table Since 2.4 @end deffn @c %end of fragment guile-gnome-platform-2.16.2/gtk/doc/gtk/defuns-gtkcelleditable.xml.texi0000644000175000017500000000264011670374302026403 0ustar00wingowingo00000000000000 @c %start of fragment @deftp Class Derives from @code{}. This class defines no direct slots. @end deftp @defop Signal editing-done @end defop @defop Signal remove-widget @end defop @deffn Function gtk-cell-editable-start-editing (self@tie{}@code{}) (event@tie{}@code{}) @deffnx Method start-editing Begins editing on a @var{cell-editable}. @var{event} is the @code{} that began the editing process. It may be @samp{@code{#f}}, in the instance that editing was initiated through programatic means. @table @var @item cell-editable A @code{} @item event A @code{}, or @samp{@code{#f}} @end table @end deffn @deffn Function gtk-cell-editable-editing-done (self@tie{}@code{}) @deffnx Method editing-done Emits the "editing_done" signal. This signal is a sign for the cell renderer to update its value from the cell. @table @var @item cell-editable A @code{} @end table @end deffn @deffn Function gtk-cell-editable-remove-widget (self@tie{}@code{}) @deffnx Method remove-widget Emits the "remove_widget" signal. This signal is meant to indicate that the cell is finished editing, and the widget may now be destroyed. @table @var @item cell-editable A @code{} @end table @end deffn @c %end of fragment guile-gnome-platform-2.16.2/gtk/doc/gtk/defuns-gtkwindowgroup.xml.texi0000644000175000017500000000215211670374302026354 0ustar00wingowingo00000000000000 @c %start of fragment @deftp Class Derives from @code{}. This class defines no direct slots. @end deftp @deffn Function gtk-window-group-new @result{}@tie{} (ret@tie{}@code{}) Creates a new @code{} object. Grabs added with @code{gtk-grab-add} only affect windows within the same @code{}. @table @var @item ret a new @code{}. @end table @end deffn @deffn Function gtk-window-group-add-window (self@tie{}@code{}) (window@tie{}@code{}) @deffnx Method add-window Adds a window to a @code{}. @table @var @item window-group a @code{} @item window the @code{} to add @end table @end deffn @deffn Function gtk-window-group-remove-window (self@tie{}@code{}) (window@tie{}@code{}) @deffnx Method remove-window Removes a window from a @code{}. @table @var @item window-group a @code{} @item window the @code{} to remove @end table @end deffn @c %end of fragment guile-gnome-platform-2.16.2/gtk/doc/gtk/defuns-gtktreemodelfilter.xml.texi0000644000175000017500000000422211670374302027156 0ustar00wingowingo00000000000000 @c %start of fragment @deftp Class Derives from @code{}, @code{}, @code{}. This class defines the following slots: @table @code @item child-model The model for the filtermodel to filter @item virtual-root The virtual root (relative to the child model) for this filtermodel @end table @end deftp @deffn Function gtk-tree-model-filter-new (self@tie{}@code{}) (root@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{}) @deffnx Method filter-new Creates a new @code{}, with @var{child-model} as the child_model and @var{root} as the virtual root. @table @var @item child-model A @code{}. @item root A @code{} or @samp{@code{#f}}. @item ret A new @code{}. @end table Since 2.4 @end deffn @deffn Function gtk-tree-model-filter-get-model (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{}) @deffnx Method get-model Returns a pointer to the child model of @var{filter}. @table @var @item filter A @code{}. @item ret A pointer to a @code{}. @end table Since 2.4 @end deffn @deffn Function gtk-tree-model-filter-refilter (self@tie{}@code{}) @deffnx Method refilter Emits ::row_changed for each row in the child model, which causes the filter to re-evaluate whether a row is visible or not. @table @var @item filter A @code{}. @end table Since 2.4 @end deffn @deffn Function gtk-tree-model-filter-clear-cache (self@tie{}@code{}) @deffnx Method clear-cache This function should almost never be called. It clears the @var{filter} of any cached iterators that haven't been reffed with @code{gtk-tree-model-ref-node}. This might be useful if the child model being filtered is static (and doesn't change often) and there has been a lot of unreffed access to nodes. As a side effect of this function, all unreffed iters will be invalid. @table @var @item filter A @code{}. @end table Since 2.4 @end deffn @c %end of fragment guile-gnome-platform-2.16.2/gtk/doc/gtk/section-gtkcolorseldlg.xml.texi0000644000175000017500000000064711670374302026470 0ustar00wingowingo00000000000000 @c %start of fragment @node GtkColorSelectionDialog @chapter GtkColorSelectionDialog A standard dialog box for selecting a color @section Overview The @code{} provides a standard dialog which allows the user to select a color much like the @code{} provides a standard dialog for file selection. @section Usage @include defuns-gtkcolorseldlg.xml.texi @c %end of fragment guile-gnome-platform-2.16.2/gtk/doc/gtk/section-gtksizegroup.xml.texi0000644000175000017500000000413211670374303026200 0ustar00wingowingo00000000000000 @c %start of fragment @node GtkSizeGroup @chapter GtkSizeGroup Grouping widgets so they request the same size @section Overview @code{} provides a mechanism for grouping a number of widgets together so they all request the same amount of space. This is typically useful when you want a column of widgets to have the same size, but you can't use a @code{} widget. In detail, the size requested for each widget in a @code{} is the maximum of the sizes that would have been requested for each widget in the size group if they were not in the size group. The mode of the size group (see @code{gtk-size-group-set-mode}) determines whether this applies to the horizontal size, the vertical size, or both sizes. Note that size groups only affect the amount of space requested, not the size that the widgets finally receive. If you want the widgets in a @code{} to actually be the same size, you need to pack them in such a way that they get the size they request and not more. For example, if you are packing your widgets into a table, you would not include the @samp{GTK_FILL} flag. @code{} objects are referenced by each widget in the size group, so once you have added all widgets to a @code{}, you can drop the initial reference to the size group with @code{g-object-unref}. If the widgets in the size group are subsequently destroyed, then they will be removed from the size group and drop their references on the size group; when all widgets have been removed, the size group will be freed. Widgets can be part of multiple size groups; GTK+ will compute the horizontal size of a widget from the horizontal requisition of all widgets that can be reached from the widget by a chain of size groups of type @samp{GTK_SIZE_GROUP_HORIZONTAL} or @samp{GTK_SIZE_GROUP_BOTH}, and the vertical size from the vertical requisition of all widgets that can be reached from the widget by a chain of size groups of type @samp{GTK_SIZE_GROUP_VERTICAL} or @samp{GTK_SIZE_GROUP_BOTH}. @section Usage @include defuns-gtksizegroup.xml.texi @c %end of fragment guile-gnome-platform-2.16.2/gtk/doc/gtk/defuns-gtkactiongroup.xml.texi0000644000175000017500000002136211670374302026326 0ustar00wingowingo00000000000000 @c %start of fragment @deftp Class Derives from @code{}, @code{}. This class defines the following slots: @table @code @item name A name for the action group. @item sensitive Whether the action group is enabled. @item visible Whether the action group is visible. @end table @end deftp @defop Signal connect-proxy (arg0@tie{}@code{}) (arg1@tie{}@code{}) The connect_proxy signal is emitted after connecting a proxy to an action in the group. Note that the proxy may have been connected to a different action before. This is intended for simple customizations for which a custom action class would be too clumsy, e.g. showing tooltips for menuitems in the statusbar. @code{} proxies the signal and provides global notification just before any action is connected to a proxy, which is probably more convenient to use. Since 2.4 @end defop @defop Signal disconnect-proxy (arg0@tie{}@code{}) (arg1@tie{}@code{}) The disconnect_proxy signal is emitted after disconnecting a proxy from an action in the group. @code{} proxies the signal and provides global notification just before any action is connected to a proxy, which is probably more convenient to use. Since 2.4 @end defop @defop Signal pre-activate (arg0@tie{}@code{}) The pre_activate signal is emitted just before the @var{action} in the @var{action-group} is activated This is intended for @code{} to proxy the signal and provide global notification just before any action is activated. Since 2.4 @end defop @defop Signal post-activate (arg0@tie{}@code{}) The post_activate signal is emitted just after the @var{action} in the @var{action-group} is activated This is intended for @code{} to proxy the signal and provide global notification just after any action is activated. Since 2.4 @end defop @deffn Function gtk-action-group-new (name@tie{}@code{mchars}) @result{}@tie{} (ret@tie{}@code{}) Creates a new @code{} object. The name of the action group is used when associating keybindings with the actions. @table @var @item name the name of the action group. @item ret the new @code{} @end table Since 2.4 @end deffn @deffn Function gtk-action-group-get-name (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{mchars}) @deffnx Method get-name Gets the name of the action group. @table @var @item action-group the action group @item ret the name of the action group. @end table Since 2.4 @end deffn @deffn Function gtk-action-group-get-sensitive (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{bool}) @deffnx Method get-sensitive Returns @samp{@code{#t}} if the group is sensitive. The constituent actions can only be logically sensitive (see @code{gtk-action-is-sensitive}) if they are sensitive (see @code{gtk-action-get-sensitive}) and their group is sensitive. @table @var @item action-group the action group @item ret @samp{@code{#t}} if the group is sensitive. @end table Since 2.4 @end deffn @deffn Function gtk-action-group-set-sensitive (self@tie{}@code{}) (sensitive@tie{}@code{bool}) @deffnx Method set-sensitive Changes the sensitivity of @var{action-group} @table @var @item action-group the action group @item sensitive new sensitivity @end table Since 2.4 @end deffn @deffn Function gtk-action-group-get-visible (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{bool}) @deffnx Method get-visible Returns @samp{@code{#t}} if the group is visible. The constituent actions can only be logically visible (see @code{gtk-action-is-visible}) if they are visible (see @code{gtk-action-get-visible}) and their group is visible. @table @var @item action-group the action group @item ret @samp{@code{#t}} if the group is visible. @end table Since 2.4 @end deffn @deffn Function gtk-action-group-set-visible (self@tie{}@code{}) (visible@tie{}@code{bool}) @deffnx Method set-visible Changes the visible of @var{action-group}. @table @var @item action-group the action group @item visible new visiblity @end table Since 2.4 @end deffn @deffn Function gtk-action-group-get-action (self@tie{}@code{}) (action_name@tie{}@code{mchars}) @result{}@tie{} (ret@tie{}@code{}) @deffnx Method get-action Looks up an action in the action group by name. @table @var @item action-group the action group @item action-name the name of the action @item ret the action, or @samp{@code{#f}} if no action by that name exists @end table Since 2.4 @end deffn @deffn Function gtk-action-group-list-actions (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{glist-of}) @deffnx Method list-actions Lists the actions in the action group. @table @var @item action-group the action group @item ret an allocated list of the action objects in the action group @end table Since 2.4 @end deffn @deffn Function gtk-action-group-add-action (self@tie{}@code{}) (action@tie{}@code{}) @deffnx Method add-action Adds an action object to the action group. Note that this function does not set up the accel path of the action, which can lead to problems if a user tries to modify the accelerator of a menuitem associated with the action. Therefore you must either set the accel path yourself with @code{gtk-action-set-accel-path}, or use @samp{gtk_action_group_add_action_with_accel (..., NULL)}. @table @var @item action-group the action group @item action an action @end table Since 2.4 @end deffn @deffn Function gtk-action-group-remove-action (self@tie{}@code{}) (action@tie{}@code{}) @deffnx Method remove-action Removes an action object from the action group. @table @var @item action-group the action group @item action an action @end table Since 2.4 @end deffn @deffn Function gtk-action-group-add-actions (self@tie{}@code{}) (entries@tie{}@code{scm}) @deffnx Method add-actions This is a convenience function to create a number of actions and add them to the action group. The "activate" signals of the actions are connected to the callbacks and their accel paths are set to @samp{//}. @table @var @item action-group The action group @item scm An list of actions. The actions are of the form @code{(@var{name} @var{stock-id} @code{label} @code{accelerator} @code{tooltip} @code{proc}?)}. All values are strings except the @var{proc}, which should be a procedure suitable for connecting to the @code{activate} signal on the action. @var{stock-id}, @var{label}, @var{accelerator}, @var{tooltip}, and @var{proc} may be @code{#f}. @end table Since 2.4 @end deffn @deffn Function gtk-action-group-add-toggle-actions (self@tie{}@code{}) (entries@tie{}@code{scm}) @deffnx Method add-toggle-actions This is a convenience function to create a number of toggle actions and add them to the action group. The "activate" signals of the actions are connected to the callbacks and their accel paths are set to @samp{/@var{group-name}/@var{action-name}}. @table @var @item action-group the action group @item entries an array of toggle action descriptions @item n-entries the number of entries @item user-data data to pass to the action callbacks @end table Since 2.4 @end deffn @deffn Function gtk-action-group-add-radio-actions (self@tie{}@code{}) (entries@tie{}@code{scm}) (value@tie{}@code{int}) (on_change@tie{}@code{scm}) @deffnx Method add-radio-actions This is a convenience routine to create a group of radio actions and add them to the action group. The "changed" signal of the first radio action is connected to the @var{on-change} callback and the accel paths of the actions are set to @samp{/@var{group-name}/@var{action-name}}. @table @var @item action-group the action group @item entries an array of radio action descriptions @item n-entries the number of entries @item value the value of the action to activate initially, or -1 if no action should be activated @item on-change the callback to connect to the changed signal @item user-data data to pass to the action callbacks @end table Since 2.4 @end deffn @deffn Function gtk-action-group-translate-string (self@tie{}@code{}) (string@tie{}@code{mchars}) @result{}@tie{} (ret@tie{}@code{mchars}) @deffnx Method translate-string Translates a string using the specified @code{translate-func}. This is mainly intended for language bindings. @table @var @item action-group a @code{} @item string a string @item ret the translation of @var{string} @end table Since 2.6 @end deffn @c %end of fragment guile-gnome-platform-2.16.2/gtk/doc/gtk/defuns-gtkmenushell.xml.texi0000644000175000017500000001470311670374302025771 0ustar00wingowingo00000000000000 @c %start of fragment @deftp Class Derives from @code{}. This class defines the following slots: @table @code @item take-focus A boolean that determines whether the menu grabs the keyboard focus @end table @end deftp @defop Signal deactivate This signal is emitted when a menu shell is deactivated. @end defop @defop Signal selection-done This signal is emitted when a selection has been completed within a menu shell. @end defop @defop Signal move-current (arg0@tie{}@code{}) An action signal which moves the current menu item in the direction specified by @var{direction}. @end defop @defop Signal activate-current (arg0@tie{}@code{}) An action signal that activates the current menu item within the menu shell. @end defop @defop Signal cancel An action signal which cancels the selection within the menu shell. Causes the GtkMenuShell::selection-done signal to be emitted. @end defop @defop Signal cycle-focus (arg0@tie{}@code{}) @end defop @defop Signal move-selected (arg0@tie{}@code{}) @result{}@tie{}@code{} undocumented @end defop @deffn Function gtk-menu-shell-append (self@tie{}@code{}) (child@tie{}@code{}) @deffnx Method append Adds a new @code{} to the end of the menu shell's item list. @table @var @item menu-shell a @code{}. @item child The @code{} to add. @end table @end deffn @deffn Function gtk-menu-shell-prepend (self@tie{}@code{}) (child@tie{}@code{}) @deffnx Method prepend Adds a new @code{} to the beginning of the menu shell's item list. @table @var @item menu-shell a @code{}. @item child The @code{} to add. @end table @end deffn @deffn Function gtk-menu-shell-insert (self@tie{}@code{}) (child@tie{}@code{}) (position@tie{}@code{int}) @deffnx Method insert Adds a new @code{} to the menu shell's item list at the position indicated by @var{position}. @table @var @item menu-shell a @code{}. @item child The @code{} to add. @item position The position in the item list where @var{child} is added. Positions are numbered from 0 to n-1. @end table @end deffn @deffn Function gtk-menu-shell-deactivate (self@tie{}@code{}) @deffnx Method deactivate Deactivates the menu shell. Typically this results in the menu shell being erased from the screen. @table @var @item menu-shell a @code{}. @end table @end deffn @deffn Function gtk-menu-shell-select-item (self@tie{}@code{}) (menu_item@tie{}@code{}) @deffnx Method select-item Selects the menu item from the menu shell. @table @var @item menu-shell a @code{}. @item menu-item The @code{} to select. @end table @end deffn @deffn Function gtk-menu-shell-select-first (self@tie{}@code{}) (search_sensitive@tie{}@code{bool}) @deffnx Method select-first Select the first visible or selectable child of the menu shell; don't select tearoff items unless the only item is a tearoff item. @table @var @item menu-shell a @code{} @item search-sensitive if @samp{@code{#t}}, search for the first selectable menu item, otherwise select nothing if the first item isn't sensitive. This should be @samp{@code{#f}} if the menu is being popped up initially. @end table Since 2.2 @end deffn @deffn Function gtk-menu-shell-deselect (self@tie{}@code{}) @deffnx Method deselect Deselects the currently selected item from the menu shell, if any. @table @var @item menu-shell a @code{}. @end table @end deffn @deffn Function gtk-menu-shell-activate-item (self@tie{}@code{}) (menu_item@tie{}@code{}) (force_deactivate@tie{}@code{bool}) @deffnx Method activate-item Activates the menu item within the menu shell. @table @var @item menu-shell a @code{}. @item menu-item The @code{} to activate. @item force-deactivate If TRUE, force the deactivation of the menu shell after the menu item is activated. @end table @end deffn @deffn Function gtk-menu-shell-cancel (self@tie{}@code{}) @deffnx Method cancel Cancels the selection within the menu shell. @table @var @item menu-shell a @code{} @end table Since 2.4 @end deffn @deffn Function gtk-menu-shell-set-take-focus (self@tie{}@code{}) (take_focus@tie{}@code{bool}) @deffnx Method set-take-focus If @var{take-focus} is @samp{@code{#t}} (the default) the menu shell will take the keyboard focus so that it will receive all keyboard events which is needed to enable keyboard navigation in menus. Setting @var{take-focus} to @samp{@code{#f}} is useful only for special applications like virtual keyboard implementations which should not take keyboard focus. The @var{take-focus} state of a menu or menu bar is automatically propagated to submenus whenever a submenu is popped up, so you don't have to worry about recursively setting it for your entire menu hierarchy. Only when programmatically picking a submenu and popping it up manually, the @var{take-focus} property of the submenu needs to be set explicitely. Note that setting it to @samp{@code{#f}} has side-effects: If the focus is in some other app, it keeps the focus and keynav in the menu doesn't work. Consequently, keynav on the menu will only work if the focus is on some toplevel owned by the onscreen keyboard. To avoid confusing the user, menus with @var{take-focus} set to @samp{@code{#f}} should not display mnemonics or accelerators, since it cannot be guaranteed that they will work. See also @code{gdk-keyboard-grab} @table @var @item menu-shell a @code{} @item take-focus @samp{@code{#t}} if the menu shell should take the keyboard focus on popup. @end table Since 2.8 @end deffn @deffn Function gtk-menu-shell-get-take-focus (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{bool}) @deffnx Method get-take-focus Returns @samp{@code{#t}} if the menu shell will take the keyboard focus on popup. @table @var @item menu-shell a @code{} @item ret @samp{@code{#t}} if the menu shell will take the keyboard focus on popup. @end table Since 2.8 @end deffn @c %end of fragment guile-gnome-platform-2.16.2/gtk/doc/gtk/defuns-gtkradiobutton.xml.texi0000644000175000017500000000677711670374302026343 0ustar00wingowingo00000000000000 @c %start of fragment @deftp Class Derives from @code{}. This class defines the following slots: @table @code @item group The radio button whose group this widget belongs to. @end table @end deftp @defop Signal group-changed Emitted when the group of radio buttons that a radio button belongs to changes. This is emitted when a radio button switches from being alone to being part of a group of 2 or more buttons, or vice-versa, and when a buttton is moved from one group of 2 or more buttons to a different one, but not when the composition of the group that a button belongs to changes. Since 2.4 @end defop @deffn Function gtk-radio-button-new (group@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{}) Creates a new @code{}. To be of any practical value, a widget should then be packed into the radio button. @table @var @item group an existing radio button group, or @samp{@code{#f}} if you are creating a new group. @item ret a new radio button. @end table @end deffn @deffn Function gtk-radio-button-new-from-widget (group@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{}) Creates a new @code{}, adding it to the same group as @var{group}. As with @code{gtk-radio-button-new}, a widget should be packed into the radio button. @table @var @item group an existing @code{}. @item ret a new radio button. @end table @end deffn @deffn Function gtk-radio-button-new-with-label (group@tie{}@code{}) (label@tie{}@code{mchars}) @result{}@tie{} (ret@tie{}@code{}) Creates a new @code{} with a text label. @table @var @item group an existing radio button group, or @samp{@code{#f}} if you are creating a new group. @item label the text label to display next to the radio button. @item ret a new radio button. @end table @end deffn @deffn Function gtk-radio-button-new-with-mnemonic (group@tie{}@code{}) (label@tie{}@code{mchars}) @result{}@tie{} (ret@tie{}@code{}) Creates a new @code{} containing a label, adding it to the same group as @var{group}. The label will be created using @code{gtk-label-new-with-mnemonic}, so underscores in @var{label} indicate the mnemonic for the button. @table @var @item group the radio button group @item label the text of the button, with an underscore in front of the mnemonic character @item ret a new @code{} @end table @end deffn @deffn Function gtk-radio-button-set-group (self@tie{}@code{}) (group@tie{}@code{}) @deffnx Method set-group Sets a @code{}'s group. It should be noted that this does not change the layout of your interface in any way, so if you are changing the group, it is likely you will need to re-arrange the user interface to reflect these changes. @table @var @item radio-button a @code{}. @item group an existing radio button group, such as one returned from @code{gtk-radio-button-get-group}. @end table @end deffn @deffn Function gtk-radio-button-get-group (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{}) @deffnx Method get-group Retrieves the group assigned to a radio button. @table @var @item radio-button a @code{}. @item ret a linked list containing all the radio buttons in the same group as @var{radio-button}. @end table @end deffn @c %end of fragment guile-gnome-platform-2.16.2/gtk/doc/gtk/defuns-gtkcolorseldlg.xml.texi0000644000175000017500000000075711670374302026312 0ustar00wingowingo00000000000000 @c %start of fragment @deftp Class Derives from @code{}. This class defines no direct slots. @end deftp @deffn Function gtk-color-selection-dialog-new (title@tie{}@code{mchars}) @result{}@tie{} (ret@tie{}@code{}) Creates a new @code{}. @table @var @item title a string containing the title text for the dialog. @item ret a @code{}. @end table @end deffn @c %end of fragment guile-gnome-platform-2.16.2/gtk/doc/gtk/section-gtkaction.xml.texi0000644000175000017500000000260311670374302025426 0ustar00wingowingo00000000000000 @c %start of fragment @node GtkAction @chapter GtkAction An action which can be triggered by a menu or toolbar item @section Overview Actions represent operations that the user can be perform, along with some information how it should be presented in the interface. Each action provides methods to create icons, menu items and toolbar items representing itself. As well as the callback that is called when the action gets activated, the following also gets associated with the action: The action will also have some state information: a name (not translated, for path lookup) a label (translated, for display) an accelerator whether label indicates a stock id a tooltip (optional, translated) a toolbar label (optional, shorter than label) visible (shown/hidden) sensitive (enabled/disabled) Apart from regular actions, there are toggle actions, which can be toggled between two states and radio actions, of which only one in a group can be in the "active" state. Other actions can be implemented as @code{} subclasses. Each action can have one or more proxy menu item, toolbar button or other proxy widgets. Proxies mirror the state of the action (text label, tooltip, icon, visible, sensitive, etc), and should change when the action's state changes. When the proxy is activated, it should activate its action. @section Usage @include defuns-gtkaction.xml.texi @c %end of fragment guile-gnome-platform-2.16.2/gtk/doc/gtk/defuns-gtktreeviewcolumn.xml.texi0000644000175000017500000003725011670374302027047 0ustar00wingowingo00000000000000 @c %start of fragment @deftp Class Derives from @code{}, @code{}, @code{}. This class defines the following slots: @table @code @item visible Whether to display the column @item resizable Column is user-resizable @item width Current width of the column @item spacing Space which is inserted between cells @item sizing Resize mode of the column @item fixed-width Current fixed width of the column @item min-width Minimum allowed width of the column @item max-width Maximum allowed width of the column @item title Title to appear in column header @item expand Column gets share of extra width allocated to the widget @item clickable Whether the header can be clicked @item widget Widget to put in column header button instead of column title @item alignment X Alignment of the column header text or widget @item reorderable Whether the column can be reordered around the headers @item sort-indicator Whether to show a sort indicator @item sort-order Sort direction the sort indicator should indicate @end table @end deftp @defop Signal clicked @end defop @deffn Function gtk-tree-view-column-new @result{}@tie{} (ret@tie{}@code{}) Creates a new @code{}. @table @var @item ret A newly created @code{}. @end table @end deffn @deffn Function gtk-tree-view-column-pack-start (self@tie{}@code{}) (cell@tie{}@code{}) (expand@tie{}@code{bool}) @deffnx Method pack-start Packs the @var{cell} into the beginning of the column. If @var{expand} is @samp{@code{#f}}, then the @var{cell} is allocated no more space than it needs. Any unused space is divided evenly between cells for which @var{expand} is @samp{@code{#t}}. @table @var @item tree-column A @code{}. @item cell The @code{}. @item expand @samp{@code{#t}} if @var{cell} is to be given extra space allocated to @var{tree-column}. @end table @end deffn @deffn Function gtk-tree-view-column-pack-end (self@tie{}@code{}) (cell@tie{}@code{}) (expand@tie{}@code{bool}) @deffnx Method pack-end Adds the @var{cell} to end of the column. If @var{expand} is @samp{@code{#f}}, then the @var{cell} is allocated no more space than it needs. Any unused space is divided evenly between cells for which @var{expand} is @samp{@code{#t}}. @table @var @item tree-column A @code{}. @item cell The @code{}. @item expand @samp{@code{#t}} if @var{cell} is to be given extra space allocated to @var{tree-column}. @end table @end deffn @deffn Function gtk-tree-view-column-clear (self@tie{}@code{}) @deffnx Method clear Unsets all the mappings on all renderers on the @var{tree-column}. @table @var @item tree-column A @code{} @end table @end deffn @deffn Function gtk-tree-view-column-add-attribute (self@tie{}@code{}) (cell_renderer@tie{}@code{}) (attribute@tie{}@code{mchars}) (column@tie{}@code{int}) @deffnx Method add-attribute Adds an attribute mapping to the list in @var{tree-column}. The @var{column} is the column of the model to get a value from, and the @var{attribute} is the parameter on @var{cell-renderer} to be set from the value. So for example if column 2 of the model contains strings, you could have the "text" attribute of a @code{} get its values from column 2. @table @var @item tree-column A @code{}. @item cell-renderer the @code{} to set attributes on @item attribute An attribute on the renderer @item column The column position on the model to get the attribute from. @end table @end deffn @deffn Function gtk-tree-view-column-set-spacing (self@tie{}@code{}) (spacing@tie{}@code{int}) @deffnx Method set-spacing Sets the spacing field of @var{tree-column}, which is the number of pixels to place between cell renderers packed into it. @table @var @item tree-column A @code{}. @item spacing distance between cell renderers in pixels. @end table @end deffn @deffn Function gtk-tree-view-column-get-spacing (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{int}) @deffnx Method get-spacing Returns the spacing of @var{tree-column}. @table @var @item tree-column A @code{}. @item ret the spacing of @var{tree-column}. @end table @end deffn @deffn Function gtk-tree-view-column-set-visible (self@tie{}@code{}) (visible@tie{}@code{bool}) @deffnx Method set-visible Sets the visibility of @var{tree-column}. @table @var @item tree-column A @code{}. @item visible @samp{@code{#t}} if the @var{tree-column} is visible. @end table @end deffn @deffn Function gtk-tree-view-column-get-visible (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{bool}) @deffnx Method get-visible Returns @samp{@code{#t}} if @var{tree-column} is visible. @table @var @item tree-column A @code{}. @item ret whether the column is visible or not. If it is visible, then the tree will show the column. @end table @end deffn @deffn Function gtk-tree-view-column-set-resizable (self@tie{}@code{}) (resizable@tie{}@code{bool}) @deffnx Method set-resizable If @var{resizable} is @samp{@code{#t}}, then the user can explicitly resize the column by grabbing the outer edge of the column button. If resizable is @samp{@code{#t}} and sizing mode of the column is @code{}, then the sizing mode is changed to @code{}. @table @var @item tree-column A @code{} @item resizable @samp{@code{#t}}, if the column can be resized @end table @end deffn @deffn Function gtk-tree-view-column-get-resizable (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{bool}) @deffnx Method get-resizable Returns @samp{@code{#t}} if the @var{tree-column} can be resized by the end user. @table @var @item tree-column A @code{} @item ret @samp{@code{#t}}, if the @var{tree-column} can be resized. @end table @end deffn @deffn Function gtk-tree-view-column-set-sizing (self@tie{}@code{}) (type@tie{}@code{}) @deffnx Method set-sizing Sets the growth behavior of @var{tree-column} to @var{type}. @table @var @item tree-column A @code{}. @item type The @code{}. @end table @end deffn @deffn Function gtk-tree-view-column-get-sizing (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{}) @deffnx Method get-sizing Returns the current type of @var{tree-column}. @table @var @item tree-column A @code{}. @item ret The type of @var{tree-column}. @end table @end deffn @deffn Function gtk-tree-view-column-get-width (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{int}) @deffnx Method get-width Returns the current size of @var{tree-column} in pixels. @table @var @item tree-column A @code{}. @item ret The current width of @var{tree-column}. @end table @end deffn @deffn Function gtk-tree-view-column-set-min-width (self@tie{}@code{}) (min_width@tie{}@code{int}) @deffnx Method set-min-width Sets the minimum width of the @var{tree-column}. If @var{min-width} is -1, then the minimum width is unset. @table @var @item tree-column A @code{}. @item min-width The minimum width of the column in pixels, or -1. @end table @end deffn @deffn Function gtk-tree-view-column-get-min-width (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{int}) @deffnx Method get-min-width Returns the minimum width in pixels of the @var{tree-column}, or -1 if no minimum width is set. @table @var @item tree-column A @code{}. @item ret The minimum width of the @var{tree-column}. @end table @end deffn @deffn Function gtk-tree-view-column-set-max-width (self@tie{}@code{}) (max_width@tie{}@code{int}) @deffnx Method set-max-width Sets the maximum width of the @var{tree-column}. If @var{max-width} is -1, then the maximum width is unset. Note, the column can actually be wider than max width if it's the last column in a view. In this case, the column expands to fill any extra space. @table @var @item tree-column A @code{}. @item max-width The maximum width of the column in pixels, or -1. @end table @end deffn @deffn Function gtk-tree-view-column-get-max-width (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{int}) @deffnx Method get-max-width Returns the maximum width in pixels of the @var{tree-column}, or -1 if no maximum width is set. @table @var @item tree-column A @code{}. @item ret The maximum width of the @var{tree-column}. @end table @end deffn @deffn Function gtk-tree-view-column-clicked (self@tie{}@code{}) @deffnx Method clicked Emits the "clicked" signal on the column. This function will only work if @var{tree-column} is clickable. @table @var @item tree-column a @code{} @end table @end deffn @deffn Function gtk-tree-view-column-set-title (self@tie{}@code{}) (title@tie{}@code{mchars}) @deffnx Method set-title Sets the title of the @var{tree-column}. If a custom widget has been set, then this value is ignored. @table @var @item tree-column A @code{}. @item title The title of the @var{tree-column}. @end table @end deffn @deffn Function gtk-tree-view-column-get-title (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{mchars}) @deffnx Method get-title Returns the title of the widget. @table @var @item tree-column A @code{}. @item ret the title of the column. This string should not be modified or freed. @end table @end deffn @deffn Function gtk-tree-view-column-set-expand (self@tie{}@code{}) (expand@tie{}@code{bool}) @deffnx Method set-expand Sets the column to take available extra space. This space is shared equally amongst all columns that have the expand set to @samp{@code{#t}}. If no column has this option set, then the last column gets all extra space. By default, every column is created with this @samp{@code{#f}}. @table @var @item tree-column A @code{} @item expand @samp{@code{#t}} if the column should take available extra space, @samp{@code{#f}} if not @end table Since 2.4 @end deffn @deffn Function gtk-tree-view-column-get-expand (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{bool}) @deffnx Method get-expand Return @samp{@code{#t}} if the column expands to take any available space. @table @var @item tree-column a @code{} @item ret @samp{@code{#t}}, if the column expands @end table Since 2.4 @end deffn @deffn Function gtk-tree-view-column-set-clickable (self@tie{}@code{}) (clickable@tie{}@code{bool}) @deffnx Method set-clickable Sets the header to be active if @var{active} is @samp{@code{#t}}. When the header is active, then it can take keyboard focus, and can be clicked. @table @var @item tree-column A @code{}. @item clickable @samp{@code{#t}} if the header is active. @end table @end deffn @deffn Function gtk-tree-view-column-get-clickable (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{bool}) @deffnx Method get-clickable Returns @samp{@code{#t}} if the user can click on the header for the column. @table @var @item tree-column a @code{} @item ret @samp{@code{#t}} if user can click the column header. @end table @end deffn @deffn Function gtk-tree-view-column-set-widget (self@tie{}@code{}) (widget@tie{}@code{}) @deffnx Method set-widget Sets the widget in the header to be @var{widget}. If widget is @samp{@code{#f}}, then the header button is set with a @code{} set to the title of @var{tree-column}. @table @var @item tree-column A @code{}. @item widget A child @code{}, or @samp{@code{#f}}. @end table @end deffn @deffn Function gtk-tree-view-column-get-widget (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{}) @deffnx Method get-widget Returns the @code{} in the button on the column header. If a custom widget has not been set then @samp{@code{#f}} is returned. @table @var @item tree-column A @code{}. @item ret The @code{} in the column header, or @samp{@code{#f}} @end table @end deffn @deffn Function gtk-tree-view-column-set-alignment (self@tie{}@code{}) (xalign@tie{}@code{float}) @deffnx Method set-alignment Sets the alignment of the title or custom widget inside the column header. The alignment determines its location inside the button -- 0.0 for left, 0.5 for center, 1.0 for right. @table @var @item tree-column A @code{}. @item xalign The alignment, which is between [0.0 and 1.0] inclusive. @end table @end deffn @deffn Function gtk-tree-view-column-get-alignment (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{float}) @deffnx Method get-alignment Returns the current x alignment of @var{tree-column}. This value can range between 0.0 and 1.0. @table @var @item tree-column A @code{}. @item ret The current alignent of @var{tree-column}. @end table @end deffn @deffn Function gtk-tree-view-column-set-sort-order (self@tie{}@code{}) (order@tie{}@code{}) @deffnx Method set-sort-order Changes the appearance of the sort indicator. This @emph{does not} actually sort the model. Use @code{gtk-tree-view-column-set-sort-column-id} if you want automatic sorting support. This function is primarily for custom sorting behavior, and should be used in conjunction with @code{gtk-tree-sortable-set-sort-column} to do that. For custom models, the mechanism will vary. The sort indicator changes direction to indicate normal sort or reverse sort. Note that you must have the sort indicator enabled to see anything when calling this function; see @code{gtk-tree-view-column-set-sort-indicator}. @table @var @item tree-column a @code{} @item order sort order that the sort indicator should indicate @end table @end deffn @deffn Function gtk-tree-view-column-get-sort-order (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{}) @deffnx Method get-sort-order Gets the value set by @code{gtk-tree-view-column-set-sort-order}. @table @var @item tree-column a @code{} @item ret the sort order the sort indicator is indicating @end table @end deffn @deffn Function gtk-tree-view-column-focus-cell (self@tie{}@code{}) (cell@tie{}@code{}) @deffnx Method focus-cell Sets the current keyboard focus to be at @var{cell}, if the column contains 2 or more editable and activatable cells. @table @var @item tree-column A @code{} @item cell A @code{} @end table Since 2.2 @end deffn @deffn Function gtk-tree-view-column-queue-resize (self@tie{}@code{}) @deffnx Method queue-resize Flags the column, and the cell renderers added to this column, to have their sizes renegotiated. @table @var @item tree-column A @code{} @end table Since 2.8 @end deffn @c %end of fragment guile-gnome-platform-2.16.2/gtk/doc/gtk/section-gtkdnd.xml.texi0000644000175000017500000000115611670374302024720 0ustar00wingowingo00000000000000 @c %start of fragment @node Drag and Drop @chapter Drag and Drop Functions for controlling drag and drop handling @section Overview GTK+ has a rich set of functions for doing inter-process communication via the drag-and-drop metaphor. GTK+ can do drag-and-drop (DND) via multiple protocols. The currently supported protocols are the Xdnd and Motif protocols. As well as the functions listed here, applications may need to use some facilities provided for Selections. Also, the Drag and Drop API makes use of signals in the @code{} class. @section Usage @include defuns-gtkdnd.xml.texi @c %end of fragment guile-gnome-platform-2.16.2/gtk/doc/gtk/section-gtkscrolledwindow.xml.texi0000644000175000017500000000522411670374303027213 0ustar00wingowingo00000000000000 @c %start of fragment @node GtkScrolledWindow @chapter GtkScrolledWindow Adds scrollbars to its child widget @section Overview @code{} is a @code{} subclass: it's a container the accepts a single child widget. @code{} adds scrollbars to the child widget and optionally draws a beveled frame around the child widget. The scrolled window can work in two ways. Some widgets have native scrolling support; these widgets have "slots" for @code{} objects. Widgets with native scroll support include @code{}, @code{}, and @code{}. The scrolled window installs @code{} objects in the child window's slots using the set_scroll_adjustments_signal, found in @code{}. (Conceptually, these widgets implement a "Scrollable" interface; because GTK+ 1.2 lacked interface support in the object system, this interface is hackily implemented as a signal in @code{}. The GTK+ 2.0 object system would allow a clean implementation, but it wasn't worth breaking the API.) For widgets that lack native scrolling support, the @code{} widget acts as an adaptor class, implementing scrollability for child widgets that lack their own scrolling capabilities. Use @code{} to scroll child widgets such as @code{}, @code{}, and so on. If a widget has native scrolling abilities, it can be added to the @code{} with @code{gtk-container-add}. If a widget does not, you must first add the widget to a @code{}, then add the @code{} to the scrolled window. The convenience function @code{gtk-scrolled-window-add-with-viewport} does exactly this, so you can ignore the presence of the viewport. The position of the scrollbars is controlled by the scroll adjustments. See @code{} for the fields in an adjustment - for @code{}, used by @code{}, the "value" field represents the position of the scrollbar, which must be between the "lower" field and "upper - page_size." The "page_size" field represents the size of the visible scrollable area. The "step_increment" and "page_increment" fields are used when the user asks to step down (using the small stepper arrows) or page down (using for example the PageDown key). If a @code{} doesn't behave quite as you would like, or doesn't have exactly the right layout, it's very possible to set up your own scrolling with @code{} and for example a @code{}. @section Usage @include defuns-gtkscrolledwindow.xml.texi @c %end of fragment guile-gnome-platform-2.16.2/gtk/doc/gtk/defuns-gtkpagesetup.xml.texi0000644000175000017500000001567011670374302025776 0ustar00wingowingo00000000000000 @c %start of fragment @deftp Class Derives from @code{}. This class defines no direct slots. @end deftp @deffn Function gtk-page-setup-new @result{}@tie{} (ret@tie{}@code{}) Creates a new @code{}. @table @var @item ret a new @code{}. @end table Since 2.10 @end deffn @deffn Function gtk-page-setup-get-orientation (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{}) @deffnx Method get-orientation Gets the page orientation of the @code{}. @table @var @item setup a @code{} @item ret the page orientation @end table Since 2.10 @end deffn @deffn Function gtk-page-setup-set-orientation (self@tie{}@code{}) (orientation@tie{}@code{}) @deffnx Method set-orientation Sets the page orientation of the @code{}. @table @var @item setup a @code{} @item orientation a @code{} value @end table Since 2.10 @end deffn @deffn Function gtk-page-setup-get-paper-size (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{}) @deffnx Method get-paper-size Gets the paper size of the @code{}. @table @var @item setup a @code{} @item ret the paper size @end table Since 2.10 @end deffn @deffn Function gtk-page-setup-set-paper-size (self@tie{}@code{}) (size@tie{}@code{}) @deffnx Method set-paper-size Sets the paper size of the @code{} without changing the margins. See @code{gtk-page-setup-set-paper-size-and-default-margins}. @table @var @item setup a @code{} @item size a @code{} @end table Since 2.10 @end deffn @deffn Function gtk-page-setup-get-top-margin (self@tie{}@code{}) (unit@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{double}) @deffnx Method get-top-margin Gets the top margin in units of @var{unit}. @table @var @item setup a @code{} @item unit the unit for the return value @item ret the top margin @end table Since 2.10 @end deffn @deffn Function gtk-page-setup-set-top-margin (self@tie{}@code{}) (margin@tie{}@code{double}) (unit@tie{}@code{}) @deffnx Method set-top-margin Sets the top margin of the @code{}. @table @var @item setup a @code{} @item margin the new top margin in units of @var{unit} @item unit the units for @var{margin} @end table Since 2.10 @end deffn @deffn Function gtk-page-setup-get-bottom-margin (self@tie{}@code{}) (unit@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{double}) @deffnx Method get-bottom-margin Gets the bottom margin in units of @var{unit}. @table @var @item setup a @code{} @item unit the unit for the return value @item ret the bottom margin @end table Since 2.10 @end deffn @deffn Function gtk-page-setup-set-bottom-margin (self@tie{}@code{}) (margin@tie{}@code{double}) (unit@tie{}@code{}) @deffnx Method set-bottom-margin Sets the bottom margin of the @code{}. @table @var @item setup a @code{} @item margin the new bottom margin in units of @var{unit} @item unit the units for @var{margin} @end table Since 2.10 @end deffn @deffn Function gtk-page-setup-get-left-margin (self@tie{}@code{}) (unit@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{double}) @deffnx Method get-left-margin Gets the left margin in units of @var{unit}. @table @var @item setup a @code{} @item unit the unit for the return value @item ret the left margin @end table Since 2.10 @end deffn @deffn Function gtk-page-setup-set-left-margin (self@tie{}@code{}) (margin@tie{}@code{double}) (unit@tie{}@code{}) @deffnx Method set-left-margin Sets the left margin of the @code{}. @table @var @item setup a @code{} @item margin the new left margin in units of @var{unit} @item unit the units for @var{margin} @end table Since 2.10 @end deffn @deffn Function gtk-page-setup-get-right-margin (self@tie{}@code{}) (unit@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{double}) @deffnx Method get-right-margin Gets the right margin in units of @var{unit}. @table @var @item setup a @code{} @item unit the unit for the return value @item ret the right margin @end table Since 2.10 @end deffn @deffn Function gtk-page-setup-set-right-margin (self@tie{}@code{}) (margin@tie{}@code{double}) (unit@tie{}@code{}) @deffnx Method set-right-margin Sets the right margin of the @code{}. @table @var @item setup a @code{} @item margin the new right margin in units of @var{unit} @item unit the units for @var{margin} @end table Since 2.10 @end deffn @deffn Function gtk-page-setup-get-paper-width (self@tie{}@code{}) (unit@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{double}) @deffnx Method get-paper-width Returns the paper width in units of @var{unit}. Note that this function takes orientation, but not margins into consideration. See @code{gtk-page-setup-get-page-width}. @table @var @item setup a @code{} @item unit the unit for the return value @item ret the paper width. @end table Since 2.10 @end deffn @deffn Function gtk-page-setup-get-paper-height (self@tie{}@code{}) (unit@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{double}) @deffnx Method get-paper-height Returns the paper height in units of @var{unit}. Note that this function takes orientation, but not margins into consideration. See @code{gtk-page-setup-get-page-height}. @table @var @item setup a @code{} @item unit the unit for the return value @item ret the paper height. @end table Since 2.10 @end deffn @deffn Function gtk-page-setup-get-page-width (self@tie{}@code{}) (unit@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{double}) @deffnx Method get-page-width Returns the page width in units of @var{unit}. Note that this function takes orientation and margins into consideration. See @code{gtk-page-setup-get-paper-width}. @table @var @item setup a @code{} @item unit the unit for the return value @item ret the page width. @end table Since 2.10 @end deffn @deffn Function gtk-page-setup-get-page-height (self@tie{}@code{}) (unit@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{double}) @deffnx Method get-page-height Returns the page height in units of @var{unit}. Note that this function takes orientation and margins into consideration. See @code{gtk-page-setup-get-paper-height}. @table @var @item setup a @code{} @item unit the unit for the return value @item ret the page height. @end table Since 2.10 @end deffn @c %end of fragment guile-gnome-platform-2.16.2/gtk/doc/gtk/defuns-gtktreednd.xml.texi0000644000175000017500000000427711670374302025427 0ustar00wingowingo00000000000000 @c %start of fragment @deftp Class Derives from @code{}. This class defines no direct slots. @end deftp @deftp Class Derives from @code{}. This class defines no direct slots. @end deftp @deffn Function gtk-tree-drag-source-drag-data-get (self@tie{}@code{}) (path@tie{}@code{}) (selection_data@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{bool}) @deffnx Method drag-data-get Asks the @code{} to fill in @var{selection-data} with a representation of the row at @var{path}. @var{selection-data->target} gives the required type of the data. Should robustly handle a @var{path} no longer found in the model! @table @var @item drag-source a @code{} @item path row that was dragged @item selection-data a @code{} to fill with data from the dragged row @item ret @samp{@code{#t}} if data of the required type was provided @end table @end deffn @deffn Function gtk-tree-drag-source-row-draggable (self@tie{}@code{}) (path@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{bool}) @deffnx Method row-draggable Asks the @code{} whether a particular row can be used as the source of a DND operation. If the source doesn't implement this interface, the row is assumed draggable. @table @var @item drag-source a @code{} @item path row on which user is initiating a drag @item ret @samp{@code{#t}} if the row can be dragged @end table @end deffn @deffn Function gtk-tree-set-row-drag-data (self@tie{}@code{}) (tree_model@tie{}@code{}) (path@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{bool}) Sets selection data of target type @samp{GTK_TREE_MODEL_ROW}. Normally used in a drag_data_get handler. @table @var @item selection-data some @code{} @item tree-model a @code{} @item path a row in @var{tree-model} @item ret @samp{@code{#t}} if the @code{} had the proper target type to allow us to set a tree row @end table @end deffn @c %end of fragment guile-gnome-platform-2.16.2/gtk/doc/gtk/defuns-gtkinputdialog.xml.texi0000644000175000017500000000154611670374302026315 0ustar00wingowingo00000000000000 @c %start of fragment @deftp Class Derives from @code{}. This class defines no direct slots. @end deftp @defop Signal enable-device (arg0@tie{}@code{}) This signal is emitted when the user changes the mode of a device from @code{} to a @code{} or @code{}. @end defop @defop Signal disable-device (arg0@tie{}@code{}) This signal is emitted when the user changes the mode of a device from a @code{} or @code{} to @code{}. @end defop @deffn Function gtk-input-dialog-new @result{}@tie{} (ret@tie{}@code{}) Creates a new @code{}. @table @var @item ret the new @code{}. @end table @end deffn @c %end of fragment guile-gnome-platform-2.16.2/gtk/doc/gtk/section-gtkcellrenderertext.xml.texi0000644000175000017500000000105711670374302027526 0ustar00wingowingo00000000000000 @c %start of fragment @node GtkCellRendererText @chapter GtkCellRendererText Renders text in a cell @section Overview A @code{} renders a given text in its cell, using the font, color and style information provided by its properties. The text will be ellipsized if it is too long and the ellipsize property allows it. If the mode is @samp{GTK_CELL_RENDERER_MODE_EDITABLE}, the @code{} allows to edit its text using an entry. @section Usage @include defuns-gtkcellrenderertext.xml.texi @c %end of fragment guile-gnome-platform-2.16.2/gtk/doc/gtk/section-gtkcellview.xml.texi0000644000175000017500000000073411670374302025766 0ustar00wingowingo00000000000000 @c %start of fragment @node GtkCellView @chapter GtkCellView A widget displaying a single row of a GtkTreeModel @section Overview A @code{} displays a single row of a @code{}, using cell renderers just like @code{}. @code{} doesn't support some of the more complex features of @code{}, like cell editing and drag and drop. @section Usage @include defuns-gtkcellview.xml.texi @c %end of fragment guile-gnome-platform-2.16.2/gtk/doc/gtk/defuns-gtkcellrenderertext.xml.texi0000644000175000017500000000720111670374302027343 0ustar00wingowingo00000000000000 @c %start of fragment @deftp Class Derives from @code{}. This class defines the following slots: @table @code @item text Text to render @item markup Marked up text to render @item attributes A list of style attributes to apply to the text of the renderer @item single-paragraph-mode Whether or not to keep all text in a single paragraph @item width-chars The desired width of the label, in characters @item wrap-width The width at which the text is wrapped @item alignment How to align the lines @item background Background color as a string @item foreground Foreground color as a string @item background-gdk Background color as a GdkColor @item foreground-gdk Foreground color as a GdkColor @item font Font description as a string, e.g. "Sans Italic 12" @item font-desc Font description as a PangoFontDescription struct @item family Name of the font family, e.g. Sans, Helvetica, Times, Monospace @item style Font style @item variant Font variant @item weight Font weight @item stretch Font stretch @item size Font size @item size-points Font size in points @item scale Font scaling factor @item editable Whether the text can be modified by the user @item strikethrough Whether to strike through the text @item underline Style of underline for this text @item rise Offset of text above the baseline (below the baseline if rise is negative) @item language The language this text is in, as an ISO code. Pango can use this as a hint when rendering the text. If you don't understand this parameter, you probably don't need it @item ellipsize The preferred place to ellipsize the string, if the cell renderer does not have enough room to display the entire string @item wrap-mode How to break the string into multiple lines, if the cell renderer does not have enough room to display the entire string @item background-set Whether this tag affects the background color @item foreground-set Whether this tag affects the foreground color @item family-set Whether this tag affects the font family @item style-set Whether this tag affects the font style @item variant-set Whether this tag affects the font variant @item weight-set Whether this tag affects the font weight @item stretch-set Whether this tag affects the font stretch @item size-set Whether this tag affects the font size @item scale-set Whether this tag scales the font size by a factor @item editable-set Whether this tag affects text editability @item strikethrough-set Whether this tag affects strikethrough @item underline-set Whether this tag affects underlining @item rise-set Whether this tag affects the rise @item language-set Whether this tag affects the language the text is rendered as @item ellipsize-set Whether this tag affects the ellipsize mode @item align-set Whether this tag affects the alignment mode @end table @end deftp @defop Signal edited (arg0@tie{}@code{}) (arg1@tie{}@code{}) This signal is emitted after @var{renderer} has been edited. @end defop @deffn Function gtk-cell-renderer-text-new @result{}@tie{} (ret@tie{}@code{}) Creates a new @code{}. Adjust how text is drawn using object properties. Object properties can be set globally (with @code{g-object-set}). Also, with @code{}, you can bind a property to a value in a @code{}. For example, you can bind the "text" property on the cell renderer to a string value in the model, thus rendering a different string in each row of the @code{} @table @var @item ret the new cell renderer @end table @end deffn @c %end of fragment guile-gnome-platform-2.16.2/gtk/doc/gtk/section-gtkcolorsel.xml.texi0000644000175000017500000000101011670374302025762 0ustar00wingowingo00000000000000 @c %start of fragment @node GtkColorSelection @chapter GtkColorSelection A widget used to select a color @section Overview The @code{} is a widget that is used to select a color. It consists of a color wheel and number of sliders and entry boxes for color parameters such as hue, saturation, value, red, green, blue, and opacity. It is found on the standard color selection dialog box @code{}. @section Usage @include defuns-gtkcolorsel.xml.texi @c %end of fragment guile-gnome-platform-2.16.2/gtk/doc/gtk/defuns-gtkmenu.xml.texi0000644000175000017500000002614411670374302024743 0ustar00wingowingo00000000000000 @c %start of fragment @deftp Class Derives from @code{}. This class defines the following slots: @table @code @item tearoff-state A boolean that indicates whether the menu is torn-off @item tearoff-title A title that may be displayed by the window manager when this menu is torn-off @end table @end deftp @defop Signal move-scroll (arg0@tie{}@code{}) @end defop @deffn Function gtk-menu-new @result{}@tie{} (ret@tie{}@code{}) Creates a new @code{}. @table @var @item ret a new @code{}. @end table @end deffn @deffn Function gtk-menu-set-screen (self@tie{}@code{}) (screen@tie{}@code{}) @deffnx Method set-screen Sets the @code{} on which the menu will be displayed. @table @var @item menu a @code{}. @item screen a @code{}, or @samp{@code{#f}} if the screen should be determined by the widget the menu is attached to. @end table Since 2.2 @end deffn @deffn Function gtk-menu-reorder-child (self@tie{}@code{}) (child@tie{}@code{}) (position@tie{}@code{int}) @deffnx Method reorder-child Moves a @code{} to a new position within the @code{}. @table @var @item menu a @code{}. @item child the @code{} to move. @item position the new position to place @var{child}. Positions are numbered from 0 to n-1. @end table @end deffn @deffn Function gtk-menu-attach (self@tie{}@code{}) (child@tie{}@code{}) (left_attach@tie{}@code{unsigned-int}) (right_attach@tie{}@code{unsigned-int}) (top_attach@tie{}@code{unsigned-int}) (bottom_attach@tie{}@code{unsigned-int}) @deffnx Method attach Adds a new @code{} to a (table) menu. The number of 'cells' that an item will occupy is specified by @var{left-attach}, @var{right-attach}, @var{top-attach} and @var{bottom-attach}. These each represent the leftmost, rightmost, uppermost and lower column and row numbers of the table. (Columns and rows are indexed from zero). Note that this function is not related to @code{gtk-menu-detach}. @table @var @item menu a @code{}. @item child a @code{}. @item left-attach The column number to attach the left side of the item to. @item right-attach The column number to attach the right side of the item to. @item top-attach The row number to attach the top of the item to. @item bottom-attach The row number to attach the bottom of the item to. @end table Since 2.4 @end deffn @deffn Function gtk-menu-popup (self@tie{}@code{}) (parent_menu_shell@tie{}@code{}) (parent_menu_item@tie{}@code{}) (menu_position_func@tie{}@code{scm}) (button@tie{}@code{unsigned-int}) (activate_time@tie{}@code{unsigned-int32}) @deffnx Method popup Displays a menu and makes it available for selection. Applications can use this function to display context-sensitive menus, and will typically supply @samp{@code{#f}} for the @var{parent-menu-shell}, @var{parent-menu-item}, @var{func} and @var{data} parameters. The default menu positioning function will position the menu at the current mouse cursor position. The @var{button} parameter should be the mouse button pressed to initiate the menu popup. If the menu popup was initiated by something other than a mouse button press, such as a mouse button release or a keypress, @var{button} should be 0. The @var{activate-time} parameter should be the time stamp of the event that initiated the popup. If such an event is not available, use @code{gtk-get-current-event-time} instead. @table @var @item menu a @code{}. @item parent-menu-shell the menu shell containing the triggering menu item, or @samp{@code{#f}} @item parent-menu-item the menu item whose activation triggered the popup, or @samp{@code{#f}} @item func a user supplied function used to position the menu, or @samp{@code{#f}} @item data user supplied data to be passed to @var{func}. @item button the mouse button which was pressed to initiate the event. @item activate-time the time at which the activation event occurred. @end table @end deffn @deffn Function gtk-menu-set-accel-group (self@tie{}@code{}) (accel_group@tie{}@code{}) @deffnx Method set-accel-group Set the @code{} which holds global accelerators for the menu. This accelerator group needs to also be added to all windows that this menu is being used in with @code{gtk-window-add-accel-group}, in order for those windows to support all the accelerators contained in this group. @table @var @item menu a @code{}. @item accel-group the @code{} to be associated with the menu. @end table @end deffn @deffn Function gtk-menu-get-accel-group (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{}) @deffnx Method get-accel-group Gets the @code{} which holds global accelerators for the menu. See @code{gtk-menu-set-accel-group}. @table @var @item menu a @code{}. @item ret the @code{} associated with the menu. @end table @end deffn @deffn Function gtk-menu-set-accel-path (self@tie{}@code{}) (accel_path@tie{}@code{mchars}) @deffnx Method set-accel-path Sets an accelerator path for this menu from which accelerator paths for its immediate children, its menu items, can be constructed. The main purpose of this function is to spare the programmer the inconvenience of having to call @code{gtk-menu-item-set-accel-path} on each menu item that should support runtime user changable accelerators. Instead, by just calling @code{gtk-menu-set-accel-path} on their parent, each menu item of this menu, that contains a label describing its purpose, automatically gets an accel path assigned. For example, a menu containing menu items "New" and "Exit", will, after @samp{gtk_menu_set_accel_path (menu, "/File");} has been called, assign its items the accel paths: @samp{"/File/New"} and @samp{"/File/Exit"}. Assigning accel paths to menu items then enables the user to change their accelerators at runtime. More details about accelerator paths and their default setups can be found at @code{gtk-accel-map-add-entry}. @table @var @item menu a valid @code{} @item accel-path a valid accelerator path @end table @end deffn @deffn Function gtk-menu-set-title (self@tie{}@code{}) (title@tie{}@code{mchars}) @deffnx Method set-title Sets the title string for the menu. The title is displayed when the menu is shown as a tearoff menu. If @var{title} is @samp{@code{#f}}, the menu will see if it is attached to a parent menu item, and if so it will try to use the same text as that menu item's label. @table @var @item menu a @code{} @item title a string containing the title for the menu. @end table @end deffn @deffn Function gtk-menu-get-tearoff-state (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{bool}) @deffnx Method get-tearoff-state Returns whether the menu is torn off. See @code{gtk-menu-set-tearoff-state}. @table @var @item menu a @code{} @item ret @samp{@code{#t}} if the menu is currently torn off. @end table @end deffn @deffn Function gtk-menu-get-title (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{mchars}) @deffnx Method get-title Returns the title of the menu. See @code{gtk-menu-set-title}. @table @var @item menu a @code{} @item ret the title of the menu, or @samp{@code{#f}} if the menu has no title set on it. This string is owned by the widget and should not be modified or freed. @end table @end deffn @deffn Function gtk-menu-popdown (self@tie{}@code{}) @deffnx Method popdown Removes the menu from the screen. @table @var @item menu a @code{}. @end table @end deffn @deffn Function gtk-menu-reposition (self@tie{}@code{}) @deffnx Method reposition Repositions the menu according to its position function. @table @var @item menu a @code{}. @end table @end deffn @deffn Function gtk-menu-get-active (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{}) @deffnx Method get-active Returns the selected menu item from the menu. This is used by the @code{}. @table @var @item menu a @code{}. @item ret the @code{} that was last selected in the menu. If a selection has not yet been made, the first menu item is selected. @end table @end deffn @deffn Function gtk-menu-set-active (self@tie{}@code{}) (index@tie{}@code{unsigned-int}) @deffnx Method set-active Selects the specified menu item within the menu. This is used by the @code{} and should not be used by anyone else. @table @var @item menu a @code{}. @item index the index of the menu item to select. Index values are from 0 to n-1. @end table @end deffn @deffn Function gtk-menu-set-tearoff-state (self@tie{}@code{}) (torn_off@tie{}@code{bool}) @deffnx Method set-tearoff-state Changes the tearoff state of the menu. A menu is normally displayed as drop down menu which persists as long as the menu is active. It can also be displayed as a tearoff menu which persists until it is closed or reattached. @table @var @item menu a @code{}. @item torn-off If @samp{@code{#t}}, menu is displayed as a tearoff menu. @end table @end deffn @deffn Function gtk-menu-detach (self@tie{}@code{}) @deffnx Method detach Detaches the menu from the widget to which it had been attached. This function will call the callback function, @var{detacher}, provided when the @code{gtk-menu-attach-to-widget} function was called. @table @var @item menu a @code{}. @end table @end deffn @deffn Function gtk-menu-get-attach-widget (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{}) @deffnx Method get-attach-widget Returns the @code{} that the menu is attached to. @table @var @item menu a @code{}. @item ret the @code{} that the menu is attached to. @end table @end deffn @deffn Function gtk-menu-get-for-attach-widget (widget@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{glist-of}) Returns a list of the menus which are attached to this widget. This list is owned by GTK+ and must not be modified. @table @var @item widget a @code{} @item ret the list of menus attached to his widget. @end table Since 2.6 @end deffn @deffn Function gtk-menu-set-monitor (self@tie{}@code{}) (monitor_num@tie{}@code{int}) @deffnx Method set-monitor Informs GTK+ on which monitor a menu should be popped up. See @code{gdk-screen-get-monitor-geometry}. This function should be called from a @code{} if the menu should not appear on the same monitor as the pointer. This information can't be reliably inferred from the coordinates returned by a @code{}, since, for very long menus, these coordinates may extend beyond the monitor boundaries or even the screen boundaries. @table @var @item menu a @code{} @item monitor-num the number of the monitor on which the menu should be popped up @end table Since 2.4 @end deffn @c %end of fragment guile-gnome-platform-2.16.2/gtk/doc/gtk/section-gtktable.xml.texi0000644000175000017500000000207111670374303025240 0ustar00wingowingo00000000000000 @c %start of fragment @node GtkTable @chapter GtkTable Pack widgets in regular patterns @section Overview The @code{} functions allow the programmer to arrange widgets in rows and columns, making it easy to align many widgets next to each other, horizontally and vertically. Tables are created with a call to @code{gtk-table-new}, the size of which can later be changed with @code{gtk-table-resize}. Widgets can be added to a table using @code{gtk-table-attach} or the more convenient (but slightly less flexible) @code{gtk-table-attach-defaults}. To alter the space next to a specific row, use @code{gtk-table-set-row-spacing}, and for a column, @code{gtk-table-set-col-spacing}. The gaps between @emph{all} rows or columns can be changed by calling @code{gtk-table-set-row-spacings} or @code{gtk-table-set-col-spacings} respectively. @code{gtk-table-set-homogeneous}, can be used to set whether all cells in the table will resize themselves to the size of the largest widget in the table. @section Usage @include defuns-gtktable.xml.texi @c %end of fragment guile-gnome-platform-2.16.2/gtk/doc/gtk/section-gtkaccelmap.xml.texi0000644000175000017500000000032211670374302025712 0ustar00wingowingo00000000000000 @c %start of fragment @node Accelerator Maps @chapter Accelerator Maps Loadable keyboard accelerator specifications @section Overview @section Usage @include defuns-gtkaccelmap.xml.texi @c %end of fragment guile-gnome-platform-2.16.2/gtk/doc/gtk/defuns-gtktreemodel.xml.texi0000644000175000017500000005027411670374302025760 0ustar00wingowingo00000000000000 @c %start of fragment @deftp Class Derives from @code{}. This class defines no direct slots. @end deftp @defop Signal row-changed (arg0@tie{}@code{}) (arg1@tie{}@code{}) This signal is emitted when a row in the model has changed. @end defop @defop Signal row-inserted (arg0@tie{}@code{}) (arg1@tie{}@code{}) This signal is emitted when a new row has been inserted in the model. Note that the row may still be empty at this point, since it is a common pattern to first insert an empty row, and then fill it with the desired values. @end defop @defop Signal row-has-child-toggled (arg0@tie{}@code{}) (arg1@tie{}@code{}) This signal is emitted when a row has gotten the first child row or lost its last child row. @end defop @defop Signal row-deleted (arg0@tie{}@code{}) This signal is emitted when a row has been deleted. Note that no iterator is passed to the signal handler, since the row is already deleted. Implementations of GtkTreeModel must emit row-deleted @emph{before} removing the node from its internal data structures. This is because models and views which access and monitor this model might have references on the node which need to be released in the row-deleted handler. @end defop @defop Signal rows-reordered (arg0@tie{}@code{}) (arg1@tie{}@code{}) (arg2@tie{}@code{}) This signal is emitted when the children of a node in the @code{} have been reordered. Note that this signal is @emph{not} emitted when rows are reordered by DND, since this is implemented by removing and then reinserting the row. @end defop @deftp Class Derives from @code{}. This class defines no direct slots. @end deftp @deftp Class Derives from @code{}. This class defines no direct slots. @end deftp @deftp Class Derives from @code{}. This class defines no direct slots. @end deftp @deffn Function gtk-tree-path-new-from-string (path@tie{}@code{mchars}) (path@tie{}@code{mchars}) @result{}@tie{} (ret@tie{}@code{}) Creates a new @code{} initialized to @var{path}. @var{path} is expected to be a colon separated list of numbers. For example, the string "10:4:0" would create a path of depth 3 pointing to the 11th child of the root node, the 5th child of that 11th child, and the 1st child of that 5th child. If an invalid path string is passed in, @samp{@code{#f}} is returned. @table @var @item path The string representation of a path. @item ret A newly-created @code{}, or @samp{@code{#f}} @end table @end deffn @deffn Function gtk-tree-path-append-index (self@tie{}@code{}) (index@tie{}@code{int}) Appends a new index to a path. As a result, the depth of the path is increased. @table @var @item path A @code{}. @item index The index. @end table @end deffn @deffn Function gtk-tree-path-prepend-index (self@tie{}@code{}) (index@tie{}@code{int}) Prepends a new index to a path. As a result, the depth of the path is increased. @table @var @item path A @code{}. @item index The index. @end table @end deffn @deffn Function gtk-tree-path-copy (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{}) Creates a new @code{} as a copy of @var{path}. @table @var @item path A @code{}. @item ret A new @code{}. @end table @end deffn @deffn Function gtk-tree-row-reference-new (model@tie{}@code{}) (path@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{}) Creates a row reference based on @var{path}. This reference will keep pointing to the node pointed to by @var{path}, so long as it exists. It listens to all signals emitted by @var{model}, and updates its path appropriately. If @var{path} isn't a valid path in @var{model}, then @samp{@code{#f}} is returned. @table @var @item model A @code{} @item path A valid @code{} to monitor @item ret A newly allocated @code{}, or @samp{@code{#f}} @end table @end deffn @deffn Function gtk-tree-row-reference-new-proxy (proxy@tie{}@code{}) (model@tie{}@code{}) (path@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{}) You do not need to use this function. Creates a row reference based on @var{path}. This reference will keep pointing to the node pointed to by @var{path}, so long as it exists. If @var{path} isn't a valid path in @var{model}, then @samp{@code{#f}} is returned. However, unlike references created with @code{gtk-tree-row-reference-new}, it does not listen to the model for changes. The creator of the row reference must do this explicitly using @code{gtk-tree-row-reference-inserted}, @code{gtk-tree-row-reference-deleted}, @code{gtk-tree-row-reference-reordered}. These functions must be called exactly once per proxy when the corresponding signal on the model is emitted. This single call updates all row references for that proxy. Since built-in GTK+ objects like @code{} already use this mechanism internally, using them as the proxy object will produce unpredictable results. Further more, passing the same object as @var{model} and @var{proxy} doesn't work for reasons of internal implementation. This type of row reference is primarily meant by structures that need to carefully monitor exactly when a row reference updates itself, and is not generally needed by most applications. @table @var @item proxy A proxy @code{} @item model A @code{} @item path A valid @code{} to monitor @item ret A newly allocated @code{}, or @samp{@code{#f}} @end table @end deffn @deffn Function gtk-tree-row-reference-get-model (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{}) Returns the model that the row reference is monitoring. @table @var @item reference A @code{} @item ret the model @end table Since 2.8 @end deffn @deffn Function gtk-tree-row-reference-get-path (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{}) Returns a path that the row reference currently points to, or @samp{@code{#f}} if the path pointed to is no longer valid. @table @var @item reference A @code{} @item ret A current path, or @samp{@code{#f}}. @end table @end deffn @deffn Function gtk-tree-row-reference-valid (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{bool}) Returns @samp{@code{#t}} if the @var{reference} is non-@samp{@code{#f}} and refers to a current valid path. @table @var @item reference A @code{}, or @samp{@code{#f}} @item ret @samp{@code{#t}} if @var{reference} points to a valid path. @end table @end deffn @deffn Function gtk-tree-row-reference-inserted (proxy@tie{}@code{}) (path@tie{}@code{}) Lets a set of row reference created by @code{gtk-tree-row-reference-new-proxy} know that the model emitted the "row_inserted" signal. @table @var @item proxy A @code{} @item path The row position that was inserted @end table @end deffn @deffn Function gtk-tree-row-reference-deleted (proxy@tie{}@code{}) (path@tie{}@code{}) Lets a set of row reference created by @code{gtk-tree-row-reference-new-proxy} know that the model emitted the "row_deleted" signal. @table @var @item proxy A @code{} @item path The path position that was deleted @end table @end deffn @deffn Function gtk-tree-row-reference-reordered (proxy@tie{}@code{}) (path@tie{}@code{}) (iter@tie{}@code{}) @result{}@tie{} (new_order@tie{}@code{int}) Lets a set of row reference created by @code{gtk-tree-row-reference-new-proxy} know that the model emitted the "rows_reordered" signal. @table @var @item proxy A @code{} @item path The parent path of the reordered signal @item iter The iter pointing to the parent of the reordered @item new-order The new order of rows @end table @end deffn @deffn Function gtk-tree-iter-copy (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{}) Creates a dynamically allocated tree iterator as a copy of @var{iter}. This function is not intended for use in applications, because you can just copy the structs by value (@samp{GtkTreeIter new_iter = iter;}). You must free this iter with @code{gtk-tree-iter-free}. @table @var @item iter A @code{}. @item ret a newly-allocated copy of @var{iter}. @end table @end deffn @deffn Function gtk-tree-model-get-flags (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{}) @deffnx Method get-flags Returns a set of flags supported by this interface. The flags are a bitwise combination of @code{}. The flags supported should not change during the lifecycle of the @var{tree-model}. @table @var @item tree-model A @code{}. @item ret The flags supported by this interface. @end table @end deffn @deffn Function gtk-tree-model-get-n-columns (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{int}) @deffnx Method get-n-columns Returns the number of columns supported by @var{tree-model}. @table @var @item tree-model A @code{}. @item ret The number of columns. @end table @end deffn @deffn Function gtk-tree-model-get-column-type (self@tie{}@code{}) (index@tie{}@code{int}) @result{}@tie{} (ret@tie{}@code{}) @deffnx Method get-column-type Returns the type of the column. @table @var @item tree-model A @code{}. @item index The column index. @item ret The type of the column. @end table @end deffn @deffn Function gtk-tree-model-get-iter (self@tie{}@code{}) (path@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{}) @deffnx Method get-iter Sets @var{iter} to a valid iterator pointing to @var{path}. @table @var @item tree-model A @code{}. @item iter The uninitialized @code{}. @item path The @code{}. @item ret @samp{@code{#t}}, if @var{iter} was set. @end table @end deffn @deffn Function gtk-tree-model-get-iter-first (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{}) @deffnx Method get-iter-first Initializes @var{iter} with the first iterator in the tree (the one at the path "0") and returns @samp{@code{#t}}. Returns @samp{@code{#f}} if the tree is empty. @table @var @item tree-model A @code{}. @item iter The uninitialized @code{}. @item ret @samp{@code{#t}}, if @var{iter} was set. @end table @end deffn @deffn Function gtk-tree-model-get-path (self@tie{}@code{}) (iter@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{}) @deffnx Method get-path Returns a newly-created @code{} referenced by @var{iter}. This path should be freed with @code{gtk-tree-path-free}. @table @var @item tree-model A @code{}. @item iter The @code{}. @item ret a newly-created @code{}. @end table @end deffn @deffn Function gtk-tree-model-get-value (self@tie{}@code{}) (iter@tie{}@code{}) (column@tie{}@code{int}) @result{}@tie{} (ret@tie{}@code{scm}) @deffnx Method get-value Sets initializes and sets @var{value} to that at @var{column}. When done with @var{value}, @code{g-value-unset} needs to be called to free any allocated memory. @table @var @item tree-model A @code{}. @item iter The @code{}. @item column The column to lookup the value at. @item value An empty @code{} to set. @end table @end deffn @deffn Function gtk-tree-model-iter-next (self@tie{}@code{}) (iter@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{}) @deffnx Method iter-next Sets @var{iter} to point to the node following it at the current level. If there is no next @var{iter}, @samp{@code{#f}} is returned and @var{iter} is set to be invalid. @table @var @item tree-model A @code{}. @item iter The @code{}. @item ret @samp{@code{#t}} if @var{iter} has been changed to the next node. @end table @end deffn @deffn Function gtk-tree-model-iter-children (self@tie{}@code{}) (parent@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{glist-of}) @deffnx Method iter-children Sets @var{iter} to point to the first child of @var{parent}. If @var{parent} has no children, @samp{@code{#f}} is returned and @var{iter} is set to be invalid. @var{parent} will remain a valid node after this function has been called. If @var{parent} is @samp{@code{#f}} returns the first node, equivalent to @samp{gtk_tree_model_get_iter_first (tree_model, iter);} @table @var @item tree-model A @code{}. @item iter The new @code{} to be set to the child. @item parent The @code{}, or @samp{@code{#f}} @item ret @samp{@code{#t}}, if @var{child} has been set to the first child. @end table @end deffn @deffn Function gtk-tree-model-iter-has-child (self@tie{}@code{}) (iter@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{bool}) @deffnx Method iter-has-child Returns @samp{@code{#t}} if @var{iter} has children, @samp{@code{#f}} otherwise. @table @var @item tree-model A @code{}. @item iter The @code{} to test for children. @item ret @samp{@code{#t}} if @var{iter} has children. @end table @end deffn @deffn Function gtk-tree-model-iter-n-children (self@tie{}@code{}) (iter@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{int}) @deffnx Method iter-n-children Returns the number of children that @var{iter} has. As a special case, if @var{iter} is @samp{@code{#f}}, then the number of toplevel nodes is returned. @table @var @item tree-model A @code{}. @item iter The @code{}, or @samp{@code{#f}}. @item ret The number of children of @var{iter}. @end table @end deffn @deffn Function gtk-tree-model-iter-nth-child (self@tie{}@code{}) (parent@tie{}@code{}) (n@tie{}@code{int}) @result{}@tie{} (ret@tie{}@code{}) @deffnx Method iter-nth-child Sets @var{iter} to be the child of @var{parent}, using the given index. The first index is 0. If @var{n} is too big, or @var{parent} has no children, @var{iter} is set to an invalid iterator and @samp{@code{#f}} is returned. @var{parent} will remain a valid node after this function has been called. As a special case, if @var{parent} is @samp{@code{#f}}, then the @var{n}th root node is set. @table @var @item tree-model A @code{}. @item iter The @code{} to set to the nth child. @item parent The @code{} to get the child from, or @samp{@code{#f}}. @item n Then index of the desired child. @item ret @samp{@code{#t}}, if @var{parent} has an @var{n}th child. @end table @end deffn @deffn Function gtk-tree-model-iter-parent (self@tie{}@code{}) (child@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{}) @deffnx Method iter-parent Sets @var{iter} to be the parent of @var{child}. If @var{child} is at the toplevel, and doesn't have a parent, then @var{iter} is set to an invalid iterator and @samp{@code{#f}} is returned. @var{child} will remain a valid node after this function has been called. @table @var @item tree-model A @code{} @item iter The new @code{} to set to the parent. @item child The @code{}. @item ret @samp{@code{#t}}, if @var{iter} is set to the parent of @var{child}. @end table @end deffn @deffn Function gtk-tree-model-get-string-from-iter (self@tie{}@code{}) (iter@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{mchars}) @deffnx Method get-string-from-iter Generates a string representation of the iter. This string is a ':' separated list of numbers. For example, "4:10:0:3" would be an acceptable return value for this string. @table @var @item tree-model A @code{}. @item iter An @code{}. @item ret A newly-allocated string. Must be freed with @code{g-free}. @end table Since 2.2 @end deffn @deffn Function gtk-tree-model-ref-node (self@tie{}@code{}) (iter@tie{}@code{}) @deffnx Method ref-node Lets the tree ref the node. This is an optional method for models to implement. To be more specific, models may ignore this call as it exists primarily for performance reasons. This function is primarily meant as a way for views to let caching model know when nodes are being displayed (and hence, whether or not to cache that node.) For example, a file-system based model would not want to keep the entire file-hierarchy in memory, just the sections that are currently being displayed by every current view. A model should be expected to be able to get an iter independent of its reffed state. @table @var @item tree-model A @code{}. @item iter The @code{}. @end table @end deffn @deffn Function gtk-tree-model-unref-node (self@tie{}@code{}) (iter@tie{}@code{}) @deffnx Method unref-node Lets the tree unref the node. This is an optional method for models to implement. To be more specific, models may ignore this call as it exists primarily for performance reasons. For more information on what this means, see @code{gtk-tree-model-ref-node}. Please note that nodes that are deleted are not unreffed. @table @var @item tree-model A @code{}. @item iter The @code{}. @end table @end deffn @deffn Function gtk-tree-model-row-changed (self@tie{}@code{}) (path@tie{}@code{}) (iter@tie{}@code{}) @deffnx Method row-changed Emits the "row_changed" signal on @var{tree-model}. @table @var @item tree-model A @code{} @item path A @code{} pointing to the changed row @item iter A valid @code{} pointing to the changed row @end table @end deffn @deffn Function gtk-tree-model-row-inserted (self@tie{}@code{}) (path@tie{}@code{}) (iter@tie{}@code{}) @deffnx Method row-inserted Emits the "row_inserted" signal on @var{tree-model} @table @var @item tree-model A @code{} @item path A @code{} pointing to the inserted row @item iter A valid @code{} pointing to the inserted row @end table @end deffn @deffn Function gtk-tree-model-row-deleted (self@tie{}@code{}) (path@tie{}@code{}) @deffnx Method row-deleted Emits the "row_deleted" signal on @var{tree-model}. This should be called by models after a row has been removed. The location pointed to by @var{path} should be the location that the row previously was at. It may not be a valid location anymore. @table @var @item tree-model A @code{} @item path A @code{} pointing to the previous location of the deleted row. @end table @end deffn @deffn Function gtk-tree-model-rows-reordered (self@tie{}@code{}) (path@tie{}@code{}) (iter@tie{}@code{}) @result{}@tie{} (new_order@tie{}@code{int}) @deffnx Method rows-reordered Emits the "rows_reordered" signal on @var{tree-model}. This should be called by models when their rows have been reordered. @table @var @item tree-model A @code{} @item path A @code{} pointing to the tree node whose children have been reordered @item iter A valid @code{} pointing to the node whose children have been reordered, or @samp{@code{#f}} if the depth of @var{path} is 0. @item new-order an array of integers mapping the current position of each child to its old position before the re-ordering, i.e. @var{new-order}@samp{[newpos] = oldpos}. @end table @end deffn @c %end of fragment guile-gnome-platform-2.16.2/gtk/doc/gtk/defuns-gtkinvisible.xml.texi0000644000175000017500000000303711670374302025757 0ustar00wingowingo00000000000000 @c %start of fragment @deftp Class Derives from @code{}. This class defines the following slots: @table @code @item screen The screen where this window will be displayed @end table @end deftp @deffn Function gtk-invisible-new @result{}@tie{} (ret@tie{}@code{}) Creates a new @code{}. @table @var @item ret a new @code{}. @end table @end deffn @deffn Function gtk-invisible-new-for-screen (screen@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{}) Creates a new @code{} object for a specified screen @table @var @item screen a @code{} which identifies on which the new @code{} will be created. @item ret a newly created @code{} object @end table Since 2.2 @end deffn @deffn Function gtk-invisible-set-screen (self@tie{}@code{}) (screen@tie{}@code{}) @deffnx Method set-screen Sets the @code{} where the @code{} object will be displayed. @table @var @item invisible a @code{}. @item screen a @code{}. @end table Since 2.2 @end deffn @deffn Function gtk-invisible-get-screen (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{}) @deffnx Method get-screen Returns the @code{} object associated with @var{invisible} @table @var @item invisible a @code{}. @item ret the associated @code{}. @end table Since 2.2 @end deffn @c %end of fragment guile-gnome-platform-2.16.2/gtk/doc/gtk/defuns-gtkcellrenderercombo.xml.texi0000644000175000017500000000205411670374302027457 0ustar00wingowingo00000000000000 @c %start of fragment @deftp Class Derives from @code{}. This class defines the following slots: @table @code @item model The model containing the possible values for the combo box @item text-column A column in the data source model to get the strings from @item has-entry If FALSE, don't allow to enter strings other than the chosen ones @end table @end deftp @deffn Function gtk-cell-renderer-combo-new @result{}@tie{} (ret@tie{}@code{}) Creates a new @code{}. Adjust how text is drawn using object properties. Object properties can be set globally (with @code{g-object-set}). Also, with @code{}, you can bind a property to a value in a @code{}. For example, you can bind the "text" property on the cell renderer to a string value in the model, thus rendering a different string in each row of the @code{}. @table @var @item ret the new cell renderer @end table Since 2.6 @end deffn @c %end of fragment guile-gnome-platform-2.16.2/gtk/doc/gtk/section-gtkaccelgroup.xml.texi0000644000175000017500000000210111670374302026266 0ustar00wingowingo00000000000000 @c %start of fragment @node Accelerator Groups @chapter Accelerator Groups Groups of global keyboard accelerators for an entire GtkWindow @section Overview A @code{} represents a group of keyboard accelerators, typically attached to a toplevel @code{} (with @code{gtk-window-add-accel-group}). Usually you won't need to create a @code{} directly; instead, when using @code{}, GTK+ automatically sets up the accelerators for your menus in the item factory's @code{}. Note that @dfn{accelerators} are different from @dfn{mnemonics}. Accelerators are shortcuts for activating a menu item; they appear alongside the menu item they're a shortcut for. For example "Ctrl+Q" might appear alongside the "Quit" menu item. Mnemonics are shortcuts for GUI elements such as text entries or buttons; they appear as underlined characters. See @code{gtk-label-new-with-mnemonic}. Menu items can have both accelerators and mnemonics, of course. @section Usage @include defuns-gtkaccelgroup.xml.texi @c %end of fragment guile-gnome-platform-2.16.2/gtk/doc/gtk/section-gtkcheckmenuitem.xml.texi0000644000175000017500000000104411670374302026770 0ustar00wingowingo00000000000000 @c %start of fragment @node GtkCheckMenuItem @chapter GtkCheckMenuItem A menu item with a check box @section Overview A @code{} is a menu item that maintains the state of a boolean value in addition to a @code{}'s usual role in activating application code. A check box indicating the state of the boolean value is displayed at the left side of the @code{}. Activating the @code{} toggles the value. @section Usage @include defuns-gtkcheckmenuitem.xml.texi @c %end of fragment guile-gnome-platform-2.16.2/gtk/doc/gtk/section-gtkfilechooserwidget.xml.texi0000644000175000017500000000127211670374302027660 0ustar00wingowingo00000000000000 @c %start of fragment @node GtkFileChooserWidget @chapter GtkFileChooserWidget File chooser widget that can be embedded in other widgets @section Overview @code{} is a widget suitable for selecting files. It is the main building block of a @code{}. Most applications will only need to use the latter; you can use @code{} as part of a larger window if you have special needs. Note that @code{} does not have any methods of its own. Instead, you should use the functions that work on a @code{}. @section Usage @include defuns-gtkfilechooserwidget.xml.texi @c %end of fragment guile-gnome-platform-2.16.2/gtk/doc/gtk/section-gtkwindow.xml.texi0000644000175000017500000000027611670374303025465 0ustar00wingowingo00000000000000 @c %start of fragment @node GtkWindow @chapter GtkWindow Toplevel which can contain other widgets @section Overview @section Usage @include defuns-gtkwindow.xml.texi @c %end of fragment guile-gnome-platform-2.16.2/gtk/doc/gtk/section-gtkcontainer.xml.texi0000644000175000017500000001111711670374302026133 0ustar00wingowingo00000000000000 @c %start of fragment @node GtkContainer @chapter GtkContainer Base class for widgets which contain other widgets @section Overview A GTK+ user interface is constructed by nesting widgets inside widgets. Container widgets are the inner nodes in the resulting tree of widgets: they contain other widgets. So, for example, you might have a @code{} containing a @code{} containing a GtkLabel. If you wanted an image instead of a textual label inside the frame, you might replace the @code{} widget with a @code{} widget. There are two major kinds of container widgets in GTK+. Both are subclasses of the abstract @code{} base class. The first type of container widget has a single child widget and derives from @code{}. These containers are @dfn{decorators}, which add some kind of functionality to the child. For example, a @code{} makes its child into a clickable button; a @code{} draws a frame around its child and a @code{} places its child widget inside a top-level window. The second type of container can have more than one child; its purpose is to manage @dfn{layout}. This means that these containers assign sizes and positions to their children. For example, a @code{} arranges its children in a horizontal row, and a @code{} arranges the widgets it contains in a two-dimensional grid. To fulfill its task, a layout container must negotiate the size requirements with its parent and its children. This negotiation is carried out in two phases, @dfn{size requisition} and @dfn{size allocation}. @section Size Requisition The size requisition of a widget is it's desired width and height. This is represented by a @code{}. How a widget determines its desired size depends on the widget. A @code{}, for example, requests enough space to display all its text. Container widgets generally base their size request on the requisitions of their children. The size requisition phase of the widget layout process operates top-down. It starts at a top-level widget, typically a @code{}. The top-level widget asks its child for its size requisition by calling @code{gtk-widget-size-request}. To determine its requisition, the child asks its own children for their requisitions and so on. Finally, the top-level widget will get a requisition back from its child. @section Size Allocation When the top-level widget has determined how much space its child would like to have, the second phase of the size negotiation, size allocation, begins. Depending on its configuration (see @code{gtk-window-set-resizable}), the top-level widget may be able to expand in order to satisfy the size request or it may have to ignore the size request and keep its fixed size. It then tells its child widget how much space it gets by calling @code{gtk-widget-size-allocate}. The child widget divides the space among its children and tells each child how much space it got, and so on. Under normal circumstances, a @code{} will always give its child the amount of space the child requested. A child's size allocation is represented by a @code{}. This struct contains not only a width and height, but also a position (i.e. X and Y coordinates), so that containers can tell their children not only how much space they have gotten, but also where they are positioned inside the space available to the container. Widgets are required to honor the size allocation they receive; a size request is only a request, and widgets must be able to cope with any size. @section Child properties introduces @dfn{child properties} - these are object properties that are not specific to either the container or the contained widget, but rather to their relation. Typical examples of child properties are the position or pack-type of a widget which is contained in a @code{}. Use @code{gtk-container-class-install-child-property} to install child properties for a container class and @code{gtk-container-class-find-child-property} or @code{gtk-container-class-list-child-properties} to get information about existing child properties. To set the value of a child property, use @code{gtk-container-child-set-property}, @code{gtk-container-child-set} or @code{gtk-container-child-set-valist}. To obtain the value of a child property, use @code{gtk-container-child-get-property}, @code{gtk-container-child-get} or @code{gtk-container-child-get-valist}. To emit notification about child property changes, use @code{gtk-widget-child-notify}. @section Usage @include defuns-gtkcontainer.xml.texi @c %end of fragment guile-gnome-platform-2.16.2/gtk/doc/gtk/defuns-gtkobject.xml.texi0000644000175000017500000000073011670374302025236 0ustar00wingowingo00000000000000 @c %start of fragment @deftp Class Derives from @code{}. This class defines the following slots: @table @code @item user-data Anonymous User Data Pointer @end table @end deftp @defop Signal destroy Signals that all holders of a reference to the @code{} should release the reference that they hold. May result in finalization of the object if all references are released. @end defop @c %end of fragment guile-gnome-platform-2.16.2/gtk/doc/gtk/defuns-gtkbin.xml.texi0000644000175000017500000000112011670374302024532 0ustar00wingowingo00000000000000 @c %start of fragment @deftp Class Derives from @code{}. This class defines no direct slots. @end deftp @deffn Function gtk-bin-get-child (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{}) @deffnx Method get-child Gets the child of the @code{}, or @samp{@code{#f}} if the bin contains no child widget. The returned widget does not have a reference added, so you do not need to unref it. @table @var @item bin a @code{} @item ret pointer to child of the @code{} @end table @end deffn @c %end of fragment guile-gnome-platform-2.16.2/gtk/doc/gtk/defuns-gtkassistant.xml.texi0000644000175000017500000002476011670374302026012 0ustar00wingowingo00000000000000 @c %start of fragment @deftp Class Derives from @code{}. This class defines no direct slots. @end deftp @defop Signal close The ::close signal is emitted either when the close button of a summary page is clicked, or when the apply button in the last page in the flow (of type GTK_ASSISTANT_PAGE_CONFIRM) is clicked. Since 2.10 @end defop @defop Signal cancel The ::cancel signal is emitted when then the cancel button is clicked. Since 2.10 @end defop @defop Signal prepare (arg0@tie{}@code{}) The ::prepared signal is emitted when a new page is set as the assistant's current page, before making the new page visible. A handler for this signal can do any preparation which are necessary before showing @var{page}. Since 2.10 @end defop @defop Signal apply The ::apply signal is emitted when the apply button is clicked. The default behavior of the @code{} is to switch to the page after the current page, unless the current page is the last one. A handler for the ::apply signal should carry out the actions for which the wizard has collected data. If the action takes a long time to complete, you might consider to put a page of type GTK_ASSISTANT_PAGE_PROGRESS after the confirmation page and handle this operation within the ::prepare signal of the progress page. Since 2.10 @end defop @deffn Function gtk-assistant-new @result{}@tie{} (ret@tie{}@code{}) Creates a new @code{}. @table @var @item ret a newly created @code{} @end table Since 2.10 @end deffn @deffn Function gtk-assistant-get-current-page (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{int}) @deffnx Method get-current-page Returns the page number of the current page @table @var @item assistant a @code{} @item ret The index (starting from 0) of the current page in the @var{assistant}, if the @var{assistant} has no pages, -1 will be returned @end table Since 2.10 @end deffn @deffn Function gtk-assistant-set-current-page (self@tie{}@code{}) (page_num@tie{}@code{int}) @deffnx Method set-current-page Switches the page to @var{page-num}. Note that this will only be necessary in custom buttons, as the @var{assistant} flow can be set with @code{gtk-assistant-set-forward-page-func}. @table @var @item assistant a @code{} @item page-num index of the page to switch to, starting from 0. If negative, the last page will be used. If greater than the number of pages in the @var{assistant}, nothing will be done. @end table Since 2.10 @end deffn @deffn Function gtk-assistant-get-n-pages (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{int}) @deffnx Method get-n-pages Returns the number of pages in the @var{assistant} @table @var @item assistant a @code{} @item ret The number of pages in the @var{assistant}. @end table Since 2.10 @end deffn @deffn Function gtk-assistant-get-nth-page (self@tie{}@code{}) (page_num@tie{}@code{int}) @result{}@tie{} (ret@tie{}@code{}) @deffnx Method get-nth-page Returns the child widget contained in page number @var{page-num}. @table @var @item assistant a @code{} @item page-num The index of a page in the @var{assistant}, or -1 to get the last page; @item ret The child widget, or @samp{@code{#f}} if @var{page-num} is out of bounds. @end table Since 2.10 @end deffn @deffn Function gtk-assistant-prepend-page (self@tie{}@code{}) (page@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{int}) @deffnx Method prepend-page Prepends a page to the @var{assistant}. @table @var @item assistant a @code{} @item page a @code{} @item ret the index (starting at 0) of the inserted page @end table Since 2.10 @end deffn @deffn Function gtk-assistant-append-page (self@tie{}@code{}) (page@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{int}) @deffnx Method append-page Appends a page to the @var{assistant}. @table @var @item assistant a @code{} @item page a @code{} @item ret the index (starting at 0) of the inserted page @end table Since 2.10 @end deffn @deffn Function gtk-assistant-insert-page (self@tie{}@code{}) (page@tie{}@code{}) (position@tie{}@code{int}) @result{}@tie{} (ret@tie{}@code{int}) @deffnx Method insert-page Inserts a page in the @var{assistant} at a given position. @table @var @item assistant a @code{} @item page a @code{} @item position the index (starting at 0) at which to insert the page, or -1 to append the page to the @var{assistant} @item ret the index (starting from 0) of the inserted page @end table Since 2.10 @end deffn @deffn Function gtk-assistant-set-page-type (self@tie{}@code{}) (page@tie{}@code{}) (type@tie{}@code{}) @deffnx Method set-page-type Sets the page type for @var{page}. The page type determines the page behavior in the @var{assistant}. @table @var @item assistant a @code{} @item page a page of @var{assistant} @item type the new type for @var{page} @end table Since 2.10 @end deffn @deffn Function gtk-assistant-get-page-type (self@tie{}@code{}) (page@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{}) @deffnx Method get-page-type Gets the page type of @var{page}. @table @var @item assistant a @code{} @item page a page of @var{assistant} @item ret the page type of @var{page}. @end table Since 2.10 @end deffn @deffn Function gtk-assistant-set-page-title (self@tie{}@code{}) (page@tie{}@code{}) (title@tie{}@code{mchars}) @deffnx Method set-page-title Sets a title for @var{page}. The title is displayed in the header area of the assistant when @var{page} is the current page. @table @var @item assistant a @code{} @item page a page of @var{assistant} @item title the new title for @var{page} @end table Since 2.10 @end deffn @deffn Function gtk-assistant-get-page-title (self@tie{}@code{}) (page@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{mchars}) @deffnx Method get-page-title Gets the title for @var{page}. @table @var @item assistant a @code{} @item page a page of @var{assistant} @item ret the title for @var{page}. @end table Since 2.10 @end deffn @deffn Function gtk-assistant-set-page-header-image (self@tie{}@code{}) (page@tie{}@code{}) (pixbuf@tie{}@code{}) @deffnx Method set-page-header-image Sets a header image for @var{page}. This image is displayed in the header area of the assistant when @var{page} is the current page. @table @var @item assistant a @code{} @item page a page of @var{assistant} @item pixbuf the new header image @var{page} @end table Since 2.10 @end deffn @deffn Function gtk-assistant-get-page-header-image (self@tie{}@code{}) (page@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{}) @deffnx Method get-page-header-image Gets the header image for @var{page}. @table @var @item assistant a @code{} @item page a page of @var{assistant} @item ret the header image for @var{page}, or @samp{@code{#f}} if there's no header image for the page. @end table Since 2.10 @end deffn @deffn Function gtk-assistant-set-page-side-image (self@tie{}@code{}) (page@tie{}@code{}) (pixbuf@tie{}@code{}) @deffnx Method set-page-side-image Sets a header image for @var{page}. This image is displayed in the side area of the assistant when @var{page} is the current page. @table @var @item assistant a @code{} @item page a page of @var{assistant} @item pixbuf the new header image @var{page} @end table Since 2.10 @end deffn @deffn Function gtk-assistant-get-page-side-image (self@tie{}@code{}) (page@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{}) @deffnx Method get-page-side-image Gets the header image for @var{page}. @table @var @item assistant a @code{} @item page a page of @var{assistant} @item ret the side image for @var{page}, or @samp{@code{#f}} if there's no side image for the page. @end table Since 2.10 @end deffn @deffn Function gtk-assistant-set-page-complete (self@tie{}@code{}) (page@tie{}@code{}) (complete@tie{}@code{bool}) @deffnx Method set-page-complete Sets whether @var{page} contents are complete. This will make @var{assistant} update the buttons state to be able to continue the task. @table @var @item assistant a @code{} @item page a page of @var{assistant} @item complete the completeness status of the page @end table Since 2.10 @end deffn @deffn Function gtk-assistant-get-page-complete (self@tie{}@code{}) (page@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{bool}) @deffnx Method get-page-complete Gets whether @var{page} is complete.. @table @var @item assistant a @code{} @item page a page of @var{assistant} @item ret @samp{@code{#t}} if @var{page} is complete. @end table Since 2.10 @end deffn @deffn Function gtk-assistant-add-action-widget (self@tie{}@code{}) (child@tie{}@code{}) @deffnx Method add-action-widget Adds a widget to the action area of a @code{}. @table @var @item assistant a @code{} @item child a @code{} @end table Since 2.10 @end deffn @deffn Function gtk-assistant-remove-action-widget (self@tie{}@code{}) (child@tie{}@code{}) @deffnx Method remove-action-widget Removes a widget from the action area of a @code{}. @table @var @item assistant a @code{} @item child a @code{} @end table Since 2.10 @end deffn @deffn Function gtk-assistant-update-buttons-state (self@tie{}@code{}) @deffnx Method update-buttons-state Forces @var{assistant} to recompute the buttons state. GTK+ automatically takes care of this in most situations, e.g. when the user goes to a different page, or when the visibility or completeness of a page changes. One situation where it can be necessary to call this function is when changing a value on the current page affects the future page flow of the assistant. @table @var @item assistant a @code{} @end table Since 2.10 @end deffn @c %end of fragment guile-gnome-platform-2.16.2/gtk/doc/gtk/defuns-gtkrecentchooser.xml.texi0000644000175000017500000003144211670374302026637 0ustar00wingowingo00000000000000 @c %start of fragment @deftp Class Derives from @code{}. This class defines the following slots: @table @code @item recent-manager The RecentManager object to use @item show-private Whether the private items should be displayed @item show-not-found Whether the items pointing to unavailable resources should be displayed @item show-tips Whether there should be a tooltip on the item @item show-icons Whether there should be an icon near the item @item sort-type The sorting order of the items displayed @item select-multiple Whether to allow multiple items to be selected @item filter The current filter for selecting which resources are displayed @item limit The maximum number of items to be displayed @item local-only Whether the selected resource(s) should be limited to local file: URIs @end table @end deftp @defop Signal selection-changed This signal is emitted when there is a change in the set of selected recently used resources. This can happen when a user modifies the selection with the mouse or the keyboard, or when explicitely calling functions to change the selection. Since 2.10 @end defop @defop Signal item-activated This signal is emitted when the user "activates" a recent item in the recent chooser. This can happen by double-clicking on an item in the recently used resources list, or by pressing @c (keycap "Enter") . Since 2.10 @end defop @deffn Function gtk-recent-chooser-set-show-private (self@tie{}@code{}) (show_private@tie{}@code{bool}) @deffnx Method set-show-private Whether to show recently used resources marked registered as private. @table @var @item chooser a @code{} @item show-private @samp{@code{#t}} to show private items, @samp{@code{#f}} otherwise @end table Since 2.10 @end deffn @deffn Function gtk-recent-chooser-get-show-private (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{bool}) @deffnx Method get-show-private Returns whether @var{chooser} should display recently used resources registered as private. @table @var @item chooser a @code{} @item ret @samp{@code{#t}} if the recent chooser should show private items, @samp{@code{#f}} otherwise. @end table Since 2.10 @end deffn @deffn Function gtk-recent-chooser-set-show-icons (self@tie{}@code{}) (show_icons@tie{}@code{bool}) @deffnx Method set-show-icons Sets whether @var{chooser} should show an icon near the resource when displaying it. @table @var @item chooser a @code{} @item show-icons whether to show an icon near the resource @end table Since 2.10 @end deffn @deffn Function gtk-recent-chooser-get-show-icons (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{bool}) @deffnx Method get-show-icons Retrieves whether @var{chooser} should show an icon near the resource. @table @var @item chooser a @code{} @item ret @samp{@code{#t}} if the icons should be displayed, @samp{@code{#f}} otherwise. @end table Since 2.10 @end deffn @deffn Function gtk-recent-chooser-set-local-only (self@tie{}@code{}) (local_only@tie{}@code{bool}) @deffnx Method set-local-only Sets whether only local resources, that is resources using the file:// URI scheme, should be shown in the recently used resources selector. If @var{local-only} is @samp{@code{#t}} (the default) then the shown resources are guaranteed to be accessible through the operating system native file system. @table @var @item chooser a @code{} @item local-only @samp{@code{#t}} if only local files can be shown @end table Since 2.10 @end deffn @deffn Function gtk-recent-chooser-get-local-only (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{bool}) @deffnx Method get-local-only Gets whether only local resources should be shown in the recently used resources selector. See @code{gtk-recent-chooser-set-local-only} @table @var @item chooser a @code{} @item ret @samp{@code{#t}} if only local resources should be shown. @end table Since 2.10 @end deffn @deffn Function gtk-recent-chooser-set-limit (self@tie{}@code{}) (limit@tie{}@code{int}) @deffnx Method set-limit Sets the number of items that should be returned by @code{gtk-recent-chooser-get-items} and @code{gtk-recent-chooser-get-uris}. @table @var @item chooser a @code{} @item limit a positive integer, or -1 for all items @end table Since 2.10 @end deffn @deffn Function gtk-recent-chooser-get-limit (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{int}) @deffnx Method get-limit Gets the number of items returned by @code{gtk-recent-chooser-get-items} and @code{gtk-recent-chooser-get-uris}. @table @var @item chooser a @code{} @item ret A positive integer, or -1 meaning that all items are returned. @end table Since 2.10 @end deffn @deffn Function gtk-recent-chooser-set-show-tips (self@tie{}@code{}) (show_tips@tie{}@code{bool}) @deffnx Method set-show-tips Sets whether to show a tooltips on the widget. @table @var @item chooser a @code{} @item show-tips @samp{@code{#t}} if tooltips should be shown @end table Since 2.10 @end deffn @deffn Function gtk-recent-chooser-get-show-tips (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{bool}) @deffnx Method get-show-tips Gets whether @var{chooser} should display tooltips. @table @var @item chooser a @code{} @item ret @samp{@code{#t}} if the recent chooser should show tooltips, @samp{@code{#f}} otherwise. @end table Since 2.10 @end deffn @deffn Function gtk-recent-chooser-set-show-numbers (self@tie{}@code{}) (show_numbers@tie{}@code{bool}) @deffnx Method set-show-numbers Whether to show recently used resources prepended by a unique number. Do not use this function: use @code{gtk-recent-chooser-menu-set-show-numbers} instead. @table @var @item chooser a @code{} @item show-numbers @samp{@code{#t}} to show numbers, @samp{@code{#f}} otherwise @end table Since 2.10 @end deffn @deffn Function gtk-recent-chooser-get-show-numbers (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{bool}) @deffnx Method get-show-numbers Returns whether @var{chooser} should display recently used resources prepended by a unique number. Do not use this function: use @code{gtk-recent-chooser-menu-get-show-numbers} instead. @table @var @item chooser a @code{} @item ret @samp{@code{#t}} if the recent chooser should show display numbers, @samp{@code{#f}} otherwise. @end table Since 2.10 @end deffn @deffn Function gtk-recent-chooser-set-sort-type (self@tie{}@code{}) (sort_type@tie{}@code{}) @deffnx Method set-sort-type Changes the sorting order of the recently used resources list displayed by @var{chooser}. @table @var @item chooser a @code{} @item sort-type sort order that the chooser should use @end table Since 2.10 @end deffn @deffn Function gtk-recent-chooser-get-sort-type (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{}) @deffnx Method get-sort-type Gets the value set by @code{gtk-recent-chooser-set-sort-type}. @table @var @item chooser a @code{} @item ret the sorting order of the @var{chooser}. @end table Since 2.10 @end deffn @deffn Function gtk-recent-chooser-set-current-uri (self@tie{}@code{}) (uri@tie{}@code{mchars}) @result{}@tie{} (ret@tie{}@code{bool}) @deffnx Method set-current-uri Sets @var{uri} as the current URI for @var{chooser}. @table @var @item chooser a @code{} @item uri a URI @item error return location for a @code{}, or @samp{@code{#f}} @item ret @samp{@code{#t}} if the URI was found. @end table Since 2.10 @end deffn @deffn Function gtk-recent-chooser-get-current-uri (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{mchars}) @deffnx Method get-current-uri Gets the URI currently selected by @var{chooser}. @table @var @item chooser a @code{} @item ret a newly allocated string holding a URI. @end table Since 2.10 @end deffn @deffn Function gtk-recent-chooser-get-current-item (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{}) @deffnx Method get-current-item Gets the @code{} currently selected by @var{chooser}. @table @var @item chooser a @code{} @item ret a @code{}. Use @code{gtk-recent-info-unref} when when you have finished using it. @end table Since 2.10 @end deffn @deffn Function gtk-recent-chooser-select-uri (self@tie{}@code{}) (uri@tie{}@code{mchars}) @result{}@tie{} (ret@tie{}@code{bool}) @deffnx Method select-uri Selects @var{uri} inside @var{chooser}. @table @var @item chooser a @code{} @item uri a URI @item error return location for a @code{}, or @samp{@code{#f}} @item ret @samp{@code{#t}} if @var{uri} was found. @end table Since 2.10 @end deffn @deffn Function gtk-recent-chooser-unselect-uri (self@tie{}@code{}) (uri@tie{}@code{mchars}) @deffnx Method unselect-uri Unselects @var{uri} inside @var{chooser}. @table @var @item chooser a @code{} @item uri a URI @end table Since 2.10 @end deffn @deffn Function gtk-recent-chooser-select-all (self@tie{}@code{}) @deffnx Method select-all Selects all the items inside @var{chooser}, if the @var{chooser} supports multiple selection. @table @var @item chooser a @code{} @end table Since 2.10 @end deffn @deffn Function gtk-recent-chooser-unselect-all (self@tie{}@code{}) @deffnx Method unselect-all Unselects all the items inside @var{chooser}. @table @var @item chooser a @code{} @end table Since 2.10 @end deffn @deffn Function gtk-recent-chooser-get-items (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{glist-of}) @deffnx Method get-items Gets the list of recently used resources in form of @code{} objects. The return value of this function is affected by the "sort-type" and "limit" properties of @var{chooser}. @table @var @item chooser a @code{} @item ret A newly allocated list of @code{} objects. You should use @code{gtk-recent-info-unref} on every item of the list, and then free the list itself using @code{g-list-free}. @end table Since 2.10 @end deffn @deffn Function gtk-recent-chooser-add-filter (self@tie{}@code{}) (filter@tie{}@code{}) @deffnx Method add-filter Adds @var{filter} to the list of @code{} objects held by @var{chooser}. If no previous filter objects were defined, this function will call @code{gtk-recent-chooser-set-filter}. @table @var @item chooser a @code{} @item filter a @code{} @end table Since 2.10 @end deffn @deffn Function gtk-recent-chooser-remove-filter (self@tie{}@code{}) (filter@tie{}@code{}) @deffnx Method remove-filter Removes @var{filter} from the list of @code{} objects held by @var{chooser}. @table @var @item chooser a @code{} @item filter a @code{} @end table Since 2.10 @end deffn @deffn Function gtk-recent-chooser-list-filters (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{gslist-of}) @deffnx Method list-filters Gets the @code{} objects held by @var{chooser}. @table @var @item chooser a @code{} @item ret A singly linked list of @code{} objects. You should just free the returned list using @code{g-slist-free}. @end table Since 2.10 @end deffn @deffn Function gtk-recent-chooser-set-filter (self@tie{}@code{}) (filter@tie{}@code{}) @deffnx Method set-filter Sets @var{filter} as the current @code{} object used by @var{chooser} to affect the displayed recently used resources. @table @var @item chooser a @code{} @item filter a @code{} @end table Since 2.10 @end deffn @deffn Function gtk-recent-chooser-get-filter (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{}) @deffnx Method get-filter Gets the @code{} object currently used by @var{chooser} to affect the display of the recently used resources. @table @var @item chooser a @code{} @item ret a @code{} object. @end table Since 2.10 @end deffn @c %end of fragment guile-gnome-platform-2.16.2/gtk/doc/gtk/section-gtkaccellabel.xml.texi0000644000175000017500000000505011670374302026217 0ustar00wingowingo00000000000000 @c %start of fragment @node GtkAccelLabel @chapter GtkAccelLabel A label which displays an accelerator key on the right of the text @section Overview The @code{} widget is a subclass of @code{} that also displays an accelerator key on the right of the label text, e.g. 'Ctl+S'. It is commonly used in menus to show the keyboard short-cuts for commands. The accelerator key to display is not set explicitly. Instead, the @code{} displays the accelerators which have been added to a particular widget. This widget is set by calling @code{gtk-accel-label-set-accel-widget}. For example, a @code{} widget may have an accelerator added to emit the "activate" signal when the 'Ctl+S' key combination is pressed. A @code{} is created and added to the @code{}, and @code{gtk-accel-label-set-accel-widget} is called with the @code{} as the second argument. The @code{} will now display 'Ctl+S' after its label. Note that creating a @code{} with @code{gtk-menu-item-new-with-label} (or one of the similar functions for @code{} and @code{}) automatically adds a @code{} to the @code{} and calls @code{gtk-accel-label-set-accel-widget} to set it up for you. A @code{} will only display accelerators which have @samp{GTK_ACCEL_VISIBLE} set (see @code{}). A @code{} can display multiple accelerators and even signal names, though it is almost always used to display just one accelerator key. @example GtkWidget *save_item; GtkAccelGroup *accel_group; /* Create a GtkAccelGroup and add it to the window. */ accel_group = gtk_accel_group_new (); gtk_window_add_accel_group (GTK_WINDOW (window), accel_group); /* Create the menu item using the convenience function. */ save_item = gtk_menu_item_new_with_label ("Save"); gtk_widget_show (save_item); gtk_container_add (GTK_CONTAINER (menu), save_item); /* Now add the accelerator to the GtkMenuItem. Note that since we called gtk_menu_item_new_with_label() to create the GtkMenuItem the GtkAccelLabel is automatically set up to display the GtkMenuItem accelerators. We just need to make sure we use GTK_ACCEL_VISIBLE here. */ gtk_widget_add_accelerator (save_item, "activate", accel_group, GDK_s, GDK_CONTROL_MASK, GTK_ACCEL_VISIBLE); @end example @section Usage @include defuns-gtkaccellabel.xml.texi @c %end of fragment guile-gnome-platform-2.16.2/gtk/doc/gtk/defuns-gtkrecentfilter.xml.texi0000644000175000017500000001011611670374302026455 0ustar00wingowingo00000000000000 @c %start of fragment @deftp Class Derives from @code{}. This class defines no direct slots. @end deftp @deffn Function gtk-recent-filter-new @result{}@tie{} (ret@tie{}@code{}) Creates a new @code{} with no rules added to it. Such filter does not accept any recently used resources, so is not particularly useful until you add rules with @code{gtk-recent-filter-add-pattern}, @code{gtk-recent-filter-add-mime-type}, @code{gtk-recent-filter-add-application}, @code{gtk-recent-filter-add-age}. To create a filter that accepts any recently used resource, use: @example GtkRecentFilter *filter = gtk_recent_filter_new (); gtk_recent_filter_add_pattern (filter, "*"); @end example @table @var @item ret a new @code{} @end table Since 2.10 @end deffn @deffn Function gtk-recent-filter-get-name (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{mchars}) @deffnx Method get-name Gets the human-readable name for the filter. See @code{gtk-recent-filter-set-name}. @table @var @item filter a @code{} @item ret the name of the filter, or @samp{@code{#f}}. The returned string is owned by the filter object and should not be freed. @end table Since 2.10 @end deffn @deffn Function gtk-recent-filter-set-name (self@tie{}@code{}) (name@tie{}@code{mchars}) @deffnx Method set-name Sets the human-readable name of the filter; this is the string that will be displayed in the recently used resources selector user interface if there is a selectable list of filters. @table @var @item filter a @code{} @item name then human readable name of @var{filter} @end table Since 2.10 @end deffn @deffn Function gtk-recent-filter-add-mime-type (self@tie{}@code{}) (mime_type@tie{}@code{mchars}) @deffnx Method add-mime-type Adds a rule that allows resources based on their registered MIME type. @table @var @item filter a @code{} @item mime-type a MIME type @end table Since 2.10 @end deffn @deffn Function gtk-recent-filter-add-pattern (self@tie{}@code{}) (pattern@tie{}@code{mchars}) @deffnx Method add-pattern Adds a rule that allows resources based on a pattern matching their display name. @table @var @item filter a @code{} @item pattern a file pattern @end table Since 2.10 @end deffn @deffn Function gtk-recent-filter-add-application (self@tie{}@code{}) (application@tie{}@code{mchars}) @deffnx Method add-application Adds a rule that allows resources based on the name of the application that has registered them. @table @var @item filter a @code{} @item application an application name @end table Since 2.10 @end deffn @deffn Function gtk-recent-filter-add-group (self@tie{}@code{}) (group@tie{}@code{mchars}) @deffnx Method add-group Adds a rule that allows resources based on the name of the group to which they belong @table @var @item filter a @code{} @item group a group name @end table Since 2.10 @end deffn @deffn Function gtk-recent-filter-add-age (self@tie{}@code{}) (days@tie{}@code{int}) @deffnx Method add-age Adds a rule that allows resources based on their age - that is, the number of days elapsed since they were last modified. @table @var @item filter a @code{} @item days number of days @end table Since 2.10 @end deffn @deffn Function gtk-recent-filter-get-needed (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{}) @deffnx Method get-needed Gets the fields that need to be filled in for the structure passed to @code{gtk-recent-filter-filter} This function will not typically be used by applications; it is intended principally for use in the implementation of @code{}. @table @var @item filter a @code{} @item ret bitfield of flags indicating needed fields when calling @code{gtk-recent-filter-filter} @end table Since 2.10 @end deffn @c %end of fragment guile-gnome-platform-2.16.2/gtk/doc/gtk/defuns-gtktoolbutton.xml.texi0000644000175000017500000002002611670374302026201 0ustar00wingowingo00000000000000 @c %start of fragment @deftp Class Derives from @code{}. This class defines the following slots: @table @code @item label Text to show in the item. @item use-underline If set, an underline in the label property indicates that the next character should be used for the mnemonic accelerator key in the overflow menu @item label-widget Widget to use as the item label @item stock-id The stock icon displayed on the item @item icon-name The name of the themed icon displayed on the item @item icon-widget Icon widget to display in the item @end table @end deftp @defop Signal clicked This signal is emitted when the tool button is clicked with the mouse or activated with the keyboard. @end defop @deffn Function gtk-tool-button-new (icon_widget@tie{}@code{}) (label@tie{}@code{mchars}) @result{}@tie{} (ret@tie{}@code{}) Creates a new @samp{GtkToolButton} using @var{icon-widget} as icon and @var{label} as label. @table @var @item icon-widget a widget that will be used as icon widget, or @samp{@code{#f}} @item label a string that will be used as label, or @samp{@code{#f}} @item ret A new @code{} @end table Since 2.4 @end deffn @deffn Function gtk-tool-button-new-from-stock (stock_id@tie{}@code{mchars}) @result{}@tie{} (ret@tie{}@code{}) Creates a new @code{} containing the image and text from a stock item. Some stock ids have preprocessor macros like @code{} and @code{}. It is an error if @var{stock-id} is not a name of a stock item. @table @var @item stock-id the name of the stock item @item ret A new @code{} @end table Since 2.4 @end deffn @deffn Function gtk-tool-button-set-label (self@tie{}@code{}) (label@tie{}@code{mchars}) @deffnx Method set-label Sets @var{label} as the label used for the tool button. The "label" property only has an effect if not overridden by a non-@samp{@code{#f}} "label_widget" property. If both the "label_widget" and "label" properties are @samp{@code{#f}}, the label is determined by the "stock_id" property. If the "stock_id" property is also @samp{@code{#f}}, @var{button} will not have a label. @table @var @item button a @code{} @item label a string that will be used as label, or @samp{@code{#f}}. @end table Since 2.4 @end deffn @deffn Function gtk-tool-button-get-label (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{mchars}) @deffnx Method get-label Returns the label used by the tool button, or @samp{@code{#f}} if the tool button doesn't have a label. or uses a the label from a stock item. The returned string is owned by GTK+, and must not be modified or freed. @table @var @item button a @code{} @item ret The label, or @samp{@code{#f}} @end table Since 2.4 @end deffn @deffn Function gtk-tool-button-set-use-underline (self@tie{}@code{}) (use_underline@tie{}@code{bool}) @deffnx Method set-use-underline If set, an underline in the label property indicates that the next character should be used for the mnemonic accelerator key in the overflow menu. For example, if the label property is "_Open" and @var{use-underline} is @samp{@code{#t}}, the label on the tool button will be "Open" and the item on the overflow menu will have an underlined 'O'. Labels shown on tool buttons never have mnemonics on them; this property only affects the menu item on the overflow menu. @table @var @item button a @code{} @item use-underline whether the button label has the form "_Open" @end table Since 2.4 @end deffn @deffn Function gtk-tool-button-get-use-underline (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{bool}) @deffnx Method get-use-underline Returns whether underscores in the label property are used as mnemonics on menu items on the overflow menu. See @code{gtk-tool-button-set-use-underline}. @table @var @item button a @code{} @item ret @samp{@code{#t}} if underscores in the label property are used as mnemonics on menu items on the overflow menu. @end table Since 2.4 @end deffn @deffn Function gtk-tool-button-set-stock-id (self@tie{}@code{}) (stock_id@tie{}@code{mchars}) @deffnx Method set-stock-id Sets the name of the stock item. See @code{gtk-tool-button-new-from-stock}. The stock_id property only has an effect if not overridden by non-@samp{@code{#f}} "label" and "icon_widget" properties. @table @var @item button a @code{} @item stock-id a name of a stock item, or @samp{@code{#f}} @end table Since 2.4 @end deffn @deffn Function gtk-tool-button-get-stock-id (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{mchars}) @deffnx Method get-stock-id Returns the name of the stock item. See @code{gtk-tool-button-set-stock-id}. The returned string is owned by GTK+ and must not be freed or modifed. @table @var @item button a @code{} @item ret the name of the stock item for @var{button}. @end table Since 2.4 @end deffn @deffn Function gtk-tool-button-set-icon-name (self@tie{}@code{}) (icon_name@tie{}@code{mchars}) @deffnx Method set-icon-name Sets the icon for the tool button from a named themed icon. See the docs for @code{} for more details. The "icon_name" property only has an effect if not overridden by non-@samp{@code{#f}} "label", "icon_widget" and "stock_id" properties. @table @var @item button a @code{} @item icon-name the name of the themed icon @end table Since 2.8 @end deffn @deffn Function gtk-tool-button-get-icon-name (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{mchars}) @deffnx Method get-icon-name Returns the name of the themed icon for the tool button, see @code{gtk-tool-button-set-icon-name}. @table @var @item button a @code{} @item ret the icon name or @samp{@code{#f}} if the tool button has no themed icon @end table Since 2.8 @end deffn @deffn Function gtk-tool-button-set-icon-widget (self@tie{}@code{}) (icon_widget@tie{}@code{}) @deffnx Method set-icon-widget Sets @var{icon} as the widget used as icon on @var{button}. If @var{icon-widget} is @samp{@code{#f}} the icon is determined by the "stock_id" property. If the "stock_id" property is also @samp{@code{#f}}, @var{button} will not have an icon. @table @var @item button a @code{} @item icon-widget the widget used as icon, or @samp{@code{#f}} @end table Since 2.4 @end deffn @deffn Function gtk-tool-button-get-icon-widget (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{}) @deffnx Method get-icon-widget Return the widget used as icon widget on @var{button}. See @code{gtk-tool-button-set-icon-widget}. @table @var @item button a @code{} @item ret The widget used as icon on @var{button}, or @samp{@code{#f}}. @end table Since 2.4 @end deffn @deffn Function gtk-tool-button-set-label-widget (self@tie{}@code{}) (label_widget@tie{}@code{}) @deffnx Method set-label-widget Sets @var{label-widget} as the widget that will be used as the label for @var{button}. If @var{label-widget} is @samp{@code{#f}} the "label" property is used as label. If "label" is also @samp{@code{#f}}, the label in the stock item determined by the "stock_id" property is used as label. If "stock_id" is also @samp{@code{#f}}, @var{button} does not have a label. @table @var @item button a @code{} @item label-widget the widget used as label, or @samp{@code{#f}} @end table Since 2.4 @end deffn @deffn Function gtk-tool-button-get-label-widget (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{}) @deffnx Method get-label-widget Returns the widget used as label on @var{button}. See @code{gtk-tool-button-set-label-widget}. @table @var @item button a @code{} @item ret The widget used as label on @var{button}, or @samp{@code{#f}}. @end table Since 2.4 @end deffn @c %end of fragment guile-gnome-platform-2.16.2/gtk/doc/gtk/section-gtkpapersize.xml.texi0000644000175000017500000000127111670374302026153 0ustar00wingowingo00000000000000 @c %start of fragment @node GtkPaperSize @chapter GtkPaperSize Support for named paper sizes @section Overview GtkPaperSize handles paper sizes. It uses the standard called "PWG 5101.1-2002 PWG: Standard for Media Standardized Names" to name the paper sizes (and to get the data for the page sizes). In addition to standard paper sizes, GtkPaperSize allows to construct custom paper sizes with arbitrary dimensions. The @code{} object stores not only the dimensions (width and height) of a paper size and its name, it also provides default print margins. Printing support has been added in GTK+ 2.10. @section Usage @include defuns-gtkpapersize.xml.texi @c %end of fragment guile-gnome-platform-2.16.2/gtk/doc/gtk/defuns-gtkmessagedialog.xml.texi0000644000175000017500000000235711670374302026603 0ustar00wingowingo00000000000000 @c %start of fragment @deftp Class Derives from @code{}. This class defines the following slots: @table @code @item message-type The type of message @item buttons The buttons shown in the message dialog @item text The primary text of the message dialog @item use-markup The primary text of the title includes Pango markup. @item secondary-text The secondary text of the message dialog @item secondary-use-markup The secondary text includes Pango markup. @item image The image @end table @end deftp @deffn Function gtk-message-dialog-set-markup (self@tie{}@code{}) (str@tie{}@code{mchars}) @deffnx Method set-markup Sets the text of the message dialog to be @var{str}, which is marked up with the Pango text markup language. @table @var @item message-dialog a @code{} @item str markup string (see Pango markup format) @end table Since 2.4 @end deffn @deffn Function gtk-message-dialog-set-image (self@tie{}@code{}) (image@tie{}@code{}) @deffnx Method set-image Sets the dialog's image to @var{image}. @table @var @item dialog a @code{} @item image the image @end table Since 2.10 @end deffn @c %end of fragment guile-gnome-platform-2.16.2/gtk/doc/gtk/defuns-gtkvscale.xml.texi0000644000175000017500000000244011670374302025245 0ustar00wingowingo00000000000000 @c %start of fragment @deftp Class Derives from @code{}. This class defines no direct slots. @end deftp @deffn Function gtk-vscale-new (adjustment@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{}) Creates a new @code{}. @table @var @item adjustment the @code{} which sets the range of the scale. @item ret a new @code{}. @end table @end deffn @deffn Function gtk-vscale-new-with-range (min@tie{}@code{double}) (max@tie{}@code{double}) (step@tie{}@code{double}) @result{}@tie{} (ret@tie{}@code{}) Creates a new vertical scale widget that lets the user input a number between @var{min} and @var{max} (including @var{min} and @var{max}) with the increment @var{step}. @var{step} must be nonzero; it's the distance the slider moves when using the arrow keys to adjust the scale value. Note that the way in which the precision is derived works best if @var{step} is a power of ten. If the resulting precision is not suitable for your needs, use @code{gtk-scale-set-digits} to correct it. @table @var @item min minimum value @item max maximum value @item step step increment (tick size) used with keyboard shortcuts @item ret a new @code{} @end table @end deffn @c %end of fragment guile-gnome-platform-2.16.2/gtk/doc/gtk/defuns-gtkeditable.xml.texi0000644000175000017500000001650411670374302025547 0ustar00wingowingo00000000000000 @c %start of fragment @deftp Class Derives from @code{}. This class defines no direct slots. @end deftp @defop Signal changed Indicates that the user has changed the contents of the widget. @end defop @defop Signal insert-text (arg0@tie{}@code{}) (arg1@tie{}@code{}) (arg2@tie{}@code{}) This signal is emitted when text is inserted into the widget by the user. The default handler for this signal will normally be responsible for inserting the text, so by connecting to this signal and then stopping the signal with @code{gtk-signal-emit-stop}, it is possible to modify the inserted text, or prevent it from being inserted entirely. @end defop @defop Signal delete-text (arg0@tie{}@code{}) (arg1@tie{}@code{}) This signal is emitted when text is deleted from the widget by the user. The default handler for this signal will normally be responsible for inserting the text, so by connecting to this signal and then stopping the signal with @code{gtk-signal-emit-stop}, it is possible to modify the inserted text, or prevent it from being inserted entirely. The @var{start-pos} and @var{end-pos} parameters are interpreted as for @code{gtk-editable-delete-text} @end defop @deffn Function gtk-editable-select-region (self@tie{}@code{}) (start@tie{}@code{int}) (end@tie{}@code{int}) @deffnx Method select-region Selects a region of text. The characters that are selected are those characters at positions from @var{start-pos} up to, but not including @var{end-pos}. If @var{end-pos} is negative, then the the characters selected will be those characters from @var{start-pos} to the end of the text. @table @var @item editable a @code{} widget. @item start the starting position. @item end the end position. @end table @end deffn @deffn Function gtk-editable-get-selection-bounds (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{bool}) (start@tie{}@code{int}) (end@tie{}@code{int}) @deffnx Method get-selection-bounds Gets the current selection bounds, if there is a selection. @table @var @item editable a @code{} widget. @item start location to store the starting position, or @samp{@code{#f}}. @item end location to store the end position, or @samp{@code{#f}}. @item ret @samp{@code{#t}} if there is a selection. @end table @end deffn @deffn Function gtk-editable-insert-text (self@tie{}@code{}) (new_text@tie{}@code{mchars}) (position@tie{}@code{int}) @result{}@tie{} (ret@tie{}@code{int}) @deffnx Method insert-text Inserts text at a given position. @table @var @item editable a @code{} widget. @item new-text the text to insert. @item new-text-length the length of the text to insert, in bytes @item position an inout parameter. The caller initializes it to the position at which to insert the text. After the call it points at the position after the newly inserted text. @end table @end deffn @deffn Function gtk-editable-delete-text (self@tie{}@code{}) (start_pos@tie{}@code{int}) (end_pos@tie{}@code{int}) @deffnx Method delete-text Deletes a sequence of characters. The characters that are deleted are those characters at positions from @var{start-pos} up to, but not including @var{end-pos}. If @var{end-pos} is negative, then the the characters deleted will be those characters from @var{start-pos} to the end of the text. @table @var @item editable a @code{} widget. @item start-pos the starting position. @item end-pos the end position. @end table @end deffn @deffn Function gtk-editable-get-chars (self@tie{}@code{}) (start_pos@tie{}@code{int}) (end_pos@tie{}@code{int}) @result{}@tie{} (ret@tie{}@code{mchars}) @deffnx Method get-chars Retrieves a sequence of characters. The characters that are retrieved are those characters at positions from @var{start-pos} up to, but not including @var{end-pos}. If @var{end-pos} is negative, then the the characters retrieved will be those characters from @var{start-pos} to the end of the text. @table @var @item editable a @code{} widget. @item start-pos the starting position. @item end-pos the end position. @item ret the characters in the indicated region. The result must be freed with @code{g-free} when the application is finished with it. @end table @end deffn @deffn Function gtk-editable-cut-clipboard (self@tie{}@code{}) @deffnx Method cut-clipboard Causes the characters in the current selection to be copied to the clipboard and then deleted from the widget. @table @var @item editable a @code{} widget. @end table @end deffn @deffn Function gtk-editable-copy-clipboard (self@tie{}@code{}) @deffnx Method copy-clipboard Causes the characters in the current selection to be copied to the clipboard. @table @var @item editable a @code{} widget. @end table @end deffn @deffn Function gtk-editable-paste-clipboard (self@tie{}@code{}) @deffnx Method paste-clipboard Causes the contents of the clipboard to be pasted into the given widget at the current cursor position. @table @var @item editable a @code{} widget. @end table @end deffn @deffn Function gtk-editable-delete-selection (self@tie{}@code{}) @deffnx Method delete-selection Deletes the current contents of the widgets selection and disclaims the selection. @table @var @item editable a @code{} widget. @end table @end deffn @deffn Function gtk-editable-set-position (self@tie{}@code{}) (position@tie{}@code{int}) @deffnx Method set-position Sets the cursor position. @table @var @item editable a @code{} widget. @item position the position of the cursor. The cursor is displayed before the character with the given (base 0) index in the widget. The value must be less than or equal to the number of characters in the widget. A value of -1 indicates that the position should be set after the last character in the entry. Note that this position is in characters, not in bytes. @end table @end deffn @deffn Function gtk-editable-get-position (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{int}) @deffnx Method get-position Retrieves the current cursor position. @table @var @item editable a @code{} widget. @item ret the position of the cursor. The cursor is displayed before the character with the given (base 0) index in the widget. The value will be less than or equal to the number of characters in the widget. Note that this position is in characters, not in bytes. @end table @end deffn @deffn Function gtk-editable-set-editable (self@tie{}@code{}) (is_editable@tie{}@code{bool}) @deffnx Method set-editable Determines if the user can edit the text in the editable widget or not. @table @var @item editable a @code{} widget. @item is-editable @samp{@code{#t}} if the user is allowed to edit the text in the widget. @end table @end deffn @deffn Function gtk-editable-get-editable (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{bool}) @deffnx Method get-editable Retrieves whether @var{editable} is editable. See @code{gtk-editable-set-editable}. @table @var @item editable a @code{} @item ret @samp{@code{#t}} if @var{editable} is editable. @end table @end deffn @c %end of fragment guile-gnome-platform-2.16.2/gtk/doc/gtk/section-gtkfontbutton.xml.texi0000644000175000017500000000064211670374302026354 0ustar00wingowingo00000000000000 @c %start of fragment @node GtkFontButton @chapter GtkFontButton A button to launch a font selection dialog @section Overview The @code{} is a button which displays the currently selected font an allows to open a font selection dialog to change the font. It is suitable widget for selecting a font in a preference dialog. @section Usage @include defuns-gtkfontbutton.xml.texi @c %end of fragment guile-gnome-platform-2.16.2/gtk/doc/gtk/defuns-gtkwindow.xml.texi0000644000175000017500000017256211670374302025314 0ustar00wingowingo00000000000000 @c %start of fragment @deftp Class Derives from @code{}. This class defines the following slots: @table @code @item type The type of the window @item title The title of the window @item startup-id Unique startup identifier for the window used by startup-notification @item role Unique identifier for the window to be used when restoring a session @item allow-shrink If TRUE, the window has no mimimum size. Setting this to TRUE is 99% of the time a bad idea @item allow-grow If TRUE, users can expand the window beyond its minimum size @item resizable If TRUE, users can resize the window @item modal If TRUE, the window is modal (other windows are not usable while this one is up) @item window-position The initial position of the window @item default-width The default width of the window, used when initially showing the window @item default-height The default height of the window, used when initially showing the window @item destroy-with-parent If this window should be destroyed when the parent is destroyed @item icon Icon for this window @item icon-name Name of the themed icon for this window @item screen The screen where this window will be displayed @item type-hint Hint to help the desktop environment understand what kind of window this is and how to treat it. @item skip-taskbar-hint TRUE if the window should not be in the task bar. @item skip-pager-hint TRUE if the window should not be in the pager. @item urgency-hint TRUE if the window should be brought to the user's attention. @item accept-focus TRUE if the window should receive the input focus. @item focus-on-map TRUE if the window should receive the input focus when mapped. @item decorated Whether the window should be decorated by the window manager @item deletable Whether the window frame should have a close button @item gravity The window gravity of the window @item transient-for The transient parent of the dialog @item opacity The opacity of the window, from 0 to 1 @item is-active Whether the toplevel is the current active window @item has-toplevel-focus Whether the input focus is within this GtkWindow @end table @end deftp @defop Signal set-focus (arg0@tie{}@code{}) @end defop @defop Signal frame-event (arg0@tie{}@code{}) @result{}@tie{}@code{} @end defop @defop Signal activate-focus @end defop @defop Signal activate-default @end defop @defop Signal keys-changed @end defop @deffn Function gtk-window-new (type@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{}) Creates a new @code{}, which is a toplevel window that can contain other widgets. Nearly always, the type of the window should be @code{}. If you're implementing something like a popup menu from scratch (which is a bad idea, just use @code{}), you might use @code{}. @code{} is not for dialogs, though in some other toolkits dialogs are called "popups". In GTK+, @code{} means a pop-up menu or pop-up tooltip. On X11, popup windows are not controlled by the window manager. If you simply want an undecorated window (no window borders), use @code{gtk-window-set-decorated}, don't use @code{}. @table @var @item type type of window @item ret a new @code{}. @end table @end deffn @deffn Function gtk-window-set-title (self@tie{}@code{}) (title@tie{}@code{mchars}) @deffnx Method set-title Sets the title of the @code{}. The title of a window will be displayed in its title bar; on the X Window System, the title bar is rendered by the window manager, so exactly how the title appears to users may vary according to a user's exact configuration. The title should help a user distinguish this window from other windows they may have open. A good title might include the application name and current document filename, for example. @table @var @item window a @code{} @item title title of the window @end table @end deffn @deffn Function gtk-window-set-wmclass (self@tie{}@code{}) (wmclass_name@tie{}@code{mchars}) (wmclass_class@tie{}@code{mchars}) @deffnx Method set-wmclass Don't use this function. It sets the X Window System "class" and "name" hints for a window. According to the ICCCM, you should always set these to the same value for all windows in an application, and GTK+ sets them to that value by default, so calling this function is sort of pointless. However, you may want to call @code{gtk-window-set-role} on each window in your application, for the benefit of the session manager. Setting the role allows the window manager to restore window positions when loading a saved session. @table @var @item window a @code{} @item wmclass-name window name hint @item wmclass-class window class hint @end table @end deffn @deffn Function gtk-window-set-resizable (self@tie{}@code{}) (resizable@tie{}@code{bool}) @deffnx Method set-resizable Sets whether the user can resize a window. Windows are user resizable by default. @table @var @item window a @code{} @item resizable @samp{@code{#t}} if the user can resize this window @end table @end deffn @deffn Function gtk-window-get-resizable (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{bool}) @deffnx Method get-resizable Gets the value set by @code{gtk-window-set-resizable}. @table @var @item window a @code{} @item ret @samp{@code{#t}} if the user can resize the window @end table @end deffn @deffn Function gtk-window-add-accel-group (self@tie{}@code{}) (accel_group@tie{}@code{}) @deffnx Method add-accel-group Associate @var{accel-group} with @var{window}, such that calling @code{gtk-accel-groups-activate} on @var{window} will activate accelerators in @var{accel-group}. @table @var @item window window to attach accelerator group to @item accel-group a @code{} @end table @end deffn @deffn Function gtk-window-remove-accel-group (self@tie{}@code{}) (accel_group@tie{}@code{}) @deffnx Method remove-accel-group Reverses the effects of @code{gtk-window-add-accel-group}. @table @var @item window a @code{} @item accel-group a @code{} @end table @end deffn @deffn Function gtk-window-activate-focus (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{bool}) @deffnx Method activate-focus Activates the current focused widget within the window. @table @var @item window a @code{} @item ret @samp{@code{#t}} if a widget got activated. @end table @end deffn @deffn Function gtk-window-activate-default (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{bool}) @deffnx Method activate-default Activates the default widget for the window, unless the current focused widget has been configured to receive the default action (see @code{} in @code{}), in which case the focused widget is activated. @table @var @item window a @code{} @item ret @samp{@code{#t}} if a widget got activated. @end table @end deffn @deffn Function gtk-window-set-modal (self@tie{}@code{}) (modal@tie{}@code{bool}) @deffnx Method set-modal Sets a window modal or non-modal. Modal windows prevent interaction with other windows in the same application. To keep modal dialogs on top of main application windows, use @code{gtk-window-set-transient-for} to make the dialog transient for the parent; most window managers will then disallow lowering the dialog below the parent. @table @var @item window a @code{} @item modal whether the window is modal @end table @end deffn @deffn Function gtk-window-set-default-size (self@tie{}@code{}) (width@tie{}@code{int}) (height@tie{}@code{int}) @deffnx Method set-default-size Sets the default size of a window. If the window's "natural" size (its size request) is larger than the default, the default will be ignored. More generally, if the default size does not obey the geometry hints for the window (@code{gtk-window-set-geometry-hints} can be used to set these explicitly), the default size will be clamped to the nearest permitted size. Unlike @code{gtk-widget-set-size-request}, which sets a size request for a widget and thus would keep users from shrinking the window, this function only sets the initial size, just as if the user had resized the window themselves. Users can still shrink the window again as they normally would. Setting a default size of -1 means to use the "natural" default size (the size request of the window). For more control over a window's initial size and how resizing works, investigate @code{gtk-window-set-geometry-hints}. For some uses, @code{gtk-window-resize} is a more appropriate function. @code{gtk-window-resize} changes the current size of the window, rather than the size to be used on initial display. @code{gtk-window-resize} always affects the window itself, not the geometry widget. The default size of a window only affects the first time a window is shown; if a window is hidden and re-shown, it will remember the size it had prior to hiding, rather than using the default size. Windows can't actually be 0x0 in size, they must be at least 1x1, but passing 0 for @var{width} and @var{height} is OK, resulting in a 1x1 default size. @table @var @item window a @code{} @item width width in pixels, or -1 to unset the default width @item height height in pixels, or -1 to unset the default height @end table @end deffn @deffn Function gtk-window-set-gravity (self@tie{}@code{}) (gravity@tie{}@code{}) @deffnx Method set-gravity Window gravity defines the meaning of coordinates passed to @code{gtk-window-move}. See @code{gtk-window-move} and @code{} for more details. The default window gravity is @code{} which will typically "do what you mean." @table @var @item window a @code{} @item gravity window gravity @end table @end deffn @deffn Function gtk-window-get-gravity (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{}) @deffnx Method get-gravity Gets the value set by @code{gtk-window-set-gravity}. @table @var @item window a @code{} @item ret window gravity @end table @end deffn @deffn Function gtk-window-set-position (self@tie{}@code{}) (position@tie{}@code{}) @deffnx Method set-position Sets a position constraint for this window. If the old or new constraint is @samp{GTK_WIN_POS_CENTER_ALWAYS}, this will also cause the window to be repositioned to satisfy the new constraint. @table @var @item window a @code{}. @item position a position constraint. @end table @end deffn @deffn Function gtk-window-set-transient-for (self@tie{}@code{}) (parent@tie{}@code{}) @deffnx Method set-transient-for Dialog windows should be set transient for the main application window they were spawned from. This allows window managers to e.g. keep the dialog on top of the main window, or center the dialog over the main window. @code{gtk-dialog-new-with-buttons} and other convenience functions in GTK+ will sometimes call @code{gtk-window-set-transient-for} on your behalf. On Windows, this function will and put the child window on top of the parent, much as the window manager would have done on X. @table @var @item window a @code{} @item parent parent window @end table @end deffn @deffn Function gtk-window-set-destroy-with-parent (self@tie{}@code{}) (setting@tie{}@code{bool}) @deffnx Method set-destroy-with-parent If @var{setting} is @samp{@code{#t}}, then destroying the transient parent of @var{window} will also destroy @var{window} itself. This is useful for dialogs that shouldn't persist beyond the lifetime of the main window they're associated with, for example. @table @var @item window a @code{} @item setting whether to destroy @var{window} with its transient parent @end table @end deffn @deffn Function gtk-window-set-screen (self@tie{}@code{}) (screen@tie{}@code{}) @deffnx Method set-screen Sets the @code{} where the @var{window} is displayed; if the window is already mapped, it will be unmapped, and then remapped on the new screen. @table @var @item window a @code{}. @item screen a @code{}. @end table Since 2.2 @end deffn @deffn Function gtk-window-get-screen (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{}) @deffnx Method get-screen Returns the @code{} associated with @var{window}. @table @var @item window a @code{}. @item ret a @code{}. @end table Since 2.2 @end deffn @deffn Function gtk-window-is-active (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{bool}) @deffnx Method is-active Returns whether the window is part of the current active toplevel. (That is, the toplevel window receiving keystrokes.) The return value is @samp{@code{#t}} if the window is active toplevel itself, but also if it is, say, a @code{} embedded in the active toplevel. You might use this function if you wanted to draw a widget differently in an active window from a widget in an inactive window. See @code{gtk-window-has-toplevel-focus} @table @var @item window a @code{} @item ret @samp{@code{#t}} if the window part of the current active window. @end table Since 2.4 @end deffn @deffn Function gtk-window-has-toplevel-focus (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{bool}) @deffnx Method has-toplevel-focus Returns whether the input focus is within this GtkWindow. For real toplevel windows, this is identical to @code{gtk-window-is-active}, but for embedded windows, like @code{}, the results will differ. @table @var @item window a @code{} @item ret @samp{@code{#t}} if the input focus is within this GtkWindow @end table Since 2.4 @end deffn @deffn Function gtk-window-list-toplevels @result{}@tie{} (ret@tie{}@code{glist-of}) Returns a list of all existing toplevel windows. The widgets in the list are not individually referenced. If you want to iterate through the list and perform actions involving callbacks that might destroy the widgets, you @emph{must} call @samp{g_list_foreach (result, (GFunc)g_object_ref, NULL)} first, and then unref all the widgets afterwards. @table @var @item ret list of toplevel widgets @end table @end deffn @deffn Function gtk-window-add-mnemonic (self@tie{}@code{}) (keyval@tie{}@code{unsigned-int}) (target@tie{}@code{}) @deffnx Method add-mnemonic Adds a mnemonic to this window. @table @var @item window a @code{} @item keyval the mnemonic @item target the widget that gets activated by the mnemonic @end table @end deffn @deffn Function gtk-window-remove-mnemonic (self@tie{}@code{}) (keyval@tie{}@code{unsigned-int}) (target@tie{}@code{}) @deffnx Method remove-mnemonic Removes a mnemonic from this window. @table @var @item window a @code{} @item keyval the mnemonic @item target the widget that gets activated by the mnemonic @end table @end deffn @deffn Function gtk-window-mnemonic-activate (self@tie{}@code{}) (keyval@tie{}@code{unsigned-int}) (modifier@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{bool}) @deffnx Method mnemonic-activate Activates the targets associated with the mnemonic. @table @var @item window a @code{} @item keyval the mnemonic @item modifier the modifiers @item ret @samp{@code{#t}} if the activation is done. @end table @end deffn @deffn Function gtk-window-activate-key (self@tie{}@code{}) (event@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{bool}) @deffnx Method activate-key Activates mnemonics and accelerators for this @code{}. This is normally called by the default ::key_press_event handler for toplevel windows, however in some cases it may be useful to call this directly when overriding the standard key handling for a toplevel window. @table @var @item window a @code{} @item event a @code{} @item ret @samp{@code{#t}} if a mnemonic or accelerator was found and activated. @end table @end deffn @deffn Function gtk-window-propagate-key-event (self@tie{}@code{}) (event@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{bool}) @deffnx Method propagate-key-event Propagate a key press or release event to the focus widget and up the focus container chain until a widget handles @var{event}. This is normally called by the default ::key_press_event and ::key_release_event handlers for toplevel windows, however in some cases it may be useful to call this directly when overriding the standard key handling for a toplevel window. @table @var @item window a @code{} @item event a @code{} @item ret @samp{@code{#t}} if a widget in the focus chain handled the event. @end table @end deffn @deffn Function gtk-window-get-focus (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{}) @deffnx Method get-focus Retrieves the current focused widget within the window. Note that this is the widget that would have the focus if the toplevel window focused; if the toplevel window is not focused then @samp{GTK_WIDGET_HAS_FOCUS (widget)} will not be @samp{@code{#t}} for the widget. @table @var @item window a @code{} @item ret the currently focused widget, or @samp{@code{#f}} if there is none. @end table @end deffn @deffn Function gtk-window-set-focus (self@tie{}@code{}) (focus@tie{}@code{}) @deffnx Method set-focus If @var{focus} is not the current focus widget, and is focusable, sets it as the focus widget for the window. If @var{focus} is @samp{@code{#f}}, unsets the focus widget for this window. To set the focus to a particular widget in the toplevel, it is usually more convenient to use @code{gtk-widget-grab-focus} instead of this function. @table @var @item window a @code{} @item focus widget to be the new focus widget, or @samp{@code{#f}} to unset any focus widget for the toplevel window. @end table @end deffn @deffn Function gtk-window-set-default (self@tie{}@code{}) (default_widget@tie{}@code{}) @deffnx Method set-default The default widget is the widget that's activated when the user presses Enter in a dialog (for example). This function sets or unsets the default widget for a @code{} about. When setting (rather than unsetting) the default widget it's generally easier to call @code{gtk-widget-grab-focus} on the widget. Before making a widget the default widget, you must set the @code{} flag on the widget you'd like to make the default using @code{gtk-widget-set-flags}. @table @var @item window a @code{} @item default-widget widget to be the default, or @samp{@code{#f}} to unset the default widget for the toplevel. @end table @end deffn @deffn Function gtk-window-present (self@tie{}@code{}) @deffnx Method present Presents a window to the user. This may mean raising the window in the stacking order, deiconifying it, moving it to the current desktop, and/or giving it the keyboard focus, possibly dependent on the user's platform, window manager, and preferences. If @var{window} is hidden, this function calls @code{gtk-widget-show} as well. This function should be used when the user tries to open a window that's already open. Say for example the preferences dialog is currently open, and the user chooses Preferences from the menu a second time; use @code{gtk-window-present} to move the already-open dialog where the user can see it. If you are calling this function in response to a user interaction, it is preferable to use @code{gtk-window-present-with-time}. @table @var @item window a @code{} @end table @end deffn @deffn Function gtk-window-present-with-time (self@tie{}@code{}) (timestamp@tie{}@code{unsigned-int32}) @deffnx Method present-with-time Presents a window to the user in response to a user interaction. If you need to present a window without a timestamp, use @code{gtk-window-present}. See @code{gtk-window-present} for details. @table @var @item window a @code{} @item timestamp the timestamp of the user interaction (typically a button or key press event) which triggered this call @end table Since 2.8 @end deffn @deffn Function gtk-window-iconify (self@tie{}@code{}) @deffnx Method iconify Asks to iconify (i.e. minimize) the specified @var{window}. Note that you shouldn't assume the window is definitely iconified afterward, because other entities (e.g. the user or window manager) could deiconify it again, or there may not be a window manager in which case iconification isn't possible, etc. But normally the window will end up iconified. Just don't write code that crashes if not. It's permitted to call this function before showing a window, in which case the window will be iconified before it ever appears onscreen. You can track iconification via the "window_state_event" signal on @code{}. @table @var @item window a @code{} @end table @end deffn @deffn Function gtk-window-deiconify (self@tie{}@code{}) @deffnx Method deiconify Asks to deiconify (i.e. unminimize) the specified @var{window}. Note that you shouldn't assume the window is definitely deiconified afterward, because other entities (e.g. the user or window manager) could iconify it again before your code which assumes deiconification gets to run. You can track iconification via the "window_state_event" signal on @code{}. @table @var @item window a @code{} @end table @end deffn @deffn Function gtk-window-stick (self@tie{}@code{}) @deffnx Method stick Asks to stick @var{window}, which means that it will appear on all user desktops. Note that you shouldn't assume the window is definitely stuck afterward, because other entities (e.g. the user or window manager) could unstick it again, and some window managers do not support sticking windows. But normally the window will end up stuck. Just don't write code that crashes if not. It's permitted to call this function before showing a window. You can track stickiness via the "window_state_event" signal on @code{}. @table @var @item window a @code{} @end table @end deffn @deffn Function gtk-window-unstick (self@tie{}@code{}) @deffnx Method unstick Asks to unstick @var{window}, which means that it will appear on only one of the user's desktops. Note that you shouldn't assume the window is definitely unstuck afterward, because other entities (e.g. the user or window manager) could stick it again. But normally the window will end up stuck. Just don't write code that crashes if not. You can track stickiness via the "window_state_event" signal on @code{}. @table @var @item window a @code{} @end table @end deffn @deffn Function gtk-window-maximize (self@tie{}@code{}) @deffnx Method maximize Asks to maximize @var{window}, so that it becomes full-screen. Note that you shouldn't assume the window is definitely maximized afterward, because other entities (e.g. the user or window manager) could unmaximize it again, and not all window managers support maximization. But normally the window will end up maximized. Just don't write code that crashes if not. It's permitted to call this function before showing a window, in which case the window will be maximized when it appears onscreen initially. You can track maximization via the "window_state_event" signal on @code{}. @table @var @item window a @code{} @end table @end deffn @deffn Function gtk-window-unmaximize (self@tie{}@code{}) @deffnx Method unmaximize Asks to unmaximize @var{window}. Note that you shouldn't assume the window is definitely unmaximized afterward, because other entities (e.g. the user or window manager) could maximize it again, and not all window managers honor requests to unmaximize. But normally the window will end up unmaximized. Just don't write code that crashes if not. You can track maximization via the "window_state_event" signal on @code{}. @table @var @item window a @code{} @end table @end deffn @deffn Function gtk-window-fullscreen (self@tie{}@code{}) @deffnx Method fullscreen Asks to place @var{window} in the fullscreen state. Note that you shouldn't assume the window is definitely full screen afterward, because other entities (e.g. the user or window manager) could unfullscreen it again, and not all window managers honor requests to fullscreen windows. But normally the window will end up fullscreen. Just don't write code that crashes if not. You can track the fullscreen state via the "window_state_event" signal on @code{}. @table @var @item window a @code{} @end table Since 2.2 @end deffn @deffn Function gtk-window-unfullscreen (self@tie{}@code{}) @deffnx Method unfullscreen Asks to toggle off the fullscreen state for @var{window}. Note that you shouldn't assume the window is definitely not full screen afterward, because other entities (e.g. the user or window manager) could fullscreen it again, and not all window managers honor requests to unfullscreen windows. But normally the window will end up restored to its normal state. Just don't write code that crashes if not. You can track the fullscreen state via the "window_state_event" signal on @code{}. @table @var @item window a @code{} @end table Since 2.2 @end deffn @deffn Function gtk-window-set-keep-above (self@tie{}@code{}) (setting@tie{}@code{bool}) @deffnx Method set-keep-above Asks to keep @var{window} above, so that it stays on top. Note that you shouldn't assume the window is definitely above afterward, because other entities (e.g. the user or window manager) could not keep it above, and not all window managers support keeping windows above. But normally the window will end kept above. Just don't write code that crashes if not. It's permitted to call this function before showing a window, in which case the window will be kept above when it appears onscreen initially. You can track the above state via the "window_state_event" signal on @code{}. Note that, according to the @uref{http://www.freedesktop.org/Standards/wm-spec,Extended Window Manager Hints} specification, the above state is mainly meant for user preferences and should not be used by applications e.g. for drawing attention to their dialogs. @table @var @item window a @code{} @item setting whether to keep @var{window} above other windows @end table Since 2.4 @end deffn @deffn Function gtk-window-set-keep-below (self@tie{}@code{}) (setting@tie{}@code{bool}) @deffnx Method set-keep-below Asks to keep @var{window} below, so that it stays in bottom. Note that you shouldn't assume the window is definitely below afterward, because other entities (e.g. the user or window manager) could not keep it below, and not all window managers support putting windows below. But normally the window will be kept below. Just don't write code that crashes if not. It's permitted to call this function before showing a window, in which case the window will be kept below when it appears onscreen initially. You can track the below state via the "window_state_event" signal on @code{}. Note that, according to the @uref{http://www.freedesktop.org/Standards/wm-spec,Extended Window Manager Hints} specification, the above state is mainly meant for user preferences and should not be used by applications e.g. for drawing attention to their dialogs. @table @var @item window a @code{} @item setting whether to keep @var{window} below other windows @end table Since 2.4 @end deffn @deffn Function gtk-window-begin-resize-drag (self@tie{}@code{}) (edge@tie{}@code{}) (button@tie{}@code{int}) (root_x@tie{}@code{int}) (root_y@tie{}@code{int}) (timestamp@tie{}@code{unsigned-int32}) @deffnx Method begin-resize-drag Starts resizing a window. This function is used if an application has window resizing controls. When GDK can support it, the resize will be done using the standard mechanism for the window manager or windowing system. Otherwise, GDK will try to emulate window resizing, potentially not all that well, depending on the windowing system. @table @var @item window a @code{} @item edge position of the resize control @item button mouse button that initiated the drag @item root-x X position where the user clicked to initiate the drag, in root window coordinates @item root-y Y position where the user clicked to initiate the drag @item timestamp timestamp from the click event that initiated the drag @end table @end deffn @deffn Function gtk-window-begin-move-drag (self@tie{}@code{}) (button@tie{}@code{int}) (root_x@tie{}@code{int}) (root_y@tie{}@code{int}) (timestamp@tie{}@code{unsigned-int32}) @deffnx Method begin-move-drag Starts moving a window. This function is used if an application has window movement grips. When GDK can support it, the window movement will be done using the standard mechanism for the window manager or windowing system. Otherwise, GDK will try to emulate window movement, potentially not all that well, depending on the windowing system. @table @var @item window a @code{} @item button mouse button that initiated the drag @item root-x X position where the user clicked to initiate the drag, in root window coordinates @item root-y Y position where the user clicked to initiate the drag @item timestamp timestamp from the click event that initiated the drag @end table @end deffn @deffn Function gtk-window-set-decorated (self@tie{}@code{}) (setting@tie{}@code{bool}) @deffnx Method set-decorated By default, windows are decorated with a title bar, resize controls, etc. Some window managers allow GTK+ to disable these decorations, creating a borderless window. If you set the decorated property to @samp{@code{#f}} using this function, GTK+ will do its best to convince the window manager not to decorate the window. Depending on the system, this function may not have any effect when called on a window that is already visible, so you should call it before calling @code{gtk-window-show}. On Windows, this function always works, since there's no window manager policy involved. @table @var @item window a @code{} @item setting @samp{@code{#t}} to decorate the window @end table @end deffn @deffn Function gtk-window-set-deletable (self@tie{}@code{}) (setting@tie{}@code{bool}) @deffnx Method set-deletable By default, windows have a close button in the window frame. Some window managers allow GTK+ to disable this button. If you set the deletable property to @samp{@code{#f}} using this function, GTK+ will do its best to convince the window manager not to show a close button. Depending on the system, this function may not have any effect when called on a window that is already visible, so you should call it before calling @code{gtk-window-show}. On Windows, this function always works, since there's no window manager policy involved. @table @var @item window a @code{} @item setting @samp{@code{#t}} to decorate the window as deletable @end table Since 2.10 @end deffn @deffn Function gtk-window-set-frame-dimensions (self@tie{}@code{}) (left@tie{}@code{int}) (top@tie{}@code{int}) (right@tie{}@code{int}) (bottom@tie{}@code{int}) @deffnx Method set-frame-dimensions (Note: this is a special-purpose function intended for the framebuffer port; see @code{gtk-window-set-has-frame}. It will have no effect on the window border drawn by the window manager, which is the normal case when using the X Window system.) For windows with frames (see @code{gtk-window-set-has-frame}) this function can be used to change the size of the frame border. @table @var @item window a @code{} that has a frame @item left The width of the left border @item top The height of the top border @item right The width of the right border @item bottom The height of the bottom border @end table @end deffn @deffn Function gtk-window-set-has-frame (self@tie{}@code{}) (setting@tie{}@code{bool}) @deffnx Method set-has-frame (Note: this is a special-purpose function for the framebuffer port, that causes GTK+ to draw its own window border. For most applications, you want @code{gtk-window-set-decorated} instead, which tells the window manager whether to draw the window border.) If this function is called on a window with setting of @samp{@code{#t}}, before it is realized or showed, it will have a "frame" window around @var{window->window}, accessible in @var{window->frame}. Using the signal frame_event you can receive all events targeted at the frame. This function is used by the linux-fb port to implement managed windows, but it could conceivably be used by X-programs that want to do their own window decorations. @table @var @item window a @code{} @item setting a boolean @end table @end deffn @deffn Function gtk-window-set-mnemonic-modifier (self@tie{}@code{}) (modifier@tie{}@code{}) @deffnx Method set-mnemonic-modifier Sets the mnemonic modifier for this window. @table @var @item window a @code{} @item modifier the modifier mask used to activate mnemonics on this window. @end table @end deffn @deffn Function gtk-window-set-role (self@tie{}@code{}) (role@tie{}@code{mchars}) @deffnx Method set-role This function is only useful on X11, not with other GTK+ targets. In combination with the window title, the window role allows a window manager to identify "the same" window when an application is restarted. So for example you might set the "toolbox" role on your app's toolbox window, so that when the user restarts their session, the window manager can put the toolbox back in the same place. If a window already has a unique title, you don't need to set the role, since the WM can use the title to identify the window when restoring the session. @table @var @item window a @code{} @item role unique identifier for the window to be used when restoring a session @end table @end deffn @deffn Function gtk-window-set-type-hint (self@tie{}@code{}) (hint@tie{}@code{}) @deffnx Method set-type-hint By setting the type hint for the window, you allow the window manager to decorate and handle the window in a way which is suitable to the function of the window in your application. This function should be called before the window becomes visible. @code{gtk-dialog-new-with-buttons} and other convenience functions in GTK+ will sometimes call @code{gtk-window-set-type-hint} on your behalf. @table @var @item window a @code{} @item hint the window type @end table @end deffn @deffn Function gtk-window-set-skip-taskbar-hint (self@tie{}@code{}) (setting@tie{}@code{bool}) @deffnx Method set-skip-taskbar-hint Windows may set a hint asking the desktop environment not to display the window in the task bar. This function sets this hint. @table @var @item window a @code{} @item setting @samp{@code{#t}} to keep this window from appearing in the task bar @end table Since 2.2 @end deffn @deffn Function gtk-window-set-skip-pager-hint (self@tie{}@code{}) (setting@tie{}@code{bool}) @deffnx Method set-skip-pager-hint Windows may set a hint asking the desktop environment not to display the window in the pager. This function sets this hint. (A "pager" is any desktop navigation tool such as a workspace switcher that displays a thumbnail representation of the windows on the screen.) @table @var @item window a @code{} @item setting @samp{@code{#t}} to keep this window from appearing in the pager @end table Since 2.2 @end deffn @deffn Function gtk-window-set-urgency-hint (self@tie{}@code{}) (setting@tie{}@code{bool}) @deffnx Method set-urgency-hint Windows may set a hint asking the desktop environment to draw the users attention to the window. This function sets this hint. @table @var @item window a @code{} @item setting @samp{@code{#t}} to mark this window as urgent @end table Since 2.8 @end deffn @deffn Function gtk-window-set-accept-focus (self@tie{}@code{}) (setting@tie{}@code{bool}) @deffnx Method set-accept-focus Windows may set a hint asking the desktop environment not to receive the input focus. This function sets this hint. @table @var @item window a @code{} @item setting @samp{@code{#t}} to let this window receive input focus @end table Since 2.4 @end deffn @deffn Function gtk-window-set-focus-on-map (self@tie{}@code{}) (setting@tie{}@code{bool}) @deffnx Method set-focus-on-map Windows may set a hint asking the desktop environment not to receive the input focus when the window is mapped. This function sets this hint. @table @var @item window a @code{} @item setting @samp{@code{#t}} to let this window receive input focus on map @end table Since 2.6 @end deffn @deffn Function gtk-window-get-decorated (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{bool}) @deffnx Method get-decorated Returns whether the window has been set to have decorations such as a title bar via @code{gtk-window-set-decorated}. @table @var @item window a @code{} @item ret @samp{@code{#t}} if the window has been set to have decorations @end table @end deffn @deffn Function gtk-window-get-deletable (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{bool}) @deffnx Method get-deletable Returns whether the window has been set to have a close button via @code{gtk-window-set-deletable}. @table @var @item window a @code{} @item ret @samp{@code{#t}} if the window has been set to have a close button @end table Since 2.10 @end deffn @deffn Function gtk-window-get-default-icon-list @result{}@tie{} (ret@tie{}@code{glist-of}) Gets the value set by @code{gtk-window-set-default-icon-list}. The list is a copy and should be freed with @code{g-list-free}, but the pixbufs in the list have not had their reference count incremented. @table @var @item ret copy of default icon list @end table @end deffn @deffn Function gtk-window-get-default-size (self@tie{}@code{}) @result{}@tie{} (width@tie{}@code{int}) (height@tie{}@code{int}) @deffnx Method get-default-size Gets the default size of the window. A value of -1 for the width or height indicates that a default size has not been explicitly set for that dimension, so the "natural" size of the window will be used. @table @var @item window a @code{} @item width location to store the default width, or @samp{@code{#f}} @item height location to store the default height, or @samp{@code{#f}} @end table @end deffn @deffn Function gtk-window-get-destroy-with-parent (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{bool}) @deffnx Method get-destroy-with-parent Returns whether the window will be destroyed with its transient parent. See @code{gtk-window-set-destroy-with-parent}. @table @var @item window a @code{} @item ret @samp{@code{#t}} if the window will be destroyed with its transient parent. @end table @end deffn @deffn Function gtk-window-get-frame-dimensions (self@tie{}@code{}) @result{}@tie{} (left@tie{}@code{int}) (top@tie{}@code{int}) (right@tie{}@code{int}) (bottom@tie{}@code{int}) @deffnx Method get-frame-dimensions (Note: this is a special-purpose function intended for the framebuffer port; see @code{gtk-window-set-has-frame}. It will not return the size of the window border drawn by the window manager, which is the normal case when using a windowing system. See @code{gdk-window-get-frame-extents} to get the standard window border extents.) Retrieves the dimensions of the frame window for this toplevel. See @code{gtk-window-set-has-frame}, @code{gtk-window-set-frame-dimensions}. @table @var @item window a @code{} @item left location to store the width of the frame at the left, or @samp{@code{#f}} @item top location to store the height of the frame at the top, or @samp{@code{#f}} @item right location to store the width of the frame at the returns, or @samp{@code{#f}} @item bottom location to store the height of the frame at the bottom, or @samp{@code{#f}} @end table @end deffn @deffn Function gtk-window-get-has-frame (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{bool}) @deffnx Method get-has-frame Accessor for whether the window has a frame window exterior to @var{window->window}. Gets the value set by @code{gtk-window-set-has-frame}. @table @var @item window a @code{} @item ret @samp{@code{#t}} if a frame has been added to the window via @code{gtk-window-set-has-frame}. @end table @end deffn @deffn Function gtk-window-get-icon (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{}) @deffnx Method get-icon Gets the value set by @code{gtk-window-set-icon} (or if you've called @code{gtk-window-set-icon-list}, gets the first icon in the icon list). @table @var @item window a @code{} @item ret icon for window @end table @end deffn @deffn Function gtk-window-get-icon-list (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{glist-of}) @deffnx Method get-icon-list Retrieves the list of icons set by @code{gtk-window-set-icon-list}. The list is copied, but the reference count on each member won't be incremented. @table @var @item window a @code{} @item ret copy of window's icon list @end table @end deffn @deffn Function gtk-window-get-icon-name (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{mchars}) @deffnx Method get-icon-name Returns the name of the themed icon for the window, see @code{gtk-window-set-icon-name}. @table @var @item window a @code{} @item ret the icon name or @samp{@code{#f}} if the window has no themed icon @end table Since 2.6 @end deffn @deffn Function gtk-window-get-mnemonic-modifier (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{}) @deffnx Method get-mnemonic-modifier Returns the mnemonic modifier for this window. See @code{gtk-window-set-mnemonic-modifier}. @table @var @item window a @code{} @item ret the modifier mask used to activate mnemonics on this window. @end table @end deffn @deffn Function gtk-window-get-modal (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{bool}) @deffnx Method get-modal Returns whether the window is modal. See @code{gtk-window-set-modal}. @table @var @item window a @code{} @item ret @samp{@code{#t}} if the window is set to be modal and establishes a grab when shown @end table @end deffn @deffn Function gtk-window-get-position (self@tie{}@code{}) @result{}@tie{} (root_x@tie{}@code{int}) (root_y@tie{}@code{int}) @deffnx Method get-position This function returns the position you need to pass to @code{gtk-window-move} to keep @var{window} in its current position. This means that the meaning of the returned value varies with window gravity. See @code{gtk-window-move} for more details. If you haven't changed the window gravity, its gravity will be @code{}. This means that @code{gtk-window-get-position} gets the position of the top-left corner of the window manager frame for the window. @code{gtk-window-move} sets the position of this same top-left corner. @code{gtk-window-get-position} is not 100% reliable because the X Window System does not specify a way to obtain the geometry of the decorations placed on a window by the window manager. Thus GTK+ is using a "best guess" that works with most window managers. Moreover, nearly all window managers are historically broken with respect to their handling of window gravity. So moving a window to its current position as returned by @code{gtk-window-get-position} tends to result in moving the window slightly. Window managers are slowly getting better over time. If a window has gravity @code{} the window manager frame is not relevant, and thus @code{gtk-window-get-position} will always produce accurate results. However you can't use static gravity to do things like place a window in a corner of the screen, because static gravity ignores the window manager decorations. If you are saving and restoring your application's window positions, you should know that it's impossible for applications to do this without getting it somewhat wrong because applications do not have sufficient knowledge of window manager state. The Correct Mechanism is to support the session management protocol (see the "GnomeClient" object in the GNOME libraries for example) and allow the window manager to save your window sizes and positions. @table @var @item window a @code{} @item root-x return location for X coordinate of gravity-determined reference p\oint @item root-y return location for Y coordinate of gravity-determined reference p\oint @end table @end deffn @deffn Function gtk-window-get-role (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{mchars}) @deffnx Method get-role Returns the role of the window. See @code{gtk-window-set-role} for further explanation. @table @var @item window a @code{} @item ret the role of the window if set, or @samp{@code{#f}}. The returned is owned by the widget and must not be modified or freed. @end table @end deffn @deffn Function gtk-window-get-size (self@tie{}@code{}) @result{}@tie{} (width@tie{}@code{int}) (height@tie{}@code{int}) @deffnx Method get-size Obtains the current size of @var{window}. If @var{window} is not onscreen, it returns the size GTK+ will suggest to the window manager for the initial window size (but this is not reliably the same as the size the window manager will actually select). The size obtained by @code{gtk-window-get-size} is the last size received in a @code{}, that is, GTK+ uses its locally-stored size, rather than querying the X server for the size. As a result, if you call @code{gtk-window-resize} then immediately call @code{gtk-window-get-size}, the size won't have taken effect yet. After the window manager processes the resize request, GTK+ receives notification that the size has changed via a configure event, and the size of the window gets updated. Note 1: Nearly any use of this function creates a race condition, because the size of the window may change between the time that you get the size and the time that you perform some action assuming that size is the current size. To avoid race conditions, connect to "configure_event" on the window and adjust your size-dependent state to match the size delivered in the @code{}. Note 2: The returned size does @emph{not} include the size of the window manager decorations (aka the window frame or border). Those are not drawn by GTK+ and GTK+ has no reliable method of determining their size. Note 3: If you are getting a window size in order to position the window onscreen, there may be a better way. The preferred way is to simply set the window's semantic type with @code{gtk-window-set-type-hint}, which allows the window manager to e.g. center dialogs. Also, if you set the transient parent of dialogs with @code{gtk-window-set-transient-for} window managers will often center the dialog over its parent window. It's much preferred to let the window manager handle these things rather than doing it yourself, because all apps will behave consistently and according to user prefs if the window manager handles it. Also, the window manager can take the size of the window decorations/border into account, while your application cannot. In any case, if you insist on application-specified window positioning, there's @emph{still} a better way than doing it yourself - @code{gtk-window-set-position} will frequently handle the details for you. @table @var @item window a @code{} @item width return location for width, or @samp{@code{#f}} @item height return location for height, or @samp{@code{#f}} @end table @end deffn @deffn Function gtk-window-get-title (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{mchars}) @deffnx Method get-title Retrieves the title of the window. See @code{gtk-window-set-title}. @table @var @item window a @code{} @item ret the title of the window, or @samp{@code{#f}} if none has been set explicitely. The returned string is owned by the widget and must not be modified or freed. @end table @end deffn @deffn Function gtk-window-get-transient-for (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{}) @deffnx Method get-transient-for Fetches the transient parent for this window. See @code{gtk-window-set-transient-for}. @table @var @item window a @code{} @item ret the transient parent for this window, or @samp{@code{#f}} if no transient parent has been set. @end table @end deffn @deffn Function gtk-window-get-type-hint (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{}) @deffnx Method get-type-hint Gets the type hint for this window. See @code{gtk-window-set-type-hint}. @table @var @item window a @code{} @item ret the type hint for @var{window}. @end table @end deffn @deffn Function gtk-window-get-skip-taskbar-hint (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{bool}) @deffnx Method get-skip-taskbar-hint Gets the value set by @code{gtk-window-set-skip-taskbar-hint} @table @var @item window a @code{} @item ret @samp{@code{#t}} if window shouldn't be in taskbar @end table Since 2.2 @end deffn @deffn Function gtk-window-get-skip-pager-hint (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{bool}) @deffnx Method get-skip-pager-hint Gets the value set by @code{gtk-window-set-skip-pager-hint}. @table @var @item window a @code{} @item ret @samp{@code{#t}} if window shouldn't be in pager @end table Since 2.2 @end deffn @deffn Function gtk-window-get-urgency-hint (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{bool}) @deffnx Method get-urgency-hint Gets the value set by @code{gtk-window-set-urgency-hint} @table @var @item window a @code{} @item ret @samp{@code{#t}} if window is urgent @end table Since 2.8 @end deffn @deffn Function gtk-window-get-accept-focus (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{bool}) @deffnx Method get-accept-focus Gets the value set by @code{gtk-window-set-accept-focus}. @table @var @item window a @code{} @item ret @samp{@code{#t}} if window should receive the input focus @end table Since 2.4 @end deffn @deffn Function gtk-window-get-focus-on-map (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{bool}) @deffnx Method get-focus-on-map Gets the value set by @code{gtk-window-set-focus-on-map}. @table @var @item window a @code{} @item ret @samp{@code{#t}} if window should receive the input focus when mapped. @end table Since 2.6 @end deffn @deffn Function gtk-window-get-group (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{}) @deffnx Method get-group Returns the group for @var{window} or the default group, if @var{window} is @samp{@code{#f}} or if @var{window} does not have an explicit window group. @table @var @item window a @code{}, or @samp{@code{#f}} @item ret the @code{} for a window or the default group @end table Since 2.10 @end deffn @deffn Function gtk-window-move (self@tie{}@code{}) (x@tie{}@code{int}) (y@tie{}@code{int}) @deffnx Method move Asks the window manager to move @var{window} to the given position. Window managers are free to ignore this; most window managers ignore requests for initial window positions (instead using a user-defined placement algorithm) and honor requests after the window has already been shown. Note: the position is the position of the gravity-determined reference point for the window. The gravity determines two things: first, the location of the reference point in root window coordinates; and second, which point on the window is positioned at the reference point. By default the gravity is @code{}, so the reference point is simply the @var{x}, @var{y} supplied to @code{gtk-window-move}. The top-left corner of the window decorations (aka window frame or border) will be placed at @var{x}, @var{y}. Therefore, to position a window at the top left of the screen, you want to use the default gravity (which is @code{}) and move the window to 0,0. To position a window at the bottom right corner of the screen, you would set @code{}, which means that the reference point is at @var{x} + the window width and @var{y} + the window height, and the bottom-right corner of the window border will be placed at that reference point. So, to place a window in the bottom right corner you would first set gravity to south east, then write: @samp{gtk_window_move (window, @code{gdk-screen-width} - window_width, @code{gdk-screen-height} - window_height)} (note that this example does not take multi-head scenarios into account). The Extended Window Manager Hints specification at @uref{http://www.freedesktop.org/Standards/wm-spec, http://www.freedesktop.org/Standards/wm-spec} has a nice table of gravities in the "implementation notes" section. The @code{gtk-window-get-position} documentation may also be relevant. @table @var @item window a @code{} @item x X coordinate to move window to @item y Y coordinate to move window to @end table @end deffn @deffn Function gtk-window-parse-geometry (self@tie{}@code{}) (geometry@tie{}@code{mchars}) @result{}@tie{} (ret@tie{}@code{bool}) @deffnx Method parse-geometry Parses a standard X Window System geometry string - see the manual page for X (type 'man X') for details on this. @code{gtk-window-parse-geometry} does work on all GTK+ ports including Win32 but is primarily intended for an X environment. If either a size or a position can be extracted from the geometry string, @code{gtk-window-parse-geometry} returns @samp{@code{#t}} and calls @code{gtk-window-set-default-size} and/or @code{gtk-window-move} to resize/move the window. If @code{gtk-window-parse-geometry} returns @samp{@code{#t}}, it will also set the @code{} and/or @code{} hints indicating to the window manager that the size/position of the window was user-specified. This causes most window managers to honor the geometry. Note that for @code{gtk-window-parse-geometry} to work as expected, it has to be called when the window has its "final" size, i.e. after calling @code{gtk-widget-show-all} on the contents and @code{gtk-window-set-geometry-hints} on the window. @example #include static void fill_with_content (GtkWidget *vbox) @{ /* fill with content... */ @} int main (int argc, char *argv[]) @{ GtkWidget *window, *vbox; GdkGeometry size_hints = @{ 100, 50, 0, 0, 100, 50, 10, 10, 0.0, 0.0, GDK_GRAVITY_NORTH_WEST @}; gtk_init (&argc, &argv); window = gtk_window_new (GTK_WINDOW_TOPLEVEL); vbox = gtk_vbox_new (FALSE, 0); gtk_container_add (GTK_CONTAINER (window), vbox); fill_with_content (vbox); gtk_widget_show_all (vbox); gtk_window_set_geometry_hints (GTK_WINDOW (window), window, &size_hints, GDK_HINT_MIN_SIZE | GDK_HINT_BASE_SIZE | GDK_HINT_RESIZE_INC); if (argc > 1) @{ if (!gtk_window_parse_geometry (GTK_WINDOW (window), argv[1])) fprintf (stderr, "Failed to parse '%s'\n", argv[1]); @} gtk_widget_show_all (window); gtk_main (); return 0; @} @end example @table @var @item window a @code{} @item geometry geometry string @item ret @samp{@code{#t}} if string was parsed successfully @end table @end deffn @deffn Function gtk-window-reshow-with-initial-size (self@tie{}@code{}) @deffnx Method reshow-with-initial-size Hides @var{window}, then reshows it, resetting the default size and position of the window. Used by GUI builders only. @table @var @item window a @code{} @end table @end deffn @deffn Function gtk-window-resize (self@tie{}@code{}) (width@tie{}@code{int}) (height@tie{}@code{int}) @deffnx Method resize Resizes the window as if the user had done so, obeying geometry constraints. The default geometry constraint is that windows may not be smaller than their size request; to override this constraint, call @code{gtk-widget-set-size-request} to set the window's request to a smaller value. If @code{gtk-window-resize} is called before showing a window for the first time, it overrides any default size set with @code{gtk-window-set-default-size}. Windows may not be resized smaller than 1 by 1 pixels. @table @var @item window a @code{} @item width width in pixels to resize the window to @item height height in pixels to resize the window to @end table @end deffn @deffn Function gtk-window-set-default-icon-list (list@tie{}@code{glist-of}) Sets an icon list to be used as fallback for windows that haven't had @code{gtk-window-set-icon-list} called on them to set up a window-specific icon list. This function allows you to set up the icon for all windows in your app at once. See @code{gtk-window-set-icon-list} for more details. @table @var @item list a list of @code{} @end table @end deffn @deffn Function gtk-window-set-default-icon (icon@tie{}@code{}) Sets an icon to be used as fallback for windows that haven't had @code{gtk-window-set-icon} called on them from a pixbuf. @table @var @item icon the icon @end table Since 2.4 @end deffn @deffn Function gtk-window-set-default-icon-name (name@tie{}@code{mchars}) Sets an icon to be used as fallback for windows that haven't had @code{gtk-window-set-icon-list} called on them from a named themed icon, see @code{gtk-window-set-icon-name}. @table @var @item name the name of the themed icon @end table Since 2.6 @end deffn @deffn Function gtk-window-set-icon (self@tie{}@code{}) (icon@tie{}@code{}) @deffnx Method set-icon Sets up the icon representing a @code{}. This icon is used when the window is minimized (also known as iconified). Some window managers or desktop environments may also place it in the window frame, or display it in other contexts. The icon should be provided in whatever size it was naturally drawn; that is, don't scale the image before passing it to GTK+. Scaling is postponed until the last minute, when the desired final size is known, to allow best quality. If you have your icon hand-drawn in multiple sizes, use @code{gtk-window-set-icon-list}. Then the best size will be used. This function is equivalent to calling @code{gtk-window-set-icon-list} with a 1-element list. See also @code{gtk-window-set-default-icon-list} to set the icon for all windows in your application in one go. @table @var @item window a @code{} @item icon icon image, or @samp{@code{#f}} @end table @end deffn @deffn Function gtk-window-set-icon-list (self@tie{}@code{}) (list@tie{}@code{glist-of}) @deffnx Method set-icon-list Sets up the icon representing a @code{}. The icon is used when the window is minimized (also known as iconified). Some window managers or desktop environments may also place it in the window frame, or display it in other contexts. @code{gtk-window-set-icon-list} allows you to pass in the same icon in several hand-drawn sizes. The list should contain the natural sizes your icon is available in; that is, don't scale the image before passing it to GTK+. Scaling is postponed until the last minute, when the desired final size is known, to allow best quality. By passing several sizes, you may improve the final image quality of the icon, by reducing or eliminating automatic image scaling. Recommended sizes to provide: 16x16, 32x32, 48x48 at minimum, and larger images (64x64, 128x128) if you have them. See also @code{gtk-window-set-default-icon-list} to set the icon for all windows in your application in one go. Note that transient windows (those who have been set transient for another window using @code{gtk-window-set-transient-for}) will inherit their icon from their transient parent. So there's no need to explicitly set the icon on transient windows. @table @var @item window a @code{} @item list list of @code{} @end table @end deffn @deffn Function gtk-window-set-icon-from-file (self@tie{}@code{}) (filename@tie{}@code{mchars}) @result{}@tie{} (ret@tie{}@code{bool}) @deffnx Method set-icon-from-file Sets the icon for @var{window}. Warns on failure if @var{err} is @samp{@code{#f}}. This function is equivalent to calling @code{gtk-window-set-icon} with a pixbuf created by loading the image from @var{filename}. @table @var @item window a @code{} @item filename location of icon file @item err location to store error, or @samp{@code{#f}}. @item ret @samp{@code{#t}} if setting the icon succeeded. @end table Since 2.2 @end deffn @deffn Function gtk-window-set-icon-name (self@tie{}@code{}) (name@tie{}@code{mchars}) @deffnx Method set-icon-name Sets the icon for the window from a named themed icon. See the docs for @code{} for more details. Note that this has nothing to do with the WM_ICON_NAME property which is mentioned in the ICCCM. @table @var @item window a @code{} @item name the name of the themed icon @end table Since 2.6 @end deffn @c %end of fragment guile-gnome-platform-2.16.2/gtk/doc/gtk/defuns-gtkaccessible.xml.texi0000644000175000017500000000023711670374302026067 0ustar00wingowingo00000000000000 @c %start of fragment @deftp Class Derives from @code{}. This class defines no direct slots. @end deftp @c %end of fragment guile-gnome-platform-2.16.2/gtk/doc/gtk/section-gtkseparator.xml.texi0000644000175000017500000000050511670374303026151 0ustar00wingowingo00000000000000 @c %start of fragment @node GtkSeparator @chapter GtkSeparator Base class for and @section Overview The @code{} widget is an abstract class, used only for deriving the subclasses @code{} and @code{}. @section Usage @include defuns-gtkseparator.xml.texi @c %end of fragment guile-gnome-platform-2.16.2/gtk/doc/gtk/defuns-gtkwidget.xml.texi0000644000175000017500000026757211670374302025276 0ustar00wingowingo00000000000000 @c %start of fragment @deftp Class Derives from @code{}, @code{}, @code{}. This class defines the following slots: @table @code @item name The name of the widget @item parent The parent widget of this widget. Must be a Container widget @item width-request Override for width request of the widget, or -1 if natural request should be used @item height-request Override for height request of the widget, or -1 if natural request should be used @item visible Whether the widget is visible @item sensitive Whether the widget responds to input @item app-paintable Whether the application will paint directly on the widget @item can-focus Whether the widget can accept the input focus @item has-focus Whether the widget has the input focus @item is-focus Whether the widget is the focus widget within the toplevel @item can-default Whether the widget can be the default widget @item has-default Whether the widget is the default widget @item receives-default If TRUE, the widget will receive the default action when it is focused @item composite-child Whether the widget is part of a composite widget @item style The style of the widget, which contains information about how it will look (colors etc) @item events The event mask that decides what kind of GdkEvents this widget gets @item extension-events The mask that decides what kind of extension events this widget gets @item no-show-all Whether gtk_widget_show_all() should not affect this widget @item has-tooltip Whether this widget has a tooltip @item tooltip-markup The contents of the tooltip for this widget @item tooltip-text The contents of the tooltip for this widget @end table @end deftp @defop Signal composited-changed @end defop @defop Signal show @end defop @defop Signal hide @end defop @defop Signal map @end defop @defop Signal unmap @end defop @defop Signal realize @end defop @defop Signal unrealize @end defop @defop Signal size-request (arg0@tie{}@code{}) @end defop @defop Signal size-allocate (arg0@tie{}@code{}) @end defop @defop Signal state-changed (arg0@tie{}@code{}) @end defop @defop Signal parent-set (arg0@tie{}@code{}) The parent-set signal is emitted when a new parent has been set on a widget. @end defop @defop Signal hierarchy-changed (arg0@tie{}@code{}) Emitted when there is a chance in the hierarchy to which a widget belong. More precisely, a widget is @dfn{anchored} when its toplevel ancestor is a @code{}. This signal is emitted when a widget changes from un-anchored to anchored or vice-versa. @end defop @defop Signal style-set (arg0@tie{}@code{}) The style-set signal is emitted when a new style has been set on a widget. Note that style-modifying functions like @code{gtk-widget-modify-base} also cause this signal to be emitted. @end defop @defop Signal direction-changed (arg0@tie{}@code{}) @end defop @defop Signal grab-notify (arg0@tie{}@code{}) The ::grab-notify signal is emitted when a widget becomes shadowed by a GTK+ grab (not a pointer or keyboard grab) on another widget, or when it becomes unshadowed due to a grab being removed. A widget is shadowed by a @code{gtk-grab-add} when the topmost grab widget in the grab stack of its window group is not its ancestor. @end defop @defop Signal child-notify (arg0@tie{}@code{}) The ::child-notify signal is emitted for each child property that has changed on an object. The signal's detail holds the property name. @end defop @defop Signal mnemonic-activate (arg0@tie{}@code{}) @result{}@tie{}@code{} @end defop @defop Signal grab-focus @end defop @defop Signal focus (arg0@tie{}@code{}) @result{}@tie{}@code{} @end defop @defop Signal move-focus (arg0@tie{}@code{}) undocumented @end defop @defop Signal event (arg0@tie{}@code{}) @result{}@tie{}@code{} @end defop @defop Signal event-after (arg0@tie{}@code{}) @end defop @defop Signal button-press-event (arg0@tie{}@code{}) @result{}@tie{}@code{} @end defop @defop Signal button-release-event (arg0@tie{}@code{}) @result{}@tie{}@code{} @end defop @defop Signal scroll-event (arg0@tie{}@code{}) @result{}@tie{}@code{} @end defop @defop Signal motion-notify-event (arg0@tie{}@code{}) @result{}@tie{}@code{} @end defop @defop Signal keynav-failed (arg0@tie{}@code{}) @result{}@tie{}@code{} undocumented @end defop @defop Signal delete-event (arg0@tie{}@code{}) @result{}@tie{}@code{} The ::delete-event signal is emitted if a user requests that a toplevel window is closed. The default handler for this signal destroys the window. Connecting @code{gtk-widget-hide-on-delete} to this signal will cause the window to be hidden instead, so that it can later be shown again without reconstructing it. @end defop @defop Signal destroy-event (arg0@tie{}@code{}) @result{}@tie{}@code{} The ::destroy-event signal is emitted when a @code{} is destroyed. You rarely get this signal, because most widgets disconnect themselves from their window before they destroy it, so no widget owns the window at destroy time. @end defop @defop Signal expose-event (arg0@tie{}@code{}) @result{}@tie{}@code{} @end defop @defop Signal key-press-event (arg0@tie{}@code{}) @result{}@tie{}@code{} @end defop @defop Signal key-release-event (arg0@tie{}@code{}) @result{}@tie{}@code{} @end defop @defop Signal enter-notify-event (arg0@tie{}@code{}) @result{}@tie{}@code{} @end defop @defop Signal leave-notify-event (arg0@tie{}@code{}) @result{}@tie{}@code{} @end defop @defop Signal configure-event (arg0@tie{}@code{}) @result{}@tie{}@code{} @end defop @defop Signal focus-in-event (arg0@tie{}@code{}) @result{}@tie{}@code{} @end defop @defop Signal focus-out-event (arg0@tie{}@code{}) @result{}@tie{}@code{} @end defop @defop Signal map-event (arg0@tie{}@code{}) @result{}@tie{}@code{} @end defop @defop Signal unmap-event (arg0@tie{}@code{}) @result{}@tie{}@code{} @end defop @defop Signal property-notify-event (arg0@tie{}@code{}) @result{}@tie{}@code{} @end defop @defop Signal selection-clear-event (arg0@tie{}@code{}) @result{}@tie{}@code{} @end defop @defop Signal selection-request-event (arg0@tie{}@code{}) @result{}@tie{}@code{} @end defop @defop Signal selection-notify-event (arg0@tie{}@code{}) @result{}@tie{}@code{} @end defop @defop Signal selection-received (arg0@tie{}@code{}) (arg1@tie{}@code{}) @end defop @defop Signal selection-get (arg0@tie{}@code{}) (arg1@tie{}@code{}) (arg2@tie{}@code{}) @end defop @defop Signal proximity-in-event (arg0@tie{}@code{}) @result{}@tie{}@code{} @end defop @defop Signal proximity-out-event (arg0@tie{}@code{}) @result{}@tie{}@code{} @end defop @defop Signal drag-leave (arg0@tie{}@code{}) (arg1@tie{}@code{}) The ::drag-leave signal is emitted on the drop site when the cursor leaves the widget. A typical reason to connect to this signal is to undo things done in ::drag-motion, e.g. undo highlighting with @code{gtk-drag-unhighlight} @end defop @defop Signal drag-begin (arg0@tie{}@code{}) The ::drag-begin signal is emitted on the drag source when a drag is started. A typical reason to connect to this signal is to set up a custom drag icon with @code{gtk-drag-source-set-icon}. @end defop @defop Signal drag-end (arg0@tie{}@code{}) The ::drag-end signal is emitted on the drag source when a drag is finished. A typical reason to connect to this signal is to undo things done in ::drag-begin. @end defop @defop Signal drag-data-delete (arg0@tie{}@code{}) The ::drag-data-delete signal is emitted on the drag source when a drag with the action @samp{GDK_ACTION_MOVE} is successfully completed. The signal handler is responsible for deleting the data that has been dropped. What "delete" means, depends on the context of the drag operation. @end defop @defop Signal drag-failed (arg0@tie{}@code{}) (arg1@tie{}@code{}) @result{}@tie{}@code{} undocumented @end defop @defop Signal drag-motion (arg0@tie{}@code{}) (arg1@tie{}@code{}) (arg2@tie{}@code{}) (arg3@tie{}@code{}) @result{}@tie{}@code{} The ::drag-motion signal is emitted on the drop site when the user moves the cursor over the widget during a drag. The signal handler must determine whether the cursor position is in a drop zone or not. If it is not in a drop zone, it returns @samp{@code{#f}} and no further processing is necessary. Otherwise, the handler returns @samp{@code{#t}}. In this case, the handler is responsible for providing the necessary information for displaying feedback to the user, by calling @code{gdk-drag-status}. If the decision whether the drop will be accepted or rejected can't be made based solely on the cursor position and the type of the data, the handler may inspect the dragged data by calling @code{gtk-drag-get-data} and defer the @code{gdk-drag-status} call to the ::drag-data-received handler. Note that there is no ::drag-enter signal. The drag receiver has to keep track of whether he has received any ::drag-motion signals since the last ::drag-leave and if not, treat the ::drag-motion signal as an "enter" signal. Upon an "enter", the handler will typically highlight the drop site with @code{gtk-drag-highlight}. @example static void drag_motion (GtkWidget *widget, GdkDragContext *context, gint x, gint y, guint time) @{ GdkAtom target; PrivateData *private_data = GET_PRIVATE_DATA (widget); if (!private_data->drag_highlight) @{ private_data->drag_highlight = 1; gtk_drag_highlight (widget); @} target = gtk_drag_dest_find_target (widget, context, NULL); if (target == GDK_NONE) gdk_drag_status (context, 0, time); else @{ private_data->pending_status = context->suggested_action; gtk_drag_get_data (widget, context, target, time); @} return TRUE; @} static void drag_data_received (GtkWidget *widget, GdkDragContext *context, gint x, gint y, GtkSelectionData *selection_data, guint info, guint time) @{ PrivateData *private_data = GET_PRIVATE_DATA (widget); if (private_data->suggested_action) @{ private_data->suggested_action = 0; /* We are getting this data due to a request in drag_motion, * rather than due to a request in drag_drop, so we are just * supposed to call gdk_drag_status(), not actually paste in * the data. */ str = gtk_selection_data_get_text (selection_data); if (!data_is_acceptable (str)) gdk_drag_status (context, 0, time); else gdk_drag_status (context, private_data->suggested_action, time); @} else @{ /* accept the drop */ @} @} @end example @end defop @defop Signal drag-drop (arg0@tie{}@code{}) (arg1@tie{}@code{}) (arg2@tie{}@code{}) (arg3@tie{}@code{}) @result{}@tie{}@code{} The ::drag-drop signal is emitted on the drop site when the user drops the data onto the widget. The signal handler must determine whether the cursor position is in a drop zone or not. If it is not in a drop zone, it returns @samp{@code{#f}} and no further processing is necessary. Otherwise, the handler returns @samp{@code{#t}}. In this case, the handler must ensure that @code{gtk-drag-finish} is called to let the source know that the drop is done. The call to @code{gtk-drag-finish} can be done either directly or in a ::drag-data-received handler which gets triggered by calling @code{gtk-drop-get-data} to receive the data for one or more of the supported targets. @end defop @defop Signal drag-data-get (arg0@tie{}@code{}) (arg1@tie{}@code{}) (arg2@tie{}@code{}) (arg3@tie{}@code{}) The ::drag-data-get signal is emitted on the drag source when the drop site requests the data which is dragged. It is the responsibility of the signal handler to fill @var{data} with the data in the format which is indicated by @var{info}. See @code{gtk-selection-data-set} and @code{gtk-selection-data-set-text}. @end defop @defop Signal drag-data-received (arg0@tie{}@code{}) (arg1@tie{}@code{}) (arg2@tie{}@code{}) (arg3@tie{}@code{}) (arg4@tie{}@code{}) (arg5@tie{}@code{}) The ::drag-data-received signal is emitted on the drop site when the dragged data has been received. If the data was received in order to determine whether the drop will be accepted, the handler is expected to call @code{gdk-drag-status} and @emph{not} finish the drag. If the data was received in response to a ::drag-drop signal (and this is the last target to be received), the handler for this signal is expected to process the received data and then call @code{gtk-drag-finish}, setting the @var{success} parameter depending on whether the data was processed successfully. The handler may inspect and modify @var{drag-context->action} before calling @code{gtk-drag-finish}, e.g. to implement @samp{GDK_ACTION_ASK} as shown in the following example: @example void drag_data_received (GtkWidget *widget, GdkDragContext *drag_context, gint x, gint y, GtkSelectionData *data, guint info, guint time) @{ if ((data->length >= 0) && (data->format == 8)) @{ if (drag_context->action == GDK_ACTION_ASK) @{ GtkWidget *dialog; gint response; dialog = gtk_message_dialog_new (NULL, GTK_DIALOG_MODAL | GTK_DIALOG_DESTROY_WITH_PARENT, GTK_MESSAGE_INFO, GTK_BUTTONS_YES_NO, "Move the data ?\n"); response = gtk_dialog_run (GTK_DIALOG (dialog)); gtk_widget_destroy (dialog); if (response == GTK_RESPONSE_YES) drag_context->action = GDK_ACTION_MOVE; else drag_context->action = GDK_ACTION_COPY; @} gtk_drag_finish (drag_context, TRUE, FALSE, time); return; @} gtk_drag_finish (drag_context, FALSE, FALSE, time); @} @end example @end defop @defop Signal visibility-notify-event (arg0@tie{}@code{}) @result{}@tie{}@code{} @end defop @defop Signal client-event (arg0@tie{}@code{}) @result{}@tie{}@code{} @end defop @defop Signal no-expose-event (arg0@tie{}@code{}) @result{}@tie{}@code{} @end defop @defop Signal window-state-event (arg0@tie{}@code{}) @result{}@tie{}@code{} @end defop @defop Signal grab-broken-event (arg0@tie{}@code{}) @result{}@tie{}@code{} Emitted when a pointer or keyboard grab on a window belonging to @var{widget} gets broken. On X11, this happens when the grab window becomes unviewable (i.e. it or one of its ancestors is unmapped), or if the same application grabs the pointer or keyboard again. Since 2.8 @end defop @defop Signal query-tooltip (arg0@tie{}@code{}) (arg1@tie{}@code{}) (arg2@tie{}@code{}) (arg3@tie{}@code{}) @result{}@tie{}@code{} undocumented @end defop @defop Signal popup-menu @result{}@tie{}@code{} This signal gets emitted whenever a widget should pop up a context-sensitive menu. This usually happens through the standard key binding mechanism; by pressing a certain key while a widget is focused, the user can cause the widget to pop up a menu. For example, the @code{} widget creates a menu with clipboard commands. See @emph{(the missing figure, checklist-popup-menu} for an example of how to use this signal. @end defop @defop Signal show-help (arg0@tie{}@code{}) @result{}@tie{}@code{} @end defop @defop Signal accel-closures-changed @end defop @defop Signal screen-changed (arg0@tie{}@code{}) @end defop @defop Signal can-activate-accel (arg0@tie{}@code{}) @result{}@tie{}@code{} Determines whether an accelerator that activates the signal identified by @var{signal-id} can currently be activated. This signal is present to allow applications and derived widgets to override the default @code{} handling for determining whether an accelerator can be activated. @end defop @deftp Class Derives from @code{}. This class defines no direct slots. @end deftp @deftp Class Derives from @code{}. This class defines no direct slots. @end deftp @deffn Function gtk-widget-destroy (self@tie{}@code{}) @deffnx Method destroy Destroys a widget. Equivalent to @code{gtk-object-destroy}, except that you don't have to cast the widget to @code{}. When a widget is destroyed, it will break any references it holds to other objects. If the widget is inside a container, the widget will be removed from the container. If the widget is a toplevel (derived from @code{}), it will be removed from the list of toplevels, and the reference GTK+ holds to it will be removed. Removing a widget from its container or the list of toplevels results in the widget being finalized, unless you've added additional references to the widget with @code{g-object-ref}. In most cases, only toplevel widgets (windows) require explicit destruction, because when you destroy a toplevel its children will be destroyed as well. @table @var @item widget a @code{} @end table @end deffn @deffn Function gtk-widget-unparent (self@tie{}@code{}) @deffnx Method unparent This function is only for use in widget implementations. Should be called by implementations of the remove method on @code{}, to dissociate a child from the container. @table @var @item widget a @code{} @end table @end deffn @deffn Function gtk-widget-show (self@tie{}@code{}) @deffnx Method show Flags a widget to be displayed. Any widget that isn't shown will not appear on the screen. If you want to show all the widgets in a container, it's easier to call @code{gtk-widget-show-all} on the container, instead of individually showing the widgets. Remember that you have to show the containers containing a widget, in addition to the widget itself, before it will appear onscreen. When a toplevel container is shown, it is immediately realized and mapped; other shown widgets are realized and mapped when their toplevel container is realized and mapped. @table @var @item widget a @code{} @end table @end deffn @deffn Function gtk-widget-show-now (self@tie{}@code{}) @deffnx Method show-now Shows a widget. If the widget is an unmapped toplevel widget (i.e. a @code{} that has not yet been shown), enter the main loop and wait for the window to actually be mapped. Be careful; because the main loop is running, anything can happen during this function. @table @var @item widget a @code{} @end table @end deffn @deffn Function gtk-widget-hide (self@tie{}@code{}) @deffnx Method hide Reverses the effects of @code{gtk-widget-show}, causing the widget to be hidden (invisible to the user). @table @var @item widget a @code{} @end table @end deffn @deffn Function gtk-widget-show-all (self@tie{}@code{}) @deffnx Method show-all Recursively shows a widget, and any child widgets (if the widget is a container). @table @var @item widget a @code{} @end table @end deffn @deffn Function gtk-widget-hide-all (self@tie{}@code{}) @deffnx Method hide-all Recursively hides a widget and any child widgets. @table @var @item widget a @code{} @end table @end deffn @deffn Function gtk-widget-map (self@tie{}@code{}) @deffnx Method map This function is only for use in widget implementations. Causes a widget to be mapped if it isn't already. @table @var @item widget a @code{} @end table @end deffn @deffn Function gtk-widget-unmap (self@tie{}@code{}) @deffnx Method unmap This function is only for use in widget implementations. Causes a widget to be unmapped if it's currently mapped. @table @var @item widget a @code{} @end table @end deffn @deffn Function gtk-widget-realize (self@tie{}@code{}) @deffnx Method realize Creates the GDK (windowing system) resources associated with a widget. For example, @var{widget->window} will be created when a widget is realized. Normally realization happens implicitly; if you show a widget and all its parent containers, then the widget will be realized and mapped automatically. Realizing a widget requires all the widget's parent widgets to be realized; calling @code{gtk-widget-realize} realizes the widget's parents in addition to @var{widget} itself. If a widget is not yet inside a toplevel window when you realize it, bad things will happen. This function is primarily used in widget implementations, and isn't very useful otherwise. Many times when you think you might need it, a better approach is to connect to a signal that will be called after the widget is realized automatically, such as "expose_event". Or simply @code{g-signal-connect-after} to the "realize" signal. @table @var @item widget a @code{} @end table @end deffn @deffn Function gtk-widget-unrealize (self@tie{}@code{}) @deffnx Method unrealize This function is only useful in widget implementations. Causes a widget to be unrealized (frees all GDK resources associated with the widget, such as @var{widget->window}). @table @var @item widget a @code{} @end table @end deffn @deffn Function gtk-widget-queue-draw (self@tie{}@code{}) @deffnx Method queue-draw Equivalent to calling @code{gtk-widget-queue-draw-area} for the entire area of a widget. @table @var @item widget a @code{} @end table @end deffn @deffn Function gtk-widget-queue-resize (self@tie{}@code{}) @deffnx Method queue-resize This function is only for use in widget implementations. Flags a widget to have its size renegotiated; should be called when a widget for some reason has a new size request. For example, when you change the text in a @code{}, @code{} queues a resize to ensure there's enough space for the new text. @table @var @item widget a @code{} @end table @end deffn @deffn Function gtk-widget-queue-resize-no-redraw (self@tie{}@code{}) @deffnx Method queue-resize-no-redraw This function works like @code{gtk-widget-queue-resize}, except that the widget is not invalidated. @table @var @item widget a @code{} @end table Since 2.4 @end deffn @deffn Function gtk-widget-size-request (self@tie{}@code{}) (requisition@tie{}@code{}) @deffnx Method size-request This function is typically used when implementing a @code{} subclass. Obtains the preferred size of a widget. The container uses this information to arrange its child widgets and decide what size allocations to give them with @code{gtk-widget-size-allocate}. You can also call this function from an application, with some caveats. Most notably, getting a size request requires the widget to be associated with a screen, because font information may be needed. Multihead-aware applications should keep this in mind. Also remember that the size request is not necessarily the size a widget will actually be allocated. See also @code{gtk-widget-get-child-requisition}. @table @var @item widget a @code{} @item requisition a @code{} to be filled in @end table @end deffn @deffn Function gtk-widget-get-child-requisition (self@tie{}@code{}) (requisition@tie{}@code{}) @deffnx Method get-child-requisition This function is only for use in widget implementations. Obtains @var{widget->requisition}, unless someone has forced a particular geometry on the widget (e.g. with @code{gtk-widget-set-usize}), in which case it returns that geometry instead of the widget's requisition. This function differs from @code{gtk-widget-size-request} in that it retrieves the last size request value from @var{widget->requisition}, while @code{gtk-widget-size-request} actually calls the "size_request" method on @var{widget} to compute the size request and fill in @var{widget->requisition}, and only then returns @var{widget->requisition}. Because this function does not call the "size_request" method, it can only be used when you know that @var{widget->requisition} is up-to-date, that is, @code{gtk-widget-size-request} has been called since the last time a resize was queued. In general, only container implementations have this information; applications should use @code{gtk-widget-size-request}. @table @var @item widget a @code{} @item requisition a @code{} to be filled in @end table @end deffn @deffn Function gtk-widget-size-allocate (self@tie{}@code{}) (allocation@tie{}@code{}) @deffnx Method size-allocate This function is only used by @code{} subclasses, to assign a size and position to their child widgets. @table @var @item widget a @code{} @item allocation position and size to be allocated to @var{widget} @end table @end deffn @deffn Function gtk-widget-add-accelerator (self@tie{}@code{}) (accel_signal@tie{}@code{mchars}) (accel_group@tie{}@code{}) (accel_key@tie{}@code{unsigned-int}) (accel_mods@tie{}@code{}) (accel_flags@tie{}@code{}) @deffnx Method add-accelerator Installs an accelerator for this @var{widget} in @var{accel-group} that causes @var{accel-signal} to be emitted if the accelerator is activated. The @var{accel-group} needs to be added to the widget's toplevel via @code{gtk-window-add-accel-group}, and the signal must be of type @samp{G_RUN_ACTION}. Accelerators added through this function are not user changeable during runtime. If you want to support accelerators that can be changed by the user, use @code{gtk-accel-map-add-entry} and @code{gtk-widget-set-accel-path} or @code{gtk-menu-item-set-accel-path} instead. @table @var @item widget widget to install an accelerator on @item accel-signal widget signal to emit on accelerator activation @item accel-group accel group for this widget, added to its toplevel @item accel-key GDK keyval of the accelerator @item accel-mods modifier key combination of the accelerator @item accel-flags flag accelerators, e.g. @samp{GTK_ACCEL_VISIBLE} @end table @end deffn @deffn Function gtk-widget-remove-accelerator (self@tie{}@code{}) (accel_group@tie{}@code{}) (accel_key@tie{}@code{unsigned-int}) (accel_mods@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{bool}) @deffnx Method remove-accelerator Removes an accelerator from @var{widget}, previously installed with @code{gtk-widget-add-accelerator}. @table @var @item widget widget to install an accelerator on @item accel-group accel group for this widget @item accel-key GDK keyval of the accelerator @item accel-mods modifier key combination of the accelerator @item ret whether an accelerator was installed and could be removed @end table @end deffn @deffn Function gtk-widget-set-accel-path (self@tie{}@code{}) (accel_path@tie{}@code{mchars}) (accel_group@tie{}@code{}) @deffnx Method set-accel-path Given an accelerator group, @var{accel-group}, and an accelerator path, @var{accel-path}, sets up an accelerator in @var{accel-group} so whenever the key binding that is defined for @var{accel-path} is pressed, @var{widget} will be activated. This removes any accelerators (for any accelerator group) installed by previous calls to @code{gtk-widget-set-accel-path}. Associating accelerators with paths allows them to be modified by the user and the modifications to be saved for future use. (See @code{gtk-accel-map-save}.) This function is a low level function that would most likely be used by a menu creation system like @code{}. If you use @code{}, setting up accelerator paths will be done automatically. Even when you you aren't using @code{}, if you only want to set up accelerators on menu items @code{gtk-menu-item-set-accel-path} provides a somewhat more convenient interface. @table @var @item widget a @code{} @item accel-path path used to look up the accelerator @item accel-group a @code{}. @end table @end deffn @deffn Function gtk-widget-list-accel-closures (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{glist-of}) @deffnx Method list-accel-closures Lists the closures used by @var{widget} for accelerator group connections with @code{gtk-accel-group-connect-by-path} or @code{gtk-accel-group-connect}. The closures can be used to monitor accelerator changes on @var{widget}, by connecting to the ::accel_changed signal of the @code{} of a closure which can be found out with @code{gtk-accel-group-from-accel-closure}. @table @var @item widget widget to list accelerator closures for @item ret a newly allocated @code{} of closures @end table @end deffn @deffn Function gtk-widget-can-activate-accel (self@tie{}@code{}) (signal_id@tie{}@code{unsigned-int}) @result{}@tie{} (ret@tie{}@code{bool}) @deffnx Method can-activate-accel Determines whether an accelerator that activates the signal identified by @var{signal-id} can currently be activated. This is done by emitting the GtkWidget::can-activate-accel signal on @var{widget}; if the signal isn't overridden by a handler or in a derived widget, then the default check is that the widget must be sensitive, and the widget and all its ancestors mapped. @table @var @item widget a @code{} @item signal-id the ID of a signal installed on @var{widget} @item ret @samp{@code{#t}} if the accelerator can be activated. @end table Since 2.4 @end deffn @deffn Function gtk-widget-event (self@tie{}@code{}) (event@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{bool}) @deffnx Method event Rarely-used function. This function is used to emit the event signals on a widget (those signals should never be emitted without using this function to do so). If you want to synthesize an event though, don't use this function; instead, use @code{gtk-main-do-event} so the event will behave as if it were in the event queue. Don't synthesize expose events; instead, use @code{gdk-window-invalidate-rect} to invalidate a region of the window. @table @var @item widget a @code{} @item event a @code{} @item ret return from the event signal emission (@samp{@code{#t}} if the event was handled) @end table @end deffn @deffn Function gtk-widget-activate (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{bool}) @deffnx Method activate For widgets that can be "activated" (buttons, menu items, etc.) this function activates them. Activation is what happens when you press Enter on a widget during key navigation. If @var{widget} isn't activatable, the function returns @samp{@code{#f}}. @table @var @item widget a @code{} that's activatable @item ret @samp{@code{#t}} if the widget was activatable @end table @end deffn @deffn Function gtk-widget-reparent (self@tie{}@code{}) (new_parent@tie{}@code{}) @deffnx Method reparent Moves a widget from one @code{} to another, handling reference count issues to avoid destroying the widget. @table @var @item widget a @code{} @item new-parent a @code{} to move the widget into @end table @end deffn @deffn Function gtk-widget-is-focus (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{bool}) @deffnx Method is-focus Determines if the widget is the focus widget within its toplevel. (This does not mean that the @samp{HAS_FOCUS} flag is necessarily set; @samp{HAS_FOCUS} will only be set if the toplevel widget additionally has the global input focus.) @table @var @item widget a @code{} @item ret @samp{@code{#t}} if the widget is the focus widget. @end table @end deffn @deffn Function gtk-widget-grab-focus (self@tie{}@code{}) @deffnx Method grab-focus Causes @var{widget} to have the keyboard focus for the @code{} it's inside. @var{widget} must be a focusable widget, such as a @code{}; something like @code{} won't work. (More precisely, it must have the @samp{GTK_CAN_FOCUS} flag set.) @table @var @item widget a @code{} @end table @end deffn @deffn Function gtk-widget-grab-default (self@tie{}@code{}) @deffnx Method grab-default Causes @var{widget} to become the default widget. @var{widget} must have the @samp{GTK_CAN_DEFAULT} flag set; typically you have to set this flag yourself by calling @samp{GTK_WIDGET_SET_FLAGS (@var{widget}, GTK_CAN_DEFAULT)}. The default widget is activated when the user presses Enter in a window. Default widgets must be activatable, that is, @code{gtk-widget-activate} should affect them. @table @var @item widget a @code{} @end table @end deffn @deffn Function gtk-widget-set-name (self@tie{}@code{}) (name@tie{}@code{mchars}) @deffnx Method set-name Widgets can be named, which allows you to refer to them from a gtkrc file. You can apply a style to widgets with a particular name in the gtkrc file. See the documentation for gtkrc files (on the same page as the docs for @code{}). Note that widget names are separated by periods in paths (see @code{gtk-widget-path}), so names with embedded periods may cause confusion. @table @var @item widget a @code{} @item name name for the widget @end table @end deffn @deffn Function gtk-widget-get-name (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{mchars}) @deffnx Method get-name Retrieves the name of a widget. See @code{gtk-widget-set-name} for the significance of widget names. @table @var @item widget a @code{} @item ret name of the widget. This string is owned by GTK+ and should not be modified or freed @end table @end deffn @deffn Function gtk-widget-set-state (self@tie{}@code{}) (state@tie{}@code{}) @deffnx Method set-state This function is for use in widget implementations. Sets the state of a widget (insensitive, prelighted, etc.) Usually you should set the state using wrapper functions such as @code{gtk-widget-set-sensitive}. @table @var @item widget a @code{} @item state new state for @var{widget} @end table @end deffn @deffn Function gtk-widget-set-sensitive (self@tie{}@code{}) (sensitive@tie{}@code{bool}) @deffnx Method set-sensitive Sets the sensitivity of a widget. A widget is sensitive if the user can interact with it. Insensitive widgets are "grayed out" and the user can't interact with them. Insensitive widgets are known as "inactive", "disabled", or "ghosted" in some other toolkits. @table @var @item widget a @code{} @item sensitive @samp{@code{#t}} to make the widget sensitive @end table @end deffn @deffn Function gtk-widget-set-parent (self@tie{}@code{}) (parent@tie{}@code{}) @deffnx Method set-parent This function is useful only when implementing subclasses of @code{}. Sets the container as the parent of @var{widget}, and takes care of some details such as updating the state and style of the child to reflect its new location. The opposite function is @code{gtk-widget-unparent}. @table @var @item widget a @code{} @item parent parent container @end table @end deffn @deffn Function gtk-widget-set-parent-window (self@tie{}@code{}) (parent_window@tie{}@code{}) @deffnx Method set-parent-window Sets a non default parent window for @var{widget}. @table @var @item widget a @code{}. @item parent-window the new parent window. @end table @end deffn @deffn Function gtk-widget-get-parent-window (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{}) @deffnx Method get-parent-window Gets @var{widget}'s parent window. @table @var @item widget a @code{}. @item ret the parent window of @var{widget}. @end table @end deffn @deffn Function gtk-widget-set-events (self@tie{}@code{}) (events@tie{}@code{}) @deffnx Method set-events Sets the event mask (see @code{}) for a widget. The event mask determines which events a widget will receive. Keep in mind that different widgets have different default event masks, and by changing the event mask you may disrupt a widget's functionality, so be careful. This function must be called while a widget is unrealized. Consider @code{gtk-widget-add-events} for widgets that are already realized, or if you want to preserve the existing event mask. This function can't be used with @code{} widgets; to get events on those widgets, place them inside a @code{} and receive events on the event box. @table @var @item widget a @code{} @item events event mask @end table @end deffn @deffn Function gtk-widget-add-events (self@tie{}@code{}) (events@tie{}@code{}) @deffnx Method add-events Adds the events in the bitfield @var{events} to the event mask for @var{widget}. See @code{gtk-widget-set-events} for details. @table @var @item widget a @code{} @item events an event mask, see @code{} @end table @end deffn @deffn Function gtk-widget-set-extension-events (self@tie{}@code{}) (mode@tie{}@code{}) @deffnx Method set-extension-events Sets the extension events mask to @var{mode}. See @code{} and @code{gdk-input-set-extension-events}. @table @var @item widget a @code{} @item mode bitfield of extension events to receive @end table @end deffn @deffn Function gtk-widget-get-extension-events (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{}) @deffnx Method get-extension-events Retrieves the extension events the widget will receive; see @code{gdk-input-set-extension-events}. @table @var @item widget a @code{} @item ret extension events for @var{widget} @end table @end deffn @deffn Function gtk-widget-get-toplevel (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{}) @deffnx Method get-toplevel This function returns the topmost widget in the container hierarchy @var{widget} is a part of. If @var{widget} has no parent widgets, it will be returned as the topmost widget. No reference will be added to the returned widget; it should not be unreferenced. Note the difference in behavior vs. @code{gtk-widget-get-ancestor}; @samp{gtk_widget_get_ancestor (widget, GTK_TYPE_WINDOW)} would return @samp{@code{#f}} if @var{widget} wasn't inside a toplevel window, and if the window was inside a @code{} widget which was in turn inside the toplevel @code{}. While the second case may seem unlikely, it actually happens when a @code{} is embedded inside a @code{} within the same application. To reliably find the toplevel @code{}, use @code{gtk-widget-get-toplevel} and check if the @samp{TOPLEVEL} flags is set on the result. @example GtkWidget *toplevel = gtk_widget_get_toplevel (widget); if (GTK_WIDGET_TOPLEVEL (toplevel)) @{ [ Perform action on toplevel. ] @} @end example @table @var @item widget a @code{} @item ret the topmost ancestor of @var{widget}, or @var{widget} itself if there's no ancestor. @end table @end deffn @deffn Function gtk-widget-get-ancestor (self@tie{}@code{}) (widget_type@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{}) @deffnx Method get-ancestor Gets the first ancestor of @var{widget} with type @var{widget-type}. For example, @samp{gtk_widget_get_ancestor (widget, GTK_TYPE_BOX)} gets the first @code{} that's an ancestor of @var{widget}. No reference will be added to the returned widget; it should not be unreferenced. See note about checking for a toplevel @code{} in the docs for @code{gtk-widget-get-toplevel}. Note that unlike @code{gtk-widget-is-ancestor}, @code{gtk-widget-get-ancestor} considers @var{widget} to be an ancestor of itself. @table @var @item widget a @code{} @item widget-type ancestor type @item ret the ancestor widget, or @samp{@code{#f}} if not found @end table @end deffn @deffn Function gtk-widget-get-colormap (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{}) @deffnx Method get-colormap Gets the colormap that will be used to render @var{widget}. No reference will be added to the returned colormap; it should not be unreferenced. @table @var @item widget a @code{} @item ret the colormap used by @var{widget} @end table @end deffn @deffn Function gtk-widget-set-colormap (self@tie{}@code{}) (colormap@tie{}@code{}) @deffnx Method set-colormap Sets the colormap for the widget to the given value. Widget must not have been previously realized. This probably should only be used from an @code{@code{init}} function (i.e. from the constructor for the widget). @table @var @item widget a @code{} @item colormap a colormap @end table @end deffn @deffn Function gtk-widget-get-visual (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{}) @deffnx Method get-visual Gets the visual that will be used to render @var{widget}. @table @var @item widget a @code{} @item ret the visual for @var{widget} @end table @end deffn @deffn Function gtk-widget-get-events (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{int}) @deffnx Method get-events Returns the event mask for the widget (a bitfield containing flags from the @code{} enumeration). These are the events that the widget will receive. @table @var @item widget a @code{} @item ret event mask for @var{widget} @end table @end deffn @deffn Function gtk-widget-get-pointer (self@tie{}@code{}) @result{}@tie{} (x@tie{}@code{int}) (y@tie{}@code{int}) @deffnx Method get-pointer Obtains the location of the mouse pointer in widget coordinates. Widget coordinates are a bit odd; for historical reasons, they are defined as @var{widget->window} coordinates for widgets that are not @code{} widgets, and are relative to @var{widget->allocation.x}, @var{widget->allocation.y} for widgets that are @code{} widgets. @table @var @item widget a @code{} @item x return location for the X coordinate, or @samp{@code{#f}} @item y return location for the Y coordinate, or @samp{@code{#f}} @end table @end deffn @deffn Function gtk-widget-is-ancestor (self@tie{}@code{}) (ancestor@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{bool}) @deffnx Method is-ancestor Determines whether @var{widget} is somewhere inside @var{ancestor}, possibly with intermediate containers. @table @var @item widget a @code{} @item ancestor another @code{} @item ret @samp{@code{#t}} if @var{ancestor} contains @var{widget} as a child, grandchild, great grandchild, etc. @end table @end deffn @deffn Function gtk-widget-translate-coordinates (self@tie{}@code{}) (dest_widget@tie{}@code{}) (src_x@tie{}@code{int}) (src_y@tie{}@code{int}) @result{}@tie{} (ret@tie{}@code{bool}) (dest_x@tie{}@code{int}) (dest_y@tie{}@code{int}) @deffnx Method translate-coordinates Translate coordinates relative to @var{src-widget}'s allocation to coordinates relative to @var{dest-widget}'s allocations. In order to perform this operation, both widgets must be realized, and must share a common toplevel. @table @var @item src-widget a @code{} @item dest-widget a @code{} @item src-x X position relative to @var{src-widget} @item src-y Y position relative to @var{src-widget} @item dest-x location to store X position relative to @var{dest-widget} @item dest-y location to store Y position relative to @var{dest-widget} @item ret @samp{@code{#f}} if either widget was not realized, or there was no common ancestor. In this case, nothing is stored in *@var{dest-x} and *@var{dest-y}. Otherwise @samp{@code{#t}}. @end table @end deffn @deffn Function gtk-widget-hide-on-delete (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{bool}) @deffnx Method hide-on-delete Utility function; intended to be connected to the "delete_event" signal on a @code{}. The function calls @code{gtk-widget-hide} on its argument, then returns @samp{@code{#t}}. If connected to "delete_event", the result is that clicking the close button for a window (on the window frame, top right corner usually) will hide but not destroy the window. By default, GTK+ destroys windows when "delete_event" is received. @table @var @item widget a @code{} @item ret @samp{@code{#t}} @end table @end deffn @deffn Function gtk-widget-set-style (self@tie{}@code{}) (style@tie{}@code{}) @deffnx Method set-style Sets the @code{} for a widget (@var{widget->style}). You probably don't want to use this function; it interacts badly with themes, because themes work by replacing the @code{}. Instead, use @code{gtk-widget-modify-style}. @table @var @item widget a @code{} @item style a @code{}, or @samp{@code{#f}} to remove the effect of a previous @code{gtk-widget-set-style} and go back to the default style @end table @end deffn @deffn Function gtk-widget-ensure-style (self@tie{}@code{}) @deffnx Method ensure-style Ensures that @var{widget} has a style (@var{widget->style}). Not a very useful function; most of the time, if you want the style, the widget is realized, and realized widgets are guaranteed to have a style already. @table @var @item widget a @code{} @end table @end deffn @deffn Function gtk-widget-get-style (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{}) @deffnx Method get-style Simply an accessor function that returns @var{widget->style}. @table @var @item widget a @code{} @item ret the widget's @code{} @end table @end deffn @deffn Function gtk-widget-reset-rc-styles (self@tie{}@code{}) @deffnx Method reset-rc-styles Reset the styles of @var{widget} and all descendents, so when they are looked up again, they get the correct values for the currently loaded RC file settings. This function is not useful for applications. @table @var @item widget a @code{}. @end table @end deffn @deffn Function gtk-widget-push-colormap (cmap@tie{}@code{}) Pushes @var{cmap} onto a global stack of colormaps; the topmost colormap on the stack will be used to create all widgets. Remove @var{cmap} with @code{gtk-widget-pop-colormap}. There's little reason to use this function. @table @var @item cmap a @code{} @end table @end deffn @deffn Function gtk-widget-pop-colormap Removes a colormap pushed with @code{gtk-widget-push-colormap}. @end deffn @deffn Function gtk-widget-set-default-colormap (colormap@tie{}@code{}) Sets the default colormap to use when creating widgets. @code{gtk-widget-push-colormap} is a better function to use if you only want to affect a few widgets, rather than all widgets. @table @var @item colormap a @code{} @end table @end deffn @deffn Function gtk-widget-get-default-style @result{}@tie{} (ret@tie{}@code{}) Returns the default style used by all widgets initially. @table @var @item ret the default style. This @code{} object is owned by GTK+ and should not be modified or freed. @end table @end deffn @deffn Function gtk-widget-get-default-colormap @result{}@tie{} (ret@tie{}@code{}) Obtains the default colormap used to create widgets. @table @var @item ret default widget colormap @end table @end deffn @deffn Function gtk-widget-get-default-visual @result{}@tie{} (ret@tie{}@code{}) Obtains the visual of the default colormap. Not really useful; used to be useful before @code{gdk-colormap-get-visual} existed. @table @var @item ret visual of the default colormap @end table @end deffn @deffn Function gtk-widget-set-direction (self@tie{}@code{}) (dir@tie{}@code{}) @deffnx Method set-direction Sets the reading direction on a particular widget. This direction controls the primary direction for widgets containing text, and also the direction in which the children of a container are packed. The ability to set the direction is present in order so that correct localization into languages with right-to-left reading directions can be done. Generally, applications will let the default reading direction present, except for containers where the containers are arranged in an order that is explicitely visual rather than logical (such as buttons for text justification). If the direction is set to @samp{GTK_TEXT_DIR_NONE}, then the value set by @code{gtk-widget-set-default-direction} will be used. @table @var @item widget a @code{} @item dir the new direction @end table @end deffn @deffn Function gtk-widget-get-direction (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{}) @deffnx Method get-direction Gets the reading direction for a particular widget. See @code{gtk-widget-set-direction}. @table @var @item widget a @code{} @item ret the reading direction for the widget. @end table @end deffn @deffn Function gtk-widget-set-default-direction (dir@tie{}@code{}) Sets the default reading direction for widgets where the direction has not been explicitly set by @code{gtk-widget-set-direction}. @table @var @item dir the new default direction. This cannot be @samp{GTK_TEXT_DIR_NONE}. @end table @end deffn @deffn Function gtk-widget-get-default-direction @result{}@tie{} (ret@tie{}@code{}) Obtains the current default reading direction. See @code{gtk-widget-set-default-direction}. @table @var @item ret the current default direction. @end table @end deffn @deffn Function gtk-widget-shape-combine-mask (self@tie{}@code{}) (shape_mask@tie{}@code{}) (offset_x@tie{}@code{int}) (offset_y@tie{}@code{int}) @deffnx Method shape-combine-mask Sets a shape for this widget's GDK window. This allows for transparent windows etc., see @code{gdk-window-shape-combine-mask} for more information. @table @var @item widget a @code{}. @item shape-mask shape to be added, or @samp{@code{#f}} to remove an existing shape. @item offset-x X position of shape mask with respect to @var{window}. @item offset-y Y position of shape mask with respect to @var{window}. @end table @end deffn @deffn Function gtk-widget-input-shape-combine-mask (self@tie{}@code{}) (shape_mask@tie{}@code{}) (offset_x@tie{}@code{int}) (offset_y@tie{}@code{int}) @deffnx Method input-shape-combine-mask Sets an input shape for this widget's GDK window. This allows for windows which react to mouse click in a nonrectangular region, see @code{gdk-window-input-shape-combine-mask} for more information. @table @var @item widget a @code{}. @item shape-mask shape to be added, or @samp{@code{#f}} to remove an existing shape. @item offset-x X position of shape mask with respect to @var{window}. @item offset-y Y position of shape mask with respect to @var{window}. @end table Since 2.10 @end deffn @deffn Function gtk-widget-path (self@tie{}@code{}) @result{}@tie{} (path_length@tie{}@code{unsigned-int}) (path@tie{}@code{mchars}) (path_reversed@tie{}@code{mchars}) @deffnx Method path Obtains the full path to @var{widget}. The path is simply the name of a widget and all its parents in the container hierarchy, separated by periods. The name of a widget comes from @code{gtk-widget-get-name}. Paths are used to apply styles to a widget in gtkrc configuration files. Widget names are the type of the widget by default (e.g. "GtkButton") or can be set to an application-specific value with @code{gtk-widget-set-name}. By setting the name of a widget, you allow users or theme authors to apply styles to that specific widget in their gtkrc file. @var{path-reversed-p} fills in the path in reverse order, i.e. starting with @var{widget}'s name instead of starting with the name of @var{widget}'s outermost ancestor. @table @var @item widget a @code{} @item path-length location to store length of the path, or @samp{@code{#f}} @item path location to store allocated path string, or @samp{@code{#f}} @item path-reversed location to store allocated reverse path string, or @samp{@code{#f}} @end table @end deffn @deffn Function gtk-widget-class-path (self@tie{}@code{}) @result{}@tie{} (path_length@tie{}@code{unsigned-int}) (path@tie{}@code{mchars}) (path_reversed@tie{}@code{mchars}) @deffnx Method class-path Same as @code{gtk-widget-path}, but always uses the name of a widget's type, never uses a custom name set with @code{gtk-widget-set-name}. @table @var @item widget a @code{} @item path-length location to store the length of the class path, or @samp{@code{#f}} @item path location to store the class path as an allocated string, or @samp{@code{#f}} @item path-reversed location to store the reverse class path as an allocated string, or @samp{@code{#f}} @end table @end deffn @deffn Function gtk-widget-get-composite-name (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{mchars}) @deffnx Method get-composite-name Obtains the composite name of a widget. @table @var @item widget a @code{}. @item ret the composite name of @var{widget}, or @samp{@code{#f}} if @var{widget} is not a composite child. The string should not be freed when it is no longer needed. @end table @end deffn @deffn Function gtk-widget-modify-style (self@tie{}@code{}) (style@tie{}@code{}) @deffnx Method modify-style Modifies style values on the widget. Modifications made using this technique take precedence over style values set via an RC file, however, they will be overriden if a style is explicitely set on the widget using @code{gtk-widget-set-style}. The @code{} structure is designed so each field can either be set or unset, so it is possible, using this function, to modify some style values and leave the others unchanged. Note that modifications made with this function are not cumulative with previous calls to @code{gtk-widget-modify-style} or with such functions as @code{gtk-widget-modify-fg}. If you wish to retain previous values, you must first call @code{gtk-widget-get-modifier-style}, make your modifications to the returned style, then call @code{gtk-widget-modify-style} with that style. On the other hand, if you first call @code{gtk-widget-modify-style}, subsequent calls to such functions @code{gtk-widget-modify-fg} will have a cumulative effect with the initial modifications. @table @var @item widget a @code{} @item style the @code{} holding the style modifications @end table @end deffn @deffn Function gtk-widget-get-modifier-style (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{}) @deffnx Method get-modifier-style Returns the current modifier style for the widget. (As set by @code{gtk-widget-modify-style}.) If no style has previously set, a new @code{} will be created with all values unset, and set as the modifier style for the widget. If you make changes to this rc style, you must call @code{gtk-widget-modify-style}, passing in the returned rc style, to make sure that your changes take effect. Caution: passing the style back to @code{gtk-widget-modify-style} will normally end up destroying it, because @code{gtk-widget-modify-style} copies the passed-in style and sets the copy as the new modifier style, thus dropping any reference to the old modifier style. Add a reference to the modifier style if you want to keep it alive. @table @var @item widget a @code{} @item ret the modifier style for the widget. This rc style is owned by the widget. If you want to keep a pointer to value this around, you must add a refcount using @code{g-object-ref}. @end table @end deffn @deffn Function gtk-widget-modify-fg (self@tie{}@code{}) (state@tie{}@code{}) (color@tie{}@code{}) @deffnx Method modify-fg Sets the foreground color for a widget in a particular state. All other style values are left untouched. See also @code{gtk-widget-modify-style}. @table @var @item widget a @code{}. @item state the state for which to set the foreground color. @item color the color to assign (does not need to be allocated), or @samp{@code{#f}} to undo the effect of previous calls to of @code{gtk-widget-modify-fg}. @end table @end deffn @deffn Function gtk-widget-modify-bg (self@tie{}@code{}) (state@tie{}@code{}) (color@tie{}@code{}) @deffnx Method modify-bg Sets the background color for a widget in a particular state. All other style values are left untouched. See also @code{gtk-widget-modify-style}. Note that "no window" widgets (which have the @samp{GTK_NO_WINDOW} flag set) draw on their parent container's window and thus may not draw any background themselves. This is the case for e.g. @code{}. To modify the background of such widgets, you have to set the background color on their parent; if you want to set the background of a rectangular area around a label, try placing the label in a @code{} widget and setting the background color on that. @table @var @item widget a @code{}. @item state the state for which to set the background color. @item color the color to assign (does not need to be allocated), or @samp{@code{#f}} to undo the effect of previous calls to of @code{gtk-widget-modify-bg}. @end table @end deffn @deffn Function gtk-widget-modify-text (self@tie{}@code{}) (state@tie{}@code{}) (color@tie{}@code{}) @deffnx Method modify-text Sets the text color for a widget in a particular state. All other style values are left untouched. The text color is the foreground color used along with the base color (see @code{gtk-widget-modify-base}) for widgets such as @code{} and @code{}. See also @code{gtk-widget-modify-style}. @table @var @item widget a @code{}. @item state the state for which to set the text color. @item color the color to assign (does not need to be allocated), or @samp{@code{#f}} to undo the effect of previous calls to of @code{gtk-widget-modify-text}. @end table @end deffn @deffn Function gtk-widget-modify-base (self@tie{}@code{}) (state@tie{}@code{}) (color@tie{}@code{}) @deffnx Method modify-base Sets the base color for a widget in a particular state. All other style values are left untouched. The base color is the background color used along with the text color (see @code{gtk-widget-modify-text}) for widgets such as @code{} and @code{}. See also @code{gtk-widget-modify-style}. Note that "no window" widgets (which have the @samp{GTK_NO_WINDOW} flag set) draw on their parent container's window and thus may not draw any background themselves. This is the case for e.g. @code{}. To modify the background of such widgets, you have to set the base color on their parent; if you want to set the background of a rectangular area around a label, try placing the label in a @code{} widget and setting the base color on that. @table @var @item widget a @code{}. @item state the state for which to set the base color. @item color the color to assign (does not need to be allocated), or @samp{@code{#f}} to undo the effect of previous calls to of @code{gtk-widget-modify-base}. @end table @end deffn @deffn Function gtk-widget-modify-font (self@tie{}@code{}) (font_desc@tie{}@code{}) @deffnx Method modify-font Sets the font to use for a widget. All other style values are left untouched. See also @code{gtk-widget-modify-style}. @table @var @item widget a @code{} @item font-desc the font description to use, or @samp{@code{#f}} to undo the effect of previous calls to @code{gtk-widget-modify-font}. @end table @end deffn @deffn Function gtk-widget-create-pango-context (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{}) @deffnx Method create-pango-context Creates a new @code{} with the appropriate font map, font description, and base direction for drawing text for this widget. See also @code{gtk-widget-get-pango-context}. @table @var @item widget a @code{} @item ret the new @code{} @end table @end deffn @deffn Function gtk-widget-get-pango-context (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{}) @deffnx Method get-pango-context Gets a @code{} with the appropriate font map, font description, and base direction for this widget. Unlike the context returned by @code{gtk-widget-create-pango-context}, this context is owned by the widget (it can be used until the screen for the widget changes or the widget is removed from its toplevel), and will be updated to match any changes to the widget's attributes. If you create and keep a @code{} using this context, you must deal with changes to the context by calling @code{pango-layout-context-changed} on the layout in response to the ::style-set and ::direction-changed signals for the widget. @table @var @item widget a @code{} @item ret the @code{} for the widget. @end table @end deffn @deffn Function gtk-widget-create-pango-layout (self@tie{}@code{}) (text@tie{}@code{mchars}) @result{}@tie{} (ret@tie{}@code{}) @deffnx Method create-pango-layout Creates a new @code{} with the appropriate font map, font description, and base direction for drawing text for this widget. If you keep a @code{} created in this way around, in order to notify the layout of changes to the base direction or font of this widget, you must call @code{pango-layout-context-changed} in response to the ::style-set and ::direction-changed signals for the widget. @table @var @item widget a @code{} @item text text to set on the layout (can be @samp{@code{#f}}) @item ret the new @code{} @end table @end deffn @deffn Function gtk-widget-render-icon (self@tie{}@code{}) (stock_id@tie{}@code{mchars}) (size@tie{}@code{}) (detail@tie{}@code{mchars}) @result{}@tie{} (ret@tie{}@code{}) @deffnx Method render-icon A convenience function that uses the theme engine and RC file settings for @var{widget} to look up @var{stock-id} and render it to a pixbuf. @var{stock-id} should be a stock icon ID such as @code{} or @code{}. @var{size} should be a size such as @code{}. @var{detail} should be a string that identifies the widget or code doing the rendering, so that theme engines can special-case rendering for that widget or code. The pixels in the returned @code{} are shared with the rest of the application and should not be modified. The pixbuf should be freed after use with @code{g-object-unref}. @table @var @item widget a @code{} @item stock-id a stock ID @item size a stock size. A size of (GtkIconSize)-1 means render at the size of the source and don't scale (if there are multiple source sizes, GTK+ picks one of the available sizes). @item detail render detail to pass to theme engine @item ret a new pixbuf, or @samp{@code{#f}} if the stock ID wasn't known @end table @end deffn @deffn Function gtk-widget-pop-composite-child Cancels the effect of a previous call to @code{gtk-widget-push-composite-child}. @end deffn @deffn Function gtk-widget-push-composite-child Makes all newly-created widgets as composite children until the corresponding @code{gtk-widget-pop-composite-child} call. A composite child is a child that's an implementation detail of the container it's inside and should not be visible to people using the container. Composite children aren't treated differently by GTK (but see @code{gtk-container-foreach} vs. @code{gtk-container-forall}), but e.g. GUI builders might want to treat them in a different way. Here is a simple example: @example gtk_widget_push_composite_child (); scrolled_window->hscrollbar = gtk_hscrollbar_new (hadjustment); gtk_widget_set_composite_name (scrolled_window->hscrollbar, "hscrollbar"); gtk_widget_pop_composite_child (); gtk_widget_set_parent (scrolled_window->hscrollbar, GTK_WIDGET (scrolled_window)); g_object_ref (scrolled_window->hscrollbar); @end example @end deffn @deffn Function gtk-widget-queue-draw-area (self@tie{}@code{}) (x@tie{}@code{int}) (y@tie{}@code{int}) (width@tie{}@code{int}) (height@tie{}@code{int}) @deffnx Method queue-draw-area Invalidates the rectangular area of @var{widget} defined by @var{x}, @var{y}, @var{width} and @var{height} by calling @code{gdk-window-invalidate-rect} on the widget's window and all its child windows. Once the main loop becomes idle (after the current batch of events has been processed, roughly), the window will receive expose events for the union of all regions that have been invalidated. Normally you would only use this function in widget implementations. You might also use it, or @code{gdk-window-invalidate-rect} directly, to schedule a redraw of a @code{} or some portion thereof. Frequently you can just call @code{gdk-window-invalidate-rect} or @code{gdk-window-invalidate-region} instead of this function. Those functions will invalidate only a single window, instead of the widget and all its children. The advantage of adding to the invalidated region compared to simply drawing immediately is efficiency; using an invalid region ensures that you only have to redraw one time. @table @var @item widget a @code{} @item x x coordinate of upper-left corner of rectangle to redraw @item y y coordinate of upper-left corner of rectangle to redraw @item width width of region to draw @item height height of region to draw @end table @end deffn @deffn Function gtk-widget-reset-shapes (self@tie{}@code{}) @deffnx Method reset-shapes Recursively resets the shape on this widget and its descendants. @table @var @item widget a @code{}. @end table @end deffn @deffn Function gtk-widget-set-app-paintable (self@tie{}@code{}) (app_paintable@tie{}@code{bool}) @deffnx Method set-app-paintable Sets whether the application intends to draw on the widget in an ::expose-event handler. This is a hint to the widget and does not affect the behavior of the GTK+ core; many widgets ignore this flag entirely. For widgets that do pay attention to the flag, such as @code{} and @code{}, the effect is to suppress default themed drawing of the widget's background. (Children of the widget will still be drawn.) The application is then entirely responsible for drawing the widget background. Note that the background is still drawn when the widget is mapped. If this is not suitable (e.g. because you want to make a transparent window using an RGBA visual), you can work around this by doing: @example gtk_widget_realize (window); gdk_window_set_back_pixmap (window->window, NULL, FALSE); gtk_widget_show (window); @end example @table @var @item widget a @code{} @item app-paintable @samp{@code{#t}} if the application will paint on the widget @end table @end deffn @deffn Function gtk-widget-set-double-buffered (self@tie{}@code{}) (double_buffered@tie{}@code{bool}) @deffnx Method set-double-buffered Widgets are double buffered by default; you can use this function to turn off the buffering. "Double buffered" simply means that @code{gdk-window-begin-paint-region} and @code{gdk-window-end-paint} are called automatically around expose events sent to the widget. @code{gdk-window-begin-paint} diverts all drawing to a widget's window to an offscreen buffer, and @code{gdk-window-end-paint} draws the buffer to the screen. The result is that users see the window update in one smooth step, and don't see individual graphics primitives being rendered. In very simple terms, double buffered widgets don't flicker, so you would only use this function to turn off double buffering if you had special needs and really knew what you were doing. Note: if you turn off double-buffering, you have to handle expose events, since even the clearing to the background color or pixmap will not happen automatically (as it is done in @code{gdk-window-begin-paint}). @table @var @item widget a @code{} @item double-buffered @samp{@code{#t}} to double-buffer a widget @end table @end deffn @deffn Function gtk-widget-set-redraw-on-allocate (self@tie{}@code{}) (redraw_on_allocate@tie{}@code{bool}) @deffnx Method set-redraw-on-allocate Sets whether the entire widget is queued for drawing when its size allocation changes. By default, this setting is @samp{@code{#t}} and the entire widget is redrawn on every size change. If your widget leaves the upper left unchanged when made bigger, turning this setting on will improve performance. Note that for @samp{NO_WINDOW} widgets setting this flag to @samp{@code{#f}} turns off all allocation on resizing: the widget will not even redraw if its position changes; this is to allow containers that don't draw anything to avoid excess invalidations. If you set this flag on a @samp{NO_WINDOW} widget that @emph{does} draw on @var{widget->window}, you are responsible for invalidating both the old and new allocation of the widget when the widget is moved and responsible for invalidating regions newly when the widget increases size. @table @var @item widget a @code{} @item redraw-on-allocate if @samp{@code{#t}}, the entire widget will be redrawn when it is allocated to a new size. Otherwise, only the new portion of the widget will be redrawn. @end table @end deffn @deffn Function gtk-widget-set-composite-name (self@tie{}@code{}) (name@tie{}@code{mchars}) @deffnx Method set-composite-name Sets a widgets composite name. The widget must be a composite child of its parent; see @code{gtk-widget-push-composite-child}. @table @var @item widget a @code{}. @item name the name to set. @end table @end deffn @deffn Function gtk-widget-set-scroll-adjustments (self@tie{}@code{}) (hadjustment@tie{}@code{}) (vadjustment@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{bool}) @deffnx Method set-scroll-adjustments For widgets that support scrolling, sets the scroll adjustments and returns @samp{@code{#t}}. For widgets that don't support scrolling, does nothing and returns @samp{@code{#f}}. Widgets that don't support scrolling can be scrolled by placing them in a @code{}, which does support scrolling. @table @var @item widget a @code{} @item hadjustment an adjustment for horizontal scrolling, or @samp{@code{#f}} @item vadjustment an adjustment for vertical scrolling, or @samp{@code{#f}} @item ret @samp{@code{#t}} if the widget supports scrolling @end table @end deffn @deffn Function gtk-widget-mnemonic-activate (self@tie{}@code{}) (group_cycling@tie{}@code{bool}) @result{}@tie{} (ret@tie{}@code{bool}) @deffnx Method mnemonic-activate @table @var @item widget @item group-cycling @item ret @end table @end deffn @deffn Function gtk-widget-region-intersect (self@tie{}@code{}) (region@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{}) @deffnx Method region-intersect Computes the intersection of a @var{widget}'s area and @var{region}, returning the intersection. The result may be empty, use @code{gdk-region-empty} to check. @table @var @item widget a @code{} @item region a @code{}, in the same coordinate system as @var{widget->allocation}. That is, relative to @var{widget->window} for @samp{NO_WINDOW} widgets; relative to the parent window of @var{widget->window} for widgets with their own window. @item ret A newly allocated region holding the intersection of @var{widget} and @var{region}. The coordinates of the return value are relative to @var{widget->window} for @samp{NO_WINDOW} widgets, and relative to the parent window of @var{widget->window} for widgets with their own window. @end table @end deffn @deffn Function gtk-widget-send-expose (self@tie{}@code{}) (event@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{int}) @deffnx Method send-expose Very rarely-used function. This function is used to emit an expose event signals on a widget. This function is not normally used directly. The only time it is used is when propagating an expose event to a child @samp{NO_WINDOW} widget, and that is normally done using @code{gtk-container-propagate-expose}. If you want to force an area of a window to be redrawn, use @code{gdk-window-invalidate-rect} or @code{gdk-window-invalidate-region}. To cause the redraw to be done immediately, follow that call with a call to @code{gdk-window-process-updates}. @table @var @item widget a @code{} @item event a expose @code{} @item ret return from the event signal emission (@samp{@code{#t}} if the event was handled) @end table @end deffn @deffn Function gtk-widget-style-get-property (self@tie{}@code{}) (property_name@tie{}@code{mchars}) (value@tie{}@code{}) @deffnx Method style-get-property Gets the value of a style property of @var{widget}. @table @var @item widget a @code{} @item property-name the name of a style property @item value location to return the property value @end table @end deffn @deffn Function gtk-widget-get-accessible (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{}) @deffnx Method get-accessible Returns the accessible object that describes the widget to an assistive technology. If no accessibility library is loaded (i.e. no ATK implementation library is loaded via @env{GTK_MODULES} or via another application library, such as libgnome), then this @code{} instance may be a no-op. Likewise, if no class-specific @code{} implementation is available for the widget instance in question, it will inherit an @code{} implementation from the first ancestor class for which such an implementation is defined. The documentation of the @uref{http://developer.gnome.org/doc/API/2.0/atk/index.html,ATK} library contains more information about accessible objects and their uses. @table @var @item widget a @code{} @item ret the @code{} associated with @var{widget} @end table @end deffn @deffn Function gtk-widget-child-focus (self@tie{}@code{}) (direction@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{bool}) @deffnx Method child-focus This function is used by custom widget implementations; if you're writing an app, you'd use @code{gtk-widget-grab-focus} to move the focus to a particular widget, and @code{gtk-container-set-focus-chain} to change the focus tab order. So you may want to investigate those functions instead. @code{gtk-widget-child-focus} is called by containers as the user moves around the window using keyboard shortcuts. @var{direction} indicates what kind of motion is taking place (up, down, left, right, tab forward, tab backward). @code{gtk-widget-child-focus} invokes the "focus" signal on @code{}; widgets override the default handler for this signal in order to implement appropriate focus behavior. The "focus" default handler for a widget should return @samp{@code{#t}} if moving in @var{direction} left the focus on a focusable location inside that widget, and @samp{@code{#f}} if moving in @var{direction} moved the focus outside the widget. If returning @samp{@code{#t}}, widgets normally call @code{gtk-widget-grab-focus} to place the focus accordingly; if returning @samp{@code{#f}}, they don't modify the current focus location. This function replaces @code{gtk-container-focus} from GTK+ 1.2. It was necessary to check that the child was visible, sensitive, and focusable before calling @code{gtk-container-focus}. @code{gtk-widget-child-focus} returns @samp{@code{#f}} if the widget is not currently in a focusable state, so there's no need for those checks. @table @var @item widget a @code{} @item direction direction of focus movement @item ret @samp{@code{#t}} if focus ended up inside @var{widget} @end table @end deffn @deffn Function gtk-widget-child-notify (self@tie{}@code{}) (child_property@tie{}@code{mchars}) @deffnx Method child-notify Emits a "child-notify" signal for the child property@var{child-property} on @var{widget}. This is the analogue of @code{g-object-notify} for child properties. @table @var @item widget a @code{} @item child-property the name of a child property installed on the class of @var{widget}'s parent. @end table @end deffn @deffn Function gtk-widget-freeze-child-notify (self@tie{}@code{}) @deffnx Method freeze-child-notify Stops emission of "child-notify" signals on @var{widget}. The signals are queued until @code{gtk-widget-thaw-child-notify} is called on @var{widget}. This is the analogue of @code{g-object-freeze-notify} for child properties. @table @var @item widget a @code{} @end table @end deffn @deffn Function gtk-widget-get-child-visible (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{bool}) @deffnx Method get-child-visible Gets the value set with @code{gtk-widget-set-child-visible}. If you feel a need to use this function, your code probably needs reorganization. This function is only useful for container implementations and never should be called by an application. @table @var @item widget a @code{} @item ret @samp{@code{#t}} if the widget is mapped with the parent. @end table @end deffn @deffn Function gtk-widget-get-parent (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{}) @deffnx Method get-parent Returns the parent container of @var{widget}. @table @var @item widget a @code{} @item ret the parent container of @var{widget}, or @samp{@code{#f}} @end table @end deffn @deffn Function gtk-widget-get-settings (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{}) @deffnx Method get-settings Gets the settings object holding the settings (global property settings, RC file information, etc) used for this widget. Note that this function can only be called when the @code{} is attached to a toplevel, since the settings object is specific to a particular @code{}. @table @var @item widget a @code{} @item ret the relevant @code{} object @end table @end deffn @deffn Function gtk-widget-get-clipboard (self@tie{}@code{}) (selection@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{}) @deffnx Method get-clipboard Returns the clipboard object for the given selection to be used with @var{widget}. @var{widget} must have a @code{} associated with it, so must be attached to a toplevel window. @table @var @item widget a @code{} @item selection a @code{} which identifies the clipboard to use. @samp{GDK_SELECTION_CLIPBOARD} gives the default clipboard. Another common value is @samp{GDK_SELECTION_PRIMARY}, which gives the primary X selection. @item ret the appropriate clipboard object. If no clipboard already exists, a new one will be created. Once a clipboard object has been created, it is persistent for all time. @end table Since 2.2 @end deffn @deffn Function gtk-widget-get-display (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{}) @deffnx Method get-display Get the @code{} for the toplevel window associated with this widget. This function can only be called after the widget has been added to a widget hierarchy with a @code{} at the top. In general, you should only create display specific resources when a widget has been realized, and you should free those resources when the widget is unrealized. @table @var @item widget a @code{} @item ret the @code{} for the toplevel for this widget. @end table Since 2.2 @end deffn @deffn Function gtk-widget-get-root-window (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{}) @deffnx Method get-root-window Get the root window where this widget is located. This function can only be called after the widget has been added to a widget heirarchy with @code{} at the top. The root window is useful for such purposes as creating a popup @code{} associated with the window. In general, you should only create display specific resources when a widget has been realized, and you should free those resources when the widget is unrealized. @table @var @item widget a @code{} @item ret the @code{} root window for the toplevel for this widget. @end table Since 2.2 @end deffn @deffn Function gtk-widget-get-screen (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{}) @deffnx Method get-screen Get the @code{} from the toplevel window associated with this widget. This function can only be called after the widget has been added to a widget hierarchy with a @code{} at the top. In general, you should only create screen specific resources when a widget has been realized, and you should free those resources when the widget is unrealized. @table @var @item widget a @code{} @item ret the @code{} for the toplevel for this widget. @end table Since 2.2 @end deffn @deffn Function gtk-widget-has-screen (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{bool}) @deffnx Method has-screen Checks whether there is a @code{} is associated with this widget. All toplevel widgets have an associated screen, and all widgets added into a heirarchy with a toplevel window at the top. @table @var @item widget a @code{} @item ret @samp{@code{#t}} if there is a @code{} associcated with the widget. @end table Since 2.2 @end deffn @deffn Function gtk-widget-get-size-request (self@tie{}@code{}) @result{}@tie{} (width@tie{}@code{int}) (height@tie{}@code{int}) @deffnx Method get-size-request Gets the size request that was explicitly set for the widget using @code{gtk-widget-set-size-request}. A value of -1 stored in @var{width} or @var{height} indicates that that dimension has not been set explicitly and the natural requisition of the widget will be used intead. See @code{gtk-widget-set-size-request}. To get the size a widget will actually use, call @code{gtk-widget-size-request} instead of this function. @table @var @item widget a @code{} @item width return location for width, or @samp{@code{#f}} @item height return location for height, or @samp{@code{#f}} @end table @end deffn @deffn Function gtk-widget-set-child-visible (self@tie{}@code{}) (is_visible@tie{}@code{bool}) @deffnx Method set-child-visible Sets whether @var{widget} should be mapped along with its when its parent is mapped and @var{widget} has been shown with @code{gtk-widget-show}. The child visibility can be set for widget before it is added to a container with @code{gtk-widget-set-parent}, to avoid mapping children unnecessary before immediately unmapping them. However it will be reset to its default state of @samp{@code{#t}} when the widget is removed from a container. Note that changing the child visibility of a widget does not queue a resize on the widget. Most of the time, the size of a widget is computed from all visible children, whether or not they are mapped. If this is not the case, the container can queue a resize itself. This function is only useful for container implementations and never should be called by an application. @table @var @item widget a @code{} @item is-visible if @samp{@code{#t}}, @var{widget} should be mapped along with its parent. @end table @end deffn @deffn Function gtk-widget-set-size-request (self@tie{}@code{}) (width@tie{}@code{int}) (height@tie{}@code{int}) @deffnx Method set-size-request Sets the minimum size of a widget; that is, the widget's size request will be @var{width} by @var{height}. You can use this function to force a widget to be either larger or smaller than it normally would be. In most cases, @code{gtk-window-set-default-size} is a better choice for toplevel windows than this function; setting the default size will still allow users to shrink the window. Setting the size request will force them to leave the window at least as large as the size request. When dealing with window sizes, @code{gtk-window-set-geometry-hints} can be a useful function as well. Note the inherent danger of setting any fixed size - themes, translations into other languages, different fonts, and user action can all change the appropriate size for a given widget. So, it's basically impossible to hardcode a size that will always be correct. The size request of a widget is the smallest size a widget can accept while still functioning well and drawing itself correctly. However in some strange cases a widget may be allocated less than its requested size, and in many cases a widget may be allocated more space than it requested. If the size request in a given direction is -1 (unset), then the "natural" size request of the widget will be used instead. Widgets can't actually be allocated a size less than 1 by 1, but you can pass 0,0 to this function to mean "as small as possible." @table @var @item widget a @code{} @item width width @var{widget} should request, or -1 to unset @item height height @var{widget} should request, or -1 to unset @end table @end deffn @deffn Function gtk-widget-thaw-child-notify (self@tie{}@code{}) @deffnx Method thaw-child-notify Reverts the effect of a previous call to @code{gtk-widget-freeze-child-notify}. This causes all queued "child-notify" signals on @var{widget} to be emitted. @table @var @item widget a @code{} @end table @end deffn @deffn Function gtk-widget-set-no-show-all (self@tie{}@code{}) (no_show_all@tie{}@code{bool}) @deffnx Method set-no-show-all Sets the "no_show_all" property, which determines whether calls to @code{gtk-widget-show-all} and @code{gtk-widget-hide-all} will affect this widget. This is mostly for use in constructing widget hierarchies with externally controlled visibility, see @code{}. @table @var @item widget a @code{} @item no-show-all the new value for the "no_show_all" property @end table Since 2.4 @end deffn @deffn Function gtk-widget-get-no-show-all (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{bool}) @deffnx Method get-no-show-all Returns the current value of the "no_show_all" property, which determines whether calls to @code{gtk-widget-show-all} and @code{gtk-widget-hide-all} will affect this widget. @table @var @item widget a @code{} @item ret the current value of the "no_show_all" property. @end table Since 2.4 @end deffn @deffn Function gtk-widget-list-mnemonic-labels (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{glist-of}) @deffnx Method list-mnemonic-labels Returns a newly allocated list of the widgets, normally labels, for which this widget is a the target of a mnemonic (see for example, @code{gtk-label-set-mnemonic-widget}). The widgets in the list are not individually referenced. If you want to iterate through the list and perform actions involving callbacks that might destroy the widgets, you @emph{must} call @samp{g_list_foreach (result, (GFunc)g_object_ref, NULL)} first, and then unref all the widgets afterwards. @table @var @item widget a @code{} @item ret the list of mnemonic labels; free this list with @code{g-list-free} when you are done with it. @end table Since 2.4 @end deffn @deffn Function gtk-widget-add-mnemonic-label (self@tie{}@code{}) (label@tie{}@code{}) @deffnx Method add-mnemonic-label Adds a widget to the list of mnemonic labels for this widget. (See @code{gtk-widget-list-mnemonic-labels}). Note the list of mnemonic labels for the widget is cleared when the widget is destroyed, so the caller must make sure to update its internal state at this point as well, by using a connection to the ::destroy signal or a weak notifier. @table @var @item widget a @code{} @item label a @code{} that acts as a mnemonic label for @var{widget}. @end table Since 2.4 @end deffn @deffn Function gtk-widget-remove-mnemonic-label (self@tie{}@code{}) (label@tie{}@code{}) @deffnx Method remove-mnemonic-label Removes a widget from the list of mnemonic labels for this widget. (See @code{gtk-widget-list-mnemonic-labels}). The widget must have previously been added to the list with @code{gtk-widget-add-mnemonic-label}. @table @var @item widget a @code{} @item label a @code{} that was previously set as a mnemnic label for @var{widget} with @code{gtk-widget-add-mnemonic-label}. @end table Since 2.4 @end deffn @deffn Function gtk-widget-get-action (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{}) @deffnx Method get-action Returns the @code{} that @var{widget} is a proxy for. See also @code{gtk-action-get-proxies}. @table @var @item widget a @code{} @item ret the action that a widget is a proxy for, or @samp{@code{#f}}, if it is not attached to an action. @end table Since 2.10 @end deffn @deffn Function gtk-widget-is-composited (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{bool}) @deffnx Method is-composited Whether @var{widget} can rely on having its alpha channel drawn correctly. On X11 this function returns whether a compositing manager is running for @var{widget}'s screen @table @var @item widget a @code{} @item ret @samp{@code{#t}} if the widget can rely on its alpha channel being drawn correctly. @end table Since 2.10 @end deffn @deffn Function gtk-requisition-copy (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{}) Copies a @code{}. @table @var @item requisition a @code{}. @item ret a copy of @var{requisition}. @end table @end deffn @c %end of fragment guile-gnome-platform-2.16.2/gtk/doc/gtk/section-gtkdialog.xml.texi0000644000175000017500000000743311670374302025416 0ustar00wingowingo00000000000000 @c %start of fragment @node GtkDialog @chapter GtkDialog Create popup windows @section Overview Dialog boxes are a convenient way to prompt the user for a small amount of input, e.g. to display a message, ask a question, or anything else that does not require extensive effort on the user's part. GTK+ treats a dialog as a window split vertically. The top section is a @code{}, and is where widgets such as a @code{} or a @code{} should be packed. The bottom area is known as the . This is generally used for packing buttons into the dialog which may perform functions such as cancel, ok, or apply. The two areas are separated by a @code{}. @code{} boxes are created with a call to @code{gtk-dialog-new} or @code{gtk-dialog-new-with-buttons}. @code{gtk-dialog-new-with-buttons} is recommended; it allows you to set the dialog title, some convenient flags, and add simple buttons. If 'dialog' is a newly created dialog, the two primary areas of the window can be accessed as @samp{GTK_DIALOG(dialog)->vbox} and @samp{GTK_DIALOG(dialog)->action_area}, as can be seen from the example, below. A 'modal' dialog (that is, one which freezes the rest of the application from user input), can be created by calling @code{gtk-window-set-modal} on the dialog. Use the @code{gtk-window} macro to cast the widget returned from @code{gtk-dialog-new} into a @code{}. When using @code{gtk-dialog-new-with-buttons} you can also pass the @code{} flag to make a dialog modal. If you add buttons to @code{} using @code{gtk-dialog-new-with-buttons}, @code{gtk-dialog-add-button}, @code{gtk-dialog-add-buttons}, or @code{gtk-dialog-add-action-widget}, clicking the button will emit a signal called "response" with a response ID that you specified. GTK+ will never assign a meaning to positive response IDs; these are entirely user-defined. But for convenience, you can use the response IDs in the @code{} enumeration (these all have values less than zero). If a dialog receives a delete event, the "response" signal will be emitted with a response ID of @code{}. If you want to block waiting for a dialog to return before returning control flow to your code, you can call @code{gtk-dialog-run}. This function enters a recursive main loop and waits for the user to respond to the dialog, returning the response ID corresponding to the button the user clicked. For the simple dialog in the following example, in reality you'd probably use @code{} to save yourself some effort. But you'd need to create the dialog contents manually if you had more than a simple message in the dialog. @example /* Function to open a dialog box displaying the message provided. */ void quick_message (gchar *message) @{ GtkWidget *dialog, *label; /* Create the widgets */ dialog = gtk_dialog_new_with_buttons ("Message", main_application_window, GTK_DIALOG_DESTROY_WITH_PARENT, GTK_STOCK_OK, GTK_RESPONSE_NONE, NULL); label = gtk_label_new (message); /* Ensure that the dialog box is destroyed when the user responds. */ g_signal_connect_swapped (dialog, "response", G_CALLBACK (gtk_widget_destroy), dialog); /* Add the label, and show everything we've added to the dialog. */ gtk_container_add (GTK_CONTAINER (GTK_DIALOG(dialog)->vbox), label); gtk_widget_show_all (dialog); @} @end example @section Usage @include defuns-gtkdialog.xml.texi @c %end of fragment guile-gnome-platform-2.16.2/gtk/doc/gtk/section-gtkcurve.xml.texi0000644000175000017500000000216111670374302025274 0ustar00wingowingo00000000000000 @c %start of fragment @node GtkCurve @chapter GtkCurve Allows direct editing of a curve @section Overview This widget is considered too specialized/little-used for GTK+, and will in the future be moved to some other package. If your application needs this widget, feel free to use it, as the widget does work and is useful in some applications; it's just not of general interest. However, we are not accepting new features for the widget, and it will eventually move out of the GTK+ distribution. The @code{} widget allows the user to edit a curve covering a range of values. It is typically used to fine-tune color balances in graphics applications like the Gimp. The @code{} widget has 3 modes of operation - spline, linear and free. In spline mode the user places points on the curve which are automatically connected together into a smooth curve. In linear mode the user places points on the curve which are connected by straight lines. In free mode the user can draw the points of the curve freely, and they are not connected at all. @section Usage @include defuns-gtkcurve.xml.texi @c %end of fragment guile-gnome-platform-2.16.2/gtk/doc/gtk/section-gtktextbuffer.xml.texi0000644000175000017500000000060011670374303026323 0ustar00wingowingo00000000000000 @c %start of fragment @node GtkTextBuffer @chapter GtkTextBuffer Stores attributed text for display in a @section Overview You may wish to begin by reading the text widget conceptual overview which gives an overview of all the objects and data types related to the text widget and how they work together. @section Usage @include defuns-gtktextbuffer.xml.texi @c %end of fragment guile-gnome-platform-2.16.2/gtk/doc/gtk/section-gtkcolorbutton.xml.texi0000644000175000017500000000065311670374302026526 0ustar00wingowingo00000000000000 @c %start of fragment @node GtkColorButton @chapter GtkColorButton A button to launch a color selection dialog @section Overview The @code{} is a button which displays the currently selected color an allows to open a color selection dialog to change the color. It is suitable widget for selecting a color in a preference dialog. @section Usage @include defuns-gtkcolorbutton.xml.texi @c %end of fragment guile-gnome-platform-2.16.2/gtk/doc/gtk/defuns-gtkstyle.xml.texi0000644000175000017500000006514411670374302025142 0ustar00wingowingo00000000000000 @c %start of fragment @deftp Class Derives from @code{}. This class defines no direct slots. @end deftp @defop Signal realize Emitted when the style has been initialized for a particular colormap and depth. Connecting to this signal is probably seldom useful since most of the time applications and widgets only deal with styles that have been already realized. Since 2.4 @end defop @defop Signal unrealize Emitted when the aspects of the style specific to a particular colormap and depth are being cleaned up. A connection to this signal can be useful if a widget wants to cache objects like a @code{} as object data on @code{}. This signal provides a convenient place to free such cached objects. Since 2.4 @end defop @deftp Class Derives from @code{}. This class defines no direct slots. @end deftp @deffn Function gtk-style-new @result{}@tie{} (ret@tie{}@code{}) Creates a new @code{}. @table @var @item ret a new @code{}. @end table @end deffn @deffn Function gtk-style-copy (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{}) @deffnx Method copy @table @var @item style @item ret @end table @end deffn @deffn Function gtk-style-attach (self@tie{}@code{}) (window@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{}) @deffnx Method attach Attaches a style to a window; this process allocates the colors and creates the GC's for the style - it specializes it to a particular visual and colormap. The process may involve the creation of a new style if the style has already been attached to a window with a different style and colormap. Since this function may return a new object, you have to use it in the following way: @samp{style = gtk_style_attach (style, window)} @table @var @item style a @code{}. @item window a @code{}. @item ret Either @var{style}, or a newly-created @code{}. If the style is newly created, the style parameter will be dereferenced, and the new style will have a reference count belonging to the caller. @end table @end deffn @deffn Function gtk-style-detach (self@tie{}@code{}) @deffnx Method detach Detaches a style from a window. If the style is not attached to any windows anymore, it is unrealized. See @code{gtk-style-attach}. @table @var @item style a @code{} @end table @end deffn @deffn Function gtk-style-set-background (self@tie{}@code{}) (window@tie{}@code{}) (state_type@tie{}@code{}) @deffnx Method set-background Sets the background of @var{window} to the background color or pixmap specified by @var{style} for the given state. @table @var @item style a @code{} @item window a @code{} @item state-type a state @end table @end deffn @deffn Function gtk-style-apply-default-background (self@tie{}@code{}) (window@tie{}@code{}) (set_bg@tie{}@code{bool}) (state_type@tie{}@code{}) (area@tie{}@code{}) (x@tie{}@code{int}) (y@tie{}@code{int}) (width@tie{}@code{int}) (height@tie{}@code{int}) @deffnx Method apply-default-background @table @var @item style @item window @item set-bg @item state-type @item area @item x @item y @item width @item height @end table @end deffn @deffn Function gtk-style-lookup-color (self@tie{}@code{}) (color_name@tie{}@code{mchars}) (color@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{bool}) @deffnx Method lookup-color Looks up @var{color-name} in the style's logical color mappings, filling in @var{color} and returning @samp{@code{#t}} if found, otherwise returning @samp{@code{#f}}. Do not cache the found mapping, because it depends on the @code{} and might change when a theme switch occurs. @table @var @item style a @code{} @item color-name the name of the logical color to look up @item color the @code{} to fill in @item ret @samp{@code{#t}} if the mapping was found. @end table Since 2.10 @end deffn @deffn Function gtk-style-lookup-icon-set (self@tie{}@code{}) (stock_id@tie{}@code{mchars}) @result{}@tie{} (ret@tie{}@code{}) @deffnx Method lookup-icon-set @table @var @item style @item stock-id @item ret @end table @end deffn @deffn Function gtk-style-render-icon (self@tie{}@code{}) (source@tie{}@code{}) (direction@tie{}@code{}) (state@tie{}@code{}) (size@tie{}@code{}) (widget@tie{}@code{}) (detail@tie{}@code{mchars}) @result{}@tie{} (ret@tie{}@code{}) @deffnx Method render-icon Renders the icon specified by @var{source} at the given @var{size} according to the given parameters and returns the result in a pixbuf. @table @var @item style a @code{} @item source the @code{} specifying the icon to render @item direction a text direction @item state a state @item size the size to render the icon at. A size of (GtkIconSize)-1 means render at the size of the source and don't scale. @item widget the widget @item detail a style detail @item ret a newly-created @code{} containing the rendered icon @end table @end deffn @deffn Function gtk-paint-arrow (self@tie{}@code{}) (window@tie{}@code{}) (state_type@tie{}@code{}) (shadow_type@tie{}@code{}) (area@tie{}@code{}) (widget@tie{}@code{}) (detail@tie{}@code{mchars}) (arrow_type@tie{}@code{}) (fill@tie{}@code{bool}) (x@tie{}@code{int}) (y@tie{}@code{int}) (width@tie{}@code{int}) (height@tie{}@code{int}) Draws an arrow in the given rectangle on @var{window} using the given parameters. @var{arrow-type} determines the direction of the arrow. @table @var @item style a @code{} @item window a @code{} @item state-type a state @item shadow-type the type of shadow to draw @item area clip rectangle, or @samp{@code{#f}} if the output should not be clipped @item widget the widget (may be @samp{@code{#f}}) @item detail a style detail (may be @samp{@code{#f}}) @item arrow-type the type of arrow to draw @item fill @samp{@code{#t}} if the arrow tip should be filled @item x x origin of the rectangle to draw the arrow in @item y y origin of the rectangle to draw the arrow in @item width width of the rectangle to draw the arrow in @item height height of the rectangle to draw the arrow in @end table @end deffn @deffn Function gtk-paint-box (self@tie{}@code{}) (window@tie{}@code{}) (state_type@tie{}@code{}) (shadow_type@tie{}@code{}) (area@tie{}@code{}) (widget@tie{}@code{}) (detail@tie{}@code{mchars}) (x@tie{}@code{int}) (y@tie{}@code{int}) (width@tie{}@code{int}) (height@tie{}@code{int}) Draws a box on @var{window} with the given parameters. @table @var @item style a @code{} @item window a @code{} @item state-type a state @item shadow-type the type of shadow to draw @item area clip rectangle, or @samp{@code{#f}} if the output should not be clipped @item widget the widget (may be @samp{@code{#f}}) @item detail a style detail (may be @samp{@code{#f}}) @item x x origin of the box @item y y origin of the box @item width the width of the box @item height the height of the box @end table @end deffn @deffn Function gtk-paint-box-gap (self@tie{}@code{}) (window@tie{}@code{}) (state_type@tie{}@code{}) (shadow_type@tie{}@code{}) (area@tie{}@code{}) (widget@tie{}@code{}) (detail@tie{}@code{mchars}) (x@tie{}@code{int}) (y@tie{}@code{int}) (width@tie{}@code{int}) (height@tie{}@code{int}) (gap_side@tie{}@code{}) (gap_x@tie{}@code{int}) (gap_width@tie{}@code{int}) Draws a box in @var{window} using the given style and state and shadow type, leaving a gap in one side. @table @var @item style a @code{} @item window a @code{} @item state-type a state @item shadow-type type of shadow to draw @item area clip rectangle, or @samp{@code{#f}} if the output should not be clipped @item widget the widget (may be @samp{@code{#f}}) @item detail a style detail (may be @samp{@code{#f}}) @item x x origin of the rectangle @item y y origin of the rectangle @item width width of the rectangle @item height width of the rectangle @item gap-side side in which to leave the gap @item gap-x starting position of the gap @item gap-width width of the gap @end table @end deffn @deffn Function gtk-paint-check (self@tie{}@code{}) (window@tie{}@code{}) (state_type@tie{}@code{}) (shadow_type@tie{}@code{}) (area@tie{}@code{}) (widget@tie{}@code{}) (detail@tie{}@code{mchars}) (x@tie{}@code{int}) (y@tie{}@code{int}) (width@tie{}@code{int}) (height@tie{}@code{int}) Draws a check button indicator in the given rectangle on @var{window} with the given parameters. @table @var @item style a @code{} @item window a @code{} @item state-type a state @item shadow-type the type of shadow to draw @item area clip rectangle, or @samp{@code{#f}} if the output should not be clipped @item widget the widget (may be @samp{@code{#f}}) @item detail a style detail (may be @samp{@code{#f}}) @item x x origin of the rectangle to draw the check in @item y y origin of the rectangle to draw the check in @item width the width of the rectangle to draw the check in @item height the height of the rectangle to draw the check in @end table @end deffn @deffn Function gtk-paint-diamond (self@tie{}@code{}) (window@tie{}@code{}) (state_type@tie{}@code{}) (shadow_type@tie{}@code{}) (area@tie{}@code{}) (widget@tie{}@code{}) (detail@tie{}@code{mchars}) (x@tie{}@code{int}) (y@tie{}@code{int}) (width@tie{}@code{int}) (height@tie{}@code{int}) Draws a diamond in the given rectangle on @var{window} using the given parameters. @table @var @item style a @code{} @item window a @code{} @item state-type a state @item shadow-type the type of shadow to draw @item area clip rectangle, or @samp{@code{#f}} if the output should not be clipped @item widget the widget (may be @samp{@code{#f}}) @item detail a style detail (may be @samp{@code{#f}}) @item x x origin of the rectangle to draw the diamond in @item y y origin of the rectangle to draw the diamond in @item width width of the rectangle to draw the diamond in @item height height of the rectangle to draw the diamond in @end table @end deffn @deffn Function gtk-paint-extension (self@tie{}@code{}) (window@tie{}@code{}) (state_type@tie{}@code{}) (shadow_type@tie{}@code{}) (area@tie{}@code{}) (widget@tie{}@code{}) (detail@tie{}@code{mchars}) (x@tie{}@code{int}) (y@tie{}@code{int}) (width@tie{}@code{int}) (height@tie{}@code{int}) (gap_side@tie{}@code{}) Draws an extension, i.e. a notebook tab. @table @var @item style a @code{} @item window a @code{} @item state-type a state @item shadow-type type of shadow to draw @item area clip rectangle, or @samp{@code{#f}} if the output should not be clipped @item widget the widget (may be @samp{@code{#f}}) @item detail a style detail (may be @samp{@code{#f}}) @item x x origin of the extension @item y y origin of the extension @item width width of the extension @item height width of the extension @item gap-side the side on to which the extension is attached @end table @end deffn @deffn Function gtk-paint-flat-box (self@tie{}@code{}) (window@tie{}@code{}) (state_type@tie{}@code{}) (shadow_type@tie{}@code{}) (area@tie{}@code{}) (widget@tie{}@code{}) (detail@tie{}@code{mchars}) (x@tie{}@code{int}) (y@tie{}@code{int}) (width@tie{}@code{int}) (height@tie{}@code{int}) Draws a flat box on @var{window} with the given parameters. @table @var @item style a @code{} @item window a @code{} @item state-type a state @item shadow-type the type of shadow to draw @item area clip rectangle, or @samp{@code{#f}} if the output should not be clipped @item widget the widget (may be @samp{@code{#f}}) @item detail a style detail (may be @samp{@code{#f}}) @item x x origin of the box @item y y origin of the box @item width the width of the box @item height the height of the box @end table @end deffn @deffn Function gtk-paint-focus (self@tie{}@code{}) (window@tie{}@code{}) (state_type@tie{}@code{}) (area@tie{}@code{}) (widget@tie{}@code{}) (detail@tie{}@code{mchars}) (x@tie{}@code{int}) (y@tie{}@code{int}) (width@tie{}@code{int}) (height@tie{}@code{int}) Draws a focus indicator around the given rectangle on @var{window} using the given style. @table @var @item style a @code{} @item window a @code{} @item state-type a state @item area clip rectangle, or @samp{@code{#f}} if the output should not be clipped @item widget the widget (may be @samp{@code{#f}}) @item detail a style detail (may be @samp{@code{#f}}) @item x the x origin of the rectangle around which to draw a focus indicator @item y the y origin of the rectangle around which to draw a focus indicator @item width the width of the rectangle around which to draw a focus indicator @item height the height of the rectangle around which to draw a focus indicator @end table @end deffn @deffn Function gtk-paint-handle (self@tie{}@code{}) (window@tie{}@code{}) (state_type@tie{}@code{}) (shadow_type@tie{}@code{}) (area@tie{}@code{}) (widget@tie{}@code{}) (detail@tie{}@code{mchars}) (x@tie{}@code{int}) (y@tie{}@code{int}) (width@tie{}@code{int}) (height@tie{}@code{int}) (orientation@tie{}@code{}) Draws a handle as used in @code{} and @code{}. @table @var @item style a @code{} @item window a @code{} @item state-type a state @item shadow-type type of shadow to draw @item area clip rectangle, or @samp{@code{#f}} if the output should not be clipped @item widget the widget (may be @samp{@code{#f}}) @item detail a style detail (may be @samp{@code{#f}}) @item x x origin of the handle @item y y origin of the handle @item width with of the handle @item height height of the handle @item orientation the orientation of the handle @end table @end deffn @deffn Function gtk-paint-hline (self@tie{}@code{}) (window@tie{}@code{}) (state_type@tie{}@code{}) (area@tie{}@code{}) (widget@tie{}@code{}) (detail@tie{}@code{mchars}) (x1@tie{}@code{int}) (x2@tie{}@code{int}) (y@tie{}@code{int}) Draws a horizontal line from (@var{x1}, @var{y}) to (@var{x2}, @var{y}) in @var{window} using the given style and state. @table @var @item style a @code{} @item window a @code{} @item state-type a state @item area rectangle to which the output is clipped, or @samp{@code{#f}} if the output should not be clipped @item widget the widget (may be @samp{@code{#f}}) @item detail a style detail (may be @samp{@code{#f}}) @item x1 the starting x coordinate @item x2 the ending x coordinate @item y the y coordinate @end table @end deffn @deffn Function gtk-paint-option (self@tie{}@code{}) (window@tie{}@code{}) (state_type@tie{}@code{}) (shadow_type@tie{}@code{}) (area@tie{}@code{}) (widget@tie{}@code{}) (detail@tie{}@code{mchars}) (x@tie{}@code{int}) (y@tie{}@code{int}) (width@tie{}@code{int}) (height@tie{}@code{int}) Draws a radio button indicator in the given rectangle on @var{window} with the given parameters. @table @var @item style a @code{} @item window a @code{} @item state-type a state @item shadow-type the type of shadow to draw @item area clip rectangle, or @samp{@code{#f}} if the output should not be clipped @item widget the widget (may be @samp{@code{#f}}) @item detail a style detail (may be @samp{@code{#f}}) @item x x origin of the rectangle to draw the option in @item y y origin of the rectangle to draw the option in @item width the width of the rectangle to draw the option in @item height the height of the rectangle to draw the option in @end table @end deffn @deffn Function gtk-paint-shadow (self@tie{}@code{}) (window@tie{}@code{}) (state_type@tie{}@code{}) (shadow_type@tie{}@code{}) (area@tie{}@code{}) (widget@tie{}@code{}) (detail@tie{}@code{mchars}) (x@tie{}@code{int}) (y@tie{}@code{int}) (width@tie{}@code{int}) (height@tie{}@code{int}) Draws a shadow around the given rectangle in @var{window} using the given style and state and shadow type. @table @var @item style a @code{} @item window a @code{} @item state-type a state @item shadow-type type of shadow to draw @item area clip rectangle or @samp{@code{#f}} if the output should not be clipped @item widget the widget (may be @samp{@code{#f}}) @item detail a style detail (may be @samp{@code{#f}}) @item x x origin of the rectangle @item y y origin of the rectangle @item width width of the rectangle @item height width of the rectangle @end table @end deffn @deffn Function gtk-paint-shadow-gap (self@tie{}@code{}) (window@tie{}@code{}) (state_type@tie{}@code{}) (shadow_type@tie{}@code{}) (area@tie{}@code{}) (widget@tie{}@code{}) (detail@tie{}@code{mchars}) (x@tie{}@code{int}) (y@tie{}@code{int}) (width@tie{}@code{int}) (height@tie{}@code{int}) (gap_side@tie{}@code{}) (gap_x@tie{}@code{int}) (gap_width@tie{}@code{int}) Draws a shadow around the given rectangle in @var{window} using the given style and state and shadow type, leaving a gap in one side. @table @var @item style a @code{} @item window a @code{} @item state-type a state @item shadow-type type of shadow to draw @item area clip rectangle, or @samp{@code{#f}} if the output should not be clipped @item widget the widget (may be @samp{@code{#f}}) @item detail a style detail (may be @samp{@code{#f}}) @item x x origin of the rectangle @item y y origin of the rectangle @item width width of the rectangle @item height width of the rectangle @item gap-side side in which to leave the gap @item gap-x starting position of the gap @item gap-width width of the gap @end table @end deffn @deffn Function gtk-paint-slider (self@tie{}@code{}) (window@tie{}@code{}) (state_type@tie{}@code{}) (shadow_type@tie{}@code{}) (area@tie{}@code{}) (widget@tie{}@code{}) (detail@tie{}@code{mchars}) (x@tie{}@code{int}) (y@tie{}@code{int}) (width@tie{}@code{int}) (height@tie{}@code{int}) (orientation@tie{}@code{}) Draws a slider in the given rectangle on @var{window} using the given style and orientation. @table @var @item style a @code{} @item window a @code{} @item state-type a state @item shadow-type a shadow @item area clip rectangle, or @samp{@code{#f}} if the output should not be clipped @item widget the widget (may be @samp{@code{#f}}) @item detail a style detail (may be @samp{@code{#f}}) @item x the x origin of the rectangle in which to draw a slider @item y the y origin of the rectangle in which to draw a slider @item width the width of the rectangle in which to draw a slider @item height the height of the rectangle in which to draw a slider @item orientation the orientation to be used @end table @end deffn @deffn Function gtk-paint-tab (self@tie{}@code{}) (window@tie{}@code{}) (state_type@tie{}@code{}) (shadow_type@tie{}@code{}) (area@tie{}@code{}) (widget@tie{}@code{}) (detail@tie{}@code{mchars}) (x@tie{}@code{int}) (y@tie{}@code{int}) (width@tie{}@code{int}) (height@tie{}@code{int}) Draws an option menu tab (i.e. the up and down pointing arrows) in the given rectangle on @var{window} using the given parameters. @table @var @item style a @code{} @item window a @code{} @item state-type a state @item shadow-type the type of shadow to draw @item area clip rectangle, or @samp{@code{#f}} if the output should not be clipped @item widget the widget (may be @samp{@code{#f}}) @item detail a style detail (may be @samp{@code{#f}}) @item x x origin of the rectangle to draw the tab in @item y y origin of the rectangle to draw the tab in @item width the width of the rectangle to draw the tab in @item height the height of the rectangle to draw the tab in @end table @end deffn @deffn Function gtk-paint-vline (self@tie{}@code{}) (window@tie{}@code{}) (state_type@tie{}@code{}) (area@tie{}@code{}) (widget@tie{}@code{}) (detail@tie{}@code{mchars}) (y1@tie{}@code{int}) (y2@tie{}@code{int}) (x@tie{}@code{int}) Draws a vertical line from (@var{x}, @var{y1}) to (@var{x}, @var{y2}) in @var{window} using the given style and state. @table @var @item style a @code{} @item window a @code{} @item state-type a state @item area rectangle to which the output is clipped, or @samp{@code{#f}} if the output should not be clipped @item widget the widget (may be @samp{@code{#f}}) @item detail a style detail (may be @samp{@code{#f}}) @item y1 the starting y coordinate @item y2 the ending y coordinate @item x the x coordinate @end table @end deffn @deffn Function gtk-paint-expander (self@tie{}@code{}) (window@tie{}@code{}) (state_type@tie{}@code{}) (area@tie{}@code{}) (widget@tie{}@code{}) (detail@tie{}@code{mchars}) (x@tie{}@code{int}) (y@tie{}@code{int}) (expander_style@tie{}@code{}) Draws an expander as used in @code{}. @var{x} and @var{y} specify the center the expander. The size of the expander is determined by the "expander-size" style property of @var{widget}. (If widget is not specified or doesn't have an "expander-size" property, an unspecified default size will be used, since the caller doesn't have sufficient information to position the expander, this is likely not useful.) The expander is expander_size pixels tall in the collapsed position and expander_size pixels wide in the expanded position. @table @var @item style a @code{} @item window a @code{} @item state-type a state @item area clip rectangle, or @samp{@code{#f}} if the output should not be clipped @item widget the widget (may be @samp{@code{#f}}) @item detail a style detail (may be @samp{@code{#f}}) @item x the x position to draw the expander at @item y the y position to draw the expander at @item expander-style the style to draw the expander in; determines whether the expander is collapsed, expanded, or in an intermediate state. @end table @end deffn @deffn Function gtk-paint-layout (self@tie{}@code{}) (window@tie{}@code{}) (state_type@tie{}@code{}) (use_text@tie{}@code{bool}) (area@tie{}@code{}) (widget@tie{}@code{}) (detail@tie{}@code{mchars}) (x@tie{}@code{int}) (y@tie{}@code{int}) (layout@tie{}@code{}) Draws a layout on @var{window} using the given parameters. @table @var @item style a @code{} @item window a @code{} @item state-type a state @item use-text whether to use the text or foreground graphics context of @var{style} @item area clip rectangle, or @samp{@code{#f}} if the output should not be clipped @item widget the widget (may be @samp{@code{#f}}) @item detail a style detail (may be @samp{@code{#f}}) @item x x origin @item y y origin @item layout the layout to draw @end table @end deffn @deffn Function gtk-paint-resize-grip (self@tie{}@code{}) (window@tie{}@code{}) (state_type@tie{}@code{}) (area@tie{}@code{}) (widget@tie{}@code{}) (detail@tie{}@code{mchars}) (edge@tie{}@code{}) (x@tie{}@code{int}) (y@tie{}@code{int}) (width@tie{}@code{int}) (height@tie{}@code{int}) Draws a resize grip in the given rectangle on @var{window} using the given parameters. @table @var @item style a @code{} @item window a @code{} @item state-type a state @item area clip rectangle, or @samp{@code{#f}} if the output should not be clipped @item widget the widget (may be @samp{@code{#f}}) @item detail a style detail (may be @samp{@code{#f}}) @item edge the edge in which to draw the resize grip @item x the x origin of the rectangle in which to draw the resize grip @item y the y origin of the rectangle in which to draw the resize grip @item width the width of the rectangle in which to draw the resize grip @item height the height of the rectangle in which to draw the resize grip @end table @end deffn @deffn Function gtk-draw-insertion-cursor (widget@tie{}@code{}) (drawable@tie{}@code{}) (area@tie{}@code{}) (location@tie{}@code{}) (is_primary@tie{}@code{bool}) (direction@tie{}@code{}) (draw_arrow@tie{}@code{bool}) Draws a text caret on @var{drawable} at @var{location}. This is not a style function but merely a convenience function for drawing the standard cursor shape. @table @var @item widget a @code{} @item drawable a @code{} @item area rectangle to which the output is clipped, or @samp{@code{#f}} if the output should not be clipped @item location location where to draw the cursor (@var{location->width} is ignored) @item is-primary if the cursor should be the primary cursor color. @item direction whether the cursor is left-to-right or right-to-left. Should never be @code{} @item draw-arrow @samp{@code{#t}} to draw a directional arrow on the cursor. Should be @samp{@code{#f}} unless the cursor is split. @end table Since 2.4 @end deffn @deffn Function gtk-border-copy (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{}) Copies a @code{} structure. @table @var @item border a @code{}. @item ret a copy of @var{border}. @end table @end deffn @deffn Function gtk-border-free (self@tie{}@code{}) Frees a @code{} structure. @table @var @item border a @code{}. @end table @end deffn @c %end of fragment guile-gnome-platform-2.16.2/gtk/doc/gtk/defuns-gtkpapersize.xml.texi0000644000175000017500000001244211670374302025775 0ustar00wingowingo00000000000000 @c %start of fragment @deftp Class Derives from @code{}. This class defines no direct slots. @end deftp @deffn Function gtk-paper-size-new (name@tie{}@code{mchars}) @result{}@tie{} (ret@tie{}@code{}) Creates a new @code{} object by parsing a PWG 5101.1-2002 PWG paper name. If @var{name} is @samp{@code{#f}}, the default paper size is returned, see @code{gtk-paper-size-get-default}. @table @var @item name a paper size name, or @samp{@code{#f}} @item ret a new @code{}, use @code{gtk-paper-size-free} to free it @end table Since 2.10 @end deffn @deffn Function gtk-paper-size-new-from-ppd (ppd_name@tie{}@code{mchars}) (ppd_display_name@tie{}@code{mchars}) (width@tie{}@code{double}) (height@tie{}@code{double}) @result{}@tie{} (ret@tie{}@code{}) Creates a new @code{} object by using PPD information. If @var{ppd-name} is not a recognized PPD paper name, @var{ppd-display-name}, @var{width} and @var{height} are used to construct a custom @code{} object. @table @var @item ppd-name a PPD paper name @item ppd-display-name the corresponding human-readable name @item width the paper width, in points @item height the paper height in points @item ret a new @code{}, use @code{gtk-paper-size-free} to free it @end table Since 2.10 @end deffn @deffn Function gtk-paper-size-new-custom (name@tie{}@code{mchars}) (display_name@tie{}@code{mchars}) (width@tie{}@code{double}) (height@tie{}@code{double}) (unit@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{}) Creates a new @code{} object with the given parameters. @table @var @item name the paper name @item display-name the human-readable name @item width the paper width, in units of @var{unit} @item height the paper height, in units of @var{unit} @item unit the unit for @var{width} and @var{height} @item ret a new @code{} object, use @code{gtk-paper-size-free} to free it @end table Since 2.10 @end deffn @deffn Function gtk-paper-size-is-equal (self@tie{}@code{}) (size2@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{bool}) Compares two @code{} objects. @table @var @item size1 a @code{} object @item size2 another @code{} object @item ret @samp{@code{#t}}, if @var{size1} and @var{size2} represent the same paper size @end table Since 2.10 @end deffn @deffn Function gtk-paper-size-get-name (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{mchars}) Gets the name of the @code{}. @table @var @item size a @code{} object @item ret the name of @var{size} @end table Since 2.10 @end deffn @deffn Function gtk-paper-size-get-display-name (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{mchars}) Gets the human-readable name of the @code{}. @table @var @item size a @code{} object @item ret the human-readable name of @var{size} @end table Since 2.10 @end deffn @deffn Function gtk-paper-size-get-ppd-name (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{mchars}) Gets the PPD name of the @code{}, which may be @samp{@code{#f}}. @table @var @item size a @code{} object @item ret the PPD name of @var{size} @end table Since 2.10 @end deffn @deffn Function gtk-paper-size-get-width (self@tie{}@code{}) (unit@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{double}) Gets the paper width of the @code{}, in units of @var{unit}. @table @var @item size a @code{} object @item unit the unit for the return value @item ret the paper width @end table Since 2.10 @end deffn @deffn Function gtk-paper-size-get-height (self@tie{}@code{}) (unit@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{double}) Gets the paper height of the @code{}, in units of @var{unit}. @table @var @item size a @code{} object @item unit the unit for the return value @item ret the paper height @end table Since 2.10 @end deffn @deffn Function gtk-paper-size-is-custom (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{bool}) Returns @samp{@code{#t}} if @var{size} is not a standard paper size. @table @var @item size a @code{} object @item ret whether @var{size} is a custom paper size. @end table @end deffn @deffn Function gtk-paper-size-set-size (self@tie{}@code{}) (width@tie{}@code{double}) (height@tie{}@code{double}) (unit@tie{}@code{}) Changes the dimensions of a @var{size} to @var{width} x @var{height}. @table @var @item size a custom @code{} object @item width the new width in units of @var{unit} @item height the new height in units of @var{unit} @item unit the unit for @var{width} and @var{height} @end table Since 2.10 @end deffn @deffn Function gtk-paper-size-get-default @result{}@tie{} (ret@tie{}@code{mchars}) Returns the name of the default paper size, which depends on the current locale. @table @var @item ret the name of the default paper size. The string is owned by GTK+ and should not be modified. @end table Since 2.10 @end deffn @c %end of fragment guile-gnome-platform-2.16.2/gtk/doc/gtk/section-gtktearoffmenuitem.xml.texi0000644000175000017500000000147111670374303027346 0ustar00wingowingo00000000000000 @c %start of fragment @node GtkTearoffMenuItem @chapter GtkTearoffMenuItem A menu item used to tear off and reattach its menu @section Overview A @code{} is a special @code{} which is used to tear off and reattach its menu. When its menu is shown normally, the @code{} is drawn as a dotted line indicating that the menu can be torn off. Activating it causes its menu to be torn off and displayed in its own window as a tearoff menu. When its menu is shown as a tearoff menu, the @code{} is drawn as a dotted line which has a left pointing arrow graphic indicating that the tearoff menu can be reattached. Activating it will erase the tearoff menu window. @section Usage @include defuns-gtktearoffmenuitem.xml.texi @c %end of fragment guile-gnome-platform-2.16.2/gtk/doc/gtk/section-gtkhpaned.xml.texi0000644000175000017500000000061711670374302025413 0ustar00wingowingo00000000000000 @c %start of fragment @node GtkHPaned @chapter GtkHPaned A container with two panes arranged horizontally @section Overview The HPaned widget is a container widget with two children arranged horizontally. The division between the two panes is adjustable by the user by dragging a handle. See @code{} for details. @section Usage @include defuns-gtkhpaned.xml.texi @c %end of fragment guile-gnome-platform-2.16.2/gtk/doc/gtk/defuns-gtkfontseldlg.xml.texi0000644000175000017500000000073111670374302026132 0ustar00wingowingo00000000000000 @c %start of fragment @deftp Class Derives from @code{}. This class defines no direct slots. @end deftp @deffn Function gtk-font-selection-dialog-new (title@tie{}@code{mchars}) @result{}@tie{} (ret@tie{}@code{}) Creates a new @code{}. @table @var @item title the title of the dialog box. @item ret a new @code{}. @end table @end deffn @c %end of fragment guile-gnome-platform-2.16.2/gtk/doc/gtk/defuns-gtkcomboboxentry.xml.texi0000644000175000017500000000540411670374302026665 0ustar00wingowingo00000000000000 @c %start of fragment @deftp Class Derives from @code{}. This class defines the following slots: @table @code @item text-column A column in the data source model to get the strings from @end table @end deftp @deffn Function gtk-combo-box-entry-new @result{}@tie{} (ret@tie{}@code{}) Creates a new @code{} which has a @code{} as child. After construction, you should set a model using @code{gtk-combo-box-set-model} and a text_column * using @code{gtk-combo-box-entry-set-text-column}. @table @var @item ret A new @code{}. @end table Since 2.4 @end deffn @deffn Function gtk-combo-box-entry-new-with-model (model@tie{}@code{}) (text_column@tie{}@code{int}) @result{}@tie{} (ret@tie{}@code{}) Creates a new @code{} which has a @code{} as child and a list of strings as popup. You can get the @code{} from a @code{} using GTK_ENTRY (GTK_BIN (combo_box_entry)->child). To add and remove strings from the list, just modify @var{model} using its data manipulation API. @table @var @item model A @code{}. @item text-column A column in @var{model} to get the strings from. @item ret A new @code{}. @end table Since 2.4 @end deffn @deffn Function gtk-combo-box-entry-new-text @result{}@tie{} (ret@tie{}@code{}) Convenience function which constructs a new editable text combo box, which is a @code{} just displaying strings. If you use this function to create a text combo box, you should only manipulate its data source with the following convenience functions: @code{gtk-combo-box-append-text}, @code{gtk-combo-box-insert-text}, @code{gtk-combo-box-prepend-text} and @code{gtk-combo-box-remove-text}. @table @var @item ret A new text @code{}. @end table Since 2.4 @end deffn @deffn Function gtk-combo-box-entry-set-text-column (self@tie{}@code{}) (text_column@tie{}@code{int}) @deffnx Method set-text-column Sets the model column which @var{entry-box} should use to get strings from to be @var{text-column}. @table @var @item entry-box A @code{}. @item text-column A column in @var{model} to get the strings from. @end table Since 2.4 @end deffn @deffn Function gtk-combo-box-entry-get-text-column (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{int}) @deffnx Method get-text-column Returns the column which @var{entry-box} is using to get the strings from. @table @var @item entry-box A @code{}. @item ret A column in the data source model of @var{entry-box}. @end table Since 2.4 @end deffn @c %end of fragment guile-gnome-platform-2.16.2/gtk/doc/gtk/section-gtkprogressbar.xml.texi0000644000175000017500000000433711670374302026510 0ustar00wingowingo00000000000000 @c %start of fragment @node GtkProgressBar @chapter GtkProgressBar A widget which indicates progress visually @section Overview The @code{} is typically used to display the progress of a long running operation. It provides a visual clue that processing is underway. The @code{} can be used in two different modes: percentage mode and activity mode. When an application can determine how much work needs to take place (e.g. read a fixed number of bytes from a file) and can monitor its progress, it can use the @code{} in percentage mode and the user sees a growing bar indicating the percentage of the work that has been completed. In this mode, the application is required to call @code{gtk-progress-bar-set-fraction} periodically to update the progress bar. When an application has no accurate way of knowing the amount of work to do, it can use the @code{} in activity mode, which shows activity by a block moving back and forth within the progress area. In this mode, the application is required to call @code{gtk-progress-bar-pulse} perodically to update the progress bar. There is quite a bit of flexibility provided to control the appearance of the @code{}. Functions are provided to control the orientation of the bar, optional text can be displayed along with the bar, and the step size used in activity mode can be set. The @code{}/@code{} API in GTK 1.2 was bloated, needlessly complex and hard to use properly. Therefore @code{} has been deprecated completely and the @code{} API has been reduced to the following 10 functions: @code{gtk-progress-bar-new}, @code{gtk-progress-bar-pulse}, @code{gtk-progress-bar-set-text}, @code{gtk-progress-bar-set-fraction}, @code{gtk-progress-bar-set-pulse-step}, @code{gtk-progress-bar-set-orientation}, @code{gtk-progress-bar-get-text}, @code{gtk-progress-bar-get-fraction}, @code{gtk-progress-bar-get-pulse-step}, @code{gtk-progress-bar-get-orientation}. These have been grouped at the beginning of this section, followed by a large chunk of deprecated 1.2 compatibility functions. @section Usage @include defuns-gtkprogressbar.xml.texi @c %end of fragment guile-gnome-platform-2.16.2/gtk/doc/gtk/section-gtktreestore.xml.texi0000644000175000017500000000110611670374303026163 0ustar00wingowingo00000000000000 @c %start of fragment @node GtkTreeStore @chapter GtkTreeStore A tree-like data structure that can be used with the @section Overview The @code{} object is a list model for use with a @code{} widget. It implements the @code{} interface, and consequentialy, can use all of the methods available there. It also implements the @code{} interface so it can be sorted by the view. Finally, it also implements the tree drag and drop interfaces. @section Usage @include defuns-gtktreestore.xml.texi @c %end of fragment guile-gnome-platform-2.16.2/gtk/doc/gtk/section-gtkfontsel.xml.texi0000644000175000017500000000125511670374302025625 0ustar00wingowingo00000000000000 @c %start of fragment @node GtkFontSelection @chapter GtkFontSelection A widget for selecting fonts @section Overview The @code{} widget lists the available fonts, styles and sizes, allowing the user to select a font. It is used in the @code{} widget to provide a dialog box for selecting fonts. To set the font which is initially selected, use @code{gtk-font-selection-set-font-name}. To get the selected font use @code{gtk-font-selection-get-font-name}. To change the text which is shown in the preview area, use @code{gtk-font-selection-set-preview-text}. @section Usage @include defuns-gtkfontsel.xml.texi @c %end of fragment guile-gnome-platform-2.16.2/gtk/doc/gtk/defuns-gtkimage.xml.texi0000644000175000017500000003050511670374302025055 0ustar00wingowingo00000000000000 @c %start of fragment @deftp Class Derives from @code{}. This class defines the following slots: @table @code @item pixbuf A GdkPixbuf to display @item pixmap A GdkPixmap to display @item image A GdkImage to display @item mask Mask bitmap to use with GdkImage or GdkPixmap @item file Filename to load and display @item stock Stock ID for a stock image to display @item icon-set Icon set to display @item icon-size Symbolic size to use for stock icon, icon set or named icon @item pixel-size Pixel size to use for named icon @item pixbuf-animation GdkPixbufAnimation to display @item icon-name The name of the icon from the icon theme @item storage-type The representation being used for image data @end table @end deftp @deffn Function gtk-image-get-pixbuf (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{}) @deffnx Method get-pixbuf Gets the @code{} being displayed by the @code{}. The storage type of the image must be @samp{GTK_IMAGE_EMPTY} or @samp{GTK_IMAGE_PIXBUF} (see @code{gtk-image-get-storage-type}). The caller of this function does not own a reference to the returned pixbuf. @table @var @item image a @code{} @item ret the displayed pixbuf, or @samp{@code{#f}} if the image is empty @end table @end deffn @deffn Function gtk-image-get-animation (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{}) @deffnx Method get-animation Gets the @code{} being displayed by the @code{}. The storage type of the image must be @samp{GTK_IMAGE_EMPTY} or @samp{GTK_IMAGE_ANIMATION} (see @code{gtk-image-get-storage-type}). The caller of this function does not own a reference to the returned animation. @table @var @item image a @code{} @item ret the displayed animation, or @samp{@code{#f}} if the image is empty @end table @end deffn @deffn Function gtk-image-get-storage-type (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{}) @deffnx Method get-storage-type Gets the type of representation being used by the @code{} to store image data. If the @code{} has no image data, the return value will be @samp{GTK_IMAGE_EMPTY}. @table @var @item image a @code{} @item ret image representation being used @end table @end deffn @deffn Function gtk-image-new-from-file (filename@tie{}@code{mchars}) @result{}@tie{} (ret@tie{}@code{}) Creates a new @code{} displaying the file @var{filename}. If the file isn't found or can't be loaded, the resulting @code{} will display a "broken image" icon. This function never returns @samp{@code{#f}}, it always returns a valid @code{} widget. If the file contains an animation, the image will contain an animation. If you need to detect failures to load the file, use @code{gdk-pixbuf-new-from-file} to load the file yourself, then create the @code{} from the pixbuf. (Or for animations, use @code{gdk-pixbuf-animation-new-from-file}). The storage type (@code{gtk-image-get-storage-type}) of the returned image is not defined, it will be whatever is appropriate for displaying the file. @table @var @item filename a filename @item ret a new @code{} @end table @end deffn @deffn Function gtk-image-new-from-icon-set (icon_set@tie{}@code{}) (size@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{}) Creates a @code{} displaying an icon set. Sample stock sizes are @code{}, @code{}. Instead of using this function, usually it's better to create a @code{}, put your icon sets in the icon factory, add the icon factory to the list of default factories with @code{gtk-icon-factory-add-default}, and then use @code{gtk-image-new-from-stock}. This will allow themes to override the icon you ship with your application. The @code{} does not assume a reference to the icon set; you still need to unref it if you own references. @code{} will add its own reference rather than adopting yours. @table @var @item icon-set a @code{} @item size a stock icon size @item ret a new @code{} @end table @end deffn @deffn Function gtk-image-new-from-image (image@tie{}@code{}) (mask@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{}) Creates a @code{} widget displaying a @var{image} with a @var{mask}. A @code{} is a client-side image buffer in the pixel format of the current display. The @code{} does not assume a reference to the image or mask; you still need to unref them if you own references. @code{} will add its own reference rather than adopting yours. @table @var @item image a @code{}, or @samp{@code{#f}} @item mask a @code{}, or @samp{@code{#f}} @item ret a new @code{} @end table @end deffn @deffn Function gtk-image-new-from-pixbuf (pixbuf@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{}) Creates a new @code{} displaying @var{pixbuf}. The @code{} does not assume a reference to the pixbuf; you still need to unref it if you own references. @code{} will add its own reference rather than adopting yours. Note that this function just creates an @code{} from the pixbuf. The @code{} created will not react to state changes. Should you want that, you should use @code{gtk-image-new-from-icon-set}. @table @var @item pixbuf a @code{}, or @samp{@code{#f}} @item ret a new @code{} @end table @end deffn @deffn Function gtk-image-new-from-pixmap (pixmap@tie{}@code{}) (mask@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{}) Creates a @code{} widget displaying @var{pixmap} with a @var{mask}. A @code{} is a server-side image buffer in the pixel format of the current display. The @code{} does not assume a reference to the pixmap or mask; you still need to unref them if you own references. @code{} will add its own reference rather than adopting yours. @table @var @item pixmap a @code{}, or @samp{@code{#f}} @item mask a @code{}, or @samp{@code{#f}} @item ret a new @code{} @end table @end deffn @deffn Function gtk-image-new-from-stock (stock_id@tie{}@code{mchars}) (size@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{}) Creates a @code{} displaying a stock icon. Sample stock icon names are @code{}, @code{}. Sample stock sizes are @code{}, @code{}. If the stock icon name isn't known, the image will be empty. You can register your own stock icon names, see @code{gtk-icon-factory-add-default} and @code{gtk-icon-factory-add}. @table @var @item stock-id a stock icon name @item size a stock icon size @item ret a new @code{} displaying the stock icon @end table @end deffn @deffn Function gtk-image-new-from-animation (animation@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{}) Creates a @code{} displaying the given animation. The @code{} does not assume a reference to the animation; you still need to unref it if you own references. @code{} will add its own reference rather than adopting yours. Note that the animation frames are shown using a timeout with @code{}. When using animations to indicate busyness, keep in mind that the animation will only be shown if the main loop is not busy with something that has a higher priority. @table @var @item animation an animation @item ret a new @code{} widget @end table @end deffn @deffn Function gtk-image-new-from-icon-name (icon_name@tie{}@code{mchars}) (size@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{}) Creates a @code{} displaying an icon from the current icon theme. If the icon name isn't known, a "broken image" icon will be displayed instead. If the current icon theme is changed, the icon will be updated appropriately. @table @var @item icon-name an icon name @item size a stock icon size @item ret a new @code{} displaying the themed icon @end table Since 2.6 @end deffn @deffn Function gtk-image-set-from-file (self@tie{}@code{}) (filename@tie{}@code{mchars}) @deffnx Method set-from-file See @code{gtk-image-new-from-file} for details. @table @var @item image a @code{} @item filename a filename or @samp{@code{#f}} @end table @end deffn @deffn Function gtk-image-set-from-icon-set (self@tie{}@code{}) (icon_set@tie{}@code{}) (size@tie{}@code{}) @deffnx Method set-from-icon-set See @code{gtk-image-new-from-icon-set} for details. @table @var @item image a @code{} @item icon-set a @code{} @item size a stock icon size @end table @end deffn @deffn Function gtk-image-set-from-image (self@tie{}@code{}) (gdk_image@tie{}@code{}) (mask@tie{}@code{}) @deffnx Method set-from-image See @code{gtk-image-new-from-image} for details. @table @var @item image a @code{} @item gdk-image a @code{} or @samp{@code{#f}} @item mask a @code{} or @samp{@code{#f}} @end table @end deffn @deffn Function gtk-image-set-from-pixbuf (self@tie{}@code{}) (pixbuf@tie{}@code{}) @deffnx Method set-from-pixbuf See @code{gtk-image-new-from-pixbuf} for details. @table @var @item image a @code{} @item pixbuf a @code{} or @samp{@code{#f}} @end table @end deffn @deffn Function gtk-image-set-from-pixmap (self@tie{}@code{}) (pixmap@tie{}@code{}) (mask@tie{}@code{}) @deffnx Method set-from-pixmap See @code{gtk-image-new-from-pixmap} for details. @table @var @item image a @code{} @item pixmap a @code{} or @samp{@code{#f}} @item mask a @code{} or @samp{@code{#f}} @end table @end deffn @deffn Function gtk-image-set-from-stock (self@tie{}@code{}) (stock_id@tie{}@code{mchars}) (size@tie{}@code{}) @deffnx Method set-from-stock See @code{gtk-image-new-from-stock} for details. @table @var @item image a @code{} @item stock-id a stock icon name @item size a stock icon size @end table @end deffn @deffn Function gtk-image-set-from-animation (self@tie{}@code{}) (animation@tie{}@code{}) @deffnx Method set-from-animation Causes the @code{} to display the given animation (or display nothing, if you set the animation to @samp{@code{#f}}). @table @var @item image a @code{} @item animation the @code{} @end table @end deffn @deffn Function gtk-image-set-from-icon-name (self@tie{}@code{}) (icon_name@tie{}@code{mchars}) (size@tie{}@code{}) @deffnx Method set-from-icon-name See @code{gtk-image-new-from-icon-name} for details. @table @var @item image a @code{} @item icon-name an icon name @item size an icon size @end table Since 2.6 @end deffn @deffn Function gtk-image-clear (self@tie{}@code{}) @deffnx Method clear Resets the image to be empty. @table @var @item image a @code{} @end table Since 2.8 @end deffn @deffn Function gtk-image-new @result{}@tie{} (ret@tie{}@code{}) Creates a new empty @code{} widget. @table @var @item ret a newly created @code{} widget. @end table @end deffn @deffn Function gtk-image-set-pixel-size (self@tie{}@code{}) (pixel_size@tie{}@code{int}) @deffnx Method set-pixel-size Sets the pixel size to use for named icons. If the pixel size is set to a value != -1, it is used instead of the icon size set by @code{gtk-image-set-from-icon-name}. @table @var @item image a @code{} @item pixel-size the new pixel size @end table Since 2.6 @end deffn @deffn Function gtk-image-get-pixel-size (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{int}) @deffnx Method get-pixel-size Gets the pixel size used for named icons. @table @var @item image a @code{} @item ret the pixel size used for named icons. @end table Since 2.6 @end deffn @c %end of fragment guile-gnome-platform-2.16.2/gtk/doc/gtk/section-gtkselection.xml.texi0000644000175000017500000000171111670374303026136 0ustar00wingowingo00000000000000 @c %start of fragment @node Selections @chapter Selections Functions for handling inter-process communication via selections @section Overview The selection mechanism provides the basis for different types of communication between processes. In particular, drag and drop and @code{} work via selections. You will very seldom or never need to use most of the functions in this section directly; @code{} provides a nicer interface to the same functionality. Some of the datatypes defined this section are used in the @code{} and drag-and-drop API's as well. The @code{} structure and @code{} objects represent lists of data types that are supported when sending or receiving data. The @code{} object is used to store a chunk of data along with the data type and other associated information. @section Usage @include defuns-gtkselection.xml.texi @c %end of fragment guile-gnome-platform-2.16.2/gtk/doc/gtk/defuns-gtkstatusicon.xml.texi0000644000175000017500000002446311670374302026175 0ustar00wingowingo00000000000000 @c %start of fragment @deftp Class Derives from @code{}. This class defines the following slots: @table @code @item pixbuf A GdkPixbuf to display @item file Filename to load and display @item stock Stock ID for a stock image to display @item icon-name The name of the icon from the icon theme @item storage-type The representation being used for image data @item size The size of the icon @item screen The screen where this status icon will be displayed @item visible Whether or not the status icon is visible @item orientation The orientation of the tray @item embedded Whether or not the status icon is embedded @item blinking Whether or not the status icon is blinking @end table @end deftp @defop Signal size-changed (arg0@tie{}@code{}) @result{}@tie{}@code{} Gets emitted when the size available for the image changes, e.g. because the notification area got resized. Since 2.10 @end defop @defop Signal popup-menu (arg0@tie{}@code{}) (arg1@tie{}@code{}) Gets emitted when the user brings up the context menu of the status icon. Whether status icons can have context menus and how these are activated is platform-dependent. The @var{button} and @var{activate-timeout} parameters should be passed as the last to arguments to @code{gtk-menu-popup}. Since 2.10 @end defop @defop Signal activate Gets emitted when the user activates the status icon. If and how status icons can activated is platform-dependent. Since 2.10 @end defop @deffn Function gtk-status-icon-new @result{}@tie{} (ret@tie{}@code{}) Creates an empty status icon object. @table @var @item ret a new @code{} @end table Since 2.10 @end deffn @deffn Function gtk-status-icon-new-from-pixbuf (pixbuf@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{}) Creates a status icon displaying @var{pixbuf}. The image will be scaled down to fit in the available space in the notification area, if necessary. @table @var @item pixbuf a @code{} @item ret a new @code{} @end table Since 2.10 @end deffn @deffn Function gtk-status-icon-new-from-file (filename@tie{}@code{mchars}) @result{}@tie{} (ret@tie{}@code{}) Creates a status icon displaying the file @var{filename}. The image will be scaled down to fit in the available space in the notification area, if necessary. @table @var @item filename a filename @item ret a new @code{} @end table Since 2.10 @end deffn @deffn Function gtk-status-icon-new-from-stock (stock_id@tie{}@code{mchars}) @result{}@tie{} (ret@tie{}@code{}) Creates a status icon displaying a stock icon. Sample stock icon names are @code{}, @code{}. You can register your own stock icon names, see @code{gtk-icon-factory-add-default} and @code{gtk-icon-factory-add}. @table @var @item stock-id a stock icon id @item ret a new @code{} @end table Since 2.10 @end deffn @deffn Function gtk-status-icon-new-from-icon-name (icon_name@tie{}@code{mchars}) @result{}@tie{} (ret@tie{}@code{}) Creates a status icon displaying an icon from the current icon theme. If the current icon theme is changed, the icon will be updated appropriately. @table @var @item icon-name an icon name @item ret a new @code{} @end table Since 2.10 @end deffn @deffn Function gtk-status-icon-set-from-pixbuf (self@tie{}@code{}) (pixbuf@tie{}@code{}) @deffnx Method set-from-pixbuf Makes @var{status-icon} display @var{pixbuf}. See @code{gtk-status-icon-new-from-pixbuf} for details. @table @var @item status-icon a @code{} @item pixbuf a @code{} or @samp{@code{#f}} @end table Since 2.10 @end deffn @deffn Function gtk-status-icon-set-from-file (self@tie{}@code{}) (filename@tie{}@code{mchars}) @deffnx Method set-from-file Makes @var{status-icon} display the file @var{filename}. See @code{gtk-status-icon-new-from-file} for details. @table @var @item status-icon a @code{} @item filename a filename @end table Since 2.10 @end deffn @deffn Function gtk-status-icon-set-from-stock (self@tie{}@code{}) (stock_id@tie{}@code{mchars}) @deffnx Method set-from-stock Makes @var{status-icon} display the stock icon with the id @var{stock-id}. See @code{gtk-status-icon-new-from-stock} for details. @table @var @item status-icon a @code{} @item stock-id a stock icon id @end table Since 2.10 @end deffn @deffn Function gtk-status-icon-set-from-icon-name (self@tie{}@code{}) (icon_name@tie{}@code{mchars}) @deffnx Method set-from-icon-name Makes @var{status-icon} display the icon named @var{icon-name} from the current icon theme. See @code{gtk-status-icon-new-from-icon-name} for details. @table @var @item status-icon a @code{} @item icon-name an icon name @end table Since 2.10 @end deffn @deffn Function gtk-status-icon-get-storage-type (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{}) @deffnx Method get-storage-type Gets the type of representation being used by the @code{} to store image data. If the @code{} has no image data, the return value will be @samp{GTK_IMAGE_EMPTY}. @table @var @item status-icon a @code{} @item ret the image representation being used @end table Since 2.10 @end deffn @deffn Function gtk-status-icon-get-pixbuf (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{}) @deffnx Method get-pixbuf Gets the @code{} being displayed by the @code{}. The storage type of the status icon must be @samp{GTK_IMAGE_EMPTY} or @samp{GTK_IMAGE_PIXBUF} (see @code{gtk-status-icon-get-storage-type}). The caller of this function does not own a reference to the returned pixbuf. @table @var @item status-icon a @code{} @item ret the displayed pixbuf, or @samp{@code{#f}} if the image is empty. @end table Since 2.10 @end deffn @deffn Function gtk-status-icon-get-stock (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{mchars}) @deffnx Method get-stock Gets the id of the stock icon being displayed by the @code{}. The storage type of the status icon must be @samp{GTK_IMAGE_EMPTY} or @samp{GTK_IMAGE_STOCK} (see @code{gtk-status-icon-get-storage-type}). The returned string is owned by the @code{} and should not be freed or modified. @table @var @item status-icon a @code{} @item ret stock id of the displayed stock icon, or @samp{@code{#f}} if the image is empty. @end table Since 2.10 @end deffn @deffn Function gtk-status-icon-get-icon-name (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{mchars}) @deffnx Method get-icon-name Gets the name of the icon being displayed by the @code{}. The storage type of the status icon must be @samp{GTK_IMAGE_EMPTY} or @samp{GTK_IMAGE_ICON_NAME} (see @code{gtk-status-icon-get-storage-type}). The returned string is owned by the @code{} and should not be freed or modified. @table @var @item status-icon a @code{} @item ret name of the displayed icon, or @samp{@code{#f}} if the image is empty. @end table Since 2.10 @end deffn @deffn Function gtk-status-icon-get-size (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{int}) @deffnx Method get-size Gets the size in pixels that is available for the image. Stock icons and named icons adapt their size automatically if the size of the notification area changes. For other storage types, the size-changed signal can be used to react to size changes. @table @var @item status-icon a @code{} @item ret the size that is available for the image @end table Since 2.10 @end deffn @deffn Function gtk-status-icon-set-tooltip (self@tie{}@code{}) (tooltip_text@tie{}@code{mchars}) @deffnx Method set-tooltip Sets the tooltip of the status icon. @table @var @item status-icon a @code{} @item tooltip-text the tooltip text, or @samp{@code{#f}} @end table Since 2.10 @end deffn @deffn Function gtk-status-icon-set-visible (self@tie{}@code{}) (visible@tie{}@code{bool}) @deffnx Method set-visible Shows or hides a status icon. @table @var @item status-icon a @code{} @item visible @samp{@code{#t}} to show the status icon, @samp{@code{#f}} to hide it @end table Since 2.10 @end deffn @deffn Function gtk-status-icon-get-visible (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{bool}) @deffnx Method get-visible Returns whether the status icon is visible or not. Note that being visible does not guarantee that the user can actually see the icon, see also @code{gtk-status-icon-is-embedded}. @table @var @item status-icon a @code{} @item ret @samp{@code{#t}} if the status icon is visible @end table Since 2.10 @end deffn @deffn Function gtk-status-icon-set-blinking (self@tie{}@code{}) (blinking@tie{}@code{bool}) @deffnx Method set-blinking Makes the status icon start or stop blinking. Note that blinking user interface elements may be problematic for some users, and thus may be turned off, in which case this setting has no effect. @table @var @item status-icon a @code{} @item blinking @samp{@code{#t}} to turn blinking on, @samp{@code{#f}} to turn it off @end table Since 2.10 @end deffn @deffn Function gtk-status-icon-get-blinking (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{bool}) @deffnx Method get-blinking Returns whether the icon is blinking, see @code{gtk-status-icon-set-blinking}. @table @var @item status-icon a @code{} @item ret @samp{@code{#t}} if the icon is blinking @end table Since 2.10 @end deffn @deffn Function gtk-status-icon-is-embedded (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{bool}) @deffnx Method is-embedded Returns whether the status icon is embedded in a notification area. @table @var @item status-icon a @code{} @item ret @samp{@code{#t}} if the status icon is embedded in a notification area. @end table Since 2.10 @end deffn @c %end of fragment guile-gnome-platform-2.16.2/gtk/doc/gtk/section-gtkuimanager.xml.texi0000644000175000017500000001632111670374303026124 0ustar00wingowingo00000000000000 @c %start of fragment @node GtkUIManager @chapter GtkUIManager Constructing menus and toolbars from an XML description @section Overview A @code{} constructs a user interface (menus and toolbars) from one or more UI definitions, which reference actions from one or more action groups. @section UI Definitions The UI definitions are specified in an XML format which can be roughly described by the following DTD. There are some additional restrictions beyond those specified in the DTD, e.g. every toolitem must have a toolbar in its anchestry and every menuitem must have a menubar or popup in its anchestry. Since a @code{} parser is used to parse the UI description, it must not only be valid XML, but valid @code{}. @example @end example If a name is not specified, it defaults to the action. If an action is not specified either, the element name is used. The name and action attributes must not contain '/' characters after parsing (since that would mess up path lookup) and must be usable as XML attributes when enclosed in doublequotes, thus they must not '"' characters or references to the " entity. @example @end example The constructed widget hierarchy is very similar to the element tree of the XML, with the exception that placeholders are merged into their parents. The correspondence of XML elements to widgets should be almost obvious: @table @var @item toolbar @c %start of fragment @c %end of fragment @item popup @c %start of fragment @c %end of fragment @item menu @c %start of fragment @c %end of fragment @item menuitem @c %start of fragment @c %end of fragment @item toolitem @c %start of fragment @c %end of fragment @item separator @c %start of fragment @c %end of fragment @item accelerator @c %start of fragment @c %end of fragment @end table a @code{} a @code{} a toplevel @code{} a @code{} attached to a menuitem a @code{} subclass, the exact type depends on the action a @code{} subclass, the exact type depends on the action. Note that toolitem elements may contain a menu element, but only if their associated action specifies a @code{} as proxy. a @code{} or @code{} a keyboard accelerator The "position" attribute determines where a constructed widget is positioned wrt. to its siblings in the partially constructed tree. If it is "top", the widget is prepended, otherwise it is appended. @section UI Merging The most remarkable feature of @code{} is that it can overlay a set of menuitems and toolitems over another one, and demerge them later. Merging is done based on the names of the XML elements. Each element is identified by a path which consists of the names of its anchestors, separated by slashes. For example, the menuitem named "Left" in the example above has the path @samp{/ui/menubar/JustifyMenu/Left} and the toolitem with the same name has path @samp{/ui/toolbar1/JustifyToolItems/Left}. @section Accelerators Every action has an accelerator path. Accelerators are installed together with menuitem proxies, but they can also be explicitly added with elements in the UI definition. This makes it possible to have accelerators for actions even if they have no visible proxies. @section Smart Separators The separators created by @code{} are "smart", i.e. they do not show up in the UI unless they end up between two visible menu or tool items. Separators which are located at the very beginning or end of the menu or toolbar containing them, or multiple separators next to each other, are hidden. This is a useful feature, since the merging of UI elements from multiple sources can make it hard or impossible to determine in advance whether a separator will end up in such an unfortunate position. For separators in toolbars, you can set @samp{expand="true"} to turn them from a small, visible separator to an expanding, invisible one. Toolitems following an expanding separator are effectively right-aligned. @section Empty Menus Submenus pose similar problems to separators inconnection with merging. It is impossible to know in advance whether they will end up empty after merging. @code{} offers two ways to treat empty submenus: The behaviour is chosen based on the "hide_if_empty" property of the action to which the submenu is associated. make them disappear by hiding the menu item they're attached to add an insensitive "Empty" item @section Usage @include defuns-gtkuimanager.xml.texi @c %end of fragment guile-gnome-platform-2.16.2/gtk/doc/gtk/section-gtkradiobutton.xml.texi0000644000175000017500000000541311670374302026505 0ustar00wingowingo00000000000000 @c %start of fragment @node GtkRadioButton @chapter GtkRadioButton A choice from multiple check buttons @section Overview A single radio button performs the same basic function as a @code{}, as its position in the object hierarchy reflects. It is only when multiple radio buttons are grouped together that they become a different user interface component in their own right. Every radio button is a member of some group of radio buttons. When one is selected, all other radio buttons in the same group are deselected. A @code{} is one way of giving the user a choice from many options. Radio button widgets are created with @code{gtk-radio-button-new}, passing NULL as the argument if this is the first radio button in a group. In subsequent calls, the group you wish to add this button to should be passed as an argument. Optionally, @code{gtk-radio-button-new-with-label} can be used if you want a text label on the radio button. Alternatively, when adding widgets to an existing group of radio buttons, use @code{gtk-radio-button-new-from-widget} with a @code{} that already has a group assigned to it. The convenience function @code{gtk-radio-button-new-with-label-from-widget} is also provided. To retrieve the group a @code{} is assigned to, use @code{gtk-radio-button-get-group}. To remove a @code{} from one group and make it part of a new one, use @code{gtk-radio-button-set-group}. The group list does not need to be freed, as each @code{} will remove itself and its list item when it is destroyed. @example void create_radio_buttons (void) @{ GtkWidget *window, *radio1, *radio2, *box, *entry; window = gtk_window_new (GTK_WINDOW_TOPLEVEL); box = gtk_vbox_new (TRUE, 2); /* Create a radio button with a GtkEntry widget */ radio1 = gtk_radio_button_new (NULL); entry = gtk_entry_new (); gtk_container_add (GTK_CONTAINER (radio1), entry); /* Create a radio button with a label */ radio2 = gtk_radio_button_new_with_label_from_widget (GTK_RADIO_BUTTON (radio1), "I'm the second radio button."); /* Pack them into a box, then show all the widgets */ gtk_box_pack_start (GTK_BOX (box), radio1, TRUE, TRUE, 2); gtk_box_pack_start (GTK_BOX (box), radio2, TRUE, TRUE, 2); gtk_container_add (GTK_CONTAINER (window), box); gtk_widget_show_all (window); return; @} @end example When an unselected button in the group is clicked the clicked button receives the "toggled" signal, as does the previously selected button. Inside the "toggled" handler, @code{gtk-toggle-button-get-active} can be used to determine if the button has been selected or deselected. @section Usage @include defuns-gtkradiobutton.xml.texi @c %end of fragment guile-gnome-platform-2.16.2/gtk/doc/gtk/defuns-gtkentrycompletion.xml.texi0000644000175000017500000001107711670374302027231 0ustar00wingowingo00000000000000 @c %start of fragment @deftp Class Derives from @code{}, @code{}, @code{}. This class defines the following slots: @table @code @item model The model to find matches in @item minimum-key-length Minimum length of the search key in order to look up matches @item text-column The column of the model containing the strings. @item inline-completion Whether the common prefix should be inserted automatically @item popup-completion Whether the completions should be shown in a popup window @item popup-set-width If TRUE, the popup window will have the same size as the entry @item popup-single-match If TRUE, the popup window will appear for a single match. @item inline-selection Your description here @end table @end deftp @defop Signal insert-prefix (arg0@tie{}@code{}) @result{}@tie{}@code{} Gets emitted when the inline autocompletion is triggered. The default behaviour is to make the entry display the whole prefix and select the newly inserted part. Applications may connect to this signal in order to insert only a smaller part of the @var{prefix} into the entry - e.g. the entry used in the @code{} inserts only the part of the prefix up to the next '/'. Since 2.6 @end defop @defop Signal match-selected (arg0@tie{}@code{}) (arg1@tie{}@code{}) @result{}@tie{}@code{} Gets emitted when a match from the list is selected. The default behaviour is to replace the contents of the entry with the contents of the text column in the row pointed to by @var{iter}. Since 2.4 @end defop @defop Signal cursor-on-match (arg0@tie{}@code{}) (arg1@tie{}@code{}) @result{}@tie{}@code{} undocumented @end defop @defop Signal action-activated (arg0@tie{}@code{}) Gets emitted when an action is activated. Since 2.4 @end defop @deffn Function gtk-entry-completion-new @result{}@tie{} (ret@tie{}@code{}) Creates a new @code{} object. @table @var @item ret A newly created @code{} object. @end table Since 2.4 @end deffn @deffn Function gtk-entry-completion-get-entry (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{}) @deffnx Method get-entry Gets the entry @var{completion} has been attached to. @table @var @item completion A @code{}. @item ret The entry @var{completion} has been attached to. @end table Since 2.4 @end deffn @deffn Function gtk-entry-completion-set-model (self@tie{}@code{}) (model@tie{}@code{}) @deffnx Method set-model Sets the model for a @code{}. If @var{completion} already has a model set, it will remove it before setting the new model. If model is @samp{@code{#f}}, then it will unset the model. @table @var @item completion A @code{}. @item model The @code{}. @end table Since 2.4 @end deffn @deffn Function gtk-entry-completion-get-model (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{}) @deffnx Method get-model Returns the model the @code{} is using as data source. Returns @samp{@code{#f}} if the model is unset. @table @var @item completion A @code{}. @item ret A @code{}, or @samp{@code{#f}} if none is currently being used. @end table Since 2.4 @end deffn @deffn Function gtk-entry-completion-complete (self@tie{}@code{}) @deffnx Method complete Requests a completion operation, or in other words a refiltering of the current list with completions, using the current key. The completion list view will be updated accordingly. @table @var @item completion A @code{}. @end table Since 2.4 @end deffn @deffn Function gtk-entry-completion-insert-prefix (self@tie{}@code{}) @deffnx Method insert-prefix Requests a prefix insertion. @table @var @item completion a @code{} @end table Since 2.6 @end deffn @deffn Function gtk-entry-completion-delete-action (self@tie{}@code{}) (index@tie{}@code{int}) @deffnx Method delete-action Deletes the action at @var{index} from @var{completion}'s action list. @table @var @item completion A @code{}. @item index The index of the item to Delete. @end table Since 2.4 @end deffn @c %end of fragment guile-gnome-platform-2.16.2/gtk/doc/gtk/defuns-gtkentry.xml.texi0000644000175000017500000003256411670374302025143 0ustar00wingowingo00000000000000 @c %start of fragment @deftp Class Derives from @code{}, @code{}, @code{}. This class defines the following slots: @table @code @item cursor-position The current position of the insertion cursor in chars @item selection-bound The position of the opposite end of the selection from the cursor in chars @item editable Whether the entry contents can be edited @item max-length Maximum number of characters for this entry. Zero if no maximum @item visibility FALSE displays the "invisible char" instead of the actual text (password mode) @item has-frame FALSE removes outside bevel from entry @item inner-border Border between text and frame. Overrides the inner-border style property @item invisible-char The character to use when masking entry contents (in "password mode") @item activates-default Whether to activate the default widget (such as the default button in a dialog) when Enter is pressed @item width-chars Number of characters to leave space for in the entry @item scroll-offset Number of pixels of the entry scrolled off the screen to the left @item text The contents of the entry @item xalign The horizontal alignment, from 0 (left) to 1 (right). Reversed for RTL layouts. @item truncate-multiline Whether to truncate multiline pastes to one line. @item shadow-type Which kind of shadow to draw around the entry when has-frame is set @end table @end deftp @defop Signal move-cursor (arg0@tie{}@code{}) (arg1@tie{}@code{}) (arg2@tie{}@code{}) @end defop @defop Signal copy-clipboard @end defop @defop Signal populate-popup (arg0@tie{}@code{}) @end defop @defop Signal activate @end defop @defop Signal insert-at-cursor (arg0@tie{}@code{}) @end defop @defop Signal delete-from-cursor (arg0@tie{}@code{}) (arg1@tie{}@code{}) @end defop @defop Signal backspace @end defop @defop Signal cut-clipboard @end defop @defop Signal paste-clipboard @end defop @defop Signal toggle-overwrite @end defop @deffn Function gtk-entry-set-text (self@tie{}@code{}) (text@tie{}@code{mchars}) @deffnx Method set-text Sets the text in the widget to the given value, replacing the current contents. @table @var @item entry a @code{}. @item text the new text. @end table @end deffn @deffn Function gtk-entry-get-text (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{mchars}) @deffnx Method get-text Retrieves the contents of the entry widget. See also @code{gtk-editable-get-chars}. @table @var @item entry a @code{} @item ret a pointer to the contents of the widget as a string. This string points to internally allocated storage in the widget and must not be freed, modified or stored. @end table @end deffn @deffn Function gtk-entry-set-visibility (self@tie{}@code{}) (visible@tie{}@code{bool}) @deffnx Method set-visibility Sets whether the contents of the entry are visible or not. When visibility is set to @samp{@code{#f}}, characters are displayed as the invisible char, and will also appear that way when the text in the entry widget is copied elsewhere. The default invisible char is the asterisk '*', but it can be changed with @code{gtk-entry-set-invisible-char}. @table @var @item entry a @code{}. @item visible @samp{@code{#t}} if the contents of the entry are displayed as plaintext. @end table @end deffn @deffn Function gtk-entry-set-invisible-char (self@tie{}@code{}) (ch@tie{}@code{unsigned-int32}) @deffnx Method set-invisible-char Sets the character to use in place of the actual text when @code{gtk-entry-set-visibility} has been called to set text visibility to @samp{@code{#f}}. i.e. this is the character used in "password mode" to show the user how many characters have been typed. The default invisible char is an asterisk ('*'). If you set the invisible char to 0, then the user will get no feedback at all; there will be no text on the screen as they type. @table @var @item entry a @code{} @item ch a Unicode character @end table @end deffn @deffn Function gtk-entry-set-max-length (self@tie{}@code{}) (max@tie{}@code{int}) @deffnx Method set-max-length Sets the maximum allowed length of the contents of the widget. If the current contents are longer than the given length, then they will be truncated to fit. @table @var @item entry a @code{}. @item max the maximum length of the entry, or 0 for no maximum. (other than the maximum length of entries.) The value passed in will be clamped to the range 0-65536. @end table @end deffn @deffn Function gtk-entry-get-activates-default (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{bool}) @deffnx Method get-activates-default Retrieves the value set by @code{gtk-entry-set-activates-default}. @table @var @item entry a @code{} @item ret @samp{@code{#t}} if the entry will activate the default widget @end table @end deffn @deffn Function gtk-entry-get-has-frame (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{bool}) @deffnx Method get-has-frame Gets the value set by @code{gtk-entry-set-has-frame}. @table @var @item entry a @code{} @item ret whether the entry has a beveled frame @end table @end deffn @deffn Function gtk-entry-get-inner-border (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{}) @deffnx Method get-inner-border This function returns the entry's inner-border property. See @code{gtk-entry-set-inner-border} for more information. @table @var @item entry a @code{} @item ret the entry's @code{}, or @samp{@code{#f}} if none was set. @end table Since 2.10 @end deffn @deffn Function gtk-entry-get-width-chars (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{int}) @deffnx Method get-width-chars Gets the value set by @code{gtk-entry-set-width-chars}. @table @var @item entry a @code{} @item ret number of chars to request space for, or negative if unset @end table @end deffn @deffn Function gtk-entry-set-activates-default (self@tie{}@code{}) (setting@tie{}@code{bool}) @deffnx Method set-activates-default If @var{setting} is @samp{@code{#t}}, pressing Enter in the @var{entry} will activate the default widget for the window containing the entry. This usually means that the dialog box containing the entry will be closed, since the default widget is usually one of the dialog buttons. (For experts: if @var{setting} is @samp{@code{#t}}, the entry calls @code{gtk-window-activate-default} on the window containing the entry, in the default handler for the "activate" signal.) @table @var @item entry a @code{} @item setting @samp{@code{#t}} to activate window's default widget on Enter keypress @end table @end deffn @deffn Function gtk-entry-set-has-frame (self@tie{}@code{}) (setting@tie{}@code{bool}) @deffnx Method set-has-frame Sets whether the entry has a beveled frame around it. @table @var @item entry a @code{} @item setting new value @end table @end deffn @deffn Function gtk-entry-set-inner-border (self@tie{}@code{}) (border@tie{}@code{}) @deffnx Method set-inner-border Sets @samp{entry}'s inner-border property to @samp{border}, or clears it if @samp{@code{#f}} is passed. The inner-border is the area around the entry's text, but inside its frame. If set, this property overrides the inner-border style property. Overriding the style-provided border is useful when you want to do in-place editing of some text in a canvas or list widget, where pixel-exact positioning of the entry is important. @table @var @item entry a @code{} @item border a @code{}, or @samp{@code{#f}} @end table Since 2.10 @end deffn @deffn Function gtk-entry-set-width-chars (self@tie{}@code{}) (n_chars@tie{}@code{int}) @deffnx Method set-width-chars Changes the size request of the entry to be about the right size for @var{n-chars} characters. Note that it changes the size @emph{request}, the size can still be affected by how you pack the widget into containers. If @var{n-chars} is -1, the size reverts to the default entry size. @table @var @item entry a @code{} @item n-chars width in chars @end table @end deffn @deffn Function gtk-entry-get-invisible-char (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{unsigned-int32}) @deffnx Method get-invisible-char Retrieves the character displayed in place of the real characters for entries with visisbility set to false. See @code{gtk-entry-set-invisible-char}. @table @var @item entry a @code{} @item ret the current invisible char, or 0, if the entry does not show invisible text at all. @end table @end deffn @deffn Function gtk-entry-set-alignment (self@tie{}@code{}) (xalign@tie{}@code{float}) @deffnx Method set-alignment Sets the alignment for the contents of the entry. This controls the horizontal positioning of the contents when the displayed text is shorter than the width of the entry. @table @var @item entry a @code{} @item xalign The horizontal alignment, from 0 (left) to 1 (right). Reversed for RTL layouts @end table Since 2.4 @end deffn @deffn Function gtk-entry-get-alignment (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{float}) @deffnx Method get-alignment Gets the value set by @code{gtk-entry-set-alignment}. @table @var @item entry a @code{} @item ret the alignment @end table Since 2.4 @end deffn @deffn Function gtk-entry-get-layout (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{}) @deffnx Method get-layout Gets the @code{} used to display the entry. The layout is useful to e.g. convert text positions to pixel positions, in combination with @code{gtk-entry-get-layout-offsets}. The returned layout is owned by the entry and must not be modified or freed by the caller. Keep in mind that the layout text may contain a preedit string, so @code{gtk-entry-layout-index-to-text-index} and @code{gtk-entry-text-index-to-layout-index} are needed to convert byte indices in the layout to byte indices in the entry contents. @table @var @item entry a @code{} @item ret the @code{} for this entry @end table @end deffn @deffn Function gtk-entry-get-layout-offsets (self@tie{}@code{}) @result{}@tie{} (x@tie{}@code{int}) (y@tie{}@code{int}) @deffnx Method get-layout-offsets Obtains the position of the @code{} used to render text in the entry, in widget coordinates. Useful if you want to line up the text in an entry with some other text, e.g. when using the entry to implement editable cells in a sheet widget. Also useful to convert mouse events into coordinates inside the @code{}, e.g. to take some action if some part of the entry text is clicked. Note that as the user scrolls around in the entry the offsets will change; you'll need to connect to the "notify::scroll-offset" signal to track this. Remember when using the @code{} functions you need to convert to and from pixels using @code{pango-pixels} or @code{}. Keep in mind that the layout text may contain a preedit string, so @code{gtk-entry-layout-index-to-text-index} and @code{gtk-entry-text-index-to-layout-index} are needed to convert byte indices in the layout to byte indices in the entry contents. @table @var @item entry a @code{} @item x location to store X offset of layout, or @samp{@code{#f}} @item y location to store Y offset of layout, or @samp{@code{#f}} @end table @end deffn @deffn Function gtk-entry-get-max-length (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{int}) @deffnx Method get-max-length Retrieves the maximum allowed length of the text in @var{entry}. See @code{gtk-entry-set-max-length}. @table @var @item entry a @code{} @item ret the maximum allowed number of characters in @code{}, or 0 if there is no maximum. @end table @end deffn @deffn Function gtk-entry-get-visibility (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{bool}) @deffnx Method get-visibility Retrieves whether the text in @var{entry} is visible. See @code{gtk-entry-set-visibility}. @table @var @item entry a @code{} @item ret @samp{@code{#t}} if the text is currently visible @end table @end deffn @deffn Function gtk-entry-set-completion (self@tie{}@code{}) (completion@tie{}@code{}) @deffnx Method set-completion Sets @var{completion} to be the auxiliary completion object to use with @var{entry}. All further configuration of the completion mechanism is done on @var{completion} using the @code{} API. Completion is disabled if @var{completion} is set to @samp{@code{#f}}. @table @var @item entry A @code{}. @item completion The @code{} or @samp{@code{#f}}. @end table Since 2.4 @end deffn @deffn Function gtk-entry-get-completion (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{}) @deffnx Method get-completion Returns the auxiliary completion object currently in use by @var{entry}. @table @var @item entry A @code{}. @item ret The auxiliary completion object currently in use by @var{entry}. @end table Since 2.4 @end deffn @c %end of fragment guile-gnome-platform-2.16.2/gtk/doc/gdk/0000755000175000017500000000000011752546502020272 5ustar00wingowingo00000000000000guile-gnome-platform-2.16.2/gtk/doc/gdk/defuns-cursors.xml.texi0000644000175000017500000001754511670374302024756 0ustar00wingowingo00000000000000 @c %start of fragment @deftp Class Derives from @code{}. This class defines no direct slots. @end deftp @deffn Function gdk-cursor-new (cursor_type@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{}) Creates a new cursor from the set of builtin cursors for the default display. See @code{gdk-cursor-new-for-display}. To make the cursor invisible, use @code{gdk-cursor-new-from-pixmap} to create a cursor with no pixels in it. @table @var @item cursor-type cursor to create @item ret a new @code{} @end table @end deffn @deffn Function gdk-cursor-new-from-pixmap (source@tie{}@code{}) (mask@tie{}@code{}) (fg@tie{}@code{}) (bg@tie{}@code{}) (x@tie{}@code{int}) (y@tie{}@code{int}) @result{}@tie{} (ret@tie{}@code{}) Creates a new cursor from a given pixmap and mask. Both the pixmap and mask must have a depth of 1 (i.e. each pixel has only 2 values - on or off). The standard cursor size is 16 by 16 pixels. You can create a bitmap from inline data as in the below example. @c (title "Creating a custom cursor") @example /* This data is in X bitmap format, and can be created with the 'bitmap' utility. */ #define cursor1_width 16 #define cursor1_height 16 static unsigned char cursor1_bits[] = @{ 0x80, 0x01, 0x40, 0x02, 0x20, 0x04, 0x10, 0x08, 0x08, 0x10, 0x04, 0x20, 0x82, 0x41, 0x41, 0x82, 0x41, 0x82, 0x82, 0x41, 0x04, 0x20, 0x08, 0x10, 0x10, 0x08, 0x20, 0x04, 0x40, 0x02, 0x80, 0x01@}; static unsigned char cursor1mask_bits[] = @{ 0x80, 0x01, 0xc0, 0x03, 0x60, 0x06, 0x30, 0x0c, 0x18, 0x18, 0x8c, 0x31, 0xc6, 0x63, 0x63, 0xc6, 0x63, 0xc6, 0xc6, 0x63, 0x8c, 0x31, 0x18, 0x18, 0x30, 0x0c, 0x60, 0x06, 0xc0, 0x03, 0x80, 0x01@}; GdkCursor *cursor; GdkPixmap *source, *mask; GdkColor fg = @{ 0, 65535, 0, 0 @}; /* Red. */ GdkColor bg = @{ 0, 0, 0, 65535 @}; /* Blue. */ source = gdk_bitmap_create_from_data (NULL, cursor1_bits, cursor1_width, cursor1_height); mask = gdk_bitmap_create_from_data (NULL, cursor1mask_bits, cursor1_width, cursor1_height); cursor = gdk_cursor_new_from_pixmap (source, mask, &fg, &bg, 8, 8); gdk_pixmap_unref (source); gdk_pixmap_unref (mask); gdk_window_set_cursor (widget->window, cursor); @end example @table @var @item source the pixmap specifying the cursor. @item mask the pixmap specifying the mask, which must be the same size as @var{source}. @item fg the foreground color, used for the bits in the source which are 1. The color does not have to be allocated first. @item bg the background color, used for the bits in the source which are 0. The color does not have to be allocated first. @item x the horizontal offset of the 'hotspot' of the cursor. @item y the vertical offset of the 'hotspot' of the cursor. @item ret a new @code{}. @end table @end deffn @deffn Function gdk-cursor-new-from-pixbuf (display@tie{}@code{}) (pixbuf@tie{}@code{}) (x@tie{}@code{int}) (y@tie{}@code{int}) @result{}@tie{} (ret@tie{}@code{}) Creates a new cursor from a pixbuf. Not all GDK backends support RGBA cursors. If they are not supported, a monochrome approximation will be displayed. The functions @code{gdk-display-supports-cursor-alpha} and @code{gdk-display-supports-cursor-color} can be used to determine whether RGBA cursors are supported; @code{gdk-display-get-default-cursor-size} and @code{gdk-display-get-maximal-cursor-size} give information about cursor sizes. On the X backend, support for RGBA cursors requires a sufficently new version of the X Render extension. @table @var @item display the @code{} for which the cursor will be created @item pixbuf the @code{} containing the cursor image @item x the horizontal offset of the 'hotspot' of the cursor. @item y the vertical offset of the 'hotspot' of the cursor. @item ret a new @code{}. @end table Since 2.4 @end deffn @deffn Function gdk-cursor-new-from-name (display@tie{}@code{}) (name@tie{}@code{mchars}) @result{}@tie{} (ret@tie{}@code{}) Creates a new cursor by looking up @var{name} in the current cursor theme. @table @var @item display the @code{} for which the cursor will be created @item name the name of the cursor @item ret a new @code{}, or @samp{@code{#f}} if there is no cursor with the given name @end table Since 2.8 @end deffn @deffn Function gdk-cursor-new-for-display (display@tie{}@code{}) (cursor_type@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{}) Creates a new cursor from the set of builtin cursors. Some useful ones are: @itemize @item @item @item @item @item @item @item @item @item @item @item @item @item @item @item @item @item @end itemize @c (inlinegraphic (@ (format "PNG") (fileref "right_ptr.png"))) @code{} (right-facing arrow) @c (inlinegraphic (@ (format "PNG") (fileref "crosshair.png"))) @code{} (crosshair) @c (inlinegraphic (@ (format "PNG") (fileref "xterm.png"))) @code{} (I-beam) @c (inlinegraphic (@ (format "PNG") (fileref "watch.png"))) @code{} (busy) @c (inlinegraphic (@ (format "PNG") (fileref "fleur.png"))) @code{} (for moving objects) @c (inlinegraphic (@ (format "PNG") (fileref "hand1.png"))) @code{} (a right-pointing hand) @c (inlinegraphic (@ (format "PNG") (fileref "hand2.png"))) @code{} (a left-pointing hand) @c (inlinegraphic (@ (format "PNG") (fileref "left_side.png"))) @code{} (resize left side) @c (inlinegraphic (@ (format "PNG") (fileref "right_side.png"))) @code{} (resize right side) @c (inlinegraphic (@ (format "PNG") (fileref "top_left_corner.png"))) @code{} (resize northwest corner) @c (inlinegraphic (@ (format "PNG") (fileref "top_right_corner.png"))) @code{} (resize northeast corner) @c (inlinegraphic (@ (format "PNG") (fileref "bottom_left_corner.png"))) @code{} (resize southwest corner) @c (inlinegraphic (@ (format "PNG") (fileref "bottom_right_corner.png"))) @code{} (resize southeast corner) @c (inlinegraphic (@ (format "PNG") (fileref "top_side.png"))) @code{} (resize top side) @c (inlinegraphic (@ (format "PNG") (fileref "bottom_side.png"))) @code{} (resize bottom side) @c (inlinegraphic (@ (format "PNG") (fileref "sb_h_double_arrow.png"))) @code{} (move vertical splitter) @c (inlinegraphic (@ (format "PNG") (fileref "sb_v_double_arrow.png"))) @code{} (move horizontal splitter) To make the cursor invisible, use @code{gdk-cursor-new-from-pixmap} to create a cursor with no pixels in it. @table @var @item display the @code{} for which the cursor will be created @item cursor-type cursor to create @item ret a new @code{} @end table Since 2.2 @end deffn @deffn Function gdk-cursor-get-display (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{}) Returns the display on which the @code{} is defined. @table @var @item cursor a @code{}. @item ret the @code{} associated to @var{cursor} @end table Since 2.2 @end deffn @deffn Function gdk-cursor-get-image (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{}) Returns a @code{} with the image used to display the cursor. Note that depending on the capabilities of the windowing system and on the cursor, GDK may not be able to obtain the image data. In this case, @samp{@code{#f}} is returned. @table @var @item cursor a @code{} @item ret a @code{} representing @var{cursor}, or @samp{@code{#f}} @end table Since 2.8 @end deffn @c %end of fragment guile-gnome-platform-2.16.2/gtk/doc/gdk/section-gdk-pixbuf.xml.texi0000644000175000017500000000444011670374302025464 0ustar00wingowingo00000000000000 @c %start of fragment @node The GdkPixbuf Structure @chapter The GdkPixbuf Structure Information that describes an image. @section Overview The structure contains information that describes an image in memory. Image data in a pixbuf is stored in memory in uncompressed, packed format. Rows in the image are stored top to bottom, and in each row pixels are stored from left to right. There may be padding at the end of a row. The "rowstride" value of a pixbuf, as returned by @code{gdk-pixbuf-get-rowstride}, indicates the number of bytes between rows. The following code illustrates a simple put_pixel() function for RGB pixbufs with 8 bits per channel with an alpha channel. It is not included in the gdk-pixbuf library for performance reasons; rather than making several function calls for each pixel, your own code can take shortcuts. @example static void put_pixel (GdkPixbuf *pixbuf, int x, int y, guchar red, guchar green, guchar blue, guchar alpha) @{ int width, height, rowstride, n_channels; guchar *pixels, *p; n_channels = gdk_pixbuf_get_n_channels (pixbuf); g_assert (gdk_pixbuf_get_colorspace (pixbuf) == GDK_COLORSPACE_RGB); g_assert (gdk_pixbuf_get_bits_per_sample (pixbuf) == 8); g_assert (gdk_pixbuf_get_has_alpha (pixbuf)); g_assert (n_channels == 4); width = gdk_pixbuf_get_width (pixbuf); height = gdk_pixbuf_get_height (pixbuf); g_assert (x >= 0 && x < width); g_assert (y >= 0 && y < height); rowstride = gdk_pixbuf_get_rowstride (pixbuf); pixels = gdk_pixbuf_get_pixels (pixbuf); p = pixels + y * rowstride + x * n_channels; p[0] = red; p[1] = green; p[2] = blue; p[3] = alpha; @} @end example This function will not work for pixbufs with images that are other than 8 bits per sample or channel, but it will work for most of the pixbufs that GTK+ uses. If you are doing @code{memcpy} of raw pixbuf data, note that the last row in the pixbuf may not be as wide as the full rowstride, but rather just as wide as the pixel data needs to be. That is, it is unsafe to do @samp{memcpy (dest, pixels, rowstride * height)} to copy a whole pixbuf. Use @code{gdk-pixbuf-copy} instead, or compute the width in bytes of the last row as @samp{width * ((n_channels * bits_per_sample + 7) / 8)}. @section Usage @include defuns-gdk-pixbuf.xml.texi @c %end of fragment guile-gnome-platform-2.16.2/gtk/doc/gdk/defuns-cairo_interaction.xml.texi0000644000175000017500000000476411670374302026751 0ustar00wingowingo00000000000000 @c %start of fragment @deffn Function gdk-cairo-create (drawable@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{cairo-t}) Creates a Cairo context for drawing to @var{drawable}. @table @var @item drawable a @code{} @item ret A newly created Cairo context. Free with @code{cairo-destroy} when you are done drawing. @end table Since 2.8 @end deffn @deffn Function gdk-cairo-set-source-color (cr@tie{}@code{cairo-t}) (color@tie{}@code{}) Sets the specified @code{} as the source color of @var{cr}. @table @var @item cr a @code{} @item color a @code{} @end table Since 2.8 @end deffn @deffn Function gdk-cairo-set-source-pixbuf (cr@tie{}@code{cairo-t}) (pixbuf@tie{}@code{}) (pixbuf_x@tie{}@code{double}) (pixbuf_y@tie{}@code{double}) Sets the given pixbuf as the source pattern for the Cairo context. The pattern has an extend mode of @samp{CAIRO_EXTEND_NONE} and is aligned so that the origin of @var{pixbuf} is @var{pixbuf-x}, @var{pixbuf-y} @table @var @item cr a @code{} context @item pixbuf a @code{} @item pixbuf-x X coordinate of location to place upper left corner of @var{pixbuf} @item pixbuf-y Y coordinate of location to place upper left corner of @var{pixbuf} @end table Since 2.8 @end deffn @deffn Function gdk-cairo-set-source-pixmap (cr@tie{}@code{cairo-t}) (pixmap@tie{}@code{}) (pixmap_x@tie{}@code{double}) (pixmap_y@tie{}@code{double}) Sets the given pixmap as the source pattern for the Cairo context. The pattern has an extend mode of @samp{CAIRO_EXTEND_NONE} and is aligned so that the origin of @var{pixbuf} is @var{pixbuf-x}, @var{pixbuf-y} @table @var @item cr a @code{} context @item pixmap a @code{} @item pixmap-x X coordinate of location to place upper left corner of @var{pixmap} @item pixmap-y Y coordinate of location to place upper left corner of @var{pixmap} @end table Since 2.10 @end deffn @deffn Function gdk-cairo-rectangle (cr@tie{}@code{cairo-t}) (rectangle@tie{}@code{}) Adds the given rectangle to the current path of @var{cr}. @table @var @item cr a @code{} @item rectangle a @code{} @end table Since 2.8 @end deffn @deffn Function gdk-cairo-region (cr@tie{}@code{cairo-t}) (region@tie{}@code{}) Adds the given region to the current path of @var{cr}. @table @var @item cr a @code{} @item region a @code{} @end table Since 2.8 @end deffn @c %end of fragment guile-gnome-platform-2.16.2/gtk/doc/gdk/undocumented.texi0000644000175000017500000000245711670374302023663 0ustar00wingowingo00000000000000 @c %start of fragment @node Undocumented @chapter Undocumented The following symbols, if any, have not been properly documented. @section (gnome gw gdk) @defvar @end defvar @defvar gdk-display-manager-get-default-display @end defvar @defvar gdk-display-manager-set-default-display @end defvar @defvar gdk-display-request-selection-notification @end defvar @defvar gdk-display-set-double-click-distance @end defvar @defvar gdk-display-supports-clipboard-persistence @end defvar @defvar gdk-display-supports-selection-notification @end defvar @defvar gdk-event->vector @end defvar @defvar gdk-pango-renderer-set-override-color @end defvar @defvar gdk-pixbuf-animation-get-static-image @end defvar @defvar gdk-pixbuf-animation-is-static-image @end defvar @defvar gdk-pixbuf-animation-iter-get-delay-time @end defvar @defvar gdk-pixbuf-animation-iter-get-pixbuf @end defvar @defvar gdk-pixbuf-animation-iter-on-currently-loading-frame @end defvar @defvar gdk-pixbuf-error-quark @end defvar @defun gdk-pixbuf-loader-new-with-mime-type @end defun @defun gdk-pixbuf-save-to-port @end defun @defvar gdk-selection-send-notify-for-display @end defvar @defvar gdk-window-enable-synchronized-configure @end defvar @defvar gdk-window-input-shape-combine-region @end defvar @c %end of fragment guile-gnome-platform-2.16.2/gtk/doc/gdk/section-creating.xml.texi0000644000175000017500000000304211670374302025215 0ustar00wingowingo00000000000000 @c %start of fragment @node Image Data in Memory @chapter Image Data in Memory Creating a pixbuf from image data that is already in memory. @section Overview The most basic way to create a pixbuf is to wrap an existing pixel buffer with a @code{} structure. You can use the @code{gdk-pixbuf-new-from-data} function to do this You need to specify the destroy notification function that will be called when the data buffer needs to be freed; this will happen when a @code{} is finalized by the reference counting functions If you have a chunk of static data compiled into your application, you can pass in @samp{@code{#f}} as the destroy notification function so that the data will not be freed. The @code{gdk-pixbuf-new} function can be used as a convenience to create a pixbuf with an empty buffer. This is equivalent to allocating a data buffer using @code{@code{malloc}} and then wrapping it with @code{gdk-pixbuf-new-from-data}. The @code{gdk-pixbuf-new} function will compute an optimal rowstride so that rendering can be performed with an efficient algorithm. As a special case, you can use the @code{gdk-pixbuf-new-from-xpm-data} function to create a pixbuf from inline XPM image data. You can also copy an existing pixbuf with the @code{gdk-pixbuf-copy} function. This is not the same as just doing a @code{g-object-ref} on the old pixbuf; the copy function will actually duplicate the pixel data in memory and create a new @code{} structure for it. @section Usage @include defuns-creating.xml.texi @c %end of fragment guile-gnome-platform-2.16.2/gtk/doc/gdk/defuns-visuals.xml.texi0000644000175000017500000000666711670374302024747 0ustar00wingowingo00000000000000 @c %start of fragment @deftp Class Derives from @code{}. This class defines no direct slots. @end deftp @deffn Function gdk-list-visuals @result{}@tie{} (ret@tie{}@code{glist-of}) Lists the available visuals for the default screen. (See @code{gdk-screen-list-visuals}) A visual describes a hardware image data format. For example, a visual might support 24-bit color, or 8-bit color, and might expect pixels to be in a certain format. Call @code{g-list-free} on the return value when you're finished with it. @table @var @item ret a list of visuals; the list must be freed, but not its contents @end table @end deffn @deffn Function gdk-visual-get-best-depth @result{}@tie{} (ret@tie{}@code{int}) Get the best available depth for the default GDK screen. "Best" means "largest," i.e. 32 preferred over 24 preferred over 8 bits per pixel. @table @var @item ret best available depth @end table @end deffn @deffn Function gdk-visual-get-best-type @result{}@tie{} (ret@tie{}@code{}) Return the best available visual type for the default GDK screen. @table @var @item ret best visual type @end table @end deffn @deffn Function gdk-visual-get-system @result{}@tie{} (ret@tie{}@code{}) Get the system'sdefault visual for the default GDK screen. This is the visual for the root window of the display. The return value should not be freed. @table @var @item ret system visual @end table @end deffn @deffn Function gdk-visual-get-best @result{}@tie{} (ret@tie{}@code{}) Get the visual with the most available colors for the default GDK screen. The return value should not be freed. @table @var @item ret best visual @end table @end deffn @deffn Function gdk-visual-get-best-with-depth (depth@tie{}@code{int}) @result{}@tie{} (ret@tie{}@code{}) Get the best visual with depth @var{depth} for the default GDK screen. Color visuals and visuals with mutable colormaps are preferred over grayscale or fixed-colormap visuals. The return value should not be freed. @samp{@code{#f}} may be returned if no visual supports @var{depth}. @table @var @item depth a bit depth @item ret best visual for the given depth @end table @end deffn @deffn Function gdk-visual-get-best-with-type (visual_type@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{}) Get the best visual of the given @var{visual-type} for the default GDK screen. Visuals with higher color depths are considered better. The return value should not be freed. @samp{@code{#f}} may be returned if no visual has type @var{visual-type}. @table @var @item visual-type a visual type @item ret best visual of the given type @end table @end deffn @deffn Function gdk-visual-get-best-with-both (depth@tie{}@code{int}) (visual_type@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{}) Combines @code{gdk-visual-get-best-with-depth} and @code{gdk-visual-get-best-with-type}. @table @var @item depth a bit depth @item visual-type a visual type @item ret best visual with both @var{depth} and @var{visual-type}, or @samp{@code{#f}} if none @end table @end deffn @deffn Function gdk-visual-get-screen (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{}) @deffnx Method get-screen Gets the screen to which this visual belongs @table @var @item visual a @code{} @item ret the screen to which this visual belongs. @end table Since 2.2 @end deffn @c %end of fragment guile-gnome-platform-2.16.2/gtk/doc/gdk/defuns-gdkdisplaymanager.xml.texi0000644000175000017500000000311311670374302026726 0ustar00wingowingo00000000000000 @c %start of fragment @deftp Class Derives from @code{}. This class defines the following slots: @table @code @item default-display The default display for GDK @end table @end deftp @defop Signal display-opened (arg0@tie{}@code{}) The ::display_opened signal is emitted when a display is opened. Since 2.2 @end defop @deffn Function gdk-display-manager-get @result{}@tie{} (ret@tie{}@code{}) Returns the global @code{} singleton; @code{gdk-parse-pargs}, @code{gdk-init}, or @code{gdk-init-check} must have been called first. @table @var @item ret the singleton @code{} object. @end table Since 2.2 @end deffn @deffn Function gdk-display-manager-list-displays (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{gslist-of}) @deffnx Method list-displays List all currently open displays. @table @var @item display-manager a @code{} @item ret a newly allocated @code{} of @code{} objects. Free this list with @code{g-slist-free} when you are done with it. @end table Since 2.2 @end deffn @deffn Function gdk-display-get-core-pointer (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{}) @deffnx Method get-core-pointer Returns the core pointer device for the given display @table @var @item display a @code{} @item ret the core pointer device; this is owned by the display and should not be freed. @end table Since 2.2 @end deffn @c %end of fragment guile-gnome-platform-2.16.2/gtk/doc/gdk/section-event_structs.xml.texi0000644000175000017500000000065211670374302026335 0ustar00wingowingo00000000000000 @c %start of fragment @node Event Structures @chapter Event Structures Data structures specific to each type of event @section Overview The event structs contain data specific to each type of event in GDK. A common mistake is to forget to set the event mask of a widget so that the required events are received. See @code{gtk-widget-set-events}. @section Usage @include defuns-event_structs.xml.texi @c %end of fragment guile-gnome-platform-2.16.2/gtk/doc/gdk/defuns-windows.xml.texi0000644000175000017500000016566011670374302024752 0ustar00wingowingo00000000000000 @c %start of fragment @deffn Function gdk-window-destroy (self@tie{}@code{}) @deffnx Method destroy Destroys the window system resources associated with @var{window} and decrements @var{window}'s reference count. The window system resources for all children of @var{window} are also destroyed, but the children's reference counts are not decremented. Note that a window will not be destroyed automatically when its reference count reaches zero. You must call this function yourself before that happens. @table @var @item window a @code{} @end table @end deffn @deffn Function gdk-window-get-window-type (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{}) @deffnx Method get-window-type Gets the type of the window. See @code{}. @table @var @item window a @code{} @item ret type of window @end table @end deffn @deffn Function gdk-window-at-pointer @result{}@tie{} (ret@tie{}@code{}) (win_x@tie{}@code{int}) (win_y@tie{}@code{int}) Obtains the window underneath the mouse pointer, returning the location of that window in @var{win-x}, @var{win-y}. Returns @samp{@code{#f}} if the window under the mouse pointer is not known to GDK (if the window belongs to another application and a @code{} hasn't been created for it with @code{gdk-window-foreign-new}) NOTE: For multihead-aware widgets or applications use @code{gdk-display-get-window-at-pointer} instead. @table @var @item win-x return location for origin of the window under the pointer @item win-y return location for origin of the window under the pointer @item ret window under the mouse pointer @end table @end deffn @deffn Function gdk-window-show (self@tie{}@code{}) @deffnx Method show Like @code{gdk-window-show-unraised}, but also raises the window to the top of the window stack (moves the window to the front of the Z-order). This function maps a window so it's visible onscreen. Its opposite is @code{gdk-window-hide}. When implementing a @code{}, you should call this function on the widget's @code{} as part of the "map" method. @table @var @item window a @code{} @end table @end deffn @deffn Function gdk-window-show-unraised (self@tie{}@code{}) @deffnx Method show-unraised Shows a @code{} onscreen, but does not modify its stacking order. In contrast, @code{gdk-window-show} will raise the window to the top of the window stack. On the X11 platform, in Xlib terms, this function calls @code{x-map-window} (it also updates some internal GDK state, which means that you can't really use @code{x-map-window} directly on a GDK window). @table @var @item window a @code{} @end table @end deffn @deffn Function gdk-window-hide (self@tie{}@code{}) @deffnx Method hide For toplevel windows, withdraws them, so they will no longer be known to the window manager; for all windows, unmaps them, so they won't be displayed. Normally done automatically as part of @code{gtk-widget-hide}. @table @var @item window a @code{} @end table @end deffn @deffn Function gdk-window-is-visible (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{bool}) @deffnx Method is-visible Checks whether the window has been mapped (with @code{gdk-window-show} or @code{gdk-window-show-unraised}). @table @var @item window a @code{} @item ret @samp{@code{#t}} if the window is mapped @end table @end deffn @deffn Function gdk-window-is-viewable (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{bool}) @deffnx Method is-viewable Check if the window and all ancestors of the window are mapped. (This is not necessarily "viewable" in the X sense, since we only check as far as we have GDK window parents, not to the root window.) @table @var @item window a @code{} @item ret @samp{@code{#t}} if the window is viewable @end table @end deffn @deffn Function gdk-window-get-state (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{}) @deffnx Method get-state Gets the bitwise OR of the currently active window state flags, from the @code{} enumeration. @table @var @item window a @code{} @item ret window state bitfield @end table @end deffn @deffn Function gdk-window-withdraw (self@tie{}@code{}) @deffnx Method withdraw Withdraws a window (unmaps it and asks the window manager to forget about it). This function is not really useful as @code{gdk-window-hide} automatically withdraws toplevel windows before hiding them. @table @var @item window a toplevel @code{} @end table @end deffn @deffn Function gdk-window-iconify (self@tie{}@code{}) @deffnx Method iconify Asks to iconify (minimize) @var{window}. The window manager may choose to ignore the request, but normally will honor it. Using @code{gtk-window-iconify} is preferred, if you have a @code{} widget. This function only makes sense when @var{window} is a toplevel window. @table @var @item window a toplevel @code{} @end table @end deffn @deffn Function gdk-window-deiconify (self@tie{}@code{}) @deffnx Method deiconify Attempt to deiconify (unminimize) @var{window}. On X11 the window manager may choose to ignore the request to deiconify. When using GTK+, use @code{gtk-window-deiconify} instead of the @code{} variant. Or better yet, you probably want to use @code{gtk-window-present}, which raises the window, focuses it, unminimizes it, and puts it on the current desktop. @table @var @item window a toplevel @code{} @end table @end deffn @deffn Function gdk-window-stick (self@tie{}@code{}) @deffnx Method stick "Pins" a window such that it's on all workspaces and does not scroll with viewports, for window managers that have scrollable viewports. (When using @code{}, @code{gtk-window-stick} may be more useful.) On the X11 platform, this function depends on window manager support, so may have no effect with many window managers. However, GDK will do the best it can to convince the window manager to stick the window. For window managers that don't support this operation, there's nothing you can do to force it to happen. @table @var @item window a toplevel @code{} @end table @end deffn @deffn Function gdk-window-unstick (self@tie{}@code{}) @deffnx Method unstick Reverse operation for @code{gdk-window-stick}; see @code{gdk-window-stick}, and @code{gtk-window-unstick}. @table @var @item window a toplevel @code{} @end table @end deffn @deffn Function gdk-window-maximize (self@tie{}@code{}) @deffnx Method maximize Maximizes the window. If the window was already maximized, then this function does nothing. On X11, asks the window manager to maximize @var{window}, if the window manager supports this operation. Not all window managers support this, and some deliberately ignore it or don't have a concept of "maximized"; so you can't rely on the maximization actually happening. But it will happen with most standard window managers, and GDK makes a best effort to get it to happen. On Windows, reliably maximizes the window. @table @var @item window a toplevel @code{} @end table @end deffn @deffn Function gdk-window-unmaximize (self@tie{}@code{}) @deffnx Method unmaximize Unmaximizes the window. If the window wasn't maximized, then this function does nothing. On X11, asks the window manager to unmaximize @var{window}, if the window manager supports this operation. Not all window managers support this, and some deliberately ignore it or don't have a concept of "maximized"; so you can't rely on the unmaximization actually happening. But it will happen with most standard window managers, and GDK makes a best effort to get it to happen. On Windows, reliably unmaximizes the window. @table @var @item window a toplevel @code{} @end table @end deffn @deffn Function gdk-window-fullscreen (self@tie{}@code{}) @deffnx Method fullscreen Moves the window into fullscreen mode. This means the window covers the entire screen and is above any panels or task bars. If the window was already fullscreen, then this function does nothing. On X11, asks the window manager to put @var{window} in a fullscreen state, if the window manager supports this operation. Not all window managers support this, and some deliberately ignore it or don't have a concept of "fullscreen"; so you can't rely on the fullscreenification actually happening. But it will happen with most standard window managers, and GDK makes a best effort to get it to happen. @table @var @item window a toplevel @code{} @end table Since 2.2 @end deffn @deffn Function gdk-window-unfullscreen (self@tie{}@code{}) @deffnx Method unfullscreen Moves the window out of fullscreen mode. If the window was not fullscreen, does nothing. On X11, asks the window manager to move @var{window} out of the fullscreen state, if the window manager supports this operation. Not all window managers support this, and some deliberately ignore it or don't have a concept of "fullscreen"; so you can't rely on the unfullscreenification actually happening. But it will happen with most standard window managers, and GDK makes a best effort to get it to happen. @table @var @item window a toplevel @code{} @end table Since 2.2 @end deffn @deffn Function gdk-window-set-keep-above (self@tie{}@code{}) (setting@tie{}@code{bool}) @deffnx Method set-keep-above Set if @var{window} must be kept above other windows. If the window was already above, then this function does nothing. On X11, asks the window manager to keep @var{window} above, if the window manager supports this operation. Not all window managers support this, and some deliberately ignore it or don't have a concept of "keep above"; so you can't rely on the window being kept above. But it will happen with most standard window managers, and GDK makes a best effort to get it to happen. @table @var @item window a toplevel @code{} @item setting whether to keep @var{window} above other windows @end table Since 2.4 @end deffn @deffn Function gdk-window-set-keep-below (self@tie{}@code{}) (setting@tie{}@code{bool}) @deffnx Method set-keep-below Set if @var{window} must be kept below other windows. If the window was already below, then this function does nothing. On X11, asks the window manager to keep @var{window} below, if the window manager supports this operation. Not all window managers support this, and some deliberately ignore it or don't have a concept of "keep below"; so you can't rely on the window being kept below. But it will happen with most standard window managers, and GDK makes a best effort to get it to happen. @table @var @item window a toplevel @code{} @item setting whether to keep @var{window} below other windows @end table Since 2.4 @end deffn @deffn Function gdk-window-move (self@tie{}@code{}) (x@tie{}@code{int}) (y@tie{}@code{int}) @deffnx Method move Repositions a window relative to its parent window. For toplevel windows, window managers may ignore or modify the move; you should probably use @code{gtk-window-move} on a @code{} widget anyway, instead of using GDK functions. For child windows, the move will reliably succeed. If you're also planning to resize the window, use @code{gdk-window-move-resize} to both move and resize simultaneously, for a nicer visual effect. @table @var @item window a @code{} @item x X coordinate relative to window's parent @item y Y coordinate relative to window's parent @end table @end deffn @deffn Function gdk-window-resize (self@tie{}@code{}) (width@tie{}@code{int}) (height@tie{}@code{int}) @deffnx Method resize Resizes @var{window}; for toplevel windows, asks the window manager to resize the window. The window manager may not allow the resize. When using GTK+, use @code{gtk-window-resize} instead of this low-level GDK function. Windows may not be resized below 1x1. If you're also planning to move the window, use @code{gdk-window-move-resize} to both move and resize simultaneously, for a nicer visual effect. @table @var @item window a @code{} @item width new width of the window @item height new height of the window @end table @end deffn @deffn Function gdk-window-move-resize (self@tie{}@code{}) (x@tie{}@code{int}) (y@tie{}@code{int}) (width@tie{}@code{int}) (height@tie{}@code{int}) @deffnx Method move-resize Equivalent to calling @code{gdk-window-move} and @code{gdk-window-resize}, except that both operations are performed at once, avoiding strange visual effects. (i.e. the user may be able to see the window first move, then resize, if you don't use @code{gdk-window-move-resize}.) @table @var @item window a @code{} @item x new X position relative to window's parent @item y new Y position relative to window's parent @item width new width @item height new height @end table @end deffn @deffn Function gdk-window-scroll (self@tie{}@code{}) (dx@tie{}@code{int}) (dy@tie{}@code{int}) @deffnx Method scroll Scroll the contents of @var{window}, both pixels and children, by the given amount. @var{window} itself does not move. Portions of the window that the scroll operation brings in from offscreen areas are invalidated. The invalidated region may be bigger than what would strictly be necessary. (For X11, a minimum area will be invalidated if the window has no subwindows, or if the edges of the window's parent do not extend beyond the edges of the window. In other cases, a multi-step process is used to scroll the window which may produce temporary visual artifacts and unnecessary invalidations.) @table @var @item window a @code{} @item dx Amount to scroll in the X direction @item dy Amount to scroll in the Y direction @end table @end deffn @deffn Function gdk-window-move-region (self@tie{}@code{}) (region@tie{}@code{}) (dx@tie{}@code{int}) (dy@tie{}@code{int}) @deffnx Method move-region Move the part of @var{window} indicated by @var{region} by @var{dy} pixels in the Y direction and @var{dx} pixels in the X direction. The portions of @var{region} that not covered by the new position of @var{region} are invalidated. Child windows are not moved. @table @var @item window a @code{} @item region The @code{} to move @item dx Amount to move in the X direction @item dy Amount to move in the Y direction @end table Since 2.8 @end deffn @deffn Function gdk-window-reparent (self@tie{}@code{}) (new_parent@tie{}@code{}) (x@tie{}@code{int}) (y@tie{}@code{int}) @deffnx Method reparent Reparents @var{window} into the given @var{new-parent}. The window being reparented will be unmapped as a side effect. @table @var @item window a @code{} @item new-parent new parent to move @var{window} into @item x X location inside the new parent @item y Y location inside the new parent @end table @end deffn @deffn Function gdk-window-clear (self@tie{}@code{}) @deffnx Method clear Clears an entire @var{window} to the background color or background pixmap. @table @var @item window a @code{} @end table @end deffn @deffn Function gdk-window-clear-area (self@tie{}@code{}) (x@tie{}@code{int}) (y@tie{}@code{int}) (width@tie{}@code{int}) (height@tie{}@code{int}) @deffnx Method clear-area Clears an area of @var{window} to the background color or background pixmap. @table @var @item window a @code{} @item x x coordinate of rectangle to clear @item y y coordinate of rectangle to clear @item width width of rectangle to clear @item height height of rectangle to clear @end table @end deffn @deffn Function gdk-window-clear-area-e (self@tie{}@code{}) (x@tie{}@code{int}) (y@tie{}@code{int}) (width@tie{}@code{int}) (height@tie{}@code{int}) @deffnx Method clear-area-e Like @code{gdk-window-clear-area}, but also generates an expose event for the cleared area. This function has a stupid name because it dates back to the mists time, pre-GDK-1.0. @table @var @item window a @code{} @item x x coordinate of rectangle to clear @item y y coordinate of rectangle to clear @item width width of rectangle to clear @item height height of rectangle to clear @end table @end deffn @deffn Function gdk-window-raise (self@tie{}@code{}) @deffnx Method raise Raises @var{window} to the top of the Z-order (stacking order), so that other windows with the same parent window appear below @var{window}. This is true whether or not the windows are visible. If @var{window} is a toplevel, the window manager may choose to deny the request to move the window in the Z-order, @code{gdk-window-raise} only requests the restack, does not guarantee it. @table @var @item window a @code{} @end table @end deffn @deffn Function gdk-window-lower (self@tie{}@code{}) @deffnx Method lower Lowers @var{window} to the bottom of the Z-order (stacking order), so that other windows with the same parent window appear above @var{window}. This is true whether or not the other windows are visible. If @var{window} is a toplevel, the window manager may choose to deny the request to move the window in the Z-order, @code{gdk-window-lower} only requests the restack, does not guarantee it. Note that @code{gdk-window-show} raises the window again, so don't call this function before @code{gdk-window-show}. (Try @code{gdk-window-show-unraised}.) @table @var @item window a @code{} @end table @end deffn @deffn Function gdk-window-focus (self@tie{}@code{}) (timestamp@tie{}@code{unsigned-int32}) @deffnx Method focus Sets keyboard focus to @var{window}. In most cases, @code{gtk-window-present} should be used on a @code{}, rather than calling this function. @table @var @item window a @code{} @item timestamp timestamp of the event triggering the window focus @end table @end deffn @deffn Function gdk-window-register-dnd (self@tie{}@code{}) @deffnx Method register-dnd Registers a window as a potential drop destination. @table @var @item window a @code{}. @end table @end deffn @deffn Function gdk-window-begin-resize-drag (self@tie{}@code{}) (edge@tie{}@code{}) (button@tie{}@code{int}) (root_x@tie{}@code{int}) (root_y@tie{}@code{int}) (timestamp@tie{}@code{unsigned-int32}) @deffnx Method begin-resize-drag Begins a window resize operation (for a toplevel window). You might use this function to implement a "window resize grip," for example; in fact @code{} uses it. The function works best with window managers that support the @uref{http://www.freedesktop.org/Standards/wm-spec,Extended Window Manager Hints}, but has a fallback implementation for other window managers. @table @var @item window a toplevel @code{} @item edge the edge or corner from which the drag is started @item button the button being used to drag @item root-x root window X coordinate of mouse click that began the drag @item root-y root window Y coordinate of mouse click that began the drag @item timestamp timestamp of mouse click that began the drag (use @code{gdk-event-get-time}) @end table @end deffn @deffn Function gdk-window-begin-move-drag (self@tie{}@code{}) (button@tie{}@code{int}) (root_x@tie{}@code{int}) (root_y@tie{}@code{int}) (timestamp@tie{}@code{unsigned-int32}) @deffnx Method begin-move-drag Begins a window move operation (for a toplevel window). You might use this function to implement a "window move grip," for example. The function works best with window managers that support the @uref{http://www.freedesktop.org/Standards/wm-spec,Extended Window Manager Hints}, but has a fallback implementation for other window managers. @table @var @item window a toplevel @code{} @item button the button being used to drag @item root-x root window X coordinate of mouse click that began the drag @item root-y root window Y coordinate of mouse click that began the drag @item timestamp timestamp of mouse click that began the drag @end table @end deffn @deffn Function gdk-window-begin-paint-rect (self@tie{}@code{}) (rectangle@tie{}@code{}) @deffnx Method begin-paint-rect A convenience wrapper around @code{gdk-window-begin-paint-region} which creates a rectangular region for you. See @code{gdk-window-begin-paint-region} for details. @table @var @item window a @code{} @item rectangle rectangle you intend to draw to @end table @end deffn @deffn Function gdk-window-begin-paint-region (self@tie{}@code{}) (region@tie{}@code{}) @deffnx Method begin-paint-region Indicates that you are beginning the process of redrawing @var{region}. A backing store (offscreen buffer) large enough to contain @var{region} will be created. The backing store will be initialized with the background color or background pixmap for @var{window}. Then, all drawing operations performed on @var{window} will be diverted to the backing store. When you call @code{gdk-window-end-paint}, the backing store will be copied to @var{window}, making it visible onscreen. Only the part of @var{window} contained in @var{region} will be modified; that is, drawing operations are clipped to @var{region}. The net result of all this is to remove flicker, because the user sees the finished product appear all at once when you call @code{gdk-window-end-paint}. If you draw to @var{window} directly without calling @code{gdk-window-begin-paint-region}, the user may see flicker as individual drawing operations are performed in sequence. The clipping and background-initializing features of @code{gdk-window-begin-paint-region} are conveniences for the programmer, so you can avoid doing that work yourself. When using GTK+, the widget system automatically places calls to @code{gdk-window-begin-paint-region} and @code{gdk-window-end-paint} around emissions of the expose_event signal. That is, if you're writing an expose event handler, you can assume that the exposed area in @code{} has already been cleared to the window background, is already set as the clip region, and already has a backing store. Therefore in most cases, application code need not call @code{gdk-window-begin-paint-region}. (You can disable the automatic calls around expose events on a widget-by-widget basis by calling @code{gtk-widget-set-double-buffered}.) If you call this function multiple times before calling the matching @code{gdk-window-end-paint}, the backing stores are pushed onto a stack. @code{gdk-window-end-paint} copies the topmost backing store onscreen, subtracts the topmost region from all other regions in the stack, and pops the stack. All drawing operations affect only the topmost backing store in the stack. One matching call to @code{gdk-window-end-paint} is required for each call to @code{gdk-window-begin-paint-region}. @table @var @item window a @code{} @item region region you intend to draw to @end table @end deffn @deffn Function gdk-window-end-paint (self@tie{}@code{}) @deffnx Method end-paint Indicates that the backing store created by the most recent call to @code{gdk-window-begin-paint-region} should be copied onscreen and deleted, leaving the next-most-recent backing store or no backing store at all as the active paint region. See @code{gdk-window-begin-paint-region} for full details. It is an error to call this function without a matching @code{gdk-window-begin-paint-region} first. @table @var @item window a @code{} @end table @end deffn @deffn Function gdk-window-invalidate-rect (self@tie{}@code{}) (rect@tie{}@code{}) (invalidate_children@tie{}@code{bool}) @deffnx Method invalidate-rect A convenience wrapper around @code{gdk-window-invalidate-region} which invalidates a rectangular region. See @code{gdk-window-invalidate-region} for details. @table @var @item window a @code{} @item rect rectangle to invalidate @item invalidate-children whether to also invalidate child windows @end table @end deffn @deffn Function gdk-window-invalidate-region (self@tie{}@code{}) (region@tie{}@code{}) (invalidate_children@tie{}@code{bool}) @deffnx Method invalidate-region Adds @var{region} to the update area for @var{window}. The update area is the region that needs to be redrawn, or "dirty region." The call @code{gdk-window-process-updates} sends one or more expose events to the window, which together cover the entire update area. An application would normally redraw the contents of @var{window} in response to those expose events. GDK will call @code{gdk-window-process-all-updates} on your behalf whenever your program returns to the main loop and becomes idle, so normally there's no need to do that manually, you just need to invalidate regions that you know should be redrawn. The @var{invalidate-children} parameter controls whether the region of each child window that intersects @var{region} will also be invalidated. If @samp{@code{#f}}, then the update area for child windows will remain unaffected. See gdk_window_invalidate_maybe_recurse if you need fine grained control over which children are invalidated. @table @var @item window a @code{} @item region a @code{} @item invalidate-children @samp{@code{#t}} to also invalidate child windows @end table @end deffn @deffn Function gdk-window-get-update-area (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{}) @deffnx Method get-update-area Transfers ownership of the update area from @var{window} to the caller of the function. That is, after calling this function, @var{window} will no longer have an invalid/dirty region; the update area is removed from @var{window} and handed to you. If a window has no update area, @code{gdk-window-get-update-area} returns @samp{@code{#f}}. You are responsible for calling @code{gdk-region-destroy} on the returned region if it's non-@samp{@code{#f}}. @table @var @item window a @code{} @item ret the update area for @var{window} @end table @end deffn @deffn Function gdk-window-freeze-updates (self@tie{}@code{}) @deffnx Method freeze-updates Temporarily freezes a window such that it won't receive expose events. The window will begin receiving expose events again when @code{gdk-window-thaw-updates} is called. If @code{gdk-window-freeze-updates} has been called more than once, @code{gdk-window-thaw-updates} must be called an equal number of times to begin processing exposes. @table @var @item window a @code{} @end table @end deffn @deffn Function gdk-window-thaw-updates (self@tie{}@code{}) @deffnx Method thaw-updates Thaws a window frozen with @code{gdk-window-freeze-updates}. @table @var @item window a @code{} @end table @end deffn @deffn Function gdk-window-process-all-updates Calls @code{gdk-window-process-updates} for all windows (see @code{}) in the application. @end deffn @deffn Function gdk-window-process-updates (self@tie{}@code{}) (update_children@tie{}@code{bool}) @deffnx Method process-updates Sends one or more expose events to @var{window}. The areas in each expose event will cover the entire update area for the window (see @code{gdk-window-invalidate-region} for details). Normally GDK calls @code{gdk-window-process-all-updates} on your behalf, so there's no need to call this function unless you want to force expose events to be delivered immediately and synchronously (vs. the usual case, where GDK delivers them in an idle handler). Occasionally this is useful to produce nicer scrolling behavior, for example. @table @var @item window a @code{} @item update-children whether to also process updates for child windows @end table @end deffn @deffn Function gdk-window-set-debug-updates (setting@tie{}@code{bool}) With update debugging enabled, calls to @code{gdk-window-invalidate-region} clear the invalidated region of the screen to a noticeable color, and GDK pauses for a short time before sending exposes to windows during @code{gdk-window-process-updates}. The net effect is that you can see the invalid region for each window and watch redraws as they occur. This allows you to diagnose inefficiencies in your application. In essence, because the GDK rendering model prevents all flicker, if you are redrawing the same region 400 times you may never notice, aside from noticing a speed problem. Enabling update debugging causes GTK to flicker slowly and noticeably, so you can see exactly what's being redrawn when, in what order. The --gtk-debug=updates command line option passed to GTK+ programs enables this debug option at application startup time. That's usually more useful than calling @code{gdk-window-set-debug-updates} yourself, though you might want to use this function to enable updates sometime after application startup time. @table @var @item setting @samp{@code{#t}} to turn on update debugging @end table @end deffn @deffn Function gdk-window-configure-finished (self@tie{}@code{}) @deffnx Method configure-finished Signal to the window system that the application has finished handling Configure events it has received. Window Managers can use this to better synchronize the frame repaint with the application. GTK+ applications will automatically call this function when appropriate. This function can only be called if @code{gdk-window-enable-synchronized-configure} was called previously. @table @var @item window a toplevel @code{} @end table Since 2.6 @end deffn @deffn Function gdk-window-set-override-redirect (self@tie{}@code{}) (override_redirect@tie{}@code{bool}) @deffnx Method set-override-redirect An override redirect window is not under the control of the window manager. This means it won't have a titlebar, won't be minimizable, etc. - it will be entirely under the control of the application. The window manager can't see the override redirect window at all. Override redirect should only be used for short-lived temporary windows, such as popup menus. @code{} uses an override redirect window in its implementation, for example. @table @var @item window a toplevel @code{} @item override-redirect @samp{@code{#t}} if window should be override redirect @end table @end deffn @deffn Function gdk-window-set-accept-focus (self@tie{}@code{}) (accept_focus@tie{}@code{bool}) @deffnx Method set-accept-focus Setting @var{accept-focus} to @samp{@code{#f}} hints the desktop environment that the window doesn't want to receive input focus. On X, it is the responsibility of the window manager to interpret this hint. ICCCM-compliant window manager usually respect it. @table @var @item window a toplevel @code{} @item accept-focus @samp{@code{#t}} if the window should receive input focus @end table Since 2.4 @end deffn @deffn Function gdk-window-set-focus-on-map (self@tie{}@code{}) (focus_on_map@tie{}@code{bool}) @deffnx Method set-focus-on-map Setting @var{focus-on-map} to @samp{@code{#f}} hints the desktop environment that the window doesn't want to receive input focus when it is mapped. focus_on_map should be turned off for windows that aren't triggered interactively (such as popups from network activity). On X, it is the responsibility of the window manager to interpret this hint. Window managers following the freedesktop.org window manager extension specification should respect it. @table @var @item window a toplevel @code{} @item focus-on-map @samp{@code{#t}} if the window should receive input focus when mapped @end table Since 2.6 @end deffn @deffn Function gdk-window-shape-combine-mask (self@tie{}@code{}) (mask@tie{}@code{}) (x@tie{}@code{int}) (y@tie{}@code{int}) @deffnx Method shape-combine-mask Applies a shape mask to @var{window}. Pixels in @var{window} corresponding to set bits in the @var{mask} will be visible; pixels in @var{window} corresponding to unset bits in the @var{mask} will be transparent. This gives a non-rectangular window. If @var{mask} is @samp{@code{#f}}, the shape mask will be unset, and the @var{x}/@var{y} parameters are not used. On the X11 platform, this uses an X server extension which is widely available on most common platforms, but not available on very old X servers, and occasionally the implementation will be buggy. On servers without the shape extension, this function will do nothing. On the Win32 platform the functionality is always present. This function works on both toplevel and child windows. @table @var @item window a @code{} @item mask shape mask @item x X position of shape mask with respect to @var{window} @item y Y position of shape mask with respect to @var{window} @end table @end deffn @deffn Function gdk-window-shape-combine-region (self@tie{}@code{}) (shape_region@tie{}@code{}) (offset_x@tie{}@code{int}) (offset_y@tie{}@code{int}) @deffnx Method shape-combine-region Makes pixels in @var{window} outside @var{shape-region} be transparent, so that the window may be nonrectangular. See also @code{gdk-window-shape-combine-mask} to use a bitmap as the mask. If @var{shape-region} is @samp{@code{#f}}, the shape will be unset, so the whole window will be opaque again. @var{offset-x} and @var{offset-y} are ignored if @var{shape-region} is @samp{@code{#f}}. On the X11 platform, this uses an X server extension which is widely available on most common platforms, but not available on very old X servers, and occasionally the implementation will be buggy. On servers without the shape extension, this function will do nothing. On the Win32 platform, this functionality is always present. This function works on both toplevel and child windows. @table @var @item window a @code{} @item shape-region region of window to be non-transparent @item offset-x X position of @var{shape-region} in @var{window} coordinates @item offset-y Y position of @var{shape-region} in @var{window} coordinates @end table @end deffn @deffn Function gdk-window-set-child-shapes (self@tie{}@code{}) @deffnx Method set-child-shapes Sets the shape mask of @var{window} to the union of shape masks for all children of @var{window}, ignoring the shape mask of @var{window} itself. Contrast with @code{gdk-window-merge-child-shapes} which includes the shape mask of @var{window} in the masks to be merged. @table @var @item window a @code{} @end table @end deffn @deffn Function gdk-window-merge-child-shapes (self@tie{}@code{}) @deffnx Method merge-child-shapes Merges the shape masks for any child windows into the shape mask for @var{window}. i.e. the union of all masks for @var{window} and its children will become the new mask for @var{window}. See @code{gdk-window-shape-combine-mask}. This function is distinct from @code{gdk-window-set-child-shapes} because it includes @var{window}'s shape mask in the set of shapes to be merged. @table @var @item window a @code{} @end table @end deffn @deffn Function gdk-window-input-shape-combine-mask (self@tie{}@code{}) (mask@tie{}@code{}) (x@tie{}@code{int}) (y@tie{}@code{int}) @deffnx Method input-shape-combine-mask Like @code{gdk-window-shape-combine-mask}, but the shape applies only to event handling. Mouse events which happen while the pointer position corresponds to an unset bit in the mask will be passed on the window below @var{window}. An input shape is typically used with RGBA windows. The alpha channel of the window defines which pixels are invisible and allows for nicely antialiased borders, and the input shape controls where the window is "clickable". On the X11 platform, this requires version 1.1 of the shape extension. On the Win32 platform, this functionality is not present and the function does nothing. @table @var @item window a @code{} @item mask shape mask @item x X position of shape mask with respect to @var{window} @item y Y position of shape mask with respect to @var{window} @end table Since 2.10 @end deffn @deffn Function gdk-window-set-child-input-shapes (self@tie{}@code{}) @deffnx Method set-child-input-shapes Sets the input shape mask of @var{window} to the union of input shape masks for all children of @var{window}, ignoring the input shape mask of @var{window} itself. Contrast with @code{gdk-window-merge-child-input-shapes} which includes the input shape mask of @var{window} in the masks to be merged. @table @var @item window a @code{} @end table Since 2.10 @end deffn @deffn Function gdk-window-merge-child-input-shapes (self@tie{}@code{}) @deffnx Method merge-child-input-shapes Merges the input shape masks for any child windows into the input shape mask for @var{window}. i.e. the union of all input masks for @var{window} and its children will become the new input mask for @var{window}. See @code{gdk-window-input-shape-combine-mask}. This function is distinct from @code{gdk-window-set-child-input-shapes} because it includes @var{window}'s input shape mask in the set of shapes to be merged. @table @var @item window a @code{} @end table Since 2.10 @end deffn @deffn Function gdk-window-set-static-gravities (self@tie{}@code{}) (use_static@tie{}@code{bool}) @result{}@tie{} (ret@tie{}@code{bool}) @deffnx Method set-static-gravities Set the bit gravity of the given window to static, and flag it so all children get static subwindow gravity. This is used if you are implementing scary features that involve deep knowledge of the windowing system. Don't worry about it unless you have to. @table @var @item window a @code{} @item use-static @samp{@code{#t}} to turn on static gravity @item ret @samp{@code{#t}} if the server supports static gravity @end table @end deffn @deffn Function gdk-window-set-hints (self@tie{}@code{}) (x@tie{}@code{int}) (y@tie{}@code{int}) (min_width@tie{}@code{int}) (min_height@tie{}@code{int}) (max_width@tie{}@code{int}) (max_height@tie{}@code{int}) (flags@tie{}@code{int}) @deffnx Method set-hints @samp{gdk_window_set_hints} is deprecated and should not be used in newly-written code. This function is broken and useless and you should ignore it. If using GTK+, use functions such as @code{gtk-window-resize}, @code{gtk-window-set-size-request}, @code{gtk-window-move}, @code{gtk-window-parse-geometry}, and @code{gtk-window-set-geometry-hints}, depending on what you're trying to do. If using GDK directly, use @code{gdk-window-set-geometry-hints}. @table @var @item window a @code{} @item x ignored field, does not matter @item y ignored field, does not matter @item min-width minimum width hint @item min-height minimum height hint @item max-width max width hint @item max-height max height hint @item flags logical OR of GDK_HINT_POS, GDK_HINT_MIN_SIZE, and/or GDK_HINT_MAX_SIZE @end table @end deffn @deffn Function gdk-window-set-title (self@tie{}@code{}) (title@tie{}@code{mchars}) @deffnx Method set-title Sets the title of a toplevel window, to be displayed in the titlebar. If you haven't explicitly set the icon name for the window (using @code{gdk-window-set-icon-name}), the icon name will be set to @var{title} as well. @var{title} must be in UTF-8 encoding (as with all user-readable strings in GDK/GTK+). @var{title} may not be @samp{@code{#f}}. @table @var @item window a toplevel @code{} @item title title of @var{window} @end table @end deffn @deffn Function gdk-window-set-background (self@tie{}@code{}) (color@tie{}@code{}) @deffnx Method set-background Sets the background color of @var{window}. (However, when using GTK+, set the background of a widget with @code{gtk-widget-modify-bg} - if you're an application - or @code{gtk-style-set-background} - if you're implementing a custom widget.) The @var{color} must be allocated; @code{gdk-rgb-find-color} is the best way to allocate a color. See also @code{gdk-window-set-back-pixmap}. @table @var @item window a @code{} @item color an allocated @code{} @end table @end deffn @deffn Function gdk-window-set-back-pixmap (self@tie{}@code{}) (pixmap@tie{}@code{}) (parent_relative@tie{}@code{bool}) @deffnx Method set-back-pixmap Sets the background pixmap of @var{window}. May also be used to set a background of "None" on @var{window}, by setting a background pixmap of @samp{@code{#f}}. A background pixmap will be tiled, positioning the first tile at the origin of @var{window}, or if @var{parent-relative} is @samp{@code{#t}}, the tiling will be done based on the origin of the parent window (useful to align tiles in a parent with tiles in a child). A background pixmap of @samp{@code{#f}} means that the window will have no background. A window with no background will never have its background filled by the windowing system, instead the window will contain whatever pixels were already in the corresponding area of the display. The windowing system will normally fill a window with its background when the window is obscured then exposed, and when you call @code{gdk-window-clear}. @table @var @item window a @code{} @item pixmap a @code{}, or @samp{@code{#f}} @item parent-relative whether the tiling origin is at the origin of @var{window}'s parent @end table @end deffn @deffn Function gdk-window-set-cursor (self@tie{}@code{}) (cursor@tie{}@code{}) @deffnx Method set-cursor Sets the mouse pointer for a @code{}. Use @code{gdk-cursor-new} or @code{gdk-cursor-new-from-pixmap} to create the cursor. To make the cursor invisible, use @code{gdk-cursor-new-from-pixmap} to create a cursor with no pixels in it. Passing @samp{@code{#f}} for the @var{cursor} argument to @code{gdk-window-set-cursor} means that @var{window} will use the cursor of its parent window. Most windows should use this default. @table @var @item window a @code{} @item cursor a cursor @end table @end deffn @deffn Function gdk-window-get-geometry (self@tie{}@code{}) @result{}@tie{} (x@tie{}@code{int}) (y@tie{}@code{int}) (width@tie{}@code{int}) (height@tie{}@code{int}) (depth@tie{}@code{int}) @deffnx Method get-geometry Any of the return location arguments to this function may be @samp{@code{#f}}, if you aren't interested in getting the value of that field. The X and Y coordinates returned are relative to the parent window of @var{window}, which for toplevels usually means relative to the window decorations (titlebar, etc.) rather than relative to the root window (screen-size background window). On the X11 platform, the geometry is obtained from the X server, so reflects the latest position of @var{window}; this may be out-of-sync with the position of @var{window} delivered in the most-recently-processed @code{}. @code{gdk-window-get-position} in contrast gets the position from the most recent configure event. @cartouche If @var{window} is not a toplevel, it is @emph{much} better to call @code{gdk-window-get-position} and @code{gdk-drawable-get-size} instead, because it avoids the roundtrip to the X server and because @code{gdk-drawable-get-size} supports the full 32-bit coordinate space, whereas @code{gdk-window-get-geometry} is restricted to the 16-bit coordinates of X11. @end cartouche @table @var @item window a @code{} @item x return location for X coordinate of window (relative to its parent) @item y return location for Y coordinate of window (relative to its parent) @item width return location for width of window @item height return location for height of window @item depth return location for bit depth of window @end table @end deffn @deffn Function gdk-window-set-icon-list (self@tie{}@code{}) (pixbufs@tie{}@code{glist-of}) @deffnx Method set-icon-list Sets a list of icons for the window. One of these will be used to represent the window when it has been iconified. The icon is usually shown in an icon box or some sort of task bar. Which icon size is shown depends on the window manager. The window manager can scale the icon but setting several size icons can give better image quality since the window manager may only need to scale the icon by a small amount or not at all. @table @var @item window The @code{} toplevel window to set the icon of. @item pixbufs A list of pixbufs, of different sizes. @end table @end deffn @deffn Function gdk-window-set-modal-hint (self@tie{}@code{}) (modal@tie{}@code{bool}) @deffnx Method set-modal-hint The application can use this hint to tell the window manager that a certain window has modal behaviour. The window manager can use this information to handle modal windows in a special way. You should only use this on windows for which you have previously called @code{gdk-window-set-transient-for} @table @var @item window A toplevel @code{} @item modal @samp{@code{#t}} if the window is modal, @samp{@code{#f}} otherwise. @end table @end deffn @deffn Function gdk-window-set-type-hint (self@tie{}@code{}) (hint@tie{}@code{}) @deffnx Method set-type-hint The application can use this call to provide a hint to the window manager about the functionality of a window. The window manager can use this information when determining the decoration and behaviour of the window. The hint must be set before the window is mapped. @table @var @item window A toplevel @code{} @item hint A hint of the function this window will have @end table @end deffn @deffn Function gdk-window-get-type-hint (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{}) @deffnx Method get-type-hint This function returns the type hint set for a window. @table @var @item window A toplevel @code{} @item ret The type hint set for @var{window} @end table Since 2.10 @end deffn @deffn Function gdk-window-set-skip-taskbar-hint (self@tie{}@code{}) (skips_taskbar@tie{}@code{bool}) @deffnx Method set-skip-taskbar-hint Toggles whether a window should appear in a task list or window list. If a window's semantic type as specified with @code{gdk-window-set-type-hint} already fully describes the window, this function should @emph{not} be called in addition, instead you should allow the window to be treated according to standard policy for its semantic type. @table @var @item window a toplevel @code{} @item skips-taskbar @samp{@code{#t}} to skip the taskbar @end table Since 2.2 @end deffn @deffn Function gdk-window-set-skip-pager-hint (self@tie{}@code{}) (skips_pager@tie{}@code{bool}) @deffnx Method set-skip-pager-hint Toggles whether a window should appear in a pager (workspace switcher, or other desktop utility program that displays a small thumbnail representation of the windows on the desktop). If a window's semantic type as specified with @code{gdk-window-set-type-hint} already fully describes the window, this function should @emph{not} be called in addition, instead you should allow the window to be treated according to standard policy for its semantic type. @table @var @item window a toplevel @code{} @item skips-pager @samp{@code{#t}} to skip the pager @end table Since 2.2 @end deffn @deffn Function gdk-window-set-urgency-hint (self@tie{}@code{}) (urgent@tie{}@code{bool}) @deffnx Method set-urgency-hint Toggles whether a window needs the user's urgent attention. @table @var @item window a toplevel @code{} @item urgent @samp{@code{#t}} if the window is urgent @end table Since 2.8 @end deffn @deffn Function gdk-window-get-position (self@tie{}@code{}) @result{}@tie{} (x@tie{}@code{int}) (y@tie{}@code{int}) @deffnx Method get-position Obtains the position of the window as reported in the most-recently-processed @code{}. Contrast with @code{gdk-window-get-geometry} which queries the X server for the current window position, regardless of which events have been received or processed. The position coordinates are relative to the window's parent window. @table @var @item window a @code{} @item x X coordinate of window @item y Y coordinate of window @end table @end deffn @deffn Function gdk-window-get-root-origin (self@tie{}@code{}) @result{}@tie{} (x@tie{}@code{int}) (y@tie{}@code{int}) @deffnx Method get-root-origin Obtains the top-left corner of the window manager frame in root window coordinates. @table @var @item window a toplevel @code{} @item x return location for X position of window frame @item y return location for Y position of window frame @end table @end deffn @deffn Function gdk-window-get-origin (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{int}) (x@tie{}@code{int}) (y@tie{}@code{int}) @deffnx Method get-origin Obtains the position of a window in root window coordinates. (Compare with @code{gdk-window-get-position} and @code{gdk-window-get-geometry} which return the position of a window relative to its parent window.) @table @var @item window a @code{} @item x return location for X coordinate @item y return location for Y coordinate @item ret not meaningful, ignore @end table @end deffn @deffn Function gdk-window-get-deskrelative-origin (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{bool}) (x@tie{}@code{int}) (y@tie{}@code{int}) @deffnx Method get-deskrelative-origin @samp{gdk_window_get_deskrelative_origin} is deprecated and should not be used in newly-written code. This gets the origin of a @code{} relative to an Enlightenment-window-manager desktop. As long as you don't assume that the user's desktop/workspace covers the entire root window (i.e. you don't assume that the desktop begins at root window coordinate 0,0) this function is not necessary. It's deprecated for that reason. @table @var @item window a toplevel @code{} @item x return location for X coordinate @item y return location for Y coordinate @item ret not meaningful @end table @end deffn @deffn Function gdk-window-get-parent (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{}) @deffnx Method get-parent Obtains the parent of @var{window}, as known to GDK. Does not query the X server; thus this returns the parent as passed to @code{gdk-window-new}, not the actual parent. This should never matter unless you're using Xlib calls mixed with GDK calls on the X11 platform. It may also matter for toplevel windows, because the window manager may choose to reparent them. @table @var @item window a @code{} @item ret parent of @var{window} @end table @end deffn @deffn Function gdk-window-get-toplevel (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{}) @deffnx Method get-toplevel Gets the toplevel window that's an ancestor of @var{window}. @table @var @item window a @code{} @item ret the toplevel window containing @var{window} @end table @end deffn @deffn Function gdk-window-get-children (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{glist-of}) @deffnx Method get-children Gets the list of children of @var{window} known to GDK. This function only returns children created via GDK, so for example it's useless when used with the root window; it only returns windows an application created itself. The returned list must be freed, but the elements in the list need not be. @table @var @item window a @code{} @item ret list of child windows inside @var{window} @end table @end deffn @deffn Function gdk-window-get-events (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{}) @deffnx Method get-events Gets the event mask for @var{window}. See @code{gdk-window-set-events}. @table @var @item window a @code{} @item ret event mask for @var{window} @end table @end deffn @deffn Function gdk-window-set-events (self@tie{}@code{}) (event_mask@tie{}@code{}) @deffnx Method set-events The event mask for a window determines which events will be reported for that window. For example, an event mask including @code{} means the window should report button press events. The event mask is the bitwise OR of values from the @code{} enumeration. @table @var @item window a @code{} @item event-mask event mask for @var{window} @end table @end deffn @deffn Function gdk-window-set-icon (self@tie{}@code{}) (icon_window@tie{}@code{}) (pixmap@tie{}@code{}) (mask@tie{}@code{}) @deffnx Method set-icon Sets the icon of @var{window} as a pixmap or window. If using GTK+, investigate @code{gtk-window-set-default-icon-list} first, and then @code{gtk-window-set-icon-list} and @code{gtk-window-set-icon}. If those don't meet your needs, look at @code{gdk-window-set-icon-list}. Only if all those are too high-level do you want to fall back to @code{gdk-window-set-icon}. @table @var @item window a toplevel @code{} @item icon-window a @code{} to use for the icon, or @samp{@code{#f}} to unset @item pixmap a @code{} to use as the icon, or @samp{@code{#f}} to unset @item mask a 1-bit pixmap (@code{}) to use as mask for @var{pixmap}, or @samp{@code{#f}} to have none @end table @end deffn @deffn Function gdk-window-set-icon-name (self@tie{}@code{}) (name@tie{}@code{mchars}) @deffnx Method set-icon-name Windows may have a name used while minimized, distinct from the name they display in their titlebar. Most of the time this is a bad idea from a user interface standpoint. But you can set such a name with this function, if you like. @table @var @item window a toplevel @code{} @item name name of window while iconified (minimized) @end table @end deffn @deffn Function gdk-window-set-transient-for (self@tie{}@code{}) (parent@tie{}@code{}) @deffnx Method set-transient-for Indicates to the window manager that @var{window} is a transient dialog associated with the application window @var{parent}. This allows the window manager to do things like center @var{window} on @var{parent} and keep @var{window} above @var{parent}. See @code{gtk-window-set-transient-for} if you're using @code{} or @code{}. @table @var @item window a toplevel @code{} @item parent another toplevel @code{} @end table @end deffn @deffn Function gdk-window-set-role (self@tie{}@code{}) (role@tie{}@code{mchars}) @deffnx Method set-role When using GTK+, typically you should use @code{gtk-window-set-role} instead of this low-level function. The window manager and session manager use a window's role to distinguish it from other kinds of window in the same application. When an application is restarted after being saved in a previous session, all windows with the same title and role are treated as interchangeable. So if you have two windows with the same title that should be distinguished for session management purposes, you should set the role on those windows. It doesn't matter what string you use for the role, as long as you have a different role for each non-interchangeable kind of window. @table @var @item window a toplevel @code{} @item role a string indicating its role @end table @end deffn @deffn Function gdk-window-set-group (self@tie{}@code{}) (leader@tie{}@code{}) @deffnx Method set-group Sets the group leader window for @var{window}. By default, GDK sets the group leader for all toplevel windows to a global window implicitly created by GDK. With this function you can override this default. The group leader window allows the window manager to distinguish all windows that belong to a single application. It may for example allow users to minimize/unminimize all windows belonging to an application at once. You should only set a non-default group window if your application pretends to be multiple applications. @table @var @item window a toplevel @code{} @item leader group leader window, or @samp{@code{#f}} to restore the default group leader window @end table @end deffn @deffn Function gdk-window-get-group (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{}) @deffnx Method get-group Returns the group leader window for @var{window}. See @code{gdk-window-set-group}. @table @var @item window a toplevel @code{} @item ret the group leader window for @var{window} @end table Since 2.4 @end deffn @deffn Function gdk-window-set-decorations (self@tie{}@code{}) (decorations@tie{}@code{}) @deffnx Method set-decorations "Decorations" are the features the window manager adds to a toplevel @code{}. This function sets the traditional Motif window manager hints that tell the window manager which decorations you would like your window to have. Usually you should use @code{gtk-window-set-decorated} on a @code{} instead of using the GDK function directly. The @var{decorations} argument is the logical OR of the fields in the @code{} enumeration. If @code{} is included in the mask, the other bits indicate which decorations should be turned off. If @code{} is not included, then the other bits indicate which decorations should be turned on. Most window managers honor a decorations hint of 0 to disable all decorations, but very few honor all possible combinations of bits. @table @var @item window a toplevel @code{} @item decorations decoration hint mask @end table @end deffn @deffn Function gdk-window-set-functions (self@tie{}@code{}) (functions@tie{}@code{}) @deffnx Method set-functions Sets hints about the window management functions to make available via buttons on the window frame. On the X backend, this function sets the traditional Motif window manager hint for this purpose. However, few window managers do anything reliable or interesting with this hint. Many ignore it entirely. The @var{functions} argument is the logical OR of values from the @code{} enumeration. If the bitmask includes @code{}, then the other bits indicate which functions to disable; if it doesn't include @code{}, it indicates which functions to enable. @table @var @item window a toplevel @code{} @item functions bitmask of operations to allow on @var{window} @end table @end deffn @deffn Function gdk-window-get-toplevels @result{}@tie{} (ret@tie{}@code{glist-of}) Obtains a list of all toplevel windows known to GDK on the default screen (see @code{gdk-screen-get-toplevel-windows}). A toplevel window is a child of the root window (see @code{gdk-get-default-root-window}). The returned list should be freed with @code{g-list-free}, but its elements need not be freed. @table @var @item ret list of toplevel windows, free with @code{g-list-free} @end table @end deffn @deffn Function gdk-get-default-root-window @result{}@tie{} (ret@tie{}@code{}) Obtains the root window (parent all other windows are inside) for the default display and screen. @table @var @item ret the default root window @end table @end deffn @c %end of fragment guile-gnome-platform-2.16.2/gtk/doc/gdk/section-images.xml.texi0000644000175000017500000000175511670374302024677 0ustar00wingowingo00000000000000 @c %start of fragment @node Images @chapter Images A client-side area for bit-mapped graphics @section Overview The @code{} type represents an area for drawing graphics. It has now been superceded to a large extent by the much more flexible GdkRGB functions. To create an empty @code{} use @code{gdk-image-new}. To create a @code{} from bitmap data use @code{gdk-image-new-bitmap}. To create an image from part of a @code{} use @code{gdk-drawable-get-image}. The image can be manipulated with @code{gdk-image-get-pixel} and @code{gdk-image-put-pixel}, or alternatively by changing the actual pixel data. Though manipulating the pixel data requires complicated code to cope with the different formats that may be used. To draw a @code{} in a @code{} or @code{} use @code{gdk-draw-image}. To destroy a @code{} use @code{gdk-image-destroy}. @section Usage @include defuns-images.xml.texi @c %end of fragment guile-gnome-platform-2.16.2/gtk/doc/gdk/defuns-x_interaction.xml.texi0000644000175000017500000000651411670374302026116 0ustar00wingowingo00000000000000 @c %start of fragment @deffn Function gdk-pixmap-foreign-new-for-display (display@tie{}@code{}) (anid@tie{}@code{unsigned-long}) @result{}@tie{} (ret@tie{}@code{}) Wraps a native pixmap in a @code{}. This may fail if the pixmap has been destroyed. For example in the X backend, a native pixmap handle is an Xlib @code{}. @table @var @item display The @code{} where @var{anid} is located. @item anid a native pixmap handle. @item ret the newly-created @code{} wrapper for the native pixmap or @samp{@code{#f}} if the pixmap has been destroyed. @end table Since 2.2 @end deffn @deffn Function gdk-pixmap-foreign-new-for-screen (screen@tie{}@code{}) (anid@tie{}@code{unsigned-long}) (width@tie{}@code{int}) (height@tie{}@code{int}) (depth@tie{}@code{int}) @result{}@tie{} (ret@tie{}@code{}) Wraps a native pixmap in a @code{}. This may fail if the pixmap has been destroyed. For example in the X backend, a native pixmap handle is an Xlib @code{}. This function is an alternative to @code{gdk-pixmap-foreign-new-for-display} for cases where the dimensions of the pixmap are known. For the X backend, this avoids a roundtrip to the server. @table @var @item screen a @code{} @item anid a native pixmap handle @item width the width of the pixmap identified by @var{anid} @item height the height of the pixmap identified by @var{anid} @item depth the depth of the pixmap identified by @var{anid} @item ret the newly-created @code{} wrapper for the native pixmap or @samp{@code{#f}} if the pixmap has been destroyed. @end table Since 2.10 @end deffn @deffn Function gdk-window-foreign-new-for-display (display@tie{}@code{}) (anid@tie{}@code{unsigned-long}) @result{}@tie{} (ret@tie{}@code{}) Wraps a native window in a @code{}. This may fail if the window has been destroyed. If the window was already known to GDK, a new reference to the existing @code{} is returned. For example in the X backend, a native window handle is an Xlib @code{}. @table @var @item display the @code{} where the window handle comes from. @item anid a native window handle. @item ret a @code{} wrapper for the native window or @samp{@code{#f}} if the window has been destroyed. The wrapper will be newly created, if one doesn't exist already. @end table Since 2.2 @end deffn @deffn Function gdk-window-lookup (anid@tie{}@code{unsigned-long}) @result{}@tie{} (ret@tie{}@code{}) Looks up the @code{} that wraps the given native window handle. For example in the X backend, a native window handle is an Xlib @code{}. @table @var @item anid a native window handle. @item ret the @code{} wrapper for the native window, or @samp{@code{#f}} if there is none. @end table @end deffn @deffn Function gdk-pixmap-lookup (anid@tie{}@code{unsigned-long}) @result{}@tie{} (ret@tie{}@code{}) Looks up the @code{} that wraps the given native pixmap handle. For example in the X backend, a native pixmap handle is an Xlib @code{}. @table @var @item anid a native pixmap handle. @item ret the @code{} wrapper for the native window, or @samp{@code{#f}} if there is none. @end table @end deffn @c %end of fragment guile-gnome-platform-2.16.2/gtk/doc/gdk/section-events.xml.texi0000644000175000017500000000076411670374302024735 0ustar00wingowingo00000000000000 @c %start of fragment @node Events @chapter Events Functions for handling events from the window system @section Overview This section describes functions dealing with events from the window system. In GTK+ applications the events are handled automatically in @code{gtk-main-do-event} and passed on to the appropriate widgets, so these functions are rarely needed. Though some of the fields in the Event Structures are useful. @section Usage @include defuns-events.xml.texi @c %end of fragment guile-gnome-platform-2.16.2/gtk/doc/gdk/guile-gnome-gdk.info-10000644000175000017500000112007411752516272024266 0ustar00wingowingo00000000000000This is guile-gnome-gdk.info, produced by makeinfo version 4.13 from guile-gnome-gdk.texi. This manual is for `(gnome gdk)' (version 2.16.2, updated 9 December 2011) GDK documentation Copyright 1997-2007 Damon Chaplin and others This work may be reproduced and distributed in whole or in part, in any medium, physical or electronic, so as long as this copyright notice remains intact and unchanged on all copies. Commercial redistribution is permitted and encouraged, but you may not redistribute, in whole or in part, under terms more restrictive than those under which you received it. If you redistribute a modified or translated version of this work, you must also make the source code to the modified or translated version available in electronic form without charge. However, mere aggregation as part of a larger work shall not count as a modification for this purpose. All code examples in this work are placed into the public domain, and may be used, modified and redistributed without restriction. BECAUSE THIS WORK IS LICENSED FREE OF CHARGE, THERE IS NO WARRANTY FOR THE WORK, TO THE EXTENT PERMITTED BY APPLICABLE LAW. EXCEPT WHEN OTHERWISE STATED IN WRITING THE COPYRIGHT HOLDERS AND/OR OTHER PARTIES PROVIDE THE WORK "AS IS" WITHOUT WARRANTY OF ANY KIND, EITHER EXPRESSED OR IMPLIED, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE. SHOULD THE WORK PROVE DEFECTIVE, YOU ASSUME THE COST OF ALL NECESSARY REPAIR OR CORRECTION. IN NO EVENT UNLESS REQUIRED BY APPLICABLE LAW OR AGREED TO IN WRITING WILL ANY COPYRIGHT HOLDER, OR ANY OTHER PARTY WHO MAY MODIFY AND/OR REDISTRIBUTE THE WORK AS PERMITTED ABOVE, BE LIABLE TO YOU FOR DAMAGES, INCLUDING ANY GENERAL, SPECIAL, INCIDENTAL OR CONSEQUENTIAL DAMAGES ARISING OUT OF THE USE OR INABILITY TO USE THE WORK, EVEN IF SUCH HOLDER OR OTHER PARTY HAS BEEN ADVISED OF THE POSSIBILITY OF SUCH DAMAGES. GDK-Pixbuf documentation Copyright 2000 Free Software Foundation. Permission is granted to copy, distribute and/or modify this document under the terms of the GNU Free Documentation License, Version 1.1 or any later version published by the Free Software Foundation with no Invariant Sections, no Front-Cover Texts, and no Back-Cover Texts. You may obtain a copy of the GNU Free Documentation License from the Free Software Foundation by visiting their Web site or by writing to: The Free Software Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA Many of the names used by companies to distinguish their products and services are claimed as trademarks. Where those names appear in any GNOME documentation, and those trademarks are made aware to the members of the GNOME Documentation Project, the names have been printed in caps or initial caps. INFO-DIR-SECTION The Algorithmic Language Scheme START-INFO-DIR-ENTRY * Guile-Gdk: (guile-gnome-gdk.info). The GIMP Drawing Kit. END-INFO-DIR-ENTRY  File: guile-gnome-gdk.info, Node: Top, Next: Overview, Up: (dir) Guile-Gdk ********* This manual is for `(gnome gdk)' (version 2.16.2, updated 9 December 2011) GDK documentation Copyright 1997-2007 Damon Chaplin and others This work may be reproduced and distributed in whole or in part, in any medium, physical or electronic, so as long as this copyright notice remains intact and unchanged on all copies. Commercial redistribution is permitted and encouraged, but you may not redistribute, in whole or in part, under terms more restrictive than those under which you received it. If you redistribute a modified or translated version of this work, you must also make the source code to the modified or translated version available in electronic form without charge. However, mere aggregation as part of a larger work shall not count as a modification for this purpose. All code examples in this work are placed into the public domain, and may be used, modified and redistributed without restriction. BECAUSE THIS WORK IS LICENSED FREE OF CHARGE, THERE IS NO WARRANTY FOR THE WORK, TO THE EXTENT PERMITTED BY APPLICABLE LAW. EXCEPT WHEN OTHERWISE STATED IN WRITING THE COPYRIGHT HOLDERS AND/OR OTHER PARTIES PROVIDE THE WORK "AS IS" WITHOUT WARRANTY OF ANY KIND, EITHER EXPRESSED OR IMPLIED, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE. SHOULD THE WORK PROVE DEFECTIVE, YOU ASSUME THE COST OF ALL NECESSARY REPAIR OR CORRECTION. IN NO EVENT UNLESS REQUIRED BY APPLICABLE LAW OR AGREED TO IN WRITING WILL ANY COPYRIGHT HOLDER, OR ANY OTHER PARTY WHO MAY MODIFY AND/OR REDISTRIBUTE THE WORK AS PERMITTED ABOVE, BE LIABLE TO YOU FOR DAMAGES, INCLUDING ANY GENERAL, SPECIAL, INCIDENTAL OR CONSEQUENTIAL DAMAGES ARISING OUT OF THE USE OR INABILITY TO USE THE WORK, EVEN IF SUCH HOLDER OR OTHER PARTY HAS BEEN ADVISED OF THE POSSIBILITY OF SUCH DAMAGES. GDK-Pixbuf documentation Copyright 2000 Free Software Foundation. Permission is granted to copy, distribute and/or modify this document under the terms of the GNU Free Documentation License, Version 1.1 or any later version published by the Free Software Foundation with no Invariant Sections, no Front-Cover Texts, and no Back-Cover Texts. You may obtain a copy of the GNU Free Documentation License from the Free Software Foundation by visiting their Web site or by writing to: The Free Software Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA Many of the names used by companies to distinguish their products and services are claimed as trademarks. Where those names appear in any GNOME documentation, and those trademarks are made aware to the members of the GNOME Documentation Project, the names have been printed in caps or initial caps. * Menu: * Overview:: Overview GDK * General:: Library initialization and miscellaneous functions * GdkDisplay:: Controls the keyboard/mouse pointer grabs and a set of s * GdkDisplayManager:: Maintains a list of all open s * GdkScreen:: Object representing a physical screen * Points Rectangles and Regions:: Simple graphical data types * Graphics Contexts:: Objects to encapsulate drawing properties * Drawing Primitives:: Functions for drawing points, lines, arcs, and text * Bitmaps and Pixmaps:: Offscreen drawables * GdkRGB:: Renders RGB, grayscale, or indexed image data to a GdkDrawable * Images:: A client-side area for bit-mapped graphics * Pixbufs:: Functions for rendering pixbufs on drawables * Colormaps and Colors:: Manipulation of colors and colormaps * Visuals:: Low-level display hardware information * Fonts:: Loading and manipulating fonts * Cursors:: Standard and pixmap cursors * Windows:: Onscreen display areas in the target window system * Events:: Functions for handling events from the window system * Event Structures:: Data structures specific to each type of event * Key Values:: Functions for manipulating keyboard codes * Selections:: Functions for transfering data via the X selection mechanism * Drag and Drop:: Functions for controlling drag and drop handling * Properties and Atoms:: Functions to manipulate properties on windows * Threads:: Functions for using GDK in multi-threaded programs * Input Devices:: Functions for handling extended input devices * Pango Interaction:: Using Pango in GDK * Cairo Interaction:: Functions to support using Cairo * X Window System Interaction:: X backend-specific functions GDK-Pixbuf * The GdkPixbuf Structure:: Information that describes an image. * File Loading:: Loading a pixbuf from a file. * Image Data in Memory:: Creating a pixbuf from image data that is already in memory. * Scaling:: Scaling pixbufs and scaling and compositing pixbufs * Utilities:: Utility and miscellaneous convenience functions. * Animations:: Animated images. * GdkPixbufLoader:: Application-driven progressive image loading. * Module Interface:: Extending gdk-pixbuf * Undocumented:: Undocumented functions. * Type Index:: * Function Index::  File: guile-gnome-gdk.info, Node: Overview, Next: General, Prev: Top, Up: Top 1 Overview ********** `(gnome gdk)' wraps the platform-specific layer of GTK+ for Guile. It is a part of Guile-GNOME. See the documentation for `(gnome gobject)' for more information on Guile-GNOME.  File: guile-gnome-gdk.info, Node: General, Next: GdkDisplay, Prev: Overview, Up: Top 2 General ********* Library initialization and miscellaneous functions 2.1 Overview ============ This section describes the GDK initialization functions and miscellaneous utility functions. 2.2 Usage ========= -- Function: gdk-get-display-arg-name => (ret `mchars') Gets the display name specified in the command line arguments passed to `gdk-init' or `gdk-parse-args', if any. RET the display name, if specified explicitely, otherwise ``#f'' this string is owned by GTK+ and must not be modified or freed. Since 2.2 -- Function: gdk-set-locale => (ret `mchars') Initializes the support for internationalization by calling the ``setlocale'' system call. This function is called by `gtk-set-locale' and so GTK+ applications should use that instead. The locale to use is determined by the `LANG' environment variable, so to run an application in a certain locale you can do something like this: export LANG="fr" ... run application ... If the locale is not supported by X then it is reset to the standard "C" locale. RET the resulting locale. -- Function: gdk-set-sm-client-id (sm_client_id `mchars') Sets the `SM_CLIENT_ID' property on the application's leader window so that the window manager can save the application's state using the X11R6 ICCCM session management protocol. See the X Session Management Library documentation for more information on session management and the Inter-Client Communication Conventions Manual (ICCCM) for information on the `WM_CLIENT_LEADER' property. (Both documents are part of the X Window System distribution.) SM-CLIENT-ID the client id assigned by the session manager when the connection was opened, or ``#f'' to remove the property. -- Function: gdk-notify-startup-complete Indicates to the GUI environment that the application has finished loading. If the applications opens windows, this function is normally called after opening the application's initial set of windows. GTK+ will call this function automatically after opening the first `' unless `gtk-window-set-auto-startup-notification' is called to disable that feature. Since 2.2 -- Function: gdk-get-program-class => (ret `mchars') Gets the program class. Unless the program class has explicitly been set with `gdk-set-program-class' or with the option, the default value is the program name (determined with `g-get-prgname') with the first character converted to uppercase. RET the program class. -- Function: gdk-set-program-class (program_class `mchars') Sets the program class. The X11 backend uses the program class to set the class name part of the `WM_CLASS' property on toplevel windows; see the ICCCM. PROGRAM-CLASS a string. -- Function: gdk-get-display => (ret `mchars') Gets the name of the display, which usually comes from the `DISPLAY' environment variable or the RET the name of the display. -- Function: gdk-flush Flushes the X output buffer and waits until all requests have been processed by the server. This is rarely needed by applications. It's main use is for trapping X errors with `gdk-error-trap-push' and `gdk-error-trap-pop'. -- Function: gdk-screen-width => (ret `int') Returns the width of the default screen in pixels. RET the width of the default screen in pixels. -- Function: gdk-screen-height => (ret `int') Returns the height of the default screen in pixels. RET the height of the default screen in pixels. -- Function: gdk-screen-width-mm => (ret `int') Returns the width of the default screen in millimeters. Note that on many X servers this value will not be correct. RET the width of the default screen in millimeters, though it is not always correct. -- Function: gdk-screen-height-mm => (ret `int') Returns the height of the default screen in millimeters. Note that on many X servers this value will not be correct. RET the height of the default screen in millimeters, though it is not always correct. -- Function: gdk-pointer-grab (window `') (owner_events `bool') (event_mask `') (confine_to `') (cursor `') (time_ `unsigned-int32') => (ret `') Grabs the pointer (usually a mouse) so that all events are passed to this application until the pointer is ungrabbed with `gdk-pointer-ungrab', or the grab window becomes unviewable. This overrides any previous pointer grab by this client. Pointer grabs are used for operations which need complete control over mouse events, even if the mouse leaves the application. For example in GTK+ it is used for Drag and Drop, for dragging the handle in the `' and `' widgets, and for resizing columns in `' widgets. Note that if the event mask of an X window has selected both button press and button release events, then a button press event will cause an automatic pointer grab until the button is released. X does this automatically since most applications expect to receive button press and release events in pairs. It is equivalent to a pointer grab on the window with OWNER-EVENTS set to ``#t''. If you set up anything at the time you take the grab that needs to be cleaned up when the grab ends, you should handle the `' events that are emitted when the grab ends unvoluntarily. WINDOW the `' which will own the grab (the grab window). OWNER-EVENTS if ``#f'' then all pointer events are reported with respect to WINDOW and are only reported if selected by EVENT-MASK. If ``#t'' then pointer events for this application are reported as normal, but pointer events outside this application are reported with respect to WINDOW and only if selected by EVENT-MASK. In either mode, unreported events are discarded. EVENT-MASK specifies the event mask, which is used in accordance with OWNER-EVENTS. Note that only pointer events (i.e. button and motion events) may be selected. CONFINE-TO If non-``#f'', the pointer will be confined to this window during the grab. If the pointer is outside CONFINE-TO, it will automatically be moved to the closest edge of CONFINE-TO and enter and leave events will be generated as necessary. CURSOR the cursor to display while the grab is active. If this is ``#f'' then the normal cursors are used for WINDOW and its descendants, and the cursor for WINDOW is used for all other windows. TIME the timestamp of the event which led to this pointer grab. This usually comes from a `' struct, though `GDK_CURRENT_TIME' can be used if the time isn't known. RET `GDK_GRAB_SUCCESS' if the grab was successful. -- Function: gdk-pointer-ungrab (time_ `unsigned-int32') Ungrabs the pointer, if it is grabbed by this application. TIME a timestamp from a `', or `GDK_CURRENT_TIME' if no timestamp is available. -- Function: gdk-pointer-is-grabbed => (ret `bool') Returns ``#t'' if the pointer is currently grabbed by this application. Note that this does not take the inmplicit pointer grab on button presses into account. RET ``#t'' if the pointer is currently grabbed by this application.* -- Function: gdk-set-double-click-time (msec `unsigned-int') Set the double click time for the default display. See `gdk-display-set-double-click-time'. See also `gdk-display-set-double-click-distance'. Applications should _not_ set this, it is a global user-configured setting. MSEC double click time in milliseconds (thousandths of a second) -- Function: gdk-keyboard-grab (window `') (owner_events `bool') (time_ `unsigned-int32') => (ret `') Grabs the keyboard so that all events are passed to this application until the keyboard is ungrabbed with `gdk-keyboard-ungrab'. This overrides any previous keyboard grab by this client. If you set up anything at the time you take the grab that needs to be cleaned up when the grab ends, you should handle the `' events that are emitted when the grab ends unvoluntarily. WINDOW the `' which will own the grab (the grab window). OWNER-EVENTS if ``#f'' then all keyboard events are reported with respect to WINDOW. If ``#t'' then keyboard events for this application are reported as normal, but keyboard events outside this application are reported with respect to WINDOW. Both key press and key release events are always reported, independant of the event mask set by the application. TIME a timestamp from a `', or `GDK_CURRENT_TIME' if no timestamp is available. RET `GDK_GRAB_SUCCESS' if the grab was successful. -- Function: gdk-keyboard-ungrab (time_ `unsigned-int32') Ungrabs the keyboard, if it is grabbed by this application. TIME a timestamp from a `', or `GDK_CURRENT_TIME' if no timestamp is available. -- Function: gdk-beep Emits a short beep on the default display. -- Function: gdk-get-use-xshm => (ret `bool') `gdk_get_use_xshm' is deprecated and should not be used in newly-written code. Returns ``#t'' if GDK will attempt to use the MIT-SHM shared memory extension. The shared memory extension is used for `', and consequently for GdkRGB. It enables much faster drawing by communicating with the X server through SYSV shared memory calls. However, it can only be used if the X client and server are on the same machine and the server supports it. RET ``#t'' if use of the MIT shared memory extension will be attempted. -- Function: gdk-set-use-xshm (use_xshm `bool') `gdk_set_use_xshm' is deprecated and should not be used in newly-written code. Sets whether the use of the MIT shared memory extension should be attempted. This function is mainly for internal use. It is only safe for an application to set this to ``#f'', since if it is set to ``#t'' and the server does not support the extension it may cause warning messages to be output. USE-XSHM ``#t'' if use of the MIT shared memory extension should be attempted. -- Function: gdk-error-trap-push This function allows X errors to be trapped instead of the normal behavior of exiting the application. It should only be used if it is not possible to avoid the X error in any other way. gdk_error_trap_push (); /* ... Call the X function which may cause an error here ... */ /* Flush the X queue to catch errors now. */ gdk_flush (); if (gdk_error_trap_pop ()) { /* ... Handle the error here ... */ } -- Function: gdk-error-trap-pop => (ret `int') Removes the X error trap installed with `gdk-error-trap-push'. RET the X error code, or 0 if no error occurred.  File: guile-gnome-gdk.info, Node: GdkDisplay, Next: GdkDisplayManager, Prev: General, Up: Top 3 GdkDisplay ************ Controls the keyboard/mouse pointer grabs and a set of s 3.1 Overview ============ `' objects purpose are two fold: To grab/ungrab keyboard focus and mouse pointer To manage and provide information about the `'(s) available for this `' `' objects are the GDK representation of the X Display which can be described as _a workstation consisting of a keyboard a pointing device (such as a mouse) and one or more screens_. It is used to open and keep track of various `' objects currently instanciated by the application. It is also used to grab and release the keyboard and the mouse pointer. 3.2 Usage ========= -- Class: Derives from `'. This class defines no direct slots. -- Signal on : closed (arg0 `') The ::closed signal is emitted when the connection to the windowing system for DISPLAY is closed. Since 2.2 -- Function: gdk-display-open (display_name `mchars') => (ret `') Opens a display. DISPLAY-NAME the name of the display to open RET a `', or ``#f'' if the display could not be opened. Since 2.2 -- Function: gdk-display-get-default => (ret `') Gets the default `'. This is a convenience function for: gdk_display_manager_get_default_display (gdk_display_manager_get ()) RET a `', or ``#f'' if there is no default display. Since 2.2 -- Function: gdk-display-get-name (self `') => (ret `mchars') -- Method: get-name Gets the name of the display. DISPLAY a `' RET a string representing the display name. This string is owned by GDK and should not be modified or freed. Since 2.2 -- Function: gdk-display-get-n-screens (self `') => (ret `int') -- Method: get-n-screens Gets the number of screen managed by the DISPLAY. DISPLAY a `' RET number of screens. Since 2.2 -- Function: gdk-display-get-screen (self `') (screen_num `int') => (ret `') -- Method: get-screen Returns a screen object for one of the screens of the display. DISPLAY a `' SCREEN-NUM the screen number RET the `' object Since 2.2 -- Function: gdk-display-get-default-screen (self `') => (ret `') -- Method: get-default-screen Get the default `' for DISPLAY. DISPLAY a `' RET the default `' object for DISPLAY Since 2.2 -- Function: gdk-display-pointer-ungrab (self `') (time_ `unsigned-int32') -- Method: pointer-ungrab Release any pointer grab. DISPLAY a `'. TIME a timestap (e.g. `GDK_CURRENT_TIME'). Since 2.2 -- Function: gdk-display-keyboard-ungrab (self `') (time_ `unsigned-int32') -- Method: keyboard-ungrab Release any keyboard grab DISPLAY a `'. TIME a timestap (e.g `'). Since 2.2 -- Function: gdk-display-pointer-is-grabbed (self `') => (ret `bool') -- Method: pointer-is-grabbed Test if the pointer is grabbed. DISPLAY a `' RET ``#t'' if an active X pointer grab is in effect Since 2.2 -- Function: gdk-display-beep (self `') -- Method: beep Emits a short beep on DISPLAY DISPLAY a `' Since 2.2 -- Function: gdk-display-sync (self `') -- Method: sync Flushes any requests queued for the windowing system and waits until all requests have been handled. This is often used for making sure that the display is synchronized with the current state of the program. Calling `gdk-display-sync' before `gdk-error-trap-pop' makes sure that any errors generated from earlier requests are handled before the error trap is removed. This is most useful for X11. On windowing systems where requests are handled synchronously, this function will do nothing. DISPLAY a `' Since 2.2 -- Function: gdk-display-flush (self `') -- Method: flush Flushes any requests queued for the windowing system; this happens automatically when the main loop blocks waiting for new events, but if your application is drawing without returning control to the main loop, you may need to call this function explicitely. A common case where this function needs to be called is when an application is executing drawing commands from a thread other than the thread where the main loop is running. This is most useful for X11. On windowing systems where requests are handled synchronously, this function will do nothing. DISPLAY a `' Since 2.4 -- Function: gdk-display-close (self `') -- Method: close Closes the connection to the windowing system for the given display, and cleans up associated resources. DISPLAY a `' Since 2.2 -- Function: gdk-display-list-devices (self `') => (ret `glist-of') -- Method: list-devices Returns the list of available input devices attached to DISPLAY. The list is statically allocated and should not be freed. DISPLAY a `' RET a list of `' Since 2.2 -- Function: gdk-display-get-event (self `') => (ret `') -- Method: get-event Gets the next `' to be processed for DISPLAY, fetching events from the windowing system if necessary. DISPLAY a `' RET the next `' to be processed, or ``#f'' if no events are pending. The returned `' should be freed with `gdk-event-free'. Since 2.2 -- Function: gdk-display-peek-event (self `') => (ret `') -- Method: peek-event Gets a copy of the first `' in the DISPLAY's event queue, without removing the event from the queue. (Note that this function will not get more events from the windowing system. It only checks the events that have already been moved to the GDK event queue.) DISPLAY a `' RET a copy of the first `' on the event queue, or ``#f'' if no events are in the queue. The returned `' should be freed with `gdk-event-free'. Since 2.2 -- Function: gdk-display-put-event (self `') (event `') -- Method: put-event Appends a copy of the given event onto the front of the event queue for DISPLAY. DISPLAY a `' EVENT a `'. Since 2.2 -- Function: gdk-display-set-double-click-time (self `') (msec `unsigned-int') -- Method: set-double-click-time Sets the double click time (two clicks within this time interval count as a double click and result in a `' event). Applications should _not_ set this, it is a global user-configured setting. DISPLAY a `' MSEC double click time in milliseconds (thousandths of a second) Since 2.2 -- Function: gdk-display-get-window-at-pointer (self `') => (ret `') (win_x `int') (win_y `int') -- Method: get-window-at-pointer Obtains the window underneath the mouse pointer, returning the location of that window in WIN-X, WIN-Y for SCREEN. Returns ``#f'' if the window under the mouse pointer is not known to GDK (for example, belongs to another application). DISPLAY a `' WIN-X return location for origin of the window under the pointer WIN-Y return location for origin of the window under the pointer RET the window under the mouse pointer, or ``#f'' Since 2.2 -- Function: gdk-display-warp-pointer (self `') (screen `') (x `int') (y `int') -- Method: warp-pointer Warps the pointer of DISPLAY to the point X,Y on the screen SCREEN, unless the pointer is confined to a window by a grab, in which case it will be moved as far as allowed by the grab. Warping the pointer creates events as if the user had moved the mouse instantaneously to the destination. Note that the pointer should normally be under the control of the user. This function was added to cover some rare use cases like keyboard navigation support for the color picker in the `'. DISPLAY a `' SCREEN the screen of DISPLAY to warp the pointer to X the x coordinate of the destination Y the y coordinate of the destination Since 2.8 -- Function: gdk-display-supports-cursor-color (self `') => (ret `bool') -- Method: supports-cursor-color Returns ``#t'' if multicolored cursors are supported on DISPLAY. Otherwise, cursors have only a forground and a background color. DISPLAY a `' RET whether cursors can have multiple colors. Since 2.4 -- Function: gdk-display-supports-cursor-alpha (self `') => (ret `bool') -- Method: supports-cursor-alpha Returns ``#t'' if cursors can use an 8bit alpha channel on DISPLAY. Otherwise, cursors are restricted to bilevel alpha (i.e. a mask). DISPLAY a `' RET whether cursors can have alpha channels. Since 2.4 -- Function: gdk-display-get-default-cursor-size (self `') => (ret `unsigned-int') -- Method: get-default-cursor-size Returns the default size to use for cursors on DISPLAY. DISPLAY a `' RET the default cursor size. Since 2.4 -- Function: gdk-display-get-maximal-cursor-size (self `') => (width `unsigned-int') (height `unsigned-int') -- Method: get-maximal-cursor-size Gets the maximal size to use for cursors on DISPLAY. DISPLAY a `' WIDTH the return location for the maximal cursor width HEIGHT the return location for the maximal cursor height Since 2.4 -- Function: gdk-display-get-default-group (self `') => (ret `') -- Method: get-default-group Returns the default group leader window for all toplevel windows on DISPLAY. This window is implicitly created by GDK. See `gdk-window-set-group'. DISPLAY a `' RET The default group leader window for DISPLAY Since 2.4 -- Function: gdk-display-supports-shapes (self `') => (ret `bool') -- Method: supports-shapes Returns ``#t'' if `gdk-window-shape-combine-mask' can be used to create shaped windows on DISPLAY. DISPLAY a `' RET ``#t'' if shaped windows are supported Since 2.10 -- Function: gdk-display-supports-input-shapes (self `') => (ret `bool') -- Method: supports-input-shapes Returns ``#t'' if `gdk-window-input-shape-combine-mask' can be used to modify the input shape of windows on DISPLAY. DISPLAY a `' RET ``#t'' if windows with modified input shape are supported Since 2.10  File: guile-gnome-gdk.info, Node: GdkDisplayManager, Next: GdkScreen, Prev: GdkDisplay, Up: Top 4 GdkDisplayManager ******************* Maintains a list of all open s 4.1 Overview ============ The purpose of the `' singleton object is to offer notification when displays appear or disappear or the default display changes. 4.2 Usage ========= -- Class: Derives from `'. This class defines the following slots: `default-display' The default display for GDK -- Signal on : display-opened (arg0 `') The ::display_opened signal is emitted when a display is opened. Since 2.2 -- Function: gdk-display-manager-get => (ret `') Returns the global `' singleton; `gdk-parse-pargs', `gdk-init', or `gdk-init-check' must have been called first. RET the singleton `' object. Since 2.2 -- Function: gdk-display-manager-list-displays (self `') => (ret `gslist-of') -- Method: list-displays List all currently open displays. DISPLAY-MANAGER a `' RET a newly allocated `' of `' objects. Free this list with `g-slist-free' when you are done with it. Since 2.2 -- Function: gdk-display-get-core-pointer (self `') => (ret `') -- Method: get-core-pointer Returns the core pointer device for the given display DISPLAY a `' RET the core pointer device; this is owned by the display and should not be freed. Since 2.2  File: guile-gnome-gdk.info, Node: GdkScreen, Next: Points Rectangles and Regions, Prev: GdkDisplayManager, Up: Top 5 GdkScreen *********** Object representing a physical screen 5.1 Overview ============ `' objects are the GDK representation of a physical screen. It is used throughout GDK and GTK+ to specify which screen the top level windows are to be displayed on. It is also used to query the screen specification and default settings such as the default colormap (`gdk-screen-get-default-colormap'), the screen width (`gdk-screen-get-width'), etc. Note that a screen may consist of multiple monitors which are merged to form a large screen area. 5.2 Usage ========= -- Class: Derives from `'. This class defines the following slots: `font-options' The default font options for the screen `resolution' The resolution for fonts on the screen -- Signal on : size-changed The ::size_changed signal is emitted when the pixel width or height of a screen changes. Since 2.2 -- Signal on : composited-changed The ::composited_changed signal is emitted when the composited status of the screen changes Since 2.10 -- Function: gdk-screen-get-default => (ret `') Gets the default screen for the default display. (See `gdk-display-get-default'). RET a `', or ``#f'' if there is no default display. Since 2.2 -- Function: gdk-screen-get-default-colormap (self `') => (ret `') -- Method: get-default-colormap Gets the default colormap for SCREEN. SCREEN a `' RET the default `'. Since 2.2 -- Function: gdk-screen-set-default-colormap (self `') (colormap `') -- Method: set-default-colormap Sets the default COLORMAP for SCREEN. SCREEN a `' COLORMAP a `' Since 2.2 -- Function: gdk-screen-get-system-colormap (self `') => (ret `') -- Method: get-system-colormap Gets the system's default colormap for SCREEN SCREEN a `' RET the default colormap for SCREEN. Since 2.2 -- Function: gdk-screen-get-system-visual (self `') => (ret `') -- Method: get-system-visual Get the system's default visual for SCREEN. This is the visual for the root window of the display. The return value should not be freed. SCREEN a `'. RET the system visual Since 2.2 -- Function: gdk-screen-get-rgb-colormap (self `') => (ret `') -- Method: get-rgb-colormap Gets the preferred colormap for rendering image data on SCREEN. Not a very useful function; historically, GDK could only render RGB image data to one colormap and visual, but in the current version it can render to any colormap and visual. So there's no need to call this function. SCREEN a `'. RET the preferred colormap Since 2.2 -- Function: gdk-screen-get-rgb-visual (self `') => (ret `') -- Method: get-rgb-visual Gets a "preferred visual" chosen by GdkRGB for rendering image data on SCREEN. In previous versions of GDK, this was the only visual GdkRGB could use for rendering. In current versions, it's simply the visual GdkRGB would have chosen as the optimal one in those previous versions. GdkRGB can now render to drawables with any visual. SCREEN a `' RET The `' chosen by GdkRGB. Since 2.2 -- Function: gdk-screen-get-rgba-colormap (self `') => (ret `') -- Method: get-rgba-colormap Gets a colormap to use for creating windows or pixmaps with an alpha channel. The windowing system on which GTK+ is running may not support this capability, in which case ``#f'' will be returned. Even if a non-``#f'' value is returned, its possible that the window's alpha channel won't be honored when displaying the window on the screen: in particular, for X an appropriate windowing manager and compositing manager must be running to provide appropriate display. SCREEN a `'. RET a colormap to use for windows with an alpha channel or ``#f'' if the capability is not available. Since 2.8 -- Function: gdk-screen-get-rgba-visual (self `') => (ret `') -- Method: get-rgba-visual Gets a visual to use for creating windows or pixmaps with an alpha channel. See the docs for `gdk-screen-get-rgba-colormap' for caveats. SCREEN a `' RET a visual to use for windows with an alpha channel or ``#f'' if the capability is not available. Since 2.8 -- Function: gdk-screen-is-composited (self `') => (ret `bool') -- Method: is-composited Returns whether windows with an RGBA visual can reasonably be expected to have their alpha channel drawn correctly on the screen. On X11 this function returns whether a compositing manager is compositing SCREEN. SCREEN a `' RET Whether windows with RGBA visuals can reasonably be expected to have their alpha channels drawn correctly on the screen. Since 2.10 -- Function: gdk-screen-get-root-window (self `') => (ret `') -- Method: get-root-window Gets the root window of SCREEN. SCREEN a `' RET the root window Since 2.2 -- Function: gdk-screen-get-display (self `') => (ret `') -- Method: get-display Gets the display to which the SCREEN belongs. SCREEN a `' RET the display to which SCREEN belongs Since 2.2 -- Function: gdk-screen-get-number (self `') => (ret `int') -- Method: get-number Gets the index of SCREEN among the screens in the display to which it belongs. (See `gdk-screen-get-display') SCREEN a `' RET the index Since 2.2 -- Function: gdk-screen-get-width (self `') => (ret `int') -- Method: get-width Gets the width of SCREEN in pixels SCREEN a `' RET the width of SCREEN in pixels. Since 2.2 -- Function: gdk-screen-get-height (self `') => (ret `int') -- Method: get-height Gets the height of SCREEN in pixels SCREEN a `' RET the height of SCREEN in pixels. Since 2.2 -- Function: gdk-screen-get-width-mm (self `') => (ret `int') -- Method: get-width-mm Gets the width of SCREEN in millimeters. Note that on some X servers this value will not be correct. SCREEN a `' RET the width of SCREEN in millimeters. Since 2.2 -- Function: gdk-screen-get-height-mm (self `') => (ret `int') -- Method: get-height-mm Returns the height of SCREEN in millimeters. Note that on some X servers this value will not be correct. SCREEN a `' RET the heigth of SCREEN in millimeters. Since 2.2 -- Function: gdk-screen-list-visuals (self `') => (ret `glist-of') -- Method: list-visuals Lists the available visuals for the specified SCREEN. A visual describes a hardware image data format. For example, a visual might support 24-bit color, or 8-bit color, and might expect pixels to be in a certain format. Call `g-list-free' on the return value when you're finished with it. SCREEN the relevant `'. RET a list of visuals; the list must be freed, but not its contents Since 2.2 -- Function: gdk-screen-get-toplevel-windows (self `') => (ret `glist-of') -- Method: get-toplevel-windows Obtains a list of all toplevel windows known to GDK on the screen SCREEN. A toplevel window is a child of the root window (see `gdk-get-default-root-window'). The returned list should be freed with `g-list-free', but its elements need not be freed. SCREEN The `' where the toplevels are located. RET list of toplevel windows, free with `g-list-free' Since 2.2 -- Function: gdk-screen-make-display-name (self `') => (ret `mchars') -- Method: make-display-name Determines the name to pass to `gdk-display-open' to get a `' with this screen as the default screen. SCREEN a `' RET a newly allocated string, free with `g-free' Since 2.2 -- Function: gdk-screen-get-n-monitors (self `') => (ret `int') -- Method: get-n-monitors Returns the number of monitors which SCREEN consists of. SCREEN a `'. RET number of monitors which SCREEN consists of. Since 2.2 -- Function: gdk-screen-get-monitor-geometry (self `') (monitor_num `int') (dest `') -- Method: get-monitor-geometry Retrieves the `' representing the size and position of the individual monitor within the entire screen area. Note that the size of the entire screen area can be retrieved via `gdk-screen-get-width' and `gdk-screen-get-height'. SCREEN a `'. MONITOR-NUM the monitor number. DEST a `' to be filled with the monitor geometry Since 2.2 -- Function: gdk-screen-get-monitor-at-point (self `') (x `int') (y `int') => (ret `int') -- Method: get-monitor-at-point Returns the monitor number in which the point (X,Y) is located. SCREEN a `'. X the x coordinate in the virtual screen. Y the y coordinate in the virtual screen. RET the monitor number in which the point (X,Y) lies, or a monitor close to (X,Y) if the point is not in any monitor. Since 2.2 -- Function: gdk-screen-get-monitor-at-window (self `') (window `') => (ret `int') -- Method: get-monitor-at-window Returns the number of the monitor in which the largest area of the bounding rectangle of WINDOW resides. SCREEN a `'. WINDOW a `' RET the monitor number in which most of WINDOW is located, or if WINDOW does not intersect any monitors, a monitor, close to WINDOW. Since 2.2 -- Function: gdk-screen-broadcast-client-message (self `') (event `') -- Method: broadcast-client-message On X11, sends an X ClientMessage event to all toplevel windows on SCREEN. Toplevel windows are determined by checking for the WM_STATE property, as described in the Inter-Client Communication Conventions Manual (ICCCM). If no windows are found with the WM_STATE property set, the message is sent to all children of the root window. On Windows, broadcasts a message registered with the name GDK_WIN32_CLIENT_MESSAGE to all top-level windows. The amount of data is limited to one long, i.e. four bytes. SCREEN the `' where the event will be broadcasted. EVENT the `'. Since 2.2 -- Function: gdk-screen-get-setting (self `') (name `mchars') (value `') => (ret `bool') -- Method: get-setting Retrieves a desktop-wide setting such as double-click time for the `'SCREEN. FIXME needs a list of valid settings here, or a link to more information. SCREEN the `' where the setting is located NAME the name of the setting VALUE location to store the value of the setting RET ``#t'' if the setting existed and a value was stored in VALUE, ``#f'' otherwise. Since 2.2 -- Function: gdk-screen-get-font-options (self `') => (ret `cairo-font-options-t') -- Method: get-font-options Gets any options previously set with `gdk-screen-set-font-options'. SCREEN a `' RET the current font options, or ``#f'' if no default font options have been set. Since 2.10 -- Function: gdk-screen-set-font-options (self `') (options `cairo-font-options-t') -- Method: set-font-options Sets the default font options for the screen. These options will be set on any `''s newly created with `gdk-pango-context-get-for-screen'. Changing the default set of font options does not affect contexts that have already been created. SCREEN a `' OPTIONS a `', or ``#f'' to unset any previously set default font options. Since 2.10 -- Function: gdk-screen-get-resolution (self `') => (ret `double') -- Method: get-resolution Gets the resolution for font handling on the screen; see `gdk-screen-set-resolution' for full details. SCREEN a `' RET the current resolution, or -1 if no resolution has been set. Since 2.10 -- Function: gdk-screen-set-resolution (self `') (dpi `double') -- Method: set-resolution Sets the resolution for font handling on the screen. This is a scale factor between points specified in a `' and cairo units. The default value is 96, meaning that a 10 point font will be 13 units high. (10 * 96. / 72. = 13.3). SCREEN a `' DPI the resolution in "dots per inch". (Physical inches aren't actually involved; the terminology is conventional.) Since 2.10 -- Function: gdk-screen-get-active-window (self `') => (ret `') -- Method: get-active-window Returns the screen's currently active window. On X11, this is done by inspecting the _NET_ACTIVE_WINDOW property on the root window, as described in the Extended Window Manager Hints (http://www.freedesktop.org/Standards/wm-spec). If there is no currently currently active window, or the window manager does not support the _NET_ACTIVE_WINDOW hint, this function returns ``#f''. On other platforms, this function may return ``#f'', depending on whether it is implementable on that platform. The returned window should be unrefed using `g-object-unref' when no longer needed. SCREEN a `' RET the currently active window, or ``#f''. Since 2.10 -- Function: gdk-screen-get-window-stack (self `') => (ret `glist-of') -- Method: get-window-stack Returns a `' of `'s representing the current window stack. On X11, this is done by inspecting the _NET_CLIENT_LIST_STACKING property on the root window, as described in the Extended Window Manager Hints (http://www.freedesktop.org/Standards/wm-spec). If the window manager does not support the _NET_CLIENT_LIST_STACKING hint, this function returns ``#f''. On other platforms, this function may return ``#f'', depending on whether it is implementable on that platform. The returned list is newly allocated and owns references to the windows it contains, so it should be freed using `g-list-free' and its windows unrefed using `g-object-unref' when no longer needed. SCREEN a `' RET a list of `'s for the current window stack, or ``#f''. Since 2.10 -- Function: gdk-spawn-command-line-on-screen (screen `') (command_line `mchars') => (ret `bool') Like `g-spawn-command-line-async', except the child process is spawned in such an environment that on calling `gdk-display-open' it would be returned a `' with SCREEN as the default screen. This is useful for applications which wish to launch an application on a specific screen. SCREEN a `' COMMAND-LINE a command line ERROR return location for errors RET ``#t'' on success, ``#f'' if error is set. Since 2.4  File: guile-gnome-gdk.info, Node: Points Rectangles and Regions, Next: Graphics Contexts, Prev: GdkScreen, Up: Top 6 Points, Rectangles and Regions ******************************** Simple graphical data types 6.1 Overview ============ GDK provides the `', `', `' and `' data types for representing pixels and sets of pixels on the screen. `' is a simple structure containing an x and y coordinate of a point. `' is a structure holding the position and size of a rectangle. The intersection of two rectangles can be computed with `gdk-rectangle-intersect'. To find the union of two rectangles use `gdk-rectangle-union'. `' is an opaque data type holding a set of arbitrary pixels, and is usually used for clipping graphical operations (see `gdk-gc-set-clip-region'). `' is a structure holding a spanline. A spanline is a horizontal line that is one pixel wide. It is mainly used when rasterizing other graphics primitives. It can be intersected to regions by using `gdk-region-spans-intersect-foreach'. 6.2 Usage ========= -- Class: Derives from `'. This class defines no direct slots. -- Class: Opaque pointer. This class defines no direct slots. -- Function: gdk-region-new => (ret `') Creates a new empty `'. RET a new empty `' -- Function: gdk-region-copy (self `') => (ret `') Copies REGION, creating an identical new region. REGION a `' RET a new region identical to REGION -- Function: gdk-region-rectangle (rectangle `') => (ret `') Creates a new region containing the area RECTANGLE. RECTANGLE a `' RET a new region -- Function: gdk-region-destroy (self `') Destroys a `'. REGION a `' -- Function: gdk-region-empty (self `') => (ret `bool') Finds out if the `' is empty. REGION a `' RET ``#t'' if REGION is empty. -- Function: gdk-region-equal (self `') (region2 `') => (ret `bool') Finds out if the two regions are the same. REGION1 a `' REGION2 a `' RET ``#t'' if REGION1 and REGION2 are equal. -- Function: gdk-region-point-in (self `') (x `int') (y `int') => (ret `bool') Finds out if a point is in a region. REGION a `' X the x coordinate of a point Y the y coordinate of a point RET ``#t'' if the point is in REGION. -- Function: gdk-region-rect-in (self `') (rectangle `') => (ret `') Tests whether a rectangle is within a region. REGION a `'. RECTANGLE a `'. RET `GDK_OVERLAP_RECTANGLE_IN', `GDK_OVERLAP_RECTANGLE_OUT', or `GDK_OVERLAP_RECTANGLE_PART', depending on whether the rectangle is inside, outside, or partly inside the `', respectively. -- Function: gdk-region-offset (self `') (dx `int') (dy `int') Moves a region the specified distance. REGION a `' DX the distance to move the region horizontally DY the distance to move the region vertically -- Function: gdk-region-shrink (self `') (dx `int') (dy `int') Resizes a region by the specified amount. Positive values shrink the region. Negative values expand it. REGION a `' DX the number of pixels to shrink the region horizontally DY the number of pixels to shrink the region vertically -- Function: gdk-region-union-with-rect (self `') (rect `') Sets the area of REGION to the union of the areas of REGION and RECT. The resulting area is the set of pixels contained in either REGION or RECT. REGION a `'. RECT a `'. -- Function: gdk-region-intersect (self `') (source2 `') Sets the area of SOURCE1 to the intersection of the areas of SOURCE1 and SOURCE2. The resulting area is the set of pixels contained in both SOURCE1 and SOURCE2. SOURCE1 a `' SOURCE2 another `' -- Function: gdk-region-union (self `') (source2 `') Sets the area of SOURCE1 to the union of the areas of SOURCE1 and SOURCE2. The resulting area is the set of pixels contained in either SOURCE1 or SOURCE2. SOURCE1 a `' SOURCE2 a `' -- Function: gdk-region-subtract (self `') (source2 `') Subtracts the area of SOURCE2 from the area SOURCE1. The resulting area is the set of pixels contained in SOURCE1 but not in SOURCE2. SOURCE1 a `' SOURCE2 another `' -- Function: gdk-region-xor (self `') (source2 `') Sets the area of SOURCE1 to the exclusive-OR of the areas of SOURCE1 and SOURCE2. The resulting area is the set of pixels contained in one or the other of the two sources but not in both. SOURCE1 a `' SOURCE2 another `'  File: guile-gnome-gdk.info, Node: Graphics Contexts, Next: Drawing Primitives, Prev: Points Rectangles and Regions, Up: Top 7 Graphics Contexts ******************* Objects to encapsulate drawing properties 7.1 Overview ============ All drawing operations in GDK take a "graphics context" (GC) argument. A graphics context encapsulates information about the way things are drawn, such as the foreground color or line width. By using graphics contexts, the number of arguments to each drawing call is greatly reduced, and communication overhead is minimized, since identical arguments do not need to be passed repeatedly. Most values of a graphics context can be set at creation time by using `gdk-gc-new-with-values', or can be set one-by-one using functions such as `gdk-gc-set-foreground'. A few of the values in the GC, such as the dash pattern, can only be set by the latter method. 7.2 Usage ========= -- Class: Derives from `'. This class defines no direct slots. -- Function: gdk-gc-new (drawable `') => (ret `') Create a new graphics context with default values. DRAWABLE a `'. The created GC must always be used with drawables of the same depth as this one. RET the new graphics context. -- Function: gdk-gc-get-screen (self `') => (ret `') -- Method: get-screen Gets the `' for which GC was created GC a `'. RET the `' for GC. Since 2.2 -- Function: gdk-gc-set-foreground (self `') (color `') -- Method: set-foreground Sets the foreground color for a graphics context. Note that this function uses COLOR->PIXEL, use `gdk-gc-set-rgb-fg-color' to specify the foreground color as red, green, blue components. GC a `'. COLOR the new foreground color. -- Function: gdk-gc-set-background (self `') (color `') -- Method: set-background Sets the background color for a graphics context. Note that this function uses COLOR->PIXEL, use `gdk-gc-set-rgb-bg-color' to specify the background color as red, green, blue components. GC a `'. COLOR the new background color. -- Function: gdk-gc-set-rgb-fg-color (self `') (color `') -- Method: set-rgb-fg-color Set the foreground color of a GC using an unallocated color. The pixel value for the color will be determined using GdkRGB. If the colormap for the GC has not previously been initialized for GdkRGB, then for pseudo-color colormaps (colormaps with a small modifiable number of colors), a colorcube will be allocated in the colormap. Calling this function for a GC without a colormap is an error. GC a `' COLOR an unallocated `'. -- Function: gdk-gc-set-rgb-bg-color (self `') (color `') -- Method: set-rgb-bg-color Set the background color of a GC using an unallocated color. The pixel value for the color will be determined using GdkRGB. If the colormap for the GC has not previously been initialized for GdkRGB, then for pseudo-color colormaps (colormaps with a small modifiable number of colors), a colorcube will be allocated in the colormap. Calling this function for a GC without a colormap is an error. GC a `' COLOR an unallocated `'. -- Function: gdk-gc-set-font (self `') (font `') -- Method: set-font `gdk_gc_set_font' is deprecated and should not be used in newly-written code. Sets the font for a graphics context. (Note that all text-drawing functions in GDK take a FONT argument; the value set here is used when that argument is ``#f''.) GC a `'. FONT the new font. -- Function: gdk-gc-set-function (self `') (function `') -- Method: set-function Determines how the current pixel values and the pixel values being drawn are combined to produce the final pixel values. GC a `'. FUNCTION the `' to use -- Function: gdk-gc-set-fill (self `') (fill `') -- Method: set-fill Set the fill mode for a graphics context. GC a `'. FILL the new fill mode. -- Function: gdk-gc-set-tile (self `') (tile `') -- Method: set-tile Set a tile pixmap for a graphics context. This will only be used if the fill mode is `GDK_TILED'. GC a `'. TILE the new tile pixmap. -- Function: gdk-gc-set-stipple (self `') (stipple `') -- Method: set-stipple Set the stipple bitmap for a graphics context. The stipple will only be used if the fill mode is `GDK_STIPPLED' or `GDK_OPAQUE_STIPPLED'. GC a `'. STIPPLE the new stipple bitmap. -- Function: gdk-gc-set-ts-origin (self `') (x `int') (y `int') -- Method: set-ts-origin Set the origin when using tiles or stipples with the GC. The tile or stipple will be aligned such that the upper left corner of the tile or stipple will coincide with this point. GC a `'. X the x-coordinate of the origin. Y the y-coordinate of the origin. -- Function: gdk-gc-set-clip-origin (self `') (x `int') (y `int') -- Method: set-clip-origin Sets the origin of the clip mask. The coordinates are interpreted relative to the upper-left corner of the destination drawable of the current operation. GC a `'. X the x-coordinate of the origin. Y the y-coordinate of the origin. -- Function: gdk-gc-set-clip-mask (self `') (mask `') -- Method: set-clip-mask Sets the clip mask for a graphics context from a bitmap. The clip mask is interpreted relative to the clip origin. (See `gdk-gc-set-clip-origin'). GC the `'. MASK a bitmap. -- Function: gdk-gc-set-clip-rectangle (self `') (rectangle `') -- Method: set-clip-rectangle Sets the clip mask for a graphics context from a rectangle. The clip mask is interpreted relative to the clip origin. (See `gdk-gc-set-clip-origin'). GC a `'. RECTANGLE the rectangle to clip to. -- Function: gdk-gc-set-clip-region (self `') (region `') -- Method: set-clip-region Sets the clip mask for a graphics context from a region structure. The clip mask is interpreted relative to the clip origin. (See `gdk-gc-set-clip-origin'). GC a `'. REGION the `'. -- Function: gdk-gc-set-subwindow (self `') (mode `') -- Method: set-subwindow Sets how drawing with this GC on a window will affect child windows of that window. GC a `'. MODE the subwindow mode. -- Function: gdk-gc-set-exposures (self `') (exposures `bool') -- Method: set-exposures Sets whether copying non-visible portions of a drawable using this graphics context generate exposure events for the corresponding regions of the destination drawable. (See `gdk-draw-drawable'). GC a `'. EXPOSURES if ``#t'', exposure events will be generated. -- Function: gdk-gc-set-line-attributes (self `') (line_width `int') (line_style `') (cap_style `') (join_style `') -- Method: set-line-attributes Sets various attributes of how lines are drawn. See the corresponding members of `' for full explanations of the arguments. GC a `'. LINE-WIDTH the width of lines. LINE-STYLE the dash-style for lines. CAP-STYLE the manner in which the ends of lines are drawn. JOIN-STYLE the in which lines are joined together. -- Function: gdk-gc-copy (self `') (src_gc `') -- Method: copy Copy the set of values from one graphics context onto another graphics context. DST-GC the destination graphics context. SRC-GC the source graphics context. -- Function: gdk-gc-set-colormap (self `') (colormap `') -- Method: set-colormap Sets the colormap for the GC to the given colormap. The depth of the colormap's visual must match the depth of the drawable for which the GC was created. GC a `' COLORMAP a `' -- Function: gdk-gc-get-colormap (self `') => (ret `') -- Method: get-colormap Retrieves the colormap for a given GC, if it exists. A GC will have a colormap if the drawable for which it was created has a colormap, or if a colormap was set explicitely with gdk_gc_set_colormap. GC a `' RET the colormap of GC, or ``#f'' if GC doesn't have one. -- Function: gdk-gc-offset (self `') (x_offset `int') (y_offset `int') -- Method: offset Offset attributes such as the clip and tile-stipple origins of the GC so that drawing at x - x_offset, y - y_offset with the offset GC has the same effect as drawing at x, y with the original GC. GC a `' X-OFFSET amount by which to offset the GC in the X direction Y-OFFSET amount by which to offset the GC in the Y direction  File: guile-gnome-gdk.info, Node: Drawing Primitives, Next: Bitmaps and Pixmaps, Prev: Graphics Contexts, Up: Top 8 Drawing Primitives ******************** Functions for drawing points, lines, arcs, and text 8.1 Overview ============ These functions provide support for drawing points, lines, arcs and text onto what are called 'drawables'. Drawables, as the name suggests, are things which support drawing onto them, and are either `' or `' objects. Many of the drawing operations take a `' argument, which represents a graphics context. This `' contains a number of drawing attributes such as foreground color, background color and line width, and is used to reduce the number of arguments needed for each drawing operation. See the Graphics Contexts section for more information. Some of the drawing operations take Pango data structures like `', `' or `' as arguments. If you're using GTK+, the ususal way to obtain these structures is via `gtk-widget-create-pango-context' or `gtk-widget-create-pango-layout'. 8.2 Usage ========= -- Class: Derives from `'. This class defines no direct slots. -- Function: gdk-drawable-get-display (self `') => (ret `') -- Method: get-display Gets the `' associated with a `'. DRAWABLE a `' RET the `' associated with DRAWABLE Since 2.2 -- Function: gdk-drawable-get-screen (self `') => (ret `') -- Method: get-screen Gets the `' associated with a `'. DRAWABLE a `' RET the `' associated with DRAWABLE Since 2.2 -- Function: gdk-drawable-get-visual (self `') => (ret `') -- Method: get-visual Gets the `' describing the pixel format of DRAWABLE. DRAWABLE a `' RET a `' -- Function: gdk-drawable-set-colormap (self `') (colormap `') -- Method: set-colormap Sets the colormap associated with DRAWABLE. Normally this will happen automatically when the drawable is created; you only need to use this function if the drawable-creating function did not have a way to determine the colormap, and you then use drawable operations that require a colormap. The colormap for all drawables and graphics contexts you intend to use together should match. i.e. when using a `' to draw to a drawable, or copying one drawable to another, the colormaps should match. DRAWABLE a `' COLORMAP a `' -- Function: gdk-drawable-get-colormap (self `') => (ret `') -- Method: get-colormap Gets the colormap for DRAWABLE, if one is set; returns ``#f'' otherwise. DRAWABLE a `' RET the colormap, or ``#f'' -- Function: gdk-drawable-get-depth (self `') => (ret `int') -- Method: get-depth Obtains the bit depth of the drawable, that is, the number of bits that make up a pixel in the drawable's visual. Examples are 8 bits per pixel, 24 bits per pixel, etc. DRAWABLE a `' RET number of bits per pixel -- Function: gdk-drawable-get-size (self `') => (width `int') (height `int') -- Method: get-size Fills *WIDTH and *HEIGHT with the size of DRAWABLE. WIDTH or HEIGHT can be ``#f'' if you only want the other one. On the X11 platform, if DRAWABLE is a `', the returned size is the size reported in the most-recently-processed configure event, rather than the current size on the X server. DRAWABLE a `' WIDTH location to store drawable's width, or ``#f'' HEIGHT location to store drawable's height, or ``#f'' -- Function: gdk-drawable-get-clip-region (self `') => (ret `') -- Method: get-clip-region Computes the region of a drawable that potentially can be written to by drawing primitives. This region will not take into account the clip region for the GC, and may also not take into account other factors such as if the window is obscured by other windows, but no area outside of this region will be affected by drawing primitives. DRAWABLE a `' RET a `'. This must be freed with `gdk-region-destroy' when you are done. -- Function: gdk-drawable-get-visible-region (self `') => (ret `') -- Method: get-visible-region Computes the region of a drawable that is potentially visible. This does not necessarily take into account if the window is obscured by other windows, but no area outside of this region is visible. DRAWABLE a `' RET a `'. This must be freed with `gdk-region-destroy' when you are done. -- Function: gdk-draw-point (drawable `') (gc `') (x `int') (y `int') Draws a point, using the foreground color and other attributes of the `'. DRAWABLE a `' (a `' or a `'). GC a `'. X the x coordinate of the point. Y the y coordinate of the point. -- Function: gdk-draw-line (drawable `') (gc `') (x1_ `int') (y1_ `int') (x2_ `int') (y2_ `int') Draws a line, using the foreground color and other attributes of the `'. DRAWABLE a `' (a `' or a `'). GC a `'. X1 the x coordinate of the start point. Y1 the y coordinate of the start point. X2 the x coordinate of the end point. Y2 the y coordinate of the end point. -- Function: gdk-draw-pixbuf (drawable `') (gc `') (pixbuf `') (src_x `int') (src_y `int') (dest_x `int') (dest_y `int') (width `int') (height `int') (dither `') (x_dither `int') (y_dither `int') Renders a rectangular portion of a pixbuf to a drawable. The destination drawable must have a colormap. All windows have a colormap, however, pixmaps only have colormap by default if they were created with a non-``#f'' window argument. Otherwise a colormap must be set on them with `gdk-drawable-set-colormap'. On older X servers, rendering pixbufs with an alpha channel involves round trips to the X server, and may be somewhat slow. The clip mask of GC is ignored, but clip rectangles and clip regions work fine. DRAWABLE Destination drawable. GC a `', used for clipping, or ``#f'' PIXBUF a `' SRC-X Source X coordinate within pixbuf. SRC-Y Source Y coordinates within pixbuf. DEST-X Destination X coordinate within drawable. DEST-Y Destination Y coordinate within drawable. WIDTH Width of region to render, in pixels, or -1 to use pixbuf width. HEIGHT Height of region to render, in pixels, or -1 to use pixbuf height. DITHER Dithering mode for `'. X-DITHER X offset for dither. Y-DITHER Y offset for dither. Since 2.2 -- Function: gdk-draw-rectangle (drawable `') (gc `') (filled `bool') (x `int') (y `int') (width `int') (height `int') Draws a rectangular outline or filled rectangle, using the foreground color and other attributes of the `'. A rectangle drawn filled is 1 pixel smaller in both dimensions than a rectangle outlined. Calling `gdk_draw_rectangle (window, gc, TRUE, 0, 0, 20, 20)' results in a filled rectangle 20 pixels wide and 20 pixels high. Calling `gdk_draw_rectangle (window, gc, FALSE, 0, 0, 20, 20)' results in an outlined rectangle with corners at (0, 0), (0, 20), (20, 20), and (20, 0), which makes it 21 pixels wide and 21 pixels high. DRAWABLE a `' (a `' or a `'). GC a `'. FILLED ``#t'' if the rectangle should be filled. X the x coordinate of the left edge of the rectangle. Y the y coordinate of the top edge of the rectangle. WIDTH the width of the rectangle. HEIGHT the height of the rectangle. -- Function: gdk-draw-arc (drawable `') (gc `') (filled `bool') (x `int') (y `int') (width `int') (height `int') (angle1 `int') (angle2 `int') Draws an arc or a filled 'pie slice'. The arc is defined by the bounding rectangle of the entire ellipse, and the start and end angles of the part of the ellipse to be drawn. DRAWABLE a `' (a `' or a `'). GC a `'. FILLED ``#t'' if the arc should be filled, producing a 'pie slice'. X the x coordinate of the left edge of the bounding rectangle. Y the y coordinate of the top edge of the bounding rectangle. WIDTH the width of the bounding rectangle. HEIGHT the height of the bounding rectangle. ANGLE1 the start angle of the arc, relative to the 3 o'clock position, counter-clockwise, in 1/64ths of a degree. ANGLE2 the end angle of the arc, relative to ANGLE1, in 1/64ths of a degree. -- Function: gdk-draw-glyphs (drawable `') (gc `') (font `') (x `int') (y `int') (glyphs `') This is a low-level function; 99% of text rendering should be done using `gdk-draw-layout' instead. A glyph is a single image in a font. This function draws a sequence of glyphs. To obtain a sequence of glyphs you have to understand a lot about internationalized text handling, which you don't want to understand; thus, use `gdk-draw-layout' instead of this function, `gdk-draw-layout' handles the details. DRAWABLE a `' GC a `' FONT font to be used X X coordinate of baseline origin Y Y coordinate of baseline origin GLYPHS the glyph string to draw -- Function: gdk-draw-glyphs-transformed (drawable `') (gc `') (matrix `') (font `') (x `int') (y `int') (glyphs `') Renders a `' onto a drawable, possibly transforming the layed-out coordinates through a transformation matrix. Note that the transformation matrix for FONT is not changed, so to produce correct rendering results, the FONT must have been loaded using a `' with an identical transformation matrix to that passed in to this function. See also `gdk-draw-glyphs', `gdk-draw-layout'. DRAWABLE a `' GC a `' MATRIX a `', or ``#f'' to use an identity transformation FONT the font in which to draw the string X the x position of the start of the string (in Pango units in user space coordinates) Y the y position of the baseline (in Pango units in user space coordinates) GLYPHS the glyph string to draw Since 2.6 -- Function: gdk-draw-layout-line (drawable `') (gc `') (x `int') (y `int') (line `') Render a `' onto an GDK drawable If the layout's `' has a transformation matrix set, then X and Y specify the position of the left edge of the baseline (left is in before-tranform user coordinates) in after-transform device coordinates. DRAWABLE the drawable on which to draw the line GC base graphics to use X the x position of start of string (in pixels) Y the y position of baseline (in pixels) LINE a `' -- Function: gdk-draw-layout-line-with-colors (drawable `') (gc `') (x `int') (y `int') (line `') (foreground `') (background `') Render a `' onto a `', overriding the layout's normal colors with FOREGROUND and/or BACKGROUND. FOREGROUND and BACKGROUND need not be allocated. If the layout's `' has a transformation matrix set, then X and Y specify the position of the left edge of the baseline (left is in before-tranform user coordinates) in after-transform device coordinates. DRAWABLE the drawable on which to draw the line GC base graphics to use X the x position of start of string (in pixels) Y the y position of baseline (in pixels) LINE a `' FOREGROUND foreground override color, or ``#f'' for none BACKGROUND background override color, or ``#f'' for none -- Function: gdk-draw-layout (drawable `') (gc `') (x `int') (y `int') (layout `') Render a `' onto a GDK drawable If the layout's `' has a transformation matrix set, then X and Y specify the position of the top left corner of the bounding box (in device space) of the transformed layout. If you're using GTK+, the usual way to obtain a `' is `gtk-widget-create-pango-layout'. DRAWABLE the drawable on which to draw string GC base graphics context to use X the X position of the left of the layout (in pixels) Y the Y position of the top of the layout (in pixels) LAYOUT a `' -- Function: gdk-draw-layout-with-colors (drawable `') (gc `') (x `int') (y `int') (layout `') (foreground `') (background `') Render a `' onto a `', overriding the layout's normal colors with FOREGROUND and/or BACKGROUND. FOREGROUND and BACKGROUND need not be allocated. If the layout's `' has a transformation matrix set, then X and Y specify the position of the top left corner of the bounding box (in device space) of the transformed layout. If you're using GTK+, the ususal way to obtain a `' is `gtk-widget-create-pango-layout'. DRAWABLE the drawable on which to draw string GC base graphics context to use X the X position of the left of the layout (in pixels) Y the Y position of the top of the layout (in pixels) LAYOUT a `' FOREGROUND foreground override color, or ``#f'' for none BACKGROUND background override color, or ``#f'' for none -- Function: gdk-draw-string (drawable `') (font `') (gc `') (x `int') (y `int') (string `mchars') `gdk_draw_string' is deprecated and should not be used in newly-written code. Use `gdk-draw-layout' instead. Draws a string of characters in the given font or fontset. DRAWABLE a `' (a `' or a `'). FONT a `'. GC a `'. X the x coordinate of the left edge of the text. Y the y coordinate of the baseline of the text. STRING the string of characters to draw. -- Function: gdk-draw-drawable (drawable `') (gc `') (src `') (xsrc `int') (ysrc `int') (xdest `int') (ydest `int') (width `int') (height `int') Copies the WIDTH x HEIGHT region of SRC at coordinates (XSRC, YSRC) to coordinates (XDEST, YDEST) in DRAWABLE. WIDTH and/or HEIGHT may be given as -1, in which case the entire SRC drawable will be copied. Most fields in GC are not used for this operation, but notably the clip mask or clip region will be honored. The source and destination drawables must have the same visual and colormap, or errors will result. (On X11, failure to match visual/colormap results in a BadMatch error from the X server.) A common cause of this problem is an attempt to draw a bitmap to a color drawable. The way to draw a bitmap is to set the bitmap as the stipple on the `', set the fill mode to `GDK_STIPPLED', and then draw the rectangle. DRAWABLE a `' GC a `' sharing the drawable's visual and colormap SRC the source `', which may be the same as DRAWABLE XSRC X position in SRC of rectangle to draw YSRC Y position in SRC of rectangle to draw XDEST X position in DRAWABLE where the rectangle should be drawn YDEST Y position in DRAWABLE where the rectangle should be drawn WIDTH width of rectangle to draw, or -1 for entire SRC width HEIGHT height of rectangle to draw, or -1 for entire SRC height -- Function: gdk-draw-image (drawable `') (gc `') (image `') (xsrc `int') (ysrc `int') (xdest `int') (ydest `int') (width `int') (height `int') Draws a `' onto a drawable. The depth of the `' must match the depth of the `'. DRAWABLE a `' (a `' or a `'). GC a `'. IMAGE the `' to draw. XSRC the left edge of the source rectangle within IMAGE. YSRC the top of the source rectangle within IMAGE. XDEST the x coordinate of the destination within DRAWABLE. YDEST the y coordinate of the destination within DRAWABLE. WIDTH the width of the area to be copied, or -1 to make the area extend to the right edge of IMAGE. HEIGHT the height of the area to be copied, or -1 to make the area extend to the bottom edge of IMAGE. -- Function: gdk-drawable-get-image (self `') (x `int') (y `int') (width `int') (height `int') => (ret `') -- Method: get-image A `' stores client-side image data (pixels). In contrast, `' and `' are server-side objects. `gdk-drawable-get-image' obtains the pixels from a server-side drawable as a client-side `'. The format of a `' depends on the `' of the current display, which makes manipulating `' extremely difficult; therefore, in most cases you should use `gdk-pixbuf-get-from-drawable' instead of this lower-level function. A `' contains image data in a canonicalized RGB format, rather than a display-dependent format. Of course, there's a convenience vs. speed tradeoff here, so you'll want to think about what makes sense for your application. X, Y, WIDTH, and HEIGHT define the region of DRAWABLE to obtain as an image. You would usually copy image data to the client side if you intend to examine the values of individual pixels, for example to darken an image or add a red tint. It would be prohibitively slow to make a round-trip request to the windowing system for each pixel, so instead you get all of them at once, modify them, then copy them all back at once. If the X server or other windowing system backend is on the local machine, this function may use shared memory to avoid copying the image data. If the source drawable is a `' and partially offscreen or obscured, then the obscured portions of the returned image will contain undefined data. DRAWABLE a `' X x coordinate on DRAWABLE Y y coordinate on DRAWABLE WIDTH width of region to get HEIGHT height or region to get RET a `' containing the contents of DRAWABLE -- Function: gdk-drawable-copy-to-image (self `') (image `') (src_x `int') (src_y `int') (dest_x `int') (dest_y `int') (width `int') (height `int') => (ret `') -- Method: copy-to-image Copies a portion of DRAWABLE into the client side image structure IMAGE. If IMAGE is ``#f'', creates a new image of size WIDTH x HEIGHT and copies into that. See `gdk-drawable-get-image' for further details. DRAWABLE a `' IMAGE a `', or ``#f'' if a new IMAGE should be created. SRC-X x coordinate on DRAWABLE SRC-Y y coordinate on DRAWABLE DEST-X x coordinate within IMAGE. Must be 0 if IMAGE is ``#f'' DEST-Y y coordinate within IMAGE. Must be 0 if IMAGE is ``#f'' WIDTH width of region to get HEIGHT height or region to get RET IMAGE, or a new a `' containing the contents of DRAWABLE Since 2.4  File: guile-gnome-gdk.info, Node: Bitmaps and Pixmaps, Next: GdkRGB, Prev: Drawing Primitives, Up: Top 9 Bitmaps and Pixmaps ********************* Offscreen drawables 9.1 Overview ============ Pixmaps are offscreen drawables. They can be drawn upon with the standard drawing primitives, then copied to another drawable (such as a `') with `gdk-pixmap-draw'. The depth of a pixmap is the number of bits per pixels. Bitmaps are simply pixmaps with a depth of 1. (That is, they are monochrome bitmaps - each pixel can be either on or off). 9.2 Usage ========= -- Function: gdk-pixmap-new (drawable `') (width `int') (height `int') (depth `int') => (ret `') Create a new pixmap with a given size and depth. DRAWABLE A `', used to determine default values for the new pixmap. Can be ``#f'' if DEPTH is specified, WIDTH The width of the new pixmap in pixels. HEIGHT The height of the new pixmap in pixels. DEPTH The depth (number of bits per pixel) of the new pixmap. If -1, and DRAWABLE is not ``#f'', the depth of the new pixmap will be equal to that of DRAWABLE. RET the `' -- Function: gdk-bitmap-create-from-data (drawable `') (data `mchars') (width `int') (height `int') => (ret `') Creates a new bitmap from data in XBM format. DRAWABLE a `', used to determine default values for the new pixmap. Can be ``#f'', in which case the root window is used. DATA a pointer to the XBM data. WIDTH the width of the new pixmap in pixels. HEIGHT the height of the new pixmap in pixels. RET the `' -- Function: gdk-pixmap-create-from-data (drawable `') (data `mchars') (width `int') (height `int') (depth `int') (fg `') (bg `') => (ret `') Create a two-color pixmap from data in XBM data. DRAWABLE a `', used to determine default values for the new pixmap. Can be ``#f'', if the depth is given. DATA a pointer to the data. WIDTH the width of the new pixmap in pixels. HEIGHT the height of the new pixmap in pixels. DEPTH the depth (number of bits per pixel) of the new pixmap. FG the foreground color. BG the background color. RET the `'  File: guile-gnome-gdk.info, Node: GdkRGB, Next: Images, Prev: Bitmaps and Pixmaps, Up: Top 10 GdkRGB ********* Renders RGB, grayscale, or indexed image data to a GdkDrawable 10.1 Overview ============= GdkRGB is a low-level module which renders RGB, grayscale, and indexed colormap images to a `'. It does this as efficiently as possible, handling issues such as colormaps, visuals, dithering, temporary buffers, and so on. Most code should use the higher-level `' features in place of this module; for example, `gdk-pixbuf-render-to-drawable' uses GdkRGB in its implementation. GdkRGB allocates a color cube to use when rendering images. You can set the threshold for installing colormaps with `gdk-rgb-set-min-colors'. The default is 5x5x5 (125). If a colorcube of this size or larger can be allocated in the default colormap, then that's done. Otherwise, GdkRGB creates its own private colormap. Setting it to 0 means that it always tries to use the default colormap, and setting it to 216 means that it always creates a private one if it cannot allocate the 6x6x6 colormap in the default. If you always want a private colormap (to avoid consuming too many colormap entries for other apps, say), you can use `gdk_rgb_set_install(TRUE)'. Setting the value greater than 216 exercises a bug in older versions of GdkRGB. Note, however, that setting it to 0 doesn't let you get away with ignoring the colormap and visual - a colormap is always created in grayscale and direct color modes, and the visual is changed in cases where a "better" visual than the default is available. #include #define IMAGE_WIDTH 256 #define IMAGE_HEIGHT 256 guchar rgbbuf[IMAGE_WIDTH * IMAGE_HEIGHT * 3]; gboolean on_darea_expose (GtkWidget *widget, GdkEventExpose *event, gpointer user_data); int main (int argc, char *argv[]) { GtkWidget *window, *darea; gint x, y; guchar *pos; gtk_init (&argc, &argv); window = gtk_window_new (GTK_WINDOW_TOPLEVEL); darea = gtk_drawing_area_new (); gtk_widget_set_size_request (darea, IMAGE_WIDTH, IMAGE_HEIGHT); gtk_container_add (GTK_CONTAINER (window), darea); gtk_signal_connect (GTK_OBJECT (darea), "expose-event", GTK_SIGNAL_FUNC (on_darea_expose), NULL); gtk_widget_show_all (window); /* Set up the RGB buffer. */ pos = rgbbuf; for (y = 0; y < IMAGE_HEIGHT; y++) { for (x = 0; x < IMAGE_WIDTH; x++) { *pos++ = x - x % 32; /* Red. */ *pos++ = (x / 32) * 4 + y - y % 32; /* Green. */ *pos++ = y - y % 32; /* Blue. */ } } gtk_main (); return 0; } gboolean on_darea_expose (GtkWidget *widget, GdkEventExpose *event, gpointer user_data) { gdk_draw_rgb_image (widget->window, widget->style->fg_gc[GTK_STATE_NORMAL], 0, 0, IMAGE_WIDTH, IMAGE_HEIGHT, GDK_RGB_DITHER_MAX, rgbbuf, IMAGE_WIDTH * 3); return TRUE; } 10.2 Usage ========== -- Function: gdk-rgb-init `gdk_rgb_init' is deprecated and should not be used in newly-written code. This function no longer does anything at all. It's completely useless (and harmless). -- Function: gdk-rgb-gc-set-foreground (gc `') (rgb `unsigned-int32') `gdk_rgb_gc_set_foreground' is deprecated and should not be used in newly-written code. Sets the foreground color in GC to the specified color (or the closest approximation, in the case of limited visuals). GC The `' to modify. RGB The color, represented as a 0xRRGGBB integer value. -- Function: gdk-rgb-gc-set-background (gc `') (rgb `unsigned-int32') `gdk_rgb_gc_set_background' is deprecated and should not be used in newly-written code. Sets the background color in GC to the specified color (or the closest approximation, in the case of limited visuals). GC The `' to modify. RGB The color, represented as a 0xRRGGBB integer value. -- Function: gdk-rgb-xpixel-from-rgb (rgb `unsigned-int32') => (ret `unsigned-long') `gdk_rgb_xpixel_from_rgb' is deprecated and should not be used in newly-written code. Finds the X pixel closest in color to the RGB color specified. This value may be used to set the struct. RGB The color, represented as a 0xRRGGBB integer value. RET The X pixel value. -- Function: gdk-rgb-set-install (install `bool') If INSTALL is ``#t'', directs GdkRGB to always install a new "private" colormap rather than trying to find a best fit with the colors already allocated. Ordinarily, GdkRGB will install a colormap only if a sufficient cube cannot be allocated. A private colormap has more colors, leading to better quality display, but also leads to the dreaded "colormap flashing" effect. INSTALL ``#t'' to set install mode. -- Function: gdk-rgb-set-min-colors (min_colors `int') Sets the minimum number of colors for the color cube. Generally, GdkRGB tries to allocate the largest color cube it can. If it can't allocate a color cube at least as large as MIN-COLORS, it installs a private colormap. MIN-COLORS The minimum number of colors accepted. -- Function: gdk-rgb-get-visual => (ret `') Gets a "preferred visual" chosen by GdkRGB for rendering image data on the default screen. In previous versions of GDK, this was the only visual GdkRGB could use for rendering. In current versions, it's simply the visual GdkRGB would have chosen as the optimal one in those previous versions. GdkRGB can now render to drawables with any visual. RET The `' chosen by GdkRGB. -- Function: gdk-rgb-get-colormap => (ret `') Get the preferred colormap for rendering image data. Not a very useful function; historically, GDK could only render RGB image data to one colormap and visual, but in the current version it can render to any colormap and visual. So there's no need to call this function. RET the preferred colormap -- Function: gdk-rgb-ditherable => (ret `bool') Determines whether the preferred visual is ditherable. This function may be useful for presenting a user interface choice to the user about which dither mode is desired; if the display is not ditherable, it may make sense to gray out or hide the corresponding UI widget. RET ``#t'' if the preferred visual is ditherable. -- Function: gdk-rgb-colormap-ditherable (cmap `') => (ret `bool') Determines whether the visual associated with CMAP is ditherable. This function may be useful for presenting a user interface choice to the user about which dither mode is desired; if the display is not ditherable, it may make sense to gray out or hide the corresponding UI widget. CMAP a `' RET ``#t'' if the visual associated with CMAP is ditherable. -- Function: gdk-rgb-set-verbose (verbose `bool') Sets the "verbose" flag. This is generally only useful for debugging. VERBOSE ``#t'' if verbose messages are desired.  File: guile-gnome-gdk.info, Node: Images, Next: Pixbufs, Prev: GdkRGB, Up: Top 11 Images ********* A client-side area for bit-mapped graphics 11.1 Overview ============= The `' type represents an area for drawing graphics. It has now been superceded to a large extent by the much more flexible GdkRGB functions. To create an empty `' use `gdk-image-new'. To create a `' from bitmap data use `gdk-image-new-bitmap'. To create an image from part of a `' use `gdk-drawable-get-image'. The image can be manipulated with `gdk-image-get-pixel' and `gdk-image-put-pixel', or alternatively by changing the actual pixel data. Though manipulating the pixel data requires complicated code to cope with the different formats that may be used. To draw a `' in a `' or `' use `gdk-draw-image'. To destroy a `' use `gdk-image-destroy'. 11.2 Usage ========== -- Class: Derives from `'. This class defines no direct slots. -- Function: gdk-image-new (type `') (visual `') (width `int') (height `int') => (ret `') Creates a new `'. TYPE the type of the `', one of `GDK_IMAGE_NORMAL', `GDK_IMAGE_SHARED' and `GDK_IMAGE_FASTEST'. `GDK_IMAGE_FASTEST' is probably the best choice, since it will try creating a `GDK_IMAGE_SHARED' image first and if that fails it will then use `GDK_IMAGE_NORMAL'. VISUAL the `' to use for the image. WIDTH the width of the image in pixels. HEIGHT the height of the image in pixels. RET a new `', or ``#f'' if the image could not be created. -- Function: gdk-image-get (drawable `') (x `int') (y `int') (width `int') (height `int') => (ret `') `gdk_image_get' is deprecated and should not be used in newly-written code. This is a deprecated wrapper for `gdk-drawable-get-image'; `gdk-drawable-get-image' should be used instead. Or even better: in most cases `gdk-pixbuf-get-from-drawable' is the most convenient choice. DRAWABLE a `' X x coordinate in WINDOW Y y coordinate in WINDOW WIDTH width of area in WINDOW HEIGHT height of area in WINDOW RET a new `' or ``#f'' -- Function: gdk-image-get-colormap (self `') => (ret `') -- Method: get-colormap Retrieves the colormap for a given image, if it exists. An image will have a colormap if the drawable from which it was created has a colormap, or if a colormap was set explicitely with `gdk-image-set-colormap'. IMAGE a `' RET colormap for the image -- Function: gdk-image-set-colormap (self `') (colormap `') -- Method: set-colormap Sets the colormap for the image to the given colormap. Normally there's no need to use this function, images are created with the correct colormap if you get the image from a drawable. If you create the image from scratch, use the colormap of the drawable you intend to render the image to. IMAGE a `' COLORMAP a `' -- Function: gdk-image-put-pixel (self `') (x `int') (y `int') (pixel `unsigned-int32') -- Method: put-pixel Sets a pixel in a `' to a given pixel value. IMAGE a `'. X the x coordinate of the pixel to set. Y the y coordinate of the pixel to set. PIXEL the pixel value to set. -- Function: gdk-image-get-pixel (self `') (x `int') (y `int') => (ret `unsigned-int32') -- Method: get-pixel Gets a pixel value at a specified position in a `'. IMAGE a `'. X the x coordinate of the pixel to get. Y the y coordinate of the pixel to get. RET the pixel value at the given position.  File: guile-gnome-gdk.info, Node: Pixbufs, Next: Colormaps and Colors, Prev: Images, Up: Top 12 Pixbufs ********** Functions for rendering pixbufs on drawables 12.1 Overview ============= These functions allow to render pixbufs on drawables. Pixbufs are client-side images. For details on how to create and manipulate pixbufs, see the `' API documentation. 12.2 Usage ========== -- Function: gdk-pixbuf-render-threshold-alpha (self `') (bitmap `') (src_x `int') (src_y `int') (dest_x `int') (dest_y `int') (width `int') (height `int') (alpha_threshold `int') -- Method: render-threshold-alpha Takes the opacity values in a rectangular portion of a pixbuf and thresholds them to produce a bi-level alpha mask that can be used as a clipping mask for a drawable. PIXBUF A pixbuf. BITMAP Bitmap where the bilevel mask will be painted to. SRC-X Source X coordinate. SRC-Y source Y coordinate. DEST-X Destination X coordinate. DEST-Y Destination Y coordinate. WIDTH Width of region to threshold, or -1 to use pixbuf width HEIGHT Height of region to threshold, or -1 to use pixbuf height ALPHA-THRESHOLD Opacity values below this will be painted as zero; all other values will be painted as one. -- Function: gdk-pixbuf-render-to-drawable (self `') (drawable `') (gc `') (src_x `int') (src_y `int') (dest_x `int') (dest_y `int') (width `int') (height `int') (dither `') (x_dither `int') (y_dither `int') -- Method: render-to-drawable `gdk_pixbuf_render_to_drawable' has been deprecated since version 2.4 and should not be used in newly-written code. This function is obsolete. Use `gdk-draw-pixbuf' instead. Renders a rectangular portion of a pixbuf to a drawable while using the specified GC. This is done using GdkRGB, so the specified drawable must have the GdkRGB visual and colormap. Note that this function will ignore the opacity information for images with an alpha channel; the GC must already have the clipping mask set if you want transparent regions to show through. For an explanation of dither offsets, see the GdkRGB documentation. In brief, the dither offset is important when re-rendering partial regions of an image to a rendered version of the full image, or for when the offsets to a base position change, as in scrolling. The dither matrix has to be shifted for consistent visual results. If you do not have any of these cases, the dither offsets can be both zero. PIXBUF A pixbuf. DRAWABLE Destination drawable. GC GC used for rendering. SRC-X Source X coordinate within pixbuf. SRC-Y Source Y coordinate within pixbuf. DEST-X Destination X coordinate within drawable. DEST-Y Destination Y coordinate within drawable. WIDTH Width of region to render, in pixels, or -1 to use pixbuf width HEIGHT Height of region to render, in pixels, or -1 to use pixbuf height DITHER Dithering mode for GdkRGB. X-DITHER X offset for dither. Y-DITHER Y offset for dither. -- Function: gdk-pixbuf-render-to-drawable-alpha (self `') (drawable `') (src_x `int') (src_y `int') (dest_x `int') (dest_y `int') (width `int') (height `int') (alpha_mode `') (alpha_threshold `int') (dither `') (x_dither `int') (y_dither `int') -- Method: render-to-drawable-alpha `gdk_pixbuf_render_to_drawable_alpha' has been deprecated since version 2.4 and should not be used in newly-written code. This function is obsolete. Use `gdk-draw-pixbuf' instead. Renders a rectangular portion of a pixbuf to a drawable. The destination drawable must have a colormap. All windows have a colormap, however, pixmaps only have colormap by default if they were created with a non-``#f'' window argument. Otherwise a colormap must be set on them with gdk_drawable_set_colormap. On older X servers, rendering pixbufs with an alpha channel involves round trips to the X server, and may be somewhat slow. PIXBUF A pixbuf. DRAWABLE Destination drawable. SRC-X Source X coordinate within pixbuf. SRC-Y Source Y coordinates within pixbuf. DEST-X Destination X coordinate within drawable. DEST-Y Destination Y coordinate within drawable. WIDTH Width of region to render, in pixels, or -1 to use pixbuf width. HEIGHT Height of region to render, in pixels, or -1 to use pixbuf height. ALPHA-MODE Ignored. Present for backwards compatibility. ALPHA-THRESHOLD Ignored. Present for backwards compatibility DITHER Dithering mode for GdkRGB. X-DITHER X offset for dither. Y-DITHER Y offset for dither. -- Function: gdk-pixbuf-get-from-drawable (self `') (src `') (cmap `') (src_x `int') (src_y `int') (dest_x `int') (dest_y `int') (width `int') (height `int') => (ret `') -- Method: get-from-drawable Transfers image data from a `' and converts it to an RGB(A) representation inside a `'. In other words, copies image data from a server-side drawable to a client-side RGB(A) buffer. This allows you to efficiently read individual pixels on the client side. If the drawable SRC has no colormap (`gdk-drawable-get-colormap' returns ``#f''), then a suitable colormap must be specified. Typically a `' or a pixmap created by passing a `' to `gdk-pixmap-new' will already have a colormap associated with it. If the drawable has a colormap, the CMAP argument will be ignored. If the drawable is a bitmap (1 bit per pixel pixmap), then a colormap is not required; pixels with a value of 1 are assumed to be white, and pixels with a value of 0 are assumed to be black. For taking screenshots, `gdk-colormap-get-system' returns the correct colormap to use. If the specified destination pixbuf DEST is ``#f'', then this function will create an RGB pixbuf with 8 bits per channel and no alpha, with the same size specified by the WIDTH and HEIGHT arguments. In this case, the DEST-X and DEST-Y arguments must be specified as 0. If the specified destination pixbuf is not ``#f'' and it contains alpha information, then the filled pixels will be set to full opacity (alpha = 255). If the specified drawable is a pixmap, then the requested source rectangle must be completely contained within the pixmap, otherwise the function will return ``#f''. For pixmaps only (not for windows) passing -1 for width or height is allowed to mean the full width or height of the pixmap. If the specified drawable is a window, and the window is off the screen, then there is no image data in the obscured/offscreen regions to be placed in the pixbuf. The contents of portions of the pixbuf corresponding to the offscreen region are undefined. If the window you're obtaining data from is partially obscured by other windows, then the contents of the pixbuf areas corresponding to the obscured regions are undefined. If the target drawable is not mapped (typically because it's iconified/minimized or not on the current workspace), then ``#f'' will be returned. If memory can't be allocated for the return value, ``#f'' will be returned instead. (In short, there are several ways this function can fail, and if it fails it returns ``#f''; so check the return value.) This function calls `gdk-drawable-get-image' internally and converts the resulting image to a `', so the documentation for `gdk-drawable-get-image' may also be relevant. DEST Destination pixbuf, or ``#f'' if a new pixbuf should be created. SRC Source drawable. CMAP A colormap if SRC doesn't have one set. SRC-X Source X coordinate within drawable. SRC-Y Source Y coordinate within drawable. DEST-X Destination X coordinate in pixbuf, or 0 if DEST is NULL. DEST-Y Destination Y coordinate in pixbuf, or 0 if DEST is NULL. WIDTH Width in pixels of region to get. HEIGHT Height in pixels of region to get. RET The same pixbuf as DEST if it was non-``#f'', or a newly-created pixbuf with a reference count of 1 if no destination pixbuf was specified, or ``#f'' on error -- Function: gdk-pixbuf-get-from-image (self `') (src `') (cmap `') (src_x `int') (src_y `int') (dest_x `int') (dest_y `int') (width `int') (height `int') => (ret `') -- Method: get-from-image Same as `gdk-pixbuf-get-from-drawable' but gets the pixbuf from an image. DEST Destination pixbuf, or ``#f'' if a new pixbuf should be created. SRC Source `'. CMAP A colormap, or ``#f'' to use the one for SRC SRC-X Source X coordinate within drawable. SRC-Y Source Y coordinate within drawable. DEST-X Destination X coordinate in pixbuf, or 0 if DEST is NULL. DEST-Y Destination Y coordinate in pixbuf, or 0 if DEST is NULL. WIDTH Width in pixels of region to get. HEIGHT Height in pixels of region to get. RET DEST, newly-created pixbuf if DEST was ``#f'', ``#f'' on error  File: guile-gnome-gdk.info, Node: Colormaps and Colors, Next: Visuals, Prev: Pixbufs, Up: Top 13 Colormaps and Colors *********************** Manipulation of colors and colormaps 13.1 Overview ============= These functions are used to modify colormaps. A colormap is an object that contains the mapping between the color values stored in memory and the RGB values that are used to display color values. In general, colormaps only contain significant information for pseudo-color visuals, but even for other visual types, a colormap object is required in some circumstances. There are a couple of special colormaps that can be retrieved. The system colormap (retrieved with `gdk-colormap-get-system') is the default colormap of the system. If you are using GdkRGB, there is another colormap that is important - the colormap in which GdkRGB works, retrieved with `gdk-rgb-get-cmap'. However, when using GdkRGB, it is not generally necessary to allocate colors directly. In previous revisions of this interface, a number of functions that take a `' parameter were replaced with functions whose names began with "gdk_colormap_". This process will probably be extended somewhat in the future - `gdk-color-white', `gdk-color-black', and `gdk-color-change' will probably become aliases. 13.2 Usage ========== -- Class: Derives from `'. This class defines no direct slots. -- Class: Derives from `'. This class defines no direct slots. -- Function: gdk-color-copy (self `') => (ret `') Makes a copy of a color structure. The result must be freed using `gdk-color-free'. COLOR a `'. RET a copy of COLOR. -- Function: gdk-color-white (colormap `') (color `') => (ret `int') `gdk_color_white' is deprecated and should not be used in newly-written code. Returns the white color for a given colormap. The resulting value has already allocated been allocated. COLORMAP a `'. COLOR the location to store the color. RET ``#t'' if the allocation succeeded. -- Function: gdk-color-black (colormap `') (color `') => (ret `int') `gdk_color_black' is deprecated and should not be used in newly-written code. Returns the black color for a given colormap. The resulting value has already benn allocated. COLORMAP a `'. COLOR the location to store the color. RET ``#t'' if the allocation succeeded. -- Function: gdk-color-parse (spec `mchars') (color `') => (ret `bool') Parses a textual specification of a color and fill in the , `' structure. The color is _not_ allocated, you must call `gdk-colormap-alloc-color' yourself. The text string can be in any of the forms accepted by `x-parse-color'; these include name for a color from `rgb.txt', such as `DarkSlateGray', or a hex specification such as `#3050b2' or `#35b'. SPEC the string specifying the color. COLOR the `' to fill in RET ``#t'' if the parsing succeeded. -- Function: gdk-color-alloc (colormap `') (color `') => (ret `int') `gdk_color_alloc' is deprecated and should not be used in newly-written code. Use `gdk-colormap-alloc-color' instead. Allocates a single color from a colormap. COLORMAP a `'. COLOR The color to allocate. On return, the filled in. RET ``#t'' if the allocation succeeded. -- Function: gdk-color-change (colormap `') (color `') => (ret `int') `gdk_color_change' is deprecated and should not be used in newly-written code. Changes the value of a color that has already been allocated. If COLORMAP is not a private colormap, then the color must have been allocated using `gdk-colormap-alloc-colors' with the WRITEABLE set to ``#t''. COLORMAP a `'. COLOR a `', with the color to change in the field, and the new value in the remaining fields. RET ``#t'' if the color was successfully changed.  File: guile-gnome-gdk.info, Node: Visuals, Next: Fonts, Prev: Colormaps and Colors, Up: Top 14 Visuals ********** Low-level display hardware information 14.1 Overview ============= A `' describes a particular video hardware display format. It includes information about the number of bits used for each color, the way the bits are translated into an RGB value for display, and the way the bits are stored in memory. For example, a piece of display hardware might support 24-bit color, 16-bit color, or 8-bit color; meaning 24/16/8-bit pixel sizes. For a given pixel size, pixels can be in different formats; for example the "red" element of an RGB pixel may be in the top 8 bits of the pixel, or may be in the lower 4 bits. Usually you can avoid thinking about visuals in GTK+. Visuals are useful to interpret the contents of a `', but you should avoid `' precisely because its contents depend on the display hardware; use `' instead, for all but the most low-level purposes. Also, anytime you provide a `', the visual is implied as part of the colormap (`gdk-colormap-get-visual'), so you won't have to provide a visual in addition. There are several standard visuals. The visual returned by `gdk-visual-get-system' is the system's default visual. `gdk-rgb-get-visual' return the visual most suited to displaying full-color image data. If you use the calls in `', you should create your windows using this visual (and the colormap returned by `gdk-rgb-get-colormap'). A number of functions are provided for determining the "best" available visual. For the purposes of making this determination, higher bit depths are considered better, and for visuals of the same bit depth, `GDK_VISUAL_PSEUDO_COLOR' is preferred at 8bpp, otherwise, the visual types are ranked in the order of (highest to lowest) `GDK_VISUAL_DIRECT_COLOR', `GDK_VISUAL_TRUE_COLOR', `GDK_VISUAL_PSEUDO_COLOR', `GDK_VISUAL_STATIC_COLOR', `GDK_VISUAL_GRAYSCALE', then `GDK_VISUAL_STATIC_GRAY'. 14.2 Usage ========== -- Class: Derives from `'. This class defines no direct slots. -- Function: gdk-list-visuals => (ret `glist-of') Lists the available visuals for the default screen. (See `gdk-screen-list-visuals') A visual describes a hardware image data format. For example, a visual might support 24-bit color, or 8-bit color, and might expect pixels to be in a certain format. Call `g-list-free' on the return value when you're finished with it. RET a list of visuals; the list must be freed, but not its contents -- Function: gdk-visual-get-best-depth => (ret `int') Get the best available depth for the default GDK screen. "Best" means "largest," i.e. 32 preferred over 24 preferred over 8 bits per pixel. RET best available depth -- Function: gdk-visual-get-best-type => (ret `') Return the best available visual type for the default GDK screen. RET best visual type -- Function: gdk-visual-get-system => (ret `') Get the system'sdefault visual for the default GDK screen. This is the visual for the root window of the display. The return value should not be freed. RET system visual -- Function: gdk-visual-get-best => (ret `') Get the visual with the most available colors for the default GDK screen. The return value should not be freed. RET best visual -- Function: gdk-visual-get-best-with-depth (depth `int') => (ret `') Get the best visual with depth DEPTH for the default GDK screen. Color visuals and visuals with mutable colormaps are preferred over grayscale or fixed-colormap visuals. The return value should not be freed. ``#f'' may be returned if no visual supports DEPTH. DEPTH a bit depth RET best visual for the given depth -- Function: gdk-visual-get-best-with-type (visual_type `') => (ret `') Get the best visual of the given VISUAL-TYPE for the default GDK screen. Visuals with higher color depths are considered better. The return value should not be freed. ``#f'' may be returned if no visual has type VISUAL-TYPE. VISUAL-TYPE a visual type RET best visual of the given type -- Function: gdk-visual-get-best-with-both (depth `int') (visual_type `') => (ret `') Combines `gdk-visual-get-best-with-depth' and `gdk-visual-get-best-with-type'. DEPTH a bit depth VISUAL-TYPE a visual type RET best visual with both DEPTH and VISUAL-TYPE, or ``#f'' if none -- Function: gdk-visual-get-screen (self `') => (ret `') -- Method: get-screen Gets the screen to which this visual belongs VISUAL a `' RET the screen to which this visual belongs. Since 2.2  File: guile-gnome-gdk.info, Node: Fonts, Next: Cursors, Prev: Visuals, Up: Top 15 Fonts ******** Loading and manipulating fonts 15.1 Overview ============= The `' data type represents a font for drawing on the screen. These functions provide support for loading fonts, and also for determining the dimensions of characters and strings when drawn with a particular font. Fonts in X are specified by a "X Logical Font Description". The following description is considerably simplified. For definitive information about XLFD's see the X reference documentation. A X Logical Font Description (XLFD) consists of a sequence of fields separated (and surrounded by) '-' characters. For example, Adobe Helvetica Bold 12 pt, has the full description: "-adobe-helvetica-bold-r-normal--12-120-75-75-p-70-iso8859-1" The fields in the XLFD are: When specifying a font via a X logical Font Description, '*' can be used as a wildcard to match any portion of the XLFD. For instance, the above example could also be specified as It is generally a good idea to use wildcards for any portion of the XLFD that your program does not care about specifically, since that will improve the chances of finding a matching font. "-*-helvetica-bold-r-normal--*-120-*-*-*-*-iso8859-1" A "fontset" is a list of fonts that is used for drawing international text that may contain characters from a number of different character sets. It is represented by a list of XLFD's. The font for a given character set is determined by going through the list of XLFD's in order. For each one, if the registry and and encoding fields match the desired character set, then that font is used, otherwise if the XLFD contains wild-cards for the registry and encoding fields, the registry and encoding for the desired character set are substituted in and a lookup is done. If a match is found that font is used. Otherwise, processing continues on to the next font in the list. The functions for determining the metrics of a string come in several varieties that can take a number of forms of string input: 16-BIT STRING MULTIBYTE STRING WIDE CHARACTER STRING When using functions like `gdk-string-width' that take a `', if the font is of type `GDK_FONT_FONT' and is an 8-bit font, then each `' indexes the glyphs in the font directly. For functions taking a `', if the font is of type `GDK_FONT_FONT', and is a 16-bit font, then the `' argument is interpreted as a `' cast to a `' and each `' indexes the glyphs in the font directly. For functions taking a `', if the font is of type `GDK_FONT_FONTSET', then the input string is interpreted as a "multibyte" encoded according to the current locale. (A multibyte string is one in which each character may consist of one or more bytes, with different lengths for different characters in the string). They can be converted to and from wide character strings (see below) using `gdk-wcstombs' and `gdk-mbstowcs'.) The string will be rendered using one or more different fonts from the fontset. For a number of the text-measuring functions, GDK provides a variant (such as `gdk-text-width-wc') which takes a `' instead of a `'. The input is then taken to be a wide character string in the encoding of the current locale. (A wide character string is a string in which each character consists of several bytes, and the width of each character in the string is constant.) GDK provides functions to determine a number of different measurements (metrics) for a given string. (Need diagram here). DESCENT LEFT BEARING RIGHT BEARING WIDTH BEARING The vertical distance from the origin of the drawing opereration to the top of the drawn character. The vertical distance from the origin of the drawing opereration to the bottom of the drawn character. The horizontal distance from the origin of the drawing operation to the left-most part of the drawn character. The horizontal distance from the origin of the drawing operation to the right-most part of the drawn character. The horizontal distance from the origin of the drawing operation to the correct origin for drawing another string to follow the current one. Depending on the font, this could be greater than or less than the right bearing. 15.2 Usage ========== -- Class: Derives from `'. This class defines no direct slots. -- Function: gdk-font-load (font_name `mchars') => (ret `') `gdk_font_load' is deprecated and should not be used in newly-written code. Loads a font. The font may be newly loaded or looked up the font in a cache. You should make no assumptions about the initial reference count. FONT-NAME a XLFD describing the font to load. RET a `', or ``#f'' if the font could not be loaded. -- Function: gdk-fontset-load (fontset_name `mchars') => (ret `') `gdk_fontset_load' is deprecated and should not be used in newly-written code. Loads a fontset. The fontset may be newly loaded or looked up in a cache. You should make no assumptions about the initial reference count. FONTSET-NAME a comma-separated list of XLFDs describing the component fonts of the fontset to load. RET a `', or ``#f'' if the fontset could not be loaded. -- Function: gdk-font-from-description (font_desc `') => (ret `') `gdk_font_from_description' is deprecated and should not be used in newly-written code. Load a `' based on a Pango font description. This font will only be an approximation of the Pango font, and internationalization will not be handled correctly. This function should only be used for legacy code that cannot be easily converted to use Pango. Using Pango directly will produce better results. FONT-DESC a `'. RET the newly loaded font, or ``#f'' if the font cannot be loaded. -- Function: gdk-font-id (self `') => (ret `int') `gdk_font_id' is deprecated and should not be used in newly-written code. Returns the X Font ID for the given font. FONT a `'. RET the numeric X Font ID -- Function: gdk-string-extents (font `') (string `mchars') => (lbearing `int') (rbearing `int') (width `int') (ascent `int') (descent `int') `gdk_string_extents' is deprecated and should not be used in newly-written code. Gets the metrics of a nul-terminated string. FONT a `'. STRING the nul-terminated string to measure. LBEARING the left bearing of the string. RBEARING the right bearing of the string. WIDTH the width of the string. ASCENT the ascent of the string. DESCENT the descent of the string. -- Function: gdk-string-width (font `') (string `mchars') => (ret `int') `gdk_string_width' is deprecated and should not be used in newly-written code. Determines the width of a nul-terminated string. (The distance from the origin of the string to the point where the next string in a sequence of strings should be drawn) FONT a `' STRING the nul-terminated string to measure RET the width of the string in pixels. -- Function: gdk-text-width (font `') (text `mchars') (text_length `int') => (ret `int') `gdk_text_width' is deprecated and should not be used in newly-written code. Determines the width of a given string. FONT a `' TEXT the text to measure. TEXT-LENGTH the length of the text in bytes. RET the width of the string in pixels. -- Function: gdk-char-width (font `') (character `char') => (ret `int') `gdk_char_width' is deprecated and should not be used in newly-written code. Use `gdk-text-extents' instead. Determines the width of a given character. FONT a `' CHARACTER the character to measure. RET the width of the character in pixels. -- Function: gdk-char-width-wc (font `') (character `unsigned-int32') => (ret `int') `gdk_char_width_wc' is deprecated and should not be used in newly-written code. Determines the width of a given wide character. (Encoded in the wide-character encoding of the current locale). FONT a `' CHARACTER the character to measure. RET the width of the character in pixels. -- Function: gdk-string-measure (font `') (string `mchars') => (ret `int') `gdk_string_measure' is deprecated and should not be used in newly-written code. Determines the distance from the origin to the rightmost portion of a nul-terminated string when drawn. This is not the correct value for determining the origin of the next portion when drawing text in multiple pieces. See `gdk-string-width'. FONT a `' STRING the nul-terminated string to measure. RET the right bearing of the string in pixels. -- Function: gdk-text-measure (font `') (text `mchars') (text_length `int') => (ret `int') `gdk_text_measure' is deprecated and should not be used in newly-written code. Determines the distance from the origin to the rightmost portion of a string when drawn. This is not the correct value for determining the origin of the next portion when drawing text in multiple pieces. See `gdk-text-width'. FONT a `' TEXT the text to measure. TEXT-LENGTH the length of the text in bytes. RET the right bearing of the string in pixels. -- Function: gdk-char-measure (font `') (character `char') => (ret `int') `gdk_char_measure' is deprecated and should not be used in newly-written code. Determines the distance from the origin to the rightmost portion of a character when drawn. This is not the correct value for determining the origin of the next portion when drawing text in multiple pieces. FONT a `' CHARACTER the character to measure. RET the right bearing of the character in pixels. -- Function: gdk-string-height (font `') (string `mchars') => (ret `int') `gdk_string_height' is deprecated and should not be used in newly-written code. Determines the total height of a given nul-terminated string. This value is not generally useful, because you cannot determine how this total height will be drawn in relation to the baseline. See `gdk-string-extents'. FONT a `' STRING the nul-terminated string to measure. RET the height of the string in pixels. -- Function: gdk-text-height (font `') (text `mchars') (text_length `int') => (ret `int') `gdk_text_height' is deprecated and should not be used in newly-written code. Determines the total height of a given string. This value is not generally useful, because you cannot determine how this total height will be drawn in relation to the baseline. See `gdk-text-extents'. FONT a `' TEXT the text to measure. TEXT-LENGTH the length of the text in bytes. RET the height of the string in pixels. -- Function: gdk-char-height (font `') (character `char') => (ret `int') `gdk_char_height' is deprecated and should not be used in newly-written code. Use `gdk-text-extents' instead. Determines the total height of a given character. This value is not generally useful, because you cannot determine how this total height will be drawn in relation to the baseline. See `gdk-text-extents'. FONT a `' CHARACTER the character to measure. RET the height of the character in pixels.  File: guile-gnome-gdk.info, Node: Cursors, Next: Windows, Prev: Fonts, Up: Top 16 Cursors ********** Standard and pixmap cursors 16.1 Overview ============= These functions are used to create and destroy cursors. There is a number of standard cursors, but it is also possible to construct new cursors from pixmaps and pixbufs. There may be limitations as to what kinds of cursors can be constructed on a given display, see `gdk-display-supports-cursor-alpha', `gdk-display-supports-cursor-color', `gdk-display-get-default-cursor-size' and `gdk-display-get-maximal-cursor-size'. Cursors by themselves are not very interesting, they must be be bound to a window for users to see them. This is done with `gdk-window-set-cursor' or by setting the cursor member of the `' struct passed to `gdk-window-new'. 16.2 Usage ========== -- Class: Derives from `'. This class defines no direct slots. -- Function: gdk-cursor-new (cursor_type `') => (ret `') Creates a new cursor from the set of builtin cursors for the default display. See `gdk-cursor-new-for-display'. To make the cursor invisible, use `gdk-cursor-new-from-pixmap' to create a cursor with no pixels in it. CURSOR-TYPE cursor to create RET a new `' -- Function: gdk-cursor-new-from-pixmap (source `') (mask `') (fg `') (bg `') (x `int') (y `int') => (ret `') Creates a new cursor from a given pixmap and mask. Both the pixmap and mask must have a depth of 1 (i.e. each pixel has only 2 values - on or off). The standard cursor size is 16 by 16 pixels. You can create a bitmap from inline data as in the below example. /* This data is in X bitmap format, and can be created with the 'bitmap' utility. */ #define cursor1_width 16 #define cursor1_height 16 static unsigned char cursor1_bits[] = { 0x80, 0x01, 0x40, 0x02, 0x20, 0x04, 0x10, 0x08, 0x08, 0x10, 0x04, 0x20, 0x82, 0x41, 0x41, 0x82, 0x41, 0x82, 0x82, 0x41, 0x04, 0x20, 0x08, 0x10, 0x10, 0x08, 0x20, 0x04, 0x40, 0x02, 0x80, 0x01}; static unsigned char cursor1mask_bits[] = { 0x80, 0x01, 0xc0, 0x03, 0x60, 0x06, 0x30, 0x0c, 0x18, 0x18, 0x8c, 0x31, 0xc6, 0x63, 0x63, 0xc6, 0x63, 0xc6, 0xc6, 0x63, 0x8c, 0x31, 0x18, 0x18, 0x30, 0x0c, 0x60, 0x06, 0xc0, 0x03, 0x80, 0x01}; GdkCursor *cursor; GdkPixmap *source, *mask; GdkColor fg = { 0, 65535, 0, 0 }; /* Red. */ GdkColor bg = { 0, 0, 0, 65535 }; /* Blue. */ source = gdk_bitmap_create_from_data (NULL, cursor1_bits, cursor1_width, cursor1_height); mask = gdk_bitmap_create_from_data (NULL, cursor1mask_bits, cursor1_width, cursor1_height); cursor = gdk_cursor_new_from_pixmap (source, mask, &fg, &bg, 8, 8); gdk_pixmap_unref (source); gdk_pixmap_unref (mask); gdk_window_set_cursor (widget->window, cursor); SOURCE the pixmap specifying the cursor. MASK the pixmap specifying the mask, which must be the same size as SOURCE. FG the foreground color, used for the bits in the source which are 1. The color does not have to be allocated first. BG the background color, used for the bits in the source which are 0. The color does not have to be allocated first. X the horizontal offset of the 'hotspot' of the cursor. Y the vertical offset of the 'hotspot' of the cursor. RET a new `'. -- Function: gdk-cursor-new-from-pixbuf (display `') (pixbuf `') (x `int') (y `int') => (ret `') Creates a new cursor from a pixbuf. Not all GDK backends support RGBA cursors. If they are not supported, a monochrome approximation will be displayed. The functions `gdk-display-supports-cursor-alpha' and `gdk-display-supports-cursor-color' can be used to determine whether RGBA cursors are supported; `gdk-display-get-default-cursor-size' and `gdk-display-get-maximal-cursor-size' give information about cursor sizes. On the X backend, support for RGBA cursors requires a sufficently new version of the X Render extension. DISPLAY the `' for which the cursor will be created PIXBUF the `' containing the cursor image X the horizontal offset of the 'hotspot' of the cursor. Y the vertical offset of the 'hotspot' of the cursor. RET a new `'. Since 2.4 -- Function: gdk-cursor-new-from-name (display `') (name `mchars') => (ret `') Creates a new cursor by looking up NAME in the current cursor theme. DISPLAY the `' for which the cursor will be created NAME the name of the cursor RET a new `', or ``#f'' if there is no cursor with the given name Since 2.8 -- Function: gdk-cursor-new-for-display (display `') (cursor_type `') => (ret `') Creates a new cursor from the set of builtin cursors. Some useful ones are: * * * * * * * * * * * * * * * * * `' (right-facing arrow) `' (crosshair) (I-beam) (busy) (for moving objects) (a right-pointing hand) (a left-pointing hand) `' (resize left side) `' (resize right side) `' (resize northwest corner) `' (resize northeast corner) `' (resize southwest corner) `' (resize southeast corner) `' (resize top side) `' (resize bottom side) `' (move vertical splitter) `' (move horizontal splitter) To make the cursor invisible, use `gdk-cursor-new-from-pixmap' to create a cursor with no pixels in it. DISPLAY the `' for which the cursor will be created CURSOR-TYPE cursor to create RET a new `' Since 2.2 -- Function: gdk-cursor-get-display (self `') => (ret `') Returns the display on which the `' is defined. CURSOR a `'. RET the `' associated to CURSOR Since 2.2 -- Function: gdk-cursor-get-image (self `') => (ret `') Returns a `' with the image used to display the cursor. Note that depending on the capabilities of the windowing system and on the cursor, GDK may not be able to obtain the image data. In this case, ``#f'' is returned. CURSOR a `' RET a `' representing CURSOR, or ``#f'' Since 2.8  File: guile-gnome-gdk.info, Node: Windows, Next: Events, Prev: Cursors, Up: Top 17 Windows ********** Onscreen display areas in the target window system 17.1 Overview ============= A `' is a rectangular region on the screen. It's a low-level object, used to implement high-level objects such as `' and `' on the GTK+ level. A `' is a toplevel window, the thing a user might think of as a "window" with a titlebar and so on; a `' may contain many `'. For example, each `' has a `' associated with it. 17.2 Usage ========== -- Function: gdk-window-destroy (self `') -- Method: destroy Destroys the window system resources associated with WINDOW and decrements WINDOW's reference count. The window system resources for all children of WINDOW are also destroyed, but the children's reference counts are not decremented. Note that a window will not be destroyed automatically when its reference count reaches zero. You must call this function yourself before that happens. WINDOW a `' -- Function: gdk-window-get-window-type (self `') => (ret `') -- Method: get-window-type Gets the type of the window. See `'. WINDOW a `' RET type of window -- Function: gdk-window-at-pointer => (ret `') (win_x `int') (win_y `int') Obtains the window underneath the mouse pointer, returning the location of that window in WIN-X, WIN-Y. Returns ``#f'' if the window under the mouse pointer is not known to GDK (if the window belongs to another application and a `' hasn't been created for it with `gdk-window-foreign-new') NOTE: For multihead-aware widgets or applications use `gdk-display-get-window-at-pointer' instead. WIN-X return location for origin of the window under the pointer WIN-Y return location for origin of the window under the pointer RET window under the mouse pointer -- Function: gdk-window-show (self `') -- Method: show Like `gdk-window-show-unraised', but also raises the window to the top of the window stack (moves the window to the front of the Z-order). This function maps a window so it's visible onscreen. Its opposite is `gdk-window-hide'. When implementing a `', you should call this function on the widget's `' as part of the "map" method. WINDOW a `' -- Function: gdk-window-show-unraised (self `') -- Method: show-unraised Shows a `' onscreen, but does not modify its stacking order. In contrast, `gdk-window-show' will raise the window to the top of the window stack. On the X11 platform, in Xlib terms, this function calls `x-map-window' (it also updates some internal GDK state, which means that you can't really use `x-map-window' directly on a GDK window). WINDOW a `' -- Function: gdk-window-hide (self `') -- Method: hide For toplevel windows, withdraws them, so they will no longer be known to the window manager; for all windows, unmaps them, so they won't be displayed. Normally done automatically as part of `gtk-widget-hide'. WINDOW a `' -- Function: gdk-window-is-visible (self `') => (ret `bool') -- Method: is-visible Checks whether the window has been mapped (with `gdk-window-show' or `gdk-window-show-unraised'). WINDOW a `' RET ``#t'' if the window is mapped -- Function: gdk-window-is-viewable (self `') => (ret `bool') -- Method: is-viewable Check if the window and all ancestors of the window are mapped. (This is not necessarily "viewable" in the X sense, since we only check as far as we have GDK window parents, not to the root window.) WINDOW a `' RET ``#t'' if the window is viewable -- Function: gdk-window-get-state (self `') => (ret `') -- Method: get-state Gets the bitwise OR of the currently active window state flags, from the `' enumeration. WINDOW a `' RET window state bitfield -- Function: gdk-window-withdraw (self `') -- Method: withdraw Withdraws a window (unmaps it and asks the window manager to forget about it). This function is not really useful as `gdk-window-hide' automatically withdraws toplevel windows before hiding them. WINDOW a toplevel `' -- Function: gdk-window-iconify (self `') -- Method: iconify Asks to iconify (minimize) WINDOW. The window manager may choose to ignore the request, but normally will honor it. Using `gtk-window-iconify' is preferred, if you have a `' widget. This function only makes sense when WINDOW is a toplevel window. WINDOW a toplevel `' -- Function: gdk-window-deiconify (self `') -- Method: deiconify Attempt to deiconify (unminimize) WINDOW. On X11 the window manager may choose to ignore the request to deiconify. When using GTK+, use `gtk-window-deiconify' instead of the `' variant. Or better yet, you probably want to use `gtk-window-present', which raises the window, focuses it, unminimizes it, and puts it on the current desktop. WINDOW a toplevel `' -- Function: gdk-window-stick (self `') -- Method: stick "Pins" a window such that it's on all workspaces and does not scroll with viewports, for window managers that have scrollable viewports. (When using `', `gtk-window-stick' may be more useful.) On the X11 platform, this function depends on window manager support, so may have no effect with many window managers. However, GDK will do the best it can to convince the window manager to stick the window. For window managers that don't support this operation, there's nothing you can do to force it to happen. WINDOW a toplevel `' -- Function: gdk-window-unstick (self `') -- Method: unstick Reverse operation for `gdk-window-stick'; see `gdk-window-stick', and `gtk-window-unstick'. WINDOW a toplevel `' -- Function: gdk-window-maximize (self `') -- Method: maximize Maximizes the window. If the window was already maximized, then this function does nothing. On X11, asks the window manager to maximize WINDOW, if the window manager supports this operation. Not all window managers support this, and some deliberately ignore it or don't have a concept of "maximized"; so you can't rely on the maximization actually happening. But it will happen with most standard window managers, and GDK makes a best effort to get it to happen. On Windows, reliably maximizes the window. WINDOW a toplevel `' -- Function: gdk-window-unmaximize (self `') -- Method: unmaximize Unmaximizes the window. If the window wasn't maximized, then this function does nothing. On X11, asks the window manager to unmaximize WINDOW, if the window manager supports this operation. Not all window managers support this, and some deliberately ignore it or don't have a concept of "maximized"; so you can't rely on the unmaximization actually happening. But it will happen with most standard window managers, and GDK makes a best effort to get it to happen. On Windows, reliably unmaximizes the window. WINDOW a toplevel `' -- Function: gdk-window-fullscreen (self `') -- Method: fullscreen Moves the window into fullscreen mode. This means the window covers the entire screen and is above any panels or task bars. If the window was already fullscreen, then this function does nothing. On X11, asks the window manager to put WINDOW in a fullscreen state, if the window manager supports this operation. Not all window managers support this, and some deliberately ignore it or don't have a concept of "fullscreen"; so you can't rely on the fullscreenification actually happening. But it will happen with most standard window managers, and GDK makes a best effort to get it to happen. WINDOW a toplevel `' Since 2.2 -- Function: gdk-window-unfullscreen (self `') -- Method: unfullscreen Moves the window out of fullscreen mode. If the window was not fullscreen, does nothing. On X11, asks the window manager to move WINDOW out of the fullscreen state, if the window manager supports this operation. Not all window managers support this, and some deliberately ignore it or don't have a concept of "fullscreen"; so you can't rely on the unfullscreenification actually happening. But it will happen with most standard window managers, and GDK makes a best effort to get it to happen. WINDOW a toplevel `' Since 2.2 -- Function: gdk-window-set-keep-above (self `') (setting `bool') -- Method: set-keep-above Set if WINDOW must be kept above other windows. If the window was already above, then this function does nothing. On X11, asks the window manager to keep WINDOW above, if the window manager supports this operation. Not all window managers support this, and some deliberately ignore it or don't have a concept of "keep above"; so you can't rely on the window being kept above. But it will happen with most standard window managers, and GDK makes a best effort to get it to happen. WINDOW a toplevel `' SETTING whether to keep WINDOW above other windows Since 2.4 -- Function: gdk-window-set-keep-below (self `') (setting `bool') -- Method: set-keep-below Set if WINDOW must be kept below other windows. If the window was already below, then this function does nothing. On X11, asks the window manager to keep WINDOW below, if the window manager supports this operation. Not all window managers support this, and some deliberately ignore it or don't have a concept of "keep below"; so you can't rely on the window being kept below. But it will happen with most standard window managers, and GDK makes a best effort to get it to happen. WINDOW a toplevel `' SETTING whether to keep WINDOW below other windows Since 2.4 -- Function: gdk-window-move (self `') (x `int') (y `int') -- Method: move Repositions a window relative to its parent window. For toplevel windows, window managers may ignore or modify the move; you should probably use `gtk-window-move' on a `' widget anyway, instead of using GDK functions. For child windows, the move will reliably succeed. If you're also planning to resize the window, use `gdk-window-move-resize' to both move and resize simultaneously, for a nicer visual effect. WINDOW a `' X X coordinate relative to window's parent Y Y coordinate relative to window's parent -- Function: gdk-window-resize (self `') (width `int') (height `int') -- Method: resize Resizes WINDOW; for toplevel windows, asks the window manager to resize the window. The window manager may not allow the resize. When using GTK+, use `gtk-window-resize' instead of this low-level GDK function. Windows may not be resized below 1x1. If you're also planning to move the window, use `gdk-window-move-resize' to both move and resize simultaneously, for a nicer visual effect. WINDOW a `' WIDTH new width of the window HEIGHT new height of the window -- Function: gdk-window-move-resize (self `') (x `int') (y `int') (width `int') (height `int') -- Method: move-resize Equivalent to calling `gdk-window-move' and `gdk-window-resize', except that both operations are performed at once, avoiding strange visual effects. (i.e. the user may be able to see the window first move, then resize, if you don't use `gdk-window-move-resize'.) WINDOW a `' X new X position relative to window's parent Y new Y position relative to window's parent WIDTH new width HEIGHT new height -- Function: gdk-window-scroll (self `') (dx `int') (dy `int') -- Method: scroll Scroll the contents of WINDOW, both pixels and children, by the given amount. WINDOW itself does not move. Portions of the window that the scroll operation brings in from offscreen areas are invalidated. The invalidated region may be bigger than what would strictly be necessary. (For X11, a minimum area will be invalidated if the window has no subwindows, or if the edges of the window's parent do not extend beyond the edges of the window. In other cases, a multi-step process is used to scroll the window which may produce temporary visual artifacts and unnecessary invalidations.) WINDOW a `' DX Amount to scroll in the X direction DY Amount to scroll in the Y direction -- Function: gdk-window-move-region (self `') (region `') (dx `int') (dy `int') -- Method: move-region Move the part of WINDOW indicated by REGION by DY pixels in the Y direction and DX pixels in the X direction. The portions of REGION that not covered by the new position of REGION are invalidated. Child windows are not moved. WINDOW a `' REGION The `' to move DX Amount to move in the X direction DY Amount to move in the Y direction Since 2.8 -- Function: gdk-window-reparent (self `') (new_parent `') (x `int') (y `int') -- Method: reparent Reparents WINDOW into the given NEW-PARENT. The window being reparented will be unmapped as a side effect. WINDOW a `' NEW-PARENT new parent to move WINDOW into X X location inside the new parent Y Y location inside the new parent -- Function: gdk-window-clear (self `') -- Method: clear Clears an entire WINDOW to the background color or background pixmap. WINDOW a `' -- Function: gdk-window-clear-area (self `') (x `int') (y `int') (width `int') (height `int') -- Method: clear-area Clears an area of WINDOW to the background color or background pixmap. WINDOW a `' X x coordinate of rectangle to clear Y y coordinate of rectangle to clear WIDTH width of rectangle to clear HEIGHT height of rectangle to clear -- Function: gdk-window-clear-area-e (self `') (x `int') (y `int') (width `int') (height `int') -- Method: clear-area-e Like `gdk-window-clear-area', but also generates an expose event for the cleared area. This function has a stupid name because it dates back to the mists time, pre-GDK-1.0. WINDOW a `' X x coordinate of rectangle to clear Y y coordinate of rectangle to clear WIDTH width of rectangle to clear HEIGHT height of rectangle to clear -- Function: gdk-window-raise (self `') -- Method: raise Raises WINDOW to the top of the Z-order (stacking order), so that other windows with the same parent window appear below WINDOW. This is true whether or not the windows are visible. If WINDOW is a toplevel, the window manager may choose to deny the request to move the window in the Z-order, `gdk-window-raise' only requests the restack, does not guarantee it. WINDOW a `' -- Function: gdk-window-lower (self `') -- Method: lower Lowers WINDOW to the bottom of the Z-order (stacking order), so that other windows with the same parent window appear above WINDOW. This is true whether or not the other windows are visible. If WINDOW is a toplevel, the window manager may choose to deny the request to move the window in the Z-order, `gdk-window-lower' only requests the restack, does not guarantee it. Note that `gdk-window-show' raises the window again, so don't call this function before `gdk-window-show'. (Try `gdk-window-show-unraised'.) WINDOW a `' -- Function: gdk-window-focus (self `') (timestamp `unsigned-int32') -- Method: focus Sets keyboard focus to WINDOW. In most cases, `gtk-window-present' should be used on a `', rather than calling this function. WINDOW a `' TIMESTAMP timestamp of the event triggering the window focus -- Function: gdk-window-register-dnd (self `') -- Method: register-dnd Registers a window as a potential drop destination. WINDOW a `'. -- Function: gdk-window-begin-resize-drag (self `') (edge `') (button `int') (root_x `int') (root_y `int') (timestamp `unsigned-int32') -- Method: begin-resize-drag Begins a window resize operation (for a toplevel window). You might use this function to implement a "window resize grip," for example; in fact `' uses it. The function works best with window managers that support the Extended Window Manager Hints (http://www.freedesktop.org/Standards/wm-spec), but has a fallback implementation for other window managers. WINDOW a toplevel `' EDGE the edge or corner from which the drag is started BUTTON the button being used to drag ROOT-X root window X coordinate of mouse click that began the drag ROOT-Y root window Y coordinate of mouse click that began the drag TIMESTAMP timestamp of mouse click that began the drag (use `gdk-event-get-time') -- Function: gdk-window-begin-move-drag (self `') (button `int') (root_x `int') (root_y `int') (timestamp `unsigned-int32') -- Method: begin-move-drag Begins a window move operation (for a toplevel window). You might use this function to implement a "window move grip," for example. The function works best with window managers that support the Extended Window Manager Hints (http://www.freedesktop.org/Standards/wm-spec), but has a fallback implementation for other window managers. WINDOW a toplevel `' BUTTON the button being used to drag ROOT-X root window X coordinate of mouse click that began the drag ROOT-Y root window Y coordinate of mouse click that began the drag TIMESTAMP timestamp of mouse click that began the drag -- Function: gdk-window-begin-paint-rect (self `') (rectangle `') -- Method: begin-paint-rect A convenience wrapper around `gdk-window-begin-paint-region' which creates a rectangular region for you. See `gdk-window-begin-paint-region' for details. WINDOW a `' RECTANGLE rectangle you intend to draw to -- Function: gdk-window-begin-paint-region (self `') (region `') -- Method: begin-paint-region Indicates that you are beginning the process of redrawing REGION. A backing store (offscreen buffer) large enough to contain REGION will be created. The backing store will be initialized with the background color or background pixmap for WINDOW. Then, all drawing operations performed on WINDOW will be diverted to the backing store. When you call `gdk-window-end-paint', the backing store will be copied to WINDOW, making it visible onscreen. Only the part of WINDOW contained in REGION will be modified; that is, drawing operations are clipped to REGION. The net result of all this is to remove flicker, because the user sees the finished product appear all at once when you call `gdk-window-end-paint'. If you draw to WINDOW directly without calling `gdk-window-begin-paint-region', the user may see flicker as individual drawing operations are performed in sequence. The clipping and background-initializing features of `gdk-window-begin-paint-region' are conveniences for the programmer, so you can avoid doing that work yourself. When using GTK+, the widget system automatically places calls to `gdk-window-begin-paint-region' and `gdk-window-end-paint' around emissions of the expose_event signal. That is, if you're writing an expose event handler, you can assume that the exposed area in `' has already been cleared to the window background, is already set as the clip region, and already has a backing store. Therefore in most cases, application code need not call `gdk-window-begin-paint-region'. (You can disable the automatic calls around expose events on a widget-by-widget basis by calling `gtk-widget-set-double-buffered'.) If you call this function multiple times before calling the matching `gdk-window-end-paint', the backing stores are pushed onto a stack. `gdk-window-end-paint' copies the topmost backing store onscreen, subtracts the topmost region from all other regions in the stack, and pops the stack. All drawing operations affect only the topmost backing store in the stack. One matching call to `gdk-window-end-paint' is required for each call to `gdk-window-begin-paint-region'. WINDOW a `' REGION region you intend to draw to -- Function: gdk-window-end-paint (self `') -- Method: end-paint Indicates that the backing store created by the most recent call to `gdk-window-begin-paint-region' should be copied onscreen and deleted, leaving the next-most-recent backing store or no backing store at all as the active paint region. See `gdk-window-begin-paint-region' for full details. It is an error to call this function without a matching `gdk-window-begin-paint-region' first. WINDOW a `' -- Function: gdk-window-invalidate-rect (self `') (rect `') (invalidate_children `bool') -- Method: invalidate-rect A convenience wrapper around `gdk-window-invalidate-region' which invalidates a rectangular region. See `gdk-window-invalidate-region' for details. WINDOW a `' RECT rectangle to invalidate INVALIDATE-CHILDREN whether to also invalidate child windows -- Function: gdk-window-invalidate-region (self `') (region `') (invalidate_children `bool') -- Method: invalidate-region Adds REGION to the update area for WINDOW. The update area is the region that needs to be redrawn, or "dirty region." The call `gdk-window-process-updates' sends one or more expose events to the window, which together cover the entire update area. An application would normally redraw the contents of WINDOW in response to those expose events. GDK will call `gdk-window-process-all-updates' on your behalf whenever your program returns to the main loop and becomes idle, so normally there's no need to do that manually, you just need to invalidate regions that you know should be redrawn. The INVALIDATE-CHILDREN parameter controls whether the region of each child window that intersects REGION will also be invalidated. If ``#f'', then the update area for child windows will remain unaffected. See gdk_window_invalidate_maybe_recurse if you need fine grained control over which children are invalidated. WINDOW a `' REGION a `' INVALIDATE-CHILDREN ``#t'' to also invalidate child windows -- Function: gdk-window-get-update-area (self `') => (ret `') -- Method: get-update-area Transfers ownership of the update area from WINDOW to the caller of the function. That is, after calling this function, WINDOW will no longer have an invalid/dirty region; the update area is removed from WINDOW and handed to you. If a window has no update area, `gdk-window-get-update-area' returns ``#f''. You are responsible for calling `gdk-region-destroy' on the returned region if it's non-``#f''. WINDOW a `' RET the update area for WINDOW -- Function: gdk-window-freeze-updates (self `') -- Method: freeze-updates Temporarily freezes a window such that it won't receive expose events. The window will begin receiving expose events again when `gdk-window-thaw-updates' is called. If `gdk-window-freeze-updates' has been called more than once, `gdk-window-thaw-updates' must be called an equal number of times to begin processing exposes. WINDOW a `' -- Function: gdk-window-thaw-updates (self `') -- Method: thaw-updates Thaws a window frozen with `gdk-window-freeze-updates'. WINDOW a `' -- Function: gdk-window-process-all-updates Calls `gdk-window-process-updates' for all windows (see `') in the application. -- Function: gdk-window-process-updates (self `') (update_children `bool') -- Method: process-updates Sends one or more expose events to WINDOW. The areas in each expose event will cover the entire update area for the window (see `gdk-window-invalidate-region' for details). Normally GDK calls `gdk-window-process-all-updates' on your behalf, so there's no need to call this function unless you want to force expose events to be delivered immediately and synchronously (vs. the usual case, where GDK delivers them in an idle handler). Occasionally this is useful to produce nicer scrolling behavior, for example. WINDOW a `' UPDATE-CHILDREN whether to also process updates for child windows -- Function: gdk-window-set-debug-updates (setting `bool') With update debugging enabled, calls to `gdk-window-invalidate-region' clear the invalidated region of the screen to a noticeable color, and GDK pauses for a short time before sending exposes to windows during `gdk-window-process-updates'. The net effect is that you can see the invalid region for each window and watch redraws as they occur. This allows you to diagnose inefficiencies in your application. In essence, because the GDK rendering model prevents all flicker, if you are redrawing the same region 400 times you may never notice, aside from noticing a speed problem. Enabling update debugging causes GTK to flicker slowly and noticeably, so you can see exactly what's being redrawn when, in what order. The -gtk-debug=updates command line option passed to GTK+ programs enables this debug option at application startup time. That's usually more useful than calling `gdk-window-set-debug-updates' yourself, though you might want to use this function to enable updates sometime after application startup time. SETTING ``#t'' to turn on update debugging -- Function: gdk-window-configure-finished (self `') -- Method: configure-finished Signal to the window system that the application has finished handling Configure events it has received. Window Managers can use this to better synchronize the frame repaint with the application. GTK+ applications will automatically call this function when appropriate. This function can only be called if `gdk-window-enable-synchronized-configure' was called previously. WINDOW a toplevel `' Since 2.6 -- Function: gdk-window-set-override-redirect (self `') (override_redirect `bool') -- Method: set-override-redirect An override redirect window is not under the control of the window manager. This means it won't have a titlebar, won't be minimizable, etc. - it will be entirely under the control of the application. The window manager can't see the override redirect window at all. Override redirect should only be used for short-lived temporary windows, such as popup menus. `' uses an override redirect window in its implementation, for example. WINDOW a toplevel `' OVERRIDE-REDIRECT ``#t'' if window should be override redirect -- Function: gdk-window-set-accept-focus (self `') (accept_focus `bool') -- Method: set-accept-focus Setting ACCEPT-FOCUS to ``#f'' hints the desktop environment that the window doesn't want to receive input focus. On X, it is the responsibility of the window manager to interpret this hint. ICCCM-compliant window manager usually respect it. WINDOW a toplevel `' ACCEPT-FOCUS ``#t'' if the window should receive input focus Since 2.4 -- Function: gdk-window-set-focus-on-map (self `') (focus_on_map `bool') -- Method: set-focus-on-map Setting FOCUS-ON-MAP to ``#f'' hints the desktop environment that the window doesn't want to receive input focus when it is mapped. focus_on_map should be turned off for windows that aren't triggered interactively (such as popups from network activity). On X, it is the responsibility of the window manager to interpret this hint. Window managers following the freedesktop.org window manager extension specification should respect it. WINDOW a toplevel `' FOCUS-ON-MAP ``#t'' if the window should receive input focus when mapped Since 2.6 -- Function: gdk-window-shape-combine-mask (self `') (mask `') (x `int') (y `int') -- Method: shape-combine-mask Applies a shape mask to WINDOW. Pixels in WINDOW corresponding to set bits in the MASK will be visible; pixels in WINDOW corresponding to unset bits in the MASK will be transparent. This gives a non-rectangular window. If MASK is ``#f'', the shape mask will be unset, and the X/Y parameters are not used. On the X11 platform, this uses an X server extension which is widely available on most common platforms, but not available on very old X servers, and occasionally the implementation will be buggy. On servers without the shape extension, this function will do nothing. On the Win32 platform the functionality is always present. This function works on both toplevel and child windows. WINDOW a `' MASK shape mask X X position of shape mask with respect to WINDOW Y Y position of shape mask with respect to WINDOW -- Function: gdk-window-shape-combine-region (self `') (shape_region `') (offset_x `int') (offset_y `int') -- Method: shape-combine-region Makes pixels in WINDOW outside SHAPE-REGION be transparent, so that the window may be nonrectangular. See also `gdk-window-shape-combine-mask' to use a bitmap as the mask. If SHAPE-REGION is ``#f'', the shape will be unset, so the whole window will be opaque again. OFFSET-X and OFFSET-Y are ignored if SHAPE-REGION is ``#f''. On the X11 platform, this uses an X server extension which is widely available on most common platforms, but not available on very old X servers, and occasionally the implementation will be buggy. On servers without the shape extension, this function will do nothing. On the Win32 platform, this functionality is always present. This function works on both toplevel and child windows. WINDOW a `' SHAPE-REGION region of window to be non-transparent OFFSET-X X position of SHAPE-REGION in WINDOW coordinates OFFSET-Y Y position of SHAPE-REGION in WINDOW coordinates -- Function: gdk-window-set-child-shapes (self `') -- Method: set-child-shapes Sets the shape mask of WINDOW to the union of shape masks for all children of WINDOW, ignoring the shape mask of WINDOW itself. Contrast with `gdk-window-merge-child-shapes' which includes the shape mask of WINDOW in the masks to be merged. WINDOW a `' -- Function: gdk-window-merge-child-shapes (self `') -- Method: merge-child-shapes Merges the shape masks for any child windows into the shape mask for WINDOW. i.e. the union of all masks for WINDOW and its children will become the new mask for WINDOW. See `gdk-window-shape-combine-mask'. This function is distinct from `gdk-window-set-child-shapes' because it includes WINDOW's shape mask in the set of shapes to be merged. WINDOW a `' -- Function: gdk-window-input-shape-combine-mask (self `') (mask `') (x `int') (y `int') -- Method: input-shape-combine-mask Like `gdk-window-shape-combine-mask', but the shape applies only to event handling. Mouse events which happen while the pointer position corresponds to an unset bit in the mask will be passed on the window below WINDOW. An input shape is typically used with RGBA windows. The alpha channel of the window defines which pixels are invisible and allows for nicely antialiased borders, and the input shape controls where the window is "clickable". On the X11 platform, this requires version 1.1 of the shape extension. On the Win32 platform, this functionality is not present and the function does nothing. WINDOW a `' MASK shape mask X X position of shape mask with respect to WINDOW Y Y position of shape mask with respect to WINDOW Since 2.10 -- Function: gdk-window-set-child-input-shapes (self `') -- Method: set-child-input-shapes Sets the input shape mask of WINDOW to the union of input shape masks for all children of WINDOW, ignoring the input shape mask of WINDOW itself. Contrast with `gdk-window-merge-child-input-shapes' which includes the input shape mask of WINDOW in the masks to be merged. WINDOW a `' Since 2.10 -- Function: gdk-window-merge-child-input-shapes (self `') -- Method: merge-child-input-shapes Merges the input shape masks for any child windows into the input shape mask for WINDOW. i.e. the union of all input masks for WINDOW and its children will become the new input mask for WINDOW. See `gdk-window-input-shape-combine-mask'. This function is distinct from `gdk-window-set-child-input-shapes' because it includes WINDOW's input shape mask in the set of shapes to be merged. WINDOW a `' Since 2.10 -- Function: gdk-window-set-static-gravities (self `') (use_static `bool') => (ret `bool') -- Method: set-static-gravities Set the bit gravity of the given window to static, and flag it so all children get static subwindow gravity. This is used if you are implementing scary features that involve deep knowledge of the windowing system. Don't worry about it unless you have to. WINDOW a `' USE-STATIC ``#t'' to turn on static gravity RET ``#t'' if the server supports static gravity -- Function: gdk-window-set-hints (self `') (x `int') (y `int') (min_width `int') (min_height `int') (max_width `int') (max_height `int') (flags `int') -- Method: set-hints `gdk_window_set_hints' is deprecated and should not be used in newly-written code. This function is broken and useless and you should ignore it. If using GTK+, use functions such as `gtk-window-resize', `gtk-window-set-size-request', `gtk-window-move', `gtk-window-parse-geometry', and `gtk-window-set-geometry-hints', depending on what you're trying to do. If using GDK directly, use `gdk-window-set-geometry-hints'. WINDOW a `' X ignored field, does not matter Y ignored field, does not matter MIN-WIDTH minimum width hint MIN-HEIGHT minimum height hint MAX-WIDTH max width hint MAX-HEIGHT max height hint FLAGS logical OR of GDK_HINT_POS, GDK_HINT_MIN_SIZE, and/or GDK_HINT_MAX_SIZE -- Function: gdk-window-set-title (self `') (title `mchars') -- Method: set-title Sets the title of a toplevel window, to be displayed in the titlebar. If you haven't explicitly set the icon name for the window (using `gdk-window-set-icon-name'), the icon name will be set to TITLE as well. TITLE must be in UTF-8 encoding (as with all user-readable strings in GDK/GTK+). TITLE may not be ``#f''. WINDOW a toplevel `' TITLE title of WINDOW -- Function: gdk-window-set-background (self `') (color `') -- Method: set-background Sets the background color of WINDOW. (However, when using GTK+, set the background of a widget with `gtk-widget-modify-bg' - if you're an application - or `gtk-style-set-background' - if you're implementing a custom widget.) The COLOR must be allocated; `gdk-rgb-find-color' is the best way to allocate a color. See also `gdk-window-set-back-pixmap'. WINDOW a `' COLOR an allocated `' -- Function: gdk-window-set-back-pixmap (self `') (pixmap `') (parent_relative `bool') -- Method: set-back-pixmap Sets the background pixmap of WINDOW. May also be used to set a background of "None" on WINDOW, by setting a background pixmap of ``#f''. A background pixmap will be tiled, positioning the first tile at the origin of WINDOW, or if PARENT-RELATIVE is ``#t'', the tiling will be done based on the origin of the parent window (useful to align tiles in a parent with tiles in a child). A background pixmap of ``#f'' means that the window will have no background. A window with no background will never have its background filled by the windowing system, instead the window will contain whatever pixels were already in the corresponding area of the display. The windowing system will normally fill a window with its background when the window is obscured then exposed, and when you call `gdk-window-clear'. WINDOW a `' PIXMAP a `', or ``#f'' PARENT-RELATIVE whether the tiling origin is at the origin of WINDOW's parent -- Function: gdk-window-set-cursor (self `') (cursor `') -- Method: set-cursor Sets the mouse pointer for a `'. Use `gdk-cursor-new' or `gdk-cursor-new-from-pixmap' to create the cursor. To make the cursor invisible, use `gdk-cursor-new-from-pixmap' to create a cursor with no pixels in it. Passing ``#f'' for the CURSOR argument to `gdk-window-set-cursor' means that WINDOW will use the cursor of its parent window. Most windows should use this default. WINDOW a `' CURSOR a cursor -- Function: gdk-window-get-geometry (self `') => (x `int') (y `int') (width `int') (height `int') (depth `int') -- Method: get-geometry Any of the return location arguments to this function may be ``#f'', if you aren't interested in getting the value of that field. The X and Y coordinates returned are relative to the parent window of WINDOW, which for toplevels usually means relative to the window decorations (titlebar, etc.) rather than relative to the root window (screen-size background window). On the X11 platform, the geometry is obtained from the X server, so reflects the latest position of WINDOW; this may be out-of-sync with the position of WINDOW delivered in the most-recently-processed `'. `gdk-window-get-position' in contrast gets the position from the most recent configure event. If WINDOW is not a toplevel, it is _much_ better to call `gdk-window-get-position' and `gdk-drawable-get-size' instead, because it avoids the roundtrip to the X server and because `gdk-drawable-get-size' supports the full 32-bit coordinate space, whereas `gdk-window-get-geometry' is restricted to the 16-bit coordinates of X11. WINDOW a `' X return location for X coordinate of window (relative to its parent) Y return location for Y coordinate of window (relative to its parent) WIDTH return location for width of window HEIGHT return location for height of window DEPTH return location for bit depth of window -- Function: gdk-window-set-icon-list (self `') (pixbufs `glist-of') -- Method: set-icon-list Sets a list of icons for the window. One of these will be used to represent the window when it has been iconified. The icon is usually shown in an icon box or some sort of task bar. Which icon size is shown depends on the window manager. The window manager can scale the icon but setting several size icons can give better image quality since the window manager may only need to scale the icon by a small amount or not at all. WINDOW The `' toplevel window to set the icon of. PIXBUFS A list of pixbufs, of different sizes. -- Function: gdk-window-set-modal-hint (self `') (modal `bool') -- Method: set-modal-hint The application can use this hint to tell the window manager that a certain window has modal behaviour. The window manager can use this information to handle modal windows in a special way. You should only use this on windows for which you have previously called `gdk-window-set-transient-for' WINDOW A toplevel `' MODAL ``#t'' if the window is modal, ``#f'' otherwise. -- Function: gdk-window-set-type-hint (self `') (hint `') -- Method: set-type-hint The application can use this call to provide a hint to the window manager about the functionality of a window. The window manager can use this information when determining the decoration and behaviour of the window. The hint must be set before the window is mapped. WINDOW A toplevel `' HINT A hint of the function this window will have -- Function: gdk-window-get-type-hint (self `') => (ret `') -- Method: get-type-hint This function returns the type hint set for a window. WINDOW A toplevel `' RET The type hint set for WINDOW Since 2.10 -- Function: gdk-window-set-skip-taskbar-hint (self `') (skips_taskbar `bool') -- Method: set-skip-taskbar-hint Toggles whether a window should appear in a task list or window list. If a window's semantic type as specified with `gdk-window-set-type-hint' already fully describes the window, this function should _not_ be called in addition, instead you should allow the window to be treated according to standard policy for its semantic type. WINDOW a toplevel `' SKIPS-TASKBAR ``#t'' to skip the taskbar Since 2.2 -- Function: gdk-window-set-skip-pager-hint (self `') (skips_pager `bool') -- Method: set-skip-pager-hint Toggles whether a window should appear in a pager (workspace switcher, or other desktop utility program that displays a small thumbnail representation of the windows on the desktop). If a window's semantic type as specified with `gdk-window-set-type-hint' already fully describes the window, this function should _not_ be called in addition, instead you should allow the window to be treated according to standard policy for its semantic type. WINDOW a toplevel `' SKIPS-PAGER ``#t'' to skip the pager Since 2.2 -- Function: gdk-window-set-urgency-hint (self `') (urgent `bool') -- Method: set-urgency-hint Toggles whether a window needs the user's urgent attention. WINDOW a toplevel `' URGENT ``#t'' if the window is urgent Since 2.8 -- Function: gdk-window-get-position (self `') => (x `int') (y `int') -- Method: get-position Obtains the position of the window as reported in the most-recently-processed `'. Contrast with `gdk-window-get-geometry' which queries the X server for the current window position, regardless of which events have been received or processed. The position coordinates are relative to the window's parent window. WINDOW a `' X X coordinate of window Y Y coordinate of window -- Function: gdk-window-get-root-origin (self `') => (x `int') (y `int') -- Method: get-root-origin Obtains the top-left corner of the window manager frame in root window coordinates. WINDOW a toplevel `' X return location for X position of window frame Y return location for Y position of window frame -- Function: gdk-window-get-origin (self `') => (ret `int') (x `int') (y `int') -- Method: get-origin Obtains the position of a window in root window coordinates. (Compare with `gdk-window-get-position' and `gdk-window-get-geometry' which return the position of a window relative to its parent window.) WINDOW a `' X return location for X coordinate Y return location for Y coordinate RET not meaningful, ignore -- Function: gdk-window-get-deskrelative-origin (self `') => (ret `bool') (x `int') (y `int') -- Method: get-deskrelative-origin `gdk_window_get_deskrelative_origin' is deprecated and should not be used in newly-written code. This gets the origin of a `' relative to an Enlightenment-window-manager desktop. As long as you don't assume that the user's desktop/workspace covers the entire root window (i.e. you don't assume that the desktop begins at root window coordinate 0,0) this function is not necessary. It's deprecated for that reason. WINDOW a toplevel `' X return location for X coordinate Y return location for Y coordinate RET not meaningful -- Function: gdk-window-get-parent (self `') => (ret `') -- Method: get-parent Obtains the parent of WINDOW, as known to GDK. Does not query the X server; thus this returns the parent as passed to `gdk-window-new', not the actual parent. This should never matter unless you're using Xlib calls mixed with GDK calls on the X11 platform. It may also matter for toplevel windows, because the window manager may choose to reparent them. WINDOW a `' RET parent of WINDOW -- Function: gdk-window-get-toplevel (self `') => (ret `') -- Method: get-toplevel Gets the toplevel window that's an ancestor of WINDOW. WINDOW a `' RET the toplevel window containing WINDOW -- Function: gdk-window-get-children (self `') => (ret `glist-of') -- Method: get-children Gets the list of children of WINDOW known to GDK. This function only returns children created via GDK, so for example it's useless when used with the root window; it only returns windows an application created itself. The returned list must be freed, but the elements in the list need not be. WINDOW a `' RET list of child windows inside WINDOW -- Function: gdk-window-get-events (self `') => (ret `') -- Method: get-events Gets the event mask for WINDOW. See `gdk-window-set-events'. WINDOW a `' RET event mask for WINDOW -- Function: gdk-window-set-events (self `') (event_mask `') -- Method: set-events The event mask for a window determines which events will be reported for that window. For example, an event mask including `' means the window should report button press events. The event mask is the bitwise OR of values from the `' enumeration. WINDOW a `' EVENT-MASK event mask for WINDOW -- Function: gdk-window-set-icon (self `') (icon_window `') (pixmap `') (mask `') -- Method: set-icon Sets the icon of WINDOW as a pixmap or window. If using GTK+, investigate `gtk-window-set-default-icon-list' first, and then `gtk-window-set-icon-list' and `gtk-window-set-icon'. If those don't meet your needs, look at `gdk-window-set-icon-list'. Only if all those are too high-level do you want to fall back to `gdk-window-set-icon'. WINDOW a toplevel `' ICON-WINDOW a `' to use for the icon, or ``#f'' to unset PIXMAP a `' to use as the icon, or ``#f'' to unset MASK a 1-bit pixmap (`') to use as mask for PIXMAP, or ``#f'' to have none -- Function: gdk-window-set-icon-name (self `') (name `mchars') -- Method: set-icon-name Windows may have a name used while minimized, distinct from the name they display in their titlebar. Most of the time this is a bad idea from a user interface standpoint. But you can set such a name with this function, if you like. WINDOW a toplevel `' NAME name of window while iconified (minimized) -- Function: gdk-window-set-transient-for (self `') (parent `') -- Method: set-transient-for Indicates to the window manager that WINDOW is a transient dialog associated with the application window PARENT. This allows the window manager to do things like center WINDOW on PARENT and keep WINDOW above PARENT. See `gtk-window-set-transient-for' if you're using `' or `'. WINDOW a toplevel `' PARENT another toplevel `' -- Function: gdk-window-set-role (self `') (role `mchars') -- Method: set-role When using GTK+, typically you should use `gtk-window-set-role' instead of this low-level function. The window manager and session manager use a window's role to distinguish it from other kinds of window in the same application. When an application is restarted after being saved in a previous session, all windows with the same title and role are treated as interchangeable. So if you have two windows with the same title that should be distinguished for session management purposes, you should set the role on those windows. It doesn't matter what string you use for the role, as long as you have a different role for each non-interchangeable kind of window. WINDOW a toplevel `' ROLE a string indicating its role -- Function: gdk-window-set-group (self `') (leader `') -- Method: set-group Sets the group leader window for WINDOW. By default, GDK sets the group leader for all toplevel windows to a global window implicitly created by GDK. With this function you can override this default. The group leader window allows the window manager to distinguish all windows that belong to a single application. It may for example allow users to minimize/unminimize all windows belonging to an application at once. You should only set a non-default group window if your application pretends to be multiple applications. WINDOW a toplevel `' LEADER group leader window, or ``#f'' to restore the default group leader window -- Function: gdk-window-get-group (self `') => (ret `') -- Method: get-group Returns the group leader window for WINDOW. See `gdk-window-set-group'. WINDOW a toplevel `' RET the group leader window for WINDOW Since 2.4 -- Function: gdk-window-set-decorations (self `') (decorations `') -- Method: set-decorations "Decorations" are the features the window manager adds to a toplevel `'. This function sets the traditional Motif window manager hints that tell the window manager which decorations you would like your window to have. Usually you should use `gtk-window-set-decorated' on a `' instead of using the GDK function directly. The DECORATIONS argument is the logical OR of the fields in the `' enumeration. If `' is included in the mask, the other bits indicate which decorations should be turned off. If `' is not included, then the other bits indicate which decorations should be turned on. Most window managers honor a decorations hint of 0 to disable all decorations, but very few honor all possible combinations of bits. WINDOW a toplevel `' DECORATIONS decoration hint mask -- Function: gdk-window-set-functions (self `') (functions `') -- Method: set-functions Sets hints about the window management functions to make available via buttons on the window frame. On the X backend, this function sets the traditional Motif window manager hint for this purpose. However, few window managers do anything reliable or interesting with this hint. Many ignore it entirely. The FUNCTIONS argument is the logical OR of values from the `' enumeration. If the bitmask includes `', then the other bits indicate which functions to disable; if it doesn't include `', it indicates which functions to enable. WINDOW a toplevel `' FUNCTIONS bitmask of operations to allow on WINDOW -- Function: gdk-window-get-toplevels => (ret `glist-of') Obtains a list of all toplevel windows known to GDK on the default screen (see `gdk-screen-get-toplevel-windows'). A toplevel window is a child of the root window (see `gdk-get-default-root-window'). The returned list should be freed with `g-list-free', but its elements need not be freed. RET list of toplevel windows, free with `g-list-free' -- Function: gdk-get-default-root-window => (ret `') Obtains the root window (parent all other windows are inside) for the default display and screen. RET the default root window  File: guile-gnome-gdk.info, Node: Events, Next: Event Structures, Prev: Windows, Up: Top 18 Events ********* Functions for handling events from the window system 18.1 Overview ============= This section describes functions dealing with events from the window system. In GTK+ applications the events are handled automatically in `gtk-main-do-event' and passed on to the appropriate widgets, so these functions are rarely needed. Though some of the fields in the Event Structures are useful. 18.2 Usage ========== -- Function: gdk-events-pending => (ret `bool') Checks if any events are ready to be processed for any display. RET ``#t'' if any events are pending. -- Function: gdk-event-peek => (ret `') If there is an event waiting in the event queue of some open display, returns a copy of it. See `gdk-display-peek-event'. RET a copy of the first `' on some event queue, or ``#f'' if no events are in any queues. The returned `' should be freed with `gdk-event-free'. -- Function: gdk-event-get => (ret `') Checks all open displays for a `' to process,to be processed on, fetching events from the windowing system if necessary. See `gdk-display-get-event'. RET the next `' to be processed, or ``#f'' if no events are pending. The returned `' should be freed with `gdk-event-free'. -- Function: gdk-event-get-graphics-expose (window `') => (ret `') Waits for a GraphicsExpose or NoExpose event from the X server. This is used in the `' and `' widgets in GTK+ to make sure any GraphicsExpose events are handled before the widget is scrolled. WINDOW the `' to wait for the events for. RET a `' if a GraphicsExpose was received, or ``#f'' if a NoExpose event was received. -- Function: gdk-event-put (self `') Appends a copy of the given event onto the front of the event queue for event->any.window's display, or the default event queue if event->any.window is ``#f''. See `gdk-display-put-event'. EVENT a `'. -- Function: gdk-event-copy (self `') => (ret `') Copies a `', copying or incrementing the reference count of the resources associated with it (e.g. `''s and strings). EVENT a `' RET a copy of EVENT. The returned `' should be freed with `gdk-event-free'. -- Function: gdk-event-get-time (self `') => (ret `unsigned-int32') Returns the time stamp from EVENT, if there is one; otherwise returns `'. If EVENT is ``#f'', returns `'. EVENT a `' RET time stamp field from EVENT -- Function: gdk-event-get-axis (self `') (axis_use `') => (ret `bool') (value `double') Extract the axis value for a particular axis use from an event structure. EVENT a `' AXIS-USE the axis use to look for VALUE location to store the value found RET ``#t'' if the specified axis was found, otherwise ``#f'' -- Function: gdk-event-get-coords (self `') => (ret `bool') (x_win `double') (y_win `double') Extract the event window relative x/y coordinates from an event. EVENT a `' X-WIN location to put event window x coordinate Y-WIN location to put event window y coordinate RET ``#t'' if the event delivered event window coordinates -- Function: gdk-event-get-root-coords (self `') => (ret `bool') (x_root `double') (y_root `double') Extract the root window relative x/y coordinates from an event. EVENT a `' X-ROOT location to put root window x coordinate Y-ROOT location to put root window y coordinate RET ``#t'' if the event delivered root window coordinates -- Function: gdk-get-show-events => (ret `bool') Gets whether event debugging output is enabled. RET ``#t'' if event debugging output is enabled. -- Function: gdk-set-show-events (show_events `bool') Sets whether a trace of received events is output. Note that GTK+ must be compiled with debugging (that is, configured using the "-enable-debug") option) to use this option. SHOW-EVENTS ``#t'' to output event debugging information. -- Function: gdk-event-get-screen (self `') => (ret `') Returns the screen for the event. The screen is typically the screen for `event->any.window', but for events such as mouse events, it is the screen where the pointer was when the event occurs - that is, the screen which has the root window to which `event->motion.x_root' and `event->motion.y_root' are relative. EVENT a `' RET the screen for the event Since 2.2  File: guile-gnome-gdk.info, Node: Event Structures, Next: Key Values, Prev: Events, Up: Top 19 Event Structures ******************* Data structures specific to each type of event 19.1 Overview ============= The event structs contain data specific to each type of event in GDK. A common mistake is to forget to set the event mask of a widget so that the required events are received. See `gtk-widget-set-events'. 19.2 Usage ========== -- Class: Derives from `'. This class defines no direct slots. -- Class: Derives from `'. This class defines no direct slots. -- Class: Derives from `'. This class defines no direct slots. -- Class: Derives from `'. This class defines no direct slots. -- Class: Derives from `'. This class defines no direct slots. -- Class: Derives from `'. This class defines no direct slots. -- Class: Derives from `'. This class defines no direct slots. -- Class: Derives from `'. This class defines no direct slots. -- Class: Derives from `'. This class defines no direct slots. -- Class: Derives from `'. This class defines no direct slots. -- Class: Derives from `'. This class defines no direct slots. -- Class: Derives from `'. This class defines no direct slots. -- Class: Derives from `'. This class defines no direct slots. -- Class: Derives from `'. This class defines no direct slots. -- Class: Derives from `'. This class defines no direct slots. -- Class: Derives from `'. This class defines no direct slots. -- Class: Derives from `'. This class defines no direct slots. -- Class: Derives from `'. This class defines no direct slots.  File: guile-gnome-gdk.info, Node: Key Values, Next: Selections, Prev: Event Structures, Up: Top 20 Key Values ************* Functions for manipulating keyboard codes 20.1 Overview ============= Key values are the codes which are sent whenever a key is pressed or released. They appear in the field of the `' structure, which is passed to signal handlers for the "key-press-event" and "key-release-event" signals. The complete list of key values can be found in the `' header file. `' is not included in `', it must be included independently, because the file is quite large. Key values can be converted into a string representation using `gdk-keyval-name'. The reverse function, converting a string to a key value, is provided by `gdk-keyval-from-name'. The case of key values can be determined using `gdk-keyval-is-upper' and `gdk-keyval-is-lower'. Key values can be converted to upper or lower case using `gdk-keyval-to-upper' and `gdk-keyval-to-lower'. When it makes sense, key values can be converted to and from Unicode characters with `gdk-keyval-to-unicode' and `gdk-unicode-to-keyval'. One `' object exists for each user display. `gdk-keymap-get-default' returns the `' for the default display; to obtain keymaps for other displays, use `gdk-keymap-get-for-display'. A keymap is a mapping from `' to key values. You can think of a `' as a representation of a symbol printed on a physical keyboard key. That is, it contains three pieces of information. First, it contains the hardware keycode; this is an identifying number for a physical key. Second, it contains the "level" of the key. The level indicates which symbol on the key will be used, in a vertical direction. So on a standard US keyboard, the key with the number "1" on it also has the exclamation point ("!") character on it. The level indicates whether to use the "1" or the "!" symbol. The letter keys are considered to have a lowercase letter at level 0, and an uppercase letter at level 1, though only the uppercase letter is printed. Third, the `' contains a group; groups are not used on standard US keyboards, but are used in many other countries. On a keyboard with groups, there can be 3 or 4 symbols printed on a single key. The group indicates movement in a horizontal direction. Usually groups are used for two different languages. In group 0, a key might have two English characters, and in group 1 it might have two Hebrew characters. The Hebrew characters will be printed on the key next to the English characters. In order to use a keymap to interpret a key event, it's necessary to first convert the keyboard state into an effective group and level. This is done via a set of rules that varies widely according to type of keyboard and user configuration. The function `gdk-keymap-translate-keyboard-state' accepts a keyboard state - consisting of hardware keycode pressed, active modifiers, and active group - applies the appropriate rules, and returns the group/level to be used to index the keymap, along with the modifiers which did not affect the group and level. i.e. it returns "unconsumed modifiers." The keyboard group may differ from the effective group used for keymap lookups because some keys don't have multiple groups - e.g. the Enter key is always in group 0 regardless of keyboard state. Note that `gdk-keymap-translate-keyboard-state' also returns the keyval, i.e. it goes ahead and performs the keymap lookup in addition to telling you which effective group/level values were used for the lookup. `' already contains this keyval, however, so you don't normally need to call `gdk-keymap-translate-keyboard-state' just to get the keyval. 20.2 Usage ========== -- Class: Derives from `'. This class defines no direct slots. -- Signal on : direction-changed The ::direction_changed signal gets emitted when the direction of the keymap changes. Since 2.0 -- Signal on : keys-changed The ::keys_changed signal is emitted when the mapping represented by KEYMAP changes. Since 2.2 -- Function: gdk-keymap-get-default => (ret `') Returns the `' attached to the default display. RET the `' attached to the default display. -- Function: gdk-keymap-get-for-display (display `') => (ret `') Returns the `' attached to DISPLAY. DISPLAY the `'. RET the `' attached to DISPLAY. Since 2.2 -- Function: gdk-keymap-get-direction (self `') => (ret `') -- Method: get-direction Returns the direction of the keymap. KEYMAP a `' or ``#f'' to use the default keymap. Returns: `PANGO_DIRECTION_LTR' or `PANGO_DIRECTION_RTL'. RET the direction of the keymap. -- Function: gdk-keyval-name (keyval `unsigned-int') => (ret `mchars') Converts a key value into a symbolic name. The names are the same as those in the `' header file but without the leading "GDK_". KEYVAL a key value. RET a string containing the name of the key, or ``#f'' if KEYVAL is not a valid key. The string should not be modified. -- Function: gdk-keyval-from-name (keyval_name `mchars') => (ret `unsigned-int') Converts a key name to a key value. KEYVAL-NAME a key name. RET the corresponding key value, or `GDK_VoidSymbol' if the key name is not a valid key. -- Function: gdk-keyval-convert-case (symbol `unsigned-int') => (lower `unsigned-int') (upper `unsigned-int') Obtains the upper- and lower-case versions of the keyval SYMBOL. Examples of keyvals are `', `', `', etc. SYMBOL a keyval LOWER return location for lowercase version of SYMBOL UPPER return location for uppercase version of SYMBOL -- Function: gdk-keyval-to-upper (keyval `unsigned-int') => (ret `unsigned-int') Converts a key value to upper case, if applicable. KEYVAL a key value. RET the upper case form of KEYVAL, or KEYVAL itself if it is already in upper case or it is not subject to case conversion. -- Function: gdk-keyval-to-lower (keyval `unsigned-int') => (ret `unsigned-int') Converts a key value to lower case, if applicable. KEYVAL a key value. RET the lower case form of KEYVAL, or KEYVAL itself if it is already in lower case or it is not subject to case conversion. -- Function: gdk-keyval-is-upper (keyval `unsigned-int') => (ret `bool') Returns ``#t'' if the given key value is in upper case. KEYVAL a key value. RET ``#t'' if KEYVAL is in upper case, or if KEYVAL is not subject to case conversion. -- Function: gdk-keyval-is-lower (keyval `unsigned-int') => (ret `bool') Returns ``#t'' if the given key value is in lower case. KEYVAL a key value. RET ``#t'' if KEYVAL is in lower case, or if KEYVAL is not subject to case conversion. -- Function: gdk-keyval-to-unicode (keyval `unsigned-int') => (ret `unsigned-int32') Convert from a GDK key symbol to the corresponding ISO10646 (Unicode) character. KEYVAL a GDK key symbol RET the corresponding unicode character, or 0 if there is no corresponding character. -- Function: gdk-unicode-to-keyval (wc `unsigned-int32') => (ret `unsigned-int') Convert from a ISO10646 character to a key symbol. WC a ISO10646 encoded character RET the corresponding GDK key symbol, if one exists. or, if there is no corresponding symbol, wc | 0x01000000  File: guile-gnome-gdk.info, Node: Selections, Next: Drag and Drop, Prev: Key Values, Up: Top 21 Selections ************* Functions for transfering data via the X selection mechanism 21.1 Overview ============= The X selection mechanism provides a way to transfer arbitrary chunks of data between programs. A "selection" is a essentially a named clipboard, identified by a string interned as a `'. By claiming ownership of a selection, an application indicates that it will be responsible for supplying its contents. The most common selections are `PRIMARY' and `CLIPBOARD'. The contents of a selection can be represented in a number of formats, called "targets". Each target is identified by an atom. A list of all possible targets supported by the selection owner can be retrieved by requesting the special target `TARGETS'. When a selection is retrieved, the data is accompanied by a type (an atom), and a format (an integer, representing the number of bits per item). See Properties and Atoms for more information. The functions in this section only contain the lowlevel parts of the selection protocol. A considerably more complicated implementation is needed on top of this. GTK+ contains such an implementation in the functions in `gtkselection.h' and programmers should use those functions instead of the ones presented here. If you plan to implement selection handling directly on top of the functions here, you should refer to the X Inter-client Communication Conventions Manual (ICCCM). 21.2 Usage ========== -- Function: gdk-selection-owner-set (owner `') (selection `') (time_ `unsigned-int32') (send_event `bool') => (ret `bool') Sets the owner of the given selection. OWNER a `' or ``#f'' to indicate that the the owner for the given should be unset. SELECTION an atom identifying a selection. TIME timestamp to use when setting the selection. If this is older than the timestamp given last time the owner was set for the given selection, the request will be ignored. SEND-EVENT if ``#t'', and the new owner is different from the current owner, the current owner will be sent a SelectionClear event. RET ``#t'' if the selection owner was successfully changed to OWNER, otherwise ``#f''. -- Function: gdk-selection-owner-set-for-display (display `') (owner `') (selection `') (time_ `unsigned-int32') (send_event `bool') => (ret `bool') Sets the `'OWNER as the current owner of the selection SELECTION. DISPLAY the `'. OWNER a `' or ``#f'' to indicate that the owner for the given should be unset. SELECTION an atom identifying a selection. TIME timestamp to use when setting the selection. If this is older than the timestamp given last time the owner was set for the given selection, the request will be ignored. SEND-EVENT if ``#t'', and the new owner is different from the current owner, the current owner will be sent a SelectionClear event. RET ``#t'' if the selection owner was successfully changed to owner, otherwise ``#f''. Since 2.2 -- Function: gdk-selection-owner-get (selection `') => (ret `') Determines the owner of the given selection. SELECTION an atom indentifying a selection. RET if there is a selection owner for this window, and it is a window known to the current process, the `' that owns the selection, otherwise ``#f''. Note that the return value may be owned by a different process if a foreign window was previously created for that window, but a new foreign window will never be created by this call. -- Function: gdk-selection-owner-get-for-display (display `') (selection `') => (ret `') Determine the owner of the given selection. Note that the return value may be owned by a different process if a foreign window was previously created for that window, but a new foreign window will never be created by this call. DISPLAY a `'. SELECTION an atom indentifying a selection. RET if there is a selection owner for this window, and it is a window known to the current process, the `' that owns the selection, otherwise ``#f''. Since 2.2 -- Function: gdk-selection-convert (requestor `') (selection `') (target `') (time_ `unsigned-int32') Retrieves the contents of a selection in a given form. REQUESTOR a `'. SELECTION an atom identifying the selection to get the contents of. TARGET the form in which to retrieve the selection. TIME the timestamp to use when retrieving the selection. The selection owner may refuse the request if it did not own the selection at the time indicated by the timestamp. -- Function: gdk-selection-send-notify (requestor `unsigned-int32') (selection `') (target `') (property `') (time_ `unsigned-int32') Sends a response to SelectionRequest event. REQUESTOR window to which to deliver response. SELECTION selection that was requested. TARGET target that was selected. PROPERTY property in which the selection owner stored the data, or `GDK_NONE' to indicate that the request was rejected. TIME timestamp.  File: guile-gnome-gdk.info, Node: Drag and Drop, Next: Properties and Atoms, Prev: Selections, Up: Top 22 Drag and Drop **************** Functions for controlling drag and drop handling 22.1 Overview ============= These functions provide a low level interface for drag and drop. The X backend of GDK supports both the Xdnd and Motif drag and drop protocols transparently, the Win32 backend supports the WM_DROPFILES protocol. GTK+ provides a higher level abstraction based on top of these functions, and so they are not normally needed in GTK+ applications. See the Drag and Drop section of the GTK+ documentation for more information. 22.2 Usage ========== -- Class: Derives from `'. This class defines no direct slots. -- Function: gdk-drag-get-selection (context `') => (ret `') Returns the selection atom for the current source window. CONTEXT a `'. RET the selection atom. -- Function: gdk-drag-abort (context `') (time_ `unsigned-int32') Aborts a drag without dropping. This function is called by the drag source. CONTEXT a `'. TIME the timestamp for this operation. -- Function: gdk-drop-reply (context `') (ok `bool') (time_ `unsigned-int32') Accepts or rejects a drop. This function is called by the drag destination in response to a drop initiated by the drag source. CONTEXT a `'. OK ``#t'' if the drop is accepted. TIME the timestamp for this operation. -- Function: gdk-drag-context-new => (ret `') Creates a new `'. RET the newly created `'. -- Function: gdk-drag-drop (context `') (time_ `unsigned-int32') Drops on the current destination. This function is called by the drag source. CONTEXT a `'. TIME the timestamp for this operation. -- Function: gdk-drag-motion (context `') (dest_window `') (protocol `') (x_root `int') (y_root `int') (suggested_action `') (possible_actions `') (time_ `unsigned-int32') => (ret `bool') Updates the drag context when the pointer moves or the set of actions changes. This function is called by the drag source. CONTEXT a `'. DEST-WINDOW the new destination window, obtained by `gdk-drag-find-window'. PROTOCOL the DND protocol in use, obtained by `gdk-drag-find-window'. X-ROOT the x position of the pointer in root coordinates. Y-ROOT the y position of the pointer in root coordinates. SUGGESTED-ACTION the suggested action. POSSIBLE-ACTIONS the possible actions. TIME the timestamp for this operation. RET FIXME -- Function: gdk-drop-finish (context `') (success `bool') (time_ `unsigned-int32') Ends the drag operation after a drop. This function is called by the drag destination. CONTEXT a `'. SUCCESS ``#t'' if the data was successfully received. TIME the timestamp for this operation. -- Function: gdk-drag-status (context `') (action `') (time_ `unsigned-int32') Selects one of the actions offered by the drag source. This function is called by the drag destination in response to `gdk-drag-motion' called by the drag source. CONTEXT a `'. ACTION the selected action which will be taken when a drop happens, or 0 to indicate that a drop will not be accepted. TIME the timestamp for this operation. -- Function: gdk-drag-drop-succeeded (context `') => (ret `bool') Returns wether the dropped data has been successfully transferred. This function is intended to be used while handling a `GDK_DROP_FINISHED' event, its return value is meaningless at other times. CONTEXT a `' RET ``#t'' if the drop was successful. Since 2.6  File: guile-gnome-gdk.info, Node: Properties and Atoms, Next: Threads, Prev: Drag and Drop, Up: Top 23 Properties and Atoms *********************** Functions to manipulate properties on windows 23.1 Overview ============= Each window under X can have any number of associated "properties" attached to it. Properties are arbitrary chunks of data identified by "atom"s. (An "atom" is a numeric index into a string table on the X server. They are used to transfer strings efficiently between clients without having to transfer the entire string.) A property has an associated type, which is also identified using an atom. A property has an associated "format", an integer describing how many bits are in each unit of data inside the property. It must be 8, 16, or 32. When data is transferred between the server and client, if they are of different endianesses it will be byteswapped as necessary according to the format of the property. Note that on the client side, properties of format 32 will be stored with one unit per _long_, even if a long integer has more than 32 bits on the platform. (This decision was apparently made for Xlib to maintain compatibility with programs that assumed longs were 32 bits, at the expense of programs that knew better.) The functions in this section are used to add, remove and change properties on windows, to convert atoms to and from strings and to manipulate some types of data commonly stored in X window properties. 23.2 Usage ========== -- Class: Opaque pointer. This class defines no direct slots. -- Function: gdk-atom-intern (atom_name `mchars') (only_if_exists `bool') => (ret `') Finds or creates an atom corresponding to a given string. ATOM-NAME a string. ONLY-IF-EXISTS if ``#t'', GDK is allowed to not create a new atom, but just return `GDK_NONE' if the requested atom doesn't already exists. Currently, the flag is ignored, since checking the existance of an atom is as expensive as creating it. RET the atom corresponding to ATOM-NAME. -- Function: gdk-atom-name (atom `') => (ret `mchars') Determines the string corresponding to an atom. ATOM a `'. RET a newly-allocated string containing the string corresponding to ATOM. When you are done with the return value, you should free it using `g-free'. -- Function: gdk-property-delete (window `') (property `') Deletes a property from a window. WINDOW a `'. PROPERTY the property to delete.  File: guile-gnome-gdk.info, Node: Threads, Next: Input Devices, Prev: Properties and Atoms, Up: Top 24 Threads ********** Functions for using GDK in multi-threaded programs 24.1 Overview ============= For thread safety, GDK relies on the thread primitives in GLib, and on the thread-safe GLib main loop. GLib is completely thread safe (all global data is automatically locked), but individual data structure instances are not automatically locked for performance reasons. So e.g. you must coordinate accesses to the same `' from multiple threads. GTK+ is "thread aware" but not thread safe — it provides a global lock controlled by `gdk-threads-enter'/`gdk-threads-leave' which protects all use of GTK+. That is, only one thread can use GTK+ at any given time. Unfortunately the above holds with the X11 backend only. With the Win32 backend, GDK calls should not be attempted from multiple threads at all. You must call `g-thread-init' and `gdk-threads-init' before executing any other GTK+ or GDK functions in a threaded GTK+ program. Idles, timeouts, and input functions are executed outside of the main GTK+ lock. So, if you need to call GTK+ inside of such a callback, you must surround the callback with a `gdk-threads-enter'/`gdk-threads-leave' pair. (However, signals are still executed within the main GTK+ lock.) In particular, this means, if you are writing widgets that might be used in threaded programs, you _must_ surround timeouts and idle functions in this matter. As always, you must also surround any calls to GTK+ not made within a signal handler with a `gdk-threads-enter'/`gdk-threads-leave' pair. Before calling `gdk-threads-leave' from a thread other than your main thread, you probably want to call `gdk-flush' to send all pending commands to the windowing system. (The reason you don't need to do this from the main thread is that GDK always automatically flushes pending commands when it runs out of incoming events to process and has to sleep while waiting for more events.) A minimal main program for a threaded GTK+ application looks like: int main (int argc, char *argv[]) { GtkWidget *window; g_thread_init (NULL); gdk_threads_init (); gdk_threads_enter (); gtk_init (&argc, &argv); window = create_window (); gtk_widget_show (window); gtk_main (); gdk_threads_leave (); return 0; } Callbacks require a bit of attention. Callbacks from GTK+ signals are made within the GTK+ lock. However callbacks from GLib (timeouts, IO callbacks, and idle functions) are made outside of the GTK+ lock. So, within a signal handler you do not need to call `gdk-threads-enter', but within the other types of callbacks, you do. Erik Mouw contributed the following code example to illustrate how to use threads within GTK+ programs. /*------------------------------------------------------------------------- * Filename: gtk-thread.c * Version: 0.99.1 * Copyright: Copyright (C) 1999, Erik Mouw * Author: Erik Mouw * Description: GTK threads example. * Created at: Sun Oct 17 21:27:09 1999 * Modified by: Erik Mouw * Modified at: Sun Oct 24 17:21:41 1999 *-----------------------------------------------------------------------*/ /* * Compile with: * * cc -o gtk-thread gtk-thread.c `gtk-config --cflags --libs gthread` * * Thanks to Sebastian Wilhelmi and Owen Taylor for pointing out some * bugs. * */ #include #include #include #include #include #include #include #define YES_IT_IS (1) #define NO_IT_IS_NOT (0) typedef struct { GtkWidget *label; int what; } yes_or_no_args; G_LOCK_DEFINE_STATIC (yes_or_no); static volatile int yes_or_no = YES_IT_IS; void destroy (GtkWidget *widget, gpointer data) { gtk_main_quit (); } void *argument_thread (void *args) { yes_or_no_args *data = (yes_or_no_args *)args; gboolean say_something; for (;;) { /* sleep a while */ sleep(rand() / (RAND_MAX / 3) + 1); /* lock the yes_or_no_variable */ G_LOCK(yes_or_no); /* do we have to say something? */ say_something = (yes_or_no != data->what); if(say_something) { /* set the variable */ yes_or_no = data->what; } /* Unlock the yes_or_no variable */ G_UNLOCK (yes_or_no); if (say_something) { /* get GTK thread lock */ gdk_threads_enter (); /* set label text */ if(data->what == YES_IT_IS) gtk_label_set_text (GTK_LABEL (data->label), "O yes, it is!"); else gtk_label_set_text (GTK_LABEL (data->label), "O no, it isn't!"); /* release GTK thread lock */ gdk_threads_leave (); } } return NULL; } int main (int argc, char *argv[]) { GtkWidget *window; GtkWidget *label; yes_or_no_args yes_args, no_args; pthread_t no_tid, yes_tid; /* init threads */ g_thread_init (NULL); gdk_threads_init (); gdk_threads_enter (); /* init gtk */ gtk_init(&argc, &argv); /* init random number generator */ srand ((unsigned int) time (NULL)); /* create a window */ window = gtk_window_new (GTK_WINDOW_TOPLEVEL); gtk_signal_connect (GTK_OBJECT (window), "destroy", GTK_SIGNAL_FUNC (destroy), NULL); gtk_container_set_border_width (GTK_CONTAINER (window), 10); /* create a label */ label = gtk_label_new ("And now for something completely different ..."); gtk_container_add (GTK_CONTAINER (window), label); /* show everything */ gtk_widget_show (label); gtk_widget_show (window); /* create the threads */ yes_args.label = label; yes_args.what = YES_IT_IS; pthread_create (&yes_tid, NULL, argument_thread, &yes_args); no_args.label = label; no_args.what = NO_IT_IS_NOT; pthread_create (&no_tid, NULL, argument_thread, &no_args); /* enter the GTK main loop */ gtk_main (); gdk_threads_leave (); return 0; } 24.2 Usage ========== -- Function: gdk-threads-init Initializes GDK so that it can be used from multiple threads in conjunction with `gdk-threads-enter' and `gdk-threads-leave'. `g-thread-init' must be called previous to this function. This call must be made before any use of the main loop from GTK+; to be safe, call it before `gtk-init'. -- Function: gdk-threads-enter This macro marks the beginning of a critical section in which GDK and GTK+ functions can be called. Only one thread at a time can be in such a critial section. -- Function: gdk-threads-leave Leaves a critical region begun with `gdk-threads-enter'.  File: guile-gnome-gdk.info, Node: Input Devices, Next: Pango Interaction, Prev: Threads, Up: Top 25 Input Devices **************** Functions for handling extended input devices 25.1 Overview ============= In addition to the normal keyboard and mouse input devices, GTK+ also contains support for "extended input devices". In particular, this support is targeted at graphics tablets. Graphics tablets typically return sub-pixel positioning information and possibly information about the pressure and tilt of the stylus. Under X, the support for extended devices is done through the "XInput" extension. Because handling extended input devices may involve considerable overhead, they need to be turned on for each `' individually using `gdk-input-set-extension-events'. (Or, more typically, for GtkWidgets, using `gtk-widget-set-extension-events'). As an additional complication, depending on the support from the windowing system, its possible that a normal mouse cursor will not be displayed for a particular extension device. If an application does not want to deal with displaying a cursor itself, it can ask only to get extension events from devices that will display a cursor, by passing the `GDK_EXTENSION_EVENTS_CURSOR' value to `gdk-input-set-extension-events'. Otherwise, the application must retrieve the device information using `gdk-devices-list', check the field, and, if it is ``#f'', draw a cursor itself when it receives motion events. Each pointing device is assigned a unique integer ID; events from a particular device can be identified by the field in the event structure. The events generated by pointer devices have also been extended to contain , and fields which contain the extended information reported as additional "valuators" from the device. The field is a a double value ranging from 0.0 to 1.0, while the tilt fields are double values ranging from -1.0 to 1.0. (With -1.0 representing the maximum tilt to the left or up, and 1.0 representing the maximum tilt to the right or down.) One additional field in each event is the field, which contains an enumeration value describing the type of device; this currently can be one of `GDK_SOURCE_MOUSE', `GDK_SOURCE_PEN', `GDK_SOURCE_ERASER', or `GDK_SOURCE_CURSOR'. This field is present to allow simple applications to (for instance) delete when they detect eraser devices without having to keep track of complicated per-device settings. Various aspects of each device may be configured. The easiest way of creating a GUI to allow the user to configure such a device is to use the `' widget in GTK+. However, even when using this widget, application writers will need to directly query and set the configuration parameters in order to save the state between invocations of the application. The configuration of devices is queried using `gdk-devices-list'. Each device must be activated using `gdk-device-set-mode', which also controls whether the device's range is mapped to the entire screen or to a single window. The mapping of the valuators of the device onto the predefined valuator types is set using `gdk-device-set-axis-use'. And the source type for each device can be set with `gdk-device-set-source'. Devices may also have associated "keys" or macro buttons. Such keys can be globally set to map into normal X keyboard events. The mapping is set using `gdk-device-set-key'. The interfaces in this section will most likely be considerably modified in the future to accomodate devices that may have different sets of additional valuators than the pressure and . 25.2 Usage ========== -- Class: Derives from `'. This class defines no direct slots. -- Function: gdk-devices-list => (ret `glist-of') Returns the list of available input devices for the default display. The list is statically allocated and should not be freed. RET a list of `' -- Function: gdk-device-set-source (self `') (source `') -- Method: set-source Sets the source type for an input device. DEVICE a `'. SOURCE the source type. -- Function: gdk-device-set-mode (self `') (mode `') => (ret `bool') -- Method: set-mode Sets a the mode of an input device. The mode controls if the device is active and whether the device's range is mapped to the entire screen or to a single window. DEVICE a `'. MODE the input mode. RET ``#t'' if the mode was successfully changed. -- Function: gdk-device-set-key (self `') (index_ `unsigned-int') (keyval `unsigned-int') (modifiers `') -- Method: set-key Specifies the X key event to generate when a macro button of a device is pressed. DEVICE a `'. INDEX the index of the macro button to set. KEYVAL the keyval to generate. MODIFIERS the modifiers to set. -- Function: gdk-device-set-axis-use (self `') (index_ `unsigned-int') (use `') -- Method: set-axis-use Specifies how an axis of a device is used. DEVICE a `'. INDEX the index of the axis. USE specifies how the axis is used. -- Function: gdk-device-get-core-pointer => (ret `') Returns the core pointer device for the default display. RET the core pointer device; this is owned by the display and should not be freed. -- Function: gdk-device-get-axis (self `') (use `') => (ret `bool') (axes `double') (value `double') -- Method: get-axis Interprets an array of double as axis values for a given device, and locates the value in the array for a given axis use. DEVICE a `' AXES pointer to an array of axes USE the use to look for VALUE location to store the found value. RET ``#t'' if the given axis use was found, otherwise ``#f'' -- Function: gdk-input-set-extension-events (window `') (mask `int') (mode `') Turns extension events on or off for a particular window, and specifies the event mask for extension events. WINDOW a `'. MASK the event mask MODE the type of extension events that are desired.  File: guile-gnome-gdk.info, Node: Pango Interaction, Next: Cairo Interaction, Prev: Input Devices, Up: Top 26 Pango Interaction ******************** Using Pango in GDK 26.1 Overview ============= Pango is the text layout system used by GDK and GTK+. The functions and types in this section are used to render Pango objects to GDK. drawables, and also extend the set of Pango attributes to include stippling and embossing. Creating a `' object is the first step in rendering text, and requires getting a handle to a `'. For GTK+ programs, you'll usually want to use `gtk-widget-get-pango-context', or `gtk-widget-create-pango-layout', rather than using the lowlevel `gdk-pango-context-get-for-screen'. Once you have a `', you can set the text and attributes of it with Pango functions like `pango-layout-set-text' and get its size with `pango-layout-get-size'. (Note that Pango uses a fixed point system internally, so converting between Pango units and pixels using PANGO_SCALE or the `pango-pixels' macro.) Rendering a Pango layout is done most simply with `gdk-draw-layout'; you can also draw pieces of the layout with `gdk-draw-layout' or `gdk-draw-glyphs'. `' is a subclass of `' that is used internally to implement these functions. Using it directly or subclassing it can be useful in some cases. See the `' documentation for details. #define RADIUS 100 #define N_WORDS 10 #define FONT "Sans Bold 18" GdkScreen *screen = gdk_drawable_get_screen (drawable); PangoRenderer *renderer; GdkGC *gc; PangoMatrix matrix = PANGO_MATRIX_INIT; PangoContext *context; PangoLayout *layout; PangoFontDescription *desc; double device_radius; int width, height; int i; /* Get the default renderer for the screen, and set it up for drawing */ renderer = gdk_pango_renderer_get_default (screen); gdk_pango_renderer_set_drawable (GDK_PANGO_RENDERER (renderer), drawable); gc = gdk_gc_new (drawable); gdk_pango_renderer_set_gc (GDK_PANGO_RENDERER (renderer), gc); /* Set up a transformation matrix so that the user space coordinates for * where we are drawing are [-RADIUS, RADIUS], [-RADIUS, RADIUS] * We first center, then change the scale */ gdk_drawable_get_size (drawable, &width, &height); device_radius = MIN (width, height) / 2.; pango_matrix_translate (&matrix, device_radius + (width - 2 * device_radius) / 2, device_radius + (height - 2 * device_radius) / 2); pango_matrix_scale (&matrix, device_radius / RADIUS, device_radius / RADIUS); /* Create a PangoLayout, set the font and text */ context = gdk_pango_context_get_for_screen (screen); layout = pango_layout_new (context); pango_layout_set_text (layout, "Text", -1); desc = pango_font_description_from_string (FONT); pango_layout_set_font_description (layout, desc); pango_font_description_free (desc); /* Draw the layout N_WORDS times in a circle */ for (i = 0; i < N_WORDS; i++) { GdkColor color; PangoMatrix rotated_matrix = matrix; int width, height; double angle = (360. * i) / N_WORDS; /* Gradient from red at angle == 60 to blue at angle == 300 */ color.red = 65535 * (1 + cos ((angle - 60) * M_PI / 180.)) / 2; color.green = 0; color.blue = 65535 - color.red; gdk_pango_renderer_set_override_color (GDK_PANGO_RENDERER (renderer), PANGO_RENDER_PART_FOREGROUND, &color); pango_matrix_rotate (&rotated_matrix, angle); pango_context_set_matrix (context, &rotated_matrix); /* Inform Pango to re-layout the text with the new transformation matrix */ pango_layout_context_changed (layout); pango_layout_get_size (layout, &width, &height); pango_renderer_draw_layout (renderer, layout, - width / 2, - RADIUS * PANGO_SCALE); } /* Clean up default renderer, since it is shared */ gdk_pango_renderer_set_override_color (GDK_PANGO_RENDERER (renderer), PANGO_RENDER_PART_FOREGROUND, NULL); gdk_pango_renderer_set_drawable (GDK_PANGO_RENDERER (renderer), NULL); gdk_pango_renderer_set_gc (GDK_PANGO_RENDERER (renderer), NULL); /* free the objects we created */ g_object_unref (layout); g_object_unref (context); g_object_unref (gc); 26.2 Usage ========== -- Class: Derives from `'. This class defines the following slots: `screen' the GdkScreen for the renderer -- Function: gdk-pango-renderer-new (screen `') => (ret `') Creates a new `' for SCREEN. Normally you can use the results of `gdk-pango-renderer-get-default' rather than creating a new renderer. SCREEN a `' RET a newly created `'. Free with `g-object-unref'. Since 2.6 -- Function: gdk-pango-renderer-get-default (screen `') => (ret `') Gets the default `' for a screen. This default renderer is shared by all users of the display, so properties such as the color or transformation matrix set for the renderer may be overwritten by functions such as `gdk-draw-layout'. Before using the renderer, you need to call `gdk-pango-renderer-set-drawable' and `gdk-pango-renderer-set-gc' to set the drawable and graphics context to use for drawing. SCREEN a `' RET the default `' for SCREEN. The renderer is owned by GTK+ and will be kept around until the screen is closed. Since 2.6 -- Function: gdk-pango-renderer-set-drawable (self `') (drawable `') -- Method: set-drawable Sets the drawable the renderer draws to. GDK-RENDERER a `' DRAWABLE the new target drawable, or ``#f'' Since 2.6 -- Function: gdk-pango-renderer-set-gc (self `') (gc `') -- Method: set-gc Sets the GC the renderer draws with. Note that the GC must not be modified until it is unset by calling the function again with ``#f'' for the GC parameter, since GDK may make internal copies of the GC which won't be updated to follow changes to the original GC. GDK-RENDERER a `' GC the new GC to use for drawing, or ``#f'' Since 2.6 -- Function: gdk-pango-renderer-set-stipple (self `') (part `') (stipple `') -- Method: set-stipple Sets the stipple for one render part (foreground, background, underline, etc.) Note that this is overwritten when iterating through the individual styled runs of a `' or `'. This function is thus only useful when you call low level functions like `pango-renderer-draw-glyphs' directly, or in the 'prepare_run' virtual function of a subclass of `'. GDK-RENDERER a `' PART the part to render with the stipple STIPPLE the new stipple value. Since 2.6 -- Function: gdk-pango-context-get => (ret `') Creates a `' for the default GDK screen. The context must be freed when you're finished with it. When using GTK+, normally you should use `gtk-widget-get-pango-context' instead of this function, to get the appropriate context for the widget you intend to render text onto. The newly created context will have the default font options (see `') for the default screen; if these options change it will not be updated. Using `gtk-widget-get-pango-context' is more convenient if you want to keep a context around and track changes to the screen's font rendering settings. RET a new `' for the default display -- Function: gdk-pango-context-get-for-screen (screen `') => (ret `') Creates a `' for SCREEN. The context must be freed when you're finished with it. When using GTK+, normally you should use `gtk-widget-get-pango-context' instead of this function, to get the appropriate context for the widget you intend to render text onto. The newly created context will have the default font options (see `') for the screen; if these options change it will not be updated. Using `gtk-widget-get-pango-context' is more convenient if you want to keep a context around and track changes to the screen's font rendering settings. SCREEN the `' for which the context is to be created. RET a new `' for SCREEN Since 2.2 -- Function: gdk-pango-context-set-colormap (context `') (colormap `') `gdk_pango_context_set_colormap' is deprecated and should not be used in newly-written code. This function used to set the colormap to be used for drawing with CONTEXT. The colormap is now always derived from the graphics context used for drawing, so calling this function is no longer necessary. CONTEXT a `' COLORMAP a `' -- Function: gdk-pango-attr-embossed-new (embossed `bool') => (ret `') Creates a new attribute containing a embossed bitmap to be used when rendering the text. EMBOSSED a bitmap to be set as embossed RET new `' -- Function: gdk-pango-attr-stipple-new (stipple `') => (ret `') Creates a new attribute containing a stipple bitmap to be used when rendering the text. STIPPLE a bitmap to be set as stipple RET new `'  File: guile-gnome-gdk.info, Node: Cairo Interaction, Next: X Window System Interaction, Prev: Pango Interaction, Up: Top 27 Cairo Interaction ******************** Functions to support using Cairo 27.1 Overview ============= Cairo is a graphics library that supports vector graphics and image compositing that can be used with GDK. Since 2.8, GTK+ does most of its drawing using Cairo. GDK does not wrap the Cairo API, instead it allows to create Cairo contexts which can be used to draw on GDK drawables. Additional functions allow to convert GDK's rectangles and regions into Cairo paths and to use pixbufs as sources for drawing operations. 27.2 Usage ========== -- Function: gdk-cairo-create (drawable `') => (ret `cairo-t') Creates a Cairo context for drawing to DRAWABLE. DRAWABLE a `' RET A newly created Cairo context. Free with `cairo-destroy' when you are done drawing. Since 2.8 -- Function: gdk-cairo-set-source-color (cr `cairo-t') (color `') Sets the specified `' as the source color of CR. CR a `' COLOR a `' Since 2.8 -- Function: gdk-cairo-set-source-pixbuf (cr `cairo-t') (pixbuf `') (pixbuf_x `double') (pixbuf_y `double') Sets the given pixbuf as the source pattern for the Cairo context. The pattern has an extend mode of `CAIRO_EXTEND_NONE' and is aligned so that the origin of PIXBUF is PIXBUF-X, PIXBUF-Y CR a `' context PIXBUF a `' PIXBUF-X X coordinate of location to place upper left corner of PIXBUF PIXBUF-Y Y coordinate of location to place upper left corner of PIXBUF Since 2.8 -- Function: gdk-cairo-set-source-pixmap (cr `cairo-t') (pixmap `') (pixmap_x `double') (pixmap_y `double') Sets the given pixmap as the source pattern for the Cairo context. The pattern has an extend mode of `CAIRO_EXTEND_NONE' and is aligned so that the origin of PIXBUF is PIXBUF-X, PIXBUF-Y CR a `' context PIXMAP a `' PIXMAP-X X coordinate of location to place upper left corner of PIXMAP PIXMAP-Y Y coordinate of location to place upper left corner of PIXMAP Since 2.10 -- Function: gdk-cairo-rectangle (cr `cairo-t') (rectangle `') Adds the given rectangle to the current path of CR. CR a `' RECTANGLE a `' Since 2.8 -- Function: gdk-cairo-region (cr `cairo-t') (region `') Adds the given region to the current path of CR. CR a `' REGION a `' Since 2.8  File: guile-gnome-gdk.info, Node: X Window System Interaction, Next: The GdkPixbuf Structure, Prev: Cairo Interaction, Up: Top 28 X Window System Interaction ****************************** X backend-specific functions 28.1 Overview ============= 28.2 Usage ========== -- Function: gdk-pixmap-foreign-new-for-display (display `') (anid `unsigned-long') => (ret `') Wraps a native pixmap in a `'. This may fail if the pixmap has been destroyed. For example in the X backend, a native pixmap handle is an Xlib `'. DISPLAY The `' where ANID is located. ANID a native pixmap handle. RET the newly-created `' wrapper for the native pixmap or ``#f'' if the pixmap has been destroyed. Since 2.2 -- Function: gdk-pixmap-foreign-new-for-screen (screen `') (anid `unsigned-long') (width `int') (height `int') (depth `int') => (ret `') Wraps a native pixmap in a `'. This may fail if the pixmap has been destroyed. For example in the X backend, a native pixmap handle is an Xlib `'. This function is an alternative to `gdk-pixmap-foreign-new-for-display' for cases where the dimensions of the pixmap are known. For the X backend, this avoids a roundtrip to the server. SCREEN a `' ANID a native pixmap handle WIDTH the width of the pixmap identified by ANID HEIGHT the height of the pixmap identified by ANID DEPTH the depth of the pixmap identified by ANID RET the newly-created `' wrapper for the native pixmap or ``#f'' if the pixmap has been destroyed. Since 2.10 -- Function: gdk-window-foreign-new-for-display (display `') (anid `unsigned-long') => (ret `') Wraps a native window in a `'. This may fail if the window has been destroyed. If the window was already known to GDK, a new reference to the existing `' is returned. For example in the X backend, a native window handle is an Xlib `'. DISPLAY the `' where the window handle comes from. ANID a native window handle. RET a `' wrapper for the native window or ``#f'' if the window has been destroyed. The wrapper will be newly created, if one doesn't exist already. Since 2.2 -- Function: gdk-window-lookup (anid `unsigned-long') => (ret `') Looks up the `' that wraps the given native window handle. For example in the X backend, a native window handle is an Xlib `'. ANID a native window handle. RET the `' wrapper for the native window, or ``#f'' if there is none. -- Function: gdk-pixmap-lookup (anid `unsigned-long') => (ret `') Looks up the `' that wraps the given native pixmap handle. For example in the X backend, a native pixmap handle is an Xlib `'. ANID a native pixmap handle. RET the `' wrapper for the native window, or ``#f'' if there is none.  File: guile-gnome-gdk.info, Node: The GdkPixbuf Structure, Next: File Loading, Prev: X Window System Interaction, Up: Top 29 The GdkPixbuf Structure ************************** Information that describes an image. 29.1 Overview ============= The structure contains information that describes an image in memory. Image data in a pixbuf is stored in memory in uncompressed, packed format. Rows in the image are stored top to bottom, and in each row pixels are stored from left to right. There may be padding at the end of a row. The "rowstride" value of a pixbuf, as returned by `gdk-pixbuf-get-rowstride', indicates the number of bytes between rows. The following code illustrates a simple put_pixel() function for RGB pixbufs with 8 bits per channel with an alpha channel. It is not included in the gdk-pixbuf library for performance reasons; rather than making several function calls for each pixel, your own code can take shortcuts. static void put_pixel (GdkPixbuf *pixbuf, int x, int y, guchar red, guchar green, guchar blue, guchar alpha) { int width, height, rowstride, n_channels; guchar *pixels, *p; n_channels = gdk_pixbuf_get_n_channels (pixbuf); g_assert (gdk_pixbuf_get_colorspace (pixbuf) == GDK_COLORSPACE_RGB); g_assert (gdk_pixbuf_get_bits_per_sample (pixbuf) == 8); g_assert (gdk_pixbuf_get_has_alpha (pixbuf)); g_assert (n_channels == 4); width = gdk_pixbuf_get_width (pixbuf); height = gdk_pixbuf_get_height (pixbuf); g_assert (x >= 0 && x < width); g_assert (y >= 0 && y < height); rowstride = gdk_pixbuf_get_rowstride (pixbuf); pixels = gdk_pixbuf_get_pixels (pixbuf); p = pixels + y * rowstride + x * n_channels; p[0] = red; p[1] = green; p[2] = blue; p[3] = alpha; } This function will not work for pixbufs with images that are other than 8 bits per sample or channel, but it will work for most of the pixbufs that GTK+ uses. If you are doing `memcpy' of raw pixbuf data, note that the last row in the pixbuf may not be as wide as the full rowstride, but rather just as wide as the pixel data needs to be. That is, it is unsafe to do `memcpy (dest, pixels, rowstride * height)' to copy a whole pixbuf. Use `gdk-pixbuf-copy' instead, or compute the width in bytes of the last row as `width * ((n_channels * bits_per_sample + 7) / 8)'. 29.2 Usage ========== -- Class: Derives from `'. This class defines the following slots: `colorspace' The colorspace in which the samples are interpreted `n-channels' The number of samples per pixel `has-alpha' Whether the pixbuf has an alpha channel `bits-per-sample' The number of bits per sample `width' The number of columns of the pixbuf `height' The number of rows of the pixbuf `rowstride' The number of bytes between the start of a row and the start of the next row `pixels' A pointer to the pixel data of the pixbuf -- Function: gdk-pixbuf-get-colorspace (self `') => (ret `') -- Method: get-colorspace Queries the color space of a pixbuf. PIXBUF A pixbuf. RET Color space. -- Function: gdk-pixbuf-get-n-channels (self `') => (ret `int') -- Method: get-n-channels Queries the number of channels of a pixbuf. PIXBUF A pixbuf. RET Number of channels. -- Function: gdk-pixbuf-get-has-alpha (self `') => (ret `bool') -- Method: get-has-alpha Queries whether a pixbuf has an alpha channel (opacity information). PIXBUF A pixbuf. RET ``#t'' if it has an alpha channel, ``#f'' otherwise. -- Function: gdk-pixbuf-get-bits-per-sample (self `') => (ret `int') -- Method: get-bits-per-sample Queries the number of bits per color sample in a pixbuf. PIXBUF A pixbuf. RET Number of bits per color sample. -- Function: gdk-pixbuf-get-width (self `') => (ret `int') -- Method: get-width Queries the width of a pixbuf. PIXBUF A pixbuf. RET Width in pixels. -- Function: gdk-pixbuf-get-height (self `') => (ret `int') -- Method: get-height Queries the height of a pixbuf. PIXBUF A pixbuf. RET Height in pixels. -- Function: gdk-pixbuf-get-rowstride (self `') => (ret `int') -- Method: get-rowstride Queries the rowstride of a pixbuf, which is the number of bytes between the start of a row and the start of the next row. PIXBUF A pixbuf. RET Distance between row starts. -- Function: gdk-pixbuf-get-option (self `') (key `mchars') => (ret `mchars') -- Method: get-option Looks up KEY in the list of options that may have been attached to the PIXBUF when it was loaded. PIXBUF a `' KEY a nul-terminated string. RET the value associated with KEY. This is a nul-terminated string that should not be freed or ``#f'' if KEY was not found.  File: guile-gnome-gdk.info, Node: File Loading, Next: Image Data in Memory, Prev: The GdkPixbuf Structure, Up: Top 30 File Loading *************** Loading a pixbuf from a file. 30.1 Overview ============= The gdk-pixbuf library provides a simple mechanism for loading an image from a file in synchronous fashion. This means that the library takes control of the application while the file is being loaded; from the user's point of view, the application will block until the image is done loading. This interface can be used by applications in which blocking is acceptable while an image is being loaded. It can also be used to load small images in general. Applications that need progressive loading can use the `' functionality instead. 30.2 Usage ========== -- Function: gdk-pixbuf-new-from-file (filename `mchars') => (ret `') Creates a new pixbuf by loading an image from a file. The file format is detected automatically. If ``#f'' is returned, then ERROR will be set. Possible errors are in the `' and `' domains. FILENAME Name of file to load, in the GLib file name encoding ERROR Return location for an error RET A newly-created pixbuf with a reference count of 1, or ``#f'' if any of several error conditions occurred: the file could not be opened, there was no loader for the file's format, there was not enough memory to allocate the image buffer, or the image file contained invalid data. -- Function: gdk-pixbuf-new-from-file-at-size (filename `mchars') (width `int') (height `int') => (ret `') Creates a new pixbuf by loading an image from a file. The file format is detected automatically. If ``#f'' is returned, then ERROR will be set. Possible errors are in the `' and `' domains. The image will be scaled to fit in the requested size, preserving the image's aspect ratio. FILENAME Name of file to load, in the GLib file name encoding WIDTH The width the image should have or -1 to not constrain the width HEIGHT The height the image should have or -1 to not constrain the height ERROR Return location for an error RET A newly-created pixbuf with a reference count of 1, or ``#f'' if any of several error conditions occurred: the file could not be opened, there was no loader for the file's format, there was not enough memory to allocate the image buffer, or the image file contained invalid data. Since 2.4 -- Function: gdk-pixbuf-new-from-file-at-scale (filename `mchars') (width `int') (height `int') (preserve_aspect_ratio `bool') => (ret `') Creates a new pixbuf by loading an image from a file. The file format is detected automatically. If ``#f'' is returned, then ERROR will be set. Possible errors are in the `' and `' domains. The image will be scaled to fit in the requested size, optionally preserving the image's aspect ratio. When preserving the aspect ratio, a WIDTH of -1 will cause the image to be scaled to the exact given height, and a HEIGHT of -1 will cause the image to be scaled to the exact given width. When not preserving aspect ratio, a WIDTH or HEIGHT of -1 means to not scale the image at all in that dimension. Negative values for WIDTH and HEIGHT are allowed since 2.8. FILENAME Name of file to load, in the GLib file name encoding WIDTH The width the image should have or -1 to not constrain the width HEIGHT The height the image should have or -1 to not constrain the height PRESERVE-ASPECT-RATIO ``#t'' to preserve the image's aspect ratio ERROR Return location for an error RET A newly-created pixbuf with a reference count of 1, or ``#f'' if any of several error conditions occurred: the file could not be opened, there was no loader for the file's format, there was not enough memory to allocate the image buffer, or the image file contained invalid data. Since 2.6  File: guile-gnome-gdk.info, Node: Image Data in Memory, Next: Scaling, Prev: File Loading, Up: Top 31 Image Data in Memory *********************** Creating a pixbuf from image data that is already in memory. 31.1 Overview ============= The most basic way to create a pixbuf is to wrap an existing pixel buffer with a `' structure. You can use the `gdk-pixbuf-new-from-data' function to do this You need to specify the destroy notification function that will be called when the data buffer needs to be freed; this will happen when a `' is finalized by the reference counting functions If you have a chunk of static data compiled into your application, you can pass in ``#f'' as the destroy notification function so that the data will not be freed. The `gdk-pixbuf-new' function can be used as a convenience to create a pixbuf with an empty buffer. This is equivalent to allocating a data buffer using ``malloc'' and then wrapping it with `gdk-pixbuf-new-from-data'. The `gdk-pixbuf-new' function will compute an optimal rowstride so that rendering can be performed with an efficient algorithm. As a special case, you can use the `gdk-pixbuf-new-from-xpm-data' function to create a pixbuf from inline XPM image data. You can also copy an existing pixbuf with the `gdk-pixbuf-copy' function. This is not the same as just doing a `g-object-ref' on the old pixbuf; the copy function will actually duplicate the pixel data in memory and create a new `' structure for it. 31.2 Usage ========== -- Function: gdk-pixbuf-new (colorspace `') (has_alpha `bool') (bits_per_sample `int') (width `int') (height `int') => (ret `') Creates a new `' structure and allocates a buffer for it. The buffer has an optimal rowstride. Note that the buffer is not cleared; you will have to fill it completely yourself. COLORSPACE Color space for image HAS-ALPHA Whether the image should have transparency information BITS-PER-SAMPLE Number of bits per color sample WIDTH Width of image in pixels, must be > 0 HEIGHT Height of image in pixels, must be > 0 RET A newly-created `' with a reference count of 1, or ``#f'' if not enough memory could be allocated for the image buffer. -- Function: gdk-pixbuf-new-subpixbuf (self `') (src_x `int') (src_y `int') (width `int') (height `int') => (ret `') -- Method: new-subpixbuf Creates a new pixbuf which represents a sub-region of SRC-PIXBUF. The new pixbuf shares its pixels with the original pixbuf, so writing to one affects both. The new pixbuf holds a reference to SRC-PIXBUF, so SRC-PIXBUF will not be finalized until the new pixbuf is finalized. SRC-PIXBUF a `' SRC-X X coord in SRC-PIXBUF SRC-Y Y coord in SRC-PIXBUF WIDTH width of region in SRC-PIXBUF HEIGHT height of region in SRC-PIXBUF RET a new pixbuf  File: guile-gnome-gdk.info, Node: Scaling, Next: Utilities, Prev: Image Data in Memory, Up: Top 32 Scaling ********** Scaling pixbufs and scaling and compositing pixbufs 32.1 Overview ============= The gdk-pixbuf contains functions to scale pixbufs, to scale pixbufs and composite against an existing image, and to scale pixbufs and composite against a solid color or checkerboard. Compositing a checkerboard is a common way to show an image with an alpha channel in image-viewing and editing software. Since the full-featured functions (`gdk-pixbuf-scale', `gdk-pixbuf-composite', and `gdk-pixbuf-composite-color') are rather complex to use and have many arguments, two simple convenience functions are provided, `gdk-pixbuf-scale-simple' and `gdk-pixbuf-composite-color-simple' which create a new pixbuf of a given size, scale an original image to fit, and then return the new pixbuf. The following example demonstrates handling an expose event by rendering the appropriate area of a source image (which is scaled to fit the widget) onto the widget's window. The source image is rendered against a checkerboard, which provides a visual representation of the alpha channel if the image has one. If the image doesn't have an alpha channel, calling `gdk-pixbuf-composite-color' function has exactly the same effect as calling `gdk-pixbuf-scale'. gboolean expose_cb (GtkWidget *widget, GdkEventExpose *event, gpointer data) { GdkPixbuf *dest; dest = gdk_pixbuf_new (GDK_COLORSPACE_RGB, FALSE, 8, event->area.width, event->area.height); gdk_pixbuf_composite_color (pixbuf, dest, 0, 0, event->area.width, event->area.height, -event->area.x, -event->area.y, (double) widget->allocation.width / gdk_pixbuf_get_width (pixbuf), (double) widget->allocation.height / gdk_pixbuf_get_height (pixbuf), GDK_INTERP_BILINEAR, 255, event->area.x, event->area.y, 16, 0xaaaaaa, 0x555555); gdk_pixbuf_render_to_drawable (dest, widget->window, widget->style->fg_gc[GTK_STATE_NORMAL], 0, 0, event->area.x, event->area.y, event->area.width, event->area.height, GDK_RGB_DITHER_NORMAL, event->area.x, event->area.y); gdk_pixbuf_unref (dest); return TRUE; } 32.2 Usage ========== -- Function: gdk-pixbuf-scale-simple (self `') (dest_width `int') (dest_height `int') (interp_type `') => (ret `') -- Method: scale-simple Create a new `' containing a copy of SRC scaled to DEST-WIDTH x DEST-HEIGHT. Leaves SRC unaffected. INTERP-TYPE should be `' if you want maximum speed (but when scaling down `' is usually unusably ugly). The default INTERP-TYPE should be `' which offers reasonable quality and speed. You can scale a sub-portion of SRC by creating a sub-pixbuf pointing into SRC; see `gdk-pixbuf-new-subpixbuf'. For more complicated scaling/compositing see `gdk-pixbuf-scale' and `gdk-pixbuf-composite'. SRC a `' DEST-WIDTH the width of destination image DEST-HEIGHT the height of destination image INTERP-TYPE the interpolation type for the transformation. RET the new `', or ``#f'' if not enough memory could be allocated for it. -- Function: gdk-pixbuf-scale (self `') (dest `') (dest_x `int') (dest_y `int') (dest_width `int') (dest_height `int') (offset_x `double') (offset_y `double') (scale_x `double') (scale_y `double') (interp_type `') -- Method: scale Creates a transformation of the source image SRC by scaling by SCALE-X and SCALE-Y then translating by OFFSET-X and OFFSET-Y, then renders the rectangle (DEST-X, DEST-Y, DEST-WIDTH, DEST-HEIGHT) of the resulting image onto the destination image replacing the previous contents. Try to use `gdk-pixbuf-scale-simple' first, this function is the industrial-strength power tool you can fall back to if `gdk-pixbuf-scale-simple' isn't powerful enough. SRC a `' DEST the `' into which to render the results DEST-X the left coordinate for region to render DEST-Y the top coordinate for region to render DEST-WIDTH the width of the region to render DEST-HEIGHT the height of the region to render OFFSET-X the offset in the X direction (currently rounded to an integer) OFFSET-Y the offset in the Y direction (currently rounded to an integer) SCALE-X the scale factor in the X direction SCALE-Y the scale factor in the Y direction INTERP-TYPE the interpolation type for the transformation. -- Function: gdk-pixbuf-composite-color-simple (self `') (dest_width `int') (dest_height `int') (interp_type `') (overall_alpha `int') (check_size `int') (color1 `unsigned-int32') (color2 `unsigned-int32') => (ret `') -- Method: composite-color-simple Creates a new `' by scaling SRC to DEST-WIDTH x DEST-HEIGHT and compositing the result with a checkboard of colors COLOR1 and COLOR2. SRC a `' DEST-WIDTH the width of destination image DEST-HEIGHT the height of destination image INTERP-TYPE the interpolation type for the transformation. OVERALL-ALPHA overall alpha for source image (0..255) CHECK-SIZE the size of checks in the checkboard (must be a power of two) COLOR1 the color of check at upper left COLOR2 the color of the other check RET the new `', or ``#f'' if not enough memory could be allocated for it. -- Function: gdk-pixbuf-composite (self `') (dest `') (dest_x `int') (dest_y `int') (dest_width `int') (dest_height `int') (offset_x `double') (offset_y `double') (scale_x `double') (scale_y `double') (interp_type `') (overall_alpha `int') -- Method: composite Creates a transformation of the source image SRC by scaling by SCALE-X and SCALE-Y then translating by OFFSET-X and OFFSET-Y. This gives an image in the coordinates of the destination pixbuf. The rectangle (DEST-X, DEST-Y, DEST-WIDTH, DEST-HEIGHT) is then composited onto the corresponding rectangle of the original destination image. When the destination rectangle contains parts not in the source image, the data at the edges of the source image is replicated to infinity. (The missing figure, pixbuf-composite-diagram SRC a `' DEST the `' into which to render the results DEST-X the left coordinate for region to render DEST-Y the top coordinate for region to render DEST-WIDTH the width of the region to render DEST-HEIGHT the height of the region to render OFFSET-X the offset in the X direction (currently rounded to an integer) OFFSET-Y the offset in the Y direction (currently rounded to an integer) SCALE-X the scale factor in the X direction SCALE-Y the scale factor in the Y direction INTERP-TYPE the interpolation type for the transformation. OVERALL-ALPHA overall alpha for source image (0..255) -- Function: gdk-pixbuf-composite-color (self `') (dest `') (dest_x `int') (dest_y `int') (dest_width `int') (dest_height `int') (offset_x `double') (offset_y `double') (scale_x `double') (scale_y `double') (interp_type `') (overall_alpha `int') (check_x `int') (check_y `int') (check_size `int') (color1 `unsigned-int32') (color2 `unsigned-int32') -- Method: composite-color Creates a transformation of the source image SRC by scaling by SCALE-X and SCALE-Y then translating by OFFSET-X and OFFSET-Y, then composites the rectangle (DEST-X ,DEST-Y, DEST-WIDTH, DEST-HEIGHT) of the resulting image with a checkboard of the colors COLOR1 and COLOR2 and renders it onto the destination image. See `gdk-pixbuf-composite-color-simple' for a simpler variant of this function suitable for many tasks. SRC a `' DEST the `' into which to render the results DEST-X the left coordinate for region to render DEST-Y the top coordinate for region to render DEST-WIDTH the width of the region to render DEST-HEIGHT the height of the region to render OFFSET-X the offset in the X direction (currently rounded to an integer) OFFSET-Y the offset in the Y direction (currently rounded to an integer) SCALE-X the scale factor in the X direction SCALE-Y the scale factor in the Y direction INTERP-TYPE the interpolation type for the transformation. OVERALL-ALPHA overall alpha for source image (0..255) CHECK-X the X offset for the checkboard (origin of checkboard is at -CHECK-X, -CHECK-Y) CHECK-Y the Y offset for the checkboard CHECK-SIZE the size of checks in the checkboard (must be a power of two) COLOR1 the color of check at upper left COLOR2 the color of the other check -- Function: gdk-pixbuf-rotate-simple (self `') (angle `') => (ret `') -- Method: rotate-simple Rotates a pixbuf by a multiple of 90 degrees, and returns the result in a new pixbuf. SRC a `' ANGLE the angle to rotate by RET a new pixbuf Since 2.6 -- Function: gdk-pixbuf-flip (self `') (horizontal `bool') => (ret `') -- Method: flip Flips a pixbuf horizontally or vertically and returns the result in a new pixbuf. SRC a `' HORIZONTAL ``#t'' to flip horizontally, ``#f'' to flip vertically RET a new pixbuf. Since 2.6  File: guile-gnome-gdk.info, Node: Utilities, Next: Animations, Prev: Scaling, Up: Top 33 Utilities ************ Utility and miscellaneous convenience functions. 33.1 Overview ============= These functions provide miscellaneous utilities for manipulating pixbufs. The pixel data in pixbufs may of course be manipulated directly by applications, but several common operations can be performed by these functions instead. 33.2 Usage ========== -- Function: gdk-pixbuf-add-alpha (self `') (substitute_color `bool') (r `unsigned-char') (g `unsigned-char') (b `unsigned-char') => (ret `') -- Method: add-alpha Takes an existing pixbuf and adds an alpha channel to it. If the existing pixbuf already had an alpha channel, the channel values are copied from the original; otherwise, the alpha channel is initialized to 255 (full opacity). If SUBSTITUTE-COLOR is ``#t'', then the color specified by (R, G, B) will be assigned zero opacity. That is, if you pass (255, 255, 255) for the substitute color, all white pixels will become fully transparent. PIXBUF A `'. SUBSTITUTE-COLOR Whether to set a color to zero opacity. If this is ``#f'', then the (R, G, B) arguments will be ignored. R Red value to substitute. G Green value to substitute. B Blue value to substitute. RET A newly-created pixbuf with a reference count of 1. -- Function: gdk-pixbuf-copy-area (self `') (src_x `int') (src_y `int') (width `int') (height `int') (dest_pixbuf `') (dest_x `int') (dest_y `int') -- Method: copy-area Copies a rectangular area from SRC-PIXBUF to DEST-PIXBUF. Conversion of pixbuf formats is done automatically. SRC-PIXBUF Source pixbuf. SRC-X Source X coordinate within SRC-PIXBUF. SRC-Y Source Y coordinate within SRC-PIXBUF. WIDTH Width of the area to copy. HEIGHT Height of the area to copy. DEST-PIXBUF Destination pixbuf. DEST-X X coordinate within DEST-PIXBUF. DEST-Y Y coordinate within DEST-PIXBUF. -- Function: gdk-pixbuf-saturate-and-pixelate (self `') (dest `') (saturation `float') (pixelate `bool') -- Method: saturate-and-pixelate Modifies saturation and optionally pixelates SRC, placing the result in DEST. SRC and DEST may be the same pixbuf with no ill effects. If SATURATION is 1.0 then saturation is not changed. If it's less than 1.0, saturation is reduced (the image turns toward grayscale); if greater than 1.0, saturation is increased (the image gets more vivid colors). If PIXELATE is ``#t'', then pixels are faded in a checkerboard pattern to create a pixelated image. SRC and DEST must have the same image format, size, and rowstride. SRC source image DEST place to write modified version of SRC SATURATION saturation factor PIXELATE whether to pixelate -- Function: gdk-pixbuf-fill (self `') (pixel `unsigned-int32') -- Method: fill Clears a pixbuf to the given RGBA value, converting the RGBA value into the pixbuf's pixel format. The alpha will be ignored if the pixbuf doesn't have an alpha channel. PIXBUF a `' PIXEL RGBA pixel to clear to (0xffffffff is opaque white, 0x00000000 transparent black)  File: guile-gnome-gdk.info, Node: Animations, Next: GdkPixbufLoader, Prev: Utilities, Up: Top 34 Animations ************* Animated images. 34.1 Overview ============= The gdk-pixbuf library provides a simple mechanism to load and represent animations. An animation is conceptually a series of frames to be displayed over time. Each frame is the same size. The animation may not be represented as a series of frames internally; for example, it may be stored as a sprite and instructions for moving the sprite around a background. To display an animation you don't need to understand its representation, however; you just ask gdk-pixbuf what should be displayed at a given point in time. 34.2 Usage ========== -- Class: Derives from `'. This class defines no direct slots. -- Class: Derives from `'. This class defines no direct slots. -- Class: Derives from `'. This class defines no direct slots. -- Function: gdk-pixbuf-animation-new-from-file (filename `mchars') => (ret `') Creates a new animation by loading it from a file. The file format is detected automatically. If the file's format does not support multi-frame images, then an animation with a single frame will be created. Possible errors are in the `' and `' domains. FILENAME Name of file to load, in the GLib file name encoding ERROR return location for error RET A newly-created animation with a reference count of 1, or ``#f'' if any of several error conditions ocurred: the file could not be opened, there was no loader for the file's format, there was not enough memory to allocate the image buffer, or the image file contained invalid data. -- Function: gdk-pixbuf-animation-get-width (self `') => (ret `int') -- Method: get-width Queries the width of the bounding box of a pixbuf animation. ANIMATION An animation. RET Width of the bounding box of the animation. -- Function: gdk-pixbuf-animation-get-height (self `') => (ret `int') -- Method: get-height Queries the height of the bounding box of a pixbuf animation. ANIMATION An animation. RET Height of the bounding box of the animation. -- Function: gdk-pixbuf-simple-anim-new (width `int') (height `int') (rate `float') => (ret `') Creates a new, empty animation. WIDTH the width of the animation HEIGHT the height of the animation RATE the speed of the animation, in frames per second RET a newly allocated `' Since 2.8 -- Function: gdk-pixbuf-simple-anim-add-frame (self `') (pixbuf `') -- Method: add-frame Adds a new frame to ANIMATION. The PIXBUF must have the dimensions specified when the animation was constructed. ANIMATION a `' PIXBUF the pixbuf to add Since 2.8  File: guile-gnome-gdk.info, Node: GdkPixbufLoader, Next: Module Interface, Prev: Animations, Up: Top 35 GdkPixbufLoader ****************** Application-driven progressive image loading. 35.1 Overview ============= `' provides a way for applications to drive the process of loading an image, by letting them send the image data directly to the loader instead of having the loader read the data from a file. Applications can use this functionality instead of `gdk-pixbuf-new-from-file' or `gdk-pixbuf-animation-new-from-file' when they need to parse image data in small chunks. For example, it should be used when reading an image from a (potentially) slow network connection, or when loading an extremely large file. To use `' to load an image, just create a new one, and call `gdk-pixbuf-loader-write' to send the data to it. When done, `gdk-pixbuf-loader-close' should be called to end the stream and finalize everything. The loader will emit three important signals throughout the process. The first, "size_prepared", will be called as soon as the image has enough information to determine the size of the image to be used. If you want to scale the image while loading it, you can call `gdk-pixbuf-loader-set-size' in response to this signal. The second signal, "area_prepared", will be called as soon as the pixbuf of the desired has been allocated. You can obtain it by calling `gdk-pixbuf-loader-get-pixbuf'. If you want to use it, simply ref it. In addition, no actual information will be passed in yet, so the pixbuf can be safely filled with any temporary graphics (or an initial color) as needed. You can also call `gdk-pixbuf-loader-get-pixbuf' later and get the same pixbuf. The last signal, "area_updated" gets called every time a region is updated. This way you can update a partially completed image. Note that you do not know anything about the completeness of an image from the area updated. For example, in an interlaced image, you need to make several passes before the image is done loading. 35.2 Loading an animation ========================= Loading an animation is almost as easy as loading an image. Once the first "area_prepared" signal has been emitted, you can call `gdk-pixbuf-loader-get-animation' to get the `' struct and `gdk-pixbuf-animation-get-iter' to get an `' for displaying it. 35.3 Usage ========== -- Class: Derives from `'. This class defines no direct slots. -- Signal on : closed This signal is emitted when `gdk-pixbuf-loader-close' is called. It can be used by different parts of an application to receive notification when an image loader is closed by the code that drives it. -- Signal on : size-prepared (arg0 `') (arg1 `') This signal is emitted when the pixbuf loader has been fed the initial amount of data that is required to figure out the size of the image that it will create. Applications can call `gdk-pixbuf-loader-set-size' in response to this signal to set the desired size to which the image should be scaled. -- Signal on : area-prepared This signal is emitted when the pixbuf loader has allocated the pixbuf in the desired size. After this signal is emitted, applications can call `gdk-pixbuf-loader-get-pixbuf' to fetch the partially-loaded pixbuf. -- Signal on : area-updated (arg0 `') (arg1 `') (arg2 `') (arg3 `') This signal is emitted when a significant area of the image being loaded has been updated. Normally it means that a complete scanline has been read in, but it could be a different area as well. Applications can use this signal to know when to repaint areas of an image that is being loaded. -- Function: gdk-pixbuf-loader-new => (ret `') Creates a new pixbuf loader object. RET A newly-created pixbuf loader. -- Function: gdk-pixbuf-loader-new-with-type (image_type `mchars') => (ret `') Creates a new pixbuf loader object that always attempts to parse image data as if it were an image of type IMAGE-TYPE, instead of identifying the type automatically. Useful if you want an error if the image isn't the expected type, for loading image formats that can't be reliably identified by looking at the data, or if the user manually forces a specific type. The list of supported image formats depends on what image loaders are installed, but typically "png", "jpeg", "gif", "tiff" and "xpm" are among the supported formats. To obtain the full list of supported image formats, call `gdk-pixbuf-format-get-name' on each of the `' structs returned by `gdk-pixbuf-get-formats'. IMAGE-TYPE name of the image format to be loaded with the image ERROR return location for an allocated `', or ``#f'' to ignore errors RET A newly-created pixbuf loader. -- Function: gdk-pixbuf-loader-get-format (self `') => (ret `') -- Method: get-format Obtains the available information about the format of the currently loading image file. LOADER A pixbuf loader. RET A `' or ``#f''. The return value is owned by GdkPixbuf and should not be freed. Since 2.2 -- Function: gdk-pixbuf-loader-set-size (self `') (width `int') (height `int') -- Method: set-size Causes the image to be scaled while it is loaded. The desired image size can be determined relative to the original size of the image by calling `gdk-pixbuf-loader-set-size' from a signal handler for the ::size_prepared signal. Attempts to set the desired image size are ignored after the emission of the ::size_prepared signal. LOADER A pixbuf loader. WIDTH The desired width of the image being loaded. HEIGHT The desired height of the image being loaded. Since 2.2 -- Function: gdk-pixbuf-loader-get-pixbuf (self `') => (ret `') -- Method: get-pixbuf Queries the `' that a pixbuf loader is currently creating. In general it only makes sense to call this function after the "area_prepared" signal has been emitted by the loader; this means that enough data has been read to know the size of the image that will be allocated. If the loader has not received enough data via `gdk-pixbuf-loader-write', then this function returns ``#f''. The returned pixbuf will be the same in all future calls to the loader, so simply calling `g-object-ref' should be sufficient to continue using it. Additionally, if the loader is an animation, it will return the "static image" of the animation (see `gdk-pixbuf-animation-get-static-image'). LOADER A pixbuf loader. RET The `' that the loader is creating, or ``#f'' if not enough data has been read to determine how to create the image buffer. -- Function: gdk-pixbuf-loader-get-animation (self `') => (ret `') -- Method: get-animation Queries the `' that a pixbuf loader is currently creating. In general it only makes sense to call this function after the "area_prepared" signal has been emitted by the loader. If the loader doesn't have enough bytes yet (hasn't emitted the "area_prepared" signal) this function will return ``#f''. LOADER A pixbuf loader RET The `' that the loader is loading, or ``#f'' if not enough data has been read to determine the information. -- Function: gdk-pixbuf-loader-close (self `') => (ret `bool') -- Method: close Informs a pixbuf loader that no further writes with `gdk-pixbuf-loader-write' will occur, so that it can free its internal loading structures. Also, tries to parse any data that hasn't yet been parsed; if the remaining data is partial or corrupt, an error will be returned. If ``#f'' is returned, ERROR will be set to an error from the `' or `' domains. If you're just cancelling a load rather than expecting it to be finished, passing ``#f'' for ERROR to ignore it is reasonable. LOADER A pixbuf loader. ERROR return location for a `', or ``#f'' to ignore errors RET ``#t'' if all image data written so far was successfully passed out via the update_area signal guile-gnome-platform-2.16.2/gtk/doc/gdk/section-cursors.xml.texi0000644000175000017500000000154611670374302025130 0ustar00wingowingo00000000000000 @c %start of fragment @node Cursors @chapter Cursors Standard and pixmap cursors @section Overview These functions are used to create and destroy cursors. There is a number of standard cursors, but it is also possible to construct new cursors from pixmaps and pixbufs. There may be limitations as to what kinds of cursors can be constructed on a given display, see @code{gdk-display-supports-cursor-alpha}, @code{gdk-display-supports-cursor-color}, @code{gdk-display-get-default-cursor-size} and @code{gdk-display-get-maximal-cursor-size}. Cursors by themselves are not very interesting, they must be be bound to a window for users to see them. This is done with @code{gdk-window-set-cursor} or by setting the cursor member of the @code{} struct passed to @code{gdk-window-new}. @section Usage @include defuns-cursors.xml.texi @c %end of fragment guile-gnome-platform-2.16.2/gtk/doc/gdk/defuns-module_interface.xml.texi0000644000175000017500000000075211670374302026553 0ustar00wingowingo00000000000000 @c %start of fragment @deffn Function gdk-pixbuf-get-formats @result{}@tie{} (ret@tie{}@code{gslist-of}) Obtains the available information about the image formats supported by GdkPixbuf. @table @var @item ret A list of @code{}s describing the supported image formats. The list should be freed when it is no longer needed, but the structures themselves are owned by @code{} and should not be freed. @end table Since 2.2 @end deffn @c %end of fragment guile-gnome-platform-2.16.2/gtk/doc/gdk/section-pango_interaction.xml.texi0000644000175000017500000001061011670374302027123 0ustar00wingowingo00000000000000 @c %start of fragment @node Pango Interaction @chapter Pango Interaction Using Pango in GDK @section Overview Pango is the text layout system used by GDK and GTK+. The functions and types in this section are used to render Pango objects to GDK. drawables, and also extend the set of Pango attributes to include stippling and embossing. Creating a @code{} object is the first step in rendering text, and requires getting a handle to a @code{}. For GTK+ programs, you'll usually want to use @code{gtk-widget-get-pango-context}, or @code{gtk-widget-create-pango-layout}, rather than using the lowlevel @code{gdk-pango-context-get-for-screen}. Once you have a @code{}, you can set the text and attributes of it with Pango functions like @code{pango-layout-set-text} and get its size with @code{pango-layout-get-size}. (Note that Pango uses a fixed point system internally, so converting between Pango units and pixels using PANGO_SCALE or the @code{pango-pixels} macro.) Rendering a Pango layout is done most simply with @code{gdk-draw-layout}; you can also draw pieces of the layout with @code{gdk-draw-layout} or @code{gdk-draw-glyphs}. @code{} is a subclass of @code{} that is used internally to implement these functions. Using it directly or subclassing it can be useful in some cases. See the @code{} documentation for details. @example #define RADIUS 100 #define N_WORDS 10 #define FONT "Sans Bold 18" GdkScreen *screen = gdk_drawable_get_screen (drawable); PangoRenderer *renderer; GdkGC *gc; PangoMatrix matrix = PANGO_MATRIX_INIT; PangoContext *context; PangoLayout *layout; PangoFontDescription *desc; double device_radius; int width, height; int i; /* Get the default renderer for the screen, and set it up for drawing */ renderer = gdk_pango_renderer_get_default (screen); gdk_pango_renderer_set_drawable (GDK_PANGO_RENDERER (renderer), drawable); gc = gdk_gc_new (drawable); gdk_pango_renderer_set_gc (GDK_PANGO_RENDERER (renderer), gc); /* Set up a transformation matrix so that the user space coordinates for * where we are drawing are [-RADIUS, RADIUS], [-RADIUS, RADIUS] * We first center, then change the scale */ gdk_drawable_get_size (drawable, &width, &height); device_radius = MIN (width, height) / 2.; pango_matrix_translate (&matrix, device_radius + (width - 2 * device_radius) / 2, device_radius + (height - 2 * device_radius) / 2); pango_matrix_scale (&matrix, device_radius / RADIUS, device_radius / RADIUS); /* Create a PangoLayout, set the font and text */ context = gdk_pango_context_get_for_screen (screen); layout = pango_layout_new (context); pango_layout_set_text (layout, "Text", -1); desc = pango_font_description_from_string (FONT); pango_layout_set_font_description (layout, desc); pango_font_description_free (desc); /* Draw the layout N_WORDS times in a circle */ for (i = 0; i < N_WORDS; i++) @{ GdkColor color; PangoMatrix rotated_matrix = matrix; int width, height; double angle = (360. * i) / N_WORDS; /* Gradient from red at angle == 60 to blue at angle == 300 */ color.red = 65535 * (1 + cos ((angle - 60) * M_PI / 180.)) / 2; color.green = 0; color.blue = 65535 - color.red; gdk_pango_renderer_set_override_color (GDK_PANGO_RENDERER (renderer), PANGO_RENDER_PART_FOREGROUND, &color); pango_matrix_rotate (&rotated_matrix, angle); pango_context_set_matrix (context, &rotated_matrix); /* Inform Pango to re-layout the text with the new transformation matrix */ pango_layout_context_changed (layout); pango_layout_get_size (layout, &width, &height); pango_renderer_draw_layout (renderer, layout, - width / 2, - RADIUS * PANGO_SCALE); @} /* Clean up default renderer, since it is shared */ gdk_pango_renderer_set_override_color (GDK_PANGO_RENDERER (renderer), PANGO_RENDER_PART_FOREGROUND, NULL); gdk_pango_renderer_set_drawable (GDK_PANGO_RENDERER (renderer), NULL); gdk_pango_renderer_set_gc (GDK_PANGO_RENDERER (renderer), NULL); /* free the objects we created */ g_object_unref (layout); g_object_unref (context); g_object_unref (gc); @end example @section Usage @include defuns-pango_interaction.xml.texi @c %end of fragment guile-gnome-platform-2.16.2/gtk/doc/gdk/defuns-util.xml.texi0000644000175000017500000000655211670374302024227 0ustar00wingowingo00000000000000 @c %start of fragment @deffn Function gdk-pixbuf-add-alpha (self@tie{}@code{}) (substitute_color@tie{}@code{bool}) (r@tie{}@code{unsigned-char}) (g@tie{}@code{unsigned-char}) (b@tie{}@code{unsigned-char}) @result{}@tie{} (ret@tie{}@code{}) @deffnx Method add-alpha Takes an existing pixbuf and adds an alpha channel to it. If the existing pixbuf already had an alpha channel, the channel values are copied from the original; otherwise, the alpha channel is initialized to 255 (full opacity). If @var{substitute-color} is @samp{@code{#t}}, then the color specified by (@var{r}, @var{g}, @var{b}) will be assigned zero opacity. That is, if you pass (255, 255, 255) for the substitute color, all white pixels will become fully transparent. @table @var @item pixbuf A @code{}. @item substitute-color Whether to set a color to zero opacity. If this is @samp{@code{#f}}, then the (@var{r}, @var{g}, @var{b}) arguments will be ignored. @item r Red value to substitute. @item g Green value to substitute. @item b Blue value to substitute. @item ret A newly-created pixbuf with a reference count of 1. @end table @end deffn @deffn Function gdk-pixbuf-copy-area (self@tie{}@code{}) (src_x@tie{}@code{int}) (src_y@tie{}@code{int}) (width@tie{}@code{int}) (height@tie{}@code{int}) (dest_pixbuf@tie{}@code{}) (dest_x@tie{}@code{int}) (dest_y@tie{}@code{int}) @deffnx Method copy-area Copies a rectangular area from @var{src-pixbuf} to @var{dest-pixbuf}. Conversion of pixbuf formats is done automatically. @table @var @item src-pixbuf Source pixbuf. @item src-x Source X coordinate within @var{src-pixbuf}. @item src-y Source Y coordinate within @var{src-pixbuf}. @item width Width of the area to copy. @item height Height of the area to copy. @item dest-pixbuf Destination pixbuf. @item dest-x X coordinate within @var{dest-pixbuf}. @item dest-y Y coordinate within @var{dest-pixbuf}. @end table @end deffn @deffn Function gdk-pixbuf-saturate-and-pixelate (self@tie{}@code{}) (dest@tie{}@code{}) (saturation@tie{}@code{float}) (pixelate@tie{}@code{bool}) @deffnx Method saturate-and-pixelate Modifies saturation and optionally pixelates @var{src}, placing the result in @var{dest}. @var{src} and @var{dest} may be the same pixbuf with no ill effects. If @var{saturation} is 1.0 then saturation is not changed. If it's less than 1.0, saturation is reduced (the image turns toward grayscale); if greater than 1.0, saturation is increased (the image gets more vivid colors). If @var{pixelate} is @samp{@code{#t}}, then pixels are faded in a checkerboard pattern to create a pixelated image. @var{src} and @var{dest} must have the same image format, size, and rowstride. @table @var @item src source image @item dest place to write modified version of @var{src} @item saturation saturation factor @item pixelate whether to pixelate @end table @end deffn @deffn Function gdk-pixbuf-fill (self@tie{}@code{}) (pixel@tie{}@code{unsigned-int32}) @deffnx Method fill Clears a pixbuf to the given RGBA value, converting the RGBA value into the pixbuf's pixel format. The alpha will be ignored if the pixbuf doesn't have an alpha channel. @table @var @item pixbuf a @code{} @item pixel RGBA pixel to clear to (0xffffffff is opaque white, 0x00000000 transparent black) @end table @end deffn @c %end of fragment guile-gnome-platform-2.16.2/gtk/doc/gdk/section-regions.xml.texi0000644000175000017500000000217011670374302025070 0ustar00wingowingo00000000000000 @c %start of fragment @node Points Rectangles and Regions @chapter Points, Rectangles and Regions Simple graphical data types @section Overview GDK provides the @code{}, @code{}, @code{} and @code{} data types for representing pixels and sets of pixels on the screen. @code{} is a simple structure containing an x and y coordinate of a point. @code{} is a structure holding the position and size of a rectangle. The intersection of two rectangles can be computed with @code{gdk-rectangle-intersect}. To find the union of two rectangles use @code{gdk-rectangle-union}. @code{} is an opaque data type holding a set of arbitrary pixels, and is usually used for clipping graphical operations (see @code{gdk-gc-set-clip-region}). @code{} is a structure holding a spanline. A spanline is a horizontal line that is one pixel wide. It is mainly used when rasterizing other graphics primitives. It can be intersected to regions by using @code{gdk-region-spans-intersect-foreach}. @section Usage @include defuns-regions.xml.texi @c %end of fragment guile-gnome-platform-2.16.2/gtk/doc/gdk/guile-gnome-gdk.info0000644000175000017500000001036511752516272024130 0ustar00wingowingo00000000000000This is guile-gnome-gdk.info, produced by makeinfo version 4.13 from guile-gnome-gdk.texi. This manual is for `(gnome gdk)' (version 2.16.2, updated 9 December 2011) GDK documentation Copyright 1997-2007 Damon Chaplin and others This work may be reproduced and distributed in whole or in part, in any medium, physical or electronic, so as long as this copyright notice remains intact and unchanged on all copies. Commercial redistribution is permitted and encouraged, but you may not redistribute, in whole or in part, under terms more restrictive than those under which you received it. If you redistribute a modified or translated version of this work, you must also make the source code to the modified or translated version available in electronic form without charge. However, mere aggregation as part of a larger work shall not count as a modification for this purpose. All code examples in this work are placed into the public domain, and may be used, modified and redistributed without restriction. BECAUSE THIS WORK IS LICENSED FREE OF CHARGE, THERE IS NO WARRANTY FOR THE WORK, TO THE EXTENT PERMITTED BY APPLICABLE LAW. EXCEPT WHEN OTHERWISE STATED IN WRITING THE COPYRIGHT HOLDERS AND/OR OTHER PARTIES PROVIDE THE WORK "AS IS" WITHOUT WARRANTY OF ANY KIND, EITHER EXPRESSED OR IMPLIED, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE. SHOULD THE WORK PROVE DEFECTIVE, YOU ASSUME THE COST OF ALL NECESSARY REPAIR OR CORRECTION. IN NO EVENT UNLESS REQUIRED BY APPLICABLE LAW OR AGREED TO IN WRITING WILL ANY COPYRIGHT HOLDER, OR ANY OTHER PARTY WHO MAY MODIFY AND/OR REDISTRIBUTE THE WORK AS PERMITTED ABOVE, BE LIABLE TO YOU FOR DAMAGES, INCLUDING ANY GENERAL, SPECIAL, INCIDENTAL OR CONSEQUENTIAL DAMAGES ARISING OUT OF THE USE OR INABILITY TO USE THE WORK, EVEN IF SUCH HOLDER OR OTHER PARTY HAS BEEN ADVISED OF THE POSSIBILITY OF SUCH DAMAGES. GDK-Pixbuf documentation Copyright 2000 Free Software Foundation. Permission is granted to copy, distribute and/or modify this document under the terms of the GNU Free Documentation License, Version 1.1 or any later version published by the Free Software Foundation with no Invariant Sections, no Front-Cover Texts, and no Back-Cover Texts. You may obtain a copy of the GNU Free Documentation License from the Free Software Foundation by visiting their Web site or by writing to: The Free Software Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA Many of the names used by companies to distinguish their products and services are claimed as trademarks. Where those names appear in any GNOME documentation, and those trademarks are made aware to the members of the GNOME Documentation Project, the names have been printed in caps or initial caps. INFO-DIR-SECTION The Algorithmic Language Scheme START-INFO-DIR-ENTRY * Guile-Gdk: (guile-gnome-gdk.info). The GIMP Drawing Kit. END-INFO-DIR-ENTRY  Indirect: guile-gnome-gdk.info-1: 3177 guile-gnome-gdk.info-2: 303164  Tag Table: (Indirect) Node: Top3177 Node: Overview8414 Node: General8704 Node: GdkDisplay20700 Node: GdkDisplayManager32990 Node: GdkScreen34776 Node: Points Rectangles and Regions52023 Node: Graphics Contexts57872 Node: Drawing Primitives67989 Node: Bitmaps and Pixmaps90408 Node: GdkRGB93051 Node: Images100626 Node: Pixbufs104938 Node: Colormaps and Colors115191 Node: Visuals119681 Node: Fonts124839 Node: Cursors137428 Node: Windows145030 Node: Events203049 Node: Event Structures208421 Node: Key Values210760 Node: Selections218948 Node: Drag and Drop224917 Node: Properties and Atoms229493 Node: Threads232199 Node: Input Devices239550 Node: Pango Interaction246202 Node: Cairo Interaction256736 Node: X Window System Interaction259655 Node: The GdkPixbuf Structure263122 Node: File Loading268525 Node: Image Data in Memory272952 Node: Scaling276126 Node: Utilities287105 Node: Animations290759 Node: GdkPixbufLoader294106 Node: Module Interface303164 Node: Undocumented305787 Node: Type Index307065 Node: Function Index310605  End Tag Table guile-gnome-platform-2.16.2/gtk/doc/gdk/section-windows.xml.texi0000644000175000017500000000121211670374302025110 0ustar00wingowingo00000000000000 @c %start of fragment @node Windows @chapter Windows Onscreen display areas in the target window system @section Overview A @code{} is a rectangular region on the screen. It's a low-level object, used to implement high-level objects such as @code{} and @code{} on the GTK+ level. A @code{} is a toplevel window, the thing a user might think of as a "window" with a titlebar and so on; a @code{} may contain many @code{}. For example, each @code{} has a @code{} associated with it. @section Usage @include defuns-windows.xml.texi @c %end of fragment guile-gnome-platform-2.16.2/gtk/doc/gdk/section-gdkdisplaymanager.xml.texi0000644000175000017500000000055111670374302027111 0ustar00wingowingo00000000000000 @c %start of fragment @node GdkDisplayManager @chapter GdkDisplayManager Maintains a list of all open s @section Overview The purpose of the @code{} singleton object is to offer notification when displays appear or disappear or the default display changes. @section Usage @include defuns-gdkdisplaymanager.xml.texi @c %end of fragment guile-gnome-platform-2.16.2/gtk/doc/gdk/defuns-keys.xml.texi0000644000175000017500000001154211670374302024220 0ustar00wingowingo00000000000000 @c %start of fragment @deftp Class Derives from @code{}. This class defines no direct slots. @end deftp @defop Signal direction-changed The ::direction_changed signal gets emitted when the direction of the keymap changes. Since 2.0 @end defop @defop Signal keys-changed The ::keys_changed signal is emitted when the mapping represented by @var{keymap} changes. Since 2.2 @end defop @deffn Function gdk-keymap-get-default @result{}@tie{} (ret@tie{}@code{}) Returns the @code{} attached to the default display. @table @var @item ret the @code{} attached to the default display. @end table @end deffn @deffn Function gdk-keymap-get-for-display (display@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{}) Returns the @code{} attached to @var{display}. @table @var @item display the @code{}. @item ret the @code{} attached to @var{display}. @end table Since 2.2 @end deffn @deffn Function gdk-keymap-get-direction (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{}) @deffnx Method get-direction Returns the direction of the keymap. @table @var @item keymap a @code{} or @samp{@code{#f}} to use the default keymap. Returns: @samp{PANGO_DIRECTION_LTR} or @samp{PANGO_DIRECTION_RTL}. @item ret the direction of the keymap. @end table @end deffn @deffn Function gdk-keyval-name (keyval@tie{}@code{unsigned-int}) @result{}@tie{} (ret@tie{}@code{mchars}) Converts a key value into a symbolic name. The names are the same as those in the @file{} header file but without the leading "GDK_". @table @var @item keyval a key value. @item ret a string containing the name of the key, or @samp{@code{#f}} if @var{keyval} is not a valid key. The string should not be modified. @end table @end deffn @deffn Function gdk-keyval-from-name (keyval_name@tie{}@code{mchars}) @result{}@tie{} (ret@tie{}@code{unsigned-int}) Converts a key name to a key value. @table @var @item keyval-name a key name. @item ret the corresponding key value, or @samp{GDK_VoidSymbol} if the key name is not a valid key. @end table @end deffn @deffn Function gdk-keyval-convert-case (symbol@tie{}@code{unsigned-int}) @result{}@tie{} (lower@tie{}@code{unsigned-int}) (upper@tie{}@code{unsigned-int}) Obtains the upper- and lower-case versions of the keyval @var{symbol}. Examples of keyvals are @code{}, @code{}, @code{}, etc. @table @var @item symbol a keyval @item lower return location for lowercase version of @var{symbol} @item upper return location for uppercase version of @var{symbol} @end table @end deffn @deffn Function gdk-keyval-to-upper (keyval@tie{}@code{unsigned-int}) @result{}@tie{} (ret@tie{}@code{unsigned-int}) Converts a key value to upper case, if applicable. @table @var @item keyval a key value. @item ret the upper case form of @var{keyval}, or @var{keyval} itself if it is already in upper case or it is not subject to case conversion. @end table @end deffn @deffn Function gdk-keyval-to-lower (keyval@tie{}@code{unsigned-int}) @result{}@tie{} (ret@tie{}@code{unsigned-int}) Converts a key value to lower case, if applicable. @table @var @item keyval a key value. @item ret the lower case form of @var{keyval}, or @var{keyval} itself if it is already in lower case or it is not subject to case conversion. @end table @end deffn @deffn Function gdk-keyval-is-upper (keyval@tie{}@code{unsigned-int}) @result{}@tie{} (ret@tie{}@code{bool}) Returns @samp{@code{#t}} if the given key value is in upper case. @table @var @item keyval a key value. @item ret @samp{@code{#t}} if @var{keyval} is in upper case, or if @var{keyval} is not subject to case conversion. @end table @end deffn @deffn Function gdk-keyval-is-lower (keyval@tie{}@code{unsigned-int}) @result{}@tie{} (ret@tie{}@code{bool}) Returns @samp{@code{#t}} if the given key value is in lower case. @table @var @item keyval a key value. @item ret @samp{@code{#t}} if @var{keyval} is in lower case, or if @var{keyval} is not subject to case conversion. @end table @end deffn @deffn Function gdk-keyval-to-unicode (keyval@tie{}@code{unsigned-int}) @result{}@tie{} (ret@tie{}@code{unsigned-int32}) Convert from a GDK key symbol to the corresponding ISO10646 (Unicode) character. @table @var @item keyval a GDK key symbol @item ret the corresponding unicode character, or 0 if there is no corresponding character. @end table @end deffn @deffn Function gdk-unicode-to-keyval (wc@tie{}@code{unsigned-int32}) @result{}@tie{} (ret@tie{}@code{unsigned-int}) Convert from a ISO10646 character to a key symbol. @table @var @item wc a ISO10646 encoded character @item ret the corresponding GDK key symbol, if one exists. or, if there is no corresponding symbol, wc | 0x01000000 @end table @end deffn @c %end of fragment guile-gnome-platform-2.16.2/gtk/doc/gdk/defuns-regions.xml.texi0000644000175000017500000001264311670374302024716 0ustar00wingowingo00000000000000 @c %start of fragment @deftp Class Derives from @code{}. This class defines no direct slots. @end deftp @deftp Class Opaque pointer. This class defines no direct slots. @end deftp @deffn Function gdk-region-new @result{}@tie{} (ret@tie{}@code{}) Creates a new empty @code{}. @table @var @item ret a new empty @code{} @end table @end deffn @deffn Function gdk-region-copy (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{}) Copies @var{region}, creating an identical new region. @table @var @item region a @code{} @item ret a new region identical to @var{region} @end table @end deffn @deffn Function gdk-region-rectangle (rectangle@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{}) Creates a new region containing the area @var{rectangle}. @table @var @item rectangle a @code{} @item ret a new region @end table @end deffn @deffn Function gdk-region-destroy (self@tie{}@code{}) Destroys a @code{}. @table @var @item region a @code{} @end table @end deffn @deffn Function gdk-region-empty (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{bool}) Finds out if the @code{} is empty. @table @var @item region a @code{} @item ret @samp{@code{#t}} if @var{region} is empty. @end table @end deffn @deffn Function gdk-region-equal (self@tie{}@code{}) (region2@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{bool}) Finds out if the two regions are the same. @table @var @item region1 a @code{} @item region2 a @code{} @item ret @samp{@code{#t}} if @var{region1} and @var{region2} are equal. @end table @end deffn @deffn Function gdk-region-point-in (self@tie{}@code{}) (x@tie{}@code{int}) (y@tie{}@code{int}) @result{}@tie{} (ret@tie{}@code{bool}) Finds out if a point is in a region. @table @var @item region a @code{} @item x the x coordinate of a point @item y the y coordinate of a point @item ret @samp{@code{#t}} if the point is in @var{region}. @end table @end deffn @deffn Function gdk-region-rect-in (self@tie{}@code{}) (rectangle@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{}) Tests whether a rectangle is within a region. @table @var @item region a @code{}. @item rectangle a @code{}. @item ret @samp{GDK_OVERLAP_RECTANGLE_IN}, @samp{GDK_OVERLAP_RECTANGLE_OUT}, or @samp{GDK_OVERLAP_RECTANGLE_PART}, depending on whether the rectangle is inside, outside, or partly inside the @code{}, respectively. @end table @end deffn @deffn Function gdk-region-offset (self@tie{}@code{}) (dx@tie{}@code{int}) (dy@tie{}@code{int}) Moves a region the specified distance. @table @var @item region a @code{} @item dx the distance to move the region horizontally @item dy the distance to move the region vertically @end table @end deffn @deffn Function gdk-region-shrink (self@tie{}@code{}) (dx@tie{}@code{int}) (dy@tie{}@code{int}) Resizes a region by the specified amount. Positive values shrink the region. Negative values expand it. @table @var @item region a @code{} @item dx the number of pixels to shrink the region horizontally @item dy the number of pixels to shrink the region vertically @end table @end deffn @deffn Function gdk-region-union-with-rect (self@tie{}@code{}) (rect@tie{}@code{}) Sets the area of @var{region} to the union of the areas of @var{region} and @var{rect}. The resulting area is the set of pixels contained in either @var{region} or @var{rect}. @table @var @item region a @code{}. @item rect a @code{}. @end table @end deffn @deffn Function gdk-region-intersect (self@tie{}@code{}) (source2@tie{}@code{}) Sets the area of @var{source1} to the intersection of the areas of @var{source1} and @var{source2}. The resulting area is the set of pixels contained in both @var{source1} and @var{source2}. @table @var @item source1 a @code{} @item source2 another @code{} @end table @end deffn @deffn Function gdk-region-union (self@tie{}@code{}) (source2@tie{}@code{}) Sets the area of @var{source1} to the union of the areas of @var{source1} and @var{source2}. The resulting area is the set of pixels contained in either @var{source1} or @var{source2}. @table @var @item source1 a @code{} @item source2 a @code{} @end table @end deffn @deffn Function gdk-region-subtract (self@tie{}@code{}) (source2@tie{}@code{}) Subtracts the area of @var{source2} from the area @var{source1}. The resulting area is the set of pixels contained in @var{source1} but not in @var{source2}. @table @var @item source1 a @code{} @item source2 another @code{} @end table @end deffn @deffn Function gdk-region-xor (self@tie{}@code{}) (source2@tie{}@code{}) Sets the area of @var{source1} to the exclusive-OR of the areas of @var{source1} and @var{source2}. The resulting area is the set of pixels contained in one or the other of the two sources but not in both. @table @var @item source1 a @code{} @item source2 another @code{} @end table @end deffn @c %end of fragment guile-gnome-platform-2.16.2/gtk/doc/gdk/section-visuals.xml.texi0000644000175000017500000000410711670374302025112 0ustar00wingowingo00000000000000 @c %start of fragment @node Visuals @chapter Visuals Low-level display hardware information @section Overview A @code{} describes a particular video hardware display format. It includes information about the number of bits used for each color, the way the bits are translated into an RGB value for display, and the way the bits are stored in memory. For example, a piece of display hardware might support 24-bit color, 16-bit color, or 8-bit color; meaning 24/16/8-bit pixel sizes. For a given pixel size, pixels can be in different formats; for example the "red" element of an RGB pixel may be in the top 8 bits of the pixel, or may be in the lower 4 bits. Usually you can avoid thinking about visuals in GTK+. Visuals are useful to interpret the contents of a @code{}, but you should avoid @code{} precisely because its contents depend on the display hardware; use @code{} instead, for all but the most low-level purposes. Also, anytime you provide a @code{}, the visual is implied as part of the colormap (@code{gdk-colormap-get-visual}), so you won't have to provide a visual in addition. There are several standard visuals. The visual returned by @code{gdk-visual-get-system} is the system's default visual. @code{gdk-rgb-get-visual} return the visual most suited to displaying full-color image data. If you use the calls in @code{}, you should create your windows using this visual (and the colormap returned by @code{gdk-rgb-get-colormap}). A number of functions are provided for determining the "best" available visual. For the purposes of making this determination, higher bit depths are considered better, and for visuals of the same bit depth, @samp{GDK_VISUAL_PSEUDO_COLOR} is preferred at 8bpp, otherwise, the visual types are ranked in the order of (highest to lowest) @samp{GDK_VISUAL_DIRECT_COLOR}, @samp{GDK_VISUAL_TRUE_COLOR}, @samp{GDK_VISUAL_PSEUDO_COLOR}, @samp{GDK_VISUAL_STATIC_COLOR}, @samp{GDK_VISUAL_GRAYSCALE}, then @samp{GDK_VISUAL_STATIC_GRAY}. @section Usage @include defuns-visuals.xml.texi @c %end of fragment guile-gnome-platform-2.16.2/gtk/doc/gdk/section-file-loading.xml.texi0000644000175000017500000000135311670374302025756 0ustar00wingowingo00000000000000 @c %start of fragment @node File Loading @chapter File Loading Loading a pixbuf from a file. @section Overview The gdk-pixbuf library provides a simple mechanism for loading an image from a file in synchronous fashion. This means that the library takes control of the application while the file is being loaded; from the user's point of view, the application will block until the image is done loading. This interface can be used by applications in which blocking is acceptable while an image is being loaded. It can also be used to load small images in general. Applications that need progressive loading can use the @code{} functionality instead. @section Usage @include defuns-file-loading.xml.texi @c %end of fragment guile-gnome-platform-2.16.2/gtk/doc/gdk/defuns-selections.xml.texi0000644000175000017500000001073011670374302025413 0ustar00wingowingo00000000000000 @c %start of fragment @deffn Function gdk-selection-owner-set (owner@tie{}@code{}) (selection@tie{}@code{}) (time_@tie{}@code{unsigned-int32}) (send_event@tie{}@code{bool}) @result{}@tie{} (ret@tie{}@code{bool}) Sets the owner of the given selection. @table @var @item owner a @code{} or @samp{@code{#f}} to indicate that the the owner for the given should be unset. @item selection an atom identifying a selection. @item time timestamp to use when setting the selection. If this is older than the timestamp given last time the owner was set for the given selection, the request will be ignored. @item send-event if @samp{@code{#t}}, and the new owner is different from the current owner, the current owner will be sent a SelectionClear event. @item ret @samp{@code{#t}} if the selection owner was successfully changed to @var{owner}, otherwise @samp{@code{#f}}. @end table @end deffn @deffn Function gdk-selection-owner-set-for-display (display@tie{}@code{}) (owner@tie{}@code{}) (selection@tie{}@code{}) (time_@tie{}@code{unsigned-int32}) (send_event@tie{}@code{bool}) @result{}@tie{} (ret@tie{}@code{bool}) Sets the @code{}@var{owner} as the current owner of the selection @var{selection}. @table @var @item display the @code{}. @item owner a @code{} or @samp{@code{#f}} to indicate that the owner for the given should be unset. @item selection an atom identifying a selection. @item time timestamp to use when setting the selection. If this is older than the timestamp given last time the owner was set for the given selection, the request will be ignored. @item send-event if @samp{@code{#t}}, and the new owner is different from the current owner, the current owner will be sent a SelectionClear event. @item ret @samp{@code{#t}} if the selection owner was successfully changed to owner, otherwise @samp{@code{#f}}. @end table Since 2.2 @end deffn @deffn Function gdk-selection-owner-get (selection@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{}) Determines the owner of the given selection. @table @var @item selection an atom indentifying a selection. @item ret if there is a selection owner for this window, and it is a window known to the current process, the @code{} that owns the selection, otherwise @samp{@code{#f}}. Note that the return value may be owned by a different process if a foreign window was previously created for that window, but a new foreign window will never be created by this call. @end table @end deffn @deffn Function gdk-selection-owner-get-for-display (display@tie{}@code{}) (selection@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{}) Determine the owner of the given selection. Note that the return value may be owned by a different process if a foreign window was previously created for that window, but a new foreign window will never be created by this call. @table @var @item display a @code{}. @item selection an atom indentifying a selection. @item ret if there is a selection owner for this window, and it is a window known to the current process, the @code{} that owns the selection, otherwise @samp{@code{#f}}. @end table Since 2.2 @end deffn @deffn Function gdk-selection-convert (requestor@tie{}@code{}) (selection@tie{}@code{}) (target@tie{}@code{}) (time_@tie{}@code{unsigned-int32}) Retrieves the contents of a selection in a given form. @table @var @item requestor a @code{}. @item selection an atom identifying the selection to get the contents of. @item target the form in which to retrieve the selection. @item time the timestamp to use when retrieving the selection. The selection owner may refuse the request if it did not own the selection at the time indicated by the timestamp. @end table @end deffn @deffn Function gdk-selection-send-notify (requestor@tie{}@code{unsigned-int32}) (selection@tie{}@code{}) (target@tie{}@code{}) (property@tie{}@code{}) (time_@tie{}@code{unsigned-int32}) Sends a response to SelectionRequest event. @table @var @item requestor window to which to deliver response. @item selection selection that was requested. @item target target that was selected. @item property property in which the selection owner stored the data, or @samp{GDK_NONE} to indicate that the request was rejected. @item time timestamp. @end table @end deffn @c %end of fragment guile-gnome-platform-2.16.2/gtk/doc/gdk/defuns-pixmaps.xml.texi0000644000175000017500000000431211670374302024723 0ustar00wingowingo00000000000000 @c %start of fragment @deffn Function gdk-pixmap-new (drawable@tie{}@code{}) (width@tie{}@code{int}) (height@tie{}@code{int}) (depth@tie{}@code{int}) @result{}@tie{} (ret@tie{}@code{}) Create a new pixmap with a given size and depth. @table @var @item drawable A @code{}, used to determine default values for the new pixmap. Can be @samp{@code{#f}} if @var{depth} is specified, @item width The width of the new pixmap in pixels. @item height The height of the new pixmap in pixels. @item depth The depth (number of bits per pixel) of the new pixmap. If -1, and @var{drawable} is not @samp{@code{#f}}, the depth of the new pixmap will be equal to that of @var{drawable}. @item ret the @code{} @end table @end deffn @deffn Function gdk-bitmap-create-from-data (drawable@tie{}@code{}) (data@tie{}@code{mchars}) (width@tie{}@code{int}) (height@tie{}@code{int}) @result{}@tie{} (ret@tie{}@code{}) Creates a new bitmap from data in XBM format. @table @var @item drawable a @code{}, used to determine default values for the new pixmap. Can be @samp{@code{#f}}, in which case the root window is used. @item data a pointer to the XBM data. @item width the width of the new pixmap in pixels. @item height the height of the new pixmap in pixels. @item ret the @code{} @end table @end deffn @deffn Function gdk-pixmap-create-from-data (drawable@tie{}@code{}) (data@tie{}@code{mchars}) (width@tie{}@code{int}) (height@tie{}@code{int}) (depth@tie{}@code{int}) (fg@tie{}@code{}) (bg@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{}) Create a two-color pixmap from data in XBM data. @table @var @item drawable a @code{}, used to determine default values for the new pixmap. Can be @samp{@code{#f}}, if the depth is given. @item data a pointer to the data. @item width the width of the new pixmap in pixels. @item height the height of the new pixmap in pixels. @item depth the depth (number of bits per pixel) of the new pixmap. @item fg the foreground color. @item bg the background color. @item ret the @code{} @end table @end deffn @c %end of fragment guile-gnome-platform-2.16.2/gtk/doc/gdk/overrides.texi0000644000175000017500000000000011670374302023151 0ustar00wingowingo00000000000000guile-gnome-platform-2.16.2/gtk/doc/gdk/defuns-images.xml.texi0000644000175000017500000000714411670374302024515 0ustar00wingowingo00000000000000 @c %start of fragment @deftp Class Derives from @code{}. This class defines no direct slots. @end deftp @deffn Function gdk-image-new (type@tie{}@code{}) (visual@tie{}@code{}) (width@tie{}@code{int}) (height@tie{}@code{int}) @result{}@tie{} (ret@tie{}@code{}) Creates a new @code{}. @table @var @item type the type of the @code{}, one of @samp{GDK_IMAGE_NORMAL}, @samp{GDK_IMAGE_SHARED} and @samp{GDK_IMAGE_FASTEST}. @samp{GDK_IMAGE_FASTEST} is probably the best choice, since it will try creating a @samp{GDK_IMAGE_SHARED} image first and if that fails it will then use @samp{GDK_IMAGE_NORMAL}. @item visual the @code{} to use for the image. @item width the width of the image in pixels. @item height the height of the image in pixels. @item ret a new @code{}, or @samp{@code{#f}} if the image could not be created. @end table @end deffn @deffn Function gdk-image-get (drawable@tie{}@code{}) (x@tie{}@code{int}) (y@tie{}@code{int}) (width@tie{}@code{int}) (height@tie{}@code{int}) @result{}@tie{} (ret@tie{}@code{}) @samp{gdk_image_get} is deprecated and should not be used in newly-written code. This is a deprecated wrapper for @code{gdk-drawable-get-image}; @code{gdk-drawable-get-image} should be used instead. Or even better: in most cases @code{gdk-pixbuf-get-from-drawable} is the most convenient choice. @table @var @item drawable a @code{} @item x x coordinate in @var{window} @item y y coordinate in @var{window} @item width width of area in @var{window} @item height height of area in @var{window} @item ret a new @code{} or @samp{@code{#f}} @end table @end deffn @deffn Function gdk-image-get-colormap (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{}) @deffnx Method get-colormap Retrieves the colormap for a given image, if it exists. An image will have a colormap if the drawable from which it was created has a colormap, or if a colormap was set explicitely with @code{gdk-image-set-colormap}. @table @var @item image a @code{} @item ret colormap for the image @end table @end deffn @deffn Function gdk-image-set-colormap (self@tie{}@code{}) (colormap@tie{}@code{}) @deffnx Method set-colormap Sets the colormap for the image to the given colormap. Normally there's no need to use this function, images are created with the correct colormap if you get the image from a drawable. If you create the image from scratch, use the colormap of the drawable you intend to render the image to. @table @var @item image a @code{} @item colormap a @code{} @end table @end deffn @deffn Function gdk-image-put-pixel (self@tie{}@code{}) (x@tie{}@code{int}) (y@tie{}@code{int}) (pixel@tie{}@code{unsigned-int32}) @deffnx Method put-pixel Sets a pixel in a @code{} to a given pixel value. @table @var @item image a @code{}. @item x the x coordinate of the pixel to set. @item y the y coordinate of the pixel to set. @item pixel the pixel value to set. @end table @end deffn @deffn Function gdk-image-get-pixel (self@tie{}@code{}) (x@tie{}@code{int}) (y@tie{}@code{int}) @result{}@tie{} (ret@tie{}@code{unsigned-int32}) @deffnx Method get-pixel Gets a pixel value at a specified position in a @code{}. @table @var @item image a @code{}. @item x the x coordinate of the pixel to get. @item y the y coordinate of the pixel to get. @item ret the pixel value at the given position. @end table @end deffn @c %end of fragment guile-gnome-platform-2.16.2/gtk/doc/gdk/section-scaling.xml.texi0000644000175000017500000000470111670374302025044 0ustar00wingowingo00000000000000 @c %start of fragment @node Scaling @chapter Scaling Scaling pixbufs and scaling and compositing pixbufs @section Overview The gdk-pixbuf contains functions to scale pixbufs, to scale pixbufs and composite against an existing image, and to scale pixbufs and composite against a solid color or checkerboard. Compositing a checkerboard is a common way to show an image with an alpha channel in image-viewing and editing software. Since the full-featured functions (@code{gdk-pixbuf-scale}, @code{gdk-pixbuf-composite}, and @code{gdk-pixbuf-composite-color}) are rather complex to use and have many arguments, two simple convenience functions are provided, @code{gdk-pixbuf-scale-simple} and @code{gdk-pixbuf-composite-color-simple} which create a new pixbuf of a given size, scale an original image to fit, and then return the new pixbuf. The following example demonstrates handling an expose event by rendering the appropriate area of a source image (which is scaled to fit the widget) onto the widget's window. The source image is rendered against a checkerboard, which provides a visual representation of the alpha channel if the image has one. If the image doesn't have an alpha channel, calling @code{gdk-pixbuf-composite-color} function has exactly the same effect as calling @code{gdk-pixbuf-scale}. @example gboolean expose_cb (GtkWidget *widget, GdkEventExpose *event, gpointer data) @{ GdkPixbuf *dest; dest = gdk_pixbuf_new (GDK_COLORSPACE_RGB, FALSE, 8, event->area.width, event->area.height); gdk_pixbuf_composite_color (pixbuf, dest, 0, 0, event->area.width, event->area.height, -event->area.x, -event->area.y, (double) widget->allocation.width / gdk_pixbuf_get_width (pixbuf), (double) widget->allocation.height / gdk_pixbuf_get_height (pixbuf), GDK_INTERP_BILINEAR, 255, event->area.x, event->area.y, 16, 0xaaaaaa, 0x555555); gdk_pixbuf_render_to_drawable (dest, widget->window, widget->style->fg_gc[GTK_STATE_NORMAL], 0, 0, event->area.x, event->area.y, event->area.width, event->area.height, GDK_RGB_DITHER_NORMAL, event->area.x, event->area.y); gdk_pixbuf_unref (dest); return TRUE; @} @end example @section Usage @include defuns-scaling.xml.texi @c %end of fragment guile-gnome-platform-2.16.2/gtk/doc/gdk/version.texi0000644000175000017500000000014611752511104022641 0ustar00wingowingo00000000000000@set UPDATED 9 December 2011 @set UPDATED-MONTH December 2011 @set EDITION 2.16.2 @set VERSION 2.16.2 guile-gnome-platform-2.16.2/gtk/doc/gdk/defuns-gdk-pixbuf-loader.xml.texi0000644000175000017500000001527511670374302026560 0ustar00wingowingo00000000000000 @c %start of fragment @deftp Class Derives from @code{}. This class defines no direct slots. @end deftp @defop Signal closed This signal is emitted when @code{gdk-pixbuf-loader-close} is called. It can be used by different parts of an application to receive notification when an image loader is closed by the code that drives it. @end defop @defop Signal size-prepared (arg0@tie{}@code{}) (arg1@tie{}@code{}) This signal is emitted when the pixbuf loader has been fed the initial amount of data that is required to figure out the size of the image that it will create. Applications can call @code{gdk-pixbuf-loader-set-size} in response to this signal to set the desired size to which the image should be scaled. @end defop @defop Signal area-prepared This signal is emitted when the pixbuf loader has allocated the pixbuf in the desired size. After this signal is emitted, applications can call @code{gdk-pixbuf-loader-get-pixbuf} to fetch the partially-loaded pixbuf. @end defop @defop Signal area-updated (arg0@tie{}@code{}) (arg1@tie{}@code{}) (arg2@tie{}@code{}) (arg3@tie{}@code{}) This signal is emitted when a significant area of the image being loaded has been updated. Normally it means that a complete scanline has been read in, but it could be a different area as well. Applications can use this signal to know when to repaint areas of an image that is being loaded. @end defop @deffn Function gdk-pixbuf-loader-new @result{}@tie{} (ret@tie{}@code{}) Creates a new pixbuf loader object. @table @var @item ret A newly-created pixbuf loader. @end table @end deffn @deffn Function gdk-pixbuf-loader-new-with-type (image_type@tie{}@code{mchars}) @result{}@tie{} (ret@tie{}@code{}) Creates a new pixbuf loader object that always attempts to parse image data as if it were an image of type @var{image-type}, instead of identifying the type automatically. Useful if you want an error if the image isn't the expected type, for loading image formats that can't be reliably identified by looking at the data, or if the user manually forces a specific type. The list of supported image formats depends on what image loaders are installed, but typically "png", "jpeg", "gif", "tiff" and "xpm" are among the supported formats. To obtain the full list of supported image formats, call @code{gdk-pixbuf-format-get-name} on each of the @code{} structs returned by @code{gdk-pixbuf-get-formats}. @table @var @item image-type name of the image format to be loaded with the image @item error return location for an allocated @code{}, or @samp{@code{#f}} to ignore errors @item ret A newly-created pixbuf loader. @end table @end deffn @deffn Function gdk-pixbuf-loader-get-format (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{}) @deffnx Method get-format Obtains the available information about the format of the currently loading image file. @table @var @item loader A pixbuf loader. @item ret A @code{} or @samp{@code{#f}}. The return value is owned by GdkPixbuf and should not be freed. @end table Since 2.2 @end deffn @deffn Function gdk-pixbuf-loader-set-size (self@tie{}@code{}) (width@tie{}@code{int}) (height@tie{}@code{int}) @deffnx Method set-size Causes the image to be scaled while it is loaded. The desired image size can be determined relative to the original size of the image by calling @code{gdk-pixbuf-loader-set-size} from a signal handler for the ::size_prepared signal. Attempts to set the desired image size are ignored after the emission of the ::size_prepared signal. @table @var @item loader A pixbuf loader. @item width The desired width of the image being loaded. @item height The desired height of the image being loaded. @end table Since 2.2 @end deffn @deffn Function gdk-pixbuf-loader-get-pixbuf (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{}) @deffnx Method get-pixbuf Queries the @code{} that a pixbuf loader is currently creating. In general it only makes sense to call this function after the "area_prepared" signal has been emitted by the loader; this means that enough data has been read to know the size of the image that will be allocated. If the loader has not received enough data via @code{gdk-pixbuf-loader-write}, then this function returns @samp{@code{#f}}. The returned pixbuf will be the same in all future calls to the loader, so simply calling @code{g-object-ref} should be sufficient to continue using it. Additionally, if the loader is an animation, it will return the "static image" of the animation (see @code{gdk-pixbuf-animation-get-static-image}). @table @var @item loader A pixbuf loader. @item ret The @code{} that the loader is creating, or @samp{@code{#f}} if not enough data has been read to determine how to create the image buffer. @end table @end deffn @deffn Function gdk-pixbuf-loader-get-animation (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{}) @deffnx Method get-animation Queries the @code{} that a pixbuf loader is currently creating. In general it only makes sense to call this function after the "area_prepared" signal has been emitted by the loader. If the loader doesn't have enough bytes yet (hasn't emitted the "area_prepared" signal) this function will return @samp{@code{#f}}. @table @var @item loader A pixbuf loader @item ret The @code{} that the loader is loading, or @samp{@code{#f}} if not enough data has been read to determine the information. @end table @end deffn @deffn Function gdk-pixbuf-loader-close (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{bool}) @deffnx Method close Informs a pixbuf loader that no further writes with @code{gdk-pixbuf-loader-write} will occur, so that it can free its internal loading structures. Also, tries to parse any data that hasn't yet been parsed; if the remaining data is partial or corrupt, an error will be returned. If @samp{@code{#f}} is returned, @var{error} will be set to an error from the @code{} or @code{} domains. If you're just cancelling a load rather than expecting it to be finished, passing @samp{@code{#f}} for @var{error} to ignore it is reasonable. @table @var @item loader A pixbuf loader. @item error return location for a @code{}, or @samp{@code{#f}} to ignore errors @item ret @samp{@code{#t}} if all image data written so far was successfully passed out via the update_area signal @end table @end deffn @c %end of fragment guile-gnome-platform-2.16.2/gtk/doc/gdk/defuns-general.xml.texi0000644000175000017500000003004411670374302024660 0ustar00wingowingo00000000000000 @c %start of fragment @deffn Function gdk-get-display-arg-name @result{}@tie{} (ret@tie{}@code{mchars}) Gets the display name specified in the command line arguments passed to @code{gdk-init} or @code{gdk-parse-args}, if any. @table @var @item ret the display name, if specified explicitely, otherwise @samp{@code{#f}} this string is owned by GTK+ and must not be modified or freed. @end table Since 2.2 @end deffn @deffn Function gdk-set-locale @result{}@tie{} (ret@tie{}@code{mchars}) Initializes the support for internationalization by calling the @code{@code{setlocale}} system call. This function is called by @code{gtk-set-locale} and so GTK+ applications should use that instead. The locale to use is determined by the @env{LANG} environment variable, so to run an application in a certain locale you can do something like this: @example export LANG="fr" ... run application ... @end example If the locale is not supported by X then it is reset to the standard "C" locale. @table @var @item ret the resulting locale. @end table @end deffn @deffn Function gdk-set-sm-client-id (sm_client_id@tie{}@code{mchars}) Sets the @samp{SM_CLIENT_ID} property on the application's leader window so that the window manager can save the application's state using the X11R6 ICCCM session management protocol. See the X Session Management Library documentation for more information on session management and the Inter-Client Communication Conventions Manual (ICCCM) for information on the @samp{WM_CLIENT_LEADER} property. (Both documents are part of the X Window System distribution.) @table @var @item sm-client-id the client id assigned by the session manager when the connection was opened, or @samp{@code{#f}} to remove the property. @end table @end deffn @deffn Function gdk-notify-startup-complete Indicates to the GUI environment that the application has finished loading. If the applications opens windows, this function is normally called after opening the application's initial set of windows. GTK+ will call this function automatically after opening the first @code{} unless @code{gtk-window-set-auto-startup-notification} is called to disable that feature. Since 2.2 @end deffn @deffn Function gdk-get-program-class @result{}@tie{} (ret@tie{}@code{mchars}) Gets the program class. Unless the program class has explicitly been set with @code{gdk-set-program-class} or with the @c (option "--class") commandline option, the default value is the program name (determined with @code{g-get-prgname}) with the first character converted to uppercase. @table @var @item ret the program class. @end table @end deffn @deffn Function gdk-set-program-class (program_class@tie{}@code{mchars}) Sets the program class. The X11 backend uses the program class to set the class name part of the @samp{WM_CLASS} property on toplevel windows; see the ICCCM. @table @var @item program-class a string. @end table @end deffn @deffn Function gdk-get-display @result{}@tie{} (ret@tie{}@code{mchars}) Gets the name of the display, which usually comes from the @env{DISPLAY} environment variable or the @c (option "--display") command line option. @table @var @item ret the name of the display. @end table @end deffn @deffn Function gdk-flush Flushes the X output buffer and waits until all requests have been processed by the server. This is rarely needed by applications. It's main use is for trapping X errors with @code{gdk-error-trap-push} and @code{gdk-error-trap-pop}. @end deffn @deffn Function gdk-screen-width @result{}@tie{} (ret@tie{}@code{int}) Returns the width of the default screen in pixels. @table @var @item ret the width of the default screen in pixels. @end table @end deffn @deffn Function gdk-screen-height @result{}@tie{} (ret@tie{}@code{int}) Returns the height of the default screen in pixels. @table @var @item ret the height of the default screen in pixels. @end table @end deffn @deffn Function gdk-screen-width-mm @result{}@tie{} (ret@tie{}@code{int}) Returns the width of the default screen in millimeters. Note that on many X servers this value will not be correct. @table @var @item ret the width of the default screen in millimeters, though it is not always correct. @end table @end deffn @deffn Function gdk-screen-height-mm @result{}@tie{} (ret@tie{}@code{int}) Returns the height of the default screen in millimeters. Note that on many X servers this value will not be correct. @table @var @item ret the height of the default screen in millimeters, though it is not always correct. @end table @end deffn @deffn Function gdk-pointer-grab (window@tie{}@code{}) (owner_events@tie{}@code{bool}) (event_mask@tie{}@code{}) (confine_to@tie{}@code{}) (cursor@tie{}@code{}) (time_@tie{}@code{unsigned-int32}) @result{}@tie{} (ret@tie{}@code{}) Grabs the pointer (usually a mouse) so that all events are passed to this application until the pointer is ungrabbed with @code{gdk-pointer-ungrab}, or the grab window becomes unviewable. This overrides any previous pointer grab by this client. Pointer grabs are used for operations which need complete control over mouse events, even if the mouse leaves the application. For example in GTK+ it is used for Drag and Drop, for dragging the handle in the @code{} and @code{} widgets, and for resizing columns in @code{} widgets. Note that if the event mask of an X window has selected both button press and button release events, then a button press event will cause an automatic pointer grab until the button is released. X does this automatically since most applications expect to receive button press and release events in pairs. It is equivalent to a pointer grab on the window with @var{owner-events} set to @samp{@code{#t}}. If you set up anything at the time you take the grab that needs to be cleaned up when the grab ends, you should handle the @code{} events that are emitted when the grab ends unvoluntarily. @table @var @item window the @code{} which will own the grab (the grab window). @item owner-events if @samp{@code{#f}} then all pointer events are reported with respect to @var{window} and are only reported if selected by @var{event-mask}. If @samp{@code{#t}} then pointer events for this application are reported as normal, but pointer events outside this application are reported with respect to @var{window} and only if selected by @var{event-mask}. In either mode, unreported events are discarded. @item event-mask specifies the event mask, which is used in accordance with @var{owner-events}. Note that only pointer events (i.e. button and motion events) may be selected. @item confine-to If non-@samp{@code{#f}}, the pointer will be confined to this window during the grab. If the pointer is outside @var{confine-to}, it will automatically be moved to the closest edge of @var{confine-to} and enter and leave events will be generated as necessary. @item cursor the cursor to display while the grab is active. If this is @samp{@code{#f}} then the normal cursors are used for @var{window} and its descendants, and the cursor for @var{window} is used for all other windows. @item time the timestamp of the event which led to this pointer grab. This usually comes from a @code{} struct, though @samp{GDK_CURRENT_TIME} can be used if the time isn't known. @item ret @samp{GDK_GRAB_SUCCESS} if the grab was successful. @end table @end deffn @deffn Function gdk-pointer-ungrab (time_@tie{}@code{unsigned-int32}) Ungrabs the pointer, if it is grabbed by this application. @table @var @item time a timestamp from a @code{}, or @samp{GDK_CURRENT_TIME} if no timestamp is available. @end table @end deffn @deffn Function gdk-pointer-is-grabbed @result{}@tie{} (ret@tie{}@code{bool}) Returns @samp{@code{#t}} if the pointer is currently grabbed by this application. Note that this does not take the inmplicit pointer grab on button presses into account. @table @var @item ret @samp{@code{#t}} if the pointer is currently grabbed by this application.* @end table @end deffn @deffn Function gdk-set-double-click-time (msec@tie{}@code{unsigned-int}) Set the double click time for the default display. See @code{gdk-display-set-double-click-time}. See also @code{gdk-display-set-double-click-distance}. Applications should @emph{not} set this, it is a global user-configured setting. @table @var @item msec double click time in milliseconds (thousandths of a second) @end table @end deffn @deffn Function gdk-keyboard-grab (window@tie{}@code{}) (owner_events@tie{}@code{bool}) (time_@tie{}@code{unsigned-int32}) @result{}@tie{} (ret@tie{}@code{}) Grabs the keyboard so that all events are passed to this application until the keyboard is ungrabbed with @code{gdk-keyboard-ungrab}. This overrides any previous keyboard grab by this client. If you set up anything at the time you take the grab that needs to be cleaned up when the grab ends, you should handle the @code{} events that are emitted when the grab ends unvoluntarily. @table @var @item window the @code{} which will own the grab (the grab window). @item owner-events if @samp{@code{#f}} then all keyboard events are reported with respect to @var{window}. If @samp{@code{#t}} then keyboard events for this application are reported as normal, but keyboard events outside this application are reported with respect to @var{window}. Both key press and key release events are always reported, independant of the event mask set by the application. @item time a timestamp from a @code{}, or @samp{GDK_CURRENT_TIME} if no timestamp is available. @item ret @samp{GDK_GRAB_SUCCESS} if the grab was successful. @end table @end deffn @deffn Function gdk-keyboard-ungrab (time_@tie{}@code{unsigned-int32}) Ungrabs the keyboard, if it is grabbed by this application. @table @var @item time a timestamp from a @code{}, or @samp{GDK_CURRENT_TIME} if no timestamp is available. @end table @end deffn @deffn Function gdk-beep Emits a short beep on the default display. @end deffn @deffn Function gdk-get-use-xshm @result{}@tie{} (ret@tie{}@code{bool}) @samp{gdk_get_use_xshm} is deprecated and should not be used in newly-written code. Returns @samp{@code{#t}} if GDK will attempt to use the MIT-SHM shared memory extension. The shared memory extension is used for @code{}, and consequently for GdkRGB. It enables much faster drawing by communicating with the X server through SYSV shared memory calls. However, it can only be used if the X client and server are on the same machine and the server supports it. @table @var @item ret @samp{@code{#t}} if use of the MIT shared memory extension will be attempted. @end table @end deffn @deffn Function gdk-set-use-xshm (use_xshm@tie{}@code{bool}) @samp{gdk_set_use_xshm} is deprecated and should not be used in newly-written code. Sets whether the use of the MIT shared memory extension should be attempted. This function is mainly for internal use. It is only safe for an application to set this to @samp{@code{#f}}, since if it is set to @samp{@code{#t}} and the server does not support the extension it may cause warning messages to be output. @table @var @item use-xshm @samp{@code{#t}} if use of the MIT shared memory extension should be attempted. @end table @end deffn @deffn Function gdk-error-trap-push This function allows X errors to be trapped instead of the normal behavior of exiting the application. It should only be used if it is not possible to avoid the X error in any other way. @c (title "Trapping an X error") @example gdk_error_trap_push (); /* ... Call the X function which may cause an error here ... */ /* Flush the X queue to catch errors now. */ gdk_flush (); if (gdk_error_trap_pop ()) @{ /* ... Handle the error here ... */ @} @end example @end deffn @deffn Function gdk-error-trap-pop @result{}@tie{} (ret@tie{}@code{int}) Removes the X error trap installed with @code{gdk-error-trap-push}. @table @var @item ret the X error code, or 0 if no error occurred. @end table @end deffn @c %end of fragment guile-gnome-platform-2.16.2/gtk/doc/gdk/section-input_devices.xml.texi0000644000175000017500000000715211670374302026270 0ustar00wingowingo00000000000000 @c %start of fragment @node Input Devices @chapter Input Devices Functions for handling extended input devices @section Overview In addition to the normal keyboard and mouse input devices, GTK+ also contains support for @dfn{extended input devices}. In particular, this support is targeted at graphics tablets. Graphics tablets typically return sub-pixel positioning information and possibly information about the pressure and tilt of the stylus. Under X, the support for extended devices is done through the @dfn{XInput} extension. Because handling extended input devices may involve considerable overhead, they need to be turned on for each @code{} individually using @code{gdk-input-set-extension-events}. (Or, more typically, for GtkWidgets, using @code{gtk-widget-set-extension-events}). As an additional complication, depending on the support from the windowing system, its possible that a normal mouse cursor will not be displayed for a particular extension device. If an application does not want to deal with displaying a cursor itself, it can ask only to get extension events from devices that will display a cursor, by passing the @samp{GDK_EXTENSION_EVENTS_CURSOR} value to @code{gdk-input-set-extension-events}. Otherwise, the application must retrieve the device information using @code{gdk-devices-list}, check the field, and, if it is @samp{@code{#f}}, draw a cursor itself when it receives motion events. Each pointing device is assigned a unique integer ID; events from a particular device can be identified by the field in the event structure. The events generated by pointer devices have also been extended to contain , and fields which contain the extended information reported as additional @dfn{valuators} from the device. The field is a a double value ranging from 0.0 to 1.0, while the tilt fields are double values ranging from -1.0 to 1.0. (With -1.0 representing the maximum tilt to the left or up, and 1.0 representing the maximum tilt to the right or down.) One additional field in each event is the field, which contains an enumeration value describing the type of device; this currently can be one of @samp{GDK_SOURCE_MOUSE}, @samp{GDK_SOURCE_PEN}, @samp{GDK_SOURCE_ERASER}, or @samp{GDK_SOURCE_CURSOR}. This field is present to allow simple applications to (for instance) delete when they detect eraser devices without having to keep track of complicated per-device settings. Various aspects of each device may be configured. The easiest way of creating a GUI to allow the user to configure such a device is to use the @code{} widget in GTK+. However, even when using this widget, application writers will need to directly query and set the configuration parameters in order to save the state between invocations of the application. The configuration of devices is queried using @code{gdk-devices-list}. Each device must be activated using @code{gdk-device-set-mode}, which also controls whether the device's range is mapped to the entire screen or to a single window. The mapping of the valuators of the device onto the predefined valuator types is set using @code{gdk-device-set-axis-use}. And the source type for each device can be set with @code{gdk-device-set-source}. Devices may also have associated @dfn{keys} or macro buttons. Such keys can be globally set to map into normal X keyboard events. The mapping is set using @code{gdk-device-set-key}. The interfaces in this section will most likely be considerably modified in the future to accomodate devices that may have different sets of additional valuators than the pressure and . @section Usage @include defuns-input_devices.xml.texi @c %end of fragment guile-gnome-platform-2.16.2/gtk/doc/gdk/section-gdkscreen.xml.texi0000644000175000017500000000123011670374302025363 0ustar00wingowingo00000000000000 @c %start of fragment @node GdkScreen @chapter GdkScreen Object representing a physical screen @section Overview @code{} objects are the GDK representation of a physical screen. It is used throughout GDK and GTK+ to specify which screen the top level windows are to be displayed on. It is also used to query the screen specification and default settings such as the default colormap (@code{gdk-screen-get-default-colormap}), the screen width (@code{gdk-screen-get-width}), etc. Note that a screen may consist of multiple monitors which are merged to form a large screen area. @section Usage @include defuns-gdkscreen.xml.texi @c %end of fragment guile-gnome-platform-2.16.2/gtk/doc/gdk/defuns-input_devices.xml.texi0000644000175000017500000000646211670374302026113 0ustar00wingowingo00000000000000 @c %start of fragment @deftp Class Derives from @code{}. This class defines no direct slots. @end deftp @deffn Function gdk-devices-list @result{}@tie{} (ret@tie{}@code{glist-of}) Returns the list of available input devices for the default display. The list is statically allocated and should not be freed. @table @var @item ret a list of @code{} @end table @end deffn @deffn Function gdk-device-set-source (self@tie{}@code{}) (source@tie{}@code{}) @deffnx Method set-source Sets the source type for an input device. @table @var @item device a @code{}. @item source the source type. @end table @end deffn @deffn Function gdk-device-set-mode (self@tie{}@code{}) (mode@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{bool}) @deffnx Method set-mode Sets a the mode of an input device. The mode controls if the device is active and whether the device's range is mapped to the entire screen or to a single window. @table @var @item device a @code{}. @item mode the input mode. @item ret @samp{@code{#t}} if the mode was successfully changed. @end table @end deffn @deffn Function gdk-device-set-key (self@tie{}@code{}) (index_@tie{}@code{unsigned-int}) (keyval@tie{}@code{unsigned-int}) (modifiers@tie{}@code{}) @deffnx Method set-key Specifies the X key event to generate when a macro button of a device is pressed. @table @var @item device a @code{}. @item index the index of the macro button to set. @item keyval the keyval to generate. @item modifiers the modifiers to set. @end table @end deffn @deffn Function gdk-device-set-axis-use (self@tie{}@code{}) (index_@tie{}@code{unsigned-int}) (use@tie{}@code{}) @deffnx Method set-axis-use Specifies how an axis of a device is used. @table @var @item device a @code{}. @item index the index of the axis. @item use specifies how the axis is used. @end table @end deffn @deffn Function gdk-device-get-core-pointer @result{}@tie{} (ret@tie{}@code{}) Returns the core pointer device for the default display. @table @var @item ret the core pointer device; this is owned by the display and should not be freed. @end table @end deffn @deffn Function gdk-device-get-axis (self@tie{}@code{}) (use@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{bool}) (axes@tie{}@code{double}) (value@tie{}@code{double}) @deffnx Method get-axis Interprets an array of double as axis values for a given device, and locates the value in the array for a given axis use. @table @var @item device a @code{} @item axes pointer to an array of axes @item use the use to look for @item value location to store the found value. @item ret @samp{@code{#t}} if the given axis use was found, otherwise @samp{@code{#f}} @end table @end deffn @deffn Function gdk-input-set-extension-events (window@tie{}@code{}) (mask@tie{}@code{int}) (mode@tie{}@code{}) Turns extension events on or off for a particular window, and specifies the event mask for extension events. @table @var @item window a @code{}. @item mask the event mask @item mode the type of extension events that are desired. @end table @end deffn @c %end of fragment guile-gnome-platform-2.16.2/gtk/doc/gdk/defuns-pango_interaction.xml.texi0000644000175000017500000001407011670374302026747 0ustar00wingowingo00000000000000 @c %start of fragment @deftp Class Derives from @code{}. This class defines the following slots: @table @code @item screen the GdkScreen for the renderer @end table @end deftp @deffn Function gdk-pango-renderer-new (screen@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{}) Creates a new @code{} for @var{screen}. Normally you can use the results of @code{gdk-pango-renderer-get-default} rather than creating a new renderer. @table @var @item screen a @code{} @item ret a newly created @code{}. Free with @code{g-object-unref}. @end table Since 2.6 @end deffn @deffn Function gdk-pango-renderer-get-default (screen@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{}) Gets the default @code{} for a screen. This default renderer is shared by all users of the display, so properties such as the color or transformation matrix set for the renderer may be overwritten by functions such as @code{gdk-draw-layout}. Before using the renderer, you need to call @code{gdk-pango-renderer-set-drawable} and @code{gdk-pango-renderer-set-gc} to set the drawable and graphics context to use for drawing. @table @var @item screen a @code{} @item ret the default @code{} for @var{screen}. The renderer is owned by GTK+ and will be kept around until the screen is closed. @end table Since 2.6 @end deffn @deffn Function gdk-pango-renderer-set-drawable (self@tie{}@code{}) (drawable@tie{}@code{}) @deffnx Method set-drawable Sets the drawable the renderer draws to. @table @var @item gdk-renderer a @code{} @item drawable the new target drawable, or @samp{@code{#f}} @end table Since 2.6 @end deffn @deffn Function gdk-pango-renderer-set-gc (self@tie{}@code{}) (gc@tie{}@code{}) @deffnx Method set-gc Sets the GC the renderer draws with. Note that the GC must not be modified until it is unset by calling the function again with @samp{@code{#f}} for the @var{gc} parameter, since GDK may make internal copies of the GC which won't be updated to follow changes to the original GC. @table @var @item gdk-renderer a @code{} @item gc the new GC to use for drawing, or @samp{@code{#f}} @end table Since 2.6 @end deffn @deffn Function gdk-pango-renderer-set-stipple (self@tie{}@code{}) (part@tie{}@code{}) (stipple@tie{}@code{}) @deffnx Method set-stipple Sets the stipple for one render part (foreground, background, underline, etc.) Note that this is overwritten when iterating through the individual styled runs of a @code{} or @code{}. This function is thus only useful when you call low level functions like @code{pango-renderer-draw-glyphs} directly, or in the 'prepare_run' virtual function of a subclass of @code{}. @table @var @item gdk-renderer a @code{} @item part the part to render with the stipple @item stipple the new stipple value. @end table Since 2.6 @end deffn @deffn Function gdk-pango-context-get @result{}@tie{} (ret@tie{}@code{}) Creates a @code{} for the default GDK screen. The context must be freed when you're finished with it. When using GTK+, normally you should use @code{gtk-widget-get-pango-context} instead of this function, to get the appropriate context for the widget you intend to render text onto. The newly created context will have the default font options (see @code{}) for the default screen; if these options change it will not be updated. Using @code{gtk-widget-get-pango-context} is more convenient if you want to keep a context around and track changes to the screen's font rendering settings. @table @var @item ret a new @code{} for the default display @end table @end deffn @deffn Function gdk-pango-context-get-for-screen (screen@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{}) Creates a @code{} for @var{screen}. The context must be freed when you're finished with it. When using GTK+, normally you should use @code{gtk-widget-get-pango-context} instead of this function, to get the appropriate context for the widget you intend to render text onto. The newly created context will have the default font options (see @code{}) for the screen; if these options change it will not be updated. Using @code{gtk-widget-get-pango-context} is more convenient if you want to keep a context around and track changes to the screen's font rendering settings. @table @var @item screen the @code{} for which the context is to be created. @item ret a new @code{} for @var{screen} @end table Since 2.2 @end deffn @deffn Function gdk-pango-context-set-colormap (context@tie{}@code{}) (colormap@tie{}@code{}) @samp{gdk_pango_context_set_colormap} is deprecated and should not be used in newly-written code. This function used to set the colormap to be used for drawing with @var{context}. The colormap is now always derived from the graphics context used for drawing, so calling this function is no longer necessary. @table @var @item context a @code{} @item colormap a @code{} @end table @end deffn @deffn Function gdk-pango-attr-embossed-new (embossed@tie{}@code{bool}) @result{}@tie{} (ret@tie{}@code{}) Creates a new attribute containing a embossed bitmap to be used when rendering the text. @table @var @item embossed a bitmap to be set as embossed @item ret new @code{} @end table @end deffn @deffn Function gdk-pango-attr-stipple-new (stipple@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{}) Creates a new attribute containing a stipple bitmap to be used when rendering the text. @table @var @item stipple a bitmap to be set as stipple @item ret new @code{} @end table @end deffn @c %end of fragment guile-gnome-platform-2.16.2/gtk/doc/gdk/guile-gnome-gdk.texi0000644000175000017500000001565711670374302024152 0ustar00wingowingo00000000000000\input texinfo @c -*-texinfo-*- @c %**start of header @setfilename guile-gnome-gdk.info @settitle Guile-Gdk @c %**end of header @include version.texi @copying This manual is for @code{(gnome gdk)} (version @value{VERSION}, updated @value{UPDATED}) GDK documentation Copyright 1997-2007 Damon Chaplin and others @c from gtk+/docs/reference/COPYING @quotation This work may be reproduced and distributed in whole or in part, in any medium, physical or electronic, so as long as this copyright notice remains intact and unchanged on all copies. Commercial redistribution is permitted and encouraged, but you may not redistribute, in whole or in part, under terms more restrictive than those under which you received it. If you redistribute a modified or translated version of this work, you must also make the source code to the modified or translated version available in electronic form without charge. However, mere aggregation as part of a larger work shall not count as a modification for this purpose. All code examples in this work are placed into the public domain, and may be used, modified and redistributed without restriction. BECAUSE THIS WORK IS LICENSED FREE OF CHARGE, THERE IS NO WARRANTY FOR THE WORK, TO THE EXTENT PERMITTED BY APPLICABLE LAW. EXCEPT WHEN OTHERWISE STATED IN WRITING THE COPYRIGHT HOLDERS AND/OR OTHER PARTIES PROVIDE THE WORK "AS IS" WITHOUT WARRANTY OF ANY KIND, EITHER EXPRESSED OR IMPLIED, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE. SHOULD THE WORK PROVE DEFECTIVE, YOU ASSUME THE COST OF ALL NECESSARY REPAIR OR CORRECTION. IN NO EVENT UNLESS REQUIRED BY APPLICABLE LAW OR AGREED TO IN WRITING WILL ANY COPYRIGHT HOLDER, OR ANY OTHER PARTY WHO MAY MODIFY AND/OR REDISTRIBUTE THE WORK AS PERMITTED ABOVE, BE LIABLE TO YOU FOR DAMAGES, INCLUDING ANY GENERAL, SPECIAL, INCIDENTAL OR CONSEQUENTIAL DAMAGES ARISING OUT OF THE USE OR INABILITY TO USE THE WORK, EVEN IF SUCH HOLDER OR OTHER PARTY HAS BEEN ADVISED OF THE POSSIBILITY OF SUCH DAMAGES. @end quotation GDK-Pixbuf documentation Copyright 2000 Free Software Foundation. @quotation Permission is granted to copy, distribute and/or modify this document under the terms of the GNU Free Documentation License, Version 1.1 or any later version published by the Free Software Foundation with no Invariant Sections, no Front-Cover Texts, and no Back-Cover Texts. You may obtain a copy of the GNU Free Documentation License from the Free Software Foundation by visiting their Web site or by writing to: The Free Software Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA Many of the names used by companies to distinguish their products and services are claimed as trademarks. Where those names appear in any GNOME documentation, and those trademarks are made aware to the members of the GNOME Documentation Project, the names have been printed in caps or initial caps. @end quotation @end copying @dircategory The Algorithmic Language Scheme @direntry * Guile-Gdk: (guile-gnome-gdk.info). The GIMP Drawing Kit. @end direntry @titlepage @title Guile-GNOME: Gdk @subtitle version @value{VERSION}, updated @value{UPDATED} @author Damon Chaplin @author many others @page @vskip 0pt plus 1filll @insertcopying @end titlepage @ifnottex @node Top @top Guile-Gdk @insertcopying @menu * Overview:: Overview GDK * General:: Library initialization and miscellaneous functions * GdkDisplay:: Controls the keyboard/mouse pointer grabs and a set of s * GdkDisplayManager:: Maintains a list of all open s * GdkScreen:: Object representing a physical screen * Points Rectangles and Regions:: Simple graphical data types * Graphics Contexts:: Objects to encapsulate drawing properties * Drawing Primitives:: Functions for drawing points, lines, arcs, and text * Bitmaps and Pixmaps:: Offscreen drawables * GdkRGB:: Renders RGB, grayscale, or indexed image data to a GdkDrawable * Images:: A client-side area for bit-mapped graphics * Pixbufs:: Functions for rendering pixbufs on drawables * Colormaps and Colors:: Manipulation of colors and colormaps * Visuals:: Low-level display hardware information * Fonts:: Loading and manipulating fonts * Cursors:: Standard and pixmap cursors * Windows:: Onscreen display areas in the target window system * Events:: Functions for handling events from the window system * Event Structures:: Data structures specific to each type of event * Key Values:: Functions for manipulating keyboard codes * Selections:: Functions for transfering data via the X selection mechanism * Drag and Drop:: Functions for controlling drag and drop handling * Properties and Atoms:: Functions to manipulate properties on windows * Threads:: Functions for using GDK in multi-threaded programs * Input Devices:: Functions for handling extended input devices * Pango Interaction:: Using Pango in GDK * Cairo Interaction:: Functions to support using Cairo * X Window System Interaction:: X backend-specific functions GDK-Pixbuf * The GdkPixbuf Structure:: Information that describes an image. * File Loading:: Loading a pixbuf from a file. * Image Data in Memory:: Creating a pixbuf from image data that is already in memory. * Scaling:: Scaling pixbufs and scaling and compositing pixbufs * Utilities:: Utility and miscellaneous convenience functions. * Animations:: Animated images. * GdkPixbufLoader:: Application-driven progressive image loading. * Module Interface:: Extending gdk-pixbuf * Undocumented:: Undocumented functions. * Type Index:: * Function Index:: @end menu @end ifnottex @iftex @shortcontents @end iftex @include overview.texi @include section-general.xml.texi @include section-gdkdisplay.xml.texi @include section-gdkdisplaymanager.xml.texi @include section-gdkscreen.xml.texi @include section-regions.xml.texi @include section-gcs.xml.texi @include section-drawing.xml.texi @include section-pixmaps.xml.texi @include section-rgb.xml.texi @include section-images.xml.texi @include section-pixbufs.xml.texi @include section-colors.xml.texi @include section-visuals.xml.texi @include section-fonts.xml.texi @include section-cursors.xml.texi @include section-windows.xml.texi @include section-events.xml.texi @include section-event_structs.xml.texi @include section-keys.xml.texi @include section-selections.xml.texi @include section-dnd.xml.texi @include section-properties.xml.texi @include section-threads.xml.texi @include section-input_devices.xml.texi @include section-pango_interaction.xml.texi @include section-cairo_interaction.xml.texi @include section-x_interaction.xml.texi @include section-gdk-pixbuf.xml.texi @include section-file-loading.xml.texi @include section-creating.xml.texi @include section-scaling.xml.texi @include section-util.xml.texi @include section-animation.xml.texi @include section-gdk-pixbuf-loader.xml.texi @include section-module_interface.xml.texi @include undocumented.texi @node Type Index @unnumbered Type Index @printindex tp @node Function Index @unnumbered Function Index @printindex fn @bye guile-gnome-platform-2.16.2/gtk/doc/gdk/defuns-gdkscreen.xml.texi0000644000175000017500000004301611670374302025213 0ustar00wingowingo00000000000000 @c %start of fragment @deftp Class Derives from @code{}. This class defines the following slots: @table @code @item font-options The default font options for the screen @item resolution The resolution for fonts on the screen @end table @end deftp @defop Signal size-changed The ::size_changed signal is emitted when the pixel width or height of a screen changes. Since 2.2 @end defop @defop Signal composited-changed The ::composited_changed signal is emitted when the composited status of the screen changes Since 2.10 @end defop @deffn Function gdk-screen-get-default @result{}@tie{} (ret@tie{}@code{}) Gets the default screen for the default display. (See @code{gdk-display-get-default}). @table @var @item ret a @code{}, or @samp{@code{#f}} if there is no default display. @end table Since 2.2 @end deffn @deffn Function gdk-screen-get-default-colormap (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{}) @deffnx Method get-default-colormap Gets the default colormap for @var{screen}. @table @var @item screen a @code{} @item ret the default @code{}. @end table Since 2.2 @end deffn @deffn Function gdk-screen-set-default-colormap (self@tie{}@code{}) (colormap@tie{}@code{}) @deffnx Method set-default-colormap Sets the default @var{colormap} for @var{screen}. @table @var @item screen a @code{} @item colormap a @code{} @end table Since 2.2 @end deffn @deffn Function gdk-screen-get-system-colormap (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{}) @deffnx Method get-system-colormap Gets the system's default colormap for @var{screen} @table @var @item screen a @code{} @item ret the default colormap for @var{screen}. @end table Since 2.2 @end deffn @deffn Function gdk-screen-get-system-visual (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{}) @deffnx Method get-system-visual Get the system's default visual for @var{screen}. This is the visual for the root window of the display. The return value should not be freed. @table @var @item screen a @code{}. @item ret the system visual @end table Since 2.2 @end deffn @deffn Function gdk-screen-get-rgb-colormap (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{}) @deffnx Method get-rgb-colormap Gets the preferred colormap for rendering image data on @var{screen}. Not a very useful function; historically, GDK could only render RGB image data to one colormap and visual, but in the current version it can render to any colormap and visual. So there's no need to call this function. @table @var @item screen a @code{}. @item ret the preferred colormap @end table Since 2.2 @end deffn @deffn Function gdk-screen-get-rgb-visual (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{}) @deffnx Method get-rgb-visual Gets a "preferred visual" chosen by GdkRGB for rendering image data on @var{screen}. In previous versions of GDK, this was the only visual GdkRGB could use for rendering. In current versions, it's simply the visual GdkRGB would have chosen as the optimal one in those previous versions. GdkRGB can now render to drawables with any visual. @table @var @item screen a @code{} @item ret The @code{} chosen by GdkRGB. @end table Since 2.2 @end deffn @deffn Function gdk-screen-get-rgba-colormap (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{}) @deffnx Method get-rgba-colormap Gets a colormap to use for creating windows or pixmaps with an alpha channel. The windowing system on which GTK+ is running may not support this capability, in which case @samp{@code{#f}} will be returned. Even if a non-@samp{@code{#f}} value is returned, its possible that the window's alpha channel won't be honored when displaying the window on the screen: in particular, for X an appropriate windowing manager and compositing manager must be running to provide appropriate display. @table @var @item screen a @code{}. @item ret a colormap to use for windows with an alpha channel or @samp{@code{#f}} if the capability is not available. @end table Since 2.8 @end deffn @deffn Function gdk-screen-get-rgba-visual (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{}) @deffnx Method get-rgba-visual Gets a visual to use for creating windows or pixmaps with an alpha channel. See the docs for @code{gdk-screen-get-rgba-colormap} for caveats. @table @var @item screen a @code{} @item ret a visual to use for windows with an alpha channel or @samp{@code{#f}} if the capability is not available. @end table Since 2.8 @end deffn @deffn Function gdk-screen-is-composited (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{bool}) @deffnx Method is-composited Returns whether windows with an RGBA visual can reasonably be expected to have their alpha channel drawn correctly on the screen. On X11 this function returns whether a compositing manager is compositing @var{screen}. @table @var @item screen a @code{} @item ret Whether windows with RGBA visuals can reasonably be expected to have their alpha channels drawn correctly on the screen. @end table Since 2.10 @end deffn @deffn Function gdk-screen-get-root-window (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{}) @deffnx Method get-root-window Gets the root window of @var{screen}. @table @var @item screen a @code{} @item ret the root window @end table Since 2.2 @end deffn @deffn Function gdk-screen-get-display (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{}) @deffnx Method get-display Gets the display to which the @var{screen} belongs. @table @var @item screen a @code{} @item ret the display to which @var{screen} belongs @end table Since 2.2 @end deffn @deffn Function gdk-screen-get-number (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{int}) @deffnx Method get-number Gets the index of @var{screen} among the screens in the display to which it belongs. (See @code{gdk-screen-get-display}) @table @var @item screen a @code{} @item ret the index @end table Since 2.2 @end deffn @deffn Function gdk-screen-get-width (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{int}) @deffnx Method get-width Gets the width of @var{screen} in pixels @table @var @item screen a @code{} @item ret the width of @var{screen} in pixels. @end table Since 2.2 @end deffn @deffn Function gdk-screen-get-height (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{int}) @deffnx Method get-height Gets the height of @var{screen} in pixels @table @var @item screen a @code{} @item ret the height of @var{screen} in pixels. @end table Since 2.2 @end deffn @deffn Function gdk-screen-get-width-mm (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{int}) @deffnx Method get-width-mm Gets the width of @var{screen} in millimeters. Note that on some X servers this value will not be correct. @table @var @item screen a @code{} @item ret the width of @var{screen} in millimeters. @end table Since 2.2 @end deffn @deffn Function gdk-screen-get-height-mm (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{int}) @deffnx Method get-height-mm Returns the height of @var{screen} in millimeters. Note that on some X servers this value will not be correct. @table @var @item screen a @code{} @item ret the heigth of @var{screen} in millimeters. @end table Since 2.2 @end deffn @deffn Function gdk-screen-list-visuals (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{glist-of}) @deffnx Method list-visuals Lists the available visuals for the specified @var{screen}. A visual describes a hardware image data format. For example, a visual might support 24-bit color, or 8-bit color, and might expect pixels to be in a certain format. Call @code{g-list-free} on the return value when you're finished with it. @table @var @item screen the relevant @code{}. @item ret a list of visuals; the list must be freed, but not its contents @end table Since 2.2 @end deffn @deffn Function gdk-screen-get-toplevel-windows (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{glist-of}) @deffnx Method get-toplevel-windows Obtains a list of all toplevel windows known to GDK on the screen @var{screen}. A toplevel window is a child of the root window (see @code{gdk-get-default-root-window}). The returned list should be freed with @code{g-list-free}, but its elements need not be freed. @table @var @item screen The @code{} where the toplevels are located. @item ret list of toplevel windows, free with @code{g-list-free} @end table Since 2.2 @end deffn @deffn Function gdk-screen-make-display-name (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{mchars}) @deffnx Method make-display-name Determines the name to pass to @code{gdk-display-open} to get a @code{} with this screen as the default screen. @table @var @item screen a @code{} @item ret a newly allocated string, free with @code{g-free} @end table Since 2.2 @end deffn @deffn Function gdk-screen-get-n-monitors (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{int}) @deffnx Method get-n-monitors Returns the number of monitors which @var{screen} consists of. @table @var @item screen a @code{}. @item ret number of monitors which @var{screen} consists of. @end table Since 2.2 @end deffn @deffn Function gdk-screen-get-monitor-geometry (self@tie{}@code{}) (monitor_num@tie{}@code{int}) (dest@tie{}@code{}) @deffnx Method get-monitor-geometry Retrieves the @code{} representing the size and position of the individual monitor within the entire screen area. Note that the size of the entire screen area can be retrieved via @code{gdk-screen-get-width} and @code{gdk-screen-get-height}. @table @var @item screen a @code{}. @item monitor-num the monitor number. @item dest a @code{} to be filled with the monitor geometry @end table Since 2.2 @end deffn @deffn Function gdk-screen-get-monitor-at-point (self@tie{}@code{}) (x@tie{}@code{int}) (y@tie{}@code{int}) @result{}@tie{} (ret@tie{}@code{int}) @deffnx Method get-monitor-at-point Returns the monitor number in which the point (@var{x},@var{y}) is located. @table @var @item screen a @code{}. @item x the x coordinate in the virtual screen. @item y the y coordinate in the virtual screen. @item ret the monitor number in which the point (@var{x},@var{y}) lies, or a monitor close to (@var{x},@var{y}) if the point is not in any monitor. @end table Since 2.2 @end deffn @deffn Function gdk-screen-get-monitor-at-window (self@tie{}@code{}) (window@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{int}) @deffnx Method get-monitor-at-window Returns the number of the monitor in which the largest area of the bounding rectangle of @var{window} resides. @table @var @item screen a @code{}. @item window a @code{} @item ret the monitor number in which most of @var{window} is located, or if @var{window} does not intersect any monitors, a monitor, close to @var{window}. @end table Since 2.2 @end deffn @deffn Function gdk-screen-broadcast-client-message (self@tie{}@code{}) (event@tie{}@code{}) @deffnx Method broadcast-client-message On X11, sends an X ClientMessage event to all toplevel windows on @var{screen}. Toplevel windows are determined by checking for the WM_STATE property, as described in the Inter-Client Communication Conventions Manual (ICCCM). If no windows are found with the WM_STATE property set, the message is sent to all children of the root window. On Windows, broadcasts a message registered with the name GDK_WIN32_CLIENT_MESSAGE to all top-level windows. The amount of data is limited to one long, i.e. four bytes. @table @var @item screen the @code{} where the event will be broadcasted. @item event the @code{}. @end table Since 2.2 @end deffn @deffn Function gdk-screen-get-setting (self@tie{}@code{}) (name@tie{}@code{mchars}) (value@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{bool}) @deffnx Method get-setting Retrieves a desktop-wide setting such as double-click time for the @code{}@var{screen}. FIXME needs a list of valid settings here, or a link to more information. @table @var @item screen the @code{} where the setting is located @item name the name of the setting @item value location to store the value of the setting @item ret @samp{@code{#t}} if the setting existed and a value was stored in @var{value}, @samp{@code{#f}} otherwise. @end table Since 2.2 @end deffn @deffn Function gdk-screen-get-font-options (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{cairo-font-options-t}) @deffnx Method get-font-options Gets any options previously set with @code{gdk-screen-set-font-options}. @table @var @item screen a @code{} @item ret the current font options, or @samp{@code{#f}} if no default font options have been set. @end table Since 2.10 @end deffn @deffn Function gdk-screen-set-font-options (self@tie{}@code{}) (options@tie{}@code{cairo-font-options-t}) @deffnx Method set-font-options Sets the default font options for the screen. These options will be set on any @code{}'s newly created with @code{gdk-pango-context-get-for-screen}. Changing the default set of font options does not affect contexts that have already been created. @table @var @item screen a @code{} @item options a @code{}, or @samp{@code{#f}} to unset any previously set default font options. @end table Since 2.10 @end deffn @deffn Function gdk-screen-get-resolution (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{double}) @deffnx Method get-resolution Gets the resolution for font handling on the screen; see @code{gdk-screen-set-resolution} for full details. @table @var @item screen a @code{} @item ret the current resolution, or -1 if no resolution has been set. @end table Since 2.10 @end deffn @deffn Function gdk-screen-set-resolution (self@tie{}@code{}) (dpi@tie{}@code{double}) @deffnx Method set-resolution Sets the resolution for font handling on the screen. This is a scale factor between points specified in a @code{} and cairo units. The default value is 96, meaning that a 10 point font will be 13 units high. (10 * 96. / 72. = 13.3). @table @var @item screen a @code{} @item dpi the resolution in "dots per inch". (Physical inches aren't actually involved; the terminology is conventional.) @end table Since 2.10 @end deffn @deffn Function gdk-screen-get-active-window (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{}) @deffnx Method get-active-window Returns the screen's currently active window. On X11, this is done by inspecting the _NET_ACTIVE_WINDOW property on the root window, as described in the @uref{http://www.freedesktop.org/Standards/wm-spec,Extended Window Manager Hints}. If there is no currently currently active window, or the window manager does not support the _NET_ACTIVE_WINDOW hint, this function returns @samp{@code{#f}}. On other platforms, this function may return @samp{@code{#f}}, depending on whether it is implementable on that platform. The returned window should be unrefed using @code{g-object-unref} when no longer needed. @table @var @item screen a @code{} @item ret the currently active window, or @samp{@code{#f}}. @end table Since 2.10 @end deffn @deffn Function gdk-screen-get-window-stack (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{glist-of}) @deffnx Method get-window-stack Returns a @code{} of @code{}s representing the current window stack. On X11, this is done by inspecting the _NET_CLIENT_LIST_STACKING property on the root window, as described in the @uref{http://www.freedesktop.org/Standards/wm-spec,Extended Window Manager Hints}. If the window manager does not support the _NET_CLIENT_LIST_STACKING hint, this function returns @samp{@code{#f}}. On other platforms, this function may return @samp{@code{#f}}, depending on whether it is implementable on that platform. The returned list is newly allocated and owns references to the windows it contains, so it should be freed using @code{g-list-free} and its windows unrefed using @code{g-object-unref} when no longer needed. @table @var @item screen a @code{} @item ret a list of @code{}s for the current window stack, or @samp{@code{#f}}. @end table Since 2.10 @end deffn @deffn Function gdk-spawn-command-line-on-screen (screen@tie{}@code{}) (command_line@tie{}@code{mchars}) @result{}@tie{} (ret@tie{}@code{bool}) Like @code{g-spawn-command-line-async}, except the child process is spawned in such an environment that on calling @code{gdk-display-open} it would be returned a @code{} with @var{screen} as the default screen. This is useful for applications which wish to launch an application on a specific screen. @table @var @item screen a @code{} @item command-line a command line @item error return location for errors @item ret @samp{@code{#t}} on success, @samp{@code{#f}} if error is set. @end table Since 2.4 @end deffn @c %end of fragment guile-gnome-platform-2.16.2/gtk/doc/gdk/defuns-threads.xml.texi0000644000175000017500000000132011670374302024670 0ustar00wingowingo00000000000000 @c %start of fragment @deffn Function gdk-threads-init Initializes GDK so that it can be used from multiple threads in conjunction with @code{gdk-threads-enter} and @code{gdk-threads-leave}. @code{g-thread-init} must be called previous to this function. This call must be made before any use of the main loop from GTK+; to be safe, call it before @code{gtk-init}. @end deffn @deffn Function gdk-threads-enter This macro marks the beginning of a critical section in which GDK and GTK+ functions can be called. Only one thread at a time can be in such a critial section. @end deffn @deffn Function gdk-threads-leave Leaves a critical region begun with @code{gdk-threads-enter}. @end deffn @c %end of fragment guile-gnome-platform-2.16.2/gtk/doc/gdk/defuns-gdk-pixbuf.xml.texi0000644000175000017500000000633611670374302025312 0ustar00wingowingo00000000000000 @c %start of fragment @deftp Class Derives from @code{}. This class defines the following slots: @table @code @item colorspace The colorspace in which the samples are interpreted @item n-channels The number of samples per pixel @item has-alpha Whether the pixbuf has an alpha channel @item bits-per-sample The number of bits per sample @item width The number of columns of the pixbuf @item height The number of rows of the pixbuf @item rowstride The number of bytes between the start of a row and the start of the next row @item pixels A pointer to the pixel data of the pixbuf @end table @end deftp @deffn Function gdk-pixbuf-get-colorspace (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{}) @deffnx Method get-colorspace Queries the color space of a pixbuf. @table @var @item pixbuf A pixbuf. @item ret Color space. @end table @end deffn @deffn Function gdk-pixbuf-get-n-channels (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{int}) @deffnx Method get-n-channels Queries the number of channels of a pixbuf. @table @var @item pixbuf A pixbuf. @item ret Number of channels. @end table @end deffn @deffn Function gdk-pixbuf-get-has-alpha (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{bool}) @deffnx Method get-has-alpha Queries whether a pixbuf has an alpha channel (opacity information). @table @var @item pixbuf A pixbuf. @item ret @samp{@code{#t}} if it has an alpha channel, @samp{@code{#f}} otherwise. @end table @end deffn @deffn Function gdk-pixbuf-get-bits-per-sample (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{int}) @deffnx Method get-bits-per-sample Queries the number of bits per color sample in a pixbuf. @table @var @item pixbuf A pixbuf. @item ret Number of bits per color sample. @end table @end deffn @deffn Function gdk-pixbuf-get-width (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{int}) @deffnx Method get-width Queries the width of a pixbuf. @table @var @item pixbuf A pixbuf. @item ret Width in pixels. @end table @end deffn @deffn Function gdk-pixbuf-get-height (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{int}) @deffnx Method get-height Queries the height of a pixbuf. @table @var @item pixbuf A pixbuf. @item ret Height in pixels. @end table @end deffn @deffn Function gdk-pixbuf-get-rowstride (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{int}) @deffnx Method get-rowstride Queries the rowstride of a pixbuf, which is the number of bytes between the start of a row and the start of the next row. @table @var @item pixbuf A pixbuf. @item ret Distance between row starts. @end table @end deffn @deffn Function gdk-pixbuf-get-option (self@tie{}@code{}) (key@tie{}@code{mchars}) @result{}@tie{} (ret@tie{}@code{mchars}) @deffnx Method get-option Looks up @var{key} in the list of options that may have been attached to the @var{pixbuf} when it was loaded. @table @var @item pixbuf a @code{} @item key a nul-terminated string. @item ret the value associated with @var{key}. This is a nul-terminated string that should not be freed or @samp{@code{#f}} if @var{key} was not found. @end table @end deffn @c %end of fragment guile-gnome-platform-2.16.2/gtk/doc/gdk/section-gcs.xml.texi0000644000175000017500000000154711670374302024205 0ustar00wingowingo00000000000000 @c %start of fragment @node Graphics Contexts @chapter Graphics Contexts Objects to encapsulate drawing properties @section Overview All drawing operations in GDK take a @dfn{graphics context} (GC) argument. A graphics context encapsulates information about the way things are drawn, such as the foreground color or line width. By using graphics contexts, the number of arguments to each drawing call is greatly reduced, and communication overhead is minimized, since identical arguments do not need to be passed repeatedly. Most values of a graphics context can be set at creation time by using @code{gdk-gc-new-with-values}, or can be set one-by-one using functions such as @code{gdk-gc-set-foreground}. A few of the values in the GC, such as the dash pattern, can only be set by the latter method. @section Usage @include defuns-gcs.xml.texi @c %end of fragment guile-gnome-platform-2.16.2/gtk/doc/gdk/Makefile.am0000644000175000017500000000205111670374302022320 0ustar00wingowingo00000000000000################################################################################ ## guile-gnome-gdk.info include $(top_srcdir)/generate-docs.mk docbook_xml_wildcard = ~/src/gnome2/gtk+/docs/reference/gdk/xml/*.xml \ ~/src/gnome2/gtk+/docs/reference/gdk-pixbuf/xml/*.xml docbook_xml_ignore_files = \ %pixbuf/xml/file-saving.xml \ %pixbuf/xml/gdk-pixbuf-xlib-from-drawables.xml \ %pixbuf/xml/gdk-pixbuf-xlib-init.xml \ %pixbuf/xml/gdk-pixbuf-xlib-rendering.xml \ %pixbuf/xml/gdk-pixbuf-xlib-rgb.xml \ %pixbuf/xml/initialization_versions.xml \ %pixbuf/xml/inline.xml \ %gdk/xml/input.xml \ %pixbuf/xml/refcounting.xml docbook_xml_files = $(filter-out $(docbook_xml_ignore_files), $(wildcard $(docbook_xml_wildcard))) ## SIGH, have to munge the parsed entities list GUILE_FLAGS=-l munge-parsed-ents --debug wrapset_stem = gdk GTK_DOC_COVERAGE_MODULES = (gnome gw $(wrapset_stem)) EXTRA_DIST = overrides.texi info_TEXINFOS=guile-gnome-gdk.texi guile_gnome_gdk_TEXINFOS=overview.texi $(wildcard section-*.texi) $(wildcard defuns-*.texi) undocumented.texi guile-gnome-platform-2.16.2/gtk/doc/gdk/section-pixmaps.xml.texi0000644000175000017500000000105211670374302025101 0ustar00wingowingo00000000000000 @c %start of fragment @node Bitmaps and Pixmaps @chapter Bitmaps and Pixmaps Offscreen drawables @section Overview Pixmaps are offscreen drawables. They can be drawn upon with the standard drawing primitives, then copied to another drawable (such as a @code{}) with @code{gdk-pixmap-draw}. The depth of a pixmap is the number of bits per pixels. Bitmaps are simply pixmaps with a depth of 1. (That is, they are monochrome bitmaps - each pixel can be either on or off). @section Usage @include defuns-pixmaps.xml.texi @c %end of fragment guile-gnome-platform-2.16.2/gtk/doc/gdk/section-general.xml.texi0000644000175000017500000000044011670374302025035 0ustar00wingowingo00000000000000 @c %start of fragment @node General @chapter General Library initialization and miscellaneous functions @section Overview This section describes the GDK initialization functions and miscellaneous utility functions. @section Usage @include defuns-general.xml.texi @c %end of fragment guile-gnome-platform-2.16.2/gtk/doc/gdk/section-cairo_interaction.xml.texi0000644000175000017500000000116311670374302027117 0ustar00wingowingo00000000000000 @c %start of fragment @node Cairo Interaction @chapter Cairo Interaction Functions to support using Cairo @section Overview Cairo is a graphics library that supports vector graphics and image compositing that can be used with GDK. Since 2.8, GTK+ does most of its drawing using Cairo. GDK does not wrap the Cairo API, instead it allows to create Cairo contexts which can be used to draw on GDK drawables. Additional functions allow to convert GDK's rectangles and regions into Cairo paths and to use pixbufs as sources for drawing operations. @section Usage @include defuns-cairo_interaction.xml.texi @c %end of fragment guile-gnome-platform-2.16.2/gtk/doc/gdk/section-pixbufs.xml.texi0000644000175000017500000000056711670374302025112 0ustar00wingowingo00000000000000 @c %start of fragment @node Pixbufs @chapter Pixbufs Functions for rendering pixbufs on drawables @section Overview These functions allow to render pixbufs on drawables. Pixbufs are client-side images. For details on how to create and manipulate pixbufs, see the @code{} API documentation. @section Usage @include defuns-pixbufs.xml.texi @c %end of fragment guile-gnome-platform-2.16.2/gtk/doc/gdk/Makefile.in0000644000175000017500000006572011752511067022347 0ustar00wingowingo00000000000000# Makefile.in generated by automake 1.11.5 from Makefile.am. # @configure_input@ # Copyright (C) 1994, 1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, # 2003, 2004, 2005, 2006, 2007, 2008, 2009, 2010, 2011 Free Software # Foundation, Inc. # This Makefile.in is free software; the Free Software Foundation # gives unlimited permission to copy and/or distribute it, # with or without modifications, as long as this notice is preserved. # This program is distributed in the hope that it will be useful, # but WITHOUT ANY WARRANTY, to the extent permitted by law; without # even the implied warranty of MERCHANTABILITY or FITNESS FOR A # PARTICULAR PURPOSE. @SET_MAKE@ ################################################################################ # guile-gnome # Copyright (C) 2007, 2011 Free Software Foundation, Inc. # This program is free software; you can redistribute it and/or # modify it under the terms of the GNU General Public License as # published by the Free Software Foundation; either version 2 of # the License, or (at your option) any later version. # This program is distributed in the hope that it will be useful, # but WITHOUT ANY WARRANTY; without even the implied warranty of # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the # GNU General Public License for more details. # You should have received a copy of the GNU General Public License # along with this program; if not, contact: # Free Software Foundation Voice: +1-617-542-5942 # 59 Temple Place - Suite 330 Fax: +1-617-542-2652 # Boston, MA 02111-1307, USA gnu@gnu.org # # Makefile snippet # VPATH = @srcdir@ am__make_dryrun = \ { \ am__dry=no; \ case $$MAKEFLAGS in \ *\\[\ \ ]*) \ echo 'am--echo: ; @echo "AM" OK' | $(MAKE) -f - 2>/dev/null \ | grep '^AM OK$$' >/dev/null || am__dry=yes;; \ *) \ for am__flg in $$MAKEFLAGS; do \ case $$am__flg in \ *=*|--*) ;; \ *n*) am__dry=yes; break;; \ esac; \ done;; \ esac; \ test $$am__dry = yes; \ } pkgdatadir = $(datadir)/@PACKAGE@ pkgincludedir = $(includedir)/@PACKAGE@ pkglibdir = $(libdir)/@PACKAGE@ pkglibexecdir = $(libexecdir)/@PACKAGE@ am__cd = CDPATH="$${ZSH_VERSION+.}$(PATH_SEPARATOR)" && cd install_sh_DATA = $(install_sh) -c -m 644 install_sh_PROGRAM = $(install_sh) -c install_sh_SCRIPT = $(install_sh) -c INSTALL_HEADER = $(INSTALL_DATA) transform = $(program_transform_name) NORMAL_INSTALL = : PRE_INSTALL = : POST_INSTALL = : NORMAL_UNINSTALL = : PRE_UNINSTALL = : POST_UNINSTALL = : build_triplet = @build@ host_triplet = @host@ DIST_COMMON = $(guile_gnome_gdk_TEXINFOS) $(srcdir)/Makefile.am \ $(srcdir)/Makefile.in $(srcdir)/stamp-vti \ $(srcdir)/version.texi $(top_srcdir)/generate-docs.mk subdir = gtk/doc/gdk ACLOCAL_M4 = $(top_srcdir)/aclocal.m4 am__aclocal_m4_deps = $(top_srcdir)/configure.ac am__configure_deps = $(am__aclocal_m4_deps) $(CONFIGURE_DEPENDENCIES) \ $(ACLOCAL_M4) mkinstalldirs = $(install_sh) -d CONFIG_HEADER = $(top_builddir)/config.h CONFIG_CLEAN_FILES = CONFIG_CLEAN_VPATH_FILES = SOURCES = DIST_SOURCES = INFO_DEPS = $(srcdir)/guile-gnome-gdk.info TEXINFO_TEX = $(top_srcdir)/build-aux/texinfo.tex am__TEXINFO_TEX_DIR = $(top_srcdir)/build-aux DVIS = guile-gnome-gdk.dvi PDFS = guile-gnome-gdk.pdf PSS = guile-gnome-gdk.ps HTMLS = guile-gnome-gdk.html TEXINFOS = guile-gnome-gdk.texi TEXI2DVI = texi2dvi TEXI2PDF = $(TEXI2DVI) --pdf --batch MAKEINFOHTML = $(MAKEINFO) --html AM_MAKEINFOHTMLFLAGS = $(AM_MAKEINFOFLAGS) DVIPS = dvips am__can_run_installinfo = \ case $$AM_UPDATE_INFO_DIR in \ n|no|NO) false;; \ *) (install-info --version) >/dev/null 2>&1;; \ esac am__installdirs = "$(DESTDIR)$(infodir)" am__vpath_adj_setup = srcdirstrip=`echo "$(srcdir)" | sed 's|.|.|g'`; am__vpath_adj = case $$p in \ $(srcdir)/*) f=`echo "$$p" | sed "s|^$$srcdirstrip/||"`;; \ *) f=$$p;; \ esac; am__strip_dir = f=`echo $$p | sed -e 's|^.*/||'`; am__install_max = 40 am__nobase_strip_setup = \ srcdirstrip=`echo "$(srcdir)" | sed 's/[].[^$$\\*|]/\\\\&/g'` am__nobase_strip = \ for p in $$list; do echo "$$p"; done | sed -e "s|$$srcdirstrip/||" am__nobase_list = $(am__nobase_strip_setup); \ for p in $$list; do echo "$$p $$p"; done | \ sed "s| $$srcdirstrip/| |;"' / .*\//!s/ .*/ ./; s,\( .*\)/[^/]*$$,\1,' | \ $(AWK) 'BEGIN { files["."] = "" } { files[$$2] = files[$$2] " " $$1; \ if (++n[$$2] == $(am__install_max)) \ { print $$2, files[$$2]; n[$$2] = 0; files[$$2] = "" } } \ END { for (dir in files) print dir, files[dir] }' am__base_list = \ sed '$$!N;$$!N;$$!N;$$!N;$$!N;$$!N;$$!N;s/\n/ /g' | \ sed '$$!N;$$!N;$$!N;$$!N;s/\n/ /g' am__uninstall_files_from_dir = { \ test -z "$$files" \ || { test ! -d "$$dir" && test ! -f "$$dir" && test ! -r "$$dir"; } \ || { echo " ( cd '$$dir' && rm -f" $$files ")"; \ $(am__cd) "$$dir" && rm -f $$files; }; \ } DISTFILES = $(DIST_COMMON) $(DIST_SOURCES) $(TEXINFOS) $(EXTRA_DIST) ACLOCAL = @ACLOCAL@ AG_PKG_CONFIG_PATH = @AG_PKG_CONFIG_PATH@ AMTAR = @AMTAR@ API_VERSION = @API_VERSION@ AR = @AR@ ATK_CFLAGS = @ATK_CFLAGS@ ATK_LIBS = @ATK_LIBS@ AUTOCONF = @AUTOCONF@ AUTOHEADER = @AUTOHEADER@ AUTOMAKE = @AUTOMAKE@ AWK = @AWK@ BONOBO_IDL_DIR = @BONOBO_IDL_DIR@ CANVAS_CFLAGS = @CANVAS_CFLAGS@ CANVAS_LIBS = @CANVAS_LIBS@ CC = @CC@ CCDEPMODE = @CCDEPMODE@ CFLAGS = @CFLAGS@ CORBA_CFLAGS = @CORBA_CFLAGS@ CORBA_LIBS = @CORBA_LIBS@ CPP = @CPP@ CPPFLAGS = @CPPFLAGS@ CYGPATH_W = @CYGPATH_W@ DEFS = @DEFS@ DEPDIR = @DEPDIR@ DLLTOOL = @DLLTOOL@ DSYMUTIL = @DSYMUTIL@ DUMPBIN = @DUMPBIN@ ECHO_C = @ECHO_C@ ECHO_N = @ECHO_N@ ECHO_T = @ECHO_T@ EGREP = @EGREP@ EXEEXT = @EXEEXT@ FGREP = @FGREP@ GCONF_CFLAGS = @GCONF_CFLAGS@ GCONF_LIBS = @GCONF_LIBS@ GDK_CFLAGS = @GDK_CFLAGS@ GDK_LIBS = @GDK_LIBS@ GDK_PIXBUF_CFLAGS = @GDK_PIXBUF_CFLAGS@ GDK_PIXBUF_LIBS = @GDK_PIXBUF_LIBS@ GLIB_CFLAGS = @GLIB_CFLAGS@ GLIB_LIBS = @GLIB_LIBS@ GNOMEUI_DEPRECATION_FLAGS = @GNOMEUI_DEPRECATION_FLAGS@ GNOME_VFS_CFLAGS = @GNOME_VFS_CFLAGS@ GNOME_VFS_DEPRECATED_CFLAGS = @GNOME_VFS_DEPRECATED_CFLAGS@ GNOME_VFS_LIBS = @GNOME_VFS_LIBS@ GOBJECT_CFLAGS = @GOBJECT_CFLAGS@ GOBJECT_LIBS = @GOBJECT_LIBS@ GREP = @GREP@ GTHREAD_CFLAGS = @GTHREAD_CFLAGS@ GTHREAD_LIBS = @GTHREAD_LIBS@ GTK_CFLAGS = @GTK_CFLAGS@ GTK_DEPRECATED_CFLAGS = @GTK_DEPRECATED_CFLAGS@ GTK_LIBS = @GTK_LIBS@ GUILE_CAIRO_CFLAGS = @GUILE_CAIRO_CFLAGS@ GUILE_CAIRO_LIBS = @GUILE_CAIRO_LIBS@ GUILE_CFLAGS = @GUILE_CFLAGS@ GUILE_EFFECTIVE_VERSION = @GUILE_EFFECTIVE_VERSION@ GUILE_GLIB_CFLAGS = @GUILE_GLIB_CFLAGS@ GUILE_GLIB_LIBS = @GUILE_GLIB_LIBS@ GUILE_LIBS = @GUILE_LIBS@ G_WRAP_CFLAGS = @G_WRAP_CFLAGS@ G_WRAP_LIBS = @G_WRAP_LIBS@ G_WRAP_LIB_DIR = @G_WRAP_LIB_DIR@ G_WRAP_MODULE_DIR = @G_WRAP_MODULE_DIR@ INSTALL = @INSTALL@ INSTALL_DATA = @INSTALL_DATA@ INSTALL_PROGRAM = @INSTALL_PROGRAM@ INSTALL_SCRIPT = @INSTALL_SCRIPT@ INSTALL_STRIP_PROGRAM = @INSTALL_STRIP_PROGRAM@ LD = @LD@ LDFLAGS = @LDFLAGS@ LIBGLADE_CFLAGS = @LIBGLADE_CFLAGS@ LIBGLADE_LIBS = @LIBGLADE_LIBS@ LIBGNOMEUI_CFLAGS = @LIBGNOMEUI_CFLAGS@ LIBGNOMEUI_LIBS = @LIBGNOMEUI_LIBS@ LIBGNOME_CFLAGS = @LIBGNOME_CFLAGS@ LIBGNOME_LIBS = @LIBGNOME_LIBS@ LIBOBJS = @LIBOBJS@ LIBS = @LIBS@ LIBTOOL = @LIBTOOL@ LIPO = @LIPO@ LN_S = @LN_S@ LTLIBOBJS = @LTLIBOBJS@ MAKEINFO = @MAKEINFO@ MANIFEST_TOOL = @MANIFEST_TOOL@ MKDIR_P = @MKDIR_P@ NM = @NM@ NMEDIT = @NMEDIT@ OBJDUMP = @OBJDUMP@ OBJEXT = @OBJEXT@ ORBIT_IDL = @ORBIT_IDL@ OTOOL = @OTOOL@ OTOOL64 = @OTOOL64@ PACKAGE = @PACKAGE@ PACKAGE_BUGREPORT = @PACKAGE_BUGREPORT@ PACKAGE_NAME = @PACKAGE_NAME@ PACKAGE_STRING = @PACKAGE_STRING@ PACKAGE_TARNAME = @PACKAGE_TARNAME@ PACKAGE_URL = @PACKAGE_URL@ PACKAGE_VERSION = @PACKAGE_VERSION@ PANGOCAIRO_CFLAGS = @PANGOCAIRO_CFLAGS@ PANGOCAIRO_LIBS = @PANGOCAIRO_LIBS@ PANGO_CFLAGS = @PANGO_CFLAGS@ PANGO_LIBS = @PANGO_LIBS@ PATH_SEPARATOR = @PATH_SEPARATOR@ PKG_CONFIG = @PKG_CONFIG@ PKG_CONFIG_LIBDIR = @PKG_CONFIG_LIBDIR@ PKG_CONFIG_PATH = @PKG_CONFIG_PATH@ RANLIB = @RANLIB@ SED = @SED@ SET_MAKE = @SET_MAKE@ SHELL = @SHELL@ STRIP = @STRIP@ VERSION = @VERSION@ WARN_CFLAGS = @WARN_CFLAGS@ abs_builddir = @abs_builddir@ abs_srcdir = @abs_srcdir@ abs_top_builddir = @abs_top_builddir@ abs_top_srcdir = @abs_top_srcdir@ ac_ct_AR = @ac_ct_AR@ ac_ct_CC = @ac_ct_CC@ ac_ct_DUMPBIN = @ac_ct_DUMPBIN@ am__include = @am__include@ am__leading_dot = @am__leading_dot@ am__quote = @am__quote@ am__tar = @am__tar@ am__untar = @am__untar@ bindir = @bindir@ build = @build@ build_alias = @build_alias@ build_cpu = @build_cpu@ build_os = @build_os@ build_vendor = @build_vendor@ builddir = @builddir@ datadir = @datadir@ datarootdir = @datarootdir@ docdir = @docdir@ dvidir = @dvidir@ exec_prefix = @exec_prefix@ host = @host@ host_alias = @host_alias@ host_cpu = @host_cpu@ host_os = @host_os@ host_vendor = @host_vendor@ htmldir = @htmldir@ includedir = @includedir@ infodir = @infodir@ install_sh = @install_sh@ libdir = @libdir@ libexecdir = @libexecdir@ localedir = @localedir@ localstatedir = @localstatedir@ mandir = @mandir@ mkdir_p = @mkdir_p@ oldincludedir = @oldincludedir@ pdfdir = @pdfdir@ prefix = @prefix@ program_transform_name = @program_transform_name@ psdir = @psdir@ sbindir = @sbindir@ sharedstatedir = @sharedstatedir@ srcdir = @srcdir@ sysconfdir = @sysconfdir@ target_alias = @target_alias@ top_build_prefix = @top_build_prefix@ top_builddir = @top_builddir@ top_srcdir = @top_srcdir@ wrapset_module = (gnome gw $(wrapset_stem)-spec) wrapset_name = gnome-$(wrapset_stem) GTK_DOC_TO_TEXI_STUBS = '((@ (gnome gw support gtk-doc) gtk-doc->texi-stubs) (cdr (program-arguments)))' GTK_DOC_DEFUN_HEURISTICS_METHOD = heuristics GTK_DOC_DEFUN_HEURISTICS_ARGS = (your-module-here) GTK_DOC_DEFUN_GWRAP_METHOD = g-wrap GTK_DOC_DEFUN_GWRAP_ARGS = $(wrapset_module) $(wrapset_name) GTK_DOC_DEFUN_METHOD = $(GTK_DOC_DEFUN_GWRAP_METHOD) GTK_DOC_DEFUN_ARGS = $(GTK_DOC_DEFUN_GWRAP_ARGS) GTK_DOC_TO_TEXI_DEFUNS = "(apply (@ (gnome gw support gtk-doc) gtk-doc->texi-defuns) (cadr (program-arguments)) '$(GTK_DOC_DEFUN_METHOD) '($(GTK_DOC_DEFUN_ARGS)) (cddr (program-arguments)))" GTK_DOC_COVERAGE_MODULES = (gnome gw $(wrapset_stem)) GTK_DOC_COVERAGE_TEXI = $(info_TEXINFOS) GTK_DOC_CHECK_COVERAGE = "((@ (gnome gw support gtk-doc) check-documentation-coverage) '($(GTK_DOC_COVERAGE_MODULES)) \"$(GTK_DOC_COVERAGE_TEXI)\")" GTK_DOC_GENERATE_UNDOCUMENTED = "((@ (gnome gw support gtk-doc) generate-undocumented-texi) '($(GTK_DOC_COVERAGE_MODULES)) \"$(GTK_DOC_COVERAGE_TEXI)\")" GUILE = $(top_builddir)/dev-environ guile docbook_xml_wildcard = ~/src/gnome2/gtk+/docs/reference/gdk/xml/*.xml \ ~/src/gnome2/gtk+/docs/reference/gdk-pixbuf/xml/*.xml docbook_xml_ignore_files = \ %pixbuf/xml/file-saving.xml \ %pixbuf/xml/gdk-pixbuf-xlib-from-drawables.xml \ %pixbuf/xml/gdk-pixbuf-xlib-init.xml \ %pixbuf/xml/gdk-pixbuf-xlib-rendering.xml \ %pixbuf/xml/gdk-pixbuf-xlib-rgb.xml \ %pixbuf/xml/initialization_versions.xml \ %pixbuf/xml/inline.xml \ %gdk/xml/input.xml \ %pixbuf/xml/refcounting.xml docbook_xml_files = $(filter-out $(docbook_xml_ignore_files), $(wildcard $(docbook_xml_wildcard))) GUILE_FLAGS = -l munge-parsed-ents --debug wrapset_stem = gdk EXTRA_DIST = overrides.texi info_TEXINFOS = guile-gnome-gdk.texi guile_gnome_gdk_TEXINFOS = overview.texi $(wildcard section-*.texi) $(wildcard defuns-*.texi) undocumented.texi all: all-am .SUFFIXES: .SUFFIXES: .dvi .html .info .pdf .ps .texi $(srcdir)/Makefile.in: $(srcdir)/Makefile.am $(top_srcdir)/generate-docs.mk $(am__configure_deps) @for dep in $?; do \ case '$(am__configure_deps)' in \ *$$dep*) \ ( cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh ) \ && { if test -f $@; then exit 0; else break; fi; }; \ exit 1;; \ esac; \ done; \ echo ' cd $(top_srcdir) && $(AUTOMAKE) --gnu gtk/doc/gdk/Makefile'; \ $(am__cd) $(top_srcdir) && \ $(AUTOMAKE) --gnu gtk/doc/gdk/Makefile .PRECIOUS: Makefile Makefile: $(srcdir)/Makefile.in $(top_builddir)/config.status @case '$?' in \ *config.status*) \ cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh;; \ *) \ echo ' cd $(top_builddir) && $(SHELL) ./config.status $(subdir)/$@ $(am__depfiles_maybe)'; \ cd $(top_builddir) && $(SHELL) ./config.status $(subdir)/$@ $(am__depfiles_maybe);; \ esac; $(top_srcdir)/generate-docs.mk: $(top_builddir)/config.status: $(top_srcdir)/configure $(CONFIG_STATUS_DEPENDENCIES) cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh $(top_srcdir)/configure: $(am__configure_deps) cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh $(ACLOCAL_M4): $(am__aclocal_m4_deps) cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh $(am__aclocal_m4_deps): mostlyclean-libtool: -rm -f *.lo clean-libtool: -rm -rf .libs _libs .texi.info: restore=: && backupdir="$(am__leading_dot)am$$$$" && \ am__cwd=`pwd` && $(am__cd) $(srcdir) && \ rm -rf $$backupdir && mkdir $$backupdir && \ if ($(MAKEINFO) --version) >/dev/null 2>&1; then \ for f in $@ $@-[0-9] $@-[0-9][0-9] $(@:.info=).i[0-9] $(@:.info=).i[0-9][0-9]; do \ if test -f $$f; then mv $$f $$backupdir; restore=mv; else :; fi; \ done; \ else :; fi && \ cd "$$am__cwd"; \ if $(MAKEINFO) $(AM_MAKEINFOFLAGS) $(MAKEINFOFLAGS) -I $(srcdir) \ -o $@ $<; \ then \ rc=0; \ $(am__cd) $(srcdir); \ else \ rc=$$?; \ $(am__cd) $(srcdir) && \ $$restore $$backupdir/* `echo "./$@" | sed 's|[^/]*$$||'`; \ fi; \ rm -rf $$backupdir; exit $$rc .texi.dvi: TEXINPUTS="$(am__TEXINFO_TEX_DIR)$(PATH_SEPARATOR)$$TEXINPUTS" \ MAKEINFO='$(MAKEINFO) $(AM_MAKEINFOFLAGS) $(MAKEINFOFLAGS) -I $(srcdir)' \ $(TEXI2DVI) $< .texi.pdf: TEXINPUTS="$(am__TEXINFO_TEX_DIR)$(PATH_SEPARATOR)$$TEXINPUTS" \ MAKEINFO='$(MAKEINFO) $(AM_MAKEINFOFLAGS) $(MAKEINFOFLAGS) -I $(srcdir)' \ $(TEXI2PDF) $< .texi.html: rm -rf $(@:.html=.htp) if $(MAKEINFOHTML) $(AM_MAKEINFOHTMLFLAGS) $(MAKEINFOFLAGS) -I $(srcdir) \ -o $(@:.html=.htp) $<; \ then \ rm -rf $@; \ if test ! -d $(@:.html=.htp) && test -d $(@:.html=); then \ mv $(@:.html=) $@; else mv $(@:.html=.htp) $@; fi; \ else \ if test ! -d $(@:.html=.htp) && test -d $(@:.html=); then \ rm -rf $(@:.html=); else rm -Rf $(@:.html=.htp) $@; fi; \ exit 1; \ fi $(srcdir)/guile-gnome-gdk.info: guile-gnome-gdk.texi $(srcdir)/version.texi $(guile_gnome_gdk_TEXINFOS) guile-gnome-gdk.dvi: guile-gnome-gdk.texi $(srcdir)/version.texi $(guile_gnome_gdk_TEXINFOS) guile-gnome-gdk.pdf: guile-gnome-gdk.texi $(srcdir)/version.texi $(guile_gnome_gdk_TEXINFOS) guile-gnome-gdk.html: guile-gnome-gdk.texi $(srcdir)/version.texi $(guile_gnome_gdk_TEXINFOS) $(srcdir)/version.texi: $(srcdir)/stamp-vti $(srcdir)/stamp-vti: guile-gnome-gdk.texi $(top_srcdir)/configure @(dir=.; test -f ./guile-gnome-gdk.texi || dir=$(srcdir); \ set `$(SHELL) $(top_srcdir)/build-aux/mdate-sh $$dir/guile-gnome-gdk.texi`; \ echo "@set UPDATED $$1 $$2 $$3"; \ echo "@set UPDATED-MONTH $$2 $$3"; \ echo "@set EDITION $(VERSION)"; \ echo "@set VERSION $(VERSION)") > vti.tmp @cmp -s vti.tmp $(srcdir)/version.texi \ || (echo "Updating $(srcdir)/version.texi"; \ cp vti.tmp $(srcdir)/version.texi) -@rm -f vti.tmp @cp $(srcdir)/version.texi $@ mostlyclean-vti: -rm -f vti.tmp maintainer-clean-vti: -rm -f $(srcdir)/stamp-vti $(srcdir)/version.texi .dvi.ps: TEXINPUTS="$(am__TEXINFO_TEX_DIR)$(PATH_SEPARATOR)$$TEXINPUTS" \ $(DVIPS) -o $@ $< uninstall-dvi-am: @$(NORMAL_UNINSTALL) @list='$(DVIS)'; test -n "$(dvidir)" || list=; \ for p in $$list; do \ $(am__strip_dir) \ echo " rm -f '$(DESTDIR)$(dvidir)/$$f'"; \ rm -f "$(DESTDIR)$(dvidir)/$$f"; \ done uninstall-html-am: @$(NORMAL_UNINSTALL) @list='$(HTMLS)'; test -n "$(htmldir)" || list=; \ for p in $$list; do \ $(am__strip_dir) \ echo " rm -rf '$(DESTDIR)$(htmldir)/$$f'"; \ rm -rf "$(DESTDIR)$(htmldir)/$$f"; \ done uninstall-info-am: @$(PRE_UNINSTALL) @if test -d '$(DESTDIR)$(infodir)' && $(am__can_run_installinfo); then \ list='$(INFO_DEPS)'; \ for file in $$list; do \ relfile=`echo "$$file" | sed 's|^.*/||'`; \ echo " install-info --info-dir='$(DESTDIR)$(infodir)' --remove '$(DESTDIR)$(infodir)/$$relfile'"; \ if install-info --info-dir="$(DESTDIR)$(infodir)" --remove "$(DESTDIR)$(infodir)/$$relfile"; \ then :; else test ! -f "$(DESTDIR)$(infodir)/$$relfile" || exit 1; fi; \ done; \ else :; fi @$(NORMAL_UNINSTALL) @list='$(INFO_DEPS)'; \ for file in $$list; do \ relfile=`echo "$$file" | sed 's|^.*/||'`; \ relfile_i=`echo "$$relfile" | sed 's|\.info$$||;s|$$|.i|'`; \ (if test -d "$(DESTDIR)$(infodir)" && cd "$(DESTDIR)$(infodir)"; then \ echo " cd '$(DESTDIR)$(infodir)' && rm -f $$relfile $$relfile-[0-9] $$relfile-[0-9][0-9] $$relfile_i[0-9] $$relfile_i[0-9][0-9]"; \ rm -f $$relfile $$relfile-[0-9] $$relfile-[0-9][0-9] $$relfile_i[0-9] $$relfile_i[0-9][0-9]; \ else :; fi); \ done uninstall-pdf-am: @$(NORMAL_UNINSTALL) @list='$(PDFS)'; test -n "$(pdfdir)" || list=; \ for p in $$list; do \ $(am__strip_dir) \ echo " rm -f '$(DESTDIR)$(pdfdir)/$$f'"; \ rm -f "$(DESTDIR)$(pdfdir)/$$f"; \ done uninstall-ps-am: @$(NORMAL_UNINSTALL) @list='$(PSS)'; test -n "$(psdir)" || list=; \ for p in $$list; do \ $(am__strip_dir) \ echo " rm -f '$(DESTDIR)$(psdir)/$$f'"; \ rm -f "$(DESTDIR)$(psdir)/$$f"; \ done dist-info: $(INFO_DEPS) @srcdirstrip=`echo "$(srcdir)" | sed 's|.|.|g'`; \ list='$(INFO_DEPS)'; \ for base in $$list; do \ case $$base in \ $(srcdir)/*) base=`echo "$$base" | sed "s|^$$srcdirstrip/||"`;; \ esac; \ if test -f $$base; then d=.; else d=$(srcdir); fi; \ base_i=`echo "$$base" | sed 's|\.info$$||;s|$$|.i|'`; \ for file in $$d/$$base $$d/$$base-[0-9] $$d/$$base-[0-9][0-9] $$d/$$base_i[0-9] $$d/$$base_i[0-9][0-9]; do \ if test -f $$file; then \ relfile=`expr "$$file" : "$$d/\(.*\)"`; \ test -f "$(distdir)/$$relfile" || \ cp -p $$file "$(distdir)/$$relfile"; \ else :; fi; \ done; \ done mostlyclean-aminfo: -rm -rf guile-gnome-gdk.aux guile-gnome-gdk.cp guile-gnome-gdk.cps \ guile-gnome-gdk.fn guile-gnome-gdk.fns guile-gnome-gdk.ky \ guile-gnome-gdk.kys guile-gnome-gdk.log guile-gnome-gdk.pg \ guile-gnome-gdk.pgs guile-gnome-gdk.tmp guile-gnome-gdk.toc \ guile-gnome-gdk.tp guile-gnome-gdk.tps guile-gnome-gdk.vr \ guile-gnome-gdk.vrs clean-aminfo: -test -z "guile-gnome-gdk.dvi guile-gnome-gdk.pdf guile-gnome-gdk.ps \ guile-gnome-gdk.html" \ || rm -rf guile-gnome-gdk.dvi guile-gnome-gdk.pdf guile-gnome-gdk.ps \ guile-gnome-gdk.html maintainer-clean-aminfo: @list='$(INFO_DEPS)'; for i in $$list; do \ i_i=`echo "$$i" | sed 's|\.info$$||;s|$$|.i|'`; \ echo " rm -f $$i $$i-[0-9] $$i-[0-9][0-9] $$i_i[0-9] $$i_i[0-9][0-9]"; \ rm -f $$i $$i-[0-9] $$i-[0-9][0-9] $$i_i[0-9] $$i_i[0-9][0-9]; \ done tags: TAGS TAGS: ctags: CTAGS CTAGS: distdir: $(DISTFILES) @srcdirstrip=`echo "$(srcdir)" | sed 's/[].[^$$\\*]/\\\\&/g'`; \ topsrcdirstrip=`echo "$(top_srcdir)" | sed 's/[].[^$$\\*]/\\\\&/g'`; \ list='$(DISTFILES)'; \ dist_files=`for file in $$list; do echo $$file; done | \ sed -e "s|^$$srcdirstrip/||;t" \ -e "s|^$$topsrcdirstrip/|$(top_builddir)/|;t"`; \ case $$dist_files in \ */*) $(MKDIR_P) `echo "$$dist_files" | \ sed '/\//!d;s|^|$(distdir)/|;s,/[^/]*$$,,' | \ sort -u` ;; \ esac; \ for file in $$dist_files; do \ if test -f $$file || test -d $$file; then d=.; else d=$(srcdir); fi; \ if test -d $$d/$$file; then \ dir=`echo "/$$file" | sed -e 's,/[^/]*$$,,'`; \ if test -d "$(distdir)/$$file"; then \ find "$(distdir)/$$file" -type d ! -perm -700 -exec chmod u+rwx {} \;; \ fi; \ if test -d $(srcdir)/$$file && test $$d != $(srcdir); then \ cp -fpR $(srcdir)/$$file "$(distdir)$$dir" || exit 1; \ find "$(distdir)/$$file" -type d ! -perm -700 -exec chmod u+rwx {} \;; \ fi; \ cp -fpR $$d/$$file "$(distdir)$$dir" || exit 1; \ else \ test -f "$(distdir)/$$file" \ || cp -p $$d/$$file "$(distdir)/$$file" \ || exit 1; \ fi; \ done $(MAKE) $(AM_MAKEFLAGS) \ top_distdir="$(top_distdir)" distdir="$(distdir)" \ dist-info check-am: all-am check: check-am all-am: Makefile $(INFO_DEPS) installdirs: for dir in "$(DESTDIR)$(infodir)"; do \ test -z "$$dir" || $(MKDIR_P) "$$dir"; \ done install: install-am install-exec: install-exec-am install-data: install-data-am uninstall: uninstall-am install-am: all-am @$(MAKE) $(AM_MAKEFLAGS) install-exec-am install-data-am installcheck: installcheck-am install-strip: if test -z '$(STRIP)'; then \ $(MAKE) $(AM_MAKEFLAGS) INSTALL_PROGRAM="$(INSTALL_STRIP_PROGRAM)" \ install_sh_PROGRAM="$(INSTALL_STRIP_PROGRAM)" INSTALL_STRIP_FLAG=-s \ install; \ else \ $(MAKE) $(AM_MAKEFLAGS) INSTALL_PROGRAM="$(INSTALL_STRIP_PROGRAM)" \ install_sh_PROGRAM="$(INSTALL_STRIP_PROGRAM)" INSTALL_STRIP_FLAG=-s \ "INSTALL_PROGRAM_ENV=STRIPPROG='$(STRIP)'" install; \ fi mostlyclean-generic: clean-generic: distclean-generic: -test -z "$(CONFIG_CLEAN_FILES)" || rm -f $(CONFIG_CLEAN_FILES) -test . = "$(srcdir)" || test -z "$(CONFIG_CLEAN_VPATH_FILES)" || rm -f $(CONFIG_CLEAN_VPATH_FILES) maintainer-clean-generic: @echo "This command is intended for maintainers to use" @echo "it deletes files that may require special tools to rebuild." clean: clean-am clean-am: clean-aminfo clean-generic clean-libtool mostlyclean-am distclean: distclean-am -rm -f Makefile distclean-am: clean-am distclean-generic dvi: dvi-am dvi-am: $(DVIS) html: html-am html-am: $(HTMLS) info: info-am info-am: $(INFO_DEPS) install-data-am: install-info-am install-dvi: install-dvi-am install-dvi-am: $(DVIS) @$(NORMAL_INSTALL) @list='$(DVIS)'; test -n "$(dvidir)" || list=; \ if test -n "$$list"; then \ echo " $(MKDIR_P) '$(DESTDIR)$(dvidir)'"; \ $(MKDIR_P) "$(DESTDIR)$(dvidir)" || exit 1; \ fi; \ for p in $$list; do \ if test -f "$$p"; then d=; else d="$(srcdir)/"; fi; \ echo "$$d$$p"; \ done | $(am__base_list) | \ while read files; do \ echo " $(INSTALL_DATA) $$files '$(DESTDIR)$(dvidir)'"; \ $(INSTALL_DATA) $$files "$(DESTDIR)$(dvidir)" || exit $$?; \ done install-exec-am: install-html: install-html-am install-html-am: $(HTMLS) @$(NORMAL_INSTALL) @list='$(HTMLS)'; list2=; test -n "$(htmldir)" || list=; \ if test -n "$$list"; then \ echo " $(MKDIR_P) '$(DESTDIR)$(htmldir)'"; \ $(MKDIR_P) "$(DESTDIR)$(htmldir)" || exit 1; \ fi; \ for p in $$list; do \ if test -f "$$p" || test -d "$$p"; then d=; else d="$(srcdir)/"; fi; \ $(am__strip_dir) \ d2=$$d$$p; \ if test -d "$$d2"; then \ echo " $(MKDIR_P) '$(DESTDIR)$(htmldir)/$$f'"; \ $(MKDIR_P) "$(DESTDIR)$(htmldir)/$$f" || exit 1; \ echo " $(INSTALL_DATA) '$$d2'/* '$(DESTDIR)$(htmldir)/$$f'"; \ $(INSTALL_DATA) "$$d2"/* "$(DESTDIR)$(htmldir)/$$f" || exit $$?; \ else \ list2="$$list2 $$d2"; \ fi; \ done; \ test -z "$$list2" || { echo "$$list2" | $(am__base_list) | \ while read files; do \ echo " $(INSTALL_DATA) $$files '$(DESTDIR)$(htmldir)'"; \ $(INSTALL_DATA) $$files "$(DESTDIR)$(htmldir)" || exit $$?; \ done; } install-info: install-info-am install-info-am: $(INFO_DEPS) @$(NORMAL_INSTALL) @srcdirstrip=`echo "$(srcdir)" | sed 's|.|.|g'`; \ list='$(INFO_DEPS)'; test -n "$(infodir)" || list=; \ if test -n "$$list"; then \ echo " $(MKDIR_P) '$(DESTDIR)$(infodir)'"; \ $(MKDIR_P) "$(DESTDIR)$(infodir)" || exit 1; \ fi; \ for file in $$list; do \ case $$file in \ $(srcdir)/*) file=`echo "$$file" | sed "s|^$$srcdirstrip/||"`;; \ esac; \ if test -f $$file; then d=.; else d=$(srcdir); fi; \ file_i=`echo "$$file" | sed 's|\.info$$||;s|$$|.i|'`; \ for ifile in $$d/$$file $$d/$$file-[0-9] $$d/$$file-[0-9][0-9] \ $$d/$$file_i[0-9] $$d/$$file_i[0-9][0-9] ; do \ if test -f $$ifile; then \ echo "$$ifile"; \ else : ; fi; \ done; \ done | $(am__base_list) | \ while read files; do \ echo " $(INSTALL_DATA) $$files '$(DESTDIR)$(infodir)'"; \ $(INSTALL_DATA) $$files "$(DESTDIR)$(infodir)" || exit $$?; done @$(POST_INSTALL) @if $(am__can_run_installinfo); then \ list='$(INFO_DEPS)'; test -n "$(infodir)" || list=; \ for file in $$list; do \ relfile=`echo "$$file" | sed 's|^.*/||'`; \ echo " install-info --info-dir='$(DESTDIR)$(infodir)' '$(DESTDIR)$(infodir)/$$relfile'";\ install-info --info-dir="$(DESTDIR)$(infodir)" "$(DESTDIR)$(infodir)/$$relfile" || :;\ done; \ else : ; fi install-man: install-pdf: install-pdf-am install-pdf-am: $(PDFS) @$(NORMAL_INSTALL) @list='$(PDFS)'; test -n "$(pdfdir)" || list=; \ if test -n "$$list"; then \ echo " $(MKDIR_P) '$(DESTDIR)$(pdfdir)'"; \ $(MKDIR_P) "$(DESTDIR)$(pdfdir)" || exit 1; \ fi; \ for p in $$list; do \ if test -f "$$p"; then d=; else d="$(srcdir)/"; fi; \ echo "$$d$$p"; \ done | $(am__base_list) | \ while read files; do \ echo " $(INSTALL_DATA) $$files '$(DESTDIR)$(pdfdir)'"; \ $(INSTALL_DATA) $$files "$(DESTDIR)$(pdfdir)" || exit $$?; done install-ps: install-ps-am install-ps-am: $(PSS) @$(NORMAL_INSTALL) @list='$(PSS)'; test -n "$(psdir)" || list=; \ if test -n "$$list"; then \ echo " $(MKDIR_P) '$(DESTDIR)$(psdir)'"; \ $(MKDIR_P) "$(DESTDIR)$(psdir)" || exit 1; \ fi; \ for p in $$list; do \ if test -f "$$p"; then d=; else d="$(srcdir)/"; fi; \ echo "$$d$$p"; \ done | $(am__base_list) | \ while read files; do \ echo " $(INSTALL_DATA) $$files '$(DESTDIR)$(psdir)'"; \ $(INSTALL_DATA) $$files "$(DESTDIR)$(psdir)" || exit $$?; done installcheck-am: maintainer-clean: maintainer-clean-am -rm -f Makefile maintainer-clean-am: distclean-am maintainer-clean-aminfo \ maintainer-clean-generic maintainer-clean-vti mostlyclean: mostlyclean-am mostlyclean-am: mostlyclean-aminfo mostlyclean-generic \ mostlyclean-libtool mostlyclean-vti pdf: pdf-am pdf-am: $(PDFS) ps: ps-am ps-am: $(PSS) uninstall-am: uninstall-dvi-am uninstall-html-am uninstall-info-am \ uninstall-pdf-am uninstall-ps-am .MAKE: install-am install-strip .PHONY: all all-am check check-am clean clean-aminfo clean-generic \ clean-libtool dist-info distclean distclean-generic \ distclean-libtool distdir dvi dvi-am html html-am info info-am \ install install-am install-data install-data-am install-dvi \ install-dvi-am install-exec install-exec-am install-html \ install-html-am install-info install-info-am install-man \ install-pdf install-pdf-am install-ps install-ps-am \ install-strip installcheck installcheck-am installdirs \ maintainer-clean maintainer-clean-aminfo \ maintainer-clean-generic maintainer-clean-vti mostlyclean \ mostlyclean-aminfo mostlyclean-generic mostlyclean-libtool \ mostlyclean-vti pdf pdf-am ps ps-am uninstall uninstall-am \ uninstall-dvi-am uninstall-html-am uninstall-info-am \ uninstall-pdf-am uninstall-ps-am generate-stubs: $(GUILE) $(GUILE_FLAGS) -c $(GTK_DOC_TO_TEXI_STUBS) $(docbook_xml_files) generate-defuns: $(GUILE) $(GUILE_FLAGS) -c $(GTK_DOC_TO_TEXI_DEFUNS) ./overrides.texi $(docbook_xml_files) check-coverage: $(GUILE) $(GUILE_FLAGS) -c $(GTK_DOC_CHECK_COVERAGE) generate-undocumented: rm -f undocumented.texi; touch undocumented.texi $(GUILE) $(GUILE_FLAGS) -c $(GTK_DOC_GENERATE_UNDOCUMENTED) # Tell versions [3.59,3.63) of GNU make to not export all variables. # Otherwise a system limit (for SysV at least) may be exceeded. .NOEXPORT: guile-gnome-platform-2.16.2/gtk/doc/gdk/section-util.xml.texi0000644000175000017500000000065011670374302024400 0ustar00wingowingo00000000000000 @c %start of fragment @node Utilities @chapter Utilities Utility and miscellaneous convenience functions. @section Overview These functions provide miscellaneous utilities for manipulating pixbufs. The pixel data in pixbufs may of course be manipulated directly by applications, but several common operations can be performed by these functions instead. @section Usage @include defuns-util.xml.texi @c %end of fragment guile-gnome-platform-2.16.2/gtk/doc/gdk/defuns-gcs.xml.texi0000644000175000017500000002346011670374302024023 0ustar00wingowingo00000000000000 @c %start of fragment @deftp Class Derives from @code{}. This class defines no direct slots. @end deftp @deffn Function gdk-gc-new (drawable@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{}) Create a new graphics context with default values. @table @var @item drawable a @code{}. The created GC must always be used with drawables of the same depth as this one. @item ret the new graphics context. @end table @end deffn @deffn Function gdk-gc-get-screen (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{}) @deffnx Method get-screen Gets the @code{} for which @var{gc} was created @table @var @item gc a @code{}. @item ret the @code{} for @var{gc}. @end table Since 2.2 @end deffn @deffn Function gdk-gc-set-foreground (self@tie{}@code{}) (color@tie{}@code{}) @deffnx Method set-foreground Sets the foreground color for a graphics context. Note that this function uses @var{color->pixel}, use @code{gdk-gc-set-rgb-fg-color} to specify the foreground color as red, green, blue components. @table @var @item gc a @code{}. @item color the new foreground color. @end table @end deffn @deffn Function gdk-gc-set-background (self@tie{}@code{}) (color@tie{}@code{}) @deffnx Method set-background Sets the background color for a graphics context. Note that this function uses @var{color->pixel}, use @code{gdk-gc-set-rgb-bg-color} to specify the background color as red, green, blue components. @table @var @item gc a @code{}. @item color the new background color. @end table @end deffn @deffn Function gdk-gc-set-rgb-fg-color (self@tie{}@code{}) (color@tie{}@code{}) @deffnx Method set-rgb-fg-color Set the foreground color of a GC using an unallocated color. The pixel value for the color will be determined using GdkRGB. If the colormap for the GC has not previously been initialized for GdkRGB, then for pseudo-color colormaps (colormaps with a small modifiable number of colors), a colorcube will be allocated in the colormap. Calling this function for a GC without a colormap is an error. @table @var @item gc a @code{} @item color an unallocated @code{}. @end table @end deffn @deffn Function gdk-gc-set-rgb-bg-color (self@tie{}@code{}) (color@tie{}@code{}) @deffnx Method set-rgb-bg-color Set the background color of a GC using an unallocated color. The pixel value for the color will be determined using GdkRGB. If the colormap for the GC has not previously been initialized for GdkRGB, then for pseudo-color colormaps (colormaps with a small modifiable number of colors), a colorcube will be allocated in the colormap. Calling this function for a GC without a colormap is an error. @table @var @item gc a @code{} @item color an unallocated @code{}. @end table @end deffn @deffn Function gdk-gc-set-font (self@tie{}@code{}) (font@tie{}@code{}) @deffnx Method set-font @samp{gdk_gc_set_font} is deprecated and should not be used in newly-written code. Sets the font for a graphics context. (Note that all text-drawing functions in GDK take a @var{font} argument; the value set here is used when that argument is @samp{@code{#f}}.) @table @var @item gc a @code{}. @item font the new font. @end table @end deffn @deffn Function gdk-gc-set-function (self@tie{}@code{}) (function@tie{}@code{}) @deffnx Method set-function Determines how the current pixel values and the pixel values being drawn are combined to produce the final pixel values. @table @var @item gc a @code{}. @item function the @code{} to use @end table @end deffn @deffn Function gdk-gc-set-fill (self@tie{}@code{}) (fill@tie{}@code{}) @deffnx Method set-fill Set the fill mode for a graphics context. @table @var @item gc a @code{}. @item fill the new fill mode. @end table @end deffn @deffn Function gdk-gc-set-tile (self@tie{}@code{}) (tile@tie{}@code{}) @deffnx Method set-tile Set a tile pixmap for a graphics context. This will only be used if the fill mode is @samp{GDK_TILED}. @table @var @item gc a @code{}. @item tile the new tile pixmap. @end table @end deffn @deffn Function gdk-gc-set-stipple (self@tie{}@code{}) (stipple@tie{}@code{}) @deffnx Method set-stipple Set the stipple bitmap for a graphics context. The stipple will only be used if the fill mode is @samp{GDK_STIPPLED} or @samp{GDK_OPAQUE_STIPPLED}. @table @var @item gc a @code{}. @item stipple the new stipple bitmap. @end table @end deffn @deffn Function gdk-gc-set-ts-origin (self@tie{}@code{}) (x@tie{}@code{int}) (y@tie{}@code{int}) @deffnx Method set-ts-origin Set the origin when using tiles or stipples with the GC. The tile or stipple will be aligned such that the upper left corner of the tile or stipple will coincide with this point. @table @var @item gc a @code{}. @item x the x-coordinate of the origin. @item y the y-coordinate of the origin. @end table @end deffn @deffn Function gdk-gc-set-clip-origin (self@tie{}@code{}) (x@tie{}@code{int}) (y@tie{}@code{int}) @deffnx Method set-clip-origin Sets the origin of the clip mask. The coordinates are interpreted relative to the upper-left corner of the destination drawable of the current operation. @table @var @item gc a @code{}. @item x the x-coordinate of the origin. @item y the y-coordinate of the origin. @end table @end deffn @deffn Function gdk-gc-set-clip-mask (self@tie{}@code{}) (mask@tie{}@code{}) @deffnx Method set-clip-mask Sets the clip mask for a graphics context from a bitmap. The clip mask is interpreted relative to the clip origin. (See @code{gdk-gc-set-clip-origin}). @table @var @item gc the @code{}. @item mask a bitmap. @end table @end deffn @deffn Function gdk-gc-set-clip-rectangle (self@tie{}@code{}) (rectangle@tie{}@code{}) @deffnx Method set-clip-rectangle Sets the clip mask for a graphics context from a rectangle. The clip mask is interpreted relative to the clip origin. (See @code{gdk-gc-set-clip-origin}). @table @var @item gc a @code{}. @item rectangle the rectangle to clip to. @end table @end deffn @deffn Function gdk-gc-set-clip-region (self@tie{}@code{}) (region@tie{}@code{}) @deffnx Method set-clip-region Sets the clip mask for a graphics context from a region structure. The clip mask is interpreted relative to the clip origin. (See @code{gdk-gc-set-clip-origin}). @table @var @item gc a @code{}. @item region the @code{}. @end table @end deffn @deffn Function gdk-gc-set-subwindow (self@tie{}@code{}) (mode@tie{}@code{}) @deffnx Method set-subwindow Sets how drawing with this GC on a window will affect child windows of that window. @table @var @item gc a @code{}. @item mode the subwindow mode. @end table @end deffn @deffn Function gdk-gc-set-exposures (self@tie{}@code{}) (exposures@tie{}@code{bool}) @deffnx Method set-exposures Sets whether copying non-visible portions of a drawable using this graphics context generate exposure events for the corresponding regions of the destination drawable. (See @code{gdk-draw-drawable}). @table @var @item gc a @code{}. @item exposures if @samp{@code{#t}}, exposure events will be generated. @end table @end deffn @deffn Function gdk-gc-set-line-attributes (self@tie{}@code{}) (line_width@tie{}@code{int}) (line_style@tie{}@code{}) (cap_style@tie{}@code{}) (join_style@tie{}@code{}) @deffnx Method set-line-attributes Sets various attributes of how lines are drawn. See the corresponding members of @code{} for full explanations of the arguments. @table @var @item gc a @code{}. @item line-width the width of lines. @item line-style the dash-style for lines. @item cap-style the manner in which the ends of lines are drawn. @item join-style the in which lines are joined together. @end table @end deffn @deffn Function gdk-gc-copy (self@tie{}@code{}) (src_gc@tie{}@code{}) @deffnx Method copy Copy the set of values from one graphics context onto another graphics context. @table @var @item dst-gc the destination graphics context. @item src-gc the source graphics context. @end table @end deffn @deffn Function gdk-gc-set-colormap (self@tie{}@code{}) (colormap@tie{}@code{}) @deffnx Method set-colormap Sets the colormap for the GC to the given colormap. The depth of the colormap's visual must match the depth of the drawable for which the GC was created. @table @var @item gc a @code{} @item colormap a @code{} @end table @end deffn @deffn Function gdk-gc-get-colormap (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{}) @deffnx Method get-colormap Retrieves the colormap for a given GC, if it exists. A GC will have a colormap if the drawable for which it was created has a colormap, or if a colormap was set explicitely with gdk_gc_set_colormap. @table @var @item gc a @code{} @item ret the colormap of @var{gc}, or @samp{@code{#f}} if @var{gc} doesn't have one. @end table @end deffn @deffn Function gdk-gc-offset (self@tie{}@code{}) (x_offset@tie{}@code{int}) (y_offset@tie{}@code{int}) @deffnx Method offset Offset attributes such as the clip and tile-stipple origins of the GC so that drawing at x - x_offset, y - y_offset with the offset GC has the same effect as drawing at x, y with the original GC. @table @var @item gc a @code{} @item x-offset amount by which to offset the GC in the X direction @item y-offset amount by which to offset the GC in the Y direction @end table @end deffn @c %end of fragment guile-gnome-platform-2.16.2/gtk/doc/gdk/stamp-vti0000644000175000017500000000014611752511104022130 0ustar00wingowingo00000000000000@set UPDATED 9 December 2011 @set UPDATED-MONTH December 2011 @set EDITION 2.16.2 @set VERSION 2.16.2 guile-gnome-platform-2.16.2/gtk/doc/gdk/defuns-gdkdisplay.xml.texi0000644000175000017500000003062711670374302025405 0ustar00wingowingo00000000000000 @c %start of fragment @deftp Class Derives from @code{}. This class defines no direct slots. @end deftp @defop Signal closed (arg0@tie{}@code{}) The ::closed signal is emitted when the connection to the windowing system for @var{display} is closed. Since 2.2 @end defop @deffn Function gdk-display-open (display_name@tie{}@code{mchars}) @result{}@tie{} (ret@tie{}@code{}) Opens a display. @table @var @item display-name the name of the display to open @item ret a @code{}, or @samp{@code{#f}} if the display could not be opened. @end table Since 2.2 @end deffn @deffn Function gdk-display-get-default @result{}@tie{} (ret@tie{}@code{}) Gets the default @code{}. This is a convenience function for: @example gdk_display_manager_get_default_display (gdk_display_manager_get ()) @end example @table @var @item ret a @code{}, or @samp{@code{#f}} if there is no default display. @end table Since 2.2 @end deffn @deffn Function gdk-display-get-name (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{mchars}) @deffnx Method get-name Gets the name of the display. @table @var @item display a @code{} @item ret a string representing the display name. This string is owned by GDK and should not be modified or freed. @end table Since 2.2 @end deffn @deffn Function gdk-display-get-n-screens (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{int}) @deffnx Method get-n-screens Gets the number of screen managed by the @var{display}. @table @var @item display a @code{} @item ret number of screens. @end table Since 2.2 @end deffn @deffn Function gdk-display-get-screen (self@tie{}@code{}) (screen_num@tie{}@code{int}) @result{}@tie{} (ret@tie{}@code{}) @deffnx Method get-screen Returns a screen object for one of the screens of the display. @table @var @item display a @code{} @item screen-num the screen number @item ret the @code{} object @end table Since 2.2 @end deffn @deffn Function gdk-display-get-default-screen (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{}) @deffnx Method get-default-screen Get the default @code{} for @var{display}. @table @var @item display a @code{} @item ret the default @code{} object for @var{display} @end table Since 2.2 @end deffn @deffn Function gdk-display-pointer-ungrab (self@tie{}@code{}) (time_@tie{}@code{unsigned-int32}) @deffnx Method pointer-ungrab Release any pointer grab. @table @var @item display a @code{}. @item time a timestap (e.g. @samp{GDK_CURRENT_TIME}). @end table Since 2.2 @end deffn @deffn Function gdk-display-keyboard-ungrab (self@tie{}@code{}) (time_@tie{}@code{unsigned-int32}) @deffnx Method keyboard-ungrab Release any keyboard grab @table @var @item display a @code{}. @item time a timestap (e.g @code{}). @end table Since 2.2 @end deffn @deffn Function gdk-display-pointer-is-grabbed (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{bool}) @deffnx Method pointer-is-grabbed Test if the pointer is grabbed. @table @var @item display a @code{} @item ret @samp{@code{#t}} if an active X pointer grab is in effect @end table Since 2.2 @end deffn @deffn Function gdk-display-beep (self@tie{}@code{}) @deffnx Method beep Emits a short beep on @var{display} @table @var @item display a @code{} @end table Since 2.2 @end deffn @deffn Function gdk-display-sync (self@tie{}@code{}) @deffnx Method sync Flushes any requests queued for the windowing system and waits until all requests have been handled. This is often used for making sure that the display is synchronized with the current state of the program. Calling @code{gdk-display-sync} before @code{gdk-error-trap-pop} makes sure that any errors generated from earlier requests are handled before the error trap is removed. This is most useful for X11. On windowing systems where requests are handled synchronously, this function will do nothing. @table @var @item display a @code{} @end table Since 2.2 @end deffn @deffn Function gdk-display-flush (self@tie{}@code{}) @deffnx Method flush Flushes any requests queued for the windowing system; this happens automatically when the main loop blocks waiting for new events, but if your application is drawing without returning control to the main loop, you may need to call this function explicitely. A common case where this function needs to be called is when an application is executing drawing commands from a thread other than the thread where the main loop is running. This is most useful for X11. On windowing systems where requests are handled synchronously, this function will do nothing. @table @var @item display a @code{} @end table Since 2.4 @end deffn @deffn Function gdk-display-close (self@tie{}@code{}) @deffnx Method close Closes the connection to the windowing system for the given display, and cleans up associated resources. @table @var @item display a @code{} @end table Since 2.2 @end deffn @deffn Function gdk-display-list-devices (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{glist-of}) @deffnx Method list-devices Returns the list of available input devices attached to @var{display}. The list is statically allocated and should not be freed. @table @var @item display a @code{} @item ret a list of @code{} @end table Since 2.2 @end deffn @deffn Function gdk-display-get-event (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{}) @deffnx Method get-event Gets the next @code{} to be processed for @var{display}, fetching events from the windowing system if necessary. @table @var @item display a @code{} @item ret the next @code{} to be processed, or @samp{@code{#f}} if no events are pending. The returned @code{} should be freed with @code{gdk-event-free}. @end table Since 2.2 @end deffn @deffn Function gdk-display-peek-event (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{}) @deffnx Method peek-event Gets a copy of the first @code{} in the @var{display}'s event queue, without removing the event from the queue. (Note that this function will not get more events from the windowing system. It only checks the events that have already been moved to the GDK event queue.) @table @var @item display a @code{} @item ret a copy of the first @code{} on the event queue, or @samp{@code{#f}} if no events are in the queue. The returned @code{} should be freed with @code{gdk-event-free}. @end table Since 2.2 @end deffn @deffn Function gdk-display-put-event (self@tie{}@code{}) (event@tie{}@code{}) @deffnx Method put-event Appends a copy of the given event onto the front of the event queue for @var{display}. @table @var @item display a @code{} @item event a @code{}. @end table Since 2.2 @end deffn @deffn Function gdk-display-set-double-click-time (self@tie{}@code{}) (msec@tie{}@code{unsigned-int}) @deffnx Method set-double-click-time Sets the double click time (two clicks within this time interval count as a double click and result in a @code{} event). Applications should @emph{not} set this, it is a global user-configured setting. @table @var @item display a @code{} @item msec double click time in milliseconds (thousandths of a second) @end table Since 2.2 @end deffn @deffn Function gdk-display-get-window-at-pointer (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{}) (win_x@tie{}@code{int}) (win_y@tie{}@code{int}) @deffnx Method get-window-at-pointer Obtains the window underneath the mouse pointer, returning the location of that window in @var{win-x}, @var{win-y} for @var{screen}. Returns @samp{@code{#f}} if the window under the mouse pointer is not known to GDK (for example, belongs to another application). @table @var @item display a @code{} @item win-x return location for origin of the window under the pointer @item win-y return location for origin of the window under the pointer @item ret the window under the mouse pointer, or @samp{@code{#f}} @end table Since 2.2 @end deffn @deffn Function gdk-display-warp-pointer (self@tie{}@code{}) (screen@tie{}@code{}) (x@tie{}@code{int}) (y@tie{}@code{int}) @deffnx Method warp-pointer Warps the pointer of @var{display} to the point @var{x},@var{y} on the screen @var{screen}, unless the pointer is confined to a window by a grab, in which case it will be moved as far as allowed by the grab. Warping the pointer creates events as if the user had moved the mouse instantaneously to the destination. Note that the pointer should normally be under the control of the user. This function was added to cover some rare use cases like keyboard navigation support for the color picker in the @code{}. @table @var @item display a @code{} @item screen the screen of @var{display} to warp the pointer to @item x the x coordinate of the destination @item y the y coordinate of the destination @end table Since 2.8 @end deffn @deffn Function gdk-display-supports-cursor-color (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{bool}) @deffnx Method supports-cursor-color Returns @samp{@code{#t}} if multicolored cursors are supported on @var{display}. Otherwise, cursors have only a forground and a background color. @table @var @item display a @code{} @item ret whether cursors can have multiple colors. @end table Since 2.4 @end deffn @deffn Function gdk-display-supports-cursor-alpha (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{bool}) @deffnx Method supports-cursor-alpha Returns @samp{@code{#t}} if cursors can use an 8bit alpha channel on @var{display}. Otherwise, cursors are restricted to bilevel alpha (i.e. a mask). @table @var @item display a @code{} @item ret whether cursors can have alpha channels. @end table Since 2.4 @end deffn @deffn Function gdk-display-get-default-cursor-size (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{unsigned-int}) @deffnx Method get-default-cursor-size Returns the default size to use for cursors on @var{display}. @table @var @item display a @code{} @item ret the default cursor size. @end table Since 2.4 @end deffn @deffn Function gdk-display-get-maximal-cursor-size (self@tie{}@code{}) @result{}@tie{} (width@tie{}@code{unsigned-int}) (height@tie{}@code{unsigned-int}) @deffnx Method get-maximal-cursor-size Gets the maximal size to use for cursors on @var{display}. @table @var @item display a @code{} @item width the return location for the maximal cursor width @item height the return location for the maximal cursor height @end table Since 2.4 @end deffn @deffn Function gdk-display-get-default-group (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{}) @deffnx Method get-default-group Returns the default group leader window for all toplevel windows on @var{display}. This window is implicitly created by GDK. See @code{gdk-window-set-group}. @table @var @item display a @code{} @item ret The default group leader window for @var{display} @end table Since 2.4 @end deffn @deffn Function gdk-display-supports-shapes (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{bool}) @deffnx Method supports-shapes Returns @samp{@code{#t}} if @code{gdk-window-shape-combine-mask} can be used to create shaped windows on @var{display}. @table @var @item display a @code{} @item ret @samp{@code{#t}} if shaped windows are supported @end table Since 2.10 @end deffn @deffn Function gdk-display-supports-input-shapes (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{bool}) @deffnx Method supports-input-shapes Returns @samp{@code{#t}} if @code{gdk-window-input-shape-combine-mask} can be used to modify the input shape of windows on @var{display}. @table @var @item display a @code{} @item ret @samp{@code{#t}} if windows with modified input shape are supported @end table Since 2.10 @end deffn @c %end of fragment guile-gnome-platform-2.16.2/gtk/doc/gdk/overview.texi0000644000175000017500000000033611670374302023031 0ustar00wingowingo00000000000000@node Overview @chapter Overview @code{(gnome gdk)} wraps the platform-specific layer of GTK+ for Guile. It is a part of Guile-GNOME. See the documentation for @code{(gnome gobject)} for more information on Guile-GNOME. guile-gnome-platform-2.16.2/gtk/doc/gdk/defuns-drawing.xml.texi0000644000175000017500000005406711670374302024711 0ustar00wingowingo00000000000000 @c %start of fragment @deftp Class Derives from @code{}. This class defines no direct slots. @end deftp @deffn Function gdk-drawable-get-display (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{}) @deffnx Method get-display Gets the @code{} associated with a @code{}. @table @var @item drawable a @code{} @item ret the @code{} associated with @var{drawable} @end table Since 2.2 @end deffn @deffn Function gdk-drawable-get-screen (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{}) @deffnx Method get-screen Gets the @code{} associated with a @code{}. @table @var @item drawable a @code{} @item ret the @code{} associated with @var{drawable} @end table Since 2.2 @end deffn @deffn Function gdk-drawable-get-visual (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{}) @deffnx Method get-visual Gets the @code{} describing the pixel format of @var{drawable}. @table @var @item drawable a @code{} @item ret a @code{} @end table @end deffn @deffn Function gdk-drawable-set-colormap (self@tie{}@code{}) (colormap@tie{}@code{}) @deffnx Method set-colormap Sets the colormap associated with @var{drawable}. Normally this will happen automatically when the drawable is created; you only need to use this function if the drawable-creating function did not have a way to determine the colormap, and you then use drawable operations that require a colormap. The colormap for all drawables and graphics contexts you intend to use together should match. i.e. when using a @code{} to draw to a drawable, or copying one drawable to another, the colormaps should match. @table @var @item drawable a @code{} @item colormap a @code{} @end table @end deffn @deffn Function gdk-drawable-get-colormap (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{}) @deffnx Method get-colormap Gets the colormap for @var{drawable}, if one is set; returns @samp{@code{#f}} otherwise. @table @var @item drawable a @code{} @item ret the colormap, or @samp{@code{#f}} @end table @end deffn @deffn Function gdk-drawable-get-depth (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{int}) @deffnx Method get-depth Obtains the bit depth of the drawable, that is, the number of bits that make up a pixel in the drawable's visual. Examples are 8 bits per pixel, 24 bits per pixel, etc. @table @var @item drawable a @code{} @item ret number of bits per pixel @end table @end deffn @deffn Function gdk-drawable-get-size (self@tie{}@code{}) @result{}@tie{} (width@tie{}@code{int}) (height@tie{}@code{int}) @deffnx Method get-size Fills *@var{width} and *@var{height} with the size of @var{drawable}. @var{width} or @var{height} can be @samp{@code{#f}} if you only want the other one. On the X11 platform, if @var{drawable} is a @code{}, the returned size is the size reported in the most-recently-processed configure event, rather than the current size on the X server. @table @var @item drawable a @code{} @item width location to store drawable's width, or @samp{@code{#f}} @item height location to store drawable's height, or @samp{@code{#f}} @end table @end deffn @deffn Function gdk-drawable-get-clip-region (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{}) @deffnx Method get-clip-region Computes the region of a drawable that potentially can be written to by drawing primitives. This region will not take into account the clip region for the GC, and may also not take into account other factors such as if the window is obscured by other windows, but no area outside of this region will be affected by drawing primitives. @table @var @item drawable a @code{} @item ret a @code{}. This must be freed with @code{gdk-region-destroy} when you are done. @end table @end deffn @deffn Function gdk-drawable-get-visible-region (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{}) @deffnx Method get-visible-region Computes the region of a drawable that is potentially visible. This does not necessarily take into account if the window is obscured by other windows, but no area outside of this region is visible. @table @var @item drawable a @code{} @item ret a @code{}. This must be freed with @code{gdk-region-destroy} when you are done. @end table @end deffn @deffn Function gdk-draw-point (drawable@tie{}@code{}) (gc@tie{}@code{}) (x@tie{}@code{int}) (y@tie{}@code{int}) Draws a point, using the foreground color and other attributes of the @code{}. @table @var @item drawable a @code{} (a @code{} or a @code{}). @item gc a @code{}. @item x the x coordinate of the point. @item y the y coordinate of the point. @end table @end deffn @deffn Function gdk-draw-line (drawable@tie{}@code{}) (gc@tie{}@code{}) (x1_@tie{}@code{int}) (y1_@tie{}@code{int}) (x2_@tie{}@code{int}) (y2_@tie{}@code{int}) Draws a line, using the foreground color and other attributes of the @code{}. @table @var @item drawable a @code{} (a @code{} or a @code{}). @item gc a @code{}. @item x1 the x coordinate of the start point. @item y1 the y coordinate of the start point. @item x2 the x coordinate of the end point. @item y2 the y coordinate of the end point. @end table @end deffn @deffn Function gdk-draw-pixbuf (drawable@tie{}@code{}) (gc@tie{}@code{}) (pixbuf@tie{}@code{}) (src_x@tie{}@code{int}) (src_y@tie{}@code{int}) (dest_x@tie{}@code{int}) (dest_y@tie{}@code{int}) (width@tie{}@code{int}) (height@tie{}@code{int}) (dither@tie{}@code{}) (x_dither@tie{}@code{int}) (y_dither@tie{}@code{int}) Renders a rectangular portion of a pixbuf to a drawable. The destination drawable must have a colormap. All windows have a colormap, however, pixmaps only have colormap by default if they were created with a non-@samp{@code{#f}} window argument. Otherwise a colormap must be set on them with @code{gdk-drawable-set-colormap}. On older X servers, rendering pixbufs with an alpha channel involves round trips to the X server, and may be somewhat slow. The clip mask of @var{gc} is ignored, but clip rectangles and clip regions work fine. @table @var @item drawable Destination drawable. @item gc a @code{}, used for clipping, or @samp{@code{#f}} @item pixbuf a @code{} @item src-x Source X coordinate within pixbuf. @item src-y Source Y coordinates within pixbuf. @item dest-x Destination X coordinate within drawable. @item dest-y Destination Y coordinate within drawable. @item width Width of region to render, in pixels, or -1 to use pixbuf width. @item height Height of region to render, in pixels, or -1 to use pixbuf height. @item dither Dithering mode for @code{}. @item x-dither X offset for dither. @item y-dither Y offset for dither. @end table Since 2.2 @end deffn @deffn Function gdk-draw-rectangle (drawable@tie{}@code{}) (gc@tie{}@code{}) (filled@tie{}@code{bool}) (x@tie{}@code{int}) (y@tie{}@code{int}) (width@tie{}@code{int}) (height@tie{}@code{int}) Draws a rectangular outline or filled rectangle, using the foreground color and other attributes of the @code{}. A rectangle drawn filled is 1 pixel smaller in both dimensions than a rectangle outlined. Calling @samp{gdk_draw_rectangle (window, gc, TRUE, 0, 0, 20, 20)} results in a filled rectangle 20 pixels wide and 20 pixels high. Calling @samp{gdk_draw_rectangle (window, gc, FALSE, 0, 0, 20, 20)} results in an outlined rectangle with corners at (0, 0), (0, 20), (20, 20), and (20, 0), which makes it 21 pixels wide and 21 pixels high. @table @var @item drawable a @code{} (a @code{} or a @code{}). @item gc a @code{}. @item filled @samp{@code{#t}} if the rectangle should be filled. @item x the x coordinate of the left edge of the rectangle. @item y the y coordinate of the top edge of the rectangle. @item width the width of the rectangle. @item height the height of the rectangle. @end table @end deffn @deffn Function gdk-draw-arc (drawable@tie{}@code{}) (gc@tie{}@code{}) (filled@tie{}@code{bool}) (x@tie{}@code{int}) (y@tie{}@code{int}) (width@tie{}@code{int}) (height@tie{}@code{int}) (angle1@tie{}@code{int}) (angle2@tie{}@code{int}) Draws an arc or a filled 'pie slice'. The arc is defined by the bounding rectangle of the entire ellipse, and the start and end angles of the part of the ellipse to be drawn. @table @var @item drawable a @code{} (a @code{} or a @code{}). @item gc a @code{}. @item filled @samp{@code{#t}} if the arc should be filled, producing a 'pie slice'. @item x the x coordinate of the left edge of the bounding rectangle. @item y the y coordinate of the top edge of the bounding rectangle. @item width the width of the bounding rectangle. @item height the height of the bounding rectangle. @item angle1 the start angle of the arc, relative to the 3 o'clock position, counter-clockwise, in 1/64ths of a degree. @item angle2 the end angle of the arc, relative to @var{angle1}, in 1/64ths of a degree. @end table @end deffn @deffn Function gdk-draw-glyphs (drawable@tie{}@code{}) (gc@tie{}@code{}) (font@tie{}@code{}) (x@tie{}@code{int}) (y@tie{}@code{int}) (glyphs@tie{}@code{}) This is a low-level function; 99% of text rendering should be done using @code{gdk-draw-layout} instead. A glyph is a single image in a font. This function draws a sequence of glyphs. To obtain a sequence of glyphs you have to understand a lot about internationalized text handling, which you don't want to understand; thus, use @code{gdk-draw-layout} instead of this function, @code{gdk-draw-layout} handles the details. @table @var @item drawable a @code{} @item gc a @code{} @item font font to be used @item x X coordinate of baseline origin @item y Y coordinate of baseline origin @item glyphs the glyph string to draw @end table @end deffn @deffn Function gdk-draw-glyphs-transformed (drawable@tie{}@code{}) (gc@tie{}@code{}) (matrix@tie{}@code{}) (font@tie{}@code{}) (x@tie{}@code{int}) (y@tie{}@code{int}) (glyphs@tie{}@code{}) Renders a @code{} onto a drawable, possibly transforming the layed-out coordinates through a transformation matrix. Note that the transformation matrix for @var{font} is not changed, so to produce correct rendering results, the @var{font} must have been loaded using a @code{} with an identical transformation matrix to that passed in to this function. See also @code{gdk-draw-glyphs}, @code{gdk-draw-layout}. @table @var @item drawable a @code{} @item gc a @code{} @item matrix a @code{}, or @samp{@code{#f}} to use an identity transformation @item font the font in which to draw the string @item x the x position of the start of the string (in Pango units in user space coordinates) @item y the y position of the baseline (in Pango units in user space coordinates) @item glyphs the glyph string to draw @end table Since 2.6 @end deffn @deffn Function gdk-draw-layout-line (drawable@tie{}@code{}) (gc@tie{}@code{}) (x@tie{}@code{int}) (y@tie{}@code{int}) (line@tie{}@code{}) Render a @code{} onto an GDK drawable If the layout's @code{} has a transformation matrix set, then @var{x} and @var{y} specify the position of the left edge of the baseline (left is in before-tranform user coordinates) in after-transform device coordinates. @table @var @item drawable the drawable on which to draw the line @item gc base graphics to use @item x the x position of start of string (in pixels) @item y the y position of baseline (in pixels) @item line a @code{} @end table @end deffn @deffn Function gdk-draw-layout-line-with-colors (drawable@tie{}@code{}) (gc@tie{}@code{}) (x@tie{}@code{int}) (y@tie{}@code{int}) (line@tie{}@code{}) (foreground@tie{}@code{}) (background@tie{}@code{}) Render a @code{} onto a @code{}, overriding the layout's normal colors with @var{foreground} and/or @var{background}. @var{foreground} and @var{background} need not be allocated. If the layout's @code{} has a transformation matrix set, then @var{x} and @var{y} specify the position of the left edge of the baseline (left is in before-tranform user coordinates) in after-transform device coordinates. @table @var @item drawable the drawable on which to draw the line @item gc base graphics to use @item x the x position of start of string (in pixels) @item y the y position of baseline (in pixels) @item line a @code{} @item foreground foreground override color, or @samp{@code{#f}} for none @item background background override color, or @samp{@code{#f}} for none @end table @end deffn @deffn Function gdk-draw-layout (drawable@tie{}@code{}) (gc@tie{}@code{}) (x@tie{}@code{int}) (y@tie{}@code{int}) (layout@tie{}@code{}) Render a @code{} onto a GDK drawable If the layout's @code{} has a transformation matrix set, then @var{x} and @var{y} specify the position of the top left corner of the bounding box (in device space) of the transformed layout. If you're using GTK+, the usual way to obtain a @code{} is @code{gtk-widget-create-pango-layout}. @table @var @item drawable the drawable on which to draw string @item gc base graphics context to use @item x the X position of the left of the layout (in pixels) @item y the Y position of the top of the layout (in pixels) @item layout a @code{} @end table @end deffn @deffn Function gdk-draw-layout-with-colors (drawable@tie{}@code{}) (gc@tie{}@code{}) (x@tie{}@code{int}) (y@tie{}@code{int}) (layout@tie{}@code{}) (foreground@tie{}@code{}) (background@tie{}@code{}) Render a @code{} onto a @code{}, overriding the layout's normal colors with @var{foreground} and/or @var{background}. @var{foreground} and @var{background} need not be allocated. If the layout's @code{} has a transformation matrix set, then @var{x} and @var{y} specify the position of the top left corner of the bounding box (in device space) of the transformed layout. If you're using GTK+, the ususal way to obtain a @code{} is @code{gtk-widget-create-pango-layout}. @table @var @item drawable the drawable on which to draw string @item gc base graphics context to use @item x the X position of the left of the layout (in pixels) @item y the Y position of the top of the layout (in pixels) @item layout a @code{} @item foreground foreground override color, or @samp{@code{#f}} for none @item background background override color, or @samp{@code{#f}} for none @end table @end deffn @deffn Function gdk-draw-string (drawable@tie{}@code{}) (font@tie{}@code{}) (gc@tie{}@code{}) (x@tie{}@code{int}) (y@tie{}@code{int}) (string@tie{}@code{mchars}) @samp{gdk_draw_string} is deprecated and should not be used in newly-written code. Use @code{gdk-draw-layout} instead. Draws a string of characters in the given font or fontset. @table @var @item drawable a @code{} (a @code{} or a @code{}). @item font a @code{}. @item gc a @code{}. @item x the x coordinate of the left edge of the text. @item y the y coordinate of the baseline of the text. @item string the string of characters to draw. @end table @end deffn @deffn Function gdk-draw-drawable (drawable@tie{}@code{}) (gc@tie{}@code{}) (src@tie{}@code{}) (xsrc@tie{}@code{int}) (ysrc@tie{}@code{int}) (xdest@tie{}@code{int}) (ydest@tie{}@code{int}) (width@tie{}@code{int}) (height@tie{}@code{int}) Copies the @var{width} x @var{height} region of @var{src} at coordinates (@var{xsrc}, @var{ysrc}) to coordinates (@var{xdest}, @var{ydest}) in @var{drawable}. @var{width} and/or @var{height} may be given as -1, in which case the entire @var{src} drawable will be copied. Most fields in @var{gc} are not used for this operation, but notably the clip mask or clip region will be honored. The source and destination drawables must have the same visual and colormap, or errors will result. (On X11, failure to match visual/colormap results in a BadMatch error from the X server.) A common cause of this problem is an attempt to draw a bitmap to a color drawable. The way to draw a bitmap is to set the bitmap as the stipple on the @code{}, set the fill mode to @samp{GDK_STIPPLED}, and then draw the rectangle. @table @var @item drawable a @code{} @item gc a @code{} sharing the drawable's visual and colormap @item src the source @code{}, which may be the same as @var{drawable} @item xsrc X position in @var{src} of rectangle to draw @item ysrc Y position in @var{src} of rectangle to draw @item xdest X position in @var{drawable} where the rectangle should be drawn @item ydest Y position in @var{drawable} where the rectangle should be drawn @item width width of rectangle to draw, or -1 for entire @var{src} width @item height height of rectangle to draw, or -1 for entire @var{src} height @end table @end deffn @deffn Function gdk-draw-image (drawable@tie{}@code{}) (gc@tie{}@code{}) (image@tie{}@code{}) (xsrc@tie{}@code{int}) (ysrc@tie{}@code{int}) (xdest@tie{}@code{int}) (ydest@tie{}@code{int}) (width@tie{}@code{int}) (height@tie{}@code{int}) Draws a @code{} onto a drawable. The depth of the @code{} must match the depth of the @code{}. @table @var @item drawable a @code{} (a @code{} or a @code{}). @item gc a @code{}. @item image the @code{} to draw. @item xsrc the left edge of the source rectangle within @var{image}. @item ysrc the top of the source rectangle within @var{image}. @item xdest the x coordinate of the destination within @var{drawable}. @item ydest the y coordinate of the destination within @var{drawable}. @item width the width of the area to be copied, or -1 to make the area extend to the right edge of @var{image}. @item height the height of the area to be copied, or -1 to make the area extend to the bottom edge of @var{image}. @end table @end deffn @deffn Function gdk-drawable-get-image (self@tie{}@code{}) (x@tie{}@code{int}) (y@tie{}@code{int}) (width@tie{}@code{int}) (height@tie{}@code{int}) @result{}@tie{} (ret@tie{}@code{}) @deffnx Method get-image A @code{} stores client-side image data (pixels). In contrast, @code{} and @code{} are server-side objects. @code{gdk-drawable-get-image} obtains the pixels from a server-side drawable as a client-side @code{}. The format of a @code{} depends on the @code{} of the current display, which makes manipulating @code{} extremely difficult; therefore, in most cases you should use @code{gdk-pixbuf-get-from-drawable} instead of this lower-level function. A @code{} contains image data in a canonicalized RGB format, rather than a display-dependent format. Of course, there's a convenience vs. speed tradeoff here, so you'll want to think about what makes sense for your application. @var{x}, @var{y}, @var{width}, and @var{height} define the region of @var{drawable} to obtain as an image. You would usually copy image data to the client side if you intend to examine the values of individual pixels, for example to darken an image or add a red tint. It would be prohibitively slow to make a round-trip request to the windowing system for each pixel, so instead you get all of them at once, modify them, then copy them all back at once. If the X server or other windowing system backend is on the local machine, this function may use shared memory to avoid copying the image data. If the source drawable is a @code{} and partially offscreen or obscured, then the obscured portions of the returned image will contain undefined data. @table @var @item drawable a @code{} @item x x coordinate on @var{drawable} @item y y coordinate on @var{drawable} @item width width of region to get @item height height or region to get @item ret a @code{} containing the contents of @var{drawable} @end table @end deffn @deffn Function gdk-drawable-copy-to-image (self@tie{}@code{}) (image@tie{}@code{}) (src_x@tie{}@code{int}) (src_y@tie{}@code{int}) (dest_x@tie{}@code{int}) (dest_y@tie{}@code{int}) (width@tie{}@code{int}) (height@tie{}@code{int}) @result{}@tie{} (ret@tie{}@code{}) @deffnx Method copy-to-image Copies a portion of @var{drawable} into the client side image structure @var{image}. If @var{image} is @samp{@code{#f}}, creates a new image of size @var{width} x @var{height} and copies into that. See @code{gdk-drawable-get-image} for further details. @table @var @item drawable a @code{} @item image a @code{}, or @samp{@code{#f}} if a new @var{image} should be created. @item src-x x coordinate on @var{drawable} @item src-y y coordinate on @var{drawable} @item dest-x x coordinate within @var{image}. Must be 0 if @var{image} is @samp{@code{#f}} @item dest-y y coordinate within @var{image}. Must be 0 if @var{image} is @samp{@code{#f}} @item width width of region to get @item height height or region to get @item ret @var{image}, or a new a @code{} containing the contents of @var{drawable} @end table Since 2.4 @end deffn @c %end of fragment guile-gnome-platform-2.16.2/gtk/doc/gdk/defuns-colors.xml.texi0000644000175000017500000000715211670374302024550 0ustar00wingowingo00000000000000 @c %start of fragment @deftp Class Derives from @code{}. This class defines no direct slots. @end deftp @deftp Class Derives from @code{}. This class defines no direct slots. @end deftp @deffn Function gdk-color-copy (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{}) Makes a copy of a color structure. The result must be freed using @code{gdk-color-free}. @table @var @item color a @code{}. @item ret a copy of @var{color}. @end table @end deffn @deffn Function gdk-color-white (colormap@tie{}@code{}) (color@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{int}) @samp{gdk_color_white} is deprecated and should not be used in newly-written code. Returns the white color for a given colormap. The resulting value has already allocated been allocated. @table @var @item colormap a @code{}. @item color the location to store the color. @item ret @samp{@code{#t}} if the allocation succeeded. @end table @end deffn @deffn Function gdk-color-black (colormap@tie{}@code{}) (color@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{int}) @samp{gdk_color_black} is deprecated and should not be used in newly-written code. Returns the black color for a given colormap. The resulting value has already benn allocated. @table @var @item colormap a @code{}. @item color the location to store the color. @item ret @samp{@code{#t}} if the allocation succeeded. @end table @end deffn @deffn Function gdk-color-parse (spec@tie{}@code{mchars}) (color@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{bool}) Parses a textual specification of a color and fill in the @c (structfield "red") , @c (structfield "green") , and @c (structfield "blue") fields of a @code{} structure. The color is @emph{not} allocated, you must call @code{gdk-colormap-alloc-color} yourself. The text string can be in any of the forms accepted by @code{x-parse-color}; these include name for a color from @file{rgb.txt}, such as @samp{DarkSlateGray}, or a hex specification such as @samp{#3050b2} or @samp{#35b}. @table @var @item spec the string specifying the color. @item color the @code{} to fill in @item ret @samp{@code{#t}} if the parsing succeeded. @end table @end deffn @deffn Function gdk-color-alloc (colormap@tie{}@code{}) (color@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{int}) @samp{gdk_color_alloc} is deprecated and should not be used in newly-written code. Use @code{gdk-colormap-alloc-color} instead. Allocates a single color from a colormap. @table @var @item colormap a @code{}. @item color The color to allocate. On return, the @c (structfield "pixel") field will be filled in. @item ret @samp{@code{#t}} if the allocation succeeded. @end table @end deffn @deffn Function gdk-color-change (colormap@tie{}@code{}) (color@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{int}) @samp{gdk_color_change} is deprecated and should not be used in newly-written code. Changes the value of a color that has already been allocated. If @var{colormap} is not a private colormap, then the color must have been allocated using @code{gdk-colormap-alloc-colors} with the @var{writeable} set to @samp{@code{#t}}. @table @var @item colormap a @code{}. @item color a @code{}, with the color to change in the @c (structfield "pixel") field, and the new value in the remaining fields. @item ret @samp{@code{#t}} if the color was successfully changed. @end table @end deffn @c %end of fragment guile-gnome-platform-2.16.2/gtk/doc/gdk/section-gdkdisplay.xml.texi0000644000175000017500000000145511670374302025562 0ustar00wingowingo00000000000000 @c %start of fragment @node GdkDisplay @chapter GdkDisplay Controls the keyboard/mouse pointer grabs and a set of s @section Overview @code{} objects purpose are two fold: To grab/ungrab keyboard focus and mouse pointer To manage and provide information about the @code{}(s) available for this @code{} @code{} objects are the GDK representation of the X Display which can be described as @emph{a workstation consisting of a keyboard a pointing device (such as a mouse) and one or more screens}. It is used to open and keep track of various @code{} objects currently instanciated by the application. It is also used to grab and release the keyboard and the mouse pointer. @section Usage @include defuns-gdkdisplay.xml.texi @c %end of fragment guile-gnome-platform-2.16.2/gtk/doc/gdk/section-properties.xml.texi0000644000175000017500000000270511670374302025622 0ustar00wingowingo00000000000000 @c %start of fragment @node Properties and Atoms @chapter Properties and Atoms Functions to manipulate properties on windows @section Overview Each window under X can have any number of associated @dfn{properties} attached to it. Properties are arbitrary chunks of data identified by @dfn{atom}s. (An @dfn{atom} is a numeric index into a string table on the X server. They are used to transfer strings efficiently between clients without having to transfer the entire string.) A property has an associated type, which is also identified using an atom. A property has an associated @dfn{format}, an integer describing how many bits are in each unit of data inside the property. It must be 8, 16, or 32. When data is transferred between the server and client, if they are of different endianesses it will be byteswapped as necessary according to the format of the property. Note that on the client side, properties of format 32 will be stored with one unit per @emph{long}, even if a long integer has more than 32 bits on the platform. (This decision was apparently made for Xlib to maintain compatibility with programs that assumed longs were 32 bits, at the expense of programs that knew better.) The functions in this section are used to add, remove and change properties on windows, to convert atoms to and from strings and to manipulate some types of data commonly stored in X window properties. @section Usage @include defuns-properties.xml.texi @c %end of fragment guile-gnome-platform-2.16.2/gtk/doc/gdk/defuns-pixbufs.xml.texi0000644000175000017500000002326411670374302024731 0ustar00wingowingo00000000000000 @c %start of fragment @deffn Function gdk-pixbuf-render-threshold-alpha (self@tie{}@code{}) (bitmap@tie{}@code{}) (src_x@tie{}@code{int}) (src_y@tie{}@code{int}) (dest_x@tie{}@code{int}) (dest_y@tie{}@code{int}) (width@tie{}@code{int}) (height@tie{}@code{int}) (alpha_threshold@tie{}@code{int}) @deffnx Method render-threshold-alpha Takes the opacity values in a rectangular portion of a pixbuf and thresholds them to produce a bi-level alpha mask that can be used as a clipping mask for a drawable. @table @var @item pixbuf A pixbuf. @item bitmap Bitmap where the bilevel mask will be painted to. @item src-x Source X coordinate. @item src-y source Y coordinate. @item dest-x Destination X coordinate. @item dest-y Destination Y coordinate. @item width Width of region to threshold, or -1 to use pixbuf width @item height Height of region to threshold, or -1 to use pixbuf height @item alpha-threshold Opacity values below this will be painted as zero; all other values will be painted as one. @end table @end deffn @deffn Function gdk-pixbuf-render-to-drawable (self@tie{}@code{}) (drawable@tie{}@code{}) (gc@tie{}@code{}) (src_x@tie{}@code{int}) (src_y@tie{}@code{int}) (dest_x@tie{}@code{int}) (dest_y@tie{}@code{int}) (width@tie{}@code{int}) (height@tie{}@code{int}) (dither@tie{}@code{}) (x_dither@tie{}@code{int}) (y_dither@tie{}@code{int}) @deffnx Method render-to-drawable @samp{gdk_pixbuf_render_to_drawable} has been deprecated since version 2.4 and should not be used in newly-written code. This function is obsolete. Use @code{gdk-draw-pixbuf} instead. Renders a rectangular portion of a pixbuf to a drawable while using the specified GC. This is done using GdkRGB, so the specified drawable must have the GdkRGB visual and colormap. Note that this function will ignore the opacity information for images with an alpha channel; the GC must already have the clipping mask set if you want transparent regions to show through. For an explanation of dither offsets, see the GdkRGB documentation. In brief, the dither offset is important when re-rendering partial regions of an image to a rendered version of the full image, or for when the offsets to a base position change, as in scrolling. The dither matrix has to be shifted for consistent visual results. If you do not have any of these cases, the dither offsets can be both zero. @table @var @item pixbuf A pixbuf. @item drawable Destination drawable. @item gc GC used for rendering. @item src-x Source X coordinate within pixbuf. @item src-y Source Y coordinate within pixbuf. @item dest-x Destination X coordinate within drawable. @item dest-y Destination Y coordinate within drawable. @item width Width of region to render, in pixels, or -1 to use pixbuf width @item height Height of region to render, in pixels, or -1 to use pixbuf height @item dither Dithering mode for GdkRGB. @item x-dither X offset for dither. @item y-dither Y offset for dither. @end table @end deffn @deffn Function gdk-pixbuf-render-to-drawable-alpha (self@tie{}@code{}) (drawable@tie{}@code{}) (src_x@tie{}@code{int}) (src_y@tie{}@code{int}) (dest_x@tie{}@code{int}) (dest_y@tie{}@code{int}) (width@tie{}@code{int}) (height@tie{}@code{int}) (alpha_mode@tie{}@code{}) (alpha_threshold@tie{}@code{int}) (dither@tie{}@code{}) (x_dither@tie{}@code{int}) (y_dither@tie{}@code{int}) @deffnx Method render-to-drawable-alpha @samp{gdk_pixbuf_render_to_drawable_alpha} has been deprecated since version 2.4 and should not be used in newly-written code. This function is obsolete. Use @code{gdk-draw-pixbuf} instead. Renders a rectangular portion of a pixbuf to a drawable. The destination drawable must have a colormap. All windows have a colormap, however, pixmaps only have colormap by default if they were created with a non-@samp{@code{#f}} window argument. Otherwise a colormap must be set on them with gdk_drawable_set_colormap. On older X servers, rendering pixbufs with an alpha channel involves round trips to the X server, and may be somewhat slow. @table @var @item pixbuf A pixbuf. @item drawable Destination drawable. @item src-x Source X coordinate within pixbuf. @item src-y Source Y coordinates within pixbuf. @item dest-x Destination X coordinate within drawable. @item dest-y Destination Y coordinate within drawable. @item width Width of region to render, in pixels, or -1 to use pixbuf width. @item height Height of region to render, in pixels, or -1 to use pixbuf height. @item alpha-mode Ignored. Present for backwards compatibility. @item alpha-threshold Ignored. Present for backwards compatibility @item dither Dithering mode for GdkRGB. @item x-dither X offset for dither. @item y-dither Y offset for dither. @end table @end deffn @deffn Function gdk-pixbuf-get-from-drawable (self@tie{}@code{}) (src@tie{}@code{}) (cmap@tie{}@code{}) (src_x@tie{}@code{int}) (src_y@tie{}@code{int}) (dest_x@tie{}@code{int}) (dest_y@tie{}@code{int}) (width@tie{}@code{int}) (height@tie{}@code{int}) @result{}@tie{} (ret@tie{}@code{}) @deffnx Method get-from-drawable Transfers image data from a @code{} and converts it to an RGB(A) representation inside a @code{}. In other words, copies image data from a server-side drawable to a client-side RGB(A) buffer. This allows you to efficiently read individual pixels on the client side. If the drawable @var{src} has no colormap (@code{gdk-drawable-get-colormap} returns @samp{@code{#f}}), then a suitable colormap must be specified. Typically a @code{} or a pixmap created by passing a @code{} to @code{gdk-pixmap-new} will already have a colormap associated with it. If the drawable has a colormap, the @var{cmap} argument will be ignored. If the drawable is a bitmap (1 bit per pixel pixmap), then a colormap is not required; pixels with a value of 1 are assumed to be white, and pixels with a value of 0 are assumed to be black. For taking screenshots, @code{gdk-colormap-get-system} returns the correct colormap to use. If the specified destination pixbuf @var{dest} is @samp{@code{#f}}, then this function will create an RGB pixbuf with 8 bits per channel and no alpha, with the same size specified by the @var{width} and @var{height} arguments. In this case, the @var{dest-x} and @var{dest-y} arguments must be specified as 0. If the specified destination pixbuf is not @samp{@code{#f}} and it contains alpha information, then the filled pixels will be set to full opacity (alpha = 255). If the specified drawable is a pixmap, then the requested source rectangle must be completely contained within the pixmap, otherwise the function will return @samp{@code{#f}}. For pixmaps only (not for windows) passing -1 for width or height is allowed to mean the full width or height of the pixmap. If the specified drawable is a window, and the window is off the screen, then there is no image data in the obscured/offscreen regions to be placed in the pixbuf. The contents of portions of the pixbuf corresponding to the offscreen region are undefined. If the window you're obtaining data from is partially obscured by other windows, then the contents of the pixbuf areas corresponding to the obscured regions are undefined. If the target drawable is not mapped (typically because it's iconified/minimized or not on the current workspace), then @samp{@code{#f}} will be returned. If memory can't be allocated for the return value, @samp{@code{#f}} will be returned instead. (In short, there are several ways this function can fail, and if it fails it returns @samp{@code{#f}}; so check the return value.) This function calls @code{gdk-drawable-get-image} internally and converts the resulting image to a @code{}, so the documentation for @code{gdk-drawable-get-image} may also be relevant. @table @var @item dest Destination pixbuf, or @samp{@code{#f}} if a new pixbuf should be created. @item src Source drawable. @item cmap A colormap if @var{src} doesn't have one set. @item src-x Source X coordinate within drawable. @item src-y Source Y coordinate within drawable. @item dest-x Destination X coordinate in pixbuf, or 0 if @var{dest} is NULL. @item dest-y Destination Y coordinate in pixbuf, or 0 if @var{dest} is NULL. @item width Width in pixels of region to get. @item height Height in pixels of region to get. @item ret The same pixbuf as @var{dest} if it was non-@samp{@code{#f}}, or a newly-created pixbuf with a reference count of 1 if no destination pixbuf was specified, or @samp{@code{#f}} on error @end table @end deffn @deffn Function gdk-pixbuf-get-from-image (self@tie{}@code{}) (src@tie{}@code{}) (cmap@tie{}@code{}) (src_x@tie{}@code{int}) (src_y@tie{}@code{int}) (dest_x@tie{}@code{int}) (dest_y@tie{}@code{int}) (width@tie{}@code{int}) (height@tie{}@code{int}) @result{}@tie{} (ret@tie{}@code{}) @deffnx Method get-from-image Same as @code{gdk-pixbuf-get-from-drawable} but gets the pixbuf from an image. @table @var @item dest Destination pixbuf, or @samp{@code{#f}} if a new pixbuf should be created. @item src Source @code{}. @item cmap A colormap, or @samp{@code{#f}} to use the one for @var{src} @item src-x Source X coordinate within drawable. @item src-y Source Y coordinate within drawable. @item dest-x Destination X coordinate in pixbuf, or 0 if @var{dest} is NULL. @item dest-y Destination Y coordinate in pixbuf, or 0 if @var{dest} is NULL. @item width Width in pixels of region to get. @item height Height in pixels of region to get. @item ret @var{dest}, newly-created pixbuf if @var{dest} was @samp{@code{#f}}, @samp{@code{#f}} on error @end table @end deffn @c %end of fragment guile-gnome-platform-2.16.2/gtk/doc/gdk/section-threads.xml.texi0000644000175000017500000001377011670374302025064 0ustar00wingowingo00000000000000 @c %start of fragment @node Threads @chapter Threads Functions for using GDK in multi-threaded programs @section Overview For thread safety, GDK relies on the thread primitives in GLib, and on the thread-safe GLib main loop. GLib is completely thread safe (all global data is automatically locked), but individual data structure instances are not automatically locked for performance reasons. So e.g. you must coordinate accesses to the same @code{} from multiple threads. GTK+ is "thread aware" but not thread safe — it provides a global lock controlled by @code{gdk-threads-enter}/@code{gdk-threads-leave} which protects all use of GTK+. That is, only one thread can use GTK+ at any given time. Unfortunately the above holds with the X11 backend only. With the Win32 backend, GDK calls should not be attempted from multiple threads at all. You must call @code{g-thread-init} and @code{gdk-threads-init} before executing any other GTK+ or GDK functions in a threaded GTK+ program. Idles, timeouts, and input functions are executed outside of the main GTK+ lock. So, if you need to call GTK+ inside of such a callback, you must surround the callback with a @code{gdk-threads-enter}/@code{gdk-threads-leave} pair. (However, signals are still executed within the main GTK+ lock.) In particular, this means, if you are writing widgets that might be used in threaded programs, you @emph{must} surround timeouts and idle functions in this matter. As always, you must also surround any calls to GTK+ not made within a signal handler with a @code{gdk-threads-enter}/@code{gdk-threads-leave} pair. Before calling @code{gdk-threads-leave} from a thread other than your main thread, you probably want to call @code{gdk-flush} to send all pending commands to the windowing system. (The reason you don't need to do this from the main thread is that GDK always automatically flushes pending commands when it runs out of incoming events to process and has to sleep while waiting for more events.) A minimal main program for a threaded GTK+ application looks like: @example int main (int argc, char *argv[]) @{ GtkWidget *window; g_thread_init (NULL); gdk_threads_init (); gdk_threads_enter (); gtk_init (&argc, &argv); window = create_window (); gtk_widget_show (window); gtk_main (); gdk_threads_leave (); return 0; @} @end example Callbacks require a bit of attention. Callbacks from GTK+ signals are made within the GTK+ lock. However callbacks from GLib (timeouts, IO callbacks, and idle functions) are made outside of the GTK+ lock. So, within a signal handler you do not need to call @code{gdk-threads-enter}, but within the other types of callbacks, you do. Erik Mouw contributed the following code example to illustrate how to use threads within GTK+ programs. @example /*------------------------------------------------------------------------- * Filename: gtk-thread.c * Version: 0.99.1 * Copyright: Copyright (C) 1999, Erik Mouw * Author: Erik Mouw * Description: GTK threads example. * Created at: Sun Oct 17 21:27:09 1999 * Modified by: Erik Mouw * Modified at: Sun Oct 24 17:21:41 1999 *-----------------------------------------------------------------------*/ /* * Compile with: * * cc -o gtk-thread gtk-thread.c `gtk-config --cflags --libs gthread` * * Thanks to Sebastian Wilhelmi and Owen Taylor for pointing out some * bugs. * */ #include #include #include #include #include #include #include #define YES_IT_IS (1) #define NO_IT_IS_NOT (0) typedef struct @{ GtkWidget *label; int what; @} yes_or_no_args; G_LOCK_DEFINE_STATIC (yes_or_no); static volatile int yes_or_no = YES_IT_IS; void destroy (GtkWidget *widget, gpointer data) @{ gtk_main_quit (); @} void *argument_thread (void *args) @{ yes_or_no_args *data = (yes_or_no_args *)args; gboolean say_something; for (;;) @{ /* sleep a while */ sleep(rand() / (RAND_MAX / 3) + 1); /* lock the yes_or_no_variable */ G_LOCK(yes_or_no); /* do we have to say something? */ say_something = (yes_or_no != data->what); if(say_something) @{ /* set the variable */ yes_or_no = data->what; @} /* Unlock the yes_or_no variable */ G_UNLOCK (yes_or_no); if (say_something) @{ /* get GTK thread lock */ gdk_threads_enter (); /* set label text */ if(data->what == YES_IT_IS) gtk_label_set_text (GTK_LABEL (data->label), "O yes, it is!"); else gtk_label_set_text (GTK_LABEL (data->label), "O no, it isn't!"); /* release GTK thread lock */ gdk_threads_leave (); @} @} return NULL; @} int main (int argc, char *argv[]) @{ GtkWidget *window; GtkWidget *label; yes_or_no_args yes_args, no_args; pthread_t no_tid, yes_tid; /* init threads */ g_thread_init (NULL); gdk_threads_init (); gdk_threads_enter (); /* init gtk */ gtk_init(&argc, &argv); /* init random number generator */ srand ((unsigned int) time (NULL)); /* create a window */ window = gtk_window_new (GTK_WINDOW_TOPLEVEL); gtk_signal_connect (GTK_OBJECT (window), "destroy", GTK_SIGNAL_FUNC (destroy), NULL); gtk_container_set_border_width (GTK_CONTAINER (window), 10); /* create a label */ label = gtk_label_new ("And now for something completely different ..."); gtk_container_add (GTK_CONTAINER (window), label); /* show everything */ gtk_widget_show (label); gtk_widget_show (window); /* create the threads */ yes_args.label = label; yes_args.what = YES_IT_IS; pthread_create (&yes_tid, NULL, argument_thread, &yes_args); no_args.label = label; no_args.what = NO_IT_IS_NOT; pthread_create (&no_tid, NULL, argument_thread, &no_args); /* enter the GTK main loop */ gtk_main (); gdk_threads_leave (); return 0; @} @end example @section Usage @include defuns-threads.xml.texi @c %end of fragment guile-gnome-platform-2.16.2/gtk/doc/gdk/section-dnd.xml.texi0000644000175000017500000000116011670374302024165 0ustar00wingowingo00000000000000 @c %start of fragment @node Drag and Drop @chapter Drag and Drop Functions for controlling drag and drop handling @section Overview These functions provide a low level interface for drag and drop. The X backend of GDK supports both the Xdnd and Motif drag and drop protocols transparently, the Win32 backend supports the WM_DROPFILES protocol. GTK+ provides a higher level abstraction based on top of these functions, and so they are not normally needed in GTK+ applications. See the Drag and Drop section of the GTK+ documentation for more information. @section Usage @include defuns-dnd.xml.texi @c %end of fragment guile-gnome-platform-2.16.2/gtk/doc/gdk/guile-gnome-gdk.info-20000644000175000017500000017015411752516272024272 0ustar00wingowingo00000000000000This is guile-gnome-gdk.info, produced by makeinfo version 4.13 from guile-gnome-gdk.texi. This manual is for `(gnome gdk)' (version 2.16.2, updated 9 December 2011) GDK documentation Copyright 1997-2007 Damon Chaplin and others This work may be reproduced and distributed in whole or in part, in any medium, physical or electronic, so as long as this copyright notice remains intact and unchanged on all copies. Commercial redistribution is permitted and encouraged, but you may not redistribute, in whole or in part, under terms more restrictive than those under which you received it. If you redistribute a modified or translated version of this work, you must also make the source code to the modified or translated version available in electronic form without charge. However, mere aggregation as part of a larger work shall not count as a modification for this purpose. All code examples in this work are placed into the public domain, and may be used, modified and redistributed without restriction. BECAUSE THIS WORK IS LICENSED FREE OF CHARGE, THERE IS NO WARRANTY FOR THE WORK, TO THE EXTENT PERMITTED BY APPLICABLE LAW. EXCEPT WHEN OTHERWISE STATED IN WRITING THE COPYRIGHT HOLDERS AND/OR OTHER PARTIES PROVIDE THE WORK "AS IS" WITHOUT WARRANTY OF ANY KIND, EITHER EXPRESSED OR IMPLIED, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE. SHOULD THE WORK PROVE DEFECTIVE, YOU ASSUME THE COST OF ALL NECESSARY REPAIR OR CORRECTION. IN NO EVENT UNLESS REQUIRED BY APPLICABLE LAW OR AGREED TO IN WRITING WILL ANY COPYRIGHT HOLDER, OR ANY OTHER PARTY WHO MAY MODIFY AND/OR REDISTRIBUTE THE WORK AS PERMITTED ABOVE, BE LIABLE TO YOU FOR DAMAGES, INCLUDING ANY GENERAL, SPECIAL, INCIDENTAL OR CONSEQUENTIAL DAMAGES ARISING OUT OF THE USE OR INABILITY TO USE THE WORK, EVEN IF SUCH HOLDER OR OTHER PARTY HAS BEEN ADVISED OF THE POSSIBILITY OF SUCH DAMAGES. GDK-Pixbuf documentation Copyright 2000 Free Software Foundation. Permission is granted to copy, distribute and/or modify this document under the terms of the GNU Free Documentation License, Version 1.1 or any later version published by the Free Software Foundation with no Invariant Sections, no Front-Cover Texts, and no Back-Cover Texts. You may obtain a copy of the GNU Free Documentation License from the Free Software Foundation by visiting their Web site or by writing to: The Free Software Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA Many of the names used by companies to distinguish their products and services are claimed as trademarks. Where those names appear in any GNOME documentation, and those trademarks are made aware to the members of the GNOME Documentation Project, the names have been printed in caps or initial caps. INFO-DIR-SECTION The Algorithmic Language Scheme START-INFO-DIR-ENTRY * Guile-Gdk: (guile-gnome-gdk.info). The GIMP Drawing Kit. END-INFO-DIR-ENTRY  File: guile-gnome-gdk.info, Node: Module Interface, Next: Undocumented, Prev: GdkPixbufLoader, Up: Top 36 Module Interface ******************* Extending gdk-pixbuf 36.1 Overview ============= If gdk-pixbuf has been compiled with GModule support, it can be extended by modules which can load (and perhaps also save) new image and animation formats. Each loadable module must export a `' function named `fill-info' and a `' function named `fill-vtable'. In order to make format-checking work before actually loading the modules (which may require dlopening image libraries), modules export their signatures (and other information) via the `fill-info' function. An external utility, , uses this to create a text file containing a list of all available loaders and their signatures. This file is then read at runtime by gdk-pixbuf to obtain the list of available loaders and their signatures. Modules may only implement a subset of the functionality available via `'. If a particular functionality is not implemented, the `fill-vtable' function will simply not set the corresponding function pointers of the `' structure. If a module supports incremental loading (i.e. provides `', `' and `'), it doesn't have to implement `', since gdk-pixbuf can supply a generic `' implementation wrapping the incremental loading. Installing a module is a two-step process: copy the module file(s) to the loader directory (normally `/gtk-2.0//loaders', unless overridden by the environment variable `GDK_PIXBUF_MODULEDIR') call to update the module file (normally `/gtk-2.0/gdk-pixbuf.loaders', unless overridden by the environment variable `GDK_PIXBUF_MODULE_FILE') The gdk-pixbuf interfaces needed for implementing modules are contained in `gdk-pixbuf-io.h' (and `gdk-pixbuf-animation.h' if the module supports animations). They are not covered by the same stability guarantees as the regular gdk-pixbuf API. To underline this fact, they are protected by `#ifdef GDK_PIXBUF_ENABLE_BACKEND'. 36.2 Usage ========== -- Function: gdk-pixbuf-get-formats => (ret `gslist-of') Obtains the available information about the image formats supported by GdkPixbuf. RET A list of `'s describing the supported image formats. The list should be freed when it is no longer needed, but the structures themselves are owned by `' and should not be freed. Since 2.2  File: guile-gnome-gdk.info, Node: Undocumented, Next: Type Index, Prev: Module Interface, Up: Top 37 Undocumented *************** The following symbols, if any, have not been properly documented. 37.1 (gnome gw gdk) =================== -- Variable: -- Variable: gdk-display-manager-get-default-display -- Variable: gdk-display-manager-set-default-display -- Variable: gdk-display-request-selection-notification -- Variable: gdk-display-set-double-click-distance -- Variable: gdk-display-supports-clipboard-persistence -- Variable: gdk-display-supports-selection-notification -- Variable: gdk-event->vector -- Variable: gdk-pango-renderer-set-override-color -- Variable: gdk-pixbuf-animation-get-static-image -- Variable: gdk-pixbuf-animation-is-static-image -- Variable: gdk-pixbuf-animation-iter-get-delay-time -- Variable: gdk-pixbuf-animation-iter-get-pixbuf -- Variable: gdk-pixbuf-animation-iter-on-currently-loading-frame -- Variable: gdk-pixbuf-error-quark -- Function: gdk-pixbuf-loader-new-with-mime-type -- Function: gdk-pixbuf-save-to-port -- Variable: gdk-selection-send-notify-for-display -- Variable: gdk-window-enable-synchronized-configure -- Variable: gdk-window-input-shape-combine-region  File: guile-gnome-gdk.info, Node: Type Index, Next: Function Index, Prev: Undocumented, Up: Top Type Index ********** [index] * Menu: * : Properties and Atoms. (line 37) * : Colormaps and Colors. (line 35) * : Colormaps and Colors. (line 41) * : Cursors. (line 29) * : Input Devices. (line 75) * : GdkDisplayManager. (line 19) * : GdkDisplay. (line 29) * : Drag and Drop. (line 24) * : Drawing Primitives. (line 33) * : Event Structures. (line 20) * : Event Structures. (line 32) * : Event Structures. (line 104) * : Event Structures. (line 74) * : Event Structures. (line 62) * : Event Structures. (line 92) * : Event Structures. (line 50) * : Event Structures. (line 68) * : Event Structures. (line 26) * : Event Structures. (line 44) * : Event Structures. (line 110) * : Event Structures. (line 80) * : Event Structures. (line 98) * : Event Structures. (line 38) * : Event Structures. (line 86) * : Event Structures. (line 122) * : Event Structures. (line 56) * : Event Structures. (line 116) * : Fonts. (line 117) * : Graphics Contexts. (line 27) * : Images. (line 33) * : Key Values. (line 77) * : Pango Interaction. (line 121) * : Animations. (line 30) * : Animations. (line 24) * : GdkPixbufLoader. (line 56) * : Animations. (line 36) * : The GdkPixbuf Structure. (line 70) * : Points Rectangles and Regions. (line 36) * : Points Rectangles and Regions. (line 42) * : GdkScreen. (line 25) * : Visuals. (line 48)  File: guile-gnome-gdk.info, Node: Function Index, Prev: Type Index, Up: Top Function Index ************** [index] * Menu: * add-alpha: Utilities. (line 24) * add-frame: Animations. (line 113) * area-prepared on : GdkPixbufLoader. (line 78) * area-updated on : GdkPixbufLoader. (line 86) * beep: GdkDisplay. (line 181) * begin-move-drag: Windows. (line 653) * begin-paint-rect: Windows. (line 680) * begin-paint-region: Windows. (line 695) * begin-resize-drag: Windows. (line 621) * broadcast-client-message: GdkScreen. (line 472) * clear: Windows. (line 502) * clear-area: Windows. (line 513) * clear-area-e: Windows. (line 536) * close <1>: GdkPixbufLoader. (line 219) * close: GdkDisplay. (line 231) * closed on : GdkDisplay. (line 35) * closed on : GdkPixbufLoader. (line 62) * composite: Scaling. (line 195) * composite-color: Scaling. (line 256) * composite-color-simple: Scaling. (line 155) * composited-changed on : GdkScreen. (line 45) * configure-finished: Windows. (line 902) * copy: Graphics Contexts. (line 336) * copy-area: Utilities. (line 59) * copy-to-image: Drawing Primitives. (line 740) * deiconify: Windows. (line 189) * destroy: Windows. (line 23) * direction-changed on : Key Values. (line 83) * display-opened on : GdkDisplayManager. (line 30) * end-paint: Windows. (line 744) * fill: Utilities. (line 117) * flip: Scaling. (line 343) * flush: GdkDisplay. (line 211) * focus: Windows. (line 596) * freeze-updates: Windows. (line 828) * fullscreen: Windows. (line 269) * gdk-atom-intern: Properties and Atoms. (line 44) * gdk-atom-name: Properties and Atoms. (line 61) * gdk-beep: General. (line 294) * gdk-bitmap-create-from-data: Bitmaps and Pixmaps. (line 48) * gdk-cairo-create: Cairo Interaction. (line 25) * gdk-cairo-rectangle: Cairo Interaction. (line 100) * gdk-cairo-region: Cairo Interaction. (line 113) * gdk-cairo-set-source-color: Cairo Interaction. (line 40) * gdk-cairo-set-source-pixbuf: Cairo Interaction. (line 55) * gdk-cairo-set-source-pixmap: Cairo Interaction. (line 78) * gdk-char-height: Fonts. (line 414) * gdk-char-measure: Fonts. (line 348) * gdk-char-width: Fonts. (line 266) * gdk-char-width-wc: Fonts. (line 284) * gdk-color-alloc: Colormaps and Colors. (line 119) * gdk-color-black: Colormaps and Colors. (line 80) * gdk-color-change: Colormaps and Colors. (line 137) * gdk-color-copy: Colormaps and Colors. (line 48) * gdk-color-parse: Colormaps and Colors. (line 99) * gdk-color-white: Colormaps and Colors. (line 61) * gdk-cursor-get-display: Cursors. (line 232) * gdk-cursor-get-image: Cursors. (line 246) * gdk-cursor-new: Cursors. (line 36) * gdk-cursor-new-for-display: Cursors. (line 174) * gdk-cursor-new-from-name: Cursors. (line 155) * gdk-cursor-new-from-pixbuf: Cursors. (line 120) * gdk-cursor-new-from-pixmap: Cursors. (line 53) * gdk-device-get-axis: Input Devices. (line 169) * gdk-device-get-core-pointer: Input Devices. (line 158) * gdk-device-set-axis-use: Input Devices. (line 143) * gdk-device-set-key: Input Devices. (line 123) * gdk-device-set-mode: Input Devices. (line 104) * gdk-device-set-source: Input Devices. (line 91) * gdk-devices-list: Input Devices. (line 81) * gdk-display-beep: GdkDisplay. (line 180) * gdk-display-close: GdkDisplay. (line 230) * gdk-display-flush: GdkDisplay. (line 210) * gdk-display-get-core-pointer: GdkDisplayManager. (line 65) * gdk-display-get-default: GdkDisplay. (line 57) * gdk-display-get-default-cursor-size: GdkDisplay. (line 419) * gdk-display-get-default-group: GdkDisplay. (line 453) * gdk-display-get-default-screen: GdkDisplay. (line 121) * gdk-display-get-event: GdkDisplay. (line 259) * gdk-display-get-maximal-cursor-size: GdkDisplay. (line 435) * gdk-display-get-n-screens: GdkDisplay. (line 88) * gdk-display-get-name: GdkDisplay. (line 72) * gdk-display-get-screen: GdkDisplay. (line 103) * gdk-display-get-window-at-pointer: GdkDisplay. (line 332) * gdk-display-keyboard-ungrab: GdkDisplay. (line 151) * gdk-display-list-devices: GdkDisplay. (line 243) * gdk-display-manager-get: GdkDisplayManager. (line 36) * gdk-display-manager-list-displays: GdkDisplayManager. (line 49) * gdk-display-open: GdkDisplay. (line 43) * gdk-display-peek-event: GdkDisplay. (line 277) * gdk-display-pointer-is-grabbed: GdkDisplay. (line 166) * gdk-display-pointer-ungrab: GdkDisplay. (line 136) * gdk-display-put-event: GdkDisplay. (line 298) * gdk-display-set-double-click-time: GdkDisplay. (line 314) * gdk-display-supports-cursor-alpha: GdkDisplay. (line 402) * gdk-display-supports-cursor-color: GdkDisplay. (line 386) * gdk-display-supports-input-shapes: GdkDisplay. (line 486) * gdk-display-supports-shapes: GdkDisplay. (line 470) * gdk-display-sync: GdkDisplay. (line 191) * gdk-display-warp-pointer: GdkDisplay. (line 356) * gdk-drag-abort: Drag and Drop. (line 43) * gdk-drag-context-new: Drag and Drop. (line 74) * gdk-drag-drop: Drag and Drop. (line 83) * gdk-drag-drop-succeeded: Drag and Drop. (line 174) * gdk-drag-get-selection: Drag and Drop. (line 31) * gdk-drag-motion: Drag and Drop. (line 101) * gdk-drag-status: Drag and Drop. (line 155) * gdk-draw-arc: Drawing Primitives. (line 330) * gdk-draw-drawable: Drawing Primitives. (line 598) * gdk-draw-glyphs: Drawing Primitives. (line 368) * gdk-draw-glyphs-transformed: Drawing Primitives. (line 401) * gdk-draw-image: Drawing Primitives. (line 647) * gdk-draw-layout: Drawing Primitives. (line 503) * gdk-draw-layout-line: Drawing Primitives. (line 441) * gdk-draw-layout-line-with-colors: Drawing Primitives. (line 469) * gdk-draw-layout-with-colors: Drawing Primitives. (line 532) * gdk-draw-line: Drawing Primitives. (line 208) * gdk-draw-pixbuf: Drawing Primitives. (line 236) * gdk-draw-point: Drawing Primitives. (line 189) * gdk-draw-rectangle: Drawing Primitives. (line 293) * gdk-draw-string: Drawing Primitives. (line 569) * gdk-drawable-copy-to-image: Drawing Primitives. (line 739) * gdk-drawable-get-clip-region: Drawing Primitives. (line 153) * gdk-drawable-get-colormap: Drawing Primitives. (line 103) * gdk-drawable-get-depth: Drawing Primitives. (line 117) * gdk-drawable-get-display: Drawing Primitives. (line 40) * gdk-drawable-get-image: Drawing Primitives. (line 683) * gdk-drawable-get-screen: Drawing Primitives. (line 55) * gdk-drawable-get-size: Drawing Primitives. (line 132) * gdk-drawable-get-visible-region: Drawing Primitives. (line 172) * gdk-drawable-get-visual: Drawing Primitives. (line 70) * gdk-drawable-set-colormap: Drawing Primitives. (line 83) * gdk-drop-finish: Drag and Drop. (line 138) * gdk-drop-reply: Drag and Drop. (line 57) * gdk-error-trap-pop: General. (line 352) * gdk-error-trap-push: General. (line 333) * gdk-event-copy: Events. (line 81) * gdk-event-get: Events. (line 42) * gdk-event-get-axis: Events. (line 110) * gdk-event-get-coords: Events. (line 129) * gdk-event-get-graphics-expose: Events. (line 55) * gdk-event-get-root-coords: Events. (line 147) * gdk-event-get-screen: Events. (line 183) * gdk-event-get-time: Events. (line 96) * gdk-event-peek: Events. (line 31) * gdk-event-put: Events. (line 70) * gdk-events-pending: Events. (line 23) * gdk-flush: General. (line 111) * gdk-font-from-description: Fonts. (line 160) * gdk-font-id: Fonts. (line 179) * gdk-font-load: Fonts. (line 123) * gdk-fontset-load: Fonts. (line 141) * gdk-gc-copy: Graphics Contexts. (line 335) * gdk-gc-get-colormap: Graphics Contexts. (line 364) * gdk-gc-get-screen: Graphics Contexts. (line 47) * gdk-gc-new: Graphics Contexts. (line 34) * gdk-gc-offset: Graphics Contexts. (line 380) * gdk-gc-set-background: Graphics Contexts. (line 77) * gdk-gc-set-clip-mask: Graphics Contexts. (line 238) * gdk-gc-set-clip-origin: Graphics Contexts. (line 220) * gdk-gc-set-clip-rectangle: Graphics Contexts. (line 253) * gdk-gc-set-clip-region: Graphics Contexts. (line 268) * gdk-gc-set-colormap: Graphics Contexts. (line 349) * gdk-gc-set-exposures: Graphics Contexts. (line 296) * gdk-gc-set-fill: Graphics Contexts. (line 162) * gdk-gc-set-font: Graphics Contexts. (line 131) * gdk-gc-set-foreground: Graphics Contexts. (line 62) * gdk-gc-set-function: Graphics Contexts. (line 149) * gdk-gc-set-line-attributes: Graphics Contexts. (line 312) * gdk-gc-set-rgb-bg-color: Graphics Contexts. (line 112) * gdk-gc-set-rgb-fg-color: Graphics Contexts. (line 92) * gdk-gc-set-stipple: Graphics Contexts. (line 188) * gdk-gc-set-subwindow: Graphics Contexts. (line 283) * gdk-gc-set-tile: Graphics Contexts. (line 174) * gdk-gc-set-ts-origin: Graphics Contexts. (line 202) * gdk-get-default-root-window: Windows. (line 1828) * gdk-get-display: General. (line 103) * gdk-get-display-arg-name: General. (line 18) * gdk-get-program-class: General. (line 82) * gdk-get-show-events: Events. (line 164) * gdk-get-use-xshm: General. (line 298) * gdk-image-get: Images. (line 67) * gdk-image-get-colormap: Images. (line 97) * gdk-image-get-pixel: Images. (line 149) * gdk-image-new: Images. (line 41) * gdk-image-put-pixel: Images. (line 130) * gdk-image-set-colormap: Images. (line 113) * gdk-input-set-extension-events: Input Devices. (line 192) * gdk-keyboard-grab: General. (line 254) * gdk-keyboard-ungrab: General. (line 285) * gdk-keymap-get-default: Key Values. (line 97) * gdk-keymap-get-direction: Key Values. (line 120) * gdk-keymap-get-for-display: Key Values. (line 106) * gdk-keyval-convert-case: Key Values. (line 161) * gdk-keyval-from-name: Key Values. (line 148) * gdk-keyval-is-lower: Key Values. (line 216) * gdk-keyval-is-upper: Key Values. (line 203) * gdk-keyval-name: Key Values. (line 133) * gdk-keyval-to-lower: Key Values. (line 190) * gdk-keyval-to-unicode: Key Values. (line 229) * gdk-keyval-to-upper: Key Values. (line 177) * gdk-list-visuals: Visuals. (line 54) * gdk-notify-startup-complete: General. (line 69) * gdk-pango-attr-embossed-new: Pango Interaction. (line 297) * gdk-pango-attr-stipple-new: Pango Interaction. (line 310) * gdk-pango-context-get: Pango Interaction. (line 229) * gdk-pango-context-get-for-screen: Pango Interaction. (line 252) * gdk-pango-context-set-colormap: Pango Interaction. (line 279) * gdk-pango-renderer-get-default: Pango Interaction. (line 149) * gdk-pango-renderer-new: Pango Interaction. (line 132) * gdk-pango-renderer-set-drawable: Pango Interaction. (line 172) * gdk-pango-renderer-set-gc: Pango Interaction. (line 187) * gdk-pango-renderer-set-stipple: Pango Interaction. (line 206) * gdk-pixbuf-add-alpha: Utilities. (line 23) * gdk-pixbuf-animation-get-height: Animations. (line 79) * gdk-pixbuf-animation-get-width: Animations. (line 66) * gdk-pixbuf-animation-new-from-file: Animations. (line 43) * gdk-pixbuf-composite: Scaling. (line 194) * gdk-pixbuf-composite-color: Scaling. (line 255) * gdk-pixbuf-composite-color-simple: Scaling. (line 154) * gdk-pixbuf-copy-area: Utilities. (line 58) * gdk-pixbuf-fill: Utilities. (line 116) * gdk-pixbuf-flip: Scaling. (line 342) * gdk-pixbuf-get-bits-per-sample: The GdkPixbuf Structure. (line 143) * gdk-pixbuf-get-colorspace: The GdkPixbuf Structure. (line 103) * gdk-pixbuf-get-formats: Module Interface. (line 54) * gdk-pixbuf-get-from-drawable: Pixbufs. (line 189) * gdk-pixbuf-get-from-image: Pixbufs. (line 283) * gdk-pixbuf-get-has-alpha: The GdkPixbuf Structure. (line 129) * gdk-pixbuf-get-height: The GdkPixbuf Structure. (line 168) * gdk-pixbuf-get-n-channels: The GdkPixbuf Structure. (line 116) * gdk-pixbuf-get-option: The GdkPixbuf Structure. (line 195) * gdk-pixbuf-get-rowstride: The GdkPixbuf Structure. (line 181) * gdk-pixbuf-get-width: The GdkPixbuf Structure. (line 155) * gdk-pixbuf-loader-close: GdkPixbufLoader. (line 218) * gdk-pixbuf-loader-get-animation: GdkPixbufLoader. (line 198) * gdk-pixbuf-loader-get-format: GdkPixbufLoader. (line 131) * gdk-pixbuf-loader-get-pixbuf: GdkPixbufLoader. (line 172) * gdk-pixbuf-loader-new: GdkPixbufLoader. (line 94) * gdk-pixbuf-loader-new-with-mime-type: Undocumented. (line 42) * gdk-pixbuf-loader-new-with-type: GdkPixbufLoader. (line 103) * gdk-pixbuf-loader-set-size: GdkPixbufLoader. (line 148) * gdk-pixbuf-new: Image Data in Memory. (line 41) * gdk-pixbuf-new-from-file: File Loading. (line 27) * gdk-pixbuf-new-from-file-at-scale: File Loading. (line 83) * gdk-pixbuf-new-from-file-at-size: File Loading. (line 49) * gdk-pixbuf-new-subpixbuf: Image Data in Memory. (line 70) * gdk-pixbuf-render-threshold-alpha: Pixbufs. (line 22) * gdk-pixbuf-render-to-drawable: Pixbufs. (line 62) * gdk-pixbuf-render-to-drawable-alpha: Pixbufs. (line 128) * gdk-pixbuf-rotate-simple: Scaling. (line 323) * gdk-pixbuf-saturate-and-pixelate: Utilities. (line 90) * gdk-pixbuf-save-to-port: Undocumented. (line 44) * gdk-pixbuf-scale: Scaling. (line 101) * gdk-pixbuf-scale-simple: Scaling. (line 64) * gdk-pixbuf-simple-anim-add-frame: Animations. (line 112) * gdk-pixbuf-simple-anim-new: Animations. (line 92) * gdk-pixmap-create-from-data: Bitmaps and Pixmaps. (line 72) * gdk-pixmap-foreign-new-for-display: X Window System Interaction. (line 17) * gdk-pixmap-foreign-new-for-screen: X Window System Interaction. (line 40) * gdk-pixmap-lookup: X Window System Interaction. (line 118) * gdk-pixmap-new: Bitmaps and Pixmaps. (line 23) * gdk-pointer-grab: General. (line 157) * gdk-pointer-is-grabbed: General. (line 228) * gdk-pointer-ungrab: General. (line 219) * gdk-property-delete: Properties and Atoms. (line 75) * gdk-region-copy: Points Rectangles and Regions. (line 57) * gdk-region-destroy: Points Rectangles and Regions. (line 80) * gdk-region-empty: Points Rectangles and Regions. (line 88) * gdk-region-equal: Points Rectangles and Regions. (line 100) * gdk-region-intersect: Points Rectangles and Regions. (line 196) * gdk-region-new: Points Rectangles and Regions. (line 48) * gdk-region-offset: Points Rectangles and Regions. (line 151) * gdk-region-point-in: Points Rectangles and Regions. (line 115) * gdk-region-rect-in: Points Rectangles and Regions. (line 133) * gdk-region-rectangle: Points Rectangles and Regions. (line 69) * gdk-region-shrink: Points Rectangles and Regions. (line 166) * gdk-region-subtract: Points Rectangles and Regions. (line 224) * gdk-region-union: Points Rectangles and Regions. (line 210) * gdk-region-union-with-rect: Points Rectangles and Regions. (line 182) * gdk-region-xor: Points Rectangles and Regions. (line 237) * gdk-rgb-colormap-ditherable: GdkRGB. (line 215) * gdk-rgb-ditherable: GdkRGB. (line 202) * gdk-rgb-gc-set-background: GdkRGB. (line 121) * gdk-rgb-gc-set-foreground: GdkRGB. (line 105) * gdk-rgb-get-colormap: GdkRGB. (line 190) * gdk-rgb-get-visual: GdkRGB. (line 177) * gdk-rgb-init: GdkRGB. (line 96) * gdk-rgb-set-install: GdkRGB. (line 152) * gdk-rgb-set-min-colors: GdkRGB. (line 166) * gdk-rgb-set-verbose: GdkRGB. (line 230) * gdk-rgb-xpixel-from-rgb: GdkRGB. (line 137) * gdk-screen-broadcast-client-message: GdkScreen. (line 471) * gdk-screen-get-active-window: GdkScreen. (line 595) * gdk-screen-get-default: GdkScreen. (line 52) * gdk-screen-get-default-colormap: GdkScreen. (line 64) * gdk-screen-get-display: GdkScreen. (line 241) * gdk-screen-get-font-options: GdkScreen. (line 523) * gdk-screen-get-height: GdkScreen. (line 286) * gdk-screen-get-height-mm: GdkScreen. (line 317) * gdk-screen-get-monitor-at-point: GdkScreen. (line 428) * gdk-screen-get-monitor-at-window: GdkScreen. (line 450) * gdk-screen-get-monitor-geometry: GdkScreen. (line 406) * gdk-screen-get-n-monitors: GdkScreen. (line 391) * gdk-screen-get-number: GdkScreen. (line 256) * gdk-screen-get-resolution: GdkScreen. (line 559) * gdk-screen-get-rgb-colormap: GdkScreen. (line 126) * gdk-screen-get-rgb-visual: GdkScreen. (line 145) * gdk-screen-get-rgba-colormap: GdkScreen. (line 165) * gdk-screen-get-rgba-visual: GdkScreen. (line 188) * gdk-screen-get-root-window: GdkScreen. (line 226) * gdk-screen-get-setting: GdkScreen. (line 497) * gdk-screen-get-system-colormap: GdkScreen. (line 94) * gdk-screen-get-system-visual: GdkScreen. (line 109) * gdk-screen-get-toplevel-windows: GdkScreen. (line 355) * gdk-screen-get-width: GdkScreen. (line 271) * gdk-screen-get-width-mm: GdkScreen. (line 301) * gdk-screen-get-window-stack: GdkScreen. (line 623) * gdk-screen-height: General. (line 126) * gdk-screen-height-mm: General. (line 144) * gdk-screen-is-composited: GdkScreen. (line 206) * gdk-screen-list-visuals: GdkScreen. (line 333) * gdk-screen-make-display-name: GdkScreen. (line 375) * gdk-screen-set-default-colormap: GdkScreen. (line 79) * gdk-screen-set-font-options: GdkScreen. (line 539) * gdk-screen-set-resolution: GdkScreen. (line 575) * gdk-screen-width: General. (line 118) * gdk-screen-width-mm: General. (line 134) * gdk-selection-convert: Selections. (line 142) * gdk-selection-owner-get: Selections. (line 100) * gdk-selection-owner-get-for-display: Selections. (line 118) * gdk-selection-owner-set: Selections. (line 40) * gdk-selection-owner-set-for-display: Selections. (line 68) * gdk-selection-send-notify: Selections. (line 163) * gdk-set-double-click-time: General. (line 241) * gdk-set-locale: General. (line 31) * gdk-set-program-class: General. (line 93) * gdk-set-show-events: Events. (line 172) * gdk-set-sm-client-id: General. (line 52) * gdk-set-use-xshm: General. (line 317) * gdk-spawn-command-line-on-screen: GdkScreen. (line 653) * gdk-string-extents: Fonts. (line 195) * gdk-string-height: Fonts. (line 369) * gdk-string-measure: Fonts. (line 303) * gdk-string-width: Fonts. (line 225) * gdk-text-height: Fonts. (line 390) * gdk-text-measure: Fonts. (line 324) * gdk-text-width: Fonts. (line 245) * gdk-threads-enter: Threads. (line 236) * gdk-threads-init: Threads. (line 227) * gdk-threads-leave: Threads. (line 242) * gdk-unicode-to-keyval: Key Values. (line 243) * gdk-visual-get-best: Visuals. (line 97) * gdk-visual-get-best-depth: Visuals. (line 69) * gdk-visual-get-best-type: Visuals. (line 79) * gdk-visual-get-best-with-both: Visuals. (line 137) * gdk-visual-get-best-with-depth: Visuals. (line 107) * gdk-visual-get-best-with-type: Visuals. (line 122) * gdk-visual-get-screen: Visuals. (line 153) * gdk-visual-get-system: Visuals. (line 87) * gdk-window-at-pointer: Windows. (line 52) * gdk-window-begin-move-drag: Windows. (line 652) * gdk-window-begin-paint-rect: Windows. (line 679) * gdk-window-begin-paint-region: Windows. (line 694) * gdk-window-begin-resize-drag: Windows. (line 620) * gdk-window-clear: Windows. (line 501) * gdk-window-clear-area: Windows. (line 512) * gdk-window-clear-area-e: Windows. (line 535) * gdk-window-configure-finished: Windows. (line 901) * gdk-window-deiconify: Windows. (line 188) * gdk-window-destroy: Windows. (line 22) * gdk-window-end-paint: Windows. (line 743) * gdk-window-focus: Windows. (line 595) * gdk-window-foreign-new-for-display: X Window System Interaction. (line 77) * gdk-window-freeze-updates: Windows. (line 827) * gdk-window-fullscreen: Windows. (line 268) * gdk-window-get-children: Windows. (line 1592) * gdk-window-get-deskrelative-origin: Windows. (line 1534) * gdk-window-get-events: Windows. (line 1611) * gdk-window-get-geometry: Windows. (line 1297) * gdk-window-get-group: Windows. (line 1748) * gdk-window-get-origin: Windows. (line 1512) * gdk-window-get-parent: Windows. (line 1561) * gdk-window-get-position: Windows. (line 1472) * gdk-window-get-root-origin: Windows. (line 1495) * gdk-window-get-state: Windows. (line 149) * gdk-window-get-toplevel: Windows. (line 1579) * gdk-window-get-toplevels: Windows. (line 1815) * gdk-window-get-type-hint: Windows. (line 1400) * gdk-window-get-update-area: Windows. (line 809) * gdk-window-get-window-type: Windows. (line 39) * gdk-window-hide: Windows. (line 106) * gdk-window-iconify: Windows. (line 174) * gdk-window-input-shape-combine-mask: Windows. (line 1081) * gdk-window-invalidate-rect: Windows. (line 759) * gdk-window-invalidate-region: Windows. (line 777) * gdk-window-is-viewable: Windows. (line 133) * gdk-window-is-visible: Windows. (line 119) * gdk-window-lookup: X Window System Interaction. (line 101) * gdk-window-lower: Windows. (line 575) * gdk-window-maximize: Windows. (line 230) * gdk-window-merge-child-input-shapes: Windows. (line 1130) * gdk-window-merge-child-shapes: Windows. (line 1064) * gdk-window-move: Windows. (line 357) * gdk-window-move-region: Windows. (line 457) * gdk-window-move-resize: Windows. (line 406) * gdk-window-process-all-updates: Windows. (line 849) * gdk-window-process-updates: Windows. (line 855) * gdk-window-raise: Windows. (line 560) * gdk-window-register-dnd: Windows. (line 609) * gdk-window-reparent: Windows. (line 482) * gdk-window-resize: Windows. (line 381) * gdk-window-scroll: Windows. (line 432) * gdk-window-set-accept-focus: Windows. (line 941) * gdk-window-set-back-pixmap: Windows. (line 1248) * gdk-window-set-background: Windows. (line 1227) * gdk-window-set-child-input-shapes: Windows. (line 1115) * gdk-window-set-child-shapes: Windows. (line 1052) * gdk-window-set-cursor: Windows. (line 1279) * gdk-window-set-debug-updates: Windows. (line 874) * gdk-window-set-decorations: Windows. (line 1764) * gdk-window-set-events: Windows. (line 1624) * gdk-window-set-focus-on-map: Windows. (line 960) * gdk-window-set-functions: Windows. (line 1791) * gdk-window-set-group: Windows. (line 1725) * gdk-window-set-hints: Windows. (line 1169) * gdk-window-set-icon: Windows. (line 1642) * gdk-window-set-icon-list: Windows. (line 1345) * gdk-window-set-icon-name: Windows. (line 1667) * gdk-window-set-keep-above: Windows. (line 312) * gdk-window-set-keep-below: Windows. (line 335) * gdk-window-set-modal-hint: Windows. (line 1364) * gdk-window-set-override-redirect: Windows. (line 920) * gdk-window-set-role: Windows. (line 1701) * gdk-window-set-skip-pager-hint: Windows. (line 1435) * gdk-window-set-skip-taskbar-hint: Windows. (line 1415) * gdk-window-set-static-gravities: Windows. (line 1149) * gdk-window-set-title: Windows. (line 1210) * gdk-window-set-transient-for: Windows. (line 1683) * gdk-window-set-type-hint: Windows. (line 1382) * gdk-window-set-urgency-hint: Windows. (line 1457) * gdk-window-shape-combine-mask: Windows. (line 982) * gdk-window-shape-combine-region: Windows. (line 1018) * gdk-window-show: Windows. (line 73) * gdk-window-show-unraised: Windows. (line 90) * gdk-window-stick: Windows. (line 202) * gdk-window-thaw-updates: Windows. (line 840) * gdk-window-unfullscreen: Windows. (line 291) * gdk-window-unmaximize: Windows. (line 249) * gdk-window-unstick: Windows. (line 220) * gdk-window-withdraw: Windows. (line 162) * get-active-window: GdkScreen. (line 596) * get-animation: GdkPixbufLoader. (line 199) * get-axis: Input Devices. (line 170) * get-bits-per-sample: The GdkPixbuf Structure. (line 144) * get-children: Windows. (line 1593) * get-clip-region: Drawing Primitives. (line 154) * get-colormap <1>: Images. (line 98) * get-colormap <2>: Drawing Primitives. (line 104) * get-colormap: Graphics Contexts. (line 365) * get-colorspace: The GdkPixbuf Structure. (line 104) * get-core-pointer: GdkDisplayManager. (line 66) * get-default-colormap: GdkScreen. (line 65) * get-default-cursor-size: GdkDisplay. (line 420) * get-default-group: GdkDisplay. (line 454) * get-default-screen: GdkDisplay. (line 122) * get-depth: Drawing Primitives. (line 118) * get-deskrelative-origin: Windows. (line 1535) * get-direction: Key Values. (line 121) * get-display <1>: Drawing Primitives. (line 41) * get-display: GdkScreen. (line 242) * get-event: GdkDisplay. (line 260) * get-events: Windows. (line 1612) * get-font-options: GdkScreen. (line 524) * get-format: GdkPixbufLoader. (line 132) * get-from-drawable: Pixbufs. (line 190) * get-from-image: Pixbufs. (line 284) * get-geometry: Windows. (line 1298) * get-group: Windows. (line 1749) * get-has-alpha: The GdkPixbuf Structure. (line 130) * get-height <1>: Animations. (line 80) * get-height <2>: The GdkPixbuf Structure. (line 169) * get-height: GdkScreen. (line 287) * get-height-mm: GdkScreen. (line 318) * get-image: Drawing Primitives. (line 684) * get-maximal-cursor-size: GdkDisplay. (line 436) * get-monitor-at-point: GdkScreen. (line 429) * get-monitor-at-window: GdkScreen. (line 451) * get-monitor-geometry: GdkScreen. (line 407) * get-n-channels: The GdkPixbuf Structure. (line 117) * get-n-monitors: GdkScreen. (line 392) * get-n-screens: GdkDisplay. (line 89) * get-name: GdkDisplay. (line 73) * get-number: GdkScreen. (line 257) * get-option: The GdkPixbuf Structure. (line 196) * get-origin: Windows. (line 1513) * get-parent: Windows. (line 1562) * get-pixbuf: GdkPixbufLoader. (line 173) * get-pixel: Images. (line 150) * get-position: Windows. (line 1473) * get-resolution: GdkScreen. (line 560) * get-rgb-colormap: GdkScreen. (line 127) * get-rgb-visual: GdkScreen. (line 146) * get-rgba-colormap: GdkScreen. (line 166) * get-rgba-visual: GdkScreen. (line 189) * get-root-origin: Windows. (line 1496) * get-root-window: GdkScreen. (line 227) * get-rowstride: The GdkPixbuf Structure. (line 182) * get-screen <1>: Visuals. (line 154) * get-screen <2>: Drawing Primitives. (line 56) * get-screen <3>: Graphics Contexts. (line 48) * get-screen: GdkDisplay. (line 104) * get-setting: GdkScreen. (line 498) * get-size: Drawing Primitives. (line 133) * get-state: Windows. (line 150) * get-system-colormap: GdkScreen. (line 95) * get-system-visual: GdkScreen. (line 110) * get-toplevel: Windows. (line 1580) * get-toplevel-windows: GdkScreen. (line 356) * get-type-hint: Windows. (line 1401) * get-update-area: Windows. (line 810) * get-visible-region: Drawing Primitives. (line 173) * get-visual: Drawing Primitives. (line 71) * get-width <1>: Animations. (line 67) * get-width <2>: The GdkPixbuf Structure. (line 156) * get-width: GdkScreen. (line 272) * get-width-mm: GdkScreen. (line 302) * get-window-at-pointer: GdkDisplay. (line 333) * get-window-stack: GdkScreen. (line 624) * get-window-type: Windows. (line 40) * hide: Windows. (line 107) * iconify: Windows. (line 175) * input-shape-combine-mask: Windows. (line 1082) * invalidate-rect: Windows. (line 760) * invalidate-region: Windows. (line 778) * is-composited: GdkScreen. (line 207) * is-viewable: Windows. (line 134) * is-visible: Windows. (line 120) * keyboard-ungrab: GdkDisplay. (line 152) * keys-changed on : Key Values. (line 90) * list-devices: GdkDisplay. (line 244) * list-displays: GdkDisplayManager. (line 50) * list-visuals: GdkScreen. (line 334) * lower: Windows. (line 576) * make-display-name: GdkScreen. (line 376) * maximize: Windows. (line 231) * merge-child-input-shapes: Windows. (line 1131) * merge-child-shapes: Windows. (line 1065) * move: Windows. (line 358) * move-region: Windows. (line 458) * move-resize: Windows. (line 407) * new-subpixbuf: Image Data in Memory. (line 71) * offset: Graphics Contexts. (line 381) * peek-event: GdkDisplay. (line 278) * pointer-is-grabbed: GdkDisplay. (line 167) * pointer-ungrab: GdkDisplay. (line 137) * process-updates: Windows. (line 856) * put-event: GdkDisplay. (line 299) * put-pixel: Images. (line 131) * raise: Windows. (line 561) * register-dnd: Windows. (line 610) * render-threshold-alpha: Pixbufs. (line 23) * render-to-drawable: Pixbufs. (line 63) * render-to-drawable-alpha: Pixbufs. (line 129) * reparent: Windows. (line 483) * resize: Windows. (line 382) * rotate-simple: Scaling. (line 324) * saturate-and-pixelate: Utilities. (line 91) * scale: Scaling. (line 102) * scale-simple: Scaling. (line 65) * scroll: Windows. (line 433) * set-accept-focus: Windows. (line 942) * set-axis-use: Input Devices. (line 144) * set-back-pixmap: Windows. (line 1249) * set-background <1>: Windows. (line 1228) * set-background: Graphics Contexts. (line 78) * set-child-input-shapes: Windows. (line 1116) * set-child-shapes: Windows. (line 1053) * set-clip-mask: Graphics Contexts. (line 239) * set-clip-origin: Graphics Contexts. (line 221) * set-clip-rectangle: Graphics Contexts. (line 254) * set-clip-region: Graphics Contexts. (line 269) * set-colormap <1>: Images. (line 114) * set-colormap <2>: Drawing Primitives. (line 84) * set-colormap: Graphics Contexts. (line 350) * set-cursor: Windows. (line 1280) * set-decorations: Windows. (line 1765) * set-default-colormap: GdkScreen. (line 80) * set-double-click-time: GdkDisplay. (line 315) * set-drawable: Pango Interaction. (line 173) * set-events: Windows. (line 1625) * set-exposures: Graphics Contexts. (line 297) * set-fill: Graphics Contexts. (line 163) * set-focus-on-map: Windows. (line 961) * set-font: Graphics Contexts. (line 132) * set-font-options: GdkScreen. (line 540) * set-foreground: Graphics Contexts. (line 63) * set-function: Graphics Contexts. (line 150) * set-functions: Windows. (line 1792) * set-gc: Pango Interaction. (line 188) * set-group: Windows. (line 1726) * set-hints: Windows. (line 1170) * set-icon: Windows. (line 1643) * set-icon-list: Windows. (line 1346) * set-icon-name: Windows. (line 1668) * set-keep-above: Windows. (line 313) * set-keep-below: Windows. (line 336) * set-key: Input Devices. (line 124) * set-line-attributes: Graphics Contexts. (line 313) * set-modal-hint: Windows. (line 1365) * set-mode: Input Devices. (line 105) * set-override-redirect: Windows. (line 921) * set-resolution: GdkScreen. (line 576) * set-rgb-bg-color: Graphics Contexts. (line 113) * set-rgb-fg-color: Graphics Contexts. (line 93) * set-role: Windows. (line 1702) * set-size: GdkPixbufLoader. (line 149) * set-skip-pager-hint: Windows. (line 1436) * set-skip-taskbar-hint: Windows. (line 1416) * set-source: Input Devices. (line 92) * set-static-gravities: Windows. (line 1150) * set-stipple <1>: Pango Interaction. (line 207) * set-stipple: Graphics Contexts. (line 189) * set-subwindow: Graphics Contexts. (line 284) * set-tile: Graphics Contexts. (line 175) * set-title: Windows. (line 1211) * set-transient-for: Windows. (line 1684) * set-ts-origin: Graphics Contexts. (line 203) * set-type-hint: Windows. (line 1383) * set-urgency-hint: Windows. (line 1458) * shape-combine-mask: Windows. (line 983) * shape-combine-region: Windows. (line 1019) * show: Windows. (line 74) * show-unraised: Windows. (line 91) * size-changed on : GdkScreen. (line 38) * size-prepared on : GdkPixbufLoader. (line 70) * stick: Windows. (line 203) * supports-cursor-alpha: GdkDisplay. (line 403) * supports-cursor-color: GdkDisplay. (line 387) * supports-input-shapes: GdkDisplay. (line 487) * supports-shapes: GdkDisplay. (line 471) * sync: GdkDisplay. (line 192) * thaw-updates: Windows. (line 841) * unfullscreen: Windows. (line 292) * unmaximize: Windows. (line 250) * unstick: Windows. (line 221) * warp-pointer: GdkDisplay. (line 357) * withdraw: Windows. (line 163) guile-gnome-platform-2.16.2/gtk/doc/gdk/section-keys.xml.texi0000644000175000017500000000751011670374302024400 0ustar00wingowingo00000000000000 @c %start of fragment @node Key Values @chapter Key Values Functions for manipulating keyboard codes @section Overview Key values are the codes which are sent whenever a key is pressed or released. They appear in the field of the @code{} structure, which is passed to signal handlers for the "key-press-event" and "key-release-event" signals. The complete list of key values can be found in the @file{} header file. @file{} is not included in @file{}, it must be included independently, because the file is quite large. Key values can be converted into a string representation using @code{gdk-keyval-name}. The reverse function, converting a string to a key value, is provided by @code{gdk-keyval-from-name}. The case of key values can be determined using @code{gdk-keyval-is-upper} and @code{gdk-keyval-is-lower}. Key values can be converted to upper or lower case using @code{gdk-keyval-to-upper} and @code{gdk-keyval-to-lower}. When it makes sense, key values can be converted to and from Unicode characters with @code{gdk-keyval-to-unicode} and @code{gdk-unicode-to-keyval}. One @code{} object exists for each user display. @code{gdk-keymap-get-default} returns the @code{} for the default display; to obtain keymaps for other displays, use @code{gdk-keymap-get-for-display}. A keymap is a mapping from @code{} to key values. You can think of a @code{} as a representation of a symbol printed on a physical keyboard key. That is, it contains three pieces of information. First, it contains the hardware keycode; this is an identifying number for a physical key. Second, it contains the @dfn{level} of the key. The level indicates which symbol on the key will be used, in a vertical direction. So on a standard US keyboard, the key with the number "1" on it also has the exclamation point ("!") character on it. The level indicates whether to use the "1" or the "!" symbol. The letter keys are considered to have a lowercase letter at level 0, and an uppercase letter at level 1, though only the uppercase letter is printed. Third, the @code{} contains a group; groups are not used on standard US keyboards, but are used in many other countries. On a keyboard with groups, there can be 3 or 4 symbols printed on a single key. The group indicates movement in a horizontal direction. Usually groups are used for two different languages. In group 0, a key might have two English characters, and in group 1 it might have two Hebrew characters. The Hebrew characters will be printed on the key next to the English characters. In order to use a keymap to interpret a key event, it's necessary to first convert the keyboard state into an effective group and level. This is done via a set of rules that varies widely according to type of keyboard and user configuration. The function @code{gdk-keymap-translate-keyboard-state} accepts a keyboard state -- consisting of hardware keycode pressed, active modifiers, and active group -- applies the appropriate rules, and returns the group/level to be used to index the keymap, along with the modifiers which did not affect the group and level. i.e. it returns "unconsumed modifiers." The keyboard group may differ from the effective group used for keymap lookups because some keys don't have multiple groups - e.g. the Enter key is always in group 0 regardless of keyboard state. Note that @code{gdk-keymap-translate-keyboard-state} also returns the keyval, i.e. it goes ahead and performs the keymap lookup in addition to telling you which effective group/level values were used for the lookup. @code{} already contains this keyval, however, so you don't normally need to call @code{gdk-keymap-translate-keyboard-state} just to get the keyval. @section Usage @include defuns-keys.xml.texi @c %end of fragment guile-gnome-platform-2.16.2/gtk/doc/gdk/section-module_interface.xml.texi0000644000175000017500000000427611670374302026740 0ustar00wingowingo00000000000000 @c %start of fragment @node Module Interface @chapter Module Interface Extending gdk-pixbuf @section Overview If gdk-pixbuf has been compiled with GModule support, it can be extended by modules which can load (and perhaps also save) new image and animation formats. Each loadable module must export a @code{} function named @code{fill-info} and a @code{} function named @code{fill-vtable}. In order to make format-checking work before actually loading the modules (which may require dlopening image libraries), modules export their signatures (and other information) via the @code{fill-info} function. An external utility, , uses this to create a text file containing a list of all available loaders and their signatures. This file is then read at runtime by gdk-pixbuf to obtain the list of available loaders and their signatures. Modules may only implement a subset of the functionality available via @code{}. If a particular functionality is not implemented, the @code{fill-vtable} function will simply not set the corresponding function pointers of the @code{} structure. If a module supports incremental loading (i.e. provides @code{}, @code{} and @code{}), it doesn't have to implement @code{}, since gdk-pixbuf can supply a generic @code{} implementation wrapping the incremental loading. Installing a module is a two-step process: copy the module file(s) to the loader directory (normally @file{/gtk-2.0//loaders}, unless overridden by the environment variable @env{GDK_PIXBUF_MODULEDIR}) call to update the module file (normally @file{/gtk-2.0/gdk-pixbuf.loaders}, unless overridden by the environment variable @env{GDK_PIXBUF_MODULE_FILE}) The gdk-pixbuf interfaces needed for implementing modules are contained in @file{gdk-pixbuf-io.h} (and @file{gdk-pixbuf-animation.h} if the module supports animations). They are not covered by the same stability guarantees as the regular gdk-pixbuf API. To underline this fact, they are protected by @samp{#ifdef GDK_PIXBUF_ENABLE_BACKEND}. @section Usage @include defuns-module_interface.xml.texi @c %end of fragment guile-gnome-platform-2.16.2/gtk/doc/gdk/defuns-event_structs.xml.texi0000644000175000017500000000403611670374302026155 0ustar00wingowingo00000000000000 @c %start of fragment @deftp Class Derives from @code{}. This class defines no direct slots. @end deftp @deftp Class Derives from @code{}. This class defines no direct slots. @end deftp @deftp Class Derives from @code{}. This class defines no direct slots. @end deftp @deftp Class Derives from @code{}. This class defines no direct slots. @end deftp @deftp Class Derives from @code{}. This class defines no direct slots. @end deftp @deftp Class Derives from @code{}. This class defines no direct slots. @end deftp @deftp Class Derives from @code{}. This class defines no direct slots. @end deftp @deftp Class Derives from @code{}. This class defines no direct slots. @end deftp @deftp Class Derives from @code{}. This class defines no direct slots. @end deftp @deftp Class Derives from @code{}. This class defines no direct slots. @end deftp @deftp Class Derives from @code{}. This class defines no direct slots. @end deftp @deftp Class Derives from @code{}. This class defines no direct slots. @end deftp @deftp Class Derives from @code{}. This class defines no direct slots. @end deftp @deftp Class Derives from @code{}. This class defines no direct slots. @end deftp @deftp Class Derives from @code{}. This class defines no direct slots. @end deftp @deftp Class Derives from @code{}. This class defines no direct slots. @end deftp @deftp Class Derives from @code{}. This class defines no direct slots. @end deftp @deftp Class Derives from @code{}. This class defines no direct slots. @end deftp @c %end of fragment guile-gnome-platform-2.16.2/gtk/doc/gdk/defuns-properties.xml.texi0000644000175000017500000000252111670374302025436 0ustar00wingowingo00000000000000 @c %start of fragment @deftp Class Opaque pointer. This class defines no direct slots. @end deftp @deffn Function gdk-atom-intern (atom_name@tie{}@code{mchars}) (only_if_exists@tie{}@code{bool}) @result{}@tie{} (ret@tie{}@code{}) Finds or creates an atom corresponding to a given string. @table @var @item atom-name a string. @item only-if-exists if @samp{@code{#t}}, GDK is allowed to not create a new atom, but just return @samp{GDK_NONE} if the requested atom doesn't already exists. Currently, the flag is ignored, since checking the existance of an atom is as expensive as creating it. @item ret the atom corresponding to @var{atom-name}. @end table @end deffn @deffn Function gdk-atom-name (atom@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{mchars}) Determines the string corresponding to an atom. @table @var @item atom a @code{}. @item ret a newly-allocated string containing the string corresponding to @var{atom}. When you are done with the return value, you should free it using @code{g-free}. @end table @end deffn @deffn Function gdk-property-delete (window@tie{}@code{}) (property@tie{}@code{}) Deletes a property from a window. @table @var @item window a @code{}. @item property the property to delete. @end table @end deffn @c %end of fragment guile-gnome-platform-2.16.2/gtk/doc/gdk/section-drawing.xml.texi0000644000175000017500000000215611670374302025061 0ustar00wingowingo00000000000000 @c %start of fragment @node Drawing Primitives @chapter Drawing Primitives Functions for drawing points, lines, arcs, and text @section Overview These functions provide support for drawing points, lines, arcs and text onto what are called 'drawables'. Drawables, as the name suggests, are things which support drawing onto them, and are either @code{} or @code{} objects. Many of the drawing operations take a @code{} argument, which represents a graphics context. This @code{} contains a number of drawing attributes such as foreground color, background color and line width, and is used to reduce the number of arguments needed for each drawing operation. See the Graphics Contexts section for more information. Some of the drawing operations take Pango data structures like @code{}, @code{} or @code{} as arguments. If you're using GTK+, the ususal way to obtain these structures is via @code{gtk-widget-create-pango-context} or @code{gtk-widget-create-pango-layout}. @section Usage @include defuns-drawing.xml.texi @c %end of fragment guile-gnome-platform-2.16.2/gtk/doc/gdk/section-rgb.xml.texi0000644000175000017500000000563211670374302024202 0ustar00wingowingo00000000000000 @c %start of fragment @node GdkRGB @chapter GdkRGB Renders RGB, grayscale, or indexed image data to a GdkDrawable @section Overview GdkRGB is a low-level module which renders RGB, grayscale, and indexed colormap images to a @code{}. It does this as efficiently as possible, handling issues such as colormaps, visuals, dithering, temporary buffers, and so on. Most code should use the higher-level @code{} features in place of this module; for example, @code{gdk-pixbuf-render-to-drawable} uses GdkRGB in its implementation. GdkRGB allocates a color cube to use when rendering images. You can set the threshold for installing colormaps with @code{gdk-rgb-set-min-colors}. The default is 5x5x5 (125). If a colorcube of this size or larger can be allocated in the default colormap, then that's done. Otherwise, GdkRGB creates its own private colormap. Setting it to 0 means that it always tries to use the default colormap, and setting it to 216 means that it always creates a private one if it cannot allocate the 6x6x6 colormap in the default. If you always want a private colormap (to avoid consuming too many colormap entries for other apps, say), you can use @samp{gdk_rgb_set_install(TRUE)}. Setting the value greater than 216 exercises a bug in older versions of GdkRGB. Note, however, that setting it to 0 doesn't let you get away with ignoring the colormap and visual - a colormap is always created in grayscale and direct color modes, and the visual is changed in cases where a "better" visual than the default is available. @example #include #define IMAGE_WIDTH 256 #define IMAGE_HEIGHT 256 guchar rgbbuf[IMAGE_WIDTH * IMAGE_HEIGHT * 3]; gboolean on_darea_expose (GtkWidget *widget, GdkEventExpose *event, gpointer user_data); int main (int argc, char *argv[]) @{ GtkWidget *window, *darea; gint x, y; guchar *pos; gtk_init (&argc, &argv); window = gtk_window_new (GTK_WINDOW_TOPLEVEL); darea = gtk_drawing_area_new (); gtk_widget_set_size_request (darea, IMAGE_WIDTH, IMAGE_HEIGHT); gtk_container_add (GTK_CONTAINER (window), darea); gtk_signal_connect (GTK_OBJECT (darea), "expose-event", GTK_SIGNAL_FUNC (on_darea_expose), NULL); gtk_widget_show_all (window); /* Set up the RGB buffer. */ pos = rgbbuf; for (y = 0; y < IMAGE_HEIGHT; y++) @{ for (x = 0; x < IMAGE_WIDTH; x++) @{ *pos++ = x - x % 32; /* Red. */ *pos++ = (x / 32) * 4 + y - y % 32; /* Green. */ *pos++ = y - y % 32; /* Blue. */ @} @} gtk_main (); return 0; @} gboolean on_darea_expose (GtkWidget *widget, GdkEventExpose *event, gpointer user_data) @{ gdk_draw_rgb_image (widget->window, widget->style->fg_gc[GTK_STATE_NORMAL], 0, 0, IMAGE_WIDTH, IMAGE_HEIGHT, GDK_RGB_DITHER_MAX, rgbbuf, IMAGE_WIDTH * 3); return TRUE; @} @end example @section Usage @include defuns-rgb.xml.texi @c %end of fragment guile-gnome-platform-2.16.2/gtk/doc/gdk/defuns-events.xml.texi0000644000175000017500000001267511670374302024561 0ustar00wingowingo00000000000000 @c %start of fragment @deffn Function gdk-events-pending @result{}@tie{} (ret@tie{}@code{bool}) Checks if any events are ready to be processed for any display. @table @var @item ret @samp{@code{#t}} if any events are pending. @end table @end deffn @deffn Function gdk-event-peek @result{}@tie{} (ret@tie{}@code{}) If there is an event waiting in the event queue of some open display, returns a copy of it. See @code{gdk-display-peek-event}. @table @var @item ret a copy of the first @code{} on some event queue, or @samp{@code{#f}} if no events are in any queues. The returned @code{} should be freed with @code{gdk-event-free}. @end table @end deffn @deffn Function gdk-event-get @result{}@tie{} (ret@tie{}@code{}) Checks all open displays for a @code{} to process,to be processed on, fetching events from the windowing system if necessary. See @code{gdk-display-get-event}. @table @var @item ret the next @code{} to be processed, or @samp{@code{#f}} if no events are pending. The returned @code{} should be freed with @code{gdk-event-free}. @end table @end deffn @deffn Function gdk-event-get-graphics-expose (window@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{}) Waits for a GraphicsExpose or NoExpose event from the X server. This is used in the @code{} and @code{} widgets in GTK+ to make sure any GraphicsExpose events are handled before the widget is scrolled. @table @var @item window the @code{} to wait for the events for. @item ret a @code{} if a GraphicsExpose was received, or @samp{@code{#f}} if a NoExpose event was received. @end table @end deffn @deffn Function gdk-event-put (self@tie{}@code{}) Appends a copy of the given event onto the front of the event queue for event->any.window's display, or the default event queue if event->any.window is @samp{@code{#f}}. See @code{gdk-display-put-event}. @table @var @item event a @code{}. @end table @end deffn @deffn Function gdk-event-copy (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{}) Copies a @code{}, copying or incrementing the reference count of the resources associated with it (e.g. @code{}'s and strings). @table @var @item event a @code{} @item ret a copy of @var{event}. The returned @code{} should be freed with @code{gdk-event-free}. @end table @end deffn @deffn Function gdk-event-get-time (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{unsigned-int32}) Returns the time stamp from @var{event}, if there is one; otherwise returns @code{}. If @var{event} is @samp{@code{#f}}, returns @code{}. @table @var @item event a @code{} @item ret time stamp field from @var{event} @end table @end deffn @deffn Function gdk-event-get-axis (self@tie{}@code{}) (axis_use@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{bool}) (value@tie{}@code{double}) Extract the axis value for a particular axis use from an event structure. @table @var @item event a @code{} @item axis-use the axis use to look for @item value location to store the value found @item ret @samp{@code{#t}} if the specified axis was found, otherwise @samp{@code{#f}} @end table @end deffn @deffn Function gdk-event-get-coords (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{bool}) (x_win@tie{}@code{double}) (y_win@tie{}@code{double}) Extract the event window relative x/y coordinates from an event. @table @var @item event a @code{} @item x-win location to put event window x coordinate @item y-win location to put event window y coordinate @item ret @samp{@code{#t}} if the event delivered event window coordinates @end table @end deffn @deffn Function gdk-event-get-root-coords (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{bool}) (x_root@tie{}@code{double}) (y_root@tie{}@code{double}) Extract the root window relative x/y coordinates from an event. @table @var @item event a @code{} @item x-root location to put root window x coordinate @item y-root location to put root window y coordinate @item ret @samp{@code{#t}} if the event delivered root window coordinates @end table @end deffn @deffn Function gdk-get-show-events @result{}@tie{} (ret@tie{}@code{bool}) Gets whether event debugging output is enabled. @table @var @item ret @samp{@code{#t}} if event debugging output is enabled. @end table @end deffn @deffn Function gdk-set-show-events (show_events@tie{}@code{bool}) Sets whether a trace of received events is output. Note that GTK+ must be compiled with debugging (that is, configured using the @c (option "--enable-debug") option) to use this option. @table @var @item show-events @samp{@code{#t}} to output event debugging information. @end table @end deffn @deffn Function gdk-event-get-screen (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{}) Returns the screen for the event. The screen is typically the screen for @samp{event->any.window}, but for events such as mouse events, it is the screen where the pointer was when the event occurs - that is, the screen which has the root window to which @samp{event->motion.x_root} and @samp{event->motion.y_root} are relative. @table @var @item event a @code{} @item ret the screen for the event @end table Since 2.2 @end deffn @c %end of fragment guile-gnome-platform-2.16.2/gtk/doc/gdk/defuns-animation.xml.texi0000644000175000017500000000543611670374302025231 0ustar00wingowingo00000000000000 @c %start of fragment @deftp Class Derives from @code{}. This class defines no direct slots. @end deftp @deftp Class Derives from @code{}. This class defines no direct slots. @end deftp @deftp Class Derives from @code{}. This class defines no direct slots. @end deftp @deffn Function gdk-pixbuf-animation-new-from-file (filename@tie{}@code{mchars}) @result{}@tie{} (ret@tie{}@code{}) Creates a new animation by loading it from a file. The file format is detected automatically. If the file's format does not support multi-frame images, then an animation with a single frame will be created. Possible errors are in the @code{} and @code{} domains. @table @var @item filename Name of file to load, in the GLib file name encoding @item error return location for error @item ret A newly-created animation with a reference count of 1, or @samp{@code{#f}} if any of several error conditions ocurred: the file could not be opened, there was no loader for the file's format, there was not enough memory to allocate the image buffer, or the image file contained invalid data. @end table @end deffn @deffn Function gdk-pixbuf-animation-get-width (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{int}) @deffnx Method get-width Queries the width of the bounding box of a pixbuf animation. @table @var @item animation An animation. @item ret Width of the bounding box of the animation. @end table @end deffn @deffn Function gdk-pixbuf-animation-get-height (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{int}) @deffnx Method get-height Queries the height of the bounding box of a pixbuf animation. @table @var @item animation An animation. @item ret Height of the bounding box of the animation. @end table @end deffn @deffn Function gdk-pixbuf-simple-anim-new (width@tie{}@code{int}) (height@tie{}@code{int}) (rate@tie{}@code{float}) @result{}@tie{} (ret@tie{}@code{}) Creates a new, empty animation. @table @var @item width the width of the animation @item height the height of the animation @item rate the speed of the animation, in frames per second @item ret a newly allocated @code{} @end table Since 2.8 @end deffn @deffn Function gdk-pixbuf-simple-anim-add-frame (self@tie{}@code{}) (pixbuf@tie{}@code{}) @deffnx Method add-frame Adds a new frame to @var{animation}. The @var{pixbuf} must have the dimensions specified when the animation was constructed. @table @var @item animation a @code{} @item pixbuf the pixbuf to add @end table Since 2.8 @end deffn @c %end of fragment guile-gnome-platform-2.16.2/gtk/doc/gdk/section-fonts.xml.texi0000644000175000017500000001141011670374302024550 0ustar00wingowingo00000000000000 @c %start of fragment @node Fonts @chapter Fonts Loading and manipulating fonts @section Overview The @code{} data type represents a font for drawing on the screen. These functions provide support for loading fonts, and also for determining the dimensions of characters and strings when drawn with a particular font. Fonts in X are specified by a @dfn{X Logical Font Description}. The following description is considerably simplified. For definitive information about XLFD's see the X reference documentation. A X Logical Font Description (XLFD) consists of a sequence of fields separated (and surrounded by) '-' characters. For example, Adobe Helvetica Bold 12 pt, has the full description: @example "-adobe-helvetica-bold-r-normal--12-120-75-75-p-70-iso8859-1" @end example The fields in the XLFD are: When specifying a font via a X logical Font Description, '*' can be used as a wildcard to match any portion of the XLFD. For instance, the above example could also be specified as It is generally a good idea to use wildcards for any portion of the XLFD that your program does not care about specifically, since that will improve the chances of finding a matching font. @example "-*-helvetica-bold-r-normal--*-120-*-*-*-*-iso8859-1" @end example A @dfn{fontset} is a list of fonts that is used for drawing international text that may contain characters from a number of different character sets. It is represented by a list of XLFD's. The font for a given character set is determined by going through the list of XLFD's in order. For each one, if the registry and and encoding fields match the desired character set, then that font is used, otherwise if the XLFD contains wild-cards for the registry and encoding fields, the registry and encoding for the desired character set are substituted in and a lookup is done. If a match is found that font is used. Otherwise, processing continues on to the next font in the list. The functions for determining the metrics of a string come in several varieties that can take a number of forms of string input: @table @var @item 16-bit string @c %start of fragment @c %end of fragment @item Multibyte string @c %start of fragment @c %end of fragment @item Wide character string @c %start of fragment @c %end of fragment @end table When using functions like @code{gdk-string-width} that take a @code{}, if the font is of type @samp{GDK_FONT_FONT} and is an 8-bit font, then each @code{} indexes the glyphs in the font directly. For functions taking a @code{}, if the font is of type @samp{GDK_FONT_FONT}, and is a 16-bit font, then the @code{} argument is interpreted as a @code{} cast to a @code{} and each @code{} indexes the glyphs in the font directly. For functions taking a @code{}, if the font is of type @samp{GDK_FONT_FONTSET}, then the input string is interpreted as a @dfn{multibyte} encoded according to the current locale. (A multibyte string is one in which each character may consist of one or more bytes, with different lengths for different characters in the string). They can be converted to and from wide character strings (see below) using @code{gdk-wcstombs} and @code{gdk-mbstowcs}.) The string will be rendered using one or more different fonts from the fontset. For a number of the text-measuring functions, GDK provides a variant (such as @code{gdk-text-width-wc}) which takes a @code{} instead of a @code{}. The input is then taken to be a wide character string in the encoding of the current locale. (A wide character string is a string in which each character consists of several bytes, and the width of each character in the string is constant.) GDK provides functions to determine a number of different measurements (metrics) for a given string. (Need diagram here). @table @var @item descent @c %start of fragment @c %end of fragment @item left bearing @c %start of fragment @c %end of fragment @item right bearing @c %start of fragment @c %end of fragment @item width bearing @c %start of fragment @c %end of fragment @end table The vertical distance from the origin of the drawing opereration to the top of the drawn character. The vertical distance from the origin of the drawing opereration to the bottom of the drawn character. The horizontal distance from the origin of the drawing operation to the left-most part of the drawn character. The horizontal distance from the origin of the drawing operation to the right-most part of the drawn character. The horizontal distance from the origin of the drawing operation to the correct origin for drawing another string to follow the current one. Depending on the font, this could be greater than or less than the right bearing. @section Usage @include defuns-fonts.xml.texi @c %end of fragment guile-gnome-platform-2.16.2/gtk/doc/gdk/defuns-dnd.xml.texi0000644000175000017500000001022011670374302024002 0ustar00wingowingo00000000000000 @c %start of fragment @deftp Class Derives from @code{}. This class defines no direct slots. @end deftp @deffn Function gdk-drag-get-selection (context@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{}) Returns the selection atom for the current source window. @table @var @item context a @code{}. @item ret the selection atom. @end table @end deffn @deffn Function gdk-drag-abort (context@tie{}@code{}) (time_@tie{}@code{unsigned-int32}) Aborts a drag without dropping. This function is called by the drag source. @table @var @item context a @code{}. @item time the timestamp for this operation. @end table @end deffn @deffn Function gdk-drop-reply (context@tie{}@code{}) (ok@tie{}@code{bool}) (time_@tie{}@code{unsigned-int32}) Accepts or rejects a drop. This function is called by the drag destination in response to a drop initiated by the drag source. @table @var @item context a @code{}. @item ok @samp{@code{#t}} if the drop is accepted. @item time the timestamp for this operation. @end table @end deffn @deffn Function gdk-drag-context-new @result{}@tie{} (ret@tie{}@code{}) Creates a new @code{}. @table @var @item ret the newly created @code{}. @end table @end deffn @deffn Function gdk-drag-drop (context@tie{}@code{}) (time_@tie{}@code{unsigned-int32}) Drops on the current destination. This function is called by the drag source. @table @var @item context a @code{}. @item time the timestamp for this operation. @end table @end deffn @deffn Function gdk-drag-motion (context@tie{}@code{}) (dest_window@tie{}@code{}) (protocol@tie{}@code{}) (x_root@tie{}@code{int}) (y_root@tie{}@code{int}) (suggested_action@tie{}@code{}) (possible_actions@tie{}@code{}) (time_@tie{}@code{unsigned-int32}) @result{}@tie{} (ret@tie{}@code{bool}) Updates the drag context when the pointer moves or the set of actions changes. This function is called by the drag source. @table @var @item context a @code{}. @item dest-window the new destination window, obtained by @code{gdk-drag-find-window}. @item protocol the DND protocol in use, obtained by @code{gdk-drag-find-window}. @item x-root the x position of the pointer in root coordinates. @item y-root the y position of the pointer in root coordinates. @item suggested-action the suggested action. @item possible-actions the possible actions. @item time the timestamp for this operation. @item ret FIXME @end table @end deffn @deffn Function gdk-drop-finish (context@tie{}@code{}) (success@tie{}@code{bool}) (time_@tie{}@code{unsigned-int32}) Ends the drag operation after a drop. This function is called by the drag destination. @table @var @item context a @code{}. @item success @samp{@code{#t}} if the data was successfully received. @item time the timestamp for this operation. @end table @end deffn @deffn Function gdk-drag-status (context@tie{}@code{}) (action@tie{}@code{}) (time_@tie{}@code{unsigned-int32}) Selects one of the actions offered by the drag source. This function is called by the drag destination in response to @code{gdk-drag-motion} called by the drag source. @table @var @item context a @code{}. @item action the selected action which will be taken when a drop happens, or 0 to indicate that a drop will not be accepted. @item time the timestamp for this operation. @end table @end deffn @deffn Function gdk-drag-drop-succeeded (context@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{bool}) Returns wether the dropped data has been successfully transferred. This function is intended to be used while handling a @samp{GDK_DROP_FINISHED} event, its return value is meaningless at other times. @table @var @item context a @code{} @item ret @samp{@code{#t}} if the drop was successful. @end table Since 2.6 @end deffn @c %end of fragment guile-gnome-platform-2.16.2/gtk/doc/gdk/section-gdk-pixbuf-loader.xml.texi0000644000175000017500000000462311670374302026733 0ustar00wingowingo00000000000000 @c %start of fragment @node GdkPixbufLoader @chapter GdkPixbufLoader Application-driven progressive image loading. @section Overview @code{} provides a way for applications to drive the process of loading an image, by letting them send the image data directly to the loader instead of having the loader read the data from a file. Applications can use this functionality instead of @code{gdk-pixbuf-new-from-file} or @code{gdk-pixbuf-animation-new-from-file} when they need to parse image data in small chunks. For example, it should be used when reading an image from a (potentially) slow network connection, or when loading an extremely large file. To use @code{} to load an image, just create a new one, and call @code{gdk-pixbuf-loader-write} to send the data to it. When done, @code{gdk-pixbuf-loader-close} should be called to end the stream and finalize everything. The loader will emit three important signals throughout the process. The first, "size_prepared", will be called as soon as the image has enough information to determine the size of the image to be used. If you want to scale the image while loading it, you can call @code{gdk-pixbuf-loader-set-size} in response to this signal. The second signal, "area_prepared", will be called as soon as the pixbuf of the desired has been allocated. You can obtain it by calling @code{gdk-pixbuf-loader-get-pixbuf}. If you want to use it, simply ref it. In addition, no actual information will be passed in yet, so the pixbuf can be safely filled with any temporary graphics (or an initial color) as needed. You can also call @code{gdk-pixbuf-loader-get-pixbuf} later and get the same pixbuf. The last signal, "area_updated" gets called every time a region is updated. This way you can update a partially completed image. Note that you do not know anything about the completeness of an image from the area updated. For example, in an interlaced image, you need to make several passes before the image is done loading. @section Loading an animation Loading an animation is almost as easy as loading an image. Once the first "area_prepared" signal has been emitted, you can call @code{gdk-pixbuf-loader-get-animation} to get the @code{} struct and @code{gdk-pixbuf-animation-get-iter} to get an @code{} for displaying it. @section Usage @include defuns-gdk-pixbuf-loader.xml.texi @c %end of fragment guile-gnome-platform-2.16.2/gtk/doc/gdk/section-animation.xml.texi0000644000175000017500000000126011670374302025400 0ustar00wingowingo00000000000000 @c %start of fragment @node Animations @chapter Animations Animated images. @section Overview The gdk-pixbuf library provides a simple mechanism to load and represent animations. An animation is conceptually a series of frames to be displayed over time. Each frame is the same size. The animation may not be represented as a series of frames internally; for example, it may be stored as a sprite and instructions for moving the sprite around a background. To display an animation you don't need to understand its representation, however; you just ask gdk-pixbuf what should be displayed at a given point in time. @section Usage @include defuns-animation.xml.texi @c %end of fragment guile-gnome-platform-2.16.2/gtk/doc/gdk/section-colors.xml.texi0000644000175000017500000000245511670374302024731 0ustar00wingowingo00000000000000 @c %start of fragment @node Colormaps and Colors @chapter Colormaps and Colors Manipulation of colors and colormaps @section Overview These functions are used to modify colormaps. A colormap is an object that contains the mapping between the color values stored in memory and the RGB values that are used to display color values. In general, colormaps only contain significant information for pseudo-color visuals, but even for other visual types, a colormap object is required in some circumstances. There are a couple of special colormaps that can be retrieved. The system colormap (retrieved with @code{gdk-colormap-get-system}) is the default colormap of the system. If you are using GdkRGB, there is another colormap that is important - the colormap in which GdkRGB works, retrieved with @code{gdk-rgb-get-cmap}. However, when using GdkRGB, it is not generally necessary to allocate colors directly. In previous revisions of this interface, a number of functions that take a @code{} parameter were replaced with functions whose names began with "gdk_colormap_". This process will probably be extended somewhat in the future - @code{gdk-color-white}, @code{gdk-color-black}, and @code{gdk-color-change} will probably become aliases. @section Usage @include defuns-colors.xml.texi @c %end of fragment guile-gnome-platform-2.16.2/gtk/doc/gdk/section-selections.xml.texi0000644000175000017500000000301211670374302025566 0ustar00wingowingo00000000000000 @c %start of fragment @node Selections @chapter Selections Functions for transfering data via the X selection mechanism @section Overview The X selection mechanism provides a way to transfer arbitrary chunks of data between programs. A @dfn{selection} is a essentially a named clipboard, identified by a string interned as a @code{}. By claiming ownership of a selection, an application indicates that it will be responsible for supplying its contents. The most common selections are @samp{PRIMARY} and @samp{CLIPBOARD}. The contents of a selection can be represented in a number of formats, called @dfn{targets}. Each target is identified by an atom. A list of all possible targets supported by the selection owner can be retrieved by requesting the special target @samp{TARGETS}. When a selection is retrieved, the data is accompanied by a type (an atom), and a format (an integer, representing the number of bits per item). See Properties and Atoms for more information. The functions in this section only contain the lowlevel parts of the selection protocol. A considerably more complicated implementation is needed on top of this. GTK+ contains such an implementation in the functions in @samp{gtkselection.h} and programmers should use those functions instead of the ones presented here. If you plan to implement selection handling directly on top of the functions here, you should refer to the X Inter-client Communication Conventions Manual (ICCCM). @section Usage @include defuns-selections.xml.texi @c %end of fragment guile-gnome-platform-2.16.2/gtk/doc/gdk/defuns-scaling.xml.texi0000644000175000017500000002117511670374302024670 0ustar00wingowingo00000000000000 @c %start of fragment @deffn Function gdk-pixbuf-scale-simple (self@tie{}@code{}) (dest_width@tie{}@code{int}) (dest_height@tie{}@code{int}) (interp_type@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{}) @deffnx Method scale-simple Create a new @code{} containing a copy of @var{src} scaled to @var{dest-width} x @var{dest-height}. Leaves @var{src} unaffected. @var{interp-type} should be @code{} if you want maximum speed (but when scaling down @code{} is usually unusably ugly). The default @var{interp-type} should be @code{} which offers reasonable quality and speed. You can scale a sub-portion of @var{src} by creating a sub-pixbuf pointing into @var{src}; see @code{gdk-pixbuf-new-subpixbuf}. For more complicated scaling/compositing see @code{gdk-pixbuf-scale} and @code{gdk-pixbuf-composite}. @table @var @item src a @code{} @item dest-width the width of destination image @item dest-height the height of destination image @item interp-type the interpolation type for the transformation. @item ret the new @code{}, or @samp{@code{#f}} if not enough memory could be allocated for it. @end table @end deffn @deffn Function gdk-pixbuf-scale (self@tie{}@code{}) (dest@tie{}@code{}) (dest_x@tie{}@code{int}) (dest_y@tie{}@code{int}) (dest_width@tie{}@code{int}) (dest_height@tie{}@code{int}) (offset_x@tie{}@code{double}) (offset_y@tie{}@code{double}) (scale_x@tie{}@code{double}) (scale_y@tie{}@code{double}) (interp_type@tie{}@code{}) @deffnx Method scale Creates a transformation of the source image @var{src} by scaling by @var{scale-x} and @var{scale-y} then translating by @var{offset-x} and @var{offset-y}, then renders the rectangle (@var{dest-x}, @var{dest-y}, @var{dest-width}, @var{dest-height}) of the resulting image onto the destination image replacing the previous contents. Try to use @code{gdk-pixbuf-scale-simple} first, this function is the industrial-strength power tool you can fall back to if @code{gdk-pixbuf-scale-simple} isn't powerful enough. @table @var @item src a @code{} @item dest the @code{} into which to render the results @item dest-x the left coordinate for region to render @item dest-y the top coordinate for region to render @item dest-width the width of the region to render @item dest-height the height of the region to render @item offset-x the offset in the X direction (currently rounded to an integer) @item offset-y the offset in the Y direction (currently rounded to an integer) @item scale-x the scale factor in the X direction @item scale-y the scale factor in the Y direction @item interp-type the interpolation type for the transformation. @end table @end deffn @deffn Function gdk-pixbuf-composite-color-simple (self@tie{}@code{}) (dest_width@tie{}@code{int}) (dest_height@tie{}@code{int}) (interp_type@tie{}@code{}) (overall_alpha@tie{}@code{int}) (check_size@tie{}@code{int}) (color1@tie{}@code{unsigned-int32}) (color2@tie{}@code{unsigned-int32}) @result{}@tie{} (ret@tie{}@code{}) @deffnx Method composite-color-simple Creates a new @code{} by scaling @var{src} to @var{dest-width} x @var{dest-height} and compositing the result with a checkboard of colors @var{color1} and @var{color2}. @table @var @item src a @code{} @item dest-width the width of destination image @item dest-height the height of destination image @item interp-type the interpolation type for the transformation. @item overall-alpha overall alpha for source image (0..255) @item check-size the size of checks in the checkboard (must be a power of two) @item color1 the color of check at upper left @item color2 the color of the other check @item ret the new @code{}, or @samp{@code{#f}} if not enough memory could be allocated for it. @end table @end deffn @deffn Function gdk-pixbuf-composite (self@tie{}@code{}) (dest@tie{}@code{}) (dest_x@tie{}@code{int}) (dest_y@tie{}@code{int}) (dest_width@tie{}@code{int}) (dest_height@tie{}@code{int}) (offset_x@tie{}@code{double}) (offset_y@tie{}@code{double}) (scale_x@tie{}@code{double}) (scale_y@tie{}@code{double}) (interp_type@tie{}@code{}) (overall_alpha@tie{}@code{int}) @deffnx Method composite Creates a transformation of the source image @var{src} by scaling by @var{scale-x} and @var{scale-y} then translating by @var{offset-x} and @var{offset-y}. This gives an image in the coordinates of the destination pixbuf. The rectangle (@var{dest-x}, @var{dest-y}, @var{dest-width}, @var{dest-height}) is then composited onto the corresponding rectangle of the original destination image. When the destination rectangle contains parts not in the source image, the data at the edges of the source image is replicated to infinity. (The missing figure, pixbuf-composite-diagram @c (title "Compositing of pixbufs") @table @var @item src a @code{} @item dest the @code{} into which to render the results @item dest-x the left coordinate for region to render @item dest-y the top coordinate for region to render @item dest-width the width of the region to render @item dest-height the height of the region to render @item offset-x the offset in the X direction (currently rounded to an integer) @item offset-y the offset in the Y direction (currently rounded to an integer) @item scale-x the scale factor in the X direction @item scale-y the scale factor in the Y direction @item interp-type the interpolation type for the transformation. @item overall-alpha overall alpha for source image (0..255) @end table @end deffn @deffn Function gdk-pixbuf-composite-color (self@tie{}@code{}) (dest@tie{}@code{}) (dest_x@tie{}@code{int}) (dest_y@tie{}@code{int}) (dest_width@tie{}@code{int}) (dest_height@tie{}@code{int}) (offset_x@tie{}@code{double}) (offset_y@tie{}@code{double}) (scale_x@tie{}@code{double}) (scale_y@tie{}@code{double}) (interp_type@tie{}@code{}) (overall_alpha@tie{}@code{int}) (check_x@tie{}@code{int}) (check_y@tie{}@code{int}) (check_size@tie{}@code{int}) (color1@tie{}@code{unsigned-int32}) (color2@tie{}@code{unsigned-int32}) @deffnx Method composite-color Creates a transformation of the source image @var{src} by scaling by @var{scale-x} and @var{scale-y} then translating by @var{offset-x} and @var{offset-y}, then composites the rectangle (@var{dest-x} ,@var{dest-y}, @var{dest-width}, @var{dest-height}) of the resulting image with a checkboard of the colors @var{color1} and @var{color2} and renders it onto the destination image. See @code{gdk-pixbuf-composite-color-simple} for a simpler variant of this function suitable for many tasks. @table @var @item src a @code{} @item dest the @code{} into which to render the results @item dest-x the left coordinate for region to render @item dest-y the top coordinate for region to render @item dest-width the width of the region to render @item dest-height the height of the region to render @item offset-x the offset in the X direction (currently rounded to an integer) @item offset-y the offset in the Y direction (currently rounded to an integer) @item scale-x the scale factor in the X direction @item scale-y the scale factor in the Y direction @item interp-type the interpolation type for the transformation. @item overall-alpha overall alpha for source image (0..255) @item check-x the X offset for the checkboard (origin of checkboard is at -@var{check-x}, -@var{check-y}) @item check-y the Y offset for the checkboard @item check-size the size of checks in the checkboard (must be a power of two) @item color1 the color of check at upper left @item color2 the color of the other check @end table @end deffn @deffn Function gdk-pixbuf-rotate-simple (self@tie{}@code{}) (angle@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{}) @deffnx Method rotate-simple Rotates a pixbuf by a multiple of 90 degrees, and returns the result in a new pixbuf. @table @var @item src a @code{} @item angle the angle to rotate by @item ret a new pixbuf @end table Since 2.6 @end deffn @deffn Function gdk-pixbuf-flip (self@tie{}@code{}) (horizontal@tie{}@code{bool}) @result{}@tie{} (ret@tie{}@code{}) @deffnx Method flip Flips a pixbuf horizontally or vertically and returns the result in a new pixbuf. @table @var @item src a @code{} @item horizontal @samp{@code{#t}} to flip horizontally, @samp{@code{#f}} to flip vertically @item ret a new pixbuf. @end table Since 2.6 @end deffn @c %end of fragment guile-gnome-platform-2.16.2/gtk/doc/gdk/defuns-creating.xml.texi0000644000175000017500000000334311670374302025041 0ustar00wingowingo00000000000000 @c %start of fragment @deffn Function gdk-pixbuf-new (colorspace@tie{}@code{}) (has_alpha@tie{}@code{bool}) (bits_per_sample@tie{}@code{int}) (width@tie{}@code{int}) (height@tie{}@code{int}) @result{}@tie{} (ret@tie{}@code{}) Creates a new @code{} structure and allocates a buffer for it. The buffer has an optimal rowstride. Note that the buffer is not cleared; you will have to fill it completely yourself. @table @var @item colorspace Color space for image @item has-alpha Whether the image should have transparency information @item bits-per-sample Number of bits per color sample @item width Width of image in pixels, must be > 0 @item height Height of image in pixels, must be > 0 @item ret A newly-created @code{} with a reference count of 1, or @samp{@code{#f}} if not enough memory could be allocated for the image buffer. @end table @end deffn @deffn Function gdk-pixbuf-new-subpixbuf (self@tie{}@code{}) (src_x@tie{}@code{int}) (src_y@tie{}@code{int}) (width@tie{}@code{int}) (height@tie{}@code{int}) @result{}@tie{} (ret@tie{}@code{}) @deffnx Method new-subpixbuf Creates a new pixbuf which represents a sub-region of @var{src-pixbuf}. The new pixbuf shares its pixels with the original pixbuf, so writing to one affects both. The new pixbuf holds a reference to @var{src-pixbuf}, so @var{src-pixbuf} will not be finalized until the new pixbuf is finalized. @table @var @item src-pixbuf a @code{} @item src-x X coord in @var{src-pixbuf} @item src-y Y coord in @var{src-pixbuf} @item width width of region in @var{src-pixbuf} @item height height of region in @var{src-pixbuf} @item ret a new pixbuf @end table @end deffn @c %end of fragment guile-gnome-platform-2.16.2/gtk/doc/gdk/defuns-file-loading.xml.texi0000644000175000017500000000712111670374302025575 0ustar00wingowingo00000000000000 @c %start of fragment @deffn Function gdk-pixbuf-new-from-file (filename@tie{}@code{mchars}) @result{}@tie{} (ret@tie{}@code{}) Creates a new pixbuf by loading an image from a file. The file format is detected automatically. If @samp{@code{#f}} is returned, then @var{error} will be set. Possible errors are in the @code{} and @code{} domains. @table @var @item filename Name of file to load, in the GLib file name encoding @item error Return location for an error @item ret A newly-created pixbuf with a reference count of 1, or @samp{@code{#f}} if any of several error conditions occurred: the file could not be opened, there was no loader for the file's format, there was not enough memory to allocate the image buffer, or the image file contained invalid data. @end table @end deffn @deffn Function gdk-pixbuf-new-from-file-at-size (filename@tie{}@code{mchars}) (width@tie{}@code{int}) (height@tie{}@code{int}) @result{}@tie{} (ret@tie{}@code{}) Creates a new pixbuf by loading an image from a file. The file format is detected automatically. If @samp{@code{#f}} is returned, then @var{error} will be set. Possible errors are in the @code{} and @code{} domains. The image will be scaled to fit in the requested size, preserving the image's aspect ratio. @table @var @item filename Name of file to load, in the GLib file name encoding @item width The width the image should have or -1 to not constrain the width @item height The height the image should have or -1 to not constrain the height @item error Return location for an error @item ret A newly-created pixbuf with a reference count of 1, or @samp{@code{#f}} if any of several error conditions occurred: the file could not be opened, there was no loader for the file's format, there was not enough memory to allocate the image buffer, or the image file contained invalid data. @end table Since 2.4 @end deffn @deffn Function gdk-pixbuf-new-from-file-at-scale (filename@tie{}@code{mchars}) (width@tie{}@code{int}) (height@tie{}@code{int}) (preserve_aspect_ratio@tie{}@code{bool}) @result{}@tie{} (ret@tie{}@code{}) Creates a new pixbuf by loading an image from a file. The file format is detected automatically. If @samp{@code{#f}} is returned, then @var{error} will be set. Possible errors are in the @code{} and @code{} domains. The image will be scaled to fit in the requested size, optionally preserving the image's aspect ratio. When preserving the aspect ratio, a @var{width} of -1 will cause the image to be scaled to the exact given height, and a @var{height} of -1 will cause the image to be scaled to the exact given width. When not preserving aspect ratio, a @var{width} or @var{height} of -1 means to not scale the image at all in that dimension. Negative values for @var{width} and @var{height} are allowed since 2.8. @table @var @item filename Name of file to load, in the GLib file name encoding @item width The width the image should have or -1 to not constrain the width @item height The height the image should have or -1 to not constrain the height @item preserve-aspect-ratio @samp{@code{#t}} to preserve the image's aspect ratio @item error Return location for an error @item ret A newly-created pixbuf with a reference count of 1, or @samp{@code{#f}} if any of several error conditions occurred: the file could not be opened, there was no loader for the file's format, there was not enough memory to allocate the image buffer, or the image file contained invalid data. @end table Since 2.6 @end deffn @c %end of fragment guile-gnome-platform-2.16.2/gtk/doc/gdk/defuns-rgb.xml.texi0000644000175000017500000001132111670374302024012 0ustar00wingowingo00000000000000 @c %start of fragment @deffn Function gdk-rgb-init @samp{gdk_rgb_init} is deprecated and should not be used in newly-written code. This function no longer does anything at all. It's completely useless (and harmless). @end deffn @deffn Function gdk-rgb-gc-set-foreground (gc@tie{}@code{}) (rgb@tie{}@code{unsigned-int32}) @samp{gdk_rgb_gc_set_foreground} is deprecated and should not be used in newly-written code. Sets the foreground color in @var{gc} to the specified color (or the closest approximation, in the case of limited visuals). @table @var @item gc The @code{} to modify. @item rgb The color, represented as a 0xRRGGBB integer value. @end table @end deffn @deffn Function gdk-rgb-gc-set-background (gc@tie{}@code{}) (rgb@tie{}@code{unsigned-int32}) @samp{gdk_rgb_gc_set_background} is deprecated and should not be used in newly-written code. Sets the background color in @var{gc} to the specified color (or the closest approximation, in the case of limited visuals). @table @var @item gc The @code{} to modify. @item rgb The color, represented as a 0xRRGGBB integer value. @end table @end deffn @deffn Function gdk-rgb-xpixel-from-rgb (rgb@tie{}@code{unsigned-int32}) @result{}@tie{} (ret@tie{}@code{unsigned-long}) @samp{gdk_rgb_xpixel_from_rgb} is deprecated and should not be used in newly-written code. Finds the X pixel closest in color to the @var{rgb} color specified. This value may be used to set the @c (structfield "pixel") field of a @code{} struct. @table @var @item rgb The color, represented as a 0xRRGGBB integer value. @item ret The X pixel value. @end table @end deffn @deffn Function gdk-rgb-set-install (install@tie{}@code{bool}) If @var{install} is @samp{@code{#t}}, directs GdkRGB to always install a new "private" colormap rather than trying to find a best fit with the colors already allocated. Ordinarily, GdkRGB will install a colormap only if a sufficient cube cannot be allocated. A private colormap has more colors, leading to better quality display, but also leads to the dreaded "colormap flashing" effect. @table @var @item install @samp{@code{#t}} to set install mode. @end table @end deffn @deffn Function gdk-rgb-set-min-colors (min_colors@tie{}@code{int}) Sets the minimum number of colors for the color cube. Generally, GdkRGB tries to allocate the largest color cube it can. If it can't allocate a color cube at least as large as @var{min-colors}, it installs a private colormap. @table @var @item min-colors The minimum number of colors accepted. @end table @end deffn @deffn Function gdk-rgb-get-visual @result{}@tie{} (ret@tie{}@code{}) Gets a "preferred visual" chosen by GdkRGB for rendering image data on the default screen. In previous versions of GDK, this was the only visual GdkRGB could use for rendering. In current versions, it's simply the visual GdkRGB would have chosen as the optimal one in those previous versions. GdkRGB can now render to drawables with any visual. @table @var @item ret The @code{} chosen by GdkRGB. @end table @end deffn @deffn Function gdk-rgb-get-colormap @result{}@tie{} (ret@tie{}@code{}) Get the preferred colormap for rendering image data. Not a very useful function; historically, GDK could only render RGB image data to one colormap and visual, but in the current version it can render to any colormap and visual. So there's no need to call this function. @table @var @item ret the preferred colormap @end table @end deffn @deffn Function gdk-rgb-ditherable @result{}@tie{} (ret@tie{}@code{bool}) Determines whether the preferred visual is ditherable. This function may be useful for presenting a user interface choice to the user about which dither mode is desired; if the display is not ditherable, it may make sense to gray out or hide the corresponding UI widget. @table @var @item ret @samp{@code{#t}} if the preferred visual is ditherable. @end table @end deffn @deffn Function gdk-rgb-colormap-ditherable (cmap@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{bool}) Determines whether the visual associated with @var{cmap} is ditherable. This function may be useful for presenting a user interface choice to the user about which dither mode is desired; if the display is not ditherable, it may make sense to gray out or hide the corresponding UI widget. @table @var @item cmap a @code{} @item ret @samp{@code{#t}} if the visual associated with @var{cmap} is ditherable. @end table @end deffn @deffn Function gdk-rgb-set-verbose (verbose@tie{}@code{bool}) Sets the "verbose" flag. This is generally only useful for debugging. @table @var @item verbose @samp{@code{#t}} if verbose messages are desired. @end table @end deffn @c %end of fragment guile-gnome-platform-2.16.2/gtk/doc/gdk/section-x_interaction.xml.texi0000644000175000017500000000033211670374302026266 0ustar00wingowingo00000000000000 @c %start of fragment @node X Window System Interaction @chapter X Window System Interaction X backend-specific functions @section Overview @section Usage @include defuns-x_interaction.xml.texi @c %end of fragment guile-gnome-platform-2.16.2/gtk/doc/gdk/defuns-fonts.xml.texi0000644000175000017500000002107311670374302024376 0ustar00wingowingo00000000000000 @c %start of fragment @deftp Class Derives from @code{}. This class defines no direct slots. @end deftp @deffn Function gdk-font-load (font_name@tie{}@code{mchars}) @result{}@tie{} (ret@tie{}@code{}) @samp{gdk_font_load} is deprecated and should not be used in newly-written code. Loads a font. The font may be newly loaded or looked up the font in a cache. You should make no assumptions about the initial reference count. @table @var @item font-name a XLFD describing the font to load. @item ret a @code{}, or @samp{@code{#f}} if the font could not be loaded. @end table @end deffn @deffn Function gdk-fontset-load (fontset_name@tie{}@code{mchars}) @result{}@tie{} (ret@tie{}@code{}) @samp{gdk_fontset_load} is deprecated and should not be used in newly-written code. Loads a fontset. The fontset may be newly loaded or looked up in a cache. You should make no assumptions about the initial reference count. @table @var @item fontset-name a comma-separated list of XLFDs describing the component fonts of the fontset to load. @item ret a @code{}, or @samp{@code{#f}} if the fontset could not be loaded. @end table @end deffn @deffn Function gdk-font-from-description (font_desc@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{}) @samp{gdk_font_from_description} is deprecated and should not be used in newly-written code. Load a @code{} based on a Pango font description. This font will only be an approximation of the Pango font, and internationalization will not be handled correctly. This function should only be used for legacy code that cannot be easily converted to use Pango. Using Pango directly will produce better results. @table @var @item font-desc a @code{}. @item ret the newly loaded font, or @samp{@code{#f}} if the font cannot be loaded. @end table @end deffn @deffn Function gdk-font-id (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{int}) @samp{gdk_font_id} is deprecated and should not be used in newly-written code. Returns the X Font ID for the given font. @table @var @item font a @code{}. @item ret the numeric X Font ID @end table @end deffn @deffn Function gdk-string-extents (font@tie{}@code{}) (string@tie{}@code{mchars}) @result{}@tie{} (lbearing@tie{}@code{int}) (rbearing@tie{}@code{int}) (width@tie{}@code{int}) (ascent@tie{}@code{int}) (descent@tie{}@code{int}) @samp{gdk_string_extents} is deprecated and should not be used in newly-written code. Gets the metrics of a nul-terminated string. @table @var @item font a @code{}. @item string the nul-terminated string to measure. @item lbearing the left bearing of the string. @item rbearing the right bearing of the string. @item width the width of the string. @item ascent the ascent of the string. @item descent the descent of the string. @end table @end deffn @deffn Function gdk-string-width (font@tie{}@code{}) (string@tie{}@code{mchars}) @result{}@tie{} (ret@tie{}@code{int}) @samp{gdk_string_width} is deprecated and should not be used in newly-written code. Determines the width of a nul-terminated string. (The distance from the origin of the string to the point where the next string in a sequence of strings should be drawn) @table @var @item font a @code{} @item string the nul-terminated string to measure @item ret the width of the string in pixels. @end table @end deffn @deffn Function gdk-text-width (font@tie{}@code{}) (text@tie{}@code{mchars}) (text_length@tie{}@code{int}) @result{}@tie{} (ret@tie{}@code{int}) @samp{gdk_text_width} is deprecated and should not be used in newly-written code. Determines the width of a given string. @table @var @item font a @code{} @item text the text to measure. @item text-length the length of the text in bytes. @item ret the width of the string in pixels. @end table @end deffn @deffn Function gdk-char-width (font@tie{}@code{}) (character@tie{}@code{char}) @result{}@tie{} (ret@tie{}@code{int}) @samp{gdk_char_width} is deprecated and should not be used in newly-written code. Use @code{gdk-text-extents} instead. Determines the width of a given character. @table @var @item font a @code{} @item character the character to measure. @item ret the width of the character in pixels. @end table @end deffn @deffn Function gdk-char-width-wc (font@tie{}@code{}) (character@tie{}@code{unsigned-int32}) @result{}@tie{} (ret@tie{}@code{int}) @samp{gdk_char_width_wc} is deprecated and should not be used in newly-written code. Determines the width of a given wide character. (Encoded in the wide-character encoding of the current locale). @table @var @item font a @code{} @item character the character to measure. @item ret the width of the character in pixels. @end table @end deffn @deffn Function gdk-string-measure (font@tie{}@code{}) (string@tie{}@code{mchars}) @result{}@tie{} (ret@tie{}@code{int}) @samp{gdk_string_measure} is deprecated and should not be used in newly-written code. Determines the distance from the origin to the rightmost portion of a nul-terminated string when drawn. This is not the correct value for determining the origin of the next portion when drawing text in multiple pieces. See @code{gdk-string-width}. @table @var @item font a @code{} @item string the nul-terminated string to measure. @item ret the right bearing of the string in pixels. @end table @end deffn @deffn Function gdk-text-measure (font@tie{}@code{}) (text@tie{}@code{mchars}) (text_length@tie{}@code{int}) @result{}@tie{} (ret@tie{}@code{int}) @samp{gdk_text_measure} is deprecated and should not be used in newly-written code. Determines the distance from the origin to the rightmost portion of a string when drawn. This is not the correct value for determining the origin of the next portion when drawing text in multiple pieces. See @code{gdk-text-width}. @table @var @item font a @code{} @item text the text to measure. @item text-length the length of the text in bytes. @item ret the right bearing of the string in pixels. @end table @end deffn @deffn Function gdk-char-measure (font@tie{}@code{}) (character@tie{}@code{char}) @result{}@tie{} (ret@tie{}@code{int}) @samp{gdk_char_measure} is deprecated and should not be used in newly-written code. Determines the distance from the origin to the rightmost portion of a character when drawn. This is not the correct value for determining the origin of the next portion when drawing text in multiple pieces. @table @var @item font a @code{} @item character the character to measure. @item ret the right bearing of the character in pixels. @end table @end deffn @deffn Function gdk-string-height (font@tie{}@code{}) (string@tie{}@code{mchars}) @result{}@tie{} (ret@tie{}@code{int}) @samp{gdk_string_height} is deprecated and should not be used in newly-written code. Determines the total height of a given nul-terminated string. This value is not generally useful, because you cannot determine how this total height will be drawn in relation to the baseline. See @code{gdk-string-extents}. @table @var @item font a @code{} @item string the nul-terminated string to measure. @item ret the height of the string in pixels. @end table @end deffn @deffn Function gdk-text-height (font@tie{}@code{}) (text@tie{}@code{mchars}) (text_length@tie{}@code{int}) @result{}@tie{} (ret@tie{}@code{int}) @samp{gdk_text_height} is deprecated and should not be used in newly-written code. Determines the total height of a given string. This value is not generally useful, because you cannot determine how this total height will be drawn in relation to the baseline. See @code{gdk-text-extents}. @table @var @item font a @code{} @item text the text to measure. @item text-length the length of the text in bytes. @item ret the height of the string in pixels. @end table @end deffn @deffn Function gdk-char-height (font@tie{}@code{}) (character@tie{}@code{char}) @result{}@tie{} (ret@tie{}@code{int}) @samp{gdk_char_height} is deprecated and should not be used in newly-written code. Use @code{gdk-text-extents} instead. Determines the total height of a given character. This value is not generally useful, because you cannot determine how this total height will be drawn in relation to the baseline. See @code{gdk-text-extents}. @table @var @item font a @code{} @item character the character to measure. @item ret the height of the character in pixels. @end table @end deffn @c %end of fragment guile-gnome-platform-2.16.2/gtk/doc/Makefile.am0000644000175000017500000000002011670374302021545 0ustar00wingowingo00000000000000SUBDIRS=gdk gtk guile-gnome-platform-2.16.2/gtk/doc/Makefile.in0000644000175000017500000004523111752511067021575 0ustar00wingowingo00000000000000# Makefile.in generated by automake 1.11.5 from Makefile.am. # @configure_input@ # Copyright (C) 1994, 1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, # 2003, 2004, 2005, 2006, 2007, 2008, 2009, 2010, 2011 Free Software # Foundation, Inc. # This Makefile.in is free software; the Free Software Foundation # gives unlimited permission to copy and/or distribute it, # with or without modifications, as long as this notice is preserved. # This program is distributed in the hope that it will be useful, # but WITHOUT ANY WARRANTY, to the extent permitted by law; without # even the implied warranty of MERCHANTABILITY or FITNESS FOR A # PARTICULAR PURPOSE. @SET_MAKE@ VPATH = @srcdir@ am__make_dryrun = \ { \ am__dry=no; \ case $$MAKEFLAGS in \ *\\[\ \ ]*) \ echo 'am--echo: ; @echo "AM" OK' | $(MAKE) -f - 2>/dev/null \ | grep '^AM OK$$' >/dev/null || am__dry=yes;; \ *) \ for am__flg in $$MAKEFLAGS; do \ case $$am__flg in \ *=*|--*) ;; \ *n*) am__dry=yes; break;; \ esac; \ done;; \ esac; \ test $$am__dry = yes; \ } pkgdatadir = $(datadir)/@PACKAGE@ pkgincludedir = $(includedir)/@PACKAGE@ pkglibdir = $(libdir)/@PACKAGE@ pkglibexecdir = $(libexecdir)/@PACKAGE@ am__cd = CDPATH="$${ZSH_VERSION+.}$(PATH_SEPARATOR)" && cd install_sh_DATA = $(install_sh) -c -m 644 install_sh_PROGRAM = $(install_sh) -c install_sh_SCRIPT = $(install_sh) -c INSTALL_HEADER = $(INSTALL_DATA) transform = $(program_transform_name) NORMAL_INSTALL = : PRE_INSTALL = : POST_INSTALL = : NORMAL_UNINSTALL = : PRE_UNINSTALL = : POST_UNINSTALL = : build_triplet = @build@ host_triplet = @host@ subdir = gtk/doc DIST_COMMON = $(srcdir)/Makefile.am $(srcdir)/Makefile.in ACLOCAL_M4 = $(top_srcdir)/aclocal.m4 am__aclocal_m4_deps = $(top_srcdir)/configure.ac am__configure_deps = $(am__aclocal_m4_deps) $(CONFIGURE_DEPENDENCIES) \ $(ACLOCAL_M4) mkinstalldirs = $(install_sh) -d CONFIG_HEADER = $(top_builddir)/config.h CONFIG_CLEAN_FILES = CONFIG_CLEAN_VPATH_FILES = SOURCES = DIST_SOURCES = RECURSIVE_TARGETS = all-recursive check-recursive dvi-recursive \ html-recursive info-recursive install-data-recursive \ install-dvi-recursive install-exec-recursive \ install-html-recursive install-info-recursive \ install-pdf-recursive install-ps-recursive install-recursive \ installcheck-recursive installdirs-recursive pdf-recursive \ ps-recursive uninstall-recursive am__can_run_installinfo = \ case $$AM_UPDATE_INFO_DIR in \ n|no|NO) false;; \ *) (install-info --version) >/dev/null 2>&1;; \ esac RECURSIVE_CLEAN_TARGETS = mostlyclean-recursive clean-recursive \ distclean-recursive maintainer-clean-recursive AM_RECURSIVE_TARGETS = $(RECURSIVE_TARGETS:-recursive=) \ $(RECURSIVE_CLEAN_TARGETS:-recursive=) tags TAGS ctags CTAGS \ distdir ETAGS = etags CTAGS = ctags DIST_SUBDIRS = $(SUBDIRS) DISTFILES = $(DIST_COMMON) $(DIST_SOURCES) $(TEXINFOS) $(EXTRA_DIST) am__relativize = \ dir0=`pwd`; \ sed_first='s,^\([^/]*\)/.*$$,\1,'; \ sed_rest='s,^[^/]*/*,,'; \ sed_last='s,^.*/\([^/]*\)$$,\1,'; \ sed_butlast='s,/*[^/]*$$,,'; \ while test -n "$$dir1"; do \ first=`echo "$$dir1" | sed -e "$$sed_first"`; \ if test "$$first" != "."; then \ if test "$$first" = ".."; then \ dir2=`echo "$$dir0" | sed -e "$$sed_last"`/"$$dir2"; \ dir0=`echo "$$dir0" | sed -e "$$sed_butlast"`; \ else \ first2=`echo "$$dir2" | sed -e "$$sed_first"`; \ if test "$$first2" = "$$first"; then \ dir2=`echo "$$dir2" | sed -e "$$sed_rest"`; \ else \ dir2="../$$dir2"; \ fi; \ dir0="$$dir0"/"$$first"; \ fi; \ fi; \ dir1=`echo "$$dir1" | sed -e "$$sed_rest"`; \ done; \ reldir="$$dir2" ACLOCAL = @ACLOCAL@ AG_PKG_CONFIG_PATH = @AG_PKG_CONFIG_PATH@ AMTAR = @AMTAR@ API_VERSION = @API_VERSION@ AR = @AR@ ATK_CFLAGS = @ATK_CFLAGS@ ATK_LIBS = @ATK_LIBS@ AUTOCONF = @AUTOCONF@ AUTOHEADER = @AUTOHEADER@ AUTOMAKE = @AUTOMAKE@ AWK = @AWK@ BONOBO_IDL_DIR = @BONOBO_IDL_DIR@ CANVAS_CFLAGS = @CANVAS_CFLAGS@ CANVAS_LIBS = @CANVAS_LIBS@ CC = @CC@ CCDEPMODE = @CCDEPMODE@ CFLAGS = @CFLAGS@ CORBA_CFLAGS = @CORBA_CFLAGS@ CORBA_LIBS = @CORBA_LIBS@ CPP = @CPP@ CPPFLAGS = @CPPFLAGS@ CYGPATH_W = @CYGPATH_W@ DEFS = @DEFS@ DEPDIR = @DEPDIR@ DLLTOOL = @DLLTOOL@ DSYMUTIL = @DSYMUTIL@ DUMPBIN = @DUMPBIN@ ECHO_C = @ECHO_C@ ECHO_N = @ECHO_N@ ECHO_T = @ECHO_T@ EGREP = @EGREP@ EXEEXT = @EXEEXT@ FGREP = @FGREP@ GCONF_CFLAGS = @GCONF_CFLAGS@ GCONF_LIBS = @GCONF_LIBS@ GDK_CFLAGS = @GDK_CFLAGS@ GDK_LIBS = @GDK_LIBS@ GDK_PIXBUF_CFLAGS = @GDK_PIXBUF_CFLAGS@ GDK_PIXBUF_LIBS = @GDK_PIXBUF_LIBS@ GLIB_CFLAGS = @GLIB_CFLAGS@ GLIB_LIBS = @GLIB_LIBS@ GNOMEUI_DEPRECATION_FLAGS = @GNOMEUI_DEPRECATION_FLAGS@ GNOME_VFS_CFLAGS = @GNOME_VFS_CFLAGS@ GNOME_VFS_DEPRECATED_CFLAGS = @GNOME_VFS_DEPRECATED_CFLAGS@ GNOME_VFS_LIBS = @GNOME_VFS_LIBS@ GOBJECT_CFLAGS = @GOBJECT_CFLAGS@ GOBJECT_LIBS = @GOBJECT_LIBS@ GREP = @GREP@ GTHREAD_CFLAGS = @GTHREAD_CFLAGS@ GTHREAD_LIBS = @GTHREAD_LIBS@ GTK_CFLAGS = @GTK_CFLAGS@ GTK_DEPRECATED_CFLAGS = @GTK_DEPRECATED_CFLAGS@ GTK_LIBS = @GTK_LIBS@ GUILE_CAIRO_CFLAGS = @GUILE_CAIRO_CFLAGS@ GUILE_CAIRO_LIBS = @GUILE_CAIRO_LIBS@ GUILE_CFLAGS = @GUILE_CFLAGS@ GUILE_EFFECTIVE_VERSION = @GUILE_EFFECTIVE_VERSION@ GUILE_GLIB_CFLAGS = @GUILE_GLIB_CFLAGS@ GUILE_GLIB_LIBS = @GUILE_GLIB_LIBS@ GUILE_LIBS = @GUILE_LIBS@ G_WRAP_CFLAGS = @G_WRAP_CFLAGS@ G_WRAP_LIBS = @G_WRAP_LIBS@ G_WRAP_LIB_DIR = @G_WRAP_LIB_DIR@ G_WRAP_MODULE_DIR = @G_WRAP_MODULE_DIR@ INSTALL = @INSTALL@ INSTALL_DATA = @INSTALL_DATA@ INSTALL_PROGRAM = @INSTALL_PROGRAM@ INSTALL_SCRIPT = @INSTALL_SCRIPT@ INSTALL_STRIP_PROGRAM = @INSTALL_STRIP_PROGRAM@ LD = @LD@ LDFLAGS = @LDFLAGS@ LIBGLADE_CFLAGS = @LIBGLADE_CFLAGS@ LIBGLADE_LIBS = @LIBGLADE_LIBS@ LIBGNOMEUI_CFLAGS = @LIBGNOMEUI_CFLAGS@ LIBGNOMEUI_LIBS = @LIBGNOMEUI_LIBS@ LIBGNOME_CFLAGS = @LIBGNOME_CFLAGS@ LIBGNOME_LIBS = @LIBGNOME_LIBS@ LIBOBJS = @LIBOBJS@ LIBS = @LIBS@ LIBTOOL = @LIBTOOL@ LIPO = @LIPO@ LN_S = @LN_S@ LTLIBOBJS = @LTLIBOBJS@ MAKEINFO = @MAKEINFO@ MANIFEST_TOOL = @MANIFEST_TOOL@ MKDIR_P = @MKDIR_P@ NM = @NM@ NMEDIT = @NMEDIT@ OBJDUMP = @OBJDUMP@ OBJEXT = @OBJEXT@ ORBIT_IDL = @ORBIT_IDL@ OTOOL = @OTOOL@ OTOOL64 = @OTOOL64@ PACKAGE = @PACKAGE@ PACKAGE_BUGREPORT = @PACKAGE_BUGREPORT@ PACKAGE_NAME = @PACKAGE_NAME@ PACKAGE_STRING = @PACKAGE_STRING@ PACKAGE_TARNAME = @PACKAGE_TARNAME@ PACKAGE_URL = @PACKAGE_URL@ PACKAGE_VERSION = @PACKAGE_VERSION@ PANGOCAIRO_CFLAGS = @PANGOCAIRO_CFLAGS@ PANGOCAIRO_LIBS = @PANGOCAIRO_LIBS@ PANGO_CFLAGS = @PANGO_CFLAGS@ PANGO_LIBS = @PANGO_LIBS@ PATH_SEPARATOR = @PATH_SEPARATOR@ PKG_CONFIG = @PKG_CONFIG@ PKG_CONFIG_LIBDIR = @PKG_CONFIG_LIBDIR@ PKG_CONFIG_PATH = @PKG_CONFIG_PATH@ RANLIB = @RANLIB@ SED = @SED@ SET_MAKE = @SET_MAKE@ SHELL = @SHELL@ STRIP = @STRIP@ VERSION = @VERSION@ WARN_CFLAGS = @WARN_CFLAGS@ abs_builddir = @abs_builddir@ abs_srcdir = @abs_srcdir@ abs_top_builddir = @abs_top_builddir@ abs_top_srcdir = @abs_top_srcdir@ ac_ct_AR = @ac_ct_AR@ ac_ct_CC = @ac_ct_CC@ ac_ct_DUMPBIN = @ac_ct_DUMPBIN@ am__include = @am__include@ am__leading_dot = @am__leading_dot@ am__quote = @am__quote@ am__tar = @am__tar@ am__untar = @am__untar@ bindir = @bindir@ build = @build@ build_alias = @build_alias@ build_cpu = @build_cpu@ build_os = @build_os@ build_vendor = @build_vendor@ builddir = @builddir@ datadir = @datadir@ datarootdir = @datarootdir@ docdir = @docdir@ dvidir = @dvidir@ exec_prefix = @exec_prefix@ host = @host@ host_alias = @host_alias@ host_cpu = @host_cpu@ host_os = @host_os@ host_vendor = @host_vendor@ htmldir = @htmldir@ includedir = @includedir@ infodir = @infodir@ install_sh = @install_sh@ libdir = @libdir@ libexecdir = @libexecdir@ localedir = @localedir@ localstatedir = @localstatedir@ mandir = @mandir@ mkdir_p = @mkdir_p@ oldincludedir = @oldincludedir@ pdfdir = @pdfdir@ prefix = @prefix@ program_transform_name = @program_transform_name@ psdir = @psdir@ sbindir = @sbindir@ sharedstatedir = @sharedstatedir@ srcdir = @srcdir@ sysconfdir = @sysconfdir@ target_alias = @target_alias@ top_build_prefix = @top_build_prefix@ top_builddir = @top_builddir@ top_srcdir = @top_srcdir@ SUBDIRS = gdk gtk all: all-recursive .SUFFIXES: $(srcdir)/Makefile.in: $(srcdir)/Makefile.am $(am__configure_deps) @for dep in $?; do \ case '$(am__configure_deps)' in \ *$$dep*) \ ( cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh ) \ && { if test -f $@; then exit 0; else break; fi; }; \ exit 1;; \ esac; \ done; \ echo ' cd $(top_srcdir) && $(AUTOMAKE) --gnu gtk/doc/Makefile'; \ $(am__cd) $(top_srcdir) && \ $(AUTOMAKE) --gnu gtk/doc/Makefile .PRECIOUS: Makefile Makefile: $(srcdir)/Makefile.in $(top_builddir)/config.status @case '$?' in \ *config.status*) \ cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh;; \ *) \ echo ' cd $(top_builddir) && $(SHELL) ./config.status $(subdir)/$@ $(am__depfiles_maybe)'; \ cd $(top_builddir) && $(SHELL) ./config.status $(subdir)/$@ $(am__depfiles_maybe);; \ esac; $(top_builddir)/config.status: $(top_srcdir)/configure $(CONFIG_STATUS_DEPENDENCIES) cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh $(top_srcdir)/configure: $(am__configure_deps) cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh $(ACLOCAL_M4): $(am__aclocal_m4_deps) cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh $(am__aclocal_m4_deps): mostlyclean-libtool: -rm -f *.lo clean-libtool: -rm -rf .libs _libs # This directory's subdirectories are mostly independent; you can cd # into them and run `make' without going through this Makefile. # To change the values of `make' variables: instead of editing Makefiles, # (1) if the variable is set in `config.status', edit `config.status' # (which will cause the Makefiles to be regenerated when you run `make'); # (2) otherwise, pass the desired values on the `make' command line. $(RECURSIVE_TARGETS): @fail= failcom='exit 1'; \ for f in x $$MAKEFLAGS; do \ case $$f in \ *=* | --[!k]*);; \ *k*) failcom='fail=yes';; \ esac; \ done; \ dot_seen=no; \ target=`echo $@ | sed s/-recursive//`; \ list='$(SUBDIRS)'; for subdir in $$list; do \ echo "Making $$target in $$subdir"; \ if test "$$subdir" = "."; then \ dot_seen=yes; \ local_target="$$target-am"; \ else \ local_target="$$target"; \ fi; \ ($(am__cd) $$subdir && $(MAKE) $(AM_MAKEFLAGS) $$local_target) \ || eval $$failcom; \ done; \ if test "$$dot_seen" = "no"; then \ $(MAKE) $(AM_MAKEFLAGS) "$$target-am" || exit 1; \ fi; test -z "$$fail" $(RECURSIVE_CLEAN_TARGETS): @fail= failcom='exit 1'; \ for f in x $$MAKEFLAGS; do \ case $$f in \ *=* | --[!k]*);; \ *k*) failcom='fail=yes';; \ esac; \ done; \ dot_seen=no; \ case "$@" in \ distclean-* | maintainer-clean-*) list='$(DIST_SUBDIRS)' ;; \ *) list='$(SUBDIRS)' ;; \ esac; \ rev=''; for subdir in $$list; do \ if test "$$subdir" = "."; then :; else \ rev="$$subdir $$rev"; \ fi; \ done; \ rev="$$rev ."; \ target=`echo $@ | sed s/-recursive//`; \ for subdir in $$rev; do \ echo "Making $$target in $$subdir"; \ if test "$$subdir" = "."; then \ local_target="$$target-am"; \ else \ local_target="$$target"; \ fi; \ ($(am__cd) $$subdir && $(MAKE) $(AM_MAKEFLAGS) $$local_target) \ || eval $$failcom; \ done && test -z "$$fail" tags-recursive: list='$(SUBDIRS)'; for subdir in $$list; do \ test "$$subdir" = . || ($(am__cd) $$subdir && $(MAKE) $(AM_MAKEFLAGS) tags); \ done ctags-recursive: list='$(SUBDIRS)'; for subdir in $$list; do \ test "$$subdir" = . || ($(am__cd) $$subdir && $(MAKE) $(AM_MAKEFLAGS) ctags); \ done ID: $(HEADERS) $(SOURCES) $(LISP) $(TAGS_FILES) list='$(SOURCES) $(HEADERS) $(LISP) $(TAGS_FILES)'; \ unique=`for i in $$list; do \ if test -f "$$i"; then echo $$i; else echo $(srcdir)/$$i; fi; \ done | \ $(AWK) '{ files[$$0] = 1; nonempty = 1; } \ END { if (nonempty) { for (i in files) print i; }; }'`; \ mkid -fID $$unique tags: TAGS TAGS: tags-recursive $(HEADERS) $(SOURCES) $(TAGS_DEPENDENCIES) \ $(TAGS_FILES) $(LISP) set x; \ here=`pwd`; \ if ($(ETAGS) --etags-include --version) >/dev/null 2>&1; then \ include_option=--etags-include; \ empty_fix=.; \ else \ include_option=--include; \ empty_fix=; \ fi; \ list='$(SUBDIRS)'; for subdir in $$list; do \ if test "$$subdir" = .; then :; else \ test ! -f $$subdir/TAGS || \ set "$$@" "$$include_option=$$here/$$subdir/TAGS"; \ fi; \ done; \ list='$(SOURCES) $(HEADERS) $(LISP) $(TAGS_FILES)'; \ unique=`for i in $$list; do \ if test -f "$$i"; then echo $$i; else echo $(srcdir)/$$i; fi; \ done | \ $(AWK) '{ files[$$0] = 1; nonempty = 1; } \ END { if (nonempty) { for (i in files) print i; }; }'`; \ shift; \ if test -z "$(ETAGS_ARGS)$$*$$unique"; then :; else \ test -n "$$unique" || unique=$$empty_fix; \ if test $$# -gt 0; then \ $(ETAGS) $(ETAGSFLAGS) $(AM_ETAGSFLAGS) $(ETAGS_ARGS) \ "$$@" $$unique; \ else \ $(ETAGS) $(ETAGSFLAGS) $(AM_ETAGSFLAGS) $(ETAGS_ARGS) \ $$unique; \ fi; \ fi ctags: CTAGS CTAGS: ctags-recursive $(HEADERS) $(SOURCES) $(TAGS_DEPENDENCIES) \ $(TAGS_FILES) $(LISP) list='$(SOURCES) $(HEADERS) $(LISP) $(TAGS_FILES)'; \ unique=`for i in $$list; do \ if test -f "$$i"; then echo $$i; else echo $(srcdir)/$$i; fi; \ done | \ $(AWK) '{ files[$$0] = 1; nonempty = 1; } \ END { if (nonempty) { for (i in files) print i; }; }'`; \ test -z "$(CTAGS_ARGS)$$unique" \ || $(CTAGS) $(CTAGSFLAGS) $(AM_CTAGSFLAGS) $(CTAGS_ARGS) \ $$unique GTAGS: here=`$(am__cd) $(top_builddir) && pwd` \ && $(am__cd) $(top_srcdir) \ && gtags -i $(GTAGS_ARGS) "$$here" distclean-tags: -rm -f TAGS ID GTAGS GRTAGS GSYMS GPATH tags distdir: $(DISTFILES) @srcdirstrip=`echo "$(srcdir)" | sed 's/[].[^$$\\*]/\\\\&/g'`; \ topsrcdirstrip=`echo "$(top_srcdir)" | sed 's/[].[^$$\\*]/\\\\&/g'`; \ list='$(DISTFILES)'; \ dist_files=`for file in $$list; do echo $$file; done | \ sed -e "s|^$$srcdirstrip/||;t" \ -e "s|^$$topsrcdirstrip/|$(top_builddir)/|;t"`; \ case $$dist_files in \ */*) $(MKDIR_P) `echo "$$dist_files" | \ sed '/\//!d;s|^|$(distdir)/|;s,/[^/]*$$,,' | \ sort -u` ;; \ esac; \ for file in $$dist_files; do \ if test -f $$file || test -d $$file; then d=.; else d=$(srcdir); fi; \ if test -d $$d/$$file; then \ dir=`echo "/$$file" | sed -e 's,/[^/]*$$,,'`; \ if test -d "$(distdir)/$$file"; then \ find "$(distdir)/$$file" -type d ! -perm -700 -exec chmod u+rwx {} \;; \ fi; \ if test -d $(srcdir)/$$file && test $$d != $(srcdir); then \ cp -fpR $(srcdir)/$$file "$(distdir)$$dir" || exit 1; \ find "$(distdir)/$$file" -type d ! -perm -700 -exec chmod u+rwx {} \;; \ fi; \ cp -fpR $$d/$$file "$(distdir)$$dir" || exit 1; \ else \ test -f "$(distdir)/$$file" \ || cp -p $$d/$$file "$(distdir)/$$file" \ || exit 1; \ fi; \ done @list='$(DIST_SUBDIRS)'; for subdir in $$list; do \ if test "$$subdir" = .; then :; else \ $(am__make_dryrun) \ || test -d "$(distdir)/$$subdir" \ || $(MKDIR_P) "$(distdir)/$$subdir" \ || exit 1; \ dir1=$$subdir; dir2="$(distdir)/$$subdir"; \ $(am__relativize); \ new_distdir=$$reldir; \ dir1=$$subdir; dir2="$(top_distdir)"; \ $(am__relativize); \ new_top_distdir=$$reldir; \ echo " (cd $$subdir && $(MAKE) $(AM_MAKEFLAGS) top_distdir="$$new_top_distdir" distdir="$$new_distdir" \\"; \ echo " am__remove_distdir=: am__skip_length_check=: am__skip_mode_fix=: distdir)"; \ ($(am__cd) $$subdir && \ $(MAKE) $(AM_MAKEFLAGS) \ top_distdir="$$new_top_distdir" \ distdir="$$new_distdir" \ am__remove_distdir=: \ am__skip_length_check=: \ am__skip_mode_fix=: \ distdir) \ || exit 1; \ fi; \ done check-am: all-am check: check-recursive all-am: Makefile installdirs: installdirs-recursive installdirs-am: install: install-recursive install-exec: install-exec-recursive install-data: install-data-recursive uninstall: uninstall-recursive install-am: all-am @$(MAKE) $(AM_MAKEFLAGS) install-exec-am install-data-am installcheck: installcheck-recursive install-strip: if test -z '$(STRIP)'; then \ $(MAKE) $(AM_MAKEFLAGS) INSTALL_PROGRAM="$(INSTALL_STRIP_PROGRAM)" \ install_sh_PROGRAM="$(INSTALL_STRIP_PROGRAM)" INSTALL_STRIP_FLAG=-s \ install; \ else \ $(MAKE) $(AM_MAKEFLAGS) INSTALL_PROGRAM="$(INSTALL_STRIP_PROGRAM)" \ install_sh_PROGRAM="$(INSTALL_STRIP_PROGRAM)" INSTALL_STRIP_FLAG=-s \ "INSTALL_PROGRAM_ENV=STRIPPROG='$(STRIP)'" install; \ fi mostlyclean-generic: clean-generic: distclean-generic: -test -z "$(CONFIG_CLEAN_FILES)" || rm -f $(CONFIG_CLEAN_FILES) -test . = "$(srcdir)" || test -z "$(CONFIG_CLEAN_VPATH_FILES)" || rm -f $(CONFIG_CLEAN_VPATH_FILES) maintainer-clean-generic: @echo "This command is intended for maintainers to use" @echo "it deletes files that may require special tools to rebuild." clean: clean-recursive clean-am: clean-generic clean-libtool mostlyclean-am distclean: distclean-recursive -rm -f Makefile distclean-am: clean-am distclean-generic distclean-tags dvi: dvi-recursive dvi-am: html: html-recursive html-am: info: info-recursive info-am: install-data-am: install-dvi: install-dvi-recursive install-dvi-am: install-exec-am: install-html: install-html-recursive install-html-am: install-info: install-info-recursive install-info-am: install-man: install-pdf: install-pdf-recursive install-pdf-am: install-ps: install-ps-recursive install-ps-am: installcheck-am: maintainer-clean: maintainer-clean-recursive -rm -f Makefile maintainer-clean-am: distclean-am maintainer-clean-generic mostlyclean: mostlyclean-recursive mostlyclean-am: mostlyclean-generic mostlyclean-libtool pdf: pdf-recursive pdf-am: ps: ps-recursive ps-am: uninstall-am: .MAKE: $(RECURSIVE_CLEAN_TARGETS) $(RECURSIVE_TARGETS) ctags-recursive \ install-am install-strip tags-recursive .PHONY: $(RECURSIVE_CLEAN_TARGETS) $(RECURSIVE_TARGETS) CTAGS GTAGS \ all all-am check check-am clean clean-generic clean-libtool \ ctags ctags-recursive distclean distclean-generic \ distclean-libtool distclean-tags distdir dvi dvi-am html \ html-am info info-am install install-am install-data \ install-data-am install-dvi install-dvi-am install-exec \ install-exec-am install-html install-html-am install-info \ install-info-am install-man install-pdf install-pdf-am \ install-ps install-ps-am install-strip installcheck \ installcheck-am installdirs installdirs-am maintainer-clean \ maintainer-clean-generic mostlyclean mostlyclean-generic \ mostlyclean-libtool pdf pdf-am ps ps-am tags tags-recursive \ uninstall uninstall-am # Tell versions [3.59,3.63) of GNU make to not export all variables. # Otherwise a system limit (for SysV at least) may be exceeded. .NOEXPORT: guile-gnome-platform-2.16.2/gtk/tests/0000755000175000017500000000000011752546503020123 5ustar00wingowingo00000000000000guile-gnome-platform-2.16.2/gtk/tests/gtk/0000755000175000017500000000000011752546504020711 5ustar00wingowingo00000000000000guile-gnome-platform-2.16.2/gtk/tests/gtk/wrapset.scm0000644000175000017500000000311411670374303023074 0ustar00wingowingo00000000000000;;; ---------------------------------------------------------------------- ;;; unit test ;;; Copyright (C) 2007 Andy Wingo ;;; ;;; This program is free software; you can redistribute it and/or modify ;;; it under the terms of the GNU General Public License as published by ;;; the Free Software Foundation; either version 2 of the License, or ;;; (at your option) any later version. ;;; ;;; This program is distributed in the hope that it will be useful, ;;; but WITHOUT ANY WARRANTY; without even the implied warranty of ;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the ;;; GNU General Public License for more details. ;;; ;;; You should have received a copy of the GNU General Public License ;;; along with this program; if not, write to the Free Software ;;; Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA ;;; ---------------------------------------------------------------------- (use-modules (unit-test) (apicheck) (ice-9 pretty-print) (oop goops)) (define-class ()) (define *modules* (call-with-input-string (getenv "WRAPSET_MODULES") read)) (define *api-file* (getenv "WRAPSET_API_FILE")) (define-method (test-wrapset-api (self )) (apicheck-validate (call-with-input-file *api-file* read) *modules*)) (define (main args) (exit-with-summary (run-all-defined-test-cases))) (define (update-api args) (with-output-to-file *api-file* (lambda () (pretty-print (apicheck-generate *modules*))))) guile-gnome-platform-2.16.2/gtk/tests/gtk/Makefile.am0000644000175000017500000000014011670374303022733 0ustar00wingowingo00000000000000include ../../../tests.mk # FIXME: what other modules' api do we guarantee? wrapset_stem = gtk guile-gnome-platform-2.16.2/gtk/tests/gtk/Makefile.in0000644000175000017500000004025411752511067022757 0ustar00wingowingo00000000000000# Makefile.in generated by automake 1.11.5 from Makefile.am. # @configure_input@ # Copyright (C) 1994, 1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, # 2003, 2004, 2005, 2006, 2007, 2008, 2009, 2010, 2011 Free Software # Foundation, Inc. # This Makefile.in is free software; the Free Software Foundation # gives unlimited permission to copy and/or distribute it, # with or without modifications, as long as this notice is preserved. # This program is distributed in the hope that it will be useful, # but WITHOUT ANY WARRANTY, to the extent permitted by law; without # even the implied warranty of MERCHANTABILITY or FITNESS FOR A # PARTICULAR PURPOSE. @SET_MAKE@ # guile-gnome # Copyright (C) 2007, 2011 Free Software Foundation, Inc. # This program is free software; you can redistribute it and/or # modify it under the terms of the GNU General Public License as # published by the Free Software Foundation; either version 2 of # the License, or (at your option) any later version. # This program is distributed in the hope that it will be useful, # but WITHOUT ANY WARRANTY; without even the implied warranty of # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the # GNU General Public License for more details. # You should have received a copy of the GNU General Public License # along with this program; if not, contact: # Free Software Foundation Voice: +1-617-542-5942 # 59 Temple Place - Suite 330 Fax: +1-617-542-2652 # Boston, MA 02111-1307, USA gnu@gnu.org VPATH = @srcdir@ am__make_dryrun = \ { \ am__dry=no; \ case $$MAKEFLAGS in \ *\\[\ \ ]*) \ echo 'am--echo: ; @echo "AM" OK' | $(MAKE) -f - 2>/dev/null \ | grep '^AM OK$$' >/dev/null || am__dry=yes;; \ *) \ for am__flg in $$MAKEFLAGS; do \ case $$am__flg in \ *=*|--*) ;; \ *n*) am__dry=yes; break;; \ esac; \ done;; \ esac; \ test $$am__dry = yes; \ } pkgdatadir = $(datadir)/@PACKAGE@ pkgincludedir = $(includedir)/@PACKAGE@ pkglibdir = $(libdir)/@PACKAGE@ pkglibexecdir = $(libexecdir)/@PACKAGE@ am__cd = CDPATH="$${ZSH_VERSION+.}$(PATH_SEPARATOR)" && cd install_sh_DATA = $(install_sh) -c -m 644 install_sh_PROGRAM = $(install_sh) -c install_sh_SCRIPT = $(install_sh) -c INSTALL_HEADER = $(INSTALL_DATA) transform = $(program_transform_name) NORMAL_INSTALL = : PRE_INSTALL = : POST_INSTALL = : NORMAL_UNINSTALL = : PRE_UNINSTALL = : POST_UNINSTALL = : build_triplet = @build@ host_triplet = @host@ DIST_COMMON = $(srcdir)/../../../tests.mk $(srcdir)/Makefile.am \ $(srcdir)/Makefile.in subdir = gtk/tests/gtk ACLOCAL_M4 = $(top_srcdir)/aclocal.m4 am__aclocal_m4_deps = $(top_srcdir)/configure.ac am__configure_deps = $(am__aclocal_m4_deps) $(CONFIGURE_DEPENDENCIES) \ $(ACLOCAL_M4) mkinstalldirs = $(install_sh) -d CONFIG_HEADER = $(top_builddir)/config.h CONFIG_CLEAN_FILES = CONFIG_CLEAN_VPATH_FILES = SOURCES = DIST_SOURCES = am__can_run_installinfo = \ case $$AM_UPDATE_INFO_DIR in \ n|no|NO) false;; \ *) (install-info --version) >/dev/null 2>&1;; \ esac am__tty_colors = \ red=; grn=; lgn=; blu=; std= DISTFILES = $(DIST_COMMON) $(DIST_SOURCES) $(TEXINFOS) $(EXTRA_DIST) ACLOCAL = @ACLOCAL@ AG_PKG_CONFIG_PATH = @AG_PKG_CONFIG_PATH@ AMTAR = @AMTAR@ API_VERSION = @API_VERSION@ AR = @AR@ ATK_CFLAGS = @ATK_CFLAGS@ ATK_LIBS = @ATK_LIBS@ AUTOCONF = @AUTOCONF@ AUTOHEADER = @AUTOHEADER@ AUTOMAKE = @AUTOMAKE@ AWK = @AWK@ BONOBO_IDL_DIR = @BONOBO_IDL_DIR@ CANVAS_CFLAGS = @CANVAS_CFLAGS@ CANVAS_LIBS = @CANVAS_LIBS@ CC = @CC@ CCDEPMODE = @CCDEPMODE@ CFLAGS = @CFLAGS@ CORBA_CFLAGS = @CORBA_CFLAGS@ CORBA_LIBS = @CORBA_LIBS@ CPP = @CPP@ CPPFLAGS = @CPPFLAGS@ CYGPATH_W = @CYGPATH_W@ DEFS = @DEFS@ DEPDIR = @DEPDIR@ DLLTOOL = @DLLTOOL@ DSYMUTIL = @DSYMUTIL@ DUMPBIN = @DUMPBIN@ ECHO_C = @ECHO_C@ ECHO_N = @ECHO_N@ ECHO_T = @ECHO_T@ EGREP = @EGREP@ EXEEXT = @EXEEXT@ FGREP = @FGREP@ GCONF_CFLAGS = @GCONF_CFLAGS@ GCONF_LIBS = @GCONF_LIBS@ GDK_CFLAGS = @GDK_CFLAGS@ GDK_LIBS = @GDK_LIBS@ GDK_PIXBUF_CFLAGS = @GDK_PIXBUF_CFLAGS@ GDK_PIXBUF_LIBS = @GDK_PIXBUF_LIBS@ GLIB_CFLAGS = @GLIB_CFLAGS@ GLIB_LIBS = @GLIB_LIBS@ GNOMEUI_DEPRECATION_FLAGS = @GNOMEUI_DEPRECATION_FLAGS@ GNOME_VFS_CFLAGS = @GNOME_VFS_CFLAGS@ GNOME_VFS_DEPRECATED_CFLAGS = @GNOME_VFS_DEPRECATED_CFLAGS@ GNOME_VFS_LIBS = @GNOME_VFS_LIBS@ GOBJECT_CFLAGS = @GOBJECT_CFLAGS@ GOBJECT_LIBS = @GOBJECT_LIBS@ GREP = @GREP@ GTHREAD_CFLAGS = @GTHREAD_CFLAGS@ GTHREAD_LIBS = @GTHREAD_LIBS@ GTK_CFLAGS = @GTK_CFLAGS@ GTK_DEPRECATED_CFLAGS = @GTK_DEPRECATED_CFLAGS@ GTK_LIBS = @GTK_LIBS@ GUILE_CAIRO_CFLAGS = @GUILE_CAIRO_CFLAGS@ GUILE_CAIRO_LIBS = @GUILE_CAIRO_LIBS@ GUILE_CFLAGS = @GUILE_CFLAGS@ GUILE_EFFECTIVE_VERSION = @GUILE_EFFECTIVE_VERSION@ GUILE_GLIB_CFLAGS = @GUILE_GLIB_CFLAGS@ GUILE_GLIB_LIBS = @GUILE_GLIB_LIBS@ GUILE_LIBS = @GUILE_LIBS@ G_WRAP_CFLAGS = @G_WRAP_CFLAGS@ G_WRAP_LIBS = @G_WRAP_LIBS@ G_WRAP_LIB_DIR = @G_WRAP_LIB_DIR@ G_WRAP_MODULE_DIR = @G_WRAP_MODULE_DIR@ INSTALL = @INSTALL@ INSTALL_DATA = @INSTALL_DATA@ INSTALL_PROGRAM = @INSTALL_PROGRAM@ INSTALL_SCRIPT = @INSTALL_SCRIPT@ INSTALL_STRIP_PROGRAM = @INSTALL_STRIP_PROGRAM@ LD = @LD@ LDFLAGS = @LDFLAGS@ LIBGLADE_CFLAGS = @LIBGLADE_CFLAGS@ LIBGLADE_LIBS = @LIBGLADE_LIBS@ LIBGNOMEUI_CFLAGS = @LIBGNOMEUI_CFLAGS@ LIBGNOMEUI_LIBS = @LIBGNOMEUI_LIBS@ LIBGNOME_CFLAGS = @LIBGNOME_CFLAGS@ LIBGNOME_LIBS = @LIBGNOME_LIBS@ LIBOBJS = @LIBOBJS@ LIBS = @LIBS@ LIBTOOL = @LIBTOOL@ LIPO = @LIPO@ LN_S = @LN_S@ LTLIBOBJS = @LTLIBOBJS@ MAKEINFO = @MAKEINFO@ MANIFEST_TOOL = @MANIFEST_TOOL@ MKDIR_P = @MKDIR_P@ NM = @NM@ NMEDIT = @NMEDIT@ OBJDUMP = @OBJDUMP@ OBJEXT = @OBJEXT@ ORBIT_IDL = @ORBIT_IDL@ OTOOL = @OTOOL@ OTOOL64 = @OTOOL64@ PACKAGE = @PACKAGE@ PACKAGE_BUGREPORT = @PACKAGE_BUGREPORT@ PACKAGE_NAME = @PACKAGE_NAME@ PACKAGE_STRING = @PACKAGE_STRING@ PACKAGE_TARNAME = @PACKAGE_TARNAME@ PACKAGE_URL = @PACKAGE_URL@ PACKAGE_VERSION = @PACKAGE_VERSION@ PANGOCAIRO_CFLAGS = @PANGOCAIRO_CFLAGS@ PANGOCAIRO_LIBS = @PANGOCAIRO_LIBS@ PANGO_CFLAGS = @PANGO_CFLAGS@ PANGO_LIBS = @PANGO_LIBS@ PATH_SEPARATOR = @PATH_SEPARATOR@ PKG_CONFIG = @PKG_CONFIG@ PKG_CONFIG_LIBDIR = @PKG_CONFIG_LIBDIR@ PKG_CONFIG_PATH = @PKG_CONFIG_PATH@ RANLIB = @RANLIB@ SED = @SED@ SET_MAKE = @SET_MAKE@ SHELL = @SHELL@ STRIP = @STRIP@ VERSION = @VERSION@ WARN_CFLAGS = @WARN_CFLAGS@ abs_builddir = @abs_builddir@ abs_srcdir = @abs_srcdir@ abs_top_builddir = @abs_top_builddir@ abs_top_srcdir = @abs_top_srcdir@ ac_ct_AR = @ac_ct_AR@ ac_ct_CC = @ac_ct_CC@ ac_ct_DUMPBIN = @ac_ct_DUMPBIN@ am__include = @am__include@ am__leading_dot = @am__leading_dot@ am__quote = @am__quote@ am__tar = @am__tar@ am__untar = @am__untar@ bindir = @bindir@ build = @build@ build_alias = @build_alias@ build_cpu = @build_cpu@ build_os = @build_os@ build_vendor = @build_vendor@ builddir = @builddir@ datadir = @datadir@ datarootdir = @datarootdir@ docdir = @docdir@ dvidir = @dvidir@ exec_prefix = @exec_prefix@ host = @host@ host_alias = @host_alias@ host_cpu = @host_cpu@ host_os = @host_os@ host_vendor = @host_vendor@ htmldir = @htmldir@ includedir = @includedir@ infodir = @infodir@ install_sh = @install_sh@ libdir = @libdir@ libexecdir = @libexecdir@ localedir = @localedir@ localstatedir = @localstatedir@ mandir = @mandir@ mkdir_p = @mkdir_p@ oldincludedir = @oldincludedir@ pdfdir = @pdfdir@ prefix = @prefix@ program_transform_name = @program_transform_name@ psdir = @psdir@ sbindir = @sbindir@ sharedstatedir = @sharedstatedir@ srcdir = @srcdir@ sysconfdir = @sysconfdir@ target_alias = @target_alias@ top_build_prefix = @top_build_prefix@ top_builddir = @top_builddir@ top_srcdir = @top_srcdir@ # # Makefile snippet # EXTRA_DIST = wrapset.api wrapset.scm # FIXME: what other modules' api do we guarantee? wrapset_stem = gtk top_module_name = (gnome $(wrapset_stem)) gw_module_name = (gnome gw $(wrapset_stem)) extra_module_names = wrapset_modules = ($(top_module_name) $(gw_module_name) $(extra_module_names)) WRAPSET_TESTS_ENV = WRAPSET_MODULES="$(wrapset_modules)" WRAPSET_API_FILE=$(srcdir)/wrapset.api DEV_ENV = $(top_builddir)/dev-environ GUILE = guile TESTS_ENVIRONMENT = $(WRAPSET_TESTS_ENV) $(DEV_ENV) $(GUILE) $(GUILE_FLAGS) -e main -s TESTS = wrapset.scm all: all-am .SUFFIXES: $(srcdir)/Makefile.in: $(srcdir)/Makefile.am $(srcdir)/../../../tests.mk $(am__configure_deps) @for dep in $?; do \ case '$(am__configure_deps)' in \ *$$dep*) \ ( cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh ) \ && { if test -f $@; then exit 0; else break; fi; }; \ exit 1;; \ esac; \ done; \ echo ' cd $(top_srcdir) && $(AUTOMAKE) --gnu gtk/tests/gtk/Makefile'; \ $(am__cd) $(top_srcdir) && \ $(AUTOMAKE) --gnu gtk/tests/gtk/Makefile .PRECIOUS: Makefile Makefile: $(srcdir)/Makefile.in $(top_builddir)/config.status @case '$?' in \ *config.status*) \ cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh;; \ *) \ echo ' cd $(top_builddir) && $(SHELL) ./config.status $(subdir)/$@ $(am__depfiles_maybe)'; \ cd $(top_builddir) && $(SHELL) ./config.status $(subdir)/$@ $(am__depfiles_maybe);; \ esac; $(srcdir)/../../../tests.mk: $(top_builddir)/config.status: $(top_srcdir)/configure $(CONFIG_STATUS_DEPENDENCIES) cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh $(top_srcdir)/configure: $(am__configure_deps) cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh $(ACLOCAL_M4): $(am__aclocal_m4_deps) cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh $(am__aclocal_m4_deps): mostlyclean-libtool: -rm -f *.lo clean-libtool: -rm -rf .libs _libs tags: TAGS TAGS: ctags: CTAGS CTAGS: check-TESTS: $(TESTS) @failed=0; all=0; xfail=0; xpass=0; skip=0; \ srcdir=$(srcdir); export srcdir; \ list=' $(TESTS) '; \ $(am__tty_colors); \ if test -n "$$list"; then \ for tst in $$list; do \ if test -f ./$$tst; then dir=./; \ elif test -f $$tst; then dir=; \ else dir="$(srcdir)/"; fi; \ if $(TESTS_ENVIRONMENT) $${dir}$$tst; then \ all=`expr $$all + 1`; \ case " $(XFAIL_TESTS) " in \ *[\ \ ]$$tst[\ \ ]*) \ xpass=`expr $$xpass + 1`; \ failed=`expr $$failed + 1`; \ col=$$red; res=XPASS; \ ;; \ *) \ col=$$grn; res=PASS; \ ;; \ esac; \ elif test $$? -ne 77; then \ all=`expr $$all + 1`; \ case " $(XFAIL_TESTS) " in \ *[\ \ ]$$tst[\ \ ]*) \ xfail=`expr $$xfail + 1`; \ col=$$lgn; res=XFAIL; \ ;; \ *) \ failed=`expr $$failed + 1`; \ col=$$red; res=FAIL; \ ;; \ esac; \ else \ skip=`expr $$skip + 1`; \ col=$$blu; res=SKIP; \ fi; \ echo "$${col}$$res$${std}: $$tst"; \ done; \ if test "$$all" -eq 1; then \ tests="test"; \ All=""; \ else \ tests="tests"; \ All="All "; \ fi; \ if test "$$failed" -eq 0; then \ if test "$$xfail" -eq 0; then \ banner="$$All$$all $$tests passed"; \ else \ if test "$$xfail" -eq 1; then failures=failure; else failures=failures; fi; \ banner="$$All$$all $$tests behaved as expected ($$xfail expected $$failures)"; \ fi; \ else \ if test "$$xpass" -eq 0; then \ banner="$$failed of $$all $$tests failed"; \ else \ if test "$$xpass" -eq 1; then passes=pass; else passes=passes; fi; \ banner="$$failed of $$all $$tests did not behave as expected ($$xpass unexpected $$passes)"; \ fi; \ fi; \ dashes="$$banner"; \ skipped=""; \ if test "$$skip" -ne 0; then \ if test "$$skip" -eq 1; then \ skipped="($$skip test was not run)"; \ else \ skipped="($$skip tests were not run)"; \ fi; \ test `echo "$$skipped" | wc -c` -le `echo "$$banner" | wc -c` || \ dashes="$$skipped"; \ fi; \ report=""; \ if test "$$failed" -ne 0 && test -n "$(PACKAGE_BUGREPORT)"; then \ report="Please report to $(PACKAGE_BUGREPORT)"; \ test `echo "$$report" | wc -c` -le `echo "$$banner" | wc -c` || \ dashes="$$report"; \ fi; \ dashes=`echo "$$dashes" | sed s/./=/g`; \ if test "$$failed" -eq 0; then \ col="$$grn"; \ else \ col="$$red"; \ fi; \ echo "$${col}$$dashes$${std}"; \ echo "$${col}$$banner$${std}"; \ test -z "$$skipped" || echo "$${col}$$skipped$${std}"; \ test -z "$$report" || echo "$${col}$$report$${std}"; \ echo "$${col}$$dashes$${std}"; \ test "$$failed" -eq 0; \ else :; fi distdir: $(DISTFILES) @srcdirstrip=`echo "$(srcdir)" | sed 's/[].[^$$\\*]/\\\\&/g'`; \ topsrcdirstrip=`echo "$(top_srcdir)" | sed 's/[].[^$$\\*]/\\\\&/g'`; \ list='$(DISTFILES)'; \ dist_files=`for file in $$list; do echo $$file; done | \ sed -e "s|^$$srcdirstrip/||;t" \ -e "s|^$$topsrcdirstrip/|$(top_builddir)/|;t"`; \ case $$dist_files in \ */*) $(MKDIR_P) `echo "$$dist_files" | \ sed '/\//!d;s|^|$(distdir)/|;s,/[^/]*$$,,' | \ sort -u` ;; \ esac; \ for file in $$dist_files; do \ if test -f $$file || test -d $$file; then d=.; else d=$(srcdir); fi; \ if test -d $$d/$$file; then \ dir=`echo "/$$file" | sed -e 's,/[^/]*$$,,'`; \ if test -d "$(distdir)/$$file"; then \ find "$(distdir)/$$file" -type d ! -perm -700 -exec chmod u+rwx {} \;; \ fi; \ if test -d $(srcdir)/$$file && test $$d != $(srcdir); then \ cp -fpR $(srcdir)/$$file "$(distdir)$$dir" || exit 1; \ find "$(distdir)/$$file" -type d ! -perm -700 -exec chmod u+rwx {} \;; \ fi; \ cp -fpR $$d/$$file "$(distdir)$$dir" || exit 1; \ else \ test -f "$(distdir)/$$file" \ || cp -p $$d/$$file "$(distdir)/$$file" \ || exit 1; \ fi; \ done check-am: all-am $(MAKE) $(AM_MAKEFLAGS) check-TESTS check: check-am all-am: Makefile installdirs: install: install-am install-exec: install-exec-am install-data: install-data-am uninstall: uninstall-am install-am: all-am @$(MAKE) $(AM_MAKEFLAGS) install-exec-am install-data-am installcheck: installcheck-am install-strip: if test -z '$(STRIP)'; then \ $(MAKE) $(AM_MAKEFLAGS) INSTALL_PROGRAM="$(INSTALL_STRIP_PROGRAM)" \ install_sh_PROGRAM="$(INSTALL_STRIP_PROGRAM)" INSTALL_STRIP_FLAG=-s \ install; \ else \ $(MAKE) $(AM_MAKEFLAGS) INSTALL_PROGRAM="$(INSTALL_STRIP_PROGRAM)" \ install_sh_PROGRAM="$(INSTALL_STRIP_PROGRAM)" INSTALL_STRIP_FLAG=-s \ "INSTALL_PROGRAM_ENV=STRIPPROG='$(STRIP)'" install; \ fi mostlyclean-generic: clean-generic: distclean-generic: -test -z "$(CONFIG_CLEAN_FILES)" || rm -f $(CONFIG_CLEAN_FILES) -test . = "$(srcdir)" || test -z "$(CONFIG_CLEAN_VPATH_FILES)" || rm -f $(CONFIG_CLEAN_VPATH_FILES) maintainer-clean-generic: @echo "This command is intended for maintainers to use" @echo "it deletes files that may require special tools to rebuild." clean: clean-am clean-am: clean-generic clean-libtool mostlyclean-am distclean: distclean-am -rm -f Makefile distclean-am: clean-am distclean-generic dvi: dvi-am dvi-am: html: html-am html-am: info: info-am info-am: install-data-am: install-dvi: install-dvi-am install-dvi-am: install-exec-am: install-html: install-html-am install-html-am: install-info: install-info-am install-info-am: install-man: install-pdf: install-pdf-am install-pdf-am: install-ps: install-ps-am install-ps-am: installcheck-am: maintainer-clean: maintainer-clean-am -rm -f Makefile maintainer-clean-am: distclean-am maintainer-clean-generic mostlyclean: mostlyclean-am mostlyclean-am: mostlyclean-generic mostlyclean-libtool pdf: pdf-am pdf-am: ps: ps-am ps-am: uninstall-am: .MAKE: check-am install-am install-strip .PHONY: all all-am check check-TESTS check-am clean clean-generic \ clean-libtool distclean distclean-generic distclean-libtool \ distdir dvi dvi-am html html-am info info-am install \ install-am install-data install-data-am install-dvi \ install-dvi-am install-exec install-exec-am install-html \ install-html-am install-info install-info-am install-man \ install-pdf install-pdf-am install-ps install-ps-am \ install-strip installcheck installcheck-am installdirs \ maintainer-clean maintainer-clean-generic mostlyclean \ mostlyclean-generic mostlyclean-libtool pdf pdf-am ps ps-am \ uninstall uninstall-am wrapset.api.update: $(WRAPSET_TESTS_ENV) $(DEV_ENV) $(GUILE) -e update-api -s $(srcdir)/wrapset.scm %.check: % $(TESTS_ENVIRONMENT) $(srcdir)/$* # Tell versions [3.59,3.63) of GNU make to not export all variables. # Otherwise a system limit (for SysV at least) may be exceeded. .NOEXPORT: guile-gnome-platform-2.16.2/gtk/tests/gtk/wrapset.api0000644000175000017500000054365611671225671023113 0ustar00wingowingo00000000000000(module-api (version 1 0) ((gnome gobject generics) (uses-interfaces) (typed-exports (block generic ( )) (connect generic ( )) (connect-after generic ( )) (connected? generic ( )) (create-signal generic ( )) (disconnect generic ( )) (emit generic ( . )) (find-property generic ( )) (get generic ( )) (get-properties generic ()) (get-property-names generic ()) (get-signals generic ()) (invoke generic ( . )) (set generic ( ) ( ) ( ) ( . ) ( . ) ( ) ( . )) (unblock generic ( )))) ((gnome gtk) (uses-interfaces (gnome gw gdk) (gnome gw gtk)) (typed-exports ( class) (create-tag generic ( . )) (gtk-stock-id procedure (arity 1 0 #f)) (gtk-text-buffer-create-tag procedure (arity 2 0 #t)) (gtk-tree-or-list-store-set procedure (arity 2 0 #t)) (on-get-column-type generic) (on-get-flags generic ()) (on-get-iter generic) (on-get-n-columns generic) (on-get-path generic) (on-get-value generic) (on-iter-children generic) (on-iter-has-child generic) (on-iter-n-children generic) (on-iter-next generic) (on-iter-nth-child generic) (on-iter-parent generic))) ((gnome gw gdk) (uses-interfaces (gnome gw generics)) (typed-exports ( ) ( ) (gdk-atom-intern procedure (arity 0 0 #t)) (gdk-atom-name procedure (arity 0 0 #t)) (gdk-beep procedure (arity 0 0 #t)) (gdk-bitmap-create-from-data procedure (arity 0 0 #t)) (gdk-cairo-create procedure (arity 1 0 #f)) (gdk-cairo-rectangle procedure (arity 2 0 #f)) (gdk-cairo-region procedure (arity 2 0 #f)) (gdk-cairo-set-source-color procedure (arity 2 0 #f)) (gdk-cairo-set-source-pixbuf procedure (arity 4 0 #f)) (gdk-cairo-set-source-pixmap procedure (arity 4 0 #f)) (gdk-char-height procedure (arity 0 0 #t)) (gdk-char-measure procedure (arity 0 0 #t)) (gdk-char-width procedure (arity 0 0 #t)) (gdk-char-width-wc procedure (arity 0 0 #t)) (gdk-color-alloc procedure (arity 0 0 #t)) (gdk-color-black procedure (arity 0 0 #t)) (gdk-color-change procedure (arity 0 0 #t)) (gdk-color-copy procedure (arity 0 0 #t)) (gdk-color-parse procedure (arity 0 0 #t)) (gdk-color-white procedure (arity 0 0 #t)) (gdk-cursor-get-display procedure (arity 0 0 #t)) (gdk-cursor-get-image procedure (arity 0 0 #t)) (gdk-cursor-new procedure (arity 0 0 #t)) (gdk-cursor-new-for-display procedure (arity 0 0 #t)) (gdk-cursor-new-from-name procedure (arity 0 0 #t)) (gdk-cursor-new-from-pixbuf procedure (arity 0 0 #t)) (gdk-cursor-new-from-pixmap procedure (arity 0 0 #t)) (gdk-device-get-axis procedure (arity 2 0 #f)) (gdk-device-get-core-pointer procedure (arity 0 0 #t)) (gdk-device-set-axis-use procedure (arity 0 0 #t)) (gdk-device-set-key procedure (arity 0 0 #t)) (gdk-device-set-mode procedure (arity 0 0 #t)) (gdk-device-set-source procedure (arity 0 0 #t)) (gdk-devices-list procedure (arity 0 0 #f)) (gdk-display-beep procedure (arity 0 0 #t)) (gdk-display-close procedure (arity 0 0 #t)) (gdk-display-flush procedure (arity 0 0 #t)) (gdk-display-get-core-pointer procedure (arity 0 0 #t)) (gdk-display-get-default procedure (arity 0 0 #t)) (gdk-display-get-default-cursor-size procedure (arity 0 0 #t)) (gdk-display-get-default-group procedure (arity 0 0 #t)) (gdk-display-get-default-screen procedure (arity 0 0 #t)) (gdk-display-get-event procedure (arity 0 0 #t)) (gdk-display-get-maximal-cursor-size procedure (arity 1 0 #f)) (gdk-display-get-n-screens procedure (arity 0 0 #t)) (gdk-display-get-name procedure (arity 0 0 #t)) (gdk-display-get-screen procedure (arity 0 0 #t)) (gdk-display-get-window-at-pointer procedure (arity 1 0 #f)) (gdk-display-keyboard-ungrab procedure (arity 0 0 #t)) (gdk-display-list-devices procedure (arity 1 0 #f)) (gdk-display-manager-get procedure (arity 0 0 #t)) (gdk-display-manager-get-default-display procedure (arity 0 0 #t)) (gdk-display-manager-list-displays procedure (arity 1 0 #f)) (gdk-display-manager-set-default-display procedure (arity 0 0 #t)) (gdk-display-open procedure (arity 0 0 #t)) (gdk-display-peek-event procedure (arity 0 0 #t)) (gdk-display-pointer-is-grabbed procedure (arity 0 0 #t)) (gdk-display-pointer-ungrab procedure (arity 0 0 #t)) (gdk-display-put-event procedure (arity 0 0 #t)) (gdk-display-request-selection-notification procedure (arity 0 0 #t)) (gdk-display-set-double-click-distance procedure (arity 0 0 #t)) (gdk-display-set-double-click-time procedure (arity 0 0 #t)) (gdk-display-supports-clipboard-persistence procedure (arity 0 0 #t)) (gdk-display-supports-cursor-alpha procedure (arity 0 0 #t)) (gdk-display-supports-cursor-color procedure (arity 0 0 #t)) (gdk-display-supports-input-shapes procedure (arity 0 0 #t)) (gdk-display-supports-selection-notification procedure (arity 0 0 #t)) (gdk-display-supports-shapes procedure (arity 0 0 #t)) (gdk-display-sync procedure (arity 0 0 #t)) (gdk-display-warp-pointer procedure (arity 0 0 #t)) (gdk-drag-abort procedure (arity 0 0 #t)) (gdk-drag-context-new procedure (arity 0 0 #t)) (gdk-drag-drop procedure (arity 0 0 #t)) (gdk-drag-drop-succeeded procedure (arity 0 0 #t)) (gdk-drag-get-selection procedure (arity 0 0 #t)) (gdk-drag-motion procedure (arity 0 0 #t)) (gdk-drag-status procedure (arity 0 0 #t)) (gdk-draw-arc procedure (arity 0 0 #t)) (gdk-draw-drawable procedure (arity 0 0 #t)) (gdk-draw-glyphs procedure (arity 0 0 #t)) (gdk-draw-glyphs-transformed procedure (arity 0 0 #t)) (gdk-draw-image procedure (arity 0 0 #t)) (gdk-draw-layout procedure (arity 0 0 #t)) (gdk-draw-layout-line procedure (arity 0 0 #t)) (gdk-draw-layout-line-with-colors procedure (arity 0 0 #t)) (gdk-draw-layout-with-colors procedure (arity 0 0 #t)) (gdk-draw-line procedure (arity 0 0 #t)) (gdk-draw-pixbuf procedure (arity 0 0 #t)) (gdk-draw-point procedure (arity 0 0 #t)) (gdk-draw-rectangle procedure (arity 0 0 #t)) (gdk-draw-string procedure (arity 0 0 #t)) (gdk-drawable-copy-to-image procedure (arity 0 0 #t)) (gdk-drawable-get-clip-region procedure (arity 0 0 #t)) (gdk-drawable-get-colormap procedure (arity 0 0 #t)) (gdk-drawable-get-depth procedure (arity 0 0 #t)) (gdk-drawable-get-display procedure (arity 0 0 #t)) (gdk-drawable-get-image procedure (arity 0 0 #t)) (gdk-drawable-get-screen procedure (arity 0 0 #t)) (gdk-drawable-get-size procedure (arity 1 0 #f)) (gdk-drawable-get-visible-region procedure (arity 0 0 #t)) (gdk-drawable-get-visual procedure (arity 0 0 #t)) (gdk-drawable-set-colormap procedure (arity 0 0 #t)) (gdk-drop-finish procedure (arity 0 0 #t)) (gdk-drop-reply procedure (arity 0 0 #t)) (gdk-error-trap-pop procedure (arity 0 0 #t)) (gdk-error-trap-push procedure (arity 0 0 #t)) (gdk-event->vector procedure (arity 0 0 #t)) (gdk-event-copy procedure (arity 0 0 #t)) (gdk-event-get procedure (arity 0 0 #t)) (gdk-event-get-axis procedure (arity 2 0 #f)) (gdk-event-get-coords procedure (arity 1 0 #f)) (gdk-event-get-graphics-expose procedure (arity 0 0 #t)) (gdk-event-get-root-coords procedure (arity 1 0 #f)) (gdk-event-get-screen procedure (arity 0 0 #t)) (gdk-event-get-time procedure (arity 0 0 #t)) (gdk-event-peek procedure (arity 0 0 #t)) (gdk-event-put procedure (arity 0 0 #t)) (gdk-events-pending procedure (arity 0 0 #t)) (gdk-flush procedure (arity 0 0 #t)) (gdk-font-from-description procedure (arity 0 0 #t)) (gdk-font-id procedure (arity 0 0 #t)) (gdk-font-load procedure (arity 0 0 #t)) (gdk-fontset-load procedure (arity 0 0 #t)) (gdk-gc-copy procedure (arity 0 0 #t)) (gdk-gc-get-colormap procedure (arity 0 0 #t)) (gdk-gc-get-screen procedure (arity 0 0 #t)) (gdk-gc-new procedure (arity 0 0 #t)) (gdk-gc-offset procedure (arity 0 0 #t)) (gdk-gc-set-background procedure (arity 0 0 #t)) (gdk-gc-set-clip-mask procedure (arity 0 0 #t)) (gdk-gc-set-clip-origin procedure (arity 0 0 #t)) (gdk-gc-set-clip-rectangle procedure (arity 0 0 #t)) (gdk-gc-set-clip-region procedure (arity 0 0 #t)) (gdk-gc-set-colormap procedure (arity 0 0 #t)) (gdk-gc-set-exposures procedure (arity 0 0 #t)) (gdk-gc-set-fill procedure (arity 0 0 #t)) (gdk-gc-set-font procedure (arity 0 0 #t)) (gdk-gc-set-foreground procedure (arity 0 0 #t)) (gdk-gc-set-function procedure (arity 0 0 #t)) (gdk-gc-set-line-attributes procedure (arity 0 0 #t)) (gdk-gc-set-rgb-bg-color procedure (arity 0 0 #t)) (gdk-gc-set-rgb-fg-color procedure (arity 0 0 #t)) (gdk-gc-set-stipple procedure (arity 0 0 #t)) (gdk-gc-set-subwindow procedure (arity 0 0 #t)) (gdk-gc-set-tile procedure (arity 0 0 #t)) (gdk-gc-set-ts-origin procedure (arity 0 0 #t)) (gdk-get-default-root-window procedure (arity 0 0 #t)) (gdk-get-display procedure (arity 0 0 #t)) (gdk-get-display-arg-name procedure (arity 0 0 #t)) (gdk-get-program-class procedure (arity 0 0 #t)) (gdk-get-show-events procedure (arity 0 0 #t)) (gdk-get-use-xshm procedure (arity 0 0 #t)) (gdk-image-get procedure (arity 0 0 #t)) (gdk-image-get-colormap procedure (arity 0 0 #t)) (gdk-image-get-pixel procedure (arity 0 0 #t)) (gdk-image-new procedure (arity 0 0 #t)) (gdk-image-put-pixel procedure (arity 0 0 #t)) (gdk-image-set-colormap procedure (arity 0 0 #t)) (gdk-input-set-extension-events procedure (arity 0 0 #t)) (gdk-keyboard-grab procedure (arity 0 0 #t)) (gdk-keyboard-ungrab procedure (arity 0 0 #t)) (gdk-keymap-get-default procedure (arity 0 0 #t)) (gdk-keymap-get-direction procedure (arity 0 0 #t)) (gdk-keymap-get-for-display procedure (arity 0 0 #t)) (gdk-keyval-convert-case procedure (arity 1 0 #f)) (gdk-keyval-from-name procedure (arity 0 0 #t)) (gdk-keyval-is-lower procedure (arity 0 0 #t)) (gdk-keyval-is-upper procedure (arity 0 0 #t)) (gdk-keyval-name procedure (arity 0 0 #t)) (gdk-keyval-to-lower procedure (arity 0 0 #t)) (gdk-keyval-to-unicode procedure (arity 0 0 #t)) (gdk-keyval-to-upper procedure (arity 0 0 #t)) (gdk-list-visuals procedure (arity 0 0 #f)) (gdk-notify-startup-complete procedure (arity 0 0 #t)) (gdk-pango-attr-embossed-new procedure (arity 0 0 #t)) (gdk-pango-attr-stipple-new procedure (arity 0 0 #t)) (gdk-pango-context-get procedure (arity 0 0 #t)) (gdk-pango-context-get-for-screen procedure (arity 0 0 #t)) (gdk-pango-context-set-colormap procedure (arity 0 0 #t)) (gdk-pango-renderer-get-default procedure (arity 0 0 #t)) (gdk-pango-renderer-new procedure (arity 0 0 #t)) (gdk-pango-renderer-set-drawable procedure (arity 0 0 #t)) (gdk-pango-renderer-set-gc procedure (arity 0 0 #t)) (gdk-pango-renderer-set-override-color procedure (arity 0 0 #t)) (gdk-pango-renderer-set-stipple procedure (arity 0 0 #t)) (gdk-pixbuf-add-alpha procedure (arity 0 0 #t)) (gdk-pixbuf-animation-get-height procedure (arity 0 0 #t)) (gdk-pixbuf-animation-get-static-image procedure (arity 0 0 #t)) (gdk-pixbuf-animation-get-width procedure (arity 0 0 #t)) (gdk-pixbuf-animation-is-static-image procedure (arity 0 0 #t)) (gdk-pixbuf-animation-iter-get-delay-time procedure (arity 0 0 #t)) (gdk-pixbuf-animation-iter-get-pixbuf procedure (arity 0 0 #t)) (gdk-pixbuf-animation-iter-on-currently-loading-frame procedure (arity 0 0 #t)) (gdk-pixbuf-animation-new-from-file procedure (arity 1 0 #f)) (gdk-pixbuf-composite procedure (arity 0 0 #t)) (gdk-pixbuf-composite-color procedure (arity 0 0 #t)) (gdk-pixbuf-composite-color-simple procedure (arity 0 0 #t)) (gdk-pixbuf-copy-area procedure (arity 0 0 #t)) (gdk-pixbuf-error-quark procedure (arity 0 0 #t)) (gdk-pixbuf-fill procedure (arity 0 0 #t)) (gdk-pixbuf-flip procedure (arity 0 0 #t)) (gdk-pixbuf-get-bits-per-sample procedure (arity 0 0 #t)) (gdk-pixbuf-get-colorspace procedure (arity 0 0 #t)) (gdk-pixbuf-get-formats procedure (arity 0 0 #f)) (gdk-pixbuf-get-from-drawable procedure (arity 0 0 #t)) (gdk-pixbuf-get-from-image procedure (arity 0 0 #t)) (gdk-pixbuf-get-has-alpha procedure (arity 0 0 #t)) (gdk-pixbuf-get-height procedure (arity 0 0 #t)) (gdk-pixbuf-get-n-channels procedure (arity 0 0 #t)) (gdk-pixbuf-get-option procedure (arity 0 0 #t)) (gdk-pixbuf-get-rowstride procedure (arity 0 0 #t)) (gdk-pixbuf-get-width procedure (arity 0 0 #t)) (gdk-pixbuf-loader-close procedure (arity 1 0 #f)) (gdk-pixbuf-loader-get-animation procedure (arity 0 0 #t)) (gdk-pixbuf-loader-get-format procedure (arity 0 0 #t)) (gdk-pixbuf-loader-get-pixbuf procedure (arity 0 0 #t)) (gdk-pixbuf-loader-new procedure (arity 0 0 #t)) (gdk-pixbuf-loader-new-with-mime-type procedure (arity 1 0 #f)) (gdk-pixbuf-loader-new-with-type procedure (arity 1 0 #f)) (gdk-pixbuf-loader-set-size procedure (arity 0 0 #t)) (gdk-pixbuf-new procedure (arity 0 0 #t)) (gdk-pixbuf-new-from-file procedure (arity 1 0 #f)) (gdk-pixbuf-new-from-file-at-scale procedure (arity 4 0 #f)) (gdk-pixbuf-new-from-file-at-size procedure (arity 3 0 #f)) (gdk-pixbuf-new-subpixbuf procedure (arity 0 0 #t)) (gdk-pixbuf-render-threshold-alpha procedure (arity 0 0 #t)) (gdk-pixbuf-render-to-drawable procedure (arity 0 0 #t)) (gdk-pixbuf-render-to-drawable-alpha procedure (arity 0 0 #t)) (gdk-pixbuf-rotate-simple procedure (arity 0 0 #t)) (gdk-pixbuf-saturate-and-pixelate procedure (arity 0 0 #t)) (gdk-pixbuf-save-to-port procedure (arity 4 0 #f)) (gdk-pixbuf-scale procedure (arity 0 0 #t)) (gdk-pixbuf-scale-simple procedure (arity 0 0 #t)) (gdk-pixbuf-simple-anim-add-frame procedure (arity 0 0 #t)) (gdk-pixbuf-simple-anim-new procedure (arity 0 0 #t)) (gdk-pixmap-create-from-data procedure (arity 0 0 #t)) (gdk-pixmap-foreign-new-for-display procedure (arity 0 0 #t)) (gdk-pixmap-foreign-new-for-screen procedure (arity 0 0 #t)) (gdk-pixmap-lookup procedure (arity 0 0 #t)) (gdk-pixmap-new procedure (arity 0 0 #t)) (gdk-pointer-grab procedure (arity 0 0 #t)) (gdk-pointer-is-grabbed procedure (arity 0 0 #t)) (gdk-pointer-ungrab procedure (arity 0 0 #t)) (gdk-property-delete procedure (arity 0 0 #t)) (gdk-region-copy procedure (arity 0 0 #t)) (gdk-region-destroy procedure (arity 0 0 #t)) (gdk-region-empty procedure (arity 0 0 #t)) (gdk-region-equal procedure (arity 0 0 #t)) (gdk-region-intersect procedure (arity 0 0 #t)) (gdk-region-new procedure (arity 0 0 #t)) (gdk-region-offset procedure (arity 0 0 #t)) (gdk-region-point-in procedure (arity 0 0 #t)) (gdk-region-rect-in procedure (arity 0 0 #t)) (gdk-region-rectangle procedure (arity 0 0 #t)) (gdk-region-shrink procedure (arity 0 0 #t)) (gdk-region-subtract procedure (arity 0 0 #t)) (gdk-region-union procedure (arity 0 0 #t)) (gdk-region-union-with-rect procedure (arity 0 0 #t)) (gdk-region-xor procedure (arity 0 0 #t)) (gdk-rgb-colormap-ditherable procedure (arity 0 0 #t)) (gdk-rgb-ditherable procedure (arity 0 0 #t)) (gdk-rgb-gc-set-background procedure (arity 0 0 #t)) (gdk-rgb-gc-set-foreground procedure (arity 0 0 #t)) (gdk-rgb-get-colormap procedure (arity 0 0 #t)) (gdk-rgb-get-visual procedure (arity 0 0 #t)) (gdk-rgb-init procedure (arity 0 0 #t)) (gdk-rgb-set-install procedure (arity 0 0 #t)) (gdk-rgb-set-min-colors procedure (arity 0 0 #t)) (gdk-rgb-set-verbose procedure (arity 0 0 #t)) (gdk-rgb-xpixel-from-rgb procedure (arity 0 0 #t)) (gdk-screen-broadcast-client-message procedure (arity 0 0 #t)) (gdk-screen-get-active-window procedure (arity 0 0 #t)) (gdk-screen-get-default procedure (arity 0 0 #t)) (gdk-screen-get-default-colormap procedure (arity 0 0 #t)) (gdk-screen-get-display procedure (arity 0 0 #t)) (gdk-screen-get-font-options procedure (arity 1 0 #f)) (gdk-screen-get-height procedure (arity 0 0 #t)) (gdk-screen-get-height-mm procedure (arity 0 0 #t)) (gdk-screen-get-monitor-at-point procedure (arity 0 0 #t)) (gdk-screen-get-monitor-at-window procedure (arity 0 0 #t)) (gdk-screen-get-monitor-geometry procedure (arity 0 0 #t)) (gdk-screen-get-n-monitors procedure (arity 0 0 #t)) (gdk-screen-get-number procedure (arity 0 0 #t)) (gdk-screen-get-resolution procedure (arity 0 0 #t)) (gdk-screen-get-rgb-colormap procedure (arity 0 0 #t)) (gdk-screen-get-rgb-visual procedure (arity 0 0 #t)) (gdk-screen-get-rgba-colormap procedure (arity 0 0 #t)) (gdk-screen-get-rgba-visual procedure (arity 0 0 #t)) (gdk-screen-get-root-window procedure (arity 0 0 #t)) (gdk-screen-get-setting procedure (arity 0 0 #t)) (gdk-screen-get-system-colormap procedure (arity 0 0 #t)) (gdk-screen-get-system-visual procedure (arity 0 0 #t)) (gdk-screen-get-toplevel-windows procedure (arity 1 0 #f)) (gdk-screen-get-width procedure (arity 0 0 #t)) (gdk-screen-get-width-mm procedure (arity 0 0 #t)) (gdk-screen-get-window-stack procedure (arity 1 0 #f)) (gdk-screen-height procedure (arity 0 0 #t)) (gdk-screen-height-mm procedure (arity 0 0 #t)) (gdk-screen-is-composited procedure (arity 0 0 #t)) (gdk-screen-list-visuals procedure (arity 1 0 #f)) (gdk-screen-make-display-name procedure (arity 0 0 #t)) (gdk-screen-set-default-colormap procedure (arity 0 0 #t)) (gdk-screen-set-font-options procedure (arity 2 0 #f)) (gdk-screen-set-resolution procedure (arity 0 0 #t)) (gdk-screen-width procedure (arity 0 0 #t)) (gdk-screen-width-mm procedure (arity 0 0 #t)) (gdk-selection-convert procedure (arity 0 0 #t)) (gdk-selection-owner-get procedure (arity 0 0 #t)) (gdk-selection-owner-get-for-display procedure (arity 0 0 #t)) (gdk-selection-owner-set procedure (arity 0 0 #t)) (gdk-selection-owner-set-for-display procedure (arity 0 0 #t)) (gdk-selection-send-notify procedure (arity 0 0 #t)) (gdk-selection-send-notify-for-display procedure (arity 0 0 #t)) (gdk-set-double-click-time procedure (arity 0 0 #t)) (gdk-set-locale procedure (arity 0 0 #t)) (gdk-set-program-class procedure (arity 0 0 #t)) (gdk-set-show-events procedure (arity 0 0 #t)) (gdk-set-sm-client-id procedure (arity 0 0 #t)) (gdk-set-use-xshm procedure (arity 0 0 #t)) (gdk-spawn-command-line-on-screen procedure (arity 2 0 #f)) (gdk-string-extents procedure (arity 2 0 #f)) (gdk-string-height procedure (arity 0 0 #t)) (gdk-string-measure procedure (arity 0 0 #t)) (gdk-string-width procedure (arity 0 0 #t)) (gdk-text-height procedure (arity 0 0 #t)) (gdk-text-measure procedure (arity 0 0 #t)) (gdk-text-width procedure (arity 0 0 #t)) (gdk-threads-enter procedure (arity 0 0 #t)) (gdk-threads-init procedure (arity 0 0 #t)) (gdk-threads-leave procedure (arity 0 0 #t)) (gdk-unicode-to-keyval procedure (arity 0 0 #t)) (gdk-visual-get-best procedure (arity 0 0 #t)) (gdk-visual-get-best-depth procedure (arity 0 0 #t)) (gdk-visual-get-best-type procedure (arity 0 0 #t)) (gdk-visual-get-best-with-both procedure (arity 0 0 #t)) (gdk-visual-get-best-with-depth procedure (arity 0 0 #t)) (gdk-visual-get-best-with-type procedure (arity 0 0 #t)) (gdk-visual-get-screen procedure (arity 0 0 #t)) (gdk-visual-get-system procedure (arity 0 0 #t)) (gdk-window-at-pointer procedure (arity 0 0 #f)) (gdk-window-begin-move-drag procedure (arity 0 0 #t)) (gdk-window-begin-paint-rect procedure (arity 0 0 #t)) (gdk-window-begin-paint-region procedure (arity 0 0 #t)) (gdk-window-begin-resize-drag procedure (arity 0 0 #t)) (gdk-window-clear procedure (arity 0 0 #t)) (gdk-window-clear-area procedure (arity 0 0 #t)) (gdk-window-clear-area-e procedure (arity 0 0 #t)) (gdk-window-configure-finished procedure (arity 0 0 #t)) (gdk-window-deiconify procedure (arity 0 0 #t)) (gdk-window-destroy procedure (arity 0 0 #t)) (gdk-window-enable-synchronized-configure procedure (arity 0 0 #t)) (gdk-window-end-paint procedure (arity 0 0 #t)) (gdk-window-focus procedure (arity 0 0 #t)) (gdk-window-foreign-new-for-display procedure (arity 0 0 #t)) (gdk-window-freeze-updates procedure (arity 0 0 #t)) (gdk-window-fullscreen procedure (arity 0 0 #t)) (gdk-window-get-children procedure (arity 1 0 #f)) (gdk-window-get-deskrelative-origin procedure (arity 1 0 #f)) (gdk-window-get-events procedure (arity 0 0 #t)) (gdk-window-get-geometry procedure (arity 1 0 #f)) (gdk-window-get-group procedure (arity 0 0 #t)) (gdk-window-get-origin procedure (arity 1 0 #f)) (gdk-window-get-parent procedure (arity 0 0 #t)) (gdk-window-get-position procedure (arity 1 0 #f)) (gdk-window-get-root-origin procedure (arity 1 0 #f)) (gdk-window-get-state procedure (arity 0 0 #t)) (gdk-window-get-toplevel procedure (arity 0 0 #t)) (gdk-window-get-toplevels procedure (arity 0 0 #f)) (gdk-window-get-type-hint procedure (arity 0 0 #t)) (gdk-window-get-update-area procedure (arity 0 0 #t)) (gdk-window-get-window-type procedure (arity 0 0 #t)) (gdk-window-hide procedure (arity 0 0 #t)) (gdk-window-iconify procedure (arity 0 0 #t)) (gdk-window-input-shape-combine-mask procedure (arity 0 0 #t)) (gdk-window-input-shape-combine-region procedure (arity 0 0 #t)) (gdk-window-invalidate-rect procedure (arity 0 0 #t)) (gdk-window-invalidate-region procedure (arity 0 0 #t)) (gdk-window-is-viewable procedure (arity 0 0 #t)) (gdk-window-is-visible procedure (arity 0 0 #t)) (gdk-window-lookup procedure (arity 0 0 #t)) (gdk-window-lower procedure (arity 0 0 #t)) (gdk-window-maximize procedure (arity 0 0 #t)) (gdk-window-merge-child-input-shapes procedure (arity 0 0 #t)) (gdk-window-merge-child-shapes procedure (arity 0 0 #t)) (gdk-window-move procedure (arity 0 0 #t)) (gdk-window-move-region procedure (arity 0 0 #t)) (gdk-window-move-resize procedure (arity 0 0 #t)) (gdk-window-process-all-updates procedure (arity 0 0 #t)) (gdk-window-process-updates procedure (arity 0 0 #t)) (gdk-window-raise procedure (arity 0 0 #t)) (gdk-window-register-dnd procedure (arity 0 0 #t)) (gdk-window-reparent procedure (arity 0 0 #t)) (gdk-window-resize procedure (arity 0 0 #t)) (gdk-window-scroll procedure (arity 0 0 #t)) (gdk-window-set-accept-focus procedure (arity 0 0 #t)) (gdk-window-set-back-pixmap procedure (arity 0 0 #t)) (gdk-window-set-background procedure (arity 0 0 #t)) (gdk-window-set-child-input-shapes procedure (arity 0 0 #t)) (gdk-window-set-child-shapes procedure (arity 0 0 #t)) (gdk-window-set-cursor procedure (arity 0 0 #t)) (gdk-window-set-debug-updates procedure (arity 0 0 #t)) (gdk-window-set-decorations procedure (arity 0 0 #t)) (gdk-window-set-events procedure (arity 0 0 #t)) (gdk-window-set-focus-on-map procedure (arity 0 0 #t)) (gdk-window-set-functions procedure (arity 0 0 #t)) (gdk-window-set-group procedure (arity 0 0 #t)) (gdk-window-set-hints procedure (arity 0 0 #t)) (gdk-window-set-icon procedure (arity 0 0 #t)) (gdk-window-set-icon-list procedure (arity 2 0 #f)) (gdk-window-set-icon-name procedure (arity 0 0 #t)) (gdk-window-set-keep-above procedure (arity 0 0 #t)) (gdk-window-set-keep-below procedure (arity 0 0 #t)) (gdk-window-set-modal-hint procedure (arity 0 0 #t)) (gdk-window-set-override-redirect procedure (arity 0 0 #t)) (gdk-window-set-role procedure (arity 0 0 #t)) (gdk-window-set-skip-pager-hint procedure (arity 0 0 #t)) (gdk-window-set-skip-taskbar-hint procedure (arity 0 0 #t)) (gdk-window-set-static-gravities procedure (arity 0 0 #t)) (gdk-window-set-title procedure (arity 0 0 #t)) (gdk-window-set-transient-for procedure (arity 0 0 #t)) (gdk-window-set-type-hint procedure (arity 0 0 #t)) (gdk-window-set-urgency-hint procedure (arity 0 0 #t)) (gdk-window-shape-combine-mask procedure (arity 0 0 #t)) (gdk-window-shape-combine-region procedure (arity 0 0 #t)) (gdk-window-show procedure (arity 0 0 #t)) (gdk-window-show-unraised procedure (arity 0 0 #t)) (gdk-window-stick procedure (arity 0 0 #t)) (gdk-window-thaw-updates procedure (arity 0 0 #t)) (gdk-window-unfullscreen procedure (arity 0 0 #t)) (gdk-window-unmaximize procedure (arity 0 0 #t)) (gdk-window-unstick procedure (arity 0 0 #t)) (gdk-window-withdraw procedure (arity 0 0 #t)))) ((gnome gw generics) (uses-interfaces (gnome gobject generics)) (typed-exports)) ((gnome gw gtk) (uses-interfaces (gnome gw generics)) (typed-exports (%gtk-message-dialog-new procedure (arity 1 4 #f)) ( ) ( class) ( class) ( ) ( class) ( class) ( class) ( class) (gtk-about-dialog-get-copyright procedure (arity 0 0 #t)) (gtk-about-dialog-get-license procedure (arity 0 0 #t)) (gtk-about-dialog-get-logo procedure (arity 0 0 #t)) (gtk-about-dialog-get-logo-icon-name procedure (arity 0 0 #t)) (gtk-about-dialog-get-name procedure (arity 0 0 #t)) (gtk-about-dialog-get-version procedure (arity 0 0 #t)) (gtk-about-dialog-get-website procedure (arity 0 0 #t)) (gtk-about-dialog-get-website-label procedure (arity 0 0 #t)) (gtk-about-dialog-get-wrap-license procedure (arity 0 0 #t)) (gtk-about-dialog-new procedure (arity 0 0 #t)) (gtk-about-dialog-set-copyright procedure (arity 0 0 #t)) (gtk-about-dialog-set-license procedure (arity 0 0 #t)) (gtk-about-dialog-set-logo procedure (arity 0 0 #t)) (gtk-about-dialog-set-logo-icon-name procedure (arity 0 0 #t)) (gtk-about-dialog-set-name procedure (arity 0 0 #t)) (gtk-about-dialog-set-version procedure (arity 0 0 #t)) (gtk-about-dialog-set-website procedure (arity 0 0 #t)) (gtk-about-dialog-set-website-label procedure (arity 0 0 #t)) (gtk-about-dialog-set-wrap-license procedure (arity 0 0 #t)) (gtk-accel-group-activate procedure (arity 0 0 #t)) (gtk-accel-group-connect procedure (arity 0 0 #t)) (gtk-accel-group-connect-by-path procedure (arity 0 0 #t)) (gtk-accel-group-disconnect procedure (arity 0 0 #t)) (gtk-accel-group-disconnect-key procedure (arity 0 0 #t)) (gtk-accel-group-from-accel-closure procedure (arity 0 0 #t)) (gtk-accel-group-lock procedure (arity 0 0 #t)) (gtk-accel-group-new procedure (arity 0 0 #t)) (gtk-accel-group-unlock procedure (arity 0 0 #t)) (gtk-accel-groups-activate procedure (arity 0 0 #t)) (gtk-accel-groups-from-object procedure (arity 1 0 #f)) (gtk-accel-label-get-accel-widget procedure (arity 0 0 #t)) (gtk-accel-label-get-accel-width procedure (arity 0 0 #t)) (gtk-accel-label-new procedure (arity 0 0 #t)) (gtk-accel-label-refetch procedure (arity 0 0 #t)) (gtk-accel-label-set-accel-closure procedure (arity 0 0 #t)) (gtk-accel-label-set-accel-widget procedure (arity 0 0 #t)) (gtk-accel-map-add-entry procedure (arity 0 0 #t)) (gtk-accel-map-add-filter procedure (arity 0 0 #t)) (gtk-accel-map-change-entry procedure (arity 0 0 #t)) (gtk-accel-map-get procedure (arity 0 0 #t)) (gtk-accel-map-load procedure (arity 0 0 #t)) (gtk-accel-map-load-fd procedure (arity 0 0 #t)) (gtk-accel-map-lock-path procedure (arity 0 0 #t)) (gtk-accel-map-save procedure (arity 0 0 #t)) (gtk-accel-map-save-fd procedure (arity 0 0 #t)) (gtk-accel-map-unlock-path procedure (arity 0 0 #t)) (gtk-accelerator-get-default-mod-mask procedure (arity 0 0 #t)) (gtk-accelerator-get-label procedure (arity 0 0 #t)) (gtk-accelerator-name procedure (arity 0 0 #t)) (gtk-accelerator-set-default-mod-mask procedure (arity 0 0 #t)) (gtk-accelerator-valid procedure (arity 0 0 #t)) (gtk-accessible-connect-widget-destroyed procedure (arity 0 0 #t)) (gtk-action-activate procedure (arity 0 0 #t)) (gtk-action-block-activate-from procedure (arity 0 0 #t)) (gtk-action-connect-accelerator procedure (arity 0 0 #t)) (gtk-action-connect-proxy procedure (arity 0 0 #t)) (gtk-action-create-icon procedure (arity 0 0 #t)) (gtk-action-create-menu-item procedure (arity 0 0 #t)) (gtk-action-create-tool-item procedure (arity 0 0 #t)) (gtk-action-disconnect-accelerator procedure (arity 0 0 #t)) (gtk-action-disconnect-proxy procedure (arity 0 0 #t)) (gtk-action-get-accel-closure procedure (arity 0 0 #t)) (gtk-action-get-accel-path procedure (arity 0 0 #t)) (gtk-action-get-name procedure (arity 0 0 #t)) (gtk-action-get-proxies procedure (arity 1 0 #f)) (gtk-action-get-sensitive procedure (arity 0 0 #t)) (gtk-action-get-visible procedure (arity 0 0 #t)) (gtk-action-group-add-action procedure (arity 0 0 #t)) (gtk-action-group-add-action-with-accel procedure (arity 0 0 #t)) (gtk-action-group-add-actions procedure (arity 0 0 #t)) (gtk-action-group-add-radio-actions procedure (arity 0 0 #t)) (gtk-action-group-add-toggle-actions procedure (arity 0 0 #t)) (gtk-action-group-get-action procedure (arity 0 0 #t)) (gtk-action-group-get-name procedure (arity 0 0 #t)) (gtk-action-group-get-sensitive procedure (arity 0 0 #t)) (gtk-action-group-get-visible procedure (arity 0 0 #t)) (gtk-action-group-list-actions procedure (arity 1 0 #f)) (gtk-action-group-new procedure (arity 0 0 #t)) (gtk-action-group-remove-action procedure (arity 0 0 #t)) (gtk-action-group-set-sensitive procedure (arity 0 0 #t)) (gtk-action-group-set-translation-domain procedure (arity 0 0 #t)) (gtk-action-group-set-visible procedure (arity 0 0 #t)) (gtk-action-group-translate-string procedure (arity 0 0 #t)) (gtk-action-is-sensitive procedure (arity 0 0 #t)) (gtk-action-is-visible procedure (arity 0 0 #t)) (gtk-action-new procedure (arity 0 0 #t)) (gtk-action-set-accel-group procedure (arity 0 0 #t)) (gtk-action-set-accel-path procedure (arity 0 0 #t)) (gtk-action-set-sensitive procedure (arity 0 0 #t)) (gtk-action-set-visible procedure (arity 0 0 #t)) (gtk-action-unblock-activate-from procedure (arity 0 0 #t)) (gtk-adjustment-changed procedure (arity 0 0 #t)) (gtk-adjustment-clamp-page procedure (arity 0 0 #t)) (gtk-adjustment-get-value procedure (arity 0 0 #t)) (gtk-adjustment-new procedure (arity 0 6 #f)) (gtk-adjustment-set-value procedure (arity 0 0 #t)) (gtk-adjustment-value-changed procedure (arity 0 0 #t)) (gtk-alignment-get-padding procedure (arity 1 0 #f)) (gtk-alignment-new procedure (arity 0 4 #f)) (gtk-alignment-set procedure (arity 0 0 #t)) (gtk-alignment-set-padding procedure (arity 0 0 #t)) (gtk-alternative-dialog-button-order procedure (arity 0 0 #t)) (gtk-arrow-new procedure (arity 0 0 #t)) (gtk-arrow-set procedure (arity 0 0 #t)) (gtk-aspect-frame-new procedure (arity 0 5 #f)) (gtk-aspect-frame-set procedure (arity 1 4 #f)) (gtk-assistant-add-action-widget procedure (arity 0 0 #t)) (gtk-assistant-append-page procedure (arity 0 0 #t)) (gtk-assistant-get-current-page procedure (arity 0 0 #t)) (gtk-assistant-get-n-pages procedure (arity 0 0 #t)) (gtk-assistant-get-nth-page procedure (arity 0 0 #t)) (gtk-assistant-get-page-complete procedure (arity 0 0 #t)) (gtk-assistant-get-page-header-image procedure (arity 0 0 #t)) (gtk-assistant-get-page-side-image procedure (arity 0 0 #t)) (gtk-assistant-get-page-title procedure (arity 0 0 #t)) (gtk-assistant-get-page-type procedure (arity 0 0 #t)) (gtk-assistant-insert-page procedure (arity 0 0 #t)) (gtk-assistant-new procedure (arity 0 0 #t)) (gtk-assistant-prepend-page procedure (arity 0 0 #t)) (gtk-assistant-remove-action-widget procedure (arity 0 0 #t)) (gtk-assistant-set-current-page procedure (arity 0 0 #t)) (gtk-assistant-set-page-complete procedure (arity 0 0 #t)) (gtk-assistant-set-page-header-image procedure (arity 0 0 #t)) (gtk-assistant-set-page-side-image procedure (arity 0 0 #t)) (gtk-assistant-set-page-title procedure (arity 0 0 #t)) (gtk-assistant-set-page-type procedure (arity 0 0 #t)) (gtk-assistant-update-buttons-state procedure (arity 0 0 #t)) (gtk-bin-get-child procedure (arity 0 0 #t)) (gtk-border-copy procedure (arity 0 0 #t)) (gtk-border-free procedure (arity 0 0 #t)) (gtk-box-get-homogeneous procedure (arity 0 0 #t)) (gtk-box-get-spacing procedure (arity 0 0 #t)) (gtk-box-pack-end procedure (arity 2 3 #f)) (gtk-box-pack-end-defaults procedure (arity 0 0 #t)) (gtk-box-pack-start procedure (arity 2 3 #f)) (gtk-box-pack-start-defaults procedure (arity 0 0 #t)) (gtk-box-reorder-child procedure (arity 0 0 #t)) (gtk-box-set-child-packing procedure (arity 0 0 #t)) (gtk-box-set-homogeneous procedure (arity 0 0 #t)) (gtk-box-set-spacing procedure (arity 0 0 #t)) (gtk-button-box-get-child-secondary procedure (arity 0 0 #t)) (gtk-button-box-get-layout procedure (arity 0 0 #t)) (gtk-button-box-set-child-secondary procedure (arity 0 0 #t)) (gtk-button-box-set-layout procedure (arity 0 0 #t)) (gtk-button-clicked procedure (arity 0 0 #t)) (gtk-button-enter procedure (arity 0 0 #t)) (gtk-button-get-alignment procedure (arity 1 0 #f)) (gtk-button-get-focus-on-click procedure (arity 0 0 #t)) (gtk-button-get-image procedure (arity 0 0 #t)) (gtk-button-get-image-position procedure (arity 0 0 #t)) (gtk-button-get-label procedure (arity 0 0 #t)) (gtk-button-get-relief procedure (arity 0 0 #t)) (gtk-button-get-use-stock procedure (arity 0 0 #t)) (gtk-button-get-use-underline procedure (arity 0 0 #t)) (gtk-button-leave procedure (arity 0 0 #t)) (gtk-button-new procedure (arity 0 0 #t)) (gtk-button-new-from-stock procedure (arity 0 0 #t)) (gtk-button-new-with-label procedure (arity 0 0 #t)) (gtk-button-new-with-mnemonic procedure (arity 0 0 #t)) (gtk-button-pressed procedure (arity 0 0 #t)) (gtk-button-released procedure (arity 0 0 #t)) (gtk-button-set-alignment procedure (arity 0 0 #t)) (gtk-button-set-focus-on-click procedure (arity 0 0 #t)) (gtk-button-set-image procedure (arity 0 0 #t)) (gtk-button-set-image-position procedure (arity 0 0 #t)) (gtk-button-set-label procedure (arity 0 0 #t)) (gtk-button-set-relief procedure (arity 0 0 #t)) (gtk-button-set-use-stock procedure (arity 0 0 #t)) (gtk-button-set-use-underline procedure (arity 0 0 #t)) (gtk-calendar-clear-marks procedure (arity 0 0 #t)) (gtk-calendar-freeze procedure (arity 0 0 #t)) (gtk-calendar-get-date procedure (arity 1 0 #f)) (gtk-calendar-get-display-options procedure (arity 0 0 #t)) (gtk-calendar-mark-day procedure (arity 0 0 #t)) (gtk-calendar-new procedure (arity 0 0 #t)) (gtk-calendar-select-day procedure (arity 0 0 #t)) (gtk-calendar-select-month procedure (arity 0 0 #t)) (gtk-calendar-set-display-options procedure (arity 0 0 #t)) (gtk-calendar-thaw procedure (arity 0 0 #t)) (gtk-calendar-unmark-day procedure (arity 0 0 #t)) (gtk-cell-editable-editing-done procedure (arity 0 0 #t)) (gtk-cell-editable-remove-widget procedure (arity 0 0 #t)) (gtk-cell-editable-start-editing procedure (arity 0 0 #t)) (gtk-cell-layout-add-attribute procedure (arity 0 0 #t)) (gtk-cell-layout-clear procedure (arity 0 0 #t)) (gtk-cell-layout-clear-attributes procedure (arity 0 0 #t)) (gtk-cell-layout-pack-end procedure (arity 0 0 #t)) (gtk-cell-layout-pack-start procedure (arity 0 0 #t)) (gtk-cell-layout-reorder procedure (arity 0 0 #t)) (gtk-cell-renderer-accel-new procedure (arity 0 0 #t)) (gtk-cell-renderer-activate procedure (arity 0 0 #t)) (gtk-cell-renderer-combo-new procedure (arity 0 0 #t)) (gtk-cell-renderer-editing-canceled procedure (arity 0 0 #t)) (gtk-cell-renderer-get-fixed-size procedure (arity 1 0 #f)) (gtk-cell-renderer-pixbuf-new procedure (arity 0 0 #t)) (gtk-cell-renderer-progress-new procedure (arity 0 0 #t)) (gtk-cell-renderer-render procedure (arity 0 0 #t)) (gtk-cell-renderer-set-fixed-size procedure (arity 0 0 #t)) (gtk-cell-renderer-spin-new procedure (arity 0 0 #t)) (gtk-cell-renderer-start-editing procedure (arity 0 0 #t)) (gtk-cell-renderer-stop-editing procedure (arity 0 0 #t)) (gtk-cell-renderer-text-new procedure (arity 0 0 #t)) (gtk-cell-renderer-text-set-fixed-height-from-font procedure (arity 0 0 #t)) (gtk-cell-renderer-toggle-get-active procedure (arity 0 0 #t)) (gtk-cell-renderer-toggle-get-radio procedure (arity 0 0 #t)) (gtk-cell-renderer-toggle-new procedure (arity 0 0 #t)) (gtk-cell-renderer-toggle-set-active procedure (arity 0 0 #t)) (gtk-cell-renderer-toggle-set-radio procedure (arity 0 0 #t)) (gtk-cell-view-get-cell-renderers procedure (arity 1 0 #f)) (gtk-cell-view-get-displayed-row procedure (arity 0 0 #t)) (gtk-cell-view-get-size-of-row procedure (arity 0 0 #t)) (gtk-cell-view-new procedure (arity 0 0 #t)) (gtk-cell-view-new-with-markup procedure (arity 0 0 #t)) (gtk-cell-view-new-with-pixbuf procedure (arity 0 0 #t)) (gtk-cell-view-new-with-text procedure (arity 0 0 #t)) (gtk-cell-view-set-background-color procedure (arity 0 0 #t)) (gtk-cell-view-set-displayed-row procedure (arity 0 0 #t)) (gtk-cell-view-set-model procedure (arity 0 0 #t)) (gtk-check-button-new procedure (arity 0 0 #t)) (gtk-check-button-new-with-label procedure (arity 0 0 #t)) (gtk-check-button-new-with-mnemonic procedure (arity 0 0 #t)) (gtk-check-menu-item-get-active procedure (arity 0 0 #t)) (gtk-check-menu-item-get-draw-as-radio procedure (arity 0 0 #t)) (gtk-check-menu-item-get-inconsistent procedure (arity 0 0 #t)) (gtk-check-menu-item-new procedure (arity 0 0 #t)) (gtk-check-menu-item-new-with-label procedure (arity 0 0 #t)) (gtk-check-menu-item-new-with-mnemonic procedure (arity 0 0 #t)) (gtk-check-menu-item-set-active procedure (arity 0 0 #t)) (gtk-check-menu-item-set-draw-as-radio procedure (arity 0 0 #t)) (gtk-check-menu-item-set-inconsistent procedure (arity 0 0 #t)) (gtk-check-menu-item-toggled procedure (arity 0 0 #t)) (gtk-check-version procedure (arity 0 0 #t)) (gtk-clipboard-clear procedure (arity 0 0 #t)) (gtk-clipboard-get procedure (arity 0 0 #t)) (gtk-clipboard-get-display procedure (arity 0 0 #t)) (gtk-clipboard-get-for-display procedure (arity 0 0 #t)) (gtk-clipboard-get-owner procedure (arity 0 0 #t)) (gtk-clipboard-set-image procedure (arity 0 0 #t)) (gtk-clipboard-set-text procedure (arity 0 0 #t)) (gtk-clipboard-store procedure (arity 0 0 #t)) (gtk-clipboard-wait-for-contents procedure (arity 0 0 #t)) (gtk-clipboard-wait-for-image procedure (arity 0 0 #t)) (gtk-clipboard-wait-for-text procedure (arity 0 0 #t)) (gtk-clipboard-wait-is-image-available procedure (arity 0 0 #t)) (gtk-clipboard-wait-is-rich-text-available procedure (arity 0 0 #t)) (gtk-clipboard-wait-is-target-available procedure (arity 0 0 #t)) (gtk-clipboard-wait-is-text-available procedure (arity 0 0 #t)) (gtk-color-button-get-alpha procedure (arity 0 0 #t)) (gtk-color-button-get-color procedure (arity 0 0 #t)) (gtk-color-button-get-title procedure (arity 0 0 #t)) (gtk-color-button-get-use-alpha procedure (arity 0 0 #t)) (gtk-color-button-new procedure (arity 0 0 #t)) (gtk-color-button-new-with-color procedure (arity 0 0 #t)) (gtk-color-button-set-alpha procedure (arity 0 0 #t)) (gtk-color-button-set-color procedure (arity 0 0 #t)) (gtk-color-button-set-title procedure (arity 0 0 #t)) (gtk-color-button-set-use-alpha procedure (arity 0 0 #t)) (gtk-color-selection-dialog-get-cancel-button procedure (arity 0 0 #t)) (gtk-color-selection-dialog-get-colorsel procedure (arity 0 0 #t)) (gtk-color-selection-dialog-get-help-button procedure (arity 0 0 #t)) (gtk-color-selection-dialog-get-ok-button procedure (arity 0 0 #t)) (gtk-color-selection-dialog-new procedure (arity 0 0 #t)) (gtk-color-selection-get-current-alpha procedure (arity 0 0 #t)) (gtk-color-selection-get-current-color procedure (arity 0 0 #t)) (gtk-color-selection-get-has-opacity-control procedure (arity 0 0 #t)) (gtk-color-selection-get-has-palette procedure (arity 0 0 #t)) (gtk-color-selection-get-previous-alpha procedure (arity 0 0 #t)) (gtk-color-selection-get-previous-color procedure (arity 0 0 #t)) (gtk-color-selection-is-adjusting procedure (arity 0 0 #t)) (gtk-color-selection-new procedure (arity 0 0 #t)) (gtk-color-selection-palette-to-string procedure (arity 0 0 #t)) (gtk-color-selection-set-current-alpha procedure (arity 0 0 #t)) (gtk-color-selection-set-current-color procedure (arity 0 0 #t)) (gtk-color-selection-set-has-opacity-control procedure (arity 0 0 #t)) (gtk-color-selection-set-has-palette procedure (arity 0 0 #t)) (gtk-color-selection-set-previous-alpha procedure (arity 0 0 #t)) (gtk-color-selection-set-previous-color procedure (arity 0 0 #t)) (gtk-combo-box-append-text procedure (arity 0 0 #t)) (gtk-combo-box-entry-get-text-column procedure (arity 0 0 #t)) (gtk-combo-box-entry-new procedure (arity 0 0 #t)) (gtk-combo-box-entry-new-text procedure (arity 0 0 #t)) (gtk-combo-box-entry-new-with-model procedure (arity 0 0 #t)) (gtk-combo-box-entry-set-text-column procedure (arity 0 0 #t)) (gtk-combo-box-get-active procedure (arity 0 0 #t)) (gtk-combo-box-get-active-iter procedure (arity 0 0 #t)) (gtk-combo-box-get-active-text procedure (arity 0 0 #t)) (gtk-combo-box-get-add-tearoffs procedure (arity 0 0 #t)) (gtk-combo-box-get-column-span-column procedure (arity 0 0 #t)) (gtk-combo-box-get-focus-on-click procedure (arity 0 0 #t)) (gtk-combo-box-get-model procedure (arity 0 0 #t)) (gtk-combo-box-get-popup-accessible procedure (arity 0 0 #t)) (gtk-combo-box-get-row-span-column procedure (arity 0 0 #t)) (gtk-combo-box-get-title procedure (arity 0 0 #t)) (gtk-combo-box-get-wrap-width procedure (arity 0 0 #t)) (gtk-combo-box-insert-text procedure (arity 0 0 #t)) (gtk-combo-box-new procedure (arity 0 0 #t)) (gtk-combo-box-new-text procedure (arity 0 0 #t)) (gtk-combo-box-new-with-model procedure (arity 0 0 #t)) (gtk-combo-box-popdown procedure (arity 0 0 #t)) (gtk-combo-box-popup procedure (arity 0 0 #t)) (gtk-combo-box-prepend-text procedure (arity 0 0 #t)) (gtk-combo-box-remove-text procedure (arity 0 0 #t)) (gtk-combo-box-set-active procedure (arity 0 0 #t)) (gtk-combo-box-set-active-iter procedure (arity 0 0 #t)) (gtk-combo-box-set-add-tearoffs procedure (arity 0 0 #t)) (gtk-combo-box-set-column-span-column procedure (arity 0 0 #t)) (gtk-combo-box-set-focus-on-click procedure (arity 0 0 #t)) (gtk-combo-box-set-model procedure (arity 0 0 #t)) (gtk-combo-box-set-row-span-column procedure (arity 0 0 #t)) (gtk-combo-box-set-title procedure (arity 0 0 #t)) (gtk-combo-box-set-wrap-width procedure (arity 0 0 #t)) (gtk-container-add procedure (arity 0 0 #t)) (gtk-container-check-resize procedure (arity 0 0 #t)) (gtk-container-child-get-property procedure (arity 0 0 #t)) (gtk-container-child-set-property procedure (arity 0 0 #t)) (gtk-container-child-type procedure (arity 1 0 #f)) (gtk-container-get-border-width procedure (arity 0 0 #t)) (gtk-container-get-children procedure (arity 1 0 #f)) (gtk-container-get-focus-hadjustment procedure (arity 0 0 #t)) (gtk-container-get-focus-vadjustment procedure (arity 0 0 #t)) (gtk-container-get-resize-mode procedure (arity 0 0 #t)) (gtk-container-propagate-expose procedure (arity 0 0 #t)) (gtk-container-remove procedure (arity 0 0 #t)) (gtk-container-resize-children procedure (arity 0 0 #t)) (gtk-container-set-border-width procedure (arity 0 0 #t)) (gtk-container-set-focus-chain procedure (arity 2 0 #f)) (gtk-container-set-focus-child procedure (arity 0 0 #t)) (gtk-container-set-focus-hadjustment procedure (arity 0 0 #t)) (gtk-container-set-focus-vadjustment procedure (arity 0 0 #t)) (gtk-container-set-reallocate-redraws procedure (arity 0 0 #t)) (gtk-container-set-resize-mode procedure (arity 0 0 #t)) (gtk-container-unset-focus-chain procedure (arity 0 0 #t)) (gtk-curve-new procedure (arity 0 0 #t)) (gtk-curve-reset procedure (arity 0 0 #t)) (gtk-curve-set-gamma procedure (arity 0 0 #t)) (gtk-curve-set-range procedure (arity 0 0 #t)) (gtk-dialog-add-action-widget procedure (arity 0 0 #t)) (gtk-dialog-add-button procedure (arity 0 0 #t)) (gtk-dialog-get-action-area procedure (arity 0 0 #t)) (gtk-dialog-get-has-separator procedure (arity 0 0 #t)) (gtk-dialog-get-response-for-widget procedure (arity 0 0 #t)) (gtk-dialog-get-vbox procedure (arity 0 0 #t)) (gtk-dialog-response procedure (arity 0 0 #t)) (gtk-dialog-run procedure (arity 0 0 #t)) (gtk-dialog-set-default-response procedure (arity 0 0 #t)) (gtk-dialog-set-has-separator procedure (arity 0 0 #t)) (gtk-dialog-set-response-sensitive procedure (arity 0 0 #t)) (gtk-disable-setlocale procedure (arity 0 0 #t)) (gtk-drag-check-threshold procedure (arity 0 0 #t)) (gtk-drag-dest-add-image-targets procedure (arity 0 0 #t)) (gtk-drag-dest-add-text-targets procedure (arity 0 0 #t)) (gtk-drag-dest-add-uri-targets procedure (arity 0 0 #t)) (gtk-drag-dest-get-track-motion procedure (arity 0 0 #t)) (gtk-drag-dest-set procedure (arity 4 0 #f)) (gtk-drag-dest-set-proxy procedure (arity 0 0 #t)) (gtk-drag-dest-set-track-motion procedure (arity 0 0 #t)) (gtk-drag-dest-unset procedure (arity 0 0 #t)) (gtk-drag-finish procedure (arity 3 1 #f)) (gtk-drag-get-data procedure (arity 3 1 #f)) (gtk-drag-get-source-widget procedure (arity 0 0 #t)) (gtk-drag-highlight procedure (arity 0 0 #t)) (gtk-drag-set-icon-default procedure (arity 0 0 #t)) (gtk-drag-set-icon-name procedure (arity 0 0 #t)) (gtk-drag-set-icon-pixbuf procedure (arity 0 0 #t)) (gtk-drag-set-icon-pixmap procedure (arity 0 0 #t)) (gtk-drag-set-icon-stock procedure (arity 0 0 #t)) (gtk-drag-set-icon-widget procedure (arity 0 0 #t)) (gtk-drag-source-add-image-targets procedure (arity 0 0 #t)) (gtk-drag-source-add-text-targets procedure (arity 0 0 #t)) (gtk-drag-source-add-uri-targets procedure (arity 0 0 #t)) (gtk-drag-source-set-icon procedure (arity 3 1 #f)) (gtk-drag-source-set-icon-name procedure (arity 0 0 #t)) (gtk-drag-source-set-icon-pixbuf procedure (arity 0 0 #t)) (gtk-drag-source-set-icon-stock procedure (arity 0 0 #t)) (gtk-drag-source-unset procedure (arity 0 0 #t)) (gtk-drag-unhighlight procedure (arity 0 0 #t)) (gtk-draw-insertion-cursor procedure (arity 0 0 #t)) (gtk-drawing-area-new procedure (arity 0 0 #t)) (gtk-editable-copy-clipboard procedure (arity 0 0 #t)) (gtk-editable-cut-clipboard procedure (arity 0 0 #t)) (gtk-editable-delete-selection procedure (arity 0 0 #t)) (gtk-editable-delete-text procedure (arity 0 0 #t)) (gtk-editable-get-chars procedure (arity 0 0 #t)) (gtk-editable-get-editable procedure (arity 0 0 #t)) (gtk-editable-get-position procedure (arity 0 0 #t)) (gtk-editable-get-selection-bounds procedure (arity 1 0 #f)) (gtk-editable-insert-text procedure (arity 0 0 #t)) (gtk-editable-paste-clipboard procedure (arity 0 0 #t)) (gtk-editable-select-region procedure (arity 0 0 #t)) (gtk-editable-set-editable procedure (arity 0 0 #t)) (gtk-editable-set-position procedure (arity 0 0 #t)) (gtk-entry-completion-complete procedure (arity 0 0 #t)) (gtk-entry-completion-delete-action procedure (arity 0 0 #t)) (gtk-entry-completion-get-entry procedure (arity 0 0 #t)) (gtk-entry-completion-get-inline-completion procedure (arity 0 0 #t)) (gtk-entry-completion-get-minimum-key-length procedure (arity 0 0 #t)) (gtk-entry-completion-get-model procedure (arity 0 0 #t)) (gtk-entry-completion-get-popup-completion procedure (arity 0 0 #t)) (gtk-entry-completion-get-popup-set-width procedure (arity 0 0 #t)) (gtk-entry-completion-get-popup-single-match procedure (arity 0 0 #t)) (gtk-entry-completion-get-text-column procedure (arity 0 0 #t)) (gtk-entry-completion-insert-action-markup procedure (arity 0 0 #t)) (gtk-entry-completion-insert-action-text procedure (arity 0 0 #t)) (gtk-entry-completion-insert-prefix procedure (arity 0 0 #t)) (gtk-entry-completion-new procedure (arity 0 0 #t)) (gtk-entry-completion-set-inline-completion procedure (arity 0 0 #t)) (gtk-entry-completion-set-minimum-key-length procedure (arity 0 0 #t)) (gtk-entry-completion-set-model procedure (arity 0 0 #t)) (gtk-entry-completion-set-popup-completion procedure (arity 0 0 #t)) (gtk-entry-completion-set-popup-set-width procedure (arity 0 0 #t)) (gtk-entry-completion-set-popup-single-match procedure (arity 0 0 #t)) (gtk-entry-completion-set-text-column procedure (arity 0 0 #t)) (gtk-entry-get-activates-default procedure (arity 0 0 #t)) (gtk-entry-get-alignment procedure (arity 0 0 #t)) (gtk-entry-get-completion procedure (arity 0 0 #t)) (gtk-entry-get-has-frame procedure (arity 0 0 #t)) (gtk-entry-get-inner-border procedure (arity 0 0 #t)) (gtk-entry-get-invisible-char procedure (arity 0 0 #t)) (gtk-entry-get-layout procedure (arity 0 0 #t)) (gtk-entry-get-layout-offsets procedure (arity 1 0 #f)) (gtk-entry-get-max-length procedure (arity 0 0 #t)) (gtk-entry-get-text procedure (arity 0 0 #t)) (gtk-entry-get-visibility procedure (arity 0 0 #t)) (gtk-entry-get-width-chars procedure (arity 0 0 #t)) (gtk-entry-layout-index-to-text-index procedure (arity 0 0 #t)) (gtk-entry-set-activates-default procedure (arity 0 0 #t)) (gtk-entry-set-alignment procedure (arity 0 0 #t)) (gtk-entry-set-completion procedure (arity 0 0 #t)) (gtk-entry-set-has-frame procedure (arity 0 0 #t)) (gtk-entry-set-inner-border procedure (arity 0 0 #t)) (gtk-entry-set-invisible-char procedure (arity 0 0 #t)) (gtk-entry-set-max-length procedure (arity 0 0 #t)) (gtk-entry-set-text procedure (arity 0 0 #t)) (gtk-entry-set-visibility procedure (arity 0 0 #t)) (gtk-entry-set-width-chars procedure (arity 0 0 #t)) (gtk-entry-text-index-to-layout-index procedure (arity 0 0 #t)) (gtk-event-box-get-above-child procedure (arity 0 0 #t)) (gtk-event-box-get-visible-window procedure (arity 0 0 #t)) (gtk-event-box-new procedure (arity 0 0 #t)) (gtk-event-box-set-above-child procedure (arity 0 0 #t)) (gtk-event-box-set-visible-window procedure (arity 0 0 #t)) (gtk-events-pending procedure (arity 0 0 #t)) (gtk-expander-get-expanded procedure (arity 0 0 #t)) (gtk-expander-get-label procedure (arity 0 0 #t)) (gtk-expander-get-label-widget procedure (arity 0 0 #t)) (gtk-expander-get-spacing procedure (arity 0 0 #t)) (gtk-expander-get-use-markup procedure (arity 0 0 #t)) (gtk-expander-get-use-underline procedure (arity 0 0 #t)) (gtk-expander-new procedure (arity 0 0 #t)) (gtk-expander-new-with-mnemonic procedure (arity 0 0 #t)) (gtk-expander-set-expanded procedure (arity 0 0 #t)) (gtk-expander-set-label procedure (arity 0 0 #t)) (gtk-expander-set-label-widget procedure (arity 0 0 #t)) (gtk-expander-set-spacing procedure (arity 0 0 #t)) (gtk-expander-set-use-markup procedure (arity 0 0 #t)) (gtk-expander-set-use-underline procedure (arity 0 0 #t)) (gtk-false procedure (arity 0 0 #t)) (gtk-file-chooser-add-filter procedure (arity 0 0 #t)) (gtk-file-chooser-add-shortcut-folder procedure (arity 2 0 #f)) (gtk-file-chooser-add-shortcut-folder-uri procedure (arity 2 0 #f)) (gtk-file-chooser-button-get-focus-on-click procedure (arity 0 0 #t)) (gtk-file-chooser-button-get-title procedure (arity 0 0 #t)) (gtk-file-chooser-button-get-width-chars procedure (arity 0 0 #t)) (gtk-file-chooser-button-new procedure (arity 0 0 #t)) (gtk-file-chooser-button-new-with-backend procedure (arity 0 0 #t)) (gtk-file-chooser-button-new-with-dialog procedure (arity 0 0 #t)) (gtk-file-chooser-button-set-focus-on-click procedure (arity 0 0 #t)) (gtk-file-chooser-button-set-title procedure (arity 0 0 #t)) (gtk-file-chooser-button-set-width-chars procedure (arity 0 0 #t)) (gtk-file-chooser-error-quark procedure (arity 0 0 #t)) (gtk-file-chooser-get-action procedure (arity 0 0 #t)) (gtk-file-chooser-get-current-folder procedure (arity 0 0 #t)) (gtk-file-chooser-get-current-folder-uri procedure (arity 0 0 #t)) (gtk-file-chooser-get-do-overwrite-confirmation procedure (arity 0 0 #t)) (gtk-file-chooser-get-extra-widget procedure (arity 0 0 #t)) (gtk-file-chooser-get-filename procedure (arity 0 0 #t)) (gtk-file-chooser-get-filenames procedure (arity 1 0 #f)) (gtk-file-chooser-get-filter procedure (arity 0 0 #t)) (gtk-file-chooser-get-local-only procedure (arity 0 0 #t)) (gtk-file-chooser-get-preview-filename procedure (arity 0 0 #t)) (gtk-file-chooser-get-preview-uri procedure (arity 0 0 #t)) (gtk-file-chooser-get-preview-widget procedure (arity 0 0 #t)) (gtk-file-chooser-get-preview-widget-active procedure (arity 0 0 #t)) (gtk-file-chooser-get-select-multiple procedure (arity 0 0 #t)) (gtk-file-chooser-get-show-hidden procedure (arity 0 0 #t)) (gtk-file-chooser-get-uri procedure (arity 0 0 #t)) (gtk-file-chooser-get-uris procedure (arity 1 0 #f)) (gtk-file-chooser-get-use-preview-label procedure (arity 0 0 #t)) (gtk-file-chooser-list-filters procedure (arity 1 0 #f)) (gtk-file-chooser-list-shortcut-folder-uris procedure (arity 1 0 #f)) (gtk-file-chooser-list-shortcut-folders procedure (arity 1 0 #f)) (gtk-file-chooser-remove-filter procedure (arity 0 0 #t)) (gtk-file-chooser-remove-shortcut-folder procedure (arity 2 0 #f)) (gtk-file-chooser-remove-shortcut-folder-uri procedure (arity 2 0 #f)) (gtk-file-chooser-select-all procedure (arity 0 0 #t)) (gtk-file-chooser-select-filename procedure (arity 0 0 #t)) (gtk-file-chooser-select-uri procedure (arity 0 0 #t)) (gtk-file-chooser-set-action procedure (arity 0 0 #t)) (gtk-file-chooser-set-current-folder procedure (arity 0 0 #t)) (gtk-file-chooser-set-current-folder-uri procedure (arity 0 0 #t)) (gtk-file-chooser-set-current-name procedure (arity 0 0 #t)) (gtk-file-chooser-set-do-overwrite-confirmation procedure (arity 0 0 #t)) (gtk-file-chooser-set-extra-widget procedure (arity 0 0 #t)) (gtk-file-chooser-set-filename procedure (arity 0 0 #t)) (gtk-file-chooser-set-filter procedure (arity 0 0 #t)) (gtk-file-chooser-set-local-only procedure (arity 0 0 #t)) (gtk-file-chooser-set-preview-widget procedure (arity 0 0 #t)) (gtk-file-chooser-set-preview-widget-active procedure (arity 0 0 #t)) (gtk-file-chooser-set-select-multiple procedure (arity 0 0 #t)) (gtk-file-chooser-set-show-hidden procedure (arity 0 0 #t)) (gtk-file-chooser-set-uri procedure (arity 0 0 #t)) (gtk-file-chooser-set-use-preview-label procedure (arity 0 0 #t)) (gtk-file-chooser-unselect-all procedure (arity 0 0 #t)) (gtk-file-chooser-unselect-filename procedure (arity 0 0 #t)) (gtk-file-chooser-unselect-uri procedure (arity 0 0 #t)) (gtk-file-chooser-widget-new procedure (arity 0 0 #t)) (gtk-file-chooser-widget-new-with-backend procedure (arity 0 0 #t)) (gtk-file-filter-add-mime-type procedure (arity 0 0 #t)) (gtk-file-filter-add-pattern procedure (arity 0 0 #t)) (gtk-file-filter-add-pixbuf-formats procedure (arity 0 0 #t)) (gtk-file-filter-get-name procedure (arity 0 0 #t)) (gtk-file-filter-get-needed procedure (arity 0 0 #t)) (gtk-file-filter-new procedure (arity 0 0 #t)) (gtk-file-filter-set-name procedure (arity 0 0 #t)) (gtk-file-selection-complete procedure (arity 0 0 #t)) (gtk-file-selection-get-filename procedure (arity 0 0 #t)) (gtk-file-selection-get-select-multiple procedure (arity 0 0 #t)) (gtk-file-selection-hide-fileop-buttons procedure (arity 0 0 #t)) (gtk-file-selection-new procedure (arity 0 1 #f)) (gtk-file-selection-set-filename procedure (arity 0 0 #t)) (gtk-file-selection-set-select-multiple procedure (arity 0 0 #t)) (gtk-file-selection-show-fileop-buttons procedure (arity 0 0 #t)) (gtk-file-selection:cancel-button procedure (arity 0 0 #t)) (gtk-file-selection:ok-button procedure (arity 0 0 #t)) (gtk-fixed-get-has-window procedure (arity 0 0 #t)) (gtk-fixed-move procedure (arity 0 0 #t)) (gtk-fixed-new procedure (arity 0 0 #t)) (gtk-fixed-put procedure (arity 0 0 #t)) (gtk-fixed-set-has-window procedure (arity 0 0 #t)) (gtk-font-button-get-font-name procedure (arity 0 0 #t)) (gtk-font-button-get-show-size procedure (arity 0 0 #t)) (gtk-font-button-get-show-style procedure (arity 0 0 #t)) (gtk-font-button-get-title procedure (arity 0 0 #t)) (gtk-font-button-get-use-font procedure (arity 0 0 #t)) (gtk-font-button-get-use-size procedure (arity 0 0 #t)) (gtk-font-button-new procedure (arity 0 0 #t)) (gtk-font-button-new-with-font procedure (arity 0 0 #t)) (gtk-font-button-set-font-name procedure (arity 0 0 #t)) (gtk-font-button-set-show-size procedure (arity 0 0 #t)) (gtk-font-button-set-show-style procedure (arity 0 0 #t)) (gtk-font-button-set-title procedure (arity 0 0 #t)) (gtk-font-button-set-use-font procedure (arity 0 0 #t)) (gtk-font-button-set-use-size procedure (arity 0 0 #t)) (gtk-font-selection-dialog-get-font-name procedure (arity 0 0 #t)) (gtk-font-selection-dialog-get-preview-text procedure (arity 0 0 #t)) (gtk-font-selection-dialog-new procedure (arity 0 0 #t)) (gtk-font-selection-dialog-set-font-name procedure (arity 0 0 #t)) (gtk-font-selection-dialog-set-preview-text procedure (arity 0 0 #t)) (gtk-font-selection-get-font-name procedure (arity 0 0 #t)) (gtk-font-selection-get-preview-text procedure (arity 0 0 #t)) (gtk-font-selection-new procedure (arity 0 0 #t)) (gtk-font-selection-set-font-name procedure (arity 0 0 #t)) (gtk-font-selection-set-preview-text procedure (arity 0 0 #t)) (gtk-frame-get-label procedure (arity 0 0 #t)) (gtk-frame-get-label-align procedure (arity 1 0 #f)) (gtk-frame-get-label-widget procedure (arity 0 0 #t)) (gtk-frame-get-shadow-type procedure (arity 0 0 #t)) (gtk-frame-new procedure (arity 0 1 #f)) (gtk-frame-set-label procedure (arity 0 0 #t)) (gtk-frame-set-label-align procedure (arity 0 0 #t)) (gtk-frame-set-label-widget procedure (arity 0 0 #t)) (gtk-frame-set-shadow-type procedure (arity 0 0 #t)) (gtk-gamma-curve-new procedure (arity 0 0 #t)) (gtk-get-current-event-time procedure (arity 0 0 #t)) (gtk-get-default-language procedure (arity 0 0 #t)) (gtk-grab-add procedure (arity 0 0 #t)) (gtk-grab-get-current procedure (arity 0 0 #t)) (gtk-grab-remove procedure (arity 0 0 #t)) (gtk-handle-box-get-handle-position procedure (arity 0 0 #t)) (gtk-handle-box-get-shadow-type procedure (arity 0 0 #t)) (gtk-handle-box-get-snap-edge procedure (arity 0 0 #t)) (gtk-handle-box-new procedure (arity 0 0 #t)) (gtk-handle-box-set-handle-position procedure (arity 0 0 #t)) (gtk-handle-box-set-shadow-type procedure (arity 0 0 #t)) (gtk-handle-box-set-snap-edge procedure (arity 0 0 #t)) (gtk-hbox-new procedure (arity 0 2 #f)) (gtk-hbutton-box-new procedure (arity 0 0 #t)) (gtk-hpaned-new procedure (arity 0 0 #t)) (gtk-hruler-new procedure (arity 0 0 #t)) (gtk-hscale-new procedure (arity 0 1 #f)) (gtk-hscale-new-with-range procedure (arity 0 0 #t)) (gtk-hscrollbar-new procedure (arity 0 1 #f)) (gtk-hseparator-new procedure (arity 0 0 #t)) (gtk-icon-factory-add procedure (arity 0 0 #t)) (gtk-icon-factory-add-default procedure (arity 0 0 #t)) (gtk-icon-factory-lookup procedure (arity 0 0 #t)) (gtk-icon-factory-lookup-default procedure (arity 0 0 #t)) (gtk-icon-factory-new procedure (arity 0 0 #t)) (gtk-icon-factory-remove-default procedure (arity 0 0 #t)) (gtk-icon-set-add-source procedure (arity 0 0 #t)) (gtk-icon-set-copy procedure (arity 0 0 #t)) (gtk-icon-set-new procedure (arity 0 0 #t)) (gtk-icon-set-new-from-pixbuf procedure (arity 0 0 #t)) (gtk-icon-set-render-icon procedure (arity 0 0 #t)) (gtk-icon-size-from-name procedure (arity 0 0 #t)) (gtk-icon-size-get-name procedure (arity 0 0 #t)) (gtk-icon-size-lookup procedure (arity 1 0 #f)) (gtk-icon-size-lookup-for-settings procedure (arity 2 0 #f)) (gtk-icon-size-register procedure (arity 0 0 #t)) (gtk-icon-size-register-alias procedure (arity 0 0 #t)) (gtk-icon-source-copy procedure (arity 0 0 #t)) (gtk-icon-source-get-direction procedure (arity 0 0 #t)) (gtk-icon-source-get-direction-wildcarded procedure (arity 0 0 #t)) (gtk-icon-source-get-filename procedure (arity 0 0 #t)) (gtk-icon-source-get-icon-name procedure (arity 0 0 #t)) (gtk-icon-source-get-pixbuf procedure (arity 0 0 #t)) (gtk-icon-source-get-size procedure (arity 0 0 #t)) (gtk-icon-source-get-size-wildcarded procedure (arity 0 0 #t)) (gtk-icon-source-get-state procedure (arity 0 0 #t)) (gtk-icon-source-get-state-wildcarded procedure (arity 0 0 #t)) (gtk-icon-source-new procedure (arity 0 0 #t)) (gtk-icon-source-set-direction procedure (arity 0 0 #t)) (gtk-icon-source-set-direction-wildcarded procedure (arity 0 0 #t)) (gtk-icon-source-set-filename procedure (arity 0 0 #t)) (gtk-icon-source-set-icon-name procedure (arity 0 0 #t)) (gtk-icon-source-set-pixbuf procedure (arity 0 0 #t)) (gtk-icon-source-set-size procedure (arity 0 0 #t)) (gtk-icon-source-set-size-wildcarded procedure (arity 0 0 #t)) (gtk-icon-source-set-state procedure (arity 0 0 #t)) (gtk-icon-source-set-state-wildcarded procedure (arity 0 0 #t)) (gtk-icon-theme-add-builtin-icon procedure (arity 0 0 #t)) (gtk-icon-theme-append-search-path procedure (arity 0 0 #t)) (gtk-icon-theme-error-quark procedure (arity 0 0 #t)) (gtk-icon-theme-get-default procedure (arity 0 0 #t)) (gtk-icon-theme-get-example-icon-name procedure (arity 0 0 #t)) (gtk-icon-theme-get-for-screen procedure (arity 0 0 #t)) (gtk-icon-theme-has-icon procedure (arity 0 0 #t)) (gtk-icon-theme-list-icons procedure (arity 2 0 #f)) (gtk-icon-theme-load-icon procedure (arity 4 0 #f)) (gtk-icon-theme-new procedure (arity 0 0 #t)) (gtk-icon-theme-prepend-search-path procedure (arity 0 0 #t)) (gtk-icon-theme-rescan-if-needed procedure (arity 0 0 #t)) (gtk-icon-theme-set-custom-theme procedure (arity 0 0 #t)) (gtk-icon-theme-set-screen procedure (arity 0 0 #t)) (gtk-icon-view-create-drag-icon procedure (arity 0 0 #t)) (gtk-icon-view-get-column-spacing procedure (arity 0 0 #t)) (gtk-icon-view-get-columns procedure (arity 0 0 #t)) (gtk-icon-view-get-item-width procedure (arity 0 0 #t)) (gtk-icon-view-get-margin procedure (arity 0 0 #t)) (gtk-icon-view-get-markup-column procedure (arity 0 0 #t)) (gtk-icon-view-get-model procedure (arity 0 0 #t)) (gtk-icon-view-get-orientation procedure (arity 0 0 #t)) (gtk-icon-view-get-path-at-pos procedure (arity 0 0 #t)) (gtk-icon-view-get-pixbuf-column procedure (arity 0 0 #t)) (gtk-icon-view-get-reorderable procedure (arity 0 0 #t)) (gtk-icon-view-get-row-spacing procedure (arity 0 0 #t)) (gtk-icon-view-get-selected-items procedure (arity 1 0 #f)) (gtk-icon-view-get-selection-mode procedure (arity 0 0 #t)) (gtk-icon-view-get-spacing procedure (arity 0 0 #t)) (gtk-icon-view-get-text-column procedure (arity 0 0 #t)) (gtk-icon-view-item-activated procedure (arity 0 0 #t)) (gtk-icon-view-new procedure (arity 0 0 #t)) (gtk-icon-view-new-with-model procedure (arity 0 0 #t)) (gtk-icon-view-path-is-selected procedure (arity 0 0 #t)) (gtk-icon-view-scroll-to-path procedure (arity 0 0 #t)) (gtk-icon-view-select-all procedure (arity 0 0 #t)) (gtk-icon-view-select-path procedure (arity 0 0 #t)) (gtk-icon-view-set-column-spacing procedure (arity 0 0 #t)) (gtk-icon-view-set-columns procedure (arity 0 0 #t)) (gtk-icon-view-set-cursor procedure (arity 0 0 #t)) (gtk-icon-view-set-drag-dest-item procedure (arity 0 0 #t)) (gtk-icon-view-set-item-width procedure (arity 0 0 #t)) (gtk-icon-view-set-margin procedure (arity 0 0 #t)) (gtk-icon-view-set-markup-column procedure (arity 0 0 #t)) (gtk-icon-view-set-model procedure (arity 0 0 #t)) (gtk-icon-view-set-orientation procedure (arity 0 0 #t)) (gtk-icon-view-set-pixbuf-column procedure (arity 0 0 #t)) (gtk-icon-view-set-reorderable procedure (arity 0 0 #t)) (gtk-icon-view-set-row-spacing procedure (arity 0 0 #t)) (gtk-icon-view-set-selection-mode procedure (arity 0 0 #t)) (gtk-icon-view-set-spacing procedure (arity 0 0 #t)) (gtk-icon-view-set-text-column procedure (arity 0 0 #t)) (gtk-icon-view-unselect-all procedure (arity 0 0 #t)) (gtk-icon-view-unselect-path procedure (arity 0 0 #t)) (gtk-icon-view-unset-model-drag-dest procedure (arity 0 0 #t)) (gtk-icon-view-unset-model-drag-source procedure (arity 0 0 #t)) (gtk-im-context-delete-surrounding procedure (arity 0 0 #t)) (gtk-im-context-filter-keypress procedure (arity 0 0 #t)) (gtk-im-context-focus-in procedure (arity 0 0 #t)) (gtk-im-context-focus-out procedure (arity 0 0 #t)) (gtk-im-context-get-surrounding procedure (arity 1 0 #f)) (gtk-im-context-reset procedure (arity 0 0 #t)) (gtk-im-context-set-client-window procedure (arity 0 0 #t)) (gtk-im-context-set-cursor-location procedure (arity 0 0 #t)) (gtk-im-context-set-surrounding procedure (arity 0 0 #t)) (gtk-im-context-set-use-preedit procedure (arity 0 0 #t)) (gtk-im-context-simple-add-table procedure (arity 3 0 #f)) (gtk-im-context-simple-new procedure (arity 0 0 #t)) (gtk-im-multicontext-append-menuitems procedure (arity 0 0 #t)) (gtk-im-multicontext-new procedure (arity 0 0 #t)) (gtk-image-clear procedure (arity 0 0 #t)) (gtk-image-get-animation procedure (arity 0 0 #t)) (gtk-image-get-pixbuf procedure (arity 0 0 #t)) (gtk-image-get-pixel-size procedure (arity 0 0 #t)) (gtk-image-get-storage-type procedure (arity 0 0 #t)) (gtk-image-menu-item-get-image procedure (arity 0 0 #t)) (gtk-image-menu-item-new procedure (arity 0 0 #t)) (gtk-image-menu-item-new-from-stock procedure (arity 0 0 #t)) (gtk-image-menu-item-new-with-label procedure (arity 0 0 #t)) (gtk-image-menu-item-new-with-mnemonic procedure (arity 0 0 #t)) (gtk-image-menu-item-set-image procedure (arity 0 0 #t)) (gtk-image-new procedure (arity 0 0 #t)) (gtk-image-new-from-animation procedure (arity 0 0 #t)) (gtk-image-new-from-file procedure (arity 0 0 #t)) (gtk-image-new-from-icon-name procedure (arity 0 0 #t)) (gtk-image-new-from-icon-set procedure (arity 0 0 #t)) (gtk-image-new-from-image procedure (arity 0 0 #t)) (gtk-image-new-from-pixbuf procedure (arity 0 0 #t)) (gtk-image-new-from-pixmap procedure (arity 0 0 #t)) (gtk-image-new-from-stock procedure (arity 0 0 #t)) (gtk-image-set-from-animation procedure (arity 0 0 #t)) (gtk-image-set-from-file procedure (arity 0 0 #t)) (gtk-image-set-from-icon-name procedure (arity 0 0 #t)) (gtk-image-set-from-icon-set procedure (arity 0 0 #t)) (gtk-image-set-from-image procedure (arity 0 0 #t)) (gtk-image-set-from-pixbuf procedure (arity 0 0 #t)) (gtk-image-set-from-pixmap procedure (arity 0 0 #t)) (gtk-image-set-from-stock procedure (arity 0 0 #t)) (gtk-image-set-pixel-size procedure (arity 0 0 #t)) (gtk-input-dialog-new procedure (arity 0 0 #t)) (gtk-invisible-get-screen procedure (arity 0 0 #t)) (gtk-invisible-new procedure (arity 0 0 #t)) (gtk-invisible-new-for-screen procedure (arity 0 0 #t)) (gtk-invisible-set-screen procedure (arity 0 0 #t)) (gtk-item-deselect procedure (arity 0 0 #t)) (gtk-item-select procedure (arity 0 0 #t)) (gtk-item-toggle procedure (arity 0 0 #t)) (gtk-label-get-angle procedure (arity 0 0 #t)) (gtk-label-get-attributes procedure (arity 0 0 #t)) (gtk-label-get-ellipsize procedure (arity 0 0 #t)) (gtk-label-get-justify procedure (arity 0 0 #t)) (gtk-label-get-label procedure (arity 0 0 #t)) (gtk-label-get-layout procedure (arity 0 0 #t)) (gtk-label-get-layout-offsets procedure (arity 1 0 #f)) (gtk-label-get-line-wrap procedure (arity 0 0 #t)) (gtk-label-get-line-wrap-mode procedure (arity 0 0 #t)) (gtk-label-get-max-width-chars procedure (arity 0 0 #t)) (gtk-label-get-mnemonic-keyval procedure (arity 0 0 #t)) (gtk-label-get-mnemonic-widget procedure (arity 0 0 #t)) (gtk-label-get-selectable procedure (arity 0 0 #t)) (gtk-label-get-selection-bounds procedure (arity 1 0 #f)) (gtk-label-get-single-line-mode procedure (arity 0 0 #t)) (gtk-label-get-text procedure (arity 0 0 #t)) (gtk-label-get-use-markup procedure (arity 0 0 #t)) (gtk-label-get-use-underline procedure (arity 0 0 #t)) (gtk-label-get-width-chars procedure (arity 0 0 #t)) (gtk-label-new procedure (arity 0 0 #t)) (gtk-label-new-with-mnemonic procedure (arity 0 0 #t)) (gtk-label-select-region procedure (arity 0 0 #t)) (gtk-label-set-angle procedure (arity 0 0 #t)) (gtk-label-set-attributes procedure (arity 0 0 #t)) (gtk-label-set-ellipsize procedure (arity 0 0 #t)) (gtk-label-set-justify procedure (arity 0 0 #t)) (gtk-label-set-label procedure (arity 0 0 #t)) (gtk-label-set-line-wrap procedure (arity 0 0 #t)) (gtk-label-set-line-wrap-mode procedure (arity 0 0 #t)) (gtk-label-set-markup procedure (arity 0 0 #t)) (gtk-label-set-markup-with-mnemonic procedure (arity 0 0 #t)) (gtk-label-set-max-width-chars procedure (arity 0 0 #t)) (gtk-label-set-mnemonic-widget procedure (arity 0 0 #t)) (gtk-label-set-pattern procedure (arity 0 0 #t)) (gtk-label-set-selectable procedure (arity 0 0 #t)) (gtk-label-set-single-line-mode procedure (arity 0 0 #t)) (gtk-label-set-text procedure (arity 0 0 #t)) (gtk-label-set-text-with-mnemonic procedure (arity 0 0 #t)) (gtk-label-set-use-markup procedure (arity 0 0 #t)) (gtk-label-set-use-underline procedure (arity 0 0 #t)) (gtk-label-set-width-chars procedure (arity 0 0 #t)) (gtk-layout-get-hadjustment procedure (arity 0 0 #t)) (gtk-layout-get-size procedure (arity 1 0 #f)) (gtk-layout-get-vadjustment procedure (arity 0 0 #t)) (gtk-layout-move procedure (arity 0 0 #t)) (gtk-layout-new procedure (arity 0 2 #f)) (gtk-layout-put procedure (arity 0 0 #t)) (gtk-layout-set-hadjustment procedure (arity 0 0 #t)) (gtk-layout-set-size procedure (arity 0 0 #t)) (gtk-layout-set-vadjustment procedure (arity 0 0 #t)) (gtk-link-button-get-uri procedure (arity 0 0 #t)) (gtk-link-button-new procedure (arity 0 0 #t)) (gtk-link-button-new-with-label procedure (arity 0 0 #t)) (gtk-link-button-set-uri procedure (arity 0 0 #t)) (gtk-list-store-append procedure (arity 0 0 #t)) (gtk-list-store-clear procedure (arity 0 0 #t)) (gtk-list-store-insert procedure (arity 0 0 #t)) (gtk-list-store-insert-after procedure (arity 0 0 #t)) (gtk-list-store-insert-before procedure (arity 0 0 #t)) (gtk-list-store-iter-is-valid procedure (arity 0 0 #t)) (gtk-list-store-move-after procedure (arity 0 0 #t)) (gtk-list-store-move-before procedure (arity 0 0 #t)) (gtk-list-store-new procedure (arity 0 0 #t)) (gtk-list-store-prepend procedure (arity 0 0 #t)) (gtk-list-store-remove procedure (arity 0 0 #t)) (gtk-list-store-reorder procedure (arity 1 0 #f)) (gtk-list-store-set-value procedure (arity 0 0 #t)) (gtk-list-store-swap procedure (arity 0 0 #t)) (gtk-main procedure (arity 0 0 #t)) (gtk-main-do-event procedure (arity 0 0 #t)) (gtk-main-iteration procedure (arity 0 0 #t)) (gtk-main-iteration-do procedure (arity 0 1 #f)) (gtk-main-level procedure (arity 0 0 #t)) (gtk-main-quit procedure (arity 0 0 #t)) (gtk-menu-attach procedure (arity 0 0 #t)) (gtk-menu-bar-get-child-pack-direction procedure (arity 0 0 #t)) (gtk-menu-bar-get-pack-direction procedure (arity 0 0 #t)) (gtk-menu-bar-new procedure (arity 0 0 #t)) (gtk-menu-bar-set-child-pack-direction procedure (arity 0 0 #t)) (gtk-menu-bar-set-pack-direction procedure (arity 0 0 #t)) (gtk-menu-detach procedure (arity 0 0 #t)) (gtk-menu-get-accel-group procedure (arity 0 0 #t)) (gtk-menu-get-active procedure (arity 0 0 #t)) (gtk-menu-get-attach-widget procedure (arity 0 0 #t)) (gtk-menu-get-for-attach-widget procedure (arity 1 0 #f)) (gtk-menu-get-tearoff-state procedure (arity 0 0 #t)) (gtk-menu-get-title procedure (arity 0 0 #t)) (gtk-menu-item-activate procedure (arity 0 0 #t)) (gtk-menu-item-deselect procedure (arity 0 0 #t)) (gtk-menu-item-get-right-justified procedure (arity 0 0 #t)) (gtk-menu-item-get-submenu procedure (arity 0 0 #t)) (gtk-menu-item-new procedure (arity 0 0 #t)) (gtk-menu-item-new-with-label procedure (arity 0 0 #t)) (gtk-menu-item-new-with-mnemonic procedure (arity 0 0 #t)) (gtk-menu-item-remove-submenu procedure (arity 0 0 #t)) (gtk-menu-item-select procedure (arity 0 0 #t)) (gtk-menu-item-set-accel-path procedure (arity 0 0 #t)) (gtk-menu-item-set-right-justified procedure (arity 0 0 #t)) (gtk-menu-item-set-submenu procedure (arity 0 0 #t)) (gtk-menu-item-toggle-size-allocate procedure (arity 0 0 #t)) (gtk-menu-item-toggle-size-request procedure (arity 1 0 #f)) (gtk-menu-new procedure (arity 0 0 #t)) (gtk-menu-popdown procedure (arity 0 0 #t)) (gtk-menu-popup procedure (arity 0 0 #t)) (gtk-menu-reorder-child procedure (arity 0 0 #t)) (gtk-menu-reposition procedure (arity 0 0 #t)) (gtk-menu-set-accel-group procedure (arity 0 0 #t)) (gtk-menu-set-accel-path procedure (arity 0 0 #t)) (gtk-menu-set-active procedure (arity 0 0 #t)) (gtk-menu-set-monitor procedure (arity 0 0 #t)) (gtk-menu-set-screen procedure (arity 0 0 #t)) (gtk-menu-set-tearoff-state procedure (arity 0 0 #t)) (gtk-menu-set-title procedure (arity 0 0 #t)) (gtk-menu-shell-activate-item procedure (arity 0 0 #t)) (gtk-menu-shell-append procedure (arity 0 0 #t)) (gtk-menu-shell-cancel procedure (arity 0 0 #t)) (gtk-menu-shell-deactivate procedure (arity 0 0 #t)) (gtk-menu-shell-deselect procedure (arity 0 0 #t)) (gtk-menu-shell-get-take-focus procedure (arity 0 0 #t)) (gtk-menu-shell-insert procedure (arity 0 0 #t)) (gtk-menu-shell-prepend procedure (arity 0 0 #t)) (gtk-menu-shell-select-first procedure (arity 0 0 #t)) (gtk-menu-shell-select-item procedure (arity 0 0 #t)) (gtk-menu-shell-set-take-focus procedure (arity 0 0 #t)) (gtk-menu-tool-button-get-menu procedure (arity 0 0 #t)) (gtk-menu-tool-button-new procedure (arity 0 0 #t)) (gtk-menu-tool-button-new-from-stock procedure (arity 0 0 #t)) (gtk-menu-tool-button-set-arrow-tooltip procedure (arity 0 0 #t)) (gtk-menu-tool-button-set-menu procedure (arity 0 0 #t)) (gtk-message-dialog-set-image procedure (arity 0 0 #t)) (gtk-message-dialog-set-markup procedure (arity 0 0 #t)) (gtk-misc-get-alignment procedure (arity 1 0 #f)) (gtk-misc-get-padding procedure (arity 1 0 #f)) (gtk-misc-set-alignment procedure (arity 0 0 #t)) (gtk-misc-set-padding procedure (arity 0 0 #t)) (gtk-notebook-append-page procedure (arity 0 0 #t)) (gtk-notebook-append-page-menu procedure (arity 0 0 #t)) (gtk-notebook-get-current-page procedure (arity 0 0 #t)) (gtk-notebook-get-group-id procedure (arity 0 0 #t)) (gtk-notebook-get-menu-label procedure (arity 0 0 #t)) (gtk-notebook-get-menu-label-text procedure (arity 0 0 #t)) (gtk-notebook-get-n-pages procedure (arity 0 0 #t)) (gtk-notebook-get-nth-page procedure (arity 0 0 #t)) (gtk-notebook-get-scrollable procedure (arity 0 0 #t)) (gtk-notebook-get-show-border procedure (arity 0 0 #t)) (gtk-notebook-get-show-tabs procedure (arity 0 0 #t)) (gtk-notebook-get-tab-detachable procedure (arity 0 0 #t)) (gtk-notebook-get-tab-label procedure (arity 0 0 #t)) (gtk-notebook-get-tab-label-text procedure (arity 0 0 #t)) (gtk-notebook-get-tab-pos procedure (arity 0 0 #t)) (gtk-notebook-get-tab-reorderable procedure (arity 0 0 #t)) (gtk-notebook-insert-page procedure (arity 0 0 #t)) (gtk-notebook-insert-page-menu procedure (arity 0 0 #t)) (gtk-notebook-new procedure (arity 0 0 #t)) (gtk-notebook-next-page procedure (arity 0 0 #t)) (gtk-notebook-page-num procedure (arity 0 0 #t)) (gtk-notebook-popup-disable procedure (arity 0 0 #t)) (gtk-notebook-popup-enable procedure (arity 0 0 #t)) (gtk-notebook-prepend-page procedure (arity 0 0 #t)) (gtk-notebook-prepend-page-menu procedure (arity 0 0 #t)) (gtk-notebook-prev-page procedure (arity 0 0 #t)) (gtk-notebook-remove-page procedure (arity 0 0 #t)) (gtk-notebook-reorder-child procedure (arity 0 0 #t)) (gtk-notebook-set-current-page procedure (arity 0 0 #t)) (gtk-notebook-set-group-id procedure (arity 0 0 #t)) (gtk-notebook-set-menu-label procedure (arity 0 0 #t)) (gtk-notebook-set-menu-label-text procedure (arity 0 0 #t)) (gtk-notebook-set-scrollable procedure (arity 0 0 #t)) (gtk-notebook-set-show-border procedure (arity 0 0 #t)) (gtk-notebook-set-show-tabs procedure (arity 0 0 #t)) (gtk-notebook-set-tab-detachable procedure (arity 0 0 #t)) (gtk-notebook-set-tab-label procedure (arity 0 0 #t)) (gtk-notebook-set-tab-label-packing procedure (arity 0 0 #t)) (gtk-notebook-set-tab-label-text procedure (arity 0 0 #t)) (gtk-notebook-set-tab-pos procedure (arity 0 0 #t)) (gtk-notebook-set-tab-reorderable procedure (arity 0 0 #t)) (gtk-page-setup-get-bottom-margin procedure (arity 0 0 #t)) (gtk-page-setup-get-left-margin procedure (arity 0 0 #t)) (gtk-page-setup-get-orientation procedure (arity 0 0 #t)) (gtk-page-setup-get-page-height procedure (arity 0 0 #t)) (gtk-page-setup-get-page-width procedure (arity 0 0 #t)) (gtk-page-setup-get-paper-height procedure (arity 0 0 #t)) (gtk-page-setup-get-paper-size procedure (arity 0 0 #t)) (gtk-page-setup-get-paper-width procedure (arity 0 0 #t)) (gtk-page-setup-get-right-margin procedure (arity 0 0 #t)) (gtk-page-setup-get-top-margin procedure (arity 0 0 #t)) (gtk-page-setup-new procedure (arity 0 0 #t)) (gtk-page-setup-set-bottom-margin procedure (arity 0 0 #t)) (gtk-page-setup-set-left-margin procedure (arity 0 0 #t)) (gtk-page-setup-set-orientation procedure (arity 0 0 #t)) (gtk-page-setup-set-paper-size procedure (arity 0 0 #t)) (gtk-page-setup-set-paper-size-and-default-margins procedure (arity 0 0 #t)) (gtk-page-setup-set-right-margin procedure (arity 0 0 #t)) (gtk-page-setup-set-top-margin procedure (arity 0 0 #t)) (gtk-paint-arrow procedure (arity 0 0 #t)) (gtk-paint-box procedure (arity 0 0 #t)) (gtk-paint-box-gap procedure (arity 0 0 #t)) (gtk-paint-check procedure (arity 0 0 #t)) (gtk-paint-diamond procedure (arity 0 0 #t)) (gtk-paint-expander procedure (arity 0 0 #t)) (gtk-paint-extension procedure (arity 0 0 #t)) (gtk-paint-flat-box procedure (arity 0 0 #t)) (gtk-paint-focus procedure (arity 0 0 #t)) (gtk-paint-handle procedure (arity 0 0 #t)) (gtk-paint-hline procedure (arity 0 0 #t)) (gtk-paint-layout procedure (arity 0 0 #t)) (gtk-paint-option procedure (arity 0 0 #t)) (gtk-paint-resize-grip procedure (arity 0 0 #t)) (gtk-paint-shadow procedure (arity 0 0 #t)) (gtk-paint-shadow-gap procedure (arity 0 0 #t)) (gtk-paint-slider procedure (arity 0 0 #t)) (gtk-paint-tab procedure (arity 0 0 #t)) (gtk-paint-vline procedure (arity 0 0 #t)) (gtk-paned-add1 procedure (arity 0 0 #t)) (gtk-paned-add2 procedure (arity 0 0 #t)) (gtk-paned-get-child1 procedure (arity 0 0 #t)) (gtk-paned-get-child2 procedure (arity 0 0 #t)) (gtk-paned-get-position procedure (arity 0 0 #t)) (gtk-paned-pack1 procedure (arity 2 2 #f)) (gtk-paned-pack2 procedure (arity 2 2 #f)) (gtk-paned-set-position procedure (arity 0 0 #t)) (gtk-paper-size-get-default procedure (arity 0 0 #t)) (gtk-paper-size-get-default-bottom-margin procedure (arity 0 0 #t)) (gtk-paper-size-get-default-left-margin procedure (arity 0 0 #t)) (gtk-paper-size-get-default-right-margin procedure (arity 0 0 #t)) (gtk-paper-size-get-default-top-margin procedure (arity 0 0 #t)) (gtk-paper-size-get-display-name procedure (arity 0 0 #t)) (gtk-paper-size-get-height procedure (arity 0 0 #t)) (gtk-paper-size-get-name procedure (arity 0 0 #t)) (gtk-paper-size-get-ppd-name procedure (arity 0 0 #t)) (gtk-paper-size-get-width procedure (arity 0 0 #t)) (gtk-paper-size-is-custom procedure (arity 0 0 #t)) (gtk-paper-size-is-equal procedure (arity 0 0 #t)) (gtk-paper-size-new procedure (arity 0 0 #t)) (gtk-paper-size-new-custom procedure (arity 0 0 #t)) (gtk-paper-size-new-from-ppd procedure (arity 0 0 #t)) (gtk-paper-size-set-size procedure (arity 0 0 #t)) (gtk-plug-construct procedure (arity 0 0 #t)) (gtk-plug-construct-for-display procedure (arity 0 0 #t)) (gtk-plug-get-id procedure (arity 0 0 #t)) (gtk-plug-new procedure (arity 0 0 #t)) (gtk-plug-new-for-display procedure (arity 0 0 #t)) (gtk-print-context-create-pango-context procedure (arity 0 0 #t)) (gtk-print-context-create-pango-layout procedure (arity 0 0 #t)) (gtk-print-context-get-cairo-context procedure (arity 1 0 #f)) (gtk-print-context-get-dpi-x procedure (arity 0 0 #t)) (gtk-print-context-get-dpi-y procedure (arity 0 0 #t)) (gtk-print-context-get-height procedure (arity 0 0 #t)) (gtk-print-context-get-page-setup procedure (arity 0 0 #t)) (gtk-print-context-get-pango-fontmap procedure (arity 0 0 #t)) (gtk-print-context-get-width procedure (arity 0 0 #t)) (gtk-print-context-set-cairo-context procedure (arity 4 0 #f)) (gtk-print-error-quark procedure (arity 0 0 #t)) (gtk-print-operation-cancel procedure (arity 0 0 #t)) (gtk-print-operation-get-default-page-setup procedure (arity 0 0 #t)) (gtk-print-operation-get-error procedure (arity 1 0 #f)) (gtk-print-operation-get-print-settings procedure (arity 0 0 #t)) (gtk-print-operation-get-status procedure (arity 0 0 #t)) (gtk-print-operation-get-status-string procedure (arity 0 0 #t)) (gtk-print-operation-is-finished procedure (arity 0 0 #t)) (gtk-print-operation-new procedure (arity 0 0 #t)) (gtk-print-operation-preview-end-preview procedure (arity 0 0 #t)) (gtk-print-operation-preview-is-selected procedure (arity 0 0 #t)) (gtk-print-operation-preview-render-page procedure (arity 0 0 #t)) (gtk-print-operation-run procedure (arity 3 0 #f)) (gtk-print-operation-set-allow-async procedure (arity 0 0 #t)) (gtk-print-operation-set-current-page procedure (arity 0 0 #t)) (gtk-print-operation-set-custom-tab-label procedure (arity 0 0 #t)) (gtk-print-operation-set-default-page-setup procedure (arity 0 0 #t)) (gtk-print-operation-set-export-filename procedure (arity 0 0 #t)) (gtk-print-operation-set-job-name procedure (arity 0 0 #t)) (gtk-print-operation-set-n-pages procedure (arity 0 0 #t)) (gtk-print-operation-set-print-settings procedure (arity 0 0 #t)) (gtk-print-operation-set-show-progress procedure (arity 0 0 #t)) (gtk-print-operation-set-track-print-status procedure (arity 0 0 #t)) (gtk-print-operation-set-unit procedure (arity 0 0 #t)) (gtk-print-operation-set-use-full-page procedure (arity 0 0 #t)) (gtk-print-run-page-setup-dialog procedure (arity 0 0 #t)) (gtk-print-settings-get procedure (arity 0 0 #t)) (gtk-print-settings-get-bool procedure (arity 0 0 #t)) (gtk-print-settings-get-collate procedure (arity 0 0 #t)) (gtk-print-settings-get-default-source procedure (arity 0 0 #t)) (gtk-print-settings-get-dither procedure (arity 0 0 #t)) (gtk-print-settings-get-double procedure (arity 0 0 #t)) (gtk-print-settings-get-double-with-default procedure (arity 0 0 #t)) (gtk-print-settings-get-duplex procedure (arity 0 0 #t)) (gtk-print-settings-get-finishings procedure (arity 0 0 #t)) (gtk-print-settings-get-int procedure (arity 0 0 #t)) (gtk-print-settings-get-int-with-default procedure (arity 0 0 #t)) (gtk-print-settings-get-length procedure (arity 0 0 #t)) (gtk-print-settings-get-media-type procedure (arity 0 0 #t)) (gtk-print-settings-get-n-copies procedure (arity 0 0 #t)) (gtk-print-settings-get-number-up procedure (arity 0 0 #t)) (gtk-print-settings-get-orientation procedure (arity 0 0 #t)) (gtk-print-settings-get-output-bin procedure (arity 0 0 #t)) (gtk-print-settings-get-page-set procedure (arity 0 0 #t)) (gtk-print-settings-get-paper-height procedure (arity 0 0 #t)) (gtk-print-settings-get-paper-size procedure (arity 0 0 #t)) (gtk-print-settings-get-paper-width procedure (arity 0 0 #t)) (gtk-print-settings-get-printer procedure (arity 0 0 #t)) (gtk-print-settings-get-quality procedure (arity 0 0 #t)) (gtk-print-settings-get-resolution procedure (arity 0 0 #t)) (gtk-print-settings-get-reverse procedure (arity 0 0 #t)) (gtk-print-settings-get-scale procedure (arity 0 0 #t)) (gtk-print-settings-get-use-color procedure (arity 0 0 #t)) (gtk-print-settings-has-key procedure (arity 0 0 #t)) (gtk-print-settings-new procedure (arity 0 0 #t)) (gtk-print-settings-set procedure (arity 0 0 #t)) (gtk-print-settings-set-bool procedure (arity 0 0 #t)) (gtk-print-settings-set-collate procedure (arity 0 0 #t)) (gtk-print-settings-set-default-source procedure (arity 0 0 #t)) (gtk-print-settings-set-dither procedure (arity 0 0 #t)) (gtk-print-settings-set-double procedure (arity 0 0 #t)) (gtk-print-settings-set-duplex procedure (arity 0 0 #t)) (gtk-print-settings-set-finishings procedure (arity 0 0 #t)) (gtk-print-settings-set-int procedure (arity 0 0 #t)) (gtk-print-settings-set-length procedure (arity 0 0 #t)) (gtk-print-settings-set-media-type procedure (arity 0 0 #t)) (gtk-print-settings-set-n-copies procedure (arity 0 0 #t)) (gtk-print-settings-set-number-up procedure (arity 0 0 #t)) (gtk-print-settings-set-orientation procedure (arity 0 0 #t)) (gtk-print-settings-set-output-bin procedure (arity 0 0 #t)) (gtk-print-settings-set-page-set procedure (arity 0 0 #t)) (gtk-print-settings-set-paper-height procedure (arity 0 0 #t)) (gtk-print-settings-set-paper-size procedure (arity 0 0 #t)) (gtk-print-settings-set-paper-width procedure (arity 0 0 #t)) (gtk-print-settings-set-printer procedure (arity 0 0 #t)) (gtk-print-settings-set-quality procedure (arity 0 0 #t)) (gtk-print-settings-set-resolution procedure (arity 0 0 #t)) (gtk-print-settings-set-reverse procedure (arity 0 0 #t)) (gtk-print-settings-set-scale procedure (arity 0 0 #t)) (gtk-print-settings-set-use-color procedure (arity 0 0 #t)) (gtk-print-settings-unset procedure (arity 0 0 #t)) (gtk-progress-bar-get-ellipsize procedure (arity 0 0 #t)) (gtk-progress-bar-get-fraction procedure (arity 0 0 #t)) (gtk-progress-bar-get-orientation procedure (arity 0 0 #t)) (gtk-progress-bar-get-pulse-step procedure (arity 0 0 #t)) (gtk-progress-bar-get-text procedure (arity 0 0 #t)) (gtk-progress-bar-new procedure (arity 0 0 #t)) (gtk-progress-bar-pulse procedure (arity 0 0 #t)) (gtk-progress-bar-set-ellipsize procedure (arity 0 0 #t)) (gtk-progress-bar-set-fraction procedure (arity 0 0 #t)) (gtk-progress-bar-set-orientation procedure (arity 0 0 #t)) (gtk-progress-bar-set-pulse-step procedure (arity 0 0 #t)) (gtk-progress-bar-set-text procedure (arity 0 0 #t)) (gtk-propagate-event procedure (arity 0 0 #t)) (gtk-radio-action-get-current-value procedure (arity 0 0 #t)) (gtk-radio-action-get-group procedure (arity 0 0 #t)) (gtk-radio-action-new procedure (arity 0 0 #t)) (gtk-radio-action-set-current-value procedure (arity 0 0 #t)) (gtk-radio-action-set-group procedure (arity 0 0 #t)) (gtk-radio-button-get-group procedure (arity 0 0 #t)) (gtk-radio-button-new procedure (arity 0 0 #t)) (gtk-radio-button-new-from-widget procedure (arity 0 0 #t)) (gtk-radio-button-new-with-label procedure (arity 0 0 #t)) (gtk-radio-button-new-with-label-from-widget procedure (arity 0 0 #t)) (gtk-radio-button-new-with-mnemonic procedure (arity 0 0 #t)) (gtk-radio-button-new-with-mnemonic-from-widget procedure (arity 0 0 #t)) (gtk-radio-button-set-group procedure (arity 0 0 #t)) (gtk-radio-menu-item-get-group procedure (arity 0 0 #t)) (gtk-radio-menu-item-new procedure (arity 0 0 #t)) (gtk-radio-menu-item-new-from-widget procedure (arity 0 0 #t)) (gtk-radio-menu-item-new-with-label procedure (arity 0 0 #t)) (gtk-radio-menu-item-new-with-label-from-widget procedure (arity 0 0 #t)) (gtk-radio-menu-item-new-with-mnemonic procedure (arity 0 0 #t)) (gtk-radio-menu-item-new-with-mnemonic-from-widget procedure (arity 0 0 #t)) (gtk-radio-menu-item-set-group procedure (arity 0 0 #t)) (gtk-radio-tool-button-get-group procedure (arity 0 0 #t)) (gtk-radio-tool-button-new procedure (arity 0 1 #f)) (gtk-radio-tool-button-new-from-stock procedure (arity 1 1 #f)) (gtk-radio-tool-button-new-from-widget procedure (arity 0 0 #t)) (gtk-radio-tool-button-new-with-stock-from-widget procedure (arity 0 0 #t)) (gtk-radio-tool-button-set-group procedure (arity 0 0 #t)) (gtk-range-get-adjustment procedure (arity 0 0 #t)) (gtk-range-get-inverted procedure (arity 0 0 #t)) (gtk-range-get-lower-stepper-sensitivity procedure (arity 0 0 #t)) (gtk-range-get-update-policy procedure (arity 0 0 #t)) (gtk-range-get-upper-stepper-sensitivity procedure (arity 0 0 #t)) (gtk-range-get-value procedure (arity 0 0 #t)) (gtk-range-set-adjustment procedure (arity 0 0 #t)) (gtk-range-set-increments procedure (arity 0 0 #t)) (gtk-range-set-inverted procedure (arity 0 0 #t)) (gtk-range-set-lower-stepper-sensitivity procedure (arity 0 0 #t)) (gtk-range-set-range procedure (arity 0 0 #t)) (gtk-range-set-update-policy procedure (arity 0 0 #t)) (gtk-range-set-upper-stepper-sensitivity procedure (arity 0 0 #t)) (gtk-range-set-value procedure (arity 0 0 #t)) (gtk-rc-add-default-file procedure (arity 0 0 #t)) (gtk-rc-find-module-in-path procedure (arity 0 0 #t)) (gtk-rc-get-im-module-file procedure (arity 0 0 #t)) (gtk-rc-get-im-module-path procedure (arity 0 0 #t)) (gtk-rc-get-module-dir procedure (arity 0 0 #t)) (gtk-rc-get-style procedure (arity 0 0 #t)) (gtk-rc-get-style-by-paths procedure (arity 4 0 #f)) (gtk-rc-get-theme-dir procedure (arity 0 0 #t)) (gtk-rc-parse procedure (arity 0 0 #t)) (gtk-rc-parse-string procedure (arity 0 0 #t)) (gtk-rc-property-parse-border procedure (arity 0 0 #t)) (gtk-rc-property-parse-color procedure (arity 0 0 #t)) (gtk-rc-property-parse-enum procedure (arity 0 0 #t)) (gtk-rc-property-parse-flags procedure (arity 0 0 #t)) (gtk-rc-property-parse-requisition procedure (arity 0 0 #t)) (gtk-rc-reparse-all procedure (arity 0 0 #t)) (gtk-rc-reparse-all-for-settings procedure (arity 0 0 #t)) (gtk-rc-reset-styles procedure (arity 0 0 #t)) (gtk-rc-set-default-files procedure (arity 0 0 #f)) (gtk-rc-style-copy procedure (arity 0 0 #t)) (gtk-rc-style-new procedure (arity 0 0 #t)) (gtk-recent-chooser-add-filter procedure (arity 0 0 #t)) (gtk-recent-chooser-error-quark procedure (arity 0 0 #t)) (gtk-recent-chooser-get-current-item procedure (arity 0 0 #t)) (gtk-recent-chooser-get-current-uri procedure (arity 0 0 #t)) (gtk-recent-chooser-get-filter procedure (arity 0 0 #t)) (gtk-recent-chooser-get-items procedure (arity 1 0 #f)) (gtk-recent-chooser-get-limit procedure (arity 0 0 #t)) (gtk-recent-chooser-get-local-only procedure (arity 0 0 #t)) (gtk-recent-chooser-get-select-multiple procedure (arity 0 0 #t)) (gtk-recent-chooser-get-show-icons procedure (arity 0 0 #t)) (gtk-recent-chooser-get-show-not-found procedure (arity 0 0 #t)) (gtk-recent-chooser-get-show-numbers procedure (arity 0 0 #t)) (gtk-recent-chooser-get-show-private procedure (arity 0 0 #t)) (gtk-recent-chooser-get-show-tips procedure (arity 0 0 #t)) (gtk-recent-chooser-get-sort-type procedure (arity 0 0 #t)) (gtk-recent-chooser-list-filters procedure (arity 1 0 #f)) (gtk-recent-chooser-menu-get-show-numbers procedure (arity 0 0 #t)) (gtk-recent-chooser-menu-new procedure (arity 0 0 #t)) (gtk-recent-chooser-menu-new-for-manager procedure (arity 0 0 #t)) (gtk-recent-chooser-menu-set-show-numbers procedure (arity 0 0 #t)) (gtk-recent-chooser-remove-filter procedure (arity 0 0 #t)) (gtk-recent-chooser-select-all procedure (arity 0 0 #t)) (gtk-recent-chooser-select-uri procedure (arity 2 0 #f)) (gtk-recent-chooser-set-current-uri procedure (arity 2 0 #f)) (gtk-recent-chooser-set-filter procedure (arity 0 0 #t)) (gtk-recent-chooser-set-limit procedure (arity 0 0 #t)) (gtk-recent-chooser-set-local-only procedure (arity 0 0 #t)) (gtk-recent-chooser-set-select-multiple procedure (arity 0 0 #t)) (gtk-recent-chooser-set-show-icons procedure (arity 0 0 #t)) (gtk-recent-chooser-set-show-not-found procedure (arity 0 0 #t)) (gtk-recent-chooser-set-show-numbers procedure (arity 0 0 #t)) (gtk-recent-chooser-set-show-private procedure (arity 0 0 #t)) (gtk-recent-chooser-set-show-tips procedure (arity 0 0 #t)) (gtk-recent-chooser-set-sort-type procedure (arity 0 0 #t)) (gtk-recent-chooser-unselect-all procedure (arity 0 0 #t)) (gtk-recent-chooser-unselect-uri procedure (arity 0 0 #t)) (gtk-recent-chooser-widget-new procedure (arity 0 0 #t)) (gtk-recent-chooser-widget-new-for-manager procedure (arity 0 0 #t)) (gtk-recent-filter-add-age procedure (arity 0 0 #t)) (gtk-recent-filter-add-application procedure (arity 0 0 #t)) (gtk-recent-filter-add-group procedure (arity 0 0 #t)) (gtk-recent-filter-add-mime-type procedure (arity 0 0 #t)) (gtk-recent-filter-add-pattern procedure (arity 0 0 #t)) (gtk-recent-filter-add-pixbuf-formats procedure (arity 0 0 #t)) (gtk-recent-filter-get-name procedure (arity 0 0 #t)) (gtk-recent-filter-get-needed procedure (arity 0 0 #t)) (gtk-recent-filter-new procedure (arity 0 0 #t)) (gtk-recent-filter-set-name procedure (arity 0 0 #t)) (gtk-recent-info-exists procedure (arity 0 0 #t)) (gtk-recent-info-get-added procedure (arity 0 0 #t)) (gtk-recent-info-get-age procedure (arity 0 0 #t)) (gtk-recent-info-get-application-info procedure (arity 2 0 #f)) (gtk-recent-info-get-description procedure (arity 0 0 #t)) (gtk-recent-info-get-display-name procedure (arity 0 0 #t)) (gtk-recent-info-get-icon procedure (arity 0 0 #t)) (gtk-recent-info-get-mime-type procedure (arity 0 0 #t)) (gtk-recent-info-get-modified procedure (arity 0 0 #t)) (gtk-recent-info-get-private-hint procedure (arity 0 0 #t)) (gtk-recent-info-get-short-name procedure (arity 0 0 #t)) (gtk-recent-info-get-uri procedure (arity 0 0 #t)) (gtk-recent-info-get-uri-display procedure (arity 0 0 #t)) (gtk-recent-info-get-visited procedure (arity 0 0 #t)) (gtk-recent-info-has-application procedure (arity 0 0 #t)) (gtk-recent-info-has-group procedure (arity 0 0 #t)) (gtk-recent-info-is-local procedure (arity 0 0 #t)) (gtk-recent-info-last-application procedure (arity 0 0 #t)) (gtk-recent-info-match procedure (arity 0 0 #t)) (gtk-recent-manager-add-item procedure (arity 0 0 #t)) (gtk-recent-manager-error-quark procedure (arity 0 0 #t)) (gtk-recent-manager-get-default procedure (arity 0 0 #t)) (gtk-recent-manager-get-for-screen procedure (arity 0 0 #t)) (gtk-recent-manager-get-items procedure (arity 1 0 #f)) (gtk-recent-manager-get-limit procedure (arity 0 0 #t)) (gtk-recent-manager-has-item procedure (arity 0 0 #t)) (gtk-recent-manager-lookup-item procedure (arity 2 0 #f)) (gtk-recent-manager-move-item procedure (arity 3 0 #f)) (gtk-recent-manager-new procedure (arity 0 0 #t)) (gtk-recent-manager-purge-items procedure (arity 1 0 #f)) (gtk-recent-manager-remove-item procedure (arity 2 0 #f)) (gtk-recent-manager-set-limit procedure (arity 0 0 #t)) (gtk-recent-manager-set-screen procedure (arity 0 0 #t)) (gtk-requisition-copy procedure (arity 0 0 #t)) (gtk-ruler-draw-pos procedure (arity 0 0 #t)) (gtk-ruler-draw-ticks procedure (arity 0 0 #t)) (gtk-ruler-get-metric procedure (arity 0 0 #t)) (gtk-ruler-get-range procedure (arity 1 0 #f)) (gtk-ruler-set-metric procedure (arity 0 0 #t)) (gtk-ruler-set-range procedure (arity 0 0 #t)) (gtk-scale-get-digits procedure (arity 0 0 #t)) (gtk-scale-get-draw-value procedure (arity 0 0 #t)) (gtk-scale-get-layout procedure (arity 0 0 #t)) (gtk-scale-get-layout-offsets procedure (arity 1 0 #f)) (gtk-scale-get-value-pos procedure (arity 0 0 #t)) (gtk-scale-set-digits procedure (arity 0 0 #t)) (gtk-scale-set-draw-value procedure (arity 0 0 #t)) (gtk-scale-set-value-pos procedure (arity 0 0 #t)) (gtk-scrolled-window-add-with-viewport procedure (arity 0 0 #t)) (gtk-scrolled-window-get-hadjustment procedure (arity 0 0 #t)) (gtk-scrolled-window-get-hscrollbar procedure (arity 0 0 #t)) (gtk-scrolled-window-get-placement procedure (arity 0 0 #t)) (gtk-scrolled-window-get-shadow-type procedure (arity 0 0 #t)) (gtk-scrolled-window-get-vadjustment procedure (arity 0 0 #t)) (gtk-scrolled-window-get-vscrollbar procedure (arity 0 0 #t)) (gtk-scrolled-window-new procedure (arity 0 2 #f)) (gtk-scrolled-window-set-hadjustment procedure (arity 0 0 #t)) (gtk-scrolled-window-set-placement procedure (arity 0 0 #t)) (gtk-scrolled-window-set-policy procedure (arity 0 0 #t)) (gtk-scrolled-window-set-shadow-type procedure (arity 0 0 #t)) (gtk-scrolled-window-set-vadjustment procedure (arity 0 0 #t)) (gtk-scrolled-window-unset-placement procedure (arity 0 0 #t)) (gtk-selection-add-target procedure (arity 0 0 #t)) (gtk-selection-clear-targets procedure (arity 0 0 #t)) (gtk-selection-convert procedure (arity 3 1 #f)) (gtk-selection-data-get-as-string procedure (arity 0 0 #t)) (gtk-selection-data-get-pixbuf procedure (arity 0 0 #t)) (gtk-selection-data-set-pixbuf procedure (arity 0 0 #t)) (gtk-selection-data-set-text procedure (arity 0 0 #t)) (gtk-selection-data-targets-include-image procedure (arity 0 0 #t)) (gtk-selection-data-targets-include-rich-text procedure (arity 0 0 #t)) (gtk-selection-data-targets-include-text procedure (arity 0 0 #t)) (gtk-selection-data-targets-include-uri procedure (arity 0 0 #t)) (gtk-selection-owner-set procedure (arity 2 1 #f)) (gtk-selection-owner-set-for-display procedure (arity 3 1 #f)) (gtk-selection-remove-all procedure (arity 0 0 #t)) (gtk-separator-menu-item-new procedure (arity 0 0 #t)) (gtk-separator-tool-item-get-draw procedure (arity 0 0 #t)) (gtk-separator-tool-item-new procedure (arity 0 0 #t)) (gtk-separator-tool-item-set-draw procedure (arity 0 0 #t)) (gtk-settings-get-default procedure (arity 0 0 #t)) (gtk-settings-get-for-screen procedure (arity 0 0 #t)) (gtk-settings-install-property procedure (arity 0 0 #t)) (gtk-settings-set-double-property procedure (arity 0 0 #t)) (gtk-settings-set-long-property procedure (arity 0 0 #t)) (gtk-settings-set-string-property procedure (arity 0 0 #t)) (gtk-size-group-add-widget procedure (arity 0 0 #t)) (gtk-size-group-get-ignore-hidden procedure (arity 0 0 #t)) (gtk-size-group-get-mode procedure (arity 0 0 #t)) (gtk-size-group-new procedure (arity 0 0 #t)) (gtk-size-group-remove-widget procedure (arity 0 0 #t)) (gtk-size-group-set-ignore-hidden procedure (arity 0 0 #t)) (gtk-size-group-set-mode procedure (arity 0 0 #t)) (gtk-socket-add-id procedure (arity 0 0 #t)) (gtk-socket-get-id procedure (arity 0 0 #t)) (gtk-socket-new procedure (arity 0 0 #t)) (gtk-spin-button-configure procedure (arity 0 0 #t)) (gtk-spin-button-get-adjustment procedure (arity 0 0 #t)) (gtk-spin-button-get-digits procedure (arity 0 0 #t)) (gtk-spin-button-get-increments procedure (arity 1 0 #f)) (gtk-spin-button-get-numeric procedure (arity 0 0 #t)) (gtk-spin-button-get-range procedure (arity 1 0 #f)) (gtk-spin-button-get-snap-to-ticks procedure (arity 0 0 #t)) (gtk-spin-button-get-update-policy procedure (arity 0 0 #t)) (gtk-spin-button-get-value procedure (arity 0 0 #t)) (gtk-spin-button-get-value-as-int procedure (arity 0 0 #t)) (gtk-spin-button-get-wrap procedure (arity 0 0 #t)) (gtk-spin-button-new procedure (arity 0 3 #f)) (gtk-spin-button-new-with-range procedure (arity 0 0 #t)) (gtk-spin-button-set-adjustment procedure (arity 0 0 #t)) (gtk-spin-button-set-digits procedure (arity 0 0 #t)) (gtk-spin-button-set-increments procedure (arity 0 0 #t)) (gtk-spin-button-set-numeric procedure (arity 0 0 #t)) (gtk-spin-button-set-range procedure (arity 0 0 #t)) (gtk-spin-button-set-snap-to-ticks procedure (arity 0 0 #t)) (gtk-spin-button-set-update-policy procedure (arity 0 0 #t)) (gtk-spin-button-set-value procedure (arity 0 0 #t)) (gtk-spin-button-set-wrap procedure (arity 0 0 #t)) (gtk-spin-button-spin procedure (arity 0 0 #t)) (gtk-spin-button-update procedure (arity 0 0 #t)) (gtk-status-icon-get-blinking procedure (arity 0 0 #t)) (gtk-status-icon-get-icon-name procedure (arity 0 0 #t)) (gtk-status-icon-get-pixbuf procedure (arity 0 0 #t)) (gtk-status-icon-get-size procedure (arity 0 0 #t)) (gtk-status-icon-get-stock procedure (arity 0 0 #t)) (gtk-status-icon-get-storage-type procedure (arity 0 0 #t)) (gtk-status-icon-get-visible procedure (arity 0 0 #t)) (gtk-status-icon-is-embedded procedure (arity 0 0 #t)) (gtk-status-icon-new procedure (arity 0 0 #t)) (gtk-status-icon-new-from-file procedure (arity 0 0 #t)) (gtk-status-icon-new-from-icon-name procedure (arity 0 0 #t)) (gtk-status-icon-new-from-pixbuf procedure (arity 0 0 #t)) (gtk-status-icon-new-from-stock procedure (arity 0 0 #t)) (gtk-status-icon-set-blinking procedure (arity 0 0 #t)) (gtk-status-icon-set-from-file procedure (arity 0 0 #t)) (gtk-status-icon-set-from-icon-name procedure (arity 0 0 #t)) (gtk-status-icon-set-from-pixbuf procedure (arity 0 0 #t)) (gtk-status-icon-set-from-stock procedure (arity 0 0 #t)) (gtk-status-icon-set-tooltip procedure (arity 0 0 #t)) (gtk-status-icon-set-visible procedure (arity 0 0 #t)) (gtk-statusbar-get-context-id procedure (arity 0 0 #t)) (gtk-statusbar-get-has-resize-grip procedure (arity 0 0 #t)) (gtk-statusbar-new procedure (arity 0 0 #t)) (gtk-statusbar-pop procedure (arity 0 0 #t)) (gtk-statusbar-push procedure (arity 0 0 #t)) (gtk-statusbar-remove procedure (arity 0 0 #t)) (gtk-statusbar-set-has-resize-grip procedure (arity 0 0 #t)) (gtk-stock-add procedure (arity 0 0 #t)) (gtk-stock-add-static procedure (arity 0 0 #t)) (gtk-stock-item-copy procedure (arity 0 0 #t)) (gtk-stock-list-ids procedure (arity 0 0 #f)) (gtk-stock-lookup procedure (arity 0 0 #t)) (gtk-style-apply-default-background procedure (arity 0 0 #t)) (gtk-style-attach procedure (arity 0 0 #t)) (gtk-style-copy procedure (arity 0 0 #t)) (gtk-style-detach procedure (arity 0 0 #t)) (gtk-style-get-bg-gc procedure (arity 0 0 #t)) (gtk-style-get-black-gc procedure (arity 0 0 #t)) (gtk-style-get-fg-gc procedure (arity 0 0 #t)) (gtk-style-get-white-gc procedure (arity 0 0 #t)) (gtk-style-lookup-color procedure (arity 0 0 #t)) (gtk-style-lookup-icon-set procedure (arity 0 0 #t)) (gtk-style-new procedure (arity 0 0 #t)) (gtk-style-render-icon procedure (arity 0 0 #t)) (gtk-style-set-background procedure (arity 0 0 #t)) (gtk-table-attach procedure (arity 6 3 #t)) (gtk-table-attach-defaults procedure (arity 0 0 #t)) (gtk-table-get-col-spacing procedure (arity 0 0 #t)) (gtk-table-get-default-col-spacing procedure (arity 0 0 #t)) (gtk-table-get-default-row-spacing procedure (arity 0 0 #t)) (gtk-table-get-homogeneous procedure (arity 0 0 #t)) (gtk-table-get-row-spacing procedure (arity 0 0 #t)) (gtk-table-new procedure (arity 0 3 #f)) (gtk-table-resize procedure (arity 0 0 #t)) (gtk-table-set-col-spacing procedure (arity 0 0 #t)) (gtk-table-set-col-spacings procedure (arity 0 0 #t)) (gtk-table-set-homogeneous procedure (arity 0 0 #t)) (gtk-table-set-row-spacing procedure (arity 0 0 #t)) (gtk-table-set-row-spacings procedure (arity 0 0 #t)) (gtk-tearoff-menu-item-new procedure (arity 0 0 #t)) (gtk-text-attributes-copy procedure (arity 0 0 #t)) (gtk-text-attributes-copy-values procedure (arity 0 0 #t)) (gtk-text-attributes-new procedure (arity 0 0 #t)) (gtk-text-buffer-add-selection-clipboard procedure (arity 0 0 #t)) (gtk-text-buffer-apply-tag procedure (arity 0 0 #t)) (gtk-text-buffer-apply-tag-by-name procedure (arity 0 0 #t)) (gtk-text-buffer-backspace procedure (arity 0 0 #t)) (gtk-text-buffer-begin-user-action procedure (arity 0 0 #t)) (gtk-text-buffer-copy-clipboard procedure (arity 0 0 #t)) (gtk-text-buffer-create-child-anchor procedure (arity 0 0 #t)) (gtk-text-buffer-create-mark procedure (arity 3 1 #f)) (gtk-text-buffer-cut-clipboard procedure (arity 0 0 #t)) (gtk-text-buffer-delete procedure (arity 0 0 #t)) (gtk-text-buffer-delete-interactive procedure (arity 0 0 #t)) (gtk-text-buffer-delete-mark procedure (arity 0 0 #t)) (gtk-text-buffer-delete-mark-by-name procedure (arity 0 0 #t)) (gtk-text-buffer-delete-selection procedure (arity 0 0 #t)) (gtk-text-buffer-deserialize-get-can-create-tags procedure (arity 0 0 #t)) (gtk-text-buffer-deserialize-set-can-create-tags procedure (arity 0 0 #t)) (gtk-text-buffer-end-user-action procedure (arity 0 0 #t)) (gtk-text-buffer-get-bounds procedure (arity 0 0 #t)) (gtk-text-buffer-get-char-count procedure (arity 0 0 #t)) (gtk-text-buffer-get-end-iter procedure (arity 0 0 #t)) (gtk-text-buffer-get-has-selection procedure (arity 0 0 #t)) (gtk-text-buffer-get-insert procedure (arity 0 0 #t)) (gtk-text-buffer-get-iter-at-child-anchor procedure (arity 0 0 #t)) (gtk-text-buffer-get-iter-at-line procedure (arity 0 0 #t)) (gtk-text-buffer-get-iter-at-line-index procedure (arity 0 0 #t)) (gtk-text-buffer-get-iter-at-line-offset procedure (arity 0 0 #t)) (gtk-text-buffer-get-iter-at-mark procedure (arity 0 0 #t)) (gtk-text-buffer-get-iter-at-offset procedure (arity 0 0 #t)) (gtk-text-buffer-get-line-count procedure (arity 0 0 #t)) (gtk-text-buffer-get-mark procedure (arity 0 0 #t)) (gtk-text-buffer-get-modified procedure (arity 0 0 #t)) (gtk-text-buffer-get-selection-bound procedure (arity 0 0 #t)) (gtk-text-buffer-get-selection-bounds procedure (arity 0 0 #t)) (gtk-text-buffer-get-slice procedure (arity 3 1 #f)) (gtk-text-buffer-get-start-iter procedure (arity 0 0 #t)) (gtk-text-buffer-get-tag-table procedure (arity 0 0 #t)) (gtk-text-buffer-get-text procedure (arity 3 1 #f)) (gtk-text-buffer-insert procedure (arity 0 0 #t)) (gtk-text-buffer-insert-at-cursor procedure (arity 0 0 #t)) (gtk-text-buffer-insert-child-anchor procedure (arity 0 0 #t)) (gtk-text-buffer-insert-interactive procedure (arity 0 0 #t)) (gtk-text-buffer-insert-interactive-at-cursor procedure (arity 0 0 #t)) (gtk-text-buffer-insert-pixbuf procedure (arity 0 0 #t)) (gtk-text-buffer-insert-range procedure (arity 0 0 #t)) (gtk-text-buffer-insert-range-interactive procedure (arity 0 0 #t)) (gtk-text-buffer-insert-with-tags procedure (arity 4 0 #f)) (gtk-text-buffer-insert-with-tags-by-name procedure (arity 4 0 #f)) (gtk-text-buffer-move-mark procedure (arity 0 0 #t)) (gtk-text-buffer-move-mark-by-name procedure (arity 0 0 #t)) (gtk-text-buffer-new procedure (arity 0 1 #f)) (gtk-text-buffer-paste-clipboard procedure (arity 0 0 #t)) (gtk-text-buffer-place-cursor procedure (arity 0 0 #t)) (gtk-text-buffer-register-deserialize-tagset procedure (arity 0 0 #t)) (gtk-text-buffer-register-serialize-tagset procedure (arity 0 0 #t)) (gtk-text-buffer-remove-all-tags procedure (arity 0 0 #t)) (gtk-text-buffer-remove-selection-clipboard procedure (arity 0 0 #t)) (gtk-text-buffer-remove-tag procedure (arity 0 0 #t)) (gtk-text-buffer-remove-tag-by-name procedure (arity 0 0 #t)) (gtk-text-buffer-select-range procedure (arity 0 0 #t)) (gtk-text-buffer-set-modified procedure (arity 0 0 #t)) (gtk-text-buffer-set-text procedure (arity 0 0 #t)) (gtk-text-child-anchor-get-deleted procedure (arity 0 0 #t)) (gtk-text-child-anchor-get-widgets procedure (arity 1 0 #f)) (gtk-text-child-anchor-new procedure (arity 0 0 #t)) (gtk-text-iter-backward-char procedure (arity 0 0 #t)) (gtk-text-iter-backward-chars procedure (arity 0 0 #t)) (gtk-text-iter-backward-cursor-position procedure (arity 0 0 #t)) (gtk-text-iter-backward-cursor-positions procedure (arity 0 0 #t)) (gtk-text-iter-backward-line procedure (arity 0 0 #t)) (gtk-text-iter-backward-lines procedure (arity 0 0 #t)) (gtk-text-iter-backward-search procedure (arity 0 0 #t)) (gtk-text-iter-backward-sentence-start procedure (arity 0 0 #t)) (gtk-text-iter-backward-sentence-starts procedure (arity 0 0 #t)) (gtk-text-iter-backward-to-tag-toggle procedure (arity 0 0 #t)) (gtk-text-iter-backward-visible-cursor-position procedure (arity 0 0 #t)) (gtk-text-iter-backward-visible-cursor-positions procedure (arity 0 0 #t)) (gtk-text-iter-backward-visible-line procedure (arity 0 0 #t)) (gtk-text-iter-backward-visible-lines procedure (arity 0 0 #t)) (gtk-text-iter-backward-visible-word-start procedure (arity 0 0 #t)) (gtk-text-iter-backward-visible-word-starts procedure (arity 0 0 #t)) (gtk-text-iter-backward-word-start procedure (arity 0 0 #t)) (gtk-text-iter-backward-word-starts procedure (arity 0 0 #t)) (gtk-text-iter-begins-tag procedure (arity 1 1 #f)) (gtk-text-iter-can-insert procedure (arity 0 0 #t)) (gtk-text-iter-compare procedure (arity 0 0 #t)) (gtk-text-iter-copy procedure (arity 0 0 #t)) (gtk-text-iter-editable procedure (arity 0 0 #t)) (gtk-text-iter-ends-line procedure (arity 0 0 #t)) (gtk-text-iter-ends-sentence procedure (arity 0 0 #t)) (gtk-text-iter-ends-tag procedure (arity 1 1 #f)) (gtk-text-iter-ends-word procedure (arity 0 0 #t)) (gtk-text-iter-equal procedure (arity 0 0 #t)) (gtk-text-iter-forward-char procedure (arity 0 0 #t)) (gtk-text-iter-forward-chars procedure (arity 0 0 #t)) (gtk-text-iter-forward-cursor-position procedure (arity 0 0 #t)) (gtk-text-iter-forward-cursor-positions procedure (arity 0 0 #t)) (gtk-text-iter-forward-line procedure (arity 0 0 #t)) (gtk-text-iter-forward-lines procedure (arity 0 0 #t)) (gtk-text-iter-forward-search procedure (arity 0 0 #t)) (gtk-text-iter-forward-sentence-end procedure (arity 0 0 #t)) (gtk-text-iter-forward-sentence-ends procedure (arity 0 0 #t)) (gtk-text-iter-forward-to-end procedure (arity 0 0 #t)) (gtk-text-iter-forward-to-line-end procedure (arity 0 0 #t)) (gtk-text-iter-forward-to-tag-toggle procedure (arity 0 0 #t)) (gtk-text-iter-forward-visible-cursor-position procedure (arity 0 0 #t)) (gtk-text-iter-forward-visible-cursor-positions procedure (arity 0 0 #t)) (gtk-text-iter-forward-visible-line procedure (arity 0 0 #t)) (gtk-text-iter-forward-visible-lines procedure (arity 0 0 #t)) (gtk-text-iter-forward-visible-word-end procedure (arity 0 0 #t)) (gtk-text-iter-forward-visible-word-ends procedure (arity 0 0 #t)) (gtk-text-iter-forward-word-end procedure (arity 0 0 #t)) (gtk-text-iter-forward-word-ends procedure (arity 0 0 #t)) (gtk-text-iter-get-attributes procedure (arity 0 0 #t)) (gtk-text-iter-get-buffer procedure (arity 0 0 #t)) (gtk-text-iter-get-bytes-in-line procedure (arity 0 0 #t)) (gtk-text-iter-get-char procedure (arity 0 0 #t)) (gtk-text-iter-get-chars-in-line procedure (arity 0 0 #t)) (gtk-text-iter-get-child-anchor procedure (arity 0 0 #t)) (gtk-text-iter-get-language procedure (arity 0 0 #t)) (gtk-text-iter-get-line procedure (arity 0 0 #t)) (gtk-text-iter-get-line-index procedure (arity 0 0 #t)) (gtk-text-iter-get-line-offset procedure (arity 0 0 #t)) (gtk-text-iter-get-marks procedure (arity 1 0 #f)) (gtk-text-iter-get-offset procedure (arity 0 0 #t)) (gtk-text-iter-get-pixbuf procedure (arity 0 0 #t)) (gtk-text-iter-get-slice procedure (arity 0 0 #t)) (gtk-text-iter-get-tags procedure (arity 1 0 #f)) (gtk-text-iter-get-text procedure (arity 0 0 #t)) (gtk-text-iter-get-toggled-tags procedure (arity 2 0 #f)) (gtk-text-iter-get-visible-line-index procedure (arity 0 0 #t)) (gtk-text-iter-get-visible-line-offset procedure (arity 0 0 #t)) (gtk-text-iter-get-visible-slice procedure (arity 0 0 #t)) (gtk-text-iter-get-visible-text procedure (arity 0 0 #t)) (gtk-text-iter-has-tag procedure (arity 0 0 #t)) (gtk-text-iter-in-range procedure (arity 0 0 #t)) (gtk-text-iter-inside-sentence procedure (arity 0 0 #t)) (gtk-text-iter-inside-word procedure (arity 0 0 #t)) (gtk-text-iter-is-cursor-position procedure (arity 0 0 #t)) (gtk-text-iter-is-end procedure (arity 0 0 #t)) (gtk-text-iter-is-start procedure (arity 0 0 #t)) (gtk-text-iter-order procedure (arity 0 0 #t)) (gtk-text-iter-set-line procedure (arity 0 0 #t)) (gtk-text-iter-set-line-index procedure (arity 0 0 #t)) (gtk-text-iter-set-line-offset procedure (arity 0 0 #t)) (gtk-text-iter-set-offset procedure (arity 0 0 #t)) (gtk-text-iter-set-visible-line-index procedure (arity 0 0 #t)) (gtk-text-iter-set-visible-line-offset procedure (arity 0 0 #t)) (gtk-text-iter-starts-line procedure (arity 0 0 #t)) (gtk-text-iter-starts-sentence procedure (arity 0 0 #t)) (gtk-text-iter-starts-word procedure (arity 0 0 #t)) (gtk-text-iter-toggles-tag procedure (arity 1 1 #f)) (gtk-text-mark-get-buffer procedure (arity 0 0 #t)) (gtk-text-mark-get-deleted procedure (arity 0 0 #t)) (gtk-text-mark-get-left-gravity procedure (arity 0 0 #t)) (gtk-text-mark-get-name procedure (arity 0 0 #t)) (gtk-text-mark-get-visible procedure (arity 0 0 #t)) (gtk-text-mark-set-visible procedure (arity 0 0 #t)) (gtk-text-tag-event procedure (arity 0 0 #t)) (gtk-text-tag-get-priority procedure (arity 0 0 #t)) (gtk-text-tag-new procedure (arity 0 1 #f)) (gtk-text-tag-set-priority procedure (arity 0 0 #t)) (gtk-text-tag-table-add procedure (arity 0 0 #t)) (gtk-text-tag-table-get-size procedure (arity 0 0 #t)) (gtk-text-tag-table-lookup procedure (arity 0 0 #t)) (gtk-text-tag-table-new procedure (arity 0 0 #t)) (gtk-text-tag-table-remove procedure (arity 0 0 #t)) (gtk-text-view-add-child-at-anchor procedure (arity 0 0 #t)) (gtk-text-view-add-child-in-window procedure (arity 0 0 #t)) (gtk-text-view-backward-display-line procedure (arity 0 0 #t)) (gtk-text-view-backward-display-line-start procedure (arity 0 0 #t)) (gtk-text-view-buffer-to-window-coords procedure (arity 4 0 #f)) (gtk-text-view-forward-display-line procedure (arity 0 0 #t)) (gtk-text-view-forward-display-line-end procedure (arity 0 0 #t)) (gtk-text-view-get-accepts-tab procedure (arity 0 0 #t)) (gtk-text-view-get-border-window-size procedure (arity 0 0 #t)) (gtk-text-view-get-buffer procedure (arity 0 0 #t)) (gtk-text-view-get-cursor-visible procedure (arity 0 0 #t)) (gtk-text-view-get-default-attributes procedure (arity 0 0 #t)) (gtk-text-view-get-editable procedure (arity 0 0 #t)) (gtk-text-view-get-indent procedure (arity 0 0 #t)) (gtk-text-view-get-iter-at-location procedure (arity 0 0 #t)) (gtk-text-view-get-iter-location procedure (arity 0 0 #t)) (gtk-text-view-get-justification procedure (arity 0 0 #t)) (gtk-text-view-get-left-margin procedure (arity 0 0 #t)) (gtk-text-view-get-line-at-y procedure (arity 3 0 #f)) (gtk-text-view-get-line-yrange procedure (arity 2 0 #f)) (gtk-text-view-get-overwrite procedure (arity 0 0 #t)) (gtk-text-view-get-pixels-above-lines procedure (arity 0 0 #t)) (gtk-text-view-get-pixels-below-lines procedure (arity 0 0 #t)) (gtk-text-view-get-pixels-inside-wrap procedure (arity 0 0 #t)) (gtk-text-view-get-right-margin procedure (arity 0 0 #t)) (gtk-text-view-get-tabs procedure (arity 0 0 #t)) (gtk-text-view-get-visible-rect procedure (arity 0 0 #t)) (gtk-text-view-get-window procedure (arity 0 0 #t)) (gtk-text-view-get-window-type procedure (arity 0 0 #t)) (gtk-text-view-get-wrap-mode procedure (arity 0 0 #t)) (gtk-text-view-move-child procedure (arity 0 0 #t)) (gtk-text-view-move-mark-onscreen procedure (arity 0 0 #t)) (gtk-text-view-move-visually procedure (arity 0 0 #t)) (gtk-text-view-new-with-buffer procedure (arity 0 1 #f)) (gtk-text-view-place-cursor-onscreen procedure (arity 0 0 #t)) (gtk-text-view-scroll-mark-onscreen procedure (arity 0 0 #t)) (gtk-text-view-scroll-to-iter procedure (arity 3 3 #f)) (gtk-text-view-scroll-to-mark procedure (arity 3 3 #f)) (gtk-text-view-set-accepts-tab procedure (arity 0 0 #t)) (gtk-text-view-set-border-window-size procedure (arity 0 0 #t)) (gtk-text-view-set-buffer procedure (arity 0 0 #t)) (gtk-text-view-set-cursor-visible procedure (arity 0 0 #t)) (gtk-text-view-set-editable procedure (arity 0 0 #t)) (gtk-text-view-set-indent procedure (arity 0 0 #t)) (gtk-text-view-set-justification procedure (arity 0 0 #t)) (gtk-text-view-set-left-margin procedure (arity 0 0 #t)) (gtk-text-view-set-overwrite procedure (arity 0 0 #t)) (gtk-text-view-set-pixels-above-lines procedure (arity 0 0 #t)) (gtk-text-view-set-pixels-below-lines procedure (arity 0 0 #t)) (gtk-text-view-set-pixels-inside-wrap procedure (arity 0 0 #t)) (gtk-text-view-set-right-margin procedure (arity 0 0 #t)) (gtk-text-view-set-tabs procedure (arity 0 0 #t)) (gtk-text-view-set-wrap-mode procedure (arity 0 0 #t)) (gtk-text-view-starts-display-line procedure (arity 0 0 #t)) (gtk-text-view-window-to-buffer-coords procedure (arity 4 0 #f)) (gtk-toggle-action-get-active procedure (arity 0 0 #t)) (gtk-toggle-action-get-draw-as-radio procedure (arity 0 0 #t)) (gtk-toggle-action-new procedure (arity 0 0 #t)) (gtk-toggle-action-set-active procedure (arity 0 0 #t)) (gtk-toggle-action-set-draw-as-radio procedure (arity 0 0 #t)) (gtk-toggle-action-toggled procedure (arity 0 0 #t)) (gtk-toggle-button-get-active procedure (arity 0 0 #t)) (gtk-toggle-button-get-inconsistent procedure (arity 0 0 #t)) (gtk-toggle-button-get-mode procedure (arity 0 0 #t)) (gtk-toggle-button-new procedure (arity 0 0 #t)) (gtk-toggle-button-new-with-label procedure (arity 0 0 #t)) (gtk-toggle-button-new-with-mnemonic procedure (arity 0 0 #t)) (gtk-toggle-button-set-active procedure (arity 0 0 #t)) (gtk-toggle-button-set-inconsistent procedure (arity 0 0 #t)) (gtk-toggle-button-set-mode procedure (arity 0 0 #t)) (gtk-toggle-button-toggled procedure (arity 0 0 #t)) (gtk-toggle-tool-button-get-active procedure (arity 0 0 #t)) (gtk-toggle-tool-button-new procedure (arity 0 0 #t)) (gtk-toggle-tool-button-new-from-stock procedure (arity 0 0 #t)) (gtk-toggle-tool-button-set-active procedure (arity 0 0 #t)) (gtk-tool-button-get-icon-name procedure (arity 0 0 #t)) (gtk-tool-button-get-icon-widget procedure (arity 0 0 #t)) (gtk-tool-button-get-label procedure (arity 0 0 #t)) (gtk-tool-button-get-label-widget procedure (arity 0 0 #t)) (gtk-tool-button-get-stock-id procedure (arity 0 0 #t)) (gtk-tool-button-get-use-underline procedure (arity 0 0 #t)) (gtk-tool-button-new procedure (arity 0 0 #t)) (gtk-tool-button-new-from-stock procedure (arity 0 0 #t)) (gtk-tool-button-set-icon-name procedure (arity 0 0 #t)) (gtk-tool-button-set-icon-widget procedure (arity 0 0 #t)) (gtk-tool-button-set-label procedure (arity 0 0 #t)) (gtk-tool-button-set-label-widget procedure (arity 0 0 #t)) (gtk-tool-button-set-stock-id procedure (arity 0 0 #t)) (gtk-tool-button-set-use-underline procedure (arity 0 0 #t)) (gtk-tool-item-get-expand procedure (arity 0 0 #t)) (gtk-tool-item-get-homogeneous procedure (arity 0 0 #t)) (gtk-tool-item-get-icon-size procedure (arity 0 0 #t)) (gtk-tool-item-get-is-important procedure (arity 0 0 #t)) (gtk-tool-item-get-orientation procedure (arity 0 0 #t)) (gtk-tool-item-get-proxy-menu-item procedure (arity 0 0 #t)) (gtk-tool-item-get-relief-style procedure (arity 0 0 #t)) (gtk-tool-item-get-toolbar-style procedure (arity 0 0 #t)) (gtk-tool-item-get-use-drag-window procedure (arity 0 0 #t)) (gtk-tool-item-get-visible-horizontal procedure (arity 0 0 #t)) (gtk-tool-item-get-visible-vertical procedure (arity 0 0 #t)) (gtk-tool-item-new procedure (arity 0 0 #t)) (gtk-tool-item-rebuild-menu procedure (arity 0 0 #t)) (gtk-tool-item-retrieve-proxy-menu-item procedure (arity 0 0 #t)) (gtk-tool-item-set-expand procedure (arity 0 0 #t)) (gtk-tool-item-set-homogeneous procedure (arity 0 0 #t)) (gtk-tool-item-set-is-important procedure (arity 0 0 #t)) (gtk-tool-item-set-proxy-menu-item procedure (arity 0 0 #t)) (gtk-tool-item-set-tooltip procedure (arity 0 0 #t)) (gtk-tool-item-set-use-drag-window procedure (arity 0 0 #t)) (gtk-tool-item-set-visible-horizontal procedure (arity 0 0 #t)) (gtk-tool-item-set-visible-vertical procedure (arity 0 0 #t)) (gtk-toolbar-get-drop-index procedure (arity 0 0 #t)) (gtk-toolbar-get-icon-size procedure (arity 0 0 #t)) (gtk-toolbar-get-item-index procedure (arity 0 0 #t)) (gtk-toolbar-get-n-items procedure (arity 0 0 #t)) (gtk-toolbar-get-nth-item procedure (arity 0 0 #t)) (gtk-toolbar-get-orientation procedure (arity 0 0 #t)) (gtk-toolbar-get-relief-style procedure (arity 0 0 #t)) (gtk-toolbar-get-show-arrow procedure (arity 0 0 #t)) (gtk-toolbar-get-style procedure (arity 0 0 #t)) (gtk-toolbar-get-tooltips procedure (arity 0 0 #t)) (gtk-toolbar-insert procedure (arity 0 0 #t)) (gtk-toolbar-new procedure (arity 0 0 #t)) (gtk-toolbar-set-drop-highlight-item procedure (arity 0 0 #t)) (gtk-toolbar-set-orientation procedure (arity 0 0 #t)) (gtk-toolbar-set-show-arrow procedure (arity 0 0 #t)) (gtk-toolbar-set-style procedure (arity 0 0 #t)) (gtk-toolbar-set-tooltips procedure (arity 0 0 #t)) (gtk-toolbar-unset-style procedure (arity 0 0 #t)) (gtk-tooltips-disable procedure (arity 0 0 #t)) (gtk-tooltips-enable procedure (arity 0 0 #t)) (gtk-tooltips-force-window procedure (arity 0 0 #t)) (gtk-tooltips-new procedure (arity 0 0 #t)) (gtk-tooltips-set-tip procedure (arity 3 1 #f)) (gtk-tree-drag-dest-drag-data-received procedure (arity 0 0 #t)) (gtk-tree-drag-dest-row-drop-possible procedure (arity 0 0 #t)) (gtk-tree-drag-source-drag-data-delete procedure (arity 0 0 #t)) (gtk-tree-drag-source-drag-data-get procedure (arity 0 0 #t)) (gtk-tree-drag-source-row-draggable procedure (arity 0 0 #t)) (gtk-tree-iter-copy procedure (arity 0 0 #t)) (gtk-tree-model-filter-clear-cache procedure (arity 0 0 #t)) (gtk-tree-model-filter-convert-child-iter-to-iter procedure (arity 0 0 #t)) (gtk-tree-model-filter-convert-child-path-to-path procedure (arity 0 0 #t)) (gtk-tree-model-filter-convert-iter-to-child-iter procedure (arity 0 0 #t)) (gtk-tree-model-filter-convert-path-to-child-path procedure (arity 0 0 #t)) (gtk-tree-model-filter-get-model procedure (arity 0 0 #t)) (gtk-tree-model-filter-new procedure (arity 0 0 #t)) (gtk-tree-model-filter-refilter procedure (arity 0 0 #t)) (gtk-tree-model-filter-set-visible-column procedure (arity 0 0 #t)) (gtk-tree-model-get-column-type procedure (arity 2 0 #f)) (gtk-tree-model-get-flags procedure (arity 0 0 #t)) (gtk-tree-model-get-iter procedure (arity 0 0 #t)) (gtk-tree-model-get-iter-first procedure (arity 0 0 #t)) (gtk-tree-model-get-n-columns procedure (arity 0 0 #t)) (gtk-tree-model-get-path procedure (arity 0 0 #t)) (gtk-tree-model-get-string-from-iter procedure (arity 0 0 #t)) (gtk-tree-model-get-value procedure (arity 0 0 #t)) (gtk-tree-model-iter-children procedure (arity 2 0 #f)) (gtk-tree-model-iter-has-child procedure (arity 0 0 #t)) (gtk-tree-model-iter-n-children procedure (arity 0 0 #t)) (gtk-tree-model-iter-next procedure (arity 0 0 #t)) (gtk-tree-model-iter-nth-child procedure (arity 0 0 #t)) (gtk-tree-model-iter-parent procedure (arity 0 0 #t)) (gtk-tree-model-ref-node procedure (arity 0 0 #t)) (gtk-tree-model-row-changed procedure (arity 0 0 #t)) (gtk-tree-model-row-deleted procedure (arity 0 0 #t)) (gtk-tree-model-row-has-child-toggled procedure (arity 0 0 #t)) (gtk-tree-model-row-inserted procedure (arity 0 0 #t)) (gtk-tree-model-rows-reordered procedure (arity 3 0 #f)) (gtk-tree-model-sort-clear-cache procedure (arity 0 0 #t)) (gtk-tree-model-sort-convert-child-iter-to-iter procedure (arity 0 0 #t)) (gtk-tree-model-sort-convert-child-path-to-path procedure (arity 0 0 #t)) (gtk-tree-model-sort-convert-iter-to-child-iter procedure (arity 0 0 #t)) (gtk-tree-model-sort-convert-path-to-child-path procedure (arity 0 0 #t)) (gtk-tree-model-sort-get-model procedure (arity 0 0 #t)) (gtk-tree-model-sort-iter-is-valid procedure (arity 0 0 #t)) (gtk-tree-model-sort-new-with-model procedure (arity 0 0 #t)) (gtk-tree-model-sort-reset-default-sort-func procedure (arity 0 0 #t)) (gtk-tree-model-unref-node procedure (arity 0 0 #t)) (gtk-tree-path-append-index procedure (arity 0 0 #t)) (gtk-tree-path-copy procedure (arity 0 0 #t)) (gtk-tree-path-new-from-string procedure (arity 0 0 #t)) (gtk-tree-path-prepend-index procedure (arity 0 0 #t)) (gtk-tree-row-reference-deleted procedure (arity 0 0 #t)) (gtk-tree-row-reference-get-model procedure (arity 0 0 #t)) (gtk-tree-row-reference-get-path procedure (arity 0 0 #t)) (gtk-tree-row-reference-inserted procedure (arity 0 0 #t)) (gtk-tree-row-reference-new procedure (arity 0 0 #t)) (gtk-tree-row-reference-new-proxy procedure (arity 0 0 #t)) (gtk-tree-row-reference-reordered procedure (arity 3 0 #f)) (gtk-tree-row-reference-valid procedure (arity 0 0 #t)) (gtk-tree-selection-count-selected-rows procedure (arity 0 0 #t)) (gtk-tree-selection-get-mode procedure (arity 0 0 #t)) (gtk-tree-selection-get-selected procedure (arity 0 0 #t)) (gtk-tree-selection-get-tree-view procedure (arity 0 0 #t)) (gtk-tree-selection-iter-is-selected procedure (arity 0 0 #t)) (gtk-tree-selection-path-is-selected procedure (arity 0 0 #t)) (gtk-tree-selection-select-all procedure (arity 0 0 #t)) (gtk-tree-selection-select-iter procedure (arity 0 0 #t)) (gtk-tree-selection-select-path procedure (arity 0 0 #t)) (gtk-tree-selection-select-range procedure (arity 0 0 #t)) (gtk-tree-selection-set-mode procedure (arity 0 0 #t)) (gtk-tree-selection-unselect-all procedure (arity 0 0 #t)) (gtk-tree-selection-unselect-iter procedure (arity 0 0 #t)) (gtk-tree-selection-unselect-path procedure (arity 0 0 #t)) (gtk-tree-selection-unselect-range procedure (arity 0 0 #t)) (gtk-tree-set-row-drag-data procedure (arity 0 0 #t)) (gtk-tree-sortable-has-default-sort-func procedure (arity 0 0 #t)) (gtk-tree-sortable-set-sort-column-id procedure (arity 0 0 #t)) (gtk-tree-sortable-sort-column-changed procedure (arity 0 0 #t)) (gtk-tree-store-append procedure (arity 0 0 #t)) (gtk-tree-store-clear procedure (arity 0 0 #t)) (gtk-tree-store-insert procedure (arity 0 0 #t)) (gtk-tree-store-insert-after procedure (arity 0 0 #t)) (gtk-tree-store-insert-before procedure (arity 0 0 #t)) (gtk-tree-store-is-ancestor procedure (arity 0 0 #t)) (gtk-tree-store-iter-depth procedure (arity 0 0 #t)) (gtk-tree-store-iter-is-valid procedure (arity 0 0 #t)) (gtk-tree-store-move-after procedure (arity 0 0 #t)) (gtk-tree-store-move-before procedure (arity 0 0 #t)) (gtk-tree-store-new procedure (arity 0 0 #t)) (gtk-tree-store-prepend procedure (arity 0 0 #t)) (gtk-tree-store-remove procedure (arity 0 0 #t)) (gtk-tree-store-reorder procedure (arity 2 0 #f)) (gtk-tree-store-set-value procedure (arity 0 0 #t)) (gtk-tree-store-swap procedure (arity 0 0 #t)) (gtk-tree-view-append-column procedure (arity 0 0 #t)) (gtk-tree-view-collapse-all procedure (arity 0 0 #t)) (gtk-tree-view-collapse-row procedure (arity 0 0 #t)) (gtk-tree-view-column-add-attribute procedure (arity 0 0 #t)) (gtk-tree-view-column-cell-get-position procedure (arity 2 0 #f)) (gtk-tree-view-column-cell-is-visible procedure (arity 0 0 #t)) (gtk-tree-view-column-cell-set-cell-data procedure (arity 0 0 #t)) (gtk-tree-view-column-clear procedure (arity 0 0 #t)) (gtk-tree-view-column-clear-attributes procedure (arity 0 0 #t)) (gtk-tree-view-column-clicked procedure (arity 0 0 #t)) (gtk-tree-view-column-focus-cell procedure (arity 0 0 #t)) (gtk-tree-view-column-get-alignment procedure (arity 0 0 #t)) (gtk-tree-view-column-get-cell-renderers procedure (arity 1 0 #f)) (gtk-tree-view-column-get-clickable procedure (arity 0 0 #t)) (gtk-tree-view-column-get-expand procedure (arity 0 0 #t)) (gtk-tree-view-column-get-fixed-width procedure (arity 0 0 #t)) (gtk-tree-view-column-get-max-width procedure (arity 0 0 #t)) (gtk-tree-view-column-get-min-width procedure (arity 0 0 #t)) (gtk-tree-view-column-get-reorderable procedure (arity 0 0 #t)) (gtk-tree-view-column-get-resizable procedure (arity 0 0 #t)) (gtk-tree-view-column-get-sizing procedure (arity 0 0 #t)) (gtk-tree-view-column-get-sort-column-id procedure (arity 0 0 #t)) (gtk-tree-view-column-get-sort-indicator procedure (arity 0 0 #t)) (gtk-tree-view-column-get-sort-order procedure (arity 0 0 #t)) (gtk-tree-view-column-get-spacing procedure (arity 0 0 #t)) (gtk-tree-view-column-get-title procedure (arity 0 0 #t)) (gtk-tree-view-column-get-visible procedure (arity 0 0 #t)) (gtk-tree-view-column-get-widget procedure (arity 0 0 #t)) (gtk-tree-view-column-get-width procedure (arity 0 0 #t)) (gtk-tree-view-column-new procedure (arity 0 0 #t)) (gtk-tree-view-column-pack-end procedure (arity 0 0 #t)) (gtk-tree-view-column-pack-start procedure (arity 0 0 #t)) (gtk-tree-view-column-queue-resize procedure (arity 0 0 #t)) (gtk-tree-view-column-set-alignment procedure (arity 0 0 #t)) (gtk-tree-view-column-set-cell-data-func procedure (arity 0 0 #t)) (gtk-tree-view-column-set-clickable procedure (arity 0 0 #t)) (gtk-tree-view-column-set-expand procedure (arity 0 0 #t)) (gtk-tree-view-column-set-fixed-width procedure (arity 0 0 #t)) (gtk-tree-view-column-set-max-width procedure (arity 0 0 #t)) (gtk-tree-view-column-set-min-width procedure (arity 0 0 #t)) (gtk-tree-view-column-set-reorderable procedure (arity 0 0 #t)) (gtk-tree-view-column-set-resizable procedure (arity 0 0 #t)) (gtk-tree-view-column-set-sizing procedure (arity 0 0 #t)) (gtk-tree-view-column-set-sort-column-id procedure (arity 0 0 #t)) (gtk-tree-view-column-set-sort-indicator procedure (arity 0 0 #t)) (gtk-tree-view-column-set-sort-order procedure (arity 0 0 #t)) (gtk-tree-view-column-set-spacing procedure (arity 0 0 #t)) (gtk-tree-view-column-set-title procedure (arity 0 0 #t)) (gtk-tree-view-column-set-visible procedure (arity 0 0 #t)) (gtk-tree-view-column-set-widget procedure (arity 0 0 #t)) (gtk-tree-view-columns-autosize procedure (arity 0 0 #t)) (gtk-tree-view-create-row-drag-icon procedure (arity 0 0 #t)) (gtk-tree-view-expand-all procedure (arity 0 0 #t)) (gtk-tree-view-expand-row procedure (arity 0 0 #t)) (gtk-tree-view-expand-to-path procedure (arity 0 0 #t)) (gtk-tree-view-get-bin-window procedure (arity 0 0 #t)) (gtk-tree-view-get-column procedure (arity 0 0 #t)) (gtk-tree-view-get-columns procedure (arity 1 0 #f)) (gtk-tree-view-get-enable-search procedure (arity 0 0 #t)) (gtk-tree-view-get-enable-tree-lines procedure (arity 0 0 #t)) (gtk-tree-view-get-expander-column procedure (arity 0 0 #t)) (gtk-tree-view-get-fixed-height-mode procedure (arity 0 0 #t)) (gtk-tree-view-get-grid-lines procedure (arity 0 0 #t)) (gtk-tree-view-get-hadjustment procedure (arity 0 0 #t)) (gtk-tree-view-get-headers-clickable procedure (arity 0 0 #t)) (gtk-tree-view-get-headers-visible procedure (arity 0 0 #t)) (gtk-tree-view-get-hover-expand procedure (arity 0 0 #t)) (gtk-tree-view-get-hover-selection procedure (arity 0 0 #t)) (gtk-tree-view-get-model procedure (arity 0 0 #t)) (gtk-tree-view-get-reorderable procedure (arity 0 0 #t)) (gtk-tree-view-get-rubber-banding procedure (arity 0 0 #t)) (gtk-tree-view-get-rules-hint procedure (arity 0 0 #t)) (gtk-tree-view-get-search-column procedure (arity 0 0 #t)) (gtk-tree-view-get-search-entry procedure (arity 0 0 #t)) (gtk-tree-view-get-selection procedure (arity 0 0 #t)) (gtk-tree-view-get-vadjustment procedure (arity 0 0 #t)) (gtk-tree-view-insert-column procedure (arity 0 0 #t)) (gtk-tree-view-move-column-after procedure (arity 0 0 #t)) (gtk-tree-view-new procedure (arity 0 0 #t)) (gtk-tree-view-new-with-model procedure (arity 0 1 #f)) (gtk-tree-view-remove-column procedure (arity 0 0 #t)) (gtk-tree-view-row-activated procedure (arity 0 0 #t)) (gtk-tree-view-row-expanded procedure (arity 0 0 #t)) (gtk-tree-view-scroll-to-cell procedure (arity 2 4 #f)) (gtk-tree-view-scroll-to-point procedure (arity 0 0 #t)) (gtk-tree-view-set-cursor procedure (arity 2 2 #f)) (gtk-tree-view-set-cursor-on-cell procedure (arity 0 0 #t)) (gtk-tree-view-set-drag-dest-row procedure (arity 0 0 #t)) (gtk-tree-view-set-enable-search procedure (arity 0 0 #t)) (gtk-tree-view-set-enable-tree-lines procedure (arity 0 0 #t)) (gtk-tree-view-set-expander-column procedure (arity 0 0 #t)) (gtk-tree-view-set-fixed-height-mode procedure (arity 0 0 #t)) (gtk-tree-view-set-grid-lines procedure (arity 0 0 #t)) (gtk-tree-view-set-hadjustment procedure (arity 0 0 #t)) (gtk-tree-view-set-headers-clickable procedure (arity 0 0 #t)) (gtk-tree-view-set-headers-visible procedure (arity 0 0 #t)) (gtk-tree-view-set-hover-expand procedure (arity 0 0 #t)) (gtk-tree-view-set-hover-selection procedure (arity 0 0 #t)) (gtk-tree-view-set-model procedure (arity 1 1 #f)) (gtk-tree-view-set-reorderable procedure (arity 0 0 #t)) (gtk-tree-view-set-rubber-banding procedure (arity 0 0 #t)) (gtk-tree-view-set-rules-hint procedure (arity 0 0 #t)) (gtk-tree-view-set-search-column procedure (arity 0 0 #t)) (gtk-tree-view-set-search-entry procedure (arity 0 0 #t)) (gtk-tree-view-set-vadjustment procedure (arity 0 0 #t)) (gtk-tree-view-tree-to-widget-coords procedure (arity 3 0 #f)) (gtk-tree-view-unset-rows-drag-dest procedure (arity 0 0 #t)) (gtk-tree-view-unset-rows-drag-source procedure (arity 0 0 #t)) (gtk-tree-view-widget-to-tree-coords procedure (arity 3 0 #f)) (gtk-true procedure (arity 0 0 #t)) (gtk-ui-manager-add-ui procedure (arity 0 0 #t)) (gtk-ui-manager-add-ui-from-file procedure (arity 2 0 #f)) (gtk-ui-manager-add-ui-from-string procedure (arity 2 0 #f)) (gtk-ui-manager-ensure-update procedure (arity 0 0 #t)) (gtk-ui-manager-get-accel-group procedure (arity 0 0 #t)) (gtk-ui-manager-get-action procedure (arity 0 0 #t)) (gtk-ui-manager-get-action-groups procedure (arity 1 0 #f)) (gtk-ui-manager-get-add-tearoffs procedure (arity 0 0 #t)) (gtk-ui-manager-get-toplevels procedure (arity 2 0 #f)) (gtk-ui-manager-get-ui procedure (arity 0 0 #t)) (gtk-ui-manager-get-widget procedure (arity 0 0 #t)) (gtk-ui-manager-insert-action-group procedure (arity 0 0 #t)) (gtk-ui-manager-new procedure (arity 0 0 #t)) (gtk-ui-manager-new-merge-id procedure (arity 0 0 #t)) (gtk-ui-manager-remove-action-group procedure (arity 0 0 #t)) (gtk-ui-manager-remove-ui procedure (arity 0 0 #t)) (gtk-ui-manager-set-add-tearoffs procedure (arity 0 0 #t)) (gtk-vbox-new procedure (arity 0 2 #f)) (gtk-vbutton-box-new procedure (arity 0 0 #t)) (gtk-viewport-get-hadjustment procedure (arity 0 0 #t)) (gtk-viewport-get-shadow-type procedure (arity 0 0 #t)) (gtk-viewport-get-vadjustment procedure (arity 0 0 #t)) (gtk-viewport-new procedure (arity 0 2 #f)) (gtk-viewport-set-hadjustment procedure (arity 0 0 #t)) (gtk-viewport-set-shadow-type procedure (arity 0 0 #t)) (gtk-viewport-set-vadjustment procedure (arity 0 0 #t)) (gtk-vpaned-new procedure (arity 0 0 #t)) (gtk-vruler-new procedure (arity 0 0 #t)) (gtk-vscale-new procedure (arity 0 1 #f)) (gtk-vscale-new-with-range procedure (arity 0 0 #t)) (gtk-vscrollbar-get-type procedure (arity 0 0 #f)) (gtk-vscrollbar-new procedure (arity 0 1 #f)) (gtk-vseparator-new procedure (arity 0 0 #t)) (gtk-widget-activate procedure (arity 0 0 #t)) (gtk-widget-add-accelerator procedure (arity 0 0 #t)) (gtk-widget-add-events procedure (arity 0 0 #t)) (gtk-widget-add-mnemonic-label procedure (arity 0 0 #t)) (gtk-widget-can-activate-accel procedure (arity 0 0 #t)) (gtk-widget-child-focus procedure (arity 0 0 #t)) (gtk-widget-child-notify procedure (arity 0 0 #t)) (gtk-widget-class-path procedure (arity 1 0 #f)) (gtk-widget-create-pango-context procedure (arity 0 0 #t)) (gtk-widget-create-pango-layout procedure (arity 0 0 #t)) (gtk-widget-destroy procedure (arity 0 0 #t)) (gtk-widget-ensure-style procedure (arity 0 0 #t)) (gtk-widget-event procedure (arity 0 0 #t)) (gtk-widget-freeze-child-notify procedure (arity 0 0 #t)) (gtk-widget-get-accessible procedure (arity 0 0 #t)) (gtk-widget-get-action procedure (arity 0 0 #t)) (gtk-widget-get-allocation procedure (arity 0 0 #t)) (gtk-widget-get-ancestor procedure (arity 2 0 #f)) (gtk-widget-get-child-requisition procedure (arity 0 0 #t)) (gtk-widget-get-child-visible procedure (arity 0 0 #t)) (gtk-widget-get-clipboard procedure (arity 0 0 #t)) (gtk-widget-get-colormap procedure (arity 0 0 #t)) (gtk-widget-get-composite-name procedure (arity 0 0 #t)) (gtk-widget-get-default-colormap procedure (arity 0 0 #t)) (gtk-widget-get-default-direction procedure (arity 0 0 #t)) (gtk-widget-get-default-style procedure (arity 0 0 #t)) (gtk-widget-get-default-visual procedure (arity 0 0 #t)) (gtk-widget-get-direction procedure (arity 0 0 #t)) (gtk-widget-get-display procedure (arity 0 0 #t)) (gtk-widget-get-events procedure (arity 0 0 #t)) (gtk-widget-get-extension-events procedure (arity 0 0 #t)) (gtk-widget-get-modifier-style procedure (arity 0 0 #t)) (gtk-widget-get-name procedure (arity 0 0 #t)) (gtk-widget-get-no-show-all procedure (arity 0 0 #t)) (gtk-widget-get-pango-context procedure (arity 0 0 #t)) (gtk-widget-get-parent procedure (arity 0 0 #t)) (gtk-widget-get-parent-window procedure (arity 0 0 #t)) (gtk-widget-get-pointer procedure (arity 1 0 #f)) (gtk-widget-get-root-window procedure (arity 0 0 #t)) (gtk-widget-get-screen procedure (arity 0 0 #t)) (gtk-widget-get-settings procedure (arity 0 0 #t)) (gtk-widget-get-size-request procedure (arity 1 0 #f)) (gtk-widget-get-state procedure (arity 0 0 #t)) (gtk-widget-get-style procedure (arity 0 0 #t)) (gtk-widget-get-toplevel procedure (arity 0 0 #t)) (gtk-widget-get-visual procedure (arity 0 0 #t)) (gtk-widget-get-window procedure (arity 0 0 #t)) (gtk-widget-grab-default procedure (arity 0 0 #t)) (gtk-widget-grab-focus procedure (arity 0 0 #t)) (gtk-widget-has-screen procedure (arity 0 0 #t)) (gtk-widget-hide procedure (arity 0 0 #t)) (gtk-widget-hide-all procedure (arity 0 0 #t)) (gtk-widget-hide-on-delete procedure (arity 0 0 #t)) (gtk-widget-input-shape-combine-mask procedure (arity 0 0 #t)) (gtk-widget-is-ancestor procedure (arity 0 0 #t)) (gtk-widget-is-composited procedure (arity 0 0 #t)) (gtk-widget-is-focus procedure (arity 0 0 #t)) (gtk-widget-list-accel-closures procedure (arity 1 0 #f)) (gtk-widget-list-mnemonic-labels procedure (arity 1 0 #f)) (gtk-widget-map procedure (arity 0 0 #t)) (gtk-widget-mnemonic-activate procedure (arity 0 0 #t)) (gtk-widget-modify-base procedure (arity 0 0 #t)) (gtk-widget-modify-bg procedure (arity 0 0 #t)) (gtk-widget-modify-fg procedure (arity 0 0 #t)) (gtk-widget-modify-font procedure (arity 0 0 #t)) (gtk-widget-modify-style procedure (arity 0 0 #t)) (gtk-widget-modify-text procedure (arity 0 0 #t)) (gtk-widget-path procedure (arity 1 0 #f)) (gtk-widget-pop-colormap procedure (arity 0 0 #t)) (gtk-widget-pop-composite-child procedure (arity 0 0 #t)) (gtk-widget-push-colormap procedure (arity 0 0 #t)) (gtk-widget-push-composite-child procedure (arity 0 0 #t)) (gtk-widget-queue-draw procedure (arity 0 0 #t)) (gtk-widget-queue-draw-area procedure (arity 0 0 #t)) (gtk-widget-queue-resize procedure (arity 0 0 #t)) (gtk-widget-queue-resize-no-redraw procedure (arity 0 0 #t)) (gtk-widget-realize procedure (arity 0 0 #t)) (gtk-widget-region-intersect procedure (arity 0 0 #t)) (gtk-widget-remove-accelerator procedure (arity 0 0 #t)) (gtk-widget-remove-mnemonic-label procedure (arity 0 0 #t)) (gtk-widget-render-icon procedure (arity 0 0 #t)) (gtk-widget-reparent procedure (arity 0 0 #t)) (gtk-widget-reset-rc-styles procedure (arity 0 0 #t)) (gtk-widget-reset-shapes procedure (arity 0 0 #t)) (gtk-widget-send-expose procedure (arity 0 0 #t)) (gtk-widget-set-accel-path procedure (arity 0 0 #t)) (gtk-widget-set-app-paintable procedure (arity 0 0 #t)) (gtk-widget-set-child-visible procedure (arity 0 0 #t)) (gtk-widget-set-colormap procedure (arity 0 0 #t)) (gtk-widget-set-composite-name procedure (arity 0 0 #t)) (gtk-widget-set-default-colormap procedure (arity 0 0 #t)) (gtk-widget-set-default-direction procedure (arity 0 0 #t)) (gtk-widget-set-direction procedure (arity 0 0 #t)) (gtk-widget-set-double-buffered procedure (arity 0 0 #t)) (gtk-widget-set-events procedure (arity 0 0 #t)) (gtk-widget-set-extension-events procedure (arity 0 0 #t)) (gtk-widget-set-name procedure (arity 0 0 #t)) (gtk-widget-set-no-show-all procedure (arity 0 0 #t)) (gtk-widget-set-parent procedure (arity 0 0 #t)) (gtk-widget-set-parent-window procedure (arity 0 0 #t)) (gtk-widget-set-redraw-on-allocate procedure (arity 0 0 #t)) (gtk-widget-set-scroll-adjustments procedure (arity 0 0 #t)) (gtk-widget-set-sensitive procedure (arity 0 0 #t)) (gtk-widget-set-size-request procedure (arity 0 0 #t)) (gtk-widget-set-state procedure (arity 0 0 #t)) (gtk-widget-set-style procedure (arity 0 0 #t)) (gtk-widget-shape-combine-mask procedure (arity 0 0 #t)) (gtk-widget-show procedure (arity 0 0 #t)) (gtk-widget-show-all procedure (arity 0 0 #t)) (gtk-widget-show-now procedure (arity 0 0 #t)) (gtk-widget-size-allocate procedure (arity 0 0 #t)) (gtk-widget-size-request procedure (arity 0 0 #t)) (gtk-widget-style-get-property procedure (arity 0 0 #t)) (gtk-widget-thaw-child-notify procedure (arity 0 0 #t)) (gtk-widget-translate-coordinates procedure (arity 4 0 #f)) (gtk-widget-unmap procedure (arity 0 0 #t)) (gtk-widget-unparent procedure (arity 0 0 #t)) (gtk-widget-unrealize procedure (arity 0 0 #t)) (gtk-window-activate-default procedure (arity 0 0 #t)) (gtk-window-activate-focus procedure (arity 0 0 #t)) (gtk-window-activate-key procedure (arity 0 0 #t)) (gtk-window-add-accel-group procedure (arity 0 0 #t)) (gtk-window-add-mnemonic procedure (arity 0 0 #t)) (gtk-window-begin-move-drag procedure (arity 0 0 #t)) (gtk-window-begin-resize-drag procedure (arity 0 0 #t)) (gtk-window-deiconify procedure (arity 0 0 #t)) (gtk-window-fullscreen procedure (arity 0 0 #t)) (gtk-window-get-accept-focus procedure (arity 0 0 #t)) (gtk-window-get-decorated procedure (arity 0 0 #t)) (gtk-window-get-default-icon-list procedure (arity 0 0 #f)) (gtk-window-get-default-size procedure (arity 1 0 #f)) (gtk-window-get-deletable procedure (arity 0 0 #t)) (gtk-window-get-destroy-with-parent procedure (arity 0 0 #t)) (gtk-window-get-focus procedure (arity 0 0 #t)) (gtk-window-get-focus-on-map procedure (arity 0 0 #t)) (gtk-window-get-frame-dimensions procedure (arity 1 0 #f)) (gtk-window-get-gravity procedure (arity 0 0 #t)) (gtk-window-get-group procedure (arity 0 0 #t)) (gtk-window-get-has-frame procedure (arity 0 0 #t)) (gtk-window-get-icon procedure (arity 0 0 #t)) (gtk-window-get-icon-list procedure (arity 1 0 #f)) (gtk-window-get-icon-name procedure (arity 0 0 #t)) (gtk-window-get-mnemonic-modifier procedure (arity 0 0 #t)) (gtk-window-get-modal procedure (arity 0 0 #t)) (gtk-window-get-position procedure (arity 1 0 #f)) (gtk-window-get-resizable procedure (arity 0 0 #t)) (gtk-window-get-role procedure (arity 0 0 #t)) (gtk-window-get-screen procedure (arity 0 0 #t)) (gtk-window-get-size procedure (arity 1 0 #f)) (gtk-window-get-skip-pager-hint procedure (arity 0 0 #t)) (gtk-window-get-skip-taskbar-hint procedure (arity 0 0 #t)) (gtk-window-get-title procedure (arity 0 0 #t)) (gtk-window-get-transient-for procedure (arity 0 0 #t)) (gtk-window-get-type-hint procedure (arity 0 0 #t)) (gtk-window-get-urgency-hint procedure (arity 0 0 #t)) (gtk-window-group-add-window procedure (arity 0 0 #t)) (gtk-window-group-new procedure (arity 0 0 #t)) (gtk-window-group-remove-window procedure (arity 0 0 #t)) (gtk-window-has-toplevel-focus procedure (arity 0 0 #t)) (gtk-window-iconify procedure (arity 0 0 #t)) (gtk-window-is-active procedure (arity 0 0 #t)) (gtk-window-list-toplevels procedure (arity 0 0 #f)) (gtk-window-maximize procedure (arity 0 0 #t)) (gtk-window-mnemonic-activate procedure (arity 0 0 #t)) (gtk-window-move procedure (arity 0 0 #t)) (gtk-window-new procedure (arity 0 1 #f)) (gtk-window-parse-geometry procedure (arity 0 0 #t)) (gtk-window-present procedure (arity 0 0 #t)) (gtk-window-present-with-time procedure (arity 0 0 #t)) (gtk-window-propagate-key-event procedure (arity 0 0 #t)) (gtk-window-remove-accel-group procedure (arity 0 0 #t)) (gtk-window-remove-mnemonic procedure (arity 0 0 #t)) (gtk-window-reshow-with-initial-size procedure (arity 0 0 #t)) (gtk-window-resize procedure (arity 0 0 #t)) (gtk-window-set-accept-focus procedure (arity 0 0 #t)) (gtk-window-set-auto-startup-notification procedure (arity 0 0 #t)) (gtk-window-set-decorated procedure (arity 0 0 #t)) (gtk-window-set-default procedure (arity 0 0 #t)) (gtk-window-set-default-icon procedure (arity 0 0 #t)) (gtk-window-set-default-icon-from-file procedure (arity 1 0 #f)) (gtk-window-set-default-icon-list procedure (arity 1 0 #f)) (gtk-window-set-default-icon-name procedure (arity 0 0 #t)) (gtk-window-set-default-size procedure (arity 0 0 #t)) (gtk-window-set-deletable procedure (arity 0 0 #t)) (gtk-window-set-destroy-with-parent procedure (arity 0 0 #t)) (gtk-window-set-focus procedure (arity 0 0 #t)) (gtk-window-set-focus-on-map procedure (arity 0 0 #t)) (gtk-window-set-frame-dimensions procedure (arity 0 0 #t)) (gtk-window-set-gravity procedure (arity 0 0 #t)) (gtk-window-set-has-frame procedure (arity 0 0 #t)) (gtk-window-set-icon procedure (arity 0 0 #t)) (gtk-window-set-icon-from-file procedure (arity 2 0 #f)) (gtk-window-set-icon-list procedure (arity 2 0 #f)) (gtk-window-set-icon-name procedure (arity 0 0 #t)) (gtk-window-set-keep-above procedure (arity 0 0 #t)) (gtk-window-set-keep-below procedure (arity 0 0 #t)) (gtk-window-set-mnemonic-modifier procedure (arity 0 0 #t)) (gtk-window-set-modal procedure (arity 0 0 #t)) (gtk-window-set-position procedure (arity 0 0 #t)) (gtk-window-set-resizable procedure (arity 0 0 #t)) (gtk-window-set-role procedure (arity 0 0 #t)) (gtk-window-set-screen procedure (arity 0 0 #t)) (gtk-window-set-skip-pager-hint procedure (arity 0 0 #t)) (gtk-window-set-skip-taskbar-hint procedure (arity 0 0 #t)) (gtk-window-set-title procedure (arity 0 0 #t)) (gtk-window-set-transient-for procedure (arity 0 0 #t)) (gtk-window-set-type-hint procedure (arity 0 0 #t)) (gtk-window-set-urgency-hint procedure (arity 0 0 #t)) (gtk-window-set-wmclass procedure (arity 0 0 #t)) (gtk-window-stick procedure (arity 0 0 #t)) (gtk-window-unfullscreen procedure (arity 0 0 #t)) (gtk-window-unmaximize procedure (arity 0 0 #t)) (gtk-window-unstick procedure (arity 0 0 #t))))) guile-gnome-platform-2.16.2/gtk/tests/gdk/0000755000175000017500000000000011752546503020670 5ustar00wingowingo00000000000000guile-gnome-platform-2.16.2/gtk/tests/gdk/wrapset.scm0000644000175000017500000000311411670374303023054 0ustar00wingowingo00000000000000;;; ---------------------------------------------------------------------- ;;; unit test ;;; Copyright (C) 2007 Andy Wingo ;;; ;;; This program is free software; you can redistribute it and/or modify ;;; it under the terms of the GNU General Public License as published by ;;; the Free Software Foundation; either version 2 of the License, or ;;; (at your option) any later version. ;;; ;;; This program is distributed in the hope that it will be useful, ;;; but WITHOUT ANY WARRANTY; without even the implied warranty of ;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the ;;; GNU General Public License for more details. ;;; ;;; You should have received a copy of the GNU General Public License ;;; along with this program; if not, write to the Free Software ;;; Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA ;;; ---------------------------------------------------------------------- (use-modules (unit-test) (apicheck) (ice-9 pretty-print) (oop goops)) (define-class ()) (define *modules* (call-with-input-string (getenv "WRAPSET_MODULES") read)) (define *api-file* (getenv "WRAPSET_API_FILE")) (define-method (test-wrapset-api (self )) (apicheck-validate (call-with-input-file *api-file* read) *modules*)) (define (main args) (exit-with-summary (run-all-defined-test-cases))) (define (update-api args) (with-output-to-file *api-file* (lambda () (pretty-print (apicheck-generate *modules*))))) guile-gnome-platform-2.16.2/gtk/tests/gdk/Makefile.am0000644000175000017500000000015311670374303022717 0ustar00wingowingo00000000000000include ../../../tests.mk wrapset_stem = gdk top_module_name = extra_module_names = (gnome gtk gdk-event) guile-gnome-platform-2.16.2/gtk/tests/gdk/Makefile.in0000644000175000017500000004016711752511067022742 0ustar00wingowingo00000000000000# Makefile.in generated by automake 1.11.5 from Makefile.am. # @configure_input@ # Copyright (C) 1994, 1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, # 2003, 2004, 2005, 2006, 2007, 2008, 2009, 2010, 2011 Free Software # Foundation, Inc. # This Makefile.in is free software; the Free Software Foundation # gives unlimited permission to copy and/or distribute it, # with or without modifications, as long as this notice is preserved. # This program is distributed in the hope that it will be useful, # but WITHOUT ANY WARRANTY, to the extent permitted by law; without # even the implied warranty of MERCHANTABILITY or FITNESS FOR A # PARTICULAR PURPOSE. @SET_MAKE@ # guile-gnome # Copyright (C) 2007, 2011 Free Software Foundation, Inc. # This program is free software; you can redistribute it and/or # modify it under the terms of the GNU General Public License as # published by the Free Software Foundation; either version 2 of # the License, or (at your option) any later version. # This program is distributed in the hope that it will be useful, # but WITHOUT ANY WARRANTY; without even the implied warranty of # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the # GNU General Public License for more details. # You should have received a copy of the GNU General Public License # along with this program; if not, contact: # Free Software Foundation Voice: +1-617-542-5942 # 59 Temple Place - Suite 330 Fax: +1-617-542-2652 # Boston, MA 02111-1307, USA gnu@gnu.org VPATH = @srcdir@ am__make_dryrun = \ { \ am__dry=no; \ case $$MAKEFLAGS in \ *\\[\ \ ]*) \ echo 'am--echo: ; @echo "AM" OK' | $(MAKE) -f - 2>/dev/null \ | grep '^AM OK$$' >/dev/null || am__dry=yes;; \ *) \ for am__flg in $$MAKEFLAGS; do \ case $$am__flg in \ *=*|--*) ;; \ *n*) am__dry=yes; break;; \ esac; \ done;; \ esac; \ test $$am__dry = yes; \ } pkgdatadir = $(datadir)/@PACKAGE@ pkgincludedir = $(includedir)/@PACKAGE@ pkglibdir = $(libdir)/@PACKAGE@ pkglibexecdir = $(libexecdir)/@PACKAGE@ am__cd = CDPATH="$${ZSH_VERSION+.}$(PATH_SEPARATOR)" && cd install_sh_DATA = $(install_sh) -c -m 644 install_sh_PROGRAM = $(install_sh) -c install_sh_SCRIPT = $(install_sh) -c INSTALL_HEADER = $(INSTALL_DATA) transform = $(program_transform_name) NORMAL_INSTALL = : PRE_INSTALL = : POST_INSTALL = : NORMAL_UNINSTALL = : PRE_UNINSTALL = : POST_UNINSTALL = : build_triplet = @build@ host_triplet = @host@ DIST_COMMON = $(srcdir)/../../../tests.mk $(srcdir)/Makefile.am \ $(srcdir)/Makefile.in subdir = gtk/tests/gdk ACLOCAL_M4 = $(top_srcdir)/aclocal.m4 am__aclocal_m4_deps = $(top_srcdir)/configure.ac am__configure_deps = $(am__aclocal_m4_deps) $(CONFIGURE_DEPENDENCIES) \ $(ACLOCAL_M4) mkinstalldirs = $(install_sh) -d CONFIG_HEADER = $(top_builddir)/config.h CONFIG_CLEAN_FILES = CONFIG_CLEAN_VPATH_FILES = SOURCES = DIST_SOURCES = am__can_run_installinfo = \ case $$AM_UPDATE_INFO_DIR in \ n|no|NO) false;; \ *) (install-info --version) >/dev/null 2>&1;; \ esac am__tty_colors = \ red=; grn=; lgn=; blu=; std= DISTFILES = $(DIST_COMMON) $(DIST_SOURCES) $(TEXINFOS) $(EXTRA_DIST) ACLOCAL = @ACLOCAL@ AG_PKG_CONFIG_PATH = @AG_PKG_CONFIG_PATH@ AMTAR = @AMTAR@ API_VERSION = @API_VERSION@ AR = @AR@ ATK_CFLAGS = @ATK_CFLAGS@ ATK_LIBS = @ATK_LIBS@ AUTOCONF = @AUTOCONF@ AUTOHEADER = @AUTOHEADER@ AUTOMAKE = @AUTOMAKE@ AWK = @AWK@ BONOBO_IDL_DIR = @BONOBO_IDL_DIR@ CANVAS_CFLAGS = @CANVAS_CFLAGS@ CANVAS_LIBS = @CANVAS_LIBS@ CC = @CC@ CCDEPMODE = @CCDEPMODE@ CFLAGS = @CFLAGS@ CORBA_CFLAGS = @CORBA_CFLAGS@ CORBA_LIBS = @CORBA_LIBS@ CPP = @CPP@ CPPFLAGS = @CPPFLAGS@ CYGPATH_W = @CYGPATH_W@ DEFS = @DEFS@ DEPDIR = @DEPDIR@ DLLTOOL = @DLLTOOL@ DSYMUTIL = @DSYMUTIL@ DUMPBIN = @DUMPBIN@ ECHO_C = @ECHO_C@ ECHO_N = @ECHO_N@ ECHO_T = @ECHO_T@ EGREP = @EGREP@ EXEEXT = @EXEEXT@ FGREP = @FGREP@ GCONF_CFLAGS = @GCONF_CFLAGS@ GCONF_LIBS = @GCONF_LIBS@ GDK_CFLAGS = @GDK_CFLAGS@ GDK_LIBS = @GDK_LIBS@ GDK_PIXBUF_CFLAGS = @GDK_PIXBUF_CFLAGS@ GDK_PIXBUF_LIBS = @GDK_PIXBUF_LIBS@ GLIB_CFLAGS = @GLIB_CFLAGS@ GLIB_LIBS = @GLIB_LIBS@ GNOMEUI_DEPRECATION_FLAGS = @GNOMEUI_DEPRECATION_FLAGS@ GNOME_VFS_CFLAGS = @GNOME_VFS_CFLAGS@ GNOME_VFS_DEPRECATED_CFLAGS = @GNOME_VFS_DEPRECATED_CFLAGS@ GNOME_VFS_LIBS = @GNOME_VFS_LIBS@ GOBJECT_CFLAGS = @GOBJECT_CFLAGS@ GOBJECT_LIBS = @GOBJECT_LIBS@ GREP = @GREP@ GTHREAD_CFLAGS = @GTHREAD_CFLAGS@ GTHREAD_LIBS = @GTHREAD_LIBS@ GTK_CFLAGS = @GTK_CFLAGS@ GTK_DEPRECATED_CFLAGS = @GTK_DEPRECATED_CFLAGS@ GTK_LIBS = @GTK_LIBS@ GUILE_CAIRO_CFLAGS = @GUILE_CAIRO_CFLAGS@ GUILE_CAIRO_LIBS = @GUILE_CAIRO_LIBS@ GUILE_CFLAGS = @GUILE_CFLAGS@ GUILE_EFFECTIVE_VERSION = @GUILE_EFFECTIVE_VERSION@ GUILE_GLIB_CFLAGS = @GUILE_GLIB_CFLAGS@ GUILE_GLIB_LIBS = @GUILE_GLIB_LIBS@ GUILE_LIBS = @GUILE_LIBS@ G_WRAP_CFLAGS = @G_WRAP_CFLAGS@ G_WRAP_LIBS = @G_WRAP_LIBS@ G_WRAP_LIB_DIR = @G_WRAP_LIB_DIR@ G_WRAP_MODULE_DIR = @G_WRAP_MODULE_DIR@ INSTALL = @INSTALL@ INSTALL_DATA = @INSTALL_DATA@ INSTALL_PROGRAM = @INSTALL_PROGRAM@ INSTALL_SCRIPT = @INSTALL_SCRIPT@ INSTALL_STRIP_PROGRAM = @INSTALL_STRIP_PROGRAM@ LD = @LD@ LDFLAGS = @LDFLAGS@ LIBGLADE_CFLAGS = @LIBGLADE_CFLAGS@ LIBGLADE_LIBS = @LIBGLADE_LIBS@ LIBGNOMEUI_CFLAGS = @LIBGNOMEUI_CFLAGS@ LIBGNOMEUI_LIBS = @LIBGNOMEUI_LIBS@ LIBGNOME_CFLAGS = @LIBGNOME_CFLAGS@ LIBGNOME_LIBS = @LIBGNOME_LIBS@ LIBOBJS = @LIBOBJS@ LIBS = @LIBS@ LIBTOOL = @LIBTOOL@ LIPO = @LIPO@ LN_S = @LN_S@ LTLIBOBJS = @LTLIBOBJS@ MAKEINFO = @MAKEINFO@ MANIFEST_TOOL = @MANIFEST_TOOL@ MKDIR_P = @MKDIR_P@ NM = @NM@ NMEDIT = @NMEDIT@ OBJDUMP = @OBJDUMP@ OBJEXT = @OBJEXT@ ORBIT_IDL = @ORBIT_IDL@ OTOOL = @OTOOL@ OTOOL64 = @OTOOL64@ PACKAGE = @PACKAGE@ PACKAGE_BUGREPORT = @PACKAGE_BUGREPORT@ PACKAGE_NAME = @PACKAGE_NAME@ PACKAGE_STRING = @PACKAGE_STRING@ PACKAGE_TARNAME = @PACKAGE_TARNAME@ PACKAGE_URL = @PACKAGE_URL@ PACKAGE_VERSION = @PACKAGE_VERSION@ PANGOCAIRO_CFLAGS = @PANGOCAIRO_CFLAGS@ PANGOCAIRO_LIBS = @PANGOCAIRO_LIBS@ PANGO_CFLAGS = @PANGO_CFLAGS@ PANGO_LIBS = @PANGO_LIBS@ PATH_SEPARATOR = @PATH_SEPARATOR@ PKG_CONFIG = @PKG_CONFIG@ PKG_CONFIG_LIBDIR = @PKG_CONFIG_LIBDIR@ PKG_CONFIG_PATH = @PKG_CONFIG_PATH@ RANLIB = @RANLIB@ SED = @SED@ SET_MAKE = @SET_MAKE@ SHELL = @SHELL@ STRIP = @STRIP@ VERSION = @VERSION@ WARN_CFLAGS = @WARN_CFLAGS@ abs_builddir = @abs_builddir@ abs_srcdir = @abs_srcdir@ abs_top_builddir = @abs_top_builddir@ abs_top_srcdir = @abs_top_srcdir@ ac_ct_AR = @ac_ct_AR@ ac_ct_CC = @ac_ct_CC@ ac_ct_DUMPBIN = @ac_ct_DUMPBIN@ am__include = @am__include@ am__leading_dot = @am__leading_dot@ am__quote = @am__quote@ am__tar = @am__tar@ am__untar = @am__untar@ bindir = @bindir@ build = @build@ build_alias = @build_alias@ build_cpu = @build_cpu@ build_os = @build_os@ build_vendor = @build_vendor@ builddir = @builddir@ datadir = @datadir@ datarootdir = @datarootdir@ docdir = @docdir@ dvidir = @dvidir@ exec_prefix = @exec_prefix@ host = @host@ host_alias = @host_alias@ host_cpu = @host_cpu@ host_os = @host_os@ host_vendor = @host_vendor@ htmldir = @htmldir@ includedir = @includedir@ infodir = @infodir@ install_sh = @install_sh@ libdir = @libdir@ libexecdir = @libexecdir@ localedir = @localedir@ localstatedir = @localstatedir@ mandir = @mandir@ mkdir_p = @mkdir_p@ oldincludedir = @oldincludedir@ pdfdir = @pdfdir@ prefix = @prefix@ program_transform_name = @program_transform_name@ psdir = @psdir@ sbindir = @sbindir@ sharedstatedir = @sharedstatedir@ srcdir = @srcdir@ sysconfdir = @sysconfdir@ target_alias = @target_alias@ top_build_prefix = @top_build_prefix@ top_builddir = @top_builddir@ top_srcdir = @top_srcdir@ # # Makefile snippet # EXTRA_DIST = wrapset.api wrapset.scm wrapset_stem = gdk top_module_name = gw_module_name = (gnome gw $(wrapset_stem)) extra_module_names = (gnome gtk gdk-event) wrapset_modules = ($(top_module_name) $(gw_module_name) $(extra_module_names)) WRAPSET_TESTS_ENV = WRAPSET_MODULES="$(wrapset_modules)" WRAPSET_API_FILE=$(srcdir)/wrapset.api DEV_ENV = $(top_builddir)/dev-environ GUILE = guile TESTS_ENVIRONMENT = $(WRAPSET_TESTS_ENV) $(DEV_ENV) $(GUILE) $(GUILE_FLAGS) -e main -s TESTS = wrapset.scm all: all-am .SUFFIXES: $(srcdir)/Makefile.in: $(srcdir)/Makefile.am $(srcdir)/../../../tests.mk $(am__configure_deps) @for dep in $?; do \ case '$(am__configure_deps)' in \ *$$dep*) \ ( cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh ) \ && { if test -f $@; then exit 0; else break; fi; }; \ exit 1;; \ esac; \ done; \ echo ' cd $(top_srcdir) && $(AUTOMAKE) --gnu gtk/tests/gdk/Makefile'; \ $(am__cd) $(top_srcdir) && \ $(AUTOMAKE) --gnu gtk/tests/gdk/Makefile .PRECIOUS: Makefile Makefile: $(srcdir)/Makefile.in $(top_builddir)/config.status @case '$?' in \ *config.status*) \ cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh;; \ *) \ echo ' cd $(top_builddir) && $(SHELL) ./config.status $(subdir)/$@ $(am__depfiles_maybe)'; \ cd $(top_builddir) && $(SHELL) ./config.status $(subdir)/$@ $(am__depfiles_maybe);; \ esac; $(srcdir)/../../../tests.mk: $(top_builddir)/config.status: $(top_srcdir)/configure $(CONFIG_STATUS_DEPENDENCIES) cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh $(top_srcdir)/configure: $(am__configure_deps) cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh $(ACLOCAL_M4): $(am__aclocal_m4_deps) cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh $(am__aclocal_m4_deps): mostlyclean-libtool: -rm -f *.lo clean-libtool: -rm -rf .libs _libs tags: TAGS TAGS: ctags: CTAGS CTAGS: check-TESTS: $(TESTS) @failed=0; all=0; xfail=0; xpass=0; skip=0; \ srcdir=$(srcdir); export srcdir; \ list=' $(TESTS) '; \ $(am__tty_colors); \ if test -n "$$list"; then \ for tst in $$list; do \ if test -f ./$$tst; then dir=./; \ elif test -f $$tst; then dir=; \ else dir="$(srcdir)/"; fi; \ if $(TESTS_ENVIRONMENT) $${dir}$$tst; then \ all=`expr $$all + 1`; \ case " $(XFAIL_TESTS) " in \ *[\ \ ]$$tst[\ \ ]*) \ xpass=`expr $$xpass + 1`; \ failed=`expr $$failed + 1`; \ col=$$red; res=XPASS; \ ;; \ *) \ col=$$grn; res=PASS; \ ;; \ esac; \ elif test $$? -ne 77; then \ all=`expr $$all + 1`; \ case " $(XFAIL_TESTS) " in \ *[\ \ ]$$tst[\ \ ]*) \ xfail=`expr $$xfail + 1`; \ col=$$lgn; res=XFAIL; \ ;; \ *) \ failed=`expr $$failed + 1`; \ col=$$red; res=FAIL; \ ;; \ esac; \ else \ skip=`expr $$skip + 1`; \ col=$$blu; res=SKIP; \ fi; \ echo "$${col}$$res$${std}: $$tst"; \ done; \ if test "$$all" -eq 1; then \ tests="test"; \ All=""; \ else \ tests="tests"; \ All="All "; \ fi; \ if test "$$failed" -eq 0; then \ if test "$$xfail" -eq 0; then \ banner="$$All$$all $$tests passed"; \ else \ if test "$$xfail" -eq 1; then failures=failure; else failures=failures; fi; \ banner="$$All$$all $$tests behaved as expected ($$xfail expected $$failures)"; \ fi; \ else \ if test "$$xpass" -eq 0; then \ banner="$$failed of $$all $$tests failed"; \ else \ if test "$$xpass" -eq 1; then passes=pass; else passes=passes; fi; \ banner="$$failed of $$all $$tests did not behave as expected ($$xpass unexpected $$passes)"; \ fi; \ fi; \ dashes="$$banner"; \ skipped=""; \ if test "$$skip" -ne 0; then \ if test "$$skip" -eq 1; then \ skipped="($$skip test was not run)"; \ else \ skipped="($$skip tests were not run)"; \ fi; \ test `echo "$$skipped" | wc -c` -le `echo "$$banner" | wc -c` || \ dashes="$$skipped"; \ fi; \ report=""; \ if test "$$failed" -ne 0 && test -n "$(PACKAGE_BUGREPORT)"; then \ report="Please report to $(PACKAGE_BUGREPORT)"; \ test `echo "$$report" | wc -c` -le `echo "$$banner" | wc -c` || \ dashes="$$report"; \ fi; \ dashes=`echo "$$dashes" | sed s/./=/g`; \ if test "$$failed" -eq 0; then \ col="$$grn"; \ else \ col="$$red"; \ fi; \ echo "$${col}$$dashes$${std}"; \ echo "$${col}$$banner$${std}"; \ test -z "$$skipped" || echo "$${col}$$skipped$${std}"; \ test -z "$$report" || echo "$${col}$$report$${std}"; \ echo "$${col}$$dashes$${std}"; \ test "$$failed" -eq 0; \ else :; fi distdir: $(DISTFILES) @srcdirstrip=`echo "$(srcdir)" | sed 's/[].[^$$\\*]/\\\\&/g'`; \ topsrcdirstrip=`echo "$(top_srcdir)" | sed 's/[].[^$$\\*]/\\\\&/g'`; \ list='$(DISTFILES)'; \ dist_files=`for file in $$list; do echo $$file; done | \ sed -e "s|^$$srcdirstrip/||;t" \ -e "s|^$$topsrcdirstrip/|$(top_builddir)/|;t"`; \ case $$dist_files in \ */*) $(MKDIR_P) `echo "$$dist_files" | \ sed '/\//!d;s|^|$(distdir)/|;s,/[^/]*$$,,' | \ sort -u` ;; \ esac; \ for file in $$dist_files; do \ if test -f $$file || test -d $$file; then d=.; else d=$(srcdir); fi; \ if test -d $$d/$$file; then \ dir=`echo "/$$file" | sed -e 's,/[^/]*$$,,'`; \ if test -d "$(distdir)/$$file"; then \ find "$(distdir)/$$file" -type d ! -perm -700 -exec chmod u+rwx {} \;; \ fi; \ if test -d $(srcdir)/$$file && test $$d != $(srcdir); then \ cp -fpR $(srcdir)/$$file "$(distdir)$$dir" || exit 1; \ find "$(distdir)/$$file" -type d ! -perm -700 -exec chmod u+rwx {} \;; \ fi; \ cp -fpR $$d/$$file "$(distdir)$$dir" || exit 1; \ else \ test -f "$(distdir)/$$file" \ || cp -p $$d/$$file "$(distdir)/$$file" \ || exit 1; \ fi; \ done check-am: all-am $(MAKE) $(AM_MAKEFLAGS) check-TESTS check: check-am all-am: Makefile installdirs: install: install-am install-exec: install-exec-am install-data: install-data-am uninstall: uninstall-am install-am: all-am @$(MAKE) $(AM_MAKEFLAGS) install-exec-am install-data-am installcheck: installcheck-am install-strip: if test -z '$(STRIP)'; then \ $(MAKE) $(AM_MAKEFLAGS) INSTALL_PROGRAM="$(INSTALL_STRIP_PROGRAM)" \ install_sh_PROGRAM="$(INSTALL_STRIP_PROGRAM)" INSTALL_STRIP_FLAG=-s \ install; \ else \ $(MAKE) $(AM_MAKEFLAGS) INSTALL_PROGRAM="$(INSTALL_STRIP_PROGRAM)" \ install_sh_PROGRAM="$(INSTALL_STRIP_PROGRAM)" INSTALL_STRIP_FLAG=-s \ "INSTALL_PROGRAM_ENV=STRIPPROG='$(STRIP)'" install; \ fi mostlyclean-generic: clean-generic: distclean-generic: -test -z "$(CONFIG_CLEAN_FILES)" || rm -f $(CONFIG_CLEAN_FILES) -test . = "$(srcdir)" || test -z "$(CONFIG_CLEAN_VPATH_FILES)" || rm -f $(CONFIG_CLEAN_VPATH_FILES) maintainer-clean-generic: @echo "This command is intended for maintainers to use" @echo "it deletes files that may require special tools to rebuild." clean: clean-am clean-am: clean-generic clean-libtool mostlyclean-am distclean: distclean-am -rm -f Makefile distclean-am: clean-am distclean-generic dvi: dvi-am dvi-am: html: html-am html-am: info: info-am info-am: install-data-am: install-dvi: install-dvi-am install-dvi-am: install-exec-am: install-html: install-html-am install-html-am: install-info: install-info-am install-info-am: install-man: install-pdf: install-pdf-am install-pdf-am: install-ps: install-ps-am install-ps-am: installcheck-am: maintainer-clean: maintainer-clean-am -rm -f Makefile maintainer-clean-am: distclean-am maintainer-clean-generic mostlyclean: mostlyclean-am mostlyclean-am: mostlyclean-generic mostlyclean-libtool pdf: pdf-am pdf-am: ps: ps-am ps-am: uninstall-am: .MAKE: check-am install-am install-strip .PHONY: all all-am check check-TESTS check-am clean clean-generic \ clean-libtool distclean distclean-generic distclean-libtool \ distdir dvi dvi-am html html-am info info-am install \ install-am install-data install-data-am install-dvi \ install-dvi-am install-exec install-exec-am install-html \ install-html-am install-info install-info-am install-man \ install-pdf install-pdf-am install-ps install-ps-am \ install-strip installcheck installcheck-am installdirs \ maintainer-clean maintainer-clean-generic mostlyclean \ mostlyclean-generic mostlyclean-libtool pdf pdf-am ps ps-am \ uninstall uninstall-am wrapset.api.update: $(WRAPSET_TESTS_ENV) $(DEV_ENV) $(GUILE) -e update-api -s $(srcdir)/wrapset.scm %.check: % $(TESTS_ENVIRONMENT) $(srcdir)/$* # Tell versions [3.59,3.63) of GNU make to not export all variables. # Otherwise a system limit (for SysV at least) may be exceeded. .NOEXPORT: guile-gnome-platform-2.16.2/gtk/tests/gdk/wrapset.api0000644000175000017500000021465711670374303023063 0ustar00wingowingo00000000000000(module-api (version 1 0) ((gnome gobject generics) (uses-interfaces) (typed-exports (block generic ( )) (connect generic ( )) (connect-after generic ( )) (connected? generic ( )) (create-signal generic ( )) (disconnect generic ( )) (emit generic ( . )) (find-property generic ( )) (get generic ( )) (get-properties generic ()) (get-property-names generic ()) (get-signals generic ()) (invoke generic ( . )) (set generic ( )) (unblock generic ( )))) ((gnome gtk gdk-event) (uses-interfaces) (typed-exports (gdk-event-button:button procedure (arity 1 0 #f)) (gdk-event-button:modifiers procedure (arity 1 0 #f)) (gdk-event-button:time procedure (arity 1 0 #f)) (gdk-event-button:x procedure (arity 1 0 #f)) (gdk-event-button:x-root procedure (arity 1 0 #f)) (gdk-event-button:y procedure (arity 1 0 #f)) (gdk-event-button:y-root procedure (arity 1 0 #f)) (gdk-event-expose:area procedure (arity 1 0 #f)) (gdk-event-key:keyval procedure (arity 1 0 #f)) (gdk-event-key:modifiers procedure (arity 1 0 #f)) (gdk-event-motion:modifiers procedure (arity 1 0 #f)) (gdk-event-motion:x procedure (arity 1 0 #f)) (gdk-event-motion:y procedure (arity 1 0 #f)) (gdk-event-selection:selection procedure (arity 1 0 #f)) (gdk-event-window-state:changed-mask procedure (arity 1 0 #f)) (gdk-event-window-state:new-window-state procedure (arity 1 0 #f)) (gdk-event:type procedure (arity 1 0 #f)) (gdk:0 ) (gdk:1 ) (gdk:2 ) (gdk:3 ) (gdk:3270-AltCursor ) (gdk:3270-Attn ) (gdk:3270-BackTab ) (gdk:3270-ChangeScreen ) (gdk:3270-Copy ) (gdk:3270-CursorBlink ) (gdk:3270-CursorSelect ) (gdk:3270-DeleteWord ) (gdk:3270-Duplicate ) (gdk:3270-Enter ) (gdk:3270-EraseEOF ) (gdk:3270-EraseInput ) (gdk:3270-ExSelect ) (gdk:3270-FieldMark ) (gdk:3270-Ident ) (gdk:3270-Jump ) (gdk:3270-KeyClick ) (gdk:3270-Left2 ) (gdk:3270-PA1 ) (gdk:3270-PA2 ) (gdk:3270-PA3 ) (gdk:3270-Play ) (gdk:3270-PrintScreen ) (gdk:3270-Quit ) (gdk:3270-Record ) (gdk:3270-Reset ) (gdk:3270-Right2 ) (gdk:3270-Rule ) (gdk:3270-Setup ) (gdk:3270-Test ) (gdk:4 ) (gdk:5 ) (gdk:6 ) (gdk:7 ) (gdk:8 ) (gdk:9 ) (gdk:A ) (gdk:AE ) (gdk:Aacute ) (gdk:Abreve ) (gdk:AccessX-Enable ) (gdk:AccessX-Feedback-Enable ) (gdk:Acircumflex ) (gdk:Adiaeresis ) (gdk:Agrave ) (gdk:Alt-L ) (gdk:Alt-R ) (gdk:Amacron ) (gdk:Aogonek ) (gdk:Arabic-ain ) (gdk:Arabic-alef ) (gdk:Arabic-alefmaksura ) (gdk:Arabic-beh ) (gdk:Arabic-comma ) (gdk:Arabic-dad ) (gdk:Arabic-dal ) (gdk:Arabic-damma ) (gdk:Arabic-dammatan ) (gdk:Arabic-fatha ) (gdk:Arabic-fathatan ) (gdk:Arabic-feh ) (gdk:Arabic-ghain ) (gdk:Arabic-ha ) (gdk:Arabic-hah ) (gdk:Arabic-hamza ) (gdk:Arabic-hamzaonalef ) (gdk:Arabic-hamzaonwaw ) (gdk:Arabic-hamzaonyeh ) (gdk:Arabic-hamzaunderalef ) (gdk:Arabic-heh ) (gdk:Arabic-jeem ) (gdk:Arabic-kaf ) (gdk:Arabic-kasra ) (gdk:Arabic-kasratan ) (gdk:Arabic-khah ) (gdk:Arabic-lam ) (gdk:Arabic-maddaonalef ) (gdk:Arabic-meem ) (gdk:Arabic-noon ) (gdk:Arabic-qaf ) (gdk:Arabic-question-mark ) (gdk:Arabic-ra ) (gdk:Arabic-sad ) (gdk:Arabic-seen ) (gdk:Arabic-semicolon ) (gdk:Arabic-shadda ) (gdk:Arabic-sheen ) (gdk:Arabic-sukun ) (gdk:Arabic-switch ) (gdk:Arabic-tah ) (gdk:Arabic-tatweel ) (gdk:Arabic-teh ) (gdk:Arabic-tehmarbuta ) (gdk:Arabic-thal ) (gdk:Arabic-theh ) (gdk:Arabic-waw ) (gdk:Arabic-yeh ) (gdk:Arabic-zah ) (gdk:Arabic-zain ) (gdk:Aring ) (gdk:Atilde ) (gdk:AudibleBell-Enable ) (gdk:B ) (gdk:BackSpace ) (gdk:Begin ) (gdk:BounceKeys-Enable ) (gdk:Break ) (gdk:Byelorussian-SHORTU ) (gdk:Byelorussian-shortu ) (gdk:C ) (gdk:Cabovedot ) (gdk:Cacute ) (gdk:Cancel ) (gdk:Caps-Lock ) (gdk:Ccaron ) (gdk:Ccedilla ) (gdk:Ccircumflex ) (gdk:Clear ) (gdk:Codeinput ) (gdk:ColonSign ) (gdk:Control-L ) (gdk:Control-R ) (gdk:CruzeiroSign ) (gdk:Cyrillic-A ) (gdk:Cyrillic-BE ) (gdk:Cyrillic-CHE ) (gdk:Cyrillic-DE ) (gdk:Cyrillic-DZHE ) (gdk:Cyrillic-E ) (gdk:Cyrillic-EF ) (gdk:Cyrillic-EL ) (gdk:Cyrillic-EM ) (gdk:Cyrillic-EN ) (gdk:Cyrillic-ER ) (gdk:Cyrillic-ES ) (gdk:Cyrillic-GHE ) (gdk:Cyrillic-HA ) (gdk:Cyrillic-HARDSIGN ) (gdk:Cyrillic-I ) (gdk:Cyrillic-IE ) (gdk:Cyrillic-IO ) (gdk:Cyrillic-JE ) (gdk:Cyrillic-KA ) (gdk:Cyrillic-LJE ) (gdk:Cyrillic-NJE ) (gdk:Cyrillic-O ) (gdk:Cyrillic-PE ) (gdk:Cyrillic-SHA ) (gdk:Cyrillic-SHCHA ) (gdk:Cyrillic-SHORTI ) (gdk:Cyrillic-SOFTSIGN ) (gdk:Cyrillic-TE ) (gdk:Cyrillic-TSE ) (gdk:Cyrillic-U ) (gdk:Cyrillic-VE ) (gdk:Cyrillic-YA ) (gdk:Cyrillic-YERU ) (gdk:Cyrillic-YU ) (gdk:Cyrillic-ZE ) (gdk:Cyrillic-ZHE ) (gdk:Cyrillic-a ) (gdk:Cyrillic-be ) (gdk:Cyrillic-che ) (gdk:Cyrillic-de ) (gdk:Cyrillic-dzhe ) (gdk:Cyrillic-e ) (gdk:Cyrillic-ef ) (gdk:Cyrillic-el ) (gdk:Cyrillic-em ) (gdk:Cyrillic-en ) (gdk:Cyrillic-er ) (gdk:Cyrillic-es ) (gdk:Cyrillic-ghe ) (gdk:Cyrillic-ha ) (gdk:Cyrillic-hardsign ) (gdk:Cyrillic-i ) (gdk:Cyrillic-ie ) (gdk:Cyrillic-io ) (gdk:Cyrillic-je ) (gdk:Cyrillic-ka ) (gdk:Cyrillic-lje ) (gdk:Cyrillic-nje ) (gdk:Cyrillic-o ) (gdk:Cyrillic-pe ) (gdk:Cyrillic-sha ) (gdk:Cyrillic-shcha ) (gdk:Cyrillic-shorti ) (gdk:Cyrillic-softsign ) (gdk:Cyrillic-te ) (gdk:Cyrillic-tse ) (gdk:Cyrillic-u ) (gdk:Cyrillic-ve ) (gdk:Cyrillic-ya ) (gdk:Cyrillic-yeru ) (gdk:Cyrillic-yu ) (gdk:Cyrillic-ze ) (gdk:Cyrillic-zhe ) (gdk:D ) (gdk:Dcaron ) (gdk:Delete ) (gdk:DongSign ) (gdk:Down ) (gdk:Dstroke ) (gdk:E ) (gdk:ENG ) (gdk:ETH ) (gdk:Eabovedot ) (gdk:Eacute ) (gdk:Ecaron ) (gdk:Ecircumflex ) (gdk:EcuSign ) (gdk:Ediaeresis ) (gdk:Egrave ) (gdk:Eisu-Shift ) (gdk:Eisu-toggle ) (gdk:Emacron ) (gdk:End ) (gdk:Eogonek ) (gdk:Escape ) (gdk:Eth ) (gdk:EuroSign ) (gdk:Execute ) (gdk:F ) (gdk:F1 ) (gdk:F10 ) (gdk:F11 ) (gdk:F12 ) (gdk:F13 ) (gdk:F14 ) (gdk:F15 ) (gdk:F16 ) (gdk:F17 ) (gdk:F18 ) (gdk:F19 ) (gdk:F2 ) (gdk:F20 ) (gdk:F21 ) (gdk:F22 ) (gdk:F23 ) (gdk:F24 ) (gdk:F25 ) (gdk:F26 ) (gdk:F27 ) (gdk:F28 ) (gdk:F29 ) (gdk:F3 ) (gdk:F30 ) (gdk:F31 ) (gdk:F32 ) (gdk:F33 ) (gdk:F34 ) (gdk:F35 ) (gdk:F4 ) (gdk:F5 ) (gdk:F6 ) (gdk:F7 ) (gdk:F8 ) (gdk:F9 ) (gdk:FFrancSign ) (gdk:Find ) (gdk:First-Virtual-Screen ) (gdk:G ) (gdk:Gabovedot ) (gdk:Gbreve ) (gdk:Gcedilla ) (gdk:Gcircumflex ) (gdk:Greek-ALPHA ) (gdk:Greek-ALPHAaccent ) (gdk:Greek-BETA ) (gdk:Greek-CHI ) (gdk:Greek-DELTA ) (gdk:Greek-EPSILON ) (gdk:Greek-EPSILONaccent ) (gdk:Greek-ETA ) (gdk:Greek-ETAaccent ) (gdk:Greek-GAMMA ) (gdk:Greek-IOTA ) (gdk:Greek-IOTAaccent ) (gdk:Greek-IOTAdiaeresis ) (gdk:Greek-KAPPA ) (gdk:Greek-LAMBDA ) (gdk:Greek-LAMDA ) (gdk:Greek-MU ) (gdk:Greek-NU ) (gdk:Greek-OMEGA ) (gdk:Greek-OMEGAaccent ) (gdk:Greek-OMICRON ) (gdk:Greek-OMICRONaccent ) (gdk:Greek-PHI ) (gdk:Greek-PI ) (gdk:Greek-PSI ) (gdk:Greek-RHO ) (gdk:Greek-SIGMA ) (gdk:Greek-TAU ) (gdk:Greek-THETA ) (gdk:Greek-UPSILON ) (gdk:Greek-UPSILONaccent ) (gdk:Greek-UPSILONdieresis ) (gdk:Greek-XI ) (gdk:Greek-ZETA ) (gdk:Greek-accentdieresis ) (gdk:Greek-alpha ) (gdk:Greek-alphaaccent ) (gdk:Greek-beta ) (gdk:Greek-chi ) (gdk:Greek-delta ) (gdk:Greek-epsilon ) (gdk:Greek-epsilonaccent ) (gdk:Greek-eta ) (gdk:Greek-etaaccent ) (gdk:Greek-finalsmallsigma ) (gdk:Greek-gamma ) (gdk:Greek-horizbar ) (gdk:Greek-iota ) (gdk:Greek-iotaaccent ) (gdk:Greek-iotaaccentdieresis ) (gdk:Greek-iotadieresis ) (gdk:Greek-kappa ) (gdk:Greek-lambda ) (gdk:Greek-lamda ) (gdk:Greek-mu ) (gdk:Greek-nu ) (gdk:Greek-omega ) (gdk:Greek-omegaaccent ) (gdk:Greek-omicron ) (gdk:Greek-omicronaccent ) (gdk:Greek-phi ) (gdk:Greek-pi ) (gdk:Greek-psi ) (gdk:Greek-rho ) (gdk:Greek-sigma ) (gdk:Greek-switch ) (gdk:Greek-tau ) (gdk:Greek-theta ) (gdk:Greek-upsilon ) (gdk:Greek-upsilonaccent ) (gdk:Greek-upsilonaccentdieresis ) (gdk:Greek-upsilondieresis ) (gdk:Greek-xi ) (gdk:Greek-zeta ) (gdk:H ) (gdk:Hangul ) (gdk:Hangul-A ) (gdk:Hangul-AE ) (gdk:Hangul-AraeA ) (gdk:Hangul-AraeAE ) (gdk:Hangul-Banja ) (gdk:Hangul-Cieuc ) (gdk:Hangul-Codeinput ) (gdk:Hangul-Dikeud ) (gdk:Hangul-E ) (gdk:Hangul-EO ) (gdk:Hangul-EU ) (gdk:Hangul-End ) (gdk:Hangul-Hanja ) (gdk:Hangul-Hieuh ) (gdk:Hangul-I ) (gdk:Hangul-Ieung ) (gdk:Hangul-J-Cieuc ) (gdk:Hangul-J-Dikeud ) (gdk:Hangul-J-Hieuh ) (gdk:Hangul-J-Ieung ) (gdk:Hangul-J-Jieuj ) (gdk:Hangul-J-Khieuq ) (gdk:Hangul-J-Kiyeog ) (gdk:Hangul-J-KiyeogSios ) (gdk:Hangul-J-KkogjiDalrinIeung ) (gdk:Hangul-J-Mieum ) (gdk:Hangul-J-Nieun ) (gdk:Hangul-J-NieunHieuh ) (gdk:Hangul-J-NieunJieuj ) (gdk:Hangul-J-PanSios ) (gdk:Hangul-J-Phieuf ) (gdk:Hangul-J-Pieub ) (gdk:Hangul-J-PieubSios ) (gdk:Hangul-J-Rieul ) (gdk:Hangul-J-RieulHieuh ) (gdk:Hangul-J-RieulKiyeog ) (gdk:Hangul-J-RieulMieum ) (gdk:Hangul-J-RieulPhieuf ) (gdk:Hangul-J-RieulPieub ) (gdk:Hangul-J-RieulSios ) (gdk:Hangul-J-RieulTieut ) (gdk:Hangul-J-Sios ) (gdk:Hangul-J-SsangKiyeog ) (gdk:Hangul-J-SsangSios ) (gdk:Hangul-J-Tieut ) (gdk:Hangul-J-YeorinHieuh ) (gdk:Hangul-Jamo ) (gdk:Hangul-Jeonja ) (gdk:Hangul-Jieuj ) (gdk:Hangul-Khieuq ) (gdk:Hangul-Kiyeog ) (gdk:Hangul-KiyeogSios ) (gdk:Hangul-KkogjiDalrinIeung ) (gdk:Hangul-Mieum ) (gdk:Hangul-MultipleCandidate ) (gdk:Hangul-Nieun ) (gdk:Hangul-NieunHieuh ) (gdk:Hangul-NieunJieuj ) (gdk:Hangul-O ) (gdk:Hangul-OE ) (gdk:Hangul-PanSios ) (gdk:Hangul-Phieuf ) (gdk:Hangul-Pieub ) (gdk:Hangul-PieubSios ) (gdk:Hangul-PostHanja ) (gdk:Hangul-PreHanja ) (gdk:Hangul-PreviousCandidate ) (gdk:Hangul-Rieul ) (gdk:Hangul-RieulHieuh ) (gdk:Hangul-RieulKiyeog ) (gdk:Hangul-RieulMieum ) (gdk:Hangul-RieulPhieuf ) (gdk:Hangul-RieulPieub ) (gdk:Hangul-RieulSios ) (gdk:Hangul-RieulTieut ) (gdk:Hangul-RieulYeorinHieuh ) (gdk:Hangul-Romaja ) (gdk:Hangul-SingleCandidate ) (gdk:Hangul-Sios ) (gdk:Hangul-Special ) (gdk:Hangul-SsangDikeud ) (gdk:Hangul-SsangJieuj ) (gdk:Hangul-SsangKiyeog ) (gdk:Hangul-SsangPieub ) (gdk:Hangul-SsangSios ) (gdk:Hangul-Start ) (gdk:Hangul-SunkyeongeumMieum ) (gdk:Hangul-SunkyeongeumPhieuf ) (gdk:Hangul-SunkyeongeumPieub ) (gdk:Hangul-Tieut ) (gdk:Hangul-U ) (gdk:Hangul-WA ) (gdk:Hangul-WAE ) (gdk:Hangul-WE ) (gdk:Hangul-WEO ) (gdk:Hangul-WI ) (gdk:Hangul-YA ) (gdk:Hangul-YAE ) (gdk:Hangul-YE ) (gdk:Hangul-YEO ) (gdk:Hangul-YI ) (gdk:Hangul-YO ) (gdk:Hangul-YU ) (gdk:Hangul-YeorinHieuh ) (gdk:Hangul-switch ) (gdk:Hankaku ) (gdk:Hcircumflex ) (gdk:Hebrew-switch ) (gdk:Help ) (gdk:Henkan ) (gdk:Henkan-Mode ) (gdk:Hiragana ) (gdk:Hiragana-Katakana ) (gdk:Home ) (gdk:Hstroke ) (gdk:Hyper-L ) (gdk:Hyper-R ) (gdk:I ) (gdk:ISO-Center-Object ) (gdk:ISO-Continuous-Underline ) (gdk:ISO-Discontinuous-Underline ) (gdk:ISO-Emphasize ) (gdk:ISO-Enter ) (gdk:ISO-Fast-Cursor-Down ) (gdk:ISO-Fast-Cursor-Left ) (gdk:ISO-Fast-Cursor-Right ) (gdk:ISO-Fast-Cursor-Up ) (gdk:ISO-First-Group ) (gdk:ISO-First-Group-Lock ) (gdk:ISO-Group-Latch ) (gdk:ISO-Group-Lock ) (gdk:ISO-Group-Shift ) (gdk:ISO-Last-Group ) (gdk:ISO-Last-Group-Lock ) (gdk:ISO-Left-Tab ) (gdk:ISO-Level2-Latch ) (gdk:ISO-Level3-Latch ) (gdk:ISO-Level3-Lock ) (gdk:ISO-Level3-Shift ) (gdk:ISO-Lock ) (gdk:ISO-Move-Line-Down ) (gdk:ISO-Move-Line-Up ) (gdk:ISO-Next-Group ) (gdk:ISO-Next-Group-Lock ) (gdk:ISO-Partial-Line-Down ) (gdk:ISO-Partial-Line-Up ) (gdk:ISO-Partial-Space-Left ) (gdk:ISO-Partial-Space-Right ) (gdk:ISO-Prev-Group ) (gdk:ISO-Prev-Group-Lock ) (gdk:ISO-Release-Both-Margins ) (gdk:ISO-Release-Margin-Left ) (gdk:ISO-Release-Margin-Right ) (gdk:ISO-Set-Margin-Left ) (gdk:ISO-Set-Margin-Right ) (gdk:Iabovedot ) (gdk:Iacute ) (gdk:Icircumflex ) (gdk:Idiaeresis ) (gdk:Igrave ) (gdk:Imacron ) (gdk:Insert ) (gdk:Iogonek ) (gdk:Itilde ) (gdk:J ) (gdk:Jcircumflex ) (gdk:K ) (gdk:KP-0 ) (gdk:KP-1 ) (gdk:KP-2 ) (gdk:KP-3 ) (gdk:KP-4 ) (gdk:KP-5 ) (gdk:KP-6 ) (gdk:KP-7 ) (gdk:KP-8 ) (gdk:KP-9 ) (gdk:KP-Add ) (gdk:KP-Begin ) (gdk:KP-Decimal ) (gdk:KP-Delete ) (gdk:KP-Divide ) (gdk:KP-Down ) (gdk:KP-End ) (gdk:KP-Enter ) (gdk:KP-Equal ) (gdk:KP-F1 ) (gdk:KP-F2 ) (gdk:KP-F3 ) (gdk:KP-F4 ) (gdk:KP-Home ) (gdk:KP-Insert ) (gdk:KP-Left ) (gdk:KP-Multiply ) (gdk:KP-Next ) (gdk:KP-Page-Down ) (gdk:KP-Page-Up ) (gdk:KP-Prior ) (gdk:KP-Right ) (gdk:KP-Separator ) (gdk:KP-Space ) (gdk:KP-Subtract ) (gdk:KP-Tab ) (gdk:KP-Up ) (gdk:Kana-Lock ) (gdk:Kana-Shift ) (gdk:Kanji ) (gdk:Kanji-Bangou ) (gdk:Katakana ) (gdk:Kcedilla ) (gdk:Korean-Won ) (gdk:L ) (gdk:L1 ) (gdk:L10 ) (gdk:L2 ) (gdk:L3 ) (gdk:L4 ) (gdk:L5 ) (gdk:L6 ) (gdk:L7 ) (gdk:L8 ) (gdk:L9 ) (gdk:Lacute ) (gdk:Last-Virtual-Screen ) (gdk:Lcaron ) (gdk:Lcedilla ) (gdk:Left ) (gdk:Linefeed ) (gdk:LiraSign ) (gdk:Lstroke ) (gdk:M ) (gdk:Macedonia-DSE ) (gdk:Macedonia-GJE ) (gdk:Macedonia-KJE ) (gdk:Macedonia-dse ) (gdk:Macedonia-gje ) (gdk:Macedonia-kje ) (gdk:Mae-Koho ) (gdk:Massyo ) (gdk:Menu ) (gdk:Meta-L ) (gdk:Meta-R ) (gdk:MillSign ) (gdk:Mode-switch ) (gdk:MouseKeys-Accel-Enable ) (gdk:MouseKeys-Enable ) (gdk:Muhenkan ) (gdk:Multi-key ) (gdk:MultipleCandidate ) (gdk:N ) (gdk:Nacute ) (gdk:NairaSign ) (gdk:Ncaron ) (gdk:Ncedilla ) (gdk:NewSheqelSign ) (gdk:Next ) (gdk:Next-Virtual-Screen ) (gdk:Ntilde ) (gdk:Num-Lock ) (gdk:O ) (gdk:OE ) (gdk:Oacute ) (gdk:Ocircumflex ) (gdk:Odiaeresis ) (gdk:Odoubleacute ) (gdk:Ograve ) (gdk:Omacron ) (gdk:Ooblique ) (gdk:Otilde ) (gdk:Overlay1-Enable ) (gdk:Overlay2-Enable ) (gdk:P ) (gdk:Page-Down ) (gdk:Page-Up ) (gdk:Pause ) (gdk:PesetaSign ) (gdk:Pointer-Accelerate ) (gdk:Pointer-Button-Dflt ) (gdk:Pointer-Button1 ) (gdk:Pointer-Button2 ) (gdk:Pointer-Button3 ) (gdk:Pointer-Button4 ) (gdk:Pointer-Button5 ) (gdk:Pointer-DblClick-Dflt ) (gdk:Pointer-DblClick1 ) (gdk:Pointer-DblClick2 ) (gdk:Pointer-DblClick3 ) (gdk:Pointer-DblClick4 ) (gdk:Pointer-DblClick5 ) (gdk:Pointer-DfltBtnNext ) (gdk:Pointer-DfltBtnPrev ) (gdk:Pointer-Down ) (gdk:Pointer-DownLeft ) (gdk:Pointer-DownRight ) (gdk:Pointer-Drag-Dflt ) (gdk:Pointer-Drag1 ) (gdk:Pointer-Drag2 ) (gdk:Pointer-Drag3 ) (gdk:Pointer-Drag4 ) (gdk:Pointer-Drag5 ) (gdk:Pointer-EnableKeys ) (gdk:Pointer-Left ) (gdk:Pointer-Right ) (gdk:Pointer-Up ) (gdk:Pointer-UpLeft ) (gdk:Pointer-UpRight ) (gdk:Prev-Virtual-Screen ) (gdk:PreviousCandidate ) (gdk:Print ) (gdk:Prior ) (gdk:Q ) (gdk:R ) (gdk:R1 ) (gdk:R10 ) (gdk:R11 ) (gdk:R12 ) (gdk:R13 ) (gdk:R14 ) (gdk:R15 ) (gdk:R2 ) (gdk:R3 ) (gdk:R4 ) (gdk:R5 ) (gdk:R6 ) (gdk:R7 ) (gdk:R8 ) (gdk:R9 ) (gdk:Racute ) (gdk:Rcaron ) (gdk:Rcedilla ) (gdk:Redo ) (gdk:RepeatKeys-Enable ) (gdk:Return ) (gdk:Right ) (gdk:Romaji ) (gdk:RupeeSign ) (gdk:S ) (gdk:Sacute ) (gdk:Scaron ) (gdk:Scedilla ) (gdk:Scircumflex ) (gdk:Scroll-Lock ) (gdk:Select ) (gdk:Serbian-DJE ) (gdk:Serbian-DZE ) (gdk:Serbian-JE ) (gdk:Serbian-LJE ) (gdk:Serbian-NJE ) (gdk:Serbian-TSHE ) (gdk:Serbian-dje ) (gdk:Serbian-dze ) (gdk:Serbian-je ) (gdk:Serbian-lje ) (gdk:Serbian-nje ) (gdk:Serbian-tshe ) (gdk:Shift-L ) (gdk:Shift-Lock ) (gdk:Shift-R ) (gdk:SingleCandidate ) (gdk:SlowKeys-Enable ) (gdk:StickyKeys-Enable ) (gdk:Super-L ) (gdk:Super-R ) (gdk:Sys-Req ) (gdk:T ) (gdk:THORN ) (gdk:Tab ) (gdk:Tcaron ) (gdk:Tcedilla ) (gdk:Terminate-Server ) (gdk:Thai-baht ) (gdk:Thai-bobaimai ) (gdk:Thai-chochan ) (gdk:Thai-chochang ) (gdk:Thai-choching ) (gdk:Thai-chochoe ) (gdk:Thai-dochada ) (gdk:Thai-dodek ) (gdk:Thai-fofa ) (gdk:Thai-fofan ) (gdk:Thai-hohip ) (gdk:Thai-honokhuk ) (gdk:Thai-khokhai ) (gdk:Thai-khokhon ) (gdk:Thai-khokhuat ) (gdk:Thai-khokhwai ) (gdk:Thai-khorakhang ) (gdk:Thai-kokai ) (gdk:Thai-lakkhangyao ) (gdk:Thai-lekchet ) (gdk:Thai-lekha ) (gdk:Thai-lekhok ) (gdk:Thai-lekkao ) (gdk:Thai-leknung ) (gdk:Thai-lekpaet ) (gdk:Thai-leksam ) (gdk:Thai-leksi ) (gdk:Thai-leksong ) (gdk:Thai-leksun ) (gdk:Thai-lochula ) (gdk:Thai-loling ) (gdk:Thai-lu ) (gdk:Thai-maichattawa ) (gdk:Thai-maiek ) (gdk:Thai-maihanakat ) (gdk:Thai-maihanakat-maitho ) (gdk:Thai-maitaikhu ) (gdk:Thai-maitho ) (gdk:Thai-maitri ) (gdk:Thai-maiyamok ) (gdk:Thai-moma ) (gdk:Thai-ngongu ) (gdk:Thai-nikhahit ) (gdk:Thai-nonen ) (gdk:Thai-nonu ) (gdk:Thai-oang ) (gdk:Thai-paiyannoi ) (gdk:Thai-phinthu ) (gdk:Thai-phophan ) (gdk:Thai-phophung ) (gdk:Thai-phosamphao ) (gdk:Thai-popla ) (gdk:Thai-rorua ) (gdk:Thai-ru ) (gdk:Thai-saraa ) (gdk:Thai-saraaa ) (gdk:Thai-saraae ) (gdk:Thai-saraaimaimalai ) (gdk:Thai-saraaimaimuan ) (gdk:Thai-saraam ) (gdk:Thai-sarae ) (gdk:Thai-sarai ) (gdk:Thai-saraii ) (gdk:Thai-sarao ) (gdk:Thai-sarau ) (gdk:Thai-saraue ) (gdk:Thai-sarauee ) (gdk:Thai-sarauu ) (gdk:Thai-sorusi ) (gdk:Thai-sosala ) (gdk:Thai-soso ) (gdk:Thai-sosua ) (gdk:Thai-thanthakhat ) (gdk:Thai-thonangmontho ) (gdk:Thai-thophuthao ) (gdk:Thai-thothahan ) (gdk:Thai-thothan ) (gdk:Thai-thothong ) (gdk:Thai-thothung ) (gdk:Thai-topatak ) (gdk:Thai-totao ) (gdk:Thai-wowaen ) (gdk:Thai-yoyak ) (gdk:Thai-yoying ) (gdk:Thorn ) (gdk:Touroku ) (gdk:Tslash ) (gdk:U ) (gdk:Uacute ) (gdk:Ubreve ) (gdk:Ucircumflex ) (gdk:Udiaeresis ) (gdk:Udoubleacute ) (gdk:Ugrave ) (gdk:Ukrainian-I ) (gdk:Ukrainian-IE ) (gdk:Ukrainian-YI ) (gdk:Ukrainian-i ) (gdk:Ukrainian-ie ) (gdk:Ukrainian-yi ) (gdk:Ukranian-I ) (gdk:Ukranian-JE ) (gdk:Ukranian-YI ) (gdk:Ukranian-i ) (gdk:Ukranian-je ) (gdk:Ukranian-yi ) (gdk:Umacron ) (gdk:Undo ) (gdk:Uogonek ) (gdk:Up ) (gdk:Uring ) (gdk:Utilde ) (gdk:V ) (gdk:VoidSymbol ) (gdk:W ) (gdk:WonSign ) (gdk:X ) (gdk:Y ) (gdk:Yacute ) (gdk:Ydiaeresis ) (gdk:Z ) (gdk:Zabovedot ) (gdk:Zacute ) (gdk:Zcaron ) (gdk:Zen-Koho ) (gdk:Zenkaku ) (gdk:Zenkaku-Hankaku ) (gdk:a ) (gdk:aacute ) (gdk:abovedot ) (gdk:abreve ) (gdk:acircumflex ) (gdk:acute ) (gdk:adiaeresis ) (gdk:ae ) (gdk:agrave ) (gdk:amacron ) (gdk:ampersand ) (gdk:aogonek ) (gdk:apostrophe ) (gdk:approximate ) (gdk:aring ) (gdk:asciicircum ) (gdk:asciitilde ) (gdk:asterisk ) (gdk:at ) (gdk:atilde ) (gdk:b ) (gdk:backslash ) (gdk:ballotcross ) (gdk:bar ) (gdk:blank ) (gdk:botintegral ) (gdk:botleftparens ) (gdk:botleftsqbracket ) (gdk:botleftsummation ) (gdk:botrightparens ) (gdk:botrightsqbracket ) (gdk:botrightsummation ) (gdk:bott ) (gdk:botvertsummationconnector ) (gdk:braceleft ) (gdk:braceright ) (gdk:bracketleft ) (gdk:bracketright ) (gdk:breve ) (gdk:brokenbar ) (gdk:c ) (gdk:cabovedot ) (gdk:cacute ) (gdk:careof ) (gdk:caret ) (gdk:caron ) (gdk:ccaron ) (gdk:ccedilla ) (gdk:ccircumflex ) (gdk:cedilla ) (gdk:cent ) (gdk:checkerboard ) (gdk:checkmark ) (gdk:circle ) (gdk:club ) (gdk:colon ) (gdk:comma ) (gdk:copyright ) (gdk:cr ) (gdk:crossinglines ) (gdk:currency ) (gdk:cursor ) (gdk:d ) (gdk:dagger ) (gdk:dcaron ) (gdk:dead-abovedot ) (gdk:dead-abovering ) (gdk:dead-acute ) (gdk:dead-belowdot ) (gdk:dead-breve ) (gdk:dead-caron ) (gdk:dead-cedilla ) (gdk:dead-circumflex ) (gdk:dead-diaeresis ) (gdk:dead-doubleacute ) (gdk:dead-grave ) (gdk:dead-iota ) (gdk:dead-macron ) (gdk:dead-ogonek ) (gdk:dead-semivoiced-sound ) (gdk:dead-tilde ) (gdk:dead-voiced-sound ) (gdk:decimalpoint ) (gdk:degree ) (gdk:diaeresis ) (gdk:diamond ) (gdk:digitspace ) (gdk:division ) (gdk:dollar ) (gdk:doubbaselinedot ) (gdk:doubleacute ) (gdk:doubledagger ) (gdk:doublelowquotemark ) (gdk:downarrow ) (gdk:downcaret ) (gdk:downshoe ) (gdk:downstile ) (gdk:downtack ) (gdk:dstroke ) (gdk:e ) (gdk:eabovedot ) (gdk:eacute ) (gdk:ecaron ) (gdk:ecircumflex ) (gdk:ediaeresis ) (gdk:egrave ) (gdk:ellipsis ) (gdk:em3space ) (gdk:em4space ) (gdk:emacron ) (gdk:emdash ) (gdk:emfilledcircle ) (gdk:emfilledrect ) (gdk:emopencircle ) (gdk:emopenrectangle ) (gdk:emspace ) (gdk:endash ) (gdk:enfilledcircbullet ) (gdk:enfilledsqbullet ) (gdk:eng ) (gdk:enopencircbullet ) (gdk:enopensquarebullet ) (gdk:enspace ) (gdk:eogonek ) (gdk:equal ) (gdk:eth ) (gdk:exclam ) (gdk:exclamdown ) (gdk:f ) (gdk:femalesymbol ) (gdk:ff ) (gdk:figdash ) (gdk:filledlefttribullet ) (gdk:filledrectbullet ) (gdk:filledrighttribullet ) (gdk:filledtribulletdown ) (gdk:filledtribulletup ) (gdk:fiveeighths ) (gdk:fivesixths ) (gdk:fourfifths ) (gdk:function ) (gdk:g ) (gdk:gabovedot ) (gdk:gbreve ) (gdk:gcedilla ) (gdk:gcircumflex ) (gdk:grave ) (gdk:greater ) (gdk:greaterthanequal ) (gdk:guillemotleft ) (gdk:guillemotright ) (gdk:h ) (gdk:hairspace ) (gdk:hcircumflex ) (gdk:heart ) (gdk:hebrew-aleph ) (gdk:hebrew-ayin ) (gdk:hebrew-bet ) (gdk:hebrew-beth ) (gdk:hebrew-chet ) (gdk:hebrew-dalet ) (gdk:hebrew-daleth ) (gdk:hebrew-doublelowline ) (gdk:hebrew-finalkaph ) (gdk:hebrew-finalmem ) (gdk:hebrew-finalnun ) (gdk:hebrew-finalpe ) (gdk:hebrew-finalzade ) (gdk:hebrew-finalzadi ) (gdk:hebrew-gimel ) (gdk:hebrew-gimmel ) (gdk:hebrew-he ) (gdk:hebrew-het ) (gdk:hebrew-kaph ) (gdk:hebrew-kuf ) (gdk:hebrew-lamed ) (gdk:hebrew-mem ) (gdk:hebrew-nun ) (gdk:hebrew-pe ) (gdk:hebrew-qoph ) (gdk:hebrew-resh ) (gdk:hebrew-samech ) (gdk:hebrew-samekh ) (gdk:hebrew-shin ) (gdk:hebrew-taf ) (gdk:hebrew-taw ) (gdk:hebrew-tet ) (gdk:hebrew-teth ) (gdk:hebrew-waw ) (gdk:hebrew-yod ) (gdk:hebrew-zade ) (gdk:hebrew-zadi ) (gdk:hebrew-zain ) (gdk:hebrew-zayin ) (gdk:hexagram ) (gdk:horizconnector ) (gdk:horizlinescan1 ) (gdk:horizlinescan3 ) (gdk:horizlinescan5 ) (gdk:horizlinescan7 ) (gdk:horizlinescan9 ) (gdk:hstroke ) (gdk:ht ) (gdk:hyphen ) (gdk:i ) (gdk:iacute ) (gdk:icircumflex ) (gdk:identical ) (gdk:idiaeresis ) (gdk:idotless ) (gdk:ifonlyif ) (gdk:igrave ) (gdk:imacron ) (gdk:implies ) (gdk:includedin ) (gdk:includes ) (gdk:infinity ) (gdk:integral ) (gdk:intersection ) (gdk:iogonek ) (gdk:itilde ) (gdk:j ) (gdk:jcircumflex ) (gdk:jot ) (gdk:k ) (gdk:kana-A ) (gdk:kana-CHI ) (gdk:kana-E ) (gdk:kana-FU ) (gdk:kana-HA ) (gdk:kana-HE ) (gdk:kana-HI ) (gdk:kana-HO ) (gdk:kana-HU ) (gdk:kana-I ) (gdk:kana-KA ) (gdk:kana-KE ) (gdk:kana-KI ) (gdk:kana-KO ) (gdk:kana-KU ) (gdk:kana-MA ) (gdk:kana-ME ) (gdk:kana-MI ) (gdk:kana-MO ) (gdk:kana-MU ) (gdk:kana-N ) (gdk:kana-NA ) (gdk:kana-NE ) (gdk:kana-NI ) (gdk:kana-NO ) (gdk:kana-NU ) (gdk:kana-O ) (gdk:kana-RA ) (gdk:kana-RE ) (gdk:kana-RI ) (gdk:kana-RO ) (gdk:kana-RU ) (gdk:kana-SA ) (gdk:kana-SE ) (gdk:kana-SHI ) (gdk:kana-SO ) (gdk:kana-SU ) (gdk:kana-TA ) (gdk:kana-TE ) (gdk:kana-TI ) (gdk:kana-TO ) (gdk:kana-TSU ) (gdk:kana-TU ) (gdk:kana-U ) (gdk:kana-WA ) (gdk:kana-WO ) (gdk:kana-YA ) (gdk:kana-YO ) (gdk:kana-YU ) (gdk:kana-a ) (gdk:kana-closingbracket ) (gdk:kana-comma ) (gdk:kana-conjunctive ) (gdk:kana-e ) (gdk:kana-fullstop ) (gdk:kana-i ) (gdk:kana-middledot ) (gdk:kana-o ) (gdk:kana-openingbracket ) (gdk:kana-switch ) (gdk:kana-tsu ) (gdk:kana-tu ) (gdk:kana-u ) (gdk:kana-ya ) (gdk:kana-yo ) (gdk:kana-yu ) (gdk:kappa ) (gdk:kcedilla ) (gdk:kra ) (gdk:l ) (gdk:lacute ) (gdk:latincross ) (gdk:lcaron ) (gdk:lcedilla ) (gdk:leftanglebracket ) (gdk:leftarrow ) (gdk:leftcaret ) (gdk:leftdoublequotemark ) (gdk:leftmiddlecurlybrace ) (gdk:leftopentriangle ) (gdk:leftpointer ) (gdk:leftradical ) (gdk:leftshoe ) (gdk:leftsinglequotemark ) (gdk:leftt ) (gdk:lefttack ) (gdk:less ) (gdk:lessthanequal ) (gdk:lf ) (gdk:logicaland ) (gdk:logicalor ) (gdk:lowleftcorner ) (gdk:lowrightcorner ) (gdk:lstroke ) (gdk:m ) (gdk:macron ) (gdk:malesymbol ) (gdk:maltesecross ) (gdk:marker ) (gdk:masculine ) (gdk:minus ) (gdk:minutes ) (gdk:mu ) (gdk:multiply ) (gdk:musicalflat ) (gdk:musicalsharp ) (gdk:n ) (gdk:nabla ) (gdk:nacute ) (gdk:ncaron ) (gdk:ncedilla ) (gdk:nl ) (gdk:nobreakspace ) (gdk:notequal ) (gdk:notsign ) (gdk:ntilde ) (gdk:numbersign ) (gdk:numerosign ) (gdk:o ) (gdk:oacute ) (gdk:ocircumflex ) (gdk:odiaeresis ) (gdk:odoubleacute ) (gdk:oe ) (gdk:ogonek ) (gdk:ograve ) (gdk:omacron ) (gdk:oneeighth ) (gdk:onefifth ) (gdk:onehalf ) (gdk:onequarter ) (gdk:onesixth ) (gdk:onesuperior ) (gdk:onethird ) (gdk:openrectbullet ) (gdk:openstar ) (gdk:opentribulletdown ) (gdk:opentribulletup ) (gdk:ordfeminine ) (gdk:oslash ) (gdk:otilde ) (gdk:overbar ) (gdk:overline ) (gdk:p ) (gdk:paragraph ) (gdk:parenleft ) (gdk:parenright ) (gdk:partialderivative ) (gdk:percent ) (gdk:period ) (gdk:periodcentered ) (gdk:phonographcopyright ) (gdk:plus ) (gdk:plusminus ) (gdk:prescription ) (gdk:prolongedsound ) (gdk:punctspace ) (gdk:q ) (gdk:quad ) (gdk:question ) (gdk:questiondown ) (gdk:quotedbl ) (gdk:quoteleft ) (gdk:quoteright ) (gdk:r ) (gdk:racute ) (gdk:radical ) (gdk:rcaron ) (gdk:rcedilla ) (gdk:registered ) (gdk:rightanglebracket ) (gdk:rightarrow ) (gdk:rightcaret ) (gdk:rightdoublequotemark ) (gdk:rightmiddlecurlybrace ) (gdk:rightmiddlesummation ) (gdk:rightopentriangle ) (gdk:rightpointer ) (gdk:rightshoe ) (gdk:rightsinglequotemark ) (gdk:rightt ) (gdk:righttack ) (gdk:s ) (gdk:sacute ) (gdk:scaron ) (gdk:scedilla ) (gdk:scircumflex ) (gdk:script-switch ) (gdk:seconds ) (gdk:section ) (gdk:semicolon ) (gdk:semivoicedsound ) (gdk:seveneighths ) (gdk:signaturemark ) (gdk:signifblank ) (gdk:similarequal ) (gdk:singlelowquotemark ) (gdk:slash ) (gdk:soliddiamond ) (gdk:space ) (gdk:ssharp ) (gdk:sterling ) (gdk:t ) (gdk:tcaron ) (gdk:tcedilla ) (gdk:telephone ) (gdk:telephonerecorder ) (gdk:therefore ) (gdk:thinspace ) (gdk:thorn ) (gdk:threeeighths ) (gdk:threefifths ) (gdk:threequarters ) (gdk:threesuperior ) (gdk:topintegral ) (gdk:topleftparens ) (gdk:topleftradical ) (gdk:topleftsqbracket ) (gdk:topleftsummation ) (gdk:toprightparens ) (gdk:toprightsqbracket ) (gdk:toprightsummation ) (gdk:topt ) (gdk:topvertsummationconnector ) (gdk:trademark ) (gdk:trademarkincircle ) (gdk:tslash ) (gdk:twofifths ) (gdk:twosuperior ) (gdk:twothirds ) (gdk:u ) (gdk:uacute ) (gdk:ubreve ) (gdk:ucircumflex ) (gdk:udiaeresis ) (gdk:udoubleacute ) (gdk:ugrave ) (gdk:umacron ) (gdk:underbar ) (gdk:underscore ) (gdk:union ) (gdk:uogonek ) (gdk:uparrow ) (gdk:upcaret ) (gdk:upleftcorner ) (gdk:uprightcorner ) (gdk:upshoe ) (gdk:upstile ) (gdk:uptack ) (gdk:uring ) (gdk:utilde ) (gdk:v ) (gdk:variation ) (gdk:vertbar ) (gdk:vertconnector ) (gdk:voicedsound ) (gdk:vt ) (gdk:w ) (gdk:x ) (gdk:y ) (gdk:yacute ) (gdk:ydiaeresis ) (gdk:yen ) (gdk:z ) (gdk:zabovedot ) (gdk:zacute ) (gdk:zcaron ))) ((gnome gw gdk) (uses-interfaces (gnome gw generics)) (typed-exports ( ) ( ) (gdk-atom-intern procedure (arity 0 0 #t)) (gdk-atom-name procedure (arity 0 0 #t)) (gdk-beep procedure (arity 0 0 #t)) (gdk-bitmap-create-from-data procedure (arity 0 0 #t)) (gdk-cairo-create procedure (arity 1 0 #f)) (gdk-cairo-rectangle procedure (arity 2 0 #f)) (gdk-cairo-region procedure (arity 2 0 #f)) (gdk-cairo-set-source-color procedure (arity 2 0 #f)) (gdk-cairo-set-source-pixbuf procedure (arity 4 0 #f)) (gdk-cairo-set-source-pixmap procedure (arity 4 0 #f)) (gdk-char-height procedure (arity 0 0 #t)) (gdk-char-measure procedure (arity 0 0 #t)) (gdk-char-width procedure (arity 0 0 #t)) (gdk-char-width-wc procedure (arity 0 0 #t)) (gdk-color-alloc procedure (arity 0 0 #t)) (gdk-color-black procedure (arity 0 0 #t)) (gdk-color-change procedure (arity 0 0 #t)) (gdk-color-copy procedure (arity 0 0 #t)) (gdk-color-parse procedure (arity 0 0 #t)) (gdk-color-white procedure (arity 0 0 #t)) (gdk-cursor-get-display procedure (arity 0 0 #t)) (gdk-cursor-get-image procedure (arity 0 0 #t)) (gdk-cursor-new procedure (arity 0 0 #t)) (gdk-cursor-new-for-display procedure (arity 0 0 #t)) (gdk-cursor-new-from-name procedure (arity 0 0 #t)) (gdk-cursor-new-from-pixbuf procedure (arity 0 0 #t)) (gdk-cursor-new-from-pixmap procedure (arity 0 0 #t)) (gdk-device-get-axis procedure (arity 2 0 #f)) (gdk-device-get-core-pointer procedure (arity 0 0 #t)) (gdk-device-set-axis-use procedure (arity 0 0 #t)) (gdk-device-set-key procedure (arity 0 0 #t)) (gdk-device-set-mode procedure (arity 0 0 #t)) (gdk-device-set-source procedure (arity 0 0 #t)) (gdk-devices-list procedure (arity 0 0 #f)) (gdk-display-beep procedure (arity 0 0 #t)) (gdk-display-close procedure (arity 0 0 #t)) (gdk-display-flush procedure (arity 0 0 #t)) (gdk-display-get-core-pointer procedure (arity 0 0 #t)) (gdk-display-get-default procedure (arity 0 0 #t)) (gdk-display-get-default-cursor-size procedure (arity 0 0 #t)) (gdk-display-get-default-group procedure (arity 0 0 #t)) (gdk-display-get-default-screen procedure (arity 0 0 #t)) (gdk-display-get-event procedure (arity 0 0 #t)) (gdk-display-get-maximal-cursor-size procedure (arity 1 0 #f)) (gdk-display-get-n-screens procedure (arity 0 0 #t)) (gdk-display-get-name procedure (arity 0 0 #t)) (gdk-display-get-screen procedure (arity 0 0 #t)) (gdk-display-get-window-at-pointer procedure (arity 1 0 #f)) (gdk-display-keyboard-ungrab procedure (arity 0 0 #t)) (gdk-display-list-devices procedure (arity 1 0 #f)) (gdk-display-manager-get procedure (arity 0 0 #t)) (gdk-display-manager-get-default-display procedure (arity 0 0 #t)) (gdk-display-manager-list-displays procedure (arity 1 0 #f)) (gdk-display-manager-set-default-display procedure (arity 0 0 #t)) (gdk-display-open procedure (arity 0 0 #t)) (gdk-display-peek-event procedure (arity 0 0 #t)) (gdk-display-pointer-is-grabbed procedure (arity 0 0 #t)) (gdk-display-pointer-ungrab procedure (arity 0 0 #t)) (gdk-display-put-event procedure (arity 0 0 #t)) (gdk-display-request-selection-notification procedure (arity 0 0 #t)) (gdk-display-set-double-click-distance procedure (arity 0 0 #t)) (gdk-display-set-double-click-time procedure (arity 0 0 #t)) (gdk-display-supports-clipboard-persistence procedure (arity 0 0 #t)) (gdk-display-supports-cursor-alpha procedure (arity 0 0 #t)) (gdk-display-supports-cursor-color procedure (arity 0 0 #t)) (gdk-display-supports-input-shapes procedure (arity 0 0 #t)) (gdk-display-supports-selection-notification procedure (arity 0 0 #t)) (gdk-display-supports-shapes procedure (arity 0 0 #t)) (gdk-display-sync procedure (arity 0 0 #t)) (gdk-display-warp-pointer procedure (arity 0 0 #t)) (gdk-drag-abort procedure (arity 0 0 #t)) (gdk-drag-context-new procedure (arity 0 0 #t)) (gdk-drag-drop procedure (arity 0 0 #t)) (gdk-drag-drop-succeeded procedure (arity 0 0 #t)) (gdk-drag-get-selection procedure (arity 0 0 #t)) (gdk-drag-motion procedure (arity 0 0 #t)) (gdk-drag-status procedure (arity 0 0 #t)) (gdk-draw-arc procedure (arity 0 0 #t)) (gdk-draw-drawable procedure (arity 0 0 #t)) (gdk-draw-glyphs procedure (arity 0 0 #t)) (gdk-draw-glyphs-transformed procedure (arity 0 0 #t)) (gdk-draw-image procedure (arity 0 0 #t)) (gdk-draw-layout procedure (arity 0 0 #t)) (gdk-draw-layout-line procedure (arity 0 0 #t)) (gdk-draw-layout-line-with-colors procedure (arity 0 0 #t)) (gdk-draw-layout-with-colors procedure (arity 0 0 #t)) (gdk-draw-line procedure (arity 0 0 #t)) (gdk-draw-pixbuf procedure (arity 0 0 #t)) (gdk-draw-point procedure (arity 0 0 #t)) (gdk-draw-rectangle procedure (arity 0 0 #t)) (gdk-draw-string procedure (arity 0 0 #t)) (gdk-drawable-copy-to-image procedure (arity 0 0 #t)) (gdk-drawable-get-clip-region procedure (arity 0 0 #t)) (gdk-drawable-get-colormap procedure (arity 0 0 #t)) (gdk-drawable-get-depth procedure (arity 0 0 #t)) (gdk-drawable-get-display procedure (arity 0 0 #t)) (gdk-drawable-get-image procedure (arity 0 0 #t)) (gdk-drawable-get-screen procedure (arity 0 0 #t)) (gdk-drawable-get-size procedure (arity 1 0 #f)) (gdk-drawable-get-visible-region procedure (arity 0 0 #t)) (gdk-drawable-get-visual procedure (arity 0 0 #t)) (gdk-drawable-set-colormap procedure (arity 0 0 #t)) (gdk-drop-finish procedure (arity 0 0 #t)) (gdk-drop-reply procedure (arity 0 0 #t)) (gdk-error-trap-pop procedure (arity 0 0 #t)) (gdk-error-trap-push procedure (arity 0 0 #t)) (gdk-event->vector procedure (arity 0 0 #t)) (gdk-event-copy procedure (arity 0 0 #t)) (gdk-event-get procedure (arity 0 0 #t)) (gdk-event-get-axis procedure (arity 2 0 #f)) (gdk-event-get-coords procedure (arity 1 0 #f)) (gdk-event-get-graphics-expose procedure (arity 0 0 #t)) (gdk-event-get-root-coords procedure (arity 1 0 #f)) (gdk-event-get-screen procedure (arity 0 0 #t)) (gdk-event-get-time procedure (arity 0 0 #t)) (gdk-event-peek procedure (arity 0 0 #t)) (gdk-event-put procedure (arity 0 0 #t)) (gdk-events-pending procedure (arity 0 0 #t)) (gdk-flush procedure (arity 0 0 #t)) (gdk-font-from-description procedure (arity 0 0 #t)) (gdk-font-id procedure (arity 0 0 #t)) (gdk-font-load procedure (arity 0 0 #t)) (gdk-fontset-load procedure (arity 0 0 #t)) (gdk-gc-copy procedure (arity 0 0 #t)) (gdk-gc-get-colormap procedure (arity 0 0 #t)) (gdk-gc-get-screen procedure (arity 0 0 #t)) (gdk-gc-new procedure (arity 0 0 #t)) (gdk-gc-offset procedure (arity 0 0 #t)) (gdk-gc-set-background procedure (arity 0 0 #t)) (gdk-gc-set-clip-mask procedure (arity 0 0 #t)) (gdk-gc-set-clip-origin procedure (arity 0 0 #t)) (gdk-gc-set-clip-rectangle procedure (arity 0 0 #t)) (gdk-gc-set-clip-region procedure (arity 0 0 #t)) (gdk-gc-set-colormap procedure (arity 0 0 #t)) (gdk-gc-set-exposures procedure (arity 0 0 #t)) (gdk-gc-set-fill procedure (arity 0 0 #t)) (gdk-gc-set-font procedure (arity 0 0 #t)) (gdk-gc-set-foreground procedure (arity 0 0 #t)) (gdk-gc-set-function procedure (arity 0 0 #t)) (gdk-gc-set-line-attributes procedure (arity 0 0 #t)) (gdk-gc-set-rgb-bg-color procedure (arity 0 0 #t)) (gdk-gc-set-rgb-fg-color procedure (arity 0 0 #t)) (gdk-gc-set-stipple procedure (arity 0 0 #t)) (gdk-gc-set-subwindow procedure (arity 0 0 #t)) (gdk-gc-set-tile procedure (arity 0 0 #t)) (gdk-gc-set-ts-origin procedure (arity 0 0 #t)) (gdk-get-default-root-window procedure (arity 0 0 #t)) (gdk-get-display procedure (arity 0 0 #t)) (gdk-get-display-arg-name procedure (arity 0 0 #t)) (gdk-get-program-class procedure (arity 0 0 #t)) (gdk-get-show-events procedure (arity 0 0 #t)) (gdk-get-use-xshm procedure (arity 0 0 #t)) (gdk-image-get procedure (arity 0 0 #t)) (gdk-image-get-colormap procedure (arity 0 0 #t)) (gdk-image-get-pixel procedure (arity 0 0 #t)) (gdk-image-new procedure (arity 0 0 #t)) (gdk-image-put-pixel procedure (arity 0 0 #t)) (gdk-image-set-colormap procedure (arity 0 0 #t)) (gdk-input-set-extension-events procedure (arity 0 0 #t)) (gdk-keyboard-grab procedure (arity 0 0 #t)) (gdk-keyboard-ungrab procedure (arity 0 0 #t)) (gdk-keymap-get-default procedure (arity 0 0 #t)) (gdk-keymap-get-direction procedure (arity 0 0 #t)) (gdk-keymap-get-for-display procedure (arity 0 0 #t)) (gdk-keyval-convert-case procedure (arity 1 0 #f)) (gdk-keyval-from-name procedure (arity 0 0 #t)) (gdk-keyval-is-lower procedure (arity 0 0 #t)) (gdk-keyval-is-upper procedure (arity 0 0 #t)) (gdk-keyval-name procedure (arity 0 0 #t)) (gdk-keyval-to-lower procedure (arity 0 0 #t)) (gdk-keyval-to-unicode procedure (arity 0 0 #t)) (gdk-keyval-to-upper procedure (arity 0 0 #t)) (gdk-list-visuals procedure (arity 0 0 #f)) (gdk-notify-startup-complete procedure (arity 0 0 #t)) (gdk-pango-attr-embossed-new procedure (arity 0 0 #t)) (gdk-pango-attr-stipple-new procedure (arity 0 0 #t)) (gdk-pango-context-get procedure (arity 0 0 #t)) (gdk-pango-context-get-for-screen procedure (arity 0 0 #t)) (gdk-pango-context-set-colormap procedure (arity 0 0 #t)) (gdk-pango-renderer-get-default procedure (arity 0 0 #t)) (gdk-pango-renderer-new procedure (arity 0 0 #t)) (gdk-pango-renderer-set-drawable procedure (arity 0 0 #t)) (gdk-pango-renderer-set-gc procedure (arity 0 0 #t)) (gdk-pango-renderer-set-override-color procedure (arity 0 0 #t)) (gdk-pango-renderer-set-stipple procedure (arity 0 0 #t)) (gdk-pixbuf-add-alpha procedure (arity 0 0 #t)) (gdk-pixbuf-animation-get-height procedure (arity 0 0 #t)) (gdk-pixbuf-animation-get-static-image procedure (arity 0 0 #t)) (gdk-pixbuf-animation-get-width procedure (arity 0 0 #t)) (gdk-pixbuf-animation-is-static-image procedure (arity 0 0 #t)) (gdk-pixbuf-animation-iter-get-delay-time procedure (arity 0 0 #t)) (gdk-pixbuf-animation-iter-get-pixbuf procedure (arity 0 0 #t)) (gdk-pixbuf-animation-iter-on-currently-loading-frame procedure (arity 0 0 #t)) (gdk-pixbuf-animation-new-from-file procedure (arity 1 0 #f)) (gdk-pixbuf-composite procedure (arity 0 0 #t)) (gdk-pixbuf-composite-color procedure (arity 0 0 #t)) (gdk-pixbuf-composite-color-simple procedure (arity 0 0 #t)) (gdk-pixbuf-copy-area procedure (arity 0 0 #t)) (gdk-pixbuf-error-quark procedure (arity 0 0 #t)) (gdk-pixbuf-fill procedure (arity 0 0 #t)) (gdk-pixbuf-flip procedure (arity 0 0 #t)) (gdk-pixbuf-get-bits-per-sample procedure (arity 0 0 #t)) (gdk-pixbuf-get-colorspace procedure (arity 0 0 #t)) (gdk-pixbuf-get-formats procedure (arity 0 0 #f)) (gdk-pixbuf-get-from-drawable procedure (arity 0 0 #t)) (gdk-pixbuf-get-from-image procedure (arity 0 0 #t)) (gdk-pixbuf-get-has-alpha procedure (arity 0 0 #t)) (gdk-pixbuf-get-height procedure (arity 0 0 #t)) (gdk-pixbuf-get-n-channels procedure (arity 0 0 #t)) (gdk-pixbuf-get-option procedure (arity 0 0 #t)) (gdk-pixbuf-get-rowstride procedure (arity 0 0 #t)) (gdk-pixbuf-get-width procedure (arity 0 0 #t)) (gdk-pixbuf-loader-close procedure (arity 1 0 #f)) (gdk-pixbuf-loader-get-animation procedure (arity 0 0 #t)) (gdk-pixbuf-loader-get-format procedure (arity 0 0 #t)) (gdk-pixbuf-loader-get-pixbuf procedure (arity 0 0 #t)) (gdk-pixbuf-loader-new procedure (arity 0 0 #t)) (gdk-pixbuf-loader-new-with-mime-type procedure (arity 1 0 #f)) (gdk-pixbuf-loader-new-with-type procedure (arity 1 0 #f)) (gdk-pixbuf-loader-set-size procedure (arity 0 0 #t)) (gdk-pixbuf-new procedure (arity 0 0 #t)) (gdk-pixbuf-new-from-file procedure (arity 1 0 #f)) (gdk-pixbuf-new-from-file-at-scale procedure (arity 4 0 #f)) (gdk-pixbuf-new-from-file-at-size procedure (arity 3 0 #f)) (gdk-pixbuf-new-subpixbuf procedure (arity 0 0 #t)) (gdk-pixbuf-render-threshold-alpha procedure (arity 0 0 #t)) (gdk-pixbuf-render-to-drawable procedure (arity 0 0 #t)) (gdk-pixbuf-render-to-drawable-alpha procedure (arity 0 0 #t)) (gdk-pixbuf-rotate-simple procedure (arity 0 0 #t)) (gdk-pixbuf-saturate-and-pixelate procedure (arity 0 0 #t)) (gdk-pixbuf-save-to-port procedure (arity 4 0 #f)) (gdk-pixbuf-scale procedure (arity 0 0 #t)) (gdk-pixbuf-scale-simple procedure (arity 0 0 #t)) (gdk-pixbuf-simple-anim-add-frame procedure (arity 0 0 #t)) (gdk-pixbuf-simple-anim-new procedure (arity 0 0 #t)) (gdk-pixmap-create-from-data procedure (arity 0 0 #t)) (gdk-pixmap-foreign-new-for-display procedure (arity 0 0 #t)) (gdk-pixmap-foreign-new-for-screen procedure (arity 0 0 #t)) (gdk-pixmap-lookup procedure (arity 0 0 #t)) (gdk-pixmap-new procedure (arity 0 0 #t)) (gdk-pointer-grab procedure (arity 0 0 #t)) (gdk-pointer-is-grabbed procedure (arity 0 0 #t)) (gdk-pointer-ungrab procedure (arity 0 0 #t)) (gdk-property-delete procedure (arity 0 0 #t)) (gdk-region-copy procedure (arity 0 0 #t)) (gdk-region-destroy procedure (arity 0 0 #t)) (gdk-region-empty procedure (arity 0 0 #t)) (gdk-region-equal procedure (arity 0 0 #t)) (gdk-region-intersect procedure (arity 0 0 #t)) (gdk-region-new procedure (arity 0 0 #t)) (gdk-region-offset procedure (arity 0 0 #t)) (gdk-region-point-in procedure (arity 0 0 #t)) (gdk-region-rect-in procedure (arity 0 0 #t)) (gdk-region-rectangle procedure (arity 0 0 #t)) (gdk-region-shrink procedure (arity 0 0 #t)) (gdk-region-subtract procedure (arity 0 0 #t)) (gdk-region-union procedure (arity 0 0 #t)) (gdk-region-union-with-rect procedure (arity 0 0 #t)) (gdk-region-xor procedure (arity 0 0 #t)) (gdk-rgb-colormap-ditherable procedure (arity 0 0 #t)) (gdk-rgb-ditherable procedure (arity 0 0 #t)) (gdk-rgb-gc-set-background procedure (arity 0 0 #t)) (gdk-rgb-gc-set-foreground procedure (arity 0 0 #t)) (gdk-rgb-get-colormap procedure (arity 0 0 #t)) (gdk-rgb-get-visual procedure (arity 0 0 #t)) (gdk-rgb-init procedure (arity 0 0 #t)) (gdk-rgb-set-install procedure (arity 0 0 #t)) (gdk-rgb-set-min-colors procedure (arity 0 0 #t)) (gdk-rgb-set-verbose procedure (arity 0 0 #t)) (gdk-rgb-xpixel-from-rgb procedure (arity 0 0 #t)) (gdk-screen-broadcast-client-message procedure (arity 0 0 #t)) (gdk-screen-get-active-window procedure (arity 0 0 #t)) (gdk-screen-get-default procedure (arity 0 0 #t)) (gdk-screen-get-default-colormap procedure (arity 0 0 #t)) (gdk-screen-get-display procedure (arity 0 0 #t)) (gdk-screen-get-font-options procedure (arity 1 0 #f)) (gdk-screen-get-height procedure (arity 0 0 #t)) (gdk-screen-get-height-mm procedure (arity 0 0 #t)) (gdk-screen-get-monitor-at-point procedure (arity 0 0 #t)) (gdk-screen-get-monitor-at-window procedure (arity 0 0 #t)) (gdk-screen-get-monitor-geometry procedure (arity 0 0 #t)) (gdk-screen-get-n-monitors procedure (arity 0 0 #t)) (gdk-screen-get-number procedure (arity 0 0 #t)) (gdk-screen-get-resolution procedure (arity 0 0 #t)) (gdk-screen-get-rgb-colormap procedure (arity 0 0 #t)) (gdk-screen-get-rgb-visual procedure (arity 0 0 #t)) (gdk-screen-get-rgba-colormap procedure (arity 0 0 #t)) (gdk-screen-get-rgba-visual procedure (arity 0 0 #t)) (gdk-screen-get-root-window procedure (arity 0 0 #t)) (gdk-screen-get-setting procedure (arity 0 0 #t)) (gdk-screen-get-system-colormap procedure (arity 0 0 #t)) (gdk-screen-get-system-visual procedure (arity 0 0 #t)) (gdk-screen-get-toplevel-windows procedure (arity 1 0 #f)) (gdk-screen-get-width procedure (arity 0 0 #t)) (gdk-screen-get-width-mm procedure (arity 0 0 #t)) (gdk-screen-get-window-stack procedure (arity 1 0 #f)) (gdk-screen-height procedure (arity 0 0 #t)) (gdk-screen-height-mm procedure (arity 0 0 #t)) (gdk-screen-is-composited procedure (arity 0 0 #t)) (gdk-screen-list-visuals procedure (arity 1 0 #f)) (gdk-screen-make-display-name procedure (arity 0 0 #t)) (gdk-screen-set-default-colormap procedure (arity 0 0 #t)) (gdk-screen-set-font-options procedure (arity 2 0 #f)) (gdk-screen-set-resolution procedure (arity 0 0 #t)) (gdk-screen-width procedure (arity 0 0 #t)) (gdk-screen-width-mm procedure (arity 0 0 #t)) (gdk-selection-convert procedure (arity 0 0 #t)) (gdk-selection-owner-get procedure (arity 0 0 #t)) (gdk-selection-owner-get-for-display procedure (arity 0 0 #t)) (gdk-selection-owner-set procedure (arity 0 0 #t)) (gdk-selection-owner-set-for-display procedure (arity 0 0 #t)) (gdk-selection-send-notify procedure (arity 0 0 #t)) (gdk-selection-send-notify-for-display procedure (arity 0 0 #t)) (gdk-set-double-click-time procedure (arity 0 0 #t)) (gdk-set-locale procedure (arity 0 0 #t)) (gdk-set-program-class procedure (arity 0 0 #t)) (gdk-set-show-events procedure (arity 0 0 #t)) (gdk-set-sm-client-id procedure (arity 0 0 #t)) (gdk-set-use-xshm procedure (arity 0 0 #t)) (gdk-spawn-command-line-on-screen procedure (arity 2 0 #f)) (gdk-string-extents procedure (arity 2 0 #f)) (gdk-string-height procedure (arity 0 0 #t)) (gdk-string-measure procedure (arity 0 0 #t)) (gdk-string-width procedure (arity 0 0 #t)) (gdk-text-height procedure (arity 0 0 #t)) (gdk-text-measure procedure (arity 0 0 #t)) (gdk-text-width procedure (arity 0 0 #t)) (gdk-threads-enter procedure (arity 0 0 #t)) (gdk-threads-init procedure (arity 0 0 #t)) (gdk-threads-leave procedure (arity 0 0 #t)) (gdk-unicode-to-keyval procedure (arity 0 0 #t)) (gdk-visual-get-best procedure (arity 0 0 #t)) (gdk-visual-get-best-depth procedure (arity 0 0 #t)) (gdk-visual-get-best-type procedure (arity 0 0 #t)) (gdk-visual-get-best-with-both procedure (arity 0 0 #t)) (gdk-visual-get-best-with-depth procedure (arity 0 0 #t)) (gdk-visual-get-best-with-type procedure (arity 0 0 #t)) (gdk-visual-get-screen procedure (arity 0 0 #t)) (gdk-visual-get-system procedure (arity 0 0 #t)) (gdk-window-at-pointer procedure (arity 0 0 #f)) (gdk-window-begin-move-drag procedure (arity 0 0 #t)) (gdk-window-begin-paint-rect procedure (arity 0 0 #t)) (gdk-window-begin-paint-region procedure (arity 0 0 #t)) (gdk-window-begin-resize-drag procedure (arity 0 0 #t)) (gdk-window-clear procedure (arity 0 0 #t)) (gdk-window-clear-area procedure (arity 0 0 #t)) (gdk-window-clear-area-e procedure (arity 0 0 #t)) (gdk-window-configure-finished procedure (arity 0 0 #t)) (gdk-window-deiconify procedure (arity 0 0 #t)) (gdk-window-destroy procedure (arity 0 0 #t)) (gdk-window-enable-synchronized-configure procedure (arity 0 0 #t)) (gdk-window-end-paint procedure (arity 0 0 #t)) (gdk-window-focus procedure (arity 0 0 #t)) (gdk-window-foreign-new-for-display procedure (arity 0 0 #t)) (gdk-window-freeze-updates procedure (arity 0 0 #t)) (gdk-window-fullscreen procedure (arity 0 0 #t)) (gdk-window-get-children procedure (arity 1 0 #f)) (gdk-window-get-deskrelative-origin procedure (arity 1 0 #f)) (gdk-window-get-events procedure (arity 0 0 #t)) (gdk-window-get-geometry procedure (arity 1 0 #f)) (gdk-window-get-group procedure (arity 0 0 #t)) (gdk-window-get-origin procedure (arity 1 0 #f)) (gdk-window-get-parent procedure (arity 0 0 #t)) (gdk-window-get-position procedure (arity 1 0 #f)) (gdk-window-get-root-origin procedure (arity 1 0 #f)) (gdk-window-get-state procedure (arity 0 0 #t)) (gdk-window-get-toplevel procedure (arity 0 0 #t)) (gdk-window-get-toplevels procedure (arity 0 0 #f)) (gdk-window-get-type-hint procedure (arity 0 0 #t)) (gdk-window-get-update-area procedure (arity 0 0 #t)) (gdk-window-get-window-type procedure (arity 0 0 #t)) (gdk-window-hide procedure (arity 0 0 #t)) (gdk-window-iconify procedure (arity 0 0 #t)) (gdk-window-input-shape-combine-mask procedure (arity 0 0 #t)) (gdk-window-input-shape-combine-region procedure (arity 0 0 #t)) (gdk-window-invalidate-rect procedure (arity 0 0 #t)) (gdk-window-invalidate-region procedure (arity 0 0 #t)) (gdk-window-is-viewable procedure (arity 0 0 #t)) (gdk-window-is-visible procedure (arity 0 0 #t)) (gdk-window-lookup procedure (arity 0 0 #t)) (gdk-window-lower procedure (arity 0 0 #t)) (gdk-window-maximize procedure (arity 0 0 #t)) (gdk-window-merge-child-input-shapes procedure (arity 0 0 #t)) (gdk-window-merge-child-shapes procedure (arity 0 0 #t)) (gdk-window-move procedure (arity 0 0 #t)) (gdk-window-move-region procedure (arity 0 0 #t)) (gdk-window-move-resize procedure (arity 0 0 #t)) (gdk-window-process-all-updates procedure (arity 0 0 #t)) (gdk-window-process-updates procedure (arity 0 0 #t)) (gdk-window-raise procedure (arity 0 0 #t)) (gdk-window-register-dnd procedure (arity 0 0 #t)) (gdk-window-reparent procedure (arity 0 0 #t)) (gdk-window-resize procedure (arity 0 0 #t)) (gdk-window-scroll procedure (arity 0 0 #t)) (gdk-window-set-accept-focus procedure (arity 0 0 #t)) (gdk-window-set-back-pixmap procedure (arity 0 0 #t)) (gdk-window-set-background procedure (arity 0 0 #t)) (gdk-window-set-child-input-shapes procedure (arity 0 0 #t)) (gdk-window-set-child-shapes procedure (arity 0 0 #t)) (gdk-window-set-cursor procedure (arity 0 0 #t)) (gdk-window-set-debug-updates procedure (arity 0 0 #t)) (gdk-window-set-decorations procedure (arity 0 0 #t)) (gdk-window-set-events procedure (arity 0 0 #t)) (gdk-window-set-focus-on-map procedure (arity 0 0 #t)) (gdk-window-set-functions procedure (arity 0 0 #t)) (gdk-window-set-group procedure (arity 0 0 #t)) (gdk-window-set-hints procedure (arity 0 0 #t)) (gdk-window-set-icon procedure (arity 0 0 #t)) (gdk-window-set-icon-list procedure (arity 2 0 #f)) (gdk-window-set-icon-name procedure (arity 0 0 #t)) (gdk-window-set-keep-above procedure (arity 0 0 #t)) (gdk-window-set-keep-below procedure (arity 0 0 #t)) (gdk-window-set-modal-hint procedure (arity 0 0 #t)) (gdk-window-set-override-redirect procedure (arity 0 0 #t)) (gdk-window-set-role procedure (arity 0 0 #t)) (gdk-window-set-skip-pager-hint procedure (arity 0 0 #t)) (gdk-window-set-skip-taskbar-hint procedure (arity 0 0 #t)) (gdk-window-set-static-gravities procedure (arity 0 0 #t)) (gdk-window-set-title procedure (arity 0 0 #t)) (gdk-window-set-transient-for procedure (arity 0 0 #t)) (gdk-window-set-type-hint procedure (arity 0 0 #t)) (gdk-window-set-urgency-hint procedure (arity 0 0 #t)) (gdk-window-shape-combine-mask procedure (arity 0 0 #t)) (gdk-window-shape-combine-region procedure (arity 0 0 #t)) (gdk-window-show procedure (arity 0 0 #t)) (gdk-window-show-unraised procedure (arity 0 0 #t)) (gdk-window-stick procedure (arity 0 0 #t)) (gdk-window-thaw-updates procedure (arity 0 0 #t)) (gdk-window-unfullscreen procedure (arity 0 0 #t)) (gdk-window-unmaximize procedure (arity 0 0 #t)) (gdk-window-unstick procedure (arity 0 0 #t)) (gdk-window-withdraw procedure (arity 0 0 #t)))) ((gnome gw generics) (uses-interfaces (gnome gobject generics)) (typed-exports))) guile-gnome-platform-2.16.2/gtk/tests/Makefile.am0000644000175000017500000000002011670374303022143 0ustar00wingowingo00000000000000SUBDIRS=gdk gtk guile-gnome-platform-2.16.2/gtk/tests/Makefile.in0000644000175000017500000004523711752511067022200 0ustar00wingowingo00000000000000# Makefile.in generated by automake 1.11.5 from Makefile.am. # @configure_input@ # Copyright (C) 1994, 1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, # 2003, 2004, 2005, 2006, 2007, 2008, 2009, 2010, 2011 Free Software # Foundation, Inc. # This Makefile.in is free software; the Free Software Foundation # gives unlimited permission to copy and/or distribute it, # with or without modifications, as long as this notice is preserved. # This program is distributed in the hope that it will be useful, # but WITHOUT ANY WARRANTY, to the extent permitted by law; without # even the implied warranty of MERCHANTABILITY or FITNESS FOR A # PARTICULAR PURPOSE. @SET_MAKE@ VPATH = @srcdir@ am__make_dryrun = \ { \ am__dry=no; \ case $$MAKEFLAGS in \ *\\[\ \ ]*) \ echo 'am--echo: ; @echo "AM" OK' | $(MAKE) -f - 2>/dev/null \ | grep '^AM OK$$' >/dev/null || am__dry=yes;; \ *) \ for am__flg in $$MAKEFLAGS; do \ case $$am__flg in \ *=*|--*) ;; \ *n*) am__dry=yes; break;; \ esac; \ done;; \ esac; \ test $$am__dry = yes; \ } pkgdatadir = $(datadir)/@PACKAGE@ pkgincludedir = $(includedir)/@PACKAGE@ pkglibdir = $(libdir)/@PACKAGE@ pkglibexecdir = $(libexecdir)/@PACKAGE@ am__cd = CDPATH="$${ZSH_VERSION+.}$(PATH_SEPARATOR)" && cd install_sh_DATA = $(install_sh) -c -m 644 install_sh_PROGRAM = $(install_sh) -c install_sh_SCRIPT = $(install_sh) -c INSTALL_HEADER = $(INSTALL_DATA) transform = $(program_transform_name) NORMAL_INSTALL = : PRE_INSTALL = : POST_INSTALL = : NORMAL_UNINSTALL = : PRE_UNINSTALL = : POST_UNINSTALL = : build_triplet = @build@ host_triplet = @host@ subdir = gtk/tests DIST_COMMON = $(srcdir)/Makefile.am $(srcdir)/Makefile.in ACLOCAL_M4 = $(top_srcdir)/aclocal.m4 am__aclocal_m4_deps = $(top_srcdir)/configure.ac am__configure_deps = $(am__aclocal_m4_deps) $(CONFIGURE_DEPENDENCIES) \ $(ACLOCAL_M4) mkinstalldirs = $(install_sh) -d CONFIG_HEADER = $(top_builddir)/config.h CONFIG_CLEAN_FILES = CONFIG_CLEAN_VPATH_FILES = SOURCES = DIST_SOURCES = RECURSIVE_TARGETS = all-recursive check-recursive dvi-recursive \ html-recursive info-recursive install-data-recursive \ install-dvi-recursive install-exec-recursive \ install-html-recursive install-info-recursive \ install-pdf-recursive install-ps-recursive install-recursive \ installcheck-recursive installdirs-recursive pdf-recursive \ ps-recursive uninstall-recursive am__can_run_installinfo = \ case $$AM_UPDATE_INFO_DIR in \ n|no|NO) false;; \ *) (install-info --version) >/dev/null 2>&1;; \ esac RECURSIVE_CLEAN_TARGETS = mostlyclean-recursive clean-recursive \ distclean-recursive maintainer-clean-recursive AM_RECURSIVE_TARGETS = $(RECURSIVE_TARGETS:-recursive=) \ $(RECURSIVE_CLEAN_TARGETS:-recursive=) tags TAGS ctags CTAGS \ distdir ETAGS = etags CTAGS = ctags DIST_SUBDIRS = $(SUBDIRS) DISTFILES = $(DIST_COMMON) $(DIST_SOURCES) $(TEXINFOS) $(EXTRA_DIST) am__relativize = \ dir0=`pwd`; \ sed_first='s,^\([^/]*\)/.*$$,\1,'; \ sed_rest='s,^[^/]*/*,,'; \ sed_last='s,^.*/\([^/]*\)$$,\1,'; \ sed_butlast='s,/*[^/]*$$,,'; \ while test -n "$$dir1"; do \ first=`echo "$$dir1" | sed -e "$$sed_first"`; \ if test "$$first" != "."; then \ if test "$$first" = ".."; then \ dir2=`echo "$$dir0" | sed -e "$$sed_last"`/"$$dir2"; \ dir0=`echo "$$dir0" | sed -e "$$sed_butlast"`; \ else \ first2=`echo "$$dir2" | sed -e "$$sed_first"`; \ if test "$$first2" = "$$first"; then \ dir2=`echo "$$dir2" | sed -e "$$sed_rest"`; \ else \ dir2="../$$dir2"; \ fi; \ dir0="$$dir0"/"$$first"; \ fi; \ fi; \ dir1=`echo "$$dir1" | sed -e "$$sed_rest"`; \ done; \ reldir="$$dir2" ACLOCAL = @ACLOCAL@ AG_PKG_CONFIG_PATH = @AG_PKG_CONFIG_PATH@ AMTAR = @AMTAR@ API_VERSION = @API_VERSION@ AR = @AR@ ATK_CFLAGS = @ATK_CFLAGS@ ATK_LIBS = @ATK_LIBS@ AUTOCONF = @AUTOCONF@ AUTOHEADER = @AUTOHEADER@ AUTOMAKE = @AUTOMAKE@ AWK = @AWK@ BONOBO_IDL_DIR = @BONOBO_IDL_DIR@ CANVAS_CFLAGS = @CANVAS_CFLAGS@ CANVAS_LIBS = @CANVAS_LIBS@ CC = @CC@ CCDEPMODE = @CCDEPMODE@ CFLAGS = @CFLAGS@ CORBA_CFLAGS = @CORBA_CFLAGS@ CORBA_LIBS = @CORBA_LIBS@ CPP = @CPP@ CPPFLAGS = @CPPFLAGS@ CYGPATH_W = @CYGPATH_W@ DEFS = @DEFS@ DEPDIR = @DEPDIR@ DLLTOOL = @DLLTOOL@ DSYMUTIL = @DSYMUTIL@ DUMPBIN = @DUMPBIN@ ECHO_C = @ECHO_C@ ECHO_N = @ECHO_N@ ECHO_T = @ECHO_T@ EGREP = @EGREP@ EXEEXT = @EXEEXT@ FGREP = @FGREP@ GCONF_CFLAGS = @GCONF_CFLAGS@ GCONF_LIBS = @GCONF_LIBS@ GDK_CFLAGS = @GDK_CFLAGS@ GDK_LIBS = @GDK_LIBS@ GDK_PIXBUF_CFLAGS = @GDK_PIXBUF_CFLAGS@ GDK_PIXBUF_LIBS = @GDK_PIXBUF_LIBS@ GLIB_CFLAGS = @GLIB_CFLAGS@ GLIB_LIBS = @GLIB_LIBS@ GNOMEUI_DEPRECATION_FLAGS = @GNOMEUI_DEPRECATION_FLAGS@ GNOME_VFS_CFLAGS = @GNOME_VFS_CFLAGS@ GNOME_VFS_DEPRECATED_CFLAGS = @GNOME_VFS_DEPRECATED_CFLAGS@ GNOME_VFS_LIBS = @GNOME_VFS_LIBS@ GOBJECT_CFLAGS = @GOBJECT_CFLAGS@ GOBJECT_LIBS = @GOBJECT_LIBS@ GREP = @GREP@ GTHREAD_CFLAGS = @GTHREAD_CFLAGS@ GTHREAD_LIBS = @GTHREAD_LIBS@ GTK_CFLAGS = @GTK_CFLAGS@ GTK_DEPRECATED_CFLAGS = @GTK_DEPRECATED_CFLAGS@ GTK_LIBS = @GTK_LIBS@ GUILE_CAIRO_CFLAGS = @GUILE_CAIRO_CFLAGS@ GUILE_CAIRO_LIBS = @GUILE_CAIRO_LIBS@ GUILE_CFLAGS = @GUILE_CFLAGS@ GUILE_EFFECTIVE_VERSION = @GUILE_EFFECTIVE_VERSION@ GUILE_GLIB_CFLAGS = @GUILE_GLIB_CFLAGS@ GUILE_GLIB_LIBS = @GUILE_GLIB_LIBS@ GUILE_LIBS = @GUILE_LIBS@ G_WRAP_CFLAGS = @G_WRAP_CFLAGS@ G_WRAP_LIBS = @G_WRAP_LIBS@ G_WRAP_LIB_DIR = @G_WRAP_LIB_DIR@ G_WRAP_MODULE_DIR = @G_WRAP_MODULE_DIR@ INSTALL = @INSTALL@ INSTALL_DATA = @INSTALL_DATA@ INSTALL_PROGRAM = @INSTALL_PROGRAM@ INSTALL_SCRIPT = @INSTALL_SCRIPT@ INSTALL_STRIP_PROGRAM = @INSTALL_STRIP_PROGRAM@ LD = @LD@ LDFLAGS = @LDFLAGS@ LIBGLADE_CFLAGS = @LIBGLADE_CFLAGS@ LIBGLADE_LIBS = @LIBGLADE_LIBS@ LIBGNOMEUI_CFLAGS = @LIBGNOMEUI_CFLAGS@ LIBGNOMEUI_LIBS = @LIBGNOMEUI_LIBS@ LIBGNOME_CFLAGS = @LIBGNOME_CFLAGS@ LIBGNOME_LIBS = @LIBGNOME_LIBS@ LIBOBJS = @LIBOBJS@ LIBS = @LIBS@ LIBTOOL = @LIBTOOL@ LIPO = @LIPO@ LN_S = @LN_S@ LTLIBOBJS = @LTLIBOBJS@ MAKEINFO = @MAKEINFO@ MANIFEST_TOOL = @MANIFEST_TOOL@ MKDIR_P = @MKDIR_P@ NM = @NM@ NMEDIT = @NMEDIT@ OBJDUMP = @OBJDUMP@ OBJEXT = @OBJEXT@ ORBIT_IDL = @ORBIT_IDL@ OTOOL = @OTOOL@ OTOOL64 = @OTOOL64@ PACKAGE = @PACKAGE@ PACKAGE_BUGREPORT = @PACKAGE_BUGREPORT@ PACKAGE_NAME = @PACKAGE_NAME@ PACKAGE_STRING = @PACKAGE_STRING@ PACKAGE_TARNAME = @PACKAGE_TARNAME@ PACKAGE_URL = @PACKAGE_URL@ PACKAGE_VERSION = @PACKAGE_VERSION@ PANGOCAIRO_CFLAGS = @PANGOCAIRO_CFLAGS@ PANGOCAIRO_LIBS = @PANGOCAIRO_LIBS@ PANGO_CFLAGS = @PANGO_CFLAGS@ PANGO_LIBS = @PANGO_LIBS@ PATH_SEPARATOR = @PATH_SEPARATOR@ PKG_CONFIG = @PKG_CONFIG@ PKG_CONFIG_LIBDIR = @PKG_CONFIG_LIBDIR@ PKG_CONFIG_PATH = @PKG_CONFIG_PATH@ RANLIB = @RANLIB@ SED = @SED@ SET_MAKE = @SET_MAKE@ SHELL = @SHELL@ STRIP = @STRIP@ VERSION = @VERSION@ WARN_CFLAGS = @WARN_CFLAGS@ abs_builddir = @abs_builddir@ abs_srcdir = @abs_srcdir@ abs_top_builddir = @abs_top_builddir@ abs_top_srcdir = @abs_top_srcdir@ ac_ct_AR = @ac_ct_AR@ ac_ct_CC = @ac_ct_CC@ ac_ct_DUMPBIN = @ac_ct_DUMPBIN@ am__include = @am__include@ am__leading_dot = @am__leading_dot@ am__quote = @am__quote@ am__tar = @am__tar@ am__untar = @am__untar@ bindir = @bindir@ build = @build@ build_alias = @build_alias@ build_cpu = @build_cpu@ build_os = @build_os@ build_vendor = @build_vendor@ builddir = @builddir@ datadir = @datadir@ datarootdir = @datarootdir@ docdir = @docdir@ dvidir = @dvidir@ exec_prefix = @exec_prefix@ host = @host@ host_alias = @host_alias@ host_cpu = @host_cpu@ host_os = @host_os@ host_vendor = @host_vendor@ htmldir = @htmldir@ includedir = @includedir@ infodir = @infodir@ install_sh = @install_sh@ libdir = @libdir@ libexecdir = @libexecdir@ localedir = @localedir@ localstatedir = @localstatedir@ mandir = @mandir@ mkdir_p = @mkdir_p@ oldincludedir = @oldincludedir@ pdfdir = @pdfdir@ prefix = @prefix@ program_transform_name = @program_transform_name@ psdir = @psdir@ sbindir = @sbindir@ sharedstatedir = @sharedstatedir@ srcdir = @srcdir@ sysconfdir = @sysconfdir@ target_alias = @target_alias@ top_build_prefix = @top_build_prefix@ top_builddir = @top_builddir@ top_srcdir = @top_srcdir@ SUBDIRS = gdk gtk all: all-recursive .SUFFIXES: $(srcdir)/Makefile.in: $(srcdir)/Makefile.am $(am__configure_deps) @for dep in $?; do \ case '$(am__configure_deps)' in \ *$$dep*) \ ( cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh ) \ && { if test -f $@; then exit 0; else break; fi; }; \ exit 1;; \ esac; \ done; \ echo ' cd $(top_srcdir) && $(AUTOMAKE) --gnu gtk/tests/Makefile'; \ $(am__cd) $(top_srcdir) && \ $(AUTOMAKE) --gnu gtk/tests/Makefile .PRECIOUS: Makefile Makefile: $(srcdir)/Makefile.in $(top_builddir)/config.status @case '$?' in \ *config.status*) \ cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh;; \ *) \ echo ' cd $(top_builddir) && $(SHELL) ./config.status $(subdir)/$@ $(am__depfiles_maybe)'; \ cd $(top_builddir) && $(SHELL) ./config.status $(subdir)/$@ $(am__depfiles_maybe);; \ esac; $(top_builddir)/config.status: $(top_srcdir)/configure $(CONFIG_STATUS_DEPENDENCIES) cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh $(top_srcdir)/configure: $(am__configure_deps) cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh $(ACLOCAL_M4): $(am__aclocal_m4_deps) cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh $(am__aclocal_m4_deps): mostlyclean-libtool: -rm -f *.lo clean-libtool: -rm -rf .libs _libs # This directory's subdirectories are mostly independent; you can cd # into them and run `make' without going through this Makefile. # To change the values of `make' variables: instead of editing Makefiles, # (1) if the variable is set in `config.status', edit `config.status' # (which will cause the Makefiles to be regenerated when you run `make'); # (2) otherwise, pass the desired values on the `make' command line. $(RECURSIVE_TARGETS): @fail= failcom='exit 1'; \ for f in x $$MAKEFLAGS; do \ case $$f in \ *=* | --[!k]*);; \ *k*) failcom='fail=yes';; \ esac; \ done; \ dot_seen=no; \ target=`echo $@ | sed s/-recursive//`; \ list='$(SUBDIRS)'; for subdir in $$list; do \ echo "Making $$target in $$subdir"; \ if test "$$subdir" = "."; then \ dot_seen=yes; \ local_target="$$target-am"; \ else \ local_target="$$target"; \ fi; \ ($(am__cd) $$subdir && $(MAKE) $(AM_MAKEFLAGS) $$local_target) \ || eval $$failcom; \ done; \ if test "$$dot_seen" = "no"; then \ $(MAKE) $(AM_MAKEFLAGS) "$$target-am" || exit 1; \ fi; test -z "$$fail" $(RECURSIVE_CLEAN_TARGETS): @fail= failcom='exit 1'; \ for f in x $$MAKEFLAGS; do \ case $$f in \ *=* | --[!k]*);; \ *k*) failcom='fail=yes';; \ esac; \ done; \ dot_seen=no; \ case "$@" in \ distclean-* | maintainer-clean-*) list='$(DIST_SUBDIRS)' ;; \ *) list='$(SUBDIRS)' ;; \ esac; \ rev=''; for subdir in $$list; do \ if test "$$subdir" = "."; then :; else \ rev="$$subdir $$rev"; \ fi; \ done; \ rev="$$rev ."; \ target=`echo $@ | sed s/-recursive//`; \ for subdir in $$rev; do \ echo "Making $$target in $$subdir"; \ if test "$$subdir" = "."; then \ local_target="$$target-am"; \ else \ local_target="$$target"; \ fi; \ ($(am__cd) $$subdir && $(MAKE) $(AM_MAKEFLAGS) $$local_target) \ || eval $$failcom; \ done && test -z "$$fail" tags-recursive: list='$(SUBDIRS)'; for subdir in $$list; do \ test "$$subdir" = . || ($(am__cd) $$subdir && $(MAKE) $(AM_MAKEFLAGS) tags); \ done ctags-recursive: list='$(SUBDIRS)'; for subdir in $$list; do \ test "$$subdir" = . || ($(am__cd) $$subdir && $(MAKE) $(AM_MAKEFLAGS) ctags); \ done ID: $(HEADERS) $(SOURCES) $(LISP) $(TAGS_FILES) list='$(SOURCES) $(HEADERS) $(LISP) $(TAGS_FILES)'; \ unique=`for i in $$list; do \ if test -f "$$i"; then echo $$i; else echo $(srcdir)/$$i; fi; \ done | \ $(AWK) '{ files[$$0] = 1; nonempty = 1; } \ END { if (nonempty) { for (i in files) print i; }; }'`; \ mkid -fID $$unique tags: TAGS TAGS: tags-recursive $(HEADERS) $(SOURCES) $(TAGS_DEPENDENCIES) \ $(TAGS_FILES) $(LISP) set x; \ here=`pwd`; \ if ($(ETAGS) --etags-include --version) >/dev/null 2>&1; then \ include_option=--etags-include; \ empty_fix=.; \ else \ include_option=--include; \ empty_fix=; \ fi; \ list='$(SUBDIRS)'; for subdir in $$list; do \ if test "$$subdir" = .; then :; else \ test ! -f $$subdir/TAGS || \ set "$$@" "$$include_option=$$here/$$subdir/TAGS"; \ fi; \ done; \ list='$(SOURCES) $(HEADERS) $(LISP) $(TAGS_FILES)'; \ unique=`for i in $$list; do \ if test -f "$$i"; then echo $$i; else echo $(srcdir)/$$i; fi; \ done | \ $(AWK) '{ files[$$0] = 1; nonempty = 1; } \ END { if (nonempty) { for (i in files) print i; }; }'`; \ shift; \ if test -z "$(ETAGS_ARGS)$$*$$unique"; then :; else \ test -n "$$unique" || unique=$$empty_fix; \ if test $$# -gt 0; then \ $(ETAGS) $(ETAGSFLAGS) $(AM_ETAGSFLAGS) $(ETAGS_ARGS) \ "$$@" $$unique; \ else \ $(ETAGS) $(ETAGSFLAGS) $(AM_ETAGSFLAGS) $(ETAGS_ARGS) \ $$unique; \ fi; \ fi ctags: CTAGS CTAGS: ctags-recursive $(HEADERS) $(SOURCES) $(TAGS_DEPENDENCIES) \ $(TAGS_FILES) $(LISP) list='$(SOURCES) $(HEADERS) $(LISP) $(TAGS_FILES)'; \ unique=`for i in $$list; do \ if test -f "$$i"; then echo $$i; else echo $(srcdir)/$$i; fi; \ done | \ $(AWK) '{ files[$$0] = 1; nonempty = 1; } \ END { if (nonempty) { for (i in files) print i; }; }'`; \ test -z "$(CTAGS_ARGS)$$unique" \ || $(CTAGS) $(CTAGSFLAGS) $(AM_CTAGSFLAGS) $(CTAGS_ARGS) \ $$unique GTAGS: here=`$(am__cd) $(top_builddir) && pwd` \ && $(am__cd) $(top_srcdir) \ && gtags -i $(GTAGS_ARGS) "$$here" distclean-tags: -rm -f TAGS ID GTAGS GRTAGS GSYMS GPATH tags distdir: $(DISTFILES) @srcdirstrip=`echo "$(srcdir)" | sed 's/[].[^$$\\*]/\\\\&/g'`; \ topsrcdirstrip=`echo "$(top_srcdir)" | sed 's/[].[^$$\\*]/\\\\&/g'`; \ list='$(DISTFILES)'; \ dist_files=`for file in $$list; do echo $$file; done | \ sed -e "s|^$$srcdirstrip/||;t" \ -e "s|^$$topsrcdirstrip/|$(top_builddir)/|;t"`; \ case $$dist_files in \ */*) $(MKDIR_P) `echo "$$dist_files" | \ sed '/\//!d;s|^|$(distdir)/|;s,/[^/]*$$,,' | \ sort -u` ;; \ esac; \ for file in $$dist_files; do \ if test -f $$file || test -d $$file; then d=.; else d=$(srcdir); fi; \ if test -d $$d/$$file; then \ dir=`echo "/$$file" | sed -e 's,/[^/]*$$,,'`; \ if test -d "$(distdir)/$$file"; then \ find "$(distdir)/$$file" -type d ! -perm -700 -exec chmod u+rwx {} \;; \ fi; \ if test -d $(srcdir)/$$file && test $$d != $(srcdir); then \ cp -fpR $(srcdir)/$$file "$(distdir)$$dir" || exit 1; \ find "$(distdir)/$$file" -type d ! -perm -700 -exec chmod u+rwx {} \;; \ fi; \ cp -fpR $$d/$$file "$(distdir)$$dir" || exit 1; \ else \ test -f "$(distdir)/$$file" \ || cp -p $$d/$$file "$(distdir)/$$file" \ || exit 1; \ fi; \ done @list='$(DIST_SUBDIRS)'; for subdir in $$list; do \ if test "$$subdir" = .; then :; else \ $(am__make_dryrun) \ || test -d "$(distdir)/$$subdir" \ || $(MKDIR_P) "$(distdir)/$$subdir" \ || exit 1; \ dir1=$$subdir; dir2="$(distdir)/$$subdir"; \ $(am__relativize); \ new_distdir=$$reldir; \ dir1=$$subdir; dir2="$(top_distdir)"; \ $(am__relativize); \ new_top_distdir=$$reldir; \ echo " (cd $$subdir && $(MAKE) $(AM_MAKEFLAGS) top_distdir="$$new_top_distdir" distdir="$$new_distdir" \\"; \ echo " am__remove_distdir=: am__skip_length_check=: am__skip_mode_fix=: distdir)"; \ ($(am__cd) $$subdir && \ $(MAKE) $(AM_MAKEFLAGS) \ top_distdir="$$new_top_distdir" \ distdir="$$new_distdir" \ am__remove_distdir=: \ am__skip_length_check=: \ am__skip_mode_fix=: \ distdir) \ || exit 1; \ fi; \ done check-am: all-am check: check-recursive all-am: Makefile installdirs: installdirs-recursive installdirs-am: install: install-recursive install-exec: install-exec-recursive install-data: install-data-recursive uninstall: uninstall-recursive install-am: all-am @$(MAKE) $(AM_MAKEFLAGS) install-exec-am install-data-am installcheck: installcheck-recursive install-strip: if test -z '$(STRIP)'; then \ $(MAKE) $(AM_MAKEFLAGS) INSTALL_PROGRAM="$(INSTALL_STRIP_PROGRAM)" \ install_sh_PROGRAM="$(INSTALL_STRIP_PROGRAM)" INSTALL_STRIP_FLAG=-s \ install; \ else \ $(MAKE) $(AM_MAKEFLAGS) INSTALL_PROGRAM="$(INSTALL_STRIP_PROGRAM)" \ install_sh_PROGRAM="$(INSTALL_STRIP_PROGRAM)" INSTALL_STRIP_FLAG=-s \ "INSTALL_PROGRAM_ENV=STRIPPROG='$(STRIP)'" install; \ fi mostlyclean-generic: clean-generic: distclean-generic: -test -z "$(CONFIG_CLEAN_FILES)" || rm -f $(CONFIG_CLEAN_FILES) -test . = "$(srcdir)" || test -z "$(CONFIG_CLEAN_VPATH_FILES)" || rm -f $(CONFIG_CLEAN_VPATH_FILES) maintainer-clean-generic: @echo "This command is intended for maintainers to use" @echo "it deletes files that may require special tools to rebuild." clean: clean-recursive clean-am: clean-generic clean-libtool mostlyclean-am distclean: distclean-recursive -rm -f Makefile distclean-am: clean-am distclean-generic distclean-tags dvi: dvi-recursive dvi-am: html: html-recursive html-am: info: info-recursive info-am: install-data-am: install-dvi: install-dvi-recursive install-dvi-am: install-exec-am: install-html: install-html-recursive install-html-am: install-info: install-info-recursive install-info-am: install-man: install-pdf: install-pdf-recursive install-pdf-am: install-ps: install-ps-recursive install-ps-am: installcheck-am: maintainer-clean: maintainer-clean-recursive -rm -f Makefile maintainer-clean-am: distclean-am maintainer-clean-generic mostlyclean: mostlyclean-recursive mostlyclean-am: mostlyclean-generic mostlyclean-libtool pdf: pdf-recursive pdf-am: ps: ps-recursive ps-am: uninstall-am: .MAKE: $(RECURSIVE_CLEAN_TARGETS) $(RECURSIVE_TARGETS) ctags-recursive \ install-am install-strip tags-recursive .PHONY: $(RECURSIVE_CLEAN_TARGETS) $(RECURSIVE_TARGETS) CTAGS GTAGS \ all all-am check check-am clean clean-generic clean-libtool \ ctags ctags-recursive distclean distclean-generic \ distclean-libtool distclean-tags distdir dvi dvi-am html \ html-am info info-am install install-am install-data \ install-data-am install-dvi install-dvi-am install-exec \ install-exec-am install-html install-html-am install-info \ install-info-am install-man install-pdf install-pdf-am \ install-ps install-ps-am install-strip installcheck \ installcheck-am installdirs installdirs-am maintainer-clean \ maintainer-clean-generic mostlyclean mostlyclean-generic \ mostlyclean-libtool pdf pdf-am ps ps-am tags tags-recursive \ uninstall uninstall-am # Tell versions [3.59,3.63) of GNU make to not export all variables. # Otherwise a system limit (for SysV at least) may be exceeded. .NOEXPORT: guile-gnome-platform-2.16.2/gtk/gnome/0000755000175000017500000000000011752546501020064 5ustar00wingowingo00000000000000guile-gnome-platform-2.16.2/gtk/gnome/contrib/0000755000175000017500000000000011752546501021524 5ustar00wingowingo00000000000000guile-gnome-platform-2.16.2/gtk/gnome/contrib/texinfo-buffer.scm0000644000175000017500000003621011670743730025157 0ustar00wingowingo00000000000000;; guile-lib ;; Copyright (C) 2003,2004 Andy Wingo ;; This program is free software; you can redistribute it and/or ;; modify it under the terms of the GNU General Public License as ;; published by the Free Software Foundation; either version 2 of ;; the License, or (at your option) any later version. ;; ;; This program is distributed in the hope that it will be useful, ;; but WITHOUT ANY WARRANTY; without even the implied warranty of ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the ;; GNU General Public License for more details. ;; ;; You should have received a copy of the GNU General Public License ;; along with this program; if not, contact: ;; ;; Free Software Foundation Voice: +1-617-542-5942 ;; 59 Temple Place - Suite 330 Fax: +1-617-542-2652 ;; Boston, MA 02111-1307, USA gnu@gnu.org ;;; Commentary: ;; ;;Renders texinfo into a GtkTextBuffer; requires guile-lib to work. ;; ;;; Code: (define-module (gnome contrib texinfo-buffer) #:use-module (texinfo) #:use-module (sxml transform) #:use-module (sxml simple) #:use-module (scheme documentation) #:use-module (oop goops) #:use-module (gnome gtk) #:use-module (gnome gtk gdk-event) #:use-module (gnome gobject) #:use-module (gnome pango) #:export (stexi->gtk-text-buffer stexi-buffer-xref-activated-hook)) ;; don't allow the exp to affect the-last-stack (define-macro (false-if-exception exp) `(catch #t (lambda () (with-fluids ((the-last-stack (fluid-ref the-last-stack))) ,exp)) (lambda args #f))) (define url-show (or (false-if-exception (module-ref (resolve-interface '(gnome gnome)) 'gnome-url-show)) (lambda (u x) (pk "Hmm, implement a non-gnome URL handler..." u)))) ;; The two arguments are the node name and the manual name or #f (define-with-docs stexi-buffer-xref-activated-hook "A hook run when the user activates a cross-reference. The two arguments to the functions are the name of the node and the name of the manual." (make-hook 2)) (define tag-table (make )) (define tag-prop-alist ;; List the non-inline styles first so inlines get priority '((center . (#:justification center)) (example . (#:font "Monospace" #:wrap-mode none #:pixels-below-lines 0 #:pixels-above-lines 0 #:left-margin 20)) (smallexample . (#:font "Monospace" #:wrap-mode none #:scale 0.9 #:pixels-below-lines 0 #:pixels-above-lines 0 #:left-margin 20)) (cartouche . (#:pixels-below-lines 6 #:pixels-above-lines 6 #:pixels-inside-wrap 0 #:left-margin 25 #:right-margin 25 #:background "grey" #:justification center)) (title . (#:pixels-above-lines 6 #:pixels-below-lines 12 #:scale 1.4399999999 #:weight 700)) (subtitle . (#:pixels-above-lines 0 #:pixels-below-lines 12 #:scale 1.2 #:weight 700)) (author . (#:pixels-above-lines 0 #:pixels-below-lines 12 #:scale 1.2 #:weight 700)) ;; Assuming chapters and sections fall at the beginning of a buffer. ;; Not too good of an assumption. Better would be to detect if we're ;; at the start of a buffer, then adjust the tag accordingly. (chapter . (#:pixels-above-lines 6 #:pixels-below-lines 18 #:scale 1.4399999999 #:weight 700)) (majorheading . (#:pixels-above-lines 6 #:pixels-below-lines 18 #:scale 1.4399999999 #:weight 700)) (chapheading . (#:pixels-above-lines 6 #:pixels-below-lines 18 #:scale 1.4399999999 #:weight 700)) (section . (#:pixels-above-lines 6 #:pixels-below-lines 18 #:scale 1.4399999999 #:weight 700)) (heading . (#:pixels-above-lines 6 #:pixels-below-lines 18 #:scale 1.4399999999 #:weight 700)) (appendix . (#:pixels-above-lines 6 #:pixels-below-lines 18 #:scale 1.4399999999 #:weight 700)) (appendixsec . (#:pixels-above-lines 6 #:pixels-below-lines 18 #:scale 1.4399999999 #:weight 700)) (unnumbered . (#:pixels-above-lines 6 #:pixels-below-lines 18 #:scale 1.4399999999 #:weight 700)) (unnumberedsec . (#:pixels-above-lines 6 #:pixels-below-lines 18 #:scale 1.4399999999 #:weight 700)) (subsection . (#:pixels-above-lines 12 #:pixels-below-lines 6 #:scale 1.2 #:weight 700)) (subheading . (#:pixels-above-lines 12 #:pixels-below-lines 6 #:scale 1.2 #:weight 700)) (subsubsection . (#:pixels-above-lines 6 #:pixels-below-lines 6 #:weight 700)) (subsubheading . (#:pixels-above-lines 6 #:pixels-below-lines 6 #:weight 700)) (appendixsubsec . (#:pixels-above-lines 12 #:pixels-below-lines 6 #:scale 1.2 #:weight 700)) (appendixsubsubsec . (#:pixels-above-lines 6 #:pixels-below-lines 6 #:weight 700)) (unnumberedsubsec . (#:pixels-above-lines 12 #:pixels-below-lines 6 #:scale 1.2 #:weight 700)) (unnumberedsubsubsec . (#:pixels-above-lines 6 #:pixels-below-lines 6 #:weight 700)) (para . (#:pixels-below-lines 6)) (enumerate . (#:pixels-below-lines 6)) ;; FIXME! (itemize . (#:pixels-below-lines 6)) ;; FIXME! (table . (#:left-margin 50 #:right-margin 25)) (ftable . (#:left-margin 50 #:right-margin 25)) (vtable . (#:left-margin 50 #:right-margin 25)) (def-header . (#:pixels-below-lines 0 #:indent -100)) (def-body . (#:right-margin 50)) ;; left is handled by the *nest* (quotation . (#:left-margin 50 #:right-margin 50 #:scale 0.9)) (entry-header . (#:pixels-above-lines 6 #:pixels-below-lines 0)) (entry-body . (#:right-margin 50)) ;; left is handled by the *nest* (asis . ()) (bold . (#:weight 700)) (item . (#:left-margin 25 #:right-margin 25 #:pixels-below-lines 0)) (itemx . (#:left-margin 25 #:right-margin 25 #:pixels-below-lines 0)) (sample . (#:font "Monospace")) (samp . (#:font "Monospace")) (code . (#:font "Monospace")) (kbd . (#:font "Monospace" #:style oblique)) (key . (#:font "Monospace" #:variant small-caps)) (var . (#:font "Monospace" #:style italic)) (env . (#:font "Monospace")) (file . (#:font "Monospace")) (command . (#:font "Monospace")) (option . (#:font "Monospace")) (dfn . (#:style italic #:weight 700)) (cite . (#:style italic)) (acro . (#:scale 0.8333333333)) (url . (#:font "Monospace")) (email . (#:font "Monospace")) (emph . (#:style italic)) (strong . (#:weight 700)) (sc . (#:variant small-caps)) (small . (#:scale 0.5 #:pixels-below-lines 0)) ;; only used for weird newlines in examples )) (for-each ;; Make the tags now so the priorities are correct (lambda (pair) (let ((tag (apply make #:name (symbol->string (car pair)) (cdr pair)))) (add tag-table tag))) tag-prop-alist) (define (get-tag name) (lookup tag-table (symbol->string name))) (define (arg-ref name args) (assq-ref (cdr args) name)) (define (arg-req name args) (or (arg-ref name args) (error "Required argument missing" name args))) (define (arg-req* names args) (or (or-map (lambda (name) (arg-ref name args)) names) (error "Required argument missing" names args))) (define (identity tag . body) body) ;; We can't have after-paragraph space, because there are newlines in ;; examples. Hack around it by putting an extra newline at the end. (define (example tag . body) `(example ,@body #\newline (small #\newline))) (define (smallexample tag . body) `(smallexample ,@body #\newline (small #\newline))) (define-class () (node #:gparam `(, #:boxed-type , #:flags (read write))) (manual #:gparam `(, #:boxed-type , #:flags (read write)))) (define-method (initialize (obj ) initargs) (next-method) (set obj 'foreground "blue") (set obj 'underline 'single) (connect obj 'event (lambda (tag object event iter) (if (eq? (gdk-event:type event) 'button-press) (run-hook stexi-buffer-xref-activated-hook (slot-ref obj 'node) (slot-ref obj 'manual))) #f))) (define (ref tag args) (list (let ((tag (make #:node (car (arg-req 'node args)) #:manual (and=> (arg-ref 'manual args) car)))) (add tag-table tag) tag) (case tag ((xref) "See ") ((pxref) "see ") (else "")) (car (arg-req* '(node section) args)))) (define-class () (url #:gparam `(, #:flags (read write)))) (define-method (initialize (obj ) initargs) (next-method) (set obj 'foreground "blue") (set obj 'underline 'single) ;; Unfortunately, we can't make the cursor go to a hand when the mouse ;; is over a tag, because the tag has no window. The proper way to do ;; this is to put a GtkLabel in the text flow. The future! (connect obj 'event (lambda (tag object event iter) (if (eq? (gdk-event:type event) 'button-press) (begin (format #t "\nshowing ~A in new window\n" (slot-ref obj 'url)) (url-show (slot-ref obj 'url)))) #f))) (define (uref tag args) (list (let ((tag (make #:url (car (arg-req 'url args))))) (add tag-table tag) tag) (car (arg-req* '(title url) args)))) (define (node tag args) `(*mark* ,(string-append "node-" (car (arg-req 'name args))))) (define (nest . args) (list '*nest* args)) (define (def tag args . body) (define (wrap t) (lambda (x) (list t x))) (define (compose f . rest) (cond ((null? rest) f) (else (let ((g (apply compose rest))) (lambda (x) (f (g x))))))) (define (splice/space arg wrapper) (cond ((arg-ref arg args) => (lambda (val) `(,@(map wrapper val) " "))) (else '()))) `((def-header ,@(splice/space 'data-type (wrap 'code)) ,@(splice/space 'class (compose (wrap 'bold) (wrap 'code))) ,@(splice/space 'name (compose (wrap 'bold) (wrap 'code))) ,@(splice/space 'arguments (compose (if (memq tag '(deftypeop deftypefn deftypefun)) (compose (wrap 'var) (wrap 'code)) (wrap 'code)) stexi->text-tagged-tree)) #\newline) (*nest* ,(case tag ((defun) "Function") ((defspec) "Special Form") ((defvar) "Variable") (else (car (arg-req 'category args)))) #\newline (def-body ,@body)))) (define *table-formatter* (make-fluid)) (fluid-set! *table-formatter* 'asis) ;; just in case (define (table tag args . body) (with-fluids ((*table-formatter* (arg-req 'formatter args))) (nest body))) (define (entry tag args . body) `((entry-header (,(fluid-ref *table-formatter*) ,(stexi->text-tagged-tree (arg-req 'heading args)) #\newline)) (*nest* (entry-body ,@body)))) (define ignore-list '(page setfilename setchapternewpage iftex ifhtml ifplaintext ifxml sp vskip menu ignore syncodeindex comment c ifinfo cindex findex vindex tindex kindex pindex)) (define (default-handler tag . body) (cond ((assq tag tag-prop-alist) `(,tag ,@body ,(if (memq (cadr (assq tag texi-command-specs)) '(EOL-TEXT ENVIRON PARAGRAPH ITEM ENTRY)) #\newline #f))) ((memq tag ignore-list) #f) (else (warn "No handler for" tag) body))) ;; strategy: first do pre-post-order transformation from stexi to a tree ;; headed with tags indicating which tag should be applied to the text. ;; then display the document. (define rules `((% *preorder* . ,(lambda args args)) (texinfo . ,identity) (example . ,example) (lisp . ,example) (verbatim . ,example) (smallexample . ,smallexample) (smalllisp . ,smallexample) (xref . ,ref) (ref . ,ref) (pxref . ,ref) (uref . ,uref) (node . ,node) (anchor . ,node) (table . ,table) (entry . ,entry) (enumerate . ,nest) (itemize . ,nest) (copyright . ,(lambda args (string #\302 #\251))) (result . ,(lambda args (string #\342 #\207 #\222))) (deftp . ,def) (defcv . ,def) (defivar . ,def) (deftypeivar . ,def) (defop . ,def) (deftypeop . ,def) (defmethod . ,def) (deftypemethod . ,def) (defopt . ,def) (defvr . ,def) (defvar . ,def) (deftypevr . ,def) (deftypevar . ,def) (deffn . ,def) (deftypefn . ,def) (defmac . ,def) (defspec . ,def) (defun . ,def) (deftypefun . ,def) (tie . ,(lambda args " ")) (*text* . ,(lambda (tag x) x)) (*default* . ,default-handler))) (define (with-tag tag buffer proc . args) (let ((left (create-mark buffer #f (get-end-iter buffer) #t))) (apply proc args) (apply-tag buffer tag (get-iter-at-mark buffer left) (get-end-iter buffer)) (delete-mark buffer left))) (define *indent* (make-fluid)) (fluid-set! *indent* 0) (define (make-nesting-tag) ((lambda (x) (add tag-table x) x) (make #:left-margin (fluid-ref *indent*)))) (define (with-nesting buffer proc . args) (with-fluids ((*indent* (+ (fluid-ref *indent*) 35))) (apply with-tag (make-nesting-tag) buffer proc args))) ;; Note that errors in this file are caused by inconsistencies produced ;; in the transformation stage, not by problems in the stexi. (define (fill-buffer buffer tree) (define (handle-body l) (for-each (lambda (x) (fill-buffer buffer x)) l)) (cond ((string? tree) (insert buffer (get-end-iter buffer) tree)) ((char? tree) (insert buffer (get-end-iter buffer) (string tree))) ((or (not tree) (null? tree))) ;; nothing (else (cond ((not (pair? tree)) (error "invalid stexi tree" tree)) ((symbol? (car tree)) (case (car tree) ((*nest*) (with-nesting buffer handle-body (cdr tree))) ((*mark*) (create-mark buffer (cadr tree) (get-end-iter buffer) #t)) ((%) #f) ;; do nothing (else (with-tag (or (get-tag (car tree)) (error "yikes!" tree)) buffer handle-body (cdr tree))))) ((is-a? (car tree) ) (with-tag (car tree) buffer handle-body (cdr tree))) (else ;; maybe the tree transform made a nontagged list (handle-body tree)))))) (define (stexi->text-tagged-tree stexi) (pre-post-order stexi rules)) (define (stexi->gtk-text-buffer stexi) (let ((buffer (make #:tag-table tag-table))) (fill-buffer buffer (stexi->text-tagged-tree stexi)) buffer)) guile-gnome-platform-2.16.2/gtk/gnome/contrib/filtered-list.scm0000644000175000017500000001234711670374303025004 0ustar00wingowingo00000000000000;; guile-gnome ;; Copyright (C) 2003,2004 Andy Wingo ;; This program is free software; you can redistribute it and/or ;; modify it under the terms of the GNU General Public License as ;; published by the Free Software Foundation; either version 2 of ;; the License, or (at your option) any later version. ;; ;; This program is distributed in the hope that it will be useful, ;; but WITHOUT ANY WARRANTY; without even the implied warranty of ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the ;; GNU General Public License for more details. ;; ;; You should have received a copy of the GNU General Public License ;; along with this program; if not, contact: ;; ;; Free Software Foundation Voice: +1-617-542-5942 ;; 59 Temple Place - Suite 330 Fax: +1-617-542-2652 ;; Boston, MA 02111-1307, USA gnu@gnu.org ;;; Commentary: ;; ;;An abstract tree model supporting filtered lists. Uses a scheme ;;predicate to determine if a member of a list is a row or not. Needs to ;;be subclassed to implement get-n-columns, get-column-type, and ;;get-value. ;; ;;; Code: (define-module (gnome contrib filtered-list) #:use-module (oop goops) #:use-module (gnome gtk) #:use-module (scheme documentation) #:export () #:re-export (set-filter)) ;; has a set-filter ;; method too (define-class-with-docs () "An abstract tree model supporting filtered lists. Uses a scheme predicate to determine if a member of a list is a row or not. Needs to be subclassed to implement get-n-columns, get-column-type, and get-value." list filter filtered-len filtered-list) (define-method (initialize (obj ) initargs) (next-method) (slot-set! obj 'list '()) (slot-set! obj 'filter #f) (slot-set! obj 'filtered-len 0) (slot-set! obj 'filtered-list '())) (define-method (on-get-flags (obj )) #f) (define-method (on-get-iter (obj ) path) (if (and (eq? (length path) 1) (< (car path) (slot-ref obj 'filtered-len))) (list-ref (slot-ref obj 'filtered-list) (car path)) #f)) (define-method (on-get-path (obj ) iter) (list (list-index (slot-ref obj 'filtered-list) iter))) (define-method (on-iter-next (obj ) iter) (let loop ((l (slot-ref obj 'filtered-list))) (cond ((null? l) (error "Unknown iter" iter)) ((eq? (car l) iter) (if (null? (cdr l)) #f (cadr l))) (else (loop (cdr l)))))) (define-method (on-iter-children (obj ) parent) (if (not parent) ((lambda (l) (if (null? l) #f (car l))) (slot-ref obj 'filtered-list)) #f)) (define-method (on-iter-has-child (obj ) iter) #f) (define-method (on-iter-n-children (obj ) iter) (if iter #f (slot-ref obj 'filtered-len))) (define-method (on-iter-nth-child (obj ) parent n) (if ((lambda (len) (if len (< n len) #f)) (on-iter-n-children obj parent)) (list-ref (slot-ref obj 'filtered-list) n))) (define-method (on-iter-parent (obj ) iter) #f) ;; fixme: make me shorter by using higher-level operators (define-method (set-filter (obj ) filter) (let ((old-filtered (slot-ref obj 'filtered-list)) (new-filtered (if filter (let loop ((list (slot-ref obj 'list)) (filtered '())) (if (null? list) (reverse filtered) (loop (cdr list) (if (filter (car list)) (cons (car list) filtered) filtered)))) (slot-ref obj 'list)))) (slot-set! obj 'filter filter) (slot-set! obj 'filtered-len (length new-filtered)) (slot-set! obj 'filtered-list new-filtered) ;; Now to signal the changes (let loop ((l (slot-ref obj 'list)) (old old-filtered) (new new-filtered) (i 0)) (cond ((null? l) *unspecified*) ((and (not (null? old)) (eq? (car l) (car old))) ;; If the row was there before (if (and (not (null? new)) (eq? (car l) (car new))) ;; If it's still there, just keep going (loop (cdr l) (cdr old) (cdr new) (1+ i)) (begin ;; But if not, show it was deleted (row-deleted obj (list i)) (loop (cdr l) (cdr old) new i)))) ((and (not (null? new)) (eq? (car l) (car new))) ;; We already know that it wasn't there before (row-inserted obj (list i) (get-iter obj (list i))) (loop (cdr l) old (cdr new) (1+ i))) (else ;; It wasn't there before, and it's not there now (loop (cdr l) old new i)))))) guile-gnome-platform-2.16.2/gtk/gnome/contrib/delay-tree-model.scm0000644000175000017500000001167311670374303025367 0ustar00wingowingo00000000000000;; guile-gnome ;; Copyright (C) 2003,2004 Andy Wingo ;; This program is free software; you can redistribute it and/or ;; modify it under the terms of the GNU General Public License as ;; published by the Free Software Foundation; either version 2 of ;; the License, or (at your option) any later version. ;; ;; This program is distributed in the hope that it will be useful, ;; but WITHOUT ANY WARRANTY; without even the implied warranty of ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the ;; GNU General Public License for more details. ;; ;; You should have received a copy of the GNU General Public License ;; along with this program; if not, contact: ;; ;; Free Software Foundation Voice: +1-617-542-5942 ;; 59 Temple Place - Suite 330 Fax: +1-617-542-2652 ;; Boston, MA 02111-1307, USA gnu@gnu.org ;;; Commentary: ;; ;;A lazy tree model. The value of the rows, as well the rows' children, ;;are promises made by the @code{delay} operator. ;; ;;; Code: (define-module (gnome contrib delay-tree-model) #:use-module (oop goops) #:use-module (gnome gobject) #:use-module (gnome gtk) #:use-module (container nodal-tree) #:use-module (container delay-tree) #:use-module (scheme documentation) #:export ( append-root!)) (define-class-with-docs () "An interface that exports delay trees as GTK+ tree models. Suitable for use with @code{}." (top-nodes #:init-value '())) (define-method (on-get-n-columns (obj )) 2) ;; name and value (define-method (on-get-column-type (obj ) index) (case index ((0) ) ((1) ) (else (error "Invalid index:" index)))) (define-method (on-get-iter (obj ) path) (let loop ((node #f) (path path)) (if (null? path) node (let ((children (if node (force-ref node 'children) (slot-ref obj 'top-nodes)))) (cond ((null? children) ;; can be the case for path == (0) #f) ((>= (car path) (length children)) #f) ;; nonexistent path, but no error (else (loop (list-ref children (car path)) (cdr path)))))))) (define-method (on-get-path (obj ) iter) (let loop ((node iter) (path '())) (let ((parent (node-ref node 'parent))) (if (not parent) (cons (list-index (slot-ref obj 'top-nodes) node) path) (loop parent (cons (list-index (node-ref parent 'children) node) path)))))) (define-method (on-get-value (obj ) iter index) (case index ((0) (force-ref iter 'name)) ((1) (force-ref iter 'value)) (else (error "Invalid index" index)))) (define-method (on-iter-next (obj ) iter) (let* ((parent (node-ref iter 'parent)) (siblings (if parent (node-ref parent 'children) (slot-ref obj 'top-nodes))) (new-position (1+ (list-index siblings iter)))) (and (< new-position (length siblings)) (list-ref siblings new-position)))) (define-method (on-iter-children (obj ) parent) (let ((children (if parent (force-ref parent 'children) (slot-ref obj 'top-nodes)))) (and (pair? children) (car children)))) (define-method (on-iter-has-child (obj ) iter) ;; would be nice to avoid forcing the children if there are none. (not (null? (force-ref iter 'children)))) (define-method (on-iter-n-children (obj ) iter) (length (if iter (force-ref iter 'children) (slot-ref obj 'top-nodes)))) (define-method (on-iter-nth-child (obj ) parent n) (let ((children (if parent (force-ref parent 'children) (slot-ref obj 'top-nodes)))) (and (< n (length children)) (list-ref children n)))) (define-method (on-iter-parent (obj ) iter) (node-ref iter 'parent)) ;; To the on-* methods, the iter is just a scheme object. But outside ;; those methods it is a boxed type. So we need to call the Gtk+ ;; notification functions (row-inserted, row-has-child-toggled) with the ;; boxed types, not with SCM values. (define-method (append-root! (obj ) delay-tree) (define (emit-signals path) (row-inserted obj path (get-iter obj path))) (slot-set! obj 'top-nodes (append! (slot-ref obj 'top-nodes) (list delay-tree))) (let ((path (get-path obj (get-iter obj (on-get-path obj delay-tree))))) (emit-signals path) (get-iter obj path))) guile-gnome-platform-2.16.2/gtk/gnome/contrib/Makefile.am0000644000175000017500000000030111670374303023550 0ustar00wingowingo00000000000000include $(top_srcdir)/common.mk moduledir = $(guilemoduledir)/contrib module_DATA = texinfo-buffer.scm filtered-list.scm delay-tree-model.scm \ help-browser.scm EXTRA_DIST = $(module_DATA) guile-gnome-platform-2.16.2/gtk/gnome/contrib/Makefile.in0000644000175000017500000004130411752520674023576 0ustar00wingowingo00000000000000# Makefile.in generated by automake 1.11.5 from Makefile.am. # @configure_input@ # Copyright (C) 1994, 1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, # 2003, 2004, 2005, 2006, 2007, 2008, 2009, 2010, 2011 Free Software # Foundation, Inc. # This Makefile.in is free software; the Free Software Foundation # gives unlimited permission to copy and/or distribute it, # with or without modifications, as long as this notice is preserved. # This program is distributed in the hope that it will be useful, # but WITHOUT ANY WARRANTY, to the extent permitted by law; without # even the implied warranty of MERCHANTABILITY or FITNESS FOR A # PARTICULAR PURPOSE. @SET_MAKE@ # guile-gnome # Copyright (C) 2003,2004,2009,2012 Free Software Foundation, Inc. # This program is free software; you can redistribute it and/or # modify it under the terms of the GNU General Public License as # published by the Free Software Foundation; either version 2 of # the License, or (at your option) any later version. # This program is distributed in the hope that it will be useful, # but WITHOUT ANY WARRANTY; without even the implied warranty of # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the # GNU General Public License for more details. # You should have received a copy of the GNU General Public License # along with this program; if not, contact: # Free Software Foundation Voice: +1-617-542-5942 # 59 Temple Place - Suite 330 Fax: +1-617-542-2652 # Boston, MA 02111-1307, USA gnu@gnu.org # # Makefile snippet # VPATH = @srcdir@ am__make_dryrun = \ { \ am__dry=no; \ case $$MAKEFLAGS in \ *\\[\ \ ]*) \ echo 'am--echo: ; @echo "AM" OK' | $(MAKE) -f - 2>/dev/null \ | grep '^AM OK$$' >/dev/null || am__dry=yes;; \ *) \ for am__flg in $$MAKEFLAGS; do \ case $$am__flg in \ *=*|--*) ;; \ *n*) am__dry=yes; break;; \ esac; \ done;; \ esac; \ test $$am__dry = yes; \ } pkgdatadir = $(datadir)/@PACKAGE@ pkgincludedir = $(includedir)/@PACKAGE@ pkglibdir = $(libdir)/@PACKAGE@ pkglibexecdir = $(libexecdir)/@PACKAGE@ am__cd = CDPATH="$${ZSH_VERSION+.}$(PATH_SEPARATOR)" && cd install_sh_DATA = $(install_sh) -c -m 644 install_sh_PROGRAM = $(install_sh) -c install_sh_SCRIPT = $(install_sh) -c INSTALL_HEADER = $(INSTALL_DATA) transform = $(program_transform_name) NORMAL_INSTALL = : PRE_INSTALL = : POST_INSTALL = : NORMAL_UNINSTALL = : PRE_UNINSTALL = : POST_UNINSTALL = : build_triplet = @build@ host_triplet = @host@ DIST_COMMON = $(srcdir)/Makefile.am $(srcdir)/Makefile.in \ $(top_srcdir)/common.mk subdir = gtk/gnome/contrib ACLOCAL_M4 = $(top_srcdir)/aclocal.m4 am__aclocal_m4_deps = $(top_srcdir)/configure.ac am__configure_deps = $(am__aclocal_m4_deps) $(CONFIGURE_DEPENDENCIES) \ $(ACLOCAL_M4) mkinstalldirs = $(install_sh) -d CONFIG_HEADER = $(top_builddir)/config.h CONFIG_CLEAN_FILES = CONFIG_CLEAN_VPATH_FILES = SOURCES = DIST_SOURCES = am__can_run_installinfo = \ case $$AM_UPDATE_INFO_DIR in \ n|no|NO) false;; \ *) (install-info --version) >/dev/null 2>&1;; \ esac am__vpath_adj_setup = srcdirstrip=`echo "$(srcdir)" | sed 's|.|.|g'`; am__vpath_adj = case $$p in \ $(srcdir)/*) f=`echo "$$p" | sed "s|^$$srcdirstrip/||"`;; \ *) f=$$p;; \ esac; am__strip_dir = f=`echo $$p | sed -e 's|^.*/||'`; am__install_max = 40 am__nobase_strip_setup = \ srcdirstrip=`echo "$(srcdir)" | sed 's/[].[^$$\\*|]/\\\\&/g'` am__nobase_strip = \ for p in $$list; do echo "$$p"; done | sed -e "s|$$srcdirstrip/||" am__nobase_list = $(am__nobase_strip_setup); \ for p in $$list; do echo "$$p $$p"; done | \ sed "s| $$srcdirstrip/| |;"' / .*\//!s/ .*/ ./; s,\( .*\)/[^/]*$$,\1,' | \ $(AWK) 'BEGIN { files["."] = "" } { files[$$2] = files[$$2] " " $$1; \ if (++n[$$2] == $(am__install_max)) \ { print $$2, files[$$2]; n[$$2] = 0; files[$$2] = "" } } \ END { for (dir in files) print dir, files[dir] }' am__base_list = \ sed '$$!N;$$!N;$$!N;$$!N;$$!N;$$!N;$$!N;s/\n/ /g' | \ sed '$$!N;$$!N;$$!N;$$!N;s/\n/ /g' am__uninstall_files_from_dir = { \ test -z "$$files" \ || { test ! -d "$$dir" && test ! -f "$$dir" && test ! -r "$$dir"; } \ || { echo " ( cd '$$dir' && rm -f" $$files ")"; \ $(am__cd) "$$dir" && rm -f $$files; }; \ } am__installdirs = "$(DESTDIR)$(moduledir)" DATA = $(module_DATA) DISTFILES = $(DIST_COMMON) $(DIST_SOURCES) $(TEXINFOS) $(EXTRA_DIST) ACLOCAL = @ACLOCAL@ AG_PKG_CONFIG_PATH = @AG_PKG_CONFIG_PATH@ AMTAR = @AMTAR@ API_VERSION = @API_VERSION@ AR = @AR@ ATK_CFLAGS = @ATK_CFLAGS@ ATK_LIBS = @ATK_LIBS@ AUTOCONF = @AUTOCONF@ AUTOHEADER = @AUTOHEADER@ AUTOMAKE = @AUTOMAKE@ AWK = @AWK@ BONOBO_IDL_DIR = @BONOBO_IDL_DIR@ CANVAS_CFLAGS = @CANVAS_CFLAGS@ CANVAS_LIBS = @CANVAS_LIBS@ CC = @CC@ CCDEPMODE = @CCDEPMODE@ CFLAGS = @CFLAGS@ CORBA_CFLAGS = @CORBA_CFLAGS@ CORBA_LIBS = @CORBA_LIBS@ CPP = @CPP@ CPPFLAGS = @CPPFLAGS@ CYGPATH_W = @CYGPATH_W@ DEFS = @DEFS@ DEPDIR = @DEPDIR@ DLLTOOL = @DLLTOOL@ DSYMUTIL = @DSYMUTIL@ DUMPBIN = @DUMPBIN@ ECHO_C = @ECHO_C@ ECHO_N = @ECHO_N@ ECHO_T = @ECHO_T@ EGREP = @EGREP@ EXEEXT = @EXEEXT@ FGREP = @FGREP@ GCONF_CFLAGS = @GCONF_CFLAGS@ GCONF_LIBS = @GCONF_LIBS@ GDK_CFLAGS = @GDK_CFLAGS@ GDK_LIBS = @GDK_LIBS@ GDK_PIXBUF_CFLAGS = @GDK_PIXBUF_CFLAGS@ GDK_PIXBUF_LIBS = @GDK_PIXBUF_LIBS@ GLIB_CFLAGS = @GLIB_CFLAGS@ GLIB_LIBS = @GLIB_LIBS@ GNOMEUI_DEPRECATION_FLAGS = @GNOMEUI_DEPRECATION_FLAGS@ GNOME_VFS_CFLAGS = @GNOME_VFS_CFLAGS@ GNOME_VFS_DEPRECATED_CFLAGS = @GNOME_VFS_DEPRECATED_CFLAGS@ GNOME_VFS_LIBS = @GNOME_VFS_LIBS@ GOBJECT_CFLAGS = @GOBJECT_CFLAGS@ GOBJECT_LIBS = @GOBJECT_LIBS@ GREP = @GREP@ GTHREAD_CFLAGS = @GTHREAD_CFLAGS@ GTHREAD_LIBS = @GTHREAD_LIBS@ GTK_CFLAGS = @GTK_CFLAGS@ GTK_DEPRECATED_CFLAGS = @GTK_DEPRECATED_CFLAGS@ GTK_LIBS = @GTK_LIBS@ GUILE_CAIRO_CFLAGS = @GUILE_CAIRO_CFLAGS@ GUILE_CAIRO_LIBS = @GUILE_CAIRO_LIBS@ GUILE_CFLAGS = @GUILE_CFLAGS@ GUILE_EFFECTIVE_VERSION = @GUILE_EFFECTIVE_VERSION@ GUILE_GLIB_CFLAGS = @GUILE_GLIB_CFLAGS@ GUILE_GLIB_LIBS = @GUILE_GLIB_LIBS@ GUILE_LIBS = @GUILE_LIBS@ G_WRAP_CFLAGS = @G_WRAP_CFLAGS@ G_WRAP_LIBS = @G_WRAP_LIBS@ G_WRAP_LIB_DIR = @G_WRAP_LIB_DIR@ G_WRAP_MODULE_DIR = @G_WRAP_MODULE_DIR@ INSTALL = @INSTALL@ INSTALL_DATA = @INSTALL_DATA@ INSTALL_PROGRAM = @INSTALL_PROGRAM@ INSTALL_SCRIPT = @INSTALL_SCRIPT@ INSTALL_STRIP_PROGRAM = @INSTALL_STRIP_PROGRAM@ LD = @LD@ LDFLAGS = @LDFLAGS@ LIBGLADE_CFLAGS = @LIBGLADE_CFLAGS@ LIBGLADE_LIBS = @LIBGLADE_LIBS@ LIBGNOMEUI_CFLAGS = @LIBGNOMEUI_CFLAGS@ LIBGNOMEUI_LIBS = @LIBGNOMEUI_LIBS@ LIBGNOME_CFLAGS = @LIBGNOME_CFLAGS@ LIBGNOME_LIBS = @LIBGNOME_LIBS@ LIBOBJS = @LIBOBJS@ LIBS = @LIBS@ LIBTOOL = @LIBTOOL@ LIPO = @LIPO@ LN_S = @LN_S@ LTLIBOBJS = @LTLIBOBJS@ MAKEINFO = @MAKEINFO@ MANIFEST_TOOL = @MANIFEST_TOOL@ MKDIR_P = @MKDIR_P@ NM = @NM@ NMEDIT = @NMEDIT@ OBJDUMP = @OBJDUMP@ OBJEXT = @OBJEXT@ ORBIT_IDL = @ORBIT_IDL@ OTOOL = @OTOOL@ OTOOL64 = @OTOOL64@ PACKAGE = @PACKAGE@ PACKAGE_BUGREPORT = @PACKAGE_BUGREPORT@ PACKAGE_NAME = @PACKAGE_NAME@ PACKAGE_STRING = @PACKAGE_STRING@ PACKAGE_TARNAME = @PACKAGE_TARNAME@ PACKAGE_URL = @PACKAGE_URL@ PACKAGE_VERSION = @PACKAGE_VERSION@ PANGOCAIRO_CFLAGS = @PANGOCAIRO_CFLAGS@ PANGOCAIRO_LIBS = @PANGOCAIRO_LIBS@ PANGO_CFLAGS = @PANGO_CFLAGS@ PANGO_LIBS = @PANGO_LIBS@ PATH_SEPARATOR = @PATH_SEPARATOR@ PKG_CONFIG = @PKG_CONFIG@ PKG_CONFIG_LIBDIR = @PKG_CONFIG_LIBDIR@ PKG_CONFIG_PATH = @PKG_CONFIG_PATH@ RANLIB = @RANLIB@ SED = @SED@ SET_MAKE = @SET_MAKE@ SHELL = @SHELL@ STRIP = @STRIP@ VERSION = @VERSION@ WARN_CFLAGS = @WARN_CFLAGS@ abs_builddir = @abs_builddir@ abs_srcdir = @abs_srcdir@ abs_top_builddir = @abs_top_builddir@ abs_top_srcdir = @abs_top_srcdir@ ac_ct_AR = @ac_ct_AR@ ac_ct_CC = @ac_ct_CC@ ac_ct_DUMPBIN = @ac_ct_DUMPBIN@ am__include = @am__include@ am__leading_dot = @am__leading_dot@ am__quote = @am__quote@ am__tar = @am__tar@ am__untar = @am__untar@ bindir = @bindir@ build = @build@ build_alias = @build_alias@ build_cpu = @build_cpu@ build_os = @build_os@ build_vendor = @build_vendor@ builddir = @builddir@ datadir = @datadir@ datarootdir = @datarootdir@ docdir = @docdir@ dvidir = @dvidir@ exec_prefix = @exec_prefix@ host = @host@ host_alias = @host_alias@ host_cpu = @host_cpu@ host_os = @host_os@ host_vendor = @host_vendor@ htmldir = @htmldir@ includedir = @includedir@ infodir = @infodir@ install_sh = @install_sh@ libdir = @libdir@ libexecdir = @libexecdir@ localedir = @localedir@ localstatedir = @localstatedir@ mandir = @mandir@ mkdir_p = @mkdir_p@ oldincludedir = @oldincludedir@ pdfdir = @pdfdir@ prefix = @prefix@ program_transform_name = @program_transform_name@ psdir = @psdir@ sbindir = @sbindir@ sharedstatedir = @sharedstatedir@ srcdir = @srcdir@ sysconfdir = @sysconfdir@ target_alias = @target_alias@ top_build_prefix = @top_build_prefix@ top_builddir = @top_builddir@ top_srcdir = @top_srcdir@ guilegnomedir = $(datadir)/guile-gnome-@API_VERSION@ guilemoduledir = $(guilegnomedir)/gnome guilegwmoduledir = $(guilegnomedir)/gnome/gw guilegnomelibdir = $(libdir)/guile-gnome-@API_VERSION@ AM_CFLAGS = -I. -I$(srcdir) $(WARN_CFLAGS) $(DEBUG_CFLAGS) # For overriding from the command line (e.g. --debug) GUILE_FLAGS = SUFFIXES = .x .doc GUILE_SNARF_CFLAGS = $(DEFS) $(AM_CFLAGS) $(GUILE_CFLAGS) $(G_WRAP_CFLAGS) PACKAGES = atk cairo corba defs gconf glib gnome-vfs gtk libglade libgnome libgnomecanvas libgnomeui pango SOURCE_GUILE_PATH = $(shell echo $(addprefix $(top_srcdir)/,$(PACKAGES)) | sed -e 's/ /:/g'):$(srcdir) BUILD_GUILE_PATH = $(if $(filter-out $(top_srcdir),$(top_builddir)),$(shell echo -n $(addprefix $(top_builddir)/,$(PACKAGES)): | sed -e 's/ /:/g'),) GUILE_LOAD_PATH := $(BUILD_GUILE_PATH)$(SOURCE_GUILE_PATH):${G_WRAP_MODULE_DIR}:${GUILE_LOAD_PATH} # Real gnu make foo packages = $(filter-out %-uninstalled,$(patsubst %.pc.in,%,$(notdir $(wildcard $(srcdir)/*.pc.in)))) pcifiles = $(patsubst %,%-@API_VERSION@.pc,$(packages)) pcufiles = $(patsubst %,%-@API_VERSION@-uninstalled.pc,$(packages)) moduledir = $(guilemoduledir)/contrib module_DATA = texinfo-buffer.scm filtered-list.scm delay-tree-model.scm \ help-browser.scm EXTRA_DIST = $(module_DATA) all: all-am .SUFFIXES: .SUFFIXES: .x .doc .c $(srcdir)/Makefile.in: $(srcdir)/Makefile.am $(top_srcdir)/common.mk $(am__configure_deps) @for dep in $?; do \ case '$(am__configure_deps)' in \ *$$dep*) \ ( cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh ) \ && { if test -f $@; then exit 0; else break; fi; }; \ exit 1;; \ esac; \ done; \ echo ' cd $(top_srcdir) && $(AUTOMAKE) --gnu gtk/gnome/contrib/Makefile'; \ $(am__cd) $(top_srcdir) && \ $(AUTOMAKE) --gnu gtk/gnome/contrib/Makefile .PRECIOUS: Makefile Makefile: $(srcdir)/Makefile.in $(top_builddir)/config.status @case '$?' in \ *config.status*) \ cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh;; \ *) \ echo ' cd $(top_builddir) && $(SHELL) ./config.status $(subdir)/$@ $(am__depfiles_maybe)'; \ cd $(top_builddir) && $(SHELL) ./config.status $(subdir)/$@ $(am__depfiles_maybe);; \ esac; $(top_srcdir)/common.mk: $(top_builddir)/config.status: $(top_srcdir)/configure $(CONFIG_STATUS_DEPENDENCIES) cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh $(top_srcdir)/configure: $(am__configure_deps) cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh $(ACLOCAL_M4): $(am__aclocal_m4_deps) cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh $(am__aclocal_m4_deps): mostlyclean-libtool: -rm -f *.lo clean-libtool: -rm -rf .libs _libs install-moduleDATA: $(module_DATA) @$(NORMAL_INSTALL) @list='$(module_DATA)'; test -n "$(moduledir)" || list=; \ if test -n "$$list"; then \ echo " $(MKDIR_P) '$(DESTDIR)$(moduledir)'"; \ $(MKDIR_P) "$(DESTDIR)$(moduledir)" || exit 1; \ fi; \ for p in $$list; do \ if test -f "$$p"; then d=; else d="$(srcdir)/"; fi; \ echo "$$d$$p"; \ done | $(am__base_list) | \ while read files; do \ echo " $(INSTALL_DATA) $$files '$(DESTDIR)$(moduledir)'"; \ $(INSTALL_DATA) $$files "$(DESTDIR)$(moduledir)" || exit $$?; \ done uninstall-moduleDATA: @$(NORMAL_UNINSTALL) @list='$(module_DATA)'; test -n "$(moduledir)" || list=; \ files=`for p in $$list; do echo $$p; done | sed -e 's|^.*/||'`; \ dir='$(DESTDIR)$(moduledir)'; $(am__uninstall_files_from_dir) tags: TAGS TAGS: ctags: CTAGS CTAGS: distdir: $(DISTFILES) @srcdirstrip=`echo "$(srcdir)" | sed 's/[].[^$$\\*]/\\\\&/g'`; \ topsrcdirstrip=`echo "$(top_srcdir)" | sed 's/[].[^$$\\*]/\\\\&/g'`; \ list='$(DISTFILES)'; \ dist_files=`for file in $$list; do echo $$file; done | \ sed -e "s|^$$srcdirstrip/||;t" \ -e "s|^$$topsrcdirstrip/|$(top_builddir)/|;t"`; \ case $$dist_files in \ */*) $(MKDIR_P) `echo "$$dist_files" | \ sed '/\//!d;s|^|$(distdir)/|;s,/[^/]*$$,,' | \ sort -u` ;; \ esac; \ for file in $$dist_files; do \ if test -f $$file || test -d $$file; then d=.; else d=$(srcdir); fi; \ if test -d $$d/$$file; then \ dir=`echo "/$$file" | sed -e 's,/[^/]*$$,,'`; \ if test -d "$(distdir)/$$file"; then \ find "$(distdir)/$$file" -type d ! -perm -700 -exec chmod u+rwx {} \;; \ fi; \ if test -d $(srcdir)/$$file && test $$d != $(srcdir); then \ cp -fpR $(srcdir)/$$file "$(distdir)$$dir" || exit 1; \ find "$(distdir)/$$file" -type d ! -perm -700 -exec chmod u+rwx {} \;; \ fi; \ cp -fpR $$d/$$file "$(distdir)$$dir" || exit 1; \ else \ test -f "$(distdir)/$$file" \ || cp -p $$d/$$file "$(distdir)/$$file" \ || exit 1; \ fi; \ done check-am: all-am check: check-am all-am: Makefile $(DATA) installdirs: for dir in "$(DESTDIR)$(moduledir)"; do \ test -z "$$dir" || $(MKDIR_P) "$$dir"; \ done install: install-am install-exec: install-exec-am install-data: install-data-am uninstall: uninstall-am install-am: all-am @$(MAKE) $(AM_MAKEFLAGS) install-exec-am install-data-am installcheck: installcheck-am install-strip: if test -z '$(STRIP)'; then \ $(MAKE) $(AM_MAKEFLAGS) INSTALL_PROGRAM="$(INSTALL_STRIP_PROGRAM)" \ install_sh_PROGRAM="$(INSTALL_STRIP_PROGRAM)" INSTALL_STRIP_FLAG=-s \ install; \ else \ $(MAKE) $(AM_MAKEFLAGS) INSTALL_PROGRAM="$(INSTALL_STRIP_PROGRAM)" \ install_sh_PROGRAM="$(INSTALL_STRIP_PROGRAM)" INSTALL_STRIP_FLAG=-s \ "INSTALL_PROGRAM_ENV=STRIPPROG='$(STRIP)'" install; \ fi mostlyclean-generic: clean-generic: distclean-generic: -test -z "$(CONFIG_CLEAN_FILES)" || rm -f $(CONFIG_CLEAN_FILES) -test . = "$(srcdir)" || test -z "$(CONFIG_CLEAN_VPATH_FILES)" || rm -f $(CONFIG_CLEAN_VPATH_FILES) maintainer-clean-generic: @echo "This command is intended for maintainers to use" @echo "it deletes files that may require special tools to rebuild." clean: clean-am clean-am: clean-generic clean-libtool mostlyclean-am distclean: distclean-am -rm -f Makefile distclean-am: clean-am distclean-generic dvi: dvi-am dvi-am: html: html-am html-am: info: info-am info-am: install-data-am: install-moduleDATA install-dvi: install-dvi-am install-dvi-am: install-exec-am: install-html: install-html-am install-html-am: install-info: install-info-am install-info-am: install-man: install-pdf: install-pdf-am install-pdf-am: install-ps: install-ps-am install-ps-am: installcheck-am: maintainer-clean: maintainer-clean-am -rm -f Makefile maintainer-clean-am: distclean-am maintainer-clean-generic mostlyclean: mostlyclean-am mostlyclean-am: mostlyclean-generic mostlyclean-libtool pdf: pdf-am pdf-am: ps: ps-am ps-am: uninstall-am: uninstall-moduleDATA .MAKE: install-am install-strip .PHONY: all all-am check check-am clean clean-generic clean-libtool \ distclean distclean-generic distclean-libtool distdir dvi \ dvi-am html html-am info info-am install install-am \ install-data install-data-am install-dvi install-dvi-am \ install-exec install-exec-am install-html install-html-am \ install-info install-info-am install-man install-moduleDATA \ install-pdf install-pdf-am install-ps install-ps-am \ install-strip installcheck installcheck-am installdirs \ maintainer-clean maintainer-clean-generic mostlyclean \ mostlyclean-generic mostlyclean-libtool pdf pdf-am ps ps-am \ uninstall uninstall-am uninstall-moduleDATA export GUILE_LOAD_PATH .c.x: guile-snarf $(GUILE_SNARF_CFLAGS) $< > $@ \ || { rm $@; false; } .c.doc: $(CPP) -DSCM_MAGIC_SNARF_DOCS $(GUILE_SNARF_CFLAGS) $< \ | grep -E '(\^\^ {|\^\^ })' > $@ || { rm $@; false; } %.scm guile-gnome-gw-%.c: %-spec.scm guile $(GUILE_FLAGS) -c \ "(debug-set! stack 400000) \ (use-modules (gnome-@API_VERSION@)) \ (use-modules (g-wrap)) \ (use-modules (gnome gw $*-spec)) \ (generate-wrapset 'guile 'gnome-$* \"guile-gnome-gw-$*\")" mv guile-gnome-gw-$*.scm $*.scm %-@API_VERSION@.pc: %.pc cp $< $@ %-@API_VERSION@-uninstalled.pc: %-uninstalled.pc cp $< $@ # Tell versions [3.59,3.63) of GNU make to not export all variables. # Otherwise a system limit (for SysV at least) may be exceeded. .NOEXPORT: guile-gnome-platform-2.16.2/gtk/gnome/contrib/help-browser.scm0000644000175000017500000003140111670374303024636 0ustar00wingowingo00000000000000;; guile-gnome ;; Copyright (C) 2003,2004 Andy Wingo ;; This program is free software; you can redistribute it and/or ;; modify it under the terms of the GNU General Public License as ;; published by the Free Software Foundation; either version 2 of ;; the License, or (at your option) any later version. ;; ;; This program is distributed in the hope that it will be useful, ;; but WITHOUT ANY WARRANTY; without even the implied warranty of ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the ;; GNU General Public License for more details. ;; ;; You should have received a copy of the GNU General Public License ;; along with this program; if not, contact: ;; ;; Free Software Foundation Voice: +1-617-542-5942 ;; 59 Temple Place - Suite 330 Fax: +1-617-542-2652 ;; Boston, MA 02111-1307, USA gnu@gnu.org ;;; Commentary: ;; ;;A help browser for guile-gnome applications. Designed to be used with ;;stexinfo documents. ;; ;;There can only be one help browser in an application. ;; ;;Example use: ;; ;;@example ;; (use-modules (gnome gtk) (gnome contrib help-browser)) ;; ;; ;; optional ;; (set-default-help-document! @var{my-stexi-doc}) ;; optional ;; ;; ;; @var{document} can be a nodal tree or an stexi document ;; (add-help-root! @var{document}) ;; ;; ;; shows default page ;; (show-help) ;; ;; ;; shows the node named @var{node} ;; (show-help @var{node}) ;; ;; ;; shows the node named @var{node} in manual (root) @var{root} ;; (show-help @var{node} @var{root}) ;;@end example ;; ;;; Code: (define-module (gnome contrib help-browser) #:use-module (ice-9 optargs) #:use-module (oop goops) #:use-module (gnome gobject) #:use-module (gnome glib) #:use-module (gnome gtk) #:use-module (srfi srfi-13) #:use-module (texinfo) #:use-module (texinfo indexing) #:use-module (sxml simple) #:use-module (container nodal-tree) #:use-module (container delay-tree) #:use-module (gnome contrib texinfo-buffer) #:use-module (gnome contrib delay-tree-model) #:use-module (gnome contrib filtered-list) #:export (set-default-help-document! add-help-root! show-help populate-help-hook the-help-window)) (warn "(gnome contrib help-browser) is still in development. ") (warn "It might eat your baby! In any case, don't rely on it yet.") (pk "mmm, babies taste good") ;; Add a `buffer' column to a normal delay-tree-model (define-class ()) (define-method (on-get-n-columns (obj )) 3) ;; name, value, buffer (define-method (on-get-column-type (obj ) index) (case index ((2) ) (else (next-method)))) (define-method (on-get-value (obj ) iter index) (case index ((2) (or (node-ref iter 'buffer) (let ((buf (stexi->gtk-text-buffer (force-ref iter 'value)))) (node-set! iter 'buffer buf) buf))) (else (next-method)))) (define default-document '(texinfo (% (title "guile-gnome help browser")) (node (% (name "top"))) (chapter "Help") (para "Welcome to guile-gnome's help system.") (para "The available sections can be browsed on the left.") (para "If you are looking for something specific, try the index.") (para "(This message can be customized. See the documentation for details.)"))) (define default-buffer #f) ;; exported (define (set-default-help-document! document) "Doc me" (or (eq? (car document) 'texinfo) (error "The default help document must be stexinfo.")) (set! default-buffer #f) (set! default-document document)) (define the-help-tree (make )) (define (add-help-root! document) (append-root! the-help-tree document)) ;; the index (define-class ()) (define-method (on-get-n-columns (obj )) 3) ;; name, node name, tree-iter (define-method (on-get-column-type (obj ) index) (case index ((0 1) ) ((2) (gtype-name->class "GtkTreeIter")) (else (error "Invalid index" index)))) (define-method (on-get-value (obj ) iter index) (case index ((0 1 2) (list-ref iter index)) (else (error "Invalid index" index)))) (define-method (set-filter (obj ) filter) (define (make-index) (let loop ((index '()) (iter (iter-nth-child the-help-tree #f 0))) (if (not iter) (sort! index (lambda rows (apply string-ci<=? (map car rows)))) (let ((this-index (map (lambda (x) (list (car x) (cdr x) iter)) (stexi-extract-index (get-value the-help-tree iter 1) #f 'all))) (kids-index (let ((iter (iter-nth-child the-help-tree iter 0))) (if iter (loop '() iter) '())))) (loop (append this-index kids-index index) (iter-next the-help-tree iter)))))) (if (null? (slot-ref obj 'list)) ;; Don't actually do the indexing until the first filter is set, ;; that is, until the user has typed something in the search box (slot-set! obj 'list (make-index))) (next-method)) (define the-help-window #f) ;; the parts of the help window that we want to remember (define *topics-treeview* #f) (define *textbuffer* #f) (define *textview* #f) (define *current-node* #f) (define (get-help-buffer iter) (cond (iter (get-value the-help-tree iter 2)) (default-buffer default-buffer) (else (set! default-buffer (stexi->gtk-text-buffer default-document)) default-buffer))) (define (get-help-mark iter node-name) (get-mark (get-help-buffer iter) (string-append "node-" node-name))) (define (make-help-window) (define (add-topics-page w notebook) (let* ((treemodel the-help-tree) (treeview (make #:model treemodel #:headers-visible #f)) (scroll (make #:hscrollbar-policy 'automatic #:vscrollbar-policy 'automatic #:shadow-type 'in)) (cellrenderer (make )) (column (make )) (selection (get-selection treeview))) (set! *topics-treeview* treeview) (append-page notebook scroll (make #:label "Topics")) (add scroll treeview) (set-mode selection 'single) (pack-start column cellrenderer #t) (add-attribute column cellrenderer "text" 0) (append-column treeview column) (connect selection 'changed (lambda (selection) (call-with-values (lambda () (get-selected selection)) (lambda (model iter) (set! *current-node* iter) (set-buffer *textview* (get-help-buffer iter)) (set the-help-window 'title (if iter (get-value the-help-tree iter 0) (sxml->string (assq-ref (cdadr default-document) 'title)))))))) (emit selection 'changed))) (define (add-index-page w notebook) ;; The "Index" page (let* ((vbox (make )) (entry (make )) (list (make )) (treemodel (make )) (scroll (make #:hscrollbar-policy 'automatic #:vscrollbar-policy 'automatic #:shadow-type 'in)) (treeview (make #:model treemodel #:headers-visible #f)) (cellrenderer (make )) (column (make )) (selection (get-selection treeview))) (append-page notebook vbox (make #:label "Index")) (pack-start vbox entry #f #f 0) (pack-start vbox scroll #t #t 0) (add scroll treeview) (set-mode selection 'single) (pack-start column cellrenderer #t) (add-attribute column cellrenderer "text" 0) (append-column treeview column) (set-text entry "(indexing takes some time)") (select-region entry 0 -1) (connect entry 'changed (lambda (entry) (let ((text (get-text entry))) (set-filter treemodel (if (equal? text "") #f (lambda (row) (string-contains-ci (car row) text))))))) (connect selection 'changed (lambda (selection) (call-with-values (lambda () (get-selected selection)) (lambda (model iter) (if iter (select-node (get-value model iter 2) (get-value model iter 1))))))))) (let* ((w (make #:default-height 400 #:default-width 700)) (textbuffer (make )) (textview (make #:editable #f #:cursor-visible #f #:wrap-mode 'word #:pixels-above-lines 2 #:pixels-below-lines 6 #:pixels-inside-wrap 1 ;; #:justification 'fill <- not supported yet #:right-margin 10 #:left-margin 10)) (pane (make #:position 200)) (notebook (make #:show-border #f)) (text-scroll (make #:hscrollbar-policy 'automatic #:vscrollbar-policy 'automatic #:shadow-type 'in))) (add w pane) (pack1 pane notebook #f #t) (pack2 pane text-scroll #t #t) (add text-scroll textview) (set! the-help-window w) (set! *textbuffer* textbuffer) (set! *textview* textview) (connect w 'delete-event (lambda (w e) (hide w) #t)) (add-topics-page w notebook) (add-index-page w notebook) (show-all w) (hide w))) ;; If manual-name is #f, look in the currently selected manual. ;; If node-name is #f, select the top of the manual. (define (find-node node-name manual-name) (define (find-node-named top name) (or-map (lambda (node) (if (get-help-mark node name) node (find-node-named node name))) (iter-children the-help-tree top))) (let ((manual (if manual-name (let loop ((manual (get-iter-first the-help-tree))) (cond ((not manual) (error "Unknown manual:" manual-name)) ((string=? (get-value the-help-tree manual 0) manual-name) manual) (else (loop (iter-next the-help-tree manual))))) (if (not *current-node*) (error "The TOP node must specify a manual in its cross-references.") (let find-top ((node *current-node*)) (let ((parent (iter-parent the-help-tree node))) (if (not parent) node (find-top parent)))))))) (if (and node-name (not (string=? node-name "top"))) (or (find-node-named manual node-name) (error "No such node in manual:" manual-name node-name)) manual))) (define (select-node iter node-name) (let* ((treeview *topics-treeview*) (path (get-path the-help-tree iter))) (expand-to-path treeview path) (select-path (get-selection treeview) path) (scroll-to-cell treeview path #f #f 0 0)) ;; now the buffer should be correct... ;; scroll in an idle loop to give the textview time to compute line heights (g-idle-add (lambda () (scroll-to-mark *textview* (if node-name (get-help-mark iter node-name) (create-mark (get-help-buffer iter) #f (get-start-iter (get-help-buffer iter)) #t)) 0.15 #f 0 0) #f))) (define populate-help-hook (make-hook 0)) (define (ensure-help-window) (if (not the-help-window) (begin (run-hook populate-help-hook) (make-help-window))) the-help-window) (define* (show-help #:optional (node-name #f) (manual-name #f)) "Show the help window. If @var{manual-name} is @code{#f}, look in the currently selected manual. If @var{node-name} is @code{#f}, select the top of the manual." (let ((window (ensure-help-window))) (show window) (if (or node-name manual-name) (select-node (find-node node-name manual-name) node-name)) (present window))) (add-hook! stexi-buffer-xref-activated-hook show-help) guile-gnome-platform-2.16.2/gtk/gnome/gw/0000755000175000017500000000000011752546501020501 5ustar00wingowingo00000000000000guile-gnome-platform-2.16.2/gtk/gnome/gw/guile-gtk-tree-model.c0000644000175000017500000005431311670374303024574 0ustar00wingowingo00000000000000/* guile-gnome * Copyright (C) 2003, 2010 Andy Wingo * * guile-gtk-tree-model.c: A tree model for guile-gtk * * This program is free software; you can redistribute it and/or * modify it under the terms of the GNU General Public License as * published by the Free Software Foundation; either version 2 of * the License, or (at your option) any later version. * * This program is distributed in the hope that it will be useful, * but WITHOUT ANY WARRANTY; without even the implied warranty of * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the * GNU General Public License for more details. * * You should have received a copy of the GNU General Public License * along with this program; if not, contact: * * Free Software Foundation Voice: +1-617-542-5942 * 59 Temple Place - Suite 330 Fax: +1-617-542-2652 * Boston, MA 02111-1307, USA gnu@gnu.org * * Based on work Copyright (C) 2003 James Henstridge */ #include #include #include #include "guile-gnome-gobject.h" #include #include "guile-gtk-tree-model.h" #include "gtk-support.h" #define PROC_FROM_INSTANCE(instance, member) (((GuileGtkGenericTreeModel*)instance)->member) #define GET_ITER_VAL(iter) (GPOINTER_TO_SCM (iter->user_data)) #define GET_ITER_VAL_OR_FALSE(iter) (iter ? GET_ITER_VAL (iter) : SCM_BOOL_F) #define SET_ITER_VAL(iter, val) \ G_STMT_START{ \ if (iter->stamp == ((GuileGtkGenericTreeModel*)tree_model)->stamp && iter->user_data)\ scm_gc_unprotect_object (GET_ITER_VAL (iter)); \ iter->stamp = ((GuileGtkGenericTreeModel*)tree_model)->stamp; \ iter->user_data = SCM_TO_GPOINTER (scm_gc_protect_object (val)); \ }G_STMT_END #define SET_ITER_NULL(iter) \ G_STMT_START{ \ if (iter->stamp == ((GuileGtkGenericTreeModel*)tree_model)->stamp && iter->user_data)\ scm_gc_unprotect_object (GET_ITER_VAL (iter)); \ iter->stamp = ((GuileGtkGenericTreeModel*)tree_model)->stamp; \ iter->user_data = NULL; \ }G_STMT_END #define RETURN_IF_INVALID_ITER(iter) \ G_STMT_START{ \ g_return_if_fail (iter != NULL); \ g_return_if_fail (iter->stamp == ((GuileGtkGenericTreeModel*)tree_model)->stamp);\ g_return_if_fail (iter->user_data != NULL); \ }G_STMT_END #define RETURN_VAL_IF_INVALID_ITER(iter, val) \ G_STMT_START{ \ g_return_val_if_fail (iter != NULL, val); \ g_return_val_if_fail (iter->stamp == ((GuileGtkGenericTreeModel*)tree_model)->stamp, val);\ g_return_val_if_fail (iter->user_data != NULL, val); \ }G_STMT_END static void guile_gtk_generic_tree_model_init (GuileGtkGenericTreeModel *self); static void guile_gtk_generic_tree_model_iface_init (GtkTreeModelIface *iface); GType guile_gtk_generic_tree_model_get_type(void) { static GType object_type = 0; if (!object_type) { static const GTypeInfo object_info = { sizeof(GuileGtkGenericTreeModelClass), (GBaseInitFunc) NULL, (GBaseFinalizeFunc) NULL, (GClassInitFunc) NULL, NULL, /* class_finalize */ NULL, /* class_data */ sizeof(GuileGtkGenericTreeModel), 0, /* n_preallocs */ (GInstanceInitFunc) guile_gtk_generic_tree_model_init, }; static const GInterfaceInfo tree_model_info = { (GInterfaceInitFunc) guile_gtk_generic_tree_model_iface_init, NULL, NULL, }; object_type = g_type_register_static(G_TYPE_OBJECT, "GuileGtkGenericTreeModel", &object_info, 0); g_type_add_interface_static(object_type, GTK_TYPE_TREE_MODEL, &tree_model_info); } return object_type; } static void guile_gtk_generic_tree_model_init (GuileGtkGenericTreeModel *tree_model) { SCM current_module; tree_model->stamp = g_random_int (); current_module = scm_set_current_module (scm_c_resolve_module ("gnome gtk")); /* these must not error, or the current module will stay as (gnome gtk) */ /* we know they aren't going to go away, so no permanent objects */ tree_model->on_get_flags = SCM_VARIABLE_REF (scm_c_lookup ("on-get-flags")); tree_model->on_get_n_columns = SCM_VARIABLE_REF (scm_c_lookup ("on-get-n-columns")); tree_model->on_get_column_type = SCM_VARIABLE_REF (scm_c_lookup ("on-get-column-type")); tree_model->on_get_iter = SCM_VARIABLE_REF (scm_c_lookup ("on-get-iter")); tree_model->on_get_path = SCM_VARIABLE_REF (scm_c_lookup ("on-get-path")); tree_model->on_get_value = SCM_VARIABLE_REF (scm_c_lookup ("on-get-value")); tree_model->on_iter_next = SCM_VARIABLE_REF (scm_c_lookup ("on-iter-next")); tree_model->on_iter_children = SCM_VARIABLE_REF (scm_c_lookup ("on-iter-children")); tree_model->on_iter_has_child = SCM_VARIABLE_REF (scm_c_lookup ("on-iter-has-child")); tree_model->on_iter_n_children = SCM_VARIABLE_REF (scm_c_lookup ("on-iter-n-children")); tree_model->on_iter_nth_child = SCM_VARIABLE_REF (scm_c_lookup ("on-iter-nth-child")); tree_model->on_iter_parent = SCM_VARIABLE_REF (scm_c_lookup ("on-iter-parent")); scm_set_current_module (current_module); } static guint guile_gtk_generic_tree_model_get_flags (GtkTreeModel *tree_model); static gint guile_gtk_generic_tree_model_get_n_columns (GtkTreeModel *tree_model); static GType guile_gtk_generic_tree_model_get_column_type (GtkTreeModel *tree_model, gint index); static gboolean guile_gtk_generic_tree_model_get_iter (GtkTreeModel *tree_model, GtkTreeIter *iter, GtkTreePath *path); static GtkTreePath *guile_gtk_generic_tree_model_get_path (GtkTreeModel *tree_model, GtkTreeIter *iter); static void guile_gtk_generic_tree_model_get_value (GtkTreeModel *tree_model, GtkTreeIter *iter, gint column, GValue *value); static gboolean guile_gtk_generic_tree_model_iter_next (GtkTreeModel *tree_model, GtkTreeIter *iter); static gboolean guile_gtk_generic_tree_model_iter_children (GtkTreeModel *tree_model, GtkTreeIter *iter, GtkTreeIter *parent); static gboolean guile_gtk_generic_tree_model_iter_has_child (GtkTreeModel *tree_model, GtkTreeIter *iter); static gint guile_gtk_generic_tree_model_iter_n_children (GtkTreeModel *tree_model, GtkTreeIter *iter); static gboolean guile_gtk_generic_tree_model_iter_nth_child (GtkTreeModel *tree_model, GtkTreeIter *iter, GtkTreeIter *parent, gint n); static gboolean guile_gtk_generic_tree_model_iter_parent (GtkTreeModel *tree_model, GtkTreeIter *iter, GtkTreeIter *child); static void guile_gtk_generic_tree_model_iface_init(GtkTreeModelIface *iface) { iface->get_flags = guile_gtk_generic_tree_model_get_flags; iface->get_n_columns = guile_gtk_generic_tree_model_get_n_columns; iface->get_column_type = guile_gtk_generic_tree_model_get_column_type; iface->get_iter = guile_gtk_generic_tree_model_get_iter; iface->get_path = guile_gtk_generic_tree_model_get_path; iface->get_value = guile_gtk_generic_tree_model_get_value; iface->iter_next = guile_gtk_generic_tree_model_iter_next; iface->iter_children = guile_gtk_generic_tree_model_iter_children; iface->iter_has_child = guile_gtk_generic_tree_model_iter_has_child; iface->iter_n_children = guile_gtk_generic_tree_model_iter_n_children; iface->iter_nth_child = guile_gtk_generic_tree_model_iter_nth_child; iface->iter_parent = guile_gtk_generic_tree_model_iter_parent; } /* format of GtkTreeIter's for GuileGtkGenericTreeModel: * user_data == SCM value */ struct with_guile_args { GtkTreeModel *tree_model; gint i; GType t; guint u; GtkTreeIter *iter; GtkTreeIter *iter2; GtkTreePath *path; gboolean b; GValue *v; }; static void* _with_guile_gtk_generic_tree_model_get_flags (void *p) #define FUNC_NAME "guile-gtk-generic-tree-model-get-flags" { struct with_guile_args *a = p; GtkTreeModel *tree_model = a->tree_model; SCM scm_obj, scm_ret; GValue *flags_val = NULL; a->u = 0; g_return_val_if_fail (GUILE_GTK_IS_GENERIC_TREE_MODEL (tree_model), NULL); scm_obj = scm_c_gtype_instance_to_scm ((GTypeInstance*) (tree_model)); scm_ret = scm_call_1 (PROC_FROM_INSTANCE (tree_model, on_get_flags), scm_obj); if (SCM_NFALSEP (scm_ret)) { SCM_VALIDATE_GVALUE_TYPE_COPY (0, scm_ret, GTK_TYPE_TREE_MODEL_FLAGS, flags_val); a->u = g_value_get_flags (flags_val); } return NULL; } static guint guile_gtk_generic_tree_model_get_flags (GtkTreeModel *tree_model) { struct with_guile_args args; memset (&args, 0, sizeof(args)); args.tree_model = tree_model; scm_with_guile (_with_guile_gtk_generic_tree_model_get_flags, &args); return args.u; } #undef FUNC_NAME static void* _with_guile_gtk_generic_tree_model_get_n_columns (void *p) #define FUNC_NAME "guile-gtk-generic-tree-model-get-n-columns" { struct with_guile_args *a = p; GtkTreeModel *tree_model = a->tree_model; SCM scm_obj, scm_ret; a->i = 0; g_return_val_if_fail (GUILE_GTK_IS_GENERIC_TREE_MODEL (tree_model), NULL); scm_obj = scm_c_gtype_instance_to_scm ((GTypeInstance*)tree_model); scm_ret = scm_call_1 (PROC_FROM_INSTANCE (tree_model, on_get_n_columns), scm_obj); a->i = scm_to_int (scm_ret); return NULL; } static gint guile_gtk_generic_tree_model_get_n_columns (GtkTreeModel *tree_model) { struct with_guile_args args; memset (&args, 0, sizeof(args)); args.tree_model = tree_model; scm_with_guile (_with_guile_gtk_generic_tree_model_get_n_columns, &args); return args.i; } #undef FUNC_NAME static void* _with_guile_gtk_generic_tree_model_get_column_type (void *p) #define FUNC_NAME "guile-gtk-generic-tree-model-get-column-type" { struct with_guile_args *a = p; GtkTreeModel *tree_model = a->tree_model; SCM scm_obj, scm_ret; GType gtype; a->t = 0; g_return_val_if_fail (GUILE_GTK_IS_GENERIC_TREE_MODEL (tree_model), NULL); scm_obj = scm_c_gtype_instance_to_scm ((GTypeInstance*)tree_model); scm_ret = scm_call_2 (PROC_FROM_INSTANCE (tree_model, on_get_column_type), scm_obj, scm_from_int (a->i)); SCM_VALIDATE_GTYPE_CLASS_COPY (0, scm_ret, gtype); a->t = gtype; return NULL; } static GType guile_gtk_generic_tree_model_get_column_type (GtkTreeModel *tree_model, gint index) { struct with_guile_args args; memset (&args, 0, sizeof(args)); args.tree_model = tree_model; args.i = index; scm_with_guile (_with_guile_gtk_generic_tree_model_get_column_type, &args); return args.t; } #undef FUNC_NAME static void* _with_guile_gtk_generic_tree_model_get_iter (void *p) { struct with_guile_args *a = p; GtkTreeModel *tree_model = a->tree_model; GtkTreeIter *iter = a->iter; SCM scm_obj, scm_ret, scm_path; a->b = FALSE; g_return_val_if_fail (GUILE_GTK_IS_GENERIC_TREE_MODEL (tree_model), NULL); scm_obj = scm_c_gtype_instance_to_scm ((GTypeInstance*)tree_model); scm_path = guile_gtk_tree_path_to_scm (a->path); scm_ret = scm_call_2 (PROC_FROM_INSTANCE (tree_model, on_get_iter), scm_obj, scm_path); if (SCM_NFALSEP (scm_ret)) { SET_ITER_VAL (iter, scm_ret); a->b = TRUE; } else { SET_ITER_NULL (iter); a->b = FALSE; } return NULL; } static gboolean guile_gtk_generic_tree_model_get_iter (GtkTreeModel *tree_model, GtkTreeIter *iter, GtkTreePath *path) { struct with_guile_args args; memset (&args, 0, sizeof(args)); args.tree_model = tree_model; args.iter = iter; args.path = path; scm_with_guile (_with_guile_gtk_generic_tree_model_get_iter, &args); return args.b; } static void* _with_guile_gtk_generic_tree_model_get_path (void *p) { struct with_guile_args *a = p; GtkTreeModel *tree_model = a->tree_model; GtkTreeIter *iter = a->iter; SCM scm_obj, scm_ret; a->path = NULL; g_return_val_if_fail (GUILE_GTK_IS_GENERIC_TREE_MODEL(tree_model), NULL); RETURN_VAL_IF_INVALID_ITER (iter, NULL); scm_obj = scm_c_gtype_instance_to_scm ((GTypeInstance*)tree_model); scm_ret = scm_call_2 (PROC_FROM_INSTANCE (tree_model, on_get_path), scm_obj, GET_ITER_VAL (iter)); a->path = guile_gtk_scm_to_tree_path (scm_ret); if (!a->path) g_warning("could not convert return value of `on-get-path' to " "a GtkTreePath"); return NULL; } static GtkTreePath * guile_gtk_generic_tree_model_get_path (GtkTreeModel *tree_model, GtkTreeIter *iter) { struct with_guile_args args; memset (&args, 0, sizeof(args)); args.tree_model = tree_model; args.iter = iter; scm_with_guile (_with_guile_gtk_generic_tree_model_get_path, &args); return args.path; } static void* _with_guile_gtk_generic_tree_model_get_value (void *p) { struct with_guile_args *a = p; GtkTreeModel *tree_model = a->tree_model; GtkTreeIter *iter = a->iter; SCM scm_obj, scm_ret; GValue *tmp; GType type; g_return_val_if_fail (GUILE_GTK_IS_GENERIC_TREE_MODEL (tree_model), NULL); RETURN_VAL_IF_INVALID_ITER (iter, NULL); scm_obj = scm_c_gtype_instance_to_scm ((GTypeInstance*)tree_model); scm_ret = scm_call_3 (PROC_FROM_INSTANCE (tree_model, on_get_value), scm_obj, GET_ITER_VAL (iter), scm_from_int (a->i)); /* oh god this is terrible */ _with_guile_gtk_generic_tree_model_get_column_type (a); type = a->t; tmp = scm_c_scm_to_gvalue (type, scm_ret); g_value_init (a->v, type); g_value_copy (tmp, a->v); g_value_unset (tmp); g_free (tmp); return NULL; } static void guile_gtk_generic_tree_model_get_value (GtkTreeModel *tree_model, GtkTreeIter *iter, gint column, GValue *value) { struct with_guile_args args; memset (&args, 0, sizeof(args)); args.tree_model = tree_model; args.iter = iter; args.i = column; args.v = value; scm_with_guile (_with_guile_gtk_generic_tree_model_get_value, &args); } static void* _with_guile_gtk_generic_tree_model_iter_next (void *p) { struct with_guile_args *a = p; GtkTreeModel *tree_model = a->tree_model; GtkTreeIter *iter = a->iter; SCM scm_obj, scm_ret; a->b = FALSE; g_return_val_if_fail (GUILE_GTK_IS_GENERIC_TREE_MODEL (tree_model), NULL); RETURN_VAL_IF_INVALID_ITER (iter, NULL); scm_obj = scm_c_gtype_instance_to_scm ((GTypeInstance*)tree_model); scm_ret = scm_call_2 (PROC_FROM_INSTANCE (tree_model, on_iter_next), scm_obj, GET_ITER_VAL (iter)); if (SCM_NFALSEP (scm_ret)) { SET_ITER_VAL (iter, scm_ret); a->b = TRUE; } else { SET_ITER_NULL (iter); a->b = FALSE; } return NULL; } static gboolean guile_gtk_generic_tree_model_iter_next (GtkTreeModel *tree_model, GtkTreeIter *iter) { struct with_guile_args args; memset (&args, 0, sizeof(args)); args.tree_model = tree_model; args.iter = iter; scm_with_guile (_with_guile_gtk_generic_tree_model_iter_next, &args); return args.b; } static void* _with_guile_gtk_generic_tree_model_iter_children (void *p) { struct with_guile_args *a = p; GtkTreeModel *tree_model = a->tree_model; GtkTreeIter *iter = a->iter; GtkTreeIter *parent = a->iter2; SCM scm_obj, scm_ret; a->b = FALSE; g_return_val_if_fail (GUILE_GTK_IS_GENERIC_TREE_MODEL (tree_model), NULL); g_return_val_if_fail (!parent || GUILE_GTK_GENERIC_TREE_MODEL (tree_model)->stamp == parent->stamp, NULL); scm_obj = scm_c_gtype_instance_to_scm ((GTypeInstance*)tree_model); scm_ret = scm_call_2 (PROC_FROM_INSTANCE (tree_model, on_iter_children), scm_obj, GET_ITER_VAL_OR_FALSE (parent)); if (SCM_NFALSEP (scm_ret)) { SET_ITER_VAL (iter, scm_ret); a->b = TRUE; } else { SET_ITER_NULL (iter); a->b = FALSE; } return NULL; } static gboolean guile_gtk_generic_tree_model_iter_children (GtkTreeModel *tree_model, GtkTreeIter *iter,GtkTreeIter *parent) { struct with_guile_args args; memset (&args, 0, sizeof(args)); args.tree_model = tree_model; args.iter = iter; args.iter2 = parent; scm_with_guile (_with_guile_gtk_generic_tree_model_iter_children, &args); return args.b; } static void* _with_guile_gtk_generic_tree_model_iter_has_child (void *p) { struct with_guile_args *a = p; GtkTreeModel *tree_model = a->tree_model; GtkTreeIter *iter = a->iter; SCM scm_obj; a->b = FALSE; g_return_val_if_fail (GUILE_GTK_IS_GENERIC_TREE_MODEL (tree_model), NULL); RETURN_VAL_IF_INVALID_ITER (iter, FALSE); scm_obj = scm_c_gtype_instance_to_scm ((GTypeInstance*)tree_model); a->b = SCM_NFALSEP (scm_call_2 (PROC_FROM_INSTANCE (tree_model, on_iter_has_child), scm_obj, GET_ITER_VAL (iter))); return NULL; } static gboolean guile_gtk_generic_tree_model_iter_has_child (GtkTreeModel *tree_model, GtkTreeIter *iter) { struct with_guile_args args; memset (&args, 0, sizeof(args)); args.tree_model = tree_model; args.iter = iter; scm_with_guile (_with_guile_gtk_generic_tree_model_iter_has_child, &args); return args.b; } static void* _with_guile_gtk_generic_tree_model_iter_n_children (void *p) #define FUNC_NAME "guile-gtk-generic-tree-model-iter-n-children" { struct with_guile_args *a = p; GtkTreeModel *tree_model = a->tree_model; GtkTreeIter *iter = a->iter; SCM scm_obj, scm_ret; a->i = 0; g_return_val_if_fail (GUILE_GTK_IS_GENERIC_TREE_MODEL (tree_model), NULL); g_return_val_if_fail (!iter || iter->stamp == ((GuileGtkGenericTreeModel*)tree_model)->stamp, NULL); scm_obj = scm_c_gtype_instance_to_scm ((GTypeInstance*)tree_model); scm_ret = scm_call_2 (PROC_FROM_INSTANCE (tree_model, on_iter_n_children), scm_obj, GET_ITER_VAL_OR_FALSE (iter)); a->i = scm_to_int (scm_ret); return NULL; } static gint guile_gtk_generic_tree_model_iter_n_children (GtkTreeModel *tree_model, GtkTreeIter *iter) { struct with_guile_args args; memset (&args, 0, sizeof(args)); args.tree_model = tree_model; args.iter = iter; scm_with_guile (_with_guile_gtk_generic_tree_model_iter_n_children, &args); return args.i; } #undef FUNC_NAME static void* _with_guile_gtk_generic_tree_model_iter_nth_child (void *p) { struct with_guile_args *a = p; GtkTreeModel *tree_model = a->tree_model; GtkTreeIter *iter = a->iter; GtkTreeIter *parent = a->iter2; SCM scm_obj, scm_ret; a->b = FALSE; g_return_val_if_fail (GUILE_GTK_IS_GENERIC_TREE_MODEL (tree_model), NULL); g_return_val_if_fail (!parent || ((GuileGtkGenericTreeModel*)tree_model)->stamp == parent->stamp, NULL); scm_obj = scm_c_gtype_instance_to_scm ((GTypeInstance*)tree_model); scm_ret = scm_call_3 (PROC_FROM_INSTANCE (tree_model, on_iter_nth_child), scm_obj, GET_ITER_VAL_OR_FALSE (parent), scm_from_int (a->i)); if (SCM_NFALSEP (scm_ret)) { SET_ITER_VAL (iter, scm_ret); a->b = TRUE; } else { SET_ITER_NULL (iter); a->b = FALSE; } return NULL; } static gboolean guile_gtk_generic_tree_model_iter_nth_child (GtkTreeModel *tree_model, GtkTreeIter *iter,GtkTreeIter *parent, gint n) { struct with_guile_args args; memset (&args, 0, sizeof(args)); args.tree_model = tree_model; args.iter = iter; args.iter2 = parent; args.i = n; scm_with_guile (_with_guile_gtk_generic_tree_model_iter_nth_child, &args); return args.b; } static void* _with_guile_gtk_generic_tree_model_iter_parent (void *p) { struct with_guile_args *a = p; GtkTreeModel *tree_model = a->tree_model; GtkTreeIter *iter = a->iter; GtkTreeIter *child = a->iter2; SCM scm_obj, scm_ret; a->b = FALSE; g_return_val_if_fail (GUILE_GTK_IS_GENERIC_TREE_MODEL (tree_model), NULL); RETURN_VAL_IF_INVALID_ITER (child, NULL); scm_obj = scm_c_gtype_instance_to_scm ((GTypeInstance*)tree_model); scm_ret = scm_call_2 (PROC_FROM_INSTANCE (tree_model, on_iter_parent), scm_obj, GET_ITER_VAL (child)); if (SCM_NFALSEP (scm_ret)) { SET_ITER_VAL (iter, scm_ret); a->b = TRUE; } else { SET_ITER_NULL (iter); a->b = FALSE; } return NULL; } static gboolean guile_gtk_generic_tree_model_iter_parent (GtkTreeModel *tree_model, GtkTreeIter *iter,GtkTreeIter *child) { struct with_guile_args args; memset (&args, 0, sizeof(args)); args.tree_model = tree_model; args.iter = iter; args.iter2 = child; scm_with_guile (_with_guile_gtk_generic_tree_model_iter_parent, &args); return args.b; } guile-gnome-platform-2.16.2/gtk/gnome/gw/gdk-pixbuf-support.c0000644000175000017500000000364311670374303024423 0ustar00wingowingo00000000000000/* guile-gnome * Copyright (C) 2004 Free Software Foundation, Inc. * * gdk-pixbuf-support.c: Support routines for the gdk-pixbuf wrapper * * This program is free software; you can redistribute it and/or * modify it under the terms of the GNU General Public License as * published by the Free Software Foundation; either version 2 of * the License, or (at your option) any later version. * * This program is distributed in the hope that it will be useful, * but WITHOUT ANY WARRANTY; without even the implied warranty of * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the * GNU General Public License for more details. * * You should have received a copy of the GNU General Public License * along with this program; if not, contact: * * Free Software Foundation Voice: +1-617-542-5942 * 59 Temple Place - Suite 330 Fax: +1-617-542-2652 * Boston, MA 02111-1307, USA gnu@gnu.org */ #include #include "guile-gnome-gobject.h" #include "gdk-pixbuf-support.h" static gboolean port_write_cb (const gchar *buf, gsize count, GError **error, gpointer data) { SCM port = GPOINTER_TO_SCM (data); scm_c_write (port, buf, count); return TRUE; } gboolean gdk_pixbuf_save_to_port (GdkPixbuf *pixbuf, SCM port, const char *type, SCM options_alist, GError **error) #define FUNC_NAME "gdk-pixbuf-save-to-port" { gboolean res; SCM_VALIDATE_PORT (1, port); /* ignoring options for now */ res = gdk_pixbuf_save_to_callback (pixbuf, port_write_cb, SCM_TO_GPOINTER (port), type, error, NULL); scm_remember_upto_here_1 (port); return res; } #undef FUNC_NAME guile-gnome-platform-2.16.2/gtk/gnome/gw/gdk-spec.scm0000644000175000017500000001215511672470340022704 0ustar00wingowingo00000000000000;; guile-gnome ;; Copyright (C) 2005 Andread Rottmann ;; Copyright (C) 2003,2004 Andy Wingo ;; This program is free software; you can redistribute it and/or ;; modify it under the terms of the GNU General Public License as ;; published by the Free Software Foundation; either version 2 of ;; the License, or (at your option) any later version. ;; ;; This program is distributed in the hope that it will be useful, ;; but WITHOUT ANY WARRANTY; without even the implied warranty of ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the ;; GNU General Public License for more details. ;; ;; You should have received a copy of the GNU General Public License ;; along with this program; if not, contact: ;; ;; Free Software Foundation Voice: +1-617-542-5942 ;; 59 Temple Place - Suite 330 Fax: +1-617-542-2652 ;; Boston, MA 02111-1307, USA gnu@gnu.org ;;; Commentary: ;; ;;g-wrap specification for GDK. ;; ;;; Code: (define-module (gnome gw gdk-spec) #:use-module (oop goops) #:use-module (ice-9 optargs) #:use-module (gnome gw support g-wrap) #:use-module (gnome gw cairo-spec) #:use-module (gnome gw pango-spec) #:use-module (gnome gw support gobject) #:use-module (gnome gw support defs)) (define-class () #:id 'gnome-gdk #:dependencies '(standard gnome-glib gnome-gobject gnome-cairo gnome-pango)) (define-method (global-declarations-cg (self )) (list (next-method) "#include \n" "#include \"gdk-pixbuf-support.h\"\n" "#include \n" "#include \"gdk-support.h\"\n")) (define-method (initializations-cg (self ) err) (list (next-method) "if (!gdk_init_check (NULL, NULL))\n" " scm_misc_error (\"gdk-init\"," " \"GDK failed to initialize; is $DISPLAY set correctly?\"," " SCM_EOL);\n" )) (define-class ()) (define-method (initialize (type ) initargs) (next-method type (cons #:gtype-id (cons "GDK_TYPE_EVENT" initargs)))) (define-method (unwrap-value-cg (type ) (value ) status-var) (let ((c-var (var value)) (scm-var (scm-var value))) (unwrap-null-checked value status-var (list "if (scm_c_gvalue_holds (" scm-var ", GDK_TYPE_EVENT))\n" " " c-var " = scm_c_gvalue_peek_boxed (" scm-var ");\n" "else {\n" " " c-var " = NULL;\n" `(gw:error ,status-var type ,(wrapped-var value)) "}\n")))) (define-method (wrap-value-cg (type ) (value ) status-var) (let ((c-var (var value)) (scm-var (scm-var value))) (list "if (" c-var " == NULL) {\n" " " scm-var " = SCM_BOOL_F;\n" "} else {\n" " " scm-var " = scm_c_gvalue_new_from_boxed (GDK_TYPE_EVENT, " c-var ");\n" "}\n"))) (define-method (initialize (ws ) initargs) (next-method ws (cons #:module (cons '(gnome gw gdk) initargs))) (add-type-alias! ws "GdkWChar" 'unsigned-int32) (for-each (lambda (ctype) (let ((event (make #:ctype ctype #:c-type-name (string-append ctype "*")))) (add-type! ws event) (add-type-alias! ws (string-append ctype "*") (name event)))) '("GdkEventAny" "GdkEventKey" "GdkEventButton" "GdkEventScroll" "GdkEventMotion" "GdkEventExpose" "GdkEventVisibility" "GdkEventCrossing" "GdkEventFocus" "GdkEventConfigure" "GdkEventProperty" "GdkEventSelection" "GdkEventDND" "GdkEventProximity" "GdkEventClient" "GdkEventNoExpose" "GdkEventWindowState" "GdkEventSetting")) ;; a hack now -- dunno what to do with this... (add-type-alias! ws "GdkNativeWindow" 'unsigned-long) (wrap-custom-boxed! "GdkRectangle" "GDK_TYPE_RECTANGLE" ;; wrap (list scm-var " = " c-var " ? scm_gdk_rectangle_to_scm (" c-var ") : SCM_BOOL_F;\n") ;; unwrap (list c-var " = scm_scm_to_gdk_rectangle (" scm-var ");\n")) (wrap-custom-boxed! "GdkColor" "GDK_TYPE_COLOR" ;; wrap (list scm-var " = " c-var " ? scm_gdk_color_to_scm (" c-var ") : SCM_BOOL_F;\n") ;; unwrap (list c-var " = scm_scm_to_gdk_color (" scm-var ");\n")) (wrap-opaque-pointer! ws "GdkPixbufFormat*") (wrap-opaque-pointer! ws "GdkAtom") (add-type-rule! ws "GdkAtom*" '( out)) (wrap-freeable-pointer! ws "GdkRegion" "gdk_region_destroy") (wrap-instance! ws #:ctype "GdkDrawable" #:gtype-id "GDK_TYPE_DRAWABLE") (add-type-alias! ws "GdkDrawable*" ') (add-type-alias! ws "GdkBitmap*" ') (load-defs-with-overrides ws "gnome/defs/gdk-pixbuf.defs") (load-defs-with-overrides ws "gnome/defs/gdk.defs")) guile-gnome-platform-2.16.2/gtk/gnome/gw/gdk-pixbuf-support.h0000644000175000017500000000246211670374303024426 0ustar00wingowingo00000000000000/* guile-gnome * Copyright (C) 2004 Free Software Foundation, Inc. * * gdk-pixbuf-support.h: support for the gdk-pixbuf wrapper * * This program is free software; you can redistribute it and/or * modify it under the terms of the GNU General Public License as * published by the Free Software Foundation; either version 2 of * the License, or (at your option) any later version. * * This program is distributed in the hope that it will be useful, * but WITHOUT ANY WARRANTY; without even the implied warranty of * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the * GNU General Public License for more details. * * You should have received a copy of the GNU General Public License * along with this program; if not, contact: * * Free Software Foundation Voice: +1-617-542-5942 * 59 Temple Place - Suite 330 Fax: +1-617-542-2652 * Boston, MA 02111-1307, USA gnu@gnu.org */ #include #include gboolean gdk_pixbuf_save_to_port (GdkPixbuf *pixbuf, SCM port, const char *type, SCM options_alist, GError **error); guile-gnome-platform-2.16.2/gtk/gnome/gw/gdk-support.h0000644000175000017500000000251311670374303023130 0ustar00wingowingo00000000000000/* guile-gnome * Copyright (C) 2003 Andy Wingo * * gdk-support.h: * * This program is free software; you can redistribute it and/or * modify it under the terms of the GNU General Public License as * published by the Free Software Foundation; either version 2 of * the License, or (at your option) any later version. * * This program is distributed in the hope that it will be useful, * but WITHOUT ANY WARRANTY; without even the implied warranty of * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the * GNU General Public License for more details. * * You should have received a copy of the GNU General Public License * along with this program; if not, contact: * * Free Software Foundation Voice: +1-617-542-5942 * 59 Temple Place - Suite 330 Fax: +1-617-542-2652 * Boston, MA 02111-1307, USA gnu@gnu.org */ #include #include SCM gdk_event_to_vector (GdkEvent *event); SCM scm_gdk_rectangle_to_scm (GdkRectangle *rect); GdkRectangle* scm_scm_to_gdk_rectangle (SCM scm); SCM scm_gdk_color_to_scm (GdkColor *c); GdkColor* scm_scm_to_gdk_color (SCM scm); guile-gnome-platform-2.16.2/gtk/gnome/gw/Makefile.am0000644000175000017500000000365611670374303022545 0ustar00wingowingo00000000000000include $(top_srcdir)/common.mk if HAVE_GTK GTKMODULES = gtk-spec.scm gtk.scm \ gdk-spec.scm gdk.scm GTKLIB = libgw-guile-gnome-gtk.la \ libgw-guile-gnome-gdk.la else GTKMODULES = GTKLIB = endif # Make sure the user isn't compiling with -O, because it makes gcc 3.3 # and up break #CFLAGS=-g guilegwmodule_DATA = $(GTKMODULES) EXTRA_DIST = gdk-spec.scm gtk-spec.scm CLEANFILES = $(wildcard gnome-*.log) # There is one shared library for each wrapset. Each is produced by # g-wrap, but also may contain some hand-coded routines. guilegnomelib_LTLIBRARIES = $(GTKLIB) ######################################################################## ## gdk nodist_libgw_guile_gnome_gdk_la_SOURCES = guile-gnome-gw-gdk.c libgw_guile_gnome_gdk_la_SOURCES = gdk-support.c gdk-support.h \ gdk-pixbuf-support.c gdk-pixbuf-support.h libgw_guile_gnome_gdk_la_CFLAGS = $(GUILE_GLIB_CFLAGS) \ $(AM_CFLAGS) $(GUILE_CAIRO_CFLAGS) $(GDK_CFLAGS) \ $(GDK_PIXBUF_CFLAGS) $(GUILE_CFLAGS) \ $(G_WRAP_CFLAGS) $(GTK_DEPRECATED_CFLAGS) libgw_guile_gnome_gdk_la_LIBADD = $(GDK_LIBS) $(GUILE_LIBS) \ $(G_WRAP_LIBS) $(GUILE_GLIB_LIBS) $(GUILE_CAIRO_LIBS) $(GDK_PIXBUF_LIBS) libgw_guile_gnome_gdk_la_LDFLAGS = -module CLEANFILES += $(wildcard guile-gnome-gw-gdk.*) gdk.scm ######################################################################## ## gtk nodist_libgw_guile_gnome_gtk_la_SOURCES = guile-gnome-gw-gtk.c libgw_guile_gnome_gtk_la_SOURCES = \ guile-gtk-tree-model.c guile-gtk-tree-model.h gtk-support.c gtk-support.h libgw_guile_gnome_gtk_la_CFLAGS = $(GUILE_GLIB_CFLAGS) \ $(AM_CFLAGS) $(GUILE_CAIRO_CFLAGS) $(GTK_CFLAGS) $(GUILE_CFLAGS) \ $(G_WRAP_CFLAGS) $(GTK_DEPRECATED_CFLAGS) libgw_guile_gnome_gtk_la_LIBADD = $(GTK_LIBS) $(GUILE_LIBS) \ $(G_WRAP_LIBS) $(GUILE_GLIB_LIBS) $(GUILE_CAIRO_LIBS) libgw_guile_gnome_gtk_la_LDFLAGS = -module CLEANFILES += $(wildcard guile-gnome-gw-gtk.*) gtk.scm BUILT_SOURCES = \ guile-gnome-gw-gdk.c \ guile-gnome-gw-gtk.c guile-gnome-platform-2.16.2/gtk/gnome/gw/Makefile.in0000644000175000017500000010500611752520675022554 0ustar00wingowingo00000000000000# Makefile.in generated by automake 1.11.5 from Makefile.am. # @configure_input@ # Copyright (C) 1994, 1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, # 2003, 2004, 2005, 2006, 2007, 2008, 2009, 2010, 2011 Free Software # Foundation, Inc. # This Makefile.in is free software; the Free Software Foundation # gives unlimited permission to copy and/or distribute it, # with or without modifications, as long as this notice is preserved. # This program is distributed in the hope that it will be useful, # but WITHOUT ANY WARRANTY, to the extent permitted by law; without # even the implied warranty of MERCHANTABILITY or FITNESS FOR A # PARTICULAR PURPOSE. @SET_MAKE@ # guile-gnome # Copyright (C) 2003,2004,2009,2012 Free Software Foundation, Inc. # This program is free software; you can redistribute it and/or # modify it under the terms of the GNU General Public License as # published by the Free Software Foundation; either version 2 of # the License, or (at your option) any later version. # This program is distributed in the hope that it will be useful, # but WITHOUT ANY WARRANTY; without even the implied warranty of # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the # GNU General Public License for more details. # You should have received a copy of the GNU General Public License # along with this program; if not, contact: # Free Software Foundation Voice: +1-617-542-5942 # 59 Temple Place - Suite 330 Fax: +1-617-542-2652 # Boston, MA 02111-1307, USA gnu@gnu.org # # Makefile snippet # VPATH = @srcdir@ am__make_dryrun = \ { \ am__dry=no; \ case $$MAKEFLAGS in \ *\\[\ \ ]*) \ echo 'am--echo: ; @echo "AM" OK' | $(MAKE) -f - 2>/dev/null \ | grep '^AM OK$$' >/dev/null || am__dry=yes;; \ *) \ for am__flg in $$MAKEFLAGS; do \ case $$am__flg in \ *=*|--*) ;; \ *n*) am__dry=yes; break;; \ esac; \ done;; \ esac; \ test $$am__dry = yes; \ } pkgdatadir = $(datadir)/@PACKAGE@ pkgincludedir = $(includedir)/@PACKAGE@ pkglibdir = $(libdir)/@PACKAGE@ pkglibexecdir = $(libexecdir)/@PACKAGE@ am__cd = CDPATH="$${ZSH_VERSION+.}$(PATH_SEPARATOR)" && cd install_sh_DATA = $(install_sh) -c -m 644 install_sh_PROGRAM = $(install_sh) -c install_sh_SCRIPT = $(install_sh) -c INSTALL_HEADER = $(INSTALL_DATA) transform = $(program_transform_name) NORMAL_INSTALL = : PRE_INSTALL = : POST_INSTALL = : NORMAL_UNINSTALL = : PRE_UNINSTALL = : POST_UNINSTALL = : build_triplet = @build@ host_triplet = @host@ DIST_COMMON = $(srcdir)/Makefile.am $(srcdir)/Makefile.in \ $(top_srcdir)/common.mk subdir = gtk/gnome/gw ACLOCAL_M4 = $(top_srcdir)/aclocal.m4 am__aclocal_m4_deps = $(top_srcdir)/configure.ac am__configure_deps = $(am__aclocal_m4_deps) $(CONFIGURE_DEPENDENCIES) \ $(ACLOCAL_M4) mkinstalldirs = $(install_sh) -d CONFIG_HEADER = $(top_builddir)/config.h CONFIG_CLEAN_FILES = CONFIG_CLEAN_VPATH_FILES = am__vpath_adj_setup = srcdirstrip=`echo "$(srcdir)" | sed 's|.|.|g'`; am__vpath_adj = case $$p in \ $(srcdir)/*) f=`echo "$$p" | sed "s|^$$srcdirstrip/||"`;; \ *) f=$$p;; \ esac; am__strip_dir = f=`echo $$p | sed -e 's|^.*/||'`; am__install_max = 40 am__nobase_strip_setup = \ srcdirstrip=`echo "$(srcdir)" | sed 's/[].[^$$\\*|]/\\\\&/g'` am__nobase_strip = \ for p in $$list; do echo "$$p"; done | sed -e "s|$$srcdirstrip/||" am__nobase_list = $(am__nobase_strip_setup); \ for p in $$list; do echo "$$p $$p"; done | \ sed "s| $$srcdirstrip/| |;"' / .*\//!s/ .*/ ./; s,\( .*\)/[^/]*$$,\1,' | \ $(AWK) 'BEGIN { files["."] = "" } { files[$$2] = files[$$2] " " $$1; \ if (++n[$$2] == $(am__install_max)) \ { print $$2, files[$$2]; n[$$2] = 0; files[$$2] = "" } } \ END { for (dir in files) print dir, files[dir] }' am__base_list = \ sed '$$!N;$$!N;$$!N;$$!N;$$!N;$$!N;$$!N;s/\n/ /g' | \ sed '$$!N;$$!N;$$!N;$$!N;s/\n/ /g' am__uninstall_files_from_dir = { \ test -z "$$files" \ || { test ! -d "$$dir" && test ! -f "$$dir" && test ! -r "$$dir"; } \ || { echo " ( cd '$$dir' && rm -f" $$files ")"; \ $(am__cd) "$$dir" && rm -f $$files; }; \ } am__installdirs = "$(DESTDIR)$(guilegnomelibdir)" \ "$(DESTDIR)$(guilegwmoduledir)" LTLIBRARIES = $(guilegnomelib_LTLIBRARIES) am__DEPENDENCIES_1 = libgw_guile_gnome_gdk_la_DEPENDENCIES = $(am__DEPENDENCIES_1) \ $(am__DEPENDENCIES_1) $(am__DEPENDENCIES_1) \ $(am__DEPENDENCIES_1) $(am__DEPENDENCIES_1) \ $(am__DEPENDENCIES_1) am_libgw_guile_gnome_gdk_la_OBJECTS = \ libgw_guile_gnome_gdk_la-gdk-support.lo \ libgw_guile_gnome_gdk_la-gdk-pixbuf-support.lo nodist_libgw_guile_gnome_gdk_la_OBJECTS = \ libgw_guile_gnome_gdk_la-guile-gnome-gw-gdk.lo libgw_guile_gnome_gdk_la_OBJECTS = \ $(am_libgw_guile_gnome_gdk_la_OBJECTS) \ $(nodist_libgw_guile_gnome_gdk_la_OBJECTS) libgw_guile_gnome_gdk_la_LINK = $(LIBTOOL) --tag=CC $(AM_LIBTOOLFLAGS) \ $(LIBTOOLFLAGS) --mode=link $(CCLD) \ $(libgw_guile_gnome_gdk_la_CFLAGS) $(CFLAGS) \ $(libgw_guile_gnome_gdk_la_LDFLAGS) $(LDFLAGS) -o $@ @HAVE_GTK_TRUE@am_libgw_guile_gnome_gdk_la_rpath = -rpath \ @HAVE_GTK_TRUE@ $(guilegnomelibdir) libgw_guile_gnome_gtk_la_DEPENDENCIES = $(am__DEPENDENCIES_1) \ $(am__DEPENDENCIES_1) $(am__DEPENDENCIES_1) \ $(am__DEPENDENCIES_1) $(am__DEPENDENCIES_1) am_libgw_guile_gnome_gtk_la_OBJECTS = \ libgw_guile_gnome_gtk_la-guile-gtk-tree-model.lo \ libgw_guile_gnome_gtk_la-gtk-support.lo nodist_libgw_guile_gnome_gtk_la_OBJECTS = \ libgw_guile_gnome_gtk_la-guile-gnome-gw-gtk.lo libgw_guile_gnome_gtk_la_OBJECTS = \ $(am_libgw_guile_gnome_gtk_la_OBJECTS) \ $(nodist_libgw_guile_gnome_gtk_la_OBJECTS) libgw_guile_gnome_gtk_la_LINK = $(LIBTOOL) --tag=CC $(AM_LIBTOOLFLAGS) \ $(LIBTOOLFLAGS) --mode=link $(CCLD) \ $(libgw_guile_gnome_gtk_la_CFLAGS) $(CFLAGS) \ $(libgw_guile_gnome_gtk_la_LDFLAGS) $(LDFLAGS) -o $@ @HAVE_GTK_TRUE@am_libgw_guile_gnome_gtk_la_rpath = -rpath \ @HAVE_GTK_TRUE@ $(guilegnomelibdir) DEFAULT_INCLUDES = -I.@am__isrc@ -I$(top_builddir) depcomp = $(SHELL) $(top_srcdir)/build-aux/depcomp am__depfiles_maybe = depfiles am__mv = mv -f COMPILE = $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(AM_CPPFLAGS) \ $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) LTCOMPILE = $(LIBTOOL) --tag=CC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) \ --mode=compile $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) \ $(AM_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) CCLD = $(CC) LINK = $(LIBTOOL) --tag=CC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) \ --mode=link $(CCLD) $(AM_CFLAGS) $(CFLAGS) $(AM_LDFLAGS) \ $(LDFLAGS) -o $@ SOURCES = $(libgw_guile_gnome_gdk_la_SOURCES) \ $(nodist_libgw_guile_gnome_gdk_la_SOURCES) \ $(libgw_guile_gnome_gtk_la_SOURCES) \ $(nodist_libgw_guile_gnome_gtk_la_SOURCES) DIST_SOURCES = $(libgw_guile_gnome_gdk_la_SOURCES) \ $(libgw_guile_gnome_gtk_la_SOURCES) am__can_run_installinfo = \ case $$AM_UPDATE_INFO_DIR in \ n|no|NO) false;; \ *) (install-info --version) >/dev/null 2>&1;; \ esac DATA = $(guilegwmodule_DATA) ETAGS = etags CTAGS = ctags DISTFILES = $(DIST_COMMON) $(DIST_SOURCES) $(TEXINFOS) $(EXTRA_DIST) ACLOCAL = @ACLOCAL@ AG_PKG_CONFIG_PATH = @AG_PKG_CONFIG_PATH@ AMTAR = @AMTAR@ API_VERSION = @API_VERSION@ AR = @AR@ ATK_CFLAGS = @ATK_CFLAGS@ ATK_LIBS = @ATK_LIBS@ AUTOCONF = @AUTOCONF@ AUTOHEADER = @AUTOHEADER@ AUTOMAKE = @AUTOMAKE@ AWK = @AWK@ BONOBO_IDL_DIR = @BONOBO_IDL_DIR@ CANVAS_CFLAGS = @CANVAS_CFLAGS@ CANVAS_LIBS = @CANVAS_LIBS@ CC = @CC@ CCDEPMODE = @CCDEPMODE@ CFLAGS = @CFLAGS@ CORBA_CFLAGS = @CORBA_CFLAGS@ CORBA_LIBS = @CORBA_LIBS@ CPP = @CPP@ CPPFLAGS = @CPPFLAGS@ CYGPATH_W = @CYGPATH_W@ DEFS = @DEFS@ DEPDIR = @DEPDIR@ DLLTOOL = @DLLTOOL@ DSYMUTIL = @DSYMUTIL@ DUMPBIN = @DUMPBIN@ ECHO_C = @ECHO_C@ ECHO_N = @ECHO_N@ ECHO_T = @ECHO_T@ EGREP = @EGREP@ EXEEXT = @EXEEXT@ FGREP = @FGREP@ GCONF_CFLAGS = @GCONF_CFLAGS@ GCONF_LIBS = @GCONF_LIBS@ GDK_CFLAGS = @GDK_CFLAGS@ GDK_LIBS = @GDK_LIBS@ GDK_PIXBUF_CFLAGS = @GDK_PIXBUF_CFLAGS@ GDK_PIXBUF_LIBS = @GDK_PIXBUF_LIBS@ GLIB_CFLAGS = @GLIB_CFLAGS@ GLIB_LIBS = @GLIB_LIBS@ GNOMEUI_DEPRECATION_FLAGS = @GNOMEUI_DEPRECATION_FLAGS@ GNOME_VFS_CFLAGS = @GNOME_VFS_CFLAGS@ GNOME_VFS_DEPRECATED_CFLAGS = @GNOME_VFS_DEPRECATED_CFLAGS@ GNOME_VFS_LIBS = @GNOME_VFS_LIBS@ GOBJECT_CFLAGS = @GOBJECT_CFLAGS@ GOBJECT_LIBS = @GOBJECT_LIBS@ GREP = @GREP@ GTHREAD_CFLAGS = @GTHREAD_CFLAGS@ GTHREAD_LIBS = @GTHREAD_LIBS@ GTK_CFLAGS = @GTK_CFLAGS@ GTK_DEPRECATED_CFLAGS = @GTK_DEPRECATED_CFLAGS@ GTK_LIBS = @GTK_LIBS@ GUILE_CAIRO_CFLAGS = @GUILE_CAIRO_CFLAGS@ GUILE_CAIRO_LIBS = @GUILE_CAIRO_LIBS@ GUILE_CFLAGS = @GUILE_CFLAGS@ GUILE_EFFECTIVE_VERSION = @GUILE_EFFECTIVE_VERSION@ GUILE_GLIB_CFLAGS = @GUILE_GLIB_CFLAGS@ GUILE_GLIB_LIBS = @GUILE_GLIB_LIBS@ GUILE_LIBS = @GUILE_LIBS@ G_WRAP_CFLAGS = @G_WRAP_CFLAGS@ G_WRAP_LIBS = @G_WRAP_LIBS@ G_WRAP_LIB_DIR = @G_WRAP_LIB_DIR@ G_WRAP_MODULE_DIR = @G_WRAP_MODULE_DIR@ INSTALL = @INSTALL@ INSTALL_DATA = @INSTALL_DATA@ INSTALL_PROGRAM = @INSTALL_PROGRAM@ INSTALL_SCRIPT = @INSTALL_SCRIPT@ INSTALL_STRIP_PROGRAM = @INSTALL_STRIP_PROGRAM@ LD = @LD@ LDFLAGS = @LDFLAGS@ LIBGLADE_CFLAGS = @LIBGLADE_CFLAGS@ LIBGLADE_LIBS = @LIBGLADE_LIBS@ LIBGNOMEUI_CFLAGS = @LIBGNOMEUI_CFLAGS@ LIBGNOMEUI_LIBS = @LIBGNOMEUI_LIBS@ LIBGNOME_CFLAGS = @LIBGNOME_CFLAGS@ LIBGNOME_LIBS = @LIBGNOME_LIBS@ LIBOBJS = @LIBOBJS@ LIBS = @LIBS@ LIBTOOL = @LIBTOOL@ LIPO = @LIPO@ LN_S = @LN_S@ LTLIBOBJS = @LTLIBOBJS@ MAKEINFO = @MAKEINFO@ MANIFEST_TOOL = @MANIFEST_TOOL@ MKDIR_P = @MKDIR_P@ NM = @NM@ NMEDIT = @NMEDIT@ OBJDUMP = @OBJDUMP@ OBJEXT = @OBJEXT@ ORBIT_IDL = @ORBIT_IDL@ OTOOL = @OTOOL@ OTOOL64 = @OTOOL64@ PACKAGE = @PACKAGE@ PACKAGE_BUGREPORT = @PACKAGE_BUGREPORT@ PACKAGE_NAME = @PACKAGE_NAME@ PACKAGE_STRING = @PACKAGE_STRING@ PACKAGE_TARNAME = @PACKAGE_TARNAME@ PACKAGE_URL = @PACKAGE_URL@ PACKAGE_VERSION = @PACKAGE_VERSION@ PANGOCAIRO_CFLAGS = @PANGOCAIRO_CFLAGS@ PANGOCAIRO_LIBS = @PANGOCAIRO_LIBS@ PANGO_CFLAGS = @PANGO_CFLAGS@ PANGO_LIBS = @PANGO_LIBS@ PATH_SEPARATOR = @PATH_SEPARATOR@ PKG_CONFIG = @PKG_CONFIG@ PKG_CONFIG_LIBDIR = @PKG_CONFIG_LIBDIR@ PKG_CONFIG_PATH = @PKG_CONFIG_PATH@ RANLIB = @RANLIB@ SED = @SED@ SET_MAKE = @SET_MAKE@ SHELL = @SHELL@ STRIP = @STRIP@ VERSION = @VERSION@ WARN_CFLAGS = @WARN_CFLAGS@ abs_builddir = @abs_builddir@ abs_srcdir = @abs_srcdir@ abs_top_builddir = @abs_top_builddir@ abs_top_srcdir = @abs_top_srcdir@ ac_ct_AR = @ac_ct_AR@ ac_ct_CC = @ac_ct_CC@ ac_ct_DUMPBIN = @ac_ct_DUMPBIN@ am__include = @am__include@ am__leading_dot = @am__leading_dot@ am__quote = @am__quote@ am__tar = @am__tar@ am__untar = @am__untar@ bindir = @bindir@ build = @build@ build_alias = @build_alias@ build_cpu = @build_cpu@ build_os = @build_os@ build_vendor = @build_vendor@ builddir = @builddir@ datadir = @datadir@ datarootdir = @datarootdir@ docdir = @docdir@ dvidir = @dvidir@ exec_prefix = @exec_prefix@ host = @host@ host_alias = @host_alias@ host_cpu = @host_cpu@ host_os = @host_os@ host_vendor = @host_vendor@ htmldir = @htmldir@ includedir = @includedir@ infodir = @infodir@ install_sh = @install_sh@ libdir = @libdir@ libexecdir = @libexecdir@ localedir = @localedir@ localstatedir = @localstatedir@ mandir = @mandir@ mkdir_p = @mkdir_p@ oldincludedir = @oldincludedir@ pdfdir = @pdfdir@ prefix = @prefix@ program_transform_name = @program_transform_name@ psdir = @psdir@ sbindir = @sbindir@ sharedstatedir = @sharedstatedir@ srcdir = @srcdir@ sysconfdir = @sysconfdir@ target_alias = @target_alias@ top_build_prefix = @top_build_prefix@ top_builddir = @top_builddir@ top_srcdir = @top_srcdir@ guilegnomedir = $(datadir)/guile-gnome-@API_VERSION@ guilemoduledir = $(guilegnomedir)/gnome guilegwmoduledir = $(guilegnomedir)/gnome/gw guilegnomelibdir = $(libdir)/guile-gnome-@API_VERSION@ AM_CFLAGS = -I. -I$(srcdir) $(WARN_CFLAGS) $(DEBUG_CFLAGS) # For overriding from the command line (e.g. --debug) GUILE_FLAGS = SUFFIXES = .x .doc GUILE_SNARF_CFLAGS = $(DEFS) $(AM_CFLAGS) $(GUILE_CFLAGS) $(G_WRAP_CFLAGS) PACKAGES = atk cairo corba defs gconf glib gnome-vfs gtk libglade libgnome libgnomecanvas libgnomeui pango SOURCE_GUILE_PATH = $(shell echo $(addprefix $(top_srcdir)/,$(PACKAGES)) | sed -e 's/ /:/g'):$(srcdir) BUILD_GUILE_PATH = $(if $(filter-out $(top_srcdir),$(top_builddir)),$(shell echo -n $(addprefix $(top_builddir)/,$(PACKAGES)): | sed -e 's/ /:/g'),) GUILE_LOAD_PATH := $(BUILD_GUILE_PATH)$(SOURCE_GUILE_PATH):${G_WRAP_MODULE_DIR}:${GUILE_LOAD_PATH} # Real gnu make foo packages = $(filter-out %-uninstalled,$(patsubst %.pc.in,%,$(notdir $(wildcard $(srcdir)/*.pc.in)))) pcifiles = $(patsubst %,%-@API_VERSION@.pc,$(packages)) pcufiles = $(patsubst %,%-@API_VERSION@-uninstalled.pc,$(packages)) @HAVE_GTK_FALSE@GTKMODULES = @HAVE_GTK_TRUE@GTKMODULES = gtk-spec.scm gtk.scm \ @HAVE_GTK_TRUE@ gdk-spec.scm gdk.scm @HAVE_GTK_FALSE@GTKLIB = @HAVE_GTK_TRUE@GTKLIB = libgw-guile-gnome-gtk.la \ @HAVE_GTK_TRUE@ libgw-guile-gnome-gdk.la # Make sure the user isn't compiling with -O, because it makes gcc 3.3 # and up break #CFLAGS=-g guilegwmodule_DATA = $(GTKMODULES) EXTRA_DIST = gdk-spec.scm gtk-spec.scm CLEANFILES = $(wildcard gnome-*.log) $(wildcard guile-gnome-gw-gdk.*) \ gdk.scm $(wildcard guile-gnome-gw-gtk.*) gtk.scm # There is one shared library for each wrapset. Each is produced by # g-wrap, but also may contain some hand-coded routines. guilegnomelib_LTLIBRARIES = $(GTKLIB) ######################################################################## nodist_libgw_guile_gnome_gdk_la_SOURCES = guile-gnome-gw-gdk.c libgw_guile_gnome_gdk_la_SOURCES = gdk-support.c gdk-support.h \ gdk-pixbuf-support.c gdk-pixbuf-support.h libgw_guile_gnome_gdk_la_CFLAGS = $(GUILE_GLIB_CFLAGS) \ $(AM_CFLAGS) $(GUILE_CAIRO_CFLAGS) $(GDK_CFLAGS) \ $(GDK_PIXBUF_CFLAGS) $(GUILE_CFLAGS) \ $(G_WRAP_CFLAGS) $(GTK_DEPRECATED_CFLAGS) libgw_guile_gnome_gdk_la_LIBADD = $(GDK_LIBS) $(GUILE_LIBS) \ $(G_WRAP_LIBS) $(GUILE_GLIB_LIBS) $(GUILE_CAIRO_LIBS) $(GDK_PIXBUF_LIBS) libgw_guile_gnome_gdk_la_LDFLAGS = -module ######################################################################## nodist_libgw_guile_gnome_gtk_la_SOURCES = guile-gnome-gw-gtk.c libgw_guile_gnome_gtk_la_SOURCES = \ guile-gtk-tree-model.c guile-gtk-tree-model.h gtk-support.c gtk-support.h libgw_guile_gnome_gtk_la_CFLAGS = $(GUILE_GLIB_CFLAGS) \ $(AM_CFLAGS) $(GUILE_CAIRO_CFLAGS) $(GTK_CFLAGS) $(GUILE_CFLAGS) \ $(G_WRAP_CFLAGS) $(GTK_DEPRECATED_CFLAGS) libgw_guile_gnome_gtk_la_LIBADD = $(GTK_LIBS) $(GUILE_LIBS) \ $(G_WRAP_LIBS) $(GUILE_GLIB_LIBS) $(GUILE_CAIRO_LIBS) libgw_guile_gnome_gtk_la_LDFLAGS = -module BUILT_SOURCES = \ guile-gnome-gw-gdk.c \ guile-gnome-gw-gtk.c all: $(BUILT_SOURCES) $(MAKE) $(AM_MAKEFLAGS) all-am .SUFFIXES: .SUFFIXES: .x .doc .c .lo .o .obj $(srcdir)/Makefile.in: $(srcdir)/Makefile.am $(top_srcdir)/common.mk $(am__configure_deps) @for dep in $?; do \ case '$(am__configure_deps)' in \ *$$dep*) \ ( cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh ) \ && { if test -f $@; then exit 0; else break; fi; }; \ exit 1;; \ esac; \ done; \ echo ' cd $(top_srcdir) && $(AUTOMAKE) --gnu gtk/gnome/gw/Makefile'; \ $(am__cd) $(top_srcdir) && \ $(AUTOMAKE) --gnu gtk/gnome/gw/Makefile .PRECIOUS: Makefile Makefile: $(srcdir)/Makefile.in $(top_builddir)/config.status @case '$?' in \ *config.status*) \ cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh;; \ *) \ echo ' cd $(top_builddir) && $(SHELL) ./config.status $(subdir)/$@ $(am__depfiles_maybe)'; \ cd $(top_builddir) && $(SHELL) ./config.status $(subdir)/$@ $(am__depfiles_maybe);; \ esac; $(top_srcdir)/common.mk: $(top_builddir)/config.status: $(top_srcdir)/configure $(CONFIG_STATUS_DEPENDENCIES) cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh $(top_srcdir)/configure: $(am__configure_deps) cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh $(ACLOCAL_M4): $(am__aclocal_m4_deps) cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh $(am__aclocal_m4_deps): install-guilegnomelibLTLIBRARIES: $(guilegnomelib_LTLIBRARIES) @$(NORMAL_INSTALL) @list='$(guilegnomelib_LTLIBRARIES)'; test -n "$(guilegnomelibdir)" || list=; \ list2=; for p in $$list; do \ if test -f $$p; then \ list2="$$list2 $$p"; \ else :; fi; \ done; \ test -z "$$list2" || { \ echo " $(MKDIR_P) '$(DESTDIR)$(guilegnomelibdir)'"; \ $(MKDIR_P) "$(DESTDIR)$(guilegnomelibdir)" || exit 1; \ echo " $(LIBTOOL) $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=install $(INSTALL) $(INSTALL_STRIP_FLAG) $$list2 '$(DESTDIR)$(guilegnomelibdir)'"; \ $(LIBTOOL) $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=install $(INSTALL) $(INSTALL_STRIP_FLAG) $$list2 "$(DESTDIR)$(guilegnomelibdir)"; \ } uninstall-guilegnomelibLTLIBRARIES: @$(NORMAL_UNINSTALL) @list='$(guilegnomelib_LTLIBRARIES)'; test -n "$(guilegnomelibdir)" || list=; \ for p in $$list; do \ $(am__strip_dir) \ echo " $(LIBTOOL) $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=uninstall rm -f '$(DESTDIR)$(guilegnomelibdir)/$$f'"; \ $(LIBTOOL) $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=uninstall rm -f "$(DESTDIR)$(guilegnomelibdir)/$$f"; \ done clean-guilegnomelibLTLIBRARIES: -test -z "$(guilegnomelib_LTLIBRARIES)" || rm -f $(guilegnomelib_LTLIBRARIES) @list='$(guilegnomelib_LTLIBRARIES)'; for p in $$list; do \ dir="`echo $$p | sed -e 's|/[^/]*$$||'`"; \ test "$$dir" != "$$p" || dir=.; \ echo "rm -f \"$${dir}/so_locations\""; \ rm -f "$${dir}/so_locations"; \ done libgw-guile-gnome-gdk.la: $(libgw_guile_gnome_gdk_la_OBJECTS) $(libgw_guile_gnome_gdk_la_DEPENDENCIES) $(EXTRA_libgw_guile_gnome_gdk_la_DEPENDENCIES) $(libgw_guile_gnome_gdk_la_LINK) $(am_libgw_guile_gnome_gdk_la_rpath) $(libgw_guile_gnome_gdk_la_OBJECTS) $(libgw_guile_gnome_gdk_la_LIBADD) $(LIBS) libgw-guile-gnome-gtk.la: $(libgw_guile_gnome_gtk_la_OBJECTS) $(libgw_guile_gnome_gtk_la_DEPENDENCIES) $(EXTRA_libgw_guile_gnome_gtk_la_DEPENDENCIES) $(libgw_guile_gnome_gtk_la_LINK) $(am_libgw_guile_gnome_gtk_la_rpath) $(libgw_guile_gnome_gtk_la_OBJECTS) $(libgw_guile_gnome_gtk_la_LIBADD) $(LIBS) mostlyclean-compile: -rm -f *.$(OBJEXT) distclean-compile: -rm -f *.tab.c @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/libgw_guile_gnome_gdk_la-gdk-pixbuf-support.Plo@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/libgw_guile_gnome_gdk_la-gdk-support.Plo@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/libgw_guile_gnome_gdk_la-guile-gnome-gw-gdk.Plo@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/libgw_guile_gnome_gtk_la-gtk-support.Plo@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/libgw_guile_gnome_gtk_la-guile-gnome-gw-gtk.Plo@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/libgw_guile_gnome_gtk_la-guile-gtk-tree-model.Plo@am__quote@ .c.o: @am__fastdepCC_TRUE@ $(COMPILE) -MT $@ -MD -MP -MF $(DEPDIR)/$*.Tpo -c -o $@ $< @am__fastdepCC_TRUE@ $(am__mv) $(DEPDIR)/$*.Tpo $(DEPDIR)/$*.Po @AMDEP_TRUE@@am__fastdepCC_FALSE@ source='$<' object='$@' libtool=no @AMDEPBACKSLASH@ @AMDEP_TRUE@@am__fastdepCC_FALSE@ DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@ @am__fastdepCC_FALSE@ $(COMPILE) -c $< .c.obj: @am__fastdepCC_TRUE@ $(COMPILE) -MT $@ -MD -MP -MF $(DEPDIR)/$*.Tpo -c -o $@ `$(CYGPATH_W) '$<'` @am__fastdepCC_TRUE@ $(am__mv) $(DEPDIR)/$*.Tpo $(DEPDIR)/$*.Po @AMDEP_TRUE@@am__fastdepCC_FALSE@ source='$<' object='$@' libtool=no @AMDEPBACKSLASH@ @AMDEP_TRUE@@am__fastdepCC_FALSE@ DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@ @am__fastdepCC_FALSE@ $(COMPILE) -c `$(CYGPATH_W) '$<'` .c.lo: @am__fastdepCC_TRUE@ $(LTCOMPILE) -MT $@ -MD -MP -MF $(DEPDIR)/$*.Tpo -c -o $@ $< @am__fastdepCC_TRUE@ $(am__mv) $(DEPDIR)/$*.Tpo $(DEPDIR)/$*.Plo @AMDEP_TRUE@@am__fastdepCC_FALSE@ source='$<' object='$@' libtool=yes @AMDEPBACKSLASH@ @AMDEP_TRUE@@am__fastdepCC_FALSE@ DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@ @am__fastdepCC_FALSE@ $(LTCOMPILE) -c -o $@ $< libgw_guile_gnome_gdk_la-gdk-support.lo: gdk-support.c @am__fastdepCC_TRUE@ $(LIBTOOL) --tag=CC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(AM_CPPFLAGS) $(CPPFLAGS) $(libgw_guile_gnome_gdk_la_CFLAGS) $(CFLAGS) -MT libgw_guile_gnome_gdk_la-gdk-support.lo -MD -MP -MF $(DEPDIR)/libgw_guile_gnome_gdk_la-gdk-support.Tpo -c -o libgw_guile_gnome_gdk_la-gdk-support.lo `test -f 'gdk-support.c' || echo '$(srcdir)/'`gdk-support.c @am__fastdepCC_TRUE@ $(am__mv) $(DEPDIR)/libgw_guile_gnome_gdk_la-gdk-support.Tpo $(DEPDIR)/libgw_guile_gnome_gdk_la-gdk-support.Plo @AMDEP_TRUE@@am__fastdepCC_FALSE@ source='gdk-support.c' object='libgw_guile_gnome_gdk_la-gdk-support.lo' libtool=yes @AMDEPBACKSLASH@ @AMDEP_TRUE@@am__fastdepCC_FALSE@ DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@ @am__fastdepCC_FALSE@ $(LIBTOOL) --tag=CC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(AM_CPPFLAGS) $(CPPFLAGS) $(libgw_guile_gnome_gdk_la_CFLAGS) $(CFLAGS) -c -o libgw_guile_gnome_gdk_la-gdk-support.lo `test -f 'gdk-support.c' || echo '$(srcdir)/'`gdk-support.c libgw_guile_gnome_gdk_la-gdk-pixbuf-support.lo: gdk-pixbuf-support.c @am__fastdepCC_TRUE@ $(LIBTOOL) --tag=CC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(AM_CPPFLAGS) $(CPPFLAGS) $(libgw_guile_gnome_gdk_la_CFLAGS) $(CFLAGS) -MT libgw_guile_gnome_gdk_la-gdk-pixbuf-support.lo -MD -MP -MF $(DEPDIR)/libgw_guile_gnome_gdk_la-gdk-pixbuf-support.Tpo -c -o libgw_guile_gnome_gdk_la-gdk-pixbuf-support.lo `test -f 'gdk-pixbuf-support.c' || echo '$(srcdir)/'`gdk-pixbuf-support.c @am__fastdepCC_TRUE@ $(am__mv) $(DEPDIR)/libgw_guile_gnome_gdk_la-gdk-pixbuf-support.Tpo $(DEPDIR)/libgw_guile_gnome_gdk_la-gdk-pixbuf-support.Plo @AMDEP_TRUE@@am__fastdepCC_FALSE@ source='gdk-pixbuf-support.c' object='libgw_guile_gnome_gdk_la-gdk-pixbuf-support.lo' libtool=yes @AMDEPBACKSLASH@ @AMDEP_TRUE@@am__fastdepCC_FALSE@ DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@ @am__fastdepCC_FALSE@ $(LIBTOOL) --tag=CC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(AM_CPPFLAGS) $(CPPFLAGS) $(libgw_guile_gnome_gdk_la_CFLAGS) $(CFLAGS) -c -o libgw_guile_gnome_gdk_la-gdk-pixbuf-support.lo `test -f 'gdk-pixbuf-support.c' || echo '$(srcdir)/'`gdk-pixbuf-support.c libgw_guile_gnome_gdk_la-guile-gnome-gw-gdk.lo: guile-gnome-gw-gdk.c @am__fastdepCC_TRUE@ $(LIBTOOL) --tag=CC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(AM_CPPFLAGS) $(CPPFLAGS) $(libgw_guile_gnome_gdk_la_CFLAGS) $(CFLAGS) -MT libgw_guile_gnome_gdk_la-guile-gnome-gw-gdk.lo -MD -MP -MF $(DEPDIR)/libgw_guile_gnome_gdk_la-guile-gnome-gw-gdk.Tpo -c -o libgw_guile_gnome_gdk_la-guile-gnome-gw-gdk.lo `test -f 'guile-gnome-gw-gdk.c' || echo '$(srcdir)/'`guile-gnome-gw-gdk.c @am__fastdepCC_TRUE@ $(am__mv) $(DEPDIR)/libgw_guile_gnome_gdk_la-guile-gnome-gw-gdk.Tpo $(DEPDIR)/libgw_guile_gnome_gdk_la-guile-gnome-gw-gdk.Plo @AMDEP_TRUE@@am__fastdepCC_FALSE@ source='guile-gnome-gw-gdk.c' object='libgw_guile_gnome_gdk_la-guile-gnome-gw-gdk.lo' libtool=yes @AMDEPBACKSLASH@ @AMDEP_TRUE@@am__fastdepCC_FALSE@ DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@ @am__fastdepCC_FALSE@ $(LIBTOOL) --tag=CC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(AM_CPPFLAGS) $(CPPFLAGS) $(libgw_guile_gnome_gdk_la_CFLAGS) $(CFLAGS) -c -o libgw_guile_gnome_gdk_la-guile-gnome-gw-gdk.lo `test -f 'guile-gnome-gw-gdk.c' || echo '$(srcdir)/'`guile-gnome-gw-gdk.c libgw_guile_gnome_gtk_la-guile-gtk-tree-model.lo: guile-gtk-tree-model.c @am__fastdepCC_TRUE@ $(LIBTOOL) --tag=CC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(AM_CPPFLAGS) $(CPPFLAGS) $(libgw_guile_gnome_gtk_la_CFLAGS) $(CFLAGS) -MT libgw_guile_gnome_gtk_la-guile-gtk-tree-model.lo -MD -MP -MF $(DEPDIR)/libgw_guile_gnome_gtk_la-guile-gtk-tree-model.Tpo -c -o libgw_guile_gnome_gtk_la-guile-gtk-tree-model.lo `test -f 'guile-gtk-tree-model.c' || echo '$(srcdir)/'`guile-gtk-tree-model.c @am__fastdepCC_TRUE@ $(am__mv) $(DEPDIR)/libgw_guile_gnome_gtk_la-guile-gtk-tree-model.Tpo $(DEPDIR)/libgw_guile_gnome_gtk_la-guile-gtk-tree-model.Plo @AMDEP_TRUE@@am__fastdepCC_FALSE@ source='guile-gtk-tree-model.c' object='libgw_guile_gnome_gtk_la-guile-gtk-tree-model.lo' libtool=yes @AMDEPBACKSLASH@ @AMDEP_TRUE@@am__fastdepCC_FALSE@ DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@ @am__fastdepCC_FALSE@ $(LIBTOOL) --tag=CC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(AM_CPPFLAGS) $(CPPFLAGS) $(libgw_guile_gnome_gtk_la_CFLAGS) $(CFLAGS) -c -o libgw_guile_gnome_gtk_la-guile-gtk-tree-model.lo `test -f 'guile-gtk-tree-model.c' || echo '$(srcdir)/'`guile-gtk-tree-model.c libgw_guile_gnome_gtk_la-gtk-support.lo: gtk-support.c @am__fastdepCC_TRUE@ $(LIBTOOL) --tag=CC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(AM_CPPFLAGS) $(CPPFLAGS) $(libgw_guile_gnome_gtk_la_CFLAGS) $(CFLAGS) -MT libgw_guile_gnome_gtk_la-gtk-support.lo -MD -MP -MF $(DEPDIR)/libgw_guile_gnome_gtk_la-gtk-support.Tpo -c -o libgw_guile_gnome_gtk_la-gtk-support.lo `test -f 'gtk-support.c' || echo '$(srcdir)/'`gtk-support.c @am__fastdepCC_TRUE@ $(am__mv) $(DEPDIR)/libgw_guile_gnome_gtk_la-gtk-support.Tpo $(DEPDIR)/libgw_guile_gnome_gtk_la-gtk-support.Plo @AMDEP_TRUE@@am__fastdepCC_FALSE@ source='gtk-support.c' object='libgw_guile_gnome_gtk_la-gtk-support.lo' libtool=yes @AMDEPBACKSLASH@ @AMDEP_TRUE@@am__fastdepCC_FALSE@ DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@ @am__fastdepCC_FALSE@ $(LIBTOOL) --tag=CC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(AM_CPPFLAGS) $(CPPFLAGS) $(libgw_guile_gnome_gtk_la_CFLAGS) $(CFLAGS) -c -o libgw_guile_gnome_gtk_la-gtk-support.lo `test -f 'gtk-support.c' || echo '$(srcdir)/'`gtk-support.c libgw_guile_gnome_gtk_la-guile-gnome-gw-gtk.lo: guile-gnome-gw-gtk.c @am__fastdepCC_TRUE@ $(LIBTOOL) --tag=CC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(AM_CPPFLAGS) $(CPPFLAGS) $(libgw_guile_gnome_gtk_la_CFLAGS) $(CFLAGS) -MT libgw_guile_gnome_gtk_la-guile-gnome-gw-gtk.lo -MD -MP -MF $(DEPDIR)/libgw_guile_gnome_gtk_la-guile-gnome-gw-gtk.Tpo -c -o libgw_guile_gnome_gtk_la-guile-gnome-gw-gtk.lo `test -f 'guile-gnome-gw-gtk.c' || echo '$(srcdir)/'`guile-gnome-gw-gtk.c @am__fastdepCC_TRUE@ $(am__mv) $(DEPDIR)/libgw_guile_gnome_gtk_la-guile-gnome-gw-gtk.Tpo $(DEPDIR)/libgw_guile_gnome_gtk_la-guile-gnome-gw-gtk.Plo @AMDEP_TRUE@@am__fastdepCC_FALSE@ source='guile-gnome-gw-gtk.c' object='libgw_guile_gnome_gtk_la-guile-gnome-gw-gtk.lo' libtool=yes @AMDEPBACKSLASH@ @AMDEP_TRUE@@am__fastdepCC_FALSE@ DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@ @am__fastdepCC_FALSE@ $(LIBTOOL) --tag=CC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(AM_CPPFLAGS) $(CPPFLAGS) $(libgw_guile_gnome_gtk_la_CFLAGS) $(CFLAGS) -c -o libgw_guile_gnome_gtk_la-guile-gnome-gw-gtk.lo `test -f 'guile-gnome-gw-gtk.c' || echo '$(srcdir)/'`guile-gnome-gw-gtk.c mostlyclean-libtool: -rm -f *.lo clean-libtool: -rm -rf .libs _libs install-guilegwmoduleDATA: $(guilegwmodule_DATA) @$(NORMAL_INSTALL) @list='$(guilegwmodule_DATA)'; test -n "$(guilegwmoduledir)" || list=; \ if test -n "$$list"; then \ echo " $(MKDIR_P) '$(DESTDIR)$(guilegwmoduledir)'"; \ $(MKDIR_P) "$(DESTDIR)$(guilegwmoduledir)" || exit 1; \ fi; \ for p in $$list; do \ if test -f "$$p"; then d=; else d="$(srcdir)/"; fi; \ echo "$$d$$p"; \ done | $(am__base_list) | \ while read files; do \ echo " $(INSTALL_DATA) $$files '$(DESTDIR)$(guilegwmoduledir)'"; \ $(INSTALL_DATA) $$files "$(DESTDIR)$(guilegwmoduledir)" || exit $$?; \ done uninstall-guilegwmoduleDATA: @$(NORMAL_UNINSTALL) @list='$(guilegwmodule_DATA)'; test -n "$(guilegwmoduledir)" || list=; \ files=`for p in $$list; do echo $$p; done | sed -e 's|^.*/||'`; \ dir='$(DESTDIR)$(guilegwmoduledir)'; $(am__uninstall_files_from_dir) ID: $(HEADERS) $(SOURCES) $(LISP) $(TAGS_FILES) list='$(SOURCES) $(HEADERS) $(LISP) $(TAGS_FILES)'; \ unique=`for i in $$list; do \ if test -f "$$i"; then echo $$i; else echo $(srcdir)/$$i; fi; \ done | \ $(AWK) '{ files[$$0] = 1; nonempty = 1; } \ END { if (nonempty) { for (i in files) print i; }; }'`; \ mkid -fID $$unique tags: TAGS TAGS: $(HEADERS) $(SOURCES) $(TAGS_DEPENDENCIES) \ $(TAGS_FILES) $(LISP) set x; \ here=`pwd`; \ list='$(SOURCES) $(HEADERS) $(LISP) $(TAGS_FILES)'; \ unique=`for i in $$list; do \ if test -f "$$i"; then echo $$i; else echo $(srcdir)/$$i; fi; \ done | \ $(AWK) '{ files[$$0] = 1; nonempty = 1; } \ END { if (nonempty) { for (i in files) print i; }; }'`; \ shift; \ if test -z "$(ETAGS_ARGS)$$*$$unique"; then :; else \ test -n "$$unique" || unique=$$empty_fix; \ if test $$# -gt 0; then \ $(ETAGS) $(ETAGSFLAGS) $(AM_ETAGSFLAGS) $(ETAGS_ARGS) \ "$$@" $$unique; \ else \ $(ETAGS) $(ETAGSFLAGS) $(AM_ETAGSFLAGS) $(ETAGS_ARGS) \ $$unique; \ fi; \ fi ctags: CTAGS CTAGS: $(HEADERS) $(SOURCES) $(TAGS_DEPENDENCIES) \ $(TAGS_FILES) $(LISP) list='$(SOURCES) $(HEADERS) $(LISP) $(TAGS_FILES)'; \ unique=`for i in $$list; do \ if test -f "$$i"; then echo $$i; else echo $(srcdir)/$$i; fi; \ done | \ $(AWK) '{ files[$$0] = 1; nonempty = 1; } \ END { if (nonempty) { for (i in files) print i; }; }'`; \ test -z "$(CTAGS_ARGS)$$unique" \ || $(CTAGS) $(CTAGSFLAGS) $(AM_CTAGSFLAGS) $(CTAGS_ARGS) \ $$unique GTAGS: here=`$(am__cd) $(top_builddir) && pwd` \ && $(am__cd) $(top_srcdir) \ && gtags -i $(GTAGS_ARGS) "$$here" distclean-tags: -rm -f TAGS ID GTAGS GRTAGS GSYMS GPATH tags distdir: $(DISTFILES) @srcdirstrip=`echo "$(srcdir)" | sed 's/[].[^$$\\*]/\\\\&/g'`; \ topsrcdirstrip=`echo "$(top_srcdir)" | sed 's/[].[^$$\\*]/\\\\&/g'`; \ list='$(DISTFILES)'; \ dist_files=`for file in $$list; do echo $$file; done | \ sed -e "s|^$$srcdirstrip/||;t" \ -e "s|^$$topsrcdirstrip/|$(top_builddir)/|;t"`; \ case $$dist_files in \ */*) $(MKDIR_P) `echo "$$dist_files" | \ sed '/\//!d;s|^|$(distdir)/|;s,/[^/]*$$,,' | \ sort -u` ;; \ esac; \ for file in $$dist_files; do \ if test -f $$file || test -d $$file; then d=.; else d=$(srcdir); fi; \ if test -d $$d/$$file; then \ dir=`echo "/$$file" | sed -e 's,/[^/]*$$,,'`; \ if test -d "$(distdir)/$$file"; then \ find "$(distdir)/$$file" -type d ! -perm -700 -exec chmod u+rwx {} \;; \ fi; \ if test -d $(srcdir)/$$file && test $$d != $(srcdir); then \ cp -fpR $(srcdir)/$$file "$(distdir)$$dir" || exit 1; \ find "$(distdir)/$$file" -type d ! -perm -700 -exec chmod u+rwx {} \;; \ fi; \ cp -fpR $$d/$$file "$(distdir)$$dir" || exit 1; \ else \ test -f "$(distdir)/$$file" \ || cp -p $$d/$$file "$(distdir)/$$file" \ || exit 1; \ fi; \ done check-am: all-am check: $(BUILT_SOURCES) $(MAKE) $(AM_MAKEFLAGS) check-am all-am: Makefile $(LTLIBRARIES) $(DATA) installdirs: for dir in "$(DESTDIR)$(guilegnomelibdir)" "$(DESTDIR)$(guilegwmoduledir)"; do \ test -z "$$dir" || $(MKDIR_P) "$$dir"; \ done install: $(BUILT_SOURCES) $(MAKE) $(AM_MAKEFLAGS) install-am install-exec: install-exec-am install-data: install-data-am uninstall: uninstall-am install-am: all-am @$(MAKE) $(AM_MAKEFLAGS) install-exec-am install-data-am installcheck: installcheck-am install-strip: if test -z '$(STRIP)'; then \ $(MAKE) $(AM_MAKEFLAGS) INSTALL_PROGRAM="$(INSTALL_STRIP_PROGRAM)" \ install_sh_PROGRAM="$(INSTALL_STRIP_PROGRAM)" INSTALL_STRIP_FLAG=-s \ install; \ else \ $(MAKE) $(AM_MAKEFLAGS) INSTALL_PROGRAM="$(INSTALL_STRIP_PROGRAM)" \ install_sh_PROGRAM="$(INSTALL_STRIP_PROGRAM)" INSTALL_STRIP_FLAG=-s \ "INSTALL_PROGRAM_ENV=STRIPPROG='$(STRIP)'" install; \ fi mostlyclean-generic: clean-generic: -test -z "$(CLEANFILES)" || rm -f $(CLEANFILES) distclean-generic: -test -z "$(CONFIG_CLEAN_FILES)" || rm -f $(CONFIG_CLEAN_FILES) -test . = "$(srcdir)" || test -z "$(CONFIG_CLEAN_VPATH_FILES)" || rm -f $(CONFIG_CLEAN_VPATH_FILES) maintainer-clean-generic: @echo "This command is intended for maintainers to use" @echo "it deletes files that may require special tools to rebuild." -test -z "$(BUILT_SOURCES)" || rm -f $(BUILT_SOURCES) clean: clean-am clean-am: clean-generic clean-guilegnomelibLTLIBRARIES clean-libtool \ mostlyclean-am distclean: distclean-am -rm -rf ./$(DEPDIR) -rm -f Makefile distclean-am: clean-am distclean-compile distclean-generic \ distclean-tags dvi: dvi-am dvi-am: html: html-am html-am: info: info-am info-am: install-data-am: install-guilegnomelibLTLIBRARIES \ install-guilegwmoduleDATA install-dvi: install-dvi-am install-dvi-am: install-exec-am: install-html: install-html-am install-html-am: install-info: install-info-am install-info-am: install-man: install-pdf: install-pdf-am install-pdf-am: install-ps: install-ps-am install-ps-am: installcheck-am: maintainer-clean: maintainer-clean-am -rm -rf ./$(DEPDIR) -rm -f Makefile maintainer-clean-am: distclean-am maintainer-clean-generic mostlyclean: mostlyclean-am mostlyclean-am: mostlyclean-compile mostlyclean-generic \ mostlyclean-libtool pdf: pdf-am pdf-am: ps: ps-am ps-am: uninstall-am: uninstall-guilegnomelibLTLIBRARIES \ uninstall-guilegwmoduleDATA .MAKE: all check install install-am install-strip .PHONY: CTAGS GTAGS all all-am check check-am clean clean-generic \ clean-guilegnomelibLTLIBRARIES clean-libtool ctags distclean \ distclean-compile distclean-generic distclean-libtool \ distclean-tags distdir dvi dvi-am html html-am info info-am \ install install-am install-data install-data-am install-dvi \ install-dvi-am install-exec install-exec-am \ install-guilegnomelibLTLIBRARIES install-guilegwmoduleDATA \ install-html install-html-am install-info install-info-am \ install-man install-pdf install-pdf-am install-ps \ install-ps-am install-strip installcheck installcheck-am \ installdirs maintainer-clean maintainer-clean-generic \ mostlyclean mostlyclean-compile mostlyclean-generic \ mostlyclean-libtool pdf pdf-am ps ps-am tags uninstall \ uninstall-am uninstall-guilegnomelibLTLIBRARIES \ uninstall-guilegwmoduleDATA export GUILE_LOAD_PATH .c.x: guile-snarf $(GUILE_SNARF_CFLAGS) $< > $@ \ || { rm $@; false; } .c.doc: $(CPP) -DSCM_MAGIC_SNARF_DOCS $(GUILE_SNARF_CFLAGS) $< \ | grep -E '(\^\^ {|\^\^ })' > $@ || { rm $@; false; } %.scm guile-gnome-gw-%.c: %-spec.scm guile $(GUILE_FLAGS) -c \ "(debug-set! stack 400000) \ (use-modules (gnome-@API_VERSION@)) \ (use-modules (g-wrap)) \ (use-modules (gnome gw $*-spec)) \ (generate-wrapset 'guile 'gnome-$* \"guile-gnome-gw-$*\")" mv guile-gnome-gw-$*.scm $*.scm %-@API_VERSION@.pc: %.pc cp $< $@ %-@API_VERSION@-uninstalled.pc: %-uninstalled.pc cp $< $@ # Tell versions [3.59,3.63) of GNU make to not export all variables. # Otherwise a system limit (for SysV at least) may be exceeded. .NOEXPORT: guile-gnome-platform-2.16.2/gtk/gnome/gw/guile-gtk-tree-model.h0000644000175000017500000000517211670374303024600 0ustar00wingowingo00000000000000/* guile-gnome * Copyright (C) 2003,2004 Andy Wingo * * guile-gtk-tree-model.h: A tree model for guile-gtk * * This program is free software; you can redistribute it and/or * modify it under the terms of the GNU General Public License as * published by the Free Software Foundation; either version 2 of * the License, or (at your option) any later version. * * This program is distributed in the hope that it will be useful, * but WITHOUT ANY WARRANTY; without even the implied warranty of * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the * GNU General Public License for more details. * * You should have received a copy of the GNU General Public License * along with this program; if not, contact: * * Free Software Foundation Voice: +1-617-542-5942 * 59 Temple Place - Suite 330 Fax: +1-617-542-2652 * Boston, MA 02111-1307, USA gnu@gnu.org * * Based on work Copyright (C) 2003 James Henstridge */ #include #define GUILE_GTK_TYPE_GENERIC_TREE_MODEL (guile_gtk_generic_tree_model_get_type()) #define GUILE_GTK_GENERIC_TREE_MODEL(object) \ (G_TYPE_CHECK_INSTANCE_CAST((object), GUILE_GTK_TYPE_GENERIC_TREE_MODEL, GuileGtkGenericTreeModel)) #define GUILE_GTK_GENERIC_TREE_MODEL_CLASS(klass) \ (G_TYPE_CHECK_CLASS_CAST((klass), GUILE_GTK_TYPE_GENERIC_TREE_MODEL, GuileGtkGenericTreeModelClass)) #define GUILE_GTK_IS_GENERIC_TREE_MODEL(object) \ (G_TYPE_CHECK_INSTANCE_TYPE((object), GUILE_GTK_TYPE_GENERIC_TREE_MODEL)) #define GUILE_GTK_IS_GENERIC_TREE_MODEL_CLASS(klass) \ (G_TYPE_CHECK_CLASS_TYPE((klass), GUILE_GTK_TYPE_GENERIC_TREE_MODEL)) #define GUILE_GTK_GENERIC_TREE_MODEL_GET_CLASS(obj) \ (G_TYPE_INSTANCE_GET_CLASS((obj), GUILE_GTK_TYPE_GENERIC_TREE_MODEL, GuileGtkGenericTreeModelClass)) typedef struct _GuileGtkGenericTreeModel GuileGtkGenericTreeModel; typedef struct _GuileGtkGenericTreeModelClass GuileGtkGenericTreeModelClass; struct _GuileGtkGenericTreeModel { GObject parent_instance; gint stamp; SCM on_get_flags; SCM on_get_n_columns; SCM on_get_column_type; SCM on_get_iter; SCM on_get_path; SCM on_get_value; SCM on_iter_next; SCM on_iter_children; SCM on_iter_has_child; SCM on_iter_n_children; SCM on_iter_nth_child; SCM on_iter_parent; }; struct _GuileGtkGenericTreeModelClass { GObjectClass parent_class; }; GType guile_gtk_generic_tree_model_get_type (void); guile-gnome-platform-2.16.2/gtk/gnome/gw/gdk-support.c0000644000175000017500000002247411670374303023133 0ustar00wingowingo00000000000000/* guile-gnome * Copyright (C) 2003,2004,2010 Andy Wingo * * gdk-support.c: Support routines for the GDK wrapper * * This program is free software; you can redistribute it and/or * modify it under the terms of the GNU General Public License as * published by the Free Software Foundation; either version 2 of * the License, or (at your option) any later version. * * This program is distributed in the hope that it will be useful, * but WITHOUT ANY WARRANTY; without even the implied warranty of * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the * GNU General Public License for more details. * * You should have received a copy of the GNU General Public License * along with this program; if not, contact: * * Free Software Foundation Voice: +1-617-542-5942 * 59 Temple Place - Suite 330 Fax: +1-617-542-2652 * Boston, MA 02111-1307, USA gnu@gnu.org */ #include #include "guile-gnome-gobject.h" #include "gdk-support.h" #define VSET(scm, i, val) scm_vector_set_x (scm, scm_from_short (i), val) SCM gdk_event_to_vector (GdkEvent *event) { switch (event->type) { case GDK_KEY_PRESS: case GDK_KEY_RELEASE: { GdkEventKey ekey = event->key; SCM ret; /* 8 fields (we ignore key.string and key.length) */ ret = scm_c_make_vector (8, SCM_BOOL_F); VSET (ret, 0, scm_from_int (event->type)); VSET (ret, 1, scm_c_gtype_instance_to_scm (ekey.window)); VSET (ret, 2, ekey.send_event ? SCM_BOOL_T : SCM_BOOL_F); VSET (ret, 3, scm_from_ulong (ekey.time)); VSET (ret, 4, scm_from_int (ekey.state)); VSET (ret, 5, scm_from_int (ekey.keyval)); VSET (ret, 6, scm_from_int (ekey.hardware_keycode)); VSET (ret, 7, scm_from_int (ekey.group)); return ret; } case GDK_BUTTON_PRESS: case GDK_2BUTTON_PRESS: case GDK_3BUTTON_PRESS: case GDK_BUTTON_RELEASE: { GdkEventButton ebutton = event->button; SCM ret; /* 11 fields (we ignore axes) */ ret = scm_c_make_vector (11, SCM_BOOL_F); VSET (ret, 0, scm_from_int (event->type)); VSET (ret, 1, scm_c_gtype_instance_to_scm (ebutton.window)); VSET (ret, 2, ebutton.send_event ? SCM_BOOL_T : SCM_BOOL_F); VSET (ret, 3, scm_from_ulong (ebutton.time)); VSET (ret, 4, scm_from_double (ebutton.x)); VSET (ret, 5, scm_from_double (ebutton.y)); VSET (ret, 6, scm_from_int (ebutton.state)); VSET (ret, 7, scm_from_int (ebutton.button)); VSET (ret, 8, scm_c_gtype_instance_to_scm (ebutton.device)); VSET (ret, 9, scm_from_double (ebutton.x_root)); VSET (ret, 10, scm_from_double (ebutton.y_root)); return ret; } case GDK_ENTER_NOTIFY: case GDK_LEAVE_NOTIFY: { GdkEventCrossing ecrossing = event->crossing; SCM ret; /* 13 fields */ ret = scm_c_make_vector (13, SCM_BOOL_F); VSET (ret, 0, scm_from_int (event->type)); VSET (ret, 1, scm_c_gtype_instance_to_scm (ecrossing.window)); VSET (ret, 2, ecrossing.send_event ? SCM_BOOL_T : SCM_BOOL_F); /* subwindow may be NULL. --jcn */ if (ecrossing.subwindow) VSET (ret, 3, scm_c_gtype_instance_to_scm (ecrossing.subwindow)); else VSET (ret, 3, SCM_BOOL_F); VSET (ret, 4, scm_from_ulong (ecrossing.time)); VSET (ret, 5, scm_from_double (ecrossing.x)); VSET (ret, 6, scm_from_double (ecrossing.y)); VSET (ret, 7, scm_from_double (ecrossing.x_root)); VSET (ret, 8, scm_from_double (ecrossing.y_root)); VSET (ret, 9, scm_from_int (ecrossing.mode)); VSET (ret, 10, scm_from_int (ecrossing.detail)); VSET (ret, 11, SCM_BOOL (ecrossing.focus)); VSET (ret, 12, scm_from_int (ecrossing.state)); return ret; } case GDK_SELECTION_CLEAR: case GDK_SELECTION_NOTIFY: case GDK_SELECTION_REQUEST: { GdkEventSelection eselection = event->selection; SCM ret; /* 8 fields */ ret = scm_c_make_vector (8, SCM_BOOL_F); VSET (ret, 0, scm_from_int (event->type)); VSET (ret, 1, scm_c_gtype_instance_to_scm (eselection.window)); VSET (ret, 2, eselection.send_event ? SCM_BOOL_T : SCM_BOOL_F); VSET (ret, 3, scm_take_locale_string (gdk_atom_name (eselection.selection))); VSET (ret, 4, scm_take_locale_string (gdk_atom_name (eselection.target))); VSET (ret, 5, scm_take_locale_string (gdk_atom_name (eselection.property))); VSET (ret, 6, scm_from_ulong (eselection.time)); VSET (ret, 7, scm_from_int (eselection.requestor)); return ret; } case GDK_MOTION_NOTIFY: { GdkEventMotion emotion = event->motion; SCM ret; /* 11 fields (we ignore axes) */ ret = scm_c_make_vector (11, SCM_BOOL_F); VSET (ret, 0, scm_from_int (event->type)); VSET (ret, 1, scm_c_gtype_instance_to_scm (emotion.window)); VSET (ret, 2, emotion.send_event ? SCM_BOOL_T : SCM_BOOL_F); VSET (ret, 3, scm_from_ulong (emotion.time)); VSET (ret, 4, scm_from_double (emotion.x)); VSET (ret, 5, scm_from_double (emotion.y)); VSET (ret, 6, scm_from_int (emotion.state)); VSET (ret, 7, emotion.is_hint ? SCM_BOOL_T : SCM_BOOL_F); VSET (ret, 8, scm_c_gtype_instance_to_scm (emotion.device)); VSET (ret, 9, scm_from_double (emotion.x_root)); VSET (ret, 10, scm_from_double (emotion.y_root)); return ret; } case GDK_WINDOW_STATE: { GdkEventWindowState ewinstate = event->window_state; SCM ret; /* 5 fields */ ret = scm_c_make_vector (5, SCM_BOOL_F); VSET (ret, 0, scm_from_int (event->type)); VSET (ret, 1, scm_c_gtype_instance_to_scm (ewinstate.window)); VSET (ret, 2, ewinstate.send_event ? SCM_BOOL_T : SCM_BOOL_F); VSET (ret, 3, scm_from_int (ewinstate.changed_mask)); VSET (ret, 4, scm_from_int (ewinstate.new_window_state)); return ret; } case GDK_EXPOSE: { GdkEventExpose expose = event->expose; SCM ret; /* 6 fields */ ret = scm_c_make_vector (6, SCM_BOOL_F); VSET (ret, 0, scm_from_int (event->type)); VSET (ret, 1, scm_c_gtype_instance_to_scm (expose.window)); VSET (ret, 2, SCM_BOOL (expose.send_event)); VSET (ret, 3, scm_gdk_rectangle_to_scm (&expose.area)); VSET (ret, 4, SCM_BOOL_F); /* FIXME: region */ VSET (ret, 5, scm_from_int (expose.count)); return ret; } default: g_print ("Conversions for events of type %d are not implemented.\n" "How about doing it yourself?\n", event->type); return SCM_BOOL_F; } } SCM scm_gdk_rectangle_to_scm (GdkRectangle *rect) { SCM ret = scm_c_make_vector (4, SCM_BOOL_F); VSET (ret, 0, scm_from_int (rect->x)); VSET (ret, 1, scm_from_int (rect->y)); VSET (ret, 2, scm_from_int (rect->width)); VSET (ret, 3, scm_from_int (rect->height)); return ret; } static GdkRectangle* gdk_rectangle_new (void) { GdkRectangle tmp; return g_boxed_copy (GDK_TYPE_RECTANGLE, &tmp); } GdkRectangle* scm_scm_to_gdk_rectangle (SCM scm) #define FUNC_NAME "%scm->gdk-rectangle" { GdkRectangle *ret = gdk_rectangle_new (); #define GET_VINT(v,i) \ scm_to_int (scm_vector_ref (v, scm_from_int(i))) ret->x = GET_VINT (scm, 0); ret->y = GET_VINT (scm, 1); ret->width = GET_VINT (scm, 2); ret->height = GET_VINT (scm, 3); return ret; } #undef FUNC_NAME SCM scm_gdk_color_to_scm (GdkColor *c) { SCM ret = scm_c_make_vector (3, SCM_BOOL_F); VSET (ret, 0, scm_from_ushort (c->red)); VSET (ret, 1, scm_from_ushort (c->green)); VSET (ret, 2, scm_from_ushort (c->blue)); return ret; } /* * Allocate a new GdkColor* which must be freed using * gdk_color_free(). */ static GdkColor* gdk_color_new (void) { GdkColor tmp; return gdk_color_copy (&tmp); } GdkColor* scm_scm_to_gdk_color (SCM scm) #define FUNC_NAME "%scm->gdk-rectangle" { GdkColor *ret = gdk_color_new(); if (scm_is_string (scm)) { char *chars; gboolean success; chars = scm_to_locale_string (scm); success = gdk_color_parse (chars, ret); free (chars); if (success) return ret; /* FIXME: give a proper error */ } #define GET_VUSHORT(v,i) \ scm_to_ushort (scm_vector_ref (v, scm_from_int (i))) ret->red = GET_VUSHORT (scm, 0); ret->green = GET_VUSHORT (scm, 1); ret->blue = GET_VUSHORT (scm, 2); return ret; } #undef FUNC_NAME guile-gnome-platform-2.16.2/gtk/gnome/gw/gtk-spec.scm0000644000175000017500000000636311670716410022727 0ustar00wingowingo00000000000000;; guile-gnome ;; Copyright (C) 2003,2004 Andy Wingo ;; This program is free software; you can redistribute it and/or ;; modify it under the terms of the GNU General Public License as ;; published by the Free Software Foundation; either version 2 of ;; the License, or (at your option) any later version. ;; ;; This program is distributed in the hope that it will be useful, ;; but WITHOUT ANY WARRANTY; without even the implied warranty of ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the ;; GNU General Public License for more details. ;; ;; You should have received a copy of the GNU General Public License ;; along with this program; if not, contact: ;; ;; Free Software Foundation Voice: +1-617-542-5942 ;; 59 Temple Place - Suite 330 Fax: +1-617-542-2652 ;; Boston, MA 02111-1307, USA gnu@gnu.org ;;; Commentary: ;; ;;g-wrap specification for GTK+. ;; ;;; Code: (define-module (gnome gw gtk-spec) #:use-module (oop goops) #:use-module (gnome gw support g-wrap) #:use-module (gnome gw atk-spec) #:use-module (gnome gw gdk-spec) #:use-module (gnome gw support gobject) #:use-module (gnome gw support defs)) (define-class () #:id 'gnome-gtk #:dependencies '(standard gnome-glib gnome-gobject gnome-atk gnome-cairo gnome-pango gnome-gdk)) (define-method (global-declarations-cg (self )) (list (next-method) "#include \n" "#include \"gtk-support.h\"\n" "#include \"guile-gtk-tree-model.h\"\n" "\n" ;; Opaquely wrap groups for radio buttons and menu items "#define GtkRadioGroup GSList\n")) (define-method (global-definitions-cg (self )) (list (next-method) "static void\n" "sink_gtkobject (gpointer i)\n" "{\n" " GObject *object = (GObject*)i;\n" " if (GTK_OBJECT_FLOATING (object)) {\n" " g_object_ref (object);\n" " gtk_object_sink (GTK_OBJECT (object));\n" " }\n" "}\n")) (define-method (initializations-cg (self ) err) (list (next-method) "gtk_init (NULL, NULL);\n" "scm_register_gtype_instance_sinkfunc (GTK_TYPE_OBJECT, sink_gtkobject);\n" "scm_register_gobject_postmakefunc (GTK_TYPE_WINDOW, g_object_ref);\n" "scm_register_gobject_postmakefunc (GTK_TYPE_INVISIBLE, g_object_ref);\n")) (define-method (initialize (ws ) initargs) (next-method ws (cons #:module (cons '(gnome gw gtk) initargs))) (add-type-alias! ws "GtkType" ') (wrap-custom-boxed! "GtkTreePath" "GTK_TYPE_TREE_PATH" ;; wrap (list scm-var " = guile_gtk_tree_path_to_scm (" c-var ");\n") ;; unwrap (list c-var " = guile_gtk_scm_to_tree_path (" scm-var ");\n")) (add-type-alias! ws "GtkAllocation*" ') (wrap-opaque-pointer! ws "GtkBindingSet*") (wrap-freeable-pointer! ws "GtkStockItem" "gtk_stock_item_free") (wrap-opaque-pointer! ws "GtkRadioGroup*") (load-defs-with-overrides ws "gnome/defs/gtk.defs")) guile-gnome-platform-2.16.2/gtk/gnome/gw/gtk-support.c0000644000175000017500000007605711751764616023173 0ustar00wingowingo00000000000000/* guile-gnome * Copyright (C) 2003, 2010 Andy Wingo * * gtk-support.c: Customizations for guile-gtk * * This program is free software; you can redistribute it and/or * modify it under the terms of the GNU General Public License as * published by the Free Software Foundation; either version 2 of * the License, or (at your option) any later version. * * This program is distributed in the hope that it will be useful, * but WITHOUT ANY WARRANTY; without even the implied warranty of * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the * GNU General Public License for more details. * * You should have received a copy of the GNU General Public License * along with this program; if not, contact: * * Free Software Foundation Voice: +1-617-542-5942 * 59 Temple Place - Suite 330 Fax: +1-617-542-2652 * Boston, MA 02111-1307, USA gnu@gnu.org * * Based on work Copyright (C) 2003 James Henstridge */ #include #include "guile-support.h" #include "gtk-support.h" /* python-gtk defines a nice series of classes to access rows as elements of a sequence and to access their fields via a sequence interface. I wish we could do that in guile. Food for thought. */ SCM guile_gtk_tree_path_to_scm (GtkTreePath *path) { gint len, i, *indices; SCM ret; len = gtk_tree_path_get_depth(path); indices = gtk_tree_path_get_indices(path); ret = SCM_EOL; for (i = len; i > 0; i--) ret = scm_cons (scm_from_int (indices[i-1]), ret); return ret; } GtkTreePath* guile_gtk_scm_to_tree_path (SCM scm) #define FUNC_NAME "guile-gtk-scm-to-tree-path" { if (scm_is_string (scm)) { GtkTreePath *ret; scm_dynwind_begin (0); ret = gtk_tree_path_new_from_string (scm_to_locale_string_dynwind (scm)); scm_dynwind_end (); return ret; } else if (scm_is_unsigned_integer (scm, 0, SCM_T_UINT32_MAX)) { GtkTreePath *ret = gtk_tree_path_new (); gtk_tree_path_append_index (ret, scm_to_uint (scm)); return ret; } else if (SCM_EQ_P (scm, SCM_EOL)) { return NULL; } else if (SCM_NFALSEP (scm_list_p (scm))) { GtkTreePath *path = gtk_tree_path_new (); for (; !SCM_EQ_P (scm, SCM_EOL); scm = SCM_CDR (scm)) gtk_tree_path_append_index (path, scm_to_uint (scm_car (scm))); return path; } return NULL; } #undef FUNC_NAME #define GET_ACTION_STR(var,n)\ do {\ if (n < l) {\ SCM x = scm_list_ref (entry, scm_from_uint16 (n)); \ SCM_ASSERT (scm_is_false (x) || scm_is_string (x), entry,\ 2, FUNC_NAME);\ var = scm_is_false (x) ? NULL : scm_to_locale_string_dynwind (x);\ } else {\ var = NULL;\ }\ }while (0) #define GET_ACTION_BOOL(var,n)\ do {\ if (n < l) {\ var = SCM_NFALSEP (scm_list_ref (entry, scm_from_uint16 (n))); \ } else {\ var = FALSE;\ }\ }while (0) #define GET_ACTION_INT(var,n)\ do {\ if (n < l) {\ SCM x = scm_list_ref (entry, scm_from_uint16 (n)); \ SCM_ASSERT (scm_is_signed_integer (x, SCM_T_INT32_MIN, \ SCM_T_INT32_MAX), \ entry, 2, FUNC_NAME);\ var = scm_to_int (x);\ } else {\ var = 0;\ }\ }while (0) void _wrap_gtk_action_group_add_actions (GtkActionGroup *action_group, SCM entries) #define FUNC_NAME "gtk-action-group-add-actions" { static SCM connect = SCM_BOOL_F; SCM entry, x; GtkAction *action; char *name, *stock_id, *label, *accelerator, *tooltip; gint l; SCM_VALIDATE_NONEMPTYLIST (1, entries); if (SCM_FALSEP (connect)) connect = SCM_VARIABLE_REF (scm_c_module_lookup (scm_c_resolve_module ("gnome gobject"), "gtype-instance-signal-connect")); scm_dynwind_begin (0); for (; SCM_NNULLP (entries); entries = SCM_CDR (entries)) { entry = SCM_CAR (entries); SCM_VALIDATE_NONEMPTYLIST (1, entry); l = scm_ilength (entry); SCM_ASSERT (l > 0 && l <= 6, entry, 2, FUNC_NAME); GET_ACTION_STR (name, 0); SCM_ASSERT (name != NULL, entry, 2, FUNC_NAME); GET_ACTION_STR (stock_id, 1); GET_ACTION_STR (label, 2); GET_ACTION_STR (accelerator, 3); GET_ACTION_STR (tooltip, 4); action = g_object_new (GTK_TYPE_ACTION, "name", name, "label", label, "tooltip", tooltip, "stock_id", stock_id, NULL); if (5 < l && SCM_NFALSEP ((x = scm_list_ref (entry, scm_from_uint16 (5))))) scm_call_3 (connect, scm_c_gtype_instance_to_scm ((GTypeInstance*)action), scm_from_locale_symbol ("activate"), x); gtk_action_group_add_action_with_accel (action_group, action, accelerator); g_object_unref (action); } scm_dynwind_end (); } #undef FUNC_NAME void _wrap_gtk_action_group_add_toggle_actions (GtkActionGroup *action_group, SCM entries) #define FUNC_NAME "gtk-action-group-add-toggle-actions" { static SCM connect = SCM_BOOL_F; SCM entry, x; GtkToggleAction *action; char *name, *stock_id, *label, *accelerator, *tooltip; gboolean is_active; gint l; SCM_VALIDATE_NONEMPTYLIST (1, entries); if (SCM_FALSEP (connect)) connect = SCM_VARIABLE_REF (scm_c_module_lookup (scm_c_resolve_module ("gnome gobject"), "gtype-instance-signal-connect")); scm_dynwind_begin (0); for (; SCM_NNULLP (entries); entries = SCM_CDR (entries)) { entry = SCM_CAR (entries); SCM_VALIDATE_NONEMPTYLIST (1, entry); l = scm_ilength (entry); SCM_ASSERT (l > 0 && l <= 7, entry, 2, FUNC_NAME); GET_ACTION_STR (name, 0); SCM_ASSERT (name != NULL, entry, 2, FUNC_NAME); GET_ACTION_STR (stock_id, 1); GET_ACTION_STR (label, 2); GET_ACTION_STR (accelerator, 3); GET_ACTION_STR (tooltip, 4); action = g_object_new (GTK_TYPE_TOGGLE_ACTION, "name", name, "label", label, "tooltip", tooltip, "stock_id", stock_id, NULL); if (5 < l && SCM_NFALSEP ((x = scm_list_ref (entry, scm_from_uint16 (5))))) scm_call_3 (connect, scm_c_gtype_instance_to_scm ((GTypeInstance*)action), scm_from_locale_symbol ("activate"), x); GET_ACTION_BOOL (is_active, 6); gtk_toggle_action_set_active (action, is_active); gtk_action_group_add_action_with_accel (action_group, GTK_ACTION (action), accelerator); g_object_unref (action); } scm_dynwind_end (); } #undef FUNC_NAME static void action_group_radio_actions_callback(GtkAction *action, GtkRadioAction *current, gpointer user_data) { SCM proc; proc = GPOINTER_TO_SCM (user_data); scm_call_2 (proc, scm_c_gtype_instance_to_scm ((GTypeInstance*) action), scm_c_gtype_instance_to_scm ((GTypeInstance*) current)); } void _wrap_gtk_action_group_add_radio_actions (GtkActionGroup *action_group, SCM entries, gint value, SCM on_change) #define FUNC_NAME "gtk-action-group-add-radio-actions" { GtkRadioActionEntry *raes; SCM entry; gint len, i, l; SCM_VALIDATE_NONEMPTYLIST (1, entries); SCM_VALIDATE_PROC (4, on_change); len = scm_ilength (entries); raes = g_new0 (GtkRadioActionEntry, len); scm_dynwind_begin (0); for (i=0; SCM_NNULLP (entries); entries = SCM_CDR (entries), i++) { entry = SCM_CAR (entries); SCM_VALIDATE_NONEMPTYLIST (1, entry); l = scm_ilength (entry); SCM_ASSERT (l == 6, entry, 2, FUNC_NAME); GET_ACTION_STR (raes[i].name, 0); SCM_ASSERT (raes[i].name != NULL, entry, 2, FUNC_NAME); GET_ACTION_STR (raes[i].stock_id, 1); GET_ACTION_STR (raes[i].label, 2); GET_ACTION_STR (raes[i].accelerator, 3); GET_ACTION_STR (raes[i].tooltip, 4); GET_ACTION_INT (raes[i].value, 5); } gtk_action_group_add_radio_actions (action_group, raes, len, value, G_CALLBACK (action_group_radio_actions_callback), SCM_TO_GPOINTER (on_change)); scm_dynwind_end (); g_free (raes); } #undef FUNC_NAME void _wrap_gtk_clipboard_set_text (GtkClipboard *clipboard, const gchar *text) { gtk_clipboard_set_text (clipboard, text, strlen (text)); } gint _wrap_gtk_editable_insert_text (GtkEditable *editable, const gchar *text, gint pos) { gtk_editable_insert_text (editable, text, strlen (text), &pos); return pos; } GtkWidget* _wrap_gtk_dialog_get_vbox (GtkDialog *dialog) { return dialog->vbox; } GtkWidget* _wrap_gtk_dialog_get_action_area (GtkDialog *dialog) { return dialog->action_area; } GtkWidget* _wrap_gtk_color_selection_dialog_get_colorsel (GtkColorSelectionDialog *dialog) { return dialog->colorsel; } GtkWidget* _wrap_gtk_color_selection_dialog_get_ok_button (GtkColorSelectionDialog *dialog) { return dialog->ok_button; } GtkWidget* _wrap_gtk_color_selection_dialog_get_cancel_button (GtkColorSelectionDialog *dialog) { return dialog->cancel_button; } GtkWidget* _wrap_gtk_color_selection_dialog_get_help_button (GtkColorSelectionDialog *dialog) { return dialog->help_button; } GtkWidget* _wrap_gtk_file_selection_get_ok_button (GtkFileSelection* selection) { return selection->ok_button; } GtkWidget* _wrap_gtk_file_selection_get_cancel_button (GtkFileSelection* selection) { return selection->cancel_button; } GtkListStore* _wrap_gtk_list_store_new (SCM col_types) #define FUNC_NAME "gtk-list-store-new" { GType *col_gtypes; gint len, i; GtkListStore *ret; SCM_VALIDATE_NONEMPTYLIST (1, col_types); len = scm_ilength (col_types); col_gtypes = g_new (GType, len); for (i=0; idata, data->length); } void _wrap_gtk_stock_add (SCM items) #define FUNC_NAME "gtk-stock-add" { int len, i; GtkStockItem *stockitems; SCM_ASSERT (SCM_NIMP (items) && SCM_CONSP (items) && SCM_NNULLP (items), items, 1, FUNC_NAME); len = scm_ilength (items); stockitems = g_new0 (GtkStockItem, len); scm_dynwind_begin (0); for (i = 0; i < len ; i++) { SCM item = SCM_CAR(items); SCM_ASSERT (SCM_NIMP (item) && SCM_CONSP (item) && scm_ilength(item) == 5 && scm_is_string (SCM_CAR (item)) && scm_is_string (SCM_CADR (item)) && scm_is_unsigned_integer (SCM_CADDR (item), 0, SCM_T_UINT32_MAX) && scm_is_unsigned_integer (SCM_CADDDR (item), 0, SCM_T_UINT32_MAX), item, 1, FUNC_NAME); stockitems[i].stock_id = scm_to_locale_string_dynwind (SCM_CAR (item)); stockitems[i].label = scm_to_locale_string_dynwind (SCM_CADR (item)); stockitems[i].modifier = scm_to_uint (SCM_CADDR (item)); stockitems[i].keyval = scm_to_uint (SCM_CADDDR (item)); stockitems[i].translation_domain = scm_is_string (SCM_CADDDR (SCM_CDR (item))) ? scm_to_locale_string_dynwind (SCM_CADDDR (SCM_CDR (item))) : NULL; items = SCM_CDR(items); } gtk_stock_add (stockitems, len); scm_dynwind_end (); g_free(stockitems); } #undef FUNC_NAME SCM _wrap_gtk_stock_lookup (const gchar *stock_id) #define FUNC_NAME "gtk-stock-add" { GtkStockItem item; if (gtk_stock_lookup (stock_id, &item)) { return SCM_LIST5 (scm_from_locale_string (item.stock_id), scm_from_locale_string (item.label), scm_from_uint (item.modifier), scm_from_uint (item.keyval), scm_from_locale_string (item.translation_domain)); } return SCM_BOOL_F; } #undef FUNC_NAME void _wrap_gtk_text_buffer_set_text (GtkTextBuffer *buf, SCM stext) #define FUNC_NAME "gtk-text-buffer-set-text" { char *utf8_text; size_t utf8_len; SCM_VALIDATE_STRING (2, stext); scm_dynwind_begin (0); utf8_text = scm_to_utf8_stringn_dynwind (stext, &utf8_len); gtk_text_buffer_set_text (buf, utf8_text, utf8_len); scm_dynwind_end (); } #undef FUNC_NAME void _wrap_gtk_text_buffer_insert (GtkTextBuffer *buf, GtkTextIter* iter, SCM stext) #define FUNC_NAME "gtk-text-buffer-insert" { char *utf8_text; size_t utf8_len; SCM_VALIDATE_STRING (3, stext); scm_dynwind_begin (0); utf8_text = scm_to_utf8_stringn_dynwind (stext, &utf8_len); gtk_text_buffer_insert (buf, iter, utf8_text, utf8_len); scm_dynwind_end (); } #undef FUNC_NAME void _wrap_gtk_text_buffer_insert_at_cursor (GtkTextBuffer *buf, SCM stext) #define FUNC_NAME "gtk-text-buffer-insert-at-cursor" { char *utf8_text; size_t utf8_len; SCM_VALIDATE_STRING (2, stext); scm_dynwind_begin (0); utf8_text = scm_to_utf8_stringn_dynwind (stext, &utf8_len); gtk_text_buffer_insert_at_cursor (buf, utf8_text, utf8_len); scm_dynwind_end (); } #undef FUNC_NAME gboolean _wrap_gtk_text_buffer_insert_interactive (GtkTextBuffer *buf, GtkTextIter* iter, SCM stext, gboolean default_editable) #define FUNC_NAME "gtk-text-buffer-insert-interactive" { char *utf8_text; size_t utf8_len; gboolean ret; SCM_VALIDATE_STRING (3, stext); scm_dynwind_begin (0); utf8_text = scm_to_utf8_stringn_dynwind (stext, &utf8_len); ret = gtk_text_buffer_insert_interactive (buf, iter, utf8_text, utf8_len, default_editable); scm_dynwind_end (); return ret; } #undef FUNC_NAME gboolean _wrap_gtk_text_buffer_insert_interactive_at_cursor (GtkTextBuffer *buf, SCM stext, gboolean default_editable) #define FUNC_NAME "gtk-text-buffer-insert-interactive-at-cursor" { char *utf8_text; size_t utf8_len; gboolean ret; SCM_VALIDATE_STRING (2, stext); scm_dynwind_begin (0); utf8_text = scm_to_utf8_stringn_dynwind (stext, &utf8_len); ret = gtk_text_buffer_insert_interactive_at_cursor (buf, utf8_text, utf8_len, default_editable); scm_dynwind_end (); return ret; } #undef FUNC_NAME void _wrap_gtk_text_buffer_insert_with_tags (GtkTextBuffer *buf, GtkTextIter* iter, SCM stext, GList* tag_list) #define FUNC_NAME "gtk-text-buffer-insert-with-tags" { char *utf8_text; size_t utf8_len; GtkTextIter start; GList *walk; gint start_offset; /* based on gtktextbuffer.c (LGPL) */ SCM_VALIDATE_STRING (3, stext); scm_dynwind_begin (0); start_offset = gtk_text_iter_get_offset (iter); utf8_text = scm_to_utf8_stringn_dynwind (stext, &utf8_len); gtk_text_buffer_insert (buf, iter, utf8_text, utf8_len); gtk_text_buffer_get_iter_at_offset (buf, &start, start_offset); for (walk = tag_list; walk; walk = walk->next) gtk_text_buffer_apply_tag (buf, (GtkTextTag*)walk->data, &start, iter); g_list_free (tag_list); scm_dynwind_end (); } #undef FUNC_NAME void _wrap_gtk_text_buffer_insert_with_tags_by_name (GtkTextBuffer *buf, GtkTextIter* iter, SCM stext, GList* tag_list) #define FUNC_NAME "gtk-text-buffer-insert-with-tags-by-name" { char *utf8_text; size_t utf8_len; GtkTextIter start; GList *walk; gint start_offset; /* based on gtktextbuffer.c (LGPL) */ SCM_VALIDATE_STRING (3, stext); scm_dynwind_begin (0); start_offset = gtk_text_iter_get_offset (iter); utf8_text = scm_to_utf8_stringn_dynwind (stext, &utf8_len); gtk_text_buffer_insert (buf, iter, utf8_text, utf8_len); gtk_text_buffer_get_iter_at_offset (buf, &start, start_offset); for (walk = tag_list; walk; walk = walk->next) gtk_text_buffer_apply_tag (buf, gtk_text_tag_table_lookup (buf->tag_table, (gchar*)walk->data), &start, iter); g_list_free (tag_list); scm_dynwind_end (); } #undef FUNC_NAME GtkTextIter* _wrap_gtk_text_buffer_get_iter_at_line_offset (GtkTextBuffer *buf, gint line_number, gint char_offset) { GtkTextIter iter; gtk_text_buffer_get_iter_at_line_offset (buf, &iter, line_number, char_offset); return gtk_text_iter_copy (&iter); } GtkTextIter* _wrap_gtk_text_buffer_get_iter_at_line_index (GtkTextBuffer *buf, gint line_number, gint byte_index) { GtkTextIter iter; gtk_text_buffer_get_iter_at_line_index (buf, &iter, line_number, byte_index); return gtk_text_iter_copy (&iter); } GtkTextIter* _wrap_gtk_text_buffer_get_iter_at_offset (GtkTextBuffer *buf, gint char_offset) { GtkTextIter iter; gtk_text_buffer_get_iter_at_offset (buf, &iter, char_offset); return gtk_text_iter_copy (&iter); } GtkTextIter* _wrap_gtk_text_buffer_get_iter_at_line (GtkTextBuffer *buf, gint line_number) { GtkTextIter iter; gtk_text_buffer_get_iter_at_line (buf, &iter, line_number); return gtk_text_iter_copy (&iter); } GtkTextIter* _wrap_gtk_text_buffer_get_start_iter (GtkTextBuffer *buf) { GtkTextIter iter; gtk_text_buffer_get_start_iter (buf, &iter); return gtk_text_iter_copy (&iter); } GtkTextIter* _wrap_gtk_text_buffer_get_end_iter (GtkTextBuffer *buf) { GtkTextIter iter; gtk_text_buffer_get_end_iter (buf, &iter); return gtk_text_iter_copy (&iter); } SCM _wrap_gtk_text_buffer_get_bounds (GtkTextBuffer *buf) { GtkTextIter start, end; SCM sstart, send; gtk_text_buffer_get_bounds (buf, &start, &end); sstart = scm_c_gvalue_new_from_boxed (GTK_TYPE_TEXT_ITER, &start); send = scm_c_gvalue_new_from_boxed (GTK_TYPE_TEXT_ITER, &end); return scm_values (SCM_LIST2 (sstart, send)); } SCM _wrap_gtk_text_buffer_get_selection_bounds (GtkTextBuffer *buf) { GtkTextIter start, end; SCM sstart, send; if (gtk_text_buffer_get_selection_bounds (buf, &start, &end)) { sstart = scm_c_gvalue_new_from_boxed (GTK_TYPE_TEXT_ITER, &start); send = scm_c_gvalue_new_from_boxed (GTK_TYPE_TEXT_ITER, &end); return scm_values (SCM_LIST2 (sstart, send)); } return scm_values (SCM_LIST2 (SCM_BOOL_F, SCM_BOOL_F)); } GtkTextIter* _wrap_gtk_text_buffer_get_iter_at_mark (GtkTextBuffer *buf, GtkTextMark* mark) { GtkTextIter iter; gtk_text_buffer_get_iter_at_mark (buf, &iter, mark); return gtk_text_iter_copy (&iter); } GtkTextIter* _wrap_gtk_text_buffer_get_iter_at_child_anchor (GtkTextBuffer *buf, GtkTextChildAnchor* anchor) { GtkTextIter iter; gtk_text_buffer_get_iter_at_child_anchor (buf, &iter, anchor); return gtk_text_iter_copy (&iter); } GtkTreeIter* _wrap_gtk_tree_model_get_iter (GtkTreeModel *model, GtkTreePath *path) { GtkTreeIter new; if (gtk_tree_model_get_iter (model, &new, path)) return gtk_tree_iter_copy (&new); return NULL; } GtkTreeIter* _wrap_gtk_tree_model_get_iter_first (GtkTreeModel *model) { GtkTreeIter new; if (gtk_tree_model_get_iter_first (model, &new)) return gtk_tree_iter_copy (&new); return NULL; } SCM _wrap_gtk_tree_model_get_value (GtkTreeModel *model, GtkTreeIter *iter, gint column) { GValue value = { 0, }; gtk_tree_model_get_value (model, iter, column, &value); return scm_c_gvalue_to_scm (&value); } GtkTreeIter* _wrap_gtk_tree_model_iter_next (GtkTreeModel *model, GtkTreeIter *iter) { GtkTreeIter *new = gtk_tree_iter_copy (iter); if (gtk_tree_model_iter_next (model, new)) return new; gtk_tree_iter_free (new); return NULL; } GList* _wrap_gtk_tree_model_iter_children (GtkTreeModel *model, GtkTreeIter *iter) { GList *list = NULL; GtkTreeIter prev; if (gtk_tree_model_iter_children (model, &prev, iter)) { while (1) { list = g_list_prepend (list, gtk_tree_iter_copy (&prev)); if (!gtk_tree_model_iter_next (model, &prev)) { return g_list_reverse (list); } } } return NULL; } GtkTreeIter* _wrap_gtk_tree_model_iter_parent (GtkTreeModel *model, GtkTreeIter *iter) { GtkTreeIter new; if (gtk_tree_model_iter_parent (model, &new, iter)) return gtk_tree_iter_copy (&new); return NULL; } GtkTreeIter* _wrap_gtk_tree_model_iter_nth_child (GtkTreeModel *model, GtkTreeIter *iter, gint n) { GtkTreeIter new; if (gtk_tree_model_iter_nth_child (model, &new, iter, n)) return gtk_tree_iter_copy (&new); return NULL; } SCM _wrap_gtk_tree_selection_get_selected (GtkTreeSelection *selection) { GtkTreeIter iter; GtkTreeModel *model = NULL; if (gtk_tree_selection_get_selected (selection, &model, &iter)) { SCM smodel, siter; g_object_ref (model); smodel = scm_c_gtype_instance_to_scm ((GTypeInstance*)model); siter = scm_c_gvalue_new_from_boxed (GTK_TYPE_TREE_ITER, &iter); return scm_values (SCM_LIST2 (smodel, siter)); } return scm_values (SCM_LIST2 (SCM_BOOL_F, SCM_BOOL_F)); } GtkTreeStore* _wrap_gtk_tree_store_new (SCM col_types) #define FUNC_NAME "gtk-tree-store-new" { GType *col_gtypes; gint len, i; GtkTreeStore *ret; SCM_VALIDATE_NONEMPTYLIST (1, col_types); len = scm_ilength (col_types); col_gtypes = g_new (GType, len); for (i=0; inext) entries[i].target = (gchar*)l->data; gtk_drag_dest_set (widget, flags, entries, n, actions); } GdkGC* gtk_style_get_fg_gc (GtkStyle *style, GtkStateType state) { return style->fg_gc[state]; } GdkGC* gtk_style_get_bg_gc (GtkStyle *style, GtkStateType state) { return style->bg_gc[state]; } GdkGC* gtk_style_get_white_gc (GtkStyle *style) { return style->white_gc; } GdkGC* gtk_style_get_black_gc (GtkStyle *style) { return style->black_gc; } GdkWindow* gtk_widget_get_window (GtkWidget *widget) { return GTK_WIDGET_NO_WINDOW (widget) ? NULL : widget->window; } GdkRectangle* _wrap_gtk_widget_get_allocation (GtkWidget *widget) { GdkRectangle *ret = g_new (GdkRectangle, 1); #if GTK_CHECK_VERSION(2,18,0) gtk_widget_get_allocation (widget, (GtkAllocation*)ret); #else *ret = widget->allocation; #endif return ret; } GtkStateType gtk_widget_get_state (GtkWidget *widget) { g_return_val_if_fail (widget != NULL, 0); g_return_val_if_fail (GTK_IS_WIDGET (widget), 0); return GTK_WIDGET_STATE (widget); } guile-gnome-platform-2.16.2/gtk/gnome/gw/gtk-support.h0000644000175000017500000001653311670374303023157 0ustar00wingowingo00000000000000/* guile-gnome * Copyright (C) 2003,2004,2010 Andy Wingo * * gtk-support.h: Customizations for guile-gtk * * This program is free software; you can redistribute it and/or * modify it under the terms of the GNU General Public License as * published by the Free Software Foundation; either version 2 of * the License, or (at your option) any later version. * * This program is distributed in the hope that it will be useful, * but WITHOUT ANY WARRANTY; without even the implied warranty of * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the * GNU General Public License for more details. * * You should have received a copy of the GNU General Public License * along with this program; if not, contact: * * Free Software Foundation Voice: +1-617-542-5942 * 59 Temple Place - Suite 330 Fax: +1-617-542-2652 * Boston, MA 02111-1307, USA gnu@gnu.org * * Based on work Copyright (C) 2003 James Henstridge */ #include #include "guile-gnome-gobject.h" #include SCM guile_gtk_tree_path_to_scm (GtkTreePath *path); GtkTreePath* guile_gtk_scm_to_tree_path (SCM scm); void _wrap_gtk_action_group_add_actions (GtkActionGroup* action_group, SCM entries); void _wrap_gtk_action_group_add_toggle_actions (GtkActionGroup *action_group, SCM entries); void _wrap_gtk_action_group_add_radio_actions (GtkActionGroup *action_group, SCM entries, gint value, SCM on_change); void _wrap_gtk_clipboard_set_text (GtkClipboard *clipboard, const gchar *text); GtkWidget* _wrap_gtk_dialog_get_vbox (GtkDialog *dialog); GtkWidget* _wrap_gtk_dialog_get_action_area (GtkDialog *dialog); GtkWidget* _wrap_gtk_color_selection_dialog_get_colorsel (GtkColorSelectionDialog *dialog); GtkWidget* _wrap_gtk_color_selection_dialog_get_ok_button (GtkColorSelectionDialog *dialog); GtkWidget* _wrap_gtk_color_selection_dialog_get_cancel_button (GtkColorSelectionDialog *dialog); GtkWidget* _wrap_gtk_color_selection_dialog_get_help_button (GtkColorSelectionDialog *dialog); gint _wrap_gtk_editable_insert_text (GtkEditable *editable, const gchar *text, gint pos); GtkWidget* _wrap_gtk_file_selection_get_ok_button (GtkFileSelection* selection); GtkWidget* _wrap_gtk_file_selection_get_cancel_button (GtkFileSelection* selection); GtkListStore* _wrap_gtk_list_store_new (SCM col_types); void _wrap_gtk_list_store_set_value (GtkListStore *store, GtkTreeIter *iter, gint column, SCM scm); GtkTreeIter* _wrap_gtk_list_store_remove (GtkListStore *store, GtkTreeIter *iter); GtkTreeIter* _wrap_gtk_list_store_insert (GtkListStore *store, gint position); GtkTreeIter* _wrap_gtk_list_store_insert_before (GtkListStore *store, GtkTreeIter *sibling); GtkTreeIter* _wrap_gtk_list_store_insert_after (GtkListStore *store, GtkTreeIter *sibling); GtkTreeIter* _wrap_gtk_list_store_prepend (GtkListStore *store); GtkTreeIter* _wrap_gtk_list_store_append (GtkListStore *store); void _wrap_gtk_menu_popup (GtkMenu *menu, GtkWidget *parent_menu_shell, GtkWidget *parent_menu_item, SCM func, guint button, guint32 activate_time); SCM _wrap_gtk_message_dialog_new (GtkWindow* parent, GtkDialogFlags flags, GtkMessageType type, GtkButtonsType buttons, const gchar *text); gchar* _gtk_selection_data_get_as_string (GtkSelectionData *data); void _wrap_gtk_stock_add (SCM items); SCM _wrap_gtk_stock_lookup (const gchar *stock_id); GdkGC* gtk_style_get_fg_gc (GtkStyle *style, GtkStateType state); GdkGC* gtk_style_get_bg_gc (GtkStyle *style, GtkStateType state); GdkGC* gtk_style_get_white_gc (GtkStyle *style); GdkGC* gtk_style_get_black_gc (GtkStyle *style); void _wrap_gtk_text_buffer_set_text (GtkTextBuffer *buf, SCM stext); void _wrap_gtk_text_buffer_insert (GtkTextBuffer *buf, GtkTextIter* iter, SCM stext); void _wrap_gtk_text_buffer_insert_at_cursor (GtkTextBuffer *buf, SCM stext); gboolean _wrap_gtk_text_buffer_insert_interactive (GtkTextBuffer *buf, GtkTextIter* iter, SCM stext, gboolean default_editable); gboolean _wrap_gtk_text_buffer_insert_interactive_at_cursor (GtkTextBuffer *buf, SCM stext, gboolean default_editable); void _wrap_gtk_text_buffer_insert_with_tags (GtkTextBuffer *buf, GtkTextIter* iter, SCM stext, GList* tag_list); void _wrap_gtk_text_buffer_insert_with_tags_by_name (GtkTextBuffer *buf, GtkTextIter* iter, SCM stext, GList* tag_list); GtkTextIter* _wrap_gtk_text_buffer_get_iter_at_line_offset (GtkTextBuffer *buf, gint line_number, gint char_offset); GtkTextIter* _wrap_gtk_text_buffer_get_iter_at_line_index (GtkTextBuffer *buf, gint line_number, gint byte_index); GtkTextIter* _wrap_gtk_text_buffer_get_iter_at_offset (GtkTextBuffer *buf, gint char_offset); GtkTextIter* _wrap_gtk_text_buffer_get_iter_at_line (GtkTextBuffer *buf, gint line_number); GtkTextIter* _wrap_gtk_text_buffer_get_start_iter (GtkTextBuffer *buf); GtkTextIter* _wrap_gtk_text_buffer_get_end_iter (GtkTextBuffer *buf); SCM _wrap_gtk_text_buffer_get_bounds (GtkTextBuffer *buf); SCM _wrap_gtk_text_buffer_get_selection_bounds (GtkTextBuffer *buf); GtkTextIter* _wrap_gtk_text_buffer_get_iter_at_mark (GtkTextBuffer *buf, GtkTextMark* mark); GtkTextIter* _wrap_gtk_text_buffer_get_iter_at_child_anchor (GtkTextBuffer *buf, GtkTextChildAnchor* anchor); GtkTreeIter* _wrap_gtk_tree_model_get_iter (GtkTreeModel *model, GtkTreePath *path); GtkTreeIter* _wrap_gtk_tree_model_get_iter_first (GtkTreeModel *model); SCM _wrap_gtk_tree_model_get_value (GtkTreeModel *model, GtkTreeIter *iter, gint column); GtkTreeIter* _wrap_gtk_tree_model_iter_next (GtkTreeModel *model, GtkTreeIter *iter); GList* _wrap_gtk_tree_model_iter_children (GtkTreeModel *model, GtkTreeIter *iter); GtkTreeIter* _wrap_gtk_tree_model_iter_parent (GtkTreeModel *model, GtkTreeIter *child); GtkTreeIter* _wrap_gtk_tree_model_iter_nth_child (GtkTreeModel *model, GtkTreeIter *iter, gint n); SCM _wrap_gtk_tree_selection_get_selected (GtkTreeSelection *selection); GtkTreeStore* _wrap_gtk_tree_store_new (SCM col_types); void _wrap_gtk_tree_store_set_value (GtkTreeStore *store, GtkTreeIter *iter, gint column, SCM scm); GtkTreeIter* _wrap_gtk_tree_store_remove (GtkTreeStore *store, GtkTreeIter *iter); GtkTreeIter* _wrap_gtk_tree_store_insert (GtkTreeStore *store, GtkTreeIter *parent, gint position); GtkTreeIter* _wrap_gtk_tree_store_insert_before (GtkTreeStore *store, GtkTreeIter *parent, GtkTreeIter *sibling); GtkTreeIter* _wrap_gtk_tree_store_insert_after (GtkTreeStore *store, GtkTreeIter *parent, GtkTreeIter *sibling); GtkTreeIter* _wrap_gtk_tree_store_prepend (GtkTreeStore *store, GtkTreeIter *parent); GtkTreeIter* _wrap_gtk_tree_store_append (GtkTreeStore *store, GtkTreeIter *parent); SCM _wrap_gtk_tree_view_get_path_at_pos (GtkTreeView *treeview, gint x, gint y); void _wrap_gtk_tree_view_column_set_cell_data_func (GtkTreeViewColumn *tree_column, GtkCellRenderer *cell_renderer, SCM proc); guint _wrap_gtk_ui_manager_add_ui_from_string (GtkUIManager *ui, const gchar *string, GError **error); GdkWindow* gtk_widget_get_window (GtkWidget *widget); GdkRectangle* _wrap_gtk_widget_get_allocation (GtkWidget *widget); void _wrap_gtk_drag_dest_set (GtkWidget *widget, GtkDestDefaults flags, const GList *types, GdkDragAction actions); GtkStateType gtk_widget_get_state (GtkWidget *widget); guile-gnome-platform-2.16.2/gtk/gnome/gtk/0000755000175000017500000000000011752546501020651 5ustar00wingowingo00000000000000guile-gnome-platform-2.16.2/gtk/gnome/gtk/gdk-event.scm0000644000175000017500000015222111670743734023252 0ustar00wingowingo00000000000000;; guile-gnome ;; Copyright (C) 2003,2004,2007 Andy Wingo ;; This program is free software; you can redistribute it and/or ;; modify it under the terms of the GNU General Public License as ;; published by the Free Software Foundation; either version 2 of ;; the License, or (at your option) any later version. ;; ;; This program is distributed in the hope that it will be useful, ;; but WITHOUT ANY WARRANTY; without even the implied warranty of ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the ;; GNU General Public License for more details. ;; ;; You should have received a copy of the GNU General Public License ;; along with this program; if not, contact: ;; ;; Free Software Foundation Voice: +1-617-542-5942 ;; 59 Temple Place - Suite 330 Fax: +1-617-542-2652 ;; Boston, MA 02111-1307, USA gnu@gnu.org ;;; Commentary: ;; ;;GdkEvent wrapper functions and keyvals. ;; ;;; Code: (define-module (gnome gtk gdk-event) #:use-module (gnome gw gdk) #:use-module (gnome gobject) #:use-module (oop goops)) (define-public (gdk-event:type event) (let ((vector (gdk-event->vector event))) (if vector (genum->symbol (make #:value (vector-ref vector 0))) #f))) ;; #f can happen if gdk-support.c needs some work... (define-macro (define-gdk-event-accessor types kind name index code) (define (symbol-append . args) (string->symbol (apply string-append (map symbol->string args)))) `(define-public (,(symbol-append 'gdk-event- kind (string->symbol ":") name) event) (let ((vector (gdk-event->vector event))) (case (gdk-event:type event) (,types (let ((val (vector-ref vector ,index))) ,code)) (else (gruntime-error "Event not of the proper type: ~A" event)))))) (define-gdk-event-accessor (key-press key-release) key modifiers 4 (gflags->symbol-list ;; We have to do some hackery here, because there are bitmasks ;; used by XKB that we don't know about. (make #:value (logand #x1fff val)))) (define-gdk-event-accessor (key-press key-release) key keyval 5 val) (define-gdk-event-accessor (selection-notify selection-clear selection-request) selection selection 3 (string->symbol val)) (define-gdk-event-accessor (button-press button-release 2button-press 2button-release 3button-press 3button-release) button time 3 val) (define-gdk-event-accessor (button-press button-release 2button-press 2button-release 3button-press 3button-release) button x 4 val) (define-gdk-event-accessor (button-press button-release 2button-press 2button-release 3button-press 3button-release) button y 5 val) (define-gdk-event-accessor (button-press button-release 2button-press 2button-release 3button-press 3button-release) button modifiers 6 (gflags->symbol-list (make #:value val))) (define-gdk-event-accessor (button-press button-release 2button-press 2button-release 3button-press 3button-release) button button 7 val) (define-gdk-event-accessor (button-press button-release 2button-press 2button-release 3button-press 3button-release) button x-root 9 val) (define-gdk-event-accessor (button-press button-release 2button-press 2button-release 3button-press 3button-release) button y-root 10 val) (define-gdk-event-accessor (motion-notify) motion modifiers 6 (gflags->symbol-list (make #:value val))) (define-gdk-event-accessor (motion-notify) motion x 4 val) (define-gdk-event-accessor (motion-notify) motion y 5 val) (define-gdk-event-accessor (window-state) window-state changed-mask 3 (gflags->symbol-list (make #:value val))) (define-gdk-event-accessor (window-state) window-state new-window-state 4 (gflags->symbol-list (make #:value val))) (define-gdk-event-accessor (expose) expose area 3 val) ;; ;; Update this list with the following bit of perl: ;; perl -p -e 's/#define GDK_/(define-public gdk:/; s/_/-/g; s/0x/#x/; s/$/)/;' \ ;; < /usr/include/gtk-2.0/gdk/gdkkeysyms.h ;; (define-public gdk:VoidSymbol #xFFFFFF) (define-public gdk:BackSpace #xFF08) (define-public gdk:Tab #xFF09) (define-public gdk:Linefeed #xFF0A) (define-public gdk:Clear #xFF0B) (define-public gdk:Return #xFF0D) (define-public gdk:Pause #xFF13) (define-public gdk:Scroll-Lock #xFF14) (define-public gdk:Sys-Req #xFF15) (define-public gdk:Escape #xFF1B) (define-public gdk:Delete #xFFFF) (define-public gdk:Multi-key #xFF20) (define-public gdk:Codeinput #xFF37) (define-public gdk:SingleCandidate #xFF3C) (define-public gdk:MultipleCandidate #xFF3D) (define-public gdk:PreviousCandidate #xFF3E) (define-public gdk:Kanji #xFF21) (define-public gdk:Muhenkan #xFF22) (define-public gdk:Henkan-Mode #xFF23) (define-public gdk:Henkan #xFF23) (define-public gdk:Romaji #xFF24) (define-public gdk:Hiragana #xFF25) (define-public gdk:Katakana #xFF26) (define-public gdk:Hiragana-Katakana #xFF27) (define-public gdk:Zenkaku #xFF28) (define-public gdk:Hankaku #xFF29) (define-public gdk:Zenkaku-Hankaku #xFF2A) (define-public gdk:Touroku #xFF2B) (define-public gdk:Massyo #xFF2C) (define-public gdk:Kana-Lock #xFF2D) (define-public gdk:Kana-Shift #xFF2E) (define-public gdk:Eisu-Shift #xFF2F) (define-public gdk:Eisu-toggle #xFF30) (define-public gdk:Kanji-Bangou #xFF37) (define-public gdk:Zen-Koho #xFF3D) (define-public gdk:Mae-Koho #xFF3E) (define-public gdk:Home #xFF50) (define-public gdk:Left #xFF51) (define-public gdk:Up #xFF52) (define-public gdk:Right #xFF53) (define-public gdk:Down #xFF54) (define-public gdk:Prior #xFF55) (define-public gdk:Page-Up #xFF55) (define-public gdk:Next #xFF56) (define-public gdk:Page-Down #xFF56) (define-public gdk:End #xFF57) (define-public gdk:Begin #xFF58) (define-public gdk:Select #xFF60) (define-public gdk:Print #xFF61) (define-public gdk:Execute #xFF62) (define-public gdk:Insert #xFF63) (define-public gdk:Undo #xFF65) (define-public gdk:Redo #xFF66) (define-public gdk:Menu #xFF67) (define-public gdk:Find #xFF68) (define-public gdk:Cancel #xFF69) (define-public gdk:Help #xFF6A) (define-public gdk:Break #xFF6B) (define-public gdk:Mode-switch #xFF7E) (define-public gdk:script-switch #xFF7E) (define-public gdk:Num-Lock #xFF7F) (define-public gdk:KP-Space #xFF80) (define-public gdk:KP-Tab #xFF89) (define-public gdk:KP-Enter #xFF8D) (define-public gdk:KP-F1 #xFF91) (define-public gdk:KP-F2 #xFF92) (define-public gdk:KP-F3 #xFF93) (define-public gdk:KP-F4 #xFF94) (define-public gdk:KP-Home #xFF95) (define-public gdk:KP-Left #xFF96) (define-public gdk:KP-Up #xFF97) (define-public gdk:KP-Right #xFF98) (define-public gdk:KP-Down #xFF99) (define-public gdk:KP-Prior #xFF9A) (define-public gdk:KP-Page-Up #xFF9A) (define-public gdk:KP-Next #xFF9B) (define-public gdk:KP-Page-Down #xFF9B) (define-public gdk:KP-End #xFF9C) (define-public gdk:KP-Begin #xFF9D) (define-public gdk:KP-Insert #xFF9E) (define-public gdk:KP-Delete #xFF9F) (define-public gdk:KP-Equal #xFFBD) (define-public gdk:KP-Multiply #xFFAA) (define-public gdk:KP-Add #xFFAB) (define-public gdk:KP-Separator #xFFAC) (define-public gdk:KP-Subtract #xFFAD) (define-public gdk:KP-Decimal #xFFAE) (define-public gdk:KP-Divide #xFFAF) (define-public gdk:KP-0 #xFFB0) (define-public gdk:KP-1 #xFFB1) (define-public gdk:KP-2 #xFFB2) (define-public gdk:KP-3 #xFFB3) (define-public gdk:KP-4 #xFFB4) (define-public gdk:KP-5 #xFFB5) (define-public gdk:KP-6 #xFFB6) (define-public gdk:KP-7 #xFFB7) (define-public gdk:KP-8 #xFFB8) (define-public gdk:KP-9 #xFFB9) (define-public gdk:F1 #xFFBE) (define-public gdk:F2 #xFFBF) (define-public gdk:F3 #xFFC0) (define-public gdk:F4 #xFFC1) (define-public gdk:F5 #xFFC2) (define-public gdk:F6 #xFFC3) (define-public gdk:F7 #xFFC4) (define-public gdk:F8 #xFFC5) (define-public gdk:F9 #xFFC6) (define-public gdk:F10 #xFFC7) (define-public gdk:F11 #xFFC8) (define-public gdk:L1 #xFFC8) (define-public gdk:F12 #xFFC9) (define-public gdk:L2 #xFFC9) (define-public gdk:F13 #xFFCA) (define-public gdk:L3 #xFFCA) (define-public gdk:F14 #xFFCB) (define-public gdk:L4 #xFFCB) (define-public gdk:F15 #xFFCC) (define-public gdk:L5 #xFFCC) (define-public gdk:F16 #xFFCD) (define-public gdk:L6 #xFFCD) (define-public gdk:F17 #xFFCE) (define-public gdk:L7 #xFFCE) (define-public gdk:F18 #xFFCF) (define-public gdk:L8 #xFFCF) (define-public gdk:F19 #xFFD0) (define-public gdk:L9 #xFFD0) (define-public gdk:F20 #xFFD1) (define-public gdk:L10 #xFFD1) (define-public gdk:F21 #xFFD2) (define-public gdk:R1 #xFFD2) (define-public gdk:F22 #xFFD3) (define-public gdk:R2 #xFFD3) (define-public gdk:F23 #xFFD4) (define-public gdk:R3 #xFFD4) (define-public gdk:F24 #xFFD5) (define-public gdk:R4 #xFFD5) (define-public gdk:F25 #xFFD6) (define-public gdk:R5 #xFFD6) (define-public gdk:F26 #xFFD7) (define-public gdk:R6 #xFFD7) (define-public gdk:F27 #xFFD8) (define-public gdk:R7 #xFFD8) (define-public gdk:F28 #xFFD9) (define-public gdk:R8 #xFFD9) (define-public gdk:F29 #xFFDA) (define-public gdk:R9 #xFFDA) (define-public gdk:F30 #xFFDB) (define-public gdk:R10 #xFFDB) (define-public gdk:F31 #xFFDC) (define-public gdk:R11 #xFFDC) (define-public gdk:F32 #xFFDD) (define-public gdk:R12 #xFFDD) (define-public gdk:F33 #xFFDE) (define-public gdk:R13 #xFFDE) (define-public gdk:F34 #xFFDF) (define-public gdk:R14 #xFFDF) (define-public gdk:F35 #xFFE0) (define-public gdk:R15 #xFFE0) (define-public gdk:Shift-L #xFFE1) (define-public gdk:Shift-R #xFFE2) (define-public gdk:Control-L #xFFE3) (define-public gdk:Control-R #xFFE4) (define-public gdk:Caps-Lock #xFFE5) (define-public gdk:Shift-Lock #xFFE6) (define-public gdk:Meta-L #xFFE7) (define-public gdk:Meta-R #xFFE8) (define-public gdk:Alt-L #xFFE9) (define-public gdk:Alt-R #xFFEA) (define-public gdk:Super-L #xFFEB) (define-public gdk:Super-R #xFFEC) (define-public gdk:Hyper-L #xFFED) (define-public gdk:Hyper-R #xFFEE) (define-public gdk:ISO-Lock #xFE01) (define-public gdk:ISO-Level2-Latch #xFE02) (define-public gdk:ISO-Level3-Shift #xFE03) (define-public gdk:ISO-Level3-Latch #xFE04) (define-public gdk:ISO-Level3-Lock #xFE05) (define-public gdk:ISO-Group-Shift #xFF7E) (define-public gdk:ISO-Group-Latch #xFE06) (define-public gdk:ISO-Group-Lock #xFE07) (define-public gdk:ISO-Next-Group #xFE08) (define-public gdk:ISO-Next-Group-Lock #xFE09) (define-public gdk:ISO-Prev-Group #xFE0A) (define-public gdk:ISO-Prev-Group-Lock #xFE0B) (define-public gdk:ISO-First-Group #xFE0C) (define-public gdk:ISO-First-Group-Lock #xFE0D) (define-public gdk:ISO-Last-Group #xFE0E) (define-public gdk:ISO-Last-Group-Lock #xFE0F) (define-public gdk:ISO-Left-Tab #xFE20) (define-public gdk:ISO-Move-Line-Up #xFE21) (define-public gdk:ISO-Move-Line-Down #xFE22) (define-public gdk:ISO-Partial-Line-Up #xFE23) (define-public gdk:ISO-Partial-Line-Down #xFE24) (define-public gdk:ISO-Partial-Space-Left #xFE25) (define-public gdk:ISO-Partial-Space-Right #xFE26) (define-public gdk:ISO-Set-Margin-Left #xFE27) (define-public gdk:ISO-Set-Margin-Right #xFE28) (define-public gdk:ISO-Release-Margin-Left #xFE29) (define-public gdk:ISO-Release-Margin-Right #xFE2A) (define-public gdk:ISO-Release-Both-Margins #xFE2B) (define-public gdk:ISO-Fast-Cursor-Left #xFE2C) (define-public gdk:ISO-Fast-Cursor-Right #xFE2D) (define-public gdk:ISO-Fast-Cursor-Up #xFE2E) (define-public gdk:ISO-Fast-Cursor-Down #xFE2F) (define-public gdk:ISO-Continuous-Underline #xFE30) (define-public gdk:ISO-Discontinuous-Underline #xFE31) (define-public gdk:ISO-Emphasize #xFE32) (define-public gdk:ISO-Center-Object #xFE33) (define-public gdk:ISO-Enter #xFE34) (define-public gdk:dead-grave #xFE50) (define-public gdk:dead-acute #xFE51) (define-public gdk:dead-circumflex #xFE52) (define-public gdk:dead-tilde #xFE53) (define-public gdk:dead-macron #xFE54) (define-public gdk:dead-breve #xFE55) (define-public gdk:dead-abovedot #xFE56) (define-public gdk:dead-diaeresis #xFE57) (define-public gdk:dead-abovering #xFE58) (define-public gdk:dead-doubleacute #xFE59) (define-public gdk:dead-caron #xFE5A) (define-public gdk:dead-cedilla #xFE5B) (define-public gdk:dead-ogonek #xFE5C) (define-public gdk:dead-iota #xFE5D) (define-public gdk:dead-voiced-sound #xFE5E) (define-public gdk:dead-semivoiced-sound #xFE5F) (define-public gdk:dead-belowdot #xFE60) (define-public gdk:First-Virtual-Screen #xFED0) (define-public gdk:Prev-Virtual-Screen #xFED1) (define-public gdk:Next-Virtual-Screen #xFED2) (define-public gdk:Last-Virtual-Screen #xFED4) (define-public gdk:Terminate-Server #xFED5) (define-public gdk:AccessX-Enable #xFE70) (define-public gdk:AccessX-Feedback-Enable #xFE71) (define-public gdk:RepeatKeys-Enable #xFE72) (define-public gdk:SlowKeys-Enable #xFE73) (define-public gdk:BounceKeys-Enable #xFE74) (define-public gdk:StickyKeys-Enable #xFE75) (define-public gdk:MouseKeys-Enable #xFE76) (define-public gdk:MouseKeys-Accel-Enable #xFE77) (define-public gdk:Overlay1-Enable #xFE78) (define-public gdk:Overlay2-Enable #xFE79) (define-public gdk:AudibleBell-Enable #xFE7A) (define-public gdk:Pointer-Left #xFEE0) (define-public gdk:Pointer-Right #xFEE1) (define-public gdk:Pointer-Up #xFEE2) (define-public gdk:Pointer-Down #xFEE3) (define-public gdk:Pointer-UpLeft #xFEE4) (define-public gdk:Pointer-UpRight #xFEE5) (define-public gdk:Pointer-DownLeft #xFEE6) (define-public gdk:Pointer-DownRight #xFEE7) (define-public gdk:Pointer-Button-Dflt #xFEE8) (define-public gdk:Pointer-Button1 #xFEE9) (define-public gdk:Pointer-Button2 #xFEEA) (define-public gdk:Pointer-Button3 #xFEEB) (define-public gdk:Pointer-Button4 #xFEEC) (define-public gdk:Pointer-Button5 #xFEED) (define-public gdk:Pointer-DblClick-Dflt #xFEEE) (define-public gdk:Pointer-DblClick1 #xFEEF) (define-public gdk:Pointer-DblClick2 #xFEF0) (define-public gdk:Pointer-DblClick3 #xFEF1) (define-public gdk:Pointer-DblClick4 #xFEF2) (define-public gdk:Pointer-DblClick5 #xFEF3) (define-public gdk:Pointer-Drag-Dflt #xFEF4) (define-public gdk:Pointer-Drag1 #xFEF5) (define-public gdk:Pointer-Drag2 #xFEF6) (define-public gdk:Pointer-Drag3 #xFEF7) (define-public gdk:Pointer-Drag4 #xFEF8) (define-public gdk:Pointer-Drag5 #xFEFD) (define-public gdk:Pointer-EnableKeys #xFEF9) (define-public gdk:Pointer-Accelerate #xFEFA) (define-public gdk:Pointer-DfltBtnNext #xFEFB) (define-public gdk:Pointer-DfltBtnPrev #xFEFC) (define-public gdk:3270-Duplicate #xFD01) (define-public gdk:3270-FieldMark #xFD02) (define-public gdk:3270-Right2 #xFD03) (define-public gdk:3270-Left2 #xFD04) (define-public gdk:3270-BackTab #xFD05) (define-public gdk:3270-EraseEOF #xFD06) (define-public gdk:3270-EraseInput #xFD07) (define-public gdk:3270-Reset #xFD08) (define-public gdk:3270-Quit #xFD09) (define-public gdk:3270-PA1 #xFD0A) (define-public gdk:3270-PA2 #xFD0B) (define-public gdk:3270-PA3 #xFD0C) (define-public gdk:3270-Test #xFD0D) (define-public gdk:3270-Attn #xFD0E) (define-public gdk:3270-CursorBlink #xFD0F) (define-public gdk:3270-AltCursor #xFD10) (define-public gdk:3270-KeyClick #xFD11) (define-public gdk:3270-Jump #xFD12) (define-public gdk:3270-Ident #xFD13) (define-public gdk:3270-Rule #xFD14) (define-public gdk:3270-Copy #xFD15) (define-public gdk:3270-Play #xFD16) (define-public gdk:3270-Setup #xFD17) (define-public gdk:3270-Record #xFD18) (define-public gdk:3270-ChangeScreen #xFD19) (define-public gdk:3270-DeleteWord #xFD1A) (define-public gdk:3270-ExSelect #xFD1B) (define-public gdk:3270-CursorSelect #xFD1C) (define-public gdk:3270-PrintScreen #xFD1D) (define-public gdk:3270-Enter #xFD1E) (define-public gdk:space #x020) (define-public gdk:exclam #x021) (define-public gdk:quotedbl #x022) (define-public gdk:numbersign #x023) (define-public gdk:dollar #x024) (define-public gdk:percent #x025) (define-public gdk:ampersand #x026) (define-public gdk:apostrophe #x027) (define-public gdk:quoteright #x027) (define-public gdk:parenleft #x028) (define-public gdk:parenright #x029) (define-public gdk:asterisk #x02a) (define-public gdk:plus #x02b) (define-public gdk:comma #x02c) (define-public gdk:minus #x02d) (define-public gdk:period #x02e) (define-public gdk:slash #x02f) (define-public gdk:0 #x030) (define-public gdk:1 #x031) (define-public gdk:2 #x032) (define-public gdk:3 #x033) (define-public gdk:4 #x034) (define-public gdk:5 #x035) (define-public gdk:6 #x036) (define-public gdk:7 #x037) (define-public gdk:8 #x038) (define-public gdk:9 #x039) (define-public gdk:colon #x03a) (define-public gdk:semicolon #x03b) (define-public gdk:less #x03c) (define-public gdk:equal #x03d) (define-public gdk:greater #x03e) (define-public gdk:question #x03f) (define-public gdk:at #x040) (define-public gdk:A #x041) (define-public gdk:B #x042) (define-public gdk:C #x043) (define-public gdk:D #x044) (define-public gdk:E #x045) (define-public gdk:F #x046) (define-public gdk:G #x047) (define-public gdk:H #x048) (define-public gdk:I #x049) (define-public gdk:J #x04a) (define-public gdk:K #x04b) (define-public gdk:L #x04c) (define-public gdk:M #x04d) (define-public gdk:N #x04e) (define-public gdk:O #x04f) (define-public gdk:P #x050) (define-public gdk:Q #x051) (define-public gdk:R #x052) (define-public gdk:S #x053) (define-public gdk:T #x054) (define-public gdk:U #x055) (define-public gdk:V #x056) (define-public gdk:W #x057) (define-public gdk:X #x058) (define-public gdk:Y #x059) (define-public gdk:Z #x05a) (define-public gdk:bracketleft #x05b) (define-public gdk:backslash #x05c) (define-public gdk:bracketright #x05d) (define-public gdk:asciicircum #x05e) (define-public gdk:underscore #x05f) (define-public gdk:grave #x060) (define-public gdk:quoteleft #x060) (define-public gdk:a #x061) (define-public gdk:b #x062) (define-public gdk:c #x063) (define-public gdk:d #x064) (define-public gdk:e #x065) (define-public gdk:f #x066) (define-public gdk:g #x067) (define-public gdk:h #x068) (define-public gdk:i #x069) (define-public gdk:j #x06a) (define-public gdk:k #x06b) (define-public gdk:l #x06c) (define-public gdk:m #x06d) (define-public gdk:n #x06e) (define-public gdk:o #x06f) (define-public gdk:p #x070) (define-public gdk:q #x071) (define-public gdk:r #x072) (define-public gdk:s #x073) (define-public gdk:t #x074) (define-public gdk:u #x075) (define-public gdk:v #x076) (define-public gdk:w #x077) (define-public gdk:x #x078) (define-public gdk:y #x079) (define-public gdk:z #x07a) (define-public gdk:braceleft #x07b) (define-public gdk:bar #x07c) (define-public gdk:braceright #x07d) (define-public gdk:asciitilde #x07e) (define-public gdk:nobreakspace #x0a0) (define-public gdk:exclamdown #x0a1) (define-public gdk:cent #x0a2) (define-public gdk:sterling #x0a3) (define-public gdk:currency #x0a4) (define-public gdk:yen #x0a5) (define-public gdk:brokenbar #x0a6) (define-public gdk:section #x0a7) (define-public gdk:diaeresis #x0a8) (define-public gdk:copyright #x0a9) (define-public gdk:ordfeminine #x0aa) (define-public gdk:guillemotleft #x0ab) (define-public gdk:notsign #x0ac) (define-public gdk:hyphen #x0ad) (define-public gdk:registered #x0ae) (define-public gdk:macron #x0af) (define-public gdk:degree #x0b0) (define-public gdk:plusminus #x0b1) (define-public gdk:twosuperior #x0b2) (define-public gdk:threesuperior #x0b3) (define-public gdk:acute #x0b4) (define-public gdk:mu #x0b5) (define-public gdk:paragraph #x0b6) (define-public gdk:periodcentered #x0b7) (define-public gdk:cedilla #x0b8) (define-public gdk:onesuperior #x0b9) (define-public gdk:masculine #x0ba) (define-public gdk:guillemotright #x0bb) (define-public gdk:onequarter #x0bc) (define-public gdk:onehalf #x0bd) (define-public gdk:threequarters #x0be) (define-public gdk:questiondown #x0bf) (define-public gdk:Agrave #x0c0) (define-public gdk:Aacute #x0c1) (define-public gdk:Acircumflex #x0c2) (define-public gdk:Atilde #x0c3) (define-public gdk:Adiaeresis #x0c4) (define-public gdk:Aring #x0c5) (define-public gdk:AE #x0c6) (define-public gdk:Ccedilla #x0c7) (define-public gdk:Egrave #x0c8) (define-public gdk:Eacute #x0c9) (define-public gdk:Ecircumflex #x0ca) (define-public gdk:Ediaeresis #x0cb) (define-public gdk:Igrave #x0cc) (define-public gdk:Iacute #x0cd) (define-public gdk:Icircumflex #x0ce) (define-public gdk:Idiaeresis #x0cf) (define-public gdk:ETH #x0d0) (define-public gdk:Eth #x0d0) (define-public gdk:Ntilde #x0d1) (define-public gdk:Ograve #x0d2) (define-public gdk:Oacute #x0d3) (define-public gdk:Ocircumflex #x0d4) (define-public gdk:Otilde #x0d5) (define-public gdk:Odiaeresis #x0d6) (define-public gdk:multiply #x0d7) (define-public gdk:Ooblique #x0d8) (define-public gdk:Ugrave #x0d9) (define-public gdk:Uacute #x0da) (define-public gdk:Ucircumflex #x0db) (define-public gdk:Udiaeresis #x0dc) (define-public gdk:Yacute #x0dd) (define-public gdk:THORN #x0de) (define-public gdk:Thorn #x0de) (define-public gdk:ssharp #x0df) (define-public gdk:agrave #x0e0) (define-public gdk:aacute #x0e1) (define-public gdk:acircumflex #x0e2) (define-public gdk:atilde #x0e3) (define-public gdk:adiaeresis #x0e4) (define-public gdk:aring #x0e5) (define-public gdk:ae #x0e6) (define-public gdk:ccedilla #x0e7) (define-public gdk:egrave #x0e8) (define-public gdk:eacute #x0e9) (define-public gdk:ecircumflex #x0ea) (define-public gdk:ediaeresis #x0eb) (define-public gdk:igrave #x0ec) (define-public gdk:iacute #x0ed) (define-public gdk:icircumflex #x0ee) (define-public gdk:idiaeresis #x0ef) (define-public gdk:eth #x0f0) (define-public gdk:ntilde #x0f1) (define-public gdk:ograve #x0f2) (define-public gdk:oacute #x0f3) (define-public gdk:ocircumflex #x0f4) (define-public gdk:otilde #x0f5) (define-public gdk:odiaeresis #x0f6) (define-public gdk:division #x0f7) (define-public gdk:oslash #x0f8) (define-public gdk:ugrave #x0f9) (define-public gdk:uacute #x0fa) (define-public gdk:ucircumflex #x0fb) (define-public gdk:udiaeresis #x0fc) (define-public gdk:yacute #x0fd) (define-public gdk:thorn #x0fe) (define-public gdk:ydiaeresis #x0ff) (define-public gdk:Aogonek #x1a1) (define-public gdk:breve #x1a2) (define-public gdk:Lstroke #x1a3) (define-public gdk:Lcaron #x1a5) (define-public gdk:Sacute #x1a6) (define-public gdk:Scaron #x1a9) (define-public gdk:Scedilla #x1aa) (define-public gdk:Tcaron #x1ab) (define-public gdk:Zacute #x1ac) (define-public gdk:Zcaron #x1ae) (define-public gdk:Zabovedot #x1af) (define-public gdk:aogonek #x1b1) (define-public gdk:ogonek #x1b2) (define-public gdk:lstroke #x1b3) (define-public gdk:lcaron #x1b5) (define-public gdk:sacute #x1b6) (define-public gdk:caron #x1b7) (define-public gdk:scaron #x1b9) (define-public gdk:scedilla #x1ba) (define-public gdk:tcaron #x1bb) (define-public gdk:zacute #x1bc) (define-public gdk:doubleacute #x1bd) (define-public gdk:zcaron #x1be) (define-public gdk:zabovedot #x1bf) (define-public gdk:Racute #x1c0) (define-public gdk:Abreve #x1c3) (define-public gdk:Lacute #x1c5) (define-public gdk:Cacute #x1c6) (define-public gdk:Ccaron #x1c8) (define-public gdk:Eogonek #x1ca) (define-public gdk:Ecaron #x1cc) (define-public gdk:Dcaron #x1cf) (define-public gdk:Dstroke #x1d0) (define-public gdk:Nacute #x1d1) (define-public gdk:Ncaron #x1d2) (define-public gdk:Odoubleacute #x1d5) (define-public gdk:Rcaron #x1d8) (define-public gdk:Uring #x1d9) (define-public gdk:Udoubleacute #x1db) (define-public gdk:Tcedilla #x1de) (define-public gdk:racute #x1e0) (define-public gdk:abreve #x1e3) (define-public gdk:lacute #x1e5) (define-public gdk:cacute #x1e6) (define-public gdk:ccaron #x1e8) (define-public gdk:eogonek #x1ea) (define-public gdk:ecaron #x1ec) (define-public gdk:dcaron #x1ef) (define-public gdk:dstroke #x1f0) (define-public gdk:nacute #x1f1) (define-public gdk:ncaron #x1f2) (define-public gdk:odoubleacute #x1f5) (define-public gdk:udoubleacute #x1fb) (define-public gdk:rcaron #x1f8) (define-public gdk:uring #x1f9) (define-public gdk:tcedilla #x1fe) (define-public gdk:abovedot #x1ff) (define-public gdk:Hstroke #x2a1) (define-public gdk:Hcircumflex #x2a6) (define-public gdk:Iabovedot #x2a9) (define-public gdk:Gbreve #x2ab) (define-public gdk:Jcircumflex #x2ac) (define-public gdk:hstroke #x2b1) (define-public gdk:hcircumflex #x2b6) (define-public gdk:idotless #x2b9) (define-public gdk:gbreve #x2bb) (define-public gdk:jcircumflex #x2bc) (define-public gdk:Cabovedot #x2c5) (define-public gdk:Ccircumflex #x2c6) (define-public gdk:Gabovedot #x2d5) (define-public gdk:Gcircumflex #x2d8) (define-public gdk:Ubreve #x2dd) (define-public gdk:Scircumflex #x2de) (define-public gdk:cabovedot #x2e5) (define-public gdk:ccircumflex #x2e6) (define-public gdk:gabovedot #x2f5) (define-public gdk:gcircumflex #x2f8) (define-public gdk:ubreve #x2fd) (define-public gdk:scircumflex #x2fe) (define-public gdk:kra #x3a2) (define-public gdk:kappa #x3a2) (define-public gdk:Rcedilla #x3a3) (define-public gdk:Itilde #x3a5) (define-public gdk:Lcedilla #x3a6) (define-public gdk:Emacron #x3aa) (define-public gdk:Gcedilla #x3ab) (define-public gdk:Tslash #x3ac) (define-public gdk:rcedilla #x3b3) (define-public gdk:itilde #x3b5) (define-public gdk:lcedilla #x3b6) (define-public gdk:emacron #x3ba) (define-public gdk:gcedilla #x3bb) (define-public gdk:tslash #x3bc) (define-public gdk:ENG #x3bd) (define-public gdk:eng #x3bf) (define-public gdk:Amacron #x3c0) (define-public gdk:Iogonek #x3c7) (define-public gdk:Eabovedot #x3cc) (define-public gdk:Imacron #x3cf) (define-public gdk:Ncedilla #x3d1) (define-public gdk:Omacron #x3d2) (define-public gdk:Kcedilla #x3d3) (define-public gdk:Uogonek #x3d9) (define-public gdk:Utilde #x3dd) (define-public gdk:Umacron #x3de) (define-public gdk:amacron #x3e0) (define-public gdk:iogonek #x3e7) (define-public gdk:eabovedot #x3ec) (define-public gdk:imacron #x3ef) (define-public gdk:ncedilla #x3f1) (define-public gdk:omacron #x3f2) (define-public gdk:kcedilla #x3f3) (define-public gdk:uogonek #x3f9) (define-public gdk:utilde #x3fd) (define-public gdk:umacron #x3fe) (define-public gdk:OE #x13bc) (define-public gdk:oe #x13bd) (define-public gdk:Ydiaeresis #x13be) (define-public gdk:overline #x47e) (define-public gdk:kana-fullstop #x4a1) (define-public gdk:kana-openingbracket #x4a2) (define-public gdk:kana-closingbracket #x4a3) (define-public gdk:kana-comma #x4a4) (define-public gdk:kana-conjunctive #x4a5) (define-public gdk:kana-middledot #x4a5) (define-public gdk:kana-WO #x4a6) (define-public gdk:kana-a #x4a7) (define-public gdk:kana-i #x4a8) (define-public gdk:kana-u #x4a9) (define-public gdk:kana-e #x4aa) (define-public gdk:kana-o #x4ab) (define-public gdk:kana-ya #x4ac) (define-public gdk:kana-yu #x4ad) (define-public gdk:kana-yo #x4ae) (define-public gdk:kana-tsu #x4af) (define-public gdk:kana-tu #x4af) (define-public gdk:prolongedsound #x4b0) (define-public gdk:kana-A #x4b1) (define-public gdk:kana-I #x4b2) (define-public gdk:kana-U #x4b3) (define-public gdk:kana-E #x4b4) (define-public gdk:kana-O #x4b5) (define-public gdk:kana-KA #x4b6) (define-public gdk:kana-KI #x4b7) (define-public gdk:kana-KU #x4b8) (define-public gdk:kana-KE #x4b9) (define-public gdk:kana-KO #x4ba) (define-public gdk:kana-SA #x4bb) (define-public gdk:kana-SHI #x4bc) (define-public gdk:kana-SU #x4bd) (define-public gdk:kana-SE #x4be) (define-public gdk:kana-SO #x4bf) (define-public gdk:kana-TA #x4c0) (define-public gdk:kana-CHI #x4c1) (define-public gdk:kana-TI #x4c1) (define-public gdk:kana-TSU #x4c2) (define-public gdk:kana-TU #x4c2) (define-public gdk:kana-TE #x4c3) (define-public gdk:kana-TO #x4c4) (define-public gdk:kana-NA #x4c5) (define-public gdk:kana-NI #x4c6) (define-public gdk:kana-NU #x4c7) (define-public gdk:kana-NE #x4c8) (define-public gdk:kana-NO #x4c9) (define-public gdk:kana-HA #x4ca) (define-public gdk:kana-HI #x4cb) (define-public gdk:kana-FU #x4cc) (define-public gdk:kana-HU #x4cc) (define-public gdk:kana-HE #x4cd) (define-public gdk:kana-HO #x4ce) (define-public gdk:kana-MA #x4cf) (define-public gdk:kana-MI #x4d0) (define-public gdk:kana-MU #x4d1) (define-public gdk:kana-ME #x4d2) (define-public gdk:kana-MO #x4d3) (define-public gdk:kana-YA #x4d4) (define-public gdk:kana-YU #x4d5) (define-public gdk:kana-YO #x4d6) (define-public gdk:kana-RA #x4d7) (define-public gdk:kana-RI #x4d8) (define-public gdk:kana-RU #x4d9) (define-public gdk:kana-RE #x4da) (define-public gdk:kana-RO #x4db) (define-public gdk:kana-WA #x4dc) (define-public gdk:kana-N #x4dd) (define-public gdk:voicedsound #x4de) (define-public gdk:semivoicedsound #x4df) (define-public gdk:kana-switch #xFF7E) (define-public gdk:Arabic-comma #x5ac) (define-public gdk:Arabic-semicolon #x5bb) (define-public gdk:Arabic-question-mark #x5bf) (define-public gdk:Arabic-hamza #x5c1) (define-public gdk:Arabic-maddaonalef #x5c2) (define-public gdk:Arabic-hamzaonalef #x5c3) (define-public gdk:Arabic-hamzaonwaw #x5c4) (define-public gdk:Arabic-hamzaunderalef #x5c5) (define-public gdk:Arabic-hamzaonyeh #x5c6) (define-public gdk:Arabic-alef #x5c7) (define-public gdk:Arabic-beh #x5c8) (define-public gdk:Arabic-tehmarbuta #x5c9) (define-public gdk:Arabic-teh #x5ca) (define-public gdk:Arabic-theh #x5cb) (define-public gdk:Arabic-jeem #x5cc) (define-public gdk:Arabic-hah #x5cd) (define-public gdk:Arabic-khah #x5ce) (define-public gdk:Arabic-dal #x5cf) (define-public gdk:Arabic-thal #x5d0) (define-public gdk:Arabic-ra #x5d1) (define-public gdk:Arabic-zain #x5d2) (define-public gdk:Arabic-seen #x5d3) (define-public gdk:Arabic-sheen #x5d4) (define-public gdk:Arabic-sad #x5d5) (define-public gdk:Arabic-dad #x5d6) (define-public gdk:Arabic-tah #x5d7) (define-public gdk:Arabic-zah #x5d8) (define-public gdk:Arabic-ain #x5d9) (define-public gdk:Arabic-ghain #x5da) (define-public gdk:Arabic-tatweel #x5e0) (define-public gdk:Arabic-feh #x5e1) (define-public gdk:Arabic-qaf #x5e2) (define-public gdk:Arabic-kaf #x5e3) (define-public gdk:Arabic-lam #x5e4) (define-public gdk:Arabic-meem #x5e5) (define-public gdk:Arabic-noon #x5e6) (define-public gdk:Arabic-ha #x5e7) (define-public gdk:Arabic-heh #x5e7) (define-public gdk:Arabic-waw #x5e8) (define-public gdk:Arabic-alefmaksura #x5e9) (define-public gdk:Arabic-yeh #x5ea) (define-public gdk:Arabic-fathatan #x5eb) (define-public gdk:Arabic-dammatan #x5ec) (define-public gdk:Arabic-kasratan #x5ed) (define-public gdk:Arabic-fatha #x5ee) (define-public gdk:Arabic-damma #x5ef) (define-public gdk:Arabic-kasra #x5f0) (define-public gdk:Arabic-shadda #x5f1) (define-public gdk:Arabic-sukun #x5f2) (define-public gdk:Arabic-switch #xFF7E) (define-public gdk:Serbian-dje #x6a1) (define-public gdk:Macedonia-gje #x6a2) (define-public gdk:Cyrillic-io #x6a3) (define-public gdk:Ukrainian-ie #x6a4) (define-public gdk:Ukranian-je #x6a4) (define-public gdk:Macedonia-dse #x6a5) (define-public gdk:Ukrainian-i #x6a6) (define-public gdk:Ukranian-i #x6a6) (define-public gdk:Ukrainian-yi #x6a7) (define-public gdk:Ukranian-yi #x6a7) (define-public gdk:Cyrillic-je #x6a8) (define-public gdk:Serbian-je #x6a8) (define-public gdk:Cyrillic-lje #x6a9) (define-public gdk:Serbian-lje #x6a9) (define-public gdk:Cyrillic-nje #x6aa) (define-public gdk:Serbian-nje #x6aa) (define-public gdk:Serbian-tshe #x6ab) (define-public gdk:Macedonia-kje #x6ac) (define-public gdk:Byelorussian-shortu #x6ae) (define-public gdk:Cyrillic-dzhe #x6af) (define-public gdk:Serbian-dze #x6af) (define-public gdk:numerosign #x6b0) (define-public gdk:Serbian-DJE #x6b1) (define-public gdk:Macedonia-GJE #x6b2) (define-public gdk:Cyrillic-IO #x6b3) (define-public gdk:Ukrainian-IE #x6b4) (define-public gdk:Ukranian-JE #x6b4) (define-public gdk:Macedonia-DSE #x6b5) (define-public gdk:Ukrainian-I #x6b6) (define-public gdk:Ukranian-I #x6b6) (define-public gdk:Ukrainian-YI #x6b7) (define-public gdk:Ukranian-YI #x6b7) (define-public gdk:Cyrillic-JE #x6b8) (define-public gdk:Serbian-JE #x6b8) (define-public gdk:Cyrillic-LJE #x6b9) (define-public gdk:Serbian-LJE #x6b9) (define-public gdk:Cyrillic-NJE #x6ba) (define-public gdk:Serbian-NJE #x6ba) (define-public gdk:Serbian-TSHE #x6bb) (define-public gdk:Macedonia-KJE #x6bc) (define-public gdk:Byelorussian-SHORTU #x6be) (define-public gdk:Cyrillic-DZHE #x6bf) (define-public gdk:Serbian-DZE #x6bf) (define-public gdk:Cyrillic-yu #x6c0) (define-public gdk:Cyrillic-a #x6c1) (define-public gdk:Cyrillic-be #x6c2) (define-public gdk:Cyrillic-tse #x6c3) (define-public gdk:Cyrillic-de #x6c4) (define-public gdk:Cyrillic-ie #x6c5) (define-public gdk:Cyrillic-ef #x6c6) (define-public gdk:Cyrillic-ghe #x6c7) (define-public gdk:Cyrillic-ha #x6c8) (define-public gdk:Cyrillic-i #x6c9) (define-public gdk:Cyrillic-shorti #x6ca) (define-public gdk:Cyrillic-ka #x6cb) (define-public gdk:Cyrillic-el #x6cc) (define-public gdk:Cyrillic-em #x6cd) (define-public gdk:Cyrillic-en #x6ce) (define-public gdk:Cyrillic-o #x6cf) (define-public gdk:Cyrillic-pe #x6d0) (define-public gdk:Cyrillic-ya #x6d1) (define-public gdk:Cyrillic-er #x6d2) (define-public gdk:Cyrillic-es #x6d3) (define-public gdk:Cyrillic-te #x6d4) (define-public gdk:Cyrillic-u #x6d5) (define-public gdk:Cyrillic-zhe #x6d6) (define-public gdk:Cyrillic-ve #x6d7) (define-public gdk:Cyrillic-softsign #x6d8) (define-public gdk:Cyrillic-yeru #x6d9) (define-public gdk:Cyrillic-ze #x6da) (define-public gdk:Cyrillic-sha #x6db) (define-public gdk:Cyrillic-e #x6dc) (define-public gdk:Cyrillic-shcha #x6dd) (define-public gdk:Cyrillic-che #x6de) (define-public gdk:Cyrillic-hardsign #x6df) (define-public gdk:Cyrillic-YU #x6e0) (define-public gdk:Cyrillic-A #x6e1) (define-public gdk:Cyrillic-BE #x6e2) (define-public gdk:Cyrillic-TSE #x6e3) (define-public gdk:Cyrillic-DE #x6e4) (define-public gdk:Cyrillic-IE #x6e5) (define-public gdk:Cyrillic-EF #x6e6) (define-public gdk:Cyrillic-GHE #x6e7) (define-public gdk:Cyrillic-HA #x6e8) (define-public gdk:Cyrillic-I #x6e9) (define-public gdk:Cyrillic-SHORTI #x6ea) (define-public gdk:Cyrillic-KA #x6eb) (define-public gdk:Cyrillic-EL #x6ec) (define-public gdk:Cyrillic-EM #x6ed) (define-public gdk:Cyrillic-EN #x6ee) (define-public gdk:Cyrillic-O #x6ef) (define-public gdk:Cyrillic-PE #x6f0) (define-public gdk:Cyrillic-YA #x6f1) (define-public gdk:Cyrillic-ER #x6f2) (define-public gdk:Cyrillic-ES #x6f3) (define-public gdk:Cyrillic-TE #x6f4) (define-public gdk:Cyrillic-U #x6f5) (define-public gdk:Cyrillic-ZHE #x6f6) (define-public gdk:Cyrillic-VE #x6f7) (define-public gdk:Cyrillic-SOFTSIGN #x6f8) (define-public gdk:Cyrillic-YERU #x6f9) (define-public gdk:Cyrillic-ZE #x6fa) (define-public gdk:Cyrillic-SHA #x6fb) (define-public gdk:Cyrillic-E #x6fc) (define-public gdk:Cyrillic-SHCHA #x6fd) (define-public gdk:Cyrillic-CHE #x6fe) (define-public gdk:Cyrillic-HARDSIGN #x6ff) (define-public gdk:Greek-ALPHAaccent #x7a1) (define-public gdk:Greek-EPSILONaccent #x7a2) (define-public gdk:Greek-ETAaccent #x7a3) (define-public gdk:Greek-IOTAaccent #x7a4) (define-public gdk:Greek-IOTAdiaeresis #x7a5) (define-public gdk:Greek-OMICRONaccent #x7a7) (define-public gdk:Greek-UPSILONaccent #x7a8) (define-public gdk:Greek-UPSILONdieresis #x7a9) (define-public gdk:Greek-OMEGAaccent #x7ab) (define-public gdk:Greek-accentdieresis #x7ae) (define-public gdk:Greek-horizbar #x7af) (define-public gdk:Greek-alphaaccent #x7b1) (define-public gdk:Greek-epsilonaccent #x7b2) (define-public gdk:Greek-etaaccent #x7b3) (define-public gdk:Greek-iotaaccent #x7b4) (define-public gdk:Greek-iotadieresis #x7b5) (define-public gdk:Greek-iotaaccentdieresis #x7b6) (define-public gdk:Greek-omicronaccent #x7b7) (define-public gdk:Greek-upsilonaccent #x7b8) (define-public gdk:Greek-upsilondieresis #x7b9) (define-public gdk:Greek-upsilonaccentdieresis #x7ba) (define-public gdk:Greek-omegaaccent #x7bb) (define-public gdk:Greek-ALPHA #x7c1) (define-public gdk:Greek-BETA #x7c2) (define-public gdk:Greek-GAMMA #x7c3) (define-public gdk:Greek-DELTA #x7c4) (define-public gdk:Greek-EPSILON #x7c5) (define-public gdk:Greek-ZETA #x7c6) (define-public gdk:Greek-ETA #x7c7) (define-public gdk:Greek-THETA #x7c8) (define-public gdk:Greek-IOTA #x7c9) (define-public gdk:Greek-KAPPA #x7ca) (define-public gdk:Greek-LAMDA #x7cb) (define-public gdk:Greek-LAMBDA #x7cb) (define-public gdk:Greek-MU #x7cc) (define-public gdk:Greek-NU #x7cd) (define-public gdk:Greek-XI #x7ce) (define-public gdk:Greek-OMICRON #x7cf) (define-public gdk:Greek-PI #x7d0) (define-public gdk:Greek-RHO #x7d1) (define-public gdk:Greek-SIGMA #x7d2) (define-public gdk:Greek-TAU #x7d4) (define-public gdk:Greek-UPSILON #x7d5) (define-public gdk:Greek-PHI #x7d6) (define-public gdk:Greek-CHI #x7d7) (define-public gdk:Greek-PSI #x7d8) (define-public gdk:Greek-OMEGA #x7d9) (define-public gdk:Greek-alpha #x7e1) (define-public gdk:Greek-beta #x7e2) (define-public gdk:Greek-gamma #x7e3) (define-public gdk:Greek-delta #x7e4) (define-public gdk:Greek-epsilon #x7e5) (define-public gdk:Greek-zeta #x7e6) (define-public gdk:Greek-eta #x7e7) (define-public gdk:Greek-theta #x7e8) (define-public gdk:Greek-iota #x7e9) (define-public gdk:Greek-kappa #x7ea) (define-public gdk:Greek-lamda #x7eb) (define-public gdk:Greek-lambda #x7eb) (define-public gdk:Greek-mu #x7ec) (define-public gdk:Greek-nu #x7ed) (define-public gdk:Greek-xi #x7ee) (define-public gdk:Greek-omicron #x7ef) (define-public gdk:Greek-pi #x7f0) (define-public gdk:Greek-rho #x7f1) (define-public gdk:Greek-sigma #x7f2) (define-public gdk:Greek-finalsmallsigma #x7f3) (define-public gdk:Greek-tau #x7f4) (define-public gdk:Greek-upsilon #x7f5) (define-public gdk:Greek-phi #x7f6) (define-public gdk:Greek-chi #x7f7) (define-public gdk:Greek-psi #x7f8) (define-public gdk:Greek-omega #x7f9) (define-public gdk:Greek-switch #xFF7E) (define-public gdk:leftradical #x8a1) (define-public gdk:topleftradical #x8a2) (define-public gdk:horizconnector #x8a3) (define-public gdk:topintegral #x8a4) (define-public gdk:botintegral #x8a5) (define-public gdk:vertconnector #x8a6) (define-public gdk:topleftsqbracket #x8a7) (define-public gdk:botleftsqbracket #x8a8) (define-public gdk:toprightsqbracket #x8a9) (define-public gdk:botrightsqbracket #x8aa) (define-public gdk:topleftparens #x8ab) (define-public gdk:botleftparens #x8ac) (define-public gdk:toprightparens #x8ad) (define-public gdk:botrightparens #x8ae) (define-public gdk:leftmiddlecurlybrace #x8af) (define-public gdk:rightmiddlecurlybrace #x8b0) (define-public gdk:topleftsummation #x8b1) (define-public gdk:botleftsummation #x8b2) (define-public gdk:topvertsummationconnector #x8b3) (define-public gdk:botvertsummationconnector #x8b4) (define-public gdk:toprightsummation #x8b5) (define-public gdk:botrightsummation #x8b6) (define-public gdk:rightmiddlesummation #x8b7) (define-public gdk:lessthanequal #x8bc) (define-public gdk:notequal #x8bd) (define-public gdk:greaterthanequal #x8be) (define-public gdk:integral #x8bf) (define-public gdk:therefore #x8c0) (define-public gdk:variation #x8c1) (define-public gdk:infinity #x8c2) (define-public gdk:nabla #x8c5) (define-public gdk:approximate #x8c8) (define-public gdk:similarequal #x8c9) (define-public gdk:ifonlyif #x8cd) (define-public gdk:implies #x8ce) (define-public gdk:identical #x8cf) (define-public gdk:radical #x8d6) (define-public gdk:includedin #x8da) (define-public gdk:includes #x8db) (define-public gdk:intersection #x8dc) (define-public gdk:union #x8dd) (define-public gdk:logicaland #x8de) (define-public gdk:logicalor #x8df) (define-public gdk:partialderivative #x8ef) (define-public gdk:function #x8f6) (define-public gdk:leftarrow #x8fb) (define-public gdk:uparrow #x8fc) (define-public gdk:rightarrow #x8fd) (define-public gdk:downarrow #x8fe) (define-public gdk:blank #x9df) (define-public gdk:soliddiamond #x9e0) (define-public gdk:checkerboard #x9e1) (define-public gdk:ht #x9e2) (define-public gdk:ff #x9e3) (define-public gdk:cr #x9e4) (define-public gdk:lf #x9e5) (define-public gdk:nl #x9e8) (define-public gdk:vt #x9e9) (define-public gdk:lowrightcorner #x9ea) (define-public gdk:uprightcorner #x9eb) (define-public gdk:upleftcorner #x9ec) (define-public gdk:lowleftcorner #x9ed) (define-public gdk:crossinglines #x9ee) (define-public gdk:horizlinescan1 #x9ef) (define-public gdk:horizlinescan3 #x9f0) (define-public gdk:horizlinescan5 #x9f1) (define-public gdk:horizlinescan7 #x9f2) (define-public gdk:horizlinescan9 #x9f3) (define-public gdk:leftt #x9f4) (define-public gdk:rightt #x9f5) (define-public gdk:bott #x9f6) (define-public gdk:topt #x9f7) (define-public gdk:vertbar #x9f8) (define-public gdk:emspace #xaa1) (define-public gdk:enspace #xaa2) (define-public gdk:em3space #xaa3) (define-public gdk:em4space #xaa4) (define-public gdk:digitspace #xaa5) (define-public gdk:punctspace #xaa6) (define-public gdk:thinspace #xaa7) (define-public gdk:hairspace #xaa8) (define-public gdk:emdash #xaa9) (define-public gdk:endash #xaaa) (define-public gdk:signifblank #xaac) (define-public gdk:ellipsis #xaae) (define-public gdk:doubbaselinedot #xaaf) (define-public gdk:onethird #xab0) (define-public gdk:twothirds #xab1) (define-public gdk:onefifth #xab2) (define-public gdk:twofifths #xab3) (define-public gdk:threefifths #xab4) (define-public gdk:fourfifths #xab5) (define-public gdk:onesixth #xab6) (define-public gdk:fivesixths #xab7) (define-public gdk:careof #xab8) (define-public gdk:figdash #xabb) (define-public gdk:leftanglebracket #xabc) (define-public gdk:decimalpoint #xabd) (define-public gdk:rightanglebracket #xabe) (define-public gdk:marker #xabf) (define-public gdk:oneeighth #xac3) (define-public gdk:threeeighths #xac4) (define-public gdk:fiveeighths #xac5) (define-public gdk:seveneighths #xac6) (define-public gdk:trademark #xac9) (define-public gdk:signaturemark #xaca) (define-public gdk:trademarkincircle #xacb) (define-public gdk:leftopentriangle #xacc) (define-public gdk:rightopentriangle #xacd) (define-public gdk:emopencircle #xace) (define-public gdk:emopenrectangle #xacf) (define-public gdk:leftsinglequotemark #xad0) (define-public gdk:rightsinglequotemark #xad1) (define-public gdk:leftdoublequotemark #xad2) (define-public gdk:rightdoublequotemark #xad3) (define-public gdk:prescription #xad4) (define-public gdk:minutes #xad6) (define-public gdk:seconds #xad7) (define-public gdk:latincross #xad9) (define-public gdk:hexagram #xada) (define-public gdk:filledrectbullet #xadb) (define-public gdk:filledlefttribullet #xadc) (define-public gdk:filledrighttribullet #xadd) (define-public gdk:emfilledcircle #xade) (define-public gdk:emfilledrect #xadf) (define-public gdk:enopencircbullet #xae0) (define-public gdk:enopensquarebullet #xae1) (define-public gdk:openrectbullet #xae2) (define-public gdk:opentribulletup #xae3) (define-public gdk:opentribulletdown #xae4) (define-public gdk:openstar #xae5) (define-public gdk:enfilledcircbullet #xae6) (define-public gdk:enfilledsqbullet #xae7) (define-public gdk:filledtribulletup #xae8) (define-public gdk:filledtribulletdown #xae9) (define-public gdk:leftpointer #xaea) (define-public gdk:rightpointer #xaeb) (define-public gdk:club #xaec) (define-public gdk:diamond #xaed) (define-public gdk:heart #xaee) (define-public gdk:maltesecross #xaf0) (define-public gdk:dagger #xaf1) (define-public gdk:doubledagger #xaf2) (define-public gdk:checkmark #xaf3) (define-public gdk:ballotcross #xaf4) (define-public gdk:musicalsharp #xaf5) (define-public gdk:musicalflat #xaf6) (define-public gdk:malesymbol #xaf7) (define-public gdk:femalesymbol #xaf8) (define-public gdk:telephone #xaf9) (define-public gdk:telephonerecorder #xafa) (define-public gdk:phonographcopyright #xafb) (define-public gdk:caret #xafc) (define-public gdk:singlelowquotemark #xafd) (define-public gdk:doublelowquotemark #xafe) (define-public gdk:cursor #xaff) (define-public gdk:leftcaret #xba3) (define-public gdk:rightcaret #xba6) (define-public gdk:downcaret #xba8) (define-public gdk:upcaret #xba9) (define-public gdk:overbar #xbc0) (define-public gdk:downtack #xbc2) (define-public gdk:upshoe #xbc3) (define-public gdk:downstile #xbc4) (define-public gdk:underbar #xbc6) (define-public gdk:jot #xbca) (define-public gdk:quad #xbcc) (define-public gdk:uptack #xbce) (define-public gdk:circle #xbcf) (define-public gdk:upstile #xbd3) (define-public gdk:downshoe #xbd6) (define-public gdk:rightshoe #xbd8) (define-public gdk:leftshoe #xbda) (define-public gdk:lefttack #xbdc) (define-public gdk:righttack #xbfc) (define-public gdk:hebrew-doublelowline #xcdf) (define-public gdk:hebrew-aleph #xce0) (define-public gdk:hebrew-bet #xce1) (define-public gdk:hebrew-beth #xce1) (define-public gdk:hebrew-gimel #xce2) (define-public gdk:hebrew-gimmel #xce2) (define-public gdk:hebrew-dalet #xce3) (define-public gdk:hebrew-daleth #xce3) (define-public gdk:hebrew-he #xce4) (define-public gdk:hebrew-waw #xce5) (define-public gdk:hebrew-zain #xce6) (define-public gdk:hebrew-zayin #xce6) (define-public gdk:hebrew-chet #xce7) (define-public gdk:hebrew-het #xce7) (define-public gdk:hebrew-tet #xce8) (define-public gdk:hebrew-teth #xce8) (define-public gdk:hebrew-yod #xce9) (define-public gdk:hebrew-finalkaph #xcea) (define-public gdk:hebrew-kaph #xceb) (define-public gdk:hebrew-lamed #xcec) (define-public gdk:hebrew-finalmem #xced) (define-public gdk:hebrew-mem #xcee) (define-public gdk:hebrew-finalnun #xcef) (define-public gdk:hebrew-nun #xcf0) (define-public gdk:hebrew-samech #xcf1) (define-public gdk:hebrew-samekh #xcf1) (define-public gdk:hebrew-ayin #xcf2) (define-public gdk:hebrew-finalpe #xcf3) (define-public gdk:hebrew-pe #xcf4) (define-public gdk:hebrew-finalzade #xcf5) (define-public gdk:hebrew-finalzadi #xcf5) (define-public gdk:hebrew-zade #xcf6) (define-public gdk:hebrew-zadi #xcf6) (define-public gdk:hebrew-qoph #xcf7) (define-public gdk:hebrew-kuf #xcf7) (define-public gdk:hebrew-resh #xcf8) (define-public gdk:hebrew-shin #xcf9) (define-public gdk:hebrew-taw #xcfa) (define-public gdk:hebrew-taf #xcfa) (define-public gdk:Hebrew-switch #xFF7E) (define-public gdk:Thai-kokai #xda1) (define-public gdk:Thai-khokhai #xda2) (define-public gdk:Thai-khokhuat #xda3) (define-public gdk:Thai-khokhwai #xda4) (define-public gdk:Thai-khokhon #xda5) (define-public gdk:Thai-khorakhang #xda6) (define-public gdk:Thai-ngongu #xda7) (define-public gdk:Thai-chochan #xda8) (define-public gdk:Thai-choching #xda9) (define-public gdk:Thai-chochang #xdaa) (define-public gdk:Thai-soso #xdab) (define-public gdk:Thai-chochoe #xdac) (define-public gdk:Thai-yoying #xdad) (define-public gdk:Thai-dochada #xdae) (define-public gdk:Thai-topatak #xdaf) (define-public gdk:Thai-thothan #xdb0) (define-public gdk:Thai-thonangmontho #xdb1) (define-public gdk:Thai-thophuthao #xdb2) (define-public gdk:Thai-nonen #xdb3) (define-public gdk:Thai-dodek #xdb4) (define-public gdk:Thai-totao #xdb5) (define-public gdk:Thai-thothung #xdb6) (define-public gdk:Thai-thothahan #xdb7) (define-public gdk:Thai-thothong #xdb8) (define-public gdk:Thai-nonu #xdb9) (define-public gdk:Thai-bobaimai #xdba) (define-public gdk:Thai-popla #xdbb) (define-public gdk:Thai-phophung #xdbc) (define-public gdk:Thai-fofa #xdbd) (define-public gdk:Thai-phophan #xdbe) (define-public gdk:Thai-fofan #xdbf) (define-public gdk:Thai-phosamphao #xdc0) (define-public gdk:Thai-moma #xdc1) (define-public gdk:Thai-yoyak #xdc2) (define-public gdk:Thai-rorua #xdc3) (define-public gdk:Thai-ru #xdc4) (define-public gdk:Thai-loling #xdc5) (define-public gdk:Thai-lu #xdc6) (define-public gdk:Thai-wowaen #xdc7) (define-public gdk:Thai-sosala #xdc8) (define-public gdk:Thai-sorusi #xdc9) (define-public gdk:Thai-sosua #xdca) (define-public gdk:Thai-hohip #xdcb) (define-public gdk:Thai-lochula #xdcc) (define-public gdk:Thai-oang #xdcd) (define-public gdk:Thai-honokhuk #xdce) (define-public gdk:Thai-paiyannoi #xdcf) (define-public gdk:Thai-saraa #xdd0) (define-public gdk:Thai-maihanakat #xdd1) (define-public gdk:Thai-saraaa #xdd2) (define-public gdk:Thai-saraam #xdd3) (define-public gdk:Thai-sarai #xdd4) (define-public gdk:Thai-saraii #xdd5) (define-public gdk:Thai-saraue #xdd6) (define-public gdk:Thai-sarauee #xdd7) (define-public gdk:Thai-sarau #xdd8) (define-public gdk:Thai-sarauu #xdd9) (define-public gdk:Thai-phinthu #xdda) (define-public gdk:Thai-maihanakat-maitho #xdde) (define-public gdk:Thai-baht #xddf) (define-public gdk:Thai-sarae #xde0) (define-public gdk:Thai-saraae #xde1) (define-public gdk:Thai-sarao #xde2) (define-public gdk:Thai-saraaimaimuan #xde3) (define-public gdk:Thai-saraaimaimalai #xde4) (define-public gdk:Thai-lakkhangyao #xde5) (define-public gdk:Thai-maiyamok #xde6) (define-public gdk:Thai-maitaikhu #xde7) (define-public gdk:Thai-maiek #xde8) (define-public gdk:Thai-maitho #xde9) (define-public gdk:Thai-maitri #xdea) (define-public gdk:Thai-maichattawa #xdeb) (define-public gdk:Thai-thanthakhat #xdec) (define-public gdk:Thai-nikhahit #xded) (define-public gdk:Thai-leksun #xdf0) (define-public gdk:Thai-leknung #xdf1) (define-public gdk:Thai-leksong #xdf2) (define-public gdk:Thai-leksam #xdf3) (define-public gdk:Thai-leksi #xdf4) (define-public gdk:Thai-lekha #xdf5) (define-public gdk:Thai-lekhok #xdf6) (define-public gdk:Thai-lekchet #xdf7) (define-public gdk:Thai-lekpaet #xdf8) (define-public gdk:Thai-lekkao #xdf9) (define-public gdk:Hangul #xff31) (define-public gdk:Hangul-Start #xff32) (define-public gdk:Hangul-End #xff33) (define-public gdk:Hangul-Hanja #xff34) (define-public gdk:Hangul-Jamo #xff35) (define-public gdk:Hangul-Romaja #xff36) (define-public gdk:Hangul-Codeinput #xff37) (define-public gdk:Hangul-Jeonja #xff38) (define-public gdk:Hangul-Banja #xff39) (define-public gdk:Hangul-PreHanja #xff3a) (define-public gdk:Hangul-PostHanja #xff3b) (define-public gdk:Hangul-SingleCandidate #xff3c) (define-public gdk:Hangul-MultipleCandidate #xff3d) (define-public gdk:Hangul-PreviousCandidate #xff3e) (define-public gdk:Hangul-Special #xff3f) (define-public gdk:Hangul-switch #xFF7E) (define-public gdk:Hangul-Kiyeog #xea1) (define-public gdk:Hangul-SsangKiyeog #xea2) (define-public gdk:Hangul-KiyeogSios #xea3) (define-public gdk:Hangul-Nieun #xea4) (define-public gdk:Hangul-NieunJieuj #xea5) (define-public gdk:Hangul-NieunHieuh #xea6) (define-public gdk:Hangul-Dikeud #xea7) (define-public gdk:Hangul-SsangDikeud #xea8) (define-public gdk:Hangul-Rieul #xea9) (define-public gdk:Hangul-RieulKiyeog #xeaa) (define-public gdk:Hangul-RieulMieum #xeab) (define-public gdk:Hangul-RieulPieub #xeac) (define-public gdk:Hangul-RieulSios #xead) (define-public gdk:Hangul-RieulTieut #xeae) (define-public gdk:Hangul-RieulPhieuf #xeaf) (define-public gdk:Hangul-RieulHieuh #xeb0) (define-public gdk:Hangul-Mieum #xeb1) (define-public gdk:Hangul-Pieub #xeb2) (define-public gdk:Hangul-SsangPieub #xeb3) (define-public gdk:Hangul-PieubSios #xeb4) (define-public gdk:Hangul-Sios #xeb5) (define-public gdk:Hangul-SsangSios #xeb6) (define-public gdk:Hangul-Ieung #xeb7) (define-public gdk:Hangul-Jieuj #xeb8) (define-public gdk:Hangul-SsangJieuj #xeb9) (define-public gdk:Hangul-Cieuc #xeba) (define-public gdk:Hangul-Khieuq #xebb) (define-public gdk:Hangul-Tieut #xebc) (define-public gdk:Hangul-Phieuf #xebd) (define-public gdk:Hangul-Hieuh #xebe) (define-public gdk:Hangul-A #xebf) (define-public gdk:Hangul-AE #xec0) (define-public gdk:Hangul-YA #xec1) (define-public gdk:Hangul-YAE #xec2) (define-public gdk:Hangul-EO #xec3) (define-public gdk:Hangul-E #xec4) (define-public gdk:Hangul-YEO #xec5) (define-public gdk:Hangul-YE #xec6) (define-public gdk:Hangul-O #xec7) (define-public gdk:Hangul-WA #xec8) (define-public gdk:Hangul-WAE #xec9) (define-public gdk:Hangul-OE #xeca) (define-public gdk:Hangul-YO #xecb) (define-public gdk:Hangul-U #xecc) (define-public gdk:Hangul-WEO #xecd) (define-public gdk:Hangul-WE #xece) (define-public gdk:Hangul-WI #xecf) (define-public gdk:Hangul-YU #xed0) (define-public gdk:Hangul-EU #xed1) (define-public gdk:Hangul-YI #xed2) (define-public gdk:Hangul-I #xed3) (define-public gdk:Hangul-J-Kiyeog #xed4) (define-public gdk:Hangul-J-SsangKiyeog #xed5) (define-public gdk:Hangul-J-KiyeogSios #xed6) (define-public gdk:Hangul-J-Nieun #xed7) (define-public gdk:Hangul-J-NieunJieuj #xed8) (define-public gdk:Hangul-J-NieunHieuh #xed9) (define-public gdk:Hangul-J-Dikeud #xeda) (define-public gdk:Hangul-J-Rieul #xedb) (define-public gdk:Hangul-J-RieulKiyeog #xedc) (define-public gdk:Hangul-J-RieulMieum #xedd) (define-public gdk:Hangul-J-RieulPieub #xede) (define-public gdk:Hangul-J-RieulSios #xedf) (define-public gdk:Hangul-J-RieulTieut #xee0) (define-public gdk:Hangul-J-RieulPhieuf #xee1) (define-public gdk:Hangul-J-RieulHieuh #xee2) (define-public gdk:Hangul-J-Mieum #xee3) (define-public gdk:Hangul-J-Pieub #xee4) (define-public gdk:Hangul-J-PieubSios #xee5) (define-public gdk:Hangul-J-Sios #xee6) (define-public gdk:Hangul-J-SsangSios #xee7) (define-public gdk:Hangul-J-Ieung #xee8) (define-public gdk:Hangul-J-Jieuj #xee9) (define-public gdk:Hangul-J-Cieuc #xeea) (define-public gdk:Hangul-J-Khieuq #xeeb) (define-public gdk:Hangul-J-Tieut #xeec) (define-public gdk:Hangul-J-Phieuf #xeed) (define-public gdk:Hangul-J-Hieuh #xeee) (define-public gdk:Hangul-RieulYeorinHieuh #xeef) (define-public gdk:Hangul-SunkyeongeumMieum #xef0) (define-public gdk:Hangul-SunkyeongeumPieub #xef1) (define-public gdk:Hangul-PanSios #xef2) (define-public gdk:Hangul-KkogjiDalrinIeung #xef3) (define-public gdk:Hangul-SunkyeongeumPhieuf #xef4) (define-public gdk:Hangul-YeorinHieuh #xef5) (define-public gdk:Hangul-AraeA #xef6) (define-public gdk:Hangul-AraeAE #xef7) (define-public gdk:Hangul-J-PanSios #xef8) (define-public gdk:Hangul-J-KkogjiDalrinIeung #xef9) (define-public gdk:Hangul-J-YeorinHieuh #xefa) (define-public gdk:Korean-Won #xeff) (define-public gdk:EcuSign #x20a0) (define-public gdk:ColonSign #x20a1) (define-public gdk:CruzeiroSign #x20a2) (define-public gdk:FFrancSign #x20a3) (define-public gdk:LiraSign #x20a4) (define-public gdk:MillSign #x20a5) (define-public gdk:NairaSign #x20a6) (define-public gdk:PesetaSign #x20a7) (define-public gdk:RupeeSign #x20a8) (define-public gdk:WonSign #x20a9) (define-public gdk:NewSheqelSign #x20aa) (define-public gdk:DongSign #x20ab) (define-public gdk:EuroSign #x20ac) guile-gnome-platform-2.16.2/gtk/gnome/gtk/Makefile.am0000644000175000017500000000022011670374303022675 0ustar00wingowingo00000000000000include $(top_srcdir)/common.mk moduledir = $(guilemoduledir)/gtk module_DATA = gdk-event.scm graphical-repl.scm EXTRA_DIST = $(module_DATA) guile-gnome-platform-2.16.2/gtk/gnome/gtk/Makefile.in0000644000175000017500000004120611752520673022723 0ustar00wingowingo00000000000000# Makefile.in generated by automake 1.11.5 from Makefile.am. # @configure_input@ # Copyright (C) 1994, 1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, # 2003, 2004, 2005, 2006, 2007, 2008, 2009, 2010, 2011 Free Software # Foundation, Inc. # This Makefile.in is free software; the Free Software Foundation # gives unlimited permission to copy and/or distribute it, # with or without modifications, as long as this notice is preserved. # This program is distributed in the hope that it will be useful, # but WITHOUT ANY WARRANTY, to the extent permitted by law; without # even the implied warranty of MERCHANTABILITY or FITNESS FOR A # PARTICULAR PURPOSE. @SET_MAKE@ # guile-gnome # Copyright (C) 2003,2004,2009,2012 Free Software Foundation, Inc. # This program is free software; you can redistribute it and/or # modify it under the terms of the GNU General Public License as # published by the Free Software Foundation; either version 2 of # the License, or (at your option) any later version. # This program is distributed in the hope that it will be useful, # but WITHOUT ANY WARRANTY; without even the implied warranty of # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the # GNU General Public License for more details. # You should have received a copy of the GNU General Public License # along with this program; if not, contact: # Free Software Foundation Voice: +1-617-542-5942 # 59 Temple Place - Suite 330 Fax: +1-617-542-2652 # Boston, MA 02111-1307, USA gnu@gnu.org # # Makefile snippet # VPATH = @srcdir@ am__make_dryrun = \ { \ am__dry=no; \ case $$MAKEFLAGS in \ *\\[\ \ ]*) \ echo 'am--echo: ; @echo "AM" OK' | $(MAKE) -f - 2>/dev/null \ | grep '^AM OK$$' >/dev/null || am__dry=yes;; \ *) \ for am__flg in $$MAKEFLAGS; do \ case $$am__flg in \ *=*|--*) ;; \ *n*) am__dry=yes; break;; \ esac; \ done;; \ esac; \ test $$am__dry = yes; \ } pkgdatadir = $(datadir)/@PACKAGE@ pkgincludedir = $(includedir)/@PACKAGE@ pkglibdir = $(libdir)/@PACKAGE@ pkglibexecdir = $(libexecdir)/@PACKAGE@ am__cd = CDPATH="$${ZSH_VERSION+.}$(PATH_SEPARATOR)" && cd install_sh_DATA = $(install_sh) -c -m 644 install_sh_PROGRAM = $(install_sh) -c install_sh_SCRIPT = $(install_sh) -c INSTALL_HEADER = $(INSTALL_DATA) transform = $(program_transform_name) NORMAL_INSTALL = : PRE_INSTALL = : POST_INSTALL = : NORMAL_UNINSTALL = : PRE_UNINSTALL = : POST_UNINSTALL = : build_triplet = @build@ host_triplet = @host@ DIST_COMMON = $(srcdir)/Makefile.am $(srcdir)/Makefile.in \ $(top_srcdir)/common.mk subdir = gtk/gnome/gtk ACLOCAL_M4 = $(top_srcdir)/aclocal.m4 am__aclocal_m4_deps = $(top_srcdir)/configure.ac am__configure_deps = $(am__aclocal_m4_deps) $(CONFIGURE_DEPENDENCIES) \ $(ACLOCAL_M4) mkinstalldirs = $(install_sh) -d CONFIG_HEADER = $(top_builddir)/config.h CONFIG_CLEAN_FILES = CONFIG_CLEAN_VPATH_FILES = SOURCES = DIST_SOURCES = am__can_run_installinfo = \ case $$AM_UPDATE_INFO_DIR in \ n|no|NO) false;; \ *) (install-info --version) >/dev/null 2>&1;; \ esac am__vpath_adj_setup = srcdirstrip=`echo "$(srcdir)" | sed 's|.|.|g'`; am__vpath_adj = case $$p in \ $(srcdir)/*) f=`echo "$$p" | sed "s|^$$srcdirstrip/||"`;; \ *) f=$$p;; \ esac; am__strip_dir = f=`echo $$p | sed -e 's|^.*/||'`; am__install_max = 40 am__nobase_strip_setup = \ srcdirstrip=`echo "$(srcdir)" | sed 's/[].[^$$\\*|]/\\\\&/g'` am__nobase_strip = \ for p in $$list; do echo "$$p"; done | sed -e "s|$$srcdirstrip/||" am__nobase_list = $(am__nobase_strip_setup); \ for p in $$list; do echo "$$p $$p"; done | \ sed "s| $$srcdirstrip/| |;"' / .*\//!s/ .*/ ./; s,\( .*\)/[^/]*$$,\1,' | \ $(AWK) 'BEGIN { files["."] = "" } { files[$$2] = files[$$2] " " $$1; \ if (++n[$$2] == $(am__install_max)) \ { print $$2, files[$$2]; n[$$2] = 0; files[$$2] = "" } } \ END { for (dir in files) print dir, files[dir] }' am__base_list = \ sed '$$!N;$$!N;$$!N;$$!N;$$!N;$$!N;$$!N;s/\n/ /g' | \ sed '$$!N;$$!N;$$!N;$$!N;s/\n/ /g' am__uninstall_files_from_dir = { \ test -z "$$files" \ || { test ! -d "$$dir" && test ! -f "$$dir" && test ! -r "$$dir"; } \ || { echo " ( cd '$$dir' && rm -f" $$files ")"; \ $(am__cd) "$$dir" && rm -f $$files; }; \ } am__installdirs = "$(DESTDIR)$(moduledir)" DATA = $(module_DATA) DISTFILES = $(DIST_COMMON) $(DIST_SOURCES) $(TEXINFOS) $(EXTRA_DIST) ACLOCAL = @ACLOCAL@ AG_PKG_CONFIG_PATH = @AG_PKG_CONFIG_PATH@ AMTAR = @AMTAR@ API_VERSION = @API_VERSION@ AR = @AR@ ATK_CFLAGS = @ATK_CFLAGS@ ATK_LIBS = @ATK_LIBS@ AUTOCONF = @AUTOCONF@ AUTOHEADER = @AUTOHEADER@ AUTOMAKE = @AUTOMAKE@ AWK = @AWK@ BONOBO_IDL_DIR = @BONOBO_IDL_DIR@ CANVAS_CFLAGS = @CANVAS_CFLAGS@ CANVAS_LIBS = @CANVAS_LIBS@ CC = @CC@ CCDEPMODE = @CCDEPMODE@ CFLAGS = @CFLAGS@ CORBA_CFLAGS = @CORBA_CFLAGS@ CORBA_LIBS = @CORBA_LIBS@ CPP = @CPP@ CPPFLAGS = @CPPFLAGS@ CYGPATH_W = @CYGPATH_W@ DEFS = @DEFS@ DEPDIR = @DEPDIR@ DLLTOOL = @DLLTOOL@ DSYMUTIL = @DSYMUTIL@ DUMPBIN = @DUMPBIN@ ECHO_C = @ECHO_C@ ECHO_N = @ECHO_N@ ECHO_T = @ECHO_T@ EGREP = @EGREP@ EXEEXT = @EXEEXT@ FGREP = @FGREP@ GCONF_CFLAGS = @GCONF_CFLAGS@ GCONF_LIBS = @GCONF_LIBS@ GDK_CFLAGS = @GDK_CFLAGS@ GDK_LIBS = @GDK_LIBS@ GDK_PIXBUF_CFLAGS = @GDK_PIXBUF_CFLAGS@ GDK_PIXBUF_LIBS = @GDK_PIXBUF_LIBS@ GLIB_CFLAGS = @GLIB_CFLAGS@ GLIB_LIBS = @GLIB_LIBS@ GNOMEUI_DEPRECATION_FLAGS = @GNOMEUI_DEPRECATION_FLAGS@ GNOME_VFS_CFLAGS = @GNOME_VFS_CFLAGS@ GNOME_VFS_DEPRECATED_CFLAGS = @GNOME_VFS_DEPRECATED_CFLAGS@ GNOME_VFS_LIBS = @GNOME_VFS_LIBS@ GOBJECT_CFLAGS = @GOBJECT_CFLAGS@ GOBJECT_LIBS = @GOBJECT_LIBS@ GREP = @GREP@ GTHREAD_CFLAGS = @GTHREAD_CFLAGS@ GTHREAD_LIBS = @GTHREAD_LIBS@ GTK_CFLAGS = @GTK_CFLAGS@ GTK_DEPRECATED_CFLAGS = @GTK_DEPRECATED_CFLAGS@ GTK_LIBS = @GTK_LIBS@ GUILE_CAIRO_CFLAGS = @GUILE_CAIRO_CFLAGS@ GUILE_CAIRO_LIBS = @GUILE_CAIRO_LIBS@ GUILE_CFLAGS = @GUILE_CFLAGS@ GUILE_EFFECTIVE_VERSION = @GUILE_EFFECTIVE_VERSION@ GUILE_GLIB_CFLAGS = @GUILE_GLIB_CFLAGS@ GUILE_GLIB_LIBS = @GUILE_GLIB_LIBS@ GUILE_LIBS = @GUILE_LIBS@ G_WRAP_CFLAGS = @G_WRAP_CFLAGS@ G_WRAP_LIBS = @G_WRAP_LIBS@ G_WRAP_LIB_DIR = @G_WRAP_LIB_DIR@ G_WRAP_MODULE_DIR = @G_WRAP_MODULE_DIR@ INSTALL = @INSTALL@ INSTALL_DATA = @INSTALL_DATA@ INSTALL_PROGRAM = @INSTALL_PROGRAM@ INSTALL_SCRIPT = @INSTALL_SCRIPT@ INSTALL_STRIP_PROGRAM = @INSTALL_STRIP_PROGRAM@ LD = @LD@ LDFLAGS = @LDFLAGS@ LIBGLADE_CFLAGS = @LIBGLADE_CFLAGS@ LIBGLADE_LIBS = @LIBGLADE_LIBS@ LIBGNOMEUI_CFLAGS = @LIBGNOMEUI_CFLAGS@ LIBGNOMEUI_LIBS = @LIBGNOMEUI_LIBS@ LIBGNOME_CFLAGS = @LIBGNOME_CFLAGS@ LIBGNOME_LIBS = @LIBGNOME_LIBS@ LIBOBJS = @LIBOBJS@ LIBS = @LIBS@ LIBTOOL = @LIBTOOL@ LIPO = @LIPO@ LN_S = @LN_S@ LTLIBOBJS = @LTLIBOBJS@ MAKEINFO = @MAKEINFO@ MANIFEST_TOOL = @MANIFEST_TOOL@ MKDIR_P = @MKDIR_P@ NM = @NM@ NMEDIT = @NMEDIT@ OBJDUMP = @OBJDUMP@ OBJEXT = @OBJEXT@ ORBIT_IDL = @ORBIT_IDL@ OTOOL = @OTOOL@ OTOOL64 = @OTOOL64@ PACKAGE = @PACKAGE@ PACKAGE_BUGREPORT = @PACKAGE_BUGREPORT@ PACKAGE_NAME = @PACKAGE_NAME@ PACKAGE_STRING = @PACKAGE_STRING@ PACKAGE_TARNAME = @PACKAGE_TARNAME@ PACKAGE_URL = @PACKAGE_URL@ PACKAGE_VERSION = @PACKAGE_VERSION@ PANGOCAIRO_CFLAGS = @PANGOCAIRO_CFLAGS@ PANGOCAIRO_LIBS = @PANGOCAIRO_LIBS@ PANGO_CFLAGS = @PANGO_CFLAGS@ PANGO_LIBS = @PANGO_LIBS@ PATH_SEPARATOR = @PATH_SEPARATOR@ PKG_CONFIG = @PKG_CONFIG@ PKG_CONFIG_LIBDIR = @PKG_CONFIG_LIBDIR@ PKG_CONFIG_PATH = @PKG_CONFIG_PATH@ RANLIB = @RANLIB@ SED = @SED@ SET_MAKE = @SET_MAKE@ SHELL = @SHELL@ STRIP = @STRIP@ VERSION = @VERSION@ WARN_CFLAGS = @WARN_CFLAGS@ abs_builddir = @abs_builddir@ abs_srcdir = @abs_srcdir@ abs_top_builddir = @abs_top_builddir@ abs_top_srcdir = @abs_top_srcdir@ ac_ct_AR = @ac_ct_AR@ ac_ct_CC = @ac_ct_CC@ ac_ct_DUMPBIN = @ac_ct_DUMPBIN@ am__include = @am__include@ am__leading_dot = @am__leading_dot@ am__quote = @am__quote@ am__tar = @am__tar@ am__untar = @am__untar@ bindir = @bindir@ build = @build@ build_alias = @build_alias@ build_cpu = @build_cpu@ build_os = @build_os@ build_vendor = @build_vendor@ builddir = @builddir@ datadir = @datadir@ datarootdir = @datarootdir@ docdir = @docdir@ dvidir = @dvidir@ exec_prefix = @exec_prefix@ host = @host@ host_alias = @host_alias@ host_cpu = @host_cpu@ host_os = @host_os@ host_vendor = @host_vendor@ htmldir = @htmldir@ includedir = @includedir@ infodir = @infodir@ install_sh = @install_sh@ libdir = @libdir@ libexecdir = @libexecdir@ localedir = @localedir@ localstatedir = @localstatedir@ mandir = @mandir@ mkdir_p = @mkdir_p@ oldincludedir = @oldincludedir@ pdfdir = @pdfdir@ prefix = @prefix@ program_transform_name = @program_transform_name@ psdir = @psdir@ sbindir = @sbindir@ sharedstatedir = @sharedstatedir@ srcdir = @srcdir@ sysconfdir = @sysconfdir@ target_alias = @target_alias@ top_build_prefix = @top_build_prefix@ top_builddir = @top_builddir@ top_srcdir = @top_srcdir@ guilegnomedir = $(datadir)/guile-gnome-@API_VERSION@ guilemoduledir = $(guilegnomedir)/gnome guilegwmoduledir = $(guilegnomedir)/gnome/gw guilegnomelibdir = $(libdir)/guile-gnome-@API_VERSION@ AM_CFLAGS = -I. -I$(srcdir) $(WARN_CFLAGS) $(DEBUG_CFLAGS) # For overriding from the command line (e.g. --debug) GUILE_FLAGS = SUFFIXES = .x .doc GUILE_SNARF_CFLAGS = $(DEFS) $(AM_CFLAGS) $(GUILE_CFLAGS) $(G_WRAP_CFLAGS) PACKAGES = atk cairo corba defs gconf glib gnome-vfs gtk libglade libgnome libgnomecanvas libgnomeui pango SOURCE_GUILE_PATH = $(shell echo $(addprefix $(top_srcdir)/,$(PACKAGES)) | sed -e 's/ /:/g'):$(srcdir) BUILD_GUILE_PATH = $(if $(filter-out $(top_srcdir),$(top_builddir)),$(shell echo -n $(addprefix $(top_builddir)/,$(PACKAGES)): | sed -e 's/ /:/g'),) GUILE_LOAD_PATH := $(BUILD_GUILE_PATH)$(SOURCE_GUILE_PATH):${G_WRAP_MODULE_DIR}:${GUILE_LOAD_PATH} # Real gnu make foo packages = $(filter-out %-uninstalled,$(patsubst %.pc.in,%,$(notdir $(wildcard $(srcdir)/*.pc.in)))) pcifiles = $(patsubst %,%-@API_VERSION@.pc,$(packages)) pcufiles = $(patsubst %,%-@API_VERSION@-uninstalled.pc,$(packages)) moduledir = $(guilemoduledir)/gtk module_DATA = gdk-event.scm graphical-repl.scm EXTRA_DIST = $(module_DATA) all: all-am .SUFFIXES: .SUFFIXES: .x .doc .c $(srcdir)/Makefile.in: $(srcdir)/Makefile.am $(top_srcdir)/common.mk $(am__configure_deps) @for dep in $?; do \ case '$(am__configure_deps)' in \ *$$dep*) \ ( cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh ) \ && { if test -f $@; then exit 0; else break; fi; }; \ exit 1;; \ esac; \ done; \ echo ' cd $(top_srcdir) && $(AUTOMAKE) --gnu gtk/gnome/gtk/Makefile'; \ $(am__cd) $(top_srcdir) && \ $(AUTOMAKE) --gnu gtk/gnome/gtk/Makefile .PRECIOUS: Makefile Makefile: $(srcdir)/Makefile.in $(top_builddir)/config.status @case '$?' in \ *config.status*) \ cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh;; \ *) \ echo ' cd $(top_builddir) && $(SHELL) ./config.status $(subdir)/$@ $(am__depfiles_maybe)'; \ cd $(top_builddir) && $(SHELL) ./config.status $(subdir)/$@ $(am__depfiles_maybe);; \ esac; $(top_srcdir)/common.mk: $(top_builddir)/config.status: $(top_srcdir)/configure $(CONFIG_STATUS_DEPENDENCIES) cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh $(top_srcdir)/configure: $(am__configure_deps) cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh $(ACLOCAL_M4): $(am__aclocal_m4_deps) cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh $(am__aclocal_m4_deps): mostlyclean-libtool: -rm -f *.lo clean-libtool: -rm -rf .libs _libs install-moduleDATA: $(module_DATA) @$(NORMAL_INSTALL) @list='$(module_DATA)'; test -n "$(moduledir)" || list=; \ if test -n "$$list"; then \ echo " $(MKDIR_P) '$(DESTDIR)$(moduledir)'"; \ $(MKDIR_P) "$(DESTDIR)$(moduledir)" || exit 1; \ fi; \ for p in $$list; do \ if test -f "$$p"; then d=; else d="$(srcdir)/"; fi; \ echo "$$d$$p"; \ done | $(am__base_list) | \ while read files; do \ echo " $(INSTALL_DATA) $$files '$(DESTDIR)$(moduledir)'"; \ $(INSTALL_DATA) $$files "$(DESTDIR)$(moduledir)" || exit $$?; \ done uninstall-moduleDATA: @$(NORMAL_UNINSTALL) @list='$(module_DATA)'; test -n "$(moduledir)" || list=; \ files=`for p in $$list; do echo $$p; done | sed -e 's|^.*/||'`; \ dir='$(DESTDIR)$(moduledir)'; $(am__uninstall_files_from_dir) tags: TAGS TAGS: ctags: CTAGS CTAGS: distdir: $(DISTFILES) @srcdirstrip=`echo "$(srcdir)" | sed 's/[].[^$$\\*]/\\\\&/g'`; \ topsrcdirstrip=`echo "$(top_srcdir)" | sed 's/[].[^$$\\*]/\\\\&/g'`; \ list='$(DISTFILES)'; \ dist_files=`for file in $$list; do echo $$file; done | \ sed -e "s|^$$srcdirstrip/||;t" \ -e "s|^$$topsrcdirstrip/|$(top_builddir)/|;t"`; \ case $$dist_files in \ */*) $(MKDIR_P) `echo "$$dist_files" | \ sed '/\//!d;s|^|$(distdir)/|;s,/[^/]*$$,,' | \ sort -u` ;; \ esac; \ for file in $$dist_files; do \ if test -f $$file || test -d $$file; then d=.; else d=$(srcdir); fi; \ if test -d $$d/$$file; then \ dir=`echo "/$$file" | sed -e 's,/[^/]*$$,,'`; \ if test -d "$(distdir)/$$file"; then \ find "$(distdir)/$$file" -type d ! -perm -700 -exec chmod u+rwx {} \;; \ fi; \ if test -d $(srcdir)/$$file && test $$d != $(srcdir); then \ cp -fpR $(srcdir)/$$file "$(distdir)$$dir" || exit 1; \ find "$(distdir)/$$file" -type d ! -perm -700 -exec chmod u+rwx {} \;; \ fi; \ cp -fpR $$d/$$file "$(distdir)$$dir" || exit 1; \ else \ test -f "$(distdir)/$$file" \ || cp -p $$d/$$file "$(distdir)/$$file" \ || exit 1; \ fi; \ done check-am: all-am check: check-am all-am: Makefile $(DATA) installdirs: for dir in "$(DESTDIR)$(moduledir)"; do \ test -z "$$dir" || $(MKDIR_P) "$$dir"; \ done install: install-am install-exec: install-exec-am install-data: install-data-am uninstall: uninstall-am install-am: all-am @$(MAKE) $(AM_MAKEFLAGS) install-exec-am install-data-am installcheck: installcheck-am install-strip: if test -z '$(STRIP)'; then \ $(MAKE) $(AM_MAKEFLAGS) INSTALL_PROGRAM="$(INSTALL_STRIP_PROGRAM)" \ install_sh_PROGRAM="$(INSTALL_STRIP_PROGRAM)" INSTALL_STRIP_FLAG=-s \ install; \ else \ $(MAKE) $(AM_MAKEFLAGS) INSTALL_PROGRAM="$(INSTALL_STRIP_PROGRAM)" \ install_sh_PROGRAM="$(INSTALL_STRIP_PROGRAM)" INSTALL_STRIP_FLAG=-s \ "INSTALL_PROGRAM_ENV=STRIPPROG='$(STRIP)'" install; \ fi mostlyclean-generic: clean-generic: distclean-generic: -test -z "$(CONFIG_CLEAN_FILES)" || rm -f $(CONFIG_CLEAN_FILES) -test . = "$(srcdir)" || test -z "$(CONFIG_CLEAN_VPATH_FILES)" || rm -f $(CONFIG_CLEAN_VPATH_FILES) maintainer-clean-generic: @echo "This command is intended for maintainers to use" @echo "it deletes files that may require special tools to rebuild." clean: clean-am clean-am: clean-generic clean-libtool mostlyclean-am distclean: distclean-am -rm -f Makefile distclean-am: clean-am distclean-generic dvi: dvi-am dvi-am: html: html-am html-am: info: info-am info-am: install-data-am: install-moduleDATA install-dvi: install-dvi-am install-dvi-am: install-exec-am: install-html: install-html-am install-html-am: install-info: install-info-am install-info-am: install-man: install-pdf: install-pdf-am install-pdf-am: install-ps: install-ps-am install-ps-am: installcheck-am: maintainer-clean: maintainer-clean-am -rm -f Makefile maintainer-clean-am: distclean-am maintainer-clean-generic mostlyclean: mostlyclean-am mostlyclean-am: mostlyclean-generic mostlyclean-libtool pdf: pdf-am pdf-am: ps: ps-am ps-am: uninstall-am: uninstall-moduleDATA .MAKE: install-am install-strip .PHONY: all all-am check check-am clean clean-generic clean-libtool \ distclean distclean-generic distclean-libtool distdir dvi \ dvi-am html html-am info info-am install install-am \ install-data install-data-am install-dvi install-dvi-am \ install-exec install-exec-am install-html install-html-am \ install-info install-info-am install-man install-moduleDATA \ install-pdf install-pdf-am install-ps install-ps-am \ install-strip installcheck installcheck-am installdirs \ maintainer-clean maintainer-clean-generic mostlyclean \ mostlyclean-generic mostlyclean-libtool pdf pdf-am ps ps-am \ uninstall uninstall-am uninstall-moduleDATA export GUILE_LOAD_PATH .c.x: guile-snarf $(GUILE_SNARF_CFLAGS) $< > $@ \ || { rm $@; false; } .c.doc: $(CPP) -DSCM_MAGIC_SNARF_DOCS $(GUILE_SNARF_CFLAGS) $< \ | grep -E '(\^\^ {|\^\^ })' > $@ || { rm $@; false; } %.scm guile-gnome-gw-%.c: %-spec.scm guile $(GUILE_FLAGS) -c \ "(debug-set! stack 400000) \ (use-modules (gnome-@API_VERSION@)) \ (use-modules (g-wrap)) \ (use-modules (gnome gw $*-spec)) \ (generate-wrapset 'guile 'gnome-$* \"guile-gnome-gw-$*\")" mv guile-gnome-gw-$*.scm $*.scm %-@API_VERSION@.pc: %.pc cp $< $@ %-@API_VERSION@-uninstalled.pc: %-uninstalled.pc cp $< $@ # Tell versions [3.59,3.63) of GNU make to not export all variables. # Otherwise a system limit (for SysV at least) may be exceeded. .NOEXPORT: guile-gnome-platform-2.16.2/gtk/gnome/gtk/graphical-repl.scm0000644000175000017500000004636711670374303024265 0ustar00wingowingo00000000000000;; guile-gnome ;; Copyright (C) 2001, 2009 Neil Jerram ;; Copyright (C) 2003,2004 Andy Wingo ;; This program is free software; you can redistribute it and/or ;; modify it under the terms of the GNU General Public License as ;; published by the Free Software Foundation; either version 2 of ;; the License, or (at your option) any later version. ;; ;; This program is distributed in the hope that it will be useful, ;; but WITHOUT ANY WARRANTY; without even the implied warranty of ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the ;; GNU General Public License for more details. ;; ;; You should have received a copy of the GNU General Public License ;; along with this program; if not, contact: ;; ;; Free Software Foundation Voice: +1-617-542-5942 ;; 59 Temple Place - Suite 330 Fax: +1-617-542-2652 ;; Boston, MA 02111-1307, USA gnu@gnu.org ;;; Commentary: ;; ;;A class for a graphical REPL. For the moment, see repl.scm in the ;;examples directory for documentation. ;; ;;; Code: (define-module (gnome gtk graphical-repl) #:use-module (ice-9 buffered-input) #:use-module (ice-9 rdelim) #:use-module (ice-9 session) ;; for the completer #:use-module (ice-9 regex) ;; for the completer #:use-module (oop goops) #:use-module (gnome gobject) #:use-module (gnome glib) #:use-module (gnome gtk) #:use-module (gnome pango) #:use-module (gnome gtk gdk-event) #:export ( construct-view guile-gtk-repl)) (define-class () #:vtable #((move-cursor "Move cursor" 1) (highlight-region "Highlight region" 2))) (define-class () new-read-hook read-complete-hook main-loop (port #:gparam `(, #:boxed-type , #:flags (read))) (paren-matching-style #:gparam `(, #:flags-type , #:default-value 1 ;; arrg #:flags (read write construct))) #:gsignal `(complete #f , ,)) (define (find-matching-open str pos) (let ((reversed-str (let loop ((pos pos) (chars '())) (if (< pos 0) (list->string (reverse! chars)) (loop (- pos 1) (let ((c (string-ref str pos))) (case c ((#\() (cons #\) chars)) ((#\)) (cons #\( chars)) ((#\\) (set-car! chars #\x) (cons #\x chars)) (else (cons c chars))))))))) (if (char=? (string-ref reversed-str 0) #\() (with-input-from-string reversed-str (lambda () (let ((x (false-if-exception (read)))) (cond ((eof-object? x) #f) (x (- (string-length reversed-str) (port-column (current-input-port)))) (else #f))))) #f))) (define (install-paren-matching-handlers entry) (letrec ((saved-pos #f) (restore-text (lambda args (if saved-pos (begin (select-region entry 0 0) (set-position entry saved-pos) (set! saved-pos #f))) #f))) ;; This handler runs before insertion and checks whether the ;; character to be inserted is a closing parenthesis. If so, it ;; moves the cursor and/or highlights the matching region, and ;; installs a timeout to restore the entry contents after half a ;; second. (connect-after entry 'insert-text ;; The position passed to this handler is an in-out ;; gint*. That's broken. Why not just a GValue? (lambda (entry text length in-out-new-pos) (let ((style (gflags->symbol-list (slot-ref entry 'paren-matching-style))) (str (get-text entry)) (pos (get-position entry))) ;; before insertion (if (and (eq? length 1) (char=? (string-ref text 0) #\))) (let ((open-pos (find-matching-open str pos))) (if open-pos (begin (set! saved-pos (1+ pos)) (if (memq 'move-cursor style) ;; We can't call set-position here ;; because the in-out position will ;; obviate our settings. So do it in ;; an idle callback (grr). (g-idle-add (lambda () (set-position entry open-pos) #f))) (if (memq 'highlight-region style) (select-region entry open-pos (1+ pos))) (g-timeout-add 500 restore-text)))))))) ;; This handler restores the entry contents early in the event of ;; a key press occurring before the above timer pops. (connect entry 'key-press-event restore-text))) (define (install-history-handlers entry) (let ((history '()) (position -1) (non-history-line "--should never see this--") (handler #f) (new-read-hook (slot-ref entry 'new-read-hook)) (read-complete-hook (slot-ref entry 'read-complete-hook))) (define (history-up) (if (< (+ position 1) (length history)) (begin (if (< position 0) (set! non-history-line (get entry 'text))) (set! position (+ position 1)) (let ((text (list-ref history position))) (set entry 'text text) (set-position entry (string-length text)))))) (define (history-down) (if (>= position 0) (begin (set! position (- position 1)) (set entry 'text (if (negative? position) non-history-line (list-ref history position)))))) (connect entry 'key-press-event (lambda (entry event) (let ((keyval (gdk-event-key:keyval event))) (cond ((or (eq? keyval gdk:Up) (eq? keyval gdk:KP-Up)) (history-up) #t) ((or (eq? keyval gdk:Down) (eq? keyval gdk:KP-Down)) (history-down) #t) (else #f))))) (add-hook! read-complete-hook (lambda (str) (if (not (string=? str "")) (set! history (cons str history))) (set! position -1))) (catch #t (lambda () (let ((history-file (or (getenv "GUILE_HISTORY") (string-append (passwd:dir (getpwuid (getuid))) "/.guile_history")))) (with-input-from-file history-file (lambda () (let lp ((out '()) (line (read-line))) (if (eof-object? line) (set! history out) (lp (cons line out) (read-line)))))) (let ((old history)) (add-hook! exit-hook (lambda () (with-output-to-port (open-file history-file "a") (lambda () (for-each write-line (let lp ((in history) (out '())) (if (eq? in old) out (lp (cdr in) (cons (car in) out)))))))))))) noop))) (define complete (if (provided? 'regex) (lambda (text) (map symbol->string (apropos-internal (string-append "^" (regexp-quote text))))) (lambda (text) '()))) (define (do-completion entry) ;; `extended' is from r5rs (let* ((pos (get-position entry)) (head (get-chars entry 0 pos)) (text (let ((extended (string->list "!$%&*+-./:<=>?@^_~"))) (let loop ((in (reverse (string->list head))) (out '())) (if (or (null? in) (not (or (char-alphabetic? (car in)) (char-numeric? (car in)) (memq (car in) extended)))) (list->string out) (loop (cdr in) (cons (car in) out)))))) (completions (complete text)) (common (if (null? completions) "" (let loop ((l completions) (index 0) (ch #f)) (cond ((null? l) (loop completions (1+ index) #f)) ((< index (string-length (car l))) (if ch (if (eq? (string-ref (car l) index) ch) (loop (cdr l) index ch) (substring (car completions) 0 index)) (loop (cdr l) index (string-ref (car l) index)))) (else (substring (car completions) 0 index))))))) (if (> (string-length common) (string-length head)) (set-position entry (insert-text entry (string-append (substring common (string-length text)) (if (eq? (length completions) 1) " " "")) pos)) (emit entry 'complete head (sort-list completions string) initargs) (next-method) (slot-set! entry 'new-read-hook (make-hook)) (slot-set! entry 'read-complete-hook (make-hook 1)) (slot-set! entry 'main-loop #f) (let ((return-from-read #f) (new-read-hook (slot-ref entry 'new-read-hook)) (read-complete-hook (slot-ref entry 'read-complete-hook))) (slot-set! entry 'port (make-line-buffered-input-port (lambda (continuation?) (run-hook new-read-hook) (let ((read-string #f) (main-loop (or (slot-ref entry 'main-loop) (g-main-loop-new #f #f)))) (set! return-from-read (lambda (x) (set! read-string x) (g-main-loop-quit main-loop))) (g-main-loop-run main-loop) read-string)))) (modify-font entry (pango-font-description-from-string "Monospace")) ;; Define a new-read hook procedure that prepares the entry. (add-hook! new-read-hook (lambda () (set entry 'sensitive #t) (grab-focus entry))) ;; Define a read-complete hook procedure that clears the entry ;; field and makes it insensitive. (add-hook! read-complete-hook (lambda (str) (set entry 'sensitive #f) (set entry 'text ""))) ;; When the user presses RETURN, run the read-complete hook and ;; return the string to the continuation. (connect entry 'activate (lambda (entry) (if return-from-read (let ((str (get entry 'text))) (run-hook read-complete-hook str) (return-from-read str)) (warn "no return-from-read!")))) ;; These keypresses can't be caught by the parent window, ;; apparently... (connect entry 'key-press-event (lambda (entry event) (let ((keyval (gdk-event-key:keyval event)) (modifiers (gdk-event-key:modifiers event))) (cond ;; Turn Ctrl-C into SIGINT ((and (memq 'control-mask modifiers) (eq? keyval gdk:c)) (kill (getpid) SIGINT) #f) ((eq? keyval gdk:Tab) (do-completion entry) #t) (else #f))))) (install-paren-matching-handlers entry) (install-history-handlers entry))) (define-class () (port #:gparam `(, #:boxed-type , #:flags (read)))) (define-method (initialize (output ) initargs) (define (output-string str) (let ((end (get-end-iter output))) (insert output end str))) (next-method) (slot-set! output 'port (make-soft-port (vector (lambda (char) (output-string (string char))) output-string #f #f #f) "w"))) (define-method (construct-view (buffer )) (let ((view (make #:editable #f #:cursor-visible #f #:can-focus #f #:wrap-mode 'char))) (modify-font view (pango-font-description-from-string "Monospace")) (set-buffer view buffer) (let ((mark (create-mark buffer "end" (get-end-iter buffer) #f))) (connect buffer 'changed (lambda (buf) (scroll-to-mark view mark 0.0 #t 0.0 1.0)))) view)) (define-class () entry output scrolled output-view (in-port #:gparam `(, #:boxed-type ,)) (out-port #:gparam `(, #:boxed-type ,))) (define-method (gobject:get-property (obj ) (prop )) (case prop ((in-port) (get (slot-ref obj 'entry) 'port)) ((out-port) (get (slot-ref obj 'output) 'port)))) (define (pretty-display-strings scm width) (let* ((max-length (1+ (apply max (map string-length scm)))) (num-cols (inexact->exact (floor (/ width max-length)))) (col-width (inexact->exact (floor (/ width num-cols))))) (let loop ((l scm) (col 0)) (if (not (null? l)) (let* ((str (car l)) (len (string-length str)) (next-col (modulo (1+ col) num-cols))) (display str) (if (zero? next-col) (if (not (null? (cdr l))) (newline)) (display (make-string (- col-width len) #\space))) (loop (cdr l) next-col)))))) (define-method (initialize (obj ) initargs) (next-method) (slot-set! obj 'entry (make )) (slot-set! obj 'output (make )) (slot-set! obj 'scrolled (make #:hscrollbar-policy 'never #:vscrollbar-policy 'always)) (slot-set! obj 'output-view (construct-view (slot-ref obj 'output))) (let ((entry (slot-ref obj 'entry)) (output (slot-ref obj 'output)) (scrolled (slot-ref obj 'scrolled)) (view (slot-ref obj 'output-view))) ;; Install some nice keybindings (connect obj 'key-press-event (lambda (obj event) (let ((keyval (gdk-event-key:keyval event)) (modifiers (gdk-event-key:modifiers event))) (cond ;; Page-Up/Down to move the view -- this is broken, ;; need to wrap GtkAdjustment better ((or (eq? keyval gdk:Page-Up) (eq? keyval gdk:Page-Down)) (let* ((adjustment (get scrolled 'vadjustment)) (new-value ((if (eq? keyval gdk:Page-Up) + -) 0.1 (get-value adjustment)))) ;; 0.1 is a hack, cause adjustments don't have properties (set-value adjustment (if (< new-value 0) 0 (if (> new-value 1) 1 new-value)))) #f) (else #f))))) (add-hook! (slot-ref entry 'read-complete-hook) (lambda (str) (display str (get output 'port)) (newline (get output 'port)))) (connect entry 'complete (lambda (entry text completions) (with-output-to-port (get output 'port) (lambda () (with-error-to-port (get output 'port) (lambda () (display text) (newline) (if (null? completions) (display "[no completions]") (pretty-display-strings completions 70)) ;; We don't really know how big the window is, ;; unfortunately (newline) (display scm-repl-prompt))))))) (pack-start obj scrolled #t #t 0) (add scrolled view) (for-each show (list entry scrolled view)) (pack-start obj entry #f #f 0))) (define (guile-gtk-repl) (let* ((w (make #:title "Guile-Gtk REPL")) (repl (make )) (main-loop (g-main-loop-new #f #f)) (in-port (get repl 'in-port)) (out-port (get repl 'out-port)) (old-in-port #f) (old-out-port #f) (old-error-port #f) (old-repl-reader #f)) (add w repl) (set-default-size w 600 400) (show-all w) (connect w 'delete-event (lambda args (apply throw 'quit args) #f)) (dynamic-wind (lambda () (set! old-in-port (set-current-input-port in-port)) (set! old-out-port (set-current-output-port out-port)) (set! old-error-port (set-current-error-port out-port)) (set! old-repl-reader repl-reader) (set! repl-reader (lambda (prompt . reader) (display (if (string? prompt) prompt (prompt))) (force-output) (run-hook before-read-hook) ((or (and (pair? reader) (car reader)) read) (current-input-port))))) top-repl (lambda () (set-current-input-port old-in-port) (set-current-output-port old-out-port) (set-current-error-port old-error-port) (set! repl-reader old-repl-reader))))) guile-gnome-platform-2.16.2/gtk/gnome/Makefile.am0000644000175000017500000000032211670374303022113 0ustar00wingowingo00000000000000include $(top_srcdir)/common.mk SUBDIRS = gtk contrib overrides DIST_SUBDIRS = gtk contrib gw overrides guilemodule_DATA = if HAVE_GTK guilemodule_DATA += gtk.scm SUBDIRS += gw endif EXTRA_DIST = gtk.scm guile-gnome-platform-2.16.2/gtk/gnome/Makefile.in0000644000175000017500000005745411752520672022151 0ustar00wingowingo00000000000000# Makefile.in generated by automake 1.11.5 from Makefile.am. # @configure_input@ # Copyright (C) 1994, 1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, # 2003, 2004, 2005, 2006, 2007, 2008, 2009, 2010, 2011 Free Software # Foundation, Inc. # This Makefile.in is free software; the Free Software Foundation # gives unlimited permission to copy and/or distribute it, # with or without modifications, as long as this notice is preserved. # This program is distributed in the hope that it will be useful, # but WITHOUT ANY WARRANTY, to the extent permitted by law; without # even the implied warranty of MERCHANTABILITY or FITNESS FOR A # PARTICULAR PURPOSE. @SET_MAKE@ # guile-gnome # Copyright (C) 2003,2004,2009,2012 Free Software Foundation, Inc. # This program is free software; you can redistribute it and/or # modify it under the terms of the GNU General Public License as # published by the Free Software Foundation; either version 2 of # the License, or (at your option) any later version. # This program is distributed in the hope that it will be useful, # but WITHOUT ANY WARRANTY; without even the implied warranty of # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the # GNU General Public License for more details. # You should have received a copy of the GNU General Public License # along with this program; if not, contact: # Free Software Foundation Voice: +1-617-542-5942 # 59 Temple Place - Suite 330 Fax: +1-617-542-2652 # Boston, MA 02111-1307, USA gnu@gnu.org # # Makefile snippet # VPATH = @srcdir@ am__make_dryrun = \ { \ am__dry=no; \ case $$MAKEFLAGS in \ *\\[\ \ ]*) \ echo 'am--echo: ; @echo "AM" OK' | $(MAKE) -f - 2>/dev/null \ | grep '^AM OK$$' >/dev/null || am__dry=yes;; \ *) \ for am__flg in $$MAKEFLAGS; do \ case $$am__flg in \ *=*|--*) ;; \ *n*) am__dry=yes; break;; \ esac; \ done;; \ esac; \ test $$am__dry = yes; \ } pkgdatadir = $(datadir)/@PACKAGE@ pkgincludedir = $(includedir)/@PACKAGE@ pkglibdir = $(libdir)/@PACKAGE@ pkglibexecdir = $(libexecdir)/@PACKAGE@ am__cd = CDPATH="$${ZSH_VERSION+.}$(PATH_SEPARATOR)" && cd install_sh_DATA = $(install_sh) -c -m 644 install_sh_PROGRAM = $(install_sh) -c install_sh_SCRIPT = $(install_sh) -c INSTALL_HEADER = $(INSTALL_DATA) transform = $(program_transform_name) NORMAL_INSTALL = : PRE_INSTALL = : POST_INSTALL = : NORMAL_UNINSTALL = : PRE_UNINSTALL = : POST_UNINSTALL = : build_triplet = @build@ host_triplet = @host@ DIST_COMMON = $(srcdir)/Makefile.am $(srcdir)/Makefile.in \ $(top_srcdir)/common.mk @HAVE_GTK_TRUE@am__append_1 = gtk.scm @HAVE_GTK_TRUE@am__append_2 = gw subdir = gtk/gnome ACLOCAL_M4 = $(top_srcdir)/aclocal.m4 am__aclocal_m4_deps = $(top_srcdir)/configure.ac am__configure_deps = $(am__aclocal_m4_deps) $(CONFIGURE_DEPENDENCIES) \ $(ACLOCAL_M4) mkinstalldirs = $(install_sh) -d CONFIG_HEADER = $(top_builddir)/config.h CONFIG_CLEAN_FILES = CONFIG_CLEAN_VPATH_FILES = SOURCES = DIST_SOURCES = RECURSIVE_TARGETS = all-recursive check-recursive dvi-recursive \ html-recursive info-recursive install-data-recursive \ install-dvi-recursive install-exec-recursive \ install-html-recursive install-info-recursive \ install-pdf-recursive install-ps-recursive install-recursive \ installcheck-recursive installdirs-recursive pdf-recursive \ ps-recursive uninstall-recursive am__can_run_installinfo = \ case $$AM_UPDATE_INFO_DIR in \ n|no|NO) false;; \ *) (install-info --version) >/dev/null 2>&1;; \ esac am__vpath_adj_setup = srcdirstrip=`echo "$(srcdir)" | sed 's|.|.|g'`; am__vpath_adj = case $$p in \ $(srcdir)/*) f=`echo "$$p" | sed "s|^$$srcdirstrip/||"`;; \ *) f=$$p;; \ esac; am__strip_dir = f=`echo $$p | sed -e 's|^.*/||'`; am__install_max = 40 am__nobase_strip_setup = \ srcdirstrip=`echo "$(srcdir)" | sed 's/[].[^$$\\*|]/\\\\&/g'` am__nobase_strip = \ for p in $$list; do echo "$$p"; done | sed -e "s|$$srcdirstrip/||" am__nobase_list = $(am__nobase_strip_setup); \ for p in $$list; do echo "$$p $$p"; done | \ sed "s| $$srcdirstrip/| |;"' / .*\//!s/ .*/ ./; s,\( .*\)/[^/]*$$,\1,' | \ $(AWK) 'BEGIN { files["."] = "" } { files[$$2] = files[$$2] " " $$1; \ if (++n[$$2] == $(am__install_max)) \ { print $$2, files[$$2]; n[$$2] = 0; files[$$2] = "" } } \ END { for (dir in files) print dir, files[dir] }' am__base_list = \ sed '$$!N;$$!N;$$!N;$$!N;$$!N;$$!N;$$!N;s/\n/ /g' | \ sed '$$!N;$$!N;$$!N;$$!N;s/\n/ /g' am__uninstall_files_from_dir = { \ test -z "$$files" \ || { test ! -d "$$dir" && test ! -f "$$dir" && test ! -r "$$dir"; } \ || { echo " ( cd '$$dir' && rm -f" $$files ")"; \ $(am__cd) "$$dir" && rm -f $$files; }; \ } am__installdirs = "$(DESTDIR)$(guilemoduledir)" DATA = $(guilemodule_DATA) RECURSIVE_CLEAN_TARGETS = mostlyclean-recursive clean-recursive \ distclean-recursive maintainer-clean-recursive AM_RECURSIVE_TARGETS = $(RECURSIVE_TARGETS:-recursive=) \ $(RECURSIVE_CLEAN_TARGETS:-recursive=) tags TAGS ctags CTAGS \ distdir ETAGS = etags CTAGS = ctags DISTFILES = $(DIST_COMMON) $(DIST_SOURCES) $(TEXINFOS) $(EXTRA_DIST) am__relativize = \ dir0=`pwd`; \ sed_first='s,^\([^/]*\)/.*$$,\1,'; \ sed_rest='s,^[^/]*/*,,'; \ sed_last='s,^.*/\([^/]*\)$$,\1,'; \ sed_butlast='s,/*[^/]*$$,,'; \ while test -n "$$dir1"; do \ first=`echo "$$dir1" | sed -e "$$sed_first"`; \ if test "$$first" != "."; then \ if test "$$first" = ".."; then \ dir2=`echo "$$dir0" | sed -e "$$sed_last"`/"$$dir2"; \ dir0=`echo "$$dir0" | sed -e "$$sed_butlast"`; \ else \ first2=`echo "$$dir2" | sed -e "$$sed_first"`; \ if test "$$first2" = "$$first"; then \ dir2=`echo "$$dir2" | sed -e "$$sed_rest"`; \ else \ dir2="../$$dir2"; \ fi; \ dir0="$$dir0"/"$$first"; \ fi; \ fi; \ dir1=`echo "$$dir1" | sed -e "$$sed_rest"`; \ done; \ reldir="$$dir2" ACLOCAL = @ACLOCAL@ AG_PKG_CONFIG_PATH = @AG_PKG_CONFIG_PATH@ AMTAR = @AMTAR@ API_VERSION = @API_VERSION@ AR = @AR@ ATK_CFLAGS = @ATK_CFLAGS@ ATK_LIBS = @ATK_LIBS@ AUTOCONF = @AUTOCONF@ AUTOHEADER = @AUTOHEADER@ AUTOMAKE = @AUTOMAKE@ AWK = @AWK@ BONOBO_IDL_DIR = @BONOBO_IDL_DIR@ CANVAS_CFLAGS = @CANVAS_CFLAGS@ CANVAS_LIBS = @CANVAS_LIBS@ CC = @CC@ CCDEPMODE = @CCDEPMODE@ CFLAGS = @CFLAGS@ CORBA_CFLAGS = @CORBA_CFLAGS@ CORBA_LIBS = @CORBA_LIBS@ CPP = @CPP@ CPPFLAGS = @CPPFLAGS@ CYGPATH_W = @CYGPATH_W@ DEFS = @DEFS@ DEPDIR = @DEPDIR@ DLLTOOL = @DLLTOOL@ DSYMUTIL = @DSYMUTIL@ DUMPBIN = @DUMPBIN@ ECHO_C = @ECHO_C@ ECHO_N = @ECHO_N@ ECHO_T = @ECHO_T@ EGREP = @EGREP@ EXEEXT = @EXEEXT@ FGREP = @FGREP@ GCONF_CFLAGS = @GCONF_CFLAGS@ GCONF_LIBS = @GCONF_LIBS@ GDK_CFLAGS = @GDK_CFLAGS@ GDK_LIBS = @GDK_LIBS@ GDK_PIXBUF_CFLAGS = @GDK_PIXBUF_CFLAGS@ GDK_PIXBUF_LIBS = @GDK_PIXBUF_LIBS@ GLIB_CFLAGS = @GLIB_CFLAGS@ GLIB_LIBS = @GLIB_LIBS@ GNOMEUI_DEPRECATION_FLAGS = @GNOMEUI_DEPRECATION_FLAGS@ GNOME_VFS_CFLAGS = @GNOME_VFS_CFLAGS@ GNOME_VFS_DEPRECATED_CFLAGS = @GNOME_VFS_DEPRECATED_CFLAGS@ GNOME_VFS_LIBS = @GNOME_VFS_LIBS@ GOBJECT_CFLAGS = @GOBJECT_CFLAGS@ GOBJECT_LIBS = @GOBJECT_LIBS@ GREP = @GREP@ GTHREAD_CFLAGS = @GTHREAD_CFLAGS@ GTHREAD_LIBS = @GTHREAD_LIBS@ GTK_CFLAGS = @GTK_CFLAGS@ GTK_DEPRECATED_CFLAGS = @GTK_DEPRECATED_CFLAGS@ GTK_LIBS = @GTK_LIBS@ GUILE_CAIRO_CFLAGS = @GUILE_CAIRO_CFLAGS@ GUILE_CAIRO_LIBS = @GUILE_CAIRO_LIBS@ GUILE_CFLAGS = @GUILE_CFLAGS@ GUILE_EFFECTIVE_VERSION = @GUILE_EFFECTIVE_VERSION@ GUILE_GLIB_CFLAGS = @GUILE_GLIB_CFLAGS@ GUILE_GLIB_LIBS = @GUILE_GLIB_LIBS@ GUILE_LIBS = @GUILE_LIBS@ G_WRAP_CFLAGS = @G_WRAP_CFLAGS@ G_WRAP_LIBS = @G_WRAP_LIBS@ G_WRAP_LIB_DIR = @G_WRAP_LIB_DIR@ G_WRAP_MODULE_DIR = @G_WRAP_MODULE_DIR@ INSTALL = @INSTALL@ INSTALL_DATA = @INSTALL_DATA@ INSTALL_PROGRAM = @INSTALL_PROGRAM@ INSTALL_SCRIPT = @INSTALL_SCRIPT@ INSTALL_STRIP_PROGRAM = @INSTALL_STRIP_PROGRAM@ LD = @LD@ LDFLAGS = @LDFLAGS@ LIBGLADE_CFLAGS = @LIBGLADE_CFLAGS@ LIBGLADE_LIBS = @LIBGLADE_LIBS@ LIBGNOMEUI_CFLAGS = @LIBGNOMEUI_CFLAGS@ LIBGNOMEUI_LIBS = @LIBGNOMEUI_LIBS@ LIBGNOME_CFLAGS = @LIBGNOME_CFLAGS@ LIBGNOME_LIBS = @LIBGNOME_LIBS@ LIBOBJS = @LIBOBJS@ LIBS = @LIBS@ LIBTOOL = @LIBTOOL@ LIPO = @LIPO@ LN_S = @LN_S@ LTLIBOBJS = @LTLIBOBJS@ MAKEINFO = @MAKEINFO@ MANIFEST_TOOL = @MANIFEST_TOOL@ MKDIR_P = @MKDIR_P@ NM = @NM@ NMEDIT = @NMEDIT@ OBJDUMP = @OBJDUMP@ OBJEXT = @OBJEXT@ ORBIT_IDL = @ORBIT_IDL@ OTOOL = @OTOOL@ OTOOL64 = @OTOOL64@ PACKAGE = @PACKAGE@ PACKAGE_BUGREPORT = @PACKAGE_BUGREPORT@ PACKAGE_NAME = @PACKAGE_NAME@ PACKAGE_STRING = @PACKAGE_STRING@ PACKAGE_TARNAME = @PACKAGE_TARNAME@ PACKAGE_URL = @PACKAGE_URL@ PACKAGE_VERSION = @PACKAGE_VERSION@ PANGOCAIRO_CFLAGS = @PANGOCAIRO_CFLAGS@ PANGOCAIRO_LIBS = @PANGOCAIRO_LIBS@ PANGO_CFLAGS = @PANGO_CFLAGS@ PANGO_LIBS = @PANGO_LIBS@ PATH_SEPARATOR = @PATH_SEPARATOR@ PKG_CONFIG = @PKG_CONFIG@ PKG_CONFIG_LIBDIR = @PKG_CONFIG_LIBDIR@ PKG_CONFIG_PATH = @PKG_CONFIG_PATH@ RANLIB = @RANLIB@ SED = @SED@ SET_MAKE = @SET_MAKE@ SHELL = @SHELL@ STRIP = @STRIP@ VERSION = @VERSION@ WARN_CFLAGS = @WARN_CFLAGS@ abs_builddir = @abs_builddir@ abs_srcdir = @abs_srcdir@ abs_top_builddir = @abs_top_builddir@ abs_top_srcdir = @abs_top_srcdir@ ac_ct_AR = @ac_ct_AR@ ac_ct_CC = @ac_ct_CC@ ac_ct_DUMPBIN = @ac_ct_DUMPBIN@ am__include = @am__include@ am__leading_dot = @am__leading_dot@ am__quote = @am__quote@ am__tar = @am__tar@ am__untar = @am__untar@ bindir = @bindir@ build = @build@ build_alias = @build_alias@ build_cpu = @build_cpu@ build_os = @build_os@ build_vendor = @build_vendor@ builddir = @builddir@ datadir = @datadir@ datarootdir = @datarootdir@ docdir = @docdir@ dvidir = @dvidir@ exec_prefix = @exec_prefix@ host = @host@ host_alias = @host_alias@ host_cpu = @host_cpu@ host_os = @host_os@ host_vendor = @host_vendor@ htmldir = @htmldir@ includedir = @includedir@ infodir = @infodir@ install_sh = @install_sh@ libdir = @libdir@ libexecdir = @libexecdir@ localedir = @localedir@ localstatedir = @localstatedir@ mandir = @mandir@ mkdir_p = @mkdir_p@ oldincludedir = @oldincludedir@ pdfdir = @pdfdir@ prefix = @prefix@ program_transform_name = @program_transform_name@ psdir = @psdir@ sbindir = @sbindir@ sharedstatedir = @sharedstatedir@ srcdir = @srcdir@ sysconfdir = @sysconfdir@ target_alias = @target_alias@ top_build_prefix = @top_build_prefix@ top_builddir = @top_builddir@ top_srcdir = @top_srcdir@ guilegnomedir = $(datadir)/guile-gnome-@API_VERSION@ guilemoduledir = $(guilegnomedir)/gnome guilegwmoduledir = $(guilegnomedir)/gnome/gw guilegnomelibdir = $(libdir)/guile-gnome-@API_VERSION@ AM_CFLAGS = -I. -I$(srcdir) $(WARN_CFLAGS) $(DEBUG_CFLAGS) # For overriding from the command line (e.g. --debug) GUILE_FLAGS = SUFFIXES = .x .doc GUILE_SNARF_CFLAGS = $(DEFS) $(AM_CFLAGS) $(GUILE_CFLAGS) $(G_WRAP_CFLAGS) PACKAGES = atk cairo corba defs gconf glib gnome-vfs gtk libglade libgnome libgnomecanvas libgnomeui pango SOURCE_GUILE_PATH = $(shell echo $(addprefix $(top_srcdir)/,$(PACKAGES)) | sed -e 's/ /:/g'):$(srcdir) BUILD_GUILE_PATH = $(if $(filter-out $(top_srcdir),$(top_builddir)),$(shell echo -n $(addprefix $(top_builddir)/,$(PACKAGES)): | sed -e 's/ /:/g'),) GUILE_LOAD_PATH := $(BUILD_GUILE_PATH)$(SOURCE_GUILE_PATH):${G_WRAP_MODULE_DIR}:${GUILE_LOAD_PATH} # Real gnu make foo packages = $(filter-out %-uninstalled,$(patsubst %.pc.in,%,$(notdir $(wildcard $(srcdir)/*.pc.in)))) pcifiles = $(patsubst %,%-@API_VERSION@.pc,$(packages)) pcufiles = $(patsubst %,%-@API_VERSION@-uninstalled.pc,$(packages)) SUBDIRS = gtk contrib overrides $(am__append_2) DIST_SUBDIRS = gtk contrib gw overrides guilemodule_DATA = $(am__append_1) EXTRA_DIST = gtk.scm all: all-recursive .SUFFIXES: .SUFFIXES: .x .doc .c $(srcdir)/Makefile.in: $(srcdir)/Makefile.am $(top_srcdir)/common.mk $(am__configure_deps) @for dep in $?; do \ case '$(am__configure_deps)' in \ *$$dep*) \ ( cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh ) \ && { if test -f $@; then exit 0; else break; fi; }; \ exit 1;; \ esac; \ done; \ echo ' cd $(top_srcdir) && $(AUTOMAKE) --gnu gtk/gnome/Makefile'; \ $(am__cd) $(top_srcdir) && \ $(AUTOMAKE) --gnu gtk/gnome/Makefile .PRECIOUS: Makefile Makefile: $(srcdir)/Makefile.in $(top_builddir)/config.status @case '$?' in \ *config.status*) \ cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh;; \ *) \ echo ' cd $(top_builddir) && $(SHELL) ./config.status $(subdir)/$@ $(am__depfiles_maybe)'; \ cd $(top_builddir) && $(SHELL) ./config.status $(subdir)/$@ $(am__depfiles_maybe);; \ esac; $(top_srcdir)/common.mk: $(top_builddir)/config.status: $(top_srcdir)/configure $(CONFIG_STATUS_DEPENDENCIES) cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh $(top_srcdir)/configure: $(am__configure_deps) cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh $(ACLOCAL_M4): $(am__aclocal_m4_deps) cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh $(am__aclocal_m4_deps): mostlyclean-libtool: -rm -f *.lo clean-libtool: -rm -rf .libs _libs install-guilemoduleDATA: $(guilemodule_DATA) @$(NORMAL_INSTALL) @list='$(guilemodule_DATA)'; test -n "$(guilemoduledir)" || list=; \ if test -n "$$list"; then \ echo " $(MKDIR_P) '$(DESTDIR)$(guilemoduledir)'"; \ $(MKDIR_P) "$(DESTDIR)$(guilemoduledir)" || exit 1; \ fi; \ for p in $$list; do \ if test -f "$$p"; then d=; else d="$(srcdir)/"; fi; \ echo "$$d$$p"; \ done | $(am__base_list) | \ while read files; do \ echo " $(INSTALL_DATA) $$files '$(DESTDIR)$(guilemoduledir)'"; \ $(INSTALL_DATA) $$files "$(DESTDIR)$(guilemoduledir)" || exit $$?; \ done uninstall-guilemoduleDATA: @$(NORMAL_UNINSTALL) @list='$(guilemodule_DATA)'; test -n "$(guilemoduledir)" || list=; \ files=`for p in $$list; do echo $$p; done | sed -e 's|^.*/||'`; \ dir='$(DESTDIR)$(guilemoduledir)'; $(am__uninstall_files_from_dir) # This directory's subdirectories are mostly independent; you can cd # into them and run `make' without going through this Makefile. # To change the values of `make' variables: instead of editing Makefiles, # (1) if the variable is set in `config.status', edit `config.status' # (which will cause the Makefiles to be regenerated when you run `make'); # (2) otherwise, pass the desired values on the `make' command line. $(RECURSIVE_TARGETS): @fail= failcom='exit 1'; \ for f in x $$MAKEFLAGS; do \ case $$f in \ *=* | --[!k]*);; \ *k*) failcom='fail=yes';; \ esac; \ done; \ dot_seen=no; \ target=`echo $@ | sed s/-recursive//`; \ list='$(SUBDIRS)'; for subdir in $$list; do \ echo "Making $$target in $$subdir"; \ if test "$$subdir" = "."; then \ dot_seen=yes; \ local_target="$$target-am"; \ else \ local_target="$$target"; \ fi; \ ($(am__cd) $$subdir && $(MAKE) $(AM_MAKEFLAGS) $$local_target) \ || eval $$failcom; \ done; \ if test "$$dot_seen" = "no"; then \ $(MAKE) $(AM_MAKEFLAGS) "$$target-am" || exit 1; \ fi; test -z "$$fail" $(RECURSIVE_CLEAN_TARGETS): @fail= failcom='exit 1'; \ for f in x $$MAKEFLAGS; do \ case $$f in \ *=* | --[!k]*);; \ *k*) failcom='fail=yes';; \ esac; \ done; \ dot_seen=no; \ case "$@" in \ distclean-* | maintainer-clean-*) list='$(DIST_SUBDIRS)' ;; \ *) list='$(SUBDIRS)' ;; \ esac; \ rev=''; for subdir in $$list; do \ if test "$$subdir" = "."; then :; else \ rev="$$subdir $$rev"; \ fi; \ done; \ rev="$$rev ."; \ target=`echo $@ | sed s/-recursive//`; \ for subdir in $$rev; do \ echo "Making $$target in $$subdir"; \ if test "$$subdir" = "."; then \ local_target="$$target-am"; \ else \ local_target="$$target"; \ fi; \ ($(am__cd) $$subdir && $(MAKE) $(AM_MAKEFLAGS) $$local_target) \ || eval $$failcom; \ done && test -z "$$fail" tags-recursive: list='$(SUBDIRS)'; for subdir in $$list; do \ test "$$subdir" = . || ($(am__cd) $$subdir && $(MAKE) $(AM_MAKEFLAGS) tags); \ done ctags-recursive: list='$(SUBDIRS)'; for subdir in $$list; do \ test "$$subdir" = . || ($(am__cd) $$subdir && $(MAKE) $(AM_MAKEFLAGS) ctags); \ done ID: $(HEADERS) $(SOURCES) $(LISP) $(TAGS_FILES) list='$(SOURCES) $(HEADERS) $(LISP) $(TAGS_FILES)'; \ unique=`for i in $$list; do \ if test -f "$$i"; then echo $$i; else echo $(srcdir)/$$i; fi; \ done | \ $(AWK) '{ files[$$0] = 1; nonempty = 1; } \ END { if (nonempty) { for (i in files) print i; }; }'`; \ mkid -fID $$unique tags: TAGS TAGS: tags-recursive $(HEADERS) $(SOURCES) $(TAGS_DEPENDENCIES) \ $(TAGS_FILES) $(LISP) set x; \ here=`pwd`; \ if ($(ETAGS) --etags-include --version) >/dev/null 2>&1; then \ include_option=--etags-include; \ empty_fix=.; \ else \ include_option=--include; \ empty_fix=; \ fi; \ list='$(SUBDIRS)'; for subdir in $$list; do \ if test "$$subdir" = .; then :; else \ test ! -f $$subdir/TAGS || \ set "$$@" "$$include_option=$$here/$$subdir/TAGS"; \ fi; \ done; \ list='$(SOURCES) $(HEADERS) $(LISP) $(TAGS_FILES)'; \ unique=`for i in $$list; do \ if test -f "$$i"; then echo $$i; else echo $(srcdir)/$$i; fi; \ done | \ $(AWK) '{ files[$$0] = 1; nonempty = 1; } \ END { if (nonempty) { for (i in files) print i; }; }'`; \ shift; \ if test -z "$(ETAGS_ARGS)$$*$$unique"; then :; else \ test -n "$$unique" || unique=$$empty_fix; \ if test $$# -gt 0; then \ $(ETAGS) $(ETAGSFLAGS) $(AM_ETAGSFLAGS) $(ETAGS_ARGS) \ "$$@" $$unique; \ else \ $(ETAGS) $(ETAGSFLAGS) $(AM_ETAGSFLAGS) $(ETAGS_ARGS) \ $$unique; \ fi; \ fi ctags: CTAGS CTAGS: ctags-recursive $(HEADERS) $(SOURCES) $(TAGS_DEPENDENCIES) \ $(TAGS_FILES) $(LISP) list='$(SOURCES) $(HEADERS) $(LISP) $(TAGS_FILES)'; \ unique=`for i in $$list; do \ if test -f "$$i"; then echo $$i; else echo $(srcdir)/$$i; fi; \ done | \ $(AWK) '{ files[$$0] = 1; nonempty = 1; } \ END { if (nonempty) { for (i in files) print i; }; }'`; \ test -z "$(CTAGS_ARGS)$$unique" \ || $(CTAGS) $(CTAGSFLAGS) $(AM_CTAGSFLAGS) $(CTAGS_ARGS) \ $$unique GTAGS: here=`$(am__cd) $(top_builddir) && pwd` \ && $(am__cd) $(top_srcdir) \ && gtags -i $(GTAGS_ARGS) "$$here" distclean-tags: -rm -f TAGS ID GTAGS GRTAGS GSYMS GPATH tags distdir: $(DISTFILES) @srcdirstrip=`echo "$(srcdir)" | sed 's/[].[^$$\\*]/\\\\&/g'`; \ topsrcdirstrip=`echo "$(top_srcdir)" | sed 's/[].[^$$\\*]/\\\\&/g'`; \ list='$(DISTFILES)'; \ dist_files=`for file in $$list; do echo $$file; done | \ sed -e "s|^$$srcdirstrip/||;t" \ -e "s|^$$topsrcdirstrip/|$(top_builddir)/|;t"`; \ case $$dist_files in \ */*) $(MKDIR_P) `echo "$$dist_files" | \ sed '/\//!d;s|^|$(distdir)/|;s,/[^/]*$$,,' | \ sort -u` ;; \ esac; \ for file in $$dist_files; do \ if test -f $$file || test -d $$file; then d=.; else d=$(srcdir); fi; \ if test -d $$d/$$file; then \ dir=`echo "/$$file" | sed -e 's,/[^/]*$$,,'`; \ if test -d "$(distdir)/$$file"; then \ find "$(distdir)/$$file" -type d ! -perm -700 -exec chmod u+rwx {} \;; \ fi; \ if test -d $(srcdir)/$$file && test $$d != $(srcdir); then \ cp -fpR $(srcdir)/$$file "$(distdir)$$dir" || exit 1; \ find "$(distdir)/$$file" -type d ! -perm -700 -exec chmod u+rwx {} \;; \ fi; \ cp -fpR $$d/$$file "$(distdir)$$dir" || exit 1; \ else \ test -f "$(distdir)/$$file" \ || cp -p $$d/$$file "$(distdir)/$$file" \ || exit 1; \ fi; \ done @list='$(DIST_SUBDIRS)'; for subdir in $$list; do \ if test "$$subdir" = .; then :; else \ $(am__make_dryrun) \ || test -d "$(distdir)/$$subdir" \ || $(MKDIR_P) "$(distdir)/$$subdir" \ || exit 1; \ dir1=$$subdir; dir2="$(distdir)/$$subdir"; \ $(am__relativize); \ new_distdir=$$reldir; \ dir1=$$subdir; dir2="$(top_distdir)"; \ $(am__relativize); \ new_top_distdir=$$reldir; \ echo " (cd $$subdir && $(MAKE) $(AM_MAKEFLAGS) top_distdir="$$new_top_distdir" distdir="$$new_distdir" \\"; \ echo " am__remove_distdir=: am__skip_length_check=: am__skip_mode_fix=: distdir)"; \ ($(am__cd) $$subdir && \ $(MAKE) $(AM_MAKEFLAGS) \ top_distdir="$$new_top_distdir" \ distdir="$$new_distdir" \ am__remove_distdir=: \ am__skip_length_check=: \ am__skip_mode_fix=: \ distdir) \ || exit 1; \ fi; \ done check-am: all-am check: check-recursive all-am: Makefile $(DATA) installdirs: installdirs-recursive installdirs-am: for dir in "$(DESTDIR)$(guilemoduledir)"; do \ test -z "$$dir" || $(MKDIR_P) "$$dir"; \ done install: install-recursive install-exec: install-exec-recursive install-data: install-data-recursive uninstall: uninstall-recursive install-am: all-am @$(MAKE) $(AM_MAKEFLAGS) install-exec-am install-data-am installcheck: installcheck-recursive install-strip: if test -z '$(STRIP)'; then \ $(MAKE) $(AM_MAKEFLAGS) INSTALL_PROGRAM="$(INSTALL_STRIP_PROGRAM)" \ install_sh_PROGRAM="$(INSTALL_STRIP_PROGRAM)" INSTALL_STRIP_FLAG=-s \ install; \ else \ $(MAKE) $(AM_MAKEFLAGS) INSTALL_PROGRAM="$(INSTALL_STRIP_PROGRAM)" \ install_sh_PROGRAM="$(INSTALL_STRIP_PROGRAM)" INSTALL_STRIP_FLAG=-s \ "INSTALL_PROGRAM_ENV=STRIPPROG='$(STRIP)'" install; \ fi mostlyclean-generic: clean-generic: distclean-generic: -test -z "$(CONFIG_CLEAN_FILES)" || rm -f $(CONFIG_CLEAN_FILES) -test . = "$(srcdir)" || test -z "$(CONFIG_CLEAN_VPATH_FILES)" || rm -f $(CONFIG_CLEAN_VPATH_FILES) maintainer-clean-generic: @echo "This command is intended for maintainers to use" @echo "it deletes files that may require special tools to rebuild." clean: clean-recursive clean-am: clean-generic clean-libtool mostlyclean-am distclean: distclean-recursive -rm -f Makefile distclean-am: clean-am distclean-generic distclean-tags dvi: dvi-recursive dvi-am: html: html-recursive html-am: info: info-recursive info-am: install-data-am: install-guilemoduleDATA install-dvi: install-dvi-recursive install-dvi-am: install-exec-am: install-html: install-html-recursive install-html-am: install-info: install-info-recursive install-info-am: install-man: install-pdf: install-pdf-recursive install-pdf-am: install-ps: install-ps-recursive install-ps-am: installcheck-am: maintainer-clean: maintainer-clean-recursive -rm -f Makefile maintainer-clean-am: distclean-am maintainer-clean-generic mostlyclean: mostlyclean-recursive mostlyclean-am: mostlyclean-generic mostlyclean-libtool pdf: pdf-recursive pdf-am: ps: ps-recursive ps-am: uninstall-am: uninstall-guilemoduleDATA .MAKE: $(RECURSIVE_CLEAN_TARGETS) $(RECURSIVE_TARGETS) ctags-recursive \ install-am install-strip tags-recursive .PHONY: $(RECURSIVE_CLEAN_TARGETS) $(RECURSIVE_TARGETS) CTAGS GTAGS \ all all-am check check-am clean clean-generic clean-libtool \ ctags ctags-recursive distclean distclean-generic \ distclean-libtool distclean-tags distdir dvi dvi-am html \ html-am info info-am install install-am install-data \ install-data-am install-dvi install-dvi-am install-exec \ install-exec-am install-guilemoduleDATA install-html \ install-html-am install-info install-info-am install-man \ install-pdf install-pdf-am install-ps install-ps-am \ install-strip installcheck installcheck-am installdirs \ installdirs-am maintainer-clean maintainer-clean-generic \ mostlyclean mostlyclean-generic mostlyclean-libtool pdf pdf-am \ ps ps-am tags tags-recursive uninstall uninstall-am \ uninstall-guilemoduleDATA export GUILE_LOAD_PATH .c.x: guile-snarf $(GUILE_SNARF_CFLAGS) $< > $@ \ || { rm $@; false; } .c.doc: $(CPP) -DSCM_MAGIC_SNARF_DOCS $(GUILE_SNARF_CFLAGS) $< \ | grep -E '(\^\^ {|\^\^ })' > $@ || { rm $@; false; } %.scm guile-gnome-gw-%.c: %-spec.scm guile $(GUILE_FLAGS) -c \ "(debug-set! stack 400000) \ (use-modules (gnome-@API_VERSION@)) \ (use-modules (g-wrap)) \ (use-modules (gnome gw $*-spec)) \ (generate-wrapset 'guile 'gnome-$* \"guile-gnome-gw-$*\")" mv guile-gnome-gw-$*.scm $*.scm %-@API_VERSION@.pc: %.pc cp $< $@ %-@API_VERSION@-uninstalled.pc: %-uninstalled.pc cp $< $@ # Tell versions [3.59,3.63) of GNU make to not export all variables. # Otherwise a system limit (for SysV at least) may be exceeded. .NOEXPORT: guile-gnome-platform-2.16.2/gtk/gnome/overrides/0000755000175000017500000000000011752546502022067 5ustar00wingowingo00000000000000guile-gnome-platform-2.16.2/gtk/gnome/overrides/gdk.defs-type-ignores0000644000175000017500000000015611670374303026121 0ustar00wingowingo00000000000000;; -*- scheme -*- (ignore-types "GdkColor" "GdkRectangle" "GdkPixmapObject" "GdkWindowObject" "GdkDrawable") guile-gnome-platform-2.16.2/gtk/gnome/overrides/gdk.defs0000644000175000017500000002132611670374303023500 0ustar00wingowingo00000000000000;; -*- scheme -*- ;; guile-gnome ;; Copyright (C) 2005 Andreas Rottmann ;; Copyright (C) 2003,2004 Andy Wingo ;; ;; This program is free software; you can redistribute it and/or ;; modify it under the terms of the GNU General Public License as ;; published by the Free Software Foundation; either version 2 of ;; the License, or (at your option) any later version. ;; ;; This program is distributed in the hope that it will be useful, ;; but WITHOUT ANY WARRANTY; without even the implied warranty of ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the ;; GNU General Public License for more details. ;; ;; You should have received a copy of the GNU General Public License ;; along with this program; if not, contact: ;; ;; Free Software Foundation Voice: +1-617-542-5942 ;; 59 Temple Place - Suite 330 Fax: +1-617-542-2652 ;; Boston, MA 02111-1307, USA gnu@gnu.org ;;; Commentary: ;; ;;Custom wrapper definitions. ;; ;;; Code: ;; stealing most of these from python-gtk2 (define-boxed Event (in-module "Gdk") (c-name "GdkEvent") (gtype-id "GDK_TYPE_EVENT") ) (define-boxed Cursor (in-module "Gdk") (c-name "GdkCursor") (gtype-id "GDK_TYPE_CURSOR") ) (define-boxed Font (in-module "Gdk") (c-name "GdkFont") (gtype-id "GDK_TYPE_FONT") ) (define-object Window (c-name "GdkWindow") (gtype-id "GDK_TYPE_WINDOW") ) (define-object Pixmap (c-name "GdkPixmap") (gtype-id "GDK_TYPE_PIXMAP") ) (define-object Device (c-name "GdkDevice") (gtype-id "GDK_TYPE_DEVICE") ) (define-object DisplayManager (c-name "GdkDisplayManager") (gtype-id "GDK_TYPE_DISPLAY_MANAGER") ) (define-object Visual (c-name "GdkVisual") (gtype-id "GDK_TYPE_VISUAL") ) ;; dunno why h2defs doesn't get this one (define-enum CursorType (in-module "Gdk") (c-name "GdkCursorType") (gtype-id "GDK_TYPE_CURSOR_TYPE") ) (define-function gdk-event->event-struct (c-name "gdk_event_to_vector") (overrides "gdk-event->vector") ;; hackeroo (return-type "SCM") (leave-guile-mode #f) (parameters '("GdkEvent*" "event"))) (define-method set_icon (of-object "GdkWindow") (c-name "gdk_window_set_icon") (overrides "gdk_window_set_icon") (return-type "none") (parameters '("GdkWindow*" "icon_window" (null-ok)) '("GdkPixmap*" "pixmap" (null-ok)) '("GdkBitmap*" "mask" (null-ok)) ) ) (define-method list_devices (of-object "GdkDisplay") (c-name "gdk_display_list_devices") (overrides "gdk_display_list_devices") (return-type "const-GList*-of-GdkDevice*") ) (define-function list_devices (c-name "gdk_devices_list") (overrides "gdk_devices_list") (return-type "const-GList*-of-GdkDevice*") ) (define-method list_displays (of-object "GdkDisplayManager") (c-name "gdk_display_manager_list_displays") (overrides "gdk_display_manager_list_displays") (return-type "GSList*-of-GdkDisplay*") ) (define-method list_visuals (of-object "GdkScreen") (c-name "gdk_screen_list_visuals") (overrides "gdk_screen_list_visuals") (return-type "GList*-of-GdkVisual*") ) (define-method get_toplevel_windows (of-object "GdkScreen") (c-name "gdk_screen_get_toplevel_windows") (overrides "gdk_screen_get_toplevel_windows") (return-type "GList*-of-GdkWindow*") ) (define-method get_window_stack (of-object "GdkScreen") (c-name "gdk_screen_get_window_stack") (overrides "gdk_screen_get_window_stack") (return-type "GList*-of-GdkWindow*") ) (define-function gdk_list_visuals (c-name "gdk_list_visuals") (overrides "gdk_list_visuals") (return-type "GList*-of-GdkVisual*") ) (define-method get_children (of-object "GdkWindow") (c-name "gdk_window_get_children") (overrides "gdk_window_get_children") (return-type "GList*-of-GdkWindow*") ) (define-method set_icon_list (of-object "GdkWindow") (c-name "gdk_window_set_icon_list") (overrides "gdk_window_set_icon_list") (return-type "none") (parameters '("GList*-of-GdkPixbuf*" "pixbufs") ) ) (define-function gdk_window_get_toplevels (c-name "gdk_window_get_toplevels") (overrides "gdk_window_get_toplevels") (return-type "GList*-of-GdkWindow*") ) (define-method set_cursor (of-object "GdkWindow") (c-name "gdk_window_set_cursor") (overrides "gdk_window_set_cursor") (return-type "none") (parameters '("GdkCursor*" "cursor" (null-ok)) ) ) (ignore-glob "gdk_colormap_*" "*libgtk_only" "gdk_x11_*" "gdkx_*" "*_foreign_new" ) (ignore "gdk_add_client_message_filter" ; GdkFilterFunc "gdk_atom_intern_static_string" "gdk_color_equal" "gdk_color_hash" "gdk_colors_alloc" "gdk_colors_store" "gdk_device_free_history" "gdk_device_get_history" ; GdkTimeCoord*** "gdk_device_get_state" ; GdkModifierType* "gdk_display_add_client_message_filter" "gdk_display_get_pointer" "gdk_display_set_pointer_hooks" "gdk_display_store_clipboard" "gdk_drag_begin" "gdk_drag_find_window" "gdk_drag_find_window_for_screen" "gdk_drag_get_protocol" ; GdkDragProtocol* "gdk_drag_get_protocol_for_display" ; GdkDragProtocol* "gdk_drag_protocol_get_for_display" "gdk_draw_gray_image" ; guchar* "gdk_draw_indexed_image" ; guchar* "gdk_draw_lines" "gdk_draw_points" "gdk_draw_polygon" "gdk_draw_rgb_32_image" ; guchar* "gdk_draw_rgb_32_image_dithalign" "gdk_draw_rgb_image" ; guchar* "gdk_draw_rgb_image_dithalign" "gdk_draw_segments" "gdk_draw_text" "gdk_draw_text_wc" "gdk_draw_trapezoids" "gdk_drawable_get_data" "gdk_drawable_set_data" "gdk_event_get_state" "gdk_event_handler_set" "gdk_event_new" "gdk_event_send_client_message" "gdk_event_send_client_message_for_display" "gdk_event_send_clientmessage_toall" "gdk_event_set_screen" "gdk_exit" "gdk_font_equal" "gdk_font_from_description_for_display" "gdk_font_get_display" "gdk_font_load_for_display" "gdk_fontset_load_for_display" "gdk_free_compound_text" "gdk_free_text_list" "gdk_gc_get_values" ; GdkGCValues* "gdk_gc_new_with_values" ; GdkGCValues* "gdk_gc_set_dashes" ; gint8* "gdk_gc_set_values" ; GdkGCValues* "gdk_image_new_bitmap" "gdk_init" "gdk_init_check" "gdk_input_add" "gdk_input_add_full" "gdk_input_remove" "gdk_keymap_get_entries_for_keycode" ; GdkKeymapKey** "gdk_keymap_get_entries_for_keyval" ; GdkKeymapKey** "gdk_keymap_lookup_key" ; GdkKeymapKey* "gdk_keymap_translate_keyboard_state" ; GdkModifierType* "gdk_mbstowcs" ; GdkWChar* "gdk_net_wm_supports" "gdk_pango_layout_get_clip_region" "gdk_pango_layout_line_get_clip_region" "gdk_parse_args" "gdk_pixbuf_animation_get_iter" ; GTimeVal* "gdk_pixbuf_animation_iter_advance" ; GTimeVal* "gdk_pixbuf_new_from_xpm_data" "gdk_pixbuf_render_pixmap_and_mask" ; GdkPixmap** "gdk_pixbuf_render_pixmap_and_mask_for_colormap" "gdk_pixmap_colormap_create_from_xpm" ; GdkBitmap** "gdk_pixmap_colormap_create_from_xpm_d" ; GdkBitmap** "gdk_pixmap_create_from_xpm" ; GdkBitmap** "gdk_pixmap_create_from_xpm_d" ; GdkBitmap** "gdk_pixmap_lookup_for_display" "gdk_property_change" ; guchar* "gdk_property_get" ; guchar** "gdk_query_depths" ; gint** "gdk_query_visual_types" ; GdkVisualType** "gdk_rectangle_intersect" "gdk_rectangle_union" "gdk_region_get_rectangles" ; GdkRectangle** "gdk_region_get_clipbox" "gdk_region_polygon" "gdk_rgb_cmap_new" ; GdkRgbCmap* "gdk_rgb_find_color" "gdk_selection_property_get" ; guchar** "gdk_set_pointer_hooks" ; GdkPointerHooks* "gdk_setting_get" "gdk_spawn_on_screen" "gdk_spawn_on_screen_with_pipes" "gdk_string_to_compound_text" "gdk_string_to_compound_text_for_display" "gdk_synthesize_window_state" "gdk_text_extents" "gdk_text_extents_wc" ; GdkWChar* "gdk_text_property_to_text_list" "gdk_text_property_to_text_list_for_display" "gdk_text_property_to_utf8_list" "gdk_text_property_to_utf8_list_for_display" "gdk_text_width_wc" ; GdkWChar* "gdk_threads_set_lock_functions" "gdk_utf8_to_compound_text" "gdk_utf8_to_compound_text_for_display" "gdk_utf8_to_string_target" "gdk_wcstombs" "gdk_window_add_filter" ; GdkFilterFunc "gdk_window_constrain_size" ; GdkGeometry* "gdk_window_destroy_notify" "gdk_window_get_decorations" ; GdkWMDecoration* "gdk_window_get_frame_extents" "gdk_window_get_internal_paint_info" ; GdkDrawable** "gdk_window_get_pointer" ; GdkModifierType* "gdk_window_get_user_data" "gdk_window_invalidate_maybe_recurse" "gdk_window_lookup_for_display" "gdk_window_new" ; GdkWindowAttr* "gdk_window_peek_children" "gdk_window_remove_filter" ; GdkFilterFunc "gdk_window_set_geometry_hints" ; GdkGeometry* "gdk_window_set_user_data" ; gpointer "gdk_xid_table_lookup" "gdk_xid_table_lookup_for_display" "gdkx_colormap_get" "gdkx_visual_get" ) guile-gnome-platform-2.16.2/gtk/gnome/overrides/Makefile.am0000644000175000017500000000021111670374303024112 0ustar00wingowingo00000000000000include $(top_srcdir)/common.mk moduledir = $(guilemoduledir)/overrides module_DATA = $(wildcard *.defs*) EXTRA_DIST = $(module_DATA) guile-gnome-platform-2.16.2/gtk/gnome/overrides/Makefile.in0000644000175000017500000004122111752520676024140 0ustar00wingowingo00000000000000# Makefile.in generated by automake 1.11.5 from Makefile.am. # @configure_input@ # Copyright (C) 1994, 1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, # 2003, 2004, 2005, 2006, 2007, 2008, 2009, 2010, 2011 Free Software # Foundation, Inc. # This Makefile.in is free software; the Free Software Foundation # gives unlimited permission to copy and/or distribute it, # with or without modifications, as long as this notice is preserved. # This program is distributed in the hope that it will be useful, # but WITHOUT ANY WARRANTY, to the extent permitted by law; without # even the implied warranty of MERCHANTABILITY or FITNESS FOR A # PARTICULAR PURPOSE. @SET_MAKE@ # guile-gnome # Copyright (C) 2003,2004,2009,2012 Free Software Foundation, Inc. # This program is free software; you can redistribute it and/or # modify it under the terms of the GNU General Public License as # published by the Free Software Foundation; either version 2 of # the License, or (at your option) any later version. # This program is distributed in the hope that it will be useful, # but WITHOUT ANY WARRANTY; without even the implied warranty of # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the # GNU General Public License for more details. # You should have received a copy of the GNU General Public License # along with this program; if not, contact: # Free Software Foundation Voice: +1-617-542-5942 # 59 Temple Place - Suite 330 Fax: +1-617-542-2652 # Boston, MA 02111-1307, USA gnu@gnu.org # # Makefile snippet # VPATH = @srcdir@ am__make_dryrun = \ { \ am__dry=no; \ case $$MAKEFLAGS in \ *\\[\ \ ]*) \ echo 'am--echo: ; @echo "AM" OK' | $(MAKE) -f - 2>/dev/null \ | grep '^AM OK$$' >/dev/null || am__dry=yes;; \ *) \ for am__flg in $$MAKEFLAGS; do \ case $$am__flg in \ *=*|--*) ;; \ *n*) am__dry=yes; break;; \ esac; \ done;; \ esac; \ test $$am__dry = yes; \ } pkgdatadir = $(datadir)/@PACKAGE@ pkgincludedir = $(includedir)/@PACKAGE@ pkglibdir = $(libdir)/@PACKAGE@ pkglibexecdir = $(libexecdir)/@PACKAGE@ am__cd = CDPATH="$${ZSH_VERSION+.}$(PATH_SEPARATOR)" && cd install_sh_DATA = $(install_sh) -c -m 644 install_sh_PROGRAM = $(install_sh) -c install_sh_SCRIPT = $(install_sh) -c INSTALL_HEADER = $(INSTALL_DATA) transform = $(program_transform_name) NORMAL_INSTALL = : PRE_INSTALL = : POST_INSTALL = : NORMAL_UNINSTALL = : PRE_UNINSTALL = : POST_UNINSTALL = : build_triplet = @build@ host_triplet = @host@ DIST_COMMON = $(srcdir)/Makefile.am $(srcdir)/Makefile.in \ $(top_srcdir)/common.mk subdir = gtk/gnome/overrides ACLOCAL_M4 = $(top_srcdir)/aclocal.m4 am__aclocal_m4_deps = $(top_srcdir)/configure.ac am__configure_deps = $(am__aclocal_m4_deps) $(CONFIGURE_DEPENDENCIES) \ $(ACLOCAL_M4) mkinstalldirs = $(install_sh) -d CONFIG_HEADER = $(top_builddir)/config.h CONFIG_CLEAN_FILES = CONFIG_CLEAN_VPATH_FILES = SOURCES = DIST_SOURCES = am__can_run_installinfo = \ case $$AM_UPDATE_INFO_DIR in \ n|no|NO) false;; \ *) (install-info --version) >/dev/null 2>&1;; \ esac am__vpath_adj_setup = srcdirstrip=`echo "$(srcdir)" | sed 's|.|.|g'`; am__vpath_adj = case $$p in \ $(srcdir)/*) f=`echo "$$p" | sed "s|^$$srcdirstrip/||"`;; \ *) f=$$p;; \ esac; am__strip_dir = f=`echo $$p | sed -e 's|^.*/||'`; am__install_max = 40 am__nobase_strip_setup = \ srcdirstrip=`echo "$(srcdir)" | sed 's/[].[^$$\\*|]/\\\\&/g'` am__nobase_strip = \ for p in $$list; do echo "$$p"; done | sed -e "s|$$srcdirstrip/||" am__nobase_list = $(am__nobase_strip_setup); \ for p in $$list; do echo "$$p $$p"; done | \ sed "s| $$srcdirstrip/| |;"' / .*\//!s/ .*/ ./; s,\( .*\)/[^/]*$$,\1,' | \ $(AWK) 'BEGIN { files["."] = "" } { files[$$2] = files[$$2] " " $$1; \ if (++n[$$2] == $(am__install_max)) \ { print $$2, files[$$2]; n[$$2] = 0; files[$$2] = "" } } \ END { for (dir in files) print dir, files[dir] }' am__base_list = \ sed '$$!N;$$!N;$$!N;$$!N;$$!N;$$!N;$$!N;s/\n/ /g' | \ sed '$$!N;$$!N;$$!N;$$!N;s/\n/ /g' am__uninstall_files_from_dir = { \ test -z "$$files" \ || { test ! -d "$$dir" && test ! -f "$$dir" && test ! -r "$$dir"; } \ || { echo " ( cd '$$dir' && rm -f" $$files ")"; \ $(am__cd) "$$dir" && rm -f $$files; }; \ } am__installdirs = "$(DESTDIR)$(moduledir)" DATA = $(module_DATA) DISTFILES = $(DIST_COMMON) $(DIST_SOURCES) $(TEXINFOS) $(EXTRA_DIST) ACLOCAL = @ACLOCAL@ AG_PKG_CONFIG_PATH = @AG_PKG_CONFIG_PATH@ AMTAR = @AMTAR@ API_VERSION = @API_VERSION@ AR = @AR@ ATK_CFLAGS = @ATK_CFLAGS@ ATK_LIBS = @ATK_LIBS@ AUTOCONF = @AUTOCONF@ AUTOHEADER = @AUTOHEADER@ AUTOMAKE = @AUTOMAKE@ AWK = @AWK@ BONOBO_IDL_DIR = @BONOBO_IDL_DIR@ CANVAS_CFLAGS = @CANVAS_CFLAGS@ CANVAS_LIBS = @CANVAS_LIBS@ CC = @CC@ CCDEPMODE = @CCDEPMODE@ CFLAGS = @CFLAGS@ CORBA_CFLAGS = @CORBA_CFLAGS@ CORBA_LIBS = @CORBA_LIBS@ CPP = @CPP@ CPPFLAGS = @CPPFLAGS@ CYGPATH_W = @CYGPATH_W@ DEFS = @DEFS@ DEPDIR = @DEPDIR@ DLLTOOL = @DLLTOOL@ DSYMUTIL = @DSYMUTIL@ DUMPBIN = @DUMPBIN@ ECHO_C = @ECHO_C@ ECHO_N = @ECHO_N@ ECHO_T = @ECHO_T@ EGREP = @EGREP@ EXEEXT = @EXEEXT@ FGREP = @FGREP@ GCONF_CFLAGS = @GCONF_CFLAGS@ GCONF_LIBS = @GCONF_LIBS@ GDK_CFLAGS = @GDK_CFLAGS@ GDK_LIBS = @GDK_LIBS@ GDK_PIXBUF_CFLAGS = @GDK_PIXBUF_CFLAGS@ GDK_PIXBUF_LIBS = @GDK_PIXBUF_LIBS@ GLIB_CFLAGS = @GLIB_CFLAGS@ GLIB_LIBS = @GLIB_LIBS@ GNOMEUI_DEPRECATION_FLAGS = @GNOMEUI_DEPRECATION_FLAGS@ GNOME_VFS_CFLAGS = @GNOME_VFS_CFLAGS@ GNOME_VFS_DEPRECATED_CFLAGS = @GNOME_VFS_DEPRECATED_CFLAGS@ GNOME_VFS_LIBS = @GNOME_VFS_LIBS@ GOBJECT_CFLAGS = @GOBJECT_CFLAGS@ GOBJECT_LIBS = @GOBJECT_LIBS@ GREP = @GREP@ GTHREAD_CFLAGS = @GTHREAD_CFLAGS@ GTHREAD_LIBS = @GTHREAD_LIBS@ GTK_CFLAGS = @GTK_CFLAGS@ GTK_DEPRECATED_CFLAGS = @GTK_DEPRECATED_CFLAGS@ GTK_LIBS = @GTK_LIBS@ GUILE_CAIRO_CFLAGS = @GUILE_CAIRO_CFLAGS@ GUILE_CAIRO_LIBS = @GUILE_CAIRO_LIBS@ GUILE_CFLAGS = @GUILE_CFLAGS@ GUILE_EFFECTIVE_VERSION = @GUILE_EFFECTIVE_VERSION@ GUILE_GLIB_CFLAGS = @GUILE_GLIB_CFLAGS@ GUILE_GLIB_LIBS = @GUILE_GLIB_LIBS@ GUILE_LIBS = @GUILE_LIBS@ G_WRAP_CFLAGS = @G_WRAP_CFLAGS@ G_WRAP_LIBS = @G_WRAP_LIBS@ G_WRAP_LIB_DIR = @G_WRAP_LIB_DIR@ G_WRAP_MODULE_DIR = @G_WRAP_MODULE_DIR@ INSTALL = @INSTALL@ INSTALL_DATA = @INSTALL_DATA@ INSTALL_PROGRAM = @INSTALL_PROGRAM@ INSTALL_SCRIPT = @INSTALL_SCRIPT@ INSTALL_STRIP_PROGRAM = @INSTALL_STRIP_PROGRAM@ LD = @LD@ LDFLAGS = @LDFLAGS@ LIBGLADE_CFLAGS = @LIBGLADE_CFLAGS@ LIBGLADE_LIBS = @LIBGLADE_LIBS@ LIBGNOMEUI_CFLAGS = @LIBGNOMEUI_CFLAGS@ LIBGNOMEUI_LIBS = @LIBGNOMEUI_LIBS@ LIBGNOME_CFLAGS = @LIBGNOME_CFLAGS@ LIBGNOME_LIBS = @LIBGNOME_LIBS@ LIBOBJS = @LIBOBJS@ LIBS = @LIBS@ LIBTOOL = @LIBTOOL@ LIPO = @LIPO@ LN_S = @LN_S@ LTLIBOBJS = @LTLIBOBJS@ MAKEINFO = @MAKEINFO@ MANIFEST_TOOL = @MANIFEST_TOOL@ MKDIR_P = @MKDIR_P@ NM = @NM@ NMEDIT = @NMEDIT@ OBJDUMP = @OBJDUMP@ OBJEXT = @OBJEXT@ ORBIT_IDL = @ORBIT_IDL@ OTOOL = @OTOOL@ OTOOL64 = @OTOOL64@ PACKAGE = @PACKAGE@ PACKAGE_BUGREPORT = @PACKAGE_BUGREPORT@ PACKAGE_NAME = @PACKAGE_NAME@ PACKAGE_STRING = @PACKAGE_STRING@ PACKAGE_TARNAME = @PACKAGE_TARNAME@ PACKAGE_URL = @PACKAGE_URL@ PACKAGE_VERSION = @PACKAGE_VERSION@ PANGOCAIRO_CFLAGS = @PANGOCAIRO_CFLAGS@ PANGOCAIRO_LIBS = @PANGOCAIRO_LIBS@ PANGO_CFLAGS = @PANGO_CFLAGS@ PANGO_LIBS = @PANGO_LIBS@ PATH_SEPARATOR = @PATH_SEPARATOR@ PKG_CONFIG = @PKG_CONFIG@ PKG_CONFIG_LIBDIR = @PKG_CONFIG_LIBDIR@ PKG_CONFIG_PATH = @PKG_CONFIG_PATH@ RANLIB = @RANLIB@ SED = @SED@ SET_MAKE = @SET_MAKE@ SHELL = @SHELL@ STRIP = @STRIP@ VERSION = @VERSION@ WARN_CFLAGS = @WARN_CFLAGS@ abs_builddir = @abs_builddir@ abs_srcdir = @abs_srcdir@ abs_top_builddir = @abs_top_builddir@ abs_top_srcdir = @abs_top_srcdir@ ac_ct_AR = @ac_ct_AR@ ac_ct_CC = @ac_ct_CC@ ac_ct_DUMPBIN = @ac_ct_DUMPBIN@ am__include = @am__include@ am__leading_dot = @am__leading_dot@ am__quote = @am__quote@ am__tar = @am__tar@ am__untar = @am__untar@ bindir = @bindir@ build = @build@ build_alias = @build_alias@ build_cpu = @build_cpu@ build_os = @build_os@ build_vendor = @build_vendor@ builddir = @builddir@ datadir = @datadir@ datarootdir = @datarootdir@ docdir = @docdir@ dvidir = @dvidir@ exec_prefix = @exec_prefix@ host = @host@ host_alias = @host_alias@ host_cpu = @host_cpu@ host_os = @host_os@ host_vendor = @host_vendor@ htmldir = @htmldir@ includedir = @includedir@ infodir = @infodir@ install_sh = @install_sh@ libdir = @libdir@ libexecdir = @libexecdir@ localedir = @localedir@ localstatedir = @localstatedir@ mandir = @mandir@ mkdir_p = @mkdir_p@ oldincludedir = @oldincludedir@ pdfdir = @pdfdir@ prefix = @prefix@ program_transform_name = @program_transform_name@ psdir = @psdir@ sbindir = @sbindir@ sharedstatedir = @sharedstatedir@ srcdir = @srcdir@ sysconfdir = @sysconfdir@ target_alias = @target_alias@ top_build_prefix = @top_build_prefix@ top_builddir = @top_builddir@ top_srcdir = @top_srcdir@ guilegnomedir = $(datadir)/guile-gnome-@API_VERSION@ guilemoduledir = $(guilegnomedir)/gnome guilegwmoduledir = $(guilegnomedir)/gnome/gw guilegnomelibdir = $(libdir)/guile-gnome-@API_VERSION@ AM_CFLAGS = -I. -I$(srcdir) $(WARN_CFLAGS) $(DEBUG_CFLAGS) # For overriding from the command line (e.g. --debug) GUILE_FLAGS = SUFFIXES = .x .doc GUILE_SNARF_CFLAGS = $(DEFS) $(AM_CFLAGS) $(GUILE_CFLAGS) $(G_WRAP_CFLAGS) PACKAGES = atk cairo corba defs gconf glib gnome-vfs gtk libglade libgnome libgnomecanvas libgnomeui pango SOURCE_GUILE_PATH = $(shell echo $(addprefix $(top_srcdir)/,$(PACKAGES)) | sed -e 's/ /:/g'):$(srcdir) BUILD_GUILE_PATH = $(if $(filter-out $(top_srcdir),$(top_builddir)),$(shell echo -n $(addprefix $(top_builddir)/,$(PACKAGES)): | sed -e 's/ /:/g'),) GUILE_LOAD_PATH := $(BUILD_GUILE_PATH)$(SOURCE_GUILE_PATH):${G_WRAP_MODULE_DIR}:${GUILE_LOAD_PATH} # Real gnu make foo packages = $(filter-out %-uninstalled,$(patsubst %.pc.in,%,$(notdir $(wildcard $(srcdir)/*.pc.in)))) pcifiles = $(patsubst %,%-@API_VERSION@.pc,$(packages)) pcufiles = $(patsubst %,%-@API_VERSION@-uninstalled.pc,$(packages)) moduledir = $(guilemoduledir)/overrides module_DATA = $(wildcard *.defs*) EXTRA_DIST = $(module_DATA) all: all-am .SUFFIXES: .SUFFIXES: .x .doc .c $(srcdir)/Makefile.in: $(srcdir)/Makefile.am $(top_srcdir)/common.mk $(am__configure_deps) @for dep in $?; do \ case '$(am__configure_deps)' in \ *$$dep*) \ ( cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh ) \ && { if test -f $@; then exit 0; else break; fi; }; \ exit 1;; \ esac; \ done; \ echo ' cd $(top_srcdir) && $(AUTOMAKE) --gnu gtk/gnome/overrides/Makefile'; \ $(am__cd) $(top_srcdir) && \ $(AUTOMAKE) --gnu gtk/gnome/overrides/Makefile .PRECIOUS: Makefile Makefile: $(srcdir)/Makefile.in $(top_builddir)/config.status @case '$?' in \ *config.status*) \ cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh;; \ *) \ echo ' cd $(top_builddir) && $(SHELL) ./config.status $(subdir)/$@ $(am__depfiles_maybe)'; \ cd $(top_builddir) && $(SHELL) ./config.status $(subdir)/$@ $(am__depfiles_maybe);; \ esac; $(top_srcdir)/common.mk: $(top_builddir)/config.status: $(top_srcdir)/configure $(CONFIG_STATUS_DEPENDENCIES) cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh $(top_srcdir)/configure: $(am__configure_deps) cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh $(ACLOCAL_M4): $(am__aclocal_m4_deps) cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh $(am__aclocal_m4_deps): mostlyclean-libtool: -rm -f *.lo clean-libtool: -rm -rf .libs _libs install-moduleDATA: $(module_DATA) @$(NORMAL_INSTALL) @list='$(module_DATA)'; test -n "$(moduledir)" || list=; \ if test -n "$$list"; then \ echo " $(MKDIR_P) '$(DESTDIR)$(moduledir)'"; \ $(MKDIR_P) "$(DESTDIR)$(moduledir)" || exit 1; \ fi; \ for p in $$list; do \ if test -f "$$p"; then d=; else d="$(srcdir)/"; fi; \ echo "$$d$$p"; \ done | $(am__base_list) | \ while read files; do \ echo " $(INSTALL_DATA) $$files '$(DESTDIR)$(moduledir)'"; \ $(INSTALL_DATA) $$files "$(DESTDIR)$(moduledir)" || exit $$?; \ done uninstall-moduleDATA: @$(NORMAL_UNINSTALL) @list='$(module_DATA)'; test -n "$(moduledir)" || list=; \ files=`for p in $$list; do echo $$p; done | sed -e 's|^.*/||'`; \ dir='$(DESTDIR)$(moduledir)'; $(am__uninstall_files_from_dir) tags: TAGS TAGS: ctags: CTAGS CTAGS: distdir: $(DISTFILES) @srcdirstrip=`echo "$(srcdir)" | sed 's/[].[^$$\\*]/\\\\&/g'`; \ topsrcdirstrip=`echo "$(top_srcdir)" | sed 's/[].[^$$\\*]/\\\\&/g'`; \ list='$(DISTFILES)'; \ dist_files=`for file in $$list; do echo $$file; done | \ sed -e "s|^$$srcdirstrip/||;t" \ -e "s|^$$topsrcdirstrip/|$(top_builddir)/|;t"`; \ case $$dist_files in \ */*) $(MKDIR_P) `echo "$$dist_files" | \ sed '/\//!d;s|^|$(distdir)/|;s,/[^/]*$$,,' | \ sort -u` ;; \ esac; \ for file in $$dist_files; do \ if test -f $$file || test -d $$file; then d=.; else d=$(srcdir); fi; \ if test -d $$d/$$file; then \ dir=`echo "/$$file" | sed -e 's,/[^/]*$$,,'`; \ if test -d "$(distdir)/$$file"; then \ find "$(distdir)/$$file" -type d ! -perm -700 -exec chmod u+rwx {} \;; \ fi; \ if test -d $(srcdir)/$$file && test $$d != $(srcdir); then \ cp -fpR $(srcdir)/$$file "$(distdir)$$dir" || exit 1; \ find "$(distdir)/$$file" -type d ! -perm -700 -exec chmod u+rwx {} \;; \ fi; \ cp -fpR $$d/$$file "$(distdir)$$dir" || exit 1; \ else \ test -f "$(distdir)/$$file" \ || cp -p $$d/$$file "$(distdir)/$$file" \ || exit 1; \ fi; \ done check-am: all-am check: check-am all-am: Makefile $(DATA) installdirs: for dir in "$(DESTDIR)$(moduledir)"; do \ test -z "$$dir" || $(MKDIR_P) "$$dir"; \ done install: install-am install-exec: install-exec-am install-data: install-data-am uninstall: uninstall-am install-am: all-am @$(MAKE) $(AM_MAKEFLAGS) install-exec-am install-data-am installcheck: installcheck-am install-strip: if test -z '$(STRIP)'; then \ $(MAKE) $(AM_MAKEFLAGS) INSTALL_PROGRAM="$(INSTALL_STRIP_PROGRAM)" \ install_sh_PROGRAM="$(INSTALL_STRIP_PROGRAM)" INSTALL_STRIP_FLAG=-s \ install; \ else \ $(MAKE) $(AM_MAKEFLAGS) INSTALL_PROGRAM="$(INSTALL_STRIP_PROGRAM)" \ install_sh_PROGRAM="$(INSTALL_STRIP_PROGRAM)" INSTALL_STRIP_FLAG=-s \ "INSTALL_PROGRAM_ENV=STRIPPROG='$(STRIP)'" install; \ fi mostlyclean-generic: clean-generic: distclean-generic: -test -z "$(CONFIG_CLEAN_FILES)" || rm -f $(CONFIG_CLEAN_FILES) -test . = "$(srcdir)" || test -z "$(CONFIG_CLEAN_VPATH_FILES)" || rm -f $(CONFIG_CLEAN_VPATH_FILES) maintainer-clean-generic: @echo "This command is intended for maintainers to use" @echo "it deletes files that may require special tools to rebuild." clean: clean-am clean-am: clean-generic clean-libtool mostlyclean-am distclean: distclean-am -rm -f Makefile distclean-am: clean-am distclean-generic dvi: dvi-am dvi-am: html: html-am html-am: info: info-am info-am: install-data-am: install-moduleDATA install-dvi: install-dvi-am install-dvi-am: install-exec-am: install-html: install-html-am install-html-am: install-info: install-info-am install-info-am: install-man: install-pdf: install-pdf-am install-pdf-am: install-ps: install-ps-am install-ps-am: installcheck-am: maintainer-clean: maintainer-clean-am -rm -f Makefile maintainer-clean-am: distclean-am maintainer-clean-generic mostlyclean: mostlyclean-am mostlyclean-am: mostlyclean-generic mostlyclean-libtool pdf: pdf-am pdf-am: ps: ps-am ps-am: uninstall-am: uninstall-moduleDATA .MAKE: install-am install-strip .PHONY: all all-am check check-am clean clean-generic clean-libtool \ distclean distclean-generic distclean-libtool distdir dvi \ dvi-am html html-am info info-am install install-am \ install-data install-data-am install-dvi install-dvi-am \ install-exec install-exec-am install-html install-html-am \ install-info install-info-am install-man install-moduleDATA \ install-pdf install-pdf-am install-ps install-ps-am \ install-strip installcheck installcheck-am installdirs \ maintainer-clean maintainer-clean-generic mostlyclean \ mostlyclean-generic mostlyclean-libtool pdf pdf-am ps ps-am \ uninstall uninstall-am uninstall-moduleDATA export GUILE_LOAD_PATH .c.x: guile-snarf $(GUILE_SNARF_CFLAGS) $< > $@ \ || { rm $@; false; } .c.doc: $(CPP) -DSCM_MAGIC_SNARF_DOCS $(GUILE_SNARF_CFLAGS) $< \ | grep -E '(\^\^ {|\^\^ })' > $@ || { rm $@; false; } %.scm guile-gnome-gw-%.c: %-spec.scm guile $(GUILE_FLAGS) -c \ "(debug-set! stack 400000) \ (use-modules (gnome-@API_VERSION@)) \ (use-modules (g-wrap)) \ (use-modules (gnome gw $*-spec)) \ (generate-wrapset 'guile 'gnome-$* \"guile-gnome-gw-$*\")" mv guile-gnome-gw-$*.scm $*.scm %-@API_VERSION@.pc: %.pc cp $< $@ %-@API_VERSION@-uninstalled.pc: %-uninstalled.pc cp $< $@ # Tell versions [3.59,3.63) of GNU make to not export all variables. # Otherwise a system limit (for SysV at least) may be exceeded. .NOEXPORT: guile-gnome-platform-2.16.2/gtk/gnome/overrides/gtk-customs.defs0000644000175000017500000016241711670374303025222 0ustar00wingowingo00000000000000;; -*- scheme -*- ;; This file was generated from the old, hand-tuned gtk.defs and ;; gtk-types.defs using the defs-diff and diff-to-overrides programs in ;; the tools/ directory. I imagine the boxed and interface types cannot ;; be expressed otherwise, but it's a very verbose format for telling ;; which procedures are oddly-named constructors, which ones have some ;; default, (null-ok), and GList-of arguments. It does work though. (define-boxed IconSet (in-module "Gtk") (c-name "GtkIconSet") (gtype-id "GTK_TYPE_ICON_SET")) (define-boxed IconSource (in-module "Gtk") (c-name "GtkIconSource") (gtype-id "GTK_TYPE_ICON_SOURCE") (copy-func "gtk_icon_source_copy") (release-func "gtk_icon_source_free")) (define-boxed Requisition (in-module "Gtk") (c-name "GtkRequisition") (gtype-id "GTK_TYPE_REQUISITION") (fields '("gint" "width") '("gint" "height"))) (define-boxed SelectionData (in-module "Gtk") (c-name "GtkSelectionData") (gtype-id "GTK_TYPE_SELECTION_DATA") (copy-func "gtk_selection_data_copy") (release-func "gtk_selection_data_free") (fields '("GdkAtom" "selection") '("GdkAtom" "target") '("GdkAtom" "type") '("gint" "format") '("guchar*" "data"))) (define-boxed TextAttributes (in-module "Gtk") (c-name "GtkTextAttributes") (gtype-id "GTK_TYPE_TEXT_ATTRIBUTES")) (define-boxed TextIter (in-module "Gtk") (c-name "GtkTextIter") (gtype-id "GTK_TYPE_TEXT_ITER") (copy-func "gtk_text_iter_copy") (release-func "gtk_text_iter_free")) (define-boxed TreeIter (in-module "Gtk") (c-name "GtkTreeIter") (gtype-id "GTK_TYPE_TREE_ITER") (copy-func "gtk_tree_iter_copy") (release-func "gtk_tree_iter_free")) (define-interface CellEditable (in-module "Gtk") (c-name "GtkCellEditable") (gtype-id "GTK_TYPE_CELL_EDITABLE")) (define-interface Editable (in-module "Gtk") (c-name "GtkEditable") (gtype-id "GTK_TYPE_EDITABLE")) (define-interface TreeDragDest (in-module "Gtk") (c-name "GtkTreeDragDest") (gtype-id "GTK_TYPE_TREE_DRAG_DEST")) (define-interface TreeDragSource (in-module "Gtk") (c-name "GtkTreeDragSource") (gtype-id "GTK_TYPE_TREE_DRAG_SOURCE")) (define-interface TreeModel (in-module "Gtk") (c-name "GtkTreeModel") (gtype-id "GTK_TYPE_TREE_MODEL")) (define-interface TreeSortable (in-module "Gtk") (c-name "GtkTreeSortable") (gtype-id "GTK_TYPE_TREE_SORTABLE")) (define-interface FileChooser (in-module "Gtk") (c-name "GtkFileChooser") (gtype-id "GTK_TYPE_FILE_CHOOSER")) ;; functions follow (define-function gtk_accel_group_new (is-constructor-of GtkAccelGroup) (c-name "gtk_accel_group_new") (overrides "gtk_accel_group_new") (is-constructor-of "GtkAccelGroup") (return-type "GtkAccelGroup*")) (define-function gtk_accel_groups_from_object (c-name "gtk_accel_groups_from_object") (overrides "gtk_accel_groups_from_object") (return-type "GSList*-of-GtkAccelGroup*") (parameters '("GObject*" "object"))) (define-function gtk_adjustment_new (c-name "gtk_adjustment_new") (overrides "gtk_adjustment_new") (is-constructor-of "GtkAdjustment") (return-type "GtkObject*") (parameters '("gdouble" "value" (default "0.0")) '("gdouble" "lower" (default "0.0")) '("gdouble" "upper" (default "0.0")) '("gdouble" "step_increment" (default "0.0")) '("gdouble" "page_increment" (default "0.0")) '("gdouble" "page_size" (default "0.0")))) (define-function gtk_alignment_new (c-name "gtk_alignment_new") (overrides "gtk_alignment_new") (is-constructor-of "GtkAlignment") (return-type "GtkWidget*") (parameters '("gfloat" "xalign" (default "0.0")) '("gfloat" "yalign" (default "0.0")) '("gfloat" "xscale" (default "0.0")) '("gfloat" "yscale" (default "0.0")))) (define-function gtk_aspect_frame_new (c-name "gtk_aspect_frame_new") (overrides "gtk_aspect_frame_new") (is-constructor-of "GtkAspectFrame") (return-type "GtkWidget*") (parameters '("const-gchar*" "label" (null-ok) (default "NULL")) '("gfloat" "xalign" (default "0.5")) '("gfloat" "yalign" (default "0.5")) '("gfloat" "ratio" (default "1")) '("gboolean" "obey_child" (default "TRUE")))) (define-function gtk_button_new_from_stock (c-name "gtk_button_new_from_stock") (overrides "gtk_button_new_from_stock") (is-constructor-of "GtkButton") (return-type "GtkWidget*") (parameters '("const-gchar*" "stock_id"))) (define-function gtk_button_new_with_label (c-name "gtk_button_new_with_label") (overrides "gtk_button_new_with_label") (is-constructor-of "GtkButton") (return-type "GtkWidget*") (parameters '("const-gchar*" "label"))) (define-function gtk_button_new_with_mnemonic (c-name "gtk_button_new_with_mnemonic") (overrides "gtk_button_new_with_mnemonic") (is-constructor-of "GtkButton") (return-type "GtkWidget*") (parameters '("const-gchar*" "label"))) (define-function gtk_check_button_new_with_label (c-name "gtk_check_button_new_with_label") (overrides "gtk_check_button_new_with_label") (is-constructor-of "GtkCheckButton") (return-type "GtkWidget*") (parameters '("const-gchar*" "label"))) (define-function gtk_check_button_new_with_mnemonic (c-name "gtk_check_button_new_with_mnemonic") (overrides "gtk_check_button_new_with_mnemonic") (is-constructor-of "GtkCheckButton") (return-type "GtkWidget*") (parameters '("const-gchar*" "label"))) (define-function gtk_check_menu_item_new_with_label (c-name "gtk_check_menu_item_new_with_label") (overrides "gtk_check_menu_item_new_with_label") (is-constructor-of "GtkCheckMenuItem") (return-type "GtkWidget*") (parameters '("const-gchar*" "label"))) (define-function gtk_check_menu_item_new_with_mnemonic (c-name "gtk_check_menu_item_new_with_mnemonic") (overrides "gtk_check_menu_item_new_with_mnemonic") (is-constructor-of "GtkCheckMenuItem") (return-type "GtkWidget*") (parameters '("const-gchar*" "label"))) (define-function gtk_check_version (c-name "gtk_check_version") (overrides "gtk_check_version") (return-type "const-gchar*") (parameters '("guint" "required_major") '("guint" "required_minor") '("guint" "required_micro"))) (define-function gtk_dialog_new_with_buttons (c-name "gtk_dialog_new_with_buttons") (overrides "gtk_dialog_new_with_buttons") (is-constructor-of "GtkDialog") (return-type "GtkWidget*") (parameters '("const-gchar*" "title" (null-ok) (default "NULL")) '("GtkWindow*" "parent" (null-ok) (default "NULL")) '("GtkDialogFlags" "flags" (default "0")) '("const-gchar*" "first_button_text" (null-ok) (default "NULL"))) (varargs #t)) (define-function gtk_file_selection_new (c-name "gtk_file_selection_new") (overrides "gtk_file_selection_new") (return-type "GtkWidget*") (parameters '("const-gchar*" "title" (null-ok) (default "NULL")))) (define-function gtk_frame_new (c-name "gtk_frame_new") (overrides "gtk_frame_new") (is-constructor-of "GtkFrame") (return-type "GtkWidget*") (parameters '("const-gchar*" "label" (null-ok) (default "NULL")))) (define-function gtk_hbox_new (c-name "gtk_hbox_new") (overrides "gtk_hbox_new") (is-constructor-of "GtkHBox") (return-type "GtkWidget*") (parameters '("gboolean" "homogeneous" (default "FALSE")) '("gint" "spacing" (default "0")))) (define-function gtk_hbutton_box_new (c-name "gtk_hbutton_box_new") (overrides "gtk_hbutton_box_new") (is-constructor-of "GtkHButtonBox") (return-type "GtkWidget*")) (define-function gtk_hpaned_new (c-name "gtk_hpaned_new") (overrides "gtk_hpaned_new") (is-constructor-of "GtkHPaned") (return-type "GtkWidget*")) (define-function gtk_hruler_new (c-name "gtk_hruler_new") (overrides "gtk_hruler_new") (is-constructor-of "GtkHRuler") (return-type "GtkWidget*")) (define-function gtk_hscale_new (c-name "gtk_hscale_new") (overrides "gtk_hscale_new") (is-constructor-of "GtkHScale") (return-type "GtkWidget*") (parameters '("GtkAdjustment*" "adjustment" (null-ok) (default "NULL")))) (define-function gtk_hscale_new_with_range (c-name "gtk_hscale_new_with_range") (overrides "gtk_hscale_new_with_range") (is-constructor-of "GtkHScale") (return-type "GtkWidget*") (parameters '("gdouble" "min") '("gdouble" "max") '("gdouble" "step"))) (define-function gtk_hscrollbar_new (c-name "gtk_hscrollbar_new") (overrides "gtk_hscrollbar_new") (is-constructor-of "GtkHScrollbar") (return-type "GtkWidget*") (parameters '("GtkAdjustment*" "adjustment" (null-ok) (default "NULL")))) (define-function gtk_hseparator_new (c-name "gtk_hseparator_new") (overrides "gtk_hseparator_new") (is-constructor-of "GtkHSeparator") (return-type "GtkWidget*")) (define-function gtk_icon_set_new_from_pixbuf (c-name "gtk_icon_set_new_from_pixbuf") (overrides "gtk_icon_set_new_from_pixbuf") (return-type "GtkIconSet*") (is-constructor-of "GtkIconSet") (parameters '("GdkPixbuf*" "pixbuf"))) (define-function gtk_icon_size_get_name (c-name "gtk_icon_size_get_name") (overrides "gtk_icon_size_get_name") (return-type "const-gchar*") (parameters '("GtkIconSize" "size"))) (define-function gtk_im_context_simple_new (is-constructor-of "GtkIMContextSimple") (c-name "gtk_im_context_simple_new") (overrides "gtk_im_context_simple_new") (return-type "GtkIMContext*")) (define-function gtk_im_multicontext_new (c-name "gtk_im_multicontext_new") (overrides "gtk_im_multicontext_new") (is-constructor-of "GtkIMMulticontext") (return-type "GtkIMContext*")) (define-function gtk_image_menu_item_new_from_stock (c-name "gtk_image_menu_item_new_from_stock") (overrides "gtk_image_menu_item_new_from_stock") (is-constructor-of "GtkImageMenuItem") (return-type "GtkWidget*") (parameters '("const-gchar*" "stock_id") '("GtkAccelGroup*" "accel_group"))) (define-function gtk_image_menu_item_new_with_label (c-name "gtk_image_menu_item_new_with_label") (overrides "gtk_image_menu_item_new_with_label") (is-constructor-of "GtkImageMenuItem") (return-type "GtkWidget*") (parameters '("const-gchar*" "label"))) (define-function gtk_image_menu_item_new_with_mnemonic (c-name "gtk_image_menu_item_new_with_mnemonic") (overrides "gtk_image_menu_item_new_with_mnemonic") (is-constructor-of "GtkImageMenuItem") (return-type "GtkWidget*") (parameters '("const-gchar*" "label"))) (define-function gtk_image_new_from_animation (c-name "gtk_image_new_from_animation") (overrides "gtk_image_new_from_animation") (is-constructor-of "GtkImage") (return-type "GtkWidget*") (parameters '("GdkPixbufAnimation*" "animation"))) (define-function gtk_image_new_from_file (c-name "gtk_image_new_from_file") (overrides "gtk_image_new_from_file") (is-constructor-of "GtkImage") (return-type "GtkWidget*") (parameters '("const-gchar*" "filename"))) (define-function gtk_image_new_from_icon_set (c-name "gtk_image_new_from_icon_set") (overrides "gtk_image_new_from_icon_set") (is-constructor-of "GtkImage") (return-type "GtkWidget*") (parameters '("GtkIconSet*" "icon_set") '("GtkIconSize" "size"))) (define-function gtk_image_new_from_image (c-name "gtk_image_new_from_image") (overrides "gtk_image_new_from_image") (is-constructor-of "GtkImage") (return-type "GtkWidget*") (parameters '("GdkImage*" "image") '("GdkBitmap*" "mask"))) (define-function gtk_image_new_from_pixbuf (c-name "gtk_image_new_from_pixbuf") (overrides "gtk_image_new_from_pixbuf") (is-constructor-of "GtkImage") (return-type "GtkWidget*") (parameters '("GdkPixbuf*" "pixbuf"))) (define-function gtk_image_new_from_pixmap (c-name "gtk_image_new_from_pixmap") (overrides "gtk_image_new_from_pixmap") (is-constructor-of "GtkImage") (return-type "GtkWidget*") (parameters '("GdkPixmap*" "pixmap") '("GdkBitmap*" "mask"))) (define-function gtk_image_new_from_stock (c-name "gtk_image_new_from_stock") (overrides "gtk_image_new_from_stock") (is-constructor-of "GtkImage") (return-type "GtkWidget*") (parameters '("const-gchar*" "stock_id") '("GtkIconSize" "size"))) (define-function gtk_label_new_with_mnemonic (c-name "gtk_label_new_with_mnemonic") (overrides "gtk_label_new_with_mnemonic") (is-constructor-of "GtkLabel") (return-type "GtkWidget*") (parameters '("const-char*" "str"))) (define-function gtk_layout_new (c-name "gtk_layout_new") (overrides "gtk_layout_new") (is-constructor-of "GtkLayout") (return-type "GtkWidget*") (parameters '("GtkAdjustment*" "hadjustment" (null-ok) (default "NULL")) '("GtkAdjustment*" "vadjustment" (null-ok) (default "NULL")))) (define-function gtk_main_iteration_do (c-name "gtk_main_iteration_do") (overrides "gtk_main_iteration_do") (return-type "gboolean") (parameters '("gboolean" "blocking" (default "TRUE")))) (define-function gtk_menu_item_new_with_label (c-name "gtk_menu_item_new_with_label") (overrides "gtk_menu_item_new_with_label") (is-constructor-of "GtkMenuItem") (return-type "GtkWidget*") (parameters '("const-gchar*" "label"))) (define-function gtk_menu_item_new_with_mnemonic (c-name "gtk_menu_item_new_with_mnemonic") (overrides "gtk_menu_item_new_with_mnemonic") (is-constructor-of "GtkMenuItem") (return-type "GtkWidget*") (parameters '("const-gchar*" "label"))) (define-function gtk_radio_button_new_from_widget (is-constructor-of "GtkRadioButton") (c-name "gtk_radio_button_new_from_widget") (overrides "gtk_radio_button_new_from_widget") (return-type "GtkWidget*") (parameters '("GtkRadioButton*" "group"))) (define-function gtk_radio_button_new_with_label_from_widget (is-constructor-of "GtkRadioButton") (c-name "gtk_radio_button_new_with_label_from_widget") (overrides "gtk_radio_button_new_with_label_from_widget") (return-type "GtkWidget*") (parameters '("GtkRadioButton*" "group") '("const-gchar*" "label"))) (define-function gtk_radio_button_new_with_mnemonic_from_widget (is-constructor-of "GtkRadioButton") (c-name "gtk_radio_button_new_with_mnemonic_from_widget") (overrides "gtk_radio_button_new_with_mnemonic_from_widget") (return-type "GtkWidget*") (parameters '("GtkRadioButton*" "group") '("const-gchar*" "label"))) (define-function gtk_radio_menu_item_new_from_widget (is-contructor-of "GtkRadioMenuItem") (c-name "gtk_radio_menu_item_new_from_widget") (overrides "gtk_radio_menu_item_new_from_widget") (return-type "GtkWidget*") (parameters '("GtkRadioMenuItem*" "group"))) (define-function gtk_radio_menu_item_new_with_label_from_widget (is-contructor-of "GtkRadioMenuItem") (c-name "gtk_radio_menu_item_new_with_label_from_widget") (overrides "gtk_radio_menu_item_new_with_label_from_widget") (return-type "GtkWidget*") (parameters '("GtkRadioMenuItem*" "group") '("const-gchar*" "label"))) (define-function gtk_radio_menu_item_new_with_mnemonic_from_widget (is-contructor-of "GtkRadioMenuItem") (c-name "gtk_radio_menu_item_new_with_mnemonic_from_widget") (overrides "gtk_radio_menu_item_new_with_mnemonic_from_widget") (return-type "GtkWidget*") (parameters '("GtkRadioMenuItem*" "group") '("const-gchar*" "label"))) (define-function gtk_rc_style_new (c-name "gtk_rc_style_new") (overrides "gtk_rc_style_new") (is-constructor-of "GtkRCStyle") (return-type "GtkRcStyle*")) (define-function gtk_scrolled_window_new (c-name "gtk_scrolled_window_new") (overrides "gtk_scrolled_window_new") (is-constructor-of "GtkScrolledWindow") (return-type "GtkWidget*") (parameters '("GtkAdjustment*" "hadjustment" (null-ok) (default "NULL")) '("GtkAdjustment*" "vadjustment" (null-ok) (default "NULL")))) (define-function gtk_selection_owner_set_for_display (c-name "gtk_selection_owner_set_for_display") (overrides "gtk_selection_owner_set_for_display") (return-type "gboolean") (parameters '("GdkDisplay*" "display") '("GtkWidget*" "widget") '("GdkAtom" "selection") '("guint32" "time" (default "GDK_CURRENT_TIME")))) (define-function gtk_spin_button_new (c-name "gtk_spin_button_new") (overrides "gtk_spin_button_new") (is-constructor-of "GtkSpinButton") (return-type "GtkWidget*") (parameters '("GtkAdjustment*" "adjustment" (null-ok) (default "NULL")) '("gdouble" "climb_rate" (default "0.0")) '("guint" "digits" (default "0")))) (define-function gtk_spin_button_new_with_range (c-name "gtk_spin_button_new_with_range") (overrides "gtk_spin_button_new_with_range") (is-constructor-of "GtkSpinButton") (return-type "GtkWidget*") (parameters '("gdouble" "min") '("gdouble" "max") '("gdouble" "step"))) (define-function gtk_stock_list_ids (c-name "gtk_stock_list_ids") (overrides "gtk_stock_list_ids") (return-type "GSList*-of-char*")) (define-function gtk_table_new (c-name "gtk_table_new") (overrides "gtk_table_new") (is-constructor-of "GtkTable") (return-type "GtkWidget*") (parameters '("guint" "rows" (default "1")) '("guint" "columns" (default "1")) '("gboolean" "homogeneous" (default "FALSE")))) (define-function gtk_text_buffer_new (c-name "gtk_text_buffer_new") (overrides "gtk_text_buffer_new") (is-constructor-of "GtkTextBuffer") (return-type "GtkTextBuffer*") (parameters '("GtkTextTagTable*" "table" (null-ok) (default "NULL")))) (define-function gtk_text_tag_new (c-name "gtk_text_tag_new") (overrides "gtk_text_tag_new") (is-constructor-of "GtkTextTag") (return-type "GtkTextTag*") (parameters '("const-gchar*" "name" (null-ok) (default "NULL")))) (define-function gtk_text_view_new_with_buffer (c-name "gtk_text_view_new_with_buffer") (overrides "gtk_text_view_new_with_buffer") (is-constructor-of "GtkTextView") (return-type "GtkWidget*") (parameters '("GtkTextBuffer*" "buffer" (null-ok) (default "NULL")))) (define-function gtk_toggle_button_new_with_label (c-name "gtk_toggle_button_new_with_label") (overrides "gtk_toggle_button_new_with_label") (is-constructor-of "GtkToggleButton") (return-type "GtkWidget*") (parameters '("const-gchar*" "label"))) (define-function gtk_toggle_button_new_with_mnemonic (c-name "gtk_toggle_button_new_with_mnemonic") (overrides "gtk_toggle_button_new_with_mnemonic") (is-constructor-of "GtkToggleButton") (return-type "GtkWidget*") (parameters '("const-gchar*" "label"))) (define-function gtk_tree_model_sort_new_with_model (c-name "gtk_tree_model_sort_new_with_model") (overrides "gtk_tree_model_sort_new_with_model") (is-constructor-of "GtkTreeModelSort") (return-type "GtkTreeModel*") (parameters '("GtkTreeModel*" "child_model"))) (define-function gtk_tree_path_new_from_string (c-name "gtk_tree_path_new_from_string") (overrides "gtk_tree_path_new_from_string") (return-type "GtkTreePath*") (parameters '("gchar*" "path") '("const-gchar*" "path"))) (define-function gtk_tree_row_reference_new_proxy (c-name "gtk_tree_row_reference_new_proxy") (overrides "gtk_tree_row_reference_new_proxy") (is-constructor-of "GtkTreeRowReference") (return-type "GtkTreeRowReference*") (parameters '("GObject*" "proxy") '("GtkTreeModel*" "model") '("GtkTreePath*" "path"))) (define-function gtk_tree_view_column_new_with_attributes (c-name "gtk_tree_view_column_new_with_attributes") (overrides "gtk_tree_view_column_new_with_attributes") (is-constructor-of "GtkTreeViewColumn") (return-type "GtkTreeViewColumn*") (parameters '("const-gchar*" "title") '("GtkCellRenderer*" "cell")) (varargs #t)) (define-function gtk_tree_view_new_with_model (c-name "gtk_tree_view_new_with_model") (overrides "gtk_tree_view_new_with_model") (is-constructor-of "GtkTreeView") (return-type "GtkWidget*") (parameters '("GtkTreeModel*" "model" (null-ok) (default "NULL")))) (define-function gtk_vbox_new (c-name "gtk_vbox_new") (overrides "gtk_vbox_new") (is-constructor-of "GtkVBox") (return-type "GtkWidget*") (parameters '("gboolean" "homogeneous" (default "FALSE")) '("gint" "spacing" (default "0")))) (define-function gtk_vbutton_box_new (c-name "gtk_vbutton_box_new") (overrides "gtk_vbutton_box_new") (is-constructor-of "GtkVButtonBox") (return-type "GtkWidget*")) (define-function gtk_viewport_new (c-name "gtk_viewport_new") (overrides "gtk_viewport_new") (is-constructor-of "GtkViewport") (return-type "GtkWidget*") (parameters '("GtkAdjustment*" "hadjustment" (null-ok) (default "NULL")) '("GtkAdjustment*" "vadjustment" (null-ok) (default "NULL")))) (define-function gtk_vpaned_new (c-name "gtk_vpaned_new") (overrides "gtk_vpaned_new") (is-constructor-of "GtkVPaned") (return-type "GtkWidget*")) (define-function gtk_vruler_new (c-name "gtk_vruler_new") (overrides "gtk_vruler_new") (is-constructor-of "GtkVRuler") (return-type "GtkWidget*")) (define-function gtk_vscale_new (c-name "gtk_vscale_new") (overrides "gtk_vscale_new") (is-constructor-of "GtkVScale") (return-type "GtkWidget*") (parameters '("GtkAdjustment*" "adjustment" (null-ok) (default "NULL")))) (define-function gtk_vscale_new_with_range (c-name "gtk_vscale_new_with_range") (overrides "gtk_vscale_new_with_range") (is-constructor-of "GtkVScale") (return-type "GtkWidget*") (parameters '("gdouble" "min") '("gdouble" "max") '("gdouble" "step"))) (define-function gtk_vscrollbar_get_type (c-name "gtk_vscrollbar_get_type") (overrides "gtk_vscrollbar_get_type") (return-type "GType")) (define-function gtk_vscrollbar_new (c-name "gtk_vscrollbar_new") (overrides "gtk_vscrollbar_new") (is-constructor-of "GtkVScrollbar") (return-type "GtkWidget*") (parameters '("GtkAdjustment*" "adjustment" (null-ok) (default "NULL")))) (define-function gtk_vseparator_new (c-name "gtk_vseparator_new") (overrides "gtk_vseparator_new") (is-constructor-of "GtkVSeparator") (return-type "GtkWidget*")) (define-function gtk_window_get_default_icon_list (c-name "gtk_window_get_default_icon_list") (overrides "gtk_window_get_default_icon_list") (return-type "GList*-of-GdkPixbuf*")) (define-function gtk_window_list_toplevels (c-name "gtk_window_list_toplevels") (overrides "gtk_window_list_toplevels") (return-type "GList*-of-GtkWindow*")) (define-function gtk_window_new (c-name "gtk_window_new") (overrides "gtk_window_new") (is-constructor-of "GtkWindow") (return-type "GtkWidget*") (caller-owns-return #f) (parameters '("GtkWindowType" "type" (default "GTK_WINDOW_TOPLEVEL")))) (define-function gtk_window_set_default_icon_list (c-name "gtk_window_set_default_icon_list") (overrides "gtk_window_set_default_icon_list") (return-type "none") (parameters '("GList*-of-GdkPixbuf*" "list"))) (define-method get_proxies (of-object "GtkAction") (c-name "gtk_action_get_proxies") (overrides "gtk_action_get_proxies") (return-type "GSList*-of-GtkWidget*")) (define-method list_actions (of-object "GtkActionGroup") (c-name "gtk_action_group_list_actions") (overrides "gtk_action_group_list_actions") (return-type "GList*-of-GtkAction*")) (define-method set (of-object "GtkAspectFrame") (c-name "gtk_aspect_frame_set") (overrides "gtk_aspect_frame_set") (return-type "none") (parameters '("gfloat" "xalign" (default "0.0")) '("gfloat" "yalign" (default "0.0")) '("gfloat" "ratio" (default "1.0")) '("gboolean" "obey_child" (default "1")))) (define-method copy (of-object "GtkBorder") (c-name "gtk_border_copy") (overrides "gtk_border_copy") (return-type "GtkBorder*") (caller-owns-return #t)) (define-method free (of-object "GtkBorder") (c-name "gtk_border_free") (overrides "gtk_border_free") (return-type "none")) (define-method pack_end (of-object "GtkBox") (c-name "gtk_box_pack_end") (overrides "gtk_box_pack_end") (return-type "none") (parameters '("GtkWidget*" "child") '("gboolean" "expand" (default "TRUE")) '("gboolean" "fill" (default "TRUE")) '("guint" "padding" (default "0")))) (define-method pack_start (of-object "GtkBox") (c-name "gtk_box_pack_start") (overrides "gtk_box_pack_start") (return-type "none") (parameters '("GtkWidget*" "child") '("gboolean" "expand" (default "TRUE")) '("gboolean" "fill" (default "TRUE")) '("guint" "padding" (default "0")))) (define-method get_children (of-object "GtkContainer") (c-name "gtk_container_get_children") (overrides "gtk_container_get_children") (return-type "GList*-of-GtkWidget*")) (define-method set_focus_chain (of-object "GtkContainer") (c-name "gtk_container_set_focus_chain") (overrides "gtk_container_set_focus_chain") (return-type "none") (parameters '("GList*-of-GtkWidget*" "focusable_widgets"))) (define-method set_gamma (of-object "GtkCurve") (c-name "gtk_curve_set_gamma") (overrides "gtk_curve_set_gamma") (return-type "none") (parameters '("gfloat" "gamma"))) (define-method drag_check_threshold (of-object "GtkWidget") (c-name "gtk_drag_check_threshold") (overrides "gtk_drag_check_threshold") (return-type "gboolean") (parameters '("gint" "start_x") '("gint" "start_y") '("gint" "current_x") '("gint" "current_y"))) (define-method drag_dest_set_proxy (of-object "GtkWidget") (c-name "gtk_drag_dest_set_proxy") (overrides "gtk_drag_dest_set_proxy") (return-type "none") (parameters '("GdkWindow*" "proxy_window") '("GdkDragProtocol" "protocol") '("gboolean" "use_coordinates"))) (define-method drag_dest_unset (of-object "GtkWidget") (c-name "gtk_drag_dest_unset") (overrides "gtk_drag_dest_unset") (return-type "none")) (define-method finish (of-object "GdkDragContext") (c-name "gtk_drag_finish") (overrides "gtk_drag_finish") (return-type "none") (parameters '("gboolean" "success") '("gboolean" "del") '("guint32" "time" (default "GDK_CURRENT_TIME")))) (define-method drag_get_data (of-object "GtkWidget") (c-name "gtk_drag_get_data") (overrides "gtk_drag_get_data") (return-type "none") (parameters '("GdkDragContext*" "context") '("GdkAtom" "target") '("guint32" "time" (default "GDK_CURRENT_TIME")))) (define-method get_source_widget (of-object "GdkDragContext") (c-name "gtk_drag_get_source_widget") (overrides "gtk_drag_get_source_widget") (return-type "GtkWidget*")) (define-method drag_highlight (of-object "GtkWidget") (c-name "gtk_drag_highlight") (overrides "gtk_drag_highlight") (return-type "none")) (define-method set_icon_default (of-object "GdkDragContext") (c-name "gtk_drag_set_icon_default") (overrides "gtk_drag_set_icon_default") (return-type "none")) (define-method set_icon_pixbuf (of-object "GdkDragContext") (c-name "gtk_drag_set_icon_pixbuf") (overrides "gtk_drag_set_icon_pixbuf") (return-type "none") (parameters '("GdkPixbuf*" "pixbuf") '("gint" "hot_x") '("gint" "hot_y"))) (define-method set_icon_pixmap (of-object "GdkDragContext") (c-name "gtk_drag_set_icon_pixmap") (overrides "gtk_drag_set_icon_pixmap") (return-type "none") (parameters '("GdkColormap*" "colormap") '("GdkPixmap*" "pixmap") '("GdkBitmap*" "mask") '("gint" "hot_x") '("gint" "hot_y"))) (define-method set_icon_stock (of-object "GdkDragContext") (c-name "gtk_drag_set_icon_stock") (overrides "gtk_drag_set_icon_stock") (return-type "none") (parameters '("const-gchar*" "stock_id") '("gint" "hot_x") '("gint" "hot_y"))) (define-method set_icon_widget (of-object "GdkDragContext") (c-name "gtk_drag_set_icon_widget") (overrides "gtk_drag_set_icon_widget") (return-type "none") (parameters '("GtkWidget*" "widget") '("gint" "hot_x") '("gint" "hot_y"))) (define-method drag_source_set_icon (of-object "GtkWidget") (c-name "gtk_drag_source_set_icon") (overrides "gtk_drag_source_set_icon") (return-type "none") (parameters '("GdkColormap*" "colormap") '("GdkPixmap*" "pixmap") '("GdkBitmap*" "mask" (null-ok) (default "NULL")))) (define-method drag_source_set_icon_pixbuf (of-object "GtkWidget") (c-name "gtk_drag_source_set_icon_pixbuf") (overrides "gtk_drag_source_set_icon_pixbuf") (return-type "none") (parameters '("GdkPixbuf*" "pixbuf"))) (define-method drag_source_set_icon_stock (of-object "GtkWidget") (c-name "gtk_drag_source_set_icon_stock") (overrides "gtk_drag_source_set_icon_stock") (return-type "none") (parameters '("const-gchar*" "stock_id"))) (define-method drag_source_unset (of-object "GtkWidget") (c-name "gtk_drag_source_unset") (overrides "gtk_drag_source_unset") (return-type "none")) (define-method drag_unhighlight (of-object "GtkWidget") (c-name "gtk_drag_unhighlight") (overrides "gtk_drag_unhighlight") (return-type "none")) (define-method delete_action (of-object "GtkEntryCompletion") (c-name "gtk_entry_completion_delete_action") (overrides "gtk_entry_completion_delete_action") (return-type "none") (parameters '("gint" "index"))) (define-method insert_action_markup (of-object "GtkEntryCompletion") (c-name "gtk_entry_completion_insert_action_markup") (overrides "gtk_entry_completion_insert_action_markup") (return-type "none") (parameters '("gint" "index") '("const-gchar*" "markup"))) (define-method insert_action_text (of-object "GtkEntryCompletion") (c-name "gtk_entry_completion_insert_action_text") (overrides "gtk_entry_completion_insert_action_text") (return-type "none") (parameters '("gint" "index") '("const-gchar*" "text"))) (define-method get_filenames (of-object "GtkFileChooser") (c-name "gtk_file_chooser_get_filenames") (overrides "gtk_file_chooser_get_filenames") (return-type "GSList*-of-gchar*") (caller-owns-return #t)) (define-method get_uris (of-object "GtkFileChooser") (c-name "gtk_file_chooser_get_uris") (overrides "gtk_file_chooser_get_uris") (return-type "GSList*-of-gchar*") (caller-owns-return #t)) (define-method list_filters (of-object "GtkFileChooser") (c-name "gtk_file_chooser_list_filters") (overrides "gtk_file_chooser_list_filters") (return-type "GSList*-of-GtkFileFilter*")) (define-method list_shortcut_folder_uris (of-object "GtkFileChooser") (c-name "gtk_file_chooser_list_shortcut_folder_uris") (overrides "gtk_file_chooser_list_shortcut_folder_uris") (return-type "GSList*-of-gchar*") (caller-owns-return #t)) (define-method list_shortcut_folders (of-object "GtkFileChooser") (c-name "gtk_file_chooser_list_shortcut_folders") (overrides "gtk_file_chooser_list_shortcut_folders") (return-type "GSList*-of-gchar*") (caller-owns-return #t)) (define-method set_label (of-object "GtkFrame") (c-name "gtk_frame_set_label") (overrides "gtk_frame_set_label") (return-type "none") (parameters '("const-gchar*" "label" (null-ok)))) (define-method grab_add (of-object "GtkWidget") (c-name "gtk_grab_add") (overrides "gtk_grab_add") (return-type "none")) (define-method grab_remove (of-object "GtkWidget") (c-name "gtk_grab_remove") (overrides "gtk_grab_remove") (return-type "none")) (define-method copy (of-object "GtkIconSet") (c-name "gtk_icon_set_copy") (overrides "gtk_icon_set_copy") (return-type "GtkIconSet*") (caller-owns-return #t)) (define-method copy (of-object "GtkIconSource") (c-name "gtk_icon_source_copy") (overrides "gtk_icon_source_copy") (return-type "GtkIconSource*") (caller-owns-return #t)) (define-method list_icons (of-object "GtkIconTheme") (c-name "gtk_icon_theme_list_icons") (overrides "gtk_icon_theme_list_icons") (return-type "GList*-of-gchar*") (caller-owns-return #t) (parameters '("const-gchar*" "context"))) (define-method set_from_file (of-object "GtkImage") (c-name "gtk_image_set_from_file") (overrides "gtk_image_set_from_file") (return-type "none") (parameters '("const-gchar*" "filename" (null-ok)))) (define-method set_from_image (of-object "GtkImage") (c-name "gtk_image_set_from_image") (overrides "gtk_image_set_from_image") (return-type "none") (parameters '("GdkImage*" "gdk_image" (null-ok)) '("GdkBitmap*" "mask" (null-ok)))) (define-method set_from_pixbuf (of-object "GtkImage") (c-name "gtk_image_set_from_pixbuf") (overrides "gtk_image_set_from_pixbuf") (return-type "none") (parameters '("GdkPixbuf*" "pixbuf" (null-ok)))) (define-method set_from_pixmap (of-object "GtkImage") (c-name "gtk_image_set_from_pixmap") (overrides "gtk_image_set_from_pixmap") (return-type "none") (parameters '("GdkPixmap*" "pixmap") '("GdkBitmap*" "mask" (null-ok)))) (define-method set_hadjustment (of-object "GtkLayout") (c-name "gtk_layout_set_hadjustment") (overrides "gtk_layout_set_hadjustment") (return-type "none") (parameters '("GtkAdjustment*" "adjustment" (null-ok)))) (define-method set_vadjustment (of-object "GtkLayout") (c-name "gtk_layout_set_vadjustment") (overrides "gtk_layout_set_vadjustment") (return-type "none") (parameters '("GtkAdjustment*" "adjustment" (null-ok)))) (define-method set_active (of-object "GtkMenu") (c-name "gtk_menu_set_active") (overrides "gtk_menu_set_active") (return-type "none") (parameters '("guint" "index"))) (define-method paint_arrow (of-object "GtkStyle") (c-name "gtk_paint_arrow") (overrides "gtk_paint_arrow") (return-type "none") (parameters '("GdkWindow*" "window") '("GtkStateType" "state_type") '("GtkShadowType" "shadow_type") '("GdkRectangle*" "area" (null-ok)) '("GtkWidget*" "widget" (null-ok)) '("const-gchar*" "detail" (null-ok)) '("GtkArrowType" "arrow_type") '("gboolean" "fill") '("gint" "x") '("gint" "y") '("gint" "width") '("gint" "height"))) (define-method paint_box (of-object "GtkStyle") (c-name "gtk_paint_box") (overrides "gtk_paint_box") (return-type "none") (parameters '("GdkWindow*" "window") '("GtkStateType" "state_type") '("GtkShadowType" "shadow_type") '("GdkRectangle*" "area" (null-ok)) '("GtkWidget*" "widget" (null-ok)) '("const-gchar*" "detail" (null-ok)) '("gint" "x") '("gint" "y") '("gint" "width") '("gint" "height"))) (define-method paint_box_gap (of-object "GtkStyle") (c-name "gtk_paint_box_gap") (overrides "gtk_paint_box_gap") (return-type "none") (parameters '("GdkWindow*" "window") '("GtkStateType" "state_type") '("GtkShadowType" "shadow_type") '("GdkRectangle*" "area" (null-ok)) '("GtkWidget*" "widget" (null-ok)) '("gchar*" "detail" (null-ok)) '("gint" "x") '("gint" "y") '("gint" "width") '("gint" "height") '("GtkPositionType" "gap_side") '("gint" "gap_x") '("gint" "gap_width"))) (define-method paint_check (of-object "GtkStyle") (c-name "gtk_paint_check") (overrides "gtk_paint_check") (return-type "none") (parameters '("GdkWindow*" "window") '("GtkStateType" "state_type") '("GtkShadowType" "shadow_type") '("GdkRectangle*" "area" (null-ok)) '("GtkWidget*" "widget" (null-ok)) '("const-gchar*" "detail" (null-ok)) '("gint" "x") '("gint" "y") '("gint" "width") '("gint" "height"))) (define-method paint_diamond (of-object "GtkStyle") (c-name "gtk_paint_diamond") (overrides "gtk_paint_diamond") (return-type "none") (parameters '("GdkWindow*" "window") '("GtkStateType" "state_type") '("GtkShadowType" "shadow_type") '("GdkRectangle*" "area" (null-ok)) '("GtkWidget*" "widget" (null-ok)) '("const-gchar*" "detail" (null-ok)) '("gint" "x") '("gint" "y") '("gint" "width") '("gint" "height"))) (define-method paint_expander (of-object "GtkStyle") (c-name "gtk_paint_expander") (overrides "gtk_paint_expander") (return-type "none") (parameters '("GdkWindow*" "window") '("GtkStateType" "state_type") '("GdkRectangle*" "area" (null-ok)) '("GtkWidget*" "widget" (null-ok)) '("const-gchar*" "detail" (null-ok)) '("gint" "x") '("gint" "y") '("GtkExpanderStyle" "expander_style"))) (define-method paint_extension (of-object "GtkStyle") (c-name "gtk_paint_extension") (overrides "gtk_paint_extension") (return-type "none") (parameters '("GdkWindow*" "window") '("GtkStateType" "state_type") '("GtkShadowType" "shadow_type") '("GdkRectangle*" "area" (null-ok)) '("GtkWidget*" "widget" (null-ok)) '("gchar*" "detail" (null-ok)) '("gint" "x") '("gint" "y") '("gint" "width") '("gint" "height") '("GtkPositionType" "gap_side"))) (define-method paint_flat_box (of-object "GtkStyle") (c-name "gtk_paint_flat_box") (overrides "gtk_paint_flat_box") (return-type "none") (parameters '("GdkWindow*" "window") '("GtkStateType" "state_type") '("GtkShadowType" "shadow_type") '("GdkRectangle*" "area" (null-ok)) '("GtkWidget*" "widget" (null-ok)) '("const-gchar*" "detail" (null-ok)) '("gint" "x") '("gint" "y") '("gint" "width") '("gint" "height"))) (define-method paint_focus (of-object "GtkStyle") (c-name "gtk_paint_focus") (overrides "gtk_paint_focus") (return-type "none") (parameters '("GdkWindow*" "window") '("GtkStateType" "state_type") '("GdkRectangle*" "area" (null-ok)) '("GtkWidget*" "widget" (null-ok)) '("const-gchar*" "detail" (null-ok)) '("gint" "x") '("gint" "y") '("gint" "width") '("gint" "height"))) (define-method paint_handle (of-object "GtkStyle") (c-name "gtk_paint_handle") (overrides "gtk_paint_handle") (return-type "none") (parameters '("GdkWindow*" "window") '("GtkStateType" "state_type") '("GtkShadowType" "shadow_type") '("GdkRectangle*" "area" (null-ok)) '("GtkWidget*" "widget" (null-ok)) '("const-gchar*" "detail" (null-ok)) '("gint" "x") '("gint" "y") '("gint" "width") '("gint" "height") '("GtkOrientation" "orientation"))) (define-method paint_hline (of-object "GtkStyle") (c-name "gtk_paint_hline") (overrides "gtk_paint_hline") (return-type "none") (parameters '("GdkWindow*" "window") '("GtkStateType" "state_type") '("GdkRectangle*" "area" (null-ok)) '("GtkWidget*" "widget" (null-ok)) '("const-gchar*" "detail" (null-ok)) '("gint" "x1") '("gint" "x2") '("gint" "y"))) (define-method paint_layout (of-object "GtkStyle") (c-name "gtk_paint_layout") (overrides "gtk_paint_layout") (return-type "none") (parameters '("GdkWindow*" "window") '("GtkStateType" "state_type") '("gboolean" "use_text") '("GdkRectangle*" "area" (null-ok)) '("GtkWidget*" "widget" (null-ok)) '("const-gchar*" "detail" (null-ok)) '("gint" "x") '("gint" "y") '("PangoLayout*" "layout"))) (define-method paint_option (of-object "GtkStyle") (c-name "gtk_paint_option") (overrides "gtk_paint_option") (return-type "none") (parameters '("GdkWindow*" "window") '("GtkStateType" "state_type") '("GtkShadowType" "shadow_type") '("GdkRectangle*" "area" (null-ok)) '("GtkWidget*" "widget" (null-ok)) '("const-gchar*" "detail" (null-ok)) '("gint" "x") '("gint" "y") '("gint" "width") '("gint" "height"))) (define-method paint_resize_grip (of-object "GtkStyle") (c-name "gtk_paint_resize_grip") (overrides "gtk_paint_resize_grip") (return-type "none") (parameters '("GdkWindow*" "window") '("GtkStateType" "state_type") '("GdkRectangle*" "area" (null-ok)) '("GtkWidget*" "widget" (null-ok)) '("const-gchar*" "detail" (null-ok)) '("GdkWindowEdge" "edge") '("gint" "x") '("gint" "y") '("gint" "width") '("gint" "height"))) (define-method paint_shadow (of-object "GtkStyle") (c-name "gtk_paint_shadow") (overrides "gtk_paint_shadow") (return-type "none") (parameters '("GdkWindow*" "window") '("GtkStateType" "state_type") '("GtkShadowType" "shadow_type") '("GdkRectangle*" "area" (null-ok)) '("GtkWidget*" "widget" (null-ok)) '("const-gchar*" "detail" (null-ok)) '("gint" "x") '("gint" "y") '("gint" "width") '("gint" "height"))) (define-method paint_shadow_gap (of-object "GtkStyle") (c-name "gtk_paint_shadow_gap") (overrides "gtk_paint_shadow_gap") (return-type "none") (parameters '("GdkWindow*" "window") '("GtkStateType" "state_type") '("GtkShadowType" "shadow_type") '("GdkRectangle*" "area" (null-ok)) '("GtkWidget*" "widget" (null-ok)) '("gchar*" "detail" (null-ok)) '("gint" "x") '("gint" "y") '("gint" "width") '("gint" "height") '("GtkPositionType" "gap_side") '("gint" "gap_x") '("gint" "gap_width"))) (define-method paint_slider (of-object "GtkStyle") (c-name "gtk_paint_slider") (overrides "gtk_paint_slider") (return-type "none") (parameters '("GdkWindow*" "window") '("GtkStateType" "state_type") '("GtkShadowType" "shadow_type") '("GdkRectangle*" "area" (null-ok)) '("GtkWidget*" "widget" (null-ok)) '("const-gchar*" "detail" (null-ok)) '("gint" "x") '("gint" "y") '("gint" "width") '("gint" "height") '("GtkOrientation" "orientation"))) (define-method paint_tab (of-object "GtkStyle") (c-name "gtk_paint_tab") (overrides "gtk_paint_tab") (return-type "none") (parameters '("GdkWindow*" "window") '("GtkStateType" "state_type") '("GtkShadowType" "shadow_type") '("GdkRectangle*" "area" (null-ok)) '("GtkWidget*" "widget" (null-ok)) '("const-gchar*" "detail" (null-ok)) '("gint" "x") '("gint" "y") '("gint" "width") '("gint" "height"))) (define-method paint_vline (of-object "GtkStyle") (c-name "gtk_paint_vline") (overrides "gtk_paint_vline") (return-type "none") (parameters '("GdkWindow*" "window") '("GtkStateType" "state_type") '("GdkRectangle*" "area" (null-ok)) '("GtkWidget*" "widget" (null-ok)) '("const-gchar*" "detail" (null-ok)) '("gint" "y1") '("gint" "y2") '("gint" "x"))) (define-method pack1 (of-object "GtkPaned") (c-name "gtk_paned_pack1") (overrides "gtk_paned_pack1") (return-type "none") (parameters '("GtkWidget*" "child") '("gboolean" "resize" (default "FALSE")) '("gboolean" "shrink" (default "TRUE")))) (define-method pack2 (of-object "GtkPaned") (c-name "gtk_paned_pack2") (overrides "gtk_paned_pack2") (return-type "none") (parameters '("GtkWidget*" "child") '("gboolean" "resize" (default "TRUE")) '("gboolean" "shrink" (default "TRUE")))) (define-method propagate_event (of-object "GtkWidget") (c-name "gtk_propagate_event") (overrides "gtk_propagate_event") (return-type "none") (parameters '("GdkEvent*" "event"))) (define-method rc_get_style (of-object "GtkWidget") (c-name "gtk_rc_get_style") (overrides "gtk_rc_get_style") (return-type "GtkStyle*")) (define-method copy (of-object "GtkRcStyle") (c-name "gtk_rc_style_copy") (overrides "gtk_rc_style_copy") (return-type "GtkRcStyle*") (caller-owns-return #t)) (define-method copy (of-object "GtkRequisition") (c-name "gtk_requisition_copy") (overrides "gtk_requisition_copy") (return-type "GtkRequisition*") (caller-owns-return #t)) (define-method selection_add_target (of-object "GtkWidget") (c-name "gtk_selection_add_target") (overrides "gtk_selection_add_target") (return-type "none") (parameters '("GdkAtom" "selection") '("GdkAtom" "target") '("guint" "info"))) ; (define-method ; selection_clear ; (of-object "GtkWidget") ; (c-name "gtk_selection_clear") ; (overrides "gtk_selection_clear") ; (return-type "gboolean") ; (parameters '("GdkEventSelection*" "event"))) (define-method selection_clear_targets (of-object "GtkWidget") (c-name "gtk_selection_clear_targets") (overrides "gtk_selection_clear_targets") (return-type "none") (parameters '("GdkAtom" "selection"))) (define-method selection_convert (of-object "GtkWidget") (c-name "gtk_selection_convert") (overrides "gtk_selection_convert") (return-type "gboolean") (parameters '("GdkAtom" "selection") '("GdkAtom" "target") '("guint32" "time" (default "GDK_CURRENT_TIME")))) (define-method selection_owner_set (of-object "GtkWidget") (c-name "gtk_selection_owner_set") (overrides "gtk_selection_owner_set") (return-type "gboolean") (parameters '("GdkAtom" "selection") '("guint32" "time" (default "GDK_CURRENT_TIME")))) (define-method selection_remove_all (of-object "GtkWidget") (c-name "gtk_selection_remove_all") (overrides "gtk_selection_remove_all") (return-type "none")) (define-method configure (of-object "GtkSpinButton") (c-name "gtk_spin_button_configure") (overrides "gtk_spin_button_configure") (return-type "none") (parameters '("GtkAdjustment*" "adjustment" (null-ok)) '("gdouble" "climb_rate") '("guint" "digits"))) (define-method copy (of-object "GtkStockItem") (c-name "gtk_stock_item_copy") (overrides "gtk_stock_item_copy") (return-type "GtkStockItem*") (caller-owns-return #t)) (define-method apply_default_background (of-object "GtkStyle") (c-name "gtk_style_apply_default_background") (overrides "gtk_style_apply_default_background") (return-type "none") (parameters '("GdkWindow*" "window") '("gboolean" "set_bg") '("GtkStateType" "state_type") '("GdkRectangle*" "area" (null-ok)) '("gint" "x") '("gint" "y") '("gint" "width") '("gint" "height"))) (define-method copy (of-object "GtkStyle") (c-name "gtk_style_copy") (overrides "gtk_style_copy") (return-type "GtkStyle*") (caller-owns-return #t)) (define-method attach (of-object "GtkTable") (c-name "gtk_table_attach") (overrides "gtk_table_attach") (return-type "none") (parameters '("GtkWidget*" "child") '("guint" "left_attach") '("guint" "right_attach") '("guint" "top_attach") '("guint" "bottom_attach") '("GtkAttachOptions" "xoptions" (default "GTK_EXPAND|GTK_FILL")) '("GtkAttachOptions" "yoptions" (default "GTK_EXPAND|GTK_FILL")) '("guint" "xpadding" (default "0")) '("guint" "ypadding" (default "0")))) (define-method copy (of-object "GtkTextAttributes") (c-name "gtk_text_attributes_copy") (overrides "gtk_text_attributes_copy") (return-type "GtkTextAttributes*") (caller-owns-return #t)) (define-method create_mark (of-object "GtkTextBuffer") (c-name "gtk_text_buffer_create_mark") (overrides "gtk_text_buffer_create_mark") (return-type "GtkTextMark*") (parameters '("const-gchar*" "mark_name" (null-ok)) '("const-GtkTextIter*" "where") '("gboolean" "left_gravity" (default "FALSE")))) (define-method get_slice (of-object "GtkTextBuffer") (c-name "gtk_text_buffer_get_slice") (overrides "gtk_text_buffer_get_slice") (return-type "gchar*") (parameters '("const-GtkTextIter*" "start") '("const-GtkTextIter*" "end") '("gboolean" "include_hidden_chars" (default "TRUE")))) (define-method get_text (of-object "GtkTextBuffer") (c-name "gtk_text_buffer_get_text") (overrides "gtk_text_buffer_get_text") (return-type "gchar*") (parameters '("const-GtkTextIter*" "start") '("const-GtkTextIter*" "end") '("gboolean" "include_hidden_chars" (default "TRUE")))) (define-method get_widgets (of-object "GtkTextChildAnchor") (c-name "gtk_text_child_anchor_get_widgets") (overrides "gtk_text_child_anchor_get_widgets") (return-type "GList*-of-GtkWidget*")) (define-method backward_to_tag_toggle (of-object "GtkTextIter") (c-name "gtk_text_iter_backward_to_tag_toggle") (overrides "gtk_text_iter_backward_to_tag_toggle") (return-type "gboolean") (parameters '("GtkTextTag*" "tag" (null-ok)))) (define-method begins_tag (of-object "GtkTextIter") (c-name "gtk_text_iter_begins_tag") (overrides "gtk_text_iter_begins_tag") (return-type "gboolean") (parameters '("GtkTextTag*" "tag" (null-ok) (default "NULL")))) (define-method copy (of-object "GtkTextIter") (c-name "gtk_text_iter_copy") (overrides "gtk_text_iter_copy") (return-type "GtkTextIter*") (caller-owns-return #t)) (define-method ends_tag (of-object "GtkTextIter") (c-name "gtk_text_iter_ends_tag") (overrides "gtk_text_iter_ends_tag") (return-type "gboolean") (parameters '("GtkTextTag*" "tag" (null-ok) (default "NULL")))) (define-method forward_to_tag_toggle (of-object "GtkTextIter") (c-name "gtk_text_iter_forward_to_tag_toggle") (overrides "gtk_text_iter_forward_to_tag_toggle") (return-type "gboolean") (parameters '("GtkTextTag*" "tag" (null-ok)))) (define-method get_marks (of-object "GtkTextIter") (c-name "gtk_text_iter_get_marks") (overrides "gtk_text_iter_get_marks") (return-type "GSList*-of-GtkTextMark*")) (define-method get_tags (of-object "GtkTextIter") (c-name "gtk_text_iter_get_tags") (overrides "gtk_text_iter_get_tags") (return-type "GSList*-of-GtkTextTag*")) (define-method get_toggled_tags (of-object "GtkTextIter") (c-name "gtk_text_iter_get_toggled_tags") (overrides "gtk_text_iter_get_toggled_tags") (return-type "GSList*-of-GtkTextTag*") (parameters '("gboolean" "toggled_on"))) (define-method toggles_tag (of-object "GtkTextIter") (c-name "gtk_text_iter_toggles_tag") (overrides "gtk_text_iter_toggles_tag") (return-type "gboolean") (parameters '("GtkTextTag*" "tag" (null-ok) (default "NULL")))) (define-method scroll_to_iter (of-object "GtkTextView") (c-name "gtk_text_view_scroll_to_iter") (overrides "gtk_text_view_scroll_to_iter") (return-type "gboolean") (parameters '("GtkTextIter*" "iter") '("gdouble" "within_margin") '("gboolean" "use_align" (default "FALSE")) '("gdouble" "xalign" (default "0.5")) '("gdouble" "yalign" (default "0.5")))) (define-method scroll_to_mark (of-object "GtkTextView") (c-name "gtk_text_view_scroll_to_mark") (overrides "gtk_text_view_scroll_to_mark") (return-type "none") (parameters '("GtkTextMark*" "mark") '("gdouble" "within_margin") '("gboolean" "use_align" (default "FALSE")) '("gdouble" "xalign" (default "0.5")) '("gdouble" "yalign" (default "0.5")))) (define-method set_tip (of-object "GtkTooltips") (c-name "gtk_tooltips_set_tip") (overrides "gtk_tooltips_set_tip") (return-type "none") (parameters '("GtkWidget*" "widget") '("const-gchar*" "tip_text") '("const-gchar*" "tip_private" (null-ok) (default "NULL")))) (define-method copy (of-object "GtkTreeIter") (c-name "gtk_tree_iter_copy") (overrides "gtk_tree_iter_copy") (return-type "GtkTreeIter*") (caller-owns-return #t)) (define-method get_column_type (of-object "GtkTreeModel") (c-name "gtk_tree_model_get_column_type") (overrides "gtk_tree_model_get_column_type") (return-type "GType") (parameters '("gint" "index"))) (define-method get_path (of-object "GtkTreeModel") (c-name "gtk_tree_model_get_path") (overrides "gtk_tree_model_get_path") (return-type "GtkTreePath*") (caller-owns-return #t) (parameters '("GtkTreeIter*" "iter"))) (define-method iter_n_children (of-object "GtkTreeModel") (c-name "gtk_tree_model_iter_n_children") (overrides "gtk_tree_model_iter_n_children") (return-type "gint") (parameters '("GtkTreeIter*" "iter" (null-ok)))) (define-method convert_child_path_to_path (of-object "GtkTreeModelSort") (c-name "gtk_tree_model_sort_convert_child_path_to_path") (overrides "gtk_tree_model_sort_convert_child_path_to_path") (return-type "GtkTreePath*") (caller-owns-return #t) (parameters '("GtkTreePath*" "child_path"))) (define-method convert_path_to_child_path (of-object "GtkTreeModelSort") (c-name "gtk_tree_model_sort_convert_path_to_child_path") (overrides "gtk_tree_model_sort_convert_path_to_child_path") (return-type "GtkTreePath*") (caller-owns-return #t) (parameters '("GtkTreePath*" "sorted_path"))) (define-method append_index (of-object "GtkTreePath") (c-name "gtk_tree_path_append_index") (overrides "gtk_tree_path_append_index") (return-type "none") (parameters '("gint" "index"))) (define-method copy (of-object "GtkTreePath") (c-name "gtk_tree_path_copy") (overrides "gtk_tree_path_copy") (return-type "GtkTreePath*") (caller-owns-return #t)) (define-method prepend_index (of-object "GtkTreePath") (c-name "gtk_tree_path_prepend_index") (overrides "gtk_tree_path_prepend_index") (return-type "none") (parameters '("gint" "index"))) (define-method get_path (of-object "GtkTreeRowReference") (c-name "gtk_tree_row_reference_get_path") (overrides "gtk_tree_row_reference_get_path") (return-type "GtkTreePath*") (caller-owns-return #t)) (define-method tree_set_row_drag_data (of-object "GtkSelectionData") (c-name "gtk_tree_set_row_drag_data") (overrides "gtk_tree_set_row_drag_data") (return-type "gboolean") (parameters '("GtkTreeModel*" "tree_model") '("GtkTreePath*" "path"))) (define-method get_cell_renderers (of-object "GtkTreeViewColumn") (c-name "gtk_tree_view_column_get_cell_renderers") (overrides "gtk_tree_view_column_get_cell_renderers") (return-type "GList*-of-GtkCellRenderer*")) (define-method expand_to_path (of-object "GtkTreeView") (c-name "gtk_tree_view_expand_to_path") (overrides "gtk_tree_view_expand_to_path") (return-type "none") (parameters '("GtkTreePath*" "path"))) (define-method get_columns (of-object "GtkTreeView") (c-name "gtk_tree_view_get_columns") (overrides "gtk_tree_view_get_columns") (return-type "GList*-of-GtkTreeViewColumn*")) (define-method scroll_to_cell (of-object "GtkTreeView") (c-name "gtk_tree_view_scroll_to_cell") (overrides "gtk_tree_view_scroll_to_cell") (return-type "none") (parameters '("GtkTreePath*" "path") '("GtkTreeViewColumn*" "column" (null-ok) (default "NULL")) '("gboolean" "use_align" (default "FALSE")) '("gfloat" "row_align" (default "0.0")) '("gfloat" "col_align" (default "0.0")))) (define-method set_cursor (of-object "GtkTreeView") (c-name "gtk_tree_view_set_cursor") (overrides "gtk_tree_view_set_cursor") (return-type "none") (parameters '("GtkTreePath*" "path") '("GtkTreeViewColumn*" "focus_column" (null-ok) (default "NULL")) '("gboolean" "start_editing" (default "FALSE")))) (define-method set_model (of-object "GtkTreeView") (c-name "gtk_tree_view_set_model") (overrides "gtk_tree_view_set_model") (return-type "none") (parameters '("GtkTreeModel*" "model" (null-ok) (default "NULL")))) (define-method get_action_groups (of-object "GtkUIManager") (c-name "gtk_ui_manager_get_action_groups") (overrides "gtk_ui_manager_get_action_groups") (return-type "GList*-of-GtkActionGroup*")) (define-method get_toplevels (of-object "GtkUIManager") (c-name "gtk_ui_manager_get_toplevels") (overrides "gtk_ui_manager_get_toplevels") (return-type "GSList*-of-GtkWidget*") (parameters '("GtkUIManagerItemType" "types"))) (define-method set_hadjustment (of-object "GtkViewport") (c-name "gtk_viewport_set_hadjustment") (overrides "gtk_viewport_set_hadjustment") (return-type "none") (parameters '("GtkAdjustment*" "adjustment" (null-ok)))) (define-method set_vadjustment (of-object "GtkViewport") (c-name "gtk_viewport_set_vadjustment") (overrides "gtk_viewport_set_vadjustment") (return-type "none") (parameters '("GtkAdjustment*" "adjustment" (null-ok)))) (define-method add-events (of-object "GtkWidget") (c-name "gtk_widget_add_events") (overrides "gtk_widget_add_events") (return-type "void") (parameters '("GdkEventMask" "events"))) (define-method create_pango_context (of-object "GtkWidget") (c-name "gtk_widget_create_pango_context") (overrides "gtk_widget_create_pango_context") (caller-owns-return #t) (return-type "PangoContext*")) (define-method set-events (of-object "GtkWidget") (c-name "gtk_widget_set_events") (overrides "gtk_widget_set_events") (return-type "void") (parameters '("GdkEventMask" "events"))) (define-method list_accel_closures (of-object "GtkWidget") (c-name "gtk_widget_list_accel_closures") (overrides "gtk_widget_list_accel_closures") (return-type "GList*-of-GClosure*")) (define-method list_mnemonic_labels (of-object "GtkWidget") (c-name "gtk_widget_list_mnemonic_labels") (overrides "gtk_widget_list_mnemonic_labels") (return-type "GList*-of-GtkWidget*")) (define-method set_scroll_adjustments (of-object "GtkWidget") (c-name "gtk_widget_set_scroll_adjustments") (overrides "gtk_widget_set_scroll_adjustments") (return-type "gboolean") (parameters '("GtkAdjustment*" "hadjustment" (null-ok)) '("GtkAdjustment*" "vadjustment" (null-ok)))) (define-method set_style (of-object "GtkWidget") (c-name "gtk_widget_set_style") (overrides "gtk_widget_set_style") (return-type "none") (parameters '("GtkStyle*" "style" (null-ok)))) (define-method get_icon_list (of-object "GtkWindow") (c-name "gtk_window_get_icon_list") (overrides "gtk_window_get_icon_list") (return-type "GList*-of-GdkPixbuf*")) (define-method set_icon_list (of-object "GtkWindow") (c-name "gtk_window_set_icon_list") (overrides "gtk_window_set_icon_list") (return-type "none") (parameters '("GList*-of-GdkPixbuf*" "list"))) guile-gnome-platform-2.16.2/gtk/gnome/overrides/gtk.defs0000644000175000017500000012237311670374303023524 0ustar00wingowingo00000000000000;; -*- scheme -*- ;; guile-gnome ;; Copyright (C) 2003,2004,2010 Andy Wingo ;; This program is free software; you can redistribute it and/or ;; modify it under the terms of the GNU General Public License as ;; published by the Free Software Foundation; either version 2 of ;; the License, or (at your option) any later version. ;; ;; This program is distributed in the hope that it will be useful, ;; but WITHOUT ANY WARRANTY; without even the implied warranty of ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the ;; GNU General Public License for more details. ;; ;; You should have received a copy of the GNU General Public License ;; along with this program; if not, contact: ;; ;; Free Software Foundation Voice: +1-617-542-5942 ;; 59 Temple Place - Suite 330 Fax: +1-617-542-2652 ;; Boston, MA 02111-1307, USA gnu@gnu.org ;;; Commentary: ;; ;;Custom wrapper definitions. ;; ;;; Code: ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;; Types (define-boxed Border (c-name "GtkBorder") (gtype-id "GTK_TYPE_BORDER")) (define-object Clipboard (c-name "GtkClipboard") (gtype-id "GTK_TYPE_CLIPBOARD")) (define-object CellLayout (c-name "GtkCellLayout") (gtype-id "GTK_TYPE_CELL_LAYOUT")) (define-object AccelMap (c-name "GtkAccelMap") (gtype-id "GTK_TYPE_ACCEL_MAP")) (define-boxed TreeRowReference (c-name "GtkTreeRowReference") (gtype-id "GTK_TYPE_TREE_ROW_REFERENCE")) (define-object FileFilter (c-name "GtkFileFilter") (gtype-id "GTK_TYPE_FILE_FILTER")) (define-object PrintContext (c-name "GtkPrintContext") (gtype-id "GTK_TYPE_PRINT_CONTEXT")) (define-object PrintOperationPreview (c-name "GtkPrintOperationPreview") (gtype-id "GTK_TYPE_PRINT_OPERATION_PREVIEW")) (define-object PrintSettings (c-name "GtkPrintSettings") (gtype-id "GTK_TYPE_PRINT_SETTINGS")) (define-object PageSetup (c-name "GtkPageSetup") (gtype-id "GTK_TYPE_PAGE_SETUP")) (define-boxed PaperSize (c-name "GtkPaperSize") (gtype-id "GTK_TYPE_PAPER_SIZE")) (define-object IMContext (c-name "GtkIMContext") (gtype-id "GTK_TYPE_IM_CONTEXT")) (define-boxed RecentInfo (c-name "GtkRecentInfo") (gtype-id "GTK_TYPE_RECENT_INFO")) (define-object RecentChooser (c-name "GtkRecentChooser") (gtype-id "GTK_TYPE_RECENT_CHOOSER")) (define-object RecentFilter (c-name "GtkRecentFilter") (gtype-id "GTK_TYPE_RECENT_FILTER")) (define-object GenericTreeModel (in-module "GuileGtk") (parent "GtkTreeModel") (c-name "GuileGtkGenericTreeModel") (gtype-id "GUILE_GTK_TYPE_GENERIC_TREE_MODEL")) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;; Customs (include "gnome/overrides/gtk-customs.defs") ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;; GtkActionGroup (define-method add_actions (of-object "GtkActionGroup") (c-name "_wrap_gtk_action_group_add_actions") (overrides "gtk_action_group_add_actions") (return-type "none") (leave-guile-mode #f) (parameters '("SCM" "entries"))) (define-method add_toggle_actions (of-object "GtkActionGroup") (c-name "_wrap_gtk_action_group_add_toggle_actions") (overrides "gtk_action_group_add_toggle_actions") (return-type "none") (leave-guile-mode #f) (parameters '("SCM" "entries"))) (define-method add_radio_actions (of-object "GtkActionGroup") (c-name "_wrap_gtk_action_group_add_radio_actions") (overrides "gtk_action_group_add_radio_actions") (return-type "none") (leave-guile-mode #f) (parameters '("SCM" "entries") '("gint" "value") '("SCM" "on_change"))) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;; GtkCellView (define-method get_cell_renderers (of-object "GtkCellView") (c-name "gtk_cell_view_get_cell_renderers") (overrides "gtk_cell_view_get_cell_renderers") (return-type "GList*-of-GtkCellView*") ) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;; GtkClipboard (define-method set_text (of-object "GtkClipboard") (c-name "_wrap_gtk_clipboard_set_text") (overrides "gtk_clipboard_set_text") (parameters '("const-gchar*" "text"))) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;; GtkColorSelectionDialog (define-method get_colorsel (of-object "GtkColorSelectionDialog") (c-name "_wrap_gtk_color_selection_dialog_get_colorsel") (overrides "gtk-color-selection-dialog-get-colorsel") (return-type "GtkWidget*")) (define-method get_ok_button (of-object "GtkColorSelectionDialog") (c-name "_wrap_gtk_color_selection_dialog_get_ok_button") (overrides "gtk-color-selection-dialog-get-ok-button") (return-type "GtkWidget*")) (define-method get_cancel_button (of-object "GtkColorSelectionDialog") (c-name "_wrap_gtk_color_selection_dialog_get_cancel_button") (overrides "gtk-color-selection-dialog-get-cancel-button") (return-type "GtkWidget*")) (define-method get_help_button (of-object "GtkColorSelectionDialog") (c-name "_wrap_gtk_color_selection_dialog_get_help_button") (overrides "gtk-color-selection-dialog-get-help-button") (return-type "GtkWidget*")) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;; GtkDialog (define-method get_vbox (of-object "GtkDialog") (c-name "_wrap_gtk_dialog_get_vbox") (overrides "gtk_dialog_get_vbox") (return-type "GtkWidget*")) (define-method get_action_area (of-object "GtkDialog") (c-name "_wrap_gtk_dialog_get_action_area") (overrides "gtk_dialog_get_action_area") (return-type "GtkWidget*")) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;; GtkEditable (define-method insert_text (of-object "GtkEditable") (c-name "_wrap_gtk_editable_insert_text") (overrides "gtk_editable_insert_text") (return-type "gint") (parameters '("const-gchar*" "new_text") '("gint" "position"))) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;; GtkFileSelection ;; NB: As of Gtk+-2.4, this API is obsolete. (define-function gtk-file-selection:ok-button (c-name "_wrap_gtk_file_selection_get_ok_button") (overrides "gtk-file-selection:ok-button") ;; scm-name hack (return-type "GtkWidget*") (parameters '("GtkFileSelection*" "selection"))) (define-function gtk-file-selection:cancel-button (c-name "_wrap_gtk_file_selection_get_cancel_button") (overrides "gtk-file-selection:cancel-button") ;; scm-name hack (return-type "GtkWidget*") (parameters '("GtkFileSelection*" "selection"))) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;; GtkIconView (define-method get_selected_items (of-object "GtkIconView") (c-name "gtk_icon_view_get_selected_items") (overrides "gtk_icon_view_get_selected_items") (return-type "GList*-of-GtkTreePath*") ) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;; GtkIconSize (define-function lookup (c-name "gtk_icon_size_lookup") (overrides "gtk_icon_size_lookup") (return-type "gboolean") (parameters '("GtkIconSize" "size") '("gint*" "width") '("gint*" "height") ) ) (define-function get_name (c-name "gtk_icon_size_get_name") (overrides "gtk_icon_size_get_name") (return-type "const-gchar*") (parameters '("GtkIconSize" "size") ) ) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;; GtkListStore (define-function gtk_list_store_new (c-name "_wrap_gtk_list_store_new") (overrides "gtk_list_store_new") (is-constructor-of GtkListStore) (return-type "GtkListStore*") (leave-guile-mode #f) (parameters '("SCM" "types"))) (define-method set_value (of-object "GtkListStore") (c-name "_wrap_gtk_list_store_set_value") (overrides "gtk_list_store_set_value") (return-type "void") (leave-guile-mode #f) (parameters '("GtkTreeIter*" "iter") '("gint" "column") '("SCM" "value"))) (define-method remove (of-object "GtkListStore") (c-name "_wrap_gtk_list_store_remove") (overrides "gtk_list_store_remove") (return-type "GtkTreeIter*") (parameters '("GtkTreeIter*" "iter"))) (define-method insert (of-object "GtkListStore") (c-name "_wrap_gtk_list_store_insert") (overrides "gtk_list_store_insert") (return-type "GtkTreeIter*") (parameters '("gint" "position"))) (define-method insert_before (of-object "GtkListStore") (c-name "_wrap_gtk_list_store_insert_before") (overrides "gtk_list_store_insert_before") (return-type "GtkTreeIter*") (parameters '("GtkTreeIter*" "sibling" (null-ok)))) (define-method insert_after (of-object "GtkListStore") (c-name "_wrap_gtk_list_store_insert_after") (overrides "gtk_list_store_insert_after") (return-type "GtkTreeIter*") (parameters '("GtkTreeIter*" "sibling" (null-ok)))) (define-method prepend (of-object "GtkListStore") (c-name "_wrap_gtk_list_store_prepend") (overrides "gtk_list_store_prepend") (return-type "GtkTreeIter*")) (define-method append (of-object "GtkListStore") (c-name "_wrap_gtk_list_store_append") (overrides "gtk_list_store_append") (return-type "GtkTreeIter*")) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;; GtkMenu (define-method popup (of-object "GtkMenu") (c-name "_wrap_gtk_menu_popup") (overrides "gtk_menu_popup") (return-type "none") (leave-guile-mode #f) (parameters '("GtkWidget*" "parent_menu_shell" (null-ok)) '("GtkWidget*" "parent_menu_item" (null-ok)) '("SCM" "menu_position_func") '("guint" "button") '("guint32" "activate_time") ) ) (define-function gtk_menu_get_for_attach_widget (c-name "gtk_menu_get_for_attach_widget") (overrides "gtk_menu_get_for_attach_widget") (return-type "const-GList*-of-GtkMenu*") (parameters '("GtkWidget*" "widget") ) ) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;; GtkMessageDialog (ignore "gtk_message_dialog_new") (define-function gtk_message_dialog_new (c-name "_wrap_gtk_message_dialog_new") (overrides "%gtk-message-dialog-new") ;; hack (is-constructor-of GtkMessageDialog) (leave-guile-mode #f) (return-type "SCM") (parameters '("GtkWindow*" "parent" (null-ok) (default "NULL")) '("GtkDialogFlags" "flags" (default "0")) '("GtkMessageType" "type" (default "GTK_MESSAGE_INFO")) '("GtkButtonsType" "buttons" (default "GTK_BUTTONS_NONE")) '("const-gchar*" "text"))) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;; GtkRadio* ;; Note that GtkRadioGroup is #defined to GSList in the g-wrap spec. ;; This is done because the group should be treated opaquely, not as a ;; list. (define-function gtk_radio_button_new (c-name "gtk_radio_button_new") (overrides "gtk_radio_button_new") (is-constructor-of GtkRadioButton) (return-type "GtkWidget*") (parameters '("GtkRadioGroup*" "group" (null-ok) ))) (define-function radio_button_new_with_label (c-name "gtk_radio_button_new_with_label") (overrides "gtk_radio_button_new_with_label") (is-constructor-of GtkRadioButton) (return-type "GtkWidget*") (parameters '("GtkRadioGroup*" "group" (null-ok) ) '("const-gchar*" "label"))) (define-function radio_button_new_with_mnemonic (c-name "gtk_radio_button_new_with_mnemonic") (overrides "gtk_radio_button_new_with_mnemonic") (is-constructor-of GtkRadioButton) (return-type "GtkWidget*") (parameters '("GtkRadioGroup*" "group" (null-ok) ) '("const-gchar*" "label"))) (define-method get_group (of-object "GtkRadioButton") (c-name "gtk_radio_button_get_group") (overrides "gtk_radio_button_get_group") (return-type "GtkRadioGroup*")) (define-method set_group (of-object "GtkRadioButton") (c-name "gtk_radio_button_set_group") (overrides "gtk_radio_button_set_group") (return-type "none") (parameters '("GtkRadioGroup*" "group" (null-ok) ))) (define-function gtk_radio_menu_item_new (c-name "gtk_radio_menu_item_new") (overrides "gtk_radio_menu_item_new") (is-constructor-of GtkRadioMenuItem) (return-type "GtkWidget*") (parameters '("GtkRadioGroup*" "group" (null-ok) ))) (define-function gtk_radio_menu_item_new_with_label (c-name "gtk_radio_menu_item_new_with_label") (overrides "gtk_radio_menu_item_new_with_label") (is-constructor-of GtkRadioMenuItem) (return-type "GtkWidget*") (parameters '("GtkRadioGroup*" "group" (null-ok) ) '("const-gchar*" "label"))) (define-function gtk_radio_menu_item_new_with_mnemonic (c-name "gtk_radio_menu_item_new_with_mnemonic") (overrides "gtk_radio_menu_item_new_with_mnemonic") (is-constructor-of GtkRadioMenuItem) (return-type "GtkWidget*") (parameters '("GtkRadioGroup*" "group" (null-ok)) '("const-gchar*" "label"))) (define-method get_group (of-object "GtkRadioMenuItem") (c-name "gtk_radio_menu_item_get_group") (overrides "gtk_radio_menu_item_get_group") (return-type "GtkRadioGroup*")) (define-method set_group (of-object "GtkRadioMenuItem") (c-name "gtk_radio_menu_item_set_group") (overrides "gtk_radio_menu_item_set_group") (return-type "none") (parameters '("GtkRadioGroup*" "group" (null-ok) ))) (define-function gtk_radio_tool_button_new (c-name "gtk_radio_tool_button_new") (overrides "gtk_radio_tool_button_new") (is-constructor-of "GtkRadioToolButton") (return-type "GtkToolItem*") (parameters '("GtkRadioGroup*" "group" (default "NULL")))) (define-function gtk_radio_tool_button_new_from_stock (c-name "gtk_radio_tool_button_new_from_stock") (overrides "gtk_radio_tool_button_new_from_stock") (return-type "GtkToolItem*") (parameters '("GtkRadioGroup*" "group" (default "NULL")) '("const-gchar*" "stock_id"))) (define-method get_group (of-object "GtkRadioToolButton") (c-name "gtk_radio_tool_button_get_group") (overrides "gtk_radio_tool_button_get_group") (return-type "GtkRadioGroup*")) (define-method set_group (of-object "GtkRadioToolButton") (c-name "gtk_radio_tool_button_set_group") (overrides "gtk_radio_tool_button_set_group") (return-type "none") (parameters '("GtkRadioGroup*" "group"))) (define-method get_group (of-object "GtkRadioAction") (c-name "gtk_radio_action_get_group") (overrides "gtk_radio_action_get_group") (return-type "GtkRadioGroup*")) (define-method set_group (of-object "GtkRadioAction") (c-name "gtk_radio_action_set_group") (overrides "gtk_radio_action_set_group") (return-type "none") (parameters '("GtkRadioGroup*" "group"))) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;; GtkRecentChooser (define-method get_items (of-object "GtkRecentChooser") (c-name "gtk_recent_chooser_get_items") (overrides "gtk_recent_chooser_get_items") (return-type "GList*-of-GtkRecentInfo*") ) (define-method list_filters (of-object "GtkRecentChooser") (c-name "gtk_recent_chooser_list_filters") (overrides "gtk_recent_chooser_list_filters") (return-type "GSList*-of-GtkRecentFilter*") ) (define-method get_items (of-object "GtkRecentManager") (c-name "gtk_recent_manager_get_items") (overrides "gtk_recent_manager_get_items") (return-type "GList*-of-GtkRecentInfo*") ) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;; GtkSelectionData (define-method get_as_string (of-object "GtkSelectionData") (c-name "_gtk_selection_data_get_as_string") (overrides "gtk_selection_data_get_as_string") (return-type "gchar*")) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;; GtkStockItem (define-function gtk_stock_add (c-name "_wrap_gtk_stock_add") (overrides "gtk_stock_add") (return-type "none") (leave-guile-mode #f) (parameters '("SCM" "items"))) (define-function gtk_stock_lookup (c-name "_wrap_gtk_stock_lookup") (overrides "gtk_stock_lookup") (leave-guile-mode #f) (return-type "SCM") (parameters '("const-gchar*" "stock_id"))) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;; GtkStyle (define-method get-fg-gc (of-object "GtkStyle") (c-name "gtk_style_get_fg_gc") (return-type "GdkGC*") (parameters '("GtkStateType" "state"))) (define-method get-bg-gc (of-object "GtkStyle") (c-name "gtk_style_get_bg_gc") (return-type "GdkGC*") (parameters '("GtkStateType" "state"))) (define-method get-white-gc (of-object "GtkStyle") (c-name "gtk_style_get_white_gc") (return-type "GdkGC*")) (define-method get-black-gc (of-object "GtkStyle") (c-name "gtk_style_get_black_gc") (return-type "GdkGC*")) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;; GtkTextBuffer (define-method set_text (of-object "GtkTextBuffer") (c-name "_wrap_gtk_text_buffer_set_text") (overrides "gtk_text_buffer_set_text") (return-type "none") (leave-guile-mode #f) (parameters '("SCM" "stext"))) (define-method insert (of-object "GtkTextBuffer") (c-name "_wrap_gtk_text_buffer_insert") (overrides "gtk_text_buffer_insert") (return-type "none") (leave-guile-mode #f) (parameters '("GtkTextIter*" "iter") '("SCM" "stext"))) (define-method insert_at_cursor (of-object "GtkTextBuffer") (c-name "_wrap_gtk_text_buffer_insert_at_cursor") (overrides "gtk_text_buffer_insert_at_cursor") (return-type "none") (leave-guile-mode #f) (parameters '("SCM" "stext"))) (define-method insert_interactive (of-object "GtkTextBuffer") (c-name "_wrap_gtk_text_buffer_insert_interactive") (overrides "gtk_text_buffer_insert_interactive") (return-type "gboolean") (leave-guile-mode #f) (parameters '("GtkTextIter*" "iter") '("SCM" "stext") '("gboolean" "default_editable"))) (define-method insert_interactive_at_cursor (of-object "GtkTextBuffer") (c-name "_wrap_gtk_text_buffer_insert_interactive_at_cursor") (overrides "gtk_text_buffer_insert_interactive_at_cursor") (return-type "gboolean") (leave-guile-mode #f) (parameters '("SCM" "stext") '("gboolean" "default_editable"))) (define-method insert_with_tags (of-object "GtkTextBuffer") (c-name "_wrap_gtk_text_buffer_insert_with_tags") (overrides "gtk_text_buffer_insert_with_tags") (return-type "none") (leave-guile-mode #f) (parameters '("GtkTextIter*" "iter") '("SCM" "stext") '("GList*-of-GtkTextTag*" "tag_list"))) (define-method insert_with_tags_by_name (of-object "GtkTextBuffer") (c-name "_wrap_gtk_text_buffer_insert_with_tags_by_name") (overrides "gtk_text_buffer_insert_with_tags_by_name") (return-type "none") (leave-guile-mode #f) (parameters '("GtkTextIter*" "iter") '("SCM" "stext") '("GList*-of-const-gchar*" "tag_list"))) (define-method get_iter_at_line_offset (of-object "GtkTextBuffer") (c-name "_wrap_gtk_text_buffer_get_iter_at_line_offset") (overrides "gtk_text_buffer_get_iter_at_line_offset") (return-type "GtkTextIter*") (parameters '("gint" "line_number") '("gint" "char_offset"))) (define-method get_iter_at_line_index (of-object "GtkTextBuffer") (c-name "_wrap_gtk_text_buffer_get_iter_at_line_index") (overrides "gtk_text_buffer_get_iter_at_line_index") (return-type "GtkTextIter*") (parameters '("gint" "line_number") '("gint" "byte_index"))) (define-method get_iter_at_offset (of-object "GtkTextBuffer") (c-name "_wrap_gtk_text_buffer_get_iter_at_offset") (overrides "gtk_text_buffer_get_iter_at_offset") (return-type "GtkTextIter*") (parameters '("gint" "char_offset"))) (define-method get_iter_at_line (of-object "GtkTextBuffer") (c-name "_wrap_gtk_text_buffer_get_iter_at_line") (overrides "gtk_text_buffer_get_iter_at_line") (return-type "GtkTextIter*") (parameters '("gint" "line_number"))) (define-method get_start_iter (of-object "GtkTextBuffer") (c-name "_wrap_gtk_text_buffer_get_start_iter") (overrides "gtk_text_buffer_get_start_iter") (return-type "GtkTextIter*")) (define-method get_bounds (of-object "GtkTextBuffer") (c-name "_wrap_gtk_text_buffer_get_bounds") (overrides "gtk_text_buffer_get_bounds") (leave-guile-mode #f) (return-type "SCM")) (define-method get_selection_bounds (of-object "GtkTextBuffer") (c-name "_wrap_gtk_text_buffer_get_selection_bounds") (overrides "gtk_text_buffer_get_selection_bounds") (leave-guile-mode #f) (return-type "SCM")) (define-method get_end_iter (of-object "GtkTextBuffer") (c-name "_wrap_gtk_text_buffer_get_end_iter") (overrides "gtk_text_buffer_get_end_iter") (return-type "GtkTextIter*")) (define-method get_iter_at_mark (of-object "GtkTextBuffer") (c-name "_wrap_gtk_text_buffer_get_iter_at_mark") (overrides "gtk_text_buffer_get_iter_at_mark") (return-type "GtkTextIter*") (parameters '("GtkTextMark*" "mark"))) (define-method get_iter_at_child_anchor (of-object "GtkTextBuffer") (c-name "_wrap_gtk_text_buffer_get_iter_at_child_anchor") (overrides "gtk_text_buffer_get_iter_at_child_anchor") (return-type "GtkTextIter*") (parameters '("GtkTextChildAnchor*" "anchor"))) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;; GtkTreeModel (define-method get_iter (of-object "GtkTreeModel") (c-name "_wrap_gtk_tree_model_get_iter") (overrides "gtk_tree_model_get_iter") (return-type "GtkTreeIter*") (parameters '("GtkTreePath*" "path"))) (define-method get_iter_first (of-object "GtkTreeModel") (c-name "_wrap_gtk_tree_model_get_iter_first") (overrides "gtk_tree_model_get_iter_first") (return-type "GtkTreeIter*")) (define-method get_value (of-object "GtkTreeModel") (c-name "_wrap_gtk_tree_model_get_value") (overrides "gtk_tree_model_get_value") (leave-guile-mode #f) (return-type "SCM") (parameters '("GtkTreeIter*" "iter") '("gint" "column"))) (define-method iter_next (of-object "GtkTreeModel") (c-name "_wrap_gtk_tree_model_iter_next") (overrides "gtk_tree_model_iter_next") (return-type "GtkTreeIter*") (parameters '("GtkTreeIter*" "iter"))) (define-method iter_children (of-object "GtkTreeModel") (c-name "_wrap_gtk_tree_model_iter_children") (overrides "gtk_tree_model_iter_children") (return-type "GList*-of-GtkTreeIter*") (parameters '("GtkTreeIter*" "parent" (null-ok)))) (define-method iter_parent (of-object "GtkTreeModel") (c-name "_wrap_gtk_tree_model_iter_parent") (overrides "gtk_tree_model_iter_parent") (return-type "GtkTreeIter*") (parameters '("GtkTreeIter*" "child"))) (define-method iter_nth_child (of-object "GtkTreeModel") (c-name "_wrap_gtk_tree_model_iter_nth_child") (overrides "gtk_tree_model_iter_nth_child") (return-type "GtkTreeIter*") (parameters '("GtkTreeIter*" "parent" (null-ok)) '("gint" "n"))) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;; GtkTreeSelection (define-method get_selected (of-object "GtkTreeSelection") (c-name "_wrap_gtk_tree_selection_get_selected") (overrides "gtk_tree_selection_get_selected") (leave-guile-mode #f) (return-type "SCM")) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;; GtkTreeStore (define-function gtk_tree_store_new (c-name "_wrap_gtk_tree_store_new") (overrides "gtk_tree_store_new") (is-constructor-of GtkTreeStore) (return-type "GtkTreeStore*") (leave-guile-mode #f) (parameters '("SCM" "types"))) (define-method set_value (of-object "GtkTreeStore") (c-name "_wrap_gtk_tree_store_set_value") (overrides "gtk_tree_store_set_value") (return-type "void") (leave-guile-mode #f) (parameters '("GtkTreeIter*" "iter") '("gint" "column") '("SCM" "value"))) (define-method remove (of-object "GtkTreeStore") (c-name "_wrap_gtk_tree_store_remove") (overrides "gtk_tree_store_remove") (return-type "GtkTreeIter*") (parameters '("GtkTreeIter*" "iter"))) (define-method insert (of-object "GtkTreeStore") (c-name "_wrap_gtk_tree_store_insert") (overrides "gtk_tree_store_insert") (return-type "GtkTreeIter*") (parameters '("GtkTreeIter*" "parent") '("gint" "position"))) (define-method insert_before (of-object "GtkTreeStore") (c-name "_wrap_gtk_tree_store_insert_before") (overrides "gtk_tree_store_insert_before") (return-type "GtkTreeIter*") (parameters '("GtkTreeIter*" "parent" (null-ok)) '("GtkTreeIter*" "sibling" (null-ok)))) (define-method insert_after (of-object "GtkTreeStore") (c-name "_wrap_gtk_tree_store_insert_after") (overrides "gtk_tree_store_insert_after") (return-type "GtkTreeIter*") (parameters '("GtkTreeIter*" "parent" (null-ok)) '("GtkTreeIter*" "sibling" (null-ok)))) (define-method prepend (of-object "GtkTreeStore") (c-name "_wrap_gtk_tree_store_prepend") (overrides "gtk_tree_store_prepend") (return-type "GtkTreeIter*") (parameters '("GtkTreeIter*" "parent" (null-ok)))) (define-method append (of-object "GtkTreeStore") (c-name "_wrap_gtk_tree_store_append") (overrides "gtk_tree_store_append") (return-type "GtkTreeIter*") (parameters '("GtkTreeIter*" "parent" (null-ok)))) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;; GtkTreeView (define-method get_path_at_pos (of-object "GtkTreeView") (c-name "_wrap_gtk_tree_view_get_path_at_pos") (overrides "gtk_tree_view_get_path_at_pos") (return-type "SCM") (parameters '("gint" "x") '("gint" "y") ) ) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;; GtkTreeViewColumn (define-method set_cell_data_func (of-object "GtkTreeViewColumn") (c-name "_wrap_gtk_tree_view_column_set_cell_data_func") (overrides "gtk_tree_view_column_set_cell_data_func") (leave-guile-mode #f) (parameters '("GtkCellRenderer*" "cell") '("SCM" "proc"))) (define-method get_cell_renderers (of-object "GtkTreeViewColumn") (c-name "gtk_tree_view_column_get_cell_renderers") (return-type "GList*-of-GtkCellRenderer*") ) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;; GtkUIManager (define-method add_ui_from_string (of-object "GtkUIManager") (c-name "_wrap_gtk_ui_manager_add_ui_from_string") (overrides "gtk_ui_manager_add_ui_from_string") (return-type "guint") (parameters '("const-gchar*" "buffer") '("GError**" "error") ) ) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;; GtkWidget (define-method drag_dest_set (of-object "GtkWidget") (c-name "_wrap_gtk_drag_dest_set") (overrides "gtk_drag_dest_set") (parameters '("GtkDestDefaults" "flags") '("const-GList*-of-const-gchar*" "types") '("GdkDragAction" "actions"))) (define-method get-window (of-object "GtkWidget") (c-name "gtk_widget_get_window") (return-type "GdkWindow*")) (define-method get-allocation (of-object "GtkWidget") (c-name "_wrap_gtk_widget_get_allocation") (overrides "gtk_widget_get_allocation") (return-type "GdkRectangle*")) ;; same as GtkAllocation (define-method get_state (of-object "GtkWidget") (c-name "gtk_widget_get_state") (return-type "GtkStateType") ) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;; GtkPrintOperation (define-method set_default_page_setup (of-object "GtkPrintOperation") (c-name "gtk_print_operation_set_default_page_setup") (overrides "gtk_print_operation_set_default_page_setup") (return-type "none") (parameters '("GtkPageSetup*" "default_page_setup" (null-ok)))) (define-method set_print_settings (of-object "GtkPrintOperation") (c-name "gtk_print_operation_set_print_settings") (overrides "gtk_print_operation_set_print_settings") (return-type "none") (parameters '("GtkPrintSettings*" "print_settings" (null-ok)))) (define-method set_custom_tab_label (of-object "GtkPrintOperation") (c-name "gtk_print_operation_set_custom_tab_label") (overrides "gtk_print_operation_set_custom_tab_label") (return-type "none") (parameters '("const-gchar*" "label" (null-ok)))) (define-method run (of-object "GtkPrintOperation") (c-name "gtk_print_operation_run") (overrides "gtk_print_operation_run") (return-type "GtkPrintOperationResult") (parameters '("GtkPrintOperationAction" "action") '("GtkWindow*" "parent" (null-ok)) '("GError**" "error"))) (define-function gtk_print_run_page_setup_dialog (c-name "gtk_print_run_page_setup_dialog") (overrides "gtk_print_run_page_setup_dialog") (return-type "GtkPageSetup*") (parameters '("GtkWindow*" "parent" (null-ok)) '("GtkPageSetup*" "page_setup" (null-ok)) '("GtkPrintSettings*" "settings"))) (ignore-glob "*_get_type" "_*" "*_ref" "*_unref" "*_copy" "*_free" "*_newv" "*_valist" "*_setv" "*_foreach" "*_valist") ;; deprecated parts of gtk (ignore-glob "gtk_item_factory*" "gtk_clist*" "gtk_ctree*" "gtk_combo_new" ;; avoid ignoring gtk_combo_box "gtk_combo_set_*" "gtk_combo_disable_activate" "gtk_list_item_*" "gtk_old_editable*" "gtk_option_menu*" "gtk_pixmap*" "gtk_preview*" "gtk_progress_set_*" ;; avoid ignoring gtk_progress_bar "gtk_progress_get_*" "gtk_progress_configure" "gtk_text_new" ;; avoid ignoring textbuffer/view, etc "gtk_text_set_*" "gtk_text_get_*" "gtk_text_freeze" "gtk_text_thaw" "gtk_text_insert" "gtk_text_backward_delete" "gtk_text_forward_delete" "gtk_tips_query_*" "gtk_tree_new" ;; avoid ignoring treemodel/view, etc "gtk_tree_append" "gtk_tree_prepend" "gtk_tree_insert" "gtk_tree_remove_*" "gtk_tree_set_*" "gtk_tree_clear_items" "gtk_tree_select_*" "gtk_tree_unselect_*" "gtk_tree_child_position" "gtk_tree_item_*") (ignore-glob "gtk_file_system_*" "gtk_file_info_*" "gtk_file_loader_*" "gtk_file_folder_*" "gtk_file_path*" "gtk_icon_info_*" "gtk_button_box_*_size" "gtk_button_box_*_ipadding" "gtk_signal_*" "gtk_text_layout*" "gtk_text_child_anchor_register_child" "gtk_text_child_anchor_unregister_child" "gtk_text_child_anchor_queue_resize" "gtk_text_anchored_child_set_layout" "gtk_gc_*" "gtk_idle_*" "gtk_init*" "gtk_input_add*" ; there is also gtk_input_dialog "gtk_input_remove" "gtk_quit_*" "gtk_timeout_*" "gtk_target_list_*" "gtk_tree_path_*" "gtk_binding*" "gtk_object_*" "gtk_marshal_*") ;; should probably define a null-terminated string array type (ignore "gtk_about_dialog_get_artists" "gtk_about_dialog_get_authors" "gtk_about_dialog_get_comments" "gtk_about_dialog_get_documenters" "gtk_about_dialog_get_translator_credits" "gtk_about_dialog_set_artists" "gtk_about_dialog_set_authors" "gtk_about_dialog_set_comments" "gtk_about_dialog_set_documenters" "gtk_about_dialog_set_email_hook" "gtk_about_dialog_set_translator_credits" "gtk_about_dialog_set_url_hook" "gtk_accel_group_find" "gtk_accel_group_query" "gtk_accel_map_foreach_unfiltered" "gtk_accel_map_load_scanner" "gtk_accel_map_lookup_entry" "gtk_accelerator_parse" ; GdkModifierType* "gtk_action_group_add_actions_full" "gtk_action_group_add_radio_actions_full" "gtk_action_group_add_toggle_actions_full" "gtk_action_group_set_translate_func" "gtk_assistant_set_forward_page_func" "gtk_box_query_child_packing" "gtk_calendar_display_options" "gtk_cell_layout_set_cell_data_func" "gtk_cell_renderer_get_size" "gtk_check_menu_item_set_show_toggle" "gtk_clipboard_request_contents" "gtk_clipboard_request_image" "gtk_clipboard_request_rich_text" "gtk_clipboard_request_targets" "gtk_clipboard_request_text" "gtk_clipboard_set_can_store" "gtk_clipboard_set_with_data" "gtk_clipboard_set_with_owner" "gtk_clipboard_wait_for_rich_text" "gtk_clipboard_wait_for_targets" "gtk_color_selection_get_color" "gtk_color_selection_palette_from_string" "gtk_color_selection_set_change_palette_hook" "gtk_color_selection_set_change_palette_with_screen_hook" "gtk_color_selection_set_color" "gtk_color_selection_set_update_policy" "gtk_combo_box_get_row_separator_func" "gtk_combo_box_set_row_separator_func" "gtk_container_add_child_arg_type" "gtk_container_add_with_args" "gtk_container_addv" "gtk_container_child_arg_get_info" "gtk_container_child_args_collect" "gtk_container_class_find_child_property" "gtk_container_class_install_child_property" "gtk_container_class_list_child_properties" "gtk_container_forall" ;; scm equivalent unimplemented "gtk_container_foreach" ;; use (for-each f (get-children c)) "gtk_container_foreach_full" "gtk_container_get_focus_chain" "gtk_container_get_property" "gtk_container_query_child_args" "gtk_container_set_property" "gtk_curve_get_vector" "gtk_curve_set_curve_type" "gtk_curve_set_vector" "gtk_dialog_new" "gtk_dialog_set_alternative_button_order" "gtk_dialog_set_alternative_button_order_from_array" "gtk_drag_begin" "gtk_drag_dest_find_target" "gtk_drag_dest_get_target_list" "gtk_drag_dest_set_target_list" "gtk_drag_set_default_icon" "gtk_drag_set_source" "gtk_drag_source_get_target_list" "gtk_drag_source_set" "gtk_drag_source_set_target_list" "gtk_draw_arrow" "gtk_draw_box" "gtk_draw_box_gap" "gtk_draw_check" "gtk_draw_diamond" "gtk_draw_expander" "gtk_draw_extension" "gtk_draw_flat_box" "gtk_draw_focus" "gtk_draw_handle" "gtk_draw_hline" "gtk_draw_layout" "gtk_draw_option" "gtk_draw_polygon" "gtk_draw_resize_grip" "gtk_draw_shadow" "gtk_draw_shadow_gap" "gtk_draw_slider" "gtk_draw_string" "gtk_draw_tab" "gtk_draw_vline" "gtk_drawing_area_size" "gtk_entry_append_text" "gtk_entry_completion_set_match_func" "gtk_entry_new" "gtk_entry_new_with_max_length" "gtk_entry_prepend_text" "gtk_entry_select_region" "gtk_entry_set_editable" "gtk_entry_set_position" "gtk_exit" "gtk_file_filter_add_custom" "gtk_file_filter_filter" "gtk_file_folder_is_finished_loading" "gtk_file_selection_get_selections" "gtk_font_selection_dialog_get_font" "gtk_font_selection_get_font" "gtk_gc_get" ; GdkGCValues* "gtk_get_current_event" "gtk_get_current_event_state" ; GdkModifierType* "gtk_get_event_widget" "gtk_get_option_group" "gtk_hbutton_box_get_layout_default" "gtk_hbutton_box_get_spacing_default" "gtk_hbutton_box_set_layout_default" "gtk_hbutton_box_set_spacing_default" "gtk_icon_set_get_sizes" "gtk_icon_theme_get_icon_sizes" "gtk_icon_theme_get_search_path" ;; returns array "gtk_icon_theme_lookup_icon" "gtk_icon_theme_set_search_path" ;; takes array "gtk_icon_view_enable_model_drag_dest" "gtk_icon_view_enable_model_drag_source" "gtk_icon_view_get_cursor" "gtk_icon_view_get_dest_item_at_pos" "gtk_icon_view_get_drag_dest_item" "gtk_icon_view_get_item_at_pos" "gtk_icon_view_get_visible_range" "gtk_im_context_get_preedit_string" "gtk_image_get" "gtk_image_get_icon_name" "gtk_image_get_icon_set" "gtk_image_get_image" "gtk_image_get_pixmap" "gtk_image_get_stock" "gtk_image_set" "gtk_item_factories_path_delete" "gtk_key_snooper_install" "gtk_key_snooper_remove" "gtk_label_get" "gtk_label_parse_uline" "gtk_layout_freeze" "gtk_layout_thaw" "gtk_link_button_set_uri_hook" "gtk_list_append_items" "gtk_list_child_position" "gtk_list_clear_items" "gtk_list_end_drag_selection" "gtk_list_end_selection" "gtk_list_extend_selection" "gtk_list_get_type" "gtk_list_insert_items" "gtk_list_new" "gtk_list_prepend_items" "gtk_list_remove_items" "gtk_list_remove_items_no_unref" "gtk_list_scroll_horizontal" "gtk_list_scroll_vertical" "gtk_list_select_all" "gtk_list_select_child" "gtk_list_select_item" "gtk_list_set_selection_mode" "gtk_list_start_selection" "gtk_list_store_insert_with_values" "gtk_list_store_insert_with_valuesv" "gtk_list_store_newv" "gtk_list_store_set_column_types" "gtk_list_toggle_add_mode" "gtk_list_toggle_focus_row" "gtk_list_toggle_row" "gtk_list_undo_selection" "gtk_list_unselect_all" "gtk_list_unselect_child" "gtk_list_unselect_item" "gtk_menu_attach_to_widget" "gtk_message_dialog_format_secondary_markup" "gtk_message_dialog_format_secondary_text" "gtk_notebook_query_tab_label_packing" "gtk_notebook_set_homogeneous_tabs" "gtk_notebook_set_tab_border" "gtk_notebook_set_tab_hborder" "gtk_notebook_set_tab_vborder" "gtk_notebook_set_window_creation_hook" "gtk_paint_polygon" ; GdkPoint* "gtk_paint_string" "gtk_paned_compute_position" "gtk_parse_args" "gtk_preview_uninit" "gtk_print_run_page_setup_dialog_async" "gtk_print_settings_get_page_ranges" "gtk_print_settings_get_print_pages" "gtk_print_settings_set_page_ranges" "gtk_print_settings_set_print_pages" "gtk_progress_bar_new_with_adjustment" "gtk_progress_bar_set_activity_blocks" "gtk_progress_bar_set_activity_step" "gtk_progress_bar_set_bar_style" "gtk_progress_bar_set_discrete_blocks" "gtk_progress_bar_update" "gtk_rc_add_class_style" "gtk_rc_add_widget_class_style" "gtk_rc_add_widget_name_style" "gtk_rc_find_pixmap_in_path" "gtk_rc_get_default_files" "gtk_rc_parse_color" "gtk_rc_parse_priority" "gtk_rc_parse_state" "gtk_rc_scanner_new" "gtk_recent_chooser_get_uris" "gtk_recent_chooser_set_sort_func" "gtk_recent_filter_add_custom" "gtk_recent_filter_filter" "gtk_recent_info_get_applications" "gtk_recent_info_get_groups" "gtk_recent_manager_add_full" "gtk_scrolled_window_get_policy" "gtk_selection_add_targets" "gtk_selection_clear" "gtk_selection_data_get_targets" "gtk_selection_data_get_text" ; guchar* "gtk_selection_data_get_uris" "gtk_selection_data_set" ; guchar* "gtk_selection_data_set_uris" "gtk_selection_request" "gtk_set_locale" "gtk_settings_install_property_parser" "gtk_settings_set_property_value" "gtk_size_group_get_widgets" "gtk_socket_steal" "gtk_status_icon_get_geometry" "gtk_status_icon_position_menu" "gtk_stock_set_translate_func" "gtk_style_get_font" "gtk_style_set_font" "gtk_target_table_new_from_list" "gtk_targets_include_image" "gtk_targets_include_rich_text" "gtk_targets_include_text" "gtk_targets_include_uri" "gtk_text_buffer_create_tag" "gtk_text_buffer_deserialize" "gtk_text_buffer_get_copy_target_list" "gtk_text_buffer_get_deserialize_formats" "gtk_text_buffer_get_paste_target_list" "gtk_text_buffer_get_serialize_formats" "gtk_text_buffer_register_deserialize_format" "gtk_text_buffer_register_serialize_format" "gtk_text_buffer_serialize" "gtk_text_buffer_unregister_deserialize_format" "gtk_text_buffer_unregister_serialize_format" "gtk_text_iter_backward_find_char" "gtk_text_iter_forward_find_char" "gtk_text_view_get_iter_at_position" "gtk_text_view_new" "gtk_toolbar_append_element" "gtk_toolbar_append_item" "gtk_toolbar_append_space" "gtk_toolbar_append_widget" "gtk_toolbar_insert_element" "gtk_toolbar_insert_item" "gtk_toolbar_insert_space" "gtk_toolbar_insert_stock" "gtk_toolbar_insert_widget" "gtk_toolbar_prepend_element" "gtk_toolbar_prepend_item" "gtk_toolbar_prepend_space" "gtk_toolbar_prepend_widget" "gtk_toolbar_remove_space" "gtk_toolbar_set_icon_size" "gtk_toolbar_unset_icon_size" "gtk_tooltips_data_get" "gtk_tooltips_get_info_from_tip_window" "gtk_tooltips_set_delay" "gtk_tree_get_row_drag_data" "gtk_tree_model_filter_set_modify_func" "gtk_tree_model_filter_set_visible_func" "gtk_tree_model_get_iter_from_string" "gtk_tree_selection_get_selected_rows" "gtk_tree_selection_get_user_data" "gtk_tree_selection_set_select_function" "gtk_tree_sortable_get_sort_column_id" "gtk_tree_sortable_set_default_sort_func" "gtk_tree_sortable_set_sort_func" "gtk_tree_store_insert_with_values" "gtk_tree_store_insert_with_valuesv" "gtk_tree_store_newv" "gtk_tree_store_set_column_types" "gtk_tree_view_column_cell_get_size" "gtk_tree_view_enable_model_drag_dest" "gtk_tree_view_enable_model_drag_source" "gtk_tree_view_get_background_area" "gtk_tree_view_get_cell_area" "gtk_tree_view_get_cursor" "gtk_tree_view_get_dest_row_at_pos" "gtk_tree_view_get_drag_dest_row" "gtk_tree_view_get_row_separator_func" "gtk_tree_view_get_search_equal_func" "gtk_tree_view_get_search_position_func" "gtk_tree_view_get_visible_range" "gtk_tree_view_get_visible_rect" "gtk_tree_view_insert_column_with_data_func" "gtk_tree_view_map_expanded_rows" "gtk_tree_view_set_column_drag_function" "gtk_tree_view_set_destroy_count_func" "gtk_tree_view_set_row_separator_func" "gtk_tree_view_set_search_equal_func" "gtk_tree_view_set_search_position_func" "gtk_type_class" ; gpointer "gtk_type_enum_find_value" "gtk_type_enum_get_values" "gtk_type_flags_find_value" "gtk_type_flags_get_values" "gtk_type_init" "gtk_type_new" "gtk_type_unique" "gtk_vbutton_box_get_layout_default" "gtk_vbutton_box_get_spacing_default" "gtk_vbutton_box_set_layout_default" "gtk_vbutton_box_set_spacing_default" "gtk_widget_class_find_style_property" "gtk_widget_class_install_style_property" "gtk_widget_class_install_style_property_parser" "gtk_widget_class_list_style_properties" "gtk_widget_destroyed" "gtk_widget_draw" "gtk_widget_intersect" "gtk_widget_new" "gtk_widget_queue_clear" "gtk_widget_queue_clear_area" "gtk_widget_set_uposition" "gtk_widget_set_usize" "gtk_window_add_embedded_xid" "gtk_window_remove_embedded_xid" "gtk_window_set_geometry_hints" ; GdkGeometry* "gtk_window_set_policy" ) guile-gnome-platform-2.16.2/gtk/gnome/overrides/gdk-pixbuf.defs0000644000175000017500000000465011670374303024774 0ustar00wingowingo00000000000000;; -*- scheme -*- ;; guile-gnome ;; Copyright (C) 2004 Free Software Foundation, Inc. ;; This program is free software; you can redistribute it and/or ;; modify it under the terms of the GNU General Public License as ;; published by the Free Software Foundation; either version 2 of ;; the License, or (at your option) any later version. ;; ;; This program is distributed in the hope that it will be useful, ;; but WITHOUT ANY WARRANTY; without even the implied warranty of ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the ;; GNU General Public License for more details. ;; ;; You should have received a copy of the GNU General Public License ;; along with this program; if not, contact: ;; ;; Free Software Foundation Voice: +1-617-542-5942 ;; 59 Temple Place - Suite 330 Fax: +1-617-542-2652 ;; Boston, MA 02111-1307, USA gnu@gnu.org ;;; Commentary: ;; ;;Custom wrapper definitions. ;; ;;; Code: (define-object Pixbuf (in-module "Gdk") (parent "GObject") (c-name "GdkPixbuf") (gtype-id "GDK_TYPE_PIXBUF") ) (define-object PixbufSimpleAnim (c-name "GdkPixbufSimpleAnim") (gtype-id "GDK_TYPE_PIXBUF_SIMPLE_ANIM") ) (define-function gdk_pixbuf_get_formats (c-name "gdk_pixbuf_get_formats") (overrides "gdk_pixbuf_get_formats") (return-type "GSList*-of-GdkPixbufFormat*") ) (define-method gdk_pixbuf_save_to_port (of-object "GdkPixbuf") (c-name "gdk_pixbuf_save_to_port") (return-type "gboolean") (leave-guile-mode #f) (parameters '("SCM" "port") '("const-char*" "type") '("SCM" "options_alist") '("GError**" "error"))) (ignore-glob "*_get_type" "_*" "*_ref" "*_unref" "*_copy" "*_free" "*_newv" "*_valist" "*_setv") (ignore "gdk_pixbuf_get_pixels" "gdk_pixbuf_new_from_data" "gdk_pixbuf_new_from_inline" "gdk_pixbuf_new_from_xpm_data" "gdk_pixbuf_save_to_callbackv" "gdk_pixbuf_save_to_bufferv" "gdk_pixbuf_savev" "gdk_pixbuf_loader_write" "gdk_pixbuf_non_anim_new" "gdk_pixbuf_set_option" "gdk_pixbuf_animation_get_iter" ; GTimeVal* "gdk_pixbuf_animation_iter_advance" ; GTimeVal* ) guile-gnome-platform-2.16.2/gtk/gnome/overrides/gtk.defs-type-ignores0000644000175000017500000000230011670374303026132 0ustar00wingowingo00000000000000;; -*- scheme -*- (ignore-types "GtkCellType" "GtkCListDragPos" "GtkButtonAction" "GtkCTreePos" "GtkCTreeLineStyle" "GtkCTreeExpanderStyle" "GtkCTreeExpansionType" "GtkSideType" "GtkMatchType" "GtkPreviewType" "GtkSignalRunType" "GtkSubmenuDirection" "GtkSubmenuPlacement" "GtkFileInfoType" "GtkFileSystemError" "GtkArgFlags" "GtkPrivateFlags" "GtkToolbarChildType" "GtkTreeViewMode" "GtkItemFactory" "GtkTextLayout" "GtkPreview" "GtkOldEditable" "GtkText" "GtkPixmap" "GtkList" "GtkTreeItem" "GtkListItem" "GtkOptionMenu" "GtkCombo" "GtkCList" "GtkCTree" "GtkTree" "GtkFileFolder" "GtkFileInfo" "GtkFilePath" "GtkTypeInfo" "GtkEnumValue" "GtkFlagValue" "GtkProgress") guile-gnome-platform-2.16.2/gtk/gnome/gtk.scm0000644000175000017500000001020011670743731021351 0ustar00wingowingo00000000000000;; guile-gnome ;; Copyright (C) 2003,2004,2009 Andy Wingo ;; This program is free software; you can redistribute it and/or ;; modify it under the terms of the GNU General Public License as ;; published by the Free Software Foundation; either version 2 of ;; the License, or (at your option) any later version. ;; ;; This program is distributed in the hope that it will be useful, ;; but WITHOUT ANY WARRANTY; without even the implied warranty of ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the ;; GNU General Public License for more details. ;; ;; You should have received a copy of the GNU General Public License ;; along with this program; if not, contact: ;; ;; Free Software Foundation Voice: +1-617-542-5942 ;; 59 Temple Place - Suite 330 Fax: +1-617-542-2652 ;; Boston, MA 02111-1307, USA gnu@gnu.org ;;; Commentary: ;; ;;A GTK+ 2.x wrapper for Guile. ;; ;;; Code: (define-module (gnome gtk) #:use-module (oop goops) #:use-module (gnome gobject) #:use-module (gnome gobject generics) #:use-module (gnome gobject utils) #:use-module (gnome gw support modules) #:export ( on-get-flags on-get-n-columns on-get-column-type on-get-iter on-get-path on-get-value on-iter-next on-iter-children on-iter-has-child on-iter-n-children on-iter-nth-child on-iter-parent gtk-tree-or-list-store-set gtk-text-buffer-create-tag create-tag gtk-stock-id)) (define-macro (time-debug . forms) `(begin ,@forms)) (time-debug (use-modules (gnome gw gdk))) (time-debug (use-modules (gnome gw gtk))) (re-export-modules (gnome gw gdk) (gnome gw gtk)) ;; Support explicit object destruction. (define-method (initialize (instance ) initargs) (next-method) (connect instance 'destroy (lambda args (gtype-instance-destroy! instance)))) (define ) ;; FIXME: doc me! (define-generic-with-docs on-get-flags "") (define-generic-with-docs on-get-n-columns "") (define-generic-with-docs on-get-column-type "") (define-generic-with-docs on-get-iter "") (define-generic-with-docs on-get-path "") (define-generic-with-docs on-get-value "") (define-generic-with-docs on-iter-next "") (define-generic-with-docs on-iter-children "") (define-generic-with-docs on-iter-has-child "") (define-generic-with-docs on-iter-n-children "") (define-generic-with-docs on-iter-nth-child "") (define-generic-with-docs on-iter-parent "") ;; Support tree models written in guile. (define-method (on-get-flags (obj )) (make #:value 0)) ;; Miscellany. (define (gtk-tree-or-list-store-set store iter . args) (or (even? (length args)) (scm-error 'gruntime-error "Invalid arguments")) (let loop ((args args)) (if (eq? args '()) *unspecified* (begin (set-value store iter (car args) (cadr args)) (loop (cddr args)))))) (define-method (set (store ) (iter ) . args) (apply gtk-tree-or-list-store-set store iter args)) (define-method (set (store ) (iter ) . args) (apply gtk-tree-or-list-store-set store iter args)) (define (gtk-text-buffer-create-tag buffer tag-name . properties) (let ((tag (make #:name tag-name))) (if (not (even? (length properties))) (scm-error 'gruntime-error "Invalid property list: ~A" properties)) (add (get-tag-table buffer) tag) (let loop ((props properties)) (if (null? props) tag (begin (set tag (car props) (cadr props)) (loop (cddr props))))))) (define-method (create-tag (buffer ) tag-name . properties) (apply gtk-text-buffer-create-tag buffer tag-name properties)) (export create-tag) (define (gtk-stock-id nick) (string-append "gtk-" (symbol->string nick))) guile-gnome-platform-2.16.2/gtk/Makefile.am0000644000175000017500000000042111752516400021003 0ustar00wingowingo00000000000000include $(top_srcdir)/common.mk SUBDIRS = gnome examples doc tests EXTRA_DIST = ChangeLog.pre-2.16 AUTHORS README if HAVE_GTK all-local: $(pcifiles) $(pcufiles) pkgconfigdir = $(libdir)/pkgconfig pkgconfig_DATA = $(pcifiles) endif CLEANFILES = $(pcifiles) $(pcufiles) guile-gnome-platform-2.16.2/gtk/Makefile.in0000644000175000017500000006057011752520672021035 0ustar00wingowingo00000000000000# Makefile.in generated by automake 1.11.5 from Makefile.am. # @configure_input@ # Copyright (C) 1994, 1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, # 2003, 2004, 2005, 2006, 2007, 2008, 2009, 2010, 2011 Free Software # Foundation, Inc. # This Makefile.in is free software; the Free Software Foundation # gives unlimited permission to copy and/or distribute it, # with or without modifications, as long as this notice is preserved. # This program is distributed in the hope that it will be useful, # but WITHOUT ANY WARRANTY, to the extent permitted by law; without # even the implied warranty of MERCHANTABILITY or FITNESS FOR A # PARTICULAR PURPOSE. @SET_MAKE@ # guile-gnome # Copyright (C) 2003,2004,2009,2012 Free Software Foundation, Inc. # This program is free software; you can redistribute it and/or # modify it under the terms of the GNU General Public License as # published by the Free Software Foundation; either version 2 of # the License, or (at your option) any later version. # This program is distributed in the hope that it will be useful, # but WITHOUT ANY WARRANTY; without even the implied warranty of # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the # GNU General Public License for more details. # You should have received a copy of the GNU General Public License # along with this program; if not, contact: # Free Software Foundation Voice: +1-617-542-5942 # 59 Temple Place - Suite 330 Fax: +1-617-542-2652 # Boston, MA 02111-1307, USA gnu@gnu.org # # Makefile snippet # VPATH = @srcdir@ am__make_dryrun = \ { \ am__dry=no; \ case $$MAKEFLAGS in \ *\\[\ \ ]*) \ echo 'am--echo: ; @echo "AM" OK' | $(MAKE) -f - 2>/dev/null \ | grep '^AM OK$$' >/dev/null || am__dry=yes;; \ *) \ for am__flg in $$MAKEFLAGS; do \ case $$am__flg in \ *=*|--*) ;; \ *n*) am__dry=yes; break;; \ esac; \ done;; \ esac; \ test $$am__dry = yes; \ } pkgdatadir = $(datadir)/@PACKAGE@ pkgincludedir = $(includedir)/@PACKAGE@ pkglibdir = $(libdir)/@PACKAGE@ pkglibexecdir = $(libexecdir)/@PACKAGE@ am__cd = CDPATH="$${ZSH_VERSION+.}$(PATH_SEPARATOR)" && cd install_sh_DATA = $(install_sh) -c -m 644 install_sh_PROGRAM = $(install_sh) -c install_sh_SCRIPT = $(install_sh) -c INSTALL_HEADER = $(INSTALL_DATA) transform = $(program_transform_name) NORMAL_INSTALL = : PRE_INSTALL = : POST_INSTALL = : NORMAL_UNINSTALL = : PRE_UNINSTALL = : POST_UNINSTALL = : build_triplet = @build@ host_triplet = @host@ DIST_COMMON = README $(srcdir)/Makefile.am $(srcdir)/Makefile.in \ $(srcdir)/guile-gnome-gtk-uninstalled.pc.in \ $(srcdir)/guile-gnome-gtk.pc.in $(top_srcdir)/common.mk \ AUTHORS ChangeLog TODO subdir = gtk ACLOCAL_M4 = $(top_srcdir)/aclocal.m4 am__aclocal_m4_deps = $(top_srcdir)/configure.ac am__configure_deps = $(am__aclocal_m4_deps) $(CONFIGURE_DEPENDENCIES) \ $(ACLOCAL_M4) mkinstalldirs = $(install_sh) -d CONFIG_HEADER = $(top_builddir)/config.h CONFIG_CLEAN_FILES = guile-gnome-gtk.pc guile-gnome-gtk-uninstalled.pc CONFIG_CLEAN_VPATH_FILES = SOURCES = DIST_SOURCES = RECURSIVE_TARGETS = all-recursive check-recursive dvi-recursive \ html-recursive info-recursive install-data-recursive \ install-dvi-recursive install-exec-recursive \ install-html-recursive install-info-recursive \ install-pdf-recursive install-ps-recursive install-recursive \ installcheck-recursive installdirs-recursive pdf-recursive \ ps-recursive uninstall-recursive am__can_run_installinfo = \ case $$AM_UPDATE_INFO_DIR in \ n|no|NO) false;; \ *) (install-info --version) >/dev/null 2>&1;; \ esac am__vpath_adj_setup = srcdirstrip=`echo "$(srcdir)" | sed 's|.|.|g'`; am__vpath_adj = case $$p in \ $(srcdir)/*) f=`echo "$$p" | sed "s|^$$srcdirstrip/||"`;; \ *) f=$$p;; \ esac; am__strip_dir = f=`echo $$p | sed -e 's|^.*/||'`; am__install_max = 40 am__nobase_strip_setup = \ srcdirstrip=`echo "$(srcdir)" | sed 's/[].[^$$\\*|]/\\\\&/g'` am__nobase_strip = \ for p in $$list; do echo "$$p"; done | sed -e "s|$$srcdirstrip/||" am__nobase_list = $(am__nobase_strip_setup); \ for p in $$list; do echo "$$p $$p"; done | \ sed "s| $$srcdirstrip/| |;"' / .*\//!s/ .*/ ./; s,\( .*\)/[^/]*$$,\1,' | \ $(AWK) 'BEGIN { files["."] = "" } { files[$$2] = files[$$2] " " $$1; \ if (++n[$$2] == $(am__install_max)) \ { print $$2, files[$$2]; n[$$2] = 0; files[$$2] = "" } } \ END { for (dir in files) print dir, files[dir] }' am__base_list = \ sed '$$!N;$$!N;$$!N;$$!N;$$!N;$$!N;$$!N;s/\n/ /g' | \ sed '$$!N;$$!N;$$!N;$$!N;s/\n/ /g' am__uninstall_files_from_dir = { \ test -z "$$files" \ || { test ! -d "$$dir" && test ! -f "$$dir" && test ! -r "$$dir"; } \ || { echo " ( cd '$$dir' && rm -f" $$files ")"; \ $(am__cd) "$$dir" && rm -f $$files; }; \ } am__installdirs = "$(DESTDIR)$(pkgconfigdir)" DATA = $(pkgconfig_DATA) RECURSIVE_CLEAN_TARGETS = mostlyclean-recursive clean-recursive \ distclean-recursive maintainer-clean-recursive AM_RECURSIVE_TARGETS = $(RECURSIVE_TARGETS:-recursive=) \ $(RECURSIVE_CLEAN_TARGETS:-recursive=) tags TAGS ctags CTAGS \ distdir ETAGS = etags CTAGS = ctags DIST_SUBDIRS = $(SUBDIRS) DISTFILES = $(DIST_COMMON) $(DIST_SOURCES) $(TEXINFOS) $(EXTRA_DIST) am__relativize = \ dir0=`pwd`; \ sed_first='s,^\([^/]*\)/.*$$,\1,'; \ sed_rest='s,^[^/]*/*,,'; \ sed_last='s,^.*/\([^/]*\)$$,\1,'; \ sed_butlast='s,/*[^/]*$$,,'; \ while test -n "$$dir1"; do \ first=`echo "$$dir1" | sed -e "$$sed_first"`; \ if test "$$first" != "."; then \ if test "$$first" = ".."; then \ dir2=`echo "$$dir0" | sed -e "$$sed_last"`/"$$dir2"; \ dir0=`echo "$$dir0" | sed -e "$$sed_butlast"`; \ else \ first2=`echo "$$dir2" | sed -e "$$sed_first"`; \ if test "$$first2" = "$$first"; then \ dir2=`echo "$$dir2" | sed -e "$$sed_rest"`; \ else \ dir2="../$$dir2"; \ fi; \ dir0="$$dir0"/"$$first"; \ fi; \ fi; \ dir1=`echo "$$dir1" | sed -e "$$sed_rest"`; \ done; \ reldir="$$dir2" ACLOCAL = @ACLOCAL@ AG_PKG_CONFIG_PATH = @AG_PKG_CONFIG_PATH@ AMTAR = @AMTAR@ API_VERSION = @API_VERSION@ AR = @AR@ ATK_CFLAGS = @ATK_CFLAGS@ ATK_LIBS = @ATK_LIBS@ AUTOCONF = @AUTOCONF@ AUTOHEADER = @AUTOHEADER@ AUTOMAKE = @AUTOMAKE@ AWK = @AWK@ BONOBO_IDL_DIR = @BONOBO_IDL_DIR@ CANVAS_CFLAGS = @CANVAS_CFLAGS@ CANVAS_LIBS = @CANVAS_LIBS@ CC = @CC@ CCDEPMODE = @CCDEPMODE@ CFLAGS = @CFLAGS@ CORBA_CFLAGS = @CORBA_CFLAGS@ CORBA_LIBS = @CORBA_LIBS@ CPP = @CPP@ CPPFLAGS = @CPPFLAGS@ CYGPATH_W = @CYGPATH_W@ DEFS = @DEFS@ DEPDIR = @DEPDIR@ DLLTOOL = @DLLTOOL@ DSYMUTIL = @DSYMUTIL@ DUMPBIN = @DUMPBIN@ ECHO_C = @ECHO_C@ ECHO_N = @ECHO_N@ ECHO_T = @ECHO_T@ EGREP = @EGREP@ EXEEXT = @EXEEXT@ FGREP = @FGREP@ GCONF_CFLAGS = @GCONF_CFLAGS@ GCONF_LIBS = @GCONF_LIBS@ GDK_CFLAGS = @GDK_CFLAGS@ GDK_LIBS = @GDK_LIBS@ GDK_PIXBUF_CFLAGS = @GDK_PIXBUF_CFLAGS@ GDK_PIXBUF_LIBS = @GDK_PIXBUF_LIBS@ GLIB_CFLAGS = @GLIB_CFLAGS@ GLIB_LIBS = @GLIB_LIBS@ GNOMEUI_DEPRECATION_FLAGS = @GNOMEUI_DEPRECATION_FLAGS@ GNOME_VFS_CFLAGS = @GNOME_VFS_CFLAGS@ GNOME_VFS_DEPRECATED_CFLAGS = @GNOME_VFS_DEPRECATED_CFLAGS@ GNOME_VFS_LIBS = @GNOME_VFS_LIBS@ GOBJECT_CFLAGS = @GOBJECT_CFLAGS@ GOBJECT_LIBS = @GOBJECT_LIBS@ GREP = @GREP@ GTHREAD_CFLAGS = @GTHREAD_CFLAGS@ GTHREAD_LIBS = @GTHREAD_LIBS@ GTK_CFLAGS = @GTK_CFLAGS@ GTK_DEPRECATED_CFLAGS = @GTK_DEPRECATED_CFLAGS@ GTK_LIBS = @GTK_LIBS@ GUILE_CAIRO_CFLAGS = @GUILE_CAIRO_CFLAGS@ GUILE_CAIRO_LIBS = @GUILE_CAIRO_LIBS@ GUILE_CFLAGS = @GUILE_CFLAGS@ GUILE_EFFECTIVE_VERSION = @GUILE_EFFECTIVE_VERSION@ GUILE_GLIB_CFLAGS = @GUILE_GLIB_CFLAGS@ GUILE_GLIB_LIBS = @GUILE_GLIB_LIBS@ GUILE_LIBS = @GUILE_LIBS@ G_WRAP_CFLAGS = @G_WRAP_CFLAGS@ G_WRAP_LIBS = @G_WRAP_LIBS@ G_WRAP_LIB_DIR = @G_WRAP_LIB_DIR@ G_WRAP_MODULE_DIR = @G_WRAP_MODULE_DIR@ INSTALL = @INSTALL@ INSTALL_DATA = @INSTALL_DATA@ INSTALL_PROGRAM = @INSTALL_PROGRAM@ INSTALL_SCRIPT = @INSTALL_SCRIPT@ INSTALL_STRIP_PROGRAM = @INSTALL_STRIP_PROGRAM@ LD = @LD@ LDFLAGS = @LDFLAGS@ LIBGLADE_CFLAGS = @LIBGLADE_CFLAGS@ LIBGLADE_LIBS = @LIBGLADE_LIBS@ LIBGNOMEUI_CFLAGS = @LIBGNOMEUI_CFLAGS@ LIBGNOMEUI_LIBS = @LIBGNOMEUI_LIBS@ LIBGNOME_CFLAGS = @LIBGNOME_CFLAGS@ LIBGNOME_LIBS = @LIBGNOME_LIBS@ LIBOBJS = @LIBOBJS@ LIBS = @LIBS@ LIBTOOL = @LIBTOOL@ LIPO = @LIPO@ LN_S = @LN_S@ LTLIBOBJS = @LTLIBOBJS@ MAKEINFO = @MAKEINFO@ MANIFEST_TOOL = @MANIFEST_TOOL@ MKDIR_P = @MKDIR_P@ NM = @NM@ NMEDIT = @NMEDIT@ OBJDUMP = @OBJDUMP@ OBJEXT = @OBJEXT@ ORBIT_IDL = @ORBIT_IDL@ OTOOL = @OTOOL@ OTOOL64 = @OTOOL64@ PACKAGE = @PACKAGE@ PACKAGE_BUGREPORT = @PACKAGE_BUGREPORT@ PACKAGE_NAME = @PACKAGE_NAME@ PACKAGE_STRING = @PACKAGE_STRING@ PACKAGE_TARNAME = @PACKAGE_TARNAME@ PACKAGE_URL = @PACKAGE_URL@ PACKAGE_VERSION = @PACKAGE_VERSION@ PANGOCAIRO_CFLAGS = @PANGOCAIRO_CFLAGS@ PANGOCAIRO_LIBS = @PANGOCAIRO_LIBS@ PANGO_CFLAGS = @PANGO_CFLAGS@ PANGO_LIBS = @PANGO_LIBS@ PATH_SEPARATOR = @PATH_SEPARATOR@ PKG_CONFIG = @PKG_CONFIG@ PKG_CONFIG_LIBDIR = @PKG_CONFIG_LIBDIR@ PKG_CONFIG_PATH = @PKG_CONFIG_PATH@ RANLIB = @RANLIB@ SED = @SED@ SET_MAKE = @SET_MAKE@ SHELL = @SHELL@ STRIP = @STRIP@ VERSION = @VERSION@ WARN_CFLAGS = @WARN_CFLAGS@ abs_builddir = @abs_builddir@ abs_srcdir = @abs_srcdir@ abs_top_builddir = @abs_top_builddir@ abs_top_srcdir = @abs_top_srcdir@ ac_ct_AR = @ac_ct_AR@ ac_ct_CC = @ac_ct_CC@ ac_ct_DUMPBIN = @ac_ct_DUMPBIN@ am__include = @am__include@ am__leading_dot = @am__leading_dot@ am__quote = @am__quote@ am__tar = @am__tar@ am__untar = @am__untar@ bindir = @bindir@ build = @build@ build_alias = @build_alias@ build_cpu = @build_cpu@ build_os = @build_os@ build_vendor = @build_vendor@ builddir = @builddir@ datadir = @datadir@ datarootdir = @datarootdir@ docdir = @docdir@ dvidir = @dvidir@ exec_prefix = @exec_prefix@ host = @host@ host_alias = @host_alias@ host_cpu = @host_cpu@ host_os = @host_os@ host_vendor = @host_vendor@ htmldir = @htmldir@ includedir = @includedir@ infodir = @infodir@ install_sh = @install_sh@ libdir = @libdir@ libexecdir = @libexecdir@ localedir = @localedir@ localstatedir = @localstatedir@ mandir = @mandir@ mkdir_p = @mkdir_p@ oldincludedir = @oldincludedir@ pdfdir = @pdfdir@ prefix = @prefix@ program_transform_name = @program_transform_name@ psdir = @psdir@ sbindir = @sbindir@ sharedstatedir = @sharedstatedir@ srcdir = @srcdir@ sysconfdir = @sysconfdir@ target_alias = @target_alias@ top_build_prefix = @top_build_prefix@ top_builddir = @top_builddir@ top_srcdir = @top_srcdir@ guilegnomedir = $(datadir)/guile-gnome-@API_VERSION@ guilemoduledir = $(guilegnomedir)/gnome guilegwmoduledir = $(guilegnomedir)/gnome/gw guilegnomelibdir = $(libdir)/guile-gnome-@API_VERSION@ AM_CFLAGS = -I. -I$(srcdir) $(WARN_CFLAGS) $(DEBUG_CFLAGS) # For overriding from the command line (e.g. --debug) GUILE_FLAGS = SUFFIXES = .x .doc GUILE_SNARF_CFLAGS = $(DEFS) $(AM_CFLAGS) $(GUILE_CFLAGS) $(G_WRAP_CFLAGS) PACKAGES = atk cairo corba defs gconf glib gnome-vfs gtk libglade libgnome libgnomecanvas libgnomeui pango SOURCE_GUILE_PATH = $(shell echo $(addprefix $(top_srcdir)/,$(PACKAGES)) | sed -e 's/ /:/g'):$(srcdir) BUILD_GUILE_PATH = $(if $(filter-out $(top_srcdir),$(top_builddir)),$(shell echo -n $(addprefix $(top_builddir)/,$(PACKAGES)): | sed -e 's/ /:/g'),) GUILE_LOAD_PATH := $(BUILD_GUILE_PATH)$(SOURCE_GUILE_PATH):${G_WRAP_MODULE_DIR}:${GUILE_LOAD_PATH} # Real gnu make foo packages = $(filter-out %-uninstalled,$(patsubst %.pc.in,%,$(notdir $(wildcard $(srcdir)/*.pc.in)))) pcifiles = $(patsubst %,%-@API_VERSION@.pc,$(packages)) pcufiles = $(patsubst %,%-@API_VERSION@-uninstalled.pc,$(packages)) SUBDIRS = gnome examples doc tests EXTRA_DIST = ChangeLog.pre-2.16 AUTHORS README @HAVE_GTK_TRUE@pkgconfigdir = $(libdir)/pkgconfig @HAVE_GTK_TRUE@pkgconfig_DATA = $(pcifiles) CLEANFILES = $(pcifiles) $(pcufiles) all: all-recursive .SUFFIXES: .SUFFIXES: .x .doc .c $(srcdir)/Makefile.in: $(srcdir)/Makefile.am $(top_srcdir)/common.mk $(am__configure_deps) @for dep in $?; do \ case '$(am__configure_deps)' in \ *$$dep*) \ ( cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh ) \ && { if test -f $@; then exit 0; else break; fi; }; \ exit 1;; \ esac; \ done; \ echo ' cd $(top_srcdir) && $(AUTOMAKE) --gnu gtk/Makefile'; \ $(am__cd) $(top_srcdir) && \ $(AUTOMAKE) --gnu gtk/Makefile .PRECIOUS: Makefile Makefile: $(srcdir)/Makefile.in $(top_builddir)/config.status @case '$?' in \ *config.status*) \ cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh;; \ *) \ echo ' cd $(top_builddir) && $(SHELL) ./config.status $(subdir)/$@ $(am__depfiles_maybe)'; \ cd $(top_builddir) && $(SHELL) ./config.status $(subdir)/$@ $(am__depfiles_maybe);; \ esac; $(top_srcdir)/common.mk: $(top_builddir)/config.status: $(top_srcdir)/configure $(CONFIG_STATUS_DEPENDENCIES) cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh $(top_srcdir)/configure: $(am__configure_deps) cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh $(ACLOCAL_M4): $(am__aclocal_m4_deps) cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh $(am__aclocal_m4_deps): guile-gnome-gtk.pc: $(top_builddir)/config.status $(srcdir)/guile-gnome-gtk.pc.in cd $(top_builddir) && $(SHELL) ./config.status $(subdir)/$@ guile-gnome-gtk-uninstalled.pc: $(top_builddir)/config.status $(srcdir)/guile-gnome-gtk-uninstalled.pc.in cd $(top_builddir) && $(SHELL) ./config.status $(subdir)/$@ mostlyclean-libtool: -rm -f *.lo clean-libtool: -rm -rf .libs _libs install-pkgconfigDATA: $(pkgconfig_DATA) @$(NORMAL_INSTALL) @list='$(pkgconfig_DATA)'; test -n "$(pkgconfigdir)" || list=; \ if test -n "$$list"; then \ echo " $(MKDIR_P) '$(DESTDIR)$(pkgconfigdir)'"; \ $(MKDIR_P) "$(DESTDIR)$(pkgconfigdir)" || exit 1; \ fi; \ for p in $$list; do \ if test -f "$$p"; then d=; else d="$(srcdir)/"; fi; \ echo "$$d$$p"; \ done | $(am__base_list) | \ while read files; do \ echo " $(INSTALL_DATA) $$files '$(DESTDIR)$(pkgconfigdir)'"; \ $(INSTALL_DATA) $$files "$(DESTDIR)$(pkgconfigdir)" || exit $$?; \ done uninstall-pkgconfigDATA: @$(NORMAL_UNINSTALL) @list='$(pkgconfig_DATA)'; test -n "$(pkgconfigdir)" || list=; \ files=`for p in $$list; do echo $$p; done | sed -e 's|^.*/||'`; \ dir='$(DESTDIR)$(pkgconfigdir)'; $(am__uninstall_files_from_dir) # This directory's subdirectories are mostly independent; you can cd # into them and run `make' without going through this Makefile. # To change the values of `make' variables: instead of editing Makefiles, # (1) if the variable is set in `config.status', edit `config.status' # (which will cause the Makefiles to be regenerated when you run `make'); # (2) otherwise, pass the desired values on the `make' command line. $(RECURSIVE_TARGETS): @fail= failcom='exit 1'; \ for f in x $$MAKEFLAGS; do \ case $$f in \ *=* | --[!k]*);; \ *k*) failcom='fail=yes';; \ esac; \ done; \ dot_seen=no; \ target=`echo $@ | sed s/-recursive//`; \ list='$(SUBDIRS)'; for subdir in $$list; do \ echo "Making $$target in $$subdir"; \ if test "$$subdir" = "."; then \ dot_seen=yes; \ local_target="$$target-am"; \ else \ local_target="$$target"; \ fi; \ ($(am__cd) $$subdir && $(MAKE) $(AM_MAKEFLAGS) $$local_target) \ || eval $$failcom; \ done; \ if test "$$dot_seen" = "no"; then \ $(MAKE) $(AM_MAKEFLAGS) "$$target-am" || exit 1; \ fi; test -z "$$fail" $(RECURSIVE_CLEAN_TARGETS): @fail= failcom='exit 1'; \ for f in x $$MAKEFLAGS; do \ case $$f in \ *=* | --[!k]*);; \ *k*) failcom='fail=yes';; \ esac; \ done; \ dot_seen=no; \ case "$@" in \ distclean-* | maintainer-clean-*) list='$(DIST_SUBDIRS)' ;; \ *) list='$(SUBDIRS)' ;; \ esac; \ rev=''; for subdir in $$list; do \ if test "$$subdir" = "."; then :; else \ rev="$$subdir $$rev"; \ fi; \ done; \ rev="$$rev ."; \ target=`echo $@ | sed s/-recursive//`; \ for subdir in $$rev; do \ echo "Making $$target in $$subdir"; \ if test "$$subdir" = "."; then \ local_target="$$target-am"; \ else \ local_target="$$target"; \ fi; \ ($(am__cd) $$subdir && $(MAKE) $(AM_MAKEFLAGS) $$local_target) \ || eval $$failcom; \ done && test -z "$$fail" tags-recursive: list='$(SUBDIRS)'; for subdir in $$list; do \ test "$$subdir" = . || ($(am__cd) $$subdir && $(MAKE) $(AM_MAKEFLAGS) tags); \ done ctags-recursive: list='$(SUBDIRS)'; for subdir in $$list; do \ test "$$subdir" = . || ($(am__cd) $$subdir && $(MAKE) $(AM_MAKEFLAGS) ctags); \ done ID: $(HEADERS) $(SOURCES) $(LISP) $(TAGS_FILES) list='$(SOURCES) $(HEADERS) $(LISP) $(TAGS_FILES)'; \ unique=`for i in $$list; do \ if test -f "$$i"; then echo $$i; else echo $(srcdir)/$$i; fi; \ done | \ $(AWK) '{ files[$$0] = 1; nonempty = 1; } \ END { if (nonempty) { for (i in files) print i; }; }'`; \ mkid -fID $$unique tags: TAGS TAGS: tags-recursive $(HEADERS) $(SOURCES) $(TAGS_DEPENDENCIES) \ $(TAGS_FILES) $(LISP) set x; \ here=`pwd`; \ if ($(ETAGS) --etags-include --version) >/dev/null 2>&1; then \ include_option=--etags-include; \ empty_fix=.; \ else \ include_option=--include; \ empty_fix=; \ fi; \ list='$(SUBDIRS)'; for subdir in $$list; do \ if test "$$subdir" = .; then :; else \ test ! -f $$subdir/TAGS || \ set "$$@" "$$include_option=$$here/$$subdir/TAGS"; \ fi; \ done; \ list='$(SOURCES) $(HEADERS) $(LISP) $(TAGS_FILES)'; \ unique=`for i in $$list; do \ if test -f "$$i"; then echo $$i; else echo $(srcdir)/$$i; fi; \ done | \ $(AWK) '{ files[$$0] = 1; nonempty = 1; } \ END { if (nonempty) { for (i in files) print i; }; }'`; \ shift; \ if test -z "$(ETAGS_ARGS)$$*$$unique"; then :; else \ test -n "$$unique" || unique=$$empty_fix; \ if test $$# -gt 0; then \ $(ETAGS) $(ETAGSFLAGS) $(AM_ETAGSFLAGS) $(ETAGS_ARGS) \ "$$@" $$unique; \ else \ $(ETAGS) $(ETAGSFLAGS) $(AM_ETAGSFLAGS) $(ETAGS_ARGS) \ $$unique; \ fi; \ fi ctags: CTAGS CTAGS: ctags-recursive $(HEADERS) $(SOURCES) $(TAGS_DEPENDENCIES) \ $(TAGS_FILES) $(LISP) list='$(SOURCES) $(HEADERS) $(LISP) $(TAGS_FILES)'; \ unique=`for i in $$list; do \ if test -f "$$i"; then echo $$i; else echo $(srcdir)/$$i; fi; \ done | \ $(AWK) '{ files[$$0] = 1; nonempty = 1; } \ END { if (nonempty) { for (i in files) print i; }; }'`; \ test -z "$(CTAGS_ARGS)$$unique" \ || $(CTAGS) $(CTAGSFLAGS) $(AM_CTAGSFLAGS) $(CTAGS_ARGS) \ $$unique GTAGS: here=`$(am__cd) $(top_builddir) && pwd` \ && $(am__cd) $(top_srcdir) \ && gtags -i $(GTAGS_ARGS) "$$here" distclean-tags: -rm -f TAGS ID GTAGS GRTAGS GSYMS GPATH tags distdir: $(DISTFILES) @srcdirstrip=`echo "$(srcdir)" | sed 's/[].[^$$\\*]/\\\\&/g'`; \ topsrcdirstrip=`echo "$(top_srcdir)" | sed 's/[].[^$$\\*]/\\\\&/g'`; \ list='$(DISTFILES)'; \ dist_files=`for file in $$list; do echo $$file; done | \ sed -e "s|^$$srcdirstrip/||;t" \ -e "s|^$$topsrcdirstrip/|$(top_builddir)/|;t"`; \ case $$dist_files in \ */*) $(MKDIR_P) `echo "$$dist_files" | \ sed '/\//!d;s|^|$(distdir)/|;s,/[^/]*$$,,' | \ sort -u` ;; \ esac; \ for file in $$dist_files; do \ if test -f $$file || test -d $$file; then d=.; else d=$(srcdir); fi; \ if test -d $$d/$$file; then \ dir=`echo "/$$file" | sed -e 's,/[^/]*$$,,'`; \ if test -d "$(distdir)/$$file"; then \ find "$(distdir)/$$file" -type d ! -perm -700 -exec chmod u+rwx {} \;; \ fi; \ if test -d $(srcdir)/$$file && test $$d != $(srcdir); then \ cp -fpR $(srcdir)/$$file "$(distdir)$$dir" || exit 1; \ find "$(distdir)/$$file" -type d ! -perm -700 -exec chmod u+rwx {} \;; \ fi; \ cp -fpR $$d/$$file "$(distdir)$$dir" || exit 1; \ else \ test -f "$(distdir)/$$file" \ || cp -p $$d/$$file "$(distdir)/$$file" \ || exit 1; \ fi; \ done @list='$(DIST_SUBDIRS)'; for subdir in $$list; do \ if test "$$subdir" = .; then :; else \ $(am__make_dryrun) \ || test -d "$(distdir)/$$subdir" \ || $(MKDIR_P) "$(distdir)/$$subdir" \ || exit 1; \ dir1=$$subdir; dir2="$(distdir)/$$subdir"; \ $(am__relativize); \ new_distdir=$$reldir; \ dir1=$$subdir; dir2="$(top_distdir)"; \ $(am__relativize); \ new_top_distdir=$$reldir; \ echo " (cd $$subdir && $(MAKE) $(AM_MAKEFLAGS) top_distdir="$$new_top_distdir" distdir="$$new_distdir" \\"; \ echo " am__remove_distdir=: am__skip_length_check=: am__skip_mode_fix=: distdir)"; \ ($(am__cd) $$subdir && \ $(MAKE) $(AM_MAKEFLAGS) \ top_distdir="$$new_top_distdir" \ distdir="$$new_distdir" \ am__remove_distdir=: \ am__skip_length_check=: \ am__skip_mode_fix=: \ distdir) \ || exit 1; \ fi; \ done check-am: all-am check: check-recursive @HAVE_GTK_FALSE@all-local: all-am: Makefile $(DATA) all-local installdirs: installdirs-recursive installdirs-am: for dir in "$(DESTDIR)$(pkgconfigdir)"; do \ test -z "$$dir" || $(MKDIR_P) "$$dir"; \ done install: install-recursive install-exec: install-exec-recursive install-data: install-data-recursive uninstall: uninstall-recursive install-am: all-am @$(MAKE) $(AM_MAKEFLAGS) install-exec-am install-data-am installcheck: installcheck-recursive install-strip: if test -z '$(STRIP)'; then \ $(MAKE) $(AM_MAKEFLAGS) INSTALL_PROGRAM="$(INSTALL_STRIP_PROGRAM)" \ install_sh_PROGRAM="$(INSTALL_STRIP_PROGRAM)" INSTALL_STRIP_FLAG=-s \ install; \ else \ $(MAKE) $(AM_MAKEFLAGS) INSTALL_PROGRAM="$(INSTALL_STRIP_PROGRAM)" \ install_sh_PROGRAM="$(INSTALL_STRIP_PROGRAM)" INSTALL_STRIP_FLAG=-s \ "INSTALL_PROGRAM_ENV=STRIPPROG='$(STRIP)'" install; \ fi mostlyclean-generic: clean-generic: -test -z "$(CLEANFILES)" || rm -f $(CLEANFILES) distclean-generic: -test -z "$(CONFIG_CLEAN_FILES)" || rm -f $(CONFIG_CLEAN_FILES) -test . = "$(srcdir)" || test -z "$(CONFIG_CLEAN_VPATH_FILES)" || rm -f $(CONFIG_CLEAN_VPATH_FILES) maintainer-clean-generic: @echo "This command is intended for maintainers to use" @echo "it deletes files that may require special tools to rebuild." clean: clean-recursive clean-am: clean-generic clean-libtool mostlyclean-am distclean: distclean-recursive -rm -f Makefile distclean-am: clean-am distclean-generic distclean-tags dvi: dvi-recursive dvi-am: html: html-recursive html-am: info: info-recursive info-am: install-data-am: install-pkgconfigDATA install-dvi: install-dvi-recursive install-dvi-am: install-exec-am: install-html: install-html-recursive install-html-am: install-info: install-info-recursive install-info-am: install-man: install-pdf: install-pdf-recursive install-pdf-am: install-ps: install-ps-recursive install-ps-am: installcheck-am: maintainer-clean: maintainer-clean-recursive -rm -f Makefile maintainer-clean-am: distclean-am maintainer-clean-generic mostlyclean: mostlyclean-recursive mostlyclean-am: mostlyclean-generic mostlyclean-libtool pdf: pdf-recursive pdf-am: ps: ps-recursive ps-am: uninstall-am: uninstall-pkgconfigDATA .MAKE: $(RECURSIVE_CLEAN_TARGETS) $(RECURSIVE_TARGETS) ctags-recursive \ install-am install-strip tags-recursive .PHONY: $(RECURSIVE_CLEAN_TARGETS) $(RECURSIVE_TARGETS) CTAGS GTAGS \ all all-am all-local check check-am clean clean-generic \ clean-libtool ctags ctags-recursive distclean \ distclean-generic distclean-libtool distclean-tags distdir dvi \ dvi-am html html-am info info-am install install-am \ install-data install-data-am install-dvi install-dvi-am \ install-exec install-exec-am install-html install-html-am \ install-info install-info-am install-man install-pdf \ install-pdf-am install-pkgconfigDATA install-ps install-ps-am \ install-strip installcheck installcheck-am installdirs \ installdirs-am maintainer-clean maintainer-clean-generic \ mostlyclean mostlyclean-generic mostlyclean-libtool pdf pdf-am \ ps ps-am tags tags-recursive uninstall uninstall-am \ uninstall-pkgconfigDATA export GUILE_LOAD_PATH .c.x: guile-snarf $(GUILE_SNARF_CFLAGS) $< > $@ \ || { rm $@; false; } .c.doc: $(CPP) -DSCM_MAGIC_SNARF_DOCS $(GUILE_SNARF_CFLAGS) $< \ | grep -E '(\^\^ {|\^\^ })' > $@ || { rm $@; false; } %.scm guile-gnome-gw-%.c: %-spec.scm guile $(GUILE_FLAGS) -c \ "(debug-set! stack 400000) \ (use-modules (gnome-@API_VERSION@)) \ (use-modules (g-wrap)) \ (use-modules (gnome gw $*-spec)) \ (generate-wrapset 'guile 'gnome-$* \"guile-gnome-gw-$*\")" mv guile-gnome-gw-$*.scm $*.scm %-@API_VERSION@.pc: %.pc cp $< $@ %-@API_VERSION@-uninstalled.pc: %-uninstalled.pc cp $< $@ @HAVE_GTK_TRUE@all-local: $(pcifiles) $(pcufiles) # Tell versions [3.59,3.63) of GNU make to not export all variables. # Otherwise a system limit (for SysV at least) may be exceeded. .NOEXPORT: guile-gnome-platform-2.16.2/gtk/guile-gnome-gtk-uninstalled.pc.in0000644000175000017500000000043711670374303025225 0ustar00wingowingo00000000000000# the standard variables don't make sense for an uninstalled copy prefix= exec_prefix= libdir=${pcfiledir} includedir=${pcfiledir} Name: (gnome gtk), Uninstalled Description: Guile bindings for Gtk+, Not Installed Version: @VERSION@ Requires: guile-gnome-glib-@API_VERSION@ guile-cairo guile-gnome-platform-2.16.2/gtk/README0000644000175000017500000000154411670374302017640 0ustar00wingowingo00000000000000guile-gnome-gtk README Copyright (C) 2004 Free Software Foundation, Inc. See the end for copying conditions of this file. Last updated 16 September 2004. About guile-gnome-gtk ===================== guile-gnome-gtk is a Guile wrapper for GTK+ and GDK. It is a part of GNU guile-gnome. See the README file in the toplevel source directory for more information. Build dependencies ================== Besides the base guile-gnome requirements given in ../README, guile-gnome-gtk requires GTK+ development packages. guile-gnome-gtk depends on the following guile-gnome modules: glib, defs, atk, pango. Copying this file ================= Copyright (C) 2004 Free Software Foundation, Inc. Copying and distribution of this file, with or without modification, are permitted in any medium without royalty provided the copyright notice and this notice are preserved. guile-gnome-platform-2.16.2/gtk/guile-gnome-gtk.pc.in0000644000175000017500000000027211670374303022702 0ustar00wingowingo00000000000000prefix=@prefix@ exec_prefix=@exec_prefix@ libdir=@libdir@ Name: (gnome gtk) Description: Guile bindings for Gtk+ Requires: guile-gnome-glib-@API_VERSION@ guile-cairo Version: @VERSION@ guile-gnome-platform-2.16.2/gtk/AUTHORS0000644000175000017500000000411111670374302020021 0ustar00wingowingo00000000000000To find out what should go in this file, see "Information For Maintainers of GNU Software" (maintain.texi), the section called "Recording Changes". Andy Wingo: In the directory gnome/gw, wrote: gtk-spec.scm gtk-support.c gtk-support.h gdk-spec.scm gdk-support.c gdk-support.h guile-gtk-tree-model.c guile-gtk-tree-model.h gdk-pixbuf-support.c gdk-pixbuf-support.h In the directory gnome/overrides, wrote: gtk.defs gdk.defs gdk-pixbufs.defs gtk-customs.defs gtk.defs-type-ignores gdk.defs-type-ignores In the directory gnome/gtk, wrote: graphical-repl.scm gdk-event.scm In the directory gnome/contrib, wrote: delay-tree-model.scm filtered-list.scm help-browser.scm texinfo-buffer.scm In the directory gnome, wrote: gtk.scm In the directory examples, wrote: combo-button.scm repl.scm tic-tac-toe.scm hello.scm hello-generics.scm texinfo-browser.scm In the directory examples, changes to: calendar.scm continuations.scm In the directory examples/tutorial, wrote: hello.scm hello2.scm In the directory examples/guile-gtk-demo, wrote: guile-gtk-demo.scm In the directory examples/guile-gtk-demo/demos, wrote: tree-model.scm In the directory examples/guile-gtk-demo/demos, changes to: continuations.scm Ariel Rios: In the directory examples, wrote: calendar.scm Marius Vollmer: In the directory examples, wrote: calc.scm metaspline.scm test-gdk.scm continuations.scm In the directory examples/guile-gtk-demo/demos, wrote: continuations.scm Patrick Bernaud: In the directory examples/guile-gtk-demo/demos, wrote: button-box.scm sizegroup.scm appwindow.scm dialog.scm editable-cells.scm entry-completion.scm list-store.scm menus.scm panes.scm tree-store.scm ui-manager.scm In the directory gnome/gtk, changes to: gdk-event.scm In the directory gnome/gw, changes to: gdk-support.c gtk-support.c gtk-support.h Jan Nieuwenhuizen: In the directory gnome/gtk, changes to: gdk-event.scm In the directort gnome/gw, changes to: gdk-support.c Marcello Mathias Herreshoff: In the directory examples, wrote: scribble.scm guile-gnome-platform-2.16.2/gtk/ChangeLog.pre-2.160000644000175000017500000012056111670374302021704 0ustar00wingowingo000000000000002008-05-01 Andy Wingo * doc/gdk/overview.texi (Overview): Add some foo. 2008-04-27 Andy Wingo * doc/gtk/overview.texi (Overview): Flesh out with content from the tutorial. 2008-04-25 Andy Wingo * == Released guile-gnome-platform version 2.15.98 == * tests/gtk/wrapset.api: Updated. 2008-04-25 Andy Wingo * examples/tic-tac-toe.scm: * examples/texinfo-browser.scm: * examples/test-gdk.scm: * examples/scribble.scm: * examples/repl.scm: * examples/metaspline.scm: * examples/hello.scm: * examples/hello-generics.scm: * examples/guile-gtk-demo/guile-gtk-demo.scm: * examples/calendar.scm: * examples/calc.scm: Update examples to use gnome-2. * doc/gdk/*.texi: * doc/gtk/*.texi: Update docs. 2008-04-24 Andy Wingo * gnome/gw/gtk-support.c (_wrap_gtk_text_buffer_set_text): In this and friendly functions, remove SCM_STRING_LENGTH for good justice. * gnome/gw/gtk.scm: Rework so as to have a more standard module header. Remove the empty method definitions on the poorly-named , just have the generics -- the no-applicable-method should be sufficient. Remove the crack message-dialog wrapper, as it seems that the message dialog now has sufficient properties for it to be used without hacks. * gnome/gw/guile-gtk-tree-model.c (_with_guile_gtk_generic_tree_model_get_column_type) (_with_guile_gtk_generic_tree_model_get_value) (_with_guile_gtk_generic_tree_model_iter_nth_child): * gnome/gw/gtk-support.c (guile_gtk_tree_path_to_scm) (guile_gtk_scm_to_tree_path, GET_ACTION_STR, GET_ACTION_BOOL) (GET_ACTION_INT, _wrap_gtk_action_group_add_actions) (_wrap_gtk_list_store_set_value, _wrap_gtk_stock_add) (_wrap_gtk_tree_store_set_value): * gnome/gw/gdk-support.c (scm_scm_to_gdk_color): Fix deprecation warnings. 2008-04-10 Andy Wingo * == Released guile-gnome-platform version 2.15.97 == 2008-04-10 Andy Wingo * NEWS: Update NEWS. 2008-04-10 Andy Wingo * gnome/overrides/gtk.defs (popup): * gnome/gw/gtk-support.h: * gnome/gw/gtk-support.c (menu_position_fn) (_wrap_gtk_menu_popup): Wrap gtk-menu-popup, with a scheme positioning function and no user-data argument. 2007-12-17 Jan Nieuwenhuizen * gnome/gw/gtk-support.h: * gnome/gw/gtk-support.c (gtk_widget_get_state): New function. * gnome/overrides/gtk.defs (get_state): New method. 2008-04-09 Andy Wingo * gnome/gtk/graphical-repl.scm (initialize): Chain up. * gnome/contrib/texinfo-buffer.scm (): Fix the fixes. 2008-04-08 Andy Wingo Updates for (gnome gobject) api change * gnome/gw/guile-gtk-tree-model.c (_with_guile_gtk_generic_tree_model_get_column_type): Expect a , not a instances, not s. (_wrap_gtk_message_dialog_new): Minimal updates. (_wrap_gtk_text_buffer_get_bounds) (_wrap_gtk_text_buffer_get_selection_bounds) (_wrap_gtk_tree_selection_get_selected) (cell_data_func): Use new GValue functions. * gnome/gw/gdk-support.c (gdk_event_to_vector): Try to eliminate some deprecation warnings. * gnome/gw/gdk-spec.scm: Use new GValue* helpers, and wrap-instance! instead of wrap-object!. * gnome/gtk.scm (initialize on ): Specialize 's initialize, not make-gobject-instance, to hook up the destroy foo. (make-instance on ): some perhaps untested updates for the new API. * gnome/contrib/texinfo-buffer.scm (tag-prop-alist, def): Apparently I had some uncommitted changes sitting around to redo the display of a def section. (): Update for gtype foo. * gnome/contrib/help-browser.scm (on-get-column-type): * gnome/contrib/delay-tree-model.scm (on-get-column-type): * examples/guile-gtk-demo/guile-gtk-demo.scm (tree-view): * examples/guile-gtk-demo/demos/tree-store.scm (create-model): * examples/guile-gtk-demo/demos/tree-model.scm (on-get-column-type): * examples/guile-gtk-demo/demos/list-store.scm (main): * examples/guile-gtk-demo/demos/entry-completion.scm (create-completion-model): * examples/guile-gtk-demo/demos/editable-cells.scm (main): * examples/guile-gtk-demo/demos/appwindow.scm (activate-action): Update for new gtypeless world. * examples/guile-gtk-demo/demos/tree-model.scm (initialize): Chain up, now necessary. 2007-12-10 Andy Wingo * == Released guile-gnome-platform version 2.15.96 == 2007-12-10 Andy Wingo Patch by: Patrick Bernaud * gnome/overrides/gdk.defs (gdk-window-set-cursor): Restore (null-ok) for the cursor-parameter, lost in the regeneration. Fixes #449790. 2007-12-10 Andy Wingo * gnome/overrides/gtk.defs: * gnome/gw/gtk-support.h: * gnome/gw/gtk-support.c (_wrap_gtk_ui_manager_add_ui_from_string): Wrap function without string length argument. * examples/tutorial/hello2.scm: * examples/tutorial/hello.scm: * examples/guile-gtk-demo/guile-gtk-demo.scm: Use the right extra modules. * examples/guile-gtk-demo/demos/ui-manager.scm: Use (oop goops), add-ui-from-string changes. * examples/guile-gtk-demo/demos/tree-store.scm: * examples/guile-gtk-demo/demos/tree-model.scm: * examples/guile-gtk-demo/demos/sizegroup.scm: * examples/guile-gtk-demo/demos/panes.scm: * examples/guile-gtk-demo/demos/menus.scm: * examples/guile-gtk-demo/demos/list-store.scm: * examples/guile-gtk-demo/demos/entry-completion.scm: * examples/guile-gtk-demo/demos/editable-cells.scm: * examples/guile-gtk-demo/demos/dialog.scm: * examples/guile-gtk-demo/demos/continuations.scm: * examples/guile-gtk-demo/demos/button-box.scm: Use (oop goops) etc. * examples/guile-gtk-demo/demos/appwindow.scm: Use (oop goops), give up on loading a custom stock icon (how to I get the directory of this source file anyways??), use lengthless invocation of add-ui-from-string. 2007-12-09 Andy Wingo * examples/tic-tac-toe.scm: Crackily avoid `gtk-adjustment-get-value', as it is broken on ppc32. * gnome/gw/guile-gtk-tree-model.c: Terrible fixes to enter guile mode within all of the vmethods. Assuredly in the future things will not be as painful. * gnome/gw/gtk-support.c (scm_to_locale_string_dynwind): New helper function, tries to replace SCM_STRING_CHARS, but has to be enclosed within a scm_dynwind_begin(0)/scm_dynwind_end() pair. (guile_gtk_scm_to_tree_path, GET_ACTION_STR) (_wrap_gtk_stock_add, _wrap_gtk_text_buffer_set_text) (_wrap_gtk_text_buffer_insert) (_wrap_gtk_text_buffer_insert_at_cursor) (_wrap_gtk_text_buffer_insert_interactive) (_wrap_gtk_text_buffer_insert_interactive_at_cursor) (_wrap_gtk_text_buffer_insert_with_tags) (_wrap_gtk_text_buffer_insert_with_tags_by_name): Avoid SCM_STRING_CHARS. (_wrap_gtk_tree_model_iter_next): gtk_tree_iter_free, not g_free. Avoids memory corruption with newer glib (where the underlying allocator is GSlice). * gnome/contrib/texinfo-buffer.scm (def): Update not to expect to have to put spaces between elements, and to take generic contents, thus passing through stexi->text-tagged-tree. (rules): Add rule for @tie{}. * examples/scribble.scm: Fix invocation of gdk-pixmap-new (?). * gnome/contrib/help-browser.scm: * gnome/contrib/filtered-list.scm: * gnome/contrib/delay-tree-model.scm: * examples/scribble.scm: * examples/repl.scm: * gnome/gtk/graphical-repl.scm: * examples/hello.scm: * examples/hello-generics.scm: * examples/calendar.scm: * examples/calc.scm: Import (oop goops) and other needed modules. 2007-12-06 Andy Wingo * tests/gdk/wrapset.api: * tests/gtk/wrapset.api: Updated for recent API review. * doc/gdk/defuns-*.texi: Regenerated. * doc/gtk/defuns-*.texi: Regenerated. * doc/gtk/guile-gnome-gtk.texi (Top): * doc/gdk/guile-gnome-gdk.texi (Top): * doc/gtk/undocumented.texi: * doc/gdk/undocumented.texi: Add sections for undocumented exports. 2007-11-30 Andy Wingo * gnome/overrides/gdk.defs (gdk_draw_text, gdk_exit) (gdk_rectangle_intersect, gdk_rectangle_union) (gdk_region_get_clipbox, gdk_rgb_find_color, gdk_setting_get) (gdk_text_extents, gdk_window_get_frame_extents): Ignore more functions from the API review. * gnome/overrides/gtk.defs: Combine and sort ignore list. * gnome/overrides/gtk-customs.defs: Remove gtk_gc_get and gtk_paint_polygon wrappers, which referenced opaque types. * gnome/overrides/gtk.defs: Add more ignores. * gnome/overrides/gdk.defs-type-ignores: Ignore GdkDrawable, we do some special things for that in gdk-spec.scm. * gnome/overrides/gdk.defs: Wrap some more types, ignore many functions, sort the ignore list. * gnome/overrides/gdk-pixbuf.defs: Wrap another type, ignore some more functions. * gnome/gw/gdk-spec.scm (initialize): Wrap some more types. 2007-11-25 Andy Wingo * doc/gtk/defuns-*.xml.texi: Really regenerated. * gnome/overrides/gtk.defs: * gnome/overrides/gtk-customs.defs: Fix up to define more types, and to ignore functions that cause wrapping of opaque types. * gnome/gw/gtk-support.c (gtk_widget_get_window): More sensible behavior, I think. * gnome/gw/gtk-spec.scm (initialize): Wrap some more types. * doc/gtk/overrides.texi: Add some overrides. * doc/gtk/guile-gnome-gtk.texi (Top): * doc/gdk/guile-gnome-gdk.texi (Top): Have a type and a function index. * doc/gdk/defuns-*.xml.texi: * doc/gtk/defuns-*.xml.texi: Regenerated. 2007-11-10 Andy Wingo * == Released guile-gnome-platform version 2.15.95 == 2007-11-10 Andy Wingo * gnome/gtk.scm: Only re-export the wrapset modules, gdk and gtk. This could break current code, will need to be very vocal about this change. We probably shouldn't even re-export gdk. * gnome/gtk/gdk-event.scm: Export symbols explicity instead of using the re-export-self trick. This way we don't export guile, (oop goops), etc. * tests/Makefile.am: * tests/gtk/Makefile.am: * tests/gtk/wrapset.api: * tests/gtk/wrapset.scm: * tests/gdk/Makefile.am: * tests/gdk/wrapset.api: * tests/gdk/wrapset.scm: Add API regression test suite. 2007-09-25 Andy Wingo * == Released guile-gnome-platform version 2.15.94 == 2007-09-25 Andy Wingo * NEWS: Updated. 2007-09-24 Andy Wingo * doc/gtk/Makefile.am: * doc/gdk/Makefile.am: Update to include overview.texi. 2007-09-09 Andy Wingo * doc/gdk/guile-gnome-gdk.texi: Add GDK-Pixbuf documentation. * doc/Makefile.am: * doc/gtk/Makefile.am: * doc/gtk/guile-gnome-gtk.texi: * doc/gtk/overview.texi: * doc/gtk/overrides.texi: * doc/gtk/section-*.texi: * doc/gtk/defuns-*.texi: Add gtk docs. * doc/gdk/Makefile.am: * doc/gdk/guile-gnome-gdk.texi: * doc/gdk/overview.texi: * doc/gdk/overrides.texi: * doc/gdk/section-*.texi: * doc/gdk/defuns-*.texi: Add gdk docs. 2007-06-15 Andy Wingo * == Released guile-gnome-platform version 2.15.93 == * gnome/overrides/gdk.defs (Font, Cursor): Re-add boxed types lost when gdk.defs was autogenerated. 2007-05-26 Andy Wingo * gnome/overrides/gdk.defs (Event): Define GdkEvent as a boxed. Not sure how this was working before. 2007-05-24 Andy Wingo * == Released guile-gnome-platform version 2.15.92 == 2007-05-24 Andy Wingo * gnome/gw/Makefile.am (libgw_guile_gnome_gdk_la_LIBADD): Link against cairo, really. 2007-05-21 Andy Wingo * gnome/overrides/gtk.defs: Update ignores for gtk 2.10. * gnome/overrides/gdk.defs: Update ignores a bit. * guile-gnome-gtk.pc.in: * guile-gnome-gtk-uninstalled.pc.in: * gnome/gw/gtk-spec.scm (): Depend on cairo. * gnome/gw/Makefile.am (libgw_guile_gnome_gtk_la_CFLAGS) (libgw_guile_gnome_gtk_la_LIBADD): Link to cairo. (libgw_guile_gnome_gdk_la_LIBADD): Link to cairo; dunno why it wasn't being done before. * gnome/overrides/gdk.defs-type-ignores: Renamed from type-overrides. Ignore PixmapObject and WindowObject; not sure what they are, even. * cairo-checks.ac: Add cairo check. * package.ac: Don't build gdk/gtk if guile-cairo isn't available. * gnome/overrides/gdk.defs: Update overrides for GDK 2.10.13. Lots more functions are wrapped now. * gnome/gw/gdk-spec.scm (gnome): Pull in the g-wrap cairo integration. * gnome/gw/Makefile.am (libgw_guile_gnome_gdk_la_CFLAGS): Link to guile-cairo. 2007-05-19 Andy Wingo Patch by: Steve Tell * gnome/overrides/gtk.defs (gtk_radio_button_new) (radio_button_new_with_label, radio_button_new_with_mnemonic) (set_group, gtk_radio_menu_item_new) (gtk_radio_menu_item_new_with_label) (gtk_radio_menu_item_new_with_mnemonic, set_group): Allow NULL for the radio group in a number of functions. 2007-05-13 Andy Wingo * gnome/gw/gdk-spec.scm (initialize): WChar is unsigned-in32, not unsigned-long. 2007-05-10 Andy Wingo * == Released guile-gnome-platform version 2.15.91 == 2007-05-07 Andy Wingo * gnome/overrides/gtk-customs.defs: Remove popup method from here. I had forgotten about this file... * gnome/overrides/gtk.defs (gtk-menu-popup): Sprinkle null-ok; thanks to Steve Tell for the tip. * gnome/gtk/gdk-event.scm (gdk-event-button:time): New accessor, time. 2007-05-06 Andy Wingo * gnome/gtk/gdk-event.scm: Button accessors work for 2button-press, 2button-release, 3button-press, and 3button-release also. Thanks to Greg Troxel for the tip. * gnome/overrides/gtk.defs (lookup, get_name): Fix GtkIconSize methods to be functions (longstanding bug). (gtk_cell_renderer_get_size, gtk_tree_view_column_cell_get_size): Ignore these two, because with the out arguments fix in GLib, they provoke another bug in G-Wrap. Will have to wait for RTI out arguments to re-enable. 2007-05-05 Andy Wingo * gnome/gw/gdk-spec.scm (initialize): The glib wrapset declares the type rules we need, remove ours. 2007-05-04 Andy Wingo * gnome/overrides/gtk.defs (add_actions, add_toggle_actions) (add_radio_actions, gtk_list_store_new, set_value) (gtk_message_dialog_new, gtk_stock_add, gtk_stock_lookup) (set_text, insert, insert_at_cursor, insert_interactive) (insert_interactive_at_cursor, insert_with_tags) (insert_with_tags_by_name, get_bounds, get_selection_bounds) (get_value, get_selected, gtk_tree_store_new, set_value) (set_cell_data_func): * gnome/overrides/gdk.defs (gdk-event->event-struct): * gnome/overrides/gdk-pixbuf.defs (gdk_pixbuf_save_to_port): Don't leave guile mode for functions that take or return SCM values. 2006-12-15 Andy Wingo * == Released guile-gnome-platform version 2.15.90 == 2006-11-05 Andy Wingo * gnome/gw/gtk-spec.scm: Use (gnome gw support g-wrap), the g-wrap compatibility wrapper. * gnome/gw/gdk-spec.scm: Use (gnome gw support g-wrap), the g-wrap compatibility wrapper. 2005-10-14 Andy Wingo * gnome/overrides/gtk.defs: Don't ignore gtk_list_*, that catches the list store too; instead ignore each one of the gtk_list functions. 2005-09-17 Andreas Rottmann * gnome/gw/gtk-support.c (_gtk_selection_data_get_as_string): Fix GCC 4.0 warnings. 2005-04-11 Andreas Rottmann * gnome/gw/gdk-support.c (gdk_event_to_vector): Fix compiler warnings on alpha. 2005-04-10 Andreas Rottmann * gnome/gw/guile-gtk-tree-model.c, gnome/gw/gdk-pixbuf-support.c, * gnome/gw/gtk-support.c: Use new SCM<->gpointer conversion macros. 2005-03-01 Andreas Rottmann * gnome/gw/gdk-spec.scm (initialize): Added type-rules making gint* and guint* output args. 2005-02-28 Andreas Rottmann * gnome/overrides/gdk.defs (gdk_window_set_icon): Added override with null-ok options for parameters. 2005-03-06 Andy Wingo * == Released guile-gnome-platform version 2.7.99 == 2005-02-17 Andy Wingo * package.ac: Follow --disable-deprecation for deprecation cflags. 2005-01-11 Andy Wingo * == Released platform version 2.7.98 == 2005-01-08 Andy Wingo * package.ac (GTK_DEPRECATED_CFLAGS): Add --disable-gtk-deprecated as an option, off by default. This is so when new GTK+ versions come out with more deprecations, a guile-gtk made for an older deprecation level will still compile. * gnome/gw/Makefile.am (libgw_guile_gnome_gtk_la_CFLAGS): Use $(GTK_DEPRECATED_CFLAGS). 2004-12-06 Andy Wingo * == Released platform version 2.7.97 == * gnome/gw/gtk-support.c ("guile-gtk-scm-to-tree-path"): Don't allow GValues as GtkTreePaths, we shouldn't get them. * gnome/gw/gtk-spec.scm: Really updated this time. Don't free the tree path, because this code is going into the GValue wrapper as well, and we don't know if we own those or not. A memleak for now. 2004-12-05 Andy Wingo * gnome/gw/gtk-spec.scm: * gnome/gw/gdk-spec.scm: Updated to use wrap-custom-boxed!. 2004-11-29 Andy Wingo * gnome/gtk.scm (progress): New proc. Will display its argument if the GUILE_GTK_DEBUG environment var is set, otherwise a noop. 2004-11-11 Jan Nieuwenhuizen * gnome/gtk/gdk-event.scm (button-press, button-release): Define accessor for modifiers. 2004-11-15 Andy Wingo * package.ac: Add record_check. 2004-11-10 Andy Wingo * gnome/gtk.scm (create-tag): Don't specialize on the type of tag-name, it could be #f for anonymous tags. Thanks to Patrick Bernaud for the report. * gnome/overrides/gdk.defs-type-ignores: New file. Ignore gdk-color and gdk-rectangle, for which we have special wrappers. * gnome/overrides/Makefile.am (module_DATA): Use a wildcard. * AUTHORS: Updated. * examples/scribble.scm: New file, from Marcello Mathias Herreshoff. * gnome/gw/gtk-spec.scm ("GtkTreePath"): Report gw:error with the (wrapped-var value), not the scm-var. Fixes a seggie. Thanks to Puneet Goyal for the report. Also, use unwrap-null-checked. * gnome/overrides/gtk.defs: * gnome/gw/gtk-support.h: * gnome/gw/gtk-support.c (gtk_style_get_white_gc) (gtk_style_get_black_gc): New procedures. ("gtk-tree-store-new"): Be like gtk-list-store-new, and take classes or gtypes. 2004-11-09 Andy Wingo * gnome/gw/gtk-support.c (gtk_widget_get_allocation) (gtk_widget_get_window, gtk_style_get_bg_gc, gtk_style_get_fg_gc): * gnome/overrides/gtk.defs (get-allocation, get-window) (get-bg-gc, get-fg-gc): New wrappers. * gnome/gw/gdk-support.h: * gnome/gw/gdk-support.h ("%scm->gdk-rectangle") (scm_gdk_color_to_scm): New procedures. * gnome/overrides/gtk-customs.defs (add-events, set-events): New wrappers: the guint parameter is really a GdkEventMask. * gnome/gtk/gdk-event.scm (define-gdk-event-accessor): New macro, encapsulates all of the crap involved in making an accessor to a gdk-event field. Converted all gdk-event-FOO:BAR procs to use this macro, saved a lot of lines of code. (motion-notify): Defined accessors for modifiers, x, and y. * gnome/gw/gdk-spec.scm ("GdkRectangle"): Added custom wrapper. GdkRectangle is a 4-element vector on the scm side now. * gnome/gw/gdk-support.c: * gnome/gw/gdk-support.h (scm_gdk_rectangle_to_scm) (scm_gdk_rectangle_to_scm): New procedures. 2004-11-07 Andy Wingo * Makefile.am (all-local): Only make/install the pkg-config files if we are building the wrapset. 2004-10-28 Andy Wingo * guile-gnome-gtk.pc.in (Requires): * guile-gnome-gtk-uninstalled.pc.in (Requires): * pango-checks.ac: * glib-checks.ac: * defs-checks.ac: * atk-checks.ac: Versioned pkg-config check. * Makefile.am (all-local): Versioned pkg-config files. * examples/continuations.scm: Add a comment about this demo's crack-rock nature. * examples/tic-tac-toe.scm: * examples/texinfo-browser.scm: * examples/repl.scm: * examples/metaspline.scm: * examples/hello.scm: * examples/hello-generics.scm: * examples/guile-gtk-demo/guile-gtk-demo.scm: * examples/calendar.scm: * examples/calc.scm: Use "exec guile-gnome-0 ..." 2004-10-26 Andy Wingo * gnome/gw/Makefile.am (guilegnomelib_LTLIBRARIES): Install to versioned directory. 2004-10-14 Andy Wingo * gnome/overrides/gtk.defs (set_text, get_as_string) (set_cell_data_func, drag_dest_set): Update to reflect new wrappers. * gnome/gw/gtk-support.c (_gtk_selection_data_get_as_string): New helper. * gnome/overrides/gdk-pixbuf.defs (gdk_pixbuf_save_to_port): * gnome/gw/gdk-pixbuf-support.[ch] (port_write_cb) ("gdk-pixbuf-save-to-port"): Define helper to save a GdkPixbuf to a scheme port. 2004-10-11 Andy Wingo * gnome/gw/gtk-support.c (_wrap_gtk_clipboard_set_text): New wrapper. 2004-10-10 Andy Wingo * gnome/overrides/gtk.defs (drag_dest_set) (set_cell_data_func): Define overrides for these wrappers. * gnome/overrides/gtk-customs.defs (drag_dest_set): Removed from here, we specialize in the main overrides. * gnome/gw/gtk-support.c ("gtk-list-store-new"): Support GTypeClasses as the type arguments as well as GTypes. Plug a memleak. (_wrap_gtk_tree_view_column_set_cell_data_func, cell_data_func): New procs to wrap set-cell-data-func. (_wrap_gtk_drag_dest_set): New wrapper. * examples/repl.scm: Gutted. Still here, but just calls guile-gtk-repl. * gnome/gtk/graphical-repl.scm (guile-gtk-repl): Moved here from examples/repl.scm, because it's useful for quickly hacking up applications. Exported. 2004-10-07 Andy Wingo * package.ac: Add check for GDK_PIXBUF libs and cflags. * gnome/overrides/gdk-pixbuf.defs: New file. Factored out of the upstream hand-tuned gdk.defs. * gnome/overrides/gtk-customs.defs: New file, generated from the old hand-tuned gtk.defs in the defs package. Includes some forgotten types (boxed/interface), default values, null-ok args, GList-of args, and constructor-of params. Now the upstream .defs are only generated manually. Some customizations were elided because they describe deprecated interfaces. * gnome/overrides/gtk.defs: Add wrappers for gtk_radio_tool_button_get/set_group, gtk_radio_action_get/set_group. Ignore all deprecated functions as of Gtk+ 2.4.4. * gnome/overrides/gtk.defs-type-ignores: New file, included before gtk-types.defs. Ignores a number of deprecated types. * gnome/gw/gdk-pixbuf-support.c, gnome/gw/gdk-pixbuf-support.h: New files, with nothing yet. * gnome/gw/Makefile.am: Build gdk and gtk modules only if there is all of gtk available. This is a bit of a mistake, but I don't think it matters. Split gdk-pixbuf support out into a separate .defs and separate .c, but in the same wrapset as GDK. Use -DGTK_DISABLE_DEPRECATED again on Gtk+. * examples/combo-button.scm: Removed. There's no more GtkCombo. * gnome/gw/gtk-support.h, gnome/gw/gtk-support.h, gnome/overrides/gtk.defs (gtk-combo-get-entry): Removed. No more GtkCombo, yo. * gnome/overrides/gtk.defs: Don't ignore gtk_propagate_event. Dunno why. From gtk_accel_*, only ignore the find and query functions. 2004-09-28 Andy Wingo * gnome/gw/gtk-support.c: Cleaned up the action wrappers. Reindented code. * examples/guile-gtk-demo/demos/appwindow.scm: * examples/guile-gtk-demo/demos/dialog.scm: * examples/guile-gtk-demo/demos/editable-cells.scm: * examples/guile-gtk-demo/demos/entry-completion.scm: * examples/guile-gtk-demo/demos/list-store.scm: * examples/guile-gtk-demo/demos/menus.scm: * examples/guile-gtk-demo/demos/panes.scm: * examples/guile-gtk-demo/demos/tree-store.scm: * examples/guile-gtk-demo/demos/ui-manager.scm: Use abbreviated license statement. * gnome/overrides/gtk.defs: Added GtkColorSelection, GtkActionGroup, gtk_stock overrides from Patrick's branch. * gnome/gw/gdk-support.c (gdk_event_to_vector): Cleaned up the window state code. * gnome/gtk/gdk-event.scm (gdk-event-window-state:changed-mask) (gdk-event-window-state:new-window-state): New functions by Patrick Bernaud. Cleaned up by me. * AUTHORS: Updated for Patrick's contributions. 2004-09-27 Patrick Bernaud * examples/guile-gtk-demo/demos/sizegroup.scm: * examples/guile-gtk-demo/demos/button-box.scm: Style cleanups. * gnome/gw/gtk-support.h, gnome/gw/gtk-support.c (_wrap_gtk_stock_*) (_wrap_gtk_action_group_add_*_actions): New functions. * gnome/gw/gdk-support.c: Wrap window-state event. * gnome/gw/gtk-support.h, gnome/gw/gtk-support.c (_wrap_gtk_color_selection_dialog_get_*): New functions. * examples/guile-gtk-demo/demos/appwindow.scm: * examples/guile-gtk-demo/demos/dialog.scm: * examples/guile-gtk-demo/demos/editable-cells.scm: * examples/guile-gtk-demo/demos/entry-completion.scm: * examples/guile-gtk-demo/demos/list-store.scm: * examples/guile-gtk-demo/demos/menus.scm: * examples/guile-gtk-demo/demos/panes.scm: * examples/guile-gtk-demo/demos/tree-store.scm: * examples/guile-gtk-demo/demos/ui-manager.scm: New files. * examples/guile-gtk-demo/gtk-logo-rgb.gif: New file, from GTK+. LGPL. 2004-09-27 Andy Wingo * examples/tic-tac-toe.scm * examples/hello.scm * examples/guile-gtk-demo/guile-gtk-demo.scm * examples/hello-generics.scm * examples/texinfo-browser.scm * examples/metaspline.scm * examples/continuations.scm * examples/calendar.scm * examples/repl.scm * examples/test-gdk.scm * examples/combo-button.scm: Add license blocks. * examples/guile-gtk-demo/demos/sizegroup.scm * examples/guile-gtk-demo/demos/tree-model.scm * examples/guile-gtk-demo/demos/button-box.scm * examples/guile-gtk-demo/demos/continuations.scm: Add abbreviated license blocks. * gnome/contrib/filtered-list.scm: Re-export set-filter, since there are some gtkfilechooser methods that implement it. 2004-09-19 Andy Wingo * gnome/overrides/gtk.defs (FileChooser): Add interface. * gnome/gw/Makefile.am (libgw_guile_gnome_gdk_la_LIBADD) (libgw_guile_gnome_gtk_la_LIBADD): Not G_WRAP_LINK_ARGS, it's G_WRAP_LIBS. * guile-gnome-gtk.pc.in, guile-gnome-gtk-uninstalled.pc.in: Use @VERSION@. * package.ac: No more GUILE_GTK_VERSION, just use the platform version. * Makefile.am (pkgconfig_DATA): Install the pkg-config file. 2004-09-16 Andy Wingo * Makefile.am (SUBDIRS): Dist fixes. * NEWS: Added. * README: Added. * AUTHORS: Added. * gnome/gw/glade-support.[ch]: Removed these wayward support files. * pango-checks.ac: Check the right package. * atk-checks.ac: Check the right package. * gnome/gtk.scm: Avoid deprecated modules. 2004-09-15 Andy Wingo * gnome/overrides/gdk.defs (gdk-event->event-struct): Adapted to gdk-event->vector. * gnome/gtk/gdk-event.scm: Adapted to gdk-event->vector. * gnome/gw/gdk-support.c (gdk_event_to_vector): Renamed from gdk_event_to_event_struct, changed to return a vector instead of a custom struct. (gdk_event_to_vector): Add a case for GDK_MOTION_NOTIFY. No more irritating warnings about "events of type 3" blah blah... 2004-09-05 Andy Wingo * gnome/gw/Makefile.am: Don't dist the C files. * gnome/Makefile.am, gnome/overrides/Makefile.am: Add overrides/ to the dist. * gnome/overrides/gdk.defs, gnome/overrides/gtk.defs: Moved from the *-overrides.defs in the defs module. * gnome/gw/gdk-spec.scm, gnome/gw/gtk-spec.scm: Adapted to module location changes, load-defs changes. * gnome/contrib/Makefile.am: Add filtered-list.scm, delay-tree-model.scm, and help-browser.scm to the dist/install list. * defs-checks.ac: Added. * guile-gnome-gtk.pc.in, guile-gnome-gtk-uninstalled.pc.in: Moved from guile-gtk*.pc.in. 2004-09-04 Andy Wingo * gnome/gw/Makefile.am: Add CFLAGS=-g, so that the user doesn't inadvertantly compile with optimizations. 2004-09-14 Andy Wingo * examples/calc.scm: Updated from guile-gtk 1.2 by Patrick Bernaud. 2004-08-29 Andy Wingo * gnome/gtk/graphical-repl.scm (): New slot, `main-loop', to hold the main loop. Can be set by user code, if you want to share a main loop between the REPL and something else. (initialize): Don't return a string from the soft port via continuations, because this can confuse Gtk+. Use the main-loop from the slot if it's available. (): Renamed from , because it can be used more generally as a graphical output port for scheme. Exported. (construct-view): New method on , factored out from from other code. Constructs a view widget for the output. (pretty-display-strings): Renamed from pretty-display. Only deals with strings. Optimized. (): Only have output-port=current-output/error-port for the duration of the eval, and for completions. Allows the app to have a different output port during running of the main loop. 2004-07-10 Andy Wingo * gnome/contrib/texinfo-buffer.scm (false-if-exception): New macro, like the standard one but doesn't affect the-last-stack. (tag-prop-alist): Add tags for entry-header, entry-body, and asis. (arg-ref): Use assq-ref. (identity): New handler, just returns the body. (*table-formatter*): Fluid, holds the current table formatter (@code, @asis, etc.). (table): Use with-fluids to set the formatter while processing the body. Hm, I think this needs to be pre-order, though. (entry): Format the entry header with the table formatter. (ignore-list): Add indexing commands (cindex, etc.) to the ignore list. (rules): Add a rule for texinfo, using the identity handler. (with-nesting): Up to default nesting from 25px to 35px. (fill-buffer): More informative errors. (stexi->text-tagged-tree): New (private) function, calls pre-post-order to do the first pass. * gnome/contrib/help-browser.scm (populate-help-hook): New hook, run right before the help window is constructed. (set-default-help-document!): Fix a typo. (make-help-window): Set the title properly when no iter is selected. (make-help-window): Add again the warning that indexing can take time. It's not so much for a single texinfo file, but if you have documentation that is constructed at runtime, all of that will have to be evaluated before the indexer can index. (A caching indexer is needed.) (ensure-help-window): Run the hook before constructing the help window. * gnome/contrib/delay-tree-model.scm (on-get-iter): Don't expect #f from node-ref/force-ref of 'children, because (make-node) now guarantees that 'children is there. * gnome/contrib/texinfo-buffer.scm (uref): It's URL, not URI. (URLs are the retrievable resources.) (initialize): url-show takes one argument, not two. (rules): s/results/result/. 2004-07-07 Andy Wingo * gnome/contrib/texinfo-buffer.scm (): Name changed from stext-..., s/#:param-spec/#:gparam/, fix the hook. (ref): Fix typo. (url-show): New function, uses gnome to show the url if it's around, should do something else otherwise... * gnome/contrib/help-browser.scm: New file, implements a help browser whose native data format is stexi. * examples/texinfo-browser.scm: New file, implements a help browser that will open a file given on the command line. * gnome/contrib/help-browser.scm: * gnome/contrib/delay-tree-model.scm: * gnome/contrib/texinfo-buffer.scm: Make sure keywords have #:. 2004-07-06 Andy Wingo * gnome/contrib/texinfo-buffer.scm (gnome): s/(sxml texinfo)/(texinfo)/, don't use gw modules * gnome/contrib/filtered-list.scm: New file, implements a tree model whose backing store is a list. The model only exposes those members of the list that pass a predicate. The predicate can be set dynamically. * gnome/gw/gdk-spec.scm (unwrap-value-cg): Report errors with the wrapped var, not the scm var. This is for consistency with other instances of gw:error -- I think it fixes a bug, but jan will tell me :) * gnome/contrib/delay-tree-model.scm: New file, implements a tree model based on a delay tree. See (container delay-tree) in guile-lib for details. 2004-07-01 Andy Wingo * gnome/gtk/graphical-repl.scm (gnome): Fix to use the right module. * gnome/contrib/texinfo-buffer.scm (gnome): Fix module name. 2004-07-01 Andreas Rottmann * gdk-spec.scm (unwrap-value-cg): Adapted for unwrap-null-check -> unwrap-null-checked change. 2004-06-30 Andy Wingo * TODO: New file, for random thoughts. * Merged changelogs, again. I need to star-merge with head now... * gnome/gtk/gdk-event.scm: Fixed references to bogus g-wrap modules. * gnome/contrib/texinfo-buffer.scm: New file. Like what (text structured gtk-text-buffer) was, but a lot cleaner now. (And a lot shorter, incidentally.) Renders texinfo, expressed as SXML, into a GtkTextBuffer. * gnome/contrib/Makefile.am: New file. * gnome/contrib/: New directory. The thought is for (gnome contrib) to be a place where people can contribute useful scheme-only library code based on the gnome modules. 2004-06-22 Andreas Rottmann * gtk-spec.scm, gdk-spec.scm: Fix for G-Wrap #:dependencies API change. 2004-06-21 Jan Nieuwenhuizen * gnome/gtk/gdk-event.scm (gdk-event-button:button): (gdk-event-button:x): (gdk-event-button:y): (gdk-event-button:x-root): (gdk-event-button:y-root): New function. 2004-05-26 Jan Nieuwenhuizen * examples/canvas.scm: Remove. 2004-05-22 Andy Wingo * guile-gtk.pc.in, guile-gtk-uninstalled.pc.in, files.ac: New files. 2004-05-19 Andy Wingo * ChangeLog: All GTK+ changelogs have been merged, with non-gtk items elided. * gnome/gtk.scm (gnome): The main glib wrapper depends on gobject, so put it after gobject to show times better. Also add goops to the startup list. (This should eventually go away when (gnome gtk) is really fast.) 2004-05-17 Andreas Rottmann * gtk-support.h, gtk-support.c (_wrap_gtk_dialog_get_vbox) (_wrap_gtk_dialog_get_action_area): New functions. * Makefile.am (guilegtkmodule_DATA): Fixed, now is guilegwmodule_DATA. 2004-04-02 Andreas Rottmann * gnome/gtk.scm (on-get-flags): Provide default implementation returning 0. 2004-02-01 Andreas Rottmann * gnome/gtk.scm (): Defined public as . 2004-01-14 Andy Wingo * gnome/gtk.scm: Move functions from generics.scm here, as everyone uses generics. Now re-exports ATK and Pango, using the new re-export-module macro. 2003-10-12 Andy Wingo * gnome/gtk.scm: Import and re-export generics again, so we allow custom generics to be written. 2003-08-26 Andreas Rottmann * gnome/gtk.scm: Removed import of (gnome gtk generics), as no longer needed. 2003-05-08 Andy Wingo * gnome/gtk.scm: import glib.scm. 2004-05-10 Andy Wingo * gnome/gw/Makefile.am (libguile_gnome_gw_*_la_LIBADD): Link all these to the real gobject module, not the -gw- module. 2004-04-18 Andy Wingo * gnome/gtk/graphical-repl.scm (install-history-handlers): Fix the long-standing bug in history-up and history-down. Load and save history files like ice-9/readline.scm does. Position the cursor at the end of the new text. Yay. (initialize for the entry): Lots of simplifications. Don't know why it was so complicated before. * gnome/gw/Makefile.am (libguile_gnome_gw_gtk_la_CFLAGS): Temporarily remove -DGTK_DISABLE_DEPRECATED until the trunk is synced to Gtk+-2.4. * gnome/gw/guile-gtk-tree-model.c (guile-gtk-generic-tree-model-get-flags): Allow the implementation to return #f for on-get-flags. 2004-04-03 Andreas Rottmann * gnome/gw/Makefile.am (libguile_gnome_gw_gtk_la_CFLAGS): Added -O0, to keep gcc from eating loads of memory. * gnome/gw/Makefile.am (libguile_gnome_gw_gtk_la_CFLAGS): Removed -DGTK_DISABLE_DEPRECATED. 2004-01-14 Andy Wingo * gnome/gw/gtk-support.c (_wrap_gtk_tree_model_iter_children): Return a list of all children instead of the first sibling. Makes it slower, but integrates better with higher-level procedures like map and for-each. (_wrap_gtk_tree_model_iter_parent): New wrapper. 2004-01-13 Andy Wingo * gnome/gtk/generics.scm: Removed. All functions added directly to gtk.scm. 2003-12-13 Andreas Rottmann * gnome/gtk/Makefile.am (GDKMODULES): Added gdk-event.scm. 2003-12-03 Andy Wingo * gnome/gtk/gdk-support.c (gdk_event_to_event_struct): Wrap button and crossing events. 2003-11-25 Andy Wingo * gnome/gw/gtk-support.[ch]: Added accessors for the ok and cancel buttons in file selections. Note that this API will be deprecated in Gtk+-2.4. 2003-11-18 Andy Wingo * gnome/gw/guile-gtk-tree-model.c (guile_gtk_generic_tree_model_get_value): Call scm_c_scm_to_gvalue instead of rolling our own conversion -- allows gboxed-scm tree columns. 2003-11-25 Andreas Rottmann * gnome/gtk/generics.scm (): defined public as . * gnome/gtk/Makefile.am (GTKMODULES): Added graphical-repl.scm. (guilegtkmodule_DATA): Added generics.scm. * gnome/gw/Makefile.am (GUILE_FLAGS): New variable, to be overriden via make commandline. 2003-11-02 Andy Wingo * gnome/gtk/generics.scm (gtk-text-buffer-get-bounds): Remove, implemented in C now. 2003-10-29 Andy Wingo * gnome/gtk/generics.scm (initialize): Override initialize for , because the API is broken (the constructor takes varargs, and there's no property for the message text). 2003-10-26 Andy Wingo * gnome/gw/gw-gdk-spec.scm: Fix GdkEvent wrappers to properly type the pointers. 2003-10-16 Andy Wingo * gnome/gtk/generics.scm (gtk-text-buffer-create-tag): New function. (create-tag): New generic function. (gtk-text-buffer-get-bounds): New function. (get-bounds): New generic function. * gnome/gw/gtk-support.[ch]: New wrapper functions for GtkTextBuffer operations, as well as GtkTreeSelection::get_selected. * gnome/gw/gw-gtk-spec.scm: Add a custom type wrapper for GtkTreePath. Ideally these should also be available to gvalue->scm, but that's not the case now. 2003-10-12 Andy Wingo * gnome/gtk/generics.scm: New generic functions to support the Guile tree model. (gtk-tree-or-list-store-set): Wrap the one-value gtk-{list|tree}-store-set-value with a multi-arg equivalent. (set): Wrap the preceding function as a method for generic set. * gnome/gw/gtk-support.[ch]: New files. * gnome/gw/guile-gtk-tree-model.[ch]: New files, implement a tree model interface for guile. 2003-10-01 Andy Wingo * gnome/gtk/generics.scm: Remove functions->methods-public. 2003-08-26 Andreas Rottmann * gnome/gtk/Makefile.am (GTKMODULES): Don't add generics.scm, as it's no longer needed. 2003-05-08 Andy Wingo * gnome/gtk/event-repl.scm: New file, from gnome-guile 0.10.0. * gnome/gw/gw-gdk-spec.scm: initialize gdk even when gtk isn't loaded. 2003-05-03 Andy Wingo * gnome/gw/*: Completely rewritten, see the release notes (0.5.0) for details. 2002-11-08 Ariel Rios * gnome/gw/converter.pl: Added. Creates gtk.scm file from the def file. At the moment we only handle objects. * gnome/gw/guile-gnome-gtk-aux.h: Added * gnome/gw/guile-gnome-gtk.c: We now call the function generated from the aux file. * gnome/gw/gtk.defs: Added 2002-11-08 Ariel Rios * gnome/gw/guile-gnome-gtk.c (scm_init_gnome_gtk): Added more types so we can use them in the sane Scheme world. * gnome/gw/gtk.scm (gtktype:*): Added more gtktypes. (): Ditto for classes (show-signals): Display signals. Helps with debug (initialize): Gone 2002-08-08 Ariel Rios * gnome/gw/guile-gnome-gtk.c (scm_init_gnome_gtk): get class ref for GTK_TYPE_WIDGET. 2001-09-06 Martin Baulig * gnome/gw/gnome-gtk.gwp (%gtk-object-ref, %gtk-object-sink): New private functions. * gnome/gw/gtk.scm (initialize ()): Do a `(%gtk-object-ref obj) (%gtk-object-sink obj)'. guile-gnome-platform-2.16.2/gtk/ChangeLog0000644000175000017500000000006711670374302020531 0ustar00wingowingo00000000000000See the revision control log for changes since 2.16.0. guile-gnome-platform-2.16.2/generate-docs.mk0000644000175000017500000000465511671225671021257 0ustar00wingowingo00000000000000# guile-gnome # Copyright (C) 2007, 2011 Free Software Foundation, Inc. # This program is free software; you can redistribute it and/or # modify it under the terms of the GNU General Public License as # published by the Free Software Foundation; either version 2 of # the License, or (at your option) any later version. # This program is distributed in the hope that it will be useful, # but WITHOUT ANY WARRANTY; without even the implied warranty of # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the # GNU General Public License for more details. # You should have received a copy of the GNU General Public License # along with this program; if not, contact: # Free Software Foundation Voice: +1-617-542-5942 # 59 Temple Place - Suite 330 Fax: +1-617-542-2652 # Boston, MA 02111-1307, USA gnu@gnu.org # # Makefile snippet # wrapset_module = (gnome gw $(wrapset_stem)-spec) wrapset_name = gnome-$(wrapset_stem) GTK_DOC_TO_TEXI_STUBS = '((@ (gnome gw support gtk-doc) gtk-doc->texi-stubs) (cdr (program-arguments)))' GTK_DOC_DEFUN_HEURISTICS_METHOD = heuristics GTK_DOC_DEFUN_HEURISTICS_ARGS = (your-module-here) GTK_DOC_DEFUN_GWRAP_METHOD = g-wrap GTK_DOC_DEFUN_GWRAP_ARGS = $(wrapset_module) $(wrapset_name) GTK_DOC_DEFUN_METHOD = $(GTK_DOC_DEFUN_GWRAP_METHOD) GTK_DOC_DEFUN_ARGS = $(GTK_DOC_DEFUN_GWRAP_ARGS) GTK_DOC_TO_TEXI_DEFUNS = "(apply (@ (gnome gw support gtk-doc) gtk-doc->texi-defuns) (cadr (program-arguments)) '$(GTK_DOC_DEFUN_METHOD) '($(GTK_DOC_DEFUN_ARGS)) (cddr (program-arguments)))" GTK_DOC_COVERAGE_MODULES = (gnome $(wrapset_stem)) (gnome gw $(wrapset_stem)) GTK_DOC_COVERAGE_TEXI = $(info_TEXINFOS) GTK_DOC_CHECK_COVERAGE = "((@ (gnome gw support gtk-doc) check-documentation-coverage) '($(GTK_DOC_COVERAGE_MODULES)) \"$(GTK_DOC_COVERAGE_TEXI)\")" GTK_DOC_GENERATE_UNDOCUMENTED = "((@ (gnome gw support gtk-doc) generate-undocumented-texi) '($(GTK_DOC_COVERAGE_MODULES)) \"$(GTK_DOC_COVERAGE_TEXI)\")" GUILE = $(top_builddir)/dev-environ guile generate-stubs: $(GUILE) $(GUILE_FLAGS) -c $(GTK_DOC_TO_TEXI_STUBS) $(docbook_xml_files) generate-defuns: $(GUILE) $(GUILE_FLAGS) -c $(GTK_DOC_TO_TEXI_DEFUNS) ./overrides.texi $(docbook_xml_files) check-coverage: $(GUILE) $(GUILE_FLAGS) -c $(GTK_DOC_CHECK_COVERAGE) generate-undocumented: rm -f undocumented.texi; touch undocumented.texi $(GUILE) $(GUILE_FLAGS) -c $(GTK_DOC_GENERATE_UNDOCUMENTED) guile-gnome-platform-2.16.2/gnome-vfs/0000755000175000017500000000000011752546505020077 5ustar00wingowingo00000000000000guile-gnome-platform-2.16.2/gnome-vfs/examples/0000755000175000017500000000000011752546505021715 5ustar00wingowingo00000000000000guile-gnome-platform-2.16.2/gnome-vfs/examples/gnome-vfs/0000755000175000017500000000000011752546505023616 5ustar00wingowingo00000000000000guile-gnome-platform-2.16.2/gnome-vfs/examples/gnome-vfs/Makefile.am0000644000175000017500000000015411670374302025643 0ustar00wingowingo00000000000000exampledir = $(pkgdatadir)/examples/gnome-vfs example_DATA = $(wildcard *.scm) EXTRA_DIST = $(example_DATA) guile-gnome-platform-2.16.2/gnome-vfs/examples/gnome-vfs/Makefile.in0000644000175000017500000003376111752511067025670 0ustar00wingowingo00000000000000# Makefile.in generated by automake 1.11.5 from Makefile.am. # @configure_input@ # Copyright (C) 1994, 1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, # 2003, 2004, 2005, 2006, 2007, 2008, 2009, 2010, 2011 Free Software # Foundation, Inc. # This Makefile.in is free software; the Free Software Foundation # gives unlimited permission to copy and/or distribute it, # with or without modifications, as long as this notice is preserved. # This program is distributed in the hope that it will be useful, # but WITHOUT ANY WARRANTY, to the extent permitted by law; without # even the implied warranty of MERCHANTABILITY or FITNESS FOR A # PARTICULAR PURPOSE. @SET_MAKE@ VPATH = @srcdir@ am__make_dryrun = \ { \ am__dry=no; \ case $$MAKEFLAGS in \ *\\[\ \ ]*) \ echo 'am--echo: ; @echo "AM" OK' | $(MAKE) -f - 2>/dev/null \ | grep '^AM OK$$' >/dev/null || am__dry=yes;; \ *) \ for am__flg in $$MAKEFLAGS; do \ case $$am__flg in \ *=*|--*) ;; \ *n*) am__dry=yes; break;; \ esac; \ done;; \ esac; \ test $$am__dry = yes; \ } pkgdatadir = $(datadir)/@PACKAGE@ pkgincludedir = $(includedir)/@PACKAGE@ pkglibdir = $(libdir)/@PACKAGE@ pkglibexecdir = $(libexecdir)/@PACKAGE@ am__cd = CDPATH="$${ZSH_VERSION+.}$(PATH_SEPARATOR)" && cd install_sh_DATA = $(install_sh) -c -m 644 install_sh_PROGRAM = $(install_sh) -c install_sh_SCRIPT = $(install_sh) -c INSTALL_HEADER = $(INSTALL_DATA) transform = $(program_transform_name) NORMAL_INSTALL = : PRE_INSTALL = : POST_INSTALL = : NORMAL_UNINSTALL = : PRE_UNINSTALL = : POST_UNINSTALL = : build_triplet = @build@ host_triplet = @host@ subdir = gnome-vfs/examples/gnome-vfs DIST_COMMON = $(srcdir)/Makefile.am $(srcdir)/Makefile.in ACLOCAL_M4 = $(top_srcdir)/aclocal.m4 am__aclocal_m4_deps = $(top_srcdir)/configure.ac am__configure_deps = $(am__aclocal_m4_deps) $(CONFIGURE_DEPENDENCIES) \ $(ACLOCAL_M4) mkinstalldirs = $(install_sh) -d CONFIG_HEADER = $(top_builddir)/config.h CONFIG_CLEAN_FILES = CONFIG_CLEAN_VPATH_FILES = SOURCES = DIST_SOURCES = am__can_run_installinfo = \ case $$AM_UPDATE_INFO_DIR in \ n|no|NO) false;; \ *) (install-info --version) >/dev/null 2>&1;; \ esac am__vpath_adj_setup = srcdirstrip=`echo "$(srcdir)" | sed 's|.|.|g'`; am__vpath_adj = case $$p in \ $(srcdir)/*) f=`echo "$$p" | sed "s|^$$srcdirstrip/||"`;; \ *) f=$$p;; \ esac; am__strip_dir = f=`echo $$p | sed -e 's|^.*/||'`; am__install_max = 40 am__nobase_strip_setup = \ srcdirstrip=`echo "$(srcdir)" | sed 's/[].[^$$\\*|]/\\\\&/g'` am__nobase_strip = \ for p in $$list; do echo "$$p"; done | sed -e "s|$$srcdirstrip/||" am__nobase_list = $(am__nobase_strip_setup); \ for p in $$list; do echo "$$p $$p"; done | \ sed "s| $$srcdirstrip/| |;"' / .*\//!s/ .*/ ./; s,\( .*\)/[^/]*$$,\1,' | \ $(AWK) 'BEGIN { files["."] = "" } { files[$$2] = files[$$2] " " $$1; \ if (++n[$$2] == $(am__install_max)) \ { print $$2, files[$$2]; n[$$2] = 0; files[$$2] = "" } } \ END { for (dir in files) print dir, files[dir] }' am__base_list = \ sed '$$!N;$$!N;$$!N;$$!N;$$!N;$$!N;$$!N;s/\n/ /g' | \ sed '$$!N;$$!N;$$!N;$$!N;s/\n/ /g' am__uninstall_files_from_dir = { \ test -z "$$files" \ || { test ! -d "$$dir" && test ! -f "$$dir" && test ! -r "$$dir"; } \ || { echo " ( cd '$$dir' && rm -f" $$files ")"; \ $(am__cd) "$$dir" && rm -f $$files; }; \ } am__installdirs = "$(DESTDIR)$(exampledir)" DATA = $(example_DATA) DISTFILES = $(DIST_COMMON) $(DIST_SOURCES) $(TEXINFOS) $(EXTRA_DIST) ACLOCAL = @ACLOCAL@ AG_PKG_CONFIG_PATH = @AG_PKG_CONFIG_PATH@ AMTAR = @AMTAR@ API_VERSION = @API_VERSION@ AR = @AR@ ATK_CFLAGS = @ATK_CFLAGS@ ATK_LIBS = @ATK_LIBS@ AUTOCONF = @AUTOCONF@ AUTOHEADER = @AUTOHEADER@ AUTOMAKE = @AUTOMAKE@ AWK = @AWK@ BONOBO_IDL_DIR = @BONOBO_IDL_DIR@ CANVAS_CFLAGS = @CANVAS_CFLAGS@ CANVAS_LIBS = @CANVAS_LIBS@ CC = @CC@ CCDEPMODE = @CCDEPMODE@ CFLAGS = @CFLAGS@ CORBA_CFLAGS = @CORBA_CFLAGS@ CORBA_LIBS = @CORBA_LIBS@ CPP = @CPP@ CPPFLAGS = @CPPFLAGS@ CYGPATH_W = @CYGPATH_W@ DEFS = @DEFS@ DEPDIR = @DEPDIR@ DLLTOOL = @DLLTOOL@ DSYMUTIL = @DSYMUTIL@ DUMPBIN = @DUMPBIN@ ECHO_C = @ECHO_C@ ECHO_N = @ECHO_N@ ECHO_T = @ECHO_T@ EGREP = @EGREP@ EXEEXT = @EXEEXT@ FGREP = @FGREP@ GCONF_CFLAGS = @GCONF_CFLAGS@ GCONF_LIBS = @GCONF_LIBS@ GDK_CFLAGS = @GDK_CFLAGS@ GDK_LIBS = @GDK_LIBS@ GDK_PIXBUF_CFLAGS = @GDK_PIXBUF_CFLAGS@ GDK_PIXBUF_LIBS = @GDK_PIXBUF_LIBS@ GLIB_CFLAGS = @GLIB_CFLAGS@ GLIB_LIBS = @GLIB_LIBS@ GNOMEUI_DEPRECATION_FLAGS = @GNOMEUI_DEPRECATION_FLAGS@ GNOME_VFS_CFLAGS = @GNOME_VFS_CFLAGS@ GNOME_VFS_DEPRECATED_CFLAGS = @GNOME_VFS_DEPRECATED_CFLAGS@ GNOME_VFS_LIBS = @GNOME_VFS_LIBS@ GOBJECT_CFLAGS = @GOBJECT_CFLAGS@ GOBJECT_LIBS = @GOBJECT_LIBS@ GREP = @GREP@ GTHREAD_CFLAGS = @GTHREAD_CFLAGS@ GTHREAD_LIBS = @GTHREAD_LIBS@ GTK_CFLAGS = @GTK_CFLAGS@ GTK_DEPRECATED_CFLAGS = @GTK_DEPRECATED_CFLAGS@ GTK_LIBS = @GTK_LIBS@ GUILE_CAIRO_CFLAGS = @GUILE_CAIRO_CFLAGS@ GUILE_CAIRO_LIBS = @GUILE_CAIRO_LIBS@ GUILE_CFLAGS = @GUILE_CFLAGS@ GUILE_EFFECTIVE_VERSION = @GUILE_EFFECTIVE_VERSION@ GUILE_GLIB_CFLAGS = @GUILE_GLIB_CFLAGS@ GUILE_GLIB_LIBS = @GUILE_GLIB_LIBS@ GUILE_LIBS = @GUILE_LIBS@ G_WRAP_CFLAGS = @G_WRAP_CFLAGS@ G_WRAP_LIBS = @G_WRAP_LIBS@ G_WRAP_LIB_DIR = @G_WRAP_LIB_DIR@ G_WRAP_MODULE_DIR = @G_WRAP_MODULE_DIR@ INSTALL = @INSTALL@ INSTALL_DATA = @INSTALL_DATA@ INSTALL_PROGRAM = @INSTALL_PROGRAM@ INSTALL_SCRIPT = @INSTALL_SCRIPT@ INSTALL_STRIP_PROGRAM = @INSTALL_STRIP_PROGRAM@ LD = @LD@ LDFLAGS = @LDFLAGS@ LIBGLADE_CFLAGS = @LIBGLADE_CFLAGS@ LIBGLADE_LIBS = @LIBGLADE_LIBS@ LIBGNOMEUI_CFLAGS = @LIBGNOMEUI_CFLAGS@ LIBGNOMEUI_LIBS = @LIBGNOMEUI_LIBS@ LIBGNOME_CFLAGS = @LIBGNOME_CFLAGS@ LIBGNOME_LIBS = @LIBGNOME_LIBS@ LIBOBJS = @LIBOBJS@ LIBS = @LIBS@ LIBTOOL = @LIBTOOL@ LIPO = @LIPO@ LN_S = @LN_S@ LTLIBOBJS = @LTLIBOBJS@ MAKEINFO = @MAKEINFO@ MANIFEST_TOOL = @MANIFEST_TOOL@ MKDIR_P = @MKDIR_P@ NM = @NM@ NMEDIT = @NMEDIT@ OBJDUMP = @OBJDUMP@ OBJEXT = @OBJEXT@ ORBIT_IDL = @ORBIT_IDL@ OTOOL = @OTOOL@ OTOOL64 = @OTOOL64@ PACKAGE = @PACKAGE@ PACKAGE_BUGREPORT = @PACKAGE_BUGREPORT@ PACKAGE_NAME = @PACKAGE_NAME@ PACKAGE_STRING = @PACKAGE_STRING@ PACKAGE_TARNAME = @PACKAGE_TARNAME@ PACKAGE_URL = @PACKAGE_URL@ PACKAGE_VERSION = @PACKAGE_VERSION@ PANGOCAIRO_CFLAGS = @PANGOCAIRO_CFLAGS@ PANGOCAIRO_LIBS = @PANGOCAIRO_LIBS@ PANGO_CFLAGS = @PANGO_CFLAGS@ PANGO_LIBS = @PANGO_LIBS@ PATH_SEPARATOR = @PATH_SEPARATOR@ PKG_CONFIG = @PKG_CONFIG@ PKG_CONFIG_LIBDIR = @PKG_CONFIG_LIBDIR@ PKG_CONFIG_PATH = @PKG_CONFIG_PATH@ RANLIB = @RANLIB@ SED = @SED@ SET_MAKE = @SET_MAKE@ SHELL = @SHELL@ STRIP = @STRIP@ VERSION = @VERSION@ WARN_CFLAGS = @WARN_CFLAGS@ abs_builddir = @abs_builddir@ abs_srcdir = @abs_srcdir@ abs_top_builddir = @abs_top_builddir@ abs_top_srcdir = @abs_top_srcdir@ ac_ct_AR = @ac_ct_AR@ ac_ct_CC = @ac_ct_CC@ ac_ct_DUMPBIN = @ac_ct_DUMPBIN@ am__include = @am__include@ am__leading_dot = @am__leading_dot@ am__quote = @am__quote@ am__tar = @am__tar@ am__untar = @am__untar@ bindir = @bindir@ build = @build@ build_alias = @build_alias@ build_cpu = @build_cpu@ build_os = @build_os@ build_vendor = @build_vendor@ builddir = @builddir@ datadir = @datadir@ datarootdir = @datarootdir@ docdir = @docdir@ dvidir = @dvidir@ exec_prefix = @exec_prefix@ host = @host@ host_alias = @host_alias@ host_cpu = @host_cpu@ host_os = @host_os@ host_vendor = @host_vendor@ htmldir = @htmldir@ includedir = @includedir@ infodir = @infodir@ install_sh = @install_sh@ libdir = @libdir@ libexecdir = @libexecdir@ localedir = @localedir@ localstatedir = @localstatedir@ mandir = @mandir@ mkdir_p = @mkdir_p@ oldincludedir = @oldincludedir@ pdfdir = @pdfdir@ prefix = @prefix@ program_transform_name = @program_transform_name@ psdir = @psdir@ sbindir = @sbindir@ sharedstatedir = @sharedstatedir@ srcdir = @srcdir@ sysconfdir = @sysconfdir@ target_alias = @target_alias@ top_build_prefix = @top_build_prefix@ top_builddir = @top_builddir@ top_srcdir = @top_srcdir@ exampledir = $(pkgdatadir)/examples/gnome-vfs example_DATA = $(wildcard *.scm) EXTRA_DIST = $(example_DATA) all: all-am .SUFFIXES: $(srcdir)/Makefile.in: $(srcdir)/Makefile.am $(am__configure_deps) @for dep in $?; do \ case '$(am__configure_deps)' in \ *$$dep*) \ ( cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh ) \ && { if test -f $@; then exit 0; else break; fi; }; \ exit 1;; \ esac; \ done; \ echo ' cd $(top_srcdir) && $(AUTOMAKE) --gnu gnome-vfs/examples/gnome-vfs/Makefile'; \ $(am__cd) $(top_srcdir) && \ $(AUTOMAKE) --gnu gnome-vfs/examples/gnome-vfs/Makefile .PRECIOUS: Makefile Makefile: $(srcdir)/Makefile.in $(top_builddir)/config.status @case '$?' in \ *config.status*) \ cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh;; \ *) \ echo ' cd $(top_builddir) && $(SHELL) ./config.status $(subdir)/$@ $(am__depfiles_maybe)'; \ cd $(top_builddir) && $(SHELL) ./config.status $(subdir)/$@ $(am__depfiles_maybe);; \ esac; $(top_builddir)/config.status: $(top_srcdir)/configure $(CONFIG_STATUS_DEPENDENCIES) cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh $(top_srcdir)/configure: $(am__configure_deps) cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh $(ACLOCAL_M4): $(am__aclocal_m4_deps) cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh $(am__aclocal_m4_deps): mostlyclean-libtool: -rm -f *.lo clean-libtool: -rm -rf .libs _libs install-exampleDATA: $(example_DATA) @$(NORMAL_INSTALL) @list='$(example_DATA)'; test -n "$(exampledir)" || list=; \ if test -n "$$list"; then \ echo " $(MKDIR_P) '$(DESTDIR)$(exampledir)'"; \ $(MKDIR_P) "$(DESTDIR)$(exampledir)" || exit 1; \ fi; \ for p in $$list; do \ if test -f "$$p"; then d=; else d="$(srcdir)/"; fi; \ echo "$$d$$p"; \ done | $(am__base_list) | \ while read files; do \ echo " $(INSTALL_DATA) $$files '$(DESTDIR)$(exampledir)'"; \ $(INSTALL_DATA) $$files "$(DESTDIR)$(exampledir)" || exit $$?; \ done uninstall-exampleDATA: @$(NORMAL_UNINSTALL) @list='$(example_DATA)'; test -n "$(exampledir)" || list=; \ files=`for p in $$list; do echo $$p; done | sed -e 's|^.*/||'`; \ dir='$(DESTDIR)$(exampledir)'; $(am__uninstall_files_from_dir) tags: TAGS TAGS: ctags: CTAGS CTAGS: distdir: $(DISTFILES) @srcdirstrip=`echo "$(srcdir)" | sed 's/[].[^$$\\*]/\\\\&/g'`; \ topsrcdirstrip=`echo "$(top_srcdir)" | sed 's/[].[^$$\\*]/\\\\&/g'`; \ list='$(DISTFILES)'; \ dist_files=`for file in $$list; do echo $$file; done | \ sed -e "s|^$$srcdirstrip/||;t" \ -e "s|^$$topsrcdirstrip/|$(top_builddir)/|;t"`; \ case $$dist_files in \ */*) $(MKDIR_P) `echo "$$dist_files" | \ sed '/\//!d;s|^|$(distdir)/|;s,/[^/]*$$,,' | \ sort -u` ;; \ esac; \ for file in $$dist_files; do \ if test -f $$file || test -d $$file; then d=.; else d=$(srcdir); fi; \ if test -d $$d/$$file; then \ dir=`echo "/$$file" | sed -e 's,/[^/]*$$,,'`; \ if test -d "$(distdir)/$$file"; then \ find "$(distdir)/$$file" -type d ! -perm -700 -exec chmod u+rwx {} \;; \ fi; \ if test -d $(srcdir)/$$file && test $$d != $(srcdir); then \ cp -fpR $(srcdir)/$$file "$(distdir)$$dir" || exit 1; \ find "$(distdir)/$$file" -type d ! -perm -700 -exec chmod u+rwx {} \;; \ fi; \ cp -fpR $$d/$$file "$(distdir)$$dir" || exit 1; \ else \ test -f "$(distdir)/$$file" \ || cp -p $$d/$$file "$(distdir)/$$file" \ || exit 1; \ fi; \ done check-am: all-am check: check-am all-am: Makefile $(DATA) installdirs: for dir in "$(DESTDIR)$(exampledir)"; do \ test -z "$$dir" || $(MKDIR_P) "$$dir"; \ done install: install-am install-exec: install-exec-am install-data: install-data-am uninstall: uninstall-am install-am: all-am @$(MAKE) $(AM_MAKEFLAGS) install-exec-am install-data-am installcheck: installcheck-am install-strip: if test -z '$(STRIP)'; then \ $(MAKE) $(AM_MAKEFLAGS) INSTALL_PROGRAM="$(INSTALL_STRIP_PROGRAM)" \ install_sh_PROGRAM="$(INSTALL_STRIP_PROGRAM)" INSTALL_STRIP_FLAG=-s \ install; \ else \ $(MAKE) $(AM_MAKEFLAGS) INSTALL_PROGRAM="$(INSTALL_STRIP_PROGRAM)" \ install_sh_PROGRAM="$(INSTALL_STRIP_PROGRAM)" INSTALL_STRIP_FLAG=-s \ "INSTALL_PROGRAM_ENV=STRIPPROG='$(STRIP)'" install; \ fi mostlyclean-generic: clean-generic: distclean-generic: -test -z "$(CONFIG_CLEAN_FILES)" || rm -f $(CONFIG_CLEAN_FILES) -test . = "$(srcdir)" || test -z "$(CONFIG_CLEAN_VPATH_FILES)" || rm -f $(CONFIG_CLEAN_VPATH_FILES) maintainer-clean-generic: @echo "This command is intended for maintainers to use" @echo "it deletes files that may require special tools to rebuild." clean: clean-am clean-am: clean-generic clean-libtool mostlyclean-am distclean: distclean-am -rm -f Makefile distclean-am: clean-am distclean-generic dvi: dvi-am dvi-am: html: html-am html-am: info: info-am info-am: install-data-am: install-exampleDATA install-dvi: install-dvi-am install-dvi-am: install-exec-am: install-html: install-html-am install-html-am: install-info: install-info-am install-info-am: install-man: install-pdf: install-pdf-am install-pdf-am: install-ps: install-ps-am install-ps-am: installcheck-am: maintainer-clean: maintainer-clean-am -rm -f Makefile maintainer-clean-am: distclean-am maintainer-clean-generic mostlyclean: mostlyclean-am mostlyclean-am: mostlyclean-generic mostlyclean-libtool pdf: pdf-am pdf-am: ps: ps-am ps-am: uninstall-am: uninstall-exampleDATA .MAKE: install-am install-strip .PHONY: all all-am check check-am clean clean-generic clean-libtool \ distclean distclean-generic distclean-libtool distdir dvi \ dvi-am html html-am info info-am install install-am \ install-data install-data-am install-dvi install-dvi-am \ install-exampleDATA install-exec install-exec-am install-html \ install-html-am install-info install-info-am install-man \ install-pdf install-pdf-am install-ps install-ps-am \ install-strip installcheck installcheck-am installdirs \ maintainer-clean maintainer-clean-generic mostlyclean \ mostlyclean-generic mostlyclean-libtool pdf pdf-am ps ps-am \ uninstall uninstall-am uninstall-exampleDATA # Tell versions [3.59,3.63) of GNU make to not export all variables. # Otherwise a system limit (for SysV at least) may be exceeded. .NOEXPORT: guile-gnome-platform-2.16.2/gnome-vfs/examples/Makefile.am0000644000175000017500000000002411670374302023736 0ustar00wingowingo00000000000000SUBDIRS = gnome-vfs guile-gnome-platform-2.16.2/gnome-vfs/examples/Makefile.in0000644000175000017500000004527411752511067023771 0ustar00wingowingo00000000000000# Makefile.in generated by automake 1.11.5 from Makefile.am. # @configure_input@ # Copyright (C) 1994, 1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, # 2003, 2004, 2005, 2006, 2007, 2008, 2009, 2010, 2011 Free Software # Foundation, Inc. # This Makefile.in is free software; the Free Software Foundation # gives unlimited permission to copy and/or distribute it, # with or without modifications, as long as this notice is preserved. # This program is distributed in the hope that it will be useful, # but WITHOUT ANY WARRANTY, to the extent permitted by law; without # even the implied warranty of MERCHANTABILITY or FITNESS FOR A # PARTICULAR PURPOSE. @SET_MAKE@ VPATH = @srcdir@ am__make_dryrun = \ { \ am__dry=no; \ case $$MAKEFLAGS in \ *\\[\ \ ]*) \ echo 'am--echo: ; @echo "AM" OK' | $(MAKE) -f - 2>/dev/null \ | grep '^AM OK$$' >/dev/null || am__dry=yes;; \ *) \ for am__flg in $$MAKEFLAGS; do \ case $$am__flg in \ *=*|--*) ;; \ *n*) am__dry=yes; break;; \ esac; \ done;; \ esac; \ test $$am__dry = yes; \ } pkgdatadir = $(datadir)/@PACKAGE@ pkgincludedir = $(includedir)/@PACKAGE@ pkglibdir = $(libdir)/@PACKAGE@ pkglibexecdir = $(libexecdir)/@PACKAGE@ am__cd = CDPATH="$${ZSH_VERSION+.}$(PATH_SEPARATOR)" && cd install_sh_DATA = $(install_sh) -c -m 644 install_sh_PROGRAM = $(install_sh) -c install_sh_SCRIPT = $(install_sh) -c INSTALL_HEADER = $(INSTALL_DATA) transform = $(program_transform_name) NORMAL_INSTALL = : PRE_INSTALL = : POST_INSTALL = : NORMAL_UNINSTALL = : PRE_UNINSTALL = : POST_UNINSTALL = : build_triplet = @build@ host_triplet = @host@ subdir = gnome-vfs/examples DIST_COMMON = $(srcdir)/Makefile.am $(srcdir)/Makefile.in ACLOCAL_M4 = $(top_srcdir)/aclocal.m4 am__aclocal_m4_deps = $(top_srcdir)/configure.ac am__configure_deps = $(am__aclocal_m4_deps) $(CONFIGURE_DEPENDENCIES) \ $(ACLOCAL_M4) mkinstalldirs = $(install_sh) -d CONFIG_HEADER = $(top_builddir)/config.h CONFIG_CLEAN_FILES = CONFIG_CLEAN_VPATH_FILES = SOURCES = DIST_SOURCES = RECURSIVE_TARGETS = all-recursive check-recursive dvi-recursive \ html-recursive info-recursive install-data-recursive \ install-dvi-recursive install-exec-recursive \ install-html-recursive install-info-recursive \ install-pdf-recursive install-ps-recursive install-recursive \ installcheck-recursive installdirs-recursive pdf-recursive \ ps-recursive uninstall-recursive am__can_run_installinfo = \ case $$AM_UPDATE_INFO_DIR in \ n|no|NO) false;; \ *) (install-info --version) >/dev/null 2>&1;; \ esac RECURSIVE_CLEAN_TARGETS = mostlyclean-recursive clean-recursive \ distclean-recursive maintainer-clean-recursive AM_RECURSIVE_TARGETS = $(RECURSIVE_TARGETS:-recursive=) \ $(RECURSIVE_CLEAN_TARGETS:-recursive=) tags TAGS ctags CTAGS \ distdir ETAGS = etags CTAGS = ctags DIST_SUBDIRS = $(SUBDIRS) DISTFILES = $(DIST_COMMON) $(DIST_SOURCES) $(TEXINFOS) $(EXTRA_DIST) am__relativize = \ dir0=`pwd`; \ sed_first='s,^\([^/]*\)/.*$$,\1,'; \ sed_rest='s,^[^/]*/*,,'; \ sed_last='s,^.*/\([^/]*\)$$,\1,'; \ sed_butlast='s,/*[^/]*$$,,'; \ while test -n "$$dir1"; do \ first=`echo "$$dir1" | sed -e "$$sed_first"`; \ if test "$$first" != "."; then \ if test "$$first" = ".."; then \ dir2=`echo "$$dir0" | sed -e "$$sed_last"`/"$$dir2"; \ dir0=`echo "$$dir0" | sed -e "$$sed_butlast"`; \ else \ first2=`echo "$$dir2" | sed -e "$$sed_first"`; \ if test "$$first2" = "$$first"; then \ dir2=`echo "$$dir2" | sed -e "$$sed_rest"`; \ else \ dir2="../$$dir2"; \ fi; \ dir0="$$dir0"/"$$first"; \ fi; \ fi; \ dir1=`echo "$$dir1" | sed -e "$$sed_rest"`; \ done; \ reldir="$$dir2" ACLOCAL = @ACLOCAL@ AG_PKG_CONFIG_PATH = @AG_PKG_CONFIG_PATH@ AMTAR = @AMTAR@ API_VERSION = @API_VERSION@ AR = @AR@ ATK_CFLAGS = @ATK_CFLAGS@ ATK_LIBS = @ATK_LIBS@ AUTOCONF = @AUTOCONF@ AUTOHEADER = @AUTOHEADER@ AUTOMAKE = @AUTOMAKE@ AWK = @AWK@ BONOBO_IDL_DIR = @BONOBO_IDL_DIR@ CANVAS_CFLAGS = @CANVAS_CFLAGS@ CANVAS_LIBS = @CANVAS_LIBS@ CC = @CC@ CCDEPMODE = @CCDEPMODE@ CFLAGS = @CFLAGS@ CORBA_CFLAGS = @CORBA_CFLAGS@ CORBA_LIBS = @CORBA_LIBS@ CPP = @CPP@ CPPFLAGS = @CPPFLAGS@ CYGPATH_W = @CYGPATH_W@ DEFS = @DEFS@ DEPDIR = @DEPDIR@ DLLTOOL = @DLLTOOL@ DSYMUTIL = @DSYMUTIL@ DUMPBIN = @DUMPBIN@ ECHO_C = @ECHO_C@ ECHO_N = @ECHO_N@ ECHO_T = @ECHO_T@ EGREP = @EGREP@ EXEEXT = @EXEEXT@ FGREP = @FGREP@ GCONF_CFLAGS = @GCONF_CFLAGS@ GCONF_LIBS = @GCONF_LIBS@ GDK_CFLAGS = @GDK_CFLAGS@ GDK_LIBS = @GDK_LIBS@ GDK_PIXBUF_CFLAGS = @GDK_PIXBUF_CFLAGS@ GDK_PIXBUF_LIBS = @GDK_PIXBUF_LIBS@ GLIB_CFLAGS = @GLIB_CFLAGS@ GLIB_LIBS = @GLIB_LIBS@ GNOMEUI_DEPRECATION_FLAGS = @GNOMEUI_DEPRECATION_FLAGS@ GNOME_VFS_CFLAGS = @GNOME_VFS_CFLAGS@ GNOME_VFS_DEPRECATED_CFLAGS = @GNOME_VFS_DEPRECATED_CFLAGS@ GNOME_VFS_LIBS = @GNOME_VFS_LIBS@ GOBJECT_CFLAGS = @GOBJECT_CFLAGS@ GOBJECT_LIBS = @GOBJECT_LIBS@ GREP = @GREP@ GTHREAD_CFLAGS = @GTHREAD_CFLAGS@ GTHREAD_LIBS = @GTHREAD_LIBS@ GTK_CFLAGS = @GTK_CFLAGS@ GTK_DEPRECATED_CFLAGS = @GTK_DEPRECATED_CFLAGS@ GTK_LIBS = @GTK_LIBS@ GUILE_CAIRO_CFLAGS = @GUILE_CAIRO_CFLAGS@ GUILE_CAIRO_LIBS = @GUILE_CAIRO_LIBS@ GUILE_CFLAGS = @GUILE_CFLAGS@ GUILE_EFFECTIVE_VERSION = @GUILE_EFFECTIVE_VERSION@ GUILE_GLIB_CFLAGS = @GUILE_GLIB_CFLAGS@ GUILE_GLIB_LIBS = @GUILE_GLIB_LIBS@ GUILE_LIBS = @GUILE_LIBS@ G_WRAP_CFLAGS = @G_WRAP_CFLAGS@ G_WRAP_LIBS = @G_WRAP_LIBS@ G_WRAP_LIB_DIR = @G_WRAP_LIB_DIR@ G_WRAP_MODULE_DIR = @G_WRAP_MODULE_DIR@ INSTALL = @INSTALL@ INSTALL_DATA = @INSTALL_DATA@ INSTALL_PROGRAM = @INSTALL_PROGRAM@ INSTALL_SCRIPT = @INSTALL_SCRIPT@ INSTALL_STRIP_PROGRAM = @INSTALL_STRIP_PROGRAM@ LD = @LD@ LDFLAGS = @LDFLAGS@ LIBGLADE_CFLAGS = @LIBGLADE_CFLAGS@ LIBGLADE_LIBS = @LIBGLADE_LIBS@ LIBGNOMEUI_CFLAGS = @LIBGNOMEUI_CFLAGS@ LIBGNOMEUI_LIBS = @LIBGNOMEUI_LIBS@ LIBGNOME_CFLAGS = @LIBGNOME_CFLAGS@ LIBGNOME_LIBS = @LIBGNOME_LIBS@ LIBOBJS = @LIBOBJS@ LIBS = @LIBS@ LIBTOOL = @LIBTOOL@ LIPO = @LIPO@ LN_S = @LN_S@ LTLIBOBJS = @LTLIBOBJS@ MAKEINFO = @MAKEINFO@ MANIFEST_TOOL = @MANIFEST_TOOL@ MKDIR_P = @MKDIR_P@ NM = @NM@ NMEDIT = @NMEDIT@ OBJDUMP = @OBJDUMP@ OBJEXT = @OBJEXT@ ORBIT_IDL = @ORBIT_IDL@ OTOOL = @OTOOL@ OTOOL64 = @OTOOL64@ PACKAGE = @PACKAGE@ PACKAGE_BUGREPORT = @PACKAGE_BUGREPORT@ PACKAGE_NAME = @PACKAGE_NAME@ PACKAGE_STRING = @PACKAGE_STRING@ PACKAGE_TARNAME = @PACKAGE_TARNAME@ PACKAGE_URL = @PACKAGE_URL@ PACKAGE_VERSION = @PACKAGE_VERSION@ PANGOCAIRO_CFLAGS = @PANGOCAIRO_CFLAGS@ PANGOCAIRO_LIBS = @PANGOCAIRO_LIBS@ PANGO_CFLAGS = @PANGO_CFLAGS@ PANGO_LIBS = @PANGO_LIBS@ PATH_SEPARATOR = @PATH_SEPARATOR@ PKG_CONFIG = @PKG_CONFIG@ PKG_CONFIG_LIBDIR = @PKG_CONFIG_LIBDIR@ PKG_CONFIG_PATH = @PKG_CONFIG_PATH@ RANLIB = @RANLIB@ SED = @SED@ SET_MAKE = @SET_MAKE@ SHELL = @SHELL@ STRIP = @STRIP@ VERSION = @VERSION@ WARN_CFLAGS = @WARN_CFLAGS@ abs_builddir = @abs_builddir@ abs_srcdir = @abs_srcdir@ abs_top_builddir = @abs_top_builddir@ abs_top_srcdir = @abs_top_srcdir@ ac_ct_AR = @ac_ct_AR@ ac_ct_CC = @ac_ct_CC@ ac_ct_DUMPBIN = @ac_ct_DUMPBIN@ am__include = @am__include@ am__leading_dot = @am__leading_dot@ am__quote = @am__quote@ am__tar = @am__tar@ am__untar = @am__untar@ bindir = @bindir@ build = @build@ build_alias = @build_alias@ build_cpu = @build_cpu@ build_os = @build_os@ build_vendor = @build_vendor@ builddir = @builddir@ datadir = @datadir@ datarootdir = @datarootdir@ docdir = @docdir@ dvidir = @dvidir@ exec_prefix = @exec_prefix@ host = @host@ host_alias = @host_alias@ host_cpu = @host_cpu@ host_os = @host_os@ host_vendor = @host_vendor@ htmldir = @htmldir@ includedir = @includedir@ infodir = @infodir@ install_sh = @install_sh@ libdir = @libdir@ libexecdir = @libexecdir@ localedir = @localedir@ localstatedir = @localstatedir@ mandir = @mandir@ mkdir_p = @mkdir_p@ oldincludedir = @oldincludedir@ pdfdir = @pdfdir@ prefix = @prefix@ program_transform_name = @program_transform_name@ psdir = @psdir@ sbindir = @sbindir@ sharedstatedir = @sharedstatedir@ srcdir = @srcdir@ sysconfdir = @sysconfdir@ target_alias = @target_alias@ top_build_prefix = @top_build_prefix@ top_builddir = @top_builddir@ top_srcdir = @top_srcdir@ SUBDIRS = gnome-vfs all: all-recursive .SUFFIXES: $(srcdir)/Makefile.in: $(srcdir)/Makefile.am $(am__configure_deps) @for dep in $?; do \ case '$(am__configure_deps)' in \ *$$dep*) \ ( cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh ) \ && { if test -f $@; then exit 0; else break; fi; }; \ exit 1;; \ esac; \ done; \ echo ' cd $(top_srcdir) && $(AUTOMAKE) --gnu gnome-vfs/examples/Makefile'; \ $(am__cd) $(top_srcdir) && \ $(AUTOMAKE) --gnu gnome-vfs/examples/Makefile .PRECIOUS: Makefile Makefile: $(srcdir)/Makefile.in $(top_builddir)/config.status @case '$?' in \ *config.status*) \ cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh;; \ *) \ echo ' cd $(top_builddir) && $(SHELL) ./config.status $(subdir)/$@ $(am__depfiles_maybe)'; \ cd $(top_builddir) && $(SHELL) ./config.status $(subdir)/$@ $(am__depfiles_maybe);; \ esac; $(top_builddir)/config.status: $(top_srcdir)/configure $(CONFIG_STATUS_DEPENDENCIES) cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh $(top_srcdir)/configure: $(am__configure_deps) cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh $(ACLOCAL_M4): $(am__aclocal_m4_deps) cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh $(am__aclocal_m4_deps): mostlyclean-libtool: -rm -f *.lo clean-libtool: -rm -rf .libs _libs # This directory's subdirectories are mostly independent; you can cd # into them and run `make' without going through this Makefile. # To change the values of `make' variables: instead of editing Makefiles, # (1) if the variable is set in `config.status', edit `config.status' # (which will cause the Makefiles to be regenerated when you run `make'); # (2) otherwise, pass the desired values on the `make' command line. $(RECURSIVE_TARGETS): @fail= failcom='exit 1'; \ for f in x $$MAKEFLAGS; do \ case $$f in \ *=* | --[!k]*);; \ *k*) failcom='fail=yes';; \ esac; \ done; \ dot_seen=no; \ target=`echo $@ | sed s/-recursive//`; \ list='$(SUBDIRS)'; for subdir in $$list; do \ echo "Making $$target in $$subdir"; \ if test "$$subdir" = "."; then \ dot_seen=yes; \ local_target="$$target-am"; \ else \ local_target="$$target"; \ fi; \ ($(am__cd) $$subdir && $(MAKE) $(AM_MAKEFLAGS) $$local_target) \ || eval $$failcom; \ done; \ if test "$$dot_seen" = "no"; then \ $(MAKE) $(AM_MAKEFLAGS) "$$target-am" || exit 1; \ fi; test -z "$$fail" $(RECURSIVE_CLEAN_TARGETS): @fail= failcom='exit 1'; \ for f in x $$MAKEFLAGS; do \ case $$f in \ *=* | --[!k]*);; \ *k*) failcom='fail=yes';; \ esac; \ done; \ dot_seen=no; \ case "$@" in \ distclean-* | maintainer-clean-*) list='$(DIST_SUBDIRS)' ;; \ *) list='$(SUBDIRS)' ;; \ esac; \ rev=''; for subdir in $$list; do \ if test "$$subdir" = "."; then :; else \ rev="$$subdir $$rev"; \ fi; \ done; \ rev="$$rev ."; \ target=`echo $@ | sed s/-recursive//`; \ for subdir in $$rev; do \ echo "Making $$target in $$subdir"; \ if test "$$subdir" = "."; then \ local_target="$$target-am"; \ else \ local_target="$$target"; \ fi; \ ($(am__cd) $$subdir && $(MAKE) $(AM_MAKEFLAGS) $$local_target) \ || eval $$failcom; \ done && test -z "$$fail" tags-recursive: list='$(SUBDIRS)'; for subdir in $$list; do \ test "$$subdir" = . || ($(am__cd) $$subdir && $(MAKE) $(AM_MAKEFLAGS) tags); \ done ctags-recursive: list='$(SUBDIRS)'; for subdir in $$list; do \ test "$$subdir" = . || ($(am__cd) $$subdir && $(MAKE) $(AM_MAKEFLAGS) ctags); \ done ID: $(HEADERS) $(SOURCES) $(LISP) $(TAGS_FILES) list='$(SOURCES) $(HEADERS) $(LISP) $(TAGS_FILES)'; \ unique=`for i in $$list; do \ if test -f "$$i"; then echo $$i; else echo $(srcdir)/$$i; fi; \ done | \ $(AWK) '{ files[$$0] = 1; nonempty = 1; } \ END { if (nonempty) { for (i in files) print i; }; }'`; \ mkid -fID $$unique tags: TAGS TAGS: tags-recursive $(HEADERS) $(SOURCES) $(TAGS_DEPENDENCIES) \ $(TAGS_FILES) $(LISP) set x; \ here=`pwd`; \ if ($(ETAGS) --etags-include --version) >/dev/null 2>&1; then \ include_option=--etags-include; \ empty_fix=.; \ else \ include_option=--include; \ empty_fix=; \ fi; \ list='$(SUBDIRS)'; for subdir in $$list; do \ if test "$$subdir" = .; then :; else \ test ! -f $$subdir/TAGS || \ set "$$@" "$$include_option=$$here/$$subdir/TAGS"; \ fi; \ done; \ list='$(SOURCES) $(HEADERS) $(LISP) $(TAGS_FILES)'; \ unique=`for i in $$list; do \ if test -f "$$i"; then echo $$i; else echo $(srcdir)/$$i; fi; \ done | \ $(AWK) '{ files[$$0] = 1; nonempty = 1; } \ END { if (nonempty) { for (i in files) print i; }; }'`; \ shift; \ if test -z "$(ETAGS_ARGS)$$*$$unique"; then :; else \ test -n "$$unique" || unique=$$empty_fix; \ if test $$# -gt 0; then \ $(ETAGS) $(ETAGSFLAGS) $(AM_ETAGSFLAGS) $(ETAGS_ARGS) \ "$$@" $$unique; \ else \ $(ETAGS) $(ETAGSFLAGS) $(AM_ETAGSFLAGS) $(ETAGS_ARGS) \ $$unique; \ fi; \ fi ctags: CTAGS CTAGS: ctags-recursive $(HEADERS) $(SOURCES) $(TAGS_DEPENDENCIES) \ $(TAGS_FILES) $(LISP) list='$(SOURCES) $(HEADERS) $(LISP) $(TAGS_FILES)'; \ unique=`for i in $$list; do \ if test -f "$$i"; then echo $$i; else echo $(srcdir)/$$i; fi; \ done | \ $(AWK) '{ files[$$0] = 1; nonempty = 1; } \ END { if (nonempty) { for (i in files) print i; }; }'`; \ test -z "$(CTAGS_ARGS)$$unique" \ || $(CTAGS) $(CTAGSFLAGS) $(AM_CTAGSFLAGS) $(CTAGS_ARGS) \ $$unique GTAGS: here=`$(am__cd) $(top_builddir) && pwd` \ && $(am__cd) $(top_srcdir) \ && gtags -i $(GTAGS_ARGS) "$$here" distclean-tags: -rm -f TAGS ID GTAGS GRTAGS GSYMS GPATH tags distdir: $(DISTFILES) @srcdirstrip=`echo "$(srcdir)" | sed 's/[].[^$$\\*]/\\\\&/g'`; \ topsrcdirstrip=`echo "$(top_srcdir)" | sed 's/[].[^$$\\*]/\\\\&/g'`; \ list='$(DISTFILES)'; \ dist_files=`for file in $$list; do echo $$file; done | \ sed -e "s|^$$srcdirstrip/||;t" \ -e "s|^$$topsrcdirstrip/|$(top_builddir)/|;t"`; \ case $$dist_files in \ */*) $(MKDIR_P) `echo "$$dist_files" | \ sed '/\//!d;s|^|$(distdir)/|;s,/[^/]*$$,,' | \ sort -u` ;; \ esac; \ for file in $$dist_files; do \ if test -f $$file || test -d $$file; then d=.; else d=$(srcdir); fi; \ if test -d $$d/$$file; then \ dir=`echo "/$$file" | sed -e 's,/[^/]*$$,,'`; \ if test -d "$(distdir)/$$file"; then \ find "$(distdir)/$$file" -type d ! -perm -700 -exec chmod u+rwx {} \;; \ fi; \ if test -d $(srcdir)/$$file && test $$d != $(srcdir); then \ cp -fpR $(srcdir)/$$file "$(distdir)$$dir" || exit 1; \ find "$(distdir)/$$file" -type d ! -perm -700 -exec chmod u+rwx {} \;; \ fi; \ cp -fpR $$d/$$file "$(distdir)$$dir" || exit 1; \ else \ test -f "$(distdir)/$$file" \ || cp -p $$d/$$file "$(distdir)/$$file" \ || exit 1; \ fi; \ done @list='$(DIST_SUBDIRS)'; for subdir in $$list; do \ if test "$$subdir" = .; then :; else \ $(am__make_dryrun) \ || test -d "$(distdir)/$$subdir" \ || $(MKDIR_P) "$(distdir)/$$subdir" \ || exit 1; \ dir1=$$subdir; dir2="$(distdir)/$$subdir"; \ $(am__relativize); \ new_distdir=$$reldir; \ dir1=$$subdir; dir2="$(top_distdir)"; \ $(am__relativize); \ new_top_distdir=$$reldir; \ echo " (cd $$subdir && $(MAKE) $(AM_MAKEFLAGS) top_distdir="$$new_top_distdir" distdir="$$new_distdir" \\"; \ echo " am__remove_distdir=: am__skip_length_check=: am__skip_mode_fix=: distdir)"; \ ($(am__cd) $$subdir && \ $(MAKE) $(AM_MAKEFLAGS) \ top_distdir="$$new_top_distdir" \ distdir="$$new_distdir" \ am__remove_distdir=: \ am__skip_length_check=: \ am__skip_mode_fix=: \ distdir) \ || exit 1; \ fi; \ done check-am: all-am check: check-recursive all-am: Makefile installdirs: installdirs-recursive installdirs-am: install: install-recursive install-exec: install-exec-recursive install-data: install-data-recursive uninstall: uninstall-recursive install-am: all-am @$(MAKE) $(AM_MAKEFLAGS) install-exec-am install-data-am installcheck: installcheck-recursive install-strip: if test -z '$(STRIP)'; then \ $(MAKE) $(AM_MAKEFLAGS) INSTALL_PROGRAM="$(INSTALL_STRIP_PROGRAM)" \ install_sh_PROGRAM="$(INSTALL_STRIP_PROGRAM)" INSTALL_STRIP_FLAG=-s \ install; \ else \ $(MAKE) $(AM_MAKEFLAGS) INSTALL_PROGRAM="$(INSTALL_STRIP_PROGRAM)" \ install_sh_PROGRAM="$(INSTALL_STRIP_PROGRAM)" INSTALL_STRIP_FLAG=-s \ "INSTALL_PROGRAM_ENV=STRIPPROG='$(STRIP)'" install; \ fi mostlyclean-generic: clean-generic: distclean-generic: -test -z "$(CONFIG_CLEAN_FILES)" || rm -f $(CONFIG_CLEAN_FILES) -test . = "$(srcdir)" || test -z "$(CONFIG_CLEAN_VPATH_FILES)" || rm -f $(CONFIG_CLEAN_VPATH_FILES) maintainer-clean-generic: @echo "This command is intended for maintainers to use" @echo "it deletes files that may require special tools to rebuild." clean: clean-recursive clean-am: clean-generic clean-libtool mostlyclean-am distclean: distclean-recursive -rm -f Makefile distclean-am: clean-am distclean-generic distclean-tags dvi: dvi-recursive dvi-am: html: html-recursive html-am: info: info-recursive info-am: install-data-am: install-dvi: install-dvi-recursive install-dvi-am: install-exec-am: install-html: install-html-recursive install-html-am: install-info: install-info-recursive install-info-am: install-man: install-pdf: install-pdf-recursive install-pdf-am: install-ps: install-ps-recursive install-ps-am: installcheck-am: maintainer-clean: maintainer-clean-recursive -rm -f Makefile maintainer-clean-am: distclean-am maintainer-clean-generic mostlyclean: mostlyclean-recursive mostlyclean-am: mostlyclean-generic mostlyclean-libtool pdf: pdf-recursive pdf-am: ps: ps-recursive ps-am: uninstall-am: .MAKE: $(RECURSIVE_CLEAN_TARGETS) $(RECURSIVE_TARGETS) ctags-recursive \ install-am install-strip tags-recursive .PHONY: $(RECURSIVE_CLEAN_TARGETS) $(RECURSIVE_TARGETS) CTAGS GTAGS \ all all-am check check-am clean clean-generic clean-libtool \ ctags ctags-recursive distclean distclean-generic \ distclean-libtool distclean-tags distdir dvi dvi-am html \ html-am info info-am install install-am install-data \ install-data-am install-dvi install-dvi-am install-exec \ install-exec-am install-html install-html-am install-info \ install-info-am install-man install-pdf install-pdf-am \ install-ps install-ps-am install-strip installcheck \ installcheck-am installdirs installdirs-am maintainer-clean \ maintainer-clean-generic mostlyclean mostlyclean-generic \ mostlyclean-libtool pdf pdf-am ps ps-am tags tags-recursive \ uninstall uninstall-am # Tell versions [3.59,3.63) of GNU make to not export all variables. # Otherwise a system limit (for SysV at least) may be exceeded. .NOEXPORT: guile-gnome-platform-2.16.2/gnome-vfs/doc/0000755000175000017500000000000011752546505020644 5ustar00wingowingo00000000000000guile-gnome-platform-2.16.2/gnome-vfs/doc/undocumented.texi0000644000175000017500000000656011670374302024231 0ustar00wingowingo00000000000000 @c %start of fragment @node Undocumented @chapter Undocumented The following symbols, if any, have not been properly documented. @section (gnome gw gnome-vfs) @defvar gnome-vfs-ace-add-perm @end defvar @defvar gnome-vfs-ace-check-perm @end defvar @defvar gnome-vfs-ace-copy-perms @end defvar @defvar gnome-vfs-ace-del-perm @end defvar @defvar gnome-vfs-ace-equal @end defvar @defvar gnome-vfs-ace-get-id @end defvar @defvar gnome-vfs-ace-get-inherit @end defvar @defvar gnome-vfs-ace-get-kind @end defvar @defvar gnome-vfs-ace-get-negative @end defvar @defvar gnome-vfs-ace-set-id @end defvar @defvar gnome-vfs-ace-set-inherit @end defvar @defvar gnome-vfs-ace-set-kind @end defvar @defvar gnome-vfs-ace-set-negative @end defvar @defvar gnome-vfs-acl-clear @end defvar @defun gnome-vfs-acl-get-ace-list @end defun @defvar gnome-vfs-acl-kind-to-string @end defvar @defvar gnome-vfs-acl-new @end defvar @defvar gnome-vfs-acl-perm-to-string @end defvar @defvar gnome-vfs-acl-set @end defvar @defvar gnome-vfs-acl-unset @end defvar @defvar gnome-vfs-context-check-cancellation-current @end defvar @defvar gnome-vfs-drive-needs-eject @end defvar @defvar gnome-vfs-escape-host-and-path-string @end defvar @defvar gnome-vfs-format-file-size-for-display @end defvar @defun gnome-vfs-get-default-browse-domains @end defun @defvar gnome-vfs-get-mime-type-from-file-data @end defvar @defvar gnome-vfs-get-supertype-from-mime-type @end defvar @defvar gnome-vfs-init @end defvar @defvar gnome-vfs-initialized @end defvar @defvar gnome-vfs-is-executable-command-string @end defvar @defvar gnome-vfs-make-uri-canonical-strip-fragment @end defvar @defvar gnome-vfs-make-uri-from-input-with-dirs @end defvar @defvar gnome-vfs-make-uri-from-input-with-trailing-ws @end defvar @defvar gnome-vfs-mime-application-get-binary-name @end defvar @defvar gnome-vfs-mime-application-get-desktop-file-path @end defvar @defvar gnome-vfs-mime-application-get-desktop-id @end defvar @defvar gnome-vfs-mime-application-get-generic-name @end defvar @defvar gnome-vfs-mime-application-get-startup-wm-class @end defvar @defvar gnome-vfs-mime-application-new-from-desktop-id @end defvar @defvar gnome-vfs-mime-application-requires-terminal @end defvar @defvar gnome-vfs-mime-application-supports-startup-notification @end defvar @defvar gnome-vfs-mime-application-supports-uris @end defvar @defun gnome-vfs-mime-get-all-applications-for-uri @end defun @defvar gnome-vfs-mime-get-default-application @end defvar @defvar gnome-vfs-mime-get-default-application-for-uri @end defvar @defvar gnome-vfs-mime-type-from-name-or-default @end defvar @defvar gnome-vfs-mime-type-get-equivalence @end defvar @defvar gnome-vfs-module-callback-pop @end defvar @defvar gnome-vfs-shutdown @end defvar @defvar gnome-vfs-unescape-string-for-display @end defvar @defvar gnome-vfs-uri-extract-short-path-name @end defvar @defvar gnome-vfs-uri-get-fragment-identifier @end defvar @defvar gnome-vfs-uri-make-full-from-relative @end defvar @defvar gnome-vfs-volume-get-filesystem-type @end defvar @defun gnome-vfs-volume-monitor-get-connected-drives @end defun @defvar gnome-vfs-volume-monitor-get-drive-by-id @end defvar @defun gnome-vfs-volume-monitor-get-mounted-volumes @end defun @defvar gnome-vfs-volume-monitor-get-volume-by-id @end defvar @defvar gnome-vfs-volume-monitor-get-volume-for-path @end defvar @c %end of fragment guile-gnome-platform-2.16.2/gnome-vfs/doc/section-gnome-vfs-uri.xml.texi0000644000175000017500000000067411670374302026476 0ustar00wingowingo00000000000000 @c %start of fragment @node GnomeVFSURI @chapter GnomeVFSURI A uniform resource identifier. @section Overview A @code{} is a semi-textual representation of a uniform resource identifier. It contains the information about a resource location encoded as canononicalized text, but also holds extra information about the context in which the URI is used. @section Usage @include defuns-gnome-vfs-uri.xml.texi @c %end of fragment guile-gnome-platform-2.16.2/gnome-vfs/doc/defuns-gnome-vfs-result.xml.texi0000644000175000017500000000346711670374302027040 0ustar00wingowingo00000000000000 @c %start of fragment @deffn Function gnome-vfs-result-to-string (res@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{mchars}) Returns a string representing @var{result}, useful for debugging purposes, but probably not appropriate for passing to the user. @table @var @item result a @code{} to convert to a string. @item ret a string representing @var{result}. @end table @end deffn @deffn Function gnome-vfs-result-from-errno-code (errno_code@tie{}@code{int}) @result{}@tie{} (ret@tie{}@code{}) Converts a system errno value to a @code{}. @table @var @item errno-code integer of the same type as the system "errno". @item ret a @code{} equivalent to @var{errno-code}. @end table @end deffn @deffn Function gnome-vfs-result-from-errno @result{}@tie{} (ret@tie{}@code{}) Converts the system errno to a @code{}. @table @var @item ret a @code{} equivalent to the current system errno. @end table @end deffn @deffn Function gnome-vfs-result-from-h-errno @result{}@tie{} (ret@tie{}@code{}) Converts the system "h_errno" to a @code{} (h_errno represents errors accessing and finding internet hosts) @table @var @item ret a @code{} equivalent to the current system "h_errno". @end table @end deffn @deffn Function gnome-vfs-result-from-h-errno-val (h_errno_code@tie{}@code{int}) @result{}@tie{} (ret@tie{}@code{}) Converts the error code @var{h-errno-code} into a @code{}. @table @var @item h-errno-code an integer representing the same error code as the system h_errno. @item ret The @code{} equivalent to the @var{h-errno-code}. @end table @end deffn @c %end of fragment guile-gnome-platform-2.16.2/gnome-vfs/doc/section-gnome-vfs-mime.xml.texi0000644000175000017500000000034411670374302026620 0ustar00wingowingo00000000000000 @c %start of fragment @node MIME typing @chapter MIME typing functions to get a mime-type for a file using its name or its content @section Overview @section Usage @include defuns-gnome-vfs-mime.xml.texi @c %end of fragment guile-gnome-platform-2.16.2/gnome-vfs/doc/section-gnome-vfs-utils.xml.texi0000644000175000017500000000032611670374302027031 0ustar00wingowingo00000000000000 @c %start of fragment @node gnome-vfs-utils @chapter gnome-vfs-utils various utilities functions to manipulate uris @section Overview @section Usage @include defuns-gnome-vfs-utils.xml.texi @c %end of fragment guile-gnome-platform-2.16.2/gnome-vfs/doc/section-gnome-vfs-file-basic-ops.xml.texi0000644000175000017500000000127111670374302030466 0ustar00wingowingo00000000000000 @c %start of fragment @node Basic File Operations @chapter Basic File Operations Essential VFS operations. This includes creating, moving and deleting files, opening and closing file handles. @section Overview GnomeVFS file operations are, for the most part, patterned after their POSIX equivalents, with the systematic difference that they accept URIs rather than paths on the local filesystem. This makes them easy to learn as if you are already familiar with basic commands such as @code{open}, @code{seek}, @code{write}, etc you will feel right at home with GnomeVFS after learning a little about URIs. @section Usage @include defuns-gnome-vfs-file-basic-ops.xml.texi @c %end of fragment guile-gnome-platform-2.16.2/gnome-vfs/doc/defuns-gnome-vfs-file-trunc-ops.xml.texi0000644000175000017500000000166211670374302030364 0ustar00wingowingo00000000000000 @c %start of fragment @deffn Function gnome-vfs-truncate (text_uri@tie{}@code{mchars}) (length@tie{}@code{unsigned-int64}) @result{}@tie{} (ret@tie{}@code{}) Truncate the file at @var{text-uri} to @var{length} bytes. @table @var @item text-uri string representing the file to be truncated. @item length length of the new file at @var{text-uri}. @item ret an integer representing the result of the operation. @end table @end deffn @deffn Function gnome-vfs-truncate-uri (uri@tie{}@code{}) (length@tie{}@code{unsigned-int64}) @result{}@tie{} (ret@tie{}@code{}) Truncate the file at @var{uri} to be only @var{length} bytes. Data past @var{length} bytes will be discarded. @table @var @item uri uri of the file to be truncated. @item length length of the new file at @var{uri}. @item ret an integer representing the result of the operation. @end table @end deffn @c %end of fragment guile-gnome-platform-2.16.2/gnome-vfs/doc/section-gnome-vfs-volume-monitor.xml.texi0000644000175000017500000000034011670374302030661 0ustar00wingowingo00000000000000 @c %start of fragment @node GnomeVFSVolumeMonitor @chapter GnomeVFSVolumeMonitor Monitors volume mounts and unmounts @section Overview @section Usage @include defuns-gnome-vfs-volume-monitor.xml.texi @c %end of fragment guile-gnome-platform-2.16.2/gnome-vfs/doc/defuns-gnome-vfs-drive.xml.texi0000644000175000017500000001752711670374302026635 0ustar00wingowingo00000000000000 @c %start of fragment @deftp Class Derives from @code{}. This class defines no direct slots. @end deftp @defop Signal volume-mounted (arg0@tie{}@code{}) This signal is emitted after the @code{}@var{volume} has been mounted. When the @var{volume} is mounted, it is added to the @var{drive}'s list of mounted volumes, which can be queried using @code{gnome-vfs-drive-get-mounted-volumes}. It is also added to the list of the @code{}'s list of mounted volumes, which can be queried using @code{gnome-vfs-volume-monitor-get-mounted-volumes}. @end defop @defop Signal volume-pre-unmount (arg0@tie{}@code{}) This signal is emitted when the @code{}@var{volume}, which has been present in the @code{}@var{drive}, is about to be unmounted. When the @var{volume} is unmounted, it is removed from the @var{drive}'s list of mounted volumes, which can be queried using @code{gnome-vfs-drive-get-mounted-volumes}. It is also removed from the @code{}'s list of mounted volumes, which can be queried using @code{gnome-vfs-volume-monitor-get-mounted-volumes}. When a client application receives this signal, it must free all resources associated with the @var{volume}, for instance cancel all pending file operations on the @var{volume}, and cancel all pending file monitors using @code{gnome-vfs-monitor-cancel}. @end defop @defop Signal volume-unmounted (arg0@tie{}@code{}) This signal is emitted after the @code{}@var{volume}, which had been present in the @code{}@var{drive}, has been unmounted. When the @var{volume} is unmounted, it is removed from the @var{drive}'s list of mounted volumes, which can be queried using @code{gnome-vfs-drive-get-mounted-volumes}. It is also removed from the @code{}'s list of mounted volumes, which can be queried using @code{gnome-vfs-volume-monitor-get-mounted-volumes}. @end defop @deffn Function gnome-vfs-drive-compare (self@tie{}@code{}) (b@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{int}) @deffnx Method compare Compares two @code{} objects @var{a} and @var{b}. Two @code{} objects referring to different drives are guaranteed to not return 0 when comparing them, if they refer to the same drive 0 is returned. The resulting @code{} should be used to determine the order in which @var{a} and @var{b} are displayed in graphical user interfces. The comparison algorithm first of all peeks the device type of @var{a} and @var{b}, they will be sorted in the following order: @itemize @item @item @item @item @item @end itemize Magnetic and opto-magnetic drives (ZIP, floppy) Optical drives (CD, DVD) External drives (USB sticks, music players) Mounted hard disks< Other drives< Afterwards, the display name of @var{a} and @var{b} is compared using a locale-sensitive sorting algorithm, which involves @code{g-utf8-collate-key}. If two drives have the same display name, their unique ID is compared which can be queried using @code{gnome-vfs-drive-get-id}. @table @var @item a a @code{}. @item b a @code{}. @item ret 0 if the drives refer to the same @var{gnome-vfs-drive}, a negative value if @var{a} should be displayed before @var{b}, or a positive value if @var{a} should be displayed after @var{b}. @end table Since 2.6 @end deffn @deffn Function gnome-vfs-drive-get-activation-uri (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{mchars}) @deffnx Method get-activation-uri Returns the activation URI of a @code{}. The returned URI usually refers to a valid location. You can check the validity of the location by calling @code{gnome-vfs-uri-new} with the URI, and checking whether the return value is not @samp{@code{#f}}. @table @var @item drive a @code{}. @item ret a newly allocated string for the activation uri of the @code{}. @end table Since 2.6 @end deffn @deffn Function gnome-vfs-drive-get-device-path (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{mchars}) @deffnx Method get-device-path Returns the device path of a @code{}. For HAL drives, this returns the value of the drives's "block.device" key. For UNIX mounts, it returns the @samp{mntent}'s @samp{mnt_fsname} entry. Otherwise, it returns @samp{@code{#f}}. @table @var @item drive a @code{}. @item ret a newly allocated string for the device path of the @code{}. @end table Since 2.6 @end deffn @deffn Function gnome-vfs-drive-get-device-type (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{}) @deffnx Method get-device-type @table @var @item drive a @code{}. @item ret device type, a @code{} value. @end table Since 2.6 @end deffn @deffn Function gnome-vfs-drive-get-display-name (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{mchars}) @deffnx Method get-display-name @table @var @item drive a @code{}. @item ret a newly allocated string for the display name of the @var{drive}. @end table Since 2.6 @end deffn @deffn Function gnome-vfs-drive-get-hal-udi (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{mchars}) @deffnx Method get-hal-udi Returns the HAL UDI of a @code{}. For HAL drives, this matches the value of the "info.udi" key, for other drives it is @samp{@code{#f}}. @table @var @item drive a @code{}. @item ret a newly allocated string for the unique device id of the @var{drive}, or @samp{@code{#f}}. @end table Since 2.6 @end deffn @deffn Function gnome-vfs-drive-get-icon (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{mchars}) @deffnx Method get-icon @table @var @item drive a @code{}. @item ret a newly allocated string for the icon filename of the @var{drive}. @end table Since 2.6 @end deffn @deffn Function gnome-vfs-drive-get-id (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{unsigned-long}) @deffnx Method get-id @table @var @item drive a @code{}. @item ret drive id, a @code{} value. @end table Since 2.6 @end deffn @deffn Function gnome-vfs-drive-get-mounted-volumes (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{glist-of}) @deffnx Method get-mounted-volumes @table @var @item drive a @code{}. @item ret list of mounted volumes for the @var{drive}. @end table Since 2.8 @end deffn @deffn Function gnome-vfs-drive-is-connected (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{bool}) @deffnx Method is-connected @table @var @item drive a @code{}. @item ret @samp{@code{#t}} if the @var{drive} is connected, @samp{@code{#f}} otherwise. @end table Since 2.6 @end deffn @deffn Function gnome-vfs-drive-is-mounted (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{bool}) @deffnx Method is-mounted @table @var @item drive a @code{}. @item ret @samp{@code{#t}} if the @var{drive} is mounted, @samp{@code{#f}} otherwise. @end table Since 2.6 @end deffn @deffn Function gnome-vfs-drive-is-user-visible (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{bool}) @deffnx Method is-user-visible Returns whether the @var{drive} is visible to the user. This should be used by applications to determine whether it is included in user interfaces listing available drives. @table @var @item drive a @code{}. @item ret @samp{@code{#t}} if the @var{drive} is visible to the user, @samp{@code{#f}} otherwise. @end table Since 2.6 @end deffn @c %end of fragment guile-gnome-platform-2.16.2/gnome-vfs/doc/defuns-gnome-vfs-directory-basic-ops.xml.texi0000644000175000017500000000315111670374302031372 0ustar00wingowingo00000000000000 @c %start of fragment @deffn Function gnome-vfs-make-directory (text_uri@tie{}@code{mchars}) (perm@tie{}@code{unsigned-int}) @result{}@tie{} (ret@tie{}@code{}) Create @var{text-uri} as a directory. @table @var @item text-uri uri of the directory to be created. @item perm Unix-style permissions for the newly created directory @item ret an integer representing the result of the operation. @end table @end deffn @deffn Function gnome-vfs-make-directory-for-uri (uri@tie{}@code{}) (perm@tie{}@code{unsigned-int}) @result{}@tie{} (ret@tie{}@code{}) Create a directory at @var{uri}. Only succeeds if a file or directory does not already exist at @var{uri}. @table @var @item uri uri of the directory to be created. @item perm Unix-style permissions for the newly created directory. @item ret an integer representing the result of the operation. @end table @end deffn @deffn Function gnome-vfs-remove-directory (text_uri@tie{}@code{mchars}) @result{}@tie{} (ret@tie{}@code{}) Remove @var{text-uri}. @var{text-uri} must be an empty directory. @table @var @item text-uri path of the directory to be removed. @item ret an integer representing the result of the operation. @end table @end deffn @deffn Function gnome-vfs-remove-directory-from-uri (uri@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{}) Remove @var{uri}. @var{uri} must be an empty directory. @table @var @item uri uri of the directory to be removed. @item ret an integer representing the result of the operation. @end table @end deffn @c %end of fragment guile-gnome-platform-2.16.2/gnome-vfs/doc/section-gnome-vfs-file-info-ops.xml.texi0000644000175000017500000000151511670374302030341 0ustar00wingowingo00000000000000 @c %start of fragment @node Getting and Setting File Information @chapter Getting and Setting File Information Convenient high-level abstraction for obtaining and setting file information, including ACLs. @section Overview Applications can use the @code{gnome-vfs-get-file-info} family of operations to retrieve file information, as this operation can be quite costly in terms of time (specilly when sniffing the MIME type) applications can specify which information need at any time, reducing the performance impact. All of these operations use a @code{} data structure that holds the file information, there are several methods that can be used to manipulate this information. See @code{} for more information. @section Usage @include defuns-gnome-vfs-file-info-ops.xml.texi @c %end of fragment guile-gnome-platform-2.16.2/gnome-vfs/doc/defuns-gnome-vfs-file-info-ops.xml.texi0000644000175000017500000000313511670374302030161 0ustar00wingowingo00000000000000 @c %start of fragment @deffn Function gnome-vfs-get-file-info (text_uri@tie{}@code{mchars}) (info@tie{}@code{}) (options@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{}) Retrieve information about @var{text-uri}. The information will be stored in @var{info}. @table @var @item text-uri uri of the file for which information will be retrieved. @item info pointer to a @code{} object that will hold the information for the file on return. @item options options for retrieving file information. @item ret an integer representing the result of the operation. @end table @end deffn @deffn Function gnome-vfs-set-file-info (text_uri@tie{}@code{mchars}) (info@tie{}@code{}) (mask@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{}) Set file information for @var{uri}; only the information for which the corresponding bit in @var{mask} is set is actually modified. @cartouche @var{info}'s @samp{valid_fields} is not required to contain the @code{} corresponding to the specified @code{} fields of @var{mask}. It is assumed that the @var{info} fields referenced by @var{mask} are valid. @end cartouche @table @var @item text-uri string representing the file location. @item info information that must be set for the file. @item mask bit mask representing which fields of @var{info} need to be set. @item ret an integer representing the result of the operation. @end table @end deffn @c %end of fragment guile-gnome-platform-2.16.2/gnome-vfs/doc/overrides.texi0000644000175000017500000000000011670374302023520 0ustar00wingowingo00000000000000guile-gnome-platform-2.16.2/gnome-vfs/doc/section-gnome-vfs-mime-database.xml.texi0000644000175000017500000000123511670374302030362 0ustar00wingowingo00000000000000 @c %start of fragment @node MIME Database @chapter MIME Database functions for getting information about applications and components associated with MIME types. @section Overview This API can be used to query the applications and components associated with particular MIME types, and to collect extra information about them, and also provides a convenience function for launching them. Applications can register themselves for particular MIME types by adhering to the @uref{http://standards.freedesktop.org/desktop-entry-spec/latest, Freedesktop.Org Desktop Entry Specification}. @section Usage @include defuns-gnome-vfs-mime-database.xml.texi @c %end of fragment guile-gnome-platform-2.16.2/gnome-vfs/doc/section-gnome-vfs-result.xml.texi0000644000175000017500000000033011670374302027202 0ustar00wingowingo00000000000000 @c %start of fragment @node GnomeVFSResult @chapter GnomeVFSResult Result of I/O operations, the equivalent of errno @section Overview @section Usage @include defuns-gnome-vfs-result.xml.texi @c %end of fragment guile-gnome-platform-2.16.2/gnome-vfs/doc/section-gnome-vfs-volume.xml.texi0000644000175000017500000000034311670374302027177 0ustar00wingowingo00000000000000 @c %start of fragment @node GnomeVFSVolume @chapter GnomeVFSVolume Abstraction for a mounted file system or a network location. @section Overview @section Usage @include defuns-gnome-vfs-volume.xml.texi @c %end of fragment guile-gnome-platform-2.16.2/gnome-vfs/doc/version.texi0000644000175000017500000000014611752511104023210 0ustar00wingowingo00000000000000@set UPDATED 9 December 2011 @set UPDATED-MONTH December 2011 @set EDITION 2.16.2 @set VERSION 2.16.2 guile-gnome-platform-2.16.2/gnome-vfs/doc/defuns-gnome-vfs-volume-monitor.xml.texi0000644000175000017500000000667011670374302030515 0ustar00wingowingo00000000000000 @c %start of fragment @deftp Class Derives from @code{}. This class defines no direct slots. @end deftp @defop Signal volume-mounted (arg0@tie{}@code{}) This signal is emitted after the @code{}@var{volume} has been mounted. When the @var{volume} is mounted, it is present in the @var{volume-monitor}'s list of mounted volumes, which can be queried using @code{gnome-vfs-volume-monitor-get-mounted-volumes}. If the @var{volume} has an associated @code{}, it also appears in the drive's list of mounted volumes, which can be queried using @code{gnome-vfs-drive-get-mounted-volumes}. @end defop @defop Signal volume-pre-unmount (arg0@tie{}@code{}) This signal is emitted when the @code{}@var{volume} is about to be unmounted. When the @var{volume} is unmounted, it is removed from the @var{volume-monitor}'s list of mounted volumes, which can be queried using @code{gnome-vfs-volume-monitor-get-mounted-volumes}. If the @var{volume} has an associated @code{}, it is also removed from in the drive's list of mounted volumes, which can be queried using @code{gnome-vfs-drive-get-mounted-volumes}. When a client application receives this signal, it must free all resources associated with the @var{volume}, for instance cancel all pending file operations on the @var{volume}, and cancel all pending file monitors using @code{gnome-vfs-monitor-cancel}. @end defop @defop Signal volume-unmounted (arg0@tie{}@code{}) This signal is emitted after the @code{}@var{volume} has been unmounted. When the @var{volume} is unmounted, it is removed from the @var{volume-monitor}'s list of mounted volumes, which can be queried using @code{gnome-vfs-volume-monitor-get-mounted-volumes}. If the @var{volume} has an associated @code{}, it is also removed from in the drive's list of mounted volumes, which can be queried using @code{gnome-vfs-drive-get-mounted-volumes}. @end defop @defop Signal drive-connected (arg0@tie{}@code{}) This signal is emitted when the @code{}@var{drive} has been connected. When the @var{drive} is connected, it is present in the @var{volume-monitor}'s list of connected drives, which can be queried using @code{gnome-vfs-volume-monitor-get-connected-drives}. @end defop @defop Signal drive-disconnected (arg0@tie{}@code{}) This signal is emitted after the @code{}@var{drive} has been disconnected. When the @var{drive} is disconnected, it is removed from the @var{volume-monitor}'s list of connected drives, which can be queried using @code{gnome-vfs-volume-monitor-get-connected-drives}. @end defop @deffn Function gnome-vfs-get-volume-monitor @result{}@tie{} (ret@tie{}@code{}) Returns a pointer to the @code{} singleton. @code{} is a singleton, this means it is guaranteed to exist and be valid until @code{gnome-vfs-shutdown} is called. Consequently, it doesn't need to be refcounted since gnome-vfs will hold a reference to it until it is shut down. @table @var @item ret a pointer to the @code{} singleton. @end table Since 2.6 @end deffn @c %end of fragment guile-gnome-platform-2.16.2/gnome-vfs/doc/defuns-gnome-vfs-mime-utils.xml.texi0000644000175000017500000000405611670374302027602 0ustar00wingowingo00000000000000 @c %start of fragment @deffn Function gnome-vfs-mime-type-is-equal (a@tie{}@code{mchars}) (b@tie{}@code{mchars}) @result{}@tie{} (ret@tie{}@code{bool}) Compares two mime types to determine if they are equivalent. They are equivalent if and only if they refer to the same mime type. @table @var @item a a const char * containing a mime type, e.g. "image/png". @item b a const char * containing a mime type, e.g. "image/png". @item ret @samp{@code{#t}}, if a and b are equivalent mime types. @end table @end deffn @deffn Function gnome-vfs-get-mime-type-for-name (filename@tie{}@code{mchars}) @result{}@tie{} (ret@tie{}@code{mchars}) Determine the mime type for @var{filename}. The file @var{filename} may not exist, this function does not access the actual file. If the mime-type cannot be determined, @samp{GNOME_VFS_MIME_TYPE_UNKNOWN} is returned. @table @var @item filename a filename. @item ret the mime-type for this filename or @samp{GNOME_VFS_MIME_TYPE_UNKNOWN} if mime-type could not be determined. @end table Since 2.14 @end deffn @deffn Function gnome-vfs-get-mime-type (text_uri@tie{}@code{mchars}) @result{}@tie{} (ret@tie{}@code{mchars}) Determine the mime type of @var{text-uri}. The mime type is determined in the same way as by @code{gnome-vfs-get-file-info}. This is meant as a convenient function for times when you only want the mime type. @table @var @item text-uri path of the file for which to get the mime type. @item ret The mime type, or @samp{@code{#f}} if there is an error reading the file. @end table @end deffn @deffn Function gnome-vfs-get-slow-mime-type (text_uri@tie{}@code{mchars}) @result{}@tie{} (ret@tie{}@code{mchars}) Determine the mime type of @var{text-uri}. The mime type is determined in the same way as by @code{gnome-vfs-get-file-info}. This is meant as a convenience function for times when you only want the mime type. @table @var @item text-uri URI of the file for which to get the mime type @item ret The mime type, or NULL if there is an error reading the file. @end table Since 2.14 @end deffn @c %end of fragment guile-gnome-platform-2.16.2/gnome-vfs/doc/section-gnome-vfs-file-info.xml.texi0000644000175000017500000000035111670374302027537 0ustar00wingowingo00000000000000 @c %start of fragment @node GnomeVFSFileInfo @chapter GnomeVFSFileInfo stores information about files, GnomeVFS equivalent of stat @section Overview @section Usage @include defuns-gnome-vfs-file-info.xml.texi @c %end of fragment guile-gnome-platform-2.16.2/gnome-vfs/doc/defuns-gnome-vfs-utils.xml.texi0000644000175000017500000002066111670374302026655 0ustar00wingowingo00000000000000 @c %start of fragment @deffn Function gnome-vfs-format-uri-for-display (uri@tie{}@code{mchars}) @result{}@tie{} (ret@tie{}@code{mchars}) Filter, modify, unescape and change @var{uri} to make it appropriate for display to users. The conversion is done such that the roundtrip to UTF-8 is reversible. Rules: file: uri without fragments should appear as local paths. file: uri with fragments should appear as file:uri. All other uri appear as expected. @table @var @item uri uri to be displayed. @item ret a string which represents @var{uri} and can be displayed. @end table Since 2.2 @end deffn @deffn Function gnome-vfs-url-show (url@tie{}@code{mchars}) @result{}@tie{} (ret@tie{}@code{}) Launches the default application or component associated with the given @var{url}. @table @var @item url url to be shown. @item ret @samp{GNOME_VFS_OK} if the default action was launched, @samp{GNOME_VFS_ERROR_BAD_PARAMETERS} for an invalid or non-existant @var{url}, @samp{GNOME_VFS_ERROR_NO_DEFAULT} if no default action is associated with the @var{url}. Also error codes from @code{gnome-vfs-mime-action-launch} or @code{gnome-vfs-mime-action-launch-with-env}. @end table Since 2.4 @end deffn @deffn Function gnome-vfs-escape-string (string@tie{}@code{mchars}) @result{}@tie{} (ret@tie{}@code{mchars}) Escapes @var{string}, replacing any and all special characters with equivalent escape sequences. @table @var @item string string to be escaped. @item ret a newly allocated string equivalent to @var{string} but with all special characters escaped. @end table @end deffn @deffn Function gnome-vfs-escape-path-string (path@tie{}@code{mchars}) @result{}@tie{} (ret@tie{}@code{mchars}) Escapes @var{path}, replacing only special characters that would not be found in paths (so '/', '&', and '=' will not be escaped by this function). @table @var @item path string to be escaped. @item ret a newly allocated string equivalent to @var{path} but with non-path characters escaped. @end table @end deffn @deffn Function gnome-vfs-escape-slashes (string@tie{}@code{mchars}) @result{}@tie{} (ret@tie{}@code{mchars}) Escapes only '/' and '%' characters in @var{string}, replacing them with their escape sequence equivalents. @table @var @item string string to be escaped. @item ret a newly allocated string equivalent to @var{string}, but with no unescaped '/' or '%' characters. @end table @end deffn @deffn Function gnome-vfs-escape-set (string@tie{}@code{mchars}) (match_set@tie{}@code{mchars}) @result{}@tie{} (ret@tie{}@code{mchars}) Escapes all characters in @var{string} which are listed in @var{match-set}. @table @var @item string string to be escaped. @item match-set a string containing all characters to be escaped in @var{string}. @item ret a newly allocated string equivalent to @var{string} but with characters in @var{match-string} escaped. @end table @end deffn @deffn Function gnome-vfs-unescape-string (escaped_string@tie{}@code{mchars}) (illegal_characters@tie{}@code{mchars}) @result{}@tie{} (ret@tie{}@code{mchars}) Decodes escaped characters (i.e. PERCENTxx sequences) in @var{escaped-string}. Characters are encoded in PERCENTxy form, where xy is the ASCII hex code for character 16x+y. @table @var @item escaped-string an escaped uri, path, or other string. @item illegal-characters a string containing a sequence of characters considered "illegal" to be escaped, '\0' is automatically in this list. @item ret a newly allocated string with the unescaped equivalents, or @samp{@code{#f}} if @var{escaped-string} contained an escaped encoding of one of the characters in @var{illegal-characters}. @end table @end deffn @deffn Function gnome-vfs-make-uri-canonical (uri@tie{}@code{mchars}) @result{}@tie{} (ret@tie{}@code{mchars}) Standardizes the format of the @var{uri}, so that it can be used later in other functions that expect a canonical uri. @table @var @item uri an absolute or relative stringified uri. It might have scheme. @item ret a newly allocated string that contains the canonical representation of @var{uri}. @end table Since 2.2 @end deffn @deffn Function gnome-vfs-make-path-name-canonical (path@tie{}@code{mchars}) @result{}@tie{} (ret@tie{}@code{mchars}) Calls @code{-gnome-vfs-canonicalize-pathname}, allocating storage for the result and providing for a cleaner memory management. @table @var @item path a file path, relative or absolute. @item ret a canonical version of @var{path}. @end table @end deffn @deffn Function gnome-vfs-make-uri-from-input (location@tie{}@code{mchars}) @result{}@tie{} (ret@tie{}@code{mchars}) Takes a user input path/uri and makes a valid uri out of it. This function is the reverse of @code{gnome-vfs-format-uri-for-display} but it also handles the fact that the user could have typed arbitrary UTF-8 in the entry showing the string. @table @var @item location a possibly mangled "uri", in UTF-8. @item ret a newly allocated uri. @end table Since 2.2 @end deffn @deffn Function gnome-vfs-make-uri-from-shell-arg (uri@tie{}@code{mchars}) @result{}@tie{} (ret@tie{}@code{mchars}) Similar to @code{gnome-vfs-make-uri-from-input}, except that: 1) guesses relative paths instead of http domains. 2) doesn't bother stripping leading/trailing white space. 3) doesn't bother with ~ expansion--that's done by the shell. @table @var @item uri path to make the uri from. @item ret a newly allocated string representing @var{uri}. @end table Since 2.2 @end deffn @deffn Function gnome-vfs-expand-initial-tilde (path@tie{}@code{mchars}) @result{}@tie{} (ret@tie{}@code{mchars}) If @var{path} starts with a ~, representing the user's home directory, expand it to the actual path location. @table @var @item path a local file path which may start with a '~'. @item ret a newly allocated string with the initial tilde (if there was one) converted to an actual path. @end table @end deffn @deffn Function gnome-vfs-get-local-path-from-uri (uri@tie{}@code{mchars}) @result{}@tie{} (ret@tie{}@code{mchars}) Create a local path for a file:/// uri. Do not use with uris of other methods. @table @var @item uri uri to convert to a local path. @item ret a newly allocated string containing the local path. @samp{@code{#f}} is returned on error or if the uri isn't a file: uri without a fragment identifier (or chained uri). @end table @end deffn @deffn Function gnome-vfs-get-uri-from-local-path (local_full_path@tie{}@code{mchars}) @result{}@tie{} (ret@tie{}@code{mchars}) Returns a file:/// URI for the local path @var{local-full-path}, such as a path provided by @code{gtk-file-chooser-get-filename}. The resulting URI may be provided, for instance, to @code{gnome-vfs-uri-new}. On Windows @var{local-full-path} should be in the UTF-8 encoding, and can start with a drive letter, but doesn't have to. @table @var @item local-full-path a full local filesystem path (i.e. not relative). @item ret a newly allocated string containing the uri corresponding to @var{local-full-path} (@samp{@code{#f}} for some bad errors). @end table @end deffn @deffn Function gnome-vfs-icon-path-from-filename (filename@tie{}@code{mchars}) @result{}@tie{} (ret@tie{}@code{mchars}) @table @var @item filename path to a file. Could be relative or absolute path. @item ret Returns the icon path for the @var{filename}. Example: gnome_vfs_icon_path_from_filename ("nautilus/nautilus-desktop.png") will return a string forming the full path of the file nautilus-desktop.png ie $PREFIX/share/pixmaps/nautilus/nautilus-desktop.png. @end table @end deffn @deffn Function gnome-vfs-is-primary-thread @result{}@tie{} (ret@tie{}@code{bool}) Check if the current thread is the thread with the main glib event loop. @table @var @item ret @samp{@code{#t}} if the current thread is the thread with the main glib event loop. @end table @end deffn @deffn Function gnome-vfs-get-uri-scheme (uri@tie{}@code{mchars}) @result{}@tie{} (ret@tie{}@code{mchars}) Retrieve the scheme used in @var{uri}. @table @var @item uri a stringified uri. @item ret a newly allocated string containing the scheme, @samp{@code{#f}} if @var{uri} doesn't contain a scheme. @end table Since 2.2 @end deffn @deffn Function gnome-vfs-uris-match (uri_1@tie{}@code{mchars}) (uri_2@tie{}@code{mchars}) @result{}@tie{} (ret@tie{}@code{bool}) Compare two uris. @table @var @item uri-1 stringified uri to compare with @var{uri-2}. @item uri-2 stringified uri to compare with @var{uri-1}. @item ret @samp{@code{#t}} if they are the same, @samp{@code{#f}} otherwise. @end table Since 2.2 @end deffn @c %end of fragment guile-gnome-platform-2.16.2/gnome-vfs/doc/defuns-gnome-vfs-mime-database.xml.texi0000644000175000017500000001121511670374302030201 0ustar00wingowingo00000000000000 @c %start of fragment @deftp Class Opaque pointer. This class defines no direct slots. @end deftp @deffn Function gnome-vfs-mime-get-all-applications (mime_type@tie{}@code{mchars}) @result{}@tie{} (ret@tie{}@code{glist-of}) Return an alphabetically sorted list of @code{} data structures representing all applications in the MIME database registered to handle files of MIME type @var{mime-type} (and supertypes). @table @var @item mime-type a const char * containing a mime type, e.g. "image/png". @item ret a @code{} * where the elements are @code{} * representing applications that handle MIME type @var{mime-type}. @end table @end deffn @deffn Function gnome-vfs-mime-get-all-components (mime_type@tie{}@code{mchars}) @result{}@tie{} (ret@tie{}@code{glist-of}) @samp{gnome_vfs_mime_get_all_components} is deprecated and should not be used in newly-written code. @table @var @item mime-type @item ret @end table @end deffn @deffn Function gnome-vfs-mime-get-description (mime_type@tie{}@code{mchars}) @result{}@tie{} (ret@tie{}@code{mchars}) Query the MIME database for a description of the @var{mime-type}. @table @var @item mime-type the mime type. @item ret description of MIME type @var{mime-type}. @end table @end deffn @deffn Function gnome-vfs-mime-can-be-executable (mime_type@tie{}@code{mchars}) @result{}@tie{} (ret@tie{}@code{bool}) Check whether files of @var{mime-type} might conceivably be executable. Default for known types if @samp{@code{#f}}. Default for unknown types is @samp{@code{#t}}. @table @var @item mime-type a const char * containing a mime type. @item ret @samp{@code{#t}} if files of @var{mime-type} can be executable, @samp{@code{#f}} otherwise. @end table @end deffn @deffn Function gnome-vfs-mime-application-launch (self@tie{}@code{}) (uris@tie{}@code{glist-of}) @result{}@tie{} (ret@tie{}@code{}) Launches the given mime application with the given parameters. Command line parameters will be expanded as required by the application. The application will also be launched in a terminal if that is required. If the application only supports one argument per instance then multiple instances of the application will be launched. @table @var @item app the @code{} to launch. @item uris parameters for the @code{}. @item ret @samp{GNOME_VFS_OK} if the application was launched. @samp{GNOME_VFS_ERROR_NOT_SUPPORTED} if the uri protocol is not supported by the application. @samp{GNOME_VFS_ERROR_PARSE} if the application command can not be parsed. @samp{GNOME_VFS_ERROR_LAUNCH} if the application command can not be launched. @samp{GNOME_VFS_ERROR_INTERNAL} for other internal and GConf errors. @end table Since 2.4 @end deffn @deffn Function gnome-vfs-mime-application-get-name (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{mchars}) Returns the name of the application @var{app} @table @var @item app a @code{}. @item ret the name of the application. @end table Since 2.10 @end deffn @deffn Function gnome-vfs-mime-application-get-icon (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{mchars}) Returns an icon representing the specified application. @table @var @item app a @code{}. @item ret the filename of the icon usually without path information, e.g. "gedit-icon.png", and sometimes does not have an extension, e.g. "gnome-pdf" if the icon is supposed to be image type agnostic between icon themes. Icons are generic, and not theme specific. @end table Since 2.10 @end deffn @deffn Function gnome-vfs-mime-application-get-exec (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{mchars}) Returns the program to execute, possibly with arguments and parameter variables, as specified by the @uref{http://standards.freedesktop.org/desktop-entry-spec/, Desktop Entry Specification}. @table @var @item app a @code{}. @item ret the command line to execute. @end table Since 2.10 @end deffn @deffn Function gnome-vfs-mime-application-equal (self@tie{}@code{}) (app_b@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{bool}) Compare @var{app-a} and @var{app-b}. @table @var @item app-a a @code{}. @item app-b a @code{}. @item ret @samp{@code{#t}} if @var{app-a} and @var{app-b} are equal, @samp{@code{#f}} otherwise. @end table Since 2.10 @end deffn @c %end of fragment guile-gnome-platform-2.16.2/gnome-vfs/doc/guile-gnome-gnome-vfs.info0000644000175000017500000025441611752516273025643 0ustar00wingowingo00000000000000This is guile-gnome-gnome-vfs.info, produced by makeinfo version 4.13 from guile-gnome-gnome-vfs.texi. This manual is for `(gnome vfs)' (version 2.16.2, updated 9 December 2011) Copyright 2001-2007 The Free Software Foundation, Christophe Fergeau, Christian Neumair Permission is granted to copy, distribute and/or modify this document under the terms of the GNU Free Documentation License, Version 1.1 or any later version published by the Free Software Foundation. INFO-DIR-SECTION The Algorithmic Language Scheme START-INFO-DIR-ENTRY * Guile-GNOME-VFS: (guile-gnome-gnome-vfs.info). The GNOME virtual file system. END-INFO-DIR-ENTRY  File: guile-gnome-gnome-vfs.info, Node: Top, Next: Overview, Up: (dir) Guile-GNOME-VFS *************** This manual is for `(gnome vfs)' (version 2.16.2, updated 9 December 2011) Copyright 2001-2007 The Free Software Foundation, Christophe Fergeau, Christian Neumair Permission is granted to copy, distribute and/or modify this document under the terms of the GNU Free Documentation License, Version 1.1 or any later version published by the Free Software Foundation. * Menu: * Overview:: About GNOME-VFS and its Guile bindings. Basic Data Types * GnomeVFSResult:: Result of I/O operations, the equivalent of errno * GnomeVFSURI:: A uniform resource identifier. * gnome-vfs-utils:: various utilities functions to manipulate uris * GnomeVFSFileInfo:: stores information about files, GnomeVFS equivalent of stat File Operations * Basic File Operations:: Essential VFS operations. This includes creating, moving and deleting files, * Truncating Files:: Force files to a particular length * Getting and Setting File Information:: Convenient high-level abstraction for obtaining and setting file information, Directory-Specific Operations * Basic Directory Operations:: Creating and removing directories. Volumes and Drives Handling * GnomeVFSVolume:: Abstraction for a mounted file system or a network location. * GnomeVFSDrive:: Container for GnomeVFSVolume (floppy drive, CD reader, ...) * GnomeVFSVolumeMonitor:: Monitors volume mounts and unmounts MIME Registry * MIME typing:: functions to get a mime-type for a file using its name or its content * gnome-vfs-mime-utils:: * MIME Database:: functions for getting information about applications and components associated * Undocumented:: Undocumented functions. * Type Index:: * Function Index::  File: guile-gnome-gnome-vfs.info, Node: Overview, Next: GnomeVFSResult, Prev: Top, Up: Top 1 Overview ********** `(gnome vfs)' wraps the GNOME Virtual Filesystem library for Guile. It is a part of Guile-GNOME. The basic idea in this module is to map, as transparently as possible, GNOME-VFS files onto Scheme ports. Once you have a Scheme port, the native Scheme API is the preferred API. Other GNOME-VFS library procedures are defined that have no counterpart on the Scheme level, such as the MIME database procedures. So, for example, to write to a file over SCP, you might do this: (define (with-output-to-port/dynamic make-port thunk) (let ((port #f)) (dynamic-wind (lambda () (set! port (make-port))) (lambda () (with-output-to-port port thunk)) (lambda () (close-port port) (set! port #f))))) (define (make-output-port uri-string exclusive?) (gnome-vfs-create (gnome-vfs-make-uri-from-input uri-string) 'write exclusive? #o644)) (with-output-to-port/dynamic (lambda () (make-output-port "sftp://me@example.com/tmp/foo.txt" #t)) (lambda () (write "Hello world!"))) The `dynamic-wind' trickery is to ensure that the port is closed after execution leaves the thunk, and not left for GC to close in the future. Exceptions raised during I/O are thrown to the `gnome-vfs-error' key, with the second argument being a symbol corresponding to a particular `' value, such as `error-file-exists'. To enable integration with the GNOME keyring, for SSH keys and the like, you will need to call `(gnome-authentication-manager-init)', which is a procedure defined in the `(gnome gnome-ui)' library. This manual is admittedly a bit incomplete. Patches are accepted, of course, but the best thing to do would be eventually to wrap GIO, the new VFS layer that was pushed down into GLib. See the documentation for `(gnome gobject)' for more information on Guile-GNOME.  File: guile-gnome-gnome-vfs.info, Node: GnomeVFSResult, Next: GnomeVFSURI, Prev: Overview, Up: Top 2 GnomeVFSResult **************** Result of I/O operations, the equivalent of errno 2.1 Overview ============ 2.2 Usage ========= -- Function: gnome-vfs-result-to-string (res `') => (ret `mchars') Returns a string representing RESULT, useful for debugging purposes, but probably not appropriate for passing to the user. RESULT a `' to convert to a string. RET a string representing RESULT. -- Function: gnome-vfs-result-from-errno-code (errno_code `int') => (ret `') Converts a system errno value to a `'. ERRNO-CODE integer of the same type as the system "errno". RET a `' equivalent to ERRNO-CODE. -- Function: gnome-vfs-result-from-errno => (ret `') Converts the system errno to a `'. RET a `' equivalent to the current system errno. -- Function: gnome-vfs-result-from-h-errno => (ret `') Converts the system "h_errno" to a `' (h_errno represents errors accessing and finding internet hosts) RET a `' equivalent to the current system "h_errno". -- Function: gnome-vfs-result-from-h-errno-val (h_errno_code `int') => (ret `') Converts the error code H-ERRNO-CODE into a `'. H-ERRNO-CODE an integer representing the same error code as the system h_errno. RET The `' equivalent to the H-ERRNO-CODE.  File: guile-gnome-gnome-vfs.info, Node: GnomeVFSURI, Next: gnome-vfs-utils, Prev: GnomeVFSResult, Up: Top 3 GnomeVFSURI ************* A uniform resource identifier. 3.1 Overview ============ A `' is a semi-textual representation of a uniform resource identifier. It contains the information about a resource location encoded as canononicalized text, but also holds extra information about the context in which the URI is used. 3.2 Usage ========= -- Class: Opaque pointer. This class defines no direct slots. -- Function: gnome-vfs-uri-new (text_uri `mchars') => (ret `') Create a new uri from TEXT-URI. Unsupported and unsafe methods are not allowed and will result in ``#f'' being returned. URL transforms are allowed. The A text_uri must be an escaped URI string such as returned by `gnome-vfs-get-uri-from-local-path', `gnome-vfs-make-uri-from-input', or `gtk-file-chooser-get-uri'. TEXT-URI an escaped string representing a uri. RET The new uri. -- Function: gnome-vfs-uri-resolve-relative (self `') (relative_reference `mchars') => (ret `') Create a new uri from RELATIVE-REFERENCE, relative to BASE. The resolution algorithm in some aspects follows RFC 2396 (http://www.ietf.org/rfc/rfc2396.txt), section 5.2, but is not identical due to some extra assumptions GnomeVFS makes about URIs. If RELATIVE-REFERENCE begins with a valid scheme identifier followed by ':', it is assumed to refer to an absolute URI, and a `' is created from it using `gnome-vfs-uri-new'. Otherwise, depending on its precise syntax, it inherits some aspects of the parent URI, but the parents' fragment and query components are ignored. If RELATIVE-REFERENCE begins with "//", it only inherits the BASE scheme, if it begins with '/' (i.e. is an absolute path reference), it inherits everything ecxept the BASE path. Otherwise, it replaces the part of BASE after the last '/'. This function should not be used by application authors unless they expect very distinct semantics. Instead, authors should use `gnome-vfs-uri-append-file-name', `gnome-vfs-uri-append-path', `gnome-vfs-uri-append-string' or `gnome-vfs-uri-resolve-symbolic-link'. BASE base uri. RELATIVE-REFERENCE a string representing a possibly relative uri reference. RET A `' referring to RELATIVE-REFERENCE, or ``#f'' if RELATIVE-REFERENCE was malformed. -- Function: gnome-vfs-uri-resolve-symbolic-link (self `') (relative_reference `mchars') => (ret `') Create a new uri from SYMBOLIC-LINK, relative to BASE. If SYMBOLIC-LINK begins with a '/', it replaces the path of BASE, otherwise it is appended after the last '/' character of BASE. BASE base uri. RELATIVE-REFERENCE RET A new `' referring to SYMBOLIC-LINK. Since 2.16 -- Function: gnome-vfs-uri-append-string (self `') (uri_fragment `mchars') => (ret `') Create a new uri obtained by appending URI-FRAGMENT to URI. This will take care of adding an appropriate directory separator between the end of URI and the start of URI-FRAGMENT if necessary. URI a `'. URI-FRAGMENT a piece of a uri (ie a fully escaped partial path). RET The new uri obtained by combining URI and URI-FRAGMENT. -- Function: gnome-vfs-uri-append-path (self `') (path `mchars') => (ret `') Create a new uri obtained by appending PATH to URI. This will take care of adding an appropriate directory separator between the end of URI and the start of PATH if necessary as well as escaping PATH as necessary. URI a `'. PATH a non-escaped file path. RET The new uri obtained by combining URI and PATH. -- Function: gnome-vfs-uri-append-file-name (self `') (filename `mchars') => (ret `') Create a new uri obtained by appending FILE-NAME to URI. This will take care of adding an appropriate directory separator between the end of URI and the start of FILE-NAME if necessary. FILE-NAME might, for instance, be the result of a call to `g-dir-read-name'. URI a `'. FILENAME any "regular" file name (can include #, /, etc) in the file system encoding. This is not an escaped URI. RET The new uri obtained by combining URI and PATH. -- Function: gnome-vfs-uri-to-string (self `') (hide_options `') => (ret `mchars') Translate URI into a printable string. The string will not contain the uri elements specified by HIDE-OPTIONS. A file: URI on Win32 might look like file:///x:/foo/bar.txt. Note that the part after file:// is not a legal file name, you need to remove the / in front of the drive letter. This function does that automatically if HIDE-OPTIONS specifies that the toplevel method, user name, password, host name and host port should be hidden. On the other hand, a file: URI for a UNC path looks like file:////server/share/foo/bar.txt, and in that case the part after file:// is the correct file name. URI a `'. HIDE-OPTIONS bitmask specifying what uri elements (e.g. password, user name etc.) should not be represented in the returned string. RET a malloc'd printable string representing URI. -- Function: gnome-vfs-uri-dup (self `') => (ret `') Duplicate URI. URI a `'. RET a pointer to a new uri that is exactly the same as URI. -- Function: gnome-vfs-uri-is-local (self `') => (ret `bool') Check if URI is a local URI. Note that the return value of this function entirely depends on the `' associated with the URI. It is up to the method author to distinguish between remote URIs add URIs referring to entities on the local computer. Warning, this can be slow, as it does i/o to detect things like NFS mounts. URI a `'. RET ``#t'' if URI refers to a local entity, ``#f'' otherwise. -- Function: gnome-vfs-uri-has-parent (self `') => (ret `bool') Check if uri has a parent or not. URI a `'. RET ``#t'' if URI has a parent, ``#f'' otherwise. -- Function: gnome-vfs-uri-get-parent (self `') => (ret `') Retrieve URI's parent uri. URI a `'. RET a pointer to URI's parent uri. -- Function: gnome-vfs-uri-get-host-name (self `') => (ret `mchars') Retrieve the host name for URI. URI a `'. RET a string representing the host name. -- Function: gnome-vfs-uri-get-scheme (self `') => (ret `mchars') Retrieve the scheme used for URI. URI a `'. RET a string representing the scheme. -- Function: gnome-vfs-uri-get-host-port (self `') => (ret `unsigned-int') Retrieve the host port number in URI. URI a `'. RET The host port number used by URI. If the value is zero, the default port value for the specified toplevel access method is used. -- Function: gnome-vfs-uri-get-user-name (self `') => (ret `mchars') Retrieve the user name in URI. URI a `'. RET a string representing the user name in URI. -- Function: gnome-vfs-uri-get-password (self `') => (ret `mchars') Retrieve the password for URI. URI a `'. RET The password for URI. -- Function: gnome-vfs-uri-set-host-name (self `') (host_name `mchars') Set HOST-NAME as the host name accessed by URI. URI a `'. HOST-NAME a string representing a host name. -- Function: gnome-vfs-uri-set-host-port (self `') (host_port `unsigned-int') Set the host port number in URI. If HOST-PORT is zero, the default port for URI's toplevel access method is used. URI a `'. HOST-PORT a TCP/IP port number. -- Function: gnome-vfs-uri-set-user-name (self `') (user_name `mchars') Set USER-NAME as the user name for URI. URI a `'. USER-NAME a string representing a user name on the host accessed by URI. -- Function: gnome-vfs-uri-set-password (self `') (password `mchars') Set PASSWORD as the password for URI. URI a `'. PASSWORD a password string. -- Function: gnome-vfs-uri-equal (self `') (b `') => (ret `bool') Compare A and B. FIXME: This comparison should take into account the possiblity that unreserved characters may be escaped. ...or perhaps `gnome-vfs-uri-new' should unescape unreserved characters? A a `'. B a `'. RET ``#t'' if A and B are equal, ``#f'' otherwise. -- Function: gnome-vfs-uri-is-parent (self `') (possible_child `') (recursive `bool') => (ret `bool') Check if POSSIBLE-CHILD is contained by POSSIBLE-PARENT. If RECURSIVE is ``#f'', just try the immediate parent directory, else search up through the hierarchy. POSSIBLE-PARENT a `'. POSSIBLE-CHILD a `'. RECURSIVE a flag to turn recursive check on. RET ``#t'' if POSSIBLE-CHILD is contained in POSSIBLE-PARENT. -- Function: gnome-vfs-uri-get-path (self `') => (ret `mchars') Retrieve full path name for URI. URI a `'. RET a pointer to the full path name in URI. Notice that the pointer points to the path name stored in URI, so the path name returned must not be modified nor freed. -- Function: gnome-vfs-uri-extract-dirname (self `') => (ret `mchars') Extract the name of the directory in which the file pointed to by URI is stored as a newly allocated string. The string will end with a `GNOME_VFS_URI_PATH_CHR'. URI a `'. RET a pointer to the newly allocated string representing the parent directory. -- Function: gnome-vfs-uri-extract-short-name (self `') => (ret `mchars') Retrieve base file name for URI, ignoring any trailing path separators. This matches the XPG definition of basename, but not g_basename. This is often useful when you want the name of something that's pointed to by a uri, and don't care whether the uri has a directory or file form. If URI points to the root of a domain, returns the host name. If there's no host name, returns `GNOME_VFS_URI_PATH_STR'. See also: `gnome-vfs-uri-extract-short-path-name'. URI a `'. RET a pointer to the newly allocated string representing the unescaped short form of the name. -- Function: gnome-vfs-uri-list-parse (uri_list `mchars') => (ret `glist-of') Extracts a list of `' objects from a standard text/uri-list, such as one you would get on a drop operation. Use `gnome-vfs-uri-list-free' when you are done with the list. URI-LIST string consists of `' and/or paths seperated by newline character. RET a `' of `'.  File: guile-gnome-gnome-vfs.info, Node: gnome-vfs-utils, Next: GnomeVFSFileInfo, Prev: GnomeVFSURI, Up: Top 4 gnome-vfs-utils ***************** various utilities functions to manipulate uris 4.1 Overview ============ 4.2 Usage ========= -- Function: gnome-vfs-format-uri-for-display (uri `mchars') => (ret `mchars') Filter, modify, unescape and change URI to make it appropriate for display to users. The conversion is done such that the roundtrip to UTF-8 is reversible. Rules: file: uri without fragments should appear as local paths. file: uri with fragments should appear as file:uri. All other uri appear as expected. URI uri to be displayed. RET a string which represents URI and can be displayed. Since 2.2 -- Function: gnome-vfs-url-show (url `mchars') => (ret `') Launches the default application or component associated with the given URL. URL url to be shown. RET `GNOME_VFS_OK' if the default action was launched, `GNOME_VFS_ERROR_BAD_PARAMETERS' for an invalid or non-existant URL, `GNOME_VFS_ERROR_NO_DEFAULT' if no default action is associated with the URL. Also error codes from `gnome-vfs-mime-action-launch' or `gnome-vfs-mime-action-launch-with-env'. Since 2.4 -- Function: gnome-vfs-escape-string (string `mchars') => (ret `mchars') Escapes STRING, replacing any and all special characters with equivalent escape sequences. STRING string to be escaped. RET a newly allocated string equivalent to STRING but with all special characters escaped. -- Function: gnome-vfs-escape-path-string (path `mchars') => (ret `mchars') Escapes PATH, replacing only special characters that would not be found in paths (so '/', '&', and '=' will not be escaped by this function). PATH string to be escaped. RET a newly allocated string equivalent to PATH but with non-path characters escaped. -- Function: gnome-vfs-escape-slashes (string `mchars') => (ret `mchars') Escapes only '/' and '%' characters in STRING, replacing them with their escape sequence equivalents. STRING string to be escaped. RET a newly allocated string equivalent to STRING, but with no unescaped '/' or '%' characters. -- Function: gnome-vfs-escape-set (string `mchars') (match_set `mchars') => (ret `mchars') Escapes all characters in STRING which are listed in MATCH-SET. STRING string to be escaped. MATCH-SET a string containing all characters to be escaped in STRING. RET a newly allocated string equivalent to STRING but with characters in MATCH-STRING escaped. -- Function: gnome-vfs-unescape-string (escaped_string `mchars') (illegal_characters `mchars') => (ret `mchars') Decodes escaped characters (i.e. PERCENTxx sequences) in ESCAPED-STRING. Characters are encoded in PERCENTxy form, where xy is the ASCII hex code for character 16x+y. ESCAPED-STRING an escaped uri, path, or other string. ILLEGAL-CHARACTERS a string containing a sequence of characters considered "illegal" to be escaped, '\0' is automatically in this list. RET a newly allocated string with the unescaped equivalents, or ``#f'' if ESCAPED-STRING contained an escaped encoding of one of the characters in ILLEGAL-CHARACTERS. -- Function: gnome-vfs-make-uri-canonical (uri `mchars') => (ret `mchars') Standardizes the format of the URI, so that it can be used later in other functions that expect a canonical uri. URI an absolute or relative stringified uri. It might have scheme. RET a newly allocated string that contains the canonical representation of URI. Since 2.2 -- Function: gnome-vfs-make-path-name-canonical (path `mchars') => (ret `mchars') Calls `-gnome-vfs-canonicalize-pathname', allocating storage for the result and providing for a cleaner memory management. PATH a file path, relative or absolute. RET a canonical version of PATH. -- Function: gnome-vfs-make-uri-from-input (location `mchars') => (ret `mchars') Takes a user input path/uri and makes a valid uri out of it. This function is the reverse of `gnome-vfs-format-uri-for-display' but it also handles the fact that the user could have typed arbitrary UTF-8 in the entry showing the string. LOCATION a possibly mangled "uri", in UTF-8. RET a newly allocated uri. Since 2.2 -- Function: gnome-vfs-make-uri-from-shell-arg (uri `mchars') => (ret `mchars') Similar to `gnome-vfs-make-uri-from-input', except that: 1) guesses relative paths instead of http domains. 2) doesn't bother stripping leading/trailing white space. 3) doesn't bother with ~ expansion-that's done by the shell. URI path to make the uri from. RET a newly allocated string representing URI. Since 2.2 -- Function: gnome-vfs-expand-initial-tilde (path `mchars') => (ret `mchars') If PATH starts with a ~, representing the user's home directory, expand it to the actual path location. PATH a local file path which may start with a '~'. RET a newly allocated string with the initial tilde (if there was one) converted to an actual path. -- Function: gnome-vfs-get-local-path-from-uri (uri `mchars') => (ret `mchars') Create a local path for a file:/// uri. Do not use with uris of other methods. URI uri to convert to a local path. RET a newly allocated string containing the local path. ``#f'' is returned on error or if the uri isn't a file: uri without a fragment identifier (or chained uri). -- Function: gnome-vfs-get-uri-from-local-path (local_full_path `mchars') => (ret `mchars') Returns a file:/// URI for the local path LOCAL-FULL-PATH, such as a path provided by `gtk-file-chooser-get-filename'. The resulting URI may be provided, for instance, to `gnome-vfs-uri-new'. On Windows LOCAL-FULL-PATH should be in the UTF-8 encoding, and can start with a drive letter, but doesn't have to. LOCAL-FULL-PATH a full local filesystem path (i.e. not relative). RET a newly allocated string containing the uri corresponding to LOCAL-FULL-PATH (``#f'' for some bad errors). -- Function: gnome-vfs-icon-path-from-filename (filename `mchars') => (ret `mchars') FILENAME path to a file. Could be relative or absolute path. RET Returns the icon path for the FILENAME. Example: gnome_vfs_icon_path_from_filename ("nautilus/nautilus-desktop.png") will return a string forming the full path of the file nautilus-desktop.png ie $PREFIX/share/pixmaps/nautilus/nautilus-desktop.png. -- Function: gnome-vfs-is-primary-thread => (ret `bool') Check if the current thread is the thread with the main glib event loop. RET ``#t'' if the current thread is the thread with the main glib event loop. -- Function: gnome-vfs-get-uri-scheme (uri `mchars') => (ret `mchars') Retrieve the scheme used in URI. URI a stringified uri. RET a newly allocated string containing the scheme, ``#f'' if URI doesn't contain a scheme. Since 2.2 -- Function: gnome-vfs-uris-match (uri_1 `mchars') (uri_2 `mchars') => (ret `bool') Compare two uris. URI-1 stringified uri to compare with URI-2. URI-2 stringified uri to compare with URI-1. RET ``#t'' if they are the same, ``#f'' otherwise. Since 2.2  File: guile-gnome-gnome-vfs.info, Node: GnomeVFSFileInfo, Next: Basic File Operations, Prev: gnome-vfs-utils, Up: Top 5 GnomeVFSFileInfo ****************** stores information about files, GnomeVFS equivalent of stat 5.1 Overview ============ 5.2 Usage ========= -- Class: Opaque pointer. This class defines no direct slots.  File: guile-gnome-gnome-vfs.info, Node: Basic File Operations, Next: Truncating Files, Prev: GnomeVFSFileInfo, Up: Top 6 Basic File Operations *********************** Essential VFS operations. This includes creating, moving and deleting files, opening and closing file handles. 6.1 Overview ============ GnomeVFS file operations are, for the most part, patterned after their POSIX equivalents, with the systematic difference that they accept URIs rather than paths on the local filesystem. This makes them easy to learn as if you are already familiar with basic commands such as `open', `seek', `write', etc you will feel right at home with GnomeVFS after learning a little about URIs. 6.2 Usage ========= -- Function: gnome-vfs-create (text_uri `mchars') (open_mode `') (exclusive `bool') (perm `unsigned-int') => (ret `scm') Create TEXT-URI according to mode OPEN-MODE. On return, HANDLE will then contain a pointer to a handle for the open file. HANDLE pointer to a pointer to a `' object. TEXT-URI string representing the uri to create. OPEN-MODE mode to leave the file opened in after creation (or `GNOME_VFS_OPEN_MODE_NONE' to leave the file closed after creation). EXCLUSIVE whether the file should be created in "exclusive" mode. i.e. if this flag is nonzero, operation will fail if a file with the same name already exists. PERM bitmap representing the permissions for the newly created file (Unix style). RET an integer representing the result of the operation. -- Function: gnome-vfs-create-uri (uri `') (open_mode `') (exclusive `bool') (perm `unsigned-int') => (ret `scm') Create URI according to mode OPEN-MODE. On return, HANDLE will then contain a pointer to a handle for the open file. HANDLE pointer to a pointer to a `' object. URI uri for the file to create. OPEN-MODE open mode. EXCLUSIVE whether the file should be created in "exclusive" mode. i.e. if this flag is nonzero, operation will fail if a file with the same name already exists. PERM bitmap representing the permissions for the newly created file (Unix style). RET an integer representing the result of the operation. -- Function: gnome-vfs-open (text_uri `mchars') (open_mode `') => (ret `scm') Open TEXT-URI according to mode OPEN-MODE. On return, HANDLE will then contain a pointer to a handle for the open file. HANDLE pointer to a pointer to a `' object. TEXT-URI string representing the uri to open. OPEN-MODE open mode. RET an integer representing the result of the operation. -- Function: gnome-vfs-open-uri (uri `') (open_mode `') => (ret `scm') Open URI according to mode OPEN-MODE. On return, HANDLE will then contain a pointer to a handle for the open file. HANDLE pointer to a pointer to a `' object. URI uri to open. OPEN-MODE open mode. RET an integer representing the result of the operation. -- Function: gnome-vfs-unlink (text_uri `mchars') => (ret `') Unlink TEXT-URI (i.e. delete the file). TEXT-URI uri of the file to be unlinked. RET an integer representing the result of the operation. -- Function: gnome-vfs-unlink-from-uri (uri `') => (ret `') Unlink URI (i.e. delete the file). URI uri of the file to be unlinked. RET an integer representing the result of the operation. -- Function: gnome-vfs-move-uri (old_uri `') (new_uri `') (force_replace `bool') => (ret `') Move a file from uri OLD-URI to NEW-URI. This will only work if OLD-URI and NEW-URI are on the same file system. Otherwise, it is necessary to use the more general `gnome-vfs-xfer-uri' function. OLD-URI source uri. NEW-URI destination uri. FORCE-REPLACE if ``#t'', move OLD-URI to NEW-URI even if there is already a file at NEW-URI. If there is a file, it will be discarded. RET an integer representing the result of the operation. -- Function: gnome-vfs-move (old_text_uri `mchars') (new_text_uri `mchars') (force_replace `bool') => (ret `') Move a file from OLD-TEXT-URI to NEW-TEXT-URI. This will only work if OLD-TEXT-URI and NEW-TEXT-URI are on the same file system. Otherwise, it is necessary to use the more general `gnome-vfs-xfer-uri' function. OLD-TEXT-URI string representing the source file location. NEW-TEXT-URI string representing the destination file location. FORCE-REPLACE if ``#t'', perform the operation even if it unlinks an existing file at NEW-TEXT-URI. RET an integer representing the result of the operation. -- Function: gnome-vfs-check-same-fs-uris (source_uri `') (target_uri `') => (ret `') (same_fs_return `bool') Check if SOURCE-URI and TARGET-URI are on the same file system. SOURCE-URI a uri. TARGET-URI another uri. SAME-FS-RETURN pointer to a boolean variable which will be set to ``#t'' on return if SOURCE-URI and TARGET-URI are on the same file system. RET an integer representing the result of the operation. -- Function: gnome-vfs-check-same-fs (source `mchars') (target `mchars') => (ret `') (same_fs_return `bool') Check if SOURCE and TARGET are on the same file system. SOURCE path to a file. TARGET path to another file. SAME-FS-RETURN pointer to a boolean variable which will be set to ``#t'' on return if SOURCE and TARGET are on the same file system. RET an integer representing the result of the operation. -- Function: gnome-vfs-uri-exists (self `') => (ret `bool') Check if the uri points to an existing entity. URI a uri. RET ``#t'' if uri exists. -- Function: gnome-vfs-create-symbolic-link (uri `') (target_reference `mchars') => (ret `') Creates a symbolic link, or eventually, a uri link (as necessary) at URI pointing to TARGET-REFERENCE. URI uri to create a link at. TARGET-REFERENCE uri "reference" to point the link to (uri or relative path). RET an integer representing the result of the operation.  File: guile-gnome-gnome-vfs.info, Node: Truncating Files, Next: Getting and Setting File Information, Prev: Basic File Operations, Up: Top 7 Truncating Files ****************** Force files to a particular length 7.1 Overview ============ Truncation of files is used to force them to a particular length. If a file longer than specified, the trailing bytes are discarded, if it is shorter than specified it is padded with zeros. 7.2 Usage ========= -- Function: gnome-vfs-truncate (text_uri `mchars') (length `unsigned-int64') => (ret `') Truncate the file at TEXT-URI to LENGTH bytes. TEXT-URI string representing the file to be truncated. LENGTH length of the new file at TEXT-URI. RET an integer representing the result of the operation. -- Function: gnome-vfs-truncate-uri (uri `') (length `unsigned-int64') => (ret `') Truncate the file at URI to be only LENGTH bytes. Data past LENGTH bytes will be discarded. URI uri of the file to be truncated. LENGTH length of the new file at URI. RET an integer representing the result of the operation.  File: guile-gnome-gnome-vfs.info, Node: Getting and Setting File Information, Next: Basic Directory Operations, Prev: Truncating Files, Up: Top 8 Getting and Setting File Information ************************************** Convenient high-level abstraction for obtaining and setting file information, including ACLs. 8.1 Overview ============ Applications can use the `gnome-vfs-get-file-info' family of operations to retrieve file information, as this operation can be quite costly in terms of time (specilly when sniffing the MIME type) applications can specify which information need at any time, reducing the performance impact. All of these operations use a `' data structure that holds the file information, there are several methods that can be used to manipulate this information. See `' for more information. 8.2 Usage ========= -- Function: gnome-vfs-get-file-info (text_uri `mchars') (info `') (options `') => (ret `') Retrieve information about TEXT-URI. The information will be stored in INFO. TEXT-URI uri of the file for which information will be retrieved. INFO pointer to a `' object that will hold the information for the file on return. OPTIONS options for retrieving file information. RET an integer representing the result of the operation. -- Function: gnome-vfs-set-file-info (text_uri `mchars') (info `') (mask `') => (ret `') Set file information for URI; only the information for which the corresponding bit in MASK is set is actually modified. INFO's `valid_fields' is not required to contain the `' corresponding to the specified `' fields of MASK. It is assumed that the INFO fields referenced by MASK are valid. TEXT-URI string representing the file location. INFO information that must be set for the file. MASK bit mask representing which fields of INFO need to be set. RET an integer representing the result of the operation.  File: guile-gnome-gnome-vfs.info, Node: Basic Directory Operations, Next: GnomeVFSVolume, Prev: Getting and Setting File Information, Up: Top 9 Basic Directory Operations **************************** Creating and removing directories. 9.1 Overview ============ 9.2 Usage ========= -- Function: gnome-vfs-make-directory (text_uri `mchars') (perm `unsigned-int') => (ret `') Create TEXT-URI as a directory. TEXT-URI uri of the directory to be created. PERM Unix-style permissions for the newly created directory RET an integer representing the result of the operation. -- Function: gnome-vfs-make-directory-for-uri (uri `') (perm `unsigned-int') => (ret `') Create a directory at URI. Only succeeds if a file or directory does not already exist at URI. URI uri of the directory to be created. PERM Unix-style permissions for the newly created directory. RET an integer representing the result of the operation. -- Function: gnome-vfs-remove-directory (text_uri `mchars') => (ret `') Remove TEXT-URI. TEXT-URI must be an empty directory. TEXT-URI path of the directory to be removed. RET an integer representing the result of the operation. -- Function: gnome-vfs-remove-directory-from-uri (uri `') => (ret `') Remove URI. URI must be an empty directory. URI uri of the directory to be removed. RET an integer representing the result of the operation.  File: guile-gnome-gnome-vfs.info, Node: GnomeVFSVolume, Next: GnomeVFSDrive, Prev: Basic Directory Operations, Up: Top 10 GnomeVFSVolume ***************** Abstraction for a mounted file system or a network location. 10.1 Overview ============= 10.2 Usage ========== -- Class: Derives from `'. This class defines no direct slots. -- Function: gnome-vfs-volume-compare (self `') (b `') => (ret `int') -- Method: compare Compares two `' objects A and B. Two `' objects referring to different volumes are guaranteed to not return 0 when comparing them, if they refer to the same volume 0 is returned. The resulting `' should be used to determine the order in which A and B are displayed in graphical user interfces. The comparison algorithm first of all peeks the device type of A and B, they will be sorted in the following order: * * * * * * Magnetic and opto-magnetic volumes (ZIP, floppy) Optical volumes (CD, DVD) External volumes (USB sticks, music players) Mounted hard disks Network mounts Other volumes Afterwards, the display name of A and B is compared using a locale-sensitive sorting algorithm, which involves `g-utf8-collate-key'. If two volumes have the same display name, their unique ID is compared which can be queried using `gnome-vfs-volume-get-id'. A a `'. B a `'. RET 0 if the volumes refer to the same GNOME-VFS-VOLUME, a negative value if A should be displayed before B, or a positive value if A should be displayed after B. Since 2.6 -- Function: gnome-vfs-volume-get-activation-uri (self `') => (ret `mchars') -- Method: get-activation-uri Returns the activation URI of a `'. The returned URI usually refers to a valid location. You can check the validity of the location by calling `gnome-vfs-uri-new' with the URI, and checking whether the return value is not ``#f''. VOLUME a `'. RET a newly allocated string for activation uri of VOLUME. Since 2.6 -- Function: gnome-vfs-volume-get-device-path (self `') => (ret `mchars') -- Method: get-device-path Returns the device path of a `'. For HAL volumes, this returns the value of the volume's "block.device" key. For UNIX mounts, it returns the `mntent''s `mnt_fsname' entry. Otherwise, it returns ``#f''. VOLUME a `'. RET a newly allocated string for device path of VOLUME. Since 2.6 -- Function: gnome-vfs-volume-get-device-type (self `') => (ret `') -- Method: get-device-type Returns the `' of the VOLUME. VOLUME a `'. RET the device type for VOLUME. Since 2.6 -- Function: gnome-vfs-volume-get-display-name (self `') => (ret `mchars') -- Method: get-display-name Returns the display name of the VOLUME. VOLUME a `'. RET a newly allocated string for display name of VOLUME. Since 2.6 -- Function: gnome-vfs-volume-get-drive (self `') => (ret `') -- Method: get-drive VOLUME a `'. RET the drive for the VOLUME. Since 2.6 -- Function: gnome-vfs-volume-get-hal-udi (self `') => (ret `mchars') -- Method: get-hal-udi Returns the HAL UDI of a `'. For HAL volumes, this matches the value of the "info.udi" key, for other volumes it is ``#f''. VOLUME a `'. RET a newly allocated string for unique device id of VOLUME, or ``#f''. Since 2.6 -- Function: gnome-vfs-volume-get-icon (self `') => (ret `mchars') -- Method: get-icon VOLUME a `'. RET a newly allocated string for the icon filename of VOLUME. Since 2.6 -- Function: gnome-vfs-volume-get-id (self `') => (ret `unsigned-long') -- Method: get-id Returns the ID of the VOLUME, Two `' are guaranteed to refer to the same volume if they have the same ID. VOLUME a `'. RET the id for the VOLUME. Since 2.6 -- Function: gnome-vfs-volume-get-volume-type (self `') => (ret `') -- Method: get-volume-type Returns the `' of the VOLUME. VOLUME a `'. RET the volume type for VOLUME. Since 2.6 -- Function: gnome-vfs-volume-handles-trash (self `') => (ret `bool') -- Method: handles-trash Returns whether the file system on a VOLUME supports trashing of files. If the VOLUME has an AutoFS file system (i.e. `gnome-vfs-volume-get-device-type' returns `'), or if the VOLUME is mounted read-only (`gnome-vfs-volume-is-read-only' returns ``#t''), it is assumed to not support trashing of files. Otherwise, if the VOLUME provides file system information, it is determined whether the file system supports trashing of files. See `gnome-vfs-volume-get-filesystem-type' for details which volumes provide file system information, and which file systems currently support a trash. VOLUME a `'. RET ``#t'' if VOLUME handles trash, ``#f'' otherwise. Since 2.6 -- Function: gnome-vfs-volume-is-mounted (self `') => (ret `bool') -- Method: is-mounted Returns whether the file system on a VOLUME is currently mounted. For HAL volumes, this reflects the value of the "volume.is_mounted" key, for traditional UNIX mounts and connected servers, ``#t'' is returned, because their existence implies that they are mounted. VOLUME a `'. RET ``#t'' if the VOLUME is mounted, ``#f'' otherwise. Since 2.6 -- Function: gnome-vfs-volume-is-read-only (self `') => (ret `bool') -- Method: is-read-only Returns whether the file system on a VOLUME is read-only. For HAL volumes, the "volume.is_mounted_read_only" key is authoritative, for traditional UNIX mounts it returns ``#t'' if the mount was done with the "ro" option. For servers, ``#f'' is returned. VOLUME a `'. RET ``#t'' if the VOLUME is read-only to the user, ``#f'' otherwise. Since 2.6 -- Function: gnome-vfs-volume-is-user-visible (self `') => (ret `bool') -- Method: is-user-visible Returns whether the VOLUME is visible to the user. This should be used by applications to determine whether it is included in user interfaces listing available volumes. VOLUME a `'. RET ``#t'' if VOLUME is visible to the user, ``#f'' otherwise. Since 2.6 -- Function: gnome-vfs-connect-to-server (uri `mchars') (display_name `mchars') (icon `mchars') This function adds a server connection to the specified URI, which is displayed in user interfaces with the specified DISPLAY-NAME and ICON. If this function is invoked successfully, the created server shows up in the list of mounted volumes of the `', which can be queried using `gnome-vfs-volume-monitor-get-mounted-volumes'. This function does not have a return value. Hence, you can't easily detect whether the specified server was successfully created. The actual creation and consumption of the new server through the `' is done asynchronously. URI, DISPLAY-NAME, and ICON can be freely chosen, but should be meaningful: URI should refer to a valid location. You can check the validity of the location by calling `gnome-vfs-uri-new' with URI, and checking whether the return value is not ``#f''. The DISPLAY-NAME should be queried from the user, and an empty string should not be considered valid. ICON typically references an icon from the icon theme. Some implementations currently use `gnome-fs-smb', `gnome-fs-ssh', `gnome-fs-ftp' and `gnome-fs-share', depending on the type of the server referenced by URI. The icon naming conventions might change in the future, though. Obeying the freedesktop.org Icon Naming Specification (http://standards.freedesktop.org/icon-naming-spec/icon-naming-spec-latest. html) is suggested. URI The string representation of the server to connect to. DISPLAY-NAME The display name that is used to identify the server connection. ICON The icon that is used to identify the server connection. Since 2.6  File: guile-gnome-gnome-vfs.info, Node: GnomeVFSDrive, Next: GnomeVFSVolumeMonitor, Prev: GnomeVFSVolume, Up: Top 11 GnomeVFSDrive **************** Container for GnomeVFSVolume (floppy drive, CD reader, ...) 11.1 Overview ============= 11.2 Usage ========== -- Class: Derives from `'. This class defines no direct slots. -- Signal on : volume-mounted (arg0 `') This signal is emitted after the `'VOLUME has been mounted. When the VOLUME is mounted, it is added to the DRIVE's list of mounted volumes, which can be queried using `gnome-vfs-drive-get-mounted-volumes'. It is also added to the list of the `''s list of mounted volumes, which can be queried using `gnome-vfs-volume-monitor-get-mounted-volumes'. -- Signal on : volume-pre-unmount (arg0 `') This signal is emitted when the `'VOLUME, which has been present in the `'DRIVE, is about to be unmounted. When the VOLUME is unmounted, it is removed from the DRIVE's list of mounted volumes, which can be queried using `gnome-vfs-drive-get-mounted-volumes'. It is also removed from the `''s list of mounted volumes, which can be queried using `gnome-vfs-volume-monitor-get-mounted-volumes'. When a client application receives this signal, it must free all resources associated with the VOLUME, for instance cancel all pending file operations on the VOLUME, and cancel all pending file monitors using `gnome-vfs-monitor-cancel'. -- Signal on : volume-unmounted (arg0 `') This signal is emitted after the `'VOLUME, which had been present in the `'DRIVE, has been unmounted. When the VOLUME is unmounted, it is removed from the DRIVE's list of mounted volumes, which can be queried using `gnome-vfs-drive-get-mounted-volumes'. It is also removed from the `''s list of mounted volumes, which can be queried using `gnome-vfs-volume-monitor-get-mounted-volumes'. -- Function: gnome-vfs-drive-compare (self `') (b `') => (ret `int') -- Method: compare Compares two `' objects A and B. Two `' objects referring to different drives are guaranteed to not return 0 when comparing them, if they refer to the same drive 0 is returned. The resulting `' should be used to determine the order in which A and B are displayed in graphical user interfces. The comparison algorithm first of all peeks the device type of A and B, they will be sorted in the following order: * * * * * Magnetic and opto-magnetic drives (ZIP, floppy) Optical drives (CD, DVD) External drives (USB sticks, music players) Mounted hard disks< Other drives< Afterwards, the display name of A and B is compared using a locale-sensitive sorting algorithm, which involves `g-utf8-collate-key'. If two drives have the same display name, their unique ID is compared which can be queried using `gnome-vfs-drive-get-id'. A a `'. B a `'. RET 0 if the drives refer to the same GNOME-VFS-DRIVE, a negative value if A should be displayed before B, or a positive value if A should be displayed after B. Since 2.6 -- Function: gnome-vfs-drive-get-activation-uri (self `') => (ret `mchars') -- Method: get-activation-uri Returns the activation URI of a `'. The returned URI usually refers to a valid location. You can check the validity of the location by calling `gnome-vfs-uri-new' with the URI, and checking whether the return value is not ``#f''. DRIVE a `'. RET a newly allocated string for the activation uri of the `'. Since 2.6 -- Function: gnome-vfs-drive-get-device-path (self `') => (ret `mchars') -- Method: get-device-path Returns the device path of a `'. For HAL drives, this returns the value of the drives's "block.device" key. For UNIX mounts, it returns the `mntent''s `mnt_fsname' entry. Otherwise, it returns ``#f''. DRIVE a `'. RET a newly allocated string for the device path of the `'. Since 2.6 -- Function: gnome-vfs-drive-get-device-type (self `') => (ret `') -- Method: get-device-type DRIVE a `'. RET device type, a `' value. Since 2.6 -- Function: gnome-vfs-drive-get-display-name (self `') => (ret `mchars') -- Method: get-display-name DRIVE a `'. RET a newly allocated string for the display name of the DRIVE. Since 2.6 -- Function: gnome-vfs-drive-get-hal-udi (self `') => (ret `mchars') -- Method: get-hal-udi Returns the HAL UDI of a `'. For HAL drives, this matches the value of the "info.udi" key, for other drives it is ``#f''. DRIVE a `'. RET a newly allocated string for the unique device id of the DRIVE, or ``#f''. Since 2.6 -- Function: gnome-vfs-drive-get-icon (self `') => (ret `mchars') -- Method: get-icon DRIVE a `'. RET a newly allocated string for the icon filename of the DRIVE. Since 2.6 -- Function: gnome-vfs-drive-get-id (self `') => (ret `unsigned-long') -- Method: get-id DRIVE a `'. RET drive id, a `' value. Since 2.6 -- Function: gnome-vfs-drive-get-mounted-volumes (self `') => (ret `glist-of') -- Method: get-mounted-volumes DRIVE a `'. RET list of mounted volumes for the DRIVE. Since 2.8 -- Function: gnome-vfs-drive-is-connected (self `') => (ret `bool') -- Method: is-connected DRIVE a `'. RET ``#t'' if the DRIVE is connected, ``#f'' otherwise. Since 2.6 -- Function: gnome-vfs-drive-is-mounted (self `') => (ret `bool') -- Method: is-mounted DRIVE a `'. RET ``#t'' if the DRIVE is mounted, ``#f'' otherwise. Since 2.6 -- Function: gnome-vfs-drive-is-user-visible (self `') => (ret `bool') -- Method: is-user-visible Returns whether the DRIVE is visible to the user. This should be used by applications to determine whether it is included in user interfaces listing available drives. DRIVE a `'. RET ``#t'' if the DRIVE is visible to the user, ``#f'' otherwise. Since 2.6  File: guile-gnome-gnome-vfs.info, Node: GnomeVFSVolumeMonitor, Next: MIME typing, Prev: GnomeVFSDrive, Up: Top 12 GnomeVFSVolumeMonitor ************************ Monitors volume mounts and unmounts 12.1 Overview ============= 12.2 Usage ========== -- Class: Derives from `'. This class defines no direct slots. -- Signal on : volume-mounted (arg0 `') This signal is emitted after the `'VOLUME has been mounted. When the VOLUME is mounted, it is present in the VOLUME-MONITOR's list of mounted volumes, which can be queried using `gnome-vfs-volume-monitor-get-mounted-volumes'. If the VOLUME has an associated `', it also appears in the drive's list of mounted volumes, which can be queried using `gnome-vfs-drive-get-mounted-volumes'. -- Signal on : volume-pre-unmount (arg0 `') This signal is emitted when the `'VOLUME is about to be unmounted. When the VOLUME is unmounted, it is removed from the VOLUME-MONITOR's list of mounted volumes, which can be queried using `gnome-vfs-volume-monitor-get-mounted-volumes'. If the VOLUME has an associated `', it is also removed from in the drive's list of mounted volumes, which can be queried using `gnome-vfs-drive-get-mounted-volumes'. When a client application receives this signal, it must free all resources associated with the VOLUME, for instance cancel all pending file operations on the VOLUME, and cancel all pending file monitors using `gnome-vfs-monitor-cancel'. -- Signal on : volume-unmounted (arg0 `') This signal is emitted after the `'VOLUME has been unmounted. When the VOLUME is unmounted, it is removed from the VOLUME-MONITOR's list of mounted volumes, which can be queried using `gnome-vfs-volume-monitor-get-mounted-volumes'. If the VOLUME has an associated `', it is also removed from in the drive's list of mounted volumes, which can be queried using `gnome-vfs-drive-get-mounted-volumes'. -- Signal on : drive-connected (arg0 `') This signal is emitted when the `'DRIVE has been connected. When the DRIVE is connected, it is present in the VOLUME-MONITOR's list of connected drives, which can be queried using `gnome-vfs-volume-monitor-get-connected-drives'. -- Signal on : drive-disconnected (arg0 `') This signal is emitted after the `'DRIVE has been disconnected. When the DRIVE is disconnected, it is removed from the VOLUME-MONITOR's list of connected drives, which can be queried using `gnome-vfs-volume-monitor-get-connected-drives'. -- Function: gnome-vfs-get-volume-monitor => (ret `') Returns a pointer to the `' singleton. `' is a singleton, this means it is guaranteed to exist and be valid until `gnome-vfs-shutdown' is called. Consequently, it doesn't need to be refcounted since gnome-vfs will hold a reference to it until it is shut down. RET a pointer to the `' singleton. Since 2.6  File: guile-gnome-gnome-vfs.info, Node: MIME typing, Next: gnome-vfs-mime-utils, Prev: GnomeVFSVolumeMonitor, Up: Top 13 MIME typing ************** functions to get a mime-type for a file using its name or its content 13.1 Overview ============= 13.2 Usage ========== -- Function: gnome-vfs-mime-type-from-name (filename `mchars') => (ret `mchars') `gnome_vfs_mime_type_from_name' is deprecated and should not be used in newly-written code. This function is deprecated, use `gnome-vfs-get-mime-type-for-name' instead. Determine the mime type for FILENAME. Returns: FILENAME a filename (the file does not necessarily exist). RET the mime-type for this filename. Will return `GNOME_VFS_MIME_TYPE_UNKNOWN' if mime-type could not be found. -- Function: gnome-vfs-get-mime-type-common (uri `') => (ret `mchars') Tries to guess the mime type of the file represented by URI. Favors using the file data to the URI extension. Handles URI of a non-existent file by falling back on returning a type based on the extension. If cant find the mime-type based on the extension also then returns 'application/octet-stream'. FIXME: This function will not necessarily return the same mime type as doing a get file info on the text uri. URI a real file or a non-existent uri. RET the mime-type for URI. -- Function: gnome-vfs-get-mime-type-from-uri (uri `') => (ret `mchars') Tries to guess the mime type of the file URI by checking the file name extension. Works on non-existent files. URI a file uri. RET the mime-type for file at URI. -- Function: gnome-vfs-mime-type-is-supertype (mime_type `mchars') => (ret `bool') MIME-TYPE a const char * identifying a mime type. RET Whether MIME-TYPE is of the form "foo`/'*". -- Function: gnome-vfs-mime-info-cache-reload (dir `mchars') Reload the mime information for the DIR. DIR directory path which needs reloading. -- Function: gnome-vfs-mime-reload Reload the MIME database. -- Function: gnome-vfs-mime-shutdown `gnome_vfs_mime_shutdown' is deprecated and should not be used in newly-written code. This function doesn't have to be called as the operating system automatically cleans up resources when exiting. Unload the MIME database from memory.  File: guile-gnome-gnome-vfs.info, Node: gnome-vfs-mime-utils, Next: MIME Database, Prev: MIME typing, Up: Top 14 gnome-vfs-mime-utils *********************** 14.1 Overview ============= 14.2 Usage ========== -- Function: gnome-vfs-mime-type-is-equal (a `mchars') (b `mchars') => (ret `bool') Compares two mime types to determine if they are equivalent. They are equivalent if and only if they refer to the same mime type. A a const char * containing a mime type, e.g. "image/png". B a const char * containing a mime type, e.g. "image/png". RET ``#t'', if a and b are equivalent mime types. -- Function: gnome-vfs-get-mime-type-for-name (filename `mchars') => (ret `mchars') Determine the mime type for FILENAME. The file FILENAME may not exist, this function does not access the actual file. If the mime-type cannot be determined, `GNOME_VFS_MIME_TYPE_UNKNOWN' is returned. FILENAME a filename. RET the mime-type for this filename or `GNOME_VFS_MIME_TYPE_UNKNOWN' if mime-type could not be determined. Since 2.14 -- Function: gnome-vfs-get-mime-type (text_uri `mchars') => (ret `mchars') Determine the mime type of TEXT-URI. The mime type is determined in the same way as by `gnome-vfs-get-file-info'. This is meant as a convenient function for times when you only want the mime type. TEXT-URI path of the file for which to get the mime type. RET The mime type, or ``#f'' if there is an error reading the file. -- Function: gnome-vfs-get-slow-mime-type (text_uri `mchars') => (ret `mchars') Determine the mime type of TEXT-URI. The mime type is determined in the same way as by `gnome-vfs-get-file-info'. This is meant as a convenience function for times when you only want the mime type. TEXT-URI URI of the file for which to get the mime type RET The mime type, or NULL if there is an error reading the file. Since 2.14  File: guile-gnome-gnome-vfs.info, Node: MIME Database, Next: Undocumented, Prev: gnome-vfs-mime-utils, Up: Top 15 MIME Database **************** functions for getting information about applications and components associated with MIME types. 15.1 Overview ============= This API can be used to query the applications and components associated with particular MIME types, and to collect extra information about them, and also provides a convenience function for launching them. Applications can register themselves for particular MIME types by adhering to the Freedesktop.Org Desktop Entry Specification (http://standards.freedesktop.org/desktop-entry-spec/latest). 15.2 Usage ========== -- Class: Opaque pointer. This class defines no direct slots. -- Function: gnome-vfs-mime-get-all-applications (mime_type `mchars') => (ret `glist-of') Return an alphabetically sorted list of `' data structures representing all applications in the MIME database registered to handle files of MIME type MIME-TYPE (and supertypes). MIME-TYPE a const char * containing a mime type, e.g. "image/png". RET a `' * where the elements are `' * representing applications that handle MIME type MIME-TYPE. -- Function: gnome-vfs-mime-get-all-components (mime_type `mchars') => (ret `glist-of') `gnome_vfs_mime_get_all_components' is deprecated and should not be used in newly-written code. MIME-TYPE RET -- Function: gnome-vfs-mime-get-description (mime_type `mchars') => (ret `mchars') Query the MIME database for a description of the MIME-TYPE. MIME-TYPE the mime type. RET description of MIME type MIME-TYPE. -- Function: gnome-vfs-mime-can-be-executable (mime_type `mchars') => (ret `bool') Check whether files of MIME-TYPE might conceivably be executable. Default for known types if ``#f''. Default for unknown types is ``#t''. MIME-TYPE a const char * containing a mime type. RET ``#t'' if files of MIME-TYPE can be executable, ``#f'' otherwise. -- Function: gnome-vfs-mime-application-launch (self `') (uris `glist-of') => (ret `') Launches the given mime application with the given parameters. Command line parameters will be expanded as required by the application. The application will also be launched in a terminal if that is required. If the application only supports one argument per instance then multiple instances of the application will be launched. APP the `' to launch. URIS parameters for the `'. RET `GNOME_VFS_OK' if the application was launched. `GNOME_VFS_ERROR_NOT_SUPPORTED' if the uri protocol is not supported by the application. `GNOME_VFS_ERROR_PARSE' if the application command can not be parsed. `GNOME_VFS_ERROR_LAUNCH' if the application command can not be launched. `GNOME_VFS_ERROR_INTERNAL' for other internal and GConf errors. Since 2.4 -- Function: gnome-vfs-mime-application-get-name (self `') => (ret `mchars') Returns the name of the application APP APP a `'. RET the name of the application. Since 2.10 -- Function: gnome-vfs-mime-application-get-icon (self `') => (ret `mchars') Returns an icon representing the specified application. APP a `'. RET the filename of the icon usually without path information, e.g. "gedit-icon.png", and sometimes does not have an extension, e.g. "gnome-pdf" if the icon is supposed to be image type agnostic between icon themes. Icons are generic, and not theme specific. Since 2.10 -- Function: gnome-vfs-mime-application-get-exec (self `') => (ret `mchars') Returns the program to execute, possibly with arguments and parameter variables, as specified by the Desktop Entry Specification (http://standards.freedesktop.org/desktop-entry-spec/). APP a `'. RET the command line to execute. Since 2.10 -- Function: gnome-vfs-mime-application-equal (self `') (app_b `') => (ret `bool') Compare APP-A and APP-B. APP-A a `'. APP-B a `'. RET ``#t'' if APP-A and APP-B are equal, ``#f'' otherwise. Since 2.10  File: guile-gnome-gnome-vfs.info, Node: Undocumented, Next: Type Index, Prev: MIME Database, Up: Top 16 Undocumented *************** The following symbols, if any, have not been properly documented. 16.1 (gnome gw gnome-vfs) ========================= -- Variable: gnome-vfs-ace-add-perm -- Variable: gnome-vfs-ace-check-perm -- Variable: gnome-vfs-ace-copy-perms -- Variable: gnome-vfs-ace-del-perm -- Variable: gnome-vfs-ace-equal -- Variable: gnome-vfs-ace-get-id -- Variable: gnome-vfs-ace-get-inherit -- Variable: gnome-vfs-ace-get-kind -- Variable: gnome-vfs-ace-get-negative -- Variable: gnome-vfs-ace-set-id -- Variable: gnome-vfs-ace-set-inherit -- Variable: gnome-vfs-ace-set-kind -- Variable: gnome-vfs-ace-set-negative -- Variable: gnome-vfs-acl-clear -- Function: gnome-vfs-acl-get-ace-list -- Variable: gnome-vfs-acl-kind-to-string -- Variable: gnome-vfs-acl-new -- Variable: gnome-vfs-acl-perm-to-string -- Variable: gnome-vfs-acl-set -- Variable: gnome-vfs-acl-unset -- Variable: gnome-vfs-context-check-cancellation-current -- Variable: gnome-vfs-drive-needs-eject -- Variable: gnome-vfs-escape-host-and-path-string -- Variable: gnome-vfs-format-file-size-for-display -- Function: gnome-vfs-get-default-browse-domains -- Variable: gnome-vfs-get-mime-type-from-file-data -- Variable: gnome-vfs-get-supertype-from-mime-type -- Variable: gnome-vfs-init -- Variable: gnome-vfs-initialized -- Variable: gnome-vfs-is-executable-command-string -- Variable: gnome-vfs-make-uri-canonical-strip-fragment -- Variable: gnome-vfs-make-uri-from-input-with-dirs -- Variable: gnome-vfs-make-uri-from-input-with-trailing-ws -- Variable: gnome-vfs-mime-application-get-binary-name -- Variable: gnome-vfs-mime-application-get-desktop-file-path -- Variable: gnome-vfs-mime-application-get-desktop-id -- Variable: gnome-vfs-mime-application-get-generic-name -- Variable: gnome-vfs-mime-application-get-startup-wm-class -- Variable: gnome-vfs-mime-application-new-from-desktop-id -- Variable: gnome-vfs-mime-application-requires-terminal -- Variable: gnome-vfs-mime-application-supports-startup-notification -- Variable: gnome-vfs-mime-application-supports-uris -- Function: gnome-vfs-mime-get-all-applications-for-uri -- Variable: gnome-vfs-mime-get-default-application -- Variable: gnome-vfs-mime-get-default-application-for-uri -- Variable: gnome-vfs-mime-type-from-name-or-default -- Variable: gnome-vfs-mime-type-get-equivalence -- Variable: gnome-vfs-module-callback-pop -- Variable: gnome-vfs-shutdown -- Variable: gnome-vfs-unescape-string-for-display -- Variable: gnome-vfs-uri-extract-short-path-name -- Variable: gnome-vfs-uri-get-fragment-identifier -- Variable: gnome-vfs-uri-make-full-from-relative -- Variable: gnome-vfs-volume-get-filesystem-type -- Function: gnome-vfs-volume-monitor-get-connected-drives -- Variable: gnome-vfs-volume-monitor-get-drive-by-id -- Function: gnome-vfs-volume-monitor-get-mounted-volumes -- Variable: gnome-vfs-volume-monitor-get-volume-by-id -- Variable: gnome-vfs-volume-monitor-get-volume-for-path  File: guile-gnome-gnome-vfs.info, Node: Type Index, Next: Function Index, Prev: Undocumented, Up: Top Type Index ********** [index] * Menu: * : GnomeVFSDrive. (line 15) * : GnomeVFSFileInfo. (line 15) * : MIME Database. (line 23) * : GnomeVFSVolumeMonitor. (line 15) * : GnomeVFSVolume. (line 15) * : GnomeVFSURI. (line 20)  File: guile-gnome-gnome-vfs.info, Node: Function Index, Prev: Type Index, Up: Top Function Index ************** [index] * Menu: * compare <1>: GnomeVFSDrive. (line 72) * compare: GnomeVFSVolume. (line 23) * drive-connected on : GnomeVFSVolumeMonitor. (line 69) * drive-disconnected on : GnomeVFSVolumeMonitor. (line 79) * get-activation-uri <1>: GnomeVFSDrive. (line 119) * get-activation-uri: GnomeVFSVolume. (line 72) * get-device-path <1>: GnomeVFSDrive. (line 139) * get-device-path: GnomeVFSVolume. (line 91) * get-device-type <1>: GnomeVFSDrive. (line 160) * get-device-type: GnomeVFSVolume. (line 113) * get-display-name <1>: GnomeVFSDrive. (line 173) * get-display-name: GnomeVFSVolume. (line 128) * get-drive: GnomeVFSVolume. (line 143) * get-hal-udi <1>: GnomeVFSDrive. (line 186) * get-hal-udi: GnomeVFSVolume. (line 156) * get-icon <1>: GnomeVFSDrive. (line 205) * get-icon: GnomeVFSVolume. (line 175) * get-id <1>: GnomeVFSDrive. (line 218) * get-id: GnomeVFSVolume. (line 188) * get-mounted-volumes: GnomeVFSDrive. (line 231) * get-volume-type: GnomeVFSVolume. (line 207) * gnome-vfs-acl-get-ace-list: Undocumented. (line 40) * gnome-vfs-check-same-fs: Basic File Operations. (line 213) * gnome-vfs-check-same-fs-uris: Basic File Operations. (line 192) * gnome-vfs-connect-to-server: GnomeVFSVolume. (line 307) * gnome-vfs-create: Basic File Operations. (line 25) * gnome-vfs-create-symbolic-link: Basic File Operations. (line 244) * gnome-vfs-create-uri: Basic File Operations. (line 56) * gnome-vfs-drive-compare: GnomeVFSDrive. (line 71) * gnome-vfs-drive-get-activation-uri: GnomeVFSDrive. (line 118) * gnome-vfs-drive-get-device-path: GnomeVFSDrive. (line 138) * gnome-vfs-drive-get-device-type: GnomeVFSDrive. (line 159) * gnome-vfs-drive-get-display-name: GnomeVFSDrive. (line 172) * gnome-vfs-drive-get-hal-udi: GnomeVFSDrive. (line 185) * gnome-vfs-drive-get-icon: GnomeVFSDrive. (line 204) * gnome-vfs-drive-get-id: GnomeVFSDrive. (line 217) * gnome-vfs-drive-get-mounted-volumes: GnomeVFSDrive. (line 230) * gnome-vfs-drive-is-connected: GnomeVFSDrive. (line 243) * gnome-vfs-drive-is-mounted: GnomeVFSDrive. (line 256) * gnome-vfs-drive-is-user-visible: GnomeVFSDrive. (line 269) * gnome-vfs-escape-path-string: gnome-vfs-utils. (line 70) * gnome-vfs-escape-set: gnome-vfs-utils. (line 99) * gnome-vfs-escape-slashes: gnome-vfs-utils. (line 85) * gnome-vfs-escape-string: gnome-vfs-utils. (line 56) * gnome-vfs-expand-initial-tilde: gnome-vfs-utils. (line 200) * gnome-vfs-format-uri-for-display: gnome-vfs-utils. (line 16) * gnome-vfs-get-default-browse-domains: Undocumented. (line 60) * gnome-vfs-get-file-info: Getting and Setting File Information. (line 30) * gnome-vfs-get-local-path-from-uri: gnome-vfs-utils. (line 214) * gnome-vfs-get-mime-type: gnome-vfs-mime-utils. (line 49) * gnome-vfs-get-mime-type-common: MIME typing. (line 35) * gnome-vfs-get-mime-type-for-name: gnome-vfs-mime-utils. (line 30) * gnome-vfs-get-mime-type-from-uri: MIME typing. (line 54) * gnome-vfs-get-slow-mime-type: gnome-vfs-mime-utils. (line 64) * gnome-vfs-get-uri-from-local-path: gnome-vfs-utils. (line 229) * gnome-vfs-get-uri-scheme: gnome-vfs-utils. (line 270) * gnome-vfs-get-volume-monitor: GnomeVFSVolumeMonitor. (line 89) * gnome-vfs-icon-path-from-filename: gnome-vfs-utils. (line 247) * gnome-vfs-is-primary-thread: gnome-vfs-utils. (line 260) * gnome-vfs-make-directory: Basic Directory Operations. (line 16) * gnome-vfs-make-directory-for-uri: Basic Directory Operations. (line 31) * gnome-vfs-make-path-name-canonical: gnome-vfs-utils. (line 151) * gnome-vfs-make-uri-canonical: gnome-vfs-utils. (line 135) * gnome-vfs-make-uri-from-input: gnome-vfs-utils. (line 164) * gnome-vfs-make-uri-from-shell-arg: gnome-vfs-utils. (line 182) * gnome-vfs-mime-application-equal: MIME Database. (line 163) * gnome-vfs-mime-application-get-exec: MIME Database. (line 145) * gnome-vfs-mime-application-get-icon: MIME Database. (line 127) * gnome-vfs-mime-application-get-name: MIME Database. (line 113) * gnome-vfs-mime-application-launch: MIME Database. (line 85) * gnome-vfs-mime-can-be-executable: MIME Database. (line 69) * gnome-vfs-mime-get-all-applications: MIME Database. (line 30) * gnome-vfs-mime-get-all-applications-for-uri: Undocumented. (line 96) * gnome-vfs-mime-get-all-components: MIME Database. (line 47) * gnome-vfs-mime-get-description: MIME Database. (line 57) * gnome-vfs-mime-info-cache-reload: MIME typing. (line 76) * gnome-vfs-mime-reload: MIME typing. (line 84) * gnome-vfs-mime-shutdown: MIME typing. (line 88) * gnome-vfs-mime-type-from-name: MIME typing. (line 16) * gnome-vfs-mime-type-is-equal: gnome-vfs-mime-utils. (line 14) * gnome-vfs-mime-type-is-supertype: MIME typing. (line 67) * gnome-vfs-move: Basic File Operations. (line 169) * gnome-vfs-move-uri: Basic File Operations. (line 147) * gnome-vfs-open: Basic File Operations. (line 84) * gnome-vfs-open-uri: Basic File Operations. (line 103) * gnome-vfs-remove-directory: Basic Directory Operations. (line 47) * gnome-vfs-remove-directory-from-uri: Basic Directory Operations. (line 59) * gnome-vfs-result-from-errno: GnomeVFSResult. (line 40) * gnome-vfs-result-from-errno-code: GnomeVFSResult. (line 29) * gnome-vfs-result-from-h-errno: GnomeVFSResult. (line 49) * gnome-vfs-result-from-h-errno-val: GnomeVFSResult. (line 60) * gnome-vfs-result-to-string: GnomeVFSResult. (line 16) * gnome-vfs-set-file-info: Getting and Setting File Information. (line 52) * gnome-vfs-truncate: Truncating Files. (line 20) * gnome-vfs-truncate-uri: Truncating Files. (line 35) * gnome-vfs-unescape-string: gnome-vfs-utils. (line 115) * gnome-vfs-unlink: Basic File Operations. (line 122) * gnome-vfs-unlink-from-uri: Basic File Operations. (line 134) * gnome-vfs-uri-append-file-name: GnomeVFSURI. (line 138) * gnome-vfs-uri-append-path: GnomeVFSURI. (line 120) * gnome-vfs-uri-append-string: GnomeVFSURI. (line 103) * gnome-vfs-uri-dup: GnomeVFSURI. (line 185) * gnome-vfs-uri-equal: GnomeVFSURI. (line 350) * gnome-vfs-uri-exists: Basic File Operations. (line 232) * gnome-vfs-uri-extract-dirname: GnomeVFSURI. (line 404) * gnome-vfs-uri-extract-short-name: GnomeVFSURI. (line 419) * gnome-vfs-uri-get-host-name: GnomeVFSURI. (line 239) * gnome-vfs-uri-get-host-port: GnomeVFSURI. (line 263) * gnome-vfs-uri-get-parent: GnomeVFSURI. (line 227) * gnome-vfs-uri-get-password: GnomeVFSURI. (line 289) * gnome-vfs-uri-get-path: GnomeVFSURI. (line 390) * gnome-vfs-uri-get-scheme: GnomeVFSURI. (line 251) * gnome-vfs-uri-get-user-name: GnomeVFSURI. (line 277) * gnome-vfs-uri-has-parent: GnomeVFSURI. (line 215) * gnome-vfs-uri-is-local: GnomeVFSURI. (line 197) * gnome-vfs-uri-is-parent: GnomeVFSURI. (line 370) * gnome-vfs-uri-list-parse: GnomeVFSURI. (line 440) * gnome-vfs-uri-new: GnomeVFSURI. (line 27) * gnome-vfs-uri-resolve-relative: GnomeVFSURI. (line 45) * gnome-vfs-uri-resolve-symbolic-link: GnomeVFSURI. (line 84) * gnome-vfs-uri-set-host-name: GnomeVFSURI. (line 301) * gnome-vfs-uri-set-host-port: GnomeVFSURI. (line 313) * gnome-vfs-uri-set-password: GnomeVFSURI. (line 338) * gnome-vfs-uri-set-user-name: GnomeVFSURI. (line 326) * gnome-vfs-uri-to-string: GnomeVFSURI. (line 158) * gnome-vfs-uris-match: gnome-vfs-utils. (line 285) * gnome-vfs-url-show: gnome-vfs-utils. (line 36) * gnome-vfs-volume-compare: GnomeVFSVolume. (line 22) * gnome-vfs-volume-get-activation-uri: GnomeVFSVolume. (line 71) * gnome-vfs-volume-get-device-path: GnomeVFSVolume. (line 90) * gnome-vfs-volume-get-device-type: GnomeVFSVolume. (line 112) * gnome-vfs-volume-get-display-name: GnomeVFSVolume. (line 127) * gnome-vfs-volume-get-drive: GnomeVFSVolume. (line 142) * gnome-vfs-volume-get-hal-udi: GnomeVFSVolume. (line 155) * gnome-vfs-volume-get-icon: GnomeVFSVolume. (line 174) * gnome-vfs-volume-get-id: GnomeVFSVolume. (line 187) * gnome-vfs-volume-get-volume-type: GnomeVFSVolume. (line 206) * gnome-vfs-volume-handles-trash: GnomeVFSVolume. (line 221) * gnome-vfs-volume-is-mounted: GnomeVFSVolume. (line 249) * gnome-vfs-volume-is-read-only: GnomeVFSVolume. (line 269) * gnome-vfs-volume-is-user-visible: GnomeVFSVolume. (line 290) * gnome-vfs-volume-monitor-get-connected-drives: Undocumented. (line 120) * gnome-vfs-volume-monitor-get-mounted-volumes: Undocumented. (line 124) * handles-trash: GnomeVFSVolume. (line 222) * is-connected: GnomeVFSDrive. (line 244) * is-mounted <1>: GnomeVFSDrive. (line 257) * is-mounted: GnomeVFSVolume. (line 250) * is-read-only: GnomeVFSVolume. (line 270) * is-user-visible <1>: GnomeVFSDrive. (line 270) * is-user-visible: GnomeVFSVolume. (line 291) * volume-mounted on : GnomeVFSDrive. (line 22) * volume-mounted on : GnomeVFSVolumeMonitor. (line 22) * volume-pre-unmount on : GnomeVFSDrive. (line 36) * volume-pre-unmount on : GnomeVFSVolumeMonitor. (line 36) * volume-unmounted on : GnomeVFSDrive. (line 56) * volume-unmounted on : GnomeVFSVolumeMonitor. (line 55)  Tag Table: Node: Top665 Node: Overview2480 Node: GnomeVFSResult4530 Node: GnomeVFSURI6331 Node: gnome-vfs-utils18887 Node: GnomeVFSFileInfo27090 Node: Basic File Operations27461 Node: Truncating Files34667 Node: Getting and Setting File Information35911 Node: Basic Directory Operations38284 Node: GnomeVFSVolume39979 Node: GnomeVFSDrive49583 Node: GnomeVFSVolumeMonitor57123 Node: MIME typing60739 Node: gnome-vfs-mime-utils63274 Node: MIME Database65403 Node: Undocumented70467 Node: Type Index73636 Node: Function Index74292  End Tag Table guile-gnome-platform-2.16.2/gnome-vfs/doc/Makefile.am0000644000175000017500000000273111670374302022674 0ustar00wingowingo00000000000000################################################################################ ## guile-gnome-gnome-vfs.info include $(top_srcdir)/generate-docs.mk docbook_xml_wildcard = ~/src/gnome2/gnome-vfs/doc/xml/*.xml docbook_xml_ignore_files = \ %gnome-vfs-application-registry.xml \ %gnome-vfs-module.xml \ %gnome-vfs-module-callback-module-api.xml \ %gnome-vfs-module-shared.xml \ %gnome-vfs-method.xml \ %gnome-vfs-context.xml \ %gnome-vfs-transform.xml \ %gnome-vfs-parse-ls.xml \ %gnome-vfs-standard-callbacks.xml \ %gnome-vfs-module-callback.xml \ %gnome-vfs-ops.xml \ %gnome-vfs-init.xml \ %gnome-vfs-async-ops.xml \ %gnome-vfs-cancellation.xml \ %gnome-vfs-directory-find-ops.xml \ %gnome-vfs-directory-list-ops.xml \ %gnome-vfs-dns-sd.xml \ %gnome-vfs-file-advanced-ops.xml \ %gnome-vfs-file-rw-ops.xml \ %gnome-vfs-file-size.xml \ %gnome-vfs-inet-connection.xml \ %gnome-vfs-mime-database-deprecated.xml \ %gnome-vfs-mime-monitor.xml \ %gnome-vfs-monitor.xml \ %gnome-vfs-resolve.xml \ %gnome-vfs-socket-buffer.xml \ %gnome-vfs-socket.xml \ %gnome-vfs-ssl.xml \ %gnome-vfs-xfer.xml docbook_xml_files = $(filter-out $(docbook_xml_ignore_files), $(wildcard $(docbook_xml_wildcard))) wrapset_stem = gnome-vfs GTK_DOC_COVERAGE_MODULES = (gnome vfs) (gnome gw $(wrapset_stem)) EXTRA_DIST = overrides.texi info_TEXINFOS=guile-gnome-gnome-vfs.texi guile_gnome_gnome_vfs_TEXINFOS=overview.texi \ $(wildcard section-*.texi) $(wildcard defuns-*.texi) undocumented.texi guile-gnome-platform-2.16.2/gnome-vfs/doc/section-gnome-vfs-drive.xml.texi0000644000175000017500000000033711670374302027004 0ustar00wingowingo00000000000000 @c %start of fragment @node GnomeVFSDrive @chapter GnomeVFSDrive Container for GnomeVFSVolume (floppy drive, CD reader, ...) @section Overview @section Usage @include defuns-gnome-vfs-drive.xml.texi @c %end of fragment guile-gnome-platform-2.16.2/gnome-vfs/doc/Makefile.in0000644000175000017500000006731511752511067022720 0ustar00wingowingo00000000000000# Makefile.in generated by automake 1.11.5 from Makefile.am. # @configure_input@ # Copyright (C) 1994, 1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, # 2003, 2004, 2005, 2006, 2007, 2008, 2009, 2010, 2011 Free Software # Foundation, Inc. # This Makefile.in is free software; the Free Software Foundation # gives unlimited permission to copy and/or distribute it, # with or without modifications, as long as this notice is preserved. # This program is distributed in the hope that it will be useful, # but WITHOUT ANY WARRANTY, to the extent permitted by law; without # even the implied warranty of MERCHANTABILITY or FITNESS FOR A # PARTICULAR PURPOSE. @SET_MAKE@ ################################################################################ # guile-gnome # Copyright (C) 2007, 2011 Free Software Foundation, Inc. # This program is free software; you can redistribute it and/or # modify it under the terms of the GNU General Public License as # published by the Free Software Foundation; either version 2 of # the License, or (at your option) any later version. # This program is distributed in the hope that it will be useful, # but WITHOUT ANY WARRANTY; without even the implied warranty of # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the # GNU General Public License for more details. # You should have received a copy of the GNU General Public License # along with this program; if not, contact: # Free Software Foundation Voice: +1-617-542-5942 # 59 Temple Place - Suite 330 Fax: +1-617-542-2652 # Boston, MA 02111-1307, USA gnu@gnu.org # # Makefile snippet # VPATH = @srcdir@ am__make_dryrun = \ { \ am__dry=no; \ case $$MAKEFLAGS in \ *\\[\ \ ]*) \ echo 'am--echo: ; @echo "AM" OK' | $(MAKE) -f - 2>/dev/null \ | grep '^AM OK$$' >/dev/null || am__dry=yes;; \ *) \ for am__flg in $$MAKEFLAGS; do \ case $$am__flg in \ *=*|--*) ;; \ *n*) am__dry=yes; break;; \ esac; \ done;; \ esac; \ test $$am__dry = yes; \ } pkgdatadir = $(datadir)/@PACKAGE@ pkgincludedir = $(includedir)/@PACKAGE@ pkglibdir = $(libdir)/@PACKAGE@ pkglibexecdir = $(libexecdir)/@PACKAGE@ am__cd = CDPATH="$${ZSH_VERSION+.}$(PATH_SEPARATOR)" && cd install_sh_DATA = $(install_sh) -c -m 644 install_sh_PROGRAM = $(install_sh) -c install_sh_SCRIPT = $(install_sh) -c INSTALL_HEADER = $(INSTALL_DATA) transform = $(program_transform_name) NORMAL_INSTALL = : PRE_INSTALL = : POST_INSTALL = : NORMAL_UNINSTALL = : PRE_UNINSTALL = : POST_UNINSTALL = : build_triplet = @build@ host_triplet = @host@ DIST_COMMON = $(guile_gnome_gnome_vfs_TEXINFOS) $(srcdir)/Makefile.am \ $(srcdir)/Makefile.in $(srcdir)/stamp-vti \ $(srcdir)/version.texi $(top_srcdir)/generate-docs.mk subdir = gnome-vfs/doc ACLOCAL_M4 = $(top_srcdir)/aclocal.m4 am__aclocal_m4_deps = $(top_srcdir)/configure.ac am__configure_deps = $(am__aclocal_m4_deps) $(CONFIGURE_DEPENDENCIES) \ $(ACLOCAL_M4) mkinstalldirs = $(install_sh) -d CONFIG_HEADER = $(top_builddir)/config.h CONFIG_CLEAN_FILES = CONFIG_CLEAN_VPATH_FILES = SOURCES = DIST_SOURCES = INFO_DEPS = $(srcdir)/guile-gnome-gnome-vfs.info TEXINFO_TEX = $(top_srcdir)/build-aux/texinfo.tex am__TEXINFO_TEX_DIR = $(top_srcdir)/build-aux DVIS = guile-gnome-gnome-vfs.dvi PDFS = guile-gnome-gnome-vfs.pdf PSS = guile-gnome-gnome-vfs.ps HTMLS = guile-gnome-gnome-vfs.html TEXINFOS = guile-gnome-gnome-vfs.texi TEXI2DVI = texi2dvi TEXI2PDF = $(TEXI2DVI) --pdf --batch MAKEINFOHTML = $(MAKEINFO) --html AM_MAKEINFOHTMLFLAGS = $(AM_MAKEINFOFLAGS) DVIPS = dvips am__can_run_installinfo = \ case $$AM_UPDATE_INFO_DIR in \ n|no|NO) false;; \ *) (install-info --version) >/dev/null 2>&1;; \ esac am__installdirs = "$(DESTDIR)$(infodir)" am__vpath_adj_setup = srcdirstrip=`echo "$(srcdir)" | sed 's|.|.|g'`; am__vpath_adj = case $$p in \ $(srcdir)/*) f=`echo "$$p" | sed "s|^$$srcdirstrip/||"`;; \ *) f=$$p;; \ esac; am__strip_dir = f=`echo $$p | sed -e 's|^.*/||'`; am__install_max = 40 am__nobase_strip_setup = \ srcdirstrip=`echo "$(srcdir)" | sed 's/[].[^$$\\*|]/\\\\&/g'` am__nobase_strip = \ for p in $$list; do echo "$$p"; done | sed -e "s|$$srcdirstrip/||" am__nobase_list = $(am__nobase_strip_setup); \ for p in $$list; do echo "$$p $$p"; done | \ sed "s| $$srcdirstrip/| |;"' / .*\//!s/ .*/ ./; s,\( .*\)/[^/]*$$,\1,' | \ $(AWK) 'BEGIN { files["."] = "" } { files[$$2] = files[$$2] " " $$1; \ if (++n[$$2] == $(am__install_max)) \ { print $$2, files[$$2]; n[$$2] = 0; files[$$2] = "" } } \ END { for (dir in files) print dir, files[dir] }' am__base_list = \ sed '$$!N;$$!N;$$!N;$$!N;$$!N;$$!N;$$!N;s/\n/ /g' | \ sed '$$!N;$$!N;$$!N;$$!N;s/\n/ /g' am__uninstall_files_from_dir = { \ test -z "$$files" \ || { test ! -d "$$dir" && test ! -f "$$dir" && test ! -r "$$dir"; } \ || { echo " ( cd '$$dir' && rm -f" $$files ")"; \ $(am__cd) "$$dir" && rm -f $$files; }; \ } DISTFILES = $(DIST_COMMON) $(DIST_SOURCES) $(TEXINFOS) $(EXTRA_DIST) ACLOCAL = @ACLOCAL@ AG_PKG_CONFIG_PATH = @AG_PKG_CONFIG_PATH@ AMTAR = @AMTAR@ API_VERSION = @API_VERSION@ AR = @AR@ ATK_CFLAGS = @ATK_CFLAGS@ ATK_LIBS = @ATK_LIBS@ AUTOCONF = @AUTOCONF@ AUTOHEADER = @AUTOHEADER@ AUTOMAKE = @AUTOMAKE@ AWK = @AWK@ BONOBO_IDL_DIR = @BONOBO_IDL_DIR@ CANVAS_CFLAGS = @CANVAS_CFLAGS@ CANVAS_LIBS = @CANVAS_LIBS@ CC = @CC@ CCDEPMODE = @CCDEPMODE@ CFLAGS = @CFLAGS@ CORBA_CFLAGS = @CORBA_CFLAGS@ CORBA_LIBS = @CORBA_LIBS@ CPP = @CPP@ CPPFLAGS = @CPPFLAGS@ CYGPATH_W = @CYGPATH_W@ DEFS = @DEFS@ DEPDIR = @DEPDIR@ DLLTOOL = @DLLTOOL@ DSYMUTIL = @DSYMUTIL@ DUMPBIN = @DUMPBIN@ ECHO_C = @ECHO_C@ ECHO_N = @ECHO_N@ ECHO_T = @ECHO_T@ EGREP = @EGREP@ EXEEXT = @EXEEXT@ FGREP = @FGREP@ GCONF_CFLAGS = @GCONF_CFLAGS@ GCONF_LIBS = @GCONF_LIBS@ GDK_CFLAGS = @GDK_CFLAGS@ GDK_LIBS = @GDK_LIBS@ GDK_PIXBUF_CFLAGS = @GDK_PIXBUF_CFLAGS@ GDK_PIXBUF_LIBS = @GDK_PIXBUF_LIBS@ GLIB_CFLAGS = @GLIB_CFLAGS@ GLIB_LIBS = @GLIB_LIBS@ GNOMEUI_DEPRECATION_FLAGS = @GNOMEUI_DEPRECATION_FLAGS@ GNOME_VFS_CFLAGS = @GNOME_VFS_CFLAGS@ GNOME_VFS_DEPRECATED_CFLAGS = @GNOME_VFS_DEPRECATED_CFLAGS@ GNOME_VFS_LIBS = @GNOME_VFS_LIBS@ GOBJECT_CFLAGS = @GOBJECT_CFLAGS@ GOBJECT_LIBS = @GOBJECT_LIBS@ GREP = @GREP@ GTHREAD_CFLAGS = @GTHREAD_CFLAGS@ GTHREAD_LIBS = @GTHREAD_LIBS@ GTK_CFLAGS = @GTK_CFLAGS@ GTK_DEPRECATED_CFLAGS = @GTK_DEPRECATED_CFLAGS@ GTK_LIBS = @GTK_LIBS@ GUILE_CAIRO_CFLAGS = @GUILE_CAIRO_CFLAGS@ GUILE_CAIRO_LIBS = @GUILE_CAIRO_LIBS@ GUILE_CFLAGS = @GUILE_CFLAGS@ GUILE_EFFECTIVE_VERSION = @GUILE_EFFECTIVE_VERSION@ GUILE_GLIB_CFLAGS = @GUILE_GLIB_CFLAGS@ GUILE_GLIB_LIBS = @GUILE_GLIB_LIBS@ GUILE_LIBS = @GUILE_LIBS@ G_WRAP_CFLAGS = @G_WRAP_CFLAGS@ G_WRAP_LIBS = @G_WRAP_LIBS@ G_WRAP_LIB_DIR = @G_WRAP_LIB_DIR@ G_WRAP_MODULE_DIR = @G_WRAP_MODULE_DIR@ INSTALL = @INSTALL@ INSTALL_DATA = @INSTALL_DATA@ INSTALL_PROGRAM = @INSTALL_PROGRAM@ INSTALL_SCRIPT = @INSTALL_SCRIPT@ INSTALL_STRIP_PROGRAM = @INSTALL_STRIP_PROGRAM@ LD = @LD@ LDFLAGS = @LDFLAGS@ LIBGLADE_CFLAGS = @LIBGLADE_CFLAGS@ LIBGLADE_LIBS = @LIBGLADE_LIBS@ LIBGNOMEUI_CFLAGS = @LIBGNOMEUI_CFLAGS@ LIBGNOMEUI_LIBS = @LIBGNOMEUI_LIBS@ LIBGNOME_CFLAGS = @LIBGNOME_CFLAGS@ LIBGNOME_LIBS = @LIBGNOME_LIBS@ LIBOBJS = @LIBOBJS@ LIBS = @LIBS@ LIBTOOL = @LIBTOOL@ LIPO = @LIPO@ LN_S = @LN_S@ LTLIBOBJS = @LTLIBOBJS@ MAKEINFO = @MAKEINFO@ MANIFEST_TOOL = @MANIFEST_TOOL@ MKDIR_P = @MKDIR_P@ NM = @NM@ NMEDIT = @NMEDIT@ OBJDUMP = @OBJDUMP@ OBJEXT = @OBJEXT@ ORBIT_IDL = @ORBIT_IDL@ OTOOL = @OTOOL@ OTOOL64 = @OTOOL64@ PACKAGE = @PACKAGE@ PACKAGE_BUGREPORT = @PACKAGE_BUGREPORT@ PACKAGE_NAME = @PACKAGE_NAME@ PACKAGE_STRING = @PACKAGE_STRING@ PACKAGE_TARNAME = @PACKAGE_TARNAME@ PACKAGE_URL = @PACKAGE_URL@ PACKAGE_VERSION = @PACKAGE_VERSION@ PANGOCAIRO_CFLAGS = @PANGOCAIRO_CFLAGS@ PANGOCAIRO_LIBS = @PANGOCAIRO_LIBS@ PANGO_CFLAGS = @PANGO_CFLAGS@ PANGO_LIBS = @PANGO_LIBS@ PATH_SEPARATOR = @PATH_SEPARATOR@ PKG_CONFIG = @PKG_CONFIG@ PKG_CONFIG_LIBDIR = @PKG_CONFIG_LIBDIR@ PKG_CONFIG_PATH = @PKG_CONFIG_PATH@ RANLIB = @RANLIB@ SED = @SED@ SET_MAKE = @SET_MAKE@ SHELL = @SHELL@ STRIP = @STRIP@ VERSION = @VERSION@ WARN_CFLAGS = @WARN_CFLAGS@ abs_builddir = @abs_builddir@ abs_srcdir = @abs_srcdir@ abs_top_builddir = @abs_top_builddir@ abs_top_srcdir = @abs_top_srcdir@ ac_ct_AR = @ac_ct_AR@ ac_ct_CC = @ac_ct_CC@ ac_ct_DUMPBIN = @ac_ct_DUMPBIN@ am__include = @am__include@ am__leading_dot = @am__leading_dot@ am__quote = @am__quote@ am__tar = @am__tar@ am__untar = @am__untar@ bindir = @bindir@ build = @build@ build_alias = @build_alias@ build_cpu = @build_cpu@ build_os = @build_os@ build_vendor = @build_vendor@ builddir = @builddir@ datadir = @datadir@ datarootdir = @datarootdir@ docdir = @docdir@ dvidir = @dvidir@ exec_prefix = @exec_prefix@ host = @host@ host_alias = @host_alias@ host_cpu = @host_cpu@ host_os = @host_os@ host_vendor = @host_vendor@ htmldir = @htmldir@ includedir = @includedir@ infodir = @infodir@ install_sh = @install_sh@ libdir = @libdir@ libexecdir = @libexecdir@ localedir = @localedir@ localstatedir = @localstatedir@ mandir = @mandir@ mkdir_p = @mkdir_p@ oldincludedir = @oldincludedir@ pdfdir = @pdfdir@ prefix = @prefix@ program_transform_name = @program_transform_name@ psdir = @psdir@ sbindir = @sbindir@ sharedstatedir = @sharedstatedir@ srcdir = @srcdir@ sysconfdir = @sysconfdir@ target_alias = @target_alias@ top_build_prefix = @top_build_prefix@ top_builddir = @top_builddir@ top_srcdir = @top_srcdir@ wrapset_module = (gnome gw $(wrapset_stem)-spec) wrapset_name = gnome-$(wrapset_stem) GTK_DOC_TO_TEXI_STUBS = '((@ (gnome gw support gtk-doc) gtk-doc->texi-stubs) (cdr (program-arguments)))' GTK_DOC_DEFUN_HEURISTICS_METHOD = heuristics GTK_DOC_DEFUN_HEURISTICS_ARGS = (your-module-here) GTK_DOC_DEFUN_GWRAP_METHOD = g-wrap GTK_DOC_DEFUN_GWRAP_ARGS = $(wrapset_module) $(wrapset_name) GTK_DOC_DEFUN_METHOD = $(GTK_DOC_DEFUN_GWRAP_METHOD) GTK_DOC_DEFUN_ARGS = $(GTK_DOC_DEFUN_GWRAP_ARGS) GTK_DOC_TO_TEXI_DEFUNS = "(apply (@ (gnome gw support gtk-doc) gtk-doc->texi-defuns) (cadr (program-arguments)) '$(GTK_DOC_DEFUN_METHOD) '($(GTK_DOC_DEFUN_ARGS)) (cddr (program-arguments)))" GTK_DOC_COVERAGE_MODULES = (gnome vfs) (gnome gw $(wrapset_stem)) GTK_DOC_COVERAGE_TEXI = $(info_TEXINFOS) GTK_DOC_CHECK_COVERAGE = "((@ (gnome gw support gtk-doc) check-documentation-coverage) '($(GTK_DOC_COVERAGE_MODULES)) \"$(GTK_DOC_COVERAGE_TEXI)\")" GTK_DOC_GENERATE_UNDOCUMENTED = "((@ (gnome gw support gtk-doc) generate-undocumented-texi) '($(GTK_DOC_COVERAGE_MODULES)) \"$(GTK_DOC_COVERAGE_TEXI)\")" GUILE = $(top_builddir)/dev-environ guile docbook_xml_wildcard = ~/src/gnome2/gnome-vfs/doc/xml/*.xml docbook_xml_ignore_files = \ %gnome-vfs-application-registry.xml \ %gnome-vfs-module.xml \ %gnome-vfs-module-callback-module-api.xml \ %gnome-vfs-module-shared.xml \ %gnome-vfs-method.xml \ %gnome-vfs-context.xml \ %gnome-vfs-transform.xml \ %gnome-vfs-parse-ls.xml \ %gnome-vfs-standard-callbacks.xml \ %gnome-vfs-module-callback.xml \ %gnome-vfs-ops.xml \ %gnome-vfs-init.xml \ %gnome-vfs-async-ops.xml \ %gnome-vfs-cancellation.xml \ %gnome-vfs-directory-find-ops.xml \ %gnome-vfs-directory-list-ops.xml \ %gnome-vfs-dns-sd.xml \ %gnome-vfs-file-advanced-ops.xml \ %gnome-vfs-file-rw-ops.xml \ %gnome-vfs-file-size.xml \ %gnome-vfs-inet-connection.xml \ %gnome-vfs-mime-database-deprecated.xml \ %gnome-vfs-mime-monitor.xml \ %gnome-vfs-monitor.xml \ %gnome-vfs-resolve.xml \ %gnome-vfs-socket-buffer.xml \ %gnome-vfs-socket.xml \ %gnome-vfs-ssl.xml \ %gnome-vfs-xfer.xml docbook_xml_files = $(filter-out $(docbook_xml_ignore_files), $(wildcard $(docbook_xml_wildcard))) wrapset_stem = gnome-vfs EXTRA_DIST = overrides.texi info_TEXINFOS = guile-gnome-gnome-vfs.texi guile_gnome_gnome_vfs_TEXINFOS = overview.texi \ $(wildcard section-*.texi) $(wildcard defuns-*.texi) undocumented.texi all: all-am .SUFFIXES: .SUFFIXES: .dvi .html .info .pdf .ps .texi $(srcdir)/Makefile.in: $(srcdir)/Makefile.am $(top_srcdir)/generate-docs.mk $(am__configure_deps) @for dep in $?; do \ case '$(am__configure_deps)' in \ *$$dep*) \ ( cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh ) \ && { if test -f $@; then exit 0; else break; fi; }; \ exit 1;; \ esac; \ done; \ echo ' cd $(top_srcdir) && $(AUTOMAKE) --gnu gnome-vfs/doc/Makefile'; \ $(am__cd) $(top_srcdir) && \ $(AUTOMAKE) --gnu gnome-vfs/doc/Makefile .PRECIOUS: Makefile Makefile: $(srcdir)/Makefile.in $(top_builddir)/config.status @case '$?' in \ *config.status*) \ cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh;; \ *) \ echo ' cd $(top_builddir) && $(SHELL) ./config.status $(subdir)/$@ $(am__depfiles_maybe)'; \ cd $(top_builddir) && $(SHELL) ./config.status $(subdir)/$@ $(am__depfiles_maybe);; \ esac; $(top_srcdir)/generate-docs.mk: $(top_builddir)/config.status: $(top_srcdir)/configure $(CONFIG_STATUS_DEPENDENCIES) cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh $(top_srcdir)/configure: $(am__configure_deps) cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh $(ACLOCAL_M4): $(am__aclocal_m4_deps) cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh $(am__aclocal_m4_deps): mostlyclean-libtool: -rm -f *.lo clean-libtool: -rm -rf .libs _libs .texi.info: restore=: && backupdir="$(am__leading_dot)am$$$$" && \ am__cwd=`pwd` && $(am__cd) $(srcdir) && \ rm -rf $$backupdir && mkdir $$backupdir && \ if ($(MAKEINFO) --version) >/dev/null 2>&1; then \ for f in $@ $@-[0-9] $@-[0-9][0-9] $(@:.info=).i[0-9] $(@:.info=).i[0-9][0-9]; do \ if test -f $$f; then mv $$f $$backupdir; restore=mv; else :; fi; \ done; \ else :; fi && \ cd "$$am__cwd"; \ if $(MAKEINFO) $(AM_MAKEINFOFLAGS) $(MAKEINFOFLAGS) -I $(srcdir) \ -o $@ $<; \ then \ rc=0; \ $(am__cd) $(srcdir); \ else \ rc=$$?; \ $(am__cd) $(srcdir) && \ $$restore $$backupdir/* `echo "./$@" | sed 's|[^/]*$$||'`; \ fi; \ rm -rf $$backupdir; exit $$rc .texi.dvi: TEXINPUTS="$(am__TEXINFO_TEX_DIR)$(PATH_SEPARATOR)$$TEXINPUTS" \ MAKEINFO='$(MAKEINFO) $(AM_MAKEINFOFLAGS) $(MAKEINFOFLAGS) -I $(srcdir)' \ $(TEXI2DVI) $< .texi.pdf: TEXINPUTS="$(am__TEXINFO_TEX_DIR)$(PATH_SEPARATOR)$$TEXINPUTS" \ MAKEINFO='$(MAKEINFO) $(AM_MAKEINFOFLAGS) $(MAKEINFOFLAGS) -I $(srcdir)' \ $(TEXI2PDF) $< .texi.html: rm -rf $(@:.html=.htp) if $(MAKEINFOHTML) $(AM_MAKEINFOHTMLFLAGS) $(MAKEINFOFLAGS) -I $(srcdir) \ -o $(@:.html=.htp) $<; \ then \ rm -rf $@; \ if test ! -d $(@:.html=.htp) && test -d $(@:.html=); then \ mv $(@:.html=) $@; else mv $(@:.html=.htp) $@; fi; \ else \ if test ! -d $(@:.html=.htp) && test -d $(@:.html=); then \ rm -rf $(@:.html=); else rm -Rf $(@:.html=.htp) $@; fi; \ exit 1; \ fi $(srcdir)/guile-gnome-gnome-vfs.info: guile-gnome-gnome-vfs.texi $(srcdir)/version.texi $(guile_gnome_gnome_vfs_TEXINFOS) guile-gnome-gnome-vfs.dvi: guile-gnome-gnome-vfs.texi $(srcdir)/version.texi $(guile_gnome_gnome_vfs_TEXINFOS) guile-gnome-gnome-vfs.pdf: guile-gnome-gnome-vfs.texi $(srcdir)/version.texi $(guile_gnome_gnome_vfs_TEXINFOS) guile-gnome-gnome-vfs.html: guile-gnome-gnome-vfs.texi $(srcdir)/version.texi $(guile_gnome_gnome_vfs_TEXINFOS) $(srcdir)/version.texi: $(srcdir)/stamp-vti $(srcdir)/stamp-vti: guile-gnome-gnome-vfs.texi $(top_srcdir)/configure @(dir=.; test -f ./guile-gnome-gnome-vfs.texi || dir=$(srcdir); \ set `$(SHELL) $(top_srcdir)/build-aux/mdate-sh $$dir/guile-gnome-gnome-vfs.texi`; \ echo "@set UPDATED $$1 $$2 $$3"; \ echo "@set UPDATED-MONTH $$2 $$3"; \ echo "@set EDITION $(VERSION)"; \ echo "@set VERSION $(VERSION)") > vti.tmp @cmp -s vti.tmp $(srcdir)/version.texi \ || (echo "Updating $(srcdir)/version.texi"; \ cp vti.tmp $(srcdir)/version.texi) -@rm -f vti.tmp @cp $(srcdir)/version.texi $@ mostlyclean-vti: -rm -f vti.tmp maintainer-clean-vti: -rm -f $(srcdir)/stamp-vti $(srcdir)/version.texi .dvi.ps: TEXINPUTS="$(am__TEXINFO_TEX_DIR)$(PATH_SEPARATOR)$$TEXINPUTS" \ $(DVIPS) -o $@ $< uninstall-dvi-am: @$(NORMAL_UNINSTALL) @list='$(DVIS)'; test -n "$(dvidir)" || list=; \ for p in $$list; do \ $(am__strip_dir) \ echo " rm -f '$(DESTDIR)$(dvidir)/$$f'"; \ rm -f "$(DESTDIR)$(dvidir)/$$f"; \ done uninstall-html-am: @$(NORMAL_UNINSTALL) @list='$(HTMLS)'; test -n "$(htmldir)" || list=; \ for p in $$list; do \ $(am__strip_dir) \ echo " rm -rf '$(DESTDIR)$(htmldir)/$$f'"; \ rm -rf "$(DESTDIR)$(htmldir)/$$f"; \ done uninstall-info-am: @$(PRE_UNINSTALL) @if test -d '$(DESTDIR)$(infodir)' && $(am__can_run_installinfo); then \ list='$(INFO_DEPS)'; \ for file in $$list; do \ relfile=`echo "$$file" | sed 's|^.*/||'`; \ echo " install-info --info-dir='$(DESTDIR)$(infodir)' --remove '$(DESTDIR)$(infodir)/$$relfile'"; \ if install-info --info-dir="$(DESTDIR)$(infodir)" --remove "$(DESTDIR)$(infodir)/$$relfile"; \ then :; else test ! -f "$(DESTDIR)$(infodir)/$$relfile" || exit 1; fi; \ done; \ else :; fi @$(NORMAL_UNINSTALL) @list='$(INFO_DEPS)'; \ for file in $$list; do \ relfile=`echo "$$file" | sed 's|^.*/||'`; \ relfile_i=`echo "$$relfile" | sed 's|\.info$$||;s|$$|.i|'`; \ (if test -d "$(DESTDIR)$(infodir)" && cd "$(DESTDIR)$(infodir)"; then \ echo " cd '$(DESTDIR)$(infodir)' && rm -f $$relfile $$relfile-[0-9] $$relfile-[0-9][0-9] $$relfile_i[0-9] $$relfile_i[0-9][0-9]"; \ rm -f $$relfile $$relfile-[0-9] $$relfile-[0-9][0-9] $$relfile_i[0-9] $$relfile_i[0-9][0-9]; \ else :; fi); \ done uninstall-pdf-am: @$(NORMAL_UNINSTALL) @list='$(PDFS)'; test -n "$(pdfdir)" || list=; \ for p in $$list; do \ $(am__strip_dir) \ echo " rm -f '$(DESTDIR)$(pdfdir)/$$f'"; \ rm -f "$(DESTDIR)$(pdfdir)/$$f"; \ done uninstall-ps-am: @$(NORMAL_UNINSTALL) @list='$(PSS)'; test -n "$(psdir)" || list=; \ for p in $$list; do \ $(am__strip_dir) \ echo " rm -f '$(DESTDIR)$(psdir)/$$f'"; \ rm -f "$(DESTDIR)$(psdir)/$$f"; \ done dist-info: $(INFO_DEPS) @srcdirstrip=`echo "$(srcdir)" | sed 's|.|.|g'`; \ list='$(INFO_DEPS)'; \ for base in $$list; do \ case $$base in \ $(srcdir)/*) base=`echo "$$base" | sed "s|^$$srcdirstrip/||"`;; \ esac; \ if test -f $$base; then d=.; else d=$(srcdir); fi; \ base_i=`echo "$$base" | sed 's|\.info$$||;s|$$|.i|'`; \ for file in $$d/$$base $$d/$$base-[0-9] $$d/$$base-[0-9][0-9] $$d/$$base_i[0-9] $$d/$$base_i[0-9][0-9]; do \ if test -f $$file; then \ relfile=`expr "$$file" : "$$d/\(.*\)"`; \ test -f "$(distdir)/$$relfile" || \ cp -p $$file "$(distdir)/$$relfile"; \ else :; fi; \ done; \ done mostlyclean-aminfo: -rm -rf guile-gnome-gnome-vfs.aux guile-gnome-gnome-vfs.cp \ guile-gnome-gnome-vfs.cps guile-gnome-gnome-vfs.fn \ guile-gnome-gnome-vfs.fns guile-gnome-gnome-vfs.ky \ guile-gnome-gnome-vfs.kys guile-gnome-gnome-vfs.log \ guile-gnome-gnome-vfs.pg guile-gnome-gnome-vfs.pgs \ guile-gnome-gnome-vfs.tmp guile-gnome-gnome-vfs.toc \ guile-gnome-gnome-vfs.tp guile-gnome-gnome-vfs.tps \ guile-gnome-gnome-vfs.vr guile-gnome-gnome-vfs.vrs clean-aminfo: -test -z "guile-gnome-gnome-vfs.dvi guile-gnome-gnome-vfs.pdf \ guile-gnome-gnome-vfs.ps guile-gnome-gnome-vfs.html" \ || rm -rf guile-gnome-gnome-vfs.dvi guile-gnome-gnome-vfs.pdf \ guile-gnome-gnome-vfs.ps guile-gnome-gnome-vfs.html maintainer-clean-aminfo: @list='$(INFO_DEPS)'; for i in $$list; do \ i_i=`echo "$$i" | sed 's|\.info$$||;s|$$|.i|'`; \ echo " rm -f $$i $$i-[0-9] $$i-[0-9][0-9] $$i_i[0-9] $$i_i[0-9][0-9]"; \ rm -f $$i $$i-[0-9] $$i-[0-9][0-9] $$i_i[0-9] $$i_i[0-9][0-9]; \ done tags: TAGS TAGS: ctags: CTAGS CTAGS: distdir: $(DISTFILES) @srcdirstrip=`echo "$(srcdir)" | sed 's/[].[^$$\\*]/\\\\&/g'`; \ topsrcdirstrip=`echo "$(top_srcdir)" | sed 's/[].[^$$\\*]/\\\\&/g'`; \ list='$(DISTFILES)'; \ dist_files=`for file in $$list; do echo $$file; done | \ sed -e "s|^$$srcdirstrip/||;t" \ -e "s|^$$topsrcdirstrip/|$(top_builddir)/|;t"`; \ case $$dist_files in \ */*) $(MKDIR_P) `echo "$$dist_files" | \ sed '/\//!d;s|^|$(distdir)/|;s,/[^/]*$$,,' | \ sort -u` ;; \ esac; \ for file in $$dist_files; do \ if test -f $$file || test -d $$file; then d=.; else d=$(srcdir); fi; \ if test -d $$d/$$file; then \ dir=`echo "/$$file" | sed -e 's,/[^/]*$$,,'`; \ if test -d "$(distdir)/$$file"; then \ find "$(distdir)/$$file" -type d ! -perm -700 -exec chmod u+rwx {} \;; \ fi; \ if test -d $(srcdir)/$$file && test $$d != $(srcdir); then \ cp -fpR $(srcdir)/$$file "$(distdir)$$dir" || exit 1; \ find "$(distdir)/$$file" -type d ! -perm -700 -exec chmod u+rwx {} \;; \ fi; \ cp -fpR $$d/$$file "$(distdir)$$dir" || exit 1; \ else \ test -f "$(distdir)/$$file" \ || cp -p $$d/$$file "$(distdir)/$$file" \ || exit 1; \ fi; \ done $(MAKE) $(AM_MAKEFLAGS) \ top_distdir="$(top_distdir)" distdir="$(distdir)" \ dist-info check-am: all-am check: check-am all-am: Makefile $(INFO_DEPS) installdirs: for dir in "$(DESTDIR)$(infodir)"; do \ test -z "$$dir" || $(MKDIR_P) "$$dir"; \ done install: install-am install-exec: install-exec-am install-data: install-data-am uninstall: uninstall-am install-am: all-am @$(MAKE) $(AM_MAKEFLAGS) install-exec-am install-data-am installcheck: installcheck-am install-strip: if test -z '$(STRIP)'; then \ $(MAKE) $(AM_MAKEFLAGS) INSTALL_PROGRAM="$(INSTALL_STRIP_PROGRAM)" \ install_sh_PROGRAM="$(INSTALL_STRIP_PROGRAM)" INSTALL_STRIP_FLAG=-s \ install; \ else \ $(MAKE) $(AM_MAKEFLAGS) INSTALL_PROGRAM="$(INSTALL_STRIP_PROGRAM)" \ install_sh_PROGRAM="$(INSTALL_STRIP_PROGRAM)" INSTALL_STRIP_FLAG=-s \ "INSTALL_PROGRAM_ENV=STRIPPROG='$(STRIP)'" install; \ fi mostlyclean-generic: clean-generic: distclean-generic: -test -z "$(CONFIG_CLEAN_FILES)" || rm -f $(CONFIG_CLEAN_FILES) -test . = "$(srcdir)" || test -z "$(CONFIG_CLEAN_VPATH_FILES)" || rm -f $(CONFIG_CLEAN_VPATH_FILES) maintainer-clean-generic: @echo "This command is intended for maintainers to use" @echo "it deletes files that may require special tools to rebuild." clean: clean-am clean-am: clean-aminfo clean-generic clean-libtool mostlyclean-am distclean: distclean-am -rm -f Makefile distclean-am: clean-am distclean-generic dvi: dvi-am dvi-am: $(DVIS) html: html-am html-am: $(HTMLS) info: info-am info-am: $(INFO_DEPS) install-data-am: install-info-am install-dvi: install-dvi-am install-dvi-am: $(DVIS) @$(NORMAL_INSTALL) @list='$(DVIS)'; test -n "$(dvidir)" || list=; \ if test -n "$$list"; then \ echo " $(MKDIR_P) '$(DESTDIR)$(dvidir)'"; \ $(MKDIR_P) "$(DESTDIR)$(dvidir)" || exit 1; \ fi; \ for p in $$list; do \ if test -f "$$p"; then d=; else d="$(srcdir)/"; fi; \ echo "$$d$$p"; \ done | $(am__base_list) | \ while read files; do \ echo " $(INSTALL_DATA) $$files '$(DESTDIR)$(dvidir)'"; \ $(INSTALL_DATA) $$files "$(DESTDIR)$(dvidir)" || exit $$?; \ done install-exec-am: install-html: install-html-am install-html-am: $(HTMLS) @$(NORMAL_INSTALL) @list='$(HTMLS)'; list2=; test -n "$(htmldir)" || list=; \ if test -n "$$list"; then \ echo " $(MKDIR_P) '$(DESTDIR)$(htmldir)'"; \ $(MKDIR_P) "$(DESTDIR)$(htmldir)" || exit 1; \ fi; \ for p in $$list; do \ if test -f "$$p" || test -d "$$p"; then d=; else d="$(srcdir)/"; fi; \ $(am__strip_dir) \ d2=$$d$$p; \ if test -d "$$d2"; then \ echo " $(MKDIR_P) '$(DESTDIR)$(htmldir)/$$f'"; \ $(MKDIR_P) "$(DESTDIR)$(htmldir)/$$f" || exit 1; \ echo " $(INSTALL_DATA) '$$d2'/* '$(DESTDIR)$(htmldir)/$$f'"; \ $(INSTALL_DATA) "$$d2"/* "$(DESTDIR)$(htmldir)/$$f" || exit $$?; \ else \ list2="$$list2 $$d2"; \ fi; \ done; \ test -z "$$list2" || { echo "$$list2" | $(am__base_list) | \ while read files; do \ echo " $(INSTALL_DATA) $$files '$(DESTDIR)$(htmldir)'"; \ $(INSTALL_DATA) $$files "$(DESTDIR)$(htmldir)" || exit $$?; \ done; } install-info: install-info-am install-info-am: $(INFO_DEPS) @$(NORMAL_INSTALL) @srcdirstrip=`echo "$(srcdir)" | sed 's|.|.|g'`; \ list='$(INFO_DEPS)'; test -n "$(infodir)" || list=; \ if test -n "$$list"; then \ echo " $(MKDIR_P) '$(DESTDIR)$(infodir)'"; \ $(MKDIR_P) "$(DESTDIR)$(infodir)" || exit 1; \ fi; \ for file in $$list; do \ case $$file in \ $(srcdir)/*) file=`echo "$$file" | sed "s|^$$srcdirstrip/||"`;; \ esac; \ if test -f $$file; then d=.; else d=$(srcdir); fi; \ file_i=`echo "$$file" | sed 's|\.info$$||;s|$$|.i|'`; \ for ifile in $$d/$$file $$d/$$file-[0-9] $$d/$$file-[0-9][0-9] \ $$d/$$file_i[0-9] $$d/$$file_i[0-9][0-9] ; do \ if test -f $$ifile; then \ echo "$$ifile"; \ else : ; fi; \ done; \ done | $(am__base_list) | \ while read files; do \ echo " $(INSTALL_DATA) $$files '$(DESTDIR)$(infodir)'"; \ $(INSTALL_DATA) $$files "$(DESTDIR)$(infodir)" || exit $$?; done @$(POST_INSTALL) @if $(am__can_run_installinfo); then \ list='$(INFO_DEPS)'; test -n "$(infodir)" || list=; \ for file in $$list; do \ relfile=`echo "$$file" | sed 's|^.*/||'`; \ echo " install-info --info-dir='$(DESTDIR)$(infodir)' '$(DESTDIR)$(infodir)/$$relfile'";\ install-info --info-dir="$(DESTDIR)$(infodir)" "$(DESTDIR)$(infodir)/$$relfile" || :;\ done; \ else : ; fi install-man: install-pdf: install-pdf-am install-pdf-am: $(PDFS) @$(NORMAL_INSTALL) @list='$(PDFS)'; test -n "$(pdfdir)" || list=; \ if test -n "$$list"; then \ echo " $(MKDIR_P) '$(DESTDIR)$(pdfdir)'"; \ $(MKDIR_P) "$(DESTDIR)$(pdfdir)" || exit 1; \ fi; \ for p in $$list; do \ if test -f "$$p"; then d=; else d="$(srcdir)/"; fi; \ echo "$$d$$p"; \ done | $(am__base_list) | \ while read files; do \ echo " $(INSTALL_DATA) $$files '$(DESTDIR)$(pdfdir)'"; \ $(INSTALL_DATA) $$files "$(DESTDIR)$(pdfdir)" || exit $$?; done install-ps: install-ps-am install-ps-am: $(PSS) @$(NORMAL_INSTALL) @list='$(PSS)'; test -n "$(psdir)" || list=; \ if test -n "$$list"; then \ echo " $(MKDIR_P) '$(DESTDIR)$(psdir)'"; \ $(MKDIR_P) "$(DESTDIR)$(psdir)" || exit 1; \ fi; \ for p in $$list; do \ if test -f "$$p"; then d=; else d="$(srcdir)/"; fi; \ echo "$$d$$p"; \ done | $(am__base_list) | \ while read files; do \ echo " $(INSTALL_DATA) $$files '$(DESTDIR)$(psdir)'"; \ $(INSTALL_DATA) $$files "$(DESTDIR)$(psdir)" || exit $$?; done installcheck-am: maintainer-clean: maintainer-clean-am -rm -f Makefile maintainer-clean-am: distclean-am maintainer-clean-aminfo \ maintainer-clean-generic maintainer-clean-vti mostlyclean: mostlyclean-am mostlyclean-am: mostlyclean-aminfo mostlyclean-generic \ mostlyclean-libtool mostlyclean-vti pdf: pdf-am pdf-am: $(PDFS) ps: ps-am ps-am: $(PSS) uninstall-am: uninstall-dvi-am uninstall-html-am uninstall-info-am \ uninstall-pdf-am uninstall-ps-am .MAKE: install-am install-strip .PHONY: all all-am check check-am clean clean-aminfo clean-generic \ clean-libtool dist-info distclean distclean-generic \ distclean-libtool distdir dvi dvi-am html html-am info info-am \ install install-am install-data install-data-am install-dvi \ install-dvi-am install-exec install-exec-am install-html \ install-html-am install-info install-info-am install-man \ install-pdf install-pdf-am install-ps install-ps-am \ install-strip installcheck installcheck-am installdirs \ maintainer-clean maintainer-clean-aminfo \ maintainer-clean-generic maintainer-clean-vti mostlyclean \ mostlyclean-aminfo mostlyclean-generic mostlyclean-libtool \ mostlyclean-vti pdf pdf-am ps ps-am uninstall uninstall-am \ uninstall-dvi-am uninstall-html-am uninstall-info-am \ uninstall-pdf-am uninstall-ps-am generate-stubs: $(GUILE) $(GUILE_FLAGS) -c $(GTK_DOC_TO_TEXI_STUBS) $(docbook_xml_files) generate-defuns: $(GUILE) $(GUILE_FLAGS) -c $(GTK_DOC_TO_TEXI_DEFUNS) ./overrides.texi $(docbook_xml_files) check-coverage: $(GUILE) $(GUILE_FLAGS) -c $(GTK_DOC_CHECK_COVERAGE) generate-undocumented: rm -f undocumented.texi; touch undocumented.texi $(GUILE) $(GUILE_FLAGS) -c $(GTK_DOC_GENERATE_UNDOCUMENTED) # Tell versions [3.59,3.63) of GNU make to not export all variables. # Otherwise a system limit (for SysV at least) may be exceeded. .NOEXPORT: guile-gnome-platform-2.16.2/gnome-vfs/doc/stamp-vti0000644000175000017500000000014611752511104022477 0ustar00wingowingo00000000000000@set UPDATED 9 December 2011 @set UPDATED-MONTH December 2011 @set EDITION 2.16.2 @set VERSION 2.16.2 guile-gnome-platform-2.16.2/gnome-vfs/doc/overview.texi0000644000175000017500000000361011670374302023376 0ustar00wingowingo00000000000000@node Overview @chapter Overview @code{(gnome vfs)} wraps the GNOME Virtual Filesystem library for Guile. It is a part of Guile-GNOME. The basic idea in this module is to map, as transparently as possible, GNOME-VFS files onto Scheme ports. Once you have a Scheme port, the native Scheme API is the preferred API. Other GNOME-VFS library procedures are defined that have no counterpart on the Scheme level, such as the MIME database procedures. So, for example, to write to a file over SCP, you might do this: @lisp (define (with-output-to-port/dynamic make-port thunk) (let ((port #f)) (dynamic-wind (lambda () (set! port (make-port))) (lambda () (with-output-to-port port thunk)) (lambda () (close-port port) (set! port #f))))) (define (make-output-port uri-string exclusive?) (gnome-vfs-create (gnome-vfs-make-uri-from-input uri-string) 'write exclusive? #o644)) (with-output-to-port/dynamic (lambda () (make-output-port "sftp://me@@example.com/tmp/foo.txt" #t)) (lambda () (write "Hello world!"))) @end lisp The @code{dynamic-wind} trickery is to ensure that the port is closed after execution leaves the thunk, and not left for GC to close in the future. Exceptions raised during I/O are thrown to the @code{gnome-vfs-error} key, with the second argument being a symbol corresponding to a particular @code{} value, such as @code{error-file-exists}. To enable integration with the GNOME keyring, for SSH keys and the like, you will need to call @code{(gnome-authentication-manager-init)}, which is a procedure defined in the @code{(gnome gnome-ui)} library. This manual is admittedly a bit incomplete. Patches are accepted, of course, but the best thing to do would be eventually to wrap GIO, the new VFS layer that was pushed down into GLib. See the documentation for @code{(gnome gobject)} for more information on Guile-GNOME. guile-gnome-platform-2.16.2/gnome-vfs/doc/defuns-gnome-vfs-volume.xml.texi0000644000175000017500000002364411670374302027030 0ustar00wingowingo00000000000000 @c %start of fragment @deftp Class Derives from @code{}. This class defines no direct slots. @end deftp @deffn Function gnome-vfs-volume-compare (self@tie{}@code{}) (b@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{int}) @deffnx Method compare Compares two @code{} objects @var{a} and @var{b}. Two @code{} objects referring to different volumes are guaranteed to not return 0 when comparing them, if they refer to the same volume 0 is returned. The resulting @code{} should be used to determine the order in which @var{a} and @var{b} are displayed in graphical user interfces. The comparison algorithm first of all peeks the device type of @var{a} and @var{b}, they will be sorted in the following order: @itemize @item @item @item @item @item @item @end itemize Magnetic and opto-magnetic volumes (ZIP, floppy) Optical volumes (CD, DVD) External volumes (USB sticks, music players) Mounted hard disks Network mounts Other volumes Afterwards, the display name of @var{a} and @var{b} is compared using a locale-sensitive sorting algorithm, which involves @code{g-utf8-collate-key}. If two volumes have the same display name, their unique ID is compared which can be queried using @code{gnome-vfs-volume-get-id}. @table @var @item a a @code{}. @item b a @code{}. @item ret 0 if the volumes refer to the same @var{gnome-vfs-volume}, a negative value if @var{a} should be displayed before @var{b}, or a positive value if @var{a} should be displayed after @var{b}. @end table Since 2.6 @end deffn @deffn Function gnome-vfs-volume-get-activation-uri (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{mchars}) @deffnx Method get-activation-uri Returns the activation URI of a @code{}. The returned URI usually refers to a valid location. You can check the validity of the location by calling @code{gnome-vfs-uri-new} with the URI, and checking whether the return value is not @samp{@code{#f}}. @table @var @item volume a @code{}. @item ret a newly allocated string for activation uri of @var{volume}. @end table Since 2.6 @end deffn @deffn Function gnome-vfs-volume-get-device-path (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{mchars}) @deffnx Method get-device-path Returns the device path of a @code{}. For HAL volumes, this returns the value of the volume's "block.device" key. For UNIX mounts, it returns the @samp{mntent}'s @samp{mnt_fsname} entry. Otherwise, it returns @samp{@code{#f}}. @table @var @item volume a @code{}. @item ret a newly allocated string for device path of @var{volume}. @end table Since 2.6 @end deffn @deffn Function gnome-vfs-volume-get-device-type (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{}) @deffnx Method get-device-type Returns the @code{} of the @var{volume}. @table @var @item volume a @code{}. @item ret the device type for @var{volume}. @end table Since 2.6 @end deffn @deffn Function gnome-vfs-volume-get-display-name (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{mchars}) @deffnx Method get-display-name Returns the display name of the @var{volume}. @table @var @item volume a @code{}. @item ret a newly allocated string for display name of @var{volume}. @end table Since 2.6 @end deffn @deffn Function gnome-vfs-volume-get-drive (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{}) @deffnx Method get-drive @table @var @item volume a @code{}. @item ret the drive for the @var{volume}. @end table Since 2.6 @end deffn @deffn Function gnome-vfs-volume-get-hal-udi (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{mchars}) @deffnx Method get-hal-udi Returns the HAL UDI of a @code{}. For HAL volumes, this matches the value of the "info.udi" key, for other volumes it is @samp{@code{#f}}. @table @var @item volume a @code{}. @item ret a newly allocated string for unique device id of @var{volume}, or @samp{@code{#f}}. @end table Since 2.6 @end deffn @deffn Function gnome-vfs-volume-get-icon (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{mchars}) @deffnx Method get-icon @table @var @item volume a @code{}. @item ret a newly allocated string for the icon filename of @var{volume}. @end table Since 2.6 @end deffn @deffn Function gnome-vfs-volume-get-id (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{unsigned-long}) @deffnx Method get-id Returns the ID of the @var{volume}, Two @code{} are guaranteed to refer to the same volume if they have the same ID. @table @var @item volume a @code{}. @item ret the id for the @var{volume}. @end table Since 2.6 @end deffn @deffn Function gnome-vfs-volume-get-volume-type (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{}) @deffnx Method get-volume-type Returns the @code{} of the @var{volume}. @table @var @item volume a @code{}. @item ret the volume type for @var{volume}. @end table Since 2.6 @end deffn @deffn Function gnome-vfs-volume-handles-trash (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{bool}) @deffnx Method handles-trash Returns whether the file system on a @var{volume} supports trashing of files. If the @var{volume} has an AutoFS file system (i.e. @code{gnome-vfs-volume-get-device-type} returns @code{}), or if the @var{volume} is mounted read-only (@code{gnome-vfs-volume-is-read-only} returns @samp{@code{#t}}), it is assumed to not support trashing of files. Otherwise, if the @var{volume} provides file system information, it is determined whether the file system supports trashing of files. See @code{gnome-vfs-volume-get-filesystem-type} for details which volumes provide file system information, and which file systems currently support a trash. @table @var @item volume a @code{}. @item ret @samp{@code{#t}} if @var{volume} handles trash, @samp{@code{#f}} otherwise. @end table Since 2.6 @end deffn @deffn Function gnome-vfs-volume-is-mounted (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{bool}) @deffnx Method is-mounted Returns whether the file system on a @var{volume} is currently mounted. For HAL volumes, this reflects the value of the "volume.is_mounted" key, for traditional UNIX mounts and connected servers, @samp{@code{#t}} is returned, because their existence implies that they are mounted. @table @var @item volume a @code{}. @item ret @samp{@code{#t}} if the @var{volume} is mounted, @samp{@code{#f}} otherwise. @end table Since 2.6 @end deffn @deffn Function gnome-vfs-volume-is-read-only (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{bool}) @deffnx Method is-read-only Returns whether the file system on a @var{volume} is read-only. For HAL volumes, the "volume.is_mounted_read_only" key is authoritative, for traditional UNIX mounts it returns @samp{@code{#t}} if the mount was done with the "ro" option. For servers, @samp{@code{#f}} is returned. @table @var @item volume a @code{}. @item ret @samp{@code{#t}} if the @var{volume} is read-only to the user, @samp{@code{#f}} otherwise. @end table Since 2.6 @end deffn @deffn Function gnome-vfs-volume-is-user-visible (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{bool}) @deffnx Method is-user-visible Returns whether the @var{volume} is visible to the user. This should be used by applications to determine whether it is included in user interfaces listing available volumes. @table @var @item volume a @code{}. @item ret @samp{@code{#t}} if @var{volume} is visible to the user, @samp{@code{#f}} otherwise. @end table Since 2.6 @end deffn @deffn Function gnome-vfs-connect-to-server (uri@tie{}@code{mchars}) (display_name@tie{}@code{mchars}) (icon@tie{}@code{mchars}) This function adds a server connection to the specified @var{uri}, which is displayed in user interfaces with the specified @var{display-name} and @var{icon}. If this function is invoked successfully, the created server shows up in the list of mounted volumes of the @code{}, which can be queried using @code{gnome-vfs-volume-monitor-get-mounted-volumes}. This function does not have a return value. Hence, you can't easily detect whether the specified server was successfully created. The actual creation and consumption of the new server through the @code{} is done asynchronously. @var{uri}, @var{display-name}, and @var{icon} can be freely chosen, but should be meaningful: @var{uri} should refer to a valid location. You can check the validity of the location by calling @code{gnome-vfs-uri-new} with @var{uri}, and checking whether the return value is not @samp{@code{#f}}. The @var{display-name} should be queried from the user, and an empty string should not be considered valid. @var{icon} typically references an icon from the icon theme. Some implementations currently use @samp{gnome-fs-smb}, @samp{gnome-fs-ssh}, @samp{gnome-fs-ftp} and @samp{gnome-fs-share}, depending on the type of the server referenced by @var{uri}. The icon naming conventions might change in the future, though. Obeying the @uref{http://standards.freedesktop.org/icon-naming-spec/icon-naming-spec-latest. html, freedesktop.org Icon Naming Specification} is suggested. @table @var @item uri The string representation of the server to connect to. @item display-name The display name that is used to identify the server connection. @item icon The icon that is used to identify the server connection. @end table Since 2.6 @end deffn @c %end of fragment guile-gnome-platform-2.16.2/gnome-vfs/doc/defuns-gnome-vfs-file-basic-ops.xml.texi0000644000175000017500000001561411670374302030314 0ustar00wingowingo00000000000000 @c %start of fragment @deffn Function gnome-vfs-create (text_uri@tie{}@code{mchars}) (open_mode@tie{}@code{}) (exclusive@tie{}@code{bool}) (perm@tie{}@code{unsigned-int}) @result{}@tie{} (ret@tie{}@code{scm}) Create @var{text-uri} according to mode @var{open-mode}. On return, @var{handle} will then contain a pointer to a handle for the open file. @table @var @item handle pointer to a pointer to a @code{} object. @item text-uri string representing the uri to create. @item open-mode mode to leave the file opened in after creation (or @samp{GNOME_VFS_OPEN_MODE_NONE} to leave the file closed after creation). @item exclusive whether the file should be created in "exclusive" mode. i.e. if this flag is nonzero, operation will fail if a file with the same name already exists. @item perm bitmap representing the permissions for the newly created file (Unix style). @item ret an integer representing the result of the operation. @end table @end deffn @deffn Function gnome-vfs-create-uri (uri@tie{}@code{}) (open_mode@tie{}@code{}) (exclusive@tie{}@code{bool}) (perm@tie{}@code{unsigned-int}) @result{}@tie{} (ret@tie{}@code{scm}) Create @var{uri} according to mode @var{open-mode}. On return, @var{handle} will then contain a pointer to a handle for the open file. @table @var @item handle pointer to a pointer to a @code{} object. @item uri uri for the file to create. @item open-mode open mode. @item exclusive whether the file should be created in "exclusive" mode. i.e. if this flag is nonzero, operation will fail if a file with the same name already exists. @item perm bitmap representing the permissions for the newly created file (Unix style). @item ret an integer representing the result of the operation. @end table @end deffn @deffn Function gnome-vfs-open (text_uri@tie{}@code{mchars}) (open_mode@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{scm}) Open @var{text-uri} according to mode @var{open-mode}. On return, @var{handle} will then contain a pointer to a handle for the open file. @table @var @item handle pointer to a pointer to a @code{} object. @item text-uri string representing the uri to open. @item open-mode open mode. @item ret an integer representing the result of the operation. @end table @end deffn @deffn Function gnome-vfs-open-uri (uri@tie{}@code{}) (open_mode@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{scm}) Open @var{uri} according to mode @var{open-mode}. On return, @var{handle} will then contain a pointer to a handle for the open file. @table @var @item handle pointer to a pointer to a @code{} object. @item uri uri to open. @item open-mode open mode. @item ret an integer representing the result of the operation. @end table @end deffn @deffn Function gnome-vfs-unlink (text_uri@tie{}@code{mchars}) @result{}@tie{} (ret@tie{}@code{}) Unlink @var{text-uri} (i.e. delete the file). @table @var @item text-uri uri of the file to be unlinked. @item ret an integer representing the result of the operation. @end table @end deffn @deffn Function gnome-vfs-unlink-from-uri (uri@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{}) Unlink @var{uri} (i.e. delete the file). @table @var @item uri uri of the file to be unlinked. @item ret an integer representing the result of the operation. @end table @end deffn @deffn Function gnome-vfs-move-uri (old_uri@tie{}@code{}) (new_uri@tie{}@code{}) (force_replace@tie{}@code{bool}) @result{}@tie{} (ret@tie{}@code{}) Move a file from uri @var{old-uri} to @var{new-uri}. This will only work if @var{old-uri} and @var{new-uri} are on the same file system. Otherwise, it is necessary to use the more general @code{gnome-vfs-xfer-uri} function. @table @var @item old-uri source uri. @item new-uri destination uri. @item force-replace if @samp{@code{#t}}, move @var{old-uri} to @var{new-uri} even if there is already a file at @var{new-uri}. If there is a file, it will be discarded. @item ret an integer representing the result of the operation. @end table @end deffn @deffn Function gnome-vfs-move (old_text_uri@tie{}@code{mchars}) (new_text_uri@tie{}@code{mchars}) (force_replace@tie{}@code{bool}) @result{}@tie{} (ret@tie{}@code{}) Move a file from @var{old-text-uri} to @var{new-text-uri}. This will only work if @var{old-text-uri} and @var{new-text-uri} are on the same file system. Otherwise, it is necessary to use the more general @code{gnome-vfs-xfer-uri} function. @table @var @item old-text-uri string representing the source file location. @item new-text-uri string representing the destination file location. @item force-replace if @samp{@code{#t}}, perform the operation even if it unlinks an existing file at @var{new-text-uri}. @item ret an integer representing the result of the operation. @end table @end deffn @deffn Function gnome-vfs-check-same-fs-uris (source_uri@tie{}@code{}) (target_uri@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{}) (same_fs_return@tie{}@code{bool}) Check if @var{source-uri} and @var{target-uri} are on the same file system. @table @var @item source-uri a uri. @item target-uri another uri. @item same-fs-return pointer to a boolean variable which will be set to @samp{@code{#t}} on return if @var{source-uri} and @var{target-uri} are on the same file system. @item ret an integer representing the result of the operation. @end table @end deffn @deffn Function gnome-vfs-check-same-fs (source@tie{}@code{mchars}) (target@tie{}@code{mchars}) @result{}@tie{} (ret@tie{}@code{}) (same_fs_return@tie{}@code{bool}) Check if @var{source} and @var{target} are on the same file system. @table @var @item source path to a file. @item target path to another file. @item same-fs-return pointer to a boolean variable which will be set to @samp{@code{#t}} on return if @var{source} and @var{target} are on the same file system. @item ret an integer representing the result of the operation. @end table @end deffn @deffn Function gnome-vfs-uri-exists (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{bool}) Check if the uri points to an existing entity. @table @var @item uri a uri. @item ret @samp{@code{#t}} if uri exists. @end table @end deffn @deffn Function gnome-vfs-create-symbolic-link (uri@tie{}@code{}) (target_reference@tie{}@code{mchars}) @result{}@tie{} (ret@tie{}@code{}) Creates a symbolic link, or eventually, a uri link (as necessary) at @var{uri} pointing to @var{target-reference}. @table @var @item uri uri to create a link at. @item target-reference uri "reference" to point the link to (uri or relative path). @item ret an integer representing the result of the operation. @end table @end deffn @c %end of fragment guile-gnome-platform-2.16.2/gnome-vfs/doc/section-gnome-vfs-file-trunc-ops.xml.texi0000644000175000017500000000062411670374302030541 0ustar00wingowingo00000000000000 @c %start of fragment @node Truncating Files @chapter Truncating Files Force files to a particular length @section Overview Truncation of files is used to force them to a particular length. If a file longer than specified, the trailing bytes are discarded, if it is shorter than specified it is padded with zeros. @section Usage @include defuns-gnome-vfs-file-trunc-ops.xml.texi @c %end of fragment guile-gnome-platform-2.16.2/gnome-vfs/doc/section-gnome-vfs-mime-utils.xml.texi0000644000175000017500000000026711670374302027762 0ustar00wingowingo00000000000000 @c %start of fragment @node gnome-vfs-mime-utils @chapter gnome-vfs-mime-utils @section Overview @section Usage @include defuns-gnome-vfs-mime-utils.xml.texi @c %end of fragment guile-gnome-platform-2.16.2/gnome-vfs/doc/defuns-gnome-vfs-file-info.xml.texi0000644000175000017500000000022211670374302027354 0ustar00wingowingo00000000000000 @c %start of fragment @deftp Class Opaque pointer. This class defines no direct slots. @end deftp @c %end of fragment guile-gnome-platform-2.16.2/gnome-vfs/doc/defuns-gnome-vfs-mime.xml.texi0000644000175000017500000000471511670374302026446 0ustar00wingowingo00000000000000 @c %start of fragment @deffn Function gnome-vfs-mime-type-from-name (filename@tie{}@code{mchars}) @result{}@tie{} (ret@tie{}@code{mchars}) @samp{gnome_vfs_mime_type_from_name} is deprecated and should not be used in newly-written code. This function is deprecated, use @code{gnome-vfs-get-mime-type-for-name} instead. Determine the mime type for @var{filename}. Returns: @table @var @item filename a filename (the file does not necessarily exist). @item ret the mime-type for this filename. Will return @samp{GNOME_VFS_MIME_TYPE_UNKNOWN} if mime-type could not be found. @end table @end deffn @deffn Function gnome-vfs-get-mime-type-common (uri@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{mchars}) Tries to guess the mime type of the file represented by @var{uri}. Favors using the file data to the @var{uri} extension. Handles @var{uri} of a non-existent file by falling back on returning a type based on the extension. If cant find the mime-type based on the extension also then returns 'application/octet-stream'. FIXME: This function will not necessarily return the same mime type as doing a get file info on the text uri. @table @var @item uri a real file or a non-existent uri. @item ret the mime-type for @var{uri}. @end table @end deffn @deffn Function gnome-vfs-get-mime-type-from-uri (uri@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{mchars}) Tries to guess the mime type of the file @var{uri} by checking the file name extension. Works on non-existent files. @table @var @item uri a file uri. @item ret the mime-type for file at @var{uri}. @end table @end deffn @deffn Function gnome-vfs-mime-type-is-supertype (mime_type@tie{}@code{mchars}) @result{}@tie{} (ret@tie{}@code{bool}) @table @var @item mime-type a const char * identifying a mime type. @item ret Whether @var{mime-type} is of the form "foo@samp{/}*". @end table @end deffn @deffn Function gnome-vfs-mime-info-cache-reload (dir@tie{}@code{mchars}) Reload the mime information for the @var{dir}. @table @var @item dir directory path which needs reloading. @end table @end deffn @deffn Function gnome-vfs-mime-reload Reload the MIME database. @end deffn @deffn Function gnome-vfs-mime-shutdown @samp{gnome_vfs_mime_shutdown} is deprecated and should not be used in newly-written code. This function doesn't have to be called as the operating system automatically cleans up resources when exiting. Unload the MIME database from memory. @end deffn @c %end of fragment guile-gnome-platform-2.16.2/gnome-vfs/doc/section-gnome-vfs-directory-basic-ops.xml.texi0000644000175000017500000000035611670374302031556 0ustar00wingowingo00000000000000 @c %start of fragment @node Basic Directory Operations @chapter Basic Directory Operations Creating and removing directories. @section Overview @section Usage @include defuns-gnome-vfs-directory-basic-ops.xml.texi @c %end of fragment guile-gnome-platform-2.16.2/gnome-vfs/doc/defuns-gnome-vfs-uri.xml.texi0000644000175000017500000003226611670374302026320 0ustar00wingowingo00000000000000 @c %start of fragment @deftp Class Opaque pointer. This class defines no direct slots. @end deftp @deffn Function gnome-vfs-uri-new (text_uri@tie{}@code{mchars}) @result{}@tie{} (ret@tie{}@code{}) Create a new uri from @var{text-uri}. Unsupported and unsafe methods are not allowed and will result in @samp{@code{#f}} being returned. URL transforms are allowed. The @var{a} text_uri must be an escaped URI string such as returned by @code{gnome-vfs-get-uri-from-local-path}, @code{gnome-vfs-make-uri-from-input}, or @code{gtk-file-chooser-get-uri}. @table @var @item text-uri an escaped string representing a uri. @item ret The new uri. @end table @end deffn @deffn Function gnome-vfs-uri-resolve-relative (self@tie{}@code{}) (relative_reference@tie{}@code{mchars}) @result{}@tie{} (ret@tie{}@code{}) Create a new uri from @var{relative-reference}, relative to @var{base}. The resolution algorithm in some aspects follows @uref{http://www.ietf.org/rfc/rfc2396.txt,RFC 2396}, section 5.2, but is not identical due to some extra assumptions GnomeVFS makes about URIs. If @var{relative-reference} begins with a valid scheme identifier followed by ':', it is assumed to refer to an absolute URI, and a @code{} is created from it using @code{gnome-vfs-uri-new}. Otherwise, depending on its precise syntax, it inherits some aspects of the parent URI, but the parents' fragment and query components are ignored. If @var{relative-reference} begins with "//", it only inherits the @var{base} scheme, if it begins with '/' (i.e. is an absolute path reference), it inherits everything ecxept the @var{base} path. Otherwise, it replaces the part of @var{base} after the last '/'. @cartouche This function should not be used by application authors unless they expect very distinct semantics. Instead, authors should use @code{gnome-vfs-uri-append-file-name}, @code{gnome-vfs-uri-append-path}, @code{gnome-vfs-uri-append-string} or @code{gnome-vfs-uri-resolve-symbolic-link}. @end cartouche @table @var @item base base uri. @item relative-reference a string representing a possibly relative uri reference. @item ret A @code{} referring to @var{relative-reference}, or @samp{@code{#f}} if @var{relative-reference} was malformed. @end table @end deffn @deffn Function gnome-vfs-uri-resolve-symbolic-link (self@tie{}@code{}) (relative_reference@tie{}@code{mchars}) @result{}@tie{} (ret@tie{}@code{}) Create a new uri from @var{symbolic-link}, relative to @var{base}. If @var{symbolic-link} begins with a '/', it replaces the path of @var{base}, otherwise it is appended after the last '/' character of @var{base}. @table @var @item base base uri. @item relative-reference @item ret A new @code{} referring to @var{symbolic-link}. @end table Since 2.16 @end deffn @deffn Function gnome-vfs-uri-append-string (self@tie{}@code{}) (uri_fragment@tie{}@code{mchars}) @result{}@tie{} (ret@tie{}@code{}) Create a new uri obtained by appending @var{uri-fragment} to @var{uri}. This will take care of adding an appropriate directory separator between the end of @var{uri} and the start of @var{uri-fragment} if necessary. @table @var @item uri a @code{}. @item uri-fragment a piece of a uri (ie a fully escaped partial path). @item ret The new uri obtained by combining @var{uri} and @var{uri-fragment}. @end table @end deffn @deffn Function gnome-vfs-uri-append-path (self@tie{}@code{}) (path@tie{}@code{mchars}) @result{}@tie{} (ret@tie{}@code{}) Create a new uri obtained by appending @var{path} to @var{uri}. This will take care of adding an appropriate directory separator between the end of @var{uri} and the start of @var{path} if necessary as well as escaping @var{path} as necessary. @table @var @item uri a @code{}. @item path a non-escaped file path. @item ret The new uri obtained by combining @var{uri} and @var{path}. @end table @end deffn @deffn Function gnome-vfs-uri-append-file-name (self@tie{}@code{}) (filename@tie{}@code{mchars}) @result{}@tie{} (ret@tie{}@code{}) Create a new uri obtained by appending @var{file-name} to @var{uri}. This will take care of adding an appropriate directory separator between the end of @var{uri} and the start of @var{file-name} if necessary. @var{file-name} might, for instance, be the result of a call to @code{g-dir-read-name}. @table @var @item uri a @code{}. @item filename any "regular" file name (can include #, /, etc) in the file system encoding. This is not an escaped URI. @item ret The new uri obtained by combining @var{uri} and @var{path}. @end table @end deffn @deffn Function gnome-vfs-uri-to-string (self@tie{}@code{}) (hide_options@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{mchars}) Translate @var{uri} into a printable string. The string will not contain the uri elements specified by @var{hide-options}. A file: URI on Win32 might look like file:///x:/foo/bar.txt. Note that the part after file:// is not a legal file name, you need to remove the / in front of the drive letter. This function does that automatically if @var{hide-options} specifies that the toplevel method, user name, password, host name and host port should be hidden. On the other hand, a file: URI for a UNC path looks like file:////server/share/foo/bar.txt, and in that case the part after file:// is the correct file name. @table @var @item uri a @code{}. @item hide-options bitmask specifying what uri elements (e.g. password, user name etc.) should not be represented in the returned string. @item ret a malloc'd printable string representing @var{uri}. @end table @end deffn @deffn Function gnome-vfs-uri-dup (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{}) Duplicate @var{uri}. @table @var @item uri a @code{}. @item ret a pointer to a new uri that is exactly the same as @var{uri}. @end table @end deffn @deffn Function gnome-vfs-uri-is-local (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{bool}) Check if @var{uri} is a local URI. Note that the return value of this function entirely depends on the @code{} associated with the URI. It is up to the method author to distinguish between remote URIs add URIs referring to entities on the local computer. Warning, this can be slow, as it does i/o to detect things like NFS mounts. @table @var @item uri a @code{}. @item ret @samp{@code{#t}} if @var{uri} refers to a local entity, @samp{@code{#f}} otherwise. @end table @end deffn @deffn Function gnome-vfs-uri-has-parent (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{bool}) Check if uri has a parent or not. @table @var @item uri a @code{}. @item ret @samp{@code{#t}} if @var{uri} has a parent, @samp{@code{#f}} otherwise. @end table @end deffn @deffn Function gnome-vfs-uri-get-parent (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{}) Retrieve @var{uri}'s parent uri. @table @var @item uri a @code{}. @item ret a pointer to @var{uri}'s parent uri. @end table @end deffn @deffn Function gnome-vfs-uri-get-host-name (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{mchars}) Retrieve the host name for @var{uri}. @table @var @item uri a @code{}. @item ret a string representing the host name. @end table @end deffn @deffn Function gnome-vfs-uri-get-scheme (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{mchars}) Retrieve the scheme used for @var{uri}. @table @var @item uri a @code{}. @item ret a string representing the scheme. @end table @end deffn @deffn Function gnome-vfs-uri-get-host-port (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{unsigned-int}) Retrieve the host port number in @var{uri}. @table @var @item uri a @code{}. @item ret The host port number used by @var{uri}. If the value is zero, the default port value for the specified toplevel access method is used. @end table @end deffn @deffn Function gnome-vfs-uri-get-user-name (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{mchars}) Retrieve the user name in @var{uri}. @table @var @item uri a @code{}. @item ret a string representing the user name in @var{uri}. @end table @end deffn @deffn Function gnome-vfs-uri-get-password (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{mchars}) Retrieve the password for @var{uri}. @table @var @item uri a @code{}. @item ret The password for @var{uri}. @end table @end deffn @deffn Function gnome-vfs-uri-set-host-name (self@tie{}@code{}) (host_name@tie{}@code{mchars}) Set @var{host-name} as the host name accessed by @var{uri}. @table @var @item uri a @code{}. @item host-name a string representing a host name. @end table @end deffn @deffn Function gnome-vfs-uri-set-host-port (self@tie{}@code{}) (host_port@tie{}@code{unsigned-int}) Set the host port number in @var{uri}. If @var{host-port} is zero, the default port for @var{uri}'s toplevel access method is used. @table @var @item uri a @code{}. @item host-port a TCP/IP port number. @end table @end deffn @deffn Function gnome-vfs-uri-set-user-name (self@tie{}@code{}) (user_name@tie{}@code{mchars}) Set @var{user-name} as the user name for @var{uri}. @table @var @item uri a @code{}. @item user-name a string representing a user name on the host accessed by @var{uri}. @end table @end deffn @deffn Function gnome-vfs-uri-set-password (self@tie{}@code{}) (password@tie{}@code{mchars}) Set @var{password} as the password for @var{uri}. @table @var @item uri a @code{}. @item password a password string. @end table @end deffn @deffn Function gnome-vfs-uri-equal (self@tie{}@code{}) (b@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{bool}) Compare @var{a} and @var{b}. FIXME: This comparison should take into account the possiblity that unreserved characters may be escaped. ...or perhaps @code{gnome-vfs-uri-new} should unescape unreserved characters? @table @var @item a a @code{}. @item b a @code{}. @item ret @samp{@code{#t}} if @var{a} and @var{b} are equal, @samp{@code{#f}} otherwise. @end table @end deffn @deffn Function gnome-vfs-uri-is-parent (self@tie{}@code{}) (possible_child@tie{}@code{}) (recursive@tie{}@code{bool}) @result{}@tie{} (ret@tie{}@code{bool}) Check if @var{possible-child} is contained by @var{possible-parent}. If @var{recursive} is @samp{@code{#f}}, just try the immediate parent directory, else search up through the hierarchy. @table @var @item possible-parent a @code{}. @item possible-child a @code{}. @item recursive a flag to turn recursive check on. @item ret @samp{@code{#t}} if @var{possible-child} is contained in @var{possible-parent}. @end table @end deffn @deffn Function gnome-vfs-uri-get-path (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{mchars}) Retrieve full path name for @var{uri}. @table @var @item uri a @code{}. @item ret a pointer to the full path name in @var{uri}. Notice that the pointer points to the path name stored in @var{uri}, so the path name returned must not be modified nor freed. @end table @end deffn @deffn Function gnome-vfs-uri-extract-dirname (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{mchars}) Extract the name of the directory in which the file pointed to by @var{uri} is stored as a newly allocated string. The string will end with a @samp{GNOME_VFS_URI_PATH_CHR}. @table @var @item uri a @code{}. @item ret a pointer to the newly allocated string representing the parent directory. @end table @end deffn @deffn Function gnome-vfs-uri-extract-short-name (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{mchars}) Retrieve base file name for @var{uri}, ignoring any trailing path separators. This matches the XPG definition of basename, but not g_basename. This is often useful when you want the name of something that's pointed to by a uri, and don't care whether the uri has a directory or file form. If @var{uri} points to the root of a domain, returns the host name. If there's no host name, returns @samp{GNOME_VFS_URI_PATH_STR}. See also: @code{gnome-vfs-uri-extract-short-path-name}. @table @var @item uri a @code{}. @item ret a pointer to the newly allocated string representing the unescaped short form of the name. @end table @end deffn @deffn Function gnome-vfs-uri-list-parse (uri_list@tie{}@code{mchars}) @result{}@tie{} (ret@tie{}@code{glist-of}) Extracts a list of @code{} objects from a standard text/uri-list, such as one you would get on a drop operation. Use @code{gnome-vfs-uri-list-free} when you are done with the list. @table @var @item uri-list string consists of @code{} and/or paths seperated by newline character. @item ret a @code{} of @code{}. @end table @end deffn @c %end of fragment guile-gnome-platform-2.16.2/gnome-vfs/doc/guile-gnome-gnome-vfs.texi0000644000175000017500000000630511670374302025643 0ustar00wingowingo00000000000000\input texinfo @c -*-texinfo-*- @c %**start of header @setfilename guile-gnome-gnome-vfs.info @settitle Guile-GNOME-VFS @c %**end of header @include version.texi @copying This manual is for @code{(gnome vfs)} (version @value{VERSION}, updated @value{UPDATED}) Copyright 2001-2007 The Free Software Foundation, Christophe Fergeau, Christian Neumair @quotation Permission is granted to copy, distribute and/or modify this document under the terms of the GNU Free Documentation License, Version 1.1 or any later version published by the Free Software Foundation. @end quotation @end copying @dircategory The Algorithmic Language Scheme @direntry * Guile-GNOME-VFS: (guile-gnome-gnome-vfs.info). The GNOME virtual file system. @end direntry @titlepage @title Guile-GNOME: GNOME-VFS @subtitle version @value{VERSION}, updated @value{UPDATED} @author The Free Software Foundation @author Christophe Fergeau @author Christian Neumair @page @vskip 0pt plus 1filll @insertcopying @end titlepage @ifnottex @node Top @top Guile-GNOME-VFS @insertcopying @menu * Overview:: About GNOME-VFS and its Guile bindings. Basic Data Types * GnomeVFSResult:: Result of I/O operations, the equivalent of errno * GnomeVFSURI:: A uniform resource identifier. * gnome-vfs-utils:: various utilities functions to manipulate uris * GnomeVFSFileInfo:: stores information about files, GnomeVFS equivalent of stat File Operations * Basic File Operations:: Essential VFS operations. This includes creating, moving and deleting files, * Truncating Files:: Force files to a particular length * Getting and Setting File Information:: Convenient high-level abstraction for obtaining and setting file information, Directory-Specific Operations * Basic Directory Operations:: Creating and removing directories. Volumes and Drives Handling * GnomeVFSVolume:: Abstraction for a mounted file system or a network location. * GnomeVFSDrive:: Container for GnomeVFSVolume (floppy drive, CD reader, ...) * GnomeVFSVolumeMonitor:: Monitors volume mounts and unmounts MIME Registry * MIME typing:: functions to get a mime-type for a file using its name or its content * gnome-vfs-mime-utils:: * MIME Database:: functions for getting information about applications and components associated * Undocumented:: Undocumented functions. * Type Index:: * Function Index:: @end menu @end ifnottex @iftex @shortcontents @end iftex @include overview.texi @include section-gnome-vfs-result.xml.texi @include section-gnome-vfs-uri.xml.texi @include section-gnome-vfs-utils.xml.texi @include section-gnome-vfs-file-info.xml.texi @include section-gnome-vfs-file-basic-ops.xml.texi @include section-gnome-vfs-file-trunc-ops.xml.texi @include section-gnome-vfs-file-info-ops.xml.texi @include section-gnome-vfs-directory-basic-ops.xml.texi @include section-gnome-vfs-volume.xml.texi @include section-gnome-vfs-drive.xml.texi @include section-gnome-vfs-volume-monitor.xml.texi @include section-gnome-vfs-mime.xml.texi @include section-gnome-vfs-mime-utils.xml.texi @include section-gnome-vfs-mime-database.xml.texi @include undocumented.texi @node Type Index @unnumbered Type Index @printindex tp @node Function Index @unnumbered Function Index @printindex fn @bye guile-gnome-platform-2.16.2/gnome-vfs/tests/0000755000175000017500000000000011752546505021241 5ustar00wingowingo00000000000000guile-gnome-platform-2.16.2/gnome-vfs/tests/wrapset.scm0000644000175000017500000000311411670374302023422 0ustar00wingowingo00000000000000;;; ---------------------------------------------------------------------- ;;; unit test ;;; Copyright (C) 2007 Andy Wingo ;;; ;;; This program is free software; you can redistribute it and/or modify ;;; it under the terms of the GNU General Public License as published by ;;; the Free Software Foundation; either version 2 of the License, or ;;; (at your option) any later version. ;;; ;;; This program is distributed in the hope that it will be useful, ;;; but WITHOUT ANY WARRANTY; without even the implied warranty of ;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the ;;; GNU General Public License for more details. ;;; ;;; You should have received a copy of the GNU General Public License ;;; along with this program; if not, write to the Free Software ;;; Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA ;;; ---------------------------------------------------------------------- (use-modules (unit-test) (apicheck) (ice-9 pretty-print) (oop goops)) (define-class ()) (define *modules* (call-with-input-string (getenv "WRAPSET_MODULES") read)) (define *api-file* (getenv "WRAPSET_API_FILE")) (define-method (test-wrapset-api (self )) (apicheck-validate (call-with-input-file *api-file* read) *modules*)) (define (main args) (exit-with-summary (run-all-defined-test-cases))) (define (update-api args) (with-output-to-file *api-file* (lambda () (pretty-print (apicheck-generate *modules*))))) guile-gnome-platform-2.16.2/gnome-vfs/tests/Makefile.am0000644000175000017500000000011611670374302023264 0ustar00wingowingo00000000000000include ../../tests.mk wrapset_stem = gnome-vfs top_module_name= (gnome vfs) guile-gnome-platform-2.16.2/gnome-vfs/tests/Makefile.in0000644000175000017500000004016011752511067023302 0ustar00wingowingo00000000000000# Makefile.in generated by automake 1.11.5 from Makefile.am. # @configure_input@ # Copyright (C) 1994, 1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, # 2003, 2004, 2005, 2006, 2007, 2008, 2009, 2010, 2011 Free Software # Foundation, Inc. # This Makefile.in is free software; the Free Software Foundation # gives unlimited permission to copy and/or distribute it, # with or without modifications, as long as this notice is preserved. # This program is distributed in the hope that it will be useful, # but WITHOUT ANY WARRANTY, to the extent permitted by law; without # even the implied warranty of MERCHANTABILITY or FITNESS FOR A # PARTICULAR PURPOSE. @SET_MAKE@ # guile-gnome # Copyright (C) 2007, 2011 Free Software Foundation, Inc. # This program is free software; you can redistribute it and/or # modify it under the terms of the GNU General Public License as # published by the Free Software Foundation; either version 2 of # the License, or (at your option) any later version. # This program is distributed in the hope that it will be useful, # but WITHOUT ANY WARRANTY; without even the implied warranty of # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the # GNU General Public License for more details. # You should have received a copy of the GNU General Public License # along with this program; if not, contact: # Free Software Foundation Voice: +1-617-542-5942 # 59 Temple Place - Suite 330 Fax: +1-617-542-2652 # Boston, MA 02111-1307, USA gnu@gnu.org VPATH = @srcdir@ am__make_dryrun = \ { \ am__dry=no; \ case $$MAKEFLAGS in \ *\\[\ \ ]*) \ echo 'am--echo: ; @echo "AM" OK' | $(MAKE) -f - 2>/dev/null \ | grep '^AM OK$$' >/dev/null || am__dry=yes;; \ *) \ for am__flg in $$MAKEFLAGS; do \ case $$am__flg in \ *=*|--*) ;; \ *n*) am__dry=yes; break;; \ esac; \ done;; \ esac; \ test $$am__dry = yes; \ } pkgdatadir = $(datadir)/@PACKAGE@ pkgincludedir = $(includedir)/@PACKAGE@ pkglibdir = $(libdir)/@PACKAGE@ pkglibexecdir = $(libexecdir)/@PACKAGE@ am__cd = CDPATH="$${ZSH_VERSION+.}$(PATH_SEPARATOR)" && cd install_sh_DATA = $(install_sh) -c -m 644 install_sh_PROGRAM = $(install_sh) -c install_sh_SCRIPT = $(install_sh) -c INSTALL_HEADER = $(INSTALL_DATA) transform = $(program_transform_name) NORMAL_INSTALL = : PRE_INSTALL = : POST_INSTALL = : NORMAL_UNINSTALL = : PRE_UNINSTALL = : POST_UNINSTALL = : build_triplet = @build@ host_triplet = @host@ DIST_COMMON = $(srcdir)/../../tests.mk $(srcdir)/Makefile.am \ $(srcdir)/Makefile.in subdir = gnome-vfs/tests ACLOCAL_M4 = $(top_srcdir)/aclocal.m4 am__aclocal_m4_deps = $(top_srcdir)/configure.ac am__configure_deps = $(am__aclocal_m4_deps) $(CONFIGURE_DEPENDENCIES) \ $(ACLOCAL_M4) mkinstalldirs = $(install_sh) -d CONFIG_HEADER = $(top_builddir)/config.h CONFIG_CLEAN_FILES = CONFIG_CLEAN_VPATH_FILES = SOURCES = DIST_SOURCES = am__can_run_installinfo = \ case $$AM_UPDATE_INFO_DIR in \ n|no|NO) false;; \ *) (install-info --version) >/dev/null 2>&1;; \ esac am__tty_colors = \ red=; grn=; lgn=; blu=; std= DISTFILES = $(DIST_COMMON) $(DIST_SOURCES) $(TEXINFOS) $(EXTRA_DIST) ACLOCAL = @ACLOCAL@ AG_PKG_CONFIG_PATH = @AG_PKG_CONFIG_PATH@ AMTAR = @AMTAR@ API_VERSION = @API_VERSION@ AR = @AR@ ATK_CFLAGS = @ATK_CFLAGS@ ATK_LIBS = @ATK_LIBS@ AUTOCONF = @AUTOCONF@ AUTOHEADER = @AUTOHEADER@ AUTOMAKE = @AUTOMAKE@ AWK = @AWK@ BONOBO_IDL_DIR = @BONOBO_IDL_DIR@ CANVAS_CFLAGS = @CANVAS_CFLAGS@ CANVAS_LIBS = @CANVAS_LIBS@ CC = @CC@ CCDEPMODE = @CCDEPMODE@ CFLAGS = @CFLAGS@ CORBA_CFLAGS = @CORBA_CFLAGS@ CORBA_LIBS = @CORBA_LIBS@ CPP = @CPP@ CPPFLAGS = @CPPFLAGS@ CYGPATH_W = @CYGPATH_W@ DEFS = @DEFS@ DEPDIR = @DEPDIR@ DLLTOOL = @DLLTOOL@ DSYMUTIL = @DSYMUTIL@ DUMPBIN = @DUMPBIN@ ECHO_C = @ECHO_C@ ECHO_N = @ECHO_N@ ECHO_T = @ECHO_T@ EGREP = @EGREP@ EXEEXT = @EXEEXT@ FGREP = @FGREP@ GCONF_CFLAGS = @GCONF_CFLAGS@ GCONF_LIBS = @GCONF_LIBS@ GDK_CFLAGS = @GDK_CFLAGS@ GDK_LIBS = @GDK_LIBS@ GDK_PIXBUF_CFLAGS = @GDK_PIXBUF_CFLAGS@ GDK_PIXBUF_LIBS = @GDK_PIXBUF_LIBS@ GLIB_CFLAGS = @GLIB_CFLAGS@ GLIB_LIBS = @GLIB_LIBS@ GNOMEUI_DEPRECATION_FLAGS = @GNOMEUI_DEPRECATION_FLAGS@ GNOME_VFS_CFLAGS = @GNOME_VFS_CFLAGS@ GNOME_VFS_DEPRECATED_CFLAGS = @GNOME_VFS_DEPRECATED_CFLAGS@ GNOME_VFS_LIBS = @GNOME_VFS_LIBS@ GOBJECT_CFLAGS = @GOBJECT_CFLAGS@ GOBJECT_LIBS = @GOBJECT_LIBS@ GREP = @GREP@ GTHREAD_CFLAGS = @GTHREAD_CFLAGS@ GTHREAD_LIBS = @GTHREAD_LIBS@ GTK_CFLAGS = @GTK_CFLAGS@ GTK_DEPRECATED_CFLAGS = @GTK_DEPRECATED_CFLAGS@ GTK_LIBS = @GTK_LIBS@ GUILE_CAIRO_CFLAGS = @GUILE_CAIRO_CFLAGS@ GUILE_CAIRO_LIBS = @GUILE_CAIRO_LIBS@ GUILE_CFLAGS = @GUILE_CFLAGS@ GUILE_EFFECTIVE_VERSION = @GUILE_EFFECTIVE_VERSION@ GUILE_GLIB_CFLAGS = @GUILE_GLIB_CFLAGS@ GUILE_GLIB_LIBS = @GUILE_GLIB_LIBS@ GUILE_LIBS = @GUILE_LIBS@ G_WRAP_CFLAGS = @G_WRAP_CFLAGS@ G_WRAP_LIBS = @G_WRAP_LIBS@ G_WRAP_LIB_DIR = @G_WRAP_LIB_DIR@ G_WRAP_MODULE_DIR = @G_WRAP_MODULE_DIR@ INSTALL = @INSTALL@ INSTALL_DATA = @INSTALL_DATA@ INSTALL_PROGRAM = @INSTALL_PROGRAM@ INSTALL_SCRIPT = @INSTALL_SCRIPT@ INSTALL_STRIP_PROGRAM = @INSTALL_STRIP_PROGRAM@ LD = @LD@ LDFLAGS = @LDFLAGS@ LIBGLADE_CFLAGS = @LIBGLADE_CFLAGS@ LIBGLADE_LIBS = @LIBGLADE_LIBS@ LIBGNOMEUI_CFLAGS = @LIBGNOMEUI_CFLAGS@ LIBGNOMEUI_LIBS = @LIBGNOMEUI_LIBS@ LIBGNOME_CFLAGS = @LIBGNOME_CFLAGS@ LIBGNOME_LIBS = @LIBGNOME_LIBS@ LIBOBJS = @LIBOBJS@ LIBS = @LIBS@ LIBTOOL = @LIBTOOL@ LIPO = @LIPO@ LN_S = @LN_S@ LTLIBOBJS = @LTLIBOBJS@ MAKEINFO = @MAKEINFO@ MANIFEST_TOOL = @MANIFEST_TOOL@ MKDIR_P = @MKDIR_P@ NM = @NM@ NMEDIT = @NMEDIT@ OBJDUMP = @OBJDUMP@ OBJEXT = @OBJEXT@ ORBIT_IDL = @ORBIT_IDL@ OTOOL = @OTOOL@ OTOOL64 = @OTOOL64@ PACKAGE = @PACKAGE@ PACKAGE_BUGREPORT = @PACKAGE_BUGREPORT@ PACKAGE_NAME = @PACKAGE_NAME@ PACKAGE_STRING = @PACKAGE_STRING@ PACKAGE_TARNAME = @PACKAGE_TARNAME@ PACKAGE_URL = @PACKAGE_URL@ PACKAGE_VERSION = @PACKAGE_VERSION@ PANGOCAIRO_CFLAGS = @PANGOCAIRO_CFLAGS@ PANGOCAIRO_LIBS = @PANGOCAIRO_LIBS@ PANGO_CFLAGS = @PANGO_CFLAGS@ PANGO_LIBS = @PANGO_LIBS@ PATH_SEPARATOR = @PATH_SEPARATOR@ PKG_CONFIG = @PKG_CONFIG@ PKG_CONFIG_LIBDIR = @PKG_CONFIG_LIBDIR@ PKG_CONFIG_PATH = @PKG_CONFIG_PATH@ RANLIB = @RANLIB@ SED = @SED@ SET_MAKE = @SET_MAKE@ SHELL = @SHELL@ STRIP = @STRIP@ VERSION = @VERSION@ WARN_CFLAGS = @WARN_CFLAGS@ abs_builddir = @abs_builddir@ abs_srcdir = @abs_srcdir@ abs_top_builddir = @abs_top_builddir@ abs_top_srcdir = @abs_top_srcdir@ ac_ct_AR = @ac_ct_AR@ ac_ct_CC = @ac_ct_CC@ ac_ct_DUMPBIN = @ac_ct_DUMPBIN@ am__include = @am__include@ am__leading_dot = @am__leading_dot@ am__quote = @am__quote@ am__tar = @am__tar@ am__untar = @am__untar@ bindir = @bindir@ build = @build@ build_alias = @build_alias@ build_cpu = @build_cpu@ build_os = @build_os@ build_vendor = @build_vendor@ builddir = @builddir@ datadir = @datadir@ datarootdir = @datarootdir@ docdir = @docdir@ dvidir = @dvidir@ exec_prefix = @exec_prefix@ host = @host@ host_alias = @host_alias@ host_cpu = @host_cpu@ host_os = @host_os@ host_vendor = @host_vendor@ htmldir = @htmldir@ includedir = @includedir@ infodir = @infodir@ install_sh = @install_sh@ libdir = @libdir@ libexecdir = @libexecdir@ localedir = @localedir@ localstatedir = @localstatedir@ mandir = @mandir@ mkdir_p = @mkdir_p@ oldincludedir = @oldincludedir@ pdfdir = @pdfdir@ prefix = @prefix@ program_transform_name = @program_transform_name@ psdir = @psdir@ sbindir = @sbindir@ sharedstatedir = @sharedstatedir@ srcdir = @srcdir@ sysconfdir = @sysconfdir@ target_alias = @target_alias@ top_build_prefix = @top_build_prefix@ top_builddir = @top_builddir@ top_srcdir = @top_srcdir@ # # Makefile snippet # EXTRA_DIST = wrapset.api wrapset.scm wrapset_stem = gnome-vfs top_module_name = (gnome vfs) gw_module_name = (gnome gw $(wrapset_stem)) extra_module_names = wrapset_modules = ($(top_module_name) $(gw_module_name) $(extra_module_names)) WRAPSET_TESTS_ENV = WRAPSET_MODULES="$(wrapset_modules)" WRAPSET_API_FILE=$(srcdir)/wrapset.api DEV_ENV = $(top_builddir)/dev-environ GUILE = guile TESTS_ENVIRONMENT = $(WRAPSET_TESTS_ENV) $(DEV_ENV) $(GUILE) $(GUILE_FLAGS) -e main -s TESTS = wrapset.scm all: all-am .SUFFIXES: $(srcdir)/Makefile.in: $(srcdir)/Makefile.am $(srcdir)/../../tests.mk $(am__configure_deps) @for dep in $?; do \ case '$(am__configure_deps)' in \ *$$dep*) \ ( cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh ) \ && { if test -f $@; then exit 0; else break; fi; }; \ exit 1;; \ esac; \ done; \ echo ' cd $(top_srcdir) && $(AUTOMAKE) --gnu gnome-vfs/tests/Makefile'; \ $(am__cd) $(top_srcdir) && \ $(AUTOMAKE) --gnu gnome-vfs/tests/Makefile .PRECIOUS: Makefile Makefile: $(srcdir)/Makefile.in $(top_builddir)/config.status @case '$?' in \ *config.status*) \ cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh;; \ *) \ echo ' cd $(top_builddir) && $(SHELL) ./config.status $(subdir)/$@ $(am__depfiles_maybe)'; \ cd $(top_builddir) && $(SHELL) ./config.status $(subdir)/$@ $(am__depfiles_maybe);; \ esac; $(srcdir)/../../tests.mk: $(top_builddir)/config.status: $(top_srcdir)/configure $(CONFIG_STATUS_DEPENDENCIES) cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh $(top_srcdir)/configure: $(am__configure_deps) cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh $(ACLOCAL_M4): $(am__aclocal_m4_deps) cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh $(am__aclocal_m4_deps): mostlyclean-libtool: -rm -f *.lo clean-libtool: -rm -rf .libs _libs tags: TAGS TAGS: ctags: CTAGS CTAGS: check-TESTS: $(TESTS) @failed=0; all=0; xfail=0; xpass=0; skip=0; \ srcdir=$(srcdir); export srcdir; \ list=' $(TESTS) '; \ $(am__tty_colors); \ if test -n "$$list"; then \ for tst in $$list; do \ if test -f ./$$tst; then dir=./; \ elif test -f $$tst; then dir=; \ else dir="$(srcdir)/"; fi; \ if $(TESTS_ENVIRONMENT) $${dir}$$tst; then \ all=`expr $$all + 1`; \ case " $(XFAIL_TESTS) " in \ *[\ \ ]$$tst[\ \ ]*) \ xpass=`expr $$xpass + 1`; \ failed=`expr $$failed + 1`; \ col=$$red; res=XPASS; \ ;; \ *) \ col=$$grn; res=PASS; \ ;; \ esac; \ elif test $$? -ne 77; then \ all=`expr $$all + 1`; \ case " $(XFAIL_TESTS) " in \ *[\ \ ]$$tst[\ \ ]*) \ xfail=`expr $$xfail + 1`; \ col=$$lgn; res=XFAIL; \ ;; \ *) \ failed=`expr $$failed + 1`; \ col=$$red; res=FAIL; \ ;; \ esac; \ else \ skip=`expr $$skip + 1`; \ col=$$blu; res=SKIP; \ fi; \ echo "$${col}$$res$${std}: $$tst"; \ done; \ if test "$$all" -eq 1; then \ tests="test"; \ All=""; \ else \ tests="tests"; \ All="All "; \ fi; \ if test "$$failed" -eq 0; then \ if test "$$xfail" -eq 0; then \ banner="$$All$$all $$tests passed"; \ else \ if test "$$xfail" -eq 1; then failures=failure; else failures=failures; fi; \ banner="$$All$$all $$tests behaved as expected ($$xfail expected $$failures)"; \ fi; \ else \ if test "$$xpass" -eq 0; then \ banner="$$failed of $$all $$tests failed"; \ else \ if test "$$xpass" -eq 1; then passes=pass; else passes=passes; fi; \ banner="$$failed of $$all $$tests did not behave as expected ($$xpass unexpected $$passes)"; \ fi; \ fi; \ dashes="$$banner"; \ skipped=""; \ if test "$$skip" -ne 0; then \ if test "$$skip" -eq 1; then \ skipped="($$skip test was not run)"; \ else \ skipped="($$skip tests were not run)"; \ fi; \ test `echo "$$skipped" | wc -c` -le `echo "$$banner" | wc -c` || \ dashes="$$skipped"; \ fi; \ report=""; \ if test "$$failed" -ne 0 && test -n "$(PACKAGE_BUGREPORT)"; then \ report="Please report to $(PACKAGE_BUGREPORT)"; \ test `echo "$$report" | wc -c` -le `echo "$$banner" | wc -c` || \ dashes="$$report"; \ fi; \ dashes=`echo "$$dashes" | sed s/./=/g`; \ if test "$$failed" -eq 0; then \ col="$$grn"; \ else \ col="$$red"; \ fi; \ echo "$${col}$$dashes$${std}"; \ echo "$${col}$$banner$${std}"; \ test -z "$$skipped" || echo "$${col}$$skipped$${std}"; \ test -z "$$report" || echo "$${col}$$report$${std}"; \ echo "$${col}$$dashes$${std}"; \ test "$$failed" -eq 0; \ else :; fi distdir: $(DISTFILES) @srcdirstrip=`echo "$(srcdir)" | sed 's/[].[^$$\\*]/\\\\&/g'`; \ topsrcdirstrip=`echo "$(top_srcdir)" | sed 's/[].[^$$\\*]/\\\\&/g'`; \ list='$(DISTFILES)'; \ dist_files=`for file in $$list; do echo $$file; done | \ sed -e "s|^$$srcdirstrip/||;t" \ -e "s|^$$topsrcdirstrip/|$(top_builddir)/|;t"`; \ case $$dist_files in \ */*) $(MKDIR_P) `echo "$$dist_files" | \ sed '/\//!d;s|^|$(distdir)/|;s,/[^/]*$$,,' | \ sort -u` ;; \ esac; \ for file in $$dist_files; do \ if test -f $$file || test -d $$file; then d=.; else d=$(srcdir); fi; \ if test -d $$d/$$file; then \ dir=`echo "/$$file" | sed -e 's,/[^/]*$$,,'`; \ if test -d "$(distdir)/$$file"; then \ find "$(distdir)/$$file" -type d ! -perm -700 -exec chmod u+rwx {} \;; \ fi; \ if test -d $(srcdir)/$$file && test $$d != $(srcdir); then \ cp -fpR $(srcdir)/$$file "$(distdir)$$dir" || exit 1; \ find "$(distdir)/$$file" -type d ! -perm -700 -exec chmod u+rwx {} \;; \ fi; \ cp -fpR $$d/$$file "$(distdir)$$dir" || exit 1; \ else \ test -f "$(distdir)/$$file" \ || cp -p $$d/$$file "$(distdir)/$$file" \ || exit 1; \ fi; \ done check-am: all-am $(MAKE) $(AM_MAKEFLAGS) check-TESTS check: check-am all-am: Makefile installdirs: install: install-am install-exec: install-exec-am install-data: install-data-am uninstall: uninstall-am install-am: all-am @$(MAKE) $(AM_MAKEFLAGS) install-exec-am install-data-am installcheck: installcheck-am install-strip: if test -z '$(STRIP)'; then \ $(MAKE) $(AM_MAKEFLAGS) INSTALL_PROGRAM="$(INSTALL_STRIP_PROGRAM)" \ install_sh_PROGRAM="$(INSTALL_STRIP_PROGRAM)" INSTALL_STRIP_FLAG=-s \ install; \ else \ $(MAKE) $(AM_MAKEFLAGS) INSTALL_PROGRAM="$(INSTALL_STRIP_PROGRAM)" \ install_sh_PROGRAM="$(INSTALL_STRIP_PROGRAM)" INSTALL_STRIP_FLAG=-s \ "INSTALL_PROGRAM_ENV=STRIPPROG='$(STRIP)'" install; \ fi mostlyclean-generic: clean-generic: distclean-generic: -test -z "$(CONFIG_CLEAN_FILES)" || rm -f $(CONFIG_CLEAN_FILES) -test . = "$(srcdir)" || test -z "$(CONFIG_CLEAN_VPATH_FILES)" || rm -f $(CONFIG_CLEAN_VPATH_FILES) maintainer-clean-generic: @echo "This command is intended for maintainers to use" @echo "it deletes files that may require special tools to rebuild." clean: clean-am clean-am: clean-generic clean-libtool mostlyclean-am distclean: distclean-am -rm -f Makefile distclean-am: clean-am distclean-generic dvi: dvi-am dvi-am: html: html-am html-am: info: info-am info-am: install-data-am: install-dvi: install-dvi-am install-dvi-am: install-exec-am: install-html: install-html-am install-html-am: install-info: install-info-am install-info-am: install-man: install-pdf: install-pdf-am install-pdf-am: install-ps: install-ps-am install-ps-am: installcheck-am: maintainer-clean: maintainer-clean-am -rm -f Makefile maintainer-clean-am: distclean-am maintainer-clean-generic mostlyclean: mostlyclean-am mostlyclean-am: mostlyclean-generic mostlyclean-libtool pdf: pdf-am pdf-am: ps: ps-am ps-am: uninstall-am: .MAKE: check-am install-am install-strip .PHONY: all all-am check check-TESTS check-am clean clean-generic \ clean-libtool distclean distclean-generic distclean-libtool \ distdir dvi dvi-am html html-am info info-am install \ install-am install-data install-data-am install-dvi \ install-dvi-am install-exec install-exec-am install-html \ install-html-am install-info install-info-am install-man \ install-pdf install-pdf-am install-ps install-ps-am \ install-strip installcheck installcheck-am installdirs \ maintainer-clean maintainer-clean-generic mostlyclean \ mostlyclean-generic mostlyclean-libtool pdf pdf-am ps ps-am \ uninstall uninstall-am wrapset.api.update: $(WRAPSET_TESTS_ENV) $(DEV_ENV) $(GUILE) -e update-api -s $(srcdir)/wrapset.scm %.check: % $(TESTS_ENVIRONMENT) $(srcdir)/$* # Tell versions [3.59,3.63) of GNU make to not export all variables. # Otherwise a system limit (for SysV at least) may be exceeded. .NOEXPORT: guile-gnome-platform-2.16.2/gnome-vfs/tests/wrapset.api0000644000175000017500000003343711670374302023424 0ustar00wingowingo00000000000000(module-api (version 1 0) ((gnome gobject generics) (uses-interfaces) (typed-exports (block generic ( )) (connect generic ( )) (connect-after generic ( )) (connected? generic ( )) (create-signal generic ( )) (disconnect generic ( )) (emit generic ( . )) (find-property generic ( )) (get generic ( )) (get-properties generic ()) (get-property-names generic ()) (get-signals generic ()) (invoke generic ( . )) (set generic ( )) (unblock generic ( )))) ((gnome gw generics) (uses-interfaces (gnome gobject generics)) (typed-exports)) ((gnome gw gnome-vfs) (uses-interfaces (gnome gw generics)) (typed-exports (gnome-vfs-ace-add-perm procedure (arity 0 0 #t)) (gnome-vfs-ace-check-perm procedure (arity 0 0 #t)) (gnome-vfs-ace-copy-perms procedure (arity 0 0 #t)) (gnome-vfs-ace-del-perm procedure (arity 0 0 #t)) (gnome-vfs-ace-equal procedure (arity 0 0 #t)) (gnome-vfs-ace-get-id procedure (arity 0 0 #t)) (gnome-vfs-ace-get-inherit procedure (arity 0 0 #t)) (gnome-vfs-ace-get-kind procedure (arity 0 0 #t)) (gnome-vfs-ace-get-negative procedure (arity 0 0 #t)) (gnome-vfs-ace-set-id procedure (arity 0 0 #t)) (gnome-vfs-ace-set-inherit procedure (arity 0 0 #t)) (gnome-vfs-ace-set-kind procedure (arity 0 0 #t)) (gnome-vfs-ace-set-negative procedure (arity 0 0 #t)) (gnome-vfs-acl-clear procedure (arity 0 0 #t)) (gnome-vfs-acl-get-ace-list procedure (arity 1 0 #f)) (gnome-vfs-acl-kind-to-string procedure (arity 0 0 #t)) (gnome-vfs-acl-new procedure (arity 0 0 #t)) (gnome-vfs-acl-perm-to-string procedure (arity 0 0 #t)) (gnome-vfs-acl-set procedure (arity 0 0 #t)) (gnome-vfs-acl-unset procedure (arity 0 0 #t)) (gnome-vfs-check-same-fs procedure (arity 2 0 #f)) (gnome-vfs-check-same-fs-uris procedure (arity 2 0 #f)) (gnome-vfs-connect-to-server procedure (arity 0 0 #t)) (gnome-vfs-context-check-cancellation-current procedure (arity 0 0 #t)) (gnome-vfs-create procedure (arity 0 0 #t)) (gnome-vfs-create-symbolic-link procedure (arity 0 0 #t)) (gnome-vfs-create-uri procedure (arity 0 0 #t)) (gnome-vfs-drive-compare procedure (arity 0 0 #t)) (gnome-vfs-drive-get-activation-uri procedure (arity 0 0 #t)) (gnome-vfs-drive-get-device-path procedure (arity 0 0 #t)) (gnome-vfs-drive-get-device-type procedure (arity 0 0 #t)) (gnome-vfs-drive-get-display-name procedure (arity 0 0 #t)) (gnome-vfs-drive-get-hal-udi procedure (arity 0 0 #t)) (gnome-vfs-drive-get-icon procedure (arity 0 0 #t)) (gnome-vfs-drive-get-id procedure (arity 0 0 #t)) (gnome-vfs-drive-get-mounted-volumes procedure (arity 1 0 #f)) (gnome-vfs-drive-is-connected procedure (arity 0 0 #t)) (gnome-vfs-drive-is-mounted procedure (arity 0 0 #t)) (gnome-vfs-drive-is-user-visible procedure (arity 0 0 #t)) (gnome-vfs-drive-needs-eject procedure (arity 0 0 #t)) (gnome-vfs-escape-host-and-path-string procedure (arity 0 0 #t)) (gnome-vfs-escape-path-string procedure (arity 0 0 #t)) (gnome-vfs-escape-set procedure (arity 0 0 #t)) (gnome-vfs-escape-slashes procedure (arity 0 0 #t)) (gnome-vfs-escape-string procedure (arity 0 0 #t)) (gnome-vfs-expand-initial-tilde procedure (arity 0 0 #t)) (gnome-vfs-format-file-size-for-display procedure (arity 0 0 #t)) (gnome-vfs-format-uri-for-display procedure (arity 0 0 #t)) (gnome-vfs-get-default-browse-domains procedure (arity 0 0 #f)) (gnome-vfs-get-file-info procedure (arity 0 0 #t)) (gnome-vfs-get-local-path-from-uri procedure (arity 0 0 #t)) (gnome-vfs-get-mime-type procedure (arity 0 0 #t)) (gnome-vfs-get-mime-type-common procedure (arity 0 0 #t)) (gnome-vfs-get-mime-type-for-name procedure (arity 0 0 #t)) (gnome-vfs-get-mime-type-from-file-data procedure (arity 0 0 #t)) (gnome-vfs-get-mime-type-from-uri procedure (arity 0 0 #t)) (gnome-vfs-get-slow-mime-type procedure (arity 0 0 #t)) (gnome-vfs-get-supertype-from-mime-type procedure (arity 0 0 #t)) (gnome-vfs-get-uri-from-local-path procedure (arity 0 0 #t)) (gnome-vfs-get-uri-scheme procedure (arity 0 0 #t)) (gnome-vfs-get-volume-monitor procedure (arity 0 0 #t)) (gnome-vfs-icon-path-from-filename procedure (arity 0 0 #t)) (gnome-vfs-init procedure (arity 0 0 #t)) (gnome-vfs-initialized procedure (arity 0 0 #t)) (gnome-vfs-is-executable-command-string procedure (arity 0 0 #t)) (gnome-vfs-is-primary-thread procedure (arity 0 0 #t)) (gnome-vfs-make-directory procedure (arity 0 0 #t)) (gnome-vfs-make-directory-for-uri procedure (arity 0 0 #t)) (gnome-vfs-make-path-name-canonical procedure (arity 0 0 #t)) (gnome-vfs-make-uri-canonical procedure (arity 0 0 #t)) (gnome-vfs-make-uri-canonical-strip-fragment procedure (arity 0 0 #t)) (gnome-vfs-make-uri-from-input procedure (arity 0 0 #t)) (gnome-vfs-make-uri-from-input-with-dirs procedure (arity 0 0 #t)) (gnome-vfs-make-uri-from-input-with-trailing-ws procedure (arity 0 0 #t)) (gnome-vfs-make-uri-from-shell-arg procedure (arity 0 0 #t)) (gnome-vfs-mime-application-equal procedure (arity 0 0 #t)) (gnome-vfs-mime-application-get-binary-name procedure (arity 0 0 #t)) (gnome-vfs-mime-application-get-desktop-file-path procedure (arity 0 0 #t)) (gnome-vfs-mime-application-get-desktop-id procedure (arity 0 0 #t)) (gnome-vfs-mime-application-get-exec procedure (arity 0 0 #t)) (gnome-vfs-mime-application-get-generic-name procedure (arity 0 0 #t)) (gnome-vfs-mime-application-get-icon procedure (arity 0 0 #t)) (gnome-vfs-mime-application-get-name procedure (arity 0 0 #t)) (gnome-vfs-mime-application-get-startup-wm-class procedure (arity 0 0 #t)) (gnome-vfs-mime-application-launch procedure (arity 2 0 #f)) (gnome-vfs-mime-application-new-from-desktop-id procedure (arity 0 0 #t)) (gnome-vfs-mime-application-requires-terminal procedure (arity 0 0 #t)) (gnome-vfs-mime-application-supports-startup-notification procedure (arity 0 0 #t)) (gnome-vfs-mime-application-supports-uris procedure (arity 0 0 #t)) (gnome-vfs-mime-can-be-executable procedure (arity 0 0 #t)) (gnome-vfs-mime-get-all-applications procedure (arity 1 0 #f)) (gnome-vfs-mime-get-all-applications-for-uri procedure (arity 2 0 #f)) (gnome-vfs-mime-get-all-components procedure (arity 1 0 #f)) (gnome-vfs-mime-get-default-application procedure (arity 0 0 #t)) (gnome-vfs-mime-get-default-application-for-uri procedure (arity 0 0 #t)) (gnome-vfs-mime-get-description procedure (arity 0 0 #t)) (gnome-vfs-mime-info-cache-reload procedure (arity 0 0 #t)) (gnome-vfs-mime-reload procedure (arity 0 0 #t)) (gnome-vfs-mime-shutdown procedure (arity 0 0 #t)) (gnome-vfs-mime-type-from-name procedure (arity 0 0 #t)) (gnome-vfs-mime-type-from-name-or-default procedure (arity 0 0 #t)) (gnome-vfs-mime-type-get-equivalence procedure (arity 0 0 #t)) (gnome-vfs-mime-type-is-equal procedure (arity 0 0 #t)) (gnome-vfs-mime-type-is-supertype procedure (arity 0 0 #t)) (gnome-vfs-module-callback-pop procedure (arity 0 0 #t)) (gnome-vfs-move procedure (arity 0 0 #t)) (gnome-vfs-move-uri procedure (arity 0 0 #t)) (gnome-vfs-open procedure (arity 0 0 #t)) (gnome-vfs-open-uri procedure (arity 0 0 #t)) (gnome-vfs-remove-directory procedure (arity 0 0 #t)) (gnome-vfs-remove-directory-from-uri procedure (arity 0 0 #t)) (gnome-vfs-result-from-errno procedure (arity 0 0 #t)) (gnome-vfs-result-from-errno-code procedure (arity 0 0 #t)) (gnome-vfs-result-from-h-errno procedure (arity 0 0 #t)) (gnome-vfs-result-from-h-errno-val procedure (arity 0 0 #t)) (gnome-vfs-result-to-string procedure (arity 0 0 #t)) (gnome-vfs-set-file-info procedure (arity 0 0 #t)) (gnome-vfs-shutdown procedure (arity 0 0 #t)) (gnome-vfs-truncate procedure (arity 0 0 #t)) (gnome-vfs-truncate-uri procedure (arity 0 0 #t)) (gnome-vfs-unescape-string procedure (arity 0 0 #t)) (gnome-vfs-unescape-string-for-display procedure (arity 0 0 #t)) (gnome-vfs-unlink procedure (arity 0 0 #t)) (gnome-vfs-unlink-from-uri procedure (arity 0 0 #t)) (gnome-vfs-uri-append-file-name procedure (arity 0 0 #t)) (gnome-vfs-uri-append-path procedure (arity 0 0 #t)) (gnome-vfs-uri-append-string procedure (arity 0 0 #t)) (gnome-vfs-uri-dup procedure (arity 0 0 #t)) (gnome-vfs-uri-equal procedure (arity 0 0 #t)) (gnome-vfs-uri-exists procedure (arity 0 0 #t)) (gnome-vfs-uri-extract-dirname procedure (arity 0 0 #t)) (gnome-vfs-uri-extract-short-name procedure (arity 0 0 #t)) (gnome-vfs-uri-extract-short-path-name procedure (arity 0 0 #t)) (gnome-vfs-uri-get-fragment-identifier procedure (arity 0 0 #t)) (gnome-vfs-uri-get-host-name procedure (arity 0 0 #t)) (gnome-vfs-uri-get-host-port procedure (arity 0 0 #t)) (gnome-vfs-uri-get-parent procedure (arity 0 0 #t)) (gnome-vfs-uri-get-password procedure (arity 0 0 #t)) (gnome-vfs-uri-get-path procedure (arity 0 0 #t)) (gnome-vfs-uri-get-scheme procedure (arity 0 0 #t)) (gnome-vfs-uri-get-user-name procedure (arity 0 0 #t)) (gnome-vfs-uri-has-parent procedure (arity 0 0 #t)) (gnome-vfs-uri-is-local procedure (arity 0 0 #t)) (gnome-vfs-uri-is-parent procedure (arity 0 0 #t)) (gnome-vfs-uri-list-parse procedure (arity 1 0 #f)) (gnome-vfs-uri-make-full-from-relative procedure (arity 0 0 #t)) (gnome-vfs-uri-new procedure (arity 0 0 #t)) (gnome-vfs-uri-resolve-relative procedure (arity 0 0 #t)) (gnome-vfs-uri-resolve-symbolic-link procedure (arity 0 0 #t)) (gnome-vfs-uri-set-host-name procedure (arity 0 0 #t)) (gnome-vfs-uri-set-host-port procedure (arity 0 0 #t)) (gnome-vfs-uri-set-password procedure (arity 0 0 #t)) (gnome-vfs-uri-set-user-name procedure (arity 0 0 #t)) (gnome-vfs-uri-to-string procedure (arity 0 0 #t)) (gnome-vfs-uris-match procedure (arity 0 0 #t)) (gnome-vfs-url-show procedure (arity 0 0 #t)) (gnome-vfs-volume-compare procedure (arity 0 0 #t)) (gnome-vfs-volume-get-activation-uri procedure (arity 0 0 #t)) (gnome-vfs-volume-get-device-path procedure (arity 0 0 #t)) (gnome-vfs-volume-get-device-type procedure (arity 0 0 #t)) (gnome-vfs-volume-get-display-name procedure (arity 0 0 #t)) (gnome-vfs-volume-get-drive procedure (arity 0 0 #t)) (gnome-vfs-volume-get-filesystem-type procedure (arity 0 0 #t)) (gnome-vfs-volume-get-hal-udi procedure (arity 0 0 #t)) (gnome-vfs-volume-get-icon procedure (arity 0 0 #t)) (gnome-vfs-volume-get-id procedure (arity 0 0 #t)) (gnome-vfs-volume-get-volume-type procedure (arity 0 0 #t)) (gnome-vfs-volume-handles-trash procedure (arity 0 0 #t)) (gnome-vfs-volume-is-mounted procedure (arity 0 0 #t)) (gnome-vfs-volume-is-read-only procedure (arity 0 0 #t)) (gnome-vfs-volume-is-user-visible procedure (arity 0 0 #t)) (gnome-vfs-volume-monitor-get-connected-drives procedure (arity 1 0 #f)) (gnome-vfs-volume-monitor-get-drive-by-id procedure (arity 0 0 #t)) (gnome-vfs-volume-monitor-get-mounted-volumes procedure (arity 1 0 #f)) (gnome-vfs-volume-monitor-get-volume-by-id procedure (arity 0 0 #t)) (gnome-vfs-volume-monitor-get-volume-for-path procedure (arity 0 0 #t)))) ((gnome vfs) (uses-interfaces (gnome gw gnome-vfs)) (typed-exports))) guile-gnome-platform-2.16.2/gnome-vfs/gnome/0000755000175000017500000000000011752546505021204 5ustar00wingowingo00000000000000guile-gnome-platform-2.16.2/gnome-vfs/gnome/gw/0000755000175000017500000000000011752546505021621 5ustar00wingowingo00000000000000guile-gnome-platform-2.16.2/gnome-vfs/gnome/gw/gnome-vfs-support.c0000644000175000017500000000722611670374302025400 0ustar00wingowingo00000000000000/* guile-gnome * Copyright (C) 2004 Free Software Foundation, Inc. * * gnome-vfs-support.c: Support routines for the gnome-vfs wrapper * * This program is free software; you can redistribute it and/or * modify it under the terms of the GNU General Public License as * published by the Free Software Foundation; either version 2 of * the License, or (at your option) any later version. * * This program is distributed in the hope that it will be useful, * but WITHOUT ANY WARRANTY; without even the implied warranty of * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the * GNU General Public License for more details. * * You should have received a copy of the GNU General Public License * along with this program; if not, contact: * * Free Software Foundation Voice: +1-617-542-5942 * 59 Temple Place - Suite 330 Fax: +1-617-542-2652 * Boston, MA 02111-1307, USA gnu@gnu.org */ #include "gnome-vfs-port.h" #include "gnome-vfs-support.h" #include "guile-gnome-gobject.h" GnomeVFSDirectoryHandle* _wrap_gnome_vfs_directory_open (const gchar *text_uri, GnomeVFSFileInfoOptions options) { GnomeVFSDirectoryHandle *handle = NULL; GnomeVFSResult res; res = gnome_vfs_directory_open (&handle, text_uri, options); if (res != GNOME_VFS_OK) RESULT_ERROR (res); return handle; } GnomeVFSDirectoryHandle* _wrap_gnome_vfs_directory_open_from_uri (GnomeVFSURI *uri, GnomeVFSFileInfoOptions options) { GnomeVFSDirectoryHandle *handle = NULL; GnomeVFSResult res; res = gnome_vfs_directory_open_from_uri (&handle, uri, options); if (res != GNOME_VFS_OK) RESULT_ERROR (res); return handle; } SCM _wrap_gnome_vfs_open (const gchar *text_uri, GnomeVFSOpenMode open_mode) { GnomeVFSHandle *handle = NULL; GnomeVFSResult res; res = gnome_vfs_open (&handle, text_uri, open_mode); if (res != GNOME_VFS_OK) RESULT_ERROR (res); return scm_gnome_vfs_handle_to_port (handle, open_mode, text_uri); } SCM _wrap_gnome_vfs_open_uri (GnomeVFSURI *uri, GnomeVFSOpenMode open_mode) { GnomeVFSHandle *handle = NULL; GnomeVFSResult res; gchar *name; SCM ret; res = gnome_vfs_open_uri (&handle, uri, open_mode); if (res != GNOME_VFS_OK) RESULT_ERROR (res); name = gnome_vfs_uri_to_string (uri, GNOME_VFS_URI_HIDE_PASSWORD); ret = scm_gnome_vfs_handle_to_port (handle, open_mode, name); g_free (name); return ret; } SCM _wrap_gnome_vfs_create (const gchar *text_uri, GnomeVFSOpenMode open_mode, gboolean exclusive, guint perm) { GnomeVFSHandle *handle = NULL; GnomeVFSResult res; res = gnome_vfs_create (&handle, text_uri, open_mode, exclusive, perm); if (res != GNOME_VFS_OK) RESULT_ERROR (res); return scm_gnome_vfs_handle_to_port (handle, open_mode, text_uri); } SCM _wrap_gnome_vfs_create_uri (GnomeVFSURI *uri, GnomeVFSOpenMode open_mode, gboolean exclusive, guint perm) { GnomeVFSHandle *handle = NULL; GnomeVFSResult res; gchar *name; SCM ret; res = gnome_vfs_create_uri (&handle, uri, open_mode, exclusive, perm); if (res != GNOME_VFS_OK) RESULT_ERROR (res); name = gnome_vfs_uri_to_string (uri, GNOME_VFS_URI_HIDE_PASSWORD); ret = scm_gnome_vfs_handle_to_port (handle, open_mode, name); g_free (name); return ret; } guile-gnome-platform-2.16.2/gnome-vfs/gnome/gw/gnome-vfs-spec.scm0000644000175000017500000001074711670374302025160 0ustar00wingowingo00000000000000;; guile-gnome ;; Copyright (C) 2004 Free Software Foundation, Inc. ;; This program is free software; you can redistribute it and/or ;; modify it under the terms of the GNU General Public License as ;; published by the Free Software Foundation; either version 2 of ;; the License, or (at your option) any later version. ;; ;; This program is distributed in the hope that it will be useful, ;; but WITHOUT ANY WARRANTY; without even the implied warranty of ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the ;; GNU General Public License for more details. ;; ;; You should have received a copy of the GNU General Public License ;; along with this program; if not, contact: ;; ;; Free Software Foundation Voice: +1-617-542-5942 ;; 59 Temple Place - Suite 330 Fax: +1-617-542-2652 ;; Boston, MA 02111-1307, USA gnu@gnu.org ;;; Commentary: ;; ;;g-wrap specification for gnome-vfs. ;; ;;; Code: (define-module (gnome gw gnome-vfs-spec) #:use-module (oop goops) #:use-module (gnome gw support g-wrap) #:use-module (gnome gw gobject-spec) #:use-module (gnome gw support defs) #:use-module (gnome gw support gobject)) (define-class () #:id 'gnome-gnome-vfs #:dependencies '(standard gnome-glib gnome-gobject)) (define-method (initialize (ws ) initargs) (next-method ws (cons #:module (cons '(gnome gw gnome-vfs) initargs))) (add-type! ws (make #:gtype-id "GNOME_VFS_TYPE_VFS_RESULT" #:ctype "GnomeVFSResult" #:c-type-name "GnomeVFSResult" #:c-const-type-name "GnomeVFSResult" #:ffspec 'uint #:wrapped "Custom")) (add-type-alias! ws "GnomeVFSResult" ') (wrap-refcounted-pointer! ws "GnomeVFSURI" "gnome_vfs_uri_ref" "gnome_vfs_uri_unref") (wrap-refcounted-pointer! ws "GnomeVFSFileInfo" "gnome_vfs_file_info_ref" "gnome_vfs_file_info_unref") (wrap-freeable-pointer! ws "GnomeVFSMimeApplication" "gnome_vfs_mime_application_free") ;; these are platform-dependent -- FIXME. (add-type-alias! ws "GnomeVFSFileSize" 'unsigned-int64) (add-type-alias! ws "GnomeVFSFileOffset" 'int64) (load-defs-with-overrides ws "gnome/defs/gnome-vfs.defs")) (define-method (global-declarations-cg (self )) (list (next-method) "#include \n" "#include \n" "#include \n" "#include \n" "#include \n" "#include \"gnome-vfs-port.h\"\n" "#include \"gnome-vfs-support.h\"\n")) (define-method (initializations-cg (self ) err) (list (next-method) "gnome_vfs_init ();\n" "scm_init_gnome_vfs_ports ();\n" "g_type_class_ref (GNOME_VFS_TYPE_VFS_RESULT);\n")) ;; if a GnomeVFSResult return value is not GNOME_VFS_OK, throw an error. (define-class ()) (define-method (make-typespec (type ) (options )) (next-method type (cons 'caller-owned options))) (define-method (unwrap-value-cg (type ) (value ) status-var) (let ((c-var (var value)) (scm-var (scm-var value)) (gtype-id (gtype-id type))) (list "if (scm_c_gvalue_holds (" scm-var ", " gtype-id "))\n" " " c-var " = g_value_get_enum (scm_c_gvalue_peek_value (" scm-var "));\n" "else {\n" " GValue tmp = {0,};\n" " g_value_init (&tmp, " gtype-id ");\n" " scm_c_gvalue_set (&tmp, " scm-var ");\n" " " c-var " = g_value_get_enum (&tmp);\n" "}\n"))) (define-method (wrap-value-cg (type ) (result ) status-var) (let ((c-var (var result)) (scm-var (scm-var result))) (list "if (" c-var " == GNOME_VFS_OK)\n" " " scm-var " = SCM_UNSPECIFIED;\n" "else\n" " RESULT_ERROR(" c-var ");\n"))) guile-gnome-platform-2.16.2/gnome-vfs/gnome/gw/gnome-vfs-support.h0000644000175000017500000000413411670374302025400 0ustar00wingowingo00000000000000/* guile-gnome * Copyright (C) 2004 Free Software Foundation, Inc. * * gnome-vfs-support.h: * * This program is free software; you can redistribute it and/or * modify it under the terms of the GNU General Public License as * published by the Free Software Foundation; either version 2 of * the License, or (at your option) any later version. * * This program is distributed in the hope that it will be useful, * but WITHOUT ANY WARRANTY; without even the implied warranty of * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the * GNU General Public License for more details. * * You should have received a copy of the GNU General Public License * along with this program; if not, contact: * * Free Software Foundation Voice: +1-617-542-5942 * 59 Temple Place - Suite 330 Fax: +1-617-542-2652 * Boston, MA 02111-1307, USA gnu@gnu.org */ #include #include #include "guile-gnome-gobject.h" #define RESULT_ERROR(result) \ scm_throw (scm_from_locale_symbol ("gnome-vfs-error"), \ scm_list_1 \ (scm_from_locale_symbol (g_enum_get_value \ ((GEnumClass*)g_type_class_peek \ (GNOME_VFS_TYPE_VFS_RESULT), \ result)->value_nick))) GnomeVFSDirectoryHandle *_wrap_gnome_vfs_directory_open (const gchar *text_uri, GnomeVFSFileInfoOptions options); GnomeVFSDirectoryHandle *_wrap_gnome_vfs_directory_open_from_uri (GnomeVFSURI *uri, GnomeVFSFileInfoOptions options); SCM _wrap_gnome_vfs_open (const gchar *text_uri, GnomeVFSOpenMode open_mode); SCM _wrap_gnome_vfs_open_uri (GnomeVFSURI *uri, GnomeVFSOpenMode open_mode); SCM _wrap_gnome_vfs_create (const gchar *text_uri, GnomeVFSOpenMode open_mode, gboolean exclusive, guint perm); SCM _wrap_gnome_vfs_create_uri (GnomeVFSURI *uri, GnomeVFSOpenMode open_mode, gboolean exclusive, guint perm); guile-gnome-platform-2.16.2/gnome-vfs/gnome/gw/Makefile.am0000644000175000017500000000206111670374302023645 0ustar00wingowingo00000000000000include $(top_srcdir)/common.mk guilegwmodule_DATA = gnome-vfs-spec.scm gnome-vfs.scm EXTRA_DIST = gnome-vfs-spec.scm # There is one shared library for each wrapset. Each is produced by # g-wrap, but also may contain some hand-coded routines. guilegnomelib_LTLIBRARIES = libgw-guile-gnome-gnome-vfs.la ######################################################################## ## gnome-vfs nodist_libgw_guile_gnome_gnome_vfs_la_SOURCES = guile-gnome-gw-gnome-vfs.c libgw_guile_gnome_gnome_vfs_la_SOURCES = \ gnome-vfs-support.c gnome-vfs-support.h \ gnome-vfs-port.c gnome-vfs-port.h libgw_guile_gnome_gnome_vfs_la_CFLAGS = $(GUILE_GLIB_CFLAGS) \ $(AM_CFLAGS) $(GNOME_VFS_CFLAGS) $(GUILE_CFLAGS) \ $(G_WRAP_CFLAGS) $(GNOME_VFS_DEPRECATED_CFLAGS) libgw_guile_gnome_gnome_vfs_la_LIBADD = $(GNOME_VFS_LIBS) $(GUILE_LIBS) \ $(G_WRAP_LIBS) $(GUILE_GLIB_LIBS) libgw_guile_gnome_gnome_vfs_la_LDFLAGS = -module CLEANFILES = $(wildcard gnome-*.log) \ $(wildcard guile-gnome-gw-gnome-vfs.*) gnome-vfs.scm BUILT_SOURCES = guile-gnome-gw-gnome-vfs.c $(DOT_X_FILES) guile-gnome-platform-2.16.2/gnome-vfs/gnome/gw/Makefile.in0000644000175000017500000007143211752520716023671 0ustar00wingowingo00000000000000# Makefile.in generated by automake 1.11.5 from Makefile.am. # @configure_input@ # Copyright (C) 1994, 1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, # 2003, 2004, 2005, 2006, 2007, 2008, 2009, 2010, 2011 Free Software # Foundation, Inc. # This Makefile.in is free software; the Free Software Foundation # gives unlimited permission to copy and/or distribute it, # with or without modifications, as long as this notice is preserved. # This program is distributed in the hope that it will be useful, # but WITHOUT ANY WARRANTY, to the extent permitted by law; without # even the implied warranty of MERCHANTABILITY or FITNESS FOR A # PARTICULAR PURPOSE. @SET_MAKE@ # guile-gnome # Copyright (C) 2003,2004,2009,2012 Free Software Foundation, Inc. # This program is free software; you can redistribute it and/or # modify it under the terms of the GNU General Public License as # published by the Free Software Foundation; either version 2 of # the License, or (at your option) any later version. # This program is distributed in the hope that it will be useful, # but WITHOUT ANY WARRANTY; without even the implied warranty of # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the # GNU General Public License for more details. # You should have received a copy of the GNU General Public License # along with this program; if not, contact: # Free Software Foundation Voice: +1-617-542-5942 # 59 Temple Place - Suite 330 Fax: +1-617-542-2652 # Boston, MA 02111-1307, USA gnu@gnu.org # # Makefile snippet # VPATH = @srcdir@ am__make_dryrun = \ { \ am__dry=no; \ case $$MAKEFLAGS in \ *\\[\ \ ]*) \ echo 'am--echo: ; @echo "AM" OK' | $(MAKE) -f - 2>/dev/null \ | grep '^AM OK$$' >/dev/null || am__dry=yes;; \ *) \ for am__flg in $$MAKEFLAGS; do \ case $$am__flg in \ *=*|--*) ;; \ *n*) am__dry=yes; break;; \ esac; \ done;; \ esac; \ test $$am__dry = yes; \ } pkgdatadir = $(datadir)/@PACKAGE@ pkgincludedir = $(includedir)/@PACKAGE@ pkglibdir = $(libdir)/@PACKAGE@ pkglibexecdir = $(libexecdir)/@PACKAGE@ am__cd = CDPATH="$${ZSH_VERSION+.}$(PATH_SEPARATOR)" && cd install_sh_DATA = $(install_sh) -c -m 644 install_sh_PROGRAM = $(install_sh) -c install_sh_SCRIPT = $(install_sh) -c INSTALL_HEADER = $(INSTALL_DATA) transform = $(program_transform_name) NORMAL_INSTALL = : PRE_INSTALL = : POST_INSTALL = : NORMAL_UNINSTALL = : PRE_UNINSTALL = : POST_UNINSTALL = : build_triplet = @build@ host_triplet = @host@ DIST_COMMON = $(srcdir)/Makefile.am $(srcdir)/Makefile.in \ $(top_srcdir)/common.mk subdir = gnome-vfs/gnome/gw ACLOCAL_M4 = $(top_srcdir)/aclocal.m4 am__aclocal_m4_deps = $(top_srcdir)/configure.ac am__configure_deps = $(am__aclocal_m4_deps) $(CONFIGURE_DEPENDENCIES) \ $(ACLOCAL_M4) mkinstalldirs = $(install_sh) -d CONFIG_HEADER = $(top_builddir)/config.h CONFIG_CLEAN_FILES = CONFIG_CLEAN_VPATH_FILES = am__vpath_adj_setup = srcdirstrip=`echo "$(srcdir)" | sed 's|.|.|g'`; am__vpath_adj = case $$p in \ $(srcdir)/*) f=`echo "$$p" | sed "s|^$$srcdirstrip/||"`;; \ *) f=$$p;; \ esac; am__strip_dir = f=`echo $$p | sed -e 's|^.*/||'`; am__install_max = 40 am__nobase_strip_setup = \ srcdirstrip=`echo "$(srcdir)" | sed 's/[].[^$$\\*|]/\\\\&/g'` am__nobase_strip = \ for p in $$list; do echo "$$p"; done | sed -e "s|$$srcdirstrip/||" am__nobase_list = $(am__nobase_strip_setup); \ for p in $$list; do echo "$$p $$p"; done | \ sed "s| $$srcdirstrip/| |;"' / .*\//!s/ .*/ ./; s,\( .*\)/[^/]*$$,\1,' | \ $(AWK) 'BEGIN { files["."] = "" } { files[$$2] = files[$$2] " " $$1; \ if (++n[$$2] == $(am__install_max)) \ { print $$2, files[$$2]; n[$$2] = 0; files[$$2] = "" } } \ END { for (dir in files) print dir, files[dir] }' am__base_list = \ sed '$$!N;$$!N;$$!N;$$!N;$$!N;$$!N;$$!N;s/\n/ /g' | \ sed '$$!N;$$!N;$$!N;$$!N;s/\n/ /g' am__uninstall_files_from_dir = { \ test -z "$$files" \ || { test ! -d "$$dir" && test ! -f "$$dir" && test ! -r "$$dir"; } \ || { echo " ( cd '$$dir' && rm -f" $$files ")"; \ $(am__cd) "$$dir" && rm -f $$files; }; \ } am__installdirs = "$(DESTDIR)$(guilegnomelibdir)" \ "$(DESTDIR)$(guilegwmoduledir)" LTLIBRARIES = $(guilegnomelib_LTLIBRARIES) am__DEPENDENCIES_1 = libgw_guile_gnome_gnome_vfs_la_DEPENDENCIES = $(am__DEPENDENCIES_1) \ $(am__DEPENDENCIES_1) $(am__DEPENDENCIES_1) \ $(am__DEPENDENCIES_1) am_libgw_guile_gnome_gnome_vfs_la_OBJECTS = \ libgw_guile_gnome_gnome_vfs_la-gnome-vfs-support.lo \ libgw_guile_gnome_gnome_vfs_la-gnome-vfs-port.lo nodist_libgw_guile_gnome_gnome_vfs_la_OBJECTS = \ libgw_guile_gnome_gnome_vfs_la-guile-gnome-gw-gnome-vfs.lo libgw_guile_gnome_gnome_vfs_la_OBJECTS = \ $(am_libgw_guile_gnome_gnome_vfs_la_OBJECTS) \ $(nodist_libgw_guile_gnome_gnome_vfs_la_OBJECTS) libgw_guile_gnome_gnome_vfs_la_LINK = $(LIBTOOL) --tag=CC \ $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=link $(CCLD) \ $(libgw_guile_gnome_gnome_vfs_la_CFLAGS) $(CFLAGS) \ $(libgw_guile_gnome_gnome_vfs_la_LDFLAGS) $(LDFLAGS) -o $@ DEFAULT_INCLUDES = -I.@am__isrc@ -I$(top_builddir) depcomp = $(SHELL) $(top_srcdir)/build-aux/depcomp am__depfiles_maybe = depfiles am__mv = mv -f COMPILE = $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(AM_CPPFLAGS) \ $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) LTCOMPILE = $(LIBTOOL) --tag=CC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) \ --mode=compile $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) \ $(AM_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) CCLD = $(CC) LINK = $(LIBTOOL) --tag=CC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) \ --mode=link $(CCLD) $(AM_CFLAGS) $(CFLAGS) $(AM_LDFLAGS) \ $(LDFLAGS) -o $@ SOURCES = $(libgw_guile_gnome_gnome_vfs_la_SOURCES) \ $(nodist_libgw_guile_gnome_gnome_vfs_la_SOURCES) DIST_SOURCES = $(libgw_guile_gnome_gnome_vfs_la_SOURCES) am__can_run_installinfo = \ case $$AM_UPDATE_INFO_DIR in \ n|no|NO) false;; \ *) (install-info --version) >/dev/null 2>&1;; \ esac DATA = $(guilegwmodule_DATA) ETAGS = etags CTAGS = ctags DISTFILES = $(DIST_COMMON) $(DIST_SOURCES) $(TEXINFOS) $(EXTRA_DIST) ACLOCAL = @ACLOCAL@ AG_PKG_CONFIG_PATH = @AG_PKG_CONFIG_PATH@ AMTAR = @AMTAR@ API_VERSION = @API_VERSION@ AR = @AR@ ATK_CFLAGS = @ATK_CFLAGS@ ATK_LIBS = @ATK_LIBS@ AUTOCONF = @AUTOCONF@ AUTOHEADER = @AUTOHEADER@ AUTOMAKE = @AUTOMAKE@ AWK = @AWK@ BONOBO_IDL_DIR = @BONOBO_IDL_DIR@ CANVAS_CFLAGS = @CANVAS_CFLAGS@ CANVAS_LIBS = @CANVAS_LIBS@ CC = @CC@ CCDEPMODE = @CCDEPMODE@ CFLAGS = @CFLAGS@ CORBA_CFLAGS = @CORBA_CFLAGS@ CORBA_LIBS = @CORBA_LIBS@ CPP = @CPP@ CPPFLAGS = @CPPFLAGS@ CYGPATH_W = @CYGPATH_W@ DEFS = @DEFS@ DEPDIR = @DEPDIR@ DLLTOOL = @DLLTOOL@ DSYMUTIL = @DSYMUTIL@ DUMPBIN = @DUMPBIN@ ECHO_C = @ECHO_C@ ECHO_N = @ECHO_N@ ECHO_T = @ECHO_T@ EGREP = @EGREP@ EXEEXT = @EXEEXT@ FGREP = @FGREP@ GCONF_CFLAGS = @GCONF_CFLAGS@ GCONF_LIBS = @GCONF_LIBS@ GDK_CFLAGS = @GDK_CFLAGS@ GDK_LIBS = @GDK_LIBS@ GDK_PIXBUF_CFLAGS = @GDK_PIXBUF_CFLAGS@ GDK_PIXBUF_LIBS = @GDK_PIXBUF_LIBS@ GLIB_CFLAGS = @GLIB_CFLAGS@ GLIB_LIBS = @GLIB_LIBS@ GNOMEUI_DEPRECATION_FLAGS = @GNOMEUI_DEPRECATION_FLAGS@ GNOME_VFS_CFLAGS = @GNOME_VFS_CFLAGS@ GNOME_VFS_DEPRECATED_CFLAGS = @GNOME_VFS_DEPRECATED_CFLAGS@ GNOME_VFS_LIBS = @GNOME_VFS_LIBS@ GOBJECT_CFLAGS = @GOBJECT_CFLAGS@ GOBJECT_LIBS = @GOBJECT_LIBS@ GREP = @GREP@ GTHREAD_CFLAGS = @GTHREAD_CFLAGS@ GTHREAD_LIBS = @GTHREAD_LIBS@ GTK_CFLAGS = @GTK_CFLAGS@ GTK_DEPRECATED_CFLAGS = @GTK_DEPRECATED_CFLAGS@ GTK_LIBS = @GTK_LIBS@ GUILE_CAIRO_CFLAGS = @GUILE_CAIRO_CFLAGS@ GUILE_CAIRO_LIBS = @GUILE_CAIRO_LIBS@ GUILE_CFLAGS = @GUILE_CFLAGS@ GUILE_EFFECTIVE_VERSION = @GUILE_EFFECTIVE_VERSION@ GUILE_GLIB_CFLAGS = @GUILE_GLIB_CFLAGS@ GUILE_GLIB_LIBS = @GUILE_GLIB_LIBS@ GUILE_LIBS = @GUILE_LIBS@ G_WRAP_CFLAGS = @G_WRAP_CFLAGS@ G_WRAP_LIBS = @G_WRAP_LIBS@ G_WRAP_LIB_DIR = @G_WRAP_LIB_DIR@ G_WRAP_MODULE_DIR = @G_WRAP_MODULE_DIR@ INSTALL = @INSTALL@ INSTALL_DATA = @INSTALL_DATA@ INSTALL_PROGRAM = @INSTALL_PROGRAM@ INSTALL_SCRIPT = @INSTALL_SCRIPT@ INSTALL_STRIP_PROGRAM = @INSTALL_STRIP_PROGRAM@ LD = @LD@ LDFLAGS = @LDFLAGS@ LIBGLADE_CFLAGS = @LIBGLADE_CFLAGS@ LIBGLADE_LIBS = @LIBGLADE_LIBS@ LIBGNOMEUI_CFLAGS = @LIBGNOMEUI_CFLAGS@ LIBGNOMEUI_LIBS = @LIBGNOMEUI_LIBS@ LIBGNOME_CFLAGS = @LIBGNOME_CFLAGS@ LIBGNOME_LIBS = @LIBGNOME_LIBS@ LIBOBJS = @LIBOBJS@ LIBS = @LIBS@ LIBTOOL = @LIBTOOL@ LIPO = @LIPO@ LN_S = @LN_S@ LTLIBOBJS = @LTLIBOBJS@ MAKEINFO = @MAKEINFO@ MANIFEST_TOOL = @MANIFEST_TOOL@ MKDIR_P = @MKDIR_P@ NM = @NM@ NMEDIT = @NMEDIT@ OBJDUMP = @OBJDUMP@ OBJEXT = @OBJEXT@ ORBIT_IDL = @ORBIT_IDL@ OTOOL = @OTOOL@ OTOOL64 = @OTOOL64@ PACKAGE = @PACKAGE@ PACKAGE_BUGREPORT = @PACKAGE_BUGREPORT@ PACKAGE_NAME = @PACKAGE_NAME@ PACKAGE_STRING = @PACKAGE_STRING@ PACKAGE_TARNAME = @PACKAGE_TARNAME@ PACKAGE_URL = @PACKAGE_URL@ PACKAGE_VERSION = @PACKAGE_VERSION@ PANGOCAIRO_CFLAGS = @PANGOCAIRO_CFLAGS@ PANGOCAIRO_LIBS = @PANGOCAIRO_LIBS@ PANGO_CFLAGS = @PANGO_CFLAGS@ PANGO_LIBS = @PANGO_LIBS@ PATH_SEPARATOR = @PATH_SEPARATOR@ PKG_CONFIG = @PKG_CONFIG@ PKG_CONFIG_LIBDIR = @PKG_CONFIG_LIBDIR@ PKG_CONFIG_PATH = @PKG_CONFIG_PATH@ RANLIB = @RANLIB@ SED = @SED@ SET_MAKE = @SET_MAKE@ SHELL = @SHELL@ STRIP = @STRIP@ VERSION = @VERSION@ WARN_CFLAGS = @WARN_CFLAGS@ abs_builddir = @abs_builddir@ abs_srcdir = @abs_srcdir@ abs_top_builddir = @abs_top_builddir@ abs_top_srcdir = @abs_top_srcdir@ ac_ct_AR = @ac_ct_AR@ ac_ct_CC = @ac_ct_CC@ ac_ct_DUMPBIN = @ac_ct_DUMPBIN@ am__include = @am__include@ am__leading_dot = @am__leading_dot@ am__quote = @am__quote@ am__tar = @am__tar@ am__untar = @am__untar@ bindir = @bindir@ build = @build@ build_alias = @build_alias@ build_cpu = @build_cpu@ build_os = @build_os@ build_vendor = @build_vendor@ builddir = @builddir@ datadir = @datadir@ datarootdir = @datarootdir@ docdir = @docdir@ dvidir = @dvidir@ exec_prefix = @exec_prefix@ host = @host@ host_alias = @host_alias@ host_cpu = @host_cpu@ host_os = @host_os@ host_vendor = @host_vendor@ htmldir = @htmldir@ includedir = @includedir@ infodir = @infodir@ install_sh = @install_sh@ libdir = @libdir@ libexecdir = @libexecdir@ localedir = @localedir@ localstatedir = @localstatedir@ mandir = @mandir@ mkdir_p = @mkdir_p@ oldincludedir = @oldincludedir@ pdfdir = @pdfdir@ prefix = @prefix@ program_transform_name = @program_transform_name@ psdir = @psdir@ sbindir = @sbindir@ sharedstatedir = @sharedstatedir@ srcdir = @srcdir@ sysconfdir = @sysconfdir@ target_alias = @target_alias@ top_build_prefix = @top_build_prefix@ top_builddir = @top_builddir@ top_srcdir = @top_srcdir@ guilegnomedir = $(datadir)/guile-gnome-@API_VERSION@ guilemoduledir = $(guilegnomedir)/gnome guilegwmoduledir = $(guilegnomedir)/gnome/gw guilegnomelibdir = $(libdir)/guile-gnome-@API_VERSION@ AM_CFLAGS = -I. -I$(srcdir) $(WARN_CFLAGS) $(DEBUG_CFLAGS) # For overriding from the command line (e.g. --debug) GUILE_FLAGS = SUFFIXES = .x .doc GUILE_SNARF_CFLAGS = $(DEFS) $(AM_CFLAGS) $(GUILE_CFLAGS) $(G_WRAP_CFLAGS) PACKAGES = atk cairo corba defs gconf glib gnome-vfs gtk libglade libgnome libgnomecanvas libgnomeui pango SOURCE_GUILE_PATH = $(shell echo $(addprefix $(top_srcdir)/,$(PACKAGES)) | sed -e 's/ /:/g'):$(srcdir) BUILD_GUILE_PATH = $(if $(filter-out $(top_srcdir),$(top_builddir)),$(shell echo -n $(addprefix $(top_builddir)/,$(PACKAGES)): | sed -e 's/ /:/g'),) GUILE_LOAD_PATH := $(BUILD_GUILE_PATH)$(SOURCE_GUILE_PATH):${G_WRAP_MODULE_DIR}:${GUILE_LOAD_PATH} # Real gnu make foo packages = $(filter-out %-uninstalled,$(patsubst %.pc.in,%,$(notdir $(wildcard $(srcdir)/*.pc.in)))) pcifiles = $(patsubst %,%-@API_VERSION@.pc,$(packages)) pcufiles = $(patsubst %,%-@API_VERSION@-uninstalled.pc,$(packages)) guilegwmodule_DATA = gnome-vfs-spec.scm gnome-vfs.scm EXTRA_DIST = gnome-vfs-spec.scm # There is one shared library for each wrapset. Each is produced by # g-wrap, but also may contain some hand-coded routines. guilegnomelib_LTLIBRARIES = libgw-guile-gnome-gnome-vfs.la ######################################################################## nodist_libgw_guile_gnome_gnome_vfs_la_SOURCES = guile-gnome-gw-gnome-vfs.c libgw_guile_gnome_gnome_vfs_la_SOURCES = \ gnome-vfs-support.c gnome-vfs-support.h \ gnome-vfs-port.c gnome-vfs-port.h libgw_guile_gnome_gnome_vfs_la_CFLAGS = $(GUILE_GLIB_CFLAGS) \ $(AM_CFLAGS) $(GNOME_VFS_CFLAGS) $(GUILE_CFLAGS) \ $(G_WRAP_CFLAGS) $(GNOME_VFS_DEPRECATED_CFLAGS) libgw_guile_gnome_gnome_vfs_la_LIBADD = $(GNOME_VFS_LIBS) $(GUILE_LIBS) \ $(G_WRAP_LIBS) $(GUILE_GLIB_LIBS) libgw_guile_gnome_gnome_vfs_la_LDFLAGS = -module CLEANFILES = $(wildcard gnome-*.log) \ $(wildcard guile-gnome-gw-gnome-vfs.*) gnome-vfs.scm BUILT_SOURCES = guile-gnome-gw-gnome-vfs.c $(DOT_X_FILES) all: $(BUILT_SOURCES) $(MAKE) $(AM_MAKEFLAGS) all-am .SUFFIXES: .SUFFIXES: .x .doc .c .lo .o .obj $(srcdir)/Makefile.in: $(srcdir)/Makefile.am $(top_srcdir)/common.mk $(am__configure_deps) @for dep in $?; do \ case '$(am__configure_deps)' in \ *$$dep*) \ ( cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh ) \ && { if test -f $@; then exit 0; else break; fi; }; \ exit 1;; \ esac; \ done; \ echo ' cd $(top_srcdir) && $(AUTOMAKE) --gnu gnome-vfs/gnome/gw/Makefile'; \ $(am__cd) $(top_srcdir) && \ $(AUTOMAKE) --gnu gnome-vfs/gnome/gw/Makefile .PRECIOUS: Makefile Makefile: $(srcdir)/Makefile.in $(top_builddir)/config.status @case '$?' in \ *config.status*) \ cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh;; \ *) \ echo ' cd $(top_builddir) && $(SHELL) ./config.status $(subdir)/$@ $(am__depfiles_maybe)'; \ cd $(top_builddir) && $(SHELL) ./config.status $(subdir)/$@ $(am__depfiles_maybe);; \ esac; $(top_srcdir)/common.mk: $(top_builddir)/config.status: $(top_srcdir)/configure $(CONFIG_STATUS_DEPENDENCIES) cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh $(top_srcdir)/configure: $(am__configure_deps) cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh $(ACLOCAL_M4): $(am__aclocal_m4_deps) cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh $(am__aclocal_m4_deps): install-guilegnomelibLTLIBRARIES: $(guilegnomelib_LTLIBRARIES) @$(NORMAL_INSTALL) @list='$(guilegnomelib_LTLIBRARIES)'; test -n "$(guilegnomelibdir)" || list=; \ list2=; for p in $$list; do \ if test -f $$p; then \ list2="$$list2 $$p"; \ else :; fi; \ done; \ test -z "$$list2" || { \ echo " $(MKDIR_P) '$(DESTDIR)$(guilegnomelibdir)'"; \ $(MKDIR_P) "$(DESTDIR)$(guilegnomelibdir)" || exit 1; \ echo " $(LIBTOOL) $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=install $(INSTALL) $(INSTALL_STRIP_FLAG) $$list2 '$(DESTDIR)$(guilegnomelibdir)'"; \ $(LIBTOOL) $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=install $(INSTALL) $(INSTALL_STRIP_FLAG) $$list2 "$(DESTDIR)$(guilegnomelibdir)"; \ } uninstall-guilegnomelibLTLIBRARIES: @$(NORMAL_UNINSTALL) @list='$(guilegnomelib_LTLIBRARIES)'; test -n "$(guilegnomelibdir)" || list=; \ for p in $$list; do \ $(am__strip_dir) \ echo " $(LIBTOOL) $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=uninstall rm -f '$(DESTDIR)$(guilegnomelibdir)/$$f'"; \ $(LIBTOOL) $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=uninstall rm -f "$(DESTDIR)$(guilegnomelibdir)/$$f"; \ done clean-guilegnomelibLTLIBRARIES: -test -z "$(guilegnomelib_LTLIBRARIES)" || rm -f $(guilegnomelib_LTLIBRARIES) @list='$(guilegnomelib_LTLIBRARIES)'; for p in $$list; do \ dir="`echo $$p | sed -e 's|/[^/]*$$||'`"; \ test "$$dir" != "$$p" || dir=.; \ echo "rm -f \"$${dir}/so_locations\""; \ rm -f "$${dir}/so_locations"; \ done libgw-guile-gnome-gnome-vfs.la: $(libgw_guile_gnome_gnome_vfs_la_OBJECTS) $(libgw_guile_gnome_gnome_vfs_la_DEPENDENCIES) $(EXTRA_libgw_guile_gnome_gnome_vfs_la_DEPENDENCIES) $(libgw_guile_gnome_gnome_vfs_la_LINK) -rpath $(guilegnomelibdir) $(libgw_guile_gnome_gnome_vfs_la_OBJECTS) $(libgw_guile_gnome_gnome_vfs_la_LIBADD) $(LIBS) mostlyclean-compile: -rm -f *.$(OBJEXT) distclean-compile: -rm -f *.tab.c @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/libgw_guile_gnome_gnome_vfs_la-gnome-vfs-port.Plo@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/libgw_guile_gnome_gnome_vfs_la-gnome-vfs-support.Plo@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/libgw_guile_gnome_gnome_vfs_la-guile-gnome-gw-gnome-vfs.Plo@am__quote@ .c.o: @am__fastdepCC_TRUE@ $(COMPILE) -MT $@ -MD -MP -MF $(DEPDIR)/$*.Tpo -c -o $@ $< @am__fastdepCC_TRUE@ $(am__mv) $(DEPDIR)/$*.Tpo $(DEPDIR)/$*.Po @AMDEP_TRUE@@am__fastdepCC_FALSE@ source='$<' object='$@' libtool=no @AMDEPBACKSLASH@ @AMDEP_TRUE@@am__fastdepCC_FALSE@ DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@ @am__fastdepCC_FALSE@ $(COMPILE) -c $< .c.obj: @am__fastdepCC_TRUE@ $(COMPILE) -MT $@ -MD -MP -MF $(DEPDIR)/$*.Tpo -c -o $@ `$(CYGPATH_W) '$<'` @am__fastdepCC_TRUE@ $(am__mv) $(DEPDIR)/$*.Tpo $(DEPDIR)/$*.Po @AMDEP_TRUE@@am__fastdepCC_FALSE@ source='$<' object='$@' libtool=no @AMDEPBACKSLASH@ @AMDEP_TRUE@@am__fastdepCC_FALSE@ DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@ @am__fastdepCC_FALSE@ $(COMPILE) -c `$(CYGPATH_W) '$<'` .c.lo: @am__fastdepCC_TRUE@ $(LTCOMPILE) -MT $@ -MD -MP -MF $(DEPDIR)/$*.Tpo -c -o $@ $< @am__fastdepCC_TRUE@ $(am__mv) $(DEPDIR)/$*.Tpo $(DEPDIR)/$*.Plo @AMDEP_TRUE@@am__fastdepCC_FALSE@ source='$<' object='$@' libtool=yes @AMDEPBACKSLASH@ @AMDEP_TRUE@@am__fastdepCC_FALSE@ DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@ @am__fastdepCC_FALSE@ $(LTCOMPILE) -c -o $@ $< libgw_guile_gnome_gnome_vfs_la-gnome-vfs-support.lo: gnome-vfs-support.c @am__fastdepCC_TRUE@ $(LIBTOOL) --tag=CC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(AM_CPPFLAGS) $(CPPFLAGS) $(libgw_guile_gnome_gnome_vfs_la_CFLAGS) $(CFLAGS) -MT libgw_guile_gnome_gnome_vfs_la-gnome-vfs-support.lo -MD -MP -MF $(DEPDIR)/libgw_guile_gnome_gnome_vfs_la-gnome-vfs-support.Tpo -c -o libgw_guile_gnome_gnome_vfs_la-gnome-vfs-support.lo `test -f 'gnome-vfs-support.c' || echo '$(srcdir)/'`gnome-vfs-support.c @am__fastdepCC_TRUE@ $(am__mv) $(DEPDIR)/libgw_guile_gnome_gnome_vfs_la-gnome-vfs-support.Tpo $(DEPDIR)/libgw_guile_gnome_gnome_vfs_la-gnome-vfs-support.Plo @AMDEP_TRUE@@am__fastdepCC_FALSE@ source='gnome-vfs-support.c' object='libgw_guile_gnome_gnome_vfs_la-gnome-vfs-support.lo' libtool=yes @AMDEPBACKSLASH@ @AMDEP_TRUE@@am__fastdepCC_FALSE@ DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@ @am__fastdepCC_FALSE@ $(LIBTOOL) --tag=CC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(AM_CPPFLAGS) $(CPPFLAGS) $(libgw_guile_gnome_gnome_vfs_la_CFLAGS) $(CFLAGS) -c -o libgw_guile_gnome_gnome_vfs_la-gnome-vfs-support.lo `test -f 'gnome-vfs-support.c' || echo '$(srcdir)/'`gnome-vfs-support.c libgw_guile_gnome_gnome_vfs_la-gnome-vfs-port.lo: gnome-vfs-port.c @am__fastdepCC_TRUE@ $(LIBTOOL) --tag=CC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(AM_CPPFLAGS) $(CPPFLAGS) $(libgw_guile_gnome_gnome_vfs_la_CFLAGS) $(CFLAGS) -MT libgw_guile_gnome_gnome_vfs_la-gnome-vfs-port.lo -MD -MP -MF $(DEPDIR)/libgw_guile_gnome_gnome_vfs_la-gnome-vfs-port.Tpo -c -o libgw_guile_gnome_gnome_vfs_la-gnome-vfs-port.lo `test -f 'gnome-vfs-port.c' || echo '$(srcdir)/'`gnome-vfs-port.c @am__fastdepCC_TRUE@ $(am__mv) $(DEPDIR)/libgw_guile_gnome_gnome_vfs_la-gnome-vfs-port.Tpo $(DEPDIR)/libgw_guile_gnome_gnome_vfs_la-gnome-vfs-port.Plo @AMDEP_TRUE@@am__fastdepCC_FALSE@ source='gnome-vfs-port.c' object='libgw_guile_gnome_gnome_vfs_la-gnome-vfs-port.lo' libtool=yes @AMDEPBACKSLASH@ @AMDEP_TRUE@@am__fastdepCC_FALSE@ DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@ @am__fastdepCC_FALSE@ $(LIBTOOL) --tag=CC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(AM_CPPFLAGS) $(CPPFLAGS) $(libgw_guile_gnome_gnome_vfs_la_CFLAGS) $(CFLAGS) -c -o libgw_guile_gnome_gnome_vfs_la-gnome-vfs-port.lo `test -f 'gnome-vfs-port.c' || echo '$(srcdir)/'`gnome-vfs-port.c libgw_guile_gnome_gnome_vfs_la-guile-gnome-gw-gnome-vfs.lo: guile-gnome-gw-gnome-vfs.c @am__fastdepCC_TRUE@ $(LIBTOOL) --tag=CC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(AM_CPPFLAGS) $(CPPFLAGS) $(libgw_guile_gnome_gnome_vfs_la_CFLAGS) $(CFLAGS) -MT libgw_guile_gnome_gnome_vfs_la-guile-gnome-gw-gnome-vfs.lo -MD -MP -MF $(DEPDIR)/libgw_guile_gnome_gnome_vfs_la-guile-gnome-gw-gnome-vfs.Tpo -c -o libgw_guile_gnome_gnome_vfs_la-guile-gnome-gw-gnome-vfs.lo `test -f 'guile-gnome-gw-gnome-vfs.c' || echo '$(srcdir)/'`guile-gnome-gw-gnome-vfs.c @am__fastdepCC_TRUE@ $(am__mv) $(DEPDIR)/libgw_guile_gnome_gnome_vfs_la-guile-gnome-gw-gnome-vfs.Tpo $(DEPDIR)/libgw_guile_gnome_gnome_vfs_la-guile-gnome-gw-gnome-vfs.Plo @AMDEP_TRUE@@am__fastdepCC_FALSE@ source='guile-gnome-gw-gnome-vfs.c' object='libgw_guile_gnome_gnome_vfs_la-guile-gnome-gw-gnome-vfs.lo' libtool=yes @AMDEPBACKSLASH@ @AMDEP_TRUE@@am__fastdepCC_FALSE@ DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@ @am__fastdepCC_FALSE@ $(LIBTOOL) --tag=CC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(AM_CPPFLAGS) $(CPPFLAGS) $(libgw_guile_gnome_gnome_vfs_la_CFLAGS) $(CFLAGS) -c -o libgw_guile_gnome_gnome_vfs_la-guile-gnome-gw-gnome-vfs.lo `test -f 'guile-gnome-gw-gnome-vfs.c' || echo '$(srcdir)/'`guile-gnome-gw-gnome-vfs.c mostlyclean-libtool: -rm -f *.lo clean-libtool: -rm -rf .libs _libs install-guilegwmoduleDATA: $(guilegwmodule_DATA) @$(NORMAL_INSTALL) @list='$(guilegwmodule_DATA)'; test -n "$(guilegwmoduledir)" || list=; \ if test -n "$$list"; then \ echo " $(MKDIR_P) '$(DESTDIR)$(guilegwmoduledir)'"; \ $(MKDIR_P) "$(DESTDIR)$(guilegwmoduledir)" || exit 1; \ fi; \ for p in $$list; do \ if test -f "$$p"; then d=; else d="$(srcdir)/"; fi; \ echo "$$d$$p"; \ done | $(am__base_list) | \ while read files; do \ echo " $(INSTALL_DATA) $$files '$(DESTDIR)$(guilegwmoduledir)'"; \ $(INSTALL_DATA) $$files "$(DESTDIR)$(guilegwmoduledir)" || exit $$?; \ done uninstall-guilegwmoduleDATA: @$(NORMAL_UNINSTALL) @list='$(guilegwmodule_DATA)'; test -n "$(guilegwmoduledir)" || list=; \ files=`for p in $$list; do echo $$p; done | sed -e 's|^.*/||'`; \ dir='$(DESTDIR)$(guilegwmoduledir)'; $(am__uninstall_files_from_dir) ID: $(HEADERS) $(SOURCES) $(LISP) $(TAGS_FILES) list='$(SOURCES) $(HEADERS) $(LISP) $(TAGS_FILES)'; \ unique=`for i in $$list; do \ if test -f "$$i"; then echo $$i; else echo $(srcdir)/$$i; fi; \ done | \ $(AWK) '{ files[$$0] = 1; nonempty = 1; } \ END { if (nonempty) { for (i in files) print i; }; }'`; \ mkid -fID $$unique tags: TAGS TAGS: $(HEADERS) $(SOURCES) $(TAGS_DEPENDENCIES) \ $(TAGS_FILES) $(LISP) set x; \ here=`pwd`; \ list='$(SOURCES) $(HEADERS) $(LISP) $(TAGS_FILES)'; \ unique=`for i in $$list; do \ if test -f "$$i"; then echo $$i; else echo $(srcdir)/$$i; fi; \ done | \ $(AWK) '{ files[$$0] = 1; nonempty = 1; } \ END { if (nonempty) { for (i in files) print i; }; }'`; \ shift; \ if test -z "$(ETAGS_ARGS)$$*$$unique"; then :; else \ test -n "$$unique" || unique=$$empty_fix; \ if test $$# -gt 0; then \ $(ETAGS) $(ETAGSFLAGS) $(AM_ETAGSFLAGS) $(ETAGS_ARGS) \ "$$@" $$unique; \ else \ $(ETAGS) $(ETAGSFLAGS) $(AM_ETAGSFLAGS) $(ETAGS_ARGS) \ $$unique; \ fi; \ fi ctags: CTAGS CTAGS: $(HEADERS) $(SOURCES) $(TAGS_DEPENDENCIES) \ $(TAGS_FILES) $(LISP) list='$(SOURCES) $(HEADERS) $(LISP) $(TAGS_FILES)'; \ unique=`for i in $$list; do \ if test -f "$$i"; then echo $$i; else echo $(srcdir)/$$i; fi; \ done | \ $(AWK) '{ files[$$0] = 1; nonempty = 1; } \ END { if (nonempty) { for (i in files) print i; }; }'`; \ test -z "$(CTAGS_ARGS)$$unique" \ || $(CTAGS) $(CTAGSFLAGS) $(AM_CTAGSFLAGS) $(CTAGS_ARGS) \ $$unique GTAGS: here=`$(am__cd) $(top_builddir) && pwd` \ && $(am__cd) $(top_srcdir) \ && gtags -i $(GTAGS_ARGS) "$$here" distclean-tags: -rm -f TAGS ID GTAGS GRTAGS GSYMS GPATH tags distdir: $(DISTFILES) @srcdirstrip=`echo "$(srcdir)" | sed 's/[].[^$$\\*]/\\\\&/g'`; \ topsrcdirstrip=`echo "$(top_srcdir)" | sed 's/[].[^$$\\*]/\\\\&/g'`; \ list='$(DISTFILES)'; \ dist_files=`for file in $$list; do echo $$file; done | \ sed -e "s|^$$srcdirstrip/||;t" \ -e "s|^$$topsrcdirstrip/|$(top_builddir)/|;t"`; \ case $$dist_files in \ */*) $(MKDIR_P) `echo "$$dist_files" | \ sed '/\//!d;s|^|$(distdir)/|;s,/[^/]*$$,,' | \ sort -u` ;; \ esac; \ for file in $$dist_files; do \ if test -f $$file || test -d $$file; then d=.; else d=$(srcdir); fi; \ if test -d $$d/$$file; then \ dir=`echo "/$$file" | sed -e 's,/[^/]*$$,,'`; \ if test -d "$(distdir)/$$file"; then \ find "$(distdir)/$$file" -type d ! -perm -700 -exec chmod u+rwx {} \;; \ fi; \ if test -d $(srcdir)/$$file && test $$d != $(srcdir); then \ cp -fpR $(srcdir)/$$file "$(distdir)$$dir" || exit 1; \ find "$(distdir)/$$file" -type d ! -perm -700 -exec chmod u+rwx {} \;; \ fi; \ cp -fpR $$d/$$file "$(distdir)$$dir" || exit 1; \ else \ test -f "$(distdir)/$$file" \ || cp -p $$d/$$file "$(distdir)/$$file" \ || exit 1; \ fi; \ done check-am: all-am check: $(BUILT_SOURCES) $(MAKE) $(AM_MAKEFLAGS) check-am all-am: Makefile $(LTLIBRARIES) $(DATA) installdirs: for dir in "$(DESTDIR)$(guilegnomelibdir)" "$(DESTDIR)$(guilegwmoduledir)"; do \ test -z "$$dir" || $(MKDIR_P) "$$dir"; \ done install: $(BUILT_SOURCES) $(MAKE) $(AM_MAKEFLAGS) install-am install-exec: install-exec-am install-data: install-data-am uninstall: uninstall-am install-am: all-am @$(MAKE) $(AM_MAKEFLAGS) install-exec-am install-data-am installcheck: installcheck-am install-strip: if test -z '$(STRIP)'; then \ $(MAKE) $(AM_MAKEFLAGS) INSTALL_PROGRAM="$(INSTALL_STRIP_PROGRAM)" \ install_sh_PROGRAM="$(INSTALL_STRIP_PROGRAM)" INSTALL_STRIP_FLAG=-s \ install; \ else \ $(MAKE) $(AM_MAKEFLAGS) INSTALL_PROGRAM="$(INSTALL_STRIP_PROGRAM)" \ install_sh_PROGRAM="$(INSTALL_STRIP_PROGRAM)" INSTALL_STRIP_FLAG=-s \ "INSTALL_PROGRAM_ENV=STRIPPROG='$(STRIP)'" install; \ fi mostlyclean-generic: clean-generic: -test -z "$(CLEANFILES)" || rm -f $(CLEANFILES) distclean-generic: -test -z "$(CONFIG_CLEAN_FILES)" || rm -f $(CONFIG_CLEAN_FILES) -test . = "$(srcdir)" || test -z "$(CONFIG_CLEAN_VPATH_FILES)" || rm -f $(CONFIG_CLEAN_VPATH_FILES) maintainer-clean-generic: @echo "This command is intended for maintainers to use" @echo "it deletes files that may require special tools to rebuild." -test -z "$(BUILT_SOURCES)" || rm -f $(BUILT_SOURCES) clean: clean-am clean-am: clean-generic clean-guilegnomelibLTLIBRARIES clean-libtool \ mostlyclean-am distclean: distclean-am -rm -rf ./$(DEPDIR) -rm -f Makefile distclean-am: clean-am distclean-compile distclean-generic \ distclean-tags dvi: dvi-am dvi-am: html: html-am html-am: info: info-am info-am: install-data-am: install-guilegnomelibLTLIBRARIES \ install-guilegwmoduleDATA install-dvi: install-dvi-am install-dvi-am: install-exec-am: install-html: install-html-am install-html-am: install-info: install-info-am install-info-am: install-man: install-pdf: install-pdf-am install-pdf-am: install-ps: install-ps-am install-ps-am: installcheck-am: maintainer-clean: maintainer-clean-am -rm -rf ./$(DEPDIR) -rm -f Makefile maintainer-clean-am: distclean-am maintainer-clean-generic mostlyclean: mostlyclean-am mostlyclean-am: mostlyclean-compile mostlyclean-generic \ mostlyclean-libtool pdf: pdf-am pdf-am: ps: ps-am ps-am: uninstall-am: uninstall-guilegnomelibLTLIBRARIES \ uninstall-guilegwmoduleDATA .MAKE: all check install install-am install-strip .PHONY: CTAGS GTAGS all all-am check check-am clean clean-generic \ clean-guilegnomelibLTLIBRARIES clean-libtool ctags distclean \ distclean-compile distclean-generic distclean-libtool \ distclean-tags distdir dvi dvi-am html html-am info info-am \ install install-am install-data install-data-am install-dvi \ install-dvi-am install-exec install-exec-am \ install-guilegnomelibLTLIBRARIES install-guilegwmoduleDATA \ install-html install-html-am install-info install-info-am \ install-man install-pdf install-pdf-am install-ps \ install-ps-am install-strip installcheck installcheck-am \ installdirs maintainer-clean maintainer-clean-generic \ mostlyclean mostlyclean-compile mostlyclean-generic \ mostlyclean-libtool pdf pdf-am ps ps-am tags uninstall \ uninstall-am uninstall-guilegnomelibLTLIBRARIES \ uninstall-guilegwmoduleDATA export GUILE_LOAD_PATH .c.x: guile-snarf $(GUILE_SNARF_CFLAGS) $< > $@ \ || { rm $@; false; } .c.doc: $(CPP) -DSCM_MAGIC_SNARF_DOCS $(GUILE_SNARF_CFLAGS) $< \ | grep -E '(\^\^ {|\^\^ })' > $@ || { rm $@; false; } %.scm guile-gnome-gw-%.c: %-spec.scm guile $(GUILE_FLAGS) -c \ "(debug-set! stack 400000) \ (use-modules (gnome-@API_VERSION@)) \ (use-modules (g-wrap)) \ (use-modules (gnome gw $*-spec)) \ (generate-wrapset 'guile 'gnome-$* \"guile-gnome-gw-$*\")" mv guile-gnome-gw-$*.scm $*.scm %-@API_VERSION@.pc: %.pc cp $< $@ %-@API_VERSION@-uninstalled.pc: %-uninstalled.pc cp $< $@ # Tell versions [3.59,3.63) of GNU make to not export all variables. # Otherwise a system limit (for SysV at least) may be exceeded. .NOEXPORT: guile-gnome-platform-2.16.2/gnome-vfs/gnome/gw/gnome-vfs-port.h0000644000175000017500000000323111670374302024645 0ustar00wingowingo00000000000000/* guile-gnome * Copyright (C) 2004 Free Software Foundation, Inc. * * gnome-vfs-support.h: * * This program is free software; you can redistribute it and/or * modify it under the terms of the GNU General Public License as * published by the Free Software Foundation; either version 2 of * the License, or (at your option) any later version. * * This program is distributed in the hope that it will be useful, * but WITHOUT ANY WARRANTY; without even the implied warranty of * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the * GNU General Public License for more details. * * You should have received a copy of the GNU General Public License * along with this program; if not, contact: * * Free Software Foundation Voice: +1-617-542-5942 * 59 Temple Place - Suite 330 Fax: +1-617-542-2652 * Boston, MA 02111-1307, USA gnu@gnu.org */ #include #include #define SCM_VPORTP(x) (!SCM_IMP (x) && (SCM_TYP16 (x) == scm_tc16_vport)) #define SCM_OPVPORTP(x) (SCM_VPORTP (x) && (SCM_CELL_WORD_0 (x) & SCM_OPN)) #define SCM_OPINVPORTP(x) (SCM_OPVPORTP (x) && (SCM_CELL_WORD_0 (x) & SCM_RDNG)) #define SCM_OPOUTVPORTP(x) (SCM_OPVPORTP (x) && (SCM_CELL_WORD_0 (x) & SCM_WRTNG)) SCM scm_gnome_vfs_handle_to_port (GnomeVFSHandle *handle, GnomeVFSOpenMode mode, const gchar *name); GnomeVFSHandle *scm_gnome_vfs_port_to_handle (SCM port); void scm_init_gnome_vfs_ports (void); guile-gnome-platform-2.16.2/gnome-vfs/gnome/gw/gnome-vfs-port.c0000644000175000017500000003303211671225671024647 0ustar00wingowingo00000000000000/* guile-gnome * Copyright (C) 2004, 2009, 2011 Free Software Foundation, Inc. * * gnome-vfs-support.c: Support routines for the gnome-vfs wrapper * * This program is free software; you can redistribute it and/or * modify it under the terms of the GNU General Public License as * published by the Free Software Foundation; either version 2 of * the License, or (at your option) any later version. * * This program is distributed in the hope that it will be useful, * but WITHOUT ANY WARRANTY; without even the implied warranty of * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the * GNU General Public License for more details. * * You should have received a copy of the GNU General Public License * along with this program; if not, contact: * * Free Software Foundation Voice: +1-617-542-5942 * 59 Temple Place - Suite 330 Fax: +1-617-542-2652 * Boston, MA 02111-1307, USA gnu@gnu.org */ #include "gnome-vfs-port.h" #include "gnome-vfs-support.h" #include "guile-gnome-gobject.h" #include #include #if SCM_MAJOR_VERSION == 1 && SCM_MINOR_VERSION < 9 typedef off_t scm_t_off; #endif static scm_t_bits scm_tc16_vport = 0; #define CHECK_RESULT(res) \ do{if (res != GNOME_VFS_OK) RESULT_ERROR (res);}while(0) /* Most of this taken from guile's vports.c */ /* default buffer size, used if the O/S won't supply a value. */ static const size_t default_buffer_size = 1024; /* create VPORT buffer with specified sizes (or -1 to use default size or 0 for no buffer. */ static void scm_vport_buffer_add (SCM port, long read_size, int write_size) #define FUNC_NAME "scm_vport_buffer_add" { scm_t_port *pt = SCM_PTAB_ENTRY (port); if (read_size == -1 || write_size == -1) { if (read_size == -1) read_size = default_buffer_size; if (write_size == -1) write_size = default_buffer_size; } if (SCM_INPUT_PORT_P (port) && read_size > 0) { pt->read_buf = scm_gc_malloc (read_size, "port buffer"); pt->read_pos = pt->read_end = pt->read_buf; pt->read_buf_size = read_size; } else { pt->read_pos = pt->read_buf = pt->read_end = &pt->shortbuf; pt->read_buf_size = 1; } if (SCM_OUTPUT_PORT_P (port) && write_size > 0) { pt->write_buf = scm_gc_malloc (write_size, "port buffer"); pt->write_pos = pt->write_buf; pt->write_buf_size = write_size; } else { pt->write_buf = pt->write_pos = &pt->shortbuf; pt->write_buf_size = 1; } pt->write_end = pt->write_buf + pt->write_buf_size; if (read_size > 0 || write_size > 0) SCM_SET_CELL_WORD_0 (port, SCM_CELL_WORD_0 (port) & ~SCM_BUF0); else SCM_SET_CELL_WORD_0 (port, SCM_CELL_WORD_0 (port) | SCM_BUF0); } #undef FUNC_NAME static long vfs_mode_bits (GnomeVFSOpenMode mode) { long ret = SCM_OPN; if (mode & GNOME_VFS_OPEN_READ) ret |= SCM_RDNG; if (mode & GNOME_VFS_OPEN_WRITE) ret |= SCM_WRTNG; return ret; } SCM scm_gnome_vfs_handle_to_port (GnomeVFSHandle *handle, GnomeVFSOpenMode mode, const gchar* uri) #define FUNC_NAME "scm_gnome_vfs_handle_to_port" { long mode_bits = vfs_mode_bits (mode); SCM port; scm_t_port *pt; port = scm_new_port_table_entry (scm_tc16_vport); SCM_SET_CELL_TYPE(port, scm_tc16_vport | mode_bits); pt = SCM_PTAB_ENTRY(port); pt->rw_random = mode & GNOME_VFS_OPEN_RANDOM; SCM_SETSTREAM (port, handle); if (mode_bits & SCM_BUF0) scm_vport_buffer_add (port, 0, 0); else scm_vport_buffer_add (port, -1, -1); SCM_SET_FILENAME (port, scm_from_locale_string (uri)); return port; } #undef FUNC_NAME GnomeVFSHandle* scm_gnome_vfs_port_to_handle (SCM port) #define FUNC_NAME "scm_gnome_vfs_port_to_handle" { if (SCM_VPORTP (port)) { if (SCM_OPVPORTP (port)) return (GnomeVFSHandle*)SCM_STREAM (port); else return NULL; } scm_wrong_type_arg (FUNC_NAME, 1, port); return NULL; /* shouldn't get here */ } #undef FUNC_NAME static int vport_print (SCM exp, SCM port, scm_print_state *pstate SCM_UNUSED) { scm_puts ("#<", port); scm_print_port_mode (exp, port); if (SCM_OPVPORTP (exp)) { SCM name = SCM_FILENAME (exp); if (scm_is_string (name) || SCM_SYMBOLP (name)) scm_display (name, port); else scm_puts (SCM_PTOBNAME (SCM_PTOBNUM (exp)), port); scm_putc (' ', port); scm_intprint (SCM_STREAM (exp), 16, port); } scm_putc ('>', port); return 1; } static void vport_flush (SCM port); /* fill a port's read-buffer with a single read. returns the first char or EOF if end of file. */ static int vport_fill_input (SCM port) { GnomeVFSFileSize count; GnomeVFSResult res; scm_t_port *pt = SCM_PTAB_ENTRY (port); GnomeVFSHandle *handle = (GnomeVFSHandle*)SCM_STREAM (port); res = gnome_vfs_read (handle, pt->read_buf, pt->read_buf_size, &count); if (res == GNOME_VFS_ERROR_EOF) return EOF; else if (res != GNOME_VFS_OK) RESULT_ERROR (res); if (count == 0) return EOF; else { pt->read_pos = pt->read_buf; pt->read_end = pt->read_buf + count; return *pt->read_buf; } } static scm_t_off vport_seek (SCM port, scm_t_off offset, int whence) { GnomeVFSFileSize count; GnomeVFSResult res; scm_t_port *pt = SCM_PTAB_ENTRY (port); GnomeVFSHandle *handle = (GnomeVFSHandle*)SCM_STREAM (port); GnomeVFSSeekPosition gwhence; switch (whence) { case SEEK_SET: gwhence = GNOME_VFS_SEEK_START; break; case SEEK_CUR: gwhence = GNOME_VFS_SEEK_CURRENT; break; case SEEK_END: gwhence = GNOME_VFS_SEEK_END; break; default: RESULT_ERROR (GNOME_VFS_ERROR_NOT_SUPPORTED); return 0; } if (pt->rw_active == SCM_PORT_WRITE) { if (offset != 0 || whence != SEEK_CUR) { vport_flush (port); res = gnome_vfs_seek (handle, gwhence, (GnomeVFSFileOffset)offset); CHECK_RESULT (res); res = gnome_vfs_tell (handle, &count); CHECK_RESULT (res); return count; } else { /* read current position without disturbing the buffer. */ res = gnome_vfs_seek (handle, gwhence, (GnomeVFSFileOffset)offset); CHECK_RESULT (res); res = gnome_vfs_tell (handle, &count); CHECK_RESULT (res); return count + (pt->write_pos - pt->write_buf); } } else if (pt->rw_active == SCM_PORT_READ) { if (offset != 0 || whence != SEEK_CUR) { /* could expand to avoid a second seek. */ scm_end_input (port); res = gnome_vfs_seek (handle, gwhence, (GnomeVFSFileOffset)offset); CHECK_RESULT (res); res = gnome_vfs_tell (handle, &count); CHECK_RESULT (res); return count; } else { /* read current position without disturbing the buffer (particularly the unread-char buffer). */ res = gnome_vfs_seek (handle, gwhence, (GnomeVFSFileOffset)offset); CHECK_RESULT (res); res = gnome_vfs_tell (handle, &count); CHECK_RESULT (res); count -= (pt->read_end - pt->read_pos); if (pt->read_buf == pt->putback_buf) count -= pt->saved_read_end - pt->saved_read_pos; return count; } } else { /* SCM_PORT_NEITHER */ res = gnome_vfs_seek (handle, gwhence, (GnomeVFSFileOffset)offset); CHECK_RESULT (res); res = gnome_vfs_tell (handle, &count); CHECK_RESULT (res); return count; } } static void vport_truncate (SCM port, scm_t_off length) { GnomeVFSResult res; GnomeVFSHandle *handle = (GnomeVFSHandle*)SCM_STREAM (port); res = gnome_vfs_truncate_handle (handle, (GnomeVFSFileSize)length); CHECK_RESULT (res); } /* helper for vport_write: try to write data, using multiple system calls if required. */ #define FUNC_NAME "write_all" static void write_all (SCM port, const void *data, size_t remaining) { GnomeVFSResult res; GnomeVFSHandle *handle = (GnomeVFSHandle*)SCM_STREAM (port); while (remaining > 0) { GnomeVFSFileSize done; res = gnome_vfs_write (handle, data, remaining, &done); /* gnome vfs handles the multiple-system-call case for us */ CHECK_RESULT (res); remaining -= done; data = ((const char *) data) + done; } } #undef FUNC_NAME static void vport_write (SCM port, const void *data, size_t size) { /* this procedure tries to minimize the number of writes/flushes. */ scm_t_port *pt = SCM_PTAB_ENTRY (port); scm_t_off space = pt->write_end - pt->write_pos; if (pt->write_buf == &pt->shortbuf || (pt->write_pos == pt->write_buf && size >= pt->write_buf_size)) { /* "unbuffered" port, or port with empty buffer and data won't fit in buffer. */ write_all (port, data, size); return; } if (size <= space) { /* data fits in buffer. */ memcpy (pt->write_pos, data, size); pt->write_pos += size; if (pt->write_pos == pt->write_end) { vport_flush (port); /* we can skip the line-buffering check if nothing's buffered. */ return; } } else { memcpy (pt->write_pos, data, space); pt->write_pos = pt->write_end; vport_flush (port); { const void *ptr = ((const char *) data) + space; size_t remaining = size - space; if (size >= pt->write_buf_size) { write_all (port, ptr, remaining); return; } else { memcpy (pt->write_pos, ptr, remaining); pt->write_pos += remaining; } } } /* handle line buffering. */ if ((SCM_CELL_WORD_0 (port) & SCM_BUFLINE) && memchr (data, '\n', size)) vport_flush (port); } static void vport_flush (SCM port) { scm_t_port *pt = SCM_PTAB_ENTRY (port); GnomeVFSResult res; GnomeVFSFileSize count; GnomeVFSHandle *handle = (GnomeVFSHandle*)SCM_STREAM (port); unsigned char *ptr = pt->write_buf; long init_size = pt->write_pos - pt->write_buf; long remaining = init_size; while (remaining > 0) { res = gnome_vfs_write (handle, ptr, remaining, &count); if (res != GNOME_VFS_OK) { /* error. assume nothing was written this call, but fix up the buffer for any previous successful writes. */ long done = init_size - remaining; if (done > 0) { int i; for (i = 0; i < remaining; i++) *(pt->write_buf + i) = *(pt->write_buf + done + i); pt->write_pos = pt->write_buf + remaining; } if (scm_gc_running_p) { /* silently ignore the error. scm_error would abort if we called it now. */ count = remaining; } else { CHECK_RESULT (res); } } ptr += count; remaining -= count; } pt->write_pos = pt->write_buf; pt->rw_active = SCM_PORT_NEITHER; } /* clear the read buffer and adjust the file position for unread bytes. */ static void vport_end_input (SCM port, int offset) { GnomeVFSResult res; GnomeVFSHandle *handle = (GnomeVFSHandle*)SCM_STREAM (port); scm_t_port *pt = SCM_PTAB_ENTRY (port); offset += pt->read_end - pt->read_pos; if (offset > 0) { pt->read_pos = pt->read_end; /* will throw error if unread-char used at beginning of file then attempting to write. seems correct. */ res = gnome_vfs_seek (handle, GNOME_VFS_SEEK_CURRENT, -offset); CHECK_RESULT (res); } pt->rw_active = SCM_PORT_NEITHER; } static int vport_close (SCM port) { GnomeVFSResult res; GnomeVFSHandle *handle = (GnomeVFSHandle*)SCM_STREAM (port); scm_t_port *pt = SCM_PTAB_ENTRY (port); vport_flush (port); res = gnome_vfs_close (handle); SCM_SETSTREAM (port, NULL); if (res != GNOME_VFS_OK) { if (scm_gc_running_p) /* silently ignore the error. scm_error would abort if we called it now. */ ; else CHECK_RESULT (res); } if (pt->read_buf == pt->putback_buf) pt->read_buf = pt->saved_read_buf; if (pt->read_buf != &pt->shortbuf) scm_gc_free (pt->read_buf, pt->read_buf_size, "port buffer"); if (pt->write_buf != &pt->shortbuf) scm_gc_free (pt->write_buf, pt->write_buf_size, "port buffer"); return 0; } static size_t vport_free (SCM port) { vport_close (port); return 0; } void scm_init_gnome_vfs_ports () { scm_t_bits tc; tc = scm_make_port_type ("gnome-vfs-port", vport_fill_input, vport_write); scm_set_port_free (tc, vport_free); scm_set_port_print (tc, vport_print); scm_set_port_flush (tc, vport_flush); scm_set_port_end_input (tc, vport_end_input); scm_set_port_close (tc, vport_close); scm_set_port_seek (tc, vport_seek); scm_set_port_truncate (tc, vport_truncate); /* no select(2) for gnomevfs scm_set_port_input_waiting (tc, vport_input_waiting); */ scm_tc16_vport = tc; } guile-gnome-platform-2.16.2/gnome-vfs/gnome/vfs.scm0000644000175000017500000000236011671134056022501 0ustar00wingowingo00000000000000;; guile-gnome ;; Copyright (C) 2004 Free Software Foundation, Inc. ;; This program is free software; you can redistribute it and/or ;; modify it under the terms of the GNU General Public License as ;; published by the Free Software Foundation; either version 2 of ;; the License, or (at your option) any later version. ;; ;; This program is distributed in the hope that it will be useful, ;; but WITHOUT ANY WARRANTY; without even the implied warranty of ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the ;; GNU General Public License for more details. ;; ;; You should have received a copy of the GNU General Public License ;; along with this program; if not, contact: ;; ;; Free Software Foundation Voice: +1-617-542-5942 ;; 59 Temple Place - Suite 330 Fax: +1-617-542-2652 ;; Boston, MA 02111-1307, USA gnu@gnu.org ;;; Commentary: ;; ;;Template bindings. ;; ;;[...] ;; ;;; Code: (define-module (gnome vfs) #:use-module (gnome gw gnome-vfs) #:use-module (gnome gw support modules)) (re-export-modules (gnome gw gnome-vfs)) guile-gnome-platform-2.16.2/gnome-vfs/gnome/Makefile.am0000644000175000017500000000027511670374302023235 0ustar00wingowingo00000000000000include $(top_srcdir)/common.mk SUBDIRS = overrides guilemodule_DATA = if HAVE_GNOME_VFS SUBDIRS += gw guilemodule_DATA += vfs.scm endif EXTRA_DIST = vfs.scm DIST_SUBDIRS = gw overrides guile-gnome-platform-2.16.2/gnome-vfs/gnome/Makefile.in0000644000175000017500000005746211752520715023262 0ustar00wingowingo00000000000000# Makefile.in generated by automake 1.11.5 from Makefile.am. # @configure_input@ # Copyright (C) 1994, 1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, # 2003, 2004, 2005, 2006, 2007, 2008, 2009, 2010, 2011 Free Software # Foundation, Inc. # This Makefile.in is free software; the Free Software Foundation # gives unlimited permission to copy and/or distribute it, # with or without modifications, as long as this notice is preserved. # This program is distributed in the hope that it will be useful, # but WITHOUT ANY WARRANTY, to the extent permitted by law; without # even the implied warranty of MERCHANTABILITY or FITNESS FOR A # PARTICULAR PURPOSE. @SET_MAKE@ # guile-gnome # Copyright (C) 2003,2004,2009,2012 Free Software Foundation, Inc. # This program is free software; you can redistribute it and/or # modify it under the terms of the GNU General Public License as # published by the Free Software Foundation; either version 2 of # the License, or (at your option) any later version. # This program is distributed in the hope that it will be useful, # but WITHOUT ANY WARRANTY; without even the implied warranty of # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the # GNU General Public License for more details. # You should have received a copy of the GNU General Public License # along with this program; if not, contact: # Free Software Foundation Voice: +1-617-542-5942 # 59 Temple Place - Suite 330 Fax: +1-617-542-2652 # Boston, MA 02111-1307, USA gnu@gnu.org # # Makefile snippet # VPATH = @srcdir@ am__make_dryrun = \ { \ am__dry=no; \ case $$MAKEFLAGS in \ *\\[\ \ ]*) \ echo 'am--echo: ; @echo "AM" OK' | $(MAKE) -f - 2>/dev/null \ | grep '^AM OK$$' >/dev/null || am__dry=yes;; \ *) \ for am__flg in $$MAKEFLAGS; do \ case $$am__flg in \ *=*|--*) ;; \ *n*) am__dry=yes; break;; \ esac; \ done;; \ esac; \ test $$am__dry = yes; \ } pkgdatadir = $(datadir)/@PACKAGE@ pkgincludedir = $(includedir)/@PACKAGE@ pkglibdir = $(libdir)/@PACKAGE@ pkglibexecdir = $(libexecdir)/@PACKAGE@ am__cd = CDPATH="$${ZSH_VERSION+.}$(PATH_SEPARATOR)" && cd install_sh_DATA = $(install_sh) -c -m 644 install_sh_PROGRAM = $(install_sh) -c install_sh_SCRIPT = $(install_sh) -c INSTALL_HEADER = $(INSTALL_DATA) transform = $(program_transform_name) NORMAL_INSTALL = : PRE_INSTALL = : POST_INSTALL = : NORMAL_UNINSTALL = : PRE_UNINSTALL = : POST_UNINSTALL = : build_triplet = @build@ host_triplet = @host@ DIST_COMMON = $(srcdir)/Makefile.am $(srcdir)/Makefile.in \ $(top_srcdir)/common.mk @HAVE_GNOME_VFS_TRUE@am__append_1 = gw @HAVE_GNOME_VFS_TRUE@am__append_2 = vfs.scm subdir = gnome-vfs/gnome ACLOCAL_M4 = $(top_srcdir)/aclocal.m4 am__aclocal_m4_deps = $(top_srcdir)/configure.ac am__configure_deps = $(am__aclocal_m4_deps) $(CONFIGURE_DEPENDENCIES) \ $(ACLOCAL_M4) mkinstalldirs = $(install_sh) -d CONFIG_HEADER = $(top_builddir)/config.h CONFIG_CLEAN_FILES = CONFIG_CLEAN_VPATH_FILES = SOURCES = DIST_SOURCES = RECURSIVE_TARGETS = all-recursive check-recursive dvi-recursive \ html-recursive info-recursive install-data-recursive \ install-dvi-recursive install-exec-recursive \ install-html-recursive install-info-recursive \ install-pdf-recursive install-ps-recursive install-recursive \ installcheck-recursive installdirs-recursive pdf-recursive \ ps-recursive uninstall-recursive am__can_run_installinfo = \ case $$AM_UPDATE_INFO_DIR in \ n|no|NO) false;; \ *) (install-info --version) >/dev/null 2>&1;; \ esac am__vpath_adj_setup = srcdirstrip=`echo "$(srcdir)" | sed 's|.|.|g'`; am__vpath_adj = case $$p in \ $(srcdir)/*) f=`echo "$$p" | sed "s|^$$srcdirstrip/||"`;; \ *) f=$$p;; \ esac; am__strip_dir = f=`echo $$p | sed -e 's|^.*/||'`; am__install_max = 40 am__nobase_strip_setup = \ srcdirstrip=`echo "$(srcdir)" | sed 's/[].[^$$\\*|]/\\\\&/g'` am__nobase_strip = \ for p in $$list; do echo "$$p"; done | sed -e "s|$$srcdirstrip/||" am__nobase_list = $(am__nobase_strip_setup); \ for p in $$list; do echo "$$p $$p"; done | \ sed "s| $$srcdirstrip/| |;"' / .*\//!s/ .*/ ./; s,\( .*\)/[^/]*$$,\1,' | \ $(AWK) 'BEGIN { files["."] = "" } { files[$$2] = files[$$2] " " $$1; \ if (++n[$$2] == $(am__install_max)) \ { print $$2, files[$$2]; n[$$2] = 0; files[$$2] = "" } } \ END { for (dir in files) print dir, files[dir] }' am__base_list = \ sed '$$!N;$$!N;$$!N;$$!N;$$!N;$$!N;$$!N;s/\n/ /g' | \ sed '$$!N;$$!N;$$!N;$$!N;s/\n/ /g' am__uninstall_files_from_dir = { \ test -z "$$files" \ || { test ! -d "$$dir" && test ! -f "$$dir" && test ! -r "$$dir"; } \ || { echo " ( cd '$$dir' && rm -f" $$files ")"; \ $(am__cd) "$$dir" && rm -f $$files; }; \ } am__installdirs = "$(DESTDIR)$(guilemoduledir)" DATA = $(guilemodule_DATA) RECURSIVE_CLEAN_TARGETS = mostlyclean-recursive clean-recursive \ distclean-recursive maintainer-clean-recursive AM_RECURSIVE_TARGETS = $(RECURSIVE_TARGETS:-recursive=) \ $(RECURSIVE_CLEAN_TARGETS:-recursive=) tags TAGS ctags CTAGS \ distdir ETAGS = etags CTAGS = ctags DISTFILES = $(DIST_COMMON) $(DIST_SOURCES) $(TEXINFOS) $(EXTRA_DIST) am__relativize = \ dir0=`pwd`; \ sed_first='s,^\([^/]*\)/.*$$,\1,'; \ sed_rest='s,^[^/]*/*,,'; \ sed_last='s,^.*/\([^/]*\)$$,\1,'; \ sed_butlast='s,/*[^/]*$$,,'; \ while test -n "$$dir1"; do \ first=`echo "$$dir1" | sed -e "$$sed_first"`; \ if test "$$first" != "."; then \ if test "$$first" = ".."; then \ dir2=`echo "$$dir0" | sed -e "$$sed_last"`/"$$dir2"; \ dir0=`echo "$$dir0" | sed -e "$$sed_butlast"`; \ else \ first2=`echo "$$dir2" | sed -e "$$sed_first"`; \ if test "$$first2" = "$$first"; then \ dir2=`echo "$$dir2" | sed -e "$$sed_rest"`; \ else \ dir2="../$$dir2"; \ fi; \ dir0="$$dir0"/"$$first"; \ fi; \ fi; \ dir1=`echo "$$dir1" | sed -e "$$sed_rest"`; \ done; \ reldir="$$dir2" ACLOCAL = @ACLOCAL@ AG_PKG_CONFIG_PATH = @AG_PKG_CONFIG_PATH@ AMTAR = @AMTAR@ API_VERSION = @API_VERSION@ AR = @AR@ ATK_CFLAGS = @ATK_CFLAGS@ ATK_LIBS = @ATK_LIBS@ AUTOCONF = @AUTOCONF@ AUTOHEADER = @AUTOHEADER@ AUTOMAKE = @AUTOMAKE@ AWK = @AWK@ BONOBO_IDL_DIR = @BONOBO_IDL_DIR@ CANVAS_CFLAGS = @CANVAS_CFLAGS@ CANVAS_LIBS = @CANVAS_LIBS@ CC = @CC@ CCDEPMODE = @CCDEPMODE@ CFLAGS = @CFLAGS@ CORBA_CFLAGS = @CORBA_CFLAGS@ CORBA_LIBS = @CORBA_LIBS@ CPP = @CPP@ CPPFLAGS = @CPPFLAGS@ CYGPATH_W = @CYGPATH_W@ DEFS = @DEFS@ DEPDIR = @DEPDIR@ DLLTOOL = @DLLTOOL@ DSYMUTIL = @DSYMUTIL@ DUMPBIN = @DUMPBIN@ ECHO_C = @ECHO_C@ ECHO_N = @ECHO_N@ ECHO_T = @ECHO_T@ EGREP = @EGREP@ EXEEXT = @EXEEXT@ FGREP = @FGREP@ GCONF_CFLAGS = @GCONF_CFLAGS@ GCONF_LIBS = @GCONF_LIBS@ GDK_CFLAGS = @GDK_CFLAGS@ GDK_LIBS = @GDK_LIBS@ GDK_PIXBUF_CFLAGS = @GDK_PIXBUF_CFLAGS@ GDK_PIXBUF_LIBS = @GDK_PIXBUF_LIBS@ GLIB_CFLAGS = @GLIB_CFLAGS@ GLIB_LIBS = @GLIB_LIBS@ GNOMEUI_DEPRECATION_FLAGS = @GNOMEUI_DEPRECATION_FLAGS@ GNOME_VFS_CFLAGS = @GNOME_VFS_CFLAGS@ GNOME_VFS_DEPRECATED_CFLAGS = @GNOME_VFS_DEPRECATED_CFLAGS@ GNOME_VFS_LIBS = @GNOME_VFS_LIBS@ GOBJECT_CFLAGS = @GOBJECT_CFLAGS@ GOBJECT_LIBS = @GOBJECT_LIBS@ GREP = @GREP@ GTHREAD_CFLAGS = @GTHREAD_CFLAGS@ GTHREAD_LIBS = @GTHREAD_LIBS@ GTK_CFLAGS = @GTK_CFLAGS@ GTK_DEPRECATED_CFLAGS = @GTK_DEPRECATED_CFLAGS@ GTK_LIBS = @GTK_LIBS@ GUILE_CAIRO_CFLAGS = @GUILE_CAIRO_CFLAGS@ GUILE_CAIRO_LIBS = @GUILE_CAIRO_LIBS@ GUILE_CFLAGS = @GUILE_CFLAGS@ GUILE_EFFECTIVE_VERSION = @GUILE_EFFECTIVE_VERSION@ GUILE_GLIB_CFLAGS = @GUILE_GLIB_CFLAGS@ GUILE_GLIB_LIBS = @GUILE_GLIB_LIBS@ GUILE_LIBS = @GUILE_LIBS@ G_WRAP_CFLAGS = @G_WRAP_CFLAGS@ G_WRAP_LIBS = @G_WRAP_LIBS@ G_WRAP_LIB_DIR = @G_WRAP_LIB_DIR@ G_WRAP_MODULE_DIR = @G_WRAP_MODULE_DIR@ INSTALL = @INSTALL@ INSTALL_DATA = @INSTALL_DATA@ INSTALL_PROGRAM = @INSTALL_PROGRAM@ INSTALL_SCRIPT = @INSTALL_SCRIPT@ INSTALL_STRIP_PROGRAM = @INSTALL_STRIP_PROGRAM@ LD = @LD@ LDFLAGS = @LDFLAGS@ LIBGLADE_CFLAGS = @LIBGLADE_CFLAGS@ LIBGLADE_LIBS = @LIBGLADE_LIBS@ LIBGNOMEUI_CFLAGS = @LIBGNOMEUI_CFLAGS@ LIBGNOMEUI_LIBS = @LIBGNOMEUI_LIBS@ LIBGNOME_CFLAGS = @LIBGNOME_CFLAGS@ LIBGNOME_LIBS = @LIBGNOME_LIBS@ LIBOBJS = @LIBOBJS@ LIBS = @LIBS@ LIBTOOL = @LIBTOOL@ LIPO = @LIPO@ LN_S = @LN_S@ LTLIBOBJS = @LTLIBOBJS@ MAKEINFO = @MAKEINFO@ MANIFEST_TOOL = @MANIFEST_TOOL@ MKDIR_P = @MKDIR_P@ NM = @NM@ NMEDIT = @NMEDIT@ OBJDUMP = @OBJDUMP@ OBJEXT = @OBJEXT@ ORBIT_IDL = @ORBIT_IDL@ OTOOL = @OTOOL@ OTOOL64 = @OTOOL64@ PACKAGE = @PACKAGE@ PACKAGE_BUGREPORT = @PACKAGE_BUGREPORT@ PACKAGE_NAME = @PACKAGE_NAME@ PACKAGE_STRING = @PACKAGE_STRING@ PACKAGE_TARNAME = @PACKAGE_TARNAME@ PACKAGE_URL = @PACKAGE_URL@ PACKAGE_VERSION = @PACKAGE_VERSION@ PANGOCAIRO_CFLAGS = @PANGOCAIRO_CFLAGS@ PANGOCAIRO_LIBS = @PANGOCAIRO_LIBS@ PANGO_CFLAGS = @PANGO_CFLAGS@ PANGO_LIBS = @PANGO_LIBS@ PATH_SEPARATOR = @PATH_SEPARATOR@ PKG_CONFIG = @PKG_CONFIG@ PKG_CONFIG_LIBDIR = @PKG_CONFIG_LIBDIR@ PKG_CONFIG_PATH = @PKG_CONFIG_PATH@ RANLIB = @RANLIB@ SED = @SED@ SET_MAKE = @SET_MAKE@ SHELL = @SHELL@ STRIP = @STRIP@ VERSION = @VERSION@ WARN_CFLAGS = @WARN_CFLAGS@ abs_builddir = @abs_builddir@ abs_srcdir = @abs_srcdir@ abs_top_builddir = @abs_top_builddir@ abs_top_srcdir = @abs_top_srcdir@ ac_ct_AR = @ac_ct_AR@ ac_ct_CC = @ac_ct_CC@ ac_ct_DUMPBIN = @ac_ct_DUMPBIN@ am__include = @am__include@ am__leading_dot = @am__leading_dot@ am__quote = @am__quote@ am__tar = @am__tar@ am__untar = @am__untar@ bindir = @bindir@ build = @build@ build_alias = @build_alias@ build_cpu = @build_cpu@ build_os = @build_os@ build_vendor = @build_vendor@ builddir = @builddir@ datadir = @datadir@ datarootdir = @datarootdir@ docdir = @docdir@ dvidir = @dvidir@ exec_prefix = @exec_prefix@ host = @host@ host_alias = @host_alias@ host_cpu = @host_cpu@ host_os = @host_os@ host_vendor = @host_vendor@ htmldir = @htmldir@ includedir = @includedir@ infodir = @infodir@ install_sh = @install_sh@ libdir = @libdir@ libexecdir = @libexecdir@ localedir = @localedir@ localstatedir = @localstatedir@ mandir = @mandir@ mkdir_p = @mkdir_p@ oldincludedir = @oldincludedir@ pdfdir = @pdfdir@ prefix = @prefix@ program_transform_name = @program_transform_name@ psdir = @psdir@ sbindir = @sbindir@ sharedstatedir = @sharedstatedir@ srcdir = @srcdir@ sysconfdir = @sysconfdir@ target_alias = @target_alias@ top_build_prefix = @top_build_prefix@ top_builddir = @top_builddir@ top_srcdir = @top_srcdir@ guilegnomedir = $(datadir)/guile-gnome-@API_VERSION@ guilemoduledir = $(guilegnomedir)/gnome guilegwmoduledir = $(guilegnomedir)/gnome/gw guilegnomelibdir = $(libdir)/guile-gnome-@API_VERSION@ AM_CFLAGS = -I. -I$(srcdir) $(WARN_CFLAGS) $(DEBUG_CFLAGS) # For overriding from the command line (e.g. --debug) GUILE_FLAGS = SUFFIXES = .x .doc GUILE_SNARF_CFLAGS = $(DEFS) $(AM_CFLAGS) $(GUILE_CFLAGS) $(G_WRAP_CFLAGS) PACKAGES = atk cairo corba defs gconf glib gnome-vfs gtk libglade libgnome libgnomecanvas libgnomeui pango SOURCE_GUILE_PATH = $(shell echo $(addprefix $(top_srcdir)/,$(PACKAGES)) | sed -e 's/ /:/g'):$(srcdir) BUILD_GUILE_PATH = $(if $(filter-out $(top_srcdir),$(top_builddir)),$(shell echo -n $(addprefix $(top_builddir)/,$(PACKAGES)): | sed -e 's/ /:/g'),) GUILE_LOAD_PATH := $(BUILD_GUILE_PATH)$(SOURCE_GUILE_PATH):${G_WRAP_MODULE_DIR}:${GUILE_LOAD_PATH} # Real gnu make foo packages = $(filter-out %-uninstalled,$(patsubst %.pc.in,%,$(notdir $(wildcard $(srcdir)/*.pc.in)))) pcifiles = $(patsubst %,%-@API_VERSION@.pc,$(packages)) pcufiles = $(patsubst %,%-@API_VERSION@-uninstalled.pc,$(packages)) SUBDIRS = overrides $(am__append_1) guilemodule_DATA = $(am__append_2) EXTRA_DIST = vfs.scm DIST_SUBDIRS = gw overrides all: all-recursive .SUFFIXES: .SUFFIXES: .x .doc .c $(srcdir)/Makefile.in: $(srcdir)/Makefile.am $(top_srcdir)/common.mk $(am__configure_deps) @for dep in $?; do \ case '$(am__configure_deps)' in \ *$$dep*) \ ( cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh ) \ && { if test -f $@; then exit 0; else break; fi; }; \ exit 1;; \ esac; \ done; \ echo ' cd $(top_srcdir) && $(AUTOMAKE) --gnu gnome-vfs/gnome/Makefile'; \ $(am__cd) $(top_srcdir) && \ $(AUTOMAKE) --gnu gnome-vfs/gnome/Makefile .PRECIOUS: Makefile Makefile: $(srcdir)/Makefile.in $(top_builddir)/config.status @case '$?' in \ *config.status*) \ cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh;; \ *) \ echo ' cd $(top_builddir) && $(SHELL) ./config.status $(subdir)/$@ $(am__depfiles_maybe)'; \ cd $(top_builddir) && $(SHELL) ./config.status $(subdir)/$@ $(am__depfiles_maybe);; \ esac; $(top_srcdir)/common.mk: $(top_builddir)/config.status: $(top_srcdir)/configure $(CONFIG_STATUS_DEPENDENCIES) cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh $(top_srcdir)/configure: $(am__configure_deps) cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh $(ACLOCAL_M4): $(am__aclocal_m4_deps) cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh $(am__aclocal_m4_deps): mostlyclean-libtool: -rm -f *.lo clean-libtool: -rm -rf .libs _libs install-guilemoduleDATA: $(guilemodule_DATA) @$(NORMAL_INSTALL) @list='$(guilemodule_DATA)'; test -n "$(guilemoduledir)" || list=; \ if test -n "$$list"; then \ echo " $(MKDIR_P) '$(DESTDIR)$(guilemoduledir)'"; \ $(MKDIR_P) "$(DESTDIR)$(guilemoduledir)" || exit 1; \ fi; \ for p in $$list; do \ if test -f "$$p"; then d=; else d="$(srcdir)/"; fi; \ echo "$$d$$p"; \ done | $(am__base_list) | \ while read files; do \ echo " $(INSTALL_DATA) $$files '$(DESTDIR)$(guilemoduledir)'"; \ $(INSTALL_DATA) $$files "$(DESTDIR)$(guilemoduledir)" || exit $$?; \ done uninstall-guilemoduleDATA: @$(NORMAL_UNINSTALL) @list='$(guilemodule_DATA)'; test -n "$(guilemoduledir)" || list=; \ files=`for p in $$list; do echo $$p; done | sed -e 's|^.*/||'`; \ dir='$(DESTDIR)$(guilemoduledir)'; $(am__uninstall_files_from_dir) # This directory's subdirectories are mostly independent; you can cd # into them and run `make' without going through this Makefile. # To change the values of `make' variables: instead of editing Makefiles, # (1) if the variable is set in `config.status', edit `config.status' # (which will cause the Makefiles to be regenerated when you run `make'); # (2) otherwise, pass the desired values on the `make' command line. $(RECURSIVE_TARGETS): @fail= failcom='exit 1'; \ for f in x $$MAKEFLAGS; do \ case $$f in \ *=* | --[!k]*);; \ *k*) failcom='fail=yes';; \ esac; \ done; \ dot_seen=no; \ target=`echo $@ | sed s/-recursive//`; \ list='$(SUBDIRS)'; for subdir in $$list; do \ echo "Making $$target in $$subdir"; \ if test "$$subdir" = "."; then \ dot_seen=yes; \ local_target="$$target-am"; \ else \ local_target="$$target"; \ fi; \ ($(am__cd) $$subdir && $(MAKE) $(AM_MAKEFLAGS) $$local_target) \ || eval $$failcom; \ done; \ if test "$$dot_seen" = "no"; then \ $(MAKE) $(AM_MAKEFLAGS) "$$target-am" || exit 1; \ fi; test -z "$$fail" $(RECURSIVE_CLEAN_TARGETS): @fail= failcom='exit 1'; \ for f in x $$MAKEFLAGS; do \ case $$f in \ *=* | --[!k]*);; \ *k*) failcom='fail=yes';; \ esac; \ done; \ dot_seen=no; \ case "$@" in \ distclean-* | maintainer-clean-*) list='$(DIST_SUBDIRS)' ;; \ *) list='$(SUBDIRS)' ;; \ esac; \ rev=''; for subdir in $$list; do \ if test "$$subdir" = "."; then :; else \ rev="$$subdir $$rev"; \ fi; \ done; \ rev="$$rev ."; \ target=`echo $@ | sed s/-recursive//`; \ for subdir in $$rev; do \ echo "Making $$target in $$subdir"; \ if test "$$subdir" = "."; then \ local_target="$$target-am"; \ else \ local_target="$$target"; \ fi; \ ($(am__cd) $$subdir && $(MAKE) $(AM_MAKEFLAGS) $$local_target) \ || eval $$failcom; \ done && test -z "$$fail" tags-recursive: list='$(SUBDIRS)'; for subdir in $$list; do \ test "$$subdir" = . || ($(am__cd) $$subdir && $(MAKE) $(AM_MAKEFLAGS) tags); \ done ctags-recursive: list='$(SUBDIRS)'; for subdir in $$list; do \ test "$$subdir" = . || ($(am__cd) $$subdir && $(MAKE) $(AM_MAKEFLAGS) ctags); \ done ID: $(HEADERS) $(SOURCES) $(LISP) $(TAGS_FILES) list='$(SOURCES) $(HEADERS) $(LISP) $(TAGS_FILES)'; \ unique=`for i in $$list; do \ if test -f "$$i"; then echo $$i; else echo $(srcdir)/$$i; fi; \ done | \ $(AWK) '{ files[$$0] = 1; nonempty = 1; } \ END { if (nonempty) { for (i in files) print i; }; }'`; \ mkid -fID $$unique tags: TAGS TAGS: tags-recursive $(HEADERS) $(SOURCES) $(TAGS_DEPENDENCIES) \ $(TAGS_FILES) $(LISP) set x; \ here=`pwd`; \ if ($(ETAGS) --etags-include --version) >/dev/null 2>&1; then \ include_option=--etags-include; \ empty_fix=.; \ else \ include_option=--include; \ empty_fix=; \ fi; \ list='$(SUBDIRS)'; for subdir in $$list; do \ if test "$$subdir" = .; then :; else \ test ! -f $$subdir/TAGS || \ set "$$@" "$$include_option=$$here/$$subdir/TAGS"; \ fi; \ done; \ list='$(SOURCES) $(HEADERS) $(LISP) $(TAGS_FILES)'; \ unique=`for i in $$list; do \ if test -f "$$i"; then echo $$i; else echo $(srcdir)/$$i; fi; \ done | \ $(AWK) '{ files[$$0] = 1; nonempty = 1; } \ END { if (nonempty) { for (i in files) print i; }; }'`; \ shift; \ if test -z "$(ETAGS_ARGS)$$*$$unique"; then :; else \ test -n "$$unique" || unique=$$empty_fix; \ if test $$# -gt 0; then \ $(ETAGS) $(ETAGSFLAGS) $(AM_ETAGSFLAGS) $(ETAGS_ARGS) \ "$$@" $$unique; \ else \ $(ETAGS) $(ETAGSFLAGS) $(AM_ETAGSFLAGS) $(ETAGS_ARGS) \ $$unique; \ fi; \ fi ctags: CTAGS CTAGS: ctags-recursive $(HEADERS) $(SOURCES) $(TAGS_DEPENDENCIES) \ $(TAGS_FILES) $(LISP) list='$(SOURCES) $(HEADERS) $(LISP) $(TAGS_FILES)'; \ unique=`for i in $$list; do \ if test -f "$$i"; then echo $$i; else echo $(srcdir)/$$i; fi; \ done | \ $(AWK) '{ files[$$0] = 1; nonempty = 1; } \ END { if (nonempty) { for (i in files) print i; }; }'`; \ test -z "$(CTAGS_ARGS)$$unique" \ || $(CTAGS) $(CTAGSFLAGS) $(AM_CTAGSFLAGS) $(CTAGS_ARGS) \ $$unique GTAGS: here=`$(am__cd) $(top_builddir) && pwd` \ && $(am__cd) $(top_srcdir) \ && gtags -i $(GTAGS_ARGS) "$$here" distclean-tags: -rm -f TAGS ID GTAGS GRTAGS GSYMS GPATH tags distdir: $(DISTFILES) @srcdirstrip=`echo "$(srcdir)" | sed 's/[].[^$$\\*]/\\\\&/g'`; \ topsrcdirstrip=`echo "$(top_srcdir)" | sed 's/[].[^$$\\*]/\\\\&/g'`; \ list='$(DISTFILES)'; \ dist_files=`for file in $$list; do echo $$file; done | \ sed -e "s|^$$srcdirstrip/||;t" \ -e "s|^$$topsrcdirstrip/|$(top_builddir)/|;t"`; \ case $$dist_files in \ */*) $(MKDIR_P) `echo "$$dist_files" | \ sed '/\//!d;s|^|$(distdir)/|;s,/[^/]*$$,,' | \ sort -u` ;; \ esac; \ for file in $$dist_files; do \ if test -f $$file || test -d $$file; then d=.; else d=$(srcdir); fi; \ if test -d $$d/$$file; then \ dir=`echo "/$$file" | sed -e 's,/[^/]*$$,,'`; \ if test -d "$(distdir)/$$file"; then \ find "$(distdir)/$$file" -type d ! -perm -700 -exec chmod u+rwx {} \;; \ fi; \ if test -d $(srcdir)/$$file && test $$d != $(srcdir); then \ cp -fpR $(srcdir)/$$file "$(distdir)$$dir" || exit 1; \ find "$(distdir)/$$file" -type d ! -perm -700 -exec chmod u+rwx {} \;; \ fi; \ cp -fpR $$d/$$file "$(distdir)$$dir" || exit 1; \ else \ test -f "$(distdir)/$$file" \ || cp -p $$d/$$file "$(distdir)/$$file" \ || exit 1; \ fi; \ done @list='$(DIST_SUBDIRS)'; for subdir in $$list; do \ if test "$$subdir" = .; then :; else \ $(am__make_dryrun) \ || test -d "$(distdir)/$$subdir" \ || $(MKDIR_P) "$(distdir)/$$subdir" \ || exit 1; \ dir1=$$subdir; dir2="$(distdir)/$$subdir"; \ $(am__relativize); \ new_distdir=$$reldir; \ dir1=$$subdir; dir2="$(top_distdir)"; \ $(am__relativize); \ new_top_distdir=$$reldir; \ echo " (cd $$subdir && $(MAKE) $(AM_MAKEFLAGS) top_distdir="$$new_top_distdir" distdir="$$new_distdir" \\"; \ echo " am__remove_distdir=: am__skip_length_check=: am__skip_mode_fix=: distdir)"; \ ($(am__cd) $$subdir && \ $(MAKE) $(AM_MAKEFLAGS) \ top_distdir="$$new_top_distdir" \ distdir="$$new_distdir" \ am__remove_distdir=: \ am__skip_length_check=: \ am__skip_mode_fix=: \ distdir) \ || exit 1; \ fi; \ done check-am: all-am check: check-recursive all-am: Makefile $(DATA) installdirs: installdirs-recursive installdirs-am: for dir in "$(DESTDIR)$(guilemoduledir)"; do \ test -z "$$dir" || $(MKDIR_P) "$$dir"; \ done install: install-recursive install-exec: install-exec-recursive install-data: install-data-recursive uninstall: uninstall-recursive install-am: all-am @$(MAKE) $(AM_MAKEFLAGS) install-exec-am install-data-am installcheck: installcheck-recursive install-strip: if test -z '$(STRIP)'; then \ $(MAKE) $(AM_MAKEFLAGS) INSTALL_PROGRAM="$(INSTALL_STRIP_PROGRAM)" \ install_sh_PROGRAM="$(INSTALL_STRIP_PROGRAM)" INSTALL_STRIP_FLAG=-s \ install; \ else \ $(MAKE) $(AM_MAKEFLAGS) INSTALL_PROGRAM="$(INSTALL_STRIP_PROGRAM)" \ install_sh_PROGRAM="$(INSTALL_STRIP_PROGRAM)" INSTALL_STRIP_FLAG=-s \ "INSTALL_PROGRAM_ENV=STRIPPROG='$(STRIP)'" install; \ fi mostlyclean-generic: clean-generic: distclean-generic: -test -z "$(CONFIG_CLEAN_FILES)" || rm -f $(CONFIG_CLEAN_FILES) -test . = "$(srcdir)" || test -z "$(CONFIG_CLEAN_VPATH_FILES)" || rm -f $(CONFIG_CLEAN_VPATH_FILES) maintainer-clean-generic: @echo "This command is intended for maintainers to use" @echo "it deletes files that may require special tools to rebuild." clean: clean-recursive clean-am: clean-generic clean-libtool mostlyclean-am distclean: distclean-recursive -rm -f Makefile distclean-am: clean-am distclean-generic distclean-tags dvi: dvi-recursive dvi-am: html: html-recursive html-am: info: info-recursive info-am: install-data-am: install-guilemoduleDATA install-dvi: install-dvi-recursive install-dvi-am: install-exec-am: install-html: install-html-recursive install-html-am: install-info: install-info-recursive install-info-am: install-man: install-pdf: install-pdf-recursive install-pdf-am: install-ps: install-ps-recursive install-ps-am: installcheck-am: maintainer-clean: maintainer-clean-recursive -rm -f Makefile maintainer-clean-am: distclean-am maintainer-clean-generic mostlyclean: mostlyclean-recursive mostlyclean-am: mostlyclean-generic mostlyclean-libtool pdf: pdf-recursive pdf-am: ps: ps-recursive ps-am: uninstall-am: uninstall-guilemoduleDATA .MAKE: $(RECURSIVE_CLEAN_TARGETS) $(RECURSIVE_TARGETS) ctags-recursive \ install-am install-strip tags-recursive .PHONY: $(RECURSIVE_CLEAN_TARGETS) $(RECURSIVE_TARGETS) CTAGS GTAGS \ all all-am check check-am clean clean-generic clean-libtool \ ctags ctags-recursive distclean distclean-generic \ distclean-libtool distclean-tags distdir dvi dvi-am html \ html-am info info-am install install-am install-data \ install-data-am install-dvi install-dvi-am install-exec \ install-exec-am install-guilemoduleDATA install-html \ install-html-am install-info install-info-am install-man \ install-pdf install-pdf-am install-ps install-ps-am \ install-strip installcheck installcheck-am installdirs \ installdirs-am maintainer-clean maintainer-clean-generic \ mostlyclean mostlyclean-generic mostlyclean-libtool pdf pdf-am \ ps ps-am tags tags-recursive uninstall uninstall-am \ uninstall-guilemoduleDATA export GUILE_LOAD_PATH .c.x: guile-snarf $(GUILE_SNARF_CFLAGS) $< > $@ \ || { rm $@; false; } .c.doc: $(CPP) -DSCM_MAGIC_SNARF_DOCS $(GUILE_SNARF_CFLAGS) $< \ | grep -E '(\^\^ {|\^\^ })' > $@ || { rm $@; false; } %.scm guile-gnome-gw-%.c: %-spec.scm guile $(GUILE_FLAGS) -c \ "(debug-set! stack 400000) \ (use-modules (gnome-@API_VERSION@)) \ (use-modules (g-wrap)) \ (use-modules (gnome gw $*-spec)) \ (generate-wrapset 'guile 'gnome-$* \"guile-gnome-gw-$*\")" mv guile-gnome-gw-$*.scm $*.scm %-@API_VERSION@.pc: %.pc cp $< $@ %-@API_VERSION@-uninstalled.pc: %-uninstalled.pc cp $< $@ # Tell versions [3.59,3.63) of GNU make to not export all variables. # Otherwise a system limit (for SysV at least) may be exceeded. .NOEXPORT: guile-gnome-platform-2.16.2/gnome-vfs/gnome/overrides/0000755000175000017500000000000011752546505023206 5ustar00wingowingo00000000000000guile-gnome-platform-2.16.2/gnome-vfs/gnome/overrides/gnome-vfs.defs0000644000175000017500000003435111670374302025751 0ustar00wingowingo00000000000000;; -*- scheme -*- ;; guile-gnome ;; Copyright (C) 2004 Free Software Foundation, Inc. ;; This program is free software; you can redistribute it and/or ;; modify it under the terms of the GNU General Public License as ;; published by the Free Software Foundation; either version 2 of ;; the License, or (at your option) any later version. ;; ;; This program is distributed in the hope that it will be useful, ;; but WITHOUT ANY WARRANTY; without even the implied warranty of ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the ;; GNU General Public License for more details. ;; ;; You should have received a copy of the GNU General Public License ;; along with this program; if not, contact: ;; ;; Free Software Foundation Voice: +1-617-542-5942 ;; 59 Temple Place - Suite 330 Fax: +1-617-542-2652 ;; Boston, MA 02111-1307, USA gnu@gnu.org ;;; Commentary: ;; ;;Custom wrapper definitions. ;; ;;; Code: (define-function gnome_vfs_result_to_string (c-name "gnome_vfs_result_to_string") (overrides "gnome_vfs_result_to_string") (return-type "const-char*") (parameters '("GnomeVFSResult" "res"))) ;; open/create procedures return scheme ports :-) (define-function gnome_vfs_open (c-name "_wrap_gnome_vfs_open") (overrides "gnome_vfs_open") (leave-guile-mode #f) (return-type "SCM") (parameters '("const-gchar*" "text_uri") '("GnomeVFSOpenMode" "open_mode") ) ) (define-function gnome_vfs_open_uri (c-name "_wrap_gnome_vfs_open_uri") (overrides "gnome_vfs_open_uri") (leave-guile-mode #f) (return-type "SCM") (parameters '("GnomeVFSURI*" "uri") '("GnomeVFSOpenMode" "open_mode") ) ) (define-function gnome_vfs_create (c-name "_wrap_gnome_vfs_create") (overrides "gnome_vfs_create") (leave-guile-mode #f) (return-type "SCM") (parameters '("const-gchar*" "text_uri") '("GnomeVFSOpenMode" "open_mode") '("gboolean" "exclusive") '("guint" "perm") ) ) (define-function gnome_vfs_create_uri (c-name "_wrap_gnome_vfs_create_uri") (overrides "gnome_vfs_create_uri") (leave-guile-mode #f) (return-type "SCM") (parameters '("GnomeVFSURI*" "uri") '("GnomeVFSOpenMode" "open_mode") '("gboolean" "exclusive") '("guint" "perm") ) ) ;; from here on out, just list-of specializations (define-method get_ace_list (of-object "GnomeVFSACL") (c-name "gnome_vfs_acl_get_ace_list") (overrides "gnome_vfs_acl_get_ace_list") (caller-owns-return #t) (return-type "GList*-of-GnomeVFSACE*")) (define-function gnome_vfs_mime_get_all_applications_for_uri (c-name "gnome_vfs_mime_get_all_applications_for_uri") (overrides "gnome_vfs_mime_get_all_applications_for_uri") (return-type "GList*-of-GnomeVFSMimeApplication*") (parameters '("const-char*" "uri") '("const-char*" "mime_type"))) (ignore "gnome_vfs_directory_list_load") (ignore "gnome_vfs_dns_sd_list_browse_domains_sync") (define-function gnome_vfs_get_default_browse_domains (c-name "gnome_vfs_get_default_browse_domains") (overrides "gnome_vfs_get_default_browse_domains") (return-type "GList*-of-gchar*") ) (define-method get_mounted_volumes (of-object "GnomeVFSDrive") (c-name "gnome_vfs_drive_get_mounted_volumes") (overrides "gnome_vfs_drive_get_mounted_volumes") (return-type "GList*-of-GnomeVFSVolume*") ) (define-function gnome_vfs_mime_get_all_applications (c-name "gnome_vfs_mime_get_all_applications") (overrides "gnome_vfs_mime_get_all_applications") (return-type "GList*-of-const-gchar*") (parameters '("const-char*" "mime_type") ) ) (define-function gnome_vfs_mime_get_all_components (c-name "gnome_vfs_mime_get_all_components") (overrides "gnome_vfs_mime_get_all_components") (return-type "GList*-of-const-gchar*") (parameters '("const-char*" "mime_type") ) ) (ignore "gnome_vfs_mime_remove_application_from_list") ; (define-function gnome_vfs_mime_remove_application_from_list ; (c-name "gnome_vfs_mime_remove_application_from_list") ; (overrides "gnome_vfs_mime_remove_application_from_list") ; (return-type "GList*-of-const-gchar*") ; (parameters ; '("GList*-of-const-gchar*" "applications") ; '("const-char*" "application_id") ; '("gboolean*" "did_remove") ; ) ; ) (ignore "gnome_vfs_mime_remove_component_from_list") ; (define-function gnome_vfs_mime_remove_component_from_list ; (c-name "gnome_vfs_mime_remove_component_from_list") ; (overrides "gnome_vfs_mime_remove_component_from_list") ; (return-type "GList*") ; (parameters ; '("GList*-of-const-gchar*" "components") ; '("const-char*" "iid") ; '("gboolean*" "did_remove") ; ) ; ) (ignore "gnome_vfs_mime_id_list_from_component_list") ; (define-function gnome_vfs_mime_id_list_from_component_list ; (c-name "gnome_vfs_mime_id_list_from_component_list") ; (overrides "gnome_vfs_mime_id_list_from_component_list") ; (return-type "GList*") ; (parameters ; '("GList*-of-const-gchar*" "components") ; ) ; ) (ignore "gnome_vfs_mime_id_list_from_application_list") ; (define-function gnome_vfs_mime_id_list_from_application_list ; (c-name "gnome_vfs_mime_id_list_from_application_list") ; (overrides "gnome_vfs_mime_id_list_from_application_list") ; (return-type "GList*") ; (parameters ; '("GList*-of-const-gchar*" "applications") ; ) ; ) (define-method launch (of-object "GnomeVFSMimeApplication") (c-name "gnome_vfs_mime_application_launch") (overrides "gnome_vfs_mime_application_launch") (return-type "GnomeVFSResult") (parameters '("GList*-of-GnomeVFSURI*" "uris") ) ) (define-function gnome_vfs_uri_list_parse (c-name "gnome_vfs_uri_list_parse") (overrides "gnome_vfs_uri_list_parse") (return-type "GList*-of-GnomeVFSURI*") (parameters '("const-gchar*" "uri_list") ) ) (define-method get_mounted_volumes (of-object "GnomeVFSVolumeMonitor") (c-name "gnome_vfs_volume_monitor_get_mounted_volumes") (overrides "gnome_vfs_volume_monitor_get_mounted_volumes") (return-type "GList*-of-GnomeVFSVolume*") ) (define-method get_connected_drives (of-object "GnomeVFSVolumeMonitor") (c-name "gnome_vfs_volume_monitor_get_connected_drives") (overrides "gnome_vfs_volume_monitor_get_connected_drives") (return-type "GList*-of-GnomeVFSDrive*") ) (ignore-glob "*_get_type" "_*" "*_ref" "*_unref" "*_copy" "*_free" "*_newv" "*_valist" "*_setv" "*_foreach" "*_valist" ;; 1) Guile 1.6 doesn't support callbacks from other threads. ;; 2) These functions need special help anyway. "gnome_vfs_async_*" "gnome_vfs_application_registry_*" "*_sockaddr") (ignore "gnome_vfs_ace_get_perms" "gnome_vfs_ace_set_perms") (define-method get_kind (of-object "GnomeVFSACE") (c-name "gnome_vfs_ace_get_kind") (overrides "gnome_vfs_ace_get_kind") (return-type "gint") ) (define-method set_kind (of-object "GnomeVFSACE") (c-name "gnome_vfs_ace_set_kind") (overrides "gnome_vfs_ace_set_kind") (return-type "none") (parameters '("gint" "kind") ) ) (define-function gnome_vfs_acl_kind_to_string (c-name "gnome_vfs_acl_kind_to_string") (overrides "gnome_vfs_acl_kind_to_string") (return-type "const-char*") (parameters '("gint" "kind") ) ) (define-method add_perm (of-object "GnomeVFSACE") (c-name "gnome_vfs_ace_add_perm") (overrides "gnome_vfs_ace_add_perm") (return-type "none") (parameters '("int" "perm") ) ) (define-method del_perm (of-object "GnomeVFSACE") (c-name "gnome_vfs_ace_del_perm") (overrides "gnome_vfs_ace_del_perm") (return-type "none") (parameters '("int" "perm") ) ) (define-method check_perm (of-object "GnomeVFSACE") (c-name "gnome_vfs_ace_check_perm") (overrides "gnome_vfs_ace_check_perm") (return-type "gboolean") (parameters '("int" "perm") ) ) (define-function gnome_vfs_acl_perm_to_string (c-name "gnome_vfs_acl_perm_to_string") (overrides "gnome_vfs_acl_perm_to_string") (return-type "const-char*") (parameters '("int" "perm") ) ) (ignore-glob "gnome_vfs*_file_info_*") ;; Deprecated (ignore "gnome_vfs_mime_add_extension" "gnome_vfs_mime_remove_extension" "gnome_vfs_mime_set_default_action_type" "gnome_vfs_mime_set_default_application" "gnome_vfs_mime_set_default_component" "gnome_vfs_mime_set_icon" "gnome_vfs_mime_set_description" "gnome_vfs_mime_set_can_be_executable" "gnome_vfs_mime_extend_all_applications" "gnome_vfs_mime_remove_from_all_applications" "gnome_vfs_mime_get_short_list_applications" "gnome_vfs_mime_get_short_list_components" "gnome_vfs_mime_set_short_list_applications" "gnome_vfs_mime_set_short_list_components" "gnome_vfs_mime_add_application_to_short_list" "gnome_vfs_mime_remove_application_from_short_list" "gnome_vfs_mime_add_component_to_short_list" "gnome_vfs_mime_remove_component_from_short_list" "gnome_vfs_drive_get_mounted_volume" "gnome_vfs_make_uri_full_from_relative" "gnome_vfs_loadinit" "gnome_vfs_preinit" "gnome_vfs_postinit" "gnome_vfs_async_create_uri_as_channel" ; prototyped, but not implemented! "gnome_vfs_directory_open" ; GnomeVFSDirectoryHandle* "gnome_vfs_directory_open_from_uri" ; GnomeVFSDirectoryHandle* "gnome_vfs_async_get_file_info" ; GnomeVFSAsyncHandle** "gnome_vfs_async_xfer" ; GnomeVFSAsyncHandle** "gnome_vfs_async_find_directory" ; GnomeVFSAsyncHandle** "gnome_vfs_directory_visit_files" ; GnomeVFSDirectoryVisitFunc "gnome_vfs_directory_visit_files_at_uri" ; GnomeVFSDirectoryVisitFunc "gnome_vfs_get_file_mime_type_fast" ; gpointer "gnome_vfs_get_file_mime_type" ; gpointer "gnome_vfs_mime_application_launch_with_env" ; char** "gnome_vfs_xfer_uri_list" ; GnomeVFSXferProgressCallback "gnome_vfs_xfer_delete_list" ; GnomeVFSXferProgressCallback "gnome_vfs_ace_new" ; gpointer "gnome_vfs_address_new_from_string" ; GnomeVFSAddress* "gnome_vfs_address_new_from_ipv4" ; GnomeVFSAddress* "gnome_vfs_address_get_family_type" ; GnomeVFSAddress* "gnome_vfs_address_to_string" ; GnomeVFSAddress* "gnome_vfs_address_get_ipv4" ; GnomeVFSAddress* "gnome_vfs_address_equal" ; GnomeVFSAddress* "gnome_vfs_address_match" ; GnomeVFSAddress* "gnome_vfs_address_dup" ; GnomeVFSAddress* "gnome_vfs_find_directory_result_dup" ; GnomeVFSFindDirectoryResult* "gnome_vfs_cancellation_new" ; GnomeVFSCancellation* "gnome_vfs_cancellation_destroy" ; GnomeVFSCancellation* "gnome_vfs_cancellation_cancel" ; GnomeVFSCancellation* "gnome_vfs_cancellation_check" ; GnomeVFSCancellation* "gnome_vfs_cancellation_ack" ; GnomeVFSCancellation* "gnome_vfs_cancellation_get_fd" ; GnomeVFSCancellation* "gnome_vfs_context_new" ; GnomeVFSContext* "gnome_vfs_context_get_cancellation" ; GnomeVFSCancellation* "gnome_vfs_context_peek_current" ; GnomeVFSContext* "gnome_vfs_directory_read_next" ; GnomeVFSDirectoryHandle* "gnome_vfs_directory_close" ; GnomeVFSDirectoryHandle* "gnome_vfs_directory_visit" ; GnomeVFSDirectoryVisitFunc "gnome_vfs_directory_visit_uri" ; GnomeVFSDirectoryVisitFunc "gnome_vfs_dns_sd_browse" ; GnomeVFSDNSSDBrowseHandle** "gnome_vfs_dns_sd_stop_browse" ; GnomeVFSDNSSDBrowseHandle* "gnome_vfs_dns_sd_resolve" ; GnomeVFSDNSSDResolveHandle** "gnome_vfs_dns_sd_cancel_resolve" ; GnomeVFSDNSSDResolveHandle* "gnome_vfs_dns_sd_browse_sync" ; GnomeVFSDNSSDService** "gnome_vfs_dns_sd_resolve_sync" ; char** "gnome_vfs_drive_mount" ; GnomeVFSVolumeOpCallback "gnome_vfs_drive_unmount" ; GnomeVFSVolumeOpCallback "gnome_vfs_drive_eject" ; GnomeVFSVolumeOpCallback "gnome_vfs_find_directory" ; GnomeVFSURI** "gnome_vfs_mime_monitor_get" ; GnomeVFSMIMEMonitor* "gnome_vfs_get_mime_type_for_data" ; gconstpointer "gnome_vfs_get_mime_type_for_name_and_data" ; gconstpointer "gnome_vfs_module_callback_set_default" ; GnomeVFSModuleCallback "gnome_vfs_module_callback_push" ; GnomeVFSModuleCallback "gnome_vfs_close" ; GnomeVFSHandle* "gnome_vfs_read" ; GnomeVFSHandle* "gnome_vfs_write" ; GnomeVFSHandle* "gnome_vfs_seek" ; GnomeVFSHandle* "gnome_vfs_tell" ; GnomeVFSHandle* "gnome_vfs_truncate_handle" ; GnomeVFSHandle* "gnome_vfs_monitor_add" ; GnomeVFSMonitorHandle** "gnome_vfs_monitor_cancel" ; GnomeVFSMonitorHandle* "gnome_vfs_file_control" ; GnomeVFSHandle* "gnome_vfs_forget_cache" ; GnomeVFSHandle* "gnome_vfs_resolve" ; GnomeVFSResolveHandle** "gnome_vfs_resolve_next_address" ; GnomeVFSResolveHandle* "gnome_vfs_resolve_reset_to_beginning" ; GnomeVFSResolveHandle* "gnome_vfs_uri_get_toplevel" ; GnomeVFSToplevelURI* "gnome_vfs_uri_hequal" ; gconstpointer "gnome_vfs_uri_hash" ; gconstpointer "gnome_vfs_get_volume_free_space" ; GnomeVFSFileSize* "gnome_vfs_open_fd" ; GnomeVFSHandle** "gnome_vfs_read_entire_file" ; char** "gnome_vfs_volume_unmount" ; GnomeVFSVolumeOpCallback "gnome_vfs_volume_eject" ; GnomeVFSVolumeOpCallback "gnome_vfs_xfer_uri" ; GnomeVFSXferProgressCallback "gnome_vfs_url_show_with_env" ;; deprecated in 2.9 "gnome_vfs_mime_id_in_application_list" "gnome_vfs_mime_id_in_component_list" "gnome_vfs_mime_action_launch" "gnome_vfs_mime_action_launch_with_env" "gnome_vfs_mime_get_all_desktop_entries" "gnome_vfs_application_is_user_owned_application" "gnome_vfs_mime_get_default_action_type" "gnome_vfs_mime_get_default_action" "gnome_vfs_mime_get_icon" "gnome_vfs_mime_application_new_from_id" "gnome_vfs_mime_get_default_desktop_entry" ;; Bonobo "gnome_vfs_mime_get_default_component" "gnome_vfs_acl_free_ace_list") guile-gnome-platform-2.16.2/gnome-vfs/gnome/overrides/Makefile.am0000644000175000017500000000024011670374302025227 0ustar00wingowingo00000000000000include $(top_srcdir)/common.mk moduledir = $(guilemoduledir)/overrides module_DATA = gnome-vfs.defs gnome-vfs.defs-type-ignores EXTRA_DIST = $(module_DATA) guile-gnome-platform-2.16.2/gnome-vfs/gnome/overrides/gnome-vfs.defs-type-ignores0000644000175000017500000000266711670374302030401 0ustar00wingowingo00000000000000;; -*- scheme -*- ;; this one is a terrible name (define-enum VFSDNSSDServiceStatus (in-module "Gnome") (c-name "GnomeVFSDNSSDServiceStatus") (gtype-id "GNOME_VFS_TYPE_VFS_DNS_SD_SERVICE_STATUS") (values '("added" "GNOME_VFS_DNS_SD_SERVICE_ADDED") '("removed" "GNOME_VFS_DNS_SD_SERVICE_REMOVED"))) ;; these do not follow the gnome-vfs type macro conventions (define-object VFSACE (in-module "Gnome") (parent "GObject") (c-name "GnomeVFSACE") (gtype-id "GNOME_VFS_TYPE_ACE")) (define-object VFSACL (in-module "Gnome") (parent "GObject") (c-name "GnomeVFSACL") (gtype-id "GNOME_VFS_TYPE_ACL")) (define-object VFSDrive (in-module "Gnome") (parent "GObject") (c-name "GnomeVFSDrive") (gtype-id "GNOME_VFS_TYPE_DRIVE")) (define-object VFSVolume (in-module "Gnome") (parent "GObject") (c-name "GnomeVFSVolume") (gtype-id "GNOME_VFS_TYPE_VOLUME")) (define-object VFSVolumeMonitor (in-module "Gnome") (parent "GObject") (c-name "GnomeVFSVolumeMonitor") (gtype-id "GNOME_VFS_TYPE_VOLUME_MONITOR")) (ignore-types "GnomeVFSResult" ;; has a custom wrapping "GnomeVFSMimeApplicationArgumentType" "GnomeVFSMimeAction" "GnomeVFSMimeActionType" "GnomeVFSDNSSDServiceStatus" "GnomeVFSACE" "GnomeVFSACL" "GnomeVFSDrive" "GnomeVFSVolume" "GnomeVFSVolumeMonitor" ) guile-gnome-platform-2.16.2/gnome-vfs/gnome/overrides/Makefile.in0000644000175000017500000004127211752520717025256 0ustar00wingowingo00000000000000# Makefile.in generated by automake 1.11.5 from Makefile.am. # @configure_input@ # Copyright (C) 1994, 1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, # 2003, 2004, 2005, 2006, 2007, 2008, 2009, 2010, 2011 Free Software # Foundation, Inc. # This Makefile.in is free software; the Free Software Foundation # gives unlimited permission to copy and/or distribute it, # with or without modifications, as long as this notice is preserved. # This program is distributed in the hope that it will be useful, # but WITHOUT ANY WARRANTY, to the extent permitted by law; without # even the implied warranty of MERCHANTABILITY or FITNESS FOR A # PARTICULAR PURPOSE. @SET_MAKE@ # guile-gnome # Copyright (C) 2003,2004,2009,2012 Free Software Foundation, Inc. # This program is free software; you can redistribute it and/or # modify it under the terms of the GNU General Public License as # published by the Free Software Foundation; either version 2 of # the License, or (at your option) any later version. # This program is distributed in the hope that it will be useful, # but WITHOUT ANY WARRANTY; without even the implied warranty of # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the # GNU General Public License for more details. # You should have received a copy of the GNU General Public License # along with this program; if not, contact: # Free Software Foundation Voice: +1-617-542-5942 # 59 Temple Place - Suite 330 Fax: +1-617-542-2652 # Boston, MA 02111-1307, USA gnu@gnu.org # # Makefile snippet # VPATH = @srcdir@ am__make_dryrun = \ { \ am__dry=no; \ case $$MAKEFLAGS in \ *\\[\ \ ]*) \ echo 'am--echo: ; @echo "AM" OK' | $(MAKE) -f - 2>/dev/null \ | grep '^AM OK$$' >/dev/null || am__dry=yes;; \ *) \ for am__flg in $$MAKEFLAGS; do \ case $$am__flg in \ *=*|--*) ;; \ *n*) am__dry=yes; break;; \ esac; \ done;; \ esac; \ test $$am__dry = yes; \ } pkgdatadir = $(datadir)/@PACKAGE@ pkgincludedir = $(includedir)/@PACKAGE@ pkglibdir = $(libdir)/@PACKAGE@ pkglibexecdir = $(libexecdir)/@PACKAGE@ am__cd = CDPATH="$${ZSH_VERSION+.}$(PATH_SEPARATOR)" && cd install_sh_DATA = $(install_sh) -c -m 644 install_sh_PROGRAM = $(install_sh) -c install_sh_SCRIPT = $(install_sh) -c INSTALL_HEADER = $(INSTALL_DATA) transform = $(program_transform_name) NORMAL_INSTALL = : PRE_INSTALL = : POST_INSTALL = : NORMAL_UNINSTALL = : PRE_UNINSTALL = : POST_UNINSTALL = : build_triplet = @build@ host_triplet = @host@ DIST_COMMON = $(srcdir)/Makefile.am $(srcdir)/Makefile.in \ $(top_srcdir)/common.mk subdir = gnome-vfs/gnome/overrides ACLOCAL_M4 = $(top_srcdir)/aclocal.m4 am__aclocal_m4_deps = $(top_srcdir)/configure.ac am__configure_deps = $(am__aclocal_m4_deps) $(CONFIGURE_DEPENDENCIES) \ $(ACLOCAL_M4) mkinstalldirs = $(install_sh) -d CONFIG_HEADER = $(top_builddir)/config.h CONFIG_CLEAN_FILES = CONFIG_CLEAN_VPATH_FILES = SOURCES = DIST_SOURCES = am__can_run_installinfo = \ case $$AM_UPDATE_INFO_DIR in \ n|no|NO) false;; \ *) (install-info --version) >/dev/null 2>&1;; \ esac am__vpath_adj_setup = srcdirstrip=`echo "$(srcdir)" | sed 's|.|.|g'`; am__vpath_adj = case $$p in \ $(srcdir)/*) f=`echo "$$p" | sed "s|^$$srcdirstrip/||"`;; \ *) f=$$p;; \ esac; am__strip_dir = f=`echo $$p | sed -e 's|^.*/||'`; am__install_max = 40 am__nobase_strip_setup = \ srcdirstrip=`echo "$(srcdir)" | sed 's/[].[^$$\\*|]/\\\\&/g'` am__nobase_strip = \ for p in $$list; do echo "$$p"; done | sed -e "s|$$srcdirstrip/||" am__nobase_list = $(am__nobase_strip_setup); \ for p in $$list; do echo "$$p $$p"; done | \ sed "s| $$srcdirstrip/| |;"' / .*\//!s/ .*/ ./; s,\( .*\)/[^/]*$$,\1,' | \ $(AWK) 'BEGIN { files["."] = "" } { files[$$2] = files[$$2] " " $$1; \ if (++n[$$2] == $(am__install_max)) \ { print $$2, files[$$2]; n[$$2] = 0; files[$$2] = "" } } \ END { for (dir in files) print dir, files[dir] }' am__base_list = \ sed '$$!N;$$!N;$$!N;$$!N;$$!N;$$!N;$$!N;s/\n/ /g' | \ sed '$$!N;$$!N;$$!N;$$!N;s/\n/ /g' am__uninstall_files_from_dir = { \ test -z "$$files" \ || { test ! -d "$$dir" && test ! -f "$$dir" && test ! -r "$$dir"; } \ || { echo " ( cd '$$dir' && rm -f" $$files ")"; \ $(am__cd) "$$dir" && rm -f $$files; }; \ } am__installdirs = "$(DESTDIR)$(moduledir)" DATA = $(module_DATA) DISTFILES = $(DIST_COMMON) $(DIST_SOURCES) $(TEXINFOS) $(EXTRA_DIST) ACLOCAL = @ACLOCAL@ AG_PKG_CONFIG_PATH = @AG_PKG_CONFIG_PATH@ AMTAR = @AMTAR@ API_VERSION = @API_VERSION@ AR = @AR@ ATK_CFLAGS = @ATK_CFLAGS@ ATK_LIBS = @ATK_LIBS@ AUTOCONF = @AUTOCONF@ AUTOHEADER = @AUTOHEADER@ AUTOMAKE = @AUTOMAKE@ AWK = @AWK@ BONOBO_IDL_DIR = @BONOBO_IDL_DIR@ CANVAS_CFLAGS = @CANVAS_CFLAGS@ CANVAS_LIBS = @CANVAS_LIBS@ CC = @CC@ CCDEPMODE = @CCDEPMODE@ CFLAGS = @CFLAGS@ CORBA_CFLAGS = @CORBA_CFLAGS@ CORBA_LIBS = @CORBA_LIBS@ CPP = @CPP@ CPPFLAGS = @CPPFLAGS@ CYGPATH_W = @CYGPATH_W@ DEFS = @DEFS@ DEPDIR = @DEPDIR@ DLLTOOL = @DLLTOOL@ DSYMUTIL = @DSYMUTIL@ DUMPBIN = @DUMPBIN@ ECHO_C = @ECHO_C@ ECHO_N = @ECHO_N@ ECHO_T = @ECHO_T@ EGREP = @EGREP@ EXEEXT = @EXEEXT@ FGREP = @FGREP@ GCONF_CFLAGS = @GCONF_CFLAGS@ GCONF_LIBS = @GCONF_LIBS@ GDK_CFLAGS = @GDK_CFLAGS@ GDK_LIBS = @GDK_LIBS@ GDK_PIXBUF_CFLAGS = @GDK_PIXBUF_CFLAGS@ GDK_PIXBUF_LIBS = @GDK_PIXBUF_LIBS@ GLIB_CFLAGS = @GLIB_CFLAGS@ GLIB_LIBS = @GLIB_LIBS@ GNOMEUI_DEPRECATION_FLAGS = @GNOMEUI_DEPRECATION_FLAGS@ GNOME_VFS_CFLAGS = @GNOME_VFS_CFLAGS@ GNOME_VFS_DEPRECATED_CFLAGS = @GNOME_VFS_DEPRECATED_CFLAGS@ GNOME_VFS_LIBS = @GNOME_VFS_LIBS@ GOBJECT_CFLAGS = @GOBJECT_CFLAGS@ GOBJECT_LIBS = @GOBJECT_LIBS@ GREP = @GREP@ GTHREAD_CFLAGS = @GTHREAD_CFLAGS@ GTHREAD_LIBS = @GTHREAD_LIBS@ GTK_CFLAGS = @GTK_CFLAGS@ GTK_DEPRECATED_CFLAGS = @GTK_DEPRECATED_CFLAGS@ GTK_LIBS = @GTK_LIBS@ GUILE_CAIRO_CFLAGS = @GUILE_CAIRO_CFLAGS@ GUILE_CAIRO_LIBS = @GUILE_CAIRO_LIBS@ GUILE_CFLAGS = @GUILE_CFLAGS@ GUILE_EFFECTIVE_VERSION = @GUILE_EFFECTIVE_VERSION@ GUILE_GLIB_CFLAGS = @GUILE_GLIB_CFLAGS@ GUILE_GLIB_LIBS = @GUILE_GLIB_LIBS@ GUILE_LIBS = @GUILE_LIBS@ G_WRAP_CFLAGS = @G_WRAP_CFLAGS@ G_WRAP_LIBS = @G_WRAP_LIBS@ G_WRAP_LIB_DIR = @G_WRAP_LIB_DIR@ G_WRAP_MODULE_DIR = @G_WRAP_MODULE_DIR@ INSTALL = @INSTALL@ INSTALL_DATA = @INSTALL_DATA@ INSTALL_PROGRAM = @INSTALL_PROGRAM@ INSTALL_SCRIPT = @INSTALL_SCRIPT@ INSTALL_STRIP_PROGRAM = @INSTALL_STRIP_PROGRAM@ LD = @LD@ LDFLAGS = @LDFLAGS@ LIBGLADE_CFLAGS = @LIBGLADE_CFLAGS@ LIBGLADE_LIBS = @LIBGLADE_LIBS@ LIBGNOMEUI_CFLAGS = @LIBGNOMEUI_CFLAGS@ LIBGNOMEUI_LIBS = @LIBGNOMEUI_LIBS@ LIBGNOME_CFLAGS = @LIBGNOME_CFLAGS@ LIBGNOME_LIBS = @LIBGNOME_LIBS@ LIBOBJS = @LIBOBJS@ LIBS = @LIBS@ LIBTOOL = @LIBTOOL@ LIPO = @LIPO@ LN_S = @LN_S@ LTLIBOBJS = @LTLIBOBJS@ MAKEINFO = @MAKEINFO@ MANIFEST_TOOL = @MANIFEST_TOOL@ MKDIR_P = @MKDIR_P@ NM = @NM@ NMEDIT = @NMEDIT@ OBJDUMP = @OBJDUMP@ OBJEXT = @OBJEXT@ ORBIT_IDL = @ORBIT_IDL@ OTOOL = @OTOOL@ OTOOL64 = @OTOOL64@ PACKAGE = @PACKAGE@ PACKAGE_BUGREPORT = @PACKAGE_BUGREPORT@ PACKAGE_NAME = @PACKAGE_NAME@ PACKAGE_STRING = @PACKAGE_STRING@ PACKAGE_TARNAME = @PACKAGE_TARNAME@ PACKAGE_URL = @PACKAGE_URL@ PACKAGE_VERSION = @PACKAGE_VERSION@ PANGOCAIRO_CFLAGS = @PANGOCAIRO_CFLAGS@ PANGOCAIRO_LIBS = @PANGOCAIRO_LIBS@ PANGO_CFLAGS = @PANGO_CFLAGS@ PANGO_LIBS = @PANGO_LIBS@ PATH_SEPARATOR = @PATH_SEPARATOR@ PKG_CONFIG = @PKG_CONFIG@ PKG_CONFIG_LIBDIR = @PKG_CONFIG_LIBDIR@ PKG_CONFIG_PATH = @PKG_CONFIG_PATH@ RANLIB = @RANLIB@ SED = @SED@ SET_MAKE = @SET_MAKE@ SHELL = @SHELL@ STRIP = @STRIP@ VERSION = @VERSION@ WARN_CFLAGS = @WARN_CFLAGS@ abs_builddir = @abs_builddir@ abs_srcdir = @abs_srcdir@ abs_top_builddir = @abs_top_builddir@ abs_top_srcdir = @abs_top_srcdir@ ac_ct_AR = @ac_ct_AR@ ac_ct_CC = @ac_ct_CC@ ac_ct_DUMPBIN = @ac_ct_DUMPBIN@ am__include = @am__include@ am__leading_dot = @am__leading_dot@ am__quote = @am__quote@ am__tar = @am__tar@ am__untar = @am__untar@ bindir = @bindir@ build = @build@ build_alias = @build_alias@ build_cpu = @build_cpu@ build_os = @build_os@ build_vendor = @build_vendor@ builddir = @builddir@ datadir = @datadir@ datarootdir = @datarootdir@ docdir = @docdir@ dvidir = @dvidir@ exec_prefix = @exec_prefix@ host = @host@ host_alias = @host_alias@ host_cpu = @host_cpu@ host_os = @host_os@ host_vendor = @host_vendor@ htmldir = @htmldir@ includedir = @includedir@ infodir = @infodir@ install_sh = @install_sh@ libdir = @libdir@ libexecdir = @libexecdir@ localedir = @localedir@ localstatedir = @localstatedir@ mandir = @mandir@ mkdir_p = @mkdir_p@ oldincludedir = @oldincludedir@ pdfdir = @pdfdir@ prefix = @prefix@ program_transform_name = @program_transform_name@ psdir = @psdir@ sbindir = @sbindir@ sharedstatedir = @sharedstatedir@ srcdir = @srcdir@ sysconfdir = @sysconfdir@ target_alias = @target_alias@ top_build_prefix = @top_build_prefix@ top_builddir = @top_builddir@ top_srcdir = @top_srcdir@ guilegnomedir = $(datadir)/guile-gnome-@API_VERSION@ guilemoduledir = $(guilegnomedir)/gnome guilegwmoduledir = $(guilegnomedir)/gnome/gw guilegnomelibdir = $(libdir)/guile-gnome-@API_VERSION@ AM_CFLAGS = -I. -I$(srcdir) $(WARN_CFLAGS) $(DEBUG_CFLAGS) # For overriding from the command line (e.g. --debug) GUILE_FLAGS = SUFFIXES = .x .doc GUILE_SNARF_CFLAGS = $(DEFS) $(AM_CFLAGS) $(GUILE_CFLAGS) $(G_WRAP_CFLAGS) PACKAGES = atk cairo corba defs gconf glib gnome-vfs gtk libglade libgnome libgnomecanvas libgnomeui pango SOURCE_GUILE_PATH = $(shell echo $(addprefix $(top_srcdir)/,$(PACKAGES)) | sed -e 's/ /:/g'):$(srcdir) BUILD_GUILE_PATH = $(if $(filter-out $(top_srcdir),$(top_builddir)),$(shell echo -n $(addprefix $(top_builddir)/,$(PACKAGES)): | sed -e 's/ /:/g'),) GUILE_LOAD_PATH := $(BUILD_GUILE_PATH)$(SOURCE_GUILE_PATH):${G_WRAP_MODULE_DIR}:${GUILE_LOAD_PATH} # Real gnu make foo packages = $(filter-out %-uninstalled,$(patsubst %.pc.in,%,$(notdir $(wildcard $(srcdir)/*.pc.in)))) pcifiles = $(patsubst %,%-@API_VERSION@.pc,$(packages)) pcufiles = $(patsubst %,%-@API_VERSION@-uninstalled.pc,$(packages)) moduledir = $(guilemoduledir)/overrides module_DATA = gnome-vfs.defs gnome-vfs.defs-type-ignores EXTRA_DIST = $(module_DATA) all: all-am .SUFFIXES: .SUFFIXES: .x .doc .c $(srcdir)/Makefile.in: $(srcdir)/Makefile.am $(top_srcdir)/common.mk $(am__configure_deps) @for dep in $?; do \ case '$(am__configure_deps)' in \ *$$dep*) \ ( cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh ) \ && { if test -f $@; then exit 0; else break; fi; }; \ exit 1;; \ esac; \ done; \ echo ' cd $(top_srcdir) && $(AUTOMAKE) --gnu gnome-vfs/gnome/overrides/Makefile'; \ $(am__cd) $(top_srcdir) && \ $(AUTOMAKE) --gnu gnome-vfs/gnome/overrides/Makefile .PRECIOUS: Makefile Makefile: $(srcdir)/Makefile.in $(top_builddir)/config.status @case '$?' in \ *config.status*) \ cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh;; \ *) \ echo ' cd $(top_builddir) && $(SHELL) ./config.status $(subdir)/$@ $(am__depfiles_maybe)'; \ cd $(top_builddir) && $(SHELL) ./config.status $(subdir)/$@ $(am__depfiles_maybe);; \ esac; $(top_srcdir)/common.mk: $(top_builddir)/config.status: $(top_srcdir)/configure $(CONFIG_STATUS_DEPENDENCIES) cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh $(top_srcdir)/configure: $(am__configure_deps) cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh $(ACLOCAL_M4): $(am__aclocal_m4_deps) cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh $(am__aclocal_m4_deps): mostlyclean-libtool: -rm -f *.lo clean-libtool: -rm -rf .libs _libs install-moduleDATA: $(module_DATA) @$(NORMAL_INSTALL) @list='$(module_DATA)'; test -n "$(moduledir)" || list=; \ if test -n "$$list"; then \ echo " $(MKDIR_P) '$(DESTDIR)$(moduledir)'"; \ $(MKDIR_P) "$(DESTDIR)$(moduledir)" || exit 1; \ fi; \ for p in $$list; do \ if test -f "$$p"; then d=; else d="$(srcdir)/"; fi; \ echo "$$d$$p"; \ done | $(am__base_list) | \ while read files; do \ echo " $(INSTALL_DATA) $$files '$(DESTDIR)$(moduledir)'"; \ $(INSTALL_DATA) $$files "$(DESTDIR)$(moduledir)" || exit $$?; \ done uninstall-moduleDATA: @$(NORMAL_UNINSTALL) @list='$(module_DATA)'; test -n "$(moduledir)" || list=; \ files=`for p in $$list; do echo $$p; done | sed -e 's|^.*/||'`; \ dir='$(DESTDIR)$(moduledir)'; $(am__uninstall_files_from_dir) tags: TAGS TAGS: ctags: CTAGS CTAGS: distdir: $(DISTFILES) @srcdirstrip=`echo "$(srcdir)" | sed 's/[].[^$$\\*]/\\\\&/g'`; \ topsrcdirstrip=`echo "$(top_srcdir)" | sed 's/[].[^$$\\*]/\\\\&/g'`; \ list='$(DISTFILES)'; \ dist_files=`for file in $$list; do echo $$file; done | \ sed -e "s|^$$srcdirstrip/||;t" \ -e "s|^$$topsrcdirstrip/|$(top_builddir)/|;t"`; \ case $$dist_files in \ */*) $(MKDIR_P) `echo "$$dist_files" | \ sed '/\//!d;s|^|$(distdir)/|;s,/[^/]*$$,,' | \ sort -u` ;; \ esac; \ for file in $$dist_files; do \ if test -f $$file || test -d $$file; then d=.; else d=$(srcdir); fi; \ if test -d $$d/$$file; then \ dir=`echo "/$$file" | sed -e 's,/[^/]*$$,,'`; \ if test -d "$(distdir)/$$file"; then \ find "$(distdir)/$$file" -type d ! -perm -700 -exec chmod u+rwx {} \;; \ fi; \ if test -d $(srcdir)/$$file && test $$d != $(srcdir); then \ cp -fpR $(srcdir)/$$file "$(distdir)$$dir" || exit 1; \ find "$(distdir)/$$file" -type d ! -perm -700 -exec chmod u+rwx {} \;; \ fi; \ cp -fpR $$d/$$file "$(distdir)$$dir" || exit 1; \ else \ test -f "$(distdir)/$$file" \ || cp -p $$d/$$file "$(distdir)/$$file" \ || exit 1; \ fi; \ done check-am: all-am check: check-am all-am: Makefile $(DATA) installdirs: for dir in "$(DESTDIR)$(moduledir)"; do \ test -z "$$dir" || $(MKDIR_P) "$$dir"; \ done install: install-am install-exec: install-exec-am install-data: install-data-am uninstall: uninstall-am install-am: all-am @$(MAKE) $(AM_MAKEFLAGS) install-exec-am install-data-am installcheck: installcheck-am install-strip: if test -z '$(STRIP)'; then \ $(MAKE) $(AM_MAKEFLAGS) INSTALL_PROGRAM="$(INSTALL_STRIP_PROGRAM)" \ install_sh_PROGRAM="$(INSTALL_STRIP_PROGRAM)" INSTALL_STRIP_FLAG=-s \ install; \ else \ $(MAKE) $(AM_MAKEFLAGS) INSTALL_PROGRAM="$(INSTALL_STRIP_PROGRAM)" \ install_sh_PROGRAM="$(INSTALL_STRIP_PROGRAM)" INSTALL_STRIP_FLAG=-s \ "INSTALL_PROGRAM_ENV=STRIPPROG='$(STRIP)'" install; \ fi mostlyclean-generic: clean-generic: distclean-generic: -test -z "$(CONFIG_CLEAN_FILES)" || rm -f $(CONFIG_CLEAN_FILES) -test . = "$(srcdir)" || test -z "$(CONFIG_CLEAN_VPATH_FILES)" || rm -f $(CONFIG_CLEAN_VPATH_FILES) maintainer-clean-generic: @echo "This command is intended for maintainers to use" @echo "it deletes files that may require special tools to rebuild." clean: clean-am clean-am: clean-generic clean-libtool mostlyclean-am distclean: distclean-am -rm -f Makefile distclean-am: clean-am distclean-generic dvi: dvi-am dvi-am: html: html-am html-am: info: info-am info-am: install-data-am: install-moduleDATA install-dvi: install-dvi-am install-dvi-am: install-exec-am: install-html: install-html-am install-html-am: install-info: install-info-am install-info-am: install-man: install-pdf: install-pdf-am install-pdf-am: install-ps: install-ps-am install-ps-am: installcheck-am: maintainer-clean: maintainer-clean-am -rm -f Makefile maintainer-clean-am: distclean-am maintainer-clean-generic mostlyclean: mostlyclean-am mostlyclean-am: mostlyclean-generic mostlyclean-libtool pdf: pdf-am pdf-am: ps: ps-am ps-am: uninstall-am: uninstall-moduleDATA .MAKE: install-am install-strip .PHONY: all all-am check check-am clean clean-generic clean-libtool \ distclean distclean-generic distclean-libtool distdir dvi \ dvi-am html html-am info info-am install install-am \ install-data install-data-am install-dvi install-dvi-am \ install-exec install-exec-am install-html install-html-am \ install-info install-info-am install-man install-moduleDATA \ install-pdf install-pdf-am install-ps install-ps-am \ install-strip installcheck installcheck-am installdirs \ maintainer-clean maintainer-clean-generic mostlyclean \ mostlyclean-generic mostlyclean-libtool pdf pdf-am ps ps-am \ uninstall uninstall-am uninstall-moduleDATA export GUILE_LOAD_PATH .c.x: guile-snarf $(GUILE_SNARF_CFLAGS) $< > $@ \ || { rm $@; false; } .c.doc: $(CPP) -DSCM_MAGIC_SNARF_DOCS $(GUILE_SNARF_CFLAGS) $< \ | grep -E '(\^\^ {|\^\^ })' > $@ || { rm $@; false; } %.scm guile-gnome-gw-%.c: %-spec.scm guile $(GUILE_FLAGS) -c \ "(debug-set! stack 400000) \ (use-modules (gnome-@API_VERSION@)) \ (use-modules (g-wrap)) \ (use-modules (gnome gw $*-spec)) \ (generate-wrapset 'guile 'gnome-$* \"guile-gnome-gw-$*\")" mv guile-gnome-gw-$*.scm $*.scm %-@API_VERSION@.pc: %.pc cp $< $@ %-@API_VERSION@-uninstalled.pc: %-uninstalled.pc cp $< $@ # Tell versions [3.59,3.63) of GNU make to not export all variables. # Otherwise a system limit (for SysV at least) may be exceeded. .NOEXPORT: guile-gnome-platform-2.16.2/gnome-vfs/Makefile.am0000644000175000017500000000012311752516410022117 0ustar00wingowingo00000000000000SUBDIRS = gnome examples doc tests EXTRA_DIST = ChangeLog.pre-2.16 AUTHORS README guile-gnome-platform-2.16.2/gnome-vfs/Makefile.in0000644000175000017500000004537311752516563022161 0ustar00wingowingo00000000000000# Makefile.in generated by automake 1.11.5 from Makefile.am. # @configure_input@ # Copyright (C) 1994, 1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, # 2003, 2004, 2005, 2006, 2007, 2008, 2009, 2010, 2011 Free Software # Foundation, Inc. # This Makefile.in is free software; the Free Software Foundation # gives unlimited permission to copy and/or distribute it, # with or without modifications, as long as this notice is preserved. # This program is distributed in the hope that it will be useful, # but WITHOUT ANY WARRANTY, to the extent permitted by law; without # even the implied warranty of MERCHANTABILITY or FITNESS FOR A # PARTICULAR PURPOSE. @SET_MAKE@ VPATH = @srcdir@ am__make_dryrun = \ { \ am__dry=no; \ case $$MAKEFLAGS in \ *\\[\ \ ]*) \ echo 'am--echo: ; @echo "AM" OK' | $(MAKE) -f - 2>/dev/null \ | grep '^AM OK$$' >/dev/null || am__dry=yes;; \ *) \ for am__flg in $$MAKEFLAGS; do \ case $$am__flg in \ *=*|--*) ;; \ *n*) am__dry=yes; break;; \ esac; \ done;; \ esac; \ test $$am__dry = yes; \ } pkgdatadir = $(datadir)/@PACKAGE@ pkgincludedir = $(includedir)/@PACKAGE@ pkglibdir = $(libdir)/@PACKAGE@ pkglibexecdir = $(libexecdir)/@PACKAGE@ am__cd = CDPATH="$${ZSH_VERSION+.}$(PATH_SEPARATOR)" && cd install_sh_DATA = $(install_sh) -c -m 644 install_sh_PROGRAM = $(install_sh) -c install_sh_SCRIPT = $(install_sh) -c INSTALL_HEADER = $(INSTALL_DATA) transform = $(program_transform_name) NORMAL_INSTALL = : PRE_INSTALL = : POST_INSTALL = : NORMAL_UNINSTALL = : PRE_UNINSTALL = : POST_UNINSTALL = : build_triplet = @build@ host_triplet = @host@ subdir = gnome-vfs DIST_COMMON = README $(srcdir)/Makefile.am $(srcdir)/Makefile.in \ AUTHORS ChangeLog ACLOCAL_M4 = $(top_srcdir)/aclocal.m4 am__aclocal_m4_deps = $(top_srcdir)/configure.ac am__configure_deps = $(am__aclocal_m4_deps) $(CONFIGURE_DEPENDENCIES) \ $(ACLOCAL_M4) mkinstalldirs = $(install_sh) -d CONFIG_HEADER = $(top_builddir)/config.h CONFIG_CLEAN_FILES = CONFIG_CLEAN_VPATH_FILES = SOURCES = DIST_SOURCES = RECURSIVE_TARGETS = all-recursive check-recursive dvi-recursive \ html-recursive info-recursive install-data-recursive \ install-dvi-recursive install-exec-recursive \ install-html-recursive install-info-recursive \ install-pdf-recursive install-ps-recursive install-recursive \ installcheck-recursive installdirs-recursive pdf-recursive \ ps-recursive uninstall-recursive am__can_run_installinfo = \ case $$AM_UPDATE_INFO_DIR in \ n|no|NO) false;; \ *) (install-info --version) >/dev/null 2>&1;; \ esac RECURSIVE_CLEAN_TARGETS = mostlyclean-recursive clean-recursive \ distclean-recursive maintainer-clean-recursive AM_RECURSIVE_TARGETS = $(RECURSIVE_TARGETS:-recursive=) \ $(RECURSIVE_CLEAN_TARGETS:-recursive=) tags TAGS ctags CTAGS \ distdir ETAGS = etags CTAGS = ctags DIST_SUBDIRS = $(SUBDIRS) DISTFILES = $(DIST_COMMON) $(DIST_SOURCES) $(TEXINFOS) $(EXTRA_DIST) am__relativize = \ dir0=`pwd`; \ sed_first='s,^\([^/]*\)/.*$$,\1,'; \ sed_rest='s,^[^/]*/*,,'; \ sed_last='s,^.*/\([^/]*\)$$,\1,'; \ sed_butlast='s,/*[^/]*$$,,'; \ while test -n "$$dir1"; do \ first=`echo "$$dir1" | sed -e "$$sed_first"`; \ if test "$$first" != "."; then \ if test "$$first" = ".."; then \ dir2=`echo "$$dir0" | sed -e "$$sed_last"`/"$$dir2"; \ dir0=`echo "$$dir0" | sed -e "$$sed_butlast"`; \ else \ first2=`echo "$$dir2" | sed -e "$$sed_first"`; \ if test "$$first2" = "$$first"; then \ dir2=`echo "$$dir2" | sed -e "$$sed_rest"`; \ else \ dir2="../$$dir2"; \ fi; \ dir0="$$dir0"/"$$first"; \ fi; \ fi; \ dir1=`echo "$$dir1" | sed -e "$$sed_rest"`; \ done; \ reldir="$$dir2" ACLOCAL = @ACLOCAL@ AG_PKG_CONFIG_PATH = @AG_PKG_CONFIG_PATH@ AMTAR = @AMTAR@ API_VERSION = @API_VERSION@ AR = @AR@ ATK_CFLAGS = @ATK_CFLAGS@ ATK_LIBS = @ATK_LIBS@ AUTOCONF = @AUTOCONF@ AUTOHEADER = @AUTOHEADER@ AUTOMAKE = @AUTOMAKE@ AWK = @AWK@ BONOBO_IDL_DIR = @BONOBO_IDL_DIR@ CANVAS_CFLAGS = @CANVAS_CFLAGS@ CANVAS_LIBS = @CANVAS_LIBS@ CC = @CC@ CCDEPMODE = @CCDEPMODE@ CFLAGS = @CFLAGS@ CORBA_CFLAGS = @CORBA_CFLAGS@ CORBA_LIBS = @CORBA_LIBS@ CPP = @CPP@ CPPFLAGS = @CPPFLAGS@ CYGPATH_W = @CYGPATH_W@ DEFS = @DEFS@ DEPDIR = @DEPDIR@ DLLTOOL = @DLLTOOL@ DSYMUTIL = @DSYMUTIL@ DUMPBIN = @DUMPBIN@ ECHO_C = @ECHO_C@ ECHO_N = @ECHO_N@ ECHO_T = @ECHO_T@ EGREP = @EGREP@ EXEEXT = @EXEEXT@ FGREP = @FGREP@ GCONF_CFLAGS = @GCONF_CFLAGS@ GCONF_LIBS = @GCONF_LIBS@ GDK_CFLAGS = @GDK_CFLAGS@ GDK_LIBS = @GDK_LIBS@ GDK_PIXBUF_CFLAGS = @GDK_PIXBUF_CFLAGS@ GDK_PIXBUF_LIBS = @GDK_PIXBUF_LIBS@ GLIB_CFLAGS = @GLIB_CFLAGS@ GLIB_LIBS = @GLIB_LIBS@ GNOMEUI_DEPRECATION_FLAGS = @GNOMEUI_DEPRECATION_FLAGS@ GNOME_VFS_CFLAGS = @GNOME_VFS_CFLAGS@ GNOME_VFS_DEPRECATED_CFLAGS = @GNOME_VFS_DEPRECATED_CFLAGS@ GNOME_VFS_LIBS = @GNOME_VFS_LIBS@ GOBJECT_CFLAGS = @GOBJECT_CFLAGS@ GOBJECT_LIBS = @GOBJECT_LIBS@ GREP = @GREP@ GTHREAD_CFLAGS = @GTHREAD_CFLAGS@ GTHREAD_LIBS = @GTHREAD_LIBS@ GTK_CFLAGS = @GTK_CFLAGS@ GTK_DEPRECATED_CFLAGS = @GTK_DEPRECATED_CFLAGS@ GTK_LIBS = @GTK_LIBS@ GUILE_CAIRO_CFLAGS = @GUILE_CAIRO_CFLAGS@ GUILE_CAIRO_LIBS = @GUILE_CAIRO_LIBS@ GUILE_CFLAGS = @GUILE_CFLAGS@ GUILE_EFFECTIVE_VERSION = @GUILE_EFFECTIVE_VERSION@ GUILE_GLIB_CFLAGS = @GUILE_GLIB_CFLAGS@ GUILE_GLIB_LIBS = @GUILE_GLIB_LIBS@ GUILE_LIBS = @GUILE_LIBS@ G_WRAP_CFLAGS = @G_WRAP_CFLAGS@ G_WRAP_LIBS = @G_WRAP_LIBS@ G_WRAP_LIB_DIR = @G_WRAP_LIB_DIR@ G_WRAP_MODULE_DIR = @G_WRAP_MODULE_DIR@ INSTALL = @INSTALL@ INSTALL_DATA = @INSTALL_DATA@ INSTALL_PROGRAM = @INSTALL_PROGRAM@ INSTALL_SCRIPT = @INSTALL_SCRIPT@ INSTALL_STRIP_PROGRAM = @INSTALL_STRIP_PROGRAM@ LD = @LD@ LDFLAGS = @LDFLAGS@ LIBGLADE_CFLAGS = @LIBGLADE_CFLAGS@ LIBGLADE_LIBS = @LIBGLADE_LIBS@ LIBGNOMEUI_CFLAGS = @LIBGNOMEUI_CFLAGS@ LIBGNOMEUI_LIBS = @LIBGNOMEUI_LIBS@ LIBGNOME_CFLAGS = @LIBGNOME_CFLAGS@ LIBGNOME_LIBS = @LIBGNOME_LIBS@ LIBOBJS = @LIBOBJS@ LIBS = @LIBS@ LIBTOOL = @LIBTOOL@ LIPO = @LIPO@ LN_S = @LN_S@ LTLIBOBJS = @LTLIBOBJS@ MAKEINFO = @MAKEINFO@ MANIFEST_TOOL = @MANIFEST_TOOL@ MKDIR_P = @MKDIR_P@ NM = @NM@ NMEDIT = @NMEDIT@ OBJDUMP = @OBJDUMP@ OBJEXT = @OBJEXT@ ORBIT_IDL = @ORBIT_IDL@ OTOOL = @OTOOL@ OTOOL64 = @OTOOL64@ PACKAGE = @PACKAGE@ PACKAGE_BUGREPORT = @PACKAGE_BUGREPORT@ PACKAGE_NAME = @PACKAGE_NAME@ PACKAGE_STRING = @PACKAGE_STRING@ PACKAGE_TARNAME = @PACKAGE_TARNAME@ PACKAGE_URL = @PACKAGE_URL@ PACKAGE_VERSION = @PACKAGE_VERSION@ PANGOCAIRO_CFLAGS = @PANGOCAIRO_CFLAGS@ PANGOCAIRO_LIBS = @PANGOCAIRO_LIBS@ PANGO_CFLAGS = @PANGO_CFLAGS@ PANGO_LIBS = @PANGO_LIBS@ PATH_SEPARATOR = @PATH_SEPARATOR@ PKG_CONFIG = @PKG_CONFIG@ PKG_CONFIG_LIBDIR = @PKG_CONFIG_LIBDIR@ PKG_CONFIG_PATH = @PKG_CONFIG_PATH@ RANLIB = @RANLIB@ SED = @SED@ SET_MAKE = @SET_MAKE@ SHELL = @SHELL@ STRIP = @STRIP@ VERSION = @VERSION@ WARN_CFLAGS = @WARN_CFLAGS@ abs_builddir = @abs_builddir@ abs_srcdir = @abs_srcdir@ abs_top_builddir = @abs_top_builddir@ abs_top_srcdir = @abs_top_srcdir@ ac_ct_AR = @ac_ct_AR@ ac_ct_CC = @ac_ct_CC@ ac_ct_DUMPBIN = @ac_ct_DUMPBIN@ am__include = @am__include@ am__leading_dot = @am__leading_dot@ am__quote = @am__quote@ am__tar = @am__tar@ am__untar = @am__untar@ bindir = @bindir@ build = @build@ build_alias = @build_alias@ build_cpu = @build_cpu@ build_os = @build_os@ build_vendor = @build_vendor@ builddir = @builddir@ datadir = @datadir@ datarootdir = @datarootdir@ docdir = @docdir@ dvidir = @dvidir@ exec_prefix = @exec_prefix@ host = @host@ host_alias = @host_alias@ host_cpu = @host_cpu@ host_os = @host_os@ host_vendor = @host_vendor@ htmldir = @htmldir@ includedir = @includedir@ infodir = @infodir@ install_sh = @install_sh@ libdir = @libdir@ libexecdir = @libexecdir@ localedir = @localedir@ localstatedir = @localstatedir@ mandir = @mandir@ mkdir_p = @mkdir_p@ oldincludedir = @oldincludedir@ pdfdir = @pdfdir@ prefix = @prefix@ program_transform_name = @program_transform_name@ psdir = @psdir@ sbindir = @sbindir@ sharedstatedir = @sharedstatedir@ srcdir = @srcdir@ sysconfdir = @sysconfdir@ target_alias = @target_alias@ top_build_prefix = @top_build_prefix@ top_builddir = @top_builddir@ top_srcdir = @top_srcdir@ SUBDIRS = gnome examples doc tests EXTRA_DIST = ChangeLog.pre-2.16 AUTHORS README all: all-recursive .SUFFIXES: $(srcdir)/Makefile.in: $(srcdir)/Makefile.am $(am__configure_deps) @for dep in $?; do \ case '$(am__configure_deps)' in \ *$$dep*) \ ( cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh ) \ && { if test -f $@; then exit 0; else break; fi; }; \ exit 1;; \ esac; \ done; \ echo ' cd $(top_srcdir) && $(AUTOMAKE) --gnu gnome-vfs/Makefile'; \ $(am__cd) $(top_srcdir) && \ $(AUTOMAKE) --gnu gnome-vfs/Makefile .PRECIOUS: Makefile Makefile: $(srcdir)/Makefile.in $(top_builddir)/config.status @case '$?' in \ *config.status*) \ cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh;; \ *) \ echo ' cd $(top_builddir) && $(SHELL) ./config.status $(subdir)/$@ $(am__depfiles_maybe)'; \ cd $(top_builddir) && $(SHELL) ./config.status $(subdir)/$@ $(am__depfiles_maybe);; \ esac; $(top_builddir)/config.status: $(top_srcdir)/configure $(CONFIG_STATUS_DEPENDENCIES) cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh $(top_srcdir)/configure: $(am__configure_deps) cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh $(ACLOCAL_M4): $(am__aclocal_m4_deps) cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh $(am__aclocal_m4_deps): mostlyclean-libtool: -rm -f *.lo clean-libtool: -rm -rf .libs _libs # This directory's subdirectories are mostly independent; you can cd # into them and run `make' without going through this Makefile. # To change the values of `make' variables: instead of editing Makefiles, # (1) if the variable is set in `config.status', edit `config.status' # (which will cause the Makefiles to be regenerated when you run `make'); # (2) otherwise, pass the desired values on the `make' command line. $(RECURSIVE_TARGETS): @fail= failcom='exit 1'; \ for f in x $$MAKEFLAGS; do \ case $$f in \ *=* | --[!k]*);; \ *k*) failcom='fail=yes';; \ esac; \ done; \ dot_seen=no; \ target=`echo $@ | sed s/-recursive//`; \ list='$(SUBDIRS)'; for subdir in $$list; do \ echo "Making $$target in $$subdir"; \ if test "$$subdir" = "."; then \ dot_seen=yes; \ local_target="$$target-am"; \ else \ local_target="$$target"; \ fi; \ ($(am__cd) $$subdir && $(MAKE) $(AM_MAKEFLAGS) $$local_target) \ || eval $$failcom; \ done; \ if test "$$dot_seen" = "no"; then \ $(MAKE) $(AM_MAKEFLAGS) "$$target-am" || exit 1; \ fi; test -z "$$fail" $(RECURSIVE_CLEAN_TARGETS): @fail= failcom='exit 1'; \ for f in x $$MAKEFLAGS; do \ case $$f in \ *=* | --[!k]*);; \ *k*) failcom='fail=yes';; \ esac; \ done; \ dot_seen=no; \ case "$@" in \ distclean-* | maintainer-clean-*) list='$(DIST_SUBDIRS)' ;; \ *) list='$(SUBDIRS)' ;; \ esac; \ rev=''; for subdir in $$list; do \ if test "$$subdir" = "."; then :; else \ rev="$$subdir $$rev"; \ fi; \ done; \ rev="$$rev ."; \ target=`echo $@ | sed s/-recursive//`; \ for subdir in $$rev; do \ echo "Making $$target in $$subdir"; \ if test "$$subdir" = "."; then \ local_target="$$target-am"; \ else \ local_target="$$target"; \ fi; \ ($(am__cd) $$subdir && $(MAKE) $(AM_MAKEFLAGS) $$local_target) \ || eval $$failcom; \ done && test -z "$$fail" tags-recursive: list='$(SUBDIRS)'; for subdir in $$list; do \ test "$$subdir" = . || ($(am__cd) $$subdir && $(MAKE) $(AM_MAKEFLAGS) tags); \ done ctags-recursive: list='$(SUBDIRS)'; for subdir in $$list; do \ test "$$subdir" = . || ($(am__cd) $$subdir && $(MAKE) $(AM_MAKEFLAGS) ctags); \ done ID: $(HEADERS) $(SOURCES) $(LISP) $(TAGS_FILES) list='$(SOURCES) $(HEADERS) $(LISP) $(TAGS_FILES)'; \ unique=`for i in $$list; do \ if test -f "$$i"; then echo $$i; else echo $(srcdir)/$$i; fi; \ done | \ $(AWK) '{ files[$$0] = 1; nonempty = 1; } \ END { if (nonempty) { for (i in files) print i; }; }'`; \ mkid -fID $$unique tags: TAGS TAGS: tags-recursive $(HEADERS) $(SOURCES) $(TAGS_DEPENDENCIES) \ $(TAGS_FILES) $(LISP) set x; \ here=`pwd`; \ if ($(ETAGS) --etags-include --version) >/dev/null 2>&1; then \ include_option=--etags-include; \ empty_fix=.; \ else \ include_option=--include; \ empty_fix=; \ fi; \ list='$(SUBDIRS)'; for subdir in $$list; do \ if test "$$subdir" = .; then :; else \ test ! -f $$subdir/TAGS || \ set "$$@" "$$include_option=$$here/$$subdir/TAGS"; \ fi; \ done; \ list='$(SOURCES) $(HEADERS) $(LISP) $(TAGS_FILES)'; \ unique=`for i in $$list; do \ if test -f "$$i"; then echo $$i; else echo $(srcdir)/$$i; fi; \ done | \ $(AWK) '{ files[$$0] = 1; nonempty = 1; } \ END { if (nonempty) { for (i in files) print i; }; }'`; \ shift; \ if test -z "$(ETAGS_ARGS)$$*$$unique"; then :; else \ test -n "$$unique" || unique=$$empty_fix; \ if test $$# -gt 0; then \ $(ETAGS) $(ETAGSFLAGS) $(AM_ETAGSFLAGS) $(ETAGS_ARGS) \ "$$@" $$unique; \ else \ $(ETAGS) $(ETAGSFLAGS) $(AM_ETAGSFLAGS) $(ETAGS_ARGS) \ $$unique; \ fi; \ fi ctags: CTAGS CTAGS: ctags-recursive $(HEADERS) $(SOURCES) $(TAGS_DEPENDENCIES) \ $(TAGS_FILES) $(LISP) list='$(SOURCES) $(HEADERS) $(LISP) $(TAGS_FILES)'; \ unique=`for i in $$list; do \ if test -f "$$i"; then echo $$i; else echo $(srcdir)/$$i; fi; \ done | \ $(AWK) '{ files[$$0] = 1; nonempty = 1; } \ END { if (nonempty) { for (i in files) print i; }; }'`; \ test -z "$(CTAGS_ARGS)$$unique" \ || $(CTAGS) $(CTAGSFLAGS) $(AM_CTAGSFLAGS) $(CTAGS_ARGS) \ $$unique GTAGS: here=`$(am__cd) $(top_builddir) && pwd` \ && $(am__cd) $(top_srcdir) \ && gtags -i $(GTAGS_ARGS) "$$here" distclean-tags: -rm -f TAGS ID GTAGS GRTAGS GSYMS GPATH tags distdir: $(DISTFILES) @srcdirstrip=`echo "$(srcdir)" | sed 's/[].[^$$\\*]/\\\\&/g'`; \ topsrcdirstrip=`echo "$(top_srcdir)" | sed 's/[].[^$$\\*]/\\\\&/g'`; \ list='$(DISTFILES)'; \ dist_files=`for file in $$list; do echo $$file; done | \ sed -e "s|^$$srcdirstrip/||;t" \ -e "s|^$$topsrcdirstrip/|$(top_builddir)/|;t"`; \ case $$dist_files in \ */*) $(MKDIR_P) `echo "$$dist_files" | \ sed '/\//!d;s|^|$(distdir)/|;s,/[^/]*$$,,' | \ sort -u` ;; \ esac; \ for file in $$dist_files; do \ if test -f $$file || test -d $$file; then d=.; else d=$(srcdir); fi; \ if test -d $$d/$$file; then \ dir=`echo "/$$file" | sed -e 's,/[^/]*$$,,'`; \ if test -d "$(distdir)/$$file"; then \ find "$(distdir)/$$file" -type d ! -perm -700 -exec chmod u+rwx {} \;; \ fi; \ if test -d $(srcdir)/$$file && test $$d != $(srcdir); then \ cp -fpR $(srcdir)/$$file "$(distdir)$$dir" || exit 1; \ find "$(distdir)/$$file" -type d ! -perm -700 -exec chmod u+rwx {} \;; \ fi; \ cp -fpR $$d/$$file "$(distdir)$$dir" || exit 1; \ else \ test -f "$(distdir)/$$file" \ || cp -p $$d/$$file "$(distdir)/$$file" \ || exit 1; \ fi; \ done @list='$(DIST_SUBDIRS)'; for subdir in $$list; do \ if test "$$subdir" = .; then :; else \ $(am__make_dryrun) \ || test -d "$(distdir)/$$subdir" \ || $(MKDIR_P) "$(distdir)/$$subdir" \ || exit 1; \ dir1=$$subdir; dir2="$(distdir)/$$subdir"; \ $(am__relativize); \ new_distdir=$$reldir; \ dir1=$$subdir; dir2="$(top_distdir)"; \ $(am__relativize); \ new_top_distdir=$$reldir; \ echo " (cd $$subdir && $(MAKE) $(AM_MAKEFLAGS) top_distdir="$$new_top_distdir" distdir="$$new_distdir" \\"; \ echo " am__remove_distdir=: am__skip_length_check=: am__skip_mode_fix=: distdir)"; \ ($(am__cd) $$subdir && \ $(MAKE) $(AM_MAKEFLAGS) \ top_distdir="$$new_top_distdir" \ distdir="$$new_distdir" \ am__remove_distdir=: \ am__skip_length_check=: \ am__skip_mode_fix=: \ distdir) \ || exit 1; \ fi; \ done check-am: all-am check: check-recursive all-am: Makefile installdirs: installdirs-recursive installdirs-am: install: install-recursive install-exec: install-exec-recursive install-data: install-data-recursive uninstall: uninstall-recursive install-am: all-am @$(MAKE) $(AM_MAKEFLAGS) install-exec-am install-data-am installcheck: installcheck-recursive install-strip: if test -z '$(STRIP)'; then \ $(MAKE) $(AM_MAKEFLAGS) INSTALL_PROGRAM="$(INSTALL_STRIP_PROGRAM)" \ install_sh_PROGRAM="$(INSTALL_STRIP_PROGRAM)" INSTALL_STRIP_FLAG=-s \ install; \ else \ $(MAKE) $(AM_MAKEFLAGS) INSTALL_PROGRAM="$(INSTALL_STRIP_PROGRAM)" \ install_sh_PROGRAM="$(INSTALL_STRIP_PROGRAM)" INSTALL_STRIP_FLAG=-s \ "INSTALL_PROGRAM_ENV=STRIPPROG='$(STRIP)'" install; \ fi mostlyclean-generic: clean-generic: distclean-generic: -test -z "$(CONFIG_CLEAN_FILES)" || rm -f $(CONFIG_CLEAN_FILES) -test . = "$(srcdir)" || test -z "$(CONFIG_CLEAN_VPATH_FILES)" || rm -f $(CONFIG_CLEAN_VPATH_FILES) maintainer-clean-generic: @echo "This command is intended for maintainers to use" @echo "it deletes files that may require special tools to rebuild." clean: clean-recursive clean-am: clean-generic clean-libtool mostlyclean-am distclean: distclean-recursive -rm -f Makefile distclean-am: clean-am distclean-generic distclean-tags dvi: dvi-recursive dvi-am: html: html-recursive html-am: info: info-recursive info-am: install-data-am: install-dvi: install-dvi-recursive install-dvi-am: install-exec-am: install-html: install-html-recursive install-html-am: install-info: install-info-recursive install-info-am: install-man: install-pdf: install-pdf-recursive install-pdf-am: install-ps: install-ps-recursive install-ps-am: installcheck-am: maintainer-clean: maintainer-clean-recursive -rm -f Makefile maintainer-clean-am: distclean-am maintainer-clean-generic mostlyclean: mostlyclean-recursive mostlyclean-am: mostlyclean-generic mostlyclean-libtool pdf: pdf-recursive pdf-am: ps: ps-recursive ps-am: uninstall-am: .MAKE: $(RECURSIVE_CLEAN_TARGETS) $(RECURSIVE_TARGETS) ctags-recursive \ install-am install-strip tags-recursive .PHONY: $(RECURSIVE_CLEAN_TARGETS) $(RECURSIVE_TARGETS) CTAGS GTAGS \ all all-am check check-am clean clean-generic clean-libtool \ ctags ctags-recursive distclean distclean-generic \ distclean-libtool distclean-tags distdir dvi dvi-am html \ html-am info info-am install install-am install-data \ install-data-am install-dvi install-dvi-am install-exec \ install-exec-am install-html install-html-am install-info \ install-info-am install-man install-pdf install-pdf-am \ install-ps install-ps-am install-strip installcheck \ installcheck-am installdirs installdirs-am maintainer-clean \ maintainer-clean-generic mostlyclean mostlyclean-generic \ mostlyclean-libtool pdf pdf-am ps ps-am tags tags-recursive \ uninstall uninstall-am # Tell versions [3.59,3.63) of GNU make to not export all variables. # Otherwise a system limit (for SysV at least) may be exceeded. .NOEXPORT: guile-gnome-platform-2.16.2/gnome-vfs/README0000644000175000017500000000160711670374302020754 0ustar00wingowingo00000000000000guile-gnome-gnome-vfs README Copyright (C) 2004 Free Software Foundation, Inc. See the end for copying conditions of this file. Last updated 16 September 2004. About guile-gnome-gnome-vfs ========================== guile-gnome-gnome-vfs is a Guile wrapper for gnome-vfs. It is a part of GNU guile-gnome. See the README file in the toplevel source directory for more information. Build dependencies ================== Besides the base guile-gnome requirements given in ../README, guile-gnome-gnome-vfs requires gnome-vfs development packages. guile-gnome-gnome-vfs depends on the following guile-gnome modules: glib, defs, . Copying this file ================= Copyright (C) 2004 Free Software Foundation, Inc. Copying and distribution of this file, with or without modification, are permitted in any medium without royalty provided the copyright notice and this notice are preserved. guile-gnome-platform-2.16.2/gnome-vfs/AUTHORS0000644000175000017500000000064011670374302021140 0ustar00wingowingo00000000000000To find out what should go in this file, see "Information For Maintainers of GNU Software" (maintain.texi), the section called "Recording Changes". : In the directory gnome/gw, wrote: gnome-vfs-spec.scm gnome-vfs-support.c gnome-vfs-support.h In the directory gnome/overrides, wrote: gnome-vfs.defs In the directory gnome, wrote: gnome-vfs.scm In the directory examples/gnome-vfs, wrote: ... guile-gnome-platform-2.16.2/gnome-vfs/ChangeLog.pre-2.160000644000175000017500000001602611670374302023020 0ustar00wingowingo000000000000002008-05-01 Andy Wingo * doc/overview.texi (Overview): Add some example docs. 2008-04-25 Andy Wingo * == Released guile-gnome-platform version 2.15.98 == 2008-04-25 Andy Wingo * doc/*.texi: Update docs. 2008-04-24 Andy Wingo * gnome/gw/gnome-vfs-port.c (vport_print): Fix some deprecation warnings. 2008-04-10 Andy Wingo * == Released guile-gnome-platform version 2.15.97 == 2008-04-10 Andy Wingo * NEWS: Update NEWS. 2008-04-08 Andy Wingo * gnome/gw/gnome-vfs-spec.scm (unwrap-value-cg): Use new GValue functions. 2007-12-10 Andy Wingo * == Released guile-gnome-platform version 2.15.96 == 2007-12-06 Andy Wingo * doc/defuns-*.texi: Regenerated. * doc/guile-gnome-gnome-vfs.texi (Top): * doc/undocumented.texi: New section for undocumented exports. 2007-11-30 Andy Wingo * doc/guile-gnome-gnome-vfs.texi (Top): Add type index. * gnome/overrides/gnome-vfs.defs: Ignore all functions that deal in opaque types. 2007-11-10 Andy Wingo * == Released guile-gnome-platform version 2.15.95 == 2007-11-10 Andy Wingo * tests/Makefile.am: * tests/wrapset.api: * tests/wrapset.scm: Add API regression test suite. 2007-11-08 Andy Wingo * Makefile.am: * doc/: Add documentation, generated from upstream gtk-doc. Suboptimal, as it does not talk at all the mapping between gnome-vfs handles and scheme ports. 2007-09-25 Andy Wingo * == Released guile-gnome-platform version 2.15.94 == 2007-09-25 Andy Wingo * NEWS: Updated. 2007-06-15 Andy Wingo * == Released guile-gnome-platform version 2.15.93 == 2007-05-24 Andy Wingo * == Released guile-gnome-platform version 2.15.92 == 2007-05-24 Andy Wingo * gnome/overrides/gnome-vfs.defs-type-ignores: Update for names that don't follow standard conventions. * gnome/overrides/gnome-vfs.defs: Update ignores for gnome-vfs 2.16. * gnome/gw/gnome-vfs-spec.scm (global-declarations-cg): Include gnome-vfs-mime.h also. 2007-05-13 Andy Wingo * gnome/gw/gnome-vfs-spec.scm (initialize): Use uint64/int64 rather than long-long in aliases. 2007-05-10 Andy Wingo * == Released guile-gnome-platform version 2.15.91 == 2007-05-04 Andy Wingo * gnome/overrides/gnome-vfs.defs (gnome_vfs_open) (gnome_vfs_open_uri, gnome_vfs_create, gnome_vfs_create_uri) (port->handle): Don't leave guile mode for functions that deal in SCM. 2006-12-15 Andy Wingo * == Released guile-gnome-platform version 2.15.90 == 2006-11-05 Andy Wingo * gnome/gw/gnome-vfs-spec.scm: Use (gnome gw support g-wrap), the g-wrap compatibility wrapper. 2006-10-26 Andy Wingo * gnome/overrides/gnome-vfs.defs ("gnome_vfs_mime_add_extension"): No more bonobo functions in new gnome-vfs. * gnome/gw/gnome-vfs-port.c (LOCK, UNLOCK): Fix locking. * package.ac: * gnome/gw/Makefile.am (libgw_guile_gnome_gnome_vfs_la_CFLAGS): Hook into the standard --disable-deprecated mechanism. 2005-09-17 Andreas Rottmann * gnome/gw/gnome-vfs-port.c (vport_seek): Fix GCC 4.0 warnings. 2005-03-06 Andy Wingo * == Released guile-gnome-platform version 2.7.99 == 2005-01-11 Andy Wingo * == Released platform version 2.7.98 == 2005-01-11 Andy Wingo * gnome/overrides/gnome-vfs.defs-type-ignores (GnomeVFSMimeAction) (GnomeVFSMimeActionType): * gnome/overrides/gnome-vfs.defs (gnome_vfs_mime_id_in_application_list) (gnome_vfs_mime_id_in_component_list) (gnome_vfs_mime_action_launch) (gnome_vfs_mime_action_launch_with_env) (gnome_vfs_mime_get_all_desktop_entries) (gnome_vfs_application_is_user_owned_application) (gnome_vfs_mime_get_default_action_type) (gnome_vfs_mime_get_default_action) (gnome_vfs_mime_get_icon) (gnome_vfs_mime_application_new_from_id) (gnome_vfs_mime_get_default_desktop_entry): Ignored, because they are deprecated in 2.8 and this API doesn't have users. 2004-12-06 Andy Wingo * == Released platform version 2.7.97 == 2004-11-15 Andy Wingo * package.ac: Add record_check. 2004-10-28 Andy Wingo * glib-checks.ac: * defs-checks.ac: Versioned pkg-config check 2004-10-26 Andy Wingo * gnome/gw/Makefile.am (guilegnomelib_LTLIBRARIES): Install to versioned directory. 2004-10-16 Andy Wingo * package.ac: Require gnome-vfs-2.0 >= 2.8.0. 2004-10-14 Andy Wingo * gnome/gw/gnome-vfs-spec.scm (wrap-value-cg): Throw to 'gnome-vfs-error with the specific kind of error as an argument. * gnome/gw/gnome-vfs-support.h (RESULT_ERROR): Same. * gnome/overrides/gnome-vfs.defs (gnome_vfs_result_to_string): Define as a function, not a method. 2004-10-10 Andy Wingo * gnome/overrides/Makefile.am (module_DATA): Dist the type-ignores. * gnome/overrides/gnome-vfs.defs: Adjust the prototypes of the open/create procs to return SCM. Add a wrapper for port->handle. * gnome/gw/gnome-vfs-support.[ch] (_wrap_gnome_vfs_open) (_wrap_gnome_vfs_open_uri, _wrap_gnome_vfs_create) (_wrap_gnome_vfs_create_uri): Return ports instead of handles. * gnome/gw/Makefile.am, gnome/gw/gnome-vfs-spec.scm: Pull the -port files into the build. * gnome/gw/gnome-vfs-port.[ch]: New file which wraps a GnomeVFSHandle into a scheme port. Also implements port->handle. 2004-10-09 Andy Wingo * gnome/Makefile.am: Adjusted for (gnome vfs). * gnome/vfs.scm: Moved from (gnome gnome-vfs). Don't bring in GTK. * package.ac: Check for gnome-vfs-2.0. * gnome/gw/gnome-vfs-spec.scm: Add a custom wrapper for GnomeVFSResult that will throw an error if the result is not ok, unspecified otherwise. Alias FileSize and FileOffset to the appropriate g-wrap/standard types. (global-declarations-cg): Include a bunch more headers. (initializations-cg): Call gnome_vfs_init(). Ref the GnomeVFSResult enum class so we can just peek it later. * gnome/gw/Makefile.am (libgw_guile_gnome_gnome_vfs_la_CFLAGS): Compile with -DGNOME_VFS_DISABLE_DEPRECATED. * gnome/overrides/gnome-vfs.defs-type-ignores: Ignore GnomeVFSResult due to a custom wrapper. Ignore deprecated types. * gnome/gw/gnome-vfs-support.[ch] (_wrap_gnome_vfs_directory_open) (_wrap_gnome_vfs_directory_open_from_uri, _wrap_gnome_vfs_open) (_wrap_gnome_vfs_open_uri, _wrap_gnome_vfs_create) (_wrap_gnome_vfs_create_uri): Custom wrappers for procedures that create handles. * gnome/overrides/gnome-vfs.defs: Add subtype specifiers for functions taking or returning lists, custom wrappers for procedures that create handles, and ignores for deprecated procedures. * package.ac: Check the right pkg-config module. * Initial import via guile-gnome-template's `templatize' routine. guile-gnome-platform-2.16.2/gnome-vfs/ChangeLog0000644000175000017500000000006711670374302021645 0ustar00wingowingo00000000000000See the revision control log for changes since 2.16.0. guile-gnome-platform-2.16.2/Makefile.am0000644000175000017500000000075511752516700020233 0ustar00wingowingo00000000000000# this file is generated by autogen-pkg.sh SUBDIRS = defs glib cairo atk pango gtk libgnomeui libgnomecanvas libgnome libglade gnome-vfs gconf corba EXTRA_DIST = dev-environ.in h2def.py autogen.sh HACKING ChangeLog.pre-2.16 dist-gzip: distdir $(AMTAR) --format=ustar -chf - $(distdir) | GZIP=$(GZIP_ENV) gzip -c >$(distdir).tar.gz $(am__remove_distdir) dist dist-all: distdir $(AMTAR) --format=ustar -chf - $(distdir) | GZIP=$(GZIP_ENV) gzip -c >$(distdir).tar.gz $(am__remove_distdir) guile-gnome-platform-2.16.2/corba/0000755000175000017500000000000011752546506017265 5ustar00wingowingo00000000000000guile-gnome-platform-2.16.2/corba/doc/0000755000175000017500000000000011752546506020032 5ustar00wingowingo00000000000000guile-gnome-platform-2.16.2/corba/doc/guile-gnome-corba.info0000644000175000017500000004223011670705060024173 0ustar00wingowingo00000000000000This is guile-gnome-corba.info, produced by makeinfo version 4.13 from guile-gnome-corba.texi. This manual is for Guile-GNOME: CORBA (version 2.16.0, updated 12 June 2008) Copyright 2001,2003,2004,2008 Free Software Foundation Permission is granted to copy, distribute and/or modify this document under the terms of the GNU General Public License, Version 2 or any later version published by the Free Software Foundation. INFO-DIR-SECTION The Algorithmic Language Scheme START-INFO-DIR-ENTRY * Guile-GNOME: CORBA: (guile-gnome-corba.info). Remote objects with CORBA in Scheme. END-INFO-DIR-ENTRY  File: guile-gnome-corba.info, Node: Top, Next: gnome corba, Up: (dir) Guile-GNOME: CORBA ****************** This manual is for Guile-GNOME: CORBA (version 2.16.0, updated 12 June 2008) Copyright 2001,2003,2004,2008 Free Software Foundation Permission is granted to copy, distribute and/or modify this document under the terms of the GNU General Public License, Version 2 or any later version published by the Free Software Foundation. * Menu: * gnome corba:: The CORBA wrapper * gnome corba primitives:: Primitive functions * gnome corba types:: Primtive types * Function Index::  File: guile-gnome-corba.info, Node: gnome corba, Next: gnome corba primitives, Prev: Top, Up: Top 1 (gnome corba) *************** 1.1 Overview ============ A CORBA wrapper for Guile. 1.2 Opening CORBA modules ========================= `(gnome corba)' allows full integration between Scheme and remote CORBA objects. However, the problem is how to get type information about these remote objects - it's not very useful to have an opaque `' in Scheme. It's also not very useful if you can't write your own CORBA servants in Scheme. Basically, there are two ways to solve this problem. You can parse the type's interface description language (IDL) at runtime, or you can get the necessary information from some other source. `(gnome corba)' does the latter, via so-called "imodules". Imodules are a feature of ORBit2, the ORB used in GNOME. ORBit2 is a CORBA 2.4-compliant Object Request Broker (ORB), which is of course interoperable with other ORB implementations. An imodule is a shared library, installed as `$(libdir)/_imodule.la'. To create such a library for your own IDL, you need to run ORBit2's IDL compiler, `orbit-idl', with the `--imodule' argument. See the `demos/corba/' directory in this distribution for an example. As an example, the rest of this section will refer to the sample IDL which can be found in `demos/corba/Foo.idl' in this distribution. Once you have installed the `Foo' CORBA library (including its imodule), you can load its type information into Scheme by calling: (corba-primitive-open-module "Foo") As a side effect, this call will define all of the GOOPS classes and methods associated with the `Foo' module. If there is a CORBA interface `Foo::Hello', `corba-primitive-open-module' will create a GOOPS class `' which serves as stub class and another GOOPS class `' which serves as skeleton class. All stub classes are derived from `' and their CORBA class hierarchy is preserved in Scheme. All skeleton classes are derived from `' and their CORBA class hierarchy is preserved as well. 1.3 Calling CORBA Methods ========================= To call a CORBA method, all you need to do is to invoke the corresponding method in the stub class. Let's assume `hello' is an instance of the `' class. We may invoke the `Foo::Hello::doHello' method directly, in a most Schemely fashion: (Foo:Hello:doHello hello) So to call CORBA methods, you don't even need to know that it's CORBA. If a CORBA exception is signalled, a Scheme error will be thrown to the key `corba-system-exception' or `corba-user-exception', as appropriate. 1.4 Implementing CORBA servants =============================== The interesting part is to implement CORBA servants in Scheme. Let's assume you want to write a servant for the `Foo::Hello' interface. The first thing you need to do is to derive its POA class (define-class ()) Then, you define methods: (define-method (Foo:Hello:doHello (hello )) (display (list "Hello World!" hello)) (newline)) If you call `(next-method)', the POA class' method will be run, which by default will throw a `CORBA::NO_IMPLEMENT' system exception. However, you can override this: (define-method (Foo:Bar:Baz:haveFun (object ) a b) (display (list "Default Foo:Bar:Baz:haveFun handler!" a b)) (newline)) If you created all the methods, you can create servants and call `corba-servant->reference' to get a `CORBA::Object' reference: (define servant (make )) (define hello (corba-servant->reference servant)) Now you have a CORBA Object `hello', and can invoke methods on it: (Foo:Hello:doHello hello) Although this looks like a normal Scheme procedural application, this is a "real" CORBA call: `hello' is a "normal" CORBA Object. Note of course that any CORBA Objects which you create in Guile are "owned" by Guile's garbage collector, so make sure to `CORBA_Object_duplicate()' in a C function before you store it somewhere. 1.5 Multiple inheritance ======================== Like in C, you can also create servants for CORBA interfaces which are derived from other interfaces: (define-class ( )) (define-method (Foo:Hello:doHello (hello )) (display (list "Hello Maximum World!" hello)) (newline) (next-method)) (define maximum-servant (make )) (define maximum (corba-servant->reference maximum-servant)) This creates a new servant for the CORBA interface `Foo::MaximumHello' which is derived from `Foo::Hello' and `Foo::Bar::Baz'. This inheritance is reflected in Scheme. ;; Calls method `Foo:Hello:doHello' in class and then ;; in because of the (next-method). (Foo:Hello:doHello maximum) ;; Calls method `Foo:Bar:Baz:haveFun' in class , ;; the default handler. (Foo:Bar:Baz:haveFun maximum 1 2) Since we're using real CORBA calls, all of this also works for calls which are coming "from the outside", i.e. from C or from a remote process. 1.6 An important limitation =========================== CORBA servants can be implemented either in C or in Scheme, but you cannot mix them. For example, in the example above, you learned how to create a CORBA servant for the `Foo::MaximumHello' CORBA interface in Scheme. Now let's assume you already have an implementation for the `Foo::Hello' interface in C. Even if `Foo::MaximumHello' is derived from `Foo::Hello', you cannot use the `Foo::Hello' C implementation in Scheme. This limitation may sound obvious, but it's not so obvious at all if you're a bit familiar with CORBA. In C, you would normally expect to have a `vepv' and a `epv' vector in a CORBA servant, and to be able to poke around in the vepv to override methods. As an ORBit2 specific implementation detail, servants which you create from Scheme don't have a `vepv' at all and the `epv' is not what you'd expect - the `epv' entries are Scheme vectors and not pointers to C functions. 1.7 CORBA structs / sequences ============================= There is also support to access CORBA structs / sequences from Scheme, including a special record type for structs. See the source code for details. 1.8 Usage ========= -- Class: -- Class: -- Variable: corba-record-type-vtable -- Primitive: bonobo-get-object moniker class -- Primitive: bonobo-object-query-interface object class -- Primitive: corba-servant->reference servant -- Function: corba-record-accessor rtd field-name -- Function: corba-record-constructor rtd . opt -- Function: corba-record-constructor-from-struct rtd -- Function: corba-record-modifier rtd field-name -- Function: corba-record-predicate rtd -- Function: corba-record-type-descriptor obj -- Function: corba-record-type-fields obj -- Function: corba-record-type? obj -- Function: corba-record-typecode obj -- Function: corba-record? obj -- Function: corba-sequence->list sequence -- Function: corba-struct->record struct -- Function: gnome-corba-error format-string . args -- Function: make-corba-record-type typecode . opt  File: guile-gnome-corba.info, Node: gnome corba primitives, Next: gnome corba types, Prev: gnome corba, Up: Top 2 (gnome corba primitives) ************************** 2.1 Overview ============ A CORBA wrapper for Guile. 2.2 Usage ========= -- Class: -- Class: -- Primitive: corba-primitive-find-poa-class class -- Primitive: corba-primitive-invoke-method method_name imethod class args -- Primitive: corba-primitive-main -- Primitive: corba-primitive-make-poa-instance class -- Primitive: corba-primitive-open-module name -- Primitive: corba-primitive-register-interface name -- Primitive: corba-primitive-typecode->class type -- Primitive: corba-typecode-primitive->name typecode -- Primitive: corba-typecode-primitive? typecode  File: guile-gnome-corba.info, Node: gnome corba types, Next: Function Index, Prev: gnome corba primitives, Up: Top 3 (gnome corba types) ********************* 3.1 Overview ============ A CORBA wrapper for Guile. 3.2 Usage ========= -- Variable: %corba-sequence-vtable -- Variable: %corba-sequence-vtable-offset-printer -- Variable: %corba-sequence-vtable-offset-user -- Variable: %corba-struct-vtable -- Variable: %corba-struct-vtable-offset-printer -- Variable: %corba-struct-vtable-offset-user -- Primitive: corba-object-class->typecode class -- Primitive: corba-sequence-length corba_sequence -- Primitive: corba-sequence-ref corba_sequence index -- Primitive: corba-sequence-set! corba_sequence index value -- Primitive: corba-sequence-set-length! corba_sequence length -- Primitive: corba-sequence-type corba_sequence -- Primitive: corba-struct-fields typecode -- Primitive: corba-struct-is-a? corba_struct typecode -- Primitive: corba-struct-ref corba_struct index -- Primitive: corba-struct-set! corba_struct index value -- Primitive: corba-struct-type corba_struct -- Primitive: corba-struct? corba_struct -- Primitive: corba-typecode->gtype-class typecode -- Primitive: make-corba-sequence typecode num_tail_elts init_smob -- Primitive: make-corba-struct typecode num_tail_elts init_struct -- Function: gnome-corba-error format-string . args  File: guile-gnome-corba.info, Node: Function Index, Prev: gnome corba types, Up: Top Function Index ************** [index] * Menu: * bonobo-get-object: gnome corba. (line 186) * bonobo-object-query-interface: gnome corba. (line 188) * corba-object-class->typecode: gnome corba types. (line 27) * corba-primitive-find-poa-class: gnome corba primitives. (line 19) * corba-primitive-invoke-method: gnome corba primitives. (line 22) * corba-primitive-main: gnome corba primitives. (line 24) * corba-primitive-make-poa-instance: gnome corba primitives. (line 26) * corba-primitive-open-module: gnome corba primitives. (line 28) * corba-primitive-register-interface: gnome corba primitives. (line 30) * corba-primitive-typecode->class: gnome corba primitives. (line 32) * corba-record-accessor: gnome corba. (line 192) * corba-record-constructor: gnome corba. (line 194) * corba-record-constructor-from-struct: gnome corba. (line 196) * corba-record-modifier: gnome corba. (line 198) * corba-record-predicate: gnome corba. (line 200) * corba-record-type-descriptor: gnome corba. (line 202) * corba-record-type-fields: gnome corba. (line 204) * corba-record-type?: gnome corba. (line 206) * corba-record-typecode: gnome corba. (line 208) * corba-record?: gnome corba. (line 210) * corba-sequence->list: gnome corba. (line 212) * corba-sequence-length: gnome corba types. (line 29) * corba-sequence-ref: gnome corba types. (line 31) * corba-sequence-set!: gnome corba types. (line 33) * corba-sequence-set-length!: gnome corba types. (line 35) * corba-sequence-type: gnome corba types. (line 37) * corba-servant->reference: gnome corba. (line 190) * corba-struct->record: gnome corba. (line 214) * corba-struct-fields: gnome corba types. (line 39) * corba-struct-is-a?: gnome corba types. (line 41) * corba-struct-ref: gnome corba types. (line 43) * corba-struct-set!: gnome corba types. (line 45) * corba-struct-type: gnome corba types. (line 47) * corba-struct?: gnome corba types. (line 49) * corba-typecode->gtype-class: gnome corba types. (line 51) * corba-typecode-primitive->name: gnome corba primitives. (line 34) * corba-typecode-primitive?: gnome corba primitives. (line 36) * gnome-corba-error <1>: gnome corba types. (line 57) * gnome-corba-error: gnome corba. (line 216) * make-corba-record-type: gnome corba. (line 218) * make-corba-sequence: gnome corba types. (line 53) * make-corba-struct: gnome corba types. (line 55)  Tag Table: Node: Top626 Node: gnome corba1256 Ref: gnome corba 7749 Ref: gnome corba 7776 Ref: gnome corba corba-record-type-vtable7817 Ref: gnome corba bonobo-get-object7857 Ref: gnome corba bonobo-object-query-interface7905 Ref: gnome corba corba-servant->reference7964 Ref: gnome corba corba-record-accessor8013 Ref: gnome corba corba-record-constructor8065 Ref: gnome corba corba-record-constructor-from-struct8115 Ref: gnome corba corba-record-modifier8171 Ref: gnome corba corba-record-predicate8223 Ref: gnome corba corba-record-type-descriptor8265 Ref: gnome corba corba-record-type-fields8313 Ref: gnome corba corba-record-type?8357 Ref: gnome corba corba-record-typecode8395 Ref: gnome corba corba-record?8436 Ref: gnome corba corba-sequence->list8469 Ref: gnome corba corba-struct->record8514 Ref: gnome corba gnome-corba-error8557 Ref: gnome corba make-corba-record-type8611 Node: gnome corba primitives8664 Ref: gnome corba primitives 8914 Ref: gnome corba primitives 8941 Ref: gnome corba primitives corba-primitive-find-poa-class8982 Ref: gnome corba primitives corba-primitive-invoke-method9035 Ref: gnome corba primitives corba-primitive-main9122 Ref: gnome corba primitives corba-primitive-make-poa-instance9159 Ref: gnome corba primitives corba-primitive-open-module9215 Ref: gnome corba primitives corba-primitive-register-interface9264 Ref: gnome corba primitives corba-primitive-typecode->class9320 Ref: gnome corba primitives corba-typecode-primitive->name9373 Ref: gnome corba primitives corba-typecode-primitive?9429 Node: gnome corba types9480 Ref: gnome corba types %corba-sequence-vtable9723 Ref: gnome corba types %corba-sequence-vtable-offset-printer9761 Ref: gnome corba types %corba-sequence-vtable-offset-user9814 Ref: gnome corba types %corba-struct-vtable9864 Ref: gnome corba types %corba-struct-vtable-offset-printer9900 Ref: gnome corba types %corba-struct-vtable-offset-user9951 Ref: gnome corba types corba-object-class->typecode9999 Ref: gnome corba types corba-sequence-length10050 Ref: gnome corba types corba-sequence-ref10103 Ref: gnome corba types corba-sequence-set!10159 Ref: gnome corba types corba-sequence-set-length!10222 Ref: gnome corba types corba-sequence-type10287 Ref: gnome corba types corba-struct-fields10338 Ref: gnome corba types corba-struct-is-a?10383 Ref: gnome corba types corba-struct-ref10440 Ref: gnome corba types corba-struct-set!10492 Ref: gnome corba types corba-struct-type10551 Ref: gnome corba types corba-struct?10598 Ref: gnome corba types corba-typecode->gtype-class10641 Ref: gnome corba types make-corba-sequence10694 Ref: gnome corba types make-corba-struct10763 Ref: gnome corba types gnome-corba-error10832 Node: Function Index10886  End Tag Table guile-gnome-platform-2.16.2/corba/doc/Makefile.am0000644000175000017500000000050311670374302022054 0ustar00wingowingo00000000000000doc=guile-gnome-corba DOT_DOC_FILES=$(wildcard $(top_builddir)/corba/gnome/corba/*.doc) EXTRA_DIST=$(doc).scm make-texinfo.scm update-docs: $(top_builddir)/dev-environ $(srcdir)/make-texinfo.scm $(srcdir)/$(doc).scm $(DOT_DOC_FILES) > $(doc).texi.tmp mv $(doc).texi.tmp $(doc).texi info_TEXINFOS=guile-gnome-corba.texi guile-gnome-platform-2.16.2/corba/doc/Makefile.in0000644000175000017500000005573411752511065022105 0ustar00wingowingo00000000000000# Makefile.in generated by automake 1.11.5 from Makefile.am. # @configure_input@ # Copyright (C) 1994, 1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, # 2003, 2004, 2005, 2006, 2007, 2008, 2009, 2010, 2011 Free Software # Foundation, Inc. # This Makefile.in is free software; the Free Software Foundation # gives unlimited permission to copy and/or distribute it, # with or without modifications, as long as this notice is preserved. # This program is distributed in the hope that it will be useful, # but WITHOUT ANY WARRANTY, to the extent permitted by law; without # even the implied warranty of MERCHANTABILITY or FITNESS FOR A # PARTICULAR PURPOSE. @SET_MAKE@ VPATH = @srcdir@ am__make_dryrun = \ { \ am__dry=no; \ case $$MAKEFLAGS in \ *\\[\ \ ]*) \ echo 'am--echo: ; @echo "AM" OK' | $(MAKE) -f - 2>/dev/null \ | grep '^AM OK$$' >/dev/null || am__dry=yes;; \ *) \ for am__flg in $$MAKEFLAGS; do \ case $$am__flg in \ *=*|--*) ;; \ *n*) am__dry=yes; break;; \ esac; \ done;; \ esac; \ test $$am__dry = yes; \ } pkgdatadir = $(datadir)/@PACKAGE@ pkgincludedir = $(includedir)/@PACKAGE@ pkglibdir = $(libdir)/@PACKAGE@ pkglibexecdir = $(libexecdir)/@PACKAGE@ am__cd = CDPATH="$${ZSH_VERSION+.}$(PATH_SEPARATOR)" && cd install_sh_DATA = $(install_sh) -c -m 644 install_sh_PROGRAM = $(install_sh) -c install_sh_SCRIPT = $(install_sh) -c INSTALL_HEADER = $(INSTALL_DATA) transform = $(program_transform_name) NORMAL_INSTALL = : PRE_INSTALL = : POST_INSTALL = : NORMAL_UNINSTALL = : PRE_UNINSTALL = : POST_UNINSTALL = : build_triplet = @build@ host_triplet = @host@ subdir = corba/doc DIST_COMMON = $(srcdir)/Makefile.am $(srcdir)/Makefile.in ACLOCAL_M4 = $(top_srcdir)/aclocal.m4 am__aclocal_m4_deps = $(top_srcdir)/configure.ac am__configure_deps = $(am__aclocal_m4_deps) $(CONFIGURE_DEPENDENCIES) \ $(ACLOCAL_M4) mkinstalldirs = $(install_sh) -d CONFIG_HEADER = $(top_builddir)/config.h CONFIG_CLEAN_FILES = CONFIG_CLEAN_VPATH_FILES = SOURCES = DIST_SOURCES = INFO_DEPS = $(srcdir)/guile-gnome-corba.info TEXINFO_TEX = $(top_srcdir)/build-aux/texinfo.tex am__TEXINFO_TEX_DIR = $(top_srcdir)/build-aux DVIS = guile-gnome-corba.dvi PDFS = guile-gnome-corba.pdf PSS = guile-gnome-corba.ps HTMLS = guile-gnome-corba.html TEXINFOS = guile-gnome-corba.texi TEXI2DVI = texi2dvi TEXI2PDF = $(TEXI2DVI) --pdf --batch MAKEINFOHTML = $(MAKEINFO) --html AM_MAKEINFOHTMLFLAGS = $(AM_MAKEINFOFLAGS) DVIPS = dvips am__can_run_installinfo = \ case $$AM_UPDATE_INFO_DIR in \ n|no|NO) false;; \ *) (install-info --version) >/dev/null 2>&1;; \ esac am__installdirs = "$(DESTDIR)$(infodir)" am__vpath_adj_setup = srcdirstrip=`echo "$(srcdir)" | sed 's|.|.|g'`; am__vpath_adj = case $$p in \ $(srcdir)/*) f=`echo "$$p" | sed "s|^$$srcdirstrip/||"`;; \ *) f=$$p;; \ esac; am__strip_dir = f=`echo $$p | sed -e 's|^.*/||'`; am__install_max = 40 am__nobase_strip_setup = \ srcdirstrip=`echo "$(srcdir)" | sed 's/[].[^$$\\*|]/\\\\&/g'` am__nobase_strip = \ for p in $$list; do echo "$$p"; done | sed -e "s|$$srcdirstrip/||" am__nobase_list = $(am__nobase_strip_setup); \ for p in $$list; do echo "$$p $$p"; done | \ sed "s| $$srcdirstrip/| |;"' / .*\//!s/ .*/ ./; s,\( .*\)/[^/]*$$,\1,' | \ $(AWK) 'BEGIN { files["."] = "" } { files[$$2] = files[$$2] " " $$1; \ if (++n[$$2] == $(am__install_max)) \ { print $$2, files[$$2]; n[$$2] = 0; files[$$2] = "" } } \ END { for (dir in files) print dir, files[dir] }' am__base_list = \ sed '$$!N;$$!N;$$!N;$$!N;$$!N;$$!N;$$!N;s/\n/ /g' | \ sed '$$!N;$$!N;$$!N;$$!N;s/\n/ /g' am__uninstall_files_from_dir = { \ test -z "$$files" \ || { test ! -d "$$dir" && test ! -f "$$dir" && test ! -r "$$dir"; } \ || { echo " ( cd '$$dir' && rm -f" $$files ")"; \ $(am__cd) "$$dir" && rm -f $$files; }; \ } DISTFILES = $(DIST_COMMON) $(DIST_SOURCES) $(TEXINFOS) $(EXTRA_DIST) ACLOCAL = @ACLOCAL@ AG_PKG_CONFIG_PATH = @AG_PKG_CONFIG_PATH@ AMTAR = @AMTAR@ API_VERSION = @API_VERSION@ AR = @AR@ ATK_CFLAGS = @ATK_CFLAGS@ ATK_LIBS = @ATK_LIBS@ AUTOCONF = @AUTOCONF@ AUTOHEADER = @AUTOHEADER@ AUTOMAKE = @AUTOMAKE@ AWK = @AWK@ BONOBO_IDL_DIR = @BONOBO_IDL_DIR@ CANVAS_CFLAGS = @CANVAS_CFLAGS@ CANVAS_LIBS = @CANVAS_LIBS@ CC = @CC@ CCDEPMODE = @CCDEPMODE@ CFLAGS = @CFLAGS@ CORBA_CFLAGS = @CORBA_CFLAGS@ CORBA_LIBS = @CORBA_LIBS@ CPP = @CPP@ CPPFLAGS = @CPPFLAGS@ CYGPATH_W = @CYGPATH_W@ DEFS = @DEFS@ DEPDIR = @DEPDIR@ DLLTOOL = @DLLTOOL@ DSYMUTIL = @DSYMUTIL@ DUMPBIN = @DUMPBIN@ ECHO_C = @ECHO_C@ ECHO_N = @ECHO_N@ ECHO_T = @ECHO_T@ EGREP = @EGREP@ EXEEXT = @EXEEXT@ FGREP = @FGREP@ GCONF_CFLAGS = @GCONF_CFLAGS@ GCONF_LIBS = @GCONF_LIBS@ GDK_CFLAGS = @GDK_CFLAGS@ GDK_LIBS = @GDK_LIBS@ GDK_PIXBUF_CFLAGS = @GDK_PIXBUF_CFLAGS@ GDK_PIXBUF_LIBS = @GDK_PIXBUF_LIBS@ GLIB_CFLAGS = @GLIB_CFLAGS@ GLIB_LIBS = @GLIB_LIBS@ GNOMEUI_DEPRECATION_FLAGS = @GNOMEUI_DEPRECATION_FLAGS@ GNOME_VFS_CFLAGS = @GNOME_VFS_CFLAGS@ GNOME_VFS_DEPRECATED_CFLAGS = @GNOME_VFS_DEPRECATED_CFLAGS@ GNOME_VFS_LIBS = @GNOME_VFS_LIBS@ GOBJECT_CFLAGS = @GOBJECT_CFLAGS@ GOBJECT_LIBS = @GOBJECT_LIBS@ GREP = @GREP@ GTHREAD_CFLAGS = @GTHREAD_CFLAGS@ GTHREAD_LIBS = @GTHREAD_LIBS@ GTK_CFLAGS = @GTK_CFLAGS@ GTK_DEPRECATED_CFLAGS = @GTK_DEPRECATED_CFLAGS@ GTK_LIBS = @GTK_LIBS@ GUILE_CAIRO_CFLAGS = @GUILE_CAIRO_CFLAGS@ GUILE_CAIRO_LIBS = @GUILE_CAIRO_LIBS@ GUILE_CFLAGS = @GUILE_CFLAGS@ GUILE_EFFECTIVE_VERSION = @GUILE_EFFECTIVE_VERSION@ GUILE_GLIB_CFLAGS = @GUILE_GLIB_CFLAGS@ GUILE_GLIB_LIBS = @GUILE_GLIB_LIBS@ GUILE_LIBS = @GUILE_LIBS@ G_WRAP_CFLAGS = @G_WRAP_CFLAGS@ G_WRAP_LIBS = @G_WRAP_LIBS@ G_WRAP_LIB_DIR = @G_WRAP_LIB_DIR@ G_WRAP_MODULE_DIR = @G_WRAP_MODULE_DIR@ INSTALL = @INSTALL@ INSTALL_DATA = @INSTALL_DATA@ INSTALL_PROGRAM = @INSTALL_PROGRAM@ INSTALL_SCRIPT = @INSTALL_SCRIPT@ INSTALL_STRIP_PROGRAM = @INSTALL_STRIP_PROGRAM@ LD = @LD@ LDFLAGS = @LDFLAGS@ LIBGLADE_CFLAGS = @LIBGLADE_CFLAGS@ LIBGLADE_LIBS = @LIBGLADE_LIBS@ LIBGNOMEUI_CFLAGS = @LIBGNOMEUI_CFLAGS@ LIBGNOMEUI_LIBS = @LIBGNOMEUI_LIBS@ LIBGNOME_CFLAGS = @LIBGNOME_CFLAGS@ LIBGNOME_LIBS = @LIBGNOME_LIBS@ LIBOBJS = @LIBOBJS@ LIBS = @LIBS@ LIBTOOL = @LIBTOOL@ LIPO = @LIPO@ LN_S = @LN_S@ LTLIBOBJS = @LTLIBOBJS@ MAKEINFO = @MAKEINFO@ MANIFEST_TOOL = @MANIFEST_TOOL@ MKDIR_P = @MKDIR_P@ NM = @NM@ NMEDIT = @NMEDIT@ OBJDUMP = @OBJDUMP@ OBJEXT = @OBJEXT@ ORBIT_IDL = @ORBIT_IDL@ OTOOL = @OTOOL@ OTOOL64 = @OTOOL64@ PACKAGE = @PACKAGE@ PACKAGE_BUGREPORT = @PACKAGE_BUGREPORT@ PACKAGE_NAME = @PACKAGE_NAME@ PACKAGE_STRING = @PACKAGE_STRING@ PACKAGE_TARNAME = @PACKAGE_TARNAME@ PACKAGE_URL = @PACKAGE_URL@ PACKAGE_VERSION = @PACKAGE_VERSION@ PANGOCAIRO_CFLAGS = @PANGOCAIRO_CFLAGS@ PANGOCAIRO_LIBS = @PANGOCAIRO_LIBS@ PANGO_CFLAGS = @PANGO_CFLAGS@ PANGO_LIBS = @PANGO_LIBS@ PATH_SEPARATOR = @PATH_SEPARATOR@ PKG_CONFIG = @PKG_CONFIG@ PKG_CONFIG_LIBDIR = @PKG_CONFIG_LIBDIR@ PKG_CONFIG_PATH = @PKG_CONFIG_PATH@ RANLIB = @RANLIB@ SED = @SED@ SET_MAKE = @SET_MAKE@ SHELL = @SHELL@ STRIP = @STRIP@ VERSION = @VERSION@ WARN_CFLAGS = @WARN_CFLAGS@ abs_builddir = @abs_builddir@ abs_srcdir = @abs_srcdir@ abs_top_builddir = @abs_top_builddir@ abs_top_srcdir = @abs_top_srcdir@ ac_ct_AR = @ac_ct_AR@ ac_ct_CC = @ac_ct_CC@ ac_ct_DUMPBIN = @ac_ct_DUMPBIN@ am__include = @am__include@ am__leading_dot = @am__leading_dot@ am__quote = @am__quote@ am__tar = @am__tar@ am__untar = @am__untar@ bindir = @bindir@ build = @build@ build_alias = @build_alias@ build_cpu = @build_cpu@ build_os = @build_os@ build_vendor = @build_vendor@ builddir = @builddir@ datadir = @datadir@ datarootdir = @datarootdir@ docdir = @docdir@ dvidir = @dvidir@ exec_prefix = @exec_prefix@ host = @host@ host_alias = @host_alias@ host_cpu = @host_cpu@ host_os = @host_os@ host_vendor = @host_vendor@ htmldir = @htmldir@ includedir = @includedir@ infodir = @infodir@ install_sh = @install_sh@ libdir = @libdir@ libexecdir = @libexecdir@ localedir = @localedir@ localstatedir = @localstatedir@ mandir = @mandir@ mkdir_p = @mkdir_p@ oldincludedir = @oldincludedir@ pdfdir = @pdfdir@ prefix = @prefix@ program_transform_name = @program_transform_name@ psdir = @psdir@ sbindir = @sbindir@ sharedstatedir = @sharedstatedir@ srcdir = @srcdir@ sysconfdir = @sysconfdir@ target_alias = @target_alias@ top_build_prefix = @top_build_prefix@ top_builddir = @top_builddir@ top_srcdir = @top_srcdir@ doc = guile-gnome-corba DOT_DOC_FILES = $(wildcard $(top_builddir)/corba/gnome/corba/*.doc) EXTRA_DIST = $(doc).scm make-texinfo.scm info_TEXINFOS = guile-gnome-corba.texi all: all-am .SUFFIXES: .SUFFIXES: .dvi .html .info .pdf .ps .texi $(srcdir)/Makefile.in: $(srcdir)/Makefile.am $(am__configure_deps) @for dep in $?; do \ case '$(am__configure_deps)' in \ *$$dep*) \ ( cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh ) \ && { if test -f $@; then exit 0; else break; fi; }; \ exit 1;; \ esac; \ done; \ echo ' cd $(top_srcdir) && $(AUTOMAKE) --gnu corba/doc/Makefile'; \ $(am__cd) $(top_srcdir) && \ $(AUTOMAKE) --gnu corba/doc/Makefile .PRECIOUS: Makefile Makefile: $(srcdir)/Makefile.in $(top_builddir)/config.status @case '$?' in \ *config.status*) \ cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh;; \ *) \ echo ' cd $(top_builddir) && $(SHELL) ./config.status $(subdir)/$@ $(am__depfiles_maybe)'; \ cd $(top_builddir) && $(SHELL) ./config.status $(subdir)/$@ $(am__depfiles_maybe);; \ esac; $(top_builddir)/config.status: $(top_srcdir)/configure $(CONFIG_STATUS_DEPENDENCIES) cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh $(top_srcdir)/configure: $(am__configure_deps) cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh $(ACLOCAL_M4): $(am__aclocal_m4_deps) cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh $(am__aclocal_m4_deps): mostlyclean-libtool: -rm -f *.lo clean-libtool: -rm -rf .libs _libs .texi.info: restore=: && backupdir="$(am__leading_dot)am$$$$" && \ am__cwd=`pwd` && $(am__cd) $(srcdir) && \ rm -rf $$backupdir && mkdir $$backupdir && \ if ($(MAKEINFO) --version) >/dev/null 2>&1; then \ for f in $@ $@-[0-9] $@-[0-9][0-9] $(@:.info=).i[0-9] $(@:.info=).i[0-9][0-9]; do \ if test -f $$f; then mv $$f $$backupdir; restore=mv; else :; fi; \ done; \ else :; fi && \ cd "$$am__cwd"; \ if $(MAKEINFO) $(AM_MAKEINFOFLAGS) $(MAKEINFOFLAGS) -I $(srcdir) \ -o $@ $<; \ then \ rc=0; \ $(am__cd) $(srcdir); \ else \ rc=$$?; \ $(am__cd) $(srcdir) && \ $$restore $$backupdir/* `echo "./$@" | sed 's|[^/]*$$||'`; \ fi; \ rm -rf $$backupdir; exit $$rc .texi.dvi: TEXINPUTS="$(am__TEXINFO_TEX_DIR)$(PATH_SEPARATOR)$$TEXINPUTS" \ MAKEINFO='$(MAKEINFO) $(AM_MAKEINFOFLAGS) $(MAKEINFOFLAGS) -I $(srcdir)' \ $(TEXI2DVI) $< .texi.pdf: TEXINPUTS="$(am__TEXINFO_TEX_DIR)$(PATH_SEPARATOR)$$TEXINPUTS" \ MAKEINFO='$(MAKEINFO) $(AM_MAKEINFOFLAGS) $(MAKEINFOFLAGS) -I $(srcdir)' \ $(TEXI2PDF) $< .texi.html: rm -rf $(@:.html=.htp) if $(MAKEINFOHTML) $(AM_MAKEINFOHTMLFLAGS) $(MAKEINFOFLAGS) -I $(srcdir) \ -o $(@:.html=.htp) $<; \ then \ rm -rf $@; \ if test ! -d $(@:.html=.htp) && test -d $(@:.html=); then \ mv $(@:.html=) $@; else mv $(@:.html=.htp) $@; fi; \ else \ if test ! -d $(@:.html=.htp) && test -d $(@:.html=); then \ rm -rf $(@:.html=); else rm -Rf $(@:.html=.htp) $@; fi; \ exit 1; \ fi $(srcdir)/guile-gnome-corba.info: guile-gnome-corba.texi guile-gnome-corba.dvi: guile-gnome-corba.texi guile-gnome-corba.pdf: guile-gnome-corba.texi guile-gnome-corba.html: guile-gnome-corba.texi .dvi.ps: TEXINPUTS="$(am__TEXINFO_TEX_DIR)$(PATH_SEPARATOR)$$TEXINPUTS" \ $(DVIPS) -o $@ $< uninstall-dvi-am: @$(NORMAL_UNINSTALL) @list='$(DVIS)'; test -n "$(dvidir)" || list=; \ for p in $$list; do \ $(am__strip_dir) \ echo " rm -f '$(DESTDIR)$(dvidir)/$$f'"; \ rm -f "$(DESTDIR)$(dvidir)/$$f"; \ done uninstall-html-am: @$(NORMAL_UNINSTALL) @list='$(HTMLS)'; test -n "$(htmldir)" || list=; \ for p in $$list; do \ $(am__strip_dir) \ echo " rm -rf '$(DESTDIR)$(htmldir)/$$f'"; \ rm -rf "$(DESTDIR)$(htmldir)/$$f"; \ done uninstall-info-am: @$(PRE_UNINSTALL) @if test -d '$(DESTDIR)$(infodir)' && $(am__can_run_installinfo); then \ list='$(INFO_DEPS)'; \ for file in $$list; do \ relfile=`echo "$$file" | sed 's|^.*/||'`; \ echo " install-info --info-dir='$(DESTDIR)$(infodir)' --remove '$(DESTDIR)$(infodir)/$$relfile'"; \ if install-info --info-dir="$(DESTDIR)$(infodir)" --remove "$(DESTDIR)$(infodir)/$$relfile"; \ then :; else test ! -f "$(DESTDIR)$(infodir)/$$relfile" || exit 1; fi; \ done; \ else :; fi @$(NORMAL_UNINSTALL) @list='$(INFO_DEPS)'; \ for file in $$list; do \ relfile=`echo "$$file" | sed 's|^.*/||'`; \ relfile_i=`echo "$$relfile" | sed 's|\.info$$||;s|$$|.i|'`; \ (if test -d "$(DESTDIR)$(infodir)" && cd "$(DESTDIR)$(infodir)"; then \ echo " cd '$(DESTDIR)$(infodir)' && rm -f $$relfile $$relfile-[0-9] $$relfile-[0-9][0-9] $$relfile_i[0-9] $$relfile_i[0-9][0-9]"; \ rm -f $$relfile $$relfile-[0-9] $$relfile-[0-9][0-9] $$relfile_i[0-9] $$relfile_i[0-9][0-9]; \ else :; fi); \ done uninstall-pdf-am: @$(NORMAL_UNINSTALL) @list='$(PDFS)'; test -n "$(pdfdir)" || list=; \ for p in $$list; do \ $(am__strip_dir) \ echo " rm -f '$(DESTDIR)$(pdfdir)/$$f'"; \ rm -f "$(DESTDIR)$(pdfdir)/$$f"; \ done uninstall-ps-am: @$(NORMAL_UNINSTALL) @list='$(PSS)'; test -n "$(psdir)" || list=; \ for p in $$list; do \ $(am__strip_dir) \ echo " rm -f '$(DESTDIR)$(psdir)/$$f'"; \ rm -f "$(DESTDIR)$(psdir)/$$f"; \ done dist-info: $(INFO_DEPS) @srcdirstrip=`echo "$(srcdir)" | sed 's|.|.|g'`; \ list='$(INFO_DEPS)'; \ for base in $$list; do \ case $$base in \ $(srcdir)/*) base=`echo "$$base" | sed "s|^$$srcdirstrip/||"`;; \ esac; \ if test -f $$base; then d=.; else d=$(srcdir); fi; \ base_i=`echo "$$base" | sed 's|\.info$$||;s|$$|.i|'`; \ for file in $$d/$$base $$d/$$base-[0-9] $$d/$$base-[0-9][0-9] $$d/$$base_i[0-9] $$d/$$base_i[0-9][0-9]; do \ if test -f $$file; then \ relfile=`expr "$$file" : "$$d/\(.*\)"`; \ test -f "$(distdir)/$$relfile" || \ cp -p $$file "$(distdir)/$$relfile"; \ else :; fi; \ done; \ done mostlyclean-aminfo: -rm -rf guile-gnome-corba.aux guile-gnome-corba.cp guile-gnome-corba.cps \ guile-gnome-corba.fn guile-gnome-corba.fns \ guile-gnome-corba.ky guile-gnome-corba.kys \ guile-gnome-corba.log guile-gnome-corba.pg \ guile-gnome-corba.pgs guile-gnome-corba.tmp \ guile-gnome-corba.toc guile-gnome-corba.tp \ guile-gnome-corba.tps guile-gnome-corba.vr \ guile-gnome-corba.vrs clean-aminfo: -test -z "guile-gnome-corba.dvi guile-gnome-corba.pdf guile-gnome-corba.ps \ guile-gnome-corba.html" \ || rm -rf guile-gnome-corba.dvi guile-gnome-corba.pdf guile-gnome-corba.ps \ guile-gnome-corba.html maintainer-clean-aminfo: @list='$(INFO_DEPS)'; for i in $$list; do \ i_i=`echo "$$i" | sed 's|\.info$$||;s|$$|.i|'`; \ echo " rm -f $$i $$i-[0-9] $$i-[0-9][0-9] $$i_i[0-9] $$i_i[0-9][0-9]"; \ rm -f $$i $$i-[0-9] $$i-[0-9][0-9] $$i_i[0-9] $$i_i[0-9][0-9]; \ done tags: TAGS TAGS: ctags: CTAGS CTAGS: distdir: $(DISTFILES) @srcdirstrip=`echo "$(srcdir)" | sed 's/[].[^$$\\*]/\\\\&/g'`; \ topsrcdirstrip=`echo "$(top_srcdir)" | sed 's/[].[^$$\\*]/\\\\&/g'`; \ list='$(DISTFILES)'; \ dist_files=`for file in $$list; do echo $$file; done | \ sed -e "s|^$$srcdirstrip/||;t" \ -e "s|^$$topsrcdirstrip/|$(top_builddir)/|;t"`; \ case $$dist_files in \ */*) $(MKDIR_P) `echo "$$dist_files" | \ sed '/\//!d;s|^|$(distdir)/|;s,/[^/]*$$,,' | \ sort -u` ;; \ esac; \ for file in $$dist_files; do \ if test -f $$file || test -d $$file; then d=.; else d=$(srcdir); fi; \ if test -d $$d/$$file; then \ dir=`echo "/$$file" | sed -e 's,/[^/]*$$,,'`; \ if test -d "$(distdir)/$$file"; then \ find "$(distdir)/$$file" -type d ! -perm -700 -exec chmod u+rwx {} \;; \ fi; \ if test -d $(srcdir)/$$file && test $$d != $(srcdir); then \ cp -fpR $(srcdir)/$$file "$(distdir)$$dir" || exit 1; \ find "$(distdir)/$$file" -type d ! -perm -700 -exec chmod u+rwx {} \;; \ fi; \ cp -fpR $$d/$$file "$(distdir)$$dir" || exit 1; \ else \ test -f "$(distdir)/$$file" \ || cp -p $$d/$$file "$(distdir)/$$file" \ || exit 1; \ fi; \ done $(MAKE) $(AM_MAKEFLAGS) \ top_distdir="$(top_distdir)" distdir="$(distdir)" \ dist-info check-am: all-am check: check-am all-am: Makefile $(INFO_DEPS) installdirs: for dir in "$(DESTDIR)$(infodir)"; do \ test -z "$$dir" || $(MKDIR_P) "$$dir"; \ done install: install-am install-exec: install-exec-am install-data: install-data-am uninstall: uninstall-am install-am: all-am @$(MAKE) $(AM_MAKEFLAGS) install-exec-am install-data-am installcheck: installcheck-am install-strip: if test -z '$(STRIP)'; then \ $(MAKE) $(AM_MAKEFLAGS) INSTALL_PROGRAM="$(INSTALL_STRIP_PROGRAM)" \ install_sh_PROGRAM="$(INSTALL_STRIP_PROGRAM)" INSTALL_STRIP_FLAG=-s \ install; \ else \ $(MAKE) $(AM_MAKEFLAGS) INSTALL_PROGRAM="$(INSTALL_STRIP_PROGRAM)" \ install_sh_PROGRAM="$(INSTALL_STRIP_PROGRAM)" INSTALL_STRIP_FLAG=-s \ "INSTALL_PROGRAM_ENV=STRIPPROG='$(STRIP)'" install; \ fi mostlyclean-generic: clean-generic: distclean-generic: -test -z "$(CONFIG_CLEAN_FILES)" || rm -f $(CONFIG_CLEAN_FILES) -test . = "$(srcdir)" || test -z "$(CONFIG_CLEAN_VPATH_FILES)" || rm -f $(CONFIG_CLEAN_VPATH_FILES) maintainer-clean-generic: @echo "This command is intended for maintainers to use" @echo "it deletes files that may require special tools to rebuild." clean: clean-am clean-am: clean-aminfo clean-generic clean-libtool mostlyclean-am distclean: distclean-am -rm -f Makefile distclean-am: clean-am distclean-generic dvi: dvi-am dvi-am: $(DVIS) html: html-am html-am: $(HTMLS) info: info-am info-am: $(INFO_DEPS) install-data-am: install-info-am install-dvi: install-dvi-am install-dvi-am: $(DVIS) @$(NORMAL_INSTALL) @list='$(DVIS)'; test -n "$(dvidir)" || list=; \ if test -n "$$list"; then \ echo " $(MKDIR_P) '$(DESTDIR)$(dvidir)'"; \ $(MKDIR_P) "$(DESTDIR)$(dvidir)" || exit 1; \ fi; \ for p in $$list; do \ if test -f "$$p"; then d=; else d="$(srcdir)/"; fi; \ echo "$$d$$p"; \ done | $(am__base_list) | \ while read files; do \ echo " $(INSTALL_DATA) $$files '$(DESTDIR)$(dvidir)'"; \ $(INSTALL_DATA) $$files "$(DESTDIR)$(dvidir)" || exit $$?; \ done install-exec-am: install-html: install-html-am install-html-am: $(HTMLS) @$(NORMAL_INSTALL) @list='$(HTMLS)'; list2=; test -n "$(htmldir)" || list=; \ if test -n "$$list"; then \ echo " $(MKDIR_P) '$(DESTDIR)$(htmldir)'"; \ $(MKDIR_P) "$(DESTDIR)$(htmldir)" || exit 1; \ fi; \ for p in $$list; do \ if test -f "$$p" || test -d "$$p"; then d=; else d="$(srcdir)/"; fi; \ $(am__strip_dir) \ d2=$$d$$p; \ if test -d "$$d2"; then \ echo " $(MKDIR_P) '$(DESTDIR)$(htmldir)/$$f'"; \ $(MKDIR_P) "$(DESTDIR)$(htmldir)/$$f" || exit 1; \ echo " $(INSTALL_DATA) '$$d2'/* '$(DESTDIR)$(htmldir)/$$f'"; \ $(INSTALL_DATA) "$$d2"/* "$(DESTDIR)$(htmldir)/$$f" || exit $$?; \ else \ list2="$$list2 $$d2"; \ fi; \ done; \ test -z "$$list2" || { echo "$$list2" | $(am__base_list) | \ while read files; do \ echo " $(INSTALL_DATA) $$files '$(DESTDIR)$(htmldir)'"; \ $(INSTALL_DATA) $$files "$(DESTDIR)$(htmldir)" || exit $$?; \ done; } install-info: install-info-am install-info-am: $(INFO_DEPS) @$(NORMAL_INSTALL) @srcdirstrip=`echo "$(srcdir)" | sed 's|.|.|g'`; \ list='$(INFO_DEPS)'; test -n "$(infodir)" || list=; \ if test -n "$$list"; then \ echo " $(MKDIR_P) '$(DESTDIR)$(infodir)'"; \ $(MKDIR_P) "$(DESTDIR)$(infodir)" || exit 1; \ fi; \ for file in $$list; do \ case $$file in \ $(srcdir)/*) file=`echo "$$file" | sed "s|^$$srcdirstrip/||"`;; \ esac; \ if test -f $$file; then d=.; else d=$(srcdir); fi; \ file_i=`echo "$$file" | sed 's|\.info$$||;s|$$|.i|'`; \ for ifile in $$d/$$file $$d/$$file-[0-9] $$d/$$file-[0-9][0-9] \ $$d/$$file_i[0-9] $$d/$$file_i[0-9][0-9] ; do \ if test -f $$ifile; then \ echo "$$ifile"; \ else : ; fi; \ done; \ done | $(am__base_list) | \ while read files; do \ echo " $(INSTALL_DATA) $$files '$(DESTDIR)$(infodir)'"; \ $(INSTALL_DATA) $$files "$(DESTDIR)$(infodir)" || exit $$?; done @$(POST_INSTALL) @if $(am__can_run_installinfo); then \ list='$(INFO_DEPS)'; test -n "$(infodir)" || list=; \ for file in $$list; do \ relfile=`echo "$$file" | sed 's|^.*/||'`; \ echo " install-info --info-dir='$(DESTDIR)$(infodir)' '$(DESTDIR)$(infodir)/$$relfile'";\ install-info --info-dir="$(DESTDIR)$(infodir)" "$(DESTDIR)$(infodir)/$$relfile" || :;\ done; \ else : ; fi install-man: install-pdf: install-pdf-am install-pdf-am: $(PDFS) @$(NORMAL_INSTALL) @list='$(PDFS)'; test -n "$(pdfdir)" || list=; \ if test -n "$$list"; then \ echo " $(MKDIR_P) '$(DESTDIR)$(pdfdir)'"; \ $(MKDIR_P) "$(DESTDIR)$(pdfdir)" || exit 1; \ fi; \ for p in $$list; do \ if test -f "$$p"; then d=; else d="$(srcdir)/"; fi; \ echo "$$d$$p"; \ done | $(am__base_list) | \ while read files; do \ echo " $(INSTALL_DATA) $$files '$(DESTDIR)$(pdfdir)'"; \ $(INSTALL_DATA) $$files "$(DESTDIR)$(pdfdir)" || exit $$?; done install-ps: install-ps-am install-ps-am: $(PSS) @$(NORMAL_INSTALL) @list='$(PSS)'; test -n "$(psdir)" || list=; \ if test -n "$$list"; then \ echo " $(MKDIR_P) '$(DESTDIR)$(psdir)'"; \ $(MKDIR_P) "$(DESTDIR)$(psdir)" || exit 1; \ fi; \ for p in $$list; do \ if test -f "$$p"; then d=; else d="$(srcdir)/"; fi; \ echo "$$d$$p"; \ done | $(am__base_list) | \ while read files; do \ echo " $(INSTALL_DATA) $$files '$(DESTDIR)$(psdir)'"; \ $(INSTALL_DATA) $$files "$(DESTDIR)$(psdir)" || exit $$?; done installcheck-am: maintainer-clean: maintainer-clean-am -rm -f Makefile maintainer-clean-am: distclean-am maintainer-clean-aminfo \ maintainer-clean-generic mostlyclean: mostlyclean-am mostlyclean-am: mostlyclean-aminfo mostlyclean-generic \ mostlyclean-libtool pdf: pdf-am pdf-am: $(PDFS) ps: ps-am ps-am: $(PSS) uninstall-am: uninstall-dvi-am uninstall-html-am uninstall-info-am \ uninstall-pdf-am uninstall-ps-am .MAKE: install-am install-strip .PHONY: all all-am check check-am clean clean-aminfo clean-generic \ clean-libtool dist-info distclean distclean-generic \ distclean-libtool distdir dvi dvi-am html html-am info info-am \ install install-am install-data install-data-am install-dvi \ install-dvi-am install-exec install-exec-am install-html \ install-html-am install-info install-info-am install-man \ install-pdf install-pdf-am install-ps install-ps-am \ install-strip installcheck installcheck-am installdirs \ maintainer-clean maintainer-clean-aminfo \ maintainer-clean-generic mostlyclean mostlyclean-aminfo \ mostlyclean-generic mostlyclean-libtool pdf pdf-am ps ps-am \ uninstall uninstall-am uninstall-dvi-am uninstall-html-am \ uninstall-info-am uninstall-pdf-am uninstall-ps-am update-docs: $(top_builddir)/dev-environ $(srcdir)/make-texinfo.scm $(srcdir)/$(doc).scm $(DOT_DOC_FILES) > $(doc).texi.tmp mv $(doc).texi.tmp $(doc).texi # Tell versions [3.59,3.63) of GNU make to not export all variables. # Otherwise a system limit (for SysV at least) may be exceeded. .NOEXPORT: guile-gnome-platform-2.16.2/corba/doc/guile-gnome-corba.texi0000644000175000017500000003266211670374302024222 0ustar00wingowingo00000000000000\input texinfo @c -*-texinfo-*- @c %**start of header @setfilename guile-gnome-corba.info @settitle Guile-GNOME: CORBA @c %**end of header @copying This manual is for Guile-GNOME: CORBA (version 2.16.0, updated 12 June 2008) Copyright 2001,2003,2004,2008 Free Software Foundation @quotation Permission is granted to copy, distribute and/or modify this document under the terms of the GNU General Public License, Version 2 or any later version published by the Free Software Foundation. @end quotation @end copying @dircategory The Algorithmic Language Scheme @direntry * Guile-GNOME: CORBA: (guile-gnome-corba.info). Remote objects with CORBA in Scheme. @end direntry @titlepage @title Guile-GNOME: CORBA @subtitle version 2.16.0, updated 12 June 2008 @author Andy Wingo (@email{wingo at pobox.com}) @author Martin Baulig (@email{baulig at suse.de}) @page @vskip 0pt plus 1filll @insertcopying @end titlepage @ifnottex @node Top @top Guile-GNOME: CORBA @insertcopying @menu * gnome corba:: The CORBA wrapper * gnome corba primitives:: Primitive functions * gnome corba types:: Primtive types * Function Index:: @end menu @end ifnottex @iftex @shortcontents @end iftex @node gnome corba @chapter (gnome corba) @section Overview A CORBA wrapper for Guile. @section Opening CORBA modules @code{(gnome corba)} allows full integration between Scheme and remote CORBA objects. However, the problem is how to get type information about these remote objects -- it's not very useful to have an opaque @code{} in Scheme. It's also not very useful if you can't write your own CORBA servants in Scheme. Basically, there are two ways to solve this problem. You can parse the type's interface description language (IDL) at runtime, or you can get the necessary information from some other source. @code{(gnome corba)} does the latter, via so-called "imodules". Imodules are a feature of ORBit2, the ORB used in GNOME. ORBit2 is a CORBA 2.4-compliant Object Request Broker (ORB), which is of course interoperable with other ORB implementations. An imodule is a shared library, installed as @code{$(libdir)/_imodule.la}. To create such a library for your own IDL, you need to run ORBit2's IDL compiler, @code{orbit-idl}, with the @option{--imodule} argument. See the @code{demos/corba/} directory in this distribution for an example. As an example, the rest of this section will refer to the sample IDL which can be found in @code{demos/corba/Foo.idl} in this distribution. Once you have installed the @code{Foo} CORBA library (including its imodule), you can load its type information into Scheme by calling: @example (corba-primitive-open-module "Foo") @end example As a side effect, this call will define all of the GOOPS classes and methods associated with the @code{Foo} module. If there is a CORBA interface @code{Foo::Hello}, @code{corba-primitive-open-module} will create a GOOPS class @code{} which serves as stub class and another GOOPS class @code{} which serves as skeleton class. All stub classes are derived from @code{} and their CORBA class hierarchy is preserved in Scheme. All skeleton classes are derived from @code{} and their CORBA class hierarchy is preserved as well. @section Calling CORBA Methods To call a CORBA method, all you need to do is to invoke the corresponding method in the stub class. Let's assume @code{hello} is an instance of the @code{} class. We may invoke the @code{Foo::Hello::doHello} method directly, in a most Schemely fashion: @example (Foo:Hello:doHello hello) @end example So to call CORBA methods, you don't even need to know that it's CORBA. If a CORBA exception is signalled, a Scheme error will be thrown to the key @code{corba-system-exception} or @code{corba-user-exception}, as appropriate. @section Implementing CORBA servants The interesting part is to implement CORBA servants in Scheme. Let's assume you want to write a servant for the @code{Foo::Hello} interface. The first thing you need to do is to derive its POA class @example (define-class ()) @end example Then, you define methods: @example (define-method (Foo:Hello:doHello (hello )) (display (list "Hello World!" hello)) (newline)) @end example If you call @code{(next-method)}, the POA class' method will be run, which by default will throw a @code{CORBA::NO_IMPLEMENT} system exception. However, you can override this: @example (define-method (Foo:Bar:Baz:haveFun (object ) a b) (display (list "Default Foo:Bar:Baz:haveFun handler!" a b)) (newline)) @end example If you created all the methods, you can create servants and call @code{corba-servant->reference} to get a @code{CORBA::Object} reference: @example (define servant (make )) (define hello (corba-servant->reference servant)) @end example Now you have a CORBA Object @code{hello}, and can invoke methods on it: @example (Foo:Hello:doHello hello) @end example Although this looks like a normal Scheme procedural application, this is a "real" CORBA call: @code{hello} is a "normal" CORBA Object. Note of course that any CORBA Objects which you create in Guile are "owned" by Guile's garbage collector, so make sure to @code{CORBA_Object_duplicate()} in a C function before you store it somewhere. @section Multiple inheritance Like in C, you can also create servants for CORBA interfaces which are derived from other interfaces: @example (define-class ( )) (define-method (Foo:Hello:doHello (hello )) (display (list "Hello Maximum World!" hello)) (newline) (next-method)) (define maximum-servant (make )) (define maximum (corba-servant->reference maximum-servant)) @end example This creates a new servant for the CORBA interface @code{Foo::MaximumHello} which is derived from @code{Foo::Hello} and @code{Foo::Bar::Baz}. This inheritance is reflected in Scheme. @example ;; Calls method `Foo:Hello:doHello' in class and then ;; in because of the (next-method). (Foo:Hello:doHello maximum) ;; Calls method `Foo:Bar:Baz:haveFun' in class , ;; the default handler. (Foo:Bar:Baz:haveFun maximum 1 2) @end example Since we're using real CORBA calls, all of this also works for calls which are coming "from the outside", i.e. from C or from a remote process. @section An important limitation CORBA servants can be implemented either in C or in Scheme, but you cannot mix them. For example, in the example above, you learned how to create a CORBA servant for the @code{Foo::MaximumHello} CORBA interface in Scheme. Now let's assume you already have an implementation for the @code{Foo::Hello} interface in C. Even if @code{Foo::MaximumHello} is derived from @code{Foo::Hello}, you cannot use the @code{Foo::Hello} C implementation in Scheme. This limitation may sound obvious, but it's not so obvious at all if you're a bit familiar with CORBA. In C, you would normally expect to have a @code{vepv} and a @code{epv} vector in a CORBA servant, and to be able to poke around in the vepv to override methods. As an ORBit2 specific implementation detail, servants which you create from Scheme don't have a @code{vepv} at all and the @code{epv} is not what you'd expect -- the @code{epv} entries are Scheme vectors and not pointers to C functions. @section CORBA structs / sequences There is also support to access CORBA structs / sequences from Scheme, including a special record type for structs. See the source code for details. @section Usage @anchor{gnome corba }@deftp Class @end deftp @anchor{gnome corba }@deftp Class @end deftp @anchor{gnome corba corba-record-type-vtable}@defvar corba-record-type-vtable @end defvar @anchor{gnome corba bonobo-get-object}@deffn Primitive bonobo-get-object moniker class @end deffn @anchor{gnome corba bonobo-object-query-interface}@deffn Primitive bonobo-object-query-interface object class @end deffn @anchor{gnome corba corba-servant->reference}@deffn Primitive corba-servant->reference servant @end deffn @anchor{gnome corba corba-record-accessor}@defun corba-record-accessor rtd field-name @end defun @anchor{gnome corba corba-record-constructor}@defun corba-record-constructor rtd . opt @end defun @anchor{gnome corba corba-record-constructor-from-struct}@defun corba-record-constructor-from-struct rtd @end defun @anchor{gnome corba corba-record-modifier}@defun corba-record-modifier rtd field-name @end defun @anchor{gnome corba corba-record-predicate}@defun corba-record-predicate rtd @end defun @anchor{gnome corba corba-record-type-descriptor}@defun corba-record-type-descriptor obj @end defun @anchor{gnome corba corba-record-type-fields}@defun corba-record-type-fields obj @end defun @anchor{gnome corba corba-record-type?}@defun corba-record-type? obj @end defun @anchor{gnome corba corba-record-typecode}@defun corba-record-typecode obj @end defun @anchor{gnome corba corba-record?}@defun corba-record? obj @end defun @anchor{gnome corba corba-sequence->list}@defun corba-sequence->list sequence @end defun @anchor{gnome corba corba-struct->record}@defun corba-struct->record struct @end defun @anchor{gnome corba gnome-corba-error}@defun gnome-corba-error format-string . args @end defun @anchor{gnome corba make-corba-record-type}@defun make-corba-record-type typecode . opt @end defun @node gnome corba primitives @chapter (gnome corba primitives) @section Overview A CORBA wrapper for Guile. @section Usage @anchor{gnome corba primitives }@deftp Class @end deftp @anchor{gnome corba primitives }@deftp Class @end deftp @anchor{gnome corba primitives corba-primitive-find-poa-class}@deffn Primitive corba-primitive-find-poa-class class @end deffn @anchor{gnome corba primitives corba-primitive-invoke-method}@deffn Primitive corba-primitive-invoke-method method_name imethod class args @end deffn @anchor{gnome corba primitives corba-primitive-main}@deffn Primitive corba-primitive-main @end deffn @anchor{gnome corba primitives corba-primitive-make-poa-instance}@deffn Primitive corba-primitive-make-poa-instance class @end deffn @anchor{gnome corba primitives corba-primitive-open-module}@deffn Primitive corba-primitive-open-module name @end deffn @anchor{gnome corba primitives corba-primitive-register-interface}@deffn Primitive corba-primitive-register-interface name @end deffn @anchor{gnome corba primitives corba-primitive-typecode->class}@deffn Primitive corba-primitive-typecode->class type @end deffn @anchor{gnome corba primitives corba-typecode-primitive->name}@deffn Primitive corba-typecode-primitive->name typecode @end deffn @anchor{gnome corba primitives corba-typecode-primitive?}@deffn Primitive corba-typecode-primitive? typecode @end deffn @node gnome corba types @chapter (gnome corba types) @section Overview A CORBA wrapper for Guile. @section Usage @anchor{gnome corba types %corba-sequence-vtable}@defvar %corba-sequence-vtable @end defvar @anchor{gnome corba types %corba-sequence-vtable-offset-printer}@defvar %corba-sequence-vtable-offset-printer @end defvar @anchor{gnome corba types %corba-sequence-vtable-offset-user}@defvar %corba-sequence-vtable-offset-user @end defvar @anchor{gnome corba types %corba-struct-vtable}@defvar %corba-struct-vtable @end defvar @anchor{gnome corba types %corba-struct-vtable-offset-printer}@defvar %corba-struct-vtable-offset-printer @end defvar @anchor{gnome corba types %corba-struct-vtable-offset-user}@defvar %corba-struct-vtable-offset-user @end defvar @anchor{gnome corba types corba-object-class->typecode}@deffn Primitive corba-object-class->typecode class @end deffn @anchor{gnome corba types corba-sequence-length}@deffn Primitive corba-sequence-length corba_sequence @end deffn @anchor{gnome corba types corba-sequence-ref}@deffn Primitive corba-sequence-ref corba_sequence index @end deffn @anchor{gnome corba types corba-sequence-set!}@deffn Primitive corba-sequence-set! corba_sequence index value @end deffn @anchor{gnome corba types corba-sequence-set-length!}@deffn Primitive corba-sequence-set-length! corba_sequence length @end deffn @anchor{gnome corba types corba-sequence-type}@deffn Primitive corba-sequence-type corba_sequence @end deffn @anchor{gnome corba types corba-struct-fields}@deffn Primitive corba-struct-fields typecode @end deffn @anchor{gnome corba types corba-struct-is-a?}@deffn Primitive corba-struct-is-a? corba_struct typecode @end deffn @anchor{gnome corba types corba-struct-ref}@deffn Primitive corba-struct-ref corba_struct index @end deffn @anchor{gnome corba types corba-struct-set!}@deffn Primitive corba-struct-set! corba_struct index value @end deffn @anchor{gnome corba types corba-struct-type}@deffn Primitive corba-struct-type corba_struct @end deffn @anchor{gnome corba types corba-struct?}@deffn Primitive corba-struct? corba_struct @end deffn @anchor{gnome corba types corba-typecode->gtype-class}@deffn Primitive corba-typecode->gtype-class typecode @end deffn @anchor{gnome corba types make-corba-sequence}@deffn Primitive make-corba-sequence typecode num_tail_elts init_smob @end deffn @anchor{gnome corba types make-corba-struct}@deffn Primitive make-corba-struct typecode num_tail_elts init_struct @end deffn @anchor{gnome corba types gnome-corba-error}@defun gnome-corba-error format-string . args @end defun @node Function Index @unnumbered Function Index @printindex fn @bye guile-gnome-platform-2.16.2/corba/doc/make-texinfo.scm0000755000175000017500000002063411670374302023125 0ustar00wingowingo00000000000000#!/bin/sh # -*- scheme -*- exec guile --debug -s $0 "$@" !# ;; guile-gnome ;; Copyright (C) 2006 Free Software Foundation ;; Copyright (C) 2007 Andy Wingo ;; This program is free software; you can redistribute it and/or ;; modify it under the terms of the GNU General Public License as ;; published by the Free Software Foundation; either version 2 of ;; the License, or (at your option) any later version. ;; ;; This program is distributed in the hope that it will be useful, ;; but WITHOUT ANY WARRANTY; without even the implied warranty of ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the ;; GNU General Public License for more details. ;; ;; You should have received a copy of the GNU General Public License ;; along with this program; if not, contact: ;; ;; Free Software Foundation Voice: +1-617-542-5942 ;; 59 Temple Place - Suite 330 Fax: +1-617-542-2652 ;; Boston, MA 02111-1307, USA gnu@gnu.org ;; All of the parsing code was written by Ludovic Courtès. (use-modules (texinfo) (texinfo reflection) (texinfo serialize) (ice-9 rdelim) ((srfi srfi-1) #:select (append-map)) (srfi srfi-13) (srfi srfi-14)) (define (snarf-line? line) "Return true if @var{line} (a string) can be considered a line produced by the @code{snarf.h} snarfing macros." (and (>= (string-length line) 4) (string=? (substring line 0 4) "^^ {"))) (define (parse-c-argument-list arg-string) "Parse @var{arg-string} (a string representing a ANSI C argument list, e.g., @var{(const SCM first, SCM second_arg)}) and return a list of strings denoting the argument names." (define %c-symbol-char-set (char-set-adjoin char-set:letter+digit #\_)) (let loop ((args (string-tokenize (string-trim-both arg-string #\space) %c-symbol-char-set)) (type? #t) (result '())) (if (null? args) (reverse! result) (let ((the-arg (car args))) (cond ((and type? (string=? the-arg "const")) (loop (cdr args) type? result)) ((and type? (string=? the-arg "SCM")) (loop (cdr args) (not type?) result)) (type? ;; any other type, e.g., `void' (loop (cdr args) (not type?) result)) (else (loop (cdr args) (not type?) (cons the-arg result)))))))) (define (parse-documentation-item item) "Parse @var{item} (a string), a single function string produced by the C preprocessor. The result is an alist whose keys represent specific aspects of a procedure's documentation: @code{c-name}, @code{scheme-name}, @code{documentation} (a Texinfo documentation string), etc." (define (read-strings) ;; Read several subsequent strings and return their concatenation. (let loop ((str (read)) (result '())) (if (or (eof-object? str) (not (string? str))) (string-concatenate (reverse! result)) (loop (read) (cons str result))))) ;;(format (current-error-port) "doc-item: ~a~%" item) (let* ((item (string-trim-both item #\space)) (space (or (string-index item #\space) 0))) (let ((kind (substring item 0 space)) (rest (substring item space (string-length item)))) (cond ((string=? kind "cname") (cons 'c-name (string-trim-both rest #\space))) ((string=? kind "fname") (cons 'scheme-name (with-input-from-string rest read-strings))) ((string=? kind "type") (cons 'type (with-input-from-string rest read))) ((string=? kind "location") (cons 'location (with-input-from-string rest (lambda () (let loop ((str (read)) (result '())) (if (eof-object? str) (reverse! result) (loop (read) (cons str result)))))))) ((string=? kind "arglist") (cons 'arguments (parse-c-argument-list rest))) ((string=? kind "argsig") (cons 'signature (with-input-from-string rest (lambda () (let ((req (read)) (opt (read)) (rst? (read))) (list (cons 'required req) (cons 'optional opt) (cons 'rest? (= 1 rst?)))))))) (else ;; docstring (may consist of several C strings which we ;; assume to be equivalent to Scheme strings) (cons 'documentation (with-input-from-string item read-strings))))))) (define (parse-snarfed-line line) "Parse @var{line}, a string that contains documentation returned for a single function by the C preprocessor with the @code{-DSCM_MAGIC_SNARF_DOCS} option. @var{line} is assumed to obey the @code{snarf-line?} predicate." (define (caret-split str) (let loop ((str str) (result '())) (if (string=? str "") (reverse! result) (let ((caret (string-index str #\^)) (len (string-length str))) (if caret (if (and (> (- len caret) 0) (eq? (string-ref str (+ caret 1)) #\^)) (loop (substring str (+ 2 caret) len) (cons (string-take str (- caret 1)) result)) (error "single caret not allowed" str)) (loop "" (cons str result))))))) (let ((items (caret-split (substring line 4 (- (string-length line) 4))))) (map parse-documentation-item items))) (define (parse-snarfing port) "Read C preprocessor (where the @code{SCM_MAGIC_SNARF_DOCS} macro is defined) output from @var{port} a return a list of alist, each of which contains information about a specific function described in the C preprocessor output." (let loop ((line (read-line port)) (result '())) ;;(format (current-error-port) "line: ~a~%" line) (if (eof-object? line) result (cond ((snarf-line? line) (loop (read-line port) (cons (parse-snarfed-line line) result))) (else (loop (read-line port) result)))))) (define (list-intersperse src-l elem) (if (null? src-l) src-l (let loop ((l (cdr src-l)) (dest (cons (car src-l) '()))) (if (null? l) (reverse dest) (loop (cdr l) (cons (car l) (cons elem dest))))))) (define (snarfing->stexi alist) `(deffn (% (name ,(assq-ref alist 'scheme-name)) (category "Primitive") ;; ,(assq-ref alist 'type)) (arguments ,@(list-intersperse (assq-ref alist 'arguments) " "))) ,@(cdr (texi-fragment->stexi (assq-ref alist 'documentation))))) (define (parse-c-docs dot-doc-files) (append-map (lambda (filename) (call-with-input-file filename (lambda (port) (map snarfing->stexi (parse-snarfing port))))) dot-doc-files)) (define (def-name def) (string->symbol (cadr (assq 'name (cdadr def))))) (define (main config-scm . dot-doc-files) (define docs-resolver (let* ((defs (parse-c-docs dot-doc-files)) (defs-alist (map cons (map def-name defs) defs))) (lambda (name def) (or (and=> (assq name defs-alist) cdr) def)))) (primitive-load config-scm) (display (stexi->texi (package-stexi-documentation (map car *modules*) *name* (string-append *texinfo-basename* ".info") (package-stexi-standard-prologue *name* (string-append *texinfo-basename* ".info") *texinfo-category* *description* (package-stexi-standard-copying *name* *version* *updated* *years* *copyright-holder* *permissions*) (package-stexi-standard-titlepage *name* *version* *updated* *authors*) (package-stexi-standard-menu *name* (map car *modules*) (map cdr *modules*) *extra-texinfo-menu-entries*)) *texinfo-epilogue* #:module-stexi-documentation-args (list #:docs-resolver docs-resolver))))) (apply main (cdr (command-line))) guile-gnome-platform-2.16.2/corba/doc/guile-gnome-corba.scm0000644000175000017500000000255311670374302024027 0ustar00wingowingo00000000000000;; About the package (define *name* "Guile-GNOME: CORBA") (define *description* "Remote objects with CORBA in Scheme") (define *version* "2.15.98") (define *updated* "27 April 2008") (define *authors* '(("Andy Wingo" . "wingo at pobox.com") ("Martin Baulig" . "baulig at suse.de"))) ;; Copying the documentation (define *copyright-holder* "Free Software Foundation") (define *years* '(2001 2003 2004 2008)) (define *permissions* "Permission is granted to copy, distribute and/or modify this document under the terms of the GNU General Public License, Version 2 or any later version published by the Free Software Foundation.") ;; Texinfo info (define *texinfo-basename* "guile-gnome-corba") (define *texinfo-category* "The Algorithmic Language Scheme") (define *extra-texinfo-menu-entries* '(("Function Index"))) (define *texinfo-epilogue* `((node (% (name "Function Index"))) (unnumbered "Function Index") (printindex (% (type "fn"))))) ;; HTML foo (define *html-relative-root-path* "../../../") (define *extra-html-entry-files* '()) ;("scripts.texi" "org-to-pdf-presentation" ;"Make PDF presentations from Org Mode files"))) ;; The modules to document (define *modules* '(((gnome corba) "The CORBA wrapper") ((gnome corba primitives) "Primitive functions") ((gnome corba types) "Primtive types"))) (define *module-sources* '()) guile-gnome-platform-2.16.2/corba/tests/0000755000175000017500000000000011752546507020430 5ustar00wingowingo00000000000000guile-gnome-platform-2.16.2/corba/tests/wrapset.scm0000644000175000017500000000311411670374302022607 0ustar00wingowingo00000000000000;;; ---------------------------------------------------------------------- ;;; unit test ;;; Copyright (C) 2007 Andy Wingo ;;; ;;; This program is free software; you can redistribute it and/or modify ;;; it under the terms of the GNU General Public License as published by ;;; the Free Software Foundation; either version 2 of the License, or ;;; (at your option) any later version. ;;; ;;; This program is distributed in the hope that it will be useful, ;;; but WITHOUT ANY WARRANTY; without even the implied warranty of ;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the ;;; GNU General Public License for more details. ;;; ;;; You should have received a copy of the GNU General Public License ;;; along with this program; if not, write to the Free Software ;;; Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA ;;; ---------------------------------------------------------------------- (use-modules (unit-test) (apicheck) (ice-9 pretty-print) (oop goops)) (define-class ()) (define *modules* (call-with-input-string (getenv "WRAPSET_MODULES") read)) (define *api-file* (getenv "WRAPSET_API_FILE")) (define-method (test-wrapset-api (self )) (apicheck-validate (call-with-input-file *api-file* read) *modules*)) (define (main args) (exit-with-summary (run-all-defined-test-cases))) (define (update-api args) (with-output-to-file *api-file* (lambda () (pretty-print (apicheck-generate *modules*))))) guile-gnome-platform-2.16.2/corba/tests/Makefile.am0000644000175000017500000000016711670374302022457 0ustar00wingowingo00000000000000include ../../tests.mk wrapset_modules = ((gnome gw corba) (gnome corba) (gnome corba primitives) (gnome corba types))guile-gnome-platform-2.16.2/corba/tests/Makefile.in0000644000175000017500000004023111752511066022465 0ustar00wingowingo00000000000000# Makefile.in generated by automake 1.11.5 from Makefile.am. # @configure_input@ # Copyright (C) 1994, 1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, # 2003, 2004, 2005, 2006, 2007, 2008, 2009, 2010, 2011 Free Software # Foundation, Inc. # This Makefile.in is free software; the Free Software Foundation # gives unlimited permission to copy and/or distribute it, # with or without modifications, as long as this notice is preserved. # This program is distributed in the hope that it will be useful, # but WITHOUT ANY WARRANTY, to the extent permitted by law; without # even the implied warranty of MERCHANTABILITY or FITNESS FOR A # PARTICULAR PURPOSE. @SET_MAKE@ # guile-gnome # Copyright (C) 2007, 2011 Free Software Foundation, Inc. # This program is free software; you can redistribute it and/or # modify it under the terms of the GNU General Public License as # published by the Free Software Foundation; either version 2 of # the License, or (at your option) any later version. # This program is distributed in the hope that it will be useful, # but WITHOUT ANY WARRANTY; without even the implied warranty of # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the # GNU General Public License for more details. # You should have received a copy of the GNU General Public License # along with this program; if not, contact: # Free Software Foundation Voice: +1-617-542-5942 # 59 Temple Place - Suite 330 Fax: +1-617-542-2652 # Boston, MA 02111-1307, USA gnu@gnu.org VPATH = @srcdir@ am__make_dryrun = \ { \ am__dry=no; \ case $$MAKEFLAGS in \ *\\[\ \ ]*) \ echo 'am--echo: ; @echo "AM" OK' | $(MAKE) -f - 2>/dev/null \ | grep '^AM OK$$' >/dev/null || am__dry=yes;; \ *) \ for am__flg in $$MAKEFLAGS; do \ case $$am__flg in \ *=*|--*) ;; \ *n*) am__dry=yes; break;; \ esac; \ done;; \ esac; \ test $$am__dry = yes; \ } pkgdatadir = $(datadir)/@PACKAGE@ pkgincludedir = $(includedir)/@PACKAGE@ pkglibdir = $(libdir)/@PACKAGE@ pkglibexecdir = $(libexecdir)/@PACKAGE@ am__cd = CDPATH="$${ZSH_VERSION+.}$(PATH_SEPARATOR)" && cd install_sh_DATA = $(install_sh) -c -m 644 install_sh_PROGRAM = $(install_sh) -c install_sh_SCRIPT = $(install_sh) -c INSTALL_HEADER = $(INSTALL_DATA) transform = $(program_transform_name) NORMAL_INSTALL = : PRE_INSTALL = : POST_INSTALL = : NORMAL_UNINSTALL = : PRE_UNINSTALL = : POST_UNINSTALL = : build_triplet = @build@ host_triplet = @host@ DIST_COMMON = $(srcdir)/../../tests.mk $(srcdir)/Makefile.am \ $(srcdir)/Makefile.in subdir = corba/tests ACLOCAL_M4 = $(top_srcdir)/aclocal.m4 am__aclocal_m4_deps = $(top_srcdir)/configure.ac am__configure_deps = $(am__aclocal_m4_deps) $(CONFIGURE_DEPENDENCIES) \ $(ACLOCAL_M4) mkinstalldirs = $(install_sh) -d CONFIG_HEADER = $(top_builddir)/config.h CONFIG_CLEAN_FILES = CONFIG_CLEAN_VPATH_FILES = SOURCES = DIST_SOURCES = am__can_run_installinfo = \ case $$AM_UPDATE_INFO_DIR in \ n|no|NO) false;; \ *) (install-info --version) >/dev/null 2>&1;; \ esac am__tty_colors = \ red=; grn=; lgn=; blu=; std= DISTFILES = $(DIST_COMMON) $(DIST_SOURCES) $(TEXINFOS) $(EXTRA_DIST) ACLOCAL = @ACLOCAL@ AG_PKG_CONFIG_PATH = @AG_PKG_CONFIG_PATH@ AMTAR = @AMTAR@ API_VERSION = @API_VERSION@ AR = @AR@ ATK_CFLAGS = @ATK_CFLAGS@ ATK_LIBS = @ATK_LIBS@ AUTOCONF = @AUTOCONF@ AUTOHEADER = @AUTOHEADER@ AUTOMAKE = @AUTOMAKE@ AWK = @AWK@ BONOBO_IDL_DIR = @BONOBO_IDL_DIR@ CANVAS_CFLAGS = @CANVAS_CFLAGS@ CANVAS_LIBS = @CANVAS_LIBS@ CC = @CC@ CCDEPMODE = @CCDEPMODE@ CFLAGS = @CFLAGS@ CORBA_CFLAGS = @CORBA_CFLAGS@ CORBA_LIBS = @CORBA_LIBS@ CPP = @CPP@ CPPFLAGS = @CPPFLAGS@ CYGPATH_W = @CYGPATH_W@ DEFS = @DEFS@ DEPDIR = @DEPDIR@ DLLTOOL = @DLLTOOL@ DSYMUTIL = @DSYMUTIL@ DUMPBIN = @DUMPBIN@ ECHO_C = @ECHO_C@ ECHO_N = @ECHO_N@ ECHO_T = @ECHO_T@ EGREP = @EGREP@ EXEEXT = @EXEEXT@ FGREP = @FGREP@ GCONF_CFLAGS = @GCONF_CFLAGS@ GCONF_LIBS = @GCONF_LIBS@ GDK_CFLAGS = @GDK_CFLAGS@ GDK_LIBS = @GDK_LIBS@ GDK_PIXBUF_CFLAGS = @GDK_PIXBUF_CFLAGS@ GDK_PIXBUF_LIBS = @GDK_PIXBUF_LIBS@ GLIB_CFLAGS = @GLIB_CFLAGS@ GLIB_LIBS = @GLIB_LIBS@ GNOMEUI_DEPRECATION_FLAGS = @GNOMEUI_DEPRECATION_FLAGS@ GNOME_VFS_CFLAGS = @GNOME_VFS_CFLAGS@ GNOME_VFS_DEPRECATED_CFLAGS = @GNOME_VFS_DEPRECATED_CFLAGS@ GNOME_VFS_LIBS = @GNOME_VFS_LIBS@ GOBJECT_CFLAGS = @GOBJECT_CFLAGS@ GOBJECT_LIBS = @GOBJECT_LIBS@ GREP = @GREP@ GTHREAD_CFLAGS = @GTHREAD_CFLAGS@ GTHREAD_LIBS = @GTHREAD_LIBS@ GTK_CFLAGS = @GTK_CFLAGS@ GTK_DEPRECATED_CFLAGS = @GTK_DEPRECATED_CFLAGS@ GTK_LIBS = @GTK_LIBS@ GUILE_CAIRO_CFLAGS = @GUILE_CAIRO_CFLAGS@ GUILE_CAIRO_LIBS = @GUILE_CAIRO_LIBS@ GUILE_CFLAGS = @GUILE_CFLAGS@ GUILE_EFFECTIVE_VERSION = @GUILE_EFFECTIVE_VERSION@ GUILE_GLIB_CFLAGS = @GUILE_GLIB_CFLAGS@ GUILE_GLIB_LIBS = @GUILE_GLIB_LIBS@ GUILE_LIBS = @GUILE_LIBS@ G_WRAP_CFLAGS = @G_WRAP_CFLAGS@ G_WRAP_LIBS = @G_WRAP_LIBS@ G_WRAP_LIB_DIR = @G_WRAP_LIB_DIR@ G_WRAP_MODULE_DIR = @G_WRAP_MODULE_DIR@ INSTALL = @INSTALL@ INSTALL_DATA = @INSTALL_DATA@ INSTALL_PROGRAM = @INSTALL_PROGRAM@ INSTALL_SCRIPT = @INSTALL_SCRIPT@ INSTALL_STRIP_PROGRAM = @INSTALL_STRIP_PROGRAM@ LD = @LD@ LDFLAGS = @LDFLAGS@ LIBGLADE_CFLAGS = @LIBGLADE_CFLAGS@ LIBGLADE_LIBS = @LIBGLADE_LIBS@ LIBGNOMEUI_CFLAGS = @LIBGNOMEUI_CFLAGS@ LIBGNOMEUI_LIBS = @LIBGNOMEUI_LIBS@ LIBGNOME_CFLAGS = @LIBGNOME_CFLAGS@ LIBGNOME_LIBS = @LIBGNOME_LIBS@ LIBOBJS = @LIBOBJS@ LIBS = @LIBS@ LIBTOOL = @LIBTOOL@ LIPO = @LIPO@ LN_S = @LN_S@ LTLIBOBJS = @LTLIBOBJS@ MAKEINFO = @MAKEINFO@ MANIFEST_TOOL = @MANIFEST_TOOL@ MKDIR_P = @MKDIR_P@ NM = @NM@ NMEDIT = @NMEDIT@ OBJDUMP = @OBJDUMP@ OBJEXT = @OBJEXT@ ORBIT_IDL = @ORBIT_IDL@ OTOOL = @OTOOL@ OTOOL64 = @OTOOL64@ PACKAGE = @PACKAGE@ PACKAGE_BUGREPORT = @PACKAGE_BUGREPORT@ PACKAGE_NAME = @PACKAGE_NAME@ PACKAGE_STRING = @PACKAGE_STRING@ PACKAGE_TARNAME = @PACKAGE_TARNAME@ PACKAGE_URL = @PACKAGE_URL@ PACKAGE_VERSION = @PACKAGE_VERSION@ PANGOCAIRO_CFLAGS = @PANGOCAIRO_CFLAGS@ PANGOCAIRO_LIBS = @PANGOCAIRO_LIBS@ PANGO_CFLAGS = @PANGO_CFLAGS@ PANGO_LIBS = @PANGO_LIBS@ PATH_SEPARATOR = @PATH_SEPARATOR@ PKG_CONFIG = @PKG_CONFIG@ PKG_CONFIG_LIBDIR = @PKG_CONFIG_LIBDIR@ PKG_CONFIG_PATH = @PKG_CONFIG_PATH@ RANLIB = @RANLIB@ SED = @SED@ SET_MAKE = @SET_MAKE@ SHELL = @SHELL@ STRIP = @STRIP@ VERSION = @VERSION@ WARN_CFLAGS = @WARN_CFLAGS@ abs_builddir = @abs_builddir@ abs_srcdir = @abs_srcdir@ abs_top_builddir = @abs_top_builddir@ abs_top_srcdir = @abs_top_srcdir@ ac_ct_AR = @ac_ct_AR@ ac_ct_CC = @ac_ct_CC@ ac_ct_DUMPBIN = @ac_ct_DUMPBIN@ am__include = @am__include@ am__leading_dot = @am__leading_dot@ am__quote = @am__quote@ am__tar = @am__tar@ am__untar = @am__untar@ bindir = @bindir@ build = @build@ build_alias = @build_alias@ build_cpu = @build_cpu@ build_os = @build_os@ build_vendor = @build_vendor@ builddir = @builddir@ datadir = @datadir@ datarootdir = @datarootdir@ docdir = @docdir@ dvidir = @dvidir@ exec_prefix = @exec_prefix@ host = @host@ host_alias = @host_alias@ host_cpu = @host_cpu@ host_os = @host_os@ host_vendor = @host_vendor@ htmldir = @htmldir@ includedir = @includedir@ infodir = @infodir@ install_sh = @install_sh@ libdir = @libdir@ libexecdir = @libexecdir@ localedir = @localedir@ localstatedir = @localstatedir@ mandir = @mandir@ mkdir_p = @mkdir_p@ oldincludedir = @oldincludedir@ pdfdir = @pdfdir@ prefix = @prefix@ program_transform_name = @program_transform_name@ psdir = @psdir@ sbindir = @sbindir@ sharedstatedir = @sharedstatedir@ srcdir = @srcdir@ sysconfdir = @sysconfdir@ target_alias = @target_alias@ top_build_prefix = @top_build_prefix@ top_builddir = @top_builddir@ top_srcdir = @top_srcdir@ # # Makefile snippet # EXTRA_DIST = wrapset.api wrapset.scm wrapset_stem = set-wrapset_stem-in-your-makefile top_module_name = (gnome $(wrapset_stem)) gw_module_name = (gnome gw $(wrapset_stem)) extra_module_names = wrapset_modules = ((gnome gw corba) (gnome corba) (gnome corba primitives) (gnome corba types)) WRAPSET_TESTS_ENV = WRAPSET_MODULES="$(wrapset_modules)" WRAPSET_API_FILE=$(srcdir)/wrapset.api DEV_ENV = $(top_builddir)/dev-environ GUILE = guile TESTS_ENVIRONMENT = $(WRAPSET_TESTS_ENV) $(DEV_ENV) $(GUILE) $(GUILE_FLAGS) -e main -s TESTS = wrapset.scm all: all-am .SUFFIXES: $(srcdir)/Makefile.in: $(srcdir)/Makefile.am $(srcdir)/../../tests.mk $(am__configure_deps) @for dep in $?; do \ case '$(am__configure_deps)' in \ *$$dep*) \ ( cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh ) \ && { if test -f $@; then exit 0; else break; fi; }; \ exit 1;; \ esac; \ done; \ echo ' cd $(top_srcdir) && $(AUTOMAKE) --gnu corba/tests/Makefile'; \ $(am__cd) $(top_srcdir) && \ $(AUTOMAKE) --gnu corba/tests/Makefile .PRECIOUS: Makefile Makefile: $(srcdir)/Makefile.in $(top_builddir)/config.status @case '$?' in \ *config.status*) \ cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh;; \ *) \ echo ' cd $(top_builddir) && $(SHELL) ./config.status $(subdir)/$@ $(am__depfiles_maybe)'; \ cd $(top_builddir) && $(SHELL) ./config.status $(subdir)/$@ $(am__depfiles_maybe);; \ esac; $(srcdir)/../../tests.mk: $(top_builddir)/config.status: $(top_srcdir)/configure $(CONFIG_STATUS_DEPENDENCIES) cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh $(top_srcdir)/configure: $(am__configure_deps) cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh $(ACLOCAL_M4): $(am__aclocal_m4_deps) cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh $(am__aclocal_m4_deps): mostlyclean-libtool: -rm -f *.lo clean-libtool: -rm -rf .libs _libs tags: TAGS TAGS: ctags: CTAGS CTAGS: check-TESTS: $(TESTS) @failed=0; all=0; xfail=0; xpass=0; skip=0; \ srcdir=$(srcdir); export srcdir; \ list=' $(TESTS) '; \ $(am__tty_colors); \ if test -n "$$list"; then \ for tst in $$list; do \ if test -f ./$$tst; then dir=./; \ elif test -f $$tst; then dir=; \ else dir="$(srcdir)/"; fi; \ if $(TESTS_ENVIRONMENT) $${dir}$$tst; then \ all=`expr $$all + 1`; \ case " $(XFAIL_TESTS) " in \ *[\ \ ]$$tst[\ \ ]*) \ xpass=`expr $$xpass + 1`; \ failed=`expr $$failed + 1`; \ col=$$red; res=XPASS; \ ;; \ *) \ col=$$grn; res=PASS; \ ;; \ esac; \ elif test $$? -ne 77; then \ all=`expr $$all + 1`; \ case " $(XFAIL_TESTS) " in \ *[\ \ ]$$tst[\ \ ]*) \ xfail=`expr $$xfail + 1`; \ col=$$lgn; res=XFAIL; \ ;; \ *) \ failed=`expr $$failed + 1`; \ col=$$red; res=FAIL; \ ;; \ esac; \ else \ skip=`expr $$skip + 1`; \ col=$$blu; res=SKIP; \ fi; \ echo "$${col}$$res$${std}: $$tst"; \ done; \ if test "$$all" -eq 1; then \ tests="test"; \ All=""; \ else \ tests="tests"; \ All="All "; \ fi; \ if test "$$failed" -eq 0; then \ if test "$$xfail" -eq 0; then \ banner="$$All$$all $$tests passed"; \ else \ if test "$$xfail" -eq 1; then failures=failure; else failures=failures; fi; \ banner="$$All$$all $$tests behaved as expected ($$xfail expected $$failures)"; \ fi; \ else \ if test "$$xpass" -eq 0; then \ banner="$$failed of $$all $$tests failed"; \ else \ if test "$$xpass" -eq 1; then passes=pass; else passes=passes; fi; \ banner="$$failed of $$all $$tests did not behave as expected ($$xpass unexpected $$passes)"; \ fi; \ fi; \ dashes="$$banner"; \ skipped=""; \ if test "$$skip" -ne 0; then \ if test "$$skip" -eq 1; then \ skipped="($$skip test was not run)"; \ else \ skipped="($$skip tests were not run)"; \ fi; \ test `echo "$$skipped" | wc -c` -le `echo "$$banner" | wc -c` || \ dashes="$$skipped"; \ fi; \ report=""; \ if test "$$failed" -ne 0 && test -n "$(PACKAGE_BUGREPORT)"; then \ report="Please report to $(PACKAGE_BUGREPORT)"; \ test `echo "$$report" | wc -c` -le `echo "$$banner" | wc -c` || \ dashes="$$report"; \ fi; \ dashes=`echo "$$dashes" | sed s/./=/g`; \ if test "$$failed" -eq 0; then \ col="$$grn"; \ else \ col="$$red"; \ fi; \ echo "$${col}$$dashes$${std}"; \ echo "$${col}$$banner$${std}"; \ test -z "$$skipped" || echo "$${col}$$skipped$${std}"; \ test -z "$$report" || echo "$${col}$$report$${std}"; \ echo "$${col}$$dashes$${std}"; \ test "$$failed" -eq 0; \ else :; fi distdir: $(DISTFILES) @srcdirstrip=`echo "$(srcdir)" | sed 's/[].[^$$\\*]/\\\\&/g'`; \ topsrcdirstrip=`echo "$(top_srcdir)" | sed 's/[].[^$$\\*]/\\\\&/g'`; \ list='$(DISTFILES)'; \ dist_files=`for file in $$list; do echo $$file; done | \ sed -e "s|^$$srcdirstrip/||;t" \ -e "s|^$$topsrcdirstrip/|$(top_builddir)/|;t"`; \ case $$dist_files in \ */*) $(MKDIR_P) `echo "$$dist_files" | \ sed '/\//!d;s|^|$(distdir)/|;s,/[^/]*$$,,' | \ sort -u` ;; \ esac; \ for file in $$dist_files; do \ if test -f $$file || test -d $$file; then d=.; else d=$(srcdir); fi; \ if test -d $$d/$$file; then \ dir=`echo "/$$file" | sed -e 's,/[^/]*$$,,'`; \ if test -d "$(distdir)/$$file"; then \ find "$(distdir)/$$file" -type d ! -perm -700 -exec chmod u+rwx {} \;; \ fi; \ if test -d $(srcdir)/$$file && test $$d != $(srcdir); then \ cp -fpR $(srcdir)/$$file "$(distdir)$$dir" || exit 1; \ find "$(distdir)/$$file" -type d ! -perm -700 -exec chmod u+rwx {} \;; \ fi; \ cp -fpR $$d/$$file "$(distdir)$$dir" || exit 1; \ else \ test -f "$(distdir)/$$file" \ || cp -p $$d/$$file "$(distdir)/$$file" \ || exit 1; \ fi; \ done check-am: all-am $(MAKE) $(AM_MAKEFLAGS) check-TESTS check: check-am all-am: Makefile installdirs: install: install-am install-exec: install-exec-am install-data: install-data-am uninstall: uninstall-am install-am: all-am @$(MAKE) $(AM_MAKEFLAGS) install-exec-am install-data-am installcheck: installcheck-am install-strip: if test -z '$(STRIP)'; then \ $(MAKE) $(AM_MAKEFLAGS) INSTALL_PROGRAM="$(INSTALL_STRIP_PROGRAM)" \ install_sh_PROGRAM="$(INSTALL_STRIP_PROGRAM)" INSTALL_STRIP_FLAG=-s \ install; \ else \ $(MAKE) $(AM_MAKEFLAGS) INSTALL_PROGRAM="$(INSTALL_STRIP_PROGRAM)" \ install_sh_PROGRAM="$(INSTALL_STRIP_PROGRAM)" INSTALL_STRIP_FLAG=-s \ "INSTALL_PROGRAM_ENV=STRIPPROG='$(STRIP)'" install; \ fi mostlyclean-generic: clean-generic: distclean-generic: -test -z "$(CONFIG_CLEAN_FILES)" || rm -f $(CONFIG_CLEAN_FILES) -test . = "$(srcdir)" || test -z "$(CONFIG_CLEAN_VPATH_FILES)" || rm -f $(CONFIG_CLEAN_VPATH_FILES) maintainer-clean-generic: @echo "This command is intended for maintainers to use" @echo "it deletes files that may require special tools to rebuild." clean: clean-am clean-am: clean-generic clean-libtool mostlyclean-am distclean: distclean-am -rm -f Makefile distclean-am: clean-am distclean-generic dvi: dvi-am dvi-am: html: html-am html-am: info: info-am info-am: install-data-am: install-dvi: install-dvi-am install-dvi-am: install-exec-am: install-html: install-html-am install-html-am: install-info: install-info-am install-info-am: install-man: install-pdf: install-pdf-am install-pdf-am: install-ps: install-ps-am install-ps-am: installcheck-am: maintainer-clean: maintainer-clean-am -rm -f Makefile maintainer-clean-am: distclean-am maintainer-clean-generic mostlyclean: mostlyclean-am mostlyclean-am: mostlyclean-generic mostlyclean-libtool pdf: pdf-am pdf-am: ps: ps-am ps-am: uninstall-am: .MAKE: check-am install-am install-strip .PHONY: all all-am check check-TESTS check-am clean clean-generic \ clean-libtool distclean distclean-generic distclean-libtool \ distdir dvi dvi-am html html-am info info-am install \ install-am install-data install-data-am install-dvi \ install-dvi-am install-exec install-exec-am install-html \ install-html-am install-info install-info-am install-man \ install-pdf install-pdf-am install-ps install-ps-am \ install-strip installcheck installcheck-am installdirs \ maintainer-clean maintainer-clean-generic mostlyclean \ mostlyclean-generic mostlyclean-libtool pdf pdf-am ps ps-am \ uninstall uninstall-am wrapset.api.update: $(WRAPSET_TESTS_ENV) $(DEV_ENV) $(GUILE) -e update-api -s $(srcdir)/wrapset.scm %.check: % $(TESTS_ENVIRONMENT) $(srcdir)/$* # Tell versions [3.59,3.63) of GNU make to not export all variables. # Otherwise a system limit (for SysV at least) may be exceeded. .NOEXPORT: guile-gnome-platform-2.16.2/corba/tests/wrapset.api0000644000175000017500000001070111670374302022576 0ustar00wingowingo00000000000000(module-api (version 1 0) ((gnome corba) (uses-interfaces) (typed-exports ( class) ( class) (bonobo-get-object procedure (arity 2 0 #f)) (bonobo-object-query-interface procedure (arity 2 0 #f)) (corba-record-accessor procedure (arity 2 0 #f)) (corba-record-constructor procedure (arity 1 0 #t)) (corba-record-constructor-from-struct procedure (arity 1 0 #f)) (corba-record-modifier procedure (arity 2 0 #f)) (corba-record-predicate procedure (arity 1 0 #f)) (corba-record-type-descriptor procedure (arity 1 0 #f)) (corba-record-type-fields procedure (arity 1 0 #f)) (corba-record-type-vtable struct-vtable) (corba-record-type? procedure (arity 1 0 #f)) (corba-record-typecode procedure (arity 1 0 #f)) (corba-record? procedure (arity 1 0 #f)) (corba-sequence->list procedure (arity 1 0 #f)) (corba-servant->reference procedure (arity 1 0 #f)) (corba-struct->record procedure (arity 1 0 #f)) (gnome-corba-error procedure (arity 1 0 #t)) (make-corba-record-type procedure (arity 1 0 #t)))) ((gnome corba primitives) (uses-interfaces) (typed-exports ( class) ( class) (corba-primitive-find-poa-class procedure (arity 1 0 #f)) (corba-primitive-invoke-method procedure (arity 3 0 #t)) (corba-primitive-main procedure (arity 0 0 #f)) (corba-primitive-make-poa-instance procedure (arity 1 0 #f)) (corba-primitive-open-module procedure (arity 1 0 #f)) (corba-primitive-register-interface procedure (arity 1 0 #f)) (corba-primitive-typecode->class procedure (arity 1 0 #f)) (corba-typecode-primitive->name procedure (arity 1 0 #f)) (corba-typecode-primitive? procedure (arity 1 0 #f)))) ((gnome corba types) (uses-interfaces) (typed-exports (%corba-sequence-vtable struct-vtable) (%corba-sequence-vtable-offset-printer ) (%corba-sequence-vtable-offset-user ) (%corba-struct-vtable struct-vtable) (%corba-struct-vtable-offset-printer ) (%corba-struct-vtable-offset-user ) (corba-object-class->typecode procedure (arity 1 0 #f)) (corba-sequence-length procedure (arity 1 0 #f)) (corba-sequence-ref procedure (arity 2 0 #f)) (corba-sequence-set! procedure (arity 3 0 #f)) (corba-sequence-set-length! procedure (arity 2 0 #f)) (corba-sequence-type procedure (arity 1 0 #f)) (corba-struct-fields procedure (arity 1 0 #f)) (corba-struct-is-a? procedure (arity 2 0 #f)) (corba-struct-ref procedure (arity 2 0 #f)) (corba-struct-set! procedure (arity 3 0 #f)) (corba-struct-type procedure (arity 1 0 #f)) (corba-struct? procedure (arity 1 0 #f)) (corba-typecode->gtype-class procedure (arity 1 0 #f)) (gnome-corba-error procedure (arity 1 0 #t)) (make-corba-sequence procedure (arity 2 0 #t)) (make-corba-struct procedure (arity 2 1 #f)))) ((gnome gobject generics) (uses-interfaces) (typed-exports (block generic ( )) (connect generic ( )) (connect-after generic ( )) (connected? generic ( )) (create-signal generic ( )) (disconnect generic ( )) (emit generic ( . )) (find-property generic ( )) (get generic ( )) (get-properties generic ()) (get-property-names generic ()) (get-signals generic ()) (invoke generic ( . )) (set generic ( )) (unblock generic ( )))) ((gnome gw corba) (uses-interfaces (gnome gw generics)) (typed-exports (%init-gnome-corba procedure (arity 0 0 #t)) (%init-gnome-corba-primitives procedure (arity 0 0 #t)) (%init-gnome-corba-types procedure (arity 0 0 #t)))) ((gnome gw generics) (uses-interfaces (gnome gobject generics)) (typed-exports))) guile-gnome-platform-2.16.2/corba/gnome/0000755000175000017500000000000011752546506020372 5ustar00wingowingo00000000000000guile-gnome-platform-2.16.2/corba/gnome/gw/0000755000175000017500000000000011752546506021007 5ustar00wingowingo00000000000000guile-gnome-platform-2.16.2/corba/gnome/gw/corba-spec.scm0000644000175000017500000000575311670374302023533 0ustar00wingowingo00000000000000;; guile-gnome ;; Copyright (C) 2001 Martin Baulig ;; 2003,2004 Andy Wingo ;; This program is free software; you can redistribute it and/or ;; modify it under the terms of the GNU General Public License as ;; published by the Free Software Foundation; either version 2 of ;; the License, or (at your option) any later version. ;; ;; This program is distributed in the hope that it will be useful, ;; but WITHOUT ANY WARRANTY; without even the implied warranty of ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the ;; GNU General Public License for more details. ;; ;; You should have received a copy of the GNU General Public License ;; along with this program; if not, contact: ;; ;; Free Software Foundation Voice: +1-617-542-5942 ;; 59 Temple Place - Suite 330 Fax: +1-617-542-2652 ;; Boston, MA 02111-1307, USA gnu@gnu.org ;;; Commentary: ;; ;;A CORBA wrapper for Guile. ;; ;;; Code: (define-module (gnome gw corba-spec) #:use-module (oop goops) #:use-module (gnome gw support g-wrap) #:use-module (g-wrap guile ws standard) #:use-module (gnome gw support gobject)) ;; gw-corba: an internal glue binding, probably not useful to other people... (define-class () #:id 'gnome-corba #:dependencies '(standard)) (define-method (global-declarations-cg (ws ) (item )) (list "#include \n")) (define-method (initializations-cg (ws ) err) (list (next-method) "scm_pre_init_gnome_corba_generic ();\n" "scm_pre_init_gnome_corba_types ();\n" "scm_pre_init_gnome_corba_primitives ();\n")) (define-method (initialize (ws ) initargs) (next-method ws (append '(#:module (gnome gw corba)) initargs)) ;; Here we wrap some functions to bootstrap the core library. (wrap-function! ws #:name '%init-gnome-corba #:returns 'void #:c-name "scm_init_gnome_corba" #:arguments '() #:description "Export a number of fundamental gtypes and functions to operate on objects.") (wrap-function! ws #:name '%init-gnome-corba-primitives #:returns 'void #:c-name "scm_init_gnome_corba_primitives" #:arguments '() #:description "Export a number of fundamental gtypes and functions to operate on objects.") (wrap-function! ws #:name '%init-gnome-corba-types #:returns 'void #:c-name "scm_init_gnome_corba_types" #:arguments '() #:description "Export a number of fundamental gtypes and functions to operate on objects.")) guile-gnome-platform-2.16.2/corba/gnome/gw/Makefile.am0000644000175000017500000000166611670374302023044 0ustar00wingowingo00000000000000include $(top_srcdir)/common.mk guilegwmodule_DATA = corba-spec.scm corba.scm EXTRA_DIST = corba-spec.scm CLEANFILES = $(wildcard gnome-*.log) # There is one shared library for each wrapset. Each is produced by # g-wrap, but also may contain some hand-coded routines. guilegnomelib_LTLIBRARIES = libgw-guile-gnome-corba.la ######################################################################## ## corba nodist_libgw_guile_gnome_corba_la_SOURCES = guile-gnome-gw-corba.c libgw_guile_gnome_corba_la_CFLAGS = $(GUILE_GLIB_CFLAGS) \ $(AM_CFLAGS) $(CORBA_CFLAGS) $(GUILE_CFLAGS) -DORBIT2_STUBS_API \ $(G_WRAP_CFLAGS) -I$(top_srcdir)/corba/gnome/corba libgw_guile_gnome_corba_la_LIBADD = $(CORBA_LIBS) $(GUILE_LIBS) \ $(G_WRAP_LIBS) $(GUILE_GLIB_LIBS) ../corba/libguile-gnome-corba-@API_VERSION@.la libgw_guile_gnome_corba_la_LDFLAGS = -module CLEANFILES += $(wildcard guile-gnome-gw-corba.*) corba.scm BUILT_SOURCES = guile-gnome-gw-corba.c guile-gnome-platform-2.16.2/corba/gnome/gw/Makefile.in0000644000175000017500000006302611752520725023056 0ustar00wingowingo00000000000000# Makefile.in generated by automake 1.11.5 from Makefile.am. # @configure_input@ # Copyright (C) 1994, 1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, # 2003, 2004, 2005, 2006, 2007, 2008, 2009, 2010, 2011 Free Software # Foundation, Inc. # This Makefile.in is free software; the Free Software Foundation # gives unlimited permission to copy and/or distribute it, # with or without modifications, as long as this notice is preserved. # This program is distributed in the hope that it will be useful, # but WITHOUT ANY WARRANTY, to the extent permitted by law; without # even the implied warranty of MERCHANTABILITY or FITNESS FOR A # PARTICULAR PURPOSE. @SET_MAKE@ # guile-gnome # Copyright (C) 2003,2004,2009,2012 Free Software Foundation, Inc. # This program is free software; you can redistribute it and/or # modify it under the terms of the GNU General Public License as # published by the Free Software Foundation; either version 2 of # the License, or (at your option) any later version. # This program is distributed in the hope that it will be useful, # but WITHOUT ANY WARRANTY; without even the implied warranty of # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the # GNU General Public License for more details. # You should have received a copy of the GNU General Public License # along with this program; if not, contact: # Free Software Foundation Voice: +1-617-542-5942 # 59 Temple Place - Suite 330 Fax: +1-617-542-2652 # Boston, MA 02111-1307, USA gnu@gnu.org # # Makefile snippet # VPATH = @srcdir@ am__make_dryrun = \ { \ am__dry=no; \ case $$MAKEFLAGS in \ *\\[\ \ ]*) \ echo 'am--echo: ; @echo "AM" OK' | $(MAKE) -f - 2>/dev/null \ | grep '^AM OK$$' >/dev/null || am__dry=yes;; \ *) \ for am__flg in $$MAKEFLAGS; do \ case $$am__flg in \ *=*|--*) ;; \ *n*) am__dry=yes; break;; \ esac; \ done;; \ esac; \ test $$am__dry = yes; \ } pkgdatadir = $(datadir)/@PACKAGE@ pkgincludedir = $(includedir)/@PACKAGE@ pkglibdir = $(libdir)/@PACKAGE@ pkglibexecdir = $(libexecdir)/@PACKAGE@ am__cd = CDPATH="$${ZSH_VERSION+.}$(PATH_SEPARATOR)" && cd install_sh_DATA = $(install_sh) -c -m 644 install_sh_PROGRAM = $(install_sh) -c install_sh_SCRIPT = $(install_sh) -c INSTALL_HEADER = $(INSTALL_DATA) transform = $(program_transform_name) NORMAL_INSTALL = : PRE_INSTALL = : POST_INSTALL = : NORMAL_UNINSTALL = : PRE_UNINSTALL = : POST_UNINSTALL = : build_triplet = @build@ host_triplet = @host@ DIST_COMMON = $(srcdir)/Makefile.am $(srcdir)/Makefile.in \ $(top_srcdir)/common.mk subdir = corba/gnome/gw ACLOCAL_M4 = $(top_srcdir)/aclocal.m4 am__aclocal_m4_deps = $(top_srcdir)/configure.ac am__configure_deps = $(am__aclocal_m4_deps) $(CONFIGURE_DEPENDENCIES) \ $(ACLOCAL_M4) mkinstalldirs = $(install_sh) -d CONFIG_HEADER = $(top_builddir)/config.h CONFIG_CLEAN_FILES = CONFIG_CLEAN_VPATH_FILES = am__vpath_adj_setup = srcdirstrip=`echo "$(srcdir)" | sed 's|.|.|g'`; am__vpath_adj = case $$p in \ $(srcdir)/*) f=`echo "$$p" | sed "s|^$$srcdirstrip/||"`;; \ *) f=$$p;; \ esac; am__strip_dir = f=`echo $$p | sed -e 's|^.*/||'`; am__install_max = 40 am__nobase_strip_setup = \ srcdirstrip=`echo "$(srcdir)" | sed 's/[].[^$$\\*|]/\\\\&/g'` am__nobase_strip = \ for p in $$list; do echo "$$p"; done | sed -e "s|$$srcdirstrip/||" am__nobase_list = $(am__nobase_strip_setup); \ for p in $$list; do echo "$$p $$p"; done | \ sed "s| $$srcdirstrip/| |;"' / .*\//!s/ .*/ ./; s,\( .*\)/[^/]*$$,\1,' | \ $(AWK) 'BEGIN { files["."] = "" } { files[$$2] = files[$$2] " " $$1; \ if (++n[$$2] == $(am__install_max)) \ { print $$2, files[$$2]; n[$$2] = 0; files[$$2] = "" } } \ END { for (dir in files) print dir, files[dir] }' am__base_list = \ sed '$$!N;$$!N;$$!N;$$!N;$$!N;$$!N;$$!N;s/\n/ /g' | \ sed '$$!N;$$!N;$$!N;$$!N;s/\n/ /g' am__uninstall_files_from_dir = { \ test -z "$$files" \ || { test ! -d "$$dir" && test ! -f "$$dir" && test ! -r "$$dir"; } \ || { echo " ( cd '$$dir' && rm -f" $$files ")"; \ $(am__cd) "$$dir" && rm -f $$files; }; \ } am__installdirs = "$(DESTDIR)$(guilegnomelibdir)" \ "$(DESTDIR)$(guilegwmoduledir)" LTLIBRARIES = $(guilegnomelib_LTLIBRARIES) am__DEPENDENCIES_1 = libgw_guile_gnome_corba_la_DEPENDENCIES = $(am__DEPENDENCIES_1) \ $(am__DEPENDENCIES_1) $(am__DEPENDENCIES_1) \ $(am__DEPENDENCIES_1) \ ../corba/libguile-gnome-corba-@API_VERSION@.la nodist_libgw_guile_gnome_corba_la_OBJECTS = \ libgw_guile_gnome_corba_la-guile-gnome-gw-corba.lo libgw_guile_gnome_corba_la_OBJECTS = \ $(nodist_libgw_guile_gnome_corba_la_OBJECTS) libgw_guile_gnome_corba_la_LINK = $(LIBTOOL) --tag=CC \ $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=link $(CCLD) \ $(libgw_guile_gnome_corba_la_CFLAGS) $(CFLAGS) \ $(libgw_guile_gnome_corba_la_LDFLAGS) $(LDFLAGS) -o $@ DEFAULT_INCLUDES = -I.@am__isrc@ -I$(top_builddir) depcomp = $(SHELL) $(top_srcdir)/build-aux/depcomp am__depfiles_maybe = depfiles am__mv = mv -f COMPILE = $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(AM_CPPFLAGS) \ $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) LTCOMPILE = $(LIBTOOL) --tag=CC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) \ --mode=compile $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) \ $(AM_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) CCLD = $(CC) LINK = $(LIBTOOL) --tag=CC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) \ --mode=link $(CCLD) $(AM_CFLAGS) $(CFLAGS) $(AM_LDFLAGS) \ $(LDFLAGS) -o $@ SOURCES = $(nodist_libgw_guile_gnome_corba_la_SOURCES) DIST_SOURCES = am__can_run_installinfo = \ case $$AM_UPDATE_INFO_DIR in \ n|no|NO) false;; \ *) (install-info --version) >/dev/null 2>&1;; \ esac DATA = $(guilegwmodule_DATA) ETAGS = etags CTAGS = ctags DISTFILES = $(DIST_COMMON) $(DIST_SOURCES) $(TEXINFOS) $(EXTRA_DIST) ACLOCAL = @ACLOCAL@ AG_PKG_CONFIG_PATH = @AG_PKG_CONFIG_PATH@ AMTAR = @AMTAR@ API_VERSION = @API_VERSION@ AR = @AR@ ATK_CFLAGS = @ATK_CFLAGS@ ATK_LIBS = @ATK_LIBS@ AUTOCONF = @AUTOCONF@ AUTOHEADER = @AUTOHEADER@ AUTOMAKE = @AUTOMAKE@ AWK = @AWK@ BONOBO_IDL_DIR = @BONOBO_IDL_DIR@ CANVAS_CFLAGS = @CANVAS_CFLAGS@ CANVAS_LIBS = @CANVAS_LIBS@ CC = @CC@ CCDEPMODE = @CCDEPMODE@ CFLAGS = @CFLAGS@ CORBA_CFLAGS = @CORBA_CFLAGS@ CORBA_LIBS = @CORBA_LIBS@ CPP = @CPP@ CPPFLAGS = @CPPFLAGS@ CYGPATH_W = @CYGPATH_W@ DEFS = @DEFS@ DEPDIR = @DEPDIR@ DLLTOOL = @DLLTOOL@ DSYMUTIL = @DSYMUTIL@ DUMPBIN = @DUMPBIN@ ECHO_C = @ECHO_C@ ECHO_N = @ECHO_N@ ECHO_T = @ECHO_T@ EGREP = @EGREP@ EXEEXT = @EXEEXT@ FGREP = @FGREP@ GCONF_CFLAGS = @GCONF_CFLAGS@ GCONF_LIBS = @GCONF_LIBS@ GDK_CFLAGS = @GDK_CFLAGS@ GDK_LIBS = @GDK_LIBS@ GDK_PIXBUF_CFLAGS = @GDK_PIXBUF_CFLAGS@ GDK_PIXBUF_LIBS = @GDK_PIXBUF_LIBS@ GLIB_CFLAGS = @GLIB_CFLAGS@ GLIB_LIBS = @GLIB_LIBS@ GNOMEUI_DEPRECATION_FLAGS = @GNOMEUI_DEPRECATION_FLAGS@ GNOME_VFS_CFLAGS = @GNOME_VFS_CFLAGS@ GNOME_VFS_DEPRECATED_CFLAGS = @GNOME_VFS_DEPRECATED_CFLAGS@ GNOME_VFS_LIBS = @GNOME_VFS_LIBS@ GOBJECT_CFLAGS = @GOBJECT_CFLAGS@ GOBJECT_LIBS = @GOBJECT_LIBS@ GREP = @GREP@ GTHREAD_CFLAGS = @GTHREAD_CFLAGS@ GTHREAD_LIBS = @GTHREAD_LIBS@ GTK_CFLAGS = @GTK_CFLAGS@ GTK_DEPRECATED_CFLAGS = @GTK_DEPRECATED_CFLAGS@ GTK_LIBS = @GTK_LIBS@ GUILE_CAIRO_CFLAGS = @GUILE_CAIRO_CFLAGS@ GUILE_CAIRO_LIBS = @GUILE_CAIRO_LIBS@ GUILE_CFLAGS = @GUILE_CFLAGS@ GUILE_EFFECTIVE_VERSION = @GUILE_EFFECTIVE_VERSION@ GUILE_GLIB_CFLAGS = @GUILE_GLIB_CFLAGS@ GUILE_GLIB_LIBS = @GUILE_GLIB_LIBS@ GUILE_LIBS = @GUILE_LIBS@ G_WRAP_CFLAGS = @G_WRAP_CFLAGS@ G_WRAP_LIBS = @G_WRAP_LIBS@ G_WRAP_LIB_DIR = @G_WRAP_LIB_DIR@ G_WRAP_MODULE_DIR = @G_WRAP_MODULE_DIR@ INSTALL = @INSTALL@ INSTALL_DATA = @INSTALL_DATA@ INSTALL_PROGRAM = @INSTALL_PROGRAM@ INSTALL_SCRIPT = @INSTALL_SCRIPT@ INSTALL_STRIP_PROGRAM = @INSTALL_STRIP_PROGRAM@ LD = @LD@ LDFLAGS = @LDFLAGS@ LIBGLADE_CFLAGS = @LIBGLADE_CFLAGS@ LIBGLADE_LIBS = @LIBGLADE_LIBS@ LIBGNOMEUI_CFLAGS = @LIBGNOMEUI_CFLAGS@ LIBGNOMEUI_LIBS = @LIBGNOMEUI_LIBS@ LIBGNOME_CFLAGS = @LIBGNOME_CFLAGS@ LIBGNOME_LIBS = @LIBGNOME_LIBS@ LIBOBJS = @LIBOBJS@ LIBS = @LIBS@ LIBTOOL = @LIBTOOL@ LIPO = @LIPO@ LN_S = @LN_S@ LTLIBOBJS = @LTLIBOBJS@ MAKEINFO = @MAKEINFO@ MANIFEST_TOOL = @MANIFEST_TOOL@ MKDIR_P = @MKDIR_P@ NM = @NM@ NMEDIT = @NMEDIT@ OBJDUMP = @OBJDUMP@ OBJEXT = @OBJEXT@ ORBIT_IDL = @ORBIT_IDL@ OTOOL = @OTOOL@ OTOOL64 = @OTOOL64@ PACKAGE = @PACKAGE@ PACKAGE_BUGREPORT = @PACKAGE_BUGREPORT@ PACKAGE_NAME = @PACKAGE_NAME@ PACKAGE_STRING = @PACKAGE_STRING@ PACKAGE_TARNAME = @PACKAGE_TARNAME@ PACKAGE_URL = @PACKAGE_URL@ PACKAGE_VERSION = @PACKAGE_VERSION@ PANGOCAIRO_CFLAGS = @PANGOCAIRO_CFLAGS@ PANGOCAIRO_LIBS = @PANGOCAIRO_LIBS@ PANGO_CFLAGS = @PANGO_CFLAGS@ PANGO_LIBS = @PANGO_LIBS@ PATH_SEPARATOR = @PATH_SEPARATOR@ PKG_CONFIG = @PKG_CONFIG@ PKG_CONFIG_LIBDIR = @PKG_CONFIG_LIBDIR@ PKG_CONFIG_PATH = @PKG_CONFIG_PATH@ RANLIB = @RANLIB@ SED = @SED@ SET_MAKE = @SET_MAKE@ SHELL = @SHELL@ STRIP = @STRIP@ VERSION = @VERSION@ WARN_CFLAGS = @WARN_CFLAGS@ abs_builddir = @abs_builddir@ abs_srcdir = @abs_srcdir@ abs_top_builddir = @abs_top_builddir@ abs_top_srcdir = @abs_top_srcdir@ ac_ct_AR = @ac_ct_AR@ ac_ct_CC = @ac_ct_CC@ ac_ct_DUMPBIN = @ac_ct_DUMPBIN@ am__include = @am__include@ am__leading_dot = @am__leading_dot@ am__quote = @am__quote@ am__tar = @am__tar@ am__untar = @am__untar@ bindir = @bindir@ build = @build@ build_alias = @build_alias@ build_cpu = @build_cpu@ build_os = @build_os@ build_vendor = @build_vendor@ builddir = @builddir@ datadir = @datadir@ datarootdir = @datarootdir@ docdir = @docdir@ dvidir = @dvidir@ exec_prefix = @exec_prefix@ host = @host@ host_alias = @host_alias@ host_cpu = @host_cpu@ host_os = @host_os@ host_vendor = @host_vendor@ htmldir = @htmldir@ includedir = @includedir@ infodir = @infodir@ install_sh = @install_sh@ libdir = @libdir@ libexecdir = @libexecdir@ localedir = @localedir@ localstatedir = @localstatedir@ mandir = @mandir@ mkdir_p = @mkdir_p@ oldincludedir = @oldincludedir@ pdfdir = @pdfdir@ prefix = @prefix@ program_transform_name = @program_transform_name@ psdir = @psdir@ sbindir = @sbindir@ sharedstatedir = @sharedstatedir@ srcdir = @srcdir@ sysconfdir = @sysconfdir@ target_alias = @target_alias@ top_build_prefix = @top_build_prefix@ top_builddir = @top_builddir@ top_srcdir = @top_srcdir@ guilegnomedir = $(datadir)/guile-gnome-@API_VERSION@ guilemoduledir = $(guilegnomedir)/gnome guilegwmoduledir = $(guilegnomedir)/gnome/gw guilegnomelibdir = $(libdir)/guile-gnome-@API_VERSION@ AM_CFLAGS = -I. -I$(srcdir) $(WARN_CFLAGS) $(DEBUG_CFLAGS) # For overriding from the command line (e.g. --debug) GUILE_FLAGS = SUFFIXES = .x .doc GUILE_SNARF_CFLAGS = $(DEFS) $(AM_CFLAGS) $(GUILE_CFLAGS) $(G_WRAP_CFLAGS) PACKAGES = atk cairo corba defs gconf glib gnome-vfs gtk libglade libgnome libgnomecanvas libgnomeui pango SOURCE_GUILE_PATH = $(shell echo $(addprefix $(top_srcdir)/,$(PACKAGES)) | sed -e 's/ /:/g'):$(srcdir) BUILD_GUILE_PATH = $(if $(filter-out $(top_srcdir),$(top_builddir)),$(shell echo -n $(addprefix $(top_builddir)/,$(PACKAGES)): | sed -e 's/ /:/g'),) GUILE_LOAD_PATH := $(BUILD_GUILE_PATH)$(SOURCE_GUILE_PATH):${G_WRAP_MODULE_DIR}:${GUILE_LOAD_PATH} # Real gnu make foo packages = $(filter-out %-uninstalled,$(patsubst %.pc.in,%,$(notdir $(wildcard $(srcdir)/*.pc.in)))) pcifiles = $(patsubst %,%-@API_VERSION@.pc,$(packages)) pcufiles = $(patsubst %,%-@API_VERSION@-uninstalled.pc,$(packages)) guilegwmodule_DATA = corba-spec.scm corba.scm EXTRA_DIST = corba-spec.scm CLEANFILES = $(wildcard gnome-*.log) $(wildcard \ guile-gnome-gw-corba.*) corba.scm # There is one shared library for each wrapset. Each is produced by # g-wrap, but also may contain some hand-coded routines. guilegnomelib_LTLIBRARIES = libgw-guile-gnome-corba.la ######################################################################## nodist_libgw_guile_gnome_corba_la_SOURCES = guile-gnome-gw-corba.c libgw_guile_gnome_corba_la_CFLAGS = $(GUILE_GLIB_CFLAGS) \ $(AM_CFLAGS) $(CORBA_CFLAGS) $(GUILE_CFLAGS) -DORBIT2_STUBS_API \ $(G_WRAP_CFLAGS) -I$(top_srcdir)/corba/gnome/corba libgw_guile_gnome_corba_la_LIBADD = $(CORBA_LIBS) $(GUILE_LIBS) \ $(G_WRAP_LIBS) $(GUILE_GLIB_LIBS) ../corba/libguile-gnome-corba-@API_VERSION@.la libgw_guile_gnome_corba_la_LDFLAGS = -module BUILT_SOURCES = guile-gnome-gw-corba.c all: $(BUILT_SOURCES) $(MAKE) $(AM_MAKEFLAGS) all-am .SUFFIXES: .SUFFIXES: .x .doc .c .lo .o .obj $(srcdir)/Makefile.in: $(srcdir)/Makefile.am $(top_srcdir)/common.mk $(am__configure_deps) @for dep in $?; do \ case '$(am__configure_deps)' in \ *$$dep*) \ ( cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh ) \ && { if test -f $@; then exit 0; else break; fi; }; \ exit 1;; \ esac; \ done; \ echo ' cd $(top_srcdir) && $(AUTOMAKE) --gnu corba/gnome/gw/Makefile'; \ $(am__cd) $(top_srcdir) && \ $(AUTOMAKE) --gnu corba/gnome/gw/Makefile .PRECIOUS: Makefile Makefile: $(srcdir)/Makefile.in $(top_builddir)/config.status @case '$?' in \ *config.status*) \ cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh;; \ *) \ echo ' cd $(top_builddir) && $(SHELL) ./config.status $(subdir)/$@ $(am__depfiles_maybe)'; \ cd $(top_builddir) && $(SHELL) ./config.status $(subdir)/$@ $(am__depfiles_maybe);; \ esac; $(top_srcdir)/common.mk: $(top_builddir)/config.status: $(top_srcdir)/configure $(CONFIG_STATUS_DEPENDENCIES) cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh $(top_srcdir)/configure: $(am__configure_deps) cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh $(ACLOCAL_M4): $(am__aclocal_m4_deps) cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh $(am__aclocal_m4_deps): install-guilegnomelibLTLIBRARIES: $(guilegnomelib_LTLIBRARIES) @$(NORMAL_INSTALL) @list='$(guilegnomelib_LTLIBRARIES)'; test -n "$(guilegnomelibdir)" || list=; \ list2=; for p in $$list; do \ if test -f $$p; then \ list2="$$list2 $$p"; \ else :; fi; \ done; \ test -z "$$list2" || { \ echo " $(MKDIR_P) '$(DESTDIR)$(guilegnomelibdir)'"; \ $(MKDIR_P) "$(DESTDIR)$(guilegnomelibdir)" || exit 1; \ echo " $(LIBTOOL) $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=install $(INSTALL) $(INSTALL_STRIP_FLAG) $$list2 '$(DESTDIR)$(guilegnomelibdir)'"; \ $(LIBTOOL) $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=install $(INSTALL) $(INSTALL_STRIP_FLAG) $$list2 "$(DESTDIR)$(guilegnomelibdir)"; \ } uninstall-guilegnomelibLTLIBRARIES: @$(NORMAL_UNINSTALL) @list='$(guilegnomelib_LTLIBRARIES)'; test -n "$(guilegnomelibdir)" || list=; \ for p in $$list; do \ $(am__strip_dir) \ echo " $(LIBTOOL) $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=uninstall rm -f '$(DESTDIR)$(guilegnomelibdir)/$$f'"; \ $(LIBTOOL) $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=uninstall rm -f "$(DESTDIR)$(guilegnomelibdir)/$$f"; \ done clean-guilegnomelibLTLIBRARIES: -test -z "$(guilegnomelib_LTLIBRARIES)" || rm -f $(guilegnomelib_LTLIBRARIES) @list='$(guilegnomelib_LTLIBRARIES)'; for p in $$list; do \ dir="`echo $$p | sed -e 's|/[^/]*$$||'`"; \ test "$$dir" != "$$p" || dir=.; \ echo "rm -f \"$${dir}/so_locations\""; \ rm -f "$${dir}/so_locations"; \ done libgw-guile-gnome-corba.la: $(libgw_guile_gnome_corba_la_OBJECTS) $(libgw_guile_gnome_corba_la_DEPENDENCIES) $(EXTRA_libgw_guile_gnome_corba_la_DEPENDENCIES) $(libgw_guile_gnome_corba_la_LINK) -rpath $(guilegnomelibdir) $(libgw_guile_gnome_corba_la_OBJECTS) $(libgw_guile_gnome_corba_la_LIBADD) $(LIBS) mostlyclean-compile: -rm -f *.$(OBJEXT) distclean-compile: -rm -f *.tab.c @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/libgw_guile_gnome_corba_la-guile-gnome-gw-corba.Plo@am__quote@ .c.o: @am__fastdepCC_TRUE@ $(COMPILE) -MT $@ -MD -MP -MF $(DEPDIR)/$*.Tpo -c -o $@ $< @am__fastdepCC_TRUE@ $(am__mv) $(DEPDIR)/$*.Tpo $(DEPDIR)/$*.Po @AMDEP_TRUE@@am__fastdepCC_FALSE@ source='$<' object='$@' libtool=no @AMDEPBACKSLASH@ @AMDEP_TRUE@@am__fastdepCC_FALSE@ DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@ @am__fastdepCC_FALSE@ $(COMPILE) -c $< .c.obj: @am__fastdepCC_TRUE@ $(COMPILE) -MT $@ -MD -MP -MF $(DEPDIR)/$*.Tpo -c -o $@ `$(CYGPATH_W) '$<'` @am__fastdepCC_TRUE@ $(am__mv) $(DEPDIR)/$*.Tpo $(DEPDIR)/$*.Po @AMDEP_TRUE@@am__fastdepCC_FALSE@ source='$<' object='$@' libtool=no @AMDEPBACKSLASH@ @AMDEP_TRUE@@am__fastdepCC_FALSE@ DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@ @am__fastdepCC_FALSE@ $(COMPILE) -c `$(CYGPATH_W) '$<'` .c.lo: @am__fastdepCC_TRUE@ $(LTCOMPILE) -MT $@ -MD -MP -MF $(DEPDIR)/$*.Tpo -c -o $@ $< @am__fastdepCC_TRUE@ $(am__mv) $(DEPDIR)/$*.Tpo $(DEPDIR)/$*.Plo @AMDEP_TRUE@@am__fastdepCC_FALSE@ source='$<' object='$@' libtool=yes @AMDEPBACKSLASH@ @AMDEP_TRUE@@am__fastdepCC_FALSE@ DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@ @am__fastdepCC_FALSE@ $(LTCOMPILE) -c -o $@ $< libgw_guile_gnome_corba_la-guile-gnome-gw-corba.lo: guile-gnome-gw-corba.c @am__fastdepCC_TRUE@ $(LIBTOOL) --tag=CC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(AM_CPPFLAGS) $(CPPFLAGS) $(libgw_guile_gnome_corba_la_CFLAGS) $(CFLAGS) -MT libgw_guile_gnome_corba_la-guile-gnome-gw-corba.lo -MD -MP -MF $(DEPDIR)/libgw_guile_gnome_corba_la-guile-gnome-gw-corba.Tpo -c -o libgw_guile_gnome_corba_la-guile-gnome-gw-corba.lo `test -f 'guile-gnome-gw-corba.c' || echo '$(srcdir)/'`guile-gnome-gw-corba.c @am__fastdepCC_TRUE@ $(am__mv) $(DEPDIR)/libgw_guile_gnome_corba_la-guile-gnome-gw-corba.Tpo $(DEPDIR)/libgw_guile_gnome_corba_la-guile-gnome-gw-corba.Plo @AMDEP_TRUE@@am__fastdepCC_FALSE@ source='guile-gnome-gw-corba.c' object='libgw_guile_gnome_corba_la-guile-gnome-gw-corba.lo' libtool=yes @AMDEPBACKSLASH@ @AMDEP_TRUE@@am__fastdepCC_FALSE@ DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@ @am__fastdepCC_FALSE@ $(LIBTOOL) --tag=CC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(AM_CPPFLAGS) $(CPPFLAGS) $(libgw_guile_gnome_corba_la_CFLAGS) $(CFLAGS) -c -o libgw_guile_gnome_corba_la-guile-gnome-gw-corba.lo `test -f 'guile-gnome-gw-corba.c' || echo '$(srcdir)/'`guile-gnome-gw-corba.c mostlyclean-libtool: -rm -f *.lo clean-libtool: -rm -rf .libs _libs install-guilegwmoduleDATA: $(guilegwmodule_DATA) @$(NORMAL_INSTALL) @list='$(guilegwmodule_DATA)'; test -n "$(guilegwmoduledir)" || list=; \ if test -n "$$list"; then \ echo " $(MKDIR_P) '$(DESTDIR)$(guilegwmoduledir)'"; \ $(MKDIR_P) "$(DESTDIR)$(guilegwmoduledir)" || exit 1; \ fi; \ for p in $$list; do \ if test -f "$$p"; then d=; else d="$(srcdir)/"; fi; \ echo "$$d$$p"; \ done | $(am__base_list) | \ while read files; do \ echo " $(INSTALL_DATA) $$files '$(DESTDIR)$(guilegwmoduledir)'"; \ $(INSTALL_DATA) $$files "$(DESTDIR)$(guilegwmoduledir)" || exit $$?; \ done uninstall-guilegwmoduleDATA: @$(NORMAL_UNINSTALL) @list='$(guilegwmodule_DATA)'; test -n "$(guilegwmoduledir)" || list=; \ files=`for p in $$list; do echo $$p; done | sed -e 's|^.*/||'`; \ dir='$(DESTDIR)$(guilegwmoduledir)'; $(am__uninstall_files_from_dir) ID: $(HEADERS) $(SOURCES) $(LISP) $(TAGS_FILES) list='$(SOURCES) $(HEADERS) $(LISP) $(TAGS_FILES)'; \ unique=`for i in $$list; do \ if test -f "$$i"; then echo $$i; else echo $(srcdir)/$$i; fi; \ done | \ $(AWK) '{ files[$$0] = 1; nonempty = 1; } \ END { if (nonempty) { for (i in files) print i; }; }'`; \ mkid -fID $$unique tags: TAGS TAGS: $(HEADERS) $(SOURCES) $(TAGS_DEPENDENCIES) \ $(TAGS_FILES) $(LISP) set x; \ here=`pwd`; \ list='$(SOURCES) $(HEADERS) $(LISP) $(TAGS_FILES)'; \ unique=`for i in $$list; do \ if test -f "$$i"; then echo $$i; else echo $(srcdir)/$$i; fi; \ done | \ $(AWK) '{ files[$$0] = 1; nonempty = 1; } \ END { if (nonempty) { for (i in files) print i; }; }'`; \ shift; \ if test -z "$(ETAGS_ARGS)$$*$$unique"; then :; else \ test -n "$$unique" || unique=$$empty_fix; \ if test $$# -gt 0; then \ $(ETAGS) $(ETAGSFLAGS) $(AM_ETAGSFLAGS) $(ETAGS_ARGS) \ "$$@" $$unique; \ else \ $(ETAGS) $(ETAGSFLAGS) $(AM_ETAGSFLAGS) $(ETAGS_ARGS) \ $$unique; \ fi; \ fi ctags: CTAGS CTAGS: $(HEADERS) $(SOURCES) $(TAGS_DEPENDENCIES) \ $(TAGS_FILES) $(LISP) list='$(SOURCES) $(HEADERS) $(LISP) $(TAGS_FILES)'; \ unique=`for i in $$list; do \ if test -f "$$i"; then echo $$i; else echo $(srcdir)/$$i; fi; \ done | \ $(AWK) '{ files[$$0] = 1; nonempty = 1; } \ END { if (nonempty) { for (i in files) print i; }; }'`; \ test -z "$(CTAGS_ARGS)$$unique" \ || $(CTAGS) $(CTAGSFLAGS) $(AM_CTAGSFLAGS) $(CTAGS_ARGS) \ $$unique GTAGS: here=`$(am__cd) $(top_builddir) && pwd` \ && $(am__cd) $(top_srcdir) \ && gtags -i $(GTAGS_ARGS) "$$here" distclean-tags: -rm -f TAGS ID GTAGS GRTAGS GSYMS GPATH tags distdir: $(DISTFILES) @srcdirstrip=`echo "$(srcdir)" | sed 's/[].[^$$\\*]/\\\\&/g'`; \ topsrcdirstrip=`echo "$(top_srcdir)" | sed 's/[].[^$$\\*]/\\\\&/g'`; \ list='$(DISTFILES)'; \ dist_files=`for file in $$list; do echo $$file; done | \ sed -e "s|^$$srcdirstrip/||;t" \ -e "s|^$$topsrcdirstrip/|$(top_builddir)/|;t"`; \ case $$dist_files in \ */*) $(MKDIR_P) `echo "$$dist_files" | \ sed '/\//!d;s|^|$(distdir)/|;s,/[^/]*$$,,' | \ sort -u` ;; \ esac; \ for file in $$dist_files; do \ if test -f $$file || test -d $$file; then d=.; else d=$(srcdir); fi; \ if test -d $$d/$$file; then \ dir=`echo "/$$file" | sed -e 's,/[^/]*$$,,'`; \ if test -d "$(distdir)/$$file"; then \ find "$(distdir)/$$file" -type d ! -perm -700 -exec chmod u+rwx {} \;; \ fi; \ if test -d $(srcdir)/$$file && test $$d != $(srcdir); then \ cp -fpR $(srcdir)/$$file "$(distdir)$$dir" || exit 1; \ find "$(distdir)/$$file" -type d ! -perm -700 -exec chmod u+rwx {} \;; \ fi; \ cp -fpR $$d/$$file "$(distdir)$$dir" || exit 1; \ else \ test -f "$(distdir)/$$file" \ || cp -p $$d/$$file "$(distdir)/$$file" \ || exit 1; \ fi; \ done check-am: all-am check: $(BUILT_SOURCES) $(MAKE) $(AM_MAKEFLAGS) check-am all-am: Makefile $(LTLIBRARIES) $(DATA) installdirs: for dir in "$(DESTDIR)$(guilegnomelibdir)" "$(DESTDIR)$(guilegwmoduledir)"; do \ test -z "$$dir" || $(MKDIR_P) "$$dir"; \ done install: $(BUILT_SOURCES) $(MAKE) $(AM_MAKEFLAGS) install-am install-exec: install-exec-am install-data: install-data-am uninstall: uninstall-am install-am: all-am @$(MAKE) $(AM_MAKEFLAGS) install-exec-am install-data-am installcheck: installcheck-am install-strip: if test -z '$(STRIP)'; then \ $(MAKE) $(AM_MAKEFLAGS) INSTALL_PROGRAM="$(INSTALL_STRIP_PROGRAM)" \ install_sh_PROGRAM="$(INSTALL_STRIP_PROGRAM)" INSTALL_STRIP_FLAG=-s \ install; \ else \ $(MAKE) $(AM_MAKEFLAGS) INSTALL_PROGRAM="$(INSTALL_STRIP_PROGRAM)" \ install_sh_PROGRAM="$(INSTALL_STRIP_PROGRAM)" INSTALL_STRIP_FLAG=-s \ "INSTALL_PROGRAM_ENV=STRIPPROG='$(STRIP)'" install; \ fi mostlyclean-generic: clean-generic: -test -z "$(CLEANFILES)" || rm -f $(CLEANFILES) distclean-generic: -test -z "$(CONFIG_CLEAN_FILES)" || rm -f $(CONFIG_CLEAN_FILES) -test . = "$(srcdir)" || test -z "$(CONFIG_CLEAN_VPATH_FILES)" || rm -f $(CONFIG_CLEAN_VPATH_FILES) maintainer-clean-generic: @echo "This command is intended for maintainers to use" @echo "it deletes files that may require special tools to rebuild." -test -z "$(BUILT_SOURCES)" || rm -f $(BUILT_SOURCES) clean: clean-am clean-am: clean-generic clean-guilegnomelibLTLIBRARIES clean-libtool \ mostlyclean-am distclean: distclean-am -rm -rf ./$(DEPDIR) -rm -f Makefile distclean-am: clean-am distclean-compile distclean-generic \ distclean-tags dvi: dvi-am dvi-am: html: html-am html-am: info: info-am info-am: install-data-am: install-guilegnomelibLTLIBRARIES \ install-guilegwmoduleDATA install-dvi: install-dvi-am install-dvi-am: install-exec-am: install-html: install-html-am install-html-am: install-info: install-info-am install-info-am: install-man: install-pdf: install-pdf-am install-pdf-am: install-ps: install-ps-am install-ps-am: installcheck-am: maintainer-clean: maintainer-clean-am -rm -rf ./$(DEPDIR) -rm -f Makefile maintainer-clean-am: distclean-am maintainer-clean-generic mostlyclean: mostlyclean-am mostlyclean-am: mostlyclean-compile mostlyclean-generic \ mostlyclean-libtool pdf: pdf-am pdf-am: ps: ps-am ps-am: uninstall-am: uninstall-guilegnomelibLTLIBRARIES \ uninstall-guilegwmoduleDATA .MAKE: all check install install-am install-strip .PHONY: CTAGS GTAGS all all-am check check-am clean clean-generic \ clean-guilegnomelibLTLIBRARIES clean-libtool ctags distclean \ distclean-compile distclean-generic distclean-libtool \ distclean-tags distdir dvi dvi-am html html-am info info-am \ install install-am install-data install-data-am install-dvi \ install-dvi-am install-exec install-exec-am \ install-guilegnomelibLTLIBRARIES install-guilegwmoduleDATA \ install-html install-html-am install-info install-info-am \ install-man install-pdf install-pdf-am install-ps \ install-ps-am install-strip installcheck installcheck-am \ installdirs maintainer-clean maintainer-clean-generic \ mostlyclean mostlyclean-compile mostlyclean-generic \ mostlyclean-libtool pdf pdf-am ps ps-am tags uninstall \ uninstall-am uninstall-guilegnomelibLTLIBRARIES \ uninstall-guilegwmoduleDATA export GUILE_LOAD_PATH .c.x: guile-snarf $(GUILE_SNARF_CFLAGS) $< > $@ \ || { rm $@; false; } .c.doc: $(CPP) -DSCM_MAGIC_SNARF_DOCS $(GUILE_SNARF_CFLAGS) $< \ | grep -E '(\^\^ {|\^\^ })' > $@ || { rm $@; false; } %.scm guile-gnome-gw-%.c: %-spec.scm guile $(GUILE_FLAGS) -c \ "(debug-set! stack 400000) \ (use-modules (gnome-@API_VERSION@)) \ (use-modules (g-wrap)) \ (use-modules (gnome gw $*-spec)) \ (generate-wrapset 'guile 'gnome-$* \"guile-gnome-gw-$*\")" mv guile-gnome-gw-$*.scm $*.scm %-@API_VERSION@.pc: %.pc cp $< $@ %-@API_VERSION@-uninstalled.pc: %-uninstalled.pc cp $< $@ # Tell versions [3.59,3.63) of GNU make to not export all variables. # Otherwise a system limit (for SysV at least) may be exceeded. .NOEXPORT: guile-gnome-platform-2.16.2/corba/gnome/Makefile.am0000644000175000017500000000026711670374302022423 0ustar00wingowingo00000000000000include $(top_srcdir)/common.mk SUBDIRS = guilemodule_DATA = if HAVE_CORBA guilemodule_DATA += corba.scm SUBDIRS += corba gw endif EXTRA_DIST = corba.scm DIST_SUBDIRS = corba gw guile-gnome-platform-2.16.2/corba/gnome/corba/0000755000175000017500000000000011752546506021460 5ustar00wingowingo00000000000000guile-gnome-platform-2.16.2/corba/gnome/corba/guile-gnome-corba.c0000644000175000017500000000773611670374302025125 0ustar00wingowingo00000000000000/* guile-gnome * Copyright (C) 2001, 2009 Martin Baulig * Copyright (C) 2003 Andy Wingo * * guile-gnome-corba.c: Support routines for the GLib wrapper * * This program is free software; you can redistribute it and/or * modify it under the terms of the GNU General Public License as * published by the Free Software Foundation; either version 2 of * the License, or (at your option) any later version. * * This program is distributed in the hope that it will be useful, * but WITHOUT ANY WARRANTY; without even the implied warranty of * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the * GNU General Public License for more details. * * You should have received a copy of the GNU General Public License * along with this program; if not, contact: * * Free Software Foundation Voice: +1-617-542-5942 * 59 Temple Place - Suite 330 Fax: +1-617-542-2652 * Boston, MA 02111-1307, USA gnu@gnu.org */ #include #include #include #include #include #include #include #include //#include #include #include #include #undef BONOBO_EX #define BONOBO_EX(ev) ((ev)->_major != CORBA_NO_EXCEPTION) SCM_DEFINE (scm_corba_servant_to_reference, "corba-servant->reference", 1, 0, 0, (SCM servant), "") #define FUNC_NAME s_scm_corba_servant_to_reference { GuilePortableServer_Servant *gservant; CORBA_Object corba_objref; CORBA_Environment ev; SCM stub_class; SCM_VALIDATE_PORTABLE_SERVER_SERVANT_BASE_COPY (1, servant, gservant); CORBA_exception_init (&ev); corba_objref = PortableServer_POA_servant_to_reference (guile_corba_poa, (PortableServer_ServantBase *) gservant, &ev); g_assert (!BONOBO_EX (&ev)); stub_class = gservant->interface->stub_class; return scm_c_make_corba_object (stub_class, corba_objref); } #undef FUNC_NAME SCM_DEFINE (scm_bonobo_get_object, "bonobo-get-object", 2, 0, 0, (SCM moniker, SCM class), "") #define FUNC_NAME s_scm_bonobo_get_object { char *_s; CORBA_Object corba_objref; CORBA_Environment ev; CORBA_TypeCode tc; SCM_VALIDATE_STRING (1, moniker); SCM_VALIDATE_CORBA_OBJECT_CLASS_COPY (1, class, tc); CORBA_exception_init (&ev); _s = scm_to_locale_string (moniker); corba_objref = bonobo_get_object (_s, tc->repo_id, &ev); free (_s); if (BONOBO_EX (&ev)) { g_message (G_STRLOC ": %s", bonobo_exception_get_text (&ev)); CORBA_exception_free (&ev); return SCM_UNSPECIFIED; } return scm_c_make_corba_object (class, corba_objref); } #undef FUNC_NAME SCM_DEFINE (scm_bonobo_object_query_interface, "bonobo-object-query-interface", 2, 0, 0, (SCM object, SCM class), "") #define FUNC_NAME s_scm_bonobo_object_query_interface { CORBA_Object corba_objref, queried_objref; CORBA_Environment ev; CORBA_TypeCode tc; SCM_VALIDATE_CORBA_OBJECT_COPY (1, object, corba_objref); SCM_VALIDATE_CORBA_OBJECT_CLASS_COPY (1, class, tc); CORBA_exception_init (&ev); queried_objref = Bonobo_Unknown_queryInterface (corba_objref, tc->repo_id, &ev); if (BONOBO_EX (&ev)) { g_message (G_STRLOC ": %s", bonobo_exception_get_text (&ev)); CORBA_exception_free (&ev); return SCM_UNSPECIFIED; } if (!queried_objref) return SCM_BOOL_F; return scm_c_make_corba_object (class, queried_objref); } #undef FUNC_NAME void scm_init_gnome_corba (void) { #include "guile-gnome-corba.x" scm_c_export (s_scm_corba_servant_to_reference, s_scm_bonobo_get_object, s_scm_bonobo_object_query_interface, NULL); } guile-gnome-platform-2.16.2/corba/gnome/corba/guile-gnome-corba-primitives.c0000644000175000017500000006246211671225671027320 0ustar00wingowingo00000000000000/* guile-gnome * Copyright (C) 2001 Martin Baulig * Copyright (C) 2003, 2009, 2011 Andy Wingo * * guile-gnome-corba-primitives.c: * * This program is free software; you can redistribute it and/or * modify it under the terms of the GNU General Public License as * published by the Free Software Foundation; either version 2 of * the License, or (at your option) any later version. * * This program is distributed in the hope that it will be useful, * but WITHOUT ANY WARRANTY; without even the implied warranty of * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the * GNU General Public License for more details. * * You should have received a copy of the GNU General Public License * along with this program; if not, contact: * * Free Software Foundation Voice: +1-617-542-5942 * 59 Temple Place - Suite 330 Fax: +1-617-542-2652 * Boston, MA 02111-1307, USA gnu@gnu.org */ #include "guile-support.h" #include "guile-gnome-corba-primitives.h" #include "guile-gnome-corba-types.h" #include "guile-gnome-corba-generic.h" #include #include #include #include #include #include #include #include #undef BONOBO_EX #define BONOBO_EX(ev) ((ev)->_major != CORBA_NO_EXCEPTION) SCM scm_class_corba_object; SCM scm_class_portable_server_servant_base; SCM scm_class_slot_ref; scm_t_bits scm_tc16_guile_corba_interface; scm_t_bits scm_tc16_guile_portable_server_servant; DynamicAny_DynAnyFactory guile_corba_dynany_factory; PortableServer_POA guile_corba_poa; CORBA_ORB guile_corba_orb; static SCM _scm_make_class; static SCM scm_class_slot_set_x; static SCM make_marshal_func; static SCM make_dispatch_method; static SCM make_method; static SCM add_method; static GMainLoop *guile_corba_main_loop = NULL; #ifndef BONOBO_EX #define BONOBO_EX(ev) ((ev) && (ev)->_major != CORBA_NO_EXCEPTION) #endif #define WITH_DEBUGGING #ifdef WITH_DEBUGGING #define DEBUG(str, args...) g_print ("I: " str "\n", ##args) #else #define DEBUG(str, args...) #endif #define WARN(str, args...) g_print ("W: " str "\n", ##args) #define CLASSP(x) (SCM_STRUCTP (x) && SCM_OBJ_CLASS_FLAGS (x) & SCM_CLASSF_METACLASS) SCM_KEYWORD (k_ior, "ior"); SCM_KEYWORD (k_unknown, "unknown"); SCM_KEYWORD (k_metaclass, "metaclass"); SCM_KEYWORD (k_name, "name"); SCM_KEYWORD (k_specializers, "specializers"); SCM_KEYWORD (k_procedure, "procedure"); G_GNUC_UNUSED static SCM make_scm_module_name (const gchar *module_name) { gchar **parts, **ptr; SCM scm_name = SCM_EOL; parts = g_strsplit (module_name, ":", 0); for (ptr = parts; *ptr; ptr++) scm_name = scm_append_x (SCM_LIST2 (scm_name, SCM_LIST1 ( scm_from_locale_symbol (*ptr)))); g_strfreev (parts); return scm_name; } SCM_SYMBOL (sym_o, "o"); SCM_SYMBOL (sym_x, "x"); SCM_SYMBOL (sym_object, "%object"); SCM_SYMBOL (sym_name, "%name"); SCM_SYMBOL (sym_imethod, "%imethod"); SCM_SYMBOL (sym_args, "%args"); SCM_SYMBOL (sym_class, "%class"); SCM_KEYWORD (k_class, "class"); SCM_KEYWORD (k_accessor, "accessor"); SCM_KEYWORD (k_getter, "getter"); SCM_KEYWORD (k_allocation, "allocation"); SCM_KEYWORD (k_each_subclass, "each-subclass"); void scm_c_corba_handle_exception (CORBA_Environment *ev) { SCM name; name = scm_from_locale_stringn (ev->_id, strlen (ev->_id)); if (ev->_major == CORBA_SYSTEM_EXCEPTION) { CORBA_SystemException *se = CORBA_exception_value (ev); SCM minor, completed; minor = scm_from_long (se->minor);; switch (se->completed) { case CORBA_COMPLETED_YES: completed = scm_from_locale_symbol ("completed"); break; case CORBA_COMPLETED_NO: completed = scm_from_locale_symbol ("not-completed"); break; default: completed = scm_from_locale_symbol ("maybe-completed"); break; } CORBA_exception_free (ev); scm_ithrow (scm_sym_corba_system_exception, SCM_LIST3 (name, minor, completed), 1); } else { CORBA_exception_free (ev); scm_ithrow (scm_sym_corba_user_exception, SCM_LIST1 (name), 1); } } SCM_DEFINE (scm_corba_primitive_invoke_method, "corba-primitive-invoke-method", 3, 0, 1, (SCM method_name, SCM imethod, SCM class, SCM args), "") #define FUNC_NAME s_scm_corba_primitive_invoke_method { CORBA_Object corba_objref; ORBit_IMethod *method; CORBA_Environment ev; gpointer ret = NULL; gpointer *arg = NULL; SCM retval = SCM_UNSPECIFIED; gulong num_args, i; SCM_VALIDATE_STRING (1, method_name); SCM_VALIDATE_ORBIT_IMETHOD_COPY (2, imethod, method); SCM_VALIDATE_CORBA_OBJECT_COPY (3, class, corba_objref); num_args = method->arguments._length ? method->arguments._length-1 : 0; if (scm_ilength (args) != num_args) scm_wrong_num_args (method_name); CORBA_exception_init (&ev); if (method->ret) ret = ORBit_small_alloc (method->ret); arg = g_new0 (gpointer, num_args); for (i = 0; i < num_args; i++) arg [i] = ORBit_small_alloc (method->arguments._buffer [i].tc); for (i = 0; i < num_args; i++) { CORBA_any any = { method->arguments._buffer [i].tc, arg [i], FALSE }; scm_c_corba_marshal_any (&any, scm_list_ref (args, scm_from_int (i))); } ORBit_small_invoke_stub (corba_objref, method, ret, arg, CORBA_OBJECT_NIL, &ev); if (BONOBO_EX (&ev)) { g_free (arg); CORBA_free (ret); scm_c_corba_handle_exception (&ev); return SCM_UNSPECIFIED; } CORBA_exception_free (&ev); if (ret) { CORBA_any any = { method->ret, ret, FALSE }; retval = scm_c_corba_demarshal_any (&any); } // CORBA_free (ret); // g_free (arg); return retval; } #undef FUNC_NAME /* static SCM guile_corba_value_to_scm (CORBA_TypeCode tc, gpointer value) { SCM retval = SCM_UNDEFINED; switch (tc->kind) { #define _HANDLE_BASIC_VALUE(k,t,f) \ case CORBA_tk_ ## k: \ retval = ## f (*(CORBA_ ## t *) value); \ break; _HANDLE_BASIC_VALUE (short, short, scm_short2num); _HANDLE_BASIC_VALUE (long, long, scm_long2num); _HANDLE_BASIC_VALUE (ushort, unsigned_short, scm_int2num); _HANDLE_BASIC_VALUE (ulong, unsigned_long, scm_ulong2num); _HANDLE_BASIC_VALUE (longlong, long_long, scm_long_long2num); _HANDLE_BASIC_VALUE (ulonglong, unsigned_long_long, scm_long_long2num); _HANDLE_BASIC_VALUE (float, float, scm_float2num); _HANDLE_BASIC_VALUE (double, double, scm_double2num); #undef _HANDLE_BASIC_VALUE } return retval; } */ static SCM guile_corba_portable_server_servant_mark (SCM servant) { GuilePortableServer_Servant *gservant; gservant = (GuilePortableServer_Servant *) SCM_SMOB_DATA (servant); return gservant->this; } static size_t guile_corba_portable_server_servant_free (SCM smob_servant) { GuilePortableServer_Servant *gservant; PortableServer_ServantBase *servant; CORBA_Environment ev; gservant = (GuilePortableServer_Servant *) SCM_SMOB_DATA (smob_servant); servant = (PortableServer_ServantBase *) gservant; CORBA_exception_init (&ev); PortableServer_POA_deactivate_object (guile_corba_poa, gservant->objid, &ev); g_assert (!BONOBO_EX (&ev)); PortableServer_ServantBase__fini (servant, &ev); g_assert (!BONOBO_EX (&ev)); g_free (servant); return sizeof (GuilePortableServer_Servant); } #define FOREACH_LIST(l, init) for (l=(init); SCM_NNULLP (l); l = SCM_CDR (l)) SCM_DEFINE (scm_corba_primitive_find_poa_class, "corba-primitive-find-poa-class", 1, 0, 0, (SCM class), "") #define FUNC_NAME s_scm_corba_primitive_find_poa_class { SCM cpl; SCM_VALIDATE_PORTABLE_SERVER_SERVANT_BASE_CLASS (1, class); cpl = scm_class_precedence_list (class); FOREACH_LIST (cpl, scm_class_precedence_list (class)) if (SCM_NFALSEP (scm_slot_bound_using_class_p (SCM_CAR (cpl), class, scm_sym_orbit_iinterface))) return SCM_CAR (cpl); SCM_ASSERT (FALSE, class, SCM_ARG1, FUNC_NAME); return SCM_UNDEFINED; } #undef FUNC_NAME SCM_DEFINE (scm_corba_primitive_make_poa_instance, "corba-primitive-make-poa-instance", 1, 0, 0, (SCM class), "") #define FUNC_NAME s_scm_corba_primitive_make_poa_instance { GuilePortableServer_Servant *gservant; PortableServer_ServantBase *servant; GuileCorbaInterface *interface; CORBA_Environment ev; SCM object, smob; SCM_VALIDATE_PORTABLE_SERVER_SERVANT_BASE_CLASS_COPY (1, class, interface); gservant = g_new0 (GuilePortableServer_Servant, 1); gservant->this = SCM_UNDEFINED; gservant->interface = interface; servant = (PortableServer_ServantBase *) gservant; servant->vepv = interface->vepv; ORBIT_SERVANT_SET_CLASSINFO (servant, &interface->class_info); CORBA_exception_init (&ev); PortableServer_ServantBase__init (servant, &ev); g_assert (!BONOBO_EX (&ev)); gservant->objid = PortableServer_POA_activate_object (guile_corba_poa, servant, &ev); g_assert (!BONOBO_EX (&ev)); SCM_NEWSMOB (smob, scm_tc16_guile_portable_server_servant, servant); object = scm_make (SCM_LIST1 (class)); scm_slot_set_x (object, scm_sym_servant, smob); gservant->this = object; return object; } #undef FUNC_NAME static SCM repo_id_to_symbol (const gchar *format, const gchar *repo_id) { gchar *new_repo_id; SCM retval; new_repo_id = guile_corba_generic_repo_id_to_name (format, repo_id); retval = scm_from_locale_symboln (new_repo_id, strlen (new_repo_id)); g_free (new_repo_id); return retval; } SCM_DEFINE (scm_corba_typecode_primitive_p, "corba-typecode-primitive?", 1, 0, 0, (SCM typecode), "") #define FUNC_NAME s_scm_corba_typecode_primitive_p { return SCM_BOOL (SCM_TYP16_PREDICATE (scm_tc16_corba_typecode, typecode)); } #undef FUNC_NAME SCM_DEFINE (scm_corba_typecode_primitive_to_name, "corba-typecode-primitive->name", 1, 0, 0, (SCM typecode), "") #define FUNC_NAME s_scm_corba_typecode_primitive_to_name { CORBA_TypeCode tc; SCM_VALIDATE_CORBA_TYPECODE_COPY (1, typecode, tc); return repo_id_to_symbol ("TC:%s", tc->repo_id); } #undef FUNC_NAME static SCM scm_c_generic_skel_func_exception (void *data, SCM tag, SCM throw_args) { CORBA_Environment *ev = data; SCM cur_outp = scm_current_output_port(); scm_display (tag, cur_outp); scm_newline (cur_outp); scm_display (throw_args, cur_outp); scm_newline (cur_outp); if (SCM_EQ_P (tag, scm_sym_corba_system_exception)) { DEBUG (G_STRLOC ": CORBA system exception"); } else if (SCM_EQ_P (tag, scm_sym_corba_user_exception)) { DEBUG (G_STRLOC ": CORBA user exception"); } else { DEBUG (G_STRLOC ": Unknown exception"); CORBA_exception_set_system (ev, ex_CORBA_UNKNOWN, CORBA_COMPLETED_MAYBE); } return SCM_UNSPECIFIED; } static void scm_c_generic_skel_func (PortableServer_ServantBase *servant, gpointer retvalptr, gpointer *argptr, gpointer ctx, CORBA_Environment *ev, gpointer implementation) { GuilePortableServer_Servant *gservant = (GuilePortableServer_Servant *) servant; ORBit_IMethod *imethod; SCM poa_vector, generic, func, proc, args, retval; struct scm_body_thunk_data thunk_data; gulong i, length; SCM cur_outp = scm_current_output_port(); DEBUG (G_STRLOC ": %p - %p", servant, implementation); poa_vector = (SCM) implementation; scm_display (poa_vector, cur_outp); scm_newline (cur_outp); scm_display (gservant->this, cur_outp); scm_newline (cur_outp); imethod = (ORBit_IMethod *) SCM_SMOB_DATA (scm_c_vector_ref (poa_vector, 1)); generic = scm_c_vector_ref (poa_vector, 3); args = SCM_LIST1 (gservant->this); length = imethod->arguments._length; if (length) length--; for (i = 0; i < length; i++) { ORBit_IArg *arg = &imethod->arguments._buffer [i]; CORBA_any any = { arg->tc, argptr [i], FALSE }; SCM value; value = scm_c_corba_demarshal_any (&any); args = scm_append_x (SCM_LIST2 (args, SCM_LIST1 (value))); } func = scm_compute_applicable_methods (generic, args, scm_ilength (args), 1); if (SCM_FALSEP (func)) { CORBA_exception_set_system (ev, ex_CORBA_NO_IMPLEMENT, CORBA_COMPLETED_NO); return; } proc = scm_method_procedure (SCM_CAR (func)); if (!scm_procedure_p (proc)) { CORBA_exception_set_system (ev, ex_CORBA_NO_IMPLEMENT, CORBA_COMPLETED_NO); return; } thunk_data.tag = SCM_BOOL_T; thunk_data.body_proc = scm_call_2 (make_marshal_func, generic, args);; retval = scm_internal_catch (SCM_BOOL_T, scm_body_thunk, &thunk_data, scm_c_generic_skel_func_exception, ev); scm_display (retval, cur_outp); scm_newline (cur_outp); } static ORBitSmallSkeleton impl_finder_func (PortableServer_ServantBase *servant, const gchar *opname, gpointer *m_data, gpointer *impl) { GuilePortableServer_Servant *gservant = (GuilePortableServer_Servant *) servant; SCM poa_vector; gpointer value; DEBUG (G_STRLOC ": %p - |%s|", servant, opname); if (!g_hash_table_lookup_extended (gservant->interface->epv_hash, opname, NULL, &value)) { WARN (G_STRLOC ": Invalid operation '%s'", opname); return NULL; } poa_vector = (SCM) value; *m_data = (ORBit_IMethod *) SCM_SMOB_DATA (scm_c_vector_ref (poa_vector, 1)); *impl = poa_vector; return scm_c_generic_skel_func; } G_GNUC_UNUSED static void init_vepvmap_func (ORBit_VepvIdx * map) { /* PortableServer_ServantBase__vepv *fakevepv = 0; */ } static void guile_corba_register_type (CORBA_TypeCode tc) { SCM name; SCM typecode; name = repo_id_to_symbol ("TC:%s", tc->repo_id); SCM_NEWSMOB (typecode, scm_tc16_corba_typecode, ORBit_RootObject_duplicate (tc)); scm_define (name, typecode); guile_corba_generic_typecode_to_type (tc); } static void guile_corba_sys_register_interface (ORBit_IInterface *iinterface) { static GHashTable *iinterface_hash = NULL; GuileCorbaInterface *interface; SCM poa_class, poa_class_name, poa_parent_classes, poa_meta_class; SCM stub_class, stub_class_name, stub_parent_classes, stub_meta_class; SCM iinterface_smob; gulong length, i, j; if (!iinterface_hash) iinterface_hash = g_hash_table_new (g_str_hash, g_str_equal); if (g_hash_table_lookup (iinterface_hash, iinterface->tc->repo_id)) { WARN (G_STRLOC ": Already registered interface `%s'", iinterface->tc->repo_id); return; } guile_corba_register_type (iinterface->tc); stub_class_name = repo_id_to_symbol ("<%s>", iinterface->tc->repo_id); poa_class_name = repo_id_to_symbol ("", iinterface->tc->repo_id); interface = g_new0 (GuileCorbaInterface, 1); interface->iinterface = iinterface; interface->class_info.impl_finder = &impl_finder_func; //interface->class_info.vepvmap = &init_vepvmap_func; //init_ interface->class_info.class_name = g_strdup (iinterface->tc->repo_id); interface->class_info.class_id = g_new0 (CORBA_unsigned_long,1 ); ORBit_classinfo_register (&interface->class_info); interface->epv_hash = g_hash_table_new (g_str_hash, g_str_equal); interface->epv_size = iinterface->methods._length; interface->epv = g_new0 (gpointer, interface->epv_size); g_assert (iinterface->base_interfaces._length >= 1); length = iinterface->base_interfaces._length - 1; interface->vepv = (PortableServer_ServantBase__vepv *) g_new0 (gpointer, 2); interface->vepv [0] = g_new0 (PortableServer_ServantBase__epv, 1); SCM_NEWSMOB (iinterface_smob, scm_tc16_guile_corba_interface, interface); poa_meta_class = scm_class_portable_server_servant_base; poa_parent_classes = SCM_LIST1 (poa_meta_class); stub_meta_class = scm_class_corba_object; stub_parent_classes = SCM_LIST1 (stub_meta_class); for (i = 0; i < length; i++) { GuileCorbaInterface *base_interface; const CORBA_char *repo_id; repo_id = iinterface->base_interfaces._buffer [i]; base_interface = g_hash_table_lookup (iinterface_hash, repo_id); if (!base_interface) { WARN (G_STRLOC ": Unknown base interface `%s' in interface `%s'", repo_id, iinterface->tc->repo_id); continue; } interface->vepv [i+1] = (PortableServer_ServantBase__epv *) base_interface->epv; poa_meta_class = base_interface->poa_class; poa_parent_classes = scm_append_x (SCM_LIST2 (SCM_LIST1 (poa_meta_class), poa_parent_classes)); stub_meta_class = base_interface->stub_class; stub_parent_classes = scm_append_x (SCM_LIST2 (SCM_LIST1 (stub_meta_class), stub_parent_classes)); for (j = 0; j < base_interface->iinterface->methods._length; j++) { ORBit_IMethod *imethod = &base_interface->iinterface->methods._buffer [j]; g_hash_table_insert (interface->epv_hash, imethod->name, base_interface->epv [j]); } } stub_class = scm_apply (_scm_make_class, scm_cons2 (stub_parent_classes, SCM_EOL, SCM_LIST4 (k_name, stub_class_name, k_metaclass, stub_meta_class)), SCM_EOL); scm_call_3 (scm_class_slot_set_x, stub_class, scm_sym_corba_typecode, scm_c_make_corba_typecode (iinterface->tc)); scm_define (stub_class_name, stub_class); poa_class = scm_apply (_scm_make_class, scm_cons2 (poa_parent_classes, SCM_EOL, SCM_LIST4 (k_name, poa_class_name, k_metaclass, poa_meta_class)), SCM_EOL); scm_call_3 (scm_class_slot_set_x, poa_class, scm_sym_orbit_iinterface, iinterface_smob); scm_define (poa_class_name, poa_class); interface->poa_class = scm_gc_protect_object (poa_class); interface->stub_class = scm_gc_protect_object (stub_class); for (i = 0; i < iinterface->methods._length; i++) { ORBit_IMethod *imethod = &iinterface->methods._buffer [i]; SCM method_name, method_gsubr, method_proc; SCM imethod_smob, method; SCM specializers, poa_vector; gulong num_args; char *_s; { gchar *format = g_strdup_printf ("%%s:%s", imethod->name); method_name = repo_id_to_symbol (format, iinterface->tc->repo_id); g_free (format); } _s = scm_to_locale_string (scm_symbol_to_string (method_name)); method_gsubr = scm_c_define_gsubr (_s, 4, 0, 0, scm_corba_primitive_invoke_method); free (_s); SCM_NEWSMOB (imethod_smob, scm_tc16_orbit_imethod, imethod); method_proc = scm_call_3 (make_dispatch_method, method_gsubr, scm_symbol_to_string (method_name), imethod_smob); specializers = SCM_LIST1 (stub_class); num_args = imethod->arguments._length; if (num_args) --num_args; for (j = 0; j < num_args; j++) { ORBit_IArg *arg = &imethod->arguments._buffer [j]; SCM class; class = scm_c_corba_typecode_to_class (arg->tc); specializers = scm_append_x (SCM_LIST2 (specializers, SCM_LIST1 (class))); } method = scm_make (SCM_LIST3 (scm_class_generic, k_name, method_name)); scm_call_2 (add_method, method, scm_make (SCM_LIST5 (scm_class_method, k_procedure, method_proc, k_specializers, specializers))); scm_define (method_name, method); poa_vector = scm_c_make_vector (4L, SCM_UNDEFINED); scm_c_vector_set_x (poa_vector, 0, iinterface_smob); scm_c_vector_set_x (poa_vector, 1, imethod_smob); scm_c_vector_set_x (poa_vector, 2, scm_from_int (i)); scm_c_vector_set_x (poa_vector, 3, method); interface->epv [i] = (gpointer)(scm_gc_protect_object (poa_vector)); g_hash_table_insert (interface->epv_hash, imethod->name, interface->epv [i]); } g_hash_table_insert (iinterface_hash, iinterface->tc->repo_id, interface); } SCM scm_c_corba_typecode_primitive_to_class (CORBA_TypeCode tc) { SCM class_name; class_name = repo_id_to_symbol ("<%s>", tc->repo_id); return SCM_VARIABLE_REF (scm_lookup (class_name)); } SCM_DEFINE (scm_corba_typecode_primitive_to_class, "corba-primitive-typecode->class", 1, 0, 0, (SCM type), "") #define FUNC_NAME s_scm_corba_typecode_primitive_to_class { CORBA_TypeCode tc; SCM_VALIDATE_CORBA_TYPECODE_COPY (1, type, tc); return scm_c_corba_typecode_primitive_to_class (tc); } #undef FUNC_NAME SCM_DEFINE (scm_corba_primitive_open_module, "corba-primitive-open-module", 1, 0, 0, (SCM name), "") #define FUNC_NAME s_scm_corba_primitive_open_module { char *_s; CORBA_sequence_ORBit_IInterface *iinterfaces; CORBA_sequence_CORBA_TypeCode *types; gulong i; SCM_VALIDATE_STRING (1, name); _s = scm_to_locale_string (name); if (!ORBit_small_load_typelib (_s)) { free (_s); return SCM_BOOL_F; } free (_s); _s = scm_to_locale_string (name); types = ORBit_small_get_types (_s); free (_s); g_assert (types != NULL); _s = scm_to_locale_string (name); iinterfaces = ORBit_small_get_iinterfaces (_s); free (_s); g_assert (iinterfaces != NULL); for (i = 0; i < iinterfaces->_length; i++) guile_corba_sys_register_interface (&iinterfaces->_buffer [i]); for (i = 0; i < types->_length; i++) guile_corba_register_type (types->_buffer [i]); return SCM_BOOL_T; } #undef FUNC_NAME SCM_DEFINE (scm_corba_primitive_register_interface, "corba-primitive-register-interface", 1, 0, 0, (SCM name), "") #define FUNC_NAME s_scm_corba_primitive_register_interface { char *_s; ORBit_IInterface *iinterface; CORBA_Environment ev; SCM_VALIDATE_STRING (1, name); CORBA_exception_init (&ev); _s = scm_to_locale_string (name); iinterface = ORBit_small_get_iinterface (CORBA_OBJECT_NIL, _s, &ev); free (_s); if (BONOBO_EX (&ev)) { CORBA_exception_free (&ev); return SCM_UNSPECIFIED; } guile_corba_sys_register_interface (iinterface); return SCM_UNSPECIFIED; } #undef FUNC_NAME SCM_DEFINE (scm_corba_primitive_main, "corba-primitive-main", 0, 0, 0, (void), "") #define FUNC_NAME s_scm_corba_primitive_main { g_main_loop_run (guile_corba_main_loop); return SCM_UNSPECIFIED; } #undef FUNC_NAME void scm_pre_init_gnome_corba_primitives (void) { CORBA_Environment ev; gchar *my_argv[] = { "guile-corba", NULL }; int my_argc = 1; // g_log_set_always_fatal (G_LOG_LEVEL_WARNING | G_LOG_LEVEL_CRITICAL); scm_tc16_guile_corba_interface = scm_make_smob_type ("%guile-corba-interface", 0); scm_set_smob_free (scm_tc16_guile_corba_interface, NULL); scm_tc16_guile_portable_server_servant = scm_make_smob_type ("PortableServer-Servant", sizeof (GuilePortableServer_Servant)); scm_set_smob_free (scm_tc16_guile_portable_server_servant, guile_corba_portable_server_servant_free); scm_set_smob_mark (scm_tc16_guile_portable_server_servant, guile_corba_portable_server_servant_mark); guile_corba_register_type (TC_ORBit_IInterface); guile_corba_register_type (TC_ORBit_ITypes); bonobo_init (&my_argc,my_argv); CORBA_exception_init (&ev); guile_corba_orb = CORBA_ORB_init (&my_argc, my_argv, "orbit-local-orb", &ev); g_assert (!BONOBO_EX (&ev)); guile_corba_poa = (PortableServer_POA)CORBA_ORB_resolve_initial_references (guile_corba_orb, "RootPOA", &ev); g_assert (!BONOBO_EX (&ev)); PortableServer_POAManager_activate (PortableServer_POA__get_the_POAManager (guile_corba_poa, &ev), &ev); g_assert (!BONOBO_EX (&ev)); guile_corba_dynany_factory = (DynamicAny_DynAnyFactory) CORBA_ORB_resolve_initial_references (guile_corba_orb, "DynAnyFactory", &ev); g_assert (!BONOBO_EX (&ev)); CORBA_exception_free (&ev); guile_corba_main_loop = g_main_loop_new (NULL, FALSE); } void scm_init_gnome_corba_primitives (void) { #include "guile-gnome-corba-primitives.x" make_marshal_func = scm_permanent_object (scm_c_eval_string ("(lambda (proc args) (lambda () (apply proc args)))")); make_dispatch_method = scm_permanent_object (scm_c_eval_string ("(lambda (gsubr name imethod)" " (lambda (object . args)" " (gsubr name imethod object args)))")); add_method = scm_permanent_object (scm_c_eval_string ("add-method!")); make_method = scm_permanent_object (scm_c_eval_string ("(lambda (proc args) (lambda () (apply proc args)))")); scm_class_corba_object = scm_permanent_object (SCM_VARIABLE_REF (scm_c_lookup (""))); #if 0 scm_class_corba_object_meta = scm_permanent_object (SCM_VARIABLE_REF (scm_c_lookup ("<%CORBA:MetaObject>"))); #endif scm_class_portable_server_servant_base = scm_permanent_object (SCM_VARIABLE_REF (scm_c_lookup (""))); scm_class_slot_ref = scm_permanent_object (SCM_VARIABLE_REF (scm_c_lookup ("class-slot-ref"))); _scm_make_class = scm_permanent_object (SCM_VARIABLE_REF (scm_c_lookup ("make-class"))); scm_class_slot_set_x = scm_permanent_object (SCM_VARIABLE_REF (scm_c_lookup ("class-slot-set!"))); scm_c_export ( s_scm_corba_primitive_invoke_method, s_scm_corba_primitive_find_poa_class, s_scm_corba_primitive_make_poa_instance, s_scm_corba_typecode_primitive_p, s_scm_corba_typecode_primitive_to_name, s_scm_corba_typecode_primitive_to_class, s_scm_corba_primitive_open_module, s_scm_corba_primitive_register_interface, s_scm_corba_primitive_main, NULL); } guile-gnome-platform-2.16.2/corba/gnome/corba/guile-gnome-corba.h0000644000175000017500000000312511670374302025116 0ustar00wingowingo00000000000000/* guile-gnome * Copyright (C) 2001 Martin Baulig * Copyright (C) 2003 Andy Wingo * * guile-gnome-corba.h: * * This program is free software; you can redistribute it and/or * modify it under the terms of the GNU General Public License as * published by the Free Software Foundation; either version 2 of * the License, or (at your option) any later version. * * This program is distributed in the hope that it will be useful, * but WITHOUT ANY WARRANTY; without even the implied warranty of * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the * GNU General Public License for more details. * * You should have received a copy of the GNU General Public License * along with this program; if not, contact: * * Free Software Foundation Voice: +1-617-542-5942 * 59 Temple Place - Suite 330 Fax: +1-617-542-2652 * Boston, MA 02111-1307, USA gnu@gnu.org */ #ifndef __GUILE_CORBA_H__ #define __GUILE_CORBA_H__ 1 #include #include #include SCM guile_corba_typecode_to_class (SCM type); SCM scm_corba_servant_to_reference (SCM smob_servant); SCM scm_bonobo_get_object (SCM moniker, SCM class); SCM scm_bonobo_object_query_interface (SCM object, SCM class); void scm_init_gnome_corba (void); void scm_init_gnome_corba_module (void); #endif guile-gnome-platform-2.16.2/corba/gnome/corba/guile-gnome-corba-generic.c0000644000175000017500000001035511670374302026526 0ustar00wingowingo00000000000000/* guile-gnome * Copyright (C) 2001 Martin Baulig * Copyright (C) 2003 Andy Wingo * * guile-gnome-corba-generic.c: * * This program is free software; you can redistribute it and/or * modify it under the terms of the GNU General Public License as * published by the Free Software Foundation; either version 2 of * the License, or (at your option) any later version. * * This program is distributed in the hope that it will be useful, * but WITHOUT ANY WARRANTY; without even the implied warranty of * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the * GNU General Public License for more details. * * You should have received a copy of the GNU General Public License * along with this program; if not, contact: * * Free Software Foundation Voice: +1-617-542-5942 * 59 Temple Place - Suite 330 Fax: +1-617-542-2652 * Boston, MA 02111-1307, USA gnu@gnu.org */ #include #include #include #include static GQuark quark_corba_typecode = 0; static GHashTable *typecode_type_hash = NULL; gchar * guile_corba_generic_repo_id_to_name (const gchar *format, const gchar *repo_id) { gchar *new_repo_id, *ptr, *retval; if (!strncmp (repo_id, "IDL:", 4)) repo_id += 4; new_repo_id = g_strdup (repo_id); ptr = strchr (new_repo_id, ':'); if (ptr) *ptr = '\0'; for (ptr = new_repo_id; *ptr; ptr++) if (*ptr == '/') *ptr = ':'; if (format) { retval = g_strdup_printf (format, new_repo_id); g_free (new_repo_id); } else retval = new_repo_id; return retval; } gchar * guile_corba_generic_make_type_name (const gchar *StudlyCaps) { static SCM de_studly_capsify = SCM_BOOL_F; SCM ret; if (SCM_FALSEP (de_studly_capsify)) { de_studly_capsify = SCM_VARIABLE_REF (scm_c_module_lookup (scm_c_resolve_module ("gnome gobject utils"), "gtype-name->class-name")); } ret = scm_call_1 (de_studly_capsify, scm_from_locale_string (StudlyCaps)); return scm_to_locale_string (scm_symbol_to_string (ret)); } static gchar * make_enum_name (const gchar *repo_id, const gchar *name) { gchar *new_repo_id, *new_name, *retval; new_repo_id = guile_corba_generic_repo_id_to_name (NULL, repo_id); new_name = guile_corba_generic_make_type_name (name); retval = g_strdup_printf ("%s:%s", new_repo_id, new_name); g_free (new_repo_id); g_free (new_name); return retval; } GType guile_corba_generic_typecode_to_type (CORBA_TypeCode tc) { CORBA_TypeCode real_tc; GType retval; retval = GPOINTER_TO_INT (g_hash_table_lookup (typecode_type_hash, tc->repo_id)); if (retval) return retval; retval = G_TYPE_NONE; real_tc = tc; while (real_tc->kind == CORBA_tk_alias) real_tc = real_tc->subtypes [0]; switch (real_tc->kind) { case CORBA_tk_enum: { GEnumValue *values; gchar *name, *c; guint i; values = g_new0 (GEnumValue, real_tc->sub_parts + 1); for (i = 0; i < real_tc->sub_parts; i++) { values [i].value = i; values [i].value_name = make_enum_name (tc->repo_id, real_tc->subnames [i]); values [i].value_nick = guile_corba_generic_make_type_name (real_tc->subnames [i]); } name = guile_corba_generic_repo_id_to_name (NULL, tc->repo_id); for (c = name; *c; c++) if (*c == ':') *c = '+'; retval = g_enum_register_static (name, values); g_type_set_qdata (retval, quark_corba_typecode, real_tc); g_hash_table_insert (typecode_type_hash, real_tc->repo_id, GINT_TO_POINTER (retval)); g_free (name); break; } default: break; } return retval; } CORBA_TypeCode guile_corba_generic_type_to_typecode (GType type) { CORBA_TypeCode tc; tc = g_type_get_qdata (type, quark_corba_typecode); if (!tc) tc = TC_null; return tc; } void scm_pre_init_gnome_corba_generic (void) { quark_corba_typecode = g_quark_from_static_string ("%corba-typecode"); typecode_type_hash = g_hash_table_new (g_str_hash, g_str_equal); } guile-gnome-platform-2.16.2/corba/gnome/corba/Makefile.am0000644000175000017500000000244511670374302023511 0ustar00wingowingo00000000000000include $(top_srcdir)/common.mk lib_LTLIBRARIES = libguile-gnome-corba-@API_VERSION@.la # libguile-gnome-gobject (core library) C_FILES = guile-gnome-corba.c \ guile-gnome-corba-types.c \ guile-gnome-corba-primitives.c \ guile-gnome-corba-generic.c H_FILES = $(C_FILES:.c=.h) libguile_gnome_corba_@API_VERSION@_la_SOURCES = $(C_FILES) $(H_FILES) libguile_gnome_corba_@API_VERSION@_la_CFLAGS = $(CORBA_CFLAGS) \ $(AM_CFLAGS) $(GUILE_GLIB_CFLAGS) $(GUILE_CFLAGS) -DORBIT2_STUBS_API libguile_gnome_corba_@API_VERSION@_la_LIBADD = $(GUILE_GLIB_LIBS) $(GUILE_LIBS) libguile_gnome_corba_@API_VERSION@_la_LDFLAGS = -export-dynamic # FIXME: version info guile_gnome_includedir = $(includedir)/guile-gnome-@API_VERSION@ guile_gnome_subincludedir = $(guile_gnome_includedir)/guile-gnome-corba guile_gnome_subinclude_HEADERS = $(H_FILES) # Scheme files moduledir = $(guilemoduledir)/corba module_DATA = primitives.scm types.scm GUILE_SNARF_CFLAGS += $(GUILE_GLIB_CFLAGS) $(CORBA_CFLAGS) DOT_X_FILES = $(C_FILES:.c=.x) DOT_DOC_FILES = guile-gnome-corba.doc \ guile-gnome-corba-types.doc \ guile-gnome-corba-primitives.doc BUILT_SOURCES = $(DOT_X_FILES) $(DOT_DOC_FILES) CLEANFILES = $(DOT_X_FILES) $(DOT_DOC_FILES) #guilegnome_DATA = guile-gnome-corba-procedures.txt EXTRA_DIST = $(module_DATA) guile-gnome-platform-2.16.2/corba/gnome/corba/Makefile.in0000644000175000017500000010000211752520724023510 0ustar00wingowingo00000000000000# Makefile.in generated by automake 1.11.5 from Makefile.am. # @configure_input@ # Copyright (C) 1994, 1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, # 2003, 2004, 2005, 2006, 2007, 2008, 2009, 2010, 2011 Free Software # Foundation, Inc. # This Makefile.in is free software; the Free Software Foundation # gives unlimited permission to copy and/or distribute it, # with or without modifications, as long as this notice is preserved. # This program is distributed in the hope that it will be useful, # but WITHOUT ANY WARRANTY, to the extent permitted by law; without # even the implied warranty of MERCHANTABILITY or FITNESS FOR A # PARTICULAR PURPOSE. @SET_MAKE@ # guile-gnome # Copyright (C) 2003,2004,2009,2012 Free Software Foundation, Inc. # This program is free software; you can redistribute it and/or # modify it under the terms of the GNU General Public License as # published by the Free Software Foundation; either version 2 of # the License, or (at your option) any later version. # This program is distributed in the hope that it will be useful, # but WITHOUT ANY WARRANTY; without even the implied warranty of # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the # GNU General Public License for more details. # You should have received a copy of the GNU General Public License # along with this program; if not, contact: # Free Software Foundation Voice: +1-617-542-5942 # 59 Temple Place - Suite 330 Fax: +1-617-542-2652 # Boston, MA 02111-1307, USA gnu@gnu.org # # Makefile snippet # VPATH = @srcdir@ am__make_dryrun = \ { \ am__dry=no; \ case $$MAKEFLAGS in \ *\\[\ \ ]*) \ echo 'am--echo: ; @echo "AM" OK' | $(MAKE) -f - 2>/dev/null \ | grep '^AM OK$$' >/dev/null || am__dry=yes;; \ *) \ for am__flg in $$MAKEFLAGS; do \ case $$am__flg in \ *=*|--*) ;; \ *n*) am__dry=yes; break;; \ esac; \ done;; \ esac; \ test $$am__dry = yes; \ } pkgdatadir = $(datadir)/@PACKAGE@ pkgincludedir = $(includedir)/@PACKAGE@ pkglibdir = $(libdir)/@PACKAGE@ pkglibexecdir = $(libexecdir)/@PACKAGE@ am__cd = CDPATH="$${ZSH_VERSION+.}$(PATH_SEPARATOR)" && cd install_sh_DATA = $(install_sh) -c -m 644 install_sh_PROGRAM = $(install_sh) -c install_sh_SCRIPT = $(install_sh) -c INSTALL_HEADER = $(INSTALL_DATA) transform = $(program_transform_name) NORMAL_INSTALL = : PRE_INSTALL = : POST_INSTALL = : NORMAL_UNINSTALL = : PRE_UNINSTALL = : POST_UNINSTALL = : build_triplet = @build@ host_triplet = @host@ DIST_COMMON = $(guile_gnome_subinclude_HEADERS) $(srcdir)/Makefile.am \ $(srcdir)/Makefile.in $(top_srcdir)/common.mk subdir = corba/gnome/corba ACLOCAL_M4 = $(top_srcdir)/aclocal.m4 am__aclocal_m4_deps = $(top_srcdir)/configure.ac am__configure_deps = $(am__aclocal_m4_deps) $(CONFIGURE_DEPENDENCIES) \ $(ACLOCAL_M4) mkinstalldirs = $(install_sh) -d CONFIG_HEADER = $(top_builddir)/config.h CONFIG_CLEAN_FILES = CONFIG_CLEAN_VPATH_FILES = am__vpath_adj_setup = srcdirstrip=`echo "$(srcdir)" | sed 's|.|.|g'`; am__vpath_adj = case $$p in \ $(srcdir)/*) f=`echo "$$p" | sed "s|^$$srcdirstrip/||"`;; \ *) f=$$p;; \ esac; am__strip_dir = f=`echo $$p | sed -e 's|^.*/||'`; am__install_max = 40 am__nobase_strip_setup = \ srcdirstrip=`echo "$(srcdir)" | sed 's/[].[^$$\\*|]/\\\\&/g'` am__nobase_strip = \ for p in $$list; do echo "$$p"; done | sed -e "s|$$srcdirstrip/||" am__nobase_list = $(am__nobase_strip_setup); \ for p in $$list; do echo "$$p $$p"; done | \ sed "s| $$srcdirstrip/| |;"' / .*\//!s/ .*/ ./; s,\( .*\)/[^/]*$$,\1,' | \ $(AWK) 'BEGIN { files["."] = "" } { files[$$2] = files[$$2] " " $$1; \ if (++n[$$2] == $(am__install_max)) \ { print $$2, files[$$2]; n[$$2] = 0; files[$$2] = "" } } \ END { for (dir in files) print dir, files[dir] }' am__base_list = \ sed '$$!N;$$!N;$$!N;$$!N;$$!N;$$!N;$$!N;s/\n/ /g' | \ sed '$$!N;$$!N;$$!N;$$!N;s/\n/ /g' am__uninstall_files_from_dir = { \ test -z "$$files" \ || { test ! -d "$$dir" && test ! -f "$$dir" && test ! -r "$$dir"; } \ || { echo " ( cd '$$dir' && rm -f" $$files ")"; \ $(am__cd) "$$dir" && rm -f $$files; }; \ } am__installdirs = "$(DESTDIR)$(libdir)" "$(DESTDIR)$(moduledir)" \ "$(DESTDIR)$(guile_gnome_subincludedir)" LTLIBRARIES = $(lib_LTLIBRARIES) am__DEPENDENCIES_1 = libguile_gnome_corba_@API_VERSION@_la_DEPENDENCIES = \ $(am__DEPENDENCIES_1) $(am__DEPENDENCIES_1) am__objects_1 = \ libguile_gnome_corba_@API_VERSION@_la-guile-gnome-corba.lo \ libguile_gnome_corba_@API_VERSION@_la-guile-gnome-corba-types.lo \ libguile_gnome_corba_@API_VERSION@_la-guile-gnome-corba-primitives.lo \ libguile_gnome_corba_@API_VERSION@_la-guile-gnome-corba-generic.lo am__objects_2 = am__objects_3 = $(am__objects_2) am_libguile_gnome_corba_@API_VERSION@_la_OBJECTS = $(am__objects_1) \ $(am__objects_3) libguile_gnome_corba_@API_VERSION@_la_OBJECTS = \ $(am_libguile_gnome_corba_@API_VERSION@_la_OBJECTS) libguile_gnome_corba_@API_VERSION@_la_LINK = $(LIBTOOL) --tag=CC \ $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=link $(CCLD) \ $(libguile_gnome_corba_@API_VERSION@_la_CFLAGS) $(CFLAGS) \ $(libguile_gnome_corba_@API_VERSION@_la_LDFLAGS) $(LDFLAGS) -o \ $@ DEFAULT_INCLUDES = -I.@am__isrc@ -I$(top_builddir) depcomp = $(SHELL) $(top_srcdir)/build-aux/depcomp am__depfiles_maybe = depfiles am__mv = mv -f COMPILE = $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(AM_CPPFLAGS) \ $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) LTCOMPILE = $(LIBTOOL) --tag=CC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) \ --mode=compile $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) \ $(AM_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) CCLD = $(CC) LINK = $(LIBTOOL) --tag=CC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) \ --mode=link $(CCLD) $(AM_CFLAGS) $(CFLAGS) $(AM_LDFLAGS) \ $(LDFLAGS) -o $@ SOURCES = $(libguile_gnome_corba_@API_VERSION@_la_SOURCES) DIST_SOURCES = $(libguile_gnome_corba_@API_VERSION@_la_SOURCES) am__can_run_installinfo = \ case $$AM_UPDATE_INFO_DIR in \ n|no|NO) false;; \ *) (install-info --version) >/dev/null 2>&1;; \ esac DATA = $(module_DATA) HEADERS = $(guile_gnome_subinclude_HEADERS) ETAGS = etags CTAGS = ctags DISTFILES = $(DIST_COMMON) $(DIST_SOURCES) $(TEXINFOS) $(EXTRA_DIST) ACLOCAL = @ACLOCAL@ AG_PKG_CONFIG_PATH = @AG_PKG_CONFIG_PATH@ AMTAR = @AMTAR@ API_VERSION = @API_VERSION@ AR = @AR@ ATK_CFLAGS = @ATK_CFLAGS@ ATK_LIBS = @ATK_LIBS@ AUTOCONF = @AUTOCONF@ AUTOHEADER = @AUTOHEADER@ AUTOMAKE = @AUTOMAKE@ AWK = @AWK@ BONOBO_IDL_DIR = @BONOBO_IDL_DIR@ CANVAS_CFLAGS = @CANVAS_CFLAGS@ CANVAS_LIBS = @CANVAS_LIBS@ CC = @CC@ CCDEPMODE = @CCDEPMODE@ CFLAGS = @CFLAGS@ CORBA_CFLAGS = @CORBA_CFLAGS@ CORBA_LIBS = @CORBA_LIBS@ CPP = @CPP@ CPPFLAGS = @CPPFLAGS@ CYGPATH_W = @CYGPATH_W@ DEFS = @DEFS@ DEPDIR = @DEPDIR@ DLLTOOL = @DLLTOOL@ DSYMUTIL = @DSYMUTIL@ DUMPBIN = @DUMPBIN@ ECHO_C = @ECHO_C@ ECHO_N = @ECHO_N@ ECHO_T = @ECHO_T@ EGREP = @EGREP@ EXEEXT = @EXEEXT@ FGREP = @FGREP@ GCONF_CFLAGS = @GCONF_CFLAGS@ GCONF_LIBS = @GCONF_LIBS@ GDK_CFLAGS = @GDK_CFLAGS@ GDK_LIBS = @GDK_LIBS@ GDK_PIXBUF_CFLAGS = @GDK_PIXBUF_CFLAGS@ GDK_PIXBUF_LIBS = @GDK_PIXBUF_LIBS@ GLIB_CFLAGS = @GLIB_CFLAGS@ GLIB_LIBS = @GLIB_LIBS@ GNOMEUI_DEPRECATION_FLAGS = @GNOMEUI_DEPRECATION_FLAGS@ GNOME_VFS_CFLAGS = @GNOME_VFS_CFLAGS@ GNOME_VFS_DEPRECATED_CFLAGS = @GNOME_VFS_DEPRECATED_CFLAGS@ GNOME_VFS_LIBS = @GNOME_VFS_LIBS@ GOBJECT_CFLAGS = @GOBJECT_CFLAGS@ GOBJECT_LIBS = @GOBJECT_LIBS@ GREP = @GREP@ GTHREAD_CFLAGS = @GTHREAD_CFLAGS@ GTHREAD_LIBS = @GTHREAD_LIBS@ GTK_CFLAGS = @GTK_CFLAGS@ GTK_DEPRECATED_CFLAGS = @GTK_DEPRECATED_CFLAGS@ GTK_LIBS = @GTK_LIBS@ GUILE_CAIRO_CFLAGS = @GUILE_CAIRO_CFLAGS@ GUILE_CAIRO_LIBS = @GUILE_CAIRO_LIBS@ GUILE_CFLAGS = @GUILE_CFLAGS@ GUILE_EFFECTIVE_VERSION = @GUILE_EFFECTIVE_VERSION@ GUILE_GLIB_CFLAGS = @GUILE_GLIB_CFLAGS@ GUILE_GLIB_LIBS = @GUILE_GLIB_LIBS@ GUILE_LIBS = @GUILE_LIBS@ G_WRAP_CFLAGS = @G_WRAP_CFLAGS@ G_WRAP_LIBS = @G_WRAP_LIBS@ G_WRAP_LIB_DIR = @G_WRAP_LIB_DIR@ G_WRAP_MODULE_DIR = @G_WRAP_MODULE_DIR@ INSTALL = @INSTALL@ INSTALL_DATA = @INSTALL_DATA@ INSTALL_PROGRAM = @INSTALL_PROGRAM@ INSTALL_SCRIPT = @INSTALL_SCRIPT@ INSTALL_STRIP_PROGRAM = @INSTALL_STRIP_PROGRAM@ LD = @LD@ LDFLAGS = @LDFLAGS@ LIBGLADE_CFLAGS = @LIBGLADE_CFLAGS@ LIBGLADE_LIBS = @LIBGLADE_LIBS@ LIBGNOMEUI_CFLAGS = @LIBGNOMEUI_CFLAGS@ LIBGNOMEUI_LIBS = @LIBGNOMEUI_LIBS@ LIBGNOME_CFLAGS = @LIBGNOME_CFLAGS@ LIBGNOME_LIBS = @LIBGNOME_LIBS@ LIBOBJS = @LIBOBJS@ LIBS = @LIBS@ LIBTOOL = @LIBTOOL@ LIPO = @LIPO@ LN_S = @LN_S@ LTLIBOBJS = @LTLIBOBJS@ MAKEINFO = @MAKEINFO@ MANIFEST_TOOL = @MANIFEST_TOOL@ MKDIR_P = @MKDIR_P@ NM = @NM@ NMEDIT = @NMEDIT@ OBJDUMP = @OBJDUMP@ OBJEXT = @OBJEXT@ ORBIT_IDL = @ORBIT_IDL@ OTOOL = @OTOOL@ OTOOL64 = @OTOOL64@ PACKAGE = @PACKAGE@ PACKAGE_BUGREPORT = @PACKAGE_BUGREPORT@ PACKAGE_NAME = @PACKAGE_NAME@ PACKAGE_STRING = @PACKAGE_STRING@ PACKAGE_TARNAME = @PACKAGE_TARNAME@ PACKAGE_URL = @PACKAGE_URL@ PACKAGE_VERSION = @PACKAGE_VERSION@ PANGOCAIRO_CFLAGS = @PANGOCAIRO_CFLAGS@ PANGOCAIRO_LIBS = @PANGOCAIRO_LIBS@ PANGO_CFLAGS = @PANGO_CFLAGS@ PANGO_LIBS = @PANGO_LIBS@ PATH_SEPARATOR = @PATH_SEPARATOR@ PKG_CONFIG = @PKG_CONFIG@ PKG_CONFIG_LIBDIR = @PKG_CONFIG_LIBDIR@ PKG_CONFIG_PATH = @PKG_CONFIG_PATH@ RANLIB = @RANLIB@ SED = @SED@ SET_MAKE = @SET_MAKE@ SHELL = @SHELL@ STRIP = @STRIP@ VERSION = @VERSION@ WARN_CFLAGS = @WARN_CFLAGS@ abs_builddir = @abs_builddir@ abs_srcdir = @abs_srcdir@ abs_top_builddir = @abs_top_builddir@ abs_top_srcdir = @abs_top_srcdir@ ac_ct_AR = @ac_ct_AR@ ac_ct_CC = @ac_ct_CC@ ac_ct_DUMPBIN = @ac_ct_DUMPBIN@ am__include = @am__include@ am__leading_dot = @am__leading_dot@ am__quote = @am__quote@ am__tar = @am__tar@ am__untar = @am__untar@ bindir = @bindir@ build = @build@ build_alias = @build_alias@ build_cpu = @build_cpu@ build_os = @build_os@ build_vendor = @build_vendor@ builddir = @builddir@ datadir = @datadir@ datarootdir = @datarootdir@ docdir = @docdir@ dvidir = @dvidir@ exec_prefix = @exec_prefix@ host = @host@ host_alias = @host_alias@ host_cpu = @host_cpu@ host_os = @host_os@ host_vendor = @host_vendor@ htmldir = @htmldir@ includedir = @includedir@ infodir = @infodir@ install_sh = @install_sh@ libdir = @libdir@ libexecdir = @libexecdir@ localedir = @localedir@ localstatedir = @localstatedir@ mandir = @mandir@ mkdir_p = @mkdir_p@ oldincludedir = @oldincludedir@ pdfdir = @pdfdir@ prefix = @prefix@ program_transform_name = @program_transform_name@ psdir = @psdir@ sbindir = @sbindir@ sharedstatedir = @sharedstatedir@ srcdir = @srcdir@ sysconfdir = @sysconfdir@ target_alias = @target_alias@ top_build_prefix = @top_build_prefix@ top_builddir = @top_builddir@ top_srcdir = @top_srcdir@ guilegnomedir = $(datadir)/guile-gnome-@API_VERSION@ guilemoduledir = $(guilegnomedir)/gnome guilegwmoduledir = $(guilegnomedir)/gnome/gw guilegnomelibdir = $(libdir)/guile-gnome-@API_VERSION@ AM_CFLAGS = -I. -I$(srcdir) $(WARN_CFLAGS) $(DEBUG_CFLAGS) # For overriding from the command line (e.g. --debug) GUILE_FLAGS = SUFFIXES = .x .doc GUILE_SNARF_CFLAGS = $(DEFS) $(AM_CFLAGS) $(GUILE_CFLAGS) \ $(G_WRAP_CFLAGS) $(GUILE_GLIB_CFLAGS) $(CORBA_CFLAGS) PACKAGES = atk cairo corba defs gconf glib gnome-vfs gtk libglade libgnome libgnomecanvas libgnomeui pango SOURCE_GUILE_PATH = $(shell echo $(addprefix $(top_srcdir)/,$(PACKAGES)) | sed -e 's/ /:/g'):$(srcdir) BUILD_GUILE_PATH = $(if $(filter-out $(top_srcdir),$(top_builddir)),$(shell echo -n $(addprefix $(top_builddir)/,$(PACKAGES)): | sed -e 's/ /:/g'),) GUILE_LOAD_PATH := $(BUILD_GUILE_PATH)$(SOURCE_GUILE_PATH):${G_WRAP_MODULE_DIR}:${GUILE_LOAD_PATH} # Real gnu make foo packages = $(filter-out %-uninstalled,$(patsubst %.pc.in,%,$(notdir $(wildcard $(srcdir)/*.pc.in)))) pcifiles = $(patsubst %,%-@API_VERSION@.pc,$(packages)) pcufiles = $(patsubst %,%-@API_VERSION@-uninstalled.pc,$(packages)) lib_LTLIBRARIES = libguile-gnome-corba-@API_VERSION@.la # libguile-gnome-gobject (core library) C_FILES = guile-gnome-corba.c \ guile-gnome-corba-types.c \ guile-gnome-corba-primitives.c \ guile-gnome-corba-generic.c H_FILES = $(C_FILES:.c=.h) libguile_gnome_corba_@API_VERSION@_la_SOURCES = $(C_FILES) $(H_FILES) libguile_gnome_corba_@API_VERSION@_la_CFLAGS = $(CORBA_CFLAGS) \ $(AM_CFLAGS) $(GUILE_GLIB_CFLAGS) $(GUILE_CFLAGS) -DORBIT2_STUBS_API libguile_gnome_corba_@API_VERSION@_la_LIBADD = $(GUILE_GLIB_LIBS) $(GUILE_LIBS) libguile_gnome_corba_@API_VERSION@_la_LDFLAGS = -export-dynamic # FIXME: version info guile_gnome_includedir = $(includedir)/guile-gnome-@API_VERSION@ guile_gnome_subincludedir = $(guile_gnome_includedir)/guile-gnome-corba guile_gnome_subinclude_HEADERS = $(H_FILES) # Scheme files moduledir = $(guilemoduledir)/corba module_DATA = primitives.scm types.scm DOT_X_FILES = $(C_FILES:.c=.x) DOT_DOC_FILES = guile-gnome-corba.doc \ guile-gnome-corba-types.doc \ guile-gnome-corba-primitives.doc BUILT_SOURCES = $(DOT_X_FILES) $(DOT_DOC_FILES) CLEANFILES = $(DOT_X_FILES) $(DOT_DOC_FILES) #guilegnome_DATA = guile-gnome-corba-procedures.txt EXTRA_DIST = $(module_DATA) all: $(BUILT_SOURCES) $(MAKE) $(AM_MAKEFLAGS) all-am .SUFFIXES: .SUFFIXES: .x .doc .c .lo .o .obj $(srcdir)/Makefile.in: $(srcdir)/Makefile.am $(top_srcdir)/common.mk $(am__configure_deps) @for dep in $?; do \ case '$(am__configure_deps)' in \ *$$dep*) \ ( cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh ) \ && { if test -f $@; then exit 0; else break; fi; }; \ exit 1;; \ esac; \ done; \ echo ' cd $(top_srcdir) && $(AUTOMAKE) --gnu corba/gnome/corba/Makefile'; \ $(am__cd) $(top_srcdir) && \ $(AUTOMAKE) --gnu corba/gnome/corba/Makefile .PRECIOUS: Makefile Makefile: $(srcdir)/Makefile.in $(top_builddir)/config.status @case '$?' in \ *config.status*) \ cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh;; \ *) \ echo ' cd $(top_builddir) && $(SHELL) ./config.status $(subdir)/$@ $(am__depfiles_maybe)'; \ cd $(top_builddir) && $(SHELL) ./config.status $(subdir)/$@ $(am__depfiles_maybe);; \ esac; $(top_srcdir)/common.mk: $(top_builddir)/config.status: $(top_srcdir)/configure $(CONFIG_STATUS_DEPENDENCIES) cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh $(top_srcdir)/configure: $(am__configure_deps) cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh $(ACLOCAL_M4): $(am__aclocal_m4_deps) cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh $(am__aclocal_m4_deps): install-libLTLIBRARIES: $(lib_LTLIBRARIES) @$(NORMAL_INSTALL) @list='$(lib_LTLIBRARIES)'; test -n "$(libdir)" || list=; \ list2=; for p in $$list; do \ if test -f $$p; then \ list2="$$list2 $$p"; \ else :; fi; \ done; \ test -z "$$list2" || { \ echo " $(MKDIR_P) '$(DESTDIR)$(libdir)'"; \ $(MKDIR_P) "$(DESTDIR)$(libdir)" || exit 1; \ echo " $(LIBTOOL) $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=install $(INSTALL) $(INSTALL_STRIP_FLAG) $$list2 '$(DESTDIR)$(libdir)'"; \ $(LIBTOOL) $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=install $(INSTALL) $(INSTALL_STRIP_FLAG) $$list2 "$(DESTDIR)$(libdir)"; \ } uninstall-libLTLIBRARIES: @$(NORMAL_UNINSTALL) @list='$(lib_LTLIBRARIES)'; test -n "$(libdir)" || list=; \ for p in $$list; do \ $(am__strip_dir) \ echo " $(LIBTOOL) $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=uninstall rm -f '$(DESTDIR)$(libdir)/$$f'"; \ $(LIBTOOL) $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=uninstall rm -f "$(DESTDIR)$(libdir)/$$f"; \ done clean-libLTLIBRARIES: -test -z "$(lib_LTLIBRARIES)" || rm -f $(lib_LTLIBRARIES) @list='$(lib_LTLIBRARIES)'; for p in $$list; do \ dir="`echo $$p | sed -e 's|/[^/]*$$||'`"; \ test "$$dir" != "$$p" || dir=.; \ echo "rm -f \"$${dir}/so_locations\""; \ rm -f "$${dir}/so_locations"; \ done libguile-gnome-corba-@API_VERSION@.la: $(libguile_gnome_corba_@API_VERSION@_la_OBJECTS) $(libguile_gnome_corba_@API_VERSION@_la_DEPENDENCIES) $(EXTRA_libguile_gnome_corba_@API_VERSION@_la_DEPENDENCIES) $(libguile_gnome_corba_@API_VERSION@_la_LINK) -rpath $(libdir) $(libguile_gnome_corba_@API_VERSION@_la_OBJECTS) $(libguile_gnome_corba_@API_VERSION@_la_LIBADD) $(LIBS) mostlyclean-compile: -rm -f *.$(OBJEXT) distclean-compile: -rm -f *.tab.c @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/libguile_gnome_corba_@API_VERSION@_la-guile-gnome-corba-generic.Plo@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/libguile_gnome_corba_@API_VERSION@_la-guile-gnome-corba-primitives.Plo@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/libguile_gnome_corba_@API_VERSION@_la-guile-gnome-corba-types.Plo@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/libguile_gnome_corba_@API_VERSION@_la-guile-gnome-corba.Plo@am__quote@ .c.o: @am__fastdepCC_TRUE@ $(COMPILE) -MT $@ -MD -MP -MF $(DEPDIR)/$*.Tpo -c -o $@ $< @am__fastdepCC_TRUE@ $(am__mv) $(DEPDIR)/$*.Tpo $(DEPDIR)/$*.Po @AMDEP_TRUE@@am__fastdepCC_FALSE@ source='$<' object='$@' libtool=no @AMDEPBACKSLASH@ @AMDEP_TRUE@@am__fastdepCC_FALSE@ DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@ @am__fastdepCC_FALSE@ $(COMPILE) -c $< .c.obj: @am__fastdepCC_TRUE@ $(COMPILE) -MT $@ -MD -MP -MF $(DEPDIR)/$*.Tpo -c -o $@ `$(CYGPATH_W) '$<'` @am__fastdepCC_TRUE@ $(am__mv) $(DEPDIR)/$*.Tpo $(DEPDIR)/$*.Po @AMDEP_TRUE@@am__fastdepCC_FALSE@ source='$<' object='$@' libtool=no @AMDEPBACKSLASH@ @AMDEP_TRUE@@am__fastdepCC_FALSE@ DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@ @am__fastdepCC_FALSE@ $(COMPILE) -c `$(CYGPATH_W) '$<'` .c.lo: @am__fastdepCC_TRUE@ $(LTCOMPILE) -MT $@ -MD -MP -MF $(DEPDIR)/$*.Tpo -c -o $@ $< @am__fastdepCC_TRUE@ $(am__mv) $(DEPDIR)/$*.Tpo $(DEPDIR)/$*.Plo @AMDEP_TRUE@@am__fastdepCC_FALSE@ source='$<' object='$@' libtool=yes @AMDEPBACKSLASH@ @AMDEP_TRUE@@am__fastdepCC_FALSE@ DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@ @am__fastdepCC_FALSE@ $(LTCOMPILE) -c -o $@ $< libguile_gnome_corba_@API_VERSION@_la-guile-gnome-corba.lo: guile-gnome-corba.c @am__fastdepCC_TRUE@ $(LIBTOOL) --tag=CC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(AM_CPPFLAGS) $(CPPFLAGS) $(libguile_gnome_corba_@API_VERSION@_la_CFLAGS) $(CFLAGS) -MT libguile_gnome_corba_@API_VERSION@_la-guile-gnome-corba.lo -MD -MP -MF $(DEPDIR)/libguile_gnome_corba_@API_VERSION@_la-guile-gnome-corba.Tpo -c -o libguile_gnome_corba_@API_VERSION@_la-guile-gnome-corba.lo `test -f 'guile-gnome-corba.c' || echo '$(srcdir)/'`guile-gnome-corba.c @am__fastdepCC_TRUE@ $(am__mv) $(DEPDIR)/libguile_gnome_corba_@API_VERSION@_la-guile-gnome-corba.Tpo $(DEPDIR)/libguile_gnome_corba_@API_VERSION@_la-guile-gnome-corba.Plo @AMDEP_TRUE@@am__fastdepCC_FALSE@ source='guile-gnome-corba.c' object='libguile_gnome_corba_@API_VERSION@_la-guile-gnome-corba.lo' libtool=yes @AMDEPBACKSLASH@ @AMDEP_TRUE@@am__fastdepCC_FALSE@ DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@ @am__fastdepCC_FALSE@ $(LIBTOOL) --tag=CC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(AM_CPPFLAGS) $(CPPFLAGS) $(libguile_gnome_corba_@API_VERSION@_la_CFLAGS) $(CFLAGS) -c -o libguile_gnome_corba_@API_VERSION@_la-guile-gnome-corba.lo `test -f 'guile-gnome-corba.c' || echo '$(srcdir)/'`guile-gnome-corba.c libguile_gnome_corba_@API_VERSION@_la-guile-gnome-corba-types.lo: guile-gnome-corba-types.c @am__fastdepCC_TRUE@ $(LIBTOOL) --tag=CC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(AM_CPPFLAGS) $(CPPFLAGS) $(libguile_gnome_corba_@API_VERSION@_la_CFLAGS) $(CFLAGS) -MT libguile_gnome_corba_@API_VERSION@_la-guile-gnome-corba-types.lo -MD -MP -MF $(DEPDIR)/libguile_gnome_corba_@API_VERSION@_la-guile-gnome-corba-types.Tpo -c -o libguile_gnome_corba_@API_VERSION@_la-guile-gnome-corba-types.lo `test -f 'guile-gnome-corba-types.c' || echo '$(srcdir)/'`guile-gnome-corba-types.c @am__fastdepCC_TRUE@ $(am__mv) $(DEPDIR)/libguile_gnome_corba_@API_VERSION@_la-guile-gnome-corba-types.Tpo $(DEPDIR)/libguile_gnome_corba_@API_VERSION@_la-guile-gnome-corba-types.Plo @AMDEP_TRUE@@am__fastdepCC_FALSE@ source='guile-gnome-corba-types.c' object='libguile_gnome_corba_@API_VERSION@_la-guile-gnome-corba-types.lo' libtool=yes @AMDEPBACKSLASH@ @AMDEP_TRUE@@am__fastdepCC_FALSE@ DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@ @am__fastdepCC_FALSE@ $(LIBTOOL) --tag=CC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(AM_CPPFLAGS) $(CPPFLAGS) $(libguile_gnome_corba_@API_VERSION@_la_CFLAGS) $(CFLAGS) -c -o libguile_gnome_corba_@API_VERSION@_la-guile-gnome-corba-types.lo `test -f 'guile-gnome-corba-types.c' || echo '$(srcdir)/'`guile-gnome-corba-types.c libguile_gnome_corba_@API_VERSION@_la-guile-gnome-corba-primitives.lo: guile-gnome-corba-primitives.c @am__fastdepCC_TRUE@ $(LIBTOOL) --tag=CC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(AM_CPPFLAGS) $(CPPFLAGS) $(libguile_gnome_corba_@API_VERSION@_la_CFLAGS) $(CFLAGS) -MT libguile_gnome_corba_@API_VERSION@_la-guile-gnome-corba-primitives.lo -MD -MP -MF $(DEPDIR)/libguile_gnome_corba_@API_VERSION@_la-guile-gnome-corba-primitives.Tpo -c -o libguile_gnome_corba_@API_VERSION@_la-guile-gnome-corba-primitives.lo `test -f 'guile-gnome-corba-primitives.c' || echo '$(srcdir)/'`guile-gnome-corba-primitives.c @am__fastdepCC_TRUE@ $(am__mv) $(DEPDIR)/libguile_gnome_corba_@API_VERSION@_la-guile-gnome-corba-primitives.Tpo $(DEPDIR)/libguile_gnome_corba_@API_VERSION@_la-guile-gnome-corba-primitives.Plo @AMDEP_TRUE@@am__fastdepCC_FALSE@ source='guile-gnome-corba-primitives.c' object='libguile_gnome_corba_@API_VERSION@_la-guile-gnome-corba-primitives.lo' libtool=yes @AMDEPBACKSLASH@ @AMDEP_TRUE@@am__fastdepCC_FALSE@ DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@ @am__fastdepCC_FALSE@ $(LIBTOOL) --tag=CC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(AM_CPPFLAGS) $(CPPFLAGS) $(libguile_gnome_corba_@API_VERSION@_la_CFLAGS) $(CFLAGS) -c -o libguile_gnome_corba_@API_VERSION@_la-guile-gnome-corba-primitives.lo `test -f 'guile-gnome-corba-primitives.c' || echo '$(srcdir)/'`guile-gnome-corba-primitives.c libguile_gnome_corba_@API_VERSION@_la-guile-gnome-corba-generic.lo: guile-gnome-corba-generic.c @am__fastdepCC_TRUE@ $(LIBTOOL) --tag=CC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(AM_CPPFLAGS) $(CPPFLAGS) $(libguile_gnome_corba_@API_VERSION@_la_CFLAGS) $(CFLAGS) -MT libguile_gnome_corba_@API_VERSION@_la-guile-gnome-corba-generic.lo -MD -MP -MF $(DEPDIR)/libguile_gnome_corba_@API_VERSION@_la-guile-gnome-corba-generic.Tpo -c -o libguile_gnome_corba_@API_VERSION@_la-guile-gnome-corba-generic.lo `test -f 'guile-gnome-corba-generic.c' || echo '$(srcdir)/'`guile-gnome-corba-generic.c @am__fastdepCC_TRUE@ $(am__mv) $(DEPDIR)/libguile_gnome_corba_@API_VERSION@_la-guile-gnome-corba-generic.Tpo $(DEPDIR)/libguile_gnome_corba_@API_VERSION@_la-guile-gnome-corba-generic.Plo @AMDEP_TRUE@@am__fastdepCC_FALSE@ source='guile-gnome-corba-generic.c' object='libguile_gnome_corba_@API_VERSION@_la-guile-gnome-corba-generic.lo' libtool=yes @AMDEPBACKSLASH@ @AMDEP_TRUE@@am__fastdepCC_FALSE@ DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@ @am__fastdepCC_FALSE@ $(LIBTOOL) --tag=CC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(AM_CPPFLAGS) $(CPPFLAGS) $(libguile_gnome_corba_@API_VERSION@_la_CFLAGS) $(CFLAGS) -c -o libguile_gnome_corba_@API_VERSION@_la-guile-gnome-corba-generic.lo `test -f 'guile-gnome-corba-generic.c' || echo '$(srcdir)/'`guile-gnome-corba-generic.c mostlyclean-libtool: -rm -f *.lo clean-libtool: -rm -rf .libs _libs install-moduleDATA: $(module_DATA) @$(NORMAL_INSTALL) @list='$(module_DATA)'; test -n "$(moduledir)" || list=; \ if test -n "$$list"; then \ echo " $(MKDIR_P) '$(DESTDIR)$(moduledir)'"; \ $(MKDIR_P) "$(DESTDIR)$(moduledir)" || exit 1; \ fi; \ for p in $$list; do \ if test -f "$$p"; then d=; else d="$(srcdir)/"; fi; \ echo "$$d$$p"; \ done | $(am__base_list) | \ while read files; do \ echo " $(INSTALL_DATA) $$files '$(DESTDIR)$(moduledir)'"; \ $(INSTALL_DATA) $$files "$(DESTDIR)$(moduledir)" || exit $$?; \ done uninstall-moduleDATA: @$(NORMAL_UNINSTALL) @list='$(module_DATA)'; test -n "$(moduledir)" || list=; \ files=`for p in $$list; do echo $$p; done | sed -e 's|^.*/||'`; \ dir='$(DESTDIR)$(moduledir)'; $(am__uninstall_files_from_dir) install-guile_gnome_subincludeHEADERS: $(guile_gnome_subinclude_HEADERS) @$(NORMAL_INSTALL) @list='$(guile_gnome_subinclude_HEADERS)'; test -n "$(guile_gnome_subincludedir)" || list=; \ if test -n "$$list"; then \ echo " $(MKDIR_P) '$(DESTDIR)$(guile_gnome_subincludedir)'"; \ $(MKDIR_P) "$(DESTDIR)$(guile_gnome_subincludedir)" || exit 1; \ fi; \ for p in $$list; do \ if test -f "$$p"; then d=; else d="$(srcdir)/"; fi; \ echo "$$d$$p"; \ done | $(am__base_list) | \ while read files; do \ echo " $(INSTALL_HEADER) $$files '$(DESTDIR)$(guile_gnome_subincludedir)'"; \ $(INSTALL_HEADER) $$files "$(DESTDIR)$(guile_gnome_subincludedir)" || exit $$?; \ done uninstall-guile_gnome_subincludeHEADERS: @$(NORMAL_UNINSTALL) @list='$(guile_gnome_subinclude_HEADERS)'; test -n "$(guile_gnome_subincludedir)" || list=; \ files=`for p in $$list; do echo $$p; done | sed -e 's|^.*/||'`; \ dir='$(DESTDIR)$(guile_gnome_subincludedir)'; $(am__uninstall_files_from_dir) ID: $(HEADERS) $(SOURCES) $(LISP) $(TAGS_FILES) list='$(SOURCES) $(HEADERS) $(LISP) $(TAGS_FILES)'; \ unique=`for i in $$list; do \ if test -f "$$i"; then echo $$i; else echo $(srcdir)/$$i; fi; \ done | \ $(AWK) '{ files[$$0] = 1; nonempty = 1; } \ END { if (nonempty) { for (i in files) print i; }; }'`; \ mkid -fID $$unique tags: TAGS TAGS: $(HEADERS) $(SOURCES) $(TAGS_DEPENDENCIES) \ $(TAGS_FILES) $(LISP) set x; \ here=`pwd`; \ list='$(SOURCES) $(HEADERS) $(LISP) $(TAGS_FILES)'; \ unique=`for i in $$list; do \ if test -f "$$i"; then echo $$i; else echo $(srcdir)/$$i; fi; \ done | \ $(AWK) '{ files[$$0] = 1; nonempty = 1; } \ END { if (nonempty) { for (i in files) print i; }; }'`; \ shift; \ if test -z "$(ETAGS_ARGS)$$*$$unique"; then :; else \ test -n "$$unique" || unique=$$empty_fix; \ if test $$# -gt 0; then \ $(ETAGS) $(ETAGSFLAGS) $(AM_ETAGSFLAGS) $(ETAGS_ARGS) \ "$$@" $$unique; \ else \ $(ETAGS) $(ETAGSFLAGS) $(AM_ETAGSFLAGS) $(ETAGS_ARGS) \ $$unique; \ fi; \ fi ctags: CTAGS CTAGS: $(HEADERS) $(SOURCES) $(TAGS_DEPENDENCIES) \ $(TAGS_FILES) $(LISP) list='$(SOURCES) $(HEADERS) $(LISP) $(TAGS_FILES)'; \ unique=`for i in $$list; do \ if test -f "$$i"; then echo $$i; else echo $(srcdir)/$$i; fi; \ done | \ $(AWK) '{ files[$$0] = 1; nonempty = 1; } \ END { if (nonempty) { for (i in files) print i; }; }'`; \ test -z "$(CTAGS_ARGS)$$unique" \ || $(CTAGS) $(CTAGSFLAGS) $(AM_CTAGSFLAGS) $(CTAGS_ARGS) \ $$unique GTAGS: here=`$(am__cd) $(top_builddir) && pwd` \ && $(am__cd) $(top_srcdir) \ && gtags -i $(GTAGS_ARGS) "$$here" distclean-tags: -rm -f TAGS ID GTAGS GRTAGS GSYMS GPATH tags distdir: $(DISTFILES) @srcdirstrip=`echo "$(srcdir)" | sed 's/[].[^$$\\*]/\\\\&/g'`; \ topsrcdirstrip=`echo "$(top_srcdir)" | sed 's/[].[^$$\\*]/\\\\&/g'`; \ list='$(DISTFILES)'; \ dist_files=`for file in $$list; do echo $$file; done | \ sed -e "s|^$$srcdirstrip/||;t" \ -e "s|^$$topsrcdirstrip/|$(top_builddir)/|;t"`; \ case $$dist_files in \ */*) $(MKDIR_P) `echo "$$dist_files" | \ sed '/\//!d;s|^|$(distdir)/|;s,/[^/]*$$,,' | \ sort -u` ;; \ esac; \ for file in $$dist_files; do \ if test -f $$file || test -d $$file; then d=.; else d=$(srcdir); fi; \ if test -d $$d/$$file; then \ dir=`echo "/$$file" | sed -e 's,/[^/]*$$,,'`; \ if test -d "$(distdir)/$$file"; then \ find "$(distdir)/$$file" -type d ! -perm -700 -exec chmod u+rwx {} \;; \ fi; \ if test -d $(srcdir)/$$file && test $$d != $(srcdir); then \ cp -fpR $(srcdir)/$$file "$(distdir)$$dir" || exit 1; \ find "$(distdir)/$$file" -type d ! -perm -700 -exec chmod u+rwx {} \;; \ fi; \ cp -fpR $$d/$$file "$(distdir)$$dir" || exit 1; \ else \ test -f "$(distdir)/$$file" \ || cp -p $$d/$$file "$(distdir)/$$file" \ || exit 1; \ fi; \ done check-am: all-am check: $(BUILT_SOURCES) $(MAKE) $(AM_MAKEFLAGS) check-am all-am: Makefile $(LTLIBRARIES) $(DATA) $(HEADERS) installdirs: for dir in "$(DESTDIR)$(libdir)" "$(DESTDIR)$(moduledir)" "$(DESTDIR)$(guile_gnome_subincludedir)"; do \ test -z "$$dir" || $(MKDIR_P) "$$dir"; \ done install: $(BUILT_SOURCES) $(MAKE) $(AM_MAKEFLAGS) install-am install-exec: install-exec-am install-data: install-data-am uninstall: uninstall-am install-am: all-am @$(MAKE) $(AM_MAKEFLAGS) install-exec-am install-data-am installcheck: installcheck-am install-strip: if test -z '$(STRIP)'; then \ $(MAKE) $(AM_MAKEFLAGS) INSTALL_PROGRAM="$(INSTALL_STRIP_PROGRAM)" \ install_sh_PROGRAM="$(INSTALL_STRIP_PROGRAM)" INSTALL_STRIP_FLAG=-s \ install; \ else \ $(MAKE) $(AM_MAKEFLAGS) INSTALL_PROGRAM="$(INSTALL_STRIP_PROGRAM)" \ install_sh_PROGRAM="$(INSTALL_STRIP_PROGRAM)" INSTALL_STRIP_FLAG=-s \ "INSTALL_PROGRAM_ENV=STRIPPROG='$(STRIP)'" install; \ fi mostlyclean-generic: clean-generic: -test -z "$(CLEANFILES)" || rm -f $(CLEANFILES) distclean-generic: -test -z "$(CONFIG_CLEAN_FILES)" || rm -f $(CONFIG_CLEAN_FILES) -test . = "$(srcdir)" || test -z "$(CONFIG_CLEAN_VPATH_FILES)" || rm -f $(CONFIG_CLEAN_VPATH_FILES) maintainer-clean-generic: @echo "This command is intended for maintainers to use" @echo "it deletes files that may require special tools to rebuild." -test -z "$(BUILT_SOURCES)" || rm -f $(BUILT_SOURCES) clean: clean-am clean-am: clean-generic clean-libLTLIBRARIES clean-libtool \ mostlyclean-am distclean: distclean-am -rm -rf ./$(DEPDIR) -rm -f Makefile distclean-am: clean-am distclean-compile distclean-generic \ distclean-tags dvi: dvi-am dvi-am: html: html-am html-am: info: info-am info-am: install-data-am: install-guile_gnome_subincludeHEADERS \ install-moduleDATA install-dvi: install-dvi-am install-dvi-am: install-exec-am: install-libLTLIBRARIES install-html: install-html-am install-html-am: install-info: install-info-am install-info-am: install-man: install-pdf: install-pdf-am install-pdf-am: install-ps: install-ps-am install-ps-am: installcheck-am: maintainer-clean: maintainer-clean-am -rm -rf ./$(DEPDIR) -rm -f Makefile maintainer-clean-am: distclean-am maintainer-clean-generic mostlyclean: mostlyclean-am mostlyclean-am: mostlyclean-compile mostlyclean-generic \ mostlyclean-libtool pdf: pdf-am pdf-am: ps: ps-am ps-am: uninstall-am: uninstall-guile_gnome_subincludeHEADERS \ uninstall-libLTLIBRARIES uninstall-moduleDATA .MAKE: all check install install-am install-strip .PHONY: CTAGS GTAGS all all-am check check-am clean clean-generic \ clean-libLTLIBRARIES clean-libtool ctags distclean \ distclean-compile distclean-generic distclean-libtool \ distclean-tags distdir dvi dvi-am html html-am info info-am \ install install-am install-data install-data-am install-dvi \ install-dvi-am install-exec install-exec-am \ install-guile_gnome_subincludeHEADERS install-html \ install-html-am install-info install-info-am \ install-libLTLIBRARIES install-man install-moduleDATA \ install-pdf install-pdf-am install-ps install-ps-am \ install-strip installcheck installcheck-am installdirs \ maintainer-clean maintainer-clean-generic mostlyclean \ mostlyclean-compile mostlyclean-generic mostlyclean-libtool \ pdf pdf-am ps ps-am tags uninstall uninstall-am \ uninstall-guile_gnome_subincludeHEADERS \ uninstall-libLTLIBRARIES uninstall-moduleDATA export GUILE_LOAD_PATH .c.x: guile-snarf $(GUILE_SNARF_CFLAGS) $< > $@ \ || { rm $@; false; } .c.doc: $(CPP) -DSCM_MAGIC_SNARF_DOCS $(GUILE_SNARF_CFLAGS) $< \ | grep -E '(\^\^ {|\^\^ })' > $@ || { rm $@; false; } %.scm guile-gnome-gw-%.c: %-spec.scm guile $(GUILE_FLAGS) -c \ "(debug-set! stack 400000) \ (use-modules (gnome-@API_VERSION@)) \ (use-modules (g-wrap)) \ (use-modules (gnome gw $*-spec)) \ (generate-wrapset 'guile 'gnome-$* \"guile-gnome-gw-$*\")" mv guile-gnome-gw-$*.scm $*.scm %-@API_VERSION@.pc: %.pc cp $< $@ %-@API_VERSION@-uninstalled.pc: %-uninstalled.pc cp $< $@ # Tell versions [3.59,3.63) of GNU make to not export all variables. # Otherwise a system limit (for SysV at least) may be exceeded. .NOEXPORT: guile-gnome-platform-2.16.2/corba/gnome/corba/types.scm0000644000175000017500000000271111670374302023321 0ustar00wingowingo00000000000000;; guile-gnome ;; Copyright (C) 2001 Martin Baulig ;; 2003,2004 Andy Wingo ;; This program is free software; you can redistribute it and/or ;; modify it under the terms of the GNU General Public License as ;; published by the Free Software Foundation; either version 2 of ;; the License, or (at your option) any later version. ;; ;; This program is distributed in the hope that it will be useful, ;; but WITHOUT ANY WARRANTY; without even the implied warranty of ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the ;; GNU General Public License for more details. ;; ;; You should have received a copy of the GNU General Public License ;; along with this program; if not, contact: ;; ;; Free Software Foundation Voice: +1-617-542-5942 ;; 59 Temple Place - Suite 330 Fax: +1-617-542-2652 ;; Boston, MA 02111-1307, USA gnu@gnu.org ;;; Commentary: ;; ;;A CORBA wrapper for Guile. ;; ;;; Code: (define-module (gnome corba types) :use-module (gnome gw corba) :use-module (gnome gobject) :use-module (oop goops)) (define (gnome-corba-error format-string . args) (save-stack) (scm-error 'gnome-corba-error #f format-string args '())) (%init-gnome-corba-types) (export gnome-corba-error) guile-gnome-platform-2.16.2/corba/gnome/corba/guile-gnome-corba-generic.h0000644000175000017500000000313011670374302026524 0ustar00wingowingo00000000000000/* guile-gnome * Copyright (C) 2001 Martin Baulig * Copyright (C) 2003 Andy Wingo * * guile-gnome-corba-generic.h: * * This program is free software; you can redistribute it and/or * modify it under the terms of the GNU General Public License as * published by the Free Software Foundation; either version 2 of * the License, or (at your option) any later version. * * This program is distributed in the hope that it will be useful, * but WITHOUT ANY WARRANTY; without even the implied warranty of * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the * GNU General Public License for more details. * * You should have received a copy of the GNU General Public License * along with this program; if not, contact: * * Free Software Foundation Voice: +1-617-542-5942 * 59 Temple Place - Suite 330 Fax: +1-617-542-2652 * Boston, MA 02111-1307, USA gnu@gnu.org */ #ifndef __GUILE_CORBA_GENERIC_H__ #define __GUILE_CORBA_GENERIC_H__ 1 #include G_BEGIN_DECLS gchar * guile_corba_generic_repo_id_to_name (const gchar *format, const gchar *repo_id); gchar * guile_corba_generic_make_type_name (const gchar *StudlyCaps); GType guile_corba_generic_typecode_to_type (CORBA_TypeCode tc); CORBA_TypeCode guile_corba_generic_type_to_typecode (GType type); void scm_pre_init_gnome_corba_generic (void); G_END_DECLS #endif guile-gnome-platform-2.16.2/corba/gnome/corba/guile-gnome-corba-types.c0000644000175000017500000006010611670374302026255 0ustar00wingowingo00000000000000/* guile-gnome * Copyright (C) 2001, 2009 Martin Baulig * Copyright (C) 2003 Andy Wingo * * guile-gnome-corba-types.c: Support routines for the GLib wrapper * * This program is free software; you can redistribute it and/or * modify it under the terms of the GNU General Public License as * published by the Free Software Foundation; either version 2 of * the License, or (at your option) any later version. * * This program is distributed in the hope that it will be useful, * but WITHOUT ANY WARRANTY; without even the implied warranty of * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the * GNU General Public License for more details. * * You should have received a copy of the GNU General Public License * along with this program; if not, contact: * * Free Software Foundation Voice: +1-617-542-5942 * 59 Temple Place - Suite 330 Fax: +1-617-542-2652 * Boston, MA 02111-1307, USA gnu@gnu.org */ #include #include #include #include #include #include #include #include #undef BONOBO_EX #define BONOBO_EX(ev) ((ev)->_major != CORBA_NO_EXCEPTION) SCM scm_corba_struct_vtable; SCM scm_corba_sequence_vtable; scm_t_bits scm_tc16_corba_typecode; scm_t_bits scm_tc16_orbit_object; scm_t_bits scm_tc16_corba_data; scm_t_bits scm_tc16_corba_object; scm_t_bits scm_tc16_orbit_imethod; scm_t_bits scm_tc16_orbit_iinterface; SCM_GLOBAL_SYMBOL (scm_sym_corba_objref, "corba-objref"); SCM_GLOBAL_SYMBOL (scm_sym_corba_typecode, "corba-typecode"); SCM_GLOBAL_SYMBOL (scm_sym_orbit_iinterface, "%orbit-iinterface"); SCM_GLOBAL_SYMBOL (scm_sym_servant, "servant"); SCM_GLOBAL_SYMBOL (scm_sym_stub_class, "stub-class"); SCM_GLOBAL_SYMBOL (scm_sym_corba_system_exception, "corba-system-exception"); SCM_GLOBAL_SYMBOL (scm_sym_corba_user_exception, "corba-user-exception"); static SCM print_corba_struct (SCM corba_struct, SCM port) { SCM retval, printer; CORBA_TypeCode tc; gchar *message; printer = SCM_PACK (SCM_STRUCT_DATA (corba_struct) [scm_vtable_index_printer]); if (SCM_NIMP (printer) && scm_procedure_p (printer)) return scm_call_2 (printer, corba_struct, port); tc = SCM_CORBA_STRUCT_TYPECODE (corba_struct); message = g_strdup_printf ("", corba_struct, tc->repo_id); retval = scm_simple_format (port, scm_from_locale_string (message), SCM_EOL); g_free (message); return retval; } static SCM print_corba_sequence (SCM corba_sequence, SCM port) { SCM retval, printer; CORBA_TypeCode tc; gchar *message; printer = SCM_PACK (SCM_STRUCT_DATA (corba_sequence) [scm_vtable_index_printer]); if (SCM_NIMP (printer) && scm_procedure_p (printer)) return scm_call_2 (printer, corba_sequence, port); tc = SCM_CORBA_SEQUENCE_TYPECODE (corba_sequence); message = g_strdup_printf ("", corba_sequence, tc->subtypes [0]->repo_id); retval = scm_simple_format (port, scm_from_locale_string (message), SCM_EOL); g_free (message); return retval; } SCM_DEFINE (scm_corba_struct_fields, "corba-struct-fields", 1, 0, 0, (SCM typecode), "") #define FUNC_NAME s_scm_corba_struct_fields { CORBA_TypeCode tc; SCM fields; gulong i; SCM_VALIDATE_CORBA_TYPECODE_COPY (1, typecode, tc); fields = SCM_EOL; for (i = 0; i < tc->sub_parts; i++) { SCM sym = scm_from_locale_symboln (tc->subnames [i], strlen (tc->subnames [i])); fields = scm_append_x (SCM_LIST2 (fields, SCM_LIST1 (sym))); } return fields; } #undef FUNC_NAME SCM scm_c_make_corba_struct (CORBA_TypeCode tc, guint nfields, DynamicAny_DynStruct dyn) { DynamicAny_NameValuePairSeq *members; SCM type, fields, typecode_smob; CORBA_Environment ev; CORBA_exception_init (&ev); if (!dyn) dyn = (DynamicAny_DynStruct) DynamicAny_DynAnyFactory_create_dyn_any_from_type_code (guile_corba_dynany_factory, tc, &ev); g_assert (!BONOBO_EX (&ev)); members = DynamicAny_DynStruct_get_members (dyn, &ev); type = scm_make_struct (scm_corba_struct_vtable, scm_from_int (nfields), SCM_EOL); SCM_SET_CORBA_STRUCT_TYPECODE (type, tc); SCM_SET_CORBA_STRUCT_DATA (type, dyn); SCM_SET_CORBA_STRUCT_MEMBERS (type, members); typecode_smob = SCM_PACK (SCM_STRUCT_DATA (type) [scm_si_corba_typecode]); fields = scm_corba_struct_fields (typecode_smob); SCM_SET_CORBA_STRUCT_FIELDS (type, fields); SCM_SET_CORBA_STRUCT_N_FIELDS (type, scm_from_int (tc->sub_parts)); return type; } SCM_DEFINE (scm_make_corba_struct, "make-corba-struct", 2, 1, 0, (SCM typecode, SCM num_tail_elts, SCM init_struct), "") #define FUNC_NAME s_scm_make_corba_struct { CORBA_TypeCode tc, real_tc; DynamicAny_DynStruct dyn = NULL; int n_tail_elts; SCM_VALIDATE_CORBA_TYPECODE_COPY (1, typecode, tc); SCM_VALIDATE_INT_COPY (2, num_tail_elts, n_tail_elts); SCM_ASSERT (SCM_UNBNDP (init_struct) || SCM_CORBA_STRUCTP (init_struct), init_struct, SCM_ARG3, FUNC_NAME); real_tc = tc; while (real_tc->kind == CORBA_tk_alias) real_tc = real_tc->subtypes [0]; SCM_ASSERT (real_tc->kind == CORBA_tk_struct, typecode, SCM_ARG1, FUNC_NAME); if (!SCM_UNBNDP (init_struct)) { CORBA_TypeCode smob_tc = SCM_CORBA_STRUCT_TYPECODE (init_struct); SCM_ASSERT (CORBA_TypeCode_equal (smob_tc, tc, NULL), init_struct, SCM_ARG3, FUNC_NAME); dyn = (DynamicAny_DynStruct) SCM_CORBA_STRUCT_DATA (init_struct); } return scm_c_make_corba_struct (tc, n_tail_elts, dyn); } #undef FUNC_NAME SCM scm_c_make_corba_sequence (CORBA_TypeCode tc, guint nfields, gpointer data) { DynamicAny_DynSequence dyn; DynamicAny_AnySeq *elements; CORBA_TypeCode real_tc; CORBA_Environment ev; gulong length; SCM type; real_tc = tc; while (real_tc->kind == CORBA_tk_alias) real_tc = real_tc->subtypes [0]; CORBA_exception_init (&ev); if (!data) dyn = (DynamicAny_DynSequence) DynamicAny_DynAnyFactory_create_dyn_any_from_type_code (guile_corba_dynany_factory, real_tc, &ev); else { CORBA_any any = { real_tc, data, FALSE }; dyn = (DynamicAny_DynSequence) DynamicAny_DynAnyFactory_create_dyn_any (guile_corba_dynany_factory, &any, &ev); } g_assert (!BONOBO_EX (&ev)); length = DynamicAny_DynSequence_get_length (dyn, &ev); g_assert (!BONOBO_EX (&ev)); elements = DynamicAny_DynSequence_get_elements (dyn, &ev); g_assert (!BONOBO_EX (&ev)); type = scm_make_struct (scm_corba_sequence_vtable, scm_from_int (nfields), SCM_EOL); SCM_SET_CORBA_SEQUENCE_TYPECODE (type, tc); SCM_SET_CORBA_SEQUENCE_DATA (type, dyn); SCM_SET_CORBA_SEQUENCE_LENGTH (type, scm_from_int (length)); SCM_SET_CORBA_SEQUENCE_MEMBERS (type, elements); return type; } SCM_DEFINE (scm_make_corba_sequence, "make-corba-sequence", 2, 0, 1, (SCM typecode, SCM num_tail_elts, SCM init_smob), "") #define FUNC_NAME s_scm_make_corba_sequence { CORBA_TypeCode tc, real_tc; gpointer data = NULL; int n_tail_elts; SCM_VALIDATE_CORBA_TYPECODE_COPY (1, typecode, tc); SCM_VALIDATE_INT_COPY (2, num_tail_elts, n_tail_elts); SCM_ASSERT (SCM_UNBNDP (init_smob) || scm_list_p (init_smob) || SCM_TYP16_PREDICATE (scm_tc16_corba_data, init_smob), init_smob, SCM_ARG3, FUNC_NAME); real_tc = tc; while (real_tc->kind == CORBA_tk_alias) real_tc = real_tc->subtypes [0]; SCM_ASSERT (real_tc->kind == CORBA_tk_sequence, typecode, SCM_ARG1, FUNC_NAME); if (SCM_TYP16_PREDICATE (scm_tc16_corba_data, init_smob)) { CORBA_TypeCode smob_tc = (CORBA_TypeCode) SCM_CELL_WORD_1 (init_smob); SCM_ASSERT (CORBA_TypeCode_equal (smob_tc, tc, NULL), init_smob, SCM_ARG3, FUNC_NAME); data = (gpointer) SCM_CELL_WORD_2 (init_smob); } else if (scm_list_p (init_smob)) { DynamicAny_DynSequence dyn; DynamicAny_AnySeq *elements; CORBA_Environment ev; CORBA_any *any; gulong i; CORBA_exception_init (&ev); dyn = (DynamicAny_DynSequence) DynamicAny_DynAnyFactory_create_dyn_any_from_type_code (guile_corba_dynany_factory, real_tc, &ev); g_assert (!BONOBO_EX (&ev)); DynamicAny_DynSequence_set_length (dyn, scm_ilength (init_smob), &ev); g_assert (!BONOBO_EX (&ev)); elements = DynamicAny_AnySeq__alloc (); elements->_length = elements->_maximum = scm_ilength (init_smob); elements->_buffer = DynamicAny_AnySeq_allocbuf (elements->_length); for (i = 0; i < elements->_length; i++) { CORBA_any *this = &elements->_buffer [i]; SCM value; this->_type = real_tc->subtypes [0]; this->_value = ORBit_alloc_tcval (this->_type, 1); this->_release = TRUE; value = scm_list_ref (init_smob, scm_from_int (i)); scm_c_corba_marshal_any (this, value); } DynamicAny_DynSequence_set_elements (dyn, elements, &ev); g_assert (!BONOBO_EX (&ev)); any = DynamicAny_DynAny_to_any ((DynamicAny_DynAny) dyn, &ev); g_assert (!BONOBO_EX (&ev)); data = any->_value; } return scm_c_make_corba_sequence (tc, n_tail_elts, data); } #undef FUNC_NAME SCM_DEFINE (scm_corba_sequence_length, "corba-sequence-length", 1, 0, 0, (SCM corba_sequence), "") #define FUNC_NAME s_scm_corba_sequence_length { SCM_VALIDATE_CORBA_SEQUENCE (1, corba_sequence); return SCM_CORBA_SEQUENCE_LENGTH (corba_sequence); } #undef FUNC_NAME SCM_DEFINE (scm_corba_sequence_set_length_x, "corba-sequence-set-length!", 2, 0, 0, (SCM corba_sequence, SCM length), "") #define FUNC_NAME s_scm_corba_sequence_set_length_x { DynamicAny_DynSequence dyn; DynamicAny_AnySeq *elements; CORBA_Environment ev; SCM_VALIDATE_CORBA_SEQUENCE (1, corba_sequence); SCM_ASSERT (scm_to_int (length) >= 0, length, SCM_ARG1, FUNC_NAME); CORBA_exception_init (&ev); dyn = (DynamicAny_DynSequence) SCM_CORBA_SEQUENCE_DATA (corba_sequence); DynamicAny_DynSequence_set_length (dyn, scm_to_int (length), &ev); g_assert (!BONOBO_EX (&ev)); elements = DynamicAny_DynSequence_get_elements (dyn, &ev); g_assert (!BONOBO_EX (&ev)); SCM_SET_CORBA_SEQUENCE_LENGTH (corba_sequence, length); SCM_SET_CORBA_SEQUENCE_MEMBERS (corba_sequence, elements); return SCM_UNSPECIFIED; } #undef FUNC_NAME SCM_DEFINE (scm_corba_sequence_ref, "corba-sequence-ref", 2, 0, 0, (SCM corba_sequence, SCM index), "") #define FUNC_NAME s_scm_corba_sequence_ref { DynamicAny_AnySeq *elements; CORBA_any *any; SCM_VALIDATE_CORBA_SEQUENCE (1, corba_sequence); SCM_ASSERT (SCM_CORBA_SEQUENCEP (corba_sequence), corba_sequence, SCM_ARG1, FUNC_NAME); SCM_ASSERT (scm_to_int (index) >= 0 && (scm_to_int (index) < scm_to_int (SCM_CORBA_SEQUENCE_LENGTH (corba_sequence))), index, SCM_ARG2, FUNC_NAME); elements = SCM_CORBA_SEQUENCE_MEMBERS (corba_sequence); any = &elements->_buffer [scm_to_int (index)]; return scm_c_corba_demarshal_any (any); } #undef FUNC_NAME SCM_DEFINE (scm_corba_sequence_set_x, "corba-sequence-set!", 3, 0, 0, (SCM corba_sequence, SCM index, SCM value), "") #define FUNC_NAME s_scm_corba_sequence_set_x { DynamicAny_DynSequence dyn; DynamicAny_AnySeq *elements; CORBA_Environment ev; CORBA_any *any; SCM_VALIDATE_CORBA_SEQUENCE (1, corba_sequence); SCM_ASSERT (scm_to_int (index) >= 0 && (scm_to_int (index) < scm_to_int (SCM_CORBA_SEQUENCE_LENGTH (corba_sequence))), index, SCM_ARG2, FUNC_NAME); elements = SCM_CORBA_SEQUENCE_MEMBERS (corba_sequence); any = &elements->_buffer [scm_to_int (index)]; scm_c_corba_marshal_any (any, value); CORBA_exception_init (&ev); dyn = (DynamicAny_DynSequence) SCM_CORBA_SEQUENCE_DATA (corba_sequence); DynamicAny_DynSequence_set_elements (dyn, elements, &ev); g_assert (!BONOBO_EX (&ev)); return SCM_UNSPECIFIED; } #undef FUNC_NAME SCM_DEFINE (scm_corba_sequence_type, "corba-sequence-type", 1, 0, 0, (SCM corba_sequence), "") #define FUNC_NAME s_scm_corba_sequence_type { CORBA_TypeCode tc; SCM_VALIDATE_CORBA_SEQUENCE (1, corba_sequence); tc = SCM_CORBA_SEQUENCE_TYPECODE (corba_sequence); /* internal API? */ SCM_RETURN_NEWSMOB (scm_tc16_corba_typecode, ORBit_RootObject_duplicate (tc->subtypes [0])); } #undef FUNC_NAME SCM scm_c_corba_demarshal_any (const CORBA_any *any) { CORBA_TypeCode tc = any->_type; SCM retval = SCM_BOOL_F; while (tc->kind == CORBA_tk_alias) tc = tc->subtypes [0]; switch (tc->kind) { /* #define _HANDLE_BASIC_VALUE(k,t,f) \ case CORBA_tk_ ## k: \ retval = ## f (*(CORBA_ ## t *) any->_value); \ break; _HANDLE_BASIC_VALUE (short, short, gh_int2scm); _HANDLE_BASIC_VALUE (long, long, gh_long2scm); _HANDLE_BASIC_VALUE (ushort, unsigned_short, gh_int2scm); _HANDLE_BASIC_VALUE (ulong, unsigned_long, gh_long2scm); _HANDLE_BASIC_VALUE (longlong, long_long, scm_long_long2num); _HANDLE_BASIC_VALUE (ulonglong, unsigned_long_long, scm_long_long2num); _HANDLE_BASIC_VALUE (float, float, gh_double2scm); _HANDLE_BASIC_VALUE (double, double, gh_double2scm); #undef _HANDLE_BASIC_VALUE */ case CORBA_tk_TypeCode: SCM_NEWSMOB (retval, scm_tc16_corba_typecode, * (CORBA_TypeCode *) any->_value); break; case CORBA_tk_objref: { CORBA_Object corba_objref; SCM class; corba_objref = * (CORBA_Object *) any->_value; CORBA_Object_duplicate (corba_objref, NULL); class = scm_c_corba_typecode_primitive_to_class (any->_type); retval = scm_c_make_corba_object (class, corba_objref); break; } case CORBA_tk_sequence: retval = scm_c_make_corba_sequence (tc, 0, (CORBA_sequence_CORBA_octet *) any->_value); break; case CORBA_tk_struct: { DynamicAny_DynStruct dyn; CORBA_Environment ev; CORBA_exception_init (&ev); dyn = (DynamicAny_DynStruct) DynamicAny_DynAnyFactory_create_dyn_any_from_type_code (guile_corba_dynany_factory, tc, &ev); DynamicAny_DynAny_from_any ((DynamicAny_DynAny) dyn, any, &ev); retval = scm_c_make_corba_struct (tc, 0, dyn); break; } case CORBA_tk_string: retval = scm_from_locale_stringn (* (CORBA_char **) any->_value, strlen (* (CORBA_char **) any->_value)); break; case CORBA_tk_any: retval = scm_c_corba_demarshal_any (* (CORBA_any **) any->_value); break; case CORBA_tk_enum: { GType gtype; gtype = guile_corba_generic_typecode_to_type (tc); g_message (G_STRLOC ": %ld", (unsigned long)gtype); retval = scm_c_make_gvalue (gtype); g_value_set_enum (scm_c_gvalue_peek_value (retval), *(CORBA_unsigned_long*)any->_value); break; } default: g_message (G_STRLOC ": %p - |%s| - %d", any->_value, any->_type->repo_id, tc->kind); break; } return retval; } void scm_c_corba_marshal_any (CORBA_any *any, SCM value) { switch (any->_type->kind) { char *_s; #define _HANDLE_BASIC_VALUE(k,t,f) \ case CORBA_tk_ ## k: \ (*(CORBA_ ## t *) any->_value) = f (value); \ break; _HANDLE_BASIC_VALUE (short, short, scm_to_short); _HANDLE_BASIC_VALUE (long, long, scm_to_long); _HANDLE_BASIC_VALUE (ushort, unsigned_short, scm_to_int); _HANDLE_BASIC_VALUE (ulong, unsigned_long, scm_to_long); _HANDLE_BASIC_VALUE (float, float, scm_to_double); _HANDLE_BASIC_VALUE (double, double, scm_to_double); #undef _HANDLE_BASIC_VALUE case CORBA_tk_TypeCode: SCM_ASSERT (SCM_TYP16_PREDICATE (scm_tc16_corba_typecode, value), value, SCM_ARG2, "%marshal-any"); (* (CORBA_TypeCode *) any->_value) = (CORBA_TypeCode) SCM_SMOB_DATA (value); break; case CORBA_tk_string: SCM_ASSERT (scm_is_string (value), value, SCM_ARG2, "%marshal-any"); _s = scm_to_locale_string (value); (* (CORBA_char **) any->_value) = CORBA_string_dup (_s); free (_s); break; default: g_message (G_STRLOC ": %p - |%s|", any->_value, any->_type->repo_id); break; } } SCM_DEFINE (scm_corba_struct_ref, "corba-struct-ref", 2, 0, 0, (SCM corba_struct, SCM index), "") #define FUNC_NAME s_scm_corba_struct_ref { DynamicAny_NameValuePairSeq *members; DynamicAny_NameValuePair *this; SCM_VALIDATE_CORBA_STRUCT (1, corba_struct); SCM_ASSERT (scm_to_int (index) >= 0 && (scm_to_int (index) < scm_to_int (SCM_CORBA_STRUCT_N_FIELDS (corba_struct))), index, SCM_ARG2, FUNC_NAME); members = SCM_CORBA_STRUCT_MEMBERS (corba_struct); this = &members->_buffer [scm_to_int (index)]; return scm_c_corba_demarshal_any (&this->value); } #undef FUNC_NAME SCM_DEFINE (scm_corba_struct_set_x, "corba-struct-set!", 3, 0, 0, (SCM corba_struct, SCM index, SCM value), "") #define FUNC_NAME s_scm_corba_struct_set_x { DynamicAny_NameValuePairSeq *members; DynamicAny_NameValuePair *this; SCM_VALIDATE_CORBA_STRUCT (1, corba_struct); SCM_ASSERT (scm_to_int (index) >= 0 && (scm_to_int (index) < scm_to_int (SCM_CORBA_STRUCT_N_FIELDS (corba_struct))), index, SCM_ARG2, FUNC_NAME); members = SCM_CORBA_STRUCT_MEMBERS (corba_struct); this = &members->_buffer [scm_to_int (index)]; scm_c_corba_marshal_any (&this->value, value); return SCM_UNSPECIFIED; } #undef FUNC_NAME SCM_DEFINE (scm_corba_struct_p, "corba-struct?", 1, 0, 0, (SCM corba_struct), "") #define FUNC_NAME s_scm_corba_struct_p { return SCM_BOOL (SCM_CORBA_STRUCTP (corba_struct)); } #undef FUNC_NAME SCM_DEFINE (scm_corba_struct_is_a_p, "corba-struct-is-a?", 2, 0, 0, (SCM corba_struct, SCM typecode), "") #define FUNC_NAME s_scm_corba_struct_is_a_p { CORBA_TypeCode struct_tc, tc; SCM_VALIDATE_CORBA_STRUCT (1, corba_struct); SCM_VALIDATE_CORBA_TYPECODE_COPY (2, typecode, tc); struct_tc = SCM_CORBA_STRUCT_TYPECODE (corba_struct); return SCM_BOOL (CORBA_TypeCode_equal (struct_tc, tc, NULL)); } #undef FUNC_NAME SCM_DEFINE (scm_corba_struct_type, "corba-struct-type", 1, 0, 0, (SCM corba_struct), "") #define FUNC_NAME s_scm_corba_struct_type { SCM_VALIDATE_CORBA_STRUCT (1, corba_struct); return SCM_PACK (SCM_STRUCT_DATA (corba_struct) [scm_si_corba_typecode]); } #undef FUNC_NAME static size_t guile_orbit_object_free (SCM type) { /* RootObject_release is internal API? */ gpointer objptr = (gpointer) SCM_SMOB_DATA (type); ORBit_RootObject_release (objptr); return 0; } static int guile_corba_typecode_print (SCM typecode_smob, SCM port, scm_print_state *pstate) { CORBA_TypeCode tc = (CORBA_TypeCode) SCM_SMOB_DATA (typecode_smob); scm_puts ("#repo_id), port); scm_puts (">", port); /* non-zero means success */ return 1; } G_GNUC_UNUSED static size_t guile_corba_data_free (SCM data) { gpointer dataptr = (gpointer) SCM_SMOB_DATA (data); CORBA_free (dataptr); return 0; } SCM_DEFINE (scm_corba_typecode_to_gtype_class, "corba-typecode->gtype-class", 1, 0, 0, (SCM typecode), "") #define FUNC_NAME s_scm_corba_typecode_to_gtype_class { CORBA_TypeCode tc; GType gtype; SCM_VALIDATE_CORBA_TYPECODE_COPY (1, typecode, tc); gtype = guile_corba_generic_typecode_to_type (tc); return scm_c_gtype_to_class (gtype); } #undef FUNC_NAME SCM scm_c_make_corba_object (SCM class, CORBA_Object corba_objref) { SCM smob, object; ORBit_RootObject_duplicate (corba_objref); SCM_NEWSMOB (smob, scm_tc16_corba_object, corba_objref); object = scm_make (SCM_LIST1 (class)); scm_slot_set_x (object, scm_sym_corba_objref, smob); return object; } SCM scm_c_make_corba_typecode (CORBA_TypeCode corba_typecode) { SCM smob; ORBit_RootObject_duplicate (corba_typecode); SCM_NEWSMOB (smob, scm_tc16_corba_typecode, corba_typecode); return smob; } SCM scm_c_corba_typecode_to_class (CORBA_TypeCode tc) { CORBA_TypeCode real_tc; real_tc = tc; while (real_tc->kind == CORBA_tk_alias) real_tc = real_tc->subtypes [0]; switch (tc->kind) { case CORBA_tk_short: case CORBA_tk_long: case CORBA_tk_ushort: case CORBA_tk_ulong: return scm_class_integer; case CORBA_tk_longlong: case CORBA_tk_ulonglong: return scm_class_number; case CORBA_tk_float: case CORBA_tk_double: return scm_class_real; case CORBA_tk_string: return scm_class_string; default: return scm_class_top; } } SCM_DEFINE (scm_corba_object_class_to_typecode, "corba-object-class->typecode", 1, 0, 0, (SCM class), "") #define FUNC_NAME s_scm_corba_object_class_to_typecode { SCM tc_smob; SCM_VALIDATE_CORBA_OBJECT_CLASS (1, class); tc_smob = scm_call_2 (scm_class_slot_ref, class, scm_sym_corba_typecode); SCM_ASSERT (SCM_TYP16_PREDICATE (scm_tc16_corba_typecode, tc_smob), class, SCM_ARG3, FUNC_NAME); return tc_smob; } #undef FUNC_NAME void scm_pre_init_gnome_corba_types (void) { scm_tc16_orbit_object = scm_make_smob_type ("%orbit-object", 0); scm_set_smob_free (scm_tc16_orbit_object, guile_orbit_object_free); scm_tc16_corba_typecode = scm_make_smob_type ("%corba-typecode", 0); scm_set_smob_free (scm_tc16_corba_typecode, guile_orbit_object_free); scm_set_smob_print (scm_tc16_corba_typecode, guile_corba_typecode_print); scm_tc16_corba_object = scm_make_smob_type ("%corba-object", 0); // scm_set_smob_print (scm_tc16_corba_object, guile_corba_object_print); scm_set_smob_free (scm_tc16_corba_object, guile_orbit_object_free); scm_tc16_orbit_iinterface = scm_make_smob_type ("%orbit-iinterface", 0); scm_set_smob_free (scm_tc16_orbit_iinterface, NULL); scm_tc16_orbit_imethod = scm_make_smob_type ("%orbit-imethod", 0); scm_set_smob_free (scm_tc16_orbit_imethod, NULL); scm_tc16_corba_data = scm_make_smob_type ("%corba-data", 0); // scm_set_smob_free (scm_tc16_corba_data, guile_corba_data_free); } void scm_init_gnome_corba_types (void) { SCM gsubr; #include "guile-gnome-corba-types.x" gsubr = scm_c_make_gsubr ("%print-corba-struct", 2, 0, 0, print_corba_struct); scm_corba_struct_vtable = scm_permanent_object (scm_make_vtable_vtable (scm_from_locale_string ("srprprprpopopW"), scm_from_int (0), SCM_LIST1 (gsubr))); SCM_SET_CORBA_STRUCT_TYPECODE (scm_corba_struct_vtable, TC_CORBA_TypeCode); scm_c_define ("%corba-struct-vtable", scm_corba_struct_vtable); scm_c_define ("%corba-struct-vtable-offset-user", scm_from_int (scm_corba_struct_vtable_offset_user)); scm_c_define ("%corba-struct-vtable-offset-printer", scm_from_int (scm_vtable_index_printer)); gsubr = scm_c_make_gsubr ("%print-corba-sequence", 2, 0, 0, print_corba_sequence); scm_corba_sequence_vtable = scm_permanent_object (scm_make_vtable_vtable (scm_from_locale_string ("srprprprpopW"), scm_from_int (0), SCM_LIST1 (gsubr))); SCM_SET_CORBA_SEQUENCE_TYPECODE (scm_corba_sequence_vtable, TC_CORBA_TypeCode); scm_c_define ("%corba-sequence-vtable", scm_corba_sequence_vtable); scm_c_define ("%corba-sequence-vtable-offset-user", scm_from_int (scm_corba_sequence_vtable_offset_user)); scm_c_define ("%corba-sequence-vtable-offset-printer", scm_from_int (scm_vtable_index_printer)); scm_c_export ("%corba-struct-vtable", "%corba-struct-vtable-offset-user", "%corba-struct-vtable-offset-printer", "%corba-sequence-vtable", "%corba-sequence-vtable-offset-user", "%corba-sequence-vtable-offset-printer", NULL); scm_c_export (s_scm_corba_object_class_to_typecode, s_scm_corba_typecode_to_gtype_class, s_scm_make_corba_struct, s_scm_corba_struct_fields, s_scm_corba_struct_ref, s_scm_corba_struct_set_x, s_scm_corba_struct_p, s_scm_corba_struct_is_a_p, s_scm_corba_struct_type, s_scm_make_corba_sequence, s_scm_corba_sequence_length, s_scm_corba_sequence_set_length_x, s_scm_corba_sequence_set_x, s_scm_corba_sequence_ref, s_scm_corba_sequence_type, NULL); } guile-gnome-platform-2.16.2/corba/gnome/corba/guile-gnome-corba-types.h0000644000175000017500000002056711670374302026271 0ustar00wingowingo00000000000000/* guile-gnome * Copyright (C) 2001 Martin Baulig * Copyright (C) 2003 Andy Wingo * * guile-gnome-corba-types.h: * * This program is free software; you can redistribute it and/or * modify it under the terms of the GNU General Public License as * published by the Free Software Foundation; either version 2 of * the License, or (at your option) any later version. * * This program is distributed in the hope that it will be useful, * but WITHOUT ANY WARRANTY; without even the implied warranty of * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the * GNU General Public License for more details. * * You should have received a copy of the GNU General Public License * along with this program; if not, contact: * * Free Software Foundation Voice: +1-617-542-5942 * 59 Temple Place - Suite 330 Fax: +1-617-542-2652 * Boston, MA 02111-1307, USA gnu@gnu.org */ #ifndef __GUILE_CORBA_TYPES_H__ #define __GUILE_CORBA_TYPES_H__ 1 #include #define ORBIT2_INTERNAL_API /* we need RootObject_duplicate/release */ #include #undef ORBIT2_INTERNAL_API #include extern SCM scm_corba_struct_vtable; extern SCM scm_corba_sequence_vtable; extern scm_t_bits scm_tc16_corba_typecode; extern scm_t_bits scm_tc16_orbit_object; extern scm_t_bits scm_tc16_corba_data; extern scm_t_bits scm_tc16_corba_object; extern scm_t_bits scm_tc16_orbit_imethod; extern scm_t_bits scm_tc16_orbit_iinterface; extern SCM scm_sym_corba_objref; extern SCM scm_sym_corba_objref; extern SCM scm_sym_corba_typecode; extern SCM scm_sym_orbit_iinterface; extern SCM scm_sym_servant; extern SCM scm_sym_stub_class; extern SCM scm_sym_corba_system_exception; extern SCM scm_sym_corba_user_exception; #define scm_si_corba_typecode (scm_vtable_offset_user + 1) #define scm_si_corba_struct_data (scm_vtable_offset_user + 2) #define scm_si_corba_struct_n_fields (scm_vtable_offset_user + 3) #define scm_si_corba_struct_members (scm_vtable_offset_user + 4) #define scm_si_corba_struct_fields (scm_vtable_offset_user + 5) #define scm_corba_struct_vtable_offset_user (scm_vtable_offset_user + 6) #define scm_corba_sequence_vtable_offset_user (scm_vtable_offset_user + 2) #define SCM_CORBA_STRUCTP(x) (SCM_STRUCTP (x) \ && SCM_EQ_P (scm_struct_vtable (x), scm_corba_struct_vtable)) #define SCM_VALIDATE_CORBA_STRUCT(pos, scm) SCM_MAKE_VALIDATE (pos, scm, CORBA_STRUCTP) #define SCM_CORBA_STRUCT_TYPECODE(x) (CORBA_TypeCode) SCM_SMOB_DATA (SCM_PACK (SCM_STRUCT_DATA (x) [scm_si_corba_typecode])) #define SCM_SET_CORBA_STRUCT_TYPECODE(x,tc) G_STMT_START{ \ SCM z; \ SCM_NEWSMOB (z, scm_tc16_corba_typecode, ORBit_RootObject_duplicate (tc)); \ SCM_STRUCT_DATA (x) [scm_si_corba_typecode] = SCM_UNPACK (z); \ }G_STMT_END #define SCM_CORBA_STRUCT_FIELDS(x) (SCM_STRUCT_DATA (x) [scm_si_corba_struct_fields]) #define SCM_SET_CORBA_STRUCT_FIELDS(x,f) {SCM_STRUCT_DATA (x) [scm_si_corba_struct_fields] = SCM_UNPACK (f);} #define SCM_CORBA_STRUCT_N_FIELDS(x) SCM_PACK ((SCM_STRUCT_DATA (x) [scm_si_corba_struct_n_fields])) #define SCM_SET_CORBA_STRUCT_N_FIELDS(x,n) {SCM_STRUCT_DATA (x) [scm_si_corba_struct_n_fields] = SCM_UNPACK (n);} #define SCM_CORBA_STRUCT_DATA(x) SCM_SMOB_DATA (SCM_PACK (SCM_STRUCT_DATA (x) [scm_si_corba_struct_data])) #define SCM_SET_CORBA_STRUCT_DATA(x,d) G_STMT_START{ \ SCM z; \ SCM_NEWSMOB (z, scm_tc16_orbit_object, ORBit_RootObject_duplicate (d)); \ SCM_STRUCT_DATA (x) [scm_si_corba_struct_data] = SCM_UNPACK (z); \ }G_STMT_END #define SCM_CORBA_STRUCT_MEMBERS(x) (DynamicAny_NameValuePairSeq *) SCM_SMOB_DATA (SCM_PACK (SCM_STRUCT_DATA (x) [scm_si_corba_struct_members])) #define SCM_SET_CORBA_STRUCT_MEMBERS(x,d) G_STMT_START{ \ SCM z; \ SCM_NEWSMOB (z, scm_tc16_corba_data, d); \ SCM_STRUCT_DATA (x) [scm_si_corba_struct_members] = SCM_UNPACK (z); \ }G_STMT_END #define SCM_CORBA_SEQUENCEP(x) (SCM_STRUCTP (x) \ && SCM_EQ_P (scm_struct_vtable (x), scm_corba_sequence_vtable)) #define SCM_VALIDATE_CORBA_SEQUENCE(pos, scm) SCM_MAKE_VALIDATE (pos, scm, CORBA_SEQUENCEP) #define SCM_CORBA_SEQUENCE_TYPECODE(x) SCM_CORBA_STRUCT_TYPECODE(x) #define SCM_SET_CORBA_SEQUENCE_TYPECODE(x,tc) SCM_SET_CORBA_STRUCT_TYPECODE(x,tc) #define SCM_CORBA_SEQUENCE_DATA(x) SCM_CORBA_STRUCT_DATA(x) #define SCM_SET_CORBA_SEQUENCE_DATA(x,tc) SCM_SET_CORBA_STRUCT_DATA(x,tc) #define SCM_CORBA_SEQUENCE_LENGTH(x) SCM_CORBA_STRUCT_N_FIELDS(x) #define SCM_SET_CORBA_SEQUENCE_LENGTH(x,l) SCM_SET_CORBA_STRUCT_N_FIELDS(x,l) #define SCM_CORBA_SEQUENCE_MEMBERS(x) (DynamicAny_AnySeq *) SCM_SMOB_DATA (SCM_PACK (SCM_STRUCT_DATA (x) [scm_si_corba_struct_members])) #define SCM_SET_CORBA_SEQUENCE_MEMBERS(x,d) G_STMT_START{ \ SCM z; \ SCM_NEWSMOB (z, scm_tc16_corba_data, d); \ SCM_STRUCT_DATA (x) [scm_si_corba_struct_members] = SCM_UNPACK (z); \ }G_STMT_END #define SCM_CORBA_OBJECTP(scm) \ SCM_INSTANCEP (scm) && SCM_IS_A_P (SCM_CLASS_OF (scm), scm_class_corba_object) #define SCM_VALIDATE_CORBA_OBJECT(pos, scm) \ SCM_MAKE_VALIDATE (pos, scm, CORBA_OBJECTP) #define SCM_VALIDATE_CORBA_OBJECT_COPY(pos, scm, cvar) \ do { \ SCM smob; \ SCM_VALIDATE_CORBA_OBJECT (pos, scm); \ smob = scm_slot_ref (scm, scm_sym_corba_objref); \ SCM_ASSERT (SCM_TYP16_PREDICATE (scm_tc16_corba_object, smob), smob, \ pos, FUNC_NAME); \ cvar = (CORBA_Object) SCM_SMOB_DATA (smob); \ } while (0) #define SCM_CORBA_OBJECT_CLASSP(scm) \ SCM_CLASSP (scm) && SCM_IS_A_P (scm, scm_class_corba_object) #define SCM_VALIDATE_CORBA_OBJECT_CLASS(pos, scm) \ SCM_MAKE_VALIDATE (pos, scm, CORBA_OBJECT_CLASSP) #define SCM_VALIDATE_CORBA_OBJECT_CLASS_COPY(pos, scm, cvar) \ do { \ SCM smob; \ SCM_VALIDATE_CORBA_OBJECT_CLASS (pos, scm); \ smob = scm_call_2 (scm_class_slot_ref, scm, scm_sym_corba_typecode); \ SCM_ASSERT (SCM_TYP16_PREDICATE (scm_tc16_corba_typecode, smob), smob, \ pos, FUNC_NAME); \ cvar = (CORBA_TypeCode) SCM_SMOB_DATA (smob); \ } while (0) #define SCM_VALIDATE_ORBIT_IMETHOD(pos, scm) \ SCM_VALIDATE_SMOB (pos, scm, orbit_imethod) #define SCM_VALIDATE_ORBIT_IMETHOD_COPY(pos, type, cvar) \ do { \ SCM_VALIDATE_ORBIT_IMETHOD (pos, type); \ cvar = (ORBit_IMethod *) SCM_SMOB_DATA (type); \ } while (0) #define SCM_VALIDATE_CORBA_TYPECODE(pos, scm) \ SCM_VALIDATE_SMOB (pos, scm, corba_typecode) #define SCM_VALIDATE_CORBA_TYPECODE_COPY(pos, type, cvar) \ do { \ SCM_VALIDATE_CORBA_TYPECODE (pos, type); \ cvar = (CORBA_TypeCode) SCM_SMOB_DATA (type); \ } while (0) SCM scm_make_corba_struct (SCM typecode, SCM num_tail_elts, SCM init_smob); SCM scm_corba_struct_fields (SCM typecode); SCM scm_corba_struct_ref (SCM corba_struct, SCM index); SCM scm_corba_struct_set_x (SCM corba_struct, SCM index, SCM value); SCM scm_corba_struct_p (SCM corba_struct); SCM scm_corba_struct_is_a_p (SCM corba_struct, SCM typecode); SCM scm_corba_struct_type (SCM corba_struct); SCM scm_make_corba_sequence (SCM typecode, SCM length, SCM init_smob); SCM scm_corba_sequence_length (SCM corba_sequence); SCM scm_corba_sequence_set_length_x (SCM corba_sequence, SCM length); SCM scm_corba_sequence_set_x (SCM corba_sequence, SCM index, SCM value); SCM scm_corba_sequence_ref (SCM corba_sequence, SCM index); SCM scm_corba_sequence_type (SCM corba_sequence); SCM scm_corba_typecode_to_gtype (SCM typecode); SCM scm_c_make_corba_struct (CORBA_TypeCode tc, guint nfields, DynamicAny_DynStruct dyn); SCM scm_c_make_corba_sequence (CORBA_TypeCode tc, guint length, gpointer data); SCM scm_c_corba_demarshal_any (const CORBA_any *any); void scm_c_corba_marshal_any (CORBA_any *any, SCM value); SCM scm_c_make_corba_object (SCM class, CORBA_Object corba_objref); SCM scm_c_make_corba_typecode (CORBA_TypeCode tc); SCM scm_corba_object_class_to_typecode (SCM class); SCM scm_c_corba_typecode_to_class (CORBA_TypeCode tc); void scm_pre_init_gnome_corba_types (void); void scm_init_gnome_corba_types (void); #endif guile-gnome-platform-2.16.2/corba/gnome/corba/primitives.scm0000644000175000017500000000470411670374302024354 0ustar00wingowingo00000000000000;; guile-gnome ;; Copyright (C) 2001 Martin Baulig ;; 2003,2004 Andy Wingo ;; This program is free software; you can redistribute it and/or ;; modify it under the terms of the GNU General Public License as ;; published by the Free Software Foundation; either version 2 of ;; the License, or (at your option) any later version. ;; ;; This program is distributed in the hope that it will be useful, ;; but WITHOUT ANY WARRANTY; without even the implied warranty of ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the ;; GNU General Public License for more details. ;; ;; You should have received a copy of the GNU General Public License ;; along with this program; if not, contact: ;; ;; Free Software Foundation Voice: +1-617-542-5942 ;; 59 Temple Place - Suite 330 Fax: +1-617-542-2652 ;; Boston, MA 02111-1307, USA gnu@gnu.org ;;; Commentary: ;; ;;A CORBA wrapper for Guile. ;; ;;; Code: (define-module (gnome corba primitives) :use-module (gnome gw corba) :use-module (gnome corba types) :use-module (gnome gobject) :use-module (oop goops)) (define-class () (%orbit-iinterface #:allocation #:each-subclass) (servant)) (define-class () (corba-typecode #:allocation #:each-subclass) (corba-objref)) (%init-gnome-corba-primitives) (define-method (allocate-instance (class ) initargs) (corba-primitive-make-poa-instance class)) (define-method (allocate-instance (class ) initargs) (if (or (get-keyword #:dsupers initargs #f)) (next-method) (let* ((object (next-method)) (servant (get-keyword #:servant initargs *unspecified*)) (ior (get-keyword #:ior initargs *unspecified*))) (gnome-corba-error "Can't make instances of this type: ~A" type)))) (define (display-address o file) (display (number->string (object-address o) 16) file)) (define-method (write (o ) file) (let ((class (class-of o))) (if (slot-bound? class 'name) (begin (display "#<" file) (display (class-name class) file) (display #\space file) (display-address o file) (display #\> file)) (next-method)))) (export ) guile-gnome-platform-2.16.2/corba/gnome/corba/guile-gnome-corba-primitives.h0000644000175000017500000001061411670374302027310 0ustar00wingowingo00000000000000/* guile-gnome * Copyright (C) 2001 Martin Baulig * Copyright (C) 2003 Andy Wingo * * guile-gnome-corba-primitives.h: * * This program is free software; you can redistribute it and/or * modify it under the terms of the GNU General Public License as * published by the Free Software Foundation; either version 2 of * the License, or (at your option) any later version. * * This program is distributed in the hope that it will be useful, * but WITHOUT ANY WARRANTY; without even the implied warranty of * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the * GNU General Public License for more details. * * You should have received a copy of the GNU General Public License * along with this program; if not, contact: * * Free Software Foundation Voice: +1-617-542-5942 * 59 Temple Place - Suite 330 Fax: +1-617-542-2652 * Boston, MA 02111-1307, USA gnu@gnu.org */ #ifndef __GUILE_CORBA_PRIMITIVES_H__ #define __GUILE_CORBA_PRIMITIVES_H__ 1 #include #define ORBIT2_INTERNAL_API /* we need RootObject_duplicate/release */ #include #undef ORBIT2_INTERNAL_API #include #include typedef struct { ORBit_IInterface *iinterface; PortableServer_ClassInfo class_info; GHashTable *epv_hash; SCM poa_class, stub_class; glong epv_size; PortableServer_ServantBase__vepv *vepv; gpointer *epv; } GuileCorbaInterface; typedef struct { PortableServer_ServantBase servant; PortableServer_ObjectId *objid; GuileCorbaInterface *interface; SCM this; }GuilePortableServer_Servant; extern DynamicAny_DynAnyFactory guile_corba_dynany_factory; extern PortableServer_POA guile_corba_poa; extern CORBA_ORB guile_corba_orb; extern SCM scm_class_corba_object; extern SCM scm_class_portable_server_servant_base; extern SCM scm_class_slot_ref; extern scm_t_bits scm_tc16_guile_corba_interface; extern scm_t_bits scm_tc16_guile_portable_server_servant; #define SCM_PORTABLE_SERVER_SERVANT_BASEP(scm) \ SCM_INSTANCEP (scm) && SCM_IS_A_P (SCM_CLASS_OF (scm), scm_class_portable_server_servant_base) #define SCM_VALIDATE_PORTABLE_SERVER_SERVANT_BASE(pos, scm) \ SCM_MAKE_VALIDATE (pos, scm, PORTABLE_SERVER_SERVANT_BASEP) #define SCM_VALIDATE_PORTABLE_SERVER_SERVANT_BASE_COPY(pos, scm, cvar) \ do { \ SCM tmp_smob; \ SCM_VALIDATE_PORTABLE_SERVER_SERVANT_BASE (pos, scm); \ tmp_smob = scm_slot_ref (scm, scm_sym_servant); \ SCM_ASSERT (SCM_TYP16_PREDICATE (scm_tc16_guile_portable_server_servant, tmp_smob), \ tmp_smob, pos, FUNC_NAME); \ cvar = (GuilePortableServer_Servant *) SCM_SMOB_DATA (tmp_smob); \ } while (0) #define SCM_PORTABLE_SERVER_SERVANT_BASE_CLASSP(scm) \ SCM_CLASSP (scm) && SCM_IS_A_P (scm, scm_class_portable_server_servant_base) #define SCM_VALIDATE_PORTABLE_SERVER_SERVANT_BASE_CLASS(pos, scm) \ SCM_MAKE_VALIDATE (pos, scm, PORTABLE_SERVER_SERVANT_BASE_CLASSP) #define SCM_VALIDATE_PORTABLE_SERVER_SERVANT_BASE_CLASS_COPY(pos, scm, cvar) \ do { \ SCM tmp_smob, tmp_class; \ SCM_VALIDATE_PORTABLE_SERVER_SERVANT_BASE_CLASS (pos, scm); \ tmp_class = scm_corba_primitive_find_poa_class (scm); \ tmp_smob = scm_call_2 (scm_class_slot_ref, tmp_class, scm_sym_orbit_iinterface); \ SCM_ASSERT (SCM_TYP16_PREDICATE (scm_tc16_guile_corba_interface, tmp_smob), \ tmp_smob, pos, FUNC_NAME); \ cvar = (GuileCorbaInterface *) SCM_SMOB_DATA (tmp_smob); \ } while (0) SCM scm_corba_primitive_invoke_method (SCM method_name, SCM imethod, SCM class, SCM args); SCM scm_corba_primitive_find_poa_class (SCM class); SCM scm_corba_primitive_make_poa_instance (SCM class); SCM scm_corba_typecode_primitive_p (SCM typecode); SCM scm_corba_typecode_primitive_to_name (SCM typecode); SCM scm_corba_typecode_primitive_to_class (SCM type); SCM scm_corba_primitive_open_module (SCM scm_name); SCM scm_corba_primitive_register_interface (SCM name); SCM scm_corba_primitive_main (void); SCM scm_c_corba_typecode_primitive_to_class (CORBA_TypeCode tc); void scm_c_corba_handle_exception (CORBA_Environment *ev); void scm_pre_init_gnome_corba_primitives (void); void scm_init_gnome_corba_primitives (void); #endif guile-gnome-platform-2.16.2/corba/gnome/Makefile.in0000644000175000017500000005743211752520723022443 0ustar00wingowingo00000000000000# Makefile.in generated by automake 1.11.5 from Makefile.am. # @configure_input@ # Copyright (C) 1994, 1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, # 2003, 2004, 2005, 2006, 2007, 2008, 2009, 2010, 2011 Free Software # Foundation, Inc. # This Makefile.in is free software; the Free Software Foundation # gives unlimited permission to copy and/or distribute it, # with or without modifications, as long as this notice is preserved. # This program is distributed in the hope that it will be useful, # but WITHOUT ANY WARRANTY, to the extent permitted by law; without # even the implied warranty of MERCHANTABILITY or FITNESS FOR A # PARTICULAR PURPOSE. @SET_MAKE@ # guile-gnome # Copyright (C) 2003,2004,2009,2012 Free Software Foundation, Inc. # This program is free software; you can redistribute it and/or # modify it under the terms of the GNU General Public License as # published by the Free Software Foundation; either version 2 of # the License, or (at your option) any later version. # This program is distributed in the hope that it will be useful, # but WITHOUT ANY WARRANTY; without even the implied warranty of # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the # GNU General Public License for more details. # You should have received a copy of the GNU General Public License # along with this program; if not, contact: # Free Software Foundation Voice: +1-617-542-5942 # 59 Temple Place - Suite 330 Fax: +1-617-542-2652 # Boston, MA 02111-1307, USA gnu@gnu.org # # Makefile snippet # VPATH = @srcdir@ am__make_dryrun = \ { \ am__dry=no; \ case $$MAKEFLAGS in \ *\\[\ \ ]*) \ echo 'am--echo: ; @echo "AM" OK' | $(MAKE) -f - 2>/dev/null \ | grep '^AM OK$$' >/dev/null || am__dry=yes;; \ *) \ for am__flg in $$MAKEFLAGS; do \ case $$am__flg in \ *=*|--*) ;; \ *n*) am__dry=yes; break;; \ esac; \ done;; \ esac; \ test $$am__dry = yes; \ } pkgdatadir = $(datadir)/@PACKAGE@ pkgincludedir = $(includedir)/@PACKAGE@ pkglibdir = $(libdir)/@PACKAGE@ pkglibexecdir = $(libexecdir)/@PACKAGE@ am__cd = CDPATH="$${ZSH_VERSION+.}$(PATH_SEPARATOR)" && cd install_sh_DATA = $(install_sh) -c -m 644 install_sh_PROGRAM = $(install_sh) -c install_sh_SCRIPT = $(install_sh) -c INSTALL_HEADER = $(INSTALL_DATA) transform = $(program_transform_name) NORMAL_INSTALL = : PRE_INSTALL = : POST_INSTALL = : NORMAL_UNINSTALL = : PRE_UNINSTALL = : POST_UNINSTALL = : build_triplet = @build@ host_triplet = @host@ DIST_COMMON = $(srcdir)/Makefile.am $(srcdir)/Makefile.in \ $(top_srcdir)/common.mk @HAVE_CORBA_TRUE@am__append_1 = corba.scm @HAVE_CORBA_TRUE@am__append_2 = corba gw subdir = corba/gnome ACLOCAL_M4 = $(top_srcdir)/aclocal.m4 am__aclocal_m4_deps = $(top_srcdir)/configure.ac am__configure_deps = $(am__aclocal_m4_deps) $(CONFIGURE_DEPENDENCIES) \ $(ACLOCAL_M4) mkinstalldirs = $(install_sh) -d CONFIG_HEADER = $(top_builddir)/config.h CONFIG_CLEAN_FILES = CONFIG_CLEAN_VPATH_FILES = SOURCES = DIST_SOURCES = RECURSIVE_TARGETS = all-recursive check-recursive dvi-recursive \ html-recursive info-recursive install-data-recursive \ install-dvi-recursive install-exec-recursive \ install-html-recursive install-info-recursive \ install-pdf-recursive install-ps-recursive install-recursive \ installcheck-recursive installdirs-recursive pdf-recursive \ ps-recursive uninstall-recursive am__can_run_installinfo = \ case $$AM_UPDATE_INFO_DIR in \ n|no|NO) false;; \ *) (install-info --version) >/dev/null 2>&1;; \ esac am__vpath_adj_setup = srcdirstrip=`echo "$(srcdir)" | sed 's|.|.|g'`; am__vpath_adj = case $$p in \ $(srcdir)/*) f=`echo "$$p" | sed "s|^$$srcdirstrip/||"`;; \ *) f=$$p;; \ esac; am__strip_dir = f=`echo $$p | sed -e 's|^.*/||'`; am__install_max = 40 am__nobase_strip_setup = \ srcdirstrip=`echo "$(srcdir)" | sed 's/[].[^$$\\*|]/\\\\&/g'` am__nobase_strip = \ for p in $$list; do echo "$$p"; done | sed -e "s|$$srcdirstrip/||" am__nobase_list = $(am__nobase_strip_setup); \ for p in $$list; do echo "$$p $$p"; done | \ sed "s| $$srcdirstrip/| |;"' / .*\//!s/ .*/ ./; s,\( .*\)/[^/]*$$,\1,' | \ $(AWK) 'BEGIN { files["."] = "" } { files[$$2] = files[$$2] " " $$1; \ if (++n[$$2] == $(am__install_max)) \ { print $$2, files[$$2]; n[$$2] = 0; files[$$2] = "" } } \ END { for (dir in files) print dir, files[dir] }' am__base_list = \ sed '$$!N;$$!N;$$!N;$$!N;$$!N;$$!N;$$!N;s/\n/ /g' | \ sed '$$!N;$$!N;$$!N;$$!N;s/\n/ /g' am__uninstall_files_from_dir = { \ test -z "$$files" \ || { test ! -d "$$dir" && test ! -f "$$dir" && test ! -r "$$dir"; } \ || { echo " ( cd '$$dir' && rm -f" $$files ")"; \ $(am__cd) "$$dir" && rm -f $$files; }; \ } am__installdirs = "$(DESTDIR)$(guilemoduledir)" DATA = $(guilemodule_DATA) RECURSIVE_CLEAN_TARGETS = mostlyclean-recursive clean-recursive \ distclean-recursive maintainer-clean-recursive AM_RECURSIVE_TARGETS = $(RECURSIVE_TARGETS:-recursive=) \ $(RECURSIVE_CLEAN_TARGETS:-recursive=) tags TAGS ctags CTAGS \ distdir ETAGS = etags CTAGS = ctags DISTFILES = $(DIST_COMMON) $(DIST_SOURCES) $(TEXINFOS) $(EXTRA_DIST) am__relativize = \ dir0=`pwd`; \ sed_first='s,^\([^/]*\)/.*$$,\1,'; \ sed_rest='s,^[^/]*/*,,'; \ sed_last='s,^.*/\([^/]*\)$$,\1,'; \ sed_butlast='s,/*[^/]*$$,,'; \ while test -n "$$dir1"; do \ first=`echo "$$dir1" | sed -e "$$sed_first"`; \ if test "$$first" != "."; then \ if test "$$first" = ".."; then \ dir2=`echo "$$dir0" | sed -e "$$sed_last"`/"$$dir2"; \ dir0=`echo "$$dir0" | sed -e "$$sed_butlast"`; \ else \ first2=`echo "$$dir2" | sed -e "$$sed_first"`; \ if test "$$first2" = "$$first"; then \ dir2=`echo "$$dir2" | sed -e "$$sed_rest"`; \ else \ dir2="../$$dir2"; \ fi; \ dir0="$$dir0"/"$$first"; \ fi; \ fi; \ dir1=`echo "$$dir1" | sed -e "$$sed_rest"`; \ done; \ reldir="$$dir2" ACLOCAL = @ACLOCAL@ AG_PKG_CONFIG_PATH = @AG_PKG_CONFIG_PATH@ AMTAR = @AMTAR@ API_VERSION = @API_VERSION@ AR = @AR@ ATK_CFLAGS = @ATK_CFLAGS@ ATK_LIBS = @ATK_LIBS@ AUTOCONF = @AUTOCONF@ AUTOHEADER = @AUTOHEADER@ AUTOMAKE = @AUTOMAKE@ AWK = @AWK@ BONOBO_IDL_DIR = @BONOBO_IDL_DIR@ CANVAS_CFLAGS = @CANVAS_CFLAGS@ CANVAS_LIBS = @CANVAS_LIBS@ CC = @CC@ CCDEPMODE = @CCDEPMODE@ CFLAGS = @CFLAGS@ CORBA_CFLAGS = @CORBA_CFLAGS@ CORBA_LIBS = @CORBA_LIBS@ CPP = @CPP@ CPPFLAGS = @CPPFLAGS@ CYGPATH_W = @CYGPATH_W@ DEFS = @DEFS@ DEPDIR = @DEPDIR@ DLLTOOL = @DLLTOOL@ DSYMUTIL = @DSYMUTIL@ DUMPBIN = @DUMPBIN@ ECHO_C = @ECHO_C@ ECHO_N = @ECHO_N@ ECHO_T = @ECHO_T@ EGREP = @EGREP@ EXEEXT = @EXEEXT@ FGREP = @FGREP@ GCONF_CFLAGS = @GCONF_CFLAGS@ GCONF_LIBS = @GCONF_LIBS@ GDK_CFLAGS = @GDK_CFLAGS@ GDK_LIBS = @GDK_LIBS@ GDK_PIXBUF_CFLAGS = @GDK_PIXBUF_CFLAGS@ GDK_PIXBUF_LIBS = @GDK_PIXBUF_LIBS@ GLIB_CFLAGS = @GLIB_CFLAGS@ GLIB_LIBS = @GLIB_LIBS@ GNOMEUI_DEPRECATION_FLAGS = @GNOMEUI_DEPRECATION_FLAGS@ GNOME_VFS_CFLAGS = @GNOME_VFS_CFLAGS@ GNOME_VFS_DEPRECATED_CFLAGS = @GNOME_VFS_DEPRECATED_CFLAGS@ GNOME_VFS_LIBS = @GNOME_VFS_LIBS@ GOBJECT_CFLAGS = @GOBJECT_CFLAGS@ GOBJECT_LIBS = @GOBJECT_LIBS@ GREP = @GREP@ GTHREAD_CFLAGS = @GTHREAD_CFLAGS@ GTHREAD_LIBS = @GTHREAD_LIBS@ GTK_CFLAGS = @GTK_CFLAGS@ GTK_DEPRECATED_CFLAGS = @GTK_DEPRECATED_CFLAGS@ GTK_LIBS = @GTK_LIBS@ GUILE_CAIRO_CFLAGS = @GUILE_CAIRO_CFLAGS@ GUILE_CAIRO_LIBS = @GUILE_CAIRO_LIBS@ GUILE_CFLAGS = @GUILE_CFLAGS@ GUILE_EFFECTIVE_VERSION = @GUILE_EFFECTIVE_VERSION@ GUILE_GLIB_CFLAGS = @GUILE_GLIB_CFLAGS@ GUILE_GLIB_LIBS = @GUILE_GLIB_LIBS@ GUILE_LIBS = @GUILE_LIBS@ G_WRAP_CFLAGS = @G_WRAP_CFLAGS@ G_WRAP_LIBS = @G_WRAP_LIBS@ G_WRAP_LIB_DIR = @G_WRAP_LIB_DIR@ G_WRAP_MODULE_DIR = @G_WRAP_MODULE_DIR@ INSTALL = @INSTALL@ INSTALL_DATA = @INSTALL_DATA@ INSTALL_PROGRAM = @INSTALL_PROGRAM@ INSTALL_SCRIPT = @INSTALL_SCRIPT@ INSTALL_STRIP_PROGRAM = @INSTALL_STRIP_PROGRAM@ LD = @LD@ LDFLAGS = @LDFLAGS@ LIBGLADE_CFLAGS = @LIBGLADE_CFLAGS@ LIBGLADE_LIBS = @LIBGLADE_LIBS@ LIBGNOMEUI_CFLAGS = @LIBGNOMEUI_CFLAGS@ LIBGNOMEUI_LIBS = @LIBGNOMEUI_LIBS@ LIBGNOME_CFLAGS = @LIBGNOME_CFLAGS@ LIBGNOME_LIBS = @LIBGNOME_LIBS@ LIBOBJS = @LIBOBJS@ LIBS = @LIBS@ LIBTOOL = @LIBTOOL@ LIPO = @LIPO@ LN_S = @LN_S@ LTLIBOBJS = @LTLIBOBJS@ MAKEINFO = @MAKEINFO@ MANIFEST_TOOL = @MANIFEST_TOOL@ MKDIR_P = @MKDIR_P@ NM = @NM@ NMEDIT = @NMEDIT@ OBJDUMP = @OBJDUMP@ OBJEXT = @OBJEXT@ ORBIT_IDL = @ORBIT_IDL@ OTOOL = @OTOOL@ OTOOL64 = @OTOOL64@ PACKAGE = @PACKAGE@ PACKAGE_BUGREPORT = @PACKAGE_BUGREPORT@ PACKAGE_NAME = @PACKAGE_NAME@ PACKAGE_STRING = @PACKAGE_STRING@ PACKAGE_TARNAME = @PACKAGE_TARNAME@ PACKAGE_URL = @PACKAGE_URL@ PACKAGE_VERSION = @PACKAGE_VERSION@ PANGOCAIRO_CFLAGS = @PANGOCAIRO_CFLAGS@ PANGOCAIRO_LIBS = @PANGOCAIRO_LIBS@ PANGO_CFLAGS = @PANGO_CFLAGS@ PANGO_LIBS = @PANGO_LIBS@ PATH_SEPARATOR = @PATH_SEPARATOR@ PKG_CONFIG = @PKG_CONFIG@ PKG_CONFIG_LIBDIR = @PKG_CONFIG_LIBDIR@ PKG_CONFIG_PATH = @PKG_CONFIG_PATH@ RANLIB = @RANLIB@ SED = @SED@ SET_MAKE = @SET_MAKE@ SHELL = @SHELL@ STRIP = @STRIP@ VERSION = @VERSION@ WARN_CFLAGS = @WARN_CFLAGS@ abs_builddir = @abs_builddir@ abs_srcdir = @abs_srcdir@ abs_top_builddir = @abs_top_builddir@ abs_top_srcdir = @abs_top_srcdir@ ac_ct_AR = @ac_ct_AR@ ac_ct_CC = @ac_ct_CC@ ac_ct_DUMPBIN = @ac_ct_DUMPBIN@ am__include = @am__include@ am__leading_dot = @am__leading_dot@ am__quote = @am__quote@ am__tar = @am__tar@ am__untar = @am__untar@ bindir = @bindir@ build = @build@ build_alias = @build_alias@ build_cpu = @build_cpu@ build_os = @build_os@ build_vendor = @build_vendor@ builddir = @builddir@ datadir = @datadir@ datarootdir = @datarootdir@ docdir = @docdir@ dvidir = @dvidir@ exec_prefix = @exec_prefix@ host = @host@ host_alias = @host_alias@ host_cpu = @host_cpu@ host_os = @host_os@ host_vendor = @host_vendor@ htmldir = @htmldir@ includedir = @includedir@ infodir = @infodir@ install_sh = @install_sh@ libdir = @libdir@ libexecdir = @libexecdir@ localedir = @localedir@ localstatedir = @localstatedir@ mandir = @mandir@ mkdir_p = @mkdir_p@ oldincludedir = @oldincludedir@ pdfdir = @pdfdir@ prefix = @prefix@ program_transform_name = @program_transform_name@ psdir = @psdir@ sbindir = @sbindir@ sharedstatedir = @sharedstatedir@ srcdir = @srcdir@ sysconfdir = @sysconfdir@ target_alias = @target_alias@ top_build_prefix = @top_build_prefix@ top_builddir = @top_builddir@ top_srcdir = @top_srcdir@ guilegnomedir = $(datadir)/guile-gnome-@API_VERSION@ guilemoduledir = $(guilegnomedir)/gnome guilegwmoduledir = $(guilegnomedir)/gnome/gw guilegnomelibdir = $(libdir)/guile-gnome-@API_VERSION@ AM_CFLAGS = -I. -I$(srcdir) $(WARN_CFLAGS) $(DEBUG_CFLAGS) # For overriding from the command line (e.g. --debug) GUILE_FLAGS = SUFFIXES = .x .doc GUILE_SNARF_CFLAGS = $(DEFS) $(AM_CFLAGS) $(GUILE_CFLAGS) $(G_WRAP_CFLAGS) PACKAGES = atk cairo corba defs gconf glib gnome-vfs gtk libglade libgnome libgnomecanvas libgnomeui pango SOURCE_GUILE_PATH = $(shell echo $(addprefix $(top_srcdir)/,$(PACKAGES)) | sed -e 's/ /:/g'):$(srcdir) BUILD_GUILE_PATH = $(if $(filter-out $(top_srcdir),$(top_builddir)),$(shell echo -n $(addprefix $(top_builddir)/,$(PACKAGES)): | sed -e 's/ /:/g'),) GUILE_LOAD_PATH := $(BUILD_GUILE_PATH)$(SOURCE_GUILE_PATH):${G_WRAP_MODULE_DIR}:${GUILE_LOAD_PATH} # Real gnu make foo packages = $(filter-out %-uninstalled,$(patsubst %.pc.in,%,$(notdir $(wildcard $(srcdir)/*.pc.in)))) pcifiles = $(patsubst %,%-@API_VERSION@.pc,$(packages)) pcufiles = $(patsubst %,%-@API_VERSION@-uninstalled.pc,$(packages)) SUBDIRS = $(am__append_2) guilemodule_DATA = $(am__append_1) EXTRA_DIST = corba.scm DIST_SUBDIRS = corba gw all: all-recursive .SUFFIXES: .SUFFIXES: .x .doc .c $(srcdir)/Makefile.in: $(srcdir)/Makefile.am $(top_srcdir)/common.mk $(am__configure_deps) @for dep in $?; do \ case '$(am__configure_deps)' in \ *$$dep*) \ ( cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh ) \ && { if test -f $@; then exit 0; else break; fi; }; \ exit 1;; \ esac; \ done; \ echo ' cd $(top_srcdir) && $(AUTOMAKE) --gnu corba/gnome/Makefile'; \ $(am__cd) $(top_srcdir) && \ $(AUTOMAKE) --gnu corba/gnome/Makefile .PRECIOUS: Makefile Makefile: $(srcdir)/Makefile.in $(top_builddir)/config.status @case '$?' in \ *config.status*) \ cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh;; \ *) \ echo ' cd $(top_builddir) && $(SHELL) ./config.status $(subdir)/$@ $(am__depfiles_maybe)'; \ cd $(top_builddir) && $(SHELL) ./config.status $(subdir)/$@ $(am__depfiles_maybe);; \ esac; $(top_srcdir)/common.mk: $(top_builddir)/config.status: $(top_srcdir)/configure $(CONFIG_STATUS_DEPENDENCIES) cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh $(top_srcdir)/configure: $(am__configure_deps) cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh $(ACLOCAL_M4): $(am__aclocal_m4_deps) cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh $(am__aclocal_m4_deps): mostlyclean-libtool: -rm -f *.lo clean-libtool: -rm -rf .libs _libs install-guilemoduleDATA: $(guilemodule_DATA) @$(NORMAL_INSTALL) @list='$(guilemodule_DATA)'; test -n "$(guilemoduledir)" || list=; \ if test -n "$$list"; then \ echo " $(MKDIR_P) '$(DESTDIR)$(guilemoduledir)'"; \ $(MKDIR_P) "$(DESTDIR)$(guilemoduledir)" || exit 1; \ fi; \ for p in $$list; do \ if test -f "$$p"; then d=; else d="$(srcdir)/"; fi; \ echo "$$d$$p"; \ done | $(am__base_list) | \ while read files; do \ echo " $(INSTALL_DATA) $$files '$(DESTDIR)$(guilemoduledir)'"; \ $(INSTALL_DATA) $$files "$(DESTDIR)$(guilemoduledir)" || exit $$?; \ done uninstall-guilemoduleDATA: @$(NORMAL_UNINSTALL) @list='$(guilemodule_DATA)'; test -n "$(guilemoduledir)" || list=; \ files=`for p in $$list; do echo $$p; done | sed -e 's|^.*/||'`; \ dir='$(DESTDIR)$(guilemoduledir)'; $(am__uninstall_files_from_dir) # This directory's subdirectories are mostly independent; you can cd # into them and run `make' without going through this Makefile. # To change the values of `make' variables: instead of editing Makefiles, # (1) if the variable is set in `config.status', edit `config.status' # (which will cause the Makefiles to be regenerated when you run `make'); # (2) otherwise, pass the desired values on the `make' command line. $(RECURSIVE_TARGETS): @fail= failcom='exit 1'; \ for f in x $$MAKEFLAGS; do \ case $$f in \ *=* | --[!k]*);; \ *k*) failcom='fail=yes';; \ esac; \ done; \ dot_seen=no; \ target=`echo $@ | sed s/-recursive//`; \ list='$(SUBDIRS)'; for subdir in $$list; do \ echo "Making $$target in $$subdir"; \ if test "$$subdir" = "."; then \ dot_seen=yes; \ local_target="$$target-am"; \ else \ local_target="$$target"; \ fi; \ ($(am__cd) $$subdir && $(MAKE) $(AM_MAKEFLAGS) $$local_target) \ || eval $$failcom; \ done; \ if test "$$dot_seen" = "no"; then \ $(MAKE) $(AM_MAKEFLAGS) "$$target-am" || exit 1; \ fi; test -z "$$fail" $(RECURSIVE_CLEAN_TARGETS): @fail= failcom='exit 1'; \ for f in x $$MAKEFLAGS; do \ case $$f in \ *=* | --[!k]*);; \ *k*) failcom='fail=yes';; \ esac; \ done; \ dot_seen=no; \ case "$@" in \ distclean-* | maintainer-clean-*) list='$(DIST_SUBDIRS)' ;; \ *) list='$(SUBDIRS)' ;; \ esac; \ rev=''; for subdir in $$list; do \ if test "$$subdir" = "."; then :; else \ rev="$$subdir $$rev"; \ fi; \ done; \ rev="$$rev ."; \ target=`echo $@ | sed s/-recursive//`; \ for subdir in $$rev; do \ echo "Making $$target in $$subdir"; \ if test "$$subdir" = "."; then \ local_target="$$target-am"; \ else \ local_target="$$target"; \ fi; \ ($(am__cd) $$subdir && $(MAKE) $(AM_MAKEFLAGS) $$local_target) \ || eval $$failcom; \ done && test -z "$$fail" tags-recursive: list='$(SUBDIRS)'; for subdir in $$list; do \ test "$$subdir" = . || ($(am__cd) $$subdir && $(MAKE) $(AM_MAKEFLAGS) tags); \ done ctags-recursive: list='$(SUBDIRS)'; for subdir in $$list; do \ test "$$subdir" = . || ($(am__cd) $$subdir && $(MAKE) $(AM_MAKEFLAGS) ctags); \ done ID: $(HEADERS) $(SOURCES) $(LISP) $(TAGS_FILES) list='$(SOURCES) $(HEADERS) $(LISP) $(TAGS_FILES)'; \ unique=`for i in $$list; do \ if test -f "$$i"; then echo $$i; else echo $(srcdir)/$$i; fi; \ done | \ $(AWK) '{ files[$$0] = 1; nonempty = 1; } \ END { if (nonempty) { for (i in files) print i; }; }'`; \ mkid -fID $$unique tags: TAGS TAGS: tags-recursive $(HEADERS) $(SOURCES) $(TAGS_DEPENDENCIES) \ $(TAGS_FILES) $(LISP) set x; \ here=`pwd`; \ if ($(ETAGS) --etags-include --version) >/dev/null 2>&1; then \ include_option=--etags-include; \ empty_fix=.; \ else \ include_option=--include; \ empty_fix=; \ fi; \ list='$(SUBDIRS)'; for subdir in $$list; do \ if test "$$subdir" = .; then :; else \ test ! -f $$subdir/TAGS || \ set "$$@" "$$include_option=$$here/$$subdir/TAGS"; \ fi; \ done; \ list='$(SOURCES) $(HEADERS) $(LISP) $(TAGS_FILES)'; \ unique=`for i in $$list; do \ if test -f "$$i"; then echo $$i; else echo $(srcdir)/$$i; fi; \ done | \ $(AWK) '{ files[$$0] = 1; nonempty = 1; } \ END { if (nonempty) { for (i in files) print i; }; }'`; \ shift; \ if test -z "$(ETAGS_ARGS)$$*$$unique"; then :; else \ test -n "$$unique" || unique=$$empty_fix; \ if test $$# -gt 0; then \ $(ETAGS) $(ETAGSFLAGS) $(AM_ETAGSFLAGS) $(ETAGS_ARGS) \ "$$@" $$unique; \ else \ $(ETAGS) $(ETAGSFLAGS) $(AM_ETAGSFLAGS) $(ETAGS_ARGS) \ $$unique; \ fi; \ fi ctags: CTAGS CTAGS: ctags-recursive $(HEADERS) $(SOURCES) $(TAGS_DEPENDENCIES) \ $(TAGS_FILES) $(LISP) list='$(SOURCES) $(HEADERS) $(LISP) $(TAGS_FILES)'; \ unique=`for i in $$list; do \ if test -f "$$i"; then echo $$i; else echo $(srcdir)/$$i; fi; \ done | \ $(AWK) '{ files[$$0] = 1; nonempty = 1; } \ END { if (nonempty) { for (i in files) print i; }; }'`; \ test -z "$(CTAGS_ARGS)$$unique" \ || $(CTAGS) $(CTAGSFLAGS) $(AM_CTAGSFLAGS) $(CTAGS_ARGS) \ $$unique GTAGS: here=`$(am__cd) $(top_builddir) && pwd` \ && $(am__cd) $(top_srcdir) \ && gtags -i $(GTAGS_ARGS) "$$here" distclean-tags: -rm -f TAGS ID GTAGS GRTAGS GSYMS GPATH tags distdir: $(DISTFILES) @srcdirstrip=`echo "$(srcdir)" | sed 's/[].[^$$\\*]/\\\\&/g'`; \ topsrcdirstrip=`echo "$(top_srcdir)" | sed 's/[].[^$$\\*]/\\\\&/g'`; \ list='$(DISTFILES)'; \ dist_files=`for file in $$list; do echo $$file; done | \ sed -e "s|^$$srcdirstrip/||;t" \ -e "s|^$$topsrcdirstrip/|$(top_builddir)/|;t"`; \ case $$dist_files in \ */*) $(MKDIR_P) `echo "$$dist_files" | \ sed '/\//!d;s|^|$(distdir)/|;s,/[^/]*$$,,' | \ sort -u` ;; \ esac; \ for file in $$dist_files; do \ if test -f $$file || test -d $$file; then d=.; else d=$(srcdir); fi; \ if test -d $$d/$$file; then \ dir=`echo "/$$file" | sed -e 's,/[^/]*$$,,'`; \ if test -d "$(distdir)/$$file"; then \ find "$(distdir)/$$file" -type d ! -perm -700 -exec chmod u+rwx {} \;; \ fi; \ if test -d $(srcdir)/$$file && test $$d != $(srcdir); then \ cp -fpR $(srcdir)/$$file "$(distdir)$$dir" || exit 1; \ find "$(distdir)/$$file" -type d ! -perm -700 -exec chmod u+rwx {} \;; \ fi; \ cp -fpR $$d/$$file "$(distdir)$$dir" || exit 1; \ else \ test -f "$(distdir)/$$file" \ || cp -p $$d/$$file "$(distdir)/$$file" \ || exit 1; \ fi; \ done @list='$(DIST_SUBDIRS)'; for subdir in $$list; do \ if test "$$subdir" = .; then :; else \ $(am__make_dryrun) \ || test -d "$(distdir)/$$subdir" \ || $(MKDIR_P) "$(distdir)/$$subdir" \ || exit 1; \ dir1=$$subdir; dir2="$(distdir)/$$subdir"; \ $(am__relativize); \ new_distdir=$$reldir; \ dir1=$$subdir; dir2="$(top_distdir)"; \ $(am__relativize); \ new_top_distdir=$$reldir; \ echo " (cd $$subdir && $(MAKE) $(AM_MAKEFLAGS) top_distdir="$$new_top_distdir" distdir="$$new_distdir" \\"; \ echo " am__remove_distdir=: am__skip_length_check=: am__skip_mode_fix=: distdir)"; \ ($(am__cd) $$subdir && \ $(MAKE) $(AM_MAKEFLAGS) \ top_distdir="$$new_top_distdir" \ distdir="$$new_distdir" \ am__remove_distdir=: \ am__skip_length_check=: \ am__skip_mode_fix=: \ distdir) \ || exit 1; \ fi; \ done check-am: all-am check: check-recursive all-am: Makefile $(DATA) installdirs: installdirs-recursive installdirs-am: for dir in "$(DESTDIR)$(guilemoduledir)"; do \ test -z "$$dir" || $(MKDIR_P) "$$dir"; \ done install: install-recursive install-exec: install-exec-recursive install-data: install-data-recursive uninstall: uninstall-recursive install-am: all-am @$(MAKE) $(AM_MAKEFLAGS) install-exec-am install-data-am installcheck: installcheck-recursive install-strip: if test -z '$(STRIP)'; then \ $(MAKE) $(AM_MAKEFLAGS) INSTALL_PROGRAM="$(INSTALL_STRIP_PROGRAM)" \ install_sh_PROGRAM="$(INSTALL_STRIP_PROGRAM)" INSTALL_STRIP_FLAG=-s \ install; \ else \ $(MAKE) $(AM_MAKEFLAGS) INSTALL_PROGRAM="$(INSTALL_STRIP_PROGRAM)" \ install_sh_PROGRAM="$(INSTALL_STRIP_PROGRAM)" INSTALL_STRIP_FLAG=-s \ "INSTALL_PROGRAM_ENV=STRIPPROG='$(STRIP)'" install; \ fi mostlyclean-generic: clean-generic: distclean-generic: -test -z "$(CONFIG_CLEAN_FILES)" || rm -f $(CONFIG_CLEAN_FILES) -test . = "$(srcdir)" || test -z "$(CONFIG_CLEAN_VPATH_FILES)" || rm -f $(CONFIG_CLEAN_VPATH_FILES) maintainer-clean-generic: @echo "This command is intended for maintainers to use" @echo "it deletes files that may require special tools to rebuild." clean: clean-recursive clean-am: clean-generic clean-libtool mostlyclean-am distclean: distclean-recursive -rm -f Makefile distclean-am: clean-am distclean-generic distclean-tags dvi: dvi-recursive dvi-am: html: html-recursive html-am: info: info-recursive info-am: install-data-am: install-guilemoduleDATA install-dvi: install-dvi-recursive install-dvi-am: install-exec-am: install-html: install-html-recursive install-html-am: install-info: install-info-recursive install-info-am: install-man: install-pdf: install-pdf-recursive install-pdf-am: install-ps: install-ps-recursive install-ps-am: installcheck-am: maintainer-clean: maintainer-clean-recursive -rm -f Makefile maintainer-clean-am: distclean-am maintainer-clean-generic mostlyclean: mostlyclean-recursive mostlyclean-am: mostlyclean-generic mostlyclean-libtool pdf: pdf-recursive pdf-am: ps: ps-recursive ps-am: uninstall-am: uninstall-guilemoduleDATA .MAKE: $(RECURSIVE_CLEAN_TARGETS) $(RECURSIVE_TARGETS) ctags-recursive \ install-am install-strip tags-recursive .PHONY: $(RECURSIVE_CLEAN_TARGETS) $(RECURSIVE_TARGETS) CTAGS GTAGS \ all all-am check check-am clean clean-generic clean-libtool \ ctags ctags-recursive distclean distclean-generic \ distclean-libtool distclean-tags distdir dvi dvi-am html \ html-am info info-am install install-am install-data \ install-data-am install-dvi install-dvi-am install-exec \ install-exec-am install-guilemoduleDATA install-html \ install-html-am install-info install-info-am install-man \ install-pdf install-pdf-am install-ps install-ps-am \ install-strip installcheck installcheck-am installdirs \ installdirs-am maintainer-clean maintainer-clean-generic \ mostlyclean mostlyclean-generic mostlyclean-libtool pdf pdf-am \ ps ps-am tags tags-recursive uninstall uninstall-am \ uninstall-guilemoduleDATA export GUILE_LOAD_PATH .c.x: guile-snarf $(GUILE_SNARF_CFLAGS) $< > $@ \ || { rm $@; false; } .c.doc: $(CPP) -DSCM_MAGIC_SNARF_DOCS $(GUILE_SNARF_CFLAGS) $< \ | grep -E '(\^\^ {|\^\^ })' > $@ || { rm $@; false; } %.scm guile-gnome-gw-%.c: %-spec.scm guile $(GUILE_FLAGS) -c \ "(debug-set! stack 400000) \ (use-modules (gnome-@API_VERSION@)) \ (use-modules (g-wrap)) \ (use-modules (gnome gw $*-spec)) \ (generate-wrapset 'guile 'gnome-$* \"guile-gnome-gw-$*\")" mv guile-gnome-gw-$*.scm $*.scm %-@API_VERSION@.pc: %.pc cp $< $@ %-@API_VERSION@-uninstalled.pc: %-uninstalled.pc cp $< $@ # Tell versions [3.59,3.63) of GNU make to not export all variables. # Otherwise a system limit (for SysV at least) may be exceeded. .NOEXPORT: guile-gnome-platform-2.16.2/corba/gnome/corba.scm0000644000175000017500000003317511671225671022172 0ustar00wingowingo00000000000000;; guile-gnome ;; Copyright (C) 2001 Martin Baulig ;; 2003,2004,2011 Andy Wingo ;; This program is free software; you can redistribute it and/or ;; modify it under the terms of the GNU General Public License as ;; published by the Free Software Foundation; either version 2 of ;; the License, or (at your option) any later version. ;; ;; This program is distributed in the hope that it will be useful, ;; but WITHOUT ANY WARRANTY; without even the implied warranty of ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the ;; GNU General Public License for more details. ;; ;; You should have received a copy of the GNU General Public License ;; along with this program; if not, contact: ;; ;; Free Software Foundation Voice: +1-617-542-5942 ;; 59 Temple Place - Suite 330 Fax: +1-617-542-2652 ;; Boston, MA 02111-1307, USA gnu@gnu.org ;;; Commentary: ;; ;; A CORBA wrapper for Guile. ;; ;; @section Opening CORBA modules ;; ;; @code{(gnome corba)} allows full integration between Scheme and ;; remote CORBA objects. However, the problem is how to get type ;; information about these remote objects -- it's not very useful to ;; have an opaque @code{} in Scheme. It's also not very ;; useful if you can't write your own CORBA servants in Scheme. ;; ;; Basically, there are two ways to solve this problem. You can parse ;; the type's interface description language (IDL) at runtime, or you ;; can get the necessary information from some other source. ;; @code{(gnome corba)} does the latter, via so-called "imodules". ;; ;; Imodules are a feature of ORBit2, the ORB used in GNOME. ORBit2 is a ;; CORBA 2.4-compliant Object Request Broker (ORB), which is of course ;; interoperable with other ORB implementations. An imodule is a shared ;; library, installed as @code{$(libdir)/_imodule.la}. To ;; create such a library for your own IDL, you need to run ORBit2's IDL ;; compiler, @code{orbit-idl}, with the @option{--imodule} argument. See ;; the @code{demos/corba/} directory in this distribution for an ;; example. ;; ;; As an example, the rest of this section will refer to the sample IDL ;; which can be found in @code{demos/corba/Foo.idl} in this ;; distribution. ;; ;; Once you have installed the @code{Foo} CORBA library (including its ;; imodule), you can load its type information into Scheme by calling: ;; ;; @example ;; (corba-primitive-open-module "Foo") ;; @end example ;; ;; As a side effect, this call will define all of the GOOPS classes and ;; methods associated with the @code{Foo} module. ;; ;; If there is a CORBA interface @code{Foo::Hello}, ;; @code{corba-primitive-open-module} will create a GOOPS class ;; @code{} which serves as stub class and another GOOPS class ;; @code{} which serves as skeleton class. ;; ;; All stub classes are derived from @code{} and their ;; CORBA class hierarchy is preserved in Scheme. ;; ;; All skeleton classes are derived from ;; @code{} and their CORBA class hierarchy ;; is preserved as well. ;; ;; @section Calling CORBA Methods ;; ;; To call a CORBA method, all you need to do is to invoke the ;; corresponding method in the stub class. Let's assume @code{hello} is ;; an instance of the @code{} class. We may invoke the ;; @code{Foo::Hello::doHello} method directly, in a most Schemely ;; fashion: ;; ;; @example ;; (Foo:Hello:doHello hello) ;; @end example ;; ;; So to call CORBA methods, you don't even need to know that it's ;; CORBA. ;; ;; If a CORBA exception is signalled, a Scheme error will be thrown to ;; the key @code{corba-system-exception} or @code{corba-user-exception}, ;; as appropriate. ;; ;; @section Implementing CORBA servants ;; ;; The interesting part is to implement CORBA servants in Scheme. Let's ;; assume you want to write a servant for the @code{Foo::Hello} ;; interface. ;; ;; The first thing you need to do is to derive its POA class ;; ;; @example ;; (define-class ()) ;; @end example ;; ;; Then, you define methods: ;; ;; @example ;; (define-method (Foo:Hello:doHello (hello )) ;; (display (list "Hello World!" hello)) (newline)) ;; @end example ;; ;; If you call @code{(next-method)}, the POA class' method will be run, ;; which by default will throw a @code{CORBA::NO_IMPLEMENT} system ;; exception. ;; ;; However, you can override this: ;; ;; @example ;; (define-method (Foo:Bar:Baz:haveFun (object ) a b) ;; (display (list "Default Foo:Bar:Baz:haveFun handler!" a b)) ;; (newline)) ;; @end example ;; ;; If you created all the methods, you can create servants and call ;; @code{corba-servant->reference} to get a @code{CORBA::Object} ;; reference: ;; ;; @example ;; (define servant (make )) ;; (define hello (corba-servant->reference servant)) ;; @end example ;; ;; Now you have a CORBA Object @code{hello}, and can invoke methods on ;; it: ;; ;; @example ;; (Foo:Hello:doHello hello) ;; @end example ;; ;; Although this looks like a normal Scheme procedural application, this ;; is a "real" CORBA call: @code{hello} is a "normal" CORBA Object. ;; ;; Note of course that any CORBA Objects which you create in Guile are ;; "owned" by Guile's garbage collector, so make sure to ;; @code{CORBA_Object_duplicate()} in a C function before you store it ;; somewhere. ;; ;; @section Multiple inheritance ;; ;; Like in C, you can also create servants for CORBA interfaces which are ;; derived from other interfaces: ;; ;; @example ;; (define-class ( )) ;; (define-method (Foo:Hello:doHello (hello )) ;; (display (list "Hello Maximum World!" hello)) ;; (newline) ;; (next-method)) ;; ;; (define maximum-servant (make )) ;; (define maximum (corba-servant->reference maximum-servant)) ;; @end example ;; ;; This creates a new servant for the CORBA interface ;; @code{Foo::MaximumHello} which is derived from @code{Foo::Hello} and ;; @code{Foo::Bar::Baz}. This inheritance is reflected in Scheme. ;; ;; @example ;; ;; Calls method `Foo:Hello:doHello' in class and then ;; ;; in because of the (next-method). ;; (Foo:Hello:doHello maximum) ;; ;; ;; Calls method `Foo:Bar:Baz:haveFun' in class , ;; ;; the default handler. ;; (Foo:Bar:Baz:haveFun maximum 1 2) ;; @end example ;; ;; Since we're using real CORBA calls, all of this also works for calls ;; which are coming "from the outside", i.e. from C or from a remote ;; process. ;; ;; @section An important limitation ;; ;; CORBA servants can be implemented either in C or in Scheme, but you ;; cannot mix them. ;; ;; For example, in the example above, you learned how to create a CORBA ;; servant for the @code{Foo::MaximumHello} CORBA interface in Scheme. ;; Now let's assume you already have an implementation for the ;; @code{Foo::Hello} interface in C. ;; ;; Even if @code{Foo::MaximumHello} is derived from @code{Foo::Hello}, ;; you cannot use the @code{Foo::Hello} C implementation in Scheme. ;; ;; This limitation may sound obvious, but it's not so obvious at all if ;; you're a bit familiar with CORBA. In C, you would normally expect to ;; have a @code{vepv} and a @code{epv} vector in a CORBA servant, and to be ;; able to poke around in the vepv to override methods. ;; ;; As an ORBit2 specific implementation detail, servants which you ;; create from Scheme don't have a @code{vepv} at all and the @code{epv} ;; is not what you'd expect -- the @code{epv} entries are Scheme vectors ;; and not pointers to C functions. ;; ;; @section CORBA structs / sequences ;; ;; There is also support to access CORBA structs / sequences from ;; Scheme, including a special record type for structs. See the source ;; code for details. ;; ;;; Code: (define-module (gnome corba) :use-module (gnome gw corba) :use-module (gnome corba types) :use-module (gnome corba primitives) :use-module (gnome gobject) :use-module (oop goops)) (re-export gnome-corba-error) (%init-gnome-corba) (or (corba-primitive-open-module "Bonobo") (gnome-corba-error "Can't open `Bonobo' module")) ;;; {Records} ;;; ;; 0: type-name, 1: fields (define corba-record-type-vtable (make-vtable-vtable "prpr" 0 (lambda (s p) (cond ((eq? s corba-record-type-vtable) (display "#" p)) (else (display "#" p)))))) (define (make-corba-record-type typecode . opt) (let ((printer-fn (and (pair? opt) (car opt)))) (let* ((corba-fields (corba-struct-fields typecode)) (type-name (corba-typecode-primitive->name typecode)) (struct (make-struct corba-record-type-vtable 0 (make-struct-layout (apply string-append (map (lambda (f) "pw") corba-fields))) (or printer-fn (lambda (s p) (display "#<" p) (display type-name p) (let loop ((fields corba-fields) (off 0)) (cond ((not (null? fields)) (display " " p) (display (car fields) p) (display ": (" p) (display (corba-struct-ref s off) p) (display ")" p) (loop (cdr fields) (+ 1 off))))) (display ">" p))) typecode (copy-tree corba-fields)))) ;; Temporary solution: Associate a name to the corba-record type descriptor ;; so that the object system can create a wrapper class for it. (set-struct-vtable-name! struct type-name) struct))) (define the-corba-environment (current-module)) (define (corba-record-type? obj) (and (struct? obj) (eq? corba-record-type-vtable (struct-vtable obj)))) (define (corba-record-typecode obj) (if (corba-record-type? obj) (struct-ref obj vtable-offset-user) (error 'not-a-corba-record-type obj))) (define (corba-record-type-fields obj) (if (corba-record-type? obj) (struct-ref obj (+ 1 vtable-offset-user)) (error 'not-a-corba-record-type obj))) (define (corba-record-constructor rtd . opt) (let ((field-names (if (pair? opt) (car opt) (corba-record-type-fields rtd)))) (eval `(lambda ,field-names (let ((struct (make-corba-struct (corba-record-typecode ',rtd) 1))) (struct-set! struct %corba-struct-vtable-offset-printer (struct-ref ',rtd %corba-struct-vtable-offset-printer)) (struct-set! struct (+ 1 %corba-struct-vtable-offset-user) ',rtd) (let loop ((fields (list ,@(map (lambda (f) (if (memq f field-names) f #f)) (corba-record-type-fields `,rtd)))) (off 0)) (cond ((not (null? fields)) (corba-struct-set! struct off (car fields)) (loop (cdr fields) (+ 1 off))))) struct)) the-corba-environment))) (define (corba-record-constructor-from-struct rtd) (let ((field-names (corba-record-type-fields rtd))) (eval `(lambda (corba-struct) (let ((struct (make-corba-struct (corba-record-typecode ',rtd) 1 corba-struct))) (struct-set! struct %corba-struct-vtable-offset-printer (struct-ref ',rtd %corba-struct-vtable-offset-printer)) (struct-set! struct (+ 1 %corba-struct-vtable-offset-user) ',rtd) struct)) the-corba-environment))) (define (corba-record-predicate rtd) (lambda (obj) (and (corba-struct? obj) (eq? rtd (corba-record-type-descriptor obj))))) (define (corba-record-accessor rtd field-name) (let* ((pos (list-index (corba-record-type-fields rtd) field-name))) (if (not pos) (error 'no-such-field field-name)) (eval `(lambda (obj) (and (eq? ',rtd (corba-record-type-descriptor obj)) (corba-struct-ref obj ,pos))) the-corba-environment))) (define (corba-record-modifier rtd field-name) (let* ((pos (list-index (corba-record-type-fields rtd) field-name))) (if (not pos) (error 'no-such-field field-name)) (eval `(lambda (obj val) (and (eq? ',rtd (corba-record-type-descriptor obj)) (corba-struct-set! obj ,pos val))) the-corba-environment))) (define (corba-record? obj) (and (corba-struct? obj) (corba-record-type? (corba-record-type-descriptor obj)))) (define (corba-record-type-descriptor obj) (if (corba-struct? obj) (struct-ref obj (+ 1 %corba-struct-vtable-offset-user)) (error 'not-a-corba-record obj))) (define (corba-struct->record struct) (let* ((typecode (corba-struct-type struct)) (record-type (make-corba-record-type typecode)) (constructor (corba-record-constructor-from-struct record-type))) (constructor struct))) (define (corba-sequence->list sequence) (let* ((length (corba-sequence-length sequence)) (thelist (list))) (do ((i 0 (+ i 1))) ((>= i length) thelist) (let ((this (corba-sequence-ref sequence i))) (and (corba-struct? this) (set! this (corba-struct->record this))) (set! thelist (append! thelist (list this))))))) (provide 'corba-record) (export corba-record-type-vtable corba-record-type? make-corba-record-type corba-record-typecode corba-record-type-fields corba-record-constructor corba-record-predicate corba-record-accessor corba-record-modifier corba-record? corba-record-type-descriptor corba-record-constructor-from-struct corba-struct->record corba-sequence->list) guile-gnome-platform-2.16.2/corba/Makefile.am0000644000175000017500000000012011752516527021312 0ustar00wingowingo00000000000000SUBDIRS = gnome demos doc tests EXTRA_DIST = ChangeLog.pre-2.16 README AUTHORS guile-gnome-platform-2.16.2/corba/Makefile.in0000644000175000017500000004535411752516565021347 0ustar00wingowingo00000000000000# Makefile.in generated by automake 1.11.5 from Makefile.am. # @configure_input@ # Copyright (C) 1994, 1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, # 2003, 2004, 2005, 2006, 2007, 2008, 2009, 2010, 2011 Free Software # Foundation, Inc. # This Makefile.in is free software; the Free Software Foundation # gives unlimited permission to copy and/or distribute it, # with or without modifications, as long as this notice is preserved. # This program is distributed in the hope that it will be useful, # but WITHOUT ANY WARRANTY, to the extent permitted by law; without # even the implied warranty of MERCHANTABILITY or FITNESS FOR A # PARTICULAR PURPOSE. @SET_MAKE@ VPATH = @srcdir@ am__make_dryrun = \ { \ am__dry=no; \ case $$MAKEFLAGS in \ *\\[\ \ ]*) \ echo 'am--echo: ; @echo "AM" OK' | $(MAKE) -f - 2>/dev/null \ | grep '^AM OK$$' >/dev/null || am__dry=yes;; \ *) \ for am__flg in $$MAKEFLAGS; do \ case $$am__flg in \ *=*|--*) ;; \ *n*) am__dry=yes; break;; \ esac; \ done;; \ esac; \ test $$am__dry = yes; \ } pkgdatadir = $(datadir)/@PACKAGE@ pkgincludedir = $(includedir)/@PACKAGE@ pkglibdir = $(libdir)/@PACKAGE@ pkglibexecdir = $(libexecdir)/@PACKAGE@ am__cd = CDPATH="$${ZSH_VERSION+.}$(PATH_SEPARATOR)" && cd install_sh_DATA = $(install_sh) -c -m 644 install_sh_PROGRAM = $(install_sh) -c install_sh_SCRIPT = $(install_sh) -c INSTALL_HEADER = $(INSTALL_DATA) transform = $(program_transform_name) NORMAL_INSTALL = : PRE_INSTALL = : POST_INSTALL = : NORMAL_UNINSTALL = : PRE_UNINSTALL = : POST_UNINSTALL = : build_triplet = @build@ host_triplet = @host@ subdir = corba DIST_COMMON = README $(srcdir)/Makefile.am $(srcdir)/Makefile.in \ AUTHORS ChangeLog ACLOCAL_M4 = $(top_srcdir)/aclocal.m4 am__aclocal_m4_deps = $(top_srcdir)/configure.ac am__configure_deps = $(am__aclocal_m4_deps) $(CONFIGURE_DEPENDENCIES) \ $(ACLOCAL_M4) mkinstalldirs = $(install_sh) -d CONFIG_HEADER = $(top_builddir)/config.h CONFIG_CLEAN_FILES = CONFIG_CLEAN_VPATH_FILES = SOURCES = DIST_SOURCES = RECURSIVE_TARGETS = all-recursive check-recursive dvi-recursive \ html-recursive info-recursive install-data-recursive \ install-dvi-recursive install-exec-recursive \ install-html-recursive install-info-recursive \ install-pdf-recursive install-ps-recursive install-recursive \ installcheck-recursive installdirs-recursive pdf-recursive \ ps-recursive uninstall-recursive am__can_run_installinfo = \ case $$AM_UPDATE_INFO_DIR in \ n|no|NO) false;; \ *) (install-info --version) >/dev/null 2>&1;; \ esac RECURSIVE_CLEAN_TARGETS = mostlyclean-recursive clean-recursive \ distclean-recursive maintainer-clean-recursive AM_RECURSIVE_TARGETS = $(RECURSIVE_TARGETS:-recursive=) \ $(RECURSIVE_CLEAN_TARGETS:-recursive=) tags TAGS ctags CTAGS \ distdir ETAGS = etags CTAGS = ctags DIST_SUBDIRS = $(SUBDIRS) DISTFILES = $(DIST_COMMON) $(DIST_SOURCES) $(TEXINFOS) $(EXTRA_DIST) am__relativize = \ dir0=`pwd`; \ sed_first='s,^\([^/]*\)/.*$$,\1,'; \ sed_rest='s,^[^/]*/*,,'; \ sed_last='s,^.*/\([^/]*\)$$,\1,'; \ sed_butlast='s,/*[^/]*$$,,'; \ while test -n "$$dir1"; do \ first=`echo "$$dir1" | sed -e "$$sed_first"`; \ if test "$$first" != "."; then \ if test "$$first" = ".."; then \ dir2=`echo "$$dir0" | sed -e "$$sed_last"`/"$$dir2"; \ dir0=`echo "$$dir0" | sed -e "$$sed_butlast"`; \ else \ first2=`echo "$$dir2" | sed -e "$$sed_first"`; \ if test "$$first2" = "$$first"; then \ dir2=`echo "$$dir2" | sed -e "$$sed_rest"`; \ else \ dir2="../$$dir2"; \ fi; \ dir0="$$dir0"/"$$first"; \ fi; \ fi; \ dir1=`echo "$$dir1" | sed -e "$$sed_rest"`; \ done; \ reldir="$$dir2" ACLOCAL = @ACLOCAL@ AG_PKG_CONFIG_PATH = @AG_PKG_CONFIG_PATH@ AMTAR = @AMTAR@ API_VERSION = @API_VERSION@ AR = @AR@ ATK_CFLAGS = @ATK_CFLAGS@ ATK_LIBS = @ATK_LIBS@ AUTOCONF = @AUTOCONF@ AUTOHEADER = @AUTOHEADER@ AUTOMAKE = @AUTOMAKE@ AWK = @AWK@ BONOBO_IDL_DIR = @BONOBO_IDL_DIR@ CANVAS_CFLAGS = @CANVAS_CFLAGS@ CANVAS_LIBS = @CANVAS_LIBS@ CC = @CC@ CCDEPMODE = @CCDEPMODE@ CFLAGS = @CFLAGS@ CORBA_CFLAGS = @CORBA_CFLAGS@ CORBA_LIBS = @CORBA_LIBS@ CPP = @CPP@ CPPFLAGS = @CPPFLAGS@ CYGPATH_W = @CYGPATH_W@ DEFS = @DEFS@ DEPDIR = @DEPDIR@ DLLTOOL = @DLLTOOL@ DSYMUTIL = @DSYMUTIL@ DUMPBIN = @DUMPBIN@ ECHO_C = @ECHO_C@ ECHO_N = @ECHO_N@ ECHO_T = @ECHO_T@ EGREP = @EGREP@ EXEEXT = @EXEEXT@ FGREP = @FGREP@ GCONF_CFLAGS = @GCONF_CFLAGS@ GCONF_LIBS = @GCONF_LIBS@ GDK_CFLAGS = @GDK_CFLAGS@ GDK_LIBS = @GDK_LIBS@ GDK_PIXBUF_CFLAGS = @GDK_PIXBUF_CFLAGS@ GDK_PIXBUF_LIBS = @GDK_PIXBUF_LIBS@ GLIB_CFLAGS = @GLIB_CFLAGS@ GLIB_LIBS = @GLIB_LIBS@ GNOMEUI_DEPRECATION_FLAGS = @GNOMEUI_DEPRECATION_FLAGS@ GNOME_VFS_CFLAGS = @GNOME_VFS_CFLAGS@ GNOME_VFS_DEPRECATED_CFLAGS = @GNOME_VFS_DEPRECATED_CFLAGS@ GNOME_VFS_LIBS = @GNOME_VFS_LIBS@ GOBJECT_CFLAGS = @GOBJECT_CFLAGS@ GOBJECT_LIBS = @GOBJECT_LIBS@ GREP = @GREP@ GTHREAD_CFLAGS = @GTHREAD_CFLAGS@ GTHREAD_LIBS = @GTHREAD_LIBS@ GTK_CFLAGS = @GTK_CFLAGS@ GTK_DEPRECATED_CFLAGS = @GTK_DEPRECATED_CFLAGS@ GTK_LIBS = @GTK_LIBS@ GUILE_CAIRO_CFLAGS = @GUILE_CAIRO_CFLAGS@ GUILE_CAIRO_LIBS = @GUILE_CAIRO_LIBS@ GUILE_CFLAGS = @GUILE_CFLAGS@ GUILE_EFFECTIVE_VERSION = @GUILE_EFFECTIVE_VERSION@ GUILE_GLIB_CFLAGS = @GUILE_GLIB_CFLAGS@ GUILE_GLIB_LIBS = @GUILE_GLIB_LIBS@ GUILE_LIBS = @GUILE_LIBS@ G_WRAP_CFLAGS = @G_WRAP_CFLAGS@ G_WRAP_LIBS = @G_WRAP_LIBS@ G_WRAP_LIB_DIR = @G_WRAP_LIB_DIR@ G_WRAP_MODULE_DIR = @G_WRAP_MODULE_DIR@ INSTALL = @INSTALL@ INSTALL_DATA = @INSTALL_DATA@ INSTALL_PROGRAM = @INSTALL_PROGRAM@ INSTALL_SCRIPT = @INSTALL_SCRIPT@ INSTALL_STRIP_PROGRAM = @INSTALL_STRIP_PROGRAM@ LD = @LD@ LDFLAGS = @LDFLAGS@ LIBGLADE_CFLAGS = @LIBGLADE_CFLAGS@ LIBGLADE_LIBS = @LIBGLADE_LIBS@ LIBGNOMEUI_CFLAGS = @LIBGNOMEUI_CFLAGS@ LIBGNOMEUI_LIBS = @LIBGNOMEUI_LIBS@ LIBGNOME_CFLAGS = @LIBGNOME_CFLAGS@ LIBGNOME_LIBS = @LIBGNOME_LIBS@ LIBOBJS = @LIBOBJS@ LIBS = @LIBS@ LIBTOOL = @LIBTOOL@ LIPO = @LIPO@ LN_S = @LN_S@ LTLIBOBJS = @LTLIBOBJS@ MAKEINFO = @MAKEINFO@ MANIFEST_TOOL = @MANIFEST_TOOL@ MKDIR_P = @MKDIR_P@ NM = @NM@ NMEDIT = @NMEDIT@ OBJDUMP = @OBJDUMP@ OBJEXT = @OBJEXT@ ORBIT_IDL = @ORBIT_IDL@ OTOOL = @OTOOL@ OTOOL64 = @OTOOL64@ PACKAGE = @PACKAGE@ PACKAGE_BUGREPORT = @PACKAGE_BUGREPORT@ PACKAGE_NAME = @PACKAGE_NAME@ PACKAGE_STRING = @PACKAGE_STRING@ PACKAGE_TARNAME = @PACKAGE_TARNAME@ PACKAGE_URL = @PACKAGE_URL@ PACKAGE_VERSION = @PACKAGE_VERSION@ PANGOCAIRO_CFLAGS = @PANGOCAIRO_CFLAGS@ PANGOCAIRO_LIBS = @PANGOCAIRO_LIBS@ PANGO_CFLAGS = @PANGO_CFLAGS@ PANGO_LIBS = @PANGO_LIBS@ PATH_SEPARATOR = @PATH_SEPARATOR@ PKG_CONFIG = @PKG_CONFIG@ PKG_CONFIG_LIBDIR = @PKG_CONFIG_LIBDIR@ PKG_CONFIG_PATH = @PKG_CONFIG_PATH@ RANLIB = @RANLIB@ SED = @SED@ SET_MAKE = @SET_MAKE@ SHELL = @SHELL@ STRIP = @STRIP@ VERSION = @VERSION@ WARN_CFLAGS = @WARN_CFLAGS@ abs_builddir = @abs_builddir@ abs_srcdir = @abs_srcdir@ abs_top_builddir = @abs_top_builddir@ abs_top_srcdir = @abs_top_srcdir@ ac_ct_AR = @ac_ct_AR@ ac_ct_CC = @ac_ct_CC@ ac_ct_DUMPBIN = @ac_ct_DUMPBIN@ am__include = @am__include@ am__leading_dot = @am__leading_dot@ am__quote = @am__quote@ am__tar = @am__tar@ am__untar = @am__untar@ bindir = @bindir@ build = @build@ build_alias = @build_alias@ build_cpu = @build_cpu@ build_os = @build_os@ build_vendor = @build_vendor@ builddir = @builddir@ datadir = @datadir@ datarootdir = @datarootdir@ docdir = @docdir@ dvidir = @dvidir@ exec_prefix = @exec_prefix@ host = @host@ host_alias = @host_alias@ host_cpu = @host_cpu@ host_os = @host_os@ host_vendor = @host_vendor@ htmldir = @htmldir@ includedir = @includedir@ infodir = @infodir@ install_sh = @install_sh@ libdir = @libdir@ libexecdir = @libexecdir@ localedir = @localedir@ localstatedir = @localstatedir@ mandir = @mandir@ mkdir_p = @mkdir_p@ oldincludedir = @oldincludedir@ pdfdir = @pdfdir@ prefix = @prefix@ program_transform_name = @program_transform_name@ psdir = @psdir@ sbindir = @sbindir@ sharedstatedir = @sharedstatedir@ srcdir = @srcdir@ sysconfdir = @sysconfdir@ target_alias = @target_alias@ top_build_prefix = @top_build_prefix@ top_builddir = @top_builddir@ top_srcdir = @top_srcdir@ SUBDIRS = gnome demos doc tests EXTRA_DIST = ChangeLog.pre-2.16 README AUTHORS all: all-recursive .SUFFIXES: $(srcdir)/Makefile.in: $(srcdir)/Makefile.am $(am__configure_deps) @for dep in $?; do \ case '$(am__configure_deps)' in \ *$$dep*) \ ( cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh ) \ && { if test -f $@; then exit 0; else break; fi; }; \ exit 1;; \ esac; \ done; \ echo ' cd $(top_srcdir) && $(AUTOMAKE) --gnu corba/Makefile'; \ $(am__cd) $(top_srcdir) && \ $(AUTOMAKE) --gnu corba/Makefile .PRECIOUS: Makefile Makefile: $(srcdir)/Makefile.in $(top_builddir)/config.status @case '$?' in \ *config.status*) \ cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh;; \ *) \ echo ' cd $(top_builddir) && $(SHELL) ./config.status $(subdir)/$@ $(am__depfiles_maybe)'; \ cd $(top_builddir) && $(SHELL) ./config.status $(subdir)/$@ $(am__depfiles_maybe);; \ esac; $(top_builddir)/config.status: $(top_srcdir)/configure $(CONFIG_STATUS_DEPENDENCIES) cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh $(top_srcdir)/configure: $(am__configure_deps) cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh $(ACLOCAL_M4): $(am__aclocal_m4_deps) cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh $(am__aclocal_m4_deps): mostlyclean-libtool: -rm -f *.lo clean-libtool: -rm -rf .libs _libs # This directory's subdirectories are mostly independent; you can cd # into them and run `make' without going through this Makefile. # To change the values of `make' variables: instead of editing Makefiles, # (1) if the variable is set in `config.status', edit `config.status' # (which will cause the Makefiles to be regenerated when you run `make'); # (2) otherwise, pass the desired values on the `make' command line. $(RECURSIVE_TARGETS): @fail= failcom='exit 1'; \ for f in x $$MAKEFLAGS; do \ case $$f in \ *=* | --[!k]*);; \ *k*) failcom='fail=yes';; \ esac; \ done; \ dot_seen=no; \ target=`echo $@ | sed s/-recursive//`; \ list='$(SUBDIRS)'; for subdir in $$list; do \ echo "Making $$target in $$subdir"; \ if test "$$subdir" = "."; then \ dot_seen=yes; \ local_target="$$target-am"; \ else \ local_target="$$target"; \ fi; \ ($(am__cd) $$subdir && $(MAKE) $(AM_MAKEFLAGS) $$local_target) \ || eval $$failcom; \ done; \ if test "$$dot_seen" = "no"; then \ $(MAKE) $(AM_MAKEFLAGS) "$$target-am" || exit 1; \ fi; test -z "$$fail" $(RECURSIVE_CLEAN_TARGETS): @fail= failcom='exit 1'; \ for f in x $$MAKEFLAGS; do \ case $$f in \ *=* | --[!k]*);; \ *k*) failcom='fail=yes';; \ esac; \ done; \ dot_seen=no; \ case "$@" in \ distclean-* | maintainer-clean-*) list='$(DIST_SUBDIRS)' ;; \ *) list='$(SUBDIRS)' ;; \ esac; \ rev=''; for subdir in $$list; do \ if test "$$subdir" = "."; then :; else \ rev="$$subdir $$rev"; \ fi; \ done; \ rev="$$rev ."; \ target=`echo $@ | sed s/-recursive//`; \ for subdir in $$rev; do \ echo "Making $$target in $$subdir"; \ if test "$$subdir" = "."; then \ local_target="$$target-am"; \ else \ local_target="$$target"; \ fi; \ ($(am__cd) $$subdir && $(MAKE) $(AM_MAKEFLAGS) $$local_target) \ || eval $$failcom; \ done && test -z "$$fail" tags-recursive: list='$(SUBDIRS)'; for subdir in $$list; do \ test "$$subdir" = . || ($(am__cd) $$subdir && $(MAKE) $(AM_MAKEFLAGS) tags); \ done ctags-recursive: list='$(SUBDIRS)'; for subdir in $$list; do \ test "$$subdir" = . || ($(am__cd) $$subdir && $(MAKE) $(AM_MAKEFLAGS) ctags); \ done ID: $(HEADERS) $(SOURCES) $(LISP) $(TAGS_FILES) list='$(SOURCES) $(HEADERS) $(LISP) $(TAGS_FILES)'; \ unique=`for i in $$list; do \ if test -f "$$i"; then echo $$i; else echo $(srcdir)/$$i; fi; \ done | \ $(AWK) '{ files[$$0] = 1; nonempty = 1; } \ END { if (nonempty) { for (i in files) print i; }; }'`; \ mkid -fID $$unique tags: TAGS TAGS: tags-recursive $(HEADERS) $(SOURCES) $(TAGS_DEPENDENCIES) \ $(TAGS_FILES) $(LISP) set x; \ here=`pwd`; \ if ($(ETAGS) --etags-include --version) >/dev/null 2>&1; then \ include_option=--etags-include; \ empty_fix=.; \ else \ include_option=--include; \ empty_fix=; \ fi; \ list='$(SUBDIRS)'; for subdir in $$list; do \ if test "$$subdir" = .; then :; else \ test ! -f $$subdir/TAGS || \ set "$$@" "$$include_option=$$here/$$subdir/TAGS"; \ fi; \ done; \ list='$(SOURCES) $(HEADERS) $(LISP) $(TAGS_FILES)'; \ unique=`for i in $$list; do \ if test -f "$$i"; then echo $$i; else echo $(srcdir)/$$i; fi; \ done | \ $(AWK) '{ files[$$0] = 1; nonempty = 1; } \ END { if (nonempty) { for (i in files) print i; }; }'`; \ shift; \ if test -z "$(ETAGS_ARGS)$$*$$unique"; then :; else \ test -n "$$unique" || unique=$$empty_fix; \ if test $$# -gt 0; then \ $(ETAGS) $(ETAGSFLAGS) $(AM_ETAGSFLAGS) $(ETAGS_ARGS) \ "$$@" $$unique; \ else \ $(ETAGS) $(ETAGSFLAGS) $(AM_ETAGSFLAGS) $(ETAGS_ARGS) \ $$unique; \ fi; \ fi ctags: CTAGS CTAGS: ctags-recursive $(HEADERS) $(SOURCES) $(TAGS_DEPENDENCIES) \ $(TAGS_FILES) $(LISP) list='$(SOURCES) $(HEADERS) $(LISP) $(TAGS_FILES)'; \ unique=`for i in $$list; do \ if test -f "$$i"; then echo $$i; else echo $(srcdir)/$$i; fi; \ done | \ $(AWK) '{ files[$$0] = 1; nonempty = 1; } \ END { if (nonempty) { for (i in files) print i; }; }'`; \ test -z "$(CTAGS_ARGS)$$unique" \ || $(CTAGS) $(CTAGSFLAGS) $(AM_CTAGSFLAGS) $(CTAGS_ARGS) \ $$unique GTAGS: here=`$(am__cd) $(top_builddir) && pwd` \ && $(am__cd) $(top_srcdir) \ && gtags -i $(GTAGS_ARGS) "$$here" distclean-tags: -rm -f TAGS ID GTAGS GRTAGS GSYMS GPATH tags distdir: $(DISTFILES) @srcdirstrip=`echo "$(srcdir)" | sed 's/[].[^$$\\*]/\\\\&/g'`; \ topsrcdirstrip=`echo "$(top_srcdir)" | sed 's/[].[^$$\\*]/\\\\&/g'`; \ list='$(DISTFILES)'; \ dist_files=`for file in $$list; do echo $$file; done | \ sed -e "s|^$$srcdirstrip/||;t" \ -e "s|^$$topsrcdirstrip/|$(top_builddir)/|;t"`; \ case $$dist_files in \ */*) $(MKDIR_P) `echo "$$dist_files" | \ sed '/\//!d;s|^|$(distdir)/|;s,/[^/]*$$,,' | \ sort -u` ;; \ esac; \ for file in $$dist_files; do \ if test -f $$file || test -d $$file; then d=.; else d=$(srcdir); fi; \ if test -d $$d/$$file; then \ dir=`echo "/$$file" | sed -e 's,/[^/]*$$,,'`; \ if test -d "$(distdir)/$$file"; then \ find "$(distdir)/$$file" -type d ! -perm -700 -exec chmod u+rwx {} \;; \ fi; \ if test -d $(srcdir)/$$file && test $$d != $(srcdir); then \ cp -fpR $(srcdir)/$$file "$(distdir)$$dir" || exit 1; \ find "$(distdir)/$$file" -type d ! -perm -700 -exec chmod u+rwx {} \;; \ fi; \ cp -fpR $$d/$$file "$(distdir)$$dir" || exit 1; \ else \ test -f "$(distdir)/$$file" \ || cp -p $$d/$$file "$(distdir)/$$file" \ || exit 1; \ fi; \ done @list='$(DIST_SUBDIRS)'; for subdir in $$list; do \ if test "$$subdir" = .; then :; else \ $(am__make_dryrun) \ || test -d "$(distdir)/$$subdir" \ || $(MKDIR_P) "$(distdir)/$$subdir" \ || exit 1; \ dir1=$$subdir; dir2="$(distdir)/$$subdir"; \ $(am__relativize); \ new_distdir=$$reldir; \ dir1=$$subdir; dir2="$(top_distdir)"; \ $(am__relativize); \ new_top_distdir=$$reldir; \ echo " (cd $$subdir && $(MAKE) $(AM_MAKEFLAGS) top_distdir="$$new_top_distdir" distdir="$$new_distdir" \\"; \ echo " am__remove_distdir=: am__skip_length_check=: am__skip_mode_fix=: distdir)"; \ ($(am__cd) $$subdir && \ $(MAKE) $(AM_MAKEFLAGS) \ top_distdir="$$new_top_distdir" \ distdir="$$new_distdir" \ am__remove_distdir=: \ am__skip_length_check=: \ am__skip_mode_fix=: \ distdir) \ || exit 1; \ fi; \ done check-am: all-am check: check-recursive all-am: Makefile installdirs: installdirs-recursive installdirs-am: install: install-recursive install-exec: install-exec-recursive install-data: install-data-recursive uninstall: uninstall-recursive install-am: all-am @$(MAKE) $(AM_MAKEFLAGS) install-exec-am install-data-am installcheck: installcheck-recursive install-strip: if test -z '$(STRIP)'; then \ $(MAKE) $(AM_MAKEFLAGS) INSTALL_PROGRAM="$(INSTALL_STRIP_PROGRAM)" \ install_sh_PROGRAM="$(INSTALL_STRIP_PROGRAM)" INSTALL_STRIP_FLAG=-s \ install; \ else \ $(MAKE) $(AM_MAKEFLAGS) INSTALL_PROGRAM="$(INSTALL_STRIP_PROGRAM)" \ install_sh_PROGRAM="$(INSTALL_STRIP_PROGRAM)" INSTALL_STRIP_FLAG=-s \ "INSTALL_PROGRAM_ENV=STRIPPROG='$(STRIP)'" install; \ fi mostlyclean-generic: clean-generic: distclean-generic: -test -z "$(CONFIG_CLEAN_FILES)" || rm -f $(CONFIG_CLEAN_FILES) -test . = "$(srcdir)" || test -z "$(CONFIG_CLEAN_VPATH_FILES)" || rm -f $(CONFIG_CLEAN_VPATH_FILES) maintainer-clean-generic: @echo "This command is intended for maintainers to use" @echo "it deletes files that may require special tools to rebuild." clean: clean-recursive clean-am: clean-generic clean-libtool mostlyclean-am distclean: distclean-recursive -rm -f Makefile distclean-am: clean-am distclean-generic distclean-tags dvi: dvi-recursive dvi-am: html: html-recursive html-am: info: info-recursive info-am: install-data-am: install-dvi: install-dvi-recursive install-dvi-am: install-exec-am: install-html: install-html-recursive install-html-am: install-info: install-info-recursive install-info-am: install-man: install-pdf: install-pdf-recursive install-pdf-am: install-ps: install-ps-recursive install-ps-am: installcheck-am: maintainer-clean: maintainer-clean-recursive -rm -f Makefile maintainer-clean-am: distclean-am maintainer-clean-generic mostlyclean: mostlyclean-recursive mostlyclean-am: mostlyclean-generic mostlyclean-libtool pdf: pdf-recursive pdf-am: ps: ps-recursive ps-am: uninstall-am: .MAKE: $(RECURSIVE_CLEAN_TARGETS) $(RECURSIVE_TARGETS) ctags-recursive \ install-am install-strip tags-recursive .PHONY: $(RECURSIVE_CLEAN_TARGETS) $(RECURSIVE_TARGETS) CTAGS GTAGS \ all all-am check check-am clean clean-generic clean-libtool \ ctags ctags-recursive distclean distclean-generic \ distclean-libtool distclean-tags distdir dvi dvi-am html \ html-am info info-am install install-am install-data \ install-data-am install-dvi install-dvi-am install-exec \ install-exec-am install-html install-html-am install-info \ install-info-am install-man install-pdf install-pdf-am \ install-ps install-ps-am install-strip installcheck \ installcheck-am installdirs installdirs-am maintainer-clean \ maintainer-clean-generic mostlyclean mostlyclean-generic \ mostlyclean-libtool pdf pdf-am ps ps-am tags tags-recursive \ uninstall uninstall-am # Tell versions [3.59,3.63) of GNU make to not export all variables. # Otherwise a system limit (for SysV at least) may be exceeded. .NOEXPORT: guile-gnome-platform-2.16.2/corba/demos/0000755000175000017500000000000011752546506020374 5ustar00wingowingo00000000000000guile-gnome-platform-2.16.2/corba/demos/Makefile.am0000644000175000017500000000006211670374302022416 0ustar00wingowingo00000000000000SUBDIRS = if HAVE_CORBA SUBDIRS += corba endif guile-gnome-platform-2.16.2/corba/demos/corba/0000755000175000017500000000000011752546506021462 5ustar00wingowingo00000000000000guile-gnome-platform-2.16.2/corba/demos/corba/Foo.h0000644000175000017500000003150611752517532022360 0ustar00wingowingo00000000000000/* * This file was generated by orbit-idl-2 - DO NOT EDIT! */ #ifndef Foo_H #define Foo_H 1 #include #define ORBIT_IDL_SERIAL 20 #include #ifdef __cplusplus extern "C" { #endif /* __cplusplus */ /** typedefs **/ #if !defined(_Foo_MyType_defined) #define _Foo_MyType_defined 1 typedef struct Foo_MyType_type Foo_MyType; struct Foo_MyType_type { CORBA_short eins; CORBA_long zwei; }; #if !defined(TC_IMPL_TC_Foo_MyType_0) #define TC_IMPL_TC_Foo_MyType_0 'F' #define TC_IMPL_TC_Foo_MyType_1 'o' #define TC_IMPL_TC_Foo_MyType_2 'o' #ifdef ORBIT_IDL_C_IMODULE_Foo static #else extern #endif ORBIT2_MAYBE_CONST struct CORBA_TypeCode_struct TC_Foo_MyType_struct; #define TC_Foo_MyType ((CORBA_TypeCode)&TC_Foo_MyType_struct) #endif #define Foo_MyType__alloc() ((Foo_MyType *)ORBit_small_alloc (TC_Foo_MyType)) #define Foo_MyType__freekids(m,d) ORBit_small_freekids (TC_Foo_MyType,(m),(d)) #endif #if !defined(ORBIT_DECL_Foo_Bar_Baz) && !defined(_Foo_Bar_Baz_defined) #define ORBIT_DECL_Foo_Bar_Baz 1 #define _Foo_Bar_Baz_defined 1 #define Foo_Bar_Baz__freekids CORBA_Object__freekids typedef CORBA_Object Foo_Bar_Baz; extern CORBA_unsigned_long Foo_Bar_Baz__classid; #if !defined(TC_IMPL_TC_Foo_Bar_Baz_0) #define TC_IMPL_TC_Foo_Bar_Baz_0 'F' #define TC_IMPL_TC_Foo_Bar_Baz_1 'o' #define TC_IMPL_TC_Foo_Bar_Baz_2 'o' #ifdef ORBIT_IDL_C_IMODULE_Foo static #else extern #endif ORBIT2_MAYBE_CONST struct CORBA_TypeCode_struct TC_Foo_Bar_Baz_struct; #define TC_Foo_Bar_Baz ((CORBA_TypeCode)&TC_Foo_Bar_Baz_struct) #endif #endif #if !defined(ORBIT_DECL_Foo_Hello) && !defined(_Foo_Hello_defined) #define ORBIT_DECL_Foo_Hello 1 #define _Foo_Hello_defined 1 #define Foo_Hello__freekids CORBA_Object__freekids typedef CORBA_Object Foo_Hello; extern CORBA_unsigned_long Foo_Hello__classid; #if !defined(TC_IMPL_TC_Foo_Hello_0) #define TC_IMPL_TC_Foo_Hello_0 'F' #define TC_IMPL_TC_Foo_Hello_1 'o' #define TC_IMPL_TC_Foo_Hello_2 'o' #ifdef ORBIT_IDL_C_IMODULE_Foo static #else extern #endif ORBIT2_MAYBE_CONST struct CORBA_TypeCode_struct TC_Foo_Hello_struct; #define TC_Foo_Hello ((CORBA_TypeCode)&TC_Foo_Hello_struct) #endif #endif #undef ex_Foo_Hello_MyException #define ex_Foo_Hello_MyException "IDL:Foo/Hello/MyException:1.0" #if !defined(_Foo_Hello_MyException_defined) #define _Foo_Hello_MyException_defined 1 typedef struct Foo_Hello_MyException_type Foo_Hello_MyException; struct Foo_Hello_MyException_type { int dummy; }; #if !defined(TC_IMPL_TC_Foo_Hello_MyException_0) #define TC_IMPL_TC_Foo_Hello_MyException_0 'F' #define TC_IMPL_TC_Foo_Hello_MyException_1 'o' #define TC_IMPL_TC_Foo_Hello_MyException_2 'o' #ifdef ORBIT_IDL_C_IMODULE_Foo static #else extern #endif ORBIT2_MAYBE_CONST struct CORBA_TypeCode_struct TC_Foo_Hello_MyException_struct; #define TC_Foo_Hello_MyException ((CORBA_TypeCode)&TC_Foo_Hello_MyException_struct) #endif #define Foo_Hello_MyException__alloc() ((Foo_Hello_MyException *)ORBit_small_alloc (TC_Foo_Hello_MyException)) #define Foo_Hello_MyException__freekids(m,d) ORBit_small_freekids (TC_Foo_Hello_MyException,(m),(d)) #endif #if !defined(_Foo_Hello_MyLong_defined) #define _Foo_Hello_MyLong_defined 1 typedef CORBA_long Foo_Hello_MyLong; #define Foo_Hello_MyLong_marshal(x,y,z) CORBA_long_marshal((x),(y),(z)) #define Foo_Hello_MyLong_demarshal(x,y,z,i) CORBA_long_demarshal((x),(y),(z),(i)) #if !defined(TC_IMPL_TC_Foo_Hello_MyLong_0) #define TC_IMPL_TC_Foo_Hello_MyLong_0 'F' #define TC_IMPL_TC_Foo_Hello_MyLong_1 'o' #define TC_IMPL_TC_Foo_Hello_MyLong_2 'o' #ifdef ORBIT_IDL_C_IMODULE_Foo static #else extern #endif ORBIT2_MAYBE_CONST struct CORBA_TypeCode_struct TC_Foo_Hello_MyLong_struct; #define TC_Foo_Hello_MyLong ((CORBA_TypeCode)&TC_Foo_Hello_MyLong_struct) #endif #define Foo_Hello_MyLong__alloc() ((Foo_Hello_MyLong *)ORBit_small_alloc (TC_CORBA_long)) #define Foo_Hello_MyLong__freekids(m,d) ORBit_small_freekids (TC_CORBA_long,(m),(d)) #endif #if !defined(ORBIT_DECL_Foo_MaximumHello) && !defined(_Foo_MaximumHello_defined) #define ORBIT_DECL_Foo_MaximumHello 1 #define _Foo_MaximumHello_defined 1 #define Foo_MaximumHello__freekids CORBA_Object__freekids typedef CORBA_Object Foo_MaximumHello; extern CORBA_unsigned_long Foo_MaximumHello__classid; #if !defined(TC_IMPL_TC_Foo_MaximumHello_0) #define TC_IMPL_TC_Foo_MaximumHello_0 'F' #define TC_IMPL_TC_Foo_MaximumHello_1 'o' #define TC_IMPL_TC_Foo_MaximumHello_2 'o' #ifdef ORBIT_IDL_C_IMODULE_Foo static #else extern #endif ORBIT2_MAYBE_CONST struct CORBA_TypeCode_struct TC_Foo_MaximumHello_struct; #define TC_Foo_MaximumHello ((CORBA_TypeCode)&TC_Foo_MaximumHello_struct) #endif #endif #if !defined(ORBIT_DECL_Foo_InheritanceTest) && !defined(_Foo_InheritanceTest_defined) #define ORBIT_DECL_Foo_InheritanceTest 1 #define _Foo_InheritanceTest_defined 1 #define Foo_InheritanceTest__freekids CORBA_Object__freekids typedef CORBA_Object Foo_InheritanceTest; extern CORBA_unsigned_long Foo_InheritanceTest__classid; #if !defined(TC_IMPL_TC_Foo_InheritanceTest_0) #define TC_IMPL_TC_Foo_InheritanceTest_0 'F' #define TC_IMPL_TC_Foo_InheritanceTest_1 'o' #define TC_IMPL_TC_Foo_InheritanceTest_2 'o' #ifdef ORBIT_IDL_C_IMODULE_Foo static #else extern #endif ORBIT2_MAYBE_CONST struct CORBA_TypeCode_struct TC_Foo_InheritanceTest_struct; #define TC_Foo_InheritanceTest ((CORBA_TypeCode)&TC_Foo_InheritanceTest_struct) #endif #endif /** POA structures **/ #ifndef _defined_POA_Foo_Bar_Baz #define _defined_POA_Foo_Bar_Baz 1 typedef struct { void *_private; void (*haveFun)(PortableServer_Servant _servant, const CORBA_short a, const CORBA_boolean b, CORBA_Environment *ev); } POA_Foo_Bar_Baz__epv; typedef struct { PortableServer_ServantBase__epv *_base_epv; POA_Foo_Bar_Baz__epv *Foo_Bar_Baz_epv; } POA_Foo_Bar_Baz__vepv; typedef struct { void *_private; POA_Foo_Bar_Baz__vepv *vepv; } POA_Foo_Bar_Baz; extern void POA_Foo_Bar_Baz__init(PortableServer_Servant servant, CORBA_Environment *ev); extern void POA_Foo_Bar_Baz__fini(PortableServer_Servant servant, CORBA_Environment *ev); #endif /* _defined_POA_Foo_Bar_Baz */ #ifndef _defined_POA_Foo_Hello #define _defined_POA_Foo_Hello 1 typedef struct { void *_private; void (*doHello)(PortableServer_Servant _servant, CORBA_Environment *ev); } POA_Foo_Hello__epv; typedef struct { PortableServer_ServantBase__epv *_base_epv; POA_Foo_Hello__epv *Foo_Hello_epv; } POA_Foo_Hello__vepv; typedef struct { void *_private; POA_Foo_Hello__vepv *vepv; } POA_Foo_Hello; extern void POA_Foo_Hello__init(PortableServer_Servant servant, CORBA_Environment *ev); extern void POA_Foo_Hello__fini(PortableServer_Servant servant, CORBA_Environment *ev); #endif /* _defined_POA_Foo_Hello */ #ifndef _defined_POA_Foo_MaximumHello #define _defined_POA_Foo_MaximumHello 1 typedef struct { void *_private; void (*haveMoreFun)(PortableServer_Servant _servant, CORBA_Environment *ev); void (*haveFunWithAnArgument)(PortableServer_Servant _servant, const CORBA_long argument, const CORBA_short foo, CORBA_Environment *ev); } POA_Foo_MaximumHello__epv; typedef struct { PortableServer_ServantBase__epv *_base_epv; POA_Foo_Bar_Baz__epv *Foo_Bar_Baz_epv; POA_Foo_Hello__epv *Foo_Hello_epv; POA_Foo_MaximumHello__epv *Foo_MaximumHello_epv; } POA_Foo_MaximumHello__vepv; typedef struct { void *_private; POA_Foo_MaximumHello__vepv *vepv; } POA_Foo_MaximumHello; extern void POA_Foo_MaximumHello__init(PortableServer_Servant servant, CORBA_Environment *ev); extern void POA_Foo_MaximumHello__fini(PortableServer_Servant servant, CORBA_Environment *ev); #endif /* _defined_POA_Foo_MaximumHello */ #ifndef _defined_POA_Foo_InheritanceTest #define _defined_POA_Foo_InheritanceTest 1 typedef struct { void *_private; void (*theMegaTest)(PortableServer_Servant _servant, CORBA_Environment *ev); } POA_Foo_InheritanceTest__epv; typedef struct { PortableServer_ServantBase__epv *_base_epv; POA_Foo_Bar_Baz__epv *Foo_Bar_Baz_epv; POA_Foo_Hello__epv *Foo_Hello_epv; POA_Foo_MaximumHello__epv *Foo_MaximumHello_epv; POA_Foo_InheritanceTest__epv *Foo_InheritanceTest_epv; } POA_Foo_InheritanceTest__vepv; typedef struct { void *_private; POA_Foo_InheritanceTest__vepv *vepv; } POA_Foo_InheritanceTest; extern void POA_Foo_InheritanceTest__init(PortableServer_Servant servant, CORBA_Environment *ev); extern void POA_Foo_InheritanceTest__fini(PortableServer_Servant servant, CORBA_Environment *ev); #endif /* _defined_POA_Foo_InheritanceTest */ /** skel prototypes **/ void _ORBIT_skel_small_Foo_Bar_Baz_haveFun(POA_Foo_Bar_Baz *_ORBIT_servant, gpointer _ORBIT_retval, gpointer *_ORBIT_args, CORBA_Context ctx,CORBA_Environment *ev, void (*_impl_haveFun)(PortableServer_Servant _servant, const CORBA_short a, const CORBA_boolean b, CORBA_Environment *ev)); void _ORBIT_skel_small_Foo_Hello_doHello(POA_Foo_Hello *_ORBIT_servant, gpointer _ORBIT_retval, gpointer *_ORBIT_args, CORBA_Context ctx,CORBA_Environment *ev, void (*_impl_doHello)(PortableServer_Servant _servant, CORBA_Environment *ev)); void _ORBIT_skel_small_Foo_MaximumHello_haveMoreFun(POA_Foo_MaximumHello *_ORBIT_servant, gpointer _ORBIT_retval, gpointer *_ORBIT_args, CORBA_Context ctx,CORBA_Environment *ev, void (*_impl_haveMoreFun)(PortableServer_Servant _servant, CORBA_Environment *ev)); void _ORBIT_skel_small_Foo_MaximumHello_haveFunWithAnArgument(POA_Foo_MaximumHello *_ORBIT_servant, gpointer _ORBIT_retval, gpointer *_ORBIT_args, CORBA_Context ctx,CORBA_Environment *ev, void (*_impl_haveFunWithAnArgument)(PortableServer_Servant _servant, const CORBA_long argument, const CORBA_short foo, CORBA_Environment *ev)); void _ORBIT_skel_small_Foo_InheritanceTest_theMegaTest(POA_Foo_InheritanceTest *_ORBIT_servant, gpointer _ORBIT_retval, gpointer *_ORBIT_args, CORBA_Context ctx,CORBA_Environment *ev, void (*_impl_theMegaTest)(PortableServer_Servant _servant, CORBA_Environment *ev)); /** stub prototypes **/ void Foo_Bar_Baz_haveFun(Foo_Bar_Baz _obj, const CORBA_short a, const CORBA_boolean b, CORBA_Environment *ev); void Foo_Hello_doHello(Foo_Hello _obj, CORBA_Environment *ev); #define Foo_MaximumHello_haveFun Foo_Bar_Baz_haveFun #define Foo_MaximumHello_doHello Foo_Hello_doHello void Foo_MaximumHello_haveMoreFun(Foo_MaximumHello _obj, CORBA_Environment *ev); void Foo_MaximumHello_haveFunWithAnArgument(Foo_MaximumHello _obj, const CORBA_long argument, const CORBA_short foo, CORBA_Environment *ev); #define Foo_InheritanceTest_haveFun Foo_Bar_Baz_haveFun #define Foo_InheritanceTest_doHello Foo_Hello_doHello #define Foo_InheritanceTest_haveMoreFun Foo_MaximumHello_haveMoreFun #define Foo_InheritanceTest_haveFunWithAnArgument Foo_MaximumHello_haveFunWithAnArgument void Foo_InheritanceTest_theMegaTest(Foo_InheritanceTest _obj, CORBA_Environment *ev); #include #ifdef ORBIT_IDL_C_IMODULE_Foo static #else extern #endif ORBit_IInterface Foo_Bar_Baz__iinterface; #define Foo_Bar_Baz_IMETHODS_LEN 1 #ifdef ORBIT_IDL_C_IMODULE_Foo static #else extern #endif ORBit_IMethod Foo_Bar_Baz__imethods[Foo_Bar_Baz_IMETHODS_LEN]; #ifdef ORBIT_IDL_C_IMODULE_Foo static #else extern #endif ORBit_IInterface Foo_Hello__iinterface; #define Foo_Hello_IMETHODS_LEN 1 #ifdef ORBIT_IDL_C_IMODULE_Foo static #else extern #endif ORBit_IMethod Foo_Hello__imethods[Foo_Hello_IMETHODS_LEN]; #ifdef ORBIT_IDL_C_IMODULE_Foo static #else extern #endif ORBit_IInterface Foo_MaximumHello__iinterface; #define Foo_MaximumHello_IMETHODS_LEN 2 #ifdef ORBIT_IDL_C_IMODULE_Foo static #else extern #endif ORBit_IMethod Foo_MaximumHello__imethods[Foo_MaximumHello_IMETHODS_LEN]; #ifdef ORBIT_IDL_C_IMODULE_Foo static #else extern #endif ORBit_IInterface Foo_InheritanceTest__iinterface; #define Foo_InheritanceTest_IMETHODS_LEN 1 #ifdef ORBIT_IDL_C_IMODULE_Foo static #else extern #endif ORBit_IMethod Foo_InheritanceTest__imethods[Foo_InheritanceTest_IMETHODS_LEN]; /** IMethods index */ #ifndef __Foo_Bar_Baz__imethods_index #define __Foo_Bar_Baz__imethods_index typedef enum { Foo_Bar_Baz_haveFun__imethods_index } Foo_Bar_Baz__imethods_index; #endif /* __Foo_Bar_Baz__imethods_index */ #ifndef __Foo_Hello__imethods_index #define __Foo_Hello__imethods_index typedef enum { Foo_Hello_doHello__imethods_index } Foo_Hello__imethods_index; #endif /* __Foo_Hello__imethods_index */ #ifndef __Foo_MaximumHello__imethods_index #define __Foo_MaximumHello__imethods_index typedef enum { Foo_MaximumHello_haveMoreFun__imethods_index, Foo_MaximumHello_haveFunWithAnArgument__imethods_index } Foo_MaximumHello__imethods_index; #endif /* __Foo_MaximumHello__imethods_index */ #ifndef __Foo_InheritanceTest__imethods_index #define __Foo_InheritanceTest__imethods_index typedef enum { Foo_InheritanceTest_theMegaTest__imethods_index } Foo_InheritanceTest__imethods_index; #endif /* __Foo_InheritanceTest__imethods_index */ #ifndef __ORBIT_IMETHODS_INDEX #define __ORBIT_IMETHODS_INDEX #define ORBIT_IMETHODS_INDEX(m) (m ## __imethods_index) #endif /* __ORBIT_IMETHODS_INDEX */ #ifdef __cplusplus } #endif /* __cplusplus */ #ifndef EXCLUDE_ORBIT_H #include #endif /* EXCLUDE_ORBIT_H */ #endif #undef ORBIT_IDL_SERIAL guile-gnome-platform-2.16.2/corba/demos/corba/Foo-common.c0000644000175000017500000001702511752517532023641 0ustar00wingowingo00000000000000/* * This file was generated by orbit-idl-2 - DO NOT EDIT! */ #include #define ORBIT2_STUBS_API #define ORBIT_IDL_C_COMMON #define Foo_COMMON #include "Foo.h" static const CORBA_unsigned_long ORBit_zero_int = 0; #if ( (TC_IMPL_TC_Foo_MyType_0 == 'F') \ && (TC_IMPL_TC_Foo_MyType_1 == 'o') \ && (TC_IMPL_TC_Foo_MyType_2 == 'o') \ ) && !defined(TC_DEF_TC_Foo_MyType) #define TC_DEF_TC_Foo_MyType 1 static const char *anon_subnames_array0[] = {"eins", "zwei"}; static ORBIT2_MAYBE_CONST CORBA_TypeCode anon_subtypes_array1[] = {(CORBA_TypeCode)&TC_CORBA_short_struct, (CORBA_TypeCode)&TC_CORBA_long_struct}; #ifdef ORBIT_IDL_C_IMODULE_Foo static #endif ORBIT2_MAYBE_CONST struct CORBA_TypeCode_struct TC_Foo_MyType_struct = { {&ORBit_TypeCode_epv, ORBIT_REFCOUNT_STATIC}, CORBA_tk_struct, 0, 0, MAX (ORBIT_ALIGNOF_CORBA_LONG, MAX (ORBIT_ALIGNOF_CORBA_SHORT, 1)), 0, 2 , (CORBA_TypeCode *)anon_subtypes_array1, CORBA_OBJECT_NIL, (char *)"MyType", (char *)"IDL:Foo/MyType:1.0", (char **)anon_subnames_array0, NULL, -1, 0, 0, 0 }; #endif #if ( (TC_IMPL_TC_Foo_Bar_Baz_0 == 'F') \ && (TC_IMPL_TC_Foo_Bar_Baz_1 == 'o') \ && (TC_IMPL_TC_Foo_Bar_Baz_2 == 'o') \ ) && !defined(TC_DEF_TC_Foo_Bar_Baz) #define TC_DEF_TC_Foo_Bar_Baz 1 #ifdef ORBIT_IDL_C_IMODULE_Foo static #endif ORBIT2_MAYBE_CONST struct CORBA_TypeCode_struct TC_Foo_Bar_Baz_struct = { {&ORBit_TypeCode_epv, ORBIT_REFCOUNT_STATIC}, CORBA_tk_objref, 0, 0, ORBIT_ALIGNOF_CORBA_POINTER, 0, 0 , NULL, CORBA_OBJECT_NIL, (char *)"Baz", (char *)"IDL:Foo/Bar/Baz:1.0", NULL, NULL, -1, 0, 0, 0 }; #endif #if ( (TC_IMPL_TC_Foo_Hello_MyException_0 == 'F') \ && (TC_IMPL_TC_Foo_Hello_MyException_1 == 'o') \ && (TC_IMPL_TC_Foo_Hello_MyException_2 == 'o') \ ) && !defined(TC_DEF_TC_Foo_Hello_MyException) #define TC_DEF_TC_Foo_Hello_MyException 1 #ifdef ORBIT_IDL_C_IMODULE_Foo static #endif ORBIT2_MAYBE_CONST struct CORBA_TypeCode_struct TC_Foo_Hello_MyException_struct = { {&ORBit_TypeCode_epv, ORBIT_REFCOUNT_STATIC}, CORBA_tk_except, 0, 0, 1, 0, 0 , NULL, CORBA_OBJECT_NIL, (char *)"MyException", (char *)"IDL:Foo/Hello/MyException:1.0", NULL, NULL, -1, 0, 0, 0 }; #endif #if ( (TC_IMPL_TC_Foo_Hello_MyLong_0 == 'F') \ && (TC_IMPL_TC_Foo_Hello_MyLong_1 == 'o') \ && (TC_IMPL_TC_Foo_Hello_MyLong_2 == 'o') \ ) && !defined(TC_DEF_TC_Foo_Hello_MyLong) #define TC_DEF_TC_Foo_Hello_MyLong 1 static ORBIT2_MAYBE_CONST CORBA_TypeCode anon_subtypes_array14[] = {(CORBA_TypeCode)&TC_CORBA_long_struct}; #ifdef ORBIT_IDL_C_IMODULE_Foo static #endif ORBIT2_MAYBE_CONST struct CORBA_TypeCode_struct TC_Foo_Hello_MyLong_struct = { {&ORBit_TypeCode_epv, ORBIT_REFCOUNT_STATIC}, CORBA_tk_alias, 0, 0, ORBIT_ALIGNOF_CORBA_LONG, 0, 1 , (CORBA_TypeCode *)anon_subtypes_array14, CORBA_OBJECT_NIL, (char *)"MyLong", (char *)"IDL:Foo/Hello/MyLong:1.0", NULL, NULL, -1, 0, 0, 0 }; #endif #if ( (TC_IMPL_TC_Foo_Hello_0 == 'F') \ && (TC_IMPL_TC_Foo_Hello_1 == 'o') \ && (TC_IMPL_TC_Foo_Hello_2 == 'o') \ ) && !defined(TC_DEF_TC_Foo_Hello) #define TC_DEF_TC_Foo_Hello 1 #ifdef ORBIT_IDL_C_IMODULE_Foo static #endif ORBIT2_MAYBE_CONST struct CORBA_TypeCode_struct TC_Foo_Hello_struct = { {&ORBit_TypeCode_epv, ORBIT_REFCOUNT_STATIC}, CORBA_tk_objref, 0, 0, ORBIT_ALIGNOF_CORBA_POINTER, 0, 0 , NULL, CORBA_OBJECT_NIL, (char *)"Hello", (char *)"IDL:Foo/Hello:1.0", NULL, NULL, -1, 0, 0, 0 }; #endif #if ( (TC_IMPL_TC_Foo_MaximumHello_0 == 'F') \ && (TC_IMPL_TC_Foo_MaximumHello_1 == 'o') \ && (TC_IMPL_TC_Foo_MaximumHello_2 == 'o') \ ) && !defined(TC_DEF_TC_Foo_MaximumHello) #define TC_DEF_TC_Foo_MaximumHello 1 #ifdef ORBIT_IDL_C_IMODULE_Foo static #endif ORBIT2_MAYBE_CONST struct CORBA_TypeCode_struct TC_Foo_MaximumHello_struct = { {&ORBit_TypeCode_epv, ORBIT_REFCOUNT_STATIC}, CORBA_tk_objref, 0, 0, ORBIT_ALIGNOF_CORBA_POINTER, 0, 0 , NULL, CORBA_OBJECT_NIL, (char *)"MaximumHello", (char *)"IDL:Foo/MaximumHello:1.0", NULL, NULL, -1, 0, 0, 0 }; #endif #if ( (TC_IMPL_TC_Foo_InheritanceTest_0 == 'F') \ && (TC_IMPL_TC_Foo_InheritanceTest_1 == 'o') \ && (TC_IMPL_TC_Foo_InheritanceTest_2 == 'o') \ ) && !defined(TC_DEF_TC_Foo_InheritanceTest) #define TC_DEF_TC_Foo_InheritanceTest 1 #ifdef ORBIT_IDL_C_IMODULE_Foo static #endif ORBIT2_MAYBE_CONST struct CORBA_TypeCode_struct TC_Foo_InheritanceTest_struct = { {&ORBit_TypeCode_epv, ORBIT_REFCOUNT_STATIC}, CORBA_tk_objref, 0, 0, ORBIT_ALIGNOF_CORBA_POINTER, 0, 0 , NULL, CORBA_OBJECT_NIL, (char *)"InheritanceTest", (char *)"IDL:Foo/InheritanceTest:1.0", NULL, NULL, -1, 0, 0, 0 }; #endif #ifndef ORBIT_IDL_C_IMODULE_Foo CORBA_unsigned_long Foo_Bar_Baz__classid = 0; #endif #ifndef ORBIT_IDL_C_IMODULE_Foo CORBA_unsigned_long Foo_Hello__classid = 0; #endif #ifndef ORBIT_IDL_C_IMODULE_Foo CORBA_unsigned_long Foo_MaximumHello__classid = 0; #endif #ifndef ORBIT_IDL_C_IMODULE_Foo CORBA_unsigned_long Foo_InheritanceTest__classid = 0; #endif /* Interface type data */ static ORBit_IArg Foo_Bar_Baz_haveFun__arginfo [] = { { TC_CORBA_short, ORBit_I_ARG_IN | ORBit_I_COMMON_FIXED_SIZE, (char *)"a" }, { TC_CORBA_boolean, ORBit_I_ARG_IN | ORBit_I_COMMON_FIXED_SIZE, (char *)"b" } }; #ifdef ORBIT_IDL_C_IMODULE_Foo static #endif ORBit_IMethod Foo_Bar_Baz__imethods [] = { { { 2, 2, Foo_Bar_Baz_haveFun__arginfo, FALSE }, { 0, 0, NULL, FALSE }, { 0, 0, NULL, FALSE }, TC_void, (char *)"haveFun", 7, 0 } }; static CORBA_string Foo_Bar_Baz__base_itypes[] = { (char *)"IDL:omg.org/CORBA/Object:1.0" }; #ifdef ORBIT_IDL_C_IMODULE_Foo static #endif ORBit_IInterface Foo_Bar_Baz__iinterface = { TC_Foo_Bar_Baz,{1, 1, Foo_Bar_Baz__imethods, FALSE}, {1, 1, Foo_Bar_Baz__base_itypes, FALSE} }; #ifdef ORBIT_IDL_C_IMODULE_Foo static #endif ORBit_IMethod Foo_Hello__imethods [] = { { { 0, 0, NULL, FALSE }, { 0, 0, NULL, FALSE }, { 0, 0, NULL, FALSE }, TC_void, (char *)"doHello", 7, 0 } }; static CORBA_string Foo_Hello__base_itypes[] = { (char *)"IDL:omg.org/CORBA/Object:1.0" }; #ifdef ORBIT_IDL_C_IMODULE_Foo static #endif ORBit_IInterface Foo_Hello__iinterface = { TC_Foo_Hello,{1, 1, Foo_Hello__imethods, FALSE}, {1, 1, Foo_Hello__base_itypes, FALSE} }; static ORBit_IArg Foo_MaximumHello_haveFunWithAnArgument__arginfo [] = { { TC_CORBA_long, ORBit_I_ARG_IN | ORBit_I_COMMON_FIXED_SIZE, (char *)"argument" }, { TC_CORBA_short, ORBit_I_ARG_IN | ORBit_I_COMMON_FIXED_SIZE, (char *)"foo" } }; #ifdef ORBIT_IDL_C_IMODULE_Foo static #endif ORBit_IMethod Foo_MaximumHello__imethods [] = { { { 0, 0, NULL, FALSE }, { 0, 0, NULL, FALSE }, { 0, 0, NULL, FALSE }, TC_void, (char *)"haveMoreFun", 11, 0 } , { { 2, 2, Foo_MaximumHello_haveFunWithAnArgument__arginfo, FALSE }, { 0, 0, NULL, FALSE }, { 0, 0, NULL, FALSE }, TC_void, (char *)"haveFunWithAnArgument", 21, 0 } }; static CORBA_string Foo_MaximumHello__base_itypes[] = { (char *)"IDL:Foo/Bar/Baz:1.0", (char *)"IDL:Foo/Hello:1.0", (char *)"IDL:omg.org/CORBA/Object:1.0" }; #ifdef ORBIT_IDL_C_IMODULE_Foo static #endif ORBit_IInterface Foo_MaximumHello__iinterface = { TC_Foo_MaximumHello,{2, 2, Foo_MaximumHello__imethods, FALSE}, {3, 3, Foo_MaximumHello__base_itypes, FALSE} }; #ifdef ORBIT_IDL_C_IMODULE_Foo static #endif ORBit_IMethod Foo_InheritanceTest__imethods [] = { { { 0, 0, NULL, FALSE }, { 0, 0, NULL, FALSE }, { 0, 0, NULL, FALSE }, TC_void, (char *)"theMegaTest", 11, 0 } }; static CORBA_string Foo_InheritanceTest__base_itypes[] = { (char *)"IDL:Foo/Bar/Baz:1.0", (char *)"IDL:Foo/Hello:1.0", (char *)"IDL:Foo/MaximumHello:1.0", (char *)"IDL:omg.org/CORBA/Object:1.0" }; #ifdef ORBIT_IDL_C_IMODULE_Foo static #endif ORBit_IInterface Foo_InheritanceTest__iinterface = { TC_Foo_InheritanceTest,{1, 1, Foo_InheritanceTest__imethods, FALSE}, {4, 4, Foo_InheritanceTest__base_itypes, FALSE} }; guile-gnome-platform-2.16.2/corba/demos/corba/Makefile.am0000644000175000017500000000120711670374302023506 0ustar00wingowingo00000000000000AM_CFLAGS = -I. -I$(srcdir) $(WARN_CFLAGS) -Werror -Wno-unused CORBA_SOURCE = \ Foo.h \ Foo-common.c \ Foo-imodule.c idl_flags = --imodule -I $(BONOBO_IDL_DIR) -D__FOO_COMPILATION $(CORBA_SOURCE): $(srcdir)/Foo.idl $(ORBIT_IDL) $(ORBIT_IDL) $(idl_flags) $(srcdir)/Foo.idl orbittypelib_LTLIBRARIES = Foo_module.la orbittypelibdir = $(libdir)/orbit-2.0 Foo_module_la_CFLAGS = $(CORBA_CFLAGS) $(AM_CFLAGS) Foo_module_la_SOURCES = Foo-imodule.c Foo-common.c Foo.h Foo_module_la_LIBADD = $(CORBA_LIBS) Foo_module_la_LDFLAGS = -export-dynamic -module BUILT_SOURCES = $(CORBA_SOURCE) CLEANFILES = $(BUILT_SOURCES) EXTRA_DIST = Foo.idl guile-gnome-platform-2.16.2/corba/demos/corba/Makefile.in0000644000175000017500000005402611752511065023526 0ustar00wingowingo00000000000000# Makefile.in generated by automake 1.11.5 from Makefile.am. # @configure_input@ # Copyright (C) 1994, 1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, # 2003, 2004, 2005, 2006, 2007, 2008, 2009, 2010, 2011 Free Software # Foundation, Inc. # This Makefile.in is free software; the Free Software Foundation # gives unlimited permission to copy and/or distribute it, # with or without modifications, as long as this notice is preserved. # This program is distributed in the hope that it will be useful, # but WITHOUT ANY WARRANTY, to the extent permitted by law; without # even the implied warranty of MERCHANTABILITY or FITNESS FOR A # PARTICULAR PURPOSE. @SET_MAKE@ VPATH = @srcdir@ am__make_dryrun = \ { \ am__dry=no; \ case $$MAKEFLAGS in \ *\\[\ \ ]*) \ echo 'am--echo: ; @echo "AM" OK' | $(MAKE) -f - 2>/dev/null \ | grep '^AM OK$$' >/dev/null || am__dry=yes;; \ *) \ for am__flg in $$MAKEFLAGS; do \ case $$am__flg in \ *=*|--*) ;; \ *n*) am__dry=yes; break;; \ esac; \ done;; \ esac; \ test $$am__dry = yes; \ } pkgdatadir = $(datadir)/@PACKAGE@ pkgincludedir = $(includedir)/@PACKAGE@ pkglibdir = $(libdir)/@PACKAGE@ pkglibexecdir = $(libexecdir)/@PACKAGE@ am__cd = CDPATH="$${ZSH_VERSION+.}$(PATH_SEPARATOR)" && cd install_sh_DATA = $(install_sh) -c -m 644 install_sh_PROGRAM = $(install_sh) -c install_sh_SCRIPT = $(install_sh) -c INSTALL_HEADER = $(INSTALL_DATA) transform = $(program_transform_name) NORMAL_INSTALL = : PRE_INSTALL = : POST_INSTALL = : NORMAL_UNINSTALL = : PRE_UNINSTALL = : POST_UNINSTALL = : build_triplet = @build@ host_triplet = @host@ subdir = corba/demos/corba DIST_COMMON = $(srcdir)/Makefile.am $(srcdir)/Makefile.in ACLOCAL_M4 = $(top_srcdir)/aclocal.m4 am__aclocal_m4_deps = $(top_srcdir)/configure.ac am__configure_deps = $(am__aclocal_m4_deps) $(CONFIGURE_DEPENDENCIES) \ $(ACLOCAL_M4) mkinstalldirs = $(install_sh) -d CONFIG_HEADER = $(top_builddir)/config.h CONFIG_CLEAN_FILES = CONFIG_CLEAN_VPATH_FILES = am__vpath_adj_setup = srcdirstrip=`echo "$(srcdir)" | sed 's|.|.|g'`; am__vpath_adj = case $$p in \ $(srcdir)/*) f=`echo "$$p" | sed "s|^$$srcdirstrip/||"`;; \ *) f=$$p;; \ esac; am__strip_dir = f=`echo $$p | sed -e 's|^.*/||'`; am__install_max = 40 am__nobase_strip_setup = \ srcdirstrip=`echo "$(srcdir)" | sed 's/[].[^$$\\*|]/\\\\&/g'` am__nobase_strip = \ for p in $$list; do echo "$$p"; done | sed -e "s|$$srcdirstrip/||" am__nobase_list = $(am__nobase_strip_setup); \ for p in $$list; do echo "$$p $$p"; done | \ sed "s| $$srcdirstrip/| |;"' / .*\//!s/ .*/ ./; s,\( .*\)/[^/]*$$,\1,' | \ $(AWK) 'BEGIN { files["."] = "" } { files[$$2] = files[$$2] " " $$1; \ if (++n[$$2] == $(am__install_max)) \ { print $$2, files[$$2]; n[$$2] = 0; files[$$2] = "" } } \ END { for (dir in files) print dir, files[dir] }' am__base_list = \ sed '$$!N;$$!N;$$!N;$$!N;$$!N;$$!N;$$!N;s/\n/ /g' | \ sed '$$!N;$$!N;$$!N;$$!N;s/\n/ /g' am__uninstall_files_from_dir = { \ test -z "$$files" \ || { test ! -d "$$dir" && test ! -f "$$dir" && test ! -r "$$dir"; } \ || { echo " ( cd '$$dir' && rm -f" $$files ")"; \ $(am__cd) "$$dir" && rm -f $$files; }; \ } am__installdirs = "$(DESTDIR)$(orbittypelibdir)" LTLIBRARIES = $(orbittypelib_LTLIBRARIES) am__DEPENDENCIES_1 = Foo_module_la_DEPENDENCIES = $(am__DEPENDENCIES_1) am_Foo_module_la_OBJECTS = Foo_module_la-Foo-imodule.lo \ Foo_module_la-Foo-common.lo Foo_module_la_OBJECTS = $(am_Foo_module_la_OBJECTS) Foo_module_la_LINK = $(LIBTOOL) --tag=CC $(AM_LIBTOOLFLAGS) \ $(LIBTOOLFLAGS) --mode=link $(CCLD) $(Foo_module_la_CFLAGS) \ $(CFLAGS) $(Foo_module_la_LDFLAGS) $(LDFLAGS) -o $@ DEFAULT_INCLUDES = -I.@am__isrc@ -I$(top_builddir) depcomp = $(SHELL) $(top_srcdir)/build-aux/depcomp am__depfiles_maybe = depfiles am__mv = mv -f COMPILE = $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(AM_CPPFLAGS) \ $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) LTCOMPILE = $(LIBTOOL) --tag=CC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) \ --mode=compile $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) \ $(AM_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) CCLD = $(CC) LINK = $(LIBTOOL) --tag=CC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) \ --mode=link $(CCLD) $(AM_CFLAGS) $(CFLAGS) $(AM_LDFLAGS) \ $(LDFLAGS) -o $@ SOURCES = $(Foo_module_la_SOURCES) DIST_SOURCES = $(Foo_module_la_SOURCES) am__can_run_installinfo = \ case $$AM_UPDATE_INFO_DIR in \ n|no|NO) false;; \ *) (install-info --version) >/dev/null 2>&1;; \ esac ETAGS = etags CTAGS = ctags DISTFILES = $(DIST_COMMON) $(DIST_SOURCES) $(TEXINFOS) $(EXTRA_DIST) ACLOCAL = @ACLOCAL@ AG_PKG_CONFIG_PATH = @AG_PKG_CONFIG_PATH@ AMTAR = @AMTAR@ API_VERSION = @API_VERSION@ AR = @AR@ ATK_CFLAGS = @ATK_CFLAGS@ ATK_LIBS = @ATK_LIBS@ AUTOCONF = @AUTOCONF@ AUTOHEADER = @AUTOHEADER@ AUTOMAKE = @AUTOMAKE@ AWK = @AWK@ BONOBO_IDL_DIR = @BONOBO_IDL_DIR@ CANVAS_CFLAGS = @CANVAS_CFLAGS@ CANVAS_LIBS = @CANVAS_LIBS@ CC = @CC@ CCDEPMODE = @CCDEPMODE@ CFLAGS = @CFLAGS@ CORBA_CFLAGS = @CORBA_CFLAGS@ CORBA_LIBS = @CORBA_LIBS@ CPP = @CPP@ CPPFLAGS = @CPPFLAGS@ CYGPATH_W = @CYGPATH_W@ DEFS = @DEFS@ DEPDIR = @DEPDIR@ DLLTOOL = @DLLTOOL@ DSYMUTIL = @DSYMUTIL@ DUMPBIN = @DUMPBIN@ ECHO_C = @ECHO_C@ ECHO_N = @ECHO_N@ ECHO_T = @ECHO_T@ EGREP = @EGREP@ EXEEXT = @EXEEXT@ FGREP = @FGREP@ GCONF_CFLAGS = @GCONF_CFLAGS@ GCONF_LIBS = @GCONF_LIBS@ GDK_CFLAGS = @GDK_CFLAGS@ GDK_LIBS = @GDK_LIBS@ GDK_PIXBUF_CFLAGS = @GDK_PIXBUF_CFLAGS@ GDK_PIXBUF_LIBS = @GDK_PIXBUF_LIBS@ GLIB_CFLAGS = @GLIB_CFLAGS@ GLIB_LIBS = @GLIB_LIBS@ GNOMEUI_DEPRECATION_FLAGS = @GNOMEUI_DEPRECATION_FLAGS@ GNOME_VFS_CFLAGS = @GNOME_VFS_CFLAGS@ GNOME_VFS_DEPRECATED_CFLAGS = @GNOME_VFS_DEPRECATED_CFLAGS@ GNOME_VFS_LIBS = @GNOME_VFS_LIBS@ GOBJECT_CFLAGS = @GOBJECT_CFLAGS@ GOBJECT_LIBS = @GOBJECT_LIBS@ GREP = @GREP@ GTHREAD_CFLAGS = @GTHREAD_CFLAGS@ GTHREAD_LIBS = @GTHREAD_LIBS@ GTK_CFLAGS = @GTK_CFLAGS@ GTK_DEPRECATED_CFLAGS = @GTK_DEPRECATED_CFLAGS@ GTK_LIBS = @GTK_LIBS@ GUILE_CAIRO_CFLAGS = @GUILE_CAIRO_CFLAGS@ GUILE_CAIRO_LIBS = @GUILE_CAIRO_LIBS@ GUILE_CFLAGS = @GUILE_CFLAGS@ GUILE_EFFECTIVE_VERSION = @GUILE_EFFECTIVE_VERSION@ GUILE_GLIB_CFLAGS = @GUILE_GLIB_CFLAGS@ GUILE_GLIB_LIBS = @GUILE_GLIB_LIBS@ GUILE_LIBS = @GUILE_LIBS@ G_WRAP_CFLAGS = @G_WRAP_CFLAGS@ G_WRAP_LIBS = @G_WRAP_LIBS@ G_WRAP_LIB_DIR = @G_WRAP_LIB_DIR@ G_WRAP_MODULE_DIR = @G_WRAP_MODULE_DIR@ INSTALL = @INSTALL@ INSTALL_DATA = @INSTALL_DATA@ INSTALL_PROGRAM = @INSTALL_PROGRAM@ INSTALL_SCRIPT = @INSTALL_SCRIPT@ INSTALL_STRIP_PROGRAM = @INSTALL_STRIP_PROGRAM@ LD = @LD@ LDFLAGS = @LDFLAGS@ LIBGLADE_CFLAGS = @LIBGLADE_CFLAGS@ LIBGLADE_LIBS = @LIBGLADE_LIBS@ LIBGNOMEUI_CFLAGS = @LIBGNOMEUI_CFLAGS@ LIBGNOMEUI_LIBS = @LIBGNOMEUI_LIBS@ LIBGNOME_CFLAGS = @LIBGNOME_CFLAGS@ LIBGNOME_LIBS = @LIBGNOME_LIBS@ LIBOBJS = @LIBOBJS@ LIBS = @LIBS@ LIBTOOL = @LIBTOOL@ LIPO = @LIPO@ LN_S = @LN_S@ LTLIBOBJS = @LTLIBOBJS@ MAKEINFO = @MAKEINFO@ MANIFEST_TOOL = @MANIFEST_TOOL@ MKDIR_P = @MKDIR_P@ NM = @NM@ NMEDIT = @NMEDIT@ OBJDUMP = @OBJDUMP@ OBJEXT = @OBJEXT@ ORBIT_IDL = @ORBIT_IDL@ OTOOL = @OTOOL@ OTOOL64 = @OTOOL64@ PACKAGE = @PACKAGE@ PACKAGE_BUGREPORT = @PACKAGE_BUGREPORT@ PACKAGE_NAME = @PACKAGE_NAME@ PACKAGE_STRING = @PACKAGE_STRING@ PACKAGE_TARNAME = @PACKAGE_TARNAME@ PACKAGE_URL = @PACKAGE_URL@ PACKAGE_VERSION = @PACKAGE_VERSION@ PANGOCAIRO_CFLAGS = @PANGOCAIRO_CFLAGS@ PANGOCAIRO_LIBS = @PANGOCAIRO_LIBS@ PANGO_CFLAGS = @PANGO_CFLAGS@ PANGO_LIBS = @PANGO_LIBS@ PATH_SEPARATOR = @PATH_SEPARATOR@ PKG_CONFIG = @PKG_CONFIG@ PKG_CONFIG_LIBDIR = @PKG_CONFIG_LIBDIR@ PKG_CONFIG_PATH = @PKG_CONFIG_PATH@ RANLIB = @RANLIB@ SED = @SED@ SET_MAKE = @SET_MAKE@ SHELL = @SHELL@ STRIP = @STRIP@ VERSION = @VERSION@ WARN_CFLAGS = @WARN_CFLAGS@ abs_builddir = @abs_builddir@ abs_srcdir = @abs_srcdir@ abs_top_builddir = @abs_top_builddir@ abs_top_srcdir = @abs_top_srcdir@ ac_ct_AR = @ac_ct_AR@ ac_ct_CC = @ac_ct_CC@ ac_ct_DUMPBIN = @ac_ct_DUMPBIN@ am__include = @am__include@ am__leading_dot = @am__leading_dot@ am__quote = @am__quote@ am__tar = @am__tar@ am__untar = @am__untar@ bindir = @bindir@ build = @build@ build_alias = @build_alias@ build_cpu = @build_cpu@ build_os = @build_os@ build_vendor = @build_vendor@ builddir = @builddir@ datadir = @datadir@ datarootdir = @datarootdir@ docdir = @docdir@ dvidir = @dvidir@ exec_prefix = @exec_prefix@ host = @host@ host_alias = @host_alias@ host_cpu = @host_cpu@ host_os = @host_os@ host_vendor = @host_vendor@ htmldir = @htmldir@ includedir = @includedir@ infodir = @infodir@ install_sh = @install_sh@ libdir = @libdir@ libexecdir = @libexecdir@ localedir = @localedir@ localstatedir = @localstatedir@ mandir = @mandir@ mkdir_p = @mkdir_p@ oldincludedir = @oldincludedir@ pdfdir = @pdfdir@ prefix = @prefix@ program_transform_name = @program_transform_name@ psdir = @psdir@ sbindir = @sbindir@ sharedstatedir = @sharedstatedir@ srcdir = @srcdir@ sysconfdir = @sysconfdir@ target_alias = @target_alias@ top_build_prefix = @top_build_prefix@ top_builddir = @top_builddir@ top_srcdir = @top_srcdir@ AM_CFLAGS = -I. -I$(srcdir) $(WARN_CFLAGS) -Werror -Wno-unused CORBA_SOURCE = \ Foo.h \ Foo-common.c \ Foo-imodule.c idl_flags = --imodule -I $(BONOBO_IDL_DIR) -D__FOO_COMPILATION orbittypelib_LTLIBRARIES = Foo_module.la orbittypelibdir = $(libdir)/orbit-2.0 Foo_module_la_CFLAGS = $(CORBA_CFLAGS) $(AM_CFLAGS) Foo_module_la_SOURCES = Foo-imodule.c Foo-common.c Foo.h Foo_module_la_LIBADD = $(CORBA_LIBS) Foo_module_la_LDFLAGS = -export-dynamic -module BUILT_SOURCES = $(CORBA_SOURCE) CLEANFILES = $(BUILT_SOURCES) EXTRA_DIST = Foo.idl all: $(BUILT_SOURCES) $(MAKE) $(AM_MAKEFLAGS) all-am .SUFFIXES: .SUFFIXES: .c .lo .o .obj $(srcdir)/Makefile.in: $(srcdir)/Makefile.am $(am__configure_deps) @for dep in $?; do \ case '$(am__configure_deps)' in \ *$$dep*) \ ( cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh ) \ && { if test -f $@; then exit 0; else break; fi; }; \ exit 1;; \ esac; \ done; \ echo ' cd $(top_srcdir) && $(AUTOMAKE) --gnu corba/demos/corba/Makefile'; \ $(am__cd) $(top_srcdir) && \ $(AUTOMAKE) --gnu corba/demos/corba/Makefile .PRECIOUS: Makefile Makefile: $(srcdir)/Makefile.in $(top_builddir)/config.status @case '$?' in \ *config.status*) \ cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh;; \ *) \ echo ' cd $(top_builddir) && $(SHELL) ./config.status $(subdir)/$@ $(am__depfiles_maybe)'; \ cd $(top_builddir) && $(SHELL) ./config.status $(subdir)/$@ $(am__depfiles_maybe);; \ esac; $(top_builddir)/config.status: $(top_srcdir)/configure $(CONFIG_STATUS_DEPENDENCIES) cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh $(top_srcdir)/configure: $(am__configure_deps) cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh $(ACLOCAL_M4): $(am__aclocal_m4_deps) cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh $(am__aclocal_m4_deps): install-orbittypelibLTLIBRARIES: $(orbittypelib_LTLIBRARIES) @$(NORMAL_INSTALL) @list='$(orbittypelib_LTLIBRARIES)'; test -n "$(orbittypelibdir)" || list=; \ list2=; for p in $$list; do \ if test -f $$p; then \ list2="$$list2 $$p"; \ else :; fi; \ done; \ test -z "$$list2" || { \ echo " $(MKDIR_P) '$(DESTDIR)$(orbittypelibdir)'"; \ $(MKDIR_P) "$(DESTDIR)$(orbittypelibdir)" || exit 1; \ echo " $(LIBTOOL) $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=install $(INSTALL) $(INSTALL_STRIP_FLAG) $$list2 '$(DESTDIR)$(orbittypelibdir)'"; \ $(LIBTOOL) $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=install $(INSTALL) $(INSTALL_STRIP_FLAG) $$list2 "$(DESTDIR)$(orbittypelibdir)"; \ } uninstall-orbittypelibLTLIBRARIES: @$(NORMAL_UNINSTALL) @list='$(orbittypelib_LTLIBRARIES)'; test -n "$(orbittypelibdir)" || list=; \ for p in $$list; do \ $(am__strip_dir) \ echo " $(LIBTOOL) $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=uninstall rm -f '$(DESTDIR)$(orbittypelibdir)/$$f'"; \ $(LIBTOOL) $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=uninstall rm -f "$(DESTDIR)$(orbittypelibdir)/$$f"; \ done clean-orbittypelibLTLIBRARIES: -test -z "$(orbittypelib_LTLIBRARIES)" || rm -f $(orbittypelib_LTLIBRARIES) @list='$(orbittypelib_LTLIBRARIES)'; for p in $$list; do \ dir="`echo $$p | sed -e 's|/[^/]*$$||'`"; \ test "$$dir" != "$$p" || dir=.; \ echo "rm -f \"$${dir}/so_locations\""; \ rm -f "$${dir}/so_locations"; \ done Foo_module.la: $(Foo_module_la_OBJECTS) $(Foo_module_la_DEPENDENCIES) $(EXTRA_Foo_module_la_DEPENDENCIES) $(Foo_module_la_LINK) -rpath $(orbittypelibdir) $(Foo_module_la_OBJECTS) $(Foo_module_la_LIBADD) $(LIBS) mostlyclean-compile: -rm -f *.$(OBJEXT) distclean-compile: -rm -f *.tab.c @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/Foo_module_la-Foo-common.Plo@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/Foo_module_la-Foo-imodule.Plo@am__quote@ .c.o: @am__fastdepCC_TRUE@ $(COMPILE) -MT $@ -MD -MP -MF $(DEPDIR)/$*.Tpo -c -o $@ $< @am__fastdepCC_TRUE@ $(am__mv) $(DEPDIR)/$*.Tpo $(DEPDIR)/$*.Po @AMDEP_TRUE@@am__fastdepCC_FALSE@ source='$<' object='$@' libtool=no @AMDEPBACKSLASH@ @AMDEP_TRUE@@am__fastdepCC_FALSE@ DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@ @am__fastdepCC_FALSE@ $(COMPILE) -c $< .c.obj: @am__fastdepCC_TRUE@ $(COMPILE) -MT $@ -MD -MP -MF $(DEPDIR)/$*.Tpo -c -o $@ `$(CYGPATH_W) '$<'` @am__fastdepCC_TRUE@ $(am__mv) $(DEPDIR)/$*.Tpo $(DEPDIR)/$*.Po @AMDEP_TRUE@@am__fastdepCC_FALSE@ source='$<' object='$@' libtool=no @AMDEPBACKSLASH@ @AMDEP_TRUE@@am__fastdepCC_FALSE@ DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@ @am__fastdepCC_FALSE@ $(COMPILE) -c `$(CYGPATH_W) '$<'` .c.lo: @am__fastdepCC_TRUE@ $(LTCOMPILE) -MT $@ -MD -MP -MF $(DEPDIR)/$*.Tpo -c -o $@ $< @am__fastdepCC_TRUE@ $(am__mv) $(DEPDIR)/$*.Tpo $(DEPDIR)/$*.Plo @AMDEP_TRUE@@am__fastdepCC_FALSE@ source='$<' object='$@' libtool=yes @AMDEPBACKSLASH@ @AMDEP_TRUE@@am__fastdepCC_FALSE@ DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@ @am__fastdepCC_FALSE@ $(LTCOMPILE) -c -o $@ $< Foo_module_la-Foo-imodule.lo: Foo-imodule.c @am__fastdepCC_TRUE@ $(LIBTOOL) --tag=CC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(AM_CPPFLAGS) $(CPPFLAGS) $(Foo_module_la_CFLAGS) $(CFLAGS) -MT Foo_module_la-Foo-imodule.lo -MD -MP -MF $(DEPDIR)/Foo_module_la-Foo-imodule.Tpo -c -o Foo_module_la-Foo-imodule.lo `test -f 'Foo-imodule.c' || echo '$(srcdir)/'`Foo-imodule.c @am__fastdepCC_TRUE@ $(am__mv) $(DEPDIR)/Foo_module_la-Foo-imodule.Tpo $(DEPDIR)/Foo_module_la-Foo-imodule.Plo @AMDEP_TRUE@@am__fastdepCC_FALSE@ source='Foo-imodule.c' object='Foo_module_la-Foo-imodule.lo' libtool=yes @AMDEPBACKSLASH@ @AMDEP_TRUE@@am__fastdepCC_FALSE@ DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@ @am__fastdepCC_FALSE@ $(LIBTOOL) --tag=CC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(AM_CPPFLAGS) $(CPPFLAGS) $(Foo_module_la_CFLAGS) $(CFLAGS) -c -o Foo_module_la-Foo-imodule.lo `test -f 'Foo-imodule.c' || echo '$(srcdir)/'`Foo-imodule.c Foo_module_la-Foo-common.lo: Foo-common.c @am__fastdepCC_TRUE@ $(LIBTOOL) --tag=CC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(AM_CPPFLAGS) $(CPPFLAGS) $(Foo_module_la_CFLAGS) $(CFLAGS) -MT Foo_module_la-Foo-common.lo -MD -MP -MF $(DEPDIR)/Foo_module_la-Foo-common.Tpo -c -o Foo_module_la-Foo-common.lo `test -f 'Foo-common.c' || echo '$(srcdir)/'`Foo-common.c @am__fastdepCC_TRUE@ $(am__mv) $(DEPDIR)/Foo_module_la-Foo-common.Tpo $(DEPDIR)/Foo_module_la-Foo-common.Plo @AMDEP_TRUE@@am__fastdepCC_FALSE@ source='Foo-common.c' object='Foo_module_la-Foo-common.lo' libtool=yes @AMDEPBACKSLASH@ @AMDEP_TRUE@@am__fastdepCC_FALSE@ DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@ @am__fastdepCC_FALSE@ $(LIBTOOL) --tag=CC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(AM_CPPFLAGS) $(CPPFLAGS) $(Foo_module_la_CFLAGS) $(CFLAGS) -c -o Foo_module_la-Foo-common.lo `test -f 'Foo-common.c' || echo '$(srcdir)/'`Foo-common.c mostlyclean-libtool: -rm -f *.lo clean-libtool: -rm -rf .libs _libs ID: $(HEADERS) $(SOURCES) $(LISP) $(TAGS_FILES) list='$(SOURCES) $(HEADERS) $(LISP) $(TAGS_FILES)'; \ unique=`for i in $$list; do \ if test -f "$$i"; then echo $$i; else echo $(srcdir)/$$i; fi; \ done | \ $(AWK) '{ files[$$0] = 1; nonempty = 1; } \ END { if (nonempty) { for (i in files) print i; }; }'`; \ mkid -fID $$unique tags: TAGS TAGS: $(HEADERS) $(SOURCES) $(TAGS_DEPENDENCIES) \ $(TAGS_FILES) $(LISP) set x; \ here=`pwd`; \ list='$(SOURCES) $(HEADERS) $(LISP) $(TAGS_FILES)'; \ unique=`for i in $$list; do \ if test -f "$$i"; then echo $$i; else echo $(srcdir)/$$i; fi; \ done | \ $(AWK) '{ files[$$0] = 1; nonempty = 1; } \ END { if (nonempty) { for (i in files) print i; }; }'`; \ shift; \ if test -z "$(ETAGS_ARGS)$$*$$unique"; then :; else \ test -n "$$unique" || unique=$$empty_fix; \ if test $$# -gt 0; then \ $(ETAGS) $(ETAGSFLAGS) $(AM_ETAGSFLAGS) $(ETAGS_ARGS) \ "$$@" $$unique; \ else \ $(ETAGS) $(ETAGSFLAGS) $(AM_ETAGSFLAGS) $(ETAGS_ARGS) \ $$unique; \ fi; \ fi ctags: CTAGS CTAGS: $(HEADERS) $(SOURCES) $(TAGS_DEPENDENCIES) \ $(TAGS_FILES) $(LISP) list='$(SOURCES) $(HEADERS) $(LISP) $(TAGS_FILES)'; \ unique=`for i in $$list; do \ if test -f "$$i"; then echo $$i; else echo $(srcdir)/$$i; fi; \ done | \ $(AWK) '{ files[$$0] = 1; nonempty = 1; } \ END { if (nonempty) { for (i in files) print i; }; }'`; \ test -z "$(CTAGS_ARGS)$$unique" \ || $(CTAGS) $(CTAGSFLAGS) $(AM_CTAGSFLAGS) $(CTAGS_ARGS) \ $$unique GTAGS: here=`$(am__cd) $(top_builddir) && pwd` \ && $(am__cd) $(top_srcdir) \ && gtags -i $(GTAGS_ARGS) "$$here" distclean-tags: -rm -f TAGS ID GTAGS GRTAGS GSYMS GPATH tags distdir: $(DISTFILES) @srcdirstrip=`echo "$(srcdir)" | sed 's/[].[^$$\\*]/\\\\&/g'`; \ topsrcdirstrip=`echo "$(top_srcdir)" | sed 's/[].[^$$\\*]/\\\\&/g'`; \ list='$(DISTFILES)'; \ dist_files=`for file in $$list; do echo $$file; done | \ sed -e "s|^$$srcdirstrip/||;t" \ -e "s|^$$topsrcdirstrip/|$(top_builddir)/|;t"`; \ case $$dist_files in \ */*) $(MKDIR_P) `echo "$$dist_files" | \ sed '/\//!d;s|^|$(distdir)/|;s,/[^/]*$$,,' | \ sort -u` ;; \ esac; \ for file in $$dist_files; do \ if test -f $$file || test -d $$file; then d=.; else d=$(srcdir); fi; \ if test -d $$d/$$file; then \ dir=`echo "/$$file" | sed -e 's,/[^/]*$$,,'`; \ if test -d "$(distdir)/$$file"; then \ find "$(distdir)/$$file" -type d ! -perm -700 -exec chmod u+rwx {} \;; \ fi; \ if test -d $(srcdir)/$$file && test $$d != $(srcdir); then \ cp -fpR $(srcdir)/$$file "$(distdir)$$dir" || exit 1; \ find "$(distdir)/$$file" -type d ! -perm -700 -exec chmod u+rwx {} \;; \ fi; \ cp -fpR $$d/$$file "$(distdir)$$dir" || exit 1; \ else \ test -f "$(distdir)/$$file" \ || cp -p $$d/$$file "$(distdir)/$$file" \ || exit 1; \ fi; \ done check-am: all-am check: $(BUILT_SOURCES) $(MAKE) $(AM_MAKEFLAGS) check-am all-am: Makefile $(LTLIBRARIES) installdirs: for dir in "$(DESTDIR)$(orbittypelibdir)"; do \ test -z "$$dir" || $(MKDIR_P) "$$dir"; \ done install: $(BUILT_SOURCES) $(MAKE) $(AM_MAKEFLAGS) install-am install-exec: install-exec-am install-data: install-data-am uninstall: uninstall-am install-am: all-am @$(MAKE) $(AM_MAKEFLAGS) install-exec-am install-data-am installcheck: installcheck-am install-strip: if test -z '$(STRIP)'; then \ $(MAKE) $(AM_MAKEFLAGS) INSTALL_PROGRAM="$(INSTALL_STRIP_PROGRAM)" \ install_sh_PROGRAM="$(INSTALL_STRIP_PROGRAM)" INSTALL_STRIP_FLAG=-s \ install; \ else \ $(MAKE) $(AM_MAKEFLAGS) INSTALL_PROGRAM="$(INSTALL_STRIP_PROGRAM)" \ install_sh_PROGRAM="$(INSTALL_STRIP_PROGRAM)" INSTALL_STRIP_FLAG=-s \ "INSTALL_PROGRAM_ENV=STRIPPROG='$(STRIP)'" install; \ fi mostlyclean-generic: clean-generic: -test -z "$(CLEANFILES)" || rm -f $(CLEANFILES) distclean-generic: -test -z "$(CONFIG_CLEAN_FILES)" || rm -f $(CONFIG_CLEAN_FILES) -test . = "$(srcdir)" || test -z "$(CONFIG_CLEAN_VPATH_FILES)" || rm -f $(CONFIG_CLEAN_VPATH_FILES) maintainer-clean-generic: @echo "This command is intended for maintainers to use" @echo "it deletes files that may require special tools to rebuild." -test -z "$(BUILT_SOURCES)" || rm -f $(BUILT_SOURCES) clean: clean-am clean-am: clean-generic clean-libtool clean-orbittypelibLTLIBRARIES \ mostlyclean-am distclean: distclean-am -rm -rf ./$(DEPDIR) -rm -f Makefile distclean-am: clean-am distclean-compile distclean-generic \ distclean-tags dvi: dvi-am dvi-am: html: html-am html-am: info: info-am info-am: install-data-am: install-orbittypelibLTLIBRARIES install-dvi: install-dvi-am install-dvi-am: install-exec-am: install-html: install-html-am install-html-am: install-info: install-info-am install-info-am: install-man: install-pdf: install-pdf-am install-pdf-am: install-ps: install-ps-am install-ps-am: installcheck-am: maintainer-clean: maintainer-clean-am -rm -rf ./$(DEPDIR) -rm -f Makefile maintainer-clean-am: distclean-am maintainer-clean-generic mostlyclean: mostlyclean-am mostlyclean-am: mostlyclean-compile mostlyclean-generic \ mostlyclean-libtool pdf: pdf-am pdf-am: ps: ps-am ps-am: uninstall-am: uninstall-orbittypelibLTLIBRARIES .MAKE: all check install install-am install-strip .PHONY: CTAGS GTAGS all all-am check check-am clean clean-generic \ clean-libtool clean-orbittypelibLTLIBRARIES ctags distclean \ distclean-compile distclean-generic distclean-libtool \ distclean-tags distdir dvi dvi-am html html-am info info-am \ install install-am install-data install-data-am install-dvi \ install-dvi-am install-exec install-exec-am install-html \ install-html-am install-info install-info-am install-man \ install-orbittypelibLTLIBRARIES install-pdf install-pdf-am \ install-ps install-ps-am install-strip installcheck \ installcheck-am installdirs maintainer-clean \ maintainer-clean-generic mostlyclean mostlyclean-compile \ mostlyclean-generic mostlyclean-libtool pdf pdf-am ps ps-am \ tags uninstall uninstall-am uninstall-orbittypelibLTLIBRARIES $(CORBA_SOURCE): $(srcdir)/Foo.idl $(ORBIT_IDL) $(ORBIT_IDL) $(idl_flags) $(srcdir)/Foo.idl # Tell versions [3.59,3.63) of GNU make to not export all variables. # Otherwise a system limit (for SysV at least) may be exceeded. .NOEXPORT: guile-gnome-platform-2.16.2/corba/demos/corba/Foo.idl0000644000175000017500000000073411670374302022673 0ustar00wingowingo00000000000000module Foo { struct MyType { short eins; long zwei; }; module Bar { interface Baz { void haveFun (in short a, in boolean b); }; }; interface Hello { exception MyException { }; typedef long MyLong; void doHello (); }; interface MaximumHello : Bar::Baz, Hello { void haveMoreFun (); void haveFunWithAnArgument (in long argument, in short foo); }; interface InheritanceTest : MaximumHello { void theMegaTest (); }; }; guile-gnome-platform-2.16.2/corba/demos/corba/Foo-imodule.c0000644000175000017500000000107611752517532024006 0ustar00wingowingo00000000000000/* * This file was generated by orbit-idl-2 - DO NOT EDIT! */ #include #define ORBIT_IDL_C_IMODULE_Foo #include "Foo-common.c" #include static CORBA_TypeCode Foo__itypes[] = { TC_Foo_MyType, TC_Foo_Hello_MyException, TC_Foo_Hello_MyLong, NULL }; static ORBit_IInterface *Foo__iinterfaces[] = { &Foo_Bar_Baz__iinterface, &Foo_Hello__iinterface, &Foo_MaximumHello__iinterface, &Foo_InheritanceTest__iinterface, NULL }; ORBit_IModule orbit_imodule_data = { 20, Foo__iinterfaces, { 3, 3, Foo__itypes, FALSE } }; guile-gnome-platform-2.16.2/corba/demos/Makefile.in0000644000175000017500000004531611752511065022442 0ustar00wingowingo00000000000000# Makefile.in generated by automake 1.11.5 from Makefile.am. # @configure_input@ # Copyright (C) 1994, 1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, # 2003, 2004, 2005, 2006, 2007, 2008, 2009, 2010, 2011 Free Software # Foundation, Inc. # This Makefile.in is free software; the Free Software Foundation # gives unlimited permission to copy and/or distribute it, # with or without modifications, as long as this notice is preserved. # This program is distributed in the hope that it will be useful, # but WITHOUT ANY WARRANTY, to the extent permitted by law; without # even the implied warranty of MERCHANTABILITY or FITNESS FOR A # PARTICULAR PURPOSE. @SET_MAKE@ VPATH = @srcdir@ am__make_dryrun = \ { \ am__dry=no; \ case $$MAKEFLAGS in \ *\\[\ \ ]*) \ echo 'am--echo: ; @echo "AM" OK' | $(MAKE) -f - 2>/dev/null \ | grep '^AM OK$$' >/dev/null || am__dry=yes;; \ *) \ for am__flg in $$MAKEFLAGS; do \ case $$am__flg in \ *=*|--*) ;; \ *n*) am__dry=yes; break;; \ esac; \ done;; \ esac; \ test $$am__dry = yes; \ } pkgdatadir = $(datadir)/@PACKAGE@ pkgincludedir = $(includedir)/@PACKAGE@ pkglibdir = $(libdir)/@PACKAGE@ pkglibexecdir = $(libexecdir)/@PACKAGE@ am__cd = CDPATH="$${ZSH_VERSION+.}$(PATH_SEPARATOR)" && cd install_sh_DATA = $(install_sh) -c -m 644 install_sh_PROGRAM = $(install_sh) -c install_sh_SCRIPT = $(install_sh) -c INSTALL_HEADER = $(INSTALL_DATA) transform = $(program_transform_name) NORMAL_INSTALL = : PRE_INSTALL = : POST_INSTALL = : NORMAL_UNINSTALL = : PRE_UNINSTALL = : POST_UNINSTALL = : build_triplet = @build@ host_triplet = @host@ @HAVE_CORBA_TRUE@am__append_1 = corba subdir = corba/demos DIST_COMMON = $(srcdir)/Makefile.am $(srcdir)/Makefile.in ACLOCAL_M4 = $(top_srcdir)/aclocal.m4 am__aclocal_m4_deps = $(top_srcdir)/configure.ac am__configure_deps = $(am__aclocal_m4_deps) $(CONFIGURE_DEPENDENCIES) \ $(ACLOCAL_M4) mkinstalldirs = $(install_sh) -d CONFIG_HEADER = $(top_builddir)/config.h CONFIG_CLEAN_FILES = CONFIG_CLEAN_VPATH_FILES = SOURCES = DIST_SOURCES = RECURSIVE_TARGETS = all-recursive check-recursive dvi-recursive \ html-recursive info-recursive install-data-recursive \ install-dvi-recursive install-exec-recursive \ install-html-recursive install-info-recursive \ install-pdf-recursive install-ps-recursive install-recursive \ installcheck-recursive installdirs-recursive pdf-recursive \ ps-recursive uninstall-recursive am__can_run_installinfo = \ case $$AM_UPDATE_INFO_DIR in \ n|no|NO) false;; \ *) (install-info --version) >/dev/null 2>&1;; \ esac RECURSIVE_CLEAN_TARGETS = mostlyclean-recursive clean-recursive \ distclean-recursive maintainer-clean-recursive AM_RECURSIVE_TARGETS = $(RECURSIVE_TARGETS:-recursive=) \ $(RECURSIVE_CLEAN_TARGETS:-recursive=) tags TAGS ctags CTAGS \ distdir ETAGS = etags CTAGS = ctags DIST_SUBDIRS = corba DISTFILES = $(DIST_COMMON) $(DIST_SOURCES) $(TEXINFOS) $(EXTRA_DIST) am__relativize = \ dir0=`pwd`; \ sed_first='s,^\([^/]*\)/.*$$,\1,'; \ sed_rest='s,^[^/]*/*,,'; \ sed_last='s,^.*/\([^/]*\)$$,\1,'; \ sed_butlast='s,/*[^/]*$$,,'; \ while test -n "$$dir1"; do \ first=`echo "$$dir1" | sed -e "$$sed_first"`; \ if test "$$first" != "."; then \ if test "$$first" = ".."; then \ dir2=`echo "$$dir0" | sed -e "$$sed_last"`/"$$dir2"; \ dir0=`echo "$$dir0" | sed -e "$$sed_butlast"`; \ else \ first2=`echo "$$dir2" | sed -e "$$sed_first"`; \ if test "$$first2" = "$$first"; then \ dir2=`echo "$$dir2" | sed -e "$$sed_rest"`; \ else \ dir2="../$$dir2"; \ fi; \ dir0="$$dir0"/"$$first"; \ fi; \ fi; \ dir1=`echo "$$dir1" | sed -e "$$sed_rest"`; \ done; \ reldir="$$dir2" ACLOCAL = @ACLOCAL@ AG_PKG_CONFIG_PATH = @AG_PKG_CONFIG_PATH@ AMTAR = @AMTAR@ API_VERSION = @API_VERSION@ AR = @AR@ ATK_CFLAGS = @ATK_CFLAGS@ ATK_LIBS = @ATK_LIBS@ AUTOCONF = @AUTOCONF@ AUTOHEADER = @AUTOHEADER@ AUTOMAKE = @AUTOMAKE@ AWK = @AWK@ BONOBO_IDL_DIR = @BONOBO_IDL_DIR@ CANVAS_CFLAGS = @CANVAS_CFLAGS@ CANVAS_LIBS = @CANVAS_LIBS@ CC = @CC@ CCDEPMODE = @CCDEPMODE@ CFLAGS = @CFLAGS@ CORBA_CFLAGS = @CORBA_CFLAGS@ CORBA_LIBS = @CORBA_LIBS@ CPP = @CPP@ CPPFLAGS = @CPPFLAGS@ CYGPATH_W = @CYGPATH_W@ DEFS = @DEFS@ DEPDIR = @DEPDIR@ DLLTOOL = @DLLTOOL@ DSYMUTIL = @DSYMUTIL@ DUMPBIN = @DUMPBIN@ ECHO_C = @ECHO_C@ ECHO_N = @ECHO_N@ ECHO_T = @ECHO_T@ EGREP = @EGREP@ EXEEXT = @EXEEXT@ FGREP = @FGREP@ GCONF_CFLAGS = @GCONF_CFLAGS@ GCONF_LIBS = @GCONF_LIBS@ GDK_CFLAGS = @GDK_CFLAGS@ GDK_LIBS = @GDK_LIBS@ GDK_PIXBUF_CFLAGS = @GDK_PIXBUF_CFLAGS@ GDK_PIXBUF_LIBS = @GDK_PIXBUF_LIBS@ GLIB_CFLAGS = @GLIB_CFLAGS@ GLIB_LIBS = @GLIB_LIBS@ GNOMEUI_DEPRECATION_FLAGS = @GNOMEUI_DEPRECATION_FLAGS@ GNOME_VFS_CFLAGS = @GNOME_VFS_CFLAGS@ GNOME_VFS_DEPRECATED_CFLAGS = @GNOME_VFS_DEPRECATED_CFLAGS@ GNOME_VFS_LIBS = @GNOME_VFS_LIBS@ GOBJECT_CFLAGS = @GOBJECT_CFLAGS@ GOBJECT_LIBS = @GOBJECT_LIBS@ GREP = @GREP@ GTHREAD_CFLAGS = @GTHREAD_CFLAGS@ GTHREAD_LIBS = @GTHREAD_LIBS@ GTK_CFLAGS = @GTK_CFLAGS@ GTK_DEPRECATED_CFLAGS = @GTK_DEPRECATED_CFLAGS@ GTK_LIBS = @GTK_LIBS@ GUILE_CAIRO_CFLAGS = @GUILE_CAIRO_CFLAGS@ GUILE_CAIRO_LIBS = @GUILE_CAIRO_LIBS@ GUILE_CFLAGS = @GUILE_CFLAGS@ GUILE_EFFECTIVE_VERSION = @GUILE_EFFECTIVE_VERSION@ GUILE_GLIB_CFLAGS = @GUILE_GLIB_CFLAGS@ GUILE_GLIB_LIBS = @GUILE_GLIB_LIBS@ GUILE_LIBS = @GUILE_LIBS@ G_WRAP_CFLAGS = @G_WRAP_CFLAGS@ G_WRAP_LIBS = @G_WRAP_LIBS@ G_WRAP_LIB_DIR = @G_WRAP_LIB_DIR@ G_WRAP_MODULE_DIR = @G_WRAP_MODULE_DIR@ INSTALL = @INSTALL@ INSTALL_DATA = @INSTALL_DATA@ INSTALL_PROGRAM = @INSTALL_PROGRAM@ INSTALL_SCRIPT = @INSTALL_SCRIPT@ INSTALL_STRIP_PROGRAM = @INSTALL_STRIP_PROGRAM@ LD = @LD@ LDFLAGS = @LDFLAGS@ LIBGLADE_CFLAGS = @LIBGLADE_CFLAGS@ LIBGLADE_LIBS = @LIBGLADE_LIBS@ LIBGNOMEUI_CFLAGS = @LIBGNOMEUI_CFLAGS@ LIBGNOMEUI_LIBS = @LIBGNOMEUI_LIBS@ LIBGNOME_CFLAGS = @LIBGNOME_CFLAGS@ LIBGNOME_LIBS = @LIBGNOME_LIBS@ LIBOBJS = @LIBOBJS@ LIBS = @LIBS@ LIBTOOL = @LIBTOOL@ LIPO = @LIPO@ LN_S = @LN_S@ LTLIBOBJS = @LTLIBOBJS@ MAKEINFO = @MAKEINFO@ MANIFEST_TOOL = @MANIFEST_TOOL@ MKDIR_P = @MKDIR_P@ NM = @NM@ NMEDIT = @NMEDIT@ OBJDUMP = @OBJDUMP@ OBJEXT = @OBJEXT@ ORBIT_IDL = @ORBIT_IDL@ OTOOL = @OTOOL@ OTOOL64 = @OTOOL64@ PACKAGE = @PACKAGE@ PACKAGE_BUGREPORT = @PACKAGE_BUGREPORT@ PACKAGE_NAME = @PACKAGE_NAME@ PACKAGE_STRING = @PACKAGE_STRING@ PACKAGE_TARNAME = @PACKAGE_TARNAME@ PACKAGE_URL = @PACKAGE_URL@ PACKAGE_VERSION = @PACKAGE_VERSION@ PANGOCAIRO_CFLAGS = @PANGOCAIRO_CFLAGS@ PANGOCAIRO_LIBS = @PANGOCAIRO_LIBS@ PANGO_CFLAGS = @PANGO_CFLAGS@ PANGO_LIBS = @PANGO_LIBS@ PATH_SEPARATOR = @PATH_SEPARATOR@ PKG_CONFIG = @PKG_CONFIG@ PKG_CONFIG_LIBDIR = @PKG_CONFIG_LIBDIR@ PKG_CONFIG_PATH = @PKG_CONFIG_PATH@ RANLIB = @RANLIB@ SED = @SED@ SET_MAKE = @SET_MAKE@ SHELL = @SHELL@ STRIP = @STRIP@ VERSION = @VERSION@ WARN_CFLAGS = @WARN_CFLAGS@ abs_builddir = @abs_builddir@ abs_srcdir = @abs_srcdir@ abs_top_builddir = @abs_top_builddir@ abs_top_srcdir = @abs_top_srcdir@ ac_ct_AR = @ac_ct_AR@ ac_ct_CC = @ac_ct_CC@ ac_ct_DUMPBIN = @ac_ct_DUMPBIN@ am__include = @am__include@ am__leading_dot = @am__leading_dot@ am__quote = @am__quote@ am__tar = @am__tar@ am__untar = @am__untar@ bindir = @bindir@ build = @build@ build_alias = @build_alias@ build_cpu = @build_cpu@ build_os = @build_os@ build_vendor = @build_vendor@ builddir = @builddir@ datadir = @datadir@ datarootdir = @datarootdir@ docdir = @docdir@ dvidir = @dvidir@ exec_prefix = @exec_prefix@ host = @host@ host_alias = @host_alias@ host_cpu = @host_cpu@ host_os = @host_os@ host_vendor = @host_vendor@ htmldir = @htmldir@ includedir = @includedir@ infodir = @infodir@ install_sh = @install_sh@ libdir = @libdir@ libexecdir = @libexecdir@ localedir = @localedir@ localstatedir = @localstatedir@ mandir = @mandir@ mkdir_p = @mkdir_p@ oldincludedir = @oldincludedir@ pdfdir = @pdfdir@ prefix = @prefix@ program_transform_name = @program_transform_name@ psdir = @psdir@ sbindir = @sbindir@ sharedstatedir = @sharedstatedir@ srcdir = @srcdir@ sysconfdir = @sysconfdir@ target_alias = @target_alias@ top_build_prefix = @top_build_prefix@ top_builddir = @top_builddir@ top_srcdir = @top_srcdir@ SUBDIRS = $(am__append_1) all: all-recursive .SUFFIXES: $(srcdir)/Makefile.in: $(srcdir)/Makefile.am $(am__configure_deps) @for dep in $?; do \ case '$(am__configure_deps)' in \ *$$dep*) \ ( cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh ) \ && { if test -f $@; then exit 0; else break; fi; }; \ exit 1;; \ esac; \ done; \ echo ' cd $(top_srcdir) && $(AUTOMAKE) --gnu corba/demos/Makefile'; \ $(am__cd) $(top_srcdir) && \ $(AUTOMAKE) --gnu corba/demos/Makefile .PRECIOUS: Makefile Makefile: $(srcdir)/Makefile.in $(top_builddir)/config.status @case '$?' in \ *config.status*) \ cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh;; \ *) \ echo ' cd $(top_builddir) && $(SHELL) ./config.status $(subdir)/$@ $(am__depfiles_maybe)'; \ cd $(top_builddir) && $(SHELL) ./config.status $(subdir)/$@ $(am__depfiles_maybe);; \ esac; $(top_builddir)/config.status: $(top_srcdir)/configure $(CONFIG_STATUS_DEPENDENCIES) cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh $(top_srcdir)/configure: $(am__configure_deps) cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh $(ACLOCAL_M4): $(am__aclocal_m4_deps) cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh $(am__aclocal_m4_deps): mostlyclean-libtool: -rm -f *.lo clean-libtool: -rm -rf .libs _libs # This directory's subdirectories are mostly independent; you can cd # into them and run `make' without going through this Makefile. # To change the values of `make' variables: instead of editing Makefiles, # (1) if the variable is set in `config.status', edit `config.status' # (which will cause the Makefiles to be regenerated when you run `make'); # (2) otherwise, pass the desired values on the `make' command line. $(RECURSIVE_TARGETS): @fail= failcom='exit 1'; \ for f in x $$MAKEFLAGS; do \ case $$f in \ *=* | --[!k]*);; \ *k*) failcom='fail=yes';; \ esac; \ done; \ dot_seen=no; \ target=`echo $@ | sed s/-recursive//`; \ list='$(SUBDIRS)'; for subdir in $$list; do \ echo "Making $$target in $$subdir"; \ if test "$$subdir" = "."; then \ dot_seen=yes; \ local_target="$$target-am"; \ else \ local_target="$$target"; \ fi; \ ($(am__cd) $$subdir && $(MAKE) $(AM_MAKEFLAGS) $$local_target) \ || eval $$failcom; \ done; \ if test "$$dot_seen" = "no"; then \ $(MAKE) $(AM_MAKEFLAGS) "$$target-am" || exit 1; \ fi; test -z "$$fail" $(RECURSIVE_CLEAN_TARGETS): @fail= failcom='exit 1'; \ for f in x $$MAKEFLAGS; do \ case $$f in \ *=* | --[!k]*);; \ *k*) failcom='fail=yes';; \ esac; \ done; \ dot_seen=no; \ case "$@" in \ distclean-* | maintainer-clean-*) list='$(DIST_SUBDIRS)' ;; \ *) list='$(SUBDIRS)' ;; \ esac; \ rev=''; for subdir in $$list; do \ if test "$$subdir" = "."; then :; else \ rev="$$subdir $$rev"; \ fi; \ done; \ rev="$$rev ."; \ target=`echo $@ | sed s/-recursive//`; \ for subdir in $$rev; do \ echo "Making $$target in $$subdir"; \ if test "$$subdir" = "."; then \ local_target="$$target-am"; \ else \ local_target="$$target"; \ fi; \ ($(am__cd) $$subdir && $(MAKE) $(AM_MAKEFLAGS) $$local_target) \ || eval $$failcom; \ done && test -z "$$fail" tags-recursive: list='$(SUBDIRS)'; for subdir in $$list; do \ test "$$subdir" = . || ($(am__cd) $$subdir && $(MAKE) $(AM_MAKEFLAGS) tags); \ done ctags-recursive: list='$(SUBDIRS)'; for subdir in $$list; do \ test "$$subdir" = . || ($(am__cd) $$subdir && $(MAKE) $(AM_MAKEFLAGS) ctags); \ done ID: $(HEADERS) $(SOURCES) $(LISP) $(TAGS_FILES) list='$(SOURCES) $(HEADERS) $(LISP) $(TAGS_FILES)'; \ unique=`for i in $$list; do \ if test -f "$$i"; then echo $$i; else echo $(srcdir)/$$i; fi; \ done | \ $(AWK) '{ files[$$0] = 1; nonempty = 1; } \ END { if (nonempty) { for (i in files) print i; }; }'`; \ mkid -fID $$unique tags: TAGS TAGS: tags-recursive $(HEADERS) $(SOURCES) $(TAGS_DEPENDENCIES) \ $(TAGS_FILES) $(LISP) set x; \ here=`pwd`; \ if ($(ETAGS) --etags-include --version) >/dev/null 2>&1; then \ include_option=--etags-include; \ empty_fix=.; \ else \ include_option=--include; \ empty_fix=; \ fi; \ list='$(SUBDIRS)'; for subdir in $$list; do \ if test "$$subdir" = .; then :; else \ test ! -f $$subdir/TAGS || \ set "$$@" "$$include_option=$$here/$$subdir/TAGS"; \ fi; \ done; \ list='$(SOURCES) $(HEADERS) $(LISP) $(TAGS_FILES)'; \ unique=`for i in $$list; do \ if test -f "$$i"; then echo $$i; else echo $(srcdir)/$$i; fi; \ done | \ $(AWK) '{ files[$$0] = 1; nonempty = 1; } \ END { if (nonempty) { for (i in files) print i; }; }'`; \ shift; \ if test -z "$(ETAGS_ARGS)$$*$$unique"; then :; else \ test -n "$$unique" || unique=$$empty_fix; \ if test $$# -gt 0; then \ $(ETAGS) $(ETAGSFLAGS) $(AM_ETAGSFLAGS) $(ETAGS_ARGS) \ "$$@" $$unique; \ else \ $(ETAGS) $(ETAGSFLAGS) $(AM_ETAGSFLAGS) $(ETAGS_ARGS) \ $$unique; \ fi; \ fi ctags: CTAGS CTAGS: ctags-recursive $(HEADERS) $(SOURCES) $(TAGS_DEPENDENCIES) \ $(TAGS_FILES) $(LISP) list='$(SOURCES) $(HEADERS) $(LISP) $(TAGS_FILES)'; \ unique=`for i in $$list; do \ if test -f "$$i"; then echo $$i; else echo $(srcdir)/$$i; fi; \ done | \ $(AWK) '{ files[$$0] = 1; nonempty = 1; } \ END { if (nonempty) { for (i in files) print i; }; }'`; \ test -z "$(CTAGS_ARGS)$$unique" \ || $(CTAGS) $(CTAGSFLAGS) $(AM_CTAGSFLAGS) $(CTAGS_ARGS) \ $$unique GTAGS: here=`$(am__cd) $(top_builddir) && pwd` \ && $(am__cd) $(top_srcdir) \ && gtags -i $(GTAGS_ARGS) "$$here" distclean-tags: -rm -f TAGS ID GTAGS GRTAGS GSYMS GPATH tags distdir: $(DISTFILES) @srcdirstrip=`echo "$(srcdir)" | sed 's/[].[^$$\\*]/\\\\&/g'`; \ topsrcdirstrip=`echo "$(top_srcdir)" | sed 's/[].[^$$\\*]/\\\\&/g'`; \ list='$(DISTFILES)'; \ dist_files=`for file in $$list; do echo $$file; done | \ sed -e "s|^$$srcdirstrip/||;t" \ -e "s|^$$topsrcdirstrip/|$(top_builddir)/|;t"`; \ case $$dist_files in \ */*) $(MKDIR_P) `echo "$$dist_files" | \ sed '/\//!d;s|^|$(distdir)/|;s,/[^/]*$$,,' | \ sort -u` ;; \ esac; \ for file in $$dist_files; do \ if test -f $$file || test -d $$file; then d=.; else d=$(srcdir); fi; \ if test -d $$d/$$file; then \ dir=`echo "/$$file" | sed -e 's,/[^/]*$$,,'`; \ if test -d "$(distdir)/$$file"; then \ find "$(distdir)/$$file" -type d ! -perm -700 -exec chmod u+rwx {} \;; \ fi; \ if test -d $(srcdir)/$$file && test $$d != $(srcdir); then \ cp -fpR $(srcdir)/$$file "$(distdir)$$dir" || exit 1; \ find "$(distdir)/$$file" -type d ! -perm -700 -exec chmod u+rwx {} \;; \ fi; \ cp -fpR $$d/$$file "$(distdir)$$dir" || exit 1; \ else \ test -f "$(distdir)/$$file" \ || cp -p $$d/$$file "$(distdir)/$$file" \ || exit 1; \ fi; \ done @list='$(DIST_SUBDIRS)'; for subdir in $$list; do \ if test "$$subdir" = .; then :; else \ $(am__make_dryrun) \ || test -d "$(distdir)/$$subdir" \ || $(MKDIR_P) "$(distdir)/$$subdir" \ || exit 1; \ dir1=$$subdir; dir2="$(distdir)/$$subdir"; \ $(am__relativize); \ new_distdir=$$reldir; \ dir1=$$subdir; dir2="$(top_distdir)"; \ $(am__relativize); \ new_top_distdir=$$reldir; \ echo " (cd $$subdir && $(MAKE) $(AM_MAKEFLAGS) top_distdir="$$new_top_distdir" distdir="$$new_distdir" \\"; \ echo " am__remove_distdir=: am__skip_length_check=: am__skip_mode_fix=: distdir)"; \ ($(am__cd) $$subdir && \ $(MAKE) $(AM_MAKEFLAGS) \ top_distdir="$$new_top_distdir" \ distdir="$$new_distdir" \ am__remove_distdir=: \ am__skip_length_check=: \ am__skip_mode_fix=: \ distdir) \ || exit 1; \ fi; \ done check-am: all-am check: check-recursive all-am: Makefile installdirs: installdirs-recursive installdirs-am: install: install-recursive install-exec: install-exec-recursive install-data: install-data-recursive uninstall: uninstall-recursive install-am: all-am @$(MAKE) $(AM_MAKEFLAGS) install-exec-am install-data-am installcheck: installcheck-recursive install-strip: if test -z '$(STRIP)'; then \ $(MAKE) $(AM_MAKEFLAGS) INSTALL_PROGRAM="$(INSTALL_STRIP_PROGRAM)" \ install_sh_PROGRAM="$(INSTALL_STRIP_PROGRAM)" INSTALL_STRIP_FLAG=-s \ install; \ else \ $(MAKE) $(AM_MAKEFLAGS) INSTALL_PROGRAM="$(INSTALL_STRIP_PROGRAM)" \ install_sh_PROGRAM="$(INSTALL_STRIP_PROGRAM)" INSTALL_STRIP_FLAG=-s \ "INSTALL_PROGRAM_ENV=STRIPPROG='$(STRIP)'" install; \ fi mostlyclean-generic: clean-generic: distclean-generic: -test -z "$(CONFIG_CLEAN_FILES)" || rm -f $(CONFIG_CLEAN_FILES) -test . = "$(srcdir)" || test -z "$(CONFIG_CLEAN_VPATH_FILES)" || rm -f $(CONFIG_CLEAN_VPATH_FILES) maintainer-clean-generic: @echo "This command is intended for maintainers to use" @echo "it deletes files that may require special tools to rebuild." clean: clean-recursive clean-am: clean-generic clean-libtool mostlyclean-am distclean: distclean-recursive -rm -f Makefile distclean-am: clean-am distclean-generic distclean-tags dvi: dvi-recursive dvi-am: html: html-recursive html-am: info: info-recursive info-am: install-data-am: install-dvi: install-dvi-recursive install-dvi-am: install-exec-am: install-html: install-html-recursive install-html-am: install-info: install-info-recursive install-info-am: install-man: install-pdf: install-pdf-recursive install-pdf-am: install-ps: install-ps-recursive install-ps-am: installcheck-am: maintainer-clean: maintainer-clean-recursive -rm -f Makefile maintainer-clean-am: distclean-am maintainer-clean-generic mostlyclean: mostlyclean-recursive mostlyclean-am: mostlyclean-generic mostlyclean-libtool pdf: pdf-recursive pdf-am: ps: ps-recursive ps-am: uninstall-am: .MAKE: $(RECURSIVE_CLEAN_TARGETS) $(RECURSIVE_TARGETS) ctags-recursive \ install-am install-strip tags-recursive .PHONY: $(RECURSIVE_CLEAN_TARGETS) $(RECURSIVE_TARGETS) CTAGS GTAGS \ all all-am check check-am clean clean-generic clean-libtool \ ctags ctags-recursive distclean distclean-generic \ distclean-libtool distclean-tags distdir dvi dvi-am html \ html-am info info-am install install-am install-data \ install-data-am install-dvi install-dvi-am install-exec \ install-exec-am install-html install-html-am install-info \ install-info-am install-man install-pdf install-pdf-am \ install-ps install-ps-am install-strip installcheck \ installcheck-am installdirs installdirs-am maintainer-clean \ maintainer-clean-generic mostlyclean mostlyclean-generic \ mostlyclean-libtool pdf pdf-am ps ps-am tags tags-recursive \ uninstall uninstall-am # Tell versions [3.59,3.63) of GNU make to not export all variables. # Otherwise a system limit (for SysV at least) may be exceeded. .NOEXPORT: guile-gnome-platform-2.16.2/corba/README0000644000175000017500000000167111670374302020142 0ustar00wingowingo00000000000000guile-gnome-corba README Copyright (C) 2004 Free Software Foundation, Inc. See the end for copying conditions of this file. Last updated 16 September 2004. About guile-gnome-corba ====================== guile-gnome-corba is a Guile wrapper for CORBA, an interprocess communication library and server. It is a part of GNU guile-gnome, although it is not part of the GNOME platform. See the README file in the toplevel source directory for more information. Build dependencies ================== Besides the base guile-gnome requirements given in ../README, guile-gnome-corba requires ORBit2 development packages. guile-gnome-corba depends on the following guile-gnome modules: glib. Copying this file ================= Copyright (C) 2004 Free Software Foundation, Inc. Copying and distribution of this file, with or without modification, are permitted in any medium without royalty provided the copyright notice and this notice are preserved. guile-gnome-platform-2.16.2/corba/AUTHORS0000644000175000017500000000120211670374302020320 0ustar00wingowingo00000000000000To find out what should go in this file, see "Information For Maintainers of GNU Software" (maintain.texi), the section called "Recording Changes". Martin Baulig: In the directory gnome, wrote: corba.scm In the directory gnome/corba, wrote: guile-gnome-corba.c guile-gnome-corba-primitives.c guile-gnome-corba-generic.c guile-gnome-corba-primitives.h guile-gnome-corba-generic.h guile-gnome-corba-types.c test.c test.scm primitives.scm types.scm In the directory gnome/gw, wrote: corba-spec.scm In the directory demos/corba, wrote: Foo.idl Andy Wingo: In the directory gnome/gw, changes to: corba-spec.scm guile-gnome-platform-2.16.2/corba/ChangeLog.pre-2.160000644000175000017500000002106211670374302022201 0ustar00wingowingo000000000000002008-04-27 Andy Wingo * gnome/corba.scm: Fold the CORBA tutorial foo into here. * doc/guile-gnome-corba.scm (*name*): Update dates. 2008-04-25 Andy Wingo * == Released guile-gnome-platform version 2.15.98 == 2008-04-10 Andy Wingo * == Released guile-gnome-platform version 2.15.97 == 2008-04-10 Andy Wingo * NEWS: Update NEWS. 2008-04-10 Andy Wingo * tests/wrapset.api: Update for corba-typecode->gtype-class change. 2008-04-08 Andy Wingo * gnome/corba/guile-gnome-corba-types.c: Update for (gnome gobject) API changes. * gnome/corba/guile-gnome-corba-primitives.c: Only define BONOBO_EX if it's not defined already. 2007-12-10 Andy Wingo * == Released guile-gnome-platform version 2.15.96 == 2007-12-06 Andy Wingo * Makefile.am: * tests/Makefile.am: * tests/wrapset.scm: * tests/wrapset.api: Add API regression tests. * gnome/corba/Makefile.am: * Makefile.am: * doc/make-texinfo.scm: * doc/guile-gnome-corba.texi: * doc/guile-gnome-corba.scm: * doc/Makefile.am: Add docs and infrastructure for generating docs. Pretty paltry right now, though. 2007-11-10 Andy Wingo * == Released guile-gnome-platform version 2.15.95 == 2007-09-25 Andy Wingo * == Released guile-gnome-platform version 2.15.94 == 2007-09-25 Andy Wingo * NEWS: Updated. 2007-09-01 Andy Wingo * gnome/corba/guile-gnome-corba-types.c (scm_c_corba_demarshal_any): Add a cast to avoid a compiler warning. 2007-06-15 Andy Wingo * == Released guile-gnome-platform version 2.15.93 == 2007-05-24 Andy Wingo * == Released guile-gnome-platform version 2.15.92 == 2007-05-10 Andy Wingo * gnome/corba/guile-gnome-corba-generic.c (guile_corba_generic_make_type_name): Actually, gtype-name->class-name returns a symbol, as it turns out. Update to deal with that. * gnome/corba/guile-gnome-corba-generic.c (guile_corba_generic_make_type_name): Update for guile 1.8's string functions. Fixes part of #416570. * == Released guile-gnome-platform version 2.15.91 == 2006-12-15 Andy Wingo * == Released guile-gnome-platform version 2.15.90 == 2006-11-05 Andy Wingo * gnome/gw/corba-spec.scm: Use (gnome gw support g-wrap), the g-wrap compatibility wrapper. Use #:keywords, not :keywords. 2005-03-06 Andy Wingo * == Released guile-gnome-platform version 2.7.99 == 2005-01-11 Andy Wingo * == Released platform version 2.7.98 == 2004-12-06 Andy Wingo * == Released platform version 2.7.97 == 2004-11-15 Andy Wingo * package.ac: Add record_check. 2004-10-28 Andy Wingo * glib-checks.ac: Versioned pkg-config check. 2004-10-26 Andy Wingo * gnome/corba/Makefile.am (libguile_gnome_corba_@API_VERSION@_la_SOURCES): Version the lib that gets linked to. * gnome/gw/Makefile.am (guilegnomelib_LTLIBRARIES): Install to versioned directory. Link to the versioned lib. 2004-09-19 Andy Wingo * gnome/gw/Makefile.am (libgw_guile_gnome_corba_la_LIBADD): Not G_WRAP_LINK_ARGS, it's G_WRAP_LIBS. * gnome/corba/Makefile.am: Install headers into a versioned directory. * package.ac: Re-enable the CORBA build. * gnome/gw/corba-spec.scm: Move here from ../corba/gw-corba-spec.scm. * gnome/corba/types.scm: Use the right g-wrapped module. * gnome/corba/primitives.scm: Use the right g-wrapped module. * gnome/corba/guile-gnome-corba.c: Include the right guile-gnome-gobject header. * gnome/corba/guile-gnome-corba-types.h: Define ORBIT2_INTERNAL_API when including orbit-object.h so we can get RootObject_duplicate/release. * gnome/corba/guile-gnome-corba-primitives.h: Define ORBIT2_INTERNAL_API when including orbit-object.h so we can get RootObject_duplicate/release. * gnome/corba/guile-gnome-corba-primitives.c: Use the right guile-gnome-gobject headers. (scm_class_slot_ref, _scm_make_class, scm_class_slot_set_x): New objects representing the scheme procedures of the same names. (DEBUG): New macro, replaces g_message. Callers updated. (WARN): New macro, replaces g_warning. Callers updated. (FOREACH_LIST): New macro, does car/cdr recursion on a list. (scm_init_gnome_corba_primitives): Initialize the scheme objects. * gnome/corba/Makefile.am: Be more like the glib/gobject Makefile.am. Only define -DORBIT2_STUBS_API, not INTERNAL. * gnome/corba.scm: Use the right g-wrapped module. * gnome/Makefile.am: Add gw/ to the SUBDIRS list. * demos/corba/Makefile.am: Mark the .c and .h files as being generated. Install to $(libdir)/orbit-2.0. * gnome/corba/guile-gnome-corba-generic.[ch] (guile_corba_generic_make_type_name): Don't take a format argument. Callers within the .c file changed. * gnome/corba/types.scm: Use proper g-wrapped module. * gnome/gw/corba-spec.scm: Adapt to new g-wrap API. * gnome/corba/guile-gnome-corba-primitives.c (s_scm_corba_primitive_find_poa_class): Use car/cdr recursion rather than i++/list-ref. (guile_corba_sys_register_interface): small_relay_call was changed to impl_finder, as far as I can tell. 2004-09-18 Andy Wingo * gnome/corba/guile-gnome-corba-types.c (scm_c_corba_demarshal_any): Adapt to changes in guile-gobject C API. * The source was pruned from the original guile-gobject package, leaving only CORBA-related files. The build system was adapted for guile-gnome-pkg. NEWS, AUTHORS, and README files were updated. * ChangeLogs merged. 2003-11-25 Andreas Rottmann * gnome/corba/Makefile.am (GUILE_SNARF_CFLAGS): Added $(G_WRAP_FLAGS). * gnome/corba/gw-corba-spec.scm: Use gw-standard instead of guile-gnome-gw-standard. 2003-10-22 Andreas Rottmann * gnome/corba/guile-gnome-corba-primitives.c: Use for "" instead of <> for our own headers. * gnome/corba/guile-gnome-corba-primitives.c: Get rid of gh_* usage. * gnome/corba/guile-gnome-corba-primitives.h, guile-gnome-corba-primitives.c, guile-gnome-corba-types.c, guile-gnome-corba-types.h: Use scm_t_bits instead of scm_bits_t. * gnome/corba/guile-gnome-corba-primitives.h, guile-gnome-corba-primitives.c: Use SCM_VECTOR_SET and SCM_VECTOR_REF instead of SCM_VELTS. 2003-10-21 Andreas Rottmann * gnome/Makefile.am (SUBDIRS): Only include gtk and corba if we have detected them. 2002-04-13 Ariel Rios * gnome/corba/guile-gnome-corba-types.c (scm_c_corba_demarshal_any): Correctly use %ld instead of %d and kill warning. 2002-01-28 Ariel Rios * gnome/corba/guile-gnome-corba-primitives.c (guile_corba_sys_register_interface): Kill interface->class.init_vepvmap since vepvmap cache is enabled by default. 2002-01-28 Ariel Rios * gnome/corba/Makefile.am (INCLUDES): Added a -DORBIT2_INTERNAL_API flag. 2002-01-24 Ariel Rios * gnome/corba/guile-gnome-corba-primitives.h: Some clean up. I cannot track one warning, tho. 2001-09-09 Martin Baulig * gnome/corba/Foo.idl: Make it a bit more "complicated" .... * gnome/corba/guile-gnome-corba-primitives.[ch]: Moved the low-level stuff here. * gnome/corba/primitives.scm: The (gnome corba primitives) module. * gnome/corba/types.scm: The (gnome corba types) module. 2001-09-07 Martin Baulig * gnome/corba/Foo.idl: Moved here from ../../corba/. * gnome/corba/guile-corba.[ch]: Renamed to guile-gnome-corba.[ch]. * gnome/corba/guile-corba-types.[ch]: Renamed to guile-gnome-corba-types.[ch]. * gnome/corba/guile-corba-generic.[ch]: Renamed to guile-gnome-corba-generic.[ch]. * gnome/corba/gnomecorba.gwp: Renamed to gnome-corba.gwp. * gnome/corba/orbit-idl-utils.c: Removed. 2001-09-07 Martin Baulig * gnome/corba/Foo.idl: Moved to ../demos/corba/. 2001-09-07 Martin Baulig * configure.in: Check for orbit-idl. (ORBIT_IDL, BONOBO_IDL_DIR): Added. * demos/: New directory. * demos/corba/: New directory. 2001-08-25 Martin Baulig * gnome/corba/guile-corba-generic.[ch]: New files. This contains non-Scheme stuff which is generally useful. 2001-07-09 Martin Baulig * gnome/corba/Makefile.am: Removed the g-wrap stuff for the moment. * gnome/corba/guile-corba.[ch]: We now use guile 1.5.x (from CVS) here. * gnome/corba/ChangeLog: Now we have a ChangeLog here :-) guile-gnome-platform-2.16.2/corba/ChangeLog0000644000175000017500000000006711670374302021032 0ustar00wingowingo00000000000000See the revision control log for changes since 2.16.0. guile-gnome-platform-2.16.2/glib/0000755000175000017500000000000011752546500017106 5ustar00wingowingo00000000000000guile-gnome-platform-2.16.2/glib/TODO0000644000175000017500000000100711670374302017572 0ustar00wingowingo00000000000000-*- outline -*- MUAHAHA! It seems our TODO list is short. Now it's just a question of riding the GNOME development wave. TODO for (gnome gobject) ======================== TODO for (gnome glib) ==================== * wrap necessary parts of glib - quarks * what to do about unicode? can't exactly add support for it until guile itself supports it... TODO for (gnome gtk) ==================== FIX the bit where (gnome gobject generics) molests the root module $Id: TODO,v 1.2 2003/07/03 15:16:02 wingo Exp $ guile-gnome-platform-2.16.2/glib/REFCOUNTING0000644000175000017500000001030711670374302020613 0ustar00wingowingo00000000000000-*- text -*- Some random thoughts about refcounting. Also see refcounting.txt in the gtk distribution. When can we assume that we own a reference on an object returned from a function? => Never, unless the function is a constructor of the object. Even then there are weirdo cases like GtkWindow -- see the gtk api docs, the section about GtkObject. So, we always need to ref once when making a new wrapper around a gobject. /* The GObject wrapper (a short post-hoc re-design statement) ========================================================== Specifications: 1. For each GObject wrapper alive in Guile-land, Guile needs to hold exactly one reference on the GObject. 2. When a wrapper vanishes from Guile-land, i.e., is garbage-collected, Guile needs to drop its reference on the GObject. 3. If a wrapper is created again after having been garbage-collected, we need to have a way of holding state with regards to the wrapped GObject, i.e. object properties. 4. If the GObject itself goes away (not possible if there is a wrapper alive), any state associated with it should go away as well. Stipulation 4 means that the state must not hold a reference on the GObject, and thus cannot be associated with the wrapper. Fortunately, GObject itself provides such a mechanism, g_object_{set,get}_qdata. Therefore we need to provide a special interface so that we can attach arbitrary data to gobjects, as well as provide non-parameterized slots on derived GObjects. Stipulation 2 means that we need a way of knowing when the wrapper is garbage-collected. As far as I know, the only way to do this is via SMOBs. Of course we want the wrapper to be a GOOPS object, though. We have two options for this, either (somehow) representing the wrappers as GOOPS objects that are really SMOBs, or having a special SMOB, existing on a 1-to-1 basis with the wrapper, that will go away when the wrapper goes away. However, we do not want details of this arrangement leaking out into scheme-land. As the latter arrangement is easier to implement, and closer to the historical situation, we choose it over the former. The SMOB is then responsible for the ref and unref of the GObject. If the first reference of the GObject is actually owned by Guile, then the constructor function (i.e. gobject-primitive-create-instance) should unref the object. We might as well use the GObject as the SMOB's data. As long as we can retrieve the SMOB given the wrapper, this allows us to retrieve the GObject when we need to. It would be good, from an optimization perspective, not to unnecessarily create new wrappers when old ones are still alive. A cached piece of qdata on the GObject does the trick (see scm_c_gtype_instance_to_scm in -gobject.c). The cached data is removed when the SMOB is collected. OK, so far so good. The one remaining problem is with regards to closures. We have some more specifications here: 1. A closure connected to a GObject signal should not be collected until either the closure is disconnected, or the object itself (not the wrapper) goes out of existence. 2. Attaching closures to an object should not prevent the object from being freed. Otherwise, any object with a connected signal will live forever. Closures should only have a weak reference on an object. These specifications are mutually exclusive. Stipulation 2 means that a closure cannot be a permanent object, because its environment will always reference the wrapper. But for it to be invoked after the wrapper is collected would mean that its environment would have to be valid, which would always include the wrapper object. So, either the closure must be invalidated and collected when the object is collected (violating stipulation 1), or the object must be immortal as long as it has signals connected to it (violating stipulation 2). Since it is a common idiom to find an object, connect to it, and then forget about it, we will choose to violate stipulation 2. However, when %gtype-instance-primitive-destroy! is called on a GTypeInstance, we invalidate all guile closures. */ guile-gnome-platform-2.16.2/glib/examples/0000755000175000017500000000000011752546500020724 5ustar00wingowingo00000000000000guile-gnome-platform-2.16.2/glib/examples/example-1.scm0000644000175000017500000000621611670374302023224 0ustar00wingowingo00000000000000#! /bin/sh # -*- scheme -*- exec guile-gnome-1 -s $0 !# ;; guile-gnome ;; Copyright (C) 2003,2004 Free Software Foundation, Inc. ;; This program is free software; you can redistribute it and/or ;; modify it under the terms of the GNU General Public License as ;; published by the Free Software Foundation; either version 2 of ;; the License, or (at your option) any later version. ;; ;; This program is distributed in the hope that it will be useful, ;; but WITHOUT ANY WARRANTY; without even the implied warranty of ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the ;; GNU General Public License for more details. ;; ;; You should have received a copy of the GNU General Public License ;; along with this program; if not, contact: ;; ;; Free Software Foundation Voice: +1-617-542-5942 ;; 59 Temple Place - Suite 330 Fax: +1-617-542-2652 ;; Boston, MA 02111-1307, USA gnu@gnu.org (use-modules (oop goops) (gnome gobject)) (debug-enable 'backtrace) (define (p . args) (for-each display args)) (p "\n============\nGObject test\n============\n\n") (p "Let's make a closure...") (define closure (make #:return-type #:param-types (list ) #:func (lambda (x y) (* x 5)))) (p " and invoke it to get the answer " (gclosure-invoke closure (scm->gvalue 6) (scm->gvalue #\a)) ".\n\n") (p "We can derive new object types, like ") (define-class () (my-property #:gparam (list )) #:gsignal (list 'touch-me #f)) (p ".\n\n") (define-method (test:touch-me (obj )) (p "(In the default test::touch-me signal handler)\n")) (define-method (gobject:set-property (obj ) (name ) init-value) (p "(In the test::set-property handler. You can implement your own storage\n" " mechanism, or call (next-method) for a default implementation, as we\n" " are doing now (value " init-value ").)\n") (next-method)) (p "We have instantiated the class " ", but we have not\n" "made any instances of this class. Let's do that.\n") (define test-instance (make )) (p "\nWe can now emit the touch-me signal on our new object, " test-instance ":\n") (gtype-instance-signal-emit test-instance 'touch-me) (p "\nAnd set test::my-property on the new object as well.\n") (gobject-set-property test-instance 'my-property 2112) (p "\nOf course, our objects are all first-class GOOPS objects, so they\n" "can have some nice things as object methods and such:\n") (define-method (my-method (obj )) (p "my-method for object of type .\n")) (define-method (my-method (obj )) (p "my-method for object of type , chaining up...\n") (next-method)) (my-method test-instance) (p "\nShould you ever need to use GValues directly, you can just instantiate\n" "them as objects, e.g. " (make #:value #f) ", \n" (make #:value "Hello World!") ", etc.\n") guile-gnome-platform-2.16.2/glib/examples/Makefile.am0000644000175000017500000000005011670374302022751 0ustar00wingowingo00000000000000EXTRA_DIST = $(wildcard $(srcdir)/*.scm)guile-gnome-platform-2.16.2/glib/examples/main-loop.scm0000755000175000017500000000447711670374302023340 0ustar00wingowingo00000000000000#! /bin/sh # -*- scheme -*- exec guile-gnome-2 -s $0 !# (use-modules (gnome gobject) (gnome glib) (oop goops)) (debug-enable 'backtrace) (define main-context (g-main-context-default)) (define main-loop (g-main-loop-new #f #f)) (define closure-true (make #:return-type #:func (lambda () (display "Called all the time, because I return #t\n") #t))) (define closure-false (make #:return-type #:func (lambda () (display "Called only once, because I return #f\n") #f))) (define closure-countdown (make #:return-type #:func (let ((c 5)) (lambda () (set! c (1- c)) (format #t "~A more times to go...\n" c) (if (> c 0) #t (begin (g-main-loop-quit main-loop) #f)))))) (define sources '()) (for-each (lambda (closure) (let ((s (g-idle-source-new))) (g-source-set-closure s closure) (set! sources (cons (g-source-attach s main-context) sources)))) (list closure-true closure-false closure-countdown)) (g-main-loop-run main-loop) (display "\n\n(clearing all sources)\n\n") (for-each g-source-remove sources) ;; let's try the new g-idle-add and g-timeout-add... (g-idle-add (let ((c 5)) (lambda () (set! c (1- c)) (format #t "Idle counts go quickly! ~A more times to go...\n" c) (if (> c 0) #t #f)))) (g-timeout-add 500 (let ((c 5)) (lambda () (set! c (1- c)) (format #t "Timeout counts come every 500 ms. ~A more times to go...\n" c) (if (> c 0) #t (begin (g-main-loop-quit main-loop) #f))))) (g-main-loop-run main-loop) guile-gnome-platform-2.16.2/glib/examples/Makefile.in0000644000175000017500000002727711752511066023007 0ustar00wingowingo00000000000000# Makefile.in generated by automake 1.11.5 from Makefile.am. # @configure_input@ # Copyright (C) 1994, 1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, # 2003, 2004, 2005, 2006, 2007, 2008, 2009, 2010, 2011 Free Software # Foundation, Inc. # This Makefile.in is free software; the Free Software Foundation # gives unlimited permission to copy and/or distribute it, # with or without modifications, as long as this notice is preserved. # This program is distributed in the hope that it will be useful, # but WITHOUT ANY WARRANTY, to the extent permitted by law; without # even the implied warranty of MERCHANTABILITY or FITNESS FOR A # PARTICULAR PURPOSE. @SET_MAKE@ VPATH = @srcdir@ am__make_dryrun = \ { \ am__dry=no; \ case $$MAKEFLAGS in \ *\\[\ \ ]*) \ echo 'am--echo: ; @echo "AM" OK' | $(MAKE) -f - 2>/dev/null \ | grep '^AM OK$$' >/dev/null || am__dry=yes;; \ *) \ for am__flg in $$MAKEFLAGS; do \ case $$am__flg in \ *=*|--*) ;; \ *n*) am__dry=yes; break;; \ esac; \ done;; \ esac; \ test $$am__dry = yes; \ } pkgdatadir = $(datadir)/@PACKAGE@ pkgincludedir = $(includedir)/@PACKAGE@ pkglibdir = $(libdir)/@PACKAGE@ pkglibexecdir = $(libexecdir)/@PACKAGE@ am__cd = CDPATH="$${ZSH_VERSION+.}$(PATH_SEPARATOR)" && cd install_sh_DATA = $(install_sh) -c -m 644 install_sh_PROGRAM = $(install_sh) -c install_sh_SCRIPT = $(install_sh) -c INSTALL_HEADER = $(INSTALL_DATA) transform = $(program_transform_name) NORMAL_INSTALL = : PRE_INSTALL = : POST_INSTALL = : NORMAL_UNINSTALL = : PRE_UNINSTALL = : POST_UNINSTALL = : build_triplet = @build@ host_triplet = @host@ subdir = glib/examples DIST_COMMON = $(srcdir)/Makefile.am $(srcdir)/Makefile.in ACLOCAL_M4 = $(top_srcdir)/aclocal.m4 am__aclocal_m4_deps = $(top_srcdir)/configure.ac am__configure_deps = $(am__aclocal_m4_deps) $(CONFIGURE_DEPENDENCIES) \ $(ACLOCAL_M4) mkinstalldirs = $(install_sh) -d CONFIG_HEADER = $(top_builddir)/config.h CONFIG_CLEAN_FILES = CONFIG_CLEAN_VPATH_FILES = SOURCES = DIST_SOURCES = am__can_run_installinfo = \ case $$AM_UPDATE_INFO_DIR in \ n|no|NO) false;; \ *) (install-info --version) >/dev/null 2>&1;; \ esac DISTFILES = $(DIST_COMMON) $(DIST_SOURCES) $(TEXINFOS) $(EXTRA_DIST) ACLOCAL = @ACLOCAL@ AG_PKG_CONFIG_PATH = @AG_PKG_CONFIG_PATH@ AMTAR = @AMTAR@ API_VERSION = @API_VERSION@ AR = @AR@ ATK_CFLAGS = @ATK_CFLAGS@ ATK_LIBS = @ATK_LIBS@ AUTOCONF = @AUTOCONF@ AUTOHEADER = @AUTOHEADER@ AUTOMAKE = @AUTOMAKE@ AWK = @AWK@ BONOBO_IDL_DIR = @BONOBO_IDL_DIR@ CANVAS_CFLAGS = @CANVAS_CFLAGS@ CANVAS_LIBS = @CANVAS_LIBS@ CC = @CC@ CCDEPMODE = @CCDEPMODE@ CFLAGS = @CFLAGS@ CORBA_CFLAGS = @CORBA_CFLAGS@ CORBA_LIBS = @CORBA_LIBS@ CPP = @CPP@ CPPFLAGS = @CPPFLAGS@ CYGPATH_W = @CYGPATH_W@ DEFS = @DEFS@ DEPDIR = @DEPDIR@ DLLTOOL = @DLLTOOL@ DSYMUTIL = @DSYMUTIL@ DUMPBIN = @DUMPBIN@ ECHO_C = @ECHO_C@ ECHO_N = @ECHO_N@ ECHO_T = @ECHO_T@ EGREP = @EGREP@ EXEEXT = @EXEEXT@ FGREP = @FGREP@ GCONF_CFLAGS = @GCONF_CFLAGS@ GCONF_LIBS = @GCONF_LIBS@ GDK_CFLAGS = @GDK_CFLAGS@ GDK_LIBS = @GDK_LIBS@ GDK_PIXBUF_CFLAGS = @GDK_PIXBUF_CFLAGS@ GDK_PIXBUF_LIBS = @GDK_PIXBUF_LIBS@ GLIB_CFLAGS = @GLIB_CFLAGS@ GLIB_LIBS = @GLIB_LIBS@ GNOMEUI_DEPRECATION_FLAGS = @GNOMEUI_DEPRECATION_FLAGS@ GNOME_VFS_CFLAGS = @GNOME_VFS_CFLAGS@ GNOME_VFS_DEPRECATED_CFLAGS = @GNOME_VFS_DEPRECATED_CFLAGS@ GNOME_VFS_LIBS = @GNOME_VFS_LIBS@ GOBJECT_CFLAGS = @GOBJECT_CFLAGS@ GOBJECT_LIBS = @GOBJECT_LIBS@ GREP = @GREP@ GTHREAD_CFLAGS = @GTHREAD_CFLAGS@ GTHREAD_LIBS = @GTHREAD_LIBS@ GTK_CFLAGS = @GTK_CFLAGS@ GTK_DEPRECATED_CFLAGS = @GTK_DEPRECATED_CFLAGS@ GTK_LIBS = @GTK_LIBS@ GUILE_CAIRO_CFLAGS = @GUILE_CAIRO_CFLAGS@ GUILE_CAIRO_LIBS = @GUILE_CAIRO_LIBS@ GUILE_CFLAGS = @GUILE_CFLAGS@ GUILE_EFFECTIVE_VERSION = @GUILE_EFFECTIVE_VERSION@ GUILE_GLIB_CFLAGS = @GUILE_GLIB_CFLAGS@ GUILE_GLIB_LIBS = @GUILE_GLIB_LIBS@ GUILE_LIBS = @GUILE_LIBS@ G_WRAP_CFLAGS = @G_WRAP_CFLAGS@ G_WRAP_LIBS = @G_WRAP_LIBS@ G_WRAP_LIB_DIR = @G_WRAP_LIB_DIR@ G_WRAP_MODULE_DIR = @G_WRAP_MODULE_DIR@ INSTALL = @INSTALL@ INSTALL_DATA = @INSTALL_DATA@ INSTALL_PROGRAM = @INSTALL_PROGRAM@ INSTALL_SCRIPT = @INSTALL_SCRIPT@ INSTALL_STRIP_PROGRAM = @INSTALL_STRIP_PROGRAM@ LD = @LD@ LDFLAGS = @LDFLAGS@ LIBGLADE_CFLAGS = @LIBGLADE_CFLAGS@ LIBGLADE_LIBS = @LIBGLADE_LIBS@ LIBGNOMEUI_CFLAGS = @LIBGNOMEUI_CFLAGS@ LIBGNOMEUI_LIBS = @LIBGNOMEUI_LIBS@ LIBGNOME_CFLAGS = @LIBGNOME_CFLAGS@ LIBGNOME_LIBS = @LIBGNOME_LIBS@ LIBOBJS = @LIBOBJS@ LIBS = @LIBS@ LIBTOOL = @LIBTOOL@ LIPO = @LIPO@ LN_S = @LN_S@ LTLIBOBJS = @LTLIBOBJS@ MAKEINFO = @MAKEINFO@ MANIFEST_TOOL = @MANIFEST_TOOL@ MKDIR_P = @MKDIR_P@ NM = @NM@ NMEDIT = @NMEDIT@ OBJDUMP = @OBJDUMP@ OBJEXT = @OBJEXT@ ORBIT_IDL = @ORBIT_IDL@ OTOOL = @OTOOL@ OTOOL64 = @OTOOL64@ PACKAGE = @PACKAGE@ PACKAGE_BUGREPORT = @PACKAGE_BUGREPORT@ PACKAGE_NAME = @PACKAGE_NAME@ PACKAGE_STRING = @PACKAGE_STRING@ PACKAGE_TARNAME = @PACKAGE_TARNAME@ PACKAGE_URL = @PACKAGE_URL@ PACKAGE_VERSION = @PACKAGE_VERSION@ PANGOCAIRO_CFLAGS = @PANGOCAIRO_CFLAGS@ PANGOCAIRO_LIBS = @PANGOCAIRO_LIBS@ PANGO_CFLAGS = @PANGO_CFLAGS@ PANGO_LIBS = @PANGO_LIBS@ PATH_SEPARATOR = @PATH_SEPARATOR@ PKG_CONFIG = @PKG_CONFIG@ PKG_CONFIG_LIBDIR = @PKG_CONFIG_LIBDIR@ PKG_CONFIG_PATH = @PKG_CONFIG_PATH@ RANLIB = @RANLIB@ SED = @SED@ SET_MAKE = @SET_MAKE@ SHELL = @SHELL@ STRIP = @STRIP@ VERSION = @VERSION@ WARN_CFLAGS = @WARN_CFLAGS@ abs_builddir = @abs_builddir@ abs_srcdir = @abs_srcdir@ abs_top_builddir = @abs_top_builddir@ abs_top_srcdir = @abs_top_srcdir@ ac_ct_AR = @ac_ct_AR@ ac_ct_CC = @ac_ct_CC@ ac_ct_DUMPBIN = @ac_ct_DUMPBIN@ am__include = @am__include@ am__leading_dot = @am__leading_dot@ am__quote = @am__quote@ am__tar = @am__tar@ am__untar = @am__untar@ bindir = @bindir@ build = @build@ build_alias = @build_alias@ build_cpu = @build_cpu@ build_os = @build_os@ build_vendor = @build_vendor@ builddir = @builddir@ datadir = @datadir@ datarootdir = @datarootdir@ docdir = @docdir@ dvidir = @dvidir@ exec_prefix = @exec_prefix@ host = @host@ host_alias = @host_alias@ host_cpu = @host_cpu@ host_os = @host_os@ host_vendor = @host_vendor@ htmldir = @htmldir@ includedir = @includedir@ infodir = @infodir@ install_sh = @install_sh@ libdir = @libdir@ libexecdir = @libexecdir@ localedir = @localedir@ localstatedir = @localstatedir@ mandir = @mandir@ mkdir_p = @mkdir_p@ oldincludedir = @oldincludedir@ pdfdir = @pdfdir@ prefix = @prefix@ program_transform_name = @program_transform_name@ psdir = @psdir@ sbindir = @sbindir@ sharedstatedir = @sharedstatedir@ srcdir = @srcdir@ sysconfdir = @sysconfdir@ target_alias = @target_alias@ top_build_prefix = @top_build_prefix@ top_builddir = @top_builddir@ top_srcdir = @top_srcdir@ EXTRA_DIST = $(wildcard $(srcdir)/*.scm) all: all-am .SUFFIXES: $(srcdir)/Makefile.in: $(srcdir)/Makefile.am $(am__configure_deps) @for dep in $?; do \ case '$(am__configure_deps)' in \ *$$dep*) \ ( cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh ) \ && { if test -f $@; then exit 0; else break; fi; }; \ exit 1;; \ esac; \ done; \ echo ' cd $(top_srcdir) && $(AUTOMAKE) --gnu glib/examples/Makefile'; \ $(am__cd) $(top_srcdir) && \ $(AUTOMAKE) --gnu glib/examples/Makefile .PRECIOUS: Makefile Makefile: $(srcdir)/Makefile.in $(top_builddir)/config.status @case '$?' in \ *config.status*) \ cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh;; \ *) \ echo ' cd $(top_builddir) && $(SHELL) ./config.status $(subdir)/$@ $(am__depfiles_maybe)'; \ cd $(top_builddir) && $(SHELL) ./config.status $(subdir)/$@ $(am__depfiles_maybe);; \ esac; $(top_builddir)/config.status: $(top_srcdir)/configure $(CONFIG_STATUS_DEPENDENCIES) cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh $(top_srcdir)/configure: $(am__configure_deps) cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh $(ACLOCAL_M4): $(am__aclocal_m4_deps) cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh $(am__aclocal_m4_deps): mostlyclean-libtool: -rm -f *.lo clean-libtool: -rm -rf .libs _libs tags: TAGS TAGS: ctags: CTAGS CTAGS: distdir: $(DISTFILES) @srcdirstrip=`echo "$(srcdir)" | sed 's/[].[^$$\\*]/\\\\&/g'`; \ topsrcdirstrip=`echo "$(top_srcdir)" | sed 's/[].[^$$\\*]/\\\\&/g'`; \ list='$(DISTFILES)'; \ dist_files=`for file in $$list; do echo $$file; done | \ sed -e "s|^$$srcdirstrip/||;t" \ -e "s|^$$topsrcdirstrip/|$(top_builddir)/|;t"`; \ case $$dist_files in \ */*) $(MKDIR_P) `echo "$$dist_files" | \ sed '/\//!d;s|^|$(distdir)/|;s,/[^/]*$$,,' | \ sort -u` ;; \ esac; \ for file in $$dist_files; do \ if test -f $$file || test -d $$file; then d=.; else d=$(srcdir); fi; \ if test -d $$d/$$file; then \ dir=`echo "/$$file" | sed -e 's,/[^/]*$$,,'`; \ if test -d "$(distdir)/$$file"; then \ find "$(distdir)/$$file" -type d ! -perm -700 -exec chmod u+rwx {} \;; \ fi; \ if test -d $(srcdir)/$$file && test $$d != $(srcdir); then \ cp -fpR $(srcdir)/$$file "$(distdir)$$dir" || exit 1; \ find "$(distdir)/$$file" -type d ! -perm -700 -exec chmod u+rwx {} \;; \ fi; \ cp -fpR $$d/$$file "$(distdir)$$dir" || exit 1; \ else \ test -f "$(distdir)/$$file" \ || cp -p $$d/$$file "$(distdir)/$$file" \ || exit 1; \ fi; \ done check-am: all-am check: check-am all-am: Makefile installdirs: install: install-am install-exec: install-exec-am install-data: install-data-am uninstall: uninstall-am install-am: all-am @$(MAKE) $(AM_MAKEFLAGS) install-exec-am install-data-am installcheck: installcheck-am install-strip: if test -z '$(STRIP)'; then \ $(MAKE) $(AM_MAKEFLAGS) INSTALL_PROGRAM="$(INSTALL_STRIP_PROGRAM)" \ install_sh_PROGRAM="$(INSTALL_STRIP_PROGRAM)" INSTALL_STRIP_FLAG=-s \ install; \ else \ $(MAKE) $(AM_MAKEFLAGS) INSTALL_PROGRAM="$(INSTALL_STRIP_PROGRAM)" \ install_sh_PROGRAM="$(INSTALL_STRIP_PROGRAM)" INSTALL_STRIP_FLAG=-s \ "INSTALL_PROGRAM_ENV=STRIPPROG='$(STRIP)'" install; \ fi mostlyclean-generic: clean-generic: distclean-generic: -test -z "$(CONFIG_CLEAN_FILES)" || rm -f $(CONFIG_CLEAN_FILES) -test . = "$(srcdir)" || test -z "$(CONFIG_CLEAN_VPATH_FILES)" || rm -f $(CONFIG_CLEAN_VPATH_FILES) maintainer-clean-generic: @echo "This command is intended for maintainers to use" @echo "it deletes files that may require special tools to rebuild." clean: clean-am clean-am: clean-generic clean-libtool mostlyclean-am distclean: distclean-am -rm -f Makefile distclean-am: clean-am distclean-generic dvi: dvi-am dvi-am: html: html-am html-am: info: info-am info-am: install-data-am: install-dvi: install-dvi-am install-dvi-am: install-exec-am: install-html: install-html-am install-html-am: install-info: install-info-am install-info-am: install-man: install-pdf: install-pdf-am install-pdf-am: install-ps: install-ps-am install-ps-am: installcheck-am: maintainer-clean: maintainer-clean-am -rm -f Makefile maintainer-clean-am: distclean-am maintainer-clean-generic mostlyclean: mostlyclean-am mostlyclean-am: mostlyclean-generic mostlyclean-libtool pdf: pdf-am pdf-am: ps: ps-am ps-am: uninstall-am: .MAKE: install-am install-strip .PHONY: all all-am check check-am clean clean-generic clean-libtool \ distclean distclean-generic distclean-libtool distdir dvi \ dvi-am html html-am info info-am install install-am \ install-data install-data-am install-dvi install-dvi-am \ install-exec install-exec-am install-html install-html-am \ install-info install-info-am install-man install-pdf \ install-pdf-am install-ps install-ps-am install-strip \ installcheck installcheck-am installdirs maintainer-clean \ maintainer-clean-generic mostlyclean mostlyclean-generic \ mostlyclean-libtool pdf pdf-am ps ps-am uninstall uninstall-am # Tell versions [3.59,3.63) of GNU make to not export all variables. # Otherwise a system limit (for SysV at least) may be exceeded. .NOEXPORT: guile-gnome-platform-2.16.2/glib/examples/fifo.scm0000755000175000017500000000425111670374302022356 0ustar00wingowingo00000000000000#! /usr/bin/guile -s !# ;; guile-gnome ;; Copyright (C) 2004-2005 Free Software Foundation, Inc. ;; This program is free software; you can redistribute it and/or ;; modify it under the terms of the GNU General Public License as ;; published by the Free Software Foundation; either version 2 of ;; the License, or (at your option) any later version. ;; ;; This program is distributed in the hope that it will be useful, ;; but WITHOUT ANY WARRANTY; without even the implied warranty of ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the ;; GNU General Public License for more details. ;; ;; You should have received a copy of the GNU General Public License ;; along with this program; if not, contact: ;; ;; Free Software Foundation Voice: +1-617-542-5942 ;; 59 Temple Place - Suite 330 Fax: +1-617-542-2652 ;; Boston, MA 02111-1307, USA gnu@gnu.org (debug-enable 'debug) (debug-enable 'backtrace) (use-modules (srfi srfi-8) (gnome glib)) (define (stderr string . rest) (apply format (current-error-port) string rest) (force-output (current-error-port))) (define (fifo-callback loop source condition) (stderr "fifo\n") (receive (status line) (g-io-channel-read-line source) (stderr "result: ~S\n" line) (if (equal? line "exit\n") (g-main-loop-quit loop))) #t) (define (talk fifo-name) (sleep 1) (let ((fifo (open-file fifo-name "w"))) (display "Do you read me?\n" fifo) (system (string-append "echo Do you read me>" fifo-name)) (sleep 2) (display "exit\n" fifo) (system (string-append "echo exit >" fifo-name)))) (define (main) (let ((fifo (tmpnam)) (loop (g-main-loop-new))) (mknod fifo 'fifo #o600 0) (if (= 0 (primitive-fork)) (begin (talk fifo) (primitive-exit 0))) (g-io-add-watch (g-io-channel-new-file fifo "r") 'in (lambda (source condition) (fifo-callback loop source condition))) (g-main-loop-run loop) (delete-file fifo))) (main) guile-gnome-platform-2.16.2/glib/doc/0000755000175000017500000000000011752546500017653 5ustar00wingowingo00000000000000guile-gnome-platform-2.16.2/glib/doc/Makefile.am0000644000175000017500000000002511670374302021702 0ustar00wingowingo00000000000000SUBDIRS=gobject glib guile-gnome-platform-2.16.2/glib/doc/glib/0000755000175000017500000000000011752546500020570 5ustar00wingowingo00000000000000guile-gnome-platform-2.16.2/glib/doc/glib/undocumented.texi0000644000175000017500000000357511670374302024165 0ustar00wingowingo00000000000000 @c %start of fragment @node Undocumented @chapter Undocumented The following symbols, if any, have not been properly documented. @section (gnome glib) @defun g-error-code error @end defun @defun g-error-domain error @end defun @defun g-error-message error @end defun @defun g-idle-add proc @end defun @defun g-main-loop-console-repl @end defun @defvar g-source-set-closure @end defvar @defun g-timeout-add milliseconds proc @end defun @section (gnome gw glib) @defvar @end defvar @defun enum--val->int @end defun @defun enum--val->sym @end defun @defun enum--val->int @end defun @defun enum--val->sym @end defun @defun enum--val->int @end defun @defun enum--val->sym @end defun @defun enum--val->int @end defun @defun enum--val->sym @end defun @defun enum--val->int @end defun @defun enum--val->sym @end defun @defun enum--val->int @end defun @defun enum--val->sym @end defun @defun enum--val->int @end defun @defun enum--val->sym @end defun @defun enum--val->int @end defun @defun enum--val->sym @end defun @defun enum--val->int @end defun @defun enum--val->sym @end defun @defun enum--val->int @end defun @defun enum--val->sym @end defun @defun enum--val->int @end defun @defun enum--val->sym @end defun @defun enum--val->int @end defun @defun enum--val->sym @end defun @defvar g-bookmark-file-error-quark @end defvar @defvar g-convert-error-quark @end defvar @defvar g-file-error-quark @end defvar @defvar g-io-channel-error-quark @end defvar @c %end of fragment guile-gnome-platform-2.16.2/glib/doc/glib/defuns-bookmarkfile.xml.texi0000644000175000017500000006425111670374302026217 0ustar00wingowingo00000000000000 @c %start of fragment @deftp Class Opaque pointer. This class defines no direct slots. @end deftp @deffn Function g-bookmark-file-new @result{}@tie{} (ret@tie{}@code{}) Creates a new empty @code{} object. Use @code{g-bookmark-file-load-from-file}, @code{g-bookmark-file-load-from-data} or @code{g-bookmark-file-load-from-data-dirs} to read an existing bookmark file. @table @var @item ret an empty @code{} @end table Since 2.12 @end deffn @deffn Function g-bookmark-file-load-from-file (bookmark@tie{}@code{}) (filename@tie{}@code{mchars}) @result{}@tie{} (ret@tie{}@code{bool}) Loads a desktop bookmark file into an empty @code{} structure. If the file could not be loaded then @var{error} is set to either a @code{} or @code{}. @table @var @item bookmark an empty @code{} struct @item filename the path of a filename to load, in the GLib file name encoding @item error return location for a @code{}, or @samp{@code{#f}} @item ret @samp{@code{#t}} if a desktop bookmark file could be loaded @end table Since 2.12 @end deffn @deffn Function g-bookmark-file-load-from-data (bookmark@tie{}@code{}) (data@tie{}@code{mchars}) @result{}@tie{} (ret@tie{}@code{bool}) Loads a bookmark file from memory into an empty @code{} structure. If the object cannot be created then @var{error} is set to a @code{}. @table @var @item bookmark an empty @code{} struct @item data desktop bookmarks loaded in memory @item length the length of @var{data} in bytes @item error return location for a @code{}, or @samp{@code{#f}} @item ret @samp{@code{#t}} if a desktop bookmark could be loaded. @end table Since 2.12 @end deffn @deffn Function g-bookmark-file-load-from-data-dirs (bookmark@tie{}@code{}) (file@tie{}@code{mchars}) @result{}@tie{} (ret@tie{}@code{bool}) (full_path@tie{}@code{mchars}) This function looks for a desktop bookmark file named @var{file} in the paths returned from @code{g-get-user-data-dir} and @code{g-get-system-data-dirs}, loads the file into @var{bookmark} and returns the file's full path in @var{full-path}. If the file could not be loaded then an @samp{error} is set to either a @code{} or @code{}. @table @var @item bookmark a @code{} @item file a relative path to a filename to open and parse @item full-path return location for a string containing the full path of the file, or @samp{@code{#f}} @item error return location for a @code{}, or @samp{@code{#f}} @item ret @samp{@code{#t}} if a key file could be loaded, @samp{@code{#f}} othewise @end table Since 2.12 @end deffn @deffn Function g-bookmark-file-to-data (bookmark@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{mchars}) This function outputs @var{bookmark} as a string. @table @var @item bookmark a @code{} @item length return location for the length of the returned string, or @samp{@code{#f}} @item error return location for a @code{}, or @samp{@code{#f}} @item ret a newly allocated string holding the contents of the @code{} @end table Since 2.12 @end deffn @deffn Function g-bookmark-file-to-file (bookmark@tie{}@code{}) (filename@tie{}@code{mchars}) @result{}@tie{} (ret@tie{}@code{bool}) This function outputs @var{bookmark} into a file. The write process is guaranteed to be atomic by using @code{g-file-set-contents} internally. @table @var @item bookmark a @code{} @item filename path of the output file @item error return location for a @code{}, or @samp{@code{#f}} @item ret @samp{@code{#t}} if the file was successfully written. @end table Since 2.12 @end deffn @deffn Function g-bookmark-file-has-item (bookmark@tie{}@code{}) (uri@tie{}@code{mchars}) @result{}@tie{} (ret@tie{}@code{bool}) Looks whether the desktop bookmark has an item with its URI set to @var{uri}. @table @var @item bookmark a @code{} @item uri a valid URI @item ret @samp{@code{#t}} if @var{uri} is inside @var{bookmark}, @samp{@code{#f}} otherwise @end table Since 2.12 @end deffn @deffn Function g-bookmark-file-has-group (bookmark@tie{}@code{}) (uri@tie{}@code{mchars}) (group@tie{}@code{mchars}) @result{}@tie{} (ret@tie{}@code{bool}) Checks whether @var{group} appears in the list of groups to which the bookmark for @var{uri} belongs to. In the event the URI cannot be found, @samp{@code{#f}} is returned and @var{error} is set to @code{}. @table @var @item bookmark a @code{} @item uri a valid URI @item group the group name to be searched @item error return location for a @code{}, or @samp{@code{#f}} @item ret @samp{@code{#t}} if @var{group} was found. @end table Since 2.12 @end deffn @deffn Function g-bookmark-file-has-application (bookmark@tie{}@code{}) (uri@tie{}@code{mchars}) (name@tie{}@code{mchars}) @result{}@tie{} (ret@tie{}@code{bool}) Checks whether the bookmark for @var{uri} inside @var{bookmark} has been registered by application @var{name}. In the event the URI cannot be found, @samp{@code{#f}} is returned and @var{error} is set to @code{}. @table @var @item bookmark a @code{} @item uri a valid URI @item name the name of the application @item error return location for a @code{} or @samp{@code{#f}} @item ret @samp{@code{#t}} if the application @var{name} was found @end table Since 2.12 @end deffn @deffn Function g-bookmark-file-get-size (bookmark@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{int}) Gets the number of bookmarks inside @var{bookmark}. @table @var @item bookmark a @code{} @item ret the number of bookmarks @end table Since 2.12 @end deffn @deffn Function g-bookmark-file-get-uris (bookmark@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{scm}) Returns all URIs of the bookmarks in the bookmark file @var{bookmark}. The array of returned URIs will be @samp{@code{#f}}-terminated, so @var{length} may optionally be @samp{@code{#f}}. @table @var @item bookmark a @code{} @item length return location for the number of returned URIs, or @samp{@code{#f}} @item ret a newly allocated @samp{@code{#f}}-terminated array of strings. Use @code{g-strfreev} to free it. @end table Since 2.12 @end deffn @deffn Function g-bookmark-file-get-title (bookmark@tie{}@code{}) (uri@tie{}@code{mchars}) @result{}@tie{} (ret@tie{}@code{mchars}) Returns the title of the bookmark for @var{uri}. If @var{uri} is @samp{@code{#f}}, the title of @var{bookmark} is returned. In the event the URI cannot be found, @samp{@code{#f}} is returned and @var{error} is set to @code{}. @table @var @item bookmark a @code{} @item uri a valid URI or @samp{@code{#f}} @item error return location for a @code{}, or @samp{@code{#f}} @item ret a newly allocated string or @samp{@code{#f}} if the specified URI cannot be found. @end table Since 2.12 @end deffn @deffn Function g-bookmark-file-get-description (bookmark@tie{}@code{}) (uri@tie{}@code{mchars}) @result{}@tie{} (ret@tie{}@code{mchars}) Retrieves the description of the bookmark for @var{uri}. In the event the URI cannot be found, @samp{@code{#f}} is returned and @var{error} is set to @code{}. @table @var @item bookmark a @code{} @item uri a valid URI @item error return location for a @code{}, or @samp{@code{#f}} @item ret a newly allocated string or @samp{@code{#f}} if the specified URI cannot be found. @end table Since 2.12 @end deffn @deffn Function g-bookmark-file-get-mime-type (bookmark@tie{}@code{}) (uri@tie{}@code{mchars}) @result{}@tie{} (ret@tie{}@code{mchars}) Retrieves the MIME type of the resource pointed by @var{uri}. In the event the URI cannot be found, @samp{@code{#f}} is returned and @var{error} is set to @code{}. In the event that the MIME type cannot be found, @samp{@code{#f}} is returned and @var{error} is set to @code{}. @table @var @item bookmark a @code{} @item uri a valid URI @item error return location for a @code{}, or @samp{@code{#f}} @item ret a newly allocated string or @samp{@code{#f}} if the specified URI cannot be found. @end table Since 2.12 @end deffn @deffn Function g-bookmark-file-get-is-private (bookmark@tie{}@code{}) (uri@tie{}@code{mchars}) @result{}@tie{} (ret@tie{}@code{bool}) Gets whether the private flag of the bookmark for @var{uri} is set. In the event the URI cannot be found, @samp{@code{#f}} is returned and @var{error} is set to @code{}. In the event that the private flag cannot be found, @samp{@code{#f}} is returned and @var{error} is set to @code{}. @table @var @item bookmark a @code{} @item uri a valid URI @item error return location for a @code{}, or @samp{@code{#f}} @item ret @samp{@code{#t}} if the private flag is set, @samp{@code{#f}} otherwise. @end table Since 2.12 @end deffn @deffn Function g-bookmark-file-get-icon (bookmark@tie{}@code{}) (uri@tie{}@code{mchars}) @result{}@tie{} (ret@tie{}@code{bool}) (href@tie{}@code{mchars}) (mime_type@tie{}@code{mchars}) Gets the icon of the bookmark for @var{uri}. In the event the URI cannot be found, @samp{@code{#f}} is returned and @var{error} is set to @code{}. @table @var @item bookmark a @code{} @item uri a valid URI @item href return location for the icon's location or @samp{@code{#f}} @item mime-type return location for the icon's MIME type or @samp{@code{#f}} @item error return location for a @code{} or @samp{@code{#f}} @item ret @samp{@code{#t}} if the icon for the bookmark for the URI was found. You should free the returned strings. @end table Since 2.12 @end deffn @deffn Function g-bookmark-file-get-added (bookmark@tie{}@code{}) (uri@tie{}@code{mchars}) @result{}@tie{} (ret@tie{}@code{long}) Gets the time the bookmark for @var{uri} was added to @var{bookmark} In the event the URI cannot be found, -1 is returned and @var{error} is set to @code{}. @table @var @item bookmark a @code{} @item uri a valid URI @item error return location for a @code{}, or @samp{@code{#f}} @item ret a timestamp @end table Since 2.12 @end deffn @deffn Function g-bookmark-file-get-modified (bookmark@tie{}@code{}) (uri@tie{}@code{mchars}) @result{}@tie{} (ret@tie{}@code{long}) Gets the time when the bookmark for @var{uri} was last modified. In the event the URI cannot be found, -1 is returned and @var{error} is set to @code{}. @table @var @item bookmark a @code{} @item uri a valid URI @item error return location for a @code{}, or @samp{@code{#f}} @item ret a timestamp @end table Since 2.12 @end deffn @deffn Function g-bookmark-file-get-visited (bookmark@tie{}@code{}) (uri@tie{}@code{mchars}) @result{}@tie{} (ret@tie{}@code{long}) Gets the time the bookmark for @var{uri} was last visited. In the event the URI cannot be found, -1 is returned and @var{error} is set to @code{}. @table @var @item bookmark a @code{} @item uri a valid URI @item error return location for a @code{}, or @samp{@code{#f}} @item ret a timestamp. @end table Since 2.12 @end deffn @deffn Function g-bookmark-file-get-groups (bookmark@tie{}@code{}) (uri@tie{}@code{mchars}) @result{}@tie{} (ret@tie{}@code{scm}) Retrieves the list of group names of the bookmark for @var{uri}. In the event the URI cannot be found, @samp{@code{#f}} is returned and @var{error} is set to @code{}. The returned array is @samp{@code{#f}} terminated, so @var{length} may optionally be @samp{@code{#f}}. @table @var @item bookmark a @code{} @item uri a valid URI @item length return location for the length of the returned string, or @samp{@code{#f}} @item error return location for a @code{}, or @samp{@code{#f}} @item ret a newly allocated @samp{@code{#f}}-terminated array of group names. Use @code{g-strfreev} to free it. @end table Since 2.12 @end deffn @deffn Function g-bookmark-file-get-applications (bookmark@tie{}@code{}) (uri@tie{}@code{mchars}) @result{}@tie{} (ret@tie{}@code{scm}) Retrieves the names of the applications that have registered the bookmark for @var{uri}. In the event the URI cannot be found, @samp{@code{#f}} is returned and @var{error} is set to @code{}. @table @var @item bookmark a @code{} @item uri a valid URI @item length return location of the length of the returned list, or @samp{@code{#f}} @item error return location for a @code{}, or @samp{@code{#f}} @item ret a newly allocated @samp{@code{#f}}-terminated array of strings. Use @code{g-strfreev} to free it. @end table Since 2.12 @end deffn @deffn Function g-bookmark-file-get-app-info (bookmark@tie{}@code{}) (uri@tie{}@code{mchars}) (name@tie{}@code{mchars}) @result{}@tie{} (ret@tie{}@code{bool}) (exec@tie{}@code{mchars}) (count@tie{}@code{unsigned-int}) (stamp@tie{}@code{long}) Gets the registration informations of @var{app-name} for the bookmark for @var{uri}. See @code{g-bookmark-file-set-app-info} for more informations about the returned data. The string returned in @var{app-exec} must be freed. In the event the URI cannot be found, @samp{@code{#f}} is returned and @var{error} is set to @code{}. In the event that no application with name @var{app-name} has registered a bookmark for @var{uri}, @samp{@code{#f}} is returned and error is set to @code{}. @table @var @item bookmark a @code{} @item uri a valid URI @item name an application's name @item exec location for the command line of the application, or @samp{@code{#f}} @item count return location for the registration count, or @samp{@code{#f}} @item stamp return location for the last registration time, or @samp{@code{#f}} @item error return location for a @code{}, or @samp{@code{#f}} @item ret @samp{@code{#t}} on success. @end table Since 2.12 @end deffn @deffn Function g-bookmark-file-set-title (bookmark@tie{}@code{}) (uri@tie{}@code{mchars}) (title@tie{}@code{mchars}) Sets @var{title} as the title of the bookmark for @var{uri} inside the bookmark file @var{bookmark}. If @var{uri} is @samp{@code{#f}}, the title of @var{bookmark} is set. If a bookmark for @var{uri} cannot be found then it is created. @table @var @item bookmark a @code{} @item uri a valid URI or @samp{@code{#f}} @item title a UTF-8 encoded string @end table Since 2.12 @end deffn @deffn Function g-bookmark-file-set-description (bookmark@tie{}@code{}) (uri@tie{}@code{mchars}) (description@tie{}@code{mchars}) Sets @var{description} as the description of the bookmark for @var{uri}. If @var{uri} is @samp{@code{#f}}, the description of @var{bookmark} is set. If a bookmark for @var{uri} cannot be found then it is created. @table @var @item bookmark a @code{} @item uri a valid URI or @samp{@code{#f}} @item description a string @end table Since 2.12 @end deffn @deffn Function g-bookmark-file-set-mime-type (bookmark@tie{}@code{}) (uri@tie{}@code{mchars}) (mime_type@tie{}@code{mchars}) Sets @var{mime-type} as the MIME type of the bookmark for @var{uri}. If a bookmark for @var{uri} cannot be found then it is created. @table @var @item bookmark a @code{} @item uri a valid URI @item mime-type a MIME type @end table Since 2.12 @end deffn @deffn Function g-bookmark-file-set-is-private (bookmark@tie{}@code{}) (uri@tie{}@code{mchars}) (is_private@tie{}@code{bool}) Sets the private flag of the bookmark for @var{uri}. If a bookmark for @var{uri} cannot be found then it is created. @table @var @item bookmark a @code{} @item uri a valid URI @item is-private @samp{@code{#t}} if the bookmark should be marked as private @end table Since 2.12 @end deffn @deffn Function g-bookmark-file-set-icon (bookmark@tie{}@code{}) (uri@tie{}@code{mchars}) (href@tie{}@code{mchars}) (mime_type@tie{}@code{mchars}) Sets the icon for the bookmark for @var{uri}. If @var{href} is @samp{@code{#f}}, unsets the currently set icon. If no bookmark for @var{uri} is found it is created. @table @var @item bookmark a @code{} @item uri a valid URI @item href the URI of the icon for the bookmark, or @samp{@code{#f}} @item mime-type the MIME type of the icon for the bookmark @end table Since 2.12 @end deffn @deffn Function g-bookmark-file-set-added (bookmark@tie{}@code{}) (uri@tie{}@code{mchars}) (added@tie{}@code{long}) Sets the time the bookmark for @var{uri} was added into @var{bookmark}. If no bookmark for @var{uri} is found then it is created. @table @var @item bookmark a @code{} @item uri a valid URI @item added a timestamp or -1 to use the current time @end table Since 2.12 @end deffn @deffn Function g-bookmark-file-set-modified (bookmark@tie{}@code{}) (uri@tie{}@code{mchars}) (modified@tie{}@code{long}) Sets the last time the bookmark for @var{uri} was last modified. If no bookmark for @var{uri} is found then it is created. The "modified" time should only be set when the bookmark's meta-data was actually changed. Every function of @code{} that modifies a bookmark also changes the modification time, except for @code{g-bookmark-file-set-visited}. @table @var @item bookmark a @code{} @item uri a valid URI @item modified a timestamp or -1 to use the current time @end table Since 2.12 @end deffn @deffn Function g-bookmark-file-set-visited (bookmark@tie{}@code{}) (uri@tie{}@code{mchars}) (visited@tie{}@code{long}) Sets the time the bookmark for @var{uri} was last visited. If no bookmark for @var{uri} is found then it is created. The "visited" time should only be set if the bookmark was launched, either using the command line retrieved by @code{g-bookmark-file-get-app-info} or by the default application for the bookmark's MIME type, retrieved using @code{g-bookmark-file-get-mime-type}. Changing the "visited" time does not affect the "modified" time. @table @var @item bookmark a @code{} @item uri a valid URI @item visited a timestamp or -1 to use the current time @end table Since 2.12 @end deffn @deffn Function g-bookmark-file-set-app-info (bookmark@tie{}@code{}) (uri@tie{}@code{mchars}) (name@tie{}@code{mchars}) (exec@tie{}@code{mchars}) (count@tie{}@code{int}) (stamp@tie{}@code{long}) @result{}@tie{} (ret@tie{}@code{bool}) Sets the meta-data of application @var{name} inside the list of applications that have registered a bookmark for @var{uri} inside @var{bookmark}. You should rarely use this function; use @code{g-bookmark-file-add-application} and @code{g-bookmark-file-remove-application} instead. @var{name} can be any UTF-8 encoded string used to identify an application. @var{exec} can have one of these two modifiers: "@samp{f}", which will be expanded as the local file name retrieved from the bookmark's URI; "@samp{u}", which will be expanded as the bookmark's URI. The expansion is done automatically when retrieving the stored command line using the @code{g-bookmark-file-get-app-info} function. @var{count} is the number of times the application has registered the bookmark; if is < 0, the current registration count will be increased by one, if is 0, the application with @var{name} will be removed from the list of registered applications. @var{stamp} is the Unix time of the last registration; if it is -1, the current time will be used. If you try to remove an application by setting its registration count to zero, and no bookmark for @var{uri} is found, @samp{@code{#f}} is returned and @var{error} is set to @code{}; similarly, in the event that no application @var{name} has registered a bookmark for @var{uri}, @samp{@code{#f}} is returned and error is set to @code{}. Otherwise, if no bookmark for @var{uri} is found, one is created. @table @var @item bookmark a @code{} @item uri a valid URI @item name an application's name @item exec an application's command line @item count the number of registrations done for this application @item stamp the time of the last registration for this application @item error return location for a @code{} or @samp{@code{#f}} @item ret @samp{@code{#t}} if the application's meta-data was successfully changed. @end table Since 2.12 @end deffn @deffn Function g-bookmark-file-add-group (bookmark@tie{}@code{}) (uri@tie{}@code{mchars}) (group@tie{}@code{mchars}) Adds @var{group} to the list of groups to which the bookmark for @var{uri} belongs to. If no bookmark for @var{uri} is found then it is created. @table @var @item bookmark a @code{} @item uri a valid URI @item group the group name to be added @end table Since 2.12 @end deffn @deffn Function g-bookmark-file-add-application (bookmark@tie{}@code{}) (uri@tie{}@code{mchars}) (name@tie{}@code{mchars}) (exec@tie{}@code{mchars}) Adds the application with @var{name} and @var{exec} to the list of applications that have registered a bookmark for @var{uri} into @var{bookmark}. Every bookmark inside a @code{} must have at least an application registered. Each application must provide a name, a command line useful for launching the bookmark, the number of times the bookmark has been registered by the application and the last time the application registered this bookmark. If @var{name} is @samp{@code{#f}}, the name of the application will be the same returned by @code{g-get-application}; if @var{exec} is @samp{@code{#f}}, the command line will be a composition of the program name as returned by @code{g-get-prgname} and the "@samp{u}" modifier, which will be expanded to the bookmark's URI. This function will automatically take care of updating the registrations count and timestamping in case an application with the same @var{name} had already registered a bookmark for @var{uri} inside @var{bookmark}. If no bookmark for @var{uri} is found, one is created. @table @var @item bookmark a @code{} @item uri a valid URI @item name the name of the application registering the bookmark or @samp{@code{#f}} @item exec command line to be used to launch the bookmark or @samp{@code{#f}} @end table Since 2.12 @end deffn @deffn Function g-bookmark-file-remove-group (bookmark@tie{}@code{}) (uri@tie{}@code{mchars}) (group@tie{}@code{mchars}) @result{}@tie{} (ret@tie{}@code{bool}) Removes @var{group} from the list of groups to which the bookmark for @var{uri} belongs to. In the event the URI cannot be found, @samp{@code{#f}} is returned and @var{error} is set to @code{}. In the event no group was defined, @samp{@code{#f}} is returned and @var{error} is set to @code{}. @table @var @item bookmark a @code{} @item uri a valid URI @item group the group name to be removed @item error return location for a @code{}, or @samp{@code{#f}} @item ret @samp{@code{#t}} if @var{group} was successfully removed. @end table Since 2.12 @end deffn @deffn Function g-bookmark-file-remove-application (bookmark@tie{}@code{}) (uri@tie{}@code{mchars}) (name@tie{}@code{mchars}) @result{}@tie{} (ret@tie{}@code{bool}) Removes application registered with @var{name} from the list of applications that have registered a bookmark for @var{uri} inside @var{bookmark}. In the event the URI cannot be found, @samp{@code{#f}} is returned and @var{error} is set to @code{}. In the event that no application with name @var{app-name} has registered a bookmark for @var{uri}, @samp{@code{#f}} is returned and error is set to @code{}. @table @var @item bookmark a @code{} @item uri a valid URI @item name the name of the application @item error return location for a @code{} or @samp{@code{#f}} @item ret @samp{@code{#t}} if the application was successfully removed. @end table Since 2.12 @end deffn @deffn Function g-bookmark-file-remove-item (bookmark@tie{}@code{}) (uri@tie{}@code{mchars}) @result{}@tie{} (ret@tie{}@code{bool}) Removes the bookmark for @var{uri} from the bookmark file @var{bookmark}. @table @var @item bookmark a @code{} @item uri a valid URI @item error return location for a @code{}, or @samp{@code{#f}} @item ret @samp{@code{#t}} if the bookmark was removed successfully. @end table Since 2.12 @end deffn @deffn Function g-bookmark-file-move-item (bookmark@tie{}@code{}) (old_uri@tie{}@code{mchars}) (new_uri@tie{}@code{mchars}) @result{}@tie{} (ret@tie{}@code{bool}) Changes the URI of a bookmark item from @var{old-uri} to @var{new-uri}. Any existing bookmark for @var{new-uri} will be overwritten. If @var{new-uri} is @samp{@code{#f}}, then the bookmark is removed. In the event the URI cannot be found, @samp{@code{#f}} is returned and @var{error} is set to @code{}. @table @var @item bookmark a @code{} @item old-uri a valid URI @item new-uri a valid URI, or @samp{@code{#f}} @item error return location for a @code{} or @samp{@code{#f}} @item ret @samp{@code{#t}} if the URI was successfully changed @end table Since 2.12 @end deffn @c %end of fragment guile-gnome-platform-2.16.2/glib/doc/glib/defuns-main.xml.texi0000644000175000017500000003662111670374302024476 0ustar00wingowingo00000000000000 @c %start of fragment @deftp Class Opaque pointer. This class defines no direct slots. @end deftp @deftp Class Opaque pointer. This class defines no direct slots. @end deftp @deftp Class Opaque pointer. This class defines no direct slots. @end deftp @deffn Function g-main-loop-new (context@tie{}@code{}) (is_running@tie{}@code{bool}) @result{}@tie{} (ret@tie{}@code{}) Creates a new @code{} structure. @table @var @item context a @code{} (if @samp{@code{#f}}, the default context will be used). @item is-running set to @samp{@code{#t}} to indicate that the loop is running. This is not very important since calling @code{g-main-loop-run} will set this to @samp{@code{#t}} anyway. @item ret a new @code{}. @end table @end deffn @deffn Function g-main-loop-run (self@tie{}@code{}) Runs a main loop until @code{g-main-loop-quit} is called on the loop. If this is called for the thread of the loop's @code{}, it will process events from the loop, otherwise it will simply wait. @table @var @item loop a @code{} @end table @end deffn @deffn Function g-main-loop-quit (loop@tie{}@code{}) Stops a @code{} from running. Any calls to @code{g-main-loop-run} for the loop will return. @table @var @item loop a @code{} @end table @end deffn @deffn Function g-main-loop-is-running (loop@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{bool}) Checks to see if the main loop is currently being run via @code{g-main-loop-run}. @table @var @item loop a @code{}. @item ret @samp{@code{#t}} if the mainloop is currently being run. @end table @end deffn @deffn Function g-main-loop-get-context (loop@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{}) Returns the @code{} of @var{loop}. @table @var @item loop a @code{}. @item ret the @code{} of @var{loop} @end table @end deffn @deffn Function g-main-context-new @result{}@tie{} (ret@tie{}@code{}) Creates a new @code{} strcuture @table @var @item ret the new @code{} @end table @end deffn @deffn Function g-main-context-default @result{}@tie{} (ret@tie{}@code{}) Returns the default main context. This is the main context used for main loop functions when a main loop is not explicitly specified. @table @var @item ret the default main context. @end table @end deffn @deffn Function g-main-context-iteration (self@tie{}@code{}) (may_block@tie{}@code{bool}) @result{}@tie{} (ret@tie{}@code{bool}) Runs a single iteration for the given main loop. This involves checking to see if any event sources are ready to be processed, then if no events sources are ready and @var{may-block} is @samp{@code{#t}}, waiting for a source to become ready, then dispatching the highest priority events sources that are ready. Note that even when @var{may-block} is @samp{@code{#t}}, it is still possible for @code{g-main-context-iteration} to return @samp{@code{#f}}, since the the wait may be interrupted for other reasons than an event source becoming ready. @table @var @item context a @code{} (if @samp{@code{#f}}, the default context will be used) @item may-block whether the call may block. @item ret @samp{@code{#t}} if events were dispatched. @end table @end deffn @deffn Function g-main-context-pending (context@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{bool}) Checks if any sources have pending events for the given context. @table @var @item context a @code{} (if @samp{@code{#f}}, the default context will be used) @item ret @samp{@code{#t}} if events are pending. @end table @end deffn @deffn Function g-main-context-find-source-by-id (context@tie{}@code{}) (source_id@tie{}@code{unsigned-int}) @result{}@tie{} (ret@tie{}@code{}) Finds a @code{} given a pair of context and ID. @table @var @item context a @code{} (if @samp{@code{#f}}, the default context will be used) @item source-id the source ID, as returned by @code{g-source-get-id}. @item ret the @code{} if found, otherwise, @samp{@code{#f}} @end table @end deffn @deffn Function g-main-context-wakeup (context@tie{}@code{}) If @var{context} is currently waiting in a @code{poll}, interrupt the @code{poll}, and continue the iteration process. @table @var @item context a @code{} @end table @end deffn @deffn Function g-main-context-acquire (context@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{bool}) Tries to become the owner of the specified context. If some other context is the owner of the context, returns @samp{@code{#f}} immediately. Ownership is properly recursive: the owner can require ownership again and will release ownership when @code{g-main-context-release} is called as many times as @code{g-main-context-acquire}. You must be the owner of a context before you can call @code{g-main-context-prepare}, @code{g-main-context-query}, @code{g-main-context-check}, @code{g-main-context-dispatch}. @table @var @item context a @code{} @item ret @samp{@code{#t}} if the operation succeeded, and this thread is now the owner of @var{context}. @end table @end deffn @deffn Function g-main-context-release (context@tie{}@code{}) Releases ownership of a context previously acquired by this thread with @code{g-main-context-acquire}. If the context was acquired multiple times, the only release ownership when @code{g-main-context-release} is called as many times as it was acquired. @table @var @item context a @code{} @end table @end deffn @deffn Function g-main-context-is-owner (context@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{bool}) Determines whether this thread holds the (recursive) ownership of this @code{}. This is useful to know before waiting on another thread that may be blocking to get ownership of @var{context}. @table @var @item context a @code{} @item ret @samp{@code{#t}} if current thread is owner of @var{context}. @end table Since 2.10 @end deffn @deffn Function g-main-context-prepare (context@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{bool}) (priority@tie{}@code{int}) Prepares to poll sources within a main loop. The resulting information for polling is determined by calling @code{g-main-context-query}. @table @var @item context a @code{} @item priority location to store priority of highest priority source already ready. @item ret @samp{@code{#t}} if some source is ready to be dispatched prior to polling. @end table @end deffn @deffn Function g-main-depth @result{}@tie{} (ret@tie{}@code{int}) Return value: The main loop recursion level in the current thread The value returned is the depth of the stack of calls to @code{g-main-context-dispatch} on any @code{} in the current thread. That is, when called from the toplevel, it gives 0. When called from within a callback from @code{g-main-context-iteration} (or @code{g-main-loop-run}, etc.) it returns 1. When called from within a callback to a recursive call to @code{g-main-context-iterate}, it returns 2. And so forth. This function is an attractive nuisance, and its use normally indicates a misunderstanding of how main loop reentrancy works. Use @code{gtk-widget-set-sensitive} or modal dialogs to prevent the user from interacting with elements while the main loop is recursing. A better idea is to avoid main loop recursion entirely. Instead, structure your code so that you simply return to the main loop and then get called again when there is more work to do. @end deffn @deffn Function g-main-current-source @result{}@tie{} (ret@tie{}@code{}) Returns the currently firing source for this thread. @table @var @item ret The currently firing source or @samp{@code{#f}}. @end table Since 2.12 @end deffn @deffn Function g-timeout-source-new (interval@tie{}@code{unsigned-int}) @result{}@tie{} (ret@tie{}@code{}) Creates a new timeout source. The source will not initially be associated with any @code{} and must be added to one with @code{g-source-attach} before it will be executed. @table @var @item interval the timeout interval in milliseconds. @item ret the newly-created timeout source @end table @end deffn @deffn Function g-idle-source-new @result{}@tie{} (ret@tie{}@code{}) Creates a new idle source. The source will not initially be associated with any @code{} and must be added to one with @code{g-source-attach} before it will be executed. Note that the default priority for idle sources is @samp{G_PRIORITY_DEFAULT_IDLE}, as compared to other sources which have a default priority of @samp{G_PRIORITY_DEFAULT}. @table @var @item ret the newly-created idle source @end table @end deffn @deffn Function g-child-watch-source-new (pid@tie{}@code{int}) @result{}@tie{} (ret@tie{}@code{}) Creates a new child_watch source. The source will not initially be associated with any @code{} and must be added to one with @code{g-source-attach} before it will be executed. Note that child watch sources can only be used in conjunction with @samp{g_spawn...} when the @samp{G_SPAWN_DO_NOT_REAP_CHILD} flag is used. Note that on platforms where @code{} must be explicitly closed (see @code{g-spawn-close-pid}) @var{pid} must not be closed while the source is still active. Typically, you will want to call @code{g-spawn-close-pid} in the callback function for the source. Note further that using @code{g-child-watch-source-new} is not compatible with calling @samp{waitpid(-1)} in the application. Calling @code{waitpid} for individual pids will still work fine. @table @var @item pid process id of a child process to watch. On Windows, a HANDLE for the process to watch (which actually doesn't have to be a child). @item ret the newly-created child watch source @end table Since 2.4 @end deffn @deffn Function g-source-attach (self@tie{}@code{}) (context@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{unsigned-int}) Adds a @code{} to a @var{context} so that it will be executed within that context. @table @var @item source a @code{} @item context a @code{} (if @samp{@code{#f}}, the default context will be used) @item ret the ID (greater than 0) for the source within the @code{}. @end table @end deffn @deffn Function g-source-destroy (source@tie{}@code{}) Removes a source from its @code{}, if any, and mark it as destroyed. The source cannot be subsequently added to another context. @table @var @item source a @code{} @end table @end deffn @deffn Function g-source-is-destroyed (source@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{bool}) Returns whether @var{source} has been destroyed. This is important when you operate upon your objects from within idle handlers, but may have freed the object before the dispatch of your idle handler. @example static gboolean idle_callback (gpointer data) @{ SomeWidget *self = data; GDK_THREADS_ENTER (); /* do stuff with self */ self->idle_id = 0; GDK_THREADS_LEAVE (); return FALSE; @} static void some_widget_do_stuff_later (SomeWidget *self) @{ self->idle_id = g_idle_add (idle_callback, self); @} static void some_widget_finalize (GObject *object) @{ SomeWidget *self = SOME_WIDGET (object); if (self->idle_id) g_source_remove (self->idle_id); G_OBJECT_CLASS (parent_class)->finalize (object); @} @end example This will fail in a multi-threaded application if the widget is destroyed before the idle handler fires due to the use after free in the callback. A solution, to this particular problem, is to check to if the source has already been destroy within the callback. @example static gboolean idle_callback (gpointer data) @{ SomeWidget *self = data; GDK_THREADS_ENTER (); if (!g_source_is_destroyed (g_main_current_source ())) @{ /* do stuff with self */ @} GDK_THREADS_LEAVE (); return FALSE; @} @end example @table @var @item source a @code{} @item ret @samp{@code{#t}} if the source has been destroyed @end table Since 2.12 @end deffn @deffn Function g-source-set-priority (source@tie{}@code{}) (priority@tie{}@code{int}) Sets the priority of a source. While the main loop is being run, a source will be dispatched if it is ready to be dispatched and no sources at a higher (numerically smaller) priority are ready to be dispatched. @table @var @item source a @code{} @item priority the new priority. @end table @end deffn @deffn Function g-source-get-priority (source@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{int}) Gets the priority of a source. @table @var @item source a @code{} @item ret the priority of the source @end table @end deffn @deffn Function g-source-set-can-recurse (source@tie{}@code{}) (can_recurse@tie{}@code{bool}) Sets whether a source can be called recursively. If @var{can-recurse} is @samp{@code{#t}}, then while the source is being dispatched then this source will be processed normally. Otherwise, all processing of this source is blocked until the dispatch function returns. @table @var @item source a @code{} @item can-recurse whether recursion is allowed for this source @end table @end deffn @deffn Function g-source-get-can-recurse (source@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{bool}) Checks whether a source is allowed to be called recursively. see @code{g-source-set-can-recurse}. @table @var @item source a @code{} @item ret whether recursion is allowed. @end table @end deffn @deffn Function g-source-get-id (source@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{unsigned-int}) Returns the numeric ID for a particular source. The ID of a source is a positive integer which is unique within a particular main loop context. The reverse mapping from ID to source is done by @code{g-main-context-find-source-by-id}. @table @var @item source a @code{} @item ret the ID (greater than 0) for the source @end table @end deffn @deffn Function g-source-get-context (source@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{}) Gets the @code{} with which the source is associated. Calling this function on a destroyed source is an error. @table @var @item source a @code{} @item ret the @code{} with which the source is associated, or @samp{@code{#f}} if the context has not yet been added to a source. @end table @end deffn @deffn Function g-source-remove (tag@tie{}@code{unsigned-int}) @result{}@tie{} (ret@tie{}@code{bool}) Removes the source with the given id from the default main context. The id of a @code{} is given by @code{g-source-get-id}, or will be returned by the functions @code{g-source-attach}, @code{g-idle-add}, @code{g-idle-add-full}, @code{g-timeout-add}, @code{g-timeout-add-full}, @code{g-child-watch-add}, @code{g-child-watch-add-full}, @code{g-io-add-watch}, and @code{g-io-add-watch-full}. See also @code{g-source-destroy}. @table @var @item tag the ID of the source to remove. @item ret @samp{@code{#t}} if the source was found and removed. @end table @end deffn @c %end of fragment guile-gnome-platform-2.16.2/glib/doc/glib/section-shell.xml.texi0000644000175000017500000000031611670374302025031 0ustar00wingowingo00000000000000 @c %start of fragment @node Shell-related Utilities @chapter Shell-related Utilities shell-like commandline handling. @section Overview @section Usage @include defuns-shell.xml.texi @c %end of fragment guile-gnome-platform-2.16.2/glib/doc/glib/defuns-fileutils.xml.texi0000644000175000017500000000140411670374302025541 0ustar00wingowingo00000000000000 @c %start of fragment @deffn Function g-file-error-from-errno (err_no@tie{}@code{int}) @result{}@tie{} (ret@tie{}@code{}) Gets a @code{} constant based on the passed-in @var{errno}. For example, if you pass in @samp{EEXIST} this function returns @code{}. Unlike @var{errno} values, you can portably assume that all @code{} values will exist. Normally a @code{} value goes into a @code{} returned from a function that manipulates files. So you would use @code{g-file-error-from-errno} when constructing a @code{}. @table @var @item err-no an "errno" value @item ret @code{} corresponding to the given @var{errno} @end table @end deffn @c %end of fragment guile-gnome-platform-2.16.2/glib/doc/glib/defuns-misc_utils.xml.texi0000644000175000017500000001400711670374302025717 0ustar00wingowingo00000000000000 @c %start of fragment @deffn Function g-get-application-name @result{}@tie{} (ret@tie{}@code{mchars}) Gets a human-readable name for the application, as set by @code{g-set-application-name}. This name should be localized if possible, and is intended for display to the user. Contrast with @code{g-get-prgname}, which gets a non-localized name. If @code{g-set-application-name} has not been called, returns the result of @code{g-get-prgname} (which may be @samp{@code{#f}} if @code{g-set-prgname} has also not been called). @table @var @item ret human-readable application name. may return @samp{@code{#f}} @end table Since 2.2 @end deffn @deffn Function g-set-application-name (application_name@tie{}@code{mchars}) Sets a human-readable name for the application. This name should be localized if possible, and is intended for display to the user. Contrast with @code{g-set-prgname}, which sets a non-localized name. @code{g-set-prgname} will be called automatically by @code{gtk-init}, but @code{g-set-application-name} will not. Note that for thread safety reasons, this function can only be called once. The application name will be used in contexts such as error messages, or when displaying an application's name in the task list. @table @var @item application-name localized name of the application @end table @end deffn @deffn Function g-get-prgname @result{}@tie{} (ret@tie{}@code{mchars}) Gets the name of the program. This name should @emph{not} be localized, contrast with @code{g-get-application-name}. (If you are using GDK or GTK+ the program name is set in @code{gdk-init}, which is called by @code{gtk-init}. The program name is found by taking the last component of @samp{argv[0]}.) @table @var @item ret the name of the program. The returned string belongs to GLib and must not be modified or freed. @end table @end deffn @deffn Function g-set-prgname (prgname@tie{}@code{mchars}) Sets the name of the program. This name should @emph{not} be localized, contrast with @code{g-set-application-name}. Note that for thread-safety reasons this function can only be called once. @table @var @item prgname the name of the program. @end table @end deffn @deffn Function g-get-user-name @result{}@tie{} (ret@tie{}@code{mchars}) Gets the user name of the current user. The encoding of the returned string is system-defined. On UNIX, it might be the preferred file name encoding, or something else, and there is no guarantee that it is even consistent on a machine. On Windows, it is always UTF-8. @table @var @item ret the user name of the current user. @end table @end deffn @deffn Function g-get-real-name @result{}@tie{} (ret@tie{}@code{mchars}) Gets the real name of the user. This usually comes from the user's entry in the @file{passwd} file. The encoding of the returned string is system-defined. (On Windows, it is, however, always UTF-8.) If the real user name cannot be determined, the string "Unknown" is returned. @table @var @item ret the user's real name. @end table @end deffn @deffn Function g-get-user-cache-dir @result{}@tie{} (ret@tie{}@code{mchars}) Returns a base directory in which to store non-essential, cached data specific to particular user. On UNIX platforms this is determined using the mechanisms described in the @uref{http://www.freedesktop.org/Standards/basedir-spec, XDG Base Directory Specification} @table @var @item ret a string owned by GLib that must not be modified or freed. @end table Since 2.6 @end deffn @deffn Function g-get-user-data-dir @result{}@tie{} (ret@tie{}@code{mchars}) Returns a base directory in which to access application data such as icons that is customized for a particular user. On UNIX platforms this is determined using the mechanisms described in the @uref{http://www.freedesktop.org/Standards/basedir-spec, XDG Base Directory Specification} @table @var @item ret a string owned by GLib that must not be modified or freed. @end table Since 2.6 @end deffn @deffn Function g-get-user-config-dir @result{}@tie{} (ret@tie{}@code{mchars}) Returns a base directory in which to store user-specific application configuration information such as user preferences and settings. On UNIX platforms this is determined using the mechanisms described in the @uref{http://www.freedesktop.org/Standards/basedir-spec, XDG Base Directory Specification} @table @var @item ret a string owned by GLib that must not be modified or freed. @end table Since 2.6 @end deffn @deffn Function g-get-host-name @result{}@tie{} (ret@tie{}@code{mchars}) Return a name for the machine. The returned name is not necessarily a fully-qualified domain name, or even present in DNS or some other name service at all. It need not even be unique on your local network or site, but usually it is. Callers should not rely on the return value having any specific properties like uniqueness for security purposes. Even if the name of the machine is changed while an application is running, the return value from this function does not change. The returned string is owned by GLib and should not be modified or freed. If no name can be determined, a default fixed string "localhost" is returned. @table @var @item ret the host name of the machine. @end table Since 2.8 @end deffn @deffn Function g-get-home-dir @result{}@tie{} (ret@tie{}@code{mchars}) Gets the current user's home directory. Note that in contrast to traditional UNIX tools, this function prefers @file{passwd} entries over the @env{HOME} environment variable. @table @var @item ret the current user's home directory. @end table @end deffn @deffn Function g-get-tmp-dir @result{}@tie{} (ret@tie{}@code{mchars}) Gets the directory to use for temporary files. This is found from inspecting the environment variables @env{TMPDIR}, @env{TMP}, and @env{TEMP} in that order. If none of those are defined "/tmp" is returned on UNIX and "C:\" on Windows. The encoding of the returned string is system-defined. On Windows, it is always UTF-8. The return value is never @samp{@code{#f}}. @table @var @item ret the directory to use for temporary files. @end table @end deffn @c %end of fragment guile-gnome-platform-2.16.2/glib/doc/glib/section-misc_utils.xml.texi0000644000175000017500000000042411670374302026075 0ustar00wingowingo00000000000000 @c %start of fragment @node Miscellaneous Utility Functions @chapter Miscellaneous Utility Functions a selection of portable utility functions. @section Overview These are portable utility functions. @section Usage @include defuns-misc_utils.xml.texi @c %end of fragment guile-gnome-platform-2.16.2/glib/doc/glib/section-bookmarkfile.xml.texi0000644000175000017500000000610111670374302026365 0ustar00wingowingo00000000000000 @c %start of fragment @node Bookmark file parser @chapter Bookmark file parser parses files containing bookmarks @section Overview @code{} lets you parse, edit or create files containing bookmarks to URI, along with some meta-data about the resource pointed by the URI like its MIME type, the application that is registering the bookmark and the icon that should be used to represent the bookmark. The data is stored using the @uref{http://www.gnome.org/~ebassi/bookmark-spec,Desktop Bookmark Specification}. The syntax of the bookmark files is described in detail inside the Desktop Bookmark Specification, here is a quick summary: bookmark files use a sub-class of the XML Bookmark Exchange Language specification, consisting of valid UTF-8 encoded XML, under the @samp{xbel} root element; each bookmark is stored inside a @samp{bookmark} element, using its URI: no relative paths can be used inside a bookmark file. The bookmark may have a user defined title and description, to be used instead of the URI. Under the @samp{metadata} element, with its @samp{owner} attribute set to @samp{http://freedesktop.org}, is stored the meta-data about a resource pointed by its URI. The meta-data consists of the resource's MIME type; the applications that have registered a bookmark; the groups to which a bookmark belongs to; a visibility flag, used to set the bookmark as "private" to the applications and groups that has it registered; the URI and MIME type of an icon, to be used when displaying the bookmark inside a GUI. @example Desktop Bookmarks Spec text/xml Editors @end example A bookmark file might contain more than one bookmark; each bookmark is accessed through its URI. The important caveat of bookmark files is that when you add a new bookmark you must also add the application that is registering it, using @code{g-bookmark-file-add-application} or @code{g-bookmark-file-set-app-info}. If a bookmark has no applications then it won't be dumped when creating the on disk representation, using @code{g-bookmark-file-to-data} or @code{g-bookmark-file-to-file}. The @code{} parser was added in GLib 2.12. @section Usage @include defuns-bookmarkfile.xml.texi @c %end of fragment guile-gnome-platform-2.16.2/glib/doc/glib/section-strings.xml.texi0000644000175000017500000000112511670374302025412 0ustar00wingowingo00000000000000 @c %start of fragment @node Strings @chapter Strings text buffers which grow automatically as text is added. @section Overview A @code{} is similar to a standard C string, except that it grows automatically as text is appended or inserted. Also, it stores the length of the string, so can be used for binary data with embedded nul bytes. @section Usage @include defuns-strings.xml.texi @deffn Function g-string-get-str (string@tie{}@code{}) @result{}@tie{}(chars @code{mchars}) Retrieves the contents of @var{string} as a Scheme string. @end deffn @c %end of fragment guile-gnome-platform-2.16.2/glib/doc/glib/defuns-conversions.xml.texi0000644000175000017500000002103611670374302026114 0ustar00wingowingo00000000000000 @c %start of fragment @deffn Function g-convert (str@tie{}@code{mchars}) (len@tie{}@code{ssize_t}) (to_codeset@tie{}@code{mchars}) (from_codeset@tie{}@code{mchars}) @result{}@tie{} (ret@tie{}@code{mchars}) (bytes_read@tie{}@code{size_t}) (bytes_written@tie{}@code{size_t}) Converts a string from one character set to another. @table @var @item str the string to convert @item to-codeset name of character set into which to convert @var{str} @item from-codeset character set of @var{str}. @item ret If the conversion was successful, a string. Otherwise an exception will be thrown. @end table Note that some encodings may allow nul bytes to occur inside strings. In that case, the Guile wrapper for this function is unsafe. @end deffn @deffn Function g-convert-with-fallback (str@tie{}@code{mchars}) (len@tie{}@code{ssize_t}) (to_codeset@tie{}@code{mchars}) (from_codeset@tie{}@code{mchars}) (fallback@tie{}@code{mchars}) @result{}@tie{} (ret@tie{}@code{mchars}) (bytes_read@tie{}@code{size_t}) (bytes_written@tie{}@code{size_t}) Converts a string from one character set to another, possibly including fallback sequences for characters not representable in the output. Note that it is not guaranteed that the specification for the fallback sequences in @var{fallback} will be honored. Some systems may do a approximate conversion from @var{from-codeset} to @var{to-codeset} in their @code{iconv} functions, in which case GLib will simply return that approximate conversion. @table @var @item str the string to convert @item to-codeset name of character set into which to convert @var{str} @item from-codeset character set of @var{str}. @item fallback UTF-8 string to use in place of character not present in the target encoding. (The string must be representable in the target encoding). If @samp{@code{#f}}, characters not in the target encoding will be represented as Unicode escapes \uxxxx or \Uxxxxyyyy. @item ret If the conversion was successful, a string. Otherwise an exception will be thrown. @end table @end deffn @deffn Function g-locale-to-utf8 (opsysstring@tie{}@code{mchars}) (len@tie{}@code{ssize_t}) @result{}@tie{} (ret@tie{}@code{mchars}) (bytes_read@tie{}@code{size_t}) (bytes_written@tie{}@code{size_t}) Converts a string which is in the encoding used for strings by the C runtime (usually the same as that used by the operating system) in the current locale into a UTF-8 string. @table @var @item opsysstring a string in the encoding of the current locale. On Windows this means the system codepage. @item ret The converted string. If the conversion fails, an exception will be raised. @end table @end deffn @deffn Function g-filename-to-utf8 (opsysstring@tie{}@code{mchars}) (len@tie{}@code{ssize_t}) @result{}@tie{} (ret@tie{}@code{mchars}) (bytes_read@tie{}@code{size_t}) (bytes_written@tie{}@code{size_t}) Converts a string which is in the encoding used by GLib for filenames into a UTF-8 string. Note that on Windows GLib uses UTF-8 for filenames. @table @var @item opsysstring a string in the encoding for filenames @item ret The converted string. If the conversion fails, an exception will be raised. @end table @end deffn @deffn Function g-filename-from-utf8 (utf8string@tie{}@code{mchars}) (len@tie{}@code{ssize_t}) @result{}@tie{} (ret@tie{}@code{mchars}) (bytes_read@tie{}@code{size_t}) (bytes_written@tie{}@code{size_t}) Converts a string from UTF-8 to the encoding GLib uses for filenames. Note that on Windows GLib uses UTF-8 for filenames. @table @var @item utf8string a UTF-8 encoded string. @item len the length of the string, or -1 if the string is nul-terminated. @item bytes-read location to store the number of bytes in the input string that were successfully converted, or @samp{@code{#f}}. Even if the conversion was successful, this may be less than @var{len} if there were partial characters at the end of the input. If the error @code{} occurs, the value stored will the byte offset after the last valid input sequence. @item bytes-written the number of bytes stored in the output buffer (not including the terminating nul). @item error location to store the error occuring, or @samp{@code{#f}} to ignore errors. Any of the errors in @code{} may occur. @item ret The converted string, or @samp{@code{#f}} on an error. @end table @end deffn @deffn Function g-filename-from-uri (uri@tie{}@code{mchars}) @result{}@tie{} (ret@tie{}@code{mchars}) (hostname@tie{}@code{mchars}) Converts an escaped ASCII-encoded URI to a local filename in the encoding used for filenames. @table @var @item uri a uri describing a filename (escaped, encoded in ASCII). @item hostname Location to store hostname for the URI, or @samp{@code{#f}}. If there is no hostname in the URI, @samp{@code{#f}} will be stored in this location. @item error location to store the error occuring, or @samp{@code{#f}} to ignore errors. Any of the errors in @code{} may occur. @item ret a newly-allocated string holding the resulting filename, or @samp{@code{#f}} on an error. @end table @end deffn @deffn Function g-filename-to-uri (filename@tie{}@code{mchars}) (hostname@tie{}@code{mchars}) @result{}@tie{} (ret@tie{}@code{mchars}) Converts an absolute filename to an escaped ASCII-encoded URI, with the path component following Section 3.3. of RFC 2396. @table @var @item filename an absolute filename specified in the GLib file name encoding, which is the on-disk file name bytes on Unix, and UTF-8 on Windows @item hostname A UTF-8 encoded hostname, or @samp{@code{#f}} for none. @item error location to store the error occuring, or @samp{@code{#f}} to ignore errors. Any of the errors in @code{} may occur. @item ret a newly-allocated string holding the resulting URI, or @samp{@code{#f}} on an error. @end table @end deffn @deffn Function g-filename-display-name (filename@tie{}@code{mchars}) @result{}@tie{} (ret@tie{}@code{mchars}) Converts a filename into a valid UTF-8 string. The conversion is not necessarily reversible, so you should keep the original around and use the return value of this function only for display purposes. Unlike @code{g-filename-to-utf8}, the result is guaranteed to be non-@samp{@code{#f}} even if the filename actually isn't in the GLib file name encoding. If GLib can not make sense of the encoding of @var{filename}, as a last resort it replaces unknown characters with U+FFFD, the Unicode replacement character. You can search the result for the UTF-8 encoding of this character (which is "\357\277\275" in octal notation) to find out if @var{filename} was in an invalid encoding. If you know the whole pathname of the file you should use @code{g-filename-display-basename}, since that allows location-based translation of filenames. @table @var @item filename a pathname hopefully in the GLib file name encoding @item ret a newly allocated string containing a rendition of the filename in valid UTF-8 @end table Since 2.6 @end deffn @deffn Function g-filename-display-basename (filename@tie{}@code{mchars}) @result{}@tie{} (ret@tie{}@code{mchars}) Returns the display basename for the particular filename, guaranteed to be valid UTF-8. The display name might not be identical to the filename, for instance there might be problems converting it to UTF-8, and some files can be translated in the display. If GLib can not make sense of the encoding of @var{filename}, as a last resort it replaces unknown characters with U+FFFD, the Unicode replacement character. You can search the result for the UTF-8 encoding of this character (which is "\357\277\275" in octal notation) to find out if @var{filename} was in an invalid encoding. You must pass the whole absolute pathname to this functions so that translation of well known locations can be done. This function is preferred over @code{g-filename-display-name} if you know the whole path, as it allows translation. @table @var @item filename an absolute pathname in the GLib file name encoding @item ret a newly allocated string containing a rendition of the basename of the filename in valid UTF-8 @end table Since 2.6 @end deffn @deffn Function g-locale-from-utf8 (utf8string@tie{}@code{mchars}) (len@tie{}@code{ssize_t}) @result{}@tie{} (ret@tie{}@code{mchars}) (bytes_read@tie{}@code{size_t}) (bytes_written@tie{}@code{size_t}) Converts a string from UTF-8 to the encoding used for strings by the C runtime (usually the same as that used by the operating system) in the current locale. @table @var @item utf8string a UTF-8 encoded string @item ret The converted string. If the conversion fails, an exception will be raised. @end table @end deffn @c %end of fragment guile-gnome-platform-2.16.2/glib/doc/glib/defuns-unicode.xml.texi0000644000175000017500000005153411670374302025200 0ustar00wingowingo00000000000000 @c %start of fragment @deffn Function g-unichar-validate (ch@tie{}@code{unsigned-int32}) @result{}@tie{} (ret@tie{}@code{bool}) Checks whether @var{ch} is a valid Unicode character. Some possible integer values of @var{ch} will not be valid. 0 is considered a valid character, though it's normally a string terminator. @table @var @item ch a Unicode character @item ret @samp{@code{#t}} if @var{ch} is a valid Unicode character @end table @end deffn @deffn Function g-unichar-isalnum (c@tie{}@code{unsigned-int32}) @result{}@tie{} (ret@tie{}@code{bool}) Determines whether a character is alphanumeric. Given some UTF-8 text, obtain a character value with @code{g-utf8-get-char}. @table @var @item c a Unicode character @item ret @samp{@code{#t}} if @var{c} is an alphanumeric character @end table @end deffn @deffn Function g-unichar-isalpha (c@tie{}@code{unsigned-int32}) @result{}@tie{} (ret@tie{}@code{bool}) Determines whether a character is alphabetic (i.e. a letter). Given some UTF-8 text, obtain a character value with @code{g-utf8-get-char}. @table @var @item c a Unicode character @item ret @samp{@code{#t}} if @var{c} is an alphabetic character @end table @end deffn @deffn Function g-unichar-iscntrl (c@tie{}@code{unsigned-int32}) @result{}@tie{} (ret@tie{}@code{bool}) Determines whether a character is a control character. Given some UTF-8 text, obtain a character value with @code{g-utf8-get-char}. @table @var @item c a Unicode character @item ret @samp{@code{#t}} if @var{c} is a control character @end table @end deffn @deffn Function g-unichar-isdigit (c@tie{}@code{unsigned-int32}) @result{}@tie{} (ret@tie{}@code{bool}) Determines whether a character is numeric (i.e. a digit). This covers ASCII 0-9 and also digits in other languages/scripts. Given some UTF-8 text, obtain a character value with @code{g-utf8-get-char}. @table @var @item c a Unicode character @item ret @samp{@code{#t}} if @var{c} is a digit @end table @end deffn @deffn Function g-unichar-isgraph (c@tie{}@code{unsigned-int32}) @result{}@tie{} (ret@tie{}@code{bool}) Determines whether a character is printable and not a space (returns @samp{@code{#f}} for control characters, format characters, and spaces). @code{g-unichar-isprint} is similar, but returns @samp{@code{#t}} for spaces. Given some UTF-8 text, obtain a character value with @code{g-utf8-get-char}. @table @var @item c a Unicode character @item ret @samp{@code{#t}} if @var{c} is printable unless it's a space @end table @end deffn @deffn Function g-unichar-islower (c@tie{}@code{unsigned-int32}) @result{}@tie{} (ret@tie{}@code{bool}) Determines whether a character is a lowercase letter. Given some UTF-8 text, obtain a character value with @code{g-utf8-get-char}. @table @var @item c a Unicode character @item ret @samp{@code{#t}} if @var{c} is a lowercase letter @end table @end deffn @deffn Function g-unichar-isprint (c@tie{}@code{unsigned-int32}) @result{}@tie{} (ret@tie{}@code{bool}) Determines whether a character is printable. Unlike @code{g-unichar-isgraph}, returns @samp{@code{#t}} for spaces. Given some UTF-8 text, obtain a character value with @code{g-utf8-get-char}. @table @var @item c a Unicode character @item ret @samp{@code{#t}} if @var{c} is printable @end table @end deffn @deffn Function g-unichar-ispunct (c@tie{}@code{unsigned-int32}) @result{}@tie{} (ret@tie{}@code{bool}) Determines whether a character is punctuation or a symbol. Given some UTF-8 text, obtain a character value with @code{g-utf8-get-char}. @table @var @item c a Unicode character @item ret @samp{@code{#t}} if @var{c} is a punctuation or symbol character @end table @end deffn @deffn Function g-unichar-isspace (c@tie{}@code{unsigned-int32}) @result{}@tie{} (ret@tie{}@code{bool}) Determines whether a character is a space, tab, or line separator (newline, carriage return, etc.). Given some UTF-8 text, obtain a character value with @code{g-utf8-get-char}. (Note: don't use this to do word breaking; you have to use Pango or equivalent to get word breaking right, the algorithm is fairly complex.) @table @var @item c a Unicode character @item ret @samp{@code{#t}} if @var{c} is a space character @end table @end deffn @deffn Function g-unichar-isupper (c@tie{}@code{unsigned-int32}) @result{}@tie{} (ret@tie{}@code{bool}) Determines if a character is uppercase. @table @var @item c a Unicode character @item ret @samp{@code{#t}} if @var{c} is an uppercase character @end table @end deffn @deffn Function g-unichar-isxdigit (c@tie{}@code{unsigned-int32}) @result{}@tie{} (ret@tie{}@code{bool}) Determines if a character is a hexidecimal digit. @table @var @item c a Unicode character. @item ret @samp{@code{#t}} if the character is a hexadecimal digit @end table @end deffn @deffn Function g-unichar-istitle (c@tie{}@code{unsigned-int32}) @result{}@tie{} (ret@tie{}@code{bool}) Determines if a character is titlecase. Some characters in Unicode which are composites, such as the DZ digraph have three case variants instead of just two. The titlecase form is used at the beginning of a word where only the first letter is capitalized. The titlecase form of the DZ digraph is U+01F2 LATIN CAPITAL LETTTER D WITH SMALL LETTER Z. @table @var @item c a Unicode character @item ret @samp{@code{#t}} if the character is titlecase @end table @end deffn @deffn Function g-unichar-isdefined (c@tie{}@code{unsigned-int32}) @result{}@tie{} (ret@tie{}@code{bool}) Determines if a given character is assigned in the Unicode standard. @table @var @item c a Unicode character @item ret @samp{@code{#t}} if the character has an assigned value @end table @end deffn @deffn Function g-unichar-iswide (c@tie{}@code{unsigned-int32}) @result{}@tie{} (ret@tie{}@code{bool}) Determines if a character is typically rendered in a double-width cell. @table @var @item c a Unicode character @item ret @samp{@code{#t}} if the character is wide @end table @end deffn @deffn Function g-unichar-iswide-cjk (c@tie{}@code{unsigned-int32}) @result{}@tie{} (ret@tie{}@code{bool}) Determines if a character is typically rendered in a double-width cell under legacy East Asian locales. If a character is wide according to @code{g-unichar-iswide}, then it is also reported wide with this function, but the converse is not necessarily true. See the @uref{http://www.unicode.org/reports/tr11/,Unicode Standard Annex } for details. @table @var @item c a Unicode character @item ret @samp{@code{#t}} if the character is wide in legacy East Asian locales @end table Since 2.12 @end deffn @deffn Function g-unichar-toupper (c@tie{}@code{unsigned-int32}) @result{}@tie{} (ret@tie{}@code{unsigned-int32}) Converts a character to uppercase. @table @var @item c a Unicode character @item ret the result of converting @var{c} to uppercase. If @var{c} is not an lowercase or titlecase character, or has no upper case equivalent @var{c} is returned unchanged. @end table @end deffn @deffn Function g-unichar-tolower (c@tie{}@code{unsigned-int32}) @result{}@tie{} (ret@tie{}@code{unsigned-int32}) Converts a character to lower case. @table @var @item c a Unicode character. @item ret the result of converting @var{c} to lower case. If @var{c} is not an upperlower or titlecase character, or has no lowercase equivalent @var{c} is returned unchanged. @end table @end deffn @deffn Function g-unichar-totitle (c@tie{}@code{unsigned-int32}) @result{}@tie{} (ret@tie{}@code{unsigned-int32}) Converts a character to the titlecase. @table @var @item c a Unicode character @item ret the result of converting @var{c} to titlecase. If @var{c} is not an uppercase or lowercase character, @var{c} is returned unchanged. @end table @end deffn @deffn Function g-unichar-digit-value (c@tie{}@code{unsigned-int32}) @result{}@tie{} (ret@tie{}@code{int}) Determines the numeric value of a character as a decimal digit. @table @var @item c a Unicode character @item ret If @var{c} is a decimal digit (according to @code{g-unichar-isdigit}), its numeric value. Otherwise, -1. @end table @end deffn @deffn Function g-unichar-xdigit-value (c@tie{}@code{unsigned-int32}) @result{}@tie{} (ret@tie{}@code{int}) Determines the numeric value of a character as a hexidecimal digit. @table @var @item c a Unicode character @item ret If @var{c} is a hex digit (according to @code{g-unichar-isxdigit}), its numeric value. Otherwise, -1. @end table @end deffn @deffn Function g-unichar-type (c@tie{}@code{unsigned-int32}) @result{}@tie{} (ret@tie{}@code{}) Classifies a Unicode character by type. @table @var @item c a Unicode character @item ret the type of the character. @end table @end deffn @deffn Function g-unichar-break-type (c@tie{}@code{unsigned-int32}) @result{}@tie{} (ret@tie{}@code{}) Determines the break type of @var{c}. @var{c} should be a Unicode character (to derive a character from UTF-8 encoded text, use @code{g-utf8-get-char}). The break type is used to find word and line breaks ("text boundaries"), Pango implements the Unicode boundary resolution algorithms and normally you would use a function such as @code{pango-break} instead of caring about break types yourself. @table @var @item c a Unicode character @item ret the break type of @var{c} @end table @end deffn @deffn Function g-unichar-get-mirror-char (ch@tie{}@code{unsigned-int32}) @result{}@tie{} (ret@tie{}@code{bool}) (mirrored_ch@tie{}@code{unsigned-int32}) In Unicode, some characters are @dfn{mirrored}. This means that their images are mirrored horizontally in text that is laid out from right to left. For instance, "(" would become its mirror image, ")", in right-to-left text. If @var{ch} has the Unicode mirrored property and there is another unicode character that typically has a glyph that is the mirror image of @var{ch}'s glyph and @var{mirrored-ch} is set, it puts that character in the address pointed to by @var{mirrored-ch}. Otherwise the original character is put. @table @var @item ch a Unicode character @item mirrored-ch location to store the mirrored character @item ret @samp{@code{#t}} if @var{ch} has a mirrored character, @samp{@code{#f}} otherwise @end table Since 2.4 @end deffn @deffn Function g-utf8-get-char (p@tie{}@code{mchars}) @result{}@tie{} (ret@tie{}@code{unsigned-int32}) Converts a sequence of bytes encoded as UTF-8 to a Unicode character. If @var{p} does not point to a valid UTF-8 encoded character, results are undefined. If you are not sure that the bytes are complete valid Unicode characters, you should use @code{g-utf8-get-char-validated} instead. @table @var @item p a pointer to Unicode character encoded as UTF-8 @item ret the resulting character @end table @end deffn @deffn Function g-utf8-find-next-char (p@tie{}@code{mchars}) @result{}@tie{} (ret@tie{}@code{mchars}) Finds the start of the next UTF-8 character in the string after @var{p}. @var{p} does not have to be at the beginning of a UTF-8 character. No check is made to see if the character found is actually valid other than it starts with an appropriate byte. @table @var @item p a pointer to a position within a UTF-8 encoded string @item end a pointer to the end of the string, or @samp{@code{#f}} to indicate that the string is nul-terminated, in which case the returned value will be @item ret a pointer to the found character or @samp{@code{#f}} @end table @end deffn @deffn Function g-utf8-strlen (p@tie{}@code{mchars}) @result{}@tie{} (ret@tie{}@code{long}) Returns the length of the string in characters. @table @var @item p pointer to the start of a UTF-8 encoded string. @item max the maximum number of bytes to examine. If @var{max} is less than 0, then the string is assumed to be nul-terminated. If @var{max} is 0, @var{p} will not be examined and may be @samp{@code{#f}}. @item ret the length of the string in characters @end table @end deffn @deffn Function g-utf8-strchr (p@tie{}@code{mchars}) (c@tie{}@code{unsigned-int32}) @result{}@tie{} (ret@tie{}@code{mchars}) Finds the leftmost occurrence of the given Unicode character in a UTF-8 encoded string, while limiting the search to @var{len} bytes. If @var{len} is -1, allow unbounded search. @table @var @item p a nul-terminated UTF-8 encoded string @item len the maximum length of @var{p} @item c a Unicode character @item ret @samp{@code{#f}} if the string does not contain the character, otherwise, a pointer to the start of the leftmost occurrence of the character in the string. @end table @end deffn @deffn Function g-utf8-strrchr (p@tie{}@code{mchars}) (c@tie{}@code{unsigned-int32}) @result{}@tie{} (ret@tie{}@code{mchars}) Find the rightmost occurrence of the given Unicode character in a UTF-8 encoded string, while limiting the search to @var{len} bytes. If @var{len} is -1, allow unbounded search. @table @var @item p a nul-terminated UTF-8 encoded string @item len the maximum length of @var{p} @item c a Unicode character @item ret @samp{@code{#f}} if the string does not contain the character, otherwise, a pointer to the start of the rightmost occurrence of the character in the string. @end table @end deffn @deffn Function g-utf8-strreverse (p@tie{}@code{mchars}) @result{}@tie{} (ret@tie{}@code{mchars}) Reverses a UTF-8 string. @var{str} must be valid UTF-8 encoded text. (Use @code{g-utf8-validate} on all text before trying to use UTF-8 utility functions with it.) Note that unlike @code{g-strreverse}, this function returns newly-allocated memory, which should be freed with @code{g-free} when no longer needed. @table @var @item str a UTF-8 encoded string @item len the maximum length of @var{str} to use. If @var{len} < 0, then the string is nul-terminated. @item ret a newly-allocated string which is the reverse of @var{str}. @end table Since 2.2 @end deffn @deffn Function g-utf8-validate (p@tie{}@code{mchars}) @result{}@tie{} (ret@tie{}@code{bool}) Validates UTF-8 encoded text. @var{str} is the text to validate; if @var{str} is nul-terminated, then @var{max-len} can be -1, otherwise @var{max-len} should be the number of bytes to validate. If @var{end} is non-@samp{@code{#f}}, then the end of the valid range will be stored there (i.e. the start of the first invalid character if some bytes were invalid, or the end of the text being validated otherwise). Note that @code{g-utf8-validate} returns @samp{@code{#f}} if @var{max-len} is positive and NUL is met before @var{max-len} bytes have been read. Returns @samp{@code{#t}} if all of @var{str} was valid. Many GLib and GTK+ routines @emph{require} valid UTF-8 as input; so data read from a file or the network should be checked with @code{g-utf8-validate} before doing anything else with it. @table @var @item str a pointer to character data @item max-len max bytes to validate, or -1 to go until NUL @item end return location for end of valid data @item ret @samp{@code{#t}} if the text was valid UTF-8 @end table @end deffn @deffn Function g-utf8-strup (p@tie{}@code{mchars}) @result{}@tie{} (ret@tie{}@code{mchars}) Converts all Unicode characters in the string that have a case to uppercase. The exact manner that this is done depends on the current locale, and may result in the number of characters in the string increasing. (For instance, the German ess-zet will be changed to SS.) @table @var @item str a UTF-8 encoded string @item len length of @var{str}, in bytes, or -1 if @var{str} is nul-terminated. @item ret a newly allocated string, with all characters converted to uppercase. @end table @end deffn @deffn Function g-utf8-strdown (p@tie{}@code{mchars}) @result{}@tie{} (ret@tie{}@code{mchars}) Converts all Unicode characters in the string that have a case to lowercase. The exact manner that this is done depends on the current locale, and may result in the number of characters in the string changing. @table @var @item str a UTF-8 encoded string @item len length of @var{str}, in bytes, or -1 if @var{str} is nul-terminated. @item ret a newly allocated string, with all characters converted to lowercase. @end table @end deffn @deffn Function g-utf8-casefold (p@tie{}@code{mchars}) @result{}@tie{} (ret@tie{}@code{mchars}) Converts a string into a form that is independent of case. The result will not correspond to any particular case, but can be compared for equality or ordered with the results of calling @code{g-utf8-casefold} on other strings. Note that calling @code{g-utf8-casefold} followed by @code{g-utf8-collate} is only an approximation to the correct linguistic case insensitive ordering, though it is a fairly good one. Getting this exactly right would require a more sophisticated collation function that takes case sensitivity into account. GLib does not currently provide such a function. @table @var @item str a UTF-8 encoded string @item len length of @var{str}, in bytes, or -1 if @var{str} is nul-terminated. @item ret a newly allocated string, that is a case independent form of @var{str}. @end table @end deffn @deffn Function g-utf8-normalize (p@tie{}@code{mchars}) (mode@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{mchars}) Converts a string into canonical form, standardizing such issues as whether a character with an accent is represented as a base character and combining accent or as a single precomposed character. You should generally call @code{g-utf8-normalize} before comparing two Unicode strings. The normalization mode @samp{G_NORMALIZE_DEFAULT} only standardizes differences that do not affect the text content, such as the above-mentioned accent representation. @samp{G_NORMALIZE_ALL} also standardizes the "compatibility" characters in Unicode, such as SUPERSCRIPT THREE to the standard forms (in this case DIGIT THREE). Formatting information may be lost but for most text operations such characters should be considered the same. For example, @code{g-utf8-collate} normalizes with @samp{G_NORMALIZE_ALL} as its first step. @samp{G_NORMALIZE_DEFAULT_COMPOSE} and @samp{G_NORMALIZE_ALL_COMPOSE} are like @samp{G_NORMALIZE_DEFAULT} and @samp{G_NORMALIZE_ALL}, but returned a result with composed forms rather than a maximally decomposed form. This is often useful if you intend to convert the string to a legacy encoding or pass it to a system with less capable Unicode handling. @table @var @item str a UTF-8 encoded string. @item len length of @var{str}, in bytes, or -1 if @var{str} is nul-terminated. @item mode the type of normalization to perform. @item ret a newly allocated string, that is the normalized form of @var{str}. @end table @end deffn @deffn Function g-utf8-collate (str1@tie{}@code{mchars}) (str2@tie{}@code{mchars}) @result{}@tie{} (ret@tie{}@code{int}) Compares two strings for ordering using the linguistically correct rules for the current locale. When sorting a large number of strings, it will be significantly faster to obtain collation keys with @code{g-utf8-collate-key} and compare the keys with @code{strcmp} when sorting instead of sorting the original strings. @table @var @item str1 a UTF-8 encoded string @item str2 a UTF-8 encoded string @item ret < 0 if @var{str1} compares before @var{str2}, 0 if they compare equal, > 0 if @var{str1} compares after @var{str2}. @end table @end deffn @deffn Function g-utf8-collate-key (p@tie{}@code{mchars}) @result{}@tie{} (ret@tie{}@code{mchars}) Converts a string into a collation key that can be compared with other collation keys produced by the same function using @code{strcmp}. The results of comparing the collation keys of two strings with @code{strcmp} will always be the same as comparing the two original keys with @code{g-utf8-collate}. @table @var @item str a UTF-8 encoded string. @item len length of @var{str}, in bytes, or -1 if @var{str} is nul-terminated. @item ret a newly allocated string. This string should be freed with @code{g-free} when you are done with it. @end table @end deffn @deffn Function g-utf8-collate-key-for-filename (p@tie{}@code{mchars}) @result{}@tie{} (ret@tie{}@code{mchars}) Converts a string into a collation key that can be compared with other collation keys produced by the same function using @code{strcmp}. In order to sort filenames correctly, this function treats the dot '.' as a special case. Most dictionary orderings seem to consider it insignificant, thus producing the ordering "event.c" "eventgenerator.c" "event.h" instead of "event.c" "event.h" "eventgenerator.c". Also, we would like to treat numbers intelligently so that "file1" "file10" "file5" is sorted as "file1" "file5" "file10". @table @var @item str a UTF-8 encoded string. @item len length of @var{str}, in bytes, or -1 if @var{str} is nul-terminated. @item ret a newly allocated string. This string should be freed with @code{g-free} when you are done with it. @end table Since 2.8 @end deffn @deffn Function g-unichar-to-utf8 (c@tie{}@code{unsigned-int32}) @result{}@tie{} (ret@tie{}@code{mchars}) Converts a single character to UTF-8. @table @var @item c a Unicode character code @item outbuf output buffer, must have at least 6 bytes of space. If @samp{@code{#f}}, the length will be computed and returned and nothing will be written to @var{outbuf}. @item ret number of bytes written @end table @end deffn @c %end of fragment guile-gnome-platform-2.16.2/glib/doc/glib/section-quarks.xml.texi0000644000175000017500000000210311670374302025224 0ustar00wingowingo00000000000000 @c %start of fragment @node Quarks @chapter Quarks a 2-way association between a string and a unique integer identifier. @section Overview Quarks are associations between strings and integer identifiers. Given either the string or the @code{} identifier it is possible to retrieve the other. Quarks are used for both Datasets and Keyed Data Lists. To create a new quark from a string, use @code{g-quark-from-string} or @code{g-quark-from-static-string}. To find the string corresponding to a given @code{}, use @code{g-quark-to-string}. To find the @code{} corresponding to a given string, use @code{g-quark-try-string}. Another use for the string pool maintained for the quark functions is string interning, using @code{g-intern-string} or @code{g-intern-static-string}. An interned string is a canonical representation for a string. One important advantage of interned strings is that they can be compared for equality by a simple pointer comparision, rather than using @code{strcmp}. @section Usage @include defuns-quarks.xml.texi @c %end of fragment guile-gnome-platform-2.16.2/glib/doc/glib/overrides.texi0000644000175000017500000001114711670374302023467 0ustar00wingowingo00000000000000@deffn Function g-main-depth @result{}@tie{} (ret@tie{}@code{int}) Return value: The main loop recursion level in the current thread The value returned is the depth of the stack of calls to @code{g-main-context-dispatch} on any @code{} in the current thread. That is, when called from the toplevel, it gives 0. When called from within a callback from @code{g-main-context-iteration} (or @code{g-main-loop-run}, etc.) it returns 1. When called from within a callback to a recursive call to @code{g-main-context-iterate}, it returns 2. And so forth. This function is an attractive nuisance, and its use normally indicates a misunderstanding of how main loop reentrancy works. Use @code{gtk-widget-set-sensitive} or modal dialogs to prevent the user from interacting with elements while the main loop is recursing. A better idea is to avoid main loop recursion entirely. Instead, structure your code so that you simply return to the main loop and then get called again when there is more work to do. @end deffn @deffn Function g-convert (str@tie{}@code{mchars}) (len@tie{}@code{ssize_t}) (to_codeset@tie{}@code{mchars}) (from_codeset@tie{}@code{mchars}) @result{}@tie{} (ret@tie{}@code{mchars}) (bytes_read@tie{}@code{size_t}) (bytes_written@tie{}@code{size_t}) Converts a string from one character set to another. @table @var @item str the string to convert @item to-codeset name of character set into which to convert @var{str} @item from-codeset character set of @var{str}. @item ret If the conversion was successful, a string. Otherwise an exception will be thrown. @end table Note that some encodings may allow nul bytes to occur inside strings. In that case, the Guile wrapper for this function is unsafe. @end deffn @deffn Function g-convert-with-fallback (str@tie{}@code{mchars}) (len@tie{}@code{ssize_t}) (to_codeset@tie{}@code{mchars}) (from_codeset@tie{}@code{mchars}) (fallback@tie{}@code{mchars}) @result{}@tie{} (ret@tie{}@code{mchars}) (bytes_read@tie{}@code{size_t}) (bytes_written@tie{}@code{size_t}) Converts a string from one character set to another, possibly including fallback sequences for characters not representable in the output. Note that it is not guaranteed that the specification for the fallback sequences in @var{fallback} will be honored. Some systems may do a approximate conversion from @var{from-codeset} to @var{to-codeset} in their @code{iconv} functions, in which case GLib will simply return that approximate conversion. @table @var @item str the string to convert @item to-codeset name of character set into which to convert @var{str} @item from-codeset character set of @var{str}. @item fallback UTF-8 string to use in place of character not present in the target encoding. (The string must be representable in the target encoding). If @samp{@code{#f}}, characters not in the target encoding will be represented as Unicode escapes \uxxxx or \Uxxxxyyyy. @item ret If the conversion was successful, a string. Otherwise an exception will be thrown. @end table @end deffn @deffn Function g-locale-to-utf8 (opsysstring@tie{}@code{mchars}) (len@tie{}@code{ssize_t}) @result{}@tie{} (ret@tie{}@code{mchars}) (bytes_read@tie{}@code{size_t}) (bytes_written@tie{}@code{size_t}) Converts a string which is in the encoding used for strings by the C runtime (usually the same as that used by the operating system) in the current locale into a UTF-8 string. @table @var @item opsysstring a string in the encoding of the current locale. On Windows this means the system codepage. @item ret The converted string. If the conversion fails, an exception will be raised. @end table @end deffn @deffn Function g-locale-from-utf8 (utf8string@tie{}@code{mchars}) (len@tie{}@code{ssize_t}) @result{}@tie{} (ret@tie{}@code{mchars}) (bytes_read@tie{}@code{size_t}) (bytes_written@tie{}@code{size_t}) Converts a string from UTF-8 to the encoding used for strings by the C runtime (usually the same as that used by the operating system) in the current locale. @table @var @item utf8string a UTF-8 encoded string @item ret The converted string. If the conversion fails, an exception will be raised. @end table @end deffn @deffn Function g-filename-to-utf8 (opsysstring@tie{}@code{mchars}) (len@tie{}@code{ssize_t}) @result{}@tie{} (ret@tie{}@code{mchars}) (bytes_read@tie{}@code{size_t}) (bytes_written@tie{}@code{size_t}) Converts a string which is in the encoding used by GLib for filenames into a UTF-8 string. Note that on Windows GLib uses UTF-8 for filenames. @table @var @item opsysstring a string in the encoding for filenames @item ret The converted string. If the conversion fails, an exception will be raised. @end table @end deffn guile-gnome-platform-2.16.2/glib/doc/glib/defuns-shell.xml.texi0000644000175000017500000000404211670374302024651 0ustar00wingowingo00000000000000 @c %start of fragment @deffn Function g-shell-quote (unquoted_string@tie{}@code{mchars}) @result{}@tie{} (ret@tie{}@code{mchars}) Quotes a string so that the shell (/bin/sh) will interpret the quoted string to mean @var{unquoted-string}. If you pass a filename to the shell, for example, you should first quote it with this function. The return value must be freed with @code{g-free}. The quoting style used is undefined (single or double quotes may be used). @table @var @item unquoted-string a literal string @item ret quoted string @end table @end deffn @deffn Function g-shell-unquote (quoted_string@tie{}@code{mchars}) @result{}@tie{} (ret@tie{}@code{mchars}) Unquotes a string as the shell (/bin/sh) would. Only handles quotes; if a string contains file globs, arithmetic operators, variables, backticks, redirections, or other special-to-the-shell features, the result will be different from the result a real shell would produce (the variables, backticks, etc. will be passed through literally instead of being expanded). This function is guaranteed to succeed if applied to the result of @code{g-shell-quote}. If it fails, it returns @samp{@code{#f}} and sets the error. The @var{quoted-string} need not actually contain quoted or escaped text; @code{g-shell-unquote} simply goes through the string and unquotes/unescapes anything that the shell would. Both single and double quotes are handled, as are escapes including escaped newlines. The return value must be freed with @code{g-free}. Possible errors are in the @code{} domain. Shell quoting rules are a bit strange. Single quotes preserve the literal string exactly. escape sequences are not allowed; not even \' - if you want a ' in the quoted text, you have to do something like 'foo'\''bar'. Double quotes allow $, `, ", \, and newline to be escaped with backslash. Otherwise double quotes preserve things literally. @table @var @item quoted-string shell-quoted string @item error error return location or NULL @item ret an unquoted string @end table @end deffn @c %end of fragment guile-gnome-platform-2.16.2/glib/doc/glib/version.texi0000644000175000017500000000014611752511103023140 0ustar00wingowingo00000000000000@set UPDATED 9 December 2011 @set UPDATED-MONTH December 2011 @set EDITION 2.16.2 @set VERSION 2.16.2 guile-gnome-platform-2.16.2/glib/doc/glib/section-fileutils.xml.texi0000644000175000017500000000252111670374302025722 0ustar00wingowingo00000000000000 @c %start of fragment @node File Utilities @chapter File Utilities various file-related functions. @section Overview There is a group of functions which wrap the common POSIX functions dealing with filenames (@code{g-open}, @code{g-rename}, @code{g-mkdir}, @code{g-stat}, @code{g-unlink}, @code{g-remove}, @code{g-fopen}, @code{g-freopen}). The point of these wrappers is to make it possible to handle file names with any Unicode characters in them on Windows without having to use ifdefs and the wide character API in the application code. The pathname argument should be in the GLib file name encoding. On POSIX this is the actual on-disk encoding which might correspond to the locale settings of the process (or the @env{G_FILENAME_ENCODING} environment variable), or not. On Windows the GLib file name encoding is UTF-8. Note that the Microsoft C library does not use UTF-8, but has separate APIs for current system code page and wide characters (UTF-16). The GLib wrappers call the wide character API if present (on modern Windows systems), otherwise convert to/from the system code page. Another group of functions allows to open and read directories in the GLib file name encoding. These are @code{g-dir-open}, @code{g-dir-read-name}, @code{g-dir-rewind}, @code{g-dir-close}. @section Usage @include defuns-fileutils.xml.texi @c %end of fragment guile-gnome-platform-2.16.2/glib/doc/glib/defuns-strings.xml.texi0000644000175000017500000000053011670374302025231 0ustar00wingowingo00000000000000 @c %start of fragment @deffn Function g-string-new (init@tie{}@code{mchars}) @result{}@tie{} (ret@tie{}@code{}) Creates a new @code{}, initialized with the given string. @table @var @item init the initial text to copy into the string. @item ret the new @code{}. @end table @end deffn @c %end of fragment guile-gnome-platform-2.16.2/glib/doc/glib/guile-gnome-glib.info0000644000175000017500000042074411752516271024605 0ustar00wingowingo00000000000000This is guile-gnome-glib.info, produced by makeinfo version 4.13 from guile-gnome-glib.texi. This manual is for `(gnome glib)' (version 2.16.2, updated 9 December 2011) Copyright 1999-2007 Owen Taylor, Matthias Clasen and others This work may be reproduced and distributed in whole or in part, in any medium, physical or electronic, so as long as this copyright notice remains intact and unchanged on all copies. Commercial redistribution is permitted and encouraged, but you may not redistribute, in whole or in part, under terms more restrictive than those under which you received it. If you redistribute a modified or translated version of this work, you must also make the source code to the modified or translated version available in electronic form without charge. However, mere aggregation as part of a larger work shall not count as a modification for this purpose. All code examples in this work are placed into the public domain, and may be used, modified and redistributed without restriction. BECAUSE THIS WORK IS LICENSED FREE OF CHARGE, THERE IS NO WARRANTY FOR THE WORK, TO THE EXTENT PERMITTED BY APPLICABLE LAW. EXCEPT WHEN OTHERWISE STATED IN WRITING THE COPYRIGHT HOLDERS AND/OR OTHER PARTIES PROVIDE THE WORK "AS IS" WITHOUT WARRANTY OF ANY KIND, EITHER EXPRESSED OR IMPLIED, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE. SHOULD THE WORK PROVE DEFECTIVE, YOU ASSUME THE COST OF ALL NECESSARY REPAIR OR CORRECTION. IN NO EVENT UNLESS REQUIRED BY APPLICABLE LAW OR AGREED TO IN WRITING WILL ANY COPYRIGHT HOLDER, OR ANY OTHER PARTY WHO MAY MODIFY AND/OR REDISTRIBUTE THE WORK AS PERMITTED ABOVE, BE LIABLE TO YOU FOR DAMAGES, INCLUDING ANY GENERAL, SPECIAL, INCIDENTAL OR CONSEQUENTIAL DAMAGES ARISING OUT OF THE USE OR INABILITY TO USE THE WORK, EVEN IF SUCH HOLDER OR OTHER PARTY HAS BEEN ADVISED OF THE POSSIBILITY OF SUCH DAMAGES. INFO-DIR-SECTION The Algorithmic Language Scheme START-INFO-DIR-ENTRY * Guile-GLib: (guile-gnome-glib.info). Functions from the GLib library. END-INFO-DIR-ENTRY  File: guile-gnome-glib.info, Node: Top, Next: Bookmark file parser, Up: (dir) Guile-GLib ********** This manual is for `(gnome glib)' (version 2.16.2, updated 9 December 2011) Copyright 1999-2007 Owen Taylor, Matthias Clasen and others This work may be reproduced and distributed in whole or in part, in any medium, physical or electronic, so as long as this copyright notice remains intact and unchanged on all copies. Commercial redistribution is permitted and encouraged, but you may not redistribute, in whole or in part, under terms more restrictive than those under which you received it. If you redistribute a modified or translated version of this work, you must also make the source code to the modified or translated version available in electronic form without charge. However, mere aggregation as part of a larger work shall not count as a modification for this purpose. All code examples in this work are placed into the public domain, and may be used, modified and redistributed without restriction. BECAUSE THIS WORK IS LICENSED FREE OF CHARGE, THERE IS NO WARRANTY FOR THE WORK, TO THE EXTENT PERMITTED BY APPLICABLE LAW. EXCEPT WHEN OTHERWISE STATED IN WRITING THE COPYRIGHT HOLDERS AND/OR OTHER PARTIES PROVIDE THE WORK "AS IS" WITHOUT WARRANTY OF ANY KIND, EITHER EXPRESSED OR IMPLIED, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE. SHOULD THE WORK PROVE DEFECTIVE, YOU ASSUME THE COST OF ALL NECESSARY REPAIR OR CORRECTION. IN NO EVENT UNLESS REQUIRED BY APPLICABLE LAW OR AGREED TO IN WRITING WILL ANY COPYRIGHT HOLDER, OR ANY OTHER PARTY WHO MAY MODIFY AND/OR REDISTRIBUTE THE WORK AS PERMITTED ABOVE, BE LIABLE TO YOU FOR DAMAGES, INCLUDING ANY GENERAL, SPECIAL, INCIDENTAL OR CONSEQUENTIAL DAMAGES ARISING OUT OF THE USE OR INABILITY TO USE THE WORK, EVEN IF SUCH HOLDER OR OTHER PARTY HAS BEEN ADVISED OF THE POSSIBILITY OF SUCH DAMAGES. * Menu: * Bookmark file parser:: Parse files containing bookmarks * Character Set Conversion:: Convert strings between different character sets using iconv. * File Utilities:: Various file-related functions. * IO Channels:: Portable support for using files, pipes and sockets. * The Main Event Loop:: Manages all available sources of events. * Miscellaneous Utility Functions::A selection of portable utility functions. * Quarks:: Symbols for C. * Shell-related Utilities:: Escape procedures. * Strings:: Text buffers which grow automatically as text is added. * Unicode Manipulation:: Functions operating on Unicode characters and UTF-8 strings. * Undocumented:: Undocumented functions. * Type Index:: * Function Index::  File: guile-gnome-glib.info, Node: Bookmark file parser, Next: Character Set Conversion, Prev: Top, Up: Top 1 Bookmark file parser ********************** parses files containing bookmarks 1.1 Overview ============ `' lets you parse, edit or create files containing bookmarks to URI, along with some meta-data about the resource pointed by the URI like its MIME type, the application that is registering the bookmark and the icon that should be used to represent the bookmark. The data is stored using the Desktop Bookmark Specification (http://www.gnome.org/~ebassi/bookmark-spec). The syntax of the bookmark files is described in detail inside the Desktop Bookmark Specification, here is a quick summary: bookmark files use a sub-class of the XML Bookmark Exchange Language specification, consisting of valid UTF-8 encoded XML, under the `xbel' root element; each bookmark is stored inside a `bookmark' element, using its URI: no relative paths can be used inside a bookmark file. The bookmark may have a user defined title and description, to be used instead of the URI. Under the `metadata' element, with its `owner' attribute set to `http://freedesktop.org', is stored the meta-data about a resource pointed by its URI. The meta-data consists of the resource's MIME type; the applications that have registered a bookmark; the groups to which a bookmark belongs to; a visibility flag, used to set the bookmark as "private" to the applications and groups that has it registered; the URI and MIME type of an icon, to be used when displaying the bookmark inside a GUI. Desktop Bookmarks Spec text/xml Editors A bookmark file might contain more than one bookmark; each bookmark is accessed through its URI. The important caveat of bookmark files is that when you add a new bookmark you must also add the application that is registering it, using `g-bookmark-file-add-application' or `g-bookmark-file-set-app-info'. If a bookmark has no applications then it won't be dumped when creating the on disk representation, using `g-bookmark-file-to-data' or `g-bookmark-file-to-file'. The `' parser was added in GLib 2.12. 1.2 Usage ========= -- Class: Opaque pointer. This class defines no direct slots. -- Function: g-bookmark-file-new => (ret `') Creates a new empty `' object. Use `g-bookmark-file-load-from-file', `g-bookmark-file-load-from-data' or `g-bookmark-file-load-from-data-dirs' to read an existing bookmark file. RET an empty `' Since 2.12 -- Function: g-bookmark-file-load-from-file (bookmark `') (filename `mchars') => (ret `bool') Loads a desktop bookmark file into an empty `' structure. If the file could not be loaded then ERROR is set to either a `' or `'. BOOKMARK an empty `' struct FILENAME the path of a filename to load, in the GLib file name encoding ERROR return location for a `', or ``#f'' RET ``#t'' if a desktop bookmark file could be loaded Since 2.12 -- Function: g-bookmark-file-load-from-data (bookmark `') (data `mchars') => (ret `bool') Loads a bookmark file from memory into an empty `' structure. If the object cannot be created then ERROR is set to a `'. BOOKMARK an empty `' struct DATA desktop bookmarks loaded in memory LENGTH the length of DATA in bytes ERROR return location for a `', or ``#f'' RET ``#t'' if a desktop bookmark could be loaded. Since 2.12 -- Function: g-bookmark-file-load-from-data-dirs (bookmark `') (file `mchars') => (ret `bool') (full_path `mchars') This function looks for a desktop bookmark file named FILE in the paths returned from `g-get-user-data-dir' and `g-get-system-data-dirs', loads the file into BOOKMARK and returns the file's full path in FULL-PATH. If the file could not be loaded then an `error' is set to either a `' or `'. BOOKMARK a `' FILE a relative path to a filename to open and parse FULL-PATH return location for a string containing the full path of the file, or ``#f'' ERROR return location for a `', or ``#f'' RET ``#t'' if a key file could be loaded, ``#f'' othewise Since 2.12 -- Function: g-bookmark-file-to-data (bookmark `') => (ret `mchars') This function outputs BOOKMARK as a string. BOOKMARK a `' LENGTH return location for the length of the returned string, or ``#f'' ERROR return location for a `', or ``#f'' RET a newly allocated string holding the contents of the `' Since 2.12 -- Function: g-bookmark-file-to-file (bookmark `') (filename `mchars') => (ret `bool') This function outputs BOOKMARK into a file. The write process is guaranteed to be atomic by using `g-file-set-contents' internally. BOOKMARK a `' FILENAME path of the output file ERROR return location for a `', or ``#f'' RET ``#t'' if the file was successfully written. Since 2.12 -- Function: g-bookmark-file-has-item (bookmark `') (uri `mchars') => (ret `bool') Looks whether the desktop bookmark has an item with its URI set to URI. BOOKMARK a `' URI a valid URI RET ``#t'' if URI is inside BOOKMARK, ``#f'' otherwise Since 2.12 -- Function: g-bookmark-file-has-group (bookmark `') (uri `mchars') (group `mchars') => (ret `bool') Checks whether GROUP appears in the list of groups to which the bookmark for URI belongs to. In the event the URI cannot be found, ``#f'' is returned and ERROR is set to `'. BOOKMARK a `' URI a valid URI GROUP the group name to be searched ERROR return location for a `', or ``#f'' RET ``#t'' if GROUP was found. Since 2.12 -- Function: g-bookmark-file-has-application (bookmark `') (uri `mchars') (name `mchars') => (ret `bool') Checks whether the bookmark for URI inside BOOKMARK has been registered by application NAME. In the event the URI cannot be found, ``#f'' is returned and ERROR is set to `'. BOOKMARK a `' URI a valid URI NAME the name of the application ERROR return location for a `' or ``#f'' RET ``#t'' if the application NAME was found Since 2.12 -- Function: g-bookmark-file-get-size (bookmark `') => (ret `int') Gets the number of bookmarks inside BOOKMARK. BOOKMARK a `' RET the number of bookmarks Since 2.12 -- Function: g-bookmark-file-get-uris (bookmark `') => (ret `scm') Returns all URIs of the bookmarks in the bookmark file BOOKMARK. The array of returned URIs will be ``#f''-terminated, so LENGTH may optionally be ``#f''. BOOKMARK a `' LENGTH return location for the number of returned URIs, or ``#f'' RET a newly allocated ``#f''-terminated array of strings. Use `g-strfreev' to free it. Since 2.12 -- Function: g-bookmark-file-get-title (bookmark `') (uri `mchars') => (ret `mchars') Returns the title of the bookmark for URI. If URI is ``#f'', the title of BOOKMARK is returned. In the event the URI cannot be found, ``#f'' is returned and ERROR is set to `'. BOOKMARK a `' URI a valid URI or ``#f'' ERROR return location for a `', or ``#f'' RET a newly allocated string or ``#f'' if the specified URI cannot be found. Since 2.12 -- Function: g-bookmark-file-get-description (bookmark `') (uri `mchars') => (ret `mchars') Retrieves the description of the bookmark for URI. In the event the URI cannot be found, ``#f'' is returned and ERROR is set to `'. BOOKMARK a `' URI a valid URI ERROR return location for a `', or ``#f'' RET a newly allocated string or ``#f'' if the specified URI cannot be found. Since 2.12 -- Function: g-bookmark-file-get-mime-type (bookmark `') (uri `mchars') => (ret `mchars') Retrieves the MIME type of the resource pointed by URI. In the event the URI cannot be found, ``#f'' is returned and ERROR is set to `'. In the event that the MIME type cannot be found, ``#f'' is returned and ERROR is set to `'. BOOKMARK a `' URI a valid URI ERROR return location for a `', or ``#f'' RET a newly allocated string or ``#f'' if the specified URI cannot be found. Since 2.12 -- Function: g-bookmark-file-get-is-private (bookmark `') (uri `mchars') => (ret `bool') Gets whether the private flag of the bookmark for URI is set. In the event the URI cannot be found, ``#f'' is returned and ERROR is set to `'. In the event that the private flag cannot be found, ``#f'' is returned and ERROR is set to `'. BOOKMARK a `' URI a valid URI ERROR return location for a `', or ``#f'' RET ``#t'' if the private flag is set, ``#f'' otherwise. Since 2.12 -- Function: g-bookmark-file-get-icon (bookmark `') (uri `mchars') => (ret `bool') (href `mchars') (mime_type `mchars') Gets the icon of the bookmark for URI. In the event the URI cannot be found, ``#f'' is returned and ERROR is set to `'. BOOKMARK a `' URI a valid URI HREF return location for the icon's location or ``#f'' MIME-TYPE return location for the icon's MIME type or ``#f'' ERROR return location for a `' or ``#f'' RET ``#t'' if the icon for the bookmark for the URI was found. You should free the returned strings. Since 2.12 -- Function: g-bookmark-file-get-added (bookmark `') (uri `mchars') => (ret `long') Gets the time the bookmark for URI was added to BOOKMARK In the event the URI cannot be found, -1 is returned and ERROR is set to `'. BOOKMARK a `' URI a valid URI ERROR return location for a `', or ``#f'' RET a timestamp Since 2.12 -- Function: g-bookmark-file-get-modified (bookmark `') (uri `mchars') => (ret `long') Gets the time when the bookmark for URI was last modified. In the event the URI cannot be found, -1 is returned and ERROR is set to `'. BOOKMARK a `' URI a valid URI ERROR return location for a `', or ``#f'' RET a timestamp Since 2.12 -- Function: g-bookmark-file-get-visited (bookmark `') (uri `mchars') => (ret `long') Gets the time the bookmark for URI was last visited. In the event the URI cannot be found, -1 is returned and ERROR is set to `'. BOOKMARK a `' URI a valid URI ERROR return location for a `', or ``#f'' RET a timestamp. Since 2.12 -- Function: g-bookmark-file-get-groups (bookmark `') (uri `mchars') => (ret `scm') Retrieves the list of group names of the bookmark for URI. In the event the URI cannot be found, ``#f'' is returned and ERROR is set to `'. The returned array is ``#f'' terminated, so LENGTH may optionally be ``#f''. BOOKMARK a `' URI a valid URI LENGTH return location for the length of the returned string, or ``#f'' ERROR return location for a `', or ``#f'' RET a newly allocated ``#f''-terminated array of group names. Use `g-strfreev' to free it. Since 2.12 -- Function: g-bookmark-file-get-applications (bookmark `') (uri `mchars') => (ret `scm') Retrieves the names of the applications that have registered the bookmark for URI. In the event the URI cannot be found, ``#f'' is returned and ERROR is set to `'. BOOKMARK a `' URI a valid URI LENGTH return location of the length of the returned list, or ``#f'' ERROR return location for a `', or ``#f'' RET a newly allocated ``#f''-terminated array of strings. Use `g-strfreev' to free it. Since 2.12 -- Function: g-bookmark-file-get-app-info (bookmark `') (uri `mchars') (name `mchars') => (ret `bool') (exec `mchars') (count `unsigned-int') (stamp `long') Gets the registration informations of APP-NAME for the bookmark for URI. See `g-bookmark-file-set-app-info' for more informations about the returned data. The string returned in APP-EXEC must be freed. In the event the URI cannot be found, ``#f'' is returned and ERROR is set to `'. In the event that no application with name APP-NAME has registered a bookmark for URI, ``#f'' is returned and error is set to `'. BOOKMARK a `' URI a valid URI NAME an application's name EXEC location for the command line of the application, or ``#f'' COUNT return location for the registration count, or ``#f'' STAMP return location for the last registration time, or ``#f'' ERROR return location for a `', or ``#f'' RET ``#t'' on success. Since 2.12 -- Function: g-bookmark-file-set-title (bookmark `') (uri `mchars') (title `mchars') Sets TITLE as the title of the bookmark for URI inside the bookmark file BOOKMARK. If URI is ``#f'', the title of BOOKMARK is set. If a bookmark for URI cannot be found then it is created. BOOKMARK a `' URI a valid URI or ``#f'' TITLE a UTF-8 encoded string Since 2.12 -- Function: g-bookmark-file-set-description (bookmark `') (uri `mchars') (description `mchars') Sets DESCRIPTION as the description of the bookmark for URI. If URI is ``#f'', the description of BOOKMARK is set. If a bookmark for URI cannot be found then it is created. BOOKMARK a `' URI a valid URI or ``#f'' DESCRIPTION a string Since 2.12 -- Function: g-bookmark-file-set-mime-type (bookmark `') (uri `mchars') (mime_type `mchars') Sets MIME-TYPE as the MIME type of the bookmark for URI. If a bookmark for URI cannot be found then it is created. BOOKMARK a `' URI a valid URI MIME-TYPE a MIME type Since 2.12 -- Function: g-bookmark-file-set-is-private (bookmark `') (uri `mchars') (is_private `bool') Sets the private flag of the bookmark for URI. If a bookmark for URI cannot be found then it is created. BOOKMARK a `' URI a valid URI IS-PRIVATE ``#t'' if the bookmark should be marked as private Since 2.12 -- Function: g-bookmark-file-set-icon (bookmark `') (uri `mchars') (href `mchars') (mime_type `mchars') Sets the icon for the bookmark for URI. If HREF is ``#f'', unsets the currently set icon. If no bookmark for URI is found it is created. BOOKMARK a `' URI a valid URI HREF the URI of the icon for the bookmark, or ``#f'' MIME-TYPE the MIME type of the icon for the bookmark Since 2.12 -- Function: g-bookmark-file-set-added (bookmark `') (uri `mchars') (added `long') Sets the time the bookmark for URI was added into BOOKMARK. If no bookmark for URI is found then it is created. BOOKMARK a `' URI a valid URI ADDED a timestamp or -1 to use the current time Since 2.12 -- Function: g-bookmark-file-set-modified (bookmark `') (uri `mchars') (modified `long') Sets the last time the bookmark for URI was last modified. If no bookmark for URI is found then it is created. The "modified" time should only be set when the bookmark's meta-data was actually changed. Every function of `' that modifies a bookmark also changes the modification time, except for `g-bookmark-file-set-visited'. BOOKMARK a `' URI a valid URI MODIFIED a timestamp or -1 to use the current time Since 2.12 -- Function: g-bookmark-file-set-visited (bookmark `') (uri `mchars') (visited `long') Sets the time the bookmark for URI was last visited. If no bookmark for URI is found then it is created. The "visited" time should only be set if the bookmark was launched, either using the command line retrieved by `g-bookmark-file-get-app-info' or by the default application for the bookmark's MIME type, retrieved using `g-bookmark-file-get-mime-type'. Changing the "visited" time does not affect the "modified" time. BOOKMARK a `' URI a valid URI VISITED a timestamp or -1 to use the current time Since 2.12 -- Function: g-bookmark-file-set-app-info (bookmark `') (uri `mchars') (name `mchars') (exec `mchars') (count `int') (stamp `long') => (ret `bool') Sets the meta-data of application NAME inside the list of applications that have registered a bookmark for URI inside BOOKMARK. You should rarely use this function; use `g-bookmark-file-add-application' and `g-bookmark-file-remove-application' instead. NAME can be any UTF-8 encoded string used to identify an application. EXEC can have one of these two modifiers: "`f'", which will be expanded as the local file name retrieved from the bookmark's URI; "`u'", which will be expanded as the bookmark's URI. The expansion is done automatically when retrieving the stored command line using the `g-bookmark-file-get-app-info' function. COUNT is the number of times the application has registered the bookmark; if is < 0, the current registration count will be increased by one, if is 0, the application with NAME will be removed from the list of registered applications. STAMP is the Unix time of the last registration; if it is -1, the current time will be used. If you try to remove an application by setting its registration count to zero, and no bookmark for URI is found, ``#f'' is returned and ERROR is set to `'; similarly, in the event that no application NAME has registered a bookmark for URI, ``#f'' is returned and error is set to `'. Otherwise, if no bookmark for URI is found, one is created. BOOKMARK a `' URI a valid URI NAME an application's name EXEC an application's command line COUNT the number of registrations done for this application STAMP the time of the last registration for this application ERROR return location for a `' or ``#f'' RET ``#t'' if the application's meta-data was successfully changed. Since 2.12 -- Function: g-bookmark-file-add-group (bookmark `') (uri `mchars') (group `mchars') Adds GROUP to the list of groups to which the bookmark for URI belongs to. If no bookmark for URI is found then it is created. BOOKMARK a `' URI a valid URI GROUP the group name to be added Since 2.12 -- Function: g-bookmark-file-add-application (bookmark `') (uri `mchars') (name `mchars') (exec `mchars') Adds the application with NAME and EXEC to the list of applications that have registered a bookmark for URI into BOOKMARK. Every bookmark inside a `' must have at least an application registered. Each application must provide a name, a command line useful for launching the bookmark, the number of times the bookmark has been registered by the application and the last time the application registered this bookmark. If NAME is ``#f'', the name of the application will be the same returned by `g-get-application'; if EXEC is ``#f'', the command line will be a composition of the program name as returned by `g-get-prgname' and the "`u'" modifier, which will be expanded to the bookmark's URI. This function will automatically take care of updating the registrations count and timestamping in case an application with the same NAME had already registered a bookmark for URI inside BOOKMARK. If no bookmark for URI is found, one is created. BOOKMARK a `' URI a valid URI NAME the name of the application registering the bookmark or ``#f'' EXEC command line to be used to launch the bookmark or ``#f'' Since 2.12 -- Function: g-bookmark-file-remove-group (bookmark `') (uri `mchars') (group `mchars') => (ret `bool') Removes GROUP from the list of groups to which the bookmark for URI belongs to. In the event the URI cannot be found, ``#f'' is returned and ERROR is set to `'. In the event no group was defined, ``#f'' is returned and ERROR is set to `'. BOOKMARK a `' URI a valid URI GROUP the group name to be removed ERROR return location for a `', or ``#f'' RET ``#t'' if GROUP was successfully removed. Since 2.12 -- Function: g-bookmark-file-remove-application (bookmark `') (uri `mchars') (name `mchars') => (ret `bool') Removes application registered with NAME from the list of applications that have registered a bookmark for URI inside BOOKMARK. In the event the URI cannot be found, ``#f'' is returned and ERROR is set to `'. In the event that no application with name APP-NAME has registered a bookmark for URI, ``#f'' is returned and error is set to `'. BOOKMARK a `' URI a valid URI NAME the name of the application ERROR return location for a `' or ``#f'' RET ``#t'' if the application was successfully removed. Since 2.12 -- Function: g-bookmark-file-remove-item (bookmark `') (uri `mchars') => (ret `bool') Removes the bookmark for URI from the bookmark file BOOKMARK. BOOKMARK a `' URI a valid URI ERROR return location for a `', or ``#f'' RET ``#t'' if the bookmark was removed successfully. Since 2.12 -- Function: g-bookmark-file-move-item (bookmark `') (old_uri `mchars') (new_uri `mchars') => (ret `bool') Changes the URI of a bookmark item from OLD-URI to NEW-URI. Any existing bookmark for NEW-URI will be overwritten. If NEW-URI is ``#f'', then the bookmark is removed. In the event the URI cannot be found, ``#f'' is returned and ERROR is set to `'. BOOKMARK a `' OLD-URI a valid URI NEW-URI a valid URI, or ``#f'' ERROR return location for a `' or ``#f'' RET ``#t'' if the URI was successfully changed Since 2.12  File: guile-gnome-glib.info, Node: Character Set Conversion, Next: File Utilities, Prev: Bookmark file parser, Up: Top 2 Character Set Conversion ************************** convert strings between different character sets using . 2.1 Overview ============ 2.2 File Name Encodings ======================= Historically, Unix has not had a defined encoding for file names: a file name is valid as long as it does not have path separators in it ("/"). However, displaying file names may require conversion: from the character set in which they were created, to the character set in which the application operates. Consider the Spanish file name "`Presentación.sxi'". If the application which created it uses ISO-8859-1 for its encoding, then the actual file name on disk would look like this: Character: P r e s e n t a c i ó n . s x i Hex code: 50 72 65 73 65 6e 74 61 63 69 f3 6e 2e 73 78 69 However, if the application use UTF-8, the actual file name on disk would look like this: Character: P r e s e n t a c i ó n . s x i Hex code: 50 72 65 73 65 6e 74 61 63 69 c3 b3 6e 2e 73 78 69 Glib uses UTF-8 for its strings, and GUI toolkits like GTK+ that use Glib do the same thing. If you get a file name from the file system, for example, from `readdir(3)' or from ``g-dir-read-name'', and you wish to display the file name to the user, you _will_ need to convert it into UTF-8. The opposite case is when the user types the name of a file he wishes to save: the toolkit will give you that string in UTF-8 encoding, and you will need to convert it to the character set used for file names before you can create the file with `open(2)' or `fopen(3)'. By default, Glib assumes that file names on disk are in UTF-8 encoding. This is a valid assumption for file systems which were created relatively recently: most applications use UTF-8 encoding for their strings, and that is also what they use for the file names they create. However, older file systems may still contain file names created in "older" encodings, such as ISO-8859-1. In this case, for compatibility reasons, you may want to instruct Glib to use that particular encoding for file names rather than UTF-8. You can do this by specifying the encoding for file names in the `G_FILENAME_ENCODING' environment variable. For example, if your installation uses ISO-8859-1 for file names, you can put this in your `~/.profile': export G_FILENAME_ENCODING=ISO-8859-1 Glib provides the functions ``g-filename-to-utf8'' and ``g-filename-from-utf8'' to perform the necessary conversions. These functions convert file names from the encoding specified in `G_FILENAME_ENCODING' to UTF-8 and vice-versa. _(the missing figure, file-name-encodings-diagram_ illustrates how these functions are used to convert between UTF-8 and the encoding for file names in the file system. 2.2.1 Checklist for Application Writers --------------------------------------- This section is a practical summary of the detailed description above. You can use this as a checklist of things to do to make sure your applications process file name encodings correctly. 1. 2. 3. If you get a file name from the file system from a function such as `readdir(3)' or ``gtk-file-chooser-get-filename'', you do not need to do any conversion to pass that file name to functions like `open(2)', `rename(2)', or `fopen(3)' — those are "raw" file names which the file system understands. If you need to display a file name, convert it to UTF-8 first by using ``g-filename-to-utf8''. If conversion fails, display a string like "`Unknown file name'". _Do not_ convert this string back into the encoding used for file names if you wish to pass it to the file system; use the original file name instead. For example, the document window of a word processor could display "Unknown file name" in its title bar but still let the user save the file, as it would keep the raw file name internally. This can happen if the user has not set the `G_FILENAME_ENCODING' environment variable even though he has files whose names are not encoded in UTF-8. If your user interface lets the user type a file name for saving or renaming, convert it to the encoding used for file names in the file system by using ``g-filename-from-utf8''. Pass the converted file name to functions like `fopen(3)'. If conversion fails, ask the user to enter a different file name. This can happen if the user types Japanese characters when `G_FILENAME_ENCODING' is set to `ISO-8859-1', for example. 2.3 Usage ========= -- Function: g-convert (str `mchars') (len `ssize_t') (to_codeset `mchars') (from_codeset `mchars') => (ret `mchars') (bytes_read `size_t') (bytes_written `size_t') Converts a string from one character set to another. STR the string to convert TO-CODESET name of character set into which to convert STR FROM-CODESET character set of STR. RET If the conversion was successful, a string. Otherwise an exception will be thrown. Note that some encodings may allow nul bytes to occur inside strings. In that case, the Guile wrapper for this function is unsafe. -- Function: g-convert-with-fallback (str `mchars') (len `ssize_t') (to_codeset `mchars') (from_codeset `mchars') (fallback `mchars') => (ret `mchars') (bytes_read `size_t') (bytes_written `size_t') Converts a string from one character set to another, possibly including fallback sequences for characters not representable in the output. Note that it is not guaranteed that the specification for the fallback sequences in FALLBACK will be honored. Some systems may do a approximate conversion from FROM-CODESET to TO-CODESET in their `iconv' functions, in which case GLib will simply return that approximate conversion. STR the string to convert TO-CODESET name of character set into which to convert STR FROM-CODESET character set of STR. FALLBACK UTF-8 string to use in place of character not present in the target encoding. (The string must be representable in the target encoding). If ``#f'', characters not in the target encoding will be represented as Unicode escapes \uxxxx or \Uxxxxyyyy. RET If the conversion was successful, a string. Otherwise an exception will be thrown. -- Function: g-locale-to-utf8 (opsysstring `mchars') (len `ssize_t') => (ret `mchars') (bytes_read `size_t') (bytes_written `size_t') Converts a string which is in the encoding used for strings by the C runtime (usually the same as that used by the operating system) in the current locale into a UTF-8 string. OPSYSSTRING a string in the encoding of the current locale. On Windows this means the system codepage. RET The converted string. If the conversion fails, an exception will be raised. -- Function: g-filename-to-utf8 (opsysstring `mchars') (len `ssize_t') => (ret `mchars') (bytes_read `size_t') (bytes_written `size_t') Converts a string which is in the encoding used by GLib for filenames into a UTF-8 string. Note that on Windows GLib uses UTF-8 for filenames. OPSYSSTRING a string in the encoding for filenames RET The converted string. If the conversion fails, an exception will be raised. -- Function: g-filename-from-utf8 (utf8string `mchars') (len `ssize_t') => (ret `mchars') (bytes_read `size_t') (bytes_written `size_t') Converts a string from UTF-8 to the encoding GLib uses for filenames. Note that on Windows GLib uses UTF-8 for filenames. UTF8STRING a UTF-8 encoded string. LEN the length of the string, or -1 if the string is nul-terminated. BYTES-READ location to store the number of bytes in the input string that were successfully converted, or ``#f''. Even if the conversion was successful, this may be less than LEN if there were partial characters at the end of the input. If the error `' occurs, the value stored will the byte offset after the last valid input sequence. BYTES-WRITTEN the number of bytes stored in the output buffer (not including the terminating nul). ERROR location to store the error occuring, or ``#f'' to ignore errors. Any of the errors in `' may occur. RET The converted string, or ``#f'' on an error. -- Function: g-filename-from-uri (uri `mchars') => (ret `mchars') (hostname `mchars') Converts an escaped ASCII-encoded URI to a local filename in the encoding used for filenames. URI a uri describing a filename (escaped, encoded in ASCII). HOSTNAME Location to store hostname for the URI, or ``#f''. If there is no hostname in the URI, ``#f'' will be stored in this location. ERROR location to store the error occuring, or ``#f'' to ignore errors. Any of the errors in `' may occur. RET a newly-allocated string holding the resulting filename, or ``#f'' on an error. -- Function: g-filename-to-uri (filename `mchars') (hostname `mchars') => (ret `mchars') Converts an absolute filename to an escaped ASCII-encoded URI, with the path component following Section 3.3. of RFC 2396. FILENAME an absolute filename specified in the GLib file name encoding, which is the on-disk file name bytes on Unix, and UTF-8 on Windows HOSTNAME A UTF-8 encoded hostname, or ``#f'' for none. ERROR location to store the error occuring, or ``#f'' to ignore errors. Any of the errors in `' may occur. RET a newly-allocated string holding the resulting URI, or ``#f'' on an error. -- Function: g-filename-display-name (filename `mchars') => (ret `mchars') Converts a filename into a valid UTF-8 string. The conversion is not necessarily reversible, so you should keep the original around and use the return value of this function only for display purposes. Unlike `g-filename-to-utf8', the result is guaranteed to be non-``#f'' even if the filename actually isn't in the GLib file name encoding. If GLib can not make sense of the encoding of FILENAME, as a last resort it replaces unknown characters with U+FFFD, the Unicode replacement character. You can search the result for the UTF-8 encoding of this character (which is "\357\277\275" in octal notation) to find out if FILENAME was in an invalid encoding. If you know the whole pathname of the file you should use `g-filename-display-basename', since that allows location-based translation of filenames. FILENAME a pathname hopefully in the GLib file name encoding RET a newly allocated string containing a rendition of the filename in valid UTF-8 Since 2.6 -- Function: g-filename-display-basename (filename `mchars') => (ret `mchars') Returns the display basename for the particular filename, guaranteed to be valid UTF-8. The display name might not be identical to the filename, for instance there might be problems converting it to UTF-8, and some files can be translated in the display. If GLib can not make sense of the encoding of FILENAME, as a last resort it replaces unknown characters with U+FFFD, the Unicode replacement character. You can search the result for the UTF-8 encoding of this character (which is "\357\277\275" in octal notation) to find out if FILENAME was in an invalid encoding. You must pass the whole absolute pathname to this functions so that translation of well known locations can be done. This function is preferred over `g-filename-display-name' if you know the whole path, as it allows translation. FILENAME an absolute pathname in the GLib file name encoding RET a newly allocated string containing a rendition of the basename of the filename in valid UTF-8 Since 2.6 -- Function: g-locale-from-utf8 (utf8string `mchars') (len `ssize_t') => (ret `mchars') (bytes_read `size_t') (bytes_written `size_t') Converts a string from UTF-8 to the encoding used for strings by the C runtime (usually the same as that used by the operating system) in the current locale. UTF8STRING a UTF-8 encoded string RET The converted string. If the conversion fails, an exception will be raised.  File: guile-gnome-glib.info, Node: File Utilities, Next: IO Channels, Prev: Character Set Conversion, Up: Top 3 File Utilities **************** various file-related functions. 3.1 Overview ============ There is a group of functions which wrap the common POSIX functions dealing with filenames (`g-open', `g-rename', `g-mkdir', `g-stat', `g-unlink', `g-remove', `g-fopen', `g-freopen'). The point of these wrappers is to make it possible to handle file names with any Unicode characters in them on Windows without having to use ifdefs and the wide character API in the application code. The pathname argument should be in the GLib file name encoding. On POSIX this is the actual on-disk encoding which might correspond to the locale settings of the process (or the `G_FILENAME_ENCODING' environment variable), or not. On Windows the GLib file name encoding is UTF-8. Note that the Microsoft C library does not use UTF-8, but has separate APIs for current system code page and wide characters (UTF-16). The GLib wrappers call the wide character API if present (on modern Windows systems), otherwise convert to/from the system code page. Another group of functions allows to open and read directories in the GLib file name encoding. These are `g-dir-open', `g-dir-read-name', `g-dir-rewind', `g-dir-close'. 3.2 Usage ========= -- Function: g-file-error-from-errno (err_no `int') => (ret `') Gets a `' constant based on the passed-in ERRNO. For example, if you pass in `EEXIST' this function returns `'. Unlike ERRNO values, you can portably assume that all `' values will exist. Normally a `' value goes into a `' returned from a function that manipulates files. So you would use `g-file-error-from-errno' when constructing a `'. ERR-NO an "errno" value RET `' corresponding to the given ERRNO  File: guile-gnome-glib.info, Node: IO Channels, Next: The Main Event Loop, Prev: File Utilities, Up: Top 4 IO Channels ************* portable support for using files, pipes and sockets. 4.1 Overview ============ The `' data type aims to provide a portable method for using file descriptors, pipes, and sockets, and integrating them into the main event loop. Currently full support is available on UNIX platforms, support for Windows is only partially complete. To create a new `' on UNIX systems use `g-io-channel-unix-new'. This works for plain file descriptors, pipes and sockets. Alternatively, a channel can be created for a file in a system independent manner using `g-io-channel-new-file'. Once a `' has been created, it can be used in a generic manner with the functions `g-io-channel-read-chars', `g-io-channel-write-chars', `g-io-channel-seek-position', and `g-io-channel-shutdown'. To add a `' to the main event loop use `g-io-add-watch' or `g-io-add-watch-full'. Here you specify which events you are interested in on the `', and provide a function to be called whenever these events occur. `' instances are created with an initial reference count of 1. `g-io-channel-ref' and `g-io-channel-unref' can be used to increment or decrement the reference count respectively. When the reference count falls to 0, the `' is freed. (Though it isn't closed automatically, unless it was created using `g-io-channel-new-from-file'.) Using `g-io-add-watch' or `g-io-add-watch-full' increments a channel's reference count. The new functions `g-io-channel-read-chars', `g-io-channel-read-line', `g-io-channel-read-line-string', `g-io-channel-read-to-end', `g-io-channel-write-chars', `g-io-channel-seek-position', and `g-io-channel-flush' should not be mixed with the deprecated functions `g-io-channel-read', `g-io-channel-write', and `g-io-channel-seek' on the same channel. 4.2 Usage ========= -- Class: Opaque pointer. This class defines no direct slots. -- Function: g-io-channel-unix-new (fd `int') => (ret `') Creates a new `' given a file descriptor. On UNIX systems this works for plain files, pipes, and sockets. The returned `' has a reference count of 1. The default encoding for `' is UTF-8. If your application is reading output from a command using via pipe, you may need to set the encoding to the encoding of the current locale (see `g-get-charset') with the `g-io-channel-set-encoding' function. If you want to read raw binary data without interpretation, then call the `g-io-channel-set-encoding' function with ``#f'' for the encoding argument. This function is available in GLib on Windows, too, but you should avoid using it on Windows. The domain of file descriptors and sockets overlap. There is no way for GLib to know which one you mean in case the argument you pass to this function happens to be both a valid file descriptor and socket. If that happens a warning is issued, and GLib assumes that it is the file descriptor you mean. FD a file descriptor. RET a new `'. -- Function: g-io-channel-unix-get-fd (channel `') => (ret `int') Returns the file descriptor of the `'. On Windows this function returns the file descriptor or socket of the `'. CHANNEL a `', created with `g-io-channel-unix-new'. RET the file descriptor of the `'. -- Function: g-io-channel-new-file (filename `mchars') (mode `mchars') => (ret `') Open a file FILENAME as a `' using mode MODE. This channel will be closed when the last reference to it is dropped, so there is no need to call `g-io-channel-close' (though doing so will not cause problems, as long as no attempt is made to access the channel after it is closed). FILENAME A string containing the name of a file. MODE One of "r", "w", "a", "r+", "w+", "a+". These have the same meaning as in `fopen'. ERROR A location to return an error of type `G_FILE_ERROR'. RET A `' on success, ``#f'' on failure. -- Function: g-io-channel-read-line (self `') => (ret `') (string_return `mchars') Reads a line, including the terminating character(s), from a `' into a newly-allocated string. STR-RETURN will contain allocated memory if the return is `G_IO_STATUS_NORMAL'. CHANNEL a `' STR-RETURN The line read from the `', including the line terminator. This data should be freed with `g-free' when no longer needed. This is a nul-terminated string. If a LENGTH of zero is returned, this will be ``#f'' instead. LENGTH location to store length of the read data, or ``#f'' TERMINATOR-POS location to store position of line terminator, or ``#f'' ERROR A location to return an error of type `' or `' RET the status of the operation. -- Function: g-io-channel-flush (channel `') => (ret `') Flushes the write buffer for the GIOChannel. CHANNEL a `' ERROR location to store an error of type `' RET the status of the operation: One of `', `', or `'. -- Function: g-io-channel-seek-position (self `') (offset `int64') (type `') => (ret `') Replacement for `g-io-channel-seek' with the new API. CHANNEL a `' OFFSET The offset in bytes from the position specified by TYPE TYPE a `'. The type `G_SEEK_CUR' is only allowed in those cases where a call to `g-io-channel-set-encoding' is allowed. See the documentation for `g-io-channel-set-encoding' for details. ERROR A location to return an error of type `' RET the status of the operation. -- Function: g-io-channel-shutdown (channel `') (flush `bool') => (ret `') Close an IO channel. Any pending data to be written will be flushed if FLUSH is ``#t''. The channel will not be freed until the last reference is dropped using `g-io-channel-unref'. CHANNEL a `' FLUSH if ``#t'', flush pending ERR location to store a `' RET the status of the operation. -- Function: g-io-channel-error-from-errno (en `int') => (ret `') Converts an `errno' error number to a `'. EN an `errno' error number, e.g. `EINVAL'. RET a `' error number, e.g. `G_IO_CHANNEL_ERROR_INVAL'. -- Function: g-io-create-watch (channel `') (condition `') => (ret `') Creates a `' that's dispatched when CONDITION is met for the given CHANNEL. For example, if condition is `', the source will be dispatched when there's data available for reading. `g-io-add-watch' is a simpler interface to this same functionality, for the case where you want to add the source to the default main loop at the default priority. On Windows, polling a `' created to watch a channel for a socket puts the socket in non-blocking mode. This is a side-effect of the implementation and unavoidable. CHANNEL a `' to watch CONDITION conditions to watch for RET a new `' -- Function: g-io-add-watch (channel `') (condition `') (func `scm') => (ret `bool') Adds the `' into the main event loop with the default priority. CHANNEL a `'. CONDITION the condition to watch for. FUNC the function to call when the condition is satisfied. USER-DATA user data to pass to FUNC. RET the event source id. -- Function: g-io-channel-get-buffer-size (channel `') => (ret `size_t') Gets the buffer size. CHANNEL a `' RET the size of the buffer. -- Function: g-io-channel-set-buffer-size (channel `') (size `size_t') Sets the buffer size. CHANNEL a `' SIZE the size of the buffer. 0 == pick a good size -- Function: g-io-channel-get-buffer-condition (channel `') => (ret `') This function returns a `' depending on whether there is data to be read/space to write data in the internal buffers in the `'. Only the flags `G_IO_IN' and `G_IO_OUT' may be set. CHANNEL A `' RET A `' -- Function: g-io-channel-get-flags (channel `') => (ret `') Gets the current flags for a `', including read-only flags such as `G_IO_FLAG_IS_READABLE'. The values of the flags `G_IO_FLAG_IS_READABLE' and `G_IO_FLAG_IS_WRITEABLE' are cached for internal use by the channel when it is created. If they should change at some later point (e.g. partial shutdown of a socket with the UNIX `shutdown' function), the user should immediately call `g-io-channel-get-flags' to update the internal values of these flags. CHANNEL a `' RET the flags which are set on the channel -- Function: g-io-channel-set-flags (channel `') (flags `') => (ret `') Sets the (writeable) flags in CHANNEL to (FLAGS & `G_IO_CHANNEL_SET_MASK'). CHANNEL a `'. FLAGS the flags to set on the IO channel. ERROR A location to return an error of type `'. RET the status of the operation. -- Function: g-io-channel-get-line-term (channel `') => (ret `mchars') (length `int') This returns the string that `' uses to determine where in the file a line break occurs. A value of ``#f'' indicates auto detection. CHANNEL a `' LENGTH a location to return the length of the line terminator RET The line termination string. This value is owned by GLib and must not be freed. -- Function: g-io-channel-set-line-term (channel `') (line_term `mchars') (length `int') This sets the string that `' uses to determine where in the file a line break occurs. CHANNEL a `' LINE-TERM The line termination string. Use ``#f'' for auto detect. Auto detection breaks on "\n", "\r\n", "\r", "\0", and the Unicode paragraph separator. Auto detection should not be used for anything other than file-based channels. LENGTH The length of the termination string. If -1 is passed, the string is assumed to be nul-terminated. This option allows termination strings with embeded nuls. -- Function: g-io-channel-get-buffered (channel `') => (ret `bool') Returns whether CHANNEL is buffered. CHANNEL a `'. RET ``#t'' if the CHANNEL is buffered. -- Function: g-io-channel-set-buffered (channel `') (buffered `bool') The buffering state can only be set if the channel's encoding is ``#f''. For any other encoding, the channel must be buffered. A buffered channel can only be set unbuffered if the channel's internal buffers have been flushed. Newly created channels or channels which have returned `G_IO_STATUS_EOF' not require such a flush. For write-only channels, a call to `g-io-channel-flush' is sufficient. For all other channels, the buffers may be flushed by a call to `g-io-channel-seek-position'. This includes the possibility of seeking with seek type `G_SEEK_CUR' and an offset of zero. Note that this means that socket-based channels cannot be set unbuffered once they have had data read from them. On unbuffered channels, it is safe to mix read and write calls from the new and old APIs, if this is necessary for maintaining old code. The default state of the channel is buffered. CHANNEL a `' BUFFERED whether to set the channel buffered or unbuffered -- Function: g-io-channel-get-encoding (channel `') => (ret `mchars') Gets the encoding for the input/output of the channel. The internal encoding is always UTF-8. The encoding ``#f'' makes the channel safe for binary data. CHANNEL a `' RET A string containing the encoding, this string is owned by GLib and must not be freed. -- Function: g-io-channel-set-encoding (channel `') (encoding `mchars') => (ret `') Sets the encoding for the input/output of the channel. The internal encoding is always UTF-8. The default encoding for the external file is UTF-8. The encoding ``#f'' is safe to use with binary data. The encoding can only be set if one of the following conditions is true: 1. The channel was just created, and has not been written to or read from yet. 2. The channel is write-only. 3. The channel is a file, and the file pointer was just repositioned by a call to `g-io-channel-seek-position'. (This flushes all the internal buffers.) 4. The current encoding is ``#f'' or UTF-8. 5. One of the (new API) read functions has just returned `G_IO_STATUS_EOF' (or, in the case of `g-io-channel-read-to-end', `G_IO_STATUS_NORMAL'). 6. One of the functions `g-io-channel-read-chars' or `g-io-channel-read-unichar' has returned `G_IO_STATUS_AGAIN' or `G_IO_STATUS_ERROR'. This may be useful in the case of `G_CONVERT_ERROR_ILLEGAL_SEQUENCE'. Returning one of these statuses from `g-io-channel-read-line', `g-io-channel-read-line-string', or `g-io-channel-read-to-end' does _not_ guarantee that the encoding can be changed. Channels which do not meet one of the above conditions cannot call `g-io-channel-seek-position' with an offset of `G_SEEK_CUR', and, if they are "seekable", cannot call `g-io-channel-write-chars' after calling one of the API "read" functions. CHANNEL a `' ENCODING the encoding type ERROR location to store an error of type `'. RET `G_IO_STATUS_NORMAL' if the encoding was successfully set. -- Function: g-io-channel-close (channel `') `g_io_channel_close' has been deprecated since version 2.2 and should not be used in newly-written code. Use `g-io-channel-shutdown' instead. Close an IO channel. Any pending data to be written will be flushed, ignoring errors. The channel will not be freed until the last reference is dropped using `g-io-channel-unref'. CHANNEL A `'  File: guile-gnome-glib.info, Node: The Main Event Loop, Next: Miscellaneous Utility Functions, Prev: IO Channels, Up: Top 5 The Main Event Loop ********************* manages all available sources of events. 5.1 Overview ============ The main event loop manages all the available sources of events for GLib and GTK+ applications. These events can come from any number of different types of sources such as file descriptors (plain files, pipes or sockets) and timeouts. New types of event sources can also be added using `g-source-attach'. To allow multiple independent sets of sources to be handled in different threads, each source is associated with a `'. A `' can only be running in a single thread, but sources can be added to it and removed from it from other threads. Each event source is assigned a priority. The default priority, `', is 0. Values less than 0 denote higher priorities. Values greater than 0 denote lower priorities. Events from high priority sources are always processed before events from lower priority sources. Idle functions can also be added, and assigned a priority. These will be run whenever no events with a higher priority are ready to be processed. The `' data type represents a main event loop. A `' is created with `g-main-loop-new'. After adding the initial event sources, `g-main-loop-run' is called. This continuously checks for new events from each of the event sources and dispatches them. Finally, the processing of an event from one of the sources leads to a call to `g-main-loop-quit' to exit the main loop, and `g-main-loop-run' returns. It is possible to create new instances of `' recursively. This is often used in GTK+ applications when showing modal dialog boxes. Note that event sources are associated with a particular `', and will be checked and dispatched for all main loops associated with that `'. GTK+ contains wrappers of some of these functions, e.g. `gtk-main', `gtk-main-quit' and `gtk-events-pending'. 5.2 Creating new sources types ============================== One of the unusual features of the GTK+ main loop functionality is that new types of event source can be created and used in addition to the builtin type of event source. A new event source type is used for handling GDK events. A new source type is created by "deriving" from the `' structure. The derived type of source is represented by a structure that has the `' structure as a first element, and other elements specific to the new source type. To create an instance of the new source type, call `g-source-new' passing in the size of the derived structure and a table of functions. These `' determine the behavior of the new source types. New source types basically interact with with the main context in two ways. Their prepare function in `' can set a timeout to determine the maximum amount of time that the main loop will sleep before checking the source again. In addition, or as well, the source can add file descriptors to the set that the main context checks using `g-source-add-poll'. 5.3 Customizing the main loop iteration ======================================= Single iterations of a `' can be run with `g-main-context-iteration'. In some cases, more detailed control of exactly how the details of the main loop work is desired, for instance, when integrating the `' with an external main loop. In such cases, you can call the component functions of `g-main-context-iteration' directly. These functions are `g-main-context-prepare', `g-main-context-query', `g-main-context-check' and `g-main-context-dispatch'. The operation of these functions can best be seen in terms of a state diagram, as shown in _(the missing figure, mainloop-states_. 5.4 Usage ========= -- Class: Opaque pointer. This class defines no direct slots. -- Class: Opaque pointer. This class defines no direct slots. -- Class: Opaque pointer. This class defines no direct slots. -- Function: g-main-loop-new (context `') (is_running `bool') => (ret `') Creates a new `' structure. CONTEXT a `' (if ``#f'', the default context will be used). IS-RUNNING set to ``#t'' to indicate that the loop is running. This is not very important since calling `g-main-loop-run' will set this to ``#t'' anyway. RET a new `'. -- Function: g-main-loop-run (self `') Runs a main loop until `g-main-loop-quit' is called on the loop. If this is called for the thread of the loop's `', it will process events from the loop, otherwise it will simply wait. LOOP a `' -- Function: g-main-loop-quit (loop `') Stops a `' from running. Any calls to `g-main-loop-run' for the loop will return. LOOP a `' -- Function: g-main-loop-is-running (loop `') => (ret `bool') Checks to see if the main loop is currently being run via `g-main-loop-run'. LOOP a `'. RET ``#t'' if the mainloop is currently being run. -- Function: g-main-loop-get-context (loop `') => (ret `') Returns the `' of LOOP. LOOP a `'. RET the `' of LOOP -- Function: g-main-context-new => (ret `') Creates a new `' strcuture RET the new `' -- Function: g-main-context-default => (ret `') Returns the default main context. This is the main context used for main loop functions when a main loop is not explicitly specified. RET the default main context. -- Function: g-main-context-iteration (self `') (may_block `bool') => (ret `bool') Runs a single iteration for the given main loop. This involves checking to see if any event sources are ready to be processed, then if no events sources are ready and MAY-BLOCK is ``#t'', waiting for a source to become ready, then dispatching the highest priority events sources that are ready. Note that even when MAY-BLOCK is ``#t'', it is still possible for `g-main-context-iteration' to return ``#f'', since the the wait may be interrupted for other reasons than an event source becoming ready. CONTEXT a `' (if ``#f'', the default context will be used) MAY-BLOCK whether the call may block. RET ``#t'' if events were dispatched. -- Function: g-main-context-pending (context `') => (ret `bool') Checks if any sources have pending events for the given context. CONTEXT a `' (if ``#f'', the default context will be used) RET ``#t'' if events are pending. -- Function: g-main-context-find-source-by-id (context `') (source_id `unsigned-int') => (ret `') Finds a `' given a pair of context and ID. CONTEXT a `' (if ``#f'', the default context will be used) SOURCE-ID the source ID, as returned by `g-source-get-id'. RET the `' if found, otherwise, ``#f'' -- Function: g-main-context-wakeup (context `') If CONTEXT is currently waiting in a `poll', interrupt the `poll', and continue the iteration process. CONTEXT a `' -- Function: g-main-context-acquire (context `') => (ret `bool') Tries to become the owner of the specified context. If some other context is the owner of the context, returns ``#f'' immediately. Ownership is properly recursive: the owner can require ownership again and will release ownership when `g-main-context-release' is called as many times as `g-main-context-acquire'. You must be the owner of a context before you can call `g-main-context-prepare', `g-main-context-query', `g-main-context-check', `g-main-context-dispatch'. CONTEXT a `' RET ``#t'' if the operation succeeded, and this thread is now the owner of CONTEXT. -- Function: g-main-context-release (context `') Releases ownership of a context previously acquired by this thread with `g-main-context-acquire'. If the context was acquired multiple times, the only release ownership when `g-main-context-release' is called as many times as it was acquired. CONTEXT a `' -- Function: g-main-context-is-owner (context `') => (ret `bool') Determines whether this thread holds the (recursive) ownership of this `'. This is useful to know before waiting on another thread that may be blocking to get ownership of CONTEXT. CONTEXT a `' RET ``#t'' if current thread is owner of CONTEXT. Since 2.10 -- Function: g-main-context-prepare (context `') => (ret `bool') (priority `int') Prepares to poll sources within a main loop. The resulting information for polling is determined by calling `g-main-context-query'. CONTEXT a `' PRIORITY location to store priority of highest priority source already ready. RET ``#t'' if some source is ready to be dispatched prior to polling. -- Function: g-main-depth => (ret `int') Return value: The main loop recursion level in the current thread The value returned is the depth of the stack of calls to `g-main-context-dispatch' on any `' in the current thread. That is, when called from the toplevel, it gives 0. When called from within a callback from `g-main-context-iteration' (or `g-main-loop-run', etc.) it returns 1. When called from within a callback to a recursive call to `g-main-context-iterate', it returns 2. And so forth. This function is an attractive nuisance, and its use normally indicates a misunderstanding of how main loop reentrancy works. Use `gtk-widget-set-sensitive' or modal dialogs to prevent the user from interacting with elements while the main loop is recursing. A better idea is to avoid main loop recursion entirely. Instead, structure your code so that you simply return to the main loop and then get called again when there is more work to do. -- Function: g-main-current-source => (ret `') Returns the currently firing source for this thread. RET The currently firing source or ``#f''. Since 2.12 -- Function: g-timeout-source-new (interval `unsigned-int') => (ret `') Creates a new timeout source. The source will not initially be associated with any `' and must be added to one with `g-source-attach' before it will be executed. INTERVAL the timeout interval in milliseconds. RET the newly-created timeout source -- Function: g-idle-source-new => (ret `') Creates a new idle source. The source will not initially be associated with any `' and must be added to one with `g-source-attach' before it will be executed. Note that the default priority for idle sources is `G_PRIORITY_DEFAULT_IDLE', as compared to other sources which have a default priority of `G_PRIORITY_DEFAULT'. RET the newly-created idle source -- Function: g-child-watch-source-new (pid `int') => (ret `') Creates a new child_watch source. The source will not initially be associated with any `' and must be added to one with `g-source-attach' before it will be executed. Note that child watch sources can only be used in conjunction with `g_spawn...' when the `G_SPAWN_DO_NOT_REAP_CHILD' flag is used. Note that on platforms where `' must be explicitly closed (see `g-spawn-close-pid') PID must not be closed while the source is still active. Typically, you will want to call `g-spawn-close-pid' in the callback function for the source. Note further that using `g-child-watch-source-new' is not compatible with calling `waitpid(-1)' in the application. Calling `waitpid' for individual pids will still work fine. PID process id of a child process to watch. On Windows, a HANDLE for the process to watch (which actually doesn't have to be a child). RET the newly-created child watch source Since 2.4 -- Function: g-source-attach (self `') (context `') => (ret `unsigned-int') Adds a `' to a CONTEXT so that it will be executed within that context. SOURCE a `' CONTEXT a `' (if ``#f'', the default context will be used) RET the ID (greater than 0) for the source within the `'. -- Function: g-source-destroy (source `') Removes a source from its `', if any, and mark it as destroyed. The source cannot be subsequently added to another context. SOURCE a `' -- Function: g-source-is-destroyed (source `') => (ret `bool') Returns whether SOURCE has been destroyed. This is important when you operate upon your objects from within idle handlers, but may have freed the object before the dispatch of your idle handler. static gboolean idle_callback (gpointer data) { SomeWidget *self = data; GDK_THREADS_ENTER (); /* do stuff with self */ self->idle_id = 0; GDK_THREADS_LEAVE (); return FALSE; } static void some_widget_do_stuff_later (SomeWidget *self) { self->idle_id = g_idle_add (idle_callback, self); } static void some_widget_finalize (GObject *object) { SomeWidget *self = SOME_WIDGET (object); if (self->idle_id) g_source_remove (self->idle_id); G_OBJECT_CLASS (parent_class)->finalize (object); } This will fail in a multi-threaded application if the widget is destroyed before the idle handler fires due to the use after free in the callback. A solution, to this particular problem, is to check to if the source has already been destroy within the callback. static gboolean idle_callback (gpointer data) { SomeWidget *self = data; GDK_THREADS_ENTER (); if (!g_source_is_destroyed (g_main_current_source ())) { /* do stuff with self */ } GDK_THREADS_LEAVE (); return FALSE; } SOURCE a `' RET ``#t'' if the source has been destroyed Since 2.12 -- Function: g-source-set-priority (source `') (priority `int') Sets the priority of a source. While the main loop is being run, a source will be dispatched if it is ready to be dispatched and no sources at a higher (numerically smaller) priority are ready to be dispatched. SOURCE a `' PRIORITY the new priority. -- Function: g-source-get-priority (source `') => (ret `int') Gets the priority of a source. SOURCE a `' RET the priority of the source -- Function: g-source-set-can-recurse (source `') (can_recurse `bool') Sets whether a source can be called recursively. If CAN-RECURSE is ``#t'', then while the source is being dispatched then this source will be processed normally. Otherwise, all processing of this source is blocked until the dispatch function returns. SOURCE a `' CAN-RECURSE whether recursion is allowed for this source -- Function: g-source-get-can-recurse (source `') => (ret `bool') Checks whether a source is allowed to be called recursively. see `g-source-set-can-recurse'. SOURCE a `' RET whether recursion is allowed. -- Function: g-source-get-id (source `') => (ret `unsigned-int') Returns the numeric ID for a particular source. The ID of a source is a positive integer which is unique within a particular main loop context. The reverse mapping from ID to source is done by `g-main-context-find-source-by-id'. SOURCE a `' RET the ID (greater than 0) for the source -- Function: g-source-get-context (source `') => (ret `') Gets the `' with which the source is associated. Calling this function on a destroyed source is an error. SOURCE a `' RET the `' with which the source is associated, or ``#f'' if the context has not yet been added to a source. -- Function: g-source-remove (tag `unsigned-int') => (ret `bool') Removes the source with the given id from the default main context. The id of a `' is given by `g-source-get-id', or will be returned by the functions `g-source-attach', `g-idle-add', `g-idle-add-full', `g-timeout-add', `g-timeout-add-full', `g-child-watch-add', `g-child-watch-add-full', `g-io-add-watch', and `g-io-add-watch-full'. See also `g-source-destroy'. TAG the ID of the source to remove. RET ``#t'' if the source was found and removed.  File: guile-gnome-glib.info, Node: Miscellaneous Utility Functions, Next: Quarks, Prev: The Main Event Loop, Up: Top 6 Miscellaneous Utility Functions ********************************* a selection of portable utility functions. 6.1 Overview ============ These are portable utility functions. 6.2 Usage ========= -- Function: g-get-application-name => (ret `mchars') Gets a human-readable name for the application, as set by `g-set-application-name'. This name should be localized if possible, and is intended for display to the user. Contrast with `g-get-prgname', which gets a non-localized name. If `g-set-application-name' has not been called, returns the result of `g-get-prgname' (which may be ``#f'' if `g-set-prgname' has also not been called). RET human-readable application name. may return ``#f'' Since 2.2 -- Function: g-set-application-name (application_name `mchars') Sets a human-readable name for the application. This name should be localized if possible, and is intended for display to the user. Contrast with `g-set-prgname', which sets a non-localized name. `g-set-prgname' will be called automatically by `gtk-init', but `g-set-application-name' will not. Note that for thread safety reasons, this function can only be called once. The application name will be used in contexts such as error messages, or when displaying an application's name in the task list. APPLICATION-NAME localized name of the application -- Function: g-get-prgname => (ret `mchars') Gets the name of the program. This name should _not_ be localized, contrast with `g-get-application-name'. (If you are using GDK or GTK+ the program name is set in `gdk-init', which is called by `gtk-init'. The program name is found by taking the last component of `argv[0]'.) RET the name of the program. The returned string belongs to GLib and must not be modified or freed. -- Function: g-set-prgname (prgname `mchars') Sets the name of the program. This name should _not_ be localized, contrast with `g-set-application-name'. Note that for thread-safety reasons this function can only be called once. PRGNAME the name of the program. -- Function: g-get-user-name => (ret `mchars') Gets the user name of the current user. The encoding of the returned string is system-defined. On UNIX, it might be the preferred file name encoding, or something else, and there is no guarantee that it is even consistent on a machine. On Windows, it is always UTF-8. RET the user name of the current user. -- Function: g-get-real-name => (ret `mchars') Gets the real name of the user. This usually comes from the user's entry in the `passwd' file. The encoding of the returned string is system-defined. (On Windows, it is, however, always UTF-8.) If the real user name cannot be determined, the string "Unknown" is returned. RET the user's real name. -- Function: g-get-user-cache-dir => (ret `mchars') Returns a base directory in which to store non-essential, cached data specific to particular user. On UNIX platforms this is determined using the mechanisms described in the XDG Base Directory Specification (http://www.freedesktop.org/Standards/basedir-spec) RET a string owned by GLib that must not be modified or freed. Since 2.6 -- Function: g-get-user-data-dir => (ret `mchars') Returns a base directory in which to access application data such as icons that is customized for a particular user. On UNIX platforms this is determined using the mechanisms described in the XDG Base Directory Specification (http://www.freedesktop.org/Standards/basedir-spec) RET a string owned by GLib that must not be modified or freed. Since 2.6 -- Function: g-get-user-config-dir => (ret `mchars') Returns a base directory in which to store user-specific application configuration information such as user preferences and settings. On UNIX platforms this is determined using the mechanisms described in the XDG Base Directory Specification (http://www.freedesktop.org/Standards/basedir-spec) RET a string owned by GLib that must not be modified or freed. Since 2.6 -- Function: g-get-host-name => (ret `mchars') Return a name for the machine. The returned name is not necessarily a fully-qualified domain name, or even present in DNS or some other name service at all. It need not even be unique on your local network or site, but usually it is. Callers should not rely on the return value having any specific properties like uniqueness for security purposes. Even if the name of the machine is changed while an application is running, the return value from this function does not change. The returned string is owned by GLib and should not be modified or freed. If no name can be determined, a default fixed string "localhost" is returned. RET the host name of the machine. Since 2.8 -- Function: g-get-home-dir => (ret `mchars') Gets the current user's home directory. Note that in contrast to traditional UNIX tools, this function prefers `passwd' entries over the `HOME' environment variable. RET the current user's home directory. -- Function: g-get-tmp-dir => (ret `mchars') Gets the directory to use for temporary files. This is found from inspecting the environment variables `TMPDIR', `TMP', and `TEMP' in that order. If none of those are defined "/tmp" is returned on UNIX and "C:\" on Windows. The encoding of the returned string is system-defined. On Windows, it is always UTF-8. The return value is never ``#f''. RET the directory to use for temporary files.  File: guile-gnome-glib.info, Node: Quarks, Next: Shell-related Utilities, Prev: Miscellaneous Utility Functions, Up: Top 7 Quarks ******** a 2-way association between a string and a unique integer identifier. 7.1 Overview ============ Quarks are associations between strings and integer identifiers. Given either the string or the `' identifier it is possible to retrieve the other. Quarks are used for both Datasets and Keyed Data Lists. To create a new quark from a string, use `g-quark-from-string' or `g-quark-from-static-string'. To find the string corresponding to a given `', use `g-quark-to-string'. To find the `' corresponding to a given string, use `g-quark-try-string'. Another use for the string pool maintained for the quark functions is string interning, using `g-intern-string' or `g-intern-static-string'. An interned string is a canonical representation for a string. One important advantage of interned strings is that they can be compared for equality by a simple pointer comparision, rather than using `strcmp'. 7.2 Usage ========= -- Function: g-quark-from-string (string `mchars') => (ret `unsigned-int') Gets the `' identifying the given string. If the string does not currently have an associated `', a new `' is created, using a copy of the string. STRING a string. RET the `' identifying the string. -- Function: g-quark-to-string (quark `unsigned-int') => (ret `mchars') Gets the string associated with the given `'. QUARK a `'. RET the string associated with the `'. -- Function: g-quark-try-string (string `mchars') => (ret `unsigned-int') Gets the `' associated with the given string, or 0 if the string has no associated `'. If you want the GQuark to be created if it doesn't already exist, use `g-quark-from-string' or `g-quark-from-static-string'. STRING a string. RET the `' associated with the string, or 0 if there is no `' associated with the string.  File: guile-gnome-glib.info, Node: Shell-related Utilities, Next: Strings, Prev: Quarks, Up: Top 8 Shell-related Utilities ************************* shell-like commandline handling. 8.1 Overview ============ 8.2 Usage ========= -- Function: g-shell-quote (unquoted_string `mchars') => (ret `mchars') Quotes a string so that the shell (/bin/sh) will interpret the quoted string to mean UNQUOTED-STRING. If you pass a filename to the shell, for example, you should first quote it with this function. The return value must be freed with `g-free'. The quoting style used is undefined (single or double quotes may be used). UNQUOTED-STRING a literal string RET quoted string -- Function: g-shell-unquote (quoted_string `mchars') => (ret `mchars') Unquotes a string as the shell (/bin/sh) would. Only handles quotes; if a string contains file globs, arithmetic operators, variables, backticks, redirections, or other special-to-the-shell features, the result will be different from the result a real shell would produce (the variables, backticks, etc. will be passed through literally instead of being expanded). This function is guaranteed to succeed if applied to the result of `g-shell-quote'. If it fails, it returns ``#f'' and sets the error. The QUOTED-STRING need not actually contain quoted or escaped text; `g-shell-unquote' simply goes through the string and unquotes/unescapes anything that the shell would. Both single and double quotes are handled, as are escapes including escaped newlines. The return value must be freed with `g-free'. Possible errors are in the `' domain. Shell quoting rules are a bit strange. Single quotes preserve the literal string exactly. escape sequences are not allowed; not even \' - if you want a ' in the quoted text, you have to do something like 'foo'\"bar'. Double quotes allow $, `, ", \, and newline to be escaped with backslash. Otherwise double quotes preserve things literally. QUOTED-STRING shell-quoted string ERROR error return location or NULL RET an unquoted string  File: guile-gnome-glib.info, Node: Strings, Next: Unicode Manipulation, Prev: Shell-related Utilities, Up: Top 9 Strings ********* text buffers which grow automatically as text is added. 9.1 Overview ============ A `' is similar to a standard C string, except that it grows automatically as text is appended or inserted. Also, it stores the length of the string, so can be used for binary data with embedded nul bytes. 9.2 Usage ========= -- Function: g-string-new (init `mchars') => (ret `') Creates a new `', initialized with the given string. INIT the initial text to copy into the string. RET the new `'. -- Function: g-string-get-str (string `') => (chars `mchars') Retrieves the contents of STRING as a Scheme string.  File: guile-gnome-glib.info, Node: Unicode Manipulation, Next: Undocumented, Prev: Strings, Up: Top 10 Unicode Manipulation *********************** functions operating on Unicode characters and UTF-8 strings. 10.1 Overview ============= This section describes a number of functions for dealing with Unicode characters and strings. There are analogues of the traditional `ctype.h' character classification and case conversion functions, UTF-8 analogues of some string utility functions, functions to perform normalization, case conversion and collation on UTF-8 strings and finally functions to convert between the UTF-8, UTF-16 and UCS-4 encodings of Unicode. The implementations of the Unicode functions in GLib are based on the Unicode Character Data tables, which are available from www.unicode.org (http://www.unicode.org). GLib 2.8 supports Unicode 4.0, GLib 2.10 supports Unicode 4.1, GLib 2.12 supports Unicode 5.0. 10.2 Usage ========== -- Function: g-unichar-validate (ch `unsigned-int32') => (ret `bool') Checks whether CH is a valid Unicode character. Some possible integer values of CH will not be valid. 0 is considered a valid character, though it's normally a string terminator. CH a Unicode character RET ``#t'' if CH is a valid Unicode character -- Function: g-unichar-isalnum (c `unsigned-int32') => (ret `bool') Determines whether a character is alphanumeric. Given some UTF-8 text, obtain a character value with `g-utf8-get-char'. C a Unicode character RET ``#t'' if C is an alphanumeric character -- Function: g-unichar-isalpha (c `unsigned-int32') => (ret `bool') Determines whether a character is alphabetic (i.e. a letter). Given some UTF-8 text, obtain a character value with `g-utf8-get-char'. C a Unicode character RET ``#t'' if C is an alphabetic character -- Function: g-unichar-iscntrl (c `unsigned-int32') => (ret `bool') Determines whether a character is a control character. Given some UTF-8 text, obtain a character value with `g-utf8-get-char'. C a Unicode character RET ``#t'' if C is a control character -- Function: g-unichar-isdigit (c `unsigned-int32') => (ret `bool') Determines whether a character is numeric (i.e. a digit). This covers ASCII 0-9 and also digits in other languages/scripts. Given some UTF-8 text, obtain a character value with `g-utf8-get-char'. C a Unicode character RET ``#t'' if C is a digit -- Function: g-unichar-isgraph (c `unsigned-int32') => (ret `bool') Determines whether a character is printable and not a space (returns ``#f'' for control characters, format characters, and spaces). `g-unichar-isprint' is similar, but returns ``#t'' for spaces. Given some UTF-8 text, obtain a character value with `g-utf8-get-char'. C a Unicode character RET ``#t'' if C is printable unless it's a space -- Function: g-unichar-islower (c `unsigned-int32') => (ret `bool') Determines whether a character is a lowercase letter. Given some UTF-8 text, obtain a character value with `g-utf8-get-char'. C a Unicode character RET ``#t'' if C is a lowercase letter -- Function: g-unichar-isprint (c `unsigned-int32') => (ret `bool') Determines whether a character is printable. Unlike `g-unichar-isgraph', returns ``#t'' for spaces. Given some UTF-8 text, obtain a character value with `g-utf8-get-char'. C a Unicode character RET ``#t'' if C is printable -- Function: g-unichar-ispunct (c `unsigned-int32') => (ret `bool') Determines whether a character is punctuation or a symbol. Given some UTF-8 text, obtain a character value with `g-utf8-get-char'. C a Unicode character RET ``#t'' if C is a punctuation or symbol character -- Function: g-unichar-isspace (c `unsigned-int32') => (ret `bool') Determines whether a character is a space, tab, or line separator (newline, carriage return, etc.). Given some UTF-8 text, obtain a character value with `g-utf8-get-char'. (Note: don't use this to do word breaking; you have to use Pango or equivalent to get word breaking right, the algorithm is fairly complex.) C a Unicode character RET ``#t'' if C is a space character -- Function: g-unichar-isupper (c `unsigned-int32') => (ret `bool') Determines if a character is uppercase. C a Unicode character RET ``#t'' if C is an uppercase character -- Function: g-unichar-isxdigit (c `unsigned-int32') => (ret `bool') Determines if a character is a hexidecimal digit. C a Unicode character. RET ``#t'' if the character is a hexadecimal digit -- Function: g-unichar-istitle (c `unsigned-int32') => (ret `bool') Determines if a character is titlecase. Some characters in Unicode which are composites, such as the DZ digraph have three case variants instead of just two. The titlecase form is used at the beginning of a word where only the first letter is capitalized. The titlecase form of the DZ digraph is U+01F2 LATIN CAPITAL LETTTER D WITH SMALL LETTER Z. C a Unicode character RET ``#t'' if the character is titlecase -- Function: g-unichar-isdefined (c `unsigned-int32') => (ret `bool') Determines if a given character is assigned in the Unicode standard. C a Unicode character RET ``#t'' if the character has an assigned value -- Function: g-unichar-iswide (c `unsigned-int32') => (ret `bool') Determines if a character is typically rendered in a double-width cell. C a Unicode character RET ``#t'' if the character is wide -- Function: g-unichar-iswide-cjk (c `unsigned-int32') => (ret `bool') Determines if a character is typically rendered in a double-width cell under legacy East Asian locales. If a character is wide according to `g-unichar-iswide', then it is also reported wide with this function, but the converse is not necessarily true. See the Unicode Standard Annex (http://www.unicode.org/reports/tr11/) for details. C a Unicode character RET ``#t'' if the character is wide in legacy East Asian locales Since 2.12 -- Function: g-unichar-toupper (c `unsigned-int32') => (ret `unsigned-int32') Converts a character to uppercase. C a Unicode character RET the result of converting C to uppercase. If C is not an lowercase or titlecase character, or has no upper case equivalent C is returned unchanged. -- Function: g-unichar-tolower (c `unsigned-int32') => (ret `unsigned-int32') Converts a character to lower case. C a Unicode character. RET the result of converting C to lower case. If C is not an upperlower or titlecase character, or has no lowercase equivalent C is returned unchanged. -- Function: g-unichar-totitle (c `unsigned-int32') => (ret `unsigned-int32') Converts a character to the titlecase. C a Unicode character RET the result of converting C to titlecase. If C is not an uppercase or lowercase character, C is returned unchanged. -- Function: g-unichar-digit-value (c `unsigned-int32') => (ret `int') Determines the numeric value of a character as a decimal digit. C a Unicode character RET If C is a decimal digit (according to `g-unichar-isdigit'), its numeric value. Otherwise, -1. -- Function: g-unichar-xdigit-value (c `unsigned-int32') => (ret `int') Determines the numeric value of a character as a hexidecimal digit. C a Unicode character RET If C is a hex digit (according to `g-unichar-isxdigit'), its numeric value. Otherwise, -1. -- Function: g-unichar-type (c `unsigned-int32') => (ret `') Classifies a Unicode character by type. C a Unicode character RET the type of the character. -- Function: g-unichar-break-type (c `unsigned-int32') => (ret `') Determines the break type of C. C should be a Unicode character (to derive a character from UTF-8 encoded text, use `g-utf8-get-char'). The break type is used to find word and line breaks ("text boundaries"), Pango implements the Unicode boundary resolution algorithms and normally you would use a function such as `pango-break' instead of caring about break types yourself. C a Unicode character RET the break type of C -- Function: g-unichar-get-mirror-char (ch `unsigned-int32') => (ret `bool') (mirrored_ch `unsigned-int32') In Unicode, some characters are "mirrored". This means that their images are mirrored horizontally in text that is laid out from right to left. For instance, "(" would become its mirror image, ")", in right-to-left text. If CH has the Unicode mirrored property and there is another unicode character that typically has a glyph that is the mirror image of CH's glyph and MIRRORED-CH is set, it puts that character in the address pointed to by MIRRORED-CH. Otherwise the original character is put. CH a Unicode character MIRRORED-CH location to store the mirrored character RET ``#t'' if CH has a mirrored character, ``#f'' otherwise Since 2.4 -- Function: g-utf8-get-char (p `mchars') => (ret `unsigned-int32') Converts a sequence of bytes encoded as UTF-8 to a Unicode character. If P does not point to a valid UTF-8 encoded character, results are undefined. If you are not sure that the bytes are complete valid Unicode characters, you should use `g-utf8-get-char-validated' instead. P a pointer to Unicode character encoded as UTF-8 RET the resulting character -- Function: g-utf8-find-next-char (p `mchars') => (ret `mchars') Finds the start of the next UTF-8 character in the string after P. P does not have to be at the beginning of a UTF-8 character. No check is made to see if the character found is actually valid other than it starts with an appropriate byte. P a pointer to a position within a UTF-8 encoded string END a pointer to the end of the string, or ``#f'' to indicate that the string is nul-terminated, in which case the returned value will be RET a pointer to the found character or ``#f'' -- Function: g-utf8-strlen (p `mchars') => (ret `long') Returns the length of the string in characters. P pointer to the start of a UTF-8 encoded string. MAX the maximum number of bytes to examine. If MAX is less than 0, then the string is assumed to be nul-terminated. If MAX is 0, P will not be examined and may be ``#f''. RET the length of the string in characters -- Function: g-utf8-strchr (p `mchars') (c `unsigned-int32') => (ret `mchars') Finds the leftmost occurrence of the given Unicode character in a UTF-8 encoded string, while limiting the search to LEN bytes. If LEN is -1, allow unbounded search. P a nul-terminated UTF-8 encoded string LEN the maximum length of P C a Unicode character RET ``#f'' if the string does not contain the character, otherwise, a pointer to the start of the leftmost occurrence of the character in the string. -- Function: g-utf8-strrchr (p `mchars') (c `unsigned-int32') => (ret `mchars') Find the rightmost occurrence of the given Unicode character in a UTF-8 encoded string, while limiting the search to LEN bytes. If LEN is -1, allow unbounded search. P a nul-terminated UTF-8 encoded string LEN the maximum length of P C a Unicode character RET ``#f'' if the string does not contain the character, otherwise, a pointer to the start of the rightmost occurrence of the character in the string. -- Function: g-utf8-strreverse (p `mchars') => (ret `mchars') Reverses a UTF-8 string. STR must be valid UTF-8 encoded text. (Use `g-utf8-validate' on all text before trying to use UTF-8 utility functions with it.) Note that unlike `g-strreverse', this function returns newly-allocated memory, which should be freed with `g-free' when no longer needed. STR a UTF-8 encoded string LEN the maximum length of STR to use. If LEN < 0, then the string is nul-terminated. RET a newly-allocated string which is the reverse of STR. Since 2.2 -- Function: g-utf8-validate (p `mchars') => (ret `bool') Validates UTF-8 encoded text. STR is the text to validate; if STR is nul-terminated, then MAX-LEN can be -1, otherwise MAX-LEN should be the number of bytes to validate. If END is non-``#f'', then the end of the valid range will be stored there (i.e. the start of the first invalid character if some bytes were invalid, or the end of the text being validated otherwise). Note that `g-utf8-validate' returns ``#f'' if MAX-LEN is positive and NUL is met before MAX-LEN bytes have been read. Returns ``#t'' if all of STR was valid. Many GLib and GTK+ routines _require_ valid UTF-8 as input; so data read from a file or the network should be checked with `g-utf8-validate' before doing anything else with it. STR a pointer to character data MAX-LEN max bytes to validate, or -1 to go until NUL END return location for end of valid data RET ``#t'' if the text was valid UTF-8 -- Function: g-utf8-strup (p `mchars') => (ret `mchars') Converts all Unicode characters in the string that have a case to uppercase. The exact manner that this is done depends on the current locale, and may result in the number of characters in the string increasing. (For instance, the German ess-zet will be changed to SS.) STR a UTF-8 encoded string LEN length of STR, in bytes, or -1 if STR is nul-terminated. RET a newly allocated string, with all characters converted to uppercase. -- Function: g-utf8-strdown (p `mchars') => (ret `mchars') Converts all Unicode characters in the string that have a case to lowercase. The exact manner that this is done depends on the current locale, and may result in the number of characters in the string changing. STR a UTF-8 encoded string LEN length of STR, in bytes, or -1 if STR is nul-terminated. RET a newly allocated string, with all characters converted to lowercase. -- Function: g-utf8-casefold (p `mchars') => (ret `mchars') Converts a string into a form that is independent of case. The result will not correspond to any particular case, but can be compared for equality or ordered with the results of calling `g-utf8-casefold' on other strings. Note that calling `g-utf8-casefold' followed by `g-utf8-collate' is only an approximation to the correct linguistic case insensitive ordering, though it is a fairly good one. Getting this exactly right would require a more sophisticated collation function that takes case sensitivity into account. GLib does not currently provide such a function. STR a UTF-8 encoded string LEN length of STR, in bytes, or -1 if STR is nul-terminated. RET a newly allocated string, that is a case independent form of STR. -- Function: g-utf8-normalize (p `mchars') (mode `') => (ret `mchars') Converts a string into canonical form, standardizing such issues as whether a character with an accent is represented as a base character and combining accent or as a single precomposed character. You should generally call `g-utf8-normalize' before comparing two Unicode strings. The normalization mode `G_NORMALIZE_DEFAULT' only standardizes differences that do not affect the text content, such as the above-mentioned accent representation. `G_NORMALIZE_ALL' also standardizes the "compatibility" characters in Unicode, such as SUPERSCRIPT THREE to the standard forms (in this case DIGIT THREE). Formatting information may be lost but for most text operations such characters should be considered the same. For example, `g-utf8-collate' normalizes with `G_NORMALIZE_ALL' as its first step. `G_NORMALIZE_DEFAULT_COMPOSE' and `G_NORMALIZE_ALL_COMPOSE' are like `G_NORMALIZE_DEFAULT' and `G_NORMALIZE_ALL', but returned a result with composed forms rather than a maximally decomposed form. This is often useful if you intend to convert the string to a legacy encoding or pass it to a system with less capable Unicode handling. STR a UTF-8 encoded string. LEN length of STR, in bytes, or -1 if STR is nul-terminated. MODE the type of normalization to perform. RET a newly allocated string, that is the normalized form of STR. -- Function: g-utf8-collate (str1 `mchars') (str2 `mchars') => (ret `int') Compares two strings for ordering using the linguistically correct rules for the current locale. When sorting a large number of strings, it will be significantly faster to obtain collation keys with `g-utf8-collate-key' and compare the keys with `strcmp' when sorting instead of sorting the original strings. STR1 a UTF-8 encoded string STR2 a UTF-8 encoded string RET < 0 if STR1 compares before STR2, 0 if they compare equal, > 0 if STR1 compares after STR2. -- Function: g-utf8-collate-key (p `mchars') => (ret `mchars') Converts a string into a collation key that can be compared with other collation keys produced by the same function using `strcmp'. The results of comparing the collation keys of two strings with `strcmp' will always be the same as comparing the two original keys with `g-utf8-collate'. STR a UTF-8 encoded string. LEN length of STR, in bytes, or -1 if STR is nul-terminated. RET a newly allocated string. This string should be freed with `g-free' when you are done with it. -- Function: g-utf8-collate-key-for-filename (p `mchars') => (ret `mchars') Converts a string into a collation key that can be compared with other collation keys produced by the same function using `strcmp'. In order to sort filenames correctly, this function treats the dot '.' as a special case. Most dictionary orderings seem to consider it insignificant, thus producing the ordering "event.c" "eventgenerator.c" "event.h" instead of "event.c" "event.h" "eventgenerator.c". Also, we would like to treat numbers intelligently so that "file1" "file10" "file5" is sorted as "file1" "file5" "file10". STR a UTF-8 encoded string. LEN length of STR, in bytes, or -1 if STR is nul-terminated. RET a newly allocated string. This string should be freed with `g-free' when you are done with it. Since 2.8 -- Function: g-unichar-to-utf8 (c `unsigned-int32') => (ret `mchars') Converts a single character to UTF-8. C a Unicode character code OUTBUF output buffer, must have at least 6 bytes of space. If ``#f'', the length will be computed and returned and nothing will be written to OUTBUF. RET number of bytes written  File: guile-gnome-glib.info, Node: Undocumented, Next: Type Index, Prev: Unicode Manipulation, Up: Top 11 Undocumented *************** The following symbols, if any, have not been properly documented. 11.1 (gnome glib) ================= -- Function: g-error-code error -- Function: g-error-domain error -- Function: g-error-message error -- Function: g-idle-add proc -- Function: g-main-loop-console-repl -- Variable: g-source-set-closure -- Function: g-timeout-add milliseconds proc 11.2 (gnome gw glib) ==================== -- Variable: -- Function: enum--val->int -- Function: enum--val->sym -- Function: enum--val->int -- Function: enum--val->sym -- Function: enum--val->int -- Function: enum--val->sym -- Function: enum--val->int -- Function: enum--val->sym -- Function: enum--val->int -- Function: enum--val->sym -- Function: enum--val->int -- Function: enum--val->sym -- Function: enum--val->int -- Function: enum--val->sym -- Function: enum--val->int -- Function: enum--val->sym -- Function: enum--val->int -- Function: enum--val->sym -- Function: enum--val->int -- Function: enum--val->sym -- Function: enum--val->int -- Function: enum--val->sym -- Function: enum--val->int -- Function: enum--val->sym -- Variable: g-bookmark-file-error-quark -- Variable: g-convert-error-quark -- Variable: g-file-error-quark -- Variable: g-io-channel-error-quark  File: guile-gnome-glib.info, Node: Type Index, Next: Function Index, Prev: Undocumented, Up: Top Type Index ********** [index] * Menu: * : Bookmark file parser. (line 76) * : The Main Event Loop. (line 95) * : The Main Event Loop. (line 89) * : The Main Event Loop. (line 101) * : IO Channels. (line 50)  File: guile-gnome-glib.info, Node: Function Index, Prev: Type Index, Up: Top Function Index ************** [index] * Menu: * enum--val->int: Undocumented. (line 31) * enum--val->sym: Undocumented. (line 33) * enum--val->int: Undocumented. (line 35) * enum--val->sym: Undocumented. (line 37) * enum--val->int: Undocumented. (line 39) * enum--val->sym: Undocumented. (line 41) * enum--val->int: Undocumented. (line 43) * enum--val->sym: Undocumented. (line 45) * enum--val->int: Undocumented. (line 47) * enum--val->sym: Undocumented. (line 49) * enum--val->int: Undocumented. (line 51) * enum--val->sym: Undocumented. (line 53) * enum--val->int: Undocumented. (line 55) * enum--val->sym: Undocumented. (line 57) * enum--val->int: Undocumented. (line 59) * enum--val->sym: Undocumented. (line 61) * enum--val->int: Undocumented. (line 63) * enum--val->sym: Undocumented. (line 65) * enum--val->int: Undocumented. (line 67) * enum--val->sym: Undocumented. (line 69) * enum--val->int: Undocumented. (line 71) * enum--val->sym: Undocumented. (line 73) * enum--val->int: Undocumented. (line 75) * enum--val->sym: Undocumented. (line 77) * g-bookmark-file-add-application: Bookmark file parser. (line 893) * g-bookmark-file-add-group: Bookmark file parser. (line 872) * g-bookmark-file-get-added: Bookmark file parser. (line 461) * g-bookmark-file-get-app-info: Bookmark file parser. (line 591) * g-bookmark-file-get-applications: Bookmark file parser. (line 561) * g-bookmark-file-get-description: Bookmark file parser. (line 354) * g-bookmark-file-get-groups: Bookmark file parser. (line 530) * g-bookmark-file-get-icon: Bookmark file parser. (line 431) * g-bookmark-file-get-is-private: Bookmark file parser. (line 405) * g-bookmark-file-get-mime-type: Bookmark file parser. (line 379) * g-bookmark-file-get-modified: Bookmark file parser. (line 484) * g-bookmark-file-get-size: Bookmark file parser. (line 293) * g-bookmark-file-get-title: Bookmark file parser. (line 327) * g-bookmark-file-get-uris: Bookmark file parser. (line 307) * g-bookmark-file-get-visited: Bookmark file parser. (line 507) * g-bookmark-file-has-application: Bookmark file parser. (line 266) * g-bookmark-file-has-group: Bookmark file parser. (line 238) * g-bookmark-file-has-item: Bookmark file parser. (line 220) * g-bookmark-file-load-from-data: Bookmark file parser. (line 122) * g-bookmark-file-load-from-data-dirs: Bookmark file parser. (line 148) * g-bookmark-file-load-from-file: Bookmark file parser. (line 99) * g-bookmark-file-move-item: Bookmark file parser. (line 1015) * g-bookmark-file-new: Bookmark file parser. (line 82) * g-bookmark-file-remove-application: Bookmark file parser. (line 964) * g-bookmark-file-remove-group: Bookmark file parser. (line 934) * g-bookmark-file-remove-item: Bookmark file parser. (line 995) * g-bookmark-file-set-added: Bookmark file parser. (line 740) * g-bookmark-file-set-app-info: Bookmark file parser. (line 811) * g-bookmark-file-set-description: Bookmark file parser. (line 656) * g-bookmark-file-set-icon: Bookmark file parser. (line 717) * g-bookmark-file-set-is-private: Bookmark file parser. (line 698) * g-bookmark-file-set-mime-type: Bookmark file parser. (line 678) * g-bookmark-file-set-modified: Bookmark file parser. (line 760) * g-bookmark-file-set-title: Bookmark file parser. (line 633) * g-bookmark-file-set-visited: Bookmark file parser. (line 784) * g-bookmark-file-to-data: Bookmark file parser. (line 177) * g-bookmark-file-to-file: Bookmark file parser. (line 199) * g-child-watch-source-new: The Main Event Loop. (line 381) * g-convert: Character Set Conversion. (line 105) * g-convert-with-fallback: Character Set Conversion. (line 130) * g-error-code: Undocumented. (line 12) * g-error-domain: Undocumented. (line 14) * g-error-message: Undocumented. (line 16) * g-file-error-from-errno: File Utilities. (line 38) * g-filename-display-basename: Character Set Conversion. (line 306) * g-filename-display-name: Character Set Conversion. (line 276) * g-filename-from-uri: Character Set Conversion. (line 230) * g-filename-from-utf8: Character Set Conversion. (line 196) * g-filename-to-uri: Character Set Conversion. (line 253) * g-filename-to-utf8: Character Set Conversion. (line 180) * g-get-application-name: Miscellaneous Utility Functions. (line 17) * g-get-home-dir: Miscellaneous Utility Functions. (line 166) * g-get-host-name: Miscellaneous Utility Functions. (line 145) * g-get-prgname: Miscellaneous Utility Functions. (line 52) * g-get-real-name: Miscellaneous Utility Functions. (line 87) * g-get-tmp-dir: Miscellaneous Utility Functions. (line 177) * g-get-user-cache-dir: Miscellaneous Utility Functions. (line 99) * g-get-user-config-dir: Miscellaneous Utility Functions. (line 129) * g-get-user-data-dir: Miscellaneous Utility Functions. (line 114) * g-get-user-name: Miscellaneous Utility Functions. (line 75) * g-idle-add: Undocumented. (line 18) * g-idle-source-new: The Main Event Loop. (line 366) * g-io-add-watch: IO Channels. (line 255) * g-io-channel-close: IO Channels. (line 503) * g-io-channel-error-from-errno: IO Channels. (line 218) * g-io-channel-flush: IO Channels. (line 157) * g-io-channel-get-buffer-condition: IO Channels. (line 301) * g-io-channel-get-buffer-size: IO Channels. (line 277) * g-io-channel-get-buffered: IO Channels. (line 395) * g-io-channel-get-encoding: IO Channels. (line 436) * g-io-channel-get-flags: IO Channels. (line 316) * g-io-channel-get-line-term: IO Channels. (line 356) * g-io-channel-new-file: IO Channels. (line 104) * g-io-channel-read-line: IO Channels. (line 127) * g-io-channel-seek-position: IO Channels. (line 174) * g-io-channel-set-buffer-size: IO Channels. (line 289) * g-io-channel-set-buffered: IO Channels. (line 407) * g-io-channel-set-encoding: IO Channels. (line 451) * g-io-channel-set-flags: IO Channels. (line 337) * g-io-channel-set-line-term: IO Channels. (line 374) * g-io-channel-shutdown: IO Channels. (line 198) * g-io-channel-unix-get-fd: IO Channels. (line 89) * g-io-channel-unix-new: IO Channels. (line 56) * g-io-create-watch: IO Channels. (line 231) * g-locale-from-utf8: Character Set Conversion. (line 338) * g-locale-to-utf8: Character Set Conversion. (line 163) * g-main-context-acquire: The Main Event Loop. (line 252) * g-main-context-default: The Main Event Loop. (line 178) * g-main-context-find-source-by-id: The Main Event Loop. (line 227) * g-main-context-is-owner: The Main Event Loop. (line 285) * g-main-context-iteration: The Main Event Loop. (line 189) * g-main-context-new: The Main Event Loop. (line 170) * g-main-context-pending: The Main Event Loop. (line 213) * g-main-context-prepare: The Main Event Loop. (line 301) * g-main-context-release: The Main Event Loop. (line 272) * g-main-context-wakeup: The Main Event Loop. (line 242) * g-main-current-source: The Main Event Loop. (line 340) * g-main-depth: The Main Event Loop. (line 319) * g-main-loop-console-repl: Undocumented. (line 20) * g-main-loop-get-context: The Main Event Loop. (line 159) * g-main-loop-is-running: The Main Event Loop. (line 146) * g-main-loop-new: The Main Event Loop. (line 108) * g-main-loop-quit: The Main Event Loop. (line 136) * g-main-loop-run: The Main Event Loop. (line 125) * g-quark-from-string: Quarks. (line 38) * g-quark-to-string: Quarks. (line 52) * g-quark-try-string: Quarks. (line 64) * g-set-application-name: Miscellaneous Utility Functions. (line 33) * g-set-prgname: Miscellaneous Utility Functions. (line 65) * g-shell-quote: Shell-related Utilities. (line 16) * g-shell-unquote: Shell-related Utilities. (line 33) * g-source-attach: The Main Event Loop. (line 413) * g-source-destroy: The Main Event Loop. (line 430) * g-source-get-can-recurse: The Main Event Loop. (line 554) * g-source-get-context: The Main Event Loop. (line 582) * g-source-get-id: The Main Event Loop. (line 567) * g-source-get-priority: The Main Event Loop. (line 527) * g-source-is-destroyed: The Main Event Loop. (line 441) * g-source-remove: The Main Event Loop. (line 595) * g-source-set-can-recurse: The Main Event Loop. (line 539) * g-source-set-priority: The Main Event Loop. (line 512) * g-string-get-str: Strings. (line 32) * g-string-new: Strings. (line 20) * g-timeout-add: Undocumented. (line 24) * g-timeout-source-new: The Main Event Loop. (line 351) * g-unichar-break-type: Unicode Manipulation. (line 319) * g-unichar-digit-value: Unicode Manipulation. (line 281) * g-unichar-get-mirror-char: Unicode Manipulation. (line 336) * g-unichar-isalnum: Unicode Manipulation. (line 41) * g-unichar-isalpha: Unicode Manipulation. (line 53) * g-unichar-iscntrl: Unicode Manipulation. (line 66) * g-unichar-isdefined: Unicode Manipulation. (line 198) * g-unichar-isdigit: Unicode Manipulation. (line 78) * g-unichar-isgraph: Unicode Manipulation. (line 91) * g-unichar-islower: Unicode Manipulation. (line 106) * g-unichar-isprint: Unicode Manipulation. (line 118) * g-unichar-ispunct: Unicode Manipulation. (line 131) * g-unichar-isspace: Unicode Manipulation. (line 143) * g-unichar-istitle: Unicode Manipulation. (line 182) * g-unichar-isupper: Unicode Manipulation. (line 160) * g-unichar-iswide: Unicode Manipulation. (line 210) * g-unichar-iswide-cjk: Unicode Manipulation. (line 222) * g-unichar-isxdigit: Unicode Manipulation. (line 171) * g-unichar-to-utf8: Unicode Manipulation. (line 676) * g-unichar-tolower: Unicode Manipulation. (line 255) * g-unichar-totitle: Unicode Manipulation. (line 269) * g-unichar-toupper: Unicode Manipulation. (line 241) * g-unichar-type: Unicode Manipulation. (line 307) * g-unichar-validate: Unicode Manipulation. (line 28) * g-unichar-xdigit-value: Unicode Manipulation. (line 294) * g-utf8-casefold: Unicode Manipulation. (line 546) * g-utf8-collate: Unicode Manipulation. (line 611) * g-utf8-collate-key: Unicode Manipulation. (line 630) * g-utf8-collate-key-for-filename: Unicode Manipulation. (line 650) * g-utf8-find-next-char: Unicode Manipulation. (line 376) * g-utf8-get-char: Unicode Manipulation. (line 361) * g-utf8-normalize: Unicode Manipulation. (line 572) * g-utf8-strchr: Unicode Manipulation. (line 413) * g-utf8-strdown: Unicode Manipulation. (line 528) * g-utf8-strlen: Unicode Manipulation. (line 396) * g-utf8-strrchr: Unicode Manipulation. (line 435) * g-utf8-strreverse: Unicode Manipulation. (line 456) * g-utf8-strup: Unicode Manipulation. (line 509) * g-utf8-validate: Unicode Manipulation. (line 479)  Tag Table: Node: Top2237 Node: Bookmark file parser5144 Node: Character Set Conversion32820 Node: File Utilities45975 Node: IO Channels47979 Node: The Main Event Loop64100 Node: Miscellaneous Utility Functions82779 Node: Quarks88857 Node: Shell-related Utilities91090 Node: Strings93371 Node: Unicode Manipulation94216 Node: Undocumented114720 Node: Type Index116546 Node: Function Index117123  End Tag Table guile-gnome-platform-2.16.2/glib/doc/glib/Makefile.am0000644000175000017500000000150311670374302022621 0ustar00wingowingo00000000000000################################################################################ ## guile-gnome-glib.info include $(top_srcdir)/generate-docs.mk # docbook_xml_wildcard = ~/src/gnome2/glib/docs/reference/glib/xml/*.xml # docbook_xml_files = $(wildcard ~/src/gnome2/glib/docs/reference/glib/xml/*.xml) # A hand-culled list of modules that we wrap. docbook_xml = bookmarkfile.xml \ conversions.xml \ fileutils.xml \ iochannels.xml \ main.xml \ misc_utils.xml \ quarks.xml \ shell.xml \ strings.xml \ unicode.xml docbook_xml_base = ~/src/gnome2/glib/docs/reference/glib/xml/ docbook_xml_files = $(addprefix $(docbook_xml_base),$(docbook_xml)) wrapset_stem = glib EXTRA_DIST = overrides.texi info_TEXINFOS=guile-gnome-glib.texi guile_gnome_glib_TEXINFOS=$(wildcard section-*.texi) $(wildcard defuns-*.texi) undocumented.texi guile-gnome-platform-2.16.2/glib/doc/glib/Makefile.in0000644000175000017500000006563711752511066022655 0ustar00wingowingo00000000000000# Makefile.in generated by automake 1.11.5 from Makefile.am. # @configure_input@ # Copyright (C) 1994, 1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, # 2003, 2004, 2005, 2006, 2007, 2008, 2009, 2010, 2011 Free Software # Foundation, Inc. # This Makefile.in is free software; the Free Software Foundation # gives unlimited permission to copy and/or distribute it, # with or without modifications, as long as this notice is preserved. # This program is distributed in the hope that it will be useful, # but WITHOUT ANY WARRANTY, to the extent permitted by law; without # even the implied warranty of MERCHANTABILITY or FITNESS FOR A # PARTICULAR PURPOSE. @SET_MAKE@ ################################################################################ # guile-gnome # Copyright (C) 2007, 2011 Free Software Foundation, Inc. # This program is free software; you can redistribute it and/or # modify it under the terms of the GNU General Public License as # published by the Free Software Foundation; either version 2 of # the License, or (at your option) any later version. # This program is distributed in the hope that it will be useful, # but WITHOUT ANY WARRANTY; without even the implied warranty of # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the # GNU General Public License for more details. # You should have received a copy of the GNU General Public License # along with this program; if not, contact: # Free Software Foundation Voice: +1-617-542-5942 # 59 Temple Place - Suite 330 Fax: +1-617-542-2652 # Boston, MA 02111-1307, USA gnu@gnu.org # # Makefile snippet # VPATH = @srcdir@ am__make_dryrun = \ { \ am__dry=no; \ case $$MAKEFLAGS in \ *\\[\ \ ]*) \ echo 'am--echo: ; @echo "AM" OK' | $(MAKE) -f - 2>/dev/null \ | grep '^AM OK$$' >/dev/null || am__dry=yes;; \ *) \ for am__flg in $$MAKEFLAGS; do \ case $$am__flg in \ *=*|--*) ;; \ *n*) am__dry=yes; break;; \ esac; \ done;; \ esac; \ test $$am__dry = yes; \ } pkgdatadir = $(datadir)/@PACKAGE@ pkgincludedir = $(includedir)/@PACKAGE@ pkglibdir = $(libdir)/@PACKAGE@ pkglibexecdir = $(libexecdir)/@PACKAGE@ am__cd = CDPATH="$${ZSH_VERSION+.}$(PATH_SEPARATOR)" && cd install_sh_DATA = $(install_sh) -c -m 644 install_sh_PROGRAM = $(install_sh) -c install_sh_SCRIPT = $(install_sh) -c INSTALL_HEADER = $(INSTALL_DATA) transform = $(program_transform_name) NORMAL_INSTALL = : PRE_INSTALL = : POST_INSTALL = : NORMAL_UNINSTALL = : PRE_UNINSTALL = : POST_UNINSTALL = : build_triplet = @build@ host_triplet = @host@ DIST_COMMON = $(guile_gnome_glib_TEXINFOS) $(srcdir)/Makefile.am \ $(srcdir)/Makefile.in $(srcdir)/stamp-vti \ $(srcdir)/version.texi $(top_srcdir)/generate-docs.mk subdir = glib/doc/glib ACLOCAL_M4 = $(top_srcdir)/aclocal.m4 am__aclocal_m4_deps = $(top_srcdir)/configure.ac am__configure_deps = $(am__aclocal_m4_deps) $(CONFIGURE_DEPENDENCIES) \ $(ACLOCAL_M4) mkinstalldirs = $(install_sh) -d CONFIG_HEADER = $(top_builddir)/config.h CONFIG_CLEAN_FILES = CONFIG_CLEAN_VPATH_FILES = SOURCES = DIST_SOURCES = INFO_DEPS = $(srcdir)/guile-gnome-glib.info TEXINFO_TEX = $(top_srcdir)/build-aux/texinfo.tex am__TEXINFO_TEX_DIR = $(top_srcdir)/build-aux DVIS = guile-gnome-glib.dvi PDFS = guile-gnome-glib.pdf PSS = guile-gnome-glib.ps HTMLS = guile-gnome-glib.html TEXINFOS = guile-gnome-glib.texi TEXI2DVI = texi2dvi TEXI2PDF = $(TEXI2DVI) --pdf --batch MAKEINFOHTML = $(MAKEINFO) --html AM_MAKEINFOHTMLFLAGS = $(AM_MAKEINFOFLAGS) DVIPS = dvips am__can_run_installinfo = \ case $$AM_UPDATE_INFO_DIR in \ n|no|NO) false;; \ *) (install-info --version) >/dev/null 2>&1;; \ esac am__installdirs = "$(DESTDIR)$(infodir)" am__vpath_adj_setup = srcdirstrip=`echo "$(srcdir)" | sed 's|.|.|g'`; am__vpath_adj = case $$p in \ $(srcdir)/*) f=`echo "$$p" | sed "s|^$$srcdirstrip/||"`;; \ *) f=$$p;; \ esac; am__strip_dir = f=`echo $$p | sed -e 's|^.*/||'`; am__install_max = 40 am__nobase_strip_setup = \ srcdirstrip=`echo "$(srcdir)" | sed 's/[].[^$$\\*|]/\\\\&/g'` am__nobase_strip = \ for p in $$list; do echo "$$p"; done | sed -e "s|$$srcdirstrip/||" am__nobase_list = $(am__nobase_strip_setup); \ for p in $$list; do echo "$$p $$p"; done | \ sed "s| $$srcdirstrip/| |;"' / .*\//!s/ .*/ ./; s,\( .*\)/[^/]*$$,\1,' | \ $(AWK) 'BEGIN { files["."] = "" } { files[$$2] = files[$$2] " " $$1; \ if (++n[$$2] == $(am__install_max)) \ { print $$2, files[$$2]; n[$$2] = 0; files[$$2] = "" } } \ END { for (dir in files) print dir, files[dir] }' am__base_list = \ sed '$$!N;$$!N;$$!N;$$!N;$$!N;$$!N;$$!N;s/\n/ /g' | \ sed '$$!N;$$!N;$$!N;$$!N;s/\n/ /g' am__uninstall_files_from_dir = { \ test -z "$$files" \ || { test ! -d "$$dir" && test ! -f "$$dir" && test ! -r "$$dir"; } \ || { echo " ( cd '$$dir' && rm -f" $$files ")"; \ $(am__cd) "$$dir" && rm -f $$files; }; \ } DISTFILES = $(DIST_COMMON) $(DIST_SOURCES) $(TEXINFOS) $(EXTRA_DIST) ACLOCAL = @ACLOCAL@ AG_PKG_CONFIG_PATH = @AG_PKG_CONFIG_PATH@ AMTAR = @AMTAR@ API_VERSION = @API_VERSION@ AR = @AR@ ATK_CFLAGS = @ATK_CFLAGS@ ATK_LIBS = @ATK_LIBS@ AUTOCONF = @AUTOCONF@ AUTOHEADER = @AUTOHEADER@ AUTOMAKE = @AUTOMAKE@ AWK = @AWK@ BONOBO_IDL_DIR = @BONOBO_IDL_DIR@ CANVAS_CFLAGS = @CANVAS_CFLAGS@ CANVAS_LIBS = @CANVAS_LIBS@ CC = @CC@ CCDEPMODE = @CCDEPMODE@ CFLAGS = @CFLAGS@ CORBA_CFLAGS = @CORBA_CFLAGS@ CORBA_LIBS = @CORBA_LIBS@ CPP = @CPP@ CPPFLAGS = @CPPFLAGS@ CYGPATH_W = @CYGPATH_W@ DEFS = @DEFS@ DEPDIR = @DEPDIR@ DLLTOOL = @DLLTOOL@ DSYMUTIL = @DSYMUTIL@ DUMPBIN = @DUMPBIN@ ECHO_C = @ECHO_C@ ECHO_N = @ECHO_N@ ECHO_T = @ECHO_T@ EGREP = @EGREP@ EXEEXT = @EXEEXT@ FGREP = @FGREP@ GCONF_CFLAGS = @GCONF_CFLAGS@ GCONF_LIBS = @GCONF_LIBS@ GDK_CFLAGS = @GDK_CFLAGS@ GDK_LIBS = @GDK_LIBS@ GDK_PIXBUF_CFLAGS = @GDK_PIXBUF_CFLAGS@ GDK_PIXBUF_LIBS = @GDK_PIXBUF_LIBS@ GLIB_CFLAGS = @GLIB_CFLAGS@ GLIB_LIBS = @GLIB_LIBS@ GNOMEUI_DEPRECATION_FLAGS = @GNOMEUI_DEPRECATION_FLAGS@ GNOME_VFS_CFLAGS = @GNOME_VFS_CFLAGS@ GNOME_VFS_DEPRECATED_CFLAGS = @GNOME_VFS_DEPRECATED_CFLAGS@ GNOME_VFS_LIBS = @GNOME_VFS_LIBS@ GOBJECT_CFLAGS = @GOBJECT_CFLAGS@ GOBJECT_LIBS = @GOBJECT_LIBS@ GREP = @GREP@ GTHREAD_CFLAGS = @GTHREAD_CFLAGS@ GTHREAD_LIBS = @GTHREAD_LIBS@ GTK_CFLAGS = @GTK_CFLAGS@ GTK_DEPRECATED_CFLAGS = @GTK_DEPRECATED_CFLAGS@ GTK_LIBS = @GTK_LIBS@ GUILE_CAIRO_CFLAGS = @GUILE_CAIRO_CFLAGS@ GUILE_CAIRO_LIBS = @GUILE_CAIRO_LIBS@ GUILE_CFLAGS = @GUILE_CFLAGS@ GUILE_EFFECTIVE_VERSION = @GUILE_EFFECTIVE_VERSION@ GUILE_GLIB_CFLAGS = @GUILE_GLIB_CFLAGS@ GUILE_GLIB_LIBS = @GUILE_GLIB_LIBS@ GUILE_LIBS = @GUILE_LIBS@ G_WRAP_CFLAGS = @G_WRAP_CFLAGS@ G_WRAP_LIBS = @G_WRAP_LIBS@ G_WRAP_LIB_DIR = @G_WRAP_LIB_DIR@ G_WRAP_MODULE_DIR = @G_WRAP_MODULE_DIR@ INSTALL = @INSTALL@ INSTALL_DATA = @INSTALL_DATA@ INSTALL_PROGRAM = @INSTALL_PROGRAM@ INSTALL_SCRIPT = @INSTALL_SCRIPT@ INSTALL_STRIP_PROGRAM = @INSTALL_STRIP_PROGRAM@ LD = @LD@ LDFLAGS = @LDFLAGS@ LIBGLADE_CFLAGS = @LIBGLADE_CFLAGS@ LIBGLADE_LIBS = @LIBGLADE_LIBS@ LIBGNOMEUI_CFLAGS = @LIBGNOMEUI_CFLAGS@ LIBGNOMEUI_LIBS = @LIBGNOMEUI_LIBS@ LIBGNOME_CFLAGS = @LIBGNOME_CFLAGS@ LIBGNOME_LIBS = @LIBGNOME_LIBS@ LIBOBJS = @LIBOBJS@ LIBS = @LIBS@ LIBTOOL = @LIBTOOL@ LIPO = @LIPO@ LN_S = @LN_S@ LTLIBOBJS = @LTLIBOBJS@ MAKEINFO = @MAKEINFO@ MANIFEST_TOOL = @MANIFEST_TOOL@ MKDIR_P = @MKDIR_P@ NM = @NM@ NMEDIT = @NMEDIT@ OBJDUMP = @OBJDUMP@ OBJEXT = @OBJEXT@ ORBIT_IDL = @ORBIT_IDL@ OTOOL = @OTOOL@ OTOOL64 = @OTOOL64@ PACKAGE = @PACKAGE@ PACKAGE_BUGREPORT = @PACKAGE_BUGREPORT@ PACKAGE_NAME = @PACKAGE_NAME@ PACKAGE_STRING = @PACKAGE_STRING@ PACKAGE_TARNAME = @PACKAGE_TARNAME@ PACKAGE_URL = @PACKAGE_URL@ PACKAGE_VERSION = @PACKAGE_VERSION@ PANGOCAIRO_CFLAGS = @PANGOCAIRO_CFLAGS@ PANGOCAIRO_LIBS = @PANGOCAIRO_LIBS@ PANGO_CFLAGS = @PANGO_CFLAGS@ PANGO_LIBS = @PANGO_LIBS@ PATH_SEPARATOR = @PATH_SEPARATOR@ PKG_CONFIG = @PKG_CONFIG@ PKG_CONFIG_LIBDIR = @PKG_CONFIG_LIBDIR@ PKG_CONFIG_PATH = @PKG_CONFIG_PATH@ RANLIB = @RANLIB@ SED = @SED@ SET_MAKE = @SET_MAKE@ SHELL = @SHELL@ STRIP = @STRIP@ VERSION = @VERSION@ WARN_CFLAGS = @WARN_CFLAGS@ abs_builddir = @abs_builddir@ abs_srcdir = @abs_srcdir@ abs_top_builddir = @abs_top_builddir@ abs_top_srcdir = @abs_top_srcdir@ ac_ct_AR = @ac_ct_AR@ ac_ct_CC = @ac_ct_CC@ ac_ct_DUMPBIN = @ac_ct_DUMPBIN@ am__include = @am__include@ am__leading_dot = @am__leading_dot@ am__quote = @am__quote@ am__tar = @am__tar@ am__untar = @am__untar@ bindir = @bindir@ build = @build@ build_alias = @build_alias@ build_cpu = @build_cpu@ build_os = @build_os@ build_vendor = @build_vendor@ builddir = @builddir@ datadir = @datadir@ datarootdir = @datarootdir@ docdir = @docdir@ dvidir = @dvidir@ exec_prefix = @exec_prefix@ host = @host@ host_alias = @host_alias@ host_cpu = @host_cpu@ host_os = @host_os@ host_vendor = @host_vendor@ htmldir = @htmldir@ includedir = @includedir@ infodir = @infodir@ install_sh = @install_sh@ libdir = @libdir@ libexecdir = @libexecdir@ localedir = @localedir@ localstatedir = @localstatedir@ mandir = @mandir@ mkdir_p = @mkdir_p@ oldincludedir = @oldincludedir@ pdfdir = @pdfdir@ prefix = @prefix@ program_transform_name = @program_transform_name@ psdir = @psdir@ sbindir = @sbindir@ sharedstatedir = @sharedstatedir@ srcdir = @srcdir@ sysconfdir = @sysconfdir@ target_alias = @target_alias@ top_build_prefix = @top_build_prefix@ top_builddir = @top_builddir@ top_srcdir = @top_srcdir@ wrapset_module = (gnome gw $(wrapset_stem)-spec) wrapset_name = gnome-$(wrapset_stem) GTK_DOC_TO_TEXI_STUBS = '((@ (gnome gw support gtk-doc) gtk-doc->texi-stubs) (cdr (program-arguments)))' GTK_DOC_DEFUN_HEURISTICS_METHOD = heuristics GTK_DOC_DEFUN_HEURISTICS_ARGS = (your-module-here) GTK_DOC_DEFUN_GWRAP_METHOD = g-wrap GTK_DOC_DEFUN_GWRAP_ARGS = $(wrapset_module) $(wrapset_name) GTK_DOC_DEFUN_METHOD = $(GTK_DOC_DEFUN_GWRAP_METHOD) GTK_DOC_DEFUN_ARGS = $(GTK_DOC_DEFUN_GWRAP_ARGS) GTK_DOC_TO_TEXI_DEFUNS = "(apply (@ (gnome gw support gtk-doc) gtk-doc->texi-defuns) (cadr (program-arguments)) '$(GTK_DOC_DEFUN_METHOD) '($(GTK_DOC_DEFUN_ARGS)) (cddr (program-arguments)))" GTK_DOC_COVERAGE_MODULES = (gnome $(wrapset_stem)) (gnome gw $(wrapset_stem)) GTK_DOC_COVERAGE_TEXI = $(info_TEXINFOS) GTK_DOC_CHECK_COVERAGE = "((@ (gnome gw support gtk-doc) check-documentation-coverage) '($(GTK_DOC_COVERAGE_MODULES)) \"$(GTK_DOC_COVERAGE_TEXI)\")" GTK_DOC_GENERATE_UNDOCUMENTED = "((@ (gnome gw support gtk-doc) generate-undocumented-texi) '($(GTK_DOC_COVERAGE_MODULES)) \"$(GTK_DOC_COVERAGE_TEXI)\")" GUILE = $(top_builddir)/dev-environ guile # docbook_xml_wildcard = ~/src/gnome2/glib/docs/reference/glib/xml/*.xml # docbook_xml_files = $(wildcard ~/src/gnome2/glib/docs/reference/glib/xml/*.xml) # A hand-culled list of modules that we wrap. docbook_xml = bookmarkfile.xml \ conversions.xml \ fileutils.xml \ iochannels.xml \ main.xml \ misc_utils.xml \ quarks.xml \ shell.xml \ strings.xml \ unicode.xml docbook_xml_base = ~/src/gnome2/glib/docs/reference/glib/xml/ docbook_xml_files = $(addprefix $(docbook_xml_base),$(docbook_xml)) wrapset_stem = glib EXTRA_DIST = overrides.texi info_TEXINFOS = guile-gnome-glib.texi guile_gnome_glib_TEXINFOS = $(wildcard section-*.texi) $(wildcard defuns-*.texi) undocumented.texi all: all-am .SUFFIXES: .SUFFIXES: .dvi .html .info .pdf .ps .texi $(srcdir)/Makefile.in: $(srcdir)/Makefile.am $(top_srcdir)/generate-docs.mk $(am__configure_deps) @for dep in $?; do \ case '$(am__configure_deps)' in \ *$$dep*) \ ( cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh ) \ && { if test -f $@; then exit 0; else break; fi; }; \ exit 1;; \ esac; \ done; \ echo ' cd $(top_srcdir) && $(AUTOMAKE) --gnu glib/doc/glib/Makefile'; \ $(am__cd) $(top_srcdir) && \ $(AUTOMAKE) --gnu glib/doc/glib/Makefile .PRECIOUS: Makefile Makefile: $(srcdir)/Makefile.in $(top_builddir)/config.status @case '$?' in \ *config.status*) \ cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh;; \ *) \ echo ' cd $(top_builddir) && $(SHELL) ./config.status $(subdir)/$@ $(am__depfiles_maybe)'; \ cd $(top_builddir) && $(SHELL) ./config.status $(subdir)/$@ $(am__depfiles_maybe);; \ esac; $(top_srcdir)/generate-docs.mk: $(top_builddir)/config.status: $(top_srcdir)/configure $(CONFIG_STATUS_DEPENDENCIES) cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh $(top_srcdir)/configure: $(am__configure_deps) cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh $(ACLOCAL_M4): $(am__aclocal_m4_deps) cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh $(am__aclocal_m4_deps): mostlyclean-libtool: -rm -f *.lo clean-libtool: -rm -rf .libs _libs .texi.info: restore=: && backupdir="$(am__leading_dot)am$$$$" && \ am__cwd=`pwd` && $(am__cd) $(srcdir) && \ rm -rf $$backupdir && mkdir $$backupdir && \ if ($(MAKEINFO) --version) >/dev/null 2>&1; then \ for f in $@ $@-[0-9] $@-[0-9][0-9] $(@:.info=).i[0-9] $(@:.info=).i[0-9][0-9]; do \ if test -f $$f; then mv $$f $$backupdir; restore=mv; else :; fi; \ done; \ else :; fi && \ cd "$$am__cwd"; \ if $(MAKEINFO) $(AM_MAKEINFOFLAGS) $(MAKEINFOFLAGS) -I $(srcdir) \ -o $@ $<; \ then \ rc=0; \ $(am__cd) $(srcdir); \ else \ rc=$$?; \ $(am__cd) $(srcdir) && \ $$restore $$backupdir/* `echo "./$@" | sed 's|[^/]*$$||'`; \ fi; \ rm -rf $$backupdir; exit $$rc .texi.dvi: TEXINPUTS="$(am__TEXINFO_TEX_DIR)$(PATH_SEPARATOR)$$TEXINPUTS" \ MAKEINFO='$(MAKEINFO) $(AM_MAKEINFOFLAGS) $(MAKEINFOFLAGS) -I $(srcdir)' \ $(TEXI2DVI) $< .texi.pdf: TEXINPUTS="$(am__TEXINFO_TEX_DIR)$(PATH_SEPARATOR)$$TEXINPUTS" \ MAKEINFO='$(MAKEINFO) $(AM_MAKEINFOFLAGS) $(MAKEINFOFLAGS) -I $(srcdir)' \ $(TEXI2PDF) $< .texi.html: rm -rf $(@:.html=.htp) if $(MAKEINFOHTML) $(AM_MAKEINFOHTMLFLAGS) $(MAKEINFOFLAGS) -I $(srcdir) \ -o $(@:.html=.htp) $<; \ then \ rm -rf $@; \ if test ! -d $(@:.html=.htp) && test -d $(@:.html=); then \ mv $(@:.html=) $@; else mv $(@:.html=.htp) $@; fi; \ else \ if test ! -d $(@:.html=.htp) && test -d $(@:.html=); then \ rm -rf $(@:.html=); else rm -Rf $(@:.html=.htp) $@; fi; \ exit 1; \ fi $(srcdir)/guile-gnome-glib.info: guile-gnome-glib.texi $(srcdir)/version.texi $(guile_gnome_glib_TEXINFOS) guile-gnome-glib.dvi: guile-gnome-glib.texi $(srcdir)/version.texi $(guile_gnome_glib_TEXINFOS) guile-gnome-glib.pdf: guile-gnome-glib.texi $(srcdir)/version.texi $(guile_gnome_glib_TEXINFOS) guile-gnome-glib.html: guile-gnome-glib.texi $(srcdir)/version.texi $(guile_gnome_glib_TEXINFOS) $(srcdir)/version.texi: $(srcdir)/stamp-vti $(srcdir)/stamp-vti: guile-gnome-glib.texi $(top_srcdir)/configure @(dir=.; test -f ./guile-gnome-glib.texi || dir=$(srcdir); \ set `$(SHELL) $(top_srcdir)/build-aux/mdate-sh $$dir/guile-gnome-glib.texi`; \ echo "@set UPDATED $$1 $$2 $$3"; \ echo "@set UPDATED-MONTH $$2 $$3"; \ echo "@set EDITION $(VERSION)"; \ echo "@set VERSION $(VERSION)") > vti.tmp @cmp -s vti.tmp $(srcdir)/version.texi \ || (echo "Updating $(srcdir)/version.texi"; \ cp vti.tmp $(srcdir)/version.texi) -@rm -f vti.tmp @cp $(srcdir)/version.texi $@ mostlyclean-vti: -rm -f vti.tmp maintainer-clean-vti: -rm -f $(srcdir)/stamp-vti $(srcdir)/version.texi .dvi.ps: TEXINPUTS="$(am__TEXINFO_TEX_DIR)$(PATH_SEPARATOR)$$TEXINPUTS" \ $(DVIPS) -o $@ $< uninstall-dvi-am: @$(NORMAL_UNINSTALL) @list='$(DVIS)'; test -n "$(dvidir)" || list=; \ for p in $$list; do \ $(am__strip_dir) \ echo " rm -f '$(DESTDIR)$(dvidir)/$$f'"; \ rm -f "$(DESTDIR)$(dvidir)/$$f"; \ done uninstall-html-am: @$(NORMAL_UNINSTALL) @list='$(HTMLS)'; test -n "$(htmldir)" || list=; \ for p in $$list; do \ $(am__strip_dir) \ echo " rm -rf '$(DESTDIR)$(htmldir)/$$f'"; \ rm -rf "$(DESTDIR)$(htmldir)/$$f"; \ done uninstall-info-am: @$(PRE_UNINSTALL) @if test -d '$(DESTDIR)$(infodir)' && $(am__can_run_installinfo); then \ list='$(INFO_DEPS)'; \ for file in $$list; do \ relfile=`echo "$$file" | sed 's|^.*/||'`; \ echo " install-info --info-dir='$(DESTDIR)$(infodir)' --remove '$(DESTDIR)$(infodir)/$$relfile'"; \ if install-info --info-dir="$(DESTDIR)$(infodir)" --remove "$(DESTDIR)$(infodir)/$$relfile"; \ then :; else test ! -f "$(DESTDIR)$(infodir)/$$relfile" || exit 1; fi; \ done; \ else :; fi @$(NORMAL_UNINSTALL) @list='$(INFO_DEPS)'; \ for file in $$list; do \ relfile=`echo "$$file" | sed 's|^.*/||'`; \ relfile_i=`echo "$$relfile" | sed 's|\.info$$||;s|$$|.i|'`; \ (if test -d "$(DESTDIR)$(infodir)" && cd "$(DESTDIR)$(infodir)"; then \ echo " cd '$(DESTDIR)$(infodir)' && rm -f $$relfile $$relfile-[0-9] $$relfile-[0-9][0-9] $$relfile_i[0-9] $$relfile_i[0-9][0-9]"; \ rm -f $$relfile $$relfile-[0-9] $$relfile-[0-9][0-9] $$relfile_i[0-9] $$relfile_i[0-9][0-9]; \ else :; fi); \ done uninstall-pdf-am: @$(NORMAL_UNINSTALL) @list='$(PDFS)'; test -n "$(pdfdir)" || list=; \ for p in $$list; do \ $(am__strip_dir) \ echo " rm -f '$(DESTDIR)$(pdfdir)/$$f'"; \ rm -f "$(DESTDIR)$(pdfdir)/$$f"; \ done uninstall-ps-am: @$(NORMAL_UNINSTALL) @list='$(PSS)'; test -n "$(psdir)" || list=; \ for p in $$list; do \ $(am__strip_dir) \ echo " rm -f '$(DESTDIR)$(psdir)/$$f'"; \ rm -f "$(DESTDIR)$(psdir)/$$f"; \ done dist-info: $(INFO_DEPS) @srcdirstrip=`echo "$(srcdir)" | sed 's|.|.|g'`; \ list='$(INFO_DEPS)'; \ for base in $$list; do \ case $$base in \ $(srcdir)/*) base=`echo "$$base" | sed "s|^$$srcdirstrip/||"`;; \ esac; \ if test -f $$base; then d=.; else d=$(srcdir); fi; \ base_i=`echo "$$base" | sed 's|\.info$$||;s|$$|.i|'`; \ for file in $$d/$$base $$d/$$base-[0-9] $$d/$$base-[0-9][0-9] $$d/$$base_i[0-9] $$d/$$base_i[0-9][0-9]; do \ if test -f $$file; then \ relfile=`expr "$$file" : "$$d/\(.*\)"`; \ test -f "$(distdir)/$$relfile" || \ cp -p $$file "$(distdir)/$$relfile"; \ else :; fi; \ done; \ done mostlyclean-aminfo: -rm -rf guile-gnome-glib.aux guile-gnome-glib.cp guile-gnome-glib.cps \ guile-gnome-glib.fn guile-gnome-glib.fns guile-gnome-glib.ky \ guile-gnome-glib.kys guile-gnome-glib.log \ guile-gnome-glib.pg guile-gnome-glib.pgs \ guile-gnome-glib.tmp guile-gnome-glib.toc \ guile-gnome-glib.tp guile-gnome-glib.tps guile-gnome-glib.vr \ guile-gnome-glib.vrs clean-aminfo: -test -z "guile-gnome-glib.dvi guile-gnome-glib.pdf guile-gnome-glib.ps \ guile-gnome-glib.html" \ || rm -rf guile-gnome-glib.dvi guile-gnome-glib.pdf guile-gnome-glib.ps \ guile-gnome-glib.html maintainer-clean-aminfo: @list='$(INFO_DEPS)'; for i in $$list; do \ i_i=`echo "$$i" | sed 's|\.info$$||;s|$$|.i|'`; \ echo " rm -f $$i $$i-[0-9] $$i-[0-9][0-9] $$i_i[0-9] $$i_i[0-9][0-9]"; \ rm -f $$i $$i-[0-9] $$i-[0-9][0-9] $$i_i[0-9] $$i_i[0-9][0-9]; \ done tags: TAGS TAGS: ctags: CTAGS CTAGS: distdir: $(DISTFILES) @srcdirstrip=`echo "$(srcdir)" | sed 's/[].[^$$\\*]/\\\\&/g'`; \ topsrcdirstrip=`echo "$(top_srcdir)" | sed 's/[].[^$$\\*]/\\\\&/g'`; \ list='$(DISTFILES)'; \ dist_files=`for file in $$list; do echo $$file; done | \ sed -e "s|^$$srcdirstrip/||;t" \ -e "s|^$$topsrcdirstrip/|$(top_builddir)/|;t"`; \ case $$dist_files in \ */*) $(MKDIR_P) `echo "$$dist_files" | \ sed '/\//!d;s|^|$(distdir)/|;s,/[^/]*$$,,' | \ sort -u` ;; \ esac; \ for file in $$dist_files; do \ if test -f $$file || test -d $$file; then d=.; else d=$(srcdir); fi; \ if test -d $$d/$$file; then \ dir=`echo "/$$file" | sed -e 's,/[^/]*$$,,'`; \ if test -d "$(distdir)/$$file"; then \ find "$(distdir)/$$file" -type d ! -perm -700 -exec chmod u+rwx {} \;; \ fi; \ if test -d $(srcdir)/$$file && test $$d != $(srcdir); then \ cp -fpR $(srcdir)/$$file "$(distdir)$$dir" || exit 1; \ find "$(distdir)/$$file" -type d ! -perm -700 -exec chmod u+rwx {} \;; \ fi; \ cp -fpR $$d/$$file "$(distdir)$$dir" || exit 1; \ else \ test -f "$(distdir)/$$file" \ || cp -p $$d/$$file "$(distdir)/$$file" \ || exit 1; \ fi; \ done $(MAKE) $(AM_MAKEFLAGS) \ top_distdir="$(top_distdir)" distdir="$(distdir)" \ dist-info check-am: all-am check: check-am all-am: Makefile $(INFO_DEPS) installdirs: for dir in "$(DESTDIR)$(infodir)"; do \ test -z "$$dir" || $(MKDIR_P) "$$dir"; \ done install: install-am install-exec: install-exec-am install-data: install-data-am uninstall: uninstall-am install-am: all-am @$(MAKE) $(AM_MAKEFLAGS) install-exec-am install-data-am installcheck: installcheck-am install-strip: if test -z '$(STRIP)'; then \ $(MAKE) $(AM_MAKEFLAGS) INSTALL_PROGRAM="$(INSTALL_STRIP_PROGRAM)" \ install_sh_PROGRAM="$(INSTALL_STRIP_PROGRAM)" INSTALL_STRIP_FLAG=-s \ install; \ else \ $(MAKE) $(AM_MAKEFLAGS) INSTALL_PROGRAM="$(INSTALL_STRIP_PROGRAM)" \ install_sh_PROGRAM="$(INSTALL_STRIP_PROGRAM)" INSTALL_STRIP_FLAG=-s \ "INSTALL_PROGRAM_ENV=STRIPPROG='$(STRIP)'" install; \ fi mostlyclean-generic: clean-generic: distclean-generic: -test -z "$(CONFIG_CLEAN_FILES)" || rm -f $(CONFIG_CLEAN_FILES) -test . = "$(srcdir)" || test -z "$(CONFIG_CLEAN_VPATH_FILES)" || rm -f $(CONFIG_CLEAN_VPATH_FILES) maintainer-clean-generic: @echo "This command is intended for maintainers to use" @echo "it deletes files that may require special tools to rebuild." clean: clean-am clean-am: clean-aminfo clean-generic clean-libtool mostlyclean-am distclean: distclean-am -rm -f Makefile distclean-am: clean-am distclean-generic dvi: dvi-am dvi-am: $(DVIS) html: html-am html-am: $(HTMLS) info: info-am info-am: $(INFO_DEPS) install-data-am: install-info-am install-dvi: install-dvi-am install-dvi-am: $(DVIS) @$(NORMAL_INSTALL) @list='$(DVIS)'; test -n "$(dvidir)" || list=; \ if test -n "$$list"; then \ echo " $(MKDIR_P) '$(DESTDIR)$(dvidir)'"; \ $(MKDIR_P) "$(DESTDIR)$(dvidir)" || exit 1; \ fi; \ for p in $$list; do \ if test -f "$$p"; then d=; else d="$(srcdir)/"; fi; \ echo "$$d$$p"; \ done | $(am__base_list) | \ while read files; do \ echo " $(INSTALL_DATA) $$files '$(DESTDIR)$(dvidir)'"; \ $(INSTALL_DATA) $$files "$(DESTDIR)$(dvidir)" || exit $$?; \ done install-exec-am: install-html: install-html-am install-html-am: $(HTMLS) @$(NORMAL_INSTALL) @list='$(HTMLS)'; list2=; test -n "$(htmldir)" || list=; \ if test -n "$$list"; then \ echo " $(MKDIR_P) '$(DESTDIR)$(htmldir)'"; \ $(MKDIR_P) "$(DESTDIR)$(htmldir)" || exit 1; \ fi; \ for p in $$list; do \ if test -f "$$p" || test -d "$$p"; then d=; else d="$(srcdir)/"; fi; \ $(am__strip_dir) \ d2=$$d$$p; \ if test -d "$$d2"; then \ echo " $(MKDIR_P) '$(DESTDIR)$(htmldir)/$$f'"; \ $(MKDIR_P) "$(DESTDIR)$(htmldir)/$$f" || exit 1; \ echo " $(INSTALL_DATA) '$$d2'/* '$(DESTDIR)$(htmldir)/$$f'"; \ $(INSTALL_DATA) "$$d2"/* "$(DESTDIR)$(htmldir)/$$f" || exit $$?; \ else \ list2="$$list2 $$d2"; \ fi; \ done; \ test -z "$$list2" || { echo "$$list2" | $(am__base_list) | \ while read files; do \ echo " $(INSTALL_DATA) $$files '$(DESTDIR)$(htmldir)'"; \ $(INSTALL_DATA) $$files "$(DESTDIR)$(htmldir)" || exit $$?; \ done; } install-info: install-info-am install-info-am: $(INFO_DEPS) @$(NORMAL_INSTALL) @srcdirstrip=`echo "$(srcdir)" | sed 's|.|.|g'`; \ list='$(INFO_DEPS)'; test -n "$(infodir)" || list=; \ if test -n "$$list"; then \ echo " $(MKDIR_P) '$(DESTDIR)$(infodir)'"; \ $(MKDIR_P) "$(DESTDIR)$(infodir)" || exit 1; \ fi; \ for file in $$list; do \ case $$file in \ $(srcdir)/*) file=`echo "$$file" | sed "s|^$$srcdirstrip/||"`;; \ esac; \ if test -f $$file; then d=.; else d=$(srcdir); fi; \ file_i=`echo "$$file" | sed 's|\.info$$||;s|$$|.i|'`; \ for ifile in $$d/$$file $$d/$$file-[0-9] $$d/$$file-[0-9][0-9] \ $$d/$$file_i[0-9] $$d/$$file_i[0-9][0-9] ; do \ if test -f $$ifile; then \ echo "$$ifile"; \ else : ; fi; \ done; \ done | $(am__base_list) | \ while read files; do \ echo " $(INSTALL_DATA) $$files '$(DESTDIR)$(infodir)'"; \ $(INSTALL_DATA) $$files "$(DESTDIR)$(infodir)" || exit $$?; done @$(POST_INSTALL) @if $(am__can_run_installinfo); then \ list='$(INFO_DEPS)'; test -n "$(infodir)" || list=; \ for file in $$list; do \ relfile=`echo "$$file" | sed 's|^.*/||'`; \ echo " install-info --info-dir='$(DESTDIR)$(infodir)' '$(DESTDIR)$(infodir)/$$relfile'";\ install-info --info-dir="$(DESTDIR)$(infodir)" "$(DESTDIR)$(infodir)/$$relfile" || :;\ done; \ else : ; fi install-man: install-pdf: install-pdf-am install-pdf-am: $(PDFS) @$(NORMAL_INSTALL) @list='$(PDFS)'; test -n "$(pdfdir)" || list=; \ if test -n "$$list"; then \ echo " $(MKDIR_P) '$(DESTDIR)$(pdfdir)'"; \ $(MKDIR_P) "$(DESTDIR)$(pdfdir)" || exit 1; \ fi; \ for p in $$list; do \ if test -f "$$p"; then d=; else d="$(srcdir)/"; fi; \ echo "$$d$$p"; \ done | $(am__base_list) | \ while read files; do \ echo " $(INSTALL_DATA) $$files '$(DESTDIR)$(pdfdir)'"; \ $(INSTALL_DATA) $$files "$(DESTDIR)$(pdfdir)" || exit $$?; done install-ps: install-ps-am install-ps-am: $(PSS) @$(NORMAL_INSTALL) @list='$(PSS)'; test -n "$(psdir)" || list=; \ if test -n "$$list"; then \ echo " $(MKDIR_P) '$(DESTDIR)$(psdir)'"; \ $(MKDIR_P) "$(DESTDIR)$(psdir)" || exit 1; \ fi; \ for p in $$list; do \ if test -f "$$p"; then d=; else d="$(srcdir)/"; fi; \ echo "$$d$$p"; \ done | $(am__base_list) | \ while read files; do \ echo " $(INSTALL_DATA) $$files '$(DESTDIR)$(psdir)'"; \ $(INSTALL_DATA) $$files "$(DESTDIR)$(psdir)" || exit $$?; done installcheck-am: maintainer-clean: maintainer-clean-am -rm -f Makefile maintainer-clean-am: distclean-am maintainer-clean-aminfo \ maintainer-clean-generic maintainer-clean-vti mostlyclean: mostlyclean-am mostlyclean-am: mostlyclean-aminfo mostlyclean-generic \ mostlyclean-libtool mostlyclean-vti pdf: pdf-am pdf-am: $(PDFS) ps: ps-am ps-am: $(PSS) uninstall-am: uninstall-dvi-am uninstall-html-am uninstall-info-am \ uninstall-pdf-am uninstall-ps-am .MAKE: install-am install-strip .PHONY: all all-am check check-am clean clean-aminfo clean-generic \ clean-libtool dist-info distclean distclean-generic \ distclean-libtool distdir dvi dvi-am html html-am info info-am \ install install-am install-data install-data-am install-dvi \ install-dvi-am install-exec install-exec-am install-html \ install-html-am install-info install-info-am install-man \ install-pdf install-pdf-am install-ps install-ps-am \ install-strip installcheck installcheck-am installdirs \ maintainer-clean maintainer-clean-aminfo \ maintainer-clean-generic maintainer-clean-vti mostlyclean \ mostlyclean-aminfo mostlyclean-generic mostlyclean-libtool \ mostlyclean-vti pdf pdf-am ps ps-am uninstall uninstall-am \ uninstall-dvi-am uninstall-html-am uninstall-info-am \ uninstall-pdf-am uninstall-ps-am generate-stubs: $(GUILE) $(GUILE_FLAGS) -c $(GTK_DOC_TO_TEXI_STUBS) $(docbook_xml_files) generate-defuns: $(GUILE) $(GUILE_FLAGS) -c $(GTK_DOC_TO_TEXI_DEFUNS) ./overrides.texi $(docbook_xml_files) check-coverage: $(GUILE) $(GUILE_FLAGS) -c $(GTK_DOC_CHECK_COVERAGE) generate-undocumented: rm -f undocumented.texi; touch undocumented.texi $(GUILE) $(GUILE_FLAGS) -c $(GTK_DOC_GENERATE_UNDOCUMENTED) # Tell versions [3.59,3.63) of GNU make to not export all variables. # Otherwise a system limit (for SysV at least) may be exceeded. .NOEXPORT: guile-gnome-platform-2.16.2/glib/doc/glib/stamp-vti0000644000175000017500000000014611752511103022427 0ustar00wingowingo00000000000000@set UPDATED 9 December 2011 @set UPDATED-MONTH December 2011 @set EDITION 2.16.2 @set VERSION 2.16.2 guile-gnome-platform-2.16.2/glib/doc/glib/defuns-iochannels.xml.texi0000644000175000017500000003517511670374302025700 0ustar00wingowingo00000000000000 @c %start of fragment @deftp Class Opaque pointer. This class defines no direct slots. @end deftp @deffn Function g-io-channel-unix-new (fd@tie{}@code{int}) @result{}@tie{} (ret@tie{}@code{}) Creates a new @code{} given a file descriptor. On UNIX systems this works for plain files, pipes, and sockets. The returned @code{} has a reference count of 1. The default encoding for @code{} is UTF-8. If your application is reading output from a command using via pipe, you may need to set the encoding to the encoding of the current locale (see @code{g-get-charset}) with the @code{g-io-channel-set-encoding} function. If you want to read raw binary data without interpretation, then call the @code{g-io-channel-set-encoding} function with @samp{@code{#f}} for the encoding argument. This function is available in GLib on Windows, too, but you should avoid using it on Windows. The domain of file descriptors and sockets overlap. There is no way for GLib to know which one you mean in case the argument you pass to this function happens to be both a valid file descriptor and socket. If that happens a warning is issued, and GLib assumes that it is the file descriptor you mean. @table @var @item fd a file descriptor. @item ret a new @code{}. @end table @end deffn @deffn Function g-io-channel-unix-get-fd (channel@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{int}) Returns the file descriptor of the @code{}. On Windows this function returns the file descriptor or socket of the @code{}. @table @var @item channel a @code{}, created with @code{g-io-channel-unix-new}. @item ret the file descriptor of the @code{}. @end table @end deffn @deffn Function g-io-channel-new-file (filename@tie{}@code{mchars}) (mode@tie{}@code{mchars}) @result{}@tie{} (ret@tie{}@code{}) Open a file @var{filename} as a @code{} using mode @var{mode}. This channel will be closed when the last reference to it is dropped, so there is no need to call @code{g-io-channel-close} (though doing so will not cause problems, as long as no attempt is made to access the channel after it is closed). @table @var @item filename A string containing the name of a file. @item mode One of "r", "w", "a", "r+", "w+", "a+". These have the same meaning as in @code{fopen}. @item error A location to return an error of type @samp{G_FILE_ERROR}. @item ret A @code{} on success, @samp{@code{#f}} on failure. @end table @end deffn @deffn Function g-io-channel-read-line (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{}) (string_return@tie{}@code{mchars}) Reads a line, including the terminating character(s), from a @code{} into a newly-allocated string. @var{str-return} will contain allocated memory if the return is @samp{G_IO_STATUS_NORMAL}. @table @var @item channel a @code{} @item str-return The line read from the @code{}, including the line terminator. This data should be freed with @code{g-free} when no longer needed. This is a nul-terminated string. If a @var{length} of zero is returned, this will be @samp{@code{#f}} instead. @item length location to store length of the read data, or @samp{@code{#f}} @item terminator-pos location to store position of line terminator, or @samp{@code{#f}} @item error A location to return an error of type @code{} or @code{} @item ret the status of the operation. @end table @end deffn @deffn Function g-io-channel-flush (channel@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{}) Flushes the write buffer for the GIOChannel. @table @var @item channel a @code{} @item error location to store an error of type @code{} @item ret the status of the operation: One of @code{}, @code{}, or @code{}. @end table @end deffn @deffn Function g-io-channel-seek-position (self@tie{}@code{}) (offset@tie{}@code{int64}) (type@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{}) Replacement for @code{g-io-channel-seek} with the new API. @table @var @item channel a @code{} @item offset The offset in bytes from the position specified by @var{type} @item type a @code{}. The type @samp{G_SEEK_CUR} is only allowed in those cases where a call to @code{g-io-channel-set-encoding} is allowed. See the documentation for @code{g-io-channel-set-encoding} for details. @item error A location to return an error of type @code{} @item ret the status of the operation. @end table @end deffn @deffn Function g-io-channel-shutdown (channel@tie{}@code{}) (flush@tie{}@code{bool}) @result{}@tie{} (ret@tie{}@code{}) Close an IO channel. Any pending data to be written will be flushed if @var{flush} is @samp{@code{#t}}. The channel will not be freed until the last reference is dropped using @code{g-io-channel-unref}. @table @var @item channel a @code{} @item flush if @samp{@code{#t}}, flush pending @item err location to store a @code{} @item ret the status of the operation. @end table @end deffn @deffn Function g-io-channel-error-from-errno (en@tie{}@code{int}) @result{}@tie{} (ret@tie{}@code{}) Converts an @samp{errno} error number to a @code{}. @table @var @item en an @samp{errno} error number, e.g. @samp{EINVAL}. @item ret a @code{} error number, e.g. @samp{G_IO_CHANNEL_ERROR_INVAL}. @end table @end deffn @deffn Function g-io-create-watch (channel@tie{}@code{}) (condition@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{}) Creates a @code{} that's dispatched when @var{condition} is met for the given @var{channel}. For example, if condition is @code{}, the source will be dispatched when there's data available for reading. @code{g-io-add-watch} is a simpler interface to this same functionality, for the case where you want to add the source to the default main loop at the default priority. On Windows, polling a @code{} created to watch a channel for a socket puts the socket in non-blocking mode. This is a side-effect of the implementation and unavoidable. @table @var @item channel a @code{} to watch @item condition conditions to watch for @item ret a new @code{} @end table @end deffn @deffn Function g-io-add-watch (channel@tie{}@code{}) (condition@tie{}@code{}) (func@tie{}@code{scm}) @result{}@tie{} (ret@tie{}@code{bool}) Adds the @code{} into the main event loop with the default priority. @table @var @item channel a @code{}. @item condition the condition to watch for. @item func the function to call when the condition is satisfied. @item user-data user data to pass to @var{func}. @item ret the event source id. @end table @end deffn @deffn Function g-io-channel-get-buffer-size (channel@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{size_t}) Gets the buffer size. @table @var @item channel a @code{} @item ret the size of the buffer. @end table @end deffn @deffn Function g-io-channel-set-buffer-size (channel@tie{}@code{}) (size@tie{}@code{size_t}) Sets the buffer size. @table @var @item channel a @code{} @item size the size of the buffer. 0 == pick a good size @end table @end deffn @deffn Function g-io-channel-get-buffer-condition (channel@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{}) This function returns a @code{} depending on whether there is data to be read/space to write data in the internal buffers in the @code{}. Only the flags @samp{G_IO_IN} and @samp{G_IO_OUT} may be set. @table @var @item channel A @code{} @item ret A @code{} @end table @end deffn @deffn Function g-io-channel-get-flags (channel@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{}) Gets the current flags for a @code{}, including read-only flags such as @samp{G_IO_FLAG_IS_READABLE}. The values of the flags @samp{G_IO_FLAG_IS_READABLE} and @samp{G_IO_FLAG_IS_WRITEABLE} are cached for internal use by the channel when it is created. If they should change at some later point (e.g. partial shutdown of a socket with the UNIX @code{shutdown} function), the user should immediately call @code{g-io-channel-get-flags} to update the internal values of these flags. @table @var @item channel a @code{} @item ret the flags which are set on the channel @end table @end deffn @deffn Function g-io-channel-set-flags (channel@tie{}@code{}) (flags@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{}) Sets the (writeable) flags in @var{channel} to (@var{flags} & @samp{G_IO_CHANNEL_SET_MASK}). @table @var @item channel a @code{}. @item flags the flags to set on the IO channel. @item error A location to return an error of type @code{}. @item ret the status of the operation. @end table @end deffn @deffn Function g-io-channel-get-line-term (channel@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{mchars}) (length@tie{}@code{int}) This returns the string that @code{} uses to determine where in the file a line break occurs. A value of @samp{@code{#f}} indicates auto detection. @table @var @item channel a @code{} @item length a location to return the length of the line terminator @item ret The line termination string. This value is owned by GLib and must not be freed. @end table @end deffn @deffn Function g-io-channel-set-line-term (channel@tie{}@code{}) (line_term@tie{}@code{mchars}) (length@tie{}@code{int}) This sets the string that @code{} uses to determine where in the file a line break occurs. @table @var @item channel a @code{} @item line-term The line termination string. Use @samp{@code{#f}} for auto detect. Auto detection breaks on "\n", "\r\n", "\r", "\0", and the Unicode paragraph separator. Auto detection should not be used for anything other than file-based channels. @item length The length of the termination string. If -1 is passed, the string is assumed to be nul-terminated. This option allows termination strings with embeded nuls. @end table @end deffn @deffn Function g-io-channel-get-buffered (channel@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{bool}) Returns whether @var{channel} is buffered. @table @var @item channel a @code{}. @item ret @samp{@code{#t}} if the @var{channel} is buffered. @end table @end deffn @deffn Function g-io-channel-set-buffered (channel@tie{}@code{}) (buffered@tie{}@code{bool}) The buffering state can only be set if the channel's encoding is @samp{@code{#f}}. For any other encoding, the channel must be buffered. A buffered channel can only be set unbuffered if the channel's internal buffers have been flushed. Newly created channels or channels which have returned @samp{G_IO_STATUS_EOF} not require such a flush. For write-only channels, a call to @code{g-io-channel-flush} is sufficient. For all other channels, the buffers may be flushed by a call to @code{g-io-channel-seek-position}. This includes the possibility of seeking with seek type @samp{G_SEEK_CUR} and an offset of zero. Note that this means that socket-based channels cannot be set unbuffered once they have had data read from them. On unbuffered channels, it is safe to mix read and write calls from the new and old APIs, if this is necessary for maintaining old code. The default state of the channel is buffered. @table @var @item channel a @code{} @item buffered whether to set the channel buffered or unbuffered @end table @end deffn @deffn Function g-io-channel-get-encoding (channel@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{mchars}) Gets the encoding for the input/output of the channel. The internal encoding is always UTF-8. The encoding @samp{@code{#f}} makes the channel safe for binary data. @table @var @item channel a @code{} @item ret A string containing the encoding, this string is owned by GLib and must not be freed. @end table @end deffn @deffn Function g-io-channel-set-encoding (channel@tie{}@code{}) (encoding@tie{}@code{mchars}) @result{}@tie{} (ret@tie{}@code{}) Sets the encoding for the input/output of the channel. The internal encoding is always UTF-8. The default encoding for the external file is UTF-8. The encoding @samp{@code{#f}} is safe to use with binary data. The encoding can only be set if one of the following conditions is true: 1. The channel was just created, and has not been written to or read from yet. 2. The channel is write-only. 3. The channel is a file, and the file pointer was just repositioned by a call to @code{g-io-channel-seek-position}. (This flushes all the internal buffers.) 4. The current encoding is @samp{@code{#f}} or UTF-8. 5. One of the (new API) read functions has just returned @samp{G_IO_STATUS_EOF} (or, in the case of @code{g-io-channel-read-to-end}, @samp{G_IO_STATUS_NORMAL}). 6. One of the functions @code{g-io-channel-read-chars} or @code{g-io-channel-read-unichar} has returned @samp{G_IO_STATUS_AGAIN} or @samp{G_IO_STATUS_ERROR}. This may be useful in the case of @samp{G_CONVERT_ERROR_ILLEGAL_SEQUENCE}. Returning one of these statuses from @code{g-io-channel-read-line}, @code{g-io-channel-read-line-string}, or @code{g-io-channel-read-to-end} does @emph{not} guarantee that the encoding can be changed. Channels which do not meet one of the above conditions cannot call @code{g-io-channel-seek-position} with an offset of @samp{G_SEEK_CUR}, and, if they are "seekable", cannot call @code{g-io-channel-write-chars} after calling one of the API "read" functions. @table @var @item channel a @code{} @item encoding the encoding type @item error location to store an error of type @code{}. @item ret @samp{G_IO_STATUS_NORMAL} if the encoding was successfully set. @end table @end deffn @deffn Function g-io-channel-close (channel@tie{}@code{}) @samp{g_io_channel_close} has been deprecated since version 2.2 and should not be used in newly-written code. Use @code{g-io-channel-shutdown} instead. Close an IO channel. Any pending data to be written will be flushed, ignoring errors. The channel will not be freed until the last reference is dropped using @code{g-io-channel-unref}. @table @var @item channel A @code{} @end table @end deffn @c %end of fragment guile-gnome-platform-2.16.2/glib/doc/glib/defuns-quarks.xml.texi0000644000175000017500000000243611670374302025055 0ustar00wingowingo00000000000000 @c %start of fragment @deffn Function g-quark-from-string (string@tie{}@code{mchars}) @result{}@tie{} (ret@tie{}@code{unsigned-int}) Gets the @code{} identifying the given string. If the string does not currently have an associated @code{}, a new @code{} is created, using a copy of the string. @table @var @item string a string. @item ret the @code{} identifying the string. @end table @end deffn @deffn Function g-quark-to-string (quark@tie{}@code{unsigned-int}) @result{}@tie{} (ret@tie{}@code{mchars}) Gets the string associated with the given @code{}. @table @var @item quark a @code{}. @item ret the string associated with the @code{}. @end table @end deffn @deffn Function g-quark-try-string (string@tie{}@code{mchars}) @result{}@tie{} (ret@tie{}@code{unsigned-int}) Gets the @code{} associated with the given string, or 0 if the string has no associated @code{}. If you want the GQuark to be created if it doesn't already exist, use @code{g-quark-from-string} or @code{g-quark-from-static-string}. @table @var @item string a string. @item ret the @code{} associated with the string, or 0 if there is no @code{} associated with the string. @end table @end deffn @c %end of fragment guile-gnome-platform-2.16.2/glib/doc/glib/section-conversions.xml.texi0000644000175000017500000001120111670374302026265 0ustar00wingowingo00000000000000 @c %start of fragment @node Character Set Conversion @chapter Character Set Conversion convert strings between different character sets using . @section Overview @section File Name Encodings Historically, Unix has not had a defined encoding for file names: a file name is valid as long as it does not have path separators in it ("/"). However, displaying file names may require conversion: from the character set in which they were created, to the character set in which the application operates. Consider the Spanish file name "@file{Presentación.sxi}". If the application which created it uses ISO-8859-1 for its encoding, then the actual file name on disk would look like this: @example Character: P r e s e n t a c i ó n . s x i Hex code: 50 72 65 73 65 6e 74 61 63 69 f3 6e 2e 73 78 69 @end example However, if the application use UTF-8, the actual file name on disk would look like this: @example Character: P r e s e n t a c i ó n . s x i Hex code: 50 72 65 73 65 6e 74 61 63 69 c3 b3 6e 2e 73 78 69 @end example Glib uses UTF-8 for its strings, and GUI toolkits like GTK+ that use Glib do the same thing. If you get a file name from the file system, for example, from @code{readdir(3)} or from @code{@code{g-dir-read-name}}, and you wish to display the file name to the user, you @emph{will} need to convert it into UTF-8. The opposite case is when the user types the name of a file he wishes to save: the toolkit will give you that string in UTF-8 encoding, and you will need to convert it to the character set used for file names before you can create the file with @code{open(2)} or @code{fopen(3)}. By default, Glib assumes that file names on disk are in UTF-8 encoding. This is a valid assumption for file systems which were created relatively recently: most applications use UTF-8 encoding for their strings, and that is also what they use for the file names they create. However, older file systems may still contain file names created in "older" encodings, such as ISO-8859-1. In this case, for compatibility reasons, you may want to instruct Glib to use that particular encoding for file names rather than UTF-8. You can do this by specifying the encoding for file names in the @env{G_FILENAME_ENCODING} environment variable. For example, if your installation uses ISO-8859-1 for file names, you can put this in your @file{~/.profile}: @example export G_FILENAME_ENCODING=ISO-8859-1 @end example Glib provides the functions @code{@code{g-filename-to-utf8}} and @code{@code{g-filename-from-utf8}} to perform the necessary conversions. These functions convert file names from the encoding specified in @env{G_FILENAME_ENCODING} to UTF-8 and vice-versa. @emph{(the missing figure, file-name-encodings-diagram} illustrates how these functions are used to convert between UTF-8 and the encoding for file names in the file system. @subsection Checklist for Application Writers This section is a practical summary of the detailed description above. You can use this as a checklist of things to do to make sure your applications process file name encodings correctly. @enumerate @item @item @item @end enumerate If you get a file name from the file system from a function such as @code{readdir(3)} or @code{@code{gtk-file-chooser-get-filename}}, you do not need to do any conversion to pass that file name to functions like @code{open(2)}, @code{rename(2)}, or @code{fopen(3)} — those are "raw" file names which the file system understands. If you need to display a file name, convert it to UTF-8 first by using @code{@code{g-filename-to-utf8}}. If conversion fails, display a string like "@samp{Unknown file name}". @emph{Do not} convert this string back into the encoding used for file names if you wish to pass it to the file system; use the original file name instead. For example, the document window of a word processor could display "Unknown file name" in its title bar but still let the user save the file, as it would keep the raw file name internally. This can happen if the user has not set the @env{G_FILENAME_ENCODING} environment variable even though he has files whose names are not encoded in UTF-8. If your user interface lets the user type a file name for saving or renaming, convert it to the encoding used for file names in the file system by using @code{@code{g-filename-from-utf8}}. Pass the converted file name to functions like @code{fopen(3)}. If conversion fails, ask the user to enter a different file name. This can happen if the user types Japanese characters when @env{G_FILENAME_ENCODING} is set to @samp{ISO-8859-1}, for example. @section Usage @include defuns-conversions.xml.texi @c %end of fragment guile-gnome-platform-2.16.2/glib/doc/glib/guile-gnome-glib.texi0000644000175000017500000000753211670374302024613 0ustar00wingowingo00000000000000\input texinfo @c -*-texinfo-*- @c %**start of header @setfilename guile-gnome-glib.info @settitle Guile-GLib @c %**end of header @include version.texi @copying This manual is for @code{(gnome glib)} (version @value{VERSION}, updated @value{UPDATED}) Copyright 1999-2007 Owen Taylor, Matthias Clasen and others @c License taken from glib/docs/reference/COPYING @quotation This work may be reproduced and distributed in whole or in part, in any medium, physical or electronic, so as long as this copyright notice remains intact and unchanged on all copies. Commercial redistribution is permitted and encouraged, but you may not redistribute, in whole or in part, under terms more restrictive than those under which you received it. If you redistribute a modified or translated version of this work, you must also make the source code to the modified or translated version available in electronic form without charge. However, mere aggregation as part of a larger work shall not count as a modification for this purpose. All code examples in this work are placed into the public domain, and may be used, modified and redistributed without restriction. BECAUSE THIS WORK IS LICENSED FREE OF CHARGE, THERE IS NO WARRANTY FOR THE WORK, TO THE EXTENT PERMITTED BY APPLICABLE LAW. EXCEPT WHEN OTHERWISE STATED IN WRITING THE COPYRIGHT HOLDERS AND/OR OTHER PARTIES PROVIDE THE WORK "AS IS" WITHOUT WARRANTY OF ANY KIND, EITHER EXPRESSED OR IMPLIED, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE. SHOULD THE WORK PROVE DEFECTIVE, YOU ASSUME THE COST OF ALL NECESSARY REPAIR OR CORRECTION. IN NO EVENT UNLESS REQUIRED BY APPLICABLE LAW OR AGREED TO IN WRITING WILL ANY COPYRIGHT HOLDER, OR ANY OTHER PARTY WHO MAY MODIFY AND/OR REDISTRIBUTE THE WORK AS PERMITTED ABOVE, BE LIABLE TO YOU FOR DAMAGES, INCLUDING ANY GENERAL, SPECIAL, INCIDENTAL OR CONSEQUENTIAL DAMAGES ARISING OUT OF THE USE OR INABILITY TO USE THE WORK, EVEN IF SUCH HOLDER OR OTHER PARTY HAS BEEN ADVISED OF THE POSSIBILITY OF SUCH DAMAGES. @end quotation @end copying @dircategory The Algorithmic Language Scheme @direntry * Guile-GLib: (guile-gnome-glib.info). Functions from the GLib library. @end direntry @titlepage @title Guile-GNOME: GLib @subtitle version @value{VERSION}, updated @value{UPDATED} @author Owen Taylor @author Matthias Clasen @author Andy Wingo @author (many others) @page @vskip 0pt plus 1filll @insertcopying @end titlepage @ifnottex @node Top @top Guile-GLib @insertcopying @menu * Bookmark file parser:: Parse files containing bookmarks * Character Set Conversion:: Convert strings between different character sets using iconv. * File Utilities:: Various file-related functions. * IO Channels:: Portable support for using files, pipes and sockets. * The Main Event Loop:: Manages all available sources of events. * Miscellaneous Utility Functions::A selection of portable utility functions. * Quarks:: Symbols for C. * Shell-related Utilities:: Escape procedures. * Strings:: Text buffers which grow automatically as text is added. * Unicode Manipulation:: Functions operating on Unicode characters and UTF-8 strings. * Undocumented:: Undocumented functions. * Type Index:: * Function Index:: @end menu @end ifnottex @iftex @shortcontents @end iftex @include section-bookmarkfile.xml.texi @include section-conversions.xml.texi @include section-fileutils.xml.texi @include section-iochannels.xml.texi @include section-main.xml.texi @include section-misc_utils.xml.texi @include section-quarks.xml.texi @include section-shell.xml.texi @include section-strings.xml.texi @include section-unicode.xml.texi @include undocumented.texi @node Type Index @unnumbered Type Index @printindex tp @node Function Index @unnumbered Function Index @printindex fn @bye guile-gnome-platform-2.16.2/glib/doc/glib/section-unicode.xml.texi0000644000175000017500000000164011670374302025351 0ustar00wingowingo00000000000000 @c %start of fragment @node Unicode Manipulation @chapter Unicode Manipulation functions operating on Unicode characters and UTF-8 strings. @section Overview This section describes a number of functions for dealing with Unicode characters and strings. There are analogues of the traditional @file{ctype.h} character classification and case conversion functions, UTF-8 analogues of some string utility functions, functions to perform normalization, case conversion and collation on UTF-8 strings and finally functions to convert between the UTF-8, UTF-16 and UCS-4 encodings of Unicode. The implementations of the Unicode functions in GLib are based on the Unicode Character Data tables, which are available from @uref{http://www.unicode.org,www.unicode.org}. GLib 2.8 supports Unicode 4.0, GLib 2.10 supports Unicode 4.1, GLib 2.12 supports Unicode 5.0. @section Usage @include defuns-unicode.xml.texi @c %end of fragment guile-gnome-platform-2.16.2/glib/doc/glib/section-iochannels.xml.texi0000644000175000017500000000410411670374302026044 0ustar00wingowingo00000000000000 @c %start of fragment @node IO Channels @chapter IO Channels portable support for using files, pipes and sockets. @section Overview The @code{} data type aims to provide a portable method for using file descriptors, pipes, and sockets, and integrating them into the main event loop. Currently full support is available on UNIX platforms, support for Windows is only partially complete. To create a new @code{} on UNIX systems use @code{g-io-channel-unix-new}. This works for plain file descriptors, pipes and sockets. Alternatively, a channel can be created for a file in a system independent manner using @code{g-io-channel-new-file}. Once a @code{} has been created, it can be used in a generic manner with the functions @code{g-io-channel-read-chars}, @code{g-io-channel-write-chars}, @code{g-io-channel-seek-position}, and @code{g-io-channel-shutdown}. To add a @code{} to the main event loop use @code{g-io-add-watch} or @code{g-io-add-watch-full}. Here you specify which events you are interested in on the @code{}, and provide a function to be called whenever these events occur. @code{} instances are created with an initial reference count of 1. @code{g-io-channel-ref} and @code{g-io-channel-unref} can be used to increment or decrement the reference count respectively. When the reference count falls to 0, the @code{} is freed. (Though it isn't closed automatically, unless it was created using @code{g-io-channel-new-from-file}.) Using @code{g-io-add-watch} or @code{g-io-add-watch-full} increments a channel's reference count. The new functions @code{g-io-channel-read-chars}, @code{g-io-channel-read-line}, @code{g-io-channel-read-line-string}, @code{g-io-channel-read-to-end}, @code{g-io-channel-write-chars}, @code{g-io-channel-seek-position}, and @code{g-io-channel-flush} should not be mixed with the deprecated functions @code{g-io-channel-read}, @code{g-io-channel-write}, and @code{g-io-channel-seek} on the same channel. @section Usage @include defuns-iochannels.xml.texi @c %end of fragment guile-gnome-platform-2.16.2/glib/doc/glib/section-main.xml.texi0000644000175000017500000000760211670374302024653 0ustar00wingowingo00000000000000 @c %start of fragment @node The Main Event Loop @chapter The Main Event Loop manages all available sources of events. @section Overview The main event loop manages all the available sources of events for GLib and GTK+ applications. These events can come from any number of different types of sources such as file descriptors (plain files, pipes or sockets) and timeouts. New types of event sources can also be added using @code{g-source-attach}. To allow multiple independent sets of sources to be handled in different threads, each source is associated with a @code{}. A @code{} can only be running in a single thread, but sources can be added to it and removed from it from other threads. Each event source is assigned a priority. The default priority, @code{}, is 0. Values less than 0 denote higher priorities. Values greater than 0 denote lower priorities. Events from high priority sources are always processed before events from lower priority sources. Idle functions can also be added, and assigned a priority. These will be run whenever no events with a higher priority are ready to be processed. The @code{} data type represents a main event loop. A @code{} is created with @code{g-main-loop-new}. After adding the initial event sources, @code{g-main-loop-run} is called. This continuously checks for new events from each of the event sources and dispatches them. Finally, the processing of an event from one of the sources leads to a call to @code{g-main-loop-quit} to exit the main loop, and @code{g-main-loop-run} returns. It is possible to create new instances of @code{} recursively. This is often used in GTK+ applications when showing modal dialog boxes. Note that event sources are associated with a particular @code{}, and will be checked and dispatched for all main loops associated with that @code{}. GTK+ contains wrappers of some of these functions, e.g. @code{gtk-main}, @code{gtk-main-quit} and @code{gtk-events-pending}. @section Creating new sources types One of the unusual features of the GTK+ main loop functionality is that new types of event source can be created and used in addition to the builtin type of event source. A new event source type is used for handling GDK events. A new source type is created by @dfn{deriving} from the @code{} structure. The derived type of source is represented by a structure that has the @code{} structure as a first element, and other elements specific to the new source type. To create an instance of the new source type, call @code{g-source-new} passing in the size of the derived structure and a table of functions. These @code{} determine the behavior of the new source types. New source types basically interact with with the main context in two ways. Their prepare function in @code{} can set a timeout to determine the maximum amount of time that the main loop will sleep before checking the source again. In addition, or as well, the source can add file descriptors to the set that the main context checks using @code{g-source-add-poll}. @section Customizing the main loop iteration Single iterations of a @code{} can be run with @code{g-main-context-iteration}. In some cases, more detailed control of exactly how the details of the main loop work is desired, for instance, when integrating the @code{} with an external main loop. In such cases, you can call the component functions of @code{g-main-context-iteration} directly. These functions are @code{g-main-context-prepare}, @code{g-main-context-query}, @code{g-main-context-check} and @code{g-main-context-dispatch}. The operation of these functions can best be seen in terms of a state diagram, as shown in @emph{(the missing figure, mainloop-states}. @section Usage @include defuns-main.xml.texi @c %end of fragment guile-gnome-platform-2.16.2/glib/doc/Makefile.in0000644000175000017500000004524111752511066021725 0ustar00wingowingo00000000000000# Makefile.in generated by automake 1.11.5 from Makefile.am. # @configure_input@ # Copyright (C) 1994, 1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, # 2003, 2004, 2005, 2006, 2007, 2008, 2009, 2010, 2011 Free Software # Foundation, Inc. # This Makefile.in is free software; the Free Software Foundation # gives unlimited permission to copy and/or distribute it, # with or without modifications, as long as this notice is preserved. # This program is distributed in the hope that it will be useful, # but WITHOUT ANY WARRANTY, to the extent permitted by law; without # even the implied warranty of MERCHANTABILITY or FITNESS FOR A # PARTICULAR PURPOSE. @SET_MAKE@ VPATH = @srcdir@ am__make_dryrun = \ { \ am__dry=no; \ case $$MAKEFLAGS in \ *\\[\ \ ]*) \ echo 'am--echo: ; @echo "AM" OK' | $(MAKE) -f - 2>/dev/null \ | grep '^AM OK$$' >/dev/null || am__dry=yes;; \ *) \ for am__flg in $$MAKEFLAGS; do \ case $$am__flg in \ *=*|--*) ;; \ *n*) am__dry=yes; break;; \ esac; \ done;; \ esac; \ test $$am__dry = yes; \ } pkgdatadir = $(datadir)/@PACKAGE@ pkgincludedir = $(includedir)/@PACKAGE@ pkglibdir = $(libdir)/@PACKAGE@ pkglibexecdir = $(libexecdir)/@PACKAGE@ am__cd = CDPATH="$${ZSH_VERSION+.}$(PATH_SEPARATOR)" && cd install_sh_DATA = $(install_sh) -c -m 644 install_sh_PROGRAM = $(install_sh) -c install_sh_SCRIPT = $(install_sh) -c INSTALL_HEADER = $(INSTALL_DATA) transform = $(program_transform_name) NORMAL_INSTALL = : PRE_INSTALL = : POST_INSTALL = : NORMAL_UNINSTALL = : PRE_UNINSTALL = : POST_UNINSTALL = : build_triplet = @build@ host_triplet = @host@ subdir = glib/doc DIST_COMMON = $(srcdir)/Makefile.am $(srcdir)/Makefile.in ACLOCAL_M4 = $(top_srcdir)/aclocal.m4 am__aclocal_m4_deps = $(top_srcdir)/configure.ac am__configure_deps = $(am__aclocal_m4_deps) $(CONFIGURE_DEPENDENCIES) \ $(ACLOCAL_M4) mkinstalldirs = $(install_sh) -d CONFIG_HEADER = $(top_builddir)/config.h CONFIG_CLEAN_FILES = CONFIG_CLEAN_VPATH_FILES = SOURCES = DIST_SOURCES = RECURSIVE_TARGETS = all-recursive check-recursive dvi-recursive \ html-recursive info-recursive install-data-recursive \ install-dvi-recursive install-exec-recursive \ install-html-recursive install-info-recursive \ install-pdf-recursive install-ps-recursive install-recursive \ installcheck-recursive installdirs-recursive pdf-recursive \ ps-recursive uninstall-recursive am__can_run_installinfo = \ case $$AM_UPDATE_INFO_DIR in \ n|no|NO) false;; \ *) (install-info --version) >/dev/null 2>&1;; \ esac RECURSIVE_CLEAN_TARGETS = mostlyclean-recursive clean-recursive \ distclean-recursive maintainer-clean-recursive AM_RECURSIVE_TARGETS = $(RECURSIVE_TARGETS:-recursive=) \ $(RECURSIVE_CLEAN_TARGETS:-recursive=) tags TAGS ctags CTAGS \ distdir ETAGS = etags CTAGS = ctags DIST_SUBDIRS = $(SUBDIRS) DISTFILES = $(DIST_COMMON) $(DIST_SOURCES) $(TEXINFOS) $(EXTRA_DIST) am__relativize = \ dir0=`pwd`; \ sed_first='s,^\([^/]*\)/.*$$,\1,'; \ sed_rest='s,^[^/]*/*,,'; \ sed_last='s,^.*/\([^/]*\)$$,\1,'; \ sed_butlast='s,/*[^/]*$$,,'; \ while test -n "$$dir1"; do \ first=`echo "$$dir1" | sed -e "$$sed_first"`; \ if test "$$first" != "."; then \ if test "$$first" = ".."; then \ dir2=`echo "$$dir0" | sed -e "$$sed_last"`/"$$dir2"; \ dir0=`echo "$$dir0" | sed -e "$$sed_butlast"`; \ else \ first2=`echo "$$dir2" | sed -e "$$sed_first"`; \ if test "$$first2" = "$$first"; then \ dir2=`echo "$$dir2" | sed -e "$$sed_rest"`; \ else \ dir2="../$$dir2"; \ fi; \ dir0="$$dir0"/"$$first"; \ fi; \ fi; \ dir1=`echo "$$dir1" | sed -e "$$sed_rest"`; \ done; \ reldir="$$dir2" ACLOCAL = @ACLOCAL@ AG_PKG_CONFIG_PATH = @AG_PKG_CONFIG_PATH@ AMTAR = @AMTAR@ API_VERSION = @API_VERSION@ AR = @AR@ ATK_CFLAGS = @ATK_CFLAGS@ ATK_LIBS = @ATK_LIBS@ AUTOCONF = @AUTOCONF@ AUTOHEADER = @AUTOHEADER@ AUTOMAKE = @AUTOMAKE@ AWK = @AWK@ BONOBO_IDL_DIR = @BONOBO_IDL_DIR@ CANVAS_CFLAGS = @CANVAS_CFLAGS@ CANVAS_LIBS = @CANVAS_LIBS@ CC = @CC@ CCDEPMODE = @CCDEPMODE@ CFLAGS = @CFLAGS@ CORBA_CFLAGS = @CORBA_CFLAGS@ CORBA_LIBS = @CORBA_LIBS@ CPP = @CPP@ CPPFLAGS = @CPPFLAGS@ CYGPATH_W = @CYGPATH_W@ DEFS = @DEFS@ DEPDIR = @DEPDIR@ DLLTOOL = @DLLTOOL@ DSYMUTIL = @DSYMUTIL@ DUMPBIN = @DUMPBIN@ ECHO_C = @ECHO_C@ ECHO_N = @ECHO_N@ ECHO_T = @ECHO_T@ EGREP = @EGREP@ EXEEXT = @EXEEXT@ FGREP = @FGREP@ GCONF_CFLAGS = @GCONF_CFLAGS@ GCONF_LIBS = @GCONF_LIBS@ GDK_CFLAGS = @GDK_CFLAGS@ GDK_LIBS = @GDK_LIBS@ GDK_PIXBUF_CFLAGS = @GDK_PIXBUF_CFLAGS@ GDK_PIXBUF_LIBS = @GDK_PIXBUF_LIBS@ GLIB_CFLAGS = @GLIB_CFLAGS@ GLIB_LIBS = @GLIB_LIBS@ GNOMEUI_DEPRECATION_FLAGS = @GNOMEUI_DEPRECATION_FLAGS@ GNOME_VFS_CFLAGS = @GNOME_VFS_CFLAGS@ GNOME_VFS_DEPRECATED_CFLAGS = @GNOME_VFS_DEPRECATED_CFLAGS@ GNOME_VFS_LIBS = @GNOME_VFS_LIBS@ GOBJECT_CFLAGS = @GOBJECT_CFLAGS@ GOBJECT_LIBS = @GOBJECT_LIBS@ GREP = @GREP@ GTHREAD_CFLAGS = @GTHREAD_CFLAGS@ GTHREAD_LIBS = @GTHREAD_LIBS@ GTK_CFLAGS = @GTK_CFLAGS@ GTK_DEPRECATED_CFLAGS = @GTK_DEPRECATED_CFLAGS@ GTK_LIBS = @GTK_LIBS@ GUILE_CAIRO_CFLAGS = @GUILE_CAIRO_CFLAGS@ GUILE_CAIRO_LIBS = @GUILE_CAIRO_LIBS@ GUILE_CFLAGS = @GUILE_CFLAGS@ GUILE_EFFECTIVE_VERSION = @GUILE_EFFECTIVE_VERSION@ GUILE_GLIB_CFLAGS = @GUILE_GLIB_CFLAGS@ GUILE_GLIB_LIBS = @GUILE_GLIB_LIBS@ GUILE_LIBS = @GUILE_LIBS@ G_WRAP_CFLAGS = @G_WRAP_CFLAGS@ G_WRAP_LIBS = @G_WRAP_LIBS@ G_WRAP_LIB_DIR = @G_WRAP_LIB_DIR@ G_WRAP_MODULE_DIR = @G_WRAP_MODULE_DIR@ INSTALL = @INSTALL@ INSTALL_DATA = @INSTALL_DATA@ INSTALL_PROGRAM = @INSTALL_PROGRAM@ INSTALL_SCRIPT = @INSTALL_SCRIPT@ INSTALL_STRIP_PROGRAM = @INSTALL_STRIP_PROGRAM@ LD = @LD@ LDFLAGS = @LDFLAGS@ LIBGLADE_CFLAGS = @LIBGLADE_CFLAGS@ LIBGLADE_LIBS = @LIBGLADE_LIBS@ LIBGNOMEUI_CFLAGS = @LIBGNOMEUI_CFLAGS@ LIBGNOMEUI_LIBS = @LIBGNOMEUI_LIBS@ LIBGNOME_CFLAGS = @LIBGNOME_CFLAGS@ LIBGNOME_LIBS = @LIBGNOME_LIBS@ LIBOBJS = @LIBOBJS@ LIBS = @LIBS@ LIBTOOL = @LIBTOOL@ LIPO = @LIPO@ LN_S = @LN_S@ LTLIBOBJS = @LTLIBOBJS@ MAKEINFO = @MAKEINFO@ MANIFEST_TOOL = @MANIFEST_TOOL@ MKDIR_P = @MKDIR_P@ NM = @NM@ NMEDIT = @NMEDIT@ OBJDUMP = @OBJDUMP@ OBJEXT = @OBJEXT@ ORBIT_IDL = @ORBIT_IDL@ OTOOL = @OTOOL@ OTOOL64 = @OTOOL64@ PACKAGE = @PACKAGE@ PACKAGE_BUGREPORT = @PACKAGE_BUGREPORT@ PACKAGE_NAME = @PACKAGE_NAME@ PACKAGE_STRING = @PACKAGE_STRING@ PACKAGE_TARNAME = @PACKAGE_TARNAME@ PACKAGE_URL = @PACKAGE_URL@ PACKAGE_VERSION = @PACKAGE_VERSION@ PANGOCAIRO_CFLAGS = @PANGOCAIRO_CFLAGS@ PANGOCAIRO_LIBS = @PANGOCAIRO_LIBS@ PANGO_CFLAGS = @PANGO_CFLAGS@ PANGO_LIBS = @PANGO_LIBS@ PATH_SEPARATOR = @PATH_SEPARATOR@ PKG_CONFIG = @PKG_CONFIG@ PKG_CONFIG_LIBDIR = @PKG_CONFIG_LIBDIR@ PKG_CONFIG_PATH = @PKG_CONFIG_PATH@ RANLIB = @RANLIB@ SED = @SED@ SET_MAKE = @SET_MAKE@ SHELL = @SHELL@ STRIP = @STRIP@ VERSION = @VERSION@ WARN_CFLAGS = @WARN_CFLAGS@ abs_builddir = @abs_builddir@ abs_srcdir = @abs_srcdir@ abs_top_builddir = @abs_top_builddir@ abs_top_srcdir = @abs_top_srcdir@ ac_ct_AR = @ac_ct_AR@ ac_ct_CC = @ac_ct_CC@ ac_ct_DUMPBIN = @ac_ct_DUMPBIN@ am__include = @am__include@ am__leading_dot = @am__leading_dot@ am__quote = @am__quote@ am__tar = @am__tar@ am__untar = @am__untar@ bindir = @bindir@ build = @build@ build_alias = @build_alias@ build_cpu = @build_cpu@ build_os = @build_os@ build_vendor = @build_vendor@ builddir = @builddir@ datadir = @datadir@ datarootdir = @datarootdir@ docdir = @docdir@ dvidir = @dvidir@ exec_prefix = @exec_prefix@ host = @host@ host_alias = @host_alias@ host_cpu = @host_cpu@ host_os = @host_os@ host_vendor = @host_vendor@ htmldir = @htmldir@ includedir = @includedir@ infodir = @infodir@ install_sh = @install_sh@ libdir = @libdir@ libexecdir = @libexecdir@ localedir = @localedir@ localstatedir = @localstatedir@ mandir = @mandir@ mkdir_p = @mkdir_p@ oldincludedir = @oldincludedir@ pdfdir = @pdfdir@ prefix = @prefix@ program_transform_name = @program_transform_name@ psdir = @psdir@ sbindir = @sbindir@ sharedstatedir = @sharedstatedir@ srcdir = @srcdir@ sysconfdir = @sysconfdir@ target_alias = @target_alias@ top_build_prefix = @top_build_prefix@ top_builddir = @top_builddir@ top_srcdir = @top_srcdir@ SUBDIRS = gobject glib all: all-recursive .SUFFIXES: $(srcdir)/Makefile.in: $(srcdir)/Makefile.am $(am__configure_deps) @for dep in $?; do \ case '$(am__configure_deps)' in \ *$$dep*) \ ( cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh ) \ && { if test -f $@; then exit 0; else break; fi; }; \ exit 1;; \ esac; \ done; \ echo ' cd $(top_srcdir) && $(AUTOMAKE) --gnu glib/doc/Makefile'; \ $(am__cd) $(top_srcdir) && \ $(AUTOMAKE) --gnu glib/doc/Makefile .PRECIOUS: Makefile Makefile: $(srcdir)/Makefile.in $(top_builddir)/config.status @case '$?' in \ *config.status*) \ cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh;; \ *) \ echo ' cd $(top_builddir) && $(SHELL) ./config.status $(subdir)/$@ $(am__depfiles_maybe)'; \ cd $(top_builddir) && $(SHELL) ./config.status $(subdir)/$@ $(am__depfiles_maybe);; \ esac; $(top_builddir)/config.status: $(top_srcdir)/configure $(CONFIG_STATUS_DEPENDENCIES) cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh $(top_srcdir)/configure: $(am__configure_deps) cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh $(ACLOCAL_M4): $(am__aclocal_m4_deps) cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh $(am__aclocal_m4_deps): mostlyclean-libtool: -rm -f *.lo clean-libtool: -rm -rf .libs _libs # This directory's subdirectories are mostly independent; you can cd # into them and run `make' without going through this Makefile. # To change the values of `make' variables: instead of editing Makefiles, # (1) if the variable is set in `config.status', edit `config.status' # (which will cause the Makefiles to be regenerated when you run `make'); # (2) otherwise, pass the desired values on the `make' command line. $(RECURSIVE_TARGETS): @fail= failcom='exit 1'; \ for f in x $$MAKEFLAGS; do \ case $$f in \ *=* | --[!k]*);; \ *k*) failcom='fail=yes';; \ esac; \ done; \ dot_seen=no; \ target=`echo $@ | sed s/-recursive//`; \ list='$(SUBDIRS)'; for subdir in $$list; do \ echo "Making $$target in $$subdir"; \ if test "$$subdir" = "."; then \ dot_seen=yes; \ local_target="$$target-am"; \ else \ local_target="$$target"; \ fi; \ ($(am__cd) $$subdir && $(MAKE) $(AM_MAKEFLAGS) $$local_target) \ || eval $$failcom; \ done; \ if test "$$dot_seen" = "no"; then \ $(MAKE) $(AM_MAKEFLAGS) "$$target-am" || exit 1; \ fi; test -z "$$fail" $(RECURSIVE_CLEAN_TARGETS): @fail= failcom='exit 1'; \ for f in x $$MAKEFLAGS; do \ case $$f in \ *=* | --[!k]*);; \ *k*) failcom='fail=yes';; \ esac; \ done; \ dot_seen=no; \ case "$@" in \ distclean-* | maintainer-clean-*) list='$(DIST_SUBDIRS)' ;; \ *) list='$(SUBDIRS)' ;; \ esac; \ rev=''; for subdir in $$list; do \ if test "$$subdir" = "."; then :; else \ rev="$$subdir $$rev"; \ fi; \ done; \ rev="$$rev ."; \ target=`echo $@ | sed s/-recursive//`; \ for subdir in $$rev; do \ echo "Making $$target in $$subdir"; \ if test "$$subdir" = "."; then \ local_target="$$target-am"; \ else \ local_target="$$target"; \ fi; \ ($(am__cd) $$subdir && $(MAKE) $(AM_MAKEFLAGS) $$local_target) \ || eval $$failcom; \ done && test -z "$$fail" tags-recursive: list='$(SUBDIRS)'; for subdir in $$list; do \ test "$$subdir" = . || ($(am__cd) $$subdir && $(MAKE) $(AM_MAKEFLAGS) tags); \ done ctags-recursive: list='$(SUBDIRS)'; for subdir in $$list; do \ test "$$subdir" = . || ($(am__cd) $$subdir && $(MAKE) $(AM_MAKEFLAGS) ctags); \ done ID: $(HEADERS) $(SOURCES) $(LISP) $(TAGS_FILES) list='$(SOURCES) $(HEADERS) $(LISP) $(TAGS_FILES)'; \ unique=`for i in $$list; do \ if test -f "$$i"; then echo $$i; else echo $(srcdir)/$$i; fi; \ done | \ $(AWK) '{ files[$$0] = 1; nonempty = 1; } \ END { if (nonempty) { for (i in files) print i; }; }'`; \ mkid -fID $$unique tags: TAGS TAGS: tags-recursive $(HEADERS) $(SOURCES) $(TAGS_DEPENDENCIES) \ $(TAGS_FILES) $(LISP) set x; \ here=`pwd`; \ if ($(ETAGS) --etags-include --version) >/dev/null 2>&1; then \ include_option=--etags-include; \ empty_fix=.; \ else \ include_option=--include; \ empty_fix=; \ fi; \ list='$(SUBDIRS)'; for subdir in $$list; do \ if test "$$subdir" = .; then :; else \ test ! -f $$subdir/TAGS || \ set "$$@" "$$include_option=$$here/$$subdir/TAGS"; \ fi; \ done; \ list='$(SOURCES) $(HEADERS) $(LISP) $(TAGS_FILES)'; \ unique=`for i in $$list; do \ if test -f "$$i"; then echo $$i; else echo $(srcdir)/$$i; fi; \ done | \ $(AWK) '{ files[$$0] = 1; nonempty = 1; } \ END { if (nonempty) { for (i in files) print i; }; }'`; \ shift; \ if test -z "$(ETAGS_ARGS)$$*$$unique"; then :; else \ test -n "$$unique" || unique=$$empty_fix; \ if test $$# -gt 0; then \ $(ETAGS) $(ETAGSFLAGS) $(AM_ETAGSFLAGS) $(ETAGS_ARGS) \ "$$@" $$unique; \ else \ $(ETAGS) $(ETAGSFLAGS) $(AM_ETAGSFLAGS) $(ETAGS_ARGS) \ $$unique; \ fi; \ fi ctags: CTAGS CTAGS: ctags-recursive $(HEADERS) $(SOURCES) $(TAGS_DEPENDENCIES) \ $(TAGS_FILES) $(LISP) list='$(SOURCES) $(HEADERS) $(LISP) $(TAGS_FILES)'; \ unique=`for i in $$list; do \ if test -f "$$i"; then echo $$i; else echo $(srcdir)/$$i; fi; \ done | \ $(AWK) '{ files[$$0] = 1; nonempty = 1; } \ END { if (nonempty) { for (i in files) print i; }; }'`; \ test -z "$(CTAGS_ARGS)$$unique" \ || $(CTAGS) $(CTAGSFLAGS) $(AM_CTAGSFLAGS) $(CTAGS_ARGS) \ $$unique GTAGS: here=`$(am__cd) $(top_builddir) && pwd` \ && $(am__cd) $(top_srcdir) \ && gtags -i $(GTAGS_ARGS) "$$here" distclean-tags: -rm -f TAGS ID GTAGS GRTAGS GSYMS GPATH tags distdir: $(DISTFILES) @srcdirstrip=`echo "$(srcdir)" | sed 's/[].[^$$\\*]/\\\\&/g'`; \ topsrcdirstrip=`echo "$(top_srcdir)" | sed 's/[].[^$$\\*]/\\\\&/g'`; \ list='$(DISTFILES)'; \ dist_files=`for file in $$list; do echo $$file; done | \ sed -e "s|^$$srcdirstrip/||;t" \ -e "s|^$$topsrcdirstrip/|$(top_builddir)/|;t"`; \ case $$dist_files in \ */*) $(MKDIR_P) `echo "$$dist_files" | \ sed '/\//!d;s|^|$(distdir)/|;s,/[^/]*$$,,' | \ sort -u` ;; \ esac; \ for file in $$dist_files; do \ if test -f $$file || test -d $$file; then d=.; else d=$(srcdir); fi; \ if test -d $$d/$$file; then \ dir=`echo "/$$file" | sed -e 's,/[^/]*$$,,'`; \ if test -d "$(distdir)/$$file"; then \ find "$(distdir)/$$file" -type d ! -perm -700 -exec chmod u+rwx {} \;; \ fi; \ if test -d $(srcdir)/$$file && test $$d != $(srcdir); then \ cp -fpR $(srcdir)/$$file "$(distdir)$$dir" || exit 1; \ find "$(distdir)/$$file" -type d ! -perm -700 -exec chmod u+rwx {} \;; \ fi; \ cp -fpR $$d/$$file "$(distdir)$$dir" || exit 1; \ else \ test -f "$(distdir)/$$file" \ || cp -p $$d/$$file "$(distdir)/$$file" \ || exit 1; \ fi; \ done @list='$(DIST_SUBDIRS)'; for subdir in $$list; do \ if test "$$subdir" = .; then :; else \ $(am__make_dryrun) \ || test -d "$(distdir)/$$subdir" \ || $(MKDIR_P) "$(distdir)/$$subdir" \ || exit 1; \ dir1=$$subdir; dir2="$(distdir)/$$subdir"; \ $(am__relativize); \ new_distdir=$$reldir; \ dir1=$$subdir; dir2="$(top_distdir)"; \ $(am__relativize); \ new_top_distdir=$$reldir; \ echo " (cd $$subdir && $(MAKE) $(AM_MAKEFLAGS) top_distdir="$$new_top_distdir" distdir="$$new_distdir" \\"; \ echo " am__remove_distdir=: am__skip_length_check=: am__skip_mode_fix=: distdir)"; \ ($(am__cd) $$subdir && \ $(MAKE) $(AM_MAKEFLAGS) \ top_distdir="$$new_top_distdir" \ distdir="$$new_distdir" \ am__remove_distdir=: \ am__skip_length_check=: \ am__skip_mode_fix=: \ distdir) \ || exit 1; \ fi; \ done check-am: all-am check: check-recursive all-am: Makefile installdirs: installdirs-recursive installdirs-am: install: install-recursive install-exec: install-exec-recursive install-data: install-data-recursive uninstall: uninstall-recursive install-am: all-am @$(MAKE) $(AM_MAKEFLAGS) install-exec-am install-data-am installcheck: installcheck-recursive install-strip: if test -z '$(STRIP)'; then \ $(MAKE) $(AM_MAKEFLAGS) INSTALL_PROGRAM="$(INSTALL_STRIP_PROGRAM)" \ install_sh_PROGRAM="$(INSTALL_STRIP_PROGRAM)" INSTALL_STRIP_FLAG=-s \ install; \ else \ $(MAKE) $(AM_MAKEFLAGS) INSTALL_PROGRAM="$(INSTALL_STRIP_PROGRAM)" \ install_sh_PROGRAM="$(INSTALL_STRIP_PROGRAM)" INSTALL_STRIP_FLAG=-s \ "INSTALL_PROGRAM_ENV=STRIPPROG='$(STRIP)'" install; \ fi mostlyclean-generic: clean-generic: distclean-generic: -test -z "$(CONFIG_CLEAN_FILES)" || rm -f $(CONFIG_CLEAN_FILES) -test . = "$(srcdir)" || test -z "$(CONFIG_CLEAN_VPATH_FILES)" || rm -f $(CONFIG_CLEAN_VPATH_FILES) maintainer-clean-generic: @echo "This command is intended for maintainers to use" @echo "it deletes files that may require special tools to rebuild." clean: clean-recursive clean-am: clean-generic clean-libtool mostlyclean-am distclean: distclean-recursive -rm -f Makefile distclean-am: clean-am distclean-generic distclean-tags dvi: dvi-recursive dvi-am: html: html-recursive html-am: info: info-recursive info-am: install-data-am: install-dvi: install-dvi-recursive install-dvi-am: install-exec-am: install-html: install-html-recursive install-html-am: install-info: install-info-recursive install-info-am: install-man: install-pdf: install-pdf-recursive install-pdf-am: install-ps: install-ps-recursive install-ps-am: installcheck-am: maintainer-clean: maintainer-clean-recursive -rm -f Makefile maintainer-clean-am: distclean-am maintainer-clean-generic mostlyclean: mostlyclean-recursive mostlyclean-am: mostlyclean-generic mostlyclean-libtool pdf: pdf-recursive pdf-am: ps: ps-recursive ps-am: uninstall-am: .MAKE: $(RECURSIVE_CLEAN_TARGETS) $(RECURSIVE_TARGETS) ctags-recursive \ install-am install-strip tags-recursive .PHONY: $(RECURSIVE_CLEAN_TARGETS) $(RECURSIVE_TARGETS) CTAGS GTAGS \ all all-am check check-am clean clean-generic clean-libtool \ ctags ctags-recursive distclean distclean-generic \ distclean-libtool distclean-tags distdir dvi dvi-am html \ html-am info info-am install install-am install-data \ install-data-am install-dvi install-dvi-am install-exec \ install-exec-am install-html install-html-am install-info \ install-info-am install-man install-pdf install-pdf-am \ install-ps install-ps-am install-strip installcheck \ installcheck-am installdirs installdirs-am maintainer-clean \ maintainer-clean-generic mostlyclean mostlyclean-generic \ mostlyclean-libtool pdf pdf-am ps ps-am tags tags-recursive \ uninstall uninstall-am # Tell versions [3.59,3.63) of GNU make to not export all variables. # Otherwise a system limit (for SysV at least) may be exceeded. .NOEXPORT: guile-gnome-platform-2.16.2/glib/doc/gobject/0000755000175000017500000000000011752546500021270 5ustar00wingowingo00000000000000guile-gnome-platform-2.16.2/glib/doc/gobject/guile-gnome-gobject.scm0000644000175000017500000000462711670374302025626 0ustar00wingowingo00000000000000;; About the package (define *name* "Guile-GNOME: GObject") (define *description* "The GLib object system in Scheme") (define *version* "2.15.98") (define *updated* "24 April 2008") (define *authors* '(("Andy Wingo" . "wingo at pobox.com") ("Martin Baulig" . "baulig at suse.de"))) ;; Copying the documentation (define *copyright-holder* "Free Software Foundation") (define *years* '(2003 2004 2005 2006 2007 2008)) (define *permissions* "Permission is granted to copy, distribute and/or modify this document under the terms of the GNU General Public License, Version 2 or any later version published by the Free Software Foundation.") ;; Texinfo info (define *texinfo-basename* "guile-gnome-gobject") (define *texinfo-category* "The Algorithmic Language Scheme") (define *extra-texinfo-menu-entries* '(("Type Index") ("Function Index"))) (define *texinfo-epilogue* `((node (% (name "Type Index"))) (unnumbered "Type Index") (printindex (% (type "tp"))) (node (% (name "Function Index"))) (unnumbered "Function Index") (printindex (% (type "fn"))))) ;; HTML foo (define *html-relative-root-path* "../../../") (define *extra-html-entry-files* '()) ;("scripts.texi" "org-to-pdf-presentation" ;"Make PDF presentations from Org Mode files"))) ;; The modules to document (define *modules* '(((gnome-2) "Guile-GNOME is stable and parallel-installable") ((gnome gobject) "One module to bind them") ((gnome gobject gtype) "The base of the GObject type system") ((gnome gobject gvalue) "Generic boxed values") ((gnome gobject gparameter) "Parameters with constraints and default values") ((gnome gobject gclosure) "Language-portable closures") ((gnome gobject gsignal) "Using closures as extension points") ((gnome gobject gobject) "GLib's main object implementation") ((gnome gobject generics) "Shorthand for many common GObject operations") ((gnome gobject utils) "Miscellaneous useful functions") ((gnome gw generics) "A home for generated generic functions") ((gnome gw support gobject) "Integration between G-Wrap and GObject types") ((gnome gw support defs) "Create G-Wrap wrapsets from ``defs'' files") ((gnome gw support gtk-doc) "Parse C documentation from gtk-doc into texinfo") ((gnome gw support modules) "Fondling Guile's module system"))) (define *module-sources* '()) guile-gnome-platform-2.16.2/glib/doc/gobject/guile-gnome-gobject.info0000644000175000017500000025005211670703606025775 0ustar00wingowingo00000000000000This is guile-gnome-gobject.info, produced by makeinfo version 4.13 from guile-gnome-gobject.texi. This manual is for Guile-GNOME: GObject (version 2.16.0, updated 12 June 2008) Copyright 2003,2004,2005,2006,2007,2008 Free Software Foundation Permission is granted to copy, distribute and/or modify this document under the terms of the GNU General Public License, Version 2 or any later version published by the Free Software Foundation. INFO-DIR-SECTION The Algorithmic Language Scheme START-INFO-DIR-ENTRY * Guile-GNOME: GObject: (guile-gnome-gobject.info). The GLib object system in Scheme. END-INFO-DIR-ENTRY  File: guile-gnome-gobject.info, Node: Top, Next: gnome-2, Up: (dir) Guile-GNOME: GObject ******************** This manual is for Guile-GNOME: GObject (version 2.16.0, updated 12 June 2008) Copyright 2003,2004,2005,2006,2007,2008 Free Software Foundation Permission is granted to copy, distribute and/or modify this document under the terms of the GNU General Public License, Version 2 or any later version published by the Free Software Foundation. * Menu: * gnome-2:: Guile-GNOME is stable and parallel-installable * gnome gobject:: One module to bind them * gnome gobject gtype:: The base of the GObject type system * gnome gobject gvalue:: Generic boxed values * gnome gobject gparameter:: Parameters with constraints and default values * gnome gobject gclosure:: Language-portable closures * gnome gobject gsignal:: Using closures as extension points * gnome gobject gobject:: GLib's main object implementation * gnome gobject generics:: Shorthand for many common GObject operations * gnome gobject utils:: Miscellaneous useful functions * gnome gw generics:: A home for generated generic functions * gnome gw support gobject:: Integration between G-Wrap and GObject types * gnome gw support defs:: Create G-Wrap wrapsets from ``defs'' files * gnome gw support gtk-doc:: Parse C documentation from gtk-doc into texinfo * gnome gw support modules:: Fondling Guile's module system * Type Index:: * Function Index::  File: guile-gnome-gobject.info, Node: gnome-2, Next: gnome gobject, Prev: Top, Up: Top 1 (gnome-2) *********** 1.1 Overview ============ Selects version 2 of the Guile-GNOME libraries. This module is used for its side effects; it exports no procedures. 1.2 Rationale ============= Early in the development of guile-gnome, we realized that at some point we might need to make incompatible changes. Of course, we would not want to force a correctly-written program to break when guile-gnome gets upgraded. For this reason, we decided to make guile-gnome parallel-installable. A program is completely specified when it indicates which version of guile-gnome it should use. Guile-gnome has the concept of an API version, which indicates a stable API series. For example, a program written against API version 2 of guile-gnome will continue to work against all future releases of that API version. It is permitted to add interfaces within a stable series, but never to remove or change them incompatibly. Changing the API version is expected to be a relatively infrequent operation. The current API version is 2. There are two manners for a program to specify the guile-gnome version: 1. Via importing the `(gnome-VERSION)' module. This special module alters guile's load path to include the path of the specified API version of guile-gnome. For example: (use-modules (gnome-2)) 2. Via invoking guile as guile-gnome-VERSION. This shell script is installed when building a particular version of guile-gnome, and serves to automatically load the `(gnome-APIVERSION)' module. For example, to get a repl ready for guile-gnome: $ guile-gnome-2 To load a script with a particular version of guile-gnome: $ guile-gnome-2 -s SCRIPT ARGS... To specify the guile-gnome version in a script, you might begin the file with: #! /bin/sh # -*- scheme -*- exec guile-gnome-2 -s $0 !# ;; scheme code here... A program must select the guile-gnome version before importing any guile-gnome modules. Indeed, one cannot even import `(gnome gobject)' before doing so. For a further rationale on parallel installability, see `http://ometer.com/parallel.html'. 1.3 Usage =========  File: guile-gnome-gobject.info, Node: gnome gobject, Next: gnome gobject gtype, Prev: gnome-2, Up: Top 2 (gnome gobject) ***************** 2.1 Overview ============ This is the Guile wrapper of `libgobject', an implementation of a runtime, dynamic type system for C. Besides providing an object system to C, `libgobject''s main design goal was to increase the ease with which C code can be wrapped by interpreted languages, such as Guile or Perl. This module, `(gnome gobject)', just re-exports procedures from other modules, so its documentation seems an opportune spot for a more tutorial-like introduction. So open up a Guile session and let's begin. First, if you haven't done it, load the appropriate version of Guile-GNOME: guile> (use-modules (gnome-2)) `(gnome gobject)' is based heavily on GOOPS, Guile's object system, so go ahead and load up that too: guile> (use-modules (oop goops)) We will leave off the `guile>' prompt in the rest of this tutorial. When we want to show the value of an expression, we use =>: (+ 3 5) => 8 2.2 Basic types =============== When communicating with `libgobject', most values need to be strictly-typed. There is a type class corresponding to each basic type in C: `', `', `', `', `', `', `', `', `', `', `', and `'. You can make instances of these class with `make': (make #:value #f) => # 40529040 #f> (make #:value 85) => # 4054f040 85> (make #:value 3.1415) => # 40556af0 3.1414999961853> (make #:value "Hello World!") => # 4055af90 Hello World!> You can get the normal Scheme values back with `gvalue->scm': (gvalue->scm (make #:value "Hello World!")) => "Hello World!" 2.3 Enums and flags =================== Enumerated values and bitflags are an essential part of many C APIs, and so they are specially wrapped in the GLib type system. You can create new enumerated types in Scheme by subclassing `': (define-class () #:vtable '#((hello "Hello World" 1) (test "Test" 2))) Instances are created with `make', just like with the other types: (make #:value 'hello) (make #:value "Hello World") (make #:value 1) ;; These three all do the same thing => # 406275f8 (hello Hello World 1)> If there is an already existing enum or flags class, you can get information about it: (genum-class->value-table ) => #((hello "Hello World" 1) (test "Test" 2)) Enums and flags have a special representation on the Scheme side. You can convert them to Scheme values as symbols, names, or as a numeric value. (define foo (make #:value 'hello)) (genum->symbol foo) => hello (genum->name foo) => "Hello World" (genum->value foo) => 1 2.4 GType ========= All of the types that GLib knows about are available to Guile, regardless of which language defined them. GLib implements this via a type system, where every type has a name. So if you make a type called "Foo" in C, you can get to it in Scheme via `gtype-name->class': ;; Retrieve the type for the foo enum we made earlier in the tutorial (define copy-of- (gtype-name->class "Foo")) (eq? copy-of-) => #t (make copy-of- #:value 2) => # 40535e50 (test Test 2)> 2.5 GObject =========== `' (`GObject' in C) is the basic object type in `libgobject'. `(gnome gobject)' allows you to access existing GObject types, as well as to create new GObject types in Scheme. Before we start, let's pull in some generic functions that reduce the amount of typing we have to do: (use-modules (gnome gobject generics)) Let's assume we start with `' from `(gnome gtk)'. The keyword arguments to `make' are interpreted as GObject properties to set: (define window (make #:type 'toplevel #:title "Hello, World!")) You can connect to signals on the new instance: (connect window 'delete-event (lambda (window event) ;; Returns #t to ignore this event #t)) ;; connect is a generic function implemented by ;; gtype-instance-signal-connect And get and set properties... (get window 'title) => "Hello, World!" (set window 'resizable #f) ;; get and set are also generics, implemented by gobject-get-property ;; and gobject-set-property 2.6 Deriving your own GObject types =================================== You can create new GObject types directly from Scheme, deriving either from a C object type or one you made in Scheme. ;; deriving from (define-class () ;; a normal object slot my-data ;; an object slot exported as a gobject property (pub-data #:gparam (list #:name 'test)) ;; a signal with no arguments and no return value #:gsignal '(frobate #f)) ;; deriving from -- also inherits properties and signals (define-class ()) Adding a signal automatically defines the default method: ;; This is the default handler for this signal. (define-method (test:frobate (object )) (format #t "Frobating ~A\n" object)) ;; We can override it for subclasses (define-method (test:frobate (object )) (next-method) ;; chain up (format #t "I'm hungry\n")) (emit (make ) 'frobate) ;; Try it! You can override the `initialize', `gobject:get-property', and `gobject:set-property' methods. For an extended example, see `tic-tac-toe.scm' in the `gtk/examples/gtk' directory of the distribution. 2.7 Usage =========  File: guile-gnome-gobject.info, Node: gnome gobject gtype, Next: gnome gobject gvalue, Prev: gnome gobject, Up: Top 3 (gnome gobject gtype) *********************** 3.1 Overview ============ Base support for the GLib type system. The GLib runtime type system is broken into a number of modules, of which GType is the base. A GType is a simply a named type. Some types are fundamental and cannot be subclassed, such as integers. Others can form the root of complicated object hierarchies, such as `'. One can obtain the class for a type if you know its name. For example, (gtype-name->class "guint64") => #< > A more detailed reference on the GLib type system may be had at `http://library.gnome.org/devel/gobject/stable/'. 3.2 Usage ========= -- Class: The metaclass of all GType classes. Ensures that GType classes have a `gtype' slot, which records the primitive GType information for this class. -- Class: The root class of all instantiatable GType classes. Adds a slot, `gtype-instance', to instances, which holds a pointer to the C value. -- Primitive: gtype-name->class name Return the `' associated with the GType, NAME. -- Function: class-name->gtype-name class-name Convert the name of a class into a suitable name for a GType. For example: (class-name->gtype-name ') => "FooBar" -- Function: gruntime-error format-string . args Signal a runtime error. The error will be thrown to the key `gruntime-error'. -- Primitive: gtype-instance-destroy! instance Release all references that the Scheme wrapper INSTANCE has on the underlying C value, and release pointers associated with the C value that point back to Scheme. Normally, you don't need to call this function, because garbage collection will take care of resource management. However some `' instances have semantics that require this function. The canonical example is that when a `' emits the `destroy' signal, all code should drop their references to the object. This is, of course, handled internally in the `(gnome gtk)' module.  File: guile-gnome-gobject.info, Node: gnome gobject gvalue, Next: gnome gobject gparameter, Prev: gnome gobject gtype, Up: Top 4 (gnome gobject gvalue) ************************ 4.1 Overview ============ GLib supports generic typed values via its GValue module. These values are wrapped in Scheme as instances of `' classes, such as `', `', etc. In most cases, use of `' is transparent to the Scheme user. Values which can be represented directly as Scheme values are normally given to the user in their Scheme form, e.g. `#\a' instead of `# 3020c708 a>'. However, when dealing with low-level routines it is sometimes necessary to have values in `' form. The conversion between the two is performed via the `scm->gvalue' and `gvalue->scm' functions. The other set of useful procedures exported by this module are those dealing with enumerated values and flags. These objects are normally represented on the C side with integers, but they have symbolic representations registered in the GLib type system. On the Scheme side, enumerated and flags values are canonically expressed as `' objects. They can be converted to integers or symbols using the conversion procedures exported by this module. It is conventional for Scheme procedures that take enumerated values to accept any form for the values, which can be canonicalized using `(make #:value VALUE)', where VALUE can be an integer, a symbol (or symbol list in the case of flags), or the string "nickname" (or string list) of the enumerated/flags value. 4.2 Usage ========= -- Class: -- Class: A `' class for boolean values. -- Class: A `' class for signed 8-bit values. -- Class: A `' class for unsigned 8-bit values. -- Class: A `' class for signed 32-bit values. -- Class: A `' class for unsigned 32-bit values. -- Class: A `' class for signed "long" (32- or 64-bit) values. -- Class: A `' class for unsigned "long" (32- or 64-bit) values. -- Class: A `' class for signed 64-bit values. -- Class: A `' class for unsigned 64-bit values. -- Class: A `' class for 32-bit floating-point values. -- Class: A `' class for 64-bit floating-point values. -- Class: A `' class for arrays of 8-bit values (C strings). -- Class: A `' class for "boxed" types, a way of wrapping generic C structures. You won't see instances of this class, only of its subclasses. -- Class: A `' class for holding arbitrary Scheme objects. -- Class: A `' class for arrays of `'. -- Class: A `' class for opaque pointers. -- Class: A `' base class for enumerated values. Users may define new enumerated value types via subclssing from `', passing `#:vtable TABLE' as an initarg, where TABLE should be in a format suitable for passing to `genum-register-static'. -- Class: A `' base class for flag values. Users may define new flag value types via subclssing from `', passing `#:vtable TABLE' as an initarg, where TABLE should be in a format suitable for passing to `gflags-register-static'. -- Primitive: genum-register-static name vtable Creates and registers a new enumerated type with name NAME with the C runtime. There must be no type with name NAME when this function is called. The new type can be accessed by using `gtype-name->class'. VTABLE is a vector describing the new enum type. Each vector element describes one enum element and must be a list of 3 elements: the element's nick name as a symbol, its name as a string, and its integer value. (genum-register-static "Test" #((foo "Foo" 1) (bar "Bar" 2) (baz "Long name of baz" 4))) -- Primitive: gflags-register-static name vtable Creates and registers a new flags `' with name NAME with the C runtime. The VTABLE should be in the format described in the documentation for `genum-register-static'. -- Primitive: genum-class->value-table class Return a table of the values supported by the enumerated `' CLASS. The return value will be in the format described in `genum-register-static'. -- Primitive: gflags-class->value-table class Return a table of the values supported by the flag `' CLASS. The return value will be in the format described in `gflags-register-static'. -- Primitive: scm->gvalue class scm Convert a Scheme value into a `' of type CLASS. If the conversion is not possible, raise a `gruntime-error'. -- Primitive: gvalue->scm value Convert a `' into it normal scheme representation, for example unboxing characters into Scheme characters. Note that the Scheme form for some values is the `' form, for example with boxed or enumerated values. -- Function: genum->symbol obj Convert the enumerated value OBJ from a `' to its symbol representation (its "nickname"). -- Function: genum->name obj Convert the enumerated value OBJ from a `' to its representation as a string (its "name"). -- Primitive: genum->value value Convert the enumerated value OBJ from a `' to its representation as an integer. -- Primitive: gflags->value value Convert the flags value OBJ from a `' to its representation as an integer. -- Function: gflags->symbol-list obj Convert the flags value OBJ from a `' to a list of the symbols that it represents. -- Function: gflags->name-list obj Convert the flags value OBJ from a `' to a list of strings, the names of the values it represents. -- Function: gflags->value-list obj Convert the flags value OBJ from a `' to a list of integers, which when `logand''d together yield the flags' value.  File: guile-gnome-gobject.info, Node: gnome gobject gparameter, Next: gnome gobject gclosure, Prev: gnome gobject gvalue, Up: Top 5 (gnome gobject gparameter) **************************** 5.1 Overview ============ Parameters are constraints for values, both in type and in range. This module wraps the parameters code of the GLib type system, allowing parameters to be manipulated and created from Scheme. There is a parameter class for each type of parameter: `', `', etc. 5.2 Usage ========= -- Class: The base class for GLib parameter objects. (Doc slots) -- Class: Parameter for `' values. -- Class: Parameter for `' values. -- Class: Parameter for `' values. -- Class: Parameter for `' values. -- Class: Parameter for `' values. -- Class: Parameter for `' values. -- Class: Parameter for `' values. -- Class: Parameter for `' values. -- Class: Parameter for `' values. -- Class: Parameter for `' values. -- Class: Parameter for `' values. -- Class: Parameter for Unicode codepoints, represented as `' values. -- Class: Parameter for `' values. -- Class: Parameter for `' values. -- Class: Parameter for `' values. -- Class: Parameter for `' values. -- Class: Parameter for `' values. -- Class: A `' type for the flags allowable on a `': `read', `write', `construct', `construct-only', and `lax-validation'. -- Variable: gparameter:uint-max -- Variable: gparameter:int-min -- Variable: gparameter:int-max -- Variable: gparameter:ulong-max -- Variable: gparameter:long-min -- Variable: gparameter:long-max -- Variable: gparameter:uint64-max -- Variable: gparameter:int64-min -- Variable: gparameter:int64-max -- Variable: gparameter:float-max -- Variable: gparameter:float-min -- Variable: gparameter:double-max -- Variable: gparameter:double-min -- Variable: gparameter:byte-order  File: guile-gnome-gobject.info, Node: gnome gobject gclosure, Next: gnome gobject gsignal, Prev: gnome gobject gparameter, Up: Top 6 (gnome gobject gclosure) ************************** 6.1 Overview ============ The GLib type system supports the creation and invocation of "closures", objects which can be invoked like procedures. Its infrastructure allows one to pass a Scheme function to C, and have C call into Scheme, and vice versa. In Scheme, `' holds a Scheme procedure, the `' of its return value, and a list of the `''s of its arguments. Closures can be invoked with `gclosure-invoke'. However since on the C level, closures do not carry a description of their argument and return types, when we invoke a closure we have to be very explicit about the types involved. For example: (gclosure-invoke (make #:return-type #:param-types (list ) #:func (lambda (x) (* x x))) (scm->gvalue 10)) => 100 6.2 Usage ========= -- Class: The Scheme representation of a GLib closure: a typed procedure object that can be passed to other languages. -- Primitive: gclosure-invoke closure return_type args Invoke a closure. A `' in GLib's abstraction for a callable object. This abstraction carries no type information, so the caller must supply all arguments as typed instances, which may be obtained by the scheme procedure, `scm->gvalue'. As you can see, this is a low-level function. In fact, it is not used internally by the `guile-gobject' bindings.  File: guile-gnome-gobject.info, Node: gnome gobject gsignal, Next: gnome gobject gobject, Prev: gnome gobject gclosure, Up: Top 7 (gnome gobject gsignal) ************************* 7.1 Overview ============ GSignal is a mechanism by which code, normally written in C, may expose extension points to which closures can be connected, much like Guile's hooks. Instantiatable types can have signals associated with them; for example, `' has an `expose' signal that will be "fired" at certain well-documented points. Signals are typed. They specify the types of their return value, and the types of their arguments. This module defines routines for introspecting, emitting, connecting to, disconnecting from, blocking, and unblocking signals. Additionally it defines routines to define new signal types on instantiatable types. 7.2 Usage ========= -- Class: A `' describes a signal on a `': its name, and how it should be called. -- Primitive: gtype-class-get-signals class tail Returns a list of signals belonging to CLASS and all parent types. -- Function: gtype-class-get-signal-names class Returns a vector of signal names belonging to CLASS and all parent classes. -- Primitive: gtype-instance-signal-emit object name args -- Function: gtype-instance-signal-connect object name func . after? Connects FUNC as handler for the `' OBJECT's signal NAME. NAME should be a symbol. AFTER is boolean specifying whether the handler is run before (`#f') or after (`#t') the signal's default handler. Returns an integer number which can be used as arugment of `gsignal-handler-block', `gsignal-handler-unblock', `gsignal-handler-disconnect' and `gsignal-handler-connected?'. -- Function: gtype-instance-signal-connect-after object name func Convenience function for calling `gtype-instance-signal-connect' with AFTER = `#t'. -- Primitive: gsignal-handler-block instance handler_id -- Primitive: gsignal-handler-unblock instance handler_id -- Primitive: gsignal-handler-disconnect instance handler_id -- Primitive: gsignal-handler-connected? instance handler_id -- Function: gtype-class-create-signal class name return-type param-types Create a new signal associated with the `' CLASS. NAME should be a symbol, the name of the signal. RETURN-TYPE should be a `' object. PARAM-TYPES should be a list of `' objects. In a bit of an odd interface, this function will return a new generic function, which will be run as the signal's default handler, whose default method will silently return an unspecified value. The user may define new methods on this generic to provide alternative default handler implementations.  File: guile-gnome-gobject.info, Node: gnome gobject gobject, Next: gnome gobject generics, Prev: gnome gobject gsignal, Up: Top 8 (gnome gobject gobject) ************************* 8.1 Overview ============ GObject is what is commonly understood as _the_ object system for GLib. This is not strictly true. GObject is _one_ implementation of an object system, built on the other modules: GType, GValue, GParameter, GClosure, and GSignal. Similarly, this Guile module provides integration with the GObject object system, built on the Guile modules that support GType, GValue, GParameter, GClosure, and GSignal. The main class exported by this module is `'. `' classes can be subclassed by the user, which will register new subtypes with the GType runtime type system. `' classes are are also created as needed when wrapping GObjects that come from C, for example from a function's return value. Besides supporting derivation, and signals like other `' implementations, `' has the concept of "properties", which are `''s associated with the object. The values are constrained by `''s, which are associated with the object's class. This module exports the necessary routines to query, get, and set `' properties. In addition, this module defines the `' base class, whose subclasses may be present as mixins of `' classes. For example: (use-modules (gnome gtk) (oop goops)) (class-direct-supers ) => (#< 3033bad0> #< 3034bc90>) In this example, we see that `' has two superclasses, `' and `'. The second is an interface implemented by the `' class. See `gtype-interfaces' for more details. 8.2 Usage ========= -- Class: The base class for GLib's default object system. `''s metaclass understands a new slot option, `#:gparam', which will export a slot as a `' property. The default implementation will set and access the value from the slot, but you can customize this by writing your own methods for `gobject:set-property' and `gobject:get-property'. In addition, the metaclass also understands `#:gsignal' arguments, which define signals on the class, and define the generics for the default signal handler. See `gtype-class-define-signal' for more information. For example: ;; deriving from (define-class () ;; a normal object slot my-data ;; an object slot exported as a gobject property (pub-data #:gparam (list #:name 'test)) ;; likewise, using non-default parameter settings (foo-data #:gparam (list #:name 'foo #:minimum -3 #:maximum 1000 #:default-value 42)) ;; a signal with no arguments and no return value #:gsignal '(frobate #f) ;; a signal with arguments and a return value #:gsignal (list 'frobate )) ;; deriving from -- also inherits properties and signals (define-class ()) `' classes also expose a slot for each GObject property defined on the class, if such a slot is not already defined. -- Class: The base class for GLib's interface types. Not derivable in Scheme. -- Class: Parameter for `' values. -- Primitive: gtype-register-static name parent_class Derive a new type named NAME from PARENT_CLASS. Returns the new `'. This function is called when deriving from `'; users do not normally call this function directly. -- Generic: gobject:get-property Called to get a gobject property. Only properties directly belonging to the object's class will come through this function; superclasses handle their own properties. Takes two arguments: the object and the property name. Call `(next-method)' in your methods to invoke the default handler -- Method: gobject:get-property (OBJECT `') (NAME `') The default implementation of `gobject:get-property', which calls `(slot-ref obj name)'. -- Generic: gobject:set-property Called to set a gobject property. Only properties directly belonging to the object's class will come through this function; superclasses handle their own properties. Takes three arguments: the object, the property name, and the value. Call `(next-method)' in your methods to invoke the default handler. -- Method: gobject:set-property (OBJECT `') (NAME `') (VALUE `') The default implementation of `gobject:set-property', which sets slots on the object. -- Primitive: gobject-class-get-properties class -- Function: gobject-class-find-property class name Returns a property named NAME (a symbol), belonging to CLASS or one of its parent classes, or `#f' if not found. -- Primitive: gobject-class-get-property-names class -- Primitive: gobject-get-property object name Gets a the property named NAME (a symbol) from OBJECT. -- Primitive: gobject-set-property object name value Sets the property named NAME (a symbol) on OBJECT to INIT-VALUE.  File: guile-gnome-gobject.info, Node: gnome gobject generics, Next: gnome gobject utils, Prev: gnome gobject gobject, Up: Top 9 (gnome gobject generics) ************************** 9.1 Overview ============ Generic functions for procedures in the `(gnome gobject)' module. 9.1.1 Mapping class libraries to Scheme --------------------------------------- Guile-GNOME exists to wrap a C library, `libgobject', its types, and the set of libraries that based themselves on the GLib types. Procedure invocation feels very similar in Scheme and in C. For example, the C `gtk_widget_show (widget)' transliterates almost exactly to the Scheme `(gtk-widget-show widget)'. GLib-based libraries are not random collections of functions, however. GLib-based libraries also implement classes and methods, insofar that it is possible in C. For example, in the above example, `show' may be seen to be a method on instances of the `' class. Indeed, other object-oriented languages such as Python express this pattern directly, translating the `show' operation as the pleasantly brief `widget.show()'. However this representation of methods as being bound to instances, while common, has a number of drawbacks. The largest drawback is that the method itself is not bound to a generic operation. For example, mapping the `show' operation across a set of widgets cannot be done with the straightforward `map(show, set)', because there is no object for the `show' operation. Instead the user must locally bind each widget to a variable in order to access a method of the abstract `show' operation: `map(lambda widget: widget.show(), set)'. Additionally, most languages which express methods as bound to instances only select the method via the type of the first (implicit) argument. The rule for these lanugages is, "`gtk-widget-show' is an applicable method of the `show' operation when the first argument to `show' is a `'." Note the lack of specification for other arguments; the same object cannot have two applicable methods of the `show' operation. A more complete specification would be, "`gtk-widget-show' is an applicable method of the `show' operation when applied to one argument, a `'." It is a fine difference, but sometimes important. For these and other reasons, the conventional way to implement generic operations in Lisp has been to define "generic functions", and then associate specific methods with those functions. For example, one would write the following: ;; defining a generic function, and one method implementation (define-generic show) (define-method (show (widget )) (gtk-widget-show widget)) ;; invoking the generic function (show my-widget) One benefit of this approach is that method definitions can be made far away in space and time from type definitions. This leads to a more dynamic environment, in which methods can be added to existing types at runtime, which then can apply to existing instances. 9.1.2 The semantics of generic functions in Guile-GNOME ------------------------------------------------------- Naturally, there is an impedance mismatch between the conventions used in the C libraries and their Scheme equivalents. Operations in GLib-based libraries do not form a coherent whole, in the sense that there is no place that defines the meaning of an abstract `show' operation. For example, `gtk-widget-set-state', which can make a widget become uneditable, and `gst-element-set-state', which can start a video player, would both map to the generic function `set-state', even though they have nothing to do with each other besides their name. There is no conflict here; the methods apply on disjoint types. However there is a problem of modularity, in that _both methods must be defined on the same generic function_, so that `(set-state foo bar)' picks the correct method, depending on the types of FOO and BAR. This point leads to the conclusion that _generic functions in Guile-GNOME have no abstract meaning, apart from their names_. Semantically, generics in Guile-GNOME are abbreviations to save typing, not abstract operations with defined meanings. 9.1.3 Practicalities -------------------- This module defines a number of "abbreviations", in the form of generic functions, for operations on types defined in the `(gnome gobject)' modules. Generic functions for generated bindings like `(gnome gtk)' are defined in another module, `(gnome gw generics)', which re-exports the public bindings from this module. 9.2 Usage ========= -- Generic: get -- Method: get (OBJECT `') (NAME `') A shorthand for `gobject-get-property'. -- Generic: set -- Method: set (OBJECT `') (NAME `') (VALUE `') A shorthand for `gobject-set-property'. -- Generic: emit -- Method: emit (OBJECT `') (NAME `') (ARGS `')... A shorthand for `gtype-instance-signal-emit'. -- Generic: connect -- Method: connect (OBJECT `') (NAME `') (FUNC `') A shorthand for `gtype-instance-signal-connect'. -- Method: connect (ARGS `')... The core Guile implementation of the connect(2) POSIX call -- Generic: connect-after -- Method: connect-after (OBJECT `') (NAME `') (FUNC `') A shorthand for `gtype-instance-signal-connect-after'. -- Generic: block -- Method: block (OBJECT `') (ID `') A shorthand for `gsignal-handler-block'. -- Generic: unblock -- Method: unblock (OBJECT `') (ID `') A shorthand for `gsignal-handler-unblock'. -- Generic: disconnect -- Method: disconnect (OBJECT `') (ID `') A shorthand for `gsignal-handler-disconnect'. -- Generic: connected? -- Method: connected? (OBJECT `') (ID `') A shorthand for `gsignal-handler-connected?'. -- Generic: invoke -- Method: invoke (CLOSURE `') (ARGS `')... A shorthand for `gclosure-invoke'. -- Generic: create-signal -- Method: create-signal (CLASS `') (NAME `') (RETURN-TYPE `') (PARAM-TYPES `') A shorthand for `gtype-class-create-signal'. -- Generic: get-signals -- Method: get-signals (CLASS `') A shorthand for `gtype-class-get-signals'. -- Generic: get-properties -- Method: get-properties (CLASS `') A shorthand for `gobject-class-get-properties'. -- Generic: get-property-names -- Method: get-property-names (CLASS `') A shorthand for `gobject-class-get-property-names'. -- Generic: find-property -- Method: find-property (CLASS `') (NAME `') A shorthand for `gobject-class-find-property'.  File: guile-gnome-gobject.info, Node: gnome gobject utils, Next: gnome gw generics, Prev: gnome gobject generics, Up: Top 10 (gnome gobject utils) ************************ 10.1 Overview ============= Common utility routines. 10.2 Usage ========== -- Function: GStudlyCapsExpand nstr Expand the StudlyCaps NSTR to a more schemey-form, according to the conventions of GLib libraries. For example: (GStudlyCapsExpand "GSource") => g-source (GStudlyCapsExpand "GtkIMContext") => gtk-im-context (GStudlyCapsExpand "GtkHBox") => gtk-hbox -- Variable: gtype-name->scheme-name-alist An alist of exceptions to the name transformation algorithm implemented in `GStudlyCapsExpand'. -- Function: gtype-name->scheme-name type-name Transform a name of a `', such as "GtkWindow", to a scheme form, such as `gtk-window', taking into account the exceptions in `gtype-name->scheme-name-alist', and trimming trailing dashes if any. -- Function: gtype-name->class-name type-name Transform a name of a `', such as "GtkWindow", to a suitable name of a Scheme class, such as `'. Uses `gtype-name->scheme-name'. -- Function: gtype-class-name->method-name class-name name Generate the name of a method given the name of a `' and the name of the operation. For example: (gtype-name->method-name "GtkFoo" "bar") => gtk-foo:bar Uses `gtype-name->scheme-name'. -- Special Form: re-export-modules . args Re-export the public interface of a module or modules. Invoked as `(re-export-modules (mod1) (mod2)...)'. -- Special Form: define-macro-with-docs form docs . body -- Special Form: define-with-docs name docs val Define NAME as VAL, documenting the value with DOCS. -- Special Form: define-generic-with-docs name documentation Define a generic named NAME, with documentation DOCUMENTATION. -- Special Form: define-class-with-docs name supers docs . rest Define a class named NAME, with superclasses SUPERS, with documentation DOCS. -- Special Form: unless test . body -- Special Form: with-accessors names . body  File: guile-gnome-gobject.info, Node: gnome gw generics, Next: gnome gw support gobject, Prev: gnome gobject utils, Up: Top 11 (gnome gw generics) ********************** 11.1 Overview ============= This module exists so that all `(gnome gw)' modules have a common place to put their generic functions. Whenever a wrapset is loaded, it adds method definitions to generics defined in this module. See the documentation for `(gnome gobject generics)' for more notes about generic functions in Guile-GNOME. This module re-exports bindings from `(gnome gobject generics)', so there is no need to import them both. 11.2 Usage ==========  File: guile-gnome-gobject.info, Node: gnome gw support gobject, Next: gnome gw support defs, Prev: gnome gw generics, Up: Top 12 (gnome gw support gobject) ***************************** 12.1 Overview ============= G-Wrap support for `(gnome gobject)' types. Code in this module is only loaded when generating wrapsets; as such, it is not for end users. 12.2 Usage ========== -- Class: The base class for G-Wrap wrapsets that use `' types. -- Generic: add-type-alias! -- Method: add-type-alias! (WRAPSET `') (ALIAS `') (NAME `') Add a type alias to WRAPSET, that the string ALIAS is associated with the type named SYMBOL. For example, `"GtkWindow*"' might be associated with a type named `'. See `lookup-type-by-alias'. -- Generic: lookup-type-by-alias -- Method: lookup-type-by-alias (WRAPSET `') (NAME `') Lookup a type aliased NAME in WRAPSET, and all wrapsets on which WRAPSET depends. This interface is used by `load-defs' to associate G-Wrap types with the strings parsed out of the C header files. -- Generic: add-type-rule! -- Method: add-type-rule! (SELF `') (PARAM-TYPE `') (TYPESPEC `') Add a type rule to WRAPSET, that the string PARAM-TYPE maps directly to the g-wrap typespec TYPESPEC. For example, `"int*"' might map to the typespec `(int out)'. See `find-type-rule'. -- Generic: find-type-rule -- Method: find-type-rule (SELF `') (PARAM-TYPE `') See if the parameter type PARAM-TYPE has a type rule present in WRAPSET or in any wrapset on which WRAPSET depends. This interface is used by `load-defs' to associate G-Wrap typespecs with the strings parsed out of the C header files. -- Class: A base G-Wrap type class for GLib types. -- Class: A base G-Wrap type class for classed GLib types (see `gtype-classed?'). -- Generic: gtype-id -- Method: gtype-id (O `') -- Method: gtype-id (O `') -- Method: gtype-id (O `') -- Method: gtype-id (O `') -- Method: gtype-id (O `') -- Method: gtype-id (O `') -- Method: gtype-id (O `') -- Method: gtype-id (O `') -- Method: gtype-id (O `') -- Method: gtype-id (O `') -- Method: gtype-id (O `') -- Class: A base G-Wrap type class for for classed GLib types whose values are pointers. -- Generic: unwrap-null-checked -- Method: unwrap-null-checked (VALUE `') (STATUS-VAR `') (CODE `') Unwrap a value into a C pointer, optionally unwrapping `#f' as `NULL'. This function checks the typespec options on VALUE, which should be a `'. If the `null-ok' option is set (which is only the case for value classes with `null-ok' in its `#:allowed-options'), this function generates code that unwraps `#f' as `NULL'. If `null-ok' is unset, or the value is not `#f', CODE is run instead. -- Generic: wrap-instance! -- Method: wrap-instance! (WS `') (ARGS `')... Define a wrapper for a specific instantiatable (`'-derived) type in WS. Required keyword arguments are `#:ctype' and `#:gtype-id'. For example, (wrap-instance! ws #:ctype "GtkWidget" #:gtype-id "GTK_TYPE_WIDGET") Normally only called from `load-defs'. -- Generic: wrap-boxed! -- Method: wrap-boxed! (WS `') (ARGS `')... Define a wrapper for a specific boxed type in WS. Required keyword arguments are `#:ctype' and `#:gtype-id', as in `wrap-instance!'. -- Generic: wrap-pointer! -- Method: wrap-pointer! (WS `') (ARGS `')... Define a wrapper for a specific pointer type in WS. Required keyword arguments are `#:ctype' and `#:gtype-id', as in `wrap-instance!'. -- Function: wrap-opaque-pointer! ws ctype Define a wrapper for an opaque pointer with the C type CTYPE. It will not be possible to create these types from Scheme, but they can be received from a library, and passed as arguments to other calls into the library. -- Function: wrap-freeable-pointer! ws ctype free foo -- Function: wrap-refcounted-pointer! ws ctype ref unref foo -- Function: wrap-structure! ws ctype wrap unwrap Define a wrapper for structure values of type CTYPE. WRAP and UNWRAP are the names of C functions to convert a C structure to Scheme and vice versa, respectively. When in a function call, parameters of this type of the form `STRUCTNAME*' are interpreted as `out' parameters, while `const-STRUCTNAME*' are treated as `in' parameters. Note that CTYPE should be the type of the structure, not a pointer to the structure. -- Generic: wrap-interface! -- Method: wrap-interface! (WS `') (ARGS `')... Define a wrapper for an interface type in WS. Required keyword arguments are `#:ctype' and `#:gtype-id', as in `wrap-instance!'. -- Generic: wrap-flags! -- Method: wrap-flags! (WS `') (ARGS `')... Define a wrapper for a flags type in WS. Required keyword arguments are `#:ctype' and `#:gtype-id' or `#:values', as in `wrap-enum!'. -- Generic: wrap-gobject-class! -- Method: wrap-gobject-class! (WS `') (ARGS `')... Define a wrapper for GObject class values WS. Required keyword arguments are `#:ctype' and `#:gtype-id', as in `wrap-instance!'. `#:ctype' should refer to the type of the class and not the instance; e.g. `"GtkWidgetClass"' and not `"GtkWidget"'. This function will not be called by `load-defs', and should be invoked manually in a wrapset as needed. -- Special Form: wrap-custom-boxed! ctype gtype wrap unwrap Wrap a boxed type using custom wrappers and unwrappers. FIXME: missing a wrapset argument! CTYPE and GTYPE are as `#:ctype' and `#:gtype-id' in `wrap-instance!'. WRAP and UNWRAP are G-Wrap forms in which `scm-var' and `c-var' will be bound to the names of the SCM and C values, respectively. For example: (wrap-custom-boxed! "GdkRectangle" "GDK_TYPE_RECTANGLE" (list scm-var " = " c-var " ? scm_gdk_rectangle_to_scm (" c-var ")" " : SCM_BOOL_F;") (list c-var " = scm_scm_to_gdk_rectangle (" scm-var ");")) -- Special Form: wrap-custom-gvalue! ctype gtype wrap-func unwrap-func Wrap a GValue type using custom wrap and unwrap functions. FIXME: missing a wrapset argument! CTYPE and GTYPE are as `#:ctype' and `#:gtype-id' in `wrap-instance!'. WRAP-FUNC and UNWRAP-FUNC are names of functions to convert to and from Scheme values, respectively. For example: (wrap-custom-gvalue! "GstFraction" "GST_TYPE_FRACTION" "scm_from_gst_fraction" "scm_to_gst_fraction")  File: guile-gnome-gobject.info, Node: gnome gw support defs, Next: gnome gw support gtk-doc, Prev: gnome gw support gobject, Up: Top 13 (gnome gw support defs) ************************** 13.1 Overview ============= This module serves as a way to automatically populate G-Wrap wrapsets using information parsed out of C header files. First, the C header files are parsed into S-expression API description forms and written into `.defs' files. These files are typically included in the distribution, and regenerated infrequently. Then, the binding author includes a call to `load-defs' in their G-Wrap wrapset definition, which loads those API definitions into the wrapset. The `.defs' files are usually produced using the API scanner script, `h2defs.py', included in the Guile-GNOME source distribution. Code in this module is only loaded when generating wrapsets; as such, it is not for end users. As an example, ATK is wrapped with the following code, from `atk/gnome/gw/atk-spec.scm': (define-module (gnome gw atk-spec) #:use-module (oop goops) #:use-module (gnome gw support g-wrap) #:use-module (gnome gw gobject-spec) #:use-module (gnome gw support gobject) #:use-module (gnome gw support defs)) (define-class () #:id 'gnome-atk #:dependencies '(standard gnome-glib gnome-gobject)) (define-method (global-declarations-cg (self )) (list (next-method) "#include \n" "#include \n")) (define-method (initialize (ws ) initargs) (next-method ws (append '(#:module (gnome gw atk)) initargs)) ;; manually wrap AtkState as a 64 bit uint (add-type-alias! ws "AtkState" 'unsigned-int64) (load-defs-with-overrides ws "gnome/defs/atk.defs")) The wrapper-specifiction modules are actually installed, along with the .defs files, so that other wrappers which use ATK's types, such as GTK+, can have them available. A full discussion of the Makefile mechanics of how to generate and compile the C file, or how to interact with the wrapset objects, is probably prone to bitrot here. Your best bet is to poke at Guile-GNOME's source, or especially the source of a module distributed independently of `guile-gnome-platform', such as `guile-gnome-libwnck'. Further details about the procedural API available for use e.g. within the wrapset's `initialize' function can be found in the documentation for `(gnome gw support gobject)', and in G-Wrap's documentation. 13.2 Usage ========== -- Function: load-defs ws file [overrides = #f] Load G-Wrap type and function information from FILE into the G-Wrap wrapset WS. FILE should be a relative path, which will be searched in the vicinity of Guile's `%load-path'. `include' directives in the file will be searched relative to the absolute path of the file. The following forms are understood: `define-enum', `define-flags', `define-object', `define-interface', `define-pointer', `define-boxed', `define-function', `define-method', `ignore', `ignore-glob', and `ignore-types'. The optional argument, OVERRIDES, specifies the location of an overrides file that will be spliced into the `.defs' file at the point of an `(include overrides)' form. -- Function: load-defs-with-overrides ws defs Equivalent to: (load-defs ws defs (string-append "gnome/overrides/" (basename defs)))  File: guile-gnome-gobject.info, Node: gnome gw support gtk-doc, Next: gnome gw support modules, Prev: gnome gw support defs, Up: Top 14 (gnome gw support gtk-doc) ***************************** 14.1 Overview ============= This module exports two high-level procedures to transform the Docbook files generated by GTK-Doc into texinfo. GTK-Doc (http://www.gtk.org/gtk-doc/) is commonly used to document GObject-based libraries, such as those that Guile-GNOME wraps. In a typical build setup, GTK-Doc generates a reference manual with one XML file per section. The routines in this module attempt to recreate those sections, but in Texinfo instead of Docbook, and which document the Scheme modules instead of the upstream C libraries. The tricky part of translating GTK-Doc's documentation is not the vocabulary (Docbook), but that it documents C functions which have different calling conventions than Scheme. For example, a C function might take four `double*' arguments, but in Scheme the function would return four rational values. Given only the C prototype, the code in this module will make an attempt to determine what the Scheme function's arguments will be based on some heuristics. In most cases, however, we can do better than heuristics, because we have the G-Wrap information that describes the relationship between the C function and the Scheme wrapper. In that way we can know exactly what the input and output arguments are for a particular function. The `gtk-doc->texi-stubs' function is straightforward. It extracts the "header" in a set of GTK-Doc files, translates them into texinfo, writing them out one by one to files named `section-FOO.texi', where FOO is the name of the XML file. It is unclear whether it is best to continously generate these sections when updating the manuals, or whether this "stub" generation should be run only once when the documentation is initially generated, and thereafter maintained by hand. Your call! `gtk-doc->texi-defuns' is slightly more complicated, because you have the choice as to whether to use heuristics or the g-wrap method for determining the arguments. See its documentation for more information. Both of these functions are designed to be directly callable from the shell. Here is a makefile snippet suitable for using the heuristics method for defuns generation: GTK_DOC_TO_TEXI_STUBS = \ '((@ (gnome gw support gtk-doc) gtk-doc->texi-stubs) \ (cdr (program-arguments)))' GTK_DOC_DEFUN_METHOD = heuristics GTK_DOC_DEFUN_ARGS = (your-module-here) GTK_DOC_TO_TEXI_DEFUNS = "(apply (@ (gnome gw support gtk-doc) \ gtk-doc->texi-defuns) (cadr (program-arguments)) \ '$(GTK_DOC_DEFUN_METHOD) '($(GTK_DOC_DEFUN_ARGS)) \ (cddr (program-arguments)))" GUILE = $(top_builddir)/dev-environ guile generate-stubs: $(GUILE) $(GUILE_FLAGS) -c $(GTK_DOC_TO_TEXI_STUBS) \ $(docbook_xml_files) generate-defuns: $(GUILE) $(GUILE_FLAGS) -c $(GTK_DOC_TO_TEXI_DEFUNS) \ ./overrides.texi $(docbook_xml_files) To make the above snippet work, you will have to define `$(docbook_xml_files)' as the set of docbook XML files to transform. To use the G-Wrap method, try the following: wrapset_module = (gnome gw $(wrapset_stem)-spec) wrapset_name = gnome-$(wrapset_stem) GTK_DOC_DEFUN_METHOD = g-wrap GTK_DOC_DEFUN_ARGS = $(wrapset_module) $(wrapset_name) Set `$(wrapset_stem)' to the stem of the wrapset name, e.g. `pango', and there you are. 14.2 Usage ========== -- Function: gtk-doc->texi-stubs files Generate a section overview texinfo file for each docbook XML file in FILES. The files will be created in the current directory, as described in the documentation for `(gnome gw support gtk-doc)'. They will include a file named `defuns-FILE.texi', which should probably be created using `gtk-doc->texi-defuns'. -- Function: gtk-doc->texi-defuns overrides method args . files Generate documentation for the types and functions defined in a set of docbook files genearted by GTK-Doc. OVERRIDES should be a path to a texinfo file from which `@deffn' overrides will be taken. METHOD should be either `g-wrap' or `heuristics', as discussed in the `(gnome gw support gtk-doc)' documentation. FILES is the list of docbook XML files from which to pull function documentation. ARGS should be a list, whose form depends on the METHOD. For `g-wrap', it should be two elements, the first the name of a module that, when loaded, will load the necessary wrapset into the g-wrap runtime. For example, `(gnome gw glib-spec)'. The second argument should be the name of the wrapset, e.g. `gnome-glib'. If METHOD is `heuristics', ARGS should have only one element, the name of the module to load to check the existence of procedures, e.g. `(cairo)'. -- Function: check-documentation-coverage modules texi Check the coverage of generated documentation. MODULES is a list of module names, and TEXI is a path to a texinfo file. The set of exports of MODULES is checked against the set of procedures defined in TEXI, resulting in a calculation of documentation coverage, and the output of any missing documentation to the current output port. -- Function: generate-undocumented-texi modules texi Verify the bindings exported by MODULES against the documentation in TEXI, writing documentation for any undocumented symbol to `undocumented.texi'. MODULES is a list of module names, and TEXI is a path to a texinfo file.  File: guile-gnome-gobject.info, Node: gnome gw support modules, Next: Type Index, Prev: gnome gw support gtk-doc, Up: Top 15 (gnome gw support modules) ***************************** 15.1 Overview ============= Support routines for automatically-generated scheme G-Wrap modules. 15.2 Usage ========== -- Function: export-all-lazy! symbols Export the SYMBOLS from the current module. Most generic functions and classes that G-Wrap defines are bound lazily, as needed in evaluation. This is done by placing module binder procedures on the generated modules. However, if we export all symbols by name, this will force the binding eagerly for all values, which is slow. This procedure exports all bindings named in SYMBOLS that are already bound in the current module, and then installs a module binder procedure on the public interface, which allows lazy binding to work. -- Special Form: re-export-modules . args Re-export the public interface of a module; used like `use-modules'.  File: guile-gnome-gobject.info, Node: Type Index, Next: Function Index, Prev: gnome gw support modules, Up: Top Type Index ********** [index] * Menu: * : gnome gobject gvalue. (line 41) * : gnome gobject gvalue. (line 95) * : gnome gobject gvalue. (line 89) * : gnome gobject gvalue. (line 45) * : gnome gobject gvalue. (line 85) * : gnome gobject gclosure. (line 32) * : gnome gobject gvalue. (line 81) * : gnome gobject gvalue. (line 107) * : gnome gobject gvalue. (line 114) * : gnome gobject gvalue. (line 77) * : gnome gobject gvalue. (line 69) * : gnome gobject gvalue. (line 53) * : gnome gobject gobject. (line 90) * : gnome gobject gvalue. (line 61) * : gnome gw support gobject. (line 91) * : gnome gw support gobject. (line 62) * : gnome gw support gobject. (line 58) * : gnome gw support gobject. (line 16) * : gnome gobject gobject. (line 48) * : gnome gobject gparameter. (line 32) * : gnome gobject gparameter. (line 80) * : gnome gobject gparameter. (line 24) * : gnome gobject gparameter. (line 64) * : gnome gobject gparameter. (line 84) * : gnome gobject gparameter. (line 88) * : gnome gobject gparameter. (line 60) * : gnome gobject gparameter. (line 52) * : gnome gobject gparameter. (line 36) * : gnome gobject gparameter. (line 44) * : gnome gobject gobject. (line 94) * : gnome gobject gparameter. (line 72) * : gnome gobject gparameter. (line 92) * : gnome gobject gparameter. (line 76) * : gnome gobject gparameter. (line 28) * : gnome gobject gparameter. (line 56) * : gnome gobject gparameter. (line 40) * : gnome gobject gparameter. (line 48) * : gnome gobject gparameter. (line 68) * : gnome gobject gparameter. (line 20) * : gnome gobject gvalue. (line 103) * : gnome gobject gsignal. (line 26) * : gnome gobject gtype. (line 28) * : gnome gobject gtype. (line 34) * : gnome gobject gvalue. (line 49) * : gnome gobject gvalue. (line 73) * : gnome gobject gvalue. (line 57) * : gnome gobject gvalue. (line 65) * : gnome gobject gvalue. (line 99) * : gnome gobject gvalue. (line 39)  File: guile-gnome-gobject.info, Node: Function Index, Prev: Type Index, Up: Top Function Index ************** [index] * Menu: * add-type-alias!: gnome gw support gobject. (line 20) * add-type-rule!: gnome gw support gobject. (line 39) * block: gnome gobject generics. (line 141) * check-documentation-coverage: gnome gw support gtk-doc. (line 116) * class-name->gtype-name: gnome gobject gtype. (line 44) * connect: gnome gobject generics. (line 123) * connect-after: gnome gobject generics. (line 134) * connected?: gnome gobject generics. (line 159) * create-signal: gnome gobject generics. (line 171) * define-class-with-docs: gnome gobject utils. (line 66) * define-generic-with-docs: gnome gobject utils. (line 62) * define-macro-with-docs: gnome gobject utils. (line 56) * define-with-docs: gnome gobject utils. (line 58) * disconnect: gnome gobject generics. (line 153) * emit: gnome gobject generics. (line 116) * export-all-lazy!: gnome gw support modules. (line 15) * find-property: gnome gobject generics. (line 196) * find-type-rule: gnome gw support gobject. (line 48) * gclosure-invoke: gnome gobject gclosure. (line 37) * generate-undocumented-texi: gnome gw support gtk-doc. (line 126) * genum->name: gnome gobject gvalue. (line 174) * genum->symbol: gnome gobject gvalue. (line 169) * genum->value: gnome gobject gvalue. (line 179) * genum-class->value-table: gnome gobject gvalue. (line 145) * genum-register-static: gnome gobject gvalue. (line 121) * get: gnome gobject generics. (line 104) * get-properties: gnome gobject generics. (line 184) * get-property-names: gnome gobject generics. (line 190) * get-signals: gnome gobject generics. (line 178) * gflags->name-list: gnome gobject gvalue. (line 194) * gflags->symbol-list: gnome gobject gvalue. (line 189) * gflags->value: gnome gobject gvalue. (line 184) * gflags->value-list: gnome gobject gvalue. (line 199) * gflags-class->value-table: gnome gobject gvalue. (line 151) * gflags-register-static: gnome gobject gvalue. (line 137) * gobject-class-find-property: gnome gobject gobject. (line 138) * gobject-class-get-properties: gnome gobject gobject. (line 136) * gobject-class-get-property-names: gnome gobject gobject. (line 143) * gobject-get-property: gnome gobject gobject. (line 145) * gobject-set-property: gnome gobject gobject. (line 149) * gobject:get-property: gnome gobject gobject. (line 104) * gobject:set-property: gnome gobject gobject. (line 119) * gruntime-error: gnome gobject gtype. (line 51) * gsignal-handler-block: gnome gobject gsignal. (line 60) * gsignal-handler-connected?: gnome gobject gsignal. (line 66) * gsignal-handler-disconnect: gnome gobject gsignal. (line 64) * gsignal-handler-unblock: gnome gobject gsignal. (line 62) * GStudlyCapsExpand: gnome gobject utils. (line 15) * gtk-doc->texi-defuns: gnome gw support gtk-doc. (line 95) * gtk-doc->texi-stubs: gnome gw support gtk-doc. (line 85) * gtype-class-create-signal: gnome gobject gsignal. (line 69) * gtype-class-get-signal-names: gnome gobject gsignal. (line 35) * gtype-class-get-signals: gnome gobject gsignal. (line 31) * gtype-class-name->method-name: gnome gobject utils. (line 42) * gtype-id: gnome gw support gobject. (line 67) * gtype-instance-destroy!: gnome gobject gtype. (line 56) * gtype-instance-signal-connect: gnome gobject gsignal. (line 42) * gtype-instance-signal-connect-after: gnome gobject gsignal. (line 55) * gtype-instance-signal-emit: gnome gobject gsignal. (line 40) * gtype-name->class: gnome gobject gtype. (line 40) * gtype-name->class-name: gnome gobject utils. (line 36) * gtype-name->scheme-name: gnome gobject utils. (line 29) * gtype-register-static: gnome gobject gobject. (line 98) * gvalue->scm: gnome gobject gvalue. (line 162) * invoke: gnome gobject generics. (line 165) * load-defs: gnome gw support defs. (line 69) * load-defs-with-overrides: gnome gw support defs. (line 87) * lookup-type-by-alias: gnome gw support gobject. (line 30) * re-export-modules <1>: gnome gw support modules. (line 30) * re-export-modules: gnome gobject utils. (line 51) * scm->gvalue: gnome gobject gvalue. (line 157) * set: gnome gobject generics. (line 110) * unblock: gnome gobject generics. (line 147) * unless: gnome gobject utils. (line 71) * unwrap-null-checked: gnome gw support gobject. (line 96) * with-accessors: gnome gobject utils. (line 73) * wrap-boxed!: gnome gw support gobject. (line 125) * wrap-custom-boxed!: gnome gw support gobject. (line 198) * wrap-custom-gvalue!: gnome gw support gobject. (line 216) * wrap-flags!: gnome gw support gobject. (line 177) * wrap-freeable-pointer!: gnome gw support gobject. (line 148) * wrap-gobject-class!: gnome gw support gobject. (line 185) * wrap-instance!: gnome gw support gobject. (line 111) * wrap-interface!: gnome gw support gobject. (line 169) * wrap-opaque-pointer!: gnome gw support gobject. (line 141) * wrap-pointer!: gnome gw support gobject. (line 132) * wrap-refcounted-pointer!: gnome gw support gobject. (line 152) * wrap-structure!: gnome gw support gobject. (line 156)  Tag Table: Node: Top643 Node: gnome-22132 Node: gnome gobject4464 Node: gnome gobject gtype10542 Ref: gnome gobject gtype 11347 Ref: gnome gobject gtype 11535 Ref: gnome gobject gtype gtype-name->class11715 Ref: gnome gobject gtype class-name->gtype-name11820 Ref: gnome gobject gtype gruntime-error12015 Ref: gnome gobject gtype gtype-instance-destroy!12155 Node: gnome gobject gvalue12816 Ref: gnome gobject gvalue 14450 Ref: gnome gobject gvalue 14471 Ref: gnome gobject gvalue 14539 Ref: gnome gobject gvalue 14609 Ref: gnome gobject gvalue 14682 Ref: gnome gobject gvalue 14752 Ref: gnome gobject gvalue 14825 Ref: gnome gobject gvalue 14912 Ref: gnome gobject gvalue 15002 Ref: gnome gobject gvalue 15074 Ref: gnome gobject gvalue 15149 Ref: gnome gobject gvalue 15229 Ref: gnome gobject gvalue 15310 Ref: gnome gobject gvalue 15400 Ref: gnome gobject gvalue 15578 Ref: gnome gobject gvalue 15666 Ref: gnome gobject gvalue 15744 Ref: gnome gobject gvalue 15813 Ref: gnome gobject gvalue 16099 Ref: gnome gobject gvalue genum-register-static16376 Ref: gnome gobject gvalue gflags-register-static16998 Ref: gnome gobject gvalue genum-class->value-table17251 Ref: gnome gobject gvalue gflags-class->value-table17471 Ref: gnome gobject gvalue scm->gvalue17687 Ref: gnome gobject gvalue gvalue->scm17853 Ref: gnome gobject gvalue genum->symbol18134 Ref: gnome gobject gvalue genum->name18276 Ref: gnome gobject gvalue genum->value18417 Ref: gnome gobject gvalue gflags->value18551 Ref: gnome gobject gvalue gflags->symbol-list18681 Ref: gnome gobject gvalue gflags->name-list18822 Ref: gnome gobject gvalue gflags->value-list18977 Node: gnome gobject gparameter19150 Ref: gnome gobject gparameter 19686 Ref: gnome gobject gparameter 19768 Ref: gnome gobject gparameter 19832 Ref: gnome gobject gparameter 19898 Ref: gnome gobject gparameter 19968 Ref: gnome gobject gparameter 20030 Ref: gnome gobject gparameter 20094 Ref: gnome gobject gparameter 20158 Ref: gnome gobject gparameter 20224 Ref: gnome gobject gparameter 20290 Ref: gnome gobject gparameter 20358 Ref: gnome gobject gparameter 20424 Ref: gnome gobject gparameter 20492 Ref: gnome gobject gparameter 20594 Ref: gnome gobject gparameter 20664 Ref: gnome gobject gparameter 20735 Ref: gnome gobject gparameter 20801 Ref: gnome gobject gparameter 20865 Ref: gnome gobject gparameter 20931 Ref: gnome gobject gparameter gparameter:uint-max21103 Ref: gnome gobject gparameter gparameter:int-min21138 Ref: gnome gobject gparameter gparameter:int-max21172 Ref: gnome gobject gparameter gparameter:ulong-max21206 Ref: gnome gobject gparameter gparameter:long-min21242 Ref: gnome gobject gparameter gparameter:long-max21277 Ref: gnome gobject gparameter gparameter:uint64-max21312 Ref: gnome gobject gparameter gparameter:int64-min21349 Ref: gnome gobject gparameter gparameter:int64-max21385 Ref: gnome gobject gparameter gparameter:float-max21421 Ref: gnome gobject gparameter gparameter:float-min21457 Ref: gnome gobject gparameter gparameter:double-max21493 Ref: gnome gobject gparameter gparameter:double-min21530 Ref: gnome gobject gparameter gparameter:byte-order21567 Node: gnome gobject gclosure21604 Ref: gnome gobject gclosure 22739 Ref: gnome gobject gclosure gclosure-invoke22882 Node: gnome gobject gsignal23346 Ref: gnome gobject gsignal 24220 Ref: gnome gobject gsignal gtype-class-get-signals24350 Ref: gnome gobject gsignal gtype-class-get-signal-names24474 Ref: gnome gobject gsignal gtype-instance-signal-emit24611 Ref: gnome gobject gsignal gtype-instance-signal-connect24671 Ref: gnome gobject gsignal gtype-instance-signal-connect-after25173 Ref: gnome gobject gsignal gsignal-handler-block25336 Ref: gnome gobject gsignal gsignal-handler-unblock25394 Ref: gnome gobject gsignal gsignal-handler-disconnect25454 Ref: gnome gobject gsignal gsignal-handler-connected?25517 Ref: gnome gobject gsignal gtype-class-create-signal25580 Node: gnome gobject gobject26230 Ref: gnome gobject gobject 28133 Ref: gnome gobject gobject 29785 Ref: gnome gobject gobject 29884 Ref: gnome gobject gobject gtype-register-static29952 Ref: gnome gobject gobject gobject:get-property30212 Ref: gnome gobject gobject gobject:set-property30736 Ref: gnome gobject gobject gobject-class-get-properties31303 Ref: gnome gobject gobject gobject-class-find-property31354 Ref: gnome gobject gobject gobject-class-get-property-names31532 Ref: gnome gobject gobject gobject-get-property31587 Ref: gnome gobject gobject gobject-set-property31697 Node: gnome gobject generics31823 Ref: gnome gobject generics get36429 Ref: gnome gobject generics set36549 Ref: gnome gobject generics emit36685 Ref: gnome gobject generics connect36848 Ref: gnome gobject generics connect-after37127 Ref: gnome gobject generics block37320 Ref: gnome gobject generics unblock37447 Ref: gnome gobject generics disconnect37580 Ref: gnome gobject generics connected?37722 Ref: gnome gobject generics invoke37864 Ref: gnome gobject generics create-signal37987 Ref: gnome gobject generics get-signals38189 Ref: gnome gobject generics get-properties38313 Ref: gnome gobject generics get-property-names38448 Ref: gnome gobject generics find-property38595 Node: gnome gobject utils38745 Ref: gnome gobject utils GStudlyCapsExpand39003 Ref: gnome gobject utils gtype-name->scheme-name-alist39335 Ref: gnome gobject utils gtype-name->scheme-name39487 Ref: gnome gobject utils gtype-name->class-name39759 Ref: gnome gobject utils gtype-class-name->method-name39971 Ref: gnome gobject utils re-export-modules40253 Ref: gnome gobject utils define-macro-with-docs40414 Ref: gnome gobject utils define-with-docs40473 Ref: gnome gobject utils define-generic-with-docs40582 Ref: gnome gobject utils define-class-with-docs40714 Ref: gnome gobject utils unless40869 Ref: gnome gobject utils with-accessors40907 Node: gnome gw generics40954 Node: gnome gw support gobject41600 Ref: gnome gw support gobject 41986 Ref: gnome gw support gobject add-type-alias!42090 Ref: gnome gw support gobject lookup-type-by-alias42455 Ref: gnome gw support gobject add-type-rule!42800 Ref: gnome gw support gobject find-type-rule43143 Ref: gnome gw support gobject 43522 Ref: gnome gw support gobject 43601 Ref: gnome gw support gobject gtype-id43719 Ref: gnome gw support gobject 44316 Ref: gnome gw support gobject unwrap-null-checked44449 Ref: gnome gw support gobject wrap-instance!45025 Ref: gnome gw support gobject wrap-boxed!45472 Ref: gnome gw support gobject wrap-pointer!45715 Ref: gnome gw support gobject wrap-opaque-pointer!45979 Ref: gnome gw support gobject wrap-freeable-pointer!46264 Ref: gnome gw support gobject wrap-refcounted-pointer!46326 Ref: gnome gw support gobject wrap-structure!46395 Ref: gnome gw support gobject wrap-interface!46908 Ref: gnome gw support gobject wrap-flags!47165 Ref: gnome gw support gobject wrap-gobject-class!47414 Ref: gnome gw support gobject wrap-custom-boxed!47922 Ref: gnome gw support gobject wrap-custom-gvalue!48614 Node: gnome gw support defs49172 Ref: gnome gw support defs load-defs51826 Ref: gnome gw support defs load-defs-with-overrides52596 Node: gnome gw support gtk-doc52810 Ref: gnome gw support gtk-doc gtk-doc->texi-stubs56418 Ref: gnome gw support gtk-doc gtk-doc->texi-defuns56802 Ref: gnome gw support gtk-doc check-documentation-coverage57804 Ref: gnome gw support gtk-doc generate-undocumented-texi58227 Node: gnome gw support modules58531 Ref: gnome gw support modules export-all-lazy!58842 Ref: gnome gw support modules re-export-modules59465 Node: Type Index59589 Node: Function Index66389  End Tag Table guile-gnome-platform-2.16.2/glib/doc/gobject/guile-gnome-gobject.texi0000644000175000017500000020442511670374302026013 0ustar00wingowingo00000000000000\input texinfo @c -*-texinfo-*- @c %**start of header @setfilename guile-gnome-gobject.info @settitle Guile-GNOME: GObject @c %**end of header @copying This manual is for Guile-GNOME: GObject (version 2.16.0, updated 12 June 2008) Copyright 2003,2004,2005,2006,2007,2008 Free Software Foundation @quotation Permission is granted to copy, distribute and/or modify this document under the terms of the GNU General Public License, Version 2 or any later version published by the Free Software Foundation. @end quotation @end copying @dircategory The Algorithmic Language Scheme @direntry * Guile-GNOME: GObject: (guile-gnome-gobject.info). The GLib object system in Scheme. @end direntry @titlepage @title Guile-GNOME: GObject @subtitle version 2.16.0, updated 12 June 2008 @author Andy Wingo (@email{wingo at pobox.com}) @author Martin Baulig (@email{baulig at suse.de}) @page @vskip 0pt plus 1filll @insertcopying @end titlepage @ifnottex @node Top @top Guile-GNOME: GObject @insertcopying @menu * gnome-2:: Guile-GNOME is stable and parallel-installable * gnome gobject:: One module to bind them * gnome gobject gtype:: The base of the GObject type system * gnome gobject gvalue:: Generic boxed values * gnome gobject gparameter:: Parameters with constraints and default values * gnome gobject gclosure:: Language-portable closures * gnome gobject gsignal:: Using closures as extension points * gnome gobject gobject:: GLib's main object implementation * gnome gobject generics:: Shorthand for many common GObject operations * gnome gobject utils:: Miscellaneous useful functions * gnome gw generics:: A home for generated generic functions * gnome gw support gobject:: Integration between G-Wrap and GObject types * gnome gw support defs:: Create G-Wrap wrapsets from ``defs'' files * gnome gw support gtk-doc:: Parse C documentation from gtk-doc into texinfo * gnome gw support modules:: Fondling Guile's module system * Type Index:: * Function Index:: @end menu @end ifnottex @iftex @shortcontents @end iftex @node gnome-2 @chapter (gnome-2) @section Overview Selects version 2 of the Guile-GNOME libraries. This module is used for its side effects; it exports no procedures. @section Rationale Early in the development of guile-gnome, we realized that at some point we might need to make incompatible changes. Of course, we would not want to force a correctly-written program to break when guile-gnome gets upgraded. For this reason, we decided to make guile-gnome parallel-installable. A program is completely specified when it indicates which version of guile-gnome it should use. Guile-gnome has the concept of an API version, which indicates a stable API series. For example, a program written against API version 2 of guile-gnome will continue to work against all future releases of that API version. It is permitted to add interfaces within a stable series, but never to remove or change them incompatibly. Changing the API version is expected to be a relatively infrequent operation. The current API version is 2. There are two manners for a program to specify the guile-gnome version: @enumerate @item Via importing the @code{(gnome-@var{version})} module. This special module alters guile's load path to include the path of the specified API version of guile-gnome. For example: @lisp (use-modules (gnome-2)) @end lisp @item Via invoking guile as guile-gnome-@var{version}. This shell script is installed when building a particular version of guile-gnome, and serves to automatically load the @code{(gnome-@var{apiversion})} module. For example, to get a repl ready for guile-gnome: @example $ guile-gnome-2 @end example To load a script with a particular version of guile-gnome: @example $ guile-gnome-2 -s @var{script} @var{args...} @end example To specify the guile-gnome version in a script, you might begin the file with: @example #! /bin/sh # -*- scheme -*- exec guile-gnome-2 -s $0 !# ;; scheme code here... @end example @end enumerate A program must select the guile-gnome version before importing any guile-gnome modules. Indeed, one cannot even import @code{(gnome gobject)} before doing so. For a further rationale on parallel installability, see @uref{http://ometer.com/parallel.html}. @section Usage @node gnome gobject @chapter (gnome gobject) @section Overview This is the Guile wrapper of @code{libgobject}, an implementation of a runtime, dynamic type system for C. Besides providing an object system to C, @code{libgobject}'s main design goal was to increase the ease with which C code can be wrapped by interpreted languages, such as Guile or Perl. This module, @code{(gnome gobject)}, just re-exports procedures from other modules, so its documentation seems an opportune spot for a more tutorial-like introduction. So open up a Guile session and let's begin. First, if you haven't done it, load the appropriate version of Guile-GNOME: @lisp guile> (use-modules (gnome-2)) @end lisp @code{(gnome gobject)} is based heavily on GOOPS, Guile's object system, so go ahead and load up that too: @lisp guile> (use-modules (oop goops)) @end lisp We will leave off the @code{guile>} prompt in the rest of this tutorial. When we want to show the value of an expression, we use @result{}: @lisp (+ 3 5) @result{} 8 @end lisp @section Basic types When communicating with @code{libgobject}, most values need to be strictly-typed. There is a type class corresponding to each basic type in C: @code{}, @code{}, @code{}, @code{}, @code{}, @code{}, @code{}, @code{}, @code{}, @code{}, @code{}, and @code{}. You can make instances of these class with @code{make}: @lisp (make #:value #f) @result{} # 40529040 #f> (make #:value 85) @result{} # 4054f040 85> (make #:value 3.1415) @result{} # 40556af0 3.1414999961853> (make #:value "Hello World!") @result{} # 4055af90 Hello World!> @end lisp You can get the normal Scheme values back with @code{gvalue->scm}: @lisp (gvalue->scm (make #:value "Hello World!")) @result{} "Hello World!" @end lisp @section Enums and flags Enumerated values and bitflags are an essential part of many C APIs, and so they are specially wrapped in the GLib type system. You can create new enumerated types in Scheme by subclassing @code{}: @lisp (define-class () #:vtable '#((hello "Hello World" 1) (test "Test" 2))) @end lisp Instances are created with @code{make}, just like with the other types: @lisp (make #:value 'hello) (make #:value "Hello World") (make #:value 1) ;; These three all do the same thing @result{} # 406275f8 (hello Hello World 1)> @end lisp If there is an already existing enum or flags class, you can get information about it: @lisp (genum-class->value-table ) @result{} #((hello "Hello World" 1) (test "Test" 2)) @end lisp Enums and flags have a special representation on the Scheme side. You can convert them to Scheme values as symbols, names, or as a numeric value. @lisp (define foo (make #:value 'hello)) (genum->symbol foo) @result{} hello (genum->name foo) @result{} "Hello World" (genum->value foo) @result{} 1 @end lisp @section GType All of the types that GLib knows about are available to Guile, regardless of which language defined them. GLib implements this via a type system, where every type has a name. So if you make a type called ``Foo'' in C, you can get to it in Scheme via @code{gtype-name->class}: @lisp ;; Retrieve the type for the foo enum we made earlier in the tutorial (define copy-of- (gtype-name->class "Foo")) (eq? copy-of-) @result{} #t (make copy-of- #:value 2) @result{} # 40535e50 (test Test 2)> @end lisp @section GObject @code{} (@code{GObject} in C) is the basic object type in @code{libgobject}. @code{(gnome gobject)} allows you to access existing GObject types, as well as to create new GObject types in Scheme. Before we start, let's pull in some generic functions that reduce the amount of typing we have to do: @lisp (use-modules (gnome gobject generics)) @end lisp Let's assume we start with @code{} from @code{(gnome gtk)}. The keyword arguments to @code{make} are interpreted as GObject properties to set: @lisp (define window (make #:type 'toplevel #:title "Hello, World!")) @end lisp You can connect to signals on the new instance: @lisp (connect window 'delete-event (lambda (window event) ;; Returns #t to ignore this event #t)) ;; connect is a generic function implemented by ;; gtype-instance-signal-connect @end lisp And get and set properties... @lisp (get window 'title) @result{} "Hello, World!" (set window 'resizable #f) ;; get and set are also generics, implemented by gobject-get-property ;; and gobject-set-property @end lisp @section Deriving your own GObject types You can create new GObject types directly from Scheme, deriving either from a C object type or one you made in Scheme. @lisp ;; deriving from (define-class () ;; a normal object slot my-data ;; an object slot exported as a gobject property (pub-data #:gparam (list #:name 'test)) ;; a signal with no arguments and no return value #:gsignal '(frobate #f)) ;; deriving from -- also inherits properties and signals (define-class ()) @end lisp Adding a signal automatically defines the default method: @lisp ;; This is the default handler for this signal. (define-method (test:frobate (object )) (format #t "Frobating ~A\n" object)) ;; We can override it for subclasses (define-method (test:frobate (object )) (next-method) ;; chain up (format #t "I'm hungry\n")) (emit (make ) 'frobate) ;; Try it! @end lisp You can override the @code{initialize}, @code{gobject:get-property}, and @code{gobject:set-property} methods. For an extended example, see @code{tic-tac-toe.scm} in the @code{gtk/examples/gtk} directory of the distribution. @section Usage @node gnome gobject gtype @chapter (gnome gobject gtype) @section Overview Base support for the GLib type system. The GLib runtime type system is broken into a number of modules, of which GType is the base. A GType is a simply a named type. Some types are fundamental and cannot be subclassed, such as integers. Others can form the root of complicated object hierarchies, such as @code{}. One can obtain the class for a type if you know its name. For example, @lisp (gtype-name->class "guint64") @result{} #< > @end lisp A more detailed reference on the GLib type system may be had at @uref{http://library.gnome.org/devel/gobject/stable/}. @section Usage @anchor{gnome gobject gtype }@deftp Class The metaclass of all GType classes. Ensures that GType classes have a @code{gtype} slot, which records the primitive GType information for this class. @end deftp @anchor{gnome gobject gtype }@deftp Class The root class of all instantiatable GType classes. Adds a slot, @code{gtype-instance}, to instances, which holds a pointer to the C value. @end deftp @anchor{gnome gobject gtype gtype-name->class}@deffn Primitive gtype-name->class name Return the @code{} associated with the GType, @var{name}. @end deffn @anchor{gnome gobject gtype class-name->gtype-name}@defun class-name->gtype-name class-name Convert the name of a class into a suitable name for a GType. For example: @lisp (class-name->gtype-name ') @result{} "FooBar" @end lisp @end defun @anchor{gnome gobject gtype gruntime-error}@defun gruntime-error format-string . args Signal a runtime error. The error will be thrown to the key @code{gruntime-error}. @end defun @anchor{gnome gobject gtype gtype-instance-destroy!}@deffn Primitive gtype-instance-destroy! instance Release all references that the Scheme wrapper @var{instance} has on the underlying C value, and release pointers associated with the C value that point back to Scheme. Normally, you don't need to call this function, because garbage collection will take care of resource management. However some @code{} instances have semantics that require this function. The canonical example is that when a @code{} emits the @code{destroy} signal, all code should drop their references to the object. This is, of course, handled internally in the @code{(gnome gtk)} module. @end deffn @node gnome gobject gvalue @chapter (gnome gobject gvalue) @section Overview GLib supports generic typed values via its GValue module. These values are wrapped in Scheme as instances of @code{} classes, such as @code{}, @code{}, etc. In most cases, use of @code{} is transparent to the Scheme user. Values which can be represented directly as Scheme values are normally given to the user in their Scheme form, e.g. @code{#\a} instead of @code{# 3020c708 a>}. However, when dealing with low-level routines it is sometimes necessary to have values in @code{} form. The conversion between the two is performed via the @code{scm->gvalue} and @code{gvalue->scm} functions. The other set of useful procedures exported by this module are those dealing with enumerated values and flags. These objects are normally represented on the C side with integers, but they have symbolic representations registered in the GLib type system. On the Scheme side, enumerated and flags values are canonically expressed as @code{} objects. They can be converted to integers or symbols using the conversion procedures exported by this module. It is conventional for Scheme procedures that take enumerated values to accept any form for the values, which can be canonicalized using @code{(make #:value @var{value})}, where @var{value} can be an integer, a symbol (or symbol list in the case of flags), or the string ``nickname'' (or string list) of the enumerated/flags value. @section Usage @anchor{gnome gobject gvalue }@deftp Class @end deftp @anchor{gnome gobject gvalue }@deftp Class A @code{} class for boolean values. @end deftp @anchor{gnome gobject gvalue }@deftp Class A @code{} class for signed 8-bit values. @end deftp @anchor{gnome gobject gvalue }@deftp Class A @code{} class for unsigned 8-bit values. @end deftp @anchor{gnome gobject gvalue }@deftp Class A @code{} class for signed 32-bit values. @end deftp @anchor{gnome gobject gvalue }@deftp Class A @code{} class for unsigned 32-bit values. @end deftp @anchor{gnome gobject gvalue }@deftp Class A @code{} class for signed ``long'' (32- or 64-bit) values. @end deftp @anchor{gnome gobject gvalue }@deftp Class A @code{} class for unsigned ``long'' (32- or 64-bit) values. @end deftp @anchor{gnome gobject gvalue }@deftp Class A @code{} class for signed 64-bit values. @end deftp @anchor{gnome gobject gvalue }@deftp Class A @code{} class for unsigned 64-bit values. @end deftp @anchor{gnome gobject gvalue }@deftp Class A @code{} class for 32-bit floating-point values. @end deftp @anchor{gnome gobject gvalue }@deftp Class A @code{} class for 64-bit floating-point values. @end deftp @anchor{gnome gobject gvalue }@deftp Class A @code{} class for arrays of 8-bit values (C strings). @end deftp @anchor{gnome gobject gvalue }@deftp Class A @code{} class for ``boxed'' types, a way of wrapping generic C structures. You won't see instances of this class, only of its subclasses. @end deftp @anchor{gnome gobject gvalue }@deftp Class A @code{} class for holding arbitrary Scheme objects. @end deftp @anchor{gnome gobject gvalue }@deftp Class A @code{} class for arrays of @code{}. @end deftp @anchor{gnome gobject gvalue }@deftp Class A @code{} class for opaque pointers. @end deftp @anchor{gnome gobject gvalue }@deftp Class A @code{} base class for enumerated values. Users may define new enumerated value types via subclssing from @code{}, passing @code{#:vtable @var{table}} as an initarg, where @var{table} should be in a format suitable for passing to @code{genum-register-static}. @end deftp @anchor{gnome gobject gvalue }@deftp Class A @code{} base class for flag values. Users may define new flag value types via subclssing from @code{}, passing @code{#:vtable @var{table}} as an initarg, where @var{table} should be in a format suitable for passing to @code{gflags-register-static}. @end deftp @anchor{gnome gobject gvalue genum-register-static}@deffn Primitive genum-register-static name vtable Creates and registers a new enumerated type with name @var{name} with the C runtime. There must be no type with name @var{name} when this function is called. The new type can be accessed by using @code{gtype-name->class}. @var{vtable} is a vector describing the new enum type. Each vector element describes one enum element and must be a list of 3 elements: the element's nick name as a symbol, its name as a string, and its integer value. @lisp (genum-register-static "Test" #((foo "Foo" 1) (bar "Bar" 2) (baz "Long name of baz" 4))) @end lisp @end deffn @anchor{gnome gobject gvalue gflags-register-static}@deffn Primitive gflags-register-static name vtable Creates and registers a new flags @code{} with name @var{name} with the C runtime. The @var{vtable} should be in the format described in the documentation for @code{genum-register-static}. @end deffn @anchor{gnome gobject gvalue genum-class->value-table}@deffn Primitive genum-class->value-table class Return a table of the values supported by the enumerated @code{} @var{class}. The return value will be in the format described in @code{genum-register-static}. @end deffn @anchor{gnome gobject gvalue gflags-class->value-table}@deffn Primitive gflags-class->value-table class Return a table of the values supported by the flag @code{} @var{class}. The return value will be in the format described in @code{gflags-register-static}. @end deffn @anchor{gnome gobject gvalue scm->gvalue}@deffn Primitive scm->gvalue class scm Convert a Scheme value into a @code{} of type @var{class}. If the conversion is not possible, raise a @code{gruntime-error}. @end deffn @anchor{gnome gobject gvalue gvalue->scm}@deffn Primitive gvalue->scm value Convert a @code{} into it normal scheme representation, for example unboxing characters into Scheme characters. Note that the Scheme form for some values is the @code{} form, for example with boxed or enumerated values. @end deffn @anchor{gnome gobject gvalue genum->symbol}@defun genum->symbol obj Convert the enumerated value @var{obj} from a @code{} to its symbol representation (its ``nickname''). @end defun @anchor{gnome gobject gvalue genum->name}@defun genum->name obj Convert the enumerated value @var{obj} from a @code{} to its representation as a string (its ``name''). @end defun @anchor{gnome gobject gvalue genum->value}@deffn Primitive genum->value value Convert the enumerated value @var{obj} from a @code{} to its representation as an integer. @end deffn @anchor{gnome gobject gvalue gflags->value}@deffn Primitive gflags->value value Convert the flags value @var{obj} from a @code{} to its representation as an integer. @end deffn @anchor{gnome gobject gvalue gflags->symbol-list}@defun gflags->symbol-list obj Convert the flags value @var{obj} from a @code{} to a list of the symbols that it represents. @end defun @anchor{gnome gobject gvalue gflags->name-list}@defun gflags->name-list obj Convert the flags value @var{obj} from a @code{} to a list of strings, the names of the values it represents. @end defun @anchor{gnome gobject gvalue gflags->value-list}@defun gflags->value-list obj Convert the flags value @var{obj} from a @code{} to a list of integers, which when @code{logand}'d together yield the flags' value. @end defun @node gnome gobject gparameter @chapter (gnome gobject gparameter) @section Overview Parameters are constraints for values, both in type and in range. This module wraps the parameters code of the GLib type system, allowing parameters to be manipulated and created from Scheme. There is a parameter class for each type of parameter: @code{}, @code{}, etc. @section Usage @anchor{gnome gobject gparameter }@deftp Class The base class for GLib parameter objects. (Doc slots) @end deftp @anchor{gnome gobject gparameter }@deftp Class Parameter for @code{} values. @end deftp @anchor{gnome gobject gparameter }@deftp Class Parameter for @code{} values. @end deftp @anchor{gnome gobject gparameter }@deftp Class Parameter for @code{} values. @end deftp @anchor{gnome gobject gparameter }@deftp Class Parameter for @code{} values. @end deftp @anchor{gnome gobject gparameter }@deftp Class Parameter for @code{} values. @end deftp @anchor{gnome gobject gparameter }@deftp Class Parameter for @code{} values. @end deftp @anchor{gnome gobject gparameter }@deftp Class Parameter for @code{} values. @end deftp @anchor{gnome gobject gparameter }@deftp Class Parameter for @code{} values. @end deftp @anchor{gnome gobject gparameter }@deftp Class Parameter for @code{} values. @end deftp @anchor{gnome gobject gparameter }@deftp Class Parameter for @code{} values. @end deftp @anchor{gnome gobject gparameter }@deftp Class Parameter for @code{} values. @end deftp @anchor{gnome gobject gparameter }@deftp Class Parameter for Unicode codepoints, represented as @code{} values. @end deftp @anchor{gnome gobject gparameter }@deftp Class Parameter for @code{} values. @end deftp @anchor{gnome gobject gparameter }@deftp Class Parameter for @code{} values. @end deftp @anchor{gnome gobject gparameter }@deftp Class Parameter for @code{} values. @end deftp @anchor{gnome gobject gparameter }@deftp Class Parameter for @code{} values. @end deftp @anchor{gnome gobject gparameter }@deftp Class Parameter for @code{} values. @end deftp @anchor{gnome gobject gparameter }@deftp Class A @code{} type for the flags allowable on a @code{}: @code{read}, @code{write}, @code{construct}, @code{construct-only}, and @code{lax-validation}. @end deftp @anchor{gnome gobject gparameter gparameter:uint-max}@defvar gparameter:uint-max @end defvar @anchor{gnome gobject gparameter gparameter:int-min}@defvar gparameter:int-min @end defvar @anchor{gnome gobject gparameter gparameter:int-max}@defvar gparameter:int-max @end defvar @anchor{gnome gobject gparameter gparameter:ulong-max}@defvar gparameter:ulong-max @end defvar @anchor{gnome gobject gparameter gparameter:long-min}@defvar gparameter:long-min @end defvar @anchor{gnome gobject gparameter gparameter:long-max}@defvar gparameter:long-max @end defvar @anchor{gnome gobject gparameter gparameter:uint64-max}@defvar gparameter:uint64-max @end defvar @anchor{gnome gobject gparameter gparameter:int64-min}@defvar gparameter:int64-min @end defvar @anchor{gnome gobject gparameter gparameter:int64-max}@defvar gparameter:int64-max @end defvar @anchor{gnome gobject gparameter gparameter:float-max}@defvar gparameter:float-max @end defvar @anchor{gnome gobject gparameter gparameter:float-min}@defvar gparameter:float-min @end defvar @anchor{gnome gobject gparameter gparameter:double-max}@defvar gparameter:double-max @end defvar @anchor{gnome gobject gparameter gparameter:double-min}@defvar gparameter:double-min @end defvar @anchor{gnome gobject gparameter gparameter:byte-order}@defvar gparameter:byte-order @end defvar @node gnome gobject gclosure @chapter (gnome gobject gclosure) @section Overview The GLib type system supports the creation and invocation of ``closures'', objects which can be invoked like procedures. Its infrastructure allows one to pass a Scheme function to C, and have C call into Scheme, and vice versa. In Scheme, @code{} holds a Scheme procedure, the @code{} of its return value, and a list of the @code{}'s of its arguments. Closures can be invoked with @code{gclosure-invoke}. However since on the C level, closures do not carry a description of their argument and return types, when we invoke a closure we have to be very explicit about the types involved. For example: @lisp (gclosure-invoke (make #:return-type #:param-types (list ) #:func (lambda (x) (* x x))) (scm->gvalue 10)) @result{} 100 @end lisp @section Usage @anchor{gnome gobject gclosure }@deftp Class The Scheme representation of a GLib closure: a typed procedure object that can be passed to other languages. @end deftp @anchor{gnome gobject gclosure gclosure-invoke}@deffn Primitive gclosure-invoke closure return_type args Invoke a closure. A @code{} in GLib's abstraction for a callable object. This abstraction carries no type information, so the caller must supply all arguments as typed instances, which may be obtained by the scheme procedure, @code{scm->gvalue}. As you can see, this is a low-level function. In fact, it is not used internally by the @code{guile-gobject} bindings. @end deffn @node gnome gobject gsignal @chapter (gnome gobject gsignal) @section Overview GSignal is a mechanism by which code, normally written in C, may expose extension points to which closures can be connected, much like Guile's hooks. Instantiatable types can have signals associated with them; for example, @code{} has an @code{expose} signal that will be ``fired'' at certain well-documented points. Signals are typed. They specify the types of their return value, and the types of their arguments. This module defines routines for introspecting, emitting, connecting to, disconnecting from, blocking, and unblocking signals. Additionally it defines routines to define new signal types on instantiatable types. @section Usage @anchor{gnome gobject gsignal }@deftp Class A @code{} describes a signal on a @code{}: its name, and how it should be called. @end deftp @anchor{gnome gobject gsignal gtype-class-get-signals}@deffn Primitive gtype-class-get-signals class tail Returns a list of signals belonging to @var{class} and all parent types. @end deffn @anchor{gnome gobject gsignal gtype-class-get-signal-names}@defun gtype-class-get-signal-names class Returns a vector of signal names belonging to @var{class} and all parent classes. @end defun @anchor{gnome gobject gsignal gtype-instance-signal-emit}@deffn Primitive gtype-instance-signal-emit object name args @end deffn @anchor{gnome gobject gsignal gtype-instance-signal-connect}@defun gtype-instance-signal-connect object name func . after? Connects @var{func} as handler for the @code{} @var{object}'s signal @var{name}. @var{name} should be a symbol. @var{after} is boolean specifying whether the handler is run before (@code{#f}) or after (@code{#t}) the signal's default handler. Returns an integer number which can be used as arugment of @code{gsignal-handler-block}, @code{gsignal-handler-unblock}, @code{gsignal-handler-disconnect} and @code{gsignal-handler-connected?}. @end defun @anchor{gnome gobject gsignal gtype-instance-signal-connect-after}@defun gtype-instance-signal-connect-after object name func Convenience function for calling @code{gtype-instance-signal-connect} with @var{after} = @code{#t}. @end defun @anchor{gnome gobject gsignal gsignal-handler-block}@deffn Primitive gsignal-handler-block instance handler_id @end deffn @anchor{gnome gobject gsignal gsignal-handler-unblock}@deffn Primitive gsignal-handler-unblock instance handler_id @end deffn @anchor{gnome gobject gsignal gsignal-handler-disconnect}@deffn Primitive gsignal-handler-disconnect instance handler_id @end deffn @anchor{gnome gobject gsignal gsignal-handler-connected?}@deffn Primitive gsignal-handler-connected? instance handler_id @end deffn @anchor{gnome gobject gsignal gtype-class-create-signal}@defun gtype-class-create-signal class name return-type param-types Create a new signal associated with the @code{} @var{class}. @var{name} should be a symbol, the name of the signal. @var{return-type} should be a @code{} object. @var{param-types} should be a list of @code{} objects. In a bit of an odd interface, this function will return a new generic function, which will be run as the signal's default handler, whose default method will silently return an unspecified value. The user may define new methods on this generic to provide alternative default handler implementations. @end defun @node gnome gobject gobject @chapter (gnome gobject gobject) @section Overview GObject is what is commonly understood as @emph{the} object system for GLib. This is not strictly true. GObject is @emph{one} implementation of an object system, built on the other modules: GType, GValue, GParameter, GClosure, and GSignal. Similarly, this Guile module provides integration with the GObject object system, built on the Guile modules that support GType, GValue, GParameter, GClosure, and GSignal. The main class exported by this module is @code{}. @code{} classes can be subclassed by the user, which will register new subtypes with the GType runtime type system. @code{} classes are are also created as needed when wrapping GObjects that come from C, for example from a function's return value. Besides supporting derivation, and signals like other @code{} implementations, @code{} has the concept of @dfn{properties}, which are @code{}'s associated with the object. The values are constrained by @code{}'s, which are associated with the object's class. This module exports the necessary routines to query, get, and set @code{} properties. In addition, this module defines the @code{} base class, whose subclasses may be present as mixins of @code{} classes. For example: @lisp (use-modules (gnome gtk) (oop goops)) (class-direct-supers ) @result{} (#< 3033bad0> #< 3034bc90>) @end lisp In this example, we see that @code{} has two superclasses, @code{} and @code{}. The second is an interface implemented by the @code{} class. See @code{gtype-interfaces} for more details. @section Usage @anchor{gnome gobject gobject }@deftp Class The base class for GLib's default object system. @code{}'s metaclass understands a new slot option, @code{#:gparam}, which will export a slot as a @code{} property. The default implementation will set and access the value from the slot, but you can customize this by writing your own methods for @code{gobject:set-property} and @code{gobject:get-property}. In addition, the metaclass also understands @code{#:gsignal} arguments, which define signals on the class, and define the generics for the default signal handler. See @code{gtype-class-define-signal} for more information. For example: @lisp ;; deriving from (define-class () ;; a normal object slot my-data ;; an object slot exported as a gobject property (pub-data #:gparam (list #:name 'test)) ;; likewise, using non-default parameter settings (foo-data #:gparam (list #:name 'foo #:minimum -3 #:maximum 1000 #:default-value 42)) ;; a signal with no arguments and no return value #:gsignal '(frobate #f) ;; a signal with arguments and a return value #:gsignal (list 'frobate )) ;; deriving from -- also inherits properties and signals (define-class ()) @end lisp @code{} classes also expose a slot for each GObject property defined on the class, if such a slot is not already defined. @end deftp @anchor{gnome gobject gobject }@deftp Class The base class for GLib's interface types. Not derivable in Scheme. @end deftp @anchor{gnome gobject gobject }@deftp Class Parameter for @code{} values. @end deftp @anchor{gnome gobject gobject gtype-register-static}@deffn Primitive gtype-register-static name parent_class Derive a new type named @var{name} from @var{parent_class}. Returns the new @code{}. This function is called when deriving from @code{}; users do not normally call this function directly. @end deffn @anchor{gnome gobject gobject gobject:get-property}@deffn Generic gobject:get-property Called to get a gobject property. Only properties directly belonging to the object's class will come through this function; superclasses handle their own properties. Takes two arguments: the object and the property name. Call @code{(next-method)} in your methods to invoke the default handler @end deffn @deffn Method gobject:get-property (@var{object} @code{}) (@var{name} @code{}) The default implementation of @code{gobject:get-property}, which calls @code{(slot-ref obj name)}. @end deffn @anchor{gnome gobject gobject gobject:set-property}@deffn Generic gobject:set-property Called to set a gobject property. Only properties directly belonging to the object's class will come through this function; superclasses handle their own properties. Takes three arguments: the object, the property name, and the value. Call @code{(next-method)} in your methods to invoke the default handler. @end deffn @deffn Method gobject:set-property (@var{object} @code{}) (@var{name} @code{}) (@var{value} @code{}) The default implementation of @code{gobject:set-property}, which sets slots on the object. @end deffn @anchor{gnome gobject gobject gobject-class-get-properties}@deffn Primitive gobject-class-get-properties class @end deffn @anchor{gnome gobject gobject gobject-class-find-property}@defun gobject-class-find-property class name Returns a property named @var{name} (a symbol), belonging to @var{class} or one of its parent classes, or @code{#f} if not found. @end defun @anchor{gnome gobject gobject gobject-class-get-property-names}@deffn Primitive gobject-class-get-property-names class @end deffn @anchor{gnome gobject gobject gobject-get-property}@deffn Primitive gobject-get-property object name Gets a the property named @var{name} (a symbol) from @var{object}. @end deffn @anchor{gnome gobject gobject gobject-set-property}@deffn Primitive gobject-set-property object name value Sets the property named @var{name} (a symbol) on @var{object} to @var{init-value}. @end deffn @node gnome gobject generics @chapter (gnome gobject generics) @section Overview Generic functions for procedures in the @code{(gnome gobject)} module. @subsection Mapping class libraries to Scheme Guile-GNOME exists to wrap a C library, @code{libgobject}, its types, and the set of libraries that based themselves on the GLib types. Procedure invocation feels very similar in Scheme and in C. For example, the C @code{gtk_widget_show (widget)} transliterates almost exactly to the Scheme @code{(gtk-widget-show widget)}. GLib-based libraries are not random collections of functions, however. GLib-based libraries also implement classes and methods, insofar that it is possible in C. For example, in the above example, @code{show} may be seen to be a method on instances of the @code{} class. Indeed, other object-oriented languages such as Python express this pattern directly, translating the @code{show} operation as the pleasantly brief @code{widget.show()}. However this representation of methods as being bound to instances, while common, has a number of drawbacks. The largest drawback is that the method itself is not bound to a generic operation. For example, mapping the @code{show} operation across a set of widgets cannot be done with the straightforward @code{map(show, set)}, because there is no object for the @code{show} operation. Instead the user must locally bind each widget to a variable in order to access a method of the abstract @code{show} operation: @code{map(lambda widget: widget.show(), set)}. Additionally, most languages which express methods as bound to instances only select the method via the type of the first (implicit) argument. The rule for these lanugages is, ``@code{gtk-widget-show} is an applicable method of the @code{show} operation when the first argument to @code{show} is a @code{}.'' Note the lack of specification for other arguments; the same object cannot have two applicable methods of the @code{show} operation. A more complete specification would be, ``@code{gtk-widget-show} is an applicable method of the @code{show} operation when applied to one argument, a @code{}.'' It is a fine difference, but sometimes important. For these and other reasons, the conventional way to implement generic operations in Lisp has been to define @dfn{generic functions}, and then associate specific methods with those functions. For example, one would write the following: @lisp ;; defining a generic function, and one method implementation (define-generic show) (define-method (show (widget )) (gtk-widget-show widget)) ;; invoking the generic function (show my-widget) @end lisp One benefit of this approach is that method definitions can be made far away in space and time from type definitions. This leads to a more dynamic environment, in which methods can be added to existing types at runtime, which then can apply to existing instances. @subsection The semantics of generic functions in Guile-GNOME Naturally, there is an impedance mismatch between the conventions used in the C libraries and their Scheme equivalents. Operations in GLib-based libraries do not form a coherent whole, in the sense that there is no place that defines the meaning of an abstract @code{show} operation. For example, @code{gtk-widget-set-state}, which can make a widget become uneditable, and @code{gst-element-set-state}, which can start a video player, would both map to the generic function @code{set-state}, even though they have nothing to do with each other besides their name. There is no conflict here; the methods apply on disjoint types. However there is a problem of modularity, in that @emph{both methods must be defined on the same generic function}, so that @code{(set-state foo bar)} picks the correct method, depending on the types of @var{foo} and @var{bar}. This point leads to the conclusion that @emph{generic functions in Guile-GNOME have no abstract meaning, apart from their names}. Semantically, generics in Guile-GNOME are abbreviations to save typing, not abstract operations with defined meanings. @subsection Practicalities This module defines a number of ``abbreviations'', in the form of generic functions, for operations on types defined in the @code{(gnome gobject)} modules. Generic functions for generated bindings like @code{(gnome gtk)} are defined in another module, @code{(gnome gw generics)}, which re-exports the public bindings from this module. @section Usage @anchor{gnome gobject generics get}@deffn Generic get @end deffn @deffn Method get (@var{object} @code{}) (@var{name} @code{}) A shorthand for @code{gobject-get-property}. @end deffn @anchor{gnome gobject generics set}@deffn Generic set @end deffn @deffn Method set (@var{object} @code{}) (@var{name} @code{}) (@var{value} @code{}) A shorthand for @code{gobject-set-property}. @end deffn @anchor{gnome gobject generics emit}@deffn Generic emit @end deffn @deffn Method emit (@var{object} @code{}) (@var{name} @code{}) (@var{args} @code{})... A shorthand for @code{gtype-instance-signal-emit}. @end deffn @anchor{gnome gobject generics connect}@deffn Generic connect @end deffn @deffn Method connect (@var{object} @code{}) (@var{name} @code{}) (@var{func} @code{}) A shorthand for @code{gtype-instance-signal-connect}. @end deffn @deffn Method connect (@var{args} @code{})... The core Guile implementation of the connect(2) POSIX call @end deffn @anchor{gnome gobject generics connect-after}@deffn Generic connect-after @end deffn @deffn Method connect-after (@var{object} @code{}) (@var{name} @code{}) (@var{func} @code{}) A shorthand for @code{gtype-instance-signal-connect-after}. @end deffn @anchor{gnome gobject generics block}@deffn Generic block @end deffn @deffn Method block (@var{object} @code{}) (@var{id} @code{}) A shorthand for @code{gsignal-handler-block}. @end deffn @anchor{gnome gobject generics unblock}@deffn Generic unblock @end deffn @deffn Method unblock (@var{object} @code{}) (@var{id} @code{}) A shorthand for @code{gsignal-handler-unblock}. @end deffn @anchor{gnome gobject generics disconnect}@deffn Generic disconnect @end deffn @deffn Method disconnect (@var{object} @code{}) (@var{id} @code{}) A shorthand for @code{gsignal-handler-disconnect}. @end deffn @anchor{gnome gobject generics connected?}@deffn Generic connected? @end deffn @deffn Method connected? (@var{object} @code{}) (@var{id} @code{}) A shorthand for @code{gsignal-handler-connected?}. @end deffn @anchor{gnome gobject generics invoke}@deffn Generic invoke @end deffn @deffn Method invoke (@var{closure} @code{}) (@var{args} @code{})... A shorthand for @code{gclosure-invoke}. @end deffn @anchor{gnome gobject generics create-signal}@deffn Generic create-signal @end deffn @deffn Method create-signal (@var{class} @code{}) (@var{name} @code{}) (@var{return-type} @code{}) (@var{param-types} @code{}) A shorthand for @code{gtype-class-create-signal}. @end deffn @anchor{gnome gobject generics get-signals}@deffn Generic get-signals @end deffn @deffn Method get-signals (@var{class} @code{}) A shorthand for @code{gtype-class-get-signals}. @end deffn @anchor{gnome gobject generics get-properties}@deffn Generic get-properties @end deffn @deffn Method get-properties (@var{class} @code{}) A shorthand for @code{gobject-class-get-properties}. @end deffn @anchor{gnome gobject generics get-property-names}@deffn Generic get-property-names @end deffn @deffn Method get-property-names (@var{class} @code{}) A shorthand for @code{gobject-class-get-property-names}. @end deffn @anchor{gnome gobject generics find-property}@deffn Generic find-property @end deffn @deffn Method find-property (@var{class} @code{}) (@var{name} @code{}) A shorthand for @code{gobject-class-find-property}. @end deffn @node gnome gobject utils @chapter (gnome gobject utils) @section Overview @c Common utility routines. @section Usage @anchor{gnome gobject utils GStudlyCapsExpand}@defun GStudlyCapsExpand nstr Expand the StudlyCaps @var{nstr} to a more schemey-form, according to the conventions of GLib libraries. For example: @lisp (GStudlyCapsExpand "GSource") @result{} g-source (GStudlyCapsExpand "GtkIMContext") @result{} gtk-im-context (GStudlyCapsExpand "GtkHBox") @result{} gtk-hbox @end lisp @end defun @anchor{gnome gobject utils gtype-name->scheme-name-alist}@defvar gtype-name->scheme-name-alist An alist of exceptions to the name transformation algorithm implemented in @code{GStudlyCapsExpand}. @end defvar @anchor{gnome gobject utils gtype-name->scheme-name}@defun gtype-name->scheme-name type-name Transform a name of a @code{}, such as "GtkWindow", to a scheme form, such as @code{gtk-window}, taking into account the exceptions in @code{gtype-name->scheme-name-alist}, and trimming trailing dashes if any. @end defun @anchor{gnome gobject utils gtype-name->class-name}@defun gtype-name->class-name type-name Transform a name of a @code{}, such as "GtkWindow", to a suitable name of a Scheme class, such as @code{}. Uses @code{gtype-name->scheme-name}. @end defun @anchor{gnome gobject utils gtype-class-name->method-name}@defun gtype-class-name->method-name class-name name Generate the name of a method given the name of a @code{} and the name of the operation. For example: @lisp (gtype-name->method-name "GtkFoo" "bar") @result{} gtk-foo:bar @end lisp Uses @code{gtype-name->scheme-name}. @end defun @anchor{gnome gobject utils re-export-modules}@defspec re-export-modules . args Re-export the public interface of a module or modules. Invoked as @code{(re-export-modules (mod1) (mod2)...)}. @end defspec @anchor{gnome gobject utils define-macro-with-docs}@defspec define-macro-with-docs form docs . body @end defspec @anchor{gnome gobject utils define-with-docs}@defspec define-with-docs name docs val Define @var{name} as @var{val}, documenting the value with @var{docs}. @end defspec @anchor{gnome gobject utils define-generic-with-docs}@defspec define-generic-with-docs name documentation Define a generic named @var{name}, with documentation @var{documentation}. @end defspec @anchor{gnome gobject utils define-class-with-docs}@defspec define-class-with-docs name supers docs . rest Define a class named @var{name}, with superclasses @var{supers}, with documentation @var{docs}. @end defspec @anchor{gnome gobject utils unless}@defspec unless test . body @end defspec @anchor{gnome gobject utils with-accessors}@defspec with-accessors names . body @end defspec @node gnome gw generics @chapter (gnome gw generics) @section Overview This module exists so that all @code{(gnome gw)} modules have a common place to put their generic functions. Whenever a wrapset is loaded, it adds method definitions to generics defined in this module. See the documentation for @code{(gnome gobject generics)} for more notes about generic functions in Guile-GNOME. This module re-exports bindings from @code{(gnome gobject generics)}, so there is no need to import them both. @section Usage @node gnome gw support gobject @chapter (gnome gw support gobject) @section Overview @c G-Wrap support for @code{(gnome gobject)} types. Code in this module is only loaded when generating wrapsets; as such, it is not for end users. @section Usage @anchor{gnome gw support gobject }@deftp Class The base class for G-Wrap wrapsets that use @code{} types. @end deftp @anchor{gnome gw support gobject add-type-alias!}@deffn Generic add-type-alias! @end deffn @deffn Method add-type-alias! (@var{wrapset} @code{}) (@var{alias} @code{}) (@var{name} @code{}) Add a type alias to @var{wrapset}, that the string @var{alias} is associated with the type named @var{symbol}. For example, @code{"GtkWindow*"} might be associated with a type named @code{}. See @code{lookup-type-by-alias}. @end deffn @anchor{gnome gw support gobject lookup-type-by-alias}@deffn Generic lookup-type-by-alias @end deffn @deffn Method lookup-type-by-alias (@var{wrapset} @code{}) (@var{name} @code{}) Lookup a type aliased @var{name} in @var{wrapset}, and all wrapsets on which @var{wrapset} depends. This interface is used by @code{load-defs} to associate G-Wrap types with the strings parsed out of the C header files. @end deffn @anchor{gnome gw support gobject add-type-rule!}@deffn Generic add-type-rule! @end deffn @deffn Method add-type-rule! (@var{self} @code{}) (@var{param-type} @code{}) (@var{typespec} @code{}) Add a type rule to @var{wrapset}, that the string @var{param-type} maps directly to the g-wrap typespec @var{typespec}. For example, @code{"int*"} might map to the typespec @code{(int out)}. See @code{find-type-rule}. @end deffn @anchor{gnome gw support gobject find-type-rule}@deffn Generic find-type-rule @end deffn @deffn Method find-type-rule (@var{self} @code{}) (@var{param-type} @code{}) See if the parameter type @var{param-type} has a type rule present in @var{wrapset} or in any wrapset on which @var{wrapset} depends. This interface is used by @code{load-defs} to associate G-Wrap typespecs with the strings parsed out of the C header files. @end deffn @anchor{gnome gw support gobject }@deftp Class A base G-Wrap type class for GLib types. @end deftp @anchor{gnome gw support gobject }@deftp Class A base G-Wrap type class for classed GLib types (see @code{gtype-classed?}). @end deftp @anchor{gnome gw support gobject gtype-id}@deffn Generic gtype-id @end deffn @deffn Method gtype-id (@var{o} @code{}) @end deffn @deffn Method gtype-id (@var{o} @code{}) @end deffn @deffn Method gtype-id (@var{o} @code{}) @end deffn @deffn Method gtype-id (@var{o} @code{}) @end deffn @deffn Method gtype-id (@var{o} @code{}) @end deffn @deffn Method gtype-id (@var{o} @code{}) @end deffn @deffn Method gtype-id (@var{o} @code{}) @end deffn @deffn Method gtype-id (@var{o} @code{}) @end deffn @deffn Method gtype-id (@var{o} @code{}) @end deffn @deffn Method gtype-id (@var{o} @code{}) @end deffn @deffn Method gtype-id (@var{o} @code{}) @end deffn @anchor{gnome gw support gobject }@deftp Class A base G-Wrap type class for for classed GLib types whose values are pointers. @end deftp @anchor{gnome gw support gobject unwrap-null-checked}@deffn Generic unwrap-null-checked @end deffn @deffn Method unwrap-null-checked (@var{value} @code{}) (@var{status-var} @code{}) (@var{code} @code{}) Unwrap a value into a C pointer, optionally unwrapping @code{#f} as @code{NULL}. This function checks the typespec options on @var{value}, which should be a @code{}. If the @code{null-ok} option is set (which is only the case for value classes with @code{null-ok} in its @code{#:allowed-options}), this function generates code that unwraps @code{#f} as @code{NULL}. If @code{null-ok} is unset, or the value is not @code{#f}, @var{code} is run instead. @end deffn @anchor{gnome gw support gobject wrap-instance!}@deffn Generic wrap-instance! @end deffn @deffn Method wrap-instance! (@var{ws} @code{}) (@var{args} @code{})... Define a wrapper for a specific instantiatable (@code{}-derived) type in @var{ws}. Required keyword arguments are @code{#:ctype} and @code{#:gtype-id}. For example, @lisp (wrap-instance! ws #:ctype "GtkWidget" #:gtype-id "GTK_TYPE_WIDGET") @end lisp Normally only called from @code{load-defs}. @end deffn @anchor{gnome gw support gobject wrap-boxed!}@deffn Generic wrap-boxed! @end deffn @deffn Method wrap-boxed! (@var{ws} @code{}) (@var{args} @code{})... Define a wrapper for a specific boxed type in @var{ws}. Required keyword arguments are @code{#:ctype} and @code{#:gtype-id}, as in @code{wrap-instance!}. @end deffn @anchor{gnome gw support gobject wrap-pointer!}@deffn Generic wrap-pointer! @end deffn @deffn Method wrap-pointer! (@var{ws} @code{}) (@var{args} @code{})... Define a wrapper for a specific pointer type in @var{ws}. Required keyword arguments are @code{#:ctype} and @code{#:gtype-id}, as in @code{wrap-instance!}. @end deffn @anchor{gnome gw support gobject wrap-opaque-pointer!}@defun wrap-opaque-pointer! ws ctype Define a wrapper for an opaque pointer with the C type @var{ctype}. It will not be possible to create these types from Scheme, but they can be received from a library, and passed as arguments to other calls into the library. @end defun @anchor{gnome gw support gobject wrap-freeable-pointer!}@defun wrap-freeable-pointer! ws ctype free foo @end defun @anchor{gnome gw support gobject wrap-refcounted-pointer!}@defun wrap-refcounted-pointer! ws ctype ref unref foo @end defun @anchor{gnome gw support gobject wrap-structure!}@defun wrap-structure! ws ctype wrap unwrap Define a wrapper for structure values of type @var{ctype}. @var{wrap} and @var{unwrap} are the names of C functions to convert a C structure to Scheme and vice versa, respectively. When in a function call, parameters of this type of the form `@var{StructName}*' are interpreted as `out' parameters, while `const-@var{StructName}*' are treated as `in' parameters. Note that @var{ctype} should be the type of the structure, not a pointer to the structure. @end defun @anchor{gnome gw support gobject wrap-interface!}@deffn Generic wrap-interface! @end deffn @deffn Method wrap-interface! (@var{ws} @code{}) (@var{args} @code{})... Define a wrapper for an interface type in @var{ws}. Required keyword arguments are @code{#:ctype} and @code{#:gtype-id}, as in @code{wrap-instance!}. @end deffn @anchor{gnome gw support gobject wrap-flags!}@deffn Generic wrap-flags! @end deffn @deffn Method wrap-flags! (@var{ws} @code{}) (@var{args} @code{})... Define a wrapper for a flags type in @var{ws}. Required keyword arguments are @code{#:ctype} and @code{#:gtype-id} or @code{#:values}, as in @code{wrap-enum!}. @end deffn @anchor{gnome gw support gobject wrap-gobject-class!}@deffn Generic wrap-gobject-class! @end deffn @deffn Method wrap-gobject-class! (@var{ws} @code{}) (@var{args} @code{})... Define a wrapper for GObject class values @var{ws}. Required keyword arguments are @code{#:ctype} and @code{#:gtype-id}, as in @code{wrap-instance!}. @code{#:ctype} should refer to the type of the class and not the instance; e.g. @code{"GtkWidgetClass"} and not @code{"GtkWidget"}. This function will not be called by @code{load-defs}, and should be invoked manually in a wrapset as needed. @end deffn @anchor{gnome gw support gobject wrap-custom-boxed!}@defspec wrap-custom-boxed! ctype gtype wrap unwrap Wrap a boxed type using custom wrappers and unwrappers. FIXME: missing a wrapset argument! @var{ctype} and @var{gtype} are as @code{#:ctype} and @code{#:gtype-id} in @code{wrap-instance!}. @var{wrap} and @var{unwrap} are G-Wrap forms in which @code{scm-var} and @code{c-var} will be bound to the names of the SCM and C values, respectively. For example: @lisp (wrap-custom-boxed! "GdkRectangle" "GDK_TYPE_RECTANGLE" (list scm-var " = " c-var " ? scm_gdk_rectangle_to_scm (" c-var ")" " : SCM_BOOL_F;") (list c-var " = scm_scm_to_gdk_rectangle (" scm-var ");")) @end lisp @end defspec @anchor{gnome gw support gobject wrap-custom-gvalue!}@defspec wrap-custom-gvalue! ctype gtype wrap-func unwrap-func Wrap a GValue type using custom wrap and unwrap functions. FIXME: missing a wrapset argument! @var{ctype} and @var{gtype} are as @code{#:ctype} and @code{#:gtype-id} in @code{wrap-instance!}. @var{wrap-func} and @var{unwrap-func} are names of functions to convert to and from Scheme values, respectively. For example: @lisp (wrap-custom-gvalue! "GstFraction" "GST_TYPE_FRACTION" "scm_from_gst_fraction" "scm_to_gst_fraction") @end lisp @end defspec @node gnome gw support defs @chapter (gnome gw support defs) @section Overview This module serves as a way to automatically populate G-Wrap wrapsets using information parsed out of C header files. First, the C header files are parsed into S-expression API description forms and written into @code{.defs} files. These files are typically included in the distribution, and regenerated infrequently. Then, the binding author includes a call to @code{load-defs} in their G-Wrap wrapset definition, which loads those API definitions into the wrapset. The @code{.defs} files are usually produced using the API scanner script, @code{h2defs.py}, included in the Guile-GNOME source distribution. Code in this module is only loaded when generating wrapsets; as such, it is not for end users. As an example, ATK is wrapped with the following code, from @code{atk/gnome/gw/atk-spec.scm}: @example (define-module (gnome gw atk-spec) #:use-module (oop goops) #:use-module (gnome gw support g-wrap) #:use-module (gnome gw gobject-spec) #:use-module (gnome gw support gobject) #:use-module (gnome gw support defs)) (define-class () #:id 'gnome-atk #:dependencies '(standard gnome-glib gnome-gobject)) (define-method (global-declarations-cg (self )) (list (next-method) "#include \n" "#include \n")) (define-method (initialize (ws ) initargs) (next-method ws (append '(#:module (gnome gw atk)) initargs)) ;; manually wrap AtkState as a 64 bit uint (add-type-alias! ws "AtkState" 'unsigned-int64) (load-defs-with-overrides ws "gnome/defs/atk.defs")) @end example The wrapper-specifiction modules are actually installed, along with the .defs files, so that other wrappers which use ATK's types, such as GTK+, can have them available. A full discussion of the Makefile mechanics of how to generate and compile the C file, or how to interact with the wrapset objects, is probably prone to bitrot here. Your best bet is to poke at Guile-GNOME's source, or especially the source of a module distributed independently of @code{guile-gnome-platform}, such as @code{guile-gnome-libwnck}. Further details about the procedural API available for use e.g. within the wrapset's @code{initialize} function can be found in the documentation for @code{(gnome gw support gobject)}, and in G-Wrap's documentation. @section Usage @anchor{gnome gw support defs load-defs}@defun load-defs ws file [overrides = #f] Load G-Wrap type and function information from @var{file} into the G-Wrap wrapset @var{ws}. @var{file} should be a relative path, which will be searched in the vicinity of Guile's @code{%load-path}. @code{include} directives in the file will be searched relative to the absolute path of the file. The following forms are understood: @code{define-enum}, @code{define-flags}, @code{define-object}, @code{define-interface}, @code{define-pointer}, @code{define-boxed}, @code{define-function}, @code{define-method}, @code{ignore}, @code{ignore-glob}, and @code{ignore-types}. The optional argument, @var{overrides}, specifies the location of an overrides file that will be spliced into the @code{.defs} file at the point of an @code{(include overrides)} form. @end defun @anchor{gnome gw support defs load-defs-with-overrides}@defun load-defs-with-overrides ws defs Equivalent to: @lisp (load-defs ws defs (string-append "gnome/overrides/" (basename defs))) @end lisp @end defun @node gnome gw support gtk-doc @chapter (gnome gw support gtk-doc) @section Overview This module exports two high-level procedures to transform the Docbook files generated by GTK-Doc into texinfo. @uref{http://www.gtk.org/gtk-doc/,GTK-Doc} is commonly used to document GObject-based libraries, such as those that Guile-GNOME wraps. In a typical build setup, GTK-Doc generates a reference manual with one XML file per section. The routines in this module attempt to recreate those sections, but in Texinfo instead of Docbook, and which document the Scheme modules instead of the upstream C libraries. The tricky part of translating GTK-Doc's documentation is not the vocabulary (Docbook), but that it documents C functions which have different calling conventions than Scheme. For example, a C function might take four @code{double*} arguments, but in Scheme the function would return four rational values. Given only the C prototype, the code in this module will make an attempt to determine what the Scheme function's arguments will be based on some heuristics. In most cases, however, we can do better than heuristics, because we have the G-Wrap information that describes the relationship between the C function and the Scheme wrapper. In that way we can know exactly what the input and output arguments are for a particular function. The @code{gtk-doc->texi-stubs} function is straightforward. It extracts the "header" in a set of GTK-Doc files, translates them into texinfo, writing them out one by one to files named @samp{section-@var{foo}.texi}, where @var{foo} is the name of the XML file. It is unclear whether it is best to continously generate these sections when updating the manuals, or whether this "stub" generation should be run only once when the documentation is initially generated, and thereafter maintained by hand. Your call! @code{gtk-doc->texi-defuns} is slightly more complicated, because you have the choice as to whether to use heuristics or the g-wrap method for determining the arguments. See its documentation for more information. Both of these functions are designed to be directly callable from the shell. Here is a makefile snippet suitable for using the heuristics method for defuns generation: @example GTK_DOC_TO_TEXI_STUBS = \ '((@@ (gnome gw support gtk-doc) gtk-doc->texi-stubs) \ (cdr (program-arguments)))' GTK_DOC_DEFUN_METHOD = heuristics GTK_DOC_DEFUN_ARGS = (your-module-here) GTK_DOC_TO_TEXI_DEFUNS = "(apply (@@ (gnome gw support gtk-doc) \ gtk-doc->texi-defuns) (cadr (program-arguments)) \ '$(GTK_DOC_DEFUN_METHOD) '($(GTK_DOC_DEFUN_ARGS)) \ (cddr (program-arguments)))" GUILE = $(top_builddir)/dev-environ guile generate-stubs: $(GUILE) $(GUILE_FLAGS) -c $(GTK_DOC_TO_TEXI_STUBS) \ $(docbook_xml_files) generate-defuns: $(GUILE) $(GUILE_FLAGS) -c $(GTK_DOC_TO_TEXI_DEFUNS) \ ./overrides.texi $(docbook_xml_files) @end example To make the above snippet work, you will have to define @code{$(docbook_xml_files)} as the set of docbook XML files to transform. To use the G-Wrap method, try the following: @example wrapset_module = (gnome gw $(wrapset_stem)-spec) wrapset_name = gnome-$(wrapset_stem) GTK_DOC_DEFUN_METHOD = g-wrap GTK_DOC_DEFUN_ARGS = $(wrapset_module) $(wrapset_name) @end example Set @code{$(wrapset_stem)} to the stem of the wrapset name, e.g. @code{pango}, and there you are. @section Usage @anchor{gnome gw support gtk-doc gtk-doc->texi-stubs}@defun gtk-doc->texi-stubs files Generate a section overview texinfo file for each docbook XML file in @var{files}. The files will be created in the current directory, as described in the documentation for @code{(gnome gw support gtk-doc)}. They will include a file named @code{defuns-@var{file}.texi}, which should probably be created using @code{gtk-doc->texi-defuns}. @end defun @anchor{gnome gw support gtk-doc gtk-doc->texi-defuns}@defun gtk-doc->texi-defuns overrides method args . files Generate documentation for the types and functions defined in a set of docbook files genearted by GTK-Doc. @var{overrides} should be a path to a texinfo file from which @code{@@deffn} overrides will be taken. @var{method} should be either @code{g-wrap} or @code{heuristics}, as discussed in the @code{(gnome gw support gtk-doc)} documentation. @var{files} is the list of docbook XML files from which to pull function documentation. @var{args} should be a list, whose form depends on the @var{method}. For @code{g-wrap}, it should be two elements, the first the name of a module that, when loaded, will load the necessary wrapset into the g-wrap runtime. For example, @code{(gnome gw glib-spec)}. The second argument should be the name of the wrapset, e.g. @code{gnome-glib}. If @var{method} is @code{heuristics}, @var{args} should have only one element, the name of the module to load to check the existence of procedures, e.g. @code{(cairo)}. @end defun @anchor{gnome gw support gtk-doc check-documentation-coverage}@defun check-documentation-coverage modules texi Check the coverage of generated documentation. @var{modules} is a list of module names, and @var{texi} is a path to a texinfo file. The set of exports of @var{modules} is checked against the set of procedures defined in @var{texi}, resulting in a calculation of documentation coverage, and the output of any missing documentation to the current output port. @end defun @anchor{gnome gw support gtk-doc generate-undocumented-texi}@defun generate-undocumented-texi modules texi Verify the bindings exported by @var{modules} against the documentation in @var{texi}, writing documentation for any undocumented symbol to @code{undocumented.texi}. @var{modules} is a list of module names, and @var{texi} is a path to a texinfo file. @end defun @node gnome gw support modules @chapter (gnome gw support modules) @section Overview @c Support routines for automatically-generated scheme G-Wrap modules. @section Usage @anchor{gnome gw support modules export-all-lazy!}@defun export-all-lazy! symbols Export the @var{symbols} from the current module. Most generic functions and classes that G-Wrap defines are bound lazily, as needed in evaluation. This is done by placing module binder procedures on the generated modules. However, if we export all symbols by name, this will force the binding eagerly for all values, which is slow. This procedure exports all bindings named in @var{symbols} that are already bound in the current module, and then installs a module binder procedure on the public interface, which allows lazy binding to work. @end defun @anchor{gnome gw support modules re-export-modules}@defspec re-export-modules . args Re-export the public interface of a module; used like @code{use-modules}. @end defspec @node Type Index @unnumbered Type Index @printindex tp @node Function Index @unnumbered Function Index @printindex fn @bye guile-gnome-platform-2.16.2/glib/doc/gobject/Makefile.am0000644000175000017500000000066511670374302023331 0ustar00wingowingo00000000000000################################################################################ ## guile-gnome-gobject.info doc=guile-gnome-gobject DOT_DOC_FILES=$(wildcard $(top_builddir)/glib/gnome/gobject/*.doc) EXTRA_DIST=$(doc).scm make-texinfo.scm update-docs: $(top_builddir)/dev-environ $(srcdir)/make-texinfo.scm $(srcdir)/$(doc).scm $(DOT_DOC_FILES) >$(doc).texi.tmp mv $(doc).texi.tmp $(doc).texi info_TEXINFOS=guile-gnome-gobject.texi guile-gnome-platform-2.16.2/glib/doc/gobject/Makefile.in0000644000175000017500000005622311752511066023344 0ustar00wingowingo00000000000000# Makefile.in generated by automake 1.11.5 from Makefile.am. # @configure_input@ # Copyright (C) 1994, 1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, # 2003, 2004, 2005, 2006, 2007, 2008, 2009, 2010, 2011 Free Software # Foundation, Inc. # This Makefile.in is free software; the Free Software Foundation # gives unlimited permission to copy and/or distribute it, # with or without modifications, as long as this notice is preserved. # This program is distributed in the hope that it will be useful, # but WITHOUT ANY WARRANTY, to the extent permitted by law; without # even the implied warranty of MERCHANTABILITY or FITNESS FOR A # PARTICULAR PURPOSE. @SET_MAKE@ ################################################################################ VPATH = @srcdir@ am__make_dryrun = \ { \ am__dry=no; \ case $$MAKEFLAGS in \ *\\[\ \ ]*) \ echo 'am--echo: ; @echo "AM" OK' | $(MAKE) -f - 2>/dev/null \ | grep '^AM OK$$' >/dev/null || am__dry=yes;; \ *) \ for am__flg in $$MAKEFLAGS; do \ case $$am__flg in \ *=*|--*) ;; \ *n*) am__dry=yes; break;; \ esac; \ done;; \ esac; \ test $$am__dry = yes; \ } pkgdatadir = $(datadir)/@PACKAGE@ pkgincludedir = $(includedir)/@PACKAGE@ pkglibdir = $(libdir)/@PACKAGE@ pkglibexecdir = $(libexecdir)/@PACKAGE@ am__cd = CDPATH="$${ZSH_VERSION+.}$(PATH_SEPARATOR)" && cd install_sh_DATA = $(install_sh) -c -m 644 install_sh_PROGRAM = $(install_sh) -c install_sh_SCRIPT = $(install_sh) -c INSTALL_HEADER = $(INSTALL_DATA) transform = $(program_transform_name) NORMAL_INSTALL = : PRE_INSTALL = : POST_INSTALL = : NORMAL_UNINSTALL = : PRE_UNINSTALL = : POST_UNINSTALL = : build_triplet = @build@ host_triplet = @host@ subdir = glib/doc/gobject DIST_COMMON = $(srcdir)/Makefile.am $(srcdir)/Makefile.in ACLOCAL_M4 = $(top_srcdir)/aclocal.m4 am__aclocal_m4_deps = $(top_srcdir)/configure.ac am__configure_deps = $(am__aclocal_m4_deps) $(CONFIGURE_DEPENDENCIES) \ $(ACLOCAL_M4) mkinstalldirs = $(install_sh) -d CONFIG_HEADER = $(top_builddir)/config.h CONFIG_CLEAN_FILES = CONFIG_CLEAN_VPATH_FILES = SOURCES = DIST_SOURCES = INFO_DEPS = $(srcdir)/guile-gnome-gobject.info TEXINFO_TEX = $(top_srcdir)/build-aux/texinfo.tex am__TEXINFO_TEX_DIR = $(top_srcdir)/build-aux DVIS = guile-gnome-gobject.dvi PDFS = guile-gnome-gobject.pdf PSS = guile-gnome-gobject.ps HTMLS = guile-gnome-gobject.html TEXINFOS = guile-gnome-gobject.texi TEXI2DVI = texi2dvi TEXI2PDF = $(TEXI2DVI) --pdf --batch MAKEINFOHTML = $(MAKEINFO) --html AM_MAKEINFOHTMLFLAGS = $(AM_MAKEINFOFLAGS) DVIPS = dvips am__can_run_installinfo = \ case $$AM_UPDATE_INFO_DIR in \ n|no|NO) false;; \ *) (install-info --version) >/dev/null 2>&1;; \ esac am__installdirs = "$(DESTDIR)$(infodir)" am__vpath_adj_setup = srcdirstrip=`echo "$(srcdir)" | sed 's|.|.|g'`; am__vpath_adj = case $$p in \ $(srcdir)/*) f=`echo "$$p" | sed "s|^$$srcdirstrip/||"`;; \ *) f=$$p;; \ esac; am__strip_dir = f=`echo $$p | sed -e 's|^.*/||'`; am__install_max = 40 am__nobase_strip_setup = \ srcdirstrip=`echo "$(srcdir)" | sed 's/[].[^$$\\*|]/\\\\&/g'` am__nobase_strip = \ for p in $$list; do echo "$$p"; done | sed -e "s|$$srcdirstrip/||" am__nobase_list = $(am__nobase_strip_setup); \ for p in $$list; do echo "$$p $$p"; done | \ sed "s| $$srcdirstrip/| |;"' / .*\//!s/ .*/ ./; s,\( .*\)/[^/]*$$,\1,' | \ $(AWK) 'BEGIN { files["."] = "" } { files[$$2] = files[$$2] " " $$1; \ if (++n[$$2] == $(am__install_max)) \ { print $$2, files[$$2]; n[$$2] = 0; files[$$2] = "" } } \ END { for (dir in files) print dir, files[dir] }' am__base_list = \ sed '$$!N;$$!N;$$!N;$$!N;$$!N;$$!N;$$!N;s/\n/ /g' | \ sed '$$!N;$$!N;$$!N;$$!N;s/\n/ /g' am__uninstall_files_from_dir = { \ test -z "$$files" \ || { test ! -d "$$dir" && test ! -f "$$dir" && test ! -r "$$dir"; } \ || { echo " ( cd '$$dir' && rm -f" $$files ")"; \ $(am__cd) "$$dir" && rm -f $$files; }; \ } DISTFILES = $(DIST_COMMON) $(DIST_SOURCES) $(TEXINFOS) $(EXTRA_DIST) ACLOCAL = @ACLOCAL@ AG_PKG_CONFIG_PATH = @AG_PKG_CONFIG_PATH@ AMTAR = @AMTAR@ API_VERSION = @API_VERSION@ AR = @AR@ ATK_CFLAGS = @ATK_CFLAGS@ ATK_LIBS = @ATK_LIBS@ AUTOCONF = @AUTOCONF@ AUTOHEADER = @AUTOHEADER@ AUTOMAKE = @AUTOMAKE@ AWK = @AWK@ BONOBO_IDL_DIR = @BONOBO_IDL_DIR@ CANVAS_CFLAGS = @CANVAS_CFLAGS@ CANVAS_LIBS = @CANVAS_LIBS@ CC = @CC@ CCDEPMODE = @CCDEPMODE@ CFLAGS = @CFLAGS@ CORBA_CFLAGS = @CORBA_CFLAGS@ CORBA_LIBS = @CORBA_LIBS@ CPP = @CPP@ CPPFLAGS = @CPPFLAGS@ CYGPATH_W = @CYGPATH_W@ DEFS = @DEFS@ DEPDIR = @DEPDIR@ DLLTOOL = @DLLTOOL@ DSYMUTIL = @DSYMUTIL@ DUMPBIN = @DUMPBIN@ ECHO_C = @ECHO_C@ ECHO_N = @ECHO_N@ ECHO_T = @ECHO_T@ EGREP = @EGREP@ EXEEXT = @EXEEXT@ FGREP = @FGREP@ GCONF_CFLAGS = @GCONF_CFLAGS@ GCONF_LIBS = @GCONF_LIBS@ GDK_CFLAGS = @GDK_CFLAGS@ GDK_LIBS = @GDK_LIBS@ GDK_PIXBUF_CFLAGS = @GDK_PIXBUF_CFLAGS@ GDK_PIXBUF_LIBS = @GDK_PIXBUF_LIBS@ GLIB_CFLAGS = @GLIB_CFLAGS@ GLIB_LIBS = @GLIB_LIBS@ GNOMEUI_DEPRECATION_FLAGS = @GNOMEUI_DEPRECATION_FLAGS@ GNOME_VFS_CFLAGS = @GNOME_VFS_CFLAGS@ GNOME_VFS_DEPRECATED_CFLAGS = @GNOME_VFS_DEPRECATED_CFLAGS@ GNOME_VFS_LIBS = @GNOME_VFS_LIBS@ GOBJECT_CFLAGS = @GOBJECT_CFLAGS@ GOBJECT_LIBS = @GOBJECT_LIBS@ GREP = @GREP@ GTHREAD_CFLAGS = @GTHREAD_CFLAGS@ GTHREAD_LIBS = @GTHREAD_LIBS@ GTK_CFLAGS = @GTK_CFLAGS@ GTK_DEPRECATED_CFLAGS = @GTK_DEPRECATED_CFLAGS@ GTK_LIBS = @GTK_LIBS@ GUILE_CAIRO_CFLAGS = @GUILE_CAIRO_CFLAGS@ GUILE_CAIRO_LIBS = @GUILE_CAIRO_LIBS@ GUILE_CFLAGS = @GUILE_CFLAGS@ GUILE_EFFECTIVE_VERSION = @GUILE_EFFECTIVE_VERSION@ GUILE_GLIB_CFLAGS = @GUILE_GLIB_CFLAGS@ GUILE_GLIB_LIBS = @GUILE_GLIB_LIBS@ GUILE_LIBS = @GUILE_LIBS@ G_WRAP_CFLAGS = @G_WRAP_CFLAGS@ G_WRAP_LIBS = @G_WRAP_LIBS@ G_WRAP_LIB_DIR = @G_WRAP_LIB_DIR@ G_WRAP_MODULE_DIR = @G_WRAP_MODULE_DIR@ INSTALL = @INSTALL@ INSTALL_DATA = @INSTALL_DATA@ INSTALL_PROGRAM = @INSTALL_PROGRAM@ INSTALL_SCRIPT = @INSTALL_SCRIPT@ INSTALL_STRIP_PROGRAM = @INSTALL_STRIP_PROGRAM@ LD = @LD@ LDFLAGS = @LDFLAGS@ LIBGLADE_CFLAGS = @LIBGLADE_CFLAGS@ LIBGLADE_LIBS = @LIBGLADE_LIBS@ LIBGNOMEUI_CFLAGS = @LIBGNOMEUI_CFLAGS@ LIBGNOMEUI_LIBS = @LIBGNOMEUI_LIBS@ LIBGNOME_CFLAGS = @LIBGNOME_CFLAGS@ LIBGNOME_LIBS = @LIBGNOME_LIBS@ LIBOBJS = @LIBOBJS@ LIBS = @LIBS@ LIBTOOL = @LIBTOOL@ LIPO = @LIPO@ LN_S = @LN_S@ LTLIBOBJS = @LTLIBOBJS@ MAKEINFO = @MAKEINFO@ MANIFEST_TOOL = @MANIFEST_TOOL@ MKDIR_P = @MKDIR_P@ NM = @NM@ NMEDIT = @NMEDIT@ OBJDUMP = @OBJDUMP@ OBJEXT = @OBJEXT@ ORBIT_IDL = @ORBIT_IDL@ OTOOL = @OTOOL@ OTOOL64 = @OTOOL64@ PACKAGE = @PACKAGE@ PACKAGE_BUGREPORT = @PACKAGE_BUGREPORT@ PACKAGE_NAME = @PACKAGE_NAME@ PACKAGE_STRING = @PACKAGE_STRING@ PACKAGE_TARNAME = @PACKAGE_TARNAME@ PACKAGE_URL = @PACKAGE_URL@ PACKAGE_VERSION = @PACKAGE_VERSION@ PANGOCAIRO_CFLAGS = @PANGOCAIRO_CFLAGS@ PANGOCAIRO_LIBS = @PANGOCAIRO_LIBS@ PANGO_CFLAGS = @PANGO_CFLAGS@ PANGO_LIBS = @PANGO_LIBS@ PATH_SEPARATOR = @PATH_SEPARATOR@ PKG_CONFIG = @PKG_CONFIG@ PKG_CONFIG_LIBDIR = @PKG_CONFIG_LIBDIR@ PKG_CONFIG_PATH = @PKG_CONFIG_PATH@ RANLIB = @RANLIB@ SED = @SED@ SET_MAKE = @SET_MAKE@ SHELL = @SHELL@ STRIP = @STRIP@ VERSION = @VERSION@ WARN_CFLAGS = @WARN_CFLAGS@ abs_builddir = @abs_builddir@ abs_srcdir = @abs_srcdir@ abs_top_builddir = @abs_top_builddir@ abs_top_srcdir = @abs_top_srcdir@ ac_ct_AR = @ac_ct_AR@ ac_ct_CC = @ac_ct_CC@ ac_ct_DUMPBIN = @ac_ct_DUMPBIN@ am__include = @am__include@ am__leading_dot = @am__leading_dot@ am__quote = @am__quote@ am__tar = @am__tar@ am__untar = @am__untar@ bindir = @bindir@ build = @build@ build_alias = @build_alias@ build_cpu = @build_cpu@ build_os = @build_os@ build_vendor = @build_vendor@ builddir = @builddir@ datadir = @datadir@ datarootdir = @datarootdir@ docdir = @docdir@ dvidir = @dvidir@ exec_prefix = @exec_prefix@ host = @host@ host_alias = @host_alias@ host_cpu = @host_cpu@ host_os = @host_os@ host_vendor = @host_vendor@ htmldir = @htmldir@ includedir = @includedir@ infodir = @infodir@ install_sh = @install_sh@ libdir = @libdir@ libexecdir = @libexecdir@ localedir = @localedir@ localstatedir = @localstatedir@ mandir = @mandir@ mkdir_p = @mkdir_p@ oldincludedir = @oldincludedir@ pdfdir = @pdfdir@ prefix = @prefix@ program_transform_name = @program_transform_name@ psdir = @psdir@ sbindir = @sbindir@ sharedstatedir = @sharedstatedir@ srcdir = @srcdir@ sysconfdir = @sysconfdir@ target_alias = @target_alias@ top_build_prefix = @top_build_prefix@ top_builddir = @top_builddir@ top_srcdir = @top_srcdir@ doc = guile-gnome-gobject DOT_DOC_FILES = $(wildcard $(top_builddir)/glib/gnome/gobject/*.doc) EXTRA_DIST = $(doc).scm make-texinfo.scm info_TEXINFOS = guile-gnome-gobject.texi all: all-am .SUFFIXES: .SUFFIXES: .dvi .html .info .pdf .ps .texi $(srcdir)/Makefile.in: $(srcdir)/Makefile.am $(am__configure_deps) @for dep in $?; do \ case '$(am__configure_deps)' in \ *$$dep*) \ ( cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh ) \ && { if test -f $@; then exit 0; else break; fi; }; \ exit 1;; \ esac; \ done; \ echo ' cd $(top_srcdir) && $(AUTOMAKE) --gnu glib/doc/gobject/Makefile'; \ $(am__cd) $(top_srcdir) && \ $(AUTOMAKE) --gnu glib/doc/gobject/Makefile .PRECIOUS: Makefile Makefile: $(srcdir)/Makefile.in $(top_builddir)/config.status @case '$?' in \ *config.status*) \ cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh;; \ *) \ echo ' cd $(top_builddir) && $(SHELL) ./config.status $(subdir)/$@ $(am__depfiles_maybe)'; \ cd $(top_builddir) && $(SHELL) ./config.status $(subdir)/$@ $(am__depfiles_maybe);; \ esac; $(top_builddir)/config.status: $(top_srcdir)/configure $(CONFIG_STATUS_DEPENDENCIES) cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh $(top_srcdir)/configure: $(am__configure_deps) cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh $(ACLOCAL_M4): $(am__aclocal_m4_deps) cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh $(am__aclocal_m4_deps): mostlyclean-libtool: -rm -f *.lo clean-libtool: -rm -rf .libs _libs .texi.info: restore=: && backupdir="$(am__leading_dot)am$$$$" && \ am__cwd=`pwd` && $(am__cd) $(srcdir) && \ rm -rf $$backupdir && mkdir $$backupdir && \ if ($(MAKEINFO) --version) >/dev/null 2>&1; then \ for f in $@ $@-[0-9] $@-[0-9][0-9] $(@:.info=).i[0-9] $(@:.info=).i[0-9][0-9]; do \ if test -f $$f; then mv $$f $$backupdir; restore=mv; else :; fi; \ done; \ else :; fi && \ cd "$$am__cwd"; \ if $(MAKEINFO) $(AM_MAKEINFOFLAGS) $(MAKEINFOFLAGS) -I $(srcdir) \ -o $@ $<; \ then \ rc=0; \ $(am__cd) $(srcdir); \ else \ rc=$$?; \ $(am__cd) $(srcdir) && \ $$restore $$backupdir/* `echo "./$@" | sed 's|[^/]*$$||'`; \ fi; \ rm -rf $$backupdir; exit $$rc .texi.dvi: TEXINPUTS="$(am__TEXINFO_TEX_DIR)$(PATH_SEPARATOR)$$TEXINPUTS" \ MAKEINFO='$(MAKEINFO) $(AM_MAKEINFOFLAGS) $(MAKEINFOFLAGS) -I $(srcdir)' \ $(TEXI2DVI) $< .texi.pdf: TEXINPUTS="$(am__TEXINFO_TEX_DIR)$(PATH_SEPARATOR)$$TEXINPUTS" \ MAKEINFO='$(MAKEINFO) $(AM_MAKEINFOFLAGS) $(MAKEINFOFLAGS) -I $(srcdir)' \ $(TEXI2PDF) $< .texi.html: rm -rf $(@:.html=.htp) if $(MAKEINFOHTML) $(AM_MAKEINFOHTMLFLAGS) $(MAKEINFOFLAGS) -I $(srcdir) \ -o $(@:.html=.htp) $<; \ then \ rm -rf $@; \ if test ! -d $(@:.html=.htp) && test -d $(@:.html=); then \ mv $(@:.html=) $@; else mv $(@:.html=.htp) $@; fi; \ else \ if test ! -d $(@:.html=.htp) && test -d $(@:.html=); then \ rm -rf $(@:.html=); else rm -Rf $(@:.html=.htp) $@; fi; \ exit 1; \ fi $(srcdir)/guile-gnome-gobject.info: guile-gnome-gobject.texi guile-gnome-gobject.dvi: guile-gnome-gobject.texi guile-gnome-gobject.pdf: guile-gnome-gobject.texi guile-gnome-gobject.html: guile-gnome-gobject.texi .dvi.ps: TEXINPUTS="$(am__TEXINFO_TEX_DIR)$(PATH_SEPARATOR)$$TEXINPUTS" \ $(DVIPS) -o $@ $< uninstall-dvi-am: @$(NORMAL_UNINSTALL) @list='$(DVIS)'; test -n "$(dvidir)" || list=; \ for p in $$list; do \ $(am__strip_dir) \ echo " rm -f '$(DESTDIR)$(dvidir)/$$f'"; \ rm -f "$(DESTDIR)$(dvidir)/$$f"; \ done uninstall-html-am: @$(NORMAL_UNINSTALL) @list='$(HTMLS)'; test -n "$(htmldir)" || list=; \ for p in $$list; do \ $(am__strip_dir) \ echo " rm -rf '$(DESTDIR)$(htmldir)/$$f'"; \ rm -rf "$(DESTDIR)$(htmldir)/$$f"; \ done uninstall-info-am: @$(PRE_UNINSTALL) @if test -d '$(DESTDIR)$(infodir)' && $(am__can_run_installinfo); then \ list='$(INFO_DEPS)'; \ for file in $$list; do \ relfile=`echo "$$file" | sed 's|^.*/||'`; \ echo " install-info --info-dir='$(DESTDIR)$(infodir)' --remove '$(DESTDIR)$(infodir)/$$relfile'"; \ if install-info --info-dir="$(DESTDIR)$(infodir)" --remove "$(DESTDIR)$(infodir)/$$relfile"; \ then :; else test ! -f "$(DESTDIR)$(infodir)/$$relfile" || exit 1; fi; \ done; \ else :; fi @$(NORMAL_UNINSTALL) @list='$(INFO_DEPS)'; \ for file in $$list; do \ relfile=`echo "$$file" | sed 's|^.*/||'`; \ relfile_i=`echo "$$relfile" | sed 's|\.info$$||;s|$$|.i|'`; \ (if test -d "$(DESTDIR)$(infodir)" && cd "$(DESTDIR)$(infodir)"; then \ echo " cd '$(DESTDIR)$(infodir)' && rm -f $$relfile $$relfile-[0-9] $$relfile-[0-9][0-9] $$relfile_i[0-9] $$relfile_i[0-9][0-9]"; \ rm -f $$relfile $$relfile-[0-9] $$relfile-[0-9][0-9] $$relfile_i[0-9] $$relfile_i[0-9][0-9]; \ else :; fi); \ done uninstall-pdf-am: @$(NORMAL_UNINSTALL) @list='$(PDFS)'; test -n "$(pdfdir)" || list=; \ for p in $$list; do \ $(am__strip_dir) \ echo " rm -f '$(DESTDIR)$(pdfdir)/$$f'"; \ rm -f "$(DESTDIR)$(pdfdir)/$$f"; \ done uninstall-ps-am: @$(NORMAL_UNINSTALL) @list='$(PSS)'; test -n "$(psdir)" || list=; \ for p in $$list; do \ $(am__strip_dir) \ echo " rm -f '$(DESTDIR)$(psdir)/$$f'"; \ rm -f "$(DESTDIR)$(psdir)/$$f"; \ done dist-info: $(INFO_DEPS) @srcdirstrip=`echo "$(srcdir)" | sed 's|.|.|g'`; \ list='$(INFO_DEPS)'; \ for base in $$list; do \ case $$base in \ $(srcdir)/*) base=`echo "$$base" | sed "s|^$$srcdirstrip/||"`;; \ esac; \ if test -f $$base; then d=.; else d=$(srcdir); fi; \ base_i=`echo "$$base" | sed 's|\.info$$||;s|$$|.i|'`; \ for file in $$d/$$base $$d/$$base-[0-9] $$d/$$base-[0-9][0-9] $$d/$$base_i[0-9] $$d/$$base_i[0-9][0-9]; do \ if test -f $$file; then \ relfile=`expr "$$file" : "$$d/\(.*\)"`; \ test -f "$(distdir)/$$relfile" || \ cp -p $$file "$(distdir)/$$relfile"; \ else :; fi; \ done; \ done mostlyclean-aminfo: -rm -rf guile-gnome-gobject.aux guile-gnome-gobject.cp \ guile-gnome-gobject.cps guile-gnome-gobject.fn \ guile-gnome-gobject.fns guile-gnome-gobject.ky \ guile-gnome-gobject.kys guile-gnome-gobject.log \ guile-gnome-gobject.pg guile-gnome-gobject.pgs \ guile-gnome-gobject.tmp guile-gnome-gobject.toc \ guile-gnome-gobject.tp guile-gnome-gobject.tps \ guile-gnome-gobject.vr guile-gnome-gobject.vrs clean-aminfo: -test -z "guile-gnome-gobject.dvi guile-gnome-gobject.pdf guile-gnome-gobject.ps \ guile-gnome-gobject.html" \ || rm -rf guile-gnome-gobject.dvi guile-gnome-gobject.pdf guile-gnome-gobject.ps \ guile-gnome-gobject.html maintainer-clean-aminfo: @list='$(INFO_DEPS)'; for i in $$list; do \ i_i=`echo "$$i" | sed 's|\.info$$||;s|$$|.i|'`; \ echo " rm -f $$i $$i-[0-9] $$i-[0-9][0-9] $$i_i[0-9] $$i_i[0-9][0-9]"; \ rm -f $$i $$i-[0-9] $$i-[0-9][0-9] $$i_i[0-9] $$i_i[0-9][0-9]; \ done tags: TAGS TAGS: ctags: CTAGS CTAGS: distdir: $(DISTFILES) @srcdirstrip=`echo "$(srcdir)" | sed 's/[].[^$$\\*]/\\\\&/g'`; \ topsrcdirstrip=`echo "$(top_srcdir)" | sed 's/[].[^$$\\*]/\\\\&/g'`; \ list='$(DISTFILES)'; \ dist_files=`for file in $$list; do echo $$file; done | \ sed -e "s|^$$srcdirstrip/||;t" \ -e "s|^$$topsrcdirstrip/|$(top_builddir)/|;t"`; \ case $$dist_files in \ */*) $(MKDIR_P) `echo "$$dist_files" | \ sed '/\//!d;s|^|$(distdir)/|;s,/[^/]*$$,,' | \ sort -u` ;; \ esac; \ for file in $$dist_files; do \ if test -f $$file || test -d $$file; then d=.; else d=$(srcdir); fi; \ if test -d $$d/$$file; then \ dir=`echo "/$$file" | sed -e 's,/[^/]*$$,,'`; \ if test -d "$(distdir)/$$file"; then \ find "$(distdir)/$$file" -type d ! -perm -700 -exec chmod u+rwx {} \;; \ fi; \ if test -d $(srcdir)/$$file && test $$d != $(srcdir); then \ cp -fpR $(srcdir)/$$file "$(distdir)$$dir" || exit 1; \ find "$(distdir)/$$file" -type d ! -perm -700 -exec chmod u+rwx {} \;; \ fi; \ cp -fpR $$d/$$file "$(distdir)$$dir" || exit 1; \ else \ test -f "$(distdir)/$$file" \ || cp -p $$d/$$file "$(distdir)/$$file" \ || exit 1; \ fi; \ done $(MAKE) $(AM_MAKEFLAGS) \ top_distdir="$(top_distdir)" distdir="$(distdir)" \ dist-info check-am: all-am check: check-am all-am: Makefile $(INFO_DEPS) installdirs: for dir in "$(DESTDIR)$(infodir)"; do \ test -z "$$dir" || $(MKDIR_P) "$$dir"; \ done install: install-am install-exec: install-exec-am install-data: install-data-am uninstall: uninstall-am install-am: all-am @$(MAKE) $(AM_MAKEFLAGS) install-exec-am install-data-am installcheck: installcheck-am install-strip: if test -z '$(STRIP)'; then \ $(MAKE) $(AM_MAKEFLAGS) INSTALL_PROGRAM="$(INSTALL_STRIP_PROGRAM)" \ install_sh_PROGRAM="$(INSTALL_STRIP_PROGRAM)" INSTALL_STRIP_FLAG=-s \ install; \ else \ $(MAKE) $(AM_MAKEFLAGS) INSTALL_PROGRAM="$(INSTALL_STRIP_PROGRAM)" \ install_sh_PROGRAM="$(INSTALL_STRIP_PROGRAM)" INSTALL_STRIP_FLAG=-s \ "INSTALL_PROGRAM_ENV=STRIPPROG='$(STRIP)'" install; \ fi mostlyclean-generic: clean-generic: distclean-generic: -test -z "$(CONFIG_CLEAN_FILES)" || rm -f $(CONFIG_CLEAN_FILES) -test . = "$(srcdir)" || test -z "$(CONFIG_CLEAN_VPATH_FILES)" || rm -f $(CONFIG_CLEAN_VPATH_FILES) maintainer-clean-generic: @echo "This command is intended for maintainers to use" @echo "it deletes files that may require special tools to rebuild." clean: clean-am clean-am: clean-aminfo clean-generic clean-libtool mostlyclean-am distclean: distclean-am -rm -f Makefile distclean-am: clean-am distclean-generic dvi: dvi-am dvi-am: $(DVIS) html: html-am html-am: $(HTMLS) info: info-am info-am: $(INFO_DEPS) install-data-am: install-info-am install-dvi: install-dvi-am install-dvi-am: $(DVIS) @$(NORMAL_INSTALL) @list='$(DVIS)'; test -n "$(dvidir)" || list=; \ if test -n "$$list"; then \ echo " $(MKDIR_P) '$(DESTDIR)$(dvidir)'"; \ $(MKDIR_P) "$(DESTDIR)$(dvidir)" || exit 1; \ fi; \ for p in $$list; do \ if test -f "$$p"; then d=; else d="$(srcdir)/"; fi; \ echo "$$d$$p"; \ done | $(am__base_list) | \ while read files; do \ echo " $(INSTALL_DATA) $$files '$(DESTDIR)$(dvidir)'"; \ $(INSTALL_DATA) $$files "$(DESTDIR)$(dvidir)" || exit $$?; \ done install-exec-am: install-html: install-html-am install-html-am: $(HTMLS) @$(NORMAL_INSTALL) @list='$(HTMLS)'; list2=; test -n "$(htmldir)" || list=; \ if test -n "$$list"; then \ echo " $(MKDIR_P) '$(DESTDIR)$(htmldir)'"; \ $(MKDIR_P) "$(DESTDIR)$(htmldir)" || exit 1; \ fi; \ for p in $$list; do \ if test -f "$$p" || test -d "$$p"; then d=; else d="$(srcdir)/"; fi; \ $(am__strip_dir) \ d2=$$d$$p; \ if test -d "$$d2"; then \ echo " $(MKDIR_P) '$(DESTDIR)$(htmldir)/$$f'"; \ $(MKDIR_P) "$(DESTDIR)$(htmldir)/$$f" || exit 1; \ echo " $(INSTALL_DATA) '$$d2'/* '$(DESTDIR)$(htmldir)/$$f'"; \ $(INSTALL_DATA) "$$d2"/* "$(DESTDIR)$(htmldir)/$$f" || exit $$?; \ else \ list2="$$list2 $$d2"; \ fi; \ done; \ test -z "$$list2" || { echo "$$list2" | $(am__base_list) | \ while read files; do \ echo " $(INSTALL_DATA) $$files '$(DESTDIR)$(htmldir)'"; \ $(INSTALL_DATA) $$files "$(DESTDIR)$(htmldir)" || exit $$?; \ done; } install-info: install-info-am install-info-am: $(INFO_DEPS) @$(NORMAL_INSTALL) @srcdirstrip=`echo "$(srcdir)" | sed 's|.|.|g'`; \ list='$(INFO_DEPS)'; test -n "$(infodir)" || list=; \ if test -n "$$list"; then \ echo " $(MKDIR_P) '$(DESTDIR)$(infodir)'"; \ $(MKDIR_P) "$(DESTDIR)$(infodir)" || exit 1; \ fi; \ for file in $$list; do \ case $$file in \ $(srcdir)/*) file=`echo "$$file" | sed "s|^$$srcdirstrip/||"`;; \ esac; \ if test -f $$file; then d=.; else d=$(srcdir); fi; \ file_i=`echo "$$file" | sed 's|\.info$$||;s|$$|.i|'`; \ for ifile in $$d/$$file $$d/$$file-[0-9] $$d/$$file-[0-9][0-9] \ $$d/$$file_i[0-9] $$d/$$file_i[0-9][0-9] ; do \ if test -f $$ifile; then \ echo "$$ifile"; \ else : ; fi; \ done; \ done | $(am__base_list) | \ while read files; do \ echo " $(INSTALL_DATA) $$files '$(DESTDIR)$(infodir)'"; \ $(INSTALL_DATA) $$files "$(DESTDIR)$(infodir)" || exit $$?; done @$(POST_INSTALL) @if $(am__can_run_installinfo); then \ list='$(INFO_DEPS)'; test -n "$(infodir)" || list=; \ for file in $$list; do \ relfile=`echo "$$file" | sed 's|^.*/||'`; \ echo " install-info --info-dir='$(DESTDIR)$(infodir)' '$(DESTDIR)$(infodir)/$$relfile'";\ install-info --info-dir="$(DESTDIR)$(infodir)" "$(DESTDIR)$(infodir)/$$relfile" || :;\ done; \ else : ; fi install-man: install-pdf: install-pdf-am install-pdf-am: $(PDFS) @$(NORMAL_INSTALL) @list='$(PDFS)'; test -n "$(pdfdir)" || list=; \ if test -n "$$list"; then \ echo " $(MKDIR_P) '$(DESTDIR)$(pdfdir)'"; \ $(MKDIR_P) "$(DESTDIR)$(pdfdir)" || exit 1; \ fi; \ for p in $$list; do \ if test -f "$$p"; then d=; else d="$(srcdir)/"; fi; \ echo "$$d$$p"; \ done | $(am__base_list) | \ while read files; do \ echo " $(INSTALL_DATA) $$files '$(DESTDIR)$(pdfdir)'"; \ $(INSTALL_DATA) $$files "$(DESTDIR)$(pdfdir)" || exit $$?; done install-ps: install-ps-am install-ps-am: $(PSS) @$(NORMAL_INSTALL) @list='$(PSS)'; test -n "$(psdir)" || list=; \ if test -n "$$list"; then \ echo " $(MKDIR_P) '$(DESTDIR)$(psdir)'"; \ $(MKDIR_P) "$(DESTDIR)$(psdir)" || exit 1; \ fi; \ for p in $$list; do \ if test -f "$$p"; then d=; else d="$(srcdir)/"; fi; \ echo "$$d$$p"; \ done | $(am__base_list) | \ while read files; do \ echo " $(INSTALL_DATA) $$files '$(DESTDIR)$(psdir)'"; \ $(INSTALL_DATA) $$files "$(DESTDIR)$(psdir)" || exit $$?; done installcheck-am: maintainer-clean: maintainer-clean-am -rm -f Makefile maintainer-clean-am: distclean-am maintainer-clean-aminfo \ maintainer-clean-generic mostlyclean: mostlyclean-am mostlyclean-am: mostlyclean-aminfo mostlyclean-generic \ mostlyclean-libtool pdf: pdf-am pdf-am: $(PDFS) ps: ps-am ps-am: $(PSS) uninstall-am: uninstall-dvi-am uninstall-html-am uninstall-info-am \ uninstall-pdf-am uninstall-ps-am .MAKE: install-am install-strip .PHONY: all all-am check check-am clean clean-aminfo clean-generic \ clean-libtool dist-info distclean distclean-generic \ distclean-libtool distdir dvi dvi-am html html-am info info-am \ install install-am install-data install-data-am install-dvi \ install-dvi-am install-exec install-exec-am install-html \ install-html-am install-info install-info-am install-man \ install-pdf install-pdf-am install-ps install-ps-am \ install-strip installcheck installcheck-am installdirs \ maintainer-clean maintainer-clean-aminfo \ maintainer-clean-generic mostlyclean mostlyclean-aminfo \ mostlyclean-generic mostlyclean-libtool pdf pdf-am ps ps-am \ uninstall uninstall-am uninstall-dvi-am uninstall-html-am \ uninstall-info-am uninstall-pdf-am uninstall-ps-am update-docs: $(top_builddir)/dev-environ $(srcdir)/make-texinfo.scm $(srcdir)/$(doc).scm $(DOT_DOC_FILES) >$(doc).texi.tmp mv $(doc).texi.tmp $(doc).texi # Tell versions [3.59,3.63) of GNU make to not export all variables. # Otherwise a system limit (for SysV at least) may be exceeded. .NOEXPORT: guile-gnome-platform-2.16.2/glib/doc/gobject/make-texinfo.scm0000755000175000017500000002143511670374302024371 0ustar00wingowingo00000000000000#!/bin/sh # -*- scheme -*- exec guile --debug -s $0 "$@" !# ;; guile-gnome ;; Copyright (C) 2006, 2010 Free Software Foundation ;; Copyright (C) 2007 Andy Wingo ;; This program is free software; you can redistribute it and/or ;; modify it under the terms of the GNU General Public License as ;; published by the Free Software Foundation; either version 2 of ;; the License, or (at your option) any later version. ;; ;; This program is distributed in the hope that it will be useful, ;; but WITHOUT ANY WARRANTY; without even the implied warranty of ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the ;; GNU General Public License for more details. ;; ;; You should have received a copy of the GNU General Public License ;; along with this program; if not, contact: ;; ;; Free Software Foundation Voice: +1-617-542-5942 ;; 59 Temple Place - Suite 330 Fax: +1-617-542-2652 ;; Boston, MA 02111-1307, USA gnu@gnu.org ;; All of the parsing code was written by Ludovic Courtès. (use-modules (texinfo) (texinfo reflection) (texinfo serialize) (ice-9 rdelim) ((srfi srfi-1) #:select (append-map)) (srfi srfi-13) (srfi srfi-14)) (define (snarf-line-start? line) "Return true if @var{line} (a string) can be considered to start a block produced by the @code{snarf.h} snarfing macros." (and (>= (string-length line) 4) (string=? (substring line 0 4) "^^ {"))) (define (snarf-line-finish? line) "Return true if @var{line} (a string) can be considered to end a block produced by the @code{snarf.h} snarfing macros." (string-contains? line "^^ }")) (define (parse-c-argument-list arg-string) "Parse @var{arg-string} (a string representing a ANSI C argument list, e.g., @var{(const SCM first, SCM second_arg)}) and return a list of strings denoting the argument names." (define %c-symbol-char-set (char-set-adjoin char-set:letter+digit #\_)) (let loop ((args (string-tokenize (string-trim-both arg-string #\space) %c-symbol-char-set)) (type? #t) (result '())) (if (null? args) (reverse! result) (let ((the-arg (car args))) (cond ((and type? (string=? the-arg "const")) (loop (cdr args) type? result)) ((and type? (string=? the-arg "SCM")) (loop (cdr args) (not type?) result)) (type? ;; any other type, e.g., `void' (loop (cdr args) (not type?) result)) (else (loop (cdr args) (not type?) (cons the-arg result)))))))) (define (parse-documentation-item item) "Parse @var{item} (a string), a single function string produced by the C preprocessor. The result is an alist whose keys represent specific aspects of a procedure's documentation: @code{c-name}, @code{scheme-name}, @code{documentation} (a Texinfo documentation string), etc." (define (read-strings) ;; Read several subsequent strings and return their concatenation. (let loop ((str (read)) (result '())) (if (or (eof-object? str) (not (string? str))) (string-concatenate (reverse! result)) (loop (read) (cons str result))))) ;;(format (current-error-port) "doc-item: ~a~%" item) (let* ((item (string-trim-both item #\space)) (space (or (string-index item #\space) 0))) (let ((kind (substring item 0 space)) (rest (substring item space (string-length item)))) (cond ((string=? kind "cname") (cons 'c-name (string-trim-both rest #\space))) ((string=? kind "fname") (cons 'scheme-name (with-input-from-string rest read-strings))) ((string=? kind "type") (cons 'type (with-input-from-string rest read))) ((string=? kind "location") (cons 'location (with-input-from-string rest (lambda () (let loop ((str (read)) (result '())) (if (eof-object? str) (reverse! result) (loop (read) (cons str result)))))))) ((string=? kind "arglist") (cons 'arguments (parse-c-argument-list rest))) ((string=? kind "argsig") (cons 'signature (with-input-from-string rest (lambda () (let ((req (read)) (opt (read)) (rst? (read))) (list (cons 'required req) (cons 'optional opt) (cons 'rest? (= 1 rst?)))))))) (else ;; docstring (may consist of several C strings which we ;; assume to be equivalent to Scheme strings) (cons 'documentation (with-input-from-string item read-strings))))))) (define (parse-snarfed-line line) "Parse @var{line}, a string that contains documentation returned for a single function by the C preprocessor with the @code{-DSCM_MAGIC_SNARF_DOCS} option. @var{line} is assumed to obey the @code{snarf-line?} predicate." (define (caret-split str) (let loop ((str str) (result '())) (if (string=? str "") (reverse! result) (let ((caret (string-index str #\^)) (len (string-length str))) (if caret (if (and (> (- len caret) 0) (eq? (string-ref str (+ caret 1)) #\^)) (loop (substring str (+ 2 caret) len) (cons (string-take str (- caret 1)) result)) (error "single caret not allowed" str)) (loop "" (cons str result))))))) (let ((items (caret-split (substring line 4 (- (string-length line) 4))))) (map parse-documentation-item items))) (define (parse-snarfing port) "Read C preprocessor (where the @code{SCM_MAGIC_SNARF_DOCS} macro is defined) output from @var{port} a return a list of alist, each of which contains information about a specific function described in the C preprocessor output." (let loop ((line (read-line port)) (result '())) ;;(format (current-error-port) "line: ~a~%" line) (if (eof-object? line) result (cond ((snarf-line-start? line) (let fill ((line line)) (if (snarf-line-finish? line) (loop (read-line port) (cons (parse-snarfed-line line) result)) (fill (string-append line (read-line port)))))) (else (loop (read-line port) result)))))) (define (list-intersperse src-l elem) (if (null? src-l) src-l (let loop ((l (cdr src-l)) (dest (cons (car src-l) '()))) (if (null? l) (reverse dest) (loop (cdr l) (cons (car l) (cons elem dest))))))) (define (snarfing->stexi alist) `(deffn (% (name ,(assq-ref alist 'scheme-name)) (category "Primitive") ;; ,(assq-ref alist 'type)) (arguments ,@(list-intersperse (assq-ref alist 'arguments) " "))) ,@(cdr (texi-fragment->stexi (assq-ref alist 'documentation))))) (define (parse-c-docs dot-doc-files) (append-map (lambda (filename) (call-with-input-file filename (lambda (port) (map snarfing->stexi (parse-snarfing port))))) dot-doc-files)) (define (def-name def) (string->symbol (cadr (assq 'name (cdadr def))))) (define (main config-scm . dot-doc-files) (define docs-resolver (let* ((defs (parse-c-docs dot-doc-files)) (defs-alist (map cons (map def-name defs) defs))) (lambda (name def) (or (and=> (assq name defs-alist) cdr) def)))) (primitive-load config-scm) (display (stexi->texi (package-stexi-documentation (map car *modules*) *name* (string-append *texinfo-basename* ".info") (package-stexi-standard-prologue *name* (string-append *texinfo-basename* ".info") *texinfo-category* *description* (package-stexi-standard-copying *name* *version* *updated* *years* *copyright-holder* *permissions*) (package-stexi-standard-titlepage *name* *version* *updated* *authors*) (package-stexi-standard-menu *name* (map car *modules*) (map cdr *modules*) *extra-texinfo-menu-entries*)) *texinfo-epilogue* #:module-stexi-documentation-args (list #:docs-resolver docs-resolver))))) (apply main (cdr (command-line))) guile-gnome-platform-2.16.2/glib/THREADING0000644000175000017500000000515211670374302020337 0ustar00wingowingo00000000000000-*- outline -*- * A few notes on threads and guile-gobject There are a number of issues to address within guile-gobject before threading works properly. This document is an initial attempt to describe the problem before working on a solution. ** Before beginning, a caveat My knowledge of guile internals is sketchy at best -- if you happen to notice some errors here do let me know. ** Fact 1: The guile interpreter is single-threaded (at the moment) It seems that garbage collection is the only non-reentrant part of guile's API. There are some comments in __scm.h that lead one to believe that proper multithreading is coming, but the comments are 5 years old at this writing: /* Classification of critical sections * * When Guile moves to POSIX threads, it won't be possible to prevent * context switching. In fact, the whole idea of context switching is * bogus if threads are run by different processors. Therefore, we * must ultimately eliminate all critical sections or enforce them by * use of mutecis. * * All instances of SCM_DEFER_INTS and SCM_ALLOW_INTS should therefore * be classified and replaced by one of the delimiters below. If you * understand what this is all about, I'd like to encourage you to * help with this task. The set of classes below must of course be * incrementally augmented. * * MDJ 980419 */ There are a few SCM_DEFER_INTS scattered hither and yon in the code, but because the only thing that relies on them is the signal-handling code it's not clear to me how much more work it might take to get pthread support added. This problem mainly surfaces when you have callbacks coming back into scheme from C threads. Even if you have a global interpreter lock that you pass around (something that I don't think guile provides for you -- we'll have to make this one ourselves), you have to protect against invocation of continuations from other threads. This could be solved by somehow correlating pthreads to dynamic roots, perhaps. This problem makes my head hurt! Of course, you still have the same old pedestrian issues of accessing the same variable at the same time. Is it still a policy of guile's that you shouldn't be able to crash the interpreter from scheme? Perhaps what needs to be done in the long run is what Perl does with ithreads, see perlthrtut(1). ** Fact 2: The X window system is also single-threaded ... ... and by extension, so are GDK and Gtk+. Either you can (1) enable threading with g_threads_init () and put all of your idle-executed code within gdk_threads_enter()/leave() pairs, or pass asyncronous messages back to a designated "graphics thread". guile-gnome-platform-2.16.2/glib/gnome/0000755000175000017500000000000011752546500020213 5ustar00wingowingo00000000000000guile-gnome-platform-2.16.2/glib/gnome/gw/0000755000175000017500000000000011752546500020630 5ustar00wingowingo00000000000000guile-gnome-platform-2.16.2/glib/gnome/gw/gobject-spec.scm0000644000175000017500000001524711751764617023724 0ustar00wingowingo00000000000000;; guile-gnome ;; Copyright (C) 2003,2004 Andy Wingo ;; Copyright (C) 2004 Andreas Rottmann ;; This program is free software; you can redistribute it and/or ;; modify it under the terms of the GNU General Public License as ;; published by the Free Software Foundation; either version 2 of ;; the License, or (at your option) any later version. ;; ;; This program is distributed in the hope that it will be useful, ;; but WITHOUT ANY WARRANTY; without even the implied warranty of ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the ;; GNU General Public License for more details. ;; ;; You should have received a copy of the GNU General Public License ;; along with this program; if not, contact: ;; ;; Free Software Foundation Voice: +1-617-542-5942 ;; 59 Temple Place - Suite 330 Fax: +1-617-542-2652 ;; Boston, MA 02111-1307, USA gnu@gnu.org ;;; Commentary: ;; ;;A g-wrap specification for GObject. ;; ;;; Code: ;;; -*-scheme-*- (define-module (gnome gw gobject-spec) #:use-module (oop goops) #:use-module (gnome gw support g-wrap) #:use-module (g-wrap enumeration) #:use-module (gnome gw glib-spec) #:use-module (gnome gw support gobject)) ;; gw-gobject: a wrapset to assist in wrapping gobject-based apis (define-class () #:id 'gnome-gobject #:dependencies '(standard gnome-glib)) (define-class ()) (define-method (global-declarations-cg (ws ) (item )) (list "#include \n")) (define-method (initializations-cg (ws ) err) (list (next-method) (inline-scheme ws '(use-modules (gnome gobject))))) (define-method (initialize (ws ) initargs) (next-method ws (append '(#:module (gnome gw gobject)) initargs)) (let ((item (make ))) (add-item! ws item) (add-client-item! ws item)) (add-type! ws (make #:name ' #:c-type-name "GType" #:type-check #f #:unwrap '(c-var " = scm_c_gtype_class_to_gtype (" scm-var ");\n") #:wrap '(scm-var " = scm_c_gtype_to_class (" c-var ");\n") #:ffspec 'size_t)) (wrap-instance! ws #:name ' #:ctype "GObject" #:gtype-id "G_TYPE_OBJECT" #:define-class? #f) (add-type! ws (make #:name ' #:ctype "GValue" #:c-type-name "GValue*" #:c-const-type-name "const GValue*" #:ffspec 'pointer #:wrapped "Custom")) (add-type! ws (make #:gtype-id "G_TYPE_CLOSURE" #:name ' #:ctype "GClosure" #:c-type-name "GClosure*" #:c-const-type-name "const GClosure*" #:ffspec 'pointer #:wrapped "Custom" #:define-class? #f)) (add-type! ws (make #:name ' #:ctype "GParamSpec" #:c-type-name "GParamSpec*" #:c-const-type-name "const GParamSpec*" #:ffspec 'pointer #:wrapped "Custom")) (for-each (lambda (pair) (add-type-alias! ws (car pair) (cadr pair))) '(("GType" ) ("GValue*" ) ("GObject*" ) ("GClosure*" ) ("GParamSpec*" ))) (wrap-gobject-class! ws #:ctype "GObjectClass" #:gtype-id "G_TYPE_OBJECT") ;; Wrap the pariah function of gobject. (wrap-function! ws #:name 'g-source-set-closure #:returns 'void #:c-name "g_source_set_closure" #:arguments '(( source) (( caller-owned) closure)) #:description "Set the closure for SOURCE to CLOSURE.")) (define-class ()) (define-method (unwrap-value-cg (type ) (value ) status-var) (let ((c-var (var value)) (scm-var (scm-var value))) (if-typespec-option value 'null-ok (list "if (SCM_FALSEP (" scm-var "))\n" " " c-var " = NULL;\n") (list "if (!(" c-var " = scm_c_scm_to_gtype_instance_typed (" scm-var ", G_TYPE_PARAM)))\n" `(gw:error ,status-var type ,(wrapped-var value)))))) (define-method (wrap-value-cg (type ) (value ) status-var) (let ((c-var (var value)) (scm-var (scm-var value))) (list scm-var " = scm_c_gtype_instance_to_scm (" c-var ");\n"))) (define-class ()) (define-method (unwrap-value-cg (type ) (value ) status-var) (let ((c-var (var value)) (scm-var (scm-var value))) (list c-var " = scm_c_gvalue_peek_boxed (" scm-var ");\n"))) ;; necessary gvalue functions: ;; peek_boxed ;; dup_boxed ;; new_boxed ;; new_take_boxed ;; peek_value ;; dup_value (define-method (wrap-value-cg (type ) (value ) status-var) (let ((c-var (var value)) (scm-var (scm-var value))) ; not ideal but ok (list scm-var " = scm_c_gvalue_new_from_boxed (G_TYPE_CLOSURE, " c-var ");\n"))) (define-class ()) (define-method (unwrap-value-cg (type ) (value ) status-var) (let ((c-var (var value)) (scm-var (scm-var value))) (list (if-typespec-option value 'callee-owned (list c-var " = scm_c_gvalue_dup_value (" scm-var ");\n") (list c-var " = scm_c_gvalue_peek_value (" scm-var ");\n"))))) (define-method (wrap-value-cg (type ) (value ) status-var) (let ((c-var (var value)) (scm-var (scm-var value))) (list "if (" c-var " != NULL)\n" (if-typespec-option value 'const (list scm-var " = scm_c_gvalue_from_value (" c-var ");\n") (list scm-var " = scm_c_gvalue_take_value (" c-var ");\n")) "else\n" " " scm-var " = SCM_BOOL_F;\n"))) guile-gnome-platform-2.16.2/glib/gnome/gw/glib-support.c0000644000175000017500000002465611670374302023436 0ustar00wingowingo00000000000000/* guile-gnome * Copyright (C) 2003,2004,2007 Andy Wingo * 2004 Jan Nieuwenhuizen * * glib-support.c: Support routines for the GLib wrapper * * This program is free software; you can redistribute it and/or * modify it under the terms of the GNU General Public License as * published by the Free Software Foundation; either version 2 of * the License, or (at your option) any later version. * * This program is distributed in the hope that it will be useful, * but WITHOUT ANY WARRANTY; without even the implied warranty of * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the * GNU General Public License for more details. * * You should have received a copy of the GNU General Public License * along with this program; if not, contact: * * Free Software Foundation Voice: +1-617-542-5942 * 59 Temple Place - Suite 330 Fax: +1-617-542-2652 * Boston, MA 02111-1307, USA gnu@gnu.org */ #include #include #include "glib-support.h" #include #define GRUNTIME_ERROR(format, func_name, args...) \ scm_error (scm_str2symbol ("gruntime-error"), func_name, format, \ ##args, SCM_EOL) size_t _wrap_g_bookmark_file_free (void *wcp) { g_bookmark_file_free (wcp); return 0; } gboolean _wrap_g_bookmark_file_load_from_data (GBookmarkFile *bookmark, const char *data, GError **error) { return g_bookmark_file_load_from_data (bookmark, data, strlen (data), error); } char* _wrap_g_bookmark_file_to_data (GBookmarkFile *bookmark, GError **error) { return g_bookmark_file_to_data (bookmark, NULL, error); } SCM _wrap_g_bookmark_file_get_uris (GBookmarkFile *bookmark) { SCM ret = SCM_EOL; char **strs, *str; gint i = 0; strs = g_bookmark_file_get_uris (bookmark, NULL); for (str = strs[i]; str; i++) ret = scm_cons (scm_from_locale_string (str), ret); g_strfreev (strs); return scm_reverse_x (ret, SCM_EOL); } SCM _wrap_g_bookmark_file_get_groups (GBookmarkFile *bookmark, const char *uri, GError **error) { SCM ret = SCM_EOL; char **strs, *str; gint i = 0; strs = g_bookmark_file_get_groups (bookmark, uri, NULL, error); if (strs) { for (str = strs[i]; str; i++) ret = scm_cons (scm_from_locale_string (str), ret); g_strfreev (strs); } return scm_reverse_x (ret, SCM_EOL); } SCM _wrap_g_bookmark_file_get_applications (GBookmarkFile *bookmark, const char *uri, GError **error) { SCM ret = SCM_EOL; char **strs, *str; gint i = 0; strs = g_bookmark_file_get_applications (bookmark, uri, NULL, error); if (strs) { for (str = strs[i]; str; i++) ret = scm_cons (scm_from_locale_string (str), ret); g_strfreev (strs); } return scm_reverse_x (ret, SCM_EOL); } gchar* _wrap_g_convert (const gchar* str, const gchar* to_codeset, const gchar* from_codeset, GError** error) { return g_convert (str, -1, to_codeset, from_codeset, NULL, NULL, error); } gchar* _wrap_g_convert_with_fallback (const gchar* str, const gchar* to_codeset, const gchar* from_codeset, gchar* fallback, GError** error) { return g_convert_with_fallback (str, -1, to_codeset, from_codeset, fallback, NULL, NULL, error); } static SCM iochannel_type = SCM_BOOL_F; static gboolean caught_intr = FALSE; static GMainContext *wakeup_context = NULL; typedef struct { GSource source; GMainLoop *loop; struct sigaction prev_sigaction; int signum; } SignalSource; static gboolean signal_source_prepare (GSource * source, gint * timeout) { SignalSource *ssrc = (SignalSource *) source; *timeout = -1; return ssrc->signum != 0; } static gboolean signal_source_check (GSource * source) { SignalSource *ssrc = (SignalSource *) source; if (caught_intr) g_main_loop_quit (ssrc->loop); return FALSE; } static gboolean signal_source_dispatch (GSource * source, GSourceFunc callback, gpointer user_data) { g_assert_not_reached (); } static void signal_source_finalize (GSource * source) { SignalSource *ssrc = (SignalSource *) source; sigaction (SIGINT, &ssrc->prev_sigaction, NULL); caught_intr = FALSE; g_main_loop_unref (ssrc->loop); ssrc->loop = NULL; } static GSourceFuncs signal_source_funcs = { signal_source_prepare, signal_source_check, signal_source_dispatch, signal_source_finalize }; static void sigint_handler (int signum) { caught_intr = TRUE; g_main_context_wakeup (wakeup_context); } static SignalSource* signal_source_new (GMainLoop *loop) { SignalSource *source; struct sigaction action; GMainContext *ctx, *prev_ctx; g_return_val_if_fail (loop != NULL, NULL); source = (SignalSource *) g_source_new (&signal_source_funcs, sizeof (SignalSource)); g_main_loop_ref (loop); source->loop = loop; memset (&action, 0, sizeof (action)); memset (&source->prev_sigaction, 0, sizeof (source->prev_sigaction)); action.sa_handler = sigint_handler; sigaction (SIGINT, &action, &source->prev_sigaction); /* not fully threadsafe :/ */ prev_ctx = wakeup_context; ctx = g_main_loop_get_context (loop); g_main_context_ref (ctx); wakeup_context = ctx; if (prev_ctx) g_main_context_unref (prev_ctx); /* context acquires a ref on the source */ g_source_attach ((GSource *) source, ctx); g_source_unref ((GSource *) source); return source; } void scm_init_glib (void) { /* noop */ } static void* main_loop_run_without_guile (void *loop) { g_main_loop_run (loop); return NULL; } void _wrap_g_main_loop_run (GMainLoop *loop) { GSource *source = NULL; scm_dynwind_begin (0); caught_intr = FALSE; source = (GSource*)signal_source_new (loop); scm_dynwind_unwind_handler ((void*)(void*)g_source_destroy, source, SCM_F_WIND_EXPLICITLY); scm_without_guile (main_loop_run_without_guile, loop); if (caught_intr) scm_error (scm_from_locale_symbol ("signal"), "g-main-loop-run", NULL, SCM_BOOL_F, scm_list_1 (scm_from_int (SIGINT))); scm_dynwind_end(); } SCM _wrap_g_string_get_str (GString *str) { return scm_from_locale_stringn (str->str, str->len); } struct io_args { GIOChannel *source; GIOCondition condition; SCM proc; }; static void* _with_io_func (gpointer data) { struct io_args *args = data; SCM result; result = scm_call_2 (args->proc, gw_wcp_assimilate_ptr (args->source, iochannel_type), scm_from_long (args->condition)); return result != SCM_BOOL_F ? (void*)1 : (void*)0; } static gboolean g_io_func (GIOChannel *source, GIOCondition condition, gpointer data) { struct io_args args; args.source = source; args.condition = condition; args.proc = GPOINTER_TO_SCM (data); return !!scm_with_guile(_with_io_func, &args); } guint _wrap_g_io_add_watch (GIOChannel *channel, GIOCondition condition, SCM func) #define FUNC_NAME "g-io-add-watch" { if (SCM_FALSEP (iochannel_type)) iochannel_type = scm_permanent_object (SCM_VARIABLE_REF (scm_c_module_lookup (scm_c_resolve_module ("gnome glib"), ""))); SCM_VALIDATE_PROC (3, func); return g_io_add_watch (channel, condition, ((GIOFunc) (g_io_func)), SCM_TO_GPOINTER (func)); } #undef FUNC_NAME GIOStatus _wrap_g_io_channel_read_line (GIOChannel *channel, gchar **str_return, GError **error) { return g_io_channel_read_line (channel, str_return, NULL, NULL, error); } gunichar _wrap_g_utf8_get_char (const gchar *p) { return g_utf8_get_char_validated (p, -1); } const char* _wrap_g_utf8_find_next_char (const gchar *p) { return g_utf8_find_next_char (p, NULL); } long _wrap_g_utf8_strlen (const gchar *p) { return g_utf8_strlen (p, -1); } const char* _wrap_g_utf8_strchr (const gchar *p, gunichar c) { return g_utf8_strchr (p, -1, c); } const char* _wrap_g_utf8_strrchr (const gchar *p, gunichar c) { return g_utf8_strrchr (p, -1, c); } char* _wrap_g_utf8_strreverse (const gchar *p) { return g_utf8_strreverse (p, -1); } gboolean _wrap_g_utf8_validate (const gchar *p) { return g_utf8_validate (p, -1, NULL); } char* _wrap_g_utf8_strup (const gchar *p) { return g_utf8_strup (p, -1); } char* _wrap_g_utf8_strdown (const gchar *p) { return g_utf8_strdown (p, -1); } char* _wrap_g_utf8_casefold (const gchar *p) { return g_utf8_casefold (p, -1); } char* _wrap_g_utf8_normalize (const gchar *p, GNormalizeMode mode) { return g_utf8_normalize (p, -1, mode); } char* _wrap_g_utf8_collate_key (const gchar *p) { return g_utf8_collate_key (p, -1); } char* _wrap_g_utf8_collate_key_for_filename (const gchar *p) { return g_utf8_collate_key_for_filename (p, -1); } char* _wrap_g_unichar_to_utf8 (gunichar c) { char *ret; int n; ret = g_malloc(8); n = g_unichar_to_utf8 (c, ret); ret[n] = '\0'; return ret; } gunichar2* _wrap_g_utf8_to_utf16 (const gchar *str, GError **error) { return g_utf8_to_utf16 (str, -1, NULL, NULL, error); } gunichar* _wrap_g_utf8_to_ucs4 (const gchar *str, GError **error) { return g_utf8_to_ucs4 (str, -1, NULL, NULL, error); } gunichar* _wrap_g_utf16_to_ucs4 (const gunichar2* str, GError **error) { return g_utf16_to_ucs4 (str, -1, NULL, NULL, error); } gchar* _wrap_g_utf16_to_utf8 (const gunichar2* str, GError **error) { return g_utf16_to_utf8 (str, -1, NULL, NULL, error); } gunichar2* _wrap_g_ucs4_to_utf16 (const gunichar* str, GError **error) { return g_ucs4_to_utf16 (str, -1, NULL, NULL, error); } gchar* _wrap_g_ucs4_to_utf8 (const gunichar* str, GError **error) { return g_ucs4_to_utf8 (str, -1, NULL, NULL, error); } guile-gnome-platform-2.16.2/glib/gnome/gw/generics.scm0000644000175000017500000000434111671507225023136 0ustar00wingowingo00000000000000;; guile-gnome ;; Copyright (C) 2003,2004-2005 Andy Wingo ;; This program is free software; you can redistribute it and/or ;; modify it under the terms of the GNU General Public License as ;; published by the Free Software Foundation; either version 2 of ;; the License, or (at your option) any later version. ;; ;; This program is distributed in the hope that it will be useful, ;; but WITHOUT ANY WARRANTY; without even the implied warranty of ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the ;; GNU General Public License for more details. ;; ;; You should have received a copy of the GNU General Public License ;; along with this program; if not, contact: ;; ;; Free Software Foundation Voice: +1-617-542-5942 ;; 59 Temple Place - Suite 330 Fax: +1-617-542-2652 ;; Boston, MA 02111-1307, USA gnu@gnu.org ;;; Commentary: ;; ;; This module exists so that all @code{(gnome gw)} modules have a ;; common place to put their generic functions. Whenever a wrapset is ;; loaded, it adds method definitions to generics defined in this ;; module. ;; ;; See the documentation for @code{(gnome gobject generics)} for more ;; notes about generic functions in Guile-GNOME. This module re-exports ;; bindings from @code{(gnome gobject generics)}, so there is no need to ;; import them both. ;; ;;; Code: (define-module (gnome gw generics) #:use-module (gnome gobject) #:use-module (gnome gobject generics)) ;; Re-export (gnome gobject generics) (module-use! (module-public-interface (current-module)) (resolve-interface '(gnome gobject generics))) (module-for-each (lambda (k v) (module-add! (current-module) k v)) (resolve-interface '(gnome gobject generics))) (let ((mod (current-module))) (set-module-binder! (module-public-interface mod) (lambda (interface sym define?) (case sym ((%gw-latent-variables-hash %module-public-interface) #f) (else (let ((var (module-local-variable mod sym))) (if var (module-add! interface sym var)) var)))))) guile-gnome-platform-2.16.2/glib/gnome/gw/Makefile.am0000644000175000017500000000453111670374302022665 0ustar00wingowingo00000000000000include $(top_srcdir)/common.mk SUBDIRS = support package = glib guilegwmodule_DATA = gobject-spec.scm gobject.scm glib-spec.scm glib.scm generics.scm # There are two shared libraries: # # libguile-gnome-gobject, which contains the core gobject support code # (both types and functions). # # This library and its headers can be accessed via pkg-config (the # .pc.in files). # # libgw-guile-gnome-gobject, produced by g-wrap, which supports the # g-wrap type wrappings for gobject-related types. This one is not # used by the scheme<->gobject code; it's only there to support other # wrapsets. # # Also, there's a g-wrap-produced wrapper for glib types and functions, # libgw-guile-gnome-glib.la. guilegnomelib_LTLIBRARIES = libgw-guile-gnome-gobject.la \ libgw-guile-gnome-glib.la # libgw-guile-gnome-gobject (g-wrap support) nodist_libgw_guile_gnome_gobject_la_SOURCES = guile-gnome-gw-gobject.c libgw_guile_gnome_gobject_la_CFLAGS = -I$(srcdir)/../gobject -I../gobject \ $(AM_CFLAGS) $(GOBJECT_CFLAGS) $(GUILE_CFLAGS) $(G_WRAP_CFLAGS) \ $(GUILE_GLIB_CFLAGS) libgw_guile_gnome_gobject_la_LIBADD = $(G_WRAP_LIBS) $(GOBJECT_LIBS) \ $(GUILE_LIBS) $(GUILE_GLIB_LIBS) \ ../gobject/libguile-gnome-gobject-@API_VERSION@.la libgw_guile_gnome_gobject_la_LDFLAGS = -module # libgw-guile-gnome-glib (g-wrap support for glib) noinst_HEADERS = glib-support.h nodist_libgw_guile_gnome_glib_la_SOURCES = guile-gnome-gw-glib.c libgw_guile_gnome_glib_la_SOURCES = glib-support.c libgw_guile_gnome_glib_la_CFLAGS = \ $(AM_CFLAGS) $(GLIB_CFLAGS) $(GUILE_CFLAGS) $(G_WRAP_CFLAGS) \ $(GUILE_GLIB_CFLAGS) libgw_guile_gnome_glib_la_LIBADD = $(GLIB_LIBS) $(GUILE_LIBS) \ $(G_WRAP_LIBS) $(GUILE_GLIB_LIBS) libgw_guile_gnome_glib_la_LDFLAGS = -module BUILT_SOURCES = \ guile-gnome-gw-gobject.c \ guile-gnome-gw-glib.c CLEANFILES = $(BUILT_SOURCES) guile-gnome-gobject.texi \ $(wildcard gnome-*.log) \ $(wildcard guile-gnome-gw-gobject.* guile-gnome-gw-glib.*) \ gobject.scm glib.scm DISTCLEANFILES = $(CLEANFILES) EXTRA_DIST = gobject-spec.scm glib-spec.scm generics.scm dist-hook: for file in $(DISTCLEANFILES); do rm -f $(distdir)/$$file; done # fixme: what is this for? ETAGS_ARGS = --regex='/SCM_\(GLOBAL_\)?\(G?PROC\|G?PROC1\|SYMBOL\|VCELL\|CONST_LONG\).*\"\([^\"]\)*\"/\3/' \ --regex='/[ \t]*SCM_[G]?DEFINE1?[ \t]*(\([^,]*\),[^,]*/\1/' guile-gnome-platform-2.16.2/glib/gnome/gw/Makefile.in0000644000175000017500000011026511752520656022706 0ustar00wingowingo00000000000000# Makefile.in generated by automake 1.11.5 from Makefile.am. # @configure_input@ # Copyright (C) 1994, 1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, # 2003, 2004, 2005, 2006, 2007, 2008, 2009, 2010, 2011 Free Software # Foundation, Inc. # This Makefile.in is free software; the Free Software Foundation # gives unlimited permission to copy and/or distribute it, # with or without modifications, as long as this notice is preserved. # This program is distributed in the hope that it will be useful, # but WITHOUT ANY WARRANTY, to the extent permitted by law; without # even the implied warranty of MERCHANTABILITY or FITNESS FOR A # PARTICULAR PURPOSE. @SET_MAKE@ # guile-gnome # Copyright (C) 2003,2004,2009,2012 Free Software Foundation, Inc. # This program is free software; you can redistribute it and/or # modify it under the terms of the GNU General Public License as # published by the Free Software Foundation; either version 2 of # the License, or (at your option) any later version. # This program is distributed in the hope that it will be useful, # but WITHOUT ANY WARRANTY; without even the implied warranty of # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the # GNU General Public License for more details. # You should have received a copy of the GNU General Public License # along with this program; if not, contact: # Free Software Foundation Voice: +1-617-542-5942 # 59 Temple Place - Suite 330 Fax: +1-617-542-2652 # Boston, MA 02111-1307, USA gnu@gnu.org # # Makefile snippet # VPATH = @srcdir@ am__make_dryrun = \ { \ am__dry=no; \ case $$MAKEFLAGS in \ *\\[\ \ ]*) \ echo 'am--echo: ; @echo "AM" OK' | $(MAKE) -f - 2>/dev/null \ | grep '^AM OK$$' >/dev/null || am__dry=yes;; \ *) \ for am__flg in $$MAKEFLAGS; do \ case $$am__flg in \ *=*|--*) ;; \ *n*) am__dry=yes; break;; \ esac; \ done;; \ esac; \ test $$am__dry = yes; \ } pkgdatadir = $(datadir)/@PACKAGE@ pkgincludedir = $(includedir)/@PACKAGE@ pkglibdir = $(libdir)/@PACKAGE@ pkglibexecdir = $(libexecdir)/@PACKAGE@ am__cd = CDPATH="$${ZSH_VERSION+.}$(PATH_SEPARATOR)" && cd install_sh_DATA = $(install_sh) -c -m 644 install_sh_PROGRAM = $(install_sh) -c install_sh_SCRIPT = $(install_sh) -c INSTALL_HEADER = $(INSTALL_DATA) transform = $(program_transform_name) NORMAL_INSTALL = : PRE_INSTALL = : POST_INSTALL = : NORMAL_UNINSTALL = : PRE_UNINSTALL = : POST_UNINSTALL = : build_triplet = @build@ host_triplet = @host@ DIST_COMMON = $(noinst_HEADERS) $(srcdir)/Makefile.am \ $(srcdir)/Makefile.in $(top_srcdir)/common.mk subdir = glib/gnome/gw ACLOCAL_M4 = $(top_srcdir)/aclocal.m4 am__aclocal_m4_deps = $(top_srcdir)/configure.ac am__configure_deps = $(am__aclocal_m4_deps) $(CONFIGURE_DEPENDENCIES) \ $(ACLOCAL_M4) mkinstalldirs = $(install_sh) -d CONFIG_HEADER = $(top_builddir)/config.h CONFIG_CLEAN_FILES = CONFIG_CLEAN_VPATH_FILES = am__vpath_adj_setup = srcdirstrip=`echo "$(srcdir)" | sed 's|.|.|g'`; am__vpath_adj = case $$p in \ $(srcdir)/*) f=`echo "$$p" | sed "s|^$$srcdirstrip/||"`;; \ *) f=$$p;; \ esac; am__strip_dir = f=`echo $$p | sed -e 's|^.*/||'`; am__install_max = 40 am__nobase_strip_setup = \ srcdirstrip=`echo "$(srcdir)" | sed 's/[].[^$$\\*|]/\\\\&/g'` am__nobase_strip = \ for p in $$list; do echo "$$p"; done | sed -e "s|$$srcdirstrip/||" am__nobase_list = $(am__nobase_strip_setup); \ for p in $$list; do echo "$$p $$p"; done | \ sed "s| $$srcdirstrip/| |;"' / .*\//!s/ .*/ ./; s,\( .*\)/[^/]*$$,\1,' | \ $(AWK) 'BEGIN { files["."] = "" } { files[$$2] = files[$$2] " " $$1; \ if (++n[$$2] == $(am__install_max)) \ { print $$2, files[$$2]; n[$$2] = 0; files[$$2] = "" } } \ END { for (dir in files) print dir, files[dir] }' am__base_list = \ sed '$$!N;$$!N;$$!N;$$!N;$$!N;$$!N;$$!N;s/\n/ /g' | \ sed '$$!N;$$!N;$$!N;$$!N;s/\n/ /g' am__uninstall_files_from_dir = { \ test -z "$$files" \ || { test ! -d "$$dir" && test ! -f "$$dir" && test ! -r "$$dir"; } \ || { echo " ( cd '$$dir' && rm -f" $$files ")"; \ $(am__cd) "$$dir" && rm -f $$files; }; \ } am__installdirs = "$(DESTDIR)$(guilegnomelibdir)" \ "$(DESTDIR)$(guilegwmoduledir)" LTLIBRARIES = $(guilegnomelib_LTLIBRARIES) am__DEPENDENCIES_1 = libgw_guile_gnome_glib_la_DEPENDENCIES = $(am__DEPENDENCIES_1) \ $(am__DEPENDENCIES_1) $(am__DEPENDENCIES_1) \ $(am__DEPENDENCIES_1) am_libgw_guile_gnome_glib_la_OBJECTS = \ libgw_guile_gnome_glib_la-glib-support.lo nodist_libgw_guile_gnome_glib_la_OBJECTS = \ libgw_guile_gnome_glib_la-guile-gnome-gw-glib.lo libgw_guile_gnome_glib_la_OBJECTS = \ $(am_libgw_guile_gnome_glib_la_OBJECTS) \ $(nodist_libgw_guile_gnome_glib_la_OBJECTS) libgw_guile_gnome_glib_la_LINK = $(LIBTOOL) --tag=CC \ $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=link $(CCLD) \ $(libgw_guile_gnome_glib_la_CFLAGS) $(CFLAGS) \ $(libgw_guile_gnome_glib_la_LDFLAGS) $(LDFLAGS) -o $@ libgw_guile_gnome_gobject_la_DEPENDENCIES = $(am__DEPENDENCIES_1) \ $(am__DEPENDENCIES_1) $(am__DEPENDENCIES_1) \ $(am__DEPENDENCIES_1) \ ../gobject/libguile-gnome-gobject-@API_VERSION@.la nodist_libgw_guile_gnome_gobject_la_OBJECTS = \ libgw_guile_gnome_gobject_la-guile-gnome-gw-gobject.lo libgw_guile_gnome_gobject_la_OBJECTS = \ $(nodist_libgw_guile_gnome_gobject_la_OBJECTS) libgw_guile_gnome_gobject_la_LINK = $(LIBTOOL) --tag=CC \ $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=link $(CCLD) \ $(libgw_guile_gnome_gobject_la_CFLAGS) $(CFLAGS) \ $(libgw_guile_gnome_gobject_la_LDFLAGS) $(LDFLAGS) -o $@ DEFAULT_INCLUDES = -I.@am__isrc@ -I$(top_builddir) depcomp = $(SHELL) $(top_srcdir)/build-aux/depcomp am__depfiles_maybe = depfiles am__mv = mv -f COMPILE = $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(AM_CPPFLAGS) \ $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) LTCOMPILE = $(LIBTOOL) --tag=CC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) \ --mode=compile $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) \ $(AM_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) CCLD = $(CC) LINK = $(LIBTOOL) --tag=CC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) \ --mode=link $(CCLD) $(AM_CFLAGS) $(CFLAGS) $(AM_LDFLAGS) \ $(LDFLAGS) -o $@ SOURCES = $(libgw_guile_gnome_glib_la_SOURCES) \ $(nodist_libgw_guile_gnome_glib_la_SOURCES) \ $(nodist_libgw_guile_gnome_gobject_la_SOURCES) DIST_SOURCES = $(libgw_guile_gnome_glib_la_SOURCES) RECURSIVE_TARGETS = all-recursive check-recursive dvi-recursive \ html-recursive info-recursive install-data-recursive \ install-dvi-recursive install-exec-recursive \ install-html-recursive install-info-recursive \ install-pdf-recursive install-ps-recursive install-recursive \ installcheck-recursive installdirs-recursive pdf-recursive \ ps-recursive uninstall-recursive am__can_run_installinfo = \ case $$AM_UPDATE_INFO_DIR in \ n|no|NO) false;; \ *) (install-info --version) >/dev/null 2>&1;; \ esac DATA = $(guilegwmodule_DATA) HEADERS = $(noinst_HEADERS) RECURSIVE_CLEAN_TARGETS = mostlyclean-recursive clean-recursive \ distclean-recursive maintainer-clean-recursive AM_RECURSIVE_TARGETS = $(RECURSIVE_TARGETS:-recursive=) \ $(RECURSIVE_CLEAN_TARGETS:-recursive=) tags TAGS ctags CTAGS \ distdir ETAGS = etags CTAGS = ctags DIST_SUBDIRS = $(SUBDIRS) DISTFILES = $(DIST_COMMON) $(DIST_SOURCES) $(TEXINFOS) $(EXTRA_DIST) am__relativize = \ dir0=`pwd`; \ sed_first='s,^\([^/]*\)/.*$$,\1,'; \ sed_rest='s,^[^/]*/*,,'; \ sed_last='s,^.*/\([^/]*\)$$,\1,'; \ sed_butlast='s,/*[^/]*$$,,'; \ while test -n "$$dir1"; do \ first=`echo "$$dir1" | sed -e "$$sed_first"`; \ if test "$$first" != "."; then \ if test "$$first" = ".."; then \ dir2=`echo "$$dir0" | sed -e "$$sed_last"`/"$$dir2"; \ dir0=`echo "$$dir0" | sed -e "$$sed_butlast"`; \ else \ first2=`echo "$$dir2" | sed -e "$$sed_first"`; \ if test "$$first2" = "$$first"; then \ dir2=`echo "$$dir2" | sed -e "$$sed_rest"`; \ else \ dir2="../$$dir2"; \ fi; \ dir0="$$dir0"/"$$first"; \ fi; \ fi; \ dir1=`echo "$$dir1" | sed -e "$$sed_rest"`; \ done; \ reldir="$$dir2" ACLOCAL = @ACLOCAL@ AG_PKG_CONFIG_PATH = @AG_PKG_CONFIG_PATH@ AMTAR = @AMTAR@ API_VERSION = @API_VERSION@ AR = @AR@ ATK_CFLAGS = @ATK_CFLAGS@ ATK_LIBS = @ATK_LIBS@ AUTOCONF = @AUTOCONF@ AUTOHEADER = @AUTOHEADER@ AUTOMAKE = @AUTOMAKE@ AWK = @AWK@ BONOBO_IDL_DIR = @BONOBO_IDL_DIR@ CANVAS_CFLAGS = @CANVAS_CFLAGS@ CANVAS_LIBS = @CANVAS_LIBS@ CC = @CC@ CCDEPMODE = @CCDEPMODE@ CFLAGS = @CFLAGS@ CORBA_CFLAGS = @CORBA_CFLAGS@ CORBA_LIBS = @CORBA_LIBS@ CPP = @CPP@ CPPFLAGS = @CPPFLAGS@ CYGPATH_W = @CYGPATH_W@ DEFS = @DEFS@ DEPDIR = @DEPDIR@ DLLTOOL = @DLLTOOL@ DSYMUTIL = @DSYMUTIL@ DUMPBIN = @DUMPBIN@ ECHO_C = @ECHO_C@ ECHO_N = @ECHO_N@ ECHO_T = @ECHO_T@ EGREP = @EGREP@ EXEEXT = @EXEEXT@ FGREP = @FGREP@ GCONF_CFLAGS = @GCONF_CFLAGS@ GCONF_LIBS = @GCONF_LIBS@ GDK_CFLAGS = @GDK_CFLAGS@ GDK_LIBS = @GDK_LIBS@ GDK_PIXBUF_CFLAGS = @GDK_PIXBUF_CFLAGS@ GDK_PIXBUF_LIBS = @GDK_PIXBUF_LIBS@ GLIB_CFLAGS = @GLIB_CFLAGS@ GLIB_LIBS = @GLIB_LIBS@ GNOMEUI_DEPRECATION_FLAGS = @GNOMEUI_DEPRECATION_FLAGS@ GNOME_VFS_CFLAGS = @GNOME_VFS_CFLAGS@ GNOME_VFS_DEPRECATED_CFLAGS = @GNOME_VFS_DEPRECATED_CFLAGS@ GNOME_VFS_LIBS = @GNOME_VFS_LIBS@ GOBJECT_CFLAGS = @GOBJECT_CFLAGS@ GOBJECT_LIBS = @GOBJECT_LIBS@ GREP = @GREP@ GTHREAD_CFLAGS = @GTHREAD_CFLAGS@ GTHREAD_LIBS = @GTHREAD_LIBS@ GTK_CFLAGS = @GTK_CFLAGS@ GTK_DEPRECATED_CFLAGS = @GTK_DEPRECATED_CFLAGS@ GTK_LIBS = @GTK_LIBS@ GUILE_CAIRO_CFLAGS = @GUILE_CAIRO_CFLAGS@ GUILE_CAIRO_LIBS = @GUILE_CAIRO_LIBS@ GUILE_CFLAGS = @GUILE_CFLAGS@ GUILE_EFFECTIVE_VERSION = @GUILE_EFFECTIVE_VERSION@ GUILE_GLIB_CFLAGS = @GUILE_GLIB_CFLAGS@ GUILE_GLIB_LIBS = @GUILE_GLIB_LIBS@ GUILE_LIBS = @GUILE_LIBS@ G_WRAP_CFLAGS = @G_WRAP_CFLAGS@ G_WRAP_LIBS = @G_WRAP_LIBS@ G_WRAP_LIB_DIR = @G_WRAP_LIB_DIR@ G_WRAP_MODULE_DIR = @G_WRAP_MODULE_DIR@ INSTALL = @INSTALL@ INSTALL_DATA = @INSTALL_DATA@ INSTALL_PROGRAM = @INSTALL_PROGRAM@ INSTALL_SCRIPT = @INSTALL_SCRIPT@ INSTALL_STRIP_PROGRAM = @INSTALL_STRIP_PROGRAM@ LD = @LD@ LDFLAGS = @LDFLAGS@ LIBGLADE_CFLAGS = @LIBGLADE_CFLAGS@ LIBGLADE_LIBS = @LIBGLADE_LIBS@ LIBGNOMEUI_CFLAGS = @LIBGNOMEUI_CFLAGS@ LIBGNOMEUI_LIBS = @LIBGNOMEUI_LIBS@ LIBGNOME_CFLAGS = @LIBGNOME_CFLAGS@ LIBGNOME_LIBS = @LIBGNOME_LIBS@ LIBOBJS = @LIBOBJS@ LIBS = @LIBS@ LIBTOOL = @LIBTOOL@ LIPO = @LIPO@ LN_S = @LN_S@ LTLIBOBJS = @LTLIBOBJS@ MAKEINFO = @MAKEINFO@ MANIFEST_TOOL = @MANIFEST_TOOL@ MKDIR_P = @MKDIR_P@ NM = @NM@ NMEDIT = @NMEDIT@ OBJDUMP = @OBJDUMP@ OBJEXT = @OBJEXT@ ORBIT_IDL = @ORBIT_IDL@ OTOOL = @OTOOL@ OTOOL64 = @OTOOL64@ PACKAGE = @PACKAGE@ PACKAGE_BUGREPORT = @PACKAGE_BUGREPORT@ PACKAGE_NAME = @PACKAGE_NAME@ PACKAGE_STRING = @PACKAGE_STRING@ PACKAGE_TARNAME = @PACKAGE_TARNAME@ PACKAGE_URL = @PACKAGE_URL@ PACKAGE_VERSION = @PACKAGE_VERSION@ PANGOCAIRO_CFLAGS = @PANGOCAIRO_CFLAGS@ PANGOCAIRO_LIBS = @PANGOCAIRO_LIBS@ PANGO_CFLAGS = @PANGO_CFLAGS@ PANGO_LIBS = @PANGO_LIBS@ PATH_SEPARATOR = @PATH_SEPARATOR@ PKG_CONFIG = @PKG_CONFIG@ PKG_CONFIG_LIBDIR = @PKG_CONFIG_LIBDIR@ PKG_CONFIG_PATH = @PKG_CONFIG_PATH@ RANLIB = @RANLIB@ SED = @SED@ SET_MAKE = @SET_MAKE@ SHELL = @SHELL@ STRIP = @STRIP@ VERSION = @VERSION@ WARN_CFLAGS = @WARN_CFLAGS@ abs_builddir = @abs_builddir@ abs_srcdir = @abs_srcdir@ abs_top_builddir = @abs_top_builddir@ abs_top_srcdir = @abs_top_srcdir@ ac_ct_AR = @ac_ct_AR@ ac_ct_CC = @ac_ct_CC@ ac_ct_DUMPBIN = @ac_ct_DUMPBIN@ am__include = @am__include@ am__leading_dot = @am__leading_dot@ am__quote = @am__quote@ am__tar = @am__tar@ am__untar = @am__untar@ bindir = @bindir@ build = @build@ build_alias = @build_alias@ build_cpu = @build_cpu@ build_os = @build_os@ build_vendor = @build_vendor@ builddir = @builddir@ datadir = @datadir@ datarootdir = @datarootdir@ docdir = @docdir@ dvidir = @dvidir@ exec_prefix = @exec_prefix@ host = @host@ host_alias = @host_alias@ host_cpu = @host_cpu@ host_os = @host_os@ host_vendor = @host_vendor@ htmldir = @htmldir@ includedir = @includedir@ infodir = @infodir@ install_sh = @install_sh@ libdir = @libdir@ libexecdir = @libexecdir@ localedir = @localedir@ localstatedir = @localstatedir@ mandir = @mandir@ mkdir_p = @mkdir_p@ oldincludedir = @oldincludedir@ pdfdir = @pdfdir@ prefix = @prefix@ program_transform_name = @program_transform_name@ psdir = @psdir@ sbindir = @sbindir@ sharedstatedir = @sharedstatedir@ srcdir = @srcdir@ sysconfdir = @sysconfdir@ target_alias = @target_alias@ top_build_prefix = @top_build_prefix@ top_builddir = @top_builddir@ top_srcdir = @top_srcdir@ guilegnomedir = $(datadir)/guile-gnome-@API_VERSION@ guilemoduledir = $(guilegnomedir)/gnome guilegwmoduledir = $(guilegnomedir)/gnome/gw guilegnomelibdir = $(libdir)/guile-gnome-@API_VERSION@ AM_CFLAGS = -I. -I$(srcdir) $(WARN_CFLAGS) $(DEBUG_CFLAGS) # For overriding from the command line (e.g. --debug) GUILE_FLAGS = SUFFIXES = .x .doc GUILE_SNARF_CFLAGS = $(DEFS) $(AM_CFLAGS) $(GUILE_CFLAGS) $(G_WRAP_CFLAGS) PACKAGES = atk cairo corba defs gconf glib gnome-vfs gtk libglade libgnome libgnomecanvas libgnomeui pango SOURCE_GUILE_PATH = $(shell echo $(addprefix $(top_srcdir)/,$(PACKAGES)) | sed -e 's/ /:/g'):$(srcdir) BUILD_GUILE_PATH = $(if $(filter-out $(top_srcdir),$(top_builddir)),$(shell echo -n $(addprefix $(top_builddir)/,$(PACKAGES)): | sed -e 's/ /:/g'),) GUILE_LOAD_PATH := $(BUILD_GUILE_PATH)$(SOURCE_GUILE_PATH):${G_WRAP_MODULE_DIR}:${GUILE_LOAD_PATH} # Real gnu make foo packages = $(filter-out %-uninstalled,$(patsubst %.pc.in,%,$(notdir $(wildcard $(srcdir)/*.pc.in)))) pcifiles = $(patsubst %,%-@API_VERSION@.pc,$(packages)) pcufiles = $(patsubst %,%-@API_VERSION@-uninstalled.pc,$(packages)) SUBDIRS = support package = glib guilegwmodule_DATA = gobject-spec.scm gobject.scm glib-spec.scm glib.scm generics.scm # There are two shared libraries: # # libguile-gnome-gobject, which contains the core gobject support code # (both types and functions). # # This library and its headers can be accessed via pkg-config (the # .pc.in files). # # libgw-guile-gnome-gobject, produced by g-wrap, which supports the # g-wrap type wrappings for gobject-related types. This one is not # used by the scheme<->gobject code; it's only there to support other # wrapsets. # # Also, there's a g-wrap-produced wrapper for glib types and functions, # libgw-guile-gnome-glib.la. guilegnomelib_LTLIBRARIES = libgw-guile-gnome-gobject.la \ libgw-guile-gnome-glib.la # libgw-guile-gnome-gobject (g-wrap support) nodist_libgw_guile_gnome_gobject_la_SOURCES = guile-gnome-gw-gobject.c libgw_guile_gnome_gobject_la_CFLAGS = -I$(srcdir)/../gobject -I../gobject \ $(AM_CFLAGS) $(GOBJECT_CFLAGS) $(GUILE_CFLAGS) $(G_WRAP_CFLAGS) \ $(GUILE_GLIB_CFLAGS) libgw_guile_gnome_gobject_la_LIBADD = $(G_WRAP_LIBS) $(GOBJECT_LIBS) \ $(GUILE_LIBS) $(GUILE_GLIB_LIBS) \ ../gobject/libguile-gnome-gobject-@API_VERSION@.la libgw_guile_gnome_gobject_la_LDFLAGS = -module # libgw-guile-gnome-glib (g-wrap support for glib) noinst_HEADERS = glib-support.h nodist_libgw_guile_gnome_glib_la_SOURCES = guile-gnome-gw-glib.c libgw_guile_gnome_glib_la_SOURCES = glib-support.c libgw_guile_gnome_glib_la_CFLAGS = \ $(AM_CFLAGS) $(GLIB_CFLAGS) $(GUILE_CFLAGS) $(G_WRAP_CFLAGS) \ $(GUILE_GLIB_CFLAGS) libgw_guile_gnome_glib_la_LIBADD = $(GLIB_LIBS) $(GUILE_LIBS) \ $(G_WRAP_LIBS) $(GUILE_GLIB_LIBS) libgw_guile_gnome_glib_la_LDFLAGS = -module BUILT_SOURCES = \ guile-gnome-gw-gobject.c \ guile-gnome-gw-glib.c CLEANFILES = $(BUILT_SOURCES) guile-gnome-gobject.texi \ $(wildcard gnome-*.log) \ $(wildcard guile-gnome-gw-gobject.* guile-gnome-gw-glib.*) \ gobject.scm glib.scm DISTCLEANFILES = $(CLEANFILES) EXTRA_DIST = gobject-spec.scm glib-spec.scm generics.scm # fixme: what is this for? ETAGS_ARGS = --regex='/SCM_\(GLOBAL_\)?\(G?PROC\|G?PROC1\|SYMBOL\|VCELL\|CONST_LONG\).*\"\([^\"]\)*\"/\3/' \ --regex='/[ \t]*SCM_[G]?DEFINE1?[ \t]*(\([^,]*\),[^,]*/\1/' all: $(BUILT_SOURCES) $(MAKE) $(AM_MAKEFLAGS) all-recursive .SUFFIXES: .SUFFIXES: .x .doc .c .lo .o .obj $(srcdir)/Makefile.in: $(srcdir)/Makefile.am $(top_srcdir)/common.mk $(am__configure_deps) @for dep in $?; do \ case '$(am__configure_deps)' in \ *$$dep*) \ ( cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh ) \ && { if test -f $@; then exit 0; else break; fi; }; \ exit 1;; \ esac; \ done; \ echo ' cd $(top_srcdir) && $(AUTOMAKE) --gnu glib/gnome/gw/Makefile'; \ $(am__cd) $(top_srcdir) && \ $(AUTOMAKE) --gnu glib/gnome/gw/Makefile .PRECIOUS: Makefile Makefile: $(srcdir)/Makefile.in $(top_builddir)/config.status @case '$?' in \ *config.status*) \ cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh;; \ *) \ echo ' cd $(top_builddir) && $(SHELL) ./config.status $(subdir)/$@ $(am__depfiles_maybe)'; \ cd $(top_builddir) && $(SHELL) ./config.status $(subdir)/$@ $(am__depfiles_maybe);; \ esac; $(top_srcdir)/common.mk: $(top_builddir)/config.status: $(top_srcdir)/configure $(CONFIG_STATUS_DEPENDENCIES) cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh $(top_srcdir)/configure: $(am__configure_deps) cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh $(ACLOCAL_M4): $(am__aclocal_m4_deps) cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh $(am__aclocal_m4_deps): install-guilegnomelibLTLIBRARIES: $(guilegnomelib_LTLIBRARIES) @$(NORMAL_INSTALL) @list='$(guilegnomelib_LTLIBRARIES)'; test -n "$(guilegnomelibdir)" || list=; \ list2=; for p in $$list; do \ if test -f $$p; then \ list2="$$list2 $$p"; \ else :; fi; \ done; \ test -z "$$list2" || { \ echo " $(MKDIR_P) '$(DESTDIR)$(guilegnomelibdir)'"; \ $(MKDIR_P) "$(DESTDIR)$(guilegnomelibdir)" || exit 1; \ echo " $(LIBTOOL) $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=install $(INSTALL) $(INSTALL_STRIP_FLAG) $$list2 '$(DESTDIR)$(guilegnomelibdir)'"; \ $(LIBTOOL) $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=install $(INSTALL) $(INSTALL_STRIP_FLAG) $$list2 "$(DESTDIR)$(guilegnomelibdir)"; \ } uninstall-guilegnomelibLTLIBRARIES: @$(NORMAL_UNINSTALL) @list='$(guilegnomelib_LTLIBRARIES)'; test -n "$(guilegnomelibdir)" || list=; \ for p in $$list; do \ $(am__strip_dir) \ echo " $(LIBTOOL) $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=uninstall rm -f '$(DESTDIR)$(guilegnomelibdir)/$$f'"; \ $(LIBTOOL) $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=uninstall rm -f "$(DESTDIR)$(guilegnomelibdir)/$$f"; \ done clean-guilegnomelibLTLIBRARIES: -test -z "$(guilegnomelib_LTLIBRARIES)" || rm -f $(guilegnomelib_LTLIBRARIES) @list='$(guilegnomelib_LTLIBRARIES)'; for p in $$list; do \ dir="`echo $$p | sed -e 's|/[^/]*$$||'`"; \ test "$$dir" != "$$p" || dir=.; \ echo "rm -f \"$${dir}/so_locations\""; \ rm -f "$${dir}/so_locations"; \ done libgw-guile-gnome-glib.la: $(libgw_guile_gnome_glib_la_OBJECTS) $(libgw_guile_gnome_glib_la_DEPENDENCIES) $(EXTRA_libgw_guile_gnome_glib_la_DEPENDENCIES) $(libgw_guile_gnome_glib_la_LINK) -rpath $(guilegnomelibdir) $(libgw_guile_gnome_glib_la_OBJECTS) $(libgw_guile_gnome_glib_la_LIBADD) $(LIBS) libgw-guile-gnome-gobject.la: $(libgw_guile_gnome_gobject_la_OBJECTS) $(libgw_guile_gnome_gobject_la_DEPENDENCIES) $(EXTRA_libgw_guile_gnome_gobject_la_DEPENDENCIES) $(libgw_guile_gnome_gobject_la_LINK) -rpath $(guilegnomelibdir) $(libgw_guile_gnome_gobject_la_OBJECTS) $(libgw_guile_gnome_gobject_la_LIBADD) $(LIBS) mostlyclean-compile: -rm -f *.$(OBJEXT) distclean-compile: -rm -f *.tab.c @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/libgw_guile_gnome_glib_la-glib-support.Plo@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/libgw_guile_gnome_glib_la-guile-gnome-gw-glib.Plo@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/libgw_guile_gnome_gobject_la-guile-gnome-gw-gobject.Plo@am__quote@ .c.o: @am__fastdepCC_TRUE@ $(COMPILE) -MT $@ -MD -MP -MF $(DEPDIR)/$*.Tpo -c -o $@ $< @am__fastdepCC_TRUE@ $(am__mv) $(DEPDIR)/$*.Tpo $(DEPDIR)/$*.Po @AMDEP_TRUE@@am__fastdepCC_FALSE@ source='$<' object='$@' libtool=no @AMDEPBACKSLASH@ @AMDEP_TRUE@@am__fastdepCC_FALSE@ DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@ @am__fastdepCC_FALSE@ $(COMPILE) -c $< .c.obj: @am__fastdepCC_TRUE@ $(COMPILE) -MT $@ -MD -MP -MF $(DEPDIR)/$*.Tpo -c -o $@ `$(CYGPATH_W) '$<'` @am__fastdepCC_TRUE@ $(am__mv) $(DEPDIR)/$*.Tpo $(DEPDIR)/$*.Po @AMDEP_TRUE@@am__fastdepCC_FALSE@ source='$<' object='$@' libtool=no @AMDEPBACKSLASH@ @AMDEP_TRUE@@am__fastdepCC_FALSE@ DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@ @am__fastdepCC_FALSE@ $(COMPILE) -c `$(CYGPATH_W) '$<'` .c.lo: @am__fastdepCC_TRUE@ $(LTCOMPILE) -MT $@ -MD -MP -MF $(DEPDIR)/$*.Tpo -c -o $@ $< @am__fastdepCC_TRUE@ $(am__mv) $(DEPDIR)/$*.Tpo $(DEPDIR)/$*.Plo @AMDEP_TRUE@@am__fastdepCC_FALSE@ source='$<' object='$@' libtool=yes @AMDEPBACKSLASH@ @AMDEP_TRUE@@am__fastdepCC_FALSE@ DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@ @am__fastdepCC_FALSE@ $(LTCOMPILE) -c -o $@ $< libgw_guile_gnome_glib_la-glib-support.lo: glib-support.c @am__fastdepCC_TRUE@ $(LIBTOOL) --tag=CC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(AM_CPPFLAGS) $(CPPFLAGS) $(libgw_guile_gnome_glib_la_CFLAGS) $(CFLAGS) -MT libgw_guile_gnome_glib_la-glib-support.lo -MD -MP -MF $(DEPDIR)/libgw_guile_gnome_glib_la-glib-support.Tpo -c -o libgw_guile_gnome_glib_la-glib-support.lo `test -f 'glib-support.c' || echo '$(srcdir)/'`glib-support.c @am__fastdepCC_TRUE@ $(am__mv) $(DEPDIR)/libgw_guile_gnome_glib_la-glib-support.Tpo $(DEPDIR)/libgw_guile_gnome_glib_la-glib-support.Plo @AMDEP_TRUE@@am__fastdepCC_FALSE@ source='glib-support.c' object='libgw_guile_gnome_glib_la-glib-support.lo' libtool=yes @AMDEPBACKSLASH@ @AMDEP_TRUE@@am__fastdepCC_FALSE@ DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@ @am__fastdepCC_FALSE@ $(LIBTOOL) --tag=CC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(AM_CPPFLAGS) $(CPPFLAGS) $(libgw_guile_gnome_glib_la_CFLAGS) $(CFLAGS) -c -o libgw_guile_gnome_glib_la-glib-support.lo `test -f 'glib-support.c' || echo '$(srcdir)/'`glib-support.c libgw_guile_gnome_glib_la-guile-gnome-gw-glib.lo: guile-gnome-gw-glib.c @am__fastdepCC_TRUE@ $(LIBTOOL) --tag=CC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(AM_CPPFLAGS) $(CPPFLAGS) $(libgw_guile_gnome_glib_la_CFLAGS) $(CFLAGS) -MT libgw_guile_gnome_glib_la-guile-gnome-gw-glib.lo -MD -MP -MF $(DEPDIR)/libgw_guile_gnome_glib_la-guile-gnome-gw-glib.Tpo -c -o libgw_guile_gnome_glib_la-guile-gnome-gw-glib.lo `test -f 'guile-gnome-gw-glib.c' || echo '$(srcdir)/'`guile-gnome-gw-glib.c @am__fastdepCC_TRUE@ $(am__mv) $(DEPDIR)/libgw_guile_gnome_glib_la-guile-gnome-gw-glib.Tpo $(DEPDIR)/libgw_guile_gnome_glib_la-guile-gnome-gw-glib.Plo @AMDEP_TRUE@@am__fastdepCC_FALSE@ source='guile-gnome-gw-glib.c' object='libgw_guile_gnome_glib_la-guile-gnome-gw-glib.lo' libtool=yes @AMDEPBACKSLASH@ @AMDEP_TRUE@@am__fastdepCC_FALSE@ DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@ @am__fastdepCC_FALSE@ $(LIBTOOL) --tag=CC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(AM_CPPFLAGS) $(CPPFLAGS) $(libgw_guile_gnome_glib_la_CFLAGS) $(CFLAGS) -c -o libgw_guile_gnome_glib_la-guile-gnome-gw-glib.lo `test -f 'guile-gnome-gw-glib.c' || echo '$(srcdir)/'`guile-gnome-gw-glib.c libgw_guile_gnome_gobject_la-guile-gnome-gw-gobject.lo: guile-gnome-gw-gobject.c @am__fastdepCC_TRUE@ $(LIBTOOL) --tag=CC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(AM_CPPFLAGS) $(CPPFLAGS) $(libgw_guile_gnome_gobject_la_CFLAGS) $(CFLAGS) -MT libgw_guile_gnome_gobject_la-guile-gnome-gw-gobject.lo -MD -MP -MF $(DEPDIR)/libgw_guile_gnome_gobject_la-guile-gnome-gw-gobject.Tpo -c -o libgw_guile_gnome_gobject_la-guile-gnome-gw-gobject.lo `test -f 'guile-gnome-gw-gobject.c' || echo '$(srcdir)/'`guile-gnome-gw-gobject.c @am__fastdepCC_TRUE@ $(am__mv) $(DEPDIR)/libgw_guile_gnome_gobject_la-guile-gnome-gw-gobject.Tpo $(DEPDIR)/libgw_guile_gnome_gobject_la-guile-gnome-gw-gobject.Plo @AMDEP_TRUE@@am__fastdepCC_FALSE@ source='guile-gnome-gw-gobject.c' object='libgw_guile_gnome_gobject_la-guile-gnome-gw-gobject.lo' libtool=yes @AMDEPBACKSLASH@ @AMDEP_TRUE@@am__fastdepCC_FALSE@ DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@ @am__fastdepCC_FALSE@ $(LIBTOOL) --tag=CC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(AM_CPPFLAGS) $(CPPFLAGS) $(libgw_guile_gnome_gobject_la_CFLAGS) $(CFLAGS) -c -o libgw_guile_gnome_gobject_la-guile-gnome-gw-gobject.lo `test -f 'guile-gnome-gw-gobject.c' || echo '$(srcdir)/'`guile-gnome-gw-gobject.c mostlyclean-libtool: -rm -f *.lo clean-libtool: -rm -rf .libs _libs install-guilegwmoduleDATA: $(guilegwmodule_DATA) @$(NORMAL_INSTALL) @list='$(guilegwmodule_DATA)'; test -n "$(guilegwmoduledir)" || list=; \ if test -n "$$list"; then \ echo " $(MKDIR_P) '$(DESTDIR)$(guilegwmoduledir)'"; \ $(MKDIR_P) "$(DESTDIR)$(guilegwmoduledir)" || exit 1; \ fi; \ for p in $$list; do \ if test -f "$$p"; then d=; else d="$(srcdir)/"; fi; \ echo "$$d$$p"; \ done | $(am__base_list) | \ while read files; do \ echo " $(INSTALL_DATA) $$files '$(DESTDIR)$(guilegwmoduledir)'"; \ $(INSTALL_DATA) $$files "$(DESTDIR)$(guilegwmoduledir)" || exit $$?; \ done uninstall-guilegwmoduleDATA: @$(NORMAL_UNINSTALL) @list='$(guilegwmodule_DATA)'; test -n "$(guilegwmoduledir)" || list=; \ files=`for p in $$list; do echo $$p; done | sed -e 's|^.*/||'`; \ dir='$(DESTDIR)$(guilegwmoduledir)'; $(am__uninstall_files_from_dir) # This directory's subdirectories are mostly independent; you can cd # into them and run `make' without going through this Makefile. # To change the values of `make' variables: instead of editing Makefiles, # (1) if the variable is set in `config.status', edit `config.status' # (which will cause the Makefiles to be regenerated when you run `make'); # (2) otherwise, pass the desired values on the `make' command line. $(RECURSIVE_TARGETS): @fail= failcom='exit 1'; \ for f in x $$MAKEFLAGS; do \ case $$f in \ *=* | --[!k]*);; \ *k*) failcom='fail=yes';; \ esac; \ done; \ dot_seen=no; \ target=`echo $@ | sed s/-recursive//`; \ list='$(SUBDIRS)'; for subdir in $$list; do \ echo "Making $$target in $$subdir"; \ if test "$$subdir" = "."; then \ dot_seen=yes; \ local_target="$$target-am"; \ else \ local_target="$$target"; \ fi; \ ($(am__cd) $$subdir && $(MAKE) $(AM_MAKEFLAGS) $$local_target) \ || eval $$failcom; \ done; \ if test "$$dot_seen" = "no"; then \ $(MAKE) $(AM_MAKEFLAGS) "$$target-am" || exit 1; \ fi; test -z "$$fail" $(RECURSIVE_CLEAN_TARGETS): @fail= failcom='exit 1'; \ for f in x $$MAKEFLAGS; do \ case $$f in \ *=* | --[!k]*);; \ *k*) failcom='fail=yes';; \ esac; \ done; \ dot_seen=no; \ case "$@" in \ distclean-* | maintainer-clean-*) list='$(DIST_SUBDIRS)' ;; \ *) list='$(SUBDIRS)' ;; \ esac; \ rev=''; for subdir in $$list; do \ if test "$$subdir" = "."; then :; else \ rev="$$subdir $$rev"; \ fi; \ done; \ rev="$$rev ."; \ target=`echo $@ | sed s/-recursive//`; \ for subdir in $$rev; do \ echo "Making $$target in $$subdir"; \ if test "$$subdir" = "."; then \ local_target="$$target-am"; \ else \ local_target="$$target"; \ fi; \ ($(am__cd) $$subdir && $(MAKE) $(AM_MAKEFLAGS) $$local_target) \ || eval $$failcom; \ done && test -z "$$fail" tags-recursive: list='$(SUBDIRS)'; for subdir in $$list; do \ test "$$subdir" = . || ($(am__cd) $$subdir && $(MAKE) $(AM_MAKEFLAGS) tags); \ done ctags-recursive: list='$(SUBDIRS)'; for subdir in $$list; do \ test "$$subdir" = . || ($(am__cd) $$subdir && $(MAKE) $(AM_MAKEFLAGS) ctags); \ done ID: $(HEADERS) $(SOURCES) $(LISP) $(TAGS_FILES) list='$(SOURCES) $(HEADERS) $(LISP) $(TAGS_FILES)'; \ unique=`for i in $$list; do \ if test -f "$$i"; then echo $$i; else echo $(srcdir)/$$i; fi; \ done | \ $(AWK) '{ files[$$0] = 1; nonempty = 1; } \ END { if (nonempty) { for (i in files) print i; }; }'`; \ mkid -fID $$unique tags: TAGS TAGS: tags-recursive $(HEADERS) $(SOURCES) $(TAGS_DEPENDENCIES) \ $(TAGS_FILES) $(LISP) set x; \ here=`pwd`; \ if ($(ETAGS) --etags-include --version) >/dev/null 2>&1; then \ include_option=--etags-include; \ empty_fix=.; \ else \ include_option=--include; \ empty_fix=; \ fi; \ list='$(SUBDIRS)'; for subdir in $$list; do \ if test "$$subdir" = .; then :; else \ test ! -f $$subdir/TAGS || \ set "$$@" "$$include_option=$$here/$$subdir/TAGS"; \ fi; \ done; \ list='$(SOURCES) $(HEADERS) $(LISP) $(TAGS_FILES)'; \ unique=`for i in $$list; do \ if test -f "$$i"; then echo $$i; else echo $(srcdir)/$$i; fi; \ done | \ $(AWK) '{ files[$$0] = 1; nonempty = 1; } \ END { if (nonempty) { for (i in files) print i; }; }'`; \ shift; \ if test -z "$(ETAGS_ARGS)$$*$$unique"; then :; else \ test -n "$$unique" || unique=$$empty_fix; \ if test $$# -gt 0; then \ $(ETAGS) $(ETAGSFLAGS) $(AM_ETAGSFLAGS) $(ETAGS_ARGS) \ "$$@" $$unique; \ else \ $(ETAGS) $(ETAGSFLAGS) $(AM_ETAGSFLAGS) $(ETAGS_ARGS) \ $$unique; \ fi; \ fi ctags: CTAGS CTAGS: ctags-recursive $(HEADERS) $(SOURCES) $(TAGS_DEPENDENCIES) \ $(TAGS_FILES) $(LISP) list='$(SOURCES) $(HEADERS) $(LISP) $(TAGS_FILES)'; \ unique=`for i in $$list; do \ if test -f "$$i"; then echo $$i; else echo $(srcdir)/$$i; fi; \ done | \ $(AWK) '{ files[$$0] = 1; nonempty = 1; } \ END { if (nonempty) { for (i in files) print i; }; }'`; \ test -z "$(CTAGS_ARGS)$$unique" \ || $(CTAGS) $(CTAGSFLAGS) $(AM_CTAGSFLAGS) $(CTAGS_ARGS) \ $$unique GTAGS: here=`$(am__cd) $(top_builddir) && pwd` \ && $(am__cd) $(top_srcdir) \ && gtags -i $(GTAGS_ARGS) "$$here" distclean-tags: -rm -f TAGS ID GTAGS GRTAGS GSYMS GPATH tags distdir: $(DISTFILES) @srcdirstrip=`echo "$(srcdir)" | sed 's/[].[^$$\\*]/\\\\&/g'`; \ topsrcdirstrip=`echo "$(top_srcdir)" | sed 's/[].[^$$\\*]/\\\\&/g'`; \ list='$(DISTFILES)'; \ dist_files=`for file in $$list; do echo $$file; done | \ sed -e "s|^$$srcdirstrip/||;t" \ -e "s|^$$topsrcdirstrip/|$(top_builddir)/|;t"`; \ case $$dist_files in \ */*) $(MKDIR_P) `echo "$$dist_files" | \ sed '/\//!d;s|^|$(distdir)/|;s,/[^/]*$$,,' | \ sort -u` ;; \ esac; \ for file in $$dist_files; do \ if test -f $$file || test -d $$file; then d=.; else d=$(srcdir); fi; \ if test -d $$d/$$file; then \ dir=`echo "/$$file" | sed -e 's,/[^/]*$$,,'`; \ if test -d "$(distdir)/$$file"; then \ find "$(distdir)/$$file" -type d ! -perm -700 -exec chmod u+rwx {} \;; \ fi; \ if test -d $(srcdir)/$$file && test $$d != $(srcdir); then \ cp -fpR $(srcdir)/$$file "$(distdir)$$dir" || exit 1; \ find "$(distdir)/$$file" -type d ! -perm -700 -exec chmod u+rwx {} \;; \ fi; \ cp -fpR $$d/$$file "$(distdir)$$dir" || exit 1; \ else \ test -f "$(distdir)/$$file" \ || cp -p $$d/$$file "$(distdir)/$$file" \ || exit 1; \ fi; \ done @list='$(DIST_SUBDIRS)'; for subdir in $$list; do \ if test "$$subdir" = .; then :; else \ $(am__make_dryrun) \ || test -d "$(distdir)/$$subdir" \ || $(MKDIR_P) "$(distdir)/$$subdir" \ || exit 1; \ dir1=$$subdir; dir2="$(distdir)/$$subdir"; \ $(am__relativize); \ new_distdir=$$reldir; \ dir1=$$subdir; dir2="$(top_distdir)"; \ $(am__relativize); \ new_top_distdir=$$reldir; \ echo " (cd $$subdir && $(MAKE) $(AM_MAKEFLAGS) top_distdir="$$new_top_distdir" distdir="$$new_distdir" \\"; \ echo " am__remove_distdir=: am__skip_length_check=: am__skip_mode_fix=: distdir)"; \ ($(am__cd) $$subdir && \ $(MAKE) $(AM_MAKEFLAGS) \ top_distdir="$$new_top_distdir" \ distdir="$$new_distdir" \ am__remove_distdir=: \ am__skip_length_check=: \ am__skip_mode_fix=: \ distdir) \ || exit 1; \ fi; \ done $(MAKE) $(AM_MAKEFLAGS) \ top_distdir="$(top_distdir)" distdir="$(distdir)" \ dist-hook check-am: all-am check: $(BUILT_SOURCES) $(MAKE) $(AM_MAKEFLAGS) check-recursive all-am: Makefile $(LTLIBRARIES) $(DATA) $(HEADERS) installdirs: installdirs-recursive installdirs-am: for dir in "$(DESTDIR)$(guilegnomelibdir)" "$(DESTDIR)$(guilegwmoduledir)"; do \ test -z "$$dir" || $(MKDIR_P) "$$dir"; \ done install: $(BUILT_SOURCES) $(MAKE) $(AM_MAKEFLAGS) install-recursive install-exec: install-exec-recursive install-data: install-data-recursive uninstall: uninstall-recursive install-am: all-am @$(MAKE) $(AM_MAKEFLAGS) install-exec-am install-data-am installcheck: installcheck-recursive install-strip: if test -z '$(STRIP)'; then \ $(MAKE) $(AM_MAKEFLAGS) INSTALL_PROGRAM="$(INSTALL_STRIP_PROGRAM)" \ install_sh_PROGRAM="$(INSTALL_STRIP_PROGRAM)" INSTALL_STRIP_FLAG=-s \ install; \ else \ $(MAKE) $(AM_MAKEFLAGS) INSTALL_PROGRAM="$(INSTALL_STRIP_PROGRAM)" \ install_sh_PROGRAM="$(INSTALL_STRIP_PROGRAM)" INSTALL_STRIP_FLAG=-s \ "INSTALL_PROGRAM_ENV=STRIPPROG='$(STRIP)'" install; \ fi mostlyclean-generic: clean-generic: -test -z "$(CLEANFILES)" || rm -f $(CLEANFILES) distclean-generic: -test -z "$(CONFIG_CLEAN_FILES)" || rm -f $(CONFIG_CLEAN_FILES) -test . = "$(srcdir)" || test -z "$(CONFIG_CLEAN_VPATH_FILES)" || rm -f $(CONFIG_CLEAN_VPATH_FILES) -test -z "$(DISTCLEANFILES)" || rm -f $(DISTCLEANFILES) maintainer-clean-generic: @echo "This command is intended for maintainers to use" @echo "it deletes files that may require special tools to rebuild." -test -z "$(BUILT_SOURCES)" || rm -f $(BUILT_SOURCES) clean: clean-recursive clean-am: clean-generic clean-guilegnomelibLTLIBRARIES clean-libtool \ mostlyclean-am distclean: distclean-recursive -rm -rf ./$(DEPDIR) -rm -f Makefile distclean-am: clean-am distclean-compile distclean-generic \ distclean-tags dvi: dvi-recursive dvi-am: html: html-recursive html-am: info: info-recursive info-am: install-data-am: install-guilegnomelibLTLIBRARIES \ install-guilegwmoduleDATA install-dvi: install-dvi-recursive install-dvi-am: install-exec-am: install-html: install-html-recursive install-html-am: install-info: install-info-recursive install-info-am: install-man: install-pdf: install-pdf-recursive install-pdf-am: install-ps: install-ps-recursive install-ps-am: installcheck-am: maintainer-clean: maintainer-clean-recursive -rm -rf ./$(DEPDIR) -rm -f Makefile maintainer-clean-am: distclean-am maintainer-clean-generic mostlyclean: mostlyclean-recursive mostlyclean-am: mostlyclean-compile mostlyclean-generic \ mostlyclean-libtool pdf: pdf-recursive pdf-am: ps: ps-recursive ps-am: uninstall-am: uninstall-guilegnomelibLTLIBRARIES \ uninstall-guilegwmoduleDATA .MAKE: $(RECURSIVE_CLEAN_TARGETS) $(RECURSIVE_TARGETS) all check \ ctags-recursive install install-am install-strip \ tags-recursive .PHONY: $(RECURSIVE_CLEAN_TARGETS) $(RECURSIVE_TARGETS) CTAGS GTAGS \ all all-am check check-am clean clean-generic \ clean-guilegnomelibLTLIBRARIES clean-libtool ctags \ ctags-recursive dist-hook distclean distclean-compile \ distclean-generic distclean-libtool distclean-tags distdir dvi \ dvi-am html html-am info info-am install install-am \ install-data install-data-am install-dvi install-dvi-am \ install-exec install-exec-am install-guilegnomelibLTLIBRARIES \ install-guilegwmoduleDATA install-html install-html-am \ install-info install-info-am install-man install-pdf \ install-pdf-am install-ps install-ps-am install-strip \ installcheck installcheck-am installdirs installdirs-am \ maintainer-clean maintainer-clean-generic mostlyclean \ mostlyclean-compile mostlyclean-generic mostlyclean-libtool \ pdf pdf-am ps ps-am tags tags-recursive uninstall uninstall-am \ uninstall-guilegnomelibLTLIBRARIES uninstall-guilegwmoduleDATA export GUILE_LOAD_PATH .c.x: guile-snarf $(GUILE_SNARF_CFLAGS) $< > $@ \ || { rm $@; false; } .c.doc: $(CPP) -DSCM_MAGIC_SNARF_DOCS $(GUILE_SNARF_CFLAGS) $< \ | grep -E '(\^\^ {|\^\^ })' > $@ || { rm $@; false; } %.scm guile-gnome-gw-%.c: %-spec.scm guile $(GUILE_FLAGS) -c \ "(debug-set! stack 400000) \ (use-modules (gnome-@API_VERSION@)) \ (use-modules (g-wrap)) \ (use-modules (gnome gw $*-spec)) \ (generate-wrapset 'guile 'gnome-$* \"guile-gnome-gw-$*\")" mv guile-gnome-gw-$*.scm $*.scm %-@API_VERSION@.pc: %.pc cp $< $@ %-@API_VERSION@-uninstalled.pc: %-uninstalled.pc cp $< $@ dist-hook: for file in $(DISTCLEANFILES); do rm -f $(distdir)/$$file; done # Tell versions [3.59,3.63) of GNU make to not export all variables. # Otherwise a system limit (for SysV at least) may be exceeded. .NOEXPORT: guile-gnome-platform-2.16.2/glib/gnome/gw/glib-spec.scm0000644000175000017500000003421111671225671023205 0ustar00wingowingo00000000000000;; guile-gnome ;; Copyright (C) 2003,2004-2005,2011 Andy Wingo ;; This program is free software; you can redistribute it and/or ;; modify it under the terms of the GNU General Public License as ;; published by the Free Software Foundation; either version 2 of ;; the License, or (at your option) any later version. ;; ;; This program is distributed in the hope that it will be useful, ;; but WITHOUT ANY WARRANTY; without even the implied warranty of ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the ;; GNU General Public License for more details. ;; ;; You should have received a copy of the GNU General Public License ;; along with this program; if not, contact: ;; ;; Free Software Foundation Voice: +1-617-542-5942 ;; 59 Temple Place - Suite 330 Fax: +1-617-542-2652 ;; Boston, MA 02111-1307, USA gnu@gnu.org ;;; Commentary: ;; ;;A g-wrap specification for GLib 2.x. ;; ;;; Code: (define-module (gnome gw glib-spec) #:use-module (oop goops) #:use-module (srfi srfi-34) #:use-module (srfi srfi-35) #:use-module (gnome gw support g-wrap) #:use-module (g-wrap guile ws standard) #:use-module (g-wrap util) #:use-module (g-wrap c-types) #:use-module (gnome gobject utils) #:use-module (gnome gw support gobject) #:use-module (gnome gw support defs)) (define-class () #:id 'gnome-glib #:dependencies '(standard)) (define-class ()) (define-method (global-declarations-cg (ws ) (a )) '("#include \n")) (define-method (global-declarations-cg (ws )) (list (next-method) "#include \n" "#include \"glib-support.h\"\n")) (define-method (initializations-cg (ws ) err) (list (next-method) "scm_init_glib ();\n")) (define-method (initialize (ws ) initargs) (next-method ws (append '(#:module (gnome gw glib)) initargs)) (add-client-item! ws (make )) ;; Add string aliases for standard C and GLib types. Also add ;; automatic "out" aliases, except for "void" and the byte (char) ;; types. (for-each (lambda (triple) (add-type-alias! ws (car triple) (cadr triple)) (if (cddr triple) (add-type-rule! ws (string-append (car triple) "*") (list (cadr triple) 'out)))) '(;; Basic C types ("void" void . #f) ("int" int) ("char" char . #f) ("float" float) ("double" double) ("short" short) ("unsigned-char" unsigned-char . #f) ("unsigned-short" unsigned-short) ("unsigned" unsigned-int) ("unsigned-int" unsigned-int) ("long" long) ("unsigned-long" unsigned-long) ("long-long" long-long) ("unsigned-long-long" unsigned-long-long) ;; ("uint8_t" unsigned-int8 . #f) ("uint16_t" unsigned-int16) ("uint32_t" unsigned-int32) ("uint64_t" unsigned-int64) ("int8_t" int8 . #f) ("int16_t" int16) ("int32_t" int32) ("int64_t" int64) ("SCM" scm) ; not really glib, but oh well ;; GLib type aliases ("gboolean" bool) ("gchar" char . #f) ("guchar" unsigned-char . #f) ("char*" mchars . #f) ("gchar*" mchars . #f) ("gdouble" double) ("gfloat" float) ("gshort" short) ("gushort" unsigned-short) ("gint8" int8) ("guint8" unsigned-int8) ("gint" int) ("gint16" int16) ("guint" unsigned-int) ("guint16" unsigned-int16) ("gint32" int32) ("glong" long) ("gulong" unsigned-long) ("guint32" unsigned-int32) ("gint64" int64) ("guint64" unsigned-int64) ("time_t" long) ("GQuark" unsigned-int) ; need to wrap this one better ("GPid" int) ("GTime" int32) ("gssize" ssize_t) ("gsize" size_t) ("gunichar" unsigned-int32) ("none" void . #f))) (add-type-rule! ws "gchar**" '(mchars caller-owned out)) (add-type-rule! ws "const-gchar**" '(mchars callee-owned out)) (add-type! ws (make #:name 'glist-of #:type-cname "GList*" #:func-prefix "g_list")) (add-type-alias! ws "GList*" 'glist-of) (add-type! ws (make #:name 'gslist-of #:type-cname "GSList*" #:func-prefix "g_slist")) (add-type-alias! ws "GSList*" 'gslist-of) (add-type! ws (make #:name ')) (add-type-alias! ws "GError**" ') (wrap-freeable-pointer! ws "GBookmarkFile" "g_bookmark_file_free") (wrap-refcounted-pointer! ws "GIOChannel" "g_io_channel_ref" "g_io_channel_unref") (wrap-refcounted-pointer! ws "GMainLoop" "g_main_loop_ref" "g_main_loop_unref") (wrap-refcounted-pointer! ws "GMainContext" "g_main_context_ref" "g_main_context_unref") (wrap-refcounted-pointer! ws "GSource" "g_source_ref" "g_source_unref") (wrap-opaque-pointer! ws "GString*") (load-defs-with-overrides ws "gnome/defs/glib.defs")) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;; ((glist-of ( gw:const) gw:const) win-list) ;; shamelessly stolen from upstream g-wrap so that we can use glib 2.0 (define-class () (type-cname #:getter type-cname #:init-keyword #:type-cname) (func-prefix #:getter func-prefix #:init-keyword #:func-prefix)) (define-class () (sub-typespec #:getter sub-typespec #:init-keyword #:sub-typespec)) (define-method (all-types (ts )) (cons (type (sub-typespec ts)) (next-method))) (define-method (c-type-name (type )) (type-cname type)) (define-method (c-type-name (type ) (typespec )) (if (memq 'const (options typespec)) (list "const " (type-cname type)) (type-cname type))) ;; if this succeeds, the glist-of typespec-options will be ;; (sub-typespec (caller-owned | callee-owned) [const]) (define-method (make-typespec (type ) (options )) (if (null? options) (raise (condition (&gw-bad-typespec (type type) (options options) (message "Missing glist-of options form."))))) (if (< (length options) 2) (raise-bad-typespec type options "glist-of options form must have at least 2 options.")) (let ((sub-typespec (car options)) (glist-options (cdr options)) (remainder (cdr options))) (if (not (is-a? sub-typespec )) (raise-bad-typespec type options "glist-of options form must have a sub-typespec as first option.")) (set! remainder (delq 'const remainder)) (if (and (memq 'caller-owned remainder) (memq 'callee-owned remainder)) (raise-bad-typespec type options "Bad glist-of options form (caller and callee owned!).")) (if (not (or (memq 'caller-owned remainder) (memq 'callee-owned remainder))) (raise-bad-typespec type options "Bad glist-of options form (must be caller or callee owned!).")) (set! remainder (delq 'caller-owned remainder)) (set! remainder (delq 'callee-owned remainder)) (if (null? remainder) (make #:type type #:sub-typespec sub-typespec #:options glist-options) (raise-bad-typespec type options (format #f "Bad glist-of options form - spurious options: ~S" remainder))))) (define-method (unwrap-value-cg (glist-type ) (value ) status-var) (let* ((c-var (var value)) (scm-var (scm-var value)) (options (options (typespec value))) (sub-typespec (sub-typespec (typespec value))) (sub-type (type sub-typespec)) (tmp-rest-var (gen-c-tmp "scm_rest")) (func-prefix (func-prefix glist-type)) (sub-item-c-type (c-type-name sub-type sub-typespec)) (tmp-sub-item-c-var (gen-c-tmp "c_item")) (tmp-sub-item-scm-var (gen-c-tmp "scm_item")) (tmp-sub-item (make #:typespec sub-typespec #:var tmp-sub-item-c-var #:wrapped-var (string-append "&" tmp-sub-item-scm-var))) (tmp-cursor (gen-c-tmp "cursor"))) (list "{\n" " SCM " tmp-rest-var " = " scm-var ";\n" " " c-var "= NULL;\n" " while(!SCM_NULLP(" tmp-rest-var ")\n" " && (! " `(gw:error? ,status-var) "))\n" " {\n" " " sub-item-c-type " " tmp-sub-item-c-var ";\n" " SCM " tmp-sub-item-scm-var " = SCM_CAR(" tmp-rest-var ");\n" "\n" (unwrap-value-cg sub-type tmp-sub-item status-var) "\n" " if(! " `(gw:error? ,status-var) " )\n" " {\n" " " c-var " = " func-prefix "_prepend (" c-var ", (gpointer)" tmp-sub-item-c-var");\n" " }\n" " " tmp-rest-var " = SCM_CDR (" tmp-rest-var ");\n" " }\n" " if(!" `(gw:error? ,status-var) ")\n" " {\n" " " c-var " = " func-prefix "_reverse(" c-var ");\n" " }\n" " else {\n" (destroy-value-cg glist-type value status-var) " }\n" "}\n"))) (define-method (wrap-value-cg (glist-type ) (value ) status-var) (let* ((c-var (var value)) (scm-var (scm-var value)) (sub-typespec (sub-typespec (typespec value))) (sub-type (type sub-typespec)) (tmp-rest-var (gen-c-tmp "c_rest")) (sub-item-c-type (c-type-name sub-type sub-typespec)) (tmp-sub-item-c-var (gen-c-tmp "c_item")) (tmp-sub-item-scm-var (gen-c-tmp "scm_item")) (tmp-sub-item (make #:typespec sub-typespec #:var tmp-sub-item-c-var #:wrapped-var (string-append "&" tmp-sub-item-scm-var)))) (list (c-type-name glist-type (typespec value)) tmp-rest-var " = " c-var ";\n" scm-var "= SCM_EOL;\n" "while(" tmp-rest-var " && (! " `(gw:error? ,status-var) "))\n" "{\n" " " sub-item-c-type " " tmp-sub-item-c-var ";\n" " SCM " tmp-sub-item-scm-var ";\n" "\n" " " tmp-sub-item-c-var " = ( " sub-item-c-type ") " (string-append tmp-rest-var "->data") ";\n" "\n" (wrap-value-cg sub-type tmp-sub-item status-var) "\n" " if(! " `(gw:error? ,status-var) " )\n" " {\n" " " scm-var " = scm_cons (" tmp-sub-item-scm-var ", " scm-var ");\n" " }\n" " " tmp-rest-var " = " (string-append tmp-rest-var "->next") ";\n" "}\n" "if(!" `(gw:error? ,status-var) ")\n" "{\n" " " scm-var " = scm_reverse(" scm-var ");\n" "}\n"))) (define-method (destroy-value-cg (glist-type ) (value ) status-var) (let* ((c-var (var value)) (scm-var (scm-var value)) (options (options (typespec value))) (sub-typespec (sub-typespec (typespec value))) (sub-type (type sub-typespec)) (func-prefix (func-prefix glist-type)) (sub-item-c-type (c-type-name sub-type sub-typespec)) (tmp-sub-item-c-var (gen-c-tmp "c_item")) (tmp-sub-item (make #:typespec sub-typespec #:var tmp-sub-item-c-var)) (tmp-cursor (gen-c-tmp "cursor")) (destroy-value (destroy-value-cg sub-type tmp-sub-item status-var))) (list (if (not (null? destroy-value)) (list "{\n" " " (c-type-name glist-type (typespec value)) tmp-cursor " = " c-var ";\n" " while(" tmp-cursor ")\n" " {\n" " " sub-item-c-type " " tmp-sub-item-c-var ";\n" " " tmp-sub-item-c-var " = ( " sub-item-c-type ") " (string-append tmp-cursor "->data") ";\n" destroy-value tmp-cursor " = " (string-append tmp-cursor "->next") ";\n" " }\n") '()) (if (memq 'caller-owned options) (list " if(" c-var ")\n" " {\n" " " func-prefix "_free(" c-var ");\n" " " c-var " = NULL;\n" " }\n") '()) (if (not (null? destroy-value)) "}\n" '())))) ;;; GError (define-class ()) (define-method (initialize (self ) initargs) (next-method self (append '(#:arguments-visible? #f) initargs))) (define-method (c-type-name (type )) "GError*") (define-method (check-typespec-options (type ) (options )) (let ((remainder options)) (set! remainder (delq 'caller-owned remainder)) (set! remainder (delq 'null-ok remainder)) (if (not (null? remainder)) (raise (condition (&gw:bad-typespec (type type) (options options))))))) (define-method (destroy-value-cg (t ) (value ) status-var) (list "g_clear_error(&" (var value) ");\n")) (define-method (pre-call-arg-cg (t ) (value ) status-var) (list (var value) " = NULL;\n")) (define-method (call-arg-cg (t ) (value )) (list "&" (var value))) (define-method (post-call-arg-cg (t ) (value ) status-var) (let* ((c-name (var value))) (list "if (" c-name ")\n" " scm_c_raise_gerror(" c-name ");\n"))) guile-gnome-platform-2.16.2/glib/gnome/gw/support/0000755000175000017500000000000011752546500022344 5ustar00wingowingo00000000000000guile-gnome-platform-2.16.2/glib/gnome/gw/support/gtk-doc.scm0000644000175000017500000010146011752015210024367 0ustar00wingowingo00000000000000;; guile-gnome ;; Copyright (C) 2007, 2011 Free Software Foundation ;; This program is free software; you can redistribute it and/or ;; modify it under the terms of the GNU General Public License as ;; published by the Free Software Foundation; either version 2 of ;; the License, or (at your option) any later version. ;; ;; This program is distributed in the hope that it will be useful, ;; but WITHOUT ANY WARRANTY; without even the implied warranty of ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the ;; GNU General Public License for more details. ;; ;; You should have received a copy of the GNU General Public License ;; along with this program; if not, contact: ;; ;; Free Software Foundation Voice: +1-617-542-5942 ;; 59 Temple Place - Suite 330 Fax: +1-617-542-2652 ;; Boston, MA 02111-1307, USA gnu@gnu.org ;;; Commentary: ;; ;; This module exports two high-level procedures to transform the ;; Docbook files generated by GTK-Doc into texinfo. ;; ;; @uref{http://www.gtk.org/gtk-doc/,GTK-Doc} is commonly used to ;; document GObject-based libraries, such as those that Guile-GNOME ;; wraps. In a typical build setup, GTK-Doc generates a reference manual ;; with one XML file per section. The routines in this module attempt to ;; recreate those sections, but in Texinfo instead of Docbook, and which ;; document the Scheme modules instead of the upstream C libraries. ;; ;; The tricky part of translating GTK-Doc's documentation is not the ;; vocabulary (Docbook), but that it documents C functions which have ;; different calling conventions than Scheme. For example, a C function ;; might take four @code{double*} arguments, but in Scheme the function ;; would return four rational values. Given only the C prototype, the ;; code in this module will make an attempt to determine what the Scheme ;; function's arguments will be based on some heuristics. ;; ;; In most cases, however, we can do better than heuristics, because we ;; have the G-Wrap information that describes the relationship between ;; the C function and the Scheme wrapper. In that way we can know ;; exactly what the input and output arguments are for a particular ;; function. ;; ;; The @code{gtk-doc->texi-stubs} function is straightforward. It ;; extracts the "header" in a set of GTK-Doc files, translates them into ;; texinfo, writing them out one by one to files named ;; @samp{section-@var{foo}.texi}, where @var{foo} is the name of the XML ;; file. It is unclear whether it is best to continously generate these ;; sections when updating the manuals, or whether this "stub" generation ;; should be run only once when the documentation is initially ;; generated, and thereafter maintained by hand. Your call! ;; ;; @code{gtk-doc->texi-defuns} is slightly more complicated, because you ;; have the choice as to whether to use heuristics or the g-wrap method ;; for determining the arguments. See its documentation for more ;; information. ;; ;; Both of these functions are designed to be directly callable from the ;; shell. Here is a makefile snippet suitable for using the heuristics ;; method for defuns generation: ;; ;; @example ;; GTK_DOC_TO_TEXI_STUBS = \ ;; '((@@ (gnome gw support gtk-doc) gtk-doc->texi-stubs) \ ;; (cdr (program-arguments)))' ;; GTK_DOC_DEFUN_METHOD = heuristics ;; GTK_DOC_DEFUN_ARGS = (your-module-here) ;; GTK_DOC_TO_TEXI_DEFUNS = "(apply (@@ (gnome gw support gtk-doc) \ ;; gtk-doc->texi-defuns) (cadr (program-arguments)) \ ;; '$(GTK_DOC_DEFUN_METHOD) '($(GTK_DOC_DEFUN_ARGS)) \ ;; (cddr (program-arguments)))" ;; GUILE = $(top_builddir)/dev-environ guile ;; ;; generate-stubs: ;; $(GUILE) $(GUILE_FLAGS) -c $(GTK_DOC_TO_TEXI_STUBS) \ ;; $(docbook_xml_files) ;; ;; generate-defuns: ;; $(GUILE) $(GUILE_FLAGS) -c $(GTK_DOC_TO_TEXI_DEFUNS) \ ;; ./overrides.texi $(docbook_xml_files) ;; @end example ;; ;; To make the above snippet work, you will have to define ;; @code{$(docbook_xml_files)} as the set of docbook XML files to ;; transform. To use the G-Wrap method, try the following: ;; ;; @example ;; wrapset_module = (gnome gw $(wrapset_stem)-spec) ;; wrapset_name = gnome-$(wrapset_stem) ;; GTK_DOC_DEFUN_METHOD = g-wrap ;; GTK_DOC_DEFUN_ARGS = $(wrapset_module) $(wrapset_name) ;; @end example ;; ;; Set @code{$(wrapset_stem)} to the stem of the wrapset name, e.g. ;; @code{pango}, and there you are. ;; ;;; Code: (define-module (gnome gw support gtk-doc) #:use-module (sxml ssax) #:use-module ((sxml xpath) #:select (sxpath)) #:use-module (sxml transform) #:use-module (ice-9 regex) #:use-module ((srfi srfi-1) #:select (append-map (fold . srfi-1:fold) lset-difference)) #:use-module (srfi srfi-13) #:use-module (texinfo) #:use-module (texinfo docbook) #:use-module (texinfo reflection) #:use-module (texinfo serialize) #:use-module (match-bind) #:use-module (g-wrap) #:use-module (g-wrap guile) ;; for the `module' generic #:use-module (gnome gobject) #:use-module (gnome gobject utils) #:use-module (oop goops) #:use-module (gnome gobject utils) #:export (gtk-doc->texi-stubs gtk-doc->texi-defuns check-documentation-coverage generate-undocumented-texi)) (define (attr-ref attrs name . default) (or (and=> (assq name (cdr attrs)) cadr) (if (pair? default) (car default) (error "missing attribute" name)))) ;; Make SSAX understand   and % -- nasty, but that's how it ;; is (for-each (lambda (pair) (cond-expand (guile-2 (define-parsed-entity! (car pair) (cdr pair))) (else (set! ssax:predefined-parsed-entities (assoc-set! ssax:predefined-parsed-entities (car pair) (cdr pair)))))) '((nbsp . " ") (percnt . "%") (oacute . "ó") (sol . "/") (mdash . "—") (ast . "*") (num . "#") (times . "✕") (ldquo . "“") (rdquo . "â€") (hash . "#"))) (define (zap-whitespace sxml) (define (not-whitespace x) (or (not (string? x)) (not (string-every char-whitespace? x)))) (pre-post-order sxml `((*default* . ,(lambda (tag . body) (cons tag (filter not-whitespace body)))) (*text* . ,(lambda (tag text) text))))) (define (docbook->sdocbook docbook-fragment) "Parse a docbook file @var{docbook-fragment} into SXML. Simply calls SSAX's @code{xml->sxml}, but having made sure that @samp{ } elements are interpreted correctly. Does not deal with XInclude." (zap-whitespace (call-with-input-file docbook-fragment (lambda (port) (ssax:xml->sxml port '()))))) (define (sdocbook-fold-defuns proc seed sdocbook-fragment) "Fold over the defuns in the gtk-doc-generated docbook fragment @var{sdocbook-fragment}. Very dependent on the form of docbook that gtk-doc emits." (let lp ((in ((sxpath '(refentry refsect1 (refsect2 (@ role (equal? "function"))))) sdocbook-fragment)) (seed seed)) (if (null? in) seed (lp (cdr in) (proc (car in) seed))))) (define (sdocbook-fold-structs proc seed sdocbook-fragment) "Fold over the struct definitions in the gtk-doc-generated docbook fragment @var{sdocbook-fragment}. Very dependent on the form of docbook that gtk-doc emits. Normally this corresponds to the set of classes exported by the module, although it can contain other things." (let lp ((in (map cddr ((sxpath '(refentry refsect1 refsect2 (title (anchor @ role (equal? "struct"))))) sdocbook-fragment))) (seed seed)) (cond ((null? in) seed) ((and (pair? (car in)) (string? (caar in))) (lp (cdr in) (proc (caar in) seed))) (else (lp (cdr in) seed))))) (define (identity . args) args) (define strip-final-parens (s/// " *\\(\\)$" "")) (define *gtk-doc-sdocbook->stexi-rules* `((variablelist ((varlistentry . ,(lambda (tag term . body) `(entry (% (heading ,@(cdr term))) ,@body))) (listitem . ,(lambda (tag . rest) (cond ((null? rest) (warn "null listitem") '(*fragment*)) ((pair? (car rest)) (if (not (null? (cdr rest))) (warn "ignoring listitem extra contents:" (cddr rest))) (car rest)) (else (list 'para rest)))))) . ,(lambda (tag attrs . body) `(table (% (formatter (var))) ,@body))) (term . ,(lambda (tag param . rest) (if (pair? param) param (list 'var param)))) (parameter . ,(lambda (tag body) `(var ,(gtype-name->scheme-name body)))) (type . ,(lambda (tag body) `(code ,(if (string? body) (symbol->string (gtype-name->class-name body)) body)))) (function . ,(lambda (tag body . ignored) (or (null? ignored) (warn "ignored function tail" ignored)) `(code ,(if (pair? body) body (gtype-name->scheme-name (strip-final-parens body)))))) (xref . ,(lambda (tag attrs) `(emph "(the missing figure, " ,(cadr (assq 'linkend (cdr attrs)))))) (figure *preorder* . ,(lambda (tag attrs . body) `(para "(The missing figure, " ,(cadr (assq 'id (cdr attrs)))))) (indexterm *preorder* . ,(lambda (tag . body) (let ((entry (string-join (apply append (map cdr body)) ", "))) (if (string-null? entry) #f `(cindex (% (entry ,entry))))))) (emphasis *preorder* . ,(lambda (tag . body) (if (and (pair? body) (pair? (car body)) (eq? (caar body) '@)) (if (assq 'role (cdar body)) ;; Ignore role = annotation. "" (begin (warn "Ignoring emphasis attributes" (car body)) (cons 'emph (map (lambda (x) (pre-post-order x *gtk-doc-sdocbook->stexi-rules*)) (cdr body))))) (cons 'emph (map (lambda (x) (pre-post-order x *gtk-doc-sdocbook->stexi-rules*)) body))))) (*text* . ,(lambda (tag text) (or (assoc-ref '(("NULL" . (code "#f")) ("FALSE" . (code "#f")) ("TRUE" . (code "#t")) ("Returns" . "ret")) text) text))) ,@*sdocbook->stexi-rules*)) (define *gtk-doc-sdocbook->stexi-desc-rules* `((link . ,(lambda (tag args body) body)) ,@*gtk-doc-sdocbook->stexi-rules*)) (define (gtk-doc-sdocbook-title sdocbook) "Extract the title from a fragment of docbook, as produced by gtk-doc. May return @code{#f} if the title is not found." (let ((l ((sxpath '(refentry refnamediv refname)) sdocbook))) (if (null? l) #f (cdar l)))) (define (gtk-doc-sdocbook-subtitle sdocbook) "Extract the subtitle from a fragment of docbook, as produced by gtk-doc. May return @code{#f} if the subtitle is not found." (let ((l ((sxpath '(refentry refnamediv refpurpose)) sdocbook))) (if (null? l) #f (cdar l)))) (define (sdocbook-description sdocbook) (filter-empty-elements (replace-titles (sdocbook-flatten (cons '*fragment* (let ((fragments ((sxpath '(refentry (refsect1 (@ role (equal? "desc"))) *)) sdocbook))) (if (and (pair? fragments) (pair? (car fragments)) (eq? (caar fragments) 'title)) ;; cdr past title... ugh. (cdr fragments) fragments))))))) (define (gtk-doc-sdocbook->description-fragment sdocbook) "Extract the \"description\" of a module from a fragment of docbook, as produced by gtk-doc, translated into texinfo." (cons '*fragment* (map (lambda (x) (pre-post-order x *gtk-doc-sdocbook->stexi-desc-rules*)) (sdocbook-description sdocbook)))) (define (gtk-doc->texi-stubs files) "Generate a section overview texinfo file for each docbook XML file in @var{files}. The files will be created in the current directory, as described in the documentation for @code{(gnome gw support gtk-doc)}. They will include a file named @code{defuns-@var{file}.texi}, which should probably be created using @code{gtk-doc->texi-defuns}." (for-each (lambda (file) (let* ((sdocbook (docbook->sdocbook file)) (basename (basename file)) (title (gtk-doc-sdocbook-title sdocbook)) (subtitle (gtk-doc-sdocbook-subtitle sdocbook)) (desc (gtk-doc-sdocbook->description-fragment sdocbook))) (if title (with-output-to-file (string-append "section-" basename ".texi") (lambda () (display (stexi->texi `(*fragment* (node (% (name ,@title))) (chapter ,@title) ,@(if subtitle `((para ,@subtitle)) '()) (section "Overview") ,@(cdr desc) (section "Usage") (include ,(string-append "defuns-" basename ".texi")))))))))) files)) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;; The following functions try to parse out the arguments from the ;; preformatted function definition produced by gtk-doc. It uses ;; heuristics, necessarily. The culmination of this effort is ;; make-deffn-args, called in *gtk-doc-sdocbook->stexi-def-rules*. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (define (string-value xml) ;; inefficient, but hey! (cond ((symbol? xml) "") ((string? xml) xml) ((pair? xml) (if (eq? (car xml) '@) "" (apply string-append (map string-value xml)))))) (define (parse-deffn-args elt) (define (trim-const type) (match-bind "^(const )?(.*)$" type (_ const rest) rest)) (define (parse-arg arg args) ;; ignores const. (match-bind "^(.*) (\\**)([^ ]+)$" arg (_ type stars name) (acons (string-append (trim-const (string-trim-both type)) stars) name args) (cond ((string=? "void" arg) args) ((string=? "void" arg) args) (else (error "could not parse" arg))))) (let ((flat (string-value elt))) (match-bind "^(.*?) ([^ ]+) +\\((.*)\\);" flat (_ ret-type name args) `((data-type . ,(trim-const (string-trim-both ret-type))) (name . ,name) (arguments . ,(reverse (srfi-1:fold parse-arg '() (map string-trim-both (string-split args #\,))))))))) (define *immediate-types* '("double")) (define (output-type? type) (let* ((base (substring type 0 (or (string-index type #\*) (string-length type)))) (nstars (string-length (substring type (string-length base))))) (> nstars (if (member base *immediate-types*) 0 1)))) (define (strip-star type) (let ((len (string-length type))) (if (eqv? (string-ref type (1- len)) #\*) (substring type 0 (1- len)) type))) (define (c-arguments->scheme-arguments args return-type) (define (arg-texinfo arg) `(" (" (var ,(gtype-name->scheme-name (cdr arg))) (tie) (code ,(symbol->string (gtype-name->class-name (strip-star (car arg))))) ")")) (define (finish input-args output-args) (let ((inputs (append-map arg-texinfo input-args)) (outputs (append-map arg-texinfo (if (string=? return-type "void") output-args (acons return-type "ret" output-args))))) (if (null? outputs) inputs (append inputs '(" " (result) (tie)) outputs)))) (let lp ((args args) (out '())) (cond ((null? args) (finish (reverse out) '())) ((output-type? (caar args)) (finish (reverse out) args)) (else (lp (cdr args) (cons (car args) out)))))) (define (make-deffn-args elt) (let ((args (parse-deffn-args elt))) `(% (category "Function") (name ,(gtype-name->scheme-name (assq-ref args 'name))) (arguments ,@(c-arguments->scheme-arguments (assq-ref args 'arguments) (assq-ref args 'data-type)))))) (define *gtk-doc-sdocbook->stexi-def-rules* `((refsect2 *macro* . ,(lambda (tag . body) (let lp ((body body)) (let ((elt (car body))) (if (and (pair? elt) (eq? (car elt) 'programlisting)) `(deffn ,(make-deffn-args elt) ,@(filter-empty-elements (replace-titles (sdocbook-flatten (cons '*fragment* (cdr body)))))) (lp (cdr body))))))) (deffn . ,identity) (link . ,(lambda (tag args body) body)) ,@*gtk-doc-sdocbook->stexi-rules*)) (define (gtk-doc-sdocbook->def-list/heuristics sdocbook process-def) (reverse (sdocbook-fold-defuns (lambda (fragment seed) (let* ((parsed (pre-post-order fragment *gtk-doc-sdocbook->stexi-def-rules*)) (name (string->symbol (attr-ref (cadr parsed) 'name))) (def (process-def name parsed))) (if def (cons def seed) seed))) '() sdocbook))) (define (input-arg-names func) (map name (input-arguments func))) (define (input-arg-type-names func) (map name (map type (map typespec (input-arguments func))))) (define (output-arg-names func) (map name (output-arguments func))) (define (output-arg-type-names func) (map name (map type (map typespec (output-arguments func))))) (define (return-type-name func) (name (return-type func))) (define (make-function-hash wrapset) (let ((ret (make-hash-table))) (fold-functions (lambda (f nil) (let ((in (input-arguments f)) (out (output-arguments f))) (hashq-set! ret (name f) f))) #f wrapset) ret)) (define (parse-func-name elt) (string->symbol (gtype-name->scheme-name (let ((flat (string-value elt))) (match-bind "^(.*?) ([^ ]+) +\\((.*)\\);" flat (_ ret-type name args) name (error "could not parse" flat)))))) (define (function-stexi-arguments f) (define (arg-texinfo name type) `(" (" ,(symbol->string name) (tie) (code ,(symbol->string type)) ")")) (let ((inputs (append-map arg-texinfo (input-arg-names f) (input-arg-type-names f))) (outputs (apply append-map arg-texinfo (if (eq? (return-type-name f) 'void) (list (output-arg-names f) (output-arg-type-names f)) (list (cons 'ret (output-arg-names f)) (cons (return-type-name f) (output-arg-type-names f))))))) (if (null? outputs) inputs (append inputs '(" " (result) (tie)) outputs)))) (define (make-defs/g-wrap elt funcs body process-def) (or (and=> (hashq-ref funcs (parse-func-name elt)) (lambda (f) (let ((deffn (process-def (name f) `(deffn (% (name ,(symbol->string (name f))) (category "Function") (arguments ,@(function-stexi-arguments f))) ,@(map (lambda (fragment) (pre-post-order fragment *gtk-doc-sdocbook->stexi-def-rules*)) (filter-empty-elements (replace-titles (sdocbook-flatten (cons '*fragment* body)))))))) (generic (generic-name f))) (if generic `((,(car deffn) ,(cadr deffn) (deffnx (% (name ,(symbol->string generic)) (category "Method"))) ,@(cddr deffn))) (list deffn))))) '())) (define (gtk-doc-sdocbook->def-list/g-wrap sdocbook process-def wrapset) (let ((funcs (make-function-hash wrapset))) (reverse (sdocbook-fold-defuns (lambda (fragment seed) (append (let lp ((body fragment)) (let ((elt (car body))) (if (and (pair? elt) (eq? (car elt) 'programlisting)) (reverse (make-defs/g-wrap elt funcs (cdr body) process-def)) (lp (cdr body))))) seed)) '() sdocbook)))) (define (signal-doc-name rs2) (let ((full-name (cadar ((sxpath '(indexterm primary)) rs2)))) (substring full-name (1+ (string-index-right full-name #\:))))) (define (signal-doc-docs rs2) (map (lambda (fragment) (pre-post-order fragment *gtk-doc-sdocbook->stexi-def-rules*)) (filter-empty-elements (replace-titles (append-map sdocbook-flatten ((sxpath '(para)) rs2)))))) (define (signal-refsect2-list sdocbook) ((sxpath '(refentry (refsect1 (@ role (equal? "signals"))) refsect2)) sdocbook)) (define (signal-docs-alist sdocbook) (map (lambda (rs2) (cons (signal-doc-name rs2) (signal-doc-docs rs2))) (signal-refsect2-list sdocbook))) (define (signal-stexi-args s) (define (class->texi class) `(code ,(symbol->string (class-name class)))) (define (arg-texinfo name class) `(" (" ,name (tie) ,(class->texi class) ")")) (with-accessors (param-types return-type) (let ((inputs (append-map arg-texinfo (map (lambda (i) (string-append "arg" (number->string i))) (iota (length (param-types s)))) (param-types s))) (outputs (let ((type (return-type s))) (if (not type) '() (list (class->texi type)))))) (if (null? outputs) inputs (append inputs '(" " (result) (tie)) outputs))))) (define (class-signal-stexi-docs class sdocbook) (let ((alist (signal-docs-alist sdocbook))) (map (lambda (s) (with-accessors (name) `(defop (% (category "Signal") (name ,(name s)) (class ,(symbol->string (class-name class))) (arguments ,@(signal-stexi-args s))) ,@(or (assoc-ref alist (name s)) '("undocumented"))))) (if (is-a? class ) (with-accessors (interface-type) (filter (lambda (signal) (eq? (interface-type signal) class)) (gtype-class-get-signals class))) '())))) (define (superclasses class) (define (list-join l infix) "Infixes @var{infix} into list @var{l}." (if (null? l) l (let lp ((in (cdr l)) (out (list (car l)))) (cond ((null? in) (reverse out)) (else (lp (cdr in) (cons* (car in) infix out))))))) (cond ((is-a? class ) `(para "Derives from " ,@(list-join (map (lambda (namesym) `(code ,(symbol->string namesym))) (map class-name (class-direct-supers class))) ", ") ".")) (else '(para "Opaque pointer.")))) (define (gobject-class-stexi-docs module-name class-name sdocbook) (define (doc-slots class) (define (doc-slot slot) (let ((name (slot-definition-name slot))) `(entry (% (heading ,(symbol->string name))) (para ,(case (slot-definition-allocation slot) ((#:gproperty #:gparam) (with-accessors (blurb) (blurb (gobject-class-find-property class name)))) (else "Scheme slot.")))))) (let ((slots (if (is-a? class ) (class-direct-slots class) '()))) ;; silliness regardings wcts... (cond ((null? slots) '((para "This class defines no direct slots."))) (else `((para "This class defines the following slots:") (table (% (formatter (code))) ,@(map doc-slot slots))))))) (let ((v (module-variable (resolve-interface module-name) class-name))) (cond (v `((deftp (% (name ,(symbol->string class-name)) (category "Class")) ,(superclasses (variable-ref v)) ,@(doc-slots (variable-ref v))) ,@(class-signal-stexi-docs (variable-ref v) sdocbook))) (else '())))) (define (make-type-docs? class-name wrapset) ;; does the type (1) exist and (2) define an export? (fold-types (lambda (x y) (or y (and (eq? (name x) class-name) (or (not (slot-exists? x 'define-class?)) (slot-ref x 'define-class?))))) #f wrapset)) (define (gtk-doc-sdocbook->class-list/g-wrap sdocbook process-def wrapset) (reverse (sdocbook-fold-structs (lambda (cname seed) (let ((class-name (gtype-name->class-name cname))) (cond ((make-type-docs? class-name wrapset) (append (reverse (gobject-class-stexi-docs (module wrapset) class-name sdocbook)) seed)) (else seed)))) '() sdocbook))) (define (gtk-doc->texi-defuns/g-wrap sdocbook defs-alist module-name wrapset-name) ;; load up the wrapset definition from the module (resolve-interface module-name) (let ((wrapset (get-wrapset 'guile wrapset-name))) (define (munge-def name def) (or (and=> (assq name defs-alist) cdr) def)) (append (gtk-doc-sdocbook->class-list/g-wrap sdocbook munge-def wrapset) (gtk-doc-sdocbook->def-list/g-wrap sdocbook munge-def wrapset)))) (define (gtk-doc->texi-defuns/heuristics sdocbook defs-alist module-name) (let ((interface (resolve-interface module-name))) (define (munge-def name def) (and (module-variable interface name) (or (and=> (assq name defs-alist) cdr) def))) (gtk-doc-sdocbook->def-list/heuristics sdocbook munge-def))) (define *gtk-doc->texi-defuns-methods* `((g-wrap . ,gtk-doc->texi-defuns/g-wrap) (heuristics . ,gtk-doc->texi-defuns/heuristics))) (define (def-name def) (string->symbol (cadr (assq 'name (cdadr def))))) (define (gtk-doc->texi-defuns overrides method args . files) "Generate documentation for the types and functions defined in a set of docbook files genearted by GTK-Doc. @var{overrides} should be a path to a texinfo file from which @code{@@deffn} overrides will be taken. @var{method} should be either @code{g-wrap} or @code{heuristics}, as discussed in the @code{(gnome gw support gtk-doc)} documentation. @var{files} is the list of docbook XML files from which to pull function documentation. @var{args} should be a list, whose form depends on the @var{method}. For @code{g-wrap}, it should be two elements, the first the name of a module that, when loaded, will load the necessary wrapset into the g-wrap runtime. For example, @code{(gnome gw glib-spec)}. The second argument should be the name of the wrapset, e.g. @code{gnome-glib}. If @var{method} is @code{heuristics}, @var{args} should have only one element, the name of the module to load to check the existence of procedures, e.g. @code{(cairo)}." (let* ((defs ((sxpath '(deffn)) (call-with-input-file overrides texi-fragment->stexi))) (defs-alist (map cons (map def-name defs) defs)) (make-defuns (or (assq-ref *gtk-doc->texi-defuns-methods* method) (error "unknown method" method)))) (for-each (lambda (file) (let* ((sdocbook (docbook->sdocbook file)) (basename (basename file)) (docs (stexi->texi `(*fragment* ,@(apply make-defuns sdocbook defs-alist args))))) (with-output-to-file (string-append "defuns-" basename ".texi") (lambda () (display docs))))) files))) (define (symbolcomp pred) (lambda (a b) (pred (symbol->string a) (symbol->string b)))) (define symbolstring (car def))) (cons (car def) rest) rest)) '() texi-command-specs))) (srfi-1:fold (lambda (x rest) (if (and (pair? x) (memq (car x) commands)) (cons x rest) rest)) '() stexi))) (define (check-documentation-coverage modules texi) "Check the coverage of generated documentation. @var{modules} is a list of module names, and @var{texi} is a path to a texinfo file. The set of exports of @var{modules} is checked against the set of procedures defined in @var{texi}, resulting in a calculation of documentation coverage, and the output of any missing documentation to the current output port." (let* ((defs (extract-defs (call-with-input-file texi texi->stexi))) (def-names (map def-name defs)) (exports (append-map (lambda (mod) (or (false-if-exception (module-map (lambda (k v) k) (resolve-interface mod))) (begin (warn "Module does not exist:" mod) '()))) modules)) (undocumented (lset-difference eq? exports def-names)) (spurious (lset-difference eq? def-names exports))) (format #t "~A symbols exported\n" (length exports)) (format #t "~A symbols documented\n" (length def-names)) (format #t "~A symbols undocumented\n" (length undocumented)) (for-each (lambda (sym) (format #t " ~A\n" sym)) (sort undocumented symbolstexi))) (def-names (map def-name defs))) (define (module-undocumented mod) (sort! (lset-difference eq? (module-map (lambda (k v) k) (resolve-interface mod)) def-names) symboltexi `(*fragment* (node (% (name "Undocumented"))) (chapter "Undocumented") (para "The following symbols, if any, have not been properly " "documented.") ,@(append-map (lambda (mod) (let ((undocumented (module-undocumented mod))) (cond ((null? undocumented) '()) (else `((section ,(with-output-to-string (lambda () (write mod)))) ,@(append-map (lambda (sym) (let ((odoc (object-stexi-documentation (module-ref (resolve-interface mod) sym) sym #:force #t))) (if (eq? (car odoc) '*fragment*) (cdr odoc) (list odoc)))) undocumented)))))) modules))) (open-output-file "undocumented.texi")))) guile-gnome-platform-2.16.2/glib/gnome/gw/support/printf.scm0000644000175000017500000004273211670374302024360 0ustar00wingowingo00000000000000;;;; "printf.scm" Implementation of standard C functions for Scheme ;;; Copyright (C) 1991-1993, 1996, 1999-2001 Aubrey Jaffer and Radey Shouman. ; ;Permission to copy this software, to modify it, to redistribute it, ;to distribute modified versions, and to use it for any purpose is ;granted, subject to the following restrictions and understandings. ; ;1. Any copy made of this software must include this copyright notice ;in full. ; ;2. I have made no warranty or representation that the operation of ;this software will be error-free, and I am under no obligation to ;provide any services, by way of maintenance, update, or otherwise. ; ;3. In conjunction with products arising from the use of this ;material, there shall be no use of my name in any advertising, ;promotional, or sales literature without prior written consent in ;each case. (require 'string-case) (require-if 'compiling 'generic-write) ;; Determine the case of digits > 9. We assume this to be constant. (define stdio:hex-upper-case? (string=? "-F" (number->string -15 16))) ;; Parse the output of NUMBER->STRING and pass the results to PROC. ;; PROC takes (SIGN-CHARACTER DIGIT-STRING EXPONENT-INTEGER . IMAGPART) ;; SIGN-CHAR will be either #\+ or #\-, DIGIT-STRING will always begin ;; with a "0", after which a decimal point should be understood. ;; If STR denotes a number with imaginary part not exactly zero, ;; 3 additional elements for the imaginary part are passed. ;; If STR cannot be parsed, return #F without calling PROC. (define (stdio:parse-float str proc) (let ((n (string-length str))) (define (parse-error) #f) (define (prefix i cont) (if (and (< i (- n 1)) (char=? #\# (string-ref str i))) (case (string-ref str (+ i 1)) ((#\d #\i #\e) (prefix (+ i 2) cont)) ((#\.) (cont i)) (else (parse-error))) (cont i))) (define (sign i cont) (if (< i n) (let ((c (string-ref str i))) (case c ((#\- #\+) (cont (+ i 1) c)) (else (cont i #\+)))))) (define (digits i cont) (do ((j i (+ j 1))) ((or (>= j n) (not (or (char-numeric? (string-ref str j)) (char=? #\# (string-ref str j))))) (cont j (if (= i j) "0" (substring str i j)))))) (define (point i cont) (if (and (< i n) (char=? #\. (string-ref str i))) (cont (+ i 1)) (cont i))) (define (exp i cont) (cond ((>= i n) (cont i 0)) ((memv (string-ref str i) '(#\e #\s #\f #\d #\l #\E #\S #\F #\D #\L)) (sign (+ i 1) (lambda (i sgn) (digits i (lambda (i digs) (cont i (if (char=? #\- sgn) (- (string->number digs)) (string->number digs)))))))) (else (cont i 0)))) (define (real i cont) (prefix i (lambda (i) (sign i (lambda (i sgn) (digits i (lambda (i idigs) (point i (lambda (i) (digits i (lambda (i fdigs) (exp i (lambda (i ex) (let* ((digs (string-append "0" idigs fdigs)) (ndigs (string-length digs))) (let loop ((j 1) (ex (+ ex (string-length idigs)))) (cond ((>= j ndigs) ;; Zero (cont i sgn "0" 1)) ((char=? #\0 (string-ref digs j)) (loop (+ j 1) (- ex 1))) (else (cont i sgn (substring digs (- j 1) ndigs) ex)))))))))))))))))) (real 0 (lambda (i sgn digs ex) (cond ((= i n) (proc sgn digs ex)) ((memv (string-ref str i) '(#\+ #\-)) (real i (lambda (j im-sgn im-digs im-ex) (if (and (= j (- n 1)) (char-ci=? #\i (string-ref str j))) (proc sgn digs ex im-sgn im-digs im-ex) (parse-error))))) ((eqv? (string-ref str i) #\@) ;; Polar form: No point in parsing the angle ourselves, ;; since some transcendental approximation is unavoidable. (let ((num (string->number str))) (if num (stdio:parse-float (number->string (real-part num)) (lambda (sgn digs ex) (stdio:parse-float (number->string (imag-part num)) (lambda (im-sgn im-digs im-ex) (proc sgn digs ex im-sgn im-digs im-ex))))) (parse-error)))) (else #f)))))) ;; STR is a digit string representing a floating point mantissa, STR must ;; begin with "0", after which a decimal point is understood. ;; The output is a digit string rounded to NDIGS digits after the decimal ;; point implied between chars 0 and 1. ;; If STRIP-0S is not #F then trailing zeros will be stripped from the result. ;; In this case, STRIP-0S should be the minimum number of digits required ;; after the implied decimal point. (define (stdio:round-string str ndigs strip-0s) (let* ((n (- (string-length str) 1)) (res (cond ((< ndigs 0) "") ((= n ndigs) str) ((< n ndigs) (let ((padlen (max 0 (- (or strip-0s ndigs) n)))) (if (zero? padlen) str (string-append str (make-string padlen (if (char-numeric? (string-ref str n)) #\0 #\#)))))) (else (let ((res (substring str 0 (+ ndigs 1))) (dig (lambda (i) (let ((c (string-ref str i))) (if (char-numeric? c) (string->number (string c)) 0))))) (let ((ldig (dig (+ 1 ndigs)))) (if (or (> ldig 5) (and (= ldig 5) (let loop ((i (+ 2 ndigs))) (if (> i n) (odd? (dig ndigs)) (if (zero? (dig i)) (loop (+ i 1)) #t))))) (let inc! ((i ndigs)) (let ((d (dig i))) (if (< d 9) (string-set! res i (string-ref (number->string (+ d 1)) 0)) (begin (string-set! res i #\0) (inc! (- i 1)))))))) res))))) (if strip-0s (let loop ((i (- (string-length res) 1))) (if (or (<= i strip-0s) (not (char=? #\0 (string-ref res i)))) (substring res 0 (+ i 1)) (loop (- i 1)))) res))) (define (stdio:iprintf out format-string . args) (cond ((not (equal? "" format-string)) (let ((pos -1) (fl (string-length format-string)) (fc (string-ref format-string 0))) (define (advance) (set! pos (+ 1 pos)) (cond ((>= pos fl) (set! fc #f)) (else (set! fc (string-ref format-string pos))))) (define (must-advance) (set! pos (+ 1 pos)) (cond ((>= pos fl) (incomplete)) (else (set! fc (string-ref format-string pos))))) (define (end-of-format?) (>= pos fl)) (define (incomplete) (slib:error 'printf "conversion specification incomplete" format-string)) (define (wna) (slib:error 'printf "wrong number of arguments" (length args) format-string)) (define (out* strs) (if (string? strs) (out strs) (let out-loop ((strs strs)) (or (null? strs) (and (out (car strs)) (out-loop (cdr strs))))))) (let loop ((args args)) (advance) (cond ((end-of-format?) ;;(or (null? args) (wna)) ;Extra arguments are *not* a bug. ) ((eqv? #\\ fc);;Emulating C strings may not be a good idea. (must-advance) (and (case fc ((#\n #\N) (out #\newline)) ((#\t #\T) (out slib:tab)) ;;((#\r #\R) (out #\return)) ((#\f #\F) (out slib:form-feed)) ((#\newline) #t) (else (out fc))) (loop args))) ((eqv? #\% fc) (must-advance) (let ((left-adjust #f) ;- (signed #f) ;+ (blank #f) (alternate-form #f) ;# (leading-0s #f) ;0 (width 0) (precision -1) (type-modifier #f) (read-format-number (lambda () (cond ((eqv? #\* fc) ; GNU extension (must-advance) (let ((ans (car args))) (set! args (cdr args)) ans)) (else (do ((c fc fc) (accum 0 (+ (* accum 10) (string->number (string c))))) ((not (char-numeric? fc)) accum) (must-advance))))))) (define (pad pre . strs) (let loop ((len (string-length pre)) (ss strs)) (cond ((>= len width) (cons pre strs)) ((null? ss) (cond (left-adjust (cons pre (append strs (list (make-string (- width len) #\space))))) (leading-0s (cons pre (cons (make-string (- width len) #\0) strs))) (else (cons (make-string (- width len) #\space) (cons pre strs))))) (else (loop (+ len (string-length (car ss))) (cdr ss)))))) (define integer-convert (lambda (s radix fixcase) (cond ((not (negative? precision)) (set! leading-0s #f) (if (and (zero? precision) (eqv? 0 s)) (set! s "")))) (set! s (cond ((symbol? s) (symbol->string s)) ((number? s) (number->string s radix)) ((or (not s) (null? s)) "0") ((string? s) s) (else "1"))) (if fixcase (set! s (fixcase s))) (let ((pre (cond ((equal? "" s) "") ((eqv? #\- (string-ref s 0)) (set! s (substring s 1 (string-length s))) "-") (signed "+") (blank " ") (alternate-form (case radix ((8) "0") ((16) "0x") (else ""))) (else "")))) (pad pre (if (< (string-length s) precision) (make-string (- precision (string-length s)) #\0) "") s)))) (define (float-convert num fc) (define (f digs exp strip-0s) (let ((digs (stdio:round-string digs (+ exp precision) (and strip-0s exp)))) (cond ((>= exp 0) (let* ((i0 (cond ((zero? exp) 0) ((char=? #\0 (string-ref digs 0)) 1) (else 0))) (i1 (max 1 (+ 1 exp))) (idigs (substring digs i0 i1)) (fdigs (substring digs i1 (string-length digs)))) (cons idigs (if (and (string=? fdigs "") (not alternate-form)) '() (list "." fdigs))))) ((zero? precision) (list (if alternate-form "0." "0"))) ((and strip-0s (string=? digs "") (list "0"))) (else (list "0." (make-string (min precision (- -1 exp)) #\0) digs))))) (define (e digs exp strip-0s) (let* ((digs (stdio:round-string digs (+ 1 precision) (and strip-0s 0))) (istrt (if (char=? #\0 (string-ref digs 0)) 1 0)) (fdigs (substring digs (+ 1 istrt) (string-length digs))) (exp (if (zero? istrt) exp (- exp 1)))) (list (substring digs istrt (+ 1 istrt)) (if (and (string=? fdigs "") (not alternate-form)) "" ".") fdigs (if (char-upper-case? fc) "E" "e") (if (negative? exp) "-" "+") (if (< -10 exp 10) "0" "") (number->string (abs exp))))) (define (g digs exp) (let ((strip-0s (not alternate-form))) (set! alternate-form #f) (cond ((<= (- 1 precision) exp precision) (set! precision (- precision exp)) (f digs exp strip-0s)) (else (set! precision (- precision 1)) (e digs exp strip-0s))))) (define (k digs exp sep) (let* ((units '#("y" "z" "a" "f" "p" "n" "u" "m" "" "k" "M" "G" "T" "P" "E" "Z" "Y")) (base 8) ;index of "" (uind (let ((i (if (negative? exp) (quotient (- exp 3) 3) (quotient (- exp 1) 3)))) (and (< -1 (+ i base) (vector-length units)) i)))) (cond (uind (set! exp (- exp (* 3 uind))) (set! precision (max 0 (- precision exp))) (append (f digs exp #f) (list sep (vector-ref units (+ uind base))))) (else (g digs exp))))) (cond ((negative? precision) (set! precision 6)) ((and (zero? precision) (char-ci=? fc #\g)) (set! precision 1))) (let* ((str (cond ((number? num) (number->string (exact->inexact num))) ((string? num) num) ((symbol? num) (symbol->string num)) (else "???")))) (define (format-real signed? sgn digs exp . rest) (if (null? rest) (cons (if (char=? #\- sgn) "-" (if signed? "+" (if blank " " ""))) (case fc ((#\e #\E) (e digs exp #f)) ((#\f #\F) (f digs exp #f)) ((#\g #\G) (g digs exp)) ((#\k) (k digs exp "")) ((#\K) (k digs exp " ")))) (append (format-real signed? sgn digs exp) (apply format-real #t rest) '("i")))) (or (stdio:parse-float str (lambda (sgn digs expon . imag) (apply pad (apply format-real signed sgn digs expon imag)))) (pad "???")))) (do () ((case fc ((#\-) (set! left-adjust #t) #f) ((#\+) (set! signed #t) #f) ((#\ ) (set! blank #t) #f) ((#\#) (set! alternate-form #t) #f) ((#\0) (set! leading-0s #t) #f) (else #t))) (must-advance)) (cond (left-adjust (set! leading-0s #f))) (cond (signed (set! blank #f))) (set! width (read-format-number)) (cond ((negative? width) (set! left-adjust #t) (set! width (- width)))) (cond ((eqv? #\. fc) (must-advance) (set! precision (read-format-number)))) (case fc ;Ignore these specifiers ((#\l #\L #\h) (set! type-modifier fc) (must-advance))) ;;At this point fc completely determines the format to use. (if (null? args) (if (memv (char-downcase fc) '(#\c #\s #\a #\d #\i #\u #\o #\x #\b #\f #\e #\g #\k)) (wna))) (case fc ;; only - is allowed between % and c ((#\c #\C) ; C is enhancement (and (out (string (car args))) (loop (cdr args)))) ;; only - flag, no type-modifiers ((#\s #\S) ; S is enhancement (let ((s (cond ((symbol? (car args)) (symbol->string (car args))) ((not (car args)) "(NULL)") (else (car args))))) (cond ((not (or (negative? precision) (>= precision (string-length s)))) (set! s (substring s 0 precision)))) (and (out* (cond ((<= width (string-length s)) s) (left-adjust (list s (make-string (- width (string-length s)) #\ ))) (else (list (make-string (- width (string-length s)) (if leading-0s #\0 #\ )) s)))) (loop (cdr args))))) ;; SLIB extension ((#\a #\A) ;#\a #\A are pretty-print (require 'generic-write) (let ((os "") (pr precision)) (generic-write (car args) (not alternate-form) #f (cond ((and left-adjust (negative? pr)) (set! pr 0) (lambda (s) (set! pr (+ pr (string-length s))) (out s))) (left-adjust (lambda (s) (define sl (- pr (string-length s))) (set! pr (cond ((negative? sl) (out (substring s 0 pr)) 0) (else (out s) sl))) (positive? sl))) ((negative? pr) (set! pr width) (lambda (s) (set! pr (- pr (string-length s))) (cond ((not os) (out s)) ((negative? pr) (out os) (set! os #f) (out s)) (else (set! os (string-append os s)))) #t)) (else (lambda (s) (define sl (- pr (string-length s))) (cond ((negative? sl) (set! os (string-append os (substring s 0 pr)))) (else (set! os (string-append os s)))) (set! pr sl) (positive? sl))))) (cond ((and left-adjust (negative? precision)) (cond ((> width pr) (out (make-string (- width pr) #\ ))))) (left-adjust (cond ((> width (- precision pr)) (out (make-string (- width (- precision pr)) #\ ))))) ((not os)) ((<= width (string-length os)) (out os)) (else (and (out (make-string (- width (string-length os)) #\ )) (out os))))) (loop (cdr args))) ((#\d #\D #\i #\I #\u #\U) (and (out* (integer-convert (car args) 10 #f)) (loop (cdr args)))) ((#\o #\O) (and (out* (integer-convert (car args) 8 #f)) (loop (cdr args)))) ((#\x) (and (out* (integer-convert (car args) 16 (if stdio:hex-upper-case? string-downcase #f))) (loop (cdr args)))) ((#\X) (and (out* (integer-convert (car args) 16 (if stdio:hex-upper-case? #f string-upcase))) (loop (cdr args)))) ((#\b #\B) (and (out* (integer-convert (car args) 2 #f)) (loop (cdr args)))) ((#\%) (and (out #\%) (loop args))) ((#\f #\F #\e #\E #\g #\G #\k #\K) (and (out* (float-convert (car args) fc)) (loop (cdr args)))) (else (cond ((end-of-format?) (incomplete)) (else (and (out #\%) (out fc) (out #\?) (loop args)))))))) (else (and (out fc) (loop args))))))))) ;@ (define (fprintf port format . args) (let ((cnt 0)) (apply stdio:iprintf (lambda (x) (cond ((string? x) (set! cnt (+ (string-length x) cnt)) (display x port) #t) (else (set! cnt (+ 1 cnt)) (display x port) #t))) format args) cnt)) ;@ (define (printf format . args) (apply stdio:fprintf (current-output-port) format args)) ;@ (define (sprintf str format . args) (let* ((cnt 0) (s (cond ((string? str) str) ((number? str) (make-string str)) ((not str) (make-string 100)) (else (slib:error 'sprintf "first argument not understood" str)))) (end (string-length s))) (apply stdio:iprintf (lambda (x) (cond ((string? x) (if (or str (>= (- end cnt) (string-length x))) (do ((lend (min (string-length x) (- end cnt))) (i 0 (+ i 1))) ((>= i lend)) (string-set! s cnt (string-ref x i)) (set! cnt (+ cnt 1))) (let () (set! s (string-append (substring s 0 cnt) x)) (set! cnt (string-length s)) (set! end cnt)))) ((and str (>= cnt end))) (else (cond ((and (not str) (>= cnt end)) (set! s (string-append s (make-string 100))) (set! end (string-length s)))) (string-set! s cnt (if (char? x) x #\?)) (set! cnt (+ cnt 1)))) (not (and str (>= cnt end)))) format args) (cond ((string? str) cnt) ((eqv? end cnt) s) (else (substring s 0 cnt))))) (define stdio:fprintf fprintf) ;;(do ((i 0 (+ 1 i))) ((> i 50)) (printf "%s\\n" (sprintf i "%#-13a:%#13a:%-13.8a:" "123456789" "123456789" "123456789"))) guile-gnome-platform-2.16.2/glib/gnome/gw/support/gobject.scm0000644000175000017500000012414511671225671024477 0ustar00wingowingo00000000000000;; guile-gnome ;; Copyright (C) 2003,2004,2008,2009,2011 Andy Wingo ;; Copyright (C) 2004,2007 Andreas Rottmann ;; This program is free software; you can redistribute it and/or ;; modify it under the terms of the GNU General Public License as ;; published by the Free Software Foundation; either version 2 of ;; the License, or (at your option) any later version. ;; ;; This program is distributed in the hope that it will be useful, ;; but WITHOUT ANY WARRANTY; without even the implied warranty of ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the ;; GNU General Public License for more details. ;; ;; You should have received a copy of the GNU General Public License ;; along with this program; if not, contact: ;; ;; Free Software Foundation Voice: +1-617-542-5942 ;; 59 Temple Place - Suite 330 Fax: +1-617-542-2652 ;; Boston, MA 02111-1307, USA gnu@gnu.org ;;; Commentary: ;; ;; @c ;; ;; G-Wrap support for @code{(gnome gobject)} types. Code in this module ;; is only loaded when generating wrapsets; as such, it is not for end ;; users. ;; ;;; Code: (define-module (gnome gw support gobject) #:use-module (oop goops) #:use-module (ice-9 optargs) #:use-module (srfi srfi-1) #:use-module (srfi srfi-11) #:use-module (srfi srfi-13) #:use-module (ice-9 pretty-print) #:use-module (gnome gw support g-wrap) #:use-module (g-wrap enumeration) #:use-module (g-wrap rti) #:use-module (g-wrap c-types) #:use-module ((g-wrap util) #:select (call-with-output-file/cleanup any-str->c-sym-str)) #:use-module (gnome gobject utils) #:use-module (gnome gw support slib) #:export ( add-type-alias! lookup-type-by-alias add-type-rule! find-type-rule gtype-id unwrap-null-checked wrap-instance! wrap-boxed! wrap-pointer! wrap-opaque-pointer! wrap-freeable-pointer! wrap-refcounted-pointer! wrap-structure! wrap-interface! ;; we extend the one from (g-wrap enumeration) ;; wrap-enum! wrap-flags! wrap-gobject-class! wrap-custom-boxed! wrap-custom-gvalue!)) (define-class-with-docs () "The base class for G-Wrap wrapsets that use @code{} types." (type-aliases #:init-form (make-hash-table 31)) (type-rules #:init-form (make-hash-table 7))) (define-method (initializations-cg (wrapset ) err) (list (next-method) "gw_guile_set_generics_module_x (scm_c_resolve_module\n" " (\"gnome gw generics\"));\n")) (define-method (add-type-alias! (wrapset ) (alias ) (name )) "Add a type alias to @var{wrapset}, that the string @var{alias} is associated with the type named @var{symbol}. For example, @code{\"GtkWindow*\"} might be associated with a type named @code{}. See @code{lookup-type-by-alias}." (hash-set! (slot-ref wrapset 'type-aliases) alias (or (lookup-type wrapset name) (error "tried to alias unknown type" name)))) (define (gobject-wrapsets-lookup-recursive ws slot key) (define (gobject-wrapsets-depended-on wrapset) (filter (lambda (ws) (is-a? ws )) (wrapsets-depended-on wrapset))) (define (or-map f l) (if (null? l) #f (or (f (car l)) (or-map f (cdr l))))) (define (lookup wrapset) (or (hash-ref (slot-ref wrapset slot) key) (or-map lookup (gobject-wrapsets-depended-on wrapset)))) (lookup ws)) (define-method (lookup-type-by-alias (wrapset ) (name )) "Lookup a type aliased @var{name} in @var{wrapset}, and all wrapsets on which @var{wrapset} depends. This interface is used by @code{load-defs} to associate G-Wrap types with the strings parsed out of the C header files." (gobject-wrapsets-lookup-recursive wrapset 'type-aliases name)) (define-method (add-type-rule! (self ) (param-type ) typespec) "Add a type rule to @var{wrapset}, that the string @var{param-type} maps directly to the g-wrap typespec @var{typespec}. For example, @code{\"int*\"} might map to the typespec @code{(int out)}. See @code{find-type-rule}." (hash-set! (slot-ref self 'type-rules) param-type typespec)) (define-method (find-type-rule (self ) (param-type )) "See if the parameter type @var{param-type} has a type rule present in @var{wrapset} or in any wrapset on which @var{wrapset} depends. This interface is used by @code{load-defs} to associate G-Wrap typespecs with the strings parsed out of the C header files." (gobject-wrapsets-lookup-recursive self 'type-rules param-type)) ;; "gtk_accel_group" => gtk-accel-group (define (glib-function-name->scheme-name cname) ;; only change _ to -, other characters are not valid c names (string->symbol (gtype-name->scheme-name cname))) (define (print-info how-wrapped c-name scm-name ws) (printf "%-8.8s|%-18.18s|%-25.25s|%-25.25s\n" how-wrapped c-name scm-name (name ws))) (define-class-with-docs () "A base G-Wrap type class for GLib types." (ctype #:init-keyword #:ctype) (how-wrapped #:init-keyword #:wrapped #:init-value #f)) (define-method (initialize (type ) initargs) (let-keywords initargs #t (class-name ctype name) (let ((name-sym (gtype-name->class-name ctype))) (next-method type (append! (if class-name '() (list #:class-name name-sym)) (if name '() (list #:name name-sym)) initargs))))) (define-method (add-type! (ws ) (type )) (next-method) (let ((how-wrapped (slot-ref type 'how-wrapped))) (if how-wrapped (print-info how-wrapped (slot-ref type 'ctype) (name type) ws)))) (define-class-with-docs () "A base G-Wrap type class for classed GLib types (see @code{gtype-classed?})." (gtype-id #:init-keyword #:gtype-id #:getter gtype-id) (define-class? #:init-keyword #:define-class? #:init-value #t)) (define-method (initialize (type ) initargs) (let-keywords initargs #t (c-type-name class-name ctype name) (let ((name-sym (gtype-name->class-name ctype))) (next-method type (append! (if c-type-name '() (list #:c-type-name ctype)) (if class-name '() (list #:class-name name-sym)) (if name '() (list #:name name-sym)) initargs))))) ;; Perhaps make this one also use a loop over an array? (define-method (initializations-cg (wrapset ) (type ) status-var) (list (next-method) (if (slot-ref type 'define-class?) (list "gw_guile_make_latent_variable\n" " (scm_from_locale_symbol (\"" (symbol->string (class-name type)) "\"), " "scm_sys_gtype_to_class, scm_from_ulong (" (gtype-id type) "));\n") '()))) (define-method (add-type! (ws ) (type )) (next-method) (if (slot-ref type 'define-class?) (add-module-export! ws (class-name type)))) (define-class-with-docs () "A base G-Wrap type class for for classed GLib types whose values are pointers.") (define-method (initialize (type ) initargs) (let-keywords initargs #t (ctype) (next-method type (append! (list #:c-type-name (string-append ctype "*") #:ffspec 'pointer) initargs)))) (define-method (unwrap-null-checked (value ) status-var code) "Unwrap a value into a C pointer, optionally unwrapping @code{#f} as @code{NULL}. This function checks the typespec options on @var{value}, which should be a @code{}. If the @code{null-ok} option is set (which is only the case for value classes with @code{null-ok} in its @code{#:allowed-options}), this function generates code that unwraps @code{#f} as @code{NULL}. If @code{null-ok} is unset, or the value is not @code{#f}, @var{code} is run instead." (if-typespec-option value 'null-ok (list "if (SCM_FALSEP (" (scm-var value) "))\n" " " (var value) " = NULL;\n" "else {\n" code "}\n") code)) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;; Wrap objects. (define-class () #:allowed-options '(null-ok)) (define-method (wrap-instance! (ws ) . args) "Define a wrapper for a specific instantiatable (@code{}-derived) type in @var{ws}. Required keyword arguments are @code{#:ctype} and @code{#:gtype-id}. For example, @lisp (wrap-instance! ws #:ctype \"GtkWidget\" #:gtype-id \"GTK_TYPE_WIDGET\") @end lisp Normally only called from @code{load-defs}." (let ((type (apply make args))) (set! (class-name type) (name type)) (slot-set! type 'how-wrapped "GTypeInstance") (add-type! ws type) type)) (define-method (unwrap-value-cg (type ) (value ) status-var) (let ((c-var (var value)) (scm-var (scm-var value))) (list (unwrap-null-checked value status-var (list "if (!(" c-var " = (" (c-type-name type) ") " "scm_c_scm_to_gtype_instance_typed (" scm-var ", " (gtype-id type) ")))\n" `(gw:error ,status-var type ,(wrapped-var value))))))) (define-method (wrap-value-cg (type ) (value ) status-var) (let ((c-var (var value)) (scm-var (scm-var value))) (list "if (" c-var " == NULL)\n" " " scm-var " = SCM_BOOL_F;\n" "else\n" " " scm-var " = scm_c_gtype_instance_to_scm (" c-var ");\n" (if-typespec-option value 'caller-owned ;; the _to_scm will ref the object; if the function is a ;; constructor, we don't need that ref (list "if (" c-var ") scm_c_gtype_instance_unref (" c-var ");\n"))))) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;; Wrap boxed types, represented on the scheme side by GValues. (define-class () #:allowed-options '(null-ok)) (define-method (make-typespec (type ) (options )) (next-method type (cons 'unspecialized options))) (define-method (initialize (type ) initargs) (let-keywords initargs #t (ctype) (next-method type (append! (list #:c-type-name (string-append ctype "*")) initargs)))) (define-method (wrap-boxed! (ws ) . args) "Define a wrapper for a specific boxed type in @var{ws}. Required keyword arguments are @code{#:ctype} and @code{#:gtype-id}, as in @code{wrap-instance!}." (let ((type (apply make args))) (slot-set! type 'how-wrapped "GBoxed") (add-type! ws type) type)) ;; fixme: how to deal with consts? (define-method (unwrap-value-cg (type ) (value ) status-var) (let ((c-var (var value)) (scm-var (scm-var value)) (ctype (c-type-name type))) (list (unwrap-null-checked value status-var (list "if (scm_c_gvalue_holds (" scm-var ", " (gtype-id type) ")) {\n" (if-typespec-option value 'callee-owned (list " " c-var " = scm_c_gvalue_dup_boxed (" scm-var ");\n") (list " " c-var " = scm_c_gvalue_peek_boxed (" scm-var ");\n")) " } else {\n" " " c-var " = NULL;\n" `(gw:error ,status-var type ,(wrapped-var value)) "}\n"))))) (define-method (wrap-value-cg (type ) (value ) status-var) (let ((c-var (var value)) (scm-var (scm-var value))) (list "if (" c-var " == NULL) {\n" " " scm-var " = SCM_BOOL_F;\n" "} else {\n" (if-typespec-option value 'callee-owned (list " " scm-var " = scm_c_gvalue_new_from_boxed (" (gtype-id type) ", " c-var ");\n") (list " " scm-var " = scm_c_gvalue_new_take_boxed (" (gtype-id type) ", " c-var ");\n")) "}\n"))) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;; Wrap pointers. This is an opaque value type; scheme doesn't know what ;; to do with it. (define-class ()) (define-method (wrap-pointer! (ws ) . args) "Define a wrapper for a specific pointer type in @var{ws}. Required keyword arguments are @code{#:ctype} and @code{#:gtype-id}, as in @code{wrap-instance!}." (let ((type (apply make args))) (slot-set! type 'how-wrapped "GPointer") (add-type! ws type) type)) (define-method (unwrap-value-cg (type ) (value ) status-var) (let ((c-var (var value)) (scm-var (scm-var value)) (ctype (c-type-name type))) (unwrap-null-checked value status-var (list "if (scm_c_gvalue_holds (" scm-var ", " (gtype-id type) "))\n" " " c-var " = g_value_get_pointer (scm_c_gvalue_peek_value (" scm-var "));\n" "else {\n" " " c-var " = NULL;\n" `(gw:error ,status-var type ,(wrapped-var value)) "}\n")))) (define-method (wrap-value-cg (type ) (value ) status-var) (let ((c-var (var value)) (scm-var (scm-var value))) (list "if (" c-var " == NULL) {\n" " " scm-var " = SCM_BOOL_F;\n" "} else {\n" " " scm-var " = scm_c_make_gvalue (" (gtype-id type) ");\n" " g_value_set_pointer (scm_c_gvalue_peek_value (" scm-var "), " c-var ");\n" "}\n"))) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;; Wrap interfaces. We only understand interfaces implemented by objects. (define-class () #:allowed-options '(null-ok)) (define-method (wrap-interface! (ws ) . args) "Define a wrapper for an interface type in @var{ws}. Required keyword arguments are @code{#:ctype} and @code{#:gtype-id}, as in @code{wrap-instance!}." (let ((type (apply make args))) (slot-set! type 'how-wrapped "GInterface") (add-type! ws type) type)) (define-method (unwrap-value-cg (type ) (value ) status-var) (let ((c-var (var value)) (scm-var (scm-var value))) (unwrap-null-checked value status-var (list c-var " = scm_c_scm_to_gtype_instance_typed (" scm-var ", G_TYPE_OBJECT);\n" "if (!" c-var " || !g_type_is_a (G_TYPE_FROM_INSTANCE (" c-var "), " (gtype-id type) "))\n" `(gw:error ,status-var type ,(wrapped-var value))) ))) (define-method (wrap-value-cg (type ) (value ) status-var) (let ((c-var (var value)) (scm-var (scm-var value))) (list "if (" c-var " == NULL)\n" " " scm-var " = SCM_BOOL_F;\n" "else {\n" " " scm-var " = scm_c_gtype_instance_to_scm ((GTypeInstance *)" c-var ");\n" (if-typespec-option value 'caller-owned (list "if (" c-var ") g_object_ref ((GObject*)" c-var ");\n")) "}\n"))) ;;; ;;; Enums ;;; (define-class ()) (define-method (initialize (type ) initargs) (let-keywords initargs #t (ctype) (next-method type (append! (list #:ffspec 'uint) initargs)))) (define-method (make-typespec (type ) (options )) (next-method type (append '(caller-owned unspecialized) options))) (define-method (wrap-enum! (ws ) . args) "Define a wrapper for an enumerated type in @var{ws}. The @code{#:ctype} keyword argument is required. If @code{#:gtype-id} is also given, the type will be queried at runtime for its possible values; otherwise a @code{#:values} argument is necessary, which is a list of symbol-integer pairs specifying all possible values." (let-keywords args #t (gtype-id ctype) (cond (gtype-id (let ((type (apply make args))) (slot-set! type 'how-wrapped "GEnum") (add-type! ws type) type)) (else (print-info "C Enum" ctype ctype ws) (apply next-method ws (append! (list #:name (gtype-name->class-name ctype) #:c-type-name ctype) args)))))) ;; enums are just guints... (define-method (unwrap-value-cg (type ) (value ) status-var) (let ((c-var (var value)) (scm-var (scm-var value)) (gtype-id (gtype-id type))) (list "if (scm_c_gvalue_holds (" scm-var ", " gtype-id "))\n" " " c-var " = g_value_get_enum (scm_c_gvalue_peek_value (" scm-var "));\n" "else {\n" " GValue newval = {0,}; g_value_init (&newval, " gtype-id ");\n" " scm_c_gvalue_set (&newval, " scm-var ");\n" " " c-var " = g_value_get_enum (&newval);\n" "}\n"))) (define-method (wrap-value-cg (type ) (value ) status-var) (let ((c-var (var value)) (scm-var (scm-var value))) (list scm-var " = scm_c_make_gvalue (" (gtype-id type)");\n" "g_value_set_enum (scm_c_gvalue_peek_value (" scm-var "), " c-var ");\n"))) ;;; ;;; Flags, represented on the scheme side as GValues. ;;; (define-class ()) (define-method (make-typespec (type ) (options )) (next-method type (append '(unspecialized caller-owned) options))) ;; (wrap-flags! wrapset #:gtype-id foo [#:values '((a 1) ...)]) ;; (wrap-flags! wrapset #:values '((a 1) ...)) (define-method (wrap-flags! (ws ) . args) "Define a wrapper for a flags type in @var{ws}. Required keyword arguments are @code{#:ctype} and @code{#:gtype-id} or @code{#:values}, as in @code{wrap-enum!}." (let-keywords args #t (gtype-id ctype) (cond (gtype-id (let ((type (apply make args))) (slot-set! type 'how-wrapped "GFlags") (add-type! ws type) type)) (else (let ((type (apply wrap-enum! ws args))) (print-info "C Flags" ctype ctype ws) type))))) ;; flags are just guints... (define-method (unwrap-value-cg (type ) (value ) status-var) (let ((c-var (var value)) (scm-var (scm-var value)) (gtype-id (gtype-id type))) (list "if (SCM_FALSEP (" scm-var "))\n" " " c-var " = 0;\n" "else if (scm_c_gvalue_holds (" scm-var ", " gtype-id "))\n" " " c-var " = g_value_get_flags (scm_c_gvalue_peek_value (" scm-var "));\n" "else {\n" " GValue newval = {0,}; g_value_init (&newval, " gtype-id ");\n" " scm_c_gvalue_set (&newval, " scm-var ");\n" " " c-var " = g_value_get_flags (&newval);\n" "}\n"))) (define-method (wrap-value-cg (type ) (value ) status-var) (let ((c-var (var value)) (scm-var (scm-var value))) (list scm-var " = scm_c_make_gvalue (" (gtype-id type) ");\n" "g_value_set_flags (scm_c_gvalue_peek_value (" scm-var "), " c-var ");\n"))) (define-class ( ) wct-var-name) (define-method (initialize (wct ) initargs) (next-method) (slot-set! wct 'wct-var-name (gen-c-tmp (string-append "wct_info_for" (any-str->c-sym-str (symbol->string (name wct))))))) (define-method (wrap-value-cg (wct ) (value ) status-var (inlined? )) (let ((wct-var (slot-ref wct 'wct-var-name)) (sv (scm-var value)) (cv (var value))) (list "if(" cv " == NULL) " sv " = SCM_BOOL_F;\n" "else {\n" sv " = gw_wcp_assimilate_ptr((void *) " cv ", " wct-var ");\n" "}\n"))) (define-method (unwrap-value-cg (wct ) (value ) status-var (inlined? )) (let* ((wct-var (slot-ref wct 'wct-var-name)) (sv (scm-var value)) (c-var (var value)) (unwrap-code (list "if (gw_wcp_is_of_type_p (" wct-var ", " sv "))\n" " " c-var " = gw_wcp_get_ptr (" sv ");\n" "else\n" `(gw:error ,status-var type ,(wrapped-var value))))) (list (if-typespec-option value 'null-ok (list "if (SCM_FALSEP (" sv "))\n" " " c-var " = NULL;\n" "else " unwrap-code) unwrap-code)))) (define-method (initializations-cg (wrapset ) (wct ) error-var) (let ((wct-var (slot-ref wct 'wct-var-name)) (wcp-type-name (symbol->string (name wct))) (wcp-mark (wcp-mark-function wct)) (wcp-free (wcp-free-function wct)) (wcp-equal? (wcp-equal-predicate wct))) (list (next-method) wct-var "= gw_wct_create (\"" wcp-type-name "\", " wcp-equal? ", NULL, " wcp-mark ", " wcp-free ");\n" "scm_c_define(\"" wcp-type-name "\", " wct-var ");\n"))) (define (wct-var-decl-cg wct) (list "static SCM " (slot-ref wct 'wct-var-name) " = SCM_BOOL_F;\n")) (define-method (global-declarations-cg (wrapset ) (wct )) (wct-var-decl-cg wct)) (define-method (client-global-declarations-cg (wrapset ) (wct )) (wct-var-decl-cg wct)) (define-method (client-initializations-cg (wrapset ) (wct ) error-var) (let ((wct-var (slot-ref wct 'wct-var-name)) (wcp-type-name (symbol->string (name wct)))) (list " " wct-var " = scm_c_eval_string(\"" wcp-type-name "\");\n"))) (define (wrap-opaque-pointer! ws ctype) "Define a wrapper for an opaque pointer with the C type @var{ctype}. It will not be possible to create these types from Scheme, but they can be received from a library, and passed as arguments to other calls into the library." (let ((type (make #:name (gtype-name->class-name ctype) #:c-type-name ctype #:c-const-type-name (string-append "const " ctype)))) (add-type! ws type) (add-type-alias! ws ctype (name type)) (print-info "Opaque" ctype ctype ws) (add-module-export! ws (name type)) ;; don't export, unlike wrap-as-wct! type)) (define-class () (free-function #:init-keyword #:free-function)) (define-method (global-declarations-cg (wrapset ) (wct )) (list "static size_t " (wcp-free-function wct) " (void *wcp) {\n" (slot-ref wct 'free-function) " (wcp); return 0;\n" "}" (next-method))) (define (wrap-freeable-pointer! ws ctype free) "foo" (let* ((type (make #:name (gtype-name->class-name ctype) #:c-type-name (string-append ctype "*") #:c-const-type-name (string-append "const " ctype "*") #:wcp-free-function (string-append "_wcp_free_" free) #:free-function free))) (print-info "Freeable" ctype ctype ws) (add-type! ws type) (add-type-alias! ws (string-append ctype "*") (name type)) type)) (define-class () (ref-function #:init-keyword #:ref-function)) (define-method (wrap-value-cg (wct ) (value ) status-var (inlined? )) ;; potential FIXME, caller-owned unwraps (let ((sv (scm-var value)) (cv (var value)) (ref (slot-ref wct 'ref-function))) (append (if-typespec-option value 'callee-owned (list "if (" cv ")\n " ref " (" cv ");\n") '()) (next-method)))) (define (wrap-refcounted-pointer! ws ctype ref unref) "foo" (let* ((type (make #:name (gtype-name->class-name ctype) #:c-type-name (string-append ctype "*") #:c-const-type-name (string-append "const " ctype "*") #:wcp-free-function (string-append "_wcp_free_" unref) #:ref-function ref #:free-function unref))) (print-info "RefPtr" ctype ctype ws) (add-type! ws type) (add-type-alias! ws (c-type-name type) (name type)) type)) (define-class-with-docs () "foo docs here." (c-type-name #:init-keyword #:c-type-name #:getter c-type-name) (wrap-func #:init-keyword #:wrap-func #:getter wrap-func) (unwrap-func #:init-keyword #:unwrap-func #:getter unwrap-func)) (define-method (check-typespec-options (type ) (options )) (let ((remainder options)) (define (del*! . syms) (set! remainder (lset-difference eq? remainder syms))) (del*! 'const 'out 'unspecialized) (cond ((and (memq 'caller-owned remainder) (memq 'callee-owned remainder)) (raise-bad-typespec type options "both caller and callee owned")) ((not (or (memq 'caller-owned remainder) (memq 'callee-owned remainder))) (raise-bad-typespec type options "must be caller or callee owned")) (else (apply del*! 'caller-owned 'callee-owned (slot-ref type 'allowed-options)) (if (not (null? remainder)) (raise-bad-typespec type options "spurious options in RTI type: ~S" remainder)))))) (define-method (c-type-name (type ) (typespec )) (c-type-name type)) (define-method (make-typespec (type ) (options )) (next-method type (cons 'unspecialized options))) (define-method (unwrap-value-cg (type ) (value ) status-var) (let ((c-var (var value)) (scm-var (scm-var value))) (unwrap-null-checked value status-var (list ;; memset c-var to 0 ? (unwrap-func type) " (" scm-var ", &" c-var ");\n")))) (define-method (call-arg-cg (type ) (value )) (list "&" (var value))) (define-method (wrap-value-cg (type ) (value ) status-var) (let ((c-var (var value)) (scm-var (scm-var value))) (list scm-var " = " (wrap-func type) " (&" c-var ");\n"))) (define (wrap-structure! ws ctype wrap unwrap) "Define a wrapper for structure values of type @var{ctype}. @var{wrap} and @var{unwrap} are the names of C functions to convert a C structure to Scheme and vice versa, respectively. When in a function call, parameters of this type of the form `@var{StructName}*' are interpreted as `out' parameters, while `const-@var{StructName}*' are treated as `in' parameters. Note that @var{ctype} should be the type of the structure, not a pointer to the structure." (let* ((type (make #:name (gtype-name->class-name ctype) #:c-type-name ctype #:wrap-func wrap #:unwrap-func unwrap))) (print-info "Structure" ctype ctype ws) (add-type! ws type) (add-type-rule! ws (string-append ctype "*") (list (name type) 'caller-owned 'out)) (add-type-rule! ws (string-append "const-" ctype "*") (list (name type) 'callee-owned)) type)) ;; Used for functions that operate on classes, e.g. ;; gtk_widget_class_install_style_property, ;; gst_element_class_get_pad_template (define-class ()) (define-method (initialize (self ) initargs) (let-keywords initargs #t (ctype) (next-method self (append! (list #:c-type-name (string-append ctype "*") #:ffspec 'pointer) initargs)))) ;; (wrap-gobject-class! ws #:ctype "GstElementClass" #:gtype-id "GST_TYPE_ELEMENT") (define-method (wrap-gobject-class! (ws ) . args) "Define a wrapper for GObject class values @var{ws}. Required keyword arguments are @code{#:ctype} and @code{#:gtype-id}, as in @code{wrap-instance!}. @code{#:ctype} should refer to the type of the class and not the instance; e.g. @code{\"GtkWidgetClass\"} and not @code{\"GtkWidget\"}. This function will not be called by @code{load-defs}, and should be invoked manually in a wrapset as needed." (let ((type (apply make args))) (slot-set! type 'how-wrapped "GObjectClass") (slot-set! type 'define-class? #f) (add-type! ws type) (add-type-alias! ws (c-type-name type) (name type)) type)) (define-method (unwrap-value-cg (type ) (value ) status-var) (let ((c-var (var value)) (scm-var (scm-var value)) (ctype (c-type-name type))) (unwrap-null-checked value status-var (list "if (g_type_is_a (scm_c_gtype_class_to_gtype (" scm-var "), " (gtype-id type) "))\n" " " c-var " = g_type_class_ref (scm_c_gtype_class_to_gtype (" scm-var "));\n" "else " `(gw:error ,status-var type ,(wrapped-var value)))))) (define-method (wrap-value-cg (type ) (value ) status-var) (let ((c-var (var value)) (scm-var (scm-var value))) (list "if (" c-var " == NULL)\n" " " scm-var " = SCM_BOOL_F;\n" "else\n" " " scm-var " = scm_c_gtype_to_class (G_TYPE_FROM_CLASS (" c-var "));\n"))) (define-class () (wrap-func #:init-keyword #:wrap-func #:getter wrap-func) (wrap #:init-keyword #:wrap #:getter wrap) (unwrap-func #:init-keyword #:unwrap-func #:getter unwrap-func) (unwrap #:init-keyword #:unwrap #:getter unwrap) #:allowed-options '(null-ok)) (define-method (make-typespec (type ) (options )) (next-method type (cons 'unspecialized options))) (define gen-c-tmp (let ((i -1)) (lambda (suffix) (set! i (1+ i)) (format #f "gw__~A_~A" i suffix)))) (define-method (global-definitions-cg (wrapset ) (type )) (let ((scm-var (gen-c-tmp "scm_val")) (c-var (gen-c-tmp "c_val"))) (list (next-method) ((wrap type) scm-var c-var) ((unwrap type) scm-var c-var)))) (define-method (global-declarations-cg (wrapset ) (type )) (list (next-method) "static SCM " (wrap-func type) " (const GValue *);\n" "static void " (unwrap-func type) " (SCM, GValue *);\n")) (define-method (initializations-cg (wrapset ) (type ) status-var) (list (next-method) "scm_c_register_gvalue_wrappers (" (gtype-id type) ", " (wrap-func type) ", " (unwrap-func type) ");\n")) (define-macro (make-custom-wrapper type wrap-form) `(let ((ctype ((@@ (gnome gw support gobject) c-type-name) ,type)) (wrap-func ((@@ (gnome gw support gobject) wrap-func) ,type))) (lambda (scm-var c-var) (list "static SCM " wrap-func " (const GValue* gvalue) {\n" " SCM " scm-var " = SCM_BOOL_F;\n" " " ctype " " c-var " = g_value_get_boxed (gvalue);\n" ,wrap-form " return " scm-var ";\n" "}\n")))) (define-macro (make-custom-unwrapper type unwrap-form) `(let ((ctype ((@@ (gnome gw support gobject) c-type-name) ,type)) (unwrap-func ((@@ (gnome gw support gobject) unwrap-func) ,type))) (lambda (scm-var c-var) (list "static void " unwrap-func " (SCM " scm-var ", GValue* gvalue) {\n" " " ctype " " c-var " = NULL;\n" ,unwrap-form " g_value_take_boxed (gvalue, " c-var ");\n" "}\n")))) (define-method (unwrap-value-cg (type ) (value ) status-var) (let ((c-var (var value)) (scm-var (scm-var value))) (unwrap-null-checked value status-var (list "GValue lvalue = { 0, };\n" "g_value_init (&lvalue, " (gtype-id type) ");\n" (unwrap-func type) " (" scm-var ", &lvalue);\n" "if (G_IS_VALUE (&lvalue)) {" ;; leaks memory... need to write a destructor for c-var in the ;; case of a caller-owned argument " " c-var " = g_value_get_boxed (&lvalue);\n" "} else {\n" " " c-var " = NULL;\n" "}\n")))) (define-method (wrap-value-cg (type ) (value ) status-var) (let ((c-var (var value)) (scm-var (scm-var value))) (list "GValue rvalue = { 0, };\n" "g_value_init (&rvalue, " (gtype-id type) ");\n" "g_value_set_static_boxed (&rvalue, " c-var ");\n" scm-var " = " (wrap-func type) " (&rvalue);\n"))) (define-macro-with-docs (wrap-custom-boxed! ctype gtype wrap unwrap) "Wrap a boxed type using custom wrappers and unwrappers. FIXME: missing a wrapset argument! @var{ctype} and @var{gtype} are as @code{#:ctype} and @code{#:gtype-id} in @code{wrap-instance!}. @var{wrap} and @var{unwrap} are G-Wrap forms in which @code{scm-var} and @code{c-var} will be bound to the names of the SCM and C values, respectively. For example: @lisp (wrap-custom-boxed! \"GdkRectangle\" \"GDK_TYPE_RECTANGLE\" (list scm-var \" = \" c-var \" ? scm_gdk_rectangle_to_scm (\" c-var \")\" \" : SCM_BOOL_F;\") (list c-var \" = scm_scm_to_gdk_rectangle (\" scm-var \");\")) @end lisp" (let* ((pname (string-append ctype "*")) (func-infix (string-map (lambda (c) (case c ((#\-) #\_) (else c))) (GStudlyCapsExpand ctype))) (wrap-func (string-append "gw__gvalue_" func-infix "_wrap")) (unwrap-func (string-append "gw__gvalue_" func-infix "_unwrap"))) `(let ((t (make (@@ (gnome gw support gobject) ) #:ctype ,ctype #:gtype-id ,gtype #:c-type-name ,pname #:wrapped "Custom" #:wrap-func ,wrap-func #:unwrap-func ,unwrap-func))) (slot-set! t 'wrap ((@@ (gnome gw support gobject) make-custom-wrapper) t ,wrap)) (slot-set! t 'unwrap ((@@ (gnome gw support gobject) make-custom-unwrapper) t ,unwrap)) (add-type! ws t) (add-type-alias! ws ,pname (name t))))) (define-class () (wrap-func #:init-keyword #:wrap-func #:getter wrap-func) (unwrap-func #:init-keyword #:unwrap-func #:getter unwrap-func) #:allowed-options '(null-ok)) (define-method (make-typespec (type ) (options )) (next-method type (cons 'unspecialized options))) (define-method (initializations-cg (wrapset ) (type ) status-var) (list (next-method) "scm_c_register_gvalue_wrappers (" (gtype-id type) ", " (wrap-func type) ", " (unwrap-func type) ");\n")) (define-method (unwrap-value-cg (type ) (value ) status-var) (let ((c-var (var value)) (scm-var (scm-var value))) (unwrap-null-checked value status-var (list c-var " = g_new0 (GValue, 1);\n" (unwrap-func type) " (" scm-var ", " c-var ");\n" "if (!G_IS_VALUE (" c-var ")) {" " g_free (" c-var ");\n" " " c-var " = NULL;\n" "}\n")))) (define-method (wrap-value-cg (type ) (value ) status-var) (let ((c-var (var value)) (scm-var (scm-var value))) (list scm-var " = " (wrap-func type) " (" c-var ");\n"))) (define-macro (wrap-custom-gvalue! ctype gtype wrap-func unwrap-func) "Wrap a GValue type using custom wrap and unwrap functions. FIXME: missing a wrapset argument! @var{ctype} and @var{gtype} are as @code{#:ctype} and @code{#:gtype-id} in @code{wrap-instance!}. @var{wrap-func } and @var{unwrap-func} are names of functions to convert to and from Scheme values, respectively. For example: @lisp (wrap-custom-gvalue! \"GstFraction\" \"GST_TYPE_FRACTION\" \"scm_from_gst_fraction\" \"scm_to_gst_fraction\") @end lisp" `(let ((t (make (@@ (gnome gw support gobject) ) #:ctype ,ctype #:gtype-id ,gtype #:c-type-name "GValue*" #:ffspec 'pointer #:wrapped "Custom" #:wrap-func ,wrap-func #:unwrap-func ,unwrap-func))) (add-type! ws t))) ;;; We override the generation of the scheme wrapper, because we want to ;;; avoid listing all exports of the module. See the lengthy comment in ;;; guile/g-wrap/guile-runtime.c in g-wrap for a rationale. (define-method (generate-wrapset (lang ) (wrapset ) (basename )) (define (register-generics-without-rti) (fold-functions (lambda (func rest) (cond ((and (not (uses-rti-for-function? wrapset func)) (generic-name func) (> (argument-count func) 0) (class-name (first (argument-types func)))) (cons `(%gw:procedure->method-public ,(name func) ;; Specializers ',(map (lambda (arg) (let ((typespec (typespec arg))) (and (not (memq 'unspecialized (options typespec))) (class-name (type typespec))))) (filter visible? (arguments func))) ',(generic-name func) ;; Required argument count ,(- (input-argument-count func) (optional-argument-count func)) ;; Optional arguments? ,(not (zero? (optional-argument-count func)))) rest)) (else rest))) '() wrapset)) ;; The next method is in (g-wrap guile), which will generate the scm ;; file. We overwrite it afterwards. (next-method) (if (module wrapset) (call-with-output-file/cleanup (string-append basename ".scm") (lambda (port) (define (++ . args) (apply string-append args)) (for-each (lambda (x) (display x port) (newline port)) '(";; Generated by G-Wrap: an experimental Guile C API-wrapper engine." ";; Customized by guile-gnome; see (gnome gw support g-wrap) for details.")) (for-each (lambda (x) (pretty-print x port)) (list `(define-module ,(module wrapset) #:use-module (oop goops) #:use-module (gnome gobject) #:use-module (gnome gw support modules) ,@(if (slot-ref wrapset 'shlib-abs?) '(#:use-module (g-wrap config)) '()) ,@(append-map (lambda (mod) `(#:use-module ,mod)) (filter-map module (wrapsets-depended-on wrapset)))) (let ((wrapset-name-c-sym (any-str->c-sym-str (symbol->string (name wrapset))))) `(eval-when (eval load compile) (load-extension ,(if (slot-ref wrapset 'shlib-abs?) `(string-append *g-wrap-shlib-dir* ,(slot-ref wrapset 'shlib-path)) (slot-ref wrapset 'shlib-path)) ,(++ "gw_init_wrapset_" wrapset-name-c-sym)))) ;; This is what we avoid: ;; `(export ',@(module-exports wrapset)) ;; Instead we do this lovely hack: `(export-all-lazy! ',(module-exports wrapset)) `(begin ,@(register-generics-without-rti)) `(if (defined? '%generics) (module-use! (module-public-interface (current-module)) (module-public-interface %generics))))))))) guile-gnome-platform-2.16.2/glib/gnome/gw/support/g-wrap.scm0000644000175000017500000000300511670374302024241 0ustar00wingowingo00000000000000;; guile-gnome ;; Copyright (C) 2005 Andy Wingo ;; This program is free software; you can redistribute it and/or ;; modify it under the terms of the GNU General Public License as ;; published by the Free Software Foundation; either version 2 of ;; the License, or (at your option) any later version. ;; ;; This program is distributed in the hope that it will be useful, ;; but WITHOUT ANY WARRANTY; without even the implied warranty of ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the ;; GNU General Public License for more details. ;; ;; You should have received a copy of the GNU General Public License ;; along with this program; if not, contact: ;; ;; Free Software Foundation Voice: +1-617-542-5942 ;; 59 Temple Place - Suite 330 Fax: +1-617-542-2652 ;; Boston, MA 02111-1307, USA gnu@gnu.org ;;; Commentary: ;; ;;G-Wrap compatibility layer, to ensure that all wrapsets have the right ;;generic functions defined. ;; ;;; Code: (define-module (gnome gw support g-wrap) #:use-module (g-wrap) #:use-module (g-wrap guile) #:use-module (g-wrap c-codegen) #:use-module (g-wrap scm-codegen) #:use-module (gnome gw support modules)) (re-export-modules (g-wrap) (g-wrap guile) (g-wrap c-codegen) (g-wrap scm-codegen)) guile-gnome-platform-2.16.2/glib/gnome/gw/support/genwrite.scm0000644000175000017500000002245011670374302024675 0ustar00wingowingo00000000000000;;"genwrite.scm" generic write used by pretty-print and truncated-print. ;; Copyright (c) 1991, Marc Feeley ;; Author: Marc Feeley (feeley@iro.umontreal.ca) ;; Distribution restrictions: none (define genwrite:newline-str (make-string 1 #\newline)) ;@ (define (generic-write obj display? width output) (define (read-macro? l) (define (length1? l) (and (pair? l) (null? (cdr l)))) (let ((head (car l)) (tail (cdr l))) (case head ((quote quasiquote unquote unquote-splicing) (length1? tail)) (else #f)))) (define (read-macro-body l) (cadr l)) (define (read-macro-prefix l) (let ((head (car l)) (tail (cdr l))) (case head ((quote) "'") ((quasiquote) "`") ((unquote) ",") ((unquote-splicing) ",@")))) (define (out str col) (and col (output str) (+ col (string-length str)))) (define (wr obj col) (define (wr-expr expr col) (if (read-macro? expr) (wr (read-macro-body expr) (out (read-macro-prefix expr) col)) (wr-lst expr col))) (define (wr-lst l col) (if (pair? l) (let loop ((l (cdr l)) (col (and col (wr (car l) (out "(" col))))) (cond ((not col) col) ((pair? l) (loop (cdr l) (wr (car l) (out " " col)))) ((null? l) (out ")" col)) (else (out ")" (wr l (out " . " col)))))) (out "()" col))) (cond ((pair? obj) (wr-expr obj col)) ((null? obj) (wr-lst obj col)) ((vector? obj) (wr-lst (vector->list obj) (out "#" col))) ((boolean? obj) (out (if obj "#t" "#f") col)) ((number? obj) (out (number->string obj) col)) ((symbol? obj) (out (symbol->string obj) col)) ((procedure? obj) (out "#[procedure]" col)) ((string? obj) (if display? (out obj col) (let loop ((i 0) (j 0) (col (out "\"" col))) (if (and col (< j (string-length obj))) (let ((c (string-ref obj j))) (if (or (char=? c #\\) (char=? c #\")) (loop j (+ j 1) (out "\\" (out (substring obj i j) col))) (loop i (+ j 1) col))) (out "\"" (out (substring obj i j) col)))))) ((char? obj) (if display? (out (make-string 1 obj) col) (out (case obj ((#\space) "space") ((#\newline) "newline") (else (make-string 1 obj))) (out "#\\" col)))) ((input-port? obj) (out "#[input-port]" col)) ((output-port? obj) (out "#[output-port]" col)) ((eof-object? obj) (out "#[eof-object]" col)) (else (out "#[unknown]" col)))) (define (pp obj col) (define (spaces n col) (if (> n 0) (if (> n 7) (spaces (- n 8) (out " " col)) (out (substring " " 0 n) col)) col)) (define (indent to col) (and col (if (< to col) (and (out genwrite:newline-str col) (spaces to 0)) (spaces (- to col) col)))) (define (pr obj col extra pp-pair) (if (or (pair? obj) (vector? obj)) ; may have to split on multiple lines (let ((result '()) (left (min (+ (- (- width col) extra) 1) max-expr-width))) (generic-write obj display? #f (lambda (str) (set! result (cons str result)) (set! left (- left (string-length str))) (> left 0))) (if (> left 0) ; all can be printed on one line (out (reverse-string-append result) col) (if (pair? obj) (pp-pair obj col extra) (pp-list (vector->list obj) (out "#" col) extra pp-expr)))) (wr obj col))) (define (pp-expr expr col extra) (if (read-macro? expr) (pr (read-macro-body expr) (out (read-macro-prefix expr) col) extra pp-expr) (let ((head (car expr))) (if (symbol? head) (let ((proc (style head))) (if proc (proc expr col extra) (if (> (string-length (symbol->string head)) max-call-head-width) (pp-general expr col extra #f #f #f pp-expr) (pp-call expr col extra pp-expr)))) (pp-list expr col extra pp-expr))))) ; (head item1 ; item2 ; item3) (define (pp-call expr col extra pp-item) (let ((col* (wr (car expr) (out "(" col)))) (and col (pp-down (cdr expr) col* (+ col* 1) extra pp-item)))) ; (item1 ; item2 ; item3) (define (pp-list l col extra pp-item) (let ((col (out "(" col))) (pp-down l col col extra pp-item))) (define (pp-down l col1 col2 extra pp-item) (let loop ((l l) (col col1)) (and col (cond ((pair? l) (let ((rest (cdr l))) (let ((extra (if (null? rest) (+ extra 1) 0))) (loop rest (pr (car l) (indent col2 col) extra pp-item))))) ((null? l) (out ")" col)) (else (out ")" (pr l (indent col2 (out "." (indent col2 col))) (+ extra 1) pp-item))))))) (define (pp-general expr col extra named? pp-1 pp-2 pp-3) (define (tail1 rest col1 col2 col3) (if (and pp-1 (pair? rest)) (let* ((val1 (car rest)) (rest (cdr rest)) (extra (if (null? rest) (+ extra 1) 0))) (tail2 rest col1 (pr val1 (indent col3 col2) extra pp-1) col3)) (tail2 rest col1 col2 col3))) (define (tail2 rest col1 col2 col3) (if (and pp-2 (pair? rest)) (let* ((val1 (car rest)) (rest (cdr rest)) (extra (if (null? rest) (+ extra 1) 0))) (tail3 rest col1 (pr val1 (indent col3 col2) extra pp-2))) (tail3 rest col1 col2))) (define (tail3 rest col1 col2) (pp-down rest col2 col1 extra pp-3)) (let* ((head (car expr)) (rest (cdr expr)) (col* (wr head (out "(" col)))) (if (and named? (pair? rest)) (let* ((name (car rest)) (rest (cdr rest)) (col** (wr name (out " " col*)))) (tail1 rest (+ col indent-general) col** (+ col** 1))) (tail1 rest (+ col indent-general) col* (+ col* 1))))) (define (pp-expr-list l col extra) (pp-list l col extra pp-expr)) (define (pp-LAMBDA expr col extra) (pp-general expr col extra #f pp-expr-list #f pp-expr)) (define (pp-IF expr col extra) (pp-general expr col extra #f pp-expr #f pp-expr)) (define (pp-COND expr col extra) (pp-call expr col extra pp-expr-list)) (define (pp-CASE expr col extra) (pp-general expr col extra #f pp-expr #f pp-expr-list)) (define (pp-AND expr col extra) (pp-call expr col extra pp-expr)) (define (pp-LET expr col extra) (let* ((rest (cdr expr)) (named? (and (pair? rest) (symbol? (car rest))))) (pp-general expr col extra named? pp-expr-list #f pp-expr))) (define (pp-BEGIN expr col extra) (pp-general expr col extra #f #f #f pp-expr)) (define (pp-DO expr col extra) (pp-general expr col extra #f pp-expr-list pp-expr-list pp-expr)) ; define formatting style (change these to suit your style) (define indent-general 2) (define max-call-head-width 5) (define max-expr-width 50) (define (style head) (case head ((lambda let* letrec define) pp-LAMBDA) ((if set!) pp-IF) ((cond) pp-COND) ((case) pp-CASE) ((and or) pp-AND) ((let) pp-LET) ((begin) pp-BEGIN) ((do) pp-DO) (else #f))) (pr obj col 0 pp-expr)) (if width (out genwrite:newline-str (pp obj 0)) (wr obj 0))) ; (reverse-string-append l) = (apply string-append (reverse l)) ;@ (define (reverse-string-append l) (define (rev-string-append l i) (if (pair? l) (let* ((str (car l)) (len (string-length str)) (result (rev-string-append (cdr l) (+ i len)))) (let loop ((j 0) (k (- (- (string-length result) i) len))) (if (< j len) (begin (string-set! result k (string-ref str j)) (loop (+ j 1) (+ k 1))) result))) (make-string i))) (rev-string-append l 0)) guile-gnome-platform-2.16.2/glib/gnome/gw/support/slib.scm0000644000175000017500000000315211670374302024000 0ustar00wingowingo00000000000000;; guile-gnome ;; Copyright (C) 2005, 2009 Andy Wingo ;; This program is free software; you can redistribute it and/or ;; modify it under the terms of the GNU General Public License as ;; published by the Free Software Foundation; either version 2 of ;; the License, or (at your option) any later version. ;; ;; This program is distributed in the hope that it will be useful, ;; but WITHOUT ANY WARRANTY; without even the implied warranty of ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the ;; GNU General Public License for more details. ;; ;; You should have received a copy of the GNU General Public License ;; along with this program; if not, contact: ;; ;; Free Software Foundation Voice: +1-617-542-5942 ;; 59 Temple Place - Suite 330 Fax: +1-617-542-2652 ;; Boston, MA 02111-1307, USA gnu@gnu.org ;;; Commentary: ;; ;;Code pulled in from Aubrey Jaffer's SLIB. ;; ;;; Code: (define-module (gnome gw support slib) #:export (printf glob:make-matcher)) (define slib:error error) (define slib:tab #\tab) (define slib:form-feed #\page) (define (require feature) #f) ; noop (define (require-if condition feature) #f) ; noop (cond-expand (guile-2 (include-from-path "gnome/gw/support/glob.scm") (include-from-path "gnome/gw/support/genwrite.scm") (include-from-path "gnome/gw/support/printf.scm")) (else (load "glob.scm") (load "genwrite.scm") (load "printf.scm"))) guile-gnome-platform-2.16.2/glib/gnome/gw/support/Makefile.am0000644000175000017500000000033411670374302024376 0ustar00wingowingo00000000000000include $(top_srcdir)/common.mk supportdir = $(guilegwmoduledir)/support support_DATA = g-wrap.scm defs.scm gobject.scm modules.scm \ slib.scm genwrite.scm printf.scm glob.scm gtk-doc.scm EXTRA_DIST = $(support_DATA) guile-gnome-platform-2.16.2/glib/gnome/gw/support/Makefile.in0000644000175000017500000004137711752520657024432 0ustar00wingowingo00000000000000# Makefile.in generated by automake 1.11.5 from Makefile.am. # @configure_input@ # Copyright (C) 1994, 1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, # 2003, 2004, 2005, 2006, 2007, 2008, 2009, 2010, 2011 Free Software # Foundation, Inc. # This Makefile.in is free software; the Free Software Foundation # gives unlimited permission to copy and/or distribute it, # with or without modifications, as long as this notice is preserved. # This program is distributed in the hope that it will be useful, # but WITHOUT ANY WARRANTY, to the extent permitted by law; without # even the implied warranty of MERCHANTABILITY or FITNESS FOR A # PARTICULAR PURPOSE. @SET_MAKE@ # guile-gnome # Copyright (C) 2003,2004,2009,2012 Free Software Foundation, Inc. # This program is free software; you can redistribute it and/or # modify it under the terms of the GNU General Public License as # published by the Free Software Foundation; either version 2 of # the License, or (at your option) any later version. # This program is distributed in the hope that it will be useful, # but WITHOUT ANY WARRANTY; without even the implied warranty of # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the # GNU General Public License for more details. # You should have received a copy of the GNU General Public License # along with this program; if not, contact: # Free Software Foundation Voice: +1-617-542-5942 # 59 Temple Place - Suite 330 Fax: +1-617-542-2652 # Boston, MA 02111-1307, USA gnu@gnu.org # # Makefile snippet # VPATH = @srcdir@ am__make_dryrun = \ { \ am__dry=no; \ case $$MAKEFLAGS in \ *\\[\ \ ]*) \ echo 'am--echo: ; @echo "AM" OK' | $(MAKE) -f - 2>/dev/null \ | grep '^AM OK$$' >/dev/null || am__dry=yes;; \ *) \ for am__flg in $$MAKEFLAGS; do \ case $$am__flg in \ *=*|--*) ;; \ *n*) am__dry=yes; break;; \ esac; \ done;; \ esac; \ test $$am__dry = yes; \ } pkgdatadir = $(datadir)/@PACKAGE@ pkgincludedir = $(includedir)/@PACKAGE@ pkglibdir = $(libdir)/@PACKAGE@ pkglibexecdir = $(libexecdir)/@PACKAGE@ am__cd = CDPATH="$${ZSH_VERSION+.}$(PATH_SEPARATOR)" && cd install_sh_DATA = $(install_sh) -c -m 644 install_sh_PROGRAM = $(install_sh) -c install_sh_SCRIPT = $(install_sh) -c INSTALL_HEADER = $(INSTALL_DATA) transform = $(program_transform_name) NORMAL_INSTALL = : PRE_INSTALL = : POST_INSTALL = : NORMAL_UNINSTALL = : PRE_UNINSTALL = : POST_UNINSTALL = : build_triplet = @build@ host_triplet = @host@ DIST_COMMON = $(srcdir)/Makefile.am $(srcdir)/Makefile.in \ $(top_srcdir)/common.mk subdir = glib/gnome/gw/support ACLOCAL_M4 = $(top_srcdir)/aclocal.m4 am__aclocal_m4_deps = $(top_srcdir)/configure.ac am__configure_deps = $(am__aclocal_m4_deps) $(CONFIGURE_DEPENDENCIES) \ $(ACLOCAL_M4) mkinstalldirs = $(install_sh) -d CONFIG_HEADER = $(top_builddir)/config.h CONFIG_CLEAN_FILES = CONFIG_CLEAN_VPATH_FILES = SOURCES = DIST_SOURCES = am__can_run_installinfo = \ case $$AM_UPDATE_INFO_DIR in \ n|no|NO) false;; \ *) (install-info --version) >/dev/null 2>&1;; \ esac am__vpath_adj_setup = srcdirstrip=`echo "$(srcdir)" | sed 's|.|.|g'`; am__vpath_adj = case $$p in \ $(srcdir)/*) f=`echo "$$p" | sed "s|^$$srcdirstrip/||"`;; \ *) f=$$p;; \ esac; am__strip_dir = f=`echo $$p | sed -e 's|^.*/||'`; am__install_max = 40 am__nobase_strip_setup = \ srcdirstrip=`echo "$(srcdir)" | sed 's/[].[^$$\\*|]/\\\\&/g'` am__nobase_strip = \ for p in $$list; do echo "$$p"; done | sed -e "s|$$srcdirstrip/||" am__nobase_list = $(am__nobase_strip_setup); \ for p in $$list; do echo "$$p $$p"; done | \ sed "s| $$srcdirstrip/| |;"' / .*\//!s/ .*/ ./; s,\( .*\)/[^/]*$$,\1,' | \ $(AWK) 'BEGIN { files["."] = "" } { files[$$2] = files[$$2] " " $$1; \ if (++n[$$2] == $(am__install_max)) \ { print $$2, files[$$2]; n[$$2] = 0; files[$$2] = "" } } \ END { for (dir in files) print dir, files[dir] }' am__base_list = \ sed '$$!N;$$!N;$$!N;$$!N;$$!N;$$!N;$$!N;s/\n/ /g' | \ sed '$$!N;$$!N;$$!N;$$!N;s/\n/ /g' am__uninstall_files_from_dir = { \ test -z "$$files" \ || { test ! -d "$$dir" && test ! -f "$$dir" && test ! -r "$$dir"; } \ || { echo " ( cd '$$dir' && rm -f" $$files ")"; \ $(am__cd) "$$dir" && rm -f $$files; }; \ } am__installdirs = "$(DESTDIR)$(supportdir)" DATA = $(support_DATA) DISTFILES = $(DIST_COMMON) $(DIST_SOURCES) $(TEXINFOS) $(EXTRA_DIST) ACLOCAL = @ACLOCAL@ AG_PKG_CONFIG_PATH = @AG_PKG_CONFIG_PATH@ AMTAR = @AMTAR@ API_VERSION = @API_VERSION@ AR = @AR@ ATK_CFLAGS = @ATK_CFLAGS@ ATK_LIBS = @ATK_LIBS@ AUTOCONF = @AUTOCONF@ AUTOHEADER = @AUTOHEADER@ AUTOMAKE = @AUTOMAKE@ AWK = @AWK@ BONOBO_IDL_DIR = @BONOBO_IDL_DIR@ CANVAS_CFLAGS = @CANVAS_CFLAGS@ CANVAS_LIBS = @CANVAS_LIBS@ CC = @CC@ CCDEPMODE = @CCDEPMODE@ CFLAGS = @CFLAGS@ CORBA_CFLAGS = @CORBA_CFLAGS@ CORBA_LIBS = @CORBA_LIBS@ CPP = @CPP@ CPPFLAGS = @CPPFLAGS@ CYGPATH_W = @CYGPATH_W@ DEFS = @DEFS@ DEPDIR = @DEPDIR@ DLLTOOL = @DLLTOOL@ DSYMUTIL = @DSYMUTIL@ DUMPBIN = @DUMPBIN@ ECHO_C = @ECHO_C@ ECHO_N = @ECHO_N@ ECHO_T = @ECHO_T@ EGREP = @EGREP@ EXEEXT = @EXEEXT@ FGREP = @FGREP@ GCONF_CFLAGS = @GCONF_CFLAGS@ GCONF_LIBS = @GCONF_LIBS@ GDK_CFLAGS = @GDK_CFLAGS@ GDK_LIBS = @GDK_LIBS@ GDK_PIXBUF_CFLAGS = @GDK_PIXBUF_CFLAGS@ GDK_PIXBUF_LIBS = @GDK_PIXBUF_LIBS@ GLIB_CFLAGS = @GLIB_CFLAGS@ GLIB_LIBS = @GLIB_LIBS@ GNOMEUI_DEPRECATION_FLAGS = @GNOMEUI_DEPRECATION_FLAGS@ GNOME_VFS_CFLAGS = @GNOME_VFS_CFLAGS@ GNOME_VFS_DEPRECATED_CFLAGS = @GNOME_VFS_DEPRECATED_CFLAGS@ GNOME_VFS_LIBS = @GNOME_VFS_LIBS@ GOBJECT_CFLAGS = @GOBJECT_CFLAGS@ GOBJECT_LIBS = @GOBJECT_LIBS@ GREP = @GREP@ GTHREAD_CFLAGS = @GTHREAD_CFLAGS@ GTHREAD_LIBS = @GTHREAD_LIBS@ GTK_CFLAGS = @GTK_CFLAGS@ GTK_DEPRECATED_CFLAGS = @GTK_DEPRECATED_CFLAGS@ GTK_LIBS = @GTK_LIBS@ GUILE_CAIRO_CFLAGS = @GUILE_CAIRO_CFLAGS@ GUILE_CAIRO_LIBS = @GUILE_CAIRO_LIBS@ GUILE_CFLAGS = @GUILE_CFLAGS@ GUILE_EFFECTIVE_VERSION = @GUILE_EFFECTIVE_VERSION@ GUILE_GLIB_CFLAGS = @GUILE_GLIB_CFLAGS@ GUILE_GLIB_LIBS = @GUILE_GLIB_LIBS@ GUILE_LIBS = @GUILE_LIBS@ G_WRAP_CFLAGS = @G_WRAP_CFLAGS@ G_WRAP_LIBS = @G_WRAP_LIBS@ G_WRAP_LIB_DIR = @G_WRAP_LIB_DIR@ G_WRAP_MODULE_DIR = @G_WRAP_MODULE_DIR@ INSTALL = @INSTALL@ INSTALL_DATA = @INSTALL_DATA@ INSTALL_PROGRAM = @INSTALL_PROGRAM@ INSTALL_SCRIPT = @INSTALL_SCRIPT@ INSTALL_STRIP_PROGRAM = @INSTALL_STRIP_PROGRAM@ LD = @LD@ LDFLAGS = @LDFLAGS@ LIBGLADE_CFLAGS = @LIBGLADE_CFLAGS@ LIBGLADE_LIBS = @LIBGLADE_LIBS@ LIBGNOMEUI_CFLAGS = @LIBGNOMEUI_CFLAGS@ LIBGNOMEUI_LIBS = @LIBGNOMEUI_LIBS@ LIBGNOME_CFLAGS = @LIBGNOME_CFLAGS@ LIBGNOME_LIBS = @LIBGNOME_LIBS@ LIBOBJS = @LIBOBJS@ LIBS = @LIBS@ LIBTOOL = @LIBTOOL@ LIPO = @LIPO@ LN_S = @LN_S@ LTLIBOBJS = @LTLIBOBJS@ MAKEINFO = @MAKEINFO@ MANIFEST_TOOL = @MANIFEST_TOOL@ MKDIR_P = @MKDIR_P@ NM = @NM@ NMEDIT = @NMEDIT@ OBJDUMP = @OBJDUMP@ OBJEXT = @OBJEXT@ ORBIT_IDL = @ORBIT_IDL@ OTOOL = @OTOOL@ OTOOL64 = @OTOOL64@ PACKAGE = @PACKAGE@ PACKAGE_BUGREPORT = @PACKAGE_BUGREPORT@ PACKAGE_NAME = @PACKAGE_NAME@ PACKAGE_STRING = @PACKAGE_STRING@ PACKAGE_TARNAME = @PACKAGE_TARNAME@ PACKAGE_URL = @PACKAGE_URL@ PACKAGE_VERSION = @PACKAGE_VERSION@ PANGOCAIRO_CFLAGS = @PANGOCAIRO_CFLAGS@ PANGOCAIRO_LIBS = @PANGOCAIRO_LIBS@ PANGO_CFLAGS = @PANGO_CFLAGS@ PANGO_LIBS = @PANGO_LIBS@ PATH_SEPARATOR = @PATH_SEPARATOR@ PKG_CONFIG = @PKG_CONFIG@ PKG_CONFIG_LIBDIR = @PKG_CONFIG_LIBDIR@ PKG_CONFIG_PATH = @PKG_CONFIG_PATH@ RANLIB = @RANLIB@ SED = @SED@ SET_MAKE = @SET_MAKE@ SHELL = @SHELL@ STRIP = @STRIP@ VERSION = @VERSION@ WARN_CFLAGS = @WARN_CFLAGS@ abs_builddir = @abs_builddir@ abs_srcdir = @abs_srcdir@ abs_top_builddir = @abs_top_builddir@ abs_top_srcdir = @abs_top_srcdir@ ac_ct_AR = @ac_ct_AR@ ac_ct_CC = @ac_ct_CC@ ac_ct_DUMPBIN = @ac_ct_DUMPBIN@ am__include = @am__include@ am__leading_dot = @am__leading_dot@ am__quote = @am__quote@ am__tar = @am__tar@ am__untar = @am__untar@ bindir = @bindir@ build = @build@ build_alias = @build_alias@ build_cpu = @build_cpu@ build_os = @build_os@ build_vendor = @build_vendor@ builddir = @builddir@ datadir = @datadir@ datarootdir = @datarootdir@ docdir = @docdir@ dvidir = @dvidir@ exec_prefix = @exec_prefix@ host = @host@ host_alias = @host_alias@ host_cpu = @host_cpu@ host_os = @host_os@ host_vendor = @host_vendor@ htmldir = @htmldir@ includedir = @includedir@ infodir = @infodir@ install_sh = @install_sh@ libdir = @libdir@ libexecdir = @libexecdir@ localedir = @localedir@ localstatedir = @localstatedir@ mandir = @mandir@ mkdir_p = @mkdir_p@ oldincludedir = @oldincludedir@ pdfdir = @pdfdir@ prefix = @prefix@ program_transform_name = @program_transform_name@ psdir = @psdir@ sbindir = @sbindir@ sharedstatedir = @sharedstatedir@ srcdir = @srcdir@ sysconfdir = @sysconfdir@ target_alias = @target_alias@ top_build_prefix = @top_build_prefix@ top_builddir = @top_builddir@ top_srcdir = @top_srcdir@ guilegnomedir = $(datadir)/guile-gnome-@API_VERSION@ guilemoduledir = $(guilegnomedir)/gnome guilegwmoduledir = $(guilegnomedir)/gnome/gw guilegnomelibdir = $(libdir)/guile-gnome-@API_VERSION@ AM_CFLAGS = -I. -I$(srcdir) $(WARN_CFLAGS) $(DEBUG_CFLAGS) # For overriding from the command line (e.g. --debug) GUILE_FLAGS = SUFFIXES = .x .doc GUILE_SNARF_CFLAGS = $(DEFS) $(AM_CFLAGS) $(GUILE_CFLAGS) $(G_WRAP_CFLAGS) PACKAGES = atk cairo corba defs gconf glib gnome-vfs gtk libglade libgnome libgnomecanvas libgnomeui pango SOURCE_GUILE_PATH = $(shell echo $(addprefix $(top_srcdir)/,$(PACKAGES)) | sed -e 's/ /:/g'):$(srcdir) BUILD_GUILE_PATH = $(if $(filter-out $(top_srcdir),$(top_builddir)),$(shell echo -n $(addprefix $(top_builddir)/,$(PACKAGES)): | sed -e 's/ /:/g'),) GUILE_LOAD_PATH := $(BUILD_GUILE_PATH)$(SOURCE_GUILE_PATH):${G_WRAP_MODULE_DIR}:${GUILE_LOAD_PATH} # Real gnu make foo packages = $(filter-out %-uninstalled,$(patsubst %.pc.in,%,$(notdir $(wildcard $(srcdir)/*.pc.in)))) pcifiles = $(patsubst %,%-@API_VERSION@.pc,$(packages)) pcufiles = $(patsubst %,%-@API_VERSION@-uninstalled.pc,$(packages)) supportdir = $(guilegwmoduledir)/support support_DATA = g-wrap.scm defs.scm gobject.scm modules.scm \ slib.scm genwrite.scm printf.scm glob.scm gtk-doc.scm EXTRA_DIST = $(support_DATA) all: all-am .SUFFIXES: .SUFFIXES: .x .doc .c $(srcdir)/Makefile.in: $(srcdir)/Makefile.am $(top_srcdir)/common.mk $(am__configure_deps) @for dep in $?; do \ case '$(am__configure_deps)' in \ *$$dep*) \ ( cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh ) \ && { if test -f $@; then exit 0; else break; fi; }; \ exit 1;; \ esac; \ done; \ echo ' cd $(top_srcdir) && $(AUTOMAKE) --gnu glib/gnome/gw/support/Makefile'; \ $(am__cd) $(top_srcdir) && \ $(AUTOMAKE) --gnu glib/gnome/gw/support/Makefile .PRECIOUS: Makefile Makefile: $(srcdir)/Makefile.in $(top_builddir)/config.status @case '$?' in \ *config.status*) \ cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh;; \ *) \ echo ' cd $(top_builddir) && $(SHELL) ./config.status $(subdir)/$@ $(am__depfiles_maybe)'; \ cd $(top_builddir) && $(SHELL) ./config.status $(subdir)/$@ $(am__depfiles_maybe);; \ esac; $(top_srcdir)/common.mk: $(top_builddir)/config.status: $(top_srcdir)/configure $(CONFIG_STATUS_DEPENDENCIES) cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh $(top_srcdir)/configure: $(am__configure_deps) cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh $(ACLOCAL_M4): $(am__aclocal_m4_deps) cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh $(am__aclocal_m4_deps): mostlyclean-libtool: -rm -f *.lo clean-libtool: -rm -rf .libs _libs install-supportDATA: $(support_DATA) @$(NORMAL_INSTALL) @list='$(support_DATA)'; test -n "$(supportdir)" || list=; \ if test -n "$$list"; then \ echo " $(MKDIR_P) '$(DESTDIR)$(supportdir)'"; \ $(MKDIR_P) "$(DESTDIR)$(supportdir)" || exit 1; \ fi; \ for p in $$list; do \ if test -f "$$p"; then d=; else d="$(srcdir)/"; fi; \ echo "$$d$$p"; \ done | $(am__base_list) | \ while read files; do \ echo " $(INSTALL_DATA) $$files '$(DESTDIR)$(supportdir)'"; \ $(INSTALL_DATA) $$files "$(DESTDIR)$(supportdir)" || exit $$?; \ done uninstall-supportDATA: @$(NORMAL_UNINSTALL) @list='$(support_DATA)'; test -n "$(supportdir)" || list=; \ files=`for p in $$list; do echo $$p; done | sed -e 's|^.*/||'`; \ dir='$(DESTDIR)$(supportdir)'; $(am__uninstall_files_from_dir) tags: TAGS TAGS: ctags: CTAGS CTAGS: distdir: $(DISTFILES) @srcdirstrip=`echo "$(srcdir)" | sed 's/[].[^$$\\*]/\\\\&/g'`; \ topsrcdirstrip=`echo "$(top_srcdir)" | sed 's/[].[^$$\\*]/\\\\&/g'`; \ list='$(DISTFILES)'; \ dist_files=`for file in $$list; do echo $$file; done | \ sed -e "s|^$$srcdirstrip/||;t" \ -e "s|^$$topsrcdirstrip/|$(top_builddir)/|;t"`; \ case $$dist_files in \ */*) $(MKDIR_P) `echo "$$dist_files" | \ sed '/\//!d;s|^|$(distdir)/|;s,/[^/]*$$,,' | \ sort -u` ;; \ esac; \ for file in $$dist_files; do \ if test -f $$file || test -d $$file; then d=.; else d=$(srcdir); fi; \ if test -d $$d/$$file; then \ dir=`echo "/$$file" | sed -e 's,/[^/]*$$,,'`; \ if test -d "$(distdir)/$$file"; then \ find "$(distdir)/$$file" -type d ! -perm -700 -exec chmod u+rwx {} \;; \ fi; \ if test -d $(srcdir)/$$file && test $$d != $(srcdir); then \ cp -fpR $(srcdir)/$$file "$(distdir)$$dir" || exit 1; \ find "$(distdir)/$$file" -type d ! -perm -700 -exec chmod u+rwx {} \;; \ fi; \ cp -fpR $$d/$$file "$(distdir)$$dir" || exit 1; \ else \ test -f "$(distdir)/$$file" \ || cp -p $$d/$$file "$(distdir)/$$file" \ || exit 1; \ fi; \ done check-am: all-am check: check-am all-am: Makefile $(DATA) installdirs: for dir in "$(DESTDIR)$(supportdir)"; do \ test -z "$$dir" || $(MKDIR_P) "$$dir"; \ done install: install-am install-exec: install-exec-am install-data: install-data-am uninstall: uninstall-am install-am: all-am @$(MAKE) $(AM_MAKEFLAGS) install-exec-am install-data-am installcheck: installcheck-am install-strip: if test -z '$(STRIP)'; then \ $(MAKE) $(AM_MAKEFLAGS) INSTALL_PROGRAM="$(INSTALL_STRIP_PROGRAM)" \ install_sh_PROGRAM="$(INSTALL_STRIP_PROGRAM)" INSTALL_STRIP_FLAG=-s \ install; \ else \ $(MAKE) $(AM_MAKEFLAGS) INSTALL_PROGRAM="$(INSTALL_STRIP_PROGRAM)" \ install_sh_PROGRAM="$(INSTALL_STRIP_PROGRAM)" INSTALL_STRIP_FLAG=-s \ "INSTALL_PROGRAM_ENV=STRIPPROG='$(STRIP)'" install; \ fi mostlyclean-generic: clean-generic: distclean-generic: -test -z "$(CONFIG_CLEAN_FILES)" || rm -f $(CONFIG_CLEAN_FILES) -test . = "$(srcdir)" || test -z "$(CONFIG_CLEAN_VPATH_FILES)" || rm -f $(CONFIG_CLEAN_VPATH_FILES) maintainer-clean-generic: @echo "This command is intended for maintainers to use" @echo "it deletes files that may require special tools to rebuild." clean: clean-am clean-am: clean-generic clean-libtool mostlyclean-am distclean: distclean-am -rm -f Makefile distclean-am: clean-am distclean-generic dvi: dvi-am dvi-am: html: html-am html-am: info: info-am info-am: install-data-am: install-supportDATA install-dvi: install-dvi-am install-dvi-am: install-exec-am: install-html: install-html-am install-html-am: install-info: install-info-am install-info-am: install-man: install-pdf: install-pdf-am install-pdf-am: install-ps: install-ps-am install-ps-am: installcheck-am: maintainer-clean: maintainer-clean-am -rm -f Makefile maintainer-clean-am: distclean-am maintainer-clean-generic mostlyclean: mostlyclean-am mostlyclean-am: mostlyclean-generic mostlyclean-libtool pdf: pdf-am pdf-am: ps: ps-am ps-am: uninstall-am: uninstall-supportDATA .MAKE: install-am install-strip .PHONY: all all-am check check-am clean clean-generic clean-libtool \ distclean distclean-generic distclean-libtool distdir dvi \ dvi-am html html-am info info-am install install-am \ install-data install-data-am install-dvi install-dvi-am \ install-exec install-exec-am install-html install-html-am \ install-info install-info-am install-man install-pdf \ install-pdf-am install-ps install-ps-am install-strip \ install-supportDATA installcheck installcheck-am installdirs \ maintainer-clean maintainer-clean-generic mostlyclean \ mostlyclean-generic mostlyclean-libtool pdf pdf-am ps ps-am \ uninstall uninstall-am uninstall-supportDATA export GUILE_LOAD_PATH .c.x: guile-snarf $(GUILE_SNARF_CFLAGS) $< > $@ \ || { rm $@; false; } .c.doc: $(CPP) -DSCM_MAGIC_SNARF_DOCS $(GUILE_SNARF_CFLAGS) $< \ | grep -E '(\^\^ {|\^\^ })' > $@ || { rm $@; false; } %.scm guile-gnome-gw-%.c: %-spec.scm guile $(GUILE_FLAGS) -c \ "(debug-set! stack 400000) \ (use-modules (gnome-@API_VERSION@)) \ (use-modules (g-wrap)) \ (use-modules (gnome gw $*-spec)) \ (generate-wrapset 'guile 'gnome-$* \"guile-gnome-gw-$*\")" mv guile-gnome-gw-$*.scm $*.scm %-@API_VERSION@.pc: %.pc cp $< $@ %-@API_VERSION@-uninstalled.pc: %-uninstalled.pc cp $< $@ # Tell versions [3.59,3.63) of GNU make to not export all variables. # Otherwise a system limit (for SysV at least) may be exceeded. .NOEXPORT: guile-gnome-platform-2.16.2/glib/gnome/gw/support/modules.scm0000644000175000017500000001120111671506666024524 0ustar00wingowingo00000000000000;; guile-gnome ;; Copyright (C) 2003,2004,2009,2011 Andy Wingo ;; This program is free software; you can redistribute it and/or ;; modify it under the terms of the GNU General Public License as ;; published by the Free Software Foundation; either version 2 of ;; the License, or (at your option) any later version. ;; ;; This program is distributed in the hope that it will be useful, ;; but WITHOUT ANY WARRANTY; without even the implied warranty of ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the ;; GNU General Public License for more details. ;; ;; You should have received a copy of the GNU General Public License ;; along with this program; if not, contact: ;; ;; Free Software Foundation Voice: +1-617-542-5942 ;; 59 Temple Place - Suite 330 Fax: +1-617-542-2652 ;; Boston, MA 02111-1307, USA gnu@gnu.org ;;; Commentary: ;; ;; @c ;; ;; Support routines for automatically-generated scheme G-Wrap modules. ;; ;;; Code: (define-module (gnome gw support modules) #:export-syntax (re-export-modules) #:export (export-all-lazy!)) (cond-expand (guile-2) (else (define-macro (eval-when conditions . forms) (if (or (memq 'eval conditions) (memq 'load conditions)) `(begin . ,forms) '(begin))) (export eval-when))) (define (force-bindings module) (cond ((and (eq? (module-kind module) 'interface) (module-binder module)) (force-bindings (resolve-module (module-name module)))) ((module-variable module '%gw-latent-variables-hash) => (lambda (var) (for-each (lambda (k) (module-variable (module-public-interface module) k)) ;; copy list of syms because the module binder mutates the hash (hash-map->list (lambda (k v) k) (variable-ref var))))) (else (for-each force-bindings (module-uses module))))) (and=> (and (not (batch-mode?)) (module-variable (resolve-module '(ice-9 session)) 'apropos-hook)) (lambda (v) (add-hook! (variable-ref v) (lambda (mod pat) (force-bindings mod))))) (define-macro (re-export-modules . args) "Re-export the public interface of a module; used like @code{use-modules}." (if (null? args) '(if #f #f) `(begin ,@(map (lambda (mod) (or (list? mod) (error "Invalid module specification" mod)) `(module-use! (module-public-interface (current-module)) (resolve-interface ',mod))) args)))) (define (export-all-lazy! symbols) "Export the @var{symbols} from the current module. Most generic functions and classes that G-Wrap defines are bound lazily, as needed in evaluation. This is done by placing module binder procedures on the generated modules. However, if we export all symbols by name, this will force the binding eagerly for all values, which is slow. This procedure exports all bindings named in @var{symbols} that are already bound in the current module, and then installs a module binder procedure on the public interface, which allows lazy binding to work." (define (symbol-in? s exp) (if (pair? exp) (let lp ((exp exp)) (if (null? exp) #f (or (symbol-in? s (car exp)) (lp (cdr exp))))) (eq? s exp))) (let ((mod (current-module))) (cond ((and=> (procedure-source module-make-local-var!) (lambda (exp) (symbol-in? 'module-variable exp))) ;; We have a broken module-make-local-var!; allowing lazy bindings ;; by making the public interface use the module will make things ;; really really slow. Settle on merely slow, forcing creation of ;; all classes (module-export! mod symbols)) (else ;; We have a sensible module-make-local-var!; export the ;; already-bound variables, and install a module binder in the ;; interface to lazily bind the rest. (let ((obarray (module-obarray mod))) (module-export! mod (filter (lambda (s) (hashq-ref obarray s)) symbols))) (set-module-binder! (module-public-interface mod) (lambda (interface sym define?) (and (memq sym symbols) (let ((var (module-local-variable mod sym))) (if var (module-add! interface sym var)) var)))))))) guile-gnome-platform-2.16.2/glib/gnome/gw/support/glob.scm0000644000175000017500000002644011670374302023777 0ustar00wingowingo00000000000000;;; "glob.scm" String matching for filenames (a la BASH). ;;; Copyright (C) 1998 Radey Shouman. ; ;Permission to copy this software, to modify it, to redistribute it, ;to distribute modified versions, and to use it for any purpose is ;granted, subject to the following restrictions and understandings. ; ;1. Any copy made of this software must include this copyright notice ;in full. ; ;2. I have made no warranty or representation that the operation of ;this software will be error-free, and I am under no obligation to ;provide any services, by way of maintenance, update, or otherwise. ; ;3. In conjunction with products arising from the use of this ;material, there shall be no use of my name in any advertising, ;promotional, or sales literature without prior written consent in ;each case. ;;@code{(require 'filename)} or @code{(require 'glob)} ;;@ftindex filename ;;@ftindex glob (define (glob:pattern->tokens pat) (cond ((string? pat) (let loop ((i 0) (toks '())) (if (>= i (string-length pat)) (reverse toks) (let ((pch (string-ref pat i))) (case pch ((#\? #\*) (loop (+ i 1) (cons (substring pat i (+ i 1)) toks))) ((#\[) (let ((j (let search ((j (+ i 2))) (cond ((>= j (string-length pat)) (slib:error 'glob:make-matcher "unmatched [" pat)) ((char=? #\] (string-ref pat j)) (if (and (< (+ j 1) (string-length pat)) (char=? #\] (string-ref pat (+ j 1)))) (+ j 1) j)) (else (search (+ j 1))))))) (loop (+ j 1) (cons (substring pat i (+ j 1)) toks)))) (else (let search ((j (+ i 1))) (cond ((= j (string-length pat)) (loop j (cons (substring pat i j) toks))) ((memv (string-ref pat j) '(#\? #\* #\[)) (loop j (cons (substring pat i j) toks))) (else (search (+ j 1))))))))))) ((pair? pat) (for-each (lambda (elt) (or (string? elt) (slib:error 'glob:pattern->tokens "bad pattern" pat))) pat) pat) (else (slib:error 'glob:pattern->tokens "bad pattern" pat)))) (define (glob:make-matcher pat ch=? ch<=?) (define (match-end str k kmatch) (and (= k (string-length str)) (reverse (cons k kmatch)))) (define (match-str pstr nxt) (let ((plen (string-length pstr))) (lambda (str k kmatch) (and (<= (+ k plen) (string-length str)) (let loop ((i 0)) (cond ((= i plen) (nxt str (+ k plen) (cons k kmatch))) ((ch=? (string-ref pstr i) (string-ref str (+ k i))) (loop (+ i 1))) (else #f))))))) (define (match-? nxt) (lambda (str k kmatch) (and (< k (string-length str)) (nxt str (+ k 1) (cons k kmatch))))) (define (match-set1 chrs) (let recur ((i 0)) (cond ((= i (string-length chrs)) (lambda (ch) #f)) ((and (< (+ i 2) (string-length chrs)) (char=? #\- (string-ref chrs (+ i 1)))) (let ((nxt (recur (+ i 3)))) (lambda (ch) (or (and (ch<=? ch (string-ref chrs (+ i 2))) (ch<=? (string-ref chrs i) ch)) (nxt ch))))) (else (let ((nxt (recur (+ i 1))) (chrsi (string-ref chrs i))) (lambda (ch) (or (ch=? chrsi ch) (nxt ch)))))))) (define (match-set tok nxt) (let ((chrs (substring tok 1 (- (string-length tok) 1)))) (if (and (positive? (string-length chrs)) (memv (string-ref chrs 0) '(#\^ #\!))) (let ((pred (match-set1 (substring chrs 1 (string-length chrs))))) (lambda (str k kmatch) (and (< k (string-length str)) (not (pred (string-ref str k))) (nxt str (+ k 1) (cons k kmatch))))) (let ((pred (match-set1 chrs))) (lambda (str k kmatch) (and (< k (string-length str)) (pred (string-ref str k)) (nxt str (+ k 1) (cons k kmatch)))))))) (define (match-* nxt) (lambda (str k kmatch) (let ((kmatch (cons k kmatch))) (let loop ((kk (string-length str))) (and (>= kk k) (or (nxt str kk kmatch) (loop (- kk 1)))))))) (let ((matcher (let recur ((toks (glob:pattern->tokens pat))) (if (null? toks) match-end (let ((pch (or (string=? (car toks) "") (string-ref (car toks) 0)))) (case pch ((#\?) (match-? (recur (cdr toks)))) ((#\*) (match-* (recur (cdr toks)))) ((#\[) (match-set (car toks) (recur (cdr toks)))) (else (match-str (car toks) (recur (cdr toks)))))))))) (lambda (str) (matcher str 0 '())))) (define (glob:caller-with-matches pat proc ch=? ch<=?) (define (glob:wildcard? pat) (cond ((string=? pat "") #f) ((memv (string-ref pat 0) '(#\* #\? #\[)) #t) (else #f))) (let* ((toks (glob:pattern->tokens pat)) (wild? (map glob:wildcard? toks)) (matcher (glob:make-matcher toks ch=? ch<=?))) (lambda (str) (let loop ((inds (matcher str)) (wild? wild?) (res '())) (cond ((not inds) #f) ((null? wild?) (apply proc (reverse res))) ((car wild?) (loop (cdr inds) (cdr wild?) (cons (substring str (car inds) (cadr inds)) res))) (else (loop (cdr inds) (cdr wild?) res))))))) (define (glob:make-substituter pattern template ch=? ch<=?) (define (wildcard? pat) (cond ((string=? pat "") #f) ((memv (string-ref pat 0) '(#\* #\? #\[)) #t) (else #f))) (define (countq val lst) (do ((lst lst (cdr lst)) (c 0 (if (eq? val (car lst)) (+ c 1) c))) ((null? lst) c))) (let ((tmpl-literals (map (lambda (tok) (if (wildcard? tok) #f tok)) (glob:pattern->tokens template))) (pat-wild? (map wildcard? (glob:pattern->tokens pattern))) (matcher (glob:make-matcher pattern ch=? ch<=?))) (or (= (countq #t pat-wild?) (countq #f tmpl-literals)) (slib:error 'glob:make-substituter "number of wildcards doesn't match" pattern template)) (lambda (str) (let ((indices (matcher str))) (and indices (let loop ((inds indices) (wild? pat-wild?) (lits tmpl-literals) (res '())) (cond ((null? lits) (apply string-append (reverse res))) ((car lits) (loop inds wild? (cdr lits) (cons (car lits) res))) ((null? wild?) ;this should never happen. (loop '() '() lits res)) ((car wild?) (loop (cdr inds) (cdr wild?) (cdr lits) (cons (substring str (car inds) (cadr inds)) res))) (else (loop (cdr inds) (cdr wild?) lits res))))))))) ;;@body ;;Returns a predicate which returns a non-false value if its string argument ;;matches (the string) @var{pattern}, false otherwise. Filename matching ;;is like ;;@cindex glob ;;@dfn{glob} expansion described the bash manpage, except that names ;;beginning with @samp{.} are matched and @samp{/} characters are not ;;treated specially. ;; ;;These functions interpret the following characters specially in ;;@var{pattern} strings: ;;@table @samp ;;@item * ;;Matches any string, including the null string. ;;@item ? ;;Matches any single character. ;;@item [@dots{}] ;;Matches any one of the enclosed characters. A pair of characters ;;separated by a minus sign (-) denotes a range; any character lexically ;;between those two characters, inclusive, is matched. If the first ;;character following the @samp{[} is a @samp{!} or a @samp{^} then any ;;character not enclosed is matched. A @samp{-} or @samp{]} may be ;;matched by including it as the first or last character in the set. ;;@end table (define (filename:match?? pattern) (glob:make-matcher pattern char=? char<=?)) (define (filename:match-ci?? pattern) (glob:make-matcher pattern char-ci=? char-ci<=?)) ;;@args pattern template ;;Returns a function transforming a single string argument according to ;;glob patterns @var{pattern} and @var{template}. @var{pattern} and ;;@var{template} must have the same number of wildcard specifications, ;;which need not be identical. @var{pattern} and @var{template} may have ;;a different number of literal sections. If an argument to the function ;;matches @var{pattern} in the sense of @code{filename:match??} then it ;;returns a copy of @var{template} in which each wildcard specification is ;;replaced by the part of the argument matched by the corresponding ;;wildcard specification in @var{pattern}. A @code{*} wildcard matches ;;the longest leftmost string possible. If the argument does not match ;;@var{pattern} then false is returned. ;; ;;@var{template} may be a function accepting the same number of string ;;arguments as there are wildcard specifications in @var{pattern}. In ;;the case of a match the result of applying @var{template} to a list ;;of the substrings matched by wildcard specifications will be returned, ;;otherwise @var{template} will not be called and @code{#f} will be returned. (define (filename:substitute?? pattern template) (cond ((procedure? template) (glob:caller-with-matches pattern template char=? char<=?)) ((string? template) (glob:make-substituter pattern template char=? char<=?)) (else (slib:error 'filename:substitute?? "bad second argument" template)))) (define (filename:substitute-ci?? pattern template) (cond ((procedure? template) (glob:caller-with-matches pattern template char-ci=? char-ci<=?)) ((string? template) (glob:make-substituter pattern template char-ci=? char-ci<=?)) (else (slib:error 'filename:substitute-ci?? "bad second argument" template)))) ;;@example ;;((filename:substitute?? "scm_[0-9]*.html" "scm5c4_??.htm") ;; "scm_10.html") ;;@result{} "scm5c4_10.htm" ;;((filename:substitute?? "??" "beg?mid?end") "AZ") ;;@result{} "begAmidZend" ;;((filename:substitute?? "*na*" "?NA?") "banana") ;;@result{} "banaNA" ;;((filename:substitute?? "?*?" (lambda (s1 s2 s3) (string-append s3 s1))) ;; "ABZ") ;;@result{} "ZA" ;;@end example ;;@body ;;@var{str} can be a string or a list of strings. Returns a new string ;;(or strings) similar to @code{str} but with the suffix string @var{old} ;;removed and the suffix string @var{new} appended. If the end of ;;@var{str} does not match @var{old}, an error is signaled. (define (replace-suffix str old new) (let* ((f (glob:make-substituter (list "*" old) (list "*" new) char=? char<=?)) (g (lambda (st) (or (f st) (slib:error 'replace-suffix "suffix doesn't match:" old st))))) (if (pair? str) (map g str) (g str)))) ;;@example ;;(replace-suffix "/usr/local/lib/slib/batch.scm" ".scm" ".c") ;;@result{} "/usr/local/lib/slib/batch.c" ;;@end example ;;@args proc k ;;@args proc ;;Calls @1 with @2 arguments, strings returned by successive calls to ;;@code{tmpnam}. ;;If @1 returns, then any files named by the arguments to @1 are ;;deleted automatically and the value(s) yielded by the @1 is(are) ;;returned. @2 may be ommited, in which case it defaults to @code{1}. ;; ;;@args proc suffix1 ... ;;Calls @1 with strings returned by successive calls to @code{tmpnam}, ;;each with the corresponding @var{suffix} string appended. ;;If @1 returns, then any files named by the arguments to @1 are ;;deleted automatically and the value(s) yielded by the @1 is(are) ;;returned. (define (call-with-tmpnam proc . suffi) (define (do-call paths) (let ((ans (apply proc paths))) (for-each (lambda (path) (if (file-exists? path) (delete-file path))) paths) ans)) (cond ((null? suffi) (do-call (list (tmpnam)))) ((and (= 1 (length suffi)) (number? (car suffi))) (do ((cnt (if (null? suffi) 0 (+ -1 (car suffi))) (+ -1 cnt)) (paths '() (cons (tmpnam) paths))) ((negative? cnt) (do-call paths)))) (else (do-call (map (lambda (suffix) (string-append (tmpnam) suffix)) suffi))))) guile-gnome-platform-2.16.2/glib/gnome/gw/support/defs.scm0000644000175000017500000004541411670374302023777 0ustar00wingowingo00000000000000;; guile-gnome ;; Copyright (C) 2005 Andreas Rottmann ;; Copyright (C) 2003,2004 Andy Wingo ;; This program is free software; you can redistribute it and/or ;; modify it under the terms of the GNU General Public License as ;; published by the Free Software Foundation; either version 2 of ;; the License, or (at your option) any later version. ;; ;; This program is distributed in the hope that it will be useful, ;; but WITHOUT ANY WARRANTY; without even the implied warranty of ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the ;; GNU General Public License for more details. ;; ;; You should have received a copy of the GNU General Public License ;; along with this program; if not, contact: ;; ;; Free Software Foundation Voice: +1-617-542-5942 ;; 59 Temple Place - Suite 330 Fax: +1-617-542-2652 ;; Boston, MA 02111-1307, USA gnu@gnu.org ;;; Commentary: ;; ;; This module serves as a way to automatically populate G-Wrap wrapsets ;; using information parsed out of C header files. ;; ;; First, the C header files are parsed into S-expression API ;; description forms and written into @code{.defs} files. These files ;; are typically included in the distribution, and regenerated ;; infrequently. Then, the binding author includes a call to ;; @code{load-defs} in their G-Wrap wrapset definition, which loads ;; those API definitions into the wrapset. ;; ;; The @code{.defs} files are usually produced using the API scanner ;; script, @code{h2defs.py}, included in the Guile-GNOME source ;; distribution. ;; ;; Code in this module is only loaded when generating wrapsets; as such, ;; it is not for end users. ;; ;; As an example, ATK is wrapped with the following code, from ;; @code{atk/gnome/gw/atk-spec.scm}: ;; ;; @example ;; (define-module (gnome gw atk-spec) ;; #:use-module (oop goops) ;; #:use-module (gnome gw support g-wrap) ;; #:use-module (gnome gw gobject-spec) ;; #:use-module (gnome gw support gobject) ;; #:use-module (gnome gw support defs)) ;; ;; (define-class () ;; #:id 'gnome-atk ;; #:dependencies '(standard gnome-glib gnome-gobject)) ;; ;; (define-method (global-declarations-cg (self )) ;; (list ;; (next-method) ;; "#include \n" ;; "#include \n")) ;; ;; (define-method (initialize (ws ) initargs) ;; (next-method ws (append '(#:module (gnome gw atk)) initargs)) ;; ;; manually wrap AtkState as a 64 bit uint ;; (add-type-alias! ws "AtkState" 'unsigned-int64) ;; (load-defs-with-overrides ws "gnome/defs/atk.defs")) ;; @end example ;; ;; The wrapper-specifiction modules are actually installed, along with ;; the .defs files, so that other wrappers which use ATK's types, such ;; as GTK+, can have them available. ;; ;; A full discussion of the Makefile mechanics of how to generate and ;; compile the C file, or how to interact with the wrapset objects, is ;; probably prone to bitrot here. Your best bet is to poke at ;; Guile-GNOME's source, or especially the source of a module ;; distributed independently of @code{guile-gnome-platform}, such as ;; @code{guile-gnome-libwnck}. ;; ;; Further details about the procedural API available for use e.g. ;; within the wrapset's @code{initialize} function can be found in the ;; documentation for @code{(gnome gw support gobject)}, and in G-Wrap's ;; documentation. ;; ;;; Code: (define-module (gnome gw support defs) #:use-module (oop goops) #:use-module (srfi srfi-1) #:use-module (srfi srfi-11) #:use-module (srfi srfi-13) #:use-module (srfi srfi-34) #:use-module (srfi srfi-35) #:use-module (ice-9 optargs) #:use-module (ice-9 regex) #:use-module (gnome gw support g-wrap) #:use-module (g-wrap c-types) #:use-module (g-wrap enumeration) #:use-module (gnome gobject utils) #:use-module (gnome gw support gobject) #:use-module (gnome gw support slib) #:export (load-defs load-defs-with-overrides)) (define (mklist x) (if (list? x) x (list x))) (define-macro (push x tail) `(begin (set! ,tail (cons ,x ,tail)) ,tail)) (define-macro (pop tail) `(begin (set! ,tail (cdr ,tail)) ,tail)) ;; find the gwrap type name for a given type name in a defs file, or ;; wrap the type as an opaque gpointer ;; ;; return type: g-wrap typespec, as a list of symbols (define* (type-lookup ws type return? #:key (ownership #f) (for-proc #f)) (define (scan-for-ownership type k) (let ((const? (string-prefix? "const-" type))) (k (if const? (substring type 6) type) const? (cond (const? (list 'const (or ownership (if return? 'callee-owned 'caller-owned)))) ((and (string-contains type "char*") (not const?)) ;; we own non-const strings (list (or ownership (if return? 'caller-owned 'callee-owned)))) ((string-index type #\*) ;; For pointers, assume that we own arguments, and that ;; the proc owns return values (list (or ownership (if return? 'callee-owned 'caller-owned)))) (else '()))))) (define (scan-for-recursion type const? options k) (cond ((string-contains type "-of-") ;; Because the container type is generated by the wrapper, we own ;; it by default => (lambda (index) (k (substring type 0 index) const? (cons (mklist (type-lookup ws (substring type (+ index 4)) return? #:for-proc for-proc)) (if (memq 'const options) options (cons (if return? 'caller-owned 'callee-owned) (fold delq options '(caller-owned callee-owned)))))))) (else (k type const? options)))) (define (return-type-form type const? options) (let ((type-obj (or (lookup-type-by-alias ws type) (begin (warn "opaque type for proc" for-proc type) (throw 'ignored))))) (if (is-a? type-obj ) ;; gw:wct does not take caller/callee owned type options (cons (name type-obj) (if const? '(const) '())) (cons (name type-obj) options)))) (scan-for-ownership (regexp-substitute/global #f "\\[\\]" type 'pre "*" 'post) (lambda (type const? options) (scan-for-recursion type const? options (lambda (type const? options) (return-type-form type const? options)))))) (define-method (construct-argument-list (ws ) (parameters ) scm-name) (define (parse-restargs restargs) (partition! symbol? (fold (lambda (restarg options) (case (car restarg) ((null-ok) (cons 'null-ok options)) ((callee-owned) (cons 'callee-owned options)) ((default) (cons restarg options)) (else (warn "unknown rest arg" restarg) options))) '() restargs))) (define (parse-argument param) (let ((looked-up (or (find-type-rule ws (car param)) (type-lookup ws (car param) #f #:for-proc scm-name))) (arg-name (string->symbol (cadr param)))) (let-values (((options extras) (parse-restargs (cddr param)))) `((,@(if (memq 'callee-owned options) ;; why is this here? wcts? (fold delq looked-up '(callee-owned caller-owned)) looked-up) ,@options) ,arg-name ,@extras)))) (map parse-argument parameters)) (define (proc-name-from-cname cname) (string->symbol (gtype-name->scheme-name cname))) (define* (load-defs ws file #:optional (overrides #f)) "Load G-Wrap type and function information from @var{file} into the G-Wrap wrapset @var{ws}. @var{file} should be a relative path, which will be searched in the vicinity of Guile's @code{%load-path}. @code{include} directives in the file will be searched relative to the absolute path of the file. The following forms are understood: @code{define-enum}, @code{define-flags}, @code{define-object}, @code{define-interface}, @code{define-pointer}, @code{define-boxed}, @code{define-function}, @code{define-method}, @code{ignore}, @code{ignore-glob}, and @code{ignore-types}. The optional argument, @var{overrides}, specifies the location of an overrides file that will be spliced into the @code{.defs} file at the point of an @code{(include overrides)} form." (let ((abs-path (or (search-path %load-path file) (error "Could not find file in path" file %load-path))) (already-included '()) (overridden '()) (num-types 0) (num-functions 0) (ignore-matchers '()) (ignored-types '()) (methods-used? #f)) ;; The handlers... (define (scan-type! wrap-function immediate? args) ;; The gtype system has enough introspection power that we can ;; disregard a lot of the information in the defs files and just ;; look at the ctype and gtype-id, as well as the values, for ;; enums without a gtype-id. (catch 'ignored (lambda () (let ((ctype (car (or (assq-ref args 'c-name) (error "Type lacks a c-name" args)))) (gtype-id (assq-ref args 'gtype-id)) (values (assq-ref args 'values))) (if (member ctype ignored-types) (throw 'ignored)) (set! num-types (1+ num-types)) (if (and (not gtype-id) (not values)) (error "Non-enum/flags-type lacks a gtype-id" args)) (let ((wrapped-type (apply wrap-function ws (append `(#:ctype ,ctype) (if gtype-id `(#:gtype-id ,(car gtype-id)) '()) (if values `(#:values ,(map (lambda (entry) (cons (string->symbol (caadr entry)) (cadadr entry))) values)) '()))))) (add-type-alias! ws (if immediate? ctype (string-append ctype "*")) (name wrapped-type)) wrapped-type))) noop)) (define (arg-ref args field default) (cond ((assq field args) => cadr) (else default))) (define (get-generic-name func-name of-object) (let* (;; Fixme: do parameter spec creation for gw:wrap-function ;; before this, we can then use recursive-type-find (looked-up (type-lookup ws of-object #f #:for-proc func-name)) (of-obj (if (list? looked-up) (car looked-up) looked-up)) (of-obj-str (symbol->string of-obj)) (sanitized-of-obj (substring of-obj-str 1 (or (string-index of-obj-str #\*) (1- (string-length of-obj-str))))) (g-wrap-type (lookup-type-by-alias ws of-object)) (hack-module (resolve-module '(gnome gw support gobject)))) (cond ((or (is-a? g-wrap-type ) (is-a? g-wrap-type (module-ref hack-module ')) (is-a? g-wrap-type (module-ref hack-module ')) (is-a? g-wrap-type (module-ref hack-module ')) (is-a? g-wrap-type (module-ref hack-module '))) #f) ((string-prefix? (string-append sanitized-of-obj "-") func-name) (string->symbol (substring func-name (1+ (string-length sanitized-of-obj))))) (else ;; (warn "bad method name" ws func-name of-object sanitized-of-obj looked-up) #f)))) (define (scan-function! is-method? name args) (catch 'ignored (lambda () (let ((c-name (arg-ref args 'c-name #f)) (scm-name #f) (of-object (and=> (assq 'of-object args) (lambda (x) (string-append (cadr x) "*")))) (return-type (arg-ref args 'return-type "none")) (caller-owns-return (arg-ref args 'caller-owns-return #f)) (parameters (or (and=> (assq-ref args 'parameters) (lambda (x) (map cadr x))) '())) (flags (if (if (assq 'leave-guile-mode args) (car (assq-ref args 'leave-guile-mode)) #t) "GW_FUNCTION_FLAG_LEAVE_RUNTIME" "0")) (generic-name #f)) (cond ((ignored? c-name) (display "x") (throw 'ignored)) ((member c-name overridden) (throw 'ignored)) ((and=> (assq 'varargs args) cadr) (display "v") (throw 'ignored)) ((any (lambda (x) (eq? (string-ref (cadr x) 0) #\()) parameters) (format #t "\nWarning, not binding function ~A ~A" "because I can't deal with function pointers\n" name) (throw 'ignored)) ((and is-method? (not of-object)) (error "Method name lacks an of-object!" c-name))) (and=> (memq 'is-constructor-of (map car args)) ;; If we're the constructor, we own the return value, ;; unless told otherwise (e.g. with gtkwindow). (lambda (l) (if (not (memq 'caller-owns-return l)) (set! caller-owns-return #t)))) (and=> (arg-ref args 'overrides #f) (lambda (x) (set! scm-name (proc-name-from-cname x)) (if (member x overridden) (error "Function ~S already overridden" x) (push x overridden)))) (if is-method? (push (list of-object "self") parameters)) (if (not scm-name) (set! scm-name (proc-name-from-cname c-name))) (set! num-functions (1+ num-functions)) (display ".") (wrap-function! ws #:name scm-name #:returns (type-lookup ws return-type #t #:ownership (if caller-owns-return 'caller-owned 'callee-owned) #:for-proc scm-name) #:c-name c-name #:arguments (construct-argument-list ws parameters scm-name) #:generic-name (and is-method? (get-generic-name (symbol->string scm-name) of-object)) #:flags flags))) noop)) (define (ignored? c-name) (any (lambda (matcher) (matcher c-name)) ignore-matchers)) (define (ignore . args) (for-each (lambda (c-name) (if (member c-name overridden) (error "Function ~S already overridden" c-name) (push c-name overridden))) args)) (define (ignore-types . args) (set! ignored-types (append args ignored-types))) (define (ignore-glob . args) (for-each (lambda (glob) (push (glob:make-matcher glob char=? char<=?) ignore-matchers)) args)) ;; "type helper" / "function helper" (define (th wrap immediate?) (lambda (exp) (scan-type! wrap immediate? (cddr exp)))) (define (fh method?) (lambda (exp) (scan-function! method? (cadr exp) (cddr exp)))) (define (scan-defs) (define defs-handlers `((define-enum ,(th wrap-enum! #t)) (define-flags ,(th wrap-flags! #t)) (define-object ,(th wrap-instance! #f)) (define-interface ,(th wrap-interface! #f)) (define-pointer ,(th wrap-pointer! #f)) (define-boxed ,(th wrap-boxed! #f)) (define-function ,(fh #f)) (define-method ,(fh #t)) (ignore ,(lambda (exp) (apply ignore (cdr exp)))) (ignore-glob ,(lambda (exp) (apply ignore-glob (cdr exp)))) (ignore-types ,(lambda (exp) (apply ignore-types (cdr exp)))))) (let lp ((exp (read))) (cond ((eof-object? exp)) ((not (list? exp)) (warn "Invalid form in .defs file" exp file) (lp (read))) ((assq (car exp) defs-handlers) => (lambda (x) (guard (c (#t (raise-stacked c "while processing def ~S" exp))) ((cadr x) exp)) (lp (read)))) ((eq? (car exp) 'include) (let ((f (cond ((eq? (cadr exp) 'overrides) (or overrides (error "no overrides file for defs" file))) ((symbol? (cadr exp)) (let ((fname (string-append "gnome/overrides/" (basename file) "-" (symbol->string (cadr exp))))) (or (and=> (search-path %load-path fname) file-exists?) (error "file does not exist in load path" fname)) fname)) (else (cadr exp))))) (if (member f already-included) (error ".defs file has recursively included itself" f already-included)) (push f already-included) (with-input-from-file (or (search-path %load-path f) (error "Could not find file" f %load-path)) scan-defs) (lp (read)))) (else (warn "Unknown .defs form" exp file) (lp (read)))))) (dynamic-wind (lambda () (push (dirname abs-path) %load-path)) (lambda () (guard (c (#t (raise-stacked c "while processing defs `~A'" abs-path))) (with-input-from-file abs-path scan-defs))) (lambda () (pop %load-path))))) (define (load-defs-with-overrides ws defs) "Equivalent to: @lisp (load-defs ws defs (string-append \"gnome/overrides/\" (basename defs))) @end lisp" (load-defs ws defs (string-append "gnome/overrides/" (basename defs)))) guile-gnome-platform-2.16.2/glib/gnome/gw/glib-support.h0000644000175000017500000000742211670374302023433 0ustar00wingowingo00000000000000/* guile-gnome * Copyright (C) 2003 Andy Wingo * * glib-support.h: Support for the GLib binding * * This program is free software; you can redistribute it and/or * modify it under the terms of the GNU General Public License as * published by the Free Software Foundation; either version 2 of * the License, or (at your option) any later version. * * This program is distributed in the hope that it will be useful, * but WITHOUT ANY WARRANTY; without even the implied warranty of * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the * GNU General Public License for more details. * * You should have received a copy of the GNU General Public License * along with this program; if not, contact: * * Free Software Foundation Voice: +1-617-542-5942 * 59 Temple Place - Suite 330 Fax: +1-617-542-2652 * Boston, MA 02111-1307, USA gnu@gnu.org */ #if !defined(_GUILE_GOBJECT_GLIB_SUPPORT_H) #define _GUILE_GOBJECT_GLIB_SUPPORT_H #include #include #include "guile-gnome-gobject.h" G_BEGIN_DECLS void scm_init_glib (void); size_t _wrap_g_bookmark_file_free (void *wcp); gboolean _wrap_g_bookmark_file_load_from_data (GBookmarkFile *bookmark, const char *data, GError **error); char* _wrap_g_bookmark_file_to_data (GBookmarkFile *bookmark, GError **error); SCM _wrap_g_bookmark_file_get_uris (GBookmarkFile *bookmark); SCM _wrap_g_bookmark_file_get_groups (GBookmarkFile *bookmark, const char *uri, GError **error); SCM _wrap_g_bookmark_file_get_applications (GBookmarkFile *bookmark, const char *uri, GError **error); gchar* _wrap_g_convert (const gchar* str, const gchar* to_codeset, const gchar* from_codeset, GError** error); gchar* _wrap_g_convert_with_fallback (const gchar* str, const gchar* to_codeset, const gchar* from_codeset, gchar* fallback, GError** error); void _wrap_g_main_loop_run (GMainLoop *loop); SCM _wrap_g_string_get_str (GString *str); guint _wrap_g_io_add_watch (GIOChannel *channel, GIOCondition condition, SCM func); GIOStatus _wrap_g_io_channel_read_line (GIOChannel *channel, gchar **str_return, GError **error); gunichar _wrap_g_utf8_get_char (const gchar *p); const char* _wrap_g_utf8_find_next_char (const gchar *p); long _wrap_g_utf8_strlen (const gchar *p); const char* _wrap_g_utf8_strchr (const gchar *p, gunichar c); const char* _wrap_g_utf8_strrchr (const gchar *p, gunichar c); char* _wrap_g_utf8_strreverse (const gchar *p); gboolean _wrap_g_utf8_validate (const gchar *p); char* _wrap_g_utf8_strup (const gchar *p); char* _wrap_g_utf8_strdown (const gchar *p); char* _wrap_g_utf8_casefold (const gchar *p); char* _wrap_g_utf8_normalize (const gchar *p, GNormalizeMode mode); char* _wrap_g_utf8_collate_key (const gchar *p); char* _wrap_g_utf8_collate_key_for_filename (const gchar *p); char* _wrap_g_unichar_to_utf8 (gunichar c); gunichar2* _wrap_g_utf8_to_utf16 (const gchar *str, GError **error); gunichar* _wrap_g_utf8_to_ucs4 (const gchar *str, GError **error); gunichar* _wrap_g_utf16_to_ucs4 (const gunichar2* str, GError **error); gchar* _wrap_g_utf16_to_utf8 (const gunichar2* str, GError **error); gunichar2* _wrap_g_ucs4_to_utf16 (const gunichar* str, GError **error); gchar* _wrap_g_ucs4_to_utf8 (const gunichar* str, GError **error); G_END_DECLS #endif guile-gnome-platform-2.16.2/glib/gnome/gobject.scm0000644000175000017500000002047511670374302022342 0ustar00wingowingo00000000000000;; guile-gnome ;; Copyright (C) 2001 Martin Baulig ;; Copyright (C) 2003,2004 Andy Wingo ;; This program is free software; you can redistribute it and/or ;; modify it under the terms of the GNU General Public License as ;; published by the Free Software Foundation; either version 2 of ;; the License, or (at your option) any later version. ;; ;; This program is distributed in the hope that it will be useful, ;; but WITHOUT ANY WARRANTY; without even the implied warranty of ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the ;; GNU General Public License for more details. ;; ;; You should have received a copy of the GNU General Public License ;; along with this program; if not, contact: ;; ;; Free Software Foundation Voice: +1-617-542-5942 ;; 59 Temple Place - Suite 330 Fax: +1-617-542-2652 ;; Boston, MA 02111-1307, USA gnu@gnu.org ;;; Commentary: ;; ;; This is the Guile wrapper of @code{libgobject}, an implementation of ;; a runtime, dynamic type system for C. Besides providing an object ;; system to C, @code{libgobject}'s main design goal was to increase the ;; ease with which C code can be wrapped by interpreted languages, such ;; as Guile or Perl. ;; ;; This module, @code{(gnome gobject)}, just re-exports procedures from ;; other modules, so its documentation seems an opportune spot for a ;; more tutorial-like introduction. So open up a Guile session and let's ;; begin. ;; ;; First, if you haven't done it, load the appropriate version of ;; Guile-GNOME: ;; ;; @lisp ;; guile> (use-modules (gnome-2)) ;; @end lisp ;; ;; Import @code{(gnome gobject)} also: ;; ;; @lisp ;; guile> (use-modules (gnome gobject)) ;; @end lisp ;; ;; @code{(gnome gobject)} is based heavily on GOOPS, Guile's object ;; system, so go ahead and load up that too: ;; ;; @lisp ;; guile> (use-modules (oop goops)) ;; @end lisp ;; ;; We will leave off the @code{guile>} prompt in the rest of this ;; tutorial. When we want to show the value of an expression, we use ;; @result{}: ;; ;; @lisp ;; (+ 3 5) ;; @result{} 8 ;; @end lisp ;; ;; @section Basic types ;; ;; When communicating with @code{libgobject}, most values need to be ;; strictly-typed. There is a type class corresponding to each basic type ;; in C: @code{}, @code{}, @code{}, ;; @code{}, @code{}, @code{}, @code{}, ;; @code{}, @code{}, @code{}, @code{}, ;; and @code{}. ;; ;; You can make instances of these class with @code{make}: ;; ;; @lisp ;; (make #:value #f) ;; @result{} # 40529040 #f> ;; ;; (make #:value 85) ;; @result{} # 4054f040 85> ;; ;; (make #:value 3.1415) ;; @result{} # 40556af0 3.1414999961853> ;; ;; (make #:value "Hello World!") ;; @result{} # 4055af90 Hello World!> ;; @end lisp ;; ;; You can get the normal Scheme values back with @code{gvalue->scm}: ;; ;; @lisp ;; (gvalue->scm (make #:value "Hello World!")) ;; @result{} "Hello World!" ;; @end lisp ;; ;; @section Enums and flags ;; ;; Enumerated values and bitflags are an essential part of many C APIs, ;; and so they are specially wrapped in the GLib type system. You can ;; create new enumerated types in Scheme by subclassing @code{}: ;; ;; @lisp ;; (define-class () ;; #:vtable '#((hello "Hello World" 1) (test "Test" 2))) ;; @end lisp ;; ;; Instances are created with @code{make}, just like with the other ;; types: ;; ;; @lisp ;; (make #:value 'hello) ;; (make #:value "Hello World") ;; (make #:value 1) ;; ;; ;; These three all do the same thing ;; @result{} # 406275f8 (hello Hello World 1)> ;; @end lisp ;; ;; If there is an already existing enum or flags class, you can get ;; information about it: ;; ;; @lisp ;; (genum-class->value-table ) ;; @result{} #((hello "Hello World" 1) (test "Test" 2)) ;; @end lisp ;; ;; Enums and flags have a special representation on the Scheme side. You ;; can convert them to Scheme values as symbols, names, or as a numeric ;; value. ;; ;; @lisp ;; (define foo (make #:value 'hello)) ;; (genum->symbol foo) ;; @result{} hello ;; (genum->name foo) ;; @result{} "Hello World" ;; (genum->value foo) ;; @result{} 1 ;; @end lisp ;; ;; @section GType ;; ;; All of the types that GLib knows about are available to Guile, ;; regardless of which language defined them. GLib implements this via a ;; type system, where every type has a name. So if you make a type ;; called ``Foo'' in C, you can get to it in Scheme via ;; @code{gtype-name->class}: ;; ;; @lisp ;; ;; Retrieve the type for the foo enum we made earlier in the tutorial ;; (define copy-of- (gtype-name->class "Foo")) ;; (eq? copy-of-) ;; @result{} #t ;; ;; (make copy-of- #:value 2) ;; @result{} # 40535e50 (test Test 2)> ;; @end lisp ;; ;; @section GObject ;; ;; @code{} (@code{GObject} in C) is the basic object type in ;; @code{libgobject}. @code{(gnome gobject)} allows you to access ;; existing GObject types, as well as to create new GObject types in ;; Scheme. ;; ;; Before we start, let's pull in some generic functions that reduce the ;; amount of typing we have to do: ;; ;; @lisp ;; (use-modules (gnome gobject generics)) ;; @end lisp ;; ;; Let's assume we start with @code{} from @code{(gnome ;; gtk)}. The keyword arguments to @code{make} are interpreted as ;; GObject properties to set: ;; ;; @lisp ;; (define window (make ;; #:type 'toplevel #:title "Hello, World!")) ;; @end lisp ;; ;; You can connect to signals on the new instance: ;; ;; @lisp ;; (connect window 'delete-event ;; (lambda (window event) ;; ;; Returns #t to ignore this event ;; #t)) ;; ;; ;; connect is a generic function implemented by ;; ;; gtype-instance-signal-connect ;; @end lisp ;; ;; And get and set properties... ;; ;; @lisp ;; (get window 'title) ;; @result{} "Hello, World!" ;; (set window 'resizable #f) ;; ;; ;; get and set are also generics, implemented by gobject-get-property ;; ;; and gobject-set-property ;; @end lisp ;; ;; @section Deriving your own GObject types ;; ;; You can create new GObject types directly from Scheme, deriving either ;; from a C object type or one you made in Scheme. ;; ;; @lisp ;; ;; deriving from ;; (define-class () ;; ;; a normal object slot ;; my-data ;; ;; ;; an object slot exported as a gobject property ;; (pub-data #:gparam (list #:name 'test)) ;; ;; ;; a signal with no arguments and no return value ;; #:gsignal '(frobate #f)) ;; ;; ;; deriving from -- also inherits properties and signals ;; (define-class ()) ;; @end lisp ;; ;; Adding a signal automatically defines the default method: ;; ;; @lisp ;; ;; This is the default handler for this signal. ;; (define-method (test:frobate (object )) ;; (format #t "Frobating ~A\n" object)) ;; ;; ;; We can override it for subclasses ;; (define-method (test:frobate (object )) ;; (next-method) ;; chain up ;; (format #t "I'm hungry\n")) ;; ;; (emit (make ) 'frobate) ;; ;; Try it! ;; @end lisp ;; ;; You can override the @code{initialize}, @code{gobject:get-property}, ;; and @code{gobject:set-property} methods. For an extended example, see ;; @code{tic-tac-toe.scm} in the @code{gtk/examples/gtk} directory of ;; the distribution. ;; ;;; Code: (define-module (gnome gobject) #:use-module (gnome gobject gtype) #:use-module (gnome gobject gvalue) #:use-module (gnome gobject gclosure) #:use-module (gnome gobject gsignal) #:use-module (gnome gobject gparameter) #:use-module (gnome gobject gobject) #:use-module (gnome gw support modules)) (re-export-modules (gnome gobject gtype) (gnome gobject gvalue) (gnome gobject gclosure) (gnome gobject gsignal) (gnome gobject gparameter) (gnome gobject gobject)) ;(let* ((doc-dir (gobject-scheme-dir)) ; (doc-file (in-vicinity doc-dir "guile-gnome-gobject-procedures.txt"))) ; (set! documentation-files (append! documentation-files (list doc-file)))) guile-gnome-platform-2.16.2/glib/gnome/Makefile.am0000644000175000017500000000021411670374302022242 0ustar00wingowingo00000000000000include $(top_srcdir)/common.mk SUBDIRS = gobject gw overrides guilemodule_DATA = gobject.scm glib.scm EXTRA_DIST = gobject.scm glib.scm guile-gnome-platform-2.16.2/glib/gnome/Makefile.in0000644000175000017500000005733311752520654022275 0ustar00wingowingo00000000000000# Makefile.in generated by automake 1.11.5 from Makefile.am. # @configure_input@ # Copyright (C) 1994, 1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, # 2003, 2004, 2005, 2006, 2007, 2008, 2009, 2010, 2011 Free Software # Foundation, Inc. # This Makefile.in is free software; the Free Software Foundation # gives unlimited permission to copy and/or distribute it, # with or without modifications, as long as this notice is preserved. # This program is distributed in the hope that it will be useful, # but WITHOUT ANY WARRANTY, to the extent permitted by law; without # even the implied warranty of MERCHANTABILITY or FITNESS FOR A # PARTICULAR PURPOSE. @SET_MAKE@ # guile-gnome # Copyright (C) 2003,2004,2009,2012 Free Software Foundation, Inc. # This program is free software; you can redistribute it and/or # modify it under the terms of the GNU General Public License as # published by the Free Software Foundation; either version 2 of # the License, or (at your option) any later version. # This program is distributed in the hope that it will be useful, # but WITHOUT ANY WARRANTY; without even the implied warranty of # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the # GNU General Public License for more details. # You should have received a copy of the GNU General Public License # along with this program; if not, contact: # Free Software Foundation Voice: +1-617-542-5942 # 59 Temple Place - Suite 330 Fax: +1-617-542-2652 # Boston, MA 02111-1307, USA gnu@gnu.org # # Makefile snippet # VPATH = @srcdir@ am__make_dryrun = \ { \ am__dry=no; \ case $$MAKEFLAGS in \ *\\[\ \ ]*) \ echo 'am--echo: ; @echo "AM" OK' | $(MAKE) -f - 2>/dev/null \ | grep '^AM OK$$' >/dev/null || am__dry=yes;; \ *) \ for am__flg in $$MAKEFLAGS; do \ case $$am__flg in \ *=*|--*) ;; \ *n*) am__dry=yes; break;; \ esac; \ done;; \ esac; \ test $$am__dry = yes; \ } pkgdatadir = $(datadir)/@PACKAGE@ pkgincludedir = $(includedir)/@PACKAGE@ pkglibdir = $(libdir)/@PACKAGE@ pkglibexecdir = $(libexecdir)/@PACKAGE@ am__cd = CDPATH="$${ZSH_VERSION+.}$(PATH_SEPARATOR)" && cd install_sh_DATA = $(install_sh) -c -m 644 install_sh_PROGRAM = $(install_sh) -c install_sh_SCRIPT = $(install_sh) -c INSTALL_HEADER = $(INSTALL_DATA) transform = $(program_transform_name) NORMAL_INSTALL = : PRE_INSTALL = : POST_INSTALL = : NORMAL_UNINSTALL = : PRE_UNINSTALL = : POST_UNINSTALL = : build_triplet = @build@ host_triplet = @host@ DIST_COMMON = $(srcdir)/Makefile.am $(srcdir)/Makefile.in \ $(top_srcdir)/common.mk subdir = glib/gnome ACLOCAL_M4 = $(top_srcdir)/aclocal.m4 am__aclocal_m4_deps = $(top_srcdir)/configure.ac am__configure_deps = $(am__aclocal_m4_deps) $(CONFIGURE_DEPENDENCIES) \ $(ACLOCAL_M4) mkinstalldirs = $(install_sh) -d CONFIG_HEADER = $(top_builddir)/config.h CONFIG_CLEAN_FILES = CONFIG_CLEAN_VPATH_FILES = SOURCES = DIST_SOURCES = RECURSIVE_TARGETS = all-recursive check-recursive dvi-recursive \ html-recursive info-recursive install-data-recursive \ install-dvi-recursive install-exec-recursive \ install-html-recursive install-info-recursive \ install-pdf-recursive install-ps-recursive install-recursive \ installcheck-recursive installdirs-recursive pdf-recursive \ ps-recursive uninstall-recursive am__can_run_installinfo = \ case $$AM_UPDATE_INFO_DIR in \ n|no|NO) false;; \ *) (install-info --version) >/dev/null 2>&1;; \ esac am__vpath_adj_setup = srcdirstrip=`echo "$(srcdir)" | sed 's|.|.|g'`; am__vpath_adj = case $$p in \ $(srcdir)/*) f=`echo "$$p" | sed "s|^$$srcdirstrip/||"`;; \ *) f=$$p;; \ esac; am__strip_dir = f=`echo $$p | sed -e 's|^.*/||'`; am__install_max = 40 am__nobase_strip_setup = \ srcdirstrip=`echo "$(srcdir)" | sed 's/[].[^$$\\*|]/\\\\&/g'` am__nobase_strip = \ for p in $$list; do echo "$$p"; done | sed -e "s|$$srcdirstrip/||" am__nobase_list = $(am__nobase_strip_setup); \ for p in $$list; do echo "$$p $$p"; done | \ sed "s| $$srcdirstrip/| |;"' / .*\//!s/ .*/ ./; s,\( .*\)/[^/]*$$,\1,' | \ $(AWK) 'BEGIN { files["."] = "" } { files[$$2] = files[$$2] " " $$1; \ if (++n[$$2] == $(am__install_max)) \ { print $$2, files[$$2]; n[$$2] = 0; files[$$2] = "" } } \ END { for (dir in files) print dir, files[dir] }' am__base_list = \ sed '$$!N;$$!N;$$!N;$$!N;$$!N;$$!N;$$!N;s/\n/ /g' | \ sed '$$!N;$$!N;$$!N;$$!N;s/\n/ /g' am__uninstall_files_from_dir = { \ test -z "$$files" \ || { test ! -d "$$dir" && test ! -f "$$dir" && test ! -r "$$dir"; } \ || { echo " ( cd '$$dir' && rm -f" $$files ")"; \ $(am__cd) "$$dir" && rm -f $$files; }; \ } am__installdirs = "$(DESTDIR)$(guilemoduledir)" DATA = $(guilemodule_DATA) RECURSIVE_CLEAN_TARGETS = mostlyclean-recursive clean-recursive \ distclean-recursive maintainer-clean-recursive AM_RECURSIVE_TARGETS = $(RECURSIVE_TARGETS:-recursive=) \ $(RECURSIVE_CLEAN_TARGETS:-recursive=) tags TAGS ctags CTAGS \ distdir ETAGS = etags CTAGS = ctags DIST_SUBDIRS = $(SUBDIRS) DISTFILES = $(DIST_COMMON) $(DIST_SOURCES) $(TEXINFOS) $(EXTRA_DIST) am__relativize = \ dir0=`pwd`; \ sed_first='s,^\([^/]*\)/.*$$,\1,'; \ sed_rest='s,^[^/]*/*,,'; \ sed_last='s,^.*/\([^/]*\)$$,\1,'; \ sed_butlast='s,/*[^/]*$$,,'; \ while test -n "$$dir1"; do \ first=`echo "$$dir1" | sed -e "$$sed_first"`; \ if test "$$first" != "."; then \ if test "$$first" = ".."; then \ dir2=`echo "$$dir0" | sed -e "$$sed_last"`/"$$dir2"; \ dir0=`echo "$$dir0" | sed -e "$$sed_butlast"`; \ else \ first2=`echo "$$dir2" | sed -e "$$sed_first"`; \ if test "$$first2" = "$$first"; then \ dir2=`echo "$$dir2" | sed -e "$$sed_rest"`; \ else \ dir2="../$$dir2"; \ fi; \ dir0="$$dir0"/"$$first"; \ fi; \ fi; \ dir1=`echo "$$dir1" | sed -e "$$sed_rest"`; \ done; \ reldir="$$dir2" ACLOCAL = @ACLOCAL@ AG_PKG_CONFIG_PATH = @AG_PKG_CONFIG_PATH@ AMTAR = @AMTAR@ API_VERSION = @API_VERSION@ AR = @AR@ ATK_CFLAGS = @ATK_CFLAGS@ ATK_LIBS = @ATK_LIBS@ AUTOCONF = @AUTOCONF@ AUTOHEADER = @AUTOHEADER@ AUTOMAKE = @AUTOMAKE@ AWK = @AWK@ BONOBO_IDL_DIR = @BONOBO_IDL_DIR@ CANVAS_CFLAGS = @CANVAS_CFLAGS@ CANVAS_LIBS = @CANVAS_LIBS@ CC = @CC@ CCDEPMODE = @CCDEPMODE@ CFLAGS = @CFLAGS@ CORBA_CFLAGS = @CORBA_CFLAGS@ CORBA_LIBS = @CORBA_LIBS@ CPP = @CPP@ CPPFLAGS = @CPPFLAGS@ CYGPATH_W = @CYGPATH_W@ DEFS = @DEFS@ DEPDIR = @DEPDIR@ DLLTOOL = @DLLTOOL@ DSYMUTIL = @DSYMUTIL@ DUMPBIN = @DUMPBIN@ ECHO_C = @ECHO_C@ ECHO_N = @ECHO_N@ ECHO_T = @ECHO_T@ EGREP = @EGREP@ EXEEXT = @EXEEXT@ FGREP = @FGREP@ GCONF_CFLAGS = @GCONF_CFLAGS@ GCONF_LIBS = @GCONF_LIBS@ GDK_CFLAGS = @GDK_CFLAGS@ GDK_LIBS = @GDK_LIBS@ GDK_PIXBUF_CFLAGS = @GDK_PIXBUF_CFLAGS@ GDK_PIXBUF_LIBS = @GDK_PIXBUF_LIBS@ GLIB_CFLAGS = @GLIB_CFLAGS@ GLIB_LIBS = @GLIB_LIBS@ GNOMEUI_DEPRECATION_FLAGS = @GNOMEUI_DEPRECATION_FLAGS@ GNOME_VFS_CFLAGS = @GNOME_VFS_CFLAGS@ GNOME_VFS_DEPRECATED_CFLAGS = @GNOME_VFS_DEPRECATED_CFLAGS@ GNOME_VFS_LIBS = @GNOME_VFS_LIBS@ GOBJECT_CFLAGS = @GOBJECT_CFLAGS@ GOBJECT_LIBS = @GOBJECT_LIBS@ GREP = @GREP@ GTHREAD_CFLAGS = @GTHREAD_CFLAGS@ GTHREAD_LIBS = @GTHREAD_LIBS@ GTK_CFLAGS = @GTK_CFLAGS@ GTK_DEPRECATED_CFLAGS = @GTK_DEPRECATED_CFLAGS@ GTK_LIBS = @GTK_LIBS@ GUILE_CAIRO_CFLAGS = @GUILE_CAIRO_CFLAGS@ GUILE_CAIRO_LIBS = @GUILE_CAIRO_LIBS@ GUILE_CFLAGS = @GUILE_CFLAGS@ GUILE_EFFECTIVE_VERSION = @GUILE_EFFECTIVE_VERSION@ GUILE_GLIB_CFLAGS = @GUILE_GLIB_CFLAGS@ GUILE_GLIB_LIBS = @GUILE_GLIB_LIBS@ GUILE_LIBS = @GUILE_LIBS@ G_WRAP_CFLAGS = @G_WRAP_CFLAGS@ G_WRAP_LIBS = @G_WRAP_LIBS@ G_WRAP_LIB_DIR = @G_WRAP_LIB_DIR@ G_WRAP_MODULE_DIR = @G_WRAP_MODULE_DIR@ INSTALL = @INSTALL@ INSTALL_DATA = @INSTALL_DATA@ INSTALL_PROGRAM = @INSTALL_PROGRAM@ INSTALL_SCRIPT = @INSTALL_SCRIPT@ INSTALL_STRIP_PROGRAM = @INSTALL_STRIP_PROGRAM@ LD = @LD@ LDFLAGS = @LDFLAGS@ LIBGLADE_CFLAGS = @LIBGLADE_CFLAGS@ LIBGLADE_LIBS = @LIBGLADE_LIBS@ LIBGNOMEUI_CFLAGS = @LIBGNOMEUI_CFLAGS@ LIBGNOMEUI_LIBS = @LIBGNOMEUI_LIBS@ LIBGNOME_CFLAGS = @LIBGNOME_CFLAGS@ LIBGNOME_LIBS = @LIBGNOME_LIBS@ LIBOBJS = @LIBOBJS@ LIBS = @LIBS@ LIBTOOL = @LIBTOOL@ LIPO = @LIPO@ LN_S = @LN_S@ LTLIBOBJS = @LTLIBOBJS@ MAKEINFO = @MAKEINFO@ MANIFEST_TOOL = @MANIFEST_TOOL@ MKDIR_P = @MKDIR_P@ NM = @NM@ NMEDIT = @NMEDIT@ OBJDUMP = @OBJDUMP@ OBJEXT = @OBJEXT@ ORBIT_IDL = @ORBIT_IDL@ OTOOL = @OTOOL@ OTOOL64 = @OTOOL64@ PACKAGE = @PACKAGE@ PACKAGE_BUGREPORT = @PACKAGE_BUGREPORT@ PACKAGE_NAME = @PACKAGE_NAME@ PACKAGE_STRING = @PACKAGE_STRING@ PACKAGE_TARNAME = @PACKAGE_TARNAME@ PACKAGE_URL = @PACKAGE_URL@ PACKAGE_VERSION = @PACKAGE_VERSION@ PANGOCAIRO_CFLAGS = @PANGOCAIRO_CFLAGS@ PANGOCAIRO_LIBS = @PANGOCAIRO_LIBS@ PANGO_CFLAGS = @PANGO_CFLAGS@ PANGO_LIBS = @PANGO_LIBS@ PATH_SEPARATOR = @PATH_SEPARATOR@ PKG_CONFIG = @PKG_CONFIG@ PKG_CONFIG_LIBDIR = @PKG_CONFIG_LIBDIR@ PKG_CONFIG_PATH = @PKG_CONFIG_PATH@ RANLIB = @RANLIB@ SED = @SED@ SET_MAKE = @SET_MAKE@ SHELL = @SHELL@ STRIP = @STRIP@ VERSION = @VERSION@ WARN_CFLAGS = @WARN_CFLAGS@ abs_builddir = @abs_builddir@ abs_srcdir = @abs_srcdir@ abs_top_builddir = @abs_top_builddir@ abs_top_srcdir = @abs_top_srcdir@ ac_ct_AR = @ac_ct_AR@ ac_ct_CC = @ac_ct_CC@ ac_ct_DUMPBIN = @ac_ct_DUMPBIN@ am__include = @am__include@ am__leading_dot = @am__leading_dot@ am__quote = @am__quote@ am__tar = @am__tar@ am__untar = @am__untar@ bindir = @bindir@ build = @build@ build_alias = @build_alias@ build_cpu = @build_cpu@ build_os = @build_os@ build_vendor = @build_vendor@ builddir = @builddir@ datadir = @datadir@ datarootdir = @datarootdir@ docdir = @docdir@ dvidir = @dvidir@ exec_prefix = @exec_prefix@ host = @host@ host_alias = @host_alias@ host_cpu = @host_cpu@ host_os = @host_os@ host_vendor = @host_vendor@ htmldir = @htmldir@ includedir = @includedir@ infodir = @infodir@ install_sh = @install_sh@ libdir = @libdir@ libexecdir = @libexecdir@ localedir = @localedir@ localstatedir = @localstatedir@ mandir = @mandir@ mkdir_p = @mkdir_p@ oldincludedir = @oldincludedir@ pdfdir = @pdfdir@ prefix = @prefix@ program_transform_name = @program_transform_name@ psdir = @psdir@ sbindir = @sbindir@ sharedstatedir = @sharedstatedir@ srcdir = @srcdir@ sysconfdir = @sysconfdir@ target_alias = @target_alias@ top_build_prefix = @top_build_prefix@ top_builddir = @top_builddir@ top_srcdir = @top_srcdir@ guilegnomedir = $(datadir)/guile-gnome-@API_VERSION@ guilemoduledir = $(guilegnomedir)/gnome guilegwmoduledir = $(guilegnomedir)/gnome/gw guilegnomelibdir = $(libdir)/guile-gnome-@API_VERSION@ AM_CFLAGS = -I. -I$(srcdir) $(WARN_CFLAGS) $(DEBUG_CFLAGS) # For overriding from the command line (e.g. --debug) GUILE_FLAGS = SUFFIXES = .x .doc GUILE_SNARF_CFLAGS = $(DEFS) $(AM_CFLAGS) $(GUILE_CFLAGS) $(G_WRAP_CFLAGS) PACKAGES = atk cairo corba defs gconf glib gnome-vfs gtk libglade libgnome libgnomecanvas libgnomeui pango SOURCE_GUILE_PATH = $(shell echo $(addprefix $(top_srcdir)/,$(PACKAGES)) | sed -e 's/ /:/g'):$(srcdir) BUILD_GUILE_PATH = $(if $(filter-out $(top_srcdir),$(top_builddir)),$(shell echo -n $(addprefix $(top_builddir)/,$(PACKAGES)): | sed -e 's/ /:/g'),) GUILE_LOAD_PATH := $(BUILD_GUILE_PATH)$(SOURCE_GUILE_PATH):${G_WRAP_MODULE_DIR}:${GUILE_LOAD_PATH} # Real gnu make foo packages = $(filter-out %-uninstalled,$(patsubst %.pc.in,%,$(notdir $(wildcard $(srcdir)/*.pc.in)))) pcifiles = $(patsubst %,%-@API_VERSION@.pc,$(packages)) pcufiles = $(patsubst %,%-@API_VERSION@-uninstalled.pc,$(packages)) SUBDIRS = gobject gw overrides guilemodule_DATA = gobject.scm glib.scm EXTRA_DIST = gobject.scm glib.scm all: all-recursive .SUFFIXES: .SUFFIXES: .x .doc .c $(srcdir)/Makefile.in: $(srcdir)/Makefile.am $(top_srcdir)/common.mk $(am__configure_deps) @for dep in $?; do \ case '$(am__configure_deps)' in \ *$$dep*) \ ( cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh ) \ && { if test -f $@; then exit 0; else break; fi; }; \ exit 1;; \ esac; \ done; \ echo ' cd $(top_srcdir) && $(AUTOMAKE) --gnu glib/gnome/Makefile'; \ $(am__cd) $(top_srcdir) && \ $(AUTOMAKE) --gnu glib/gnome/Makefile .PRECIOUS: Makefile Makefile: $(srcdir)/Makefile.in $(top_builddir)/config.status @case '$?' in \ *config.status*) \ cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh;; \ *) \ echo ' cd $(top_builddir) && $(SHELL) ./config.status $(subdir)/$@ $(am__depfiles_maybe)'; \ cd $(top_builddir) && $(SHELL) ./config.status $(subdir)/$@ $(am__depfiles_maybe);; \ esac; $(top_srcdir)/common.mk: $(top_builddir)/config.status: $(top_srcdir)/configure $(CONFIG_STATUS_DEPENDENCIES) cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh $(top_srcdir)/configure: $(am__configure_deps) cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh $(ACLOCAL_M4): $(am__aclocal_m4_deps) cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh $(am__aclocal_m4_deps): mostlyclean-libtool: -rm -f *.lo clean-libtool: -rm -rf .libs _libs install-guilemoduleDATA: $(guilemodule_DATA) @$(NORMAL_INSTALL) @list='$(guilemodule_DATA)'; test -n "$(guilemoduledir)" || list=; \ if test -n "$$list"; then \ echo " $(MKDIR_P) '$(DESTDIR)$(guilemoduledir)'"; \ $(MKDIR_P) "$(DESTDIR)$(guilemoduledir)" || exit 1; \ fi; \ for p in $$list; do \ if test -f "$$p"; then d=; else d="$(srcdir)/"; fi; \ echo "$$d$$p"; \ done | $(am__base_list) | \ while read files; do \ echo " $(INSTALL_DATA) $$files '$(DESTDIR)$(guilemoduledir)'"; \ $(INSTALL_DATA) $$files "$(DESTDIR)$(guilemoduledir)" || exit $$?; \ done uninstall-guilemoduleDATA: @$(NORMAL_UNINSTALL) @list='$(guilemodule_DATA)'; test -n "$(guilemoduledir)" || list=; \ files=`for p in $$list; do echo $$p; done | sed -e 's|^.*/||'`; \ dir='$(DESTDIR)$(guilemoduledir)'; $(am__uninstall_files_from_dir) # This directory's subdirectories are mostly independent; you can cd # into them and run `make' without going through this Makefile. # To change the values of `make' variables: instead of editing Makefiles, # (1) if the variable is set in `config.status', edit `config.status' # (which will cause the Makefiles to be regenerated when you run `make'); # (2) otherwise, pass the desired values on the `make' command line. $(RECURSIVE_TARGETS): @fail= failcom='exit 1'; \ for f in x $$MAKEFLAGS; do \ case $$f in \ *=* | --[!k]*);; \ *k*) failcom='fail=yes';; \ esac; \ done; \ dot_seen=no; \ target=`echo $@ | sed s/-recursive//`; \ list='$(SUBDIRS)'; for subdir in $$list; do \ echo "Making $$target in $$subdir"; \ if test "$$subdir" = "."; then \ dot_seen=yes; \ local_target="$$target-am"; \ else \ local_target="$$target"; \ fi; \ ($(am__cd) $$subdir && $(MAKE) $(AM_MAKEFLAGS) $$local_target) \ || eval $$failcom; \ done; \ if test "$$dot_seen" = "no"; then \ $(MAKE) $(AM_MAKEFLAGS) "$$target-am" || exit 1; \ fi; test -z "$$fail" $(RECURSIVE_CLEAN_TARGETS): @fail= failcom='exit 1'; \ for f in x $$MAKEFLAGS; do \ case $$f in \ *=* | --[!k]*);; \ *k*) failcom='fail=yes';; \ esac; \ done; \ dot_seen=no; \ case "$@" in \ distclean-* | maintainer-clean-*) list='$(DIST_SUBDIRS)' ;; \ *) list='$(SUBDIRS)' ;; \ esac; \ rev=''; for subdir in $$list; do \ if test "$$subdir" = "."; then :; else \ rev="$$subdir $$rev"; \ fi; \ done; \ rev="$$rev ."; \ target=`echo $@ | sed s/-recursive//`; \ for subdir in $$rev; do \ echo "Making $$target in $$subdir"; \ if test "$$subdir" = "."; then \ local_target="$$target-am"; \ else \ local_target="$$target"; \ fi; \ ($(am__cd) $$subdir && $(MAKE) $(AM_MAKEFLAGS) $$local_target) \ || eval $$failcom; \ done && test -z "$$fail" tags-recursive: list='$(SUBDIRS)'; for subdir in $$list; do \ test "$$subdir" = . || ($(am__cd) $$subdir && $(MAKE) $(AM_MAKEFLAGS) tags); \ done ctags-recursive: list='$(SUBDIRS)'; for subdir in $$list; do \ test "$$subdir" = . || ($(am__cd) $$subdir && $(MAKE) $(AM_MAKEFLAGS) ctags); \ done ID: $(HEADERS) $(SOURCES) $(LISP) $(TAGS_FILES) list='$(SOURCES) $(HEADERS) $(LISP) $(TAGS_FILES)'; \ unique=`for i in $$list; do \ if test -f "$$i"; then echo $$i; else echo $(srcdir)/$$i; fi; \ done | \ $(AWK) '{ files[$$0] = 1; nonempty = 1; } \ END { if (nonempty) { for (i in files) print i; }; }'`; \ mkid -fID $$unique tags: TAGS TAGS: tags-recursive $(HEADERS) $(SOURCES) $(TAGS_DEPENDENCIES) \ $(TAGS_FILES) $(LISP) set x; \ here=`pwd`; \ if ($(ETAGS) --etags-include --version) >/dev/null 2>&1; then \ include_option=--etags-include; \ empty_fix=.; \ else \ include_option=--include; \ empty_fix=; \ fi; \ list='$(SUBDIRS)'; for subdir in $$list; do \ if test "$$subdir" = .; then :; else \ test ! -f $$subdir/TAGS || \ set "$$@" "$$include_option=$$here/$$subdir/TAGS"; \ fi; \ done; \ list='$(SOURCES) $(HEADERS) $(LISP) $(TAGS_FILES)'; \ unique=`for i in $$list; do \ if test -f "$$i"; then echo $$i; else echo $(srcdir)/$$i; fi; \ done | \ $(AWK) '{ files[$$0] = 1; nonempty = 1; } \ END { if (nonempty) { for (i in files) print i; }; }'`; \ shift; \ if test -z "$(ETAGS_ARGS)$$*$$unique"; then :; else \ test -n "$$unique" || unique=$$empty_fix; \ if test $$# -gt 0; then \ $(ETAGS) $(ETAGSFLAGS) $(AM_ETAGSFLAGS) $(ETAGS_ARGS) \ "$$@" $$unique; \ else \ $(ETAGS) $(ETAGSFLAGS) $(AM_ETAGSFLAGS) $(ETAGS_ARGS) \ $$unique; \ fi; \ fi ctags: CTAGS CTAGS: ctags-recursive $(HEADERS) $(SOURCES) $(TAGS_DEPENDENCIES) \ $(TAGS_FILES) $(LISP) list='$(SOURCES) $(HEADERS) $(LISP) $(TAGS_FILES)'; \ unique=`for i in $$list; do \ if test -f "$$i"; then echo $$i; else echo $(srcdir)/$$i; fi; \ done | \ $(AWK) '{ files[$$0] = 1; nonempty = 1; } \ END { if (nonempty) { for (i in files) print i; }; }'`; \ test -z "$(CTAGS_ARGS)$$unique" \ || $(CTAGS) $(CTAGSFLAGS) $(AM_CTAGSFLAGS) $(CTAGS_ARGS) \ $$unique GTAGS: here=`$(am__cd) $(top_builddir) && pwd` \ && $(am__cd) $(top_srcdir) \ && gtags -i $(GTAGS_ARGS) "$$here" distclean-tags: -rm -f TAGS ID GTAGS GRTAGS GSYMS GPATH tags distdir: $(DISTFILES) @srcdirstrip=`echo "$(srcdir)" | sed 's/[].[^$$\\*]/\\\\&/g'`; \ topsrcdirstrip=`echo "$(top_srcdir)" | sed 's/[].[^$$\\*]/\\\\&/g'`; \ list='$(DISTFILES)'; \ dist_files=`for file in $$list; do echo $$file; done | \ sed -e "s|^$$srcdirstrip/||;t" \ -e "s|^$$topsrcdirstrip/|$(top_builddir)/|;t"`; \ case $$dist_files in \ */*) $(MKDIR_P) `echo "$$dist_files" | \ sed '/\//!d;s|^|$(distdir)/|;s,/[^/]*$$,,' | \ sort -u` ;; \ esac; \ for file in $$dist_files; do \ if test -f $$file || test -d $$file; then d=.; else d=$(srcdir); fi; \ if test -d $$d/$$file; then \ dir=`echo "/$$file" | sed -e 's,/[^/]*$$,,'`; \ if test -d "$(distdir)/$$file"; then \ find "$(distdir)/$$file" -type d ! -perm -700 -exec chmod u+rwx {} \;; \ fi; \ if test -d $(srcdir)/$$file && test $$d != $(srcdir); then \ cp -fpR $(srcdir)/$$file "$(distdir)$$dir" || exit 1; \ find "$(distdir)/$$file" -type d ! -perm -700 -exec chmod u+rwx {} \;; \ fi; \ cp -fpR $$d/$$file "$(distdir)$$dir" || exit 1; \ else \ test -f "$(distdir)/$$file" \ || cp -p $$d/$$file "$(distdir)/$$file" \ || exit 1; \ fi; \ done @list='$(DIST_SUBDIRS)'; for subdir in $$list; do \ if test "$$subdir" = .; then :; else \ $(am__make_dryrun) \ || test -d "$(distdir)/$$subdir" \ || $(MKDIR_P) "$(distdir)/$$subdir" \ || exit 1; \ dir1=$$subdir; dir2="$(distdir)/$$subdir"; \ $(am__relativize); \ new_distdir=$$reldir; \ dir1=$$subdir; dir2="$(top_distdir)"; \ $(am__relativize); \ new_top_distdir=$$reldir; \ echo " (cd $$subdir && $(MAKE) $(AM_MAKEFLAGS) top_distdir="$$new_top_distdir" distdir="$$new_distdir" \\"; \ echo " am__remove_distdir=: am__skip_length_check=: am__skip_mode_fix=: distdir)"; \ ($(am__cd) $$subdir && \ $(MAKE) $(AM_MAKEFLAGS) \ top_distdir="$$new_top_distdir" \ distdir="$$new_distdir" \ am__remove_distdir=: \ am__skip_length_check=: \ am__skip_mode_fix=: \ distdir) \ || exit 1; \ fi; \ done check-am: all-am check: check-recursive all-am: Makefile $(DATA) installdirs: installdirs-recursive installdirs-am: for dir in "$(DESTDIR)$(guilemoduledir)"; do \ test -z "$$dir" || $(MKDIR_P) "$$dir"; \ done install: install-recursive install-exec: install-exec-recursive install-data: install-data-recursive uninstall: uninstall-recursive install-am: all-am @$(MAKE) $(AM_MAKEFLAGS) install-exec-am install-data-am installcheck: installcheck-recursive install-strip: if test -z '$(STRIP)'; then \ $(MAKE) $(AM_MAKEFLAGS) INSTALL_PROGRAM="$(INSTALL_STRIP_PROGRAM)" \ install_sh_PROGRAM="$(INSTALL_STRIP_PROGRAM)" INSTALL_STRIP_FLAG=-s \ install; \ else \ $(MAKE) $(AM_MAKEFLAGS) INSTALL_PROGRAM="$(INSTALL_STRIP_PROGRAM)" \ install_sh_PROGRAM="$(INSTALL_STRIP_PROGRAM)" INSTALL_STRIP_FLAG=-s \ "INSTALL_PROGRAM_ENV=STRIPPROG='$(STRIP)'" install; \ fi mostlyclean-generic: clean-generic: distclean-generic: -test -z "$(CONFIG_CLEAN_FILES)" || rm -f $(CONFIG_CLEAN_FILES) -test . = "$(srcdir)" || test -z "$(CONFIG_CLEAN_VPATH_FILES)" || rm -f $(CONFIG_CLEAN_VPATH_FILES) maintainer-clean-generic: @echo "This command is intended for maintainers to use" @echo "it deletes files that may require special tools to rebuild." clean: clean-recursive clean-am: clean-generic clean-libtool mostlyclean-am distclean: distclean-recursive -rm -f Makefile distclean-am: clean-am distclean-generic distclean-tags dvi: dvi-recursive dvi-am: html: html-recursive html-am: info: info-recursive info-am: install-data-am: install-guilemoduleDATA install-dvi: install-dvi-recursive install-dvi-am: install-exec-am: install-html: install-html-recursive install-html-am: install-info: install-info-recursive install-info-am: install-man: install-pdf: install-pdf-recursive install-pdf-am: install-ps: install-ps-recursive install-ps-am: installcheck-am: maintainer-clean: maintainer-clean-recursive -rm -f Makefile maintainer-clean-am: distclean-am maintainer-clean-generic mostlyclean: mostlyclean-recursive mostlyclean-am: mostlyclean-generic mostlyclean-libtool pdf: pdf-recursive pdf-am: ps: ps-recursive ps-am: uninstall-am: uninstall-guilemoduleDATA .MAKE: $(RECURSIVE_CLEAN_TARGETS) $(RECURSIVE_TARGETS) ctags-recursive \ install-am install-strip tags-recursive .PHONY: $(RECURSIVE_CLEAN_TARGETS) $(RECURSIVE_TARGETS) CTAGS GTAGS \ all all-am check check-am clean clean-generic clean-libtool \ ctags ctags-recursive distclean distclean-generic \ distclean-libtool distclean-tags distdir dvi dvi-am html \ html-am info info-am install install-am install-data \ install-data-am install-dvi install-dvi-am install-exec \ install-exec-am install-guilemoduleDATA install-html \ install-html-am install-info install-info-am install-man \ install-pdf install-pdf-am install-ps install-ps-am \ install-strip installcheck installcheck-am installdirs \ installdirs-am maintainer-clean maintainer-clean-generic \ mostlyclean mostlyclean-generic mostlyclean-libtool pdf pdf-am \ ps ps-am tags tags-recursive uninstall uninstall-am \ uninstall-guilemoduleDATA export GUILE_LOAD_PATH .c.x: guile-snarf $(GUILE_SNARF_CFLAGS) $< > $@ \ || { rm $@; false; } .c.doc: $(CPP) -DSCM_MAGIC_SNARF_DOCS $(GUILE_SNARF_CFLAGS) $< \ | grep -E '(\^\^ {|\^\^ })' > $@ || { rm $@; false; } %.scm guile-gnome-gw-%.c: %-spec.scm guile $(GUILE_FLAGS) -c \ "(debug-set! stack 400000) \ (use-modules (gnome-@API_VERSION@)) \ (use-modules (g-wrap)) \ (use-modules (gnome gw $*-spec)) \ (generate-wrapset 'guile 'gnome-$* \"guile-gnome-gw-$*\")" mv guile-gnome-gw-$*.scm $*.scm %-@API_VERSION@.pc: %.pc cp $< $@ %-@API_VERSION@-uninstalled.pc: %-uninstalled.pc cp $< $@ # Tell versions [3.59,3.63) of GNU make to not export all variables. # Otherwise a system limit (for SysV at least) may be exceeded. .NOEXPORT: guile-gnome-platform-2.16.2/glib/gnome/overrides/0000755000175000017500000000000011752546500022215 5ustar00wingowingo00000000000000guile-gnome-platform-2.16.2/glib/gnome/overrides/Makefile.am0000644000175000017500000000022711670374302024250 0ustar00wingowingo00000000000000include $(top_srcdir)/common.mk moduledir = $(guilemoduledir)/overrides module_DATA = glib.defs glib.defs-type-ignores EXTRA_DIST = $(module_DATA) guile-gnome-platform-2.16.2/glib/gnome/overrides/Makefile.in0000644000175000017500000004124111752520660024263 0ustar00wingowingo00000000000000# Makefile.in generated by automake 1.11.5 from Makefile.am. # @configure_input@ # Copyright (C) 1994, 1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, # 2003, 2004, 2005, 2006, 2007, 2008, 2009, 2010, 2011 Free Software # Foundation, Inc. # This Makefile.in is free software; the Free Software Foundation # gives unlimited permission to copy and/or distribute it, # with or without modifications, as long as this notice is preserved. # This program is distributed in the hope that it will be useful, # but WITHOUT ANY WARRANTY, to the extent permitted by law; without # even the implied warranty of MERCHANTABILITY or FITNESS FOR A # PARTICULAR PURPOSE. @SET_MAKE@ # guile-gnome # Copyright (C) 2003,2004,2009,2012 Free Software Foundation, Inc. # This program is free software; you can redistribute it and/or # modify it under the terms of the GNU General Public License as # published by the Free Software Foundation; either version 2 of # the License, or (at your option) any later version. # This program is distributed in the hope that it will be useful, # but WITHOUT ANY WARRANTY; without even the implied warranty of # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the # GNU General Public License for more details. # You should have received a copy of the GNU General Public License # along with this program; if not, contact: # Free Software Foundation Voice: +1-617-542-5942 # 59 Temple Place - Suite 330 Fax: +1-617-542-2652 # Boston, MA 02111-1307, USA gnu@gnu.org # # Makefile snippet # VPATH = @srcdir@ am__make_dryrun = \ { \ am__dry=no; \ case $$MAKEFLAGS in \ *\\[\ \ ]*) \ echo 'am--echo: ; @echo "AM" OK' | $(MAKE) -f - 2>/dev/null \ | grep '^AM OK$$' >/dev/null || am__dry=yes;; \ *) \ for am__flg in $$MAKEFLAGS; do \ case $$am__flg in \ *=*|--*) ;; \ *n*) am__dry=yes; break;; \ esac; \ done;; \ esac; \ test $$am__dry = yes; \ } pkgdatadir = $(datadir)/@PACKAGE@ pkgincludedir = $(includedir)/@PACKAGE@ pkglibdir = $(libdir)/@PACKAGE@ pkglibexecdir = $(libexecdir)/@PACKAGE@ am__cd = CDPATH="$${ZSH_VERSION+.}$(PATH_SEPARATOR)" && cd install_sh_DATA = $(install_sh) -c -m 644 install_sh_PROGRAM = $(install_sh) -c install_sh_SCRIPT = $(install_sh) -c INSTALL_HEADER = $(INSTALL_DATA) transform = $(program_transform_name) NORMAL_INSTALL = : PRE_INSTALL = : POST_INSTALL = : NORMAL_UNINSTALL = : PRE_UNINSTALL = : POST_UNINSTALL = : build_triplet = @build@ host_triplet = @host@ DIST_COMMON = $(srcdir)/Makefile.am $(srcdir)/Makefile.in \ $(top_srcdir)/common.mk subdir = glib/gnome/overrides ACLOCAL_M4 = $(top_srcdir)/aclocal.m4 am__aclocal_m4_deps = $(top_srcdir)/configure.ac am__configure_deps = $(am__aclocal_m4_deps) $(CONFIGURE_DEPENDENCIES) \ $(ACLOCAL_M4) mkinstalldirs = $(install_sh) -d CONFIG_HEADER = $(top_builddir)/config.h CONFIG_CLEAN_FILES = CONFIG_CLEAN_VPATH_FILES = SOURCES = DIST_SOURCES = am__can_run_installinfo = \ case $$AM_UPDATE_INFO_DIR in \ n|no|NO) false;; \ *) (install-info --version) >/dev/null 2>&1;; \ esac am__vpath_adj_setup = srcdirstrip=`echo "$(srcdir)" | sed 's|.|.|g'`; am__vpath_adj = case $$p in \ $(srcdir)/*) f=`echo "$$p" | sed "s|^$$srcdirstrip/||"`;; \ *) f=$$p;; \ esac; am__strip_dir = f=`echo $$p | sed -e 's|^.*/||'`; am__install_max = 40 am__nobase_strip_setup = \ srcdirstrip=`echo "$(srcdir)" | sed 's/[].[^$$\\*|]/\\\\&/g'` am__nobase_strip = \ for p in $$list; do echo "$$p"; done | sed -e "s|$$srcdirstrip/||" am__nobase_list = $(am__nobase_strip_setup); \ for p in $$list; do echo "$$p $$p"; done | \ sed "s| $$srcdirstrip/| |;"' / .*\//!s/ .*/ ./; s,\( .*\)/[^/]*$$,\1,' | \ $(AWK) 'BEGIN { files["."] = "" } { files[$$2] = files[$$2] " " $$1; \ if (++n[$$2] == $(am__install_max)) \ { print $$2, files[$$2]; n[$$2] = 0; files[$$2] = "" } } \ END { for (dir in files) print dir, files[dir] }' am__base_list = \ sed '$$!N;$$!N;$$!N;$$!N;$$!N;$$!N;$$!N;s/\n/ /g' | \ sed '$$!N;$$!N;$$!N;$$!N;s/\n/ /g' am__uninstall_files_from_dir = { \ test -z "$$files" \ || { test ! -d "$$dir" && test ! -f "$$dir" && test ! -r "$$dir"; } \ || { echo " ( cd '$$dir' && rm -f" $$files ")"; \ $(am__cd) "$$dir" && rm -f $$files; }; \ } am__installdirs = "$(DESTDIR)$(moduledir)" DATA = $(module_DATA) DISTFILES = $(DIST_COMMON) $(DIST_SOURCES) $(TEXINFOS) $(EXTRA_DIST) ACLOCAL = @ACLOCAL@ AG_PKG_CONFIG_PATH = @AG_PKG_CONFIG_PATH@ AMTAR = @AMTAR@ API_VERSION = @API_VERSION@ AR = @AR@ ATK_CFLAGS = @ATK_CFLAGS@ ATK_LIBS = @ATK_LIBS@ AUTOCONF = @AUTOCONF@ AUTOHEADER = @AUTOHEADER@ AUTOMAKE = @AUTOMAKE@ AWK = @AWK@ BONOBO_IDL_DIR = @BONOBO_IDL_DIR@ CANVAS_CFLAGS = @CANVAS_CFLAGS@ CANVAS_LIBS = @CANVAS_LIBS@ CC = @CC@ CCDEPMODE = @CCDEPMODE@ CFLAGS = @CFLAGS@ CORBA_CFLAGS = @CORBA_CFLAGS@ CORBA_LIBS = @CORBA_LIBS@ CPP = @CPP@ CPPFLAGS = @CPPFLAGS@ CYGPATH_W = @CYGPATH_W@ DEFS = @DEFS@ DEPDIR = @DEPDIR@ DLLTOOL = @DLLTOOL@ DSYMUTIL = @DSYMUTIL@ DUMPBIN = @DUMPBIN@ ECHO_C = @ECHO_C@ ECHO_N = @ECHO_N@ ECHO_T = @ECHO_T@ EGREP = @EGREP@ EXEEXT = @EXEEXT@ FGREP = @FGREP@ GCONF_CFLAGS = @GCONF_CFLAGS@ GCONF_LIBS = @GCONF_LIBS@ GDK_CFLAGS = @GDK_CFLAGS@ GDK_LIBS = @GDK_LIBS@ GDK_PIXBUF_CFLAGS = @GDK_PIXBUF_CFLAGS@ GDK_PIXBUF_LIBS = @GDK_PIXBUF_LIBS@ GLIB_CFLAGS = @GLIB_CFLAGS@ GLIB_LIBS = @GLIB_LIBS@ GNOMEUI_DEPRECATION_FLAGS = @GNOMEUI_DEPRECATION_FLAGS@ GNOME_VFS_CFLAGS = @GNOME_VFS_CFLAGS@ GNOME_VFS_DEPRECATED_CFLAGS = @GNOME_VFS_DEPRECATED_CFLAGS@ GNOME_VFS_LIBS = @GNOME_VFS_LIBS@ GOBJECT_CFLAGS = @GOBJECT_CFLAGS@ GOBJECT_LIBS = @GOBJECT_LIBS@ GREP = @GREP@ GTHREAD_CFLAGS = @GTHREAD_CFLAGS@ GTHREAD_LIBS = @GTHREAD_LIBS@ GTK_CFLAGS = @GTK_CFLAGS@ GTK_DEPRECATED_CFLAGS = @GTK_DEPRECATED_CFLAGS@ GTK_LIBS = @GTK_LIBS@ GUILE_CAIRO_CFLAGS = @GUILE_CAIRO_CFLAGS@ GUILE_CAIRO_LIBS = @GUILE_CAIRO_LIBS@ GUILE_CFLAGS = @GUILE_CFLAGS@ GUILE_EFFECTIVE_VERSION = @GUILE_EFFECTIVE_VERSION@ GUILE_GLIB_CFLAGS = @GUILE_GLIB_CFLAGS@ GUILE_GLIB_LIBS = @GUILE_GLIB_LIBS@ GUILE_LIBS = @GUILE_LIBS@ G_WRAP_CFLAGS = @G_WRAP_CFLAGS@ G_WRAP_LIBS = @G_WRAP_LIBS@ G_WRAP_LIB_DIR = @G_WRAP_LIB_DIR@ G_WRAP_MODULE_DIR = @G_WRAP_MODULE_DIR@ INSTALL = @INSTALL@ INSTALL_DATA = @INSTALL_DATA@ INSTALL_PROGRAM = @INSTALL_PROGRAM@ INSTALL_SCRIPT = @INSTALL_SCRIPT@ INSTALL_STRIP_PROGRAM = @INSTALL_STRIP_PROGRAM@ LD = @LD@ LDFLAGS = @LDFLAGS@ LIBGLADE_CFLAGS = @LIBGLADE_CFLAGS@ LIBGLADE_LIBS = @LIBGLADE_LIBS@ LIBGNOMEUI_CFLAGS = @LIBGNOMEUI_CFLAGS@ LIBGNOMEUI_LIBS = @LIBGNOMEUI_LIBS@ LIBGNOME_CFLAGS = @LIBGNOME_CFLAGS@ LIBGNOME_LIBS = @LIBGNOME_LIBS@ LIBOBJS = @LIBOBJS@ LIBS = @LIBS@ LIBTOOL = @LIBTOOL@ LIPO = @LIPO@ LN_S = @LN_S@ LTLIBOBJS = @LTLIBOBJS@ MAKEINFO = @MAKEINFO@ MANIFEST_TOOL = @MANIFEST_TOOL@ MKDIR_P = @MKDIR_P@ NM = @NM@ NMEDIT = @NMEDIT@ OBJDUMP = @OBJDUMP@ OBJEXT = @OBJEXT@ ORBIT_IDL = @ORBIT_IDL@ OTOOL = @OTOOL@ OTOOL64 = @OTOOL64@ PACKAGE = @PACKAGE@ PACKAGE_BUGREPORT = @PACKAGE_BUGREPORT@ PACKAGE_NAME = @PACKAGE_NAME@ PACKAGE_STRING = @PACKAGE_STRING@ PACKAGE_TARNAME = @PACKAGE_TARNAME@ PACKAGE_URL = @PACKAGE_URL@ PACKAGE_VERSION = @PACKAGE_VERSION@ PANGOCAIRO_CFLAGS = @PANGOCAIRO_CFLAGS@ PANGOCAIRO_LIBS = @PANGOCAIRO_LIBS@ PANGO_CFLAGS = @PANGO_CFLAGS@ PANGO_LIBS = @PANGO_LIBS@ PATH_SEPARATOR = @PATH_SEPARATOR@ PKG_CONFIG = @PKG_CONFIG@ PKG_CONFIG_LIBDIR = @PKG_CONFIG_LIBDIR@ PKG_CONFIG_PATH = @PKG_CONFIG_PATH@ RANLIB = @RANLIB@ SED = @SED@ SET_MAKE = @SET_MAKE@ SHELL = @SHELL@ STRIP = @STRIP@ VERSION = @VERSION@ WARN_CFLAGS = @WARN_CFLAGS@ abs_builddir = @abs_builddir@ abs_srcdir = @abs_srcdir@ abs_top_builddir = @abs_top_builddir@ abs_top_srcdir = @abs_top_srcdir@ ac_ct_AR = @ac_ct_AR@ ac_ct_CC = @ac_ct_CC@ ac_ct_DUMPBIN = @ac_ct_DUMPBIN@ am__include = @am__include@ am__leading_dot = @am__leading_dot@ am__quote = @am__quote@ am__tar = @am__tar@ am__untar = @am__untar@ bindir = @bindir@ build = @build@ build_alias = @build_alias@ build_cpu = @build_cpu@ build_os = @build_os@ build_vendor = @build_vendor@ builddir = @builddir@ datadir = @datadir@ datarootdir = @datarootdir@ docdir = @docdir@ dvidir = @dvidir@ exec_prefix = @exec_prefix@ host = @host@ host_alias = @host_alias@ host_cpu = @host_cpu@ host_os = @host_os@ host_vendor = @host_vendor@ htmldir = @htmldir@ includedir = @includedir@ infodir = @infodir@ install_sh = @install_sh@ libdir = @libdir@ libexecdir = @libexecdir@ localedir = @localedir@ localstatedir = @localstatedir@ mandir = @mandir@ mkdir_p = @mkdir_p@ oldincludedir = @oldincludedir@ pdfdir = @pdfdir@ prefix = @prefix@ program_transform_name = @program_transform_name@ psdir = @psdir@ sbindir = @sbindir@ sharedstatedir = @sharedstatedir@ srcdir = @srcdir@ sysconfdir = @sysconfdir@ target_alias = @target_alias@ top_build_prefix = @top_build_prefix@ top_builddir = @top_builddir@ top_srcdir = @top_srcdir@ guilegnomedir = $(datadir)/guile-gnome-@API_VERSION@ guilemoduledir = $(guilegnomedir)/gnome guilegwmoduledir = $(guilegnomedir)/gnome/gw guilegnomelibdir = $(libdir)/guile-gnome-@API_VERSION@ AM_CFLAGS = -I. -I$(srcdir) $(WARN_CFLAGS) $(DEBUG_CFLAGS) # For overriding from the command line (e.g. --debug) GUILE_FLAGS = SUFFIXES = .x .doc GUILE_SNARF_CFLAGS = $(DEFS) $(AM_CFLAGS) $(GUILE_CFLAGS) $(G_WRAP_CFLAGS) PACKAGES = atk cairo corba defs gconf glib gnome-vfs gtk libglade libgnome libgnomecanvas libgnomeui pango SOURCE_GUILE_PATH = $(shell echo $(addprefix $(top_srcdir)/,$(PACKAGES)) | sed -e 's/ /:/g'):$(srcdir) BUILD_GUILE_PATH = $(if $(filter-out $(top_srcdir),$(top_builddir)),$(shell echo -n $(addprefix $(top_builddir)/,$(PACKAGES)): | sed -e 's/ /:/g'),) GUILE_LOAD_PATH := $(BUILD_GUILE_PATH)$(SOURCE_GUILE_PATH):${G_WRAP_MODULE_DIR}:${GUILE_LOAD_PATH} # Real gnu make foo packages = $(filter-out %-uninstalled,$(patsubst %.pc.in,%,$(notdir $(wildcard $(srcdir)/*.pc.in)))) pcifiles = $(patsubst %,%-@API_VERSION@.pc,$(packages)) pcufiles = $(patsubst %,%-@API_VERSION@-uninstalled.pc,$(packages)) moduledir = $(guilemoduledir)/overrides module_DATA = glib.defs glib.defs-type-ignores EXTRA_DIST = $(module_DATA) all: all-am .SUFFIXES: .SUFFIXES: .x .doc .c $(srcdir)/Makefile.in: $(srcdir)/Makefile.am $(top_srcdir)/common.mk $(am__configure_deps) @for dep in $?; do \ case '$(am__configure_deps)' in \ *$$dep*) \ ( cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh ) \ && { if test -f $@; then exit 0; else break; fi; }; \ exit 1;; \ esac; \ done; \ echo ' cd $(top_srcdir) && $(AUTOMAKE) --gnu glib/gnome/overrides/Makefile'; \ $(am__cd) $(top_srcdir) && \ $(AUTOMAKE) --gnu glib/gnome/overrides/Makefile .PRECIOUS: Makefile Makefile: $(srcdir)/Makefile.in $(top_builddir)/config.status @case '$?' in \ *config.status*) \ cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh;; \ *) \ echo ' cd $(top_builddir) && $(SHELL) ./config.status $(subdir)/$@ $(am__depfiles_maybe)'; \ cd $(top_builddir) && $(SHELL) ./config.status $(subdir)/$@ $(am__depfiles_maybe);; \ esac; $(top_srcdir)/common.mk: $(top_builddir)/config.status: $(top_srcdir)/configure $(CONFIG_STATUS_DEPENDENCIES) cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh $(top_srcdir)/configure: $(am__configure_deps) cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh $(ACLOCAL_M4): $(am__aclocal_m4_deps) cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh $(am__aclocal_m4_deps): mostlyclean-libtool: -rm -f *.lo clean-libtool: -rm -rf .libs _libs install-moduleDATA: $(module_DATA) @$(NORMAL_INSTALL) @list='$(module_DATA)'; test -n "$(moduledir)" || list=; \ if test -n "$$list"; then \ echo " $(MKDIR_P) '$(DESTDIR)$(moduledir)'"; \ $(MKDIR_P) "$(DESTDIR)$(moduledir)" || exit 1; \ fi; \ for p in $$list; do \ if test -f "$$p"; then d=; else d="$(srcdir)/"; fi; \ echo "$$d$$p"; \ done | $(am__base_list) | \ while read files; do \ echo " $(INSTALL_DATA) $$files '$(DESTDIR)$(moduledir)'"; \ $(INSTALL_DATA) $$files "$(DESTDIR)$(moduledir)" || exit $$?; \ done uninstall-moduleDATA: @$(NORMAL_UNINSTALL) @list='$(module_DATA)'; test -n "$(moduledir)" || list=; \ files=`for p in $$list; do echo $$p; done | sed -e 's|^.*/||'`; \ dir='$(DESTDIR)$(moduledir)'; $(am__uninstall_files_from_dir) tags: TAGS TAGS: ctags: CTAGS CTAGS: distdir: $(DISTFILES) @srcdirstrip=`echo "$(srcdir)" | sed 's/[].[^$$\\*]/\\\\&/g'`; \ topsrcdirstrip=`echo "$(top_srcdir)" | sed 's/[].[^$$\\*]/\\\\&/g'`; \ list='$(DISTFILES)'; \ dist_files=`for file in $$list; do echo $$file; done | \ sed -e "s|^$$srcdirstrip/||;t" \ -e "s|^$$topsrcdirstrip/|$(top_builddir)/|;t"`; \ case $$dist_files in \ */*) $(MKDIR_P) `echo "$$dist_files" | \ sed '/\//!d;s|^|$(distdir)/|;s,/[^/]*$$,,' | \ sort -u` ;; \ esac; \ for file in $$dist_files; do \ if test -f $$file || test -d $$file; then d=.; else d=$(srcdir); fi; \ if test -d $$d/$$file; then \ dir=`echo "/$$file" | sed -e 's,/[^/]*$$,,'`; \ if test -d "$(distdir)/$$file"; then \ find "$(distdir)/$$file" -type d ! -perm -700 -exec chmod u+rwx {} \;; \ fi; \ if test -d $(srcdir)/$$file && test $$d != $(srcdir); then \ cp -fpR $(srcdir)/$$file "$(distdir)$$dir" || exit 1; \ find "$(distdir)/$$file" -type d ! -perm -700 -exec chmod u+rwx {} \;; \ fi; \ cp -fpR $$d/$$file "$(distdir)$$dir" || exit 1; \ else \ test -f "$(distdir)/$$file" \ || cp -p $$d/$$file "$(distdir)/$$file" \ || exit 1; \ fi; \ done check-am: all-am check: check-am all-am: Makefile $(DATA) installdirs: for dir in "$(DESTDIR)$(moduledir)"; do \ test -z "$$dir" || $(MKDIR_P) "$$dir"; \ done install: install-am install-exec: install-exec-am install-data: install-data-am uninstall: uninstall-am install-am: all-am @$(MAKE) $(AM_MAKEFLAGS) install-exec-am install-data-am installcheck: installcheck-am install-strip: if test -z '$(STRIP)'; then \ $(MAKE) $(AM_MAKEFLAGS) INSTALL_PROGRAM="$(INSTALL_STRIP_PROGRAM)" \ install_sh_PROGRAM="$(INSTALL_STRIP_PROGRAM)" INSTALL_STRIP_FLAG=-s \ install; \ else \ $(MAKE) $(AM_MAKEFLAGS) INSTALL_PROGRAM="$(INSTALL_STRIP_PROGRAM)" \ install_sh_PROGRAM="$(INSTALL_STRIP_PROGRAM)" INSTALL_STRIP_FLAG=-s \ "INSTALL_PROGRAM_ENV=STRIPPROG='$(STRIP)'" install; \ fi mostlyclean-generic: clean-generic: distclean-generic: -test -z "$(CONFIG_CLEAN_FILES)" || rm -f $(CONFIG_CLEAN_FILES) -test . = "$(srcdir)" || test -z "$(CONFIG_CLEAN_VPATH_FILES)" || rm -f $(CONFIG_CLEAN_VPATH_FILES) maintainer-clean-generic: @echo "This command is intended for maintainers to use" @echo "it deletes files that may require special tools to rebuild." clean: clean-am clean-am: clean-generic clean-libtool mostlyclean-am distclean: distclean-am -rm -f Makefile distclean-am: clean-am distclean-generic dvi: dvi-am dvi-am: html: html-am html-am: info: info-am info-am: install-data-am: install-moduleDATA install-dvi: install-dvi-am install-dvi-am: install-exec-am: install-html: install-html-am install-html-am: install-info: install-info-am install-info-am: install-man: install-pdf: install-pdf-am install-pdf-am: install-ps: install-ps-am install-ps-am: installcheck-am: maintainer-clean: maintainer-clean-am -rm -f Makefile maintainer-clean-am: distclean-am maintainer-clean-generic mostlyclean: mostlyclean-am mostlyclean-am: mostlyclean-generic mostlyclean-libtool pdf: pdf-am pdf-am: ps: ps-am ps-am: uninstall-am: uninstall-moduleDATA .MAKE: install-am install-strip .PHONY: all all-am check check-am clean clean-generic clean-libtool \ distclean distclean-generic distclean-libtool distdir dvi \ dvi-am html html-am info info-am install install-am \ install-data install-data-am install-dvi install-dvi-am \ install-exec install-exec-am install-html install-html-am \ install-info install-info-am install-man install-moduleDATA \ install-pdf install-pdf-am install-ps install-ps-am \ install-strip installcheck installcheck-am installdirs \ maintainer-clean maintainer-clean-generic mostlyclean \ mostlyclean-generic mostlyclean-libtool pdf pdf-am ps ps-am \ uninstall uninstall-am uninstall-moduleDATA export GUILE_LOAD_PATH .c.x: guile-snarf $(GUILE_SNARF_CFLAGS) $< > $@ \ || { rm $@; false; } .c.doc: $(CPP) -DSCM_MAGIC_SNARF_DOCS $(GUILE_SNARF_CFLAGS) $< \ | grep -E '(\^\^ {|\^\^ })' > $@ || { rm $@; false; } %.scm guile-gnome-gw-%.c: %-spec.scm guile $(GUILE_FLAGS) -c \ "(debug-set! stack 400000) \ (use-modules (gnome-@API_VERSION@)) \ (use-modules (g-wrap)) \ (use-modules (gnome gw $*-spec)) \ (generate-wrapset 'guile 'gnome-$* \"guile-gnome-gw-$*\")" mv guile-gnome-gw-$*.scm $*.scm %-@API_VERSION@.pc: %.pc cp $< $@ %-@API_VERSION@-uninstalled.pc: %-uninstalled.pc cp $< $@ # Tell versions [3.59,3.63) of GNU make to not export all variables. # Otherwise a system limit (for SysV at least) may be exceeded. .NOEXPORT: guile-gnome-platform-2.16.2/glib/gnome/overrides/glib.defs0000644000175000017500000003360111670374302023776 0ustar00wingowingo00000000000000;; -*- scheme -*- ;; guile-gnome ;; Copyright (C) 2005 Andreas Rottmann ;; Copyright (C) 2003,2004,2007 Andy Wingo ;; This program is free software; you can redistribute it and/or ;; modify it under the terms of the GNU General Public License as ;; published by the Free Software Foundation; either version 2 of ;; the License, or (at your option) any later version. ;; ;; This program is distributed in the hope that it will be useful, ;; but WITHOUT ANY WARRANTY; without even the implied warranty of ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the ;; GNU General Public License for more details. ;; ;; You should have received a copy of the GNU General Public License ;; along with this program; if not, contact: ;; ;; Free Software Foundation Voice: +1-617-542-5942 ;; 59 Temple Place - Suite 330 Fax: +1-617-542-2652 ;; Boston, MA 02111-1307, USA gnu@gnu.org ;;; Commentary: ;; ;;Custom wrapper definitions. ;; ;;; Code: (define-function g_bookmark_file_load_from_data (c-name "_wrap_g_bookmark_file_load_from_data") (overrides "g_bookmark_file_load_from_data") (return-type "gboolean") (parameters '("GBookmarkFile*" "bookmark") '("const-char*" "data") '("GError**" "error") ) ) (define-function g_bookmark_file_to_data (c-name "_wrap_g_bookmark_file_to_data") (overrides "g_bookmark_file_to_data") (return-type "char*") (parameters '("GBookmarkFile*" "bookmark") '("GError**" "error") ) ) (define-function g_bookmark_file_get_uris (c-name "_wrap_g_bookmark_file_get_uris") (overrides "g_bookmark_file_get_uris") (return-type "SCM") (parameters '("GBookmarkFile*" "bookmark") ) ) (define-function g_bookmark_file_get_groups (c-name "_wrap_g_bookmark_file_get_groups") (overrides "g_bookmark_file_get_groups") (return-type "SCM") (parameters '("GBookmarkFile*" "bookmark") '("const-char*" "uri") '("GError**" "error") ) ) (define-function g_bookmark_file_get_applications (c-name "_wrap_g_bookmark_file_get_applications") (overrides "g_bookmark_file_get_applications") (return-type "SCM") (parameters '("GBookmarkFile*" "bookmark") '("const-char*" "uri") '("GError**" "error") ) ) (define-function g_convert (c-name "_wrap_g_convert") (overrides "g_convert") (return-type "gchar*") (parameters '("const-gchar*" "str") '("const-gchar*" "to_codeset") '("const-gchar*" "from_codeset") '("GError**" "error") ) ) (define-function g_convert_with_fallback (c-name "_wrap_g_convert_with_fallback") (overrides "g_convert_with_fallback") (return-type "gchar*") (parameters '("const-gchar*" "str") '("const-gchar*" "to_codeset") '("const-gchar*" "from_codeset") '("gchar*" "fallback") '("GError**" "error") ) ) (define-function g_io_channel_new_file (c-name "g_io_channel_new_file") (overrides "g_io_channel_new_file") (caller-owns-return #t) (return-type "GIOChannel*") (parameters '("const-gchar*" "filename") '("const-gchar*" "mode") '("GError**" "error") ) ) (define-function g_io_channel_unix_new (c-name "g_io_channel_unix_new") (overrides "g_io_channel_unix_new") (caller-owns-return #t) (return-type "GIOChannel*") (parameters '("int" "fd") ) ) (define-method g_io_channel_read_line (of-object "GIOChannel") (c-name "_wrap_g_io_channel_read_line") (overrides "g_io_channel_read_line") (return-type "GIOStatus") (parameters '("gchar**" "string_return") '("GError**" "error") ) ) (define-method iteration (of-object "GMainContext") (c-name "g_main_context_iteration") (overrides "g_main_context_iteration") (return-type "gboolean") (parameters '("gboolean" "may_block" (default "TRUE")) ) ) (define-function g_main_loop_new (c-name "g_main_loop_new") (overrides "g_main_loop_new") (is-constructor-of "GMainLoop") (return-type "GMainLoop*") (parameters '("GMainContext*" "context" (null-ok) (default "NULL")) '("gboolean" "is_running" (default "TRUE")) ) ) (define-method attach (of-object "GSource") (c-name "g_source_attach") (overrides "g_source_attach") (return-type "guint") (parameters '("GMainContext*" "context" (null-ok) (default "NULL")) ) ) (define-method seek_position (of-object "GIOChannel") (c-name "g_io_channel_seek_position") (overrides "g_io_channel_seek_position") (return-type "GIOStatus") (parameters '("gint64" "offset") '("GSeekType" "type" (default "G_SEEK_SET")) '("GError**" "error") ) ) (define-function g_io_channel_new_file (c-name "g_io_channel_new_file") (overrides "g_io_channel_new_file") (return-type "GIOChannel*") (parameters '("const-gchar*" "filename") '("const-gchar*" "mode" (default "\"r\"")) '("GError**" "error") ) ) (define-function g_string_new (c-name "g_string_new") (overrides "g_string_new") (is-constructor-of "GString") (return-type "GString*") (parameters '("const-gchar*" "init" (default "\"\"")) ) ) ;; use our version that processes interrupts (define-method run (of-object "GMainLoop") (c-name "_wrap_g_main_loop_run") (overrides "g_main_loop_run") (leave-guile-mode #f) (return-type "none")) (define-method string (of-object "GString") (c-name "_wrap_g_string_get_str") (overrides "g_string_get_str") (leave-guile-mode #f) (return-type "SCM")) (define-function g_io_add_watch (c-name "_wrap_g_io_add_watch") (overrides "g_io_add_watch") (return-type "gboolean") (leave-guile-mode #f) (parameters '("GIOChannel*" "channel") '("GIOCondition" "condition") '("SCM" "func"))) (define-function g_utf8_get_char (c-name "_wrap_g_utf8_get_char") (overrides "g_utf8_get_char") (return-type "gunichar") (parameters '("const-gchar*" "p") ) ) (define-function g_utf8_find_next_char (c-name "_wrap_g_utf8_find_next_char") (overrides "g_utf8_find_next_char") (return-type "const-char*") (parameters '("const-gchar*" "p") ) ) (define-function g_utf8_strlen (c-name "_wrap_g_utf8_strlen") (overrides "g_utf8_strlen") (return-type "long") (parameters '("const-gchar*" "p") ) ) (define-function g_utf8_strchr (c-name "_wrap_g_utf8_strchr") (overrides "g_utf8_strchr") (return-type "const-char*") (parameters '("const-gchar*" "p") '("gunichar" "c") ) ) (define-function g_utf8_strrchr (c-name "_wrap_g_utf8_strrchr") (overrides "g_utf8_strrchr") (return-type "const-char*") (parameters '("const-gchar*" "p") '("gunichar" "c") ) ) (define-function g_utf8_strreverse (c-name "_wrap_g_utf8_strreverse") (overrides "g_utf8_strreverse") (return-type "char*") (parameters '("const-gchar*" "p") ) ) (define-function g_utf8_validate (c-name "_wrap_g_utf8_validate") (overrides "g_utf8_validate") (return-type "gboolean") (parameters '("const-gchar*" "p") ) ) (define-function g_utf8_strup (c-name "_wrap_g_utf8_strup") (overrides "g_utf8_strup") (return-type "char*") (parameters '("const-gchar*" "p") ) ) (define-function g_utf8_strdown (c-name "_wrap_g_utf8_strdown") (overrides "g_utf8_strdown") (return-type "char*") (parameters '("const-gchar*" "p") ) ) (define-function g_utf8_casefold (c-name "_wrap_g_utf8_casefold") (overrides "g_utf8_casefold") (return-type "char*") (parameters '("const-gchar*" "p") ) ) (define-function g_utf8_normalize (c-name "_wrap_g_utf8_normalize") (overrides "g_utf8_normalize") (return-type "char*") (parameters '("const-gchar*" "p") '("GNormalizeMode" "mode") ) ) (define-function g_utf8_collate_key (c-name "_wrap_g_utf8_collate_key") (overrides "g_utf8_collate_key") (return-type "char*") (parameters '("const-gchar*" "p") ) ) (define-function g_utf8_collate_key_for_filename (c-name "_wrap_g_utf8_collate_key_for_filename") (overrides "g_utf8_collate_key_for_filename") (return-type "char*") (parameters '("const-gchar*" "p") ) ) (define-function g_unichar_to_utf8 (c-name "_wrap_g_unichar_to_utf8") (overrides "g_unichar_to_utf8") (return-type "char*") (parameters '("gunichar" "c") ) ) (define-function g_utf8_to_utf16 (c-name "_wrap_g_utf8_to_utf16") (overrides "g_utf8_to_utf16") (return-type "gunichar2*") (parameters '("const-gchar*" "str") '("GError**" "error") ) ) (define-function g_utf8_to_ucs4 (c-name "_wrap_g_utf8_to_ucs4") (overrides "g_utf8_to_ucs4") (return-type "gunichar*") (parameters '("const-gchar*" "str") '("GError**" "error") ) ) (define-function g_utf16_to_ucs4 (c-name "_wrap_g_utf16_to_ucs4") (overrides "g_utf16_to_ucs4") (return-type "gunichar*") (parameters '("const-gunichar2*" "str") '("GError**" "error") ) ) (define-function g_utf16_to_utf8 (c-name "_wrap_g_utf16_to_utf8") (overrides "g_utf16_to_utf8") (return-type "gchar*") (parameters '("const-gunichar2*" "str") '("GError**" "error") ) ) (define-function g_ucs4_to_utf16 (c-name "_wrap_g_ucs4_to_utf16") (overrides "g_ucs4_to_utf16") (return-type "gunichar2*") (parameters '("const-gunichar*" "str") '("GError**" "error") ) ) (define-function g_ucs4_to_utf8 (c-name "_wrap_g_ucs4_to_utf8") (overrides "g_ucs4_to_utf8") (return-type "gchar*") (parameters '("const-gunichar*" "str") '("GError**" "error") ) ) (ignore-glob "_*" "*_copy" "*_newv" "*_valist" "*_setv" "*_user_data" "*_func" "*_free" "*_ref" "*_unref" "*win32*" "g_array_*" "g_ascii_*" "g_async_queue_*" "g_atomic_*" "g_base64*" "g_bit_*" "g_build_*" "g_byte_array_*" "g_cache_*" "g_child_watch_add*" "g_completion_*" "g_datalist_*" "g_dataset_*" "g_date_*" "g_dir_*" "g_error_*" "g_hash_table_*" "g_hook_*" "g_iconv*" "g_idle_add*" "g_idle_remove*" "g_int_*" "g_io_add_watch_full" "g_io_channel_read*" "g_io_channel_write*" "g_io_channel_seek*" "g_key_file_*" "g_list_*" "g_log*" "g_malloc*" "g_mapped_file_*" "g_markup_*" "g_mem_*" "g_mkdir*" "g_node_*" "g_on_error_*" "g_option_*" "g_parse_debug_string" "g_path*" "g_pattern_*" "g_printf*" "g_ptr_array_*" "g_queue_*" "g_rand_*" "g_random_*" "g_relation_*" "g_scanner_*" "g_slice_*" "g_slist_*" "g_snprintf" "g_source_set_callback*" "g_spawn_*" "g_static_*" "g_str*" "g_thread_*" "g_time_*" "g_timeout_add*" "g_timeout_remove*" "g_timer_*" "g_trash_stack_*" "g_tree_*" "g_try_*" "g_tuples_*") (ignore "alloca" "atexit" "g_access" "g_assert_warning" "g_atexit" "g_basename" "g_base64_encode_close" "g_blow_chunks" "g_bookmark_file_set_groups" "g_chdir" "g_chmod" "g_clear_error" "g_convert_with_iconv" "g_creat" "g_direct_equal" "g_direct_hash" "g_error" "g_file_get_contents" "g_file_set_contents" "g_file_test" "g_file_open_tmp" "g_file_read_link" "g_find_program_in_path" "g_fopen" "g_fprintf" "g_freopen" "g_getenv" "g_get_charset" "g_get_current_dir" "g_get_filename_charsets" "g_get_language_names" "g_get_system_data_dirs" "g_intern_static_string" "g_intern_string" "g_io_channel_init" "g_io_channel_ref" "g_io_channel_unref" "g_listenv" "g_lstat" "g_nullify_pointer" "g_main_context_query" "g_main_context_check" "g_main_context_dispatch" "g_main_context_add_poll" "g_main_context_remove_poll" "g_main_context_wait" "g_memdup" "g_mkstemp" "g_once_impl" "g_open" "g_printerr" "g_propagate_error" "g_qsort_with_data" "g_quark_from_static_string" "g_realloc" "g_remove" "g_rename" "g_return_if_fail_warning" "g_rmdir" "g_setenv" "g_set_error" "g_set_print_handler" "g_set_printerr_handler" "g_shell_error_quark" "g_shell_parse_argv" "g_source_new" "g_source_set_funcs" "g_source_add_poll" "g_source_remove_poll" "g_source_get_current_time" "g_spaced_primes_closest" "g_sprintf" "g_stat" "g_stpcpy" "g_unicode_canonical_decomposition" "g_unicode_canonical_ordering" "g_unlink" "g_unsetenv" "g_uri_list_extract_uris" "g_usleep" "g_utf8_get_char_validated" "g_utf8_offset_to_pointer" "g_utf8_pointer_to_offset" "g_utf8_prev_char" "g_utf8_find_prev_char" "g_utf8_strncpy" "g_utf8_to_ucs4_fast" "g_vasprintf" "g_vfprintf" "g_vprintf" "g_vsprintf" "g_vsnprintf" "glib_check_version" "glib_dummy_decl" "guint64" ; h2defs bug with GLIB_VAR ) guile-gnome-platform-2.16.2/glib/gnome/overrides/glib.defs-type-ignores0000644000175000017500000000067311670374302026424 0ustar00wingowingo00000000000000;; -*- scheme -*- (ignore-types "GAsciiType" "GConvertError" "GDateDMY" "GDateMonth" "GDateWeekday" "GErrorType" "GHookFlagMask" "GKeyFileError" "GKeyFileFlags" "GLogLevelFlags" "GMarkupError" "GMarkupParseFlags" "GOnceStatus" "GOptionArg" "GOptionError" "GOptionFlags" "GShellError" "GSliceConfig" "GSpawnError" "GSpawnFlags" "GThreadError" "GThreadPriority" "GTraverseFlags" "GTraverseType") guile-gnome-platform-2.16.2/glib/gnome/gobject/0000755000175000017500000000000011752546500021630 5ustar00wingowingo00000000000000guile-gnome-platform-2.16.2/glib/gnome/gobject/gsignal.scm0000644000175000017500000001557711670374302023775 0ustar00wingowingo00000000000000;; guile-gnome ;; Copyright (C) 2001, 2009 Martin Baulig ;; Copyright (C) 2003,2004 Andy Wingo ;; This program is free software; you can redistribute it and/or ;; modify it under the terms of the GNU General Public License as ;; published by the Free Software Foundation; either version 2 of ;; the License, or (at your option) any later version. ;; ;; This program is distributed in the hope that it will be useful, ;; but WITHOUT ANY WARRANTY; without even the implied warranty of ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the ;; GNU General Public License for more details. ;; ;; You should have received a copy of the GNU General Public License ;; along with this program; if not, contact: ;; ;; Free Software Foundation Voice: +1-617-542-5942 ;; 59 Temple Place - Suite 330 Fax: +1-617-542-2652 ;; Boston, MA 02111-1307, USA gnu@gnu.org ;;; Commentary: ;; ;; GSignal is a mechanism by which code, normally written in C, may ;; expose extension points to which closures can be connected, much like ;; Guile's hooks. Instantiatable types can have signals associated with ;; them; for example, @code{} has an @code{expose} signal ;; that will be ``fired'' at certain well-documented points. ;; ;; Signals are typed. They specify the types of their return value, and ;; the types of their arguments. ;; ;; This module defines routines for introspecting, emitting, connecting ;; to, disconnecting from, blocking, and unblocking signals. ;; Additionally it defines routines to define new signal types on ;; instantiatable types. ;; ;;; Code: (define-module (gnome gobject gsignal) #:use-module (ice-9 optargs) #:use-module (oop goops) #:use-module (gnome gobject utils) #:use-module (gnome gobject config) #:use-module (gnome gobject gtype) #:use-module (gnome gobject gclosure) #:use-module (gnome gobject gvalue) #:export (;; The signal class ;; Introspection gtype-class-get-signals gtype-class-get-signal-names ;; Emission gtype-instance-signal-emit ;; Connection, Disconnection, Blocking, Unblocking gtype-instance-signal-connect gtype-instance-signal-connect-after gsignal-handler-block gsignal-handler-unblock gsignal-handler-disconnect gsignal-handler-connected? ;; Creation gtype-class-create-signal)) (define-class-with-docs () "A @code{} describes a signal on a @code{}: its name, and how it should be called." (id #:init-keyword #:id #:init-value #f) (name #:init-keyword #:name) (interface-type #:init-keyword #:interface-type) (return-type #:init-keyword #:return-type) (param-types #:init-keyword #:param-types) (class-generic #:init-keyword #:class-generic #:init-value #f)) (define-method (initialize (instance ) initargs) (next-method) (with-accessors (id name interface-type return-type param-types class-generic) instance (unless (id instance) (unless (class-generic instance) (set! (class-generic instance) (ensure-generic (lambda args (if #f #f)) (gtype-class-name->method-name (name (interface-type instance)) (name instance))))) (set! (id instance) (gsignal-create instance (make #:func (class-generic instance) #:return-type (return-type instance))))))) (define-method (write (obj ) port) (with-accessors (name interface-type return-type param-types) (format port "#<~a ~a ~a - ~a>" (class-name (class-of obj)) (name obj) (return-type obj) (cons (interface-type obj) (param-types obj))))) (dynamic-call "scm_init_gnome_gobject_signals" (dynamic-link *guile-gnome-gobject-lib-path*)) (define (gtype-class-get-signal-names class) "Returns a vector of signal names belonging to @var{class} and all parent classes." (with-accessors (name) (map name (gtype-class-get-signals class)))) ;;; ;;; {Emission} ;;; ;;; ;;; {Connecting, Disconnecting, Blocking, Unblocking} ;;; (define* (gtype-instance-signal-connect object name func #:optional after? detail) "Connects @var{func} as handler for the @code{} @var{object}'s signal @var{name}. @var{name} should be a symbol. @var{after} is boolean specifying whether the handler is run before (@code{#f}) or after (@code{#t}) the signal's default handler, and @var{detail} is the optional \"detail\" parameter to signal connection, which defaults to @code{#f}. @var{detail} is mostly used when connecting to the @code{notify} signal of @code{}, in which case it should be the symbolic name of the property whose change notifications you are interested in. Returns an integer number which can be used as arugment of @code{gsignal-handler-block}, @code{gsignal-handler-unblock}, @code{gsignal-handler-disconnect} and @code{gsignal-handler-connected?}." (let ((signal (or (gsignal-query (class-of object) name) (gruntime-error "No such signal in class ~S: ~S" (class-of object) name)))) (with-accessors (id return-type param-types) (gtype-instance-signal-connect-closure object (id signal) (make #:func func #:return-type (return-type signal) #:param-types (param-types signal)) after? detail)))) (define* (gtype-instance-signal-connect-after object name func #:optional detail) "Convenience function for calling @code{gtype-instance-signal-connect} with @var{after} = @code{#t}." (gtype-instance-signal-connect object name func #t detail)) ;;; ;;; {Creation and Definition} ;;; ;; fixme: unnecessary? (define (gtype-class-create-signal class name return-type param-types) "Create a new signal associated with the @code{} @var{class}. @var{name} should be a symbol, the name of the signal. @var{return-type} should be a @code{} object. @var{param-types} should be a list of @code{} objects. In a bit of an odd interface, this function will return a new generic function, which will be run as the signal's default handler, whose default method will silently return an unspecified value. The user may define new methods on this generic to provide alternative default handler implementations." (with-accessors (class-generic) (class-generic (make #:name name #:interface-type class #:return-type return-type #:param-types param-types)))) guile-gnome-platform-2.16.2/glib/gnome/gobject/gclosure.c0000644000175000017500000001670711670374302023630 0ustar00wingowingo00000000000000/* -*- Mode: C; c-basic-offset: 4 -*- */ /* guile-gnome * Copyright (C) 2001 Martin Baulig * Copyright (C) 2003,2004,2008 Andy Wingo * * gclosure.c: Support for GClosure * * This program is free software; you can redistribute it and/or * modify it under the terms of the GNU General Public License as * published by the Free Software Foundation; either version 2 of * the License, or (at your option) any later version. * * This program is distributed in the hope that it will be useful, * but WITHOUT ANY WARRANTY; without even the implied warranty of * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the * GNU General Public License for more details. * * You should have received a copy of the GNU General Public License * along with this program; if not, contact: * * Free Software Foundation Voice: +1-617-542-5942 * 59 Temple Place - Suite 330 Fax: +1-617-542-2652 * Boston, MA 02111-1307, USA gnu@gnu.org */ #include #include #include "gc.h" #include "gutil.h" #include "gclosure.h" typedef struct _GuileGClosure GuileGClosure; struct _GuileGClosure { GClosure closure; SCM func; GType rtype; guint n_params; GType *ptypes; }; /* #define DEBUG_PRINT */ #ifdef DEBUG_PRINT #define DEBUG_ALLOC(str, args...) g_print ("I: " str "\n", ##args) #else #define DEBUG_ALLOC(str, args...) #endif typedef struct { GClosure *closure; GValue *return_value; guint n_param_values; const GValue *param_values; gpointer invocation_hint; gpointer marshal_data; } closure_data; static void* scm_gclosure_marshal_with_guile (const closure_data *d) #define FUNC_NAME "%scm-gclosure-marshal" { GuileGClosure *gclosure = (GuileGClosure *) d->closure; SCM params = SCM_EOL, retval; guint i; for (i = 0; i < d->n_param_values; i++) params = scm_cons (scm_c_gvalue_ref (&d->param_values[i]), params); params = scm_reverse_x (params, SCM_EOL); retval = scm_apply (gclosure->func, params, SCM_EOL); if (d->return_value && G_VALUE_TYPE (d->return_value) != G_TYPE_NONE && G_VALUE_TYPE (d->return_value) != G_TYPE_INVALID) scm_c_gvalue_set (d->return_value, retval); return NULL; } #undef FUNC_NAME static void scm_gclosure_marshal (GClosure *closure, GValue *return_value, guint n_param_values, const GValue *param_values, gpointer invocation_hint, gpointer marshal_data) { closure_data data = { closure, return_value, n_param_values, param_values, invocation_hint, marshal_data }; /* GThreadFunc is void* (*func)(void*), just like we need */ scm_with_guile ((GThreadFunc)scm_gclosure_marshal_with_guile, &data); } static void free_closure (gpointer data, GClosure *closure) { GuileGClosure *gclosure = (GuileGClosure*)closure; DEBUG_ALLOC (" unprotecting closure %p of GuileGClosure %p", gclosure->func, gclosure); if (gclosure->ptypes) g_free (gclosure->ptypes); gclosure->ptypes = NULL; scm_glib_gc_unprotect_object (SCM_TO_GPOINTER (((GuileGClosure *) closure)->func)); ((GuileGClosure *) closure)->func = SCM_UNDEFINED; } SCM_DEFINE (scm_sys_gclosure_construct, "%gclosure-construct", 4, 0, 0, (SCM closure, SCM return_type, SCM param_types, SCM func), "") #define FUNC_NAME s_scm_sys_gclosure_construct { GClosure *gclosure; GuileGClosure *ggclosure; GValue *value; GType rtype = G_TYPE_NONE; guint i; SCM walk; SCM_VALIDATE_GVALUE_TYPE_COPY (1, closure, G_TYPE_CLOSURE, value); if (SCM_NFALSEP (return_type)) SCM_VALIDATE_GTYPE_CLASS_COPY (2, return_type, rtype); SCM_VALIDATE_LIST (3, param_types); SCM_VALIDATE_PROC (4, func); gclosure = g_closure_new_simple (sizeof (GuileGClosure), NULL); ggclosure = (GuileGClosure*)gclosure; ggclosure->rtype = rtype; ggclosure->ptypes = g_new (GType, scm_ilength (param_types)); for (i = 0, walk = param_types; SCM_CONSP (walk); walk = scm_cdr (walk), i++) ggclosure->ptypes[i] = scm_c_gtype_class_to_gtype (scm_car (walk)); DEBUG_ALLOC (" protecting new closure %p of GuileGClosure %p", func, closure); scm_glib_gc_protect_object (func); ggclosure->func = func; g_closure_ref (gclosure); g_closure_sink (gclosure); g_closure_set_marshal (gclosure, scm_gclosure_marshal); g_closure_add_invalidate_notifier (gclosure, NULL, free_closure); g_value_take_boxed (value, gclosure); /* closure->ref_count is 1, and is not floating */ return SCM_UNSPECIFIED; } #undef FUNC_NAME static void* scm_closure_primitive_invoke_without_guile (closure_data *args) { g_closure_invoke (args->closure, args->return_value, args->n_param_values, args->param_values, NULL); return NULL; } SCM_DEFINE (scm_gclosure_invoke, "gclosure-invoke", 2, 0, 1, (SCM closure, SCM return_type, SCM args), "Invoke a closure.\n\n" "A @code{} in GLib's abstraction for a callable object. " "This abstraction carries no type information, so the caller must " "supply all arguments as typed instances, which may be " "obtained by the scheme procedure, @code{scm->gvalue}.\n\n" "As you can see, this is a low-level function. In fact, it is " "not used internally by the @code{guile-gobject} bindings.") #define FUNC_NAME s_scm_gclosure_invoke { GClosure *gclosure; GType return_gtype = G_TYPE_NONE; SCM values = SCM_EOL; SCM retval = SCM_UNSPECIFIED; GValue *gvalue, *params, retval_param = { 0, }; long n_params = 0, i; SCM_VALIDATE_GVALUE_TYPE_COPY (1, closure, G_TYPE_CLOSURE, gvalue); gclosure = g_value_get_boxed (gvalue); n_params = scm_ilength (args); params = g_new0 (GValue, n_params); for (i = 0; SCM_CONSP (args); args = scm_cdr (args), i++) { const GValue *peeked; SCM_ASSERT (SCM_GVALUEP (scm_car (args)), scm_car (args), 1+i, FUNC_NAME); peeked = scm_c_gvalue_peek_value (scm_car (args)); g_value_init (¶ms[i], G_VALUE_TYPE (peeked)); g_value_copy (peeked, ¶ms[i]); } if (SCM_NFALSEP (return_type)) { return_gtype = scm_c_gtype_class_to_gtype (return_type); g_value_init (&retval_param, return_gtype); } { closure_data cdata = { gclosure, (G_VALUE_TYPE (&retval_param) ? &retval_param : NULL), n_params, params, NULL, NULL }; scm_without_guile ((GThreadFunc)scm_closure_primitive_invoke_without_guile, &cdata); } if (G_VALUE_TYPE (&retval_param)) { retval = scm_c_gvalue_ref (&retval_param); g_value_unset (&retval_param); } for (i = 0; i < n_params; i++) g_value_unset (¶ms[i]); g_free (params); scm_remember_upto_here_1 (values); return retval; } #undef FUNC_NAME static GType gcc_please_look_the_other_way; void scm_init_gnome_gobject_closures (void) { #ifndef SCM_MAGIC_SNARFER #include "gclosure.x" #endif /* make sure the GClosure type is registered */ gcc_please_look_the_other_way = g_closure_get_type (); } guile-gnome-platform-2.16.2/glib/gnome/gobject/event-repl.scm0000644000175000017500000001006111670374302024411 0ustar00wingowingo00000000000000;; guile-gnome ;; Copyright (C) 1997 Marius Vollmer ;; Copyright (C) 2003,2004 Andy Wingo ;; This program is free software; you can redistribute it and/or ;; modify it under the terms of the GNU General Public License as ;; published by the Free Software Foundation; either version 2 of ;; the License, or (at your option) any later version. ;; ;; This program is distributed in the hope that it will be useful, ;; but WITHOUT ANY WARRANTY; without even the implied warranty of ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the ;; GNU General Public License for more details. ;; ;; You should have received a copy of the GNU General Public License ;; along with this program; if not, contact: ;; ;; Free Software Foundation Voice: +1-617-542-5942 ;; 59 Temple Place - Suite 330 Fax: +1-617-542-2652 ;; Boston, MA 02111-1307, USA gnu@gnu.org ;;; Commentary: ;; ;;An event-driven REPL, taken from guile-gtk 1.2. ;; ;;; Code: (define-module (gnome gobject event-repl)) (define eof-object (with-input-from-string "" read)) (define-public repl-error-stack car) (define-public repl-error-args cadr) (define-public (make-event-repl read eval print error-reporter) (let ((the-last-stack #f) (stack-saved? #f) (buffer "") (bufpos 0) (readeof #f)) (define (save-stack) (cond (stack-saved?) ((not (memq 'debug (debug-options-interface))) (set! the-last-stack #f) (set! stack-saved? #t)) (else (set! the-last-stack (make-stack #t lazy-dispatch 4)) (set! stack-saved? #t)))) (define (lazy-dispatch . args) (save-stack) (apply throw args)) (define (catch-stacked thunk handler) (set! stack-saved? #f) (start-stack #t (catch #t (lambda () (lazy-catch #t thunk lazy-dispatch)) (lambda args (if (= (length args) 5) (handler (list (if stack-saved? the-last-stack #f) args)) (apply throw args)))))) (define (bufeof?) (>= bufpos (string-length buffer))) (define (discardbuf) (set! buffer (substring buffer bufpos)) (set! bufpos 0)) (define bufport (make-soft-port (vector #f #f #f (lambda () (cond ((bufeof?) (set! readeof #t) #f) (else (let ((ch (string-ref buffer bufpos))) (set! bufpos (1+ bufpos)) ch)))) #f) "r")) (define (tryread) (set! readeof #f) (set! bufpos 0) (let ((val (catch-stacked (lambda () (read bufport)) (lambda (data) ;; when READ gets an error but has consumed the whole ;; buffer, we assume it is some kind of `premature end ;; of input` condition. (cond ((not readeof) (error-reporter data) (discardbuf))) eof-object)))) (if (not (eof-object? val)) (discardbuf)) val)) (define (evalbuf) (let loop ((form (tryread))) (if (not (eof-object? form)) (let* ((throw-args #f) (ans (catch-stacked (lambda () (eval form)) (lambda args (set! throw-args args))))) (if throw-args (apply error-reporter throw-args) (print ans)) (loop (tryread)))))) (lambda (op . args) (case op ((input) (set! buffer (string-append buffer (car args))) (evalbuf)) ((pending?) (not (bufeof?))))))) (define-public (repl-input repl str) (repl 'input str)) (define-public (repl-pending? repl) (repl 'pending?)) (define-public (repl-display-error data . opt-port) (let ((port (if (null? opt-port) (current-error-port) (car opt-port)))) (apply display-error (repl-error-stack data) port (cdr (repl-error-args data))))) (define-public (repl-display-backtrace data . opt-port) (let ((port (if (null? opt-port) (current-error-port) (car opt-port)))) (if (repl-error-stack data) (display-backtrace (repl-error-stack data) port)))) guile-gnome-platform-2.16.2/glib/gnome/gobject/gclosure.scm0000644000175000017500000000603311670374302024157 0ustar00wingowingo00000000000000;; guile-gnome ;; Copyright (C) 2001 Martin Baulig ;; Copyright (C) 2003,2004 Andy Wingo ;; This program is free software; you can redistribute it and/or ;; modify it under the terms of the GNU General Public License as ;; published by the Free Software Foundation; either version 2 of ;; the License, or (at your option) any later version. ;; ;; This program is distributed in the hope that it will be useful, ;; but WITHOUT ANY WARRANTY; without even the implied warranty of ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the ;; GNU General Public License for more details. ;; ;; You should have received a copy of the GNU General Public License ;; along with this program; if not, contact: ;; ;; Free Software Foundation Voice: +1-617-542-5942 ;; 59 Temple Place - Suite 330 Fax: +1-617-542-2652 ;; Boston, MA 02111-1307, USA gnu@gnu.org ;;; Commentary: ;; ;; The GLib type system supports the creation and invocation of ;; ``closures'', objects which can be invoked like procedures. Its ;; infrastructure allows one to pass a Scheme function to C, and have C ;; call into Scheme, and vice versa. ;; ;; In Scheme, @code{} holds a Scheme procedure, the ;; @code{} of its return value, and a list of the ;; @code{}'s of its arguments. Closures can be invoked with ;; @code{gclosure-invoke}. ;; ;; However since on the C level, closures do not carry a description of ;; their argument and return types, when we invoke a closure we have to ;; be very explicit about the types involved. For example: ;; ;; @lisp ;; (gclosure-invoke (make ;; #:return-type ;; #:param-types (list ) ;; #:func (lambda (x) (* x x))) ;; ;; (scm->gvalue 10)) ;; @result{} 100 ;; @end lisp ;;; Code: (define-module (gnome gobject gclosure) #:use-module (gnome gobject config) #:use-module (gnome gobject utils) #:use-module (gnome gobject gtype) #:use-module (gnome gobject gvalue) #:use-module (oop goops) #:export ( gclosure-invoke)) (dynamic-call "scm_init_gnome_gobject_closures" (dynamic-link *guile-gnome-gobject-lib-path*)) (define-class-with-docs () "The Scheme representation of a GLib closure: a typed procedure object that can be passed to other languages." ;; FIXME say something about initargs #:gtype-name "GClosure") ;;; ;;; {Instance Allocation and Initialization} ;;; (define-method (initialize (closure ) initargs) ;; don't chain up, we do our own init (let ((return-type (get-keyword #:return-type initargs #f)) (param-types (get-keyword #:param-types initargs '())) (func (get-keyword #:func initargs #f))) (%gclosure-construct closure return-type param-types func))) guile-gnome-platform-2.16.2/glib/gnome/gobject/gtype.scm0000644000175000017500000001143211670374302023463 0ustar00wingowingo00000000000000;; guile-gnome ;; Copyright (C) 2003,2004 Andy Wingo ;; This program is free software; you can redistribute it and/or ;; modify it under the terms of the GNU General Public License as ;; published by the Free Software Foundation; either version 2 of ;; the License, or (at your option) any later version. ;; ;; This program is distributed in the hope that it will be useful, ;; but WITHOUT ANY WARRANTY; without even the implied warranty of ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the ;; GNU General Public License for more details. ;; ;; You should have received a copy of the GNU General Public License ;; along with this program; if not, contact: ;; ;; Free Software Foundation Voice: +1-617-542-5942 ;; 59 Temple Place - Suite 330 Fax: +1-617-542-2652 ;; Boston, MA 02111-1307, USA gnu@gnu.org ;;; Commentary: ;; ;; Base support for the GLib type system. ;; ;; The GLib runtime type system is broken into a number of modules, of ;; which GType is the base. A GType is a simply a named type. Some types ;; are fundamental and cannot be subclassed, such as integers. Others ;; can form the root of complicated object hierarchies, such as ;; @code{}. ;; ;; One can obtain the class for a type if you know its name. For ;; example, ;; ;; @lisp ;; (gtype-name->class "guint64") @result{} #< > ;; @end lisp ;; ;; A more detailed reference on the GLib type system may be had at ;; @uref{http://library.gnome.org/devel/gobject/stable/}. ;; ;;; Code: (define-module (gnome gobject gtype) #:use-module (oop goops) #:use-module (gnome gobject utils) #:use-module (gnome gobject config) #:export ( gtype-name->class class-name->gtype-name gruntime-error gtype-instance-destroy!)) (dynamic-call "scm_init_gnome_gobject_gc" (dynamic-link *guile-gnome-gobject-lib-path*)) (dynamic-call "scm_init_gnome_gobject_types" (dynamic-link *guile-gnome-gobject-lib-path*)) (define (gruntime-error format-string . args) "Signal a runtime error. The error will be thrown to the key @code{gruntime-error}." (save-stack) (scm-error 'gruntime-error #f format-string args '())) ;;; ;;; {Base Class Hierarchy] ;;; (define-class-with-docs () "The metaclass of all GType classes. Ensures that GType classes have a @code{gtype} slot, which records the primitive GType information for this class." (gtype #:class )) (define-method (initialize (class ) initargs) (let ((gtype-name (or (get-keyword #:gtype-name initargs #f) (gruntime-error "Need #:gtype-name initarg: ~a" (pk initargs))))) ;; allow gtype-name of #t for base classes without gtypes (e.g. ;; ) (%gtype-class-bind class (if (eq? gtype-name #t) #f gtype-name)) (next-method) (%gtype-class-inherit-magic class))) (define-method (write (class ) file) (format file "#<~a ~a>" (class-name (class-of class)) (class-name class))) (dynamic-call "scm_init_gnome_gobject_types_gtype_class" (dynamic-link *guile-gnome-gobject-lib-path*)) (define-class-with-docs () "The root class of all instantiatable GType classes. Adds a slot, @code{gtype-instance}, to instances, which holds a pointer to the C value." (gtype-instance #:class ) #:gtype-name #t #:metaclass ) (define-method (initialize (instance ) initargs) (next-method) (%gtype-instance-construct instance initargs)) (dynamic-call "scm_init_gnome_gobject_types_gtype_instance" (dynamic-link *guile-gnome-gobject-lib-path*)) ;;; ;;; {Misc] ;;; (define (class-name->gtype-name class-name) "Convert the name of a class into a suitable name for a GType. For example: @lisp (class-name->gtype-name ') @result{} \"FooBar\" @end lisp" ;; By convention, GTypes are named with StudlyCaps. (list->string (reverse! (let loop ((to-process (string->list (symbol->string class-name))) (ret '()) (caps? #t)) (cond ((null? to-process) ret) ((char-alphabetic? (car to-process)) (loop (cdr to-process) (cons (if caps? (char-upcase (car to-process)) (car to-process)) ret) #f)) ((char-numeric? (car to-process)) (loop (cdr to-process) (cons (car to-process) ret) #f)) (else (loop (cdr to-process) ret #t))))))) guile-gnome-platform-2.16.2/glib/gnome/gobject/gparameter.c0000644000175000017500000004557111752432553024141 0ustar00wingowingo00000000000000/* -*- Mode: C; c-basic-offset: 4 -*- */ /* guile-gnome * Copyright (C) 2001, 2009 Martin Baulig * Copyright (C) 2003,2004,2008 Andy Wingo * * gparameter.c: Support for GParamSpec * * This program is free software; you can redistribute it and/or * modify it under the terms of the GNU General Public License as * published by the Free Software Foundation; either version 2 of * the License, or (at your option) any later version. * * This program is distributed in the hope that it will be useful, * but WITHOUT ANY WARRANTY; without even the implied warranty of * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the * GNU General Public License for more details. * * You should have received a copy of the GNU General Public License * along with this program; if not, contact: * * Free Software Foundation Voice: +1-617-542-5942 * 59 Temple Place - Suite 330 Fax: +1-617-542-2652 * Boston, MA 02111-1307, USA gnu@gnu.org */ #include #include #include "gc.h" #include "gparameter.h" #include "gvalue.h" /* to register the gvalue getter */ #include "guile-support.h" #define SCM_ERROR_NOT_YET_IMPLEMENTED(what) \ scm_c_gruntime_error (FUNC_NAME, "Not yet implemented: file ~S line ~S: ~A", \ SCM_LIST3 (scm_makfrom0str (__FILE__), scm_from_uint (__LINE__), what)) SCM scm_class_gparam; static gpointer scm_c_gparam_construct (SCM instance, SCM initargs); static void scm_c_gparam_initialize_scm (SCM instance, gpointer pspec); static const scm_t_gtype_instance_funcs gparamspec_funcs = { G_TYPE_PARAM, (scm_t_gtype_instance_ref)g_param_spec_ref, (scm_t_gtype_instance_unref)g_param_spec_unref, (scm_t_gtype_instance_get_qdata)g_param_spec_get_qdata, (scm_t_gtype_instance_set_qdata)g_param_spec_set_qdata, (scm_t_gtype_instance_construct)scm_c_gparam_construct, (scm_t_gtype_instance_initialize_scm)scm_c_gparam_initialize_scm }; SCM_SYMBOL (sym_name, "name"); SCM_SYMBOL (sym_nick, "nick"); SCM_SYMBOL (sym_blurb, "blurb"); SCM_SYMBOL (sym_flags, "flags"); SCM_SYMBOL (sym_value_type, "value-type"); SCM_SYMBOL (sym_minimum, "minimum"); SCM_SYMBOL (sym_maximum, "maximum"); SCM_SYMBOL (sym_default_value, "default-value"); SCM_SYMBOL (sym_object_type, "object-type"); SCM_SYMBOL (sym_boxed_type, "boxed-type"); SCM_SYMBOL (sym_enum_type, "enum-type"); SCM_SYMBOL (sym_flags_type, "flags-type"); SCM_SYMBOL (sym_element_spec, "element-spec"); SCM_SYMBOL (sym_is_a_type, "is-a-type"); /* #define DEBUG_PRINT */ #ifdef DEBUG_PRINT #define DEBUG_ALLOC(str, args...) g_print ("I: " str "\n", ##args) #else #define DEBUG_ALLOC(str, args...) #endif SCM_SYMBOL (sym_gruntime_error, "gruntime-error"); static void scm_c_gparam_initialize_scm (SCM param, gpointer ppspec) #define FUNC_NAME "%gparam-initialize-scm" { GParamSpec *pspec = ppspec; char *blurb; #define SET(slot, val) scm_slot_set_x (param, sym_##slot, val) SET (name, scm_from_locale_symbol ((char *) g_param_spec_get_name (pspec))); SET (nick, scm_from_locale_string ((char *) g_param_spec_get_nick (pspec))); blurb = (char *) g_param_spec_get_blurb (pspec); SET (blurb, scm_from_locale_string (blurb ? blurb : "")); SET (flags, scm_from_uint (pspec->flags & ((1<<5)-1))); if (G_IS_PARAM_SPEC_BOOLEAN (pspec)) { GParamSpecBoolean *p = (GParamSpecBoolean *)pspec; SET (default_value, SCM_BOOL (p->default_value)); } else if (G_IS_PARAM_SPEC_CHAR (pspec)) { GParamSpecChar *p = (GParamSpecChar *) pspec; SET (minimum, scm_from_char (p->minimum)); SET (maximum, scm_from_char (p->maximum)); SET (default_value, scm_from_char (p->default_value)); } else if (G_IS_PARAM_SPEC_UCHAR (pspec)) { GParamSpecUChar *p = (GParamSpecUChar *) pspec; SET (minimum, scm_from_uchar (p->minimum)); SET (maximum, scm_from_uchar (p->maximum)); SET (default_value, scm_from_uchar (p->default_value)); } else if (G_IS_PARAM_SPEC_INT (pspec)) { GParamSpecInt *p = (GParamSpecInt *) pspec; SET (minimum, scm_from_int (p->minimum)); SET (maximum, scm_from_int (p->maximum)); SET (default_value, scm_from_int (p->default_value)); } else if (G_IS_PARAM_SPEC_UINT (pspec)) { GParamSpecUInt *p = (GParamSpecUInt *) pspec; SET (minimum, scm_from_uint (p->minimum)); SET (maximum, scm_from_uint (p->maximum)); SET (default_value, scm_from_uint (p->default_value)); } else if (G_IS_PARAM_SPEC_LONG (pspec)) { GParamSpecLong *p = (GParamSpecLong *) pspec; SET (minimum, scm_from_long (p->minimum)); SET (maximum, scm_from_long (p->maximum)); SET (default_value, scm_from_long (p->default_value)); } else if (G_IS_PARAM_SPEC_ULONG (pspec)) { GParamSpecULong *p = (GParamSpecULong *) pspec; SET (minimum, scm_from_ulong (p->minimum)); SET (maximum, scm_from_ulong (p->maximum)); SET (default_value, scm_from_ulong (p->default_value)); } else if (G_IS_PARAM_SPEC_INT64 (pspec)) { GParamSpecInt64 *p = (GParamSpecInt64 *) pspec; SET (minimum, scm_from_int64 (p->minimum)); SET (maximum, scm_from_int64 (p->maximum)); SET (default_value, scm_from_int64 (p->default_value)); } else if (G_IS_PARAM_SPEC_UINT64 (pspec)) { GParamSpecUInt64 *p = (GParamSpecUInt64 *) pspec; SET (minimum, scm_from_uint64 (p->minimum)); SET (maximum, scm_from_uint64 (p->maximum)); SET (default_value, scm_from_uint64 (p->default_value)); } else if (G_IS_PARAM_SPEC_FLOAT (pspec)) { GParamSpecFloat *p = (GParamSpecFloat *) pspec; SET (minimum, scm_from_double (p->minimum)); SET (maximum, scm_from_double (p->maximum)); SET (default_value, scm_from_double (p->default_value)); } else if (G_IS_PARAM_SPEC_DOUBLE (pspec)) { GParamSpecDouble *p = (GParamSpecDouble *) pspec; SET (minimum, scm_from_double (p->minimum)); SET (maximum, scm_from_double (p->maximum)); SET (default_value, scm_from_double (p->default_value)); } else if (G_IS_PARAM_SPEC_POINTER (pspec)) { } else if (G_IS_PARAM_SPEC_STRING (pspec)) { GParamSpecString *s = (GParamSpecString *) pspec; SET (default_value, s->default_value ? scm_from_locale_string (s->default_value) : SCM_BOOL_F); } else if (G_IS_PARAM_SPEC_OBJECT (pspec)) { SET (object_type, scm_c_gtype_to_class (pspec->value_type)); } else if (G_IS_PARAM_SPEC_BOXED (pspec)) { SET (boxed_type, scm_c_gtype_to_class (pspec->value_type)); } else if (G_IS_PARAM_SPEC_ENUM (pspec)) { GParamSpecEnum *e = (GParamSpecEnum *) pspec; GType enum_type = G_TYPE_FROM_CLASS (e->enum_class); SET (enum_type, scm_c_gtype_to_class (enum_type)); SET (default_value, scm_from_uint (e->default_value)); } else if (G_IS_PARAM_SPEC_FLAGS (pspec)) { GParamSpecFlags *f = (GParamSpecFlags *) pspec; GType flags_type = G_TYPE_FROM_CLASS (f->flags_class); SET (flags_type, scm_c_gtype_to_class (flags_type)); SET (default_value, scm_from_uint (f->default_value)); } else if (G_IS_PARAM_SPEC_VALUE_ARRAY (pspec)) { GParamSpecValueArray *va = (GParamSpecValueArray *) pspec; SET (element_spec, (va->element_spec ? scm_c_gtype_instance_to_scm (va->element_spec) : SCM_BOOL_F)); } else if (G_IS_PARAM_SPEC_UNICHAR (pspec)) { GParamSpecUnichar *p = (GParamSpecUnichar *) pspec; /* borken! */ SET (default_value, scm_from_uint (p->default_value)); } else if (G_IS_PARAM_SPEC_GTYPE (pspec)) { GParamSpecGType *p = (GParamSpecGType *) pspec; SET (is_a_type, ((p->is_a_type == G_TYPE_NONE) ? SCM_BOOL_F : scm_c_gtype_to_class (p->is_a_type))); } else { g_warning ("param type not implemented: %s", g_type_name (G_TYPE_FROM_INSTANCE (pspec))); /* SCM_ERROR_NOT_YET_IMPLEMENTED (SCM_BOOL_F); */ } #undef SET } #undef FUNC_NAME static gpointer scm_c_gparam_construct (SCM instance, SCM initargs) { GParamSpec *pspec = NULL; GParamFlags flags; GType param_type; char *name, *nick, *blurb; param_type = scm_c_gtype_class_to_gtype (scm_class_of (instance)); scm_dynwind_begin (0); #define REF(what) scm_slot_ref (instance, sym_##what) name = scm_to_locale_string (scm_symbol_to_string (REF (name))); if (SCM_NFALSEP (scm_slot_bound_p (instance, sym_nick))) nick = scm_to_locale_string (REF (nick)); else nick = g_strdup (name); if (SCM_NFALSEP (scm_slot_bound_p (instance, sym_blurb))) blurb = scm_to_locale_string (REF (blurb)); else blurb = g_strdup (nick); if (SCM_NFALSEP (scm_slot_bound_p (instance, sym_flags))) flags = scm_to_uint (REF (flags)); else flags = G_PARAM_READWRITE; /* FIXME: free these? */ if (param_type == G_TYPE_PARAM_BOOLEAN) { pspec = g_param_spec_boolean (name, nick, blurb, SCM_NFALSEP (REF (default_value)), flags); } else if (param_type == G_TYPE_PARAM_CHAR) { pspec = g_param_spec_char (name, nick, blurb, scm_to_char (REF (minimum)), scm_to_char (REF (maximum)), scm_to_char (REF (default_value)), flags); } else if (param_type == G_TYPE_PARAM_UCHAR) { pspec = g_param_spec_uchar (name, nick, blurb, scm_to_uchar (REF (minimum)), scm_to_uchar (REF (maximum)), scm_to_uchar (REF (default_value)), flags); } else if (param_type == G_TYPE_PARAM_INT) { pspec = g_param_spec_int (name, nick, blurb, scm_to_int (REF (minimum)), scm_to_int (REF (maximum)), scm_to_int (REF (default_value)), flags); } else if (param_type == G_TYPE_PARAM_UINT) { pspec = g_param_spec_uint (name, nick, blurb, scm_to_uint (REF (minimum)), scm_to_uint (REF (maximum)), scm_to_uint (REF (default_value)), flags); } else if (param_type == G_TYPE_PARAM_LONG) { pspec = g_param_spec_long (name, nick, blurb, scm_to_long (REF (minimum)), scm_to_long (REF (maximum)), scm_to_long (REF (default_value)), flags); } else if (param_type == G_TYPE_PARAM_ULONG) { pspec = g_param_spec_ulong (name, nick, blurb, scm_to_ulong (REF (minimum)), scm_to_ulong (REF (maximum)), scm_to_ulong (REF (default_value)), flags); } else if (param_type == G_TYPE_PARAM_INT64) { pspec = g_param_spec_int64 (name, nick, blurb, scm_to_int64 (REF (minimum)), scm_to_int64 (REF (maximum)), scm_to_int64 (REF (default_value)), flags); } else if (param_type == G_TYPE_PARAM_UINT64) { pspec = g_param_spec_uint64 (name, nick, blurb, scm_to_uint64 (REF (minimum)), scm_to_uint64 (REF (maximum)), scm_to_uint64 (REF (default_value)), flags); } else if (param_type == G_TYPE_PARAM_FLOAT) { pspec = g_param_spec_float (name, nick, blurb, scm_to_double (REF (minimum)), scm_to_double (REF (maximum)), scm_to_double (REF (default_value)), flags); } else if (param_type == G_TYPE_PARAM_DOUBLE) { pspec = g_param_spec_double (name, nick, blurb, scm_to_double (REF (minimum)), scm_to_double (REF (maximum)), scm_to_double (REF (default_value)), flags); } else if (param_type == G_TYPE_PARAM_POINTER) { pspec = g_param_spec_pointer (name, nick, blurb, flags); } else if (param_type == G_TYPE_PARAM_STRING) { SCM val = REF (default_value); pspec = g_param_spec_string (name, nick, blurb, SCM_FALSEP (val) ? NULL : scm_to_locale_string (val), flags); } else if (param_type == G_TYPE_PARAM_OBJECT) { pspec = g_param_spec_object (name, nick, blurb, scm_c_gtype_class_to_gtype (REF (object_type)), flags); } else if (param_type == G_TYPE_PARAM_BOXED) { pspec = g_param_spec_boxed (name, nick, blurb, scm_c_gtype_class_to_gtype (REF (boxed_type)), flags); } else if (param_type == G_TYPE_PARAM_ENUM) { pspec = g_param_spec_enum (name, nick, blurb, scm_c_gtype_class_to_gtype (REF (enum_type)), scm_to_int (REF (default_value)), flags); } else if (param_type == G_TYPE_PARAM_FLAGS) { pspec = g_param_spec_flags (name, nick, blurb, scm_c_gtype_class_to_gtype (REF (flags_type)), scm_to_int (REF (default_value)), flags); } else if (param_type == G_TYPE_PARAM_VALUE_ARRAY) { pspec = g_param_spec_value_array (name, nick, blurb, scm_c_scm_to_gtype_instance_typed (REF (element_spec), G_TYPE_PARAM), flags); } else if (param_type == G_TYPE_PARAM_UNICHAR) { pspec = g_param_spec_unichar (name, nick, blurb, scm_to_uint (REF (default_value)), flags); } else if (param_type == G_TYPE_PARAM_GTYPE) { SCM type = REF (is_a_type); if (scm_is_true (type)) type = scm_c_gtype_class_to_gtype (type); pspec = g_param_spec_gtype (name, nick, blurb, type, flags); } else { scm_c_gruntime_error ("%gparam-construct", "Can't create instance of ~A from initargs: ~A", SCM_LIST2 (scm_class_of (instance), initargs)); } DEBUG_ALLOC ("new guile-owned param spec %p of type %s", pspec, g_type_name (G_TYPE_FROM_INSTANCE (pspec))); scm_dynwind_end (); return pspec; } /* These next two functions are exactly equivalent to struct-ref and struct-set! * from guile, except that they don't check permissions or allocation, because * we know them, and, more crucially, they understand how to calculate n_fields * for the so-called "light structs". Should be unnecessary once the patches * submitted to guile-devel on 10 April 2008 are accepted. */ SCM_DEFINE (scm_sys_hacky_struct_ref, "%hacky-struct-ref", 2, 0, 0, (SCM handle, SCM pos), "") #define FUNC_NAME s_scm_sys_hacky_struct_ref { scm_t_bits * data; SCM layout; size_t layout_len; size_t p; scm_t_bits n_fields; SCM_VALIDATE_STRUCT (1, handle); layout = SCM_STRUCT_LAYOUT (handle); data = SCM_STRUCT_DATA (handle); p = scm_to_size_t (pos); #if SCM_MAJOR_VERSION == 1 && SCM_MINOR_VERSION < 9 layout_len = scm_i_symbol_length (layout); if (SCM_STRUCT_VTABLE_FLAGS (handle) & SCM_STRUCTF_LIGHT) /* no extra words */ n_fields = layout_len / 2; else n_fields = data[scm_struct_i_n_words]; #else layout_len = scm_c_symbol_length (layout); n_fields = layout_len / 2; #endif SCM_ASSERT_RANGE(1, pos, p < n_fields); return SCM_PACK (data[p]); } #undef FUNC_NAME SCM_DEFINE (scm_sys_hacky_struct_set_x, "%hacky-struct-set!", 3, 0, 0, (SCM handle, SCM pos, SCM val), "") #define FUNC_NAME s_scm_sys_hacky_struct_set_x { scm_t_bits * data; SCM layout; size_t layout_len; size_t p; scm_t_bits n_fields; SCM_VALIDATE_STRUCT (1, handle); layout = SCM_STRUCT_LAYOUT (handle); data = SCM_STRUCT_DATA (handle); p = scm_to_size_t (pos); #if SCM_MAJOR_VERSION == 1 && SCM_MINOR_VERSION < 9 layout_len = scm_i_symbol_length (layout); if (SCM_STRUCT_VTABLE_FLAGS (handle) & SCM_STRUCTF_LIGHT) /* no extra words */ n_fields = layout_len / 2; else n_fields = data[scm_struct_i_n_words]; #else layout_len = scm_c_symbol_length (layout); n_fields = layout_len / 2; #endif SCM_ASSERT_RANGE(1, pos, p < n_fields); data[p] = SCM_UNPACK (val); return SCM_UNDEFINED; } #undef FUNC_NAME void scm_init_gnome_gobject_parameters (void) { #ifndef SCM_MAGIC_SNARFER #include "gparameter.x" #endif scm_register_gtype_instance_funcs (&gparamspec_funcs); scm_c_register_gtype_instance_gvalue_wrappers (G_TYPE_PARAM, (SCMGValueGetTypeInstanceFunc)g_value_get_param, (SCMGValueSetTypeInstanceFunc)g_value_set_param); /* fixme: these names suck */ scm_c_define ("gparameter:uint-max", scm_from_uint (G_MAXUINT)); scm_c_define ("gparameter:int-min", scm_from_int (G_MININT)); scm_c_define ("gparameter:int-max", scm_from_int (G_MAXINT)); scm_c_define ("gparameter:ulong-max", scm_from_ulong (G_MAXULONG)); scm_c_define ("gparameter:long-min", scm_from_long (G_MINLONG)); scm_c_define ("gparameter:long-max", scm_from_long (G_MAXLONG)); scm_c_define ("gparameter:uint64-max", scm_from_ulong_long (G_MAXUINT64)); scm_c_define ("gparameter:int64-min", scm_from_long_long (G_MININT64)); scm_c_define ("gparameter:int64-max", scm_from_long_long (G_MAXINT64)); scm_c_define ("gparameter:float-max", scm_from_double (G_MAXFLOAT)); scm_c_define ("gparameter:float-min", scm_from_double (G_MINFLOAT)); scm_c_define ("gparameter:double-max", scm_from_double (G_MAXDOUBLE)); scm_c_define ("gparameter:double-min", scm_from_double (G_MINDOUBLE)); scm_c_define ("gparameter:byte-order", scm_from_uint (G_BYTE_ORDER)); /* only export from parameters.scm */ } guile-gnome-platform-2.16.2/glib/gnome/gobject/gtype.c0000644000175000017500000005433311752511000023117 0ustar00wingowingo00000000000000/* -*- Mode: C; c-basic-offset: 4 -*- */ /* guile-gnome * Copyright (C) 2001, 2009 Martin Baulig * Copyright (C) 2003,2004 Andy Wingo * * gtype.c: Base support for the GLib type system * * This program is free software; you can redistribute it and/or * modify it under the terms of the GNU General Public License as * published by the Free Software Foundation; either version 2 of * the License, or (at your option) any later version. * * This program is distributed in the hope that it will be useful, * but WITHOUT ANY WARRANTY; without even the implied warranty of * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the * GNU General Public License for more details. * * You should have received a copy of the GNU General Public License * along with this program; if not, contact: * * Free Software Foundation Voice: +1-617-542-5942 * 59 Temple Place - Suite 330 Fax: +1-617-542-2652 * Boston, MA 02111-1307, USA gnu@gnu.org */ #include #include #include "guile-support.h" #include "gc.h" #include "gutil.h" #include "gtype.h" #include "private.h" SCM_GLOBAL_SYMBOL (scm_sym_gtype, "gtype"); SCM_GLOBAL_SYMBOL (scm_sym_gtype_instance, "gtype-instance"); SCM scm_class_gtype_class; SCM scm_class_gtype_instance; SCM scm_sys_gtype_to_class; /* bummer */ extern SCM scm_class_gvalue; SCM_SYMBOL (sym_gruntime_error,"gruntime-error"); SCM_SYMBOL (sym_name, "name"); SCM_KEYWORD (k_name, "name"); SCM_KEYWORD (k_class, "class"); SCM_KEYWORD (k_metaclass, "metaclass"); SCM_KEYWORD (k_gtype_name, "gtype-name"); static SCM _make_class; static SCM _class_redefinition; static SCM _allocate_instance; static SCM _initialize; static SCM _gtype_name_to_scheme_name; static SCM _gtype_name_to_class_name; static GQuark quark_class = 0; static GQuark quark_type = 0; static GQuark quark_guile_gtype_class = 0; static GQuark guile_gobject_quark_wrapper; /* #define DEBUG_PRINT */ #ifdef DEBUG_PRINT #define DEBUG_ALLOC(str, args...) g_print ("I: " str "\n", ##args) #else #define DEBUG_ALLOC(str, args...) #endif static void scm_gtype_instance_unbind (scm_t_bits *slots); /* would be nice to assume everything uses InitiallyUnowned, but that's not the * case... */ typedef struct { GType type; void (* sinkfunc)(gpointer instance); } SinkFunc; static GSList *gtype_instance_funcs = NULL; static GArray *sink_funcs = NULL; /********************************************************************** * GTypeClass **********************************************************************/ SCM scm_c_gtype_lookup_class (GType gtype) { SCM class; class = g_type_get_qdata (gtype, quark_class); return class ? class : SCM_BOOL_F; } static SCM scm_c_gtype_get_direct_supers (GType type) { GType parent = g_type_parent (type); SCM ret = SCM_EOL; if (!parent) { if (G_TYPE_IS_INSTANTIATABLE (type)) ret = scm_cons (scm_class_gtype_instance, ret); else ret = scm_cons (scm_class_gvalue, ret); } else { SCM direct_super, cpl; GType *interfaces; guint n_interfaces, i; direct_super = scm_c_gtype_to_class (parent); cpl = scm_class_precedence_list (direct_super); ret = scm_cons (direct_super, ret); interfaces = g_type_interfaces (type, &n_interfaces); if (interfaces) { for (i=0; iclass", 1, 0, 0, (SCM ulong)) { return scm_c_gtype_to_class (scm_to_ulong (ulong)); } SCM_DEFINE (scm_gtype_name_to_class, "gtype-name->class", 1, 0, 0, (SCM name), "Return the @code{} associated with the GType, @var{name}.") #define FUNC_NAME s_scm_gtype_name_to_class { GType type; gchar *chars; SCM_VALIDATE_STRING (1, name); scm_dynwind_begin (0); chars = scm_to_locale_string (name); scm_dynwind_free (chars); type = g_type_from_name (chars); if (!type) scm_c_gruntime_error (FUNC_NAME, "No GType registered with name ~A", SCM_LIST1 (name)); scm_dynwind_end (); return scm_c_gtype_to_class (type); } #undef FUNC_NAME /* from goops.c */ static int gtype_struct_offset (SCM class) { register SCM slots = SCM_SLOT (scm_class_of (class), scm_si_getters_n_setters); for (; !scm_is_null (slots); slots = SCM_CDR (slots)) if (SCM_CAAR (slots) == scm_sym_gtype) return scm_to_int (SCM_CDDR (SCM_CAR (slots))); scm_c_gruntime_error ("%gtype-class-bind", "`gtype' not allocated a slot in struct!", SCM_LIST1 (class)); return -1; } SCM_DEFINE_STATIC (scm_sys_gtype_class_bind, "%gtype-class-bind", 2, 0, 0, (SCM class, SCM type_name)) #define FUNC_NAME s_scm_sys_gtype_class_bind { GType gtype; char *c_type_name; scm_t_bits *slots; SCM_VALIDATE_GTYPE_CLASS (1, class); if (SCM_FALSEP (type_name)) { /* hack for the case */ SCM_STRUCT_DATA (class)[gtype_struct_offset (class)] = 0; return SCM_UNSPECIFIED; } SCM_VALIDATE_STRING (2, type_name); scm_dynwind_begin (0); c_type_name = scm_to_locale_string (type_name); scm_dynwind_free (c_type_name); gtype = g_type_from_name (c_type_name); if (!gtype) scm_c_gruntime_error (FUNC_NAME, "No GType registered with name ~A", SCM_LIST1 (type_name)); if (SCM_NFALSEP (scm_c_gtype_lookup_class (gtype))) scm_c_gruntime_error (FUNC_NAME, "~A already has a GOOPS class, use gtype-name->class", SCM_LIST1 (type_name)); g_type_set_qdata (gtype, quark_class, scm_permanent_object (class)); slots = SCM_STRUCT_DATA (class); slots[gtype_struct_offset (class)] = gtype; scm_dynwind_end (); return SCM_UNSPECIFIED; } #undef FUNC_NAME #if SCM_MAJOR_VERSION == 1 && SCM_MINOR_VERSION < 9 # define scm_vtable_index_instance_finalize scm_struct_i_free static size_t scm_gtype_instance_struct_free (scm_t_bits * vtable, scm_t_bits * data) { scm_gtype_instance_unbind (data); scm_struct_free_light (vtable, data); return 0; } #else static void scm_gtype_instance_struct_free (SCM object) { scm_gtype_instance_unbind (SCM_STRUCT_DATA (object)); } #endif SCM_DEFINE_STATIC (scm_sys_gtype_class_inherit_magic, "%gtype-class-inherit-magic", 1, 0, 0, (SCM class)) #define FUNC_NAME s_scm_sys_gtype_class_inherit_magic { GType gtype; scm_t_bits *slots; SCM_VALIDATE_GTYPE_CLASS_COPY (1, class, gtype); slots = SCM_STRUCT_DATA (class); /* inherit class free function */ if (g_type_parent (gtype)) { SCM parent = scm_c_gtype_to_class (g_type_parent (gtype)); slots[scm_vtable_index_instance_finalize] = SCM_STRUCT_DATA (parent)[scm_vtable_index_instance_finalize]; } else if (G_TYPE_IS_INSTANTIATABLE (gtype)) { slots[scm_vtable_index_instance_finalize] = (scm_t_bits)scm_gtype_instance_struct_free; #if SCM_MAJOR_VERSION == 1 && SCM_MINOR_VERSION < 9 } else if (slots[scm_vtable_index_instance_finalize] == (scm_t_bits)scm_struct_free_light) { SCM parent = scm_cadr (scm_class_precedence_list (class)); slots[scm_vtable_index_instance_finalize] = SCM_STRUCT_DATA (parent)[scm_vtable_index_instance_finalize]; } else { scm_c_gruntime_error (FUNC_NAME, "No free function for SCM class %s!", SCM_LIST1 (class)); #else } else { SCM parent = scm_cadr (scm_class_precedence_list (class)); /* is this right? layout might not be the same. */ slots[scm_vtable_index_instance_finalize] = SCM_STRUCT_DATA (parent)[scm_vtable_index_instance_finalize]; #endif } return SCM_UNSPECIFIED; } #undef FUNC_NAME GType scm_c_gtype_class_to_gtype (SCM klass) #define FUNC_NAME "%gtype-class->gtype" { SCM_VALIDATE_GTYPE_CLASS (1, klass); /* FIXME: the following code should work, but slot-ref on 'u' slots was busted until guile 1.8.5 return scm_to_ulong (scm_slot_ref (klass, scm_sym_gtype)); */ return SCM_STRUCT_DATA (klass)[gtype_struct_offset (klass)]; } #undef FUNC_NAME gboolean scm_c_gtype_class_is_a_p (SCM instance, GType gtype) { return g_type_is_a (scm_c_gtype_class_to_gtype (instance), gtype); } /********************************************************************** * GTypeInstance **********************************************************************/ static scm_t_gtype_instance_funcs* get_gtype_instance_instance_funcs (GType type) { GSList *l; GType fundamental; fundamental = G_TYPE_FUNDAMENTAL (type); for (l = gtype_instance_funcs; l; l = l->next) { scm_t_gtype_instance_funcs *ret = l->data; if (fundamental == ret->type) return ret; } return NULL; } void scm_register_gtype_instance_funcs (const scm_t_gtype_instance_funcs *funcs) { gtype_instance_funcs = g_slist_append (gtype_instance_funcs, (gpointer)funcs); } gpointer scm_c_gtype_instance_ref (gpointer instance) { scm_t_gtype_instance_funcs *funcs; funcs = get_gtype_instance_instance_funcs (G_TYPE_FROM_INSTANCE (instance)); if (funcs && funcs->ref) { funcs->ref (instance); #ifdef DEBUG_PRINT { /* ugly. */ glong refcount; if (G_IS_OBJECT (instance)) refcount = ((GObject*)instance)->ref_count; else if (G_IS_PARAM_SPEC (instance)) refcount = ((GParamSpec*)instance)->ref_count; else refcount = -99; DEBUG_ALLOC ("reffed instance (%p) of type %s, ->%ld", instance, g_type_name (G_TYPE_FROM_INSTANCE (instance)), refcount); } #endif } return instance; } void scm_c_gtype_instance_unref (gpointer instance) { scm_t_gtype_instance_funcs *funcs; funcs = get_gtype_instance_instance_funcs (G_TYPE_FROM_INSTANCE (instance)); #ifdef DEBUG_PRINT { /* ugly. */ glong refcount; if (G_IS_OBJECT (instance)) refcount = ((GObject*)instance)->ref_count; else if (G_IS_PARAM_SPEC (instance)) refcount = ((GParamSpec*)instance)->ref_count; else refcount = -99; DEBUG_ALLOC ("unreffing instance (%p) of type %s, %ld->", instance, g_type_name (G_TYPE_FROM_INSTANCE (instance)), refcount); } #endif if (funcs && funcs->unref) funcs->unref (instance); /* else */ /* g_type_free_instance (instance); */ } static SCM scm_c_gtype_instance_get_cached (gpointer instance) { SCM ret; scm_t_gtype_instance_funcs *funcs; funcs = get_gtype_instance_instance_funcs (G_TYPE_FROM_INSTANCE (instance)); if (funcs && funcs->get_qdata) { gpointer data = funcs->get_qdata ((GObject*)instance, guile_gobject_quark_wrapper); if (data) { ret = GPOINTER_TO_SCM (data); #if SCM_MAJOR_VERSION == 1 && SCM_MINOR_VERSION < 9 scm_gc_mark (ret); #endif return ret; } } return SCM_BOOL_F; } static void scm_c_gtype_instance_set_cached (gpointer instance, SCM scm) { scm_t_gtype_instance_funcs *funcs; funcs = get_gtype_instance_instance_funcs (G_TYPE_FROM_INSTANCE (instance)); if (funcs && funcs->set_qdata) funcs->set_qdata ((GObject*)instance, guile_gobject_quark_wrapper, scm == SCM_BOOL_F ? NULL : SCM_TO_GPOINTER (scm)); } static gpointer scm_c_gtype_instance_construct (SCM object, SCM initargs) { GType type; scm_t_gtype_instance_funcs *funcs; type = scm_c_gtype_class_to_gtype (scm_class_of (object)); funcs = get_gtype_instance_instance_funcs (type); if (funcs && funcs->construct) return funcs->construct (object, initargs); else scm_c_gruntime_error ("%gtype-instance-construct", "Don't know how to construct instances of class ~A", SCM_LIST1 (scm_c_gtype_to_class (type))); return NULL; } static void scm_c_gtype_instance_initialize_scm (SCM object, gpointer instance) { GType type; scm_t_gtype_instance_funcs *funcs; type = scm_c_gtype_class_to_gtype (scm_class_of (object)); funcs = get_gtype_instance_instance_funcs (type); if (funcs && funcs->initialize_scm) funcs->initialize_scm (object, instance); } /* idea, code, and comments stolen from pygtk -- thanks, James :-) */ static inline void sink_type_instance (gpointer instance) { if (sink_funcs) { gint i; for (i = 0; i < sink_funcs->len; i++) { if (g_type_is_a (G_TYPE_FROM_INSTANCE (instance), g_array_index (sink_funcs, SinkFunc, i).type)) { g_array_index (sink_funcs, SinkFunc, i).sinkfunc (instance); #ifdef DEBUG_PRINT if (G_IS_OBJECT (instance)) { DEBUG_ALLOC ("sunk gobject (%p) of type %s, ->%u", instance, g_type_name (G_TYPE_FROM_INSTANCE (instance)), ((GObject*)instance)->ref_count); } #endif break; } } } } /** * As Guile handles memory management for us, the "floating reference" code in * GTK actually causes memory leaks for objects that are never parented. For * this reason, guile-gobject removes the floating references on objects on * construction. * * The sinkfunc should be able to remove the floating reference on * instances of the given type, or any subclasses. */ void scm_register_gtype_instance_sinkfunc (GType type, void (*sinkfunc) (gpointer)) { SinkFunc sf; if (!sink_funcs) sink_funcs = g_array_new (FALSE, FALSE, sizeof(SinkFunc)); sf.type = type; sf.sinkfunc = sinkfunc; g_array_append_val (sink_funcs, sf); } static void scm_gtype_instance_unbind (scm_t_bits *slots) { gpointer instance = (gpointer)slots[0]; if (instance && instance != SCM_UNBOUND) { DEBUG_ALLOC ("unbind c object 0x%p", instance); slots[0] = 0; scm_c_gtype_instance_set_cached (instance, SCM_BOOL_F); scm_c_gtype_instance_unref (instance); } } void scm_c_gtype_instance_bind_to_object (gpointer ginstance, SCM object) { scm_t_bits *slots = SCM_STRUCT_DATA (object); scm_c_gtype_instance_ref (ginstance); /* sink the floating ref, if any */ sink_type_instance (ginstance); slots[0] = (scm_t_bits)ginstance; /* Cache the return value, so that if a callback or another function returns * this ginstance while the ginstance is visible elsewhere, the same wrapper * will be used. Released in unbind(). */ scm_c_gtype_instance_set_cached (ginstance, object); DEBUG_ALLOC ("bound SCM 0x%p to 0x%p", (void*)object, ginstance); } SCM_DEFINE_STATIC (scm_sys_gtype_instance_construct, "%gtype-instance-construct", 2, 0, 0, (SCM instance, SCM initargs)) { gpointer ginstance = (gpointer)SCM_STRUCT_DATA (instance)[0]; if (ginstance && ginstance != (gpointer)SCM_UNBOUND) { scm_c_gtype_instance_initialize_scm (instance, ginstance); } else { gpointer new_ginstance; new_ginstance = scm_c_gtype_instance_construct (instance, initargs); ginstance = (gpointer)SCM_STRUCT_DATA (instance)[0]; /* it's possible the construct function bound the object already, as is * the case for scheme-defined gobjects */ if (new_ginstance != ginstance) scm_c_gtype_instance_bind_to_object (new_ginstance, instance); scm_c_gtype_instance_unref (new_ginstance); } return SCM_UNSPECIFIED; } SCM_DEFINE (scm_gtype_instance_destroy_x, "gtype-instance-destroy!", 1, 0, 0, (SCM instance), "Release all references that the Scheme wrapper @var{instance} " "has on the underlying C value, and release pointers associated " "with the C value that point back to Scheme.\n\n" "Normally, you don't need to call this function, because garbage " "collection will take care of resource management. " "However some @code{} instances have semantics that " "require this function. The canonical example is that when a " "@code{} emits the @code{destroy} signal, all " "code should drop their references to the object. This is, " "of course, handled internally in the @code{(gnome gtk)} " "module.") #define FUNC_NAME s_scm_gtype_instance_destroy_x { SCM_VALIDATE_GTYPE_INSTANCE (1, instance); scm_gtype_instance_unbind (SCM_STRUCT_DATA (instance)); return SCM_UNSPECIFIED; } #undef FUNC_NAME gpointer scm_c_scm_to_gtype_instance (SCM instance) { SCM ulong; gpointer ginstance; if (!SCM_IS_A_P (instance, scm_class_gtype_instance)) return NULL; /* FIXME: the following code should work, but slot-ref on 'u' slots was busted until guile 1.8.5 ulong = scm_slot_ref (instance, scm_sym_gtype_instance); */ ulong = scm_from_ulong (SCM_STRUCT_DATA (instance)[0]); if (ulong == SCM_UNBOUND) scm_c_gruntime_error ("%scm->gtype-instance", "Object ~A is uninitialized.", SCM_LIST1 (instance)); ginstance = (gpointer)scm_to_ulong (ulong); if (!ginstance) scm_c_gruntime_error ("%scm->gtype-instance", "Object ~A has been destroyed.", SCM_LIST1 (instance)); return ginstance; } gboolean scm_c_gtype_instance_is_a_p (SCM instance, GType gtype) { return scm_c_scm_to_gtype_instance_typed (instance, gtype) != NULL; } gpointer scm_c_scm_to_gtype_instance_typed (SCM instance, GType gtype) { gpointer ginstance = scm_c_scm_to_gtype_instance (instance); if (!G_TYPE_CHECK_INSTANCE_TYPE (ginstance, gtype)) return NULL; return ginstance; } /* returns a goops object of class (gtype->class type). this function exists for * gobject.c:scm_c_gtype_instance_instance_init. all other callers should use * scm_c_gtype_instance_to_scm. */ SCM scm_c_gtype_instance_to_scm_typed (gpointer ginstance, GType type) { SCM class, object; object = scm_c_gtype_instance_get_cached (ginstance); if (!scm_is_false (object)) return object; class = scm_c_gtype_lookup_class (type); if (SCM_FALSEP (class)) class = scm_c_gtype_to_class (type); g_assert (SCM_NFALSEP (class)); /* FIXME more comments on why we do it this way */ object = scm_call_2 (_allocate_instance, class, SCM_EOL); scm_c_gtype_instance_bind_to_object (ginstance, object); scm_call_2 (_initialize, object, SCM_EOL); return object; } SCM scm_c_gtype_instance_to_scm (gpointer ginstance) { if (!ginstance) return SCM_BOOL_F; return scm_c_gtype_instance_to_scm_typed (ginstance, G_TYPE_FROM_INSTANCE (ginstance)); } /********************************************************************** * Miscellaneous **********************************************************************/ void scm_c_gruntime_error (const char *subr, const char *message, SCM args) { scm_error (sym_gruntime_error, subr, message, args, SCM_EOL); } /********************************************************************** * Initialization **********************************************************************/ void scm_init_gnome_gobject_types (void) { g_type_init (); #ifndef SCM_MAGIC_SNARFER #include "gtype.x" #endif quark_type = g_quark_from_static_string ("%scm-gtype->type"); quark_class = g_quark_from_static_string ("%scm-gtype->class"); quark_guile_gtype_class = g_quark_from_static_string ("%scm-guile-gtype-class"); guile_gobject_quark_wrapper = g_quark_from_static_string ("%guile-gobject-wrapper"); scm_sys_gtype_to_class = scm_permanent_object (SCM_VARIABLE_REF (scm_c_lookup ("%gtype->class"))); _gtype_name_to_scheme_name = scm_permanent_object (SCM_VARIABLE_REF (scm_c_lookup ("gtype-name->scheme-name"))); _gtype_name_to_class_name = scm_permanent_object (SCM_VARIABLE_REF (scm_c_lookup ("gtype-name->class-name"))); _make_class = scm_permanent_object (SCM_VARIABLE_REF (scm_c_lookup ("make-class"))); _class_redefinition = scm_permanent_object (SCM_VARIABLE_REF (scm_c_lookup ("class-redefinition"))); _allocate_instance = scm_permanent_object (SCM_VARIABLE_REF (scm_c_lookup ("allocate-instance"))); _initialize = scm_permanent_object (SCM_VARIABLE_REF (scm_c_lookup ("initialize"))); } void scm_init_gnome_gobject_types_gtype_class (void) { scm_class_gtype_class = scm_permanent_object (SCM_VARIABLE_REF (scm_c_lookup (""))); } void scm_init_gnome_gobject_types_gtype_instance (void) { scm_class_gtype_instance = scm_permanent_object (SCM_VARIABLE_REF (scm_c_lookup (""))); } guile-gnome-platform-2.16.2/glib/gnome/gobject/config.scm.in0000644000175000017500000000236711670374302024214 0ustar00wingowingo00000000000000;; guile-gnome ;; Copyright (C) 2004 Free Software Foundation, Inc. ;; This program is free software; you can redistribute it and/or ;; modify it under the terms of the GNU General Public License as ;; published by the Free Software Foundation; either version 2 of ;; the License, or (at your option) any later version. ;; ;; This program is distributed in the hope that it will be useful, ;; but WITHOUT ANY WARRANTY; without even the implied warranty of ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the ;; GNU General Public License for more details. ;; ;; You should have received a copy of the GNU General Public License ;; along with this program; if not, contact: ;; ;; Free Software Foundation Voice: +1-617-542-5942 ;; 59 Temple Place - Suite 330 Fax: +1-617-542-2652 ;; Boston, MA 02111-1307, USA gnu@gnu.org ;;; Commentary: ;; ;; Config for (gnome gobject). ;; ;;; Code: (define-module (gnome gobject config) :export (*guile-gnome-gobject-lib-path*)) (define *guile-gnome-gobject-lib-path* "@guilegnomegobjectlibpath@") guile-gnome-platform-2.16.2/glib/gnome/gobject/gutil.h0000644000175000017500000000264711670374302023134 0ustar00wingowingo00000000000000/* guile-gnome * Copyright (C) 2005 Andreas Rottmann * * gutil.h: Some GLib-related utilties * * This program is free software; you can redistribute it and/or * modify it under the terms of the GNU General Public License as * published by the Free Software Foundation; either version 2 of * the License, or (at your option) any later version. * * This program is distributed in the hope that it will be useful, * but WITHOUT ANY WARRANTY; without even the implied warranty of * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the * GNU General Public License for more details. * * You should have received a copy of the GNU General Public License * along with this program; if not, contact: * * Free Software Foundation Voice: +1-617-542-5942 * 59 Temple Place - Suite 330 Fax: +1-617-542-2652 * Boston, MA 02111-1307, USA gnu@gnu.org */ #ifndef __GUILE_GNOME_GOBJECT_GUTIL_H__ #define __GUILE_GNOME_GOBJECT_GUTIL_H__ #include #include G_BEGIN_DECLS #define SCM_TO_GPOINTER(scm) ((gpointer) SCM_UNPACK (scm)) #define GPOINTER_TO_SCM(ptr) (SCM_PACK ((scm_t_bits) (ptr))) SCM scm_c_gerror_to_scm (GError *error); void scm_c_raise_gerror (GError *error); G_END_DECLS #endif guile-gnome-platform-2.16.2/glib/gnome/gobject/gvalue.scm0000644000175000017500000002676611670374302023636 0ustar00wingowingo00000000000000;; guile-gnome ;; Copyright (C) 2003,2004 Andy Wingo ;; This program is free software; you can redistribute it and/or ;; modify it under the terms of the GNU General Public License as ;; published by the Free Software Foundation; either version 2 of ;; the License, or (at your option) any later version. ;; ;; This program is distributed in the hope that it will be useful, ;; but WITHOUT ANY WARRANTY; without even the implied warranty of ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the ;; GNU General Public License for more details. ;; ;; You should have received a copy of the GNU General Public License ;; along with this program; if not, contact: ;; ;; Free Software Foundation Voice: +1-617-542-5942 ;; 59 Temple Place - Suite 330 Fax: +1-617-542-2652 ;; Boston, MA 02111-1307, USA gnu@gnu.org ;;; Commentary: ;; ;; GLib supports generic typed values via its GValue module. These ;; values are wrapped in Scheme as instances of @code{} ;; classes, such as @code{}, @code{}, etc. ;; ;; In most cases, use of @code{} is transparent to the Scheme ;; user. Values which can be represented directly as Scheme values are ;; normally given to the user in their Scheme form, e.g. @code{#\a} ;; instead of @code{# 3020c708 a>}. However, when dealing ;; with low-level routines it is sometimes necessary to have values in ;; @code{} form. The conversion between the two is performed via ;; the @code{scm->gvalue} and @code{gvalue->scm} functions. ;; ;; The other set of useful procedures exported by this module are those ;; dealing with enumerated values and flags. These objects are normally ;; represented on the C side with integers, but they have symbolic ;; representations registered in the GLib type system. ;; ;; On the Scheme side, enumerated and flags values are canonically ;; expressed as @code{} objects. They can be converted to ;; integers or symbols using the conversion procedures exported by this ;; module. It is conventional for Scheme procedures that take enumerated ;; values to accept any form for the values, which can be canonicalized ;; using @code{(make #:value @var{value})}, where ;; @var{value} can be an integer, a symbol (or symbol list in the case ;; of flags), or the string ``nickname'' (or string list) of the ;; enumerated/flags value. ;; ;;; Code: (define-module (gnome gobject gvalue) #:use-module (oop goops) #:use-module (gnome gobject utils) #:use-module (gnome gobject config) #:use-module (gnome gobject gtype) #:export (;; Base class ;; Simple classes ;; Enums and Flags Classes genum-register-static gflags-register-static genum-class->value-table gflags-class->value-table ;; Conversion (from C) scm->gvalue gvalue->scm ;; Enums and Flags genum->symbol genum->name genum->value gflags->value gflags->symbol-list gflags->name-list gflags->value-list)) ;;; ;;; {Generic Values} ;;; (define-class ()) (define-class () (value #:class ) #:gtype-name #t #:metaclass ) (dynamic-call "scm_init_gnome_gobject_values" (dynamic-link *guile-gnome-gobject-lib-path*)) (%bless-gvalue-class ) (define-method (allocate-instance (class ) initargs) (let ((instance (next-method))) (%allocate-gvalue class instance) instance)) (define-method (initialize (instance ) initargs) (or (memq #:value initargs) (gruntime-error "Missing #:value argument")) (%gvalue-set! instance (get-keyword #:value initargs 'foo))) (define-method (write (obj ) file) (format file "#<~a ~a ~a>" (class-name (class-of obj)) (number->string (object-address obj) 16) (let ((converted (gvalue->scm obj))) ;; should be able to use eq?, but gvalue->scm always rips us ;; a fresh one. bugs, bugs.. (if (is-a? converted ) "[native]" converted)))) ;;; ;;; {Simple Classes} ;;; (define-class-with-docs () "A @code{} class for signed 8-bit values." #:gtype-name "gchar") (define-class-with-docs () "A @code{} class for unsigned 8-bit values." #:gtype-name "guchar") (define-class-with-docs () "A @code{} class for boolean values." #:gtype-name "gboolean") (define-class-with-docs () "A @code{} class for signed 32-bit values." #:gtype-name "gint") (define-class-with-docs () "A @code{} class for unsigned 32-bit values." #:gtype-name "guint") (define-class-with-docs () "A @code{} class for signed ``long'' (32- or 64-bit) values." #:gtype-name "glong") (define-class-with-docs () "A @code{} class for unsigned ``long'' (32- or 64-bit) values." #:gtype-name "gulong") (define-class-with-docs () "A @code{} class for signed 64-bit values." #:gtype-name "gint64") (define-class-with-docs () "A @code{} class for unsigned 64-bit values." #:gtype-name "guint64") (define-class-with-docs () "A @code{} class for 32-bit floating-point values." #:gtype-name "gfloat") (define-class-with-docs () "A @code{} class for 64-bit floating-point values." #:gtype-name "gdouble") (define-class-with-docs () "A @code{} class for arrays of 8-bit values (C strings)." #:gtype-name "gchararray") (define-class-with-docs () "A @code{} class for ``boxed'' types, a way of wrapping generic C structures. You won't see instances of this class, only of its subclasses." #:gtype-name "GBoxed") (define-class-with-docs () "A @code{} class for arrays of @code{}." #:gtype-name "GValueArray") (define-class-with-docs () "A @code{} class for holding arbitrary Scheme objects." #:gtype-name "GBoxedSCM") (define-class-with-docs () "A @code{} class for opaque pointers." #:gtype-name "gpointer") ;;; ;;; {Enums} ;;; (define (vtable-ref vtable keyfunc val) (let lp ((i (1- (vector-length vtable)))) (cond ((< i 0) (gruntime-error "No such value in ~A: ~A" vtable val)) ((equal? (keyfunc (vector-ref vtable i)) val) (vector-ref vtable i)) (else (lp (1- i)))))) (define vtable-symbol car) (define vtable-name cadr) (define vtable-index caddr) (define (vtable-by-value vtable v) (vtable-ref vtable (cond ((integer? v) vtable-index) ((symbol? v) vtable-symbol) ((string? v) vtable-name) (else (gruntime-error "Wrong type argument: ~S" v))) v)) (define-class ()) (define-class-with-docs () "A @code{} base class for enumerated values. Users may define new enumerated value types via subclssing from @code{}, passing @code{#:vtable @var{table}} as an initarg, where @var{table} should be in a format suitable for passing to @code{genum-register-static}." #:gtype-name "GEnum" #:metaclass ) (define (has-kw-arg? args key) (cond ((null? args) #f) ((eq? (car args) key) #t) (else (has-kw-arg? (cddr args) key)))) (define (supply-initarg-if-missing initargs key proc) (cond ((has-kw-arg? initargs key) initargs) (else (cons* key (proc initargs) initargs)))) (define (override-initarg initargs key val) (cons* key val initargs)) (define (kw-ref initargs key) (or (has-kw-arg? initargs key) (error "Missing required keyword argument:" key)) (get-keyword key initargs #f)) (define-method (initialize (class ) initargs) (next-method class (supply-initarg-if-missing initargs #:gtype-name (lambda (initargs) (let ((name (class-name->gtype-name (kw-ref initargs #:name)))) (genum-register-static name (kw-ref initargs #:vtable)) name))))) (define-method (initialize (instance ) initargs) (next-method instance (override-initarg initargs #:value (vtable-index (vtable-by-value (genum-class->value-table (class-of instance)) (kw-ref initargs #:value)))))) (define-method (write (obj ) file) (format file "#<~a ~a ~a>" (class-name (class-of obj)) (number->string (object-address obj) 16) (genum->symbol obj))) (define (genum->enum obj) (vtable-by-value (genum-class->value-table (class-of obj)) (genum->value obj))) (define (genum->symbol obj) "Convert the enumerated value @var{obj} from a @code{} to its symbol representation (its ``nickname'')." (vtable-symbol (genum->enum obj))) (define (genum->name obj) "Convert the enumerated value @var{obj} from a @code{} to its representation as a string (its ``name'')." (vtable-name (genum->enum obj))) ;;; ;;; {Flags} ;;; (define-class ()) (define-class-with-docs () "A @code{} base class for flag values. Users may define new flag value types via subclssing from @code{}, passing @code{#:vtable @var{table}} as an initarg, where @var{table} should be in a format suitable for passing to @code{gflags-register-static}." #:gtype-name "GFlags" #:metaclass ) (define-method (initialize (class ) initargs) (next-method class (supply-initarg-if-missing initargs #:gtype-name (lambda (initargs) (let ((name (class-name->gtype-name (kw-ref initargs #:name)))) (gflags-register-static name (kw-ref initargs #:vtable)) name))))) (define-method (write (obj ) file) (format file "#<~a ~a ~a>" (class-name (class-of obj)) (number->string (object-address obj) 16) (gflags->symbol-list obj))) (define (gflags->element-list obj) (let ((vtable (gflags-class->value-table (class-of obj))) (value (gflags->value obj))) (filter (lambda (v) (= (logand value (vtable-index v)) (vtable-index v))) (vector->list vtable)))) (define (gflags->symbol-list obj) "Convert the flags value @var{obj} from a @code{} to a list of the symbols that it represents." (map vtable-symbol (gflags->element-list obj))) (define (gflags->name-list obj) "Convert the flags value @var{obj} from a @code{} to a list of strings, the names of the values it represents." (map vtable-name (gflags->element-list obj))) (define (gflags->value-list obj) "Convert the flags value @var{obj} from a @code{} to a list of integers, which when @code{logand}'d together yield the flags' value." (map vtable-index (gflags->element-list obj))) guile-gnome-platform-2.16.2/glib/gnome/gobject/generics.scm0000644000175000017500000002220111670374302024126 0ustar00wingowingo00000000000000;; guile-gnome ;; Copyright (C) 2003,2004,2009 Andy Wingo ;; This program is free software; you can redistribute it and/or ;; modify it under the terms of the GNU General Public License as ;; published by the Free Software Foundation; either version 2 of ;; the License, or (at your option) any later version. ;; ;; This program is distributed in the hope that it will be useful, ;; but WITHOUT ANY WARRANTY; without even the implied warranty of ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the ;; GNU General Public License for more details. ;; ;; You should have received a copy of the GNU General Public License ;; along with this program; if not, contact: ;; ;; Free Software Foundation Voice: +1-617-542-5942 ;; 59 Temple Place - Suite 330 Fax: +1-617-542-2652 ;; Boston, MA 02111-1307, USA gnu@gnu.org ;;; Commentary: ;; ;; Generic functions for procedures in the @code{(gnome gobject)} ;; module. ;; ;; @subsection Mapping class libraries to Scheme ;; ;; Guile-GNOME exists to wrap a C library, @code{libgobject}, its types, ;; and the set of libraries that based themselves on the GLib types. ;; ;; Procedure invocation feels very similar in Scheme and in C. For ;; example, the C @code{gtk_widget_show (widget)} transliterates almost ;; exactly to the Scheme @code{(gtk-widget-show widget)}. ;; ;; GLib-based libraries are not random collections of functions, ;; however. GLib-based libraries also implement classes and methods, ;; insofar that it is possible in C. For example, in the above example, ;; @code{show} may be seen to be a method on instances of the ;; @code{} class. ;; ;; Indeed, other object-oriented languages such as Python express this ;; pattern directly, translating the @code{show} operation as the ;; pleasantly brief @code{widget.show()}. However this representation of ;; methods as being bound to instances, while common, has a number of ;; drawbacks. ;; ;; The largest drawback is that the method itself is not bound to a ;; generic operation. For example, mapping the @code{show} operation ;; across a set of widgets cannot be done with the straightforward ;; @code{map(show, set)}, because there is no object for the @code{show} ;; operation. Instead the user must locally bind each widget to a ;; variable in order to access a method of the abstract @code{show} ;; operation: @code{map(lambda widget: widget.show(), set)}. ;; ;; Additionally, most languages which express methods as bound to ;; instances only select the method via the type of the first (implicit) ;; argument. The rule for these lanugages is, ``@code{gtk-widget-show} ;; is an applicable method of the @code{show} operation when the first ;; argument to @code{show} is a @code{}.'' Note the lack of ;; specification for other arguments; the same object cannot have two ;; applicable methods of the @code{show} operation. A more complete ;; specification would be, ``@code{gtk-widget-show} is an applicable ;; method of the @code{show} operation when applied to one argument, a ;; @code{}.'' It is a fine difference, but sometimes ;; important. ;; ;; For these and other reasons, the conventional way to implement ;; generic operations in Lisp has been to define @dfn{generic ;; functions}, and then associate specific methods with those functions. ;; For example, one would write the following: ;; ;; @lisp ;; ;; defining a generic function, and one method implementation ;; (define-generic show) ;; (define-method (show (widget )) ;; (gtk-widget-show widget)) ;; ;; ;; invoking the generic function ;; (show my-widget) ;; @end lisp ;; ;; One benefit of this approach is that method definitions can be made ;; far away in space and time from type definitions. This leads to a ;; more dynamic environment, in which methods can be added to existing ;; types at runtime, which then can apply to existing instances. ;; ;; @subsection The semantics of generic functions in Guile-GNOME ;; ;; Naturally, there is an impedance mismatch between the conventions ;; used in the C libraries and their Scheme equivalents. Operations in ;; GLib-based libraries do not form a coherent whole, in the sense that ;; there is no place that defines the meaning of an abstract @code{show} ;; operation. For example, @code{gtk-widget-set-state}, which can make a ;; widget become uneditable, and @code{gst-element-set-state}, which can ;; start a video player, would both map to the generic function ;; @code{set-state}, even though they have nothing to do with each other ;; besides their name. ;; ;; There is no conflict here; the methods apply on disjoint types. ;; However there is a problem of modularity, in that @emph{both methods ;; must be defined on the same generic function}, so that ;; @code{(set-state foo bar)} picks the correct method, depending on the ;; types of @var{foo} and @var{bar}. ;; ;; This point leads to the conclusion that @emph{generic functions in ;; Guile-GNOME have no abstract meaning, apart from their names}. ;; Semantically, generics in Guile-GNOME are abbreviations to save ;; typing, not abstract operations with defined meanings. ;; ;; @subsection Practicalities ;; ;; This module defines a number of ``abbreviations'', in the form of ;; generic functions, for operations on types defined in the ;; @code{(gnome gobject)} modules. Generic functions for generated ;; bindings like @code{(gnome gtk)} are defined in another module, ;; @code{(gnome gw generics)}, which re-exports the public bindings from ;; this module. ;; ;;; Code: (define-module (gnome gobject generics) #:use-module (gnome gobject utils) #:use-module (gnome gobject) #:use-module (oop goops) #:replace (connect) #:export (get set emit connect-after block unblock disconnect connected? invoke create-signal get-signals get-properties get-property-names find-property)) (define-method (get (object ) (name )) "A shorthand for @code{gobject-get-property}." (gobject-get-property object name)) (define-method (set (object ) (name ) value) "A shorthand for @code{gobject-set-property}." (gobject-set-property object name value)) (define-method (emit (object ) (name ) . args) "A shorthand for @code{gtype-instance-signal-emit}." (apply gtype-instance-signal-emit object name args)) (define %connect (module-ref the-root-module 'connect)) (define-generic-with-docs connect "") (define-method (connect . args) "The core Guile implementation of the connect(2) POSIX call" (apply %connect args)) (define-method (connect (object ) (name ) (func )) "A shorthand for @code{gtype-instance-signal-connect}." (gtype-instance-signal-connect object name func)) (define-method (connect (object ) (name ) (func ) (after? ) (detail )) "A shorthand for @code{gtype-instance-signal-connect}, with all arguments." (gtype-instance-signal-connect object name func after? detail)) (define-method (connect-after (object ) (name ) (func )) "A shorthand for @code{gtype-instance-signal-connect-after}." (gtype-instance-signal-connect-after object name func)) (define-method (block (object ) id) "A shorthand for @code{gsignal-handler-block}." (gsignal-handler-block object id)) (define-method (unblock (object ) id) "A shorthand for @code{gsignal-handler-unblock}." (gsignal-handler-unblock object id)) (define-method (disconnect (object ) id) "A shorthand for @code{gsignal-handler-disconnect}." (gsignal-handler-disconnect object id)) (define-method (connected? (object ) id) "A shorthand for @code{gsignal-handler-connected?}." (gsignal-handler-connected? object id)) (define-method (equal? (o1 ) (o2 )) (eq? (slot-ref o1 'gtype-instance) (slot-ref o2 'gtype-instance))) (define-method (invoke (closure ) . args) "A shorthand for @code{gclosure-invoke}." (apply gclosure-invoke closure args)) (define-method (create-signal (class ) (name ) return-type param-types) "A shorthand for @code{gtype-class-create-signal}." (gtype-class-create-signal class name return-type param-types)) ;; this one's a macro, i'm too lazy to make the method now... ;;(define-method (define-signal (class ) return-type . param-types) (define-method (get-signals (class )) "A shorthand for @code{gtype-class-get-signals}." (gtype-class-get-signals class)) (define-method (get-properties (class )) "A shorthand for @code{gobject-class-get-properties}." (gobject-class-get-properties class)) (define-method (get-property-names (class )) "A shorthand for @code{gobject-class-get-property-names}." (gobject-class-get-property-names class)) (define-method (find-property (class ) (name )) "A shorthand for @code{gobject-class-find-property}." (gobject-class-find-property class name)) guile-gnome-platform-2.16.2/glib/gnome/gobject/gobject.scm0000644000175000017500000002562611670374302023762 0ustar00wingowingo00000000000000;; guile-gnome ;; Copyright (C) 2001 Martin Baulig ;; Copyright (C) 2003,2004 Andy Wingo ;; This program is free software; you can redistribute it and/or ;; modify it under the terms of the GNU General Public License as ;; published by the Free Software Foundation; either version 2 of ;; the License, or (at your option) any later version. ;; ;; This program is distributed in the hope that it will be useful, ;; but WITHOUT ANY WARRANTY; without even the implied warranty of ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the ;; GNU General Public License for more details. ;; ;; You should have received a copy of the GNU General Public License ;; along with this program; if not, contact: ;; ;; Free Software Foundation Voice: +1-617-542-5942 ;; 59 Temple Place - Suite 330 Fax: +1-617-542-2652 ;; Boston, MA 02111-1307, USA gnu@gnu.org ;;; Commentary: ;; ;; GObject is what is commonly understood as @emph{the} object system ;; for GLib. This is not strictly true. GObject is @emph{one} ;; implementation of an object system, built on the other modules: ;; GType, GValue, GParameter, GClosure, and GSignal. ;; ;; Similarly, this Guile module provides integration with the GObject ;; object system, built on the Guile modules that support GType, GValue, ;; GParameter, GClosure, and GSignal. ;; ;; The main class exported by this module is @code{}. ;; @code{} classes can be subclassed by the user, which will ;; register new subtypes with the GType runtime type system. ;; @code{} classes are are also created as needed when wrapping ;; GObjects that come from C, for example from a function's return ;; value. ;; ;; Besides supporting derivation, and signals like other ;; @code{} implementations, @code{} has the ;; concept of @dfn{properties}, which are @code{}'s associated ;; with the object. The values are constrained by @code{}'s, ;; which are associated with the object's class. This module exports the ;; necessary routines to query, get, and set @code{} ;; properties. ;; ;; In addition, this module defines the @code{} base class, ;; whose subclasses may be present as mixins of @code{} ;; classes. For example: ;; ;; @lisp ;; (use-modules (gnome gtk) (oop goops)) ;; (class-direct-supers ) @result{} ;; (#< 3033bad0> ;; #< 3034bc90>) ;; @end lisp ;; ;; In this example, we see that @code{} has two ;; superclasses, @code{} and @code{}. ;; The second is an interface implemented by the @code{} ;; class. See @code{gtype-interfaces} for more details. ;; ;;; Code: (define-module (gnome gobject gobject) #:use-module ((srfi srfi-1) #:select (filter-map)) #:use-module (oop goops) #:use-module (gnome gobject utils) #:use-module (gnome gobject config) #:use-module (gnome gobject gtype) #:use-module (gnome gobject gvalue) #:use-module (gnome gobject gparameter) #:use-module (gnome gobject gsignal) #:export (;; Classes ;; Low-level subclassing gtype-register-static ;; Methods to override gobject:get-property gobject:set-property ;; Properties gobject-class-get-properties gobject-class-find-property gobject-class-get-property-names gobject-get-property gobject-set-property)) (dynamic-call "scm_init_gnome_gobject" (dynamic-link *guile-gnome-gobject-lib-path*)) ;;; ;;; {Class Initialization} ;;; (define-class ()) (define-method (compute-slots (class )) (define (compute-extra-slots props slots) (filter-map (lambda (prop) (and (not (assq prop slots)) `(,prop #:allocation #:gproperty))) props)) (let* ((slots (next-method)) (extra (compute-extra-slots (gobject-class-get-property-names class) slots))) (with-accessors (direct-slots) (set! (direct-slots class) (append (direct-slots class) extra))) (append slots extra))) (define-method (compute-get-n-set (class ) slotdef) (let ((name (slot-definition-name slotdef))) (case (slot-definition-allocation slotdef) ((#:gproperty) (list (lambda (o) (gobject-get-property o name)) (lambda (o v) (gobject-set-property o name v)))) (else (next-method))))) (define-method (initialize (class ) initargs) (define (install-properties!) ;; To expose slots as gobject properties, will process a ;; #:gparam slot option to create a new gobject property. (for-each (lambda (slot) (let ((pspec (get-keyword #:gparam (slot-definition-options slot) #f))) (if pspec (gobject-class-install-property class (apply make (car pspec) #:name (slot-definition-name slot) (cdr pspec)))))) (class-direct-slots class))) (define (install-signals!) ;; We parse a #:gsignal initialization argument to install signals. (let loop ((args initargs)) (if (not (null? args)) (if (eq? (car args) #:gsignal) (let ((signal (cadr args))) (if (not (and (list? signal) (>= (length signal) 2))) (gruntime-error "Invalid signal specification: ~A" signal)) (let* ((name (car signal)) (return-type (cadr signal)) (param-types (cddr signal)) (generic (gtype-class-create-signal class name return-type param-types))) ;; Some magic to define the generic (module-define! (current-module) (generic-function-name generic) generic))) (loop (cddr args)))))) (define (first pred list) (cond ((null? list) #f) ((pred (car list)) (car list)) (else (first pred (cdr list))))) (define (gobject-class? c) (memq (class-precedence-list c))) ;; real work starts here (next-method class (cons* #:gtype-name (or (get-keyword #:gtype-name initargs #f) (gtype-register-static (class-name->gtype-name (get-keyword #:name initargs #f)) (first gobject-class? (apply append (map class-precedence-list (get-keyword #:dsupers initargs '())))))) initargs)) (install-properties!) (install-signals!)) (define-class-with-docs () "The base class for GLib's default object system. @code{}'s metaclass understands a new slot option, @code{#:gparam}, which will export a slot as a @code{} property. The default implementation will set and access the value from the slot, but you can customize this by writing your own methods for @code{gobject:set-property} and @code{gobject:get-property}. In addition, the metaclass also understands @code{#:gsignal} arguments, which define signals on the class, and define the generics for the default signal handler. See @code{gtype-class-define-signal} for more information. For example: @lisp ;; deriving from (define-class () ;; a normal object slot my-data ;; an object slot exported as a gobject property (pub-data #:gparam (list #:name 'test)) ;; likewise, using non-default parameter settings (foo-data #:gparam (list #:name 'foo #:minimum -3 #:maximum 1000 #:default-value 42)) ;; a signal with no arguments and no return value #:gsignal '(frobate #f) ;; a signal with arguments and a return value #:gsignal (list 'frobate )) ;; deriving from -- also inherits properties and signals (define-class ()) @end lisp @code{} classes also expose a slot for each GObject property defined on the class, if such a slot is not already defined. " ;; add a slot for signal generics instead of module-define! ? #:metaclass #:gtype-name "GObject") (define-class-with-docs () "The base class for GLib's interface types. Not derivable in Scheme." #:metaclass #:gtype-name "GInterface") (define (class-is-a? x is-a) (memq is-a (class-precedence-list x))) (define-class-with-docs () "Parameter for @code{} values." (object-type #:init-keyword #:object-type #:allocation #:checked #:pred (lambda (x) (is-a? x ))) #:value-type #:gtype-name "GParamObject") ;;; ;;; {GObject Properties} ;;; (define (gobject-class-find-property class name) "Returns a property named @var{name} (a symbol), belonging to @var{class} or one of its parent classes, or @code{#f} if not found." (let ((propname name)) (with-accessors (name) (let lp ((props (gobject-class-get-properties class))) (cond ((null? props) #f) ((eq? (name (car props)) propname) (car props)) (else (lp (cdr props)))))))) (define-generic-with-docs gobject:set-property "Called to set a gobject property. Only properties directly belonging to the object's class will come through this function; superclasses handle their own properties. Takes three arguments: the object, the property name, and the value. Call @code{(next-method)} in your methods to invoke the default handler.") (define-method (gobject:set-property (object ) (name ) value) "The default implementation of @code{gobject:set-property}, which sets slots on the object." (if (class-slot-definition (class-of object) name) (slot-set! object name value) (gruntime-error "Properties added after object definition must be accessed via custom property methods: ~A" name))) (define-generic-with-docs gobject:get-property "Called to get a gobject property. Only properties directly belonging to the object's class will come through this function; superclasses handle their own properties. Takes two arguments: the object and the property name. Call @code{(next-method)} in your methods to invoke the default handler") (define-method (gobject:get-property (object ) (name )) "The default implementation of @code{gobject:get-property}, which calls @code{(slot-ref obj name)}." (if (class-slot-definition (class-of object) name) (slot-ref object name) (gruntime-error "Properties added after object definition must be accessed via custom property methods: ~A" name))) (%gnome-gobject-object-post-init) guile-gnome-platform-2.16.2/glib/gnome/gobject/guile-gnome-gobject.h0000644000175000017500000000246611670374302025632 0ustar00wingowingo00000000000000/* guile-gnome * Copyright (C) 2003,2004,2005,2006 Andy Wingo * * guile-gnome-gobject.h: Top include for (gnome gobject) headers * * This program is free software; you can redistribute it and/or * modify it under the terms of the GNU General Public License as * published by the Free Software Foundation; either version 2 of * the License, or (at your option) any later version. * * This program is distributed in the hope that it will be useful, * but WITHOUT ANY WARRANTY; without even the implied warranty of * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the * GNU General Public License for more details. * * You should have received a copy of the GNU General Public License * along with this program; if not, contact: * * Free Software Foundation Voice: +1-617-542-5942 * 59 Temple Place - Suite 330 Fax: +1-617-542-2652 * Boston, MA 02111-1307, USA gnu@gnu.org */ #ifndef __GUILE_GNOME_GOBJECT_H__ #define __GUILE_GNOME_GOBJECT_H__ #include /* this one pulls in the rest */ #include #endif guile-gnome-platform-2.16.2/glib/gnome/gobject/gsignal.c0000644000175000017500000002521711670374302023425 0ustar00wingowingo00000000000000/* -*- Mode: C; c-basic-offset: 4 -*- */ /* guile-gnome * Copyright (C) 2011 Free Software Foundation, Inc. * Copyright (C) 2001 Martin Baulig * Copyright (C) 2003,2004 Andy Wingo * * gsignal.c: Support for GSignal * * This program is free software; you can redistribute it and/or * modify it under the terms of the GNU General Public License as * published by the Free Software Foundation; either version 2 of * the License, or (at your option) any later version. * * This program is distributed in the hope that it will be useful, * but WITHOUT ANY WARRANTY; without even the implied warranty of * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the * GNU General Public License for more details. * * You should have received a copy of the GNU General Public License * along with this program; if not, contact: * * Free Software Foundation Voice: +1-617-542-5942 * 59 Temple Place - Suite 330 Fax: +1-617-542-2652 * Boston, MA 02111-1307, USA gnu@gnu.org */ #include #include #include "gsignal.h" #include "guile-support.h" static SCM _make; static SCM scm_class_gsignal; SCM_KEYWORD (k_id, "id"); SCM_KEYWORD (k_name, "name"); SCM_KEYWORD (k_interface_type, "interface-type"); SCM_KEYWORD (k_return_type, "return-type"); SCM_KEYWORD (k_param_types, "param-types"); SCM_SYMBOL (sym_name, "name"); SCM_SYMBOL (sym_interface_type, "interface-type"); SCM_SYMBOL (sym_return_type, "return-type"); SCM_SYMBOL (sym_param_types, "param-types"); /* #define DEBUG_PRINT */ #ifdef DEBUG_PRINT #define DEBUG_ALLOC(str, args...) g_print ("I: " str "\n", ##args) #else #define DEBUG_ALLOC(str, args...) #endif static SCM scm_c_gsignal_query (guint id) { SCM args, param_types = SCM_EOL; GSignalQuery q; guint i; g_signal_query (id, &q); for (i = q.n_params; i > 0; i--) param_types = scm_cons (scm_c_gtype_to_class (q.param_types [i-1]), param_types); args = scm_list_n (scm_class_gsignal, k_id, scm_from_uint (q.signal_id), k_name, scm_from_locale_string (q.signal_name), k_interface_type, scm_c_gtype_to_class (q.itype), k_return_type, q.return_type == G_TYPE_NONE ? SCM_BOOL_F : scm_c_gtype_to_class (q.return_type), k_param_types, param_types, SCM_UNDEFINED); return scm_apply_0 (_make, args); } SCM_DEFINE (scm_gsignal_query, "gsignal-query", 2, 0, 0, (SCM class, SCM name), "") #define FUNC_NAME s_scm_gsignal_query { GType type; guint id; char *cname; SCM_VALIDATE_GTYPE_CLASS_COPY (1, class, type); SCM_VALIDATE_SYMBOL (2, name); cname = scm_symbol_chars (name); id = g_signal_lookup (cname, type); free (cname); if (!id) scm_c_gruntime_error (FUNC_NAME, "Unknown signal ~A on class ~A", SCM_LIST2 (name, class)); return scm_c_gsignal_query (id); } #undef FUNC_NAME SCM_DEFINE (scm_gtype_class_get_signals, "gtype-class-get-signals", 1, 1, 0, (SCM class, SCM tail), "Returns a list of signals belonging to @var{class} and all " "parent types.") #define FUNC_NAME s_scm_gtype_class_get_signals { GType type; SCM supers; guint *ids, n_ids, i; SCM_VALIDATE_GTYPE_CLASS_COPY (1, class, type); if (SCM_UNBNDP (tail)) tail = SCM_EOL; if (!type) return tail; if (!(G_TYPE_IS_INSTANTIATABLE (type) || G_TYPE_IS_INTERFACE (type))) return tail; ids = g_signal_list_ids (type, &n_ids); for (i = n_ids; i > 0; i--) tail = scm_cons (scm_c_gsignal_query (ids[i-1]), tail); g_free (ids); for (supers = scm_class_direct_supers (class); SCM_CONSP (supers); supers = scm_cdr (supers)) if (SCM_GTYPE_CLASSP (scm_car (supers))) tail = scm_gtype_class_get_signals (scm_car (supers), tail); return tail; } #undef FUNC_NAME SCM_DEFINE (scm_gsignal_create, "gsignal-create", 2, 0, 0, (SCM signal, SCM closure), "") #define FUNC_NAME s_scm_gsignal_create { GClosure *gclosure; GValue *gvalue; gulong i, length; GType *param_types; SCM params, rtype; guint id; #define REF(slot) scm_slot_ref (signal, sym_##slot) SCM_VALIDATE_GVALUE_TYPE_COPY (2, closure, G_TYPE_CLOSURE, gvalue); gclosure = g_value_get_boxed (gvalue); params = REF(param_types); length = scm_ilength (params); param_types = g_new0 (GType, length); for (i = 0; i < length; i++, params = scm_cdr (params)) param_types[i] = scm_c_gtype_class_to_gtype (scm_car (params)); rtype = REF (return_type); scm_dynwind_begin (0); id = g_signal_newv (scm_symbol_chars_dynwind (REF (name)), scm_c_gtype_class_to_gtype (REF (interface_type)), G_SIGNAL_RUN_LAST, gclosure, NULL, NULL, NULL, SCM_FALSEP (rtype) ? G_TYPE_NONE : scm_c_gtype_class_to_gtype (rtype), length, param_types); scm_dynwind_end (); return scm_from_uint (id); #undef REF } #undef FUNC_NAME SCM_DEFINE (scm_gtype_instance_signal_emit, "gtype-instance-signal-emit", 2, 0, 1, (SCM object, SCM name, SCM args), "") #define FUNC_NAME s_scm_gtype_instance_signal_emit { GValue *params; GType gtype; SCM walk, retval; GTypeInstance *instance; GValue ret = { 0, }; GSignalQuery query; guint i, id; char *cname; SCM_VALIDATE_GTYPE_INSTANCE_COPY (1, object, instance); SCM_VALIDATE_SYMBOL (2, name); gtype = G_TYPE_FROM_INSTANCE (instance); cname = scm_symbol_chars (name); id = g_signal_lookup (cname, gtype); free (cname); if (!id) scm_c_gruntime_error (FUNC_NAME, "Unknown signal ~A on object ~A", SCM_LIST2 (name, object)); g_signal_query (id, &query); params = g_new0 (GValue, query.n_params + 1); g_value_init (¶ms[0], gtype); scm_c_gvalue_set (¶ms[0], object); for (walk = args, i = 0; i < query.n_params && SCM_CONSP (walk); i++, walk = scm_cdr (walk)) { g_value_init (¶ms[i+1], query.param_types[i] & ~G_SIGNAL_TYPE_STATIC_SCOPE); scm_c_gvalue_set (¶ms[i+1], scm_car (walk)); } SCM_ASSERT (i == query.n_params && SCM_NULLP (walk), args, 3, FUNC_NAME); if (query.return_type != G_TYPE_NONE) { g_value_init (&ret, query.return_type & ~G_SIGNAL_TYPE_STATIC_SCOPE); g_signal_emitv (params, id, 0, &ret); retval = scm_c_gvalue_ref (&ret); g_value_unset (&ret); } else { g_signal_emitv (params, id, 0, NULL); retval = SCM_UNSPECIFIED; } for (i = 0; i < query.n_params + 1; i++) g_value_unset (¶ms[i]); g_free(params); return retval; } #undef FUNC_NAME SCM_DEFINE (scm_gtype_instance_signal_connect_closure, "gtype-instance-signal-connect-closure", 4, 1, 0, (SCM object, SCM id, SCM closure, SCM after, SCM detail), "") #define FUNC_NAME s_scm_gtype_instance_signal_connect_closure { GClosure *gclosure; GValue *gvalue; GTypeInstance *instance; GSignalQuery query; GType gtype; gulong signal_id, handler_id; GQuark detail_quark = 0; #ifdef DEBUG_PRINT guint old_ref_count; #endif SCM_VALIDATE_GTYPE_INSTANCE_COPY (1, object, instance); SCM_VALIDATE_UINT_COPY (2, id, signal_id); SCM_VALIDATE_GVALUE_TYPE_COPY (3, closure, G_TYPE_CLOSURE, gvalue); SCM_VALIDATE_BOOL (4, after); if (!SCM_UNBNDP (detail) && SCM_NFALSEP (detail)) { SCM_VALIDATE_SYMBOL (5, detail); detail_quark = g_quark_from_string (scm_symbol_chars (detail)); } gtype = G_TYPE_FROM_INSTANCE (instance); gclosure = g_value_get_boxed (gvalue); g_signal_query (signal_id, &query); SCM_ASSERT (g_type_is_a (gtype, query.itype), object, SCM_ARG1, FUNC_NAME); #ifdef DEBUG_PRINT old_ref_count = gclosure->ref_count; #endif handler_id = g_signal_connect_closure_by_id (instance, signal_id, detail_quark, gclosure, SCM_NFALSEP (after)); DEBUG_ALLOC ("GClosure %p connecting: %u->%u", gclosure, old_ref_count, gclosure->ref_count); return scm_from_ulong (handler_id); } #undef FUNC_NAME SCM_DEFINE (scm_gsignal_handler_block, "gsignal-handler-block", 2, 0, 0, (SCM instance, SCM handler_id), "") #define FUNC_NAME s_scm_gsignal_handler_block { GTypeInstance *ginstance; gulong id; SCM_VALIDATE_GTYPE_INSTANCE_COPY (1, instance, ginstance); SCM_VALIDATE_ULONG_COPY (2, handler_id, id); g_signal_handler_block (ginstance, id); return SCM_UNSPECIFIED; } #undef FUNC_NAME SCM_DEFINE (scm_gsignal_handler_unblock, "gsignal-handler-unblock", 2, 0, 0, (SCM instance, SCM handler_id), "") #define FUNC_NAME s_scm_gsignal_handler_unblock { GTypeInstance *ginstance; gulong id; SCM_VALIDATE_GTYPE_INSTANCE_COPY (1, instance, ginstance); SCM_VALIDATE_ULONG_COPY (2, handler_id, id); g_signal_handler_unblock (ginstance, id); return SCM_UNSPECIFIED; } #undef FUNC_NAME SCM_DEFINE (scm_gsignal_handler_disconnect, "gsignal-handler-disconnect", 2, 0, 0, (SCM instance, SCM handler_id), "") #define FUNC_NAME s_scm_gsignal_handler_disconnect { GTypeInstance *ginstance; gulong id; SCM_VALIDATE_GTYPE_INSTANCE_COPY (1, instance, ginstance); SCM_VALIDATE_ULONG_COPY (2, handler_id, id); g_signal_handler_disconnect (ginstance, id); return SCM_UNSPECIFIED; } #undef FUNC_NAME SCM_DEFINE (scm_gsignal_handler_connected_p, "gsignal-handler-connected?", 2, 0, 0, (SCM instance, SCM handler_id), "") #define FUNC_NAME s_scm_gsignal_handler_connected_p { GTypeInstance *ginstance; gulong id; SCM_VALIDATE_GTYPE_INSTANCE_COPY (1, instance, ginstance); SCM_VALIDATE_ULONG_COPY (2, handler_id, id); return g_signal_handler_is_connected (ginstance, id) ? SCM_BOOL_T : SCM_BOOL_F; } #undef FUNC_NAME void scm_init_gnome_gobject_signals (void) { #ifndef SCM_MAGIC_SNARFER #include "gsignal.x" #endif scm_class_gsignal = scm_permanent_object (SCM_VARIABLE_REF (scm_c_lookup (""))); _make = scm_permanent_object (SCM_VARIABLE_REF (scm_c_lookup ("make"))); } guile-gnome-platform-2.16.2/glib/gnome/gobject/gclosure.h0000644000175000017500000000254211670374302023625 0ustar00wingowingo00000000000000/* guile-gnome * Copyright (C) 2003,2008 Andy Wingo * * gclosure.h: Support for GClosure * * This program is free software; you can redistribute it and/or * modify it under the terms of the GNU General Public License as * published by the Free Software Foundation; either version 2 of * the License, or (at your option) any later version. * * This program is distributed in the hope that it will be useful, * but WITHOUT ANY WARRANTY; without even the implied warranty of * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the * GNU General Public License for more details. * * You should have received a copy of the GNU General Public License * along with this program; if not, contact: * * Free Software Foundation Voice: +1-617-542-5942 * 59 Temple Place - Suite 330 Fax: +1-617-542-2652 * Boston, MA 02111-1307, USA gnu@gnu.org */ #ifndef __GUILE_GNOME_GOBJECT_CLOSURES_H__ #define __GUILE_GNOME_GOBJECT_CLOSURES_H__ #include G_BEGIN_DECLS SCM scm_gclosure_invoke (SCM instance, SCM return_type, SCM args); G_END_DECLS #endif /* __GUILE_GNOME_GOBJECT_CLOSURES_H__ */ guile-gnome-platform-2.16.2/glib/gnome/gobject/gobject.c0000644000175000017500000005546211670374302023423 0ustar00wingowingo00000000000000/* guile-gnome * Copyright (C) 2001 Martin Baulig * Copyright (C) 2003,2004 Andy Wingo * * gobject.c: Support for GObject (and GInterface) * * This program is free software; you can redistribute it and/or * modify it under the terms of the GNU General Public License as * published by the Free Software Foundation; either version 2 of * the License, or (at your option) any later version. * * This program is distributed in the hope that it will be useful, * but WITHOUT ANY WARRANTY; without even the implied warranty of * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the * GNU General Public License for more details. * * You should have received a copy of the GNU General Public License * along with this program; if not, contact: * * Free Software Foundation Voice: +1-617-542-5942 * 59 Temple Place - Suite 330 Fax: +1-617-542-2652 * Boston, MA 02111-1307, USA gnu@gnu.org */ #include #include #include "gc.h" #include "gobject.h" #include "private.h" #include "guile-support.h" SCM scm_class_gobject; static SCM _initialize; static SCM _gobject_set_property; static SCM _gobject_get_property; static SCM _in_construction_from_scheme; static GQuark quark_guile_gtype_class = 0; SCM_SYMBOL (sym_gruntime_error,"gruntime-error"); SCM_KEYWORD (kw_init_keyword, "init-keyword"); /* #define DEBUG_PRINT */ #ifdef DEBUG_PRINT #define DEBUG_ALLOC(str, args...) g_print ("I: " str "\n", ##args) #else #define DEBUG_ALLOC(str, args...) #endif #define DEBUG_REFCOUNTING static gpointer scm_c_gobject_construct (SCM instance, SCM initargs); //static void scm_c_gobject_initialize_scm (SCM instance, SCM initargs); static const scm_t_gtype_instance_funcs gobject_funcs = { G_TYPE_OBJECT, (scm_t_gtype_instance_ref)g_object_ref, (scm_t_gtype_instance_unref)g_object_unref, (scm_t_gtype_instance_get_qdata)g_object_get_qdata, (scm_t_gtype_instance_set_qdata)g_object_set_qdata, (scm_t_gtype_instance_construct)scm_c_gobject_construct, NULL // (scm_t_gtype_instance_initialize_scm)scm_c_gobject_initialize_scm }; // FIXME static inline void post_make_object (GObject *obj); static void scm_with_c_gobject_get_property (GObject *gobject, guint param_id, GValue *dest_gvalue, GParamSpec *pspec) { scm_c_gvalue_set (dest_gvalue, scm_call_2 (_gobject_get_property, scm_c_gtype_instance_to_scm (gobject), scm_from_locale_symbol (pspec->name))); } static void scm_c_gobject_get_property (GObject *gobject, guint param_id, GValue *dest_gvalue, GParamSpec *pspec) { return scm_dynwind_guile_v__p_u_p_p (scm_with_guile, scm_with_c_gobject_get_property, gobject, param_id, dest_gvalue, pspec); } static void scm_with_c_gobject_set_property (GObject *gobject, guint param_id, const GValue *src_value, GParamSpec *pspec) { scm_call_3 (_gobject_set_property, scm_c_gtype_instance_to_scm (gobject), scm_from_locale_symbol (pspec->name), scm_c_gvalue_to_scm (src_value)); } static void scm_c_gobject_set_property (GObject *gobject, guint param_id, const GValue *src_value, GParamSpec *pspec) { return scm_dynwind_guile_v__p_u_c_p (scm_with_guile, scm_with_c_gobject_set_property, gobject, param_id, src_value, pspec); } static gboolean is_init_keyword (SCM slots, SCM kw) { SCM defs; for (; SCM_CONSP (slots); slots = scm_cdr (slots)) for (defs = scm_cdar (slots); SCM_CONSP (defs); defs = scm_cddr (defs)) if (scm_is_eq (scm_car (defs), kw_init_keyword) && scm_is_eq (scm_cadr (defs), kw)) return TRUE; return FALSE; } static void push_in_construction_from_scheme (SCM instance) { SCM stack = scm_fluid_ref (_in_construction_from_scheme); scm_fluid_set_x (_in_construction_from_scheme, scm_cons (instance, stack)); } static void pop_in_construction_from_scheme (void) { SCM stack = scm_fluid_ref (_in_construction_from_scheme); scm_fluid_set_x (_in_construction_from_scheme, scm_cdr (stack)); } static SCM in_construction_from_scheme (void) { SCM stack = scm_fluid_ref (_in_construction_from_scheme); return scm_is_null (stack) ? SCM_BOOL_F : scm_car (stack); } static gpointer scm_c_gobject_construct (SCM instance, SCM initargs) #define FUNC_NAME "%gobject-construct" { GObject *gobject; GObjectClass *propclass; GType gtype; GParameter *params, *current; GParamSpec *pspec; long nparams, i; SCM class, slots, kw, propname, val; SCM_VALIDATE_INSTANCE (1, instance); scm_dynwind_begin (0); class = scm_class_of (instance); gtype = scm_c_gtype_class_to_gtype (class); slots = scm_class_slots (class); nparams = scm_ilength (initargs) / 2; /* a maximum length */ params = g_new0 (GParameter, nparams); scm_dynwind_unwind_handler ((gpointer)g_free, params, SCM_F_WIND_EXPLICITLY); for (i = 0; SCM_CONSP (initargs); initargs = scm_cddr (initargs)) { kw = scm_car (initargs); SCM_ASSERT (scm_is_keyword (kw), kw, 2, FUNC_NAME); SCM_ASSERT (SCM_CONSP (scm_cdr (initargs)), initargs, 2, FUNC_NAME); propname = scm_keyword_to_symbol (kw); val = scm_cadr (initargs); if (is_init_keyword (slots, kw)) continue; current = ¶ms [i]; current->name = scm_keyword_chars_dynwind (kw); propclass = g_type_class_ref (gtype); pspec = g_object_class_find_property (propclass, current->name); g_type_class_unref (propclass); if (!pspec) scm_c_gruntime_error (FUNC_NAME, "No property named ~S in object ~A", SCM_LIST2 (propname, instance)); g_value_init (¤t->value, G_PARAM_SPEC_VALUE_TYPE (pspec)); scm_c_gvalue_set (¤t->value, val); i++; } push_in_construction_from_scheme (instance); gobject = g_object_newv (gtype, i, params); pop_in_construction_from_scheme (); /* GtkWindow's first ref is owned by GTK. */ post_make_object (gobject); for (i--; i>=0; i--) g_value_unset (¶ms[i].value); scm_dynwind_end (); return gobject; } #undef FUNC_NAME static void scm_with_c_gtype_instance_instance_init (GTypeInstance *g_instance, gpointer g_class) { GType type; SCM class; type = G_TYPE_FROM_CLASS (g_class); /* make sure we know about the class */ class = scm_c_gtype_lookup_class (type); g_assert (SCM_NFALSEP (class)); /* It seems that as an object is initialized, the g_class argument to the * init function is the same for each level of inherited classes. However -- * and this shit tripped me up for a while -- _the class of the instance * changes for each level of the init process_. Thus if you want to know the * real type of the object, use G_TYPE_FROM_CLASS (g_class). If you want to * know which derived class is being initialized (as in a gobject class * doubly-specialized on the scheme side), use G_TYPE_FROM_INSTANCE * (g_instance). Fucked up! */ switch (G_TYPE_FUNDAMENTAL (type)) { case G_TYPE_OBJECT: { GuileGTypeClass *guile_class; SCM under_construction = in_construction_from_scheme (); guile_class = g_type_get_qdata (type, quark_guile_gtype_class); guile_class->first_instance_created = TRUE; if (scm_is_false (under_construction)) /* not strictly necessary from the pov of c code, but we want to make sure that g_object_new () causes `initialize' to be called on a new scheme object -- hence this call that just serves to associate a scheme object with the instance as long as the instance is alive */ scm_c_gtype_instance_to_scm_typed (g_instance, type); else scm_c_gtype_instance_bind_to_object (g_instance, under_construction); break; } default: break; } } static void scm_c_gtype_instance_instance_init (GTypeInstance *g_instance, gpointer g_class) { scm_dynwind_guile_v__p_p (scm_with_guile, scm_with_c_gtype_instance_instance_init, g_instance, g_class); } static void scm_with_c_gtype_instance_class_init (gpointer g_class, gpointer class_data) { GuileGTypeClass *guile_class; SCM class; class = scm_c_gtype_lookup_class (G_TYPE_FROM_CLASS (g_class)); if (SCM_FALSEP (class)) { /* this can happen for scheme-defined classes */ class = scm_c_gtype_to_class (G_TYPE_FROM_CLASS (g_class)); } g_assert (SCM_NFALSEP (class)); guile_class = g_type_get_qdata (G_TYPE_FROM_CLASS (g_class), quark_guile_gtype_class); g_assert (guile_class != NULL); DEBUG_ALLOC (" protecting class %p of %s gclass %p", class, g_type_name (G_TYPE_FROM_CLASS (g_class)), class); scm_glib_gc_protect_object (class); guile_class->class = class; /* Not calling a class-init generic will prevent GOOPS classes that are * subclassed on the scheme side from being initialized, but that's a corner * case. Perhaps we should support it, but I'm removing it for now. */ /* NOTE: The proper way for supporting class-init is to override initialize * for gtype-instance-class. */ if (G_TYPE_IS_OBJECT (G_TYPE_FROM_CLASS (g_class))) { ((GObjectClass *) g_class)->get_property = scm_c_gobject_get_property; ((GObjectClass *) g_class)->set_property = scm_c_gobject_set_property; } } static void scm_c_gtype_instance_class_init (gpointer g_class, gpointer class_data) { scm_dynwind_guile_v__p_p (scm_with_guile, scm_with_c_gtype_instance_class_init, g_class, class_data); } SCM_DEFINE (scm_scheme_gclass_p, "scheme-gclass?", 1, 0, 0, (SCM class), "") #define FUNC_NAME s_scm_scheme_gclass_p { GType gtype; GObjectClass *gclass; SCM_VALIDATE_GOBJECT_CLASS_COPY (1, class, gtype); gclass = g_type_class_ref (gtype); return SCM_BOOL (gclass->get_property == scm_c_gobject_get_property); } #undef FUNC_NAME // FIXME: remove? SCM_DEFINE (scm_gtype_register_static, "gtype-register-static", 2, 0, 0, (SCM name, SCM parent_class), "Derive a new type named @var{name} from @var{parent_class}. " "Returns the new @code{}. This function is called " "when deriving from @code{}; users do not normally " "call this function directly.") #define FUNC_NAME s_scm_gtype_register_static { GType gtype_parent, gtype; GTypeInfo gtype_info; GTypeQuery gtype_query; GuileGTypeClass *guile_class; char *utf8; SCM_VALIDATE_STRING (1, name); SCM_VALIDATE_GTYPE_CLASS_COPY (2, parent_class, gtype_parent); scm_dynwind_begin (0); utf8 = scm_to_locale_string_dynwind (name); gtype = g_type_from_name (utf8); if (gtype) scm_c_gruntime_error (FUNC_NAME, "There is already a type with this name: ~S", SCM_LIST1 (name)); if (!G_TYPE_IS_DERIVABLE (gtype_parent)) scm_c_gruntime_error (FUNC_NAME, "Cannot derive ~S from non-derivable parent type: ~S", SCM_LIST2 (name, parent_class)); if (!G_TYPE_IS_FUNDAMENTAL (gtype_parent) && !G_TYPE_IS_DEEP_DERIVABLE (gtype_parent)) scm_c_gruntime_error (FUNC_NAME, "Cannot derive ~S from non-fundamental parent type: ~S", SCM_LIST2 (name, parent_class)); g_type_query (gtype_parent, >ype_query); memset (>ype_info, 0, sizeof (gtype_info)); gtype_info.class_size = gtype_query.class_size; gtype_info.instance_size = gtype_query.instance_size; gtype_info.class_init = scm_c_gtype_instance_class_init; gtype_info.instance_init = scm_c_gtype_instance_instance_init; gtype = g_type_register_static (gtype_parent, utf8, >ype_info, 0); guile_class = g_new0 (GuileGTypeClass, 1); guile_class->properties_hash = g_hash_table_new (NULL, NULL); g_type_set_qdata (gtype, quark_guile_gtype_class, guile_class); scm_dynwind_end (); return scm_from_locale_string (g_type_name (gtype)); } #undef FUNC_NAME SCM_DEFINE (scm_gobject_class_get_properties, "gobject-class-get-properties", 1, 0, 0, (SCM class), "") #define FUNC_NAME s_scm_gobject_class_get_properties { gpointer gclass = 0; GParamSpec **properties; guint n_properties, i; GType gtype; SCM ret = SCM_EOL; SCM_VALIDATE_GTYPE_CLASS_COPY (1, class, gtype); if (G_TYPE_FUNDAMENTAL (gtype) == G_TYPE_OBJECT) { gclass = G_OBJECT_CLASS (g_type_class_ref (gtype)); properties = g_object_class_list_properties (gclass, &n_properties); } else if (G_TYPE_FUNDAMENTAL (gtype) == G_TYPE_INTERFACE) { if (G_TYPE_IS_FUNDAMENTAL (gtype)) { properties = NULL; n_properties = 0; } else { gclass = g_type_default_interface_ref (gtype); properties = g_object_interface_list_properties (gclass, &n_properties); } } else { scm_wrong_type_arg (FUNC_NAME, 1, class); } for (i = n_properties; i > 0; i--) ret = scm_cons (scm_c_gtype_instance_to_scm (properties[i-1]), ret); if (G_TYPE_FUNDAMENTAL (gtype) == G_TYPE_OBJECT) g_type_class_unref (gclass); else if (G_TYPE_FUNDAMENTAL (gtype) == G_TYPE_INTERFACE && !G_TYPE_IS_FUNDAMENTAL (gtype)) g_type_default_interface_unref (gclass); g_free (properties); return ret; } #undef FUNC_NAME SCM_DEFINE (scm_gobject_class_get_property_names, "gobject-class-get-property-names", 1, 0, 0, (SCM class), "") #define FUNC_NAME s_scm_gobject_class_get_property_names { gpointer gclass = 0; GParamSpec **properties; guint n_properties, i; GType gtype; SCM ret = SCM_EOL; SCM_VALIDATE_GTYPE_CLASS_COPY (1, class, gtype); if (G_TYPE_FUNDAMENTAL (gtype) == G_TYPE_OBJECT) { gclass = G_OBJECT_CLASS (g_type_class_ref (gtype)); properties = g_object_class_list_properties (gclass, &n_properties); } else if (G_TYPE_FUNDAMENTAL (gtype) == G_TYPE_INTERFACE) { if (G_TYPE_IS_FUNDAMENTAL (gtype)) { properties = NULL; n_properties = 0; } else { gclass = g_type_default_interface_ref (gtype); properties = g_object_interface_list_properties (gclass, &n_properties); } } else { scm_wrong_type_arg (FUNC_NAME, 1, class); } for (i = n_properties; i > 0; i--) ret = scm_cons (scm_from_locale_symbol (properties[i-1]->name), ret); if (G_TYPE_FUNDAMENTAL (gtype) == G_TYPE_OBJECT) g_type_class_unref (gclass); else if (G_TYPE_FUNDAMENTAL (gtype) == G_TYPE_INTERFACE && !G_TYPE_IS_FUNDAMENTAL (gtype)) g_type_default_interface_unref (gclass); g_free (properties); return ret; } #undef FUNC_NAME SCM_DEFINE (scm_gobject_class_install_property, "gobject-class-install-property", 2, 0, 0, (SCM class, SCM param), "") #define FUNC_NAME s_scm_gobject_class_install_property { GType gtype; GParamSpec *gparam; GObjectClass *gclass; GuileGTypeClass *guile_class; guint id; SCM_VALIDATE_GOBJECT_CLASS_COPY (1, class, gtype); SCM_VALIDATE_GPARAM_COPY (2, param, gparam); gclass = g_type_class_ref (gtype); if (g_object_class_find_property (gclass, gparam->name)) scm_error (sym_gruntime_error, FUNC_NAME, "There is already a property with this name in class ~S: ~S", SCM_LIST2 (class, scm_from_locale_string (gparam->name)), SCM_EOL); guile_class = g_type_get_qdata (gtype, quark_guile_gtype_class); if (!guile_class) scm_error (sym_gruntime_error, FUNC_NAME, "Can't add properties to non-derived type: ~S", SCM_LIST1 (class), SCM_EOL); if (guile_class->first_instance_created) scm_error (sym_gruntime_error, FUNC_NAME, "Can't add properties after intances have been created: ~S", SCM_LIST1 (class), SCM_EOL); id = ++guile_class->last_property_id; g_object_class_install_property (gclass, id, gparam); DEBUG_ALLOC (" protecting param %p of %s gparam %p", param, g_type_name (G_TYPE_FROM_INSTANCE (gparam)), gparam); g_hash_table_insert (guile_class->properties_hash, GINT_TO_POINTER (id), scm_glib_gc_protect_object (param)); return SCM_UNSPECIFIED; } #undef FUNC_NAME SCM_DEFINE (scm_gobject_get_property, "gobject-get-property", 2, 0, 0, (SCM object, SCM name), "Gets a the property named @var{name} (a symbol) from @var{object}.") #define FUNC_NAME s_scm_gobject_get_property { GObject *gobject; GParamSpec *pspec; SCM retval; GValue value = { 0, }; SCM_VALIDATE_GOBJECT_COPY (1, object, gobject); SCM_VALIDATE_SYMBOL (2, name); scm_dynwind_begin (0); pspec = g_object_class_find_property (G_OBJECT_GET_CLASS (gobject), scm_symbol_chars_dynwind (name)); if (!pspec) scm_error (sym_gruntime_error, FUNC_NAME, "No such property ~S in class ~S", SCM_LIST2 (name, scm_class_of (object)), SCM_EOL); g_value_init (&value, pspec->value_type); g_object_get_property (gobject, pspec->name, &value); retval = scm_c_gvalue_ref (&value); g_value_unset (&value); scm_dynwind_end (); return retval; } #undef FUNC_NAME SCM_DEFINE (scm_gobject_set_property, "gobject-set-property", 3, 0, 0, (SCM object, SCM name, SCM value), "Sets the property named @var{name} (a symbol) on @var{object} to " "@var{init-value}.") #define FUNC_NAME s_scm_gobject_set_property { GObject *gobject; GParamSpec *pspec; GValue *gvalue; SCM_VALIDATE_GOBJECT_COPY (1, object, gobject); SCM_VALIDATE_SYMBOL (2, name); scm_dynwind_begin (0); pspec = g_object_class_find_property (G_OBJECT_GET_CLASS (gobject), scm_symbol_chars_dynwind (name)); if (!pspec) scm_error (sym_gruntime_error, FUNC_NAME, "No such property ~S in class ~S", SCM_LIST2 (name, scm_class_of (object)), SCM_EOL); gvalue = scm_c_scm_to_gvalue (pspec->value_type, value); g_object_set_property (gobject, pspec->name, gvalue); g_value_unset (gvalue); scm_dynwind_end (); return SCM_UNSPECIFIED; } #undef FUNC_NAME typedef struct { GType type; gpointer (* postmakefunc)(gpointer object); } PostMakeFunc; static GArray *post_make_funcs = NULL; static inline void post_make_object (GObject *obj) { if (post_make_funcs) { gint i; for (i = 0; i < post_make_funcs->len; i++) { if (g_type_is_a (G_OBJECT_TYPE (obj), g_array_index (post_make_funcs, PostMakeFunc, i).type)) { g_array_index (post_make_funcs, PostMakeFunc, i).postmakefunc (obj); DEBUG_ALLOC ("post-made gobject (%p) of type %s, ->%u", obj, g_type_name (G_TYPE_FROM_INSTANCE (obj)), obj->ref_count); break; } } } } /** * guile_gobject_register_postmakefunc: * type: the GType the sink function applies to. * postmakefunc: a function to remove the floating reference on an object. * * The lengths we go to to deal with broken APIs... This function is here to * deal with the case where the ref you get from g_object_new is not actually * your own, eg GtkWindow and GtkInvisible. * * The postmakefunc should be able to remove the floating reference on * instances of the given type, or any subclasses. */ void scm_register_gobject_postmakefunc (GType type, gpointer (*postmakefunc) (gpointer)) { PostMakeFunc pmf; if (!post_make_funcs) post_make_funcs = g_array_new (FALSE, FALSE, sizeof(PostMakeFunc)); pmf.type = type; pmf.postmakefunc = postmakefunc; g_array_append_val (post_make_funcs, pmf); } #ifdef DEBUG_REFCOUNTING SCM_DEFINE (scm_sys_gobject_get_refcount, "%gobject-get-refcount", 1, 0, 0, (SCM object), "Get the refcount of an object (for debugging purposes)") #define FUNC_NAME s_scm_sys_gobject_get_refcount { GObject *gobject; SCM_VALIDATE_GOBJECT_COPY (1, object, gobject); return scm_from_uint (gobject->ref_count); } #undef FUNC_NAME #endif SCM_DEFINE (scm_sys_gnome_gobject_object_post_init, "%gnome-gobject-object-post-init", 0, 0, 0, (), "") #define FUNC_NAME s_scm_sys_gnome_gobject_object_post_init { _initialize = scm_permanent_object (SCM_VARIABLE_REF (scm_c_lookup ("initialize"))); _gobject_get_property = scm_permanent_object (SCM_VARIABLE_REF (scm_c_lookup ("gobject:get-property"))); _gobject_set_property = scm_permanent_object (SCM_VARIABLE_REF (scm_c_lookup ("gobject:set-property"))); scm_class_gobject = scm_permanent_object (SCM_VARIABLE_REF (scm_c_lookup (""))); return SCM_UNSPECIFIED; } #undef FUNC_NAME static void sink_initially_unowned (gpointer i) { GObject *object = i; if (g_object_is_floating (object)) g_object_ref_sink (object); } void scm_init_gnome_gobject (void) { #ifndef SCM_MAGIC_SNARFER #include "gobject.x" #endif scm_register_gtype_instance_funcs (&gobject_funcs); scm_c_register_gtype_instance_gvalue_wrappers (G_TYPE_OBJECT, (SCMGValueGetTypeInstanceFunc)g_value_get_object, (SCMGValueSetTypeInstanceFunc)g_value_set_object); scm_c_register_gtype_instance_gvalue_wrappers (G_TYPE_INTERFACE, (SCMGValueGetTypeInstanceFunc)g_value_get_object, (SCMGValueSetTypeInstanceFunc)g_value_set_object); _in_construction_from_scheme = scm_permanent_object (scm_make_fluid ()); scm_fluid_set_x (_in_construction_from_scheme, SCM_EOL); scm_register_gtype_instance_sinkfunc (G_TYPE_INITIALLY_UNOWNED, sink_initially_unowned); quark_guile_gtype_class = g_quark_from_static_string ("%scm-guile-gtype-class"); } guile-gnome-platform-2.16.2/glib/gnome/gobject/gvalue.c0000644000175000017500000007177011670374302023271 0ustar00wingowingo00000000000000/* -*- Mode: C; c-basic-offset: 4 -*- */ /* guile-gnome * Copyright (C) 2001, 2009, 2010 Martin Baulig * Copyright (C) 2003,2004 Andy Wingo * * gvalue.c: Support for GValue-based types * * This program is free software; you can redistribute it and/or * modify it under the terms of the GNU General Public License as * published by the Free Software Foundation; either version 2 of * the License, or (at your option) any later version. * * This program is distributed in the hope that it will be useful, * but WITHOUT ANY WARRANTY; without even the implied warranty of * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the * GNU General Public License for more details. * * You should have received a copy of the GNU General Public License * along with this program; if not, contact: * * Free Software Foundation Voice: +1-617-542-5942 * 59 Temple Place - Suite 330 Fax: +1-617-542-2652 * Boston, MA 02111-1307, USA gnu@gnu.org */ #include #include #include "gc.h" #include "gvalue.h" #include "gobject.h" #include "guile-support.h" typedef struct { SCM (*wrap) (const GValue*); void (*unwrap) (SCM, GValue*); } wrap_funcs; typedef struct { SCMGValueGetTypeInstanceFunc getter; SCMGValueSetTypeInstanceFunc setter; } gtype_instance_wrap_funcs; static guint scm_c_scm_to_flags_value (GFlagsClass *flags_class, SCM value); static gint scm_c_scm_to_enum_value (GEnumClass *enum_class, SCM value); SCM scm_class_gvalue; static SCM _allocate_instance; SCM_SYMBOL (sym_primitive_value, "primitive-value"); SCM_SYMBOL (sym_closure, "closure"); SCM_KEYWORD (k_value, "value"); static GHashTable *gvalue_wrappers = NULL; static GHashTable *gtype_instance_wrappers = NULL; /* #define DEBUG_PRINT */ #ifdef DEBUG_PRINT #define DEBUG_ALLOC(str, args...) g_print ("I: " str "\n", ##args) #else #define DEBUG_ALLOC(str, args...) #endif /********************************************************************** * SCM representation of GValue* **********************************************************************/ #if SCM_MAJOR_VERSION == 1 && SCM_MINOR_VERSION < 9 #define scm_vtable_index_instance_finalize scm_struct_i_free static size_t scm_gvalue_struct_free (scm_t_bits * vtable, scm_t_bits * data) { GValue *value = (GValue *) data[0]; if (value) { DEBUG_ALLOC ("freeing GValue %p", value); g_value_unset (value); scm_gc_free (value, sizeof (GValue), "%gvalue"); } scm_struct_free_light (vtable, data); return 0; } #else static void scm_gvalue_struct_free (SCM object) { GValue *value = (GValue *) SCM_STRUCT_DATA_REF (object, 0); if (value) { DEBUG_ALLOC ("freeing GValue %p", value); g_value_unset (value); scm_gc_free (value, sizeof (GValue), "%gvalue"); } } #endif SCM_DEFINE (scm_sys_bless_gvalue_class, "%bless-gvalue-class", 1, 0, 0, (SCM class), "") { scm_t_bits *slots = SCM_STRUCT_DATA (class); scm_class_gvalue = scm_permanent_object (class); slots[scm_vtable_index_instance_finalize] = (scm_t_bits)scm_gvalue_struct_free; return SCM_UNSPECIFIED; } SCM_DEFINE (scm_sys_allocate_gvalue, "%allocate-gvalue", 2, 0, 0, (SCM class, SCM instance), "") { GValue *value; value = scm_gc_malloc (sizeof (GValue), "%gvalue"); value->g_type = 0; SCM_STRUCT_DATA (instance)[0] = (scm_t_bits)value; if (class != scm_class_gvalue) { GType type = scm_c_gtype_class_to_gtype (class); g_value_init (value, type); DEBUG_ALLOC ("Bound SCM %p to GValue %p (%s)", instance, value, g_type_name (type)); } else { DEBUG_ALLOC ("Bound SCM %p to generic GValue %p", instance, value); } return SCM_UNSPECIFIED; } SCM scm_c_make_gvalue (GType gtype) { SCM ret, class; class = scm_c_gtype_to_class (gtype); if (scm_is_false (scm_memq (scm_class_gvalue, scm_class_precedence_list (class)))) /* it's not a class; use the generic code */ class = scm_class_gvalue; ret = scm_call_2 (_allocate_instance, class, SCM_EOL); if (class == scm_class_gvalue) /* generic code needs a bit of help.. */ g_value_init (scm_c_gvalue_peek_value (ret), gtype); /* no need to `initialize' */ return ret; } /* assume that something on the stack will reference scm */ GValue* scm_c_gvalue_peek_value (SCM scm) #define FUNC_NAME "%gvalue-peek-value" { SCM_VALIDATE_GVALUE (1, scm); return (GValue*)SCM_STRUCT_DATA (scm)[0]; } #undef FUNC_NAME /********************************************************************** * get/set primitives **********************************************************************/ /* not threadsafe */ void scm_c_register_gvalue_wrappers (GType type, SCM (*wrap) (const GValue*), void (*unwrap) (SCM, GValue*)) { wrap_funcs* w = g_new (wrap_funcs, 1); if (!gvalue_wrappers) gvalue_wrappers = g_hash_table_new (NULL, NULL); w->wrap = wrap; w->unwrap = unwrap; g_hash_table_insert (gvalue_wrappers, (gpointer)type, w); } void scm_c_register_gtype_instance_gvalue_wrappers (GType type, SCMGValueGetTypeInstanceFunc getter, SCMGValueSetTypeInstanceFunc setter) { gtype_instance_wrap_funcs* w = g_new (gtype_instance_wrap_funcs, 1); if (!gtype_instance_wrappers) gtype_instance_wrappers = g_hash_table_new (NULL, NULL); w->getter = getter; w->setter = setter; g_hash_table_insert (gtype_instance_wrappers, (gpointer)type, w); } SCM scm_c_gvalue_ref (const GValue *gvalue) #define FUNC_NAME "%gvalue-ref" { GType type, fundamental; type = G_VALUE_TYPE (gvalue); fundamental = G_TYPE_FUNDAMENTAL (type); switch (fundamental) { case G_TYPE_CHAR: return SCM_MAKE_CHAR (g_value_get_char (gvalue)); case G_TYPE_UCHAR: return SCM_MAKE_CHAR (g_value_get_uchar (gvalue)); case G_TYPE_BOOLEAN: return SCM_BOOL (g_value_get_boolean (gvalue)); case G_TYPE_INT: return scm_from_int (g_value_get_int (gvalue)); case G_TYPE_UINT: return scm_from_uint (g_value_get_uint (gvalue)); case G_TYPE_LONG: return scm_from_long (g_value_get_long (gvalue)); case G_TYPE_ULONG: return scm_from_ulong (g_value_get_ulong (gvalue)); case G_TYPE_INT64: return scm_from_long_long (g_value_get_int64 (gvalue)); case G_TYPE_UINT64: return scm_from_ulong_long (g_value_get_uint64 (gvalue)); case G_TYPE_FLOAT: return scm_from_double ((double) g_value_get_float (gvalue)); case G_TYPE_DOUBLE: return scm_from_double (g_value_get_double (gvalue)); case G_TYPE_STRING: { const char *s = g_value_get_string (gvalue); return s ? scm_from_locale_string (s) : SCM_BOOL_F; } default: { gtype_instance_wrap_funcs* w1; wrap_funcs* w2; if ((w1 = g_hash_table_lookup (gtype_instance_wrappers, (gpointer)fundamental))) { return scm_c_gtype_instance_to_scm (w1->getter (gvalue)); } else if ((w2 = g_hash_table_lookup (gvalue_wrappers, (gpointer)type))) { return w2->wrap (gvalue); } else { SCM ret = scm_c_make_gvalue (type); /* Enums and flags are natively represented as GValues. Boxed * and pointer values also fall through here, unless there is a * custom wrapper registered. */ g_value_copy (gvalue, scm_c_gvalue_peek_value (ret)); return ret; } } } } #undef FUNC_NAME void scm_c_gvalue_set (GValue *gvalue, SCM value) #define FUNC_NAME "%gvalue-set!" { GType gtype, fundamental; gtype = G_VALUE_TYPE (gvalue); fundamental = G_TYPE_FUNDAMENTAL (gtype); if (SCM_GVALUEP (value)) { if (g_type_is_a (scm_c_gtype_class_to_gtype (scm_class_of (value)), gtype)) { GValue *v = scm_c_gvalue_peek_value (value); g_value_copy (v, gvalue); return; } else { scm_c_gruntime_error (FUNC_NAME, "Can't make ~a into ~a", SCM_LIST2 (value, scm_c_gtype_to_class (gtype))); return; } } switch (fundamental) { case G_TYPE_CHAR: if (SCM_CHARP (value)) g_value_set_char (gvalue, SCM_CHAR (value)); else g_value_set_char (gvalue, scm_to_int8 (value)); break; case G_TYPE_UCHAR: if (SCM_CHARP (value)) g_value_set_uchar (gvalue, SCM_CHAR (value)); else g_value_set_uchar (gvalue, scm_to_uint8 (value)); break; case G_TYPE_BOOLEAN: SCM_VALIDATE_BOOL (2, value); g_value_set_boolean (gvalue, SCM_NFALSEP (value)); break; case G_TYPE_INT: g_value_set_int (gvalue, scm_to_int (value)); break; case G_TYPE_UINT: g_value_set_uint (gvalue, scm_to_uint (value)); break; case G_TYPE_LONG: g_value_set_long (gvalue, scm_to_long (value)); break; case G_TYPE_ULONG: g_value_set_ulong (gvalue, scm_to_ulong (value)); break; case G_TYPE_INT64: g_value_set_int64 (gvalue, scm_to_int64 (value)); break; case G_TYPE_UINT64: g_value_set_uint64 (gvalue, scm_to_uint64 (value)); break; case G_TYPE_FLOAT: { double x = scm_to_double (value); SCM_ASSERT_RANGE (2, value, (- G_MAXFLOAT < x) && (x < G_MAXFLOAT)); g_value_set_float (gvalue, (float) x); break; } case G_TYPE_DOUBLE: g_value_set_double (gvalue, scm_to_double (value)); break; case G_TYPE_STRING: SCM_ASSERT (scm_is_string (value) || SCM_FALSEP (value), value, SCM_ARG2, FUNC_NAME); if (SCM_FALSEP (value)) g_value_set_string (gvalue, NULL); else g_value_take_string (gvalue, scm_to_locale_string (value)); break; case G_TYPE_ENUM: { GEnumClass *enum_class = g_type_class_ref (G_VALUE_TYPE (gvalue)); g_value_set_enum (gvalue, scm_c_scm_to_enum_value (enum_class, value)); g_type_class_unref (enum_class); break; } case G_TYPE_FLAGS: { GFlagsClass *flags_class = g_type_class_ref (G_VALUE_TYPE (gvalue)); g_value_set_flags (gvalue, scm_c_scm_to_flags_value (flags_class, value)); g_type_class_unref (flags_class); break; } default: { gtype_instance_wrap_funcs *w; w = g_hash_table_lookup (gtype_instance_wrappers, (gpointer)fundamental); if (w) { if (SCM_FALSEP (value)) { w->setter (gvalue, NULL); } else { gpointer ginstance; SCM_VALIDATE_GTYPE_INSTANCE_TYPE_COPY (2, value, G_VALUE_TYPE (gvalue), ginstance); w->setter (gvalue, ginstance); } break; } } { wrap_funcs *w; w = g_hash_table_lookup (gvalue_wrappers, (gpointer)gtype); if (w) { w->unwrap (value, gvalue); break; } } scm_c_gruntime_error (FUNC_NAME, "Don't know how to make values of type ~A", SCM_LIST1 (scm_c_gtype_to_class (gtype))); } } #undef FUNC_NAME static gint scm_c_scm_to_enum_value (GEnumClass *enum_class, SCM value) #define FUNC_NAME "%scm->enum-value" { guint i; #define ERROR(x) \ scm_c_gruntime_error \ (FUNC_NAME, "Bad enum value for enumerated type `~a': ~a", \ SCM_LIST2 (scm_from_locale_string \ (g_type_name (G_TYPE_FROM_CLASS (enum_class))), x)) if (scm_is_signed_integer (value, SCM_T_INT32_MIN, SCM_T_INT32_MAX)) { gint v = scm_to_int (value); for (i = 0; i < enum_class->n_values; i++) if (enum_class->values[i].value == v) return v; ERROR (value); } else if (scm_is_symbol (value)) { char *v = scm_symbol_chars (value); for (i = 0; i < enum_class->n_values; i++) if (strcmp (enum_class->values[i].value_nick, v) == 0) { free (v); return enum_class->values[i].value; } free (v); ERROR (value); } else if (scm_is_string (value)) { char *v = scm_to_locale_string (value); for (i = 0; i < enum_class->n_values; i++) if (strcmp (enum_class->values[i].value_name, v) == 0) { free (v); return enum_class->values[i].value; } free (v); ERROR (value); } ERROR (value); return 0; /* not reached */ #undef ERROR } #undef FUNC_NAME SCM_DEFINE (scm_genum_to_value, "genum->value", 1, 0, 0, (SCM value), "Convert the enumerated value @var{obj} from a @code{} to " "its representation as an integer.") #define FUNC_NAME s_scm_genum_to_value { SCM_ASSERT (scm_c_gvalue_holds (value, G_TYPE_ENUM), value, SCM_ARG1, FUNC_NAME); return scm_from_int (g_value_get_enum (scm_c_gvalue_peek_value (value))); } #undef FUNC_NAME static guint scm_c_scm_to_flags_value (GFlagsClass *flags_class, SCM value) #define FUNC_NAME "%scm->flags-value" { #define ERROR(x) \ scm_c_gruntime_error \ (FUNC_NAME, "Bad value for flags type `~a': ~a", \ SCM_LIST2 (scm_from_locale_string \ (g_type_name (G_TYPE_FROM_CLASS (flags_class))), x)) if (scm_is_unsigned_integer (value, 0, SCM_T_UINT32_MAX)) { guint v = scm_to_uint (value); if ((v & flags_class->mask) == v) return v; ERROR (value); return 0; /* not reached */ } else { guint ret = 0; guint i; SCM s; if (!scm_is_true (scm_list_p (value))) { if (scm_is_symbol (value) || scm_is_string (value)) value = scm_list_1 (value); else ERROR (value); } for (; !scm_is_null (value); value = scm_cdr (value)) { s = scm_car (value); if (scm_is_unsigned_integer (s, 0, SCM_T_UINT32_MAX)) { guint v = scm_to_uint (s); for (i = 0; i < flags_class->n_values; i++) if (flags_class->values[i].value == v) { ret |= v; break; } if (i == flags_class->n_values) ERROR (s); } else if (scm_is_symbol (s)) { char *v = scm_symbol_chars (s); for (i = 0; i < flags_class->n_values; i++) if (strcmp (flags_class->values[i].value_nick, v) == 0) { ret |= flags_class->values[i].value; break; } free (v); if (i == flags_class->n_values) ERROR (s); } else if (scm_is_string (s)) { char *v = scm_to_locale_string (s); for (i = 0; i < flags_class->n_values; i++) if (strcmp (flags_class->values[i].value_name, v) == 0) { ret |= flags_class->values[i].value; break; } free (v); if (i == flags_class->n_values) ERROR (s); } else { ERROR (s); } } return ret; } #undef ERROR } #undef FUNC_NAME SCM_DEFINE (scm_gflags_to_value, "gflags->value", 1, 0, 0, (SCM value), "Convert the flags value @var{obj} from a @code{} to " "its representation as an integer.") #define FUNC_NAME s_scm_gflags_to_value { SCM_ASSERT (scm_c_gvalue_holds (value, G_TYPE_FLAGS), value, SCM_ARG1, FUNC_NAME); return scm_from_int (g_value_get_flags (scm_c_gvalue_peek_value (value))); } #undef FUNC_NAME SCM_DEFINE (scm_sys_gvalue_set_x, "%gvalue-set!", 2, 0, 0, (SCM instance, SCM value), "") { scm_c_gvalue_set (scm_c_gvalue_peek_value (instance), value); return SCM_UNSPECIFIED; } /********************************************************************** * SCM <-> GValue* **********************************************************************/ SCM scm_c_gvalue_to_scm (const GValue *gvalue) { return scm_c_gvalue_ref (gvalue); } GValue* scm_c_scm_to_gvalue (GType gtype, SCM scm) { GValue *new = g_new0 (GValue, 1); g_value_init (new, gtype); scm_c_gvalue_set (new, scm); return new; } SCM_DEFINE (scm_gvalue_to_scm, "gvalue->scm", 1, 0, 0, (SCM value), "Convert a @code{} into it normal scheme representation, " "for example unboxing characters into Scheme characters. Note " "that the Scheme form for some values is the @code{} " "form, for example with boxed or enumerated values.") { /* FIXME: needlessly creates a new value in the e.g. boxed case */ GValue *v = scm_c_gvalue_peek_value (value); return scm_c_gvalue_ref (v); } SCM_DEFINE (scm_scm_to_gvalue, "scm->gvalue", 2, 0, 0, (SCM class, SCM scm), "Convert a Scheme value into a @code{} of type " "@var{class}. If the conversion is not possible, raise a " "@code{gruntime-error}.") { SCM ret; GValue *gvalue; /* fixme the noop case */ ret = scm_c_make_gvalue (scm_c_gtype_class_to_gtype (class)); gvalue = scm_c_gvalue_peek_value (ret); scm_c_gvalue_set (gvalue, scm); return ret; } /********************************************************************** * custom SCM wrappers for some boxed types **********************************************************************/ static gpointer copy_gboxed_scm (gpointer boxed) { DEBUG_ALLOC (G_STRLOC ": copying gboxed %p", boxed); scm_glib_gc_protect_object ((SCM) boxed); return boxed; } static void free_gboxed_scm (gpointer boxed) { DEBUG_ALLOC (G_STRLOC ": freeing gboxed %p", boxed); scm_glib_gc_unprotect_object (boxed); } GType gboxed_scm_get_type (void) { static GType boxed_type = 0; if (!boxed_type) boxed_type = g_boxed_type_register_static ("GBoxedSCM", copy_gboxed_scm, free_gboxed_scm); return boxed_type; } SCM wrap_boxed_scm (const GValue *value) { gpointer val = g_value_get_boxed (value); return val ? GPOINTER_TO_SCM (g_value_get_boxed (value)) : SCM_UNSPECIFIED; } void unwrap_boxed_scm (SCM scm, GValue *value) { g_value_set_boxed (value, SCM_TO_GPOINTER (scm)); } SCM wrap_gvalue_array (const GValue *value) { GValueArray *arr = g_value_get_boxed (value); gint i = arr ? arr->n_values : 0; SCM l = SCM_EOL; while (i--) l = scm_cons (scm_c_gvalue_ref (&arr->values[i]), l); return l; } void unwrap_gvalue_array (SCM scm, GValue *value) #define FUNC_NAME "%unwrap-gvalue-array" { GValueArray *arr; gint len; SCM_ASSERT (SCM_BOOL (scm_list_p (scm)), scm, SCM_ARG2, FUNC_NAME); len = scm_ilength (scm); arr = g_value_array_new (len); while (len--) { GType value_type; SCM v; v = SCM_CAR (scm); if (SCM_GVALUEP (v)) value_type = G_VALUE_TYPE (scm_c_gvalue_peek_value (v)); if (scm_is_string (v)) value_type = G_TYPE_STRING; else if (SCM_BOOLP (v)) value_type = G_TYPE_BOOLEAN; else if (scm_is_signed_integer (v, SCM_T_INT32_MIN, SCM_T_INT32_MAX)) value_type = G_TYPE_INT; else if (SCM_REALP (v)) value_type = G_TYPE_DOUBLE; else if (SCM_CHARP (v)) value_type = G_TYPE_CHAR; else if (SCM_GOBJECTP (v)) { GObject *gobject; SCM_VALIDATE_GOBJECT_COPY (1, v, gobject); value_type = G_OBJECT_TYPE (gobject); } else if (SCM_BOOL (scm_list_p (v))) value_type = G_TYPE_VALUE_ARRAY; else scm_wrong_type_arg (FUNC_NAME, SCM_ARG2, v); { GValue tmp = { 0, }; g_value_init (&tmp, value_type); scm_c_gvalue_set (&tmp, v); /* copies the val */ g_value_array_append (arr, &tmp); g_value_unset (&tmp); } scm = SCM_CDR (scm); } g_value_take_boxed (value, arr); } #undef FUNC_NAME /********************************************************************** * Defining new enum and flags types **********************************************************************/ SCM_DEFINE (scm_genum_register_static, "genum-register-static", 2, 0, 0, (SCM name, SCM vtable), "Creates and registers a new enumerated type with name @var{name} with the C runtime. " "There must be no type with name @var{name} when this function is called.\n\n" "The new type can be accessed by using @code{gtype-name->class}.\n\n" "@var{vtable} is a vector describing the new enum type. Each vector element describes " "one enum element and must be a list of 3 elements: the element's nick name as a symbol, " "its name as a string, and its integer value.\n\n" "@lisp\n" "(genum-register-static \"Test\"\n" " #((foo \"Foo\" 1) (bar \"Bar\" 2) (baz \"Long name of baz\" 4)))\n" "@end lisp\n") #define FUNC_NAME s_scm_genum_register_static { size_t length, i; GEnumValue *values; GType type; SCM_VALIDATE_STRING (1, name); SCM_VALIDATE_VECTOR (2, vtable); scm_dynwind_begin (0); type = g_type_from_name (scm_to_locale_string_dynwind (name)); if (type) scm_c_gruntime_error (FUNC_NAME, "There is already a type with this name: ~S", SCM_LIST1 (name)); length = scm_c_vector_length (vtable); for (i = 0; i < length; i++) { SCM this = scm_c_vector_ref (vtable, i); SCM_ASSERT ((scm_ilength (this) == 3) && SCM_SYMBOLP (scm_car (this)) && scm_is_string (scm_cadr (this)) && scm_is_signed_integer (scm_caddr (this), SCM_T_INT32_MIN, SCM_T_INT32_MAX), vtable, SCM_ARG2, FUNC_NAME); } values = g_new0 (GEnumValue, length + 1); for (i = 0; i < length; i++) { SCM this = scm_c_vector_ref (vtable, i); values [i].value_nick = scm_symbol_chars (scm_car (this)); values [i].value_name = scm_to_locale_string (scm_cadr (this)); values [i].value = scm_to_int (scm_caddr (this)); } type = g_enum_register_static (scm_to_locale_string_dynwind (name), values); scm_dynwind_end (); return SCM_UNSPECIFIED; } #undef FUNC_NAME SCM_DEFINE (scm_gflags_register_static, "gflags-register-static", 2, 0, 0, (SCM name, SCM vtable), "Creates and registers a new flags @code{} with name " "@var{name} with the C runtime.\n\n" "The @var{vtable} should be in the format described in the " "documentation for @code{genum-register-static}.") #define FUNC_NAME s_scm_gflags_register_static { size_t length, i; GFlagsValue *values; GType type; SCM_VALIDATE_STRING (1, name); SCM_VALIDATE_VECTOR (2, vtable); scm_dynwind_begin (0); type = g_type_from_name (scm_to_locale_string_dynwind (name)); if (type) scm_c_gruntime_error (FUNC_NAME, "There is already a type with this name: ~S", SCM_LIST1 (name)); length = scm_c_vector_length (vtable); for (i = 0; i < length; i++) { SCM this = scm_c_vector_ref (vtable, i); SCM_ASSERT ((scm_ilength (this) == 3) && SCM_SYMBOLP (scm_car (this)) && scm_is_string (scm_cadr (this)) && scm_is_unsigned_integer (scm_caddr (this), 0, SCM_T_UINT32_MAX), vtable, SCM_ARG2, FUNC_NAME); } values = g_new0 (GFlagsValue, length + 1); for (i = 0; i < length; i++) { SCM this = scm_c_vector_ref (vtable, i); values [i].value_nick = scm_symbol_chars (scm_car (this)); values [i].value_name = scm_to_locale_string (scm_cadr (this)); values [i].value = scm_to_uint (scm_caddr (this)); } type = g_flags_register_static (scm_to_locale_string_dynwind (name), values); scm_dynwind_end (); return SCM_UNSPECIFIED; } #undef FUNC_NAME /********************************************************************** * GEnum and GFlags class support **********************************************************************/ SCM_DEFINE (scm_genum_class_to_value_table, "genum-class->value-table", 1, 0, 0, (SCM class), "Return a table of the values supported by the enumerated " "@code{} @var{class}. The return value will be in the " "format described in @code{genum-register-static}.") #define FUNC_NAME s_scm_genum_class_to_value_table { GType gtype; GEnumClass *enum_class; SCM vector; guint i; SCM_VALIDATE_GTYPE_CLASS_IS_A (1, class, G_TYPE_ENUM, gtype); enum_class = g_type_class_ref (gtype); vector = scm_c_make_vector (enum_class->n_values, SCM_UNDEFINED); for (i = 0; i < enum_class->n_values; i++) { GEnumValue *current = &enum_class->values [i]; SCM this; this = scm_list_3 (scm_from_locale_symbol (current->value_nick), scm_from_locale_string (current->value_name), scm_from_int (current->value)); scm_c_vector_set_x (vector, i, this); } g_type_class_unref (enum_class); return vector; } #undef FUNC_NAME SCM_DEFINE (scm_gflags_class_to_value_table, "gflags-class->value-table", 1, 0, 0, (SCM class), "Return a table of the values supported by the flag " "@code{} @var{class}. The return value will be in the " "format described in @code{gflags-register-static}.") #define FUNC_NAME s_scm_gflags_class_to_value_table { GType gtype; GFlagsClass *flags_class; SCM vector; guint i; SCM_VALIDATE_GTYPE_CLASS_IS_A (1, class, G_TYPE_FLAGS, gtype); flags_class = g_type_class_ref (gtype); vector = scm_c_make_vector (flags_class->n_values, SCM_UNDEFINED); for (i = 0; i < flags_class->n_values; i++) { GFlagsValue *current = &flags_class->values [i]; SCM this; this = scm_list_3 (scm_from_locale_symbol (current->value_nick), scm_from_locale_string (current->value_name), scm_from_uint (current->value)); scm_c_vector_set_x (vector, i, this); } g_type_class_unref (flags_class); return vector; } #undef FUNC_NAME gboolean scm_c_gvalue_holds (SCM maybe_gvalue, GType type) { return (SCM_GVALUEP (maybe_gvalue) && G_TYPE_CHECK_VALUE_TYPE (scm_c_gvalue_peek_value (maybe_gvalue), type)); } SCM scm_c_gvalue_new_from_boxed (GType type, const gpointer boxed) { SCM ret = scm_c_make_gvalue (type); g_value_set_boxed (scm_c_gvalue_peek_value (ret), boxed); return ret; } SCM scm_c_gvalue_new_take_boxed (GType type, gpointer boxed) { SCM ret = scm_c_make_gvalue (type); g_value_take_boxed (scm_c_gvalue_peek_value (ret), boxed); return ret; } gpointer scm_c_gvalue_peek_boxed (SCM value) { return g_value_get_boxed (scm_c_gvalue_peek_value (value)); } gpointer scm_c_gvalue_dup_boxed (SCM value) { return g_value_dup_boxed (scm_c_gvalue_peek_value (value)); } GValue* scm_c_gvalue_dup_value (SCM scm) { GValue *ret = g_new0 (GValue, 1); g_value_init (ret, G_VALUE_TYPE (scm_c_gvalue_peek_value (scm))); g_value_copy (scm_c_gvalue_peek_value (scm), ret); return ret; } SCM scm_c_gvalue_from_value (const GValue *value) { SCM ret = scm_c_make_gvalue (G_VALUE_TYPE (value)); g_value_copy (value, scm_c_gvalue_peek_value (ret)); return ret; } SCM scm_c_gvalue_take_value (GValue *value) { /* erm... suboptimal :) */ SCM ret; GValue *trash; ret = scm_c_make_gvalue (G_VALUE_TYPE (value)); g_return_val_if_fail (value != NULL, ret); trash = (GValue*)SCM_STRUCT_DATA (ret)[0]; SCM_STRUCT_DATA (ret)[0] = (scm_t_bits)value; g_free (trash); return ret; } void scm_init_gnome_gobject_values (void) { #ifndef SCM_MAGIC_SNARFER #include "gvalue.x" #endif _allocate_instance = scm_permanent_object (SCM_VARIABLE_REF (scm_c_lookup ("allocate-instance"))); scm_c_register_gvalue_wrappers (G_TYPE_BOXED_SCM, wrap_boxed_scm, unwrap_boxed_scm); scm_c_register_gvalue_wrappers (G_TYPE_VALUE_ARRAY, wrap_gvalue_array, unwrap_gvalue_array); } guile-gnome-platform-2.16.2/glib/gnome/gobject/Makefile.am0000644000175000017500000000452211670374302023665 0ustar00wingowingo00000000000000include $(top_srcdir)/common.mk lib_LTLIBRARIES = libguile-gnome-gobject-@API_VERSION@.la # libguile-gnome-gobject (core library) C_FILES = gc.c gutil.c gtype.c gparameter.c gvalue.c gclosure.c \ gsignal.c gobject.c H_FILES = $(C_FILES:.c=.h) libguile_gnome_gobject_@API_VERSION@_la_SOURCES = \ $(C_FILES) $(H_FILES) guile-support.c guile-support.h libguile_gnome_gobject_@API_VERSION@_la_CFLAGS = \ $(AM_CFLAGS) $(GOBJECT_CFLAGS) $(GTHREAD_CFLAGS) $(GUILE_CFLAGS) \ -DGUILE_GOBJECT_DIR=\""$(guilegnomedir)"\" libguile_gnome_gobject_@API_VERSION@_la_LIBADD = $(GOBJECT_LIBS) $(GTHREAD_LIBS) $(GUILE_LIBS) libguile_gnome_gobject_@API_VERSION@_la_LDFLAGS = # FIXME: version info guile_gnome_includedir = $(includedir)/guile-gnome-@API_VERSION@ guile_gnome_include_HEADERS = guile-gnome-gobject.h guile_gnome_subincludedir = $(guile_gnome_includedir)/guile-gnome-gobject guile_gnome_subinclude_HEADERS = $(H_FILES) # Scheme files moduledir = $(guilemoduledir)/gobject module_DATA = defs-support.scm event-repl.scm generics.scm \ gw-spec-utils.scm gw-utils.scm \ gtype.scm gparameter.scm gobject.scm gsignal.scm \ gvalue.scm gclosure.scm \ utils.scm GUILE_SNARF_CFLAGS += $(GOBJECT_CFLAGS) DOT_X_FILES = $(C_FILES:.c=.x) DOT_DOC_FILES = gobject.doc gsignal.doc gclosure.doc gvalue.doc \ gtype.doc guile-gnome-gobject.texi: $(DOT_DOC_FILES) cat $(DOT_DOC_FILES) | guile-snarf-docs-texi > $@ \ || { rm $@; false; } guile-gnome-gobject-procedures.txt: guile-gnome-gobject.texi rm -f $@ makeinfo --force -o $@ $< || test -f $@ BUILT_SOURCES = $(DOT_X_FILES) $(DOT_DOC_FILES) CLEANFILES = $(DOT_X_FILES) $(DOT_DOC_FILES) real_builddir=`cd . && pwd` all-local: config.scm config.scm: Makefile config.scm.in sed -e "s|@guilegnomegobjectlibpath\@|$(real_builddir)/libguile-gnome-gobject-@API_VERSION@|" \ $(srcdir)/config.scm.in > config.scm install-data-local: Makefile config.scm.in $(mkinstalldirs) $(DESTDIR)$(moduledir) sed -e "s|@guilegnomegobjectlibpath\@|$(libdir)/libguile-gnome-gobject-@API_VERSION@|" \ $(srcdir)/config.scm.in > $(DESTDIR)$(moduledir)/config.scm chmod 644 $(DESTDIR)$(moduledir)/config.scm uninstall-local: rm -f $(DESTDIR)$(moduledir)/config.scm CLEANFILES += config.scm #guilegnome_DATA = guile-gnome-gobject-procedures.txt EXTRA_DIST = config.scm.in $(module_DATA) private.h guile-gnome-platform-2.16.2/glib/gnome/gobject/gtype.h0000644000175000017500000001113211670374302023125 0ustar00wingowingo00000000000000/* guile-gnome * Copyright (C) 2003 Andy Wingo * * gtype.h: Base support for the GLib type system * * This program is free software; you can redistribute it and/or * modify it under the terms of the GNU General Public License as * published by the Free Software Foundation; either version 2 of * the License, or (at your option) any later version. * * This program is distributed in the hope that it will be useful, * but WITHOUT ANY WARRANTY; without even the implied warranty of * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the * GNU General Public License for more details. * * You should have received a copy of the GNU General Public License * along with this program; if not, contact: * * Free Software Foundation Voice: +1-617-542-5942 * 59 Temple Place - Suite 330 Fax: +1-617-542-2652 * Boston, MA 02111-1307, USA gnu@gnu.org */ #ifndef __GUILE_GNOME_GOBJECT_GTYPE_H__ #define __GUILE_GNOME_GOBJECT_GTYPE_H__ #include #include G_BEGIN_DECLS typedef gpointer (*scm_t_gtype_instance_ref)(gpointer instance); typedef void (*scm_t_gtype_instance_unref)(gpointer instance); typedef gpointer (*scm_t_gtype_instance_get_qdata)(gpointer instance, GQuark quark); typedef void (*scm_t_gtype_instance_set_qdata)(gpointer instance, GQuark quark, gpointer data); typedef void* (*scm_t_gtype_instance_construct)(SCM object, SCM initargs); typedef void (*scm_t_gtype_instance_initialize_scm)(SCM object, gpointer instance); typedef struct { GType type; scm_t_gtype_instance_ref ref; scm_t_gtype_instance_unref unref; scm_t_gtype_instance_get_qdata get_qdata; scm_t_gtype_instance_set_qdata set_qdata; scm_t_gtype_instance_construct construct; scm_t_gtype_instance_initialize_scm initialize_scm; } scm_t_gtype_instance_funcs; extern SCM scm_class_gtype_class; extern SCM scm_class_gtype_instance; extern SCM scm_sys_gtype_to_class; #define SCM_GTYPE_CLASSP(scm) SCM_NFALSEP (scm_memq (scm_class_gtype_class, \ scm_class_precedence_list (scm_class_of ((scm))))) #define SCM_GTYPE_INSTANCEP(scm) SCM_IS_A_P (scm, scm_class_gtype_instance) #define SCM_VALIDATE_GTYPE_CLASS(pos, scm) SCM_MAKE_VALIDATE (pos, scm, GTYPE_CLASSP) #define SCM_VALIDATE_GTYPE_INSTANCE(pos, scm) SCM_MAKE_VALIDATE (pos, scm, GTYPE_INSTANCEP) #define SCM_VALIDATE_GTYPE_CLASS_COPY(pos, scm, cvar) \ do { \ SCM_VALIDATE_GTYPE_CLASS (pos, scm); \ cvar = scm_c_gtype_class_to_gtype (scm); \ } while (0) #define SCM_VALIDATE_GTYPE_CLASS_IS_A(pos, scm, is_a, cvar) \ do { \ SCM_VALIDATE_GTYPE_CLASS_COPY (pos, scm, cvar); \ SCM_ASSERT (g_type_is_a (cvar, is_a), scm, pos, FUNC_NAME); \ } while (0) #define SCM_VALIDATE_GTYPE_INSTANCE_COPY(pos, value, cvar) \ do { \ SCM_VALIDATE_GTYPE_INSTANCE (pos, value); \ cvar = scm_c_scm_to_gtype_instance (value); \ } while (0) #define SCM_VALIDATE_GTYPE_INSTANCE_TYPE_COPY(pos, value, type, cvar) \ do { \ SCM_VALIDATE_GTYPE_INSTANCE (pos, value); \ cvar = scm_c_scm_to_gtype_instance_typed (value, type); \ SCM_ASSERT (cvar != NULL, value, pos, FUNC_NAME); \ } while (0) /* SCM API */ /* GTypeInstance */ SCM scm_gtype_instance_destroy_x (SCM instance); /* C-only API */ GType gboxed_scm_get_type (void) G_GNUC_CONST; #define G_TYPE_BOXED_SCM (gboxed_scm_get_type ()) /* GTypeClass */ SCM scm_c_gtype_lookup_class (GType gtype); SCM scm_c_gtype_to_class (GType gtype); gboolean scm_c_gtype_class_is_a_p (SCM instance, GType gtype); GType scm_c_gtype_class_to_gtype (SCM klass); /* GTypeInstance use */ gpointer scm_c_gtype_instance_ref (gpointer instance); void scm_c_gtype_instance_unref (gpointer instance); gboolean scm_c_gtype_instance_is_a_p (SCM instance, GType gtype); gpointer scm_c_scm_to_gtype_instance (SCM instance); gpointer scm_c_scm_to_gtype_instance_typed (SCM instance, GType gtype); SCM scm_c_gtype_instance_to_scm (gpointer ginstance); /* GTypeInstance implementations */ void scm_c_gruntime_error (const char *subr, const char *message, SCM args); void scm_register_gtype_instance_funcs (const scm_t_gtype_instance_funcs *funcs); void scm_register_gtype_instance_sinkfunc (GType type, void (*sinkfunc) (gpointer)); G_END_DECLS #endif /* __GUILE_GNOME_GOBJECT_GTYPE_H__ */ guile-gnome-platform-2.16.2/glib/gnome/gobject/gparameter.scm0000644000175000017500000003226011752432066024467 0ustar00wingowingo00000000000000;; guile-gnome ;; Copyright (C) 2001 Martin Baulig ;; Copyright (C) 2003,2004 Andy Wingo ;; This program is free software; you can redistribute it and/or ;; modify it under the terms of the GNU General Public License as ;; published by the Free Software Foundation; either version 2 of ;; the License, or (at your option) any later version. ;; ;; This program is distributed in the hope that it will be useful, ;; but WITHOUT ANY WARRANTY; without even the implied warranty of ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the ;; GNU General Public License for more details. ;; ;; You should have received a copy of the GNU General Public License ;; along with this program; if not, contact: ;; ;; Free Software Foundation Voice: +1-617-542-5942 ;; 59 Temple Place - Suite 330 Fax: +1-617-542-2652 ;; Boston, MA 02111-1307, USA gnu@gnu.org ;;; Commentary: ;; ;; Parameters are constraints for values, both in type and in range. ;; This module wraps the parameters code of the GLib type system, ;; allowing parameters to be manipulated and created from Scheme. ;; ;; There is a parameter class for each type of parameter: ;; @code{}, @code{}, etc. ;; ;;; Code: (define-module (gnome gobject gparameter) #:use-module (oop goops) #:use-module (gnome gobject config) #:use-module (gnome gobject utils) #:use-module (gnome gobject gtype) #:use-module (gnome gobject gvalue) #:export ( ;; GOOPS parameter base class ;; Parameter classes ;; Helper class ;; Limits gparameter:uint-max gparameter:int-min gparameter:int-max gparameter:ulong-max gparameter:long-min gparameter:long-max gparameter:uint64-max gparameter:int64-min gparameter:int64-max gparameter:float-max gparameter:float-min gparameter:double-max gparameter:double-min gparameter:byte-order )) (define-class-with-docs () "A @code{} type for the flags allowable on a @code{}: @code{read}, @code{write}, @code{construct}, @code{construct-only}, and @code{lax-validation}." #:vtable #((read "Readable" 1) (write "Writable" 2) (construct "Set on object construction" 4) (construct-only "Only set on object construction" 8) (lax-validation "Don't require strict validation on parameter conversion" 16))) ;; The C code needs to reference for use in its predicates. ;; Define it now before loading the library. (define-class () (value-type #:init-keyword #:value-type)) (define-method (compute-get-n-set (class ) s) (case (slot-definition-allocation s) ((#:checked) (let ((already-allocated (slot-ref class 'nfields)) (pred (get-keyword #:pred (slot-definition-options s) #f)) (trans (get-keyword #:trans (slot-definition-options s) #f))) (or pred (gruntime-error "Missing #:pred for #:checked slot")) ;; allocate a field in the struct (slot-set! class 'nfields (+ already-allocated 1)) ;; struct-ref and struct-set! don't work on the structs that back ;; GOOPS objects, because they are "light structs", without the ;; hidden word that says how many fields are in the struct. ;; Patches submitted to guile-devel on 10 April 2008. Until then, ;; use our own struct accessors. (list (lambda (instance) (%hacky-struct-ref instance already-allocated)) (lambda (instance value) (let ((value (if trans (trans value) value))) (if (pred value) (%hacky-struct-set! instance already-allocated value) (gruntime-error "Bad value for slot ~A on instance ~A: ~A" (slot-definition-name s) instance value))))))) (else (next-method)))) (define-class-with-docs () "The base class for GLib parameter objects. (Doc slots)" (name #:init-keyword #:name #:allocation #:checked #:pred symbol?) (nick #:init-keyword #:nick #:allocation #:checked #:pred string?) (blurb #:init-keyword #:blurb #:allocation #:checked #:pred string?) (flags #:init-keyword #:flags #:init-value '(read write) #:allocation #:checked #:pred number? #:trans (lambda (x) (apply + (gflags->value-list (make #:value x))))) #:gtype-name "GParam" #:metaclass ) (dynamic-call "scm_init_gnome_gobject_parameters" (dynamic-link *guile-gnome-gobject-lib-path*)) (define-class-with-docs () "Parameter for @code{} values." (minimum #:init-keyword #:minimum #:init-value (integer->char 0) #:allocation #:checked #:pred (lambda (x) (or (char? x) (integer? x)))) (maximum #:init-keyword #:maximum #:init-value (integer->char 127) #:allocation #:checked #:pred (lambda (x) (or (char? x) (integer? x)))) (default-value #:init-keyword #:default-value #:init-value (integer->char 127) #:allocation #:checked #:pred (lambda (x) (or (char? x) (integer? x)))) #:value-type #:gtype-name "GParamChar") (define-class-with-docs () "Parameter for @code{} values." (minimum #:init-keyword #:minimum #:init-value (integer->char 0) #:allocation #:checked #:pred (lambda (x) (or (char? x) (integer? x)))) (maximum #:init-keyword #:maximum #:init-value (integer->char 255) #:allocation #:checked #:pred (lambda (x) (or (char? x) (integer? x)))) (default-value #:init-keyword #:default-value #:init-value (integer->char 255) #:allocation #:checked #:pred (lambda (x) (or (char? x) (integer? x)))) #:value-type #:gtype-name "GParamUChar") (define-class-with-docs () "Parameter for @code{} values." (default-value #:init-keyword #:default-value #:init-value #f #:allocation #:checked #:pred boolean?) #:value-type #:gtype-name "GParamBoolean") (define-class-with-docs () "Parameter for @code{} values." (minimum #:init-keyword #:minimum #:init-value gparameter:int-min #:allocation #:checked #:pred integer?) (maximum #:init-keyword #:maximum #:init-value gparameter:int-max #:allocation #:checked #:pred integer?) (default-value #:init-keyword #:default-value #:init-value 0 #:allocation #:checked #:pred integer?) #:value-type #:gtype-name "GParamInt") (define-class-with-docs () "Parameter for @code{} values." (minimum #:init-keyword #:minimum #:init-value 0 #:allocation #:checked #:pred integer?) (maximum #:init-keyword #:maximum #:init-value gparameter:uint-max #:allocation #:checked #:pred integer?) (default-value #:init-keyword #:default-value #:init-value 0 #:allocation #:checked #:pred integer?) #:value-type #:gtype-name "GParamUInt") (define-class-with-docs () "Parameter for Unicode codepoints, represented as @code{} values." (default-value #:init-keyword #:default-value #:init-value 0 #:allocation #:checked #:pred integer?) #:value-type #:gtype-name "GParamUnichar") (define-class-with-docs () "Parameter for @code{} values." (minimum #:init-keyword #:minimum #:init-value gparameter:long-min #:allocation #:checked #:pred integer?) (maximum #:init-keyword #:maximum #:init-value gparameter:long-max #:allocation #:checked #:pred integer?) (default-value #:init-keyword #:default-value #:init-value 0 #:allocation #:checked #:pred integer?) #:value-type #:gtype-name "GParamLong") (define-class-with-docs () "Parameter for @code{} values." (minimum #:init-keyword #:minimum #:init-value 0 #:allocation #:checked #:pred integer?) (maximum #:init-keyword #:maximum #:init-value gparameter:ulong-max #:allocation #:checked #:pred integer?) (default-value #:init-keyword #:default-value #:init-value 0 #:allocation #:checked #:pred integer?) #:value-type #:gtype-name "GParamULong") (define-class-with-docs () "Parameter for @code{} values." (minimum #:init-keyword #:minimum #:init-value gparameter:int64-min #:allocation #:checked #:pred integer?) (maximum #:init-keyword #:maximum #:init-value gparameter:int64-max #:allocation #:checked #:pred integer?) (default-value #:init-keyword #:default-value #:init-value 0 #:allocation #:checked #:pred integer?) #:value-type #:gtype-name "GParamInt64") (define-class-with-docs () "Parameter for @code{} values." (minimum #:init-keyword #:minimum #:init-value 0 #:allocation #:checked #:pred integer?) (maximum #:init-keyword #:maximum #:init-value gparameter:uint64-max #:allocation #:checked #:pred integer?) (default-value #:init-keyword #:default-value #:init-value 0 #:allocation #:checked #:pred integer?) #:value-type #:gtype-name "GParamUInt64") (define-class-with-docs () "Parameter for @code{} values." (minimum #:init-keyword #:minimum #:init-value (- gparameter:float-max) #:allocation #:checked #:pred real?) (maximum #:init-keyword #:maximum #:init-value gparameter:float-max #:allocation #:checked #:pred real?) (default-value #:init-keyword #:default-value #:init-value 0.0 #:allocation #:checked #:pred real?) #:value-type #:gtype-name "GParamFloat") (define-class-with-docs () "Parameter for @code{} values." (minimum #:init-keyword #:minimum #:init-value (- gparameter:double-max) #:allocation #:checked #:pred real?) (maximum #:init-keyword #:maximum #:init-value gparameter:double-max #:allocation #:checked #:pred real?) (default-value #:init-keyword #:default-value #:init-value 0.0 #:allocation #:checked #:pred real?) #:value-type #:gtype-name "GParamDouble") (define-class-with-docs () "Parameter for @code{} values." #:value-type #:gtype-name "GParamPointer") (define-class-with-docs () "Parameter for @code{} values." (default-value #:init-keyword #:default-value #:init-value "" #:allocation #:checked #:pred (lambda (x) (or (not x) (string? x)))) #:value-type #:gtype-name "GParamString") (define (class-is-a? x is-a) (memq is-a (class-precedence-list x))) (define-class-with-docs () "Parameter for @code{} values." (boxed-type #:init-keyword #:boxed-type #:allocation #:checked #:pred (lambda (x) (class-is-a? x ))) #:value-type #:gtype-name "GParamBoxed") (define-class-with-docs () "Parameter for @code{} values." (enum-type #:init-keyword #:enum-type #:allocation #:checked #:pred (lambda (x) (class-is-a? x ))) (default-value #:init-keyword #:default-value #:init-value 0 #:allocation #:checked #:pred number?) #:value-type #:gtype-name "GParamEnum") (define-class-with-docs () "Parameter for @code{} values." (flags-type #:init-keyword #:flags-type #:allocation #:checked #:pred (lambda (x) (class-is-a? x ))) (default-value #:init-keyword #:default-value #:init-value 0 #:allocation #:checked #:pred number?) #:value-type #:gtype-name "GParamFlags") (define-class-with-docs () "Parameter for @code{} values." (element-spec #:init-keyword #:element-spec #:allocation #:checked #:pred (lambda (x) (or (not x) (is-a? x )))) #:value-type #:gtype-name "GParamValueArray") (define-class-with-docs () "Parameter for @code{} values." (is-a-type #:init-keyword #:is-a-type #:allocation #:checked #:pred (lambda (x) (or (not x) (is-a? x )))) #:value-type #:gtype-name "GParamGType") ;;; ;;; {Instance Initialization} ;;; ;; fixme, make me more useful (define-method (write (param ) file) (let ((class (class-of param)) (loc (number->string (object-address param) 16))) (if (slot-bound? class 'name) (with-accessors (name) (format file "<~a ~a ~a>" (class-name class) (name param) loc)) (format file "<~a (uninitialized) ~a>" (class-name class) loc)))) guile-gnome-platform-2.16.2/glib/gnome/gobject/Makefile.in0000644000175000017500000012062311752520655023704 0ustar00wingowingo00000000000000# Makefile.in generated by automake 1.11.5 from Makefile.am. # @configure_input@ # Copyright (C) 1994, 1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, # 2003, 2004, 2005, 2006, 2007, 2008, 2009, 2010, 2011 Free Software # Foundation, Inc. # This Makefile.in is free software; the Free Software Foundation # gives unlimited permission to copy and/or distribute it, # with or without modifications, as long as this notice is preserved. # This program is distributed in the hope that it will be useful, # but WITHOUT ANY WARRANTY, to the extent permitted by law; without # even the implied warranty of MERCHANTABILITY or FITNESS FOR A # PARTICULAR PURPOSE. @SET_MAKE@ # guile-gnome # Copyright (C) 2003,2004,2009,2012 Free Software Foundation, Inc. # This program is free software; you can redistribute it and/or # modify it under the terms of the GNU General Public License as # published by the Free Software Foundation; either version 2 of # the License, or (at your option) any later version. # This program is distributed in the hope that it will be useful, # but WITHOUT ANY WARRANTY; without even the implied warranty of # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the # GNU General Public License for more details. # You should have received a copy of the GNU General Public License # along with this program; if not, contact: # Free Software Foundation Voice: +1-617-542-5942 # 59 Temple Place - Suite 330 Fax: +1-617-542-2652 # Boston, MA 02111-1307, USA gnu@gnu.org # # Makefile snippet # VPATH = @srcdir@ am__make_dryrun = \ { \ am__dry=no; \ case $$MAKEFLAGS in \ *\\[\ \ ]*) \ echo 'am--echo: ; @echo "AM" OK' | $(MAKE) -f - 2>/dev/null \ | grep '^AM OK$$' >/dev/null || am__dry=yes;; \ *) \ for am__flg in $$MAKEFLAGS; do \ case $$am__flg in \ *=*|--*) ;; \ *n*) am__dry=yes; break;; \ esac; \ done;; \ esac; \ test $$am__dry = yes; \ } pkgdatadir = $(datadir)/@PACKAGE@ pkgincludedir = $(includedir)/@PACKAGE@ pkglibdir = $(libdir)/@PACKAGE@ pkglibexecdir = $(libexecdir)/@PACKAGE@ am__cd = CDPATH="$${ZSH_VERSION+.}$(PATH_SEPARATOR)" && cd install_sh_DATA = $(install_sh) -c -m 644 install_sh_PROGRAM = $(install_sh) -c install_sh_SCRIPT = $(install_sh) -c INSTALL_HEADER = $(INSTALL_DATA) transform = $(program_transform_name) NORMAL_INSTALL = : PRE_INSTALL = : POST_INSTALL = : NORMAL_UNINSTALL = : PRE_UNINSTALL = : POST_UNINSTALL = : build_triplet = @build@ host_triplet = @host@ DIST_COMMON = $(guile_gnome_include_HEADERS) \ $(guile_gnome_subinclude_HEADERS) $(srcdir)/Makefile.am \ $(srcdir)/Makefile.in $(top_srcdir)/common.mk subdir = glib/gnome/gobject ACLOCAL_M4 = $(top_srcdir)/aclocal.m4 am__aclocal_m4_deps = $(top_srcdir)/configure.ac am__configure_deps = $(am__aclocal_m4_deps) $(CONFIGURE_DEPENDENCIES) \ $(ACLOCAL_M4) mkinstalldirs = $(install_sh) -d CONFIG_HEADER = $(top_builddir)/config.h CONFIG_CLEAN_FILES = CONFIG_CLEAN_VPATH_FILES = am__vpath_adj_setup = srcdirstrip=`echo "$(srcdir)" | sed 's|.|.|g'`; am__vpath_adj = case $$p in \ $(srcdir)/*) f=`echo "$$p" | sed "s|^$$srcdirstrip/||"`;; \ *) f=$$p;; \ esac; am__strip_dir = f=`echo $$p | sed -e 's|^.*/||'`; am__install_max = 40 am__nobase_strip_setup = \ srcdirstrip=`echo "$(srcdir)" | sed 's/[].[^$$\\*|]/\\\\&/g'` am__nobase_strip = \ for p in $$list; do echo "$$p"; done | sed -e "s|$$srcdirstrip/||" am__nobase_list = $(am__nobase_strip_setup); \ for p in $$list; do echo "$$p $$p"; done | \ sed "s| $$srcdirstrip/| |;"' / .*\//!s/ .*/ ./; s,\( .*\)/[^/]*$$,\1,' | \ $(AWK) 'BEGIN { files["."] = "" } { files[$$2] = files[$$2] " " $$1; \ if (++n[$$2] == $(am__install_max)) \ { print $$2, files[$$2]; n[$$2] = 0; files[$$2] = "" } } \ END { for (dir in files) print dir, files[dir] }' am__base_list = \ sed '$$!N;$$!N;$$!N;$$!N;$$!N;$$!N;$$!N;s/\n/ /g' | \ sed '$$!N;$$!N;$$!N;$$!N;s/\n/ /g' am__uninstall_files_from_dir = { \ test -z "$$files" \ || { test ! -d "$$dir" && test ! -f "$$dir" && test ! -r "$$dir"; } \ || { echo " ( cd '$$dir' && rm -f" $$files ")"; \ $(am__cd) "$$dir" && rm -f $$files; }; \ } am__installdirs = "$(DESTDIR)$(libdir)" "$(DESTDIR)$(moduledir)" \ "$(DESTDIR)$(guile_gnome_includedir)" \ "$(DESTDIR)$(guile_gnome_subincludedir)" LTLIBRARIES = $(lib_LTLIBRARIES) am__DEPENDENCIES_1 = libguile_gnome_gobject_@API_VERSION@_la_DEPENDENCIES = \ $(am__DEPENDENCIES_1) $(am__DEPENDENCIES_1) \ $(am__DEPENDENCIES_1) am__objects_1 = libguile_gnome_gobject_@API_VERSION@_la-gc.lo \ libguile_gnome_gobject_@API_VERSION@_la-gutil.lo \ libguile_gnome_gobject_@API_VERSION@_la-gtype.lo \ libguile_gnome_gobject_@API_VERSION@_la-gparameter.lo \ libguile_gnome_gobject_@API_VERSION@_la-gvalue.lo \ libguile_gnome_gobject_@API_VERSION@_la-gclosure.lo \ libguile_gnome_gobject_@API_VERSION@_la-gsignal.lo \ libguile_gnome_gobject_@API_VERSION@_la-gobject.lo am__objects_2 = am__objects_3 = $(am__objects_2) am_libguile_gnome_gobject_@API_VERSION@_la_OBJECTS = $(am__objects_1) \ $(am__objects_3) \ libguile_gnome_gobject_@API_VERSION@_la-guile-support.lo libguile_gnome_gobject_@API_VERSION@_la_OBJECTS = \ $(am_libguile_gnome_gobject_@API_VERSION@_la_OBJECTS) libguile_gnome_gobject_@API_VERSION@_la_LINK = $(LIBTOOL) --tag=CC \ $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=link $(CCLD) \ $(libguile_gnome_gobject_@API_VERSION@_la_CFLAGS) $(CFLAGS) \ $(libguile_gnome_gobject_@API_VERSION@_la_LDFLAGS) $(LDFLAGS) \ -o $@ DEFAULT_INCLUDES = -I.@am__isrc@ -I$(top_builddir) depcomp = $(SHELL) $(top_srcdir)/build-aux/depcomp am__depfiles_maybe = depfiles am__mv = mv -f COMPILE = $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(AM_CPPFLAGS) \ $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) LTCOMPILE = $(LIBTOOL) --tag=CC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) \ --mode=compile $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) \ $(AM_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) CCLD = $(CC) LINK = $(LIBTOOL) --tag=CC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) \ --mode=link $(CCLD) $(AM_CFLAGS) $(CFLAGS) $(AM_LDFLAGS) \ $(LDFLAGS) -o $@ SOURCES = $(libguile_gnome_gobject_@API_VERSION@_la_SOURCES) DIST_SOURCES = $(libguile_gnome_gobject_@API_VERSION@_la_SOURCES) am__can_run_installinfo = \ case $$AM_UPDATE_INFO_DIR in \ n|no|NO) false;; \ *) (install-info --version) >/dev/null 2>&1;; \ esac DATA = $(module_DATA) HEADERS = $(guile_gnome_include_HEADERS) \ $(guile_gnome_subinclude_HEADERS) ETAGS = etags CTAGS = ctags DISTFILES = $(DIST_COMMON) $(DIST_SOURCES) $(TEXINFOS) $(EXTRA_DIST) ACLOCAL = @ACLOCAL@ AG_PKG_CONFIG_PATH = @AG_PKG_CONFIG_PATH@ AMTAR = @AMTAR@ API_VERSION = @API_VERSION@ AR = @AR@ ATK_CFLAGS = @ATK_CFLAGS@ ATK_LIBS = @ATK_LIBS@ AUTOCONF = @AUTOCONF@ AUTOHEADER = @AUTOHEADER@ AUTOMAKE = @AUTOMAKE@ AWK = @AWK@ BONOBO_IDL_DIR = @BONOBO_IDL_DIR@ CANVAS_CFLAGS = @CANVAS_CFLAGS@ CANVAS_LIBS = @CANVAS_LIBS@ CC = @CC@ CCDEPMODE = @CCDEPMODE@ CFLAGS = @CFLAGS@ CORBA_CFLAGS = @CORBA_CFLAGS@ CORBA_LIBS = @CORBA_LIBS@ CPP = @CPP@ CPPFLAGS = @CPPFLAGS@ CYGPATH_W = @CYGPATH_W@ DEFS = @DEFS@ DEPDIR = @DEPDIR@ DLLTOOL = @DLLTOOL@ DSYMUTIL = @DSYMUTIL@ DUMPBIN = @DUMPBIN@ ECHO_C = @ECHO_C@ ECHO_N = @ECHO_N@ ECHO_T = @ECHO_T@ EGREP = @EGREP@ EXEEXT = @EXEEXT@ FGREP = @FGREP@ GCONF_CFLAGS = @GCONF_CFLAGS@ GCONF_LIBS = @GCONF_LIBS@ GDK_CFLAGS = @GDK_CFLAGS@ GDK_LIBS = @GDK_LIBS@ GDK_PIXBUF_CFLAGS = @GDK_PIXBUF_CFLAGS@ GDK_PIXBUF_LIBS = @GDK_PIXBUF_LIBS@ GLIB_CFLAGS = @GLIB_CFLAGS@ GLIB_LIBS = @GLIB_LIBS@ GNOMEUI_DEPRECATION_FLAGS = @GNOMEUI_DEPRECATION_FLAGS@ GNOME_VFS_CFLAGS = @GNOME_VFS_CFLAGS@ GNOME_VFS_DEPRECATED_CFLAGS = @GNOME_VFS_DEPRECATED_CFLAGS@ GNOME_VFS_LIBS = @GNOME_VFS_LIBS@ GOBJECT_CFLAGS = @GOBJECT_CFLAGS@ GOBJECT_LIBS = @GOBJECT_LIBS@ GREP = @GREP@ GTHREAD_CFLAGS = @GTHREAD_CFLAGS@ GTHREAD_LIBS = @GTHREAD_LIBS@ GTK_CFLAGS = @GTK_CFLAGS@ GTK_DEPRECATED_CFLAGS = @GTK_DEPRECATED_CFLAGS@ GTK_LIBS = @GTK_LIBS@ GUILE_CAIRO_CFLAGS = @GUILE_CAIRO_CFLAGS@ GUILE_CAIRO_LIBS = @GUILE_CAIRO_LIBS@ GUILE_CFLAGS = @GUILE_CFLAGS@ GUILE_EFFECTIVE_VERSION = @GUILE_EFFECTIVE_VERSION@ GUILE_GLIB_CFLAGS = @GUILE_GLIB_CFLAGS@ GUILE_GLIB_LIBS = @GUILE_GLIB_LIBS@ GUILE_LIBS = @GUILE_LIBS@ G_WRAP_CFLAGS = @G_WRAP_CFLAGS@ G_WRAP_LIBS = @G_WRAP_LIBS@ G_WRAP_LIB_DIR = @G_WRAP_LIB_DIR@ G_WRAP_MODULE_DIR = @G_WRAP_MODULE_DIR@ INSTALL = @INSTALL@ INSTALL_DATA = @INSTALL_DATA@ INSTALL_PROGRAM = @INSTALL_PROGRAM@ INSTALL_SCRIPT = @INSTALL_SCRIPT@ INSTALL_STRIP_PROGRAM = @INSTALL_STRIP_PROGRAM@ LD = @LD@ LDFLAGS = @LDFLAGS@ LIBGLADE_CFLAGS = @LIBGLADE_CFLAGS@ LIBGLADE_LIBS = @LIBGLADE_LIBS@ LIBGNOMEUI_CFLAGS = @LIBGNOMEUI_CFLAGS@ LIBGNOMEUI_LIBS = @LIBGNOMEUI_LIBS@ LIBGNOME_CFLAGS = @LIBGNOME_CFLAGS@ LIBGNOME_LIBS = @LIBGNOME_LIBS@ LIBOBJS = @LIBOBJS@ LIBS = @LIBS@ LIBTOOL = @LIBTOOL@ LIPO = @LIPO@ LN_S = @LN_S@ LTLIBOBJS = @LTLIBOBJS@ MAKEINFO = @MAKEINFO@ MANIFEST_TOOL = @MANIFEST_TOOL@ MKDIR_P = @MKDIR_P@ NM = @NM@ NMEDIT = @NMEDIT@ OBJDUMP = @OBJDUMP@ OBJEXT = @OBJEXT@ ORBIT_IDL = @ORBIT_IDL@ OTOOL = @OTOOL@ OTOOL64 = @OTOOL64@ PACKAGE = @PACKAGE@ PACKAGE_BUGREPORT = @PACKAGE_BUGREPORT@ PACKAGE_NAME = @PACKAGE_NAME@ PACKAGE_STRING = @PACKAGE_STRING@ PACKAGE_TARNAME = @PACKAGE_TARNAME@ PACKAGE_URL = @PACKAGE_URL@ PACKAGE_VERSION = @PACKAGE_VERSION@ PANGOCAIRO_CFLAGS = @PANGOCAIRO_CFLAGS@ PANGOCAIRO_LIBS = @PANGOCAIRO_LIBS@ PANGO_CFLAGS = @PANGO_CFLAGS@ PANGO_LIBS = @PANGO_LIBS@ PATH_SEPARATOR = @PATH_SEPARATOR@ PKG_CONFIG = @PKG_CONFIG@ PKG_CONFIG_LIBDIR = @PKG_CONFIG_LIBDIR@ PKG_CONFIG_PATH = @PKG_CONFIG_PATH@ RANLIB = @RANLIB@ SED = @SED@ SET_MAKE = @SET_MAKE@ SHELL = @SHELL@ STRIP = @STRIP@ VERSION = @VERSION@ WARN_CFLAGS = @WARN_CFLAGS@ abs_builddir = @abs_builddir@ abs_srcdir = @abs_srcdir@ abs_top_builddir = @abs_top_builddir@ abs_top_srcdir = @abs_top_srcdir@ ac_ct_AR = @ac_ct_AR@ ac_ct_CC = @ac_ct_CC@ ac_ct_DUMPBIN = @ac_ct_DUMPBIN@ am__include = @am__include@ am__leading_dot = @am__leading_dot@ am__quote = @am__quote@ am__tar = @am__tar@ am__untar = @am__untar@ bindir = @bindir@ build = @build@ build_alias = @build_alias@ build_cpu = @build_cpu@ build_os = @build_os@ build_vendor = @build_vendor@ builddir = @builddir@ datadir = @datadir@ datarootdir = @datarootdir@ docdir = @docdir@ dvidir = @dvidir@ exec_prefix = @exec_prefix@ host = @host@ host_alias = @host_alias@ host_cpu = @host_cpu@ host_os = @host_os@ host_vendor = @host_vendor@ htmldir = @htmldir@ includedir = @includedir@ infodir = @infodir@ install_sh = @install_sh@ libdir = @libdir@ libexecdir = @libexecdir@ localedir = @localedir@ localstatedir = @localstatedir@ mandir = @mandir@ mkdir_p = @mkdir_p@ oldincludedir = @oldincludedir@ pdfdir = @pdfdir@ prefix = @prefix@ program_transform_name = @program_transform_name@ psdir = @psdir@ sbindir = @sbindir@ sharedstatedir = @sharedstatedir@ srcdir = @srcdir@ sysconfdir = @sysconfdir@ target_alias = @target_alias@ top_build_prefix = @top_build_prefix@ top_builddir = @top_builddir@ top_srcdir = @top_srcdir@ guilegnomedir = $(datadir)/guile-gnome-@API_VERSION@ guilemoduledir = $(guilegnomedir)/gnome guilegwmoduledir = $(guilegnomedir)/gnome/gw guilegnomelibdir = $(libdir)/guile-gnome-@API_VERSION@ AM_CFLAGS = -I. -I$(srcdir) $(WARN_CFLAGS) $(DEBUG_CFLAGS) # For overriding from the command line (e.g. --debug) GUILE_FLAGS = SUFFIXES = .x .doc GUILE_SNARF_CFLAGS = $(DEFS) $(AM_CFLAGS) $(GUILE_CFLAGS) \ $(G_WRAP_CFLAGS) $(GOBJECT_CFLAGS) PACKAGES = atk cairo corba defs gconf glib gnome-vfs gtk libglade libgnome libgnomecanvas libgnomeui pango SOURCE_GUILE_PATH = $(shell echo $(addprefix $(top_srcdir)/,$(PACKAGES)) | sed -e 's/ /:/g'):$(srcdir) BUILD_GUILE_PATH = $(if $(filter-out $(top_srcdir),$(top_builddir)),$(shell echo -n $(addprefix $(top_builddir)/,$(PACKAGES)): | sed -e 's/ /:/g'),) GUILE_LOAD_PATH := $(BUILD_GUILE_PATH)$(SOURCE_GUILE_PATH):${G_WRAP_MODULE_DIR}:${GUILE_LOAD_PATH} # Real gnu make foo packages = $(filter-out %-uninstalled,$(patsubst %.pc.in,%,$(notdir $(wildcard $(srcdir)/*.pc.in)))) pcifiles = $(patsubst %,%-@API_VERSION@.pc,$(packages)) pcufiles = $(patsubst %,%-@API_VERSION@-uninstalled.pc,$(packages)) lib_LTLIBRARIES = libguile-gnome-gobject-@API_VERSION@.la # libguile-gnome-gobject (core library) C_FILES = gc.c gutil.c gtype.c gparameter.c gvalue.c gclosure.c \ gsignal.c gobject.c H_FILES = $(C_FILES:.c=.h) libguile_gnome_gobject_@API_VERSION@_la_SOURCES = \ $(C_FILES) $(H_FILES) guile-support.c guile-support.h libguile_gnome_gobject_@API_VERSION@_la_CFLAGS = \ $(AM_CFLAGS) $(GOBJECT_CFLAGS) $(GTHREAD_CFLAGS) $(GUILE_CFLAGS) \ -DGUILE_GOBJECT_DIR=\""$(guilegnomedir)"\" libguile_gnome_gobject_@API_VERSION@_la_LIBADD = $(GOBJECT_LIBS) $(GTHREAD_LIBS) $(GUILE_LIBS) libguile_gnome_gobject_@API_VERSION@_la_LDFLAGS = # FIXME: version info guile_gnome_includedir = $(includedir)/guile-gnome-@API_VERSION@ guile_gnome_include_HEADERS = guile-gnome-gobject.h guile_gnome_subincludedir = $(guile_gnome_includedir)/guile-gnome-gobject guile_gnome_subinclude_HEADERS = $(H_FILES) # Scheme files moduledir = $(guilemoduledir)/gobject module_DATA = defs-support.scm event-repl.scm generics.scm \ gw-spec-utils.scm gw-utils.scm \ gtype.scm gparameter.scm gobject.scm gsignal.scm \ gvalue.scm gclosure.scm \ utils.scm DOT_X_FILES = $(C_FILES:.c=.x) DOT_DOC_FILES = gobject.doc gsignal.doc gclosure.doc gvalue.doc \ gtype.doc BUILT_SOURCES = $(DOT_X_FILES) $(DOT_DOC_FILES) CLEANFILES = $(DOT_X_FILES) $(DOT_DOC_FILES) config.scm real_builddir = `cd . && pwd` #guilegnome_DATA = guile-gnome-gobject-procedures.txt EXTRA_DIST = config.scm.in $(module_DATA) private.h all: $(BUILT_SOURCES) $(MAKE) $(AM_MAKEFLAGS) all-am .SUFFIXES: .SUFFIXES: .x .doc .c .lo .o .obj $(srcdir)/Makefile.in: $(srcdir)/Makefile.am $(top_srcdir)/common.mk $(am__configure_deps) @for dep in $?; do \ case '$(am__configure_deps)' in \ *$$dep*) \ ( cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh ) \ && { if test -f $@; then exit 0; else break; fi; }; \ exit 1;; \ esac; \ done; \ echo ' cd $(top_srcdir) && $(AUTOMAKE) --gnu glib/gnome/gobject/Makefile'; \ $(am__cd) $(top_srcdir) && \ $(AUTOMAKE) --gnu glib/gnome/gobject/Makefile .PRECIOUS: Makefile Makefile: $(srcdir)/Makefile.in $(top_builddir)/config.status @case '$?' in \ *config.status*) \ cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh;; \ *) \ echo ' cd $(top_builddir) && $(SHELL) ./config.status $(subdir)/$@ $(am__depfiles_maybe)'; \ cd $(top_builddir) && $(SHELL) ./config.status $(subdir)/$@ $(am__depfiles_maybe);; \ esac; $(top_srcdir)/common.mk: $(top_builddir)/config.status: $(top_srcdir)/configure $(CONFIG_STATUS_DEPENDENCIES) cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh $(top_srcdir)/configure: $(am__configure_deps) cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh $(ACLOCAL_M4): $(am__aclocal_m4_deps) cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh $(am__aclocal_m4_deps): install-libLTLIBRARIES: $(lib_LTLIBRARIES) @$(NORMAL_INSTALL) @list='$(lib_LTLIBRARIES)'; test -n "$(libdir)" || list=; \ list2=; for p in $$list; do \ if test -f $$p; then \ list2="$$list2 $$p"; \ else :; fi; \ done; \ test -z "$$list2" || { \ echo " $(MKDIR_P) '$(DESTDIR)$(libdir)'"; \ $(MKDIR_P) "$(DESTDIR)$(libdir)" || exit 1; \ echo " $(LIBTOOL) $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=install $(INSTALL) $(INSTALL_STRIP_FLAG) $$list2 '$(DESTDIR)$(libdir)'"; \ $(LIBTOOL) $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=install $(INSTALL) $(INSTALL_STRIP_FLAG) $$list2 "$(DESTDIR)$(libdir)"; \ } uninstall-libLTLIBRARIES: @$(NORMAL_UNINSTALL) @list='$(lib_LTLIBRARIES)'; test -n "$(libdir)" || list=; \ for p in $$list; do \ $(am__strip_dir) \ echo " $(LIBTOOL) $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=uninstall rm -f '$(DESTDIR)$(libdir)/$$f'"; \ $(LIBTOOL) $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=uninstall rm -f "$(DESTDIR)$(libdir)/$$f"; \ done clean-libLTLIBRARIES: -test -z "$(lib_LTLIBRARIES)" || rm -f $(lib_LTLIBRARIES) @list='$(lib_LTLIBRARIES)'; for p in $$list; do \ dir="`echo $$p | sed -e 's|/[^/]*$$||'`"; \ test "$$dir" != "$$p" || dir=.; \ echo "rm -f \"$${dir}/so_locations\""; \ rm -f "$${dir}/so_locations"; \ done libguile-gnome-gobject-@API_VERSION@.la: $(libguile_gnome_gobject_@API_VERSION@_la_OBJECTS) $(libguile_gnome_gobject_@API_VERSION@_la_DEPENDENCIES) $(EXTRA_libguile_gnome_gobject_@API_VERSION@_la_DEPENDENCIES) $(libguile_gnome_gobject_@API_VERSION@_la_LINK) -rpath $(libdir) $(libguile_gnome_gobject_@API_VERSION@_la_OBJECTS) $(libguile_gnome_gobject_@API_VERSION@_la_LIBADD) $(LIBS) mostlyclean-compile: -rm -f *.$(OBJEXT) distclean-compile: -rm -f *.tab.c @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/libguile_gnome_gobject_@API_VERSION@_la-gc.Plo@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/libguile_gnome_gobject_@API_VERSION@_la-gclosure.Plo@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/libguile_gnome_gobject_@API_VERSION@_la-gobject.Plo@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/libguile_gnome_gobject_@API_VERSION@_la-gparameter.Plo@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/libguile_gnome_gobject_@API_VERSION@_la-gsignal.Plo@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/libguile_gnome_gobject_@API_VERSION@_la-gtype.Plo@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/libguile_gnome_gobject_@API_VERSION@_la-guile-support.Plo@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/libguile_gnome_gobject_@API_VERSION@_la-gutil.Plo@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/libguile_gnome_gobject_@API_VERSION@_la-gvalue.Plo@am__quote@ .c.o: @am__fastdepCC_TRUE@ $(COMPILE) -MT $@ -MD -MP -MF $(DEPDIR)/$*.Tpo -c -o $@ $< @am__fastdepCC_TRUE@ $(am__mv) $(DEPDIR)/$*.Tpo $(DEPDIR)/$*.Po @AMDEP_TRUE@@am__fastdepCC_FALSE@ source='$<' object='$@' libtool=no @AMDEPBACKSLASH@ @AMDEP_TRUE@@am__fastdepCC_FALSE@ DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@ @am__fastdepCC_FALSE@ $(COMPILE) -c $< .c.obj: @am__fastdepCC_TRUE@ $(COMPILE) -MT $@ -MD -MP -MF $(DEPDIR)/$*.Tpo -c -o $@ `$(CYGPATH_W) '$<'` @am__fastdepCC_TRUE@ $(am__mv) $(DEPDIR)/$*.Tpo $(DEPDIR)/$*.Po @AMDEP_TRUE@@am__fastdepCC_FALSE@ source='$<' object='$@' libtool=no @AMDEPBACKSLASH@ @AMDEP_TRUE@@am__fastdepCC_FALSE@ DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@ @am__fastdepCC_FALSE@ $(COMPILE) -c `$(CYGPATH_W) '$<'` .c.lo: @am__fastdepCC_TRUE@ $(LTCOMPILE) -MT $@ -MD -MP -MF $(DEPDIR)/$*.Tpo -c -o $@ $< @am__fastdepCC_TRUE@ $(am__mv) $(DEPDIR)/$*.Tpo $(DEPDIR)/$*.Plo @AMDEP_TRUE@@am__fastdepCC_FALSE@ source='$<' object='$@' libtool=yes @AMDEPBACKSLASH@ @AMDEP_TRUE@@am__fastdepCC_FALSE@ DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@ @am__fastdepCC_FALSE@ $(LTCOMPILE) -c -o $@ $< libguile_gnome_gobject_@API_VERSION@_la-gc.lo: gc.c @am__fastdepCC_TRUE@ $(LIBTOOL) --tag=CC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(AM_CPPFLAGS) $(CPPFLAGS) $(libguile_gnome_gobject_@API_VERSION@_la_CFLAGS) $(CFLAGS) -MT libguile_gnome_gobject_@API_VERSION@_la-gc.lo -MD -MP -MF $(DEPDIR)/libguile_gnome_gobject_@API_VERSION@_la-gc.Tpo -c -o libguile_gnome_gobject_@API_VERSION@_la-gc.lo `test -f 'gc.c' || echo '$(srcdir)/'`gc.c @am__fastdepCC_TRUE@ $(am__mv) $(DEPDIR)/libguile_gnome_gobject_@API_VERSION@_la-gc.Tpo $(DEPDIR)/libguile_gnome_gobject_@API_VERSION@_la-gc.Plo @AMDEP_TRUE@@am__fastdepCC_FALSE@ source='gc.c' object='libguile_gnome_gobject_@API_VERSION@_la-gc.lo' libtool=yes @AMDEPBACKSLASH@ @AMDEP_TRUE@@am__fastdepCC_FALSE@ DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@ @am__fastdepCC_FALSE@ $(LIBTOOL) --tag=CC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(AM_CPPFLAGS) $(CPPFLAGS) $(libguile_gnome_gobject_@API_VERSION@_la_CFLAGS) $(CFLAGS) -c -o libguile_gnome_gobject_@API_VERSION@_la-gc.lo `test -f 'gc.c' || echo '$(srcdir)/'`gc.c libguile_gnome_gobject_@API_VERSION@_la-gutil.lo: gutil.c @am__fastdepCC_TRUE@ $(LIBTOOL) --tag=CC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(AM_CPPFLAGS) $(CPPFLAGS) $(libguile_gnome_gobject_@API_VERSION@_la_CFLAGS) $(CFLAGS) -MT libguile_gnome_gobject_@API_VERSION@_la-gutil.lo -MD -MP -MF $(DEPDIR)/libguile_gnome_gobject_@API_VERSION@_la-gutil.Tpo -c -o libguile_gnome_gobject_@API_VERSION@_la-gutil.lo `test -f 'gutil.c' || echo '$(srcdir)/'`gutil.c @am__fastdepCC_TRUE@ $(am__mv) $(DEPDIR)/libguile_gnome_gobject_@API_VERSION@_la-gutil.Tpo $(DEPDIR)/libguile_gnome_gobject_@API_VERSION@_la-gutil.Plo @AMDEP_TRUE@@am__fastdepCC_FALSE@ source='gutil.c' object='libguile_gnome_gobject_@API_VERSION@_la-gutil.lo' libtool=yes @AMDEPBACKSLASH@ @AMDEP_TRUE@@am__fastdepCC_FALSE@ DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@ @am__fastdepCC_FALSE@ $(LIBTOOL) --tag=CC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(AM_CPPFLAGS) $(CPPFLAGS) $(libguile_gnome_gobject_@API_VERSION@_la_CFLAGS) $(CFLAGS) -c -o libguile_gnome_gobject_@API_VERSION@_la-gutil.lo `test -f 'gutil.c' || echo '$(srcdir)/'`gutil.c libguile_gnome_gobject_@API_VERSION@_la-gtype.lo: gtype.c @am__fastdepCC_TRUE@ $(LIBTOOL) --tag=CC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(AM_CPPFLAGS) $(CPPFLAGS) $(libguile_gnome_gobject_@API_VERSION@_la_CFLAGS) $(CFLAGS) -MT libguile_gnome_gobject_@API_VERSION@_la-gtype.lo -MD -MP -MF $(DEPDIR)/libguile_gnome_gobject_@API_VERSION@_la-gtype.Tpo -c -o libguile_gnome_gobject_@API_VERSION@_la-gtype.lo `test -f 'gtype.c' || echo '$(srcdir)/'`gtype.c @am__fastdepCC_TRUE@ $(am__mv) $(DEPDIR)/libguile_gnome_gobject_@API_VERSION@_la-gtype.Tpo $(DEPDIR)/libguile_gnome_gobject_@API_VERSION@_la-gtype.Plo @AMDEP_TRUE@@am__fastdepCC_FALSE@ source='gtype.c' object='libguile_gnome_gobject_@API_VERSION@_la-gtype.lo' libtool=yes @AMDEPBACKSLASH@ @AMDEP_TRUE@@am__fastdepCC_FALSE@ DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@ @am__fastdepCC_FALSE@ $(LIBTOOL) --tag=CC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(AM_CPPFLAGS) $(CPPFLAGS) $(libguile_gnome_gobject_@API_VERSION@_la_CFLAGS) $(CFLAGS) -c -o libguile_gnome_gobject_@API_VERSION@_la-gtype.lo `test -f 'gtype.c' || echo '$(srcdir)/'`gtype.c libguile_gnome_gobject_@API_VERSION@_la-gparameter.lo: gparameter.c @am__fastdepCC_TRUE@ $(LIBTOOL) --tag=CC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(AM_CPPFLAGS) $(CPPFLAGS) $(libguile_gnome_gobject_@API_VERSION@_la_CFLAGS) $(CFLAGS) -MT libguile_gnome_gobject_@API_VERSION@_la-gparameter.lo -MD -MP -MF $(DEPDIR)/libguile_gnome_gobject_@API_VERSION@_la-gparameter.Tpo -c -o libguile_gnome_gobject_@API_VERSION@_la-gparameter.lo `test -f 'gparameter.c' || echo '$(srcdir)/'`gparameter.c @am__fastdepCC_TRUE@ $(am__mv) $(DEPDIR)/libguile_gnome_gobject_@API_VERSION@_la-gparameter.Tpo $(DEPDIR)/libguile_gnome_gobject_@API_VERSION@_la-gparameter.Plo @AMDEP_TRUE@@am__fastdepCC_FALSE@ source='gparameter.c' object='libguile_gnome_gobject_@API_VERSION@_la-gparameter.lo' libtool=yes @AMDEPBACKSLASH@ @AMDEP_TRUE@@am__fastdepCC_FALSE@ DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@ @am__fastdepCC_FALSE@ $(LIBTOOL) --tag=CC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(AM_CPPFLAGS) $(CPPFLAGS) $(libguile_gnome_gobject_@API_VERSION@_la_CFLAGS) $(CFLAGS) -c -o libguile_gnome_gobject_@API_VERSION@_la-gparameter.lo `test -f 'gparameter.c' || echo '$(srcdir)/'`gparameter.c libguile_gnome_gobject_@API_VERSION@_la-gvalue.lo: gvalue.c @am__fastdepCC_TRUE@ $(LIBTOOL) --tag=CC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(AM_CPPFLAGS) $(CPPFLAGS) $(libguile_gnome_gobject_@API_VERSION@_la_CFLAGS) $(CFLAGS) -MT libguile_gnome_gobject_@API_VERSION@_la-gvalue.lo -MD -MP -MF $(DEPDIR)/libguile_gnome_gobject_@API_VERSION@_la-gvalue.Tpo -c -o libguile_gnome_gobject_@API_VERSION@_la-gvalue.lo `test -f 'gvalue.c' || echo '$(srcdir)/'`gvalue.c @am__fastdepCC_TRUE@ $(am__mv) $(DEPDIR)/libguile_gnome_gobject_@API_VERSION@_la-gvalue.Tpo $(DEPDIR)/libguile_gnome_gobject_@API_VERSION@_la-gvalue.Plo @AMDEP_TRUE@@am__fastdepCC_FALSE@ source='gvalue.c' object='libguile_gnome_gobject_@API_VERSION@_la-gvalue.lo' libtool=yes @AMDEPBACKSLASH@ @AMDEP_TRUE@@am__fastdepCC_FALSE@ DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@ @am__fastdepCC_FALSE@ $(LIBTOOL) --tag=CC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(AM_CPPFLAGS) $(CPPFLAGS) $(libguile_gnome_gobject_@API_VERSION@_la_CFLAGS) $(CFLAGS) -c -o libguile_gnome_gobject_@API_VERSION@_la-gvalue.lo `test -f 'gvalue.c' || echo '$(srcdir)/'`gvalue.c libguile_gnome_gobject_@API_VERSION@_la-gclosure.lo: gclosure.c @am__fastdepCC_TRUE@ $(LIBTOOL) --tag=CC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(AM_CPPFLAGS) $(CPPFLAGS) $(libguile_gnome_gobject_@API_VERSION@_la_CFLAGS) $(CFLAGS) -MT libguile_gnome_gobject_@API_VERSION@_la-gclosure.lo -MD -MP -MF $(DEPDIR)/libguile_gnome_gobject_@API_VERSION@_la-gclosure.Tpo -c -o libguile_gnome_gobject_@API_VERSION@_la-gclosure.lo `test -f 'gclosure.c' || echo '$(srcdir)/'`gclosure.c @am__fastdepCC_TRUE@ $(am__mv) $(DEPDIR)/libguile_gnome_gobject_@API_VERSION@_la-gclosure.Tpo $(DEPDIR)/libguile_gnome_gobject_@API_VERSION@_la-gclosure.Plo @AMDEP_TRUE@@am__fastdepCC_FALSE@ source='gclosure.c' object='libguile_gnome_gobject_@API_VERSION@_la-gclosure.lo' libtool=yes @AMDEPBACKSLASH@ @AMDEP_TRUE@@am__fastdepCC_FALSE@ DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@ @am__fastdepCC_FALSE@ $(LIBTOOL) --tag=CC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(AM_CPPFLAGS) $(CPPFLAGS) $(libguile_gnome_gobject_@API_VERSION@_la_CFLAGS) $(CFLAGS) -c -o libguile_gnome_gobject_@API_VERSION@_la-gclosure.lo `test -f 'gclosure.c' || echo '$(srcdir)/'`gclosure.c libguile_gnome_gobject_@API_VERSION@_la-gsignal.lo: gsignal.c @am__fastdepCC_TRUE@ $(LIBTOOL) --tag=CC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(AM_CPPFLAGS) $(CPPFLAGS) $(libguile_gnome_gobject_@API_VERSION@_la_CFLAGS) $(CFLAGS) -MT libguile_gnome_gobject_@API_VERSION@_la-gsignal.lo -MD -MP -MF $(DEPDIR)/libguile_gnome_gobject_@API_VERSION@_la-gsignal.Tpo -c -o libguile_gnome_gobject_@API_VERSION@_la-gsignal.lo `test -f 'gsignal.c' || echo '$(srcdir)/'`gsignal.c @am__fastdepCC_TRUE@ $(am__mv) $(DEPDIR)/libguile_gnome_gobject_@API_VERSION@_la-gsignal.Tpo $(DEPDIR)/libguile_gnome_gobject_@API_VERSION@_la-gsignal.Plo @AMDEP_TRUE@@am__fastdepCC_FALSE@ source='gsignal.c' object='libguile_gnome_gobject_@API_VERSION@_la-gsignal.lo' libtool=yes @AMDEPBACKSLASH@ @AMDEP_TRUE@@am__fastdepCC_FALSE@ DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@ @am__fastdepCC_FALSE@ $(LIBTOOL) --tag=CC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(AM_CPPFLAGS) $(CPPFLAGS) $(libguile_gnome_gobject_@API_VERSION@_la_CFLAGS) $(CFLAGS) -c -o libguile_gnome_gobject_@API_VERSION@_la-gsignal.lo `test -f 'gsignal.c' || echo '$(srcdir)/'`gsignal.c libguile_gnome_gobject_@API_VERSION@_la-gobject.lo: gobject.c @am__fastdepCC_TRUE@ $(LIBTOOL) --tag=CC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(AM_CPPFLAGS) $(CPPFLAGS) $(libguile_gnome_gobject_@API_VERSION@_la_CFLAGS) $(CFLAGS) -MT libguile_gnome_gobject_@API_VERSION@_la-gobject.lo -MD -MP -MF $(DEPDIR)/libguile_gnome_gobject_@API_VERSION@_la-gobject.Tpo -c -o libguile_gnome_gobject_@API_VERSION@_la-gobject.lo `test -f 'gobject.c' || echo '$(srcdir)/'`gobject.c @am__fastdepCC_TRUE@ $(am__mv) $(DEPDIR)/libguile_gnome_gobject_@API_VERSION@_la-gobject.Tpo $(DEPDIR)/libguile_gnome_gobject_@API_VERSION@_la-gobject.Plo @AMDEP_TRUE@@am__fastdepCC_FALSE@ source='gobject.c' object='libguile_gnome_gobject_@API_VERSION@_la-gobject.lo' libtool=yes @AMDEPBACKSLASH@ @AMDEP_TRUE@@am__fastdepCC_FALSE@ DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@ @am__fastdepCC_FALSE@ $(LIBTOOL) --tag=CC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(AM_CPPFLAGS) $(CPPFLAGS) $(libguile_gnome_gobject_@API_VERSION@_la_CFLAGS) $(CFLAGS) -c -o libguile_gnome_gobject_@API_VERSION@_la-gobject.lo `test -f 'gobject.c' || echo '$(srcdir)/'`gobject.c libguile_gnome_gobject_@API_VERSION@_la-guile-support.lo: guile-support.c @am__fastdepCC_TRUE@ $(LIBTOOL) --tag=CC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(AM_CPPFLAGS) $(CPPFLAGS) $(libguile_gnome_gobject_@API_VERSION@_la_CFLAGS) $(CFLAGS) -MT libguile_gnome_gobject_@API_VERSION@_la-guile-support.lo -MD -MP -MF $(DEPDIR)/libguile_gnome_gobject_@API_VERSION@_la-guile-support.Tpo -c -o libguile_gnome_gobject_@API_VERSION@_la-guile-support.lo `test -f 'guile-support.c' || echo '$(srcdir)/'`guile-support.c @am__fastdepCC_TRUE@ $(am__mv) $(DEPDIR)/libguile_gnome_gobject_@API_VERSION@_la-guile-support.Tpo $(DEPDIR)/libguile_gnome_gobject_@API_VERSION@_la-guile-support.Plo @AMDEP_TRUE@@am__fastdepCC_FALSE@ source='guile-support.c' object='libguile_gnome_gobject_@API_VERSION@_la-guile-support.lo' libtool=yes @AMDEPBACKSLASH@ @AMDEP_TRUE@@am__fastdepCC_FALSE@ DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@ @am__fastdepCC_FALSE@ $(LIBTOOL) --tag=CC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(AM_CPPFLAGS) $(CPPFLAGS) $(libguile_gnome_gobject_@API_VERSION@_la_CFLAGS) $(CFLAGS) -c -o libguile_gnome_gobject_@API_VERSION@_la-guile-support.lo `test -f 'guile-support.c' || echo '$(srcdir)/'`guile-support.c mostlyclean-libtool: -rm -f *.lo clean-libtool: -rm -rf .libs _libs install-moduleDATA: $(module_DATA) @$(NORMAL_INSTALL) @list='$(module_DATA)'; test -n "$(moduledir)" || list=; \ if test -n "$$list"; then \ echo " $(MKDIR_P) '$(DESTDIR)$(moduledir)'"; \ $(MKDIR_P) "$(DESTDIR)$(moduledir)" || exit 1; \ fi; \ for p in $$list; do \ if test -f "$$p"; then d=; else d="$(srcdir)/"; fi; \ echo "$$d$$p"; \ done | $(am__base_list) | \ while read files; do \ echo " $(INSTALL_DATA) $$files '$(DESTDIR)$(moduledir)'"; \ $(INSTALL_DATA) $$files "$(DESTDIR)$(moduledir)" || exit $$?; \ done uninstall-moduleDATA: @$(NORMAL_UNINSTALL) @list='$(module_DATA)'; test -n "$(moduledir)" || list=; \ files=`for p in $$list; do echo $$p; done | sed -e 's|^.*/||'`; \ dir='$(DESTDIR)$(moduledir)'; $(am__uninstall_files_from_dir) install-guile_gnome_includeHEADERS: $(guile_gnome_include_HEADERS) @$(NORMAL_INSTALL) @list='$(guile_gnome_include_HEADERS)'; test -n "$(guile_gnome_includedir)" || list=; \ if test -n "$$list"; then \ echo " $(MKDIR_P) '$(DESTDIR)$(guile_gnome_includedir)'"; \ $(MKDIR_P) "$(DESTDIR)$(guile_gnome_includedir)" || exit 1; \ fi; \ for p in $$list; do \ if test -f "$$p"; then d=; else d="$(srcdir)/"; fi; \ echo "$$d$$p"; \ done | $(am__base_list) | \ while read files; do \ echo " $(INSTALL_HEADER) $$files '$(DESTDIR)$(guile_gnome_includedir)'"; \ $(INSTALL_HEADER) $$files "$(DESTDIR)$(guile_gnome_includedir)" || exit $$?; \ done uninstall-guile_gnome_includeHEADERS: @$(NORMAL_UNINSTALL) @list='$(guile_gnome_include_HEADERS)'; test -n "$(guile_gnome_includedir)" || list=; \ files=`for p in $$list; do echo $$p; done | sed -e 's|^.*/||'`; \ dir='$(DESTDIR)$(guile_gnome_includedir)'; $(am__uninstall_files_from_dir) install-guile_gnome_subincludeHEADERS: $(guile_gnome_subinclude_HEADERS) @$(NORMAL_INSTALL) @list='$(guile_gnome_subinclude_HEADERS)'; test -n "$(guile_gnome_subincludedir)" || list=; \ if test -n "$$list"; then \ echo " $(MKDIR_P) '$(DESTDIR)$(guile_gnome_subincludedir)'"; \ $(MKDIR_P) "$(DESTDIR)$(guile_gnome_subincludedir)" || exit 1; \ fi; \ for p in $$list; do \ if test -f "$$p"; then d=; else d="$(srcdir)/"; fi; \ echo "$$d$$p"; \ done | $(am__base_list) | \ while read files; do \ echo " $(INSTALL_HEADER) $$files '$(DESTDIR)$(guile_gnome_subincludedir)'"; \ $(INSTALL_HEADER) $$files "$(DESTDIR)$(guile_gnome_subincludedir)" || exit $$?; \ done uninstall-guile_gnome_subincludeHEADERS: @$(NORMAL_UNINSTALL) @list='$(guile_gnome_subinclude_HEADERS)'; test -n "$(guile_gnome_subincludedir)" || list=; \ files=`for p in $$list; do echo $$p; done | sed -e 's|^.*/||'`; \ dir='$(DESTDIR)$(guile_gnome_subincludedir)'; $(am__uninstall_files_from_dir) ID: $(HEADERS) $(SOURCES) $(LISP) $(TAGS_FILES) list='$(SOURCES) $(HEADERS) $(LISP) $(TAGS_FILES)'; \ unique=`for i in $$list; do \ if test -f "$$i"; then echo $$i; else echo $(srcdir)/$$i; fi; \ done | \ $(AWK) '{ files[$$0] = 1; nonempty = 1; } \ END { if (nonempty) { for (i in files) print i; }; }'`; \ mkid -fID $$unique tags: TAGS TAGS: $(HEADERS) $(SOURCES) $(TAGS_DEPENDENCIES) \ $(TAGS_FILES) $(LISP) set x; \ here=`pwd`; \ list='$(SOURCES) $(HEADERS) $(LISP) $(TAGS_FILES)'; \ unique=`for i in $$list; do \ if test -f "$$i"; then echo $$i; else echo $(srcdir)/$$i; fi; \ done | \ $(AWK) '{ files[$$0] = 1; nonempty = 1; } \ END { if (nonempty) { for (i in files) print i; }; }'`; \ shift; \ if test -z "$(ETAGS_ARGS)$$*$$unique"; then :; else \ test -n "$$unique" || unique=$$empty_fix; \ if test $$# -gt 0; then \ $(ETAGS) $(ETAGSFLAGS) $(AM_ETAGSFLAGS) $(ETAGS_ARGS) \ "$$@" $$unique; \ else \ $(ETAGS) $(ETAGSFLAGS) $(AM_ETAGSFLAGS) $(ETAGS_ARGS) \ $$unique; \ fi; \ fi ctags: CTAGS CTAGS: $(HEADERS) $(SOURCES) $(TAGS_DEPENDENCIES) \ $(TAGS_FILES) $(LISP) list='$(SOURCES) $(HEADERS) $(LISP) $(TAGS_FILES)'; \ unique=`for i in $$list; do \ if test -f "$$i"; then echo $$i; else echo $(srcdir)/$$i; fi; \ done | \ $(AWK) '{ files[$$0] = 1; nonempty = 1; } \ END { if (nonempty) { for (i in files) print i; }; }'`; \ test -z "$(CTAGS_ARGS)$$unique" \ || $(CTAGS) $(CTAGSFLAGS) $(AM_CTAGSFLAGS) $(CTAGS_ARGS) \ $$unique GTAGS: here=`$(am__cd) $(top_builddir) && pwd` \ && $(am__cd) $(top_srcdir) \ && gtags -i $(GTAGS_ARGS) "$$here" distclean-tags: -rm -f TAGS ID GTAGS GRTAGS GSYMS GPATH tags distdir: $(DISTFILES) @srcdirstrip=`echo "$(srcdir)" | sed 's/[].[^$$\\*]/\\\\&/g'`; \ topsrcdirstrip=`echo "$(top_srcdir)" | sed 's/[].[^$$\\*]/\\\\&/g'`; \ list='$(DISTFILES)'; \ dist_files=`for file in $$list; do echo $$file; done | \ sed -e "s|^$$srcdirstrip/||;t" \ -e "s|^$$topsrcdirstrip/|$(top_builddir)/|;t"`; \ case $$dist_files in \ */*) $(MKDIR_P) `echo "$$dist_files" | \ sed '/\//!d;s|^|$(distdir)/|;s,/[^/]*$$,,' | \ sort -u` ;; \ esac; \ for file in $$dist_files; do \ if test -f $$file || test -d $$file; then d=.; else d=$(srcdir); fi; \ if test -d $$d/$$file; then \ dir=`echo "/$$file" | sed -e 's,/[^/]*$$,,'`; \ if test -d "$(distdir)/$$file"; then \ find "$(distdir)/$$file" -type d ! -perm -700 -exec chmod u+rwx {} \;; \ fi; \ if test -d $(srcdir)/$$file && test $$d != $(srcdir); then \ cp -fpR $(srcdir)/$$file "$(distdir)$$dir" || exit 1; \ find "$(distdir)/$$file" -type d ! -perm -700 -exec chmod u+rwx {} \;; \ fi; \ cp -fpR $$d/$$file "$(distdir)$$dir" || exit 1; \ else \ test -f "$(distdir)/$$file" \ || cp -p $$d/$$file "$(distdir)/$$file" \ || exit 1; \ fi; \ done check-am: all-am check: $(BUILT_SOURCES) $(MAKE) $(AM_MAKEFLAGS) check-am all-am: Makefile $(LTLIBRARIES) $(DATA) $(HEADERS) all-local installdirs: for dir in "$(DESTDIR)$(libdir)" "$(DESTDIR)$(moduledir)" "$(DESTDIR)$(guile_gnome_includedir)" "$(DESTDIR)$(guile_gnome_subincludedir)"; do \ test -z "$$dir" || $(MKDIR_P) "$$dir"; \ done install: $(BUILT_SOURCES) $(MAKE) $(AM_MAKEFLAGS) install-am install-exec: install-exec-am install-data: install-data-am uninstall: uninstall-am install-am: all-am @$(MAKE) $(AM_MAKEFLAGS) install-exec-am install-data-am installcheck: installcheck-am install-strip: if test -z '$(STRIP)'; then \ $(MAKE) $(AM_MAKEFLAGS) INSTALL_PROGRAM="$(INSTALL_STRIP_PROGRAM)" \ install_sh_PROGRAM="$(INSTALL_STRIP_PROGRAM)" INSTALL_STRIP_FLAG=-s \ install; \ else \ $(MAKE) $(AM_MAKEFLAGS) INSTALL_PROGRAM="$(INSTALL_STRIP_PROGRAM)" \ install_sh_PROGRAM="$(INSTALL_STRIP_PROGRAM)" INSTALL_STRIP_FLAG=-s \ "INSTALL_PROGRAM_ENV=STRIPPROG='$(STRIP)'" install; \ fi mostlyclean-generic: clean-generic: -test -z "$(CLEANFILES)" || rm -f $(CLEANFILES) distclean-generic: -test -z "$(CONFIG_CLEAN_FILES)" || rm -f $(CONFIG_CLEAN_FILES) -test . = "$(srcdir)" || test -z "$(CONFIG_CLEAN_VPATH_FILES)" || rm -f $(CONFIG_CLEAN_VPATH_FILES) maintainer-clean-generic: @echo "This command is intended for maintainers to use" @echo "it deletes files that may require special tools to rebuild." -test -z "$(BUILT_SOURCES)" || rm -f $(BUILT_SOURCES) clean: clean-am clean-am: clean-generic clean-libLTLIBRARIES clean-libtool \ mostlyclean-am distclean: distclean-am -rm -rf ./$(DEPDIR) -rm -f Makefile distclean-am: clean-am distclean-compile distclean-generic \ distclean-tags dvi: dvi-am dvi-am: html: html-am html-am: info: info-am info-am: install-data-am: install-data-local install-guile_gnome_includeHEADERS \ install-guile_gnome_subincludeHEADERS install-moduleDATA install-dvi: install-dvi-am install-dvi-am: install-exec-am: install-libLTLIBRARIES install-html: install-html-am install-html-am: install-info: install-info-am install-info-am: install-man: install-pdf: install-pdf-am install-pdf-am: install-ps: install-ps-am install-ps-am: installcheck-am: maintainer-clean: maintainer-clean-am -rm -rf ./$(DEPDIR) -rm -f Makefile maintainer-clean-am: distclean-am maintainer-clean-generic mostlyclean: mostlyclean-am mostlyclean-am: mostlyclean-compile mostlyclean-generic \ mostlyclean-libtool pdf: pdf-am pdf-am: ps: ps-am ps-am: uninstall-am: uninstall-guile_gnome_includeHEADERS \ uninstall-guile_gnome_subincludeHEADERS \ uninstall-libLTLIBRARIES uninstall-local uninstall-moduleDATA .MAKE: all check install install-am install-strip .PHONY: CTAGS GTAGS all all-am all-local check check-am clean \ clean-generic clean-libLTLIBRARIES clean-libtool ctags \ distclean distclean-compile distclean-generic \ distclean-libtool distclean-tags distdir dvi dvi-am html \ html-am info info-am install install-am install-data \ install-data-am install-data-local install-dvi install-dvi-am \ install-exec install-exec-am \ install-guile_gnome_includeHEADERS \ install-guile_gnome_subincludeHEADERS install-html \ install-html-am install-info install-info-am \ install-libLTLIBRARIES install-man install-moduleDATA \ install-pdf install-pdf-am install-ps install-ps-am \ install-strip installcheck installcheck-am installdirs \ maintainer-clean maintainer-clean-generic mostlyclean \ mostlyclean-compile mostlyclean-generic mostlyclean-libtool \ pdf pdf-am ps ps-am tags uninstall uninstall-am \ uninstall-guile_gnome_includeHEADERS \ uninstall-guile_gnome_subincludeHEADERS \ uninstall-libLTLIBRARIES uninstall-local uninstall-moduleDATA export GUILE_LOAD_PATH .c.x: guile-snarf $(GUILE_SNARF_CFLAGS) $< > $@ \ || { rm $@; false; } .c.doc: $(CPP) -DSCM_MAGIC_SNARF_DOCS $(GUILE_SNARF_CFLAGS) $< \ | grep -E '(\^\^ {|\^\^ })' > $@ || { rm $@; false; } %.scm guile-gnome-gw-%.c: %-spec.scm guile $(GUILE_FLAGS) -c \ "(debug-set! stack 400000) \ (use-modules (gnome-@API_VERSION@)) \ (use-modules (g-wrap)) \ (use-modules (gnome gw $*-spec)) \ (generate-wrapset 'guile 'gnome-$* \"guile-gnome-gw-$*\")" mv guile-gnome-gw-$*.scm $*.scm %-@API_VERSION@.pc: %.pc cp $< $@ %-@API_VERSION@-uninstalled.pc: %-uninstalled.pc cp $< $@ guile-gnome-gobject.texi: $(DOT_DOC_FILES) cat $(DOT_DOC_FILES) | guile-snarf-docs-texi > $@ \ || { rm $@; false; } guile-gnome-gobject-procedures.txt: guile-gnome-gobject.texi rm -f $@ makeinfo --force -o $@ $< || test -f $@ all-local: config.scm config.scm: Makefile config.scm.in sed -e "s|@guilegnomegobjectlibpath\@|$(real_builddir)/libguile-gnome-gobject-@API_VERSION@|" \ $(srcdir)/config.scm.in > config.scm install-data-local: Makefile config.scm.in $(mkinstalldirs) $(DESTDIR)$(moduledir) sed -e "s|@guilegnomegobjectlibpath\@|$(libdir)/libguile-gnome-gobject-@API_VERSION@|" \ $(srcdir)/config.scm.in > $(DESTDIR)$(moduledir)/config.scm chmod 644 $(DESTDIR)$(moduledir)/config.scm uninstall-local: rm -f $(DESTDIR)$(moduledir)/config.scm # Tell versions [3.59,3.63) of GNU make to not export all variables. # Otherwise a system limit (for SysV at least) may be exceeded. .NOEXPORT: guile-gnome-platform-2.16.2/glib/gnome/gobject/gc.h0000644000175000017500000000265711670374302022402 0ustar00wingowingo00000000000000/* guile-gnome * Copyright (C) 2006 Andy Wingo * * gc.h: A sweep-safe replacement for scm_gc_protect_object * * This program is free software; you can redistribute it and/or * modify it under the terms of the GNU General Public License as * published by the Free Software Foundation; either version 2 of * the License, or (at your option) any later version. * * This program is distributed in the hope that it will be useful, * but WITHOUT ANY WARRANTY; without even the implied warranty of * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the * GNU General Public License for more details. * * You should have received a copy of the GNU General Public License * along with this program; if not, contact: * * Free Software Foundation Voice: +1-617-542-5942 * 59 Temple Place - Suite 330 Fax: +1-617-542-2652 * Boston, MA 02111-1307, USA gnu@gnu.org */ #ifndef __GUILE_GNOME_GOBJECT_GC_H__ #define __GUILE_GNOME_GOBJECT_GC_H__ #include #include G_BEGIN_DECLS gpointer scm_glib_gc_protect_object (SCM obj); void scm_glib_gc_unprotect_object (gpointer key); void scm_init_gnome_gobject_gc (void); G_END_DECLS #endif /* __GUILE_GNOME_GOBJECT_GC_H__ */ guile-gnome-platform-2.16.2/glib/gnome/gobject/gobject.h0000644000175000017500000000421111670374302023412 0ustar00wingowingo00000000000000/* guile-gnome * Copyright (C) 2003 Andy Wingo * * gobject.h: Support for GObject and GInterface * * This program is free software; you can redistribute it and/or * modify it under the terms of the GNU General Public License as * published by the Free Software Foundation; either version 2 of * the License, or (at your option) any later version. * * This program is distributed in the hope that it will be useful, * but WITHOUT ANY WARRANTY; without even the implied warranty of * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the * GNU General Public License for more details. * * You should have received a copy of the GNU General Public License * along with this program; if not, contact: * * Free Software Foundation Voice: +1-617-542-5942 * 59 Temple Place - Suite 330 Fax: +1-617-542-2652 * Boston, MA 02111-1307, USA gnu@gnu.org */ #ifndef __GUILE_GNOME_GOBJECT_OBJECT_H__ #define __GUILE_GNOME_GOBJECT_OBJECT_H__ #include #include #include #include #include G_BEGIN_DECLS #define SCM_GOBJECT_CLASSP(scm) \ scm_c_gtype_class_is_a_p (scm, G_TYPE_OBJECT) #define SCM_VALIDATE_GOBJECT_CLASS(pos, scm) \ SCM_MAKE_VALIDATE (pos, scm, GOBJECT_CLASSP) #define SCM_VALIDATE_GOBJECT_CLASS_COPY(pos, scm, cvar) \ do { \ SCM_VALIDATE_GOBJECT_CLASS (pos, scm); \ SCM_VALIDATE_GTYPE_CLASS_COPY (pos, scm, cvar); \ } while (0) #define SCM_GOBJECTP(scm) \ scm_c_gtype_instance_is_a_p (scm, G_TYPE_OBJECT) #define SCM_VALIDATE_GOBJECT(pos, scm) \ SCM_MAKE_VALIDATE (pos, scm, GOBJECTP) #define SCM_VALIDATE_GOBJECT_COPY(pos, scm, cvar) \ SCM_VALIDATE_GTYPE_INSTANCE_TYPE_COPY (pos, scm, G_TYPE_OBJECT, cvar) void scm_register_gobject_postmakefunc (GType type, gpointer (*postmakefunc) (gpointer)); G_END_DECLS #endif guile-gnome-platform-2.16.2/glib/gnome/gobject/guile-support.c0000644000175000017500000001044011751765327024623 0ustar00wingowingo00000000000000/* guile-gnome * Copyright (C) 2003,2004,2011 Andy Wingo * * guile-support.c: Support routines for old Guile versions * * This program is free software; you can redistribute it and/or * modify it under the terms of the GNU General Public License as * published by the Free Software Foundation; either version 2 of * the License, or (at your option) any later version. * * This program is distributed in the hope that it will be useful, * but WITHOUT ANY WARRANTY; without even the implied warranty of * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the * GNU General Public License for more details. * * You should have received a copy of the GNU General Public License * along with this program; if not, contact: * * Free Software Foundation Voice: +1-617-542-5942 * 59 Temple Place - Suite 330 Fax: +1-617-542-2652 * Boston, MA 02111-1307, USA gnu@gnu.org */ #include #include #if SCM_MAJOR_VERSION < 2 char * scm_to_utf8_string (SCM str) { return scm_to_utf8_stringn (str, NULL); } /* This fallback is for Guile 1.8, where we don't know the encoding of the * strings. We just have to assume that the user is running in a UTF-8 locale, * and that the string is encoded correctly. Cross your fingers! */ char * scm_to_utf8_stringn (SCM str, size_t *lenp) { return scm_to_locale_stringn (str, NULL); } #endif char* scm_to_locale_string_dynwind (SCM s) { char *ret = scm_to_locale_string (s); scm_dynwind_free (ret); return ret; } char* scm_to_utf8_stringn_dynwind (SCM s, size_t *lenp) { char *ret = scm_to_utf8_stringn (s, lenp); scm_dynwind_free (ret); return ret; } char* scm_symbol_chars (SCM s) { return scm_to_locale_string (scm_symbol_to_string (s)); } char* scm_symbol_chars_dynwind (SCM s) { char *ret = scm_symbol_chars (s); scm_dynwind_free (ret); return ret; } char* scm_keyword_chars (SCM s) { return scm_symbol_chars (scm_keyword_to_symbol (s)); } char* scm_keyword_chars_dynwind (SCM s) { return scm_symbol_chars_dynwind (scm_keyword_to_symbol (s)); } typedef struct { void *func; void *p[5]; unsigned int u[3]; int d[3]; const void *c[4]; } arg_data; static void* _invoke_v__p_p (void *p) { arg_data *a = p; void (*func)(void*, void*) = a->func; func(a->p[0], a->p[1]); return NULL; } void scm_dynwind_guile_v__p_p (void* (*dynwind)(void*(*)(void*), void*), void *func, void *arg1, void *arg2) { arg_data args = {func, {arg1, arg2,},}; dynwind (_invoke_v__p_p, &args); } static void* _invoke_v__p_p_p_p_p (void *p) { arg_data *a = p; void (*func)(void*, void*, void*, void*, void*) = a->func; func(a->p[0], a->p[1], a->p[2], a->p[3], a->p[4]); return NULL; } void scm_dynwind_guile_v__p_p_p_p_p (void* (*dynwind)(void*(*)(void*), void*), void *func, void *arg1, void *arg2, void *arg3, void *arg4, void *arg5) { arg_data args = {func, {arg1, arg2, arg3, arg4, arg5},}; dynwind (_invoke_v__p_p_p_p_p, &args); } static void* _invoke_v__p_u_p_p (void *p) { arg_data *a = p; void (*func)(void*, unsigned int, void*, void*) = a->func; func(a->p[0], a->u[0], a->p[1], a->p[2]); return NULL; } void scm_dynwind_guile_v__p_u_p_p (void* (*dynwind)(void*(*)(void*), void*), void *func, void *arg1, unsigned int arg2, void *arg3, void *arg4) { arg_data args = {func, {arg1, arg3, arg4,}, {arg2,},}; dynwind (_invoke_v__p_u_p_p, &args); } static void* _invoke_v__p_u_c_p (void *p) { arg_data *a = p; void (*func)(void*, unsigned int, const void*, void*) = a->func; func(a->p[0], a->u[0], a->c[0], a->p[1]); return NULL; } void scm_dynwind_guile_v__p_u_c_p (void* (*dynwind)(void*(*)(void*), void*), void *func, void *arg1, unsigned int arg2, const void *arg3, void *arg4) { arg_data args = {func, {arg1, arg4,}, {arg2,}, {0,}, {arg3,}}; dynwind (_invoke_v__p_u_c_p, &args); } guile-gnome-platform-2.16.2/glib/gnome/gobject/gutil.c0000644000175000017500000000272311670374302023122 0ustar00wingowingo00000000000000/* guile-gnome * Copyright (C) 2005 Andreas Rottmann * * gutil.c: Some GLib-related utilties * * This program is free software; you can redistribute it and/or * modify it under the terms of the GNU General Public License as * published by the Free Software Foundation; either version 2 of * the License, or (at your option) any later version. * * This program is distributed in the hope that it will be useful, * but WITHOUT ANY WARRANTY; without even the implied warranty of * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the * GNU General Public License for more details. * * You should have received a copy of the GNU General Public License * along with this program; if not, contact: * * Free Software Foundation Voice: +1-617-542-5942 * 59 Temple Place - Suite 330 Fax: +1-617-542-2652 * Boston, MA 02111-1307, USA gnu@gnu.org */ #include "gutil.h" SCM scm_c_gerror_to_scm (GError *error) { return scm_list_3 (scm_from_ulong(error->domain), scm_from_ulong(error->code), scm_from_locale_string(error->message)); } void scm_c_raise_gerror (GError *error) { SCM scm_gerror = scm_c_gerror_to_scm (error); g_error_free (error); scm_throw (scm_from_locale_symbol("g-error"), scm_gerror); } guile-gnome-platform-2.16.2/glib/gnome/gobject/gw-spec-utils.scm0000644000175000017500000000271311670374302025040 0ustar00wingowingo00000000000000;; guile-gnome ;; Copyright (C) 2003,2004 Andy Wingo ;; Copyright (C) 2004 Andreas Rottmann ;; This program is free software; you can redistribute it and/or ;; modify it under the terms of the GNU General Public License as ;; published by the Free Software Foundation; either version 2 of ;; the License, or (at your option) any later version. ;; ;; This program is distributed in the hope that it will be useful, ;; but WITHOUT ANY WARRANTY; without even the implied warranty of ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the ;; GNU General Public License for more details. ;; ;; You should have received a copy of the GNU General Public License ;; along with this program; if not, contact: ;; ;; Free Software Foundation Voice: +1-617-542-5942 ;; 59 Temple Place - Suite 330 Fax: +1-617-542-2652 ;; Boston, MA 02111-1307, USA gnu@gnu.org ;;; Commentary: ;; ;;Routines useful to *-spec.scm g-wrap files. ;; ;;; Code: (define-module (gnome gobject gw-spec-utils) #:use-module (gnome gw support modules)) (begin-deprecated (issue-deprecation-warning "`(gnome gobject gw-spec-utils)' is deprecated. Use `(gnome gw support gobject)' instead.") (re-export-modules (gnome gw support gobject))) guile-gnome-platform-2.16.2/glib/gnome/gobject/gvalue.h0000644000175000017500000000631611670374302023270 0ustar00wingowingo00000000000000/* guile-gnome * Copyright (C) 2003 Andy Wingo * * values.h: Support for GValue-based types * * This program is free software; you can redistribute it and/or * modify it under the terms of the GNU General Public License as * published by the Free Software Foundation; either version 2 of * the License, or (at your option) any later version. * * This program is distributed in the hope that it will be useful, * but WITHOUT ANY WARRANTY; without even the implied warranty of * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the * GNU General Public License for more details. * * You should have received a copy of the GNU General Public License * along with this program; if not, contact: * * Free Software Foundation Voice: +1-617-542-5942 * 59 Temple Place - Suite 330 Fax: +1-617-542-2652 * Boston, MA 02111-1307, USA gnu@gnu.org */ #ifndef __GUILE_GNOME_GOBJECT_GVALUE_H__ #define __GUILE_GNOME_GOBJECT_GVALUE_H__ #include G_BEGIN_DECLS extern SCM scm_class_gvalue; #define SCM_GVALUEP(scm) SCM_IS_A_P (scm, scm_class_gvalue) #define SCM_VALIDATE_GVALUE(pos, scm) SCM_MAKE_VALIDATE (pos, scm, GVALUEP) #define SCM_VALIDATE_GVALUE_COPY(pos, value, cvar) \ do { \ SCM_VALIDATE_GVALUE (pos, value); \ cvar = scm_c_gvalue_peek_value (value); \ } while (0) #define SCM_VALIDATE_GVALUE_TYPE_COPY(pos, value, type, cvar) \ do { \ SCM_VALIDATE_GVALUE_COPY (pos, value, cvar); \ SCM_ASSERT (G_TYPE_CHECK_VALUE_TYPE (cvar, type), value, pos, FUNC_NAME); \ } while (0) SCM scm_gvalue_to_scm (SCM value); SCM scm_scm_to_gvalue (SCM type, SCM scm); SCM scm_genum_register_static (SCM name, SCM vtable); SCM scm_gflags_register_static (SCM name, SCM vtable); /* C only */ SCM scm_c_make_gvalue (GType gtype); GValue* scm_c_gvalue_peek_value (SCM value); SCM scm_c_gvalue_to_scm (const GValue *gvalue); SCM scm_c_gvalue_ref (const GValue *gvalue); void scm_c_gvalue_set (GValue *gvalue, SCM value); GValue* scm_c_scm_to_gvalue (GType gtype, SCM scm); void scm_c_register_gvalue_wrappers (GType type, SCM (*wrap) (const GValue*), void (*unwrap) (SCM, GValue*)); typedef gpointer (*SCMGValueGetTypeInstanceFunc) (const GValue*); typedef void (*SCMGValueSetTypeInstanceFunc) (GValue*, gpointer instance); void scm_c_register_gtype_instance_gvalue_wrappers (GType type, SCMGValueGetTypeInstanceFunc getter, SCMGValueSetTypeInstanceFunc setter); /* Helpers */ gboolean scm_c_gvalue_holds (SCM maybe_gvalue, GType type); SCM scm_c_gvalue_new_from_boxed (GType type, const gpointer boxed); SCM scm_c_gvalue_new_take_boxed (GType type, gpointer boxed); gpointer scm_c_gvalue_peek_boxed (SCM value); gpointer scm_c_gvalue_dup_boxed (SCM value); // should these go into gobject-support or something? GValue* scm_c_gvalue_dup_value (SCM scm); SCM scm_c_gvalue_from_value (const GValue *value); SCM scm_c_gvalue_take_value (GValue *value); G_END_DECLS #endif guile-gnome-platform-2.16.2/glib/gnome/gobject/utils.scm0000644000175000017500000002055611670374302023502 0ustar00wingowingo00000000000000;; guile-gnome ;; Copyright (C) 2003,2004,2009 Andy Wingo ;; This program is free software; you can redistribute it and/or ;; modify it under the terms of the GNU General Public License as ;; published by the Free Software Foundation; either version 2 of ;; the License, or (at your option) any later version. ;; ;; This program is distributed in the hope that it will be useful, ;; but WITHOUT ANY WARRANTY; without even the implied warranty of ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the ;; GNU General Public License for more details. ;; ;; You should have received a copy of the GNU General Public License ;; along with this program; if not, contact: ;; ;; Free Software Foundation Voice: +1-617-542-5942 ;; 59 Temple Place - Suite 330 Fax: +1-617-542-2652 ;; Boston, MA 02111-1307, USA gnu@gnu.org ;;; Commentary: ;; ;; @c ;; Common utility routines. ;; ;;; Code: (define-module (gnome gobject utils) #:use-module (oop goops) #:use-module (srfi srfi-13) #:use-module (ice-9 documentation) #:export (GStudlyCapsExpand gtype-name->scheme-name-alist gtype-name->scheme-name gtype-name->class-name gtype-class-name->method-name re-export-modules define-macro-with-docs define-with-docs define-generic-with-docs define-class-with-docs unless with-accessors)) ;;; ;;; {Miscellaneous} ;;; (cond-expand (guile-2 (define-syntax define-macro-with-docs (lambda (x) "Define a defmacro with documentation." (syntax-case x () ((_ (f . args) doc b0 b* ...) #'(define-macro (f . args) doc b0 b* ...)))))) (else (define-macro (define-macro-with-docs form docs . body) `(begin (define-macro ,form ,@body) (set-object-property! ,(car form) 'documentation ,docs))))) (define-macro-with-docs (define-with-docs name docs val) "Define @var{name} as @var{val}, documenting the value with @var{docs}." `(begin (define ,name ,val) (set-object-property! ,name 'documentation ,docs))) (define-macro-with-docs (define-generic-with-docs name documentation) "Define a generic named @var{name}, with documentation @var{documentation}." `(define-with-docs ,name ,documentation (make-generic ',name))) (define-macro-with-docs (define-class-with-docs name supers docs . rest) "Define a class named @var{name}, with superclasses @var{supers}, with documentation @var{docs}." `(begin (define-class ,name ,supers ,@rest) (set-object-property! ,name 'documentation ,docs))) ;;; ;;; {Name Transformations} ;;; ;; Based on code from slib's strcase.scm, written 1992 by Dirk ;; Lutzebaeck (lutzeb@cs.tu-berlin.de). Public domain. (define (GStudlyCapsExpand nstr) "Expand the StudlyCaps @var{nstr} to a more schemey-form, according to the conventions of GLib libraries. For example: @lisp (GStudlyCapsExpand \"GSource\") @result{} g-source (GStudlyCapsExpand \"GtkIMContext\") @result{} gtk-im-context (GStudlyCapsExpand \"GtkHBox\") @result{} gtk-hbox @end lisp" (do ((idx (+ -1 (string-length nstr)) (+ -1 idx))) ((> 1 idx) (string-downcase nstr)) (cond ((and (> idx 2) (char-lower-case? (string-ref nstr (+ -3 idx))) (char-upper-case? (string-ref nstr (+ -2 idx))) (char-upper-case? (string-ref nstr (+ -1 idx))) (char-lower-case? (string-ref nstr idx))) (set! idx (1- idx)) (set! nstr (string-append (substring nstr 0 (+ -1 idx)) "-" (substring nstr (+ -1 idx) (string-length nstr))))) ((and (> idx 1) (char-upper-case? (string-ref nstr (+ -1 idx))) (char-lower-case? (string-ref nstr idx))) (set! nstr (string-append (substring nstr 0 (+ -1 idx)) "-" (substring nstr (+ -1 idx) (string-length nstr))))) ((and (char-lower-case? (string-ref nstr (+ -1 idx))) (char-upper-case? (string-ref nstr idx))) (set! nstr (string-append (substring nstr 0 idx) "-" (substring nstr idx (string-length nstr)))))))) ;; Default name transformations can be overridden (define-with-docs gtype-name->scheme-name-alist "An alist of exceptions to the name transformation algorithm implemented in @code{GStudlyCapsExpand}." '(("GObject" . "gobject") ("GValue" . "gvalue") ("GClosure" . "gclosure") ("GParamSpec" . "gparam") ;; i hate inconsistency! ("GEnum" . "genum") ("GFlags" . "gflags") ("GValueArray" . "gvalue-array") ("GBoxed" . "gboxed") ("GBoxedSCM" . "gboxed-scm") ("GInterface" . "ginterface") ("GParam" . "gparam") ("GParamBoolean" . "gparam-boolean") ("GParamChar" . "gparam-char") ("GParamUChar" . "gparam-uchar") ("GParamInt" . "gparam-int") ("GParamUInt" . "gparam-uint") ("GParamLong" . "gparam-long") ("GParamULong" . "gparam-ulong") ("GParamInt64" . "gparam-int64") ("GParamUInt64" . "gparam-uint64") ("GParamFloat" . "gparam-float") ("GParamDouble" . "gparam-double") ("GParamString" . "gparam-string") ("GParamEnum" . "gparam-enum") ("GParamFlags" . "gparam-flags") ("GParamObject" . "gparam-object") ("GParamBoxed" . "gparam-boxed") ("GParamPointer" . "gparam-pointer"))) (define (gtype-name->scheme-name type-name) "Transform a name of a @code{}, such as \"GtkWindow\", to a scheme form, such as @code{gtk-window}, taking into account the exceptions in @code{gtype-name->scheme-name-alist}, and trimming trailing dashes if any." (or (assoc-ref gtype-name->scheme-name-alist type-name) (string-trim-right (GStudlyCapsExpand ;; only change _ to -, other characters are not valid in a type name (string-map (lambda (c) (if (eq? c #\_) #\- c)) type-name)) #\-))) ;; "GtkAccelGroup" => ;; "GSource*" => (define (gtype-name->class-name type-name) "Transform a name of a @code{}, such as \"GtkWindow\", to a suitable name of a Scheme class, such as @code{}. Uses @code{gtype-name->scheme-name}." (string->symbol (string-append "<" (gtype-name->scheme-name type-name) ">"))) (define (gtype-class-name->method-name class-name name) "Generate the name of a method given the name of a @code{} and the name of the operation. For example: @lisp (gtype-name->method-name \"GtkFoo\" \"bar\") @result{} gtk-foo:bar @end lisp Uses @code{gtype-name->scheme-name}." (let ((class-string (symbol->string class-name))) (string->symbol (string-append (substring class-string 1 (1- (string-length class-string))) ":" (symbol->string name))))) (define-macro (re-export-modules . args) "Re-export the public interface of a module or modules. Invoked as @code{(re-export-modules (mod1) (mod2)...)}." (if (null? args) '(if #f #f) `(begin ,@(map (lambda (mod) (or (list? mod) (error "Invalid module specification" mod)) `(module-use! (module-public-interface (current-module)) (resolve-interface ',mod))) args)))) (define-macro (unless test . body) `(if (not ,test) (begin ,@body))) (cond-expand (guile-2 (define-macro (with-accessors names . body) `(let (,@(map (lambda (name) ;; Ew, fixme. `(,name (make-procedure-with-setter (lambda (x) (slot-ref x ',name)) (lambda (x y) (slot-set! x ',name y))))) names)) ,@body))) (else (define-macro (with-accessors names . body) `(let (,@(map (lambda (name) `(,name ,(make-procedure-with-setter (lambda (x) (slot-ref x name)) (lambda (x y) (slot-set! x name y))))) names)) ,@body)))) guile-gnome-platform-2.16.2/glib/gnome/gobject/gw-utils.scm0000644000175000017500000000265511670374302024115 0ustar00wingowingo00000000000000;; guile-gnome ;; Copyright (C) 2003,2004 Andy Wingo ;; This program is free software; you can redistribute it and/or ;; modify it under the terms of the GNU General Public License as ;; published by the Free Software Foundation; either version 2 of ;; the License, or (at your option) any later version. ;; ;; This program is distributed in the hope that it will be useful, ;; but WITHOUT ANY WARRANTY; without even the implied warranty of ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the ;; GNU General Public License for more details. ;; ;; You should have received a copy of the GNU General Public License ;; along with this program; if not, contact: ;; ;; Free Software Foundation Voice: +1-617-542-5942 ;; 59 Temple Place - Suite 330 Fax: +1-617-542-2652 ;; Boston, MA 02111-1307, USA gnu@gnu.org ;;; Commentary: ;; ;;This module implements some procedures useful to modules that use ;;g-wrapped libraries. ;; ;;; Code: (define-module (gnome gobject gw-utils) #:use-module (gnome gw support modules)) (begin-deprecated (issue-deprecation-warning "`(gnome gobject gw-utils)' is deprecated. Use `(gnome gw support modules)' instead.") (re-export-modules (gnome gw support modules))) guile-gnome-platform-2.16.2/glib/gnome/gobject/guile-support.h0000644000175000017500000000500311751765137024626 0ustar00wingowingo00000000000000/* guile-gnome * Copyright (C) 2003,2004,2011 Andy Wingo * * guile-support.h: Support routines for old Guile versions * * This program is free software; you can redistribute it and/or * modify it under the terms of the GNU General Public License as * published by the Free Software Foundation; either version 2 of * the License, or (at your option) any later version. * * This program is distributed in the hope that it will be useful, * but WITHOUT ANY WARRANTY; without even the implied warranty of * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the * GNU General Public License for more details. * * You should have received a copy of the GNU General Public License * along with this program; if not, contact: * * Free Software Foundation Voice: +1-617-542-5942 * 59 Temple Place - Suite 330 Fax: +1-617-542-2652 * Boston, MA 02111-1307, USA gnu@gnu.org */ #ifndef __GUILE_SUPPORT_H__ #define __GUILE_SUPPORT_H__ #include #include G_BEGIN_DECLS /* We have Guile >= 1.8.0, so we certainly have Guile 1.7.x. */ #define SCM_VERSION_17X 1 #if SCM_MAJOR_VERSION < 2 char* scm_to_utf8_string (SCM s); char* scm_to_utf8_stringn (SCM s, size_t *lenp); #endif char* scm_to_locale_string_dynwind (SCM s); char* scm_to_utf8_stringn_dynwind (SCM s, size_t *lenp); char* scm_symbol_chars (SCM s); char* scm_symbol_chars_dynwind (SCM s); char* scm_keyword_chars (SCM s); char* scm_keyword_chars_dynwind (SCM s); void scm_dynwind_guile_v__p_p (void* (*dynwind)(void*(*)(void*), void*), void *func, void *arg1, void *arg2); void scm_dynwind_guile_v__p_p_p_p_p (void* (*dynwind)(void*(*)(void*), void*), void *func, void *arg1, void *arg2, void *arg3, void *arg4, void *arg5); void scm_dynwind_guile_v__p_u_p_p (void* (*dynwind)(void*(*)(void*), void*), void *func, void *arg1, unsigned int arg2, void *arg3, void *arg4); void scm_dynwind_guile_v__p_u_c_p (void* (*dynwind)(void*(*)(void*), void*), void *func, void *arg1, unsigned int arg2, const void *arg3, void *arg4); G_END_DECLS #endif /* __GUILE_SUPPORT_H__ */ guile-gnome-platform-2.16.2/glib/gnome/gobject/private.h0000644000175000017500000000373111670374302023455 0ustar00wingowingo00000000000000/* guile-gnome * Copyright (C) 2003 Andy Wingo * * private.h: Declarations private to guile-gobject * * This program is free software; you can redistribute it and/or * modify it under the terms of the GNU General Public License as * published by the Free Software Foundation; either version 2 of * the License, or (at your option) any later version. * * This program is distributed in the hope that it will be useful, * but WITHOUT ANY WARRANTY; without even the implied warranty of * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the * GNU General Public License for more details. * * You should have received a copy of the GNU General Public License * along with this program; if not, contact: * * Free Software Foundation Voice: +1-617-542-5942 * 59 Temple Place - Suite 330 Fax: +1-617-542-2652 * Boston, MA 02111-1307, USA gnu@gnu.org */ #ifndef __GUILE_GNOME_GOBJECT_PRIVATE_H__ #define __GUILE_GNOME_GOBJECT_PRIVATE_H__ G_BEGIN_DECLS #define SCM_DEFINE_STATIC(FNAME, PRIMNAME, REQ, OPT, VAR, ARGLIST) \ SCM_SNARF_HERE(\ static const char s_ ## FNAME [] = PRIMNAME; \ static SCM FNAME ARGLIST\ )\ SCM_SNARF_INIT(\ scm_c_define_gsubr (s_ ## FNAME, REQ, OPT, VAR, \ (SCM_FUNC_CAST_ARBITRARY_ARGS) FNAME); \ )\ SCM_SNARF_DOCS(primitive, FNAME, PRIMNAME, ARGLIST, REQ, OPT, VAR, "") typedef struct _GuileGTypeClass GuileGTypeClass; struct _GuileGTypeClass { /*< private >*/ GHashTable *properties_hash; guint last_property_id; gboolean first_instance_created; SCM class; }; SCM scm_c_gtype_instance_to_scm_typed (gpointer ginstance, GType type); void scm_c_gtype_instance_bind_to_object (gpointer ginstance, SCM object); G_END_DECLS #endif /* __GUILE_GNOME_GOBJECT_PRIVATE_H__ */ guile-gnome-platform-2.16.2/glib/gnome/gobject/gsignal.h0000644000175000017500000000312111670374302023420 0ustar00wingowingo00000000000000/* guile-gnome * Copyright (C) 2003,2008 Andy Wingo * * gsignal.h: Support for GSignal * * This program is free software; you can redistribute it and/or * modify it under the terms of the GNU General Public License as * published by the Free Software Foundation; either version 2 of * the License, or (at your option) any later version. * * This program is distributed in the hope that it will be useful, * but WITHOUT ANY WARRANTY; without even the implied warranty of * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the * GNU General Public License for more details. * * You should have received a copy of the GNU General Public License * along with this program; if not, contact: * * Free Software Foundation Voice: +1-617-542-5942 * 59 Temple Place - Suite 330 Fax: +1-617-542-2652 * Boston, MA 02111-1307, USA gnu@gnu.org */ #ifndef __GUILE_GNOME_GOBJECT_GSIGNAL_H__ #define __GUILE_GNOME_GOBJECT_GSIGNAL_H__ #include G_BEGIN_DECLS SCM scm_gtype_get_signals (SCM type); SCM scm_gsignal_create (SCM signal, SCM closure); SCM scm_gsignal_handler_block (SCM instance, SCM handler_id); SCM scm_gsignal_handler_unblock (SCM instance, SCM handler_id); SCM scm_gsignal_handler_disconnect (SCM instance, SCM handler_id); SCM scm_gsignal_handler_connected_p (SCM instance, SCM handler_id); G_END_DECLS #endif guile-gnome-platform-2.16.2/glib/gnome/gobject/gparameter.h0000644000175000017500000000313211670374302024125 0ustar00wingowingo00000000000000/* guile-gnome * Copyright (C) 2003 Andy Wingo * * gparameter.h: Support for GParamSpec * * This program is free software; you can redistribute it and/or * modify it under the terms of the GNU General Public License as * published by the Free Software Foundation; either version 2 of * the License, or (at your option) any later version. * * This program is distributed in the hope that it will be useful, * but WITHOUT ANY WARRANTY; without even the implied warranty of * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the * GNU General Public License for more details. * * You should have received a copy of the GNU General Public License * along with this program; if not, contact: * * Free Software Foundation Voice: +1-617-542-5942 * 59 Temple Place - Suite 330 Fax: +1-617-542-2652 * Boston, MA 02111-1307, USA gnu@gnu.org */ #ifndef __GUILE_GNOME_GOBJECT_GPARAMETER_H__ #define __GUILE_GNOME_GOBJECT_GPARAMETER_H__ #include G_BEGIN_DECLS extern SCM scm_class_gparam; #define SCM_GPARAMP(scm) \ scm_c_gtype_instance_is_a_p (scm, G_TYPE_PARAM) #define SCM_VALIDATE_GPARAM(pos, scm) \ SCM_MAKE_VALIDATE (pos, scm, GPARAMP) #define SCM_VALIDATE_GPARAM_COPY(pos, scm, cvar) \ SCM_VALIDATE_GTYPE_INSTANCE_TYPE_COPY (pos, scm, G_TYPE_PARAM, cvar) G_END_DECLS #endif /* __GUILE_GNOME_GOBJECT_PARAMETERS_H__ */ guile-gnome-platform-2.16.2/glib/gnome/gobject/gc.c0000644000175000017500000000661411670374302022372 0ustar00wingowingo00000000000000/* -*- Mode: C; c-basic-offset: 4 -*- */ /* guile-gnome * Copyright (C) 2006 Andy Wingo * * gc.c: A sweep-safe replacement for scm_gc_protect_object * * This program is free software; you can redistribute it and/or * modify it under the terms of the GNU General Public License as * published by the Free Software Foundation; either version 2 of * the License, or (at your option) any later version. * * This program is distributed in the hope that it will be useful, * but WITHOUT ANY WARRANTY; without even the implied warranty of * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the * GNU General Public License for more details. * * You should have received a copy of the GNU General Public License * along with this program; if not, contact: * * Free Software Foundation Voice: +1-617-542-5942 * 59 Temple Place - Suite 330 Fax: +1-617-542-2652 * Boston, MA 02111-1307, USA gnu@gnu.org */ #include "guile-support.h" #include "gc.h" #include "gutil.h" static GMutex *glib_gc_marker_hash_lock = NULL; static GHashTable *glib_gc_marker_hash = NULL; static SCM scm_sys_glib_gc_marker; static scm_t_bits scm_tc16_glib_gc_marker; /* #define DEBUG_PRINT */ #ifdef DEBUG_PRINT #define DEBUG_ALLOC(str, args...) g_print ("I: " str "\n", ##args) #else #define DEBUG_ALLOC(str, args...) #endif gpointer scm_glib_gc_protect_object (SCM obj) { gpointer key = SCM_TO_GPOINTER (obj); gpointer val; g_mutex_lock (glib_gc_marker_hash_lock); val = g_hash_table_lookup (glib_gc_marker_hash, key); g_hash_table_insert (glib_gc_marker_hash, key, GINT_TO_POINTER (GPOINTER_TO_INT (val)+1)); g_mutex_unlock (glib_gc_marker_hash_lock); return key; } void scm_glib_gc_unprotect_object (gpointer key) { gpointer val; g_mutex_lock (glib_gc_marker_hash_lock); val = g_hash_table_lookup (glib_gc_marker_hash, key); /* FIXME: is this right? */ if (val) g_hash_table_insert (glib_gc_marker_hash, key, GINT_TO_POINTER (GPOINTER_TO_INT (val)-1)); else g_hash_table_remove (glib_gc_marker_hash, key); g_mutex_unlock (glib_gc_marker_hash_lock); } static void mark (gpointer key, gpointer val, gpointer user_data) { scm_gc_mark (GPOINTER_TO_SCM (key)); } static SCM glib_gc_marker_mark (SCM smob) { g_mutex_lock (glib_gc_marker_hash_lock); g_hash_table_foreach (glib_gc_marker_hash, mark, NULL); g_mutex_unlock (glib_gc_marker_hash_lock); return SCM_BOOL_F; } static int glib_gc_marker_print (SCM smob, SCM port, scm_print_state *print_state) { scm_puts ("#<%glib-gc-marker>", port); return 1; } void scm_init_gnome_gobject_gc (void) { scm_tc16_glib_gc_marker = scm_make_smob_type ("%glib-gc-marker", 0); scm_set_smob_mark (scm_tc16_glib_gc_marker, glib_gc_marker_mark); scm_set_smob_print (scm_tc16_glib_gc_marker, glib_gc_marker_print); if (!g_thread_supported ()) g_thread_init (NULL); glib_gc_marker_hash = g_hash_table_new (NULL, NULL); glib_gc_marker_hash_lock = g_mutex_new (); SCM_NEWSMOB (scm_sys_glib_gc_marker, scm_tc16_glib_gc_marker, NULL); scm_permanent_object (scm_sys_glib_gc_marker); } guile-gnome-platform-2.16.2/glib/gnome/gobject/defs-support.scm0000644000175000017500000000262411670374302024771 0ustar00wingowingo00000000000000;; guile-gnome ;; Copyright (C) 2003,2004 Andy Wingo ;; This program is free software; you can redistribute it and/or ;; modify it under the terms of the GNU General Public License as ;; published by the Free Software Foundation; either version 2 of ;; the License, or (at your option) any later version. ;; ;; This program is distributed in the hope that it will be useful, ;; but WITHOUT ANY WARRANTY; without even the implied warranty of ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the ;; GNU General Public License for more details. ;; ;; You should have received a copy of the GNU General Public License ;; along with this program; if not, contact: ;; ;; Free Software Foundation Voice: +1-617-542-5942 ;; 59 Temple Place - Suite 330 Fax: +1-617-542-2652 ;; Boston, MA 02111-1307, USA gnu@gnu.org ;;; Commentary: ;; ;;Support for reading in Gtk .defs files as g-wrap instructions ;; ;;; Code: (define-module (gnome gobject defs-support) #:use-module (gnome gw support modules)) (begin-deprecated (issue-deprecation-warning "`(gnome gobject defs-support)' is deprecated. Use `(gnome gw support defs)' instead.") (re-export-modules (gnome gw support defs))) guile-gnome-platform-2.16.2/glib/gnome/glib.scm0000644000175000017500000000716111670374302021637 0ustar00wingowingo00000000000000;; guile-gnome ;; Copyright (C) 2003,2004 Andy Wingo ;; This program is free software; you can redistribute it and/or ;; modify it under the terms of the GNU General Public License as ;; published by the Free Software Foundation; either version 2 of ;; the License, or (at your option) any later version. ;; ;; This program is distributed in the hope that it will be useful, ;; but WITHOUT ANY WARRANTY; without even the implied warranty of ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the ;; GNU General Public License for more details. ;; ;; You should have received a copy of the GNU General Public License ;; along with this program; if not, contact: ;; ;; Free Software Foundation Voice: +1-617-542-5942 ;; 59 Temple Place - Suite 330 Fax: +1-617-542-2652 ;; Boston, MA 02111-1307, USA gnu@gnu.org ;;; Commentary: ;; ;;A GLib 2.0 wrapper for Guile (mainly main loop-related pieces). ;; ;;; Code: (define-module (gnome glib) #:use-module (gnome gobject) #:use-module (gnome gw glib) #:use-module (gnome gw gobject) #:use-module (gnome gw support modules) #:use-module (oop goops) #:re-export (g-source-set-closure)) (re-export-modules (gnome gw glib)) (define-public (g-idle-add proc) (let ((closure (make #:return-type #:func proc)) (source (g-idle-source-new))) (g-source-set-closure source closure) (g-source-set-priority source 200) ; G_PRIORITY_DEFAULT_IDLE (g-source-attach source #f))) (define-public (g-timeout-add milliseconds proc) (let ((closure (make #:return-type #:func proc)) (source (g-timeout-source-new milliseconds))) (g-source-set-closure source closure) (g-source-set-priority source 200) ; G_PRIORITY_DEFAULT_IDLE (g-source-attach source #f))) (use-modules (gnome gobject event-repl)) ;; taken from gnome-guile 0.10.0 (define-public (g-main-loop-console-repl) (define main-loop (g-main-loop-new #f #f)) ;; for some reason, this doesn't work with readline... patches welcome ;; :) (define inport (fdes->inport 1)) (define outport (current-output-port)) (define unspecified (if #f #f)) (define (prompt) (display "gtk> " outport) (force-output outport)) (define (print val) (cond ((not (eq? unspecified val)) (write val outport) (newline outport))) (prompt)) (define (report data) (repl-display-backtrace data outport) (repl-display-error data outport) (prompt)) (define (nonblocking-read port) (let loop ((res '())) (if (char-ready? port) (let ((ch (read-char port))) (if (eof-object? ch) (if (null? res) ch (apply string (reverse res))) (loop (cons ch res)))) (apply string (reverse res))))) (let ((repl (make-event-repl read primitive-eval print report))) (g-timeout-add 50 (lambda () (let ((str (nonblocking-read inport))) (if (eof-object? str) (g-main-loop-quit main-loop) (repl-input repl str)) #t))) (prompt) (g-main-loop-run main-loop))) (define-public (g-error-domain error) (car error)) (define-public (g-error-code error) (caddr error)) (define-public (g-error-message error) (caddr error)) guile-gnome-platform-2.16.2/glib/test-suite/0000755000175000017500000000000011752546500021214 5ustar00wingowingo00000000000000guile-gnome-platform-2.16.2/glib/test-suite/test-gobject.defs0000644000175000017500000000067211670374302024454 0ustar00wingowingo00000000000000;; -*- scheme -*- ; object definitions ... (define-object Obj (in-module "Test") (parent "GObject") (c-name "TestObj") (gtype-id "TEST_TYPE_OBJ") ) ;; Enumerations and flags ... ;; From test-gobject.h (define-function test_obj_get_type (c-name "test_obj_get_type") (return-type "GType") ) (define-method foo (of-object "TestObj") (c-name "test_obj_foo") (return-type "guint") (parameters '("guint" "arg") ) ) guile-gnome-platform-2.16.2/glib/test-suite/lib.scm0000644000175000017500000004710111670374302022467 0ustar00wingowingo00000000000000;;;; test-suite/lib.scm --- generic support for testing ;;;; Copyright (C) 1999, 2000, 2001 Free Software Foundation, Inc. ;;;; ;;;; This program is free software; you can redistribute it and/or modify ;;;; it under the terms of the GNU General Public License as published by ;;;; the Free Software Foundation; either version 2, or (at your option) ;;;; any later version. ;;;; ;;;; This program is distributed in the hope that it will be useful, ;;;; but WITHOUT ANY WARRANTY; without even the implied warranty of ;;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the ;;;; GNU General Public License for more details. ;;;; ;;;; You should have received a copy of the GNU General Public License ;;;; along with this software; see the file COPYING. If not, write to ;;;; the Free Software Foundation, Inc., 59 Temple Place, Suite 330, ;;;; Boston, MA 02111-1307 USA (define-module (test-suite lib) :use-module (ice-9 stack-catch) :use-module (ice-9 regex) :export ( ;; Exceptions which are commonly being tested for. exception:bad-variable exception:missing-expression exception:out-of-range exception:unbound-var exception:wrong-num-args exception:wrong-type-arg ;; Reporting passes and failures. run-test pass-if expect-fail pass-if-exception expect-fail-exception ;; Naming groups of tests in a regular fashion. with-test-prefix with-test-prefix* current-test-prefix format-test-name ;; Reporting results in various ways. register-reporter unregister-reporter reporter-registered? make-count-reporter print-counts make-log-reporter full-reporter user-reporter)) ;;;; If you're using Emacs's Scheme mode: ;;;; (put 'with-test-prefix 'scheme-indent-function 1) ;;;; CORE FUNCTIONS ;;;; ;;;; The function (run-test name expected-result thunk) is the heart of the ;;;; testing environment. The first parameter NAME is a unique name for the ;;;; test to be executed (for an explanation of this parameter see below under ;;;; TEST NAMES). The second parameter EXPECTED-RESULT is a boolean value ;;;; that indicates whether the corresponding test is expected to pass. If ;;;; EXPECTED-RESULT is #t the test is expected to pass, if EXPECTED-RESULT is ;;;; #f the test is expected to fail. Finally, THUNK is the function that ;;;; actually performs the test. For example: ;;;; ;;;; (run-test "integer addition" #t (lambda () (= 2 (+ 1 1)))) ;;;; ;;;; To report success, THUNK should either return #t or throw 'pass. To ;;;; report failure, THUNK should either return #f or throw 'fail. If THUNK ;;;; returns a non boolean value or throws 'unresolved, this indicates that ;;;; the test did not perform as expected. For example the property that was ;;;; to be tested could not be tested because something else went wrong. ;;;; THUNK may also throw 'untested to indicate that the test was deliberately ;;;; not performed, for example because the test case is not complete yet. ;;;; Finally, if THUNK throws 'unsupported, this indicates that this test ;;;; requires some feature that is not available in the configured testing ;;;; environment. All other exceptions thrown by THUNK are considered as ;;;; errors. ;;;; ;;;; ;;;; Convenience macros for tests expected to pass or fail ;;;; ;;;; * (pass-if name body) is a short form for ;;;; (run-test name #t (lambda () body)) ;;;; * (expect-fail name body) is a short form for ;;;; (run-test name #f (lambda () body)) ;;;; ;;;; For example: ;;;; ;;;; (pass-if "integer addition" (= 2 (+ 1 1))) ;;;; ;;;; ;;;; Convenience macros to test for exceptions ;;;; ;;;; The following macros take exception parameters which are pairs ;;;; (type . message), where type is a symbol that denotes an exception type ;;;; like 'wrong-type-arg or 'out-of-range, and message is a string holding a ;;;; regular expression that describes the error message for the exception ;;;; like "Argument .* out of range". ;;;; ;;;; * (pass-if-exception name exception body) will pass if the execution of ;;;; body causes the given exception to be thrown. If no exception is ;;;; thrown, the test fails. If some other exception is thrown, is is an ;;;; error. ;;;; * (expect-fail-exception name exception body) will pass unexpectedly if ;;;; the execution of body causes the given exception to be thrown. If no ;;;; exception is thrown, the test fails expectedly. If some other ;;;; exception is thrown, it is an error. ;;;; TEST NAMES ;;;; ;;;; Every test in the test suite has a unique name, to help ;;;; developers find tests that are failing (or unexpectedly passing), ;;;; and to help gather statistics. ;;;; ;;;; A test name is a list of printable objects. For example: ;;;; ("ports.scm" "file" "read and write back list of strings") ;;;; ("ports.scm" "pipe" "read") ;;;; ;;;; Test names may contain arbitrary objects, but they always have ;;;; the following properties: ;;;; - Test names can be compared with EQUAL?. ;;;; - Test names can be reliably stored and retrieved with the standard WRITE ;;;; and READ procedures; doing so preserves their identity. ;;;; ;;;; For example: ;;;; ;;;; (pass-if "simple addition" (= 4 (+ 2 2))) ;;;; ;;;; In that case, the test name is the list ("simple addition"). ;;;; ;;;; In the case of simple tests the expression that is tested would often ;;;; suffice as a test name by itself. Therefore, the convenience macros ;;;; pass-if and expect-fail provide a shorthand notation that allows to omit ;;;; a test name in such cases. ;;;; ;;;; * (pass-if expression) is a short form for ;;;; (run-test 'expression #t (lambda () expression)) ;;;; * (expect-fail expression) is a short form for ;;;; (run-test 'expression #f (lambda () expression)) ;;;; ;;;; For example: ;;;; ;;;; (pass-if (= 2 (+ 1 1))) ;;;; ;;;; The WITH-TEST-PREFIX syntax and WITH-TEST-PREFIX* procedure establish ;;;; a prefix for the names of all tests whose results are reported ;;;; within their dynamic scope. For example: ;;;; ;;;; (begin ;;;; (with-test-prefix "basic arithmetic" ;;;; (pass-if "addition" (= (+ 2 2) 4)) ;;;; (pass-if "subtraction" (= (- 4 2) 2))) ;;;; (pass-if "multiplication" (= (* 2 2) 4))) ;;;; ;;;; In that example, the three test names are: ;;;; ("basic arithmetic" "addition"), ;;;; ("basic arithmetic" "subtraction"), and ;;;; ("multiplication"). ;;;; ;;;; WITH-TEST-PREFIX can be nested. Each WITH-TEST-PREFIX postpends ;;;; a new element to the current prefix: ;;;; ;;;; (with-test-prefix "arithmetic" ;;;; (with-test-prefix "addition" ;;;; (pass-if "integer" (= (+ 2 2) 4)) ;;;; (pass-if "complex" (= (+ 2+3i 4+5i) 6+8i))) ;;;; (with-test-prefix "subtraction" ;;;; (pass-if "integer" (= (- 2 2) 0)) ;;;; (pass-if "complex" (= (- 2+3i 1+2i) 1+1i)))) ;;;; ;;;; The four test names here are: ;;;; ("arithmetic" "addition" "integer") ;;;; ("arithmetic" "addition" "complex") ;;;; ("arithmetic" "subtraction" "integer") ;;;; ("arithmetic" "subtraction" "complex") ;;;; ;;;; To print a name for a human reader, we DISPLAY its elements, ;;;; separated by ": ". So, the last set of test names would be ;;;; reported as: ;;;; ;;;; arithmetic: addition: integer ;;;; arithmetic: addition: complex ;;;; arithmetic: subtraction: integer ;;;; arithmetic: subtraction: complex ;;;; ;;;; The Guile benchmarks use with-test-prefix to include the name of ;;;; the source file containing the test in the test name, to help ;;;; developers to find failing tests, and to provide each file with its ;;;; own namespace. ;;;; REPORTERS ;;;; ;;;; A reporter is a function which we apply to each test outcome. ;;;; Reporters can log results, print interesting results to the ;;;; standard output, collect statistics, etc. ;;;; ;;;; A reporter function takes two mandatory arguments, RESULT and TEST, and ;;;; possibly additional arguments depending on RESULT; its return value ;;;; is ignored. RESULT has one of the following forms: ;;;; ;;;; pass - The test named TEST passed. ;;;; Additional arguments are ignored. ;;;; upass - The test named TEST passed unexpectedly. ;;;; Additional arguments are ignored. ;;;; fail - The test named TEST failed. ;;;; Additional arguments are ignored. ;;;; xfail - The test named TEST failed, as expected. ;;;; Additional arguments are ignored. ;;;; unresolved - The test named TEST did not perform as expected, for ;;;; example the property that was to be tested could not be ;;;; tested because something else went wrong. ;;;; Additional arguments are ignored. ;;;; untested - The test named TEST was not actually performed, for ;;;; example because the test case is not complete yet. ;;;; Additional arguments are ignored. ;;;; unsupported - The test named TEST requires some feature that is not ;;;; available in the configured testing environment. ;;;; Additional arguments are ignored. ;;;; error - An error occurred while the test named TEST was ;;;; performed. Since this result means that the system caught ;;;; an exception it could not handle, the exception arguments ;;;; are passed as additional arguments. ;;;; ;;;; This library provides some standard reporters for logging results ;;;; to a file, reporting interesting results to the user, and ;;;; collecting totals. ;;;; ;;;; You can use the REGISTER-REPORTER function and friends to add ;;;; whatever reporting functions you like. If you don't register any ;;;; reporters, the library uses FULL-REPORTER, which simply writes ;;;; all results to the standard output. ;;;; MISCELLANEOUS ;;;; ;;; Define some exceptions which are commonly being tested for. (define exception:bad-variable (cons 'syntax-error "Bad variable")) (define exception:missing-expression (cons 'misc-error "^missing or extra expression")) (define exception:out-of-range (cons 'out-of-range "^Argument .*out of range")) (define exception:unbound-var (cons 'unbound-variable "^Unbound variable")) (define exception:wrong-num-args (cons 'wrong-number-of-args "^Wrong number of arguments")) (define exception:wrong-type-arg (cons 'wrong-type-arg "^Wrong type argument")) ;;; Display all parameters to the default output port, followed by a newline. (define (display-line . objs) (for-each display objs) (newline)) ;;; Display all parameters to the given output port, followed by a newline. (define (display-line-port port . objs) (for-each (lambda (obj) (display obj port)) objs) (newline port)) ;;;; CORE FUNCTIONS ;;;; ;;; The central testing routine. ;;; The idea is taken from Greg, the GNUstep regression test environment. (define run-test #f) (let ((test-running #f)) (define (local-run-test name expect-pass thunk) (if test-running (error "Nested calls to run-test are not permitted.") (let ((test-name (full-name name))) (set! test-running #t) (catch #t (lambda () (let ((result (thunk))) (if (eq? result #t) (throw 'pass)) (if (eq? result #f) (throw 'fail)) (throw 'unresolved))) (lambda (key . args) (case key ((pass) (report (if expect-pass 'pass 'upass) test-name)) ((fail) (report (if expect-pass 'fail 'xfail) test-name)) ((unresolved untested unsupported) (report key test-name)) ((quit) (report 'unresolved test-name) (quit)) (else (report 'error test-name (cons key args)))))) (set! test-running #f)))) (set! run-test local-run-test)) ;;; A short form for tests that are expected to pass, taken from Greg. (defmacro pass-if (name . rest) (if (and (null? rest) (pair? name)) ;; presume this is a simple test, i.e. (pass-if (even? 2)) ;; where the body should also be the name. `(run-test ',name #t (lambda () ,name)) `(run-test ,name #t (lambda () ,@rest)))) ;;; A short form for tests that are expected to fail, taken from Greg. (defmacro expect-fail (name . rest) (if (and (null? rest) (pair? name)) ;; presume this is a simple test, i.e. (expect-fail (even? 2)) ;; where the body should also be the name. `(run-test ',name #f (lambda () ,name)) `(run-test ,name #f (lambda () ,@rest)))) ;;; A helper function to implement the macros that test for exceptions. (define (run-test-exception name exception expect-pass thunk) (run-test name expect-pass (lambda () (stack-catch (car exception) (lambda () (thunk) #f) (lambda (key proc message . rest) (cond ;; handle explicit key ((string-match (cdr exception) message) #t) ;; handle `(error ...)' which uses `misc-error' for key and doesn't ;; yet format the message and args (we have to do it here). ((and (eq? 'misc-error (car exception)) (list? rest) (string-match (cdr exception) (apply simple-format #f message (car rest)))) #t) ;; handle syntax errors which use `syntax-error' for key and don't ;; yet format the message and args (we have to do it here). ((and (eq? 'syntax-error (car exception)) (list? rest) (string-match (cdr exception) (apply simple-format #f message (car rest)))) #t) ;; unhandled; throw again (else (apply throw key proc message rest)))))))) ;;; A short form for tests that expect a certain exception to be thrown. (defmacro pass-if-exception (name exception body . rest) `(,run-test-exception ,name ,exception #t (lambda () ,body ,@rest))) ;;; A short form for tests expected to fail to throw a certain exception. (defmacro expect-fail-exception (name exception body . rest) `(,run-test-exception ,name ,exception #f (lambda () ,body ,@rest))) ;;;; TEST NAMES ;;;; ;;;; Turn a test name into a nice human-readable string. (define (format-test-name name) (call-with-output-string (lambda (port) (let loop ((name name) (separator "")) (if (pair? name) (begin (display separator port) (display (car name) port) (loop (cdr name) ": "))))))) ;;;; For a given test-name, deliver the full name including all prefixes. (define (full-name name) (append (current-test-prefix) (list name))) ;;; A fluid containing the current test prefix, as a list. (define prefix-fluid (make-fluid)) (fluid-set! prefix-fluid '()) (define (current-test-prefix) (fluid-ref prefix-fluid)) ;;; Postpend PREFIX to the current name prefix while evaluting THUNK. ;;; The name prefix is only changed within the dynamic scope of the ;;; call to with-test-prefix*. Return the value returned by THUNK. (define (with-test-prefix* prefix thunk) (with-fluids ((prefix-fluid (append (fluid-ref prefix-fluid) (list prefix)))) (thunk))) ;;; (with-test-prefix PREFIX BODY ...) ;;; Postpend PREFIX to the current name prefix while evaluating BODY ... ;;; The name prefix is only changed within the dynamic scope of the ;;; with-test-prefix expression. Return the value returned by the last ;;; BODY expression. (defmacro with-test-prefix (prefix . body) `(with-test-prefix* ,prefix (lambda () ,@body))) ;;;; REPORTERS ;;;; ;;; The global list of reporters. (define reporters '()) ;;; The default reporter, to be used only if no others exist. (define default-reporter #f) ;;; Add the procedure REPORTER to the current set of reporter functions. ;;; Signal an error if that reporter procedure object is already registered. (define (register-reporter reporter) (if (memq reporter reporters) (error "register-reporter: reporter already registered: " reporter)) (set! reporters (cons reporter reporters))) ;;; Remove the procedure REPORTER from the current set of reporter ;;; functions. Signal an error if REPORTER is not currently registered. (define (unregister-reporter reporter) (if (memq reporter reporters) (set! reporters (delq! reporter reporters)) (error "unregister-reporter: reporter not registered: " reporter))) ;;; Return true iff REPORTER is in the current set of reporter functions. (define (reporter-registered? reporter) (if (memq reporter reporters) #t #f)) ;;; Send RESULT to all currently registered reporter functions. (define (report . args) (if (pair? reporters) (for-each (lambda (reporter) (apply reporter args)) reporters) (apply default-reporter args))) ;;;; Some useful standard reporters: ;;;; Count reporters count the occurrence of each test result type. ;;;; Log reporters write all test results to a given log file. ;;;; Full reporters write all test results to the standard output. ;;;; User reporters write interesting test results to the standard output. ;;; The complete list of possible test results. (define result-tags '((pass "PASS" "passes: ") (fail "FAIL" "failures: ") (upass "UPASS" "unexpected passes: ") (xfail "XFAIL" "expected failures: ") (unresolved "UNRESOLVED" "unresolved test cases: ") (untested "UNTESTED" "untested test cases: ") (unsupported "UNSUPPORTED" "unsupported test cases: ") (error "ERROR" "errors: "))) ;;; The list of important test results. (define important-result-tags '(fail upass unresolved error)) ;;; Display a single test result in formatted form to the given port (define (print-result port result name . args) (let* ((tag (assq result result-tags)) (label (if tag (cadr tag) #f))) (if label (begin (display label port) (display ": " port) (display (format-test-name name) port) (if (pair? args) (begin (display " - arguments: " port) (write args port))) (newline port)) (error "(test-suite lib) FULL-REPORTER: unrecognized result: " result)))) ;;; Return a list of the form (COUNTER RESULTS), where: ;;; - COUNTER is a reporter procedure, and ;;; - RESULTS is a procedure taking no arguments which returns the ;;; results seen so far by COUNTER. The return value is an alist ;;; mapping outcome symbols (`pass', `fail', etc.) onto counts. (define (make-count-reporter) (let ((counts (map (lambda (tag) (cons (car tag) 0)) result-tags))) (list (lambda (result name . args) (let ((pair (assq result counts))) (if pair (set-cdr! pair (+ 1 (cdr pair))) (error "count-reporter: unexpected test result: " (cons result (cons name args)))))) (lambda () (append counts '()))))) ;;; Print a count reporter's results nicely. Pass this function the value ;;; returned by a count reporter's RESULTS procedure. (define (print-counts results . port?) (let ((port (if (pair? port?) (car port?) (current-output-port)))) (newline port) (display-line-port port "Totals for this test run:") (for-each (lambda (tag) (let ((result (assq (car tag) results))) (if result (display-line-port port (caddr tag) (cdr result)) (display-line-port port "Test suite bug: " "no total available for `" (car tag) "'")))) result-tags) (newline port))) ;;; Return a reporter procedure which prints all results to the file ;;; FILE, in human-readable form. FILE may be a filename, or a port. (define (make-log-reporter file) (let ((port (if (output-port? file) file (open-output-file file)))) (lambda args (apply print-result port args) (force-output port)))) ;;; A reporter that reports all results to the user. (define (full-reporter . args) (apply print-result (current-output-port) args)) ;;; A reporter procedure which shows interesting results (failures, ;;; unexpected passes etc.) to the user. (define (user-reporter result name . args) (if (memq result important-result-tags) (apply full-reporter result name args))) (set! default-reporter full-reporter) guile-gnome-platform-2.16.2/glib/test-suite/test-gobject.c0000644000175000017500000001032411670374302023750 0ustar00wingowingo00000000000000/* guile-gnome * Copyright (C) 2003,2004 Andreas Rottmann * * This program is free software; you can redistribute it and/or * modify it under the terms of the GNU General Public License as * published by the Free Software Foundation; either version 2 of * the License, or (at your option) any later version. * * This program is distributed in the hope that it will be useful, * but WITHOUT ANY WARRANTY; without even the implied warranty of * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the * GNU General Public License for more details. * * You should have received a copy of the GNU General Public License * along with this program; if not, contact: * * Free Software Foundation Voice: +1-617-542-5942 * 59 Temple Place - Suite 330 Fax: +1-617-542-2652 * Boston, MA 02111-1307, USA gnu@gnu.org */ #include "test-gobject.h" static GObjectClass *parent_class = NULL; static void test_obj_instance_init (TestObj *self) { self->arr = g_value_array_new (0); } static void test_obj_instance_finalize (TestObj *self) { g_value_array_free (self->arr); } guint test_obj_foo (TestObj *obj, guint arg) { return arg; } /* * TestObj class. */ static GObject* test_obj_constructor (GType type, guint n_construct_properties, GObjectConstructParam *construct_properties) { GObject *object; TestObj *self; object = G_OBJECT_CLASS (parent_class)->constructor (type, n_construct_properties, construct_properties); self = TEST_OBJ (object); return object; } enum { PROP_ARR = 1, PROP_END }; static void test_obj_set_property (GObject *object, guint prop_id, const GValue *value, GParamSpec *pspec) { TestObj *self = (TestObj *) object; switch (prop_id) { case PROP_ARR: { GValueArray *arr = (GValueArray *)g_value_get_boxed (value); if (!arr) break; g_value_array_free (self->arr); self->arr = g_value_array_copy (arr); break; } default: break; } } static void test_obj_get_property (GObject *object, guint prop_id, GValue *value, GParamSpec *pspec) { TestObj *self = (TestObj *) object; switch (prop_id) { case PROP_ARR: { g_value_set_boxed (value, self->arr); break; } default: break; } } static void test_obj_class_init (TestObjClass *klass) { GParamSpec *param_spec; GObjectClass *object_class = G_OBJECT_CLASS (klass); parent_class = g_type_class_peek_parent (klass); object_class->constructor = test_obj_constructor; object_class->finalize = (void (*)(GObject *))test_obj_instance_finalize; /* Properties */ object_class->set_property = test_obj_set_property; object_class->get_property = test_obj_get_property; param_spec = g_param_spec_value_array ( "arr", "Array", "An array", g_param_spec_int ("int", "Int", "An int", 0, 100, 0, G_PARAM_READWRITE), G_PARAM_WRITABLE | G_PARAM_CONSTRUCT); g_object_class_install_property (object_class, PROP_ARR, param_spec); } GType test_obj_get_type (void) { static GType type = 0; if (type == 0) { static const GTypeInfo info = { sizeof (TestObjClass), NULL, /* base_init */ NULL, /* base_finalize */ (GClassInitFunc) test_obj_class_init, /* class_init */ NULL, /* class_finalize */ NULL, /* class_data */ sizeof (TestObj), 0, /* n_preallocs */ (GInstanceInitFunc)test_obj_instance_init /* instance_init */ }; type = g_type_register_static (G_TYPE_OBJECT, "TestObj", &info, 0); } return type; } guile-gnome-platform-2.16.2/glib/test-suite/guile-gobject-test0000755000175000017500000002040011670374302024631 0ustar00wingowingo00000000000000#!/bin/sh exec ${srcdir:-.}/guile-test-env guile --debug -e main -s "$0" "$@" !# ;;;; guile-gobject-test --- run the guile-gobject test suite ;;;; ;;;; Originally by Jim Blandy --- May 1999 ;;;; Stolen for guile-gobject by Andreas Rottmann ;;;; --- Oct 2003 ;;;; ;;;; Copyright (C) 1999 - 2003 Free Software Foundation, Inc. ;;;; ;;;; This program is free software; you can redistribute it and/or modify ;;;; it under the terms of the GNU General Public License as published by ;;;; the Free Software Foundation; either version 2, or (at your option) ;;;; any later version. ;;;; ;;;; This program is distributed in the hope that it will be useful, ;;;; but WITHOUT ANY WARRANTY; without even the implied warranty of ;;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the ;;;; GNU General Public License for more details. ;;;; ;;;; You should have received a copy of the GNU General Public License ;;;; along with this software; see the file COPYING. If not, write to ;;;; the Free Software Foundation, Inc., 59 Temple Place, Suite 330, ;;;; Boston, MA 02111-1307 USA ;;;; Usage: [guile -e main -s] guile-gobject-test [OPTIONS] [TEST ...] ;;;; ;;;; Run tests from the Guile test suite. Report failures and ;;;; unexpected passes to the standard output, along with a summary of ;;;; all the results. Record each reported test outcome in the log ;;;; file, `guile-gobject.log'. The exit status is #f if any of the ;;;; tests fail or pass unexpectedly. ;;;; ;;;; Normally, guile-gobject-test scans the test-suite directory, and ;;;; executes all files whose names end in `.test'. (It assumes they ;;;; contain Scheme code.) However, you can have it execute specific ;;;; tests by listing their filenames on the command line. ;;;; ;;;; The option `--test-suite' can be given to specify the test ;;;; directory. If no such option is given, the test directory is ;;;; taken from the environment variable TEST_SUITE_DIR (if defined), ;;;; otherwise a default directory that is hardcoded in this file is ;;;; used (see "Installation" below). ;;;; ;;;; If present, the `--log-file LOG' option tells `guile-goject-test' ;;;; to put the log output in a file named LOG. ;;;; ;;;; If present, the `--debug' option will enable a debugging mode. ;;;; ;;;; If present, the `--flag-unresolved' option will cause guile-test ;;;; to exit with failure status if any tests are UNRESOLVED. ;;;; ;;;; ;;;; Installation: ;;;; ;;;; If you change the #! line at the top of this script to point at ;;;; the Guile interpreter you want to test, you can call this script ;;;; as an executable instead of having to pass it as a parameter to ;;;; guile via "guile -e main -s guile-test". Further, you can edit ;;;; the definition of default-test-suite to point to the parent ;;;; directory of the `tests' tree, which makes it unnecessary to set ;;;; the environment variable `TEST_SUITE_DIR'. ;;;; ;;;; ;;;; Shortcomings: ;;;; ;;;; At the moment, due to a simple-minded implementation, test files ;;;; must live in the test directory, and you must specify their names ;;;; relative to the top of the test directory. If you want to send ;;;; me a patch that fixes this, but still leaves sane test names in ;;;; the log file, that would be great. At the moment, all the tests ;;;; I care about are in the test directory, though. ;;;; ;;;; It would be nice if you could specify the Guile interpreter you ;;;; want to test on the command line. As it stands, if you want to ;;;; change which Guile interpreter you're testing, you need to edit ;;;; the #! line at the top of this file, which is stupid. (use-modules (test-suite lib) (oop goops) (gnome gobject) (test-suite gw-test-gobject)) (define (main . args) (let ((module (resolve-module '(test-suite guile-gobject-test)))) (apply (module-ref module 'main) args))) (define-module (test-suite guile-gobject-test) #:use-module (test-suite lib) #:use-module (ice-9 getopt-long) #:use-module (ice-9 and-let-star) #:use-module (ice-9 rdelim) #:export (main data-file-name test-file-name)) (define default-test-suite (let ((dirs (list (getenv "srcdir") (getcwd)))) (let loop ((tail dirs)) (if (null? tail) #f (if (access? (car tail) F_OK) (car tail) (loop (cdr tail))))))) ;;; Variables that will receive their actual values later. (define test-suite default-test-suite) (define tmp-dir #f) ;;; General utilities, that probably should be in a library somewhere. ;;; Enable debugging (define (enable-debug-mode) (write-line %load-path) (set! %load-verbosely #t) (debug-enable 'backtrace 'debug)) ;;; Traverse the directory tree at ROOT, applying F to the name of ;;; each file in the tree, including ROOT itself. For a subdirectory ;;; SUB, if (F SUB) is true, we recurse into SUB. Do not follow ;;; symlinks. (define (for-each-file f root) ;; A "hard directory" is a path that denotes a directory and is not a ;; symlink. (define (file-is-hard-directory? filename) (eq? (stat:type (lstat filename)) 'directory)) (let visit ((root root)) (let ((should-recur (f root))) (if (and should-recur (file-is-hard-directory? root)) (let ((dir (opendir root))) (let loop () (let ((entry (readdir dir))) (cond ((eof-object? entry) #f) ((or (string=? entry ".") (string=? entry "..") (string=? entry "CVS") (string=? entry "RCS")) (loop)) (else (visit (string-append root "/" entry)) (loop)))))))))) ;;; The test driver. ;;; Localizing test files and temporary data files. (define (data-file-name filename) (in-vicinity tmp-dir filename)) (define (test-file-name test) (in-vicinity test-suite test)) ;;; Return a list of all the test files in the test tree. (define (enumerate-tests test-dir) (let ((root-len (+ 1 (string-length test-dir))) (tests '())) (for-each-file (lambda (file) (if (has-suffix? file ".test") (let ((short-name (substring file root-len))) (set! tests (cons short-name tests)))) #t) test-dir) ;; for-each-file presents the files in whatever order it finds ;; them in the directory. We sort them here, so they'll always ;; appear in the same order. This makes it easier to compare test ;; log files mechanically. (sort tests string G_BEGIN_DECLS /* Just return the argument */ GList *test_glist_echo (GList *list); G_END_DECLS #endif guile-gnome-platform-2.16.2/glib/test-suite/test-glib.c0000644000175000017500000000012011670374302023241 0ustar00wingowingo00000000000000#include "test-glib.h" GList *test_glist_echo (GList *list) { return list; } guile-gnome-platform-2.16.2/glib/test-suite/gw-test-gobject-spec.scm0000644000175000017500000000327611670374302025663 0ustar00wingowingo00000000000000;; guile-gnome ;; Copyright (C) 2003,2004 Andreas Rottmann ;; This program is free software; you can redistribute it and/or ;; modify it under the terms of the GNU General Public License as ;; published by the Free Software Foundation; either version 2 of ;; the License, or (at your option) any later version. ;; ;; This program is distributed in the hope that it will be useful, ;; but WITHOUT ANY WARRANTY; without even the implied warranty of ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the ;; GNU General Public License for more details. ;; ;; You should have received a copy of the GNU General Public License ;; along with this program; if not, contact: ;; ;; Free Software Foundation Voice: +1-617-542-5942 ;; 59 Temple Place - Suite 330 Fax: +1-617-542-2652 ;; Boston, MA 02111-1307, USA gnu@gnu.org (define-module (gw-test-gobject-spec) #:use-module (oop goops) #:use-module (gnome gw support g-wrap) #:use-module (gnome gw support defs) #:use-module (gnome gw support gobject) #:use-module (gnome gw gobject-spec)) (define-class () #:id 'test-gobject #:dependencies '(standard gnome-gobject)) (define-method (global-declarations-cg (ws )) (list (next-method) "#include \"test-gobject.h\"\n")) (define-method (initialize (ws ) initargs) (next-method ws (append '(#:module (test-suite gw-test-gobject)) initargs)) (load-defs ws "test-suite/test-gobject.defs")) guile-gnome-platform-2.16.2/glib/test-suite/wrapset.scm0000644000175000017500000000311411670374302023402 0ustar00wingowingo00000000000000;;; ---------------------------------------------------------------------- ;;; unit test ;;; Copyright (C) 2007 Andy Wingo ;;; ;;; This program is free software; you can redistribute it and/or modify ;;; it under the terms of the GNU General Public License as published by ;;; the Free Software Foundation; either version 2 of the License, or ;;; (at your option) any later version. ;;; ;;; This program is distributed in the hope that it will be useful, ;;; but WITHOUT ANY WARRANTY; without even the implied warranty of ;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the ;;; GNU General Public License for more details. ;;; ;;; You should have received a copy of the GNU General Public License ;;; along with this program; if not, write to the Free Software ;;; Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA ;;; ---------------------------------------------------------------------- (use-modules (unit-test) (apicheck) (ice-9 pretty-print) (oop goops)) (define-class ()) (define *modules* (call-with-input-string (getenv "WRAPSET_MODULES") read)) (define *api-file* (getenv "WRAPSET_API_FILE")) (define-method (test-wrapset-api (self )) (apicheck-validate (call-with-input-file *api-file* read) *modules*)) (define (main args) (exit-with-summary (run-all-defined-test-cases))) (define (update-api args) (with-output-to-file *api-file* (lambda () (pretty-print (apicheck-generate *modules*))))) guile-gnome-platform-2.16.2/glib/test-suite/exceptions.scm0000644000175000017500000000267711670374302024113 0ustar00wingowingo00000000000000;; guile-gnome ;; Copyright (C) 2003,2004 Andreas Rottmann ;; This program is free software; you can redistribute it and/or ;; modify it under the terms of the GNU General Public License as ;; published by the Free Software Foundation; either version 2 of ;; the License, or (at your option) any later version. ;; ;; This program is distributed in the hope that it will be useful, ;; but WITHOUT ANY WARRANTY; without even the implied warranty of ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the ;; GNU General Public License for more details. ;; ;; You should have received a copy of the GNU General Public License ;; along with this program; if not, contact: ;; ;; Free Software Foundation Voice: +1-617-542-5942 ;; 59 Temple Place - Suite 330 Fax: +1-617-542-2652 ;; Boston, MA 02111-1307, USA gnu@gnu.org (define-module (test-suite exceptions) #:export (exception:value-arg-missing exception:wrong-number-of-args)) (defmacro deferr (name-frag error re) (let ((name (symbol-append 'exception: name-frag))) `(define ,name (cons ,error ,re)))) (deferr value-arg-missing 'gruntime-error "^Missing #:value argument") (deferr wrong-number-of-args 'gruntime-error "^Wrong number of arguments") guile-gnome-platform-2.16.2/glib/test-suite/gobject.test0000644000175000017500000002243011670374302023531 0ustar00wingowingo00000000000000#!/bin/sh exec ${srcdir:-.}/guile-test-env guile -s "$0" "$@" !# ;; guile-gnome ;; Copyright (C) 2001 Martin Baulig ;; 2003,2004 Andreas Rottmann ;; This program is free software; you can redistribute it and/or ;; modify it under the terms of the GNU General Public License as ;; published by the Free Software Foundation; either version 2 of ;; the License, or (at your option) any later version. ;; ;; This program is distributed in the hope that it will be useful, ;; but WITHOUT ANY WARRANTY; without even the implied warranty of ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the ;; GNU General Public License for more details. ;; ;; You should have received a copy of the GNU General Public License ;; along with this program; if not, contact: ;; ;; Free Software Foundation Voice: +1-617-542-5942 ;; 59 Temple Place - Suite 330 Fax: +1-617-542-2652 ;; Boston, MA 02111-1307, USA gnu@gnu.org (define-module (test-suite test-gobject) #:use-module (oop goops) #:use-module (gnome gobject) #:use-module (gnome gobject gtype) #:use-module (test-suite lib) #:use-module (test-suite exceptions)) (with-test-prefix "basic values" (define (test class value) (equal? (gvalue->scm (make class #:value value)) value)) (define exception:value-out-of-range (cons 'out-of-range "^Value .*out of range")) (pass-if-exception "#:value arg missing" exception:value-arg-missing (make )) (pass-if "creating gchar" (test #\space)) (pass-if "creating guchar" (test #\space)) (pass-if "creating gboolean #f" (test #f)) (pass-if "creating gboolean #t" (test #t)) (pass-if "creating gint" (test 511)) (pass-if "creating guint" (test 511)) (pass-if-exception "creating guint" exception:value-out-of-range (make #:value -1)) (pass-if "creating glong" (test 511)) (pass-if "creating gulong" (test 511)) (pass-if-exception "creating gulong" exception:value-out-of-range (make #:value -1)) (pass-if "creating gfloat" (test 4.5)) (pass-if "creating gdouble" (test 4.1234)) (pass-if "creating gchararray" (test "This is a test")) (pass-if "creating empty gchararray" (test #f)) (pass-if "creating gvalue array" (test '(1 2 3))) ) (with-test-prefix "creating genum and gflags types" (pass-if "creating genum type" (let ((class (make-class (list ) '() #:name ' #:vtable #((a "Foo" 1) (b "Hello" 2))))) (eq? class (gtype-name->class "EnumTest")))) (pass-if "creating gflags type" (let ((class (make-class (list ) '() #:name ' #:vtable #((c "AAAA" 4) (d "BBBB" 8))))) (eq? class (gtype-name->class "FlagsTest")))) ) (define (gvalue? x) (is-a? x )) (with-test-prefix "genum values" (define enum-class (gtype-name->class "EnumTest")) (pass-if "getting enum type class" (is-a? enum-class )) (pass-if "creating enum by nick" (gvalue? (make enum-class #:value 'a))) (pass-if "creating enum by name" (gvalue? (make enum-class #:value "Foo"))) (pass-if "creating enum by value" (gvalue? (make enum-class #:value 1))) (pass-if "gvalue->scm on an enum is a " (gvalue? (gvalue->scm (make enum-class #:value 'a)))) (pass-if "getting enum nick" (eq? (genum->symbol (make enum-class #:value 'a)) 'a)) (pass-if "getting enum name" (equal? (genum->name (make enum-class #:value 'a)) "Foo")) (pass-if "getting enum value" (equal? (genum->value (make enum-class #:value 'a)) 1)) ) (with-test-prefix "gflags values" (define flags-class (gtype-name->class "FlagsTest")) (pass-if "getting flags type class" (is-a? flags-class )) (pass-if "creating flags by nick" (gvalue? (make flags-class #:value '(c d)))) (pass-if "creating flags by name" (gvalue? (make flags-class #:value '("AAAA" "BBBB")))) (pass-if "creating flags by value" (gvalue? (make flags-class #:value '(4 8)))) (pass-if "creating flags by or'd value" (gvalue? (make flags-class #:value 12))) (pass-if "creating flags by mixed list" (gvalue? (make flags-class #:value '(c "BBBB")))) (pass-if "creating flags by single symbol" (gvalue? (make flags-class #:value 'c))) (pass-if "gvalue->scm on a flags is a " (gvalue? (gvalue->scm (make flags-class #:value '(4 8))))) (pass-if "getting flags as one int value" (equal? (gflags->value (make flags-class #:value '(4 8))) 12)) (pass-if "getting flags nicks" (equal? (gflags->symbol-list (make flags-class #:value '(4 8))) '(c d))) (pass-if "getting flags names" (equal? (gflags->name-list (make flags-class #:value '(4 8))) '("AAAA" "BBBB"))) (pass-if "getting flags values" (equal? (gflags->value-list (make flags-class #:value '(4 8))) '(4 8))) ) (with-test-prefix "creating gclosure" (define func-without-args (lambda () "Hello World")) (define my-closure? (lambda (x) (is-a? x ))) (define long-arg (list->vector (list (make #:value 82)))) (pass-if "creating gclosure" (my-closure? (make #:func func-without-args))) (pass-if "creating gclosure with return type" (my-closure? (make #:func func-without-args #:return-type ))) (pass-if "creating gclosure with arg" (my-closure? (make #:func func-without-args #:return-type #:param-types (list )))) ) (with-test-prefix "invoking gclosure" (define long-arg (make #:value 82)) (define closure-without-args (make #:func (lambda () "Hello World"))) (define closure-with-retval (make #:func (lambda () "Hello World") #:return-type )) (define closure-with-boxed-retval (make #:func (lambda () (make #:func (lambda () #t))) #:return-type )) (pass-if "invoking gclosure" (unspecified? (gclosure-invoke closure-without-args #f))) ;; crosses a with/without barrier, not possible to get an exception... ;;(pass-if-exception "invoking gclosure with incorrect arguments" ;; exception:wrong-number-of-args ;; (gclosure-invoke closure-without-args #f long-arg)) (pass-if "invoking gclosure with retval" (string? (gclosure-invoke closure-with-retval ))) (pass-if "invoking gclosure checking retval" (equal? (gclosure-invoke closure-with-retval ) "Hello World")) (pass-if "invoking gclosure with boxed retval" (gvalue? (gclosure-invoke closure-with-boxed-retval ))) ) (define-class () (int #:gparam `(, #:minimum 2 #:maximum 100 #:default-value 3 #:flags (read write construct))) (float #:gparam `(, #:minimum 2.0 #:maximum 100.0 #:default-value 3.0 #:flags (read write construct))) scm) (define-method (gobject:set-property (object ) key val) (next-method) (case key ((int) (slot-set! object 'scm val)) ((float) #t) ; pass (else (error "unknown property" key)))) (with-test-prefix "defining custom gobject type" (pass-if "construction succeeds" (is-a? (make ) )) (pass-if "construct arg set correctly" (let ((o (make ))) (= (gobject-get-property o 'int) 3))) (pass-if "construct arg overridable" (let ((o (make #:int 4))) (= (gobject-get-property o 'int) 4))) (pass-if "arg settable" (let ((o (make ))) (gobject-set-property o 'int 10) (= (gobject-get-property o 'int) 10))) (pass-if "the same object is seen in construct gobject:set-property and afterwards" (let ((o (make ))) (= (slot-ref o 'scm) 3))) (pass-if "notify works, with the detail argument" (let* ((o (make )) (got-notify 0) (notify (lambda (obj pspec) (set! got-notify (1+ got-notify)))) (id (gtype-instance-signal-connect o 'notify notify #t 'int))) (gobject-set-property o 'int 40) (gobject-set-property o 'float 42) (= got-notify 1)))) ;; Local Variables: ;; mode: scheme ;; End: guile-gnome-platform-2.16.2/glib/test-suite/Makefile.am0000644000175000017500000000524211671225671023256 0ustar00wingowingo00000000000000include $(top_srcdir)/common.mk noinst_LTLIBRARIES = libgw-guile-test-gobject.la libgw-guile-test-glib.la std_cflags = $(GUILE_GLIB_CFLAGS) $(GOBJECT_CFLAGS) $(G_WRAP_CFLAGS) libgw_guile_test_gobject_la_SOURCES = test-gobject.c nodist_libgw_guile_test_gobject_la_SOURCES = gw-test-gobject.c libgw_guile_test_gobject_la_CFLAGS = $(std_cflags) libgw_guile_test_gobject_la_LDFLAGS = -module -rpath $(libdir) libgw_guile_test_gobject_la_LIBADD = \ $(GUILE_GLIB_LIBS) $(G_WRAP_LIBS) $(GUILE_LIBS) libgw_guile_test_glib_la_SOURCES = test-glib.c nodist_libgw_guile_test_glib_la_SOURCES = gw-test-glib.c libgw_guile_test_glib_la_CFLAGS = $(std_cflags) libgw_guile_test_glib_la_LDFLAGS = -module -rpath $(libdir) libgw_guile_test_glib_la_LIBADD = \ $(GUILE_GLIB_LIBS) $(G_WRAP_LIBS) $(GUILE_LIBS) noinst_HEADERS = test-gobject.h test-glib.h SCM_TESTS = gobject.test gw-gobject.test EXTRA_DIST = lib.scm exceptions.scm gw-test-gobject-spec.scm \ gw-test-glib-spec.scm test-gobject.defs test-glib.defs \ guile-test-env guile-gobject-test $(SCM_TESTS) CLEANFILES = $(wildcard gnome-*.log test-*.log) \ $(wildcard gw-test-gobject.* gw-test-glib.*) \ guile-gobject.log wrapset_stem = glib top_module_name = (gnome $(wrapset_stem)) gw_module_name = (gnome gw $(wrapset_stem)) extra_module_names = wrapset_modules = ($(top_module_name) $(gw_module_name) $(extra_module_names)) TESTS_ENVIRONMENT=\ API_FILE=$(srcdir)/gobject.api \ DOC_SCM=$(srcdir)/../doc/gobject/guile-gnome-gobject.scm \ WRAPSET_MODULES="$(wrapset_modules)" \ WRAPSET_API_FILE=$(srcdir)/wrapset.api \ LTDL_LIBRARY_PATH=.:${LTDL_LIBRARY_PATH} \ GUILE_LOAD_PATH=".:${srcdir:-.}/..:..:${GUILE_LOAD_PATH}" \ $(top_builddir)/dev-environ guile --debug -e main -s script := '(load (getenv "DOC_SCM"))\ (for-each \ (lambda (mod) \ (display " \"") (write (car mod)) (display "\" ")) \ *modules*)' gobject.api.update: $(top_builddir)/dev-environ guile --debug -e update-api -s $(srcdir)/api.scm \ $(shell DOC_SCM=$(srcdir)/../doc/gobject/guile-gnome-gobject.scm \ guile -c $(script)) > $(srcdir)/gobject.api wrapset.api.update: WRAPSET_MODULES="$(wrapset_modules)" \ WRAPSET_API_FILE=$(srcdir)/wrapset.api \ $(top_builddir)/dev-environ guile --debug -e update-api -s $(srcdir)/wrapset.scm %.check: % $(TESTS_ENVIRONMENT) $(srcdir)/$* EXTRA_DIST+=gobject.api api.scm wrapset.api wrapset.scm TESTS = guile-gobject-test \ api.scm \ wrapset.scm gw-test-%.scm gw-test-%.c: gw-test-%-spec.scm echo GLP=$(GUILE_LOAD_PATH) guile $(GUILE_FLAGS) -c \ "(use-modules (g-wrap)) \ (use-modules (g-wrap guile)) \ (use-modules (gw-test-$*-spec)) \ (generate-wrapset 'guile 'test-$* \"gw-test-$*\")" guile-gnome-platform-2.16.2/glib/test-suite/gobject.api0000644000175000017500000002016611671225671023334 0ustar00wingowingo00000000000000(module-api (version 1 0) ((gnome gobject gclosure) (uses-interfaces) (typed-exports ( class) (gclosure-invoke procedure (arity 2 0 #t)))) ((gnome gobject generics) (uses-interfaces) (typed-exports (block generic ( )) (connect generic ( )) (connect-after generic ( )) (connected? generic ( )) (create-signal generic ( )) (disconnect generic ( )) (emit generic ( . )) (find-property generic ( )) (get generic ( )) (get-properties generic ()) (get-property-names generic ()) (get-signals generic ()) (invoke generic ( . )) (set generic ( )) (unblock generic ( )))) ((gnome gobject gobject) (uses-interfaces) (typed-exports ( class) ( class) ( class) (gobject-class-find-property procedure (arity 2 0 #f)) (gobject-class-get-properties procedure (arity 1 0 #f)) (gobject-class-get-property-names procedure (arity 1 0 #f)) (gobject-get-property procedure (arity 2 0 #f)) (gobject-set-property procedure (arity 3 0 #f)) (gobject:get-property generic ( )) (gobject:set-property generic ( )) (gtype-register-static procedure (arity 2 0 #f)))) ((gnome gobject gparameter) (uses-interfaces) (typed-exports ( class) ( class) ( class) ( class) ( class) ( class) ( class) ( class) ( class) ( class) ( class) ( class) ( class) ( class) ( class) ( class) ( class) ( class) ( class) (gparameter:byte-order ) (gparameter:double-max ) (gparameter:double-min ) (gparameter:float-max ) (gparameter:float-min ) (gparameter:int-max ) (gparameter:int-min ) (gparameter:int64-max ) (gparameter:int64-min ) (gparameter:long-max ) (gparameter:long-min ) (gparameter:uint-max ) (gparameter:uint64-max ) (gparameter:ulong-max ))) ((gnome gobject gsignal) (uses-interfaces) (typed-exports ( class) (gsignal-handler-block procedure (arity 2 0 #f)) (gsignal-handler-connected? procedure (arity 2 0 #f)) (gsignal-handler-disconnect procedure (arity 2 0 #f)) (gsignal-handler-unblock procedure (arity 2 0 #f)) (gtype-class-create-signal procedure (arity 4 0 #f)) (gtype-class-get-signal-names procedure (arity 1 0 #f)) (gtype-class-get-signals procedure (arity 1 1 #f)) (gtype-instance-signal-connect procedure (arity 3 2 #f)) (gtype-instance-signal-connect-after procedure (arity 3 0 #f)) (gtype-instance-signal-emit procedure (arity 2 0 #t)))) ((gnome gobject gtype) (uses-interfaces) (typed-exports ( class) ( class) (class-name->gtype-name procedure (arity 1 0 #f)) (gruntime-error procedure (arity 1 0 #t)) (gtype-instance-destroy! procedure (arity 1 0 #f)) (gtype-name->class procedure (arity 1 0 #f)))) ((gnome gobject gvalue) (uses-interfaces) (typed-exports ( class) ( class) ( class) ( class) ( class) ( class) ( class) ( class) ( class) ( class) ( class) ( class) ( class) ( class) ( class) ( class) ( class) ( class) ( class) (genum->name procedure (arity 1 0 #f)) (genum->symbol procedure (arity 1 0 #f)) (genum->value procedure (arity 1 0 #f)) (genum-class->value-table procedure (arity 1 0 #f)) (genum-register-static procedure (arity 2 0 #f)) (gflags->name-list procedure (arity 1 0 #f)) (gflags->symbol-list procedure (arity 1 0 #f)) (gflags->value procedure (arity 1 0 #f)) (gflags->value-list procedure (arity 1 0 #f)) (gflags-class->value-table procedure (arity 1 0 #f)) (gflags-register-static procedure (arity 2 0 #f)) (gvalue->scm procedure (arity 1 0 #f)) (scm->gvalue procedure (arity 2 0 #f)))) ((gnome gobject utils) (uses-interfaces) (typed-exports (GStudlyCapsExpand procedure (arity 1 0 #f)) (define-class-with-docs macro) (define-generic-with-docs macro) (define-macro-with-docs macro) (define-with-docs macro) (gtype-class-name->method-name procedure (arity 2 0 #f)) (gtype-name->class-name procedure (arity 1 0 #f)) (gtype-name->scheme-name procedure (arity 1 0 #f)) (gtype-name->scheme-name-alist ) (re-export-modules macro) (unless macro) (with-accessors macro))) ((gnome gw generics) (uses-interfaces (gnome gobject generics)) (typed-exports)) ((gnome gw support defs) (uses-interfaces) (typed-exports (load-defs procedure (arity 2 1 #f)) (load-defs-with-overrides procedure (arity 2 0 #f)))) ((gnome gw support gobject) (uses-interfaces) (typed-exports ( class) ( class) ( class) ( class) (add-type-alias! generic ( )) (add-type-rule! generic ( )) (find-type-rule generic ( )) (gtype-id generic () () () () () () () () () () ()) (lookup-type-by-alias generic ( )) (unwrap-null-checked generic ( )) (wrap-boxed! generic ( . )) (wrap-custom-boxed! macro) (wrap-custom-gvalue! macro) (wrap-flags! generic ( . )) (wrap-freeable-pointer! procedure (arity 3 0 #f)) (wrap-gobject-class! generic ( . )) (wrap-instance! generic ( . )) (wrap-interface! generic ( . )) (wrap-opaque-pointer! procedure (arity 2 0 #f)) (wrap-pointer! generic ( . )) (wrap-refcounted-pointer! procedure (arity 4 0 #f)) (wrap-structure! procedure (arity 4 0 #f)))) ((gnome gw support gtk-doc) (uses-interfaces) (typed-exports (check-documentation-coverage procedure (arity 2 0 #f)) (generate-undocumented-texi procedure (arity 2 0 #f)) (gtk-doc->texi-defuns procedure (arity 3 0 #t)) (gtk-doc->texi-stubs procedure (arity 1 0 #f)))) ((gnome gw support modules) (uses-interfaces) (typed-exports (export-all-lazy! procedure (arity 1 0 #f)) (re-export-modules macro)))) guile-gnome-platform-2.16.2/glib/test-suite/Makefile.in0000644000175000017500000007607611752520661023301 0ustar00wingowingo00000000000000# Makefile.in generated by automake 1.11.5 from Makefile.am. # @configure_input@ # Copyright (C) 1994, 1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, # 2003, 2004, 2005, 2006, 2007, 2008, 2009, 2010, 2011 Free Software # Foundation, Inc. # This Makefile.in is free software; the Free Software Foundation # gives unlimited permission to copy and/or distribute it, # with or without modifications, as long as this notice is preserved. # This program is distributed in the hope that it will be useful, # but WITHOUT ANY WARRANTY, to the extent permitted by law; without # even the implied warranty of MERCHANTABILITY or FITNESS FOR A # PARTICULAR PURPOSE. @SET_MAKE@ # guile-gnome # Copyright (C) 2003,2004,2009,2012 Free Software Foundation, Inc. # This program is free software; you can redistribute it and/or # modify it under the terms of the GNU General Public License as # published by the Free Software Foundation; either version 2 of # the License, or (at your option) any later version. # This program is distributed in the hope that it will be useful, # but WITHOUT ANY WARRANTY; without even the implied warranty of # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the # GNU General Public License for more details. # You should have received a copy of the GNU General Public License # along with this program; if not, contact: # Free Software Foundation Voice: +1-617-542-5942 # 59 Temple Place - Suite 330 Fax: +1-617-542-2652 # Boston, MA 02111-1307, USA gnu@gnu.org # # Makefile snippet # VPATH = @srcdir@ am__make_dryrun = \ { \ am__dry=no; \ case $$MAKEFLAGS in \ *\\[\ \ ]*) \ echo 'am--echo: ; @echo "AM" OK' | $(MAKE) -f - 2>/dev/null \ | grep '^AM OK$$' >/dev/null || am__dry=yes;; \ *) \ for am__flg in $$MAKEFLAGS; do \ case $$am__flg in \ *=*|--*) ;; \ *n*) am__dry=yes; break;; \ esac; \ done;; \ esac; \ test $$am__dry = yes; \ } pkgdatadir = $(datadir)/@PACKAGE@ pkgincludedir = $(includedir)/@PACKAGE@ pkglibdir = $(libdir)/@PACKAGE@ pkglibexecdir = $(libexecdir)/@PACKAGE@ am__cd = CDPATH="$${ZSH_VERSION+.}$(PATH_SEPARATOR)" && cd install_sh_DATA = $(install_sh) -c -m 644 install_sh_PROGRAM = $(install_sh) -c install_sh_SCRIPT = $(install_sh) -c INSTALL_HEADER = $(INSTALL_DATA) transform = $(program_transform_name) NORMAL_INSTALL = : PRE_INSTALL = : POST_INSTALL = : NORMAL_UNINSTALL = : PRE_UNINSTALL = : POST_UNINSTALL = : build_triplet = @build@ host_triplet = @host@ DIST_COMMON = $(noinst_HEADERS) $(srcdir)/Makefile.am \ $(srcdir)/Makefile.in $(top_srcdir)/common.mk subdir = glib/test-suite ACLOCAL_M4 = $(top_srcdir)/aclocal.m4 am__aclocal_m4_deps = $(top_srcdir)/configure.ac am__configure_deps = $(am__aclocal_m4_deps) $(CONFIGURE_DEPENDENCIES) \ $(ACLOCAL_M4) mkinstalldirs = $(install_sh) -d CONFIG_HEADER = $(top_builddir)/config.h CONFIG_CLEAN_FILES = CONFIG_CLEAN_VPATH_FILES = LTLIBRARIES = $(noinst_LTLIBRARIES) am__DEPENDENCIES_1 = libgw_guile_test_glib_la_DEPENDENCIES = $(am__DEPENDENCIES_1) \ $(am__DEPENDENCIES_1) $(am__DEPENDENCIES_1) am_libgw_guile_test_glib_la_OBJECTS = \ libgw_guile_test_glib_la-test-glib.lo nodist_libgw_guile_test_glib_la_OBJECTS = \ libgw_guile_test_glib_la-gw-test-glib.lo libgw_guile_test_glib_la_OBJECTS = \ $(am_libgw_guile_test_glib_la_OBJECTS) \ $(nodist_libgw_guile_test_glib_la_OBJECTS) libgw_guile_test_glib_la_LINK = $(LIBTOOL) --tag=CC $(AM_LIBTOOLFLAGS) \ $(LIBTOOLFLAGS) --mode=link $(CCLD) \ $(libgw_guile_test_glib_la_CFLAGS) $(CFLAGS) \ $(libgw_guile_test_glib_la_LDFLAGS) $(LDFLAGS) -o $@ libgw_guile_test_gobject_la_DEPENDENCIES = $(am__DEPENDENCIES_1) \ $(am__DEPENDENCIES_1) $(am__DEPENDENCIES_1) am_libgw_guile_test_gobject_la_OBJECTS = \ libgw_guile_test_gobject_la-test-gobject.lo nodist_libgw_guile_test_gobject_la_OBJECTS = \ libgw_guile_test_gobject_la-gw-test-gobject.lo libgw_guile_test_gobject_la_OBJECTS = \ $(am_libgw_guile_test_gobject_la_OBJECTS) \ $(nodist_libgw_guile_test_gobject_la_OBJECTS) libgw_guile_test_gobject_la_LINK = $(LIBTOOL) --tag=CC \ $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=link $(CCLD) \ $(libgw_guile_test_gobject_la_CFLAGS) $(CFLAGS) \ $(libgw_guile_test_gobject_la_LDFLAGS) $(LDFLAGS) -o $@ DEFAULT_INCLUDES = -I.@am__isrc@ -I$(top_builddir) depcomp = $(SHELL) $(top_srcdir)/build-aux/depcomp am__depfiles_maybe = depfiles am__mv = mv -f COMPILE = $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(AM_CPPFLAGS) \ $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) LTCOMPILE = $(LIBTOOL) --tag=CC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) \ --mode=compile $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) \ $(AM_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) CCLD = $(CC) LINK = $(LIBTOOL) --tag=CC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) \ --mode=link $(CCLD) $(AM_CFLAGS) $(CFLAGS) $(AM_LDFLAGS) \ $(LDFLAGS) -o $@ SOURCES = $(libgw_guile_test_glib_la_SOURCES) \ $(nodist_libgw_guile_test_glib_la_SOURCES) \ $(libgw_guile_test_gobject_la_SOURCES) \ $(nodist_libgw_guile_test_gobject_la_SOURCES) DIST_SOURCES = $(libgw_guile_test_glib_la_SOURCES) \ $(libgw_guile_test_gobject_la_SOURCES) am__can_run_installinfo = \ case $$AM_UPDATE_INFO_DIR in \ n|no|NO) false;; \ *) (install-info --version) >/dev/null 2>&1;; \ esac HEADERS = $(noinst_HEADERS) ETAGS = etags CTAGS = ctags am__tty_colors = \ red=; grn=; lgn=; blu=; std= DISTFILES = $(DIST_COMMON) $(DIST_SOURCES) $(TEXINFOS) $(EXTRA_DIST) ACLOCAL = @ACLOCAL@ AG_PKG_CONFIG_PATH = @AG_PKG_CONFIG_PATH@ AMTAR = @AMTAR@ API_VERSION = @API_VERSION@ AR = @AR@ ATK_CFLAGS = @ATK_CFLAGS@ ATK_LIBS = @ATK_LIBS@ AUTOCONF = @AUTOCONF@ AUTOHEADER = @AUTOHEADER@ AUTOMAKE = @AUTOMAKE@ AWK = @AWK@ BONOBO_IDL_DIR = @BONOBO_IDL_DIR@ CANVAS_CFLAGS = @CANVAS_CFLAGS@ CANVAS_LIBS = @CANVAS_LIBS@ CC = @CC@ CCDEPMODE = @CCDEPMODE@ CFLAGS = @CFLAGS@ CORBA_CFLAGS = @CORBA_CFLAGS@ CORBA_LIBS = @CORBA_LIBS@ CPP = @CPP@ CPPFLAGS = @CPPFLAGS@ CYGPATH_W = @CYGPATH_W@ DEFS = @DEFS@ DEPDIR = @DEPDIR@ DLLTOOL = @DLLTOOL@ DSYMUTIL = @DSYMUTIL@ DUMPBIN = @DUMPBIN@ ECHO_C = @ECHO_C@ ECHO_N = @ECHO_N@ ECHO_T = @ECHO_T@ EGREP = @EGREP@ EXEEXT = @EXEEXT@ FGREP = @FGREP@ GCONF_CFLAGS = @GCONF_CFLAGS@ GCONF_LIBS = @GCONF_LIBS@ GDK_CFLAGS = @GDK_CFLAGS@ GDK_LIBS = @GDK_LIBS@ GDK_PIXBUF_CFLAGS = @GDK_PIXBUF_CFLAGS@ GDK_PIXBUF_LIBS = @GDK_PIXBUF_LIBS@ GLIB_CFLAGS = @GLIB_CFLAGS@ GLIB_LIBS = @GLIB_LIBS@ GNOMEUI_DEPRECATION_FLAGS = @GNOMEUI_DEPRECATION_FLAGS@ GNOME_VFS_CFLAGS = @GNOME_VFS_CFLAGS@ GNOME_VFS_DEPRECATED_CFLAGS = @GNOME_VFS_DEPRECATED_CFLAGS@ GNOME_VFS_LIBS = @GNOME_VFS_LIBS@ GOBJECT_CFLAGS = @GOBJECT_CFLAGS@ GOBJECT_LIBS = @GOBJECT_LIBS@ GREP = @GREP@ GTHREAD_CFLAGS = @GTHREAD_CFLAGS@ GTHREAD_LIBS = @GTHREAD_LIBS@ GTK_CFLAGS = @GTK_CFLAGS@ GTK_DEPRECATED_CFLAGS = @GTK_DEPRECATED_CFLAGS@ GTK_LIBS = @GTK_LIBS@ GUILE_CAIRO_CFLAGS = @GUILE_CAIRO_CFLAGS@ GUILE_CAIRO_LIBS = @GUILE_CAIRO_LIBS@ GUILE_CFLAGS = @GUILE_CFLAGS@ GUILE_EFFECTIVE_VERSION = @GUILE_EFFECTIVE_VERSION@ GUILE_GLIB_CFLAGS = @GUILE_GLIB_CFLAGS@ GUILE_GLIB_LIBS = @GUILE_GLIB_LIBS@ GUILE_LIBS = @GUILE_LIBS@ G_WRAP_CFLAGS = @G_WRAP_CFLAGS@ G_WRAP_LIBS = @G_WRAP_LIBS@ G_WRAP_LIB_DIR = @G_WRAP_LIB_DIR@ G_WRAP_MODULE_DIR = @G_WRAP_MODULE_DIR@ INSTALL = @INSTALL@ INSTALL_DATA = @INSTALL_DATA@ INSTALL_PROGRAM = @INSTALL_PROGRAM@ INSTALL_SCRIPT = @INSTALL_SCRIPT@ INSTALL_STRIP_PROGRAM = @INSTALL_STRIP_PROGRAM@ LD = @LD@ LDFLAGS = @LDFLAGS@ LIBGLADE_CFLAGS = @LIBGLADE_CFLAGS@ LIBGLADE_LIBS = @LIBGLADE_LIBS@ LIBGNOMEUI_CFLAGS = @LIBGNOMEUI_CFLAGS@ LIBGNOMEUI_LIBS = @LIBGNOMEUI_LIBS@ LIBGNOME_CFLAGS = @LIBGNOME_CFLAGS@ LIBGNOME_LIBS = @LIBGNOME_LIBS@ LIBOBJS = @LIBOBJS@ LIBS = @LIBS@ LIBTOOL = @LIBTOOL@ LIPO = @LIPO@ LN_S = @LN_S@ LTLIBOBJS = @LTLIBOBJS@ MAKEINFO = @MAKEINFO@ MANIFEST_TOOL = @MANIFEST_TOOL@ MKDIR_P = @MKDIR_P@ NM = @NM@ NMEDIT = @NMEDIT@ OBJDUMP = @OBJDUMP@ OBJEXT = @OBJEXT@ ORBIT_IDL = @ORBIT_IDL@ OTOOL = @OTOOL@ OTOOL64 = @OTOOL64@ PACKAGE = @PACKAGE@ PACKAGE_BUGREPORT = @PACKAGE_BUGREPORT@ PACKAGE_NAME = @PACKAGE_NAME@ PACKAGE_STRING = @PACKAGE_STRING@ PACKAGE_TARNAME = @PACKAGE_TARNAME@ PACKAGE_URL = @PACKAGE_URL@ PACKAGE_VERSION = @PACKAGE_VERSION@ PANGOCAIRO_CFLAGS = @PANGOCAIRO_CFLAGS@ PANGOCAIRO_LIBS = @PANGOCAIRO_LIBS@ PANGO_CFLAGS = @PANGO_CFLAGS@ PANGO_LIBS = @PANGO_LIBS@ PATH_SEPARATOR = @PATH_SEPARATOR@ PKG_CONFIG = @PKG_CONFIG@ PKG_CONFIG_LIBDIR = @PKG_CONFIG_LIBDIR@ PKG_CONFIG_PATH = @PKG_CONFIG_PATH@ RANLIB = @RANLIB@ SED = @SED@ SET_MAKE = @SET_MAKE@ SHELL = @SHELL@ STRIP = @STRIP@ VERSION = @VERSION@ WARN_CFLAGS = @WARN_CFLAGS@ abs_builddir = @abs_builddir@ abs_srcdir = @abs_srcdir@ abs_top_builddir = @abs_top_builddir@ abs_top_srcdir = @abs_top_srcdir@ ac_ct_AR = @ac_ct_AR@ ac_ct_CC = @ac_ct_CC@ ac_ct_DUMPBIN = @ac_ct_DUMPBIN@ am__include = @am__include@ am__leading_dot = @am__leading_dot@ am__quote = @am__quote@ am__tar = @am__tar@ am__untar = @am__untar@ bindir = @bindir@ build = @build@ build_alias = @build_alias@ build_cpu = @build_cpu@ build_os = @build_os@ build_vendor = @build_vendor@ builddir = @builddir@ datadir = @datadir@ datarootdir = @datarootdir@ docdir = @docdir@ dvidir = @dvidir@ exec_prefix = @exec_prefix@ host = @host@ host_alias = @host_alias@ host_cpu = @host_cpu@ host_os = @host_os@ host_vendor = @host_vendor@ htmldir = @htmldir@ includedir = @includedir@ infodir = @infodir@ install_sh = @install_sh@ libdir = @libdir@ libexecdir = @libexecdir@ localedir = @localedir@ localstatedir = @localstatedir@ mandir = @mandir@ mkdir_p = @mkdir_p@ oldincludedir = @oldincludedir@ pdfdir = @pdfdir@ prefix = @prefix@ program_transform_name = @program_transform_name@ psdir = @psdir@ sbindir = @sbindir@ sharedstatedir = @sharedstatedir@ srcdir = @srcdir@ sysconfdir = @sysconfdir@ target_alias = @target_alias@ top_build_prefix = @top_build_prefix@ top_builddir = @top_builddir@ top_srcdir = @top_srcdir@ guilegnomedir = $(datadir)/guile-gnome-@API_VERSION@ guilemoduledir = $(guilegnomedir)/gnome guilegwmoduledir = $(guilegnomedir)/gnome/gw guilegnomelibdir = $(libdir)/guile-gnome-@API_VERSION@ AM_CFLAGS = -I. -I$(srcdir) $(WARN_CFLAGS) $(DEBUG_CFLAGS) # For overriding from the command line (e.g. --debug) GUILE_FLAGS = SUFFIXES = .x .doc GUILE_SNARF_CFLAGS = $(DEFS) $(AM_CFLAGS) $(GUILE_CFLAGS) $(G_WRAP_CFLAGS) PACKAGES = atk cairo corba defs gconf glib gnome-vfs gtk libglade libgnome libgnomecanvas libgnomeui pango SOURCE_GUILE_PATH = $(shell echo $(addprefix $(top_srcdir)/,$(PACKAGES)) | sed -e 's/ /:/g'):$(srcdir) BUILD_GUILE_PATH = $(if $(filter-out $(top_srcdir),$(top_builddir)),$(shell echo -n $(addprefix $(top_builddir)/,$(PACKAGES)): | sed -e 's/ /:/g'),) GUILE_LOAD_PATH := $(BUILD_GUILE_PATH)$(SOURCE_GUILE_PATH):${G_WRAP_MODULE_DIR}:${GUILE_LOAD_PATH} # Real gnu make foo packages = $(filter-out %-uninstalled,$(patsubst %.pc.in,%,$(notdir $(wildcard $(srcdir)/*.pc.in)))) pcifiles = $(patsubst %,%-@API_VERSION@.pc,$(packages)) pcufiles = $(patsubst %,%-@API_VERSION@-uninstalled.pc,$(packages)) noinst_LTLIBRARIES = libgw-guile-test-gobject.la libgw-guile-test-glib.la std_cflags = $(GUILE_GLIB_CFLAGS) $(GOBJECT_CFLAGS) $(G_WRAP_CFLAGS) libgw_guile_test_gobject_la_SOURCES = test-gobject.c nodist_libgw_guile_test_gobject_la_SOURCES = gw-test-gobject.c libgw_guile_test_gobject_la_CFLAGS = $(std_cflags) libgw_guile_test_gobject_la_LDFLAGS = -module -rpath $(libdir) libgw_guile_test_gobject_la_LIBADD = \ $(GUILE_GLIB_LIBS) $(G_WRAP_LIBS) $(GUILE_LIBS) libgw_guile_test_glib_la_SOURCES = test-glib.c nodist_libgw_guile_test_glib_la_SOURCES = gw-test-glib.c libgw_guile_test_glib_la_CFLAGS = $(std_cflags) libgw_guile_test_glib_la_LDFLAGS = -module -rpath $(libdir) libgw_guile_test_glib_la_LIBADD = \ $(GUILE_GLIB_LIBS) $(G_WRAP_LIBS) $(GUILE_LIBS) noinst_HEADERS = test-gobject.h test-glib.h SCM_TESTS = gobject.test gw-gobject.test EXTRA_DIST = lib.scm exceptions.scm gw-test-gobject-spec.scm \ gw-test-glib-spec.scm test-gobject.defs test-glib.defs \ guile-test-env guile-gobject-test $(SCM_TESTS) gobject.api \ api.scm wrapset.api wrapset.scm CLEANFILES = $(wildcard gnome-*.log test-*.log) \ $(wildcard gw-test-gobject.* gw-test-glib.*) \ guile-gobject.log wrapset_stem = glib top_module_name = (gnome $(wrapset_stem)) gw_module_name = (gnome gw $(wrapset_stem)) extra_module_names = wrapset_modules = ($(top_module_name) $(gw_module_name) $(extra_module_names)) TESTS_ENVIRONMENT = \ API_FILE=$(srcdir)/gobject.api \ DOC_SCM=$(srcdir)/../doc/gobject/guile-gnome-gobject.scm \ WRAPSET_MODULES="$(wrapset_modules)" \ WRAPSET_API_FILE=$(srcdir)/wrapset.api \ LTDL_LIBRARY_PATH=.:${LTDL_LIBRARY_PATH} \ GUILE_LOAD_PATH=".:${srcdir:-.}/..:..:${GUILE_LOAD_PATH}" \ $(top_builddir)/dev-environ guile --debug -e main -s script := '(load (getenv "DOC_SCM"))\ (for-each \ (lambda (mod) \ (display " \"") (write (car mod)) (display "\" ")) \ *modules*)' TESTS = guile-gobject-test \ api.scm \ wrapset.scm all: all-am .SUFFIXES: .SUFFIXES: .x .doc .c .lo .o .obj $(srcdir)/Makefile.in: $(srcdir)/Makefile.am $(top_srcdir)/common.mk $(am__configure_deps) @for dep in $?; do \ case '$(am__configure_deps)' in \ *$$dep*) \ ( cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh ) \ && { if test -f $@; then exit 0; else break; fi; }; \ exit 1;; \ esac; \ done; \ echo ' cd $(top_srcdir) && $(AUTOMAKE) --gnu glib/test-suite/Makefile'; \ $(am__cd) $(top_srcdir) && \ $(AUTOMAKE) --gnu glib/test-suite/Makefile .PRECIOUS: Makefile Makefile: $(srcdir)/Makefile.in $(top_builddir)/config.status @case '$?' in \ *config.status*) \ cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh;; \ *) \ echo ' cd $(top_builddir) && $(SHELL) ./config.status $(subdir)/$@ $(am__depfiles_maybe)'; \ cd $(top_builddir) && $(SHELL) ./config.status $(subdir)/$@ $(am__depfiles_maybe);; \ esac; $(top_srcdir)/common.mk: $(top_builddir)/config.status: $(top_srcdir)/configure $(CONFIG_STATUS_DEPENDENCIES) cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh $(top_srcdir)/configure: $(am__configure_deps) cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh $(ACLOCAL_M4): $(am__aclocal_m4_deps) cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh $(am__aclocal_m4_deps): clean-noinstLTLIBRARIES: -test -z "$(noinst_LTLIBRARIES)" || rm -f $(noinst_LTLIBRARIES) @list='$(noinst_LTLIBRARIES)'; for p in $$list; do \ dir="`echo $$p | sed -e 's|/[^/]*$$||'`"; \ test "$$dir" != "$$p" || dir=.; \ echo "rm -f \"$${dir}/so_locations\""; \ rm -f "$${dir}/so_locations"; \ done libgw-guile-test-glib.la: $(libgw_guile_test_glib_la_OBJECTS) $(libgw_guile_test_glib_la_DEPENDENCIES) $(EXTRA_libgw_guile_test_glib_la_DEPENDENCIES) $(libgw_guile_test_glib_la_LINK) $(libgw_guile_test_glib_la_OBJECTS) $(libgw_guile_test_glib_la_LIBADD) $(LIBS) libgw-guile-test-gobject.la: $(libgw_guile_test_gobject_la_OBJECTS) $(libgw_guile_test_gobject_la_DEPENDENCIES) $(EXTRA_libgw_guile_test_gobject_la_DEPENDENCIES) $(libgw_guile_test_gobject_la_LINK) $(libgw_guile_test_gobject_la_OBJECTS) $(libgw_guile_test_gobject_la_LIBADD) $(LIBS) mostlyclean-compile: -rm -f *.$(OBJEXT) distclean-compile: -rm -f *.tab.c @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/libgw_guile_test_glib_la-gw-test-glib.Plo@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/libgw_guile_test_glib_la-test-glib.Plo@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/libgw_guile_test_gobject_la-gw-test-gobject.Plo@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/libgw_guile_test_gobject_la-test-gobject.Plo@am__quote@ .c.o: @am__fastdepCC_TRUE@ $(COMPILE) -MT $@ -MD -MP -MF $(DEPDIR)/$*.Tpo -c -o $@ $< @am__fastdepCC_TRUE@ $(am__mv) $(DEPDIR)/$*.Tpo $(DEPDIR)/$*.Po @AMDEP_TRUE@@am__fastdepCC_FALSE@ source='$<' object='$@' libtool=no @AMDEPBACKSLASH@ @AMDEP_TRUE@@am__fastdepCC_FALSE@ DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@ @am__fastdepCC_FALSE@ $(COMPILE) -c $< .c.obj: @am__fastdepCC_TRUE@ $(COMPILE) -MT $@ -MD -MP -MF $(DEPDIR)/$*.Tpo -c -o $@ `$(CYGPATH_W) '$<'` @am__fastdepCC_TRUE@ $(am__mv) $(DEPDIR)/$*.Tpo $(DEPDIR)/$*.Po @AMDEP_TRUE@@am__fastdepCC_FALSE@ source='$<' object='$@' libtool=no @AMDEPBACKSLASH@ @AMDEP_TRUE@@am__fastdepCC_FALSE@ DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@ @am__fastdepCC_FALSE@ $(COMPILE) -c `$(CYGPATH_W) '$<'` .c.lo: @am__fastdepCC_TRUE@ $(LTCOMPILE) -MT $@ -MD -MP -MF $(DEPDIR)/$*.Tpo -c -o $@ $< @am__fastdepCC_TRUE@ $(am__mv) $(DEPDIR)/$*.Tpo $(DEPDIR)/$*.Plo @AMDEP_TRUE@@am__fastdepCC_FALSE@ source='$<' object='$@' libtool=yes @AMDEPBACKSLASH@ @AMDEP_TRUE@@am__fastdepCC_FALSE@ DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@ @am__fastdepCC_FALSE@ $(LTCOMPILE) -c -o $@ $< libgw_guile_test_glib_la-test-glib.lo: test-glib.c @am__fastdepCC_TRUE@ $(LIBTOOL) --tag=CC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(AM_CPPFLAGS) $(CPPFLAGS) $(libgw_guile_test_glib_la_CFLAGS) $(CFLAGS) -MT libgw_guile_test_glib_la-test-glib.lo -MD -MP -MF $(DEPDIR)/libgw_guile_test_glib_la-test-glib.Tpo -c -o libgw_guile_test_glib_la-test-glib.lo `test -f 'test-glib.c' || echo '$(srcdir)/'`test-glib.c @am__fastdepCC_TRUE@ $(am__mv) $(DEPDIR)/libgw_guile_test_glib_la-test-glib.Tpo $(DEPDIR)/libgw_guile_test_glib_la-test-glib.Plo @AMDEP_TRUE@@am__fastdepCC_FALSE@ source='test-glib.c' object='libgw_guile_test_glib_la-test-glib.lo' libtool=yes @AMDEPBACKSLASH@ @AMDEP_TRUE@@am__fastdepCC_FALSE@ DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@ @am__fastdepCC_FALSE@ $(LIBTOOL) --tag=CC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(AM_CPPFLAGS) $(CPPFLAGS) $(libgw_guile_test_glib_la_CFLAGS) $(CFLAGS) -c -o libgw_guile_test_glib_la-test-glib.lo `test -f 'test-glib.c' || echo '$(srcdir)/'`test-glib.c libgw_guile_test_glib_la-gw-test-glib.lo: gw-test-glib.c @am__fastdepCC_TRUE@ $(LIBTOOL) --tag=CC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(AM_CPPFLAGS) $(CPPFLAGS) $(libgw_guile_test_glib_la_CFLAGS) $(CFLAGS) -MT libgw_guile_test_glib_la-gw-test-glib.lo -MD -MP -MF $(DEPDIR)/libgw_guile_test_glib_la-gw-test-glib.Tpo -c -o libgw_guile_test_glib_la-gw-test-glib.lo `test -f 'gw-test-glib.c' || echo '$(srcdir)/'`gw-test-glib.c @am__fastdepCC_TRUE@ $(am__mv) $(DEPDIR)/libgw_guile_test_glib_la-gw-test-glib.Tpo $(DEPDIR)/libgw_guile_test_glib_la-gw-test-glib.Plo @AMDEP_TRUE@@am__fastdepCC_FALSE@ source='gw-test-glib.c' object='libgw_guile_test_glib_la-gw-test-glib.lo' libtool=yes @AMDEPBACKSLASH@ @AMDEP_TRUE@@am__fastdepCC_FALSE@ DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@ @am__fastdepCC_FALSE@ $(LIBTOOL) --tag=CC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(AM_CPPFLAGS) $(CPPFLAGS) $(libgw_guile_test_glib_la_CFLAGS) $(CFLAGS) -c -o libgw_guile_test_glib_la-gw-test-glib.lo `test -f 'gw-test-glib.c' || echo '$(srcdir)/'`gw-test-glib.c libgw_guile_test_gobject_la-test-gobject.lo: test-gobject.c @am__fastdepCC_TRUE@ $(LIBTOOL) --tag=CC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(AM_CPPFLAGS) $(CPPFLAGS) $(libgw_guile_test_gobject_la_CFLAGS) $(CFLAGS) -MT libgw_guile_test_gobject_la-test-gobject.lo -MD -MP -MF $(DEPDIR)/libgw_guile_test_gobject_la-test-gobject.Tpo -c -o libgw_guile_test_gobject_la-test-gobject.lo `test -f 'test-gobject.c' || echo '$(srcdir)/'`test-gobject.c @am__fastdepCC_TRUE@ $(am__mv) $(DEPDIR)/libgw_guile_test_gobject_la-test-gobject.Tpo $(DEPDIR)/libgw_guile_test_gobject_la-test-gobject.Plo @AMDEP_TRUE@@am__fastdepCC_FALSE@ source='test-gobject.c' object='libgw_guile_test_gobject_la-test-gobject.lo' libtool=yes @AMDEPBACKSLASH@ @AMDEP_TRUE@@am__fastdepCC_FALSE@ DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@ @am__fastdepCC_FALSE@ $(LIBTOOL) --tag=CC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(AM_CPPFLAGS) $(CPPFLAGS) $(libgw_guile_test_gobject_la_CFLAGS) $(CFLAGS) -c -o libgw_guile_test_gobject_la-test-gobject.lo `test -f 'test-gobject.c' || echo '$(srcdir)/'`test-gobject.c libgw_guile_test_gobject_la-gw-test-gobject.lo: gw-test-gobject.c @am__fastdepCC_TRUE@ $(LIBTOOL) --tag=CC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(AM_CPPFLAGS) $(CPPFLAGS) $(libgw_guile_test_gobject_la_CFLAGS) $(CFLAGS) -MT libgw_guile_test_gobject_la-gw-test-gobject.lo -MD -MP -MF $(DEPDIR)/libgw_guile_test_gobject_la-gw-test-gobject.Tpo -c -o libgw_guile_test_gobject_la-gw-test-gobject.lo `test -f 'gw-test-gobject.c' || echo '$(srcdir)/'`gw-test-gobject.c @am__fastdepCC_TRUE@ $(am__mv) $(DEPDIR)/libgw_guile_test_gobject_la-gw-test-gobject.Tpo $(DEPDIR)/libgw_guile_test_gobject_la-gw-test-gobject.Plo @AMDEP_TRUE@@am__fastdepCC_FALSE@ source='gw-test-gobject.c' object='libgw_guile_test_gobject_la-gw-test-gobject.lo' libtool=yes @AMDEPBACKSLASH@ @AMDEP_TRUE@@am__fastdepCC_FALSE@ DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@ @am__fastdepCC_FALSE@ $(LIBTOOL) --tag=CC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(AM_CPPFLAGS) $(CPPFLAGS) $(libgw_guile_test_gobject_la_CFLAGS) $(CFLAGS) -c -o libgw_guile_test_gobject_la-gw-test-gobject.lo `test -f 'gw-test-gobject.c' || echo '$(srcdir)/'`gw-test-gobject.c mostlyclean-libtool: -rm -f *.lo clean-libtool: -rm -rf .libs _libs ID: $(HEADERS) $(SOURCES) $(LISP) $(TAGS_FILES) list='$(SOURCES) $(HEADERS) $(LISP) $(TAGS_FILES)'; \ unique=`for i in $$list; do \ if test -f "$$i"; then echo $$i; else echo $(srcdir)/$$i; fi; \ done | \ $(AWK) '{ files[$$0] = 1; nonempty = 1; } \ END { if (nonempty) { for (i in files) print i; }; }'`; \ mkid -fID $$unique tags: TAGS TAGS: $(HEADERS) $(SOURCES) $(TAGS_DEPENDENCIES) \ $(TAGS_FILES) $(LISP) set x; \ here=`pwd`; \ list='$(SOURCES) $(HEADERS) $(LISP) $(TAGS_FILES)'; \ unique=`for i in $$list; do \ if test -f "$$i"; then echo $$i; else echo $(srcdir)/$$i; fi; \ done | \ $(AWK) '{ files[$$0] = 1; nonempty = 1; } \ END { if (nonempty) { for (i in files) print i; }; }'`; \ shift; \ if test -z "$(ETAGS_ARGS)$$*$$unique"; then :; else \ test -n "$$unique" || unique=$$empty_fix; \ if test $$# -gt 0; then \ $(ETAGS) $(ETAGSFLAGS) $(AM_ETAGSFLAGS) $(ETAGS_ARGS) \ "$$@" $$unique; \ else \ $(ETAGS) $(ETAGSFLAGS) $(AM_ETAGSFLAGS) $(ETAGS_ARGS) \ $$unique; \ fi; \ fi ctags: CTAGS CTAGS: $(HEADERS) $(SOURCES) $(TAGS_DEPENDENCIES) \ $(TAGS_FILES) $(LISP) list='$(SOURCES) $(HEADERS) $(LISP) $(TAGS_FILES)'; \ unique=`for i in $$list; do \ if test -f "$$i"; then echo $$i; else echo $(srcdir)/$$i; fi; \ done | \ $(AWK) '{ files[$$0] = 1; nonempty = 1; } \ END { if (nonempty) { for (i in files) print i; }; }'`; \ test -z "$(CTAGS_ARGS)$$unique" \ || $(CTAGS) $(CTAGSFLAGS) $(AM_CTAGSFLAGS) $(CTAGS_ARGS) \ $$unique GTAGS: here=`$(am__cd) $(top_builddir) && pwd` \ && $(am__cd) $(top_srcdir) \ && gtags -i $(GTAGS_ARGS) "$$here" distclean-tags: -rm -f TAGS ID GTAGS GRTAGS GSYMS GPATH tags check-TESTS: $(TESTS) @failed=0; all=0; xfail=0; xpass=0; skip=0; \ srcdir=$(srcdir); export srcdir; \ list=' $(TESTS) '; \ $(am__tty_colors); \ if test -n "$$list"; then \ for tst in $$list; do \ if test -f ./$$tst; then dir=./; \ elif test -f $$tst; then dir=; \ else dir="$(srcdir)/"; fi; \ if $(TESTS_ENVIRONMENT) $${dir}$$tst; then \ all=`expr $$all + 1`; \ case " $(XFAIL_TESTS) " in \ *[\ \ ]$$tst[\ \ ]*) \ xpass=`expr $$xpass + 1`; \ failed=`expr $$failed + 1`; \ col=$$red; res=XPASS; \ ;; \ *) \ col=$$grn; res=PASS; \ ;; \ esac; \ elif test $$? -ne 77; then \ all=`expr $$all + 1`; \ case " $(XFAIL_TESTS) " in \ *[\ \ ]$$tst[\ \ ]*) \ xfail=`expr $$xfail + 1`; \ col=$$lgn; res=XFAIL; \ ;; \ *) \ failed=`expr $$failed + 1`; \ col=$$red; res=FAIL; \ ;; \ esac; \ else \ skip=`expr $$skip + 1`; \ col=$$blu; res=SKIP; \ fi; \ echo "$${col}$$res$${std}: $$tst"; \ done; \ if test "$$all" -eq 1; then \ tests="test"; \ All=""; \ else \ tests="tests"; \ All="All "; \ fi; \ if test "$$failed" -eq 0; then \ if test "$$xfail" -eq 0; then \ banner="$$All$$all $$tests passed"; \ else \ if test "$$xfail" -eq 1; then failures=failure; else failures=failures; fi; \ banner="$$All$$all $$tests behaved as expected ($$xfail expected $$failures)"; \ fi; \ else \ if test "$$xpass" -eq 0; then \ banner="$$failed of $$all $$tests failed"; \ else \ if test "$$xpass" -eq 1; then passes=pass; else passes=passes; fi; \ banner="$$failed of $$all $$tests did not behave as expected ($$xpass unexpected $$passes)"; \ fi; \ fi; \ dashes="$$banner"; \ skipped=""; \ if test "$$skip" -ne 0; then \ if test "$$skip" -eq 1; then \ skipped="($$skip test was not run)"; \ else \ skipped="($$skip tests were not run)"; \ fi; \ test `echo "$$skipped" | wc -c` -le `echo "$$banner" | wc -c` || \ dashes="$$skipped"; \ fi; \ report=""; \ if test "$$failed" -ne 0 && test -n "$(PACKAGE_BUGREPORT)"; then \ report="Please report to $(PACKAGE_BUGREPORT)"; \ test `echo "$$report" | wc -c` -le `echo "$$banner" | wc -c` || \ dashes="$$report"; \ fi; \ dashes=`echo "$$dashes" | sed s/./=/g`; \ if test "$$failed" -eq 0; then \ col="$$grn"; \ else \ col="$$red"; \ fi; \ echo "$${col}$$dashes$${std}"; \ echo "$${col}$$banner$${std}"; \ test -z "$$skipped" || echo "$${col}$$skipped$${std}"; \ test -z "$$report" || echo "$${col}$$report$${std}"; \ echo "$${col}$$dashes$${std}"; \ test "$$failed" -eq 0; \ else :; fi distdir: $(DISTFILES) @srcdirstrip=`echo "$(srcdir)" | sed 's/[].[^$$\\*]/\\\\&/g'`; \ topsrcdirstrip=`echo "$(top_srcdir)" | sed 's/[].[^$$\\*]/\\\\&/g'`; \ list='$(DISTFILES)'; \ dist_files=`for file in $$list; do echo $$file; done | \ sed -e "s|^$$srcdirstrip/||;t" \ -e "s|^$$topsrcdirstrip/|$(top_builddir)/|;t"`; \ case $$dist_files in \ */*) $(MKDIR_P) `echo "$$dist_files" | \ sed '/\//!d;s|^|$(distdir)/|;s,/[^/]*$$,,' | \ sort -u` ;; \ esac; \ for file in $$dist_files; do \ if test -f $$file || test -d $$file; then d=.; else d=$(srcdir); fi; \ if test -d $$d/$$file; then \ dir=`echo "/$$file" | sed -e 's,/[^/]*$$,,'`; \ if test -d "$(distdir)/$$file"; then \ find "$(distdir)/$$file" -type d ! -perm -700 -exec chmod u+rwx {} \;; \ fi; \ if test -d $(srcdir)/$$file && test $$d != $(srcdir); then \ cp -fpR $(srcdir)/$$file "$(distdir)$$dir" || exit 1; \ find "$(distdir)/$$file" -type d ! -perm -700 -exec chmod u+rwx {} \;; \ fi; \ cp -fpR $$d/$$file "$(distdir)$$dir" || exit 1; \ else \ test -f "$(distdir)/$$file" \ || cp -p $$d/$$file "$(distdir)/$$file" \ || exit 1; \ fi; \ done check-am: all-am $(MAKE) $(AM_MAKEFLAGS) check-TESTS check: check-am all-am: Makefile $(LTLIBRARIES) $(HEADERS) installdirs: install: install-am install-exec: install-exec-am install-data: install-data-am uninstall: uninstall-am install-am: all-am @$(MAKE) $(AM_MAKEFLAGS) install-exec-am install-data-am installcheck: installcheck-am install-strip: if test -z '$(STRIP)'; then \ $(MAKE) $(AM_MAKEFLAGS) INSTALL_PROGRAM="$(INSTALL_STRIP_PROGRAM)" \ install_sh_PROGRAM="$(INSTALL_STRIP_PROGRAM)" INSTALL_STRIP_FLAG=-s \ install; \ else \ $(MAKE) $(AM_MAKEFLAGS) INSTALL_PROGRAM="$(INSTALL_STRIP_PROGRAM)" \ install_sh_PROGRAM="$(INSTALL_STRIP_PROGRAM)" INSTALL_STRIP_FLAG=-s \ "INSTALL_PROGRAM_ENV=STRIPPROG='$(STRIP)'" install; \ fi mostlyclean-generic: clean-generic: -test -z "$(CLEANFILES)" || rm -f $(CLEANFILES) distclean-generic: -test -z "$(CONFIG_CLEAN_FILES)" || rm -f $(CONFIG_CLEAN_FILES) -test . = "$(srcdir)" || test -z "$(CONFIG_CLEAN_VPATH_FILES)" || rm -f $(CONFIG_CLEAN_VPATH_FILES) maintainer-clean-generic: @echo "This command is intended for maintainers to use" @echo "it deletes files that may require special tools to rebuild." clean: clean-am clean-am: clean-generic clean-libtool clean-noinstLTLIBRARIES \ mostlyclean-am distclean: distclean-am -rm -rf ./$(DEPDIR) -rm -f Makefile distclean-am: clean-am distclean-compile distclean-generic \ distclean-tags dvi: dvi-am dvi-am: html: html-am html-am: info: info-am info-am: install-data-am: install-dvi: install-dvi-am install-dvi-am: install-exec-am: install-html: install-html-am install-html-am: install-info: install-info-am install-info-am: install-man: install-pdf: install-pdf-am install-pdf-am: install-ps: install-ps-am install-ps-am: installcheck-am: maintainer-clean: maintainer-clean-am -rm -rf ./$(DEPDIR) -rm -f Makefile maintainer-clean-am: distclean-am maintainer-clean-generic mostlyclean: mostlyclean-am mostlyclean-am: mostlyclean-compile mostlyclean-generic \ mostlyclean-libtool pdf: pdf-am pdf-am: ps: ps-am ps-am: uninstall-am: .MAKE: check-am install-am install-strip .PHONY: CTAGS GTAGS all all-am check check-TESTS check-am clean \ clean-generic clean-libtool clean-noinstLTLIBRARIES ctags \ distclean distclean-compile distclean-generic \ distclean-libtool distclean-tags distdir dvi dvi-am html \ html-am info info-am install install-am install-data \ install-data-am install-dvi install-dvi-am install-exec \ install-exec-am install-html install-html-am install-info \ install-info-am install-man install-pdf install-pdf-am \ install-ps install-ps-am install-strip installcheck \ installcheck-am installdirs maintainer-clean \ maintainer-clean-generic mostlyclean mostlyclean-compile \ mostlyclean-generic mostlyclean-libtool pdf pdf-am ps ps-am \ tags uninstall uninstall-am export GUILE_LOAD_PATH .c.x: guile-snarf $(GUILE_SNARF_CFLAGS) $< > $@ \ || { rm $@; false; } .c.doc: $(CPP) -DSCM_MAGIC_SNARF_DOCS $(GUILE_SNARF_CFLAGS) $< \ | grep -E '(\^\^ {|\^\^ })' > $@ || { rm $@; false; } %.scm guile-gnome-gw-%.c: %-spec.scm guile $(GUILE_FLAGS) -c \ "(debug-set! stack 400000) \ (use-modules (gnome-@API_VERSION@)) \ (use-modules (g-wrap)) \ (use-modules (gnome gw $*-spec)) \ (generate-wrapset 'guile 'gnome-$* \"guile-gnome-gw-$*\")" mv guile-gnome-gw-$*.scm $*.scm %-@API_VERSION@.pc: %.pc cp $< $@ %-@API_VERSION@-uninstalled.pc: %-uninstalled.pc cp $< $@ gobject.api.update: $(top_builddir)/dev-environ guile --debug -e update-api -s $(srcdir)/api.scm \ $(shell DOC_SCM=$(srcdir)/../doc/gobject/guile-gnome-gobject.scm \ guile -c $(script)) > $(srcdir)/gobject.api wrapset.api.update: WRAPSET_MODULES="$(wrapset_modules)" \ WRAPSET_API_FILE=$(srcdir)/wrapset.api \ $(top_builddir)/dev-environ guile --debug -e update-api -s $(srcdir)/wrapset.scm %.check: % $(TESTS_ENVIRONMENT) $(srcdir)/$* gw-test-%.scm gw-test-%.c: gw-test-%-spec.scm echo GLP=$(GUILE_LOAD_PATH) guile $(GUILE_FLAGS) -c \ "(use-modules (g-wrap)) \ (use-modules (g-wrap guile)) \ (use-modules (gw-test-$*-spec)) \ (generate-wrapset 'guile 'test-$* \"gw-test-$*\")" # Tell versions [3.59,3.63) of GNU make to not export all variables. # Otherwise a system limit (for SysV at least) may be exceeded. .NOEXPORT: guile-gnome-platform-2.16.2/glib/test-suite/gw-gobject.test0000755000175000017500000000427411670374302024155 0ustar00wingowingo00000000000000#!/bin/sh exec ${srcdir:-.}/guile-test-env guile -s "$0" "$@" !# ;; guile-gnome ;; Copyright (C) 2003,2004 Andreas Rottmann ;; This program is free software; you can redistribute it and/or ;; modify it under the terms of the GNU General Public License as ;; published by the Free Software Foundation; either version 2 of ;; the License, or (at your option) any later version. ;; ;; This program is distributed in the hope that it will be useful, ;; but WITHOUT ANY WARRANTY; without even the implied warranty of ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the ;; GNU General Public License for more details. ;; ;; You should have received a copy of the GNU General Public License ;; along with this program; if not, contact: ;; ;; Free Software Foundation Voice: +1-617-542-5942 ;; 59 Temple Place - Suite 330 Fax: +1-617-542-2652 ;; Boston, MA 02111-1307, USA gnu@gnu.org (define-module (test-suite test-gw-gobject) #:use-module (oop goops) #:use-module (gnome gobject) #:use-module (test-suite lib) #:use-module (test-suite gw-test-gobject)) (with-test-prefix "" (pass-if "creating" (is-a? (make ) )) (pass-if "creating with parameters" (let ((obj (make #:arr '(1 2 3)))) (is-a? obj ))) (pass-if "getting the element spec for the value array property" (is-a? (slot-ref (gobject-class-find-property 'arr) 'element-spec) )) (pass-if "calling foo" (= (foo (make ) 65000) 65000)) (pass-if "gvalue conversion" (let ((obj (make ))) (eq? (gvalue->scm (scm->gvalue obj)) obj))) (pass-if "gvalue array conversion" (let* ((obj (make )) (array (make #:value (list obj obj)))) (equal? (gvalue->scm array) (list obj obj)))) ) ;; Local Variables: ;; mode: scheme ;; End: guile-gnome-platform-2.16.2/glib/test-suite/gw-test-glib-spec.scm0000644000175000017500000000324111670374302025153 0ustar00wingowingo00000000000000;; guile-gnome ;; Copyright (C) 2003,2004 Andreas Rottmann ;; This program is free software; you can redistribute it and/or ;; modify it under the terms of the GNU General Public License as ;; published by the Free Software Foundation; either version 2 of ;; the License, or (at your option) any later version. ;; ;; This program is distributed in the hope that it will be useful, ;; but WITHOUT ANY WARRANTY; without even the implied warranty of ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the ;; GNU General Public License for more details. ;; ;; You should have received a copy of the GNU General Public License ;; along with this program; if not, contact: ;; ;; Free Software Foundation Voice: +1-617-542-5942 ;; 59 Temple Place - Suite 330 Fax: +1-617-542-2652 ;; Boston, MA 02111-1307, USA gnu@gnu.org (define-module (gw-test-glib-spec) #:use-module (oop goops) #:use-module (gnome gw support g-wrap) #:use-module (gnome gw support defs) #:use-module (gnome gw support gobject) #:use-module (gnome gw glib-spec)) (define-class () #:id 'test-glib #:dependencies '(standard gnome-glib)) (define-method (global-declarations-cg (ws )) (list (next-method) "#include \"test-glib.h\"\n")) (define-method (initialize (ws ) initargs) (next-method ws (append '(#:module (test-suite gw-test-glib)) initargs)) (load-defs ws "test-suite/test-glib.defs")) guile-gnome-platform-2.16.2/glib/test-suite/wrapset.api0000644000175000017500000003136711670771375023417 0ustar00wingowingo00000000000000(module-api (version 1 0) ((gnome glib) (uses-interfaces (gnome gw glib)) (typed-exports (g-error-code procedure (arity 1 0 #f)) (g-error-domain procedure (arity 1 0 #f)) (g-error-message procedure (arity 1 0 #f)) (g-idle-add procedure (arity 1 0 #f)) (g-main-loop-console-repl procedure (arity 0 0 #f)) (g-source-set-closure procedure (arity 0 0 #t)) (g-timeout-add procedure (arity 2 0 #f)))) ((gnome gobject generics) (uses-interfaces) (typed-exports (block generic ( )) (connect generic ( )) (connect-after generic ( )) (connected? generic ( )) (create-signal generic ( )) (disconnect generic ( )) (emit generic ( . )) (find-property generic ( )) (get generic ( )) (get-properties generic ()) (get-property-names generic ()) (get-signals generic ()) (invoke generic ( . )) (set generic ( )) (unblock generic ( )))) ((gnome gw generics) (uses-interfaces (gnome gobject generics)) (typed-exports)) ((gnome gw glib) (uses-interfaces (gnome gw generics)) (typed-exports ( ) (enum--val->int procedure (arity 1 0 #f)) (enum--val->sym procedure (arity 2 0 #f)) (enum--val->int procedure (arity 1 0 #f)) (enum--val->sym procedure (arity 2 0 #f)) (enum--val->int procedure (arity 1 0 #f)) (enum--val->sym procedure (arity 2 0 #f)) (enum--val->int procedure (arity 1 0 #f)) (enum--val->sym procedure (arity 2 0 #f)) (enum--val->int procedure (arity 1 0 #f)) (enum--val->sym procedure (arity 2 0 #f)) (enum--val->int procedure (arity 1 0 #f)) (enum--val->sym procedure (arity 2 0 #f)) (enum--val->int procedure (arity 1 0 #f)) (enum--val->sym procedure (arity 2 0 #f)) (enum--val->int procedure (arity 1 0 #f)) (enum--val->sym procedure (arity 2 0 #f)) (enum--val->int procedure (arity 1 0 #f)) (enum--val->sym procedure (arity 2 0 #f)) (enum--val->int procedure (arity 1 0 #f)) (enum--val->sym procedure (arity 2 0 #f)) (enum--val->int procedure (arity 1 0 #f)) (enum--val->sym procedure (arity 2 0 #f)) (enum--val->int procedure (arity 1 0 #f)) (enum--val->sym procedure (arity 2 0 #f)) (g-bookmark-file-add-application procedure (arity 0 0 #t)) (g-bookmark-file-add-group procedure (arity 0 0 #t)) (g-bookmark-file-error-quark procedure (arity 0 0 #t)) (g-bookmark-file-get-added procedure (arity 2 0 #f)) (g-bookmark-file-get-app-info procedure (arity 3 0 #f)) (g-bookmark-file-get-applications procedure (arity 2 0 #f)) (g-bookmark-file-get-description procedure (arity 2 0 #f)) (g-bookmark-file-get-groups procedure (arity 2 0 #f)) (g-bookmark-file-get-icon procedure (arity 2 0 #f)) (g-bookmark-file-get-is-private procedure (arity 2 0 #f)) (g-bookmark-file-get-mime-type procedure (arity 2 0 #f)) (g-bookmark-file-get-modified procedure (arity 2 0 #f)) (g-bookmark-file-get-size procedure (arity 0 0 #t)) (g-bookmark-file-get-title procedure (arity 2 0 #f)) (g-bookmark-file-get-uris procedure (arity 0 0 #t)) (g-bookmark-file-get-visited procedure (arity 2 0 #f)) (g-bookmark-file-has-application procedure (arity 3 0 #f)) (g-bookmark-file-has-group procedure (arity 3 0 #f)) (g-bookmark-file-has-item procedure (arity 0 0 #t)) (g-bookmark-file-load-from-data procedure (arity 2 0 #f)) (g-bookmark-file-load-from-data-dirs procedure (arity 2 0 #f)) (g-bookmark-file-load-from-file procedure (arity 2 0 #f)) (g-bookmark-file-move-item procedure (arity 3 0 #f)) (g-bookmark-file-new procedure (arity 0 0 #t)) (g-bookmark-file-remove-application procedure (arity 3 0 #f)) (g-bookmark-file-remove-group procedure (arity 3 0 #f)) (g-bookmark-file-remove-item procedure (arity 2 0 #f)) (g-bookmark-file-set-added procedure (arity 0 0 #t)) (g-bookmark-file-set-app-info procedure (arity 6 0 #f)) (g-bookmark-file-set-description procedure (arity 0 0 #t)) (g-bookmark-file-set-icon procedure (arity 0 0 #t)) (g-bookmark-file-set-is-private procedure (arity 0 0 #t)) (g-bookmark-file-set-mime-type procedure (arity 0 0 #t)) (g-bookmark-file-set-modified procedure (arity 0 0 #t)) (g-bookmark-file-set-title procedure (arity 0 0 #t)) (g-bookmark-file-set-visited procedure (arity 0 0 #t)) (g-bookmark-file-to-data procedure (arity 1 0 #f)) (g-bookmark-file-to-file procedure (arity 2 0 #f)) (g-child-watch-source-new procedure (arity 0 0 #t)) (g-convert procedure (arity 3 0 #f)) (g-convert-error-quark procedure (arity 0 0 #t)) (g-convert-with-fallback procedure (arity 4 0 #f)) (g-file-error-from-errno procedure (arity 0 0 #t)) (g-file-error-quark procedure (arity 0 0 #t)) (g-filename-display-basename procedure (arity 0 0 #t)) (g-filename-display-name procedure (arity 0 0 #t)) (g-filename-from-uri procedure (arity 1 0 #f)) (g-filename-from-utf8 procedure (arity 2 0 #f)) (g-filename-to-uri procedure (arity 2 0 #f)) (g-filename-to-utf8 procedure (arity 2 0 #f)) (g-get-application-name procedure (arity 0 0 #t)) (g-get-home-dir procedure (arity 0 0 #t)) (g-get-host-name procedure (arity 0 0 #t)) (g-get-prgname procedure (arity 0 0 #t)) (g-get-real-name procedure (arity 0 0 #t)) (g-get-tmp-dir procedure (arity 0 0 #t)) (g-get-user-cache-dir procedure (arity 0 0 #t)) (g-get-user-config-dir procedure (arity 0 0 #t)) (g-get-user-data-dir procedure (arity 0 0 #t)) (g-get-user-name procedure (arity 0 0 #t)) (g-idle-source-new procedure (arity 0 0 #t)) (g-io-add-watch procedure (arity 0 0 #t)) (g-io-channel-close procedure (arity 0 0 #t)) (g-io-channel-error-from-errno procedure (arity 0 0 #t)) (g-io-channel-error-quark procedure (arity 0 0 #t)) (g-io-channel-flush procedure (arity 1 0 #f)) (g-io-channel-get-buffer-condition procedure (arity 0 0 #t)) (g-io-channel-get-buffer-size procedure (arity 0 0 #t)) (g-io-channel-get-buffered procedure (arity 0 0 #t)) (g-io-channel-get-encoding procedure (arity 0 0 #t)) (g-io-channel-get-flags procedure (arity 0 0 #t)) (g-io-channel-get-line-term procedure (arity 1 0 #f)) (g-io-channel-new-file procedure (arity 2 0 #f)) (g-io-channel-read-line procedure (arity 1 0 #f)) (g-io-channel-seek-position procedure (arity 2 1 #f)) (g-io-channel-set-buffer-size procedure (arity 0 0 #t)) (g-io-channel-set-buffered procedure (arity 0 0 #t)) (g-io-channel-set-encoding procedure (arity 2 0 #f)) (g-io-channel-set-flags procedure (arity 2 0 #f)) (g-io-channel-set-line-term procedure (arity 0 0 #t)) (g-io-channel-shutdown procedure (arity 2 0 #f)) (g-io-channel-unix-get-fd procedure (arity 0 0 #t)) (g-io-channel-unix-new procedure (arity 0 0 #t)) (g-io-create-watch procedure (arity 0 0 #t)) (g-locale-from-utf8 procedure (arity 2 0 #f)) (g-locale-to-utf8 procedure (arity 2 0 #f)) (g-main-context-acquire procedure (arity 0 0 #t)) (g-main-context-default procedure (arity 0 0 #t)) (g-main-context-find-source-by-id procedure (arity 0 0 #t)) (g-main-context-is-owner procedure (arity 0 0 #t)) (g-main-context-iteration procedure (arity 1 1 #f)) (g-main-context-new procedure (arity 0 0 #t)) (g-main-context-pending procedure (arity 0 0 #t)) (g-main-context-prepare procedure (arity 1 0 #f)) (g-main-context-release procedure (arity 0 0 #t)) (g-main-context-wakeup procedure (arity 0 0 #t)) (g-main-current-source procedure (arity 0 0 #t)) (g-main-depth procedure (arity 0 0 #t)) (g-main-loop-get-context procedure (arity 0 0 #t)) (g-main-loop-is-running procedure (arity 0 0 #t)) (g-main-loop-new procedure (arity 0 2 #f)) (g-main-loop-quit procedure (arity 0 0 #t)) (g-main-loop-run procedure (arity 0 0 #t)) (g-quark-from-string procedure (arity 0 0 #t)) (g-quark-to-string procedure (arity 0 0 #t)) (g-quark-try-string procedure (arity 0 0 #t)) (g-set-application-name procedure (arity 0 0 #t)) (g-set-prgname procedure (arity 0 0 #t)) (g-shell-quote procedure (arity 0 0 #t)) (g-shell-unquote procedure (arity 1 0 #f)) (g-source-attach procedure (arity 1 1 #f)) (g-source-destroy procedure (arity 0 0 #t)) (g-source-get-can-recurse procedure (arity 0 0 #t)) (g-source-get-context procedure (arity 0 0 #t)) (g-source-get-id procedure (arity 0 0 #t)) (g-source-get-priority procedure (arity 0 0 #t)) (g-source-is-destroyed procedure (arity 0 0 #t)) (g-source-remove procedure (arity 0 0 #t)) (g-source-set-can-recurse procedure (arity 0 0 #t)) (g-source-set-priority procedure (arity 0 0 #t)) (g-string-get-str procedure (arity 0 0 #t)) (g-string-new procedure (arity 0 1 #f)) (g-timeout-source-new procedure (arity 0 0 #t)) (g-unichar-break-type procedure (arity 0 0 #t)) (g-unichar-digit-value procedure (arity 0 0 #t)) (g-unichar-get-mirror-char procedure (arity 1 0 #f)) (g-unichar-isalnum procedure (arity 0 0 #t)) (g-unichar-isalpha procedure (arity 0 0 #t)) (g-unichar-iscntrl procedure (arity 0 0 #t)) (g-unichar-isdefined procedure (arity 0 0 #t)) (g-unichar-isdigit procedure (arity 0 0 #t)) (g-unichar-isgraph procedure (arity 0 0 #t)) (g-unichar-islower procedure (arity 0 0 #t)) (g-unichar-isprint procedure (arity 0 0 #t)) (g-unichar-ispunct procedure (arity 0 0 #t)) (g-unichar-isspace procedure (arity 0 0 #t)) (g-unichar-istitle procedure (arity 0 0 #t)) (g-unichar-isupper procedure (arity 0 0 #t)) (g-unichar-iswide procedure (arity 0 0 #t)) (g-unichar-iswide-cjk procedure (arity 0 0 #t)) (g-unichar-isxdigit procedure (arity 0 0 #t)) (g-unichar-to-utf8 procedure (arity 0 0 #t)) (g-unichar-tolower procedure (arity 0 0 #t)) (g-unichar-totitle procedure (arity 0 0 #t)) (g-unichar-toupper procedure (arity 0 0 #t)) (g-unichar-type procedure (arity 0 0 #t)) (g-unichar-validate procedure (arity 0 0 #t)) (g-unichar-xdigit-value procedure (arity 0 0 #t)) (g-utf8-casefold procedure (arity 0 0 #t)) (g-utf8-collate procedure (arity 0 0 #t)) (g-utf8-collate-key procedure (arity 0 0 #t)) (g-utf8-collate-key-for-filename procedure (arity 0 0 #t)) (g-utf8-find-next-char procedure (arity 0 0 #t)) (g-utf8-get-char procedure (arity 0 0 #t)) (g-utf8-normalize procedure (arity 0 0 #t)) (g-utf8-strchr procedure (arity 0 0 #t)) (g-utf8-strdown procedure (arity 0 0 #t)) (g-utf8-strlen procedure (arity 0 0 #t)) (g-utf8-strrchr procedure (arity 0 0 #t)) (g-utf8-strreverse procedure (arity 0 0 #t)) (g-utf8-strup procedure (arity 0 0 #t)) (g-utf8-validate procedure (arity 0 0 #t))))) guile-gnome-platform-2.16.2/glib/test-suite/api.scm0000644000175000017500000000302511670374302022467 0ustar00wingowingo00000000000000;;; ---------------------------------------------------------------------- ;;; unit test ;;; Copyright (C) 2007 Andy Wingo ;;; ;;; This program is free software; you can redistribute it and/or modify ;;; it under the terms of the GNU General Public License as published by ;;; the Free Software Foundation; either version 2 of the License, or ;;; (at your option) any later version. ;;; ;;; This program is distributed in the hope that it will be useful, ;;; but WITHOUT ANY WARRANTY; without even the implied warranty of ;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the ;;; GNU General Public License for more details. ;;; ;;; You should have received a copy of the GNU General Public License ;;; along with this program; if not, write to the Free Software ;;; Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA ;;; ---------------------------------------------------------------------- (use-modules (unit-test) (apicheck) (ice-9 pretty-print) (oop goops)) (define-class ()) ;(write (getenv "DOC_SCM"))(newline) (and=> (getenv "DOC_SCM") primitive-load) (define-method (test-api (self )) (apicheck-validate (call-with-input-file (getenv "API_FILE") read) (map car *modules*))) (define (main args) (exit-with-summary (run-all-defined-test-cases))) (define (update-api args) (pretty-print (apicheck-generate (map (lambda (s) (call-with-input-string s read)) (cdr args))))) guile-gnome-platform-2.16.2/glib/test-suite/test-glib.defs0000644000175000017500000000241011670374302023744 0ustar00wingowingo00000000000000;; guile-gnome ;; Copyright (C) 2003,2004 Andreas Rottmann ;; This program is free software; you can redistribute it and/or ;; modify it under the terms of the GNU General Public License as ;; published by the Free Software Foundation; either version 2 of ;; the License, or (at your option) any later version. ;; ;; This program is distributed in the hope that it will be useful, ;; but WITHOUT ANY WARRANTY; without even the implied warranty of ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the ;; GNU General Public License for more details. ;; ;; You should have received a copy of the GNU General Public License ;; along with this program; if not, contact: ;; ;; Free Software Foundation Voice: +1-617-542-5942 ;; 59 Temple Place - Suite 330 Fax: +1-617-542-2652 ;; Boston, MA 02111-1307, USA gnu@gnu.org ;; -*- scheme -*- ; object definitions ... ;; Enumerations and flags ... ;; From test-glib.h (define-function test_glist_echo (c-name "test_glist_echo") (return-type "GList*-of-char*") (parameters '("GList*-of-char*" "list") ) ) guile-gnome-platform-2.16.2/glib/test-suite/test-gobject.h0000644000175000017500000000356411670374302023765 0ustar00wingowingo00000000000000/* guile-gnome * Copyright (C) 2003,2004 Andreas Rottmann * * This program is free software; you can redistribute it and/or * modify it under the terms of the GNU General Public License as * published by the Free Software Foundation; either version 2 of * the License, or (at your option) any later version. * * This program is distributed in the hope that it will be useful, * but WITHOUT ANY WARRANTY; without even the implied warranty of * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the * GNU General Public License for more details. * * You should have received a copy of the GNU General Public License * along with this program; if not, contact: * * Free Software Foundation Voice: +1-617-542-5942 * 59 Temple Place - Suite 330 Fax: +1-617-542-2652 * Boston, MA 02111-1307, USA gnu@gnu.org */ #if !defined(_INC_TEST_SUITE_TEST_GOBJECT_H) #define _INC_TEST_SUITE_TEST_GOBJECT_H #include G_BEGIN_DECLS #define TEST_TYPE_OBJ (test_obj_get_type ()) #define TEST_OBJ(obj) (G_TYPE_CHECK_INSTANCE_CAST ((obj), TEST_TYPE_OBJ, TestObj)) #define TEST_OBJ_CLASS(vtable) (G_TYPE_CHECK_CLASS_CAST ((vtable), TEST_TYPE_OBJ, TestObjClass)) #define TEST_IS_OBJ(obj) (G_TYPE_CHECK_TYPE ((obj), TEST_TYPE_OBJ)) #define TEST_OBJ_GET_CLASS(obj) (G_TYPE_INSTANCE_GET_CLASS ((obj), TEST_TYPE_OBJ, TestObjClass)) typedef struct _TestObj TestObj; typedef struct _TestObjClass TestObjClass; struct _TestObj { GObject super; GValueArray *arr; }; struct _TestObjClass { GObjectClass super; }; GType test_obj_get_type(void); guint test_obj_foo (TestObj *obj, guint arg); G_END_DECLS #endif guile-gnome-platform-2.16.2/glib/guile-gnome-glib.pc.in0000644000175000017500000000053011670374302023156 0ustar00wingowingo00000000000000prefix=@prefix@ exec_prefix=@exec_prefix@ libdir=@libdir@ includedir=@includedir@/guile-gnome-@API_VERSION@ toolsdir=${exec_prefix}/bin Name: Guile-Gnome GLib bindings Description: Guile-Gnome GLib bindings Requires: gobject-2.0 g-wrap-2.0-guile Version: @VERSION@ Libs: -L${libdir} -lguile-gnome-gobject-@API_VERSION@ Cflags: -I${includedir} guile-gnome-platform-2.16.2/glib/Makefile.am0000644000175000017500000000263111752516475021154 0ustar00wingowingo00000000000000include $(top_srcdir)/common.mk SUBDIRS = . gnome test-suite doc examples bin pkgconfigdir = $(libdir)/pkgconfig pkgconfig_DATA = $(pcifiles) # tried to get autoconf to do this, but failed. guilesite:=$(prefix)/share/guile/site gnome-@API_VERSION@.scm: gnome.scm.in Makefile if test -f $@; then chmod +w $@; fi sed -e "s|@API_VERSION\@|@API_VERSION@|g" \ -e "s|@running-uninstalled\@|#t|g" \ -e "s|@guilegnomedir\@|$(guilegnomedir)|g" \ -e "s|@guilegnomelibdir\@|$(guilegnomelibdir)|g" \ -e "s|@libdir\@|$(libdir)|g" \ $< > $@ chmod -w $@ all-local: $(pcifiles) $(pcufiles) gnome-@API_VERSION@.scm install-data-local: Makefile $(mkinstalldirs) $(DESTDIR)$(guilesite) sed -e "s|@API_VERSION\@|@API_VERSION@|g" \ -e "s|@running-uninstalled\@|#f|g" \ -e "s|@guilegnomedir\@|$(guilegnomedir)|g" \ -e "s|@guilegnomelibdir\@|$(guilegnomelibdir)|g" \ -e "s|@libdir\@|$(libdir)|g" \ $(srcdir)/gnome.scm.in > $(DESTDIR)$(guilesite)/gnome-@API_VERSION@.scm chmod 644 $(DESTDIR)$(guilesite)/gnome-@API_VERSION@.scm uninstall-local: rm -f $(DESTDIR)$(moduledir)/config.scm rm -f $(DESTDIR)$(guilesite)/gnome-@API_VERSION@.scm EXTRA_DIST = guile-gnome-glib.pc.in guile-gnome-glib-uninstalled.pc.in \ AUTHORS TODO WARTS REFCOUNTING THREADING NEWS.guile-gobject \ README gnome.scm.in ChangeLog.pre-2.16 CLEANFILES = $(pcifiles) $(pcufiles) $(bin_SCRIPTS) gnome-@API_VERSION@.scm guile-gnome-platform-2.16.2/glib/Makefile.in0000644000175000017500000006304011752520653021157 0ustar00wingowingo00000000000000# Makefile.in generated by automake 1.11.5 from Makefile.am. # @configure_input@ # Copyright (C) 1994, 1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, # 2003, 2004, 2005, 2006, 2007, 2008, 2009, 2010, 2011 Free Software # Foundation, Inc. # This Makefile.in is free software; the Free Software Foundation # gives unlimited permission to copy and/or distribute it, # with or without modifications, as long as this notice is preserved. # This program is distributed in the hope that it will be useful, # but WITHOUT ANY WARRANTY, to the extent permitted by law; without # even the implied warranty of MERCHANTABILITY or FITNESS FOR A # PARTICULAR PURPOSE. @SET_MAKE@ # guile-gnome # Copyright (C) 2003,2004,2009,2012 Free Software Foundation, Inc. # This program is free software; you can redistribute it and/or # modify it under the terms of the GNU General Public License as # published by the Free Software Foundation; either version 2 of # the License, or (at your option) any later version. # This program is distributed in the hope that it will be useful, # but WITHOUT ANY WARRANTY; without even the implied warranty of # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the # GNU General Public License for more details. # You should have received a copy of the GNU General Public License # along with this program; if not, contact: # Free Software Foundation Voice: +1-617-542-5942 # 59 Temple Place - Suite 330 Fax: +1-617-542-2652 # Boston, MA 02111-1307, USA gnu@gnu.org # # Makefile snippet # VPATH = @srcdir@ am__make_dryrun = \ { \ am__dry=no; \ case $$MAKEFLAGS in \ *\\[\ \ ]*) \ echo 'am--echo: ; @echo "AM" OK' | $(MAKE) -f - 2>/dev/null \ | grep '^AM OK$$' >/dev/null || am__dry=yes;; \ *) \ for am__flg in $$MAKEFLAGS; do \ case $$am__flg in \ *=*|--*) ;; \ *n*) am__dry=yes; break;; \ esac; \ done;; \ esac; \ test $$am__dry = yes; \ } pkgdatadir = $(datadir)/@PACKAGE@ pkgincludedir = $(includedir)/@PACKAGE@ pkglibdir = $(libdir)/@PACKAGE@ pkglibexecdir = $(libexecdir)/@PACKAGE@ am__cd = CDPATH="$${ZSH_VERSION+.}$(PATH_SEPARATOR)" && cd install_sh_DATA = $(install_sh) -c -m 644 install_sh_PROGRAM = $(install_sh) -c install_sh_SCRIPT = $(install_sh) -c INSTALL_HEADER = $(INSTALL_DATA) transform = $(program_transform_name) NORMAL_INSTALL = : PRE_INSTALL = : POST_INSTALL = : NORMAL_UNINSTALL = : PRE_UNINSTALL = : POST_UNINSTALL = : build_triplet = @build@ host_triplet = @host@ DIST_COMMON = README $(srcdir)/Makefile.am $(srcdir)/Makefile.in \ $(srcdir)/guile-gnome-glib-uninstalled.pc.in \ $(srcdir)/guile-gnome-glib.pc.in $(top_srcdir)/common.mk \ AUTHORS ChangeLog TODO subdir = glib ACLOCAL_M4 = $(top_srcdir)/aclocal.m4 am__aclocal_m4_deps = $(top_srcdir)/configure.ac am__configure_deps = $(am__aclocal_m4_deps) $(CONFIGURE_DEPENDENCIES) \ $(ACLOCAL_M4) mkinstalldirs = $(install_sh) -d CONFIG_HEADER = $(top_builddir)/config.h CONFIG_CLEAN_FILES = guile-gnome-glib.pc \ guile-gnome-glib-uninstalled.pc CONFIG_CLEAN_VPATH_FILES = SOURCES = DIST_SOURCES = RECURSIVE_TARGETS = all-recursive check-recursive dvi-recursive \ html-recursive info-recursive install-data-recursive \ install-dvi-recursive install-exec-recursive \ install-html-recursive install-info-recursive \ install-pdf-recursive install-ps-recursive install-recursive \ installcheck-recursive installdirs-recursive pdf-recursive \ ps-recursive uninstall-recursive am__can_run_installinfo = \ case $$AM_UPDATE_INFO_DIR in \ n|no|NO) false;; \ *) (install-info --version) >/dev/null 2>&1;; \ esac am__vpath_adj_setup = srcdirstrip=`echo "$(srcdir)" | sed 's|.|.|g'`; am__vpath_adj = case $$p in \ $(srcdir)/*) f=`echo "$$p" | sed "s|^$$srcdirstrip/||"`;; \ *) f=$$p;; \ esac; am__strip_dir = f=`echo $$p | sed -e 's|^.*/||'`; am__install_max = 40 am__nobase_strip_setup = \ srcdirstrip=`echo "$(srcdir)" | sed 's/[].[^$$\\*|]/\\\\&/g'` am__nobase_strip = \ for p in $$list; do echo "$$p"; done | sed -e "s|$$srcdirstrip/||" am__nobase_list = $(am__nobase_strip_setup); \ for p in $$list; do echo "$$p $$p"; done | \ sed "s| $$srcdirstrip/| |;"' / .*\//!s/ .*/ ./; s,\( .*\)/[^/]*$$,\1,' | \ $(AWK) 'BEGIN { files["."] = "" } { files[$$2] = files[$$2] " " $$1; \ if (++n[$$2] == $(am__install_max)) \ { print $$2, files[$$2]; n[$$2] = 0; files[$$2] = "" } } \ END { for (dir in files) print dir, files[dir] }' am__base_list = \ sed '$$!N;$$!N;$$!N;$$!N;$$!N;$$!N;$$!N;s/\n/ /g' | \ sed '$$!N;$$!N;$$!N;$$!N;s/\n/ /g' am__uninstall_files_from_dir = { \ test -z "$$files" \ || { test ! -d "$$dir" && test ! -f "$$dir" && test ! -r "$$dir"; } \ || { echo " ( cd '$$dir' && rm -f" $$files ")"; \ $(am__cd) "$$dir" && rm -f $$files; }; \ } am__installdirs = "$(DESTDIR)$(pkgconfigdir)" DATA = $(pkgconfig_DATA) RECURSIVE_CLEAN_TARGETS = mostlyclean-recursive clean-recursive \ distclean-recursive maintainer-clean-recursive AM_RECURSIVE_TARGETS = $(RECURSIVE_TARGETS:-recursive=) \ $(RECURSIVE_CLEAN_TARGETS:-recursive=) tags TAGS ctags CTAGS \ distdir ETAGS = etags CTAGS = ctags DIST_SUBDIRS = $(SUBDIRS) DISTFILES = $(DIST_COMMON) $(DIST_SOURCES) $(TEXINFOS) $(EXTRA_DIST) am__relativize = \ dir0=`pwd`; \ sed_first='s,^\([^/]*\)/.*$$,\1,'; \ sed_rest='s,^[^/]*/*,,'; \ sed_last='s,^.*/\([^/]*\)$$,\1,'; \ sed_butlast='s,/*[^/]*$$,,'; \ while test -n "$$dir1"; do \ first=`echo "$$dir1" | sed -e "$$sed_first"`; \ if test "$$first" != "."; then \ if test "$$first" = ".."; then \ dir2=`echo "$$dir0" | sed -e "$$sed_last"`/"$$dir2"; \ dir0=`echo "$$dir0" | sed -e "$$sed_butlast"`; \ else \ first2=`echo "$$dir2" | sed -e "$$sed_first"`; \ if test "$$first2" = "$$first"; then \ dir2=`echo "$$dir2" | sed -e "$$sed_rest"`; \ else \ dir2="../$$dir2"; \ fi; \ dir0="$$dir0"/"$$first"; \ fi; \ fi; \ dir1=`echo "$$dir1" | sed -e "$$sed_rest"`; \ done; \ reldir="$$dir2" ACLOCAL = @ACLOCAL@ AG_PKG_CONFIG_PATH = @AG_PKG_CONFIG_PATH@ AMTAR = @AMTAR@ API_VERSION = @API_VERSION@ AR = @AR@ ATK_CFLAGS = @ATK_CFLAGS@ ATK_LIBS = @ATK_LIBS@ AUTOCONF = @AUTOCONF@ AUTOHEADER = @AUTOHEADER@ AUTOMAKE = @AUTOMAKE@ AWK = @AWK@ BONOBO_IDL_DIR = @BONOBO_IDL_DIR@ CANVAS_CFLAGS = @CANVAS_CFLAGS@ CANVAS_LIBS = @CANVAS_LIBS@ CC = @CC@ CCDEPMODE = @CCDEPMODE@ CFLAGS = @CFLAGS@ CORBA_CFLAGS = @CORBA_CFLAGS@ CORBA_LIBS = @CORBA_LIBS@ CPP = @CPP@ CPPFLAGS = @CPPFLAGS@ CYGPATH_W = @CYGPATH_W@ DEFS = @DEFS@ DEPDIR = @DEPDIR@ DLLTOOL = @DLLTOOL@ DSYMUTIL = @DSYMUTIL@ DUMPBIN = @DUMPBIN@ ECHO_C = @ECHO_C@ ECHO_N = @ECHO_N@ ECHO_T = @ECHO_T@ EGREP = @EGREP@ EXEEXT = @EXEEXT@ FGREP = @FGREP@ GCONF_CFLAGS = @GCONF_CFLAGS@ GCONF_LIBS = @GCONF_LIBS@ GDK_CFLAGS = @GDK_CFLAGS@ GDK_LIBS = @GDK_LIBS@ GDK_PIXBUF_CFLAGS = @GDK_PIXBUF_CFLAGS@ GDK_PIXBUF_LIBS = @GDK_PIXBUF_LIBS@ GLIB_CFLAGS = @GLIB_CFLAGS@ GLIB_LIBS = @GLIB_LIBS@ GNOMEUI_DEPRECATION_FLAGS = @GNOMEUI_DEPRECATION_FLAGS@ GNOME_VFS_CFLAGS = @GNOME_VFS_CFLAGS@ GNOME_VFS_DEPRECATED_CFLAGS = @GNOME_VFS_DEPRECATED_CFLAGS@ GNOME_VFS_LIBS = @GNOME_VFS_LIBS@ GOBJECT_CFLAGS = @GOBJECT_CFLAGS@ GOBJECT_LIBS = @GOBJECT_LIBS@ GREP = @GREP@ GTHREAD_CFLAGS = @GTHREAD_CFLAGS@ GTHREAD_LIBS = @GTHREAD_LIBS@ GTK_CFLAGS = @GTK_CFLAGS@ GTK_DEPRECATED_CFLAGS = @GTK_DEPRECATED_CFLAGS@ GTK_LIBS = @GTK_LIBS@ GUILE_CAIRO_CFLAGS = @GUILE_CAIRO_CFLAGS@ GUILE_CAIRO_LIBS = @GUILE_CAIRO_LIBS@ GUILE_CFLAGS = @GUILE_CFLAGS@ GUILE_EFFECTIVE_VERSION = @GUILE_EFFECTIVE_VERSION@ GUILE_GLIB_CFLAGS = @GUILE_GLIB_CFLAGS@ GUILE_GLIB_LIBS = @GUILE_GLIB_LIBS@ GUILE_LIBS = @GUILE_LIBS@ G_WRAP_CFLAGS = @G_WRAP_CFLAGS@ G_WRAP_LIBS = @G_WRAP_LIBS@ G_WRAP_LIB_DIR = @G_WRAP_LIB_DIR@ G_WRAP_MODULE_DIR = @G_WRAP_MODULE_DIR@ INSTALL = @INSTALL@ INSTALL_DATA = @INSTALL_DATA@ INSTALL_PROGRAM = @INSTALL_PROGRAM@ INSTALL_SCRIPT = @INSTALL_SCRIPT@ INSTALL_STRIP_PROGRAM = @INSTALL_STRIP_PROGRAM@ LD = @LD@ LDFLAGS = @LDFLAGS@ LIBGLADE_CFLAGS = @LIBGLADE_CFLAGS@ LIBGLADE_LIBS = @LIBGLADE_LIBS@ LIBGNOMEUI_CFLAGS = @LIBGNOMEUI_CFLAGS@ LIBGNOMEUI_LIBS = @LIBGNOMEUI_LIBS@ LIBGNOME_CFLAGS = @LIBGNOME_CFLAGS@ LIBGNOME_LIBS = @LIBGNOME_LIBS@ LIBOBJS = @LIBOBJS@ LIBS = @LIBS@ LIBTOOL = @LIBTOOL@ LIPO = @LIPO@ LN_S = @LN_S@ LTLIBOBJS = @LTLIBOBJS@ MAKEINFO = @MAKEINFO@ MANIFEST_TOOL = @MANIFEST_TOOL@ MKDIR_P = @MKDIR_P@ NM = @NM@ NMEDIT = @NMEDIT@ OBJDUMP = @OBJDUMP@ OBJEXT = @OBJEXT@ ORBIT_IDL = @ORBIT_IDL@ OTOOL = @OTOOL@ OTOOL64 = @OTOOL64@ PACKAGE = @PACKAGE@ PACKAGE_BUGREPORT = @PACKAGE_BUGREPORT@ PACKAGE_NAME = @PACKAGE_NAME@ PACKAGE_STRING = @PACKAGE_STRING@ PACKAGE_TARNAME = @PACKAGE_TARNAME@ PACKAGE_URL = @PACKAGE_URL@ PACKAGE_VERSION = @PACKAGE_VERSION@ PANGOCAIRO_CFLAGS = @PANGOCAIRO_CFLAGS@ PANGOCAIRO_LIBS = @PANGOCAIRO_LIBS@ PANGO_CFLAGS = @PANGO_CFLAGS@ PANGO_LIBS = @PANGO_LIBS@ PATH_SEPARATOR = @PATH_SEPARATOR@ PKG_CONFIG = @PKG_CONFIG@ PKG_CONFIG_LIBDIR = @PKG_CONFIG_LIBDIR@ PKG_CONFIG_PATH = @PKG_CONFIG_PATH@ RANLIB = @RANLIB@ SED = @SED@ SET_MAKE = @SET_MAKE@ SHELL = @SHELL@ STRIP = @STRIP@ VERSION = @VERSION@ WARN_CFLAGS = @WARN_CFLAGS@ abs_builddir = @abs_builddir@ abs_srcdir = @abs_srcdir@ abs_top_builddir = @abs_top_builddir@ abs_top_srcdir = @abs_top_srcdir@ ac_ct_AR = @ac_ct_AR@ ac_ct_CC = @ac_ct_CC@ ac_ct_DUMPBIN = @ac_ct_DUMPBIN@ am__include = @am__include@ am__leading_dot = @am__leading_dot@ am__quote = @am__quote@ am__tar = @am__tar@ am__untar = @am__untar@ bindir = @bindir@ build = @build@ build_alias = @build_alias@ build_cpu = @build_cpu@ build_os = @build_os@ build_vendor = @build_vendor@ builddir = @builddir@ datadir = @datadir@ datarootdir = @datarootdir@ docdir = @docdir@ dvidir = @dvidir@ exec_prefix = @exec_prefix@ host = @host@ host_alias = @host_alias@ host_cpu = @host_cpu@ host_os = @host_os@ host_vendor = @host_vendor@ htmldir = @htmldir@ includedir = @includedir@ infodir = @infodir@ install_sh = @install_sh@ libdir = @libdir@ libexecdir = @libexecdir@ localedir = @localedir@ localstatedir = @localstatedir@ mandir = @mandir@ mkdir_p = @mkdir_p@ oldincludedir = @oldincludedir@ pdfdir = @pdfdir@ prefix = @prefix@ program_transform_name = @program_transform_name@ psdir = @psdir@ sbindir = @sbindir@ sharedstatedir = @sharedstatedir@ srcdir = @srcdir@ sysconfdir = @sysconfdir@ target_alias = @target_alias@ top_build_prefix = @top_build_prefix@ top_builddir = @top_builddir@ top_srcdir = @top_srcdir@ guilegnomedir = $(datadir)/guile-gnome-@API_VERSION@ guilemoduledir = $(guilegnomedir)/gnome guilegwmoduledir = $(guilegnomedir)/gnome/gw guilegnomelibdir = $(libdir)/guile-gnome-@API_VERSION@ AM_CFLAGS = -I. -I$(srcdir) $(WARN_CFLAGS) $(DEBUG_CFLAGS) # For overriding from the command line (e.g. --debug) GUILE_FLAGS = SUFFIXES = .x .doc GUILE_SNARF_CFLAGS = $(DEFS) $(AM_CFLAGS) $(GUILE_CFLAGS) $(G_WRAP_CFLAGS) PACKAGES = atk cairo corba defs gconf glib gnome-vfs gtk libglade libgnome libgnomecanvas libgnomeui pango SOURCE_GUILE_PATH = $(shell echo $(addprefix $(top_srcdir)/,$(PACKAGES)) | sed -e 's/ /:/g'):$(srcdir) BUILD_GUILE_PATH = $(if $(filter-out $(top_srcdir),$(top_builddir)),$(shell echo -n $(addprefix $(top_builddir)/,$(PACKAGES)): | sed -e 's/ /:/g'),) GUILE_LOAD_PATH := $(BUILD_GUILE_PATH)$(SOURCE_GUILE_PATH):${G_WRAP_MODULE_DIR}:${GUILE_LOAD_PATH} # Real gnu make foo packages = $(filter-out %-uninstalled,$(patsubst %.pc.in,%,$(notdir $(wildcard $(srcdir)/*.pc.in)))) pcifiles = $(patsubst %,%-@API_VERSION@.pc,$(packages)) pcufiles = $(patsubst %,%-@API_VERSION@-uninstalled.pc,$(packages)) SUBDIRS = . gnome test-suite doc examples bin pkgconfigdir = $(libdir)/pkgconfig pkgconfig_DATA = $(pcifiles) # tried to get autoconf to do this, but failed. guilesite := $(prefix)/share/guile/site EXTRA_DIST = guile-gnome-glib.pc.in guile-gnome-glib-uninstalled.pc.in \ AUTHORS TODO WARTS REFCOUNTING THREADING NEWS.guile-gobject \ README gnome.scm.in ChangeLog.pre-2.16 CLEANFILES = $(pcifiles) $(pcufiles) $(bin_SCRIPTS) gnome-@API_VERSION@.scm all: all-recursive .SUFFIXES: .SUFFIXES: .x .doc .c $(srcdir)/Makefile.in: $(srcdir)/Makefile.am $(top_srcdir)/common.mk $(am__configure_deps) @for dep in $?; do \ case '$(am__configure_deps)' in \ *$$dep*) \ ( cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh ) \ && { if test -f $@; then exit 0; else break; fi; }; \ exit 1;; \ esac; \ done; \ echo ' cd $(top_srcdir) && $(AUTOMAKE) --gnu glib/Makefile'; \ $(am__cd) $(top_srcdir) && \ $(AUTOMAKE) --gnu glib/Makefile .PRECIOUS: Makefile Makefile: $(srcdir)/Makefile.in $(top_builddir)/config.status @case '$?' in \ *config.status*) \ cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh;; \ *) \ echo ' cd $(top_builddir) && $(SHELL) ./config.status $(subdir)/$@ $(am__depfiles_maybe)'; \ cd $(top_builddir) && $(SHELL) ./config.status $(subdir)/$@ $(am__depfiles_maybe);; \ esac; $(top_srcdir)/common.mk: $(top_builddir)/config.status: $(top_srcdir)/configure $(CONFIG_STATUS_DEPENDENCIES) cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh $(top_srcdir)/configure: $(am__configure_deps) cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh $(ACLOCAL_M4): $(am__aclocal_m4_deps) cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh $(am__aclocal_m4_deps): guile-gnome-glib.pc: $(top_builddir)/config.status $(srcdir)/guile-gnome-glib.pc.in cd $(top_builddir) && $(SHELL) ./config.status $(subdir)/$@ guile-gnome-glib-uninstalled.pc: $(top_builddir)/config.status $(srcdir)/guile-gnome-glib-uninstalled.pc.in cd $(top_builddir) && $(SHELL) ./config.status $(subdir)/$@ mostlyclean-libtool: -rm -f *.lo clean-libtool: -rm -rf .libs _libs install-pkgconfigDATA: $(pkgconfig_DATA) @$(NORMAL_INSTALL) @list='$(pkgconfig_DATA)'; test -n "$(pkgconfigdir)" || list=; \ if test -n "$$list"; then \ echo " $(MKDIR_P) '$(DESTDIR)$(pkgconfigdir)'"; \ $(MKDIR_P) "$(DESTDIR)$(pkgconfigdir)" || exit 1; \ fi; \ for p in $$list; do \ if test -f "$$p"; then d=; else d="$(srcdir)/"; fi; \ echo "$$d$$p"; \ done | $(am__base_list) | \ while read files; do \ echo " $(INSTALL_DATA) $$files '$(DESTDIR)$(pkgconfigdir)'"; \ $(INSTALL_DATA) $$files "$(DESTDIR)$(pkgconfigdir)" || exit $$?; \ done uninstall-pkgconfigDATA: @$(NORMAL_UNINSTALL) @list='$(pkgconfig_DATA)'; test -n "$(pkgconfigdir)" || list=; \ files=`for p in $$list; do echo $$p; done | sed -e 's|^.*/||'`; \ dir='$(DESTDIR)$(pkgconfigdir)'; $(am__uninstall_files_from_dir) # This directory's subdirectories are mostly independent; you can cd # into them and run `make' without going through this Makefile. # To change the values of `make' variables: instead of editing Makefiles, # (1) if the variable is set in `config.status', edit `config.status' # (which will cause the Makefiles to be regenerated when you run `make'); # (2) otherwise, pass the desired values on the `make' command line. $(RECURSIVE_TARGETS): @fail= failcom='exit 1'; \ for f in x $$MAKEFLAGS; do \ case $$f in \ *=* | --[!k]*);; \ *k*) failcom='fail=yes';; \ esac; \ done; \ dot_seen=no; \ target=`echo $@ | sed s/-recursive//`; \ list='$(SUBDIRS)'; for subdir in $$list; do \ echo "Making $$target in $$subdir"; \ if test "$$subdir" = "."; then \ dot_seen=yes; \ local_target="$$target-am"; \ else \ local_target="$$target"; \ fi; \ ($(am__cd) $$subdir && $(MAKE) $(AM_MAKEFLAGS) $$local_target) \ || eval $$failcom; \ done; \ if test "$$dot_seen" = "no"; then \ $(MAKE) $(AM_MAKEFLAGS) "$$target-am" || exit 1; \ fi; test -z "$$fail" $(RECURSIVE_CLEAN_TARGETS): @fail= failcom='exit 1'; \ for f in x $$MAKEFLAGS; do \ case $$f in \ *=* | --[!k]*);; \ *k*) failcom='fail=yes';; \ esac; \ done; \ dot_seen=no; \ case "$@" in \ distclean-* | maintainer-clean-*) list='$(DIST_SUBDIRS)' ;; \ *) list='$(SUBDIRS)' ;; \ esac; \ rev=''; for subdir in $$list; do \ if test "$$subdir" = "."; then :; else \ rev="$$subdir $$rev"; \ fi; \ done; \ rev="$$rev ."; \ target=`echo $@ | sed s/-recursive//`; \ for subdir in $$rev; do \ echo "Making $$target in $$subdir"; \ if test "$$subdir" = "."; then \ local_target="$$target-am"; \ else \ local_target="$$target"; \ fi; \ ($(am__cd) $$subdir && $(MAKE) $(AM_MAKEFLAGS) $$local_target) \ || eval $$failcom; \ done && test -z "$$fail" tags-recursive: list='$(SUBDIRS)'; for subdir in $$list; do \ test "$$subdir" = . || ($(am__cd) $$subdir && $(MAKE) $(AM_MAKEFLAGS) tags); \ done ctags-recursive: list='$(SUBDIRS)'; for subdir in $$list; do \ test "$$subdir" = . || ($(am__cd) $$subdir && $(MAKE) $(AM_MAKEFLAGS) ctags); \ done ID: $(HEADERS) $(SOURCES) $(LISP) $(TAGS_FILES) list='$(SOURCES) $(HEADERS) $(LISP) $(TAGS_FILES)'; \ unique=`for i in $$list; do \ if test -f "$$i"; then echo $$i; else echo $(srcdir)/$$i; fi; \ done | \ $(AWK) '{ files[$$0] = 1; nonempty = 1; } \ END { if (nonempty) { for (i in files) print i; }; }'`; \ mkid -fID $$unique tags: TAGS TAGS: tags-recursive $(HEADERS) $(SOURCES) $(TAGS_DEPENDENCIES) \ $(TAGS_FILES) $(LISP) set x; \ here=`pwd`; \ if ($(ETAGS) --etags-include --version) >/dev/null 2>&1; then \ include_option=--etags-include; \ empty_fix=.; \ else \ include_option=--include; \ empty_fix=; \ fi; \ list='$(SUBDIRS)'; for subdir in $$list; do \ if test "$$subdir" = .; then :; else \ test ! -f $$subdir/TAGS || \ set "$$@" "$$include_option=$$here/$$subdir/TAGS"; \ fi; \ done; \ list='$(SOURCES) $(HEADERS) $(LISP) $(TAGS_FILES)'; \ unique=`for i in $$list; do \ if test -f "$$i"; then echo $$i; else echo $(srcdir)/$$i; fi; \ done | \ $(AWK) '{ files[$$0] = 1; nonempty = 1; } \ END { if (nonempty) { for (i in files) print i; }; }'`; \ shift; \ if test -z "$(ETAGS_ARGS)$$*$$unique"; then :; else \ test -n "$$unique" || unique=$$empty_fix; \ if test $$# -gt 0; then \ $(ETAGS) $(ETAGSFLAGS) $(AM_ETAGSFLAGS) $(ETAGS_ARGS) \ "$$@" $$unique; \ else \ $(ETAGS) $(ETAGSFLAGS) $(AM_ETAGSFLAGS) $(ETAGS_ARGS) \ $$unique; \ fi; \ fi ctags: CTAGS CTAGS: ctags-recursive $(HEADERS) $(SOURCES) $(TAGS_DEPENDENCIES) \ $(TAGS_FILES) $(LISP) list='$(SOURCES) $(HEADERS) $(LISP) $(TAGS_FILES)'; \ unique=`for i in $$list; do \ if test -f "$$i"; then echo $$i; else echo $(srcdir)/$$i; fi; \ done | \ $(AWK) '{ files[$$0] = 1; nonempty = 1; } \ END { if (nonempty) { for (i in files) print i; }; }'`; \ test -z "$(CTAGS_ARGS)$$unique" \ || $(CTAGS) $(CTAGSFLAGS) $(AM_CTAGSFLAGS) $(CTAGS_ARGS) \ $$unique GTAGS: here=`$(am__cd) $(top_builddir) && pwd` \ && $(am__cd) $(top_srcdir) \ && gtags -i $(GTAGS_ARGS) "$$here" distclean-tags: -rm -f TAGS ID GTAGS GRTAGS GSYMS GPATH tags distdir: $(DISTFILES) @srcdirstrip=`echo "$(srcdir)" | sed 's/[].[^$$\\*]/\\\\&/g'`; \ topsrcdirstrip=`echo "$(top_srcdir)" | sed 's/[].[^$$\\*]/\\\\&/g'`; \ list='$(DISTFILES)'; \ dist_files=`for file in $$list; do echo $$file; done | \ sed -e "s|^$$srcdirstrip/||;t" \ -e "s|^$$topsrcdirstrip/|$(top_builddir)/|;t"`; \ case $$dist_files in \ */*) $(MKDIR_P) `echo "$$dist_files" | \ sed '/\//!d;s|^|$(distdir)/|;s,/[^/]*$$,,' | \ sort -u` ;; \ esac; \ for file in $$dist_files; do \ if test -f $$file || test -d $$file; then d=.; else d=$(srcdir); fi; \ if test -d $$d/$$file; then \ dir=`echo "/$$file" | sed -e 's,/[^/]*$$,,'`; \ if test -d "$(distdir)/$$file"; then \ find "$(distdir)/$$file" -type d ! -perm -700 -exec chmod u+rwx {} \;; \ fi; \ if test -d $(srcdir)/$$file && test $$d != $(srcdir); then \ cp -fpR $(srcdir)/$$file "$(distdir)$$dir" || exit 1; \ find "$(distdir)/$$file" -type d ! -perm -700 -exec chmod u+rwx {} \;; \ fi; \ cp -fpR $$d/$$file "$(distdir)$$dir" || exit 1; \ else \ test -f "$(distdir)/$$file" \ || cp -p $$d/$$file "$(distdir)/$$file" \ || exit 1; \ fi; \ done @list='$(DIST_SUBDIRS)'; for subdir in $$list; do \ if test "$$subdir" = .; then :; else \ $(am__make_dryrun) \ || test -d "$(distdir)/$$subdir" \ || $(MKDIR_P) "$(distdir)/$$subdir" \ || exit 1; \ dir1=$$subdir; dir2="$(distdir)/$$subdir"; \ $(am__relativize); \ new_distdir=$$reldir; \ dir1=$$subdir; dir2="$(top_distdir)"; \ $(am__relativize); \ new_top_distdir=$$reldir; \ echo " (cd $$subdir && $(MAKE) $(AM_MAKEFLAGS) top_distdir="$$new_top_distdir" distdir="$$new_distdir" \\"; \ echo " am__remove_distdir=: am__skip_length_check=: am__skip_mode_fix=: distdir)"; \ ($(am__cd) $$subdir && \ $(MAKE) $(AM_MAKEFLAGS) \ top_distdir="$$new_top_distdir" \ distdir="$$new_distdir" \ am__remove_distdir=: \ am__skip_length_check=: \ am__skip_mode_fix=: \ distdir) \ || exit 1; \ fi; \ done check-am: all-am check: check-recursive all-am: Makefile $(DATA) all-local installdirs: installdirs-recursive installdirs-am: for dir in "$(DESTDIR)$(pkgconfigdir)"; do \ test -z "$$dir" || $(MKDIR_P) "$$dir"; \ done install: install-recursive install-exec: install-exec-recursive install-data: install-data-recursive uninstall: uninstall-recursive install-am: all-am @$(MAKE) $(AM_MAKEFLAGS) install-exec-am install-data-am installcheck: installcheck-recursive install-strip: if test -z '$(STRIP)'; then \ $(MAKE) $(AM_MAKEFLAGS) INSTALL_PROGRAM="$(INSTALL_STRIP_PROGRAM)" \ install_sh_PROGRAM="$(INSTALL_STRIP_PROGRAM)" INSTALL_STRIP_FLAG=-s \ install; \ else \ $(MAKE) $(AM_MAKEFLAGS) INSTALL_PROGRAM="$(INSTALL_STRIP_PROGRAM)" \ install_sh_PROGRAM="$(INSTALL_STRIP_PROGRAM)" INSTALL_STRIP_FLAG=-s \ "INSTALL_PROGRAM_ENV=STRIPPROG='$(STRIP)'" install; \ fi mostlyclean-generic: clean-generic: -test -z "$(CLEANFILES)" || rm -f $(CLEANFILES) distclean-generic: -test -z "$(CONFIG_CLEAN_FILES)" || rm -f $(CONFIG_CLEAN_FILES) -test . = "$(srcdir)" || test -z "$(CONFIG_CLEAN_VPATH_FILES)" || rm -f $(CONFIG_CLEAN_VPATH_FILES) maintainer-clean-generic: @echo "This command is intended for maintainers to use" @echo "it deletes files that may require special tools to rebuild." clean: clean-recursive clean-am: clean-generic clean-libtool mostlyclean-am distclean: distclean-recursive -rm -f Makefile distclean-am: clean-am distclean-generic distclean-tags dvi: dvi-recursive dvi-am: html: html-recursive html-am: info: info-recursive info-am: install-data-am: install-data-local install-pkgconfigDATA install-dvi: install-dvi-recursive install-dvi-am: install-exec-am: install-html: install-html-recursive install-html-am: install-info: install-info-recursive install-info-am: install-man: install-pdf: install-pdf-recursive install-pdf-am: install-ps: install-ps-recursive install-ps-am: installcheck-am: maintainer-clean: maintainer-clean-recursive -rm -f Makefile maintainer-clean-am: distclean-am maintainer-clean-generic mostlyclean: mostlyclean-recursive mostlyclean-am: mostlyclean-generic mostlyclean-libtool pdf: pdf-recursive pdf-am: ps: ps-recursive ps-am: uninstall-am: uninstall-local uninstall-pkgconfigDATA .MAKE: $(RECURSIVE_CLEAN_TARGETS) $(RECURSIVE_TARGETS) ctags-recursive \ install-am install-strip tags-recursive .PHONY: $(RECURSIVE_CLEAN_TARGETS) $(RECURSIVE_TARGETS) CTAGS GTAGS \ all all-am all-local check check-am clean clean-generic \ clean-libtool ctags ctags-recursive distclean \ distclean-generic distclean-libtool distclean-tags distdir dvi \ dvi-am html html-am info info-am install install-am \ install-data install-data-am install-data-local install-dvi \ install-dvi-am install-exec install-exec-am install-html \ install-html-am install-info install-info-am install-man \ install-pdf install-pdf-am install-pkgconfigDATA install-ps \ install-ps-am install-strip installcheck installcheck-am \ installdirs installdirs-am maintainer-clean \ maintainer-clean-generic mostlyclean mostlyclean-generic \ mostlyclean-libtool pdf pdf-am ps ps-am tags tags-recursive \ uninstall uninstall-am uninstall-local uninstall-pkgconfigDATA export GUILE_LOAD_PATH .c.x: guile-snarf $(GUILE_SNARF_CFLAGS) $< > $@ \ || { rm $@; false; } .c.doc: $(CPP) -DSCM_MAGIC_SNARF_DOCS $(GUILE_SNARF_CFLAGS) $< \ | grep -E '(\^\^ {|\^\^ })' > $@ || { rm $@; false; } %.scm guile-gnome-gw-%.c: %-spec.scm guile $(GUILE_FLAGS) -c \ "(debug-set! stack 400000) \ (use-modules (gnome-@API_VERSION@)) \ (use-modules (g-wrap)) \ (use-modules (gnome gw $*-spec)) \ (generate-wrapset 'guile 'gnome-$* \"guile-gnome-gw-$*\")" mv guile-gnome-gw-$*.scm $*.scm %-@API_VERSION@.pc: %.pc cp $< $@ %-@API_VERSION@-uninstalled.pc: %-uninstalled.pc cp $< $@ gnome-@API_VERSION@.scm: gnome.scm.in Makefile if test -f $@; then chmod +w $@; fi sed -e "s|@API_VERSION\@|@API_VERSION@|g" \ -e "s|@running-uninstalled\@|#t|g" \ -e "s|@guilegnomedir\@|$(guilegnomedir)|g" \ -e "s|@guilegnomelibdir\@|$(guilegnomelibdir)|g" \ -e "s|@libdir\@|$(libdir)|g" \ $< > $@ chmod -w $@ all-local: $(pcifiles) $(pcufiles) gnome-@API_VERSION@.scm install-data-local: Makefile $(mkinstalldirs) $(DESTDIR)$(guilesite) sed -e "s|@API_VERSION\@|@API_VERSION@|g" \ -e "s|@running-uninstalled\@|#f|g" \ -e "s|@guilegnomedir\@|$(guilegnomedir)|g" \ -e "s|@guilegnomelibdir\@|$(guilegnomelibdir)|g" \ -e "s|@libdir\@|$(libdir)|g" \ $(srcdir)/gnome.scm.in > $(DESTDIR)$(guilesite)/gnome-@API_VERSION@.scm chmod 644 $(DESTDIR)$(guilesite)/gnome-@API_VERSION@.scm uninstall-local: rm -f $(DESTDIR)$(moduledir)/config.scm rm -f $(DESTDIR)$(guilesite)/gnome-@API_VERSION@.scm # Tell versions [3.59,3.63) of GNU make to not export all variables. # Otherwise a system limit (for SysV at least) may be exceeded. .NOEXPORT: guile-gnome-platform-2.16.2/glib/bin/0000755000175000017500000000000011752546500017656 5ustar00wingowingo00000000000000guile-gnome-platform-2.16.2/glib/bin/guile-gnome.in0000644000175000017500000000356011670374302022420 0ustar00wingowingo00000000000000#! /bin/sh # Copyright (C) 2004 Free Software Foundation, Inc. # Public domain. # Written by Andy Wingo for guile-gnome. # The purpose of this script is twofold. First, it serves to find # `guile' in the load path instead of statically "linking" to # /usr/bin/guile. Second, it will set up the guile load path and the # library path such that using guile-gnome modules will Just Work. This # is necessary because we might choose to break the application # interfaces in the future, so we need to allow for parallel installs. # Note that the proper way to make a script that will use this as the # interpreter is as follows, removing `# ' on each line: # #! /bin/sh # exec guile-gnome -s $0 "$@" # !# # This will allow the shell to find `guile-gnome' in the path. # Hack around guile-1.6's lack of /usr/local paths in its load-dir. # (Otherwise a user looking for g-wrap / guile-lib installed in # /usr/local will be unpleasantly surprised.) localpath=/usr/local/share/guile/site:/usr/local/share/guile/1.6:/usr/local/share/guile if test "x$GUILE_LOAD_PATH" = "x"; then GUILE_LOAD_PATH="@guilegnomedir@":$localpath else # Because GUILE_LOAD_PATH is essentially a user customization, allow # it to have precedence over $localpath. GUILE_LOAD_PATH="@guilegnomedir@":$GUILE_LOAD_PATH:$localpath fi # Probably will always be necessary to resolve libguile-gnome-gobject # link. if test @libdir@ != /usr/lib -a @libdir@ != /usr/local/lib; then if test "x$LD_LIBRARY_PATH" = "x"; then LD_LIBRARY_PATH=@libdir@ else LD_LIBRARY_PATH=@libdir@:$LD_LIBRARY_PATH fi fi # Can be removed after g-wrap is fixed. if test "x$LD_LIBRARY_PATH" = "x"; then LD_LIBRARY_PATH=@guilegnomelibdir@ else LD_LIBRARY_PATH=@guilegnomelibdir@:$LD_LIBRARY_PATH fi export GUILE_LOAD_PATH LD_LIBRARY_PATH # Taken from autoconf.info, "Portable Shell" case $# in 0) exec guile;; *) exec guile "$@";; esac guile-gnome-platform-2.16.2/glib/bin/Makefile.am0000644000175000017500000000177611670374302021723 0ustar00wingowingo00000000000000include $(top_srcdir)/common.mk bin_SCRIPTS = guile-gnome-@API_VERSION@ all-local: $(bin_SCRIPTS) # tried to get autoconf to do this, but failed. guile-gnome-@API_VERSION@: guile-gnome.in Makefile if test -f $@; then chmod +w $@; fi sed -e "s|@API_VERSION\@|@API_VERSION@|g" \ -e "s|@running-uninstalled\@|#t|g" \ -e "s|@guilegnomedir\@|$(guilegnomedir)|g" \ -e "s|@guilegnomelibdir\@|$(guilegnomelibdir)|g" \ -e "s|@libdir\@|$(libdir)|g" \ $< > $@ chmod +x-w $@ install-exec-local: Makefile @$(NORMAL_INSTALL) test -z "$(bindir)" || $(MKDIR_P) "$(DESTDIR)$(bindir)" sed -e "s|@API_VERSION\@|@API_VERSION@|g" \ -e "s|@running-uninstalled\@|#f|g" \ -e "s|@guilegnomedir\@|$(guilegnomedir)|g" \ -e "s|@guilegnomelibdir\@|$(guilegnomelibdir)|g" \ -e "s|@libdir\@|$(libdir)|g" \ $(srcdir)/guile-gnome.in > $(DESTDIR)$(bindir)/guile-gnome-@API_VERSION@ chmod 755 $(DESTDIR)$(bindir)/guile-gnome-@API_VERSION@ EXTRA_DIST = guile-gnome.in CLEANFILES = $(bin_SCRIPTS) guile-gnome-platform-2.16.2/glib/bin/Makefile.in0000644000175000017500000004433611752520662021736 0ustar00wingowingo00000000000000# Makefile.in generated by automake 1.11.5 from Makefile.am. # @configure_input@ # Copyright (C) 1994, 1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, # 2003, 2004, 2005, 2006, 2007, 2008, 2009, 2010, 2011 Free Software # Foundation, Inc. # This Makefile.in is free software; the Free Software Foundation # gives unlimited permission to copy and/or distribute it, # with or without modifications, as long as this notice is preserved. # This program is distributed in the hope that it will be useful, # but WITHOUT ANY WARRANTY, to the extent permitted by law; without # even the implied warranty of MERCHANTABILITY or FITNESS FOR A # PARTICULAR PURPOSE. @SET_MAKE@ # guile-gnome # Copyright (C) 2003,2004,2009,2012 Free Software Foundation, Inc. # This program is free software; you can redistribute it and/or # modify it under the terms of the GNU General Public License as # published by the Free Software Foundation; either version 2 of # the License, or (at your option) any later version. # This program is distributed in the hope that it will be useful, # but WITHOUT ANY WARRANTY; without even the implied warranty of # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the # GNU General Public License for more details. # You should have received a copy of the GNU General Public License # along with this program; if not, contact: # Free Software Foundation Voice: +1-617-542-5942 # 59 Temple Place - Suite 330 Fax: +1-617-542-2652 # Boston, MA 02111-1307, USA gnu@gnu.org # # Makefile snippet # VPATH = @srcdir@ am__make_dryrun = \ { \ am__dry=no; \ case $$MAKEFLAGS in \ *\\[\ \ ]*) \ echo 'am--echo: ; @echo "AM" OK' | $(MAKE) -f - 2>/dev/null \ | grep '^AM OK$$' >/dev/null || am__dry=yes;; \ *) \ for am__flg in $$MAKEFLAGS; do \ case $$am__flg in \ *=*|--*) ;; \ *n*) am__dry=yes; break;; \ esac; \ done;; \ esac; \ test $$am__dry = yes; \ } pkgdatadir = $(datadir)/@PACKAGE@ pkgincludedir = $(includedir)/@PACKAGE@ pkglibdir = $(libdir)/@PACKAGE@ pkglibexecdir = $(libexecdir)/@PACKAGE@ am__cd = CDPATH="$${ZSH_VERSION+.}$(PATH_SEPARATOR)" && cd install_sh_DATA = $(install_sh) -c -m 644 install_sh_PROGRAM = $(install_sh) -c install_sh_SCRIPT = $(install_sh) -c INSTALL_HEADER = $(INSTALL_DATA) transform = $(program_transform_name) NORMAL_INSTALL = : PRE_INSTALL = : POST_INSTALL = : NORMAL_UNINSTALL = : PRE_UNINSTALL = : POST_UNINSTALL = : build_triplet = @build@ host_triplet = @host@ DIST_COMMON = $(srcdir)/Makefile.am $(srcdir)/Makefile.in \ $(top_srcdir)/common.mk subdir = glib/bin ACLOCAL_M4 = $(top_srcdir)/aclocal.m4 am__aclocal_m4_deps = $(top_srcdir)/configure.ac am__configure_deps = $(am__aclocal_m4_deps) $(CONFIGURE_DEPENDENCIES) \ $(ACLOCAL_M4) mkinstalldirs = $(install_sh) -d CONFIG_HEADER = $(top_builddir)/config.h CONFIG_CLEAN_FILES = CONFIG_CLEAN_VPATH_FILES = am__vpath_adj_setup = srcdirstrip=`echo "$(srcdir)" | sed 's|.|.|g'`; am__vpath_adj = case $$p in \ $(srcdir)/*) f=`echo "$$p" | sed "s|^$$srcdirstrip/||"`;; \ *) f=$$p;; \ esac; am__strip_dir = f=`echo $$p | sed -e 's|^.*/||'`; am__install_max = 40 am__nobase_strip_setup = \ srcdirstrip=`echo "$(srcdir)" | sed 's/[].[^$$\\*|]/\\\\&/g'` am__nobase_strip = \ for p in $$list; do echo "$$p"; done | sed -e "s|$$srcdirstrip/||" am__nobase_list = $(am__nobase_strip_setup); \ for p in $$list; do echo "$$p $$p"; done | \ sed "s| $$srcdirstrip/| |;"' / .*\//!s/ .*/ ./; s,\( .*\)/[^/]*$$,\1,' | \ $(AWK) 'BEGIN { files["."] = "" } { files[$$2] = files[$$2] " " $$1; \ if (++n[$$2] == $(am__install_max)) \ { print $$2, files[$$2]; n[$$2] = 0; files[$$2] = "" } } \ END { for (dir in files) print dir, files[dir] }' am__base_list = \ sed '$$!N;$$!N;$$!N;$$!N;$$!N;$$!N;$$!N;s/\n/ /g' | \ sed '$$!N;$$!N;$$!N;$$!N;s/\n/ /g' am__uninstall_files_from_dir = { \ test -z "$$files" \ || { test ! -d "$$dir" && test ! -f "$$dir" && test ! -r "$$dir"; } \ || { echo " ( cd '$$dir' && rm -f" $$files ")"; \ $(am__cd) "$$dir" && rm -f $$files; }; \ } am__installdirs = "$(DESTDIR)$(bindir)" SCRIPTS = $(bin_SCRIPTS) SOURCES = DIST_SOURCES = am__can_run_installinfo = \ case $$AM_UPDATE_INFO_DIR in \ n|no|NO) false;; \ *) (install-info --version) >/dev/null 2>&1;; \ esac DISTFILES = $(DIST_COMMON) $(DIST_SOURCES) $(TEXINFOS) $(EXTRA_DIST) ACLOCAL = @ACLOCAL@ AG_PKG_CONFIG_PATH = @AG_PKG_CONFIG_PATH@ AMTAR = @AMTAR@ API_VERSION = @API_VERSION@ AR = @AR@ ATK_CFLAGS = @ATK_CFLAGS@ ATK_LIBS = @ATK_LIBS@ AUTOCONF = @AUTOCONF@ AUTOHEADER = @AUTOHEADER@ AUTOMAKE = @AUTOMAKE@ AWK = @AWK@ BONOBO_IDL_DIR = @BONOBO_IDL_DIR@ CANVAS_CFLAGS = @CANVAS_CFLAGS@ CANVAS_LIBS = @CANVAS_LIBS@ CC = @CC@ CCDEPMODE = @CCDEPMODE@ CFLAGS = @CFLAGS@ CORBA_CFLAGS = @CORBA_CFLAGS@ CORBA_LIBS = @CORBA_LIBS@ CPP = @CPP@ CPPFLAGS = @CPPFLAGS@ CYGPATH_W = @CYGPATH_W@ DEFS = @DEFS@ DEPDIR = @DEPDIR@ DLLTOOL = @DLLTOOL@ DSYMUTIL = @DSYMUTIL@ DUMPBIN = @DUMPBIN@ ECHO_C = @ECHO_C@ ECHO_N = @ECHO_N@ ECHO_T = @ECHO_T@ EGREP = @EGREP@ EXEEXT = @EXEEXT@ FGREP = @FGREP@ GCONF_CFLAGS = @GCONF_CFLAGS@ GCONF_LIBS = @GCONF_LIBS@ GDK_CFLAGS = @GDK_CFLAGS@ GDK_LIBS = @GDK_LIBS@ GDK_PIXBUF_CFLAGS = @GDK_PIXBUF_CFLAGS@ GDK_PIXBUF_LIBS = @GDK_PIXBUF_LIBS@ GLIB_CFLAGS = @GLIB_CFLAGS@ GLIB_LIBS = @GLIB_LIBS@ GNOMEUI_DEPRECATION_FLAGS = @GNOMEUI_DEPRECATION_FLAGS@ GNOME_VFS_CFLAGS = @GNOME_VFS_CFLAGS@ GNOME_VFS_DEPRECATED_CFLAGS = @GNOME_VFS_DEPRECATED_CFLAGS@ GNOME_VFS_LIBS = @GNOME_VFS_LIBS@ GOBJECT_CFLAGS = @GOBJECT_CFLAGS@ GOBJECT_LIBS = @GOBJECT_LIBS@ GREP = @GREP@ GTHREAD_CFLAGS = @GTHREAD_CFLAGS@ GTHREAD_LIBS = @GTHREAD_LIBS@ GTK_CFLAGS = @GTK_CFLAGS@ GTK_DEPRECATED_CFLAGS = @GTK_DEPRECATED_CFLAGS@ GTK_LIBS = @GTK_LIBS@ GUILE_CAIRO_CFLAGS = @GUILE_CAIRO_CFLAGS@ GUILE_CAIRO_LIBS = @GUILE_CAIRO_LIBS@ GUILE_CFLAGS = @GUILE_CFLAGS@ GUILE_EFFECTIVE_VERSION = @GUILE_EFFECTIVE_VERSION@ GUILE_GLIB_CFLAGS = @GUILE_GLIB_CFLAGS@ GUILE_GLIB_LIBS = @GUILE_GLIB_LIBS@ GUILE_LIBS = @GUILE_LIBS@ G_WRAP_CFLAGS = @G_WRAP_CFLAGS@ G_WRAP_LIBS = @G_WRAP_LIBS@ G_WRAP_LIB_DIR = @G_WRAP_LIB_DIR@ G_WRAP_MODULE_DIR = @G_WRAP_MODULE_DIR@ INSTALL = @INSTALL@ INSTALL_DATA = @INSTALL_DATA@ INSTALL_PROGRAM = @INSTALL_PROGRAM@ INSTALL_SCRIPT = @INSTALL_SCRIPT@ INSTALL_STRIP_PROGRAM = @INSTALL_STRIP_PROGRAM@ LD = @LD@ LDFLAGS = @LDFLAGS@ LIBGLADE_CFLAGS = @LIBGLADE_CFLAGS@ LIBGLADE_LIBS = @LIBGLADE_LIBS@ LIBGNOMEUI_CFLAGS = @LIBGNOMEUI_CFLAGS@ LIBGNOMEUI_LIBS = @LIBGNOMEUI_LIBS@ LIBGNOME_CFLAGS = @LIBGNOME_CFLAGS@ LIBGNOME_LIBS = @LIBGNOME_LIBS@ LIBOBJS = @LIBOBJS@ LIBS = @LIBS@ LIBTOOL = @LIBTOOL@ LIPO = @LIPO@ LN_S = @LN_S@ LTLIBOBJS = @LTLIBOBJS@ MAKEINFO = @MAKEINFO@ MANIFEST_TOOL = @MANIFEST_TOOL@ MKDIR_P = @MKDIR_P@ NM = @NM@ NMEDIT = @NMEDIT@ OBJDUMP = @OBJDUMP@ OBJEXT = @OBJEXT@ ORBIT_IDL = @ORBIT_IDL@ OTOOL = @OTOOL@ OTOOL64 = @OTOOL64@ PACKAGE = @PACKAGE@ PACKAGE_BUGREPORT = @PACKAGE_BUGREPORT@ PACKAGE_NAME = @PACKAGE_NAME@ PACKAGE_STRING = @PACKAGE_STRING@ PACKAGE_TARNAME = @PACKAGE_TARNAME@ PACKAGE_URL = @PACKAGE_URL@ PACKAGE_VERSION = @PACKAGE_VERSION@ PANGOCAIRO_CFLAGS = @PANGOCAIRO_CFLAGS@ PANGOCAIRO_LIBS = @PANGOCAIRO_LIBS@ PANGO_CFLAGS = @PANGO_CFLAGS@ PANGO_LIBS = @PANGO_LIBS@ PATH_SEPARATOR = @PATH_SEPARATOR@ PKG_CONFIG = @PKG_CONFIG@ PKG_CONFIG_LIBDIR = @PKG_CONFIG_LIBDIR@ PKG_CONFIG_PATH = @PKG_CONFIG_PATH@ RANLIB = @RANLIB@ SED = @SED@ SET_MAKE = @SET_MAKE@ SHELL = @SHELL@ STRIP = @STRIP@ VERSION = @VERSION@ WARN_CFLAGS = @WARN_CFLAGS@ abs_builddir = @abs_builddir@ abs_srcdir = @abs_srcdir@ abs_top_builddir = @abs_top_builddir@ abs_top_srcdir = @abs_top_srcdir@ ac_ct_AR = @ac_ct_AR@ ac_ct_CC = @ac_ct_CC@ ac_ct_DUMPBIN = @ac_ct_DUMPBIN@ am__include = @am__include@ am__leading_dot = @am__leading_dot@ am__quote = @am__quote@ am__tar = @am__tar@ am__untar = @am__untar@ bindir = @bindir@ build = @build@ build_alias = @build_alias@ build_cpu = @build_cpu@ build_os = @build_os@ build_vendor = @build_vendor@ builddir = @builddir@ datadir = @datadir@ datarootdir = @datarootdir@ docdir = @docdir@ dvidir = @dvidir@ exec_prefix = @exec_prefix@ host = @host@ host_alias = @host_alias@ host_cpu = @host_cpu@ host_os = @host_os@ host_vendor = @host_vendor@ htmldir = @htmldir@ includedir = @includedir@ infodir = @infodir@ install_sh = @install_sh@ libdir = @libdir@ libexecdir = @libexecdir@ localedir = @localedir@ localstatedir = @localstatedir@ mandir = @mandir@ mkdir_p = @mkdir_p@ oldincludedir = @oldincludedir@ pdfdir = @pdfdir@ prefix = @prefix@ program_transform_name = @program_transform_name@ psdir = @psdir@ sbindir = @sbindir@ sharedstatedir = @sharedstatedir@ srcdir = @srcdir@ sysconfdir = @sysconfdir@ target_alias = @target_alias@ top_build_prefix = @top_build_prefix@ top_builddir = @top_builddir@ top_srcdir = @top_srcdir@ guilegnomedir = $(datadir)/guile-gnome-@API_VERSION@ guilemoduledir = $(guilegnomedir)/gnome guilegwmoduledir = $(guilegnomedir)/gnome/gw guilegnomelibdir = $(libdir)/guile-gnome-@API_VERSION@ AM_CFLAGS = -I. -I$(srcdir) $(WARN_CFLAGS) $(DEBUG_CFLAGS) # For overriding from the command line (e.g. --debug) GUILE_FLAGS = SUFFIXES = .x .doc GUILE_SNARF_CFLAGS = $(DEFS) $(AM_CFLAGS) $(GUILE_CFLAGS) $(G_WRAP_CFLAGS) PACKAGES = atk cairo corba defs gconf glib gnome-vfs gtk libglade libgnome libgnomecanvas libgnomeui pango SOURCE_GUILE_PATH = $(shell echo $(addprefix $(top_srcdir)/,$(PACKAGES)) | sed -e 's/ /:/g'):$(srcdir) BUILD_GUILE_PATH = $(if $(filter-out $(top_srcdir),$(top_builddir)),$(shell echo -n $(addprefix $(top_builddir)/,$(PACKAGES)): | sed -e 's/ /:/g'),) GUILE_LOAD_PATH := $(BUILD_GUILE_PATH)$(SOURCE_GUILE_PATH):${G_WRAP_MODULE_DIR}:${GUILE_LOAD_PATH} # Real gnu make foo packages = $(filter-out %-uninstalled,$(patsubst %.pc.in,%,$(notdir $(wildcard $(srcdir)/*.pc.in)))) pcifiles = $(patsubst %,%-@API_VERSION@.pc,$(packages)) pcufiles = $(patsubst %,%-@API_VERSION@-uninstalled.pc,$(packages)) bin_SCRIPTS = guile-gnome-@API_VERSION@ EXTRA_DIST = guile-gnome.in CLEANFILES = $(bin_SCRIPTS) all: all-am .SUFFIXES: .SUFFIXES: .x .doc .c $(srcdir)/Makefile.in: $(srcdir)/Makefile.am $(top_srcdir)/common.mk $(am__configure_deps) @for dep in $?; do \ case '$(am__configure_deps)' in \ *$$dep*) \ ( cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh ) \ && { if test -f $@; then exit 0; else break; fi; }; \ exit 1;; \ esac; \ done; \ echo ' cd $(top_srcdir) && $(AUTOMAKE) --gnu glib/bin/Makefile'; \ $(am__cd) $(top_srcdir) && \ $(AUTOMAKE) --gnu glib/bin/Makefile .PRECIOUS: Makefile Makefile: $(srcdir)/Makefile.in $(top_builddir)/config.status @case '$?' in \ *config.status*) \ cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh;; \ *) \ echo ' cd $(top_builddir) && $(SHELL) ./config.status $(subdir)/$@ $(am__depfiles_maybe)'; \ cd $(top_builddir) && $(SHELL) ./config.status $(subdir)/$@ $(am__depfiles_maybe);; \ esac; $(top_srcdir)/common.mk: $(top_builddir)/config.status: $(top_srcdir)/configure $(CONFIG_STATUS_DEPENDENCIES) cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh $(top_srcdir)/configure: $(am__configure_deps) cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh $(ACLOCAL_M4): $(am__aclocal_m4_deps) cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh $(am__aclocal_m4_deps): install-binSCRIPTS: $(bin_SCRIPTS) @$(NORMAL_INSTALL) @list='$(bin_SCRIPTS)'; test -n "$(bindir)" || list=; \ if test -n "$$list"; then \ echo " $(MKDIR_P) '$(DESTDIR)$(bindir)'"; \ $(MKDIR_P) "$(DESTDIR)$(bindir)" || exit 1; \ fi; \ for p in $$list; do \ if test -f "$$p"; then d=; else d="$(srcdir)/"; fi; \ if test -f "$$d$$p"; then echo "$$d$$p"; echo "$$p"; else :; fi; \ done | \ sed -e 'p;s,.*/,,;n' \ -e 'h;s|.*|.|' \ -e 'p;x;s,.*/,,;$(transform)' | sed 'N;N;N;s,\n, ,g' | \ $(AWK) 'BEGIN { files["."] = ""; dirs["."] = 1; } \ { d=$$3; if (dirs[d] != 1) { print "d", d; dirs[d] = 1 } \ if ($$2 == $$4) { files[d] = files[d] " " $$1; \ if (++n[d] == $(am__install_max)) { \ print "f", d, files[d]; n[d] = 0; files[d] = "" } } \ else { print "f", d "/" $$4, $$1 } } \ END { for (d in files) print "f", d, files[d] }' | \ while read type dir files; do \ if test "$$dir" = .; then dir=; else dir=/$$dir; fi; \ test -z "$$files" || { \ echo " $(INSTALL_SCRIPT) $$files '$(DESTDIR)$(bindir)$$dir'"; \ $(INSTALL_SCRIPT) $$files "$(DESTDIR)$(bindir)$$dir" || exit $$?; \ } \ ; done uninstall-binSCRIPTS: @$(NORMAL_UNINSTALL) @list='$(bin_SCRIPTS)'; test -n "$(bindir)" || exit 0; \ files=`for p in $$list; do echo "$$p"; done | \ sed -e 's,.*/,,;$(transform)'`; \ dir='$(DESTDIR)$(bindir)'; $(am__uninstall_files_from_dir) mostlyclean-libtool: -rm -f *.lo clean-libtool: -rm -rf .libs _libs tags: TAGS TAGS: ctags: CTAGS CTAGS: distdir: $(DISTFILES) @srcdirstrip=`echo "$(srcdir)" | sed 's/[].[^$$\\*]/\\\\&/g'`; \ topsrcdirstrip=`echo "$(top_srcdir)" | sed 's/[].[^$$\\*]/\\\\&/g'`; \ list='$(DISTFILES)'; \ dist_files=`for file in $$list; do echo $$file; done | \ sed -e "s|^$$srcdirstrip/||;t" \ -e "s|^$$topsrcdirstrip/|$(top_builddir)/|;t"`; \ case $$dist_files in \ */*) $(MKDIR_P) `echo "$$dist_files" | \ sed '/\//!d;s|^|$(distdir)/|;s,/[^/]*$$,,' | \ sort -u` ;; \ esac; \ for file in $$dist_files; do \ if test -f $$file || test -d $$file; then d=.; else d=$(srcdir); fi; \ if test -d $$d/$$file; then \ dir=`echo "/$$file" | sed -e 's,/[^/]*$$,,'`; \ if test -d "$(distdir)/$$file"; then \ find "$(distdir)/$$file" -type d ! -perm -700 -exec chmod u+rwx {} \;; \ fi; \ if test -d $(srcdir)/$$file && test $$d != $(srcdir); then \ cp -fpR $(srcdir)/$$file "$(distdir)$$dir" || exit 1; \ find "$(distdir)/$$file" -type d ! -perm -700 -exec chmod u+rwx {} \;; \ fi; \ cp -fpR $$d/$$file "$(distdir)$$dir" || exit 1; \ else \ test -f "$(distdir)/$$file" \ || cp -p $$d/$$file "$(distdir)/$$file" \ || exit 1; \ fi; \ done check-am: all-am check: check-am all-am: Makefile $(SCRIPTS) all-local installdirs: for dir in "$(DESTDIR)$(bindir)"; do \ test -z "$$dir" || $(MKDIR_P) "$$dir"; \ done install: install-am install-exec: install-exec-am install-data: install-data-am uninstall: uninstall-am install-am: all-am @$(MAKE) $(AM_MAKEFLAGS) install-exec-am install-data-am installcheck: installcheck-am install-strip: if test -z '$(STRIP)'; then \ $(MAKE) $(AM_MAKEFLAGS) INSTALL_PROGRAM="$(INSTALL_STRIP_PROGRAM)" \ install_sh_PROGRAM="$(INSTALL_STRIP_PROGRAM)" INSTALL_STRIP_FLAG=-s \ install; \ else \ $(MAKE) $(AM_MAKEFLAGS) INSTALL_PROGRAM="$(INSTALL_STRIP_PROGRAM)" \ install_sh_PROGRAM="$(INSTALL_STRIP_PROGRAM)" INSTALL_STRIP_FLAG=-s \ "INSTALL_PROGRAM_ENV=STRIPPROG='$(STRIP)'" install; \ fi mostlyclean-generic: clean-generic: -test -z "$(CLEANFILES)" || rm -f $(CLEANFILES) distclean-generic: -test -z "$(CONFIG_CLEAN_FILES)" || rm -f $(CONFIG_CLEAN_FILES) -test . = "$(srcdir)" || test -z "$(CONFIG_CLEAN_VPATH_FILES)" || rm -f $(CONFIG_CLEAN_VPATH_FILES) maintainer-clean-generic: @echo "This command is intended for maintainers to use" @echo "it deletes files that may require special tools to rebuild." clean: clean-am clean-am: clean-generic clean-libtool mostlyclean-am distclean: distclean-am -rm -f Makefile distclean-am: clean-am distclean-generic dvi: dvi-am dvi-am: html: html-am html-am: info: info-am info-am: install-data-am: install-dvi: install-dvi-am install-dvi-am: install-exec-am: install-binSCRIPTS install-exec-local install-html: install-html-am install-html-am: install-info: install-info-am install-info-am: install-man: install-pdf: install-pdf-am install-pdf-am: install-ps: install-ps-am install-ps-am: installcheck-am: maintainer-clean: maintainer-clean-am -rm -f Makefile maintainer-clean-am: distclean-am maintainer-clean-generic mostlyclean: mostlyclean-am mostlyclean-am: mostlyclean-generic mostlyclean-libtool pdf: pdf-am pdf-am: ps: ps-am ps-am: uninstall-am: uninstall-binSCRIPTS .MAKE: install-am install-strip .PHONY: all all-am all-local check check-am clean clean-generic \ clean-libtool distclean distclean-generic distclean-libtool \ distdir dvi dvi-am html html-am info info-am install \ install-am install-binSCRIPTS install-data install-data-am \ install-dvi install-dvi-am install-exec install-exec-am \ install-exec-local install-html install-html-am install-info \ install-info-am install-man install-pdf install-pdf-am \ install-ps install-ps-am install-strip installcheck \ installcheck-am installdirs maintainer-clean \ maintainer-clean-generic mostlyclean mostlyclean-generic \ mostlyclean-libtool pdf pdf-am ps ps-am uninstall uninstall-am \ uninstall-binSCRIPTS export GUILE_LOAD_PATH .c.x: guile-snarf $(GUILE_SNARF_CFLAGS) $< > $@ \ || { rm $@; false; } .c.doc: $(CPP) -DSCM_MAGIC_SNARF_DOCS $(GUILE_SNARF_CFLAGS) $< \ | grep -E '(\^\^ {|\^\^ })' > $@ || { rm $@; false; } %.scm guile-gnome-gw-%.c: %-spec.scm guile $(GUILE_FLAGS) -c \ "(debug-set! stack 400000) \ (use-modules (gnome-@API_VERSION@)) \ (use-modules (g-wrap)) \ (use-modules (gnome gw $*-spec)) \ (generate-wrapset 'guile 'gnome-$* \"guile-gnome-gw-$*\")" mv guile-gnome-gw-$*.scm $*.scm %-@API_VERSION@.pc: %.pc cp $< $@ %-@API_VERSION@-uninstalled.pc: %-uninstalled.pc cp $< $@ all-local: $(bin_SCRIPTS) # tried to get autoconf to do this, but failed. guile-gnome-@API_VERSION@: guile-gnome.in Makefile if test -f $@; then chmod +w $@; fi sed -e "s|@API_VERSION\@|@API_VERSION@|g" \ -e "s|@running-uninstalled\@|#t|g" \ -e "s|@guilegnomedir\@|$(guilegnomedir)|g" \ -e "s|@guilegnomelibdir\@|$(guilegnomelibdir)|g" \ -e "s|@libdir\@|$(libdir)|g" \ $< > $@ chmod +x-w $@ install-exec-local: Makefile @$(NORMAL_INSTALL) test -z "$(bindir)" || $(MKDIR_P) "$(DESTDIR)$(bindir)" sed -e "s|@API_VERSION\@|@API_VERSION@|g" \ -e "s|@running-uninstalled\@|#f|g" \ -e "s|@guilegnomedir\@|$(guilegnomedir)|g" \ -e "s|@guilegnomelibdir\@|$(guilegnomelibdir)|g" \ -e "s|@libdir\@|$(libdir)|g" \ $(srcdir)/guile-gnome.in > $(DESTDIR)$(bindir)/guile-gnome-@API_VERSION@ chmod 755 $(DESTDIR)$(bindir)/guile-gnome-@API_VERSION@ # Tell versions [3.59,3.63) of GNU make to not export all variables. # Otherwise a system limit (for SysV at least) may be exceeded. .NOEXPORT: guile-gnome-platform-2.16.2/glib/NEWS.guile-gobject0000644000175000017500000000613611670374302022330 0ustar00wingowingo00000000000000-*- text -*- 23 July 2003 - Andy Wingo : =================================================== * Released guile-gobject 0.5.3. Guile-gobject is pretty stable now -- the author is stress-testing it in a few applications of his own. Changes in this release are as follows: - gw-standard is now distributed as (gnome gobject gw-standard), which allows guile-gobject to be distributed without modifications to other packages. (some other things here!) 1 July 2003 - Andy Wingo : ================================================== * Released guile-gobject 0.5.2. guile-gobject is now in CVS over at savannah, as the guile-gobject module in the guile-gtk project. Changes in this release are as follows: - override the proper method in example-1.scm - rewrite tic-tac-toe.scm to be a nice demo of subclassing GObjects, with let-params - create idle sources with G_PRIORITY_DEFAULT_IDLE, not G_PRIORITY_DEFAULT -- thanks to owen taylor - make commentary of gobject.scm help-compliant - move pspec arg details to primitives.scm - add support for setting pspec-flags when making a new pspec - change prototypes for gobject:{get,set}-property to be sane and easily overridable - new syntax: define-gobject-class - new syntax: let-params - add null-ok to some glib function parameters - gparam-spec:args actually returns the args, zipped up with their corresponding keywords - new procedure: gobject:gwrap-set-all-types-used - made gtype-instances have a 1 to 1 correspondence with their GTypeInstance counterparts - generalized equal? to work on objects - put generics in the root module, for better or for worse - wrap GTypeClasses so we can wrap class methods - new variable: gruntime:byte-order - add gtype-class slot to all gtype-instances (set-once) - added some files that were in the old CVS but not in releases 2 June 2003 - Andy Wingo : ================================================== * Released guile-gobject 0.5.1 "Efudho". Changes in this release are as follows: - changes in defs support - always ref objects returned unless (caller-owns-return #t) is present in the defs - don't allow NULL values unless (null-ok) is present in the defs parameter specification - gobject.scm - better enum support in make-value-from-scm - make objects of the proper type in gvalue->scm May 2003 - Andy Wingo : =============================================== * Released guile-gobject 0.5.0 "Out of Africa". Please see the RELEASE-NOTES-0.5.0.txt file for details. January 28, 2001 - Ariel Rios : ============================================== * Released guile-gobject 0.3.0 "Otello" Guile-gobject is now the base for gnome-guile. Updates for latest GNOME 2 changes. September 10, 2001 - Martin Baulig : ====================================================== * Released guile-gobject 0.2.0 "The Great Barrier Reef". Please see the RELEASE-NOTES-0.2.0.txt file for details. guile-gnome-platform-2.16.2/glib/README0000644000175000017500000000162211670374302017765 0ustar00wingowingo00000000000000guile-gnome-glib README Copyright (C) 2004 Free Software Foundation, Inc. See the end for copying conditions of this file. Last updated 16 September 2004. About guile-gnome-glib ===================== guile-gnome-glib is a Guile wrapper for GLib and GObject. It also includes a bindings generator based on G-Wrap. It is a part of GNU guile-gnome. See the README file in the toplevel source directory for more information. Build dependencies ================== Besides the base guile-gnome requirements given in ../README, guile-gnome-glib requires GLib development packages. guile-gnome-glib depends on the following guile-gnome modules: defs. Copying this file ================= Copyright (C) 2004 Free Software Foundation, Inc. Copying and distribution of this file, with or without modification, are permitted in any medium without royalty provided the copyright notice and this notice are preserved. guile-gnome-platform-2.16.2/glib/AUTHORS0000644000175000017500000000622011670374302020154 0ustar00wingowingo00000000000000To find out what should go in this file, see "Information For Maintainers of GNU Software" (maintain.texi), the section called "Recording Changes". *Note*: After version 0.5.3, in the gnome/gobject folder, the guile-gnome-gobject wrapper was split into six pieces: gobject, gtype, gvalue, gparameter, gsignal, and gclosure. Each piece has one C file, one C header, and one SCM file. Changes are given below relative to the new names. Martin Baulig: wrote the first version of guile-gobject, off of which guile-gnome-glib is based. Much of his code still exists in the GObject wrapper: In the directory gnome/gobject, initial version of: gobject.c gtype.c gvalue.c gparameter.c gsignal.c gclosure.c gobject.h gtype.h gvalue.h gparameter.h gsignal.h gclosure.h gobject.scm gtype.scm gvalue.scm gparameter.scm gsignal.scm gclosure.scm In the directory gnome/gw, wrote: gobject-spec.scm In the directory test-suite, wrote: gobject.test Dirk Herrmann: In the subdirectory test-suite, wrote: lib.scm Thien-Thi Nguyen: In the subdirectory test-suite, changes to: guile-test lib.scm Ariel Rios: Maintained guile-gobject for versions 0.3.0 and 0.4.0. In the directory gnome/gobject, changes to: gobject.c gtype.c gvalue.c gparameter.c gsignal.c gclosure.c gobject.h gtype.h gvalue.h gparameter.h gsignal.h gclosure.h gobject.scm gtype.scm gvalue.scm gparameter.scm gsignal.scm gclosure.scm Andy Wingo: In the directory gnome/gobject, extensive changes to: gobject.c gtype.c gvalue.c gparameter.c gsignal.c gclosure.c gobject.h gtype.h gvalue.h gparameter.h gsignal.h gclosure.h gobject.scm gtype.scm gvalue.scm gparameter.scm gsignal.scm gclosure.scm In the directory gnome/gobject, wrote: generics.scm config.scm.in In the directory gnome/gw/support, wrote: defs.scm gobject.scm util.scm slib.scm In the directory gnome/gw, wrote: glib-spec.scm glib-support.c glib-support.h In the directory gnome, wrote: gobject.scm glib.scm In the toplevel directory, wrote: WARTS THREADING REFCOUNTING TODO In the directory examples, wrote: example-1.scm main-loop.scm In the directory bin, wrote: guile-gnome.in Many other changes throughout. Marius Vollmer: In the directory gnome/gobject, wrote: event-repl.scm Andreas Rottmann: In the directory gnome/gw, changes to: glib-spec.scm gobject-spec.scm glib-support.c glib-support.h In the directory gnome/gw/support, changes to: defs.scm gobject.scm In the directory gnome, changes to: glib.scm In the directory test-suite, wrote: gw-test-glib-spec.scm exceptions.scm test-gobject.c test-gobject.c test-gobject.defs test-glib.c test-glib.h test-glib.defs gw-test-glib-spec.scm gw-glib.test gw-gobject.test guile-test-env In the directory test-suite, changes to: gobject.test guile-gobject-test Jim Blandy: In the directory test-suite, wrote: guile-gobject-test Marc Feeley: In the directory gnome/gw/support, wrote: genwrite.scm Radey Shouman: In the directory gnome/gw/support, wrote: glob.scm printf.scm Aubrey Jaffer: In the directory gnome/gw/support, changes to: printf.scm guile-gnome-platform-2.16.2/glib/ChangeLog.pre-2.160000644000175000017500000036565411670374302022052 0ustar00wingowingo000000000000002008-05-01 Andy Wingo * gnome/gw/support/defs.scm (load-defs): Remove the bad-method-name tracking code, as we no longer write logs. 2008-04-27 Andy Wingo * gnome/gw/support/defs.scm: Flesh out docs, from the tutorial. (load-defs): Remove logfile-writing foo. * gnome/gobject/generics.scm: Fix docs. * gnome/gobject.scm: Add tutorial-style docs to the module commentary, taken from the tutorial. * gnome.scm.in: Add the API_VERSION docs from the tutorial into the gnome-N module commentary, so they will end up in the reference documentation. * doc/gobject/guile-gnome-gobject.scm: Add a type index. Add (gnome-2) and (gnome gobject). 2008-04-25 Andy Wingo * == Released guile-gnome-platform version 2.15.98 == 2008-04-25 Andy Wingo * VERSION: Bumped to 2.15.98. 2008-04-25 Andy Wingo * test-suite/wrapset.api: Regenerate. * test-suite/gobject.api: Regenerate. * examples/main-loop.scm: * examples/example-1.scm: Update examples to gnome-2. * gnome/gw/support/gtk-doc.scm (zap-whitespace) (docbook->sdocbook): Zap any whitespace-only strings coming out of xml->sxml. (class-signal-stexi-docs): Only doc the class' own signals. (gobject-class-stexi-docs): Reword. * gnome/gobject/gsignal.c (gtype-class-get-signals): Only query instantiatable types. * gnome/gobject/gparameter.scm (): Allow #f for the element-spec. (): * gnome/gobject/gparameter.c (scm_c_gparam_initialize_scm) (scm_c_gparam_construct): Re-add unichar param support. * gnome/gobject/gobject.scm (compute-slots): A bit of a hack to make sure that the direct-slots slot mentions the GObject properties. (): Change to accept as well. * doc/gobject/guile-gnome-gobject.texi: Update version. * doc/gobject/guile-gnome-gobject.scm (*updated*, *version*) (*years*); Updated. * doc/glib/defuns-*.texi: Regenerated. Lost the whitespace due to change in gtk-doc.scm. 2008-04-25 Andy Wingo * gnome/gw/support/gtk-doc.scm (gobject-class-stexi-docs): Cope with gw:wct, which is not a . Sigh. * gnome/gobject/gtype.h: Remove unimplemented foo * gnome/gobject/gtype.c (gtype-instance-destroy!): Renamed from %gtype-instance-destroy!, because really it's not that private; its semantics are necessary. (especify-metaclass!): Removed, as the only user -- -- was fixed. yay1 * gnome/gw/support/gtk-doc.scm: * gnome/gobject/gvalue.scm: (): * gnome/gobject/gvalue.c (genum-register-static) (gflags-register-static): * gnome/gobject/gtype.scm: * gnome/gobject/gtype.c (gtype-name->class): * gnome/gobject/gsignal.scm: (gtype-class-create-signal): * gnome/gobject/gparameter.scm: * gnome/gobject/gobject.scm () (gobject-class-find-property): * gnome/gobject/gclosure.scm: Updated docs. * doc/glib/defuns-*.texi: Regenerated. Lots of extra crap whitespace because SSAX changed to not ignore whitespace-only strings. 2008-04-24 Andy Wingo * test-suite/gobject.test ("gflags values"): Add test for scm_c_scm_to_flags_value fix. * gnome/gobject/gvalue.c (scm_c_gvalue_ref): Whoops, handle the string-is-null case. (scm_c_scm_to_flags_value): Accept single 'foo or "foo" to mean '(foo) or '("foo"), respectively. Thanks to Gregory Benison for the report. * gnome/gobject/guile-support.h: * gnome/gobject/guile-support.c (scm_symbol_chars) (scm_symbol_chars_dynwind, scm_keyword_chars) (scm_keyword_chars_dynwind): New functions. * gnome/gobject/gvalue.c (scm_c_gvalue_ref, scm_c_gvalue_set) (scm_c_scm_to_enum_value, scm_c_scm_to_flags_value) (unwrap_gvalue_array, genum-register-static) (genum-class->value-table, gflags-register-static) (gflags-class->value-table): * gnome/gobject/gsignal.c (gsignal-query, gsignal-create) (gtype-instance-signal-emit) (gtype-instance-signal-connect-closure): * gnome/gobject/gparameter.c (SCM_ERROR_NOT_YET_IMPLEMENTED): Fix deprecation warnings. * gnome/gobject/gobject.c (gobject-get-data, gobject-set-data!): Remove unused functions. (scm_c_gobject_construct) (scm_with_c_gtype_instance_instance_init, gobject-get-property) (gobject-set-property) (SCM_DEFINE): Fix deprecation warnings. Untabify the file. 2008-04-10 Andy Wingo * == Released guile-gnome-platform version 2.15.97 == 2008-04-10 Andy Wingo * VERSION: Bumped to 2.15.97. 2008-04-10 Andy Wingo * NEWS: Update NEWS. 2008-04-10 Andy Wingo * gnome/gobject/gvalue.c: * gnome/gobject/gtype.c: * gnome/gobject/gsignal.c (scm_c_gsignal_query): * gnome/gobject/gparameter.c: * gnome/gobject/gobject.c: Disable debugging printouts. * gnome/gobject/gtype.c (scm_c_gtype_class_to_gtype) (scm_c_scm_to_gtype_instance): Avoid scm_slot_ref on 'u' slots on broken versions of Guile. * gnome/gobject/gparameter.scm (compute-get-n-set): Use our new %hacky-* struct accessors. (The accessors are not exported.) * gnome/gobject/gparameter.c (scm_sys_hacky_struct_ref) (scm_sys_hacky_struct_set_x): New functions, equivalent to struct-ref and struct-set! from guile, except that they don't check permissions or allocation, because we know them, and, more crucially, they understand how to calculate n_fields for the so-called "light structs". Should be unnecessary once the patches submitted to guile-devel on 10 April 2008 are accepted. Reminiscent of %get-struct-slot and %set-struct-slot! from gtype.c before my rewrite, which were probably written in part to compensate for this problem, under the haze of ignorance. 2008-04-09 Andy Wingo * gnome/gobject/gtype.c (%gtype-class-bind) (%gtype-class-inherit-magic) * gnome/gobject/gtype.scm (initialize on ): We do need to bind the gtype to the class before calling next-method, but also we have to munge the class' free function after the next-method. Therefore split %gtype-class-inherit-magic out of %gtype-class-bind. Fixes things not being freed because the base %inherit-magic overwrite our struct free function. * test-suite/gobject.test ("genum values", "gflags values"): Add some tests. * gnome/gobject/gvalue.scm: (gflags->element-list, genum->enum): Use the ->value functions defined in C. * gnome/gobject/gvalue.c (scm_c_gvalue_ref): Don't turn and values into ints, leave them as gvalues. (genum->value, gflags->value): Implemented in C. The latter function is new. * gnome/gobject/private.h: * gnome/gobject/gtype.c (scm_sys_gtype_instance_construct): Export scm_c_gtype_instance_bind_to_object instead. Allow for the possibility that construct() bound the instance. * gnome/gobject/gobject.c (scm_with_c_gtype_instance_instance_init): Use bind_to_object; the incomplete set_cached() is insufficient if e.g. the gobject:set-property calls API on the object. * test-suite/gobject.test ("defining custom gobject type"): Add a test for the construct arg behaviour. * gnome/gobject/private.h: * gnome/gobject/gtype.c (scm_c_gtype_instance_set_cached): Expose this internal piece to gobject.c. * gnome/gobject/gobject.c (push_in_construction_from_scheme) (pop_in_construction_from_scheme, in_construction_from_scheme): Keep a stack of SCM objects under construction. (scm_with_c_gtype_instance_instance_init): If there is an object under construction, associate it with the GTypeInstance*, so that gobject:set-property calls for construct properties see the same SCM as the one under construction. * gnome/gobject/gvalue.scm (, ): * gnome/gobject/gclosure.scm (): Inherit from , because that's how they roll. 2008-04-08 Andy Wingo * gnome/gobject/gtype.h: * gnome/gobject/gtype.c: Rewrite to never expose GTypes on the Scheme side, rather wrapping GTypes directly as instances. The GType is stored in a , which stores a raw (untagged) word -- the perfect size for a GType. Hence much gtype<->class API has been removed. Because a GType is isomorphic to GTypeClass*, the <%gtype-class> smob is also gone. On the instance side, I also removed the need for <%gtype-instance> smobs as well, through interesting trickery: the GOOPS objects directly store the GTypeInstance* pointer in a , as with the instances. The trickery is that we can be notified when the struct is collected, via monkeypatching the objects to free via a custom function, scm_gtype_instance_struct_free. This allows us to unref the object. This low-level trickery happens as part of the object allocation and initialization protocol. (scm_c_gtype_get_direct_supers): C function to determine the superclasses of a given GType: the union of the type's parents and the type's interfaces. (scm_c_gtype_to_class): Dispatch down to `make-class' with the right #:gtype-name. (%gtype_to_class): New function corresponding to the old gtype->class, but for such things as g-wrap's latent class binding. Not really public. (scm_gtype_name_to_class): Replaces the old gtype->class. In the new world order gtypes can be summoned by name only. (gtype_struct_offset): Helper to compute the offset within the class struct in which to store the gtype. (scm_sys_gtype_bind): Deep magic to shove a GType into a , called during 's `initialize' function. Also sets the struct free functions in the classes with a sketchy heuristic. (scm_c_gtype_class_to_gtype): New function for C. (scm_c_gtype_class_is_a_p): New function for C. (scm_c_gtype_instance_get_cached): Remove the smob/goops glue code: there is just one cache for an instance. (scm_t_gtype_instance_funcs): Add construct() and initialize_scm() methods. (scm_c_gtype_instance_construct): New function, called as the first thing that 's `initialize' does. (scm_c_gtype_instance_bind_to_object): (scm_gtype_instance_unbind): (scm_gtype_instance_struct_free): Corresponding trickery to bind values to refcounted C pointers. (%gtype-instance-construct): 's `initialize' bottoms out here, normally resulting in the construction of the instance, e.g. via g_object_newv(). There is another codepath to initialize a SCM instead of the pointer, but I think the idea is a bit flaky. See e.g. gparameter.c. (%gtype-instance-destroy!): Forcibly drop the GOOPS object's reference on the type instance. (scm_c_scm_to_gtype_instance): No longer takes two arguments. The two-arg version is... (scm_c_scm_to_gtype_instance_typed): ...here. (%get-struct-slot, %set-struct-slot!): Removed, no longer necessary. * gnome/gobject/gtype.scm: A rewrite corresponding to that described in gtype.[ch]. (initialize ): Base mechanics to bind a class to a GType, looked up by name. (initialize ): Base mechanics to construct a GTypeInstance, if the instance is not yet bound. * gnome/gobject/gvalue.c: Rewrite to represent GValue objects as instances of GOOPS classes, bound to C GValue* values in the same way as objects are bound to GTypeInstance* values. (They used to be SMOBs.) (scm_gvalue_struct_free): A free function, like scm_gtype_instance_struct_free. (scm_sys_bless_gvalue_class): Magic like %gtype-class-bind. (scm_sys_allocate_gvalue): 's `allocate-instance' bottoms out here, which allocates the C GValue* object. (scm_c_make_gvalue): Redone on top of GOOPS allocation protocol. The case in which the is not a is a bit hacky, unfortunately. (scm_c_gvalue_peek_value): New function. (scm_c_gvalue_ref): New function, factored out of scm_gvalue_primitive_get, but operating on GValue*. (scm_c_gvalue_set): New function, factored out of scm_gvalue_primitive_set, but operating on GValue*. (scm_c_scm_to_enum_value, scm_c_scm_to_flags_value): New functions, factored out gvalue.scm. (%gvalue-set!): New hackiness, for 's `initialize'. (scm_c_gvalue_to_scm, scm_c_scm_to_gvalue): Implemented on top of ref() and set(). ( (scm_genum_class_to_value_table, scm_gflags_class_to_value_table): Rename from foo-type-get-values, remove the old SCM wrappers. (scm_c_gvalue_holds, scm_c_gvalue_new_from_boxed) (scm_c_gvalue_new_take_boxed, scm_c_gvalue_peek_boxed) (scm_c_gvalue_dup_boxed, scm_c_gvalue_dup_value) (scm_c_gvalue_from_value, scm_c_gvalue_take_value): New C helper functions. (scm_init_gnome_gobject_values): Register SCM-gvalue wrappers for boxeds and value arrays just like other non-core boxed types. * gnome/gobject/gvalue.scm (gnome): Also export . Remove {genum,gflags}-type-get-value, use the foo-class->value-table functions instead. Define all subclasses (, , etc.) using normal subclassing foo. (, ): Rework to be more like other instances. Don't store a value table on the class object, that's not necessary. * gnome/gobject/utils.scm (unless): New macro. (with-accessors): New macro, defines procedures-with-setters in its body that map to particular slot accessors. Very interesting; needs more docs. * gnome/gobject/gclosure.scm: * gnome/gobject/gclosure.h: * gnome/gobject/gclosure.c (scm_gclosure_marshal_with_guile): Perform the C<->GValue conversions here, not in a Scheme wrapper. (struct _GuileGClosure, %gclosure-construct): Store the closure metadata in the C closure instead of in the SCM, which is just a boxed value anyway. Perhaps avoid a leaked ref -- there was a very crufty-looking comment that might need checking up on in the future. (scm_gclosure_invoke): Renamed from gclosure-primitive-invoke. Require typed instances, because otherwise we don't know what GValues to use to invoke the closure. (): Derive from , yay. Don't store things (return type, etc) on the SCM object, because if we get a closure from C, we have no way of knowing those things. (initialize): Don't chain up, because we do our own construction. Hacky, but it gets the job done. * gnome/gobject/gparameter.scm: * gnome/gobject/gparameter.h: * gnome/gobject/gparameter.c: Parameters are now GOOPS objects only, not GOOPS objects augmented by strange structs. (scm_c_gparam_initialize_scm): New function, called when wrapping an existing parameter as a SCM to initialize the SCM's slots. It's pretty silly though to actually allocate slots, it would be better to use accessors instead. Oh well, perhaps in the future. (scm_c_gparam_construct): New function to create a GParamSpec via e.g. (make #:name ...) (): Define slots for each attribute: name, nick, etc... (, etc): Define manually. * gnome/gobject/gsignal.scm: * gnome/gobject/gsignal.h: * gnome/gobject/gsignal.c: Signals are now GOOPS objects, not structs. (scm_c_gsignal_query, scm_gsignal_query): Make a out of an integer signal ID. (scm_gtype_class_get_signals): Change from gtype-get-signals; return a list of objects. (scm_gsignal_create): Change from gsignal-primitive-create; otherwise basically the same. (scm_gtype_instance_signal_emit): Change from gtype-instance-primitive-signal-emit. (scm_gtype_instance_signal_connect_closure): Renamed from gtype-instance-primitive-signal-connect. (scm_gsignal_handler_block, scm_gsignal_handler_unblock) (scm_gsignal_handler_disconnect, scm_gsignal_handler_connected_p): De-primitivize. * gnome/gobject/gobject.scm: * gnome/gobject/gobject.h: * gnome/gobject/gobject.c: Adapt to / changes. (scm_c_gobject_construct): Move construction logic into C; this function is called by 's `initialize'. Some trickery to know whether construction was initialized by Scheme) (and thus the initialization protocol is in progress, or whether we need to allocate and initialize a new SCM object. (scm_with_c_gtype_instance_instance_init): Second part of the trickery. (scm_gtype_register_static): Return the type name instead of a GType object. (scm_gobject_class_get_properties): Rename and rework from gobject-type-get-properties. (scm_gobject_class_get_property_names): Crackily duplicated code) (but allows slots to be computed during class initialization without forcing initialization cycles, e.g. <-> . (scm_gobject_class_install_property): No need to update a #:properties slot. (scm_gobject_get_property, scm_gobject_set_property): Deprimitivize. * gnome/gobject/gobject.scm (compute-slots on ): Excellent cleverness to declare, but not allocate, slots for each GObject property, even for C types. (compute-get-n-set): Use gobject-{get,set}-property for the slot accessors. (initialize on ): Adapt to gtype.scm protocols. (): No more #:gsignals and #:gobject-properties slots; use getter functions instead. (): Define here, because is only defined here. * examples/example-1.scm: Update to the new API, and to avoid gtypes. * gnome/glib.scm: * examples/main-loop.scm: Avoid gtypes. * gnome/gw/support/defs.scm (load-defs): s/wrap-object!/wrap-instance!/. * gnome/gw/support/gobject.scm: * gnome/gw/gobject-spec.scm: Wrap as . Remove wrappers for primitive objects. Use two-arg scm_c_scm_to_gtype_instance_typed when needed. Remove redundant casts. Use new GValue* helpers. Rename wrap-object! to wrap-instance!, as it works on all GTypeInstance* types that we know about. (initializations-cg on ): Perform the latent binding via (%gtype->class gtype-as-int), instead of on gtype objects. Be more clever about avoiding GValue allocation. * gnome/gw/support/gtk-doc.scm (signal-stexi-args) (class-signal-stexi-docs, gobject-class-stexi-docs): Cursory changes that might work; needs more testing. Looks much nicer) (though. * test-suite/gobject.api: Update for new API. Yay! * test-suite/gobject.test: Remove some GType tests. Adapt others to new API. * test-suite/gw-gobject.test: Adapt to new API. * test-suite/test-gobject.c (test_obj_class_init): Properly declare the value array parameter. 2008-04-04 Andy Wingo * gnome/gobject/gc.c: Gcc started throwing warnings about the locking foo, at which point I realized that we never actually initialized gthreads, or linked to it. Fix to use normal mutexen and initialize threads. Perhaps in the future we will do something clever with gdk_thread_funcs. * package.ac: Check for gthreads. * gnome/gobject/Makefile.am (C_FILES): Reorder to reflect correct dependency ordering. (libguile_gnome_gobject_@API_VERSION@_la_CFLAGS): (libguile_gnome_gobject_@API_VERSION@_la_LIBADD): Link to gthreads. (DOT_DOC_FILES): Remove gparameter.doc from the list, as soon it will have nothing to say. 2007-12-14 Andy Wingo * gnome/gobject/gtype.h: * gnome/gobject/gtype.c: * gnome/gobject/gobject.c (gobject-primitive-create-instance): (scm_c_gtype_instance_get_cached_goops) (scm_c_gtype_instance_set_cached_goops) (scm_c_gtype_instance_to_scm_typed) (scm_init_gnome_gobject_types): Because we don't really have any guarantee on the order that the SMOB and the GOOPS object are collected, change from caching the GOOPS object on the instance to caching it on a weak hash table, keyed on the SMOB itself. * gnome/gobject/gtype.c (scm_c_gtype_instance_get_cached_smob) (scm_c_gtype_instance_get_cached_goops): Crazily, with Guile 1.8 there is a window between mark and sweep in which a value has not been collected, but is marked for collecting. If we try to get a cached SCM value in this window, re-mark it so that when lazy sweeping happens, we don't get the newly-alive value freed out from under us. Quite a tough bug! (scm_c_scm_to_gtype_instance): More debugging if we have a bad %gtype-instance. 2007-12-13 Andy Wingo * gnome/gobject/gtype.c (scm_gtype_instance_free): Add debug. * gnome/gobject/gvalue.c (free_gboxed_scm): * gnome/gobject/gparameter.c (gparam->param-struct): * gnome/gobject/gobject.c (scm_with_c_gtype_instance_class_init): * gnome/gobject/gclosure.c (free_closure, gclosure-primitive-new): Update for gc_protect_object changes. * gnome/gobject/gc.h: * gnome/gobject/gc.c (scm_glib_gc_protect_object) (scm_glib_gc_unprotect_object): Change prototypes to reflect these functions' nature as a bridge between C and scheme. Note that unprotect_object looks mightily dodgy. 2007-12-12 Andy Wingo * gnome/gobject/gobject.c (scm_c_gtype_instance_class_init): Enter guile mode. (scm_c_gtype_instance_class_init): Enter guile mode. * gnome/gobject/guile-support.h: * gnome/gobject/guile-support.c (scm_dynwind_guile_v__p_u_c_p) (scm_dynwind_guile_v__p_u_p_p, scm_dynwind_guile_v__p_p): Factor some common scm_with_guile/scm_without_guile code into a separate file. Ick. * gnome/gobject/gobject.c (scm_c_gobject_set_property) (scm_c_gobject_get_property): Enter guile mode. Icky icky ick. * gnome/gobject/gclosure.c (scm_closure_primitive_invoke_without_guile) (scm_closure_primitive_invoke): Leave Guile mode when invoking closures. 2007-12-10 Andy Wingo * == Released guile-gnome-platform version 2.15.96 == 2007-12-10 Andy Wingo * VERSION: Bumped to 2.15.96. 2007-12-10 Andy Wingo * gnome/overrides/glib.defs (g_io_channel_read_line): * gnome/gw/glib-support.h: * gnome/gw/glib-support.c (_wrap_g_io_channel_read_line): Restore this wrapper. * gnome/gw/glib-support.c (g_io_add_watch): Enter guile mode in the callback. What a pain in the ass. * gnome/gobject/guile-support.h: * gnome/gobject/guile-support.c (scm_to_locale_string_dynwind): New helper, allocates a string to be freed within the current dynwind. * gnome/gobject/gvalue.c (scm_gvalue_primitive_set) (scm_genum_register_static, scm_gflags_register_static): * gnome/gobject/gtype.c (scm_gtype_from_name) (scm_c_define_and_export_gtype_x): * gnome/gobject/gparameter.c (SCM_GPARAM_STRUCT_BLURB) (SCM_GPARAM_STRUCT_NICK, scm_gparam_primitive_create): * gnome/gobject/gobject.c (scm_gtype_register_static): Use the scm_to_locale_string_dynwind instead of SCM_STRING_CHARS. * examples/fifo.scm (fifo-callback): Update for new io-channel-read-line behavior. (main): primitive-exit from the subthread. Adapt to io-channel-new-file argument change. 2007-12-08 Andy Wingo * gnome/overrides/glib.defs (run): * gnome/gw/glib-support.c (_wrap_g_main_loop_run): Don't leave guile mode before calling main_loop_run, because we still have to do some SCM-calling things. Instead leave guile mode from inside the wrapper. Fixes some lockups. 2007-12-06 Andy Wingo * test-suite/wrapset.api: * test-suite/gobject.api: Regenerate. * gnome/gw/support/gtk-doc.scm (generate-undocumented-texi): New exported function, generates undocumented.texi. * doc/glib/undocumented.texi: * doc/glib/guile-gnome-glib.texi (Top): Add undocumented functions. * doc/glib/defuns-unicode.xml.texi: Regenerated docs removed some functions. 2007-11-30 Andy Wingo * gnome/gw/support/defs.scm (type-lookup): Ignore functions that would force opaque types to be wrapped. 2007-11-25 Andy Wingo * gnome/gw/support/defs.scm (type-lookup) (construct-argument-list): Add another arg, #:for-proc, that will be used when we warn about making opaque types. (load-defs): Set #:for-proc on lookup-type. * doc/glib/defuns-main.xml.texi: * doc/glib/defuns-iochannels.xml.texi: * doc/glib/defuns-bookmarkfile.xml.texi: Regenerated, adds entries for the opaque types. * gnome/gw/support/gtk-doc.scm (superclasses) (gobject-class-stexi-docs): Document superclasses. (check-documentation-coverage): Print out "spurious" symbols, those that we think are documented but are not in the wrapper. * gnome/gw/support/gobject.scm (initializations-cg) (wrap-opaque-pointer!): Do define and export the wct variable, as other wrapsets that use this type need to get at the wct. Doh. * doc/gobject/guile-gnome-gobject.texi (Top): * doc/glib/guile-gnome-glib.texi (Top): Remove the concept index, and add a type index. * gnome/gw/support/gtk-doc.scm (gobject-class-stexi-docs): Don't error if the class is not defined in the module. * gnome/gw/support/gobject.scm (wrap-freeable-pointer!) (wrap-refcounted-pointer!): Accept the ctype as the name of the type without a star, so that the type name becomes e.g. instead of . This means that only truly opaque pointers will have a * in their names. * gnome/gw/gobject-spec.scm (initialize): Specialize on , not -- fallout from the changes to gobject.scm. * gnome/gw/glib-spec.scm (initialize): Adapt to changes in wrap-freeable-pointer and wrap-refcounted-pointer. * doc/glib/defuns-*.xml.texi: Regenerated. 2007-11-24 Andy Wingo * gnome/gw/support/gobject.scm (unwrap-value-cg): Fix a typo, my bads yo. (, check-typespec-options, c-type-name) (make-typespec, unwrap-value-cg, call-arg-cg, wrap-value-cg) (wrap-structure!): New public function, wrap-structure!, which wraps a C structure as a Scheme value. Parameters of the form "StructName*" are interpreted as "out" parameters, while "const-StructName*" are treated as "in" parameters. 2007-11-23 Andy Wingo * test-suite/wrapset.api: Update for the changes resulting from the API review. Neat! * bin/Makefile.am: Rework; in the future perhaps we will not make a local guile-gnome binary. * gnome/overrides/glib.defs: Add lots of custom function wrapper definitions, backed by code in glib-support. Ignore a number of other functions of dubious utility, or that cannot be wrapped safely in scheme. * gnome/gw/support/gobject.scm (): Pull in Guile's wct implementation, as it is not public, and does some things that we don't want to do (e.g. defining the wct classes as variables, that is useless.) (wrap-opaque-pointer!): Use . (): New class, a pointer that has a free function. (wrap-freeable-pointer!): New public function. (): New class, a pointer that can be reffed or unreffed. (wrap-refcounted-pointer!): New function. * gnome/gw/glib-support.h: * gnome/gw/glib-support.c: Expand, providing better scheme wrappers for a number of functions. * gnome/gw/glib-spec.scm (initialize): Wrap a number of types as freeable or refcounted pointers. * doc/glib/section-strings.xml.texi (Strings): Add docs for g-string-get-str. * doc/glib/overrides.texi: Added some overrides. * doc/glib/defuns-unicode.xml.texi: * doc/glib/defuns-misc_utils.xml.texi: * doc/glib/defuns-main.xml.texi: * doc/glib/defuns-iochannels.xml.texi: * doc/glib/defuns-fileutils.xml.texi: * doc/glib/defuns-conversions.xml.texi: * doc/glib/defuns-bookmarkfile.xml.texi: Regenerated with all of the wrapset changes. * doc/gobject/Makefile.am: * doc/gobject/guile-gnome-gobject.texi: Added to bzr, because I can't figure out how to get automake to deal with it otherwise. Not such a bad idea though to have this in VC. * doc/glib/Makefile.am (docbook_xml): * doc/glib/guile-gnome-glib.texi (Base64 Encoding): * doc/glib/defuns-base64.xml.texi: * doc/glib/section-base64.xml.texi: Removed, the base64 functions were removed. 2007-11-15 Andy Wingo * gnome/gw/support/gtk-doc.scm (lambda): Fix some texi because the upstream xml is bad. (make-type-docs?, gtk-doc-sdocbook->class-list/g-wrap): Don't generate docs for types that g-wrap does not define, fixes e.g. . 2007-11-10 Andy Wingo * == Released guile-gnome-platform version 2.15.95 == 2007-11-10 Andy Wingo * VERSION: Bumped to 2.15.95. 2007-11-10 Andy Wingo * test-suite/Makefile.am: Add makefile foo for the wrapset api check. * test-suite/wrapset.scm: New check for api stability in the g-wrap-generated glib wrapset. * test-suite/wrapset.api: New file, defines the glib API. * gnome/gw/support/gtk-doc.scm (extract-defs) (check-documentation-coverage): New export, check-documentation-coverage, which looks at a texinfo file and a set of modules to determine which exports of the modules are undocumented. (check-documentation-coverage): Sort the undocumented symbol list. (check-documentation-coverage): Don't error out if a module cannot be resolved. 2007-11-01 Andy Wingo * gnome/gw/support/gtk-doc.scm (gobject-class-stexi-docs): Put prop descriptions in a para. 2007-09-25 Andy Wingo * == Released guile-gnome-platform version 2.15.94 == 2007-09-25 Andy Wingo * VERSION: Bumped to 2.15.94. 2007-09-25 Andy Wingo * NEWS: Updated. 2007-09-24 Andy Wingo * test-suite/Makefile.am: Update for gobject docs moving. * doc/gobject/docs.mk: Update a bit. * test-suite/gobject.api: Regenerate for gtk-doc.scm changes, an incompatible change but not in any released version. * gnome/gw/support/gtk-doc.scm: Document the module, and reduce the number of exports to just two. Move around some definitions. (gtk-doc->texi-defuns): Rework to handle either the heuristics mode or g-wrap, and document. (gtk-doc->texi-stubs): Document. * doc/gobject/make-texinfo.scm: Add spaces between args to deal with fixed guile-lib serialization. * doc/glib/: * doc/gobject/: GLib and GObject docs moved to separate directories. 2007-09-07 Andy Wingo * gnome/gw/support/gtk-doc.scm: Import gobject and goops so that we can do some runtime introspection of classes. (sdocbook-fold-structs): New function, folds over struct definitions. (signal-doc-name, signal-doc-docs, signal-refsect2-list) (signal-docs-alist, signal-stexi-args, class-signal-stexi-docs) (gobject-class-stexi-docs, gtk-doc-sdocbook->class-list/g-wrap): New functions to document classes, with their properties and signals. (gtk-doc->texi-defuns): Put class documentation before functions. * doc/section-*.texi: * doc/defuns-*.texi: Regenerated. * gnome/gw/support/gtk-doc.scm (c-arguments->scheme-arguments) (function-stexi-arguments): Use @tie{} instead of a space where appropriate. (*gtk-doc-sdocbook->stexi-rules*): Translate FALSE and TRUE. (gtk-doc->texi-stubs): Put the subtitle in a subparagraph, not the title. (function-stexi-arguments): Don't wrap the var in @var, that makes it to be @tt font, which we don't want or need. (make-defs/g-wrap): Doc generics using @deffnx, not @deffn. * doc/Makefile.am: Factor out automatic g-wrap docs stuff into common makefile routines. 2007-09-02 Andy Wingo * doc/guile-gnome-glib.texi: New file, includes all the rest to make glib docs. * doc/Makefile.am: Add rules to regenerate guile-gnome-glib.texi's dependencies. Add guile-gnome-glib manual. * gnome/gw/support/gtk-doc.scm: Add a couple of public methods and hacks to get GLib docbook to work. Will document more later. * doc/defuns-*.texi: * doc/section-*.texi: Add generated documentation. 2007-09-01 Andy Wingo * test-suite/Makefile.am: Add some hairyness for the api check test. * gnome/gw/support/gobject.scm: Don't export wrap-enum!; we just add a method on the wrap-enum! from (g-wrap enumeration). * test-suite/gobject.api: An apicheck description of the gobject api. * test-suite/api.scm: New test, tests that our API has not regressed. * gnome/gobject/gobject.scm (make-gobject-instance): Fix bug introduced by doc (define placement). * gnome/gw/generics.scm: Document, and re-export (gnome gobject generics). * doc/guile-gnome-gobject.scm (*modules*): Add the (gnome gw generics) module to the list. * gnome/gw/support/modules.scm: * gnome/gw/support/defs.scm: Document. * doc/guile-gnome-gobject.scm: Remove the concept index; we defined no concepts. * gnome/gw/support/gobject.scm: Document. Removed the undefined construct-argument-list. * gnome/gobject/utils.scm: Document. * gnome/gobject/gobject.scm: Move around some docs, looks better with newer guile-lib. * gnome/gobject/generics.scm: Write a bunch about the place of generics in guile-gnome. Redefine docs as being on methods; needs latest guile-lib to understand, thouh. 2007-08-28 Andy Wingo * gnome/gobject/generics.scm: Rewrite to export the generics normally instead of molesting the root module. 2007-08-26 Andy Wingo * gnome/gobject/gtype.scm: Fix a URL. * gnome/gobject/gsignal.c: * gnome/gobject/gsignal.scm: * gnome/gobject/gobject.c: * gnome/gobject/gobject.scm: Document. * gnome/gobject/gvalue.scm: * gnome/gobject/gvalue.c: Document. * gnome/gobject/gclosure.scm: Document. Change gclosure-invoke to be a procedure rather than a method/generic. * gnome/gobject/gparameter.scm: * gnome/gobject/gparameter.c: Document. Remove gparam-struct-arg-info from the exports list. * doc/guile-gnome-gobject.scm (*modules*): Reorder the modules so gvalue is before gparameter. * gnome/gobject/utils.scm (define-class-with-docs): New exported macro. * gnome/gobject/gtype.scm: Add a commentary, lots of doc fixups. * gnome/gobject/gtype.c: Lots of doc fixups. * doc/Makefile.am (doc): Define DOT_DOC_FILES so that we actually pick up the .doc files. * gnome/gobject/gtype.scm: * gnome/gobject/gtype.c (%function->method-public): Removed, this hack is no longer necessary (or used). 2007-08-25 Andy Wingo * doc/make-texinfo.scm (main): Don't search the load path for the file, we know where it is. * doc/docs.mk ($(doc).texi): Use the right environments. * doc/Makefile.am (nodist_info_TEXINFOS): Make automake happy. * doc/guile-gnome-gobject.texi: Remove, I found the trick to make automake happy. * gnome/gobject/Makefile.am: Add .doc files to the makefile, so they get built * TODO: Add something of a TODO * Makefile.am: Recurse into doc/. * doc/guile-gnome-gobject.texi: Add this file so that automake is happy. * doc/make-texinfo.scm: * doc/guile-gnome-gobject.scm: * doc/docs.mk: * doc/Makefile.am: Added doc infrastructure. make-texinfo.scm has been augmented with Ludovic's code to parse out docs snarfed from C files. * gnome/gw/support/modules.scm (export-all-lazy!): Export all non-lazy variables explicitly so that things like module frisking and tab completion work. * gnome/gobject/gsignal.c (scm_init_gnome_gobject_signals): Define as the struct vtable. It was always exported but never defined. 2007-08-15 Andreas Rottmann * gnome/gw/support/gobject.scm () (, ): Properly set allowed-options via class declaration keyword instead of explicit slot access. 2007-08-13 Andy Wingo * gnome/gw/support/gobject.scm (generate-wrapset): Make generated SCM wrappers use the (gnome gobject) library, which in the change to generics.scm is no longer unintentionally exported. Use the generics' public interface, not its private interface. * gnome/gw/support/modules.scm (export-all-lazy!): * gnome/gw/generics.scm: Instead of making the public interface use the module, which unintentionally re-exports imported bindings in addition to the local bindings, install a module binder proc on the public interface to export only local variables. 2007-07-28 Andy Wingo * gnome/gw/support/gtk-doc.scm: Expand and document, depending on the latest in guile-lib. I believe the interface is sufficient now, at least for guile-cairo's purposes. 2007-07-17 Andy Wingo * gnome/gw/support/gtk-doc.scm: Checkpoint some new developments. 2007-07-01 Andy Wingo * gnome/gw/support/Makefile.am: * gnome/gw/support/gtk-doc.scm: New module, useful for generating docs from gtk-doc-generated docbook. Currently used in guile-cairo. 2007-06-15 Andy Wingo * == Released guile-gnome-platform version 2.15.93 == 2007-06-15 Andy Wingo * VERSION: Bumped to 2.15.93. 2007-06-15 Andy Wingo * gnome/gw/support/defs.scm (construct-argument-list): Fix parsing of argument options like (callee-owned), broken on 2007-05-05. 2007-05-26 Andy Wingo * gnome/overrides/glib.defs (g_string_get_str): Fix generated wrapper name. * gnome/gw/support/modules.scm: New function. If we have a fixed guile, exports everything to the public interface, with the effect that the module binder proc will be active on the public interface. However, this causes huge slowdowns on most guile 1.8 versions; if we detect an old version, export all symbols explicitly, forcing the lazy bindings to be constructed. Otherwise it takes much more time than the baseline 16 seconds. * gnome/gw/support/gobject.scm (generate-wrapset): Fix bug in our SCM generator: wrap generic functions that are not backed by RTI. (generate-wrapset): Instead of unconditionally exporting everything, go export-all-lazy!. * gnome/overrides/glib.defs: Recover some default values lost when glib.defs was regenerated. * gnome/gw/support/gobject.scm (generate-wrapset): Override g-wrap's creation of the SCM module, so that we just export "everything" instead of enumerating the exports. Allows lazy binding to work, dropping (gnome gtk) load time down to a manageable 2 seconds. 2007-05-24 Andy Wingo * == Released guile-gnome-platform version 2.15.92 == 2007-05-24 Andy Wingo * VERSION: Bumped to 2.15.92. 2007-05-19 Andy Wingo * gnome/gobject/guile-support.h: * gnome/gobject/guile-support.c (scm_with_guile): Add a guile 1.6 shim of dubious correctness. 2007-05-13 Andy Wingo * gnome/overrides/glib.defs-type-ignores: * gnome/overrides/Makefile.am: Add type ignores for GLib. * package.ac: Update GLib requirement to 2.10, corresponding to the 2.16 release of the Gnome Developer Platform. * gnome/overrides/glib.defs: Update ignores for new autogenerated glib.defs in the defs module. I have mostly ignored everything; the notable addition is GBookmarkFile. I also didn't ignore the unicode functions, figuring they will be useful while Guile doesn't have any of its own. * gnome/gw/glib-spec.scm (initialize): Add alias for time_t as long. 2007-05-10 Andy Wingo * gnome/gw/glib-support.c (_wrap_g_main_loop_run): Rework signal handling code to use a special gsource. The source is woken when SIGINT is delivered, via writing a byte on an fd, which is what g_main_context_wakeup does; however it also does some locking. Unsure about the safety of all of this, we'll see how it works out. * == Released guile-gnome-platform version 2.15.91 == 2007-05-10 Andy Wingo * VERSION: Bumped to 2.15.91. 2007-05-06 Andy Wingo * examples/example-1.scm: Put in a modeline. * gnome/gw/support/gobject.scm (find-type-rule): Look up type rules recursively, fixes a very old bug in which out parameters are only recognized automatically within the same wrapset that defines the rule. * gnome/gw/glib-spec.scm (initialize): Fix char* being marked for automatic 'out aliasing. 2007-05-05 Andy Wingo * gnome/gw/support/gobject.scm: New export, lookup-type-by-alias. (add-type-alias!): Simplify. (lookup-type-by-alias): Renamed from lookup-type, which was a name collision with g-wrap.scm, which confused me for quite some time. (add-type-rule!, find-type-rule): Simplify so that a type rule is simply a string, which maps to a g-wrap typespec as a list of symbols. * gnome/gw/support/defs.scm (type-lookup): Always return a list; lists are always valid as typespecs on the g-wrap side. (construct-argument-list): Simplify (?), assuming that type-lookup gives us a list, and for the update in type rules. Removes theoretical ability for multiple C arguments to be given from one Scheme object, but that wasn't used, and if it goes in again some documentation would be good. (This capability still exists via custom wrappers.) (load-defs): lookup-type-by-alias, not lookup-type. * gnome/gw/glib-spec.scm (initialize): Add "out" type aliases for all scalar types for which it makes sense. gunichar is a guint32. 2007-05-04 Andy Wingo * gnome/gobject/gvalue.h: New public function, scm_c_register_gtype_instance_gvalue_wrappers. Long name! * gnome/gobject/gvalue.c (scm_c_register_gtype_instance_gvalue_wrappers) (scm_gvalue_to_scm, scm_gvalue_primitive_set, scm_c_gvalue_to_scm) (scm_scm_to_gvalue): Handle GTypeInstances in GValues via a generic wrapper mechanism; allows GStreamer's miniobjects to hook into this system. * gnome/gobject/private.h: * gnome/gobject/gtype.c (scm_c_gtype_instance_to_scm_typed): New function, made to solve the `initialize' bug of gobject.c, described below. Private. * gnome/gobject/gparameter.c (scm_init_gnome_gobject_parameters): Register GValue wrappers for GParamSpec. * gnome/gobject/gobject.c (scm_c_gtype_instance_instance_init): Fix a longstanding bug (3.5 years) whereby double-derived scheme classes were always had `initialize' called with an instance of the most specific class. (scm_init_gnome_gobject): Register GValue wrappers for GObject. * gnome/overrides/glib.defs (g_io_add_watch, string): Don't leave guile mode for functions that deal in SCM. 2007-02-02 Andy Wingo * gnome/gw/support/gobject.scm (wrap-gobject-class!): Add a type alias for classes; fixes class parameters to wrapped functions. * gnome/gw/support/defs.scm (load-defs): Support new parameter, `leave-guile-mode'. Takes one boolean argument, defaults to #t. If #t, g-wrap will leave guile mode when the function is called. Requires new g-wrap. * gnome/gobject/gvalue.scm (initialize): Untabify. (gtype-instance:write): Untabify. Use gflags->symbol-list to write flags. (find-enum, genum->symbol, genum->name, genum->value): Untabify. (gflags->element-list): Untabify; fix a bug so that 0x3 does not match 0x1. (gflags->symbol-list, gflags->name-list, gflags->value-list): Untabify. * gnome/gobject/gtype.c (scm_init_gnome_gobject_types): Don't install a log handler; not only does the scm_throw corrupt libraries' internal state, it is dangerous because now it is likely that we are not in guile mode. 2006-12-17 Andy Wingo * gnome/gobject/gclosure.c ("%scm-gclosure-marshal"): Enter guile via scm_with_guile when invoking a closure; along with a patch I'm mailing to the g-wrap list this makes callbacks from other threads work. 2006-12-15 Andy Wingo * == Released guile-gnome-platform version 2.15.90 == 2006-12-15 Andy Wingo * VERSION: Bumped to 2.15.90. 2006-12-15 Andy Wingo * test-suite/gw-test-gobject-spec.scm (gw-test-gobject-spec): * test-suite/gw-test-glib-spec.scm (gw-test-glib-spec): Fix up includes. * test-suite/gobject.test ("basic values"): Fix the check for out-of-range errors, using the "value out of range" variant instead of "argument N out of range". * test-suite/Makefile.am (libgw_guile_test_glib_la_LIBADD): Link to GLib. * gnome/gw/support/gobject.scm (wrap-value-cg): Use the scm_c_gtype_instance_unref generic function instead of g_object_unref, so that we can support other classed objects. * gnome/gobject/gtype.c: (get_gtype_instance_instance_funcs) (scm_register_gtype_instance_funcs, scm_c_gtype_instance_ref) (scm_c_gtype_instance_unref) (scm_c_gtype_instance_get_cached_smob) (scm_c_gtype_instance_set_cached_smob) (scm_c_gtype_instance_get_cached_goops) (scm_c_gtype_instance_set_cached_goops): Keep a registry of fundamental classed gtypes that we know how to deal with, with function pointers on how to ref, unref, get qdata, and set qdata on them. This gets g_object_* code out of gtype.c, and allows for external modules to define wrappers for new fundamental classed types, like GStreamer's miniobjects. (scm_gtype_instance_free, scm_c_gtype_instance_to_scm) (scm_c_make_gtype_instance): Use the generic functions instead of type-specific switch blocks. * gnome/gobject/gparameter.c (scm_init_gnome_gobject_parameters): Register the paramspec ref/sink/qdata functions with gtype.c. * gnome/gobject/gobject.c (scm_init_gnome_gobject): Register the gobject ref/sink/qdata functions with gtype.c. (s_scm_gobject_primitive_create_instance): use scm_c_gtype_instance_set_cached_goops instead of mucking about with qdata ourselves. 2006-12-09 Andy Wingo * gnome/gw/support/gobject.scm (wrap-value-cg): If a boxed value is caller-owned, then use g_value_take_boxed instead of g_value_set_boxed. * gnome/gobject/gvalue.c (s_scm_scm_to_gvalue): If a custom unwrapper fails to set the gvalue, signal a wrong-type-arg exception. 2006-12-08 Andy Wingo * gnome/gw/support/gobject.scm (wrap-custom-gvalue!): New public macro, allows new fundamental GTypes to be represented as native scheme values. For example, GstIntRange as a pair of ints. * gnome/gobject/guile-gnome-gobject.h: Add gc.h so people using this header get everything. * gnome/gobject/gvalue.c (scm_init_gnome_gobject_values): Don't export enum and flags gtypes here, that's already done by gtype.c. I'm not sure if this is the right change though; it seems that all of the gtype:foo exports should be done in the same file. Dunno. 2006-11-05 Andy Wingo * gnome/gw/gobject-spec.scm: Use (gnome gw support g-wrap), the g-wrap compatibility wrapper. * gnome/gw/glib-spec.scm: Use (gnome gw support g-wrap), the g-wrap compatibility wrapper. * gnome/gw/support/Makefile.am (support_DATA): * gnome/gw/support/g-wrap.scm: New module, (gnome gw support g-wrap), added to the dist. The idea is for wrapsets to have access to all g-wrap generics from one module. 2006-10-30 Andy Wingo * gnome/gobject/gc.h: * gnome/gobject/gc.c (scm_glib_gc_protect_object) (scm_glib_gc_unprotect_object): New functions, like scm_gc_[un]protect_object, but can be called from inside the gc's sweep phase. * gnome/gobject/gparameter.c (s_scm_gparam_to_param_struct): * gnome/gobject/gvalue.c (copy_gboxed_scm, free_gboxed_scm): * gnome/gobject/gobject.c (s_scm_gobject_set_data_x) (scm_c_gtype_instance_class_init): * gnome/gobject/gclosure.c (free_closure) (s_scm_gclosure_primitive_new): Use scm_glib_gc_protect_object instead of guile's scm_gc_protect_object. * gnome/gobject/Makefile.am (C_FILES): Add gc.c. 2006-10-27 Andy Wingo * gnome/gw/support/defs.scm (construct-argument-list): Don't throw away typespec options, like 'null-ok, when there are extras arguments. Fixes cases like this: '("GMainContext*" "context" (null-ok) (default "NULL")). 2006-10-26 Andy Wingo * gnome/gw/support/gobject.scm (add-type!): Only export classes that are actually defined. Fixes guile-gnome on guile 1.8. * gnome/gw/generics.scm (gnome): Use (gnome gobject), so that any methods we define hang off the same generics as the base gobject library. 2006-10-20 Andy Wingo * gnome/gw/support/gobject.scm (initializations-cg): Tell g-wrap to work with generic functions in the (gnome gw generics) module. Makes it so that we don't pollute the root namespace. * gnome/gw/Makefile.am (guilegwmodule_DATA): Autotoolage. * gnome/gw/generics.scm: New file, created to hold guile-gnome's generic functions. 2005-12-22 Andy Wingo * AUTHORS: Updated. * gnome/gw/support/Makefile.am (support_DATA): Updated accordingly. * gnome/gw/support/slib.scm: New module, provides printf and glob:make-matcher. This removes the build dependency on slib. * gnome/gw/support/printf.scm: * gnome/gw/support/glob.scm: * gnome/gw/support/genwrite.scm: Pulled in from SLIB. Without modifications. 2005-10-13 Andy Wingo * gnome/gobject/gtype.c (scm_gtype_interfaces): Signedness fix. 2005-09-17 Andreas Rottmann * gnome/gobject/gtype.c (s_scm_gtype_interfaces): Fix GCC 4.0 warnings. 2005-04-20 Andreas Rottmann * gnome/glib.scm (g-error-domain, g-error-code, g-error-message): New public functions. 2005-04-10 Andreas Rottmann * gnome/gobject/gobject.c, gnome/gobject/gvalue.c, * gnome/gw/glib-support.c: Use the new macros. * gnome/gobject/gutil.h (GPOINTER_TO_SCM, SCM_TO_GPOINTER): New macros. 2005-04-09 Andreas Rottmann * gnome/gw/glib-spec.scm (initialize): Fix gsize, gssize in- and out-arguments. * gnome/gw/glib-spec.scm (post-call-arg-cg): Use newly-added function scm_c_raise_gerror. * gnome/gobject/Makefile.am (C_FILES): Added gutil.c * gnome/gobject/gobject.h: #include gutil.h * gnome/gobject/gutil.c, gnome/gobject/gutil.h: New files. 2005-04-07 Andreas Rottmann * test-suite/gw-gobject.test, test-suite/gobject.test: Added a few tests relevant to the gvalue fixes. * gnome/gw/support/defs.scm (load-defs): Improve error handling a bit by re-raising stacked conditions where appropriate. * gnome/gobject/gvalue.c (scm_gvalue_primitive_get): Return a full goops instance when the gvalue contains an object. * gnome/gobject/gvalue.c (scm_gvalue_primitive_set): Fix scm_list_p() check, needs to wrapped with SCM_BOOL(). (scm_gvalue_primitive_set): Also handle goops gobject instances. 2005-03-17 Andreas Rottmann * gnome/gobject/gvalue.c (scm_gvalue_primitive_set): Fix memleak when setting a string value. 2005-03-01 Andreas Rottmann * gnome/overrides/glib.defs: Added g_io_add_watch_full to ignore list. * examples/fifo.scm: Polished a bit. * gnome/gw/support/defs.scm (load-defs): Re-enable logging of opaque types. 2005-03-06 Andy Wingo * == Released guile-gnome-platform version 2.7.99 == 2005-03-06 Andy Wingo * VERSION: Bumped to 2.7.99. 2005-03-06 Andy Wingo * gnome/gw/support/defs.scm: Don't make generics if the of-object is an enum, flags, boxed, or custom boxed. This is a nasty nasty hack to make sure generics aren't created with unspecialized args, to prevent e.g. (foo-append ) -> (append ). 2005-01-29 Andreas Rottmann * gnome/gw/support/gobject.scm (make-typespec): Make the methods specialized on , and add the 'unspecialized option to the created typespec (needed for G-Wrap 1.9.4). 2005-01-11 Andy Wingo * == Released platform version 2.7.98 == 2005-01-11 Andy Wingo * VERSION: Bumped to 2.7.98. 2004-12-06 Andy Wingo * VERSION: Bumped. * == Released platform version 2.7.97 == * gnome/gobject/gvalue.c (scm_c_register_gvalue_wrappers): DAMMMIT, g_int_hash doesn't do what you think it does! 2004-12-05 Andy Wingo * gnome/gw/support/gobject.scm (wrap-custom-boxed!): New exported macro, replaces wrap-custom-pointer! and custom-wrapper-decls. (, gen-c-tmp, global-definitions-cg) (global-declarations-cg, initializations-cg, make-custom-wrapper) (make-custom-unwrapper, unwrap-value-cg, wrap-value-cg): Support for the new custom wrapper. Will create GValue wrapper functions, use them from the wrap/unwrap procedures, and registers them with gvalue.c. * gnome/gobject/gvalue.c (s_scm_gvalue_primitive_get) (scm_c_gvalue_to_scm, s_scm_gvalue_to_scm): Remove casts to GTypeInstance. * gnome/gobject/gtype.c (scm_c_make_gtype_instance) (scm_gtype_instance_free, scm_gtype_instance_print) (sink_type_instance, scm_register_gtype_instance_sinkfunc) (scm_c_gtype_instance_to_scm, scm_c_make_gtype_instance) (guile_gobject_log_handler) (scm_c_scm_to_gtype_instance, scm_c_gtype_instance_to_scm): Use gpointer instead of GTypeInstance* as the type declaration, since we never actually deal with GTypeInstance, only their subclasses. Eliminates the need for many casts, because we have to check at runtime anyway. 2004-12-02 Andy Wingo * gnome/gobject/utils.scm (gnome): Export GStudlyCapsExpand so that (gnome gw support gobject) can use it. * gnome/gobject/gvalue.c (s_scm_scm_to_gvalue) (s_scm_gvalue_to_scm): Use the new gvalue wrappers as appropriate. (scm_c_register_gvalue_wrappers): New procedure, registers a pair of procedures to make a custom mapping between scheme values and gvalues. 2004-11-29 Andy Wingo * gnome.scm.in (gnome): Define the module before resolving it, so as to avoid guile 1.6 trying to load a binary module. Thanks to David Pirotte for the bug report. Define the version as `gnome-version' because the core already exports `version'. (add-to-load-path!): New proc, tries to order environment-variable load paths first so that hacking the load path during compilation works. 2004-11-21 Andy Wingo * examples/Makefile.am (EXTRA_DIST): Dist all scm files. 2004-11-16 Andy Wingo * gnome/gw/glib-support.c: Indentation, only get iochannel_type when the func is first called. 2004-11-15 Andy Wingo * gnome/gw/glib-support.c: Fix includes. (scm_init_glib): Lookup the iochannel type when glib is initialized. (g_io_func): Don't lookup the type all the time. 2004-10-30 Jan Nieuwenhuizen * examples/fifo.scm: Update. * gnome/gw/glib-support.scm: Add return parameter overrides (Rotty). * gnome/gw/glib-support.c: Remove _wrap_g_io_channel_read_line wrapper. 2004-10-22 Jan Nieuwenhuizen * examples/fifo.scm: New file. 2004-10-21 Jan Nieuwenhuizen * gnome/gw/glib-support.c (_wrap_g_io_add_watch): New wrapper. * gnome/overrides/glib.defs (g_io_add_watch): New override. 2004-11-15 Andy Wingo * Makefile.am: Don't install into guile's path, just use $prefix. * gnome.scm.in: Don't hack /usr/local. Add some comments. * package.ac: Add record_check. 2004-11-13 Andy Wingo * Makefile.am (EXTRA_DIST): Dist VERSION. * VERSION: New file. 2004-11-11 Andy Wingo * gnome.scm.in (usr-local-hack): Fix.. * Makefile.am (guilesite): Argh, get the inst dir right. * package.ac: Avoid readlink -f, be more portable. * gnome.scm.in: New file, basically does what guile-gnome-0 does, but from within scheme. * Makefile.am: Add rules so that gnome-$version.scm looks right both installed and uninstalled. Install to the system guile path, regardless of the $prefix of guile-gnome. Build . before subdirs. * gnome/gw/glib-spec.scm (unwrap-value-cg): Whoops, fix parens. * gnome/gw/support/defs.scm (type-lookup): Assume that the caller owns generated container types (i.e. GList) if 'const isn't set. Prevents some invalid frees, hanks to Patrick Bernaud for the report. * gnome/gw/glib-spec.scm (unwrap-value-cg): Use destroy-value-cg to free the list after unwrapping. 2004-11-09 Andy Wingo * gnome/gw/support/gobject.scm (custom-wrap-decls) (wrap-custom-pointer!): New exported macros, designed to simplify wrappings of c types represented by native scheme values. 2004-10-28 Andy Wingo * defs-checks.ac: Versioned pkg-config check. * Makefile.am (all-local): Versioned pkg-config files. * examples/main-loop.scm: * examples/example-1.scm: Use guile-gnome-0. * bin/guile-gnome.in (localpath): Add /usr/local include dirs to the guile loadpath, so that users aren't surprised when they have g-wrap installed in /usr/local/guile/site. A hack for guile 1.6. 2004-10-26 Andy Wingo * package.ac (GUILE_GLIB_LIBS): Link to the versioned lib. * guile-gnome-glib-uninstalled.pc.in, guile-gnome-glib.pc.in: Link to the versioned lib. * gnome/gobject/config.scm.in: New file, exports *guile-gnome-gobject-lib-path*. * gnome/gobject/gobject.scm, gtype.scm, gvalue.scm, gparameter.scm, gsignal.scm, gclosure.scm: dynamic-link the path from (gnome gobject config). * gnome/gobject/Makefile.am: Version the libguile-gnome-gobject lib. Make config.scm work in the source tree and in the installdir. Define GUILE_GOBJECT_DIR to be $guilegnomedir. * bin/Makefile.am: New file. Will install a versioned guile-gnome-$apiversion into $bindir. * bin/guile-gnome.in: New script, wraps guile with a munged load path for modules and libraries. * Makefile.am (SUBDIRS): Add bin/. * gnome/gw/Makefile.am (guilegnomelib_LTLIBRARIES): Install to versioned directory. 2004-10-12 Andreas Rottmann * shlib-dirs.ac: New file, to be used by dev-environ. 2004-10-14 Andy Wingo * gnome/gobject/gvalue.c (s_scm_gvalue_primitive_set): For objects, interpret a #f value as NULL. (s_scm_gvalue_primitive_set): Bugfix: convert SCM return value of scm_list_p into a C boolean. * gnome/gobject/gtype.c (scm_c_make_gtype_instance): Return #f if the instance argument is NULL. 2004-10-13 Andy Wingo * gnome/gobject/gvalue.c (s_scm_gvalue_primitive_set): For objects, assert that the type is compatible with the GValue type. 2004-10-11 Andy Wingo * gnome/gobject/gobject.scm (make-gobject-instance): Set the fluid %gobject_initargs to the init-keyword kwargs for the duration of the gobject-primitive-create-instance. This allows the call back into scheme for `initialize' to pass the kwargs. However, if (not (scheme-gclass? class), call `initialize' manually. Also, in the error message, "No such s/property/property or init-keyword/ ...". * gnome/gobject/gtype.scm (initialize): For , no need to provide a method that does nothing, and no need to avoid the initialize method. Removed. * gnome/gobject/gobject.h: * gnome/gobject/gobject.c (s_scm_scheme_gclass_p): New predicate, returns #t iff `class' is derived from within scheme. Normally it doesn't matter, but we want to avoid calling `initialize' twice on the instance. (scm_init_gnome_gobject): Initialize the _gobject_initargs_fluid to '(), define it for scheme. (scm_c_gtype_instance_instance_init): Call initialize with the proper initargs. 2004-10-10 Andy Wingo * gnome/gobject/gtype.c (scm_c_gtype_instance_to_scm): Don't error out if ginstance is NULL, we're probably going to scheme anyway. Better to just return #f and stay quiet. * gnome/gw/support/defs.scm (load-defs): Better error when a symbolic include isn't file isn't found. * gnome/gobject/gsignal.scm (gtype-class-get-signal-names): Copy vector-map from gobject.scm. * gnome/gw/glib-spec.scm (initialize): GTime -> int32. * gnome/gobject/gvalue.[ch] (scm_c_gboxed_to_scm) (scm_c_dup_gboxed_to_scm): New helper functions. Take a pointer to an object along with its GType and return a SCM gvalue. 2004-10-09 Andy Wingo * gnome/gw/support/gobject.scm (unwrap-value-cg, wrap-value-cg): Define c-var, scm-var, and gtype-id within the body of the wrap-pointer! value wrappers. 2004-10-07 Andy Wingo * gnome/gw/support/defs.scm (construct-argument-list): Fail correctly if there is an unknown rest arg, but warn. (load-defs:scan-type!): Catch a throw to 'ignored. Get the ctype as a string, not a list of one element. Throw to 'ignored if the ctype is in the ignored-types list. (load-defs:ignore-types): New procedure, adds all of its arguments to the ignored types list. (load-defs): Add a hook to interpret ignore-types. Also interpret the form (include SYMBOL) to mean (include "gnome/overrides/BASENAME-SYMBOL"). 2004-09-27 Andy Wingo * test-suite/exceptions.scm, gnome/gw/Makefile.am * test-suite/test-gobject.c, examples/example-1.scm * test-suite/gw-glib.test, test-suite/gw-gobject.test * test-suite/gobject.test, test-suite/gw-test-gobject-spec.scm * test-suite/guile-gobject-test, test-suite/gw-test-glib-spec.scm * test-suite/test-glib.defs, test-suite/test-gobject.h: Added license blocks. 2004-09-19 Andy Wingo * gnome/gw/Makefile.am (libgw_guile_gnome_glib_la_LIBADD): Not G_WRAP_LINK_ARGS, it's G_WRAP_LIBS. * gnome/gobject/Makefile.am (libguile_gnome_gobject_la_LIBADD): Don't link to g-wrap. * gnome/gobject/guile-support.h: Don't include g-wrap/guile-compatibility.h -- no reason to depend on g-wrap. * guile-gnome-glib.pc.in (includedir): Point to the versioned directory. * gnome/gobject/Makefile.am: Install headers to a versioned directory. 2004-09-16 Andy Wingo * Makefile.am (SUBDIRS): Dist fixes. * README: Added. * NEWS: All pre-guile-gnome stuff elided. * NEWS.guile-gobject: Added the old news here. 2004-09-15 Andy Wingo * gnome/gw/support/defs.scm (load-defs): Ignore varargs functions, like we used to before the rewrite. 2004-09-12 Andy Wingo * gnome/gobject.scm: Real keywords, avoid deprecated modules. * gnome/glib.scm: Real keywords, avoid deprecated modules. * gnome/gw/gobject-spec.scm (gnome, gnome): Adapt to new module names. * package.ac (GUILE_GLIB_LIBS): Use readlink, not realpath, for portability. 2004-09-08 Andy Wingo * AUTHORS: Updated. * NEWS: Updated, and put in a more Guile-like format. * TODO: Removed many items. 2004-09-07 Andy Wingo * gnome/gw/support/defs.scm (load-defs): Change out a `cond' with a series of and=> statements. Fixes some problems. 2004-09-06 Andy Wingo * Makefile.am: Er, it's not in this module. I'm stupid. * Makefile.am: Install the -defs pkg-config file. 2004-09-05 Andy Wingo * gnome/gobject/Makefile.am (CLEANFILES): Clean the .x files. * package.ac (GUILE_GLIB_CFLAGS): Include the builddir's gobject dir as well. * gnome/gw/Makefile.am (libgw_guile_gnome_gobject_la_CFLAGS): Add the builddir to the CFLAGS as well: the link is placed in the builddir. * package.ac: Fix the link creation for non-srcdir builds. * gnome/overrides/Makefile.am, gnome/Makefile.am: Add the overrides to the dist. * package.ac: Create the gnome/gobject/guile-gnome-gobject link when config.status is created. * guile-gnome-glib.pc.in, guile-gnome-glib-uninstalled.pc.in: Moved from guile-gobject*.pc.in. * gnome/overrides/glib.defs: Moved from glib-overrides in the defs module. Otherwise unchanged. * defs-checks.ac: New file. We depend on the defs module. * For each of the files below, deprecated versions were left in the original locations. * gnome/gw/support/modules.scm: Moved from (gnome gobject gw-utils). Otherwise unchanged. * gnome/gw/support/gobject.scm: Moved from (gnome gobject gw-spec-utils). Otherwise unchanged. * gnome/gw/support/defs.scm: Moved from (gnome gobject defs-support). The parser was rewritten as an interpreter, rather than using guile as the interpreter. (load-defs): Take an optional argument, overrides, which should be the path within %load-path of the overrides file. Handle (ignore overrides). (load-defs-with-overrides): New procedure, wraps load-defs. 2004-07-28 Andreas Rottmann * gnome/gw/glib-spec.scm (make-typespec): Use raise instead of throw. * gnome/gw/glib-spec.scm: Adapt for destruct-value-cg -> destroy-value-cg G-Wrap API change. 2004-08-29 Andy Wingo * gnome/gobject/gclosure.c (%scm-gclosure-marshal): A non-NULL return_value of type G_TYPE_NONE or G_TYPE_INVALID does not need to be filled. 2004-09-14 Andy Wingo * gnome/gw/glib-spec.scm: Wrap unsigned-char. 2004-07-28 Andreas Rottmann * gnome/gw/glib-spec.scm (make-typespec): Use raise instead of throw. * gnome/gw/glib-spec.scm: Adapt for destruct-value-cg -> destroy-value-cg G-Wrap API change. 2004-08-29 Andy Wingo * gnome/gobject/gclosure.c (%scm-gclosure-marshal): A non-NULL return_value of type G_TYPE_NONE or G_TYPE_INVALID does not need to be filled. 2004-07-18 Andy Wingo * gnome/gw/glib-spec.scm (): Added #:type-cname and #:func prefix slots, so that can be used for slists as well. The wrap/destruct methods were changed accordingly, and "GSList*" now maps to the gslist-of type. 2004-07-11 Andy Wingo * gnome/gobject/gvalue.scm (gtype-instance:write): Use logand, not logior for flags. 2004-07-07 Andy Wingo * gnome/gw/gobject-spec.scm (unwrap-value-cg): Whoops, call wrapped-var on the right thing. * gnome/gobject/gw-spec-utils.scm (unwrap-value-cg): For enums and flags, use scm_scm_to_gvalue() instead of rolling our own conversion. Also fixes problems when the current module doesn't import GOOPS. 2004-07-06 Andy Wingo * gnome/gw/gobject-spec.scm: Same. * gnome/gobject/gw-spec-utils.scm: Make sure that gw:error is passed the wrapped var, not the scm var -- they are of different types. 2004-07-01 Andreas Rottmann * gnome/glib.scm: Include #:use-module (gnome gobject) before the generated wrapsets (fixes segfault). * gnome/gobject/gw-spec-utils.scm (unwrap-null-check): Bugfix; conversion code was always executed, even when null-ok and the pointer actually was NULL. This is now named unwrap-null-checked and takes the actual unwrap code as extra parameter. 2004-06-30 Andy Wingo * gnome/gobject/gtype.c (scm_gtype_instance_print): Same bug. * gnome/gobject/gvalue.c (scm_gvalue_print): I got bit by !SCM. Use SCM_FALSEP instead. * gnome/gobject/gtype.c: Yikes, somehow Martin's copyright notice got lost in the file split! Put back on all files. * gnome/gobject/gvalue.c (scm_gvalue_print): Indentation fix. 2004-06-24 Andreas Rottmann * test-suite/guile-gobject-test: Include (gnome gobject) in use-modules before the generated wrapset (fixes segfault). * gnome/gw/glib-spec.scm, gnome/gw/gobject-spec.scm, * test-suite/gw-test-gobject-spec.scm, * test-suite/gw-test-glib-spec.scm: Adapted for G-Wrap "depends-on!" API change. 2004-05-19 Andy Wingo * ChangeLog: All changelogs have been merged, and the entries that don't deal with the GLib/GObject wrapper have been elided. Some directories were corrected. * gnome/gobject/gparameter.scm (gnome): Export gparameter: limits. * gnome/gobject/gparameter.c (scm_init_gnome_gobject_parameters): Changed gruntime:int-max and friends to be gparameter:int-max, etc. * Makefile.am, files.ac, guile-gobject-uninstalled.pc.in: Revive this pkg-config file. See pkg-config(1) for more info. * gnome/gobject/gw-spec-utils.scm: Wrap GObjectClass. This is used in GStreamer, at least, and should be used in GTK. * gnome/gw/Makefile.am: Don't link the glib wrapper to the gobject runtime, there's no need. 2004-05-15 Andy Wingo * gnome/gobject/gtype.c (scm_c_gtype_to_class): Try to prevent a rount-trip to SCM by calling scm_c_lookup_class first. * gnome/gobject/gw-spec-utils.scm (unwrap-value-cg for enums and flags): Use scm_c_gtype_to_class instead of lookup_class, because with latent bindings the class might not exist yet. 2004-05-14 Andy Wingo * gnome/gobject/gtype.c (scm_gtype_to_class): Now exported as part of the C API (formerly static SCM _gtype_to_class). 2004-05-10 Andy Wingo * test-suite/gobject-primitives.test: Removed, this interface is no longer exported. Yay! 2004-05-09 Andy Wingo * gnome/gobject/gw-gobject-spec.scm (ws): Don't wrap gtype functions. I'm trying to move away from unnecessary g-wrap usage. * gnome/gobject/gtype.c (s_scm_gtype_to_class_name, s_scm_gtype_to_method_name): Implemented in scheme now. * gnome/gobject/gw-spec-utils.scm: removed the type name mangling code, going to put it in types.scm. * gnome/gobject/gtype.c (s_scm_gtype_children): Changed to return a list instead of a vector. * gnome/gobject/gparameter.c (s_scm_gparam_spec_p): Removed, it wasn't used anywhere. (s_scm_gparam_primitive_create): Doesn't pre-cache the param struct any more -- should be constructed on demand, i.e. when gparam->param-struct is called. 2004-05-04 Andreas Rottmann * gnome/gw/glib-support.c, glib-support.c (_wrap_g_string_get_str): New function. 2004-04-30 Andreas Rottmann * package.ac: Depend on glib-2.0 >= 2.4.0. 2004-04-27 Andreas Rottmann * gnome/gw/Makefile.am: Also distribute and install glib.scm. * gnome/gw/glib-spec.scm (initialize): Added a few type aliases for basic C types. Fixed for changed defs directory. 2004-04-12 Andreas Rottmann * h2def.py: Quick hack to fix G_*_DECLS misparsing. 2004-04-11 Andy Wingo * gnome/gobject/defs-support.scm (load-defs): Cope with slib 3 (and hopefully 2 as well) by changing the glob:match?? call to glob:make-matcher. 2004-04-03 Andreas Rottmann * gnome/gobject/defs-support.scm (type-lookup): Recognize "[]" in type strings and treat it like a pointer. 2004-04-03 Andreas Rottmann * configure.in: Depend on libgnomeui >= 2.6.0 and gtk+ >= 2.4.0. 2004-04-02 Andreas Rottmann * gnome/gobject.scm (gtype-instance:write): Typo fix: logor -> logior. 2004-03-29 Andreas Rottmann * test-suite/Makefile.am (libgw_test_gobject_la_LIBADD): Link against core instead of wrapset. 2004-03-29 Andreas Rottmann * guile-gobject.pc.in, guile-gobject-uninstalled.pc.in: Moved to gnome/gobject, where they belong. Makefiles adapted. * guile-gobject.pc.in (Libs): Link against against the core support code, not a wrapset. Remove have_gtk= line and FIXME comment, since these do not fall in the realm of pkg-config (no headers or regular shared libs installed). * guile-gobject-uninstalled.pc.in: Ditto. 2004-03-28 Andreas Rottmann * gnome/gobject/defs-support.scm (load-defs): The glob:* functions are not existant anymore in SLIB3, and were aliased to filename:* anyway. 2004-03-26 Andreas Rottmann * gnome/gobject.scm (gtype-class-define-signal): Use procedure->memoizing-macro instead of procedure->macro, which is deprecated. 2004-02-22 Andy Wingo * gnome/gobject/guile-gnome-gobject.c (s_scm_gobject_get_data) (s_scm_gobject_set_data_x): Use SCM_UNBOUND to indicate an unbound slot. 2004-02-22 Andy Wingo * gnome/gobject.scm (make-gparam-instance): Make params (read write) by default. (make-gobject-instance): Allow keyword initargs that are defined via :init-keyword. Call the initializer directly to set these. Somewhat hacky, but doesn't really break any rules. (scm->gvalue): Work with closures. 2004-02-21 Andy Wingo * gnome/gobject.scm (gtype-instance:write): If we get a GValue from somewhere else, the "primitive" code doesn't know how to make the class. So we have a new hacky method to accept a gtype as the arg and do the gtype->class in gobject.scm now. 2004-02-12 Andy Wingo * gnome/gobject/guile-gnome-gobject-primitives.c (guile_gobject_log_handler): Handle a NULL for log_domain. * gnome/gobject/primitives.scm (gparam-spec-type-args): Add a pair for GParamValueArray, but there's probably more work to do before you can make the param in scheme. * gnome/gobject/guile-gnome-gobject-primitives.h: GuileGClosure struct moved to the .c file to make it private. * gnome/gobject/guile-gnome-gobject-primitives.c (scm_c_debug_print): Removed. (scm_c_get_enum): Removed. (scm_c_make_genum): Removed. * gnome/gobject/guile-gnome-gobject-primitives.h: No more exporting (as C api) gparam-primitive-create-pspec-struct. * gnome/gobject/guile-gnome-gobject-primitives.c (s_scm_gvalue_primitive_set): Accept object and interface types as well. (s_scm_gtype_instance_primitive_to_value): Replaced by gvalue-primitive-new then gvalue-primitive-set. (s_scm_gvalue_primitive_set): Also handle gboxed-scm. (s_scm_gvalue_primitive_get): Handle gboxed-scm. (s_scm_gboxed_scm_primitive_new): Removed, now redundant. (s_scm_gboxed_scm_primitive_to_scm): Same. (s_scm_gtype_is_basic_p): Changed name to include -is and remove -primitive, like the standard GLib functions. Documented what a basic type is. (s_scm_gtype_is_basic_p): Boxed SCM is a basic type. (s_scm_gtype_is_valued_p): New function. Predicate that's true when you can make a GValue with (make class :value val). (scm_gvalue_array_primitive_new): Remove, just use gvalue-primitive-new. (scm_gvalue_array_primitive_append): Removed. There are no value array manipulation procedures any more. Use gvalue-primitive-set with a list as the argument. * gnome/gobject/primitives.scm (gflags->element-list): Replace gflags-primitive-bit-set?. * gnome/gobject/guile-gnome-gobject-primitives.c (s_scm_gvalue_primitive_set_enum): Functionality moved to gvalue-primitive-set. (s_scm_gvalue_primitive_set): Accept enum and flags types. (s_scm_gvalue_primitive_set_flags): Removed, like set-enum. (s_scm_gflags_primitive_bit_set_p): Removed, it's the same as (positive? (logand value bit)). * gnome/gobject/guile-gnome-gobject-primitives.h (scm_gtype_instance_primitive): Undefined function, somehow in the API? Removed. (scm_sys_gtype_instance_primitive_destroy_x): Since we export it to scheme, we can export it to C. * gnome/gobject/guile-gnome-gobject-primitives.c (genum_type_get_values): Changed name, from genum_primitive_get_values. (s_scm_gflags_type_get_values): Same. (scm_init_gnome_gobject_primitives): Organized and documented export list. The source file could also use such a reorganization. (s_scm_gtype_primitive_create_basic_instance): Removed, it does the same thing as gvalue-primitive-new. * gnome/gobject/guile-gnome-gobject-primitives.h (scm_tc16_gvalue_array): Gone. * gnome/gobject/guile-gnome-gobject-primitives.c (scm_gvalue_array_primitive_new): Just allocate GValueArray as a standard boxed type. (scm_gvalue_array_print): Removed, use just normal GValue printing. (scm_gvalue_array_free): Removed, no more tc16_gvalue_array. 2004-02-12 Andy Wingo * gnome/gobject.scm (scm->gvalue): Add a case for setting flags. (allocate-instance): Use gvalue-primitive-new for basic types. (gvalue->scm, scm->gvalue): Simplifications based on basic types. All over: adapt to primitives changes. 2004-02-08 Andy Wingo * gnome/gobject/primitives.scm (genum->value): New public function. (genum->value-table): Removed. Use genum-class->value-table from gobject.scm. * gnome/gobject/guile-gnome-gobject-primitives.c (scm_c_make_gvalue): Add some more debugging. * gnome/gw/glib-support.h: Add copyright notice. Still need to change all these to FSF. 2004-02-08 Andy Wingo * gnome/gobject.scm: Removed most of the commentary. Instead, refer to the tutorial. (exports): No more genum->value-table. New functions genum-class->value-table, gflags-class->value-table. New function genum->value. (initialize for ): Allow subclassing of and to create new GTypes. You must pass #:vtable as an initarg. (gtype-instance-primitive): New helper (private). (initialize for ): Allow either parameters and return val to be either or instances. If no return type is specified, set the slot to gtype:void, not #f. (make-pspec-args): Accept when gtype? is the predicate. (gtype-class-create-signal): Accept instances in the param types. 2004-01-29 Andy Wingo * gnome/gobject/defs-support.scm (load-defs): Parse a (callee-owned) option in parameter definitions. * gnome/gw/gw-gobject-spec.scm (GValue wrapping): Support 'callee-owned values. * gnome/gobject/gw-spec-utils.scm (gobject:gwrap-boxed): Support 'callee-owned arguments (call g_value_dup_boxed instead of _get_boxed). 2004-01-28 Andy Wingo * gnome/gw/gw-gobject-spec.scm (ws): Check for a NULL return for GValues. 2004-01-22 Andreas Rottmann * gnome/gobject/guile-gnome-gobject-primitives.c (s_scm_gvalue_array_primitive_new) (s_scm_gvalue_array_primitive_append): Don't wrap SCM_DEFINE invocation too much, since it seems to confuse older snarfers. 2004-01-22 Andreas Rottmann * configure.in: Check for GLib >= 2.2.0, since 2.1.X has no g_{set,get}_application_name. * configure.in: Use pkg-config to check for g-wrap. 2004-01-20 Andreas Rottmann * guile-gobject.pc.in: Require g-wrap and drop @GUILE_LIBS@. * autogen.sh: Require automake 1.7. 2004-01-20 Andreas Rottmann * gnome/gobject/defs-support.scm (load-defs): The glob:* functions are not existant anymore in SLIB3, and were aliased to filename:* anyway. 2004-01-14 Andy Wingo * gnome/gobject/primitives.scm (): There's no special get-n-set here any more, that's done with qdata. See gobject.scm for more details. * gnome/gobject/gw-spec-utils.scm (gobject:gwrap-object): Don't ref returned objects here, only unref them if we own them. This complements the change in make_gtype_instance. (gobject:gwrap-interface): Same. * gnome/gobject/guile-gnome-gobject.c (s_scm_gobject_set_data_x, s_scm_gobject_get_data): New functions implementing object properties using qdata so the state persists for all wrappers. (scm_c_gobject_get_property): Use scm_c_gtype_instance_to_scm to get the object -- will retrieve a cached object. (scm_c_gobject_set_property): Same. (remove_object_quark, free_object_quark): Removed. (s_scm_sys_function_to_method_public): Set the generic's name. A bit slower, but necessary for debugging. * gnome/gobject/guile-gnome-gobject-primitives.c (s_scm_gclosure_primitive_new): Make free_closure the invalidate notifier, not the finalize notifier. (s_scm_gclosure_primitive_new): Don't actually hold a ref on the closure by using g_value_set_static_boxed. This is to compensate for an over-conservative GC. (everywhere): Add some more debugging printouts (not enabled by default). (scm_gtype_instance_free): Remove vestigial finalize_func code, set the SMOB's data to NULL, and remove cached wrapper info. Can be called multiple times. (s_scm_sys_gtype_instance_primitive_destroy_x): New function, analogous to gtk_object_destroy, called by gtk.scm in response to the ::destroy signal. (line 710): A couple of pages of comment on the design of the GObject wrapper. (scm_c_make_gtype_instance): Check for a cached wrapper before sinking object. Cache the primitive wrapper separately from the GOOPS wrapper. Actually ref the object, in accordance with the design doc. Ref params too. (s_scm_gobject_primitive_get_properties): Don't ref the param here, it's done in make_gtype_instance. (s_scm_gparam_primitive_create): Remove floating reference, still holding the one from make_gtype_instance. (s_scm_gobject_primitive_create_instance): Remove extra ref on object, as we own the one given by g_object_new. Cache the wrapper. (s_scm_gvalue_primitive_get): Don't ref the objects or params here, it's done in make_gtype_instance. 2004-01-14 Andy Wingo * gnome/gobject.scm (make-gobject-instance): Now a method so that can implement explicit destruction. Exported. (): New class whose get-n-set uses gobject-get-data and gobject-set-data! to implement instance-allocated slots. (gvalue->scm): Use %gtype-instance-value->scm to convert GObject GValues into GOOPS objects. An optimization to prevent excessive allocation and reffing. 2004-01-14 Andy Wingo * WARTS: You've been able to subclass with define-class for a while now... 2004-01-13 Andy Wingo * gnome/gobject/guile-gnome-gobject.c (scm_c_scm_to_gtype_instance): Error if the SMOB's data is NULL (meaning the object has been destroyed). (scm_c_gtype_instance_to_scm): Cache return values as qdata on the objects. The qdata is removed when the SMOB is freed. (s_scm_sys_gtype_instance_value_to_scm): New function. An optimization so that callbacks can use existing object wrappers. * gnome/gobject/gw-utils.scm: Remove re-export-bindings in favor of re-export-module. Add a copyright notice. 2003-12-30 Andreas Rottmann * gnome/gobject/guile-gnome-gobject-primitives.c (scm_c_make_gtype_name) (s_scm_gtype_primitive_get_signals): Plugged memory leaks. 2003-12-17 Andreas Rottmann * TODO: Added entry on procedure->macro usage. 2003-12-13 Andreas Rottmann * gnome/gw/gw-glib-spec.scm (GSList): Initialize the c-var in the scm->c-ccg with NULL. 2003-12-13 Andreas Rottmann * gnome/gw/guile-support.h: Build upon g-wrap-compatibilty.h. 2003-12-09 Andy Wingo * gnome/gobject/guile-gnome-gobject.c (scm_c_gtype_instance_instance_init): Switch on the type from the class, not the instance, as the instance's type changes in different phases of initialization. Check to see if we have a servant already before making another one. Fixes some bugs in doubly-derived gobject classes. * gnome/gobject/guile-gnome-gobject-primitives.c (scm_c_make_gtype_instance): Sink objects after checking to see if we have a wrapper. 2003-12-07 Andreas Rottmann * gnome/gobject/guile-gnome-gobject-primitives.h (scm_init_gnome_gobject_helper): Added declaration. 2003-12-06 Andreas Rottmann * gnome/gobject/guile-gnome-gobject-primitives.c (guile_gobject_log_handler): Always issue error, even with NULL domain/message. 2003-12-03 Andy Wingo * gnome/gw/gw-glib-spec.scm: Fixed some longstanding bugs, embarassingly enough related to the size of fundamental types. Also added gshort and gushort as types. 2003-12-03 Andreas Rottmann * gnome/gobject/guile-gnome-gobject-primitives.c (guile_gobject_log_handler): Protect against NULL arguments. 2003-12-02 Andreas Rottmann * gnome/gw/gw-glib-spec.scm (GError): Ignore null-ok typespec option (we always pass a pointer). 2003-11-30 Andreas Rottmann * gnome/gw/gw-glib-spec.scm: Register gshort and gushort type aliases. 2003-11-22 Andreas Rottmann * gnome/gw/Makefile.am: Use $(G_WRAP_LIBS) and $(G_WRAP_CFLAGS). * gnome/gw/gw-glib-spec.scm: Adapted for new g-wrap. Implemented transparent GError handling (throw expection and hide argument). * gnome/gobject/gw-spec-utils.scm, gw-gobject-spec.scm: Reworked for new g-wrap. * gnome/gw/Makefile.am: Removed gw-standard sections. * gnome/gw/gw-standard-spec.scm: Removed, since g-wrap now has an up-to-date copy. All uses changed back to "(g-wrap gw-standard-spec)". * gnome/gobject/guile-gnome-gobject.c, guile-gnome-gobject.h (scm_sys_function_to_method_public): Removed, functionality is now in g-wrap. * gnome/gobject/guile-gnome-gobject.c, guile-gnome-gobject.h (g_type_from_instance, g_type_is_instantiatable) (g_type_is_classed): New macro-workalike functions. * gnome/gw/glib-support.h: Added #include guards. * gnome/gw/glib-support.c: Quick-fixed to work with Guile 1.7. * gnome/gw/guile-support.h (scm_gc_free): Fixed parameter list. * gnome/gobject/guile-gnome-gobject-primitives.c (scm_gvalue_free): Fix scm_gc_free() invocation. 2003-11-18 Andy Wingo * gnome/gobject/guile-gnome-gobject-primitives.c (s_scm_gboxed_scm_primitive_to_scm): If the boxed value is NULL, we return SCM_UNSPECIFIED to prevent a segfault when the value is printed. (s_scm_gvalue_primitive_set): If we don't know how to handle the GValue, signal a wrong type arg on the GValue, not the value we are trying to set. 2003-11-09 Andy Wingo * gnome/gobject/guile-gnome-gobject-primitives.c (s_scm_especify_metaclass_x): New function. Makes the metaclass of an existing GTypeClass more specific, hence the novel new word `especify'. Exists to hack around GOOPS' lack of class methods. 2003-11-08 Andy Wingo * gnome/gobject.scm (make-instance): New implementation for gtype-instances. `initialize' for gobjects is now called by the gobject system, not by goops. For params and interfaces, it is the same as before. (gtype-instance:initialize): Gone, replaced by the normal `initialize'. 2003-11-06 Andy Wingo * gnome/gobject/guile-gnome-gobject.c (s_scm_sys_function_to_method_public): Don't set the name keyword when making the generic, it's faster according to Andreas. 2003-11-01 Andy Wingo * gnome/gobject/guile-gnome-gobject.[ch] (scm_c_gvalue_to_scm): This one is const now. * gnome/gobject/guile-gnome-gobject-primitives.c (%scm-gclosure-marshal): Add some hacky prototypes to allow us to use scm_c_gvalue_to_scm in the marshaller. 2003-10-31 Andreas Rottmann * test-suite/guile-test-env: Drop support of Guile 1.3 and fix left-over g-wrap reference. * test-suite/exceptions.scm: Renamed gruntime-wrong-number-of-args to wrong-number-of args again, since the exception in lib.scm is called wrong-num-args, so there is no conflict. Users adapted accordingly. * test-suite/exceptions.scm: Get rid of out-of-range, as this is already in lib.scm. * test-suite/gw-test-gobject-spec.scm: Depend on "gw-standard". * test-suite/test-gobject.h, test-gobject.c, test-gobject.defs, gw-gobject.test: Added method invocation testcase. 2003-10-29 Andy Wingo * gnome/gobject.scm (initialize): Allow a single symbol again as a flags #:value. 2003-10-27 Andy Wingo * gnome/gobject.scm (initialize): For , if the #:value is an integer, process it correctly. 2003-10-26 Andy Wingo * gnome/gw/gw-glib-spec.scm (gslist-of): Fix some const pointer warnings. * gnome/gobject/gw-spec-utils.scm (gobject:gwrap-class): Use slot-ref, not slot-ref-using-class. * gnome/gobject/guile-gnome-gobject-primitives.c (slot_definition_using_name): Removed. * gnome/gobject/primitives.scm (define-with-docs): Renamed from define-public-with-docs, doesn't export the binding any more (let's just use the :export option when defining the module). (gruntime-debug): Removed. (%gruntime-debug): Removed. * gnome/gobject/guile-gnome-gobject.c (scm_gobject_register_type): Removed. Just use (define foo (gtype-from-name name)). (scm_c_gtype_instance_class_init): Don't call the gobject:class-init, just initialize after you define your class. This prevents custom initialization of scheme classes further subclassed in C, but that's a corner case that is maybe better left out. (scm_sys_gobject_get_refcount): Only define if DEBUG_REFCOUNTING is defined. (scm_c_gtype_instance_instance_init): Only call gtype-instance:initialize (was :instance-init), not a specific one for gobject. 2003-10-26 Andy Wingo * gnome/gobject.scm There were a lot of general cleanups and reorganizations here. The file should be more readable now. (gobject-get-property): Not a method anymore. We don't want people mistakenly overriding this function (override gobject:get-property instead). (gobject-set-property): Same. (gobject:set-property): Added docstring. (gobject:get-property): Same. (): No more servant properties. (gobject:instance-init): Gone, use gtype-instance:instance-init. (gobject:class-init): Gone, initialize after you make the class. (gobject-class:install-property): Gone, the C code does The Right Thing now. (gtype-instance:class-init): Gone, like gobject:class-init. (class-is-a?): Gone. (gobject-type-register-static): Gone. Use gtype-register-static if you want to, but subclassing should be good enough. (initialize): For , we never see closures, so we remove that piece of code. 2003-10-26 Andy Wingo * examples/gobject/example-1.scm: Updated to the new property/signal/subclassing API. 2003-10-25 Andy Wingo * gnome/gobject/primitives.scm (): A new metaclass descending from . is now an instance of this class. (compute-get-n-set): For , overrides #:instance allocation to set properties on the <%gtype-instance> smob. * gnome/gobject/guile-gnome-gobject.c (scm_gtype_eq_p): Removed. Just use eq?. 2003-10-25 Andy Wingo * gnome/gobject.scm (get-direct-supers): Only add to the hierarchy if the type is instantiatable, not classed. (gobject-class-set-properties!): New function, split out of init-gobject class. (init-gobject-class): Expose slots described with #:param-spec options as gobject properties. (let-params): Removed, you can do all of this with GOOPS now. (make-gobject-property): Removed, GOOPS handles this now. (define-gobject-class): Removed, just use define-class. (initialize): For , do most of the things we did in gtype->class here. If no #:gtype argument is passed, subclass the parent type. (gtype->class): Just make the class, no more voodoo here. (write): for , don't try to write the pspec struct if it isn't set yet. (gtype-class-create-signal): Take a list of param types instead of a vector. 2003-10-25 Andreas Rottmann * test-suite/gobject.test: Fixed for recent API changes. 2003-10-25 Andreas Rottmann * gnome/gobject/guile-gnome-gobject-primitives.c (s_scm_gparam_primitive_create_pspec_struct, s_scm_gparam_primitive_create): GValue support for param specs. * gnome/gobject/guile-gnome-gobject-primitives.h (SCM_G_IS_PARAM_SPEC_VALUE_ARRAY): New macro. 2003-10-25 Andreas Rottmann * gnome/gobject.scm (scm->gvalue): Fixed wrt gvalue-array (recent changes broke this). 2003-10-24 Andreas Rottmann * test-suite/gobject.test: Comment out tests failing due to API regression. * test-suite/Makefile.am: 'make distcheck' fixes. * test-suite/test-gobject.c, test-gobject.h, test-gobject.defs, gw-test-gobject-spec.scm, gw-gobject.test: Testcase framework for wrapping, including test for GValue arrays. * test-suite/guile-test-env: New shell script - runs guile with the right environment for the tests. * test-suite/Makefile.am: New - we want to run the test-suite with 'make check'. * test-suite/guile-gobject-test: Also stolen from Guile CVS (guile-test) and adapted. * test-suite/lib.scm: Stolen from Guile CVS, as this is not installed. * test-suite/exceptions.scm: New module, defines common exceptions. * test-suite/gobject.test, gobject-primitives.test: Brought on par with the current API and molded into modules. 2003-10-24 Andreas Rottmann * gnome/gobject.scm (gclosure-invoke): Fixed for closures without return type. 2003-10-23 Andy Wingo * gnome/gobject/guile-gnome-gobject.c (%gobject-get-property): Use scm->gvalue to process the return from gobject:get-property. 2003-10-23 Andy Wingo * gnome/gobject.scm (gobject-get-property): Use gvalue->scm. (allocate-instance): Allocate GBoxedSCM instances in the allocate-instance method. (let-params): #:name, not :name. 2003-10-22 Andy Wingo * gnome/gobject/primitives.scm: The big changes! There's no more . (): New metaclass implementing set-once slots. (): Now a metaclass. Its metaclass is , so it has set-once slots for gtype and gtype-class. All gtype classes are now instances of this metaclass. (): New class, has a set-once slot for the gtype-instance. Instance of . Parent class of all instantiatable types (like ). * gnome/gw/gw-gobject-spec.scm: New wrappers for gtype-is-classed? and gtype-is-instantiatable?. * gnome/gobject/guile-gnome-gobject.h (SCM_GOBJECTP): Use new SUBCLASSP macro. (SCM_GOBJECT_CLASSP): Use SUBCLASSP macro. (SCM_VALIDATE_GOBJECT_CLASS_GET_TYPE): Get the gtype by a slot-ref, not a class-slot-ref. * gnome/gobject/guile-gnome-gobject-primitives.h (SCM_GPARAM_SPEC_P): Allow SCM_BOOL_F for owner-type. (SCM_GTYPE_CLASS_SUBCLASSP): New macro. * gnome/gobject/guile-gnome-gobject-primitives.c (s_scm_sys_gtype_bind_to_class): Re-set the 'signals slot on implemented interfaces after g_type_class_ref()ing an implementor. Hackery, but that's the GObject system for you! (scm_gtype_class_print): Print gtype-class smobs with a %. (s_scm_sys_gtype_bind_to_class): Set the gtype and gtype-class slots using slot-set!, in accordance with the new hierarchy. Also loop through the implemented interfaces to re-set 'gsignals, because they aren't there until after a g_type_class_ref () on an implementor. (s_scm_sys_get_struct_slot): Work on any instance. (s_scm_sys_set_struct_slot): Same. (s_scm_gtype_primitive_get_signals): Rename from gobject-primitive-get-signals, because it works on interfaces too. (s_scm_gtype_instance_primitive_signal_emit): Renamed. (s_scm_gtype_instance_primitive_signal_connect): Renamed. * gnome/gobject/generics.scm (all functions): Updated to the new class hierarchy. * gnome/gobject/guile-gnome-gobject.h (SCM_VALIDATE_GOBJECT_CLASS_COPY): Renamed to SCM_VALIDATE_GOBJECT_CLASS_GET_GTYPE, since that's what it actually does. 2003-10-22 Andy Wingo * gnome/gobject.scm: (get-metaclass): Removed, we always use as a metaclass. (gtype->class): Always use as a metaclass. Add some initialization for interfaces, but this can't be completed until an implementor has been initialized as well. So the job is finished in %gtype-bind-to-class for implementors. (gtype-instance:write): Work on <%gtype-instance>. This will probably move somewhere else in the future. (gtype-instance:write): Why we have implementations for s is unknown to me. These will likely be removed. (gtype-class-get-vector-slot): Robustified to deal with strange objects in the CPL (like interfaces). (gtype-instance-signal-emit): Name changed from gobject-signal-emit, because it can operate on any gtype-instance. (gtype-instance-signal-connect-data): Same. (gtype-instance-signal-connect): Same. (gtype-instance-signal-connect-after): Same. (gtype-class-create-signal): Same. 2003-10-22 Andreas Rottmann * gnome/gobject/guile-gnome-gobject-primitives.c, guile-gnome-gobject-primitives.h, guile-gnome-gobject.c: Implement GValue array support. * gnome/gobject/guile-gnome-gobject-primitives.c (scm_c_make_gvalue) (scm_gvalue_free): Replaced deprecated scm_must_malloc/free invokations with scm_gc_malloc/free. * gnome/gw/guile-support.h (SCM_VECTOR_REF, SCM_VECTOR_SET): New compat macros, to be used instead of SCM_VELTS(). (scm_gc_malloc, scm_gc_free): New compat macros, to be used instead of scm_must_malloc/free. (scm_gc_unregister_collectable_memory) (scm_gc_register_collectable_memory): New compat macros. 2003-10-21 Andy Wingo * gnome/gobject/guile-gnome-gobject-primitives.c (scm_pre_init_gnome_gobject_primitives): Make the smob for GTypeClass called "%gtype-class" to avoid conflicts between the GOOPS smob class and the real wrapper class. * gnome/gw/gw-gobject-spec.scm: New wrapped function: gtype-is-classed?. * gnome/gobject/guile-gnome-gobject-primitives.c (scm_gtype_interfaces): New function, returns the interfaces implemented by a type. (scm_gtype_primitive_get_signals): Renamed from gobject-primitive-get-signals, although no code change is required. 2003-10-21 Andy Wingo * gnome/gobject.scm: General reorganizations. (get-parent-types): Removed, we only have one direct parent now (as well as interfaces if they're not already there). (gtype-class-ancestry): Removed, all this information is already encapsulated in the class precedence list. (make-class-slots): Change the name of gobject-signals to gsignals, and add it to all classed GTypes. (gtype-ancestry): Removed, either get this from the class precedence list or loop on gtype-parent yourself. (init-gobject-class): Only store signals from the class itself in the gsignals slot. (gtype-class-get-signal-names): New function. (get-direct-supers): New function, replaces get-parent-types. I'm schizophrenic ;) (gtype->class): Also initialize GObject (dunno why this wasn't done). 2003-10-21 Andreas Rottmann * configure.in: Disable ORBit check, since the code needs internal API headers that are not installed by default. 2003-10-16 Andy Wingo * gnome/gobject/gw-spec-utils.scm: Export gobject:gwrap-helper-with-class. 2003-10-15 Andy Wingo * gnome/gobject/guile-gnome-gobject.c (scm_c_gtype_instance_instance_init): Only call the instance-inits with one argument, the object. 2003-10-15 Andy Wingo * gnome/gobject.scm (gobject:instance-init): Remove class argument. (gtype-instance:instance-init): Remove class argument. 2003-10-13 Andy Wingo * gnome/gobject/guile-gnome-gobject.c (scm_c_gvalue_to_scm): Copy the incoming GValue so that we have our own. 2003-10-13 Andy Wingo * configure.in: -Wall always. -Werror unless you pass --disable-Werror. --disable-Wall is gone. Put in debugging symbols unless --disable-debug is passed. 2003-10-12 Andy Wingo * gnome/gobject/guile-gnome-gobject.c (scm_c_scm_to_gvalue): New function, calls scm->gvalue. (scm_c_gvalue_to_scm): New function, calls gvalue->scm. * gnome/gobject/gw-spec-utils.scm (gobject:gwrap-interface): Wrap interfaces properly, now that we use them. 2003-10-12 Andy Wingo * gnome/gobject.scm (scm->gvalue): renamed from make-value-from-scm. Also deals with interfaces. (make-ginterface): Wrap interfaces using the standard goops<->GTypeInstance SMOB pairing. (exports): Export classes for , , and . 2003-10-12 Andy Wingo * configure.in: We do -Wall by default (--disable-Wall to disable) 2003-10-11 Andy Wingo * gnome/gobject/defs-support.scm (load-defs): Ignore .defs entries where there is a (varargs ...) line. * gnome/gobject/guile-gnome-gobject.c (s_scm_sys_function_to_method_public): Some cleanups. Use the same coding style as the rest of the file. Use static variables to reference the-root-module and module-add!. Don't check to see if objects are actually classes, that's done by g-wrap now. We still have to make a new closure for the procedure, due to a bug in Guile 1.6.4. 2003-10-07 Kevin Ryde * gnome/gobject/guile-gnome-gobject.c (scm_sys_function_to_method_public): Don't put variable declarations in the middle of the function, that's a c99-ism. 2003-10-01 Andy Wingo * gnome/gobject/gw-spec-utils.scm: General cleanups all around... (GStudlyCapsExpand): New function, based on StudlyCapsExpand from slib's strcase.scm (public domain). Given a C type name, returns the appropriate scheme type name. Normally a lower case letter preceded by one capital letter forces a hyphenation before the capital letter: GSource => g-source, GtkIMContext => gtk-im-context. However, a lower case letter preceded by exactly two capital letters that is not at the beginning of the string is treated specially: GtkHBox => gtk-hbox (like the C api). (glib:type-cname->symbol-alist): New alist of overrides for converting C type names to scheme names. (glib:type-cname->symbol): uses GStudlyCapsExpand, mapping underscores to hyphens. GSource* => . (print-info): Gives more feedback when the bindings are being created. This uses slib's printf. (gwrap-helper): New argument HOW-WRAPPED. If not false, will cause gwrap-helper to call print-info for the type. (gwrap-helper-with-class): New argument HOW-WRAPPED, passed on to gwrap-helper. Cleanups. (gobject:gwrap-*): Pass appropriate values for HOW-WRAPPED. * gnome/gw/gw-gobject-spec.scm: use the new glib:type-cname->symbol-alist to override scheme names for , , , and . When wrapping g-source-set-closure, use the new name for GSource (). * gnome/gobject/defs-support.scm (register-type): Removed last argument relating to information printing -- that's done in gw-spec-utils now. (load-defs): When checking to see if a method has a bad name, don't ignore asterisks at the end of the type name. Thus we avoid creating methods for opaque pointers. 2003-10-01 Andy Wingo * configure.in: Check to see if glade is installed. 2003-09-22 Andy Wingo * autogen.sh: remove build-dependency on gnome2-dev by using gstreamer's build system * autogen-support.sh: gstreamer's build system (new file) 2003-08-26 Andreas Rottmann * gnome/gobject/gw-utils.scm (function->method-public) (functions->methods-public): Unecessary now, removed. * gnome/gobject/defs-support.scm (load-defs): Make sym_of_object and sym_generic_name static. (load-defs): Create generic functions immediatly instead of setting the of-object procedure property. * gnome/gobject/guile-gnome-gobject.c, guile-gnome-gobject.h (scm_sys_function_to_method_public): New function. * gnome/gobject/defs-support.scm (recursive-type-find): Fixed behavior for empty type-hashes. * gnome/gobject/defs-support.scm, gw-spec-utils.scm: Support for enums/flags without gtype-id. * gnome/gw/Makefile.am (GUILE_FLAGS): New variable. 2003-07-27 Andy Wingo * gnome/gobject/guile-gnome-gobject-primitives.[ch] (G_TYPE_BOXED_SCM): renamed from G_TYPE_GBOXED_SCM. There have been other changes recently that I haven't been putting in the changelogs... 2003-07-27 Andy Wingo * gnome/gobject.scm (make-value-from-scm): Make gboxed-scms when needed. 2003-06-21 Andy Wingo * gnome/gobject/gw-spec-utils.scm (gobject:gwrap-class): New function. 2003-06-19 Andy Wingo * gnome/gobject/guile-gnome-gobject.c (scm_c_gtype_instance_instance_init): Call scm_c_make_gtype_instance to get the primitive GTypeInstance wrapper for the servant. That way we really only have one primitive wrapper, however many high level wrappers there are. Seems to fix some flaky bugs as well, as a side effect. 2003-06-18 Andy Wingo * gnome/gobject.scm (make-gparam-instance): Fix typo (name->nick). (make-gparam-instance): Make the pspec->flags actually set, with a #:flags initarg -- also required some changes in -primitives.c. 2003-06-14 Andy Wingo * gnome/gobject/guile-gnome-gobject-primitives.c (scm_c_make_gtype_instance): Cache the primitive gtype instance smob. 2003-06-07 Andy Wingo * gnome/gobject/primitives.scm (gparam-spec:args): Fix to actually return the full list of args. Zip up the returned list with descriptive keywords. 2003-06-07 Andy Wingo * gnome/gobject.scm: Made the commentary retrievable with file-commentary, see (ice-9 documentation) for more details. * gnome/glib.scm (g-timeout-add, g-idle-add): As it turns out, g-idle-source-new creates an idle source, but with priority G_PRIORITY_DEFAULT instead of G_PRIORITY_DEFAULT_IDLE. This means that after g-idle-add is called, no Gtk events get processed (Bad Thing (tm)). Now we set the priority manually to DEFAULT_IDLE. Thanks to Owen Taylor for pointers on this one. 2003-05-30 Andy Wingo * gw-standard-spec.scm (, ): Add LL to the end of the max/min 64 bit constants to appease gcc 3.3. However, gcc-3.3 fails to compile the gtk bindings, at least on my machine. gcc 3.2 does work. 2003-05-30 Andy Wingo * gnome/gobject/defs-support.scm (type-lookup): Without an explicit value for ownership, we only assume that we own non-const strings. Other things represented by pointers are treated conservatively. This is so that a function returning a GObject* has its return g_object_ref'd; non-const is not the same as caller-owned. 2003-05-26 Andy Wingo * gnome/gobject/defs-support.scm (load-defs): Add support for null-ok in defs files, e.g. '("GdkWindow*" "window" (null-ok)). * gnome/gobject/gw-spec-utils.scm: Only allow NULL values for objects, pointers, boxeds, and interfaces if 'null-ok appears in the typespec. * gnome/gw/gw-gobject-spec.scm: Added input checks for generic GValue type wrapper. Only allow NULL for closures if 'null-ok appears in the typespec. 2003-05-08 Andy Wingo * gnome/gobject/guile-gnome-gobject-primitives.[ch]: Added and exported log handler for g_logv messages. I don't thing it returns, however, which can cause recursion... dunno what to do about that. * gnome/gw/gw-gobject-spec.scm: wrap closures and g-source-set-closure. * gnome/gw/gw-glib-spec.scm: wrap main loops and some things from gutils.h. Steal GList/GSList wrapper from g-wrap. * gnome/gobject/defs-support.scm: prettify output, log opaque types and bad methods to a file. We now wrap opaque types as . Add support for GList*-of-GtkWindow*. Support new commands "ignore", "ignore-glob", and function attribute "overrides". 2003-05-08 Andy Wingo * gnome/glib.scm: new file. Imports gobject/gw-glib and defines g-idle-add and g-timeout-add (in scheme). 2003-05-03 Andy Wingo * gnome/gw/gobject.scm: Cleanups. Also changed a few gtype-instance-primitive function calls with (slot-ref obj 'gtype-instance). With the new directory structure, gobject.scm moves into gnome/. * gnome/gobject/primitives.scm: Don't hold extra data in the slot-definition, it's needed by the latest guile 1.6. Change the old slot allocation for gtype and gtype-instance to rely on a new kind of allocation, #:set-once. Adapt to the new method of library initialization with g-wrap. * gnome/gobject/gw-utils.scm: New file. Provides utility syntax re-export-bindings and functions->methods-public. * gnome/gobject/gw-spec-utils.scm: New file. Provides utility functions for spec files, such as gobject:wrap-object, gobject:wrap-enum, and the like. * gnome/gobject/defs-support.scm: New file. Provides support for natively loading .defs-style api definitions into g-wrap wrapsets. * gnome/gw/gw-glib-spec.scm: New file. Will eventually wrap glib functions, but for now just provides type wrappings for other wrapsets. * gnome/gw/gnome-gobject.gwp: Deleted. Functionality moved to gw-gobject-spec.scm. * gnome/gw/gw-gobject-spec.scm: New file. Wraps functions to initialize gnome-gobject, as well as wrapping some fundamental types for g-wrap. * gnome/gw/generics.scm: New file. Provides generic functions for gobject.scm. * gnome/gobject/guile-gnome-gobject.c: Added diagnostic macros to debug allocation problems. Adapted to new slot allocation for 'gtype and 'gtype-instance. Return a a goops object of class (gtype->class [type of gtypeinstance]) in scm_c_gtype_instance_to_scm. Exported (to C) scm_sym_gtype_to_class, the symbol for gtype->class. Adapted to new initialization via g-wrap. * gnome/gobject/guile-gnome-gobject-primitives.c: Muck about with refcounting. Provide guile_gobject_register_sinkfunc(), much like what pygtk does, to deal with GTK_OBJECT_FLOATING. Provide getters and setters for #:set-once allocation and adapt accordingly for 'gtype and 'gtype-instance. Refcounting is still not in a coherent state, needs a bit of work. 2002-11-08 Ariel Rios * gnome/gobject/guile-gnome-gobject-primitives.c (s_scm_gobject_primitive_signal_emit): Rewrite the function being more clever, more readable and hey! it works. * gnome/gobject.scm (gobject-signal-emit): Do some cleanup. 2002-08-01 Ariel Rios * gnome/gobject/guile-gnome-gobject-primitives.c (s_scm_gparam_primitive_create_pspec_struct): Some cleanup 2002-08-01 Ariel Rios * gnome/gobject/guile-gnome-gobject-primitives.c (s_scm_gparam_primitive_create): Use the new macros thus doing the right thing (TM) * gnome/gobject/guile-gnome-gobject-primitives.h (SCM_G_IS_PARAM_SPEC_BOOLEAN) (SCM_G_IS_PARAM_SPEC_STRING, SCM_G_IS_PARAM_SPEC_OBJECT) (SCM_G_IS_PARAM_SPEC_BOXED, SCM_G_IS_PARAM_SPEC_CHAR) (SCM_G_IS_PARAM_SPEC_UCHAR, SCM_G_IS_PARAM_SPEC_INT) (SCM_G_IS_PARAM_SPEC_UINT, SCM_G_IS_PARAM_SPEC_LONG) (SCM_G_IS_PARAM_SPEC_ULONG, SCM_G_IS_PARAM_SPEC_FLOAT) (SCM_G_IS_PARAM_SPEC_DOUBLE, SCM_G_IS_PARAM_SPEC_POINTER) (SCM_G_IS_PARAM_SPEC_ENUM, SCM_G_IS_PARAM_SPEC_FLAGS): New macros 2002-07-30 Ariel Rios * guile-gnome-gobject.c : Add string.h to make compiler happy * gnome/gobject/guile-gnome-gobject-primitives.c: Ditto * gnome/gw/guile-support.c: Ditto 2002-07-30 Ariel Rios * gnome/gobject/guile-gnome-gobject.c (scm_init_gnome_gobject): Some cleanup of unused code. 2002-07-30 Ariel Rios * gnome/gobject/guile-gnome-gobject.c (scm_init_gnome_gobject): Do the right thing. 2002-04-13 Ariel Rios * gnome/gobject/guile-gnome-gobject-primitives.c (s_scm_gparam_primitive_create_pspec_struct): s/g_param_get_*/g_param_spec_get. 2002-01-28 Ariel Rios * configure.in: Bump version number to 0.3.0 * NEWS: What's new =) 2002-01-23 Ariel Rios * guile-gnome-gobject-primitives.c: glib-object.h * gnome/gobject/guile-gnome-gobject-primitives.h: Ditto. * gnome/gobject/guile-gnome-gobject.c (scm_init_gnome_gobject): Do not use G_TYPE_FUNDAMENTAL_LAST and other deprecated stuff, this hack is a workaround and it is not guaranteed to work yet. We now only include glib-object.h 2002-01-23 Ariel Rios * gnome/gobject/guile-gnome-gobject-primitives.c (s_scm_gparam_primitive_create_pspec_struct): Functions now compiles. Still some work to do in some functions ahead. 2002-01-23 Ariel Rios * gnome/gobject/guile-gnome-gobject-primitives.c (s_scm_gparam_primitive_create): More clean ups. Almost done. 2002-01-23 Ariel Rios * gnome/gobject/guile-gnome-gobject-primitives.c (s_scm_gparam_primitive_create): All fixes done. It compiles again. Need to check the fundamental stuff. 2001-09-21 Ariel Rios * gnome/gobject/guile-gnome-gobject-primitives.c (gboxed_scm_get_type): Use correct of arguments required by recent glib changes. (s_scm_gparam_primitive_create_pspec_struct): Do not access GParamSpec fields directly. (s_scm_gparam_primitive_create): Correct number of arguments passed to SCM_ASSERT 2001-09-10 Martin Baulig Released guile-gobject 0.2.0 "The Great Barrier Reef". * configure.in: Bump version number to 0.2.0. * RELEASE-NOTES-0.2.0.txt: Preparing the release ... 2001-09-09 Martin Baulig * gnome/gw/gobject.scm (vector-map): New private utility function. (): Removed the `pspec-struct' slot. ( ): Added. ( ): Added. (gparam->pspec-struct): New public function. (allocate-instance ): Moved and initialization into (initialize ), only do the actual allocating here. * gnome/gobject/guile-gnome-gobject-primitives.c (scm_c_debug_print): New utility function. (SCM_DEBUG_PRINT): New utility macro. (gparam-primitive->pspec-struct): Moved the functionality of this function into `gparam-primitive-create-pspec-struct' (not exported), store the pspec-struct as qdata in the param and return it. (SCM_ERROR_NOT_YET_IMPLEMENTED): Added `what' argument. * gnome/gobject/guile-gnome-gobject.c (gtype?): New function. (gparam->value-type): New function. 2001-09-09 Martin Baulig * gnome/gw/gobject.scm (gobject-class-find-property): New public function. 2001-09-08 Martin Baulig * gnome/gw/gobject.scm (gtype-instance:class-init, gtype-instance:instance-init gobject:class-init gobject:instance-init gobject-class:install-property gobject:set-property gobject:get-property): Moved here from primitives.scm. (): Added `pspec-struct' slot. (): The `gobject-properties' vector now contains objects. (make-gparam-instance): Added #:pspec-struct keyword to create a object from a pspec-struct. (gobject:get-property, gobject:set-property): This now gets a object as argument, not a pspec-struct. (gobject-class-install-property): Removed, implemented in C. * gnome/gobject/guile-gnome-gobject-primitives.c (scm_c_gtype_lookup_class): New function. (scm_c_gtype_instance_bind_to_instance): New function. (gtype-primitive-register-static): Moved to guile-gnome-gobject.c and renamed to gtype-register-static. (gobject-class-primitive-install-property): Moved to guile-gnome-gobject.c and renamed to gobject-class-install-property. (scm_gparam_spec_vtable): Added "param-type" field. * gnome/gobject/guile-gnome-gobject.c (gtype-register-static): Moved here. (gobject-class-install-property): Moved here. 2001-09-08 Martin Baulig * gnome/gw/foo.[ch]: Removed. 2001-09-07 Martin Baulig * gnome/gw/guile-support.[ch]: New files. This stuff may be moved into guile at a future time. 2001-09-07 Martin Baulig * gnome/gobject/guile-gnome-gobject-primitives.c (scm_add_slot_closure): Removed. 2001-09-06 Martin Baulig * gnome/gw/gobject.scm ( ): New classes. (gobject-class-install-property): New public function. (allocate-instance ()): Added support for subclasses. * gnome/gobject/guile-gnome-gobject-primitives.c (gparam-primitive-create): This now takes 4 args like (gobject-primitive-create-instance). 2001-09-05 Martin Baulig * gnome/gobject/primitives.scm (gparam-spec:name gparam-spec:nick gparam-spec:blurb gparam-spec:flags gparam-spec:value-type gparam-spec:owner-type gparam-spec:args): New accessor functions. * gnome/gobject/guile-gnome-gobject-primitives.c (gobject-primitive-get-properties): Only return direct properties, not the ones from our parent types. * gnome/gw/gobject.scm (gtype->class): Register parent classes if necessary. gsignal:id gsignal:name gsignal:interface-type gsignal:return-type gsignal:param-types gparam-spec:name gparam-spec:nick gparam-spec:blurb gparam-spec:flags gparam-spec:value-type gparam-spec:owner-type gparam-spec:args): Re-export them (from (gnome gobject primitives)). (gobject-class-get-property-names): New convenience function. * gnome/gobject/guile-gnome-gobject.c (scm_c_gtype_instance_is_a_p): New function. (scm_c_scm_to_gtype_instance, scm_c_gtype_instance_to_scm): New functions. 2001-09-05 Martin Baulig * gnome/gobject/guile-gnome-gobject-primitives.c (gparam-spec?): New func. (gobject-class-primitive-install-property): New function. Added support for properties. (scm_gtype_instance_free): Don't free the instance if we have a finalize func. * gnome/gobject/primitives.scm (gobject:set-property gobject:get-property): New generic functions. * gnome/gw/gobject.scm (gobject:set-property gobject:get-property): Provide default implementation. 2001-09-05 Martin Baulig * configure.in: Bump version number to 0.1.0. 2001-09-03 Martin Baulig Another batch of larger changes: - improved gsignal support. - we can now derive GObject's in scheme. More detailed, but a bit uncomplete list: * gnome/gw/gobject.scm (gtype->class): For each class we create, use its parent class as metaclass. (): New type. This is a GBoxed type to hold a scheme value. (gvalue->scm): Moved here from primitives.scm and export it. (gtype-instance:class-init): New generic function. (gtype-instance:instance-init): New generic function. (gobject-class-define-signal): New public macro. * gnome/gobject/guile-gnome-gobject-primitives.[ch] (gvalue-primitive-get-basic): Renamed to gvalue-primitive-get. (gvalue-primitive-set-basic): Renamed to gvalue-primitive-set. (gtype-instance-primitive-type): Renamed to gtype-instance-primitive->type. (gtype-instance-primitive-to-value): New function. (scm_init_gnome_gobject_primitives): Don't export the "gsignal-*" symbols, except "gsignal-struct-vtable". (G_TYPE_GBOXED_SCM): New GBoxed type to hold a scheme value. (gboxed-scm-primitive-new): New function. (gboxed-scm-primitive->scm): New function. (gsignal-primitive-create): New function. (gtype-class->type): Removed. This is now implemented in scheme and correctly handles the case if you create a GOOPS subclass of a class. * gnome/gobject/guile-gnome-gobject.[ch] (gtype->method-name): New function. * gnome/gobject/primitives.scm (gsignal:id, gsignal:name, gsignal:return-type, gsignal:instance-type, gsignal:parameter-types): New accessor functions. 2001-09-03 Martin Baulig * gnome/gobject/guile-gnome-gobject-primitives.c (gobject:class-init, gobject:instance-init): When deriving GObject's, use `gobject:class-init' and `gobject-instance-init' instead of `gtype-instance:class-init' and `gtype-instance:instance-init'. * gnome/gobject/guile-gnome-gobject.c (gtype-fundamental?): New function. This isn't really necessary, but it's faster to do this in C. * gnome/gobject/primitives.scm (define-public-with-docs): New macro. (define-generic-with-docs): New macro. * gnome/gw/gobject.scm: Documentation ..... 2001-09-03 Martin Baulig * gnome/gobject/guile-gnome-gobject-primitives.c (scm_c_register_gtype): Unmangle the type with G_TYPE_FLAG_RESERVED_ID_BIT. 2001-09-03 Martin Baulig * gnome/gobject/guile-gnome-gobject-primitives.c (gtype-primitive-create-instance): Renamed to gobject-primitive-create-instance; its last argument is now a vector containing the properties. * gnome/gw/gobject.scm: When creating new instances, interpret all arguments as GObject properties. 2001-09-03 Martin Baulig * gnome/gobject/guile-gnome-gobject-primitives.c (gsignal-primitive-create): Actually pass the `param-types' vector to g_signal_newv(). * gnome/gw/gobject.scm (make-value-from-scm): Throw an exception if we got the unspecified value, but a non-void type. 2001-09-01 Martin Baulig Added support for GParamSpec. * gnome/gw/gobject.scm (gobject-get-property, gobject-set-property): New functions. * gnome/gobject/guile-gnome-gobject-primitives.c (scm_gparam_spec_struct_vtable): New struct type. (scm_gtype_instance_primitive_to_instance): Renamed to scm_gtype_instance_primitive(). (scm_gtype_instance_primitive_type): New function. (scm_gobject_primitive_signal_emit, scm_gobject_primitive_signal_connect): Take a scm_tc16_gtype_instance smob, not a object. (scm_gparam_primitive_to_pspec_struct): New function. (scm_gparam_primitive_create): New function. (s_scm_gobject_primitive_get_properties): New function. (scm_gobject_primitive_get_property): New function. (scm_gobject_primitive_set_property): New function. * gnome/gw/foo.[ch]: Added properties. 2001-09-01 Martin Baulig * gnome/gobject/primitives.scm (): Removed, replaced with a smob. (gobject-error): Renamed to gruntime-error. * gnome/gobject/guile-gnome-gobject-primitives.[ch]: Removed the class and added new scm_tc16_gtype smob. * gnome/gw/gobject.scm (gtype->class): Use as metaclass and changed all to . * gnome/gobject/guile-gnome-gobject.c: Call the GType's "gtype:" instead of "gtype-type-". 2001-09-01 Martin Baulig * gnome/gobject/guile-gnome-gobject-primitives.c (scm_gtype_primitive_register_static): New function. * gnome/gobject/guile-gnome-gobject-primitives.h (SCM_VALIDATE_FLOAT_COPY): Make this actually work. 2001-09-01 Martin Baulig * Makefile.am, configure.in: Don't build libgnome/ and orbit/ for the moment, nothing interesting in there. 2001-08-31 Martin Baulig * test-suite/gobject-primitives.test: Added tests for gclosure primitives. * test-suite/gobject.test: Added tests for gclosure. 2001-08-31 Martin Baulig * gnome/gobject/guile-gnome-gobject-primitives.c (scm_tc16_gclosure_smob): Removed. (scm_gclosure_primitive_invoke): Correctly GC protect the GuileGClosure's `func' field. 2001-08-31 Martin Baulig * gnome/gobject/guile-gnome-gobject-primitives.c (scm_gvalue_primitive_to_type): Removed, we already have scm_gvalue_to_type. 2001-08-31 Martin Baulig * gnome/gw/gobject.scm (gtype-instance-write): Added method for `(type ) (obj ) file)' - creates the class using (gtype->class type) and then calls the normal gtype-instance-write. * gnome/gobject/guile-gnome-gobject-primitives.c (scm_gvalue_print): If the class doesn't exist yet, use the type as first argument of gtype-instance-write. 2001-08-31 Martin Baulig * gnome/gw/gobject.scm (gobject-signal-connect-data): Use the new object. (gsignal-handler-block gsignal-handler-unblock gsignal-handler-disconnect gsignal-handler-connected?): New functions. * gnome/gobject/guile-gnome-gobject-primitives.c (GuileGTypeInstance): Killed, use GTypeInstance directly. (scm_gtype_instance_primitive_to_instance): New func. (scm_gsignal_primitive_handler_block): New func. (scm_gsignal_primitive_handler_unblock): New func. (scm_gsignal_primitive_handler_disconnect): New func. (scm_gsignal_primitive_handler_connected_p): New func. 2001-08-31 Martin Baulig * gnome/gw/gobject.scm (): Implement this as a GOOPS class, not as a GValue. (gclosure-invoke): New generic function. * gnome/gobject/guile-gnome-gobject-primitives.c (scm_tc16_gclosure): Renamed to `scm_tc16_gclosure_smob'. (scm_gclosure_primitive_invoke): Added return_type argument. (scm_gvalue_primitive_to_type): New function. 2001-08-27 Martin Baulig * test-suite/gobject.text: Testcase for `(gnome gobject)' module. * test-suite/gobject-primitives.test: Testcase for `(gnome gobject primitives)'. 2001-08-27 Martin Baulig * test-suite/: New directory. 2001-08-27 Martin Baulig * gnome/gobject/primitives.scm, guile-gnome-gobject-primitives.[ch]: Moved some of the internal stuff into a new `(gnome gobject primitives)' module and exported most of the methods. 2001-08-27 Martin Baulig * gnome/gobject/primitives.scm (gflags->element-list): New primitive function. (gflags->symbol-list gflags->name-list gflags->value-list): New functions. 2001-08-25 Martin Baulig - added basic support for signals. 2001-08-23 Martin Baulig - added basic gclosure support. - added gchararray. - added support for flags. - added genum-register-static. - added gchar, guchar, gint, guint, glong, gulong, gfloat and gdouble. - added support for enums. 2001-08-21 Martin Baulig * gnome/gobject/guile-gnome-gobject.c (scm_sys_gobject_scheme_dir): New func. (scm_gobject_register_type): New func. * gnome/gw/Makefile.am: Create and install documentation. 2001-08-21 Martin Baulig * gnome/gobject/guile-gnome-gobject.c (scm_gtype_children): New func. (scm_init_gnome_gobject): Register all fundamental and derived types. guile-gnome-platform-2.16.2/glib/gnome.scm.in0000644000175000017500000001327211670374302021327 0ustar00wingowingo00000000000000;; guile-gnome -*- scheme -*- ;; Copyright (C) 2003,2004,2008 Andy Wingo ;; This program is free software; you can redistribute it and/or ;; modify it under the terms of the GNU General Public License as ;; published by the Free Software Foundation; either version 2 of ;; the License, or (at your option) any later version. ;; ;; This program is distributed in the hope that it will be useful, ;; but WITHOUT ANY WARRANTY; without even the implied warranty of ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the ;; GNU General Public License for more details. ;; ;; You should have received a copy of the GNU General Public License ;; along with this program; if not, contact: ;; ;; Free Software Foundation Voice: +1-617-542-5942 ;; 59 Temple Place - Suite 330 Fax: +1-617-542-2652 ;; Boston, MA 02111-1307, USA gnu@gnu.org ;;; Commentary: ;; ;; Selects version @API_VERSION@ of the Guile-GNOME libraries. This ;; module is used for its side effects; it exports no procedures. ;; ;; @section Rationale ;; ;; Early in the development of guile-gnome, we realized that at some ;; point we might need to make incompatible changes. Of course, we would ;; not want to force a correctly-written program to break when ;; guile-gnome gets upgraded. For this reason, we decided to make ;; guile-gnome parallel-installable. A program is completely specified ;; when it indicates which version of guile-gnome it should use. ;; ;; Guile-gnome has the concept of an API version, which indicates a ;; stable API series. For example, a program written against API version ;; 2 of guile-gnome will continue to work against all future releases of ;; that API version. It is permitted to add interfaces within a stable ;; series, but never to remove or change them incompatibly. ;; ;; Changing the API version is expected to be a relatively infrequent ;; operation. The current API version is @API_VERSION@. ;; ;; There are two manners for a program to specify the guile-gnome ;; version: ;; ;; @enumerate ;; @item ;; Via importing the @code{(gnome-@var{version})} module. ;; ;; This special module alters guile's load path to include the path of ;; the specified API version of guile-gnome. For example: ;; ;; @lisp ;; (use-modules (gnome-@API_VERSION@)) ;; @end lisp ;; ;; @item ;; Via invoking guile as guile-gnome-@var{version}. ;; ;; This shell script is installed when building a particular version of ;; guile-gnome, and serves to automatically load the ;; @code{(gnome-@var{apiversion})} module. For example, to get a repl ;; ready for guile-gnome: ;; ;; @example ;; $ guile-gnome-@API_VERSION@ ;; @end example ;; ;; To load a script with a particular version of guile-gnome: ;; ;; @example ;; $ guile-gnome-@API_VERSION@ -s @var{script} @var{args...} ;; @end example ;; ;; To specify the guile-gnome version in a script, you might begin the ;; file with: ;; ;; @example ;; #! /bin/sh ;; # -*- scheme -*- ;; exec guile-gnome-@API_VERSION@ -s $0 ;; !# ;; ;; scheme code here... ;; @end example ;; @end enumerate ;; ;; A program must select the guile-gnome version before importing any ;; guile-gnome modules. Indeed, one cannot even import @code{(gnome ;; gobject)} before doing so. ;; ;; For a further rationale on parallel installability, see ;; @uref{http://ometer.com/parallel.html}. ;; ;;; Code: ;; Although resolve-module would create (gnome) if it's not found, guile ;; 1.6 will still search for a lib named libgnome.so before giving up. ;; Avoid this problem by making sure (gnome) is defined. (define-module (gnome)) (define-module (gnome-@API_VERSION@)) (define (ld-library-path-prepend! path) (let ((ld-library-path (getenv "LD_LIBRARY_PATH"))) (if ld-library-path (setenv "LD_LIBRARY_PATH" (format #f "~A:~A" path ld-library-path)) (setenv "LD_LIBRARY_PATH" path)))) ;; Add path to the load path, preserving any modification that the user ;; already made via environment variables. Necessary so that ;; GUILE_LOAD_PATH munging during build works even after (gnome-2) ;; munges the path itself. (define (add-to-load-path! path) (let ((first-std-path (in-vicinity (assq-ref %guile-build-info 'pkgdatadir) "site"))) (let lp ((tail %load-path) (head '())) (cond ((null? tail) (set! %load-path (cons path %load-path))) ((string=? (car tail) first-std-path) (set! %load-path (append (reverse head) (cons path tail)))) (else (lp (cdr tail) (cons (car tail) head))))))) (define version "@API_VERSION@") (cond ((module-variable (resolve-module '(gnome)) 'gnome-version) => (lambda (v) (if (not (string=? (variable-ref v) version)) (error "Loading guile-gnome version ~A, but ~A was already loaded" (variable-ref v) version)))) (@running-uninstalled@ ;; #t if we are uninstalled (module-define! (resolve-module '(gnome)) 'gnome-version version) #t) ;; we're building guile-gnome, let the build scripts do their hacks (else (module-define! (resolve-module '(gnome)) 'gnome-version version) (let ((guile-gnome-dir "@guilegnomedir@") (guile-gnome-lib-dir "@guilegnomelibdir@") (libdir "@libdir@")) (add-to-load-path! guile-gnome-dir) ;; Resolve (gnome gw ...) wrapper links to libguile-gnome-gobject. (if (not (member libdir '("/usr/lib" "/usr/local/lib"))) (ld-library-path-prepend! libdir)) ;; Resolve (gnome gw ...) wrappers. (ld-library-path-prepend! guile-gnome-lib-dir)))) guile-gnome-platform-2.16.2/glib/WARTS0000644000175000017500000000042711670374302017732 0ustar00wingowingo00000000000000-*- text -*- Things that are somehow ugly about this language binding. * GObject properties are not directly mapped onto the somewhat equivalent way of doing things in GOOPS, slots. That's ameliorated by the presence of the 'get' and 'set' generics, which seem to work ok. guile-gnome-platform-2.16.2/glib/ChangeLog0000644000175000017500000000006711670374302020661 0ustar00wingowingo00000000000000See the revision control log for changes since 2.16.0. guile-gnome-platform-2.16.2/glib/guile-gnome-glib-uninstalled.pc.in0000644000175000017500000000061111670374302025476 0ustar00wingowingo00000000000000# the standard variables don't make sense for an uninstalled copy prefix= exec_prefix= libdir=${pcfiledir} includedir=${pcfiledir} Name: Guile-Gnome GLib bindings, Uninstalled Description: Guile-Gnome GLib bindings, Uninstalled Version: @VERSION@ Requires: gobject-2.0 Libs: ${libdir}/gnome/gobject/libguile-gnome-gobject-@API_VERSION@.la Cflags: -I${includedir}/gnome/gobject @GUILE_CFLAGS@ guile-gnome-platform-2.16.2/Makefile.in0000644000175000017500000006262411752516704020253 0ustar00wingowingo00000000000000# Makefile.in generated by automake 1.11.5 from Makefile.am. # @configure_input@ # Copyright (C) 1994, 1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, # 2003, 2004, 2005, 2006, 2007, 2008, 2009, 2010, 2011 Free Software # Foundation, Inc. # This Makefile.in is free software; the Free Software Foundation # gives unlimited permission to copy and/or distribute it, # with or without modifications, as long as this notice is preserved. # This program is distributed in the hope that it will be useful, # but WITHOUT ANY WARRANTY, to the extent permitted by law; without # even the implied warranty of MERCHANTABILITY or FITNESS FOR A # PARTICULAR PURPOSE. @SET_MAKE@ # this file is generated by autogen-pkg.sh VPATH = @srcdir@ am__make_dryrun = \ { \ am__dry=no; \ case $$MAKEFLAGS in \ *\\[\ \ ]*) \ echo 'am--echo: ; @echo "AM" OK' | $(MAKE) -f - 2>/dev/null \ | grep '^AM OK$$' >/dev/null || am__dry=yes;; \ *) \ for am__flg in $$MAKEFLAGS; do \ case $$am__flg in \ *=*|--*) ;; \ *n*) am__dry=yes; break;; \ esac; \ done;; \ esac; \ test $$am__dry = yes; \ } pkgdatadir = $(datadir)/@PACKAGE@ pkgincludedir = $(includedir)/@PACKAGE@ pkglibdir = $(libdir)/@PACKAGE@ pkglibexecdir = $(libexecdir)/@PACKAGE@ am__cd = CDPATH="$${ZSH_VERSION+.}$(PATH_SEPARATOR)" && cd install_sh_DATA = $(install_sh) -c -m 644 install_sh_PROGRAM = $(install_sh) -c install_sh_SCRIPT = $(install_sh) -c INSTALL_HEADER = $(INSTALL_DATA) transform = $(program_transform_name) NORMAL_INSTALL = : PRE_INSTALL = : POST_INSTALL = : NORMAL_UNINSTALL = : PRE_UNINSTALL = : POST_UNINSTALL = : build_triplet = @build@ host_triplet = @host@ subdir = . DIST_COMMON = README $(am__configure_deps) $(srcdir)/Makefile.am \ $(srcdir)/Makefile.in $(srcdir)/config.h.in \ $(srcdir)/dev-environ.in $(top_srcdir)/configure AUTHORS \ COPYING ChangeLog INSTALL NEWS build-aux/config.guess \ build-aux/config.sub build-aux/depcomp build-aux/install-sh \ build-aux/ltmain.sh build-aux/mdate-sh build-aux/missing \ build-aux/texinfo.tex ACLOCAL_M4 = $(top_srcdir)/aclocal.m4 am__aclocal_m4_deps = $(top_srcdir)/configure.ac am__configure_deps = $(am__aclocal_m4_deps) $(CONFIGURE_DEPENDENCIES) \ $(ACLOCAL_M4) am__CONFIG_DISTCLEAN_FILES = config.status config.cache config.log \ configure.lineno config.status.lineno mkinstalldirs = $(install_sh) -d CONFIG_HEADER = config.h CONFIG_CLEAN_FILES = dev-environ CONFIG_CLEAN_VPATH_FILES = SOURCES = DIST_SOURCES = RECURSIVE_TARGETS = all-recursive check-recursive dvi-recursive \ html-recursive info-recursive install-data-recursive \ install-dvi-recursive install-exec-recursive \ install-html-recursive install-info-recursive \ install-pdf-recursive install-ps-recursive install-recursive \ installcheck-recursive installdirs-recursive pdf-recursive \ ps-recursive uninstall-recursive am__can_run_installinfo = \ case $$AM_UPDATE_INFO_DIR in \ n|no|NO) false;; \ *) (install-info --version) >/dev/null 2>&1;; \ esac RECURSIVE_CLEAN_TARGETS = mostlyclean-recursive clean-recursive \ distclean-recursive maintainer-clean-recursive AM_RECURSIVE_TARGETS = $(RECURSIVE_TARGETS:-recursive=) \ $(RECURSIVE_CLEAN_TARGETS:-recursive=) tags TAGS ctags CTAGS \ distdir dist dist-all distcheck ETAGS = etags CTAGS = ctags DIST_SUBDIRS = $(SUBDIRS) DISTFILES = $(DIST_COMMON) $(DIST_SOURCES) $(TEXINFOS) $(EXTRA_DIST) distdir = $(PACKAGE)-$(VERSION) top_distdir = $(distdir) am__remove_distdir = \ if test -d "$(distdir)"; then \ find "$(distdir)" -type d ! -perm -200 -exec chmod u+w {} ';' \ && rm -rf "$(distdir)" \ || { sleep 5 && rm -rf "$(distdir)"; }; \ else :; fi am__relativize = \ dir0=`pwd`; \ sed_first='s,^\([^/]*\)/.*$$,\1,'; \ sed_rest='s,^[^/]*/*,,'; \ sed_last='s,^.*/\([^/]*\)$$,\1,'; \ sed_butlast='s,/*[^/]*$$,,'; \ while test -n "$$dir1"; do \ first=`echo "$$dir1" | sed -e "$$sed_first"`; \ if test "$$first" != "."; then \ if test "$$first" = ".."; then \ dir2=`echo "$$dir0" | sed -e "$$sed_last"`/"$$dir2"; \ dir0=`echo "$$dir0" | sed -e "$$sed_butlast"`; \ else \ first2=`echo "$$dir2" | sed -e "$$sed_first"`; \ if test "$$first2" = "$$first"; then \ dir2=`echo "$$dir2" | sed -e "$$sed_rest"`; \ else \ dir2="../$$dir2"; \ fi; \ dir0="$$dir0"/"$$first"; \ fi; \ fi; \ dir1=`echo "$$dir1" | sed -e "$$sed_rest"`; \ done; \ reldir="$$dir2" DIST_ARCHIVES = $(distdir).tar.gz GZIP_ENV = --best distuninstallcheck_listfiles = find . -type f -print am__distuninstallcheck_listfiles = $(distuninstallcheck_listfiles) \ | sed 's|^\./|$(prefix)/|' | grep -v '$(infodir)/dir$$' distcleancheck_listfiles = find . -type f -print ACLOCAL = @ACLOCAL@ AG_PKG_CONFIG_PATH = @AG_PKG_CONFIG_PATH@ AMTAR = @AMTAR@ API_VERSION = @API_VERSION@ AR = @AR@ ATK_CFLAGS = @ATK_CFLAGS@ ATK_LIBS = @ATK_LIBS@ AUTOCONF = @AUTOCONF@ AUTOHEADER = @AUTOHEADER@ AUTOMAKE = @AUTOMAKE@ AWK = @AWK@ BONOBO_IDL_DIR = @BONOBO_IDL_DIR@ CANVAS_CFLAGS = @CANVAS_CFLAGS@ CANVAS_LIBS = @CANVAS_LIBS@ CC = @CC@ CCDEPMODE = @CCDEPMODE@ CFLAGS = @CFLAGS@ CORBA_CFLAGS = @CORBA_CFLAGS@ CORBA_LIBS = @CORBA_LIBS@ CPP = @CPP@ CPPFLAGS = @CPPFLAGS@ CYGPATH_W = @CYGPATH_W@ DEFS = @DEFS@ DEPDIR = @DEPDIR@ DLLTOOL = @DLLTOOL@ DSYMUTIL = @DSYMUTIL@ DUMPBIN = @DUMPBIN@ ECHO_C = @ECHO_C@ ECHO_N = @ECHO_N@ ECHO_T = @ECHO_T@ EGREP = @EGREP@ EXEEXT = @EXEEXT@ FGREP = @FGREP@ GCONF_CFLAGS = @GCONF_CFLAGS@ GCONF_LIBS = @GCONF_LIBS@ GDK_CFLAGS = @GDK_CFLAGS@ GDK_LIBS = @GDK_LIBS@ GDK_PIXBUF_CFLAGS = @GDK_PIXBUF_CFLAGS@ GDK_PIXBUF_LIBS = @GDK_PIXBUF_LIBS@ GLIB_CFLAGS = @GLIB_CFLAGS@ GLIB_LIBS = @GLIB_LIBS@ GNOMEUI_DEPRECATION_FLAGS = @GNOMEUI_DEPRECATION_FLAGS@ GNOME_VFS_CFLAGS = @GNOME_VFS_CFLAGS@ GNOME_VFS_DEPRECATED_CFLAGS = @GNOME_VFS_DEPRECATED_CFLAGS@ GNOME_VFS_LIBS = @GNOME_VFS_LIBS@ GOBJECT_CFLAGS = @GOBJECT_CFLAGS@ GOBJECT_LIBS = @GOBJECT_LIBS@ GREP = @GREP@ GTHREAD_CFLAGS = @GTHREAD_CFLAGS@ GTHREAD_LIBS = @GTHREAD_LIBS@ GTK_CFLAGS = @GTK_CFLAGS@ GTK_DEPRECATED_CFLAGS = @GTK_DEPRECATED_CFLAGS@ GTK_LIBS = @GTK_LIBS@ GUILE_CAIRO_CFLAGS = @GUILE_CAIRO_CFLAGS@ GUILE_CAIRO_LIBS = @GUILE_CAIRO_LIBS@ GUILE_CFLAGS = @GUILE_CFLAGS@ GUILE_EFFECTIVE_VERSION = @GUILE_EFFECTIVE_VERSION@ GUILE_GLIB_CFLAGS = @GUILE_GLIB_CFLAGS@ GUILE_GLIB_LIBS = @GUILE_GLIB_LIBS@ GUILE_LIBS = @GUILE_LIBS@ G_WRAP_CFLAGS = @G_WRAP_CFLAGS@ G_WRAP_LIBS = @G_WRAP_LIBS@ G_WRAP_LIB_DIR = @G_WRAP_LIB_DIR@ G_WRAP_MODULE_DIR = @G_WRAP_MODULE_DIR@ INSTALL = @INSTALL@ INSTALL_DATA = @INSTALL_DATA@ INSTALL_PROGRAM = @INSTALL_PROGRAM@ INSTALL_SCRIPT = @INSTALL_SCRIPT@ INSTALL_STRIP_PROGRAM = @INSTALL_STRIP_PROGRAM@ LD = @LD@ LDFLAGS = @LDFLAGS@ LIBGLADE_CFLAGS = @LIBGLADE_CFLAGS@ LIBGLADE_LIBS = @LIBGLADE_LIBS@ LIBGNOMEUI_CFLAGS = @LIBGNOMEUI_CFLAGS@ LIBGNOMEUI_LIBS = @LIBGNOMEUI_LIBS@ LIBGNOME_CFLAGS = @LIBGNOME_CFLAGS@ LIBGNOME_LIBS = @LIBGNOME_LIBS@ LIBOBJS = @LIBOBJS@ LIBS = @LIBS@ LIBTOOL = @LIBTOOL@ LIPO = @LIPO@ LN_S = @LN_S@ LTLIBOBJS = @LTLIBOBJS@ MAKEINFO = @MAKEINFO@ MANIFEST_TOOL = @MANIFEST_TOOL@ MKDIR_P = @MKDIR_P@ NM = @NM@ NMEDIT = @NMEDIT@ OBJDUMP = @OBJDUMP@ OBJEXT = @OBJEXT@ ORBIT_IDL = @ORBIT_IDL@ OTOOL = @OTOOL@ OTOOL64 = @OTOOL64@ PACKAGE = @PACKAGE@ PACKAGE_BUGREPORT = @PACKAGE_BUGREPORT@ PACKAGE_NAME = @PACKAGE_NAME@ PACKAGE_STRING = @PACKAGE_STRING@ PACKAGE_TARNAME = @PACKAGE_TARNAME@ PACKAGE_URL = @PACKAGE_URL@ PACKAGE_VERSION = @PACKAGE_VERSION@ PANGOCAIRO_CFLAGS = @PANGOCAIRO_CFLAGS@ PANGOCAIRO_LIBS = @PANGOCAIRO_LIBS@ PANGO_CFLAGS = @PANGO_CFLAGS@ PANGO_LIBS = @PANGO_LIBS@ PATH_SEPARATOR = @PATH_SEPARATOR@ PKG_CONFIG = @PKG_CONFIG@ PKG_CONFIG_LIBDIR = @PKG_CONFIG_LIBDIR@ PKG_CONFIG_PATH = @PKG_CONFIG_PATH@ RANLIB = @RANLIB@ SED = @SED@ SET_MAKE = @SET_MAKE@ SHELL = @SHELL@ STRIP = @STRIP@ VERSION = @VERSION@ WARN_CFLAGS = @WARN_CFLAGS@ abs_builddir = @abs_builddir@ abs_srcdir = @abs_srcdir@ abs_top_builddir = @abs_top_builddir@ abs_top_srcdir = @abs_top_srcdir@ ac_ct_AR = @ac_ct_AR@ ac_ct_CC = @ac_ct_CC@ ac_ct_DUMPBIN = @ac_ct_DUMPBIN@ am__include = @am__include@ am__leading_dot = @am__leading_dot@ am__quote = @am__quote@ am__tar = @am__tar@ am__untar = @am__untar@ bindir = @bindir@ build = @build@ build_alias = @build_alias@ build_cpu = @build_cpu@ build_os = @build_os@ build_vendor = @build_vendor@ builddir = @builddir@ datadir = @datadir@ datarootdir = @datarootdir@ docdir = @docdir@ dvidir = @dvidir@ exec_prefix = @exec_prefix@ host = @host@ host_alias = @host_alias@ host_cpu = @host_cpu@ host_os = @host_os@ host_vendor = @host_vendor@ htmldir = @htmldir@ includedir = @includedir@ infodir = @infodir@ install_sh = @install_sh@ libdir = @libdir@ libexecdir = @libexecdir@ localedir = @localedir@ localstatedir = @localstatedir@ mandir = @mandir@ mkdir_p = @mkdir_p@ oldincludedir = @oldincludedir@ pdfdir = @pdfdir@ prefix = @prefix@ program_transform_name = @program_transform_name@ psdir = @psdir@ sbindir = @sbindir@ sharedstatedir = @sharedstatedir@ srcdir = @srcdir@ sysconfdir = @sysconfdir@ target_alias = @target_alias@ top_build_prefix = @top_build_prefix@ top_builddir = @top_builddir@ top_srcdir = @top_srcdir@ SUBDIRS = defs glib cairo atk pango gtk libgnomeui libgnomecanvas libgnome libglade gnome-vfs gconf corba EXTRA_DIST = dev-environ.in h2def.py autogen.sh HACKING ChangeLog.pre-2.16 all: config.h $(MAKE) $(AM_MAKEFLAGS) all-recursive .SUFFIXES: am--refresh: Makefile @: $(srcdir)/Makefile.in: $(srcdir)/Makefile.am $(am__configure_deps) @for dep in $?; do \ case '$(am__configure_deps)' in \ *$$dep*) \ echo ' cd $(srcdir) && $(AUTOMAKE) --gnu'; \ $(am__cd) $(srcdir) && $(AUTOMAKE) --gnu \ && exit 0; \ exit 1;; \ esac; \ done; \ echo ' cd $(top_srcdir) && $(AUTOMAKE) --gnu Makefile'; \ $(am__cd) $(top_srcdir) && \ $(AUTOMAKE) --gnu Makefile .PRECIOUS: Makefile Makefile: $(srcdir)/Makefile.in $(top_builddir)/config.status @case '$?' in \ *config.status*) \ echo ' $(SHELL) ./config.status'; \ $(SHELL) ./config.status;; \ *) \ echo ' cd $(top_builddir) && $(SHELL) ./config.status $@ $(am__depfiles_maybe)'; \ cd $(top_builddir) && $(SHELL) ./config.status $@ $(am__depfiles_maybe);; \ esac; $(top_builddir)/config.status: $(top_srcdir)/configure $(CONFIG_STATUS_DEPENDENCIES) $(SHELL) ./config.status --recheck $(top_srcdir)/configure: $(am__configure_deps) $(am__cd) $(srcdir) && $(AUTOCONF) $(ACLOCAL_M4): $(am__aclocal_m4_deps) $(am__cd) $(srcdir) && $(ACLOCAL) $(ACLOCAL_AMFLAGS) $(am__aclocal_m4_deps): config.h: stamp-h1 @if test ! -f $@; then rm -f stamp-h1; else :; fi @if test ! -f $@; then $(MAKE) $(AM_MAKEFLAGS) stamp-h1; else :; fi stamp-h1: $(srcdir)/config.h.in $(top_builddir)/config.status @rm -f stamp-h1 cd $(top_builddir) && $(SHELL) ./config.status config.h $(srcdir)/config.h.in: $(am__configure_deps) ($(am__cd) $(top_srcdir) && $(AUTOHEADER)) rm -f stamp-h1 touch $@ distclean-hdr: -rm -f config.h stamp-h1 dev-environ: $(top_builddir)/config.status $(srcdir)/dev-environ.in cd $(top_builddir) && $(SHELL) ./config.status $@ mostlyclean-libtool: -rm -f *.lo clean-libtool: -rm -rf .libs _libs distclean-libtool: -rm -f libtool config.lt # This directory's subdirectories are mostly independent; you can cd # into them and run `make' without going through this Makefile. # To change the values of `make' variables: instead of editing Makefiles, # (1) if the variable is set in `config.status', edit `config.status' # (which will cause the Makefiles to be regenerated when you run `make'); # (2) otherwise, pass the desired values on the `make' command line. $(RECURSIVE_TARGETS): @fail= failcom='exit 1'; \ for f in x $$MAKEFLAGS; do \ case $$f in \ *=* | --[!k]*);; \ *k*) failcom='fail=yes';; \ esac; \ done; \ dot_seen=no; \ target=`echo $@ | sed s/-recursive//`; \ list='$(SUBDIRS)'; for subdir in $$list; do \ echo "Making $$target in $$subdir"; \ if test "$$subdir" = "."; then \ dot_seen=yes; \ local_target="$$target-am"; \ else \ local_target="$$target"; \ fi; \ ($(am__cd) $$subdir && $(MAKE) $(AM_MAKEFLAGS) $$local_target) \ || eval $$failcom; \ done; \ if test "$$dot_seen" = "no"; then \ $(MAKE) $(AM_MAKEFLAGS) "$$target-am" || exit 1; \ fi; test -z "$$fail" $(RECURSIVE_CLEAN_TARGETS): @fail= failcom='exit 1'; \ for f in x $$MAKEFLAGS; do \ case $$f in \ *=* | --[!k]*);; \ *k*) failcom='fail=yes';; \ esac; \ done; \ dot_seen=no; \ case "$@" in \ distclean-* | maintainer-clean-*) list='$(DIST_SUBDIRS)' ;; \ *) list='$(SUBDIRS)' ;; \ esac; \ rev=''; for subdir in $$list; do \ if test "$$subdir" = "."; then :; else \ rev="$$subdir $$rev"; \ fi; \ done; \ rev="$$rev ."; \ target=`echo $@ | sed s/-recursive//`; \ for subdir in $$rev; do \ echo "Making $$target in $$subdir"; \ if test "$$subdir" = "."; then \ local_target="$$target-am"; \ else \ local_target="$$target"; \ fi; \ ($(am__cd) $$subdir && $(MAKE) $(AM_MAKEFLAGS) $$local_target) \ || eval $$failcom; \ done && test -z "$$fail" tags-recursive: list='$(SUBDIRS)'; for subdir in $$list; do \ test "$$subdir" = . || ($(am__cd) $$subdir && $(MAKE) $(AM_MAKEFLAGS) tags); \ done ctags-recursive: list='$(SUBDIRS)'; for subdir in $$list; do \ test "$$subdir" = . || ($(am__cd) $$subdir && $(MAKE) $(AM_MAKEFLAGS) ctags); \ done ID: $(HEADERS) $(SOURCES) $(LISP) $(TAGS_FILES) list='$(SOURCES) $(HEADERS) $(LISP) $(TAGS_FILES)'; \ unique=`for i in $$list; do \ if test -f "$$i"; then echo $$i; else echo $(srcdir)/$$i; fi; \ done | \ $(AWK) '{ files[$$0] = 1; nonempty = 1; } \ END { if (nonempty) { for (i in files) print i; }; }'`; \ mkid -fID $$unique tags: TAGS TAGS: tags-recursive $(HEADERS) $(SOURCES) config.h.in $(TAGS_DEPENDENCIES) \ $(TAGS_FILES) $(LISP) set x; \ here=`pwd`; \ if ($(ETAGS) --etags-include --version) >/dev/null 2>&1; then \ include_option=--etags-include; \ empty_fix=.; \ else \ include_option=--include; \ empty_fix=; \ fi; \ list='$(SUBDIRS)'; for subdir in $$list; do \ if test "$$subdir" = .; then :; else \ test ! -f $$subdir/TAGS || \ set "$$@" "$$include_option=$$here/$$subdir/TAGS"; \ fi; \ done; \ list='$(SOURCES) $(HEADERS) config.h.in $(LISP) $(TAGS_FILES)'; \ unique=`for i in $$list; do \ if test -f "$$i"; then echo $$i; else echo $(srcdir)/$$i; fi; \ done | \ $(AWK) '{ files[$$0] = 1; nonempty = 1; } \ END { if (nonempty) { for (i in files) print i; }; }'`; \ shift; \ if test -z "$(ETAGS_ARGS)$$*$$unique"; then :; else \ test -n "$$unique" || unique=$$empty_fix; \ if test $$# -gt 0; then \ $(ETAGS) $(ETAGSFLAGS) $(AM_ETAGSFLAGS) $(ETAGS_ARGS) \ "$$@" $$unique; \ else \ $(ETAGS) $(ETAGSFLAGS) $(AM_ETAGSFLAGS) $(ETAGS_ARGS) \ $$unique; \ fi; \ fi ctags: CTAGS CTAGS: ctags-recursive $(HEADERS) $(SOURCES) config.h.in $(TAGS_DEPENDENCIES) \ $(TAGS_FILES) $(LISP) list='$(SOURCES) $(HEADERS) config.h.in $(LISP) $(TAGS_FILES)'; \ unique=`for i in $$list; do \ if test -f "$$i"; then echo $$i; else echo $(srcdir)/$$i; fi; \ done | \ $(AWK) '{ files[$$0] = 1; nonempty = 1; } \ END { if (nonempty) { for (i in files) print i; }; }'`; \ test -z "$(CTAGS_ARGS)$$unique" \ || $(CTAGS) $(CTAGSFLAGS) $(AM_CTAGSFLAGS) $(CTAGS_ARGS) \ $$unique GTAGS: here=`$(am__cd) $(top_builddir) && pwd` \ && $(am__cd) $(top_srcdir) \ && gtags -i $(GTAGS_ARGS) "$$here" distclean-tags: -rm -f TAGS ID GTAGS GRTAGS GSYMS GPATH tags distdir: $(DISTFILES) $(am__remove_distdir) test -d "$(distdir)" || mkdir "$(distdir)" @srcdirstrip=`echo "$(srcdir)" | sed 's/[].[^$$\\*]/\\\\&/g'`; \ topsrcdirstrip=`echo "$(top_srcdir)" | sed 's/[].[^$$\\*]/\\\\&/g'`; \ list='$(DISTFILES)'; \ dist_files=`for file in $$list; do echo $$file; done | \ sed -e "s|^$$srcdirstrip/||;t" \ -e "s|^$$topsrcdirstrip/|$(top_builddir)/|;t"`; \ case $$dist_files in \ */*) $(MKDIR_P) `echo "$$dist_files" | \ sed '/\//!d;s|^|$(distdir)/|;s,/[^/]*$$,,' | \ sort -u` ;; \ esac; \ for file in $$dist_files; do \ if test -f $$file || test -d $$file; then d=.; else d=$(srcdir); fi; \ if test -d $$d/$$file; then \ dir=`echo "/$$file" | sed -e 's,/[^/]*$$,,'`; \ if test -d "$(distdir)/$$file"; then \ find "$(distdir)/$$file" -type d ! -perm -700 -exec chmod u+rwx {} \;; \ fi; \ if test -d $(srcdir)/$$file && test $$d != $(srcdir); then \ cp -fpR $(srcdir)/$$file "$(distdir)$$dir" || exit 1; \ find "$(distdir)/$$file" -type d ! -perm -700 -exec chmod u+rwx {} \;; \ fi; \ cp -fpR $$d/$$file "$(distdir)$$dir" || exit 1; \ else \ test -f "$(distdir)/$$file" \ || cp -p $$d/$$file "$(distdir)/$$file" \ || exit 1; \ fi; \ done @list='$(DIST_SUBDIRS)'; for subdir in $$list; do \ if test "$$subdir" = .; then :; else \ $(am__make_dryrun) \ || test -d "$(distdir)/$$subdir" \ || $(MKDIR_P) "$(distdir)/$$subdir" \ || exit 1; \ dir1=$$subdir; dir2="$(distdir)/$$subdir"; \ $(am__relativize); \ new_distdir=$$reldir; \ dir1=$$subdir; dir2="$(top_distdir)"; \ $(am__relativize); \ new_top_distdir=$$reldir; \ echo " (cd $$subdir && $(MAKE) $(AM_MAKEFLAGS) top_distdir="$$new_top_distdir" distdir="$$new_distdir" \\"; \ echo " am__remove_distdir=: am__skip_length_check=: am__skip_mode_fix=: distdir)"; \ ($(am__cd) $$subdir && \ $(MAKE) $(AM_MAKEFLAGS) \ top_distdir="$$new_top_distdir" \ distdir="$$new_distdir" \ am__remove_distdir=: \ am__skip_length_check=: \ am__skip_mode_fix=: \ distdir) \ || exit 1; \ fi; \ done -test -n "$(am__skip_mode_fix)" \ || find "$(distdir)" -type d ! -perm -755 \ -exec chmod u+rwx,go+rx {} \; -o \ ! -type d ! -perm -444 -links 1 -exec chmod a+r {} \; -o \ ! -type d ! -perm -400 -exec chmod a+r {} \; -o \ ! -type d ! -perm -444 -exec $(install_sh) -c -m a+r {} {} \; \ || chmod -R a+r "$(distdir)" dist-bzip2: distdir tardir=$(distdir) && $(am__tar) | BZIP2=$${BZIP2--9} bzip2 -c >$(distdir).tar.bz2 $(am__remove_distdir) dist-lzip: distdir tardir=$(distdir) && $(am__tar) | lzip -c $${LZIP_OPT--9} >$(distdir).tar.lz $(am__remove_distdir) dist-lzma: distdir tardir=$(distdir) && $(am__tar) | lzma -9 -c >$(distdir).tar.lzma $(am__remove_distdir) dist-xz: distdir tardir=$(distdir) && $(am__tar) | XZ_OPT=$${XZ_OPT--e} xz -c >$(distdir).tar.xz $(am__remove_distdir) dist-tarZ: distdir tardir=$(distdir) && $(am__tar) | compress -c >$(distdir).tar.Z $(am__remove_distdir) dist-shar: distdir shar $(distdir) | GZIP=$(GZIP_ENV) gzip -c >$(distdir).shar.gz $(am__remove_distdir) dist-zip: distdir -rm -f $(distdir).zip zip -rq $(distdir).zip $(distdir) $(am__remove_distdir) # This target untars the dist file and tries a VPATH configuration. Then # it guarantees that the distribution is self-contained by making another # tarfile. distcheck: dist case '$(DIST_ARCHIVES)' in \ *.tar.gz*) \ GZIP=$(GZIP_ENV) gzip -dc $(distdir).tar.gz | $(am__untar) ;;\ *.tar.bz2*) \ bzip2 -dc $(distdir).tar.bz2 | $(am__untar) ;;\ *.tar.lzma*) \ lzma -dc $(distdir).tar.lzma | $(am__untar) ;;\ *.tar.lz*) \ lzip -dc $(distdir).tar.lz | $(am__untar) ;;\ *.tar.xz*) \ xz -dc $(distdir).tar.xz | $(am__untar) ;;\ *.tar.Z*) \ uncompress -c $(distdir).tar.Z | $(am__untar) ;;\ *.shar.gz*) \ GZIP=$(GZIP_ENV) gzip -dc $(distdir).shar.gz | unshar ;;\ *.zip*) \ unzip $(distdir).zip ;;\ esac chmod -R a-w $(distdir); chmod a+w $(distdir) mkdir $(distdir)/_build mkdir $(distdir)/_inst chmod a-w $(distdir) test -d $(distdir)/_build || exit 0; \ dc_install_base=`$(am__cd) $(distdir)/_inst && pwd | sed -e 's,^[^:\\/]:[\\/],/,'` \ && dc_destdir="$${TMPDIR-/tmp}/am-dc-$$$$/" \ && am__cwd=`pwd` \ && $(am__cd) $(distdir)/_build \ && ../configure --srcdir=.. --prefix="$$dc_install_base" \ $(AM_DISTCHECK_CONFIGURE_FLAGS) \ $(DISTCHECK_CONFIGURE_FLAGS) \ && $(MAKE) $(AM_MAKEFLAGS) \ && $(MAKE) $(AM_MAKEFLAGS) dvi \ && $(MAKE) $(AM_MAKEFLAGS) check \ && $(MAKE) $(AM_MAKEFLAGS) install \ && $(MAKE) $(AM_MAKEFLAGS) installcheck \ && $(MAKE) $(AM_MAKEFLAGS) uninstall \ && $(MAKE) $(AM_MAKEFLAGS) distuninstallcheck_dir="$$dc_install_base" \ distuninstallcheck \ && chmod -R a-w "$$dc_install_base" \ && ({ \ (cd ../.. && umask 077 && mkdir "$$dc_destdir") \ && $(MAKE) $(AM_MAKEFLAGS) DESTDIR="$$dc_destdir" install \ && $(MAKE) $(AM_MAKEFLAGS) DESTDIR="$$dc_destdir" uninstall \ && $(MAKE) $(AM_MAKEFLAGS) DESTDIR="$$dc_destdir" \ distuninstallcheck_dir="$$dc_destdir" distuninstallcheck; \ } || { rm -rf "$$dc_destdir"; exit 1; }) \ && rm -rf "$$dc_destdir" \ && $(MAKE) $(AM_MAKEFLAGS) dist \ && rm -rf $(DIST_ARCHIVES) \ && $(MAKE) $(AM_MAKEFLAGS) distcleancheck \ && cd "$$am__cwd" \ || exit 1 $(am__remove_distdir) @(echo "$(distdir) archives ready for distribution: "; \ list='$(DIST_ARCHIVES)'; for i in $$list; do echo $$i; done) | \ sed -e 1h -e 1s/./=/g -e 1p -e 1x -e '$$p' -e '$$x' distuninstallcheck: @test -n '$(distuninstallcheck_dir)' || { \ echo 'ERROR: trying to run $@ with an empty' \ '$$(distuninstallcheck_dir)' >&2; \ exit 1; \ }; \ $(am__cd) '$(distuninstallcheck_dir)' || { \ echo 'ERROR: cannot chdir into $(distuninstallcheck_dir)' >&2; \ exit 1; \ }; \ test `$(am__distuninstallcheck_listfiles) | wc -l` -eq 0 \ || { echo "ERROR: files left after uninstall:" ; \ if test -n "$(DESTDIR)"; then \ echo " (check DESTDIR support)"; \ fi ; \ $(distuninstallcheck_listfiles) ; \ exit 1; } >&2 distcleancheck: distclean @if test '$(srcdir)' = . ; then \ echo "ERROR: distcleancheck can only run from a VPATH build" ; \ exit 1 ; \ fi @test `$(distcleancheck_listfiles) | wc -l` -eq 0 \ || { echo "ERROR: files left in build directory after distclean:" ; \ $(distcleancheck_listfiles) ; \ exit 1; } >&2 check-am: all-am check: check-recursive all-am: Makefile config.h installdirs: installdirs-recursive installdirs-am: install: install-recursive install-exec: install-exec-recursive install-data: install-data-recursive uninstall: uninstall-recursive install-am: all-am @$(MAKE) $(AM_MAKEFLAGS) install-exec-am install-data-am installcheck: installcheck-recursive install-strip: if test -z '$(STRIP)'; then \ $(MAKE) $(AM_MAKEFLAGS) INSTALL_PROGRAM="$(INSTALL_STRIP_PROGRAM)" \ install_sh_PROGRAM="$(INSTALL_STRIP_PROGRAM)" INSTALL_STRIP_FLAG=-s \ install; \ else \ $(MAKE) $(AM_MAKEFLAGS) INSTALL_PROGRAM="$(INSTALL_STRIP_PROGRAM)" \ install_sh_PROGRAM="$(INSTALL_STRIP_PROGRAM)" INSTALL_STRIP_FLAG=-s \ "INSTALL_PROGRAM_ENV=STRIPPROG='$(STRIP)'" install; \ fi mostlyclean-generic: clean-generic: distclean-generic: -test -z "$(CONFIG_CLEAN_FILES)" || rm -f $(CONFIG_CLEAN_FILES) -test . = "$(srcdir)" || test -z "$(CONFIG_CLEAN_VPATH_FILES)" || rm -f $(CONFIG_CLEAN_VPATH_FILES) maintainer-clean-generic: @echo "This command is intended for maintainers to use" @echo "it deletes files that may require special tools to rebuild." clean: clean-recursive clean-am: clean-generic clean-libtool mostlyclean-am distclean: distclean-recursive -rm -f $(am__CONFIG_DISTCLEAN_FILES) -rm -f Makefile distclean-am: clean-am distclean-generic distclean-hdr \ distclean-libtool distclean-tags dvi: dvi-recursive dvi-am: html: html-recursive html-am: info: info-recursive info-am: install-data-am: install-dvi: install-dvi-recursive install-dvi-am: install-exec-am: install-html: install-html-recursive install-html-am: install-info: install-info-recursive install-info-am: install-man: install-pdf: install-pdf-recursive install-pdf-am: install-ps: install-ps-recursive install-ps-am: installcheck-am: maintainer-clean: maintainer-clean-recursive -rm -f $(am__CONFIG_DISTCLEAN_FILES) -rm -rf $(top_srcdir)/autom4te.cache -rm -f Makefile maintainer-clean-am: distclean-am maintainer-clean-generic mostlyclean: mostlyclean-recursive mostlyclean-am: mostlyclean-generic mostlyclean-libtool pdf: pdf-recursive pdf-am: ps: ps-recursive ps-am: uninstall-am: .MAKE: $(RECURSIVE_CLEAN_TARGETS) $(RECURSIVE_TARGETS) all \ ctags-recursive install-am install-strip tags-recursive .PHONY: $(RECURSIVE_CLEAN_TARGETS) $(RECURSIVE_TARGETS) CTAGS GTAGS \ all all-am am--refresh check check-am clean clean-generic \ clean-libtool ctags ctags-recursive dist dist-all dist-bzip2 \ dist-gzip dist-lzip dist-lzma dist-shar dist-tarZ dist-xz \ dist-zip distcheck distclean distclean-generic distclean-hdr \ distclean-libtool distclean-tags distcleancheck distdir \ distuninstallcheck dvi dvi-am html html-am info info-am \ install install-am install-data install-data-am install-dvi \ install-dvi-am install-exec install-exec-am install-html \ install-html-am install-info install-info-am install-man \ install-pdf install-pdf-am install-ps install-ps-am \ install-strip installcheck installcheck-am installdirs \ installdirs-am maintainer-clean maintainer-clean-generic \ mostlyclean mostlyclean-generic mostlyclean-libtool pdf pdf-am \ ps ps-am tags tags-recursive uninstall uninstall-am dist-gzip: distdir $(AMTAR) --format=ustar -chf - $(distdir) | GZIP=$(GZIP_ENV) gzip -c >$(distdir).tar.gz $(am__remove_distdir) dist dist-all: distdir $(AMTAR) --format=ustar -chf - $(distdir) | GZIP=$(GZIP_ENV) gzip -c >$(distdir).tar.gz $(am__remove_distdir) # Tell versions [3.59,3.63) of GNU make to not export all variables. # Otherwise a system limit (for SysV at least) may be exceeded. .NOEXPORT: guile-gnome-platform-2.16.2/README0000644000175000017500000000366311670374114017060 0ustar00wingowingo00000000000000guile-gnome-pkg README Copyright (C) 2004,2006 Free Software Foundation, Inc. See the end for copying conditions of this file. Last updated 13 August 2006. About guile-gnome ================= guile-gnome is a Guile wrapper collection for the GNOME library stack. It ships with an wrapper engine that allows semi-automatic wrapping of GObject-based C APIs. Copying guile-gnome =================== Distribution of guile-gnome libraries and components is under the GPL. See the COPYING file for more information. Contact info ============ Mailing List: guile-gtk-general@gnu.org Homepage: http://www.gnu.org/software/guile-gnome/ Download: http://www.gnu.org/software/guile-gnome/download/ Build dependencies ================== * Guile 1.6.4 or newer http://www.gnu.org/software/guile/ * G-Wrap 1.9.1 or above, but not 1.9.2 http://www.nongnu.org/g-wrap/ * Development packages for individual wrapsets See README files in the wrapset subdirectories for more information. Installation quickstart ======================= Install using the standard autotools incantation: ./configure && make && make install. Build from CVS or Arch using ./autogen.sh && make. You can run without installing, just run './dev-environ guile'. About the packaging =================== guile-gnome is developed as a number of modular packages. Each wrapper is contained within its own subdirectory, for instance glib/ or gstreamer/. You are reading this document from the toplevel umbrella package, guile-gnome-pkg, which has no knowledge of packages contained within it. For information on the individual wrappers contained in this package, see the documentation in the subdirectories. Copying this file ================= Copyright (C) 2004,2006 Free Software Foundation, Inc. Copying and distribution of this file, with or without modification, are permitted in any medium without royalty provided the copyright notice and this notice are preserved. guile-gnome-platform-2.16.2/configure.ac0000644000175000017500000002716211752511060020460 0ustar00wingowingo00000000000000define(GUILE_GNOME_PLATFORM_CONFIGURE_COPYRIGHT,[[ Copyright (C) 2011, 2012 Free Software Foundation, Inc. This program is free software: you can redistribute it and/or modify it under the terms of the GNU Lesser General Public License as published by the Free Software Foundation, either version 3 of the License, or (at your option) any later version. This program is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU Lesser General Public License for more details. You should have received a copy of the GNU Lesser General Public License along with this program. If not, see . ]]) AC_PREREQ(2.52) AC_INIT(guile-gnome-platform, 2.16.2) AC_CONFIG_SRCDIR(ChangeLog.pre-2.16) AC_CONFIG_AUX_DIR([build-aux]) AC_COPYRIGHT(GUILE_GNOME_PLATFORM_CONFIGURE_COPYRIGHT) AM_CONFIG_HEADER(config.h) AM_INIT_AUTOMAKE(-Wno-portability -Wno-syntax) AC_SUBST(VERSION,2.16.2) # Meaning of the API version # -------------------------- # # If 0, guile-gnome is unstable, and the API might change anytime. # Otherwise, guile-gnome is stable. Future incompatible releases will # bump this number so as to allow parallel, incompatible versions to # coexist. API_VERSION=2 AC_SUBST(API_VERSION) AC_DISABLE_STATIC AC_ISC_POSIX AC_PROG_CC AC_STDC_HEADERS AC_PROG_LIBTOOL AC_SUBST(AG_PKG_CONFIG_PATH, [$pkg_config_path]) if test "x$prefix" = xNONE; then AC_MSG_ERROR([No explicit prefix given. Guile-GNOME requires you to explicitly enter in a prefix when configuring. This is because the default prefix, /usr/local, is not in the default guile load path. What you probably want to do is to run $0 --prefix=/usr so that guile can find the guile-gnome modules when they are installed. If you choose to install to a prefix that is not in guile's load path, you will need to modify GUILE_LOAD_PATH and LD_LIBRARY_PATH every time you run guile. (Which is a pain.)]) fi WARN_CFLAGS=-Wall AC_ARG_ENABLE([Werror], AC_HELP_STRING([--enable-Werror],[Stop the build on warnings]), [WARN_CFLAGS="-Wall -Werror"], []) AC_SUBST(WARN_CFLAGS) DISABLE_DEPRECATED=false AC_ARG_ENABLE([deprecated], AC_HELP_STRING([--disable-deprecated],[Disable wrapping of functions deprecated upstream]), DISABLE_DEPRECATED=true, DISABLE_DEPRECATED=false) # # Check for Guile # GUILE_EFFECTIVE_VERSION=no all_versions="2.2 2.0 1.8" for v in $all_versions; do if test $GUILE_EFFECTIVE_VERSION = no; then AC_MSG_NOTICE([checking for Guile $v.x]) PKG_CHECK_MODULES(GUILE, guile-$v, [GUILE_EFFECTIVE_VERSION=$v], [true]) fi done AC_SUBST(GUILE_EFFECTIVE_VERSION) if test $GUILE_EFFECTIVE_VERSION = no; then AC_MSG_ERROR([Failed to find Guile. Is it installed?]) else AC_MSG_NOTICE([found Guile $GUILE_EFFECTIVE_VERSION.x]) fi # Check for g-wrap PKG_CHECK_MODULES(G_WRAP, g-wrap-2.0-guile >= 1.9.14) AC_SUBST(G_WRAP_CFLAGS) AC_SUBST(G_WRAP_LIBS) AC_SUBST(G_WRAP_MODULE_DIR, `${PKG_CONFIG} --variable=module_directory g-wrap-2.0-guile`) AC_SUBST(G_WRAP_LIB_DIR, `echo $G_WRAP_MODULE_DIR | sed -e 's|share/guile|lib|'`) PACKAGES_TO_BUILD="" PACKAGES_NOT_BUILT="" record_check() { local package=$1; local buildp=$2; case $buildp in yes|true) if test -z "$PACKAGES_TO_BUILD"; then PACKAGES_TO_BUILD="$package" else PACKAGES_TO_BUILD="$PACKAGES_TO_BUILD $package" fi ;; no|false) if test -z "$PACKAGES_NOT_BUILT"; then PACKAGES_NOT_BUILT="$package" else PACKAGES_NOT_BUILT="$PACKAGES_NOT_BUILT $package" fi ;; *) echo "bad record_check value: \"$buildp\" (for package \"$package\")" exit 1 ;; esac } # Per-package checks follow # atk PKG_CHECK_MODULES(ATK, atk >= 1.12, HAVE_ATK=true, HAVE_ATK=false) AC_SUBST(ATK_CFLAGS) AC_SUBST(ATK_LIBS) AM_CONDITIONAL(HAVE_ATK, $HAVE_ATK) record_check atk $HAVE_ATK # cairo PKG_CHECK_MODULES(GUILE_CAIRO, guile-cairo, HAVE_CAIRO=true, HAVE_CAIRO=false) AC_SUBST(GUILE_CAIRO_CFLAGS) AC_SUBST(GUILE_CAIRO_LIBS) AM_CONDITIONAL(HAVE_CAIRO, $HAVE_CAIRO) record_check cairo $HAVE_CAIRO # corba PKG_CHECK_MODULES(CORBA, libbonobo-2.0, HAVE_CORBA=true, HAVE_CORBA=false) AC_SUBST(CORBA_CFLAGS) AC_SUBST(CORBA_LIBS) AM_CONDITIONAL(HAVE_CORBA, $HAVE_CORBA) ORBIT_IDL="`pkg-config --variable=orbit_idl ORBit-2.0`" AC_SUBST(ORBIT_IDL) BONOBO_IDL_DIR="`pkg-config --variable=idldir libbonobo-2.0`" AC_SUBST(BONOBO_IDL_DIR) record_check corba $HAVE_CORBA # gconf PKG_CHECK_MODULES(GCONF, gconf-2.0 >= 2.18, HAVE_GCONF=true, HAVE_GCONF=false) AC_SUBST(GCONF_CFLAGS) AC_SUBST(GCONF_LIBS) AM_CONDITIONAL(HAVE_GCONF, $HAVE_GCONF) record_check gconf $HAVE_GCONF # glib PKG_CHECK_MODULES(GLIB, glib-2.0 >= 2.10.0) AC_SUBST(GLIB_CFLAGS) AC_SUBST(GLIB_LIBS) PKG_CHECK_MODULES(GOBJECT, gobject-2.0) AC_SUBST(GOBJECT_CFLAGS) AC_SUBST(GOBJECT_LIBS) PKG_CHECK_MODULES(GTHREAD, gthread-2.0) AC_SUBST(GTHREAD_CFLAGS) AC_SUBST(GTHREAD_LIBS) GUILE_GLIB_CFLAGS='-I$(top_srcdir)/glib/gnome/gobject -I$(top_builddir)/glib/gnome/gobject' GUILE_GLIB_LIBS='$(top_builddir)/glib/gnome/gobject/libguile-gnome-gobject-$(API_VERSION).la' AC_SUBST(GUILE_GLIB_CFLAGS) AC_SUBST(GUILE_GLIB_LIBS) AC_CONFIG_COMMANDS([glib/gnome/gobject/guile-gnome-gobject], [ rm -f glib/gnome/gobject/guile-gnome-gobject ln -s `cd $srcdir && pwd`/glib/gnome/gobject/ glib/gnome/gobject/guile-gnome-gobject ]) record_check glib true # gnome-vfs PKG_CHECK_MODULES(GNOME_VFS, gnome-vfs-2.0 >= 2.16.0, HAVE_GNOME_VFS=true, HAVE_GNOME_VFS=false) AC_SUBST(GNOME_VFS_CFLAGS) AC_SUBST(GNOME_VFS_LIBS) AM_CONDITIONAL(HAVE_GNOME_VFS, $HAVE_GNOME_VFS) if $DISABLE_DEPRECATED; then GNOME_VFS_DEPRECATED_CFLAGS=-DGNOME_VFS_DISABLE_DEPRECATED else GNOME_VFS_DEPRECATED_CFLAGS= fi AC_SUBST(GNOME_VFS_DEPRECATED_CFLAGS) record_check gnome-vfs $HAVE_GNOME_VFS # gtk PKG_CHECK_MODULES(GDK_PIXBUF, gdk-pixbuf-2.0 >= 2.10.0, HAVE_GDK_PIXBUF=true, HAVE_GDK_PIBXUF=false) AC_SUBST(GDK_PIXBUF_CFLAGS) AC_SUBST(GDK_PIXBUF_LIBS) AM_CONDITIONAL(HAVE_GDK_PIXBUF, $HAVE_GDK_PIXBUF) if $HAVE_CAIRO; then PKG_CHECK_MODULES(GDK, gdk-2.0 >= 2.10.0, HAVE_GDK=true, HAVE_GDK=false) AC_SUBST(GDK_CFLAGS) AC_SUBST(GDK_LIBS) PKG_CHECK_MODULES(GTK, gtk+-2.0 >= 2.10.0, HAVE_GTK=true, HAVE_GTK=false) AC_SUBST(GTK_CFLAGS) AC_SUBST(GTK_LIBS) if $DISABLE_DEPRECATED; then GTK_DEPRECATED_CFLAGS=-DGTK_DISABLE_DEPRECATED else GTK_DEPRECATED_CFLAGS= fi AC_SUBST(GTK_DEPRECATED_CFLAGS) else AC_MSG_WARN(not building gdk/gtk due to missing guile-cairo) HAVE_GDK=false HAVE_GTK=false fi AM_CONDITIONAL(HAVE_GDK, $HAVE_GDK) AM_CONDITIONAL(HAVE_GTK, $HAVE_GTK) record_check gtk $HAVE_GTK # libglade PKG_CHECK_MODULES(LIBGLADE, libglade-2.0 >= 2.6, HAVE_LIBGLADE=true, HAVE_LIBGLADE=false) AC_SUBST(LIBGLADE_CFLAGS) AC_SUBST(LIBGLADE_LIBS) AM_CONDITIONAL(HAVE_LIBGLADE, $HAVE_LIBGLADE) record_check libglade $HAVE_LIBGLADE # libgnome PKG_CHECK_MODULES(LIBGNOME, libgnome-2.0 >= 2.16, HAVE_LIBGNOME=true, HAVE_LIBGNOME=false) AC_SUBST(LIBGNOME_CFLAGS) AC_SUBST(LIBGNOME_LIBS) AM_CONDITIONAL(HAVE_LIBGNOME, $HAVE_LIBGNOME) record_check libgnome $HAVE_LIBGNOME # libgnomecanvas PKG_CHECK_MODULES(CANVAS, libgnomecanvas-2.0 >= 2.14, HAVE_CANVAS=true, HAVE_CANVAS=false) AC_SUBST(CANVAS_CFLAGS) AC_SUBST(CANVAS_LIBS) AM_CONDITIONAL(HAVE_CANVAS, $HAVE_CANVAS) record_check libgnomecanvas $HAVE_CANVAS # libgnomeui PKG_CHECK_MODULES(LIBGNOMEUI, libgnomeui-2.0 >= 2.16.0, HAVE_LIBGNOMEUI=true, HAVE_LIBGNOMEUI=false) AC_SUBST(LIBGNOMEUI_CFLAGS) AC_SUBST(LIBGNOMEUI_LIBS) AM_CONDITIONAL(HAVE_LIBGNOMEUI, $HAVE_LIBGNOMEUI) if $DISABLE_DEPRECATED; then GNOMEUI_DEPRECATION_FLAGS=-DGNOME_DISABLE_DEPRECATED_SOURCE -DGNOME_DISABLE_DEPRECATED else GNOMEUI_DEPRECATION_FLAGS= fi AC_SUBST(GNOMEUI_DEPRECATION_FLAGS) record_check libgnomeui $HAVE_LIBGNOMEUI # pango PKG_CHECK_MODULES(PANGO, pango >= 1.14, HAVE_PANGO=true, HAVE_PANGO=false) AC_SUBST(PANGO_CFLAGS) AC_SUBST(PANGO_LIBS) AM_CONDITIONAL(HAVE_PANGO, $HAVE_PANGO) PKG_CHECK_MODULES(PANGOCAIRO, pangocairo >= 1.14, HAVE_PANGOCAIRO=true, HAVE_PANGOCAIRO=false) AC_SUBST(PANGOCAIRO_CFLAGS) AC_SUBST(PANGOCAIRO_LIBS) AM_CONDITIONAL(HAVE_PANGOCAIRO, $HAVE_PANGOCAIRO) record_check pango $HAVE_PANGO if test -z "$PACKAGES_TO_BUILD"; then AC_MSG_ERROR([All wrappers failed their prerequisites. These following wrappers cannot be built: $PACKAGES_NOT_BUILT Check the README files in the above subdirectories, install the necessary packages, and try again. ]) fi if test -z "$PACKAGES_NOT_BUILT"; then AC_MSG_NOTICE([ All available wrappers will be built: $PACKAGES_TO_BUILD ]) else AC_MSG_NOTICE([Some packages will not be built. These wrappers will be built: $PACKAGES_TO_BUILD These wrappers failed their prerequisites and will NOT be built: $PACKAGES_NOT_BUILT Check the README files in the above subdirectories for more information on the prerequisites of a package. ]) fi AC_CONFIG_FILES(dev-environ, [chmod +x ./dev-environ]) AC_CONFIG_FILES( Makefile atk/doc/Makefile atk/tests/Makefile atk/gnome/gw/Makefile atk/gnome/Makefile atk/gnome/overrides/Makefile atk/Makefile cairo/gnome/gw/Makefile cairo/gnome/Makefile cairo/Makefile corba/doc/Makefile corba/tests/Makefile corba/gnome/gw/Makefile corba/gnome/Makefile corba/gnome/corba/Makefile corba/Makefile corba/demos/Makefile corba/demos/corba/Makefile defs/tools/Makefile defs/gnome/Makefile defs/gnome/defs/Makefile defs/Makefile gconf/examples/Makefile gconf/examples/gconf/Makefile gconf/doc/Makefile gconf/tests/Makefile gconf/gnome/gw/Makefile gconf/gnome/Makefile gconf/gnome/overrides/Makefile gconf/Makefile glib/examples/Makefile glib/doc/Makefile glib/doc/glib/Makefile glib/doc/gobject/Makefile glib/gnome/gw/Makefile glib/gnome/gw/support/Makefile glib/gnome/Makefile glib/gnome/overrides/Makefile glib/gnome/gobject/Makefile glib/test-suite/Makefile glib/Makefile glib/bin/Makefile gnome-vfs/examples/gnome-vfs/Makefile gnome-vfs/examples/Makefile gnome-vfs/doc/Makefile gnome-vfs/tests/Makefile gnome-vfs/gnome/gw/Makefile gnome-vfs/gnome/Makefile gnome-vfs/gnome/overrides/Makefile gnome-vfs/Makefile gtk/examples/Makefile gtk/doc/gtk/Makefile gtk/doc/gdk/Makefile gtk/doc/Makefile gtk/tests/gtk/Makefile gtk/tests/gdk/Makefile gtk/tests/Makefile gtk/gnome/contrib/Makefile gtk/gnome/gw/Makefile gtk/gnome/gtk/Makefile gtk/gnome/Makefile gtk/gnome/overrides/Makefile gtk/Makefile libglade/examples/Makefile libglade/doc/Makefile libglade/tests/Makefile libglade/gnome/gw/Makefile libglade/gnome/Makefile libglade/gnome/overrides/Makefile libglade/Makefile libgnome/doc/Makefile libgnome/tests/Makefile libgnome/gnome/gw/Makefile libgnome/gnome/Makefile libgnome/gnome/overrides/Makefile libgnome/Makefile libgnomecanvas/examples/Makefile libgnomecanvas/doc/Makefile libgnomecanvas/tests/Makefile libgnomecanvas/gnome/gw/Makefile libgnomecanvas/gnome/Makefile libgnomecanvas/gnome/overrides/Makefile libgnomecanvas/Makefile libgnomeui/doc/Makefile libgnomeui/tests/Makefile libgnomeui/gnome/gw/Makefile libgnomeui/gnome/Makefile libgnomeui/gnome/overrides/Makefile libgnomeui/Makefile pango/doc/pango/Makefile pango/doc/pangocairo/Makefile pango/doc/Makefile pango/tests/pango/Makefile pango/tests/pangocairo/Makefile pango/tests/Makefile pango/gnome/gw/Makefile pango/gnome/Makefile pango/gnome/overrides/Makefile pango/Makefile cairo/guile-gnome-cairo.pc cairo/guile-gnome-cairo-uninstalled.pc defs/guile-gnome-defs.pc defs/guile-gnome-defs-uninstalled.pc glib/guile-gnome-glib.pc glib/guile-gnome-glib-uninstalled.pc gtk/guile-gnome-gtk.pc gtk/guile-gnome-gtk-uninstalled.pc libgnomeui/guile-gnome-libgnomeui.pc libgnomeui/guile-gnome-libgnomeui-uninstalled.pc ) AC_OUTPUT guile-gnome-platform-2.16.2/AUTHORS0000644000175000017500000000164111670374114017242 0ustar00wingowingo00000000000000To find out what should go in this file, see "Information For Maintainers of GNU Software" (maintain.texi), the section called "Recording Changes". Martin Baulig: In the toplevel directory, wrote the initial versions of configure.ac, which live on inside autogen-pkg.sh. Andreas Rottmann: In the toplevel directory, wrote: autogen-pkg.sh common.mk In the toplevel directory, changes to: h2defs.py autogen.sh In the directory scripts/, wrote: add-upstream fork-archive-packages submit-merge Toby D. Reeves: In the toplevel directory, wrote: h2defs.py James Henstridge: In the toplevel directory, changes to: h2defs.py Andy Wingo: In the toplevel directory, wrote: autogen.sh dev-environ.in In the toplevel directory, changes to: autogen-pkg.sh In the directory scripts/, wrote: update-inventories tla-for-each Thomas Vander Stichele: In the toplevel directory, wrote: autogen-support.sh guile-gnome-platform-2.16.2/ChangeLog.pre-2.160000644000175000017500000003634311670374002021120 0ustar00wingowingo000000000000002008-04-27 Andy Wingo * docs/: Add, now that docs is out from the platform, containing the release notes doc, and a couple of old release notes. * PACKAGES (guile-gnome-platform): Remove docs from the platform -- all of its contents have been folded into the reference for the individual modules. 2008-04-25 Andy Wingo * == Released guile-gnome-platform version 2.15.98 == 2008-04-25 Andy Wingo * autogen-pkg.sh (GUILE_VERSION): Formally require Guile 1.8, as has been the case for a while now. (API_VERSION): Bump API_VERSION to 2, as a test before going stable. 2008-04-10 Andy Wingo * == Released guile-gnome-platform version 2.15.97 == 2008-04-10 Andy Wingo * scripts/for-each-pkg (packages): Handle argv more sensibly, so that multiple words in one arg get passed to the subcommand correctly. 2008-04-10 Andy Wingo * NEWS: Update NEWS. 2007-12-17 Jan Nieuwenhuizen * scripts/push-packages: add --create-prefix, allowing easier contributing. * .bzrignore: Ignore temp files and packages. 2008-04-09 Andy Wingo * autogen-pkg.sh: Output a more modern configure.ac. Tell automake to not worry about non-portable make. 2007-12-10 Andy Wingo * == Released guile-gnome-platform version 2.15.96 == 2007-12-06 Andy Wingo * generate-docs.mk (GTK_DOC_GENERATE_UNDOCUMENTED): (generate-undocumented): Add targets to regenerate undocumented.texi. 2007-11-25 Andy Wingo * generate-docs.mk (GUILE): Fix a typo. * dev-environ.in (ALL_PKGS): Add bin/ to the path if the package has one. * tests.mk: * generate-docs.mk: So, just use guile-gnome-0 if glib is not in the packages set, because if glib is in the set, then dev-environ is sufficient for setting up the enviroment. 2007-11-15 Andy Wingo * tests.mk (GUILE): * generate-docs.mk (GUILE): Use guile-gnome-0, because we want (gnome-0) to have been loaded. * scripts/review-api: New script, generates a minimal texinfo file that one can use to review wrapped API. 2007-11-10 Andy Wingo * == Released guile-gnome-platform version 2.15.95 == 2007-11-10 Andy Wingo * tests.mk: New file, common makefile snippets for running API regression suites. * generate-docs.mk (check-coverage): New target, checks the coverage of the documentation. 2007-09-25 Andy Wingo * == Released guile-gnome-platform version 2.15.94 == 2007-09-25 Andy Wingo * NEWS: Updated. 2007-09-25 Andy Wingo * NEWS: Updated. 2007-09-24 Andy Wingo * generate-docs.mk: Rework to deal with new gtk-doc.scm interface. 2007-09-07 Andy Wingo * generate-docs.mk: New common makefile snippet for generated docs. 2007-08-25 Andy Wingo * common.mk (.c.doc): Update so that making .doc files works; still needs some filtering though. 2007-06-15 Andy Wingo * == Released guile-gnome-platform version 2.15.93 == 2007-05-24 Andy Wingo * scripts/maint/upload-to-ftp.gnu.org: Actually upload the file if we are given a URL. * == Released guile-gnome-platform version 2.15.92 == 2007-05-24 Andy Wingo * h2def.py: Add new options --type-re, to specify a regular expression to transform a type name into a gtype-id macro. See defs/gnome/defs/Makefile.am for a use example. 2007-05-20 Andy Wingo * autogen-pkg.sh: Fix some aesthetics if a package is not going to be built. * PACKAGES (guile-gnome-platform): Add cairo to guile-gnome-platform. 2007-05-13 Andy Wingo * h2def.py (get_type_pat): In method detection, require that the "object" type have a trailing *. Fixes incorrect detection of e.g. atk_role_get_name as a method wrapper, because otherwise you can't tell a difference between a pointer type and a scalar. * h2def.py: Add a command line argument --no-methods to disable the code that automatically tries to detect methods. Useful for example when generating glib defs. 2007-05-10 Andy Wingo * == Released guile-gnome-platform version 2.15.91 == 2007-05-10 Andy Wingo * scripts/maint/prepare-news-entry (len): Use minimal matching on the changelog diff so that we just return the most recent changelog entries. 2007-05-06 Andy Wingo * common.mk (PKG_PATH): Fix PKG_PATH statement, pointed out by Mark Flacy. 2007-05-05 Andy Wingo * autogen-pkg.sh: Depend on g-wrap >= 1.9.8. 2006-12-18 Andy Wingo * scripts/maint/upload-to-ftp.gnu.org: Add the skeleton of a ftp-upload.gnu.org helper. 2006-12-17 Andy Wingo * == Released guile-gnome-gstreamer version 0.9.90 == 2006-12-15 Andy Wingo * == Released guile-gnome-platform version 2.15.90 == 2006-12-15 Andy Wingo * scripts/maint/prepare-release: * scripts/maint/make-release-note: * scripts/maint/commit-release: * autogen-pkg.sh (release_manager): Update scripts. I hope they work! 2006-12-08 Andy Wingo * autogen-pkg.sh: Require the newly-released g-wrap 1.9.7. 2006-11-05 Andy Wingo * scripts/commit-from-changelog: New amazing script. 2006-10-26 Andy Wingo * autogen.sh: We seem to require bash for the moment. 2006-08-13 Andy Wingo * PACKAGES (guile-gnome-evolution-data-server): Add some more packages. * HACKING: * autogen-pkg.sh (release_manager): It's get-packages, not pull-packages. * README: * HACKING: Updated. * scripts/prepare-release: * scripts/prepare-news-entry: * scripts/make-release-note: * scripts/for-each-pkg: * scripts/commit-release: * scripts/changelog-log-release: * scripts/add-changelog-entry: Moved to scripts/maint/. 2006-08-13 Andy Wingo * scripts/upstream-missing: * scripts/update-inventories: * scripts/submit-merge: Removed. * scripts/release-config: Removed, but we don't have anything to replace it yet; perhaps branch-mark is what we need? * scripts/merge-all: * scripts/fork-archive-pkgs: Removed, thank god. * scripts/commit-all-merges: * scripts/commit-all: Removed. * scripts/prepare-release: * scripts/prepare-news-entry: * scripts/make-release-note: * scripts/for-each-pkg: * scripts/commit-release: * scripts/changelog-log-release: * scripts/add-changelog-entry: tla->bzr. * scripts/push-packages: New scripts, pushes all your packages somewhere. * scripts/pull-packages: New script, does bzr merge for all branches. * scripts/get-packages: Moved here from pull-packages. * PACKAGES: New file, lists what packages can be built. * scripts/pull-packages: New script, pulls in sub-packages. * autogen-pkg.sh (determine_package, autogen_pkg): Figure out our configuration from the directories in ./, not from ../=RELEASE-ID. We are free of tla, yay. 2005-12-22 Andy Wingo * scripts/update-inventories: Make tla-agnostic. * autogen-pkg.sh: Remove build-dep on SLIB. 2005-11-05 Andy Wingo * scripts/fork-archive-pkgs: Work with tla or baz. I think. * scripts/upstream-missing: Change to use baz missing, doh. Renamed from patches-missing. 2005-11-04 Andy Wingo * scripts/patches-missing: Don't do anything about patches in upstream but not in the local copy. Handle the no-diff case better. Better non-full output. * scripts/patches-missing: Use {arch}/+upstream if available. Don't print diffs any more, just show the patches that are missing. Let --full do a cat-archive-log on the patch. * scripts/fork-archive-pkgs: Support baz. * scripts/patches-missing: New file, prints a list of patches missing from this version in another archive. 2005-04-09 Andreas Rottmann * dev-environ.in: Set LTDL_LIBRARY_PATH instead of LD_LIBRARY_PATH. * h2def.py (find_enum_defs): Allow digits in enum names. 2005-03-06 Andy Wingo * scripts/make-release-note: Tweak evil regexps to correctly parse the NEWS files. * == Released guile-gnome-platform version 2.7.99 == 2005-02-17 Andy Wingo * autogen-pkg.sh (GUILE_LIBS): Require g-wrap >= 1.9.4. (DISABLE_DEPRECATED): Add a general option to disable deprecated cflags. 2005-02-24 Andreas Rottmann * scripts/commit-all: Only commit when ChangeLog has been touched, thus avoiding arch-log-only commits. * scripts/commit-all, scripts/merge-all: New helper scripts. 2005-01-25 Andreas Rottmann * configure.ac: Require G-Wrap >= 1.9.4. * h2def.py (proto_pat): Fix for return types with spaces, e.g. unsigned long. * common.mk (packages): Make out-of-tree-build-safe. 2005-01-12 Andy Wingo * == Released platform version 2.7.98 == 2005-01-12 Andy Wingo * scripts/release-config: * scripts/make-release-note: New files. 2005-01-11 Andy Wingo * scripts/add-changelog-entry: * scripts/changelog-log-release: * scripts/prepare-news-entry: * scripts/prepare-release: * scripts/commit-release: New helper scripts. 2004-11-15 Andy Wingo * Makefile.am.bottom (dist-gzip, dist, dist-all): Create ustar archives, because evolution-data-server manages to exceed the maximum path length. 2004-11-15 Andy Wingo * autogen-pkg.sh (record_check): Quote the bad value. Check for --prefix; if none is given, barf. People should be aware of guile's deficiencies. * autogen.sh: * autogen-support.sh (--only-genconfigure): New option. 2004-11-13 Andy Wingo * autogen-pkg.sh (record_check): New function, should be called from within package.ac files to report whether a wrapper can be built or not. (report_checks): New function, called after the packages have made their checks. Will report which wrappers can be built and which are missing prereqs, and error out if no package can be built. (release_manager): New global, defines the subdir of configs/ from which the official releases come. (get_version): New function, computes the version of a package. If no VERSION file is present in a subpackage, or more than one is present, default to a timestamp. (autogen_pkg): Always use guile-gnome-$pkg as the package name. Append +$source to the version if the source is not the $release_manager. 2004-11-11 Andy Wingo * common.mk (%.scm guile-gnome-gw-%.c): Before loading g-wrap, load (gnome-@API_VERSION@). This will make sure that, when building against an installed guile-gnome, guile-gnome of the right version is available. My English sucks! 2004-10-13 Andreas Rottmann * scripts/fork-archive-pkgs: Use -S option to "tla tag" instead of seperate archive-setup. 2004-10-29 Andy Wingo * common.mk: pkg-config versioning voodoo. 2004-10-26 Andy Wingo * common.mk: No more $guiledir, but there is $guilegnomedir, which is $datadir/guile-gnome-$apiversion. Adapt guilemoduledir ad guilegwmoduledir accordingly. * autogen-pkg.sh: No more --with-guiledir, we install to $datadir/guile-gnome-$apiversion. (API_VERSION): New substituted variable, the API version. Constant iff a release is backward compatible with the previous one. Starts at 0. 2004-10-17 Andy Wingo * common.mk (guilemoduledir, guilegwmoduledir): Get $guiledir from --with-guile-dir. * autogen-pkg.sh: Add --with-guiledir option to control install location of guile modules. Default PREFIX/share/guile/site. 2004-10-24 Andy Wingo * autogen-pkg.sh (sort_pkgs): Fix it right this time. 2004-10-16 Andy Wingo * autogen-pkg.sh: Get the module_directory for g-wrap from the right pkg-config file. (sort_pkgs): Echo the package into tsort even if it has no deps (e.g. docs/). Add a check for slib. 2004-10-12 Andreas Rottmann * autogen-pkg.sh: Use tsort instead of hand-built package sorter. This fixes a bug when defs and defs-extra are both present. * autogen.sh: Fix sourcing for shells that don't search the current directory. * dev-environ.in: Remove special casing of glib for setting $LD_LIBRARY_PATH, use a new control file shlib-dirs.ac instead. 2004-10-12 Andy Wingo * h2def.py (proto_pat): Accept whitespace between the parens and the arguments. 2004-10-06 Andy Wingo * h2def.py: Make sure the emacs typecode is always first in the output. 2004-10-06 Andy Wingo * h2def.py: Change so we require one of --types, --procs, or --all. Change --enums-without-gtype to --c-enums. Add optional --with-header= option. Adjust logic to match. 2004-09-30 Andy Wingo * autogen-pkg.sh (autogen_pkg): An unrecognized config $i becomes guile-gnome-$i-YYYYMMDD+$source. 2004-09-27 Andy Wingo * autogen-pkg.sh: Require g-wrap = 1.9.3. g-wrap is in unstable releases, and as such we require specific micro versions. * autogen-support.sh: sed character range fix. 2004-09-22 Andy Wingo * autogen-pkg.sh, autogen-support.sh, autogen.sh, common.mk, dev-environ.in: Added license blocks. * README: No g-wrap 1.9.2 2004-09-21 Andy Wingo * NEWS: Updated. * AUTHORS: Removed the RELEASE-NOTES entries, they're in docs/ now. 2004-09-19 Andy Wingo * Makefile.am.bottom: Added. Dist HACKING. * autogen-pkg.sh: Only generate the SUBDIRS part of Makefile.am; append Makefile.am.bottom to the end. * HACKING: Added. * scripts/tla-for-each: New script, does a tla command for all arch subdirs of the toplevel dir. 2004-09-17 Andy Wingo * autogen-pkg.sh (EXTRA_DIST): No more old release notes. 2004-09-16 Andy Wingo * AUTHORS: Add update-inventories to my AUTHORS list. * Makefile.am (EXTRA_DIST): No more old release notes. * RELEASE-NOTES-0.2.0.txt, RELEASE-NOTES-0.5.0.txt: Moved to the docs category. * NEWS: Distilled. * README: Updated. 2004-09-15 Andy Wingo * scripts/update-inventories: New script, will create arch-inventory entries for any untagged-source files. Useful for when you build in the source tree. 2004-09-08 Andy Wingo * NEWS: Initial version, still needs to be filled in. * AUTHORS: Updated. 2004-09-05 Andy Wingo * autogen-pkg.sh: No more m4/ dir, it was empty anyway. Use AC_PROG_LIBTOOL. 2004-09-04 Andy Wingo * autogen-pkg.sh (autogen_pkg): For the dev build-config, set package=guile-gnome-dev, so that no dev distribution tarball escapes into the wild with the name `guile-gnome'. Print out the package name and version. Just print the sorted dependency list, not the progress of the sort. (GUILE_LIBS): Require g-wrap 1.9.1 or greater. 2004-06-27 Andy Wingo * autogen-pkg.sh (ensure_dependencies): New function, taken from the main function because it needs to recurse. 2004-04-15 Andreas Rottmann * [guile-gnome started] guile-gnome-platform-2.16.2/INSTALL0000644000175000017500000003633211671126172017230 0ustar00wingowingo00000000000000Installation Instructions ************************* Copyright (C) 1994, 1995, 1996, 1999, 2000, 2001, 2002, 2004, 2005, 2006, 2007, 2008, 2009 Free Software Foundation, Inc. Copying and distribution of this file, with or without modification, are permitted in any medium without royalty provided the copyright notice and this notice are preserved. This file is offered as-is, without warranty of any kind. Basic Installation ================== Briefly, the shell commands `./configure; make; make install' should configure, build, and install this package. The following more-detailed instructions are generic; see the `README' file for instructions specific to this package. Some packages provide this `INSTALL' file but do not implement all of the features documented below. The lack of an optional feature in a given package is not necessarily a bug. More recommendations for GNU packages can be found in *note Makefile Conventions: (standards)Makefile Conventions. The `configure' shell script attempts to guess correct values for various system-dependent variables used during compilation. It uses those values to create a `Makefile' in each directory of the package. It may also create one or more `.h' files containing system-dependent definitions. Finally, it creates a shell script `config.status' that you can run in the future to recreate the current configuration, and a file `config.log' containing compiler output (useful mainly for debugging `configure'). It can also use an optional file (typically called `config.cache' and enabled with `--cache-file=config.cache' or simply `-C') that saves the results of its tests to speed up reconfiguring. Caching is disabled by default to prevent problems with accidental use of stale cache files. If you need to do unusual things to compile the package, please try to figure out how `configure' could check whether to do them, and mail diffs or instructions to the address given in the `README' so they can be considered for the next release. If you are using the cache, and at some point `config.cache' contains results you don't want to keep, you may remove or edit it. The file `configure.ac' (or `configure.in') is used to create `configure' by a program called `autoconf'. You need `configure.ac' if you want to change it or regenerate `configure' using a newer version of `autoconf'. The simplest way to compile this package is: 1. `cd' to the directory containing the package's source code and type `./configure' to configure the package for your system. Running `configure' might take a while. While running, it prints some messages telling which features it is checking for. 2. Type `make' to compile the package. 3. Optionally, type `make check' to run any self-tests that come with the package, generally using the just-built uninstalled binaries. 4. Type `make install' to install the programs and any data files and documentation. When installing into a prefix owned by root, it is recommended that the package be configured and built as a regular user, and only the `make install' phase executed with root privileges. 5. Optionally, type `make installcheck' to repeat any self-tests, but this time using the binaries in their final installed location. This target does not install anything. Running this target as a regular user, particularly if the prior `make install' required root privileges, verifies that the installation completed correctly. 6. You can remove the program binaries and object files from the source code directory by typing `make clean'. To also remove the files that `configure' created (so you can compile the package for a different kind of computer), type `make distclean'. There is also a `make maintainer-clean' target, but that is intended mainly for the package's developers. If you use it, you may have to get all sorts of other programs in order to regenerate files that came with the distribution. 7. Often, you can also type `make uninstall' to remove the installed files again. In practice, not all packages have tested that uninstallation works correctly, even though it is required by the GNU Coding Standards. 8. Some packages, particularly those that use Automake, provide `make distcheck', which can by used by developers to test that all other targets like `make install' and `make uninstall' work correctly. This target is generally not run by end users. Compilers and Options ===================== Some systems require unusual options for compilation or linking that the `configure' script does not know about. Run `./configure --help' for details on some of the pertinent environment variables. You can give `configure' initial values for configuration parameters by setting variables in the command line or in the environment. Here is an example: ./configure CC=c99 CFLAGS=-g LIBS=-lposix *Note Defining Variables::, for more details. Compiling For Multiple Architectures ==================================== You can compile the package for more than one kind of computer at the same time, by placing the object files for each architecture in their own directory. To do this, you can use GNU `make'. `cd' to the directory where you want the object files and executables to go and run the `configure' script. `configure' automatically checks for the source code in the directory that `configure' is in and in `..'. This is known as a "VPATH" build. With a non-GNU `make', it is safer to compile the package for one architecture at a time in the source code directory. After you have installed the package for one architecture, use `make distclean' before reconfiguring for another architecture. On MacOS X 10.5 and later systems, you can create libraries and executables that work on multiple system types--known as "fat" or "universal" binaries--by specifying multiple `-arch' options to the compiler but only a single `-arch' option to the preprocessor. Like this: ./configure CC="gcc -arch i386 -arch x86_64 -arch ppc -arch ppc64" \ CXX="g++ -arch i386 -arch x86_64 -arch ppc -arch ppc64" \ CPP="gcc -E" CXXCPP="g++ -E" This is not guaranteed to produce working output in all cases, you may have to build one architecture at a time and combine the results using the `lipo' tool if you have problems. Installation Names ================== By default, `make install' installs the package's commands under `/usr/local/bin', include files under `/usr/local/include', etc. You can specify an installation prefix other than `/usr/local' by giving `configure' the option `--prefix=PREFIX', where PREFIX must be an absolute file name. You can specify separate installation prefixes for architecture-specific files and architecture-independent files. If you pass the option `--exec-prefix=PREFIX' to `configure', the package uses PREFIX as the prefix for installing programs and libraries. Documentation and other data files still use the regular prefix. In addition, if you use an unusual directory layout you can give options like `--bindir=DIR' to specify different values for particular kinds of files. Run `configure --help' for a list of the directories you can set and what kinds of files go in them. In general, the default for these options is expressed in terms of `${prefix}', so that specifying just `--prefix' will affect all of the other directory specifications that were not explicitly provided. The most portable way to affect installation locations is to pass the correct locations to `configure'; however, many packages provide one or both of the following shortcuts of passing variable assignments to the `make install' command line to change installation locations without having to reconfigure or recompile. The first method involves providing an override variable for each affected directory. For example, `make install prefix=/alternate/directory' will choose an alternate location for all directory configuration variables that were expressed in terms of `${prefix}'. Any directories that were specified during `configure', but not in terms of `${prefix}', must each be overridden at install time for the entire installation to be relocated. The approach of makefile variable overrides for each directory variable is required by the GNU Coding Standards, and ideally causes no recompilation. However, some platforms have known limitations with the semantics of shared libraries that end up requiring recompilation when using this method, particularly noticeable in packages that use GNU Libtool. The second method involves providing the `DESTDIR' variable. For example, `make install DESTDIR=/alternate/directory' will prepend `/alternate/directory' before all installation names. The approach of `DESTDIR' overrides is not required by the GNU Coding Standards, and does not work on platforms that have drive letters. On the other hand, it does better at avoiding recompilation issues, and works well even when some directory options were not specified in terms of `${prefix}' at `configure' time. Optional Features ================= If the package supports it, you can cause programs to be installed with an extra prefix or suffix on their names by giving `configure' the option `--program-prefix=PREFIX' or `--program-suffix=SUFFIX'. Some packages pay attention to `--enable-FEATURE' options to `configure', where FEATURE indicates an optional part of the package. They may also pay attention to `--with-PACKAGE' options, where PACKAGE is something like `gnu-as' or `x' (for the X Window System). The `README' should mention any `--enable-' and `--with-' options that the package recognizes. For packages that use the X Window System, `configure' can usually find the X include and library files automatically, but if it doesn't, you can use the `configure' options `--x-includes=DIR' and `--x-libraries=DIR' to specify their locations. Some packages offer the ability to configure how verbose the execution of `make' will be. For these packages, running `./configure --enable-silent-rules' sets the default to minimal output, which can be overridden with `make V=1'; while running `./configure --disable-silent-rules' sets the default to verbose, which can be overridden with `make V=0'. Particular systems ================== On HP-UX, the default C compiler is not ANSI C compatible. If GNU CC is not installed, it is recommended to use the following options in order to use an ANSI C compiler: ./configure CC="cc -Ae -D_XOPEN_SOURCE=500" and if that doesn't work, install pre-built binaries of GCC for HP-UX. On OSF/1 a.k.a. Tru64, some versions of the default C compiler cannot parse its `' header file. The option `-nodtk' can be used as a workaround. If GNU CC is not installed, it is therefore recommended to try ./configure CC="cc" and if that doesn't work, try ./configure CC="cc -nodtk" On Solaris, don't put `/usr/ucb' early in your `PATH'. This directory contains several dysfunctional programs; working variants of these programs are available in `/usr/bin'. So, if you need `/usr/ucb' in your `PATH', put it _after_ `/usr/bin'. On Haiku, software installed for all users goes in `/boot/common', not `/usr/local'. It is recommended to use the following options: ./configure --prefix=/boot/common Specifying the System Type ========================== There may be some features `configure' cannot figure out automatically, but needs to determine by the type of machine the package will run on. Usually, assuming the package is built to be run on the _same_ architectures, `configure' can figure that out, but if it prints a message saying it cannot guess the machine type, give it the `--build=TYPE' option. TYPE can either be a short name for the system type, such as `sun4', or a canonical name which has the form: CPU-COMPANY-SYSTEM where SYSTEM can have one of these forms: OS KERNEL-OS See the file `config.sub' for the possible values of each field. If `config.sub' isn't included in this package, then this package doesn't need to know the machine type. If you are _building_ compiler tools for cross-compiling, you should use the option `--target=TYPE' to select the type of system they will produce code for. If you want to _use_ a cross compiler, that generates code for a platform different from the build platform, you should specify the "host" platform (i.e., that on which the generated programs will eventually be run) with `--host=TYPE'. Sharing Defaults ================ If you want to set default values for `configure' scripts to share, you can create a site shell script called `config.site' that gives default values for variables like `CC', `cache_file', and `prefix'. `configure' looks for `PREFIX/share/config.site' if it exists, then `PREFIX/etc/config.site' if it exists. Or, you can set the `CONFIG_SITE' environment variable to the location of the site script. A warning: not all `configure' scripts look for a site script. Defining Variables ================== Variables not defined in a site shell script can be set in the environment passed to `configure'. However, some packages may run configure again during the build, and the customized values of these variables may be lost. In order to avoid this problem, you should set them in the `configure' command line, using `VAR=value'. For example: ./configure CC=/usr/local2/bin/gcc causes the specified `gcc' to be used as the C compiler (unless it is overridden in the site shell script). Unfortunately, this technique does not work for `CONFIG_SHELL' due to an Autoconf bug. Until the bug is fixed you can use this workaround: CONFIG_SHELL=/bin/bash /bin/bash ./configure CONFIG_SHELL=/bin/bash `configure' Invocation ====================== `configure' recognizes the following options to control how it operates. `--help' `-h' Print a summary of all of the options to `configure', and exit. `--help=short' `--help=recursive' Print a summary of the options unique to this package's `configure', and exit. The `short' variant lists options used only in the top level, while the `recursive' variant lists options also present in any nested packages. `--version' `-V' Print the version of Autoconf used to generate the `configure' script, and exit. `--cache-file=FILE' Enable the cache: use and save the results of the tests in FILE, traditionally `config.cache'. FILE defaults to `/dev/null' to disable caching. `--config-cache' `-C' Alias for `--cache-file=config.cache'. `--quiet' `--silent' `-q' Do not print messages saying which checks are being made. To suppress all normal output, redirect it to `/dev/null' (any error messages will still be shown). `--srcdir=DIR' Look for the package's source code in directory DIR. Usually `configure' can determine that directory automatically. `--prefix=DIR' Use DIR as the installation prefix. *note Installation Names:: for more details, including other options available for fine-tuning the installation locations. `--no-create' `-n' Run the configure checks, but stop before creating any output files. `configure' also accepts some other, not widely useful, options. Run `configure --help' for more details. guile-gnome-platform-2.16.2/dev-environ.in0000755000175000017500000000303411752517424020763 0ustar00wingowingo00000000000000#!/bin/sh # guile-gnome # Copyright (C) 2003,2004,2011 Free Software Foundation, Inc. # # This program is free software; you can redistribute it and/or # modify it under the terms of the GNU General Public License as # published by the Free Software Foundation; either version 2 of # the License, or (at your option) any later version. # # This program is distributed in the hope that it will be useful, # but WITHOUT ANY WARRANTY; without even the implied warranty of # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the # GNU General Public License for more details. # # You should have received a copy of the GNU General Public License # along with this program; if not, contact: # # Free Software Foundation Voice: +1-617-542-5942 # 59 Temple Place - Suite 330 Fax: +1-617-542-2652 # Boston, MA 02111-1307, USA gnu@gnu.org srcdir=@abs_top_srcdir@ builddir=@abs_top_builddir@ for pkg in atk cairo corba defs gconf glib gnome-vfs gtk libglade libgnome libgnomecanvas libgnomeui pango; do GUILE_LOAD_PATH=$srcdir/$pkg:$GUILE_LOAD_PATH if [ $srcdir != $builddir ]; then GUILE_LOAD_PATH=$builddir/$pkg:$GUILE_LOAD_PATH fi if [ -d $builddir/$pkg/bin ]; then PATH=$builddir/$pkg/bin:$PATH fi LTDL_LIBRARY_PATH=$builddir/$pkg/gnome/gw:$LTDL_LIBRARY_PATH PKG_CONFIG_PATH=$builddir/$pkg:$PKG_CONFIG_PATH done LTDL_LIBRARY_PATH=$builddir/glib/gnome/gobject:$LTDL_LIBRARY_PATH export GUILE_LOAD_PATH LTDL_LIBRARY_PATH PKG_CONFIG_PATH PATH exec "$@" guile-gnome-platform-2.16.2/aclocal.m40000644000175000017500000125416211752511064020041 0ustar00wingowingo00000000000000# generated automatically by aclocal 1.11.5 -*- Autoconf -*- # Copyright (C) 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004, # 2005, 2006, 2007, 2008, 2009, 2010, 2011 Free Software Foundation, # Inc. # This file is free software; the Free Software Foundation # gives unlimited permission to copy and/or distribute it, # with or without modifications, as long as this notice is preserved. # This program is distributed in the hope that it will be useful, # but WITHOUT ANY WARRANTY, to the extent permitted by law; without # even the implied warranty of MERCHANTABILITY or FITNESS FOR A # PARTICULAR PURPOSE. m4_ifndef([AC_AUTOCONF_VERSION], [m4_copy([m4_PACKAGE_VERSION], [AC_AUTOCONF_VERSION])])dnl m4_if(m4_defn([AC_AUTOCONF_VERSION]), [2.69],, [m4_warning([this file was generated for autoconf 2.69. You have another version of autoconf. It may work, but is not guaranteed to. If you have problems, you may need to regenerate the build system entirely. To do so, use the procedure documented by the package, typically `autoreconf'.])]) # libtool.m4 - Configure libtool for the host system. -*-Autoconf-*- # # Copyright (C) 1996, 1997, 1998, 1999, 2000, 2001, 2003, 2004, 2005, # 2006, 2007, 2008, 2009, 2010, 2011 Free Software # Foundation, Inc. # Written by Gordon Matzigkeit, 1996 # # This file is free software; the Free Software Foundation gives # unlimited permission to copy and/or distribute it, with or without # modifications, as long as this notice is preserved. m4_define([_LT_COPYING], [dnl # Copyright (C) 1996, 1997, 1998, 1999, 2000, 2001, 2003, 2004, 2005, # 2006, 2007, 2008, 2009, 2010, 2011 Free Software # Foundation, Inc. # Written by Gordon Matzigkeit, 1996 # # This file is part of GNU Libtool. # # GNU Libtool is free software; you can redistribute it and/or # modify it under the terms of the GNU General Public License as # published by the Free Software Foundation; either version 2 of # the License, or (at your option) any later version. # # As a special exception to the GNU General Public License, # if you distribute this file as part of a program or library that # is built using GNU Libtool, you may include this file under the # same distribution terms that you use for the rest of that program. # # GNU Libtool is distributed in the hope that it will be useful, # but WITHOUT ANY WARRANTY; without even the implied warranty of # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the # GNU General Public License for more details. # # You should have received a copy of the GNU General Public License # along with GNU Libtool; see the file COPYING. If not, a copy # can be downloaded from http://www.gnu.org/licenses/gpl.html, or # obtained by writing to the Free Software Foundation, Inc., # 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA. ]) # serial 57 LT_INIT # LT_PREREQ(VERSION) # ------------------ # Complain and exit if this libtool version is less that VERSION. m4_defun([LT_PREREQ], [m4_if(m4_version_compare(m4_defn([LT_PACKAGE_VERSION]), [$1]), -1, [m4_default([$3], [m4_fatal([Libtool version $1 or higher is required], 63)])], [$2])]) # _LT_CHECK_BUILDDIR # ------------------ # Complain if the absolute build directory name contains unusual characters m4_defun([_LT_CHECK_BUILDDIR], [case `pwd` in *\ * | *\ *) AC_MSG_WARN([Libtool does not cope well with whitespace in `pwd`]) ;; esac ]) # LT_INIT([OPTIONS]) # ------------------ AC_DEFUN([LT_INIT], [AC_PREREQ([2.58])dnl We use AC_INCLUDES_DEFAULT AC_REQUIRE([AC_CONFIG_AUX_DIR_DEFAULT])dnl AC_BEFORE([$0], [LT_LANG])dnl AC_BEFORE([$0], [LT_OUTPUT])dnl AC_BEFORE([$0], [LTDL_INIT])dnl m4_require([_LT_CHECK_BUILDDIR])dnl dnl Autoconf doesn't catch unexpanded LT_ macros by default: m4_pattern_forbid([^_?LT_[A-Z_]+$])dnl m4_pattern_allow([^(_LT_EOF|LT_DLGLOBAL|LT_DLLAZY_OR_NOW|LT_MULTI_MODULE)$])dnl dnl aclocal doesn't pull ltoptions.m4, ltsugar.m4, or ltversion.m4 dnl unless we require an AC_DEFUNed macro: AC_REQUIRE([LTOPTIONS_VERSION])dnl AC_REQUIRE([LTSUGAR_VERSION])dnl AC_REQUIRE([LTVERSION_VERSION])dnl AC_REQUIRE([LTOBSOLETE_VERSION])dnl m4_require([_LT_PROG_LTMAIN])dnl _LT_SHELL_INIT([SHELL=${CONFIG_SHELL-/bin/sh}]) dnl Parse OPTIONS _LT_SET_OPTIONS([$0], [$1]) # This can be used to rebuild libtool when needed LIBTOOL_DEPS="$ltmain" # Always use our own libtool. LIBTOOL='$(SHELL) $(top_builddir)/libtool' AC_SUBST(LIBTOOL)dnl _LT_SETUP # Only expand once: m4_define([LT_INIT]) ])# LT_INIT # Old names: AU_ALIAS([AC_PROG_LIBTOOL], [LT_INIT]) AU_ALIAS([AM_PROG_LIBTOOL], [LT_INIT]) dnl aclocal-1.4 backwards compatibility: dnl AC_DEFUN([AC_PROG_LIBTOOL], []) dnl AC_DEFUN([AM_PROG_LIBTOOL], []) # _LT_CC_BASENAME(CC) # ------------------- # Calculate cc_basename. Skip known compiler wrappers and cross-prefix. m4_defun([_LT_CC_BASENAME], [for cc_temp in $1""; do case $cc_temp in compile | *[[\\/]]compile | ccache | *[[\\/]]ccache ) ;; distcc | *[[\\/]]distcc | purify | *[[\\/]]purify ) ;; \-*) ;; *) break;; esac done cc_basename=`$ECHO "$cc_temp" | $SED "s%.*/%%; s%^$host_alias-%%"` ]) # _LT_FILEUTILS_DEFAULTS # ---------------------- # It is okay to use these file commands and assume they have been set # sensibly after `m4_require([_LT_FILEUTILS_DEFAULTS])'. m4_defun([_LT_FILEUTILS_DEFAULTS], [: ${CP="cp -f"} : ${MV="mv -f"} : ${RM="rm -f"} ])# _LT_FILEUTILS_DEFAULTS # _LT_SETUP # --------- m4_defun([_LT_SETUP], [AC_REQUIRE([AC_CANONICAL_HOST])dnl AC_REQUIRE([AC_CANONICAL_BUILD])dnl AC_REQUIRE([_LT_PREPARE_SED_QUOTE_VARS])dnl AC_REQUIRE([_LT_PROG_ECHO_BACKSLASH])dnl _LT_DECL([], [PATH_SEPARATOR], [1], [The PATH separator for the build system])dnl dnl _LT_DECL([], [host_alias], [0], [The host system])dnl _LT_DECL([], [host], [0])dnl _LT_DECL([], [host_os], [0])dnl dnl _LT_DECL([], [build_alias], [0], [The build system])dnl _LT_DECL([], [build], [0])dnl _LT_DECL([], [build_os], [0])dnl dnl AC_REQUIRE([AC_PROG_CC])dnl AC_REQUIRE([LT_PATH_LD])dnl AC_REQUIRE([LT_PATH_NM])dnl dnl AC_REQUIRE([AC_PROG_LN_S])dnl test -z "$LN_S" && LN_S="ln -s" _LT_DECL([], [LN_S], [1], [Whether we need soft or hard links])dnl dnl AC_REQUIRE([LT_CMD_MAX_LEN])dnl _LT_DECL([objext], [ac_objext], [0], [Object file suffix (normally "o")])dnl _LT_DECL([], [exeext], [0], [Executable file suffix (normally "")])dnl dnl m4_require([_LT_FILEUTILS_DEFAULTS])dnl m4_require([_LT_CHECK_SHELL_FEATURES])dnl m4_require([_LT_PATH_CONVERSION_FUNCTIONS])dnl m4_require([_LT_CMD_RELOAD])dnl m4_require([_LT_CHECK_MAGIC_METHOD])dnl m4_require([_LT_CHECK_SHAREDLIB_FROM_LINKLIB])dnl m4_require([_LT_CMD_OLD_ARCHIVE])dnl m4_require([_LT_CMD_GLOBAL_SYMBOLS])dnl m4_require([_LT_WITH_SYSROOT])dnl _LT_CONFIG_LIBTOOL_INIT([ # See if we are running on zsh, and set the options which allow our # commands through without removal of \ escapes INIT. if test -n "\${ZSH_VERSION+set}" ; then setopt NO_GLOB_SUBST fi ]) if test -n "${ZSH_VERSION+set}" ; then setopt NO_GLOB_SUBST fi _LT_CHECK_OBJDIR m4_require([_LT_TAG_COMPILER])dnl case $host_os in aix3*) # AIX sometimes has problems with the GCC collect2 program. For some # reason, if we set the COLLECT_NAMES environment variable, the problems # vanish in a puff of smoke. if test "X${COLLECT_NAMES+set}" != Xset; then COLLECT_NAMES= export COLLECT_NAMES fi ;; esac # Global variables: ofile=libtool can_build_shared=yes # All known linkers require a `.a' archive for static linking (except MSVC, # which needs '.lib'). libext=a with_gnu_ld="$lt_cv_prog_gnu_ld" old_CC="$CC" old_CFLAGS="$CFLAGS" # Set sane defaults for various variables test -z "$CC" && CC=cc test -z "$LTCC" && LTCC=$CC test -z "$LTCFLAGS" && LTCFLAGS=$CFLAGS test -z "$LD" && LD=ld test -z "$ac_objext" && ac_objext=o _LT_CC_BASENAME([$compiler]) # Only perform the check for file, if the check method requires it test -z "$MAGIC_CMD" && MAGIC_CMD=file case $deplibs_check_method in file_magic*) if test "$file_magic_cmd" = '$MAGIC_CMD'; then _LT_PATH_MAGIC fi ;; esac # Use C for the default configuration in the libtool script LT_SUPPORTED_TAG([CC]) _LT_LANG_C_CONFIG _LT_LANG_DEFAULT_CONFIG _LT_CONFIG_COMMANDS ])# _LT_SETUP # _LT_PREPARE_SED_QUOTE_VARS # -------------------------- # Define a few sed substitution that help us do robust quoting. m4_defun([_LT_PREPARE_SED_QUOTE_VARS], [# Backslashify metacharacters that are still active within # double-quoted strings. sed_quote_subst='s/\([["`$\\]]\)/\\\1/g' # Same as above, but do not quote variable references. double_quote_subst='s/\([["`\\]]\)/\\\1/g' # Sed substitution to delay expansion of an escaped shell variable in a # double_quote_subst'ed string. delay_variable_subst='s/\\\\\\\\\\\$/\\\\\\$/g' # Sed substitution to delay expansion of an escaped single quote. delay_single_quote_subst='s/'\''/'\'\\\\\\\'\''/g' # Sed substitution to avoid accidental globbing in evaled expressions no_glob_subst='s/\*/\\\*/g' ]) # _LT_PROG_LTMAIN # --------------- # Note that this code is called both from `configure', and `config.status' # now that we use AC_CONFIG_COMMANDS to generate libtool. Notably, # `config.status' has no value for ac_aux_dir unless we are using Automake, # so we pass a copy along to make sure it has a sensible value anyway. m4_defun([_LT_PROG_LTMAIN], [m4_ifdef([AC_REQUIRE_AUX_FILE], [AC_REQUIRE_AUX_FILE([ltmain.sh])])dnl _LT_CONFIG_LIBTOOL_INIT([ac_aux_dir='$ac_aux_dir']) ltmain="$ac_aux_dir/ltmain.sh" ])# _LT_PROG_LTMAIN # So that we can recreate a full libtool script including additional # tags, we accumulate the chunks of code to send to AC_CONFIG_COMMANDS # in macros and then make a single call at the end using the `libtool' # label. # _LT_CONFIG_LIBTOOL_INIT([INIT-COMMANDS]) # ---------------------------------------- # Register INIT-COMMANDS to be passed to AC_CONFIG_COMMANDS later. m4_define([_LT_CONFIG_LIBTOOL_INIT], [m4_ifval([$1], [m4_append([_LT_OUTPUT_LIBTOOL_INIT], [$1 ])])]) # Initialize. m4_define([_LT_OUTPUT_LIBTOOL_INIT]) # _LT_CONFIG_LIBTOOL([COMMANDS]) # ------------------------------ # Register COMMANDS to be passed to AC_CONFIG_COMMANDS later. m4_define([_LT_CONFIG_LIBTOOL], [m4_ifval([$1], [m4_append([_LT_OUTPUT_LIBTOOL_COMMANDS], [$1 ])])]) # Initialize. m4_define([_LT_OUTPUT_LIBTOOL_COMMANDS]) # _LT_CONFIG_SAVE_COMMANDS([COMMANDS], [INIT_COMMANDS]) # ----------------------------------------------------- m4_defun([_LT_CONFIG_SAVE_COMMANDS], [_LT_CONFIG_LIBTOOL([$1]) _LT_CONFIG_LIBTOOL_INIT([$2]) ]) # _LT_FORMAT_COMMENT([COMMENT]) # ----------------------------- # Add leading comment marks to the start of each line, and a trailing # full-stop to the whole comment if one is not present already. m4_define([_LT_FORMAT_COMMENT], [m4_ifval([$1], [ m4_bpatsubst([m4_bpatsubst([$1], [^ *], [# ])], [['`$\]], [\\\&])]m4_bmatch([$1], [[!?.]$], [], [.]) )]) # _LT_DECL([CONFIGNAME], VARNAME, VALUE, [DESCRIPTION], [IS-TAGGED?]) # ------------------------------------------------------------------- # CONFIGNAME is the name given to the value in the libtool script. # VARNAME is the (base) name used in the configure script. # VALUE may be 0, 1 or 2 for a computed quote escaped value based on # VARNAME. Any other value will be used directly. m4_define([_LT_DECL], [lt_if_append_uniq([lt_decl_varnames], [$2], [, ], [lt_dict_add_subkey([lt_decl_dict], [$2], [libtool_name], [m4_ifval([$1], [$1], [$2])]) lt_dict_add_subkey([lt_decl_dict], [$2], [value], [$3]) m4_ifval([$4], [lt_dict_add_subkey([lt_decl_dict], [$2], [description], [$4])]) lt_dict_add_subkey([lt_decl_dict], [$2], [tagged?], [m4_ifval([$5], [yes], [no])])]) ]) # _LT_TAGDECL([CONFIGNAME], VARNAME, VALUE, [DESCRIPTION]) # -------------------------------------------------------- m4_define([_LT_TAGDECL], [_LT_DECL([$1], [$2], [$3], [$4], [yes])]) # lt_decl_tag_varnames([SEPARATOR], [VARNAME1...]) # ------------------------------------------------ m4_define([lt_decl_tag_varnames], [_lt_decl_filter([tagged?], [yes], $@)]) # _lt_decl_filter(SUBKEY, VALUE, [SEPARATOR], [VARNAME1..]) # --------------------------------------------------------- m4_define([_lt_decl_filter], [m4_case([$#], [0], [m4_fatal([$0: too few arguments: $#])], [1], [m4_fatal([$0: too few arguments: $#: $1])], [2], [lt_dict_filter([lt_decl_dict], [$1], [$2], [], lt_decl_varnames)], [3], [lt_dict_filter([lt_decl_dict], [$1], [$2], [$3], lt_decl_varnames)], [lt_dict_filter([lt_decl_dict], $@)])[]dnl ]) # lt_decl_quote_varnames([SEPARATOR], [VARNAME1...]) # -------------------------------------------------- m4_define([lt_decl_quote_varnames], [_lt_decl_filter([value], [1], $@)]) # lt_decl_dquote_varnames([SEPARATOR], [VARNAME1...]) # --------------------------------------------------- m4_define([lt_decl_dquote_varnames], [_lt_decl_filter([value], [2], $@)]) # lt_decl_varnames_tagged([SEPARATOR], [VARNAME1...]) # --------------------------------------------------- m4_define([lt_decl_varnames_tagged], [m4_assert([$# <= 2])dnl _$0(m4_quote(m4_default([$1], [[, ]])), m4_ifval([$2], [[$2]], [m4_dquote(lt_decl_tag_varnames)]), m4_split(m4_normalize(m4_quote(_LT_TAGS)), [ ]))]) m4_define([_lt_decl_varnames_tagged], [m4_ifval([$3], [lt_combine([$1], [$2], [_], $3)])]) # lt_decl_all_varnames([SEPARATOR], [VARNAME1...]) # ------------------------------------------------ m4_define([lt_decl_all_varnames], [_$0(m4_quote(m4_default([$1], [[, ]])), m4_if([$2], [], m4_quote(lt_decl_varnames), m4_quote(m4_shift($@))))[]dnl ]) m4_define([_lt_decl_all_varnames], [lt_join($@, lt_decl_varnames_tagged([$1], lt_decl_tag_varnames([[, ]], m4_shift($@))))dnl ]) # _LT_CONFIG_STATUS_DECLARE([VARNAME]) # ------------------------------------ # Quote a variable value, and forward it to `config.status' so that its # declaration there will have the same value as in `configure'. VARNAME # must have a single quote delimited value for this to work. m4_define([_LT_CONFIG_STATUS_DECLARE], [$1='`$ECHO "$][$1" | $SED "$delay_single_quote_subst"`']) # _LT_CONFIG_STATUS_DECLARATIONS # ------------------------------ # We delimit libtool config variables with single quotes, so when # we write them to config.status, we have to be sure to quote all # embedded single quotes properly. In configure, this macro expands # each variable declared with _LT_DECL (and _LT_TAGDECL) into: # # ='`$ECHO "$" | $SED "$delay_single_quote_subst"`' m4_defun([_LT_CONFIG_STATUS_DECLARATIONS], [m4_foreach([_lt_var], m4_quote(lt_decl_all_varnames), [m4_n([_LT_CONFIG_STATUS_DECLARE(_lt_var)])])]) # _LT_LIBTOOL_TAGS # ---------------- # Output comment and list of tags supported by the script m4_defun([_LT_LIBTOOL_TAGS], [_LT_FORMAT_COMMENT([The names of the tagged configurations supported by this script])dnl available_tags="_LT_TAGS"dnl ]) # _LT_LIBTOOL_DECLARE(VARNAME, [TAG]) # ----------------------------------- # Extract the dictionary values for VARNAME (optionally with TAG) and # expand to a commented shell variable setting: # # # Some comment about what VAR is for. # visible_name=$lt_internal_name m4_define([_LT_LIBTOOL_DECLARE], [_LT_FORMAT_COMMENT(m4_quote(lt_dict_fetch([lt_decl_dict], [$1], [description])))[]dnl m4_pushdef([_libtool_name], m4_quote(lt_dict_fetch([lt_decl_dict], [$1], [libtool_name])))[]dnl m4_case(m4_quote(lt_dict_fetch([lt_decl_dict], [$1], [value])), [0], [_libtool_name=[$]$1], [1], [_libtool_name=$lt_[]$1], [2], [_libtool_name=$lt_[]$1], [_libtool_name=lt_dict_fetch([lt_decl_dict], [$1], [value])])[]dnl m4_ifval([$2], [_$2])[]m4_popdef([_libtool_name])[]dnl ]) # _LT_LIBTOOL_CONFIG_VARS # ----------------------- # Produce commented declarations of non-tagged libtool config variables # suitable for insertion in the LIBTOOL CONFIG section of the `libtool' # script. Tagged libtool config variables (even for the LIBTOOL CONFIG # section) are produced by _LT_LIBTOOL_TAG_VARS. m4_defun([_LT_LIBTOOL_CONFIG_VARS], [m4_foreach([_lt_var], m4_quote(_lt_decl_filter([tagged?], [no], [], lt_decl_varnames)), [m4_n([_LT_LIBTOOL_DECLARE(_lt_var)])])]) # _LT_LIBTOOL_TAG_VARS(TAG) # ------------------------- m4_define([_LT_LIBTOOL_TAG_VARS], [m4_foreach([_lt_var], m4_quote(lt_decl_tag_varnames), [m4_n([_LT_LIBTOOL_DECLARE(_lt_var, [$1])])])]) # _LT_TAGVAR(VARNAME, [TAGNAME]) # ------------------------------ m4_define([_LT_TAGVAR], [m4_ifval([$2], [$1_$2], [$1])]) # _LT_CONFIG_COMMANDS # ------------------- # Send accumulated output to $CONFIG_STATUS. Thanks to the lists of # variables for single and double quote escaping we saved from calls # to _LT_DECL, we can put quote escaped variables declarations # into `config.status', and then the shell code to quote escape them in # for loops in `config.status'. Finally, any additional code accumulated # from calls to _LT_CONFIG_LIBTOOL_INIT is expanded. m4_defun([_LT_CONFIG_COMMANDS], [AC_PROVIDE_IFELSE([LT_OUTPUT], dnl If the libtool generation code has been placed in $CONFIG_LT, dnl instead of duplicating it all over again into config.status, dnl then we will have config.status run $CONFIG_LT later, so it dnl needs to know what name is stored there: [AC_CONFIG_COMMANDS([libtool], [$SHELL $CONFIG_LT || AS_EXIT(1)], [CONFIG_LT='$CONFIG_LT'])], dnl If the libtool generation code is destined for config.status, dnl expand the accumulated commands and init code now: [AC_CONFIG_COMMANDS([libtool], [_LT_OUTPUT_LIBTOOL_COMMANDS], [_LT_OUTPUT_LIBTOOL_COMMANDS_INIT])]) ])#_LT_CONFIG_COMMANDS # Initialize. m4_define([_LT_OUTPUT_LIBTOOL_COMMANDS_INIT], [ # The HP-UX ksh and POSIX shell print the target directory to stdout # if CDPATH is set. (unset CDPATH) >/dev/null 2>&1 && unset CDPATH sed_quote_subst='$sed_quote_subst' double_quote_subst='$double_quote_subst' delay_variable_subst='$delay_variable_subst' _LT_CONFIG_STATUS_DECLARATIONS LTCC='$LTCC' LTCFLAGS='$LTCFLAGS' compiler='$compiler_DEFAULT' # A function that is used when there is no print builtin or printf. func_fallback_echo () { eval 'cat <<_LTECHO_EOF \$[]1 _LTECHO_EOF' } # Quote evaled strings. for var in lt_decl_all_varnames([[ \ ]], lt_decl_quote_varnames); do case \`eval \\\\\$ECHO \\\\""\\\\\$\$var"\\\\"\` in *[[\\\\\\\`\\"\\\$]]*) eval "lt_\$var=\\\\\\"\\\`\\\$ECHO \\"\\\$\$var\\" | \\\$SED \\"\\\$sed_quote_subst\\"\\\`\\\\\\"" ;; *) eval "lt_\$var=\\\\\\"\\\$\$var\\\\\\"" ;; esac done # Double-quote double-evaled strings. for var in lt_decl_all_varnames([[ \ ]], lt_decl_dquote_varnames); do case \`eval \\\\\$ECHO \\\\""\\\\\$\$var"\\\\"\` in *[[\\\\\\\`\\"\\\$]]*) eval "lt_\$var=\\\\\\"\\\`\\\$ECHO \\"\\\$\$var\\" | \\\$SED -e \\"\\\$double_quote_subst\\" -e \\"\\\$sed_quote_subst\\" -e \\"\\\$delay_variable_subst\\"\\\`\\\\\\"" ;; *) eval "lt_\$var=\\\\\\"\\\$\$var\\\\\\"" ;; esac done _LT_OUTPUT_LIBTOOL_INIT ]) # _LT_GENERATED_FILE_INIT(FILE, [COMMENT]) # ------------------------------------ # Generate a child script FILE with all initialization necessary to # reuse the environment learned by the parent script, and make the # file executable. If COMMENT is supplied, it is inserted after the # `#!' sequence but before initialization text begins. After this # macro, additional text can be appended to FILE to form the body of # the child script. The macro ends with non-zero status if the # file could not be fully written (such as if the disk is full). m4_ifdef([AS_INIT_GENERATED], [m4_defun([_LT_GENERATED_FILE_INIT],[AS_INIT_GENERATED($@)])], [m4_defun([_LT_GENERATED_FILE_INIT], [m4_require([AS_PREPARE])]dnl [m4_pushdef([AS_MESSAGE_LOG_FD])]dnl [lt_write_fail=0 cat >$1 <<_ASEOF || lt_write_fail=1 #! $SHELL # Generated by $as_me. $2 SHELL=\${CONFIG_SHELL-$SHELL} export SHELL _ASEOF cat >>$1 <<\_ASEOF || lt_write_fail=1 AS_SHELL_SANITIZE _AS_PREPARE exec AS_MESSAGE_FD>&1 _ASEOF test $lt_write_fail = 0 && chmod +x $1[]dnl m4_popdef([AS_MESSAGE_LOG_FD])])])# _LT_GENERATED_FILE_INIT # LT_OUTPUT # --------- # This macro allows early generation of the libtool script (before # AC_OUTPUT is called), incase it is used in configure for compilation # tests. AC_DEFUN([LT_OUTPUT], [: ${CONFIG_LT=./config.lt} AC_MSG_NOTICE([creating $CONFIG_LT]) _LT_GENERATED_FILE_INIT(["$CONFIG_LT"], [# Run this file to recreate a libtool stub with the current configuration.]) cat >>"$CONFIG_LT" <<\_LTEOF lt_cl_silent=false exec AS_MESSAGE_LOG_FD>>config.log { echo AS_BOX([Running $as_me.]) } >&AS_MESSAGE_LOG_FD lt_cl_help="\ \`$as_me' creates a local libtool stub from the current configuration, for use in further configure time tests before the real libtool is generated. Usage: $[0] [[OPTIONS]] -h, --help print this help, then exit -V, --version print version number, then exit -q, --quiet do not print progress messages -d, --debug don't remove temporary files Report bugs to ." lt_cl_version="\ m4_ifset([AC_PACKAGE_NAME], [AC_PACKAGE_NAME ])config.lt[]dnl m4_ifset([AC_PACKAGE_VERSION], [ AC_PACKAGE_VERSION]) configured by $[0], generated by m4_PACKAGE_STRING. Copyright (C) 2011 Free Software Foundation, Inc. This config.lt script is free software; the Free Software Foundation gives unlimited permision to copy, distribute and modify it." while test $[#] != 0 do case $[1] in --version | --v* | -V ) echo "$lt_cl_version"; exit 0 ;; --help | --h* | -h ) echo "$lt_cl_help"; exit 0 ;; --debug | --d* | -d ) debug=: ;; --quiet | --q* | --silent | --s* | -q ) lt_cl_silent=: ;; -*) AC_MSG_ERROR([unrecognized option: $[1] Try \`$[0] --help' for more information.]) ;; *) AC_MSG_ERROR([unrecognized argument: $[1] Try \`$[0] --help' for more information.]) ;; esac shift done if $lt_cl_silent; then exec AS_MESSAGE_FD>/dev/null fi _LTEOF cat >>"$CONFIG_LT" <<_LTEOF _LT_OUTPUT_LIBTOOL_COMMANDS_INIT _LTEOF cat >>"$CONFIG_LT" <<\_LTEOF AC_MSG_NOTICE([creating $ofile]) _LT_OUTPUT_LIBTOOL_COMMANDS AS_EXIT(0) _LTEOF chmod +x "$CONFIG_LT" # configure is writing to config.log, but config.lt does its own redirection, # appending to config.log, which fails on DOS, as config.log is still kept # open by configure. Here we exec the FD to /dev/null, effectively closing # config.log, so it can be properly (re)opened and appended to by config.lt. lt_cl_success=: test "$silent" = yes && lt_config_lt_args="$lt_config_lt_args --quiet" exec AS_MESSAGE_LOG_FD>/dev/null $SHELL "$CONFIG_LT" $lt_config_lt_args || lt_cl_success=false exec AS_MESSAGE_LOG_FD>>config.log $lt_cl_success || AS_EXIT(1) ])# LT_OUTPUT # _LT_CONFIG(TAG) # --------------- # If TAG is the built-in tag, create an initial libtool script with a # default configuration from the untagged config vars. Otherwise add code # to config.status for appending the configuration named by TAG from the # matching tagged config vars. m4_defun([_LT_CONFIG], [m4_require([_LT_FILEUTILS_DEFAULTS])dnl _LT_CONFIG_SAVE_COMMANDS([ m4_define([_LT_TAG], m4_if([$1], [], [C], [$1]))dnl m4_if(_LT_TAG, [C], [ # See if we are running on zsh, and set the options which allow our # commands through without removal of \ escapes. if test -n "${ZSH_VERSION+set}" ; then setopt NO_GLOB_SUBST fi cfgfile="${ofile}T" trap "$RM \"$cfgfile\"; exit 1" 1 2 15 $RM "$cfgfile" cat <<_LT_EOF >> "$cfgfile" #! $SHELL # `$ECHO "$ofile" | sed 's%^.*/%%'` - Provide generalized library-building support services. # Generated automatically by $as_me ($PACKAGE$TIMESTAMP) $VERSION # Libtool was configured on host `(hostname || uname -n) 2>/dev/null | sed 1q`: # NOTE: Changes made to this file will be lost: look at ltmain.sh. # _LT_COPYING _LT_LIBTOOL_TAGS # ### BEGIN LIBTOOL CONFIG _LT_LIBTOOL_CONFIG_VARS _LT_LIBTOOL_TAG_VARS # ### END LIBTOOL CONFIG _LT_EOF case $host_os in aix3*) cat <<\_LT_EOF >> "$cfgfile" # AIX sometimes has problems with the GCC collect2 program. For some # reason, if we set the COLLECT_NAMES environment variable, the problems # vanish in a puff of smoke. if test "X${COLLECT_NAMES+set}" != Xset; then COLLECT_NAMES= export COLLECT_NAMES fi _LT_EOF ;; esac _LT_PROG_LTMAIN # We use sed instead of cat because bash on DJGPP gets confused if # if finds mixed CR/LF and LF-only lines. Since sed operates in # text mode, it properly converts lines to CR/LF. This bash problem # is reportedly fixed, but why not run on old versions too? sed '$q' "$ltmain" >> "$cfgfile" \ || (rm -f "$cfgfile"; exit 1) _LT_PROG_REPLACE_SHELLFNS mv -f "$cfgfile" "$ofile" || (rm -f "$ofile" && cp "$cfgfile" "$ofile" && rm -f "$cfgfile") chmod +x "$ofile" ], [cat <<_LT_EOF >> "$ofile" dnl Unfortunately we have to use $1 here, since _LT_TAG is not expanded dnl in a comment (ie after a #). # ### BEGIN LIBTOOL TAG CONFIG: $1 _LT_LIBTOOL_TAG_VARS(_LT_TAG) # ### END LIBTOOL TAG CONFIG: $1 _LT_EOF ])dnl /m4_if ], [m4_if([$1], [], [ PACKAGE='$PACKAGE' VERSION='$VERSION' TIMESTAMP='$TIMESTAMP' RM='$RM' ofile='$ofile'], []) ])dnl /_LT_CONFIG_SAVE_COMMANDS ])# _LT_CONFIG # LT_SUPPORTED_TAG(TAG) # --------------------- # Trace this macro to discover what tags are supported by the libtool # --tag option, using: # autoconf --trace 'LT_SUPPORTED_TAG:$1' AC_DEFUN([LT_SUPPORTED_TAG], []) # C support is built-in for now m4_define([_LT_LANG_C_enabled], []) m4_define([_LT_TAGS], []) # LT_LANG(LANG) # ------------- # Enable libtool support for the given language if not already enabled. AC_DEFUN([LT_LANG], [AC_BEFORE([$0], [LT_OUTPUT])dnl m4_case([$1], [C], [_LT_LANG(C)], [C++], [_LT_LANG(CXX)], [Go], [_LT_LANG(GO)], [Java], [_LT_LANG(GCJ)], [Fortran 77], [_LT_LANG(F77)], [Fortran], [_LT_LANG(FC)], [Windows Resource], [_LT_LANG(RC)], [m4_ifdef([_LT_LANG_]$1[_CONFIG], [_LT_LANG($1)], [m4_fatal([$0: unsupported language: "$1"])])])dnl ])# LT_LANG # _LT_LANG(LANGNAME) # ------------------ m4_defun([_LT_LANG], [m4_ifdef([_LT_LANG_]$1[_enabled], [], [LT_SUPPORTED_TAG([$1])dnl m4_append([_LT_TAGS], [$1 ])dnl m4_define([_LT_LANG_]$1[_enabled], [])dnl _LT_LANG_$1_CONFIG($1)])dnl ])# _LT_LANG m4_ifndef([AC_PROG_GO], [ # NOTE: This macro has been submitted for inclusion into # # GNU Autoconf as AC_PROG_GO. When it is available in # # a released version of Autoconf we should remove this # # macro and use it instead. # m4_defun([AC_PROG_GO], [AC_LANG_PUSH(Go)dnl AC_ARG_VAR([GOC], [Go compiler command])dnl AC_ARG_VAR([GOFLAGS], [Go compiler flags])dnl _AC_ARG_VAR_LDFLAGS()dnl AC_CHECK_TOOL(GOC, gccgo) if test -z "$GOC"; then if test -n "$ac_tool_prefix"; then AC_CHECK_PROG(GOC, [${ac_tool_prefix}gccgo], [${ac_tool_prefix}gccgo]) fi fi if test -z "$GOC"; then AC_CHECK_PROG(GOC, gccgo, gccgo, false) fi ])#m4_defun ])#m4_ifndef # _LT_LANG_DEFAULT_CONFIG # ----------------------- m4_defun([_LT_LANG_DEFAULT_CONFIG], [AC_PROVIDE_IFELSE([AC_PROG_CXX], [LT_LANG(CXX)], [m4_define([AC_PROG_CXX], defn([AC_PROG_CXX])[LT_LANG(CXX)])]) AC_PROVIDE_IFELSE([AC_PROG_F77], [LT_LANG(F77)], [m4_define([AC_PROG_F77], defn([AC_PROG_F77])[LT_LANG(F77)])]) AC_PROVIDE_IFELSE([AC_PROG_FC], [LT_LANG(FC)], [m4_define([AC_PROG_FC], defn([AC_PROG_FC])[LT_LANG(FC)])]) dnl The call to [A][M_PROG_GCJ] is quoted like that to stop aclocal dnl pulling things in needlessly. AC_PROVIDE_IFELSE([AC_PROG_GCJ], [LT_LANG(GCJ)], [AC_PROVIDE_IFELSE([A][M_PROG_GCJ], [LT_LANG(GCJ)], [AC_PROVIDE_IFELSE([LT_PROG_GCJ], [LT_LANG(GCJ)], [m4_ifdef([AC_PROG_GCJ], [m4_define([AC_PROG_GCJ], defn([AC_PROG_GCJ])[LT_LANG(GCJ)])]) m4_ifdef([A][M_PROG_GCJ], [m4_define([A][M_PROG_GCJ], defn([A][M_PROG_GCJ])[LT_LANG(GCJ)])]) m4_ifdef([LT_PROG_GCJ], [m4_define([LT_PROG_GCJ], defn([LT_PROG_GCJ])[LT_LANG(GCJ)])])])])]) AC_PROVIDE_IFELSE([AC_PROG_GO], [LT_LANG(GO)], [m4_define([AC_PROG_GO], defn([AC_PROG_GO])[LT_LANG(GO)])]) AC_PROVIDE_IFELSE([LT_PROG_RC], [LT_LANG(RC)], [m4_define([LT_PROG_RC], defn([LT_PROG_RC])[LT_LANG(RC)])]) ])# _LT_LANG_DEFAULT_CONFIG # Obsolete macros: AU_DEFUN([AC_LIBTOOL_CXX], [LT_LANG(C++)]) AU_DEFUN([AC_LIBTOOL_F77], [LT_LANG(Fortran 77)]) AU_DEFUN([AC_LIBTOOL_FC], [LT_LANG(Fortran)]) AU_DEFUN([AC_LIBTOOL_GCJ], [LT_LANG(Java)]) AU_DEFUN([AC_LIBTOOL_RC], [LT_LANG(Windows Resource)]) dnl aclocal-1.4 backwards compatibility: dnl AC_DEFUN([AC_LIBTOOL_CXX], []) dnl AC_DEFUN([AC_LIBTOOL_F77], []) dnl AC_DEFUN([AC_LIBTOOL_FC], []) dnl AC_DEFUN([AC_LIBTOOL_GCJ], []) dnl AC_DEFUN([AC_LIBTOOL_RC], []) # _LT_TAG_COMPILER # ---------------- m4_defun([_LT_TAG_COMPILER], [AC_REQUIRE([AC_PROG_CC])dnl _LT_DECL([LTCC], [CC], [1], [A C compiler])dnl _LT_DECL([LTCFLAGS], [CFLAGS], [1], [LTCC compiler flags])dnl _LT_TAGDECL([CC], [compiler], [1], [A language specific compiler])dnl _LT_TAGDECL([with_gcc], [GCC], [0], [Is the compiler the GNU compiler?])dnl # If no C compiler was specified, use CC. LTCC=${LTCC-"$CC"} # If no C compiler flags were specified, use CFLAGS. LTCFLAGS=${LTCFLAGS-"$CFLAGS"} # Allow CC to be a program name with arguments. compiler=$CC ])# _LT_TAG_COMPILER # _LT_COMPILER_BOILERPLATE # ------------------------ # Check for compiler boilerplate output or warnings with # the simple compiler test code. m4_defun([_LT_COMPILER_BOILERPLATE], [m4_require([_LT_DECL_SED])dnl ac_outfile=conftest.$ac_objext echo "$lt_simple_compile_test_code" >conftest.$ac_ext eval "$ac_compile" 2>&1 >/dev/null | $SED '/^$/d; /^ *+/d' >conftest.err _lt_compiler_boilerplate=`cat conftest.err` $RM conftest* ])# _LT_COMPILER_BOILERPLATE # _LT_LINKER_BOILERPLATE # ---------------------- # Check for linker boilerplate output or warnings with # the simple link test code. m4_defun([_LT_LINKER_BOILERPLATE], [m4_require([_LT_DECL_SED])dnl ac_outfile=conftest.$ac_objext echo "$lt_simple_link_test_code" >conftest.$ac_ext eval "$ac_link" 2>&1 >/dev/null | $SED '/^$/d; /^ *+/d' >conftest.err _lt_linker_boilerplate=`cat conftest.err` $RM -r conftest* ])# _LT_LINKER_BOILERPLATE # _LT_REQUIRED_DARWIN_CHECKS # ------------------------- m4_defun_once([_LT_REQUIRED_DARWIN_CHECKS],[ case $host_os in rhapsody* | darwin*) AC_CHECK_TOOL([DSYMUTIL], [dsymutil], [:]) AC_CHECK_TOOL([NMEDIT], [nmedit], [:]) AC_CHECK_TOOL([LIPO], [lipo], [:]) AC_CHECK_TOOL([OTOOL], [otool], [:]) AC_CHECK_TOOL([OTOOL64], [otool64], [:]) _LT_DECL([], [DSYMUTIL], [1], [Tool to manipulate archived DWARF debug symbol files on Mac OS X]) _LT_DECL([], [NMEDIT], [1], [Tool to change global to local symbols on Mac OS X]) _LT_DECL([], [LIPO], [1], [Tool to manipulate fat objects and archives on Mac OS X]) _LT_DECL([], [OTOOL], [1], [ldd/readelf like tool for Mach-O binaries on Mac OS X]) _LT_DECL([], [OTOOL64], [1], [ldd/readelf like tool for 64 bit Mach-O binaries on Mac OS X 10.4]) AC_CACHE_CHECK([for -single_module linker flag],[lt_cv_apple_cc_single_mod], [lt_cv_apple_cc_single_mod=no if test -z "${LT_MULTI_MODULE}"; then # By default we will add the -single_module flag. You can override # by either setting the environment variable LT_MULTI_MODULE # non-empty at configure time, or by adding -multi_module to the # link flags. rm -rf libconftest.dylib* echo "int foo(void){return 1;}" > conftest.c echo "$LTCC $LTCFLAGS $LDFLAGS -o libconftest.dylib \ -dynamiclib -Wl,-single_module conftest.c" >&AS_MESSAGE_LOG_FD $LTCC $LTCFLAGS $LDFLAGS -o libconftest.dylib \ -dynamiclib -Wl,-single_module conftest.c 2>conftest.err _lt_result=$? # If there is a non-empty error log, and "single_module" # appears in it, assume the flag caused a linker warning if test -s conftest.err && $GREP single_module conftest.err; then cat conftest.err >&AS_MESSAGE_LOG_FD # Otherwise, if the output was created with a 0 exit code from # the compiler, it worked. elif test -f libconftest.dylib && test $_lt_result -eq 0; then lt_cv_apple_cc_single_mod=yes else cat conftest.err >&AS_MESSAGE_LOG_FD fi rm -rf libconftest.dylib* rm -f conftest.* fi]) AC_CACHE_CHECK([for -exported_symbols_list linker flag], [lt_cv_ld_exported_symbols_list], [lt_cv_ld_exported_symbols_list=no save_LDFLAGS=$LDFLAGS echo "_main" > conftest.sym LDFLAGS="$LDFLAGS -Wl,-exported_symbols_list,conftest.sym" AC_LINK_IFELSE([AC_LANG_PROGRAM([],[])], [lt_cv_ld_exported_symbols_list=yes], [lt_cv_ld_exported_symbols_list=no]) LDFLAGS="$save_LDFLAGS" ]) AC_CACHE_CHECK([for -force_load linker flag],[lt_cv_ld_force_load], [lt_cv_ld_force_load=no cat > conftest.c << _LT_EOF int forced_loaded() { return 2;} _LT_EOF echo "$LTCC $LTCFLAGS -c -o conftest.o conftest.c" >&AS_MESSAGE_LOG_FD $LTCC $LTCFLAGS -c -o conftest.o conftest.c 2>&AS_MESSAGE_LOG_FD echo "$AR cru libconftest.a conftest.o" >&AS_MESSAGE_LOG_FD $AR cru libconftest.a conftest.o 2>&AS_MESSAGE_LOG_FD echo "$RANLIB libconftest.a" >&AS_MESSAGE_LOG_FD $RANLIB libconftest.a 2>&AS_MESSAGE_LOG_FD cat > conftest.c << _LT_EOF int main() { return 0;} _LT_EOF echo "$LTCC $LTCFLAGS $LDFLAGS -o conftest conftest.c -Wl,-force_load,./libconftest.a" >&AS_MESSAGE_LOG_FD $LTCC $LTCFLAGS $LDFLAGS -o conftest conftest.c -Wl,-force_load,./libconftest.a 2>conftest.err _lt_result=$? if test -s conftest.err && $GREP force_load conftest.err; then cat conftest.err >&AS_MESSAGE_LOG_FD elif test -f conftest && test $_lt_result -eq 0 && $GREP forced_load conftest >/dev/null 2>&1 ; then lt_cv_ld_force_load=yes else cat conftest.err >&AS_MESSAGE_LOG_FD fi rm -f conftest.err libconftest.a conftest conftest.c rm -rf conftest.dSYM ]) case $host_os in rhapsody* | darwin1.[[012]]) _lt_dar_allow_undefined='${wl}-undefined ${wl}suppress' ;; darwin1.*) _lt_dar_allow_undefined='${wl}-flat_namespace ${wl}-undefined ${wl}suppress' ;; darwin*) # darwin 5.x on # if running on 10.5 or later, the deployment target defaults # to the OS version, if on x86, and 10.4, the deployment # target defaults to 10.4. Don't you love it? case ${MACOSX_DEPLOYMENT_TARGET-10.0},$host in 10.0,*86*-darwin8*|10.0,*-darwin[[91]]*) _lt_dar_allow_undefined='${wl}-undefined ${wl}dynamic_lookup' ;; 10.[[012]]*) _lt_dar_allow_undefined='${wl}-flat_namespace ${wl}-undefined ${wl}suppress' ;; 10.*) _lt_dar_allow_undefined='${wl}-undefined ${wl}dynamic_lookup' ;; esac ;; esac if test "$lt_cv_apple_cc_single_mod" = "yes"; then _lt_dar_single_mod='$single_module' fi if test "$lt_cv_ld_exported_symbols_list" = "yes"; then _lt_dar_export_syms=' ${wl}-exported_symbols_list,$output_objdir/${libname}-symbols.expsym' else _lt_dar_export_syms='~$NMEDIT -s $output_objdir/${libname}-symbols.expsym ${lib}' fi if test "$DSYMUTIL" != ":" && test "$lt_cv_ld_force_load" = "no"; then _lt_dsymutil='~$DSYMUTIL $lib || :' else _lt_dsymutil= fi ;; esac ]) # _LT_DARWIN_LINKER_FEATURES([TAG]) # --------------------------------- # Checks for linker and compiler features on darwin m4_defun([_LT_DARWIN_LINKER_FEATURES], [ m4_require([_LT_REQUIRED_DARWIN_CHECKS]) _LT_TAGVAR(archive_cmds_need_lc, $1)=no _LT_TAGVAR(hardcode_direct, $1)=no _LT_TAGVAR(hardcode_automatic, $1)=yes _LT_TAGVAR(hardcode_shlibpath_var, $1)=unsupported if test "$lt_cv_ld_force_load" = "yes"; then _LT_TAGVAR(whole_archive_flag_spec, $1)='`for conv in $convenience\"\"; do test -n \"$conv\" && new_convenience=\"$new_convenience ${wl}-force_load,$conv\"; done; func_echo_all \"$new_convenience\"`' m4_case([$1], [F77], [_LT_TAGVAR(compiler_needs_object, $1)=yes], [FC], [_LT_TAGVAR(compiler_needs_object, $1)=yes]) else _LT_TAGVAR(whole_archive_flag_spec, $1)='' fi _LT_TAGVAR(link_all_deplibs, $1)=yes _LT_TAGVAR(allow_undefined_flag, $1)="$_lt_dar_allow_undefined" case $cc_basename in ifort*) _lt_dar_can_shared=yes ;; *) _lt_dar_can_shared=$GCC ;; esac if test "$_lt_dar_can_shared" = "yes"; then output_verbose_link_cmd=func_echo_all _LT_TAGVAR(archive_cmds, $1)="\$CC -dynamiclib \$allow_undefined_flag -o \$lib \$libobjs \$deplibs \$compiler_flags -install_name \$rpath/\$soname \$verstring $_lt_dar_single_mod${_lt_dsymutil}" _LT_TAGVAR(module_cmds, $1)="\$CC \$allow_undefined_flag -o \$lib -bundle \$libobjs \$deplibs \$compiler_flags${_lt_dsymutil}" _LT_TAGVAR(archive_expsym_cmds, $1)="sed 's,^,_,' < \$export_symbols > \$output_objdir/\${libname}-symbols.expsym~\$CC -dynamiclib \$allow_undefined_flag -o \$lib \$libobjs \$deplibs \$compiler_flags -install_name \$rpath/\$soname \$verstring ${_lt_dar_single_mod}${_lt_dar_export_syms}${_lt_dsymutil}" _LT_TAGVAR(module_expsym_cmds, $1)="sed -e 's,^,_,' < \$export_symbols > \$output_objdir/\${libname}-symbols.expsym~\$CC \$allow_undefined_flag -o \$lib -bundle \$libobjs \$deplibs \$compiler_flags${_lt_dar_export_syms}${_lt_dsymutil}" m4_if([$1], [CXX], [ if test "$lt_cv_apple_cc_single_mod" != "yes"; then _LT_TAGVAR(archive_cmds, $1)="\$CC -r -keep_private_externs -nostdlib -o \${lib}-master.o \$libobjs~\$CC -dynamiclib \$allow_undefined_flag -o \$lib \${lib}-master.o \$deplibs \$compiler_flags -install_name \$rpath/\$soname \$verstring${_lt_dsymutil}" _LT_TAGVAR(archive_expsym_cmds, $1)="sed 's,^,_,' < \$export_symbols > \$output_objdir/\${libname}-symbols.expsym~\$CC -r -keep_private_externs -nostdlib -o \${lib}-master.o \$libobjs~\$CC -dynamiclib \$allow_undefined_flag -o \$lib \${lib}-master.o \$deplibs \$compiler_flags -install_name \$rpath/\$soname \$verstring${_lt_dar_export_syms}${_lt_dsymutil}" fi ],[]) else _LT_TAGVAR(ld_shlibs, $1)=no fi ]) # _LT_SYS_MODULE_PATH_AIX([TAGNAME]) # ---------------------------------- # Links a minimal program and checks the executable # for the system default hardcoded library path. In most cases, # this is /usr/lib:/lib, but when the MPI compilers are used # the location of the communication and MPI libs are included too. # If we don't find anything, use the default library path according # to the aix ld manual. # Store the results from the different compilers for each TAGNAME. # Allow to override them for all tags through lt_cv_aix_libpath. m4_defun([_LT_SYS_MODULE_PATH_AIX], [m4_require([_LT_DECL_SED])dnl if test "${lt_cv_aix_libpath+set}" = set; then aix_libpath=$lt_cv_aix_libpath else AC_CACHE_VAL([_LT_TAGVAR([lt_cv_aix_libpath_], [$1])], [AC_LINK_IFELSE([AC_LANG_PROGRAM],[ lt_aix_libpath_sed='[ /Import File Strings/,/^$/ { /^0/ { s/^0 *\([^ ]*\) *$/\1/ p } }]' _LT_TAGVAR([lt_cv_aix_libpath_], [$1])=`dump -H conftest$ac_exeext 2>/dev/null | $SED -n -e "$lt_aix_libpath_sed"` # Check for a 64-bit object if we didn't find anything. if test -z "$_LT_TAGVAR([lt_cv_aix_libpath_], [$1])"; then _LT_TAGVAR([lt_cv_aix_libpath_], [$1])=`dump -HX64 conftest$ac_exeext 2>/dev/null | $SED -n -e "$lt_aix_libpath_sed"` fi],[]) if test -z "$_LT_TAGVAR([lt_cv_aix_libpath_], [$1])"; then _LT_TAGVAR([lt_cv_aix_libpath_], [$1])="/usr/lib:/lib" fi ]) aix_libpath=$_LT_TAGVAR([lt_cv_aix_libpath_], [$1]) fi ])# _LT_SYS_MODULE_PATH_AIX # _LT_SHELL_INIT(ARG) # ------------------- m4_define([_LT_SHELL_INIT], [m4_divert_text([M4SH-INIT], [$1 ])])# _LT_SHELL_INIT # _LT_PROG_ECHO_BACKSLASH # ----------------------- # Find how we can fake an echo command that does not interpret backslash. # In particular, with Autoconf 2.60 or later we add some code to the start # of the generated configure script which will find a shell with a builtin # printf (which we can use as an echo command). m4_defun([_LT_PROG_ECHO_BACKSLASH], [ECHO='\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\' ECHO=$ECHO$ECHO$ECHO$ECHO$ECHO ECHO=$ECHO$ECHO$ECHO$ECHO$ECHO$ECHO AC_MSG_CHECKING([how to print strings]) # Test print first, because it will be a builtin if present. if test "X`( print -r -- -n ) 2>/dev/null`" = X-n && \ test "X`print -r -- $ECHO 2>/dev/null`" = "X$ECHO"; then ECHO='print -r --' elif test "X`printf %s $ECHO 2>/dev/null`" = "X$ECHO"; then ECHO='printf %s\n' else # Use this function as a fallback that always works. func_fallback_echo () { eval 'cat <<_LTECHO_EOF $[]1 _LTECHO_EOF' } ECHO='func_fallback_echo' fi # func_echo_all arg... # Invoke $ECHO with all args, space-separated. func_echo_all () { $ECHO "$*" } case "$ECHO" in printf*) AC_MSG_RESULT([printf]) ;; print*) AC_MSG_RESULT([print -r]) ;; *) AC_MSG_RESULT([cat]) ;; esac m4_ifdef([_AS_DETECT_SUGGESTED], [_AS_DETECT_SUGGESTED([ test -n "${ZSH_VERSION+set}${BASH_VERSION+set}" || ( ECHO='\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\' ECHO=$ECHO$ECHO$ECHO$ECHO$ECHO ECHO=$ECHO$ECHO$ECHO$ECHO$ECHO$ECHO PATH=/empty FPATH=/empty; export PATH FPATH test "X`printf %s $ECHO`" = "X$ECHO" \ || test "X`print -r -- $ECHO`" = "X$ECHO" )])]) _LT_DECL([], [SHELL], [1], [Shell to use when invoking shell scripts]) _LT_DECL([], [ECHO], [1], [An echo program that protects backslashes]) ])# _LT_PROG_ECHO_BACKSLASH # _LT_WITH_SYSROOT # ---------------- AC_DEFUN([_LT_WITH_SYSROOT], [AC_MSG_CHECKING([for sysroot]) AC_ARG_WITH([sysroot], [ --with-sysroot[=DIR] Search for dependent libraries within DIR (or the compiler's sysroot if not specified).], [], [with_sysroot=no]) dnl lt_sysroot will always be passed unquoted. We quote it here dnl in case the user passed a directory name. lt_sysroot= case ${with_sysroot} in #( yes) if test "$GCC" = yes; then lt_sysroot=`$CC --print-sysroot 2>/dev/null` fi ;; #( /*) lt_sysroot=`echo "$with_sysroot" | sed -e "$sed_quote_subst"` ;; #( no|'') ;; #( *) AC_MSG_RESULT([${with_sysroot}]) AC_MSG_ERROR([The sysroot must be an absolute path.]) ;; esac AC_MSG_RESULT([${lt_sysroot:-no}]) _LT_DECL([], [lt_sysroot], [0], [The root where to search for ]dnl [dependent libraries, and in which our libraries should be installed.])]) # _LT_ENABLE_LOCK # --------------- m4_defun([_LT_ENABLE_LOCK], [AC_ARG_ENABLE([libtool-lock], [AS_HELP_STRING([--disable-libtool-lock], [avoid locking (might break parallel builds)])]) test "x$enable_libtool_lock" != xno && enable_libtool_lock=yes # Some flags need to be propagated to the compiler or linker for good # libtool support. case $host in ia64-*-hpux*) # Find out which ABI we are using. echo 'int i;' > conftest.$ac_ext if AC_TRY_EVAL(ac_compile); then case `/usr/bin/file conftest.$ac_objext` in *ELF-32*) HPUX_IA64_MODE="32" ;; *ELF-64*) HPUX_IA64_MODE="64" ;; esac fi rm -rf conftest* ;; *-*-irix6*) # Find out which ABI we are using. echo '[#]line '$LINENO' "configure"' > conftest.$ac_ext if AC_TRY_EVAL(ac_compile); then if test "$lt_cv_prog_gnu_ld" = yes; then case `/usr/bin/file conftest.$ac_objext` in *32-bit*) LD="${LD-ld} -melf32bsmip" ;; *N32*) LD="${LD-ld} -melf32bmipn32" ;; *64-bit*) LD="${LD-ld} -melf64bmip" ;; esac else case `/usr/bin/file conftest.$ac_objext` in *32-bit*) LD="${LD-ld} -32" ;; *N32*) LD="${LD-ld} -n32" ;; *64-bit*) LD="${LD-ld} -64" ;; esac fi fi rm -rf conftest* ;; x86_64-*kfreebsd*-gnu|x86_64-*linux*|ppc*-*linux*|powerpc*-*linux*| \ s390*-*linux*|s390*-*tpf*|sparc*-*linux*) # Find out which ABI we are using. echo 'int i;' > conftest.$ac_ext if AC_TRY_EVAL(ac_compile); then case `/usr/bin/file conftest.o` in *32-bit*) case $host in x86_64-*kfreebsd*-gnu) LD="${LD-ld} -m elf_i386_fbsd" ;; x86_64-*linux*) LD="${LD-ld} -m elf_i386" ;; ppc64-*linux*|powerpc64-*linux*) LD="${LD-ld} -m elf32ppclinux" ;; s390x-*linux*) LD="${LD-ld} -m elf_s390" ;; sparc64-*linux*) LD="${LD-ld} -m elf32_sparc" ;; esac ;; *64-bit*) case $host in x86_64-*kfreebsd*-gnu) LD="${LD-ld} -m elf_x86_64_fbsd" ;; x86_64-*linux*) LD="${LD-ld} -m elf_x86_64" ;; ppc*-*linux*|powerpc*-*linux*) LD="${LD-ld} -m elf64ppc" ;; s390*-*linux*|s390*-*tpf*) LD="${LD-ld} -m elf64_s390" ;; sparc*-*linux*) LD="${LD-ld} -m elf64_sparc" ;; esac ;; esac fi rm -rf conftest* ;; *-*-sco3.2v5*) # On SCO OpenServer 5, we need -belf to get full-featured binaries. SAVE_CFLAGS="$CFLAGS" CFLAGS="$CFLAGS -belf" AC_CACHE_CHECK([whether the C compiler needs -belf], lt_cv_cc_needs_belf, [AC_LANG_PUSH(C) AC_LINK_IFELSE([AC_LANG_PROGRAM([[]],[[]])],[lt_cv_cc_needs_belf=yes],[lt_cv_cc_needs_belf=no]) AC_LANG_POP]) if test x"$lt_cv_cc_needs_belf" != x"yes"; then # this is probably gcc 2.8.0, egcs 1.0 or newer; no need for -belf CFLAGS="$SAVE_CFLAGS" fi ;; *-*solaris*) # Find out which ABI we are using. echo 'int i;' > conftest.$ac_ext if AC_TRY_EVAL(ac_compile); then case `/usr/bin/file conftest.o` in *64-bit*) case $lt_cv_prog_gnu_ld in yes*) case $host in i?86-*-solaris*) LD="${LD-ld} -m elf_x86_64" ;; sparc*-*-solaris*) LD="${LD-ld} -m elf64_sparc" ;; esac # GNU ld 2.21 introduced _sol2 emulations. Use them if available. if ${LD-ld} -V | grep _sol2 >/dev/null 2>&1; then LD="${LD-ld}_sol2" fi ;; *) if ${LD-ld} -64 -r -o conftest2.o conftest.o >/dev/null 2>&1; then LD="${LD-ld} -64" fi ;; esac ;; esac fi rm -rf conftest* ;; esac need_locks="$enable_libtool_lock" ])# _LT_ENABLE_LOCK # _LT_PROG_AR # ----------- m4_defun([_LT_PROG_AR], [AC_CHECK_TOOLS(AR, [ar], false) : ${AR=ar} : ${AR_FLAGS=cru} _LT_DECL([], [AR], [1], [The archiver]) _LT_DECL([], [AR_FLAGS], [1], [Flags to create an archive]) AC_CACHE_CHECK([for archiver @FILE support], [lt_cv_ar_at_file], [lt_cv_ar_at_file=no AC_COMPILE_IFELSE([AC_LANG_PROGRAM], [echo conftest.$ac_objext > conftest.lst lt_ar_try='$AR $AR_FLAGS libconftest.a @conftest.lst >&AS_MESSAGE_LOG_FD' AC_TRY_EVAL([lt_ar_try]) if test "$ac_status" -eq 0; then # Ensure the archiver fails upon bogus file names. rm -f conftest.$ac_objext libconftest.a AC_TRY_EVAL([lt_ar_try]) if test "$ac_status" -ne 0; then lt_cv_ar_at_file=@ fi fi rm -f conftest.* libconftest.a ]) ]) if test "x$lt_cv_ar_at_file" = xno; then archiver_list_spec= else archiver_list_spec=$lt_cv_ar_at_file fi _LT_DECL([], [archiver_list_spec], [1], [How to feed a file listing to the archiver]) ])# _LT_PROG_AR # _LT_CMD_OLD_ARCHIVE # ------------------- m4_defun([_LT_CMD_OLD_ARCHIVE], [_LT_PROG_AR AC_CHECK_TOOL(STRIP, strip, :) test -z "$STRIP" && STRIP=: _LT_DECL([], [STRIP], [1], [A symbol stripping program]) AC_CHECK_TOOL(RANLIB, ranlib, :) test -z "$RANLIB" && RANLIB=: _LT_DECL([], [RANLIB], [1], [Commands used to install an old-style archive]) # Determine commands to create old-style static archives. old_archive_cmds='$AR $AR_FLAGS $oldlib$oldobjs' old_postinstall_cmds='chmod 644 $oldlib' old_postuninstall_cmds= if test -n "$RANLIB"; then case $host_os in openbsd*) old_postinstall_cmds="$old_postinstall_cmds~\$RANLIB -t \$tool_oldlib" ;; *) old_postinstall_cmds="$old_postinstall_cmds~\$RANLIB \$tool_oldlib" ;; esac old_archive_cmds="$old_archive_cmds~\$RANLIB \$tool_oldlib" fi case $host_os in darwin*) lock_old_archive_extraction=yes ;; *) lock_old_archive_extraction=no ;; esac _LT_DECL([], [old_postinstall_cmds], [2]) _LT_DECL([], [old_postuninstall_cmds], [2]) _LT_TAGDECL([], [old_archive_cmds], [2], [Commands used to build an old-style archive]) _LT_DECL([], [lock_old_archive_extraction], [0], [Whether to use a lock for old archive extraction]) ])# _LT_CMD_OLD_ARCHIVE # _LT_COMPILER_OPTION(MESSAGE, VARIABLE-NAME, FLAGS, # [OUTPUT-FILE], [ACTION-SUCCESS], [ACTION-FAILURE]) # ---------------------------------------------------------------- # Check whether the given compiler option works AC_DEFUN([_LT_COMPILER_OPTION], [m4_require([_LT_FILEUTILS_DEFAULTS])dnl m4_require([_LT_DECL_SED])dnl AC_CACHE_CHECK([$1], [$2], [$2=no m4_if([$4], , [ac_outfile=conftest.$ac_objext], [ac_outfile=$4]) echo "$lt_simple_compile_test_code" > conftest.$ac_ext lt_compiler_flag="$3" # Insert the option either (1) after the last *FLAGS variable, or # (2) before a word containing "conftest.", or (3) at the end. # Note that $ac_compile itself does not contain backslashes and begins # with a dollar sign (not a hyphen), so the echo should work correctly. # The option is referenced via a variable to avoid confusing sed. lt_compile=`echo "$ac_compile" | $SED \ -e 's:.*FLAGS}\{0,1\} :&$lt_compiler_flag :; t' \ -e 's: [[^ ]]*conftest\.: $lt_compiler_flag&:; t' \ -e 's:$: $lt_compiler_flag:'` (eval echo "\"\$as_me:$LINENO: $lt_compile\"" >&AS_MESSAGE_LOG_FD) (eval "$lt_compile" 2>conftest.err) ac_status=$? cat conftest.err >&AS_MESSAGE_LOG_FD echo "$as_me:$LINENO: \$? = $ac_status" >&AS_MESSAGE_LOG_FD if (exit $ac_status) && test -s "$ac_outfile"; then # The compiler can only warn and ignore the option if not recognized # So say no if there are warnings other than the usual output. $ECHO "$_lt_compiler_boilerplate" | $SED '/^$/d' >conftest.exp $SED '/^$/d; /^ *+/d' conftest.err >conftest.er2 if test ! -s conftest.er2 || diff conftest.exp conftest.er2 >/dev/null; then $2=yes fi fi $RM conftest* ]) if test x"[$]$2" = xyes; then m4_if([$5], , :, [$5]) else m4_if([$6], , :, [$6]) fi ])# _LT_COMPILER_OPTION # Old name: AU_ALIAS([AC_LIBTOOL_COMPILER_OPTION], [_LT_COMPILER_OPTION]) dnl aclocal-1.4 backwards compatibility: dnl AC_DEFUN([AC_LIBTOOL_COMPILER_OPTION], []) # _LT_LINKER_OPTION(MESSAGE, VARIABLE-NAME, FLAGS, # [ACTION-SUCCESS], [ACTION-FAILURE]) # ---------------------------------------------------- # Check whether the given linker option works AC_DEFUN([_LT_LINKER_OPTION], [m4_require([_LT_FILEUTILS_DEFAULTS])dnl m4_require([_LT_DECL_SED])dnl AC_CACHE_CHECK([$1], [$2], [$2=no save_LDFLAGS="$LDFLAGS" LDFLAGS="$LDFLAGS $3" echo "$lt_simple_link_test_code" > conftest.$ac_ext if (eval $ac_link 2>conftest.err) && test -s conftest$ac_exeext; then # The linker can only warn and ignore the option if not recognized # So say no if there are warnings if test -s conftest.err; then # Append any errors to the config.log. cat conftest.err 1>&AS_MESSAGE_LOG_FD $ECHO "$_lt_linker_boilerplate" | $SED '/^$/d' > conftest.exp $SED '/^$/d; /^ *+/d' conftest.err >conftest.er2 if diff conftest.exp conftest.er2 >/dev/null; then $2=yes fi else $2=yes fi fi $RM -r conftest* LDFLAGS="$save_LDFLAGS" ]) if test x"[$]$2" = xyes; then m4_if([$4], , :, [$4]) else m4_if([$5], , :, [$5]) fi ])# _LT_LINKER_OPTION # Old name: AU_ALIAS([AC_LIBTOOL_LINKER_OPTION], [_LT_LINKER_OPTION]) dnl aclocal-1.4 backwards compatibility: dnl AC_DEFUN([AC_LIBTOOL_LINKER_OPTION], []) # LT_CMD_MAX_LEN #--------------- AC_DEFUN([LT_CMD_MAX_LEN], [AC_REQUIRE([AC_CANONICAL_HOST])dnl # find the maximum length of command line arguments AC_MSG_CHECKING([the maximum length of command line arguments]) AC_CACHE_VAL([lt_cv_sys_max_cmd_len], [dnl i=0 teststring="ABCD" case $build_os in msdosdjgpp*) # On DJGPP, this test can blow up pretty badly due to problems in libc # (any single argument exceeding 2000 bytes causes a buffer overrun # during glob expansion). Even if it were fixed, the result of this # check would be larger than it should be. lt_cv_sys_max_cmd_len=12288; # 12K is about right ;; gnu*) # Under GNU Hurd, this test is not required because there is # no limit to the length of command line arguments. # Libtool will interpret -1 as no limit whatsoever lt_cv_sys_max_cmd_len=-1; ;; cygwin* | mingw* | cegcc*) # On Win9x/ME, this test blows up -- it succeeds, but takes # about 5 minutes as the teststring grows exponentially. # Worse, since 9x/ME are not pre-emptively multitasking, # you end up with a "frozen" computer, even though with patience # the test eventually succeeds (with a max line length of 256k). # Instead, let's just punt: use the minimum linelength reported by # all of the supported platforms: 8192 (on NT/2K/XP). lt_cv_sys_max_cmd_len=8192; ;; mint*) # On MiNT this can take a long time and run out of memory. lt_cv_sys_max_cmd_len=8192; ;; amigaos*) # On AmigaOS with pdksh, this test takes hours, literally. # So we just punt and use a minimum line length of 8192. lt_cv_sys_max_cmd_len=8192; ;; netbsd* | freebsd* | openbsd* | darwin* | dragonfly*) # This has been around since 386BSD, at least. Likely further. if test -x /sbin/sysctl; then lt_cv_sys_max_cmd_len=`/sbin/sysctl -n kern.argmax` elif test -x /usr/sbin/sysctl; then lt_cv_sys_max_cmd_len=`/usr/sbin/sysctl -n kern.argmax` else lt_cv_sys_max_cmd_len=65536 # usable default for all BSDs fi # And add a safety zone lt_cv_sys_max_cmd_len=`expr $lt_cv_sys_max_cmd_len \/ 4` lt_cv_sys_max_cmd_len=`expr $lt_cv_sys_max_cmd_len \* 3` ;; interix*) # We know the value 262144 and hardcode it with a safety zone (like BSD) lt_cv_sys_max_cmd_len=196608 ;; os2*) # The test takes a long time on OS/2. lt_cv_sys_max_cmd_len=8192 ;; osf*) # Dr. Hans Ekkehard Plesser reports seeing a kernel panic running configure # due to this test when exec_disable_arg_limit is 1 on Tru64. It is not # nice to cause kernel panics so lets avoid the loop below. # First set a reasonable default. lt_cv_sys_max_cmd_len=16384 # if test -x /sbin/sysconfig; then case `/sbin/sysconfig -q proc exec_disable_arg_limit` in *1*) lt_cv_sys_max_cmd_len=-1 ;; esac fi ;; sco3.2v5*) lt_cv_sys_max_cmd_len=102400 ;; sysv5* | sco5v6* | sysv4.2uw2*) kargmax=`grep ARG_MAX /etc/conf/cf.d/stune 2>/dev/null` if test -n "$kargmax"; then lt_cv_sys_max_cmd_len=`echo $kargmax | sed 's/.*[[ ]]//'` else lt_cv_sys_max_cmd_len=32768 fi ;; *) lt_cv_sys_max_cmd_len=`(getconf ARG_MAX) 2> /dev/null` if test -n "$lt_cv_sys_max_cmd_len"; then lt_cv_sys_max_cmd_len=`expr $lt_cv_sys_max_cmd_len \/ 4` lt_cv_sys_max_cmd_len=`expr $lt_cv_sys_max_cmd_len \* 3` else # Make teststring a little bigger before we do anything with it. # a 1K string should be a reasonable start. for i in 1 2 3 4 5 6 7 8 ; do teststring=$teststring$teststring done SHELL=${SHELL-${CONFIG_SHELL-/bin/sh}} # If test is not a shell built-in, we'll probably end up computing a # maximum length that is only half of the actual maximum length, but # we can't tell. while { test "X"`env echo "$teststring$teststring" 2>/dev/null` \ = "X$teststring$teststring"; } >/dev/null 2>&1 && test $i != 17 # 1/2 MB should be enough do i=`expr $i + 1` teststring=$teststring$teststring done # Only check the string length outside the loop. lt_cv_sys_max_cmd_len=`expr "X$teststring" : ".*" 2>&1` teststring= # Add a significant safety factor because C++ compilers can tack on # massive amounts of additional arguments before passing them to the # linker. It appears as though 1/2 is a usable value. lt_cv_sys_max_cmd_len=`expr $lt_cv_sys_max_cmd_len \/ 2` fi ;; esac ]) if test -n $lt_cv_sys_max_cmd_len ; then AC_MSG_RESULT($lt_cv_sys_max_cmd_len) else AC_MSG_RESULT(none) fi max_cmd_len=$lt_cv_sys_max_cmd_len _LT_DECL([], [max_cmd_len], [0], [What is the maximum length of a command?]) ])# LT_CMD_MAX_LEN # Old name: AU_ALIAS([AC_LIBTOOL_SYS_MAX_CMD_LEN], [LT_CMD_MAX_LEN]) dnl aclocal-1.4 backwards compatibility: dnl AC_DEFUN([AC_LIBTOOL_SYS_MAX_CMD_LEN], []) # _LT_HEADER_DLFCN # ---------------- m4_defun([_LT_HEADER_DLFCN], [AC_CHECK_HEADERS([dlfcn.h], [], [], [AC_INCLUDES_DEFAULT])dnl ])# _LT_HEADER_DLFCN # _LT_TRY_DLOPEN_SELF (ACTION-IF-TRUE, ACTION-IF-TRUE-W-USCORE, # ACTION-IF-FALSE, ACTION-IF-CROSS-COMPILING) # ---------------------------------------------------------------- m4_defun([_LT_TRY_DLOPEN_SELF], [m4_require([_LT_HEADER_DLFCN])dnl if test "$cross_compiling" = yes; then : [$4] else lt_dlunknown=0; lt_dlno_uscore=1; lt_dlneed_uscore=2 lt_status=$lt_dlunknown cat > conftest.$ac_ext <<_LT_EOF [#line $LINENO "configure" #include "confdefs.h" #if HAVE_DLFCN_H #include #endif #include #ifdef RTLD_GLOBAL # define LT_DLGLOBAL RTLD_GLOBAL #else # ifdef DL_GLOBAL # define LT_DLGLOBAL DL_GLOBAL # else # define LT_DLGLOBAL 0 # endif #endif /* We may have to define LT_DLLAZY_OR_NOW in the command line if we find out it does not work in some platform. */ #ifndef LT_DLLAZY_OR_NOW # ifdef RTLD_LAZY # define LT_DLLAZY_OR_NOW RTLD_LAZY # else # ifdef DL_LAZY # define LT_DLLAZY_OR_NOW DL_LAZY # else # ifdef RTLD_NOW # define LT_DLLAZY_OR_NOW RTLD_NOW # else # ifdef DL_NOW # define LT_DLLAZY_OR_NOW DL_NOW # else # define LT_DLLAZY_OR_NOW 0 # endif # endif # endif # endif #endif /* When -fvisbility=hidden is used, assume the code has been annotated correspondingly for the symbols needed. */ #if defined(__GNUC__) && (((__GNUC__ == 3) && (__GNUC_MINOR__ >= 3)) || (__GNUC__ > 3)) int fnord () __attribute__((visibility("default"))); #endif int fnord () { return 42; } int main () { void *self = dlopen (0, LT_DLGLOBAL|LT_DLLAZY_OR_NOW); int status = $lt_dlunknown; if (self) { if (dlsym (self,"fnord")) status = $lt_dlno_uscore; else { if (dlsym( self,"_fnord")) status = $lt_dlneed_uscore; else puts (dlerror ()); } /* dlclose (self); */ } else puts (dlerror ()); return status; }] _LT_EOF if AC_TRY_EVAL(ac_link) && test -s conftest${ac_exeext} 2>/dev/null; then (./conftest; exit; ) >&AS_MESSAGE_LOG_FD 2>/dev/null lt_status=$? case x$lt_status in x$lt_dlno_uscore) $1 ;; x$lt_dlneed_uscore) $2 ;; x$lt_dlunknown|x*) $3 ;; esac else : # compilation failed $3 fi fi rm -fr conftest* ])# _LT_TRY_DLOPEN_SELF # LT_SYS_DLOPEN_SELF # ------------------ AC_DEFUN([LT_SYS_DLOPEN_SELF], [m4_require([_LT_HEADER_DLFCN])dnl if test "x$enable_dlopen" != xyes; then enable_dlopen=unknown enable_dlopen_self=unknown enable_dlopen_self_static=unknown else lt_cv_dlopen=no lt_cv_dlopen_libs= case $host_os in beos*) lt_cv_dlopen="load_add_on" lt_cv_dlopen_libs= lt_cv_dlopen_self=yes ;; mingw* | pw32* | cegcc*) lt_cv_dlopen="LoadLibrary" lt_cv_dlopen_libs= ;; cygwin*) lt_cv_dlopen="dlopen" lt_cv_dlopen_libs= ;; darwin*) # if libdl is installed we need to link against it AC_CHECK_LIB([dl], [dlopen], [lt_cv_dlopen="dlopen" lt_cv_dlopen_libs="-ldl"],[ lt_cv_dlopen="dyld" lt_cv_dlopen_libs= lt_cv_dlopen_self=yes ]) ;; *) AC_CHECK_FUNC([shl_load], [lt_cv_dlopen="shl_load"], [AC_CHECK_LIB([dld], [shl_load], [lt_cv_dlopen="shl_load" lt_cv_dlopen_libs="-ldld"], [AC_CHECK_FUNC([dlopen], [lt_cv_dlopen="dlopen"], [AC_CHECK_LIB([dl], [dlopen], [lt_cv_dlopen="dlopen" lt_cv_dlopen_libs="-ldl"], [AC_CHECK_LIB([svld], [dlopen], [lt_cv_dlopen="dlopen" lt_cv_dlopen_libs="-lsvld"], [AC_CHECK_LIB([dld], [dld_link], [lt_cv_dlopen="dld_link" lt_cv_dlopen_libs="-ldld"]) ]) ]) ]) ]) ]) ;; esac if test "x$lt_cv_dlopen" != xno; then enable_dlopen=yes else enable_dlopen=no fi case $lt_cv_dlopen in dlopen) save_CPPFLAGS="$CPPFLAGS" test "x$ac_cv_header_dlfcn_h" = xyes && CPPFLAGS="$CPPFLAGS -DHAVE_DLFCN_H" save_LDFLAGS="$LDFLAGS" wl=$lt_prog_compiler_wl eval LDFLAGS=\"\$LDFLAGS $export_dynamic_flag_spec\" save_LIBS="$LIBS" LIBS="$lt_cv_dlopen_libs $LIBS" AC_CACHE_CHECK([whether a program can dlopen itself], lt_cv_dlopen_self, [dnl _LT_TRY_DLOPEN_SELF( lt_cv_dlopen_self=yes, lt_cv_dlopen_self=yes, lt_cv_dlopen_self=no, lt_cv_dlopen_self=cross) ]) if test "x$lt_cv_dlopen_self" = xyes; then wl=$lt_prog_compiler_wl eval LDFLAGS=\"\$LDFLAGS $lt_prog_compiler_static\" AC_CACHE_CHECK([whether a statically linked program can dlopen itself], lt_cv_dlopen_self_static, [dnl _LT_TRY_DLOPEN_SELF( lt_cv_dlopen_self_static=yes, lt_cv_dlopen_self_static=yes, lt_cv_dlopen_self_static=no, lt_cv_dlopen_self_static=cross) ]) fi CPPFLAGS="$save_CPPFLAGS" LDFLAGS="$save_LDFLAGS" LIBS="$save_LIBS" ;; esac case $lt_cv_dlopen_self in yes|no) enable_dlopen_self=$lt_cv_dlopen_self ;; *) enable_dlopen_self=unknown ;; esac case $lt_cv_dlopen_self_static in yes|no) enable_dlopen_self_static=$lt_cv_dlopen_self_static ;; *) enable_dlopen_self_static=unknown ;; esac fi _LT_DECL([dlopen_support], [enable_dlopen], [0], [Whether dlopen is supported]) _LT_DECL([dlopen_self], [enable_dlopen_self], [0], [Whether dlopen of programs is supported]) _LT_DECL([dlopen_self_static], [enable_dlopen_self_static], [0], [Whether dlopen of statically linked programs is supported]) ])# LT_SYS_DLOPEN_SELF # Old name: AU_ALIAS([AC_LIBTOOL_DLOPEN_SELF], [LT_SYS_DLOPEN_SELF]) dnl aclocal-1.4 backwards compatibility: dnl AC_DEFUN([AC_LIBTOOL_DLOPEN_SELF], []) # _LT_COMPILER_C_O([TAGNAME]) # --------------------------- # Check to see if options -c and -o are simultaneously supported by compiler. # This macro does not hard code the compiler like AC_PROG_CC_C_O. m4_defun([_LT_COMPILER_C_O], [m4_require([_LT_DECL_SED])dnl m4_require([_LT_FILEUTILS_DEFAULTS])dnl m4_require([_LT_TAG_COMPILER])dnl AC_CACHE_CHECK([if $compiler supports -c -o file.$ac_objext], [_LT_TAGVAR(lt_cv_prog_compiler_c_o, $1)], [_LT_TAGVAR(lt_cv_prog_compiler_c_o, $1)=no $RM -r conftest 2>/dev/null mkdir conftest cd conftest mkdir out echo "$lt_simple_compile_test_code" > conftest.$ac_ext lt_compiler_flag="-o out/conftest2.$ac_objext" # Insert the option either (1) after the last *FLAGS variable, or # (2) before a word containing "conftest.", or (3) at the end. # Note that $ac_compile itself does not contain backslashes and begins # with a dollar sign (not a hyphen), so the echo should work correctly. lt_compile=`echo "$ac_compile" | $SED \ -e 's:.*FLAGS}\{0,1\} :&$lt_compiler_flag :; t' \ -e 's: [[^ ]]*conftest\.: $lt_compiler_flag&:; t' \ -e 's:$: $lt_compiler_flag:'` (eval echo "\"\$as_me:$LINENO: $lt_compile\"" >&AS_MESSAGE_LOG_FD) (eval "$lt_compile" 2>out/conftest.err) ac_status=$? cat out/conftest.err >&AS_MESSAGE_LOG_FD echo "$as_me:$LINENO: \$? = $ac_status" >&AS_MESSAGE_LOG_FD if (exit $ac_status) && test -s out/conftest2.$ac_objext then # The compiler can only warn and ignore the option if not recognized # So say no if there are warnings $ECHO "$_lt_compiler_boilerplate" | $SED '/^$/d' > out/conftest.exp $SED '/^$/d; /^ *+/d' out/conftest.err >out/conftest.er2 if test ! -s out/conftest.er2 || diff out/conftest.exp out/conftest.er2 >/dev/null; then _LT_TAGVAR(lt_cv_prog_compiler_c_o, $1)=yes fi fi chmod u+w . 2>&AS_MESSAGE_LOG_FD $RM conftest* # SGI C++ compiler will create directory out/ii_files/ for # template instantiation test -d out/ii_files && $RM out/ii_files/* && rmdir out/ii_files $RM out/* && rmdir out cd .. $RM -r conftest $RM conftest* ]) _LT_TAGDECL([compiler_c_o], [lt_cv_prog_compiler_c_o], [1], [Does compiler simultaneously support -c and -o options?]) ])# _LT_COMPILER_C_O # _LT_COMPILER_FILE_LOCKS([TAGNAME]) # ---------------------------------- # Check to see if we can do hard links to lock some files if needed m4_defun([_LT_COMPILER_FILE_LOCKS], [m4_require([_LT_ENABLE_LOCK])dnl m4_require([_LT_FILEUTILS_DEFAULTS])dnl _LT_COMPILER_C_O([$1]) hard_links="nottested" if test "$_LT_TAGVAR(lt_cv_prog_compiler_c_o, $1)" = no && test "$need_locks" != no; then # do not overwrite the value of need_locks provided by the user AC_MSG_CHECKING([if we can lock with hard links]) hard_links=yes $RM conftest* ln conftest.a conftest.b 2>/dev/null && hard_links=no touch conftest.a ln conftest.a conftest.b 2>&5 || hard_links=no ln conftest.a conftest.b 2>/dev/null && hard_links=no AC_MSG_RESULT([$hard_links]) if test "$hard_links" = no; then AC_MSG_WARN([`$CC' does not support `-c -o', so `make -j' may be unsafe]) need_locks=warn fi else need_locks=no fi _LT_DECL([], [need_locks], [1], [Must we lock files when doing compilation?]) ])# _LT_COMPILER_FILE_LOCKS # _LT_CHECK_OBJDIR # ---------------- m4_defun([_LT_CHECK_OBJDIR], [AC_CACHE_CHECK([for objdir], [lt_cv_objdir], [rm -f .libs 2>/dev/null mkdir .libs 2>/dev/null if test -d .libs; then lt_cv_objdir=.libs else # MS-DOS does not allow filenames that begin with a dot. lt_cv_objdir=_libs fi rmdir .libs 2>/dev/null]) objdir=$lt_cv_objdir _LT_DECL([], [objdir], [0], [The name of the directory that contains temporary libtool files])dnl m4_pattern_allow([LT_OBJDIR])dnl AC_DEFINE_UNQUOTED(LT_OBJDIR, "$lt_cv_objdir/", [Define to the sub-directory in which libtool stores uninstalled libraries.]) ])# _LT_CHECK_OBJDIR # _LT_LINKER_HARDCODE_LIBPATH([TAGNAME]) # -------------------------------------- # Check hardcoding attributes. m4_defun([_LT_LINKER_HARDCODE_LIBPATH], [AC_MSG_CHECKING([how to hardcode library paths into programs]) _LT_TAGVAR(hardcode_action, $1)= if test -n "$_LT_TAGVAR(hardcode_libdir_flag_spec, $1)" || test -n "$_LT_TAGVAR(runpath_var, $1)" || test "X$_LT_TAGVAR(hardcode_automatic, $1)" = "Xyes" ; then # We can hardcode non-existent directories. if test "$_LT_TAGVAR(hardcode_direct, $1)" != no && # If the only mechanism to avoid hardcoding is shlibpath_var, we # have to relink, otherwise we might link with an installed library # when we should be linking with a yet-to-be-installed one ## test "$_LT_TAGVAR(hardcode_shlibpath_var, $1)" != no && test "$_LT_TAGVAR(hardcode_minus_L, $1)" != no; then # Linking always hardcodes the temporary library directory. _LT_TAGVAR(hardcode_action, $1)=relink else # We can link without hardcoding, and we can hardcode nonexisting dirs. _LT_TAGVAR(hardcode_action, $1)=immediate fi else # We cannot hardcode anything, or else we can only hardcode existing # directories. _LT_TAGVAR(hardcode_action, $1)=unsupported fi AC_MSG_RESULT([$_LT_TAGVAR(hardcode_action, $1)]) if test "$_LT_TAGVAR(hardcode_action, $1)" = relink || test "$_LT_TAGVAR(inherit_rpath, $1)" = yes; then # Fast installation is not supported enable_fast_install=no elif test "$shlibpath_overrides_runpath" = yes || test "$enable_shared" = no; then # Fast installation is not necessary enable_fast_install=needless fi _LT_TAGDECL([], [hardcode_action], [0], [How to hardcode a shared library path into an executable]) ])# _LT_LINKER_HARDCODE_LIBPATH # _LT_CMD_STRIPLIB # ---------------- m4_defun([_LT_CMD_STRIPLIB], [m4_require([_LT_DECL_EGREP]) striplib= old_striplib= AC_MSG_CHECKING([whether stripping libraries is possible]) if test -n "$STRIP" && $STRIP -V 2>&1 | $GREP "GNU strip" >/dev/null; then test -z "$old_striplib" && old_striplib="$STRIP --strip-debug" test -z "$striplib" && striplib="$STRIP --strip-unneeded" AC_MSG_RESULT([yes]) else # FIXME - insert some real tests, host_os isn't really good enough case $host_os in darwin*) if test -n "$STRIP" ; then striplib="$STRIP -x" old_striplib="$STRIP -S" AC_MSG_RESULT([yes]) else AC_MSG_RESULT([no]) fi ;; *) AC_MSG_RESULT([no]) ;; esac fi _LT_DECL([], [old_striplib], [1], [Commands to strip libraries]) _LT_DECL([], [striplib], [1]) ])# _LT_CMD_STRIPLIB # _LT_SYS_DYNAMIC_LINKER([TAG]) # ----------------------------- # PORTME Fill in your ld.so characteristics m4_defun([_LT_SYS_DYNAMIC_LINKER], [AC_REQUIRE([AC_CANONICAL_HOST])dnl m4_require([_LT_DECL_EGREP])dnl m4_require([_LT_FILEUTILS_DEFAULTS])dnl m4_require([_LT_DECL_OBJDUMP])dnl m4_require([_LT_DECL_SED])dnl m4_require([_LT_CHECK_SHELL_FEATURES])dnl AC_MSG_CHECKING([dynamic linker characteristics]) m4_if([$1], [], [ if test "$GCC" = yes; then case $host_os in darwin*) lt_awk_arg="/^libraries:/,/LR/" ;; *) lt_awk_arg="/^libraries:/" ;; esac case $host_os in mingw* | cegcc*) lt_sed_strip_eq="s,=\([[A-Za-z]]:\),\1,g" ;; *) lt_sed_strip_eq="s,=/,/,g" ;; esac lt_search_path_spec=`$CC -print-search-dirs | awk $lt_awk_arg | $SED -e "s/^libraries://" -e $lt_sed_strip_eq` case $lt_search_path_spec in *\;*) # if the path contains ";" then we assume it to be the separator # otherwise default to the standard path separator (i.e. ":") - it is # assumed that no part of a normal pathname contains ";" but that should # okay in the real world where ";" in dirpaths is itself problematic. lt_search_path_spec=`$ECHO "$lt_search_path_spec" | $SED 's/;/ /g'` ;; *) lt_search_path_spec=`$ECHO "$lt_search_path_spec" | $SED "s/$PATH_SEPARATOR/ /g"` ;; esac # Ok, now we have the path, separated by spaces, we can step through it # and add multilib dir if necessary. lt_tmp_lt_search_path_spec= lt_multi_os_dir=`$CC $CPPFLAGS $CFLAGS $LDFLAGS -print-multi-os-directory 2>/dev/null` for lt_sys_path in $lt_search_path_spec; do if test -d "$lt_sys_path/$lt_multi_os_dir"; then lt_tmp_lt_search_path_spec="$lt_tmp_lt_search_path_spec $lt_sys_path/$lt_multi_os_dir" else test -d "$lt_sys_path" && \ lt_tmp_lt_search_path_spec="$lt_tmp_lt_search_path_spec $lt_sys_path" fi done lt_search_path_spec=`$ECHO "$lt_tmp_lt_search_path_spec" | awk ' BEGIN {RS=" "; FS="/|\n";} { lt_foo=""; lt_count=0; for (lt_i = NF; lt_i > 0; lt_i--) { if ($lt_i != "" && $lt_i != ".") { if ($lt_i == "..") { lt_count++; } else { if (lt_count == 0) { lt_foo="/" $lt_i lt_foo; } else { lt_count--; } } } } if (lt_foo != "") { lt_freq[[lt_foo]]++; } if (lt_freq[[lt_foo]] == 1) { print lt_foo; } }'` # AWK program above erroneously prepends '/' to C:/dos/paths # for these hosts. case $host_os in mingw* | cegcc*) lt_search_path_spec=`$ECHO "$lt_search_path_spec" |\ $SED 's,/\([[A-Za-z]]:\),\1,g'` ;; esac sys_lib_search_path_spec=`$ECHO "$lt_search_path_spec" | $lt_NL2SP` else sys_lib_search_path_spec="/lib /usr/lib /usr/local/lib" fi]) library_names_spec= libname_spec='lib$name' soname_spec= shrext_cmds=".so" postinstall_cmds= postuninstall_cmds= finish_cmds= finish_eval= shlibpath_var= shlibpath_overrides_runpath=unknown version_type=none dynamic_linker="$host_os ld.so" sys_lib_dlsearch_path_spec="/lib /usr/lib" need_lib_prefix=unknown hardcode_into_libs=no # when you set need_version to no, make sure it does not cause -set_version # flags to be left without arguments need_version=unknown case $host_os in aix3*) version_type=linux # correct to gnu/linux during the next big refactor library_names_spec='${libname}${release}${shared_ext}$versuffix $libname.a' shlibpath_var=LIBPATH # AIX 3 has no versioning support, so we append a major version to the name. soname_spec='${libname}${release}${shared_ext}$major' ;; aix[[4-9]]*) version_type=linux # correct to gnu/linux during the next big refactor need_lib_prefix=no need_version=no hardcode_into_libs=yes if test "$host_cpu" = ia64; then # AIX 5 supports IA64 library_names_spec='${libname}${release}${shared_ext}$major ${libname}${release}${shared_ext}$versuffix $libname${shared_ext}' shlibpath_var=LD_LIBRARY_PATH else # With GCC up to 2.95.x, collect2 would create an import file # for dependence libraries. The import file would start with # the line `#! .'. This would cause the generated library to # depend on `.', always an invalid library. This was fixed in # development snapshots of GCC prior to 3.0. case $host_os in aix4 | aix4.[[01]] | aix4.[[01]].*) if { echo '#if __GNUC__ > 2 || (__GNUC__ == 2 && __GNUC_MINOR__ >= 97)' echo ' yes ' echo '#endif'; } | ${CC} -E - | $GREP yes > /dev/null; then : else can_build_shared=no fi ;; esac # AIX (on Power*) has no versioning support, so currently we can not hardcode correct # soname into executable. Probably we can add versioning support to # collect2, so additional links can be useful in future. if test "$aix_use_runtimelinking" = yes; then # If using run time linking (on AIX 4.2 or later) use lib.so # instead of lib.a to let people know that these are not # typical AIX shared libraries. library_names_spec='${libname}${release}${shared_ext}$versuffix ${libname}${release}${shared_ext}$major $libname${shared_ext}' else # We preserve .a as extension for shared libraries through AIX4.2 # and later when we are not doing run time linking. library_names_spec='${libname}${release}.a $libname.a' soname_spec='${libname}${release}${shared_ext}$major' fi shlibpath_var=LIBPATH fi ;; amigaos*) case $host_cpu in powerpc) # Since July 2007 AmigaOS4 officially supports .so libraries. # When compiling the executable, add -use-dynld -Lsobjs: to the compileline. library_names_spec='${libname}${release}${shared_ext}$versuffix ${libname}${release}${shared_ext}$major $libname${shared_ext}' ;; m68k) library_names_spec='$libname.ixlibrary $libname.a' # Create ${libname}_ixlibrary.a entries in /sys/libs. finish_eval='for lib in `ls $libdir/*.ixlibrary 2>/dev/null`; do libname=`func_echo_all "$lib" | $SED '\''s%^.*/\([[^/]]*\)\.ixlibrary$%\1%'\''`; test $RM /sys/libs/${libname}_ixlibrary.a; $show "cd /sys/libs && $LN_S $lib ${libname}_ixlibrary.a"; cd /sys/libs && $LN_S $lib ${libname}_ixlibrary.a || exit 1; done' ;; esac ;; beos*) library_names_spec='${libname}${shared_ext}' dynamic_linker="$host_os ld.so" shlibpath_var=LIBRARY_PATH ;; bsdi[[45]]*) version_type=linux # correct to gnu/linux during the next big refactor need_version=no library_names_spec='${libname}${release}${shared_ext}$versuffix ${libname}${release}${shared_ext}$major $libname${shared_ext}' soname_spec='${libname}${release}${shared_ext}$major' finish_cmds='PATH="\$PATH:/sbin" ldconfig $libdir' shlibpath_var=LD_LIBRARY_PATH sys_lib_search_path_spec="/shlib /usr/lib /usr/X11/lib /usr/contrib/lib /lib /usr/local/lib" sys_lib_dlsearch_path_spec="/shlib /usr/lib /usr/local/lib" # the default ld.so.conf also contains /usr/contrib/lib and # /usr/X11R6/lib (/usr/X11 is a link to /usr/X11R6), but let us allow # libtool to hard-code these into programs ;; cygwin* | mingw* | pw32* | cegcc*) version_type=windows shrext_cmds=".dll" need_version=no need_lib_prefix=no case $GCC,$cc_basename in yes,*) # gcc library_names_spec='$libname.dll.a' # DLL is installed to $(libdir)/../bin by postinstall_cmds postinstall_cmds='base_file=`basename \${file}`~ dlpath=`$SHELL 2>&1 -c '\''. $dir/'\''\${base_file}'\''i; echo \$dlname'\''`~ dldir=$destdir/`dirname \$dlpath`~ test -d \$dldir || mkdir -p \$dldir~ $install_prog $dir/$dlname \$dldir/$dlname~ chmod a+x \$dldir/$dlname~ if test -n '\''$stripme'\'' && test -n '\''$striplib'\''; then eval '\''$striplib \$dldir/$dlname'\'' || exit \$?; fi' postuninstall_cmds='dldll=`$SHELL 2>&1 -c '\''. $file; echo \$dlname'\''`~ dlpath=$dir/\$dldll~ $RM \$dlpath' shlibpath_overrides_runpath=yes case $host_os in cygwin*) # Cygwin DLLs use 'cyg' prefix rather than 'lib' soname_spec='`echo ${libname} | sed -e 's/^lib/cyg/'``echo ${release} | $SED -e 's/[[.]]/-/g'`${versuffix}${shared_ext}' m4_if([$1], [],[ sys_lib_search_path_spec="$sys_lib_search_path_spec /usr/lib/w32api"]) ;; mingw* | cegcc*) # MinGW DLLs use traditional 'lib' prefix soname_spec='${libname}`echo ${release} | $SED -e 's/[[.]]/-/g'`${versuffix}${shared_ext}' ;; pw32*) # pw32 DLLs use 'pw' prefix rather than 'lib' library_names_spec='`echo ${libname} | sed -e 's/^lib/pw/'``echo ${release} | $SED -e 's/[[.]]/-/g'`${versuffix}${shared_ext}' ;; esac dynamic_linker='Win32 ld.exe' ;; *,cl*) # Native MSVC libname_spec='$name' soname_spec='${libname}`echo ${release} | $SED -e 's/[[.]]/-/g'`${versuffix}${shared_ext}' library_names_spec='${libname}.dll.lib' case $build_os in mingw*) sys_lib_search_path_spec= lt_save_ifs=$IFS IFS=';' for lt_path in $LIB do IFS=$lt_save_ifs # Let DOS variable expansion print the short 8.3 style file name. lt_path=`cd "$lt_path" 2>/dev/null && cmd //C "for %i in (".") do @echo %~si"` sys_lib_search_path_spec="$sys_lib_search_path_spec $lt_path" done IFS=$lt_save_ifs # Convert to MSYS style. sys_lib_search_path_spec=`$ECHO "$sys_lib_search_path_spec" | sed -e 's|\\\\|/|g' -e 's| \\([[a-zA-Z]]\\):| /\\1|g' -e 's|^ ||'` ;; cygwin*) # Convert to unix form, then to dos form, then back to unix form # but this time dos style (no spaces!) so that the unix form looks # like /cygdrive/c/PROGRA~1:/cygdr... sys_lib_search_path_spec=`cygpath --path --unix "$LIB"` sys_lib_search_path_spec=`cygpath --path --dos "$sys_lib_search_path_spec" 2>/dev/null` sys_lib_search_path_spec=`cygpath --path --unix "$sys_lib_search_path_spec" | $SED -e "s/$PATH_SEPARATOR/ /g"` ;; *) sys_lib_search_path_spec="$LIB" if $ECHO "$sys_lib_search_path_spec" | [$GREP ';[c-zC-Z]:/' >/dev/null]; then # It is most probably a Windows format PATH. sys_lib_search_path_spec=`$ECHO "$sys_lib_search_path_spec" | $SED -e 's/;/ /g'` else sys_lib_search_path_spec=`$ECHO "$sys_lib_search_path_spec" | $SED -e "s/$PATH_SEPARATOR/ /g"` fi # FIXME: find the short name or the path components, as spaces are # common. (e.g. "Program Files" -> "PROGRA~1") ;; esac # DLL is installed to $(libdir)/../bin by postinstall_cmds postinstall_cmds='base_file=`basename \${file}`~ dlpath=`$SHELL 2>&1 -c '\''. $dir/'\''\${base_file}'\''i; echo \$dlname'\''`~ dldir=$destdir/`dirname \$dlpath`~ test -d \$dldir || mkdir -p \$dldir~ $install_prog $dir/$dlname \$dldir/$dlname' postuninstall_cmds='dldll=`$SHELL 2>&1 -c '\''. $file; echo \$dlname'\''`~ dlpath=$dir/\$dldll~ $RM \$dlpath' shlibpath_overrides_runpath=yes dynamic_linker='Win32 link.exe' ;; *) # Assume MSVC wrapper library_names_spec='${libname}`echo ${release} | $SED -e 's/[[.]]/-/g'`${versuffix}${shared_ext} $libname.lib' dynamic_linker='Win32 ld.exe' ;; esac # FIXME: first we should search . and the directory the executable is in shlibpath_var=PATH ;; darwin* | rhapsody*) dynamic_linker="$host_os dyld" version_type=darwin need_lib_prefix=no need_version=no library_names_spec='${libname}${release}${major}$shared_ext ${libname}$shared_ext' soname_spec='${libname}${release}${major}$shared_ext' shlibpath_overrides_runpath=yes shlibpath_var=DYLD_LIBRARY_PATH shrext_cmds='`test .$module = .yes && echo .so || echo .dylib`' m4_if([$1], [],[ sys_lib_search_path_spec="$sys_lib_search_path_spec /usr/local/lib"]) sys_lib_dlsearch_path_spec='/usr/local/lib /lib /usr/lib' ;; dgux*) version_type=linux # correct to gnu/linux during the next big refactor need_lib_prefix=no need_version=no library_names_spec='${libname}${release}${shared_ext}$versuffix ${libname}${release}${shared_ext}$major $libname$shared_ext' soname_spec='${libname}${release}${shared_ext}$major' shlibpath_var=LD_LIBRARY_PATH ;; freebsd* | dragonfly*) # DragonFly does not have aout. When/if they implement a new # versioning mechanism, adjust this. if test -x /usr/bin/objformat; then objformat=`/usr/bin/objformat` else case $host_os in freebsd[[23]].*) objformat=aout ;; *) objformat=elf ;; esac fi version_type=freebsd-$objformat case $version_type in freebsd-elf*) library_names_spec='${libname}${release}${shared_ext}$versuffix ${libname}${release}${shared_ext} $libname${shared_ext}' need_version=no need_lib_prefix=no ;; freebsd-*) library_names_spec='${libname}${release}${shared_ext}$versuffix $libname${shared_ext}$versuffix' need_version=yes ;; esac shlibpath_var=LD_LIBRARY_PATH case $host_os in freebsd2.*) shlibpath_overrides_runpath=yes ;; freebsd3.[[01]]* | freebsdelf3.[[01]]*) shlibpath_overrides_runpath=yes hardcode_into_libs=yes ;; freebsd3.[[2-9]]* | freebsdelf3.[[2-9]]* | \ freebsd4.[[0-5]] | freebsdelf4.[[0-5]] | freebsd4.1.1 | freebsdelf4.1.1) shlibpath_overrides_runpath=no hardcode_into_libs=yes ;; *) # from 4.6 on, and DragonFly shlibpath_overrides_runpath=yes hardcode_into_libs=yes ;; esac ;; gnu*) version_type=linux # correct to gnu/linux during the next big refactor need_lib_prefix=no need_version=no library_names_spec='${libname}${release}${shared_ext}$versuffix ${libname}${release}${shared_ext}${major} ${libname}${shared_ext}' soname_spec='${libname}${release}${shared_ext}$major' shlibpath_var=LD_LIBRARY_PATH shlibpath_overrides_runpath=no hardcode_into_libs=yes ;; haiku*) version_type=linux # correct to gnu/linux during the next big refactor need_lib_prefix=no need_version=no dynamic_linker="$host_os runtime_loader" library_names_spec='${libname}${release}${shared_ext}$versuffix ${libname}${release}${shared_ext}${major} ${libname}${shared_ext}' soname_spec='${libname}${release}${shared_ext}$major' shlibpath_var=LIBRARY_PATH shlibpath_overrides_runpath=yes sys_lib_dlsearch_path_spec='/boot/home/config/lib /boot/common/lib /boot/system/lib' hardcode_into_libs=yes ;; hpux9* | hpux10* | hpux11*) # Give a soname corresponding to the major version so that dld.sl refuses to # link against other versions. version_type=sunos need_lib_prefix=no need_version=no case $host_cpu in ia64*) shrext_cmds='.so' hardcode_into_libs=yes dynamic_linker="$host_os dld.so" shlibpath_var=LD_LIBRARY_PATH shlibpath_overrides_runpath=yes # Unless +noenvvar is specified. library_names_spec='${libname}${release}${shared_ext}$versuffix ${libname}${release}${shared_ext}$major $libname${shared_ext}' soname_spec='${libname}${release}${shared_ext}$major' if test "X$HPUX_IA64_MODE" = X32; then sys_lib_search_path_spec="/usr/lib/hpux32 /usr/local/lib/hpux32 /usr/local/lib" else sys_lib_search_path_spec="/usr/lib/hpux64 /usr/local/lib/hpux64" fi sys_lib_dlsearch_path_spec=$sys_lib_search_path_spec ;; hppa*64*) shrext_cmds='.sl' hardcode_into_libs=yes dynamic_linker="$host_os dld.sl" shlibpath_var=LD_LIBRARY_PATH # How should we handle SHLIB_PATH shlibpath_overrides_runpath=yes # Unless +noenvvar is specified. library_names_spec='${libname}${release}${shared_ext}$versuffix ${libname}${release}${shared_ext}$major $libname${shared_ext}' soname_spec='${libname}${release}${shared_ext}$major' sys_lib_search_path_spec="/usr/lib/pa20_64 /usr/ccs/lib/pa20_64" sys_lib_dlsearch_path_spec=$sys_lib_search_path_spec ;; *) shrext_cmds='.sl' dynamic_linker="$host_os dld.sl" shlibpath_var=SHLIB_PATH shlibpath_overrides_runpath=no # +s is required to enable SHLIB_PATH library_names_spec='${libname}${release}${shared_ext}$versuffix ${libname}${release}${shared_ext}$major $libname${shared_ext}' soname_spec='${libname}${release}${shared_ext}$major' ;; esac # HP-UX runs *really* slowly unless shared libraries are mode 555, ... postinstall_cmds='chmod 555 $lib' # or fails outright, so override atomically: install_override_mode=555 ;; interix[[3-9]]*) version_type=linux # correct to gnu/linux during the next big refactor need_lib_prefix=no need_version=no library_names_spec='${libname}${release}${shared_ext}$versuffix ${libname}${release}${shared_ext}$major ${libname}${shared_ext}' soname_spec='${libname}${release}${shared_ext}$major' dynamic_linker='Interix 3.x ld.so.1 (PE, like ELF)' shlibpath_var=LD_LIBRARY_PATH shlibpath_overrides_runpath=no hardcode_into_libs=yes ;; irix5* | irix6* | nonstopux*) case $host_os in nonstopux*) version_type=nonstopux ;; *) if test "$lt_cv_prog_gnu_ld" = yes; then version_type=linux # correct to gnu/linux during the next big refactor else version_type=irix fi ;; esac need_lib_prefix=no need_version=no soname_spec='${libname}${release}${shared_ext}$major' library_names_spec='${libname}${release}${shared_ext}$versuffix ${libname}${release}${shared_ext}$major ${libname}${release}${shared_ext} $libname${shared_ext}' case $host_os in irix5* | nonstopux*) libsuff= shlibsuff= ;; *) case $LD in # libtool.m4 will add one of these switches to LD *-32|*"-32 "|*-melf32bsmip|*"-melf32bsmip ") libsuff= shlibsuff= libmagic=32-bit;; *-n32|*"-n32 "|*-melf32bmipn32|*"-melf32bmipn32 ") libsuff=32 shlibsuff=N32 libmagic=N32;; *-64|*"-64 "|*-melf64bmip|*"-melf64bmip ") libsuff=64 shlibsuff=64 libmagic=64-bit;; *) libsuff= shlibsuff= libmagic=never-match;; esac ;; esac shlibpath_var=LD_LIBRARY${shlibsuff}_PATH shlibpath_overrides_runpath=no sys_lib_search_path_spec="/usr/lib${libsuff} /lib${libsuff} /usr/local/lib${libsuff}" sys_lib_dlsearch_path_spec="/usr/lib${libsuff} /lib${libsuff}" hardcode_into_libs=yes ;; # No shared lib support for Linux oldld, aout, or coff. linux*oldld* | linux*aout* | linux*coff*) dynamic_linker=no ;; # This must be glibc/ELF. linux* | k*bsd*-gnu | kopensolaris*-gnu) version_type=linux # correct to gnu/linux during the next big refactor need_lib_prefix=no need_version=no library_names_spec='${libname}${release}${shared_ext}$versuffix ${libname}${release}${shared_ext}$major $libname${shared_ext}' soname_spec='${libname}${release}${shared_ext}$major' finish_cmds='PATH="\$PATH:/sbin" ldconfig -n $libdir' shlibpath_var=LD_LIBRARY_PATH shlibpath_overrides_runpath=no # Some binutils ld are patched to set DT_RUNPATH AC_CACHE_VAL([lt_cv_shlibpath_overrides_runpath], [lt_cv_shlibpath_overrides_runpath=no save_LDFLAGS=$LDFLAGS save_libdir=$libdir eval "libdir=/foo; wl=\"$_LT_TAGVAR(lt_prog_compiler_wl, $1)\"; \ LDFLAGS=\"\$LDFLAGS $_LT_TAGVAR(hardcode_libdir_flag_spec, $1)\"" AC_LINK_IFELSE([AC_LANG_PROGRAM([],[])], [AS_IF([ ($OBJDUMP -p conftest$ac_exeext) 2>/dev/null | grep "RUNPATH.*$libdir" >/dev/null], [lt_cv_shlibpath_overrides_runpath=yes])]) LDFLAGS=$save_LDFLAGS libdir=$save_libdir ]) shlibpath_overrides_runpath=$lt_cv_shlibpath_overrides_runpath # This implies no fast_install, which is unacceptable. # Some rework will be needed to allow for fast_install # before this can be enabled. hardcode_into_libs=yes # Append ld.so.conf contents to the search path if test -f /etc/ld.so.conf; then lt_ld_extra=`awk '/^include / { system(sprintf("cd /etc; cat %s 2>/dev/null", \[$]2)); skip = 1; } { if (!skip) print \[$]0; skip = 0; }' < /etc/ld.so.conf | $SED -e 's/#.*//;/^[ ]*hwcap[ ]/d;s/[:, ]/ /g;s/=[^=]*$//;s/=[^= ]* / /g;s/"//g;/^$/d' | tr '\n' ' '` sys_lib_dlsearch_path_spec="/lib /usr/lib $lt_ld_extra" fi # We used to test for /lib/ld.so.1 and disable shared libraries on # powerpc, because MkLinux only supported shared libraries with the # GNU dynamic linker. Since this was broken with cross compilers, # most powerpc-linux boxes support dynamic linking these days and # people can always --disable-shared, the test was removed, and we # assume the GNU/Linux dynamic linker is in use. dynamic_linker='GNU/Linux ld.so' ;; netbsdelf*-gnu) version_type=linux need_lib_prefix=no need_version=no library_names_spec='${libname}${release}${shared_ext}$versuffix ${libname}${release}${shared_ext}$major ${libname}${shared_ext}' soname_spec='${libname}${release}${shared_ext}$major' shlibpath_var=LD_LIBRARY_PATH shlibpath_overrides_runpath=no hardcode_into_libs=yes dynamic_linker='NetBSD ld.elf_so' ;; netbsd*) version_type=sunos need_lib_prefix=no need_version=no if echo __ELF__ | $CC -E - | $GREP __ELF__ >/dev/null; then library_names_spec='${libname}${release}${shared_ext}$versuffix ${libname}${shared_ext}$versuffix' finish_cmds='PATH="\$PATH:/sbin" ldconfig -m $libdir' dynamic_linker='NetBSD (a.out) ld.so' else library_names_spec='${libname}${release}${shared_ext}$versuffix ${libname}${release}${shared_ext}$major ${libname}${shared_ext}' soname_spec='${libname}${release}${shared_ext}$major' dynamic_linker='NetBSD ld.elf_so' fi shlibpath_var=LD_LIBRARY_PATH shlibpath_overrides_runpath=yes hardcode_into_libs=yes ;; newsos6) version_type=linux # correct to gnu/linux during the next big refactor library_names_spec='${libname}${release}${shared_ext}$versuffix ${libname}${release}${shared_ext}$major $libname${shared_ext}' shlibpath_var=LD_LIBRARY_PATH shlibpath_overrides_runpath=yes ;; *nto* | *qnx*) version_type=qnx need_lib_prefix=no need_version=no library_names_spec='${libname}${release}${shared_ext}$versuffix ${libname}${release}${shared_ext}$major $libname${shared_ext}' soname_spec='${libname}${release}${shared_ext}$major' shlibpath_var=LD_LIBRARY_PATH shlibpath_overrides_runpath=no hardcode_into_libs=yes dynamic_linker='ldqnx.so' ;; openbsd*) version_type=sunos sys_lib_dlsearch_path_spec="/usr/lib" need_lib_prefix=no # Some older versions of OpenBSD (3.3 at least) *do* need versioned libs. case $host_os in openbsd3.3 | openbsd3.3.*) need_version=yes ;; *) need_version=no ;; esac library_names_spec='${libname}${release}${shared_ext}$versuffix ${libname}${shared_ext}$versuffix' finish_cmds='PATH="\$PATH:/sbin" ldconfig -m $libdir' shlibpath_var=LD_LIBRARY_PATH if test -z "`echo __ELF__ | $CC -E - | $GREP __ELF__`" || test "$host_os-$host_cpu" = "openbsd2.8-powerpc"; then case $host_os in openbsd2.[[89]] | openbsd2.[[89]].*) shlibpath_overrides_runpath=no ;; *) shlibpath_overrides_runpath=yes ;; esac else shlibpath_overrides_runpath=yes fi ;; os2*) libname_spec='$name' shrext_cmds=".dll" need_lib_prefix=no library_names_spec='$libname${shared_ext} $libname.a' dynamic_linker='OS/2 ld.exe' shlibpath_var=LIBPATH ;; osf3* | osf4* | osf5*) version_type=osf need_lib_prefix=no need_version=no soname_spec='${libname}${release}${shared_ext}$major' library_names_spec='${libname}${release}${shared_ext}$versuffix ${libname}${release}${shared_ext}$major $libname${shared_ext}' shlibpath_var=LD_LIBRARY_PATH sys_lib_search_path_spec="/usr/shlib /usr/ccs/lib /usr/lib/cmplrs/cc /usr/lib /usr/local/lib /var/shlib" sys_lib_dlsearch_path_spec="$sys_lib_search_path_spec" ;; rdos*) dynamic_linker=no ;; solaris*) version_type=linux # correct to gnu/linux during the next big refactor need_lib_prefix=no need_version=no library_names_spec='${libname}${release}${shared_ext}$versuffix ${libname}${release}${shared_ext}$major $libname${shared_ext}' soname_spec='${libname}${release}${shared_ext}$major' shlibpath_var=LD_LIBRARY_PATH shlibpath_overrides_runpath=yes hardcode_into_libs=yes # ldd complains unless libraries are executable postinstall_cmds='chmod +x $lib' ;; sunos4*) version_type=sunos library_names_spec='${libname}${release}${shared_ext}$versuffix ${libname}${shared_ext}$versuffix' finish_cmds='PATH="\$PATH:/usr/etc" ldconfig $libdir' shlibpath_var=LD_LIBRARY_PATH shlibpath_overrides_runpath=yes if test "$with_gnu_ld" = yes; then need_lib_prefix=no fi need_version=yes ;; sysv4 | sysv4.3*) version_type=linux # correct to gnu/linux during the next big refactor library_names_spec='${libname}${release}${shared_ext}$versuffix ${libname}${release}${shared_ext}$major $libname${shared_ext}' soname_spec='${libname}${release}${shared_ext}$major' shlibpath_var=LD_LIBRARY_PATH case $host_vendor in sni) shlibpath_overrides_runpath=no need_lib_prefix=no runpath_var=LD_RUN_PATH ;; siemens) need_lib_prefix=no ;; motorola) need_lib_prefix=no need_version=no shlibpath_overrides_runpath=no sys_lib_search_path_spec='/lib /usr/lib /usr/ccs/lib' ;; esac ;; sysv4*MP*) if test -d /usr/nec ;then version_type=linux # correct to gnu/linux during the next big refactor library_names_spec='$libname${shared_ext}.$versuffix $libname${shared_ext}.$major $libname${shared_ext}' soname_spec='$libname${shared_ext}.$major' shlibpath_var=LD_LIBRARY_PATH fi ;; sysv5* | sco3.2v5* | sco5v6* | unixware* | OpenUNIX* | sysv4*uw2*) version_type=freebsd-elf need_lib_prefix=no need_version=no library_names_spec='${libname}${release}${shared_ext}$versuffix ${libname}${release}${shared_ext} $libname${shared_ext}' soname_spec='${libname}${release}${shared_ext}$major' shlibpath_var=LD_LIBRARY_PATH shlibpath_overrides_runpath=yes hardcode_into_libs=yes if test "$with_gnu_ld" = yes; then sys_lib_search_path_spec='/usr/local/lib /usr/gnu/lib /usr/ccs/lib /usr/lib /lib' else sys_lib_search_path_spec='/usr/ccs/lib /usr/lib' case $host_os in sco3.2v5*) sys_lib_search_path_spec="$sys_lib_search_path_spec /lib" ;; esac fi sys_lib_dlsearch_path_spec='/usr/lib' ;; tpf*) # TPF is a cross-target only. Preferred cross-host = GNU/Linux. version_type=linux # correct to gnu/linux during the next big refactor need_lib_prefix=no need_version=no library_names_spec='${libname}${release}${shared_ext}$versuffix ${libname}${release}${shared_ext}$major $libname${shared_ext}' shlibpath_var=LD_LIBRARY_PATH shlibpath_overrides_runpath=no hardcode_into_libs=yes ;; uts4*) version_type=linux # correct to gnu/linux during the next big refactor library_names_spec='${libname}${release}${shared_ext}$versuffix ${libname}${release}${shared_ext}$major $libname${shared_ext}' soname_spec='${libname}${release}${shared_ext}$major' shlibpath_var=LD_LIBRARY_PATH ;; *) dynamic_linker=no ;; esac AC_MSG_RESULT([$dynamic_linker]) test "$dynamic_linker" = no && can_build_shared=no variables_saved_for_relink="PATH $shlibpath_var $runpath_var" if test "$GCC" = yes; then variables_saved_for_relink="$variables_saved_for_relink GCC_EXEC_PREFIX COMPILER_PATH LIBRARY_PATH" fi if test "${lt_cv_sys_lib_search_path_spec+set}" = set; then sys_lib_search_path_spec="$lt_cv_sys_lib_search_path_spec" fi if test "${lt_cv_sys_lib_dlsearch_path_spec+set}" = set; then sys_lib_dlsearch_path_spec="$lt_cv_sys_lib_dlsearch_path_spec" fi _LT_DECL([], [variables_saved_for_relink], [1], [Variables whose values should be saved in libtool wrapper scripts and restored at link time]) _LT_DECL([], [need_lib_prefix], [0], [Do we need the "lib" prefix for modules?]) _LT_DECL([], [need_version], [0], [Do we need a version for libraries?]) _LT_DECL([], [version_type], [0], [Library versioning type]) _LT_DECL([], [runpath_var], [0], [Shared library runtime path variable]) _LT_DECL([], [shlibpath_var], [0],[Shared library path variable]) _LT_DECL([], [shlibpath_overrides_runpath], [0], [Is shlibpath searched before the hard-coded library search path?]) _LT_DECL([], [libname_spec], [1], [Format of library name prefix]) _LT_DECL([], [library_names_spec], [1], [[List of archive names. First name is the real one, the rest are links. The last name is the one that the linker finds with -lNAME]]) _LT_DECL([], [soname_spec], [1], [[The coded name of the library, if different from the real name]]) _LT_DECL([], [install_override_mode], [1], [Permission mode override for installation of shared libraries]) _LT_DECL([], [postinstall_cmds], [2], [Command to use after installation of a shared archive]) _LT_DECL([], [postuninstall_cmds], [2], [Command to use after uninstallation of a shared archive]) _LT_DECL([], [finish_cmds], [2], [Commands used to finish a libtool library installation in a directory]) _LT_DECL([], [finish_eval], [1], [[As "finish_cmds", except a single script fragment to be evaled but not shown]]) _LT_DECL([], [hardcode_into_libs], [0], [Whether we should hardcode library paths into libraries]) _LT_DECL([], [sys_lib_search_path_spec], [2], [Compile-time system search path for libraries]) _LT_DECL([], [sys_lib_dlsearch_path_spec], [2], [Run-time system search path for libraries]) ])# _LT_SYS_DYNAMIC_LINKER # _LT_PATH_TOOL_PREFIX(TOOL) # -------------------------- # find a file program which can recognize shared library AC_DEFUN([_LT_PATH_TOOL_PREFIX], [m4_require([_LT_DECL_EGREP])dnl AC_MSG_CHECKING([for $1]) AC_CACHE_VAL(lt_cv_path_MAGIC_CMD, [case $MAGIC_CMD in [[\\/*] | ?:[\\/]*]) lt_cv_path_MAGIC_CMD="$MAGIC_CMD" # Let the user override the test with a path. ;; *) lt_save_MAGIC_CMD="$MAGIC_CMD" lt_save_ifs="$IFS"; IFS=$PATH_SEPARATOR dnl $ac_dummy forces splitting on constant user-supplied paths. dnl POSIX.2 word splitting is done only on the output of word expansions, dnl not every word. This closes a longstanding sh security hole. ac_dummy="m4_if([$2], , $PATH, [$2])" for ac_dir in $ac_dummy; do IFS="$lt_save_ifs" test -z "$ac_dir" && ac_dir=. if test -f $ac_dir/$1; then lt_cv_path_MAGIC_CMD="$ac_dir/$1" if test -n "$file_magic_test_file"; then case $deplibs_check_method in "file_magic "*) file_magic_regex=`expr "$deplibs_check_method" : "file_magic \(.*\)"` MAGIC_CMD="$lt_cv_path_MAGIC_CMD" if eval $file_magic_cmd \$file_magic_test_file 2> /dev/null | $EGREP "$file_magic_regex" > /dev/null; then : else cat <<_LT_EOF 1>&2 *** Warning: the command libtool uses to detect shared libraries, *** $file_magic_cmd, produces output that libtool cannot recognize. *** The result is that libtool may fail to recognize shared libraries *** as such. This will affect the creation of libtool libraries that *** depend on shared libraries, but programs linked with such libtool *** libraries will work regardless of this problem. Nevertheless, you *** may want to report the problem to your system manager and/or to *** bug-libtool@gnu.org _LT_EOF fi ;; esac fi break fi done IFS="$lt_save_ifs" MAGIC_CMD="$lt_save_MAGIC_CMD" ;; esac]) MAGIC_CMD="$lt_cv_path_MAGIC_CMD" if test -n "$MAGIC_CMD"; then AC_MSG_RESULT($MAGIC_CMD) else AC_MSG_RESULT(no) fi _LT_DECL([], [MAGIC_CMD], [0], [Used to examine libraries when file_magic_cmd begins with "file"])dnl ])# _LT_PATH_TOOL_PREFIX # Old name: AU_ALIAS([AC_PATH_TOOL_PREFIX], [_LT_PATH_TOOL_PREFIX]) dnl aclocal-1.4 backwards compatibility: dnl AC_DEFUN([AC_PATH_TOOL_PREFIX], []) # _LT_PATH_MAGIC # -------------- # find a file program which can recognize a shared library m4_defun([_LT_PATH_MAGIC], [_LT_PATH_TOOL_PREFIX(${ac_tool_prefix}file, /usr/bin$PATH_SEPARATOR$PATH) if test -z "$lt_cv_path_MAGIC_CMD"; then if test -n "$ac_tool_prefix"; then _LT_PATH_TOOL_PREFIX(file, /usr/bin$PATH_SEPARATOR$PATH) else MAGIC_CMD=: fi fi ])# _LT_PATH_MAGIC # LT_PATH_LD # ---------- # find the pathname to the GNU or non-GNU linker AC_DEFUN([LT_PATH_LD], [AC_REQUIRE([AC_PROG_CC])dnl AC_REQUIRE([AC_CANONICAL_HOST])dnl AC_REQUIRE([AC_CANONICAL_BUILD])dnl m4_require([_LT_DECL_SED])dnl m4_require([_LT_DECL_EGREP])dnl m4_require([_LT_PROG_ECHO_BACKSLASH])dnl AC_ARG_WITH([gnu-ld], [AS_HELP_STRING([--with-gnu-ld], [assume the C compiler uses GNU ld @<:@default=no@:>@])], [test "$withval" = no || with_gnu_ld=yes], [with_gnu_ld=no])dnl ac_prog=ld if test "$GCC" = yes; then # Check if gcc -print-prog-name=ld gives a path. AC_MSG_CHECKING([for ld used by $CC]) case $host in *-*-mingw*) # gcc leaves a trailing carriage return which upsets mingw ac_prog=`($CC -print-prog-name=ld) 2>&5 | tr -d '\015'` ;; *) ac_prog=`($CC -print-prog-name=ld) 2>&5` ;; esac case $ac_prog in # Accept absolute paths. [[\\/]]* | ?:[[\\/]]*) re_direlt='/[[^/]][[^/]]*/\.\./' # Canonicalize the pathname of ld ac_prog=`$ECHO "$ac_prog"| $SED 's%\\\\%/%g'` while $ECHO "$ac_prog" | $GREP "$re_direlt" > /dev/null 2>&1; do ac_prog=`$ECHO $ac_prog| $SED "s%$re_direlt%/%"` done test -z "$LD" && LD="$ac_prog" ;; "") # If it fails, then pretend we aren't using GCC. ac_prog=ld ;; *) # If it is relative, then search for the first ld in PATH. with_gnu_ld=unknown ;; esac elif test "$with_gnu_ld" = yes; then AC_MSG_CHECKING([for GNU ld]) else AC_MSG_CHECKING([for non-GNU ld]) fi AC_CACHE_VAL(lt_cv_path_LD, [if test -z "$LD"; then lt_save_ifs="$IFS"; IFS=$PATH_SEPARATOR for ac_dir in $PATH; do IFS="$lt_save_ifs" test -z "$ac_dir" && ac_dir=. if test -f "$ac_dir/$ac_prog" || test -f "$ac_dir/$ac_prog$ac_exeext"; then lt_cv_path_LD="$ac_dir/$ac_prog" # Check to see if the program is GNU ld. I'd rather use --version, # but apparently some variants of GNU ld only accept -v. # Break only if it was the GNU/non-GNU ld that we prefer. case `"$lt_cv_path_LD" -v 2>&1 &1 /dev/null 2>&1; then lt_cv_deplibs_check_method='file_magic ^x86 archive import|^x86 DLL' lt_cv_file_magic_cmd='func_win32_libid' else # Keep this pattern in sync with the one in func_win32_libid. lt_cv_deplibs_check_method='file_magic file format (pei*-i386(.*architecture: i386)?|pe-arm-wince|pe-x86-64)' lt_cv_file_magic_cmd='$OBJDUMP -f' fi ;; cegcc*) # use the weaker test based on 'objdump'. See mingw*. lt_cv_deplibs_check_method='file_magic file format pe-arm-.*little(.*architecture: arm)?' lt_cv_file_magic_cmd='$OBJDUMP -f' ;; darwin* | rhapsody*) lt_cv_deplibs_check_method=pass_all ;; freebsd* | dragonfly*) if echo __ELF__ | $CC -E - | $GREP __ELF__ > /dev/null; then case $host_cpu in i*86 ) # Not sure whether the presence of OpenBSD here was a mistake. # Let's accept both of them until this is cleared up. lt_cv_deplibs_check_method='file_magic (FreeBSD|OpenBSD|DragonFly)/i[[3-9]]86 (compact )?demand paged shared library' lt_cv_file_magic_cmd=/usr/bin/file lt_cv_file_magic_test_file=`echo /usr/lib/libc.so.*` ;; esac else lt_cv_deplibs_check_method=pass_all fi ;; gnu*) lt_cv_deplibs_check_method=pass_all ;; haiku*) lt_cv_deplibs_check_method=pass_all ;; hpux10.20* | hpux11*) lt_cv_file_magic_cmd=/usr/bin/file case $host_cpu in ia64*) lt_cv_deplibs_check_method='file_magic (s[[0-9]][[0-9]][[0-9]]|ELF-[[0-9]][[0-9]]) shared object file - IA64' lt_cv_file_magic_test_file=/usr/lib/hpux32/libc.so ;; hppa*64*) [lt_cv_deplibs_check_method='file_magic (s[0-9][0-9][0-9]|ELF[ -][0-9][0-9])(-bit)?( [LM]SB)? shared object( file)?[, -]* PA-RISC [0-9]\.[0-9]'] lt_cv_file_magic_test_file=/usr/lib/pa20_64/libc.sl ;; *) lt_cv_deplibs_check_method='file_magic (s[[0-9]][[0-9]][[0-9]]|PA-RISC[[0-9]]\.[[0-9]]) shared library' lt_cv_file_magic_test_file=/usr/lib/libc.sl ;; esac ;; interix[[3-9]]*) # PIC code is broken on Interix 3.x, that's why |\.a not |_pic\.a here lt_cv_deplibs_check_method='match_pattern /lib[[^/]]+(\.so|\.a)$' ;; irix5* | irix6* | nonstopux*) case $LD in *-32|*"-32 ") libmagic=32-bit;; *-n32|*"-n32 ") libmagic=N32;; *-64|*"-64 ") libmagic=64-bit;; *) libmagic=never-match;; esac lt_cv_deplibs_check_method=pass_all ;; # This must be glibc/ELF. linux* | k*bsd*-gnu | kopensolaris*-gnu) lt_cv_deplibs_check_method=pass_all ;; netbsd* | netbsdelf*-gnu) if echo __ELF__ | $CC -E - | $GREP __ELF__ > /dev/null; then lt_cv_deplibs_check_method='match_pattern /lib[[^/]]+(\.so\.[[0-9]]+\.[[0-9]]+|_pic\.a)$' else lt_cv_deplibs_check_method='match_pattern /lib[[^/]]+(\.so|_pic\.a)$' fi ;; newos6*) lt_cv_deplibs_check_method='file_magic ELF [[0-9]][[0-9]]*-bit [[ML]]SB (executable|dynamic lib)' lt_cv_file_magic_cmd=/usr/bin/file lt_cv_file_magic_test_file=/usr/lib/libnls.so ;; *nto* | *qnx*) lt_cv_deplibs_check_method=pass_all ;; openbsd*) if test -z "`echo __ELF__ | $CC -E - | $GREP __ELF__`" || test "$host_os-$host_cpu" = "openbsd2.8-powerpc"; then lt_cv_deplibs_check_method='match_pattern /lib[[^/]]+(\.so\.[[0-9]]+\.[[0-9]]+|\.so|_pic\.a)$' else lt_cv_deplibs_check_method='match_pattern /lib[[^/]]+(\.so\.[[0-9]]+\.[[0-9]]+|_pic\.a)$' fi ;; osf3* | osf4* | osf5*) lt_cv_deplibs_check_method=pass_all ;; rdos*) lt_cv_deplibs_check_method=pass_all ;; solaris*) lt_cv_deplibs_check_method=pass_all ;; sysv5* | sco3.2v5* | sco5v6* | unixware* | OpenUNIX* | sysv4*uw2*) lt_cv_deplibs_check_method=pass_all ;; sysv4 | sysv4.3*) case $host_vendor in motorola) lt_cv_deplibs_check_method='file_magic ELF [[0-9]][[0-9]]*-bit [[ML]]SB (shared object|dynamic lib) M[[0-9]][[0-9]]* Version [[0-9]]' lt_cv_file_magic_test_file=`echo /usr/lib/libc.so*` ;; ncr) lt_cv_deplibs_check_method=pass_all ;; sequent) lt_cv_file_magic_cmd='/bin/file' lt_cv_deplibs_check_method='file_magic ELF [[0-9]][[0-9]]*-bit [[LM]]SB (shared object|dynamic lib )' ;; sni) lt_cv_file_magic_cmd='/bin/file' lt_cv_deplibs_check_method="file_magic ELF [[0-9]][[0-9]]*-bit [[LM]]SB dynamic lib" lt_cv_file_magic_test_file=/lib/libc.so ;; siemens) lt_cv_deplibs_check_method=pass_all ;; pc) lt_cv_deplibs_check_method=pass_all ;; esac ;; tpf*) lt_cv_deplibs_check_method=pass_all ;; esac ]) file_magic_glob= want_nocaseglob=no if test "$build" = "$host"; then case $host_os in mingw* | pw32*) if ( shopt | grep nocaseglob ) >/dev/null 2>&1; then want_nocaseglob=yes else file_magic_glob=`echo aAbBcCdDeEfFgGhHiIjJkKlLmMnNoOpPqQrRsStTuUvVwWxXyYzZ | $SED -e "s/\(..\)/s\/[[\1]]\/[[\1]]\/g;/g"` fi ;; esac fi file_magic_cmd=$lt_cv_file_magic_cmd deplibs_check_method=$lt_cv_deplibs_check_method test -z "$deplibs_check_method" && deplibs_check_method=unknown _LT_DECL([], [deplibs_check_method], [1], [Method to check whether dependent libraries are shared objects]) _LT_DECL([], [file_magic_cmd], [1], [Command to use when deplibs_check_method = "file_magic"]) _LT_DECL([], [file_magic_glob], [1], [How to find potential files when deplibs_check_method = "file_magic"]) _LT_DECL([], [want_nocaseglob], [1], [Find potential files using nocaseglob when deplibs_check_method = "file_magic"]) ])# _LT_CHECK_MAGIC_METHOD # LT_PATH_NM # ---------- # find the pathname to a BSD- or MS-compatible name lister AC_DEFUN([LT_PATH_NM], [AC_REQUIRE([AC_PROG_CC])dnl AC_CACHE_CHECK([for BSD- or MS-compatible name lister (nm)], lt_cv_path_NM, [if test -n "$NM"; then # Let the user override the test. lt_cv_path_NM="$NM" else lt_nm_to_check="${ac_tool_prefix}nm" if test -n "$ac_tool_prefix" && test "$build" = "$host"; then lt_nm_to_check="$lt_nm_to_check nm" fi for lt_tmp_nm in $lt_nm_to_check; do lt_save_ifs="$IFS"; IFS=$PATH_SEPARATOR for ac_dir in $PATH /usr/ccs/bin/elf /usr/ccs/bin /usr/ucb /bin; do IFS="$lt_save_ifs" test -z "$ac_dir" && ac_dir=. tmp_nm="$ac_dir/$lt_tmp_nm" if test -f "$tmp_nm" || test -f "$tmp_nm$ac_exeext" ; then # Check to see if the nm accepts a BSD-compat flag. # Adding the `sed 1q' prevents false positives on HP-UX, which says: # nm: unknown option "B" ignored # Tru64's nm complains that /dev/null is an invalid object file case `"$tmp_nm" -B /dev/null 2>&1 | sed '1q'` in */dev/null* | *'Invalid file or object type'*) lt_cv_path_NM="$tmp_nm -B" break ;; *) case `"$tmp_nm" -p /dev/null 2>&1 | sed '1q'` in */dev/null*) lt_cv_path_NM="$tmp_nm -p" break ;; *) lt_cv_path_NM=${lt_cv_path_NM="$tmp_nm"} # keep the first match, but continue # so that we can try to find one that supports BSD flags ;; esac ;; esac fi done IFS="$lt_save_ifs" done : ${lt_cv_path_NM=no} fi]) if test "$lt_cv_path_NM" != "no"; then NM="$lt_cv_path_NM" else # Didn't find any BSD compatible name lister, look for dumpbin. if test -n "$DUMPBIN"; then : # Let the user override the test. else AC_CHECK_TOOLS(DUMPBIN, [dumpbin "link -dump"], :) case `$DUMPBIN -symbols /dev/null 2>&1 | sed '1q'` in *COFF*) DUMPBIN="$DUMPBIN -symbols" ;; *) DUMPBIN=: ;; esac fi AC_SUBST([DUMPBIN]) if test "$DUMPBIN" != ":"; then NM="$DUMPBIN" fi fi test -z "$NM" && NM=nm AC_SUBST([NM]) _LT_DECL([], [NM], [1], [A BSD- or MS-compatible name lister])dnl AC_CACHE_CHECK([the name lister ($NM) interface], [lt_cv_nm_interface], [lt_cv_nm_interface="BSD nm" echo "int some_variable = 0;" > conftest.$ac_ext (eval echo "\"\$as_me:$LINENO: $ac_compile\"" >&AS_MESSAGE_LOG_FD) (eval "$ac_compile" 2>conftest.err) cat conftest.err >&AS_MESSAGE_LOG_FD (eval echo "\"\$as_me:$LINENO: $NM \\\"conftest.$ac_objext\\\"\"" >&AS_MESSAGE_LOG_FD) (eval "$NM \"conftest.$ac_objext\"" 2>conftest.err > conftest.out) cat conftest.err >&AS_MESSAGE_LOG_FD (eval echo "\"\$as_me:$LINENO: output\"" >&AS_MESSAGE_LOG_FD) cat conftest.out >&AS_MESSAGE_LOG_FD if $GREP 'External.*some_variable' conftest.out > /dev/null; then lt_cv_nm_interface="MS dumpbin" fi rm -f conftest*]) ])# LT_PATH_NM # Old names: AU_ALIAS([AM_PROG_NM], [LT_PATH_NM]) AU_ALIAS([AC_PROG_NM], [LT_PATH_NM]) dnl aclocal-1.4 backwards compatibility: dnl AC_DEFUN([AM_PROG_NM], []) dnl AC_DEFUN([AC_PROG_NM], []) # _LT_CHECK_SHAREDLIB_FROM_LINKLIB # -------------------------------- # how to determine the name of the shared library # associated with a specific link library. # -- PORTME fill in with the dynamic library characteristics m4_defun([_LT_CHECK_SHAREDLIB_FROM_LINKLIB], [m4_require([_LT_DECL_EGREP]) m4_require([_LT_DECL_OBJDUMP]) m4_require([_LT_DECL_DLLTOOL]) AC_CACHE_CHECK([how to associate runtime and link libraries], lt_cv_sharedlib_from_linklib_cmd, [lt_cv_sharedlib_from_linklib_cmd='unknown' case $host_os in cygwin* | mingw* | pw32* | cegcc*) # two different shell functions defined in ltmain.sh # decide which to use based on capabilities of $DLLTOOL case `$DLLTOOL --help 2>&1` in *--identify-strict*) lt_cv_sharedlib_from_linklib_cmd=func_cygming_dll_for_implib ;; *) lt_cv_sharedlib_from_linklib_cmd=func_cygming_dll_for_implib_fallback ;; esac ;; *) # fallback: assume linklib IS sharedlib lt_cv_sharedlib_from_linklib_cmd="$ECHO" ;; esac ]) sharedlib_from_linklib_cmd=$lt_cv_sharedlib_from_linklib_cmd test -z "$sharedlib_from_linklib_cmd" && sharedlib_from_linklib_cmd=$ECHO _LT_DECL([], [sharedlib_from_linklib_cmd], [1], [Command to associate shared and link libraries]) ])# _LT_CHECK_SHAREDLIB_FROM_LINKLIB # _LT_PATH_MANIFEST_TOOL # ---------------------- # locate the manifest tool m4_defun([_LT_PATH_MANIFEST_TOOL], [AC_CHECK_TOOL(MANIFEST_TOOL, mt, :) test -z "$MANIFEST_TOOL" && MANIFEST_TOOL=mt AC_CACHE_CHECK([if $MANIFEST_TOOL is a manifest tool], [lt_cv_path_mainfest_tool], [lt_cv_path_mainfest_tool=no echo "$as_me:$LINENO: $MANIFEST_TOOL '-?'" >&AS_MESSAGE_LOG_FD $MANIFEST_TOOL '-?' 2>conftest.err > conftest.out cat conftest.err >&AS_MESSAGE_LOG_FD if $GREP 'Manifest Tool' conftest.out > /dev/null; then lt_cv_path_mainfest_tool=yes fi rm -f conftest*]) if test "x$lt_cv_path_mainfest_tool" != xyes; then MANIFEST_TOOL=: fi _LT_DECL([], [MANIFEST_TOOL], [1], [Manifest tool])dnl ])# _LT_PATH_MANIFEST_TOOL # LT_LIB_M # -------- # check for math library AC_DEFUN([LT_LIB_M], [AC_REQUIRE([AC_CANONICAL_HOST])dnl LIBM= case $host in *-*-beos* | *-*-cegcc* | *-*-cygwin* | *-*-haiku* | *-*-pw32* | *-*-darwin*) # These system don't have libm, or don't need it ;; *-ncr-sysv4.3*) AC_CHECK_LIB(mw, _mwvalidcheckl, LIBM="-lmw") AC_CHECK_LIB(m, cos, LIBM="$LIBM -lm") ;; *) AC_CHECK_LIB(m, cos, LIBM="-lm") ;; esac AC_SUBST([LIBM]) ])# LT_LIB_M # Old name: AU_ALIAS([AC_CHECK_LIBM], [LT_LIB_M]) dnl aclocal-1.4 backwards compatibility: dnl AC_DEFUN([AC_CHECK_LIBM], []) # _LT_COMPILER_NO_RTTI([TAGNAME]) # ------------------------------- m4_defun([_LT_COMPILER_NO_RTTI], [m4_require([_LT_TAG_COMPILER])dnl _LT_TAGVAR(lt_prog_compiler_no_builtin_flag, $1)= if test "$GCC" = yes; then case $cc_basename in nvcc*) _LT_TAGVAR(lt_prog_compiler_no_builtin_flag, $1)=' -Xcompiler -fno-builtin' ;; *) _LT_TAGVAR(lt_prog_compiler_no_builtin_flag, $1)=' -fno-builtin' ;; esac _LT_COMPILER_OPTION([if $compiler supports -fno-rtti -fno-exceptions], lt_cv_prog_compiler_rtti_exceptions, [-fno-rtti -fno-exceptions], [], [_LT_TAGVAR(lt_prog_compiler_no_builtin_flag, $1)="$_LT_TAGVAR(lt_prog_compiler_no_builtin_flag, $1) -fno-rtti -fno-exceptions"]) fi _LT_TAGDECL([no_builtin_flag], [lt_prog_compiler_no_builtin_flag], [1], [Compiler flag to turn off builtin functions]) ])# _LT_COMPILER_NO_RTTI # _LT_CMD_GLOBAL_SYMBOLS # ---------------------- m4_defun([_LT_CMD_GLOBAL_SYMBOLS], [AC_REQUIRE([AC_CANONICAL_HOST])dnl AC_REQUIRE([AC_PROG_CC])dnl AC_REQUIRE([AC_PROG_AWK])dnl AC_REQUIRE([LT_PATH_NM])dnl AC_REQUIRE([LT_PATH_LD])dnl m4_require([_LT_DECL_SED])dnl m4_require([_LT_DECL_EGREP])dnl m4_require([_LT_TAG_COMPILER])dnl # Check for command to grab the raw symbol name followed by C symbol from nm. AC_MSG_CHECKING([command to parse $NM output from $compiler object]) AC_CACHE_VAL([lt_cv_sys_global_symbol_pipe], [ # These are sane defaults that work on at least a few old systems. # [They come from Ultrix. What could be older than Ultrix?!! ;)] # Character class describing NM global symbol codes. symcode='[[BCDEGRST]]' # Regexp to match symbols that can be accessed directly from C. sympat='\([[_A-Za-z]][[_A-Za-z0-9]]*\)' # Define system-specific variables. case $host_os in aix*) symcode='[[BCDT]]' ;; cygwin* | mingw* | pw32* | cegcc*) symcode='[[ABCDGISTW]]' ;; hpux*) if test "$host_cpu" = ia64; then symcode='[[ABCDEGRST]]' fi ;; irix* | nonstopux*) symcode='[[BCDEGRST]]' ;; osf*) symcode='[[BCDEGQRST]]' ;; solaris*) symcode='[[BDRT]]' ;; sco3.2v5*) symcode='[[DT]]' ;; sysv4.2uw2*) symcode='[[DT]]' ;; sysv5* | sco5v6* | unixware* | OpenUNIX*) symcode='[[ABDT]]' ;; sysv4) symcode='[[DFNSTU]]' ;; esac # If we're using GNU nm, then use its standard symbol codes. case `$NM -V 2>&1` in *GNU* | *'with BFD'*) symcode='[[ABCDGIRSTW]]' ;; esac # Transform an extracted symbol line into a proper C declaration. # Some systems (esp. on ia64) link data and code symbols differently, # so use this general approach. lt_cv_sys_global_symbol_to_cdecl="sed -n -e 's/^T .* \(.*\)$/extern int \1();/p' -e 's/^$symcode* .* \(.*\)$/extern char \1;/p'" # Transform an extracted symbol line into symbol name and symbol address lt_cv_sys_global_symbol_to_c_name_address="sed -n -e 's/^: \([[^ ]]*\)[[ ]]*$/ {\\\"\1\\\", (void *) 0},/p' -e 's/^$symcode* \([[^ ]]*\) \([[^ ]]*\)$/ {\"\2\", (void *) \&\2},/p'" lt_cv_sys_global_symbol_to_c_name_address_lib_prefix="sed -n -e 's/^: \([[^ ]]*\)[[ ]]*$/ {\\\"\1\\\", (void *) 0},/p' -e 's/^$symcode* \([[^ ]]*\) \(lib[[^ ]]*\)$/ {\"\2\", (void *) \&\2},/p' -e 's/^$symcode* \([[^ ]]*\) \([[^ ]]*\)$/ {\"lib\2\", (void *) \&\2},/p'" # Handle CRLF in mingw tool chain opt_cr= case $build_os in mingw*) opt_cr=`$ECHO 'x\{0,1\}' | tr x '\015'` # option cr in regexp ;; esac # Try without a prefix underscore, then with it. for ac_symprfx in "" "_"; do # Transform symcode, sympat, and symprfx into a raw symbol and a C symbol. symxfrm="\\1 $ac_symprfx\\2 \\2" # Write the raw and C identifiers. if test "$lt_cv_nm_interface" = "MS dumpbin"; then # Fake it for dumpbin and say T for any non-static function # and D for any global variable. # Also find C++ and __fastcall symbols from MSVC++, # which start with @ or ?. lt_cv_sys_global_symbol_pipe="$AWK ['"\ " {last_section=section; section=\$ 3};"\ " /^COFF SYMBOL TABLE/{for(i in hide) delete hide[i]};"\ " /Section length .*#relocs.*(pick any)/{hide[last_section]=1};"\ " \$ 0!~/External *\|/{next};"\ " / 0+ UNDEF /{next}; / UNDEF \([^|]\)*()/{next};"\ " {if(hide[section]) next};"\ " {f=0}; \$ 0~/\(\).*\|/{f=1}; {printf f ? \"T \" : \"D \"};"\ " {split(\$ 0, a, /\||\r/); split(a[2], s)};"\ " s[1]~/^[@?]/{print s[1], s[1]; next};"\ " s[1]~prfx {split(s[1],t,\"@\"); print t[1], substr(t[1],length(prfx))}"\ " ' prfx=^$ac_symprfx]" else lt_cv_sys_global_symbol_pipe="sed -n -e 's/^.*[[ ]]\($symcode$symcode*\)[[ ]][[ ]]*$ac_symprfx$sympat$opt_cr$/$symxfrm/p'" fi lt_cv_sys_global_symbol_pipe="$lt_cv_sys_global_symbol_pipe | sed '/ __gnu_lto/d'" # Check to see that the pipe works correctly. pipe_works=no rm -f conftest* cat > conftest.$ac_ext <<_LT_EOF #ifdef __cplusplus extern "C" { #endif char nm_test_var; void nm_test_func(void); void nm_test_func(void){} #ifdef __cplusplus } #endif int main(){nm_test_var='a';nm_test_func();return(0);} _LT_EOF if AC_TRY_EVAL(ac_compile); then # Now try to grab the symbols. nlist=conftest.nm if AC_TRY_EVAL(NM conftest.$ac_objext \| "$lt_cv_sys_global_symbol_pipe" \> $nlist) && test -s "$nlist"; then # Try sorting and uniquifying the output. if sort "$nlist" | uniq > "$nlist"T; then mv -f "$nlist"T "$nlist" else rm -f "$nlist"T fi # Make sure that we snagged all the symbols we need. if $GREP ' nm_test_var$' "$nlist" >/dev/null; then if $GREP ' nm_test_func$' "$nlist" >/dev/null; then cat <<_LT_EOF > conftest.$ac_ext /* Keep this code in sync between libtool.m4, ltmain, lt_system.h, and tests. */ #if defined(_WIN32) || defined(__CYGWIN__) || defined(_WIN32_WCE) /* DATA imports from DLLs on WIN32 con't be const, because runtime relocations are performed -- see ld's documentation on pseudo-relocs. */ # define LT@&t@_DLSYM_CONST #elif defined(__osf__) /* This system does not cope well with relocations in const data. */ # define LT@&t@_DLSYM_CONST #else # define LT@&t@_DLSYM_CONST const #endif #ifdef __cplusplus extern "C" { #endif _LT_EOF # Now generate the symbol file. eval "$lt_cv_sys_global_symbol_to_cdecl"' < "$nlist" | $GREP -v main >> conftest.$ac_ext' cat <<_LT_EOF >> conftest.$ac_ext /* The mapping between symbol names and symbols. */ LT@&t@_DLSYM_CONST struct { const char *name; void *address; } lt__PROGRAM__LTX_preloaded_symbols[[]] = { { "@PROGRAM@", (void *) 0 }, _LT_EOF $SED "s/^$symcode$symcode* \(.*\) \(.*\)$/ {\"\2\", (void *) \&\2},/" < "$nlist" | $GREP -v main >> conftest.$ac_ext cat <<\_LT_EOF >> conftest.$ac_ext {0, (void *) 0} }; /* This works around a problem in FreeBSD linker */ #ifdef FREEBSD_WORKAROUND static const void *lt_preloaded_setup() { return lt__PROGRAM__LTX_preloaded_symbols; } #endif #ifdef __cplusplus } #endif _LT_EOF # Now try linking the two files. mv conftest.$ac_objext conftstm.$ac_objext lt_globsym_save_LIBS=$LIBS lt_globsym_save_CFLAGS=$CFLAGS LIBS="conftstm.$ac_objext" CFLAGS="$CFLAGS$_LT_TAGVAR(lt_prog_compiler_no_builtin_flag, $1)" if AC_TRY_EVAL(ac_link) && test -s conftest${ac_exeext}; then pipe_works=yes fi LIBS=$lt_globsym_save_LIBS CFLAGS=$lt_globsym_save_CFLAGS else echo "cannot find nm_test_func in $nlist" >&AS_MESSAGE_LOG_FD fi else echo "cannot find nm_test_var in $nlist" >&AS_MESSAGE_LOG_FD fi else echo "cannot run $lt_cv_sys_global_symbol_pipe" >&AS_MESSAGE_LOG_FD fi else echo "$progname: failed program was:" >&AS_MESSAGE_LOG_FD cat conftest.$ac_ext >&5 fi rm -rf conftest* conftst* # Do not use the global_symbol_pipe unless it works. if test "$pipe_works" = yes; then break else lt_cv_sys_global_symbol_pipe= fi done ]) if test -z "$lt_cv_sys_global_symbol_pipe"; then lt_cv_sys_global_symbol_to_cdecl= fi if test -z "$lt_cv_sys_global_symbol_pipe$lt_cv_sys_global_symbol_to_cdecl"; then AC_MSG_RESULT(failed) else AC_MSG_RESULT(ok) fi # Response file support. if test "$lt_cv_nm_interface" = "MS dumpbin"; then nm_file_list_spec='@' elif $NM --help 2>/dev/null | grep '[[@]]FILE' >/dev/null; then nm_file_list_spec='@' fi _LT_DECL([global_symbol_pipe], [lt_cv_sys_global_symbol_pipe], [1], [Take the output of nm and produce a listing of raw symbols and C names]) _LT_DECL([global_symbol_to_cdecl], [lt_cv_sys_global_symbol_to_cdecl], [1], [Transform the output of nm in a proper C declaration]) _LT_DECL([global_symbol_to_c_name_address], [lt_cv_sys_global_symbol_to_c_name_address], [1], [Transform the output of nm in a C name address pair]) _LT_DECL([global_symbol_to_c_name_address_lib_prefix], [lt_cv_sys_global_symbol_to_c_name_address_lib_prefix], [1], [Transform the output of nm in a C name address pair when lib prefix is needed]) _LT_DECL([], [nm_file_list_spec], [1], [Specify filename containing input files for $NM]) ]) # _LT_CMD_GLOBAL_SYMBOLS # _LT_COMPILER_PIC([TAGNAME]) # --------------------------- m4_defun([_LT_COMPILER_PIC], [m4_require([_LT_TAG_COMPILER])dnl _LT_TAGVAR(lt_prog_compiler_wl, $1)= _LT_TAGVAR(lt_prog_compiler_pic, $1)= _LT_TAGVAR(lt_prog_compiler_static, $1)= m4_if([$1], [CXX], [ # C++ specific cases for pic, static, wl, etc. if test "$GXX" = yes; then _LT_TAGVAR(lt_prog_compiler_wl, $1)='-Wl,' _LT_TAGVAR(lt_prog_compiler_static, $1)='-static' case $host_os in aix*) # All AIX code is PIC. if test "$host_cpu" = ia64; then # AIX 5 now supports IA64 processor _LT_TAGVAR(lt_prog_compiler_static, $1)='-Bstatic' fi ;; amigaos*) case $host_cpu in powerpc) # see comment about AmigaOS4 .so support _LT_TAGVAR(lt_prog_compiler_pic, $1)='-fPIC' ;; m68k) # FIXME: we need at least 68020 code to build shared libraries, but # adding the `-m68020' flag to GCC prevents building anything better, # like `-m68040'. _LT_TAGVAR(lt_prog_compiler_pic, $1)='-m68020 -resident32 -malways-restore-a4' ;; esac ;; beos* | irix5* | irix6* | nonstopux* | osf3* | osf4* | osf5*) # PIC is the default for these OSes. ;; mingw* | cygwin* | os2* | pw32* | cegcc*) # This hack is so that the source file can tell whether it is being # built for inclusion in a dll (and should export symbols for example). # Although the cygwin gcc ignores -fPIC, still need this for old-style # (--disable-auto-import) libraries m4_if([$1], [GCJ], [], [_LT_TAGVAR(lt_prog_compiler_pic, $1)='-DDLL_EXPORT']) ;; darwin* | rhapsody*) # PIC is the default on this platform # Common symbols not allowed in MH_DYLIB files _LT_TAGVAR(lt_prog_compiler_pic, $1)='-fno-common' ;; *djgpp*) # DJGPP does not support shared libraries at all _LT_TAGVAR(lt_prog_compiler_pic, $1)= ;; haiku*) # PIC is the default for Haiku. # The "-static" flag exists, but is broken. _LT_TAGVAR(lt_prog_compiler_static, $1)= ;; interix[[3-9]]*) # Interix 3.x gcc -fpic/-fPIC options generate broken code. # Instead, we relocate shared libraries at runtime. ;; sysv4*MP*) if test -d /usr/nec; then _LT_TAGVAR(lt_prog_compiler_pic, $1)=-Kconform_pic fi ;; hpux*) # PIC is the default for 64-bit PA HP-UX, but not for 32-bit # PA HP-UX. On IA64 HP-UX, PIC is the default but the pic flag # sets the default TLS model and affects inlining. case $host_cpu in hppa*64*) ;; *) _LT_TAGVAR(lt_prog_compiler_pic, $1)='-fPIC' ;; esac ;; *qnx* | *nto*) # QNX uses GNU C++, but need to define -shared option too, otherwise # it will coredump. _LT_TAGVAR(lt_prog_compiler_pic, $1)='-fPIC -shared' ;; *) _LT_TAGVAR(lt_prog_compiler_pic, $1)='-fPIC' ;; esac else case $host_os in aix[[4-9]]*) # All AIX code is PIC. if test "$host_cpu" = ia64; then # AIX 5 now supports IA64 processor _LT_TAGVAR(lt_prog_compiler_static, $1)='-Bstatic' else _LT_TAGVAR(lt_prog_compiler_static, $1)='-bnso -bI:/lib/syscalls.exp' fi ;; chorus*) case $cc_basename in cxch68*) # Green Hills C++ Compiler # _LT_TAGVAR(lt_prog_compiler_static, $1)="--no_auto_instantiation -u __main -u __premain -u _abort -r $COOL_DIR/lib/libOrb.a $MVME_DIR/lib/CC/libC.a $MVME_DIR/lib/classix/libcx.s.a" ;; esac ;; mingw* | cygwin* | os2* | pw32* | cegcc*) # This hack is so that the source file can tell whether it is being # built for inclusion in a dll (and should export symbols for example). m4_if([$1], [GCJ], [], [_LT_TAGVAR(lt_prog_compiler_pic, $1)='-DDLL_EXPORT']) ;; dgux*) case $cc_basename in ec++*) _LT_TAGVAR(lt_prog_compiler_pic, $1)='-KPIC' ;; ghcx*) # Green Hills C++ Compiler _LT_TAGVAR(lt_prog_compiler_pic, $1)='-pic' ;; *) ;; esac ;; freebsd* | dragonfly*) # FreeBSD uses GNU C++ ;; hpux9* | hpux10* | hpux11*) case $cc_basename in CC*) _LT_TAGVAR(lt_prog_compiler_wl, $1)='-Wl,' _LT_TAGVAR(lt_prog_compiler_static, $1)='${wl}-a ${wl}archive' if test "$host_cpu" != ia64; then _LT_TAGVAR(lt_prog_compiler_pic, $1)='+Z' fi ;; aCC*) _LT_TAGVAR(lt_prog_compiler_wl, $1)='-Wl,' _LT_TAGVAR(lt_prog_compiler_static, $1)='${wl}-a ${wl}archive' case $host_cpu in hppa*64*|ia64*) # +Z the default ;; *) _LT_TAGVAR(lt_prog_compiler_pic, $1)='+Z' ;; esac ;; *) ;; esac ;; interix*) # This is c89, which is MS Visual C++ (no shared libs) # Anyone wants to do a port? ;; irix5* | irix6* | nonstopux*) case $cc_basename in CC*) _LT_TAGVAR(lt_prog_compiler_wl, $1)='-Wl,' _LT_TAGVAR(lt_prog_compiler_static, $1)='-non_shared' # CC pic flag -KPIC is the default. ;; *) ;; esac ;; linux* | k*bsd*-gnu | kopensolaris*-gnu) case $cc_basename in KCC*) # KAI C++ Compiler _LT_TAGVAR(lt_prog_compiler_wl, $1)='--backend -Wl,' _LT_TAGVAR(lt_prog_compiler_pic, $1)='-fPIC' ;; ecpc* ) # old Intel C++ for x86_64 which still supported -KPIC. _LT_TAGVAR(lt_prog_compiler_wl, $1)='-Wl,' _LT_TAGVAR(lt_prog_compiler_pic, $1)='-KPIC' _LT_TAGVAR(lt_prog_compiler_static, $1)='-static' ;; icpc* ) # Intel C++, used to be incompatible with GCC. # ICC 10 doesn't accept -KPIC any more. _LT_TAGVAR(lt_prog_compiler_wl, $1)='-Wl,' _LT_TAGVAR(lt_prog_compiler_pic, $1)='-fPIC' _LT_TAGVAR(lt_prog_compiler_static, $1)='-static' ;; pgCC* | pgcpp*) # Portland Group C++ compiler _LT_TAGVAR(lt_prog_compiler_wl, $1)='-Wl,' _LT_TAGVAR(lt_prog_compiler_pic, $1)='-fpic' _LT_TAGVAR(lt_prog_compiler_static, $1)='-Bstatic' ;; cxx*) # Compaq C++ # Make sure the PIC flag is empty. It appears that all Alpha # Linux and Compaq Tru64 Unix objects are PIC. _LT_TAGVAR(lt_prog_compiler_pic, $1)= _LT_TAGVAR(lt_prog_compiler_static, $1)='-non_shared' ;; xlc* | xlC* | bgxl[[cC]]* | mpixl[[cC]]*) # IBM XL 8.0, 9.0 on PPC and BlueGene _LT_TAGVAR(lt_prog_compiler_wl, $1)='-Wl,' _LT_TAGVAR(lt_prog_compiler_pic, $1)='-qpic' _LT_TAGVAR(lt_prog_compiler_static, $1)='-qstaticlink' ;; *) case `$CC -V 2>&1 | sed 5q` in *Sun\ C*) # Sun C++ 5.9 _LT_TAGVAR(lt_prog_compiler_pic, $1)='-KPIC' _LT_TAGVAR(lt_prog_compiler_static, $1)='-Bstatic' _LT_TAGVAR(lt_prog_compiler_wl, $1)='-Qoption ld ' ;; esac ;; esac ;; lynxos*) ;; m88k*) ;; mvs*) case $cc_basename in cxx*) _LT_TAGVAR(lt_prog_compiler_pic, $1)='-W c,exportall' ;; *) ;; esac ;; netbsd* | netbsdelf*-gnu) ;; *qnx* | *nto*) # QNX uses GNU C++, but need to define -shared option too, otherwise # it will coredump. _LT_TAGVAR(lt_prog_compiler_pic, $1)='-fPIC -shared' ;; osf3* | osf4* | osf5*) case $cc_basename in KCC*) _LT_TAGVAR(lt_prog_compiler_wl, $1)='--backend -Wl,' ;; RCC*) # Rational C++ 2.4.1 _LT_TAGVAR(lt_prog_compiler_pic, $1)='-pic' ;; cxx*) # Digital/Compaq C++ _LT_TAGVAR(lt_prog_compiler_wl, $1)='-Wl,' # Make sure the PIC flag is empty. It appears that all Alpha # Linux and Compaq Tru64 Unix objects are PIC. _LT_TAGVAR(lt_prog_compiler_pic, $1)= _LT_TAGVAR(lt_prog_compiler_static, $1)='-non_shared' ;; *) ;; esac ;; psos*) ;; solaris*) case $cc_basename in CC* | sunCC*) # Sun C++ 4.2, 5.x and Centerline C++ _LT_TAGVAR(lt_prog_compiler_pic, $1)='-KPIC' _LT_TAGVAR(lt_prog_compiler_static, $1)='-Bstatic' _LT_TAGVAR(lt_prog_compiler_wl, $1)='-Qoption ld ' ;; gcx*) # Green Hills C++ Compiler _LT_TAGVAR(lt_prog_compiler_pic, $1)='-PIC' ;; *) ;; esac ;; sunos4*) case $cc_basename in CC*) # Sun C++ 4.x _LT_TAGVAR(lt_prog_compiler_pic, $1)='-pic' _LT_TAGVAR(lt_prog_compiler_static, $1)='-Bstatic' ;; lcc*) # Lucid _LT_TAGVAR(lt_prog_compiler_pic, $1)='-pic' ;; *) ;; esac ;; sysv5* | unixware* | sco3.2v5* | sco5v6* | OpenUNIX*) case $cc_basename in CC*) _LT_TAGVAR(lt_prog_compiler_wl, $1)='-Wl,' _LT_TAGVAR(lt_prog_compiler_pic, $1)='-KPIC' _LT_TAGVAR(lt_prog_compiler_static, $1)='-Bstatic' ;; esac ;; tandem*) case $cc_basename in NCC*) # NonStop-UX NCC 3.20 _LT_TAGVAR(lt_prog_compiler_pic, $1)='-KPIC' ;; *) ;; esac ;; vxworks*) ;; *) _LT_TAGVAR(lt_prog_compiler_can_build_shared, $1)=no ;; esac fi ], [ if test "$GCC" = yes; then _LT_TAGVAR(lt_prog_compiler_wl, $1)='-Wl,' _LT_TAGVAR(lt_prog_compiler_static, $1)='-static' case $host_os in aix*) # All AIX code is PIC. if test "$host_cpu" = ia64; then # AIX 5 now supports IA64 processor _LT_TAGVAR(lt_prog_compiler_static, $1)='-Bstatic' fi ;; amigaos*) case $host_cpu in powerpc) # see comment about AmigaOS4 .so support _LT_TAGVAR(lt_prog_compiler_pic, $1)='-fPIC' ;; m68k) # FIXME: we need at least 68020 code to build shared libraries, but # adding the `-m68020' flag to GCC prevents building anything better, # like `-m68040'. _LT_TAGVAR(lt_prog_compiler_pic, $1)='-m68020 -resident32 -malways-restore-a4' ;; esac ;; beos* | irix5* | irix6* | nonstopux* | osf3* | osf4* | osf5*) # PIC is the default for these OSes. ;; mingw* | cygwin* | pw32* | os2* | cegcc*) # This hack is so that the source file can tell whether it is being # built for inclusion in a dll (and should export symbols for example). # Although the cygwin gcc ignores -fPIC, still need this for old-style # (--disable-auto-import) libraries m4_if([$1], [GCJ], [], [_LT_TAGVAR(lt_prog_compiler_pic, $1)='-DDLL_EXPORT']) ;; darwin* | rhapsody*) # PIC is the default on this platform # Common symbols not allowed in MH_DYLIB files _LT_TAGVAR(lt_prog_compiler_pic, $1)='-fno-common' ;; haiku*) # PIC is the default for Haiku. # The "-static" flag exists, but is broken. _LT_TAGVAR(lt_prog_compiler_static, $1)= ;; hpux*) # PIC is the default for 64-bit PA HP-UX, but not for 32-bit # PA HP-UX. On IA64 HP-UX, PIC is the default but the pic flag # sets the default TLS model and affects inlining. case $host_cpu in hppa*64*) # +Z the default ;; *) _LT_TAGVAR(lt_prog_compiler_pic, $1)='-fPIC' ;; esac ;; interix[[3-9]]*) # Interix 3.x gcc -fpic/-fPIC options generate broken code. # Instead, we relocate shared libraries at runtime. ;; msdosdjgpp*) # Just because we use GCC doesn't mean we suddenly get shared libraries # on systems that don't support them. _LT_TAGVAR(lt_prog_compiler_can_build_shared, $1)=no enable_shared=no ;; *nto* | *qnx*) # QNX uses GNU C++, but need to define -shared option too, otherwise # it will coredump. _LT_TAGVAR(lt_prog_compiler_pic, $1)='-fPIC -shared' ;; sysv4*MP*) if test -d /usr/nec; then _LT_TAGVAR(lt_prog_compiler_pic, $1)=-Kconform_pic fi ;; *) _LT_TAGVAR(lt_prog_compiler_pic, $1)='-fPIC' ;; esac case $cc_basename in nvcc*) # Cuda Compiler Driver 2.2 _LT_TAGVAR(lt_prog_compiler_wl, $1)='-Xlinker ' if test -n "$_LT_TAGVAR(lt_prog_compiler_pic, $1)"; then _LT_TAGVAR(lt_prog_compiler_pic, $1)="-Xcompiler $_LT_TAGVAR(lt_prog_compiler_pic, $1)" fi ;; esac else # PORTME Check for flag to pass linker flags through the system compiler. case $host_os in aix*) _LT_TAGVAR(lt_prog_compiler_wl, $1)='-Wl,' if test "$host_cpu" = ia64; then # AIX 5 now supports IA64 processor _LT_TAGVAR(lt_prog_compiler_static, $1)='-Bstatic' else _LT_TAGVAR(lt_prog_compiler_static, $1)='-bnso -bI:/lib/syscalls.exp' fi ;; mingw* | cygwin* | pw32* | os2* | cegcc*) # This hack is so that the source file can tell whether it is being # built for inclusion in a dll (and should export symbols for example). m4_if([$1], [GCJ], [], [_LT_TAGVAR(lt_prog_compiler_pic, $1)='-DDLL_EXPORT']) ;; hpux9* | hpux10* | hpux11*) _LT_TAGVAR(lt_prog_compiler_wl, $1)='-Wl,' # PIC is the default for IA64 HP-UX and 64-bit HP-UX, but # not for PA HP-UX. case $host_cpu in hppa*64*|ia64*) # +Z the default ;; *) _LT_TAGVAR(lt_prog_compiler_pic, $1)='+Z' ;; esac # Is there a better lt_prog_compiler_static that works with the bundled CC? _LT_TAGVAR(lt_prog_compiler_static, $1)='${wl}-a ${wl}archive' ;; irix5* | irix6* | nonstopux*) _LT_TAGVAR(lt_prog_compiler_wl, $1)='-Wl,' # PIC (with -KPIC) is the default. _LT_TAGVAR(lt_prog_compiler_static, $1)='-non_shared' ;; linux* | k*bsd*-gnu | kopensolaris*-gnu) case $cc_basename in # old Intel for x86_64 which still supported -KPIC. ecc*) _LT_TAGVAR(lt_prog_compiler_wl, $1)='-Wl,' _LT_TAGVAR(lt_prog_compiler_pic, $1)='-KPIC' _LT_TAGVAR(lt_prog_compiler_static, $1)='-static' ;; # icc used to be incompatible with GCC. # ICC 10 doesn't accept -KPIC any more. icc* | ifort*) _LT_TAGVAR(lt_prog_compiler_wl, $1)='-Wl,' _LT_TAGVAR(lt_prog_compiler_pic, $1)='-fPIC' _LT_TAGVAR(lt_prog_compiler_static, $1)='-static' ;; # Lahey Fortran 8.1. lf95*) _LT_TAGVAR(lt_prog_compiler_wl, $1)='-Wl,' _LT_TAGVAR(lt_prog_compiler_pic, $1)='--shared' _LT_TAGVAR(lt_prog_compiler_static, $1)='--static' ;; nagfor*) # NAG Fortran compiler _LT_TAGVAR(lt_prog_compiler_wl, $1)='-Wl,-Wl,,' _LT_TAGVAR(lt_prog_compiler_pic, $1)='-PIC' _LT_TAGVAR(lt_prog_compiler_static, $1)='-Bstatic' ;; pgcc* | pgf77* | pgf90* | pgf95* | pgfortran*) # Portland Group compilers (*not* the Pentium gcc compiler, # which looks to be a dead project) _LT_TAGVAR(lt_prog_compiler_wl, $1)='-Wl,' _LT_TAGVAR(lt_prog_compiler_pic, $1)='-fpic' _LT_TAGVAR(lt_prog_compiler_static, $1)='-Bstatic' ;; ccc*) _LT_TAGVAR(lt_prog_compiler_wl, $1)='-Wl,' # All Alpha code is PIC. _LT_TAGVAR(lt_prog_compiler_static, $1)='-non_shared' ;; xl* | bgxl* | bgf* | mpixl*) # IBM XL C 8.0/Fortran 10.1, 11.1 on PPC and BlueGene _LT_TAGVAR(lt_prog_compiler_wl, $1)='-Wl,' _LT_TAGVAR(lt_prog_compiler_pic, $1)='-qpic' _LT_TAGVAR(lt_prog_compiler_static, $1)='-qstaticlink' ;; *) case `$CC -V 2>&1 | sed 5q` in *Sun\ Ceres\ Fortran* | *Sun*Fortran*\ [[1-7]].* | *Sun*Fortran*\ 8.[[0-3]]*) # Sun Fortran 8.3 passes all unrecognized flags to the linker _LT_TAGVAR(lt_prog_compiler_pic, $1)='-KPIC' _LT_TAGVAR(lt_prog_compiler_static, $1)='-Bstatic' _LT_TAGVAR(lt_prog_compiler_wl, $1)='' ;; *Sun\ F* | *Sun*Fortran*) _LT_TAGVAR(lt_prog_compiler_pic, $1)='-KPIC' _LT_TAGVAR(lt_prog_compiler_static, $1)='-Bstatic' _LT_TAGVAR(lt_prog_compiler_wl, $1)='-Qoption ld ' ;; *Sun\ C*) # Sun C 5.9 _LT_TAGVAR(lt_prog_compiler_pic, $1)='-KPIC' _LT_TAGVAR(lt_prog_compiler_static, $1)='-Bstatic' _LT_TAGVAR(lt_prog_compiler_wl, $1)='-Wl,' ;; *Intel*\ [[CF]]*Compiler*) _LT_TAGVAR(lt_prog_compiler_wl, $1)='-Wl,' _LT_TAGVAR(lt_prog_compiler_pic, $1)='-fPIC' _LT_TAGVAR(lt_prog_compiler_static, $1)='-static' ;; *Portland\ Group*) _LT_TAGVAR(lt_prog_compiler_wl, $1)='-Wl,' _LT_TAGVAR(lt_prog_compiler_pic, $1)='-fpic' _LT_TAGVAR(lt_prog_compiler_static, $1)='-Bstatic' ;; esac ;; esac ;; newsos6) _LT_TAGVAR(lt_prog_compiler_pic, $1)='-KPIC' _LT_TAGVAR(lt_prog_compiler_static, $1)='-Bstatic' ;; *nto* | *qnx*) # QNX uses GNU C++, but need to define -shared option too, otherwise # it will coredump. _LT_TAGVAR(lt_prog_compiler_pic, $1)='-fPIC -shared' ;; osf3* | osf4* | osf5*) _LT_TAGVAR(lt_prog_compiler_wl, $1)='-Wl,' # All OSF/1 code is PIC. _LT_TAGVAR(lt_prog_compiler_static, $1)='-non_shared' ;; rdos*) _LT_TAGVAR(lt_prog_compiler_static, $1)='-non_shared' ;; solaris*) _LT_TAGVAR(lt_prog_compiler_pic, $1)='-KPIC' _LT_TAGVAR(lt_prog_compiler_static, $1)='-Bstatic' case $cc_basename in f77* | f90* | f95* | sunf77* | sunf90* | sunf95*) _LT_TAGVAR(lt_prog_compiler_wl, $1)='-Qoption ld ';; *) _LT_TAGVAR(lt_prog_compiler_wl, $1)='-Wl,';; esac ;; sunos4*) _LT_TAGVAR(lt_prog_compiler_wl, $1)='-Qoption ld ' _LT_TAGVAR(lt_prog_compiler_pic, $1)='-PIC' _LT_TAGVAR(lt_prog_compiler_static, $1)='-Bstatic' ;; sysv4 | sysv4.2uw2* | sysv4.3*) _LT_TAGVAR(lt_prog_compiler_wl, $1)='-Wl,' _LT_TAGVAR(lt_prog_compiler_pic, $1)='-KPIC' _LT_TAGVAR(lt_prog_compiler_static, $1)='-Bstatic' ;; sysv4*MP*) if test -d /usr/nec ;then _LT_TAGVAR(lt_prog_compiler_pic, $1)='-Kconform_pic' _LT_TAGVAR(lt_prog_compiler_static, $1)='-Bstatic' fi ;; sysv5* | unixware* | sco3.2v5* | sco5v6* | OpenUNIX*) _LT_TAGVAR(lt_prog_compiler_wl, $1)='-Wl,' _LT_TAGVAR(lt_prog_compiler_pic, $1)='-KPIC' _LT_TAGVAR(lt_prog_compiler_static, $1)='-Bstatic' ;; unicos*) _LT_TAGVAR(lt_prog_compiler_wl, $1)='-Wl,' _LT_TAGVAR(lt_prog_compiler_can_build_shared, $1)=no ;; uts4*) _LT_TAGVAR(lt_prog_compiler_pic, $1)='-pic' _LT_TAGVAR(lt_prog_compiler_static, $1)='-Bstatic' ;; *) _LT_TAGVAR(lt_prog_compiler_can_build_shared, $1)=no ;; esac fi ]) case $host_os in # For platforms which do not support PIC, -DPIC is meaningless: *djgpp*) _LT_TAGVAR(lt_prog_compiler_pic, $1)= ;; *) _LT_TAGVAR(lt_prog_compiler_pic, $1)="$_LT_TAGVAR(lt_prog_compiler_pic, $1)@&t@m4_if([$1],[],[ -DPIC],[m4_if([$1],[CXX],[ -DPIC],[])])" ;; esac AC_CACHE_CHECK([for $compiler option to produce PIC], [_LT_TAGVAR(lt_cv_prog_compiler_pic, $1)], [_LT_TAGVAR(lt_cv_prog_compiler_pic, $1)=$_LT_TAGVAR(lt_prog_compiler_pic, $1)]) _LT_TAGVAR(lt_prog_compiler_pic, $1)=$_LT_TAGVAR(lt_cv_prog_compiler_pic, $1) # # Check to make sure the PIC flag actually works. # if test -n "$_LT_TAGVAR(lt_prog_compiler_pic, $1)"; then _LT_COMPILER_OPTION([if $compiler PIC flag $_LT_TAGVAR(lt_prog_compiler_pic, $1) works], [_LT_TAGVAR(lt_cv_prog_compiler_pic_works, $1)], [$_LT_TAGVAR(lt_prog_compiler_pic, $1)@&t@m4_if([$1],[],[ -DPIC],[m4_if([$1],[CXX],[ -DPIC],[])])], [], [case $_LT_TAGVAR(lt_prog_compiler_pic, $1) in "" | " "*) ;; *) _LT_TAGVAR(lt_prog_compiler_pic, $1)=" $_LT_TAGVAR(lt_prog_compiler_pic, $1)" ;; esac], [_LT_TAGVAR(lt_prog_compiler_pic, $1)= _LT_TAGVAR(lt_prog_compiler_can_build_shared, $1)=no]) fi _LT_TAGDECL([pic_flag], [lt_prog_compiler_pic], [1], [Additional compiler flags for building library objects]) _LT_TAGDECL([wl], [lt_prog_compiler_wl], [1], [How to pass a linker flag through the compiler]) # # Check to make sure the static flag actually works. # wl=$_LT_TAGVAR(lt_prog_compiler_wl, $1) eval lt_tmp_static_flag=\"$_LT_TAGVAR(lt_prog_compiler_static, $1)\" _LT_LINKER_OPTION([if $compiler static flag $lt_tmp_static_flag works], _LT_TAGVAR(lt_cv_prog_compiler_static_works, $1), $lt_tmp_static_flag, [], [_LT_TAGVAR(lt_prog_compiler_static, $1)=]) _LT_TAGDECL([link_static_flag], [lt_prog_compiler_static], [1], [Compiler flag to prevent dynamic linking]) ])# _LT_COMPILER_PIC # _LT_LINKER_SHLIBS([TAGNAME]) # ---------------------------- # See if the linker supports building shared libraries. m4_defun([_LT_LINKER_SHLIBS], [AC_REQUIRE([LT_PATH_LD])dnl AC_REQUIRE([LT_PATH_NM])dnl m4_require([_LT_PATH_MANIFEST_TOOL])dnl m4_require([_LT_FILEUTILS_DEFAULTS])dnl m4_require([_LT_DECL_EGREP])dnl m4_require([_LT_DECL_SED])dnl m4_require([_LT_CMD_GLOBAL_SYMBOLS])dnl m4_require([_LT_TAG_COMPILER])dnl AC_MSG_CHECKING([whether the $compiler linker ($LD) supports shared libraries]) m4_if([$1], [CXX], [ _LT_TAGVAR(export_symbols_cmds, $1)='$NM $libobjs $convenience | $global_symbol_pipe | $SED '\''s/.* //'\'' | sort | uniq > $export_symbols' _LT_TAGVAR(exclude_expsyms, $1)=['_GLOBAL_OFFSET_TABLE_|_GLOBAL__F[ID]_.*'] case $host_os in aix[[4-9]]*) # If we're using GNU nm, then we don't want the "-C" option. # -C means demangle to AIX nm, but means don't demangle with GNU nm # Also, AIX nm treats weak defined symbols like other global defined # symbols, whereas GNU nm marks them as "W". if $NM -V 2>&1 | $GREP 'GNU' > /dev/null; then _LT_TAGVAR(export_symbols_cmds, $1)='$NM -Bpg $libobjs $convenience | awk '\''{ if (((\$ 2 == "T") || (\$ 2 == "D") || (\$ 2 == "B") || (\$ 2 == "W")) && ([substr](\$ 3,1,1) != ".")) { print \$ 3 } }'\'' | sort -u > $export_symbols' else _LT_TAGVAR(export_symbols_cmds, $1)='$NM -BCpg $libobjs $convenience | awk '\''{ if (((\$ 2 == "T") || (\$ 2 == "D") || (\$ 2 == "B")) && ([substr](\$ 3,1,1) != ".")) { print \$ 3 } }'\'' | sort -u > $export_symbols' fi ;; pw32*) _LT_TAGVAR(export_symbols_cmds, $1)="$ltdll_cmds" ;; cygwin* | mingw* | cegcc*) case $cc_basename in cl*) _LT_TAGVAR(exclude_expsyms, $1)='_NULL_IMPORT_DESCRIPTOR|_IMPORT_DESCRIPTOR_.*' ;; *) _LT_TAGVAR(export_symbols_cmds, $1)='$NM $libobjs $convenience | $global_symbol_pipe | $SED -e '\''/^[[BCDGRS]][[ ]]/s/.*[[ ]]\([[^ ]]*\)/\1 DATA/;s/^.*[[ ]]__nm__\([[^ ]]*\)[[ ]][[^ ]]*/\1 DATA/;/^I[[ ]]/d;/^[[AITW]][[ ]]/s/.* //'\'' | sort | uniq > $export_symbols' _LT_TAGVAR(exclude_expsyms, $1)=['[_]+GLOBAL_OFFSET_TABLE_|[_]+GLOBAL__[FID]_.*|[_]+head_[A-Za-z0-9_]+_dll|[A-Za-z0-9_]+_dll_iname'] ;; esac ;; linux* | k*bsd*-gnu | gnu*) _LT_TAGVAR(link_all_deplibs, $1)=no ;; *) _LT_TAGVAR(export_symbols_cmds, $1)='$NM $libobjs $convenience | $global_symbol_pipe | $SED '\''s/.* //'\'' | sort | uniq > $export_symbols' ;; esac ], [ runpath_var= _LT_TAGVAR(allow_undefined_flag, $1)= _LT_TAGVAR(always_export_symbols, $1)=no _LT_TAGVAR(archive_cmds, $1)= _LT_TAGVAR(archive_expsym_cmds, $1)= _LT_TAGVAR(compiler_needs_object, $1)=no _LT_TAGVAR(enable_shared_with_static_runtimes, $1)=no _LT_TAGVAR(export_dynamic_flag_spec, $1)= _LT_TAGVAR(export_symbols_cmds, $1)='$NM $libobjs $convenience | $global_symbol_pipe | $SED '\''s/.* //'\'' | sort | uniq > $export_symbols' _LT_TAGVAR(hardcode_automatic, $1)=no _LT_TAGVAR(hardcode_direct, $1)=no _LT_TAGVAR(hardcode_direct_absolute, $1)=no _LT_TAGVAR(hardcode_libdir_flag_spec, $1)= _LT_TAGVAR(hardcode_libdir_separator, $1)= _LT_TAGVAR(hardcode_minus_L, $1)=no _LT_TAGVAR(hardcode_shlibpath_var, $1)=unsupported _LT_TAGVAR(inherit_rpath, $1)=no _LT_TAGVAR(link_all_deplibs, $1)=unknown _LT_TAGVAR(module_cmds, $1)= _LT_TAGVAR(module_expsym_cmds, $1)= _LT_TAGVAR(old_archive_from_new_cmds, $1)= _LT_TAGVAR(old_archive_from_expsyms_cmds, $1)= _LT_TAGVAR(thread_safe_flag_spec, $1)= _LT_TAGVAR(whole_archive_flag_spec, $1)= # include_expsyms should be a list of space-separated symbols to be *always* # included in the symbol list _LT_TAGVAR(include_expsyms, $1)= # exclude_expsyms can be an extended regexp of symbols to exclude # it will be wrapped by ` (' and `)$', so one must not match beginning or # end of line. Example: `a|bc|.*d.*' will exclude the symbols `a' and `bc', # as well as any symbol that contains `d'. _LT_TAGVAR(exclude_expsyms, $1)=['_GLOBAL_OFFSET_TABLE_|_GLOBAL__F[ID]_.*'] # Although _GLOBAL_OFFSET_TABLE_ is a valid symbol C name, most a.out # platforms (ab)use it in PIC code, but their linkers get confused if # the symbol is explicitly referenced. Since portable code cannot # rely on this symbol name, it's probably fine to never include it in # preloaded symbol tables. # Exclude shared library initialization/finalization symbols. dnl Note also adjust exclude_expsyms for C++ above. extract_expsyms_cmds= case $host_os in cygwin* | mingw* | pw32* | cegcc*) # FIXME: the MSVC++ port hasn't been tested in a loooong time # When not using gcc, we currently assume that we are using # Microsoft Visual C++. if test "$GCC" != yes; then with_gnu_ld=no fi ;; interix*) # we just hope/assume this is gcc and not c89 (= MSVC++) with_gnu_ld=yes ;; openbsd*) with_gnu_ld=no ;; linux* | k*bsd*-gnu | gnu*) _LT_TAGVAR(link_all_deplibs, $1)=no ;; esac _LT_TAGVAR(ld_shlibs, $1)=yes # On some targets, GNU ld is compatible enough with the native linker # that we're better off using the native interface for both. lt_use_gnu_ld_interface=no if test "$with_gnu_ld" = yes; then case $host_os in aix*) # The AIX port of GNU ld has always aspired to compatibility # with the native linker. However, as the warning in the GNU ld # block says, versions before 2.19.5* couldn't really create working # shared libraries, regardless of the interface used. case `$LD -v 2>&1` in *\ \(GNU\ Binutils\)\ 2.19.5*) ;; *\ \(GNU\ Binutils\)\ 2.[[2-9]]*) ;; *\ \(GNU\ Binutils\)\ [[3-9]]*) ;; *) lt_use_gnu_ld_interface=yes ;; esac ;; *) lt_use_gnu_ld_interface=yes ;; esac fi if test "$lt_use_gnu_ld_interface" = yes; then # If archive_cmds runs LD, not CC, wlarc should be empty wlarc='${wl}' # Set some defaults for GNU ld with shared library support. These # are reset later if shared libraries are not supported. Putting them # here allows them to be overridden if necessary. runpath_var=LD_RUN_PATH _LT_TAGVAR(hardcode_libdir_flag_spec, $1)='${wl}-rpath ${wl}$libdir' _LT_TAGVAR(export_dynamic_flag_spec, $1)='${wl}--export-dynamic' # ancient GNU ld didn't support --whole-archive et. al. if $LD --help 2>&1 | $GREP 'no-whole-archive' > /dev/null; then _LT_TAGVAR(whole_archive_flag_spec, $1)="$wlarc"'--whole-archive$convenience '"$wlarc"'--no-whole-archive' else _LT_TAGVAR(whole_archive_flag_spec, $1)= fi supports_anon_versioning=no case `$LD -v 2>&1` in *GNU\ gold*) supports_anon_versioning=yes ;; *\ [[01]].* | *\ 2.[[0-9]].* | *\ 2.10.*) ;; # catch versions < 2.11 *\ 2.11.93.0.2\ *) supports_anon_versioning=yes ;; # RH7.3 ... *\ 2.11.92.0.12\ *) supports_anon_versioning=yes ;; # Mandrake 8.2 ... *\ 2.11.*) ;; # other 2.11 versions *) supports_anon_versioning=yes ;; esac # See if GNU ld supports shared libraries. case $host_os in aix[[3-9]]*) # On AIX/PPC, the GNU linker is very broken if test "$host_cpu" != ia64; then _LT_TAGVAR(ld_shlibs, $1)=no cat <<_LT_EOF 1>&2 *** Warning: the GNU linker, at least up to release 2.19, is reported *** to be unable to reliably create shared libraries on AIX. *** Therefore, libtool is disabling shared libraries support. If you *** really care for shared libraries, you may want to install binutils *** 2.20 or above, or modify your PATH so that a non-GNU linker is found. *** You will then need to restart the configuration process. _LT_EOF fi ;; amigaos*) case $host_cpu in powerpc) # see comment about AmigaOS4 .so support _LT_TAGVAR(archive_cmds, $1)='$CC -shared $libobjs $deplibs $compiler_flags ${wl}-soname $wl$soname -o $lib' _LT_TAGVAR(archive_expsym_cmds, $1)='' ;; m68k) _LT_TAGVAR(archive_cmds, $1)='$RM $output_objdir/a2ixlibrary.data~$ECHO "#define NAME $libname" > $output_objdir/a2ixlibrary.data~$ECHO "#define LIBRARY_ID 1" >> $output_objdir/a2ixlibrary.data~$ECHO "#define VERSION $major" >> $output_objdir/a2ixlibrary.data~$ECHO "#define REVISION $revision" >> $output_objdir/a2ixlibrary.data~$AR $AR_FLAGS $lib $libobjs~$RANLIB $lib~(cd $output_objdir && a2ixlibrary -32)' _LT_TAGVAR(hardcode_libdir_flag_spec, $1)='-L$libdir' _LT_TAGVAR(hardcode_minus_L, $1)=yes ;; esac ;; beos*) if $LD --help 2>&1 | $GREP ': supported targets:.* elf' > /dev/null; then _LT_TAGVAR(allow_undefined_flag, $1)=unsupported # Joseph Beckenbach says some releases of gcc # support --undefined. This deserves some investigation. FIXME _LT_TAGVAR(archive_cmds, $1)='$CC -nostart $libobjs $deplibs $compiler_flags ${wl}-soname $wl$soname -o $lib' else _LT_TAGVAR(ld_shlibs, $1)=no fi ;; cygwin* | mingw* | pw32* | cegcc*) # _LT_TAGVAR(hardcode_libdir_flag_spec, $1) is actually meaningless, # as there is no search path for DLLs. _LT_TAGVAR(hardcode_libdir_flag_spec, $1)='-L$libdir' _LT_TAGVAR(export_dynamic_flag_spec, $1)='${wl}--export-all-symbols' _LT_TAGVAR(allow_undefined_flag, $1)=unsupported _LT_TAGVAR(always_export_symbols, $1)=no _LT_TAGVAR(enable_shared_with_static_runtimes, $1)=yes _LT_TAGVAR(export_symbols_cmds, $1)='$NM $libobjs $convenience | $global_symbol_pipe | $SED -e '\''/^[[BCDGRS]][[ ]]/s/.*[[ ]]\([[^ ]]*\)/\1 DATA/;s/^.*[[ ]]__nm__\([[^ ]]*\)[[ ]][[^ ]]*/\1 DATA/;/^I[[ ]]/d;/^[[AITW]][[ ]]/s/.* //'\'' | sort | uniq > $export_symbols' _LT_TAGVAR(exclude_expsyms, $1)=['[_]+GLOBAL_OFFSET_TABLE_|[_]+GLOBAL__[FID]_.*|[_]+head_[A-Za-z0-9_]+_dll|[A-Za-z0-9_]+_dll_iname'] if $LD --help 2>&1 | $GREP 'auto-import' > /dev/null; then _LT_TAGVAR(archive_cmds, $1)='$CC -shared $libobjs $deplibs $compiler_flags -o $output_objdir/$soname ${wl}--enable-auto-image-base -Xlinker --out-implib -Xlinker $lib' # If the export-symbols file already is a .def file (1st line # is EXPORTS), use it as is; otherwise, prepend... _LT_TAGVAR(archive_expsym_cmds, $1)='if test "x`$SED 1q $export_symbols`" = xEXPORTS; then cp $export_symbols $output_objdir/$soname.def; else echo EXPORTS > $output_objdir/$soname.def; cat $export_symbols >> $output_objdir/$soname.def; fi~ $CC -shared $output_objdir/$soname.def $libobjs $deplibs $compiler_flags -o $output_objdir/$soname ${wl}--enable-auto-image-base -Xlinker --out-implib -Xlinker $lib' else _LT_TAGVAR(ld_shlibs, $1)=no fi ;; haiku*) _LT_TAGVAR(archive_cmds, $1)='$CC -shared $libobjs $deplibs $compiler_flags ${wl}-soname $wl$soname -o $lib' _LT_TAGVAR(link_all_deplibs, $1)=yes ;; interix[[3-9]]*) _LT_TAGVAR(hardcode_direct, $1)=no _LT_TAGVAR(hardcode_shlibpath_var, $1)=no _LT_TAGVAR(hardcode_libdir_flag_spec, $1)='${wl}-rpath,$libdir' _LT_TAGVAR(export_dynamic_flag_spec, $1)='${wl}-E' # Hack: On Interix 3.x, we cannot compile PIC because of a broken gcc. # Instead, shared libraries are loaded at an image base (0x10000000 by # default) and relocated if they conflict, which is a slow very memory # consuming and fragmenting process. To avoid this, we pick a random, # 256 KiB-aligned image base between 0x50000000 and 0x6FFC0000 at link # time. Moving up from 0x10000000 also allows more sbrk(2) space. _LT_TAGVAR(archive_cmds, $1)='$CC -shared $pic_flag $libobjs $deplibs $compiler_flags ${wl}-h,$soname ${wl}--image-base,`expr ${RANDOM-$$} % 4096 / 2 \* 262144 + 1342177280` -o $lib' _LT_TAGVAR(archive_expsym_cmds, $1)='sed "s,^,_," $export_symbols >$output_objdir/$soname.expsym~$CC -shared $pic_flag $libobjs $deplibs $compiler_flags ${wl}-h,$soname ${wl}--retain-symbols-file,$output_objdir/$soname.expsym ${wl}--image-base,`expr ${RANDOM-$$} % 4096 / 2 \* 262144 + 1342177280` -o $lib' ;; gnu* | linux* | tpf* | k*bsd*-gnu | kopensolaris*-gnu) tmp_diet=no if test "$host_os" = linux-dietlibc; then case $cc_basename in diet\ *) tmp_diet=yes;; # linux-dietlibc with static linking (!diet-dyn) esac fi if $LD --help 2>&1 | $EGREP ': supported targets:.* elf' > /dev/null \ && test "$tmp_diet" = no then tmp_addflag=' $pic_flag' tmp_sharedflag='-shared' case $cc_basename,$host_cpu in pgcc*) # Portland Group C compiler _LT_TAGVAR(whole_archive_flag_spec, $1)='${wl}--whole-archive`for conv in $convenience\"\"; do test -n \"$conv\" && new_convenience=\"$new_convenience,$conv\"; done; func_echo_all \"$new_convenience\"` ${wl}--no-whole-archive' tmp_addflag=' $pic_flag' ;; pgf77* | pgf90* | pgf95* | pgfortran*) # Portland Group f77 and f90 compilers _LT_TAGVAR(whole_archive_flag_spec, $1)='${wl}--whole-archive`for conv in $convenience\"\"; do test -n \"$conv\" && new_convenience=\"$new_convenience,$conv\"; done; func_echo_all \"$new_convenience\"` ${wl}--no-whole-archive' tmp_addflag=' $pic_flag -Mnomain' ;; ecc*,ia64* | icc*,ia64*) # Intel C compiler on ia64 tmp_addflag=' -i_dynamic' ;; efc*,ia64* | ifort*,ia64*) # Intel Fortran compiler on ia64 tmp_addflag=' -i_dynamic -nofor_main' ;; ifc* | ifort*) # Intel Fortran compiler tmp_addflag=' -nofor_main' ;; lf95*) # Lahey Fortran 8.1 _LT_TAGVAR(whole_archive_flag_spec, $1)= tmp_sharedflag='--shared' ;; xl[[cC]]* | bgxl[[cC]]* | mpixl[[cC]]*) # IBM XL C 8.0 on PPC (deal with xlf below) tmp_sharedflag='-qmkshrobj' tmp_addflag= ;; nvcc*) # Cuda Compiler Driver 2.2 _LT_TAGVAR(whole_archive_flag_spec, $1)='${wl}--whole-archive`for conv in $convenience\"\"; do test -n \"$conv\" && new_convenience=\"$new_convenience,$conv\"; done; func_echo_all \"$new_convenience\"` ${wl}--no-whole-archive' _LT_TAGVAR(compiler_needs_object, $1)=yes ;; esac case `$CC -V 2>&1 | sed 5q` in *Sun\ C*) # Sun C 5.9 _LT_TAGVAR(whole_archive_flag_spec, $1)='${wl}--whole-archive`new_convenience=; for conv in $convenience\"\"; do test -z \"$conv\" || new_convenience=\"$new_convenience,$conv\"; done; func_echo_all \"$new_convenience\"` ${wl}--no-whole-archive' _LT_TAGVAR(compiler_needs_object, $1)=yes tmp_sharedflag='-G' ;; *Sun\ F*) # Sun Fortran 8.3 tmp_sharedflag='-G' ;; esac _LT_TAGVAR(archive_cmds, $1)='$CC '"$tmp_sharedflag""$tmp_addflag"' $libobjs $deplibs $compiler_flags ${wl}-soname $wl$soname -o $lib' if test "x$supports_anon_versioning" = xyes; then _LT_TAGVAR(archive_expsym_cmds, $1)='echo "{ global:" > $output_objdir/$libname.ver~ cat $export_symbols | sed -e "s/\(.*\)/\1;/" >> $output_objdir/$libname.ver~ echo "local: *; };" >> $output_objdir/$libname.ver~ $CC '"$tmp_sharedflag""$tmp_addflag"' $libobjs $deplibs $compiler_flags ${wl}-soname $wl$soname ${wl}-version-script ${wl}$output_objdir/$libname.ver -o $lib' fi case $cc_basename in xlf* | bgf* | bgxlf* | mpixlf*) # IBM XL Fortran 10.1 on PPC cannot create shared libs itself _LT_TAGVAR(whole_archive_flag_spec, $1)='--whole-archive$convenience --no-whole-archive' _LT_TAGVAR(hardcode_libdir_flag_spec, $1)='${wl}-rpath ${wl}$libdir' _LT_TAGVAR(archive_cmds, $1)='$LD -shared $libobjs $deplibs $linker_flags -soname $soname -o $lib' if test "x$supports_anon_versioning" = xyes; then _LT_TAGVAR(archive_expsym_cmds, $1)='echo "{ global:" > $output_objdir/$libname.ver~ cat $export_symbols | sed -e "s/\(.*\)/\1;/" >> $output_objdir/$libname.ver~ echo "local: *; };" >> $output_objdir/$libname.ver~ $LD -shared $libobjs $deplibs $linker_flags -soname $soname -version-script $output_objdir/$libname.ver -o $lib' fi ;; esac else _LT_TAGVAR(ld_shlibs, $1)=no fi ;; netbsd* | netbsdelf*-gnu) if echo __ELF__ | $CC -E - | $GREP __ELF__ >/dev/null; then _LT_TAGVAR(archive_cmds, $1)='$LD -Bshareable $libobjs $deplibs $linker_flags -o $lib' wlarc= else _LT_TAGVAR(archive_cmds, $1)='$CC -shared $pic_flag $libobjs $deplibs $compiler_flags ${wl}-soname $wl$soname -o $lib' _LT_TAGVAR(archive_expsym_cmds, $1)='$CC -shared $pic_flag $libobjs $deplibs $compiler_flags ${wl}-soname $wl$soname ${wl}-retain-symbols-file $wl$export_symbols -o $lib' fi ;; solaris*) if $LD -v 2>&1 | $GREP 'BFD 2\.8' > /dev/null; then _LT_TAGVAR(ld_shlibs, $1)=no cat <<_LT_EOF 1>&2 *** Warning: The releases 2.8.* of the GNU linker cannot reliably *** create shared libraries on Solaris systems. Therefore, libtool *** is disabling shared libraries support. We urge you to upgrade GNU *** binutils to release 2.9.1 or newer. Another option is to modify *** your PATH or compiler configuration so that the native linker is *** used, and then restart. _LT_EOF elif $LD --help 2>&1 | $GREP ': supported targets:.* elf' > /dev/null; then _LT_TAGVAR(archive_cmds, $1)='$CC -shared $pic_flag $libobjs $deplibs $compiler_flags ${wl}-soname $wl$soname -o $lib' _LT_TAGVAR(archive_expsym_cmds, $1)='$CC -shared $pic_flag $libobjs $deplibs $compiler_flags ${wl}-soname $wl$soname ${wl}-retain-symbols-file $wl$export_symbols -o $lib' else _LT_TAGVAR(ld_shlibs, $1)=no fi ;; sysv5* | sco3.2v5* | sco5v6* | unixware* | OpenUNIX*) case `$LD -v 2>&1` in *\ [[01]].* | *\ 2.[[0-9]].* | *\ 2.1[[0-5]].*) _LT_TAGVAR(ld_shlibs, $1)=no cat <<_LT_EOF 1>&2 *** Warning: Releases of the GNU linker prior to 2.16.91.0.3 can not *** reliably create shared libraries on SCO systems. Therefore, libtool *** is disabling shared libraries support. We urge you to upgrade GNU *** binutils to release 2.16.91.0.3 or newer. Another option is to modify *** your PATH or compiler configuration so that the native linker is *** used, and then restart. _LT_EOF ;; *) # For security reasons, it is highly recommended that you always # use absolute paths for naming shared libraries, and exclude the # DT_RUNPATH tag from executables and libraries. But doing so # requires that you compile everything twice, which is a pain. if $LD --help 2>&1 | $GREP ': supported targets:.* elf' > /dev/null; then _LT_TAGVAR(hardcode_libdir_flag_spec, $1)='${wl}-rpath ${wl}$libdir' _LT_TAGVAR(archive_cmds, $1)='$CC -shared $libobjs $deplibs $compiler_flags ${wl}-soname $wl$soname -o $lib' _LT_TAGVAR(archive_expsym_cmds, $1)='$CC -shared $libobjs $deplibs $compiler_flags ${wl}-soname $wl$soname ${wl}-retain-symbols-file $wl$export_symbols -o $lib' else _LT_TAGVAR(ld_shlibs, $1)=no fi ;; esac ;; sunos4*) _LT_TAGVAR(archive_cmds, $1)='$LD -assert pure-text -Bshareable -o $lib $libobjs $deplibs $linker_flags' wlarc= _LT_TAGVAR(hardcode_direct, $1)=yes _LT_TAGVAR(hardcode_shlibpath_var, $1)=no ;; *) if $LD --help 2>&1 | $GREP ': supported targets:.* elf' > /dev/null; then _LT_TAGVAR(archive_cmds, $1)='$CC -shared $pic_flag $libobjs $deplibs $compiler_flags ${wl}-soname $wl$soname -o $lib' _LT_TAGVAR(archive_expsym_cmds, $1)='$CC -shared $pic_flag $libobjs $deplibs $compiler_flags ${wl}-soname $wl$soname ${wl}-retain-symbols-file $wl$export_symbols -o $lib' else _LT_TAGVAR(ld_shlibs, $1)=no fi ;; esac if test "$_LT_TAGVAR(ld_shlibs, $1)" = no; then runpath_var= _LT_TAGVAR(hardcode_libdir_flag_spec, $1)= _LT_TAGVAR(export_dynamic_flag_spec, $1)= _LT_TAGVAR(whole_archive_flag_spec, $1)= fi else # PORTME fill in a description of your system's linker (not GNU ld) case $host_os in aix3*) _LT_TAGVAR(allow_undefined_flag, $1)=unsupported _LT_TAGVAR(always_export_symbols, $1)=yes _LT_TAGVAR(archive_expsym_cmds, $1)='$LD -o $output_objdir/$soname $libobjs $deplibs $linker_flags -bE:$export_symbols -T512 -H512 -bM:SRE~$AR $AR_FLAGS $lib $output_objdir/$soname' # Note: this linker hardcodes the directories in LIBPATH if there # are no directories specified by -L. _LT_TAGVAR(hardcode_minus_L, $1)=yes if test "$GCC" = yes && test -z "$lt_prog_compiler_static"; then # Neither direct hardcoding nor static linking is supported with a # broken collect2. _LT_TAGVAR(hardcode_direct, $1)=unsupported fi ;; aix[[4-9]]*) if test "$host_cpu" = ia64; then # On IA64, the linker does run time linking by default, so we don't # have to do anything special. aix_use_runtimelinking=no exp_sym_flag='-Bexport' no_entry_flag="" else # If we're using GNU nm, then we don't want the "-C" option. # -C means demangle to AIX nm, but means don't demangle with GNU nm # Also, AIX nm treats weak defined symbols like other global # defined symbols, whereas GNU nm marks them as "W". if $NM -V 2>&1 | $GREP 'GNU' > /dev/null; then _LT_TAGVAR(export_symbols_cmds, $1)='$NM -Bpg $libobjs $convenience | awk '\''{ if (((\$ 2 == "T") || (\$ 2 == "D") || (\$ 2 == "B") || (\$ 2 == "W")) && ([substr](\$ 3,1,1) != ".")) { print \$ 3 } }'\'' | sort -u > $export_symbols' else _LT_TAGVAR(export_symbols_cmds, $1)='$NM -BCpg $libobjs $convenience | awk '\''{ if (((\$ 2 == "T") || (\$ 2 == "D") || (\$ 2 == "B")) && ([substr](\$ 3,1,1) != ".")) { print \$ 3 } }'\'' | sort -u > $export_symbols' fi aix_use_runtimelinking=no # Test if we are trying to use run time linking or normal # AIX style linking. If -brtl is somewhere in LDFLAGS, we # need to do runtime linking. case $host_os in aix4.[[23]]|aix4.[[23]].*|aix[[5-9]]*) for ld_flag in $LDFLAGS; do if (test $ld_flag = "-brtl" || test $ld_flag = "-Wl,-brtl"); then aix_use_runtimelinking=yes break fi done ;; esac exp_sym_flag='-bexport' no_entry_flag='-bnoentry' fi # When large executables or shared objects are built, AIX ld can # have problems creating the table of contents. If linking a library # or program results in "error TOC overflow" add -mminimal-toc to # CXXFLAGS/CFLAGS for g++/gcc. In the cases where that is not # enough to fix the problem, add -Wl,-bbigtoc to LDFLAGS. _LT_TAGVAR(archive_cmds, $1)='' _LT_TAGVAR(hardcode_direct, $1)=yes _LT_TAGVAR(hardcode_direct_absolute, $1)=yes _LT_TAGVAR(hardcode_libdir_separator, $1)=':' _LT_TAGVAR(link_all_deplibs, $1)=yes _LT_TAGVAR(file_list_spec, $1)='${wl}-f,' if test "$GCC" = yes; then case $host_os in aix4.[[012]]|aix4.[[012]].*) # We only want to do this on AIX 4.2 and lower, the check # below for broken collect2 doesn't work under 4.3+ collect2name=`${CC} -print-prog-name=collect2` if test -f "$collect2name" && strings "$collect2name" | $GREP resolve_lib_name >/dev/null then # We have reworked collect2 : else # We have old collect2 _LT_TAGVAR(hardcode_direct, $1)=unsupported # It fails to find uninstalled libraries when the uninstalled # path is not listed in the libpath. Setting hardcode_minus_L # to unsupported forces relinking _LT_TAGVAR(hardcode_minus_L, $1)=yes _LT_TAGVAR(hardcode_libdir_flag_spec, $1)='-L$libdir' _LT_TAGVAR(hardcode_libdir_separator, $1)= fi ;; esac shared_flag='-shared' if test "$aix_use_runtimelinking" = yes; then shared_flag="$shared_flag "'${wl}-G' fi _LT_TAGVAR(link_all_deplibs, $1)=no else # not using gcc if test "$host_cpu" = ia64; then # VisualAge C++, Version 5.5 for AIX 5L for IA-64, Beta 3 Release # chokes on -Wl,-G. The following line is correct: shared_flag='-G' else if test "$aix_use_runtimelinking" = yes; then shared_flag='${wl}-G' else shared_flag='${wl}-bM:SRE' fi fi fi _LT_TAGVAR(export_dynamic_flag_spec, $1)='${wl}-bexpall' # It seems that -bexpall does not export symbols beginning with # underscore (_), so it is better to generate a list of symbols to export. _LT_TAGVAR(always_export_symbols, $1)=yes if test "$aix_use_runtimelinking" = yes; then # Warning - without using the other runtime loading flags (-brtl), # -berok will link without error, but may produce a broken library. _LT_TAGVAR(allow_undefined_flag, $1)='-berok' # Determine the default libpath from the value encoded in an # empty executable. _LT_SYS_MODULE_PATH_AIX([$1]) _LT_TAGVAR(hardcode_libdir_flag_spec, $1)='${wl}-blibpath:$libdir:'"$aix_libpath" _LT_TAGVAR(archive_expsym_cmds, $1)='$CC -o $output_objdir/$soname $libobjs $deplibs '"\${wl}$no_entry_flag"' $compiler_flags `if test "x${allow_undefined_flag}" != "x"; then func_echo_all "${wl}${allow_undefined_flag}"; else :; fi` '"\${wl}$exp_sym_flag:\$export_symbols $shared_flag" else if test "$host_cpu" = ia64; then _LT_TAGVAR(hardcode_libdir_flag_spec, $1)='${wl}-R $libdir:/usr/lib:/lib' _LT_TAGVAR(allow_undefined_flag, $1)="-z nodefs" _LT_TAGVAR(archive_expsym_cmds, $1)="\$CC $shared_flag"' -o $output_objdir/$soname $libobjs $deplibs '"\${wl}$no_entry_flag"' $compiler_flags ${wl}${allow_undefined_flag} '"\${wl}$exp_sym_flag:\$export_symbols" else # Determine the default libpath from the value encoded in an # empty executable. _LT_SYS_MODULE_PATH_AIX([$1]) _LT_TAGVAR(hardcode_libdir_flag_spec, $1)='${wl}-blibpath:$libdir:'"$aix_libpath" # Warning - without using the other run time loading flags, # -berok will link without error, but may produce a broken library. _LT_TAGVAR(no_undefined_flag, $1)=' ${wl}-bernotok' _LT_TAGVAR(allow_undefined_flag, $1)=' ${wl}-berok' if test "$with_gnu_ld" = yes; then # We only use this code for GNU lds that support --whole-archive. _LT_TAGVAR(whole_archive_flag_spec, $1)='${wl}--whole-archive$convenience ${wl}--no-whole-archive' else # Exported symbols can be pulled into shared objects from archives _LT_TAGVAR(whole_archive_flag_spec, $1)='$convenience' fi _LT_TAGVAR(archive_cmds_need_lc, $1)=yes # This is similar to how AIX traditionally builds its shared libraries. _LT_TAGVAR(archive_expsym_cmds, $1)="\$CC $shared_flag"' -o $output_objdir/$soname $libobjs $deplibs ${wl}-bnoentry $compiler_flags ${wl}-bE:$export_symbols${allow_undefined_flag}~$AR $AR_FLAGS $output_objdir/$libname$release.a $output_objdir/$soname' fi fi ;; amigaos*) case $host_cpu in powerpc) # see comment about AmigaOS4 .so support _LT_TAGVAR(archive_cmds, $1)='$CC -shared $libobjs $deplibs $compiler_flags ${wl}-soname $wl$soname -o $lib' _LT_TAGVAR(archive_expsym_cmds, $1)='' ;; m68k) _LT_TAGVAR(archive_cmds, $1)='$RM $output_objdir/a2ixlibrary.data~$ECHO "#define NAME $libname" > $output_objdir/a2ixlibrary.data~$ECHO "#define LIBRARY_ID 1" >> $output_objdir/a2ixlibrary.data~$ECHO "#define VERSION $major" >> $output_objdir/a2ixlibrary.data~$ECHO "#define REVISION $revision" >> $output_objdir/a2ixlibrary.data~$AR $AR_FLAGS $lib $libobjs~$RANLIB $lib~(cd $output_objdir && a2ixlibrary -32)' _LT_TAGVAR(hardcode_libdir_flag_spec, $1)='-L$libdir' _LT_TAGVAR(hardcode_minus_L, $1)=yes ;; esac ;; bsdi[[45]]*) _LT_TAGVAR(export_dynamic_flag_spec, $1)=-rdynamic ;; cygwin* | mingw* | pw32* | cegcc*) # When not using gcc, we currently assume that we are using # Microsoft Visual C++. # hardcode_libdir_flag_spec is actually meaningless, as there is # no search path for DLLs. case $cc_basename in cl*) # Native MSVC _LT_TAGVAR(hardcode_libdir_flag_spec, $1)=' ' _LT_TAGVAR(allow_undefined_flag, $1)=unsupported _LT_TAGVAR(always_export_symbols, $1)=yes _LT_TAGVAR(file_list_spec, $1)='@' # Tell ltmain to make .lib files, not .a files. libext=lib # Tell ltmain to make .dll files, not .so files. shrext_cmds=".dll" # FIXME: Setting linknames here is a bad hack. _LT_TAGVAR(archive_cmds, $1)='$CC -o $output_objdir/$soname $libobjs $compiler_flags $deplibs -Wl,-dll~linknames=' _LT_TAGVAR(archive_expsym_cmds, $1)='if test "x`$SED 1q $export_symbols`" = xEXPORTS; then sed -n -e 's/\\\\\\\(.*\\\\\\\)/-link\\\ -EXPORT:\\\\\\\1/' -e '1\\\!p' < $export_symbols > $output_objdir/$soname.exp; else sed -e 's/\\\\\\\(.*\\\\\\\)/-link\\\ -EXPORT:\\\\\\\1/' < $export_symbols > $output_objdir/$soname.exp; fi~ $CC -o $tool_output_objdir$soname $libobjs $compiler_flags $deplibs "@$tool_output_objdir$soname.exp" -Wl,-DLL,-IMPLIB:"$tool_output_objdir$libname.dll.lib"~ linknames=' # The linker will not automatically build a static lib if we build a DLL. # _LT_TAGVAR(old_archive_from_new_cmds, $1)='true' _LT_TAGVAR(enable_shared_with_static_runtimes, $1)=yes _LT_TAGVAR(exclude_expsyms, $1)='_NULL_IMPORT_DESCRIPTOR|_IMPORT_DESCRIPTOR_.*' _LT_TAGVAR(export_symbols_cmds, $1)='$NM $libobjs $convenience | $global_symbol_pipe | $SED -e '\''/^[[BCDGRS]][[ ]]/s/.*[[ ]]\([[^ ]]*\)/\1,DATA/'\'' | $SED -e '\''/^[[AITW]][[ ]]/s/.*[[ ]]//'\'' | sort | uniq > $export_symbols' # Don't use ranlib _LT_TAGVAR(old_postinstall_cmds, $1)='chmod 644 $oldlib' _LT_TAGVAR(postlink_cmds, $1)='lt_outputfile="@OUTPUT@"~ lt_tool_outputfile="@TOOL_OUTPUT@"~ case $lt_outputfile in *.exe|*.EXE) ;; *) lt_outputfile="$lt_outputfile.exe" lt_tool_outputfile="$lt_tool_outputfile.exe" ;; esac~ if test "$MANIFEST_TOOL" != ":" && test -f "$lt_outputfile.manifest"; then $MANIFEST_TOOL -manifest "$lt_tool_outputfile.manifest" -outputresource:"$lt_tool_outputfile" || exit 1; $RM "$lt_outputfile.manifest"; fi' ;; *) # Assume MSVC wrapper _LT_TAGVAR(hardcode_libdir_flag_spec, $1)=' ' _LT_TAGVAR(allow_undefined_flag, $1)=unsupported # Tell ltmain to make .lib files, not .a files. libext=lib # Tell ltmain to make .dll files, not .so files. shrext_cmds=".dll" # FIXME: Setting linknames here is a bad hack. _LT_TAGVAR(archive_cmds, $1)='$CC -o $lib $libobjs $compiler_flags `func_echo_all "$deplibs" | $SED '\''s/ -lc$//'\''` -link -dll~linknames=' # The linker will automatically build a .lib file if we build a DLL. _LT_TAGVAR(old_archive_from_new_cmds, $1)='true' # FIXME: Should let the user specify the lib program. _LT_TAGVAR(old_archive_cmds, $1)='lib -OUT:$oldlib$oldobjs$old_deplibs' _LT_TAGVAR(enable_shared_with_static_runtimes, $1)=yes ;; esac ;; darwin* | rhapsody*) _LT_DARWIN_LINKER_FEATURES($1) ;; dgux*) _LT_TAGVAR(archive_cmds, $1)='$LD -G -h $soname -o $lib $libobjs $deplibs $linker_flags' _LT_TAGVAR(hardcode_libdir_flag_spec, $1)='-L$libdir' _LT_TAGVAR(hardcode_shlibpath_var, $1)=no ;; # FreeBSD 2.2.[012] allows us to include c++rt0.o to get C++ constructor # support. Future versions do this automatically, but an explicit c++rt0.o # does not break anything, and helps significantly (at the cost of a little # extra space). freebsd2.2*) _LT_TAGVAR(archive_cmds, $1)='$LD -Bshareable -o $lib $libobjs $deplibs $linker_flags /usr/lib/c++rt0.o' _LT_TAGVAR(hardcode_libdir_flag_spec, $1)='-R$libdir' _LT_TAGVAR(hardcode_direct, $1)=yes _LT_TAGVAR(hardcode_shlibpath_var, $1)=no ;; # Unfortunately, older versions of FreeBSD 2 do not have this feature. freebsd2.*) _LT_TAGVAR(archive_cmds, $1)='$LD -Bshareable -o $lib $libobjs $deplibs $linker_flags' _LT_TAGVAR(hardcode_direct, $1)=yes _LT_TAGVAR(hardcode_minus_L, $1)=yes _LT_TAGVAR(hardcode_shlibpath_var, $1)=no ;; # FreeBSD 3 and greater uses gcc -shared to do shared libraries. freebsd* | dragonfly*) _LT_TAGVAR(archive_cmds, $1)='$CC -shared $pic_flag -o $lib $libobjs $deplibs $compiler_flags' _LT_TAGVAR(hardcode_libdir_flag_spec, $1)='-R$libdir' _LT_TAGVAR(hardcode_direct, $1)=yes _LT_TAGVAR(hardcode_shlibpath_var, $1)=no ;; hpux9*) if test "$GCC" = yes; then _LT_TAGVAR(archive_cmds, $1)='$RM $output_objdir/$soname~$CC -shared $pic_flag ${wl}+b ${wl}$install_libdir -o $output_objdir/$soname $libobjs $deplibs $compiler_flags~test $output_objdir/$soname = $lib || mv $output_objdir/$soname $lib' else _LT_TAGVAR(archive_cmds, $1)='$RM $output_objdir/$soname~$LD -b +b $install_libdir -o $output_objdir/$soname $libobjs $deplibs $linker_flags~test $output_objdir/$soname = $lib || mv $output_objdir/$soname $lib' fi _LT_TAGVAR(hardcode_libdir_flag_spec, $1)='${wl}+b ${wl}$libdir' _LT_TAGVAR(hardcode_libdir_separator, $1)=: _LT_TAGVAR(hardcode_direct, $1)=yes # hardcode_minus_L: Not really in the search PATH, # but as the default location of the library. _LT_TAGVAR(hardcode_minus_L, $1)=yes _LT_TAGVAR(export_dynamic_flag_spec, $1)='${wl}-E' ;; hpux10*) if test "$GCC" = yes && test "$with_gnu_ld" = no; then _LT_TAGVAR(archive_cmds, $1)='$CC -shared $pic_flag ${wl}+h ${wl}$soname ${wl}+b ${wl}$install_libdir -o $lib $libobjs $deplibs $compiler_flags' else _LT_TAGVAR(archive_cmds, $1)='$LD -b +h $soname +b $install_libdir -o $lib $libobjs $deplibs $linker_flags' fi if test "$with_gnu_ld" = no; then _LT_TAGVAR(hardcode_libdir_flag_spec, $1)='${wl}+b ${wl}$libdir' _LT_TAGVAR(hardcode_libdir_separator, $1)=: _LT_TAGVAR(hardcode_direct, $1)=yes _LT_TAGVAR(hardcode_direct_absolute, $1)=yes _LT_TAGVAR(export_dynamic_flag_spec, $1)='${wl}-E' # hardcode_minus_L: Not really in the search PATH, # but as the default location of the library. _LT_TAGVAR(hardcode_minus_L, $1)=yes fi ;; hpux11*) if test "$GCC" = yes && test "$with_gnu_ld" = no; then case $host_cpu in hppa*64*) _LT_TAGVAR(archive_cmds, $1)='$CC -shared ${wl}+h ${wl}$soname -o $lib $libobjs $deplibs $compiler_flags' ;; ia64*) _LT_TAGVAR(archive_cmds, $1)='$CC -shared $pic_flag ${wl}+h ${wl}$soname ${wl}+nodefaultrpath -o $lib $libobjs $deplibs $compiler_flags' ;; *) _LT_TAGVAR(archive_cmds, $1)='$CC -shared $pic_flag ${wl}+h ${wl}$soname ${wl}+b ${wl}$install_libdir -o $lib $libobjs $deplibs $compiler_flags' ;; esac else case $host_cpu in hppa*64*) _LT_TAGVAR(archive_cmds, $1)='$CC -b ${wl}+h ${wl}$soname -o $lib $libobjs $deplibs $compiler_flags' ;; ia64*) _LT_TAGVAR(archive_cmds, $1)='$CC -b ${wl}+h ${wl}$soname ${wl}+nodefaultrpath -o $lib $libobjs $deplibs $compiler_flags' ;; *) m4_if($1, [], [ # Older versions of the 11.00 compiler do not understand -b yet # (HP92453-01 A.11.01.20 doesn't, HP92453-01 B.11.X.35175-35176.GP does) _LT_LINKER_OPTION([if $CC understands -b], _LT_TAGVAR(lt_cv_prog_compiler__b, $1), [-b], [_LT_TAGVAR(archive_cmds, $1)='$CC -b ${wl}+h ${wl}$soname ${wl}+b ${wl}$install_libdir -o $lib $libobjs $deplibs $compiler_flags'], [_LT_TAGVAR(archive_cmds, $1)='$LD -b +h $soname +b $install_libdir -o $lib $libobjs $deplibs $linker_flags'])], [_LT_TAGVAR(archive_cmds, $1)='$CC -b ${wl}+h ${wl}$soname ${wl}+b ${wl}$install_libdir -o $lib $libobjs $deplibs $compiler_flags']) ;; esac fi if test "$with_gnu_ld" = no; then _LT_TAGVAR(hardcode_libdir_flag_spec, $1)='${wl}+b ${wl}$libdir' _LT_TAGVAR(hardcode_libdir_separator, $1)=: case $host_cpu in hppa*64*|ia64*) _LT_TAGVAR(hardcode_direct, $1)=no _LT_TAGVAR(hardcode_shlibpath_var, $1)=no ;; *) _LT_TAGVAR(hardcode_direct, $1)=yes _LT_TAGVAR(hardcode_direct_absolute, $1)=yes _LT_TAGVAR(export_dynamic_flag_spec, $1)='${wl}-E' # hardcode_minus_L: Not really in the search PATH, # but as the default location of the library. _LT_TAGVAR(hardcode_minus_L, $1)=yes ;; esac fi ;; irix5* | irix6* | nonstopux*) if test "$GCC" = yes; then _LT_TAGVAR(archive_cmds, $1)='$CC -shared $pic_flag $libobjs $deplibs $compiler_flags ${wl}-soname ${wl}$soname `test -n "$verstring" && func_echo_all "${wl}-set_version ${wl}$verstring"` ${wl}-update_registry ${wl}${output_objdir}/so_locations -o $lib' # Try to use the -exported_symbol ld option, if it does not # work, assume that -exports_file does not work either and # implicitly export all symbols. # This should be the same for all languages, so no per-tag cache variable. AC_CACHE_CHECK([whether the $host_os linker accepts -exported_symbol], [lt_cv_irix_exported_symbol], [save_LDFLAGS="$LDFLAGS" LDFLAGS="$LDFLAGS -shared ${wl}-exported_symbol ${wl}foo ${wl}-update_registry ${wl}/dev/null" AC_LINK_IFELSE( [AC_LANG_SOURCE( [AC_LANG_CASE([C], [[int foo (void) { return 0; }]], [C++], [[int foo (void) { return 0; }]], [Fortran 77], [[ subroutine foo end]], [Fortran], [[ subroutine foo end]])])], [lt_cv_irix_exported_symbol=yes], [lt_cv_irix_exported_symbol=no]) LDFLAGS="$save_LDFLAGS"]) if test "$lt_cv_irix_exported_symbol" = yes; then _LT_TAGVAR(archive_expsym_cmds, $1)='$CC -shared $pic_flag $libobjs $deplibs $compiler_flags ${wl}-soname ${wl}$soname `test -n "$verstring" && func_echo_all "${wl}-set_version ${wl}$verstring"` ${wl}-update_registry ${wl}${output_objdir}/so_locations ${wl}-exports_file ${wl}$export_symbols -o $lib' fi else _LT_TAGVAR(archive_cmds, $1)='$CC -shared $libobjs $deplibs $compiler_flags -soname $soname `test -n "$verstring" && func_echo_all "-set_version $verstring"` -update_registry ${output_objdir}/so_locations -o $lib' _LT_TAGVAR(archive_expsym_cmds, $1)='$CC -shared $libobjs $deplibs $compiler_flags -soname $soname `test -n "$verstring" && func_echo_all "-set_version $verstring"` -update_registry ${output_objdir}/so_locations -exports_file $export_symbols -o $lib' fi _LT_TAGVAR(archive_cmds_need_lc, $1)='no' _LT_TAGVAR(hardcode_libdir_flag_spec, $1)='${wl}-rpath ${wl}$libdir' _LT_TAGVAR(hardcode_libdir_separator, $1)=: _LT_TAGVAR(inherit_rpath, $1)=yes _LT_TAGVAR(link_all_deplibs, $1)=yes ;; netbsd* | netbsdelf*-gnu) if echo __ELF__ | $CC -E - | $GREP __ELF__ >/dev/null; then _LT_TAGVAR(archive_cmds, $1)='$LD -Bshareable -o $lib $libobjs $deplibs $linker_flags' # a.out else _LT_TAGVAR(archive_cmds, $1)='$LD -shared -o $lib $libobjs $deplibs $linker_flags' # ELF fi _LT_TAGVAR(hardcode_libdir_flag_spec, $1)='-R$libdir' _LT_TAGVAR(hardcode_direct, $1)=yes _LT_TAGVAR(hardcode_shlibpath_var, $1)=no ;; newsos6) _LT_TAGVAR(archive_cmds, $1)='$LD -G -h $soname -o $lib $libobjs $deplibs $linker_flags' _LT_TAGVAR(hardcode_direct, $1)=yes _LT_TAGVAR(hardcode_libdir_flag_spec, $1)='${wl}-rpath ${wl}$libdir' _LT_TAGVAR(hardcode_libdir_separator, $1)=: _LT_TAGVAR(hardcode_shlibpath_var, $1)=no ;; *nto* | *qnx*) ;; openbsd*) if test -f /usr/libexec/ld.so; then _LT_TAGVAR(hardcode_direct, $1)=yes _LT_TAGVAR(hardcode_shlibpath_var, $1)=no _LT_TAGVAR(hardcode_direct_absolute, $1)=yes if test -z "`echo __ELF__ | $CC -E - | $GREP __ELF__`" || test "$host_os-$host_cpu" = "openbsd2.8-powerpc"; then _LT_TAGVAR(archive_cmds, $1)='$CC -shared $pic_flag -o $lib $libobjs $deplibs $compiler_flags' _LT_TAGVAR(archive_expsym_cmds, $1)='$CC -shared $pic_flag -o $lib $libobjs $deplibs $compiler_flags ${wl}-retain-symbols-file,$export_symbols' _LT_TAGVAR(hardcode_libdir_flag_spec, $1)='${wl}-rpath,$libdir' _LT_TAGVAR(export_dynamic_flag_spec, $1)='${wl}-E' else case $host_os in openbsd[[01]].* | openbsd2.[[0-7]] | openbsd2.[[0-7]].*) _LT_TAGVAR(archive_cmds, $1)='$LD -Bshareable -o $lib $libobjs $deplibs $linker_flags' _LT_TAGVAR(hardcode_libdir_flag_spec, $1)='-R$libdir' ;; *) _LT_TAGVAR(archive_cmds, $1)='$CC -shared $pic_flag -o $lib $libobjs $deplibs $compiler_flags' _LT_TAGVAR(hardcode_libdir_flag_spec, $1)='${wl}-rpath,$libdir' ;; esac fi else _LT_TAGVAR(ld_shlibs, $1)=no fi ;; os2*) _LT_TAGVAR(hardcode_libdir_flag_spec, $1)='-L$libdir' _LT_TAGVAR(hardcode_minus_L, $1)=yes _LT_TAGVAR(allow_undefined_flag, $1)=unsupported _LT_TAGVAR(archive_cmds, $1)='$ECHO "LIBRARY $libname INITINSTANCE" > $output_objdir/$libname.def~$ECHO "DESCRIPTION \"$libname\"" >> $output_objdir/$libname.def~echo DATA >> $output_objdir/$libname.def~echo " SINGLE NONSHARED" >> $output_objdir/$libname.def~echo EXPORTS >> $output_objdir/$libname.def~emxexp $libobjs >> $output_objdir/$libname.def~$CC -Zdll -Zcrtdll -o $lib $libobjs $deplibs $compiler_flags $output_objdir/$libname.def' _LT_TAGVAR(old_archive_from_new_cmds, $1)='emximp -o $output_objdir/$libname.a $output_objdir/$libname.def' ;; osf3*) if test "$GCC" = yes; then _LT_TAGVAR(allow_undefined_flag, $1)=' ${wl}-expect_unresolved ${wl}\*' _LT_TAGVAR(archive_cmds, $1)='$CC -shared${allow_undefined_flag} $libobjs $deplibs $compiler_flags ${wl}-soname ${wl}$soname `test -n "$verstring" && func_echo_all "${wl}-set_version ${wl}$verstring"` ${wl}-update_registry ${wl}${output_objdir}/so_locations -o $lib' else _LT_TAGVAR(allow_undefined_flag, $1)=' -expect_unresolved \*' _LT_TAGVAR(archive_cmds, $1)='$CC -shared${allow_undefined_flag} $libobjs $deplibs $compiler_flags -soname $soname `test -n "$verstring" && func_echo_all "-set_version $verstring"` -update_registry ${output_objdir}/so_locations -o $lib' fi _LT_TAGVAR(archive_cmds_need_lc, $1)='no' _LT_TAGVAR(hardcode_libdir_flag_spec, $1)='${wl}-rpath ${wl}$libdir' _LT_TAGVAR(hardcode_libdir_separator, $1)=: ;; osf4* | osf5*) # as osf3* with the addition of -msym flag if test "$GCC" = yes; then _LT_TAGVAR(allow_undefined_flag, $1)=' ${wl}-expect_unresolved ${wl}\*' _LT_TAGVAR(archive_cmds, $1)='$CC -shared${allow_undefined_flag} $pic_flag $libobjs $deplibs $compiler_flags ${wl}-msym ${wl}-soname ${wl}$soname `test -n "$verstring" && func_echo_all "${wl}-set_version ${wl}$verstring"` ${wl}-update_registry ${wl}${output_objdir}/so_locations -o $lib' _LT_TAGVAR(hardcode_libdir_flag_spec, $1)='${wl}-rpath ${wl}$libdir' else _LT_TAGVAR(allow_undefined_flag, $1)=' -expect_unresolved \*' _LT_TAGVAR(archive_cmds, $1)='$CC -shared${allow_undefined_flag} $libobjs $deplibs $compiler_flags -msym -soname $soname `test -n "$verstring" && func_echo_all "-set_version $verstring"` -update_registry ${output_objdir}/so_locations -o $lib' _LT_TAGVAR(archive_expsym_cmds, $1)='for i in `cat $export_symbols`; do printf "%s %s\\n" -exported_symbol "\$i" >> $lib.exp; done; printf "%s\\n" "-hidden">> $lib.exp~ $CC -shared${allow_undefined_flag} ${wl}-input ${wl}$lib.exp $compiler_flags $libobjs $deplibs -soname $soname `test -n "$verstring" && $ECHO "-set_version $verstring"` -update_registry ${output_objdir}/so_locations -o $lib~$RM $lib.exp' # Both c and cxx compiler support -rpath directly _LT_TAGVAR(hardcode_libdir_flag_spec, $1)='-rpath $libdir' fi _LT_TAGVAR(archive_cmds_need_lc, $1)='no' _LT_TAGVAR(hardcode_libdir_separator, $1)=: ;; solaris*) _LT_TAGVAR(no_undefined_flag, $1)=' -z defs' if test "$GCC" = yes; then wlarc='${wl}' _LT_TAGVAR(archive_cmds, $1)='$CC -shared $pic_flag ${wl}-z ${wl}text ${wl}-h ${wl}$soname -o $lib $libobjs $deplibs $compiler_flags' _LT_TAGVAR(archive_expsym_cmds, $1)='echo "{ global:" > $lib.exp~cat $export_symbols | $SED -e "s/\(.*\)/\1;/" >> $lib.exp~echo "local: *; };" >> $lib.exp~ $CC -shared $pic_flag ${wl}-z ${wl}text ${wl}-M ${wl}$lib.exp ${wl}-h ${wl}$soname -o $lib $libobjs $deplibs $compiler_flags~$RM $lib.exp' else case `$CC -V 2>&1` in *"Compilers 5.0"*) wlarc='' _LT_TAGVAR(archive_cmds, $1)='$LD -G${allow_undefined_flag} -h $soname -o $lib $libobjs $deplibs $linker_flags' _LT_TAGVAR(archive_expsym_cmds, $1)='echo "{ global:" > $lib.exp~cat $export_symbols | $SED -e "s/\(.*\)/\1;/" >> $lib.exp~echo "local: *; };" >> $lib.exp~ $LD -G${allow_undefined_flag} -M $lib.exp -h $soname -o $lib $libobjs $deplibs $linker_flags~$RM $lib.exp' ;; *) wlarc='${wl}' _LT_TAGVAR(archive_cmds, $1)='$CC -G${allow_undefined_flag} -h $soname -o $lib $libobjs $deplibs $compiler_flags' _LT_TAGVAR(archive_expsym_cmds, $1)='echo "{ global:" > $lib.exp~cat $export_symbols | $SED -e "s/\(.*\)/\1;/" >> $lib.exp~echo "local: *; };" >> $lib.exp~ $CC -G${allow_undefined_flag} -M $lib.exp -h $soname -o $lib $libobjs $deplibs $compiler_flags~$RM $lib.exp' ;; esac fi _LT_TAGVAR(hardcode_libdir_flag_spec, $1)='-R$libdir' _LT_TAGVAR(hardcode_shlibpath_var, $1)=no case $host_os in solaris2.[[0-5]] | solaris2.[[0-5]].*) ;; *) # The compiler driver will combine and reorder linker options, # but understands `-z linker_flag'. GCC discards it without `$wl', # but is careful enough not to reorder. # Supported since Solaris 2.6 (maybe 2.5.1?) if test "$GCC" = yes; then _LT_TAGVAR(whole_archive_flag_spec, $1)='${wl}-z ${wl}allextract$convenience ${wl}-z ${wl}defaultextract' else _LT_TAGVAR(whole_archive_flag_spec, $1)='-z allextract$convenience -z defaultextract' fi ;; esac _LT_TAGVAR(link_all_deplibs, $1)=yes ;; sunos4*) if test "x$host_vendor" = xsequent; then # Use $CC to link under sequent, because it throws in some extra .o # files that make .init and .fini sections work. _LT_TAGVAR(archive_cmds, $1)='$CC -G ${wl}-h $soname -o $lib $libobjs $deplibs $compiler_flags' else _LT_TAGVAR(archive_cmds, $1)='$LD -assert pure-text -Bstatic -o $lib $libobjs $deplibs $linker_flags' fi _LT_TAGVAR(hardcode_libdir_flag_spec, $1)='-L$libdir' _LT_TAGVAR(hardcode_direct, $1)=yes _LT_TAGVAR(hardcode_minus_L, $1)=yes _LT_TAGVAR(hardcode_shlibpath_var, $1)=no ;; sysv4) case $host_vendor in sni) _LT_TAGVAR(archive_cmds, $1)='$LD -G -h $soname -o $lib $libobjs $deplibs $linker_flags' _LT_TAGVAR(hardcode_direct, $1)=yes # is this really true??? ;; siemens) ## LD is ld it makes a PLAMLIB ## CC just makes a GrossModule. _LT_TAGVAR(archive_cmds, $1)='$LD -G -o $lib $libobjs $deplibs $linker_flags' _LT_TAGVAR(reload_cmds, $1)='$CC -r -o $output$reload_objs' _LT_TAGVAR(hardcode_direct, $1)=no ;; motorola) _LT_TAGVAR(archive_cmds, $1)='$LD -G -h $soname -o $lib $libobjs $deplibs $linker_flags' _LT_TAGVAR(hardcode_direct, $1)=no #Motorola manual says yes, but my tests say they lie ;; esac runpath_var='LD_RUN_PATH' _LT_TAGVAR(hardcode_shlibpath_var, $1)=no ;; sysv4.3*) _LT_TAGVAR(archive_cmds, $1)='$LD -G -h $soname -o $lib $libobjs $deplibs $linker_flags' _LT_TAGVAR(hardcode_shlibpath_var, $1)=no _LT_TAGVAR(export_dynamic_flag_spec, $1)='-Bexport' ;; sysv4*MP*) if test -d /usr/nec; then _LT_TAGVAR(archive_cmds, $1)='$LD -G -h $soname -o $lib $libobjs $deplibs $linker_flags' _LT_TAGVAR(hardcode_shlibpath_var, $1)=no runpath_var=LD_RUN_PATH hardcode_runpath_var=yes _LT_TAGVAR(ld_shlibs, $1)=yes fi ;; sysv4*uw2* | sysv5OpenUNIX* | sysv5UnixWare7.[[01]].[[10]]* | unixware7* | sco3.2v5.0.[[024]]*) _LT_TAGVAR(no_undefined_flag, $1)='${wl}-z,text' _LT_TAGVAR(archive_cmds_need_lc, $1)=no _LT_TAGVAR(hardcode_shlibpath_var, $1)=no runpath_var='LD_RUN_PATH' if test "$GCC" = yes; then _LT_TAGVAR(archive_cmds, $1)='$CC -shared ${wl}-h,$soname -o $lib $libobjs $deplibs $compiler_flags' _LT_TAGVAR(archive_expsym_cmds, $1)='$CC -shared ${wl}-Bexport:$export_symbols ${wl}-h,$soname -o $lib $libobjs $deplibs $compiler_flags' else _LT_TAGVAR(archive_cmds, $1)='$CC -G ${wl}-h,$soname -o $lib $libobjs $deplibs $compiler_flags' _LT_TAGVAR(archive_expsym_cmds, $1)='$CC -G ${wl}-Bexport:$export_symbols ${wl}-h,$soname -o $lib $libobjs $deplibs $compiler_flags' fi ;; sysv5* | sco3.2v5* | sco5v6*) # Note: We can NOT use -z defs as we might desire, because we do not # link with -lc, and that would cause any symbols used from libc to # always be unresolved, which means just about no library would # ever link correctly. If we're not using GNU ld we use -z text # though, which does catch some bad symbols but isn't as heavy-handed # as -z defs. _LT_TAGVAR(no_undefined_flag, $1)='${wl}-z,text' _LT_TAGVAR(allow_undefined_flag, $1)='${wl}-z,nodefs' _LT_TAGVAR(archive_cmds_need_lc, $1)=no _LT_TAGVAR(hardcode_shlibpath_var, $1)=no _LT_TAGVAR(hardcode_libdir_flag_spec, $1)='${wl}-R,$libdir' _LT_TAGVAR(hardcode_libdir_separator, $1)=':' _LT_TAGVAR(link_all_deplibs, $1)=yes _LT_TAGVAR(export_dynamic_flag_spec, $1)='${wl}-Bexport' runpath_var='LD_RUN_PATH' if test "$GCC" = yes; then _LT_TAGVAR(archive_cmds, $1)='$CC -shared ${wl}-h,$soname -o $lib $libobjs $deplibs $compiler_flags' _LT_TAGVAR(archive_expsym_cmds, $1)='$CC -shared ${wl}-Bexport:$export_symbols ${wl}-h,$soname -o $lib $libobjs $deplibs $compiler_flags' else _LT_TAGVAR(archive_cmds, $1)='$CC -G ${wl}-h,$soname -o $lib $libobjs $deplibs $compiler_flags' _LT_TAGVAR(archive_expsym_cmds, $1)='$CC -G ${wl}-Bexport:$export_symbols ${wl}-h,$soname -o $lib $libobjs $deplibs $compiler_flags' fi ;; uts4*) _LT_TAGVAR(archive_cmds, $1)='$LD -G -h $soname -o $lib $libobjs $deplibs $linker_flags' _LT_TAGVAR(hardcode_libdir_flag_spec, $1)='-L$libdir' _LT_TAGVAR(hardcode_shlibpath_var, $1)=no ;; *) _LT_TAGVAR(ld_shlibs, $1)=no ;; esac if test x$host_vendor = xsni; then case $host in sysv4 | sysv4.2uw2* | sysv4.3* | sysv5*) _LT_TAGVAR(export_dynamic_flag_spec, $1)='${wl}-Blargedynsym' ;; esac fi fi ]) AC_MSG_RESULT([$_LT_TAGVAR(ld_shlibs, $1)]) test "$_LT_TAGVAR(ld_shlibs, $1)" = no && can_build_shared=no _LT_TAGVAR(with_gnu_ld, $1)=$with_gnu_ld _LT_DECL([], [libext], [0], [Old archive suffix (normally "a")])dnl _LT_DECL([], [shrext_cmds], [1], [Shared library suffix (normally ".so")])dnl _LT_DECL([], [extract_expsyms_cmds], [2], [The commands to extract the exported symbol list from a shared archive]) # # Do we need to explicitly link libc? # case "x$_LT_TAGVAR(archive_cmds_need_lc, $1)" in x|xyes) # Assume -lc should be added _LT_TAGVAR(archive_cmds_need_lc, $1)=yes if test "$enable_shared" = yes && test "$GCC" = yes; then case $_LT_TAGVAR(archive_cmds, $1) in *'~'*) # FIXME: we may have to deal with multi-command sequences. ;; '$CC '*) # Test whether the compiler implicitly links with -lc since on some # systems, -lgcc has to come before -lc. If gcc already passes -lc # to ld, don't add -lc before -lgcc. AC_CACHE_CHECK([whether -lc should be explicitly linked in], [lt_cv_]_LT_TAGVAR(archive_cmds_need_lc, $1), [$RM conftest* echo "$lt_simple_compile_test_code" > conftest.$ac_ext if AC_TRY_EVAL(ac_compile) 2>conftest.err; then soname=conftest lib=conftest libobjs=conftest.$ac_objext deplibs= wl=$_LT_TAGVAR(lt_prog_compiler_wl, $1) pic_flag=$_LT_TAGVAR(lt_prog_compiler_pic, $1) compiler_flags=-v linker_flags=-v verstring= output_objdir=. libname=conftest lt_save_allow_undefined_flag=$_LT_TAGVAR(allow_undefined_flag, $1) _LT_TAGVAR(allow_undefined_flag, $1)= if AC_TRY_EVAL(_LT_TAGVAR(archive_cmds, $1) 2\>\&1 \| $GREP \" -lc \" \>/dev/null 2\>\&1) then lt_cv_[]_LT_TAGVAR(archive_cmds_need_lc, $1)=no else lt_cv_[]_LT_TAGVAR(archive_cmds_need_lc, $1)=yes fi _LT_TAGVAR(allow_undefined_flag, $1)=$lt_save_allow_undefined_flag else cat conftest.err 1>&5 fi $RM conftest* ]) _LT_TAGVAR(archive_cmds_need_lc, $1)=$lt_cv_[]_LT_TAGVAR(archive_cmds_need_lc, $1) ;; esac fi ;; esac _LT_TAGDECL([build_libtool_need_lc], [archive_cmds_need_lc], [0], [Whether or not to add -lc for building shared libraries]) _LT_TAGDECL([allow_libtool_libs_with_static_runtimes], [enable_shared_with_static_runtimes], [0], [Whether or not to disallow shared libs when runtime libs are static]) _LT_TAGDECL([], [export_dynamic_flag_spec], [1], [Compiler flag to allow reflexive dlopens]) _LT_TAGDECL([], [whole_archive_flag_spec], [1], [Compiler flag to generate shared objects directly from archives]) _LT_TAGDECL([], [compiler_needs_object], [1], [Whether the compiler copes with passing no objects directly]) _LT_TAGDECL([], [old_archive_from_new_cmds], [2], [Create an old-style archive from a shared archive]) _LT_TAGDECL([], [old_archive_from_expsyms_cmds], [2], [Create a temporary old-style archive to link instead of a shared archive]) _LT_TAGDECL([], [archive_cmds], [2], [Commands used to build a shared archive]) _LT_TAGDECL([], [archive_expsym_cmds], [2]) _LT_TAGDECL([], [module_cmds], [2], [Commands used to build a loadable module if different from building a shared archive.]) _LT_TAGDECL([], [module_expsym_cmds], [2]) _LT_TAGDECL([], [with_gnu_ld], [1], [Whether we are building with GNU ld or not]) _LT_TAGDECL([], [allow_undefined_flag], [1], [Flag that allows shared libraries with undefined symbols to be built]) _LT_TAGDECL([], [no_undefined_flag], [1], [Flag that enforces no undefined symbols]) _LT_TAGDECL([], [hardcode_libdir_flag_spec], [1], [Flag to hardcode $libdir into a binary during linking. This must work even if $libdir does not exist]) _LT_TAGDECL([], [hardcode_libdir_separator], [1], [Whether we need a single "-rpath" flag with a separated argument]) _LT_TAGDECL([], [hardcode_direct], [0], [Set to "yes" if using DIR/libNAME${shared_ext} during linking hardcodes DIR into the resulting binary]) _LT_TAGDECL([], [hardcode_direct_absolute], [0], [Set to "yes" if using DIR/libNAME${shared_ext} during linking hardcodes DIR into the resulting binary and the resulting library dependency is "absolute", i.e impossible to change by setting ${shlibpath_var} if the library is relocated]) _LT_TAGDECL([], [hardcode_minus_L], [0], [Set to "yes" if using the -LDIR flag during linking hardcodes DIR into the resulting binary]) _LT_TAGDECL([], [hardcode_shlibpath_var], [0], [Set to "yes" if using SHLIBPATH_VAR=DIR during linking hardcodes DIR into the resulting binary]) _LT_TAGDECL([], [hardcode_automatic], [0], [Set to "yes" if building a shared library automatically hardcodes DIR into the library and all subsequent libraries and executables linked against it]) _LT_TAGDECL([], [inherit_rpath], [0], [Set to yes if linker adds runtime paths of dependent libraries to runtime path list]) _LT_TAGDECL([], [link_all_deplibs], [0], [Whether libtool must link a program against all its dependency libraries]) _LT_TAGDECL([], [always_export_symbols], [0], [Set to "yes" if exported symbols are required]) _LT_TAGDECL([], [export_symbols_cmds], [2], [The commands to list exported symbols]) _LT_TAGDECL([], [exclude_expsyms], [1], [Symbols that should not be listed in the preloaded symbols]) _LT_TAGDECL([], [include_expsyms], [1], [Symbols that must always be exported]) _LT_TAGDECL([], [prelink_cmds], [2], [Commands necessary for linking programs (against libraries) with templates]) _LT_TAGDECL([], [postlink_cmds], [2], [Commands necessary for finishing linking programs]) _LT_TAGDECL([], [file_list_spec], [1], [Specify filename containing input files]) dnl FIXME: Not yet implemented dnl _LT_TAGDECL([], [thread_safe_flag_spec], [1], dnl [Compiler flag to generate thread safe objects]) ])# _LT_LINKER_SHLIBS # _LT_LANG_C_CONFIG([TAG]) # ------------------------ # Ensure that the configuration variables for a C compiler are suitably # defined. These variables are subsequently used by _LT_CONFIG to write # the compiler configuration to `libtool'. m4_defun([_LT_LANG_C_CONFIG], [m4_require([_LT_DECL_EGREP])dnl lt_save_CC="$CC" AC_LANG_PUSH(C) # Source file extension for C test sources. ac_ext=c # Object file extension for compiled C test sources. objext=o _LT_TAGVAR(objext, $1)=$objext # Code to be used in simple compile tests lt_simple_compile_test_code="int some_variable = 0;" # Code to be used in simple link tests lt_simple_link_test_code='int main(){return(0);}' _LT_TAG_COMPILER # Save the default compiler, since it gets overwritten when the other # tags are being tested, and _LT_TAGVAR(compiler, []) is a NOP. compiler_DEFAULT=$CC # save warnings/boilerplate of simple test code _LT_COMPILER_BOILERPLATE _LT_LINKER_BOILERPLATE if test -n "$compiler"; then _LT_COMPILER_NO_RTTI($1) _LT_COMPILER_PIC($1) _LT_COMPILER_C_O($1) _LT_COMPILER_FILE_LOCKS($1) _LT_LINKER_SHLIBS($1) _LT_SYS_DYNAMIC_LINKER($1) _LT_LINKER_HARDCODE_LIBPATH($1) LT_SYS_DLOPEN_SELF _LT_CMD_STRIPLIB # Report which library types will actually be built AC_MSG_CHECKING([if libtool supports shared libraries]) AC_MSG_RESULT([$can_build_shared]) AC_MSG_CHECKING([whether to build shared libraries]) test "$can_build_shared" = "no" && enable_shared=no # On AIX, shared libraries and static libraries use the same namespace, and # are all built from PIC. case $host_os in aix3*) test "$enable_shared" = yes && enable_static=no if test -n "$RANLIB"; then archive_cmds="$archive_cmds~\$RANLIB \$lib" postinstall_cmds='$RANLIB $lib' fi ;; aix[[4-9]]*) if test "$host_cpu" != ia64 && test "$aix_use_runtimelinking" = no ; then test "$enable_shared" = yes && enable_static=no fi ;; esac AC_MSG_RESULT([$enable_shared]) AC_MSG_CHECKING([whether to build static libraries]) # Make sure either enable_shared or enable_static is yes. test "$enable_shared" = yes || enable_static=yes AC_MSG_RESULT([$enable_static]) _LT_CONFIG($1) fi AC_LANG_POP CC="$lt_save_CC" ])# _LT_LANG_C_CONFIG # _LT_LANG_CXX_CONFIG([TAG]) # -------------------------- # Ensure that the configuration variables for a C++ compiler are suitably # defined. These variables are subsequently used by _LT_CONFIG to write # the compiler configuration to `libtool'. m4_defun([_LT_LANG_CXX_CONFIG], [m4_require([_LT_FILEUTILS_DEFAULTS])dnl m4_require([_LT_DECL_EGREP])dnl m4_require([_LT_PATH_MANIFEST_TOOL])dnl if test -n "$CXX" && ( test "X$CXX" != "Xno" && ( (test "X$CXX" = "Xg++" && `g++ -v >/dev/null 2>&1` ) || (test "X$CXX" != "Xg++"))) ; then AC_PROG_CXXCPP else _lt_caught_CXX_error=yes fi AC_LANG_PUSH(C++) _LT_TAGVAR(archive_cmds_need_lc, $1)=no _LT_TAGVAR(allow_undefined_flag, $1)= _LT_TAGVAR(always_export_symbols, $1)=no _LT_TAGVAR(archive_expsym_cmds, $1)= _LT_TAGVAR(compiler_needs_object, $1)=no _LT_TAGVAR(export_dynamic_flag_spec, $1)= _LT_TAGVAR(hardcode_direct, $1)=no _LT_TAGVAR(hardcode_direct_absolute, $1)=no _LT_TAGVAR(hardcode_libdir_flag_spec, $1)= _LT_TAGVAR(hardcode_libdir_separator, $1)= _LT_TAGVAR(hardcode_minus_L, $1)=no _LT_TAGVAR(hardcode_shlibpath_var, $1)=unsupported _LT_TAGVAR(hardcode_automatic, $1)=no _LT_TAGVAR(inherit_rpath, $1)=no _LT_TAGVAR(module_cmds, $1)= _LT_TAGVAR(module_expsym_cmds, $1)= _LT_TAGVAR(link_all_deplibs, $1)=unknown _LT_TAGVAR(old_archive_cmds, $1)=$old_archive_cmds _LT_TAGVAR(reload_flag, $1)=$reload_flag _LT_TAGVAR(reload_cmds, $1)=$reload_cmds _LT_TAGVAR(no_undefined_flag, $1)= _LT_TAGVAR(whole_archive_flag_spec, $1)= _LT_TAGVAR(enable_shared_with_static_runtimes, $1)=no # Source file extension for C++ test sources. ac_ext=cpp # Object file extension for compiled C++ test sources. objext=o _LT_TAGVAR(objext, $1)=$objext # No sense in running all these tests if we already determined that # the CXX compiler isn't working. Some variables (like enable_shared) # are currently assumed to apply to all compilers on this platform, # and will be corrupted by setting them based on a non-working compiler. if test "$_lt_caught_CXX_error" != yes; then # Code to be used in simple compile tests lt_simple_compile_test_code="int some_variable = 0;" # Code to be used in simple link tests lt_simple_link_test_code='int main(int, char *[[]]) { return(0); }' # ltmain only uses $CC for tagged configurations so make sure $CC is set. _LT_TAG_COMPILER # save warnings/boilerplate of simple test code _LT_COMPILER_BOILERPLATE _LT_LINKER_BOILERPLATE # Allow CC to be a program name with arguments. lt_save_CC=$CC lt_save_CFLAGS=$CFLAGS lt_save_LD=$LD lt_save_GCC=$GCC GCC=$GXX lt_save_with_gnu_ld=$with_gnu_ld lt_save_path_LD=$lt_cv_path_LD if test -n "${lt_cv_prog_gnu_ldcxx+set}"; then lt_cv_prog_gnu_ld=$lt_cv_prog_gnu_ldcxx else $as_unset lt_cv_prog_gnu_ld fi if test -n "${lt_cv_path_LDCXX+set}"; then lt_cv_path_LD=$lt_cv_path_LDCXX else $as_unset lt_cv_path_LD fi test -z "${LDCXX+set}" || LD=$LDCXX CC=${CXX-"c++"} CFLAGS=$CXXFLAGS compiler=$CC _LT_TAGVAR(compiler, $1)=$CC _LT_CC_BASENAME([$compiler]) if test -n "$compiler"; then # We don't want -fno-exception when compiling C++ code, so set the # no_builtin_flag separately if test "$GXX" = yes; then _LT_TAGVAR(lt_prog_compiler_no_builtin_flag, $1)=' -fno-builtin' else _LT_TAGVAR(lt_prog_compiler_no_builtin_flag, $1)= fi if test "$GXX" = yes; then # Set up default GNU C++ configuration LT_PATH_LD # Check if GNU C++ uses GNU ld as the underlying linker, since the # archiving commands below assume that GNU ld is being used. if test "$with_gnu_ld" = yes; then _LT_TAGVAR(archive_cmds, $1)='$CC $pic_flag -shared -nostdlib $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags ${wl}-soname $wl$soname -o $lib' _LT_TAGVAR(archive_expsym_cmds, $1)='$CC $pic_flag -shared -nostdlib $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags ${wl}-soname $wl$soname ${wl}-retain-symbols-file $wl$export_symbols -o $lib' _LT_TAGVAR(hardcode_libdir_flag_spec, $1)='${wl}-rpath ${wl}$libdir' _LT_TAGVAR(export_dynamic_flag_spec, $1)='${wl}--export-dynamic' # If archive_cmds runs LD, not CC, wlarc should be empty # XXX I think wlarc can be eliminated in ltcf-cxx, but I need to # investigate it a little bit more. (MM) wlarc='${wl}' # ancient GNU ld didn't support --whole-archive et. al. if eval "`$CC -print-prog-name=ld` --help 2>&1" | $GREP 'no-whole-archive' > /dev/null; then _LT_TAGVAR(whole_archive_flag_spec, $1)="$wlarc"'--whole-archive$convenience '"$wlarc"'--no-whole-archive' else _LT_TAGVAR(whole_archive_flag_spec, $1)= fi else with_gnu_ld=no wlarc= # A generic and very simple default shared library creation # command for GNU C++ for the case where it uses the native # linker, instead of GNU ld. If possible, this setting should # overridden to take advantage of the native linker features on # the platform it is being used on. _LT_TAGVAR(archive_cmds, $1)='$CC -shared -nostdlib $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags -o $lib' fi # Commands to make compiler produce verbose output that lists # what "hidden" libraries, object files and flags are used when # linking a shared library. output_verbose_link_cmd='$CC -shared $CFLAGS -v conftest.$objext 2>&1 | $GREP -v "^Configured with:" | $GREP "\-L"' else GXX=no with_gnu_ld=no wlarc= fi # PORTME: fill in a description of your system's C++ link characteristics AC_MSG_CHECKING([whether the $compiler linker ($LD) supports shared libraries]) _LT_TAGVAR(ld_shlibs, $1)=yes case $host_os in aix3*) # FIXME: insert proper C++ library support _LT_TAGVAR(ld_shlibs, $1)=no ;; aix[[4-9]]*) if test "$host_cpu" = ia64; then # On IA64, the linker does run time linking by default, so we don't # have to do anything special. aix_use_runtimelinking=no exp_sym_flag='-Bexport' no_entry_flag="" else aix_use_runtimelinking=no # Test if we are trying to use run time linking or normal # AIX style linking. If -brtl is somewhere in LDFLAGS, we # need to do runtime linking. case $host_os in aix4.[[23]]|aix4.[[23]].*|aix[[5-9]]*) for ld_flag in $LDFLAGS; do case $ld_flag in *-brtl*) aix_use_runtimelinking=yes break ;; esac done ;; esac exp_sym_flag='-bexport' no_entry_flag='-bnoentry' fi # When large executables or shared objects are built, AIX ld can # have problems creating the table of contents. If linking a library # or program results in "error TOC overflow" add -mminimal-toc to # CXXFLAGS/CFLAGS for g++/gcc. In the cases where that is not # enough to fix the problem, add -Wl,-bbigtoc to LDFLAGS. _LT_TAGVAR(archive_cmds, $1)='' _LT_TAGVAR(hardcode_direct, $1)=yes _LT_TAGVAR(hardcode_direct_absolute, $1)=yes _LT_TAGVAR(hardcode_libdir_separator, $1)=':' _LT_TAGVAR(link_all_deplibs, $1)=yes _LT_TAGVAR(file_list_spec, $1)='${wl}-f,' if test "$GXX" = yes; then case $host_os in aix4.[[012]]|aix4.[[012]].*) # We only want to do this on AIX 4.2 and lower, the check # below for broken collect2 doesn't work under 4.3+ collect2name=`${CC} -print-prog-name=collect2` if test -f "$collect2name" && strings "$collect2name" | $GREP resolve_lib_name >/dev/null then # We have reworked collect2 : else # We have old collect2 _LT_TAGVAR(hardcode_direct, $1)=unsupported # It fails to find uninstalled libraries when the uninstalled # path is not listed in the libpath. Setting hardcode_minus_L # to unsupported forces relinking _LT_TAGVAR(hardcode_minus_L, $1)=yes _LT_TAGVAR(hardcode_libdir_flag_spec, $1)='-L$libdir' _LT_TAGVAR(hardcode_libdir_separator, $1)= fi esac shared_flag='-shared' if test "$aix_use_runtimelinking" = yes; then shared_flag="$shared_flag "'${wl}-G' fi else # not using gcc if test "$host_cpu" = ia64; then # VisualAge C++, Version 5.5 for AIX 5L for IA-64, Beta 3 Release # chokes on -Wl,-G. The following line is correct: shared_flag='-G' else if test "$aix_use_runtimelinking" = yes; then shared_flag='${wl}-G' else shared_flag='${wl}-bM:SRE' fi fi fi _LT_TAGVAR(export_dynamic_flag_spec, $1)='${wl}-bexpall' # It seems that -bexpall does not export symbols beginning with # underscore (_), so it is better to generate a list of symbols to # export. _LT_TAGVAR(always_export_symbols, $1)=yes if test "$aix_use_runtimelinking" = yes; then # Warning - without using the other runtime loading flags (-brtl), # -berok will link without error, but may produce a broken library. _LT_TAGVAR(allow_undefined_flag, $1)='-berok' # Determine the default libpath from the value encoded in an empty # executable. _LT_SYS_MODULE_PATH_AIX([$1]) _LT_TAGVAR(hardcode_libdir_flag_spec, $1)='${wl}-blibpath:$libdir:'"$aix_libpath" _LT_TAGVAR(archive_expsym_cmds, $1)='$CC -o $output_objdir/$soname $libobjs $deplibs '"\${wl}$no_entry_flag"' $compiler_flags `if test "x${allow_undefined_flag}" != "x"; then func_echo_all "${wl}${allow_undefined_flag}"; else :; fi` '"\${wl}$exp_sym_flag:\$export_symbols $shared_flag" else if test "$host_cpu" = ia64; then _LT_TAGVAR(hardcode_libdir_flag_spec, $1)='${wl}-R $libdir:/usr/lib:/lib' _LT_TAGVAR(allow_undefined_flag, $1)="-z nodefs" _LT_TAGVAR(archive_expsym_cmds, $1)="\$CC $shared_flag"' -o $output_objdir/$soname $libobjs $deplibs '"\${wl}$no_entry_flag"' $compiler_flags ${wl}${allow_undefined_flag} '"\${wl}$exp_sym_flag:\$export_symbols" else # Determine the default libpath from the value encoded in an # empty executable. _LT_SYS_MODULE_PATH_AIX([$1]) _LT_TAGVAR(hardcode_libdir_flag_spec, $1)='${wl}-blibpath:$libdir:'"$aix_libpath" # Warning - without using the other run time loading flags, # -berok will link without error, but may produce a broken library. _LT_TAGVAR(no_undefined_flag, $1)=' ${wl}-bernotok' _LT_TAGVAR(allow_undefined_flag, $1)=' ${wl}-berok' if test "$with_gnu_ld" = yes; then # We only use this code for GNU lds that support --whole-archive. _LT_TAGVAR(whole_archive_flag_spec, $1)='${wl}--whole-archive$convenience ${wl}--no-whole-archive' else # Exported symbols can be pulled into shared objects from archives _LT_TAGVAR(whole_archive_flag_spec, $1)='$convenience' fi _LT_TAGVAR(archive_cmds_need_lc, $1)=yes # This is similar to how AIX traditionally builds its shared # libraries. _LT_TAGVAR(archive_expsym_cmds, $1)="\$CC $shared_flag"' -o $output_objdir/$soname $libobjs $deplibs ${wl}-bnoentry $compiler_flags ${wl}-bE:$export_symbols${allow_undefined_flag}~$AR $AR_FLAGS $output_objdir/$libname$release.a $output_objdir/$soname' fi fi ;; beos*) if $LD --help 2>&1 | $GREP ': supported targets:.* elf' > /dev/null; then _LT_TAGVAR(allow_undefined_flag, $1)=unsupported # Joseph Beckenbach says some releases of gcc # support --undefined. This deserves some investigation. FIXME _LT_TAGVAR(archive_cmds, $1)='$CC -nostart $libobjs $deplibs $compiler_flags ${wl}-soname $wl$soname -o $lib' else _LT_TAGVAR(ld_shlibs, $1)=no fi ;; chorus*) case $cc_basename in *) # FIXME: insert proper C++ library support _LT_TAGVAR(ld_shlibs, $1)=no ;; esac ;; cygwin* | mingw* | pw32* | cegcc*) case $GXX,$cc_basename in ,cl* | no,cl*) # Native MSVC # hardcode_libdir_flag_spec is actually meaningless, as there is # no search path for DLLs. _LT_TAGVAR(hardcode_libdir_flag_spec, $1)=' ' _LT_TAGVAR(allow_undefined_flag, $1)=unsupported _LT_TAGVAR(always_export_symbols, $1)=yes _LT_TAGVAR(file_list_spec, $1)='@' # Tell ltmain to make .lib files, not .a files. libext=lib # Tell ltmain to make .dll files, not .so files. shrext_cmds=".dll" # FIXME: Setting linknames here is a bad hack. _LT_TAGVAR(archive_cmds, $1)='$CC -o $output_objdir/$soname $libobjs $compiler_flags $deplibs -Wl,-dll~linknames=' _LT_TAGVAR(archive_expsym_cmds, $1)='if test "x`$SED 1q $export_symbols`" = xEXPORTS; then $SED -n -e 's/\\\\\\\(.*\\\\\\\)/-link\\\ -EXPORT:\\\\\\\1/' -e '1\\\!p' < $export_symbols > $output_objdir/$soname.exp; else $SED -e 's/\\\\\\\(.*\\\\\\\)/-link\\\ -EXPORT:\\\\\\\1/' < $export_symbols > $output_objdir/$soname.exp; fi~ $CC -o $tool_output_objdir$soname $libobjs $compiler_flags $deplibs "@$tool_output_objdir$soname.exp" -Wl,-DLL,-IMPLIB:"$tool_output_objdir$libname.dll.lib"~ linknames=' # The linker will not automatically build a static lib if we build a DLL. # _LT_TAGVAR(old_archive_from_new_cmds, $1)='true' _LT_TAGVAR(enable_shared_with_static_runtimes, $1)=yes # Don't use ranlib _LT_TAGVAR(old_postinstall_cmds, $1)='chmod 644 $oldlib' _LT_TAGVAR(postlink_cmds, $1)='lt_outputfile="@OUTPUT@"~ lt_tool_outputfile="@TOOL_OUTPUT@"~ case $lt_outputfile in *.exe|*.EXE) ;; *) lt_outputfile="$lt_outputfile.exe" lt_tool_outputfile="$lt_tool_outputfile.exe" ;; esac~ func_to_tool_file "$lt_outputfile"~ if test "$MANIFEST_TOOL" != ":" && test -f "$lt_outputfile.manifest"; then $MANIFEST_TOOL -manifest "$lt_tool_outputfile.manifest" -outputresource:"$lt_tool_outputfile" || exit 1; $RM "$lt_outputfile.manifest"; fi' ;; *) # g++ # _LT_TAGVAR(hardcode_libdir_flag_spec, $1) is actually meaningless, # as there is no search path for DLLs. _LT_TAGVAR(hardcode_libdir_flag_spec, $1)='-L$libdir' _LT_TAGVAR(export_dynamic_flag_spec, $1)='${wl}--export-all-symbols' _LT_TAGVAR(allow_undefined_flag, $1)=unsupported _LT_TAGVAR(always_export_symbols, $1)=no _LT_TAGVAR(enable_shared_with_static_runtimes, $1)=yes if $LD --help 2>&1 | $GREP 'auto-import' > /dev/null; then _LT_TAGVAR(archive_cmds, $1)='$CC -shared -nostdlib $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags -o $output_objdir/$soname ${wl}--enable-auto-image-base -Xlinker --out-implib -Xlinker $lib' # If the export-symbols file already is a .def file (1st line # is EXPORTS), use it as is; otherwise, prepend... _LT_TAGVAR(archive_expsym_cmds, $1)='if test "x`$SED 1q $export_symbols`" = xEXPORTS; then cp $export_symbols $output_objdir/$soname.def; else echo EXPORTS > $output_objdir/$soname.def; cat $export_symbols >> $output_objdir/$soname.def; fi~ $CC -shared -nostdlib $output_objdir/$soname.def $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags -o $output_objdir/$soname ${wl}--enable-auto-image-base -Xlinker --out-implib -Xlinker $lib' else _LT_TAGVAR(ld_shlibs, $1)=no fi ;; esac ;; darwin* | rhapsody*) _LT_DARWIN_LINKER_FEATURES($1) ;; dgux*) case $cc_basename in ec++*) # FIXME: insert proper C++ library support _LT_TAGVAR(ld_shlibs, $1)=no ;; ghcx*) # Green Hills C++ Compiler # FIXME: insert proper C++ library support _LT_TAGVAR(ld_shlibs, $1)=no ;; *) # FIXME: insert proper C++ library support _LT_TAGVAR(ld_shlibs, $1)=no ;; esac ;; freebsd2.*) # C++ shared libraries reported to be fairly broken before # switch to ELF _LT_TAGVAR(ld_shlibs, $1)=no ;; freebsd-elf*) _LT_TAGVAR(archive_cmds_need_lc, $1)=no ;; freebsd* | dragonfly*) # FreeBSD 3 and later use GNU C++ and GNU ld with standard ELF # conventions _LT_TAGVAR(ld_shlibs, $1)=yes ;; gnu*) ;; haiku*) _LT_TAGVAR(archive_cmds, $1)='$CC -shared $libobjs $deplibs $compiler_flags ${wl}-soname $wl$soname -o $lib' _LT_TAGVAR(link_all_deplibs, $1)=yes ;; hpux9*) _LT_TAGVAR(hardcode_libdir_flag_spec, $1)='${wl}+b ${wl}$libdir' _LT_TAGVAR(hardcode_libdir_separator, $1)=: _LT_TAGVAR(export_dynamic_flag_spec, $1)='${wl}-E' _LT_TAGVAR(hardcode_direct, $1)=yes _LT_TAGVAR(hardcode_minus_L, $1)=yes # Not in the search PATH, # but as the default # location of the library. case $cc_basename in CC*) # FIXME: insert proper C++ library support _LT_TAGVAR(ld_shlibs, $1)=no ;; aCC*) _LT_TAGVAR(archive_cmds, $1)='$RM $output_objdir/$soname~$CC -b ${wl}+b ${wl}$install_libdir -o $output_objdir/$soname $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags~test $output_objdir/$soname = $lib || mv $output_objdir/$soname $lib' # Commands to make compiler produce verbose output that lists # what "hidden" libraries, object files and flags are used when # linking a shared library. # # There doesn't appear to be a way to prevent this compiler from # explicitly linking system object files so we need to strip them # from the output so that they don't get included in the library # dependencies. output_verbose_link_cmd='templist=`($CC -b $CFLAGS -v conftest.$objext 2>&1) | $EGREP "\-L"`; list=""; for z in $templist; do case $z in conftest.$objext) list="$list $z";; *.$objext);; *) list="$list $z";;esac; done; func_echo_all "$list"' ;; *) if test "$GXX" = yes; then _LT_TAGVAR(archive_cmds, $1)='$RM $output_objdir/$soname~$CC -shared -nostdlib $pic_flag ${wl}+b ${wl}$install_libdir -o $output_objdir/$soname $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags~test $output_objdir/$soname = $lib || mv $output_objdir/$soname $lib' else # FIXME: insert proper C++ library support _LT_TAGVAR(ld_shlibs, $1)=no fi ;; esac ;; hpux10*|hpux11*) if test $with_gnu_ld = no; then _LT_TAGVAR(hardcode_libdir_flag_spec, $1)='${wl}+b ${wl}$libdir' _LT_TAGVAR(hardcode_libdir_separator, $1)=: case $host_cpu in hppa*64*|ia64*) ;; *) _LT_TAGVAR(export_dynamic_flag_spec, $1)='${wl}-E' ;; esac fi case $host_cpu in hppa*64*|ia64*) _LT_TAGVAR(hardcode_direct, $1)=no _LT_TAGVAR(hardcode_shlibpath_var, $1)=no ;; *) _LT_TAGVAR(hardcode_direct, $1)=yes _LT_TAGVAR(hardcode_direct_absolute, $1)=yes _LT_TAGVAR(hardcode_minus_L, $1)=yes # Not in the search PATH, # but as the default # location of the library. ;; esac case $cc_basename in CC*) # FIXME: insert proper C++ library support _LT_TAGVAR(ld_shlibs, $1)=no ;; aCC*) case $host_cpu in hppa*64*) _LT_TAGVAR(archive_cmds, $1)='$CC -b ${wl}+h ${wl}$soname -o $lib $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags' ;; ia64*) _LT_TAGVAR(archive_cmds, $1)='$CC -b ${wl}+h ${wl}$soname ${wl}+nodefaultrpath -o $lib $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags' ;; *) _LT_TAGVAR(archive_cmds, $1)='$CC -b ${wl}+h ${wl}$soname ${wl}+b ${wl}$install_libdir -o $lib $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags' ;; esac # Commands to make compiler produce verbose output that lists # what "hidden" libraries, object files and flags are used when # linking a shared library. # # There doesn't appear to be a way to prevent this compiler from # explicitly linking system object files so we need to strip them # from the output so that they don't get included in the library # dependencies. output_verbose_link_cmd='templist=`($CC -b $CFLAGS -v conftest.$objext 2>&1) | $GREP "\-L"`; list=""; for z in $templist; do case $z in conftest.$objext) list="$list $z";; *.$objext);; *) list="$list $z";;esac; done; func_echo_all "$list"' ;; *) if test "$GXX" = yes; then if test $with_gnu_ld = no; then case $host_cpu in hppa*64*) _LT_TAGVAR(archive_cmds, $1)='$CC -shared -nostdlib -fPIC ${wl}+h ${wl}$soname -o $lib $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags' ;; ia64*) _LT_TAGVAR(archive_cmds, $1)='$CC -shared -nostdlib $pic_flag ${wl}+h ${wl}$soname ${wl}+nodefaultrpath -o $lib $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags' ;; *) _LT_TAGVAR(archive_cmds, $1)='$CC -shared -nostdlib $pic_flag ${wl}+h ${wl}$soname ${wl}+b ${wl}$install_libdir -o $lib $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags' ;; esac fi else # FIXME: insert proper C++ library support _LT_TAGVAR(ld_shlibs, $1)=no fi ;; esac ;; interix[[3-9]]*) _LT_TAGVAR(hardcode_direct, $1)=no _LT_TAGVAR(hardcode_shlibpath_var, $1)=no _LT_TAGVAR(hardcode_libdir_flag_spec, $1)='${wl}-rpath,$libdir' _LT_TAGVAR(export_dynamic_flag_spec, $1)='${wl}-E' # Hack: On Interix 3.x, we cannot compile PIC because of a broken gcc. # Instead, shared libraries are loaded at an image base (0x10000000 by # default) and relocated if they conflict, which is a slow very memory # consuming and fragmenting process. To avoid this, we pick a random, # 256 KiB-aligned image base between 0x50000000 and 0x6FFC0000 at link # time. Moving up from 0x10000000 also allows more sbrk(2) space. _LT_TAGVAR(archive_cmds, $1)='$CC -shared $pic_flag $libobjs $deplibs $compiler_flags ${wl}-h,$soname ${wl}--image-base,`expr ${RANDOM-$$} % 4096 / 2 \* 262144 + 1342177280` -o $lib' _LT_TAGVAR(archive_expsym_cmds, $1)='sed "s,^,_," $export_symbols >$output_objdir/$soname.expsym~$CC -shared $pic_flag $libobjs $deplibs $compiler_flags ${wl}-h,$soname ${wl}--retain-symbols-file,$output_objdir/$soname.expsym ${wl}--image-base,`expr ${RANDOM-$$} % 4096 / 2 \* 262144 + 1342177280` -o $lib' ;; irix5* | irix6*) case $cc_basename in CC*) # SGI C++ _LT_TAGVAR(archive_cmds, $1)='$CC -shared -all -multigot $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags -soname $soname `test -n "$verstring" && func_echo_all "-set_version $verstring"` -update_registry ${output_objdir}/so_locations -o $lib' # Archives containing C++ object files must be created using # "CC -ar", where "CC" is the IRIX C++ compiler. This is # necessary to make sure instantiated templates are included # in the archive. _LT_TAGVAR(old_archive_cmds, $1)='$CC -ar -WR,-u -o $oldlib $oldobjs' ;; *) if test "$GXX" = yes; then if test "$with_gnu_ld" = no; then _LT_TAGVAR(archive_cmds, $1)='$CC -shared $pic_flag -nostdlib $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags ${wl}-soname ${wl}$soname `test -n "$verstring" && func_echo_all "${wl}-set_version ${wl}$verstring"` ${wl}-update_registry ${wl}${output_objdir}/so_locations -o $lib' else _LT_TAGVAR(archive_cmds, $1)='$CC -shared $pic_flag -nostdlib $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags ${wl}-soname ${wl}$soname `test -n "$verstring" && func_echo_all "${wl}-set_version ${wl}$verstring"` -o $lib' fi fi _LT_TAGVAR(link_all_deplibs, $1)=yes ;; esac _LT_TAGVAR(hardcode_libdir_flag_spec, $1)='${wl}-rpath ${wl}$libdir' _LT_TAGVAR(hardcode_libdir_separator, $1)=: _LT_TAGVAR(inherit_rpath, $1)=yes ;; linux* | k*bsd*-gnu | kopensolaris*-gnu) case $cc_basename in KCC*) # Kuck and Associates, Inc. (KAI) C++ Compiler # KCC will only create a shared library if the output file # ends with ".so" (or ".sl" for HP-UX), so rename the library # to its proper name (with version) after linking. _LT_TAGVAR(archive_cmds, $1)='tempext=`echo $shared_ext | $SED -e '\''s/\([[^()0-9A-Za-z{}]]\)/\\\\\1/g'\''`; templib=`echo $lib | $SED -e "s/\${tempext}\..*/.so/"`; $CC $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags --soname $soname -o \$templib; mv \$templib $lib' _LT_TAGVAR(archive_expsym_cmds, $1)='tempext=`echo $shared_ext | $SED -e '\''s/\([[^()0-9A-Za-z{}]]\)/\\\\\1/g'\''`; templib=`echo $lib | $SED -e "s/\${tempext}\..*/.so/"`; $CC $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags --soname $soname -o \$templib ${wl}-retain-symbols-file,$export_symbols; mv \$templib $lib' # Commands to make compiler produce verbose output that lists # what "hidden" libraries, object files and flags are used when # linking a shared library. # # There doesn't appear to be a way to prevent this compiler from # explicitly linking system object files so we need to strip them # from the output so that they don't get included in the library # dependencies. output_verbose_link_cmd='templist=`$CC $CFLAGS -v conftest.$objext -o libconftest$shared_ext 2>&1 | $GREP "ld"`; rm -f libconftest$shared_ext; list=""; for z in $templist; do case $z in conftest.$objext) list="$list $z";; *.$objext);; *) list="$list $z";;esac; done; func_echo_all "$list"' _LT_TAGVAR(hardcode_libdir_flag_spec, $1)='${wl}-rpath,$libdir' _LT_TAGVAR(export_dynamic_flag_spec, $1)='${wl}--export-dynamic' # Archives containing C++ object files must be created using # "CC -Bstatic", where "CC" is the KAI C++ compiler. _LT_TAGVAR(old_archive_cmds, $1)='$CC -Bstatic -o $oldlib $oldobjs' ;; icpc* | ecpc* ) # Intel C++ with_gnu_ld=yes # version 8.0 and above of icpc choke on multiply defined symbols # if we add $predep_objects and $postdep_objects, however 7.1 and # earlier do not add the objects themselves. case `$CC -V 2>&1` in *"Version 7."*) _LT_TAGVAR(archive_cmds, $1)='$CC -shared $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags ${wl}-soname $wl$soname -o $lib' _LT_TAGVAR(archive_expsym_cmds, $1)='$CC -shared $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags ${wl}-soname $wl$soname ${wl}-retain-symbols-file $wl$export_symbols -o $lib' ;; *) # Version 8.0 or newer tmp_idyn= case $host_cpu in ia64*) tmp_idyn=' -i_dynamic';; esac _LT_TAGVAR(archive_cmds, $1)='$CC -shared'"$tmp_idyn"' $libobjs $deplibs $compiler_flags ${wl}-soname $wl$soname -o $lib' _LT_TAGVAR(archive_expsym_cmds, $1)='$CC -shared'"$tmp_idyn"' $libobjs $deplibs $compiler_flags ${wl}-soname $wl$soname ${wl}-retain-symbols-file $wl$export_symbols -o $lib' ;; esac _LT_TAGVAR(archive_cmds_need_lc, $1)=no _LT_TAGVAR(hardcode_libdir_flag_spec, $1)='${wl}-rpath,$libdir' _LT_TAGVAR(export_dynamic_flag_spec, $1)='${wl}--export-dynamic' _LT_TAGVAR(whole_archive_flag_spec, $1)='${wl}--whole-archive$convenience ${wl}--no-whole-archive' ;; pgCC* | pgcpp*) # Portland Group C++ compiler case `$CC -V` in *pgCC\ [[1-5]].* | *pgcpp\ [[1-5]].*) _LT_TAGVAR(prelink_cmds, $1)='tpldir=Template.dir~ rm -rf $tpldir~ $CC --prelink_objects --instantiation_dir $tpldir $objs $libobjs $compile_deplibs~ compile_command="$compile_command `find $tpldir -name \*.o | sort | $NL2SP`"' _LT_TAGVAR(old_archive_cmds, $1)='tpldir=Template.dir~ rm -rf $tpldir~ $CC --prelink_objects --instantiation_dir $tpldir $oldobjs$old_deplibs~ $AR $AR_FLAGS $oldlib$oldobjs$old_deplibs `find $tpldir -name \*.o | sort | $NL2SP`~ $RANLIB $oldlib' _LT_TAGVAR(archive_cmds, $1)='tpldir=Template.dir~ rm -rf $tpldir~ $CC --prelink_objects --instantiation_dir $tpldir $predep_objects $libobjs $deplibs $convenience $postdep_objects~ $CC -shared $pic_flag $predep_objects $libobjs $deplibs `find $tpldir -name \*.o | sort | $NL2SP` $postdep_objects $compiler_flags ${wl}-soname ${wl}$soname -o $lib' _LT_TAGVAR(archive_expsym_cmds, $1)='tpldir=Template.dir~ rm -rf $tpldir~ $CC --prelink_objects --instantiation_dir $tpldir $predep_objects $libobjs $deplibs $convenience $postdep_objects~ $CC -shared $pic_flag $predep_objects $libobjs $deplibs `find $tpldir -name \*.o | sort | $NL2SP` $postdep_objects $compiler_flags ${wl}-soname ${wl}$soname ${wl}-retain-symbols-file ${wl}$export_symbols -o $lib' ;; *) # Version 6 and above use weak symbols _LT_TAGVAR(archive_cmds, $1)='$CC -shared $pic_flag $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags ${wl}-soname ${wl}$soname -o $lib' _LT_TAGVAR(archive_expsym_cmds, $1)='$CC -shared $pic_flag $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags ${wl}-soname ${wl}$soname ${wl}-retain-symbols-file ${wl}$export_symbols -o $lib' ;; esac _LT_TAGVAR(hardcode_libdir_flag_spec, $1)='${wl}--rpath ${wl}$libdir' _LT_TAGVAR(export_dynamic_flag_spec, $1)='${wl}--export-dynamic' _LT_TAGVAR(whole_archive_flag_spec, $1)='${wl}--whole-archive`for conv in $convenience\"\"; do test -n \"$conv\" && new_convenience=\"$new_convenience,$conv\"; done; func_echo_all \"$new_convenience\"` ${wl}--no-whole-archive' ;; cxx*) # Compaq C++ _LT_TAGVAR(archive_cmds, $1)='$CC -shared $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags ${wl}-soname $wl$soname -o $lib' _LT_TAGVAR(archive_expsym_cmds, $1)='$CC -shared $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags ${wl}-soname $wl$soname -o $lib ${wl}-retain-symbols-file $wl$export_symbols' runpath_var=LD_RUN_PATH _LT_TAGVAR(hardcode_libdir_flag_spec, $1)='-rpath $libdir' _LT_TAGVAR(hardcode_libdir_separator, $1)=: # Commands to make compiler produce verbose output that lists # what "hidden" libraries, object files and flags are used when # linking a shared library. # # There doesn't appear to be a way to prevent this compiler from # explicitly linking system object files so we need to strip them # from the output so that they don't get included in the library # dependencies. output_verbose_link_cmd='templist=`$CC -shared $CFLAGS -v conftest.$objext 2>&1 | $GREP "ld"`; templist=`func_echo_all "$templist" | $SED "s/\(^.*ld.*\)\( .*ld .*$\)/\1/"`; list=""; for z in $templist; do case $z in conftest.$objext) list="$list $z";; *.$objext);; *) list="$list $z";;esac; done; func_echo_all "X$list" | $Xsed' ;; xl* | mpixl* | bgxl*) # IBM XL 8.0 on PPC, with GNU ld _LT_TAGVAR(hardcode_libdir_flag_spec, $1)='${wl}-rpath ${wl}$libdir' _LT_TAGVAR(export_dynamic_flag_spec, $1)='${wl}--export-dynamic' _LT_TAGVAR(archive_cmds, $1)='$CC -qmkshrobj $libobjs $deplibs $compiler_flags ${wl}-soname $wl$soname -o $lib' if test "x$supports_anon_versioning" = xyes; then _LT_TAGVAR(archive_expsym_cmds, $1)='echo "{ global:" > $output_objdir/$libname.ver~ cat $export_symbols | sed -e "s/\(.*\)/\1;/" >> $output_objdir/$libname.ver~ echo "local: *; };" >> $output_objdir/$libname.ver~ $CC -qmkshrobj $libobjs $deplibs $compiler_flags ${wl}-soname $wl$soname ${wl}-version-script ${wl}$output_objdir/$libname.ver -o $lib' fi ;; *) case `$CC -V 2>&1 | sed 5q` in *Sun\ C*) # Sun C++ 5.9 _LT_TAGVAR(no_undefined_flag, $1)=' -zdefs' _LT_TAGVAR(archive_cmds, $1)='$CC -G${allow_undefined_flag} -h$soname -o $lib $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags' _LT_TAGVAR(archive_expsym_cmds, $1)='$CC -G${allow_undefined_flag} -h$soname -o $lib $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags ${wl}-retain-symbols-file ${wl}$export_symbols' _LT_TAGVAR(hardcode_libdir_flag_spec, $1)='-R$libdir' _LT_TAGVAR(whole_archive_flag_spec, $1)='${wl}--whole-archive`new_convenience=; for conv in $convenience\"\"; do test -z \"$conv\" || new_convenience=\"$new_convenience,$conv\"; done; func_echo_all \"$new_convenience\"` ${wl}--no-whole-archive' _LT_TAGVAR(compiler_needs_object, $1)=yes # Not sure whether something based on # $CC $CFLAGS -v conftest.$objext -o libconftest$shared_ext 2>&1 # would be better. output_verbose_link_cmd='func_echo_all' # Archives containing C++ object files must be created using # "CC -xar", where "CC" is the Sun C++ compiler. This is # necessary to make sure instantiated templates are included # in the archive. _LT_TAGVAR(old_archive_cmds, $1)='$CC -xar -o $oldlib $oldobjs' ;; esac ;; esac ;; lynxos*) # FIXME: insert proper C++ library support _LT_TAGVAR(ld_shlibs, $1)=no ;; m88k*) # FIXME: insert proper C++ library support _LT_TAGVAR(ld_shlibs, $1)=no ;; mvs*) case $cc_basename in cxx*) # FIXME: insert proper C++ library support _LT_TAGVAR(ld_shlibs, $1)=no ;; *) # FIXME: insert proper C++ library support _LT_TAGVAR(ld_shlibs, $1)=no ;; esac ;; netbsd*) if echo __ELF__ | $CC -E - | $GREP __ELF__ >/dev/null; then _LT_TAGVAR(archive_cmds, $1)='$LD -Bshareable -o $lib $predep_objects $libobjs $deplibs $postdep_objects $linker_flags' wlarc= _LT_TAGVAR(hardcode_libdir_flag_spec, $1)='-R$libdir' _LT_TAGVAR(hardcode_direct, $1)=yes _LT_TAGVAR(hardcode_shlibpath_var, $1)=no fi # Workaround some broken pre-1.5 toolchains output_verbose_link_cmd='$CC -shared $CFLAGS -v conftest.$objext 2>&1 | $GREP conftest.$objext | $SED -e "s:-lgcc -lc -lgcc::"' ;; *nto* | *qnx*) _LT_TAGVAR(ld_shlibs, $1)=yes ;; openbsd2*) # C++ shared libraries are fairly broken _LT_TAGVAR(ld_shlibs, $1)=no ;; openbsd*) if test -f /usr/libexec/ld.so; then _LT_TAGVAR(hardcode_direct, $1)=yes _LT_TAGVAR(hardcode_shlibpath_var, $1)=no _LT_TAGVAR(hardcode_direct_absolute, $1)=yes _LT_TAGVAR(archive_cmds, $1)='$CC -shared $pic_flag $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags -o $lib' _LT_TAGVAR(hardcode_libdir_flag_spec, $1)='${wl}-rpath,$libdir' if test -z "`echo __ELF__ | $CC -E - | grep __ELF__`" || test "$host_os-$host_cpu" = "openbsd2.8-powerpc"; then _LT_TAGVAR(archive_expsym_cmds, $1)='$CC -shared $pic_flag $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags ${wl}-retain-symbols-file,$export_symbols -o $lib' _LT_TAGVAR(export_dynamic_flag_spec, $1)='${wl}-E' _LT_TAGVAR(whole_archive_flag_spec, $1)="$wlarc"'--whole-archive$convenience '"$wlarc"'--no-whole-archive' fi output_verbose_link_cmd=func_echo_all else _LT_TAGVAR(ld_shlibs, $1)=no fi ;; osf3* | osf4* | osf5*) case $cc_basename in KCC*) # Kuck and Associates, Inc. (KAI) C++ Compiler # KCC will only create a shared library if the output file # ends with ".so" (or ".sl" for HP-UX), so rename the library # to its proper name (with version) after linking. _LT_TAGVAR(archive_cmds, $1)='tempext=`echo $shared_ext | $SED -e '\''s/\([[^()0-9A-Za-z{}]]\)/\\\\\1/g'\''`; templib=`echo "$lib" | $SED -e "s/\${tempext}\..*/.so/"`; $CC $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags --soname $soname -o \$templib; mv \$templib $lib' _LT_TAGVAR(hardcode_libdir_flag_spec, $1)='${wl}-rpath,$libdir' _LT_TAGVAR(hardcode_libdir_separator, $1)=: # Archives containing C++ object files must be created using # the KAI C++ compiler. case $host in osf3*) _LT_TAGVAR(old_archive_cmds, $1)='$CC -Bstatic -o $oldlib $oldobjs' ;; *) _LT_TAGVAR(old_archive_cmds, $1)='$CC -o $oldlib $oldobjs' ;; esac ;; RCC*) # Rational C++ 2.4.1 # FIXME: insert proper C++ library support _LT_TAGVAR(ld_shlibs, $1)=no ;; cxx*) case $host in osf3*) _LT_TAGVAR(allow_undefined_flag, $1)=' ${wl}-expect_unresolved ${wl}\*' _LT_TAGVAR(archive_cmds, $1)='$CC -shared${allow_undefined_flag} $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags ${wl}-soname $soname `test -n "$verstring" && func_echo_all "${wl}-set_version $verstring"` -update_registry ${output_objdir}/so_locations -o $lib' _LT_TAGVAR(hardcode_libdir_flag_spec, $1)='${wl}-rpath ${wl}$libdir' ;; *) _LT_TAGVAR(allow_undefined_flag, $1)=' -expect_unresolved \*' _LT_TAGVAR(archive_cmds, $1)='$CC -shared${allow_undefined_flag} $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags -msym -soname $soname `test -n "$verstring" && func_echo_all "-set_version $verstring"` -update_registry ${output_objdir}/so_locations -o $lib' _LT_TAGVAR(archive_expsym_cmds, $1)='for i in `cat $export_symbols`; do printf "%s %s\\n" -exported_symbol "\$i" >> $lib.exp; done~ echo "-hidden">> $lib.exp~ $CC -shared$allow_undefined_flag $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags -msym -soname $soname ${wl}-input ${wl}$lib.exp `test -n "$verstring" && $ECHO "-set_version $verstring"` -update_registry ${output_objdir}/so_locations -o $lib~ $RM $lib.exp' _LT_TAGVAR(hardcode_libdir_flag_spec, $1)='-rpath $libdir' ;; esac _LT_TAGVAR(hardcode_libdir_separator, $1)=: # Commands to make compiler produce verbose output that lists # what "hidden" libraries, object files and flags are used when # linking a shared library. # # There doesn't appear to be a way to prevent this compiler from # explicitly linking system object files so we need to strip them # from the output so that they don't get included in the library # dependencies. output_verbose_link_cmd='templist=`$CC -shared $CFLAGS -v conftest.$objext 2>&1 | $GREP "ld" | $GREP -v "ld:"`; templist=`func_echo_all "$templist" | $SED "s/\(^.*ld.*\)\( .*ld.*$\)/\1/"`; list=""; for z in $templist; do case $z in conftest.$objext) list="$list $z";; *.$objext);; *) list="$list $z";;esac; done; func_echo_all "$list"' ;; *) if test "$GXX" = yes && test "$with_gnu_ld" = no; then _LT_TAGVAR(allow_undefined_flag, $1)=' ${wl}-expect_unresolved ${wl}\*' case $host in osf3*) _LT_TAGVAR(archive_cmds, $1)='$CC -shared -nostdlib ${allow_undefined_flag} $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags ${wl}-soname ${wl}$soname `test -n "$verstring" && func_echo_all "${wl}-set_version ${wl}$verstring"` ${wl}-update_registry ${wl}${output_objdir}/so_locations -o $lib' ;; *) _LT_TAGVAR(archive_cmds, $1)='$CC -shared $pic_flag -nostdlib ${allow_undefined_flag} $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags ${wl}-msym ${wl}-soname ${wl}$soname `test -n "$verstring" && func_echo_all "${wl}-set_version ${wl}$verstring"` ${wl}-update_registry ${wl}${output_objdir}/so_locations -o $lib' ;; esac _LT_TAGVAR(hardcode_libdir_flag_spec, $1)='${wl}-rpath ${wl}$libdir' _LT_TAGVAR(hardcode_libdir_separator, $1)=: # Commands to make compiler produce verbose output that lists # what "hidden" libraries, object files and flags are used when # linking a shared library. output_verbose_link_cmd='$CC -shared $CFLAGS -v conftest.$objext 2>&1 | $GREP -v "^Configured with:" | $GREP "\-L"' else # FIXME: insert proper C++ library support _LT_TAGVAR(ld_shlibs, $1)=no fi ;; esac ;; psos*) # FIXME: insert proper C++ library support _LT_TAGVAR(ld_shlibs, $1)=no ;; sunos4*) case $cc_basename in CC*) # Sun C++ 4.x # FIXME: insert proper C++ library support _LT_TAGVAR(ld_shlibs, $1)=no ;; lcc*) # Lucid # FIXME: insert proper C++ library support _LT_TAGVAR(ld_shlibs, $1)=no ;; *) # FIXME: insert proper C++ library support _LT_TAGVAR(ld_shlibs, $1)=no ;; esac ;; solaris*) case $cc_basename in CC* | sunCC*) # Sun C++ 4.2, 5.x and Centerline C++ _LT_TAGVAR(archive_cmds_need_lc,$1)=yes _LT_TAGVAR(no_undefined_flag, $1)=' -zdefs' _LT_TAGVAR(archive_cmds, $1)='$CC -G${allow_undefined_flag} -h$soname -o $lib $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags' _LT_TAGVAR(archive_expsym_cmds, $1)='echo "{ global:" > $lib.exp~cat $export_symbols | $SED -e "s/\(.*\)/\1;/" >> $lib.exp~echo "local: *; };" >> $lib.exp~ $CC -G${allow_undefined_flag} ${wl}-M ${wl}$lib.exp -h$soname -o $lib $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags~$RM $lib.exp' _LT_TAGVAR(hardcode_libdir_flag_spec, $1)='-R$libdir' _LT_TAGVAR(hardcode_shlibpath_var, $1)=no case $host_os in solaris2.[[0-5]] | solaris2.[[0-5]].*) ;; *) # The compiler driver will combine and reorder linker options, # but understands `-z linker_flag'. # Supported since Solaris 2.6 (maybe 2.5.1?) _LT_TAGVAR(whole_archive_flag_spec, $1)='-z allextract$convenience -z defaultextract' ;; esac _LT_TAGVAR(link_all_deplibs, $1)=yes output_verbose_link_cmd='func_echo_all' # Archives containing C++ object files must be created using # "CC -xar", where "CC" is the Sun C++ compiler. This is # necessary to make sure instantiated templates are included # in the archive. _LT_TAGVAR(old_archive_cmds, $1)='$CC -xar -o $oldlib $oldobjs' ;; gcx*) # Green Hills C++ Compiler _LT_TAGVAR(archive_cmds, $1)='$CC -shared $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags ${wl}-h $wl$soname -o $lib' # The C++ compiler must be used to create the archive. _LT_TAGVAR(old_archive_cmds, $1)='$CC $LDFLAGS -archive -o $oldlib $oldobjs' ;; *) # GNU C++ compiler with Solaris linker if test "$GXX" = yes && test "$with_gnu_ld" = no; then _LT_TAGVAR(no_undefined_flag, $1)=' ${wl}-z ${wl}defs' if $CC --version | $GREP -v '^2\.7' > /dev/null; then _LT_TAGVAR(archive_cmds, $1)='$CC -shared $pic_flag -nostdlib $LDFLAGS $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags ${wl}-h $wl$soname -o $lib' _LT_TAGVAR(archive_expsym_cmds, $1)='echo "{ global:" > $lib.exp~cat $export_symbols | $SED -e "s/\(.*\)/\1;/" >> $lib.exp~echo "local: *; };" >> $lib.exp~ $CC -shared $pic_flag -nostdlib ${wl}-M $wl$lib.exp -o $lib $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags~$RM $lib.exp' # Commands to make compiler produce verbose output that lists # what "hidden" libraries, object files and flags are used when # linking a shared library. output_verbose_link_cmd='$CC -shared $CFLAGS -v conftest.$objext 2>&1 | $GREP -v "^Configured with:" | $GREP "\-L"' else # g++ 2.7 appears to require `-G' NOT `-shared' on this # platform. _LT_TAGVAR(archive_cmds, $1)='$CC -G -nostdlib $LDFLAGS $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags ${wl}-h $wl$soname -o $lib' _LT_TAGVAR(archive_expsym_cmds, $1)='echo "{ global:" > $lib.exp~cat $export_symbols | $SED -e "s/\(.*\)/\1;/" >> $lib.exp~echo "local: *; };" >> $lib.exp~ $CC -G -nostdlib ${wl}-M $wl$lib.exp -o $lib $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags~$RM $lib.exp' # Commands to make compiler produce verbose output that lists # what "hidden" libraries, object files and flags are used when # linking a shared library. output_verbose_link_cmd='$CC -G $CFLAGS -v conftest.$objext 2>&1 | $GREP -v "^Configured with:" | $GREP "\-L"' fi _LT_TAGVAR(hardcode_libdir_flag_spec, $1)='${wl}-R $wl$libdir' case $host_os in solaris2.[[0-5]] | solaris2.[[0-5]].*) ;; *) _LT_TAGVAR(whole_archive_flag_spec, $1)='${wl}-z ${wl}allextract$convenience ${wl}-z ${wl}defaultextract' ;; esac fi ;; esac ;; sysv4*uw2* | sysv5OpenUNIX* | sysv5UnixWare7.[[01]].[[10]]* | unixware7* | sco3.2v5.0.[[024]]*) _LT_TAGVAR(no_undefined_flag, $1)='${wl}-z,text' _LT_TAGVAR(archive_cmds_need_lc, $1)=no _LT_TAGVAR(hardcode_shlibpath_var, $1)=no runpath_var='LD_RUN_PATH' case $cc_basename in CC*) _LT_TAGVAR(archive_cmds, $1)='$CC -G ${wl}-h,$soname -o $lib $libobjs $deplibs $compiler_flags' _LT_TAGVAR(archive_expsym_cmds, $1)='$CC -G ${wl}-Bexport:$export_symbols ${wl}-h,$soname -o $lib $libobjs $deplibs $compiler_flags' ;; *) _LT_TAGVAR(archive_cmds, $1)='$CC -shared ${wl}-h,$soname -o $lib $libobjs $deplibs $compiler_flags' _LT_TAGVAR(archive_expsym_cmds, $1)='$CC -shared ${wl}-Bexport:$export_symbols ${wl}-h,$soname -o $lib $libobjs $deplibs $compiler_flags' ;; esac ;; sysv5* | sco3.2v5* | sco5v6*) # Note: We can NOT use -z defs as we might desire, because we do not # link with -lc, and that would cause any symbols used from libc to # always be unresolved, which means just about no library would # ever link correctly. If we're not using GNU ld we use -z text # though, which does catch some bad symbols but isn't as heavy-handed # as -z defs. _LT_TAGVAR(no_undefined_flag, $1)='${wl}-z,text' _LT_TAGVAR(allow_undefined_flag, $1)='${wl}-z,nodefs' _LT_TAGVAR(archive_cmds_need_lc, $1)=no _LT_TAGVAR(hardcode_shlibpath_var, $1)=no _LT_TAGVAR(hardcode_libdir_flag_spec, $1)='${wl}-R,$libdir' _LT_TAGVAR(hardcode_libdir_separator, $1)=':' _LT_TAGVAR(link_all_deplibs, $1)=yes _LT_TAGVAR(export_dynamic_flag_spec, $1)='${wl}-Bexport' runpath_var='LD_RUN_PATH' case $cc_basename in CC*) _LT_TAGVAR(archive_cmds, $1)='$CC -G ${wl}-h,$soname -o $lib $libobjs $deplibs $compiler_flags' _LT_TAGVAR(archive_expsym_cmds, $1)='$CC -G ${wl}-Bexport:$export_symbols ${wl}-h,$soname -o $lib $libobjs $deplibs $compiler_flags' _LT_TAGVAR(old_archive_cmds, $1)='$CC -Tprelink_objects $oldobjs~ '"$_LT_TAGVAR(old_archive_cmds, $1)" _LT_TAGVAR(reload_cmds, $1)='$CC -Tprelink_objects $reload_objs~ '"$_LT_TAGVAR(reload_cmds, $1)" ;; *) _LT_TAGVAR(archive_cmds, $1)='$CC -shared ${wl}-h,$soname -o $lib $libobjs $deplibs $compiler_flags' _LT_TAGVAR(archive_expsym_cmds, $1)='$CC -shared ${wl}-Bexport:$export_symbols ${wl}-h,$soname -o $lib $libobjs $deplibs $compiler_flags' ;; esac ;; tandem*) case $cc_basename in NCC*) # NonStop-UX NCC 3.20 # FIXME: insert proper C++ library support _LT_TAGVAR(ld_shlibs, $1)=no ;; *) # FIXME: insert proper C++ library support _LT_TAGVAR(ld_shlibs, $1)=no ;; esac ;; vxworks*) # FIXME: insert proper C++ library support _LT_TAGVAR(ld_shlibs, $1)=no ;; *) # FIXME: insert proper C++ library support _LT_TAGVAR(ld_shlibs, $1)=no ;; esac AC_MSG_RESULT([$_LT_TAGVAR(ld_shlibs, $1)]) test "$_LT_TAGVAR(ld_shlibs, $1)" = no && can_build_shared=no _LT_TAGVAR(GCC, $1)="$GXX" _LT_TAGVAR(LD, $1)="$LD" ## CAVEAT EMPTOR: ## There is no encapsulation within the following macros, do not change ## the running order or otherwise move them around unless you know exactly ## what you are doing... _LT_SYS_HIDDEN_LIBDEPS($1) _LT_COMPILER_PIC($1) _LT_COMPILER_C_O($1) _LT_COMPILER_FILE_LOCKS($1) _LT_LINKER_SHLIBS($1) _LT_SYS_DYNAMIC_LINKER($1) _LT_LINKER_HARDCODE_LIBPATH($1) _LT_CONFIG($1) fi # test -n "$compiler" CC=$lt_save_CC CFLAGS=$lt_save_CFLAGS LDCXX=$LD LD=$lt_save_LD GCC=$lt_save_GCC with_gnu_ld=$lt_save_with_gnu_ld lt_cv_path_LDCXX=$lt_cv_path_LD lt_cv_path_LD=$lt_save_path_LD lt_cv_prog_gnu_ldcxx=$lt_cv_prog_gnu_ld lt_cv_prog_gnu_ld=$lt_save_with_gnu_ld fi # test "$_lt_caught_CXX_error" != yes AC_LANG_POP ])# _LT_LANG_CXX_CONFIG # _LT_FUNC_STRIPNAME_CNF # ---------------------- # func_stripname_cnf prefix suffix name # strip PREFIX and SUFFIX off of NAME. # PREFIX and SUFFIX must not contain globbing or regex special # characters, hashes, percent signs, but SUFFIX may contain a leading # dot (in which case that matches only a dot). # # This function is identical to the (non-XSI) version of func_stripname, # except this one can be used by m4 code that may be executed by configure, # rather than the libtool script. m4_defun([_LT_FUNC_STRIPNAME_CNF],[dnl AC_REQUIRE([_LT_DECL_SED]) AC_REQUIRE([_LT_PROG_ECHO_BACKSLASH]) func_stripname_cnf () { case ${2} in .*) func_stripname_result=`$ECHO "${3}" | $SED "s%^${1}%%; s%\\\\${2}\$%%"`;; *) func_stripname_result=`$ECHO "${3}" | $SED "s%^${1}%%; s%${2}\$%%"`;; esac } # func_stripname_cnf ])# _LT_FUNC_STRIPNAME_CNF # _LT_SYS_HIDDEN_LIBDEPS([TAGNAME]) # --------------------------------- # Figure out "hidden" library dependencies from verbose # compiler output when linking a shared library. # Parse the compiler output and extract the necessary # objects, libraries and library flags. m4_defun([_LT_SYS_HIDDEN_LIBDEPS], [m4_require([_LT_FILEUTILS_DEFAULTS])dnl AC_REQUIRE([_LT_FUNC_STRIPNAME_CNF])dnl # Dependencies to place before and after the object being linked: _LT_TAGVAR(predep_objects, $1)= _LT_TAGVAR(postdep_objects, $1)= _LT_TAGVAR(predeps, $1)= _LT_TAGVAR(postdeps, $1)= _LT_TAGVAR(compiler_lib_search_path, $1)= dnl we can't use the lt_simple_compile_test_code here, dnl because it contains code intended for an executable, dnl not a library. It's possible we should let each dnl tag define a new lt_????_link_test_code variable, dnl but it's only used here... m4_if([$1], [], [cat > conftest.$ac_ext <<_LT_EOF int a; void foo (void) { a = 0; } _LT_EOF ], [$1], [CXX], [cat > conftest.$ac_ext <<_LT_EOF class Foo { public: Foo (void) { a = 0; } private: int a; }; _LT_EOF ], [$1], [F77], [cat > conftest.$ac_ext <<_LT_EOF subroutine foo implicit none integer*4 a a=0 return end _LT_EOF ], [$1], [FC], [cat > conftest.$ac_ext <<_LT_EOF subroutine foo implicit none integer a a=0 return end _LT_EOF ], [$1], [GCJ], [cat > conftest.$ac_ext <<_LT_EOF public class foo { private int a; public void bar (void) { a = 0; } }; _LT_EOF ], [$1], [GO], [cat > conftest.$ac_ext <<_LT_EOF package foo func foo() { } _LT_EOF ]) _lt_libdeps_save_CFLAGS=$CFLAGS case "$CC $CFLAGS " in #( *\ -flto*\ *) CFLAGS="$CFLAGS -fno-lto" ;; *\ -fwhopr*\ *) CFLAGS="$CFLAGS -fno-whopr" ;; *\ -fuse-linker-plugin*\ *) CFLAGS="$CFLAGS -fno-use-linker-plugin" ;; esac dnl Parse the compiler output and extract the necessary dnl objects, libraries and library flags. if AC_TRY_EVAL(ac_compile); then # Parse the compiler output and extract the necessary # objects, libraries and library flags. # Sentinel used to keep track of whether or not we are before # the conftest object file. pre_test_object_deps_done=no for p in `eval "$output_verbose_link_cmd"`; do case ${prev}${p} in -L* | -R* | -l*) # Some compilers place space between "-{L,R}" and the path. # Remove the space. if test $p = "-L" || test $p = "-R"; then prev=$p continue fi # Expand the sysroot to ease extracting the directories later. if test -z "$prev"; then case $p in -L*) func_stripname_cnf '-L' '' "$p"; prev=-L; p=$func_stripname_result ;; -R*) func_stripname_cnf '-R' '' "$p"; prev=-R; p=$func_stripname_result ;; -l*) func_stripname_cnf '-l' '' "$p"; prev=-l; p=$func_stripname_result ;; esac fi case $p in =*) func_stripname_cnf '=' '' "$p"; p=$lt_sysroot$func_stripname_result ;; esac if test "$pre_test_object_deps_done" = no; then case ${prev} in -L | -R) # Internal compiler library paths should come after those # provided the user. The postdeps already come after the # user supplied libs so there is no need to process them. if test -z "$_LT_TAGVAR(compiler_lib_search_path, $1)"; then _LT_TAGVAR(compiler_lib_search_path, $1)="${prev}${p}" else _LT_TAGVAR(compiler_lib_search_path, $1)="${_LT_TAGVAR(compiler_lib_search_path, $1)} ${prev}${p}" fi ;; # The "-l" case would never come before the object being # linked, so don't bother handling this case. esac else if test -z "$_LT_TAGVAR(postdeps, $1)"; then _LT_TAGVAR(postdeps, $1)="${prev}${p}" else _LT_TAGVAR(postdeps, $1)="${_LT_TAGVAR(postdeps, $1)} ${prev}${p}" fi fi prev= ;; *.lto.$objext) ;; # Ignore GCC LTO objects *.$objext) # This assumes that the test object file only shows up # once in the compiler output. if test "$p" = "conftest.$objext"; then pre_test_object_deps_done=yes continue fi if test "$pre_test_object_deps_done" = no; then if test -z "$_LT_TAGVAR(predep_objects, $1)"; then _LT_TAGVAR(predep_objects, $1)="$p" else _LT_TAGVAR(predep_objects, $1)="$_LT_TAGVAR(predep_objects, $1) $p" fi else if test -z "$_LT_TAGVAR(postdep_objects, $1)"; then _LT_TAGVAR(postdep_objects, $1)="$p" else _LT_TAGVAR(postdep_objects, $1)="$_LT_TAGVAR(postdep_objects, $1) $p" fi fi ;; *) ;; # Ignore the rest. esac done # Clean up. rm -f a.out a.exe else echo "libtool.m4: error: problem compiling $1 test program" fi $RM -f confest.$objext CFLAGS=$_lt_libdeps_save_CFLAGS # PORTME: override above test on systems where it is broken m4_if([$1], [CXX], [case $host_os in interix[[3-9]]*) # Interix 3.5 installs completely hosed .la files for C++, so rather than # hack all around it, let's just trust "g++" to DTRT. _LT_TAGVAR(predep_objects,$1)= _LT_TAGVAR(postdep_objects,$1)= _LT_TAGVAR(postdeps,$1)= ;; linux*) case `$CC -V 2>&1 | sed 5q` in *Sun\ C*) # Sun C++ 5.9 # The more standards-conforming stlport4 library is # incompatible with the Cstd library. Avoid specifying # it if it's in CXXFLAGS. Ignore libCrun as # -library=stlport4 depends on it. case " $CXX $CXXFLAGS " in *" -library=stlport4 "*) solaris_use_stlport4=yes ;; esac if test "$solaris_use_stlport4" != yes; then _LT_TAGVAR(postdeps,$1)='-library=Cstd -library=Crun' fi ;; esac ;; solaris*) case $cc_basename in CC* | sunCC*) # The more standards-conforming stlport4 library is # incompatible with the Cstd library. Avoid specifying # it if it's in CXXFLAGS. Ignore libCrun as # -library=stlport4 depends on it. case " $CXX $CXXFLAGS " in *" -library=stlport4 "*) solaris_use_stlport4=yes ;; esac # Adding this requires a known-good setup of shared libraries for # Sun compiler versions before 5.6, else PIC objects from an old # archive will be linked into the output, leading to subtle bugs. if test "$solaris_use_stlport4" != yes; then _LT_TAGVAR(postdeps,$1)='-library=Cstd -library=Crun' fi ;; esac ;; esac ]) case " $_LT_TAGVAR(postdeps, $1) " in *" -lc "*) _LT_TAGVAR(archive_cmds_need_lc, $1)=no ;; esac _LT_TAGVAR(compiler_lib_search_dirs, $1)= if test -n "${_LT_TAGVAR(compiler_lib_search_path, $1)}"; then _LT_TAGVAR(compiler_lib_search_dirs, $1)=`echo " ${_LT_TAGVAR(compiler_lib_search_path, $1)}" | ${SED} -e 's! -L! !g' -e 's!^ !!'` fi _LT_TAGDECL([], [compiler_lib_search_dirs], [1], [The directories searched by this compiler when creating a shared library]) _LT_TAGDECL([], [predep_objects], [1], [Dependencies to place before and after the objects being linked to create a shared library]) _LT_TAGDECL([], [postdep_objects], [1]) _LT_TAGDECL([], [predeps], [1]) _LT_TAGDECL([], [postdeps], [1]) _LT_TAGDECL([], [compiler_lib_search_path], [1], [The library search path used internally by the compiler when linking a shared library]) ])# _LT_SYS_HIDDEN_LIBDEPS # _LT_LANG_F77_CONFIG([TAG]) # -------------------------- # Ensure that the configuration variables for a Fortran 77 compiler are # suitably defined. These variables are subsequently used by _LT_CONFIG # to write the compiler configuration to `libtool'. m4_defun([_LT_LANG_F77_CONFIG], [AC_LANG_PUSH(Fortran 77) if test -z "$F77" || test "X$F77" = "Xno"; then _lt_disable_F77=yes fi _LT_TAGVAR(archive_cmds_need_lc, $1)=no _LT_TAGVAR(allow_undefined_flag, $1)= _LT_TAGVAR(always_export_symbols, $1)=no _LT_TAGVAR(archive_expsym_cmds, $1)= _LT_TAGVAR(export_dynamic_flag_spec, $1)= _LT_TAGVAR(hardcode_direct, $1)=no _LT_TAGVAR(hardcode_direct_absolute, $1)=no _LT_TAGVAR(hardcode_libdir_flag_spec, $1)= _LT_TAGVAR(hardcode_libdir_separator, $1)= _LT_TAGVAR(hardcode_minus_L, $1)=no _LT_TAGVAR(hardcode_automatic, $1)=no _LT_TAGVAR(inherit_rpath, $1)=no _LT_TAGVAR(module_cmds, $1)= _LT_TAGVAR(module_expsym_cmds, $1)= _LT_TAGVAR(link_all_deplibs, $1)=unknown _LT_TAGVAR(old_archive_cmds, $1)=$old_archive_cmds _LT_TAGVAR(reload_flag, $1)=$reload_flag _LT_TAGVAR(reload_cmds, $1)=$reload_cmds _LT_TAGVAR(no_undefined_flag, $1)= _LT_TAGVAR(whole_archive_flag_spec, $1)= _LT_TAGVAR(enable_shared_with_static_runtimes, $1)=no # Source file extension for f77 test sources. ac_ext=f # Object file extension for compiled f77 test sources. objext=o _LT_TAGVAR(objext, $1)=$objext # No sense in running all these tests if we already determined that # the F77 compiler isn't working. Some variables (like enable_shared) # are currently assumed to apply to all compilers on this platform, # and will be corrupted by setting them based on a non-working compiler. if test "$_lt_disable_F77" != yes; then # Code to be used in simple compile tests lt_simple_compile_test_code="\ subroutine t return end " # Code to be used in simple link tests lt_simple_link_test_code="\ program t end " # ltmain only uses $CC for tagged configurations so make sure $CC is set. _LT_TAG_COMPILER # save warnings/boilerplate of simple test code _LT_COMPILER_BOILERPLATE _LT_LINKER_BOILERPLATE # Allow CC to be a program name with arguments. lt_save_CC="$CC" lt_save_GCC=$GCC lt_save_CFLAGS=$CFLAGS CC=${F77-"f77"} CFLAGS=$FFLAGS compiler=$CC _LT_TAGVAR(compiler, $1)=$CC _LT_CC_BASENAME([$compiler]) GCC=$G77 if test -n "$compiler"; then AC_MSG_CHECKING([if libtool supports shared libraries]) AC_MSG_RESULT([$can_build_shared]) AC_MSG_CHECKING([whether to build shared libraries]) test "$can_build_shared" = "no" && enable_shared=no # On AIX, shared libraries and static libraries use the same namespace, and # are all built from PIC. case $host_os in aix3*) test "$enable_shared" = yes && enable_static=no if test -n "$RANLIB"; then archive_cmds="$archive_cmds~\$RANLIB \$lib" postinstall_cmds='$RANLIB $lib' fi ;; aix[[4-9]]*) if test "$host_cpu" != ia64 && test "$aix_use_runtimelinking" = no ; then test "$enable_shared" = yes && enable_static=no fi ;; esac AC_MSG_RESULT([$enable_shared]) AC_MSG_CHECKING([whether to build static libraries]) # Make sure either enable_shared or enable_static is yes. test "$enable_shared" = yes || enable_static=yes AC_MSG_RESULT([$enable_static]) _LT_TAGVAR(GCC, $1)="$G77" _LT_TAGVAR(LD, $1)="$LD" ## CAVEAT EMPTOR: ## There is no encapsulation within the following macros, do not change ## the running order or otherwise move them around unless you know exactly ## what you are doing... _LT_COMPILER_PIC($1) _LT_COMPILER_C_O($1) _LT_COMPILER_FILE_LOCKS($1) _LT_LINKER_SHLIBS($1) _LT_SYS_DYNAMIC_LINKER($1) _LT_LINKER_HARDCODE_LIBPATH($1) _LT_CONFIG($1) fi # test -n "$compiler" GCC=$lt_save_GCC CC="$lt_save_CC" CFLAGS="$lt_save_CFLAGS" fi # test "$_lt_disable_F77" != yes AC_LANG_POP ])# _LT_LANG_F77_CONFIG # _LT_LANG_FC_CONFIG([TAG]) # ------------------------- # Ensure that the configuration variables for a Fortran compiler are # suitably defined. These variables are subsequently used by _LT_CONFIG # to write the compiler configuration to `libtool'. m4_defun([_LT_LANG_FC_CONFIG], [AC_LANG_PUSH(Fortran) if test -z "$FC" || test "X$FC" = "Xno"; then _lt_disable_FC=yes fi _LT_TAGVAR(archive_cmds_need_lc, $1)=no _LT_TAGVAR(allow_undefined_flag, $1)= _LT_TAGVAR(always_export_symbols, $1)=no _LT_TAGVAR(archive_expsym_cmds, $1)= _LT_TAGVAR(export_dynamic_flag_spec, $1)= _LT_TAGVAR(hardcode_direct, $1)=no _LT_TAGVAR(hardcode_direct_absolute, $1)=no _LT_TAGVAR(hardcode_libdir_flag_spec, $1)= _LT_TAGVAR(hardcode_libdir_separator, $1)= _LT_TAGVAR(hardcode_minus_L, $1)=no _LT_TAGVAR(hardcode_automatic, $1)=no _LT_TAGVAR(inherit_rpath, $1)=no _LT_TAGVAR(module_cmds, $1)= _LT_TAGVAR(module_expsym_cmds, $1)= _LT_TAGVAR(link_all_deplibs, $1)=unknown _LT_TAGVAR(old_archive_cmds, $1)=$old_archive_cmds _LT_TAGVAR(reload_flag, $1)=$reload_flag _LT_TAGVAR(reload_cmds, $1)=$reload_cmds _LT_TAGVAR(no_undefined_flag, $1)= _LT_TAGVAR(whole_archive_flag_spec, $1)= _LT_TAGVAR(enable_shared_with_static_runtimes, $1)=no # Source file extension for fc test sources. ac_ext=${ac_fc_srcext-f} # Object file extension for compiled fc test sources. objext=o _LT_TAGVAR(objext, $1)=$objext # No sense in running all these tests if we already determined that # the FC compiler isn't working. Some variables (like enable_shared) # are currently assumed to apply to all compilers on this platform, # and will be corrupted by setting them based on a non-working compiler. if test "$_lt_disable_FC" != yes; then # Code to be used in simple compile tests lt_simple_compile_test_code="\ subroutine t return end " # Code to be used in simple link tests lt_simple_link_test_code="\ program t end " # ltmain only uses $CC for tagged configurations so make sure $CC is set. _LT_TAG_COMPILER # save warnings/boilerplate of simple test code _LT_COMPILER_BOILERPLATE _LT_LINKER_BOILERPLATE # Allow CC to be a program name with arguments. lt_save_CC="$CC" lt_save_GCC=$GCC lt_save_CFLAGS=$CFLAGS CC=${FC-"f95"} CFLAGS=$FCFLAGS compiler=$CC GCC=$ac_cv_fc_compiler_gnu _LT_TAGVAR(compiler, $1)=$CC _LT_CC_BASENAME([$compiler]) if test -n "$compiler"; then AC_MSG_CHECKING([if libtool supports shared libraries]) AC_MSG_RESULT([$can_build_shared]) AC_MSG_CHECKING([whether to build shared libraries]) test "$can_build_shared" = "no" && enable_shared=no # On AIX, shared libraries and static libraries use the same namespace, and # are all built from PIC. case $host_os in aix3*) test "$enable_shared" = yes && enable_static=no if test -n "$RANLIB"; then archive_cmds="$archive_cmds~\$RANLIB \$lib" postinstall_cmds='$RANLIB $lib' fi ;; aix[[4-9]]*) if test "$host_cpu" != ia64 && test "$aix_use_runtimelinking" = no ; then test "$enable_shared" = yes && enable_static=no fi ;; esac AC_MSG_RESULT([$enable_shared]) AC_MSG_CHECKING([whether to build static libraries]) # Make sure either enable_shared or enable_static is yes. test "$enable_shared" = yes || enable_static=yes AC_MSG_RESULT([$enable_static]) _LT_TAGVAR(GCC, $1)="$ac_cv_fc_compiler_gnu" _LT_TAGVAR(LD, $1)="$LD" ## CAVEAT EMPTOR: ## There is no encapsulation within the following macros, do not change ## the running order or otherwise move them around unless you know exactly ## what you are doing... _LT_SYS_HIDDEN_LIBDEPS($1) _LT_COMPILER_PIC($1) _LT_COMPILER_C_O($1) _LT_COMPILER_FILE_LOCKS($1) _LT_LINKER_SHLIBS($1) _LT_SYS_DYNAMIC_LINKER($1) _LT_LINKER_HARDCODE_LIBPATH($1) _LT_CONFIG($1) fi # test -n "$compiler" GCC=$lt_save_GCC CC=$lt_save_CC CFLAGS=$lt_save_CFLAGS fi # test "$_lt_disable_FC" != yes AC_LANG_POP ])# _LT_LANG_FC_CONFIG # _LT_LANG_GCJ_CONFIG([TAG]) # -------------------------- # Ensure that the configuration variables for the GNU Java Compiler compiler # are suitably defined. These variables are subsequently used by _LT_CONFIG # to write the compiler configuration to `libtool'. m4_defun([_LT_LANG_GCJ_CONFIG], [AC_REQUIRE([LT_PROG_GCJ])dnl AC_LANG_SAVE # Source file extension for Java test sources. ac_ext=java # Object file extension for compiled Java test sources. objext=o _LT_TAGVAR(objext, $1)=$objext # Code to be used in simple compile tests lt_simple_compile_test_code="class foo {}" # Code to be used in simple link tests lt_simple_link_test_code='public class conftest { public static void main(String[[]] argv) {}; }' # ltmain only uses $CC for tagged configurations so make sure $CC is set. _LT_TAG_COMPILER # save warnings/boilerplate of simple test code _LT_COMPILER_BOILERPLATE _LT_LINKER_BOILERPLATE # Allow CC to be a program name with arguments. lt_save_CC=$CC lt_save_CFLAGS=$CFLAGS lt_save_GCC=$GCC GCC=yes CC=${GCJ-"gcj"} CFLAGS=$GCJFLAGS compiler=$CC _LT_TAGVAR(compiler, $1)=$CC _LT_TAGVAR(LD, $1)="$LD" _LT_CC_BASENAME([$compiler]) # GCJ did not exist at the time GCC didn't implicitly link libc in. _LT_TAGVAR(archive_cmds_need_lc, $1)=no _LT_TAGVAR(old_archive_cmds, $1)=$old_archive_cmds _LT_TAGVAR(reload_flag, $1)=$reload_flag _LT_TAGVAR(reload_cmds, $1)=$reload_cmds if test -n "$compiler"; then _LT_COMPILER_NO_RTTI($1) _LT_COMPILER_PIC($1) _LT_COMPILER_C_O($1) _LT_COMPILER_FILE_LOCKS($1) _LT_LINKER_SHLIBS($1) _LT_LINKER_HARDCODE_LIBPATH($1) _LT_CONFIG($1) fi AC_LANG_RESTORE GCC=$lt_save_GCC CC=$lt_save_CC CFLAGS=$lt_save_CFLAGS ])# _LT_LANG_GCJ_CONFIG # _LT_LANG_GO_CONFIG([TAG]) # -------------------------- # Ensure that the configuration variables for the GNU Go compiler # are suitably defined. These variables are subsequently used by _LT_CONFIG # to write the compiler configuration to `libtool'. m4_defun([_LT_LANG_GO_CONFIG], [AC_REQUIRE([LT_PROG_GO])dnl AC_LANG_SAVE # Source file extension for Go test sources. ac_ext=go # Object file extension for compiled Go test sources. objext=o _LT_TAGVAR(objext, $1)=$objext # Code to be used in simple compile tests lt_simple_compile_test_code="package main; func main() { }" # Code to be used in simple link tests lt_simple_link_test_code='package main; func main() { }' # ltmain only uses $CC for tagged configurations so make sure $CC is set. _LT_TAG_COMPILER # save warnings/boilerplate of simple test code _LT_COMPILER_BOILERPLATE _LT_LINKER_BOILERPLATE # Allow CC to be a program name with arguments. lt_save_CC=$CC lt_save_CFLAGS=$CFLAGS lt_save_GCC=$GCC GCC=yes CC=${GOC-"gccgo"} CFLAGS=$GOFLAGS compiler=$CC _LT_TAGVAR(compiler, $1)=$CC _LT_TAGVAR(LD, $1)="$LD" _LT_CC_BASENAME([$compiler]) # Go did not exist at the time GCC didn't implicitly link libc in. _LT_TAGVAR(archive_cmds_need_lc, $1)=no _LT_TAGVAR(old_archive_cmds, $1)=$old_archive_cmds _LT_TAGVAR(reload_flag, $1)=$reload_flag _LT_TAGVAR(reload_cmds, $1)=$reload_cmds if test -n "$compiler"; then _LT_COMPILER_NO_RTTI($1) _LT_COMPILER_PIC($1) _LT_COMPILER_C_O($1) _LT_COMPILER_FILE_LOCKS($1) _LT_LINKER_SHLIBS($1) _LT_LINKER_HARDCODE_LIBPATH($1) _LT_CONFIG($1) fi AC_LANG_RESTORE GCC=$lt_save_GCC CC=$lt_save_CC CFLAGS=$lt_save_CFLAGS ])# _LT_LANG_GO_CONFIG # _LT_LANG_RC_CONFIG([TAG]) # ------------------------- # Ensure that the configuration variables for the Windows resource compiler # are suitably defined. These variables are subsequently used by _LT_CONFIG # to write the compiler configuration to `libtool'. m4_defun([_LT_LANG_RC_CONFIG], [AC_REQUIRE([LT_PROG_RC])dnl AC_LANG_SAVE # Source file extension for RC test sources. ac_ext=rc # Object file extension for compiled RC test sources. objext=o _LT_TAGVAR(objext, $1)=$objext # Code to be used in simple compile tests lt_simple_compile_test_code='sample MENU { MENUITEM "&Soup", 100, CHECKED }' # Code to be used in simple link tests lt_simple_link_test_code="$lt_simple_compile_test_code" # ltmain only uses $CC for tagged configurations so make sure $CC is set. _LT_TAG_COMPILER # save warnings/boilerplate of simple test code _LT_COMPILER_BOILERPLATE _LT_LINKER_BOILERPLATE # Allow CC to be a program name with arguments. lt_save_CC="$CC" lt_save_CFLAGS=$CFLAGS lt_save_GCC=$GCC GCC= CC=${RC-"windres"} CFLAGS= compiler=$CC _LT_TAGVAR(compiler, $1)=$CC _LT_CC_BASENAME([$compiler]) _LT_TAGVAR(lt_cv_prog_compiler_c_o, $1)=yes if test -n "$compiler"; then : _LT_CONFIG($1) fi GCC=$lt_save_GCC AC_LANG_RESTORE CC=$lt_save_CC CFLAGS=$lt_save_CFLAGS ])# _LT_LANG_RC_CONFIG # LT_PROG_GCJ # ----------- AC_DEFUN([LT_PROG_GCJ], [m4_ifdef([AC_PROG_GCJ], [AC_PROG_GCJ], [m4_ifdef([A][M_PROG_GCJ], [A][M_PROG_GCJ], [AC_CHECK_TOOL(GCJ, gcj,) test "x${GCJFLAGS+set}" = xset || GCJFLAGS="-g -O2" AC_SUBST(GCJFLAGS)])])[]dnl ]) # Old name: AU_ALIAS([LT_AC_PROG_GCJ], [LT_PROG_GCJ]) dnl aclocal-1.4 backwards compatibility: dnl AC_DEFUN([LT_AC_PROG_GCJ], []) # LT_PROG_GO # ---------- AC_DEFUN([LT_PROG_GO], [AC_CHECK_TOOL(GOC, gccgo,) ]) # LT_PROG_RC # ---------- AC_DEFUN([LT_PROG_RC], [AC_CHECK_TOOL(RC, windres,) ]) # Old name: AU_ALIAS([LT_AC_PROG_RC], [LT_PROG_RC]) dnl aclocal-1.4 backwards compatibility: dnl AC_DEFUN([LT_AC_PROG_RC], []) # _LT_DECL_EGREP # -------------- # If we don't have a new enough Autoconf to choose the best grep # available, choose the one first in the user's PATH. m4_defun([_LT_DECL_EGREP], [AC_REQUIRE([AC_PROG_EGREP])dnl AC_REQUIRE([AC_PROG_FGREP])dnl test -z "$GREP" && GREP=grep _LT_DECL([], [GREP], [1], [A grep program that handles long lines]) _LT_DECL([], [EGREP], [1], [An ERE matcher]) _LT_DECL([], [FGREP], [1], [A literal string matcher]) dnl Non-bleeding-edge autoconf doesn't subst GREP, so do it here too AC_SUBST([GREP]) ]) # _LT_DECL_OBJDUMP # -------------- # If we don't have a new enough Autoconf to choose the best objdump # available, choose the one first in the user's PATH. m4_defun([_LT_DECL_OBJDUMP], [AC_CHECK_TOOL(OBJDUMP, objdump, false) test -z "$OBJDUMP" && OBJDUMP=objdump _LT_DECL([], [OBJDUMP], [1], [An object symbol dumper]) AC_SUBST([OBJDUMP]) ]) # _LT_DECL_DLLTOOL # ---------------- # Ensure DLLTOOL variable is set. m4_defun([_LT_DECL_DLLTOOL], [AC_CHECK_TOOL(DLLTOOL, dlltool, false) test -z "$DLLTOOL" && DLLTOOL=dlltool _LT_DECL([], [DLLTOOL], [1], [DLL creation program]) AC_SUBST([DLLTOOL]) ]) # _LT_DECL_SED # ------------ # Check for a fully-functional sed program, that truncates # as few characters as possible. Prefer GNU sed if found. m4_defun([_LT_DECL_SED], [AC_PROG_SED test -z "$SED" && SED=sed Xsed="$SED -e 1s/^X//" _LT_DECL([], [SED], [1], [A sed program that does not truncate output]) _LT_DECL([], [Xsed], ["\$SED -e 1s/^X//"], [Sed that helps us avoid accidentally triggering echo(1) options like -n]) ])# _LT_DECL_SED m4_ifndef([AC_PROG_SED], [ # NOTE: This macro has been submitted for inclusion into # # GNU Autoconf as AC_PROG_SED. When it is available in # # a released version of Autoconf we should remove this # # macro and use it instead. # m4_defun([AC_PROG_SED], [AC_MSG_CHECKING([for a sed that does not truncate output]) AC_CACHE_VAL(lt_cv_path_SED, [# Loop through the user's path and test for sed and gsed. # Then use that list of sed's as ones to test for truncation. as_save_IFS=$IFS; IFS=$PATH_SEPARATOR for as_dir in $PATH do IFS=$as_save_IFS test -z "$as_dir" && as_dir=. for lt_ac_prog in sed gsed; do for ac_exec_ext in '' $ac_executable_extensions; do if $as_executable_p "$as_dir/$lt_ac_prog$ac_exec_ext"; then lt_ac_sed_list="$lt_ac_sed_list $as_dir/$lt_ac_prog$ac_exec_ext" fi done done done IFS=$as_save_IFS lt_ac_max=0 lt_ac_count=0 # Add /usr/xpg4/bin/sed as it is typically found on Solaris # along with /bin/sed that truncates output. for lt_ac_sed in $lt_ac_sed_list /usr/xpg4/bin/sed; do test ! -f $lt_ac_sed && continue cat /dev/null > conftest.in lt_ac_count=0 echo $ECHO_N "0123456789$ECHO_C" >conftest.in # Check for GNU sed and select it if it is found. if "$lt_ac_sed" --version 2>&1 < /dev/null | grep 'GNU' > /dev/null; then lt_cv_path_SED=$lt_ac_sed break fi while true; do cat conftest.in conftest.in >conftest.tmp mv conftest.tmp conftest.in cp conftest.in conftest.nl echo >>conftest.nl $lt_ac_sed -e 's/a$//' < conftest.nl >conftest.out || break cmp -s conftest.out conftest.nl || break # 10000 chars as input seems more than enough test $lt_ac_count -gt 10 && break lt_ac_count=`expr $lt_ac_count + 1` if test $lt_ac_count -gt $lt_ac_max; then lt_ac_max=$lt_ac_count lt_cv_path_SED=$lt_ac_sed fi done done ]) SED=$lt_cv_path_SED AC_SUBST([SED]) AC_MSG_RESULT([$SED]) ])#AC_PROG_SED ])#m4_ifndef # Old name: AU_ALIAS([LT_AC_PROG_SED], [AC_PROG_SED]) dnl aclocal-1.4 backwards compatibility: dnl AC_DEFUN([LT_AC_PROG_SED], []) # _LT_CHECK_SHELL_FEATURES # ------------------------ # Find out whether the shell is Bourne or XSI compatible, # or has some other useful features. m4_defun([_LT_CHECK_SHELL_FEATURES], [AC_MSG_CHECKING([whether the shell understands some XSI constructs]) # Try some XSI features xsi_shell=no ( _lt_dummy="a/b/c" test "${_lt_dummy##*/},${_lt_dummy%/*},${_lt_dummy#??}"${_lt_dummy%"$_lt_dummy"}, \ = c,a/b,b/c, \ && eval 'test $(( 1 + 1 )) -eq 2 \ && test "${#_lt_dummy}" -eq 5' ) >/dev/null 2>&1 \ && xsi_shell=yes AC_MSG_RESULT([$xsi_shell]) _LT_CONFIG_LIBTOOL_INIT([xsi_shell='$xsi_shell']) AC_MSG_CHECKING([whether the shell understands "+="]) lt_shell_append=no ( foo=bar; set foo baz; eval "$[1]+=\$[2]" && test "$foo" = barbaz ) \ >/dev/null 2>&1 \ && lt_shell_append=yes AC_MSG_RESULT([$lt_shell_append]) _LT_CONFIG_LIBTOOL_INIT([lt_shell_append='$lt_shell_append']) if ( (MAIL=60; unset MAIL) || exit) >/dev/null 2>&1; then lt_unset=unset else lt_unset=false fi _LT_DECL([], [lt_unset], [0], [whether the shell understands "unset"])dnl # test EBCDIC or ASCII case `echo X|tr X '\101'` in A) # ASCII based system # \n is not interpreted correctly by Solaris 8 /usr/ucb/tr lt_SP2NL='tr \040 \012' lt_NL2SP='tr \015\012 \040\040' ;; *) # EBCDIC based system lt_SP2NL='tr \100 \n' lt_NL2SP='tr \r\n \100\100' ;; esac _LT_DECL([SP2NL], [lt_SP2NL], [1], [turn spaces into newlines])dnl _LT_DECL([NL2SP], [lt_NL2SP], [1], [turn newlines into spaces])dnl ])# _LT_CHECK_SHELL_FEATURES # _LT_PROG_FUNCTION_REPLACE (FUNCNAME, REPLACEMENT-BODY) # ------------------------------------------------------ # In `$cfgfile', look for function FUNCNAME delimited by `^FUNCNAME ()$' and # '^} FUNCNAME ', and replace its body with REPLACEMENT-BODY. m4_defun([_LT_PROG_FUNCTION_REPLACE], [dnl { sed -e '/^$1 ()$/,/^} # $1 /c\ $1 ()\ {\ m4_bpatsubsts([$2], [$], [\\], [^\([ ]\)], [\\\1]) } # Extended-shell $1 implementation' "$cfgfile" > $cfgfile.tmp \ && mv -f "$cfgfile.tmp" "$cfgfile" \ || (rm -f "$cfgfile" && cp "$cfgfile.tmp" "$cfgfile" && rm -f "$cfgfile.tmp") test 0 -eq $? || _lt_function_replace_fail=: ]) # _LT_PROG_REPLACE_SHELLFNS # ------------------------- # Replace existing portable implementations of several shell functions with # equivalent extended shell implementations where those features are available.. m4_defun([_LT_PROG_REPLACE_SHELLFNS], [if test x"$xsi_shell" = xyes; then _LT_PROG_FUNCTION_REPLACE([func_dirname], [dnl case ${1} in */*) func_dirname_result="${1%/*}${2}" ;; * ) func_dirname_result="${3}" ;; esac]) _LT_PROG_FUNCTION_REPLACE([func_basename], [dnl func_basename_result="${1##*/}"]) _LT_PROG_FUNCTION_REPLACE([func_dirname_and_basename], [dnl case ${1} in */*) func_dirname_result="${1%/*}${2}" ;; * ) func_dirname_result="${3}" ;; esac func_basename_result="${1##*/}"]) _LT_PROG_FUNCTION_REPLACE([func_stripname], [dnl # pdksh 5.2.14 does not do ${X%$Y} correctly if both X and Y are # positional parameters, so assign one to ordinary parameter first. func_stripname_result=${3} func_stripname_result=${func_stripname_result#"${1}"} func_stripname_result=${func_stripname_result%"${2}"}]) _LT_PROG_FUNCTION_REPLACE([func_split_long_opt], [dnl func_split_long_opt_name=${1%%=*} func_split_long_opt_arg=${1#*=}]) _LT_PROG_FUNCTION_REPLACE([func_split_short_opt], [dnl func_split_short_opt_arg=${1#??} func_split_short_opt_name=${1%"$func_split_short_opt_arg"}]) _LT_PROG_FUNCTION_REPLACE([func_lo2o], [dnl case ${1} in *.lo) func_lo2o_result=${1%.lo}.${objext} ;; *) func_lo2o_result=${1} ;; esac]) _LT_PROG_FUNCTION_REPLACE([func_xform], [ func_xform_result=${1%.*}.lo]) _LT_PROG_FUNCTION_REPLACE([func_arith], [ func_arith_result=$(( $[*] ))]) _LT_PROG_FUNCTION_REPLACE([func_len], [ func_len_result=${#1}]) fi if test x"$lt_shell_append" = xyes; then _LT_PROG_FUNCTION_REPLACE([func_append], [ eval "${1}+=\\${2}"]) _LT_PROG_FUNCTION_REPLACE([func_append_quoted], [dnl func_quote_for_eval "${2}" dnl m4 expansion turns \\\\ into \\, and then the shell eval turns that into \ eval "${1}+=\\\\ \\$func_quote_for_eval_result"]) # Save a `func_append' function call where possible by direct use of '+=' sed -e 's%func_append \([[a-zA-Z_]]\{1,\}\) "%\1+="%g' $cfgfile > $cfgfile.tmp \ && mv -f "$cfgfile.tmp" "$cfgfile" \ || (rm -f "$cfgfile" && cp "$cfgfile.tmp" "$cfgfile" && rm -f "$cfgfile.tmp") test 0 -eq $? || _lt_function_replace_fail=: else # Save a `func_append' function call even when '+=' is not available sed -e 's%func_append \([[a-zA-Z_]]\{1,\}\) "%\1="$\1%g' $cfgfile > $cfgfile.tmp \ && mv -f "$cfgfile.tmp" "$cfgfile" \ || (rm -f "$cfgfile" && cp "$cfgfile.tmp" "$cfgfile" && rm -f "$cfgfile.tmp") test 0 -eq $? || _lt_function_replace_fail=: fi if test x"$_lt_function_replace_fail" = x":"; then AC_MSG_WARN([Unable to substitute extended shell functions in $ofile]) fi ]) # _LT_PATH_CONVERSION_FUNCTIONS # ----------------------------- # Determine which file name conversion functions should be used by # func_to_host_file (and, implicitly, by func_to_host_path). These are needed # for certain cross-compile configurations and native mingw. m4_defun([_LT_PATH_CONVERSION_FUNCTIONS], [AC_REQUIRE([AC_CANONICAL_HOST])dnl AC_REQUIRE([AC_CANONICAL_BUILD])dnl AC_MSG_CHECKING([how to convert $build file names to $host format]) AC_CACHE_VAL(lt_cv_to_host_file_cmd, [case $host in *-*-mingw* ) case $build in *-*-mingw* ) # actually msys lt_cv_to_host_file_cmd=func_convert_file_msys_to_w32 ;; *-*-cygwin* ) lt_cv_to_host_file_cmd=func_convert_file_cygwin_to_w32 ;; * ) # otherwise, assume *nix lt_cv_to_host_file_cmd=func_convert_file_nix_to_w32 ;; esac ;; *-*-cygwin* ) case $build in *-*-mingw* ) # actually msys lt_cv_to_host_file_cmd=func_convert_file_msys_to_cygwin ;; *-*-cygwin* ) lt_cv_to_host_file_cmd=func_convert_file_noop ;; * ) # otherwise, assume *nix lt_cv_to_host_file_cmd=func_convert_file_nix_to_cygwin ;; esac ;; * ) # unhandled hosts (and "normal" native builds) lt_cv_to_host_file_cmd=func_convert_file_noop ;; esac ]) to_host_file_cmd=$lt_cv_to_host_file_cmd AC_MSG_RESULT([$lt_cv_to_host_file_cmd]) _LT_DECL([to_host_file_cmd], [lt_cv_to_host_file_cmd], [0], [convert $build file names to $host format])dnl AC_MSG_CHECKING([how to convert $build file names to toolchain format]) AC_CACHE_VAL(lt_cv_to_tool_file_cmd, [#assume ordinary cross tools, or native build. lt_cv_to_tool_file_cmd=func_convert_file_noop case $host in *-*-mingw* ) case $build in *-*-mingw* ) # actually msys lt_cv_to_tool_file_cmd=func_convert_file_msys_to_w32 ;; esac ;; esac ]) to_tool_file_cmd=$lt_cv_to_tool_file_cmd AC_MSG_RESULT([$lt_cv_to_tool_file_cmd]) _LT_DECL([to_tool_file_cmd], [lt_cv_to_tool_file_cmd], [0], [convert $build files to toolchain format])dnl ])# _LT_PATH_CONVERSION_FUNCTIONS # Helper functions for option handling. -*- Autoconf -*- # # Copyright (C) 2004, 2005, 2007, 2008, 2009 Free Software Foundation, # Inc. # Written by Gary V. Vaughan, 2004 # # This file is free software; the Free Software Foundation gives # unlimited permission to copy and/or distribute it, with or without # modifications, as long as this notice is preserved. # serial 7 ltoptions.m4 # This is to help aclocal find these macros, as it can't see m4_define. AC_DEFUN([LTOPTIONS_VERSION], [m4_if([1])]) # _LT_MANGLE_OPTION(MACRO-NAME, OPTION-NAME) # ------------------------------------------ m4_define([_LT_MANGLE_OPTION], [[_LT_OPTION_]m4_bpatsubst($1__$2, [[^a-zA-Z0-9_]], [_])]) # _LT_SET_OPTION(MACRO-NAME, OPTION-NAME) # --------------------------------------- # Set option OPTION-NAME for macro MACRO-NAME, and if there is a # matching handler defined, dispatch to it. Other OPTION-NAMEs are # saved as a flag. m4_define([_LT_SET_OPTION], [m4_define(_LT_MANGLE_OPTION([$1], [$2]))dnl m4_ifdef(_LT_MANGLE_DEFUN([$1], [$2]), _LT_MANGLE_DEFUN([$1], [$2]), [m4_warning([Unknown $1 option `$2'])])[]dnl ]) # _LT_IF_OPTION(MACRO-NAME, OPTION-NAME, IF-SET, [IF-NOT-SET]) # ------------------------------------------------------------ # Execute IF-SET if OPTION is set, IF-NOT-SET otherwise. m4_define([_LT_IF_OPTION], [m4_ifdef(_LT_MANGLE_OPTION([$1], [$2]), [$3], [$4])]) # _LT_UNLESS_OPTIONS(MACRO-NAME, OPTION-LIST, IF-NOT-SET) # ------------------------------------------------------- # Execute IF-NOT-SET unless all options in OPTION-LIST for MACRO-NAME # are set. m4_define([_LT_UNLESS_OPTIONS], [m4_foreach([_LT_Option], m4_split(m4_normalize([$2])), [m4_ifdef(_LT_MANGLE_OPTION([$1], _LT_Option), [m4_define([$0_found])])])[]dnl m4_ifdef([$0_found], [m4_undefine([$0_found])], [$3 ])[]dnl ]) # _LT_SET_OPTIONS(MACRO-NAME, OPTION-LIST) # ---------------------------------------- # OPTION-LIST is a space-separated list of Libtool options associated # with MACRO-NAME. If any OPTION has a matching handler declared with # LT_OPTION_DEFINE, dispatch to that macro; otherwise complain about # the unknown option and exit. m4_defun([_LT_SET_OPTIONS], [# Set options m4_foreach([_LT_Option], m4_split(m4_normalize([$2])), [_LT_SET_OPTION([$1], _LT_Option)]) m4_if([$1],[LT_INIT],[ dnl dnl Simply set some default values (i.e off) if boolean options were not dnl specified: _LT_UNLESS_OPTIONS([LT_INIT], [dlopen], [enable_dlopen=no ]) _LT_UNLESS_OPTIONS([LT_INIT], [win32-dll], [enable_win32_dll=no ]) dnl dnl If no reference was made to various pairs of opposing options, then dnl we run the default mode handler for the pair. For example, if neither dnl `shared' nor `disable-shared' was passed, we enable building of shared dnl archives by default: _LT_UNLESS_OPTIONS([LT_INIT], [shared disable-shared], [_LT_ENABLE_SHARED]) _LT_UNLESS_OPTIONS([LT_INIT], [static disable-static], [_LT_ENABLE_STATIC]) _LT_UNLESS_OPTIONS([LT_INIT], [pic-only no-pic], [_LT_WITH_PIC]) _LT_UNLESS_OPTIONS([LT_INIT], [fast-install disable-fast-install], [_LT_ENABLE_FAST_INSTALL]) ]) ])# _LT_SET_OPTIONS # _LT_MANGLE_DEFUN(MACRO-NAME, OPTION-NAME) # ----------------------------------------- m4_define([_LT_MANGLE_DEFUN], [[_LT_OPTION_DEFUN_]m4_bpatsubst(m4_toupper([$1__$2]), [[^A-Z0-9_]], [_])]) # LT_OPTION_DEFINE(MACRO-NAME, OPTION-NAME, CODE) # ----------------------------------------------- m4_define([LT_OPTION_DEFINE], [m4_define(_LT_MANGLE_DEFUN([$1], [$2]), [$3])[]dnl ])# LT_OPTION_DEFINE # dlopen # ------ LT_OPTION_DEFINE([LT_INIT], [dlopen], [enable_dlopen=yes ]) AU_DEFUN([AC_LIBTOOL_DLOPEN], [_LT_SET_OPTION([LT_INIT], [dlopen]) AC_DIAGNOSE([obsolete], [$0: Remove this warning and the call to _LT_SET_OPTION when you put the `dlopen' option into LT_INIT's first parameter.]) ]) dnl aclocal-1.4 backwards compatibility: dnl AC_DEFUN([AC_LIBTOOL_DLOPEN], []) # win32-dll # --------- # Declare package support for building win32 dll's. LT_OPTION_DEFINE([LT_INIT], [win32-dll], [enable_win32_dll=yes case $host in *-*-cygwin* | *-*-mingw* | *-*-pw32* | *-*-cegcc*) AC_CHECK_TOOL(AS, as, false) AC_CHECK_TOOL(DLLTOOL, dlltool, false) AC_CHECK_TOOL(OBJDUMP, objdump, false) ;; esac test -z "$AS" && AS=as _LT_DECL([], [AS], [1], [Assembler program])dnl test -z "$DLLTOOL" && DLLTOOL=dlltool _LT_DECL([], [DLLTOOL], [1], [DLL creation program])dnl test -z "$OBJDUMP" && OBJDUMP=objdump _LT_DECL([], [OBJDUMP], [1], [Object dumper program])dnl ])# win32-dll AU_DEFUN([AC_LIBTOOL_WIN32_DLL], [AC_REQUIRE([AC_CANONICAL_HOST])dnl _LT_SET_OPTION([LT_INIT], [win32-dll]) AC_DIAGNOSE([obsolete], [$0: Remove this warning and the call to _LT_SET_OPTION when you put the `win32-dll' option into LT_INIT's first parameter.]) ]) dnl aclocal-1.4 backwards compatibility: dnl AC_DEFUN([AC_LIBTOOL_WIN32_DLL], []) # _LT_ENABLE_SHARED([DEFAULT]) # ---------------------------- # implement the --enable-shared flag, and supports the `shared' and # `disable-shared' LT_INIT options. # DEFAULT is either `yes' or `no'. If omitted, it defaults to `yes'. m4_define([_LT_ENABLE_SHARED], [m4_define([_LT_ENABLE_SHARED_DEFAULT], [m4_if($1, no, no, yes)])dnl AC_ARG_ENABLE([shared], [AS_HELP_STRING([--enable-shared@<:@=PKGS@:>@], [build shared libraries @<:@default=]_LT_ENABLE_SHARED_DEFAULT[@:>@])], [p=${PACKAGE-default} case $enableval in yes) enable_shared=yes ;; no) enable_shared=no ;; *) enable_shared=no # Look at the argument we got. We use all the common list separators. lt_save_ifs="$IFS"; IFS="${IFS}$PATH_SEPARATOR," for pkg in $enableval; do IFS="$lt_save_ifs" if test "X$pkg" = "X$p"; then enable_shared=yes fi done IFS="$lt_save_ifs" ;; esac], [enable_shared=]_LT_ENABLE_SHARED_DEFAULT) _LT_DECL([build_libtool_libs], [enable_shared], [0], [Whether or not to build shared libraries]) ])# _LT_ENABLE_SHARED LT_OPTION_DEFINE([LT_INIT], [shared], [_LT_ENABLE_SHARED([yes])]) LT_OPTION_DEFINE([LT_INIT], [disable-shared], [_LT_ENABLE_SHARED([no])]) # Old names: AC_DEFUN([AC_ENABLE_SHARED], [_LT_SET_OPTION([LT_INIT], m4_if([$1], [no], [disable-])[shared]) ]) AC_DEFUN([AC_DISABLE_SHARED], [_LT_SET_OPTION([LT_INIT], [disable-shared]) ]) AU_DEFUN([AM_ENABLE_SHARED], [AC_ENABLE_SHARED($@)]) AU_DEFUN([AM_DISABLE_SHARED], [AC_DISABLE_SHARED($@)]) dnl aclocal-1.4 backwards compatibility: dnl AC_DEFUN([AM_ENABLE_SHARED], []) dnl AC_DEFUN([AM_DISABLE_SHARED], []) # _LT_ENABLE_STATIC([DEFAULT]) # ---------------------------- # implement the --enable-static flag, and support the `static' and # `disable-static' LT_INIT options. # DEFAULT is either `yes' or `no'. If omitted, it defaults to `yes'. m4_define([_LT_ENABLE_STATIC], [m4_define([_LT_ENABLE_STATIC_DEFAULT], [m4_if($1, no, no, yes)])dnl AC_ARG_ENABLE([static], [AS_HELP_STRING([--enable-static@<:@=PKGS@:>@], [build static libraries @<:@default=]_LT_ENABLE_STATIC_DEFAULT[@:>@])], [p=${PACKAGE-default} case $enableval in yes) enable_static=yes ;; no) enable_static=no ;; *) enable_static=no # Look at the argument we got. We use all the common list separators. lt_save_ifs="$IFS"; IFS="${IFS}$PATH_SEPARATOR," for pkg in $enableval; do IFS="$lt_save_ifs" if test "X$pkg" = "X$p"; then enable_static=yes fi done IFS="$lt_save_ifs" ;; esac], [enable_static=]_LT_ENABLE_STATIC_DEFAULT) _LT_DECL([build_old_libs], [enable_static], [0], [Whether or not to build static libraries]) ])# _LT_ENABLE_STATIC LT_OPTION_DEFINE([LT_INIT], [static], [_LT_ENABLE_STATIC([yes])]) LT_OPTION_DEFINE([LT_INIT], [disable-static], [_LT_ENABLE_STATIC([no])]) # Old names: AC_DEFUN([AC_ENABLE_STATIC], [_LT_SET_OPTION([LT_INIT], m4_if([$1], [no], [disable-])[static]) ]) AC_DEFUN([AC_DISABLE_STATIC], [_LT_SET_OPTION([LT_INIT], [disable-static]) ]) AU_DEFUN([AM_ENABLE_STATIC], [AC_ENABLE_STATIC($@)]) AU_DEFUN([AM_DISABLE_STATIC], [AC_DISABLE_STATIC($@)]) dnl aclocal-1.4 backwards compatibility: dnl AC_DEFUN([AM_ENABLE_STATIC], []) dnl AC_DEFUN([AM_DISABLE_STATIC], []) # _LT_ENABLE_FAST_INSTALL([DEFAULT]) # ---------------------------------- # implement the --enable-fast-install flag, and support the `fast-install' # and `disable-fast-install' LT_INIT options. # DEFAULT is either `yes' or `no'. If omitted, it defaults to `yes'. m4_define([_LT_ENABLE_FAST_INSTALL], [m4_define([_LT_ENABLE_FAST_INSTALL_DEFAULT], [m4_if($1, no, no, yes)])dnl AC_ARG_ENABLE([fast-install], [AS_HELP_STRING([--enable-fast-install@<:@=PKGS@:>@], [optimize for fast installation @<:@default=]_LT_ENABLE_FAST_INSTALL_DEFAULT[@:>@])], [p=${PACKAGE-default} case $enableval in yes) enable_fast_install=yes ;; no) enable_fast_install=no ;; *) enable_fast_install=no # Look at the argument we got. We use all the common list separators. lt_save_ifs="$IFS"; IFS="${IFS}$PATH_SEPARATOR," for pkg in $enableval; do IFS="$lt_save_ifs" if test "X$pkg" = "X$p"; then enable_fast_install=yes fi done IFS="$lt_save_ifs" ;; esac], [enable_fast_install=]_LT_ENABLE_FAST_INSTALL_DEFAULT) _LT_DECL([fast_install], [enable_fast_install], [0], [Whether or not to optimize for fast installation])dnl ])# _LT_ENABLE_FAST_INSTALL LT_OPTION_DEFINE([LT_INIT], [fast-install], [_LT_ENABLE_FAST_INSTALL([yes])]) LT_OPTION_DEFINE([LT_INIT], [disable-fast-install], [_LT_ENABLE_FAST_INSTALL([no])]) # Old names: AU_DEFUN([AC_ENABLE_FAST_INSTALL], [_LT_SET_OPTION([LT_INIT], m4_if([$1], [no], [disable-])[fast-install]) AC_DIAGNOSE([obsolete], [$0: Remove this warning and the call to _LT_SET_OPTION when you put the `fast-install' option into LT_INIT's first parameter.]) ]) AU_DEFUN([AC_DISABLE_FAST_INSTALL], [_LT_SET_OPTION([LT_INIT], [disable-fast-install]) AC_DIAGNOSE([obsolete], [$0: Remove this warning and the call to _LT_SET_OPTION when you put the `disable-fast-install' option into LT_INIT's first parameter.]) ]) dnl aclocal-1.4 backwards compatibility: dnl AC_DEFUN([AC_ENABLE_FAST_INSTALL], []) dnl AC_DEFUN([AM_DISABLE_FAST_INSTALL], []) # _LT_WITH_PIC([MODE]) # -------------------- # implement the --with-pic flag, and support the `pic-only' and `no-pic' # LT_INIT options. # MODE is either `yes' or `no'. If omitted, it defaults to `both'. m4_define([_LT_WITH_PIC], [AC_ARG_WITH([pic], [AS_HELP_STRING([--with-pic@<:@=PKGS@:>@], [try to use only PIC/non-PIC objects @<:@default=use both@:>@])], [lt_p=${PACKAGE-default} case $withval in yes|no) pic_mode=$withval ;; *) pic_mode=default # Look at the argument we got. We use all the common list separators. lt_save_ifs="$IFS"; IFS="${IFS}$PATH_SEPARATOR," for lt_pkg in $withval; do IFS="$lt_save_ifs" if test "X$lt_pkg" = "X$lt_p"; then pic_mode=yes fi done IFS="$lt_save_ifs" ;; esac], [pic_mode=default]) test -z "$pic_mode" && pic_mode=m4_default([$1], [default]) _LT_DECL([], [pic_mode], [0], [What type of objects to build])dnl ])# _LT_WITH_PIC LT_OPTION_DEFINE([LT_INIT], [pic-only], [_LT_WITH_PIC([yes])]) LT_OPTION_DEFINE([LT_INIT], [no-pic], [_LT_WITH_PIC([no])]) # Old name: AU_DEFUN([AC_LIBTOOL_PICMODE], [_LT_SET_OPTION([LT_INIT], [pic-only]) AC_DIAGNOSE([obsolete], [$0: Remove this warning and the call to _LT_SET_OPTION when you put the `pic-only' option into LT_INIT's first parameter.]) ]) dnl aclocal-1.4 backwards compatibility: dnl AC_DEFUN([AC_LIBTOOL_PICMODE], []) m4_define([_LTDL_MODE], []) LT_OPTION_DEFINE([LTDL_INIT], [nonrecursive], [m4_define([_LTDL_MODE], [nonrecursive])]) LT_OPTION_DEFINE([LTDL_INIT], [recursive], [m4_define([_LTDL_MODE], [recursive])]) LT_OPTION_DEFINE([LTDL_INIT], [subproject], [m4_define([_LTDL_MODE], [subproject])]) m4_define([_LTDL_TYPE], []) LT_OPTION_DEFINE([LTDL_INIT], [installable], [m4_define([_LTDL_TYPE], [installable])]) LT_OPTION_DEFINE([LTDL_INIT], [convenience], [m4_define([_LTDL_TYPE], [convenience])]) # ltsugar.m4 -- libtool m4 base layer. -*-Autoconf-*- # # Copyright (C) 2004, 2005, 2007, 2008 Free Software Foundation, Inc. # Written by Gary V. Vaughan, 2004 # # This file is free software; the Free Software Foundation gives # unlimited permission to copy and/or distribute it, with or without # modifications, as long as this notice is preserved. # serial 6 ltsugar.m4 # This is to help aclocal find these macros, as it can't see m4_define. AC_DEFUN([LTSUGAR_VERSION], [m4_if([0.1])]) # lt_join(SEP, ARG1, [ARG2...]) # ----------------------------- # Produce ARG1SEPARG2...SEPARGn, omitting [] arguments and their # associated separator. # Needed until we can rely on m4_join from Autoconf 2.62, since all earlier # versions in m4sugar had bugs. m4_define([lt_join], [m4_if([$#], [1], [], [$#], [2], [[$2]], [m4_if([$2], [], [], [[$2]_])$0([$1], m4_shift(m4_shift($@)))])]) m4_define([_lt_join], [m4_if([$#$2], [2], [], [m4_if([$2], [], [], [[$1$2]])$0([$1], m4_shift(m4_shift($@)))])]) # lt_car(LIST) # lt_cdr(LIST) # ------------ # Manipulate m4 lists. # These macros are necessary as long as will still need to support # Autoconf-2.59 which quotes differently. m4_define([lt_car], [[$1]]) m4_define([lt_cdr], [m4_if([$#], 0, [m4_fatal([$0: cannot be called without arguments])], [$#], 1, [], [m4_dquote(m4_shift($@))])]) m4_define([lt_unquote], $1) # lt_append(MACRO-NAME, STRING, [SEPARATOR]) # ------------------------------------------ # Redefine MACRO-NAME to hold its former content plus `SEPARATOR'`STRING'. # Note that neither SEPARATOR nor STRING are expanded; they are appended # to MACRO-NAME as is (leaving the expansion for when MACRO-NAME is invoked). # No SEPARATOR is output if MACRO-NAME was previously undefined (different # than defined and empty). # # This macro is needed until we can rely on Autoconf 2.62, since earlier # versions of m4sugar mistakenly expanded SEPARATOR but not STRING. m4_define([lt_append], [m4_define([$1], m4_ifdef([$1], [m4_defn([$1])[$3]])[$2])]) # lt_combine(SEP, PREFIX-LIST, INFIX, SUFFIX1, [SUFFIX2...]) # ---------------------------------------------------------- # Produce a SEP delimited list of all paired combinations of elements of # PREFIX-LIST with SUFFIX1 through SUFFIXn. Each element of the list # has the form PREFIXmINFIXSUFFIXn. # Needed until we can rely on m4_combine added in Autoconf 2.62. m4_define([lt_combine], [m4_if(m4_eval([$# > 3]), [1], [m4_pushdef([_Lt_sep], [m4_define([_Lt_sep], m4_defn([lt_car]))])]]dnl [[m4_foreach([_Lt_prefix], [$2], [m4_foreach([_Lt_suffix], ]m4_dquote(m4_dquote(m4_shift(m4_shift(m4_shift($@)))))[, [_Lt_sep([$1])[]m4_defn([_Lt_prefix])[$3]m4_defn([_Lt_suffix])])])])]) # lt_if_append_uniq(MACRO-NAME, VARNAME, [SEPARATOR], [UNIQ], [NOT-UNIQ]) # ----------------------------------------------------------------------- # Iff MACRO-NAME does not yet contain VARNAME, then append it (delimited # by SEPARATOR if supplied) and expand UNIQ, else NOT-UNIQ. m4_define([lt_if_append_uniq], [m4_ifdef([$1], [m4_if(m4_index([$3]m4_defn([$1])[$3], [$3$2$3]), [-1], [lt_append([$1], [$2], [$3])$4], [$5])], [lt_append([$1], [$2], [$3])$4])]) # lt_dict_add(DICT, KEY, VALUE) # ----------------------------- m4_define([lt_dict_add], [m4_define([$1($2)], [$3])]) # lt_dict_add_subkey(DICT, KEY, SUBKEY, VALUE) # -------------------------------------------- m4_define([lt_dict_add_subkey], [m4_define([$1($2:$3)], [$4])]) # lt_dict_fetch(DICT, KEY, [SUBKEY]) # ---------------------------------- m4_define([lt_dict_fetch], [m4_ifval([$3], m4_ifdef([$1($2:$3)], [m4_defn([$1($2:$3)])]), m4_ifdef([$1($2)], [m4_defn([$1($2)])]))]) # lt_if_dict_fetch(DICT, KEY, [SUBKEY], VALUE, IF-TRUE, [IF-FALSE]) # ----------------------------------------------------------------- m4_define([lt_if_dict_fetch], [m4_if(lt_dict_fetch([$1], [$2], [$3]), [$4], [$5], [$6])]) # lt_dict_filter(DICT, [SUBKEY], VALUE, [SEPARATOR], KEY, [...]) # -------------------------------------------------------------- m4_define([lt_dict_filter], [m4_if([$5], [], [], [lt_join(m4_quote(m4_default([$4], [[, ]])), lt_unquote(m4_split(m4_normalize(m4_foreach(_Lt_key, lt_car([m4_shiftn(4, $@)]), [lt_if_dict_fetch([$1], _Lt_key, [$2], [$3], [_Lt_key ])])))))])[]dnl ]) # ltversion.m4 -- version numbers -*- Autoconf -*- # # Copyright (C) 2004 Free Software Foundation, Inc. # Written by Scott James Remnant, 2004 # # This file is free software; the Free Software Foundation gives # unlimited permission to copy and/or distribute it, with or without # modifications, as long as this notice is preserved. # @configure_input@ # serial 3337 ltversion.m4 # This file is part of GNU Libtool m4_define([LT_PACKAGE_VERSION], [2.4.2]) m4_define([LT_PACKAGE_REVISION], [1.3337]) AC_DEFUN([LTVERSION_VERSION], [macro_version='2.4.2' macro_revision='1.3337' _LT_DECL(, macro_version, 0, [Which release of libtool.m4 was used?]) _LT_DECL(, macro_revision, 0) ]) # lt~obsolete.m4 -- aclocal satisfying obsolete definitions. -*-Autoconf-*- # # Copyright (C) 2004, 2005, 2007, 2009 Free Software Foundation, Inc. # Written by Scott James Remnant, 2004. # # This file is free software; the Free Software Foundation gives # unlimited permission to copy and/or distribute it, with or without # modifications, as long as this notice is preserved. # serial 5 lt~obsolete.m4 # These exist entirely to fool aclocal when bootstrapping libtool. # # In the past libtool.m4 has provided macros via AC_DEFUN (or AU_DEFUN) # which have later been changed to m4_define as they aren't part of the # exported API, or moved to Autoconf or Automake where they belong. # # The trouble is, aclocal is a bit thick. It'll see the old AC_DEFUN # in /usr/share/aclocal/libtool.m4 and remember it, then when it sees us # using a macro with the same name in our local m4/libtool.m4 it'll # pull the old libtool.m4 in (it doesn't see our shiny new m4_define # and doesn't know about Autoconf macros at all.) # # So we provide this file, which has a silly filename so it's always # included after everything else. This provides aclocal with the # AC_DEFUNs it wants, but when m4 processes it, it doesn't do anything # because those macros already exist, or will be overwritten later. # We use AC_DEFUN over AU_DEFUN for compatibility with aclocal-1.6. # # Anytime we withdraw an AC_DEFUN or AU_DEFUN, remember to add it here. # Yes, that means every name once taken will need to remain here until # we give up compatibility with versions before 1.7, at which point # we need to keep only those names which we still refer to. # This is to help aclocal find these macros, as it can't see m4_define. AC_DEFUN([LTOBSOLETE_VERSION], [m4_if([1])]) m4_ifndef([AC_LIBTOOL_LINKER_OPTION], [AC_DEFUN([AC_LIBTOOL_LINKER_OPTION])]) m4_ifndef([AC_PROG_EGREP], [AC_DEFUN([AC_PROG_EGREP])]) m4_ifndef([_LT_AC_PROG_ECHO_BACKSLASH], [AC_DEFUN([_LT_AC_PROG_ECHO_BACKSLASH])]) m4_ifndef([_LT_AC_SHELL_INIT], [AC_DEFUN([_LT_AC_SHELL_INIT])]) m4_ifndef([_LT_AC_SYS_LIBPATH_AIX], [AC_DEFUN([_LT_AC_SYS_LIBPATH_AIX])]) m4_ifndef([_LT_PROG_LTMAIN], [AC_DEFUN([_LT_PROG_LTMAIN])]) m4_ifndef([_LT_AC_TAGVAR], [AC_DEFUN([_LT_AC_TAGVAR])]) m4_ifndef([AC_LTDL_ENABLE_INSTALL], [AC_DEFUN([AC_LTDL_ENABLE_INSTALL])]) m4_ifndef([AC_LTDL_PREOPEN], [AC_DEFUN([AC_LTDL_PREOPEN])]) m4_ifndef([_LT_AC_SYS_COMPILER], [AC_DEFUN([_LT_AC_SYS_COMPILER])]) m4_ifndef([_LT_AC_LOCK], [AC_DEFUN([_LT_AC_LOCK])]) m4_ifndef([AC_LIBTOOL_SYS_OLD_ARCHIVE], [AC_DEFUN([AC_LIBTOOL_SYS_OLD_ARCHIVE])]) m4_ifndef([_LT_AC_TRY_DLOPEN_SELF], [AC_DEFUN([_LT_AC_TRY_DLOPEN_SELF])]) m4_ifndef([AC_LIBTOOL_PROG_CC_C_O], [AC_DEFUN([AC_LIBTOOL_PROG_CC_C_O])]) m4_ifndef([AC_LIBTOOL_SYS_HARD_LINK_LOCKS], [AC_DEFUN([AC_LIBTOOL_SYS_HARD_LINK_LOCKS])]) m4_ifndef([AC_LIBTOOL_OBJDIR], [AC_DEFUN([AC_LIBTOOL_OBJDIR])]) m4_ifndef([AC_LTDL_OBJDIR], [AC_DEFUN([AC_LTDL_OBJDIR])]) m4_ifndef([AC_LIBTOOL_PROG_LD_HARDCODE_LIBPATH], [AC_DEFUN([AC_LIBTOOL_PROG_LD_HARDCODE_LIBPATH])]) m4_ifndef([AC_LIBTOOL_SYS_LIB_STRIP], [AC_DEFUN([AC_LIBTOOL_SYS_LIB_STRIP])]) m4_ifndef([AC_PATH_MAGIC], [AC_DEFUN([AC_PATH_MAGIC])]) m4_ifndef([AC_PROG_LD_GNU], [AC_DEFUN([AC_PROG_LD_GNU])]) m4_ifndef([AC_PROG_LD_RELOAD_FLAG], [AC_DEFUN([AC_PROG_LD_RELOAD_FLAG])]) m4_ifndef([AC_DEPLIBS_CHECK_METHOD], [AC_DEFUN([AC_DEPLIBS_CHECK_METHOD])]) m4_ifndef([AC_LIBTOOL_PROG_COMPILER_NO_RTTI], [AC_DEFUN([AC_LIBTOOL_PROG_COMPILER_NO_RTTI])]) m4_ifndef([AC_LIBTOOL_SYS_GLOBAL_SYMBOL_PIPE], [AC_DEFUN([AC_LIBTOOL_SYS_GLOBAL_SYMBOL_PIPE])]) m4_ifndef([AC_LIBTOOL_PROG_COMPILER_PIC], [AC_DEFUN([AC_LIBTOOL_PROG_COMPILER_PIC])]) m4_ifndef([AC_LIBTOOL_PROG_LD_SHLIBS], [AC_DEFUN([AC_LIBTOOL_PROG_LD_SHLIBS])]) m4_ifndef([AC_LIBTOOL_POSTDEP_PREDEP], [AC_DEFUN([AC_LIBTOOL_POSTDEP_PREDEP])]) m4_ifndef([LT_AC_PROG_EGREP], [AC_DEFUN([LT_AC_PROG_EGREP])]) m4_ifndef([LT_AC_PROG_SED], [AC_DEFUN([LT_AC_PROG_SED])]) m4_ifndef([_LT_CC_BASENAME], [AC_DEFUN([_LT_CC_BASENAME])]) m4_ifndef([_LT_COMPILER_BOILERPLATE], [AC_DEFUN([_LT_COMPILER_BOILERPLATE])]) m4_ifndef([_LT_LINKER_BOILERPLATE], [AC_DEFUN([_LT_LINKER_BOILERPLATE])]) m4_ifndef([_AC_PROG_LIBTOOL], [AC_DEFUN([_AC_PROG_LIBTOOL])]) m4_ifndef([AC_LIBTOOL_SETUP], [AC_DEFUN([AC_LIBTOOL_SETUP])]) m4_ifndef([_LT_AC_CHECK_DLFCN], [AC_DEFUN([_LT_AC_CHECK_DLFCN])]) m4_ifndef([AC_LIBTOOL_SYS_DYNAMIC_LINKER], [AC_DEFUN([AC_LIBTOOL_SYS_DYNAMIC_LINKER])]) m4_ifndef([_LT_AC_TAGCONFIG], [AC_DEFUN([_LT_AC_TAGCONFIG])]) m4_ifndef([AC_DISABLE_FAST_INSTALL], [AC_DEFUN([AC_DISABLE_FAST_INSTALL])]) m4_ifndef([_LT_AC_LANG_CXX], [AC_DEFUN([_LT_AC_LANG_CXX])]) m4_ifndef([_LT_AC_LANG_F77], [AC_DEFUN([_LT_AC_LANG_F77])]) m4_ifndef([_LT_AC_LANG_GCJ], [AC_DEFUN([_LT_AC_LANG_GCJ])]) m4_ifndef([AC_LIBTOOL_LANG_C_CONFIG], [AC_DEFUN([AC_LIBTOOL_LANG_C_CONFIG])]) m4_ifndef([_LT_AC_LANG_C_CONFIG], [AC_DEFUN([_LT_AC_LANG_C_CONFIG])]) m4_ifndef([AC_LIBTOOL_LANG_CXX_CONFIG], [AC_DEFUN([AC_LIBTOOL_LANG_CXX_CONFIG])]) m4_ifndef([_LT_AC_LANG_CXX_CONFIG], [AC_DEFUN([_LT_AC_LANG_CXX_CONFIG])]) m4_ifndef([AC_LIBTOOL_LANG_F77_CONFIG], [AC_DEFUN([AC_LIBTOOL_LANG_F77_CONFIG])]) m4_ifndef([_LT_AC_LANG_F77_CONFIG], [AC_DEFUN([_LT_AC_LANG_F77_CONFIG])]) m4_ifndef([AC_LIBTOOL_LANG_GCJ_CONFIG], [AC_DEFUN([AC_LIBTOOL_LANG_GCJ_CONFIG])]) m4_ifndef([_LT_AC_LANG_GCJ_CONFIG], [AC_DEFUN([_LT_AC_LANG_GCJ_CONFIG])]) m4_ifndef([AC_LIBTOOL_LANG_RC_CONFIG], [AC_DEFUN([AC_LIBTOOL_LANG_RC_CONFIG])]) m4_ifndef([_LT_AC_LANG_RC_CONFIG], [AC_DEFUN([_LT_AC_LANG_RC_CONFIG])]) m4_ifndef([AC_LIBTOOL_CONFIG], [AC_DEFUN([AC_LIBTOOL_CONFIG])]) m4_ifndef([_LT_AC_FILE_LTDLL_C], [AC_DEFUN([_LT_AC_FILE_LTDLL_C])]) m4_ifndef([_LT_REQUIRED_DARWIN_CHECKS], [AC_DEFUN([_LT_REQUIRED_DARWIN_CHECKS])]) m4_ifndef([_LT_AC_PROG_CXXCPP], [AC_DEFUN([_LT_AC_PROG_CXXCPP])]) m4_ifndef([_LT_PREPARE_SED_QUOTE_VARS], [AC_DEFUN([_LT_PREPARE_SED_QUOTE_VARS])]) m4_ifndef([_LT_PROG_ECHO_BACKSLASH], [AC_DEFUN([_LT_PROG_ECHO_BACKSLASH])]) m4_ifndef([_LT_PROG_F77], [AC_DEFUN([_LT_PROG_F77])]) m4_ifndef([_LT_PROG_FC], [AC_DEFUN([_LT_PROG_FC])]) m4_ifndef([_LT_PROG_CXX], [AC_DEFUN([_LT_PROG_CXX])]) # pkg.m4 - Macros to locate and utilise pkg-config. -*- Autoconf -*- # serial 1 (pkg-config-0.24) # # Copyright © 2004 Scott James Remnant . # # This program is free software; you can redistribute it and/or modify # it under the terms of the GNU General Public License as published by # the Free Software Foundation; either version 2 of the License, or # (at your option) any later version. # # This program is distributed in the hope that it will be useful, but # WITHOUT ANY WARRANTY; without even the implied warranty of # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU # General Public License for more details. # # You should have received a copy of the GNU General Public License # along with this program; if not, write to the Free Software # Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. # # As a special exception to the GNU General Public License, if you # distribute this file as part of a program that contains a # configuration script generated by Autoconf, you may include it under # the same distribution terms that you use for the rest of that program. # PKG_PROG_PKG_CONFIG([MIN-VERSION]) # ---------------------------------- AC_DEFUN([PKG_PROG_PKG_CONFIG], [m4_pattern_forbid([^_?PKG_[A-Z_]+$]) m4_pattern_allow([^PKG_CONFIG(_(PATH|LIBDIR|SYSROOT_DIR|ALLOW_SYSTEM_(CFLAGS|LIBS)))?$]) m4_pattern_allow([^PKG_CONFIG_(DISABLE_UNINSTALLED|TOP_BUILD_DIR|DEBUG_SPEW)$]) AC_ARG_VAR([PKG_CONFIG], [path to pkg-config utility]) AC_ARG_VAR([PKG_CONFIG_PATH], [directories to add to pkg-config's search path]) AC_ARG_VAR([PKG_CONFIG_LIBDIR], [path overriding pkg-config's built-in search path]) if test "x$ac_cv_env_PKG_CONFIG_set" != "xset"; then AC_PATH_TOOL([PKG_CONFIG], [pkg-config]) fi if test -n "$PKG_CONFIG"; then _pkg_min_version=m4_default([$1], [0.9.0]) AC_MSG_CHECKING([pkg-config is at least version $_pkg_min_version]) if $PKG_CONFIG --atleast-pkgconfig-version $_pkg_min_version; then AC_MSG_RESULT([yes]) else AC_MSG_RESULT([no]) PKG_CONFIG="" fi fi[]dnl ])# PKG_PROG_PKG_CONFIG # PKG_CHECK_EXISTS(MODULES, [ACTION-IF-FOUND], [ACTION-IF-NOT-FOUND]) # # Check to see whether a particular set of modules exists. Similar # to PKG_CHECK_MODULES(), but does not set variables or print errors. # # Please remember that m4 expands AC_REQUIRE([PKG_PROG_PKG_CONFIG]) # only at the first occurence in configure.ac, so if the first place # it's called might be skipped (such as if it is within an "if", you # have to call PKG_CHECK_EXISTS manually # -------------------------------------------------------------- AC_DEFUN([PKG_CHECK_EXISTS], [AC_REQUIRE([PKG_PROG_PKG_CONFIG])dnl if test -n "$PKG_CONFIG" && \ AC_RUN_LOG([$PKG_CONFIG --exists --print-errors "$1"]); then m4_default([$2], [:]) m4_ifvaln([$3], [else $3])dnl fi]) # _PKG_CONFIG([VARIABLE], [COMMAND], [MODULES]) # --------------------------------------------- m4_define([_PKG_CONFIG], [if test -n "$$1"; then pkg_cv_[]$1="$$1" elif test -n "$PKG_CONFIG"; then PKG_CHECK_EXISTS([$3], [pkg_cv_[]$1=`$PKG_CONFIG --[]$2 "$3" 2>/dev/null` test "x$?" != "x0" && pkg_failed=yes ], [pkg_failed=yes]) else pkg_failed=untried fi[]dnl ])# _PKG_CONFIG # _PKG_SHORT_ERRORS_SUPPORTED # ----------------------------- AC_DEFUN([_PKG_SHORT_ERRORS_SUPPORTED], [AC_REQUIRE([PKG_PROG_PKG_CONFIG]) if $PKG_CONFIG --atleast-pkgconfig-version 0.20; then _pkg_short_errors_supported=yes else _pkg_short_errors_supported=no fi[]dnl ])# _PKG_SHORT_ERRORS_SUPPORTED # PKG_CHECK_MODULES(VARIABLE-PREFIX, MODULES, [ACTION-IF-FOUND], # [ACTION-IF-NOT-FOUND]) # # # Note that if there is a possibility the first call to # PKG_CHECK_MODULES might not happen, you should be sure to include an # explicit call to PKG_PROG_PKG_CONFIG in your configure.ac # # # -------------------------------------------------------------- AC_DEFUN([PKG_CHECK_MODULES], [AC_REQUIRE([PKG_PROG_PKG_CONFIG])dnl AC_ARG_VAR([$1][_CFLAGS], [C compiler flags for $1, overriding pkg-config])dnl AC_ARG_VAR([$1][_LIBS], [linker flags for $1, overriding pkg-config])dnl pkg_failed=no AC_MSG_CHECKING([for $1]) _PKG_CONFIG([$1][_CFLAGS], [cflags], [$2]) _PKG_CONFIG([$1][_LIBS], [libs], [$2]) m4_define([_PKG_TEXT], [Alternatively, you may set the environment variables $1[]_CFLAGS and $1[]_LIBS to avoid the need to call pkg-config. See the pkg-config man page for more details.]) if test $pkg_failed = yes; then AC_MSG_RESULT([no]) _PKG_SHORT_ERRORS_SUPPORTED if test $_pkg_short_errors_supported = yes; then $1[]_PKG_ERRORS=`$PKG_CONFIG --short-errors --print-errors --cflags --libs "$2" 2>&1` else $1[]_PKG_ERRORS=`$PKG_CONFIG --print-errors --cflags --libs "$2" 2>&1` fi # Put the nasty error message in config.log where it belongs echo "$$1[]_PKG_ERRORS" >&AS_MESSAGE_LOG_FD m4_default([$4], [AC_MSG_ERROR( [Package requirements ($2) were not met: $$1_PKG_ERRORS Consider adjusting the PKG_CONFIG_PATH environment variable if you installed software in a non-standard prefix. _PKG_TEXT])[]dnl ]) elif test $pkg_failed = untried; then AC_MSG_RESULT([no]) m4_default([$4], [AC_MSG_FAILURE( [The pkg-config script could not be found or is too old. Make sure it is in your PATH or set the PKG_CONFIG environment variable to the full path to pkg-config. _PKG_TEXT To get pkg-config, see .])[]dnl ]) else $1[]_CFLAGS=$pkg_cv_[]$1[]_CFLAGS $1[]_LIBS=$pkg_cv_[]$1[]_LIBS AC_MSG_RESULT([yes]) $3 fi[]dnl ])# PKG_CHECK_MODULES # Copyright (C) 2002, 2003, 2005, 2006, 2007, 2008, 2011 Free Software # Foundation, Inc. # # This file is free software; the Free Software Foundation # gives unlimited permission to copy and/or distribute it, # with or without modifications, as long as this notice is preserved. # serial 1 # AM_AUTOMAKE_VERSION(VERSION) # ---------------------------- # Automake X.Y traces this macro to ensure aclocal.m4 has been # generated from the m4 files accompanying Automake X.Y. # (This private macro should not be called outside this file.) AC_DEFUN([AM_AUTOMAKE_VERSION], [am__api_version='1.11' dnl Some users find AM_AUTOMAKE_VERSION and mistake it for a way to dnl require some minimum version. Point them to the right macro. m4_if([$1], [1.11.5], [], [AC_FATAL([Do not call $0, use AM_INIT_AUTOMAKE([$1]).])])dnl ]) # _AM_AUTOCONF_VERSION(VERSION) # ----------------------------- # aclocal traces this macro to find the Autoconf version. # This is a private macro too. Using m4_define simplifies # the logic in aclocal, which can simply ignore this definition. m4_define([_AM_AUTOCONF_VERSION], []) # AM_SET_CURRENT_AUTOMAKE_VERSION # ------------------------------- # Call AM_AUTOMAKE_VERSION and AM_AUTOMAKE_VERSION so they can be traced. # This function is AC_REQUIREd by AM_INIT_AUTOMAKE. AC_DEFUN([AM_SET_CURRENT_AUTOMAKE_VERSION], [AM_AUTOMAKE_VERSION([1.11.5])dnl m4_ifndef([AC_AUTOCONF_VERSION], [m4_copy([m4_PACKAGE_VERSION], [AC_AUTOCONF_VERSION])])dnl _AM_AUTOCONF_VERSION(m4_defn([AC_AUTOCONF_VERSION]))]) # AM_AUX_DIR_EXPAND -*- Autoconf -*- # Copyright (C) 2001, 2003, 2005, 2011 Free Software Foundation, Inc. # # This file is free software; the Free Software Foundation # gives unlimited permission to copy and/or distribute it, # with or without modifications, as long as this notice is preserved. # serial 1 # For projects using AC_CONFIG_AUX_DIR([foo]), Autoconf sets # $ac_aux_dir to `$srcdir/foo'. In other projects, it is set to # `$srcdir', `$srcdir/..', or `$srcdir/../..'. # # Of course, Automake must honor this variable whenever it calls a # tool from the auxiliary directory. The problem is that $srcdir (and # therefore $ac_aux_dir as well) can be either absolute or relative, # depending on how configure is run. This is pretty annoying, since # it makes $ac_aux_dir quite unusable in subdirectories: in the top # source directory, any form will work fine, but in subdirectories a # relative path needs to be adjusted first. # # $ac_aux_dir/missing # fails when called from a subdirectory if $ac_aux_dir is relative # $top_srcdir/$ac_aux_dir/missing # fails if $ac_aux_dir is absolute, # fails when called from a subdirectory in a VPATH build with # a relative $ac_aux_dir # # The reason of the latter failure is that $top_srcdir and $ac_aux_dir # are both prefixed by $srcdir. In an in-source build this is usually # harmless because $srcdir is `.', but things will broke when you # start a VPATH build or use an absolute $srcdir. # # So we could use something similar to $top_srcdir/$ac_aux_dir/missing, # iff we strip the leading $srcdir from $ac_aux_dir. That would be: # am_aux_dir='\$(top_srcdir)/'`expr "$ac_aux_dir" : "$srcdir//*\(.*\)"` # and then we would define $MISSING as # MISSING="\${SHELL} $am_aux_dir/missing" # This will work as long as MISSING is not called from configure, because # unfortunately $(top_srcdir) has no meaning in configure. # However there are other variables, like CC, which are often used in # configure, and could therefore not use this "fixed" $ac_aux_dir. # # Another solution, used here, is to always expand $ac_aux_dir to an # absolute PATH. The drawback is that using absolute paths prevent a # configured tree to be moved without reconfiguration. AC_DEFUN([AM_AUX_DIR_EXPAND], [dnl Rely on autoconf to set up CDPATH properly. AC_PREREQ([2.50])dnl # expand $ac_aux_dir to an absolute path am_aux_dir=`cd $ac_aux_dir && pwd` ]) # AM_CONDITIONAL -*- Autoconf -*- # Copyright (C) 1997, 2000, 2001, 2003, 2004, 2005, 2006, 2008 # Free Software Foundation, Inc. # # This file is free software; the Free Software Foundation # gives unlimited permission to copy and/or distribute it, # with or without modifications, as long as this notice is preserved. # serial 9 # AM_CONDITIONAL(NAME, SHELL-CONDITION) # ------------------------------------- # Define a conditional. AC_DEFUN([AM_CONDITIONAL], [AC_PREREQ(2.52)dnl ifelse([$1], [TRUE], [AC_FATAL([$0: invalid condition: $1])], [$1], [FALSE], [AC_FATAL([$0: invalid condition: $1])])dnl AC_SUBST([$1_TRUE])dnl AC_SUBST([$1_FALSE])dnl _AM_SUBST_NOTMAKE([$1_TRUE])dnl _AM_SUBST_NOTMAKE([$1_FALSE])dnl m4_define([_AM_COND_VALUE_$1], [$2])dnl if $2; then $1_TRUE= $1_FALSE='#' else $1_TRUE='#' $1_FALSE= fi AC_CONFIG_COMMANDS_PRE( [if test -z "${$1_TRUE}" && test -z "${$1_FALSE}"; then AC_MSG_ERROR([[conditional "$1" was never defined. Usually this means the macro was only invoked conditionally.]]) fi])]) # Copyright (C) 1999, 2000, 2001, 2002, 2003, 2004, 2005, 2006, 2009, # 2010, 2011 Free Software Foundation, Inc. # # This file is free software; the Free Software Foundation # gives unlimited permission to copy and/or distribute it, # with or without modifications, as long as this notice is preserved. # serial 12 # There are a few dirty hacks below to avoid letting `AC_PROG_CC' be # written in clear, in which case automake, when reading aclocal.m4, # will think it sees a *use*, and therefore will trigger all it's # C support machinery. Also note that it means that autoscan, seeing # CC etc. in the Makefile, will ask for an AC_PROG_CC use... # _AM_DEPENDENCIES(NAME) # ---------------------- # See how the compiler implements dependency checking. # NAME is "CC", "CXX", "GCJ", or "OBJC". # We try a few techniques and use that to set a single cache variable. # # We don't AC_REQUIRE the corresponding AC_PROG_CC since the latter was # modified to invoke _AM_DEPENDENCIES(CC); we would have a circular # dependency, and given that the user is not expected to run this macro, # just rely on AC_PROG_CC. AC_DEFUN([_AM_DEPENDENCIES], [AC_REQUIRE([AM_SET_DEPDIR])dnl AC_REQUIRE([AM_OUTPUT_DEPENDENCY_COMMANDS])dnl AC_REQUIRE([AM_MAKE_INCLUDE])dnl AC_REQUIRE([AM_DEP_TRACK])dnl ifelse([$1], CC, [depcc="$CC" am_compiler_list=], [$1], CXX, [depcc="$CXX" am_compiler_list=], [$1], OBJC, [depcc="$OBJC" am_compiler_list='gcc3 gcc'], [$1], UPC, [depcc="$UPC" am_compiler_list=], [$1], GCJ, [depcc="$GCJ" am_compiler_list='gcc3 gcc'], [depcc="$$1" am_compiler_list=]) AC_CACHE_CHECK([dependency style of $depcc], [am_cv_$1_dependencies_compiler_type], [if test -z "$AMDEP_TRUE" && test -f "$am_depcomp"; then # We make a subdir and do the tests there. Otherwise we can end up # making bogus files that we don't know about and never remove. For # instance it was reported that on HP-UX the gcc test will end up # making a dummy file named `D' -- because `-MD' means `put the output # in D'. rm -rf conftest.dir mkdir conftest.dir # Copy depcomp to subdir because otherwise we won't find it if we're # using a relative directory. cp "$am_depcomp" conftest.dir cd conftest.dir # We will build objects and dependencies in a subdirectory because # it helps to detect inapplicable dependency modes. For instance # both Tru64's cc and ICC support -MD to output dependencies as a # side effect of compilation, but ICC will put the dependencies in # the current directory while Tru64 will put them in the object # directory. mkdir sub am_cv_$1_dependencies_compiler_type=none if test "$am_compiler_list" = ""; then am_compiler_list=`sed -n ['s/^#*\([a-zA-Z0-9]*\))$/\1/p'] < ./depcomp` fi am__universal=false m4_case([$1], [CC], [case " $depcc " in #( *\ -arch\ *\ -arch\ *) am__universal=true ;; esac], [CXX], [case " $depcc " in #( *\ -arch\ *\ -arch\ *) am__universal=true ;; esac]) for depmode in $am_compiler_list; do # Setup a source with many dependencies, because some compilers # like to wrap large dependency lists on column 80 (with \), and # we should not choose a depcomp mode which is confused by this. # # We need to recreate these files for each test, as the compiler may # overwrite some of them when testing with obscure command lines. # This happens at least with the AIX C compiler. : > sub/conftest.c for i in 1 2 3 4 5 6; do echo '#include "conftst'$i'.h"' >> sub/conftest.c # Using `: > sub/conftst$i.h' creates only sub/conftst1.h with # Solaris 8's {/usr,}/bin/sh. touch sub/conftst$i.h done echo "${am__include} ${am__quote}sub/conftest.Po${am__quote}" > confmf # We check with `-c' and `-o' for the sake of the "dashmstdout" # mode. It turns out that the SunPro C++ compiler does not properly # handle `-M -o', and we need to detect this. Also, some Intel # versions had trouble with output in subdirs am__obj=sub/conftest.${OBJEXT-o} am__minus_obj="-o $am__obj" case $depmode in gcc) # This depmode causes a compiler race in universal mode. test "$am__universal" = false || continue ;; nosideeffect) # after this tag, mechanisms are not by side-effect, so they'll # only be used when explicitly requested if test "x$enable_dependency_tracking" = xyes; then continue else break fi ;; msvc7 | msvc7msys | msvisualcpp | msvcmsys) # This compiler won't grok `-c -o', but also, the minuso test has # not run yet. These depmodes are late enough in the game, and # so weak that their functioning should not be impacted. am__obj=conftest.${OBJEXT-o} am__minus_obj= ;; none) break ;; esac if depmode=$depmode \ source=sub/conftest.c object=$am__obj \ depfile=sub/conftest.Po tmpdepfile=sub/conftest.TPo \ $SHELL ./depcomp $depcc -c $am__minus_obj sub/conftest.c \ >/dev/null 2>conftest.err && grep sub/conftst1.h sub/conftest.Po > /dev/null 2>&1 && grep sub/conftst6.h sub/conftest.Po > /dev/null 2>&1 && grep $am__obj sub/conftest.Po > /dev/null 2>&1 && ${MAKE-make} -s -f confmf > /dev/null 2>&1; then # icc doesn't choke on unknown options, it will just issue warnings # or remarks (even with -Werror). So we grep stderr for any message # that says an option was ignored or not supported. # When given -MP, icc 7.0 and 7.1 complain thusly: # icc: Command line warning: ignoring option '-M'; no argument required # The diagnosis changed in icc 8.0: # icc: Command line remark: option '-MP' not supported if (grep 'ignoring option' conftest.err || grep 'not supported' conftest.err) >/dev/null 2>&1; then :; else am_cv_$1_dependencies_compiler_type=$depmode break fi fi done cd .. rm -rf conftest.dir else am_cv_$1_dependencies_compiler_type=none fi ]) AC_SUBST([$1DEPMODE], [depmode=$am_cv_$1_dependencies_compiler_type]) AM_CONDITIONAL([am__fastdep$1], [ test "x$enable_dependency_tracking" != xno \ && test "$am_cv_$1_dependencies_compiler_type" = gcc3]) ]) # AM_SET_DEPDIR # ------------- # Choose a directory name for dependency files. # This macro is AC_REQUIREd in _AM_DEPENDENCIES AC_DEFUN([AM_SET_DEPDIR], [AC_REQUIRE([AM_SET_LEADING_DOT])dnl AC_SUBST([DEPDIR], ["${am__leading_dot}deps"])dnl ]) # AM_DEP_TRACK # ------------ AC_DEFUN([AM_DEP_TRACK], [AC_ARG_ENABLE(dependency-tracking, [ --disable-dependency-tracking speeds up one-time build --enable-dependency-tracking do not reject slow dependency extractors]) if test "x$enable_dependency_tracking" != xno; then am_depcomp="$ac_aux_dir/depcomp" AMDEPBACKSLASH='\' am__nodep='_no' fi AM_CONDITIONAL([AMDEP], [test "x$enable_dependency_tracking" != xno]) AC_SUBST([AMDEPBACKSLASH])dnl _AM_SUBST_NOTMAKE([AMDEPBACKSLASH])dnl AC_SUBST([am__nodep])dnl _AM_SUBST_NOTMAKE([am__nodep])dnl ]) # Generate code to set up dependency tracking. -*- Autoconf -*- # Copyright (C) 1999, 2000, 2001, 2002, 2003, 2004, 2005, 2008 # Free Software Foundation, Inc. # # This file is free software; the Free Software Foundation # gives unlimited permission to copy and/or distribute it, # with or without modifications, as long as this notice is preserved. #serial 5 # _AM_OUTPUT_DEPENDENCY_COMMANDS # ------------------------------ AC_DEFUN([_AM_OUTPUT_DEPENDENCY_COMMANDS], [{ # Autoconf 2.62 quotes --file arguments for eval, but not when files # are listed without --file. Let's play safe and only enable the eval # if we detect the quoting. case $CONFIG_FILES in *\'*) eval set x "$CONFIG_FILES" ;; *) set x $CONFIG_FILES ;; esac shift for mf do # Strip MF so we end up with the name of the file. mf=`echo "$mf" | sed -e 's/:.*$//'` # Check whether this is an Automake generated Makefile or not. # We used to match only the files named `Makefile.in', but # some people rename them; so instead we look at the file content. # Grep'ing the first line is not enough: some people post-process # each Makefile.in and add a new line on top of each file to say so. # Grep'ing the whole file is not good either: AIX grep has a line # limit of 2048, but all sed's we know have understand at least 4000. if sed -n 's,^#.*generated by automake.*,X,p' "$mf" | grep X >/dev/null 2>&1; then dirpart=`AS_DIRNAME("$mf")` else continue fi # Extract the definition of DEPDIR, am__include, and am__quote # from the Makefile without running `make'. DEPDIR=`sed -n 's/^DEPDIR = //p' < "$mf"` test -z "$DEPDIR" && continue am__include=`sed -n 's/^am__include = //p' < "$mf"` test -z "am__include" && continue am__quote=`sed -n 's/^am__quote = //p' < "$mf"` # When using ansi2knr, U may be empty or an underscore; expand it U=`sed -n 's/^U = //p' < "$mf"` # Find all dependency output files, they are included files with # $(DEPDIR) in their names. We invoke sed twice because it is the # simplest approach to changing $(DEPDIR) to its actual value in the # expansion. for file in `sed -n " s/^$am__include $am__quote\(.*(DEPDIR).*\)$am__quote"'$/\1/p' <"$mf" | \ sed -e 's/\$(DEPDIR)/'"$DEPDIR"'/g' -e 's/\$U/'"$U"'/g'`; do # Make sure the directory exists. test -f "$dirpart/$file" && continue fdir=`AS_DIRNAME(["$file"])` AS_MKDIR_P([$dirpart/$fdir]) # echo "creating $dirpart/$file" echo '# dummy' > "$dirpart/$file" done done } ])# _AM_OUTPUT_DEPENDENCY_COMMANDS # AM_OUTPUT_DEPENDENCY_COMMANDS # ----------------------------- # This macro should only be invoked once -- use via AC_REQUIRE. # # This code is only required when automatic dependency tracking # is enabled. FIXME. This creates each `.P' file that we will # need in order to bootstrap the dependency handling code. AC_DEFUN([AM_OUTPUT_DEPENDENCY_COMMANDS], [AC_CONFIG_COMMANDS([depfiles], [test x"$AMDEP_TRUE" != x"" || _AM_OUTPUT_DEPENDENCY_COMMANDS], [AMDEP_TRUE="$AMDEP_TRUE" ac_aux_dir="$ac_aux_dir"]) ]) # Copyright (C) 1996, 1997, 2000, 2001, 2003, 2005 # Free Software Foundation, Inc. # # This file is free software; the Free Software Foundation # gives unlimited permission to copy and/or distribute it, # with or without modifications, as long as this notice is preserved. # serial 8 # AM_CONFIG_HEADER is obsolete. It has been replaced by AC_CONFIG_HEADERS. AU_DEFUN([AM_CONFIG_HEADER], [AC_CONFIG_HEADERS($@)]) # Do all the work for Automake. -*- Autoconf -*- # Copyright (C) 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004, # 2005, 2006, 2008, 2009 Free Software Foundation, Inc. # # This file is free software; the Free Software Foundation # gives unlimited permission to copy and/or distribute it, # with or without modifications, as long as this notice is preserved. # serial 16 # This macro actually does too much. Some checks are only needed if # your package does certain things. But this isn't really a big deal. # AM_INIT_AUTOMAKE(PACKAGE, VERSION, [NO-DEFINE]) # AM_INIT_AUTOMAKE([OPTIONS]) # ----------------------------------------------- # The call with PACKAGE and VERSION arguments is the old style # call (pre autoconf-2.50), which is being phased out. PACKAGE # and VERSION should now be passed to AC_INIT and removed from # the call to AM_INIT_AUTOMAKE. # We support both call styles for the transition. After # the next Automake release, Autoconf can make the AC_INIT # arguments mandatory, and then we can depend on a new Autoconf # release and drop the old call support. AC_DEFUN([AM_INIT_AUTOMAKE], [AC_PREREQ([2.62])dnl dnl Autoconf wants to disallow AM_ names. We explicitly allow dnl the ones we care about. m4_pattern_allow([^AM_[A-Z]+FLAGS$])dnl AC_REQUIRE([AM_SET_CURRENT_AUTOMAKE_VERSION])dnl AC_REQUIRE([AC_PROG_INSTALL])dnl if test "`cd $srcdir && pwd`" != "`pwd`"; then # Use -I$(srcdir) only when $(srcdir) != ., so that make's output # is not polluted with repeated "-I." AC_SUBST([am__isrc], [' -I$(srcdir)'])_AM_SUBST_NOTMAKE([am__isrc])dnl # test to see if srcdir already configured if test -f $srcdir/config.status; then AC_MSG_ERROR([source directory already configured; run "make distclean" there first]) fi fi # test whether we have cygpath if test -z "$CYGPATH_W"; then if (cygpath --version) >/dev/null 2>/dev/null; then CYGPATH_W='cygpath -w' else CYGPATH_W=echo fi fi AC_SUBST([CYGPATH_W]) # Define the identity of the package. dnl Distinguish between old-style and new-style calls. m4_ifval([$2], [m4_ifval([$3], [_AM_SET_OPTION([no-define])])dnl AC_SUBST([PACKAGE], [$1])dnl AC_SUBST([VERSION], [$2])], [_AM_SET_OPTIONS([$1])dnl dnl Diagnose old-style AC_INIT with new-style AM_AUTOMAKE_INIT. m4_if(m4_ifdef([AC_PACKAGE_NAME], 1)m4_ifdef([AC_PACKAGE_VERSION], 1), 11,, [m4_fatal([AC_INIT should be called with package and version arguments])])dnl AC_SUBST([PACKAGE], ['AC_PACKAGE_TARNAME'])dnl AC_SUBST([VERSION], ['AC_PACKAGE_VERSION'])])dnl _AM_IF_OPTION([no-define],, [AC_DEFINE_UNQUOTED(PACKAGE, "$PACKAGE", [Name of package]) AC_DEFINE_UNQUOTED(VERSION, "$VERSION", [Version number of package])])dnl # Some tools Automake needs. AC_REQUIRE([AM_SANITY_CHECK])dnl AC_REQUIRE([AC_ARG_PROGRAM])dnl AM_MISSING_PROG(ACLOCAL, aclocal-${am__api_version}) AM_MISSING_PROG(AUTOCONF, autoconf) AM_MISSING_PROG(AUTOMAKE, automake-${am__api_version}) AM_MISSING_PROG(AUTOHEADER, autoheader) AM_MISSING_PROG(MAKEINFO, makeinfo) AC_REQUIRE([AM_PROG_INSTALL_SH])dnl AC_REQUIRE([AM_PROG_INSTALL_STRIP])dnl AC_REQUIRE([AM_PROG_MKDIR_P])dnl # We need awk for the "check" target. The system "awk" is bad on # some platforms. AC_REQUIRE([AC_PROG_AWK])dnl AC_REQUIRE([AC_PROG_MAKE_SET])dnl AC_REQUIRE([AM_SET_LEADING_DOT])dnl _AM_IF_OPTION([tar-ustar], [_AM_PROG_TAR([ustar])], [_AM_IF_OPTION([tar-pax], [_AM_PROG_TAR([pax])], [_AM_PROG_TAR([v7])])]) _AM_IF_OPTION([no-dependencies],, [AC_PROVIDE_IFELSE([AC_PROG_CC], [_AM_DEPENDENCIES(CC)], [define([AC_PROG_CC], defn([AC_PROG_CC])[_AM_DEPENDENCIES(CC)])])dnl AC_PROVIDE_IFELSE([AC_PROG_CXX], [_AM_DEPENDENCIES(CXX)], [define([AC_PROG_CXX], defn([AC_PROG_CXX])[_AM_DEPENDENCIES(CXX)])])dnl AC_PROVIDE_IFELSE([AC_PROG_OBJC], [_AM_DEPENDENCIES(OBJC)], [define([AC_PROG_OBJC], defn([AC_PROG_OBJC])[_AM_DEPENDENCIES(OBJC)])])dnl ]) _AM_IF_OPTION([silent-rules], [AC_REQUIRE([AM_SILENT_RULES])])dnl dnl The `parallel-tests' driver may need to know about EXEEXT, so add the dnl `am__EXEEXT' conditional if _AM_COMPILER_EXEEXT was seen. This macro dnl is hooked onto _AC_COMPILER_EXEEXT early, see below. AC_CONFIG_COMMANDS_PRE(dnl [m4_provide_if([_AM_COMPILER_EXEEXT], [AM_CONDITIONAL([am__EXEEXT], [test -n "$EXEEXT"])])])dnl ]) dnl Hook into `_AC_COMPILER_EXEEXT' early to learn its expansion. Do not dnl add the conditional right here, as _AC_COMPILER_EXEEXT may be further dnl mangled by Autoconf and run in a shell conditional statement. m4_define([_AC_COMPILER_EXEEXT], m4_defn([_AC_COMPILER_EXEEXT])[m4_provide([_AM_COMPILER_EXEEXT])]) # When config.status generates a header, we must update the stamp-h file. # This file resides in the same directory as the config header # that is generated. The stamp files are numbered to have different names. # Autoconf calls _AC_AM_CONFIG_HEADER_HOOK (when defined) in the # loop where config.status creates the headers, so we can generate # our stamp files there. AC_DEFUN([_AC_AM_CONFIG_HEADER_HOOK], [# Compute $1's index in $config_headers. _am_arg=$1 _am_stamp_count=1 for _am_header in $config_headers :; do case $_am_header in $_am_arg | $_am_arg:* ) break ;; * ) _am_stamp_count=`expr $_am_stamp_count + 1` ;; esac done echo "timestamp for $_am_arg" >`AS_DIRNAME(["$_am_arg"])`/stamp-h[]$_am_stamp_count]) # Copyright (C) 2001, 2003, 2005, 2008, 2011 Free Software Foundation, # Inc. # # This file is free software; the Free Software Foundation # gives unlimited permission to copy and/or distribute it, # with or without modifications, as long as this notice is preserved. # serial 1 # AM_PROG_INSTALL_SH # ------------------ # Define $install_sh. AC_DEFUN([AM_PROG_INSTALL_SH], [AC_REQUIRE([AM_AUX_DIR_EXPAND])dnl if test x"${install_sh}" != xset; then case $am_aux_dir in *\ * | *\ *) install_sh="\${SHELL} '$am_aux_dir/install-sh'" ;; *) install_sh="\${SHELL} $am_aux_dir/install-sh" esac fi AC_SUBST(install_sh)]) # Copyright (C) 2003, 2005 Free Software Foundation, Inc. # # This file is free software; the Free Software Foundation # gives unlimited permission to copy and/or distribute it, # with or without modifications, as long as this notice is preserved. # serial 2 # Check whether the underlying file-system supports filenames # with a leading dot. For instance MS-DOS doesn't. AC_DEFUN([AM_SET_LEADING_DOT], [rm -rf .tst 2>/dev/null mkdir .tst 2>/dev/null if test -d .tst; then am__leading_dot=. else am__leading_dot=_ fi rmdir .tst 2>/dev/null AC_SUBST([am__leading_dot])]) # Check to see how 'make' treats includes. -*- Autoconf -*- # Copyright (C) 2001, 2002, 2003, 2005, 2009 Free Software Foundation, Inc. # # This file is free software; the Free Software Foundation # gives unlimited permission to copy and/or distribute it, # with or without modifications, as long as this notice is preserved. # serial 4 # AM_MAKE_INCLUDE() # ----------------- # Check to see how make treats includes. AC_DEFUN([AM_MAKE_INCLUDE], [am_make=${MAKE-make} cat > confinc << 'END' am__doit: @echo this is the am__doit target .PHONY: am__doit END # If we don't find an include directive, just comment out the code. AC_MSG_CHECKING([for style of include used by $am_make]) am__include="#" am__quote= _am_result=none # First try GNU make style include. echo "include confinc" > confmf # Ignore all kinds of additional output from `make'. case `$am_make -s -f confmf 2> /dev/null` in #( *the\ am__doit\ target*) am__include=include am__quote= _am_result=GNU ;; esac # Now try BSD make style include. if test "$am__include" = "#"; then echo '.include "confinc"' > confmf case `$am_make -s -f confmf 2> /dev/null` in #( *the\ am__doit\ target*) am__include=.include am__quote="\"" _am_result=BSD ;; esac fi AC_SUBST([am__include]) AC_SUBST([am__quote]) AC_MSG_RESULT([$_am_result]) rm -f confinc confmf ]) # Fake the existence of programs that GNU maintainers use. -*- Autoconf -*- # Copyright (C) 1997, 1999, 2000, 2001, 2003, 2004, 2005, 2008 # Free Software Foundation, Inc. # # This file is free software; the Free Software Foundation # gives unlimited permission to copy and/or distribute it, # with or without modifications, as long as this notice is preserved. # serial 6 # AM_MISSING_PROG(NAME, PROGRAM) # ------------------------------ AC_DEFUN([AM_MISSING_PROG], [AC_REQUIRE([AM_MISSING_HAS_RUN]) $1=${$1-"${am_missing_run}$2"} AC_SUBST($1)]) # AM_MISSING_HAS_RUN # ------------------ # Define MISSING if not defined so far and test if it supports --run. # If it does, set am_missing_run to use it, otherwise, to nothing. AC_DEFUN([AM_MISSING_HAS_RUN], [AC_REQUIRE([AM_AUX_DIR_EXPAND])dnl AC_REQUIRE_AUX_FILE([missing])dnl if test x"${MISSING+set}" != xset; then case $am_aux_dir in *\ * | *\ *) MISSING="\${SHELL} \"$am_aux_dir/missing\"" ;; *) MISSING="\${SHELL} $am_aux_dir/missing" ;; esac fi # Use eval to expand $SHELL if eval "$MISSING --run true"; then am_missing_run="$MISSING --run " else am_missing_run= AC_MSG_WARN([`missing' script is too old or missing]) fi ]) # Copyright (C) 2003, 2004, 2005, 2006, 2011 Free Software Foundation, # Inc. # # This file is free software; the Free Software Foundation # gives unlimited permission to copy and/or distribute it, # with or without modifications, as long as this notice is preserved. # serial 1 # AM_PROG_MKDIR_P # --------------- # Check for `mkdir -p'. AC_DEFUN([AM_PROG_MKDIR_P], [AC_PREREQ([2.60])dnl AC_REQUIRE([AC_PROG_MKDIR_P])dnl dnl Automake 1.8 to 1.9.6 used to define mkdir_p. We now use MKDIR_P, dnl while keeping a definition of mkdir_p for backward compatibility. dnl @MKDIR_P@ is magic: AC_OUTPUT adjusts its value for each Makefile. dnl However we cannot define mkdir_p as $(MKDIR_P) for the sake of dnl Makefile.ins that do not define MKDIR_P, so we do our own dnl adjustment using top_builddir (which is defined more often than dnl MKDIR_P). AC_SUBST([mkdir_p], ["$MKDIR_P"])dnl case $mkdir_p in [[\\/$]]* | ?:[[\\/]]*) ;; */*) mkdir_p="\$(top_builddir)/$mkdir_p" ;; esac ]) # Helper functions for option handling. -*- Autoconf -*- # Copyright (C) 2001, 2002, 2003, 2005, 2008, 2010 Free Software # Foundation, Inc. # # This file is free software; the Free Software Foundation # gives unlimited permission to copy and/or distribute it, # with or without modifications, as long as this notice is preserved. # serial 5 # _AM_MANGLE_OPTION(NAME) # ----------------------- AC_DEFUN([_AM_MANGLE_OPTION], [[_AM_OPTION_]m4_bpatsubst($1, [[^a-zA-Z0-9_]], [_])]) # _AM_SET_OPTION(NAME) # -------------------- # Set option NAME. Presently that only means defining a flag for this option. AC_DEFUN([_AM_SET_OPTION], [m4_define(_AM_MANGLE_OPTION([$1]), 1)]) # _AM_SET_OPTIONS(OPTIONS) # ------------------------ # OPTIONS is a space-separated list of Automake options. AC_DEFUN([_AM_SET_OPTIONS], [m4_foreach_w([_AM_Option], [$1], [_AM_SET_OPTION(_AM_Option)])]) # _AM_IF_OPTION(OPTION, IF-SET, [IF-NOT-SET]) # ------------------------------------------- # Execute IF-SET if OPTION is set, IF-NOT-SET otherwise. AC_DEFUN([_AM_IF_OPTION], [m4_ifset(_AM_MANGLE_OPTION([$1]), [$2], [$3])]) # Check to make sure that the build environment is sane. -*- Autoconf -*- # Copyright (C) 1996, 1997, 2000, 2001, 2003, 2005, 2008 # Free Software Foundation, Inc. # # This file is free software; the Free Software Foundation # gives unlimited permission to copy and/or distribute it, # with or without modifications, as long as this notice is preserved. # serial 5 # AM_SANITY_CHECK # --------------- AC_DEFUN([AM_SANITY_CHECK], [AC_MSG_CHECKING([whether build environment is sane]) # Just in case sleep 1 echo timestamp > conftest.file # Reject unsafe characters in $srcdir or the absolute working directory # name. Accept space and tab only in the latter. am_lf=' ' case `pwd` in *[[\\\"\#\$\&\'\`$am_lf]]*) AC_MSG_ERROR([unsafe absolute working directory name]);; esac case $srcdir in *[[\\\"\#\$\&\'\`$am_lf\ \ ]]*) AC_MSG_ERROR([unsafe srcdir value: `$srcdir']);; esac # Do `set' in a subshell so we don't clobber the current shell's # arguments. Must try -L first in case configure is actually a # symlink; some systems play weird games with the mod time of symlinks # (eg FreeBSD returns the mod time of the symlink's containing # directory). if ( set X `ls -Lt "$srcdir/configure" conftest.file 2> /dev/null` if test "$[*]" = "X"; then # -L didn't work. set X `ls -t "$srcdir/configure" conftest.file` fi rm -f conftest.file if test "$[*]" != "X $srcdir/configure conftest.file" \ && test "$[*]" != "X conftest.file $srcdir/configure"; then # If neither matched, then we have a broken ls. This can happen # if, for instance, CONFIG_SHELL is bash and it inherits a # broken ls alias from the environment. This has actually # happened. Such a system could not be considered "sane". AC_MSG_ERROR([ls -t appears to fail. Make sure there is not a broken alias in your environment]) fi test "$[2]" = conftest.file ) then # Ok. : else AC_MSG_ERROR([newly created file is older than distributed files! Check your system clock]) fi AC_MSG_RESULT(yes)]) # Copyright (C) 2001, 2003, 2005, 2011 Free Software Foundation, Inc. # # This file is free software; the Free Software Foundation # gives unlimited permission to copy and/or distribute it, # with or without modifications, as long as this notice is preserved. # serial 1 # AM_PROG_INSTALL_STRIP # --------------------- # One issue with vendor `install' (even GNU) is that you can't # specify the program used to strip binaries. This is especially # annoying in cross-compiling environments, where the build's strip # is unlikely to handle the host's binaries. # Fortunately install-sh will honor a STRIPPROG variable, so we # always use install-sh in `make install-strip', and initialize # STRIPPROG with the value of the STRIP variable (set by the user). AC_DEFUN([AM_PROG_INSTALL_STRIP], [AC_REQUIRE([AM_PROG_INSTALL_SH])dnl # Installed binaries are usually stripped using `strip' when the user # run `make install-strip'. However `strip' might not be the right # tool to use in cross-compilation environments, therefore Automake # will honor the `STRIP' environment variable to overrule this program. dnl Don't test for $cross_compiling = yes, because it might be `maybe'. if test "$cross_compiling" != no; then AC_CHECK_TOOL([STRIP], [strip], :) fi INSTALL_STRIP_PROGRAM="\$(install_sh) -c -s" AC_SUBST([INSTALL_STRIP_PROGRAM])]) # Copyright (C) 2006, 2008, 2010 Free Software Foundation, Inc. # # This file is free software; the Free Software Foundation # gives unlimited permission to copy and/or distribute it, # with or without modifications, as long as this notice is preserved. # serial 3 # _AM_SUBST_NOTMAKE(VARIABLE) # --------------------------- # Prevent Automake from outputting VARIABLE = @VARIABLE@ in Makefile.in. # This macro is traced by Automake. AC_DEFUN([_AM_SUBST_NOTMAKE]) # AM_SUBST_NOTMAKE(VARIABLE) # -------------------------- # Public sister of _AM_SUBST_NOTMAKE. AC_DEFUN([AM_SUBST_NOTMAKE], [_AM_SUBST_NOTMAKE($@)]) # Check how to create a tarball. -*- Autoconf -*- # Copyright (C) 2004, 2005, 2012 Free Software Foundation, Inc. # # This file is free software; the Free Software Foundation # gives unlimited permission to copy and/or distribute it, # with or without modifications, as long as this notice is preserved. # serial 2 # _AM_PROG_TAR(FORMAT) # -------------------- # Check how to create a tarball in format FORMAT. # FORMAT should be one of `v7', `ustar', or `pax'. # # Substitute a variable $(am__tar) that is a command # writing to stdout a FORMAT-tarball containing the directory # $tardir. # tardir=directory && $(am__tar) > result.tar # # Substitute a variable $(am__untar) that extract such # a tarball read from stdin. # $(am__untar) < result.tar AC_DEFUN([_AM_PROG_TAR], [# Always define AMTAR for backward compatibility. Yes, it's still used # in the wild :-( We should find a proper way to deprecate it ... AC_SUBST([AMTAR], ['$${TAR-tar}']) m4_if([$1], [v7], [am__tar='$${TAR-tar} chof - "$$tardir"' am__untar='$${TAR-tar} xf -'], [m4_case([$1], [ustar],, [pax],, [m4_fatal([Unknown tar format])]) AC_MSG_CHECKING([how to create a $1 tar archive]) # Loop over all known methods to create a tar archive until one works. _am_tools='gnutar m4_if([$1], [ustar], [plaintar]) pax cpio none' _am_tools=${am_cv_prog_tar_$1-$_am_tools} # Do not fold the above two line into one, because Tru64 sh and # Solaris sh will not grok spaces in the rhs of `-'. for _am_tool in $_am_tools do case $_am_tool in gnutar) for _am_tar in tar gnutar gtar; do AM_RUN_LOG([$_am_tar --version]) && break done am__tar="$_am_tar --format=m4_if([$1], [pax], [posix], [$1]) -chf - "'"$$tardir"' am__tar_="$_am_tar --format=m4_if([$1], [pax], [posix], [$1]) -chf - "'"$tardir"' am__untar="$_am_tar -xf -" ;; plaintar) # Must skip GNU tar: if it does not support --format= it doesn't create # ustar tarball either. (tar --version) >/dev/null 2>&1 && continue am__tar='tar chf - "$$tardir"' am__tar_='tar chf - "$tardir"' am__untar='tar xf -' ;; pax) am__tar='pax -L -x $1 -w "$$tardir"' am__tar_='pax -L -x $1 -w "$tardir"' am__untar='pax -r' ;; cpio) am__tar='find "$$tardir" -print | cpio -o -H $1 -L' am__tar_='find "$tardir" -print | cpio -o -H $1 -L' am__untar='cpio -i -H $1 -d' ;; none) am__tar=false am__tar_=false am__untar=false ;; esac # If the value was cached, stop now. We just wanted to have am__tar # and am__untar set. test -n "${am_cv_prog_tar_$1}" && break # tar/untar a dummy directory, and stop if the command works rm -rf conftest.dir mkdir conftest.dir echo GrepMe > conftest.dir/file AM_RUN_LOG([tardir=conftest.dir && eval $am__tar_ >conftest.tar]) rm -rf conftest.dir if test -s conftest.tar; then AM_RUN_LOG([$am__untar /dev/null 2>&1 && break fi done rm -rf conftest.dir AC_CACHE_VAL([am_cv_prog_tar_$1], [am_cv_prog_tar_$1=$_am_tool]) AC_MSG_RESULT([$am_cv_prog_tar_$1])]) AC_SUBST([am__tar]) AC_SUBST([am__untar]) ]) # _AM_PROG_TAR guile-gnome-platform-2.16.2/atk/0000755000175000017500000000000011752546500016750 5ustar00wingowingo00000000000000guile-gnome-platform-2.16.2/atk/doc/0000755000175000017500000000000011752546500017515 5ustar00wingowingo00000000000000guile-gnome-platform-2.16.2/atk/doc/section-atknoopobjectfactory.xml.texi0000644000175000017500000000066111670374302027104 0ustar00wingowingo00000000000000 @c %start of fragment @node AtkNoOpObjectFactory @chapter AtkNoOpObjectFactory The AtkObjectFactory which creates an AtkNoOpObject. @section Overview The AtkObjectFactory which creates an AtkNoOpObject. An instance of this is created by an AtkRegistry if no factory type has not been specified to create an accessible object of a particular type. @section Usage @include defuns-atknoopobjectfactory.xml.texi @c %end of fragment guile-gnome-platform-2.16.2/atk/doc/defuns-atkimage.xml.texi0000644000175000017500000000530311670374302024252 0ustar00wingowingo00000000000000 @c %start of fragment @deftp Class Derives from @code{}. This class defines no direct slots. @end deftp @deffn Function atk-image-get-image-position (self@tie{}@code{}) (coord_type@tie{}@code{}) @result{}@tie{} (x@tie{}@code{int}) (y@tie{}@code{int}) @deffnx Method get-image-position Gets the position of the image in the form of a point specifying the images top-left corner. @table @var @item image a @code{} instance that implements AtkImageIface @item x address of @code{} to put x coordinate position; otherwise, -1 if value cannot be obtained. @item y address of @code{} to put y coordinate position; otherwise, -1 if value cannot be obtained. @item coord-type specifies whether the coordinates are relative to the screen or to the components top level window @end table @end deffn @deffn Function atk-image-get-image-description (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{mchars}) @deffnx Method get-image-description Get a textual description of this image. @table @var @item image a @code{} instance that implements AtkImageIface @item ret a string representing the image description @end table @end deffn @deffn Function atk-image-set-image-description (self@tie{}@code{}) (description@tie{}@code{mchars}) @result{}@tie{} (ret@tie{}@code{bool}) @deffnx Method set-image-description Sets the textual description for this image. @table @var @item image a @code{} instance that implements AtkImageIface @item description a string description to set for @var{image} @item ret boolean TRUE, or FALSE if operation could not be completed. @end table @end deffn @deffn Function atk-image-get-image-size (self@tie{}@code{}) @result{}@tie{} (width@tie{}@code{int}) (height@tie{}@code{int}) @deffnx Method get-image-size Get the width and height in pixels for the specified image. The values of @var{width} and @var{height} are returned as -1 if the values cannot be obtained (for instance, if the object is not onscreen). @table @var @item image a @code{} instance that implements AtkImageIface @item width filled with the image width, or -1 if the value cannot be obtained. @item height filled with the image height, or -1 if the value cannot be obtained. @end table @end deffn @deffn Function atk-image-get-image-locale (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{mchars}) @deffnx Method get-image-locale Since ATK 1.12 @table @var @item image An @code{} @item ret a string corresponding to the POSIX LC_MESSAGES locale used by the image description, or NULL if the image does not specify a locale. @end table @end deffn @c %end of fragment guile-gnome-platform-2.16.2/atk/doc/section-atkaction.xml.texi0000644000175000017500000000301511670374302024623 0ustar00wingowingo00000000000000 @c %start of fragment @node AtkAction @chapter AtkAction The ATK interface provided by UI components which the user can activate/interact with, @section Overview @code{} should be implemented by instances of @code{} classes with which the user can interact directly, i.e. buttons, checkboxes, scrollbars, e.g. components which are not "passive" providers of UI information. Exceptions: when the user interaction is already covered by another appropriate interface such as @code{} (insert/delete test, etc.) or @code{} (set value) then these actions should not be exposed by @code{} as well. Also note that the @code{} API is limited in that parameters may not be passed to the object being activated; thus the action must be self-contained and specifiable via only a single "verb". Concrete examples include "press", "release", "click" for buttons, "drag" (meaning initiate drag) and "drop" for drag sources and drop targets, etc. Though most UI interactions on components should be invocable via keyboard as well as mouse, there will generally be a close mapping between "mouse actions" that are possible on a component and the AtkActions. Where mouse and keyboard actions are redundant in effect, @code{} should expose only one action rather than exposing redundant actions if possible. By convention we have been using "mouse centric" terminology for @code{} names. @section Usage @include defuns-atkaction.xml.texi @c %end of fragment guile-gnome-platform-2.16.2/atk/doc/undocumented.texi0000644000175000017500000000121011670374302023072 0ustar00wingowingo00000000000000 @c %start of fragment @node Undocumented @chapter Undocumented The following symbols, if any, have not been properly documented. @section (gnome gw atk) @defvar atk-component-ref-accessible-at-point @end defvar @defvar atk-object-factory-create-accessible @end defvar @defun atk-object-factory-get-accessible-type @end defun @defvar atk-object-get-n-accessible-children @end defvar @defvar atk-relation-set-add-relation-by-type @end defvar @defvar atk-relation-set-get-relation-by-type @end defvar @defvar atk-streamable-content-get-mime-type @end defvar @defvar atk-streamable-content-get-n-mime-types @end defvar @c %end of fragment guile-gnome-platform-2.16.2/atk/doc/defuns-atkrelation.xml.texi0000644000175000017500000000407711670374302025014 0ustar00wingowingo00000000000000 @c %start of fragment @deftp Class Derives from @code{}. This class defines the following slots: @table @code @item relation-type The type of the relation @item target An array of the targets for the relation @end table @end deftp @deffn Function atk-relation-type-register (name@tie{}@code{mchars}) @result{}@tie{} (ret@tie{}@code{}) Associate @var{name} with a new @code{} @table @var @item name a name string @item ret an @code{} associated with @var{name} @end table @end deffn @deffn Function atk-relation-type-get-name (type@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{mchars}) Gets the description string describing the @code{}@var{type}. @table @var @item type The @code{} whose name is required @item ret the string describing the AtkRelationType @end table @end deffn @deffn Function atk-relation-type-for-name (name@tie{}@code{mchars}) @result{}@tie{} (ret@tie{}@code{}) Get the @code{} type corresponding to a relation name. @table @var @item name a string which is the (non-localized) name of an ATK relation type. @item ret the @code{} enumerated type corresponding to the specified name, or @code{} if no matching relation type is found. @end table @end deffn @deffn Function atk-relation-get-relation-type (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{}) @deffnx Method get-relation-type Gets the type of @var{relation} @table @var @item relation an @code{} @item ret the type of @var{relation} @end table @end deffn @deffn Function atk-relation-add-target (self@tie{}@code{}) (target@tie{}@code{}) @deffnx Method add-target Adds the specified AtkObject to the target for the relation, if it is not already present. @table @var @item relation an @code{} @item target an @code{} @end table Since ATK 1.9 @end deffn @c %end of fragment guile-gnome-platform-2.16.2/atk/doc/section-atkhypertext.xml.texi0000644000175000017500000000134411670374302025405 0ustar00wingowingo00000000000000 @c %start of fragment @node AtkHypertext @chapter AtkHypertext The ATK interface which provides standard mechanism for manipulating hyperlinks. @section Overview An interface used for objects which implement linking between multiple resource or content locations, or multiple 'markers' within a single document. A Hypertext instance is associated with one or more Hyperlinks, which are associated with particular offsets within the Hypertext's included content. While this interface is derived from Text, there is no requirement that Hypertext instances have textual content; they may implement Image as well, and Hyperlinks need not have non-zero text offsets. @section Usage @include defuns-atkhypertext.xml.texi @c %end of fragment guile-gnome-platform-2.16.2/atk/doc/section-atkrelationset.xml.texi0000644000175000017500000000126411670374302025703 0ustar00wingowingo00000000000000 @c %start of fragment @node AtkRelationSet @chapter AtkRelationSet A set of AtkRelations, normally the set of AtkRelations which an AtkObject has. @section Overview The AtkRelationSet held by an object establishes its relationships with objects beyond the normal "parent/child" hierarchical relationships that all user interface objects have. AtkRelationSets establish whether objects are labelled or controlled by other components, share group membership with other components (for instance within a radio-button group), or share content which "flows" between them, among other types of possible relationships. @section Usage @include defuns-atkrelationset.xml.texi @c %end of fragment guile-gnome-platform-2.16.2/atk/doc/section-atkhyperlinkimpl.xml.texi0000644000175000017500000000174711670374302026247 0ustar00wingowingo00000000000000 @c %start of fragment @node AtkHyperlinkImpl @chapter AtkHyperlinkImpl An interface from which the AtkHyperlink associated with an AtkObject may be obtained. @section Overview AtkHyperlinkImpl allows AtkObjects to refer to their associated AtkHyperlink instance, if one exists. AtkHyperlinkImpl differs from AtkHyperlink in that AtkHyperlinkImpl is an interface, whereas AtkHyperlink is a object type. The AtkHyperlinkImpl interface allows a client to query an AtkObject for the availability of an associated AtkHyperlink instance, and obtain that instance. It is thus particularly useful in cases where embedded content or inline content within a text object is present, since the embedding text object implements AtkHypertext and the inline/embedded objects are exposed as children which implement AtkHyperlinkImpl, in addition to their being obtainable via AtkHypertext:getLink followed by AtkHyperlink:getObject. @section Usage @include defuns-atkhyperlinkimpl.xml.texi @c %end of fragment guile-gnome-platform-2.16.2/atk/doc/defuns-atknoopobjectfactory.xml.texi0000644000175000017500000000075411670374302026727 0ustar00wingowingo00000000000000 @c %start of fragment @deftp Class Derives from @code{}. This class defines no direct slots. @end deftp @deffn Function atk-no-op-object-factory-new @result{}@tie{} (ret@tie{}@code{}) Creates an instance of an @code{} which generates primitive (non-functioning) @code{}. @table @var @item ret an instance of an @code{} @end table @end deffn @c %end of fragment guile-gnome-platform-2.16.2/atk/doc/section-atknoopobject.xml.texi0000644000175000017500000000067511670374302025521 0ustar00wingowingo00000000000000 @c %start of fragment @node AtkNoOpObject @chapter AtkNoOpObject An AtkObject which purports to implement all ATK interfaces. @section Overview An AtkNoOpObject is an AtkObject which purports to implement all ATK interfaces. It is the type of AtkObject which is created if an accessible object is requested for an object type for which no factory type is specified. @section Usage @include defuns-atknoopobject.xml.texi @c %end of fragment guile-gnome-platform-2.16.2/atk/doc/defuns-atkhyperlink.xml.texi0000644000175000017500000001037011670374302025175 0ustar00wingowingo00000000000000 @c %start of fragment @deftp Class Derives from @code{}, @code{}. This class defines the following slots: @table @code @item selected-link Specifies whether the AtkHyperlink object is selected @item number-of-anchors The number of anchors associated with the AtkHyperlink object @item end-index The end index of the AtkHyperlink object @item start-index The start index of the AtkHyperlink object @end table @end deftp @defop Signal link-activated The signal link-activated is emitted when a link is activated. @end defop @deffn Function atk-hyperlink-get-uri (self@tie{}@code{}) (i@tie{}@code{int}) @result{}@tie{} (ret@tie{}@code{mchars}) @deffnx Method get-uri Get a the URI associated with the anchor specified by @var{i} of @var{link}. Multiple anchors are primarily used by client-side image maps. @table @var @item link an @code{} @item i a (zero-index) integer specifying the desired anchor @item ret a string specifying the URI @end table @end deffn @deffn Function atk-hyperlink-get-object (self@tie{}@code{}) (i@tie{}@code{int}) @result{}@tie{} (ret@tie{}@code{}) @deffnx Method get-object Returns the item associated with this hyperlinks nth anchor. For instance, the returned @code{} will implement @code{} if @var{link} is a text hyperlink, @code{} if @var{link} is an image hyperlink etc. Multiple anchors are primarily used by client-side image maps. @table @var @item link an @code{} @item i a (zero-index) integer specifying the desired anchor @item ret an @code{} associated with this hyperlinks i-th anchor @end table @end deffn @deffn Function atk-hyperlink-get-end-index (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{int}) @deffnx Method get-end-index Gets the index with the hypertext document at which this link ends. @table @var @item link an @code{} @item ret the index with the hypertext document at which this link ends @end table @end deffn @deffn Function atk-hyperlink-get-start-index (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{int}) @deffnx Method get-start-index Gets the index with the hypertext document at which this link begins. @table @var @item link an @code{} @item ret the index with the hypertext document at which this link begins @end table @end deffn @deffn Function atk-hyperlink-is-valid (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{bool}) @deffnx Method is-valid Since the document that a link is associated with may have changed this method returns @samp{@code{#t}} if the link is still valid (with respect to the document it references) and @samp{@code{#f}} otherwise. @table @var @item link an @code{} @item ret whether or not this link is still valid @end table @end deffn @deffn Function atk-hyperlink-is-inline (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{bool}) @deffnx Method is-inline Indicates whether the link currently displays some or all of its content inline. Ordinary HTML links will usually return @samp{@code{#f}}, but an inline <src> HTML element will return @samp{@code{#t}}. a * @table @var @item link an @code{} @item ret whether or not this link displays its content inline. @end table @end deffn @deffn Function atk-hyperlink-get-n-anchors (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{int}) @deffnx Method get-n-anchors Gets the number of anchors associated with this hyperlink. @table @var @item link an @code{} @item ret the number of anchors associated with this hyperlink @end table @end deffn @deffn Function atk-hyperlink-is-selected-link (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{bool}) @deffnx Method is-selected-link Determines whether this AtkHyperlink is selected Returns: @table @var @item link an @code{} @item ret True is the AtkHyperlink is selected, False otherwise @end table Since ATK 1.4 @@Deprecated: This method is deprecated since ATK version 1.8. Please use ATK_STATE_SELECTED to indicate when a hyperlink within a Hypertext container is selected. @end deffn @c %end of fragment guile-gnome-platform-2.16.2/atk/doc/defuns-atkaction.xml.texi0000644000175000017500000000716611670374302024456 0ustar00wingowingo00000000000000 @c %start of fragment @deftp Class Derives from @code{}. This class defines no direct slots. @end deftp @deffn Function atk-action-do-action (self@tie{}@code{}) (i@tie{}@code{int}) @result{}@tie{} (ret@tie{}@code{bool}) @deffnx Method do-action Perform the specified action on the object. @table @var @item action a @code{} instance that implements AtkActionIface @item i the action index corresponding to the action to be performed @item ret @samp{@code{#t}} if success, @samp{@code{#f}} otherwise @end table @end deffn @deffn Function atk-action-get-n-actions (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{int}) @deffnx Method get-n-actions Gets the number of accessible actions available on the object. If there are more than one, the first one is considered the "default" action of the object. @table @var @item action a @code{} instance that implements AtkActionIface @item ret a the number of actions, or 0 if @var{action} does not implement this interface. @end table @end deffn @deffn Function atk-action-get-description (self@tie{}@code{}) (i@tie{}@code{int}) @result{}@tie{} (ret@tie{}@code{mchars}) @deffnx Method get-description Returns a description of the specified action of the object. @table @var @item action a @code{} instance that implements AtkActionIface @item i the action index corresponding to the action to be performed @item ret a description string, or @samp{@code{#f}} if @var{action} does not implement this interface. @end table @end deffn @deffn Function atk-action-get-name (self@tie{}@code{}) (i@tie{}@code{int}) @result{}@tie{} (ret@tie{}@code{mchars}) @deffnx Method get-name Returns the name of the specified action of the object. @table @var @item action a @code{} instance that implements AtkActionIface @item i the action index corresponding to the action to be performed @item ret a name string, or @samp{@code{#f}} if @var{action} does not implement this interface. @end table @end deffn @deffn Function atk-action-get-localized-name (self@tie{}@code{}) (i@tie{}@code{int}) @result{}@tie{} (ret@tie{}@code{mchars}) @deffnx Method get-localized-name Returns the localized name of the specified action of the object. @table @var @item action a @code{} instance that implements AtkActionIface @item i the action index corresponding to the action to be performed @item ret a name string, or @samp{@code{#f}} if @var{action} does not implement this interface. @end table @end deffn @deffn Function atk-action-get-keybinding (self@tie{}@code{}) (i@tie{}@code{int}) @result{}@tie{} (ret@tie{}@code{mchars}) @deffnx Method get-keybinding Returns a keybinding associated with this action, if one exists. @table @var @item action a @code{} instance that implements AtkActionIface @item i the action index corresponding to the action to be performed @item ret a string representing the keybinding, or @samp{@code{#f}} if there is no keybinding for this action. @end table @end deffn @deffn Function atk-action-set-description (self@tie{}@code{}) (i@tie{}@code{int}) (desc@tie{}@code{mchars}) @result{}@tie{} (ret@tie{}@code{bool}) @deffnx Method set-description Sets a description of the specified action of the object. @table @var @item action a @code{} instance that implements AtkActionIface @item i the action index corresponding to the action to be performed @item desc the description to be assigned to this action @item ret a gboolean representing if the description was successfully set; @end table @end deffn @c %end of fragment guile-gnome-platform-2.16.2/atk/doc/section-atktext.xml.texi0000644000175000017500000000250311670374302024333 0ustar00wingowingo00000000000000 @c %start of fragment @node AtkText @chapter AtkText The ATK interface implemented by components with text content. @section Overview @code{} should be implemented by @code{} on behalf of widgets that have text content which is either attributed or otherwise non-trivial. @code{} whose text content is simple, unattributed, and very brief may expose that content via @code{} instead; however if the text is editable, multi-line, typically longer than three or four words, attributed, selectable, or if the object already uses the 'name' ATK property for other information, the @code{} interface should be used to expose the text content. In the case of editable text content, @code{} (a subtype of the @code{} interface) should be implemented instead. @code{} provides not only traversal facilities and change notification for text content, but also caret tracking and glyph bounding box calculations. Note that the text strings are exposed as UTF-8, and are therefore potentially multi-byte, and caret-to-byte offset mapping makes no assumptions about the character length; also bounding box glyph-to-offset mapping may be complex for languages which use ligatures. @section Usage @include defuns-atktext.xml.texi @c %end of fragment guile-gnome-platform-2.16.2/atk/doc/defuns-atknoopobject.xml.texi0000644000175000017500000000134711670374302025336 0ustar00wingowingo00000000000000 @c %start of fragment @deftp Class Derives from @code{}, @code{}, @code{}, @code{}, @code{}, @code{}, @code{}, @code{}, @code{}, @code{}, @code{}. This class defines no direct slots. @end deftp @deffn Function atk-no-op-object-new (obj@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{}) Provides a default (non-functioning stub) @code{}. Application maintainers should not use this method. @table @var @item obj a @code{} @item ret a default (non-functioning stub) @code{} @end table @end deffn @c %end of fragment guile-gnome-platform-2.16.2/atk/doc/defuns-atkrelationset.xml.texi0000644000175000017500000000511511670374302025522 0ustar00wingowingo00000000000000 @c %start of fragment @deftp Class Derives from @code{}. This class defines no direct slots. @end deftp @deffn Function atk-relation-set-new @result{}@tie{} (ret@tie{}@code{}) Creates a new empty relation set. @table @var @item ret a new @code{} @end table @end deffn @deffn Function atk-relation-set-contains (self@tie{}@code{}) (relationship@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{bool}) @deffnx Method contains Determines whether the relation set contains a relation that matches the specified type. @table @var @item set an @code{} @item relationship an @code{} @item ret @samp{@code{#t}} if @var{relationship} is the relationship type of a relation in @var{set}, @samp{@code{#f}} otherwise @end table @end deffn @deffn Function atk-relation-set-remove (self@tie{}@code{}) (relation@tie{}@code{}) @deffnx Method remove Removes a relation from the relation set. This function unref's the @code{} so it will be deleted unless there is another reference to it. @table @var @item set an @code{} @item relation an @code{} @end table @end deffn @deffn Function atk-relation-set-add (self@tie{}@code{}) (relation@tie{}@code{}) @deffnx Method add Add a new relation to the current relation set if it is not already present. This function ref's the AtkRelation so the caller of this function should unref it to ensure that it will be destroyed when the AtkRelationSet is destroyed. @table @var @item set an @code{} @item relation an @code{} @end table @end deffn @deffn Function atk-relation-set-get-n-relations (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{int}) @deffnx Method get-n-relations Determines the number of relations in a relation set. @table @var @item set an @code{} @item ret an integer representing the number of relations in the set. @end table @end deffn @deffn Function atk-relation-set-get-relation (self@tie{}@code{}) (i@tie{}@code{int}) @result{}@tie{} (ret@tie{}@code{}) @deffnx Method get-relation Determines the relation at the specified position in the relation set. @table @var @item set an @code{} @item i a gint representing a position in the set, starting from 0. @item ret a @code{}, which is the relation at position i in the set. @end table @end deffn @c %end of fragment guile-gnome-platform-2.16.2/atk/doc/section-atkobjectfactory.xml.texi0000644000175000017500000000104711670374302026207 0ustar00wingowingo00000000000000 @c %start of fragment @node AtkObjectFactory @chapter AtkObjectFactory The base object class for a factory used to create accessible objects for objects of a specific GType. @section Overview This class is the base object class for a factory used to create an accessible object for a specific GType. The function @code{atk-registry-set-factory-type} is normally called to store in the registry the factory type to be used to create an accessible of a particular GType. @section Usage @include defuns-atkobjectfactory.xml.texi @c %end of fragment guile-gnome-platform-2.16.2/atk/doc/defuns-atkobjectfactory.xml.texi0000644000175000017500000000123711670374302026030 0ustar00wingowingo00000000000000 @c %start of fragment @deftp Class Derives from @code{}. This class defines no direct slots. @end deftp @deffn Function atk-object-factory-invalidate (self@tie{}@code{}) @deffnx Method invalidate Inform @var{factory} that it is no longer being used to create accessibles. When called, @var{factory} may need to inform @code{} which it has created that they need to be re-instantiated. Note: primarily used for runtime replacement of @code{} in object registries. @table @var @item factory an @code{} to invalidate @end table @end deffn @c %end of fragment guile-gnome-platform-2.16.2/atk/doc/defuns-atktext.xml.texi0000644000175000017500000004006111670374302024154 0ustar00wingowingo00000000000000 @c %start of fragment @deftp Class Derives from @code{}. This class defines no direct slots. @end deftp @defop Signal text-changed (arg0@tie{}@code{}) (arg1@tie{}@code{}) The "text-changed" signal is emitted when the text of the object which implements the AtkText interface changes, This signal will have a detail which is either "insert" or "delete" which identifies whether the text change was an insertion or a deletion @end defop @defop Signal text-caret-moved (arg0@tie{}@code{}) The "text-caret-moved" signal is emitted when the caret position of the text of an object which implements AtkText changes. @end defop @defop Signal text-selection-changed The "text-selection-changed" signal is emitted when the selected text of an object which implements AtkText changes. @end defop @defop Signal text-attributes-changed The "text-attributes-changed" signal is emitted when the text attributes of the text of an object which implements AtkText changes. @end defop @deffn Function atk-text-get-text (self@tie{}@code{}) (start_offset@tie{}@code{int}) (end_offset@tie{}@code{int}) @result{}@tie{} (ret@tie{}@code{mchars}) @deffnx Method get-text Gets the specified text. @table @var @item text an @code{} @item start-offset start position @item end-offset end position @item ret the text from @var{start-offset} up to, but not including @var{end-offset}. @end table @end deffn @deffn Function atk-text-get-character-at-offset (self@tie{}@code{}) (offset@tie{}@code{int}) @result{}@tie{} (ret@tie{}@code{unsigned-int32}) @deffnx Method get-character-at-offset Gets the specified text. @table @var @item text an @code{} @item offset position @item ret the character at @var{offset}. @end table @end deffn @deffn Function atk-text-get-text-after-offset (self@tie{}@code{}) (offset@tie{}@code{int}) (boundary_type@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{mchars}) (start_offset@tie{}@code{int}) (end_offset@tie{}@code{int}) @deffnx Method get-text-after-offset Gets the specified text. If the boundary_type if ATK_TEXT_BOUNDARY_CHAR the character after the offset is returned. If the boundary_type is ATK_TEXT_BOUNDARY_WORD_START the returned string is from the word start after the offset to the next word start. The returned string will contain the word after the offset if the offset is inside a word or if the offset is not inside a word. If the boundary_type is ATK_TEXT_BOUNDARY_WORD_END the returned string is from the word end at or after the offset to the next work end. The returned string will contain the word after the offset if the offset is inside a word and will contain the word after the word after the offset if the offset is not inside a word. If the boundary type is ATK_TEXT_BOUNDARY_SENTENCE_START the returned string is from the sentence start after the offset to the next sentence start. The returned string will contain the sentence after the offset if the offset is inside a sentence or if the offset is not inside a sentence. If the boundary_type is ATK_TEXT_BOUNDARY_SENTENCE_END the returned string is from the sentence end at or after the offset to the next sentence end. The returned string will contain the sentence after the offset if the offset is inside a sentence and will contain the sentence after the sentence after the offset if the offset is not inside a sentence. If the boundary type is ATK_TEXT_BOUNDARY_LINE_START the returned string is from the line start after the offset to the next line start. If the boundary_type is ATK_TEXT_BOUNDARY_LINE_END the returned string is from the line end at or after the offset to the next line start. @table @var @item text an @code{} @item offset position @item boundary-type An @code{} @item start-offset the start offset of the returned string @item end-offset the offset of the first character after the returned substring @item ret the text after @var{offset} bounded by the specified @var{boundary-type}. @end table @end deffn @deffn Function atk-text-get-text-at-offset (self@tie{}@code{}) (offset@tie{}@code{int}) (boundary_type@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{mchars}) (start_offset@tie{}@code{int}) (end_offset@tie{}@code{int}) @deffnx Method get-text-at-offset Gets the specified text. If the boundary_type if ATK_TEXT_BOUNDARY_CHAR the character at the offset is returned. If the boundary_type is ATK_TEXT_BOUNDARY_WORD_START the returned string is from the word start at or before the offset to the word start after the offset. The returned string will contain the word at the offset if the offset is inside a word and will contain the word before the offset if the offset is not inside a word. If the boundary_type is ATK_TEXT_BOUNDARY_WORD_END the returned string is from the word end before the offset to the word end at or after the offset. The returned string will contain the word at the offset if the offset is inside a word and will contain the word after to the offset if the offset is not inside a word. If the boundary type is ATK_TEXT_BOUNDARY_SENTENCE_START the returned string is from the sentence start at or before the offset to the sentence start after the offset. The returned string will contain the sentence at the offset if the offset is inside a sentence and will contain the sentence before the offset if the offset is not inside a sentence. If the boundary_type is ATK_TEXT_BOUNDARY_SENTENCE_END the returned string is from the sentence end before the offset to the sentence end at or after the offset. The returned string will contain the sentence at the offset if the offset is inside a sentence and will contain the sentence after the offset if the offset is not inside a sentence. If the boundary type is ATK_TEXT_BOUNDARY_LINE_START the returned string is from the line start at or before the offset to the line start after the offset. If the boundary_type is ATK_TEXT_BOUNDARY_LINE_END the returned string is from the line end before the offset to the line end at or after the offset. @table @var @item text an @code{} @item offset position @item boundary-type An @code{} @item start-offset the start offset of the returned string @item end-offset the offset of the first character after the returned substring @item ret the text at @var{offset} bounded by the specified @var{boundary-type}. @end table @end deffn @deffn Function atk-text-get-text-before-offset (self@tie{}@code{}) (offset@tie{}@code{int}) (boundary_type@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{mchars}) (start_offset@tie{}@code{int}) (end_offset@tie{}@code{int}) @deffnx Method get-text-before-offset Gets the specified text. If the boundary_type if ATK_TEXT_BOUNDARY_CHAR the character before the offset is returned. If the boundary_type is ATK_TEXT_BOUNDARY_WORD_START the returned string is from the word start before the word start before the offset to the word start before the offset. The returned string will contain the word before the offset if the offset is inside a word and will contain the word before the word before the offset if the offset is not inside a word. If the boundary_type is ATK_TEXT_BOUNDARY_WORD_END the returned string is from the word end before the word end at or before the offset to the word end at or before the offset. The returned string will contain the word before the offset if the offset is inside a word or if the offset is not inside a word. If the boundary type is ATK_TEXT_BOUNDARY_SENTENCE_START the returned string is from the sentence start before the sentence start before the offset to the sentence start before the offset. The returned string will contain the sentence before the offset if the offset is inside a sentence and will contain the sentence before the sentence before the offset if the offset is not inside a sentence. If the boundary_type is ATK_TEXT_BOUNDARY_SENTENCE_END the returned string is from the sentence end before the sentence end at or before the offset to the sentence end at or before the offset. The returned string will contain the sentence before the offset if the offset is inside a sentence or if the offset is not inside a sentence. If the boundary type is ATK_TEXT_BOUNDARY_LINE_START the returned string is from the line start before the line start ar or before the offset to the line start ar or before the offset. If the boundary_type is ATK_TEXT_BOUNDARY_LINE_END the returned string is from the line end before the line end before the offset to the line end before the offset. @table @var @item text an @code{} @item offset position @item boundary-type An @code{} @item start-offset the start offset of the returned string @item end-offset the offset of the first character after the returned substring @item ret the text before @var{offset} bounded by the specified @var{boundary-type}. @end table @end deffn @deffn Function atk-text-get-caret-offset (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{int}) @deffnx Method get-caret-offset Gets the offset position of the caret (cursor). @table @var @item text an @code{} @item ret the offset position of the caret (cursor). @end table @end deffn @deffn Function atk-text-get-character-extents (self@tie{}@code{}) (offset@tie{}@code{int}) (coords@tie{}@code{}) @result{}@tie{} (x@tie{}@code{int}) (y@tie{}@code{int}) (width@tie{}@code{int}) (height@tie{}@code{int}) @deffnx Method get-character-extents Get the bounding box containing the glyph representing the character at a particular text offset. @table @var @item text an @code{} @item offset The offset of the text character for which bounding information is required. @item x Pointer for the x cordinate of the bounding box @item y Pointer for the y cordinate of the bounding box @item width Pointer for the width of the bounding box @item height Pointer for the height of the bounding box @item coords specify whether coordinates are relative to the screen or widget window @end table @end deffn @deffn Function atk-text-get-character-count (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{int}) @deffnx Method get-character-count Gets the character count. @table @var @item text an @code{} @item ret the number of characters. @end table @end deffn @deffn Function atk-text-get-offset-at-point (self@tie{}@code{}) (x@tie{}@code{int}) (y@tie{}@code{int}) (coords@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{int}) @deffnx Method get-offset-at-point Gets the offset of the character located at coordinates @var{x} and @var{y}. @var{x} and @var{y} are interpreted as being relative to the screen or this widget's window depending on @var{coords}. @table @var @item text an @code{} @item x screen x-position of character @item y screen y-position of character @item coords specify whether coordinates are relative to the screen or widget window @item ret the offset to the character which is located at the specified @var{x} and @var{y} coordinates. @end table @end deffn @deffn Function atk-text-get-n-selections (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{int}) @deffnx Method get-n-selections Gets the number of selected regions. @table @var @item text an @code{} @item ret The number of selected regions, or -1 if a failure occurred. @end table @end deffn @deffn Function atk-text-get-selection (self@tie{}@code{}) (selection_num@tie{}@code{int}) @result{}@tie{} (ret@tie{}@code{mchars}) (start_offset@tie{}@code{int}) (end_offset@tie{}@code{int}) @deffnx Method get-selection Gets the text from the specified selection. @table @var @item text an @code{} @item selection-num The selection number. The selected regions are assigned numbers that correspond to how far the region is from the start of the text. The selected region closest to the beginning of the text region is assigned the number 0, etc. Note that adding, moving or deleting a selected region can change the numbering. @item start-offset passes back the start position of the selected region @item end-offset passes back the end position of (e.g. offset immediately past) the selected region @item ret the selected text. @end table @end deffn @deffn Function atk-text-add-selection (self@tie{}@code{}) (start_offset@tie{}@code{int}) (end_offset@tie{}@code{int}) @result{}@tie{} (ret@tie{}@code{bool}) @deffnx Method add-selection Adds a selection bounded by the specified offsets. @table @var @item text an @code{} @item start-offset the start position of the selected region @item end-offset the offset of the first character after the selected region. @item ret @samp{@code{#t}} if success, @samp{@code{#f}} otherwise @end table @end deffn @deffn Function atk-text-remove-selection (self@tie{}@code{}) (selection_num@tie{}@code{int}) @result{}@tie{} (ret@tie{}@code{bool}) @deffnx Method remove-selection Removes the specified selection. @table @var @item text an @code{} @item selection-num The selection number. The selected regions are assigned numbers that correspond to how far the region is from the start of the text. The selected region closest to the beginning of the text region is assigned the number 0, etc. Note that adding, moving or deleting a selected region can change the numbering. @item ret @samp{@code{#t}} if success, @samp{@code{#f}} otherwise @end table @end deffn @deffn Function atk-text-set-selection (self@tie{}@code{}) (selection_num@tie{}@code{int}) (start_offset@tie{}@code{int}) (end_offset@tie{}@code{int}) @result{}@tie{} (ret@tie{}@code{bool}) @deffnx Method set-selection Changes the start and end offset of the specified selection. @table @var @item text an @code{} @item selection-num The selection number. The selected regions are assigned numbers that correspond to how far the region is from the start of the text. The selected region closest to the beginning of the text region is assigned the number 0, etc. Note that adding, moving or deleting a selected region can change the numbering. @item start-offset the new start position of the selection @item end-offset the new end position of (e.g. offset immediately past) the selection @item ret @samp{@code{#t}} if success, @samp{@code{#f}} otherwise @end table @end deffn @deffn Function atk-text-set-caret-offset (self@tie{}@code{}) (offset@tie{}@code{int}) @result{}@tie{} (ret@tie{}@code{bool}) @deffnx Method set-caret-offset Sets the caret (cursor) position to the specified @var{offset}. @table @var @item text an @code{} @item offset position @item ret @samp{@code{#t}} if success, @samp{@code{#f}} otherwise. @end table @end deffn @deffn Function atk-text-attribute-get-name (attr@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{mchars}) Gets the name corresponding to the @code{} @table @var @item attr The @code{} whose name is required @item ret a string containing the name; this string should not be freed @end table @end deffn @deffn Function atk-text-attribute-for-name (name@tie{}@code{mchars}) @result{}@tie{} (ret@tie{}@code{}) Get the @code{} type corresponding to a text attribute name. @table @var @item name a string which is the (non-localized) name of an ATK text attribute. @item ret the @code{} enumerated type corresponding to the specified name, or @code{} if no matching text attribute is found. @end table @end deffn @deffn Function atk-text-attribute-get-value (attr@tie{}@code{}) (index_@tie{}@code{int}) @result{}@tie{} (ret@tie{}@code{mchars}) Gets the value for the index of the @code{} @table @var @item attr The @code{} for which a value is required @item index The index of the required value @item ret a string containing the value; this string should not be freed; NULL is returned if there are no values maintained for the attr value. @end table @end deffn @c %end of fragment guile-gnome-platform-2.16.2/atk/doc/defuns-atkdocument.xml.texi0000644000175000017500000000733011670374302025010 0ustar00wingowingo00000000000000 @c %start of fragment @deftp Class Derives from @code{}. This class defines no direct slots. @end deftp @defop Signal load-complete The 'load-complete' signal is emitted when a pending load of a static document has completed. This signal is to be expected by ATK clients if and when AtkDocument implementors expose ATK_STATE_BUSY. If the state of an AtkObject which implements AtkDocument does not include ATK_STATE_BUSY, it should be safe for clients to assume that the AtkDocument's static contents are fully loaded into the container. (Dynamic document contents should be exposed via other signals.) @end defop @defop Signal reload The 'reload' signal is emitted when the contents of a document is refreshed from its source. Once 'reload' has been emitted, a matching 'load-complete' or 'load-stopped' signal should follow, which clients may await before interrogating ATK for the latest document content. @end defop @defop Signal load-stopped The 'load-stopped' signal is emitted when a pending load of document contents is cancelled, paused, or otherwise interrupted by the user or application logic. It should not however be emitted while waiting for a resource (for instance while blocking on a file or network read) unless a user-significant timeout has occurred. @end defop @deffn Function atk-document-get-document-type (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{mchars}) @deffnx Method get-document-type Gets a string indicating the document type. @table @var @item document a @code{} instance that implements AtkDocumentIface @item ret a string indicating the document type @end table @end deffn @deffn Function atk-document-get-attribute-value (self@tie{}@code{}) (attribute_name@tie{}@code{mchars}) @result{}@tie{} (ret@tie{}@code{mchars}) @deffnx Method get-attribute-value Returns: @table @var @item document a @code{} instance that implements AtkDocumentIface @item attribute-name a character string representing the name of the attribute whose value is being queried. @item ret a string value associated with the named attribute for this document, or NULL if a value for @code{} has not been specified for this document. @end table Since ATK 1.12 @end deffn @deffn Function atk-document-set-attribute-value (self@tie{}@code{}) (attribute_name@tie{}@code{mchars}) (attribute_value@tie{}@code{mchars}) @result{}@tie{} (ret@tie{}@code{bool}) @deffnx Method set-attribute-value Returns: @table @var @item document a @code{} instance that implements AtkDocumentIface @item attribute-name a character string representing the name of the attribute whose value is being set. @item attribute-value a string value to be associated with @code{}. @item ret TRUE if @code{} is successfully associated with @code{} for this document, FALSE otherwise (e.g. if the document does not allow the attribute to be modified). @end table Since ATK 1.12 @end deffn @deffn Function atk-document-get-locale (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{mchars}) @deffnx Method get-locale Gets a UTF-8 string indicating the POSIX-style LC_MESSAGES locale of the content of this document instance. Individual text substrings or images within this document may have a different locale, see atk_text_get_attributes and atk_image_get_image_locale. @table @var @item document a @code{} instance that implements AtkDocumentIface @item ret a UTF-8 string indicating the POSIX-style LC_MESSAGES locale of the document content as a whole, or NULL if the document content does not specify a locale. @end table @end deffn @c %end of fragment guile-gnome-platform-2.16.2/atk/doc/overrides.texi0000644000175000017500000000000011670374302022376 0ustar00wingowingo00000000000000guile-gnome-platform-2.16.2/atk/doc/defuns-atkselection.xml.texi0000644000175000017500000001064611670374302025163 0ustar00wingowingo00000000000000 @c %start of fragment @deftp Class Derives from @code{}. This class defines no direct slots. @end deftp @defop Signal selection-changed The "selection-changed" signal is emitted by an object which implements AtkSelection interface when the selection changes. @end defop @deffn Function atk-selection-add-selection (self@tie{}@code{}) (i@tie{}@code{int}) @result{}@tie{} (ret@tie{}@code{bool}) @deffnx Method add-selection Adds the specified accessible child of the object to the object's selection. @table @var @item selection a @code{} instance that implements AtkSelectionIface @item i a @code{} specifying the child index. @item ret TRUE if success, FALSE otherwise. @end table @end deffn @deffn Function atk-selection-clear-selection (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{bool}) @deffnx Method clear-selection Clears the selection in the object so that no children in the object are selected. @table @var @item selection a @code{} instance that implements AtkSelectionIface @item ret TRUE if success, FALSE otherwise. @end table @end deffn @deffn Function atk-selection-ref-selection (self@tie{}@code{}) (i@tie{}@code{int}) @result{}@tie{} (ret@tie{}@code{}) @deffnx Method ref-selection Gets a reference to the accessible object representing the specified selected child of the object. Note: callers should not rely on @samp{@code{#f}} or on a zero value for indication of whether AtkSelectionIface is implemented, they should use type checking/interface checking macros or the @code{atk-get-accessible-value} convenience method. @table @var @item selection a @code{} instance that implements AtkSelectionIface @item i a @code{} specifying the index in the selection set. (e.g. the ith selection as opposed to the ith child). @item ret an @code{} representing the selected accessible , or @samp{@code{#f}} if @var{selection} does not implement this interface. @end table @end deffn @deffn Function atk-selection-get-selection-count (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{int}) @deffnx Method get-selection-count Gets the number of accessible children currently selected. Note: callers should not rely on @samp{@code{#f}} or on a zero value for indication of whether AtkSelectionIface is implemented, they should use type checking/interface checking macros or the @code{atk-get-accessible-value} convenience method. @table @var @item selection a @code{} instance that implements AtkSelectionIface @item ret a gint representing the number of items selected, or 0 if @var{selection} does not implement this interface. @end table @end deffn @deffn Function atk-selection-is-child-selected (self@tie{}@code{}) (i@tie{}@code{int}) @result{}@tie{} (ret@tie{}@code{bool}) @deffnx Method is-child-selected Determines if the current child of this object is selected Note: callers should not rely on @samp{@code{#f}} or on a zero value for indication of whether AtkSelectionIface is implemented, they should use type checking/interface checking macros or the @code{atk-get-accessible-value} convenience method. @table @var @item selection a @code{} instance that implements AtkSelectionIface @item i a @code{} specifying the child index. @item ret a gboolean representing the specified child is selected, or 0 if @var{selection} does not implement this interface. @end table @end deffn @deffn Function atk-selection-remove-selection (self@tie{}@code{}) (i@tie{}@code{int}) @result{}@tie{} (ret@tie{}@code{bool}) @deffnx Method remove-selection Removes the specified child of the object from the object's selection. @table @var @item selection a @code{} instance that implements AtkSelectionIface @item i a @code{} specifying the index in the selection set. (e.g. the ith selection as opposed to the ith child). @item ret TRUE if success, FALSE otherwise. @end table @end deffn @deffn Function atk-selection-select-all-selection (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{bool}) @deffnx Method select-all-selection Causes every child of the object to be selected if the object supports multiple selections. @table @var @item selection a @code{} instance that implements AtkSelectionIface @item ret TRUE if success, FALSE otherwise. @end table @end deffn @c %end of fragment guile-gnome-platform-2.16.2/atk/doc/defuns-atkutil.xml.texi0000644000175000017500000000416311670374302024150 0ustar00wingowingo00000000000000 @c %start of fragment @deftp Class Derives from @code{}. This class defines no direct slots. @end deftp @deffn Function atk-remove-focus-tracker (tracker_id@tie{}@code{unsigned-int}) Removes the specified focus tracker from the list of functions to be called when any object receives focus. @table @var @item tracker-id the id of the focus tracker to remove @end table @end deffn @deffn Function atk-focus-tracker-notify (object@tie{}@code{}) Cause the focus tracker functions which have been specified to be executed for the object. @table @var @item object an @code{} @end table @end deffn @deffn Function atk-remove-global-event-listener (listener_id@tie{}@code{unsigned-int}) Removes the specified event listener @table @var @item listener-id the id of the event listener to remove @end table @end deffn @deffn Function atk-remove-key-event-listener (listener_id@tie{}@code{unsigned-int}) Removes the specified event listener @table @var @item listener-id the id of the event listener to remove @end table @end deffn @deffn Function atk-get-root @result{}@tie{} (ret@tie{}@code{}) Gets the root accessible container for the current application. @table @var @item ret the root accessible container for the current application @end table @end deffn @deffn Function atk-get-focus-object @result{}@tie{} (ret@tie{}@code{}) Gets the currently focused object. Returns: @table @var @item ret the currently focused object for the current application @end table Since ATK 1.6 @end deffn @deffn Function atk-get-toolkit-name @result{}@tie{} (ret@tie{}@code{mchars}) Gets name string for the GUI toolkit implementing ATK for this application. @table @var @item ret name string for the GUI toolkit implementing ATK for this application @end table @end deffn @deffn Function atk-get-toolkit-version @result{}@tie{} (ret@tie{}@code{mchars}) Gets version string for the GUI toolkit implementing ATK for this application. @table @var @item ret version string for the GUI toolkit implementing ATK for this application @end table @end deffn @c %end of fragment guile-gnome-platform-2.16.2/atk/doc/version.texi0000644000175000017500000000014611752511103022065 0ustar00wingowingo00000000000000@set UPDATED 9 December 2011 @set UPDATED-MONTH December 2011 @set EDITION 2.16.2 @set VERSION 2.16.2 guile-gnome-platform-2.16.2/atk/doc/defuns-atkhyperlinkimpl.xml.texi0000644000175000017500000000110411670374302026052 0ustar00wingowingo00000000000000 @c %start of fragment @deftp Class Derives from @code{}. This class defines no direct slots. @end deftp @deffn Function atk-hyperlink-impl-get-hyperlink (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{}) @deffnx Method get-hyperlink Gets the hyperlink associated with this object. @table @var @item obj a GObject instance that implements AtkHyperlinkImplIface @item ret an AtkHyperlink object which points to this implementing AtkObject. @end table Since ATK 1.12 @end deffn @c %end of fragment guile-gnome-platform-2.16.2/atk/doc/section-atkhyperlink.xml.texi0000644000175000017500000000110011670374302025344 0ustar00wingowingo00000000000000 @c %start of fragment @node AtkHyperlink @chapter AtkHyperlink An ATK object which encapsulates a link or set of links in a hypertext document. @section Overview An ATK object which encapsulates a link or set of links (for instance in the case of client-side image maps) in a hypertext document. It may implement the AtkAction interface. AtkHyperlink may also be used to refer to inline embedded content, since it allows specification of a start and end offset within the host AtkHypertext object. @section Usage @include defuns-atkhyperlink.xml.texi @c %end of fragment guile-gnome-platform-2.16.2/atk/doc/section-atkgobjectaccessible.xml.texi0000644000175000017500000000104211670374302026777 0ustar00wingowingo00000000000000 @c %start of fragment @node AtkGObjectAccessible @chapter AtkGObjectAccessible This object class is derived from AtkObject and can be used as a basis implementing accessible objects. @section Overview This object class is derived from AtkObject. It can be used as a basis for implementing accessible objects for GObjects which are not derived from GtkWidget. One example of its use is in providing an accessible object for GnomeCanvasItem in the GAIL library. @section Usage @include defuns-atkgobjectaccessible.xml.texi @c %end of fragment guile-gnome-platform-2.16.2/atk/doc/section-atkrelation.xml.texi0000644000175000017500000000070411670374302025165 0ustar00wingowingo00000000000000 @c %start of fragment @node AtkRelation @chapter AtkRelation An object used to describe a relation between a object and one or more other objects. @section Overview An AtkRelation describes a relation between an object and one or more other objects. The actual relations that an object has with other objects are defined as an AtkRelationSet, which is a set of AtkRelations. @section Usage @include defuns-atkrelation.xml.texi @c %end of fragment guile-gnome-platform-2.16.2/atk/doc/section-atkdocument.xml.texi0000644000175000017500000000125011670374302025163 0ustar00wingowingo00000000000000 @c %start of fragment @node AtkDocument @chapter AtkDocument The ATK interface which represents the toplevel container for document content. @section Overview The AtkDocument interface should be supported by any object whose content is a representation or view of a document. The AtkDocument interface should appear on the toplevel container for the document content; however AtkDocument instances may be nested (i.e. an AtkDocument may be a descendant of another AtkDocument) in those cases where one document contains "embedded content" which can reasonably be considered a document in its own right. @section Usage @include defuns-atkdocument.xml.texi @c %end of fragment guile-gnome-platform-2.16.2/atk/doc/guile-gnome-atk.info0000644000175000017500000041734211752516272023375 0ustar00wingowingo00000000000000This is guile-gnome-atk.info, produced by makeinfo version 4.13 from guile-gnome-atk.texi. This manual is for `(gnome atk)' (version 2.16.2, updated 9 December 2011) Copyright 2001-2007 Bill Haneman, Marc Mulcahy, Padraig O'Briain Permission is granted to copy, distribute and/or modify this document under the terms of the GNU General Public License, Version 2 or any later version published by the Free Software Foundation. INFO-DIR-SECTION The Algorithmic Language Scheme START-INFO-DIR-ENTRY * Guile-Atk: (guile-gnome-atk.info). The Accessibility ToolKit. END-INFO-DIR-ENTRY  File: guile-gnome-atk.info, Node: Top, Next: Overview, Up: (dir) Guile-Atk ********* This manual is for `(gnome atk)' (version 2.16.2, updated 9 December 2011) Copyright 2001-2007 Bill Haneman, Marc Mulcahy, Padraig O'Briain Permission is granted to copy, distribute and/or modify this document under the terms of the GNU General Public License, Version 2 or any later version published by the Free Software Foundation. * Menu: * Overview:: About ATK and its Guile bindings. * AtkAction:: The ATK interface provided by UI components which the user can activate / interact with. * AtkComponent:: The ATK interface provided by UI components which occupy a physical area on the screen. * AtkDocument:: The ATK interface which represents the toplevel container for document content. * AtkEditableText:: The ATK interface implemented by components containing user-editable text content. * AtkGObjectAccessible:: This object class is derived from AtkObject and can be used as a basis implementing accessible objects. * AtkHyperlinkImpl:: An interface from which the AtkHyperlink associated with an AtkObject may be obtained. * AtkHyperlink:: An ATK object which encapsulates a link or set of links in a hypertext document. * AtkHypertext:: The ATK interface which provides standard mechanism for manipulating hyperlinks. * AtkImage:: The ATK Interface implemented by components which expose image or pixmap content on-screen. * AtkNoOpObject:: An AtkObject which purports to implement all ATK interfaces. * AtkNoOpObjectFactory:: The AtkObjectFactory which creates an AtkNoOpObject. * AtkObject:: The base object class for the Accessibility Toolkit API. * AtkObjectFactory:: The base object class for a factory used to create accessible objects for objects of a specific GType. * AtkRegistry:: An object used to store the GType of the factories used to create an accessible object for an object of a particular GType. * AtkRelation:: An object used to describe a relation between a object and one or more other objects. * AtkRelationSet:: A set of AtkRelations, normally the set of AtkRelations which an AtkObject has. * AtkSelection:: The ATK interface implemented by container objects whose AtkObject children can be selected. * AtkStateSet:: An AtkStateSet determines a component's state set. * AtkState:: An AtkState describes a component's particular state. * AtkStreamableContent:: The ATK interface which provides access to streamable content. * AtkTable:: The ATK interface implemented for UI components which contain tabular or row/column information. * AtkText:: The ATK interface implemented by components with text content. * AtkUtil:: A set of ATK utility functions for event and toolkit support. * AtkValue:: The ATK interface implemented by valuators and components which display or select a value from a bounded range of values. * Undocumented:: Undocumented functions. * Type Index:: * Function Index::  File: guile-gnome-atk.info, Node: Overview, Next: AtkAction, Prev: Top, Up: Top 1 Overview ********** `(gnome atk)' wraps the Accessibility Toolkit (ATK) for Guile. It is a part of Guile-GNOME. ATK is a technology to allow user interface elements to be traversable, readable, and writable by users that do not use the traditional combination of keyboard, screen, and mouse. This encompasses screen readers, text-to-speech, braille displays, etc. Technically, ATK is implemented as a set of GObject interfaces that can be implemented by user interface toolkits. This is transparently translated into multiple inheritance on the Scheme level; if a class derives from `', then the `' methods will apply to it. The GTK+ toolkit interfaces with ATK via the `gtk-widget-get-accessible' method. See the documentation for `(gnome gobject)' for more information on Guile-GNOME.  File: guile-gnome-atk.info, Node: AtkAction, Next: AtkComponent, Prev: Overview, Up: Top 2 AtkAction *********** The ATK interface provided by UI components which the user can activate/interact with, 2.1 Overview ============ `' should be implemented by instances of `' classes with which the user can interact directly, i.e. buttons, checkboxes, scrollbars, e.g. components which are not "passive" providers of UI information. Exceptions: when the user interaction is already covered by another appropriate interface such as `' (insert/delete test, etc.) or `' (set value) then these actions should not be exposed by `' as well. Also note that the `' API is limited in that parameters may not be passed to the object being activated; thus the action must be self-contained and specifiable via only a single "verb". Concrete examples include "press", "release", "click" for buttons, "drag" (meaning initiate drag) and "drop" for drag sources and drop targets, etc. Though most UI interactions on components should be invocable via keyboard as well as mouse, there will generally be a close mapping between "mouse actions" that are possible on a component and the AtkActions. Where mouse and keyboard actions are redundant in effect, `' should expose only one action rather than exposing redundant actions if possible. By convention we have been using "mouse centric" terminology for `' names. 2.2 Usage ========= -- Class: Derives from `'. This class defines no direct slots. -- Function: atk-action-do-action (self `') (i `int') => (ret `bool') -- Method: do-action Perform the specified action on the object. ACTION a `' instance that implements AtkActionIface I the action index corresponding to the action to be performed RET ``#t'' if success, ``#f'' otherwise -- Function: atk-action-get-n-actions (self `') => (ret `int') -- Method: get-n-actions Gets the number of accessible actions available on the object. If there are more than one, the first one is considered the "default" action of the object. ACTION a `' instance that implements AtkActionIface RET a the number of actions, or 0 if ACTION does not implement this interface. -- Function: atk-action-get-description (self `') (i `int') => (ret `mchars') -- Method: get-description Returns a description of the specified action of the object. ACTION a `' instance that implements AtkActionIface I the action index corresponding to the action to be performed RET a description string, or ``#f'' if ACTION does not implement this interface. -- Function: atk-action-get-name (self `') (i `int') => (ret `mchars') -- Method: get-name Returns the name of the specified action of the object. ACTION a `' instance that implements AtkActionIface I the action index corresponding to the action to be performed RET a name string, or ``#f'' if ACTION does not implement this interface. -- Function: atk-action-get-localized-name (self `') (i `int') => (ret `mchars') -- Method: get-localized-name Returns the localized name of the specified action of the object. ACTION a `' instance that implements AtkActionIface I the action index corresponding to the action to be performed RET a name string, or ``#f'' if ACTION does not implement this interface. -- Function: atk-action-get-keybinding (self `') (i `int') => (ret `mchars') -- Method: get-keybinding Returns a keybinding associated with this action, if one exists. ACTION a `' instance that implements AtkActionIface I the action index corresponding to the action to be performed RET a string representing the keybinding, or ``#f'' if there is no keybinding for this action. -- Function: atk-action-set-description (self `') (i `int') (desc `mchars') => (ret `bool') -- Method: set-description Sets a description of the specified action of the object. ACTION a `' instance that implements AtkActionIface I the action index corresponding to the action to be performed DESC the description to be assigned to this action RET a gboolean representing if the description was successfully set;  File: guile-gnome-atk.info, Node: AtkComponent, Next: AtkDocument, Prev: AtkAction, Up: Top 3 AtkComponent ************** The ATK interface provided by UI components which occupy a physical area on the screen. 3.1 Overview ============ `' should be implemented by most if not all UI elements with an actual on-screen presence, i.e. components which can be said to have a screen-coordinate bounding box. Virtually all widgets will need to have `' implementations provided for their corresponding `' class. In short, only UI elements which are *not* GUI elements will omit this ATK interface. A possible exception might be textual information with a transparent background, in which case text glyph bounding box information is provided by `'. 3.2 Usage ========= -- Class: Derives from `'. This class defines no direct slots. -- Signal on : bounds-changed (arg0 `') The 'bounds-changed" signal is emitted when the bposition or size of the a component changes. -- Function: atk-component-contains (self `') (x `int') (y `int') (coord_type `') => (ret `bool') -- Method: contains Checks whether the specified point is within the extent of the COMPONENT. COMPONENT the `' X x coordinate Y y coordinate COORD-TYPE specifies whether the coordinates are relative to the screen or to the components top level window RET ``#t'' or ``#f'' indicating whether the specified point is within the extent of the COMPONENT or not -- Function: atk-component-get-extents (self `') (coord_type `') => (x `int') (y `int') (width `int') (height `int') -- Method: get-extents Gets the rectangle which gives the extent of the COMPONENT. COMPONENT an `' X address of `' to put x coordinate Y address of `' to put y coordinate WIDTH address of `' to put width HEIGHT address of `' to put height COORD-TYPE specifies whether the coordinates are relative to the screen or to the components top level window -- Function: atk-component-get-layer (self `') => (ret `') -- Method: get-layer Gets the layer of the component. COMPONENT an `' RET an `' which is the layer of the component -- Function: atk-component-get-mdi-zorder (self `') => (ret `int') -- Method: get-mdi-zorder Gets the zorder of the component. The value G_MININT will be returned if the layer of the component is not ATK_LAYER_MDI or ATK_LAYER_WINDOW. COMPONENT an `' RET a gint which is the zorder of the component, i.e. the depth at which the component is shown in relation to other components in the same container. -- Function: atk-component-get-position (self `') (coord_type `') => (x `int') (y `int') -- Method: get-position Gets the position of COMPONENT in the form of a point specifying COMPONENT's top-left corner. COMPONENT an `' X address of `' to put x coordinate position Y address of `' to put y coordinate position COORD-TYPE specifies whether the coordinates are relative to the screen or to the components top level window -- Function: atk-component-get-size (self `') => (width `int') (height `int') -- Method: get-size Gets the size of the COMPONENT in terms of width and height. COMPONENT an `' WIDTH address of `' to put width of COMPONENT HEIGHT address of `' to put height of COMPONENT -- Function: atk-component-grab-focus (self `') => (ret `bool') -- Method: grab-focus Grabs focus for this COMPONENT. COMPONENT an `' RET ``#t'' if successful, ``#f'' otherwise. -- Function: atk-component-set-extents (self `') (x `int') (y `int') (width `int') (height `int') (coord_type `') => (ret `bool') -- Method: set-extents Sets the extents of COMPONENT. COMPONENT an `' X x coordinate Y y coordinate WIDTH width to set for COMPONENT HEIGHT height to set for COMPONENT COORD-TYPE specifies whether the coordinates are relative to the screen or to the components top level window RET ``#t'' or ``#f'' whether the extents were set or not -- Function: atk-component-set-position (self `') (x `int') (y `int') (coord_type `') => (ret `bool') -- Method: set-position Sets the postition of COMPONENT. COMPONENT an `' X x coordinate Y y coordinate COORD-TYPE specifies whether the coordinates are relative to the screen or to the components top level window RET ``#t'' or ``#f'' whether or not the position was set or not -- Function: atk-component-set-size (self `') (width `int') (height `int') => (ret `bool') -- Method: set-size Set the size of the COMPONENT in terms of width and height. COMPONENT an `' WIDTH width to set for COMPONENT HEIGHT height to set for COMPONENT RET ``#t'' or ``#f'' whether the size was set or not -- Function: atk-component-get-alpha (self `') => (ret `double') -- Method: get-alpha Returns the alpha value (i.e. the opacity) for this COMPONENT, on a scale from 0 (fully transparent) to 1.0 (fully opaque). COMPONENT an `' RET An alpha value from 0 to 1.0, inclusive. Since ATK 1.12  File: guile-gnome-atk.info, Node: AtkDocument, Next: AtkEditableText, Prev: AtkComponent, Up: Top 4 AtkDocument ************* The ATK interface which represents the toplevel container for document content. 4.1 Overview ============ The AtkDocument interface should be supported by any object whose content is a representation or view of a document. The AtkDocument interface should appear on the toplevel container for the document content; however AtkDocument instances may be nested (i.e. an AtkDocument may be a descendant of another AtkDocument) in those cases where one document contains "embedded content" which can reasonably be considered a document in its own right. 4.2 Usage ========= -- Class: Derives from `'. This class defines no direct slots. -- Signal on : load-complete The 'load-complete' signal is emitted when a pending load of a static document has completed. This signal is to be expected by ATK clients if and when AtkDocument implementors expose ATK_STATE_BUSY. If the state of an AtkObject which implements AtkDocument does not include ATK_STATE_BUSY, it should be safe for clients to assume that the AtkDocument's static contents are fully loaded into the container. (Dynamic document contents should be exposed via other signals.) -- Signal on : reload The 'reload' signal is emitted when the contents of a document is refreshed from its source. Once 'reload' has been emitted, a matching 'load-complete' or 'load-stopped' signal should follow, which clients may await before interrogating ATK for the latest document content. -- Signal on : load-stopped The 'load-stopped' signal is emitted when a pending load of document contents is cancelled, paused, or otherwise interrupted by the user or application logic. It should not however be emitted while waiting for a resource (for instance while blocking on a file or network read) unless a user-significant timeout has occurred. -- Function: atk-document-get-document-type (self `') => (ret `mchars') -- Method: get-document-type Gets a string indicating the document type. DOCUMENT a `' instance that implements AtkDocumentIface RET a string indicating the document type -- Function: atk-document-get-attribute-value (self `') (attribute_name `mchars') => (ret `mchars') -- Method: get-attribute-value Returns: DOCUMENT a `' instance that implements AtkDocumentIface ATTRIBUTE-NAME a character string representing the name of the attribute whose value is being queried. RET a string value associated with the named attribute for this document, or NULL if a value for `' has not been specified for this document. Since ATK 1.12 -- Function: atk-document-set-attribute-value (self `') (attribute_name `mchars') (attribute_value `mchars') => (ret `bool') -- Method: set-attribute-value Returns: DOCUMENT a `' instance that implements AtkDocumentIface ATTRIBUTE-NAME a character string representing the name of the attribute whose value is being set. ATTRIBUTE-VALUE a string value to be associated with `'. RET TRUE if `' is successfully associated with `' for this document, FALSE otherwise (e.g. if the document does not allow the attribute to be modified). Since ATK 1.12 -- Function: atk-document-get-locale (self `') => (ret `mchars') -- Method: get-locale Gets a UTF-8 string indicating the POSIX-style LC_MESSAGES locale of the content of this document instance. Individual text substrings or images within this document may have a different locale, see atk_text_get_attributes and atk_image_get_image_locale. DOCUMENT a `' instance that implements AtkDocumentIface RET a UTF-8 string indicating the POSIX-style LC_MESSAGES locale of the document content as a whole, or NULL if the document content does not specify a locale.  File: guile-gnome-atk.info, Node: AtkEditableText, Next: AtkGObjectAccessible, Prev: AtkDocument, Up: Top 5 AtkEditableText ***************** The ATK interface implemented by components containing user-editable text content. 5.1 Overview ============ `' should be implemented by UI components which contain text which the user can edit, via the `' corresponding to that component (see `'). `' is a subclass of `', and as such, an object which implements `' is by definition an `' implementor as well. 5.2 Usage ========= -- Class: Derives from `'. This class defines no direct slots. -- Function: atk-editable-text-set-text-contents (self `') (string `mchars') -- Method: set-text-contents Set text contents of TEXT. TEXT an `' STRING string to set for text contents of TEXT -- Function: atk-editable-text-insert-text (self `') (string `mchars') (length `int') => (position `int') -- Method: insert-text Insert text at a given position. TEXT an `' STRING the text to insert LENGTH the length of text to insert, in bytes POSITION The caller initializes this to the position at which to insert the text. After the call it points at the position after the newly inserted text. -- Function: atk-editable-text-copy-text (self `') (start_pos `int') (end_pos `int') -- Method: copy-text Copy text from START-POS up to, but not including END-POS to the clipboard. TEXT an `' START-POS start position END-POS end position -- Function: atk-editable-text-cut-text (self `') (start_pos `int') (end_pos `int') -- Method: cut-text Copy text from START-POS up to, but not including END-POS to the clipboard and then delete from the widget. TEXT an `' START-POS start position END-POS end position -- Function: atk-editable-text-delete-text (self `') (start_pos `int') (end_pos `int') -- Method: delete-text Delete text START-POS up to, but not including END-POS. TEXT an `' START-POS start position END-POS end position -- Function: atk-editable-text-paste-text (self `') (position `int') -- Method: paste-text Paste text from clipboard to specified POSITION. TEXT an `' POSITION position to paste  File: guile-gnome-atk.info, Node: AtkGObjectAccessible, Next: AtkHyperlinkImpl, Prev: AtkEditableText, Up: Top 6 AtkGObjectAccessible ********************** This object class is derived from AtkObject and can be used as a basis implementing accessible objects. 6.1 Overview ============ This object class is derived from AtkObject. It can be used as a basis for implementing accessible objects for GObjects which are not derived from GtkWidget. One example of its use is in providing an accessible object for GnomeCanvasItem in the GAIL library. 6.2 Usage ========= -- Class: Derives from `'. This class defines no direct slots. -- Function: atk-gobject-accessible-for-object (obj `') => (ret `') Gets the accessible object for the specified OBJ. OBJ a `' RET a `' which is the accessible object for the OBJ -- Function: atk-gobject-accessible-get-object (self `') => (ret `') -- Method: get-object Gets the GObject for which OBJ is the accessible object. OBJ a `' RET a `' which is the object for which OBJ is the accessible objedct  File: guile-gnome-atk.info, Node: AtkHyperlinkImpl, Next: AtkHyperlink, Prev: AtkGObjectAccessible, Up: Top 7 AtkHyperlinkImpl ****************** An interface from which the AtkHyperlink associated with an AtkObject may be obtained. 7.1 Overview ============ AtkHyperlinkImpl allows AtkObjects to refer to their associated AtkHyperlink instance, if one exists. AtkHyperlinkImpl differs from AtkHyperlink in that AtkHyperlinkImpl is an interface, whereas AtkHyperlink is a object type. The AtkHyperlinkImpl interface allows a client to query an AtkObject for the availability of an associated AtkHyperlink instance, and obtain that instance. It is thus particularly useful in cases where embedded content or inline content within a text object is present, since the embedding text object implements AtkHypertext and the inline/embedded objects are exposed as children which implement AtkHyperlinkImpl, in addition to their being obtainable via AtkHypertext:getLink followed by AtkHyperlink:getObject. 7.2 Usage ========= -- Class: Derives from `'. This class defines no direct slots. -- Function: atk-hyperlink-impl-get-hyperlink (self `') => (ret `') -- Method: get-hyperlink Gets the hyperlink associated with this object. OBJ a GObject instance that implements AtkHyperlinkImplIface RET an AtkHyperlink object which points to this implementing AtkObject. Since ATK 1.12  File: guile-gnome-atk.info, Node: AtkHyperlink, Next: AtkHypertext, Prev: AtkHyperlinkImpl, Up: Top 8 AtkHyperlink ************** An ATK object which encapsulates a link or set of links in a hypertext document. 8.1 Overview ============ An ATK object which encapsulates a link or set of links (for instance in the case of client-side image maps) in a hypertext document. It may implement the AtkAction interface. AtkHyperlink may also be used to refer to inline embedded content, since it allows specification of a start and end offset within the host AtkHypertext object. 8.2 Usage ========= -- Class: Derives from `', `'. This class defines the following slots: `selected-link' Specifies whether the AtkHyperlink object is selected `number-of-anchors' The number of anchors associated with the AtkHyperlink object `end-index' The end index of the AtkHyperlink object `start-index' The start index of the AtkHyperlink object -- Signal on : link-activated The signal link-activated is emitted when a link is activated. -- Function: atk-hyperlink-get-uri (self `') (i `int') => (ret `mchars') -- Method: get-uri Get a the URI associated with the anchor specified by I of LINK. Multiple anchors are primarily used by client-side image maps. LINK an `' I a (zero-index) integer specifying the desired anchor RET a string specifying the URI -- Function: atk-hyperlink-get-object (self `') (i `int') => (ret `') -- Method: get-object Returns the item associated with this hyperlinks nth anchor. For instance, the returned `' will implement `' if LINK is a text hyperlink, `' if LINK is an image hyperlink etc. Multiple anchors are primarily used by client-side image maps. LINK an `' I a (zero-index) integer specifying the desired anchor RET an `' associated with this hyperlinks i-th anchor -- Function: atk-hyperlink-get-end-index (self `') => (ret `int') -- Method: get-end-index Gets the index with the hypertext document at which this link ends. LINK an `' RET the index with the hypertext document at which this link ends -- Function: atk-hyperlink-get-start-index (self `') => (ret `int') -- Method: get-start-index Gets the index with the hypertext document at which this link begins. LINK an `' RET the index with the hypertext document at which this link begins -- Function: atk-hyperlink-is-valid (self `') => (ret `bool') -- Method: is-valid Since the document that a link is associated with may have changed this method returns ``#t'' if the link is still valid (with respect to the document it references) and ``#f'' otherwise. LINK an `' RET whether or not this link is still valid -- Function: atk-hyperlink-is-inline (self `') => (ret `bool') -- Method: is-inline Indicates whether the link currently displays some or all of its content inline. Ordinary HTML links will usually return ``#f'', but an inline <src> HTML element will return ``#t''. a * LINK an `' RET whether or not this link displays its content inline. -- Function: atk-hyperlink-get-n-anchors (self `') => (ret `int') -- Method: get-n-anchors Gets the number of anchors associated with this hyperlink. LINK an `' RET the number of anchors associated with this hyperlink -- Function: atk-hyperlink-is-selected-link (self `') => (ret `bool') -- Method: is-selected-link Determines whether this AtkHyperlink is selected Returns: LINK an `' RET True is the AtkHyperlink is selected, False otherwise Since ATK 1.4 @Deprecated: This method is deprecated since ATK version 1.8. Please use ATK_STATE_SELECTED to indicate when a hyperlink within a Hypertext container is selected.  File: guile-gnome-atk.info, Node: AtkHypertext, Next: AtkImage, Prev: AtkHyperlink, Up: Top 9 AtkHypertext ************** The ATK interface which provides standard mechanism for manipulating hyperlinks. 9.1 Overview ============ An interface used for objects which implement linking between multiple resource or content locations, or multiple 'markers' within a single document. A Hypertext instance is associated with one or more Hyperlinks, which are associated with particular offsets within the Hypertext's included content. While this interface is derived from Text, there is no requirement that Hypertext instances have textual content; they may implement Image as well, and Hyperlinks need not have non-zero text offsets. 9.2 Usage ========= -- Class: Derives from `'. This class defines no direct slots. -- Signal on : link-selected (arg0 `') The "link-selected" signal is emitted by an AtkHyperText object when one of the hyperlinks associated with the object is selected. -- Function: atk-hypertext-get-link (self `') (link_index `int') => (ret `') -- Method: get-link Gets the link in this hypertext document at index LINK-INDEX HYPERTEXT an `' LINK-INDEX an integer specifying the desired link RET the link in this hypertext document at index LINK-INDEX -- Function: atk-hypertext-get-n-links (self `') => (ret `int') -- Method: get-n-links Gets the number of links within this hypertext document. HYPERTEXT an `' RET the number of links within this hypertext document -- Function: atk-hypertext-get-link-index (self `') (char_index `int') => (ret `int') -- Method: get-link-index Gets the index into the array of hyperlinks that is associated with the character specified by CHAR-INDEX. HYPERTEXT an `' CHAR-INDEX a character index RET an index into the array of hyperlinks in HYPERTEXT, or -1 if there is no hyperlink associated with this character.  File: guile-gnome-atk.info, Node: AtkImage, Next: AtkNoOpObject, Prev: AtkHypertext, Up: Top 10 AtkImage *********** The ATK Interface implemented by components which expose image or pixmap content on-screen. 10.1 Overview ============= `' should be implemented by `' subtypes on behalf of components which display image/pixmap information onscreen, and which provide information (other than just widget borders, etc.) via that image content. For instance, icons, buttons with icons, toolbar elements, and image viewing panes typically should implement `'. `' primarily provides two types of information: coordinate information (useful for screen review mode of screenreaders, and for use by onscreen magnifiers), and descriptive information. The descriptive information is provided for alternative, text-only presentation of the most significant information present in the image. 10.2 Usage ========== -- Class: Derives from `'. This class defines no direct slots. -- Function: atk-image-get-image-position (self `') (coord_type `') => (x `int') (y `int') -- Method: get-image-position Gets the position of the image in the form of a point specifying the images top-left corner. IMAGE a `' instance that implements AtkImageIface X address of `' to put x coordinate position; otherwise, -1 if value cannot be obtained. Y address of `' to put y coordinate position; otherwise, -1 if value cannot be obtained. COORD-TYPE specifies whether the coordinates are relative to the screen or to the components top level window -- Function: atk-image-get-image-description (self `') => (ret `mchars') -- Method: get-image-description Get a textual description of this image. IMAGE a `' instance that implements AtkImageIface RET a string representing the image description -- Function: atk-image-set-image-description (self `') (description `mchars') => (ret `bool') -- Method: set-image-description Sets the textual description for this image. IMAGE a `' instance that implements AtkImageIface DESCRIPTION a string description to set for IMAGE RET boolean TRUE, or FALSE if operation could not be completed. -- Function: atk-image-get-image-size (self `') => (width `int') (height `int') -- Method: get-image-size Get the width and height in pixels for the specified image. The values of WIDTH and HEIGHT are returned as -1 if the values cannot be obtained (for instance, if the object is not onscreen). IMAGE a `' instance that implements AtkImageIface WIDTH filled with the image width, or -1 if the value cannot be obtained. HEIGHT filled with the image height, or -1 if the value cannot be obtained. -- Function: atk-image-get-image-locale (self `') => (ret `mchars') -- Method: get-image-locale Since ATK 1.12 IMAGE An `' RET a string corresponding to the POSIX LC_MESSAGES locale used by the image description, or NULL if the image does not specify a locale.  File: guile-gnome-atk.info, Node: AtkNoOpObjectFactory, Next: AtkObject, Prev: AtkNoOpObject, Up: Top 11 AtkNoOpObjectFactory *********************** The AtkObjectFactory which creates an AtkNoOpObject. 11.1 Overview ============= The AtkObjectFactory which creates an AtkNoOpObject. An instance of this is created by an AtkRegistry if no factory type has not been specified to create an accessible object of a particular type. 11.2 Usage ========== -- Class: Derives from `'. This class defines no direct slots. -- Function: atk-no-op-object-factory-new => (ret `') Creates an instance of an `' which generates primitive (non-functioning) `'. RET an instance of an `'  File: guile-gnome-atk.info, Node: AtkNoOpObject, Next: AtkNoOpObjectFactory, Prev: AtkImage, Up: Top 12 AtkNoOpObject **************** An AtkObject which purports to implement all ATK interfaces. 12.1 Overview ============= An AtkNoOpObject is an AtkObject which purports to implement all ATK interfaces. It is the type of AtkObject which is created if an accessible object is requested for an object type for which no factory type is specified. 12.2 Usage ========== -- Class: Derives from `', `', `', `', `', `', `', `', `', `', `'. This class defines no direct slots. -- Function: atk-no-op-object-new (obj `') => (ret `') Provides a default (non-functioning stub) `'. Application maintainers should not use this method. OBJ a `' RET a default (non-functioning stub) `'  File: guile-gnome-atk.info, Node: AtkObjectFactory, Next: AtkRegistry, Prev: AtkObject, Up: Top 13 AtkObjectFactory ******************* The base object class for a factory used to create accessible objects for objects of a specific GType. 13.1 Overview ============= This class is the base object class for a factory used to create an accessible object for a specific GType. The function `atk-registry-set-factory-type' is normally called to store in the registry the factory type to be used to create an accessible of a particular GType. 13.2 Usage ========== -- Class: Derives from `'. This class defines no direct slots. -- Function: atk-object-factory-invalidate (self `') -- Method: invalidate Inform FACTORY that it is no longer being used to create accessibles. When called, FACTORY may need to inform `' which it has created that they need to be re-instantiated. Note: primarily used for runtime replacement of `' in object registries. FACTORY an `' to invalidate  File: guile-gnome-atk.info, Node: AtkObject, Next: AtkObjectFactory, Prev: AtkNoOpObjectFactory, Up: Top 14 AtkObject ************ The base object class for the Accessibility Toolkit API. 14.1 Overview ============= This class is the primary class for accessibility support via the Accessibility ToolKit (ATK). Objects which are instances of `' (or instances of AtkObject-derived types) are queried for properties which relate basic (and generic) properties of a UI component such as name and description. Instances of `' may also be queried as to whether they implement other ATK interfaces (e.g. `', `', etc.), as appropriate to the role which a given UI component plays in a user interface. All UI components in an application which provide useful information or services to the user must provide corresponding `' instances on request (in GTK+, for instance, usually on a call to #`gtk-widget-get-accessible'), either via ATK support built into the toolkit for the widget class or ancestor class, or in the case of custom widgets, if the inherited `' implementation is insufficient, via instances of a new `' subclass. 14.2 Usage ========== -- Class: Derives from `'. This class defines the following slots: `accessible-name' Object instance's name formatted for assistive technology access `accessible-description' Description of an object, formatted for assistive technology access `accessible-parent' Is used to notify that the parent has changed `accessible-value' Is used to notify that the value has changed `accessible-role' The accessible role of this object `accessible-component-layer' The accessible layer of this object `accessible-component-mdi-zorder' The accessible MDI value of this object `accessible-table-caption' Is used to notify that the table caption has changed; this property should not be used. accessible-table-caption-object should be used instead `accessible-table-column-description' Is used to notify that the table column description has changed `accessible-table-column-header' Is used to notify that the table column header has changed `accessible-table-row-description' Is used to notify that the table row description has changed `accessible-table-row-header' Is used to notify that the table row header has changed `accessible-table-summary' Is used to notify that the table summary has changed `accessible-table-caption-object' Is used to notify that the table caption has changed `accessible-hypertext-nlinks' The number of links which the current AtkHypertext has -- Signal on : children-changed (arg0 `') (arg1 `') The signal "children-changed" is emitted when a child is added or removed form an object. It supports two details: "add" and "remove" -- Signal on : focus-event (arg0 `') The signal "focus-event" is emitted when an object gains or loses focus. -- Signal on : property-change (arg0 `') The signal "property-change" is emitted when an object's property value changes. The detail identifies the name of the property whose value has changed. -- Signal on : state-change (arg0 `') (arg1 `') The "state-change" signal is emitted when an object's state changes. The detail value identifies the state type which has changed. -- Signal on : visible-data-changed The "visible-data-changed" signal is emitted when the visual appearance of the object changed. -- Signal on : active-descendant-changed (arg0 `') The "active-descendant-changed" signal is emitted by an object which has the state ATK_STATE_MANAGES_DESCENDANTS when the focus object in the object changes. For instance, a table will emit the signal when the cell in the table which has focus changes. -- Class: Derives from `'. This class defines no direct slots. -- Function: atk-implementor-ref-accessible (self `') => (ret `') -- Method: ref-accessible Gets a reference to an object's `' implementation, if the object implements `' IMPLEMENTOR The `' instance which should implement `' if a non-null return value is required. RET a reference to an object's `' implementation -- Function: atk-object-get-name (self `') => (ret `mchars') -- Method: get-name Gets the accessible name of the accessible. ACCESSIBLE an `' RET a character string representing the accessible name of the object. -- Function: atk-object-get-description (self `') => (ret `mchars') -- Method: get-description Gets the accessible description of the accessible. ACCESSIBLE an `' RET a character string representing the accessible description of the accessible. -- Function: atk-object-get-parent (self `') => (ret `') -- Method: get-parent Gets the accessible parent of the accessible. ACCESSIBLE an `' RET a `' representing the accessible parent of the accessible -- Function: atk-object-ref-accessible-child (self `') (i `int') => (ret `') -- Method: ref-accessible-child Gets a reference to the specified accessible child of the object. The accessible children are 0-based so the first accessible child is at index 0, the second at index 1 and so on. ACCESSIBLE an `' I a gint representing the position of the child, starting from 0 RET an `' representing the specified accessible child of the accessible. -- Function: atk-object-ref-relation-set (self `') => (ret `') -- Method: ref-relation-set Gets the `' associated with the object. ACCESSIBLE an `' RET an `' representing the relation set of the object. -- Function: atk-object-get-layer (self `') => (ret `') -- Method: get-layer `atk_object_get_layer' is deprecated and should not be used in newly-written code. Use atk_component_get_layer instead. Gets the layer of the accessible. Returns: ACCESSIBLE an `' RET an `' which is the layer of the accessible -- Function: atk-object-get-mdi-zorder (self `') => (ret `int') -- Method: get-mdi-zorder `atk_object_get_mdi_zorder' is deprecated and should not be used in newly-written code. Use atk_component_get_mdi_zorder instead. Gets the zorder of the accessible. The value G_MININT will be returned if the layer of the accessible is not ATK_LAYER_MDI. Returns: ACCESSIBLE an `' RET a gint which is the zorder of the accessible, i.e. the depth at which the component is shown in relation to other components in the same container. -- Function: atk-object-get-role (self `') => (ret `') -- Method: get-role Gets the role of the accessible. ACCESSIBLE an `' RET an `' which is the role of the accessible -- Function: atk-object-ref-state-set (self `') => (ret `') -- Method: ref-state-set Gets a reference to the state set of the accessible; the caller must unreference it when it is no longer needed. ACCESSIBLE an `' RET a reference to an `' which is the state set of the accessible -- Function: atk-object-get-index-in-parent (self `') => (ret `int') -- Method: get-index-in-parent Gets the 0-based index of this accessible in its parent; returns -1 if the accessible does not have an accessible parent. ACCESSIBLE an `' RET an integer which is the index of the accessible in its parent -- Function: atk-object-set-name (self `') (name `mchars') -- Method: set-name Sets the accessible name of the accessible. ACCESSIBLE an `' NAME a character string to be set as the accessible name -- Function: atk-object-set-description (self `') (description `mchars') -- Method: set-description Sets the accessible description of the accessible. ACCESSIBLE an `' DESCRIPTION a character string to be set as the accessible description -- Function: atk-object-set-parent (self `') (parent `') -- Method: set-parent Sets the accessible parent of the accessible. ACCESSIBLE an `' PARENT an `' to be set as the accessible parent -- Function: atk-object-set-role (self `') (role `') -- Method: set-role Sets the role of the accessible. ACCESSIBLE an `' ROLE an `' to be set as the role -- Function: atk-object-notify-state-change (self `') (state `unsigned-int64') (value `bool') -- Method: notify-state-change Emits a state-change signal for the specified state. ACCESSIBLE an `' STATE an `' whose state is changed VALUE a gboolean which indicates whether the state is being set on or off -- Function: atk-object-add-relationship (self `') (relationship `') (target `') => (ret `bool') -- Method: add-relationship Adds a relationship of the specified type with the specified target. OBJECT The `' to which an AtkRelation is to be added. RELATIONSHIP The `' of the relation TARGET The `' which is to be the target of the relation. RET TRUE if the relationship is added. -- Function: atk-object-remove-relationship (self `') (relationship `') (target `') => (ret `bool') -- Method: remove-relationship Removes a relationship of the specified type with the specified target. OBJECT The `' from which an AtkRelation is to be removed. RELATIONSHIP The `' of the relation TARGET The `' which is the target of the relation to be removed. RET TRUE if the relationship is removed. -- Function: atk-role-get-name (role `') => (ret `mchars') Gets the description string describing the `'ROLE. ROLE The `' whose name is required RET the string describing the AtkRole -- Function: atk-role-get-localized-name (role `') => (ret `mchars') Gets the localized description string describing the `'ROLE. ROLE The `' whose localized name is required RET the localized string describing the AtkRole -- Function: atk-role-for-name (name `mchars') => (ret `') Get the `' type corresponding to a rolew name. NAME a string which is the (non-localized) name of an ATK role. RET the `' enumerated type corresponding to the specified name, or `' if no matching role is found.  File: guile-gnome-atk.info, Node: AtkRegistry, Next: AtkRelation, Prev: AtkObjectFactory, Up: Top 15 AtkRegistry ************** An object used to store the GType of the factories used to create an accessible object for an object of a particular GType. 15.1 Overview ============= The AtkRegistry is normally used to create appropriate ATK "peers" for user interface components. Application developers usually need only interact with the AtkRegistry by associating appropriate ATK implementation classes with GObject classes via the atk_registry_set_factory_type call, passing the appropriate GType for application custom widget classes. 15.2 Usage ========== -- Class: Derives from `'. This class defines no direct slots. -- Function: atk-registry-set-factory-type (self `') (type `') (factory_type `') -- Method: set-factory-type Associate an `' subclass with a `'. Note: The associated FACTORY-TYPE will thereafter be responsible for the creation of new `' implementations for instances appropriate for TYPE. REGISTRY the `' in which to register the type association TYPE an `' type FACTORY-TYPE an `' type to associate with TYPE. Must implement AtkObject appropriate for TYPE. -- Function: atk-registry-get-factory-type (self `') (type `') => (ret `') -- Method: get-factory-type Provides a `' indicating the `' subclass associated with TYPE. REGISTRY an `' TYPE a `' with which to look up the associated `' subclass RET a `' associated with type TYPE -- Function: atk-registry-get-factory (self `') (type `') => (ret `') -- Method: get-factory Gets an `' appropriate for creating `' appropriate for TYPE. REGISTRY an `' TYPE a `' with which to look up the associated `' RET an `' appropriate for creating `' appropriate for TYPE. -- Function: atk-get-default-registry => (ret `') Gets a default implementation of the `'/type registry. Note: For most toolkit maintainers, this will be the correct registry for registering new `' factories. Following a call to this function, maintainers may call `atk-registry-set-factory-type' to associate an `' subclass with the GType of objects for whom accessibility information will be provided. RET a default implementation of the `'/type registry  File: guile-gnome-atk.info, Node: AtkRelationSet, Next: AtkSelection, Prev: AtkRelation, Up: Top 16 AtkRelationSet ***************** A set of AtkRelations, normally the set of AtkRelations which an AtkObject has. 16.1 Overview ============= The AtkRelationSet held by an object establishes its relationships with objects beyond the normal "parent/child" hierarchical relationships that all user interface objects have. AtkRelationSets establish whether objects are labelled or controlled by other components, share group membership with other components (for instance within a radio-button group), or share content which "flows" between them, among other types of possible relationships. 16.2 Usage ========== -- Class: Derives from `'. This class defines no direct slots. -- Function: atk-relation-set-new => (ret `') Creates a new empty relation set. RET a new `' -- Function: atk-relation-set-contains (self `') (relationship `') => (ret `bool') -- Method: contains Determines whether the relation set contains a relation that matches the specified type. SET an `' RELATIONSHIP an `' RET ``#t'' if RELATIONSHIP is the relationship type of a relation in SET, ``#f'' otherwise -- Function: atk-relation-set-remove (self `') (relation `') -- Method: remove Removes a relation from the relation set. This function unref's the `' so it will be deleted unless there is another reference to it. SET an `' RELATION an `' -- Function: atk-relation-set-add (self `') (relation `') -- Method: add Add a new relation to the current relation set if it is not already present. This function ref's the AtkRelation so the caller of this function should unref it to ensure that it will be destroyed when the AtkRelationSet is destroyed. SET an `' RELATION an `' -- Function: atk-relation-set-get-n-relations (self `') => (ret `int') -- Method: get-n-relations Determines the number of relations in a relation set. SET an `' RET an integer representing the number of relations in the set. -- Function: atk-relation-set-get-relation (self `') (i `int') => (ret `') -- Method: get-relation Determines the relation at the specified position in the relation set. SET an `' I a gint representing a position in the set, starting from 0. RET a `', which is the relation at position i in the set.  File: guile-gnome-atk.info, Node: AtkRelation, Next: AtkRelationSet, Prev: AtkRegistry, Up: Top 17 AtkRelation ************** An object used to describe a relation between a object and one or more other objects. 17.1 Overview ============= An AtkRelation describes a relation between an object and one or more other objects. The actual relations that an object has with other objects are defined as an AtkRelationSet, which is a set of AtkRelations. 17.2 Usage ========== -- Class: Derives from `'. This class defines the following slots: `relation-type' The type of the relation `target' An array of the targets for the relation -- Function: atk-relation-type-register (name `mchars') => (ret `') Associate NAME with a new `' NAME a name string RET an `' associated with NAME -- Function: atk-relation-type-get-name (type `') => (ret `mchars') Gets the description string describing the `'TYPE. TYPE The `' whose name is required RET the string describing the AtkRelationType -- Function: atk-relation-type-for-name (name `mchars') => (ret `') Get the `' type corresponding to a relation name. NAME a string which is the (non-localized) name of an ATK relation type. RET the `' enumerated type corresponding to the specified name, or `' if no matching relation type is found. -- Function: atk-relation-get-relation-type (self `') => (ret `') -- Method: get-relation-type Gets the type of RELATION RELATION an `' RET the type of RELATION -- Function: atk-relation-add-target (self `') (target `') -- Method: add-target Adds the specified AtkObject to the target for the relation, if it is not already present. RELATION an `' TARGET an `' Since ATK 1.9  File: guile-gnome-atk.info, Node: AtkSelection, Next: AtkStateSet, Prev: AtkRelationSet, Up: Top 18 AtkSelection *************** The ATK interface implemented by container objects whose children can be selected. 18.1 Overview ============= `' should be implemented by UI components with children which are exposed by `' and `', if the use of the parent UI component ordinarily involves selection of one or more of the objects corresponding to those `' children - for example, selectable lists. Note that other types of "selection" (for instance text selection) are accomplished a other ATK interfaces - `' is limited to the selection/deselection of children. 18.2 Usage ========== -- Class: Derives from `'. This class defines no direct slots. -- Signal on : selection-changed The "selection-changed" signal is emitted by an object which implements AtkSelection interface when the selection changes. -- Function: atk-selection-add-selection (self `') (i `int') => (ret `bool') -- Method: add-selection Adds the specified accessible child of the object to the object's selection. SELECTION a `' instance that implements AtkSelectionIface I a `' specifying the child index. RET TRUE if success, FALSE otherwise. -- Function: atk-selection-clear-selection (self `') => (ret `bool') -- Method: clear-selection Clears the selection in the object so that no children in the object are selected. SELECTION a `' instance that implements AtkSelectionIface RET TRUE if success, FALSE otherwise. -- Function: atk-selection-ref-selection (self `') (i `int') => (ret `') -- Method: ref-selection Gets a reference to the accessible object representing the specified selected child of the object. Note: callers should not rely on ``#f'' or on a zero value for indication of whether AtkSelectionIface is implemented, they should use type checking/interface checking macros or the `atk-get-accessible-value' convenience method. SELECTION a `' instance that implements AtkSelectionIface I a `' specifying the index in the selection set. (e.g. the ith selection as opposed to the ith child). RET an `' representing the selected accessible , or ``#f'' if SELECTION does not implement this interface. -- Function: atk-selection-get-selection-count (self `') => (ret `int') -- Method: get-selection-count Gets the number of accessible children currently selected. Note: callers should not rely on ``#f'' or on a zero value for indication of whether AtkSelectionIface is implemented, they should use type checking/interface checking macros or the `atk-get-accessible-value' convenience method. SELECTION a `' instance that implements AtkSelectionIface RET a gint representing the number of items selected, or 0 if SELECTION does not implement this interface. -- Function: atk-selection-is-child-selected (self `') (i `int') => (ret `bool') -- Method: is-child-selected Determines if the current child of this object is selected Note: callers should not rely on ``#f'' or on a zero value for indication of whether AtkSelectionIface is implemented, they should use type checking/interface checking macros or the `atk-get-accessible-value' convenience method. SELECTION a `' instance that implements AtkSelectionIface I a `' specifying the child index. RET a gboolean representing the specified child is selected, or 0 if SELECTION does not implement this interface. -- Function: atk-selection-remove-selection (self `') (i `int') => (ret `bool') -- Method: remove-selection Removes the specified child of the object from the object's selection. SELECTION a `' instance that implements AtkSelectionIface I a `' specifying the index in the selection set. (e.g. the ith selection as opposed to the ith child). RET TRUE if success, FALSE otherwise. -- Function: atk-selection-select-all-selection (self `') => (ret `bool') -- Method: select-all-selection Causes every child of the object to be selected if the object supports multiple selections. SELECTION a `' instance that implements AtkSelectionIface RET TRUE if success, FALSE otherwise.  File: guile-gnome-atk.info, Node: AtkStateSet, Next: AtkState, Prev: AtkSelection, Up: Top 19 AtkStateSet ************** An AtkStateSet determines a component's state set. 19.1 Overview ============= An AtkStateSet determines a component's state set. It is composed of a set of AtkStates. 19.2 Usage ========== -- Function: atk-state-set-new => (ret `') Creates a new empty state set. RET a new `' -- Function: atk-state-set-is-empty (self `') => (ret `bool') -- Method: is-empty Checks whether the state set is empty, i.e. has no states set. SET an `' RET ``#t'' if SET has no states set, otherwise ``#f'' -- Function: atk-state-set-add-state (self `') (type `') => (ret `bool') -- Method: add-state Add a new state for the specified type to the current state set if it is not already present. SET an `' TYPE an `' RET ``#t'' if the state for TYPE is not already in SET. -- Function: atk-state-set-clear-states (self `') -- Method: clear-states Removes all states from the state set. SET an `' -- Function: atk-state-set-contains-state (self `') (type `') => (ret `bool') -- Method: contains-state Checks whether the state for the specified type is in the specified set. SET an `' TYPE an `' RET ``#t'' if TYPE is the state type is in SET. -- Function: atk-state-set-remove-state (self `') (type `') => (ret `bool') -- Method: remove-state Removes the state for the specified type from the state set. SET an `' TYPE an `' RET ``#t'' if TYPE was the state type is in SET. -- Function: atk-state-set-and-sets (self `') (compare_set `') => (ret `') -- Method: and-sets Constructs the intersection of the two sets, returning ``#f'' if the intersection is empty. SET an `' COMPARE-SET another `' RET a new `' which is the intersection of the two sets. -- Function: atk-state-set-or-sets (self `') (compare_set `') => (ret `') -- Method: or-sets Constructs the union of the two sets. SET an `' COMPARE-SET another `' RET a new `' which is the union of the two sets, returning ``#f'' is empty. -- Function: atk-state-set-xor-sets (self `') (compare_set `') => (ret `') -- Method: xor-sets Constructs the exclusive-or of the two sets, returning ``#f'' is empty. The set returned by this operation contains the states in exactly one of the two sets. SET an `' COMPARE-SET another `' RET a new `' which contains the states which are in exactly one of the two sets.  File: guile-gnome-atk.info, Node: AtkState, Next: AtkStreamableContent, Prev: AtkStateSet, Up: Top 20 AtkState *********** An AtkState describes a component's particular state. 20.1 Overview ============= An AtkState describes a component's particular state. The actual state of an component is described by its AtkStateSet, which is a set of AtkStates. 20.2 Usage ========== -- Function: atk-state-type-get-name (type `') => (ret `mchars') Gets the description string describing the `'TYPE. TYPE The `' whose name is required RET the string describing the AtkStateType -- Function: atk-state-type-for-name (name `mchars') => (ret `') Gets the `' corresponding to the description string NAME. NAME a character string state name RET an `' corresponding to NAME  File: guile-gnome-atk.info, Node: AtkStreamableContent, Next: AtkTable, Prev: AtkState, Up: Top 21 AtkStreamableContent *********************** The ATK interface which provides access to streamable content. 21.1 Overview ============= An interface whereby an object allows its backing content to be streamed to clients. Typical implementors would be images or icons, HTML content, or multimedia display/rendering widgets. Negotiation of content type is allowed. Clients may examine the backing data and transform, convert, or parse the content in order to present it in an alternate form to end-users. The AtkStreamableContent interface is particularly useful for saving, printing, or post-processing entire documents, or for persisting alternate views of a document. If document content itself is being serialized, stored, or converted, then use of the AtkStreamableContent interface can help address performance issues. Unlike most ATK interfaces, this interface is not strongly tied to the current user-agent view of the a particular document, but may in some cases give access to the underlying model data. 21.2 Usage ========== -- Class: Derives from `'. This class defines no direct slots. -- Function: atk-streamable-content-get-stream (self `') (mime_type `mchars') => (ret `') -- Method: get-stream Gets the content in the specified mime type. STREAMABLE a GObject instance that implements AtkStreamableContentIface MIME-TYPE a gchar* representing the mime type RET A `' which contains the content in the specified mime type. -- Function: atk-streamable-content-get-uri (self `') (mime_type `mchars') => (ret `mchars') -- Method: get-uri Get a string representing a URI in IETF standard format (see http://www.ietf.org/rfc/rfc2396.txt) from which the object's content may be streamed in the specified mime-type, if one is available. If mime_type is NULL, the URI for the default (and possibly only) mime-type is returned. Note that it is possible for get_uri to return NULL but for get_stream to work nonetheless, since not all GIOChannels connect to URIs. STREAMABLE a GObject instance that implements AtkStreamableContentIface MIME-TYPE a gchar* representing the mime type, or NULL to request a URI for the default mime type. RET Returns a string representing a URI, or NULL if no corresponding URI can be constructed. Since ATK 1.12  File: guile-gnome-atk.info, Node: AtkTable, Next: AtkText, Prev: AtkStreamableContent, Up: Top 22 AtkTable *********** The ATK interface implemented for UI components which contain tabular or row/column information. 22.1 Overview ============= `' should be implemented by components which present elements ordered via rows and columns. It may also be used to present tree-structured information if the nodes of the trees can be said to contain multiple "columns". Individual elements of an `' are typically referred to as "cells", and these cells are exposed by `' as child `' of the `'. Both row/column and child-index-based access to these children is provided. Children of `' are frequently "lightweight" objects, that is, they may not have backing widgets in the host UI toolkit. They are therefore often transient. Since tables are often very complex, `' includes provision for offering simplified summary information, as well as row and column headers and captions. Headers and captions are `' which may implement other interfaces (`', `', etc.) as appropriate. `' summaries may themselves be (simplified) `', etc. 22.2 Usage ========== -- Class: Derives from `'. This class defines no direct slots. -- Signal on : row-inserted (arg0 `') (arg1 `') The "row-inserted" signal is emitted by an object which implements the AtkTable interface when a column is inserted. -- Signal on : column-inserted (arg0 `') (arg1 `') The "column-inserted" signal is emitted by an object which implements the AtkTable interface when a column is inserted. -- Signal on : row-deleted (arg0 `') (arg1 `') The "row-deleted" signal is emitted by an object which implements the AtkTable interface when a column is inserted. -- Signal on : column-deleted (arg0 `') (arg1 `') The "column-deleted" signal is emitted by an object which implements the AtkTable interface when a column is deleted. -- Signal on : row-reordered The "row-reordered" signal is emitted by an object which implements the AtkTable interface when the columns are reordered. -- Signal on : column-reordered The "column-reordered" signal is emitted by an object which implements the AtkTable interface when the columns are reordered. -- Signal on : model-changed The "model-changed" signal is emitted by an object which implements the AtkTable interface when the model displayed by the table changes. -- Function: atk-table-ref-at (self `') (row `int') (column `int') => (ret `') -- Method: ref-at Get a reference to the table cell at ROW, COLUMN. TABLE a GObject instance that implements AtkTableIface ROW a `' representing a row in TABLE COLUMN a `' representing a column in TABLE RET a AtkObject* representing the referred to accessible -- Function: atk-table-get-index-at (self `') (row `int') (column `int') => (ret `int') -- Method: get-index-at Gets a `' representing the index at the specified ROW and COLUMN. TABLE a GObject instance that implements AtkTableIface ROW a `' representing a row in TABLE COLUMN a `' representing a column in TABLE RET a `' representing the index at specified position. The value -1 is returned if the object at row,column is not a child of table or table does not implement this interface. -- Function: atk-table-get-column-at-index (self `') (index_ `int') => (ret `int') -- Method: get-column-at-index Gets a `' representing the column at the specified INDEX. TABLE a GObject instance that implements AtkTableInterface INDEX a `' representing an index in TABLE RET a gint representing the column at the specified index, or -1 if the table does not implement this interface -- Function: atk-table-get-row-at-index (self `') (index_ `int') => (ret `int') -- Method: get-row-at-index Gets a `' representing the row at the specified INDEX. TABLE a GObject instance that implements AtkTableInterface INDEX a `' representing an index in TABLE RET a gint representing the row at the specified index, or -1 if the table does not implement this interface -- Function: atk-table-get-n-columns (self `') => (ret `int') -- Method: get-n-columns Gets the number of columns in the table. TABLE a GObject instance that implements AtkTableIface RET a gint representing the number of columns, or 0 if value does not implement this interface. -- Function: atk-table-get-n-rows (self `') => (ret `int') -- Method: get-n-rows Gets the number of rows in the table. TABLE a GObject instance that implements AtkTableIface RET a gint representing the number of rows, or 0 if value does not implement this interface. -- Function: atk-table-get-column-extent-at (self `') (row `int') (column `int') => (ret `int') -- Method: get-column-extent-at Gets the number of columns occupied by the accessible object at the specified ROW and COLUMN in the TABLE. TABLE a GObject instance that implements AtkTableIface ROW a `' representing a row in TABLE COLUMN a `' representing a column in TABLE RET a gint representing the column extent at specified position, or 0 if value does not implement this interface. -- Function: atk-table-get-row-extent-at (self `') (row `int') (column `int') => (ret `int') -- Method: get-row-extent-at Gets the number of rows occupied by the accessible object at a specified ROW and COLUMN in the TABLE. TABLE a GObject instance that implements AtkTableIface ROW a `' representing a row in TABLE COLUMN a `' representing a column in TABLE RET a gint representing the row extent at specified position, or 0 if value does not implement this interface. -- Function: atk-table-get-caption (self `') => (ret `') -- Method: get-caption Gets the caption for the TABLE. TABLE a GObject instance that implements AtkTableInterface RET a AtkObject* representing the table caption, or ``#f'' if value does not implement this interface. -- Function: atk-table-get-column-description (self `') (column `int') => (ret `mchars') -- Method: get-column-description Gets the description text of the specified COLUMN in the table TABLE a GObject instance that implements AtkTableIface COLUMN a `' representing a column in TABLE RET a gchar* representing the column description, or ``#f'' if value does not implement this interface. -- Function: atk-table-get-row-description (self `') (row `int') => (ret `mchars') -- Method: get-row-description Gets the description text of the specified row in the table TABLE a GObject instance that implements AtkTableIface ROW a `' representing a row in TABLE RET a gchar* representing the row description, or ``#f'' if value does not implement this interface. -- Function: atk-table-get-column-header (self `') (column `int') => (ret `') -- Method: get-column-header Gets the column header of a specified column in an accessible table. TABLE a GObject instance that implements AtkTableIface COLUMN a `' representing a column in the table RET a AtkObject* representing the specified column header, or ``#f'' if value does not implement this interface. -- Function: atk-table-get-row-header (self `') (row `int') => (ret `') -- Method: get-row-header Gets the row header of a specified row in an accessible table. TABLE a GObject instance that implements AtkTableIface ROW a `' representing a row in the table RET a AtkObject* representing the specified row header, or ``#f'' if value does not implement this interface. -- Function: atk-table-get-summary (self `') => (ret `') -- Method: get-summary Gets the summary description of the table. TABLE a GObject instance that implements AtkTableIface RET a AtkObject* representing a summary description of the table, or zero if value does not implement this interface. -- Function: atk-table-set-caption (self `') (caption `') -- Method: set-caption Sets the caption for the table. TABLE a GObject instance that implements AtkTableIface CAPTION a `' representing the caption to set for TABLE -- Function: atk-table-set-row-description (self `') (row `int') (description `mchars') -- Method: set-row-description Sets the description text for the specified ROW of TABLE. TABLE a GObject instance that implements AtkTableIface ROW a `' representing a row in TABLE DESCRIPTION a `' representing the description text to set for the specified ROW of TABLE -- Function: atk-table-set-column-description (self `') (column `int') (description `mchars') -- Method: set-column-description Sets the description text for the specified COLUMN of the TABLE. TABLE a GObject instance that implements AtkTableIface COLUMN a `' representing a column in TABLE DESCRIPTION a `' representing the description text to set for the specified COLUMN of the TABLE -- Function: atk-table-set-row-header (self `') (row `int') (header `') -- Method: set-row-header Sets the specified row header to HEADER. TABLE a GObject instance that implements AtkTableIface ROW a `' representing a row in TABLE HEADER an `' -- Function: atk-table-set-column-header (self `') (column `int') (header `') -- Method: set-column-header Sets the specified column header to HEADER. TABLE a GObject instance that implements AtkTableIface COLUMN a `' representing a column in TABLE HEADER an `' -- Function: atk-table-set-summary (self `') (accessible `') -- Method: set-summary Sets the summary description of the table. TABLE a GObject instance that implements AtkTableIface ACCESSIBLE an `' representing the summary description to set for TABLE -- Function: atk-table-is-column-selected (self `') (column `int') => (ret `bool') -- Method: is-column-selected Gets a boolean value indicating whether the specified COLUMN is selected TABLE a GObject instance that implements AtkTableIface COLUMN a `' representing a column in TABLE RET a gboolean representing if the column is selected, or 0 if value does not implement this interface. -- Function: atk-table-is-row-selected (self `') (row `int') => (ret `bool') -- Method: is-row-selected Gets a boolean value indicating whether the specified ROW is selected TABLE a GObject instance that implements AtkTableIface ROW a `' representing a row in TABLE RET a gboolean representing if the row is selected, or 0 if value does not implement this interface. -- Function: atk-table-is-selected (self `') (row `int') (column `int') => (ret `bool') -- Method: is-selected Gets a boolean value indicating whether the accessible object at the specified ROW and COLUMN is selected TABLE a GObject instance that implements AtkTableIface ROW a `' representing a row in TABLE COLUMN a `' representing a column in TABLE RET a gboolean representing if the cell is selected, or 0 if value does not implement this interface. -- Function: atk-table-add-column-selection (self `') (column `int') => (ret `bool') -- Method: add-column-selection Adds the specified COLUMN to the selection. TABLE a GObject instance that implements AtkTableIface COLUMN a `' representing a column in TABLE RET a gboolean representing if the column was successfully added to the selection, or 0 if value does not implement this interface. -- Function: atk-table-add-row-selection (self `') (row `int') => (ret `bool') -- Method: add-row-selection Adds the specified ROW to the selection. TABLE a GObject instance that implements AtkTableIface ROW a `' representing a row in TABLE RET a gboolean representing if row was successfully added to selection, or 0 if value does not implement this interface. -- Function: atk-table-remove-column-selection (self `') (column `int') => (ret `bool') -- Method: remove-column-selection Adds the specified COLUMN to the selection. TABLE a GObject instance that implements AtkTableIface COLUMN a `' representing a column in TABLE RET a gboolean representing if the column was successfully removed from the selection, or 0 if value does not implement this interface. -- Function: atk-table-remove-row-selection (self `') (row `int') => (ret `bool') -- Method: remove-row-selection Removes the specified ROW from the selection. TABLE a GObject instance that implements AtkTableIface ROW a `' representing a row in TABLE RET a gboolean representing if the row was successfully removed from the selection, or 0 if value does not implement this interface.  File: guile-gnome-atk.info, Node: AtkText, Next: AtkUtil, Prev: AtkTable, Up: Top 23 AtkText ********** The ATK interface implemented by components with text content. 23.1 Overview ============= `' should be implemented by `' on behalf of widgets that have text content which is either attributed or otherwise non-trivial. `' whose text content is simple, unattributed, and very brief may expose that content via `' instead; however if the text is editable, multi-line, typically longer than three or four words, attributed, selectable, or if the object already uses the 'name' ATK property for other information, the `' interface should be used to expose the text content. In the case of editable text content, `' (a subtype of the `' interface) should be implemented instead. `' provides not only traversal facilities and change notification for text content, but also caret tracking and glyph bounding box calculations. Note that the text strings are exposed as UTF-8, and are therefore potentially multi-byte, and caret-to-byte offset mapping makes no assumptions about the character length; also bounding box glyph-to-offset mapping may be complex for languages which use ligatures. 23.2 Usage ========== -- Class: Derives from `'. This class defines no direct slots. -- Signal on : text-changed (arg0 `') (arg1 `') The "text-changed" signal is emitted when the text of the object which implements the AtkText interface changes, This signal will have a detail which is either "insert" or "delete" which identifies whether the text change was an insertion or a deletion -- Signal on : text-caret-moved (arg0 `') The "text-caret-moved" signal is emitted when the caret position of the text of an object which implements AtkText changes. -- Signal on : text-selection-changed The "text-selection-changed" signal is emitted when the selected text of an object which implements AtkText changes. -- Signal on : text-attributes-changed The "text-attributes-changed" signal is emitted when the text attributes of the text of an object which implements AtkText changes. -- Function: atk-text-get-text (self `') (start_offset `int') (end_offset `int') => (ret `mchars') -- Method: get-text Gets the specified text. TEXT an `' START-OFFSET start position END-OFFSET end position RET the text from START-OFFSET up to, but not including END-OFFSET. -- Function: atk-text-get-character-at-offset (self `') (offset `int') => (ret `unsigned-int32') -- Method: get-character-at-offset Gets the specified text. TEXT an `' OFFSET position RET the character at OFFSET. -- Function: atk-text-get-text-after-offset (self `') (offset `int') (boundary_type `') => (ret `mchars') (start_offset `int') (end_offset `int') -- Method: get-text-after-offset Gets the specified text. If the boundary_type if ATK_TEXT_BOUNDARY_CHAR the character after the offset is returned. If the boundary_type is ATK_TEXT_BOUNDARY_WORD_START the returned string is from the word start after the offset to the next word start. The returned string will contain the word after the offset if the offset is inside a word or if the offset is not inside a word. If the boundary_type is ATK_TEXT_BOUNDARY_WORD_END the returned string is from the word end at or after the offset to the next work end. The returned string will contain the word after the offset if the offset is inside a word and will contain the word after the word after the offset if the offset is not inside a word. If the boundary type is ATK_TEXT_BOUNDARY_SENTENCE_START the returned string is from the sentence start after the offset to the next sentence start. The returned string will contain the sentence after the offset if the offset is inside a sentence or if the offset is not inside a sentence. If the boundary_type is ATK_TEXT_BOUNDARY_SENTENCE_END the returned string is from the sentence end at or after the offset to the next sentence end. The returned string will contain the sentence after the offset if the offset is inside a sentence and will contain the sentence after the sentence after the offset if the offset is not inside a sentence. If the boundary type is ATK_TEXT_BOUNDARY_LINE_START the returned string is from the line start after the offset to the next line start. If the boundary_type is ATK_TEXT_BOUNDARY_LINE_END the returned string is from the line end at or after the offset to the next line start. TEXT an `' OFFSET position BOUNDARY-TYPE An `' START-OFFSET the start offset of the returned string END-OFFSET the offset of the first character after the returned substring RET the text after OFFSET bounded by the specified BOUNDARY-TYPE. -- Function: atk-text-get-text-at-offset (self `') (offset `int') (boundary_type `') => (ret `mchars') (start_offset `int') (end_offset `int') -- Method: get-text-at-offset Gets the specified text. If the boundary_type if ATK_TEXT_BOUNDARY_CHAR the character at the offset is returned. If the boundary_type is ATK_TEXT_BOUNDARY_WORD_START the returned string is from the word start at or before the offset to the word start after the offset. The returned string will contain the word at the offset if the offset is inside a word and will contain the word before the offset if the offset is not inside a word. If the boundary_type is ATK_TEXT_BOUNDARY_WORD_END the returned string is from the word end before the offset to the word end at or after the offset. The returned string will contain the word at the offset if the offset is inside a word and will contain the word after to the offset if the offset is not inside a word. If the boundary type is ATK_TEXT_BOUNDARY_SENTENCE_START the returned string is from the sentence start at or before the offset to the sentence start after the offset. The returned string will contain the sentence at the offset if the offset is inside a sentence and will contain the sentence before the offset if the offset is not inside a sentence. If the boundary_type is ATK_TEXT_BOUNDARY_SENTENCE_END the returned string is from the sentence end before the offset to the sentence end at or after the offset. The returned string will contain the sentence at the offset if the offset is inside a sentence and will contain the sentence after the offset if the offset is not inside a sentence. If the boundary type is ATK_TEXT_BOUNDARY_LINE_START the returned string is from the line start at or before the offset to the line start after the offset. If the boundary_type is ATK_TEXT_BOUNDARY_LINE_END the returned string is from the line end before the offset to the line end at or after the offset. TEXT an `' OFFSET position BOUNDARY-TYPE An `' START-OFFSET the start offset of the returned string END-OFFSET the offset of the first character after the returned substring RET the text at OFFSET bounded by the specified BOUNDARY-TYPE. -- Function: atk-text-get-text-before-offset (self `') (offset `int') (boundary_type `') => (ret `mchars') (start_offset `int') (end_offset `int') -- Method: get-text-before-offset Gets the specified text. If the boundary_type if ATK_TEXT_BOUNDARY_CHAR the character before the offset is returned. If the boundary_type is ATK_TEXT_BOUNDARY_WORD_START the returned string is from the word start before the word start before the offset to the word start before the offset. The returned string will contain the word before the offset if the offset is inside a word and will contain the word before the word before the offset if the offset is not inside a word. If the boundary_type is ATK_TEXT_BOUNDARY_WORD_END the returned string is from the word end before the word end at or before the offset to the word end at or before the offset. The returned string will contain the word before the offset if the offset is inside a word or if the offset is not inside a word. If the boundary type is ATK_TEXT_BOUNDARY_SENTENCE_START the returned string is from the sentence start before the sentence start before the offset to the sentence start before the offset. The returned string will contain the sentence before the offset if the offset is inside a sentence and will contain the sentence before the sentence before the offset if the offset is not inside a sentence. If the boundary_type is ATK_TEXT_BOUNDARY_SENTENCE_END the returned string is from the sentence end before the sentence end at or before the offset to the sentence end at or before the offset. The returned string will contain the sentence before the offset if the offset is inside a sentence or if the offset is not inside a sentence. If the boundary type is ATK_TEXT_BOUNDARY_LINE_START the returned string is from the line start before the line start ar or before the offset to the line start ar or before the offset. If the boundary_type is ATK_TEXT_BOUNDARY_LINE_END the returned string is from the line end before the line end before the offset to the line end before the offset. TEXT an `' OFFSET position BOUNDARY-TYPE An `' START-OFFSET the start offset of the returned string END-OFFSET the offset of the first character after the returned substring RET the text before OFFSET bounded by the specified BOUNDARY-TYPE. -- Function: atk-text-get-caret-offset (self `') => (ret `int') -- Method: get-caret-offset Gets the offset position of the caret (cursor). TEXT an `' RET the offset position of the caret (cursor). -- Function: atk-text-get-character-extents (self `') (offset `int') (coords `') => (x `int') (y `int') (width `int') (height `int') -- Method: get-character-extents Get the bounding box containing the glyph representing the character at a particular text offset. TEXT an `' OFFSET The offset of the text character for which bounding information is required. X Pointer for the x cordinate of the bounding box Y Pointer for the y cordinate of the bounding box WIDTH Pointer for the width of the bounding box HEIGHT Pointer for the height of the bounding box COORDS specify whether coordinates are relative to the screen or widget window -- Function: atk-text-get-character-count (self `') => (ret `int') -- Method: get-character-count Gets the character count. TEXT an `' RET the number of characters. -- Function: atk-text-get-offset-at-point (self `') (x `int') (y `int') (coords `') => (ret `int') -- Method: get-offset-at-point Gets the offset of the character located at coordinates X and Y. X and Y are interpreted as being relative to the screen or this widget's window depending on COORDS. TEXT an `' X screen x-position of character Y screen y-position of character COORDS specify whether coordinates are relative to the screen or widget window RET the offset to the character which is located at the specified X and Y coordinates. -- Function: atk-text-get-n-selections (self `') => (ret `int') -- Method: get-n-selections Gets the number of selected regions. TEXT an `' RET The number of selected regions, or -1 if a failure occurred. -- Function: atk-text-get-selection (self `') (selection_num `int') => (ret `mchars') (start_offset `int') (end_offset `int') -- Method: get-selection Gets the text from the specified selection. TEXT an `' SELECTION-NUM The selection number. The selected regions are assigned numbers that correspond to how far the region is from the start of the text. The selected region closest to the beginning of the text region is assigned the number 0, etc. Note that adding, moving or deleting a selected region can change the numbering. START-OFFSET passes back the start position of the selected region END-OFFSET passes back the end position of (e.g. offset immediately past) the selected region RET the selected text. -- Function: atk-text-add-selection (self `') (start_offset `int') (end_offset `int') => (ret `bool') -- Method: add-selection Adds a selection bounded by the specified offsets. TEXT an `' START-OFFSET the start position of the selected region END-OFFSET the offset of the first character after the selected region. RET ``#t'' if success, ``#f'' otherwise -- Function: atk-text-remove-selection (self `') (selection_num `int') => (ret `bool') -- Method: remove-selection Removes the specified selection. TEXT an `' SELECTION-NUM The selection number. The selected regions are assigned numbers that correspond to how far the region is from the start of the text. The selected region closest to the beginning of the text region is assigned the number 0, etc. Note that adding, moving or deleting a selected region can change the numbering. RET ``#t'' if success, ``#f'' otherwise -- Function: atk-text-set-selection (self `') (selection_num `int') (start_offset `int') (end_offset `int') => (ret `bool') -- Method: set-selection Changes the start and end offset of the specified selection. TEXT an `' SELECTION-NUM The selection number. The selected regions are assigned numbers that correspond to how far the region is from the start of the text. The selected region closest to the beginning of the text region is assigned the number 0, etc. Note that adding, moving or deleting a selected region can change the numbering. START-OFFSET the new start position of the selection END-OFFSET the new end position of (e.g. offset immediately past) the selection RET ``#t'' if success, ``#f'' otherwise -- Function: atk-text-set-caret-offset (self `') (offset `int') => (ret `bool') -- Method: set-caret-offset Sets the caret (cursor) position to the specified OFFSET. TEXT an `' OFFSET position RET ``#t'' if success, ``#f'' otherwise. -- Function: atk-text-attribute-get-name (attr `') => (ret `mchars') Gets the name corresponding to the `' ATTR The `' whose name is required RET a string containing the name; this string should not be freed -- Function: atk-text-attribute-for-name (name `mchars') => (ret `') Get the `' type corresponding to a text attribute name. NAME a string which is the (non-localized) name of an ATK text attribute. RET the `' enumerated type corresponding to the specified name, or `' if no matching text attribute is found. -- Function: atk-text-attribute-get-value (attr `') (index_ `int') => (ret `mchars') Gets the value for the index of the `' ATTR The `' for which a value is required INDEX The index of the required value RET a string containing the value; this string should not be freed; NULL is returned if there are no values maintained for the attr value.  File: guile-gnome-atk.info, Node: AtkUtil, Next: AtkValue, Prev: AtkText, Up: Top 24 AtkUtil ********** A set of ATK utility functions for event and toolkit support. 24.1 Overview ============= A set of ATK utility functions which are used to support event registration of various types, and obtaining the 'root' accessible of a process and information about the current ATK implementation and toolkit version. 24.2 Usage ========== -- Class: Derives from `'. This class defines no direct slots. -- Function: atk-remove-focus-tracker (tracker_id `unsigned-int') Removes the specified focus tracker from the list of functions to be called when any object receives focus. TRACKER-ID the id of the focus tracker to remove -- Function: atk-focus-tracker-notify (object `') Cause the focus tracker functions which have been specified to be executed for the object. OBJECT an `' -- Function: atk-remove-global-event-listener (listener_id `unsigned-int') Removes the specified event listener LISTENER-ID the id of the event listener to remove -- Function: atk-remove-key-event-listener (listener_id `unsigned-int') Removes the specified event listener LISTENER-ID the id of the event listener to remove -- Function: atk-get-root => (ret `') Gets the root accessible container for the current application. RET the root accessible container for the current application -- Function: atk-get-focus-object => (ret `') Gets the currently focused object. Returns: RET the currently focused object for the current application Since ATK 1.6 -- Function: atk-get-toolkit-name => (ret `mchars') Gets name string for the GUI toolkit implementing ATK for this application. RET name string for the GUI toolkit implementing ATK for this application -- Function: atk-get-toolkit-version => (ret `mchars') Gets version string for the GUI toolkit implementing ATK for this application. RET version string for the GUI toolkit implementing ATK for this application  File: guile-gnome-atk.info, Node: AtkValue, Next: Undocumented, Prev: AtkUtil, Up: Top 25 AtkValue *********** The ATK interface implemented by valuators and components which display or select a value from a bounded range of values. 25.1 Overview ============= `' should be implemented for components which either display a value from a bounded range, or which allow the user to specify a value from a bounded range, or both. For instance, most sliders and range controls, as well as dials, should have `' representations which implement `' on the component's behalf. `' may be read-only, in which case attempts to alter the value return FALSE to indicate failure. 25.2 Usage ========== -- Class: Derives from `'. This class defines no direct slots. -- Function: atk-value-get-current-value (self `') (value `') -- Method: get-current-value Gets the value of this object. OBJ a GObject instance that implements AtkValueIface VALUE a `' representing the current accessible value -- Function: atk-value-get-maximum-value (self `') (value `') -- Method: get-maximum-value Gets the maximum value of this object. OBJ a GObject instance that implements AtkValueIface VALUE a `' representing the maximum accessible value -- Function: atk-value-get-minimum-value (self `') (value `') -- Method: get-minimum-value Gets the minimum value of this object. OBJ a GObject instance that implements AtkValueIface VALUE a `' representing the minimum accessible value -- Function: atk-value-set-current-value (self `') (value `') => (ret `bool') -- Method: set-current-value Sets the value of this object. OBJ a GObject instance that implements AtkValueIface VALUE a `' which is the desired new accessible value. RET ``#t'' if new value is successfully set, ``#f'' otherwise. -- Function: atk-value-get-minimum-increment (self `') (value `') -- Method: get-minimum-increment Gets the minimum increment by which the value of this object may be changed. If zero, the minimum increment is undefined, which may mean that it is limited only by the floating point precision of the platform. OBJ a GObject instance that implements AtkValueIface VALUE a `' representing the minimum increment by which the accessible value may be changed Since ATK 1.12  File: guile-gnome-atk.info, Node: Undocumented, Next: Type Index, Prev: AtkValue, Up: Top 26 Undocumented *************** The following symbols, if any, have not been properly documented. 26.1 (gnome gw atk) =================== -- Variable: atk-component-ref-accessible-at-point -- Variable: atk-object-factory-create-accessible -- Function: atk-object-factory-get-accessible-type -- Variable: atk-object-get-n-accessible-children -- Variable: atk-relation-set-add-relation-by-type -- Variable: atk-relation-set-get-relation-by-type -- Variable: atk-streamable-content-get-mime-type -- Variable: atk-streamable-content-get-n-mime-types  File: guile-gnome-atk.info, Node: Type Index, Next: Function Index, Prev: Undocumented, Up: Top Type Index ********** [index] * Menu: * : AtkAction. (line 41) * : AtkComponent. (line 27) * : AtkDocument. (line 24) * : AtkEditableText. (line 24) * : AtkGObjectAccessible. (line 21) * : AtkHyperlinkImpl. (line 28) * : AtkHyperlink. (line 22) * : AtkHypertext. (line 25) * : AtkImage. (line 29) * : AtkObject. (line 126) * : AtkNoOpObjectFactory. (line 19) * : AtkNoOpObject. (line 20) * : AtkObjectFactory. (line 22) * : AtkObject. (line 32) * : AtkRegistry. (line 23) * : AtkRelationSet. (line 24) * : AtkRelation. (line 21) * : AtkSelection. (line 27) * : AtkStreamableContent. (line 32) * : AtkTable. (line 35) * : AtkText. (line 34) * : AtkUtil. (line 20) * : AtkValue. (line 24)  File: guile-gnome-atk.info, Node: Function Index, Prev: Type Index, Up: Top Function Index ************** [index] * Menu: * active-descendant-changed on : AtkObject. (line 119) * add: AtkRelationSet. (line 73) * add-column-selection: AtkTable. (line 472) * add-relationship: AtkObject. (line 375) * add-row-selection: AtkTable. (line 490) * add-selection <1>: AtkText. (line 436) * add-selection: AtkSelection. (line 40) * add-state: AtkStateSet. (line 41) * add-target: AtkRelation. (line 90) * and-sets: AtkStateSet. (line 100) * atk-action-do-action: AtkAction. (line 48) * atk-action-get-description: AtkAction. (line 80) * atk-action-get-keybinding: AtkAction. (line 131) * atk-action-get-localized-name: AtkAction. (line 114) * atk-action-get-n-actions: AtkAction. (line 64) * atk-action-get-name: AtkAction. (line 97) * atk-action-set-description: AtkAction. (line 148) * atk-component-contains: AtkComponent. (line 39) * atk-component-get-alpha: AtkComponent. (line 244) * atk-component-get-extents: AtkComponent. (line 65) * atk-component-get-layer: AtkComponent. (line 91) * atk-component-get-mdi-zorder: AtkComponent. (line 104) * atk-component-get-position: AtkComponent. (line 121) * atk-component-get-size: AtkComponent. (line 142) * atk-component-grab-focus: AtkComponent. (line 158) * atk-component-set-extents: AtkComponent. (line 172) * atk-component-set-position: AtkComponent. (line 202) * atk-component-set-size: AtkComponent. (line 225) * atk-document-get-attribute-value: AtkDocument. (line 72) * atk-document-get-document-type: AtkDocument. (line 59) * atk-document-get-locale: AtkDocument. (line 118) * atk-document-set-attribute-value: AtkDocument. (line 94) * atk-editable-text-copy-text: AtkEditableText. (line 66) * atk-editable-text-cut-text: AtkEditableText. (line 83) * atk-editable-text-delete-text: AtkEditableText. (line 100) * atk-editable-text-insert-text: AtkEditableText. (line 45) * atk-editable-text-paste-text: AtkEditableText. (line 116) * atk-editable-text-set-text-contents: AtkEditableText. (line 31) * atk-focus-tracker-notify: AtkUtil. (line 35) * atk-get-default-registry: AtkRegistry. (line 86) * atk-get-focus-object: AtkUtil. (line 69) * atk-get-root: AtkUtil. (line 61) * atk-get-toolkit-name: AtkUtil. (line 81) * atk-get-toolkit-version: AtkUtil. (line 91) * atk-gobject-accessible-for-object: AtkGObjectAccessible. (line 28) * atk-gobject-accessible-get-object: AtkGObjectAccessible. (line 40) * atk-hyperlink-get-end-index: AtkHyperlink. (line 85) * atk-hyperlink-get-n-anchors: AtkHyperlink. (line 143) * atk-hyperlink-get-object: AtkHyperlink. (line 64) * atk-hyperlink-get-start-index: AtkHyperlink. (line 98) * atk-hyperlink-get-uri: AtkHyperlink. (line 46) * atk-hyperlink-impl-get-hyperlink: AtkHyperlinkImpl. (line 35) * atk-hyperlink-is-inline: AtkHyperlink. (line 128) * atk-hyperlink-is-selected-link: AtkHyperlink. (line 156) * atk-hyperlink-is-valid: AtkHyperlink. (line 113) * atk-hypertext-get-link: AtkHypertext. (line 37) * atk-hypertext-get-link-index: AtkHypertext. (line 66) * atk-hypertext-get-n-links: AtkHypertext. (line 53) * atk-image-get-image-description: AtkImage. (line 59) * atk-image-get-image-locale: AtkImage. (line 108) * atk-image-get-image-position: AtkImage. (line 36) * atk-image-get-image-size: AtkImage. (line 88) * atk-image-set-image-description: AtkImage. (line 72) * atk-implementor-ref-accessible: AtkObject. (line 133) * atk-no-op-object-factory-new: AtkNoOpObjectFactory. (line 26) * atk-no-op-object-new: AtkNoOpObject. (line 30) * atk-object-add-relationship: AtkObject. (line 374) * atk-object-factory-get-accessible-type: Undocumented. (line 16) * atk-object-factory-invalidate: AtkObjectFactory. (line 29) * atk-object-get-description: AtkObject. (line 163) * atk-object-get-index-in-parent: AtkObject. (line 291) * atk-object-get-layer: AtkObject. (line 224) * atk-object-get-mdi-zorder: AtkObject. (line 242) * atk-object-get-name: AtkObject. (line 149) * atk-object-get-parent: AtkObject. (line 177) * atk-object-get-role: AtkObject. (line 263) * atk-object-notify-state-change: AtkObject. (line 356) * atk-object-ref-accessible-child: AtkObject. (line 191) * atk-object-ref-relation-set: AtkObject. (line 210) * atk-object-ref-state-set: AtkObject. (line 276) * atk-object-remove-relationship: AtkObject. (line 395) * atk-object-set-description: AtkObject. (line 317) * atk-object-set-name: AtkObject. (line 304) * atk-object-set-parent: AtkObject. (line 330) * atk-object-set-role: AtkObject. (line 343) * atk-registry-get-factory: AtkRegistry. (line 68) * atk-registry-get-factory-type: AtkRegistry. (line 50) * atk-registry-set-factory-type: AtkRegistry. (line 30) * atk-relation-add-target: AtkRelation. (line 89) * atk-relation-get-relation-type: AtkRelation. (line 76) * atk-relation-set-add: AtkRelationSet. (line 72) * atk-relation-set-contains: AtkRelationSet. (line 39) * atk-relation-set-get-n-relations: AtkRelationSet. (line 88) * atk-relation-set-get-relation: AtkRelationSet. (line 101) * atk-relation-set-new: AtkRelationSet. (line 30) * atk-relation-set-remove: AtkRelationSet. (line 57) * atk-relation-type-for-name: AtkRelation. (line 60) * atk-relation-type-get-name: AtkRelation. (line 47) * atk-relation-type-register: AtkRelation. (line 35) * atk-remove-focus-tracker: AtkUtil. (line 26) * atk-remove-global-event-listener: AtkUtil. (line 45) * atk-remove-key-event-listener: AtkUtil. (line 53) * atk-role-for-name: AtkObject. (line 439) * atk-role-get-localized-name: AtkObject. (line 427) * atk-role-get-name: AtkObject. (line 415) * atk-selection-add-selection: AtkSelection. (line 39) * atk-selection-clear-selection: AtkSelection. (line 56) * atk-selection-get-selection-count: AtkSelection. (line 93) * atk-selection-is-child-selected: AtkSelection. (line 111) * atk-selection-ref-selection: AtkSelection. (line 70) * atk-selection-remove-selection: AtkSelection. (line 132) * atk-selection-select-all-selection: AtkSelection. (line 150) * atk-state-set-add-state: AtkStateSet. (line 40) * atk-state-set-and-sets: AtkStateSet. (line 99) * atk-state-set-clear-states: AtkStateSet. (line 56) * atk-state-set-contains-state: AtkStateSet. (line 66) * atk-state-set-is-empty: AtkStateSet. (line 27) * atk-state-set-new: AtkStateSet. (line 18) * atk-state-set-or-sets: AtkStateSet. (line 117) * atk-state-set-remove-state: AtkStateSet. (line 83) * atk-state-set-xor-sets: AtkStateSet. (line 134) * atk-state-type-for-name: AtkState. (line 32) * atk-state-type-get-name: AtkState. (line 20) * atk-streamable-content-get-stream: AtkStreamableContent. (line 40) * atk-streamable-content-get-uri: AtkStreamableContent. (line 58) * atk-table-add-column-selection: AtkTable. (line 471) * atk-table-add-row-selection: AtkTable. (line 489) * atk-table-get-caption: AtkTable. (line 224) * atk-table-get-column-at-index: AtkTable. (line 121) * atk-table-get-column-description: AtkTable. (line 238) * atk-table-get-column-extent-at: AtkTable. (line 182) * atk-table-get-column-header: AtkTable. (line 272) * atk-table-get-index-at: AtkTable. (line 99) * atk-table-get-n-columns: AtkTable. (line 155) * atk-table-get-n-rows: AtkTable. (line 168) * atk-table-get-row-at-index: AtkTable. (line 138) * atk-table-get-row-description: AtkTable. (line 255) * atk-table-get-row-extent-at: AtkTable. (line 203) * atk-table-get-row-header: AtkTable. (line 290) * atk-table-get-summary: AtkTable. (line 307) * atk-table-is-column-selected: AtkTable. (line 414) * atk-table-is-row-selected: AtkTable. (line 432) * atk-table-is-selected: AtkTable. (line 450) * atk-table-ref-at: AtkTable. (line 80) * atk-table-remove-column-selection: AtkTable. (line 506) * atk-table-remove-row-selection: AtkTable. (line 524) * atk-table-set-caption: AtkTable. (line 321) * atk-table-set-column-description: AtkTable. (line 351) * atk-table-set-column-header: AtkTable. (line 384) * atk-table-set-row-description: AtkTable. (line 334) * atk-table-set-row-header: AtkTable. (line 368) * atk-table-set-summary: AtkTable. (line 400) * atk-text-add-selection: AtkText. (line 435) * atk-text-attribute-for-name: AtkText. (line 532) * atk-text-attribute-get-name: AtkText. (line 520) * atk-text-attribute-get-value: AtkText. (line 549) * atk-text-get-caret-offset: AtkText. (line 308) * atk-text-get-character-at-offset: AtkText. (line 84) * atk-text-get-character-count: AtkText. (line 353) * atk-text-get-character-extents: AtkText. (line 322) * atk-text-get-n-selections: AtkText. (line 393) * atk-text-get-offset-at-point: AtkText. (line 367) * atk-text-get-selection: AtkText. (line 407) * atk-text-get-text: AtkText. (line 64) * atk-text-get-text-after-offset: AtkText. (line 101) * atk-text-get-text-at-offset: AtkText. (line 170) * atk-text-get-text-before-offset: AtkText. (line 239) * atk-text-remove-selection: AtkText. (line 454) * atk-text-set-caret-offset: AtkText. (line 504) * atk-text-set-selection: AtkText. (line 476) * atk-value-get-current-value: AtkValue. (line 31) * atk-value-get-maximum-value: AtkValue. (line 44) * atk-value-get-minimum-increment: AtkValue. (line 86) * atk-value-get-minimum-value: AtkValue. (line 57) * atk-value-set-current-value: AtkValue. (line 70) * bounds-changed on : AtkComponent. (line 33) * children-changed on : AtkObject. (line 90) * clear-selection: AtkSelection. (line 57) * clear-states: AtkStateSet. (line 57) * column-deleted on : AtkTable. (line 58) * column-inserted on : AtkTable. (line 47) * column-reordered on : AtkTable. (line 68) * contains <1>: AtkRelationSet. (line 40) * contains: AtkComponent. (line 40) * contains-state: AtkStateSet. (line 67) * copy-text: AtkEditableText. (line 67) * cut-text: AtkEditableText. (line 84) * delete-text: AtkEditableText. (line 101) * do-action: AtkAction. (line 49) * focus-event on : AtkObject. (line 95) * get-alpha: AtkComponent. (line 245) * get-attribute-value: AtkDocument. (line 73) * get-caption: AtkTable. (line 225) * get-caret-offset: AtkText. (line 309) * get-character-at-offset: AtkText. (line 85) * get-character-count: AtkText. (line 354) * get-character-extents: AtkText. (line 323) * get-column-at-index: AtkTable. (line 122) * get-column-description: AtkTable. (line 239) * get-column-extent-at: AtkTable. (line 183) * get-column-header: AtkTable. (line 273) * get-current-value: AtkValue. (line 32) * get-description <1>: AtkObject. (line 164) * get-description: AtkAction. (line 81) * get-document-type: AtkDocument. (line 60) * get-end-index: AtkHyperlink. (line 86) * get-extents: AtkComponent. (line 66) * get-factory: AtkRegistry. (line 69) * get-factory-type: AtkRegistry. (line 51) * get-hyperlink: AtkHyperlinkImpl. (line 36) * get-image-description: AtkImage. (line 60) * get-image-locale: AtkImage. (line 109) * get-image-position: AtkImage. (line 37) * get-image-size: AtkImage. (line 89) * get-index-at: AtkTable. (line 100) * get-index-in-parent: AtkObject. (line 292) * get-keybinding: AtkAction. (line 132) * get-layer <1>: AtkObject. (line 225) * get-layer: AtkComponent. (line 92) * get-link: AtkHypertext. (line 38) * get-link-index: AtkHypertext. (line 67) * get-locale: AtkDocument. (line 119) * get-localized-name: AtkAction. (line 115) * get-maximum-value: AtkValue. (line 45) * get-mdi-zorder <1>: AtkObject. (line 243) * get-mdi-zorder: AtkComponent. (line 105) * get-minimum-increment: AtkValue. (line 87) * get-minimum-value: AtkValue. (line 58) * get-n-actions: AtkAction. (line 65) * get-n-anchors: AtkHyperlink. (line 144) * get-n-columns: AtkTable. (line 156) * get-n-links: AtkHypertext. (line 54) * get-n-relations: AtkRelationSet. (line 89) * get-n-rows: AtkTable. (line 169) * get-n-selections: AtkText. (line 394) * get-name <1>: AtkObject. (line 150) * get-name: AtkAction. (line 98) * get-object <1>: AtkHyperlink. (line 65) * get-object: AtkGObjectAccessible. (line 41) * get-offset-at-point: AtkText. (line 368) * get-parent: AtkObject. (line 178) * get-position: AtkComponent. (line 122) * get-relation: AtkRelationSet. (line 102) * get-relation-type: AtkRelation. (line 77) * get-role: AtkObject. (line 264) * get-row-at-index: AtkTable. (line 139) * get-row-description: AtkTable. (line 256) * get-row-extent-at: AtkTable. (line 204) * get-row-header: AtkTable. (line 291) * get-selection: AtkText. (line 408) * get-selection-count: AtkSelection. (line 94) * get-size: AtkComponent. (line 143) * get-start-index: AtkHyperlink. (line 99) * get-stream: AtkStreamableContent. (line 41) * get-summary: AtkTable. (line 308) * get-text: AtkText. (line 65) * get-text-after-offset: AtkText. (line 102) * get-text-at-offset: AtkText. (line 171) * get-text-before-offset: AtkText. (line 240) * get-uri <1>: AtkStreamableContent. (line 59) * get-uri: AtkHyperlink. (line 47) * grab-focus: AtkComponent. (line 159) * insert-text: AtkEditableText. (line 46) * invalidate: AtkObjectFactory. (line 30) * is-child-selected: AtkSelection. (line 112) * is-column-selected: AtkTable. (line 415) * is-empty: AtkStateSet. (line 28) * is-inline: AtkHyperlink. (line 129) * is-row-selected: AtkTable. (line 433) * is-selected: AtkTable. (line 451) * is-selected-link: AtkHyperlink. (line 157) * is-valid: AtkHyperlink. (line 114) * link-activated on : AtkHyperlink. (line 41) * link-selected on : AtkHypertext. (line 31) * load-complete on : AtkDocument. (line 30) * load-stopped on : AtkDocument. (line 49) * model-changed on : AtkTable. (line 73) * notify-state-change: AtkObject. (line 357) * or-sets: AtkStateSet. (line 118) * paste-text: AtkEditableText. (line 117) * property-change on : AtkObject. (line 100) * ref-accessible: AtkObject. (line 134) * ref-accessible-child: AtkObject. (line 192) * ref-at: AtkTable. (line 81) * ref-relation-set: AtkObject. (line 211) * ref-selection: AtkSelection. (line 71) * ref-state-set: AtkObject. (line 277) * reload on : AtkDocument. (line 41) * remove: AtkRelationSet. (line 58) * remove-column-selection: AtkTable. (line 507) * remove-relationship: AtkObject. (line 396) * remove-row-selection: AtkTable. (line 525) * remove-selection <1>: AtkText. (line 455) * remove-selection: AtkSelection. (line 133) * remove-state: AtkStateSet. (line 84) * row-deleted on : AtkTable. (line 52) * row-inserted on : AtkTable. (line 41) * row-reordered on : AtkTable. (line 63) * select-all-selection: AtkSelection. (line 151) * selection-changed on : AtkSelection. (line 33) * set-attribute-value: AtkDocument. (line 95) * set-caption: AtkTable. (line 322) * set-caret-offset: AtkText. (line 505) * set-column-description: AtkTable. (line 352) * set-column-header: AtkTable. (line 385) * set-current-value: AtkValue. (line 71) * set-description <1>: AtkObject. (line 318) * set-description: AtkAction. (line 149) * set-extents: AtkComponent. (line 173) * set-factory-type: AtkRegistry. (line 31) * set-image-description: AtkImage. (line 73) * set-name: AtkObject. (line 305) * set-parent: AtkObject. (line 331) * set-position: AtkComponent. (line 203) * set-role: AtkObject. (line 344) * set-row-description: AtkTable. (line 335) * set-row-header: AtkTable. (line 369) * set-selection: AtkText. (line 477) * set-size: AtkComponent. (line 226) * set-summary: AtkTable. (line 401) * set-text-contents: AtkEditableText. (line 32) * state-change on : AtkObject. (line 107) * text-attributes-changed on : AtkText. (line 57) * text-caret-moved on : AtkText. (line 47) * text-changed on : AtkText. (line 40) * text-selection-changed on : AtkText. (line 52) * visible-data-changed on : AtkObject. (line 113) * xor-sets: AtkStateSet. (line 135)  Tag Table: Node: Top608 Node: Overview4686 Node: AtkAction5610 Node: AtkComponent10448 Node: AtkDocument16846 Node: AtkEditableText21268 Node: AtkGObjectAccessible24158 Node: AtkHyperlinkImpl25462 Node: AtkHyperlink26996 Node: AtkHypertext31522 Node: AtkImage33778 Node: AtkNoOpObjectFactory37263 Node: AtkNoOpObject38118 Node: AtkObjectFactory39206 Node: AtkObject40363 Node: AtkRegistry52852 Node: AtkRelationSet55876 Node: AtkRelation58920 Node: AtkSelection61244 Node: AtkStateSet66203 Node: AtkState69664 Node: AtkStreamableContent70637 Node: AtkTable73351 Node: AtkText88483 Node: AtkUtil105928 Node: AtkValue108218 Node: Undocumented110972 Node: Type Index111634 Node: Function Index113650  End Tag Table guile-gnome-platform-2.16.2/atk/doc/guile-gnome-atk.texi0000644000175000017500000001327111670374302023377 0ustar00wingowingo00000000000000\input texinfo @c -*-texinfo-*- @c %**start of header @setfilename guile-gnome-atk.info @settitle Guile-Atk @c %**end of header @include version.texi @copying This manual is for @code{(gnome atk)} (version @value{VERSION}, updated @value{UPDATED}) Copyright 2001-2007 Bill Haneman, Marc Mulcahy, Padraig O'Briain @c ATK is LGPL, ergo GPL distribution is possible @quotation Permission is granted to copy, distribute and/or modify this document under the terms of the GNU General Public License, Version 2 or any later version published by the Free Software Foundation. @end quotation @end copying @dircategory The Algorithmic Language Scheme @direntry * Guile-Atk: (guile-gnome-atk.info). The Accessibility ToolKit. @end direntry @titlepage @title Guile-GNOME: Atk @subtitle version @value{VERSION}, updated @value{UPDATED} @author Bill Haneman @author Marc Mulcahy @author Padraig O'Briain @page @vskip 0pt plus 1filll @insertcopying @end titlepage @ifnottex @node Top @top Guile-Atk @insertcopying @menu * Overview:: About ATK and its Guile bindings. * AtkAction:: The ATK interface provided by UI components which the user can activate / interact with. * AtkComponent:: The ATK interface provided by UI components which occupy a physical area on the screen. * AtkDocument:: The ATK interface which represents the toplevel container for document content. * AtkEditableText:: The ATK interface implemented by components containing user-editable text content. * AtkGObjectAccessible:: This object class is derived from AtkObject and can be used as a basis implementing accessible objects. * AtkHyperlinkImpl:: An interface from which the AtkHyperlink associated with an AtkObject may be obtained. * AtkHyperlink:: An ATK object which encapsulates a link or set of links in a hypertext document. * AtkHypertext:: The ATK interface which provides standard mechanism for manipulating hyperlinks. * AtkImage:: The ATK Interface implemented by components which expose image or pixmap content on-screen. * AtkNoOpObject:: An AtkObject which purports to implement all ATK interfaces. * AtkNoOpObjectFactory:: The AtkObjectFactory which creates an AtkNoOpObject. * AtkObject:: The base object class for the Accessibility Toolkit API. * AtkObjectFactory:: The base object class for a factory used to create accessible objects for objects of a specific GType. * AtkRegistry:: An object used to store the GType of the factories used to create an accessible object for an object of a particular GType. * AtkRelation:: An object used to describe a relation between a object and one or more other objects. * AtkRelationSet:: A set of AtkRelations, normally the set of AtkRelations which an AtkObject has. * AtkSelection:: The ATK interface implemented by container objects whose AtkObject children can be selected. * AtkStateSet:: An AtkStateSet determines a component's state set. * AtkState:: An AtkState describes a component's particular state. * AtkStreamableContent:: The ATK interface which provides access to streamable content. * AtkTable:: The ATK interface implemented for UI components which contain tabular or row/column information. * AtkText:: The ATK interface implemented by components with text content. * AtkUtil:: A set of ATK utility functions for event and toolkit support. * AtkValue:: The ATK interface implemented by valuators and components which display or select a value from a bounded range of values. * Undocumented:: Undocumented functions. * Type Index:: * Function Index:: @end menu @end ifnottex @iftex @shortcontents @end iftex @include overview.texi @include section-atkaction.xml.texi @include section-atkcomponent.xml.texi @include section-atkdocument.xml.texi @include section-atkeditabletext.xml.texi @include section-atkgobjectaccessible.xml.texi @include section-atkhyperlinkimpl.xml.texi @include section-atkhyperlink.xml.texi @include section-atkhypertext.xml.texi @include section-atkimage.xml.texi @include section-atknoopobjectfactory.xml.texi @include section-atknoopobject.xml.texi @include section-atkobjectfactory.xml.texi @include section-atkobject.xml.texi @include section-atkregistry.xml.texi @include section-atkrelationset.xml.texi @include section-atkrelation.xml.texi @include section-atkselection.xml.texi @include section-atkstateset.xml.texi @include section-atkstate.xml.texi @include section-atkstreamablecontent.xml.texi @include section-atktable.xml.texi @include section-atktext.xml.texi @include section-atkutil.xml.texi @include section-atkvalue.xml.texi @include undocumented.texi @node Type Index @unnumbered Type Index @printindex tp @node Function Index @unnumbered Function Index @printindex fn @bye guile-gnome-platform-2.16.2/atk/doc/defuns-atkstateset.xml.texi0000644000175000017500000000721211670374302025025 0ustar00wingowingo00000000000000 @c %start of fragment @deffn Function atk-state-set-new @result{}@tie{} (ret@tie{}@code{}) Creates a new empty state set. @table @var @item ret a new @code{} @end table @end deffn @deffn Function atk-state-set-is-empty (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{bool}) @deffnx Method is-empty Checks whether the state set is empty, i.e. has no states set. @table @var @item set an @code{} @item ret @samp{@code{#t}} if @var{set} has no states set, otherwise @samp{@code{#f}} @end table @end deffn @deffn Function atk-state-set-add-state (self@tie{}@code{}) (type@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{bool}) @deffnx Method add-state Add a new state for the specified type to the current state set if it is not already present. @table @var @item set an @code{} @item type an @code{} @item ret @samp{@code{#t}} if the state for @var{type} is not already in @var{set}. @end table @end deffn @deffn Function atk-state-set-clear-states (self@tie{}@code{}) @deffnx Method clear-states Removes all states from the state set. @table @var @item set an @code{} @end table @end deffn @deffn Function atk-state-set-contains-state (self@tie{}@code{}) (type@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{bool}) @deffnx Method contains-state Checks whether the state for the specified type is in the specified set. @table @var @item set an @code{} @item type an @code{} @item ret @samp{@code{#t}} if @var{type} is the state type is in @var{set}. @end table @end deffn @deffn Function atk-state-set-remove-state (self@tie{}@code{}) (type@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{bool}) @deffnx Method remove-state Removes the state for the specified type from the state set. @table @var @item set an @code{} @item type an @code{} @item ret @samp{@code{#t}} if @var{type} was the state type is in @var{set}. @end table @end deffn @deffn Function atk-state-set-and-sets (self@tie{}@code{}) (compare_set@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{}) @deffnx Method and-sets Constructs the intersection of the two sets, returning @samp{@code{#f}} if the intersection is empty. @table @var @item set an @code{} @item compare-set another @code{} @item ret a new @code{} which is the intersection of the two sets. @end table @end deffn @deffn Function atk-state-set-or-sets (self@tie{}@code{}) (compare_set@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{}) @deffnx Method or-sets Constructs the union of the two sets. @table @var @item set an @code{} @item compare-set another @code{} @item ret a new @code{} which is the union of the two sets, returning @samp{@code{#f}} is empty. @end table @end deffn @deffn Function atk-state-set-xor-sets (self@tie{}@code{}) (compare_set@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{}) @deffnx Method xor-sets Constructs the exclusive-or of the two sets, returning @samp{@code{#f}} is empty. The set returned by this operation contains the states in exactly one of the two sets. @table @var @item set an @code{} @item compare-set another @code{} @item ret a new @code{} which contains the states which are in exactly one of the two sets. @end table @end deffn @c %end of fragment guile-gnome-platform-2.16.2/atk/doc/Makefile.am0000644000175000017500000000070711670374302021553 0ustar00wingowingo00000000000000################################################################################ ## guile-gnome-atk.info include $(top_srcdir)/generate-docs.mk docbook_xml_wildcard = ~/src/gnome2/atk/docs/xml/*.xml docbook_xml_files = $(wildcard $(docbook_xml_wildcard)) wrapset_stem = atk EXTRA_DIST = overrides.texi info_TEXINFOS=guile-gnome-atk.texi guile_gnome_atk_TEXINFOS=overview.texi \ $(wildcard section-*.texi) $(wildcard defuns-*.texi) undocumented.texi guile-gnome-platform-2.16.2/atk/doc/section-atkstateset.xml.texi0000644000175000017500000000045011670374302025202 0ustar00wingowingo00000000000000 @c %start of fragment @node AtkStateSet @chapter AtkStateSet An AtkStateSet determines a component's state set. @section Overview An AtkStateSet determines a component's state set. It is composed of a set of AtkStates. @section Usage @include defuns-atkstateset.xml.texi @c %end of fragment guile-gnome-platform-2.16.2/atk/doc/Makefile.in0000644000175000017500000006473611752511065021600 0ustar00wingowingo00000000000000# Makefile.in generated by automake 1.11.5 from Makefile.am. # @configure_input@ # Copyright (C) 1994, 1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, # 2003, 2004, 2005, 2006, 2007, 2008, 2009, 2010, 2011 Free Software # Foundation, Inc. # This Makefile.in is free software; the Free Software Foundation # gives unlimited permission to copy and/or distribute it, # with or without modifications, as long as this notice is preserved. # This program is distributed in the hope that it will be useful, # but WITHOUT ANY WARRANTY, to the extent permitted by law; without # even the implied warranty of MERCHANTABILITY or FITNESS FOR A # PARTICULAR PURPOSE. @SET_MAKE@ ################################################################################ # guile-gnome # Copyright (C) 2007, 2011 Free Software Foundation, Inc. # This program is free software; you can redistribute it and/or # modify it under the terms of the GNU General Public License as # published by the Free Software Foundation; either version 2 of # the License, or (at your option) any later version. # This program is distributed in the hope that it will be useful, # but WITHOUT ANY WARRANTY; without even the implied warranty of # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the # GNU General Public License for more details. # You should have received a copy of the GNU General Public License # along with this program; if not, contact: # Free Software Foundation Voice: +1-617-542-5942 # 59 Temple Place - Suite 330 Fax: +1-617-542-2652 # Boston, MA 02111-1307, USA gnu@gnu.org # # Makefile snippet # VPATH = @srcdir@ am__make_dryrun = \ { \ am__dry=no; \ case $$MAKEFLAGS in \ *\\[\ \ ]*) \ echo 'am--echo: ; @echo "AM" OK' | $(MAKE) -f - 2>/dev/null \ | grep '^AM OK$$' >/dev/null || am__dry=yes;; \ *) \ for am__flg in $$MAKEFLAGS; do \ case $$am__flg in \ *=*|--*) ;; \ *n*) am__dry=yes; break;; \ esac; \ done;; \ esac; \ test $$am__dry = yes; \ } pkgdatadir = $(datadir)/@PACKAGE@ pkgincludedir = $(includedir)/@PACKAGE@ pkglibdir = $(libdir)/@PACKAGE@ pkglibexecdir = $(libexecdir)/@PACKAGE@ am__cd = CDPATH="$${ZSH_VERSION+.}$(PATH_SEPARATOR)" && cd install_sh_DATA = $(install_sh) -c -m 644 install_sh_PROGRAM = $(install_sh) -c install_sh_SCRIPT = $(install_sh) -c INSTALL_HEADER = $(INSTALL_DATA) transform = $(program_transform_name) NORMAL_INSTALL = : PRE_INSTALL = : POST_INSTALL = : NORMAL_UNINSTALL = : PRE_UNINSTALL = : POST_UNINSTALL = : build_triplet = @build@ host_triplet = @host@ DIST_COMMON = $(guile_gnome_atk_TEXINFOS) $(srcdir)/Makefile.am \ $(srcdir)/Makefile.in $(srcdir)/stamp-vti \ $(srcdir)/version.texi $(top_srcdir)/generate-docs.mk subdir = atk/doc ACLOCAL_M4 = $(top_srcdir)/aclocal.m4 am__aclocal_m4_deps = $(top_srcdir)/configure.ac am__configure_deps = $(am__aclocal_m4_deps) $(CONFIGURE_DEPENDENCIES) \ $(ACLOCAL_M4) mkinstalldirs = $(install_sh) -d CONFIG_HEADER = $(top_builddir)/config.h CONFIG_CLEAN_FILES = CONFIG_CLEAN_VPATH_FILES = SOURCES = DIST_SOURCES = INFO_DEPS = $(srcdir)/guile-gnome-atk.info TEXINFO_TEX = $(top_srcdir)/build-aux/texinfo.tex am__TEXINFO_TEX_DIR = $(top_srcdir)/build-aux DVIS = guile-gnome-atk.dvi PDFS = guile-gnome-atk.pdf PSS = guile-gnome-atk.ps HTMLS = guile-gnome-atk.html TEXINFOS = guile-gnome-atk.texi TEXI2DVI = texi2dvi TEXI2PDF = $(TEXI2DVI) --pdf --batch MAKEINFOHTML = $(MAKEINFO) --html AM_MAKEINFOHTMLFLAGS = $(AM_MAKEINFOFLAGS) DVIPS = dvips am__can_run_installinfo = \ case $$AM_UPDATE_INFO_DIR in \ n|no|NO) false;; \ *) (install-info --version) >/dev/null 2>&1;; \ esac am__installdirs = "$(DESTDIR)$(infodir)" am__vpath_adj_setup = srcdirstrip=`echo "$(srcdir)" | sed 's|.|.|g'`; am__vpath_adj = case $$p in \ $(srcdir)/*) f=`echo "$$p" | sed "s|^$$srcdirstrip/||"`;; \ *) f=$$p;; \ esac; am__strip_dir = f=`echo $$p | sed -e 's|^.*/||'`; am__install_max = 40 am__nobase_strip_setup = \ srcdirstrip=`echo "$(srcdir)" | sed 's/[].[^$$\\*|]/\\\\&/g'` am__nobase_strip = \ for p in $$list; do echo "$$p"; done | sed -e "s|$$srcdirstrip/||" am__nobase_list = $(am__nobase_strip_setup); \ for p in $$list; do echo "$$p $$p"; done | \ sed "s| $$srcdirstrip/| |;"' / .*\//!s/ .*/ ./; s,\( .*\)/[^/]*$$,\1,' | \ $(AWK) 'BEGIN { files["."] = "" } { files[$$2] = files[$$2] " " $$1; \ if (++n[$$2] == $(am__install_max)) \ { print $$2, files[$$2]; n[$$2] = 0; files[$$2] = "" } } \ END { for (dir in files) print dir, files[dir] }' am__base_list = \ sed '$$!N;$$!N;$$!N;$$!N;$$!N;$$!N;$$!N;s/\n/ /g' | \ sed '$$!N;$$!N;$$!N;$$!N;s/\n/ /g' am__uninstall_files_from_dir = { \ test -z "$$files" \ || { test ! -d "$$dir" && test ! -f "$$dir" && test ! -r "$$dir"; } \ || { echo " ( cd '$$dir' && rm -f" $$files ")"; \ $(am__cd) "$$dir" && rm -f $$files; }; \ } DISTFILES = $(DIST_COMMON) $(DIST_SOURCES) $(TEXINFOS) $(EXTRA_DIST) ACLOCAL = @ACLOCAL@ AG_PKG_CONFIG_PATH = @AG_PKG_CONFIG_PATH@ AMTAR = @AMTAR@ API_VERSION = @API_VERSION@ AR = @AR@ ATK_CFLAGS = @ATK_CFLAGS@ ATK_LIBS = @ATK_LIBS@ AUTOCONF = @AUTOCONF@ AUTOHEADER = @AUTOHEADER@ AUTOMAKE = @AUTOMAKE@ AWK = @AWK@ BONOBO_IDL_DIR = @BONOBO_IDL_DIR@ CANVAS_CFLAGS = @CANVAS_CFLAGS@ CANVAS_LIBS = @CANVAS_LIBS@ CC = @CC@ CCDEPMODE = @CCDEPMODE@ CFLAGS = @CFLAGS@ CORBA_CFLAGS = @CORBA_CFLAGS@ CORBA_LIBS = @CORBA_LIBS@ CPP = @CPP@ CPPFLAGS = @CPPFLAGS@ CYGPATH_W = @CYGPATH_W@ DEFS = @DEFS@ DEPDIR = @DEPDIR@ DLLTOOL = @DLLTOOL@ DSYMUTIL = @DSYMUTIL@ DUMPBIN = @DUMPBIN@ ECHO_C = @ECHO_C@ ECHO_N = @ECHO_N@ ECHO_T = @ECHO_T@ EGREP = @EGREP@ EXEEXT = @EXEEXT@ FGREP = @FGREP@ GCONF_CFLAGS = @GCONF_CFLAGS@ GCONF_LIBS = @GCONF_LIBS@ GDK_CFLAGS = @GDK_CFLAGS@ GDK_LIBS = @GDK_LIBS@ GDK_PIXBUF_CFLAGS = @GDK_PIXBUF_CFLAGS@ GDK_PIXBUF_LIBS = @GDK_PIXBUF_LIBS@ GLIB_CFLAGS = @GLIB_CFLAGS@ GLIB_LIBS = @GLIB_LIBS@ GNOMEUI_DEPRECATION_FLAGS = @GNOMEUI_DEPRECATION_FLAGS@ GNOME_VFS_CFLAGS = @GNOME_VFS_CFLAGS@ GNOME_VFS_DEPRECATED_CFLAGS = @GNOME_VFS_DEPRECATED_CFLAGS@ GNOME_VFS_LIBS = @GNOME_VFS_LIBS@ GOBJECT_CFLAGS = @GOBJECT_CFLAGS@ GOBJECT_LIBS = @GOBJECT_LIBS@ GREP = @GREP@ GTHREAD_CFLAGS = @GTHREAD_CFLAGS@ GTHREAD_LIBS = @GTHREAD_LIBS@ GTK_CFLAGS = @GTK_CFLAGS@ GTK_DEPRECATED_CFLAGS = @GTK_DEPRECATED_CFLAGS@ GTK_LIBS = @GTK_LIBS@ GUILE_CAIRO_CFLAGS = @GUILE_CAIRO_CFLAGS@ GUILE_CAIRO_LIBS = @GUILE_CAIRO_LIBS@ GUILE_CFLAGS = @GUILE_CFLAGS@ GUILE_EFFECTIVE_VERSION = @GUILE_EFFECTIVE_VERSION@ GUILE_GLIB_CFLAGS = @GUILE_GLIB_CFLAGS@ GUILE_GLIB_LIBS = @GUILE_GLIB_LIBS@ GUILE_LIBS = @GUILE_LIBS@ G_WRAP_CFLAGS = @G_WRAP_CFLAGS@ G_WRAP_LIBS = @G_WRAP_LIBS@ G_WRAP_LIB_DIR = @G_WRAP_LIB_DIR@ G_WRAP_MODULE_DIR = @G_WRAP_MODULE_DIR@ INSTALL = @INSTALL@ INSTALL_DATA = @INSTALL_DATA@ INSTALL_PROGRAM = @INSTALL_PROGRAM@ INSTALL_SCRIPT = @INSTALL_SCRIPT@ INSTALL_STRIP_PROGRAM = @INSTALL_STRIP_PROGRAM@ LD = @LD@ LDFLAGS = @LDFLAGS@ LIBGLADE_CFLAGS = @LIBGLADE_CFLAGS@ LIBGLADE_LIBS = @LIBGLADE_LIBS@ LIBGNOMEUI_CFLAGS = @LIBGNOMEUI_CFLAGS@ LIBGNOMEUI_LIBS = @LIBGNOMEUI_LIBS@ LIBGNOME_CFLAGS = @LIBGNOME_CFLAGS@ LIBGNOME_LIBS = @LIBGNOME_LIBS@ LIBOBJS = @LIBOBJS@ LIBS = @LIBS@ LIBTOOL = @LIBTOOL@ LIPO = @LIPO@ LN_S = @LN_S@ LTLIBOBJS = @LTLIBOBJS@ MAKEINFO = @MAKEINFO@ MANIFEST_TOOL = @MANIFEST_TOOL@ MKDIR_P = @MKDIR_P@ NM = @NM@ NMEDIT = @NMEDIT@ OBJDUMP = @OBJDUMP@ OBJEXT = @OBJEXT@ ORBIT_IDL = @ORBIT_IDL@ OTOOL = @OTOOL@ OTOOL64 = @OTOOL64@ PACKAGE = @PACKAGE@ PACKAGE_BUGREPORT = @PACKAGE_BUGREPORT@ PACKAGE_NAME = @PACKAGE_NAME@ PACKAGE_STRING = @PACKAGE_STRING@ PACKAGE_TARNAME = @PACKAGE_TARNAME@ PACKAGE_URL = @PACKAGE_URL@ PACKAGE_VERSION = @PACKAGE_VERSION@ PANGOCAIRO_CFLAGS = @PANGOCAIRO_CFLAGS@ PANGOCAIRO_LIBS = @PANGOCAIRO_LIBS@ PANGO_CFLAGS = @PANGO_CFLAGS@ PANGO_LIBS = @PANGO_LIBS@ PATH_SEPARATOR = @PATH_SEPARATOR@ PKG_CONFIG = @PKG_CONFIG@ PKG_CONFIG_LIBDIR = @PKG_CONFIG_LIBDIR@ PKG_CONFIG_PATH = @PKG_CONFIG_PATH@ RANLIB = @RANLIB@ SED = @SED@ SET_MAKE = @SET_MAKE@ SHELL = @SHELL@ STRIP = @STRIP@ VERSION = @VERSION@ WARN_CFLAGS = @WARN_CFLAGS@ abs_builddir = @abs_builddir@ abs_srcdir = @abs_srcdir@ abs_top_builddir = @abs_top_builddir@ abs_top_srcdir = @abs_top_srcdir@ ac_ct_AR = @ac_ct_AR@ ac_ct_CC = @ac_ct_CC@ ac_ct_DUMPBIN = @ac_ct_DUMPBIN@ am__include = @am__include@ am__leading_dot = @am__leading_dot@ am__quote = @am__quote@ am__tar = @am__tar@ am__untar = @am__untar@ bindir = @bindir@ build = @build@ build_alias = @build_alias@ build_cpu = @build_cpu@ build_os = @build_os@ build_vendor = @build_vendor@ builddir = @builddir@ datadir = @datadir@ datarootdir = @datarootdir@ docdir = @docdir@ dvidir = @dvidir@ exec_prefix = @exec_prefix@ host = @host@ host_alias = @host_alias@ host_cpu = @host_cpu@ host_os = @host_os@ host_vendor = @host_vendor@ htmldir = @htmldir@ includedir = @includedir@ infodir = @infodir@ install_sh = @install_sh@ libdir = @libdir@ libexecdir = @libexecdir@ localedir = @localedir@ localstatedir = @localstatedir@ mandir = @mandir@ mkdir_p = @mkdir_p@ oldincludedir = @oldincludedir@ pdfdir = @pdfdir@ prefix = @prefix@ program_transform_name = @program_transform_name@ psdir = @psdir@ sbindir = @sbindir@ sharedstatedir = @sharedstatedir@ srcdir = @srcdir@ sysconfdir = @sysconfdir@ target_alias = @target_alias@ top_build_prefix = @top_build_prefix@ top_builddir = @top_builddir@ top_srcdir = @top_srcdir@ wrapset_module = (gnome gw $(wrapset_stem)-spec) wrapset_name = gnome-$(wrapset_stem) GTK_DOC_TO_TEXI_STUBS = '((@ (gnome gw support gtk-doc) gtk-doc->texi-stubs) (cdr (program-arguments)))' GTK_DOC_DEFUN_HEURISTICS_METHOD = heuristics GTK_DOC_DEFUN_HEURISTICS_ARGS = (your-module-here) GTK_DOC_DEFUN_GWRAP_METHOD = g-wrap GTK_DOC_DEFUN_GWRAP_ARGS = $(wrapset_module) $(wrapset_name) GTK_DOC_DEFUN_METHOD = $(GTK_DOC_DEFUN_GWRAP_METHOD) GTK_DOC_DEFUN_ARGS = $(GTK_DOC_DEFUN_GWRAP_ARGS) GTK_DOC_TO_TEXI_DEFUNS = "(apply (@ (gnome gw support gtk-doc) gtk-doc->texi-defuns) (cadr (program-arguments)) '$(GTK_DOC_DEFUN_METHOD) '($(GTK_DOC_DEFUN_ARGS)) (cddr (program-arguments)))" GTK_DOC_COVERAGE_MODULES = (gnome $(wrapset_stem)) (gnome gw $(wrapset_stem)) GTK_DOC_COVERAGE_TEXI = $(info_TEXINFOS) GTK_DOC_CHECK_COVERAGE = "((@ (gnome gw support gtk-doc) check-documentation-coverage) '($(GTK_DOC_COVERAGE_MODULES)) \"$(GTK_DOC_COVERAGE_TEXI)\")" GTK_DOC_GENERATE_UNDOCUMENTED = "((@ (gnome gw support gtk-doc) generate-undocumented-texi) '($(GTK_DOC_COVERAGE_MODULES)) \"$(GTK_DOC_COVERAGE_TEXI)\")" GUILE = $(top_builddir)/dev-environ guile docbook_xml_wildcard = ~/src/gnome2/atk/docs/xml/*.xml docbook_xml_files = $(wildcard $(docbook_xml_wildcard)) wrapset_stem = atk EXTRA_DIST = overrides.texi info_TEXINFOS = guile-gnome-atk.texi guile_gnome_atk_TEXINFOS = overview.texi \ $(wildcard section-*.texi) $(wildcard defuns-*.texi) undocumented.texi all: all-am .SUFFIXES: .SUFFIXES: .dvi .html .info .pdf .ps .texi $(srcdir)/Makefile.in: $(srcdir)/Makefile.am $(top_srcdir)/generate-docs.mk $(am__configure_deps) @for dep in $?; do \ case '$(am__configure_deps)' in \ *$$dep*) \ ( cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh ) \ && { if test -f $@; then exit 0; else break; fi; }; \ exit 1;; \ esac; \ done; \ echo ' cd $(top_srcdir) && $(AUTOMAKE) --gnu atk/doc/Makefile'; \ $(am__cd) $(top_srcdir) && \ $(AUTOMAKE) --gnu atk/doc/Makefile .PRECIOUS: Makefile Makefile: $(srcdir)/Makefile.in $(top_builddir)/config.status @case '$?' in \ *config.status*) \ cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh;; \ *) \ echo ' cd $(top_builddir) && $(SHELL) ./config.status $(subdir)/$@ $(am__depfiles_maybe)'; \ cd $(top_builddir) && $(SHELL) ./config.status $(subdir)/$@ $(am__depfiles_maybe);; \ esac; $(top_srcdir)/generate-docs.mk: $(top_builddir)/config.status: $(top_srcdir)/configure $(CONFIG_STATUS_DEPENDENCIES) cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh $(top_srcdir)/configure: $(am__configure_deps) cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh $(ACLOCAL_M4): $(am__aclocal_m4_deps) cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh $(am__aclocal_m4_deps): mostlyclean-libtool: -rm -f *.lo clean-libtool: -rm -rf .libs _libs .texi.info: restore=: && backupdir="$(am__leading_dot)am$$$$" && \ am__cwd=`pwd` && $(am__cd) $(srcdir) && \ rm -rf $$backupdir && mkdir $$backupdir && \ if ($(MAKEINFO) --version) >/dev/null 2>&1; then \ for f in $@ $@-[0-9] $@-[0-9][0-9] $(@:.info=).i[0-9] $(@:.info=).i[0-9][0-9]; do \ if test -f $$f; then mv $$f $$backupdir; restore=mv; else :; fi; \ done; \ else :; fi && \ cd "$$am__cwd"; \ if $(MAKEINFO) $(AM_MAKEINFOFLAGS) $(MAKEINFOFLAGS) -I $(srcdir) \ -o $@ $<; \ then \ rc=0; \ $(am__cd) $(srcdir); \ else \ rc=$$?; \ $(am__cd) $(srcdir) && \ $$restore $$backupdir/* `echo "./$@" | sed 's|[^/]*$$||'`; \ fi; \ rm -rf $$backupdir; exit $$rc .texi.dvi: TEXINPUTS="$(am__TEXINFO_TEX_DIR)$(PATH_SEPARATOR)$$TEXINPUTS" \ MAKEINFO='$(MAKEINFO) $(AM_MAKEINFOFLAGS) $(MAKEINFOFLAGS) -I $(srcdir)' \ $(TEXI2DVI) $< .texi.pdf: TEXINPUTS="$(am__TEXINFO_TEX_DIR)$(PATH_SEPARATOR)$$TEXINPUTS" \ MAKEINFO='$(MAKEINFO) $(AM_MAKEINFOFLAGS) $(MAKEINFOFLAGS) -I $(srcdir)' \ $(TEXI2PDF) $< .texi.html: rm -rf $(@:.html=.htp) if $(MAKEINFOHTML) $(AM_MAKEINFOHTMLFLAGS) $(MAKEINFOFLAGS) -I $(srcdir) \ -o $(@:.html=.htp) $<; \ then \ rm -rf $@; \ if test ! -d $(@:.html=.htp) && test -d $(@:.html=); then \ mv $(@:.html=) $@; else mv $(@:.html=.htp) $@; fi; \ else \ if test ! -d $(@:.html=.htp) && test -d $(@:.html=); then \ rm -rf $(@:.html=); else rm -Rf $(@:.html=.htp) $@; fi; \ exit 1; \ fi $(srcdir)/guile-gnome-atk.info: guile-gnome-atk.texi $(srcdir)/version.texi $(guile_gnome_atk_TEXINFOS) guile-gnome-atk.dvi: guile-gnome-atk.texi $(srcdir)/version.texi $(guile_gnome_atk_TEXINFOS) guile-gnome-atk.pdf: guile-gnome-atk.texi $(srcdir)/version.texi $(guile_gnome_atk_TEXINFOS) guile-gnome-atk.html: guile-gnome-atk.texi $(srcdir)/version.texi $(guile_gnome_atk_TEXINFOS) $(srcdir)/version.texi: $(srcdir)/stamp-vti $(srcdir)/stamp-vti: guile-gnome-atk.texi $(top_srcdir)/configure @(dir=.; test -f ./guile-gnome-atk.texi || dir=$(srcdir); \ set `$(SHELL) $(top_srcdir)/build-aux/mdate-sh $$dir/guile-gnome-atk.texi`; \ echo "@set UPDATED $$1 $$2 $$3"; \ echo "@set UPDATED-MONTH $$2 $$3"; \ echo "@set EDITION $(VERSION)"; \ echo "@set VERSION $(VERSION)") > vti.tmp @cmp -s vti.tmp $(srcdir)/version.texi \ || (echo "Updating $(srcdir)/version.texi"; \ cp vti.tmp $(srcdir)/version.texi) -@rm -f vti.tmp @cp $(srcdir)/version.texi $@ mostlyclean-vti: -rm -f vti.tmp maintainer-clean-vti: -rm -f $(srcdir)/stamp-vti $(srcdir)/version.texi .dvi.ps: TEXINPUTS="$(am__TEXINFO_TEX_DIR)$(PATH_SEPARATOR)$$TEXINPUTS" \ $(DVIPS) -o $@ $< uninstall-dvi-am: @$(NORMAL_UNINSTALL) @list='$(DVIS)'; test -n "$(dvidir)" || list=; \ for p in $$list; do \ $(am__strip_dir) \ echo " rm -f '$(DESTDIR)$(dvidir)/$$f'"; \ rm -f "$(DESTDIR)$(dvidir)/$$f"; \ done uninstall-html-am: @$(NORMAL_UNINSTALL) @list='$(HTMLS)'; test -n "$(htmldir)" || list=; \ for p in $$list; do \ $(am__strip_dir) \ echo " rm -rf '$(DESTDIR)$(htmldir)/$$f'"; \ rm -rf "$(DESTDIR)$(htmldir)/$$f"; \ done uninstall-info-am: @$(PRE_UNINSTALL) @if test -d '$(DESTDIR)$(infodir)' && $(am__can_run_installinfo); then \ list='$(INFO_DEPS)'; \ for file in $$list; do \ relfile=`echo "$$file" | sed 's|^.*/||'`; \ echo " install-info --info-dir='$(DESTDIR)$(infodir)' --remove '$(DESTDIR)$(infodir)/$$relfile'"; \ if install-info --info-dir="$(DESTDIR)$(infodir)" --remove "$(DESTDIR)$(infodir)/$$relfile"; \ then :; else test ! -f "$(DESTDIR)$(infodir)/$$relfile" || exit 1; fi; \ done; \ else :; fi @$(NORMAL_UNINSTALL) @list='$(INFO_DEPS)'; \ for file in $$list; do \ relfile=`echo "$$file" | sed 's|^.*/||'`; \ relfile_i=`echo "$$relfile" | sed 's|\.info$$||;s|$$|.i|'`; \ (if test -d "$(DESTDIR)$(infodir)" && cd "$(DESTDIR)$(infodir)"; then \ echo " cd '$(DESTDIR)$(infodir)' && rm -f $$relfile $$relfile-[0-9] $$relfile-[0-9][0-9] $$relfile_i[0-9] $$relfile_i[0-9][0-9]"; \ rm -f $$relfile $$relfile-[0-9] $$relfile-[0-9][0-9] $$relfile_i[0-9] $$relfile_i[0-9][0-9]; \ else :; fi); \ done uninstall-pdf-am: @$(NORMAL_UNINSTALL) @list='$(PDFS)'; test -n "$(pdfdir)" || list=; \ for p in $$list; do \ $(am__strip_dir) \ echo " rm -f '$(DESTDIR)$(pdfdir)/$$f'"; \ rm -f "$(DESTDIR)$(pdfdir)/$$f"; \ done uninstall-ps-am: @$(NORMAL_UNINSTALL) @list='$(PSS)'; test -n "$(psdir)" || list=; \ for p in $$list; do \ $(am__strip_dir) \ echo " rm -f '$(DESTDIR)$(psdir)/$$f'"; \ rm -f "$(DESTDIR)$(psdir)/$$f"; \ done dist-info: $(INFO_DEPS) @srcdirstrip=`echo "$(srcdir)" | sed 's|.|.|g'`; \ list='$(INFO_DEPS)'; \ for base in $$list; do \ case $$base in \ $(srcdir)/*) base=`echo "$$base" | sed "s|^$$srcdirstrip/||"`;; \ esac; \ if test -f $$base; then d=.; else d=$(srcdir); fi; \ base_i=`echo "$$base" | sed 's|\.info$$||;s|$$|.i|'`; \ for file in $$d/$$base $$d/$$base-[0-9] $$d/$$base-[0-9][0-9] $$d/$$base_i[0-9] $$d/$$base_i[0-9][0-9]; do \ if test -f $$file; then \ relfile=`expr "$$file" : "$$d/\(.*\)"`; \ test -f "$(distdir)/$$relfile" || \ cp -p $$file "$(distdir)/$$relfile"; \ else :; fi; \ done; \ done mostlyclean-aminfo: -rm -rf guile-gnome-atk.aux guile-gnome-atk.cp guile-gnome-atk.cps \ guile-gnome-atk.fn guile-gnome-atk.fns guile-gnome-atk.ky \ guile-gnome-atk.kys guile-gnome-atk.log guile-gnome-atk.pg \ guile-gnome-atk.pgs guile-gnome-atk.tmp guile-gnome-atk.toc \ guile-gnome-atk.tp guile-gnome-atk.tps guile-gnome-atk.vr \ guile-gnome-atk.vrs clean-aminfo: -test -z "guile-gnome-atk.dvi guile-gnome-atk.pdf guile-gnome-atk.ps \ guile-gnome-atk.html" \ || rm -rf guile-gnome-atk.dvi guile-gnome-atk.pdf guile-gnome-atk.ps \ guile-gnome-atk.html maintainer-clean-aminfo: @list='$(INFO_DEPS)'; for i in $$list; do \ i_i=`echo "$$i" | sed 's|\.info$$||;s|$$|.i|'`; \ echo " rm -f $$i $$i-[0-9] $$i-[0-9][0-9] $$i_i[0-9] $$i_i[0-9][0-9]"; \ rm -f $$i $$i-[0-9] $$i-[0-9][0-9] $$i_i[0-9] $$i_i[0-9][0-9]; \ done tags: TAGS TAGS: ctags: CTAGS CTAGS: distdir: $(DISTFILES) @srcdirstrip=`echo "$(srcdir)" | sed 's/[].[^$$\\*]/\\\\&/g'`; \ topsrcdirstrip=`echo "$(top_srcdir)" | sed 's/[].[^$$\\*]/\\\\&/g'`; \ list='$(DISTFILES)'; \ dist_files=`for file in $$list; do echo $$file; done | \ sed -e "s|^$$srcdirstrip/||;t" \ -e "s|^$$topsrcdirstrip/|$(top_builddir)/|;t"`; \ case $$dist_files in \ */*) $(MKDIR_P) `echo "$$dist_files" | \ sed '/\//!d;s|^|$(distdir)/|;s,/[^/]*$$,,' | \ sort -u` ;; \ esac; \ for file in $$dist_files; do \ if test -f $$file || test -d $$file; then d=.; else d=$(srcdir); fi; \ if test -d $$d/$$file; then \ dir=`echo "/$$file" | sed -e 's,/[^/]*$$,,'`; \ if test -d "$(distdir)/$$file"; then \ find "$(distdir)/$$file" -type d ! -perm -700 -exec chmod u+rwx {} \;; \ fi; \ if test -d $(srcdir)/$$file && test $$d != $(srcdir); then \ cp -fpR $(srcdir)/$$file "$(distdir)$$dir" || exit 1; \ find "$(distdir)/$$file" -type d ! -perm -700 -exec chmod u+rwx {} \;; \ fi; \ cp -fpR $$d/$$file "$(distdir)$$dir" || exit 1; \ else \ test -f "$(distdir)/$$file" \ || cp -p $$d/$$file "$(distdir)/$$file" \ || exit 1; \ fi; \ done $(MAKE) $(AM_MAKEFLAGS) \ top_distdir="$(top_distdir)" distdir="$(distdir)" \ dist-info check-am: all-am check: check-am all-am: Makefile $(INFO_DEPS) installdirs: for dir in "$(DESTDIR)$(infodir)"; do \ test -z "$$dir" || $(MKDIR_P) "$$dir"; \ done install: install-am install-exec: install-exec-am install-data: install-data-am uninstall: uninstall-am install-am: all-am @$(MAKE) $(AM_MAKEFLAGS) install-exec-am install-data-am installcheck: installcheck-am install-strip: if test -z '$(STRIP)'; then \ $(MAKE) $(AM_MAKEFLAGS) INSTALL_PROGRAM="$(INSTALL_STRIP_PROGRAM)" \ install_sh_PROGRAM="$(INSTALL_STRIP_PROGRAM)" INSTALL_STRIP_FLAG=-s \ install; \ else \ $(MAKE) $(AM_MAKEFLAGS) INSTALL_PROGRAM="$(INSTALL_STRIP_PROGRAM)" \ install_sh_PROGRAM="$(INSTALL_STRIP_PROGRAM)" INSTALL_STRIP_FLAG=-s \ "INSTALL_PROGRAM_ENV=STRIPPROG='$(STRIP)'" install; \ fi mostlyclean-generic: clean-generic: distclean-generic: -test -z "$(CONFIG_CLEAN_FILES)" || rm -f $(CONFIG_CLEAN_FILES) -test . = "$(srcdir)" || test -z "$(CONFIG_CLEAN_VPATH_FILES)" || rm -f $(CONFIG_CLEAN_VPATH_FILES) maintainer-clean-generic: @echo "This command is intended for maintainers to use" @echo "it deletes files that may require special tools to rebuild." clean: clean-am clean-am: clean-aminfo clean-generic clean-libtool mostlyclean-am distclean: distclean-am -rm -f Makefile distclean-am: clean-am distclean-generic dvi: dvi-am dvi-am: $(DVIS) html: html-am html-am: $(HTMLS) info: info-am info-am: $(INFO_DEPS) install-data-am: install-info-am install-dvi: install-dvi-am install-dvi-am: $(DVIS) @$(NORMAL_INSTALL) @list='$(DVIS)'; test -n "$(dvidir)" || list=; \ if test -n "$$list"; then \ echo " $(MKDIR_P) '$(DESTDIR)$(dvidir)'"; \ $(MKDIR_P) "$(DESTDIR)$(dvidir)" || exit 1; \ fi; \ for p in $$list; do \ if test -f "$$p"; then d=; else d="$(srcdir)/"; fi; \ echo "$$d$$p"; \ done | $(am__base_list) | \ while read files; do \ echo " $(INSTALL_DATA) $$files '$(DESTDIR)$(dvidir)'"; \ $(INSTALL_DATA) $$files "$(DESTDIR)$(dvidir)" || exit $$?; \ done install-exec-am: install-html: install-html-am install-html-am: $(HTMLS) @$(NORMAL_INSTALL) @list='$(HTMLS)'; list2=; test -n "$(htmldir)" || list=; \ if test -n "$$list"; then \ echo " $(MKDIR_P) '$(DESTDIR)$(htmldir)'"; \ $(MKDIR_P) "$(DESTDIR)$(htmldir)" || exit 1; \ fi; \ for p in $$list; do \ if test -f "$$p" || test -d "$$p"; then d=; else d="$(srcdir)/"; fi; \ $(am__strip_dir) \ d2=$$d$$p; \ if test -d "$$d2"; then \ echo " $(MKDIR_P) '$(DESTDIR)$(htmldir)/$$f'"; \ $(MKDIR_P) "$(DESTDIR)$(htmldir)/$$f" || exit 1; \ echo " $(INSTALL_DATA) '$$d2'/* '$(DESTDIR)$(htmldir)/$$f'"; \ $(INSTALL_DATA) "$$d2"/* "$(DESTDIR)$(htmldir)/$$f" || exit $$?; \ else \ list2="$$list2 $$d2"; \ fi; \ done; \ test -z "$$list2" || { echo "$$list2" | $(am__base_list) | \ while read files; do \ echo " $(INSTALL_DATA) $$files '$(DESTDIR)$(htmldir)'"; \ $(INSTALL_DATA) $$files "$(DESTDIR)$(htmldir)" || exit $$?; \ done; } install-info: install-info-am install-info-am: $(INFO_DEPS) @$(NORMAL_INSTALL) @srcdirstrip=`echo "$(srcdir)" | sed 's|.|.|g'`; \ list='$(INFO_DEPS)'; test -n "$(infodir)" || list=; \ if test -n "$$list"; then \ echo " $(MKDIR_P) '$(DESTDIR)$(infodir)'"; \ $(MKDIR_P) "$(DESTDIR)$(infodir)" || exit 1; \ fi; \ for file in $$list; do \ case $$file in \ $(srcdir)/*) file=`echo "$$file" | sed "s|^$$srcdirstrip/||"`;; \ esac; \ if test -f $$file; then d=.; else d=$(srcdir); fi; \ file_i=`echo "$$file" | sed 's|\.info$$||;s|$$|.i|'`; \ for ifile in $$d/$$file $$d/$$file-[0-9] $$d/$$file-[0-9][0-9] \ $$d/$$file_i[0-9] $$d/$$file_i[0-9][0-9] ; do \ if test -f $$ifile; then \ echo "$$ifile"; \ else : ; fi; \ done; \ done | $(am__base_list) | \ while read files; do \ echo " $(INSTALL_DATA) $$files '$(DESTDIR)$(infodir)'"; \ $(INSTALL_DATA) $$files "$(DESTDIR)$(infodir)" || exit $$?; done @$(POST_INSTALL) @if $(am__can_run_installinfo); then \ list='$(INFO_DEPS)'; test -n "$(infodir)" || list=; \ for file in $$list; do \ relfile=`echo "$$file" | sed 's|^.*/||'`; \ echo " install-info --info-dir='$(DESTDIR)$(infodir)' '$(DESTDIR)$(infodir)/$$relfile'";\ install-info --info-dir="$(DESTDIR)$(infodir)" "$(DESTDIR)$(infodir)/$$relfile" || :;\ done; \ else : ; fi install-man: install-pdf: install-pdf-am install-pdf-am: $(PDFS) @$(NORMAL_INSTALL) @list='$(PDFS)'; test -n "$(pdfdir)" || list=; \ if test -n "$$list"; then \ echo " $(MKDIR_P) '$(DESTDIR)$(pdfdir)'"; \ $(MKDIR_P) "$(DESTDIR)$(pdfdir)" || exit 1; \ fi; \ for p in $$list; do \ if test -f "$$p"; then d=; else d="$(srcdir)/"; fi; \ echo "$$d$$p"; \ done | $(am__base_list) | \ while read files; do \ echo " $(INSTALL_DATA) $$files '$(DESTDIR)$(pdfdir)'"; \ $(INSTALL_DATA) $$files "$(DESTDIR)$(pdfdir)" || exit $$?; done install-ps: install-ps-am install-ps-am: $(PSS) @$(NORMAL_INSTALL) @list='$(PSS)'; test -n "$(psdir)" || list=; \ if test -n "$$list"; then \ echo " $(MKDIR_P) '$(DESTDIR)$(psdir)'"; \ $(MKDIR_P) "$(DESTDIR)$(psdir)" || exit 1; \ fi; \ for p in $$list; do \ if test -f "$$p"; then d=; else d="$(srcdir)/"; fi; \ echo "$$d$$p"; \ done | $(am__base_list) | \ while read files; do \ echo " $(INSTALL_DATA) $$files '$(DESTDIR)$(psdir)'"; \ $(INSTALL_DATA) $$files "$(DESTDIR)$(psdir)" || exit $$?; done installcheck-am: maintainer-clean: maintainer-clean-am -rm -f Makefile maintainer-clean-am: distclean-am maintainer-clean-aminfo \ maintainer-clean-generic maintainer-clean-vti mostlyclean: mostlyclean-am mostlyclean-am: mostlyclean-aminfo mostlyclean-generic \ mostlyclean-libtool mostlyclean-vti pdf: pdf-am pdf-am: $(PDFS) ps: ps-am ps-am: $(PSS) uninstall-am: uninstall-dvi-am uninstall-html-am uninstall-info-am \ uninstall-pdf-am uninstall-ps-am .MAKE: install-am install-strip .PHONY: all all-am check check-am clean clean-aminfo clean-generic \ clean-libtool dist-info distclean distclean-generic \ distclean-libtool distdir dvi dvi-am html html-am info info-am \ install install-am install-data install-data-am install-dvi \ install-dvi-am install-exec install-exec-am install-html \ install-html-am install-info install-info-am install-man \ install-pdf install-pdf-am install-ps install-ps-am \ install-strip installcheck installcheck-am installdirs \ maintainer-clean maintainer-clean-aminfo \ maintainer-clean-generic maintainer-clean-vti mostlyclean \ mostlyclean-aminfo mostlyclean-generic mostlyclean-libtool \ mostlyclean-vti pdf pdf-am ps ps-am uninstall uninstall-am \ uninstall-dvi-am uninstall-html-am uninstall-info-am \ uninstall-pdf-am uninstall-ps-am generate-stubs: $(GUILE) $(GUILE_FLAGS) -c $(GTK_DOC_TO_TEXI_STUBS) $(docbook_xml_files) generate-defuns: $(GUILE) $(GUILE_FLAGS) -c $(GTK_DOC_TO_TEXI_DEFUNS) ./overrides.texi $(docbook_xml_files) check-coverage: $(GUILE) $(GUILE_FLAGS) -c $(GTK_DOC_CHECK_COVERAGE) generate-undocumented: rm -f undocumented.texi; touch undocumented.texi $(GUILE) $(GUILE_FLAGS) -c $(GTK_DOC_GENERATE_UNDOCUMENTED) # Tell versions [3.59,3.63) of GNU make to not export all variables. # Otherwise a system limit (for SysV at least) may be exceeded. .NOEXPORT: guile-gnome-platform-2.16.2/atk/doc/defuns-atkobject.xml.texi0000644000175000017500000002732311670374302024444 0ustar00wingowingo00000000000000 @c %start of fragment @deftp Class Derives from @code{}. This class defines the following slots: @table @code @item accessible-name Object instance's name formatted for assistive technology access @item accessible-description Description of an object, formatted for assistive technology access @item accessible-parent Is used to notify that the parent has changed @item accessible-value Is used to notify that the value has changed @item accessible-role The accessible role of this object @item accessible-component-layer The accessible layer of this object @item accessible-component-mdi-zorder The accessible MDI value of this object @item accessible-table-caption Is used to notify that the table caption has changed; this property should not be used. accessible-table-caption-object should be used instead @item accessible-table-column-description Is used to notify that the table column description has changed @item accessible-table-column-header Is used to notify that the table column header has changed @item accessible-table-row-description Is used to notify that the table row description has changed @item accessible-table-row-header Is used to notify that the table row header has changed @item accessible-table-summary Is used to notify that the table summary has changed @item accessible-table-caption-object Is used to notify that the table caption has changed @item accessible-hypertext-nlinks The number of links which the current AtkHypertext has @end table @end deftp @defop Signal children-changed (arg0@tie{}@code{}) (arg1@tie{}@code{}) The signal "children-changed" is emitted when a child is added or removed form an object. It supports two details: "add" and "remove" @end defop @defop Signal focus-event (arg0@tie{}@code{}) The signal "focus-event" is emitted when an object gains or loses focus. @end defop @defop Signal property-change (arg0@tie{}@code{}) The signal "property-change" is emitted when an object's property value changes. The detail identifies the name of the property whose value has changed. @end defop @defop Signal state-change (arg0@tie{}@code{}) (arg1@tie{}@code{}) The "state-change" signal is emitted when an object's state changes. The detail value identifies the state type which has changed. @end defop @defop Signal visible-data-changed The "visible-data-changed" signal is emitted when the visual appearance of the object changed. @end defop @defop Signal active-descendant-changed (arg0@tie{}@code{}) The "active-descendant-changed" signal is emitted by an object which has the state ATK_STATE_MANAGES_DESCENDANTS when the focus object in the object changes. For instance, a table will emit the signal when the cell in the table which has focus changes. @end defop @deftp Class Derives from @code{}. This class defines no direct slots. @end deftp @deffn Function atk-implementor-ref-accessible (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{}) @deffnx Method ref-accessible Gets a reference to an object's @code{} implementation, if the object implements @code{} @table @var @item implementor The @code{} instance which should implement @code{} if a non-null return value is required. @item ret a reference to an object's @code{} implementation @end table @end deffn @deffn Function atk-object-get-name (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{mchars}) @deffnx Method get-name Gets the accessible name of the accessible. @table @var @item accessible an @code{} @item ret a character string representing the accessible name of the object. @end table @end deffn @deffn Function atk-object-get-description (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{mchars}) @deffnx Method get-description Gets the accessible description of the accessible. @table @var @item accessible an @code{} @item ret a character string representing the accessible description of the accessible. @end table @end deffn @deffn Function atk-object-get-parent (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{}) @deffnx Method get-parent Gets the accessible parent of the accessible. @table @var @item accessible an @code{} @item ret a @code{} representing the accessible parent of the accessible @end table @end deffn @deffn Function atk-object-ref-accessible-child (self@tie{}@code{}) (i@tie{}@code{int}) @result{}@tie{} (ret@tie{}@code{}) @deffnx Method ref-accessible-child Gets a reference to the specified accessible child of the object. The accessible children are 0-based so the first accessible child is at index 0, the second at index 1 and so on. @table @var @item accessible an @code{} @item i a gint representing the position of the child, starting from 0 @item ret an @code{} representing the specified accessible child of the accessible. @end table @end deffn @deffn Function atk-object-ref-relation-set (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{}) @deffnx Method ref-relation-set Gets the @code{} associated with the object. @table @var @item accessible an @code{} @item ret an @code{} representing the relation set of the object. @end table @end deffn @deffn Function atk-object-get-layer (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{}) @deffnx Method get-layer @samp{atk_object_get_layer} is deprecated and should not be used in newly-written code. Use atk_component_get_layer instead. Gets the layer of the accessible. Returns: @table @var @item accessible an @code{} @item ret an @code{} which is the layer of the accessible @end table @end deffn @deffn Function atk-object-get-mdi-zorder (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{int}) @deffnx Method get-mdi-zorder @samp{atk_object_get_mdi_zorder} is deprecated and should not be used in newly-written code. Use atk_component_get_mdi_zorder instead. Gets the zorder of the accessible. The value G_MININT will be returned if the layer of the accessible is not ATK_LAYER_MDI. Returns: @table @var @item accessible an @code{} @item ret a gint which is the zorder of the accessible, i.e. the depth at which the component is shown in relation to other components in the same container. @end table @end deffn @deffn Function atk-object-get-role (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{}) @deffnx Method get-role Gets the role of the accessible. @table @var @item accessible an @code{} @item ret an @code{} which is the role of the accessible @end table @end deffn @deffn Function atk-object-ref-state-set (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{}) @deffnx Method ref-state-set Gets a reference to the state set of the accessible; the caller must unreference it when it is no longer needed. @table @var @item accessible an @code{} @item ret a reference to an @code{} which is the state set of the accessible @end table @end deffn @deffn Function atk-object-get-index-in-parent (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{int}) @deffnx Method get-index-in-parent Gets the 0-based index of this accessible in its parent; returns -1 if the accessible does not have an accessible parent. @table @var @item accessible an @code{} @item ret an integer which is the index of the accessible in its parent @end table @end deffn @deffn Function atk-object-set-name (self@tie{}@code{}) (name@tie{}@code{mchars}) @deffnx Method set-name Sets the accessible name of the accessible. @table @var @item accessible an @code{} @item name a character string to be set as the accessible name @end table @end deffn @deffn Function atk-object-set-description (self@tie{}@code{}) (description@tie{}@code{mchars}) @deffnx Method set-description Sets the accessible description of the accessible. @table @var @item accessible an @code{} @item description a character string to be set as the accessible description @end table @end deffn @deffn Function atk-object-set-parent (self@tie{}@code{}) (parent@tie{}@code{}) @deffnx Method set-parent Sets the accessible parent of the accessible. @table @var @item accessible an @code{} @item parent an @code{} to be set as the accessible parent @end table @end deffn @deffn Function atk-object-set-role (self@tie{}@code{}) (role@tie{}@code{}) @deffnx Method set-role Sets the role of the accessible. @table @var @item accessible an @code{} @item role an @code{} to be set as the role @end table @end deffn @deffn Function atk-object-notify-state-change (self@tie{}@code{}) (state@tie{}@code{unsigned-int64}) (value@tie{}@code{bool}) @deffnx Method notify-state-change Emits a state-change signal for the specified state. @table @var @item accessible an @code{} @item state an @code{} whose state is changed @item value a gboolean which indicates whether the state is being set on or off @end table @end deffn @deffn Function atk-object-add-relationship (self@tie{}@code{}) (relationship@tie{}@code{}) (target@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{bool}) @deffnx Method add-relationship Adds a relationship of the specified type with the specified target. @table @var @item object The @code{} to which an AtkRelation is to be added. @item relationship The @code{} of the relation @item target The @code{} which is to be the target of the relation. @item ret TRUE if the relationship is added. @end table @end deffn @deffn Function atk-object-remove-relationship (self@tie{}@code{}) (relationship@tie{}@code{}) (target@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{bool}) @deffnx Method remove-relationship Removes a relationship of the specified type with the specified target. @table @var @item object The @code{} from which an AtkRelation is to be removed. @item relationship The @code{} of the relation @item target The @code{} which is the target of the relation to be removed. @item ret TRUE if the relationship is removed. @end table @end deffn @deffn Function atk-role-get-name (role@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{mchars}) Gets the description string describing the @code{}@var{role}. @table @var @item role The @code{} whose name is required @item ret the string describing the AtkRole @end table @end deffn @deffn Function atk-role-get-localized-name (role@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{mchars}) Gets the localized description string describing the @code{}@var{role}. @table @var @item role The @code{} whose localized name is required @item ret the localized string describing the AtkRole @end table @end deffn @deffn Function atk-role-for-name (name@tie{}@code{mchars}) @result{}@tie{} (ret@tie{}@code{}) Get the @code{} type corresponding to a rolew name. @table @var @item name a string which is the (non-localized) name of an ATK role. @item ret the @code{} enumerated type corresponding to the specified name, or @code{} if no matching role is found. @end table @end deffn @c %end of fragment guile-gnome-platform-2.16.2/atk/doc/section-atkeditabletext.xml.texi0000644000175000017500000000117611670374302026032 0ustar00wingowingo00000000000000 @c %start of fragment @node AtkEditableText @chapter AtkEditableText The ATK interface implemented by components containing user-editable text content. @section Overview @code{} should be implemented by UI components which contain text which the user can edit, via the @code{} corresponding to that component (see @code{}). @code{} is a subclass of @code{}, and as such, an object which implements @code{} is by definition an @code{} implementor as well. @section Usage @include defuns-atkeditabletext.xml.texi @c %end of fragment guile-gnome-platform-2.16.2/atk/doc/defuns-atkeditabletext.xml.texi0000644000175000017500000000476111670374302025655 0ustar00wingowingo00000000000000 @c %start of fragment @deftp Class Derives from @code{}. This class defines no direct slots. @end deftp @deffn Function atk-editable-text-set-text-contents (self@tie{}@code{}) (string@tie{}@code{mchars}) @deffnx Method set-text-contents Set text contents of @var{text}. @table @var @item text an @code{} @item string string to set for text contents of @var{text} @end table @end deffn @deffn Function atk-editable-text-insert-text (self@tie{}@code{}) (string@tie{}@code{mchars}) (length@tie{}@code{int}) @result{}@tie{} (position@tie{}@code{int}) @deffnx Method insert-text Insert text at a given position. @table @var @item text an @code{} @item string the text to insert @item length the length of text to insert, in bytes @item position The caller initializes this to the position at which to insert the text. After the call it points at the position after the newly inserted text. @end table @end deffn @deffn Function atk-editable-text-copy-text (self@tie{}@code{}) (start_pos@tie{}@code{int}) (end_pos@tie{}@code{int}) @deffnx Method copy-text Copy text from @var{start-pos} up to, but not including @var{end-pos} to the clipboard. @table @var @item text an @code{} @item start-pos start position @item end-pos end position @end table @end deffn @deffn Function atk-editable-text-cut-text (self@tie{}@code{}) (start_pos@tie{}@code{int}) (end_pos@tie{}@code{int}) @deffnx Method cut-text Copy text from @var{start-pos} up to, but not including @var{end-pos} to the clipboard and then delete from the widget. @table @var @item text an @code{} @item start-pos start position @item end-pos end position @end table @end deffn @deffn Function atk-editable-text-delete-text (self@tie{}@code{}) (start_pos@tie{}@code{int}) (end_pos@tie{}@code{int}) @deffnx Method delete-text Delete text @var{start-pos} up to, but not including @var{end-pos}. @table @var @item text an @code{} @item start-pos start position @item end-pos end position @end table @end deffn @deffn Function atk-editable-text-paste-text (self@tie{}@code{}) (position@tie{}@code{int}) @deffnx Method paste-text Paste text from clipboard to specified @var{position}. @table @var @item text an @code{} @item position position to paste @end table @end deffn @c %end of fragment guile-gnome-platform-2.16.2/atk/doc/section-atkregistry.xml.texi0000644000175000017500000000117511670374302025223 0ustar00wingowingo00000000000000 @c %start of fragment @node AtkRegistry @chapter AtkRegistry An object used to store the GType of the factories used to create an accessible object for an object of a particular GType. @section Overview The AtkRegistry is normally used to create appropriate ATK "peers" for user interface components. Application developers usually need only interact with the AtkRegistry by associating appropriate ATK implementation classes with GObject classes via the atk_registry_set_factory_type call, passing the appropriate GType for application custom widget classes. @section Usage @include defuns-atkregistry.xml.texi @c %end of fragment guile-gnome-platform-2.16.2/atk/doc/defuns-atkstreamablecontent.xml.texi0000644000175000017500000000311711670374302026703 0ustar00wingowingo00000000000000 @c %start of fragment @deftp Class Derives from @code{}. This class defines no direct slots. @end deftp @deffn Function atk-streamable-content-get-stream (self@tie{}@code{}) (mime_type@tie{}@code{mchars}) @result{}@tie{} (ret@tie{}@code{}) @deffnx Method get-stream Gets the content in the specified mime type. @table @var @item streamable a GObject instance that implements AtkStreamableContentIface @item mime-type a gchar* representing the mime type @item ret A @code{} which contains the content in the specified mime type. @end table @end deffn @deffn Function atk-streamable-content-get-uri (self@tie{}@code{}) (mime_type@tie{}@code{mchars}) @result{}@tie{} (ret@tie{}@code{mchars}) @deffnx Method get-uri Get a string representing a URI in IETF standard format (see http://www.ietf.org/rfc/rfc2396.txt) from which the object's content may be streamed in the specified mime-type, if one is available. If mime_type is NULL, the URI for the default (and possibly only) mime-type is returned. Note that it is possible for get_uri to return NULL but for get_stream to work nonetheless, since not all GIOChannels connect to URIs. @table @var @item streamable a GObject instance that implements AtkStreamableContentIface @item mime-type a gchar* representing the mime type, or NULL to request a URI for the default mime type. @item ret Returns a string representing a URI, or NULL if no corresponding URI can be constructed. @end table Since ATK 1.12 @end deffn @c %end of fragment guile-gnome-platform-2.16.2/atk/doc/stamp-vti0000644000175000017500000000014611752511103021354 0ustar00wingowingo00000000000000@set UPDATED 9 December 2011 @set UPDATED-MONTH December 2011 @set EDITION 2.16.2 @set VERSION 2.16.2 guile-gnome-platform-2.16.2/atk/doc/section-atkselection.xml.texi0000644000175000017500000000141211670374302025332 0ustar00wingowingo00000000000000 @c %start of fragment @node AtkSelection @chapter AtkSelection The ATK interface implemented by container objects whose children can be selected. @section Overview @code{} should be implemented by UI components with children which are exposed by @code{} and @code{}, if the use of the parent UI component ordinarily involves selection of one or more of the objects corresponding to those @code{} children - for example, selectable lists. Note that other types of "selection" (for instance text selection) are accomplished a other ATK interfaces - @code{} is limited to the selection/deselection of children. @section Usage @include defuns-atkselection.xml.texi @c %end of fragment guile-gnome-platform-2.16.2/atk/doc/section-atkimage.xml.texi0000644000175000017500000000166511670374302024441 0ustar00wingowingo00000000000000 @c %start of fragment @node AtkImage @chapter AtkImage The ATK Interface implemented by components which expose image or pixmap content on-screen. @section Overview @code{} should be implemented by @code{} subtypes on behalf of components which display image/pixmap information onscreen, and which provide information (other than just widget borders, etc.) via that image content. For instance, icons, buttons with icons, toolbar elements, and image viewing panes typically should implement @code{}. @code{} primarily provides two types of information: coordinate information (useful for screen review mode of screenreaders, and for use by onscreen magnifiers), and descriptive information. The descriptive information is provided for alternative, text-only presentation of the most significant information present in the image. @section Usage @include defuns-atkimage.xml.texi @c %end of fragment guile-gnome-platform-2.16.2/atk/doc/section-atkutil.xml.texi0000644000175000017500000000064711670374302024333 0ustar00wingowingo00000000000000 @c %start of fragment @node AtkUtil @chapter AtkUtil A set of ATK utility functions for event and toolkit support. @section Overview A set of ATK utility functions which are used to support event registration of various types, and obtaining the 'root' accessible of a process and information about the current ATK implementation and toolkit version. @section Usage @include defuns-atkutil.xml.texi @c %end of fragment guile-gnome-platform-2.16.2/atk/doc/overview.texi0000644000175000017500000000153411670374302022257 0ustar00wingowingo00000000000000@node Overview @chapter Overview @code{(gnome atk)} wraps the Accessibility Toolkit (ATK) for Guile. It is a part of Guile-GNOME. ATK is a technology to allow user interface elements to be traversable, readable, and writable by users that do not use the traditional combination of keyboard, screen, and mouse. This encompasses screen readers, text-to-speech, braille displays, etc. Technically, ATK is implemented as a set of GObject interfaces that can be implemented by user interface toolkits. This is transparently translated into multiple inheritance on the Scheme level; if a class derives from @code{}, then the @code{} methods will apply to it. The GTK+ toolkit interfaces with ATK via the @code{gtk-widget-get-accessible} method. See the documentation for @code{(gnome gobject)} for more information on Guile-GNOME. guile-gnome-platform-2.16.2/atk/doc/defuns-atktable.xml.texi0000644000175000017500000003572411670374302024271 0ustar00wingowingo00000000000000 @c %start of fragment @deftp Class Derives from @code{}. This class defines no direct slots. @end deftp @defop Signal row-inserted (arg0@tie{}@code{}) (arg1@tie{}@code{}) The "row-inserted" signal is emitted by an object which implements the AtkTable interface when a column is inserted. @end defop @defop Signal column-inserted (arg0@tie{}@code{}) (arg1@tie{}@code{}) The "column-inserted" signal is emitted by an object which implements the AtkTable interface when a column is inserted. @end defop @defop Signal row-deleted (arg0@tie{}@code{}) (arg1@tie{}@code{}) The "row-deleted" signal is emitted by an object which implements the AtkTable interface when a column is inserted. @end defop @defop Signal column-deleted (arg0@tie{}@code{}) (arg1@tie{}@code{}) The "column-deleted" signal is emitted by an object which implements the AtkTable interface when a column is deleted. @end defop @defop Signal row-reordered The "row-reordered" signal is emitted by an object which implements the AtkTable interface when the columns are reordered. @end defop @defop Signal column-reordered The "column-reordered" signal is emitted by an object which implements the AtkTable interface when the columns are reordered. @end defop @defop Signal model-changed The "model-changed" signal is emitted by an object which implements the AtkTable interface when the model displayed by the table changes. @end defop @deffn Function atk-table-ref-at (self@tie{}@code{}) (row@tie{}@code{int}) (column@tie{}@code{int}) @result{}@tie{} (ret@tie{}@code{}) @deffnx Method ref-at Get a reference to the table cell at @var{row}, @var{column}. @table @var @item table a GObject instance that implements AtkTableIface @item row a @code{} representing a row in @var{table} @item column a @code{} representing a column in @var{table} @item ret a AtkObject* representing the referred to accessible @end table @end deffn @deffn Function atk-table-get-index-at (self@tie{}@code{}) (row@tie{}@code{int}) (column@tie{}@code{int}) @result{}@tie{} (ret@tie{}@code{int}) @deffnx Method get-index-at Gets a @code{} representing the index at the specified @var{row} and @var{column}. @table @var @item table a GObject instance that implements AtkTableIface @item row a @code{} representing a row in @var{table} @item column a @code{} representing a column in @var{table} @item ret a @code{} representing the index at specified position. The value -1 is returned if the object at row,column is not a child of table or table does not implement this interface. @end table @end deffn @deffn Function atk-table-get-column-at-index (self@tie{}@code{}) (index_@tie{}@code{int}) @result{}@tie{} (ret@tie{}@code{int}) @deffnx Method get-column-at-index Gets a @code{} representing the column at the specified @var{index}. @table @var @item table a GObject instance that implements AtkTableInterface @item index a @code{} representing an index in @var{table} @item ret a gint representing the column at the specified index, or -1 if the table does not implement this interface @end table @end deffn @deffn Function atk-table-get-row-at-index (self@tie{}@code{}) (index_@tie{}@code{int}) @result{}@tie{} (ret@tie{}@code{int}) @deffnx Method get-row-at-index Gets a @code{} representing the row at the specified @var{index}. @table @var @item table a GObject instance that implements AtkTableInterface @item index a @code{} representing an index in @var{table} @item ret a gint representing the row at the specified index, or -1 if the table does not implement this interface @end table @end deffn @deffn Function atk-table-get-n-columns (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{int}) @deffnx Method get-n-columns Gets the number of columns in the table. @table @var @item table a GObject instance that implements AtkTableIface @item ret a gint representing the number of columns, or 0 if value does not implement this interface. @end table @end deffn @deffn Function atk-table-get-n-rows (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{int}) @deffnx Method get-n-rows Gets the number of rows in the table. @table @var @item table a GObject instance that implements AtkTableIface @item ret a gint representing the number of rows, or 0 if value does not implement this interface. @end table @end deffn @deffn Function atk-table-get-column-extent-at (self@tie{}@code{}) (row@tie{}@code{int}) (column@tie{}@code{int}) @result{}@tie{} (ret@tie{}@code{int}) @deffnx Method get-column-extent-at Gets the number of columns occupied by the accessible object at the specified @var{row} and @var{column} in the @var{table}. @table @var @item table a GObject instance that implements AtkTableIface @item row a @code{} representing a row in @var{table} @item column a @code{} representing a column in @var{table} @item ret a gint representing the column extent at specified position, or 0 if value does not implement this interface. @end table @end deffn @deffn Function atk-table-get-row-extent-at (self@tie{}@code{}) (row@tie{}@code{int}) (column@tie{}@code{int}) @result{}@tie{} (ret@tie{}@code{int}) @deffnx Method get-row-extent-at Gets the number of rows occupied by the accessible object at a specified @var{row} and @var{column} in the @var{table}. @table @var @item table a GObject instance that implements AtkTableIface @item row a @code{} representing a row in @var{table} @item column a @code{} representing a column in @var{table} @item ret a gint representing the row extent at specified position, or 0 if value does not implement this interface. @end table @end deffn @deffn Function atk-table-get-caption (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{}) @deffnx Method get-caption Gets the caption for the @var{table}. @table @var @item table a GObject instance that implements AtkTableInterface @item ret a AtkObject* representing the table caption, or @samp{@code{#f}} if value does not implement this interface. @end table @end deffn @deffn Function atk-table-get-column-description (self@tie{}@code{}) (column@tie{}@code{int}) @result{}@tie{} (ret@tie{}@code{mchars}) @deffnx Method get-column-description Gets the description text of the specified @var{column} in the table @table @var @item table a GObject instance that implements AtkTableIface @item column a @code{} representing a column in @var{table} @item ret a gchar* representing the column description, or @samp{@code{#f}} if value does not implement this interface. @end table @end deffn @deffn Function atk-table-get-row-description (self@tie{}@code{}) (row@tie{}@code{int}) @result{}@tie{} (ret@tie{}@code{mchars}) @deffnx Method get-row-description Gets the description text of the specified row in the table @table @var @item table a GObject instance that implements AtkTableIface @item row a @code{} representing a row in @var{table} @item ret a gchar* representing the row description, or @samp{@code{#f}} if value does not implement this interface. @end table @end deffn @deffn Function atk-table-get-column-header (self@tie{}@code{}) (column@tie{}@code{int}) @result{}@tie{} (ret@tie{}@code{}) @deffnx Method get-column-header Gets the column header of a specified column in an accessible table. @table @var @item table a GObject instance that implements AtkTableIface @item column a @code{} representing a column in the table @item ret a AtkObject* representing the specified column header, or @samp{@code{#f}} if value does not implement this interface. @end table @end deffn @deffn Function atk-table-get-row-header (self@tie{}@code{}) (row@tie{}@code{int}) @result{}@tie{} (ret@tie{}@code{}) @deffnx Method get-row-header Gets the row header of a specified row in an accessible table. @table @var @item table a GObject instance that implements AtkTableIface @item row a @code{} representing a row in the table @item ret a AtkObject* representing the specified row header, or @samp{@code{#f}} if value does not implement this interface. @end table @end deffn @deffn Function atk-table-get-summary (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{}) @deffnx Method get-summary Gets the summary description of the table. @table @var @item table a GObject instance that implements AtkTableIface @item ret a AtkObject* representing a summary description of the table, or zero if value does not implement this interface. @end table @end deffn @deffn Function atk-table-set-caption (self@tie{}@code{}) (caption@tie{}@code{}) @deffnx Method set-caption Sets the caption for the table. @table @var @item table a GObject instance that implements AtkTableIface @item caption a @code{} representing the caption to set for @var{table} @end table @end deffn @deffn Function atk-table-set-row-description (self@tie{}@code{}) (row@tie{}@code{int}) (description@tie{}@code{mchars}) @deffnx Method set-row-description Sets the description text for the specified @var{row} of @var{table}. @table @var @item table a GObject instance that implements AtkTableIface @item row a @code{} representing a row in @var{table} @item description a @code{} representing the description text to set for the specified @var{row} of @var{table} @end table @end deffn @deffn Function atk-table-set-column-description (self@tie{}@code{}) (column@tie{}@code{int}) (description@tie{}@code{mchars}) @deffnx Method set-column-description Sets the description text for the specified @var{column} of the @var{table}. @table @var @item table a GObject instance that implements AtkTableIface @item column a @code{} representing a column in @var{table} @item description a @code{} representing the description text to set for the specified @var{column} of the @var{table} @end table @end deffn @deffn Function atk-table-set-row-header (self@tie{}@code{}) (row@tie{}@code{int}) (header@tie{}@code{}) @deffnx Method set-row-header Sets the specified row header to @var{header}. @table @var @item table a GObject instance that implements AtkTableIface @item row a @code{} representing a row in @var{table} @item header an @code{} @end table @end deffn @deffn Function atk-table-set-column-header (self@tie{}@code{}) (column@tie{}@code{int}) (header@tie{}@code{}) @deffnx Method set-column-header Sets the specified column header to @var{header}. @table @var @item table a GObject instance that implements AtkTableIface @item column a @code{} representing a column in @var{table} @item header an @code{} @end table @end deffn @deffn Function atk-table-set-summary (self@tie{}@code{}) (accessible@tie{}@code{}) @deffnx Method set-summary Sets the summary description of the table. @table @var @item table a GObject instance that implements AtkTableIface @item accessible an @code{} representing the summary description to set for @var{table} @end table @end deffn @deffn Function atk-table-is-column-selected (self@tie{}@code{}) (column@tie{}@code{int}) @result{}@tie{} (ret@tie{}@code{bool}) @deffnx Method is-column-selected Gets a boolean value indicating whether the specified @var{column} is selected @table @var @item table a GObject instance that implements AtkTableIface @item column a @code{} representing a column in @var{table} @item ret a gboolean representing if the column is selected, or 0 if value does not implement this interface. @end table @end deffn @deffn Function atk-table-is-row-selected (self@tie{}@code{}) (row@tie{}@code{int}) @result{}@tie{} (ret@tie{}@code{bool}) @deffnx Method is-row-selected Gets a boolean value indicating whether the specified @var{row} is selected @table @var @item table a GObject instance that implements AtkTableIface @item row a @code{} representing a row in @var{table} @item ret a gboolean representing if the row is selected, or 0 if value does not implement this interface. @end table @end deffn @deffn Function atk-table-is-selected (self@tie{}@code{}) (row@tie{}@code{int}) (column@tie{}@code{int}) @result{}@tie{} (ret@tie{}@code{bool}) @deffnx Method is-selected Gets a boolean value indicating whether the accessible object at the specified @var{row} and @var{column} is selected @table @var @item table a GObject instance that implements AtkTableIface @item row a @code{} representing a row in @var{table} @item column a @code{} representing a column in @var{table} @item ret a gboolean representing if the cell is selected, or 0 if value does not implement this interface. @end table @end deffn @deffn Function atk-table-add-column-selection (self@tie{}@code{}) (column@tie{}@code{int}) @result{}@tie{} (ret@tie{}@code{bool}) @deffnx Method add-column-selection Adds the specified @var{column} to the selection. @table @var @item table a GObject instance that implements AtkTableIface @item column a @code{} representing a column in @var{table} @item ret a gboolean representing if the column was successfully added to the selection, or 0 if value does not implement this interface. @end table @end deffn @deffn Function atk-table-add-row-selection (self@tie{}@code{}) (row@tie{}@code{int}) @result{}@tie{} (ret@tie{}@code{bool}) @deffnx Method add-row-selection Adds the specified @var{row} to the selection. @table @var @item table a GObject instance that implements AtkTableIface @item row a @code{} representing a row in @var{table} @item ret a gboolean representing if row was successfully added to selection, or 0 if value does not implement this interface. @end table @end deffn @deffn Function atk-table-remove-column-selection (self@tie{}@code{}) (column@tie{}@code{int}) @result{}@tie{} (ret@tie{}@code{bool}) @deffnx Method remove-column-selection Adds the specified @var{column} to the selection. @table @var @item table a GObject instance that implements AtkTableIface @item column a @code{} representing a column in @var{table} @item ret a gboolean representing if the column was successfully removed from the selection, or 0 if value does not implement this interface. @end table @end deffn @deffn Function atk-table-remove-row-selection (self@tie{}@code{}) (row@tie{}@code{int}) @result{}@tie{} (ret@tie{}@code{bool}) @deffnx Method remove-row-selection Removes the specified @var{row} from the selection. @table @var @item table a GObject instance that implements AtkTableIface @item row a @code{} representing a row in @var{table} @item ret a gboolean representing if the row was successfully removed from the selection, or 0 if value does not implement this interface. @end table @end deffn @c %end of fragment guile-gnome-platform-2.16.2/atk/doc/section-atkcomponent.xml.texi0000644000175000017500000000147111670374302025354 0ustar00wingowingo00000000000000 @c %start of fragment @node AtkComponent @chapter AtkComponent The ATK interface provided by UI components which occupy a physical area on the screen. @section Overview @code{} should be implemented by most if not all UI elements with an actual on-screen presence, i.e. components which can be said to have a screen-coordinate bounding box. Virtually all widgets will need to have @code{} implementations provided for their corresponding @code{} class. In short, only UI elements which are *not* GUI elements will omit this ATK interface. A possible exception might be textual information with a transparent background, in which case text glyph bounding box information is provided by @code{}. @section Usage @include defuns-atkcomponent.xml.texi @c %end of fragment guile-gnome-platform-2.16.2/atk/doc/section-atkvalue.xml.texi0000644000175000017500000000134311670374302024464 0ustar00wingowingo00000000000000 @c %start of fragment @node AtkValue @chapter AtkValue The ATK interface implemented by valuators and components which display or select a value from a bounded range of values. @section Overview @code{} should be implemented for components which either display a value from a bounded range, or which allow the user to specify a value from a bounded range, or both. For instance, most sliders and range controls, as well as dials, should have @code{} representations which implement @code{} on the component's behalf. @code{} may be read-only, in which case attempts to alter the value return FALSE to indicate failure. @section Usage @include defuns-atkvalue.xml.texi @c %end of fragment guile-gnome-platform-2.16.2/atk/doc/section-atkobject.xml.texi0000644000175000017500000000233111670374302024614 0ustar00wingowingo00000000000000 @c %start of fragment @node AtkObject @chapter AtkObject The base object class for the Accessibility Toolkit API. @section Overview This class is the primary class for accessibility support via the Accessibility ToolKit (ATK). Objects which are instances of @code{} (or instances of AtkObject-derived types) are queried for properties which relate basic (and generic) properties of a UI component such as name and description. Instances of @code{} may also be queried as to whether they implement other ATK interfaces (e.g. @code{}, @code{}, etc.), as appropriate to the role which a given UI component plays in a user interface. All UI components in an application which provide useful information or services to the user must provide corresponding @code{} instances on request (in GTK+, for instance, usually on a call to #@code{gtk-widget-get-accessible}), either via ATK support built into the toolkit for the widget class or ancestor class, or in the case of custom widgets, if the inherited @code{} implementation is insufficient, via instances of a new @code{} subclass. @section Usage @include defuns-atkobject.xml.texi @c %end of fragment guile-gnome-platform-2.16.2/atk/doc/defuns-atkgobjectaccessible.xml.texi0000644000175000017500000000157411670374302026631 0ustar00wingowingo00000000000000 @c %start of fragment @deftp Class Derives from @code{}. This class defines no direct slots. @end deftp @deffn Function atk-gobject-accessible-for-object (obj@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{}) Gets the accessible object for the specified @var{obj}. @table @var @item obj a @code{} @item ret a @code{} which is the accessible object for the @var{obj} @end table @end deffn @deffn Function atk-gobject-accessible-get-object (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{}) @deffnx Method get-object Gets the GObject for which @var{obj} is the accessible object. @table @var @item obj a @code{} @item ret a @code{} which is the object for which @var{obj} is the accessible objedct @end table @end deffn @c %end of fragment guile-gnome-platform-2.16.2/atk/doc/section-atkstreamablecontent.xml.texi0000644000175000017500000000214411670374302027062 0ustar00wingowingo00000000000000 @c %start of fragment @node AtkStreamableContent @chapter AtkStreamableContent The ATK interface which provides access to streamable content. @section Overview An interface whereby an object allows its backing content to be streamed to clients. Typical implementors would be images or icons, HTML content, or multimedia display/rendering widgets. Negotiation of content type is allowed. Clients may examine the backing data and transform, convert, or parse the content in order to present it in an alternate form to end-users. The AtkStreamableContent interface is particularly useful for saving, printing, or post-processing entire documents, or for persisting alternate views of a document. If document content itself is being serialized, stored, or converted, then use of the AtkStreamableContent interface can help address performance issues. Unlike most ATK interfaces, this interface is not strongly tied to the current user-agent view of the a particular document, but may in some cases give access to the underlying model data. @section Usage @include defuns-atkstreamablecontent.xml.texi @c %end of fragment guile-gnome-platform-2.16.2/atk/doc/defuns-atkhypertext.xml.texi0000644000175000017500000000325511670374302025230 0ustar00wingowingo00000000000000 @c %start of fragment @deftp Class Derives from @code{}. This class defines no direct slots. @end deftp @defop Signal link-selected (arg0@tie{}@code{}) The "link-selected" signal is emitted by an AtkHyperText object when one of the hyperlinks associated with the object is selected. @end defop @deffn Function atk-hypertext-get-link (self@tie{}@code{}) (link_index@tie{}@code{int}) @result{}@tie{} (ret@tie{}@code{}) @deffnx Method get-link Gets the link in this hypertext document at index @var{link-index} @table @var @item hypertext an @code{} @item link-index an integer specifying the desired link @item ret the link in this hypertext document at index @var{link-index} @end table @end deffn @deffn Function atk-hypertext-get-n-links (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{int}) @deffnx Method get-n-links Gets the number of links within this hypertext document. @table @var @item hypertext an @code{} @item ret the number of links within this hypertext document @end table @end deffn @deffn Function atk-hypertext-get-link-index (self@tie{}@code{}) (char_index@tie{}@code{int}) @result{}@tie{} (ret@tie{}@code{int}) @deffnx Method get-link-index Gets the index into the array of hyperlinks that is associated with the character specified by @var{char-index}. @table @var @item hypertext an @code{} @item char-index a character index @item ret an index into the array of hyperlinks in @var{hypertext}, or -1 if there is no hyperlink associated with this character. @end table @end deffn @c %end of fragment guile-gnome-platform-2.16.2/atk/doc/defuns-atkcomponent.xml.texi0000644000175000017500000001421611670374302025175 0ustar00wingowingo00000000000000 @c %start of fragment @deftp Class Derives from @code{}. This class defines no direct slots. @end deftp @defop Signal bounds-changed (arg0@tie{}@code{}) The 'bounds-changed" signal is emitted when the bposition or size of the a component changes. @end defop @deffn Function atk-component-contains (self@tie{}@code{}) (x@tie{}@code{int}) (y@tie{}@code{int}) (coord_type@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{bool}) @deffnx Method contains Checks whether the specified point is within the extent of the @var{component}. @table @var @item component the @code{} @item x x coordinate @item y y coordinate @item coord-type specifies whether the coordinates are relative to the screen or to the components top level window @item ret @samp{@code{#t}} or @samp{@code{#f}} indicating whether the specified point is within the extent of the @var{component} or not @end table @end deffn @deffn Function atk-component-get-extents (self@tie{}@code{}) (coord_type@tie{}@code{}) @result{}@tie{} (x@tie{}@code{int}) (y@tie{}@code{int}) (width@tie{}@code{int}) (height@tie{}@code{int}) @deffnx Method get-extents Gets the rectangle which gives the extent of the @var{component}. @table @var @item component an @code{} @item x address of @code{} to put x coordinate @item y address of @code{} to put y coordinate @item width address of @code{} to put width @item height address of @code{} to put height @item coord-type specifies whether the coordinates are relative to the screen or to the components top level window @end table @end deffn @deffn Function atk-component-get-layer (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{}) @deffnx Method get-layer Gets the layer of the component. @table @var @item component an @code{} @item ret an @code{} which is the layer of the component @end table @end deffn @deffn Function atk-component-get-mdi-zorder (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{int}) @deffnx Method get-mdi-zorder Gets the zorder of the component. The value G_MININT will be returned if the layer of the component is not ATK_LAYER_MDI or ATK_LAYER_WINDOW. @table @var @item component an @code{} @item ret a gint which is the zorder of the component, i.e. the depth at which the component is shown in relation to other components in the same container. @end table @end deffn @deffn Function atk-component-get-position (self@tie{}@code{}) (coord_type@tie{}@code{}) @result{}@tie{} (x@tie{}@code{int}) (y@tie{}@code{int}) @deffnx Method get-position Gets the position of @var{component} in the form of a point specifying @var{component}'s top-left corner. @table @var @item component an @code{} @item x address of @code{} to put x coordinate position @item y address of @code{} to put y coordinate position @item coord-type specifies whether the coordinates are relative to the screen or to the components top level window @end table @end deffn @deffn Function atk-component-get-size (self@tie{}@code{}) @result{}@tie{} (width@tie{}@code{int}) (height@tie{}@code{int}) @deffnx Method get-size Gets the size of the @var{component} in terms of width and height. @table @var @item component an @code{} @item width address of @code{} to put width of @var{component} @item height address of @code{} to put height of @var{component} @end table @end deffn @deffn Function atk-component-grab-focus (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{bool}) @deffnx Method grab-focus Grabs focus for this @var{component}. @table @var @item component an @code{} @item ret @samp{@code{#t}} if successful, @samp{@code{#f}} otherwise. @end table @end deffn @deffn Function atk-component-set-extents (self@tie{}@code{}) (x@tie{}@code{int}) (y@tie{}@code{int}) (width@tie{}@code{int}) (height@tie{}@code{int}) (coord_type@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{bool}) @deffnx Method set-extents Sets the extents of @var{component}. @table @var @item component an @code{} @item x x coordinate @item y y coordinate @item width width to set for @var{component} @item height height to set for @var{component} @item coord-type specifies whether the coordinates are relative to the screen or to the components top level window @item ret @samp{@code{#t}} or @samp{@code{#f}} whether the extents were set or not @end table @end deffn @deffn Function atk-component-set-position (self@tie{}@code{}) (x@tie{}@code{int}) (y@tie{}@code{int}) (coord_type@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{bool}) @deffnx Method set-position Sets the postition of @var{component}. @table @var @item component an @code{} @item x x coordinate @item y y coordinate @item coord-type specifies whether the coordinates are relative to the screen or to the components top level window @item ret @samp{@code{#t}} or @samp{@code{#f}} whether or not the position was set or not @end table @end deffn @deffn Function atk-component-set-size (self@tie{}@code{}) (width@tie{}@code{int}) (height@tie{}@code{int}) @result{}@tie{} (ret@tie{}@code{bool}) @deffnx Method set-size Set the size of the @var{component} in terms of width and height. @table @var @item component an @code{} @item width width to set for @var{component} @item height height to set for @var{component} @item ret @samp{@code{#t}} or @samp{@code{#f}} whether the size was set or not @end table @end deffn @deffn Function atk-component-get-alpha (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{double}) @deffnx Method get-alpha Returns the alpha value (i.e. the opacity) for this @var{component}, on a scale from 0 (fully transparent) to 1.0 (fully opaque). @table @var @item component an @code{} @item ret An alpha value from 0 to 1.0, inclusive. @end table Since ATK 1.12 @end deffn @c %end of fragment guile-gnome-platform-2.16.2/atk/doc/section-atktable.xml.texi0000644000175000017500000000244711670374302024445 0ustar00wingowingo00000000000000 @c %start of fragment @node AtkTable @chapter AtkTable The ATK interface implemented for UI components which contain tabular or row/column information. @section Overview @code{} should be implemented by components which present elements ordered via rows and columns. It may also be used to present tree-structured information if the nodes of the trees can be said to contain multiple "columns". Individual elements of an @code{} are typically referred to as "cells", and these cells are exposed by @code{} as child @code{} of the @code{}. Both row/column and child-index-based access to these children is provided. Children of @code{} are frequently "lightweight" objects, that is, they may not have backing widgets in the host UI toolkit. They are therefore often transient. Since tables are often very complex, @code{} includes provision for offering simplified summary information, as well as row and column headers and captions. Headers and captions are @code{} which may implement other interfaces (@code{}, @code{}, etc.) as appropriate. @code{} summaries may themselves be (simplified) @code{}, etc. @section Usage @include defuns-atktable.xml.texi @c %end of fragment guile-gnome-platform-2.16.2/atk/doc/section-atkstate.xml.texi0000644000175000017500000000053611670374302024473 0ustar00wingowingo00000000000000 @c %start of fragment @node AtkState @chapter AtkState An AtkState describes a component's particular state. @section Overview An AtkState describes a component's particular state. The actual state of an component is described by its AtkStateSet, which is a set of AtkStates. @section Usage @include defuns-atkstate.xml.texi @c %end of fragment guile-gnome-platform-2.16.2/atk/doc/defuns-atkstate.xml.texi0000644000175000017500000000134311670374302024310 0ustar00wingowingo00000000000000 @c %start of fragment @deffn Function atk-state-type-get-name (type@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{mchars}) Gets the description string describing the @code{}@var{type}. @table @var @item type The @code{} whose name is required @item ret the string describing the AtkStateType @end table @end deffn @deffn Function atk-state-type-for-name (name@tie{}@code{mchars}) @result{}@tie{} (ret@tie{}@code{}) Gets the @code{} corresponding to the description string @var{name}. @table @var @item name a character string state name @item ret an @code{} corresponding to @var{name} @end table @end deffn @c %end of fragment guile-gnome-platform-2.16.2/atk/doc/defuns-atkvalue.xml.texi0000644000175000017500000000427411670374302024312 0ustar00wingowingo00000000000000 @c %start of fragment @deftp Class Derives from @code{}. This class defines no direct slots. @end deftp @deffn Function atk-value-get-current-value (self@tie{}@code{}) (value@tie{}@code{}) @deffnx Method get-current-value Gets the value of this object. @table @var @item obj a GObject instance that implements AtkValueIface @item value a @code{} representing the current accessible value @end table @end deffn @deffn Function atk-value-get-maximum-value (self@tie{}@code{}) (value@tie{}@code{}) @deffnx Method get-maximum-value Gets the maximum value of this object. @table @var @item obj a GObject instance that implements AtkValueIface @item value a @code{} representing the maximum accessible value @end table @end deffn @deffn Function atk-value-get-minimum-value (self@tie{}@code{}) (value@tie{}@code{}) @deffnx Method get-minimum-value Gets the minimum value of this object. @table @var @item obj a GObject instance that implements AtkValueIface @item value a @code{} representing the minimum accessible value @end table @end deffn @deffn Function atk-value-set-current-value (self@tie{}@code{}) (value@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{bool}) @deffnx Method set-current-value Sets the value of this object. @table @var @item obj a GObject instance that implements AtkValueIface @item value a @code{} which is the desired new accessible value. @item ret @samp{@code{#t}} if new value is successfully set, @samp{@code{#f}} otherwise. @end table @end deffn @deffn Function atk-value-get-minimum-increment (self@tie{}@code{}) (value@tie{}@code{}) @deffnx Method get-minimum-increment Gets the minimum increment by which the value of this object may be changed. If zero, the minimum increment is undefined, which may mean that it is limited only by the floating point precision of the platform. @table @var @item obj a GObject instance that implements AtkValueIface @item value a @code{} representing the minimum increment by which the accessible value may be changed @end table Since ATK 1.12 @end deffn @c %end of fragment guile-gnome-platform-2.16.2/atk/doc/defuns-atkregistry.xml.texi0000644000175000017500000000510711670374302025042 0ustar00wingowingo00000000000000 @c %start of fragment @deftp Class Derives from @code{}. This class defines no direct slots. @end deftp @deffn Function atk-registry-set-factory-type (self@tie{}@code{}) (type@tie{}@code{}) (factory_type@tie{}@code{}) @deffnx Method set-factory-type Associate an @code{} subclass with a @code{}. Note: The associated @var{factory-type} will thereafter be responsible for the creation of new @code{} implementations for instances appropriate for @var{type}. @table @var @item registry the @code{} in which to register the type association @item type an @code{} type @item factory-type an @code{} type to associate with @var{type}. Must implement AtkObject appropriate for @var{type}. @end table @end deffn @deffn Function atk-registry-get-factory-type (self@tie{}@code{}) (type@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{}) @deffnx Method get-factory-type Provides a @code{} indicating the @code{} subclass associated with @var{type}. @table @var @item registry an @code{} @item type a @code{} with which to look up the associated @code{} subclass @item ret a @code{} associated with type @var{type} @end table @end deffn @deffn Function atk-registry-get-factory (self@tie{}@code{}) (type@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{}) @deffnx Method get-factory Gets an @code{} appropriate for creating @code{} appropriate for @var{type}. @table @var @item registry an @code{} @item type a @code{} with which to look up the associated @code{} @item ret an @code{} appropriate for creating @code{} appropriate for @var{type}. @end table @end deffn @deffn Function atk-get-default-registry @result{}@tie{} (ret@tie{}@code{}) Gets a default implementation of the @code{}/type registry. Note: For most toolkit maintainers, this will be the correct registry for registering new @code{} factories. Following a call to this function, maintainers may call @code{atk-registry-set-factory-type} to associate an @code{} subclass with the GType of objects for whom accessibility information will be provided. @table @var @item ret a default implementation of the @code{}/type registry @end table @end deffn @c %end of fragment guile-gnome-platform-2.16.2/atk/tests/0000755000175000017500000000000011752546500020112 5ustar00wingowingo00000000000000guile-gnome-platform-2.16.2/atk/tests/wrapset.scm0000644000175000017500000000311411670374302022300 0ustar00wingowingo00000000000000;;; ---------------------------------------------------------------------- ;;; unit test ;;; Copyright (C) 2007 Andy Wingo ;;; ;;; This program is free software; you can redistribute it and/or modify ;;; it under the terms of the GNU General Public License as published by ;;; the Free Software Foundation; either version 2 of the License, or ;;; (at your option) any later version. ;;; ;;; This program is distributed in the hope that it will be useful, ;;; but WITHOUT ANY WARRANTY; without even the implied warranty of ;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the ;;; GNU General Public License for more details. ;;; ;;; You should have received a copy of the GNU General Public License ;;; along with this program; if not, write to the Free Software ;;; Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA ;;; ---------------------------------------------------------------------- (use-modules (unit-test) (apicheck) (ice-9 pretty-print) (oop goops)) (define-class ()) (define *modules* (call-with-input-string (getenv "WRAPSET_MODULES") read)) (define *api-file* (getenv "WRAPSET_API_FILE")) (define-method (test-wrapset-api (self )) (apicheck-validate (call-with-input-file *api-file* read) *modules*)) (define (main args) (exit-with-summary (run-all-defined-test-cases))) (define (update-api args) (with-output-to-file *api-file* (lambda () (pretty-print (apicheck-generate *modules*))))) guile-gnome-platform-2.16.2/atk/tests/Makefile.am0000644000175000017500000000005311670374302022142 0ustar00wingowingo00000000000000include ../../tests.mk wrapset_stem = atk guile-gnome-platform-2.16.2/atk/tests/Makefile.in0000644000175000017500000004014411752511065022160 0ustar00wingowingo00000000000000# Makefile.in generated by automake 1.11.5 from Makefile.am. # @configure_input@ # Copyright (C) 1994, 1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, # 2003, 2004, 2005, 2006, 2007, 2008, 2009, 2010, 2011 Free Software # Foundation, Inc. # This Makefile.in is free software; the Free Software Foundation # gives unlimited permission to copy and/or distribute it, # with or without modifications, as long as this notice is preserved. # This program is distributed in the hope that it will be useful, # but WITHOUT ANY WARRANTY, to the extent permitted by law; without # even the implied warranty of MERCHANTABILITY or FITNESS FOR A # PARTICULAR PURPOSE. @SET_MAKE@ # guile-gnome # Copyright (C) 2007, 2011 Free Software Foundation, Inc. # This program is free software; you can redistribute it and/or # modify it under the terms of the GNU General Public License as # published by the Free Software Foundation; either version 2 of # the License, or (at your option) any later version. # This program is distributed in the hope that it will be useful, # but WITHOUT ANY WARRANTY; without even the implied warranty of # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the # GNU General Public License for more details. # You should have received a copy of the GNU General Public License # along with this program; if not, contact: # Free Software Foundation Voice: +1-617-542-5942 # 59 Temple Place - Suite 330 Fax: +1-617-542-2652 # Boston, MA 02111-1307, USA gnu@gnu.org VPATH = @srcdir@ am__make_dryrun = \ { \ am__dry=no; \ case $$MAKEFLAGS in \ *\\[\ \ ]*) \ echo 'am--echo: ; @echo "AM" OK' | $(MAKE) -f - 2>/dev/null \ | grep '^AM OK$$' >/dev/null || am__dry=yes;; \ *) \ for am__flg in $$MAKEFLAGS; do \ case $$am__flg in \ *=*|--*) ;; \ *n*) am__dry=yes; break;; \ esac; \ done;; \ esac; \ test $$am__dry = yes; \ } pkgdatadir = $(datadir)/@PACKAGE@ pkgincludedir = $(includedir)/@PACKAGE@ pkglibdir = $(libdir)/@PACKAGE@ pkglibexecdir = $(libexecdir)/@PACKAGE@ am__cd = CDPATH="$${ZSH_VERSION+.}$(PATH_SEPARATOR)" && cd install_sh_DATA = $(install_sh) -c -m 644 install_sh_PROGRAM = $(install_sh) -c install_sh_SCRIPT = $(install_sh) -c INSTALL_HEADER = $(INSTALL_DATA) transform = $(program_transform_name) NORMAL_INSTALL = : PRE_INSTALL = : POST_INSTALL = : NORMAL_UNINSTALL = : PRE_UNINSTALL = : POST_UNINSTALL = : build_triplet = @build@ host_triplet = @host@ DIST_COMMON = $(srcdir)/../../tests.mk $(srcdir)/Makefile.am \ $(srcdir)/Makefile.in subdir = atk/tests ACLOCAL_M4 = $(top_srcdir)/aclocal.m4 am__aclocal_m4_deps = $(top_srcdir)/configure.ac am__configure_deps = $(am__aclocal_m4_deps) $(CONFIGURE_DEPENDENCIES) \ $(ACLOCAL_M4) mkinstalldirs = $(install_sh) -d CONFIG_HEADER = $(top_builddir)/config.h CONFIG_CLEAN_FILES = CONFIG_CLEAN_VPATH_FILES = SOURCES = DIST_SOURCES = am__can_run_installinfo = \ case $$AM_UPDATE_INFO_DIR in \ n|no|NO) false;; \ *) (install-info --version) >/dev/null 2>&1;; \ esac am__tty_colors = \ red=; grn=; lgn=; blu=; std= DISTFILES = $(DIST_COMMON) $(DIST_SOURCES) $(TEXINFOS) $(EXTRA_DIST) ACLOCAL = @ACLOCAL@ AG_PKG_CONFIG_PATH = @AG_PKG_CONFIG_PATH@ AMTAR = @AMTAR@ API_VERSION = @API_VERSION@ AR = @AR@ ATK_CFLAGS = @ATK_CFLAGS@ ATK_LIBS = @ATK_LIBS@ AUTOCONF = @AUTOCONF@ AUTOHEADER = @AUTOHEADER@ AUTOMAKE = @AUTOMAKE@ AWK = @AWK@ BONOBO_IDL_DIR = @BONOBO_IDL_DIR@ CANVAS_CFLAGS = @CANVAS_CFLAGS@ CANVAS_LIBS = @CANVAS_LIBS@ CC = @CC@ CCDEPMODE = @CCDEPMODE@ CFLAGS = @CFLAGS@ CORBA_CFLAGS = @CORBA_CFLAGS@ CORBA_LIBS = @CORBA_LIBS@ CPP = @CPP@ CPPFLAGS = @CPPFLAGS@ CYGPATH_W = @CYGPATH_W@ DEFS = @DEFS@ DEPDIR = @DEPDIR@ DLLTOOL = @DLLTOOL@ DSYMUTIL = @DSYMUTIL@ DUMPBIN = @DUMPBIN@ ECHO_C = @ECHO_C@ ECHO_N = @ECHO_N@ ECHO_T = @ECHO_T@ EGREP = @EGREP@ EXEEXT = @EXEEXT@ FGREP = @FGREP@ GCONF_CFLAGS = @GCONF_CFLAGS@ GCONF_LIBS = @GCONF_LIBS@ GDK_CFLAGS = @GDK_CFLAGS@ GDK_LIBS = @GDK_LIBS@ GDK_PIXBUF_CFLAGS = @GDK_PIXBUF_CFLAGS@ GDK_PIXBUF_LIBS = @GDK_PIXBUF_LIBS@ GLIB_CFLAGS = @GLIB_CFLAGS@ GLIB_LIBS = @GLIB_LIBS@ GNOMEUI_DEPRECATION_FLAGS = @GNOMEUI_DEPRECATION_FLAGS@ GNOME_VFS_CFLAGS = @GNOME_VFS_CFLAGS@ GNOME_VFS_DEPRECATED_CFLAGS = @GNOME_VFS_DEPRECATED_CFLAGS@ GNOME_VFS_LIBS = @GNOME_VFS_LIBS@ GOBJECT_CFLAGS = @GOBJECT_CFLAGS@ GOBJECT_LIBS = @GOBJECT_LIBS@ GREP = @GREP@ GTHREAD_CFLAGS = @GTHREAD_CFLAGS@ GTHREAD_LIBS = @GTHREAD_LIBS@ GTK_CFLAGS = @GTK_CFLAGS@ GTK_DEPRECATED_CFLAGS = @GTK_DEPRECATED_CFLAGS@ GTK_LIBS = @GTK_LIBS@ GUILE_CAIRO_CFLAGS = @GUILE_CAIRO_CFLAGS@ GUILE_CAIRO_LIBS = @GUILE_CAIRO_LIBS@ GUILE_CFLAGS = @GUILE_CFLAGS@ GUILE_EFFECTIVE_VERSION = @GUILE_EFFECTIVE_VERSION@ GUILE_GLIB_CFLAGS = @GUILE_GLIB_CFLAGS@ GUILE_GLIB_LIBS = @GUILE_GLIB_LIBS@ GUILE_LIBS = @GUILE_LIBS@ G_WRAP_CFLAGS = @G_WRAP_CFLAGS@ G_WRAP_LIBS = @G_WRAP_LIBS@ G_WRAP_LIB_DIR = @G_WRAP_LIB_DIR@ G_WRAP_MODULE_DIR = @G_WRAP_MODULE_DIR@ INSTALL = @INSTALL@ INSTALL_DATA = @INSTALL_DATA@ INSTALL_PROGRAM = @INSTALL_PROGRAM@ INSTALL_SCRIPT = @INSTALL_SCRIPT@ INSTALL_STRIP_PROGRAM = @INSTALL_STRIP_PROGRAM@ LD = @LD@ LDFLAGS = @LDFLAGS@ LIBGLADE_CFLAGS = @LIBGLADE_CFLAGS@ LIBGLADE_LIBS = @LIBGLADE_LIBS@ LIBGNOMEUI_CFLAGS = @LIBGNOMEUI_CFLAGS@ LIBGNOMEUI_LIBS = @LIBGNOMEUI_LIBS@ LIBGNOME_CFLAGS = @LIBGNOME_CFLAGS@ LIBGNOME_LIBS = @LIBGNOME_LIBS@ LIBOBJS = @LIBOBJS@ LIBS = @LIBS@ LIBTOOL = @LIBTOOL@ LIPO = @LIPO@ LN_S = @LN_S@ LTLIBOBJS = @LTLIBOBJS@ MAKEINFO = @MAKEINFO@ MANIFEST_TOOL = @MANIFEST_TOOL@ MKDIR_P = @MKDIR_P@ NM = @NM@ NMEDIT = @NMEDIT@ OBJDUMP = @OBJDUMP@ OBJEXT = @OBJEXT@ ORBIT_IDL = @ORBIT_IDL@ OTOOL = @OTOOL@ OTOOL64 = @OTOOL64@ PACKAGE = @PACKAGE@ PACKAGE_BUGREPORT = @PACKAGE_BUGREPORT@ PACKAGE_NAME = @PACKAGE_NAME@ PACKAGE_STRING = @PACKAGE_STRING@ PACKAGE_TARNAME = @PACKAGE_TARNAME@ PACKAGE_URL = @PACKAGE_URL@ PACKAGE_VERSION = @PACKAGE_VERSION@ PANGOCAIRO_CFLAGS = @PANGOCAIRO_CFLAGS@ PANGOCAIRO_LIBS = @PANGOCAIRO_LIBS@ PANGO_CFLAGS = @PANGO_CFLAGS@ PANGO_LIBS = @PANGO_LIBS@ PATH_SEPARATOR = @PATH_SEPARATOR@ PKG_CONFIG = @PKG_CONFIG@ PKG_CONFIG_LIBDIR = @PKG_CONFIG_LIBDIR@ PKG_CONFIG_PATH = @PKG_CONFIG_PATH@ RANLIB = @RANLIB@ SED = @SED@ SET_MAKE = @SET_MAKE@ SHELL = @SHELL@ STRIP = @STRIP@ VERSION = @VERSION@ WARN_CFLAGS = @WARN_CFLAGS@ abs_builddir = @abs_builddir@ abs_srcdir = @abs_srcdir@ abs_top_builddir = @abs_top_builddir@ abs_top_srcdir = @abs_top_srcdir@ ac_ct_AR = @ac_ct_AR@ ac_ct_CC = @ac_ct_CC@ ac_ct_DUMPBIN = @ac_ct_DUMPBIN@ am__include = @am__include@ am__leading_dot = @am__leading_dot@ am__quote = @am__quote@ am__tar = @am__tar@ am__untar = @am__untar@ bindir = @bindir@ build = @build@ build_alias = @build_alias@ build_cpu = @build_cpu@ build_os = @build_os@ build_vendor = @build_vendor@ builddir = @builddir@ datadir = @datadir@ datarootdir = @datarootdir@ docdir = @docdir@ dvidir = @dvidir@ exec_prefix = @exec_prefix@ host = @host@ host_alias = @host_alias@ host_cpu = @host_cpu@ host_os = @host_os@ host_vendor = @host_vendor@ htmldir = @htmldir@ includedir = @includedir@ infodir = @infodir@ install_sh = @install_sh@ libdir = @libdir@ libexecdir = @libexecdir@ localedir = @localedir@ localstatedir = @localstatedir@ mandir = @mandir@ mkdir_p = @mkdir_p@ oldincludedir = @oldincludedir@ pdfdir = @pdfdir@ prefix = @prefix@ program_transform_name = @program_transform_name@ psdir = @psdir@ sbindir = @sbindir@ sharedstatedir = @sharedstatedir@ srcdir = @srcdir@ sysconfdir = @sysconfdir@ target_alias = @target_alias@ top_build_prefix = @top_build_prefix@ top_builddir = @top_builddir@ top_srcdir = @top_srcdir@ # # Makefile snippet # EXTRA_DIST = wrapset.api wrapset.scm wrapset_stem = atk top_module_name = (gnome $(wrapset_stem)) gw_module_name = (gnome gw $(wrapset_stem)) extra_module_names = wrapset_modules = ($(top_module_name) $(gw_module_name) $(extra_module_names)) WRAPSET_TESTS_ENV = WRAPSET_MODULES="$(wrapset_modules)" WRAPSET_API_FILE=$(srcdir)/wrapset.api DEV_ENV = $(top_builddir)/dev-environ GUILE = guile TESTS_ENVIRONMENT = $(WRAPSET_TESTS_ENV) $(DEV_ENV) $(GUILE) $(GUILE_FLAGS) -e main -s TESTS = wrapset.scm all: all-am .SUFFIXES: $(srcdir)/Makefile.in: $(srcdir)/Makefile.am $(srcdir)/../../tests.mk $(am__configure_deps) @for dep in $?; do \ case '$(am__configure_deps)' in \ *$$dep*) \ ( cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh ) \ && { if test -f $@; then exit 0; else break; fi; }; \ exit 1;; \ esac; \ done; \ echo ' cd $(top_srcdir) && $(AUTOMAKE) --gnu atk/tests/Makefile'; \ $(am__cd) $(top_srcdir) && \ $(AUTOMAKE) --gnu atk/tests/Makefile .PRECIOUS: Makefile Makefile: $(srcdir)/Makefile.in $(top_builddir)/config.status @case '$?' in \ *config.status*) \ cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh;; \ *) \ echo ' cd $(top_builddir) && $(SHELL) ./config.status $(subdir)/$@ $(am__depfiles_maybe)'; \ cd $(top_builddir) && $(SHELL) ./config.status $(subdir)/$@ $(am__depfiles_maybe);; \ esac; $(srcdir)/../../tests.mk: $(top_builddir)/config.status: $(top_srcdir)/configure $(CONFIG_STATUS_DEPENDENCIES) cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh $(top_srcdir)/configure: $(am__configure_deps) cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh $(ACLOCAL_M4): $(am__aclocal_m4_deps) cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh $(am__aclocal_m4_deps): mostlyclean-libtool: -rm -f *.lo clean-libtool: -rm -rf .libs _libs tags: TAGS TAGS: ctags: CTAGS CTAGS: check-TESTS: $(TESTS) @failed=0; all=0; xfail=0; xpass=0; skip=0; \ srcdir=$(srcdir); export srcdir; \ list=' $(TESTS) '; \ $(am__tty_colors); \ if test -n "$$list"; then \ for tst in $$list; do \ if test -f ./$$tst; then dir=./; \ elif test -f $$tst; then dir=; \ else dir="$(srcdir)/"; fi; \ if $(TESTS_ENVIRONMENT) $${dir}$$tst; then \ all=`expr $$all + 1`; \ case " $(XFAIL_TESTS) " in \ *[\ \ ]$$tst[\ \ ]*) \ xpass=`expr $$xpass + 1`; \ failed=`expr $$failed + 1`; \ col=$$red; res=XPASS; \ ;; \ *) \ col=$$grn; res=PASS; \ ;; \ esac; \ elif test $$? -ne 77; then \ all=`expr $$all + 1`; \ case " $(XFAIL_TESTS) " in \ *[\ \ ]$$tst[\ \ ]*) \ xfail=`expr $$xfail + 1`; \ col=$$lgn; res=XFAIL; \ ;; \ *) \ failed=`expr $$failed + 1`; \ col=$$red; res=FAIL; \ ;; \ esac; \ else \ skip=`expr $$skip + 1`; \ col=$$blu; res=SKIP; \ fi; \ echo "$${col}$$res$${std}: $$tst"; \ done; \ if test "$$all" -eq 1; then \ tests="test"; \ All=""; \ else \ tests="tests"; \ All="All "; \ fi; \ if test "$$failed" -eq 0; then \ if test "$$xfail" -eq 0; then \ banner="$$All$$all $$tests passed"; \ else \ if test "$$xfail" -eq 1; then failures=failure; else failures=failures; fi; \ banner="$$All$$all $$tests behaved as expected ($$xfail expected $$failures)"; \ fi; \ else \ if test "$$xpass" -eq 0; then \ banner="$$failed of $$all $$tests failed"; \ else \ if test "$$xpass" -eq 1; then passes=pass; else passes=passes; fi; \ banner="$$failed of $$all $$tests did not behave as expected ($$xpass unexpected $$passes)"; \ fi; \ fi; \ dashes="$$banner"; \ skipped=""; \ if test "$$skip" -ne 0; then \ if test "$$skip" -eq 1; then \ skipped="($$skip test was not run)"; \ else \ skipped="($$skip tests were not run)"; \ fi; \ test `echo "$$skipped" | wc -c` -le `echo "$$banner" | wc -c` || \ dashes="$$skipped"; \ fi; \ report=""; \ if test "$$failed" -ne 0 && test -n "$(PACKAGE_BUGREPORT)"; then \ report="Please report to $(PACKAGE_BUGREPORT)"; \ test `echo "$$report" | wc -c` -le `echo "$$banner" | wc -c` || \ dashes="$$report"; \ fi; \ dashes=`echo "$$dashes" | sed s/./=/g`; \ if test "$$failed" -eq 0; then \ col="$$grn"; \ else \ col="$$red"; \ fi; \ echo "$${col}$$dashes$${std}"; \ echo "$${col}$$banner$${std}"; \ test -z "$$skipped" || echo "$${col}$$skipped$${std}"; \ test -z "$$report" || echo "$${col}$$report$${std}"; \ echo "$${col}$$dashes$${std}"; \ test "$$failed" -eq 0; \ else :; fi distdir: $(DISTFILES) @srcdirstrip=`echo "$(srcdir)" | sed 's/[].[^$$\\*]/\\\\&/g'`; \ topsrcdirstrip=`echo "$(top_srcdir)" | sed 's/[].[^$$\\*]/\\\\&/g'`; \ list='$(DISTFILES)'; \ dist_files=`for file in $$list; do echo $$file; done | \ sed -e "s|^$$srcdirstrip/||;t" \ -e "s|^$$topsrcdirstrip/|$(top_builddir)/|;t"`; \ case $$dist_files in \ */*) $(MKDIR_P) `echo "$$dist_files" | \ sed '/\//!d;s|^|$(distdir)/|;s,/[^/]*$$,,' | \ sort -u` ;; \ esac; \ for file in $$dist_files; do \ if test -f $$file || test -d $$file; then d=.; else d=$(srcdir); fi; \ if test -d $$d/$$file; then \ dir=`echo "/$$file" | sed -e 's,/[^/]*$$,,'`; \ if test -d "$(distdir)/$$file"; then \ find "$(distdir)/$$file" -type d ! -perm -700 -exec chmod u+rwx {} \;; \ fi; \ if test -d $(srcdir)/$$file && test $$d != $(srcdir); then \ cp -fpR $(srcdir)/$$file "$(distdir)$$dir" || exit 1; \ find "$(distdir)/$$file" -type d ! -perm -700 -exec chmod u+rwx {} \;; \ fi; \ cp -fpR $$d/$$file "$(distdir)$$dir" || exit 1; \ else \ test -f "$(distdir)/$$file" \ || cp -p $$d/$$file "$(distdir)/$$file" \ || exit 1; \ fi; \ done check-am: all-am $(MAKE) $(AM_MAKEFLAGS) check-TESTS check: check-am all-am: Makefile installdirs: install: install-am install-exec: install-exec-am install-data: install-data-am uninstall: uninstall-am install-am: all-am @$(MAKE) $(AM_MAKEFLAGS) install-exec-am install-data-am installcheck: installcheck-am install-strip: if test -z '$(STRIP)'; then \ $(MAKE) $(AM_MAKEFLAGS) INSTALL_PROGRAM="$(INSTALL_STRIP_PROGRAM)" \ install_sh_PROGRAM="$(INSTALL_STRIP_PROGRAM)" INSTALL_STRIP_FLAG=-s \ install; \ else \ $(MAKE) $(AM_MAKEFLAGS) INSTALL_PROGRAM="$(INSTALL_STRIP_PROGRAM)" \ install_sh_PROGRAM="$(INSTALL_STRIP_PROGRAM)" INSTALL_STRIP_FLAG=-s \ "INSTALL_PROGRAM_ENV=STRIPPROG='$(STRIP)'" install; \ fi mostlyclean-generic: clean-generic: distclean-generic: -test -z "$(CONFIG_CLEAN_FILES)" || rm -f $(CONFIG_CLEAN_FILES) -test . = "$(srcdir)" || test -z "$(CONFIG_CLEAN_VPATH_FILES)" || rm -f $(CONFIG_CLEAN_VPATH_FILES) maintainer-clean-generic: @echo "This command is intended for maintainers to use" @echo "it deletes files that may require special tools to rebuild." clean: clean-am clean-am: clean-generic clean-libtool mostlyclean-am distclean: distclean-am -rm -f Makefile distclean-am: clean-am distclean-generic dvi: dvi-am dvi-am: html: html-am html-am: info: info-am info-am: install-data-am: install-dvi: install-dvi-am install-dvi-am: install-exec-am: install-html: install-html-am install-html-am: install-info: install-info-am install-info-am: install-man: install-pdf: install-pdf-am install-pdf-am: install-ps: install-ps-am install-ps-am: installcheck-am: maintainer-clean: maintainer-clean-am -rm -f Makefile maintainer-clean-am: distclean-am maintainer-clean-generic mostlyclean: mostlyclean-am mostlyclean-am: mostlyclean-generic mostlyclean-libtool pdf: pdf-am pdf-am: ps: ps-am ps-am: uninstall-am: .MAKE: check-am install-am install-strip .PHONY: all all-am check check-TESTS check-am clean clean-generic \ clean-libtool distclean distclean-generic distclean-libtool \ distdir dvi dvi-am html html-am info info-am install \ install-am install-data install-data-am install-dvi \ install-dvi-am install-exec install-exec-am install-html \ install-html-am install-info install-info-am install-man \ install-pdf install-pdf-am install-ps install-ps-am \ install-strip installcheck installcheck-am installdirs \ maintainer-clean maintainer-clean-generic mostlyclean \ mostlyclean-generic mostlyclean-libtool pdf pdf-am ps ps-am \ uninstall uninstall-am wrapset.api.update: $(WRAPSET_TESTS_ENV) $(DEV_ENV) $(GUILE) -e update-api -s $(srcdir)/wrapset.scm %.check: % $(TESTS_ENVIRONMENT) $(srcdir)/$* # Tell versions [3.59,3.63) of GNU make to not export all variables. # Otherwise a system limit (for SysV at least) may be exceeded. .NOEXPORT: guile-gnome-platform-2.16.2/atk/tests/wrapset.api0000644000175000017500000003164511670374302022301 0ustar00wingowingo00000000000000(module-api (version 1 0) ((gnome atk) (uses-interfaces (gnome gw atk)) (typed-exports)) ((gnome gobject generics) (uses-interfaces) (typed-exports (block generic ( )) (connect generic ( )) (connect-after generic ( )) (connected? generic ( )) (create-signal generic ( )) (disconnect generic ( )) (emit generic ( . )) (find-property generic ( )) (get generic ( )) (get-properties generic ()) (get-property-names generic ()) (get-signals generic ()) (invoke generic ( . )) (set generic ( )) (unblock generic ( )))) ((gnome gw atk) (uses-interfaces (gnome gw generics)) (typed-exports (atk-action-do-action procedure (arity 0 0 #t)) (atk-action-get-description procedure (arity 0 0 #t)) (atk-action-get-keybinding procedure (arity 0 0 #t)) (atk-action-get-localized-name procedure (arity 0 0 #t)) (atk-action-get-n-actions procedure (arity 0 0 #t)) (atk-action-get-name procedure (arity 0 0 #t)) (atk-action-set-description procedure (arity 0 0 #t)) (atk-component-contains procedure (arity 0 0 #t)) (atk-component-get-alpha procedure (arity 0 0 #t)) (atk-component-get-extents procedure (arity 2 0 #f)) (atk-component-get-layer procedure (arity 0 0 #t)) (atk-component-get-mdi-zorder procedure (arity 0 0 #t)) (atk-component-get-position procedure (arity 2 0 #f)) (atk-component-get-size procedure (arity 1 0 #f)) (atk-component-grab-focus procedure (arity 0 0 #t)) (atk-component-ref-accessible-at-point procedure (arity 0 0 #t)) (atk-component-set-extents procedure (arity 0 0 #t)) (atk-component-set-position procedure (arity 0 0 #t)) (atk-component-set-size procedure (arity 0 0 #t)) (atk-document-get-attribute-value procedure (arity 0 0 #t)) (atk-document-get-document-type procedure (arity 0 0 #t)) (atk-document-get-locale procedure (arity 0 0 #t)) (atk-document-set-attribute-value procedure (arity 0 0 #t)) (atk-editable-text-copy-text procedure (arity 0 0 #t)) (atk-editable-text-cut-text procedure (arity 0 0 #t)) (atk-editable-text-delete-text procedure (arity 0 0 #t)) (atk-editable-text-insert-text procedure (arity 3 0 #f)) (atk-editable-text-paste-text procedure (arity 0 0 #t)) (atk-editable-text-set-text-contents procedure (arity 0 0 #t)) (atk-focus-tracker-notify procedure (arity 0 0 #t)) (atk-get-default-registry procedure (arity 0 0 #t)) (atk-get-focus-object procedure (arity 0 0 #t)) (atk-get-root procedure (arity 0 0 #t)) (atk-get-toolkit-name procedure (arity 0 0 #t)) (atk-get-toolkit-version procedure (arity 0 0 #t)) (atk-gobject-accessible-for-object procedure (arity 0 0 #t)) (atk-gobject-accessible-get-object procedure (arity 0 0 #t)) (atk-hyperlink-get-end-index procedure (arity 0 0 #t)) (atk-hyperlink-get-n-anchors procedure (arity 0 0 #t)) (atk-hyperlink-get-object procedure (arity 0 0 #t)) (atk-hyperlink-get-start-index procedure (arity 0 0 #t)) (atk-hyperlink-get-uri procedure (arity 0 0 #t)) (atk-hyperlink-impl-get-hyperlink procedure (arity 0 0 #t)) (atk-hyperlink-is-inline procedure (arity 0 0 #t)) (atk-hyperlink-is-selected-link procedure (arity 0 0 #t)) (atk-hyperlink-is-valid procedure (arity 0 0 #t)) (atk-hypertext-get-link procedure (arity 0 0 #t)) (atk-hypertext-get-link-index procedure (arity 0 0 #t)) (atk-hypertext-get-n-links procedure (arity 0 0 #t)) (atk-image-get-image-description procedure (arity 0 0 #t)) (atk-image-get-image-locale procedure (arity 0 0 #t)) (atk-image-get-image-position procedure (arity 2 0 #f)) (atk-image-get-image-size procedure (arity 1 0 #f)) (atk-image-set-image-description procedure (arity 0 0 #t)) (atk-implementor-ref-accessible procedure (arity 0 0 #t)) (atk-no-op-object-factory-new procedure (arity 0 0 #t)) (atk-no-op-object-new procedure (arity 0 0 #t)) (atk-object-add-relationship procedure (arity 0 0 #t)) (atk-object-factory-create-accessible procedure (arity 0 0 #t)) (atk-object-factory-get-accessible-type procedure (arity 1 0 #f)) (atk-object-factory-invalidate procedure (arity 0 0 #t)) (atk-object-get-description procedure (arity 0 0 #t)) (atk-object-get-index-in-parent procedure (arity 0 0 #t)) (atk-object-get-layer procedure (arity 0 0 #t)) (atk-object-get-mdi-zorder procedure (arity 0 0 #t)) (atk-object-get-n-accessible-children procedure (arity 0 0 #t)) (atk-object-get-name procedure (arity 0 0 #t)) (atk-object-get-parent procedure (arity 0 0 #t)) (atk-object-get-role procedure (arity 0 0 #t)) (atk-object-notify-state-change procedure (arity 0 0 #t)) (atk-object-ref-accessible-child procedure (arity 0 0 #t)) (atk-object-ref-relation-set procedure (arity 0 0 #t)) (atk-object-ref-state-set procedure (arity 0 0 #t)) (atk-object-remove-relationship procedure (arity 0 0 #t)) (atk-object-set-description procedure (arity 0 0 #t)) (atk-object-set-name procedure (arity 0 0 #t)) (atk-object-set-parent procedure (arity 0 0 #t)) (atk-object-set-role procedure (arity 0 0 #t)) (atk-registry-get-factory procedure (arity 2 0 #f)) (atk-registry-get-factory-type procedure (arity 2 0 #f)) (atk-registry-set-factory-type procedure (arity 3 0 #f)) (atk-relation-add-target procedure (arity 0 0 #t)) (atk-relation-get-relation-type procedure (arity 0 0 #t)) (atk-relation-set-add procedure (arity 0 0 #t)) (atk-relation-set-add-relation-by-type procedure (arity 0 0 #t)) (atk-relation-set-contains procedure (arity 0 0 #t)) (atk-relation-set-get-n-relations procedure (arity 0 0 #t)) (atk-relation-set-get-relation procedure (arity 0 0 #t)) (atk-relation-set-get-relation-by-type procedure (arity 0 0 #t)) (atk-relation-set-new procedure (arity 0 0 #t)) (atk-relation-set-remove procedure (arity 0 0 #t)) (atk-relation-type-for-name procedure (arity 0 0 #t)) (atk-relation-type-get-name procedure (arity 0 0 #t)) (atk-relation-type-register procedure (arity 0 0 #t)) (atk-remove-focus-tracker procedure (arity 0 0 #t)) (atk-remove-global-event-listener procedure (arity 0 0 #t)) (atk-remove-key-event-listener procedure (arity 0 0 #t)) (atk-role-for-name procedure (arity 0 0 #t)) (atk-role-get-localized-name procedure (arity 0 0 #t)) (atk-role-get-name procedure (arity 0 0 #t)) (atk-selection-add-selection procedure (arity 0 0 #t)) (atk-selection-clear-selection procedure (arity 0 0 #t)) (atk-selection-get-selection-count procedure (arity 0 0 #t)) (atk-selection-is-child-selected procedure (arity 0 0 #t)) (atk-selection-ref-selection procedure (arity 0 0 #t)) (atk-selection-remove-selection procedure (arity 0 0 #t)) (atk-selection-select-all-selection procedure (arity 0 0 #t)) (atk-state-set-add-state procedure (arity 0 0 #t)) (atk-state-set-and-sets procedure (arity 0 0 #t)) (atk-state-set-clear-states procedure (arity 0 0 #t)) (atk-state-set-contains-state procedure (arity 0 0 #t)) (atk-state-set-is-empty procedure (arity 0 0 #t)) (atk-state-set-new procedure (arity 0 0 #t)) (atk-state-set-or-sets procedure (arity 0 0 #t)) (atk-state-set-remove-state procedure (arity 0 0 #t)) (atk-state-set-xor-sets procedure (arity 0 0 #t)) (atk-state-type-for-name procedure (arity 0 0 #t)) (atk-state-type-get-name procedure (arity 0 0 #t)) (atk-streamable-content-get-mime-type procedure (arity 0 0 #t)) (atk-streamable-content-get-n-mime-types procedure (arity 0 0 #t)) (atk-streamable-content-get-stream procedure (arity 0 0 #t)) (atk-streamable-content-get-uri procedure (arity 0 0 #t)) (atk-table-add-column-selection procedure (arity 0 0 #t)) (atk-table-add-row-selection procedure (arity 0 0 #t)) (atk-table-get-caption procedure (arity 0 0 #t)) (atk-table-get-column-at-index procedure (arity 0 0 #t)) (atk-table-get-column-description procedure (arity 0 0 #t)) (atk-table-get-column-extent-at procedure (arity 0 0 #t)) (atk-table-get-column-header procedure (arity 0 0 #t)) (atk-table-get-index-at procedure (arity 0 0 #t)) (atk-table-get-n-columns procedure (arity 0 0 #t)) (atk-table-get-n-rows procedure (arity 0 0 #t)) (atk-table-get-row-at-index procedure (arity 0 0 #t)) (atk-table-get-row-description procedure (arity 0 0 #t)) (atk-table-get-row-extent-at procedure (arity 0 0 #t)) (atk-table-get-row-header procedure (arity 0 0 #t)) (atk-table-get-summary procedure (arity 0 0 #t)) (atk-table-is-column-selected procedure (arity 0 0 #t)) (atk-table-is-row-selected procedure (arity 0 0 #t)) (atk-table-is-selected procedure (arity 0 0 #t)) (atk-table-ref-at procedure (arity 0 0 #t)) (atk-table-remove-column-selection procedure (arity 0 0 #t)) (atk-table-remove-row-selection procedure (arity 0 0 #t)) (atk-table-set-caption procedure (arity 0 0 #t)) (atk-table-set-column-description procedure (arity 0 0 #t)) (atk-table-set-column-header procedure (arity 0 0 #t)) (atk-table-set-row-description procedure (arity 0 0 #t)) (atk-table-set-row-header procedure (arity 0 0 #t)) (atk-table-set-summary procedure (arity 0 0 #t)) (atk-text-add-selection procedure (arity 0 0 #t)) (atk-text-attribute-for-name procedure (arity 0 0 #t)) (atk-text-attribute-get-name procedure (arity 0 0 #t)) (atk-text-attribute-get-value procedure (arity 0 0 #t)) (atk-text-get-caret-offset procedure (arity 0 0 #t)) (atk-text-get-character-at-offset procedure (arity 0 0 #t)) (atk-text-get-character-count procedure (arity 0 0 #t)) (atk-text-get-character-extents procedure (arity 3 0 #f)) (atk-text-get-n-selections procedure (arity 0 0 #t)) (atk-text-get-offset-at-point procedure (arity 0 0 #t)) (atk-text-get-selection procedure (arity 2 0 #f)) (atk-text-get-text procedure (arity 0 0 #t)) (atk-text-get-text-after-offset procedure (arity 3 0 #f)) (atk-text-get-text-at-offset procedure (arity 3 0 #f)) (atk-text-get-text-before-offset procedure (arity 3 0 #f)) (atk-text-remove-selection procedure (arity 0 0 #t)) (atk-text-set-caret-offset procedure (arity 0 0 #t)) (atk-text-set-selection procedure (arity 0 0 #t)) (atk-value-get-current-value procedure (arity 0 0 #t)) (atk-value-get-maximum-value procedure (arity 0 0 #t)) (atk-value-get-minimum-increment procedure (arity 0 0 #t)) (atk-value-get-minimum-value procedure (arity 0 0 #t)) (atk-value-set-current-value procedure (arity 0 0 #t)))) ((gnome gw generics) (uses-interfaces (gnome gobject generics)) (typed-exports))) guile-gnome-platform-2.16.2/atk/gnome/0000755000175000017500000000000011752546500020055 5ustar00wingowingo00000000000000guile-gnome-platform-2.16.2/atk/gnome/gw/0000755000175000017500000000000011752546500020472 5ustar00wingowingo00000000000000guile-gnome-platform-2.16.2/atk/gnome/gw/atk-spec.scm0000644000175000017500000000351211670374302022704 0ustar00wingowingo00000000000000;; guile-gnome ;; Copyright (C) 2003,2004 Andy Wingo ;; This program is free software; you can redistribute it and/or ;; modify it under the terms of the GNU General Public License as ;; published by the Free Software Foundation; either version 2 of ;; the License, or (at your option) any later version. ;; ;; This program is distributed in the hope that it will be useful, ;; but WITHOUT ANY WARRANTY; without even the implied warranty of ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the ;; GNU General Public License for more details. ;; ;; You should have received a copy of the GNU General Public License ;; along with this program; if not, contact: ;; ;; Free Software Foundation Voice: +1-617-542-5942 ;; 59 Temple Place - Suite 330 Fax: +1-617-542-2652 ;; Boston, MA 02111-1307, USA gnu@gnu.org ;;; Commentary: ;; ;;g-wrap specification for ATK. ;; ;;; Code: (define-module (gnome gw atk-spec) #:use-module (oop goops) #:use-module (gnome gw support g-wrap) #:use-module (gnome gw gobject-spec) #:use-module (gnome gw support gobject) #:use-module (gnome gw support defs)) (define-class () #:id 'gnome-atk #:dependencies '(standard gnome-glib gnome-gobject)) (define-method (global-declarations-cg (self )) (list (next-method) "#include \n" "#include \n")) (define-method (initialize (ws ) initargs) (next-method ws (append '(#:module (gnome gw atk)) initargs)) (add-type-alias! ws "AtkState" 'unsigned-int64) (load-defs-with-overrides ws "gnome/defs/atk.defs")) guile-gnome-platform-2.16.2/atk/gnome/gw/Makefile.am0000644000175000017500000000141511670374302022525 0ustar00wingowingo00000000000000include $(top_srcdir)/common.mk guilegwmodule_DATA = atk-spec.scm atk.scm EXTRA_DIST = atk-spec.scm # There is one shared library for each wrapset. Each is produced by # g-wrap, but also may contain some hand-coded routines. guilegnomelib_LTLIBRARIES = libgw-guile-gnome-atk.la ######################################################################## ## atk nodist_libgw_guile_gnome_atk_la_SOURCES = guile-gnome-gw-atk.c libgw_guile_gnome_atk_la_CFLAGS = $(GUILE_GLIB_CFLAGS) \ $(AM_CFLAGS) $(ATK_CFLAGS) $(GUILE_CFLAGS) \ $(G_WRAP_CFLAGS) libgw_guile_gnome_atk_la_LIBADD = $(ATK_LIBS) $(GUILE_LIBS) \ $(G_WRAP_LIBS) $(GUILE_GLIB_LIBS) libgw_guile_gnome_atk_la_LDFLAGS = -module CLEANFILES = $(wildcard guile-gnome-gw-atk.*) atk.scm BUILT_SOURCES = guile-gnome-gw-atk.c guile-gnome-platform-2.16.2/atk/gnome/gw/Makefile.in0000644000175000017500000006235511752520665022556 0ustar00wingowingo00000000000000# Makefile.in generated by automake 1.11.5 from Makefile.am. # @configure_input@ # Copyright (C) 1994, 1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, # 2003, 2004, 2005, 2006, 2007, 2008, 2009, 2010, 2011 Free Software # Foundation, Inc. # This Makefile.in is free software; the Free Software Foundation # gives unlimited permission to copy and/or distribute it, # with or without modifications, as long as this notice is preserved. # This program is distributed in the hope that it will be useful, # but WITHOUT ANY WARRANTY, to the extent permitted by law; without # even the implied warranty of MERCHANTABILITY or FITNESS FOR A # PARTICULAR PURPOSE. @SET_MAKE@ # guile-gnome # Copyright (C) 2003,2004,2009,2012 Free Software Foundation, Inc. # This program is free software; you can redistribute it and/or # modify it under the terms of the GNU General Public License as # published by the Free Software Foundation; either version 2 of # the License, or (at your option) any later version. # This program is distributed in the hope that it will be useful, # but WITHOUT ANY WARRANTY; without even the implied warranty of # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the # GNU General Public License for more details. # You should have received a copy of the GNU General Public License # along with this program; if not, contact: # Free Software Foundation Voice: +1-617-542-5942 # 59 Temple Place - Suite 330 Fax: +1-617-542-2652 # Boston, MA 02111-1307, USA gnu@gnu.org # # Makefile snippet # VPATH = @srcdir@ am__make_dryrun = \ { \ am__dry=no; \ case $$MAKEFLAGS in \ *\\[\ \ ]*) \ echo 'am--echo: ; @echo "AM" OK' | $(MAKE) -f - 2>/dev/null \ | grep '^AM OK$$' >/dev/null || am__dry=yes;; \ *) \ for am__flg in $$MAKEFLAGS; do \ case $$am__flg in \ *=*|--*) ;; \ *n*) am__dry=yes; break;; \ esac; \ done;; \ esac; \ test $$am__dry = yes; \ } pkgdatadir = $(datadir)/@PACKAGE@ pkgincludedir = $(includedir)/@PACKAGE@ pkglibdir = $(libdir)/@PACKAGE@ pkglibexecdir = $(libexecdir)/@PACKAGE@ am__cd = CDPATH="$${ZSH_VERSION+.}$(PATH_SEPARATOR)" && cd install_sh_DATA = $(install_sh) -c -m 644 install_sh_PROGRAM = $(install_sh) -c install_sh_SCRIPT = $(install_sh) -c INSTALL_HEADER = $(INSTALL_DATA) transform = $(program_transform_name) NORMAL_INSTALL = : PRE_INSTALL = : POST_INSTALL = : NORMAL_UNINSTALL = : PRE_UNINSTALL = : POST_UNINSTALL = : build_triplet = @build@ host_triplet = @host@ DIST_COMMON = $(srcdir)/Makefile.am $(srcdir)/Makefile.in \ $(top_srcdir)/common.mk subdir = atk/gnome/gw ACLOCAL_M4 = $(top_srcdir)/aclocal.m4 am__aclocal_m4_deps = $(top_srcdir)/configure.ac am__configure_deps = $(am__aclocal_m4_deps) $(CONFIGURE_DEPENDENCIES) \ $(ACLOCAL_M4) mkinstalldirs = $(install_sh) -d CONFIG_HEADER = $(top_builddir)/config.h CONFIG_CLEAN_FILES = CONFIG_CLEAN_VPATH_FILES = am__vpath_adj_setup = srcdirstrip=`echo "$(srcdir)" | sed 's|.|.|g'`; am__vpath_adj = case $$p in \ $(srcdir)/*) f=`echo "$$p" | sed "s|^$$srcdirstrip/||"`;; \ *) f=$$p;; \ esac; am__strip_dir = f=`echo $$p | sed -e 's|^.*/||'`; am__install_max = 40 am__nobase_strip_setup = \ srcdirstrip=`echo "$(srcdir)" | sed 's/[].[^$$\\*|]/\\\\&/g'` am__nobase_strip = \ for p in $$list; do echo "$$p"; done | sed -e "s|$$srcdirstrip/||" am__nobase_list = $(am__nobase_strip_setup); \ for p in $$list; do echo "$$p $$p"; done | \ sed "s| $$srcdirstrip/| |;"' / .*\//!s/ .*/ ./; s,\( .*\)/[^/]*$$,\1,' | \ $(AWK) 'BEGIN { files["."] = "" } { files[$$2] = files[$$2] " " $$1; \ if (++n[$$2] == $(am__install_max)) \ { print $$2, files[$$2]; n[$$2] = 0; files[$$2] = "" } } \ END { for (dir in files) print dir, files[dir] }' am__base_list = \ sed '$$!N;$$!N;$$!N;$$!N;$$!N;$$!N;$$!N;s/\n/ /g' | \ sed '$$!N;$$!N;$$!N;$$!N;s/\n/ /g' am__uninstall_files_from_dir = { \ test -z "$$files" \ || { test ! -d "$$dir" && test ! -f "$$dir" && test ! -r "$$dir"; } \ || { echo " ( cd '$$dir' && rm -f" $$files ")"; \ $(am__cd) "$$dir" && rm -f $$files; }; \ } am__installdirs = "$(DESTDIR)$(guilegnomelibdir)" \ "$(DESTDIR)$(guilegwmoduledir)" LTLIBRARIES = $(guilegnomelib_LTLIBRARIES) am__DEPENDENCIES_1 = libgw_guile_gnome_atk_la_DEPENDENCIES = $(am__DEPENDENCIES_1) \ $(am__DEPENDENCIES_1) $(am__DEPENDENCIES_1) \ $(am__DEPENDENCIES_1) nodist_libgw_guile_gnome_atk_la_OBJECTS = \ libgw_guile_gnome_atk_la-guile-gnome-gw-atk.lo libgw_guile_gnome_atk_la_OBJECTS = \ $(nodist_libgw_guile_gnome_atk_la_OBJECTS) libgw_guile_gnome_atk_la_LINK = $(LIBTOOL) --tag=CC $(AM_LIBTOOLFLAGS) \ $(LIBTOOLFLAGS) --mode=link $(CCLD) \ $(libgw_guile_gnome_atk_la_CFLAGS) $(CFLAGS) \ $(libgw_guile_gnome_atk_la_LDFLAGS) $(LDFLAGS) -o $@ DEFAULT_INCLUDES = -I.@am__isrc@ -I$(top_builddir) depcomp = $(SHELL) $(top_srcdir)/build-aux/depcomp am__depfiles_maybe = depfiles am__mv = mv -f COMPILE = $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(AM_CPPFLAGS) \ $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) LTCOMPILE = $(LIBTOOL) --tag=CC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) \ --mode=compile $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) \ $(AM_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) CCLD = $(CC) LINK = $(LIBTOOL) --tag=CC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) \ --mode=link $(CCLD) $(AM_CFLAGS) $(CFLAGS) $(AM_LDFLAGS) \ $(LDFLAGS) -o $@ SOURCES = $(nodist_libgw_guile_gnome_atk_la_SOURCES) DIST_SOURCES = am__can_run_installinfo = \ case $$AM_UPDATE_INFO_DIR in \ n|no|NO) false;; \ *) (install-info --version) >/dev/null 2>&1;; \ esac DATA = $(guilegwmodule_DATA) ETAGS = etags CTAGS = ctags DISTFILES = $(DIST_COMMON) $(DIST_SOURCES) $(TEXINFOS) $(EXTRA_DIST) ACLOCAL = @ACLOCAL@ AG_PKG_CONFIG_PATH = @AG_PKG_CONFIG_PATH@ AMTAR = @AMTAR@ API_VERSION = @API_VERSION@ AR = @AR@ ATK_CFLAGS = @ATK_CFLAGS@ ATK_LIBS = @ATK_LIBS@ AUTOCONF = @AUTOCONF@ AUTOHEADER = @AUTOHEADER@ AUTOMAKE = @AUTOMAKE@ AWK = @AWK@ BONOBO_IDL_DIR = @BONOBO_IDL_DIR@ CANVAS_CFLAGS = @CANVAS_CFLAGS@ CANVAS_LIBS = @CANVAS_LIBS@ CC = @CC@ CCDEPMODE = @CCDEPMODE@ CFLAGS = @CFLAGS@ CORBA_CFLAGS = @CORBA_CFLAGS@ CORBA_LIBS = @CORBA_LIBS@ CPP = @CPP@ CPPFLAGS = @CPPFLAGS@ CYGPATH_W = @CYGPATH_W@ DEFS = @DEFS@ DEPDIR = @DEPDIR@ DLLTOOL = @DLLTOOL@ DSYMUTIL = @DSYMUTIL@ DUMPBIN = @DUMPBIN@ ECHO_C = @ECHO_C@ ECHO_N = @ECHO_N@ ECHO_T = @ECHO_T@ EGREP = @EGREP@ EXEEXT = @EXEEXT@ FGREP = @FGREP@ GCONF_CFLAGS = @GCONF_CFLAGS@ GCONF_LIBS = @GCONF_LIBS@ GDK_CFLAGS = @GDK_CFLAGS@ GDK_LIBS = @GDK_LIBS@ GDK_PIXBUF_CFLAGS = @GDK_PIXBUF_CFLAGS@ GDK_PIXBUF_LIBS = @GDK_PIXBUF_LIBS@ GLIB_CFLAGS = @GLIB_CFLAGS@ GLIB_LIBS = @GLIB_LIBS@ GNOMEUI_DEPRECATION_FLAGS = @GNOMEUI_DEPRECATION_FLAGS@ GNOME_VFS_CFLAGS = @GNOME_VFS_CFLAGS@ GNOME_VFS_DEPRECATED_CFLAGS = @GNOME_VFS_DEPRECATED_CFLAGS@ GNOME_VFS_LIBS = @GNOME_VFS_LIBS@ GOBJECT_CFLAGS = @GOBJECT_CFLAGS@ GOBJECT_LIBS = @GOBJECT_LIBS@ GREP = @GREP@ GTHREAD_CFLAGS = @GTHREAD_CFLAGS@ GTHREAD_LIBS = @GTHREAD_LIBS@ GTK_CFLAGS = @GTK_CFLAGS@ GTK_DEPRECATED_CFLAGS = @GTK_DEPRECATED_CFLAGS@ GTK_LIBS = @GTK_LIBS@ GUILE_CAIRO_CFLAGS = @GUILE_CAIRO_CFLAGS@ GUILE_CAIRO_LIBS = @GUILE_CAIRO_LIBS@ GUILE_CFLAGS = @GUILE_CFLAGS@ GUILE_EFFECTIVE_VERSION = @GUILE_EFFECTIVE_VERSION@ GUILE_GLIB_CFLAGS = @GUILE_GLIB_CFLAGS@ GUILE_GLIB_LIBS = @GUILE_GLIB_LIBS@ GUILE_LIBS = @GUILE_LIBS@ G_WRAP_CFLAGS = @G_WRAP_CFLAGS@ G_WRAP_LIBS = @G_WRAP_LIBS@ G_WRAP_LIB_DIR = @G_WRAP_LIB_DIR@ G_WRAP_MODULE_DIR = @G_WRAP_MODULE_DIR@ INSTALL = @INSTALL@ INSTALL_DATA = @INSTALL_DATA@ INSTALL_PROGRAM = @INSTALL_PROGRAM@ INSTALL_SCRIPT = @INSTALL_SCRIPT@ INSTALL_STRIP_PROGRAM = @INSTALL_STRIP_PROGRAM@ LD = @LD@ LDFLAGS = @LDFLAGS@ LIBGLADE_CFLAGS = @LIBGLADE_CFLAGS@ LIBGLADE_LIBS = @LIBGLADE_LIBS@ LIBGNOMEUI_CFLAGS = @LIBGNOMEUI_CFLAGS@ LIBGNOMEUI_LIBS = @LIBGNOMEUI_LIBS@ LIBGNOME_CFLAGS = @LIBGNOME_CFLAGS@ LIBGNOME_LIBS = @LIBGNOME_LIBS@ LIBOBJS = @LIBOBJS@ LIBS = @LIBS@ LIBTOOL = @LIBTOOL@ LIPO = @LIPO@ LN_S = @LN_S@ LTLIBOBJS = @LTLIBOBJS@ MAKEINFO = @MAKEINFO@ MANIFEST_TOOL = @MANIFEST_TOOL@ MKDIR_P = @MKDIR_P@ NM = @NM@ NMEDIT = @NMEDIT@ OBJDUMP = @OBJDUMP@ OBJEXT = @OBJEXT@ ORBIT_IDL = @ORBIT_IDL@ OTOOL = @OTOOL@ OTOOL64 = @OTOOL64@ PACKAGE = @PACKAGE@ PACKAGE_BUGREPORT = @PACKAGE_BUGREPORT@ PACKAGE_NAME = @PACKAGE_NAME@ PACKAGE_STRING = @PACKAGE_STRING@ PACKAGE_TARNAME = @PACKAGE_TARNAME@ PACKAGE_URL = @PACKAGE_URL@ PACKAGE_VERSION = @PACKAGE_VERSION@ PANGOCAIRO_CFLAGS = @PANGOCAIRO_CFLAGS@ PANGOCAIRO_LIBS = @PANGOCAIRO_LIBS@ PANGO_CFLAGS = @PANGO_CFLAGS@ PANGO_LIBS = @PANGO_LIBS@ PATH_SEPARATOR = @PATH_SEPARATOR@ PKG_CONFIG = @PKG_CONFIG@ PKG_CONFIG_LIBDIR = @PKG_CONFIG_LIBDIR@ PKG_CONFIG_PATH = @PKG_CONFIG_PATH@ RANLIB = @RANLIB@ SED = @SED@ SET_MAKE = @SET_MAKE@ SHELL = @SHELL@ STRIP = @STRIP@ VERSION = @VERSION@ WARN_CFLAGS = @WARN_CFLAGS@ abs_builddir = @abs_builddir@ abs_srcdir = @abs_srcdir@ abs_top_builddir = @abs_top_builddir@ abs_top_srcdir = @abs_top_srcdir@ ac_ct_AR = @ac_ct_AR@ ac_ct_CC = @ac_ct_CC@ ac_ct_DUMPBIN = @ac_ct_DUMPBIN@ am__include = @am__include@ am__leading_dot = @am__leading_dot@ am__quote = @am__quote@ am__tar = @am__tar@ am__untar = @am__untar@ bindir = @bindir@ build = @build@ build_alias = @build_alias@ build_cpu = @build_cpu@ build_os = @build_os@ build_vendor = @build_vendor@ builddir = @builddir@ datadir = @datadir@ datarootdir = @datarootdir@ docdir = @docdir@ dvidir = @dvidir@ exec_prefix = @exec_prefix@ host = @host@ host_alias = @host_alias@ host_cpu = @host_cpu@ host_os = @host_os@ host_vendor = @host_vendor@ htmldir = @htmldir@ includedir = @includedir@ infodir = @infodir@ install_sh = @install_sh@ libdir = @libdir@ libexecdir = @libexecdir@ localedir = @localedir@ localstatedir = @localstatedir@ mandir = @mandir@ mkdir_p = @mkdir_p@ oldincludedir = @oldincludedir@ pdfdir = @pdfdir@ prefix = @prefix@ program_transform_name = @program_transform_name@ psdir = @psdir@ sbindir = @sbindir@ sharedstatedir = @sharedstatedir@ srcdir = @srcdir@ sysconfdir = @sysconfdir@ target_alias = @target_alias@ top_build_prefix = @top_build_prefix@ top_builddir = @top_builddir@ top_srcdir = @top_srcdir@ guilegnomedir = $(datadir)/guile-gnome-@API_VERSION@ guilemoduledir = $(guilegnomedir)/gnome guilegwmoduledir = $(guilegnomedir)/gnome/gw guilegnomelibdir = $(libdir)/guile-gnome-@API_VERSION@ AM_CFLAGS = -I. -I$(srcdir) $(WARN_CFLAGS) $(DEBUG_CFLAGS) # For overriding from the command line (e.g. --debug) GUILE_FLAGS = SUFFIXES = .x .doc GUILE_SNARF_CFLAGS = $(DEFS) $(AM_CFLAGS) $(GUILE_CFLAGS) $(G_WRAP_CFLAGS) PACKAGES = atk cairo corba defs gconf glib gnome-vfs gtk libglade libgnome libgnomecanvas libgnomeui pango SOURCE_GUILE_PATH = $(shell echo $(addprefix $(top_srcdir)/,$(PACKAGES)) | sed -e 's/ /:/g'):$(srcdir) BUILD_GUILE_PATH = $(if $(filter-out $(top_srcdir),$(top_builddir)),$(shell echo -n $(addprefix $(top_builddir)/,$(PACKAGES)): | sed -e 's/ /:/g'),) GUILE_LOAD_PATH := $(BUILD_GUILE_PATH)$(SOURCE_GUILE_PATH):${G_WRAP_MODULE_DIR}:${GUILE_LOAD_PATH} # Real gnu make foo packages = $(filter-out %-uninstalled,$(patsubst %.pc.in,%,$(notdir $(wildcard $(srcdir)/*.pc.in)))) pcifiles = $(patsubst %,%-@API_VERSION@.pc,$(packages)) pcufiles = $(patsubst %,%-@API_VERSION@-uninstalled.pc,$(packages)) guilegwmodule_DATA = atk-spec.scm atk.scm EXTRA_DIST = atk-spec.scm # There is one shared library for each wrapset. Each is produced by # g-wrap, but also may contain some hand-coded routines. guilegnomelib_LTLIBRARIES = libgw-guile-gnome-atk.la ######################################################################## nodist_libgw_guile_gnome_atk_la_SOURCES = guile-gnome-gw-atk.c libgw_guile_gnome_atk_la_CFLAGS = $(GUILE_GLIB_CFLAGS) \ $(AM_CFLAGS) $(ATK_CFLAGS) $(GUILE_CFLAGS) \ $(G_WRAP_CFLAGS) libgw_guile_gnome_atk_la_LIBADD = $(ATK_LIBS) $(GUILE_LIBS) \ $(G_WRAP_LIBS) $(GUILE_GLIB_LIBS) libgw_guile_gnome_atk_la_LDFLAGS = -module CLEANFILES = $(wildcard guile-gnome-gw-atk.*) atk.scm BUILT_SOURCES = guile-gnome-gw-atk.c all: $(BUILT_SOURCES) $(MAKE) $(AM_MAKEFLAGS) all-am .SUFFIXES: .SUFFIXES: .x .doc .c .lo .o .obj $(srcdir)/Makefile.in: $(srcdir)/Makefile.am $(top_srcdir)/common.mk $(am__configure_deps) @for dep in $?; do \ case '$(am__configure_deps)' in \ *$$dep*) \ ( cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh ) \ && { if test -f $@; then exit 0; else break; fi; }; \ exit 1;; \ esac; \ done; \ echo ' cd $(top_srcdir) && $(AUTOMAKE) --gnu atk/gnome/gw/Makefile'; \ $(am__cd) $(top_srcdir) && \ $(AUTOMAKE) --gnu atk/gnome/gw/Makefile .PRECIOUS: Makefile Makefile: $(srcdir)/Makefile.in $(top_builddir)/config.status @case '$?' in \ *config.status*) \ cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh;; \ *) \ echo ' cd $(top_builddir) && $(SHELL) ./config.status $(subdir)/$@ $(am__depfiles_maybe)'; \ cd $(top_builddir) && $(SHELL) ./config.status $(subdir)/$@ $(am__depfiles_maybe);; \ esac; $(top_srcdir)/common.mk: $(top_builddir)/config.status: $(top_srcdir)/configure $(CONFIG_STATUS_DEPENDENCIES) cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh $(top_srcdir)/configure: $(am__configure_deps) cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh $(ACLOCAL_M4): $(am__aclocal_m4_deps) cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh $(am__aclocal_m4_deps): install-guilegnomelibLTLIBRARIES: $(guilegnomelib_LTLIBRARIES) @$(NORMAL_INSTALL) @list='$(guilegnomelib_LTLIBRARIES)'; test -n "$(guilegnomelibdir)" || list=; \ list2=; for p in $$list; do \ if test -f $$p; then \ list2="$$list2 $$p"; \ else :; fi; \ done; \ test -z "$$list2" || { \ echo " $(MKDIR_P) '$(DESTDIR)$(guilegnomelibdir)'"; \ $(MKDIR_P) "$(DESTDIR)$(guilegnomelibdir)" || exit 1; \ echo " $(LIBTOOL) $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=install $(INSTALL) $(INSTALL_STRIP_FLAG) $$list2 '$(DESTDIR)$(guilegnomelibdir)'"; \ $(LIBTOOL) $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=install $(INSTALL) $(INSTALL_STRIP_FLAG) $$list2 "$(DESTDIR)$(guilegnomelibdir)"; \ } uninstall-guilegnomelibLTLIBRARIES: @$(NORMAL_UNINSTALL) @list='$(guilegnomelib_LTLIBRARIES)'; test -n "$(guilegnomelibdir)" || list=; \ for p in $$list; do \ $(am__strip_dir) \ echo " $(LIBTOOL) $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=uninstall rm -f '$(DESTDIR)$(guilegnomelibdir)/$$f'"; \ $(LIBTOOL) $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=uninstall rm -f "$(DESTDIR)$(guilegnomelibdir)/$$f"; \ done clean-guilegnomelibLTLIBRARIES: -test -z "$(guilegnomelib_LTLIBRARIES)" || rm -f $(guilegnomelib_LTLIBRARIES) @list='$(guilegnomelib_LTLIBRARIES)'; for p in $$list; do \ dir="`echo $$p | sed -e 's|/[^/]*$$||'`"; \ test "$$dir" != "$$p" || dir=.; \ echo "rm -f \"$${dir}/so_locations\""; \ rm -f "$${dir}/so_locations"; \ done libgw-guile-gnome-atk.la: $(libgw_guile_gnome_atk_la_OBJECTS) $(libgw_guile_gnome_atk_la_DEPENDENCIES) $(EXTRA_libgw_guile_gnome_atk_la_DEPENDENCIES) $(libgw_guile_gnome_atk_la_LINK) -rpath $(guilegnomelibdir) $(libgw_guile_gnome_atk_la_OBJECTS) $(libgw_guile_gnome_atk_la_LIBADD) $(LIBS) mostlyclean-compile: -rm -f *.$(OBJEXT) distclean-compile: -rm -f *.tab.c @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/libgw_guile_gnome_atk_la-guile-gnome-gw-atk.Plo@am__quote@ .c.o: @am__fastdepCC_TRUE@ $(COMPILE) -MT $@ -MD -MP -MF $(DEPDIR)/$*.Tpo -c -o $@ $< @am__fastdepCC_TRUE@ $(am__mv) $(DEPDIR)/$*.Tpo $(DEPDIR)/$*.Po @AMDEP_TRUE@@am__fastdepCC_FALSE@ source='$<' object='$@' libtool=no @AMDEPBACKSLASH@ @AMDEP_TRUE@@am__fastdepCC_FALSE@ DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@ @am__fastdepCC_FALSE@ $(COMPILE) -c $< .c.obj: @am__fastdepCC_TRUE@ $(COMPILE) -MT $@ -MD -MP -MF $(DEPDIR)/$*.Tpo -c -o $@ `$(CYGPATH_W) '$<'` @am__fastdepCC_TRUE@ $(am__mv) $(DEPDIR)/$*.Tpo $(DEPDIR)/$*.Po @AMDEP_TRUE@@am__fastdepCC_FALSE@ source='$<' object='$@' libtool=no @AMDEPBACKSLASH@ @AMDEP_TRUE@@am__fastdepCC_FALSE@ DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@ @am__fastdepCC_FALSE@ $(COMPILE) -c `$(CYGPATH_W) '$<'` .c.lo: @am__fastdepCC_TRUE@ $(LTCOMPILE) -MT $@ -MD -MP -MF $(DEPDIR)/$*.Tpo -c -o $@ $< @am__fastdepCC_TRUE@ $(am__mv) $(DEPDIR)/$*.Tpo $(DEPDIR)/$*.Plo @AMDEP_TRUE@@am__fastdepCC_FALSE@ source='$<' object='$@' libtool=yes @AMDEPBACKSLASH@ @AMDEP_TRUE@@am__fastdepCC_FALSE@ DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@ @am__fastdepCC_FALSE@ $(LTCOMPILE) -c -o $@ $< libgw_guile_gnome_atk_la-guile-gnome-gw-atk.lo: guile-gnome-gw-atk.c @am__fastdepCC_TRUE@ $(LIBTOOL) --tag=CC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(AM_CPPFLAGS) $(CPPFLAGS) $(libgw_guile_gnome_atk_la_CFLAGS) $(CFLAGS) -MT libgw_guile_gnome_atk_la-guile-gnome-gw-atk.lo -MD -MP -MF $(DEPDIR)/libgw_guile_gnome_atk_la-guile-gnome-gw-atk.Tpo -c -o libgw_guile_gnome_atk_la-guile-gnome-gw-atk.lo `test -f 'guile-gnome-gw-atk.c' || echo '$(srcdir)/'`guile-gnome-gw-atk.c @am__fastdepCC_TRUE@ $(am__mv) $(DEPDIR)/libgw_guile_gnome_atk_la-guile-gnome-gw-atk.Tpo $(DEPDIR)/libgw_guile_gnome_atk_la-guile-gnome-gw-atk.Plo @AMDEP_TRUE@@am__fastdepCC_FALSE@ source='guile-gnome-gw-atk.c' object='libgw_guile_gnome_atk_la-guile-gnome-gw-atk.lo' libtool=yes @AMDEPBACKSLASH@ @AMDEP_TRUE@@am__fastdepCC_FALSE@ DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@ @am__fastdepCC_FALSE@ $(LIBTOOL) --tag=CC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(AM_CPPFLAGS) $(CPPFLAGS) $(libgw_guile_gnome_atk_la_CFLAGS) $(CFLAGS) -c -o libgw_guile_gnome_atk_la-guile-gnome-gw-atk.lo `test -f 'guile-gnome-gw-atk.c' || echo '$(srcdir)/'`guile-gnome-gw-atk.c mostlyclean-libtool: -rm -f *.lo clean-libtool: -rm -rf .libs _libs install-guilegwmoduleDATA: $(guilegwmodule_DATA) @$(NORMAL_INSTALL) @list='$(guilegwmodule_DATA)'; test -n "$(guilegwmoduledir)" || list=; \ if test -n "$$list"; then \ echo " $(MKDIR_P) '$(DESTDIR)$(guilegwmoduledir)'"; \ $(MKDIR_P) "$(DESTDIR)$(guilegwmoduledir)" || exit 1; \ fi; \ for p in $$list; do \ if test -f "$$p"; then d=; else d="$(srcdir)/"; fi; \ echo "$$d$$p"; \ done | $(am__base_list) | \ while read files; do \ echo " $(INSTALL_DATA) $$files '$(DESTDIR)$(guilegwmoduledir)'"; \ $(INSTALL_DATA) $$files "$(DESTDIR)$(guilegwmoduledir)" || exit $$?; \ done uninstall-guilegwmoduleDATA: @$(NORMAL_UNINSTALL) @list='$(guilegwmodule_DATA)'; test -n "$(guilegwmoduledir)" || list=; \ files=`for p in $$list; do echo $$p; done | sed -e 's|^.*/||'`; \ dir='$(DESTDIR)$(guilegwmoduledir)'; $(am__uninstall_files_from_dir) ID: $(HEADERS) $(SOURCES) $(LISP) $(TAGS_FILES) list='$(SOURCES) $(HEADERS) $(LISP) $(TAGS_FILES)'; \ unique=`for i in $$list; do \ if test -f "$$i"; then echo $$i; else echo $(srcdir)/$$i; fi; \ done | \ $(AWK) '{ files[$$0] = 1; nonempty = 1; } \ END { if (nonempty) { for (i in files) print i; }; }'`; \ mkid -fID $$unique tags: TAGS TAGS: $(HEADERS) $(SOURCES) $(TAGS_DEPENDENCIES) \ $(TAGS_FILES) $(LISP) set x; \ here=`pwd`; \ list='$(SOURCES) $(HEADERS) $(LISP) $(TAGS_FILES)'; \ unique=`for i in $$list; do \ if test -f "$$i"; then echo $$i; else echo $(srcdir)/$$i; fi; \ done | \ $(AWK) '{ files[$$0] = 1; nonempty = 1; } \ END { if (nonempty) { for (i in files) print i; }; }'`; \ shift; \ if test -z "$(ETAGS_ARGS)$$*$$unique"; then :; else \ test -n "$$unique" || unique=$$empty_fix; \ if test $$# -gt 0; then \ $(ETAGS) $(ETAGSFLAGS) $(AM_ETAGSFLAGS) $(ETAGS_ARGS) \ "$$@" $$unique; \ else \ $(ETAGS) $(ETAGSFLAGS) $(AM_ETAGSFLAGS) $(ETAGS_ARGS) \ $$unique; \ fi; \ fi ctags: CTAGS CTAGS: $(HEADERS) $(SOURCES) $(TAGS_DEPENDENCIES) \ $(TAGS_FILES) $(LISP) list='$(SOURCES) $(HEADERS) $(LISP) $(TAGS_FILES)'; \ unique=`for i in $$list; do \ if test -f "$$i"; then echo $$i; else echo $(srcdir)/$$i; fi; \ done | \ $(AWK) '{ files[$$0] = 1; nonempty = 1; } \ END { if (nonempty) { for (i in files) print i; }; }'`; \ test -z "$(CTAGS_ARGS)$$unique" \ || $(CTAGS) $(CTAGSFLAGS) $(AM_CTAGSFLAGS) $(CTAGS_ARGS) \ $$unique GTAGS: here=`$(am__cd) $(top_builddir) && pwd` \ && $(am__cd) $(top_srcdir) \ && gtags -i $(GTAGS_ARGS) "$$here" distclean-tags: -rm -f TAGS ID GTAGS GRTAGS GSYMS GPATH tags distdir: $(DISTFILES) @srcdirstrip=`echo "$(srcdir)" | sed 's/[].[^$$\\*]/\\\\&/g'`; \ topsrcdirstrip=`echo "$(top_srcdir)" | sed 's/[].[^$$\\*]/\\\\&/g'`; \ list='$(DISTFILES)'; \ dist_files=`for file in $$list; do echo $$file; done | \ sed -e "s|^$$srcdirstrip/||;t" \ -e "s|^$$topsrcdirstrip/|$(top_builddir)/|;t"`; \ case $$dist_files in \ */*) $(MKDIR_P) `echo "$$dist_files" | \ sed '/\//!d;s|^|$(distdir)/|;s,/[^/]*$$,,' | \ sort -u` ;; \ esac; \ for file in $$dist_files; do \ if test -f $$file || test -d $$file; then d=.; else d=$(srcdir); fi; \ if test -d $$d/$$file; then \ dir=`echo "/$$file" | sed -e 's,/[^/]*$$,,'`; \ if test -d "$(distdir)/$$file"; then \ find "$(distdir)/$$file" -type d ! -perm -700 -exec chmod u+rwx {} \;; \ fi; \ if test -d $(srcdir)/$$file && test $$d != $(srcdir); then \ cp -fpR $(srcdir)/$$file "$(distdir)$$dir" || exit 1; \ find "$(distdir)/$$file" -type d ! -perm -700 -exec chmod u+rwx {} \;; \ fi; \ cp -fpR $$d/$$file "$(distdir)$$dir" || exit 1; \ else \ test -f "$(distdir)/$$file" \ || cp -p $$d/$$file "$(distdir)/$$file" \ || exit 1; \ fi; \ done check-am: all-am check: $(BUILT_SOURCES) $(MAKE) $(AM_MAKEFLAGS) check-am all-am: Makefile $(LTLIBRARIES) $(DATA) installdirs: for dir in "$(DESTDIR)$(guilegnomelibdir)" "$(DESTDIR)$(guilegwmoduledir)"; do \ test -z "$$dir" || $(MKDIR_P) "$$dir"; \ done install: $(BUILT_SOURCES) $(MAKE) $(AM_MAKEFLAGS) install-am install-exec: install-exec-am install-data: install-data-am uninstall: uninstall-am install-am: all-am @$(MAKE) $(AM_MAKEFLAGS) install-exec-am install-data-am installcheck: installcheck-am install-strip: if test -z '$(STRIP)'; then \ $(MAKE) $(AM_MAKEFLAGS) INSTALL_PROGRAM="$(INSTALL_STRIP_PROGRAM)" \ install_sh_PROGRAM="$(INSTALL_STRIP_PROGRAM)" INSTALL_STRIP_FLAG=-s \ install; \ else \ $(MAKE) $(AM_MAKEFLAGS) INSTALL_PROGRAM="$(INSTALL_STRIP_PROGRAM)" \ install_sh_PROGRAM="$(INSTALL_STRIP_PROGRAM)" INSTALL_STRIP_FLAG=-s \ "INSTALL_PROGRAM_ENV=STRIPPROG='$(STRIP)'" install; \ fi mostlyclean-generic: clean-generic: -test -z "$(CLEANFILES)" || rm -f $(CLEANFILES) distclean-generic: -test -z "$(CONFIG_CLEAN_FILES)" || rm -f $(CONFIG_CLEAN_FILES) -test . = "$(srcdir)" || test -z "$(CONFIG_CLEAN_VPATH_FILES)" || rm -f $(CONFIG_CLEAN_VPATH_FILES) maintainer-clean-generic: @echo "This command is intended for maintainers to use" @echo "it deletes files that may require special tools to rebuild." -test -z "$(BUILT_SOURCES)" || rm -f $(BUILT_SOURCES) clean: clean-am clean-am: clean-generic clean-guilegnomelibLTLIBRARIES clean-libtool \ mostlyclean-am distclean: distclean-am -rm -rf ./$(DEPDIR) -rm -f Makefile distclean-am: clean-am distclean-compile distclean-generic \ distclean-tags dvi: dvi-am dvi-am: html: html-am html-am: info: info-am info-am: install-data-am: install-guilegnomelibLTLIBRARIES \ install-guilegwmoduleDATA install-dvi: install-dvi-am install-dvi-am: install-exec-am: install-html: install-html-am install-html-am: install-info: install-info-am install-info-am: install-man: install-pdf: install-pdf-am install-pdf-am: install-ps: install-ps-am install-ps-am: installcheck-am: maintainer-clean: maintainer-clean-am -rm -rf ./$(DEPDIR) -rm -f Makefile maintainer-clean-am: distclean-am maintainer-clean-generic mostlyclean: mostlyclean-am mostlyclean-am: mostlyclean-compile mostlyclean-generic \ mostlyclean-libtool pdf: pdf-am pdf-am: ps: ps-am ps-am: uninstall-am: uninstall-guilegnomelibLTLIBRARIES \ uninstall-guilegwmoduleDATA .MAKE: all check install install-am install-strip .PHONY: CTAGS GTAGS all all-am check check-am clean clean-generic \ clean-guilegnomelibLTLIBRARIES clean-libtool ctags distclean \ distclean-compile distclean-generic distclean-libtool \ distclean-tags distdir dvi dvi-am html html-am info info-am \ install install-am install-data install-data-am install-dvi \ install-dvi-am install-exec install-exec-am \ install-guilegnomelibLTLIBRARIES install-guilegwmoduleDATA \ install-html install-html-am install-info install-info-am \ install-man install-pdf install-pdf-am install-ps \ install-ps-am install-strip installcheck installcheck-am \ installdirs maintainer-clean maintainer-clean-generic \ mostlyclean mostlyclean-compile mostlyclean-generic \ mostlyclean-libtool pdf pdf-am ps ps-am tags uninstall \ uninstall-am uninstall-guilegnomelibLTLIBRARIES \ uninstall-guilegwmoduleDATA export GUILE_LOAD_PATH .c.x: guile-snarf $(GUILE_SNARF_CFLAGS) $< > $@ \ || { rm $@; false; } .c.doc: $(CPP) -DSCM_MAGIC_SNARF_DOCS $(GUILE_SNARF_CFLAGS) $< \ | grep -E '(\^\^ {|\^\^ })' > $@ || { rm $@; false; } %.scm guile-gnome-gw-%.c: %-spec.scm guile $(GUILE_FLAGS) -c \ "(debug-set! stack 400000) \ (use-modules (gnome-@API_VERSION@)) \ (use-modules (g-wrap)) \ (use-modules (gnome gw $*-spec)) \ (generate-wrapset 'guile 'gnome-$* \"guile-gnome-gw-$*\")" mv guile-gnome-gw-$*.scm $*.scm %-@API_VERSION@.pc: %.pc cp $< $@ %-@API_VERSION@-uninstalled.pc: %-uninstalled.pc cp $< $@ # Tell versions [3.59,3.63) of GNU make to not export all variables. # Otherwise a system limit (for SysV at least) may be exceeded. .NOEXPORT: guile-gnome-platform-2.16.2/atk/gnome/atk.scm0000644000175000017500000000237511670374302021345 0ustar00wingowingo00000000000000;; guile-gnome ;; Copyright (C) 2003,2004 Andy Wingo ;; This program is free software; you can redistribute it and/or ;; modify it under the terms of the GNU General Public License as ;; published by the Free Software Foundation; either version 2 of ;; the License, or (at your option) any later version. ;; ;; This program is distributed in the hope that it will be useful, ;; but WITHOUT ANY WARRANTY; without even the implied warranty of ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the ;; GNU General Public License for more details. ;; ;; You should have received a copy of the GNU General Public License ;; along with this program; if not, contact: ;; ;; Free Software Foundation Voice: +1-617-542-5942 ;; 59 Temple Place - Suite 330 Fax: +1-617-542-2652 ;; Boston, MA 02111-1307, USA gnu@gnu.org ;;; Commentary: ;; ;;ATK bindings. ;; ;;; Code: (define-module (gnome atk) #:use-module (gnome gobject) #:use-module (gnome gw atk) #:use-module (gnome gw support modules)) (re-export-modules (gnome gw atk)) guile-gnome-platform-2.16.2/atk/gnome/Makefile.am0000644000175000017500000000027211670374302022110 0ustar00wingowingo00000000000000include $(top_srcdir)/common.mk SUBDIRS = guilemodule_DATA = if HAVE_ATK guilemodule_DATA += atk.scm SUBDIRS += gw overrides endif EXTRA_DIST = atk.scm DIST_SUBDIRS = gw overrides guile-gnome-platform-2.16.2/atk/gnome/Makefile.in0000644000175000017500000005742411752520665022142 0ustar00wingowingo00000000000000# Makefile.in generated by automake 1.11.5 from Makefile.am. # @configure_input@ # Copyright (C) 1994, 1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, # 2003, 2004, 2005, 2006, 2007, 2008, 2009, 2010, 2011 Free Software # Foundation, Inc. # This Makefile.in is free software; the Free Software Foundation # gives unlimited permission to copy and/or distribute it, # with or without modifications, as long as this notice is preserved. # This program is distributed in the hope that it will be useful, # but WITHOUT ANY WARRANTY, to the extent permitted by law; without # even the implied warranty of MERCHANTABILITY or FITNESS FOR A # PARTICULAR PURPOSE. @SET_MAKE@ # guile-gnome # Copyright (C) 2003,2004,2009,2012 Free Software Foundation, Inc. # This program is free software; you can redistribute it and/or # modify it under the terms of the GNU General Public License as # published by the Free Software Foundation; either version 2 of # the License, or (at your option) any later version. # This program is distributed in the hope that it will be useful, # but WITHOUT ANY WARRANTY; without even the implied warranty of # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the # GNU General Public License for more details. # You should have received a copy of the GNU General Public License # along with this program; if not, contact: # Free Software Foundation Voice: +1-617-542-5942 # 59 Temple Place - Suite 330 Fax: +1-617-542-2652 # Boston, MA 02111-1307, USA gnu@gnu.org # # Makefile snippet # VPATH = @srcdir@ am__make_dryrun = \ { \ am__dry=no; \ case $$MAKEFLAGS in \ *\\[\ \ ]*) \ echo 'am--echo: ; @echo "AM" OK' | $(MAKE) -f - 2>/dev/null \ | grep '^AM OK$$' >/dev/null || am__dry=yes;; \ *) \ for am__flg in $$MAKEFLAGS; do \ case $$am__flg in \ *=*|--*) ;; \ *n*) am__dry=yes; break;; \ esac; \ done;; \ esac; \ test $$am__dry = yes; \ } pkgdatadir = $(datadir)/@PACKAGE@ pkgincludedir = $(includedir)/@PACKAGE@ pkglibdir = $(libdir)/@PACKAGE@ pkglibexecdir = $(libexecdir)/@PACKAGE@ am__cd = CDPATH="$${ZSH_VERSION+.}$(PATH_SEPARATOR)" && cd install_sh_DATA = $(install_sh) -c -m 644 install_sh_PROGRAM = $(install_sh) -c install_sh_SCRIPT = $(install_sh) -c INSTALL_HEADER = $(INSTALL_DATA) transform = $(program_transform_name) NORMAL_INSTALL = : PRE_INSTALL = : POST_INSTALL = : NORMAL_UNINSTALL = : PRE_UNINSTALL = : POST_UNINSTALL = : build_triplet = @build@ host_triplet = @host@ DIST_COMMON = $(srcdir)/Makefile.am $(srcdir)/Makefile.in \ $(top_srcdir)/common.mk @HAVE_ATK_TRUE@am__append_1 = atk.scm @HAVE_ATK_TRUE@am__append_2 = gw overrides subdir = atk/gnome ACLOCAL_M4 = $(top_srcdir)/aclocal.m4 am__aclocal_m4_deps = $(top_srcdir)/configure.ac am__configure_deps = $(am__aclocal_m4_deps) $(CONFIGURE_DEPENDENCIES) \ $(ACLOCAL_M4) mkinstalldirs = $(install_sh) -d CONFIG_HEADER = $(top_builddir)/config.h CONFIG_CLEAN_FILES = CONFIG_CLEAN_VPATH_FILES = SOURCES = DIST_SOURCES = RECURSIVE_TARGETS = all-recursive check-recursive dvi-recursive \ html-recursive info-recursive install-data-recursive \ install-dvi-recursive install-exec-recursive \ install-html-recursive install-info-recursive \ install-pdf-recursive install-ps-recursive install-recursive \ installcheck-recursive installdirs-recursive pdf-recursive \ ps-recursive uninstall-recursive am__can_run_installinfo = \ case $$AM_UPDATE_INFO_DIR in \ n|no|NO) false;; \ *) (install-info --version) >/dev/null 2>&1;; \ esac am__vpath_adj_setup = srcdirstrip=`echo "$(srcdir)" | sed 's|.|.|g'`; am__vpath_adj = case $$p in \ $(srcdir)/*) f=`echo "$$p" | sed "s|^$$srcdirstrip/||"`;; \ *) f=$$p;; \ esac; am__strip_dir = f=`echo $$p | sed -e 's|^.*/||'`; am__install_max = 40 am__nobase_strip_setup = \ srcdirstrip=`echo "$(srcdir)" | sed 's/[].[^$$\\*|]/\\\\&/g'` am__nobase_strip = \ for p in $$list; do echo "$$p"; done | sed -e "s|$$srcdirstrip/||" am__nobase_list = $(am__nobase_strip_setup); \ for p in $$list; do echo "$$p $$p"; done | \ sed "s| $$srcdirstrip/| |;"' / .*\//!s/ .*/ ./; s,\( .*\)/[^/]*$$,\1,' | \ $(AWK) 'BEGIN { files["."] = "" } { files[$$2] = files[$$2] " " $$1; \ if (++n[$$2] == $(am__install_max)) \ { print $$2, files[$$2]; n[$$2] = 0; files[$$2] = "" } } \ END { for (dir in files) print dir, files[dir] }' am__base_list = \ sed '$$!N;$$!N;$$!N;$$!N;$$!N;$$!N;$$!N;s/\n/ /g' | \ sed '$$!N;$$!N;$$!N;$$!N;s/\n/ /g' am__uninstall_files_from_dir = { \ test -z "$$files" \ || { test ! -d "$$dir" && test ! -f "$$dir" && test ! -r "$$dir"; } \ || { echo " ( cd '$$dir' && rm -f" $$files ")"; \ $(am__cd) "$$dir" && rm -f $$files; }; \ } am__installdirs = "$(DESTDIR)$(guilemoduledir)" DATA = $(guilemodule_DATA) RECURSIVE_CLEAN_TARGETS = mostlyclean-recursive clean-recursive \ distclean-recursive maintainer-clean-recursive AM_RECURSIVE_TARGETS = $(RECURSIVE_TARGETS:-recursive=) \ $(RECURSIVE_CLEAN_TARGETS:-recursive=) tags TAGS ctags CTAGS \ distdir ETAGS = etags CTAGS = ctags DISTFILES = $(DIST_COMMON) $(DIST_SOURCES) $(TEXINFOS) $(EXTRA_DIST) am__relativize = \ dir0=`pwd`; \ sed_first='s,^\([^/]*\)/.*$$,\1,'; \ sed_rest='s,^[^/]*/*,,'; \ sed_last='s,^.*/\([^/]*\)$$,\1,'; \ sed_butlast='s,/*[^/]*$$,,'; \ while test -n "$$dir1"; do \ first=`echo "$$dir1" | sed -e "$$sed_first"`; \ if test "$$first" != "."; then \ if test "$$first" = ".."; then \ dir2=`echo "$$dir0" | sed -e "$$sed_last"`/"$$dir2"; \ dir0=`echo "$$dir0" | sed -e "$$sed_butlast"`; \ else \ first2=`echo "$$dir2" | sed -e "$$sed_first"`; \ if test "$$first2" = "$$first"; then \ dir2=`echo "$$dir2" | sed -e "$$sed_rest"`; \ else \ dir2="../$$dir2"; \ fi; \ dir0="$$dir0"/"$$first"; \ fi; \ fi; \ dir1=`echo "$$dir1" | sed -e "$$sed_rest"`; \ done; \ reldir="$$dir2" ACLOCAL = @ACLOCAL@ AG_PKG_CONFIG_PATH = @AG_PKG_CONFIG_PATH@ AMTAR = @AMTAR@ API_VERSION = @API_VERSION@ AR = @AR@ ATK_CFLAGS = @ATK_CFLAGS@ ATK_LIBS = @ATK_LIBS@ AUTOCONF = @AUTOCONF@ AUTOHEADER = @AUTOHEADER@ AUTOMAKE = @AUTOMAKE@ AWK = @AWK@ BONOBO_IDL_DIR = @BONOBO_IDL_DIR@ CANVAS_CFLAGS = @CANVAS_CFLAGS@ CANVAS_LIBS = @CANVAS_LIBS@ CC = @CC@ CCDEPMODE = @CCDEPMODE@ CFLAGS = @CFLAGS@ CORBA_CFLAGS = @CORBA_CFLAGS@ CORBA_LIBS = @CORBA_LIBS@ CPP = @CPP@ CPPFLAGS = @CPPFLAGS@ CYGPATH_W = @CYGPATH_W@ DEFS = @DEFS@ DEPDIR = @DEPDIR@ DLLTOOL = @DLLTOOL@ DSYMUTIL = @DSYMUTIL@ DUMPBIN = @DUMPBIN@ ECHO_C = @ECHO_C@ ECHO_N = @ECHO_N@ ECHO_T = @ECHO_T@ EGREP = @EGREP@ EXEEXT = @EXEEXT@ FGREP = @FGREP@ GCONF_CFLAGS = @GCONF_CFLAGS@ GCONF_LIBS = @GCONF_LIBS@ GDK_CFLAGS = @GDK_CFLAGS@ GDK_LIBS = @GDK_LIBS@ GDK_PIXBUF_CFLAGS = @GDK_PIXBUF_CFLAGS@ GDK_PIXBUF_LIBS = @GDK_PIXBUF_LIBS@ GLIB_CFLAGS = @GLIB_CFLAGS@ GLIB_LIBS = @GLIB_LIBS@ GNOMEUI_DEPRECATION_FLAGS = @GNOMEUI_DEPRECATION_FLAGS@ GNOME_VFS_CFLAGS = @GNOME_VFS_CFLAGS@ GNOME_VFS_DEPRECATED_CFLAGS = @GNOME_VFS_DEPRECATED_CFLAGS@ GNOME_VFS_LIBS = @GNOME_VFS_LIBS@ GOBJECT_CFLAGS = @GOBJECT_CFLAGS@ GOBJECT_LIBS = @GOBJECT_LIBS@ GREP = @GREP@ GTHREAD_CFLAGS = @GTHREAD_CFLAGS@ GTHREAD_LIBS = @GTHREAD_LIBS@ GTK_CFLAGS = @GTK_CFLAGS@ GTK_DEPRECATED_CFLAGS = @GTK_DEPRECATED_CFLAGS@ GTK_LIBS = @GTK_LIBS@ GUILE_CAIRO_CFLAGS = @GUILE_CAIRO_CFLAGS@ GUILE_CAIRO_LIBS = @GUILE_CAIRO_LIBS@ GUILE_CFLAGS = @GUILE_CFLAGS@ GUILE_EFFECTIVE_VERSION = @GUILE_EFFECTIVE_VERSION@ GUILE_GLIB_CFLAGS = @GUILE_GLIB_CFLAGS@ GUILE_GLIB_LIBS = @GUILE_GLIB_LIBS@ GUILE_LIBS = @GUILE_LIBS@ G_WRAP_CFLAGS = @G_WRAP_CFLAGS@ G_WRAP_LIBS = @G_WRAP_LIBS@ G_WRAP_LIB_DIR = @G_WRAP_LIB_DIR@ G_WRAP_MODULE_DIR = @G_WRAP_MODULE_DIR@ INSTALL = @INSTALL@ INSTALL_DATA = @INSTALL_DATA@ INSTALL_PROGRAM = @INSTALL_PROGRAM@ INSTALL_SCRIPT = @INSTALL_SCRIPT@ INSTALL_STRIP_PROGRAM = @INSTALL_STRIP_PROGRAM@ LD = @LD@ LDFLAGS = @LDFLAGS@ LIBGLADE_CFLAGS = @LIBGLADE_CFLAGS@ LIBGLADE_LIBS = @LIBGLADE_LIBS@ LIBGNOMEUI_CFLAGS = @LIBGNOMEUI_CFLAGS@ LIBGNOMEUI_LIBS = @LIBGNOMEUI_LIBS@ LIBGNOME_CFLAGS = @LIBGNOME_CFLAGS@ LIBGNOME_LIBS = @LIBGNOME_LIBS@ LIBOBJS = @LIBOBJS@ LIBS = @LIBS@ LIBTOOL = @LIBTOOL@ LIPO = @LIPO@ LN_S = @LN_S@ LTLIBOBJS = @LTLIBOBJS@ MAKEINFO = @MAKEINFO@ MANIFEST_TOOL = @MANIFEST_TOOL@ MKDIR_P = @MKDIR_P@ NM = @NM@ NMEDIT = @NMEDIT@ OBJDUMP = @OBJDUMP@ OBJEXT = @OBJEXT@ ORBIT_IDL = @ORBIT_IDL@ OTOOL = @OTOOL@ OTOOL64 = @OTOOL64@ PACKAGE = @PACKAGE@ PACKAGE_BUGREPORT = @PACKAGE_BUGREPORT@ PACKAGE_NAME = @PACKAGE_NAME@ PACKAGE_STRING = @PACKAGE_STRING@ PACKAGE_TARNAME = @PACKAGE_TARNAME@ PACKAGE_URL = @PACKAGE_URL@ PACKAGE_VERSION = @PACKAGE_VERSION@ PANGOCAIRO_CFLAGS = @PANGOCAIRO_CFLAGS@ PANGOCAIRO_LIBS = @PANGOCAIRO_LIBS@ PANGO_CFLAGS = @PANGO_CFLAGS@ PANGO_LIBS = @PANGO_LIBS@ PATH_SEPARATOR = @PATH_SEPARATOR@ PKG_CONFIG = @PKG_CONFIG@ PKG_CONFIG_LIBDIR = @PKG_CONFIG_LIBDIR@ PKG_CONFIG_PATH = @PKG_CONFIG_PATH@ RANLIB = @RANLIB@ SED = @SED@ SET_MAKE = @SET_MAKE@ SHELL = @SHELL@ STRIP = @STRIP@ VERSION = @VERSION@ WARN_CFLAGS = @WARN_CFLAGS@ abs_builddir = @abs_builddir@ abs_srcdir = @abs_srcdir@ abs_top_builddir = @abs_top_builddir@ abs_top_srcdir = @abs_top_srcdir@ ac_ct_AR = @ac_ct_AR@ ac_ct_CC = @ac_ct_CC@ ac_ct_DUMPBIN = @ac_ct_DUMPBIN@ am__include = @am__include@ am__leading_dot = @am__leading_dot@ am__quote = @am__quote@ am__tar = @am__tar@ am__untar = @am__untar@ bindir = @bindir@ build = @build@ build_alias = @build_alias@ build_cpu = @build_cpu@ build_os = @build_os@ build_vendor = @build_vendor@ builddir = @builddir@ datadir = @datadir@ datarootdir = @datarootdir@ docdir = @docdir@ dvidir = @dvidir@ exec_prefix = @exec_prefix@ host = @host@ host_alias = @host_alias@ host_cpu = @host_cpu@ host_os = @host_os@ host_vendor = @host_vendor@ htmldir = @htmldir@ includedir = @includedir@ infodir = @infodir@ install_sh = @install_sh@ libdir = @libdir@ libexecdir = @libexecdir@ localedir = @localedir@ localstatedir = @localstatedir@ mandir = @mandir@ mkdir_p = @mkdir_p@ oldincludedir = @oldincludedir@ pdfdir = @pdfdir@ prefix = @prefix@ program_transform_name = @program_transform_name@ psdir = @psdir@ sbindir = @sbindir@ sharedstatedir = @sharedstatedir@ srcdir = @srcdir@ sysconfdir = @sysconfdir@ target_alias = @target_alias@ top_build_prefix = @top_build_prefix@ top_builddir = @top_builddir@ top_srcdir = @top_srcdir@ guilegnomedir = $(datadir)/guile-gnome-@API_VERSION@ guilemoduledir = $(guilegnomedir)/gnome guilegwmoduledir = $(guilegnomedir)/gnome/gw guilegnomelibdir = $(libdir)/guile-gnome-@API_VERSION@ AM_CFLAGS = -I. -I$(srcdir) $(WARN_CFLAGS) $(DEBUG_CFLAGS) # For overriding from the command line (e.g. --debug) GUILE_FLAGS = SUFFIXES = .x .doc GUILE_SNARF_CFLAGS = $(DEFS) $(AM_CFLAGS) $(GUILE_CFLAGS) $(G_WRAP_CFLAGS) PACKAGES = atk cairo corba defs gconf glib gnome-vfs gtk libglade libgnome libgnomecanvas libgnomeui pango SOURCE_GUILE_PATH = $(shell echo $(addprefix $(top_srcdir)/,$(PACKAGES)) | sed -e 's/ /:/g'):$(srcdir) BUILD_GUILE_PATH = $(if $(filter-out $(top_srcdir),$(top_builddir)),$(shell echo -n $(addprefix $(top_builddir)/,$(PACKAGES)): | sed -e 's/ /:/g'),) GUILE_LOAD_PATH := $(BUILD_GUILE_PATH)$(SOURCE_GUILE_PATH):${G_WRAP_MODULE_DIR}:${GUILE_LOAD_PATH} # Real gnu make foo packages = $(filter-out %-uninstalled,$(patsubst %.pc.in,%,$(notdir $(wildcard $(srcdir)/*.pc.in)))) pcifiles = $(patsubst %,%-@API_VERSION@.pc,$(packages)) pcufiles = $(patsubst %,%-@API_VERSION@-uninstalled.pc,$(packages)) SUBDIRS = $(am__append_2) guilemodule_DATA = $(am__append_1) EXTRA_DIST = atk.scm DIST_SUBDIRS = gw overrides all: all-recursive .SUFFIXES: .SUFFIXES: .x .doc .c $(srcdir)/Makefile.in: $(srcdir)/Makefile.am $(top_srcdir)/common.mk $(am__configure_deps) @for dep in $?; do \ case '$(am__configure_deps)' in \ *$$dep*) \ ( cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh ) \ && { if test -f $@; then exit 0; else break; fi; }; \ exit 1;; \ esac; \ done; \ echo ' cd $(top_srcdir) && $(AUTOMAKE) --gnu atk/gnome/Makefile'; \ $(am__cd) $(top_srcdir) && \ $(AUTOMAKE) --gnu atk/gnome/Makefile .PRECIOUS: Makefile Makefile: $(srcdir)/Makefile.in $(top_builddir)/config.status @case '$?' in \ *config.status*) \ cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh;; \ *) \ echo ' cd $(top_builddir) && $(SHELL) ./config.status $(subdir)/$@ $(am__depfiles_maybe)'; \ cd $(top_builddir) && $(SHELL) ./config.status $(subdir)/$@ $(am__depfiles_maybe);; \ esac; $(top_srcdir)/common.mk: $(top_builddir)/config.status: $(top_srcdir)/configure $(CONFIG_STATUS_DEPENDENCIES) cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh $(top_srcdir)/configure: $(am__configure_deps) cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh $(ACLOCAL_M4): $(am__aclocal_m4_deps) cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh $(am__aclocal_m4_deps): mostlyclean-libtool: -rm -f *.lo clean-libtool: -rm -rf .libs _libs install-guilemoduleDATA: $(guilemodule_DATA) @$(NORMAL_INSTALL) @list='$(guilemodule_DATA)'; test -n "$(guilemoduledir)" || list=; \ if test -n "$$list"; then \ echo " $(MKDIR_P) '$(DESTDIR)$(guilemoduledir)'"; \ $(MKDIR_P) "$(DESTDIR)$(guilemoduledir)" || exit 1; \ fi; \ for p in $$list; do \ if test -f "$$p"; then d=; else d="$(srcdir)/"; fi; \ echo "$$d$$p"; \ done | $(am__base_list) | \ while read files; do \ echo " $(INSTALL_DATA) $$files '$(DESTDIR)$(guilemoduledir)'"; \ $(INSTALL_DATA) $$files "$(DESTDIR)$(guilemoduledir)" || exit $$?; \ done uninstall-guilemoduleDATA: @$(NORMAL_UNINSTALL) @list='$(guilemodule_DATA)'; test -n "$(guilemoduledir)" || list=; \ files=`for p in $$list; do echo $$p; done | sed -e 's|^.*/||'`; \ dir='$(DESTDIR)$(guilemoduledir)'; $(am__uninstall_files_from_dir) # This directory's subdirectories are mostly independent; you can cd # into them and run `make' without going through this Makefile. # To change the values of `make' variables: instead of editing Makefiles, # (1) if the variable is set in `config.status', edit `config.status' # (which will cause the Makefiles to be regenerated when you run `make'); # (2) otherwise, pass the desired values on the `make' command line. $(RECURSIVE_TARGETS): @fail= failcom='exit 1'; \ for f in x $$MAKEFLAGS; do \ case $$f in \ *=* | --[!k]*);; \ *k*) failcom='fail=yes';; \ esac; \ done; \ dot_seen=no; \ target=`echo $@ | sed s/-recursive//`; \ list='$(SUBDIRS)'; for subdir in $$list; do \ echo "Making $$target in $$subdir"; \ if test "$$subdir" = "."; then \ dot_seen=yes; \ local_target="$$target-am"; \ else \ local_target="$$target"; \ fi; \ ($(am__cd) $$subdir && $(MAKE) $(AM_MAKEFLAGS) $$local_target) \ || eval $$failcom; \ done; \ if test "$$dot_seen" = "no"; then \ $(MAKE) $(AM_MAKEFLAGS) "$$target-am" || exit 1; \ fi; test -z "$$fail" $(RECURSIVE_CLEAN_TARGETS): @fail= failcom='exit 1'; \ for f in x $$MAKEFLAGS; do \ case $$f in \ *=* | --[!k]*);; \ *k*) failcom='fail=yes';; \ esac; \ done; \ dot_seen=no; \ case "$@" in \ distclean-* | maintainer-clean-*) list='$(DIST_SUBDIRS)' ;; \ *) list='$(SUBDIRS)' ;; \ esac; \ rev=''; for subdir in $$list; do \ if test "$$subdir" = "."; then :; else \ rev="$$subdir $$rev"; \ fi; \ done; \ rev="$$rev ."; \ target=`echo $@ | sed s/-recursive//`; \ for subdir in $$rev; do \ echo "Making $$target in $$subdir"; \ if test "$$subdir" = "."; then \ local_target="$$target-am"; \ else \ local_target="$$target"; \ fi; \ ($(am__cd) $$subdir && $(MAKE) $(AM_MAKEFLAGS) $$local_target) \ || eval $$failcom; \ done && test -z "$$fail" tags-recursive: list='$(SUBDIRS)'; for subdir in $$list; do \ test "$$subdir" = . || ($(am__cd) $$subdir && $(MAKE) $(AM_MAKEFLAGS) tags); \ done ctags-recursive: list='$(SUBDIRS)'; for subdir in $$list; do \ test "$$subdir" = . || ($(am__cd) $$subdir && $(MAKE) $(AM_MAKEFLAGS) ctags); \ done ID: $(HEADERS) $(SOURCES) $(LISP) $(TAGS_FILES) list='$(SOURCES) $(HEADERS) $(LISP) $(TAGS_FILES)'; \ unique=`for i in $$list; do \ if test -f "$$i"; then echo $$i; else echo $(srcdir)/$$i; fi; \ done | \ $(AWK) '{ files[$$0] = 1; nonempty = 1; } \ END { if (nonempty) { for (i in files) print i; }; }'`; \ mkid -fID $$unique tags: TAGS TAGS: tags-recursive $(HEADERS) $(SOURCES) $(TAGS_DEPENDENCIES) \ $(TAGS_FILES) $(LISP) set x; \ here=`pwd`; \ if ($(ETAGS) --etags-include --version) >/dev/null 2>&1; then \ include_option=--etags-include; \ empty_fix=.; \ else \ include_option=--include; \ empty_fix=; \ fi; \ list='$(SUBDIRS)'; for subdir in $$list; do \ if test "$$subdir" = .; then :; else \ test ! -f $$subdir/TAGS || \ set "$$@" "$$include_option=$$here/$$subdir/TAGS"; \ fi; \ done; \ list='$(SOURCES) $(HEADERS) $(LISP) $(TAGS_FILES)'; \ unique=`for i in $$list; do \ if test -f "$$i"; then echo $$i; else echo $(srcdir)/$$i; fi; \ done | \ $(AWK) '{ files[$$0] = 1; nonempty = 1; } \ END { if (nonempty) { for (i in files) print i; }; }'`; \ shift; \ if test -z "$(ETAGS_ARGS)$$*$$unique"; then :; else \ test -n "$$unique" || unique=$$empty_fix; \ if test $$# -gt 0; then \ $(ETAGS) $(ETAGSFLAGS) $(AM_ETAGSFLAGS) $(ETAGS_ARGS) \ "$$@" $$unique; \ else \ $(ETAGS) $(ETAGSFLAGS) $(AM_ETAGSFLAGS) $(ETAGS_ARGS) \ $$unique; \ fi; \ fi ctags: CTAGS CTAGS: ctags-recursive $(HEADERS) $(SOURCES) $(TAGS_DEPENDENCIES) \ $(TAGS_FILES) $(LISP) list='$(SOURCES) $(HEADERS) $(LISP) $(TAGS_FILES)'; \ unique=`for i in $$list; do \ if test -f "$$i"; then echo $$i; else echo $(srcdir)/$$i; fi; \ done | \ $(AWK) '{ files[$$0] = 1; nonempty = 1; } \ END { if (nonempty) { for (i in files) print i; }; }'`; \ test -z "$(CTAGS_ARGS)$$unique" \ || $(CTAGS) $(CTAGSFLAGS) $(AM_CTAGSFLAGS) $(CTAGS_ARGS) \ $$unique GTAGS: here=`$(am__cd) $(top_builddir) && pwd` \ && $(am__cd) $(top_srcdir) \ && gtags -i $(GTAGS_ARGS) "$$here" distclean-tags: -rm -f TAGS ID GTAGS GRTAGS GSYMS GPATH tags distdir: $(DISTFILES) @srcdirstrip=`echo "$(srcdir)" | sed 's/[].[^$$\\*]/\\\\&/g'`; \ topsrcdirstrip=`echo "$(top_srcdir)" | sed 's/[].[^$$\\*]/\\\\&/g'`; \ list='$(DISTFILES)'; \ dist_files=`for file in $$list; do echo $$file; done | \ sed -e "s|^$$srcdirstrip/||;t" \ -e "s|^$$topsrcdirstrip/|$(top_builddir)/|;t"`; \ case $$dist_files in \ */*) $(MKDIR_P) `echo "$$dist_files" | \ sed '/\//!d;s|^|$(distdir)/|;s,/[^/]*$$,,' | \ sort -u` ;; \ esac; \ for file in $$dist_files; do \ if test -f $$file || test -d $$file; then d=.; else d=$(srcdir); fi; \ if test -d $$d/$$file; then \ dir=`echo "/$$file" | sed -e 's,/[^/]*$$,,'`; \ if test -d "$(distdir)/$$file"; then \ find "$(distdir)/$$file" -type d ! -perm -700 -exec chmod u+rwx {} \;; \ fi; \ if test -d $(srcdir)/$$file && test $$d != $(srcdir); then \ cp -fpR $(srcdir)/$$file "$(distdir)$$dir" || exit 1; \ find "$(distdir)/$$file" -type d ! -perm -700 -exec chmod u+rwx {} \;; \ fi; \ cp -fpR $$d/$$file "$(distdir)$$dir" || exit 1; \ else \ test -f "$(distdir)/$$file" \ || cp -p $$d/$$file "$(distdir)/$$file" \ || exit 1; \ fi; \ done @list='$(DIST_SUBDIRS)'; for subdir in $$list; do \ if test "$$subdir" = .; then :; else \ $(am__make_dryrun) \ || test -d "$(distdir)/$$subdir" \ || $(MKDIR_P) "$(distdir)/$$subdir" \ || exit 1; \ dir1=$$subdir; dir2="$(distdir)/$$subdir"; \ $(am__relativize); \ new_distdir=$$reldir; \ dir1=$$subdir; dir2="$(top_distdir)"; \ $(am__relativize); \ new_top_distdir=$$reldir; \ echo " (cd $$subdir && $(MAKE) $(AM_MAKEFLAGS) top_distdir="$$new_top_distdir" distdir="$$new_distdir" \\"; \ echo " am__remove_distdir=: am__skip_length_check=: am__skip_mode_fix=: distdir)"; \ ($(am__cd) $$subdir && \ $(MAKE) $(AM_MAKEFLAGS) \ top_distdir="$$new_top_distdir" \ distdir="$$new_distdir" \ am__remove_distdir=: \ am__skip_length_check=: \ am__skip_mode_fix=: \ distdir) \ || exit 1; \ fi; \ done check-am: all-am check: check-recursive all-am: Makefile $(DATA) installdirs: installdirs-recursive installdirs-am: for dir in "$(DESTDIR)$(guilemoduledir)"; do \ test -z "$$dir" || $(MKDIR_P) "$$dir"; \ done install: install-recursive install-exec: install-exec-recursive install-data: install-data-recursive uninstall: uninstall-recursive install-am: all-am @$(MAKE) $(AM_MAKEFLAGS) install-exec-am install-data-am installcheck: installcheck-recursive install-strip: if test -z '$(STRIP)'; then \ $(MAKE) $(AM_MAKEFLAGS) INSTALL_PROGRAM="$(INSTALL_STRIP_PROGRAM)" \ install_sh_PROGRAM="$(INSTALL_STRIP_PROGRAM)" INSTALL_STRIP_FLAG=-s \ install; \ else \ $(MAKE) $(AM_MAKEFLAGS) INSTALL_PROGRAM="$(INSTALL_STRIP_PROGRAM)" \ install_sh_PROGRAM="$(INSTALL_STRIP_PROGRAM)" INSTALL_STRIP_FLAG=-s \ "INSTALL_PROGRAM_ENV=STRIPPROG='$(STRIP)'" install; \ fi mostlyclean-generic: clean-generic: distclean-generic: -test -z "$(CONFIG_CLEAN_FILES)" || rm -f $(CONFIG_CLEAN_FILES) -test . = "$(srcdir)" || test -z "$(CONFIG_CLEAN_VPATH_FILES)" || rm -f $(CONFIG_CLEAN_VPATH_FILES) maintainer-clean-generic: @echo "This command is intended for maintainers to use" @echo "it deletes files that may require special tools to rebuild." clean: clean-recursive clean-am: clean-generic clean-libtool mostlyclean-am distclean: distclean-recursive -rm -f Makefile distclean-am: clean-am distclean-generic distclean-tags dvi: dvi-recursive dvi-am: html: html-recursive html-am: info: info-recursive info-am: install-data-am: install-guilemoduleDATA install-dvi: install-dvi-recursive install-dvi-am: install-exec-am: install-html: install-html-recursive install-html-am: install-info: install-info-recursive install-info-am: install-man: install-pdf: install-pdf-recursive install-pdf-am: install-ps: install-ps-recursive install-ps-am: installcheck-am: maintainer-clean: maintainer-clean-recursive -rm -f Makefile maintainer-clean-am: distclean-am maintainer-clean-generic mostlyclean: mostlyclean-recursive mostlyclean-am: mostlyclean-generic mostlyclean-libtool pdf: pdf-recursive pdf-am: ps: ps-recursive ps-am: uninstall-am: uninstall-guilemoduleDATA .MAKE: $(RECURSIVE_CLEAN_TARGETS) $(RECURSIVE_TARGETS) ctags-recursive \ install-am install-strip tags-recursive .PHONY: $(RECURSIVE_CLEAN_TARGETS) $(RECURSIVE_TARGETS) CTAGS GTAGS \ all all-am check check-am clean clean-generic clean-libtool \ ctags ctags-recursive distclean distclean-generic \ distclean-libtool distclean-tags distdir dvi dvi-am html \ html-am info info-am install install-am install-data \ install-data-am install-dvi install-dvi-am install-exec \ install-exec-am install-guilemoduleDATA install-html \ install-html-am install-info install-info-am install-man \ install-pdf install-pdf-am install-ps install-ps-am \ install-strip installcheck installcheck-am installdirs \ installdirs-am maintainer-clean maintainer-clean-generic \ mostlyclean mostlyclean-generic mostlyclean-libtool pdf pdf-am \ ps ps-am tags tags-recursive uninstall uninstall-am \ uninstall-guilemoduleDATA export GUILE_LOAD_PATH .c.x: guile-snarf $(GUILE_SNARF_CFLAGS) $< > $@ \ || { rm $@; false; } .c.doc: $(CPP) -DSCM_MAGIC_SNARF_DOCS $(GUILE_SNARF_CFLAGS) $< \ | grep -E '(\^\^ {|\^\^ })' > $@ || { rm $@; false; } %.scm guile-gnome-gw-%.c: %-spec.scm guile $(GUILE_FLAGS) -c \ "(debug-set! stack 400000) \ (use-modules (gnome-@API_VERSION@)) \ (use-modules (g-wrap)) \ (use-modules (gnome gw $*-spec)) \ (generate-wrapset 'guile 'gnome-$* \"guile-gnome-gw-$*\")" mv guile-gnome-gw-$*.scm $*.scm %-@API_VERSION@.pc: %.pc cp $< $@ %-@API_VERSION@-uninstalled.pc: %-uninstalled.pc cp $< $@ # Tell versions [3.59,3.63) of GNU make to not export all variables. # Otherwise a system limit (for SysV at least) may be exceeded. .NOEXPORT: guile-gnome-platform-2.16.2/atk/gnome/overrides/0000755000175000017500000000000011752546500022057 5ustar00wingowingo00000000000000guile-gnome-platform-2.16.2/atk/gnome/overrides/atk.defs0000644000175000017500000000702611670374302023504 0ustar00wingowingo00000000000000;; -*- scheme -*- ;; guile-gnome ;; Copyright (C) 2007 Andy Wingo ;; ;; This program is free software; you can redistribute it and/or ;; modify it under the terms of the GNU General Public License as ;; published by the Free Software Foundation; either version 2 of ;; the License, or (at your option) any later version. ;; ;; This program is distributed in the hope that it will be useful, ;; but WITHOUT ANY WARRANTY; without even the implied warranty of ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the ;; GNU General Public License for more details. ;; ;; You should have received a copy of the GNU General Public License ;; along with this program; if not, contact: ;; ;; Free Software Foundation Voice: +1-617-542-5942 ;; 59 Temple Place - Suite 330 Fax: +1-617-542-2652 ;; Boston, MA 02111-1307, USA gnu@gnu.org ;;; Commentary: ;; ;;Custom wrapper definitions. ;; ;;; Code: (define-interface Action (in-module "Atk") (c-name "AtkAction") (gtype-id "ATK_TYPE_ACTION")) (define-interface Component (in-module "Atk") (c-name "AtkComponent") (gtype-id "ATK_TYPE_COMPONENT")) (define-interface Document (in-module "Atk") (c-name "AtkDocument") (gtype-id "ATK_TYPE_DOCUMENT")) (define-interface EditableText (in-module "Atk") (c-name "AtkEditableText") (gtype-id "ATK_TYPE_EDITABLE_TEXT")) (define-interface HyperlinkImpl (in-module "Atk") (c-name "AtkHyperlinkImpl") (gtype-id "ATK_TYPE_HYPERLINK_IMPL")) (define-interface Hypertext (in-module "Atk") (c-name "AtkHypertext") (gtype-id "ATK_TYPE_HYPERTEXT")) (define-interface Image (in-module "Atk") (c-name "AtkImage") (gtype-id "ATK_TYPE_IMAGE")) (define-interface Implementor (in-module "Atk") (c-name "AtkImplementor") (gtype-id "ATK_TYPE_IMPLEMENTOR")) (define-interface Selection (in-module "Atk") (c-name "AtkSelection") (gtype-id "ATK_TYPE_SELECTION")) (define-interface StreamableContent (in-module "Atk") (c-name "AtkStreamableContent") (gtype-id "ATK_TYPE_STREAMABLE_CONTENT")) (define-interface Table (in-module "Atk") (c-name "AtkTable") (gtype-id "ATK_TYPE_TABLE")) (define-interface Text (in-module "Atk") (c-name "AtkText") (gtype-id "ATK_TYPE_TEXT")) (define-interface Value (in-module "Atk") (c-name "AtkValue") (gtype-id "ATK_TYPE_VALUE")) (ignore "atk_table_get_selected_rows" ; these have gint** "atk_table_get_selected_columns" "atk_add_key_event_listener" ; a function we don't know about "atk_component_add_focus_handler" "atk_component_remove_focus_handler" "atk_document_get_document" "atk_document_get_attributes" "atk_editable_text_set_run_attributes" "atk_object_initialize" "atk_object_get_attributes" "atk_object_connect_property_change_handler" "atk_object_remove_property_change_handler" "atk_relation_new" "atk_relation_get_target" "atk_state_set_add_states" "atk_state_set_contains_states" "atk_text_get_run_attributes" "atk_text_get_default_attributes" "atk_text_get_bounded_ranges" "atk_text_get_range_extents" "atk_text_free_ranges" ;; tastes like chicken "atk_add_focus_tracker" "atk_focus_tracker_init" "atk_global_event_listener" "atk_add_global_event_listener" ) guile-gnome-platform-2.16.2/atk/gnome/overrides/Makefile.am0000644000175000017500000000021111670374302024103 0ustar00wingowingo00000000000000include $(top_srcdir)/common.mk moduledir = $(guilemoduledir)/overrides module_DATA = $(wildcard *.defs*) EXTRA_DIST = $(module_DATA) guile-gnome-platform-2.16.2/atk/gnome/overrides/Makefile.in0000644000175000017500000004122111752520666024131 0ustar00wingowingo00000000000000# Makefile.in generated by automake 1.11.5 from Makefile.am. # @configure_input@ # Copyright (C) 1994, 1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, # 2003, 2004, 2005, 2006, 2007, 2008, 2009, 2010, 2011 Free Software # Foundation, Inc. # This Makefile.in is free software; the Free Software Foundation # gives unlimited permission to copy and/or distribute it, # with or without modifications, as long as this notice is preserved. # This program is distributed in the hope that it will be useful, # but WITHOUT ANY WARRANTY, to the extent permitted by law; without # even the implied warranty of MERCHANTABILITY or FITNESS FOR A # PARTICULAR PURPOSE. @SET_MAKE@ # guile-gnome # Copyright (C) 2003,2004,2009,2012 Free Software Foundation, Inc. # This program is free software; you can redistribute it and/or # modify it under the terms of the GNU General Public License as # published by the Free Software Foundation; either version 2 of # the License, or (at your option) any later version. # This program is distributed in the hope that it will be useful, # but WITHOUT ANY WARRANTY; without even the implied warranty of # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the # GNU General Public License for more details. # You should have received a copy of the GNU General Public License # along with this program; if not, contact: # Free Software Foundation Voice: +1-617-542-5942 # 59 Temple Place - Suite 330 Fax: +1-617-542-2652 # Boston, MA 02111-1307, USA gnu@gnu.org # # Makefile snippet # VPATH = @srcdir@ am__make_dryrun = \ { \ am__dry=no; \ case $$MAKEFLAGS in \ *\\[\ \ ]*) \ echo 'am--echo: ; @echo "AM" OK' | $(MAKE) -f - 2>/dev/null \ | grep '^AM OK$$' >/dev/null || am__dry=yes;; \ *) \ for am__flg in $$MAKEFLAGS; do \ case $$am__flg in \ *=*|--*) ;; \ *n*) am__dry=yes; break;; \ esac; \ done;; \ esac; \ test $$am__dry = yes; \ } pkgdatadir = $(datadir)/@PACKAGE@ pkgincludedir = $(includedir)/@PACKAGE@ pkglibdir = $(libdir)/@PACKAGE@ pkglibexecdir = $(libexecdir)/@PACKAGE@ am__cd = CDPATH="$${ZSH_VERSION+.}$(PATH_SEPARATOR)" && cd install_sh_DATA = $(install_sh) -c -m 644 install_sh_PROGRAM = $(install_sh) -c install_sh_SCRIPT = $(install_sh) -c INSTALL_HEADER = $(INSTALL_DATA) transform = $(program_transform_name) NORMAL_INSTALL = : PRE_INSTALL = : POST_INSTALL = : NORMAL_UNINSTALL = : PRE_UNINSTALL = : POST_UNINSTALL = : build_triplet = @build@ host_triplet = @host@ DIST_COMMON = $(srcdir)/Makefile.am $(srcdir)/Makefile.in \ $(top_srcdir)/common.mk subdir = atk/gnome/overrides ACLOCAL_M4 = $(top_srcdir)/aclocal.m4 am__aclocal_m4_deps = $(top_srcdir)/configure.ac am__configure_deps = $(am__aclocal_m4_deps) $(CONFIGURE_DEPENDENCIES) \ $(ACLOCAL_M4) mkinstalldirs = $(install_sh) -d CONFIG_HEADER = $(top_builddir)/config.h CONFIG_CLEAN_FILES = CONFIG_CLEAN_VPATH_FILES = SOURCES = DIST_SOURCES = am__can_run_installinfo = \ case $$AM_UPDATE_INFO_DIR in \ n|no|NO) false;; \ *) (install-info --version) >/dev/null 2>&1;; \ esac am__vpath_adj_setup = srcdirstrip=`echo "$(srcdir)" | sed 's|.|.|g'`; am__vpath_adj = case $$p in \ $(srcdir)/*) f=`echo "$$p" | sed "s|^$$srcdirstrip/||"`;; \ *) f=$$p;; \ esac; am__strip_dir = f=`echo $$p | sed -e 's|^.*/||'`; am__install_max = 40 am__nobase_strip_setup = \ srcdirstrip=`echo "$(srcdir)" | sed 's/[].[^$$\\*|]/\\\\&/g'` am__nobase_strip = \ for p in $$list; do echo "$$p"; done | sed -e "s|$$srcdirstrip/||" am__nobase_list = $(am__nobase_strip_setup); \ for p in $$list; do echo "$$p $$p"; done | \ sed "s| $$srcdirstrip/| |;"' / .*\//!s/ .*/ ./; s,\( .*\)/[^/]*$$,\1,' | \ $(AWK) 'BEGIN { files["."] = "" } { files[$$2] = files[$$2] " " $$1; \ if (++n[$$2] == $(am__install_max)) \ { print $$2, files[$$2]; n[$$2] = 0; files[$$2] = "" } } \ END { for (dir in files) print dir, files[dir] }' am__base_list = \ sed '$$!N;$$!N;$$!N;$$!N;$$!N;$$!N;$$!N;s/\n/ /g' | \ sed '$$!N;$$!N;$$!N;$$!N;s/\n/ /g' am__uninstall_files_from_dir = { \ test -z "$$files" \ || { test ! -d "$$dir" && test ! -f "$$dir" && test ! -r "$$dir"; } \ || { echo " ( cd '$$dir' && rm -f" $$files ")"; \ $(am__cd) "$$dir" && rm -f $$files; }; \ } am__installdirs = "$(DESTDIR)$(moduledir)" DATA = $(module_DATA) DISTFILES = $(DIST_COMMON) $(DIST_SOURCES) $(TEXINFOS) $(EXTRA_DIST) ACLOCAL = @ACLOCAL@ AG_PKG_CONFIG_PATH = @AG_PKG_CONFIG_PATH@ AMTAR = @AMTAR@ API_VERSION = @API_VERSION@ AR = @AR@ ATK_CFLAGS = @ATK_CFLAGS@ ATK_LIBS = @ATK_LIBS@ AUTOCONF = @AUTOCONF@ AUTOHEADER = @AUTOHEADER@ AUTOMAKE = @AUTOMAKE@ AWK = @AWK@ BONOBO_IDL_DIR = @BONOBO_IDL_DIR@ CANVAS_CFLAGS = @CANVAS_CFLAGS@ CANVAS_LIBS = @CANVAS_LIBS@ CC = @CC@ CCDEPMODE = @CCDEPMODE@ CFLAGS = @CFLAGS@ CORBA_CFLAGS = @CORBA_CFLAGS@ CORBA_LIBS = @CORBA_LIBS@ CPP = @CPP@ CPPFLAGS = @CPPFLAGS@ CYGPATH_W = @CYGPATH_W@ DEFS = @DEFS@ DEPDIR = @DEPDIR@ DLLTOOL = @DLLTOOL@ DSYMUTIL = @DSYMUTIL@ DUMPBIN = @DUMPBIN@ ECHO_C = @ECHO_C@ ECHO_N = @ECHO_N@ ECHO_T = @ECHO_T@ EGREP = @EGREP@ EXEEXT = @EXEEXT@ FGREP = @FGREP@ GCONF_CFLAGS = @GCONF_CFLAGS@ GCONF_LIBS = @GCONF_LIBS@ GDK_CFLAGS = @GDK_CFLAGS@ GDK_LIBS = @GDK_LIBS@ GDK_PIXBUF_CFLAGS = @GDK_PIXBUF_CFLAGS@ GDK_PIXBUF_LIBS = @GDK_PIXBUF_LIBS@ GLIB_CFLAGS = @GLIB_CFLAGS@ GLIB_LIBS = @GLIB_LIBS@ GNOMEUI_DEPRECATION_FLAGS = @GNOMEUI_DEPRECATION_FLAGS@ GNOME_VFS_CFLAGS = @GNOME_VFS_CFLAGS@ GNOME_VFS_DEPRECATED_CFLAGS = @GNOME_VFS_DEPRECATED_CFLAGS@ GNOME_VFS_LIBS = @GNOME_VFS_LIBS@ GOBJECT_CFLAGS = @GOBJECT_CFLAGS@ GOBJECT_LIBS = @GOBJECT_LIBS@ GREP = @GREP@ GTHREAD_CFLAGS = @GTHREAD_CFLAGS@ GTHREAD_LIBS = @GTHREAD_LIBS@ GTK_CFLAGS = @GTK_CFLAGS@ GTK_DEPRECATED_CFLAGS = @GTK_DEPRECATED_CFLAGS@ GTK_LIBS = @GTK_LIBS@ GUILE_CAIRO_CFLAGS = @GUILE_CAIRO_CFLAGS@ GUILE_CAIRO_LIBS = @GUILE_CAIRO_LIBS@ GUILE_CFLAGS = @GUILE_CFLAGS@ GUILE_EFFECTIVE_VERSION = @GUILE_EFFECTIVE_VERSION@ GUILE_GLIB_CFLAGS = @GUILE_GLIB_CFLAGS@ GUILE_GLIB_LIBS = @GUILE_GLIB_LIBS@ GUILE_LIBS = @GUILE_LIBS@ G_WRAP_CFLAGS = @G_WRAP_CFLAGS@ G_WRAP_LIBS = @G_WRAP_LIBS@ G_WRAP_LIB_DIR = @G_WRAP_LIB_DIR@ G_WRAP_MODULE_DIR = @G_WRAP_MODULE_DIR@ INSTALL = @INSTALL@ INSTALL_DATA = @INSTALL_DATA@ INSTALL_PROGRAM = @INSTALL_PROGRAM@ INSTALL_SCRIPT = @INSTALL_SCRIPT@ INSTALL_STRIP_PROGRAM = @INSTALL_STRIP_PROGRAM@ LD = @LD@ LDFLAGS = @LDFLAGS@ LIBGLADE_CFLAGS = @LIBGLADE_CFLAGS@ LIBGLADE_LIBS = @LIBGLADE_LIBS@ LIBGNOMEUI_CFLAGS = @LIBGNOMEUI_CFLAGS@ LIBGNOMEUI_LIBS = @LIBGNOMEUI_LIBS@ LIBGNOME_CFLAGS = @LIBGNOME_CFLAGS@ LIBGNOME_LIBS = @LIBGNOME_LIBS@ LIBOBJS = @LIBOBJS@ LIBS = @LIBS@ LIBTOOL = @LIBTOOL@ LIPO = @LIPO@ LN_S = @LN_S@ LTLIBOBJS = @LTLIBOBJS@ MAKEINFO = @MAKEINFO@ MANIFEST_TOOL = @MANIFEST_TOOL@ MKDIR_P = @MKDIR_P@ NM = @NM@ NMEDIT = @NMEDIT@ OBJDUMP = @OBJDUMP@ OBJEXT = @OBJEXT@ ORBIT_IDL = @ORBIT_IDL@ OTOOL = @OTOOL@ OTOOL64 = @OTOOL64@ PACKAGE = @PACKAGE@ PACKAGE_BUGREPORT = @PACKAGE_BUGREPORT@ PACKAGE_NAME = @PACKAGE_NAME@ PACKAGE_STRING = @PACKAGE_STRING@ PACKAGE_TARNAME = @PACKAGE_TARNAME@ PACKAGE_URL = @PACKAGE_URL@ PACKAGE_VERSION = @PACKAGE_VERSION@ PANGOCAIRO_CFLAGS = @PANGOCAIRO_CFLAGS@ PANGOCAIRO_LIBS = @PANGOCAIRO_LIBS@ PANGO_CFLAGS = @PANGO_CFLAGS@ PANGO_LIBS = @PANGO_LIBS@ PATH_SEPARATOR = @PATH_SEPARATOR@ PKG_CONFIG = @PKG_CONFIG@ PKG_CONFIG_LIBDIR = @PKG_CONFIG_LIBDIR@ PKG_CONFIG_PATH = @PKG_CONFIG_PATH@ RANLIB = @RANLIB@ SED = @SED@ SET_MAKE = @SET_MAKE@ SHELL = @SHELL@ STRIP = @STRIP@ VERSION = @VERSION@ WARN_CFLAGS = @WARN_CFLAGS@ abs_builddir = @abs_builddir@ abs_srcdir = @abs_srcdir@ abs_top_builddir = @abs_top_builddir@ abs_top_srcdir = @abs_top_srcdir@ ac_ct_AR = @ac_ct_AR@ ac_ct_CC = @ac_ct_CC@ ac_ct_DUMPBIN = @ac_ct_DUMPBIN@ am__include = @am__include@ am__leading_dot = @am__leading_dot@ am__quote = @am__quote@ am__tar = @am__tar@ am__untar = @am__untar@ bindir = @bindir@ build = @build@ build_alias = @build_alias@ build_cpu = @build_cpu@ build_os = @build_os@ build_vendor = @build_vendor@ builddir = @builddir@ datadir = @datadir@ datarootdir = @datarootdir@ docdir = @docdir@ dvidir = @dvidir@ exec_prefix = @exec_prefix@ host = @host@ host_alias = @host_alias@ host_cpu = @host_cpu@ host_os = @host_os@ host_vendor = @host_vendor@ htmldir = @htmldir@ includedir = @includedir@ infodir = @infodir@ install_sh = @install_sh@ libdir = @libdir@ libexecdir = @libexecdir@ localedir = @localedir@ localstatedir = @localstatedir@ mandir = @mandir@ mkdir_p = @mkdir_p@ oldincludedir = @oldincludedir@ pdfdir = @pdfdir@ prefix = @prefix@ program_transform_name = @program_transform_name@ psdir = @psdir@ sbindir = @sbindir@ sharedstatedir = @sharedstatedir@ srcdir = @srcdir@ sysconfdir = @sysconfdir@ target_alias = @target_alias@ top_build_prefix = @top_build_prefix@ top_builddir = @top_builddir@ top_srcdir = @top_srcdir@ guilegnomedir = $(datadir)/guile-gnome-@API_VERSION@ guilemoduledir = $(guilegnomedir)/gnome guilegwmoduledir = $(guilegnomedir)/gnome/gw guilegnomelibdir = $(libdir)/guile-gnome-@API_VERSION@ AM_CFLAGS = -I. -I$(srcdir) $(WARN_CFLAGS) $(DEBUG_CFLAGS) # For overriding from the command line (e.g. --debug) GUILE_FLAGS = SUFFIXES = .x .doc GUILE_SNARF_CFLAGS = $(DEFS) $(AM_CFLAGS) $(GUILE_CFLAGS) $(G_WRAP_CFLAGS) PACKAGES = atk cairo corba defs gconf glib gnome-vfs gtk libglade libgnome libgnomecanvas libgnomeui pango SOURCE_GUILE_PATH = $(shell echo $(addprefix $(top_srcdir)/,$(PACKAGES)) | sed -e 's/ /:/g'):$(srcdir) BUILD_GUILE_PATH = $(if $(filter-out $(top_srcdir),$(top_builddir)),$(shell echo -n $(addprefix $(top_builddir)/,$(PACKAGES)): | sed -e 's/ /:/g'),) GUILE_LOAD_PATH := $(BUILD_GUILE_PATH)$(SOURCE_GUILE_PATH):${G_WRAP_MODULE_DIR}:${GUILE_LOAD_PATH} # Real gnu make foo packages = $(filter-out %-uninstalled,$(patsubst %.pc.in,%,$(notdir $(wildcard $(srcdir)/*.pc.in)))) pcifiles = $(patsubst %,%-@API_VERSION@.pc,$(packages)) pcufiles = $(patsubst %,%-@API_VERSION@-uninstalled.pc,$(packages)) moduledir = $(guilemoduledir)/overrides module_DATA = $(wildcard *.defs*) EXTRA_DIST = $(module_DATA) all: all-am .SUFFIXES: .SUFFIXES: .x .doc .c $(srcdir)/Makefile.in: $(srcdir)/Makefile.am $(top_srcdir)/common.mk $(am__configure_deps) @for dep in $?; do \ case '$(am__configure_deps)' in \ *$$dep*) \ ( cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh ) \ && { if test -f $@; then exit 0; else break; fi; }; \ exit 1;; \ esac; \ done; \ echo ' cd $(top_srcdir) && $(AUTOMAKE) --gnu atk/gnome/overrides/Makefile'; \ $(am__cd) $(top_srcdir) && \ $(AUTOMAKE) --gnu atk/gnome/overrides/Makefile .PRECIOUS: Makefile Makefile: $(srcdir)/Makefile.in $(top_builddir)/config.status @case '$?' in \ *config.status*) \ cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh;; \ *) \ echo ' cd $(top_builddir) && $(SHELL) ./config.status $(subdir)/$@ $(am__depfiles_maybe)'; \ cd $(top_builddir) && $(SHELL) ./config.status $(subdir)/$@ $(am__depfiles_maybe);; \ esac; $(top_srcdir)/common.mk: $(top_builddir)/config.status: $(top_srcdir)/configure $(CONFIG_STATUS_DEPENDENCIES) cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh $(top_srcdir)/configure: $(am__configure_deps) cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh $(ACLOCAL_M4): $(am__aclocal_m4_deps) cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh $(am__aclocal_m4_deps): mostlyclean-libtool: -rm -f *.lo clean-libtool: -rm -rf .libs _libs install-moduleDATA: $(module_DATA) @$(NORMAL_INSTALL) @list='$(module_DATA)'; test -n "$(moduledir)" || list=; \ if test -n "$$list"; then \ echo " $(MKDIR_P) '$(DESTDIR)$(moduledir)'"; \ $(MKDIR_P) "$(DESTDIR)$(moduledir)" || exit 1; \ fi; \ for p in $$list; do \ if test -f "$$p"; then d=; else d="$(srcdir)/"; fi; \ echo "$$d$$p"; \ done | $(am__base_list) | \ while read files; do \ echo " $(INSTALL_DATA) $$files '$(DESTDIR)$(moduledir)'"; \ $(INSTALL_DATA) $$files "$(DESTDIR)$(moduledir)" || exit $$?; \ done uninstall-moduleDATA: @$(NORMAL_UNINSTALL) @list='$(module_DATA)'; test -n "$(moduledir)" || list=; \ files=`for p in $$list; do echo $$p; done | sed -e 's|^.*/||'`; \ dir='$(DESTDIR)$(moduledir)'; $(am__uninstall_files_from_dir) tags: TAGS TAGS: ctags: CTAGS CTAGS: distdir: $(DISTFILES) @srcdirstrip=`echo "$(srcdir)" | sed 's/[].[^$$\\*]/\\\\&/g'`; \ topsrcdirstrip=`echo "$(top_srcdir)" | sed 's/[].[^$$\\*]/\\\\&/g'`; \ list='$(DISTFILES)'; \ dist_files=`for file in $$list; do echo $$file; done | \ sed -e "s|^$$srcdirstrip/||;t" \ -e "s|^$$topsrcdirstrip/|$(top_builddir)/|;t"`; \ case $$dist_files in \ */*) $(MKDIR_P) `echo "$$dist_files" | \ sed '/\//!d;s|^|$(distdir)/|;s,/[^/]*$$,,' | \ sort -u` ;; \ esac; \ for file in $$dist_files; do \ if test -f $$file || test -d $$file; then d=.; else d=$(srcdir); fi; \ if test -d $$d/$$file; then \ dir=`echo "/$$file" | sed -e 's,/[^/]*$$,,'`; \ if test -d "$(distdir)/$$file"; then \ find "$(distdir)/$$file" -type d ! -perm -700 -exec chmod u+rwx {} \;; \ fi; \ if test -d $(srcdir)/$$file && test $$d != $(srcdir); then \ cp -fpR $(srcdir)/$$file "$(distdir)$$dir" || exit 1; \ find "$(distdir)/$$file" -type d ! -perm -700 -exec chmod u+rwx {} \;; \ fi; \ cp -fpR $$d/$$file "$(distdir)$$dir" || exit 1; \ else \ test -f "$(distdir)/$$file" \ || cp -p $$d/$$file "$(distdir)/$$file" \ || exit 1; \ fi; \ done check-am: all-am check: check-am all-am: Makefile $(DATA) installdirs: for dir in "$(DESTDIR)$(moduledir)"; do \ test -z "$$dir" || $(MKDIR_P) "$$dir"; \ done install: install-am install-exec: install-exec-am install-data: install-data-am uninstall: uninstall-am install-am: all-am @$(MAKE) $(AM_MAKEFLAGS) install-exec-am install-data-am installcheck: installcheck-am install-strip: if test -z '$(STRIP)'; then \ $(MAKE) $(AM_MAKEFLAGS) INSTALL_PROGRAM="$(INSTALL_STRIP_PROGRAM)" \ install_sh_PROGRAM="$(INSTALL_STRIP_PROGRAM)" INSTALL_STRIP_FLAG=-s \ install; \ else \ $(MAKE) $(AM_MAKEFLAGS) INSTALL_PROGRAM="$(INSTALL_STRIP_PROGRAM)" \ install_sh_PROGRAM="$(INSTALL_STRIP_PROGRAM)" INSTALL_STRIP_FLAG=-s \ "INSTALL_PROGRAM_ENV=STRIPPROG='$(STRIP)'" install; \ fi mostlyclean-generic: clean-generic: distclean-generic: -test -z "$(CONFIG_CLEAN_FILES)" || rm -f $(CONFIG_CLEAN_FILES) -test . = "$(srcdir)" || test -z "$(CONFIG_CLEAN_VPATH_FILES)" || rm -f $(CONFIG_CLEAN_VPATH_FILES) maintainer-clean-generic: @echo "This command is intended for maintainers to use" @echo "it deletes files that may require special tools to rebuild." clean: clean-am clean-am: clean-generic clean-libtool mostlyclean-am distclean: distclean-am -rm -f Makefile distclean-am: clean-am distclean-generic dvi: dvi-am dvi-am: html: html-am html-am: info: info-am info-am: install-data-am: install-moduleDATA install-dvi: install-dvi-am install-dvi-am: install-exec-am: install-html: install-html-am install-html-am: install-info: install-info-am install-info-am: install-man: install-pdf: install-pdf-am install-pdf-am: install-ps: install-ps-am install-ps-am: installcheck-am: maintainer-clean: maintainer-clean-am -rm -f Makefile maintainer-clean-am: distclean-am maintainer-clean-generic mostlyclean: mostlyclean-am mostlyclean-am: mostlyclean-generic mostlyclean-libtool pdf: pdf-am pdf-am: ps: ps-am ps-am: uninstall-am: uninstall-moduleDATA .MAKE: install-am install-strip .PHONY: all all-am check check-am clean clean-generic clean-libtool \ distclean distclean-generic distclean-libtool distdir dvi \ dvi-am html html-am info info-am install install-am \ install-data install-data-am install-dvi install-dvi-am \ install-exec install-exec-am install-html install-html-am \ install-info install-info-am install-man install-moduleDATA \ install-pdf install-pdf-am install-ps install-ps-am \ install-strip installcheck installcheck-am installdirs \ maintainer-clean maintainer-clean-generic mostlyclean \ mostlyclean-generic mostlyclean-libtool pdf pdf-am ps ps-am \ uninstall uninstall-am uninstall-moduleDATA export GUILE_LOAD_PATH .c.x: guile-snarf $(GUILE_SNARF_CFLAGS) $< > $@ \ || { rm $@; false; } .c.doc: $(CPP) -DSCM_MAGIC_SNARF_DOCS $(GUILE_SNARF_CFLAGS) $< \ | grep -E '(\^\^ {|\^\^ })' > $@ || { rm $@; false; } %.scm guile-gnome-gw-%.c: %-spec.scm guile $(GUILE_FLAGS) -c \ "(debug-set! stack 400000) \ (use-modules (gnome-@API_VERSION@)) \ (use-modules (g-wrap)) \ (use-modules (gnome gw $*-spec)) \ (generate-wrapset 'guile 'gnome-$* \"guile-gnome-gw-$*\")" mv guile-gnome-gw-$*.scm $*.scm %-@API_VERSION@.pc: %.pc cp $< $@ %-@API_VERSION@-uninstalled.pc: %-uninstalled.pc cp $< $@ # Tell versions [3.59,3.63) of GNU make to not export all variables. # Otherwise a system limit (for SysV at least) may be exceeded. .NOEXPORT: guile-gnome-platform-2.16.2/atk/gnome/overrides/atk.defs-type-ignores0000644000175000017500000000216311670374302026124 0ustar00wingowingo00000000000000;; -*- scheme -*- ;; guile-gnome ;; Copyright (C) 2007 Andy Wingo ;; ;; This program is free software; you can redistribute it and/or ;; modify it under the terms of the GNU General Public License as ;; published by the Free Software Foundation; either version 2 of ;; the License, or (at your option) any later version. ;; ;; This program is distributed in the hope that it will be useful, ;; but WITHOUT ANY WARRANTY; without even the implied warranty of ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the ;; GNU General Public License for more details. ;; ;; You should have received a copy of the GNU General Public License ;; along with this program; if not, contact: ;; ;; Free Software Foundation Voice: +1-617-542-5942 ;; 59 Temple Place - Suite 330 Fax: +1-617-542-2652 ;; Boston, MA 02111-1307, USA gnu@gnu.org ;;; Commentary: ;; ;;Custom wrapper definitions. ;; ;;; Code: guile-gnome-platform-2.16.2/atk/Makefile.am0000644000175000017500000000011211752516544021003 0ustar00wingowingo00000000000000SUBDIRS = gnome doc tests EXTRA_DIST = ChangeLog.pre-2.16 AUTHORS README guile-gnome-platform-2.16.2/atk/Makefile.in0000644000175000017500000004534011752516555021032 0ustar00wingowingo00000000000000# Makefile.in generated by automake 1.11.5 from Makefile.am. # @configure_input@ # Copyright (C) 1994, 1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, # 2003, 2004, 2005, 2006, 2007, 2008, 2009, 2010, 2011 Free Software # Foundation, Inc. # This Makefile.in is free software; the Free Software Foundation # gives unlimited permission to copy and/or distribute it, # with or without modifications, as long as this notice is preserved. # This program is distributed in the hope that it will be useful, # but WITHOUT ANY WARRANTY, to the extent permitted by law; without # even the implied warranty of MERCHANTABILITY or FITNESS FOR A # PARTICULAR PURPOSE. @SET_MAKE@ VPATH = @srcdir@ am__make_dryrun = \ { \ am__dry=no; \ case $$MAKEFLAGS in \ *\\[\ \ ]*) \ echo 'am--echo: ; @echo "AM" OK' | $(MAKE) -f - 2>/dev/null \ | grep '^AM OK$$' >/dev/null || am__dry=yes;; \ *) \ for am__flg in $$MAKEFLAGS; do \ case $$am__flg in \ *=*|--*) ;; \ *n*) am__dry=yes; break;; \ esac; \ done;; \ esac; \ test $$am__dry = yes; \ } pkgdatadir = $(datadir)/@PACKAGE@ pkgincludedir = $(includedir)/@PACKAGE@ pkglibdir = $(libdir)/@PACKAGE@ pkglibexecdir = $(libexecdir)/@PACKAGE@ am__cd = CDPATH="$${ZSH_VERSION+.}$(PATH_SEPARATOR)" && cd install_sh_DATA = $(install_sh) -c -m 644 install_sh_PROGRAM = $(install_sh) -c install_sh_SCRIPT = $(install_sh) -c INSTALL_HEADER = $(INSTALL_DATA) transform = $(program_transform_name) NORMAL_INSTALL = : PRE_INSTALL = : POST_INSTALL = : NORMAL_UNINSTALL = : PRE_UNINSTALL = : POST_UNINSTALL = : build_triplet = @build@ host_triplet = @host@ subdir = atk DIST_COMMON = README $(srcdir)/Makefile.am $(srcdir)/Makefile.in \ AUTHORS ChangeLog ACLOCAL_M4 = $(top_srcdir)/aclocal.m4 am__aclocal_m4_deps = $(top_srcdir)/configure.ac am__configure_deps = $(am__aclocal_m4_deps) $(CONFIGURE_DEPENDENCIES) \ $(ACLOCAL_M4) mkinstalldirs = $(install_sh) -d CONFIG_HEADER = $(top_builddir)/config.h CONFIG_CLEAN_FILES = CONFIG_CLEAN_VPATH_FILES = SOURCES = DIST_SOURCES = RECURSIVE_TARGETS = all-recursive check-recursive dvi-recursive \ html-recursive info-recursive install-data-recursive \ install-dvi-recursive install-exec-recursive \ install-html-recursive install-info-recursive \ install-pdf-recursive install-ps-recursive install-recursive \ installcheck-recursive installdirs-recursive pdf-recursive \ ps-recursive uninstall-recursive am__can_run_installinfo = \ case $$AM_UPDATE_INFO_DIR in \ n|no|NO) false;; \ *) (install-info --version) >/dev/null 2>&1;; \ esac RECURSIVE_CLEAN_TARGETS = mostlyclean-recursive clean-recursive \ distclean-recursive maintainer-clean-recursive AM_RECURSIVE_TARGETS = $(RECURSIVE_TARGETS:-recursive=) \ $(RECURSIVE_CLEAN_TARGETS:-recursive=) tags TAGS ctags CTAGS \ distdir ETAGS = etags CTAGS = ctags DIST_SUBDIRS = $(SUBDIRS) DISTFILES = $(DIST_COMMON) $(DIST_SOURCES) $(TEXINFOS) $(EXTRA_DIST) am__relativize = \ dir0=`pwd`; \ sed_first='s,^\([^/]*\)/.*$$,\1,'; \ sed_rest='s,^[^/]*/*,,'; \ sed_last='s,^.*/\([^/]*\)$$,\1,'; \ sed_butlast='s,/*[^/]*$$,,'; \ while test -n "$$dir1"; do \ first=`echo "$$dir1" | sed -e "$$sed_first"`; \ if test "$$first" != "."; then \ if test "$$first" = ".."; then \ dir2=`echo "$$dir0" | sed -e "$$sed_last"`/"$$dir2"; \ dir0=`echo "$$dir0" | sed -e "$$sed_butlast"`; \ else \ first2=`echo "$$dir2" | sed -e "$$sed_first"`; \ if test "$$first2" = "$$first"; then \ dir2=`echo "$$dir2" | sed -e "$$sed_rest"`; \ else \ dir2="../$$dir2"; \ fi; \ dir0="$$dir0"/"$$first"; \ fi; \ fi; \ dir1=`echo "$$dir1" | sed -e "$$sed_rest"`; \ done; \ reldir="$$dir2" ACLOCAL = @ACLOCAL@ AG_PKG_CONFIG_PATH = @AG_PKG_CONFIG_PATH@ AMTAR = @AMTAR@ API_VERSION = @API_VERSION@ AR = @AR@ ATK_CFLAGS = @ATK_CFLAGS@ ATK_LIBS = @ATK_LIBS@ AUTOCONF = @AUTOCONF@ AUTOHEADER = @AUTOHEADER@ AUTOMAKE = @AUTOMAKE@ AWK = @AWK@ BONOBO_IDL_DIR = @BONOBO_IDL_DIR@ CANVAS_CFLAGS = @CANVAS_CFLAGS@ CANVAS_LIBS = @CANVAS_LIBS@ CC = @CC@ CCDEPMODE = @CCDEPMODE@ CFLAGS = @CFLAGS@ CORBA_CFLAGS = @CORBA_CFLAGS@ CORBA_LIBS = @CORBA_LIBS@ CPP = @CPP@ CPPFLAGS = @CPPFLAGS@ CYGPATH_W = @CYGPATH_W@ DEFS = @DEFS@ DEPDIR = @DEPDIR@ DLLTOOL = @DLLTOOL@ DSYMUTIL = @DSYMUTIL@ DUMPBIN = @DUMPBIN@ ECHO_C = @ECHO_C@ ECHO_N = @ECHO_N@ ECHO_T = @ECHO_T@ EGREP = @EGREP@ EXEEXT = @EXEEXT@ FGREP = @FGREP@ GCONF_CFLAGS = @GCONF_CFLAGS@ GCONF_LIBS = @GCONF_LIBS@ GDK_CFLAGS = @GDK_CFLAGS@ GDK_LIBS = @GDK_LIBS@ GDK_PIXBUF_CFLAGS = @GDK_PIXBUF_CFLAGS@ GDK_PIXBUF_LIBS = @GDK_PIXBUF_LIBS@ GLIB_CFLAGS = @GLIB_CFLAGS@ GLIB_LIBS = @GLIB_LIBS@ GNOMEUI_DEPRECATION_FLAGS = @GNOMEUI_DEPRECATION_FLAGS@ GNOME_VFS_CFLAGS = @GNOME_VFS_CFLAGS@ GNOME_VFS_DEPRECATED_CFLAGS = @GNOME_VFS_DEPRECATED_CFLAGS@ GNOME_VFS_LIBS = @GNOME_VFS_LIBS@ GOBJECT_CFLAGS = @GOBJECT_CFLAGS@ GOBJECT_LIBS = @GOBJECT_LIBS@ GREP = @GREP@ GTHREAD_CFLAGS = @GTHREAD_CFLAGS@ GTHREAD_LIBS = @GTHREAD_LIBS@ GTK_CFLAGS = @GTK_CFLAGS@ GTK_DEPRECATED_CFLAGS = @GTK_DEPRECATED_CFLAGS@ GTK_LIBS = @GTK_LIBS@ GUILE_CAIRO_CFLAGS = @GUILE_CAIRO_CFLAGS@ GUILE_CAIRO_LIBS = @GUILE_CAIRO_LIBS@ GUILE_CFLAGS = @GUILE_CFLAGS@ GUILE_EFFECTIVE_VERSION = @GUILE_EFFECTIVE_VERSION@ GUILE_GLIB_CFLAGS = @GUILE_GLIB_CFLAGS@ GUILE_GLIB_LIBS = @GUILE_GLIB_LIBS@ GUILE_LIBS = @GUILE_LIBS@ G_WRAP_CFLAGS = @G_WRAP_CFLAGS@ G_WRAP_LIBS = @G_WRAP_LIBS@ G_WRAP_LIB_DIR = @G_WRAP_LIB_DIR@ G_WRAP_MODULE_DIR = @G_WRAP_MODULE_DIR@ INSTALL = @INSTALL@ INSTALL_DATA = @INSTALL_DATA@ INSTALL_PROGRAM = @INSTALL_PROGRAM@ INSTALL_SCRIPT = @INSTALL_SCRIPT@ INSTALL_STRIP_PROGRAM = @INSTALL_STRIP_PROGRAM@ LD = @LD@ LDFLAGS = @LDFLAGS@ LIBGLADE_CFLAGS = @LIBGLADE_CFLAGS@ LIBGLADE_LIBS = @LIBGLADE_LIBS@ LIBGNOMEUI_CFLAGS = @LIBGNOMEUI_CFLAGS@ LIBGNOMEUI_LIBS = @LIBGNOMEUI_LIBS@ LIBGNOME_CFLAGS = @LIBGNOME_CFLAGS@ LIBGNOME_LIBS = @LIBGNOME_LIBS@ LIBOBJS = @LIBOBJS@ LIBS = @LIBS@ LIBTOOL = @LIBTOOL@ LIPO = @LIPO@ LN_S = @LN_S@ LTLIBOBJS = @LTLIBOBJS@ MAKEINFO = @MAKEINFO@ MANIFEST_TOOL = @MANIFEST_TOOL@ MKDIR_P = @MKDIR_P@ NM = @NM@ NMEDIT = @NMEDIT@ OBJDUMP = @OBJDUMP@ OBJEXT = @OBJEXT@ ORBIT_IDL = @ORBIT_IDL@ OTOOL = @OTOOL@ OTOOL64 = @OTOOL64@ PACKAGE = @PACKAGE@ PACKAGE_BUGREPORT = @PACKAGE_BUGREPORT@ PACKAGE_NAME = @PACKAGE_NAME@ PACKAGE_STRING = @PACKAGE_STRING@ PACKAGE_TARNAME = @PACKAGE_TARNAME@ PACKAGE_URL = @PACKAGE_URL@ PACKAGE_VERSION = @PACKAGE_VERSION@ PANGOCAIRO_CFLAGS = @PANGOCAIRO_CFLAGS@ PANGOCAIRO_LIBS = @PANGOCAIRO_LIBS@ PANGO_CFLAGS = @PANGO_CFLAGS@ PANGO_LIBS = @PANGO_LIBS@ PATH_SEPARATOR = @PATH_SEPARATOR@ PKG_CONFIG = @PKG_CONFIG@ PKG_CONFIG_LIBDIR = @PKG_CONFIG_LIBDIR@ PKG_CONFIG_PATH = @PKG_CONFIG_PATH@ RANLIB = @RANLIB@ SED = @SED@ SET_MAKE = @SET_MAKE@ SHELL = @SHELL@ STRIP = @STRIP@ VERSION = @VERSION@ WARN_CFLAGS = @WARN_CFLAGS@ abs_builddir = @abs_builddir@ abs_srcdir = @abs_srcdir@ abs_top_builddir = @abs_top_builddir@ abs_top_srcdir = @abs_top_srcdir@ ac_ct_AR = @ac_ct_AR@ ac_ct_CC = @ac_ct_CC@ ac_ct_DUMPBIN = @ac_ct_DUMPBIN@ am__include = @am__include@ am__leading_dot = @am__leading_dot@ am__quote = @am__quote@ am__tar = @am__tar@ am__untar = @am__untar@ bindir = @bindir@ build = @build@ build_alias = @build_alias@ build_cpu = @build_cpu@ build_os = @build_os@ build_vendor = @build_vendor@ builddir = @builddir@ datadir = @datadir@ datarootdir = @datarootdir@ docdir = @docdir@ dvidir = @dvidir@ exec_prefix = @exec_prefix@ host = @host@ host_alias = @host_alias@ host_cpu = @host_cpu@ host_os = @host_os@ host_vendor = @host_vendor@ htmldir = @htmldir@ includedir = @includedir@ infodir = @infodir@ install_sh = @install_sh@ libdir = @libdir@ libexecdir = @libexecdir@ localedir = @localedir@ localstatedir = @localstatedir@ mandir = @mandir@ mkdir_p = @mkdir_p@ oldincludedir = @oldincludedir@ pdfdir = @pdfdir@ prefix = @prefix@ program_transform_name = @program_transform_name@ psdir = @psdir@ sbindir = @sbindir@ sharedstatedir = @sharedstatedir@ srcdir = @srcdir@ sysconfdir = @sysconfdir@ target_alias = @target_alias@ top_build_prefix = @top_build_prefix@ top_builddir = @top_builddir@ top_srcdir = @top_srcdir@ SUBDIRS = gnome doc tests EXTRA_DIST = ChangeLog.pre-2.16 AUTHORS README all: all-recursive .SUFFIXES: $(srcdir)/Makefile.in: $(srcdir)/Makefile.am $(am__configure_deps) @for dep in $?; do \ case '$(am__configure_deps)' in \ *$$dep*) \ ( cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh ) \ && { if test -f $@; then exit 0; else break; fi; }; \ exit 1;; \ esac; \ done; \ echo ' cd $(top_srcdir) && $(AUTOMAKE) --gnu atk/Makefile'; \ $(am__cd) $(top_srcdir) && \ $(AUTOMAKE) --gnu atk/Makefile .PRECIOUS: Makefile Makefile: $(srcdir)/Makefile.in $(top_builddir)/config.status @case '$?' in \ *config.status*) \ cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh;; \ *) \ echo ' cd $(top_builddir) && $(SHELL) ./config.status $(subdir)/$@ $(am__depfiles_maybe)'; \ cd $(top_builddir) && $(SHELL) ./config.status $(subdir)/$@ $(am__depfiles_maybe);; \ esac; $(top_builddir)/config.status: $(top_srcdir)/configure $(CONFIG_STATUS_DEPENDENCIES) cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh $(top_srcdir)/configure: $(am__configure_deps) cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh $(ACLOCAL_M4): $(am__aclocal_m4_deps) cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh $(am__aclocal_m4_deps): mostlyclean-libtool: -rm -f *.lo clean-libtool: -rm -rf .libs _libs # This directory's subdirectories are mostly independent; you can cd # into them and run `make' without going through this Makefile. # To change the values of `make' variables: instead of editing Makefiles, # (1) if the variable is set in `config.status', edit `config.status' # (which will cause the Makefiles to be regenerated when you run `make'); # (2) otherwise, pass the desired values on the `make' command line. $(RECURSIVE_TARGETS): @fail= failcom='exit 1'; \ for f in x $$MAKEFLAGS; do \ case $$f in \ *=* | --[!k]*);; \ *k*) failcom='fail=yes';; \ esac; \ done; \ dot_seen=no; \ target=`echo $@ | sed s/-recursive//`; \ list='$(SUBDIRS)'; for subdir in $$list; do \ echo "Making $$target in $$subdir"; \ if test "$$subdir" = "."; then \ dot_seen=yes; \ local_target="$$target-am"; \ else \ local_target="$$target"; \ fi; \ ($(am__cd) $$subdir && $(MAKE) $(AM_MAKEFLAGS) $$local_target) \ || eval $$failcom; \ done; \ if test "$$dot_seen" = "no"; then \ $(MAKE) $(AM_MAKEFLAGS) "$$target-am" || exit 1; \ fi; test -z "$$fail" $(RECURSIVE_CLEAN_TARGETS): @fail= failcom='exit 1'; \ for f in x $$MAKEFLAGS; do \ case $$f in \ *=* | --[!k]*);; \ *k*) failcom='fail=yes';; \ esac; \ done; \ dot_seen=no; \ case "$@" in \ distclean-* | maintainer-clean-*) list='$(DIST_SUBDIRS)' ;; \ *) list='$(SUBDIRS)' ;; \ esac; \ rev=''; for subdir in $$list; do \ if test "$$subdir" = "."; then :; else \ rev="$$subdir $$rev"; \ fi; \ done; \ rev="$$rev ."; \ target=`echo $@ | sed s/-recursive//`; \ for subdir in $$rev; do \ echo "Making $$target in $$subdir"; \ if test "$$subdir" = "."; then \ local_target="$$target-am"; \ else \ local_target="$$target"; \ fi; \ ($(am__cd) $$subdir && $(MAKE) $(AM_MAKEFLAGS) $$local_target) \ || eval $$failcom; \ done && test -z "$$fail" tags-recursive: list='$(SUBDIRS)'; for subdir in $$list; do \ test "$$subdir" = . || ($(am__cd) $$subdir && $(MAKE) $(AM_MAKEFLAGS) tags); \ done ctags-recursive: list='$(SUBDIRS)'; for subdir in $$list; do \ test "$$subdir" = . || ($(am__cd) $$subdir && $(MAKE) $(AM_MAKEFLAGS) ctags); \ done ID: $(HEADERS) $(SOURCES) $(LISP) $(TAGS_FILES) list='$(SOURCES) $(HEADERS) $(LISP) $(TAGS_FILES)'; \ unique=`for i in $$list; do \ if test -f "$$i"; then echo $$i; else echo $(srcdir)/$$i; fi; \ done | \ $(AWK) '{ files[$$0] = 1; nonempty = 1; } \ END { if (nonempty) { for (i in files) print i; }; }'`; \ mkid -fID $$unique tags: TAGS TAGS: tags-recursive $(HEADERS) $(SOURCES) $(TAGS_DEPENDENCIES) \ $(TAGS_FILES) $(LISP) set x; \ here=`pwd`; \ if ($(ETAGS) --etags-include --version) >/dev/null 2>&1; then \ include_option=--etags-include; \ empty_fix=.; \ else \ include_option=--include; \ empty_fix=; \ fi; \ list='$(SUBDIRS)'; for subdir in $$list; do \ if test "$$subdir" = .; then :; else \ test ! -f $$subdir/TAGS || \ set "$$@" "$$include_option=$$here/$$subdir/TAGS"; \ fi; \ done; \ list='$(SOURCES) $(HEADERS) $(LISP) $(TAGS_FILES)'; \ unique=`for i in $$list; do \ if test -f "$$i"; then echo $$i; else echo $(srcdir)/$$i; fi; \ done | \ $(AWK) '{ files[$$0] = 1; nonempty = 1; } \ END { if (nonempty) { for (i in files) print i; }; }'`; \ shift; \ if test -z "$(ETAGS_ARGS)$$*$$unique"; then :; else \ test -n "$$unique" || unique=$$empty_fix; \ if test $$# -gt 0; then \ $(ETAGS) $(ETAGSFLAGS) $(AM_ETAGSFLAGS) $(ETAGS_ARGS) \ "$$@" $$unique; \ else \ $(ETAGS) $(ETAGSFLAGS) $(AM_ETAGSFLAGS) $(ETAGS_ARGS) \ $$unique; \ fi; \ fi ctags: CTAGS CTAGS: ctags-recursive $(HEADERS) $(SOURCES) $(TAGS_DEPENDENCIES) \ $(TAGS_FILES) $(LISP) list='$(SOURCES) $(HEADERS) $(LISP) $(TAGS_FILES)'; \ unique=`for i in $$list; do \ if test -f "$$i"; then echo $$i; else echo $(srcdir)/$$i; fi; \ done | \ $(AWK) '{ files[$$0] = 1; nonempty = 1; } \ END { if (nonempty) { for (i in files) print i; }; }'`; \ test -z "$(CTAGS_ARGS)$$unique" \ || $(CTAGS) $(CTAGSFLAGS) $(AM_CTAGSFLAGS) $(CTAGS_ARGS) \ $$unique GTAGS: here=`$(am__cd) $(top_builddir) && pwd` \ && $(am__cd) $(top_srcdir) \ && gtags -i $(GTAGS_ARGS) "$$here" distclean-tags: -rm -f TAGS ID GTAGS GRTAGS GSYMS GPATH tags distdir: $(DISTFILES) @srcdirstrip=`echo "$(srcdir)" | sed 's/[].[^$$\\*]/\\\\&/g'`; \ topsrcdirstrip=`echo "$(top_srcdir)" | sed 's/[].[^$$\\*]/\\\\&/g'`; \ list='$(DISTFILES)'; \ dist_files=`for file in $$list; do echo $$file; done | \ sed -e "s|^$$srcdirstrip/||;t" \ -e "s|^$$topsrcdirstrip/|$(top_builddir)/|;t"`; \ case $$dist_files in \ */*) $(MKDIR_P) `echo "$$dist_files" | \ sed '/\//!d;s|^|$(distdir)/|;s,/[^/]*$$,,' | \ sort -u` ;; \ esac; \ for file in $$dist_files; do \ if test -f $$file || test -d $$file; then d=.; else d=$(srcdir); fi; \ if test -d $$d/$$file; then \ dir=`echo "/$$file" | sed -e 's,/[^/]*$$,,'`; \ if test -d "$(distdir)/$$file"; then \ find "$(distdir)/$$file" -type d ! -perm -700 -exec chmod u+rwx {} \;; \ fi; \ if test -d $(srcdir)/$$file && test $$d != $(srcdir); then \ cp -fpR $(srcdir)/$$file "$(distdir)$$dir" || exit 1; \ find "$(distdir)/$$file" -type d ! -perm -700 -exec chmod u+rwx {} \;; \ fi; \ cp -fpR $$d/$$file "$(distdir)$$dir" || exit 1; \ else \ test -f "$(distdir)/$$file" \ || cp -p $$d/$$file "$(distdir)/$$file" \ || exit 1; \ fi; \ done @list='$(DIST_SUBDIRS)'; for subdir in $$list; do \ if test "$$subdir" = .; then :; else \ $(am__make_dryrun) \ || test -d "$(distdir)/$$subdir" \ || $(MKDIR_P) "$(distdir)/$$subdir" \ || exit 1; \ dir1=$$subdir; dir2="$(distdir)/$$subdir"; \ $(am__relativize); \ new_distdir=$$reldir; \ dir1=$$subdir; dir2="$(top_distdir)"; \ $(am__relativize); \ new_top_distdir=$$reldir; \ echo " (cd $$subdir && $(MAKE) $(AM_MAKEFLAGS) top_distdir="$$new_top_distdir" distdir="$$new_distdir" \\"; \ echo " am__remove_distdir=: am__skip_length_check=: am__skip_mode_fix=: distdir)"; \ ($(am__cd) $$subdir && \ $(MAKE) $(AM_MAKEFLAGS) \ top_distdir="$$new_top_distdir" \ distdir="$$new_distdir" \ am__remove_distdir=: \ am__skip_length_check=: \ am__skip_mode_fix=: \ distdir) \ || exit 1; \ fi; \ done check-am: all-am check: check-recursive all-am: Makefile installdirs: installdirs-recursive installdirs-am: install: install-recursive install-exec: install-exec-recursive install-data: install-data-recursive uninstall: uninstall-recursive install-am: all-am @$(MAKE) $(AM_MAKEFLAGS) install-exec-am install-data-am installcheck: installcheck-recursive install-strip: if test -z '$(STRIP)'; then \ $(MAKE) $(AM_MAKEFLAGS) INSTALL_PROGRAM="$(INSTALL_STRIP_PROGRAM)" \ install_sh_PROGRAM="$(INSTALL_STRIP_PROGRAM)" INSTALL_STRIP_FLAG=-s \ install; \ else \ $(MAKE) $(AM_MAKEFLAGS) INSTALL_PROGRAM="$(INSTALL_STRIP_PROGRAM)" \ install_sh_PROGRAM="$(INSTALL_STRIP_PROGRAM)" INSTALL_STRIP_FLAG=-s \ "INSTALL_PROGRAM_ENV=STRIPPROG='$(STRIP)'" install; \ fi mostlyclean-generic: clean-generic: distclean-generic: -test -z "$(CONFIG_CLEAN_FILES)" || rm -f $(CONFIG_CLEAN_FILES) -test . = "$(srcdir)" || test -z "$(CONFIG_CLEAN_VPATH_FILES)" || rm -f $(CONFIG_CLEAN_VPATH_FILES) maintainer-clean-generic: @echo "This command is intended for maintainers to use" @echo "it deletes files that may require special tools to rebuild." clean: clean-recursive clean-am: clean-generic clean-libtool mostlyclean-am distclean: distclean-recursive -rm -f Makefile distclean-am: clean-am distclean-generic distclean-tags dvi: dvi-recursive dvi-am: html: html-recursive html-am: info: info-recursive info-am: install-data-am: install-dvi: install-dvi-recursive install-dvi-am: install-exec-am: install-html: install-html-recursive install-html-am: install-info: install-info-recursive install-info-am: install-man: install-pdf: install-pdf-recursive install-pdf-am: install-ps: install-ps-recursive install-ps-am: installcheck-am: maintainer-clean: maintainer-clean-recursive -rm -f Makefile maintainer-clean-am: distclean-am maintainer-clean-generic mostlyclean: mostlyclean-recursive mostlyclean-am: mostlyclean-generic mostlyclean-libtool pdf: pdf-recursive pdf-am: ps: ps-recursive ps-am: uninstall-am: .MAKE: $(RECURSIVE_CLEAN_TARGETS) $(RECURSIVE_TARGETS) ctags-recursive \ install-am install-strip tags-recursive .PHONY: $(RECURSIVE_CLEAN_TARGETS) $(RECURSIVE_TARGETS) CTAGS GTAGS \ all all-am check check-am clean clean-generic clean-libtool \ ctags ctags-recursive distclean distclean-generic \ distclean-libtool distclean-tags distdir dvi dvi-am html \ html-am info info-am install install-am install-data \ install-data-am install-dvi install-dvi-am install-exec \ install-exec-am install-html install-html-am install-info \ install-info-am install-man install-pdf install-pdf-am \ install-ps install-ps-am install-strip installcheck \ installcheck-am installdirs installdirs-am maintainer-clean \ maintainer-clean-generic mostlyclean mostlyclean-generic \ mostlyclean-libtool pdf pdf-am ps ps-am tags tags-recursive \ uninstall uninstall-am # Tell versions [3.59,3.63) of GNU make to not export all variables. # Otherwise a system limit (for SysV at least) may be exceeded. .NOEXPORT: guile-gnome-platform-2.16.2/atk/README0000644000175000017500000000155111670374302017630 0ustar00wingowingo00000000000000guile-gnome-atk README Copyright (C) 2004 Free Software Foundation, Inc. See the end for copying conditions of this file. Last updated 16 September 2004. About guile-gnome-atk ===================== guile-gnome-atk is a Guile wrapper for ATK, the Accessibility Toolkit. It is a part of GNU guile-gnome. See the README file in the toplevel source directory for more information. Build dependencies ================== Besides the base guile-gnome requirements given in ../README, guile-gnome-atk requires ATK development packages. guile-gnome-atk depends on the following guile-gnome modules: glib, defs. Copying this file ================= Copyright (C) 2004 Free Software Foundation, Inc. Copying and distribution of this file, with or without modification, are permitted in any medium without royalty provided the copyright notice and this notice are preserved. guile-gnome-platform-2.16.2/atk/AUTHORS0000644000175000017500000000040011670374302020010 0ustar00wingowingo00000000000000To find out what should go in this file, see "Information For Maintainers of GNU Software" (maintain.texi), the section called "Recording Changes". Andy Wingo: In the directory gnome/gw, wrote: atk-spec.scm In the directory gnome, wrote: atk.scm guile-gnome-platform-2.16.2/atk/ChangeLog.pre-2.160000644000175000017500000001176611670374302021704 0ustar00wingowingo000000000000002008-05-01 Andy Wingo * doc/overview.texi (Overview): Add some perspective. 2008-04-27 Andy Wingo * gnome/gw/Makefile.am (guilegwmodule_DATA): Clean some cruft. 2008-04-25 Andy Wingo * == Released guile-gnome-platform version 2.15.98 == 2008-04-25 Andy Wingo * doc/*.texi: Update docs. 2008-04-10 Andy Wingo * == Released guile-gnome-platform version 2.15.97 == 2008-04-10 Andy Wingo * NEWS: Update NEWS. 2007-12-10 Andy Wingo * == Released guile-gnome-platform version 2.15.96 == 2007-12-06 Andy Wingo * doc/guile-gnome-atk.texi (Top): * doc/undocumented.texi: Add section for undocumented exports. * doc/defuns-*.texi: Regenerated. 2007-11-25 Andy Wingo * doc/guile-gnome-atk.texi (Top): Update to have type and function indexes. * doc/defuns-atkstreamablecontent.xml.texi: Regenerated for name change. * doc/defuns-atkhyperlink.xml.texi: Regenerated, dunno why the docs show a parameter reorder. 2007-11-24 Andy Wingo * tests/wrapset.api: API changes. and friends really are there, it's just that apicheck doesn't catch some of the latent types. That should probably be fixed. * gnome/overrides/atk.defs: Define a bunch of interfaces. Ignore some functions that we were not wrapping properly. * doc/defuns-*.xml.texi: Regenerated. * gnome/overrides/atk.defs-type-ignores: Add empty file. 2007-11-10 Andy Wingo * == Released guile-gnome-platform version 2.15.95 == 2007-11-10 Andy Wingo * tests/Makefile.am: * tests/wrapset.api: * tests/wrapset.scm: Add API regression test suite. 2007-09-25 Andy Wingo * == Released guile-gnome-platform version 2.15.94 == 2007-09-25 Andy Wingo * NEWS: Updated. 2007-09-07 Andy Wingo * doc/Makefile.am: * doc/guile-gnome-atk.texi: * doc/overview.texi: * doc/overrides.texi: * doc/section-*.texi: * doc/defuns-*.texi: Add infrastructure for documentation. 2007-06-15 Andy Wingo * == Released guile-gnome-platform version 2.15.93 == * gnome/Makefile.am (guilemodule_DATA): Fix the conditional to be HAVE_ATK, and recurse into overrides. 2007-05-24 Andy Wingo * == Released guile-gnome-platform version 2.15.92 == 2007-05-13 Andy Wingo * gnome/gw/atk-spec.scm (initialize): Make it explicit that AtkState is a uint64. * package.ac: Add explicit check for atk >= 1.12; while this module technically works with any version, depending on the defs files, this is the version that the platform defs package has now. 2007-05-10 Andy Wingo * == Released guile-gnome-platform version 2.15.91 == 2007-05-10 Andy Wingo * gnome/Makefile.am (DIST_SUBDIRS): Add overrides to dist. 2007-05-05 Andy Wingo * gnome/gw/atk-spec.scm (initialize): * gnome/overrides/Makefile.am: * gnome/overrides/atk.defs: Add overrides for ATK, ignoring some functions. 2006-12-15 Andy Wingo * == Released guile-gnome-platform version 2.15.90 == 2006-11-05 Andy Wingo * gnome/gw/atk-spec.scm: Use (gnome gw support g-wrap), the g-wrap compatibility wrapper. 2005-03-06 Andy Wingo * == Released guile-gnome-platform version 2.7.99 == 2005-01-11 Andy Wingo * == Released platform version 2.7.98 == 2004-12-06 Andy Wingo * == Released platform version 2.7.97 == 2004-11-15 Andy Wingo * package.ac: Add record_check. 2004-10-28 Andy Wingo * glib-checks.ac: * defs-checks.ac: Versioned pkg-config check. 2004-10-26 Andy Wingo * gnome/gw/Makefile.am (guilegnomelib_LTLIBRARIES): Install to versioned directory. 2004-09-19 Andy Wingo * gnome/gw/Makefile.am (libgw_guile_gnome_atk_la_LIBADD): Not G_WRAP_LINK_ARGS, it's G_WRAP_LIBS. 2004-09-16 Andy Wingo * Makefile.am (SUBDIRS): Dist fixes. * AUTHORS: Added. * NEWS: Added. * README: Added. * gnome/Makefile.am: Dist atk.scm. * gnome/atk.scm: Added. 2004-09-05 Andy Wingo * gnome/gw/Makefile.am: Don't dist the C file. * gnome/gw/atk-spec.scm: Fixes for module name changes. * defs-checks.ac: Added. * glib-checks.ac: Fixed. 2004-06-13 Andreas Rottmann * gnome/gw/atk-spec.scm: Use #:dependencies instead of depends-on!. * ChangeLog: All changelogs have been merged, and the entries that don't deal with the ATK wrapper have been elided. Directories were corrected. 2003-11-25 Andreas Rottmann * gnome/gtk/gw-atk-spec.scm: Use gw-standard instead of guile-gnome-gw-standard. 2003-05-03 Andy Wingo * *: Completely rewritten, see the release notes (0.5.0) for details. guile-gnome-platform-2.16.2/atk/ChangeLog0000644000175000017500000000006711670374302020523 0ustar00wingowingo00000000000000See the revision control log for changes since 2.16.0. guile-gnome-platform-2.16.2/gconf/0000755000175000017500000000000011752546506017273 5ustar00wingowingo00000000000000guile-gnome-platform-2.16.2/gconf/examples/0000755000175000017500000000000011752546506021111 5ustar00wingowingo00000000000000guile-gnome-platform-2.16.2/gconf/examples/Makefile.am0000644000175000017500000000002011670374302023125 0ustar00wingowingo00000000000000SUBDIRS = gconf guile-gnome-platform-2.16.2/gconf/examples/Makefile.in0000644000175000017500000004525411752511066023161 0ustar00wingowingo00000000000000# Makefile.in generated by automake 1.11.5 from Makefile.am. # @configure_input@ # Copyright (C) 1994, 1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, # 2003, 2004, 2005, 2006, 2007, 2008, 2009, 2010, 2011 Free Software # Foundation, Inc. # This Makefile.in is free software; the Free Software Foundation # gives unlimited permission to copy and/or distribute it, # with or without modifications, as long as this notice is preserved. # This program is distributed in the hope that it will be useful, # but WITHOUT ANY WARRANTY, to the extent permitted by law; without # even the implied warranty of MERCHANTABILITY or FITNESS FOR A # PARTICULAR PURPOSE. @SET_MAKE@ VPATH = @srcdir@ am__make_dryrun = \ { \ am__dry=no; \ case $$MAKEFLAGS in \ *\\[\ \ ]*) \ echo 'am--echo: ; @echo "AM" OK' | $(MAKE) -f - 2>/dev/null \ | grep '^AM OK$$' >/dev/null || am__dry=yes;; \ *) \ for am__flg in $$MAKEFLAGS; do \ case $$am__flg in \ *=*|--*) ;; \ *n*) am__dry=yes; break;; \ esac; \ done;; \ esac; \ test $$am__dry = yes; \ } pkgdatadir = $(datadir)/@PACKAGE@ pkgincludedir = $(includedir)/@PACKAGE@ pkglibdir = $(libdir)/@PACKAGE@ pkglibexecdir = $(libexecdir)/@PACKAGE@ am__cd = CDPATH="$${ZSH_VERSION+.}$(PATH_SEPARATOR)" && cd install_sh_DATA = $(install_sh) -c -m 644 install_sh_PROGRAM = $(install_sh) -c install_sh_SCRIPT = $(install_sh) -c INSTALL_HEADER = $(INSTALL_DATA) transform = $(program_transform_name) NORMAL_INSTALL = : PRE_INSTALL = : POST_INSTALL = : NORMAL_UNINSTALL = : PRE_UNINSTALL = : POST_UNINSTALL = : build_triplet = @build@ host_triplet = @host@ subdir = gconf/examples DIST_COMMON = $(srcdir)/Makefile.am $(srcdir)/Makefile.in ACLOCAL_M4 = $(top_srcdir)/aclocal.m4 am__aclocal_m4_deps = $(top_srcdir)/configure.ac am__configure_deps = $(am__aclocal_m4_deps) $(CONFIGURE_DEPENDENCIES) \ $(ACLOCAL_M4) mkinstalldirs = $(install_sh) -d CONFIG_HEADER = $(top_builddir)/config.h CONFIG_CLEAN_FILES = CONFIG_CLEAN_VPATH_FILES = SOURCES = DIST_SOURCES = RECURSIVE_TARGETS = all-recursive check-recursive dvi-recursive \ html-recursive info-recursive install-data-recursive \ install-dvi-recursive install-exec-recursive \ install-html-recursive install-info-recursive \ install-pdf-recursive install-ps-recursive install-recursive \ installcheck-recursive installdirs-recursive pdf-recursive \ ps-recursive uninstall-recursive am__can_run_installinfo = \ case $$AM_UPDATE_INFO_DIR in \ n|no|NO) false;; \ *) (install-info --version) >/dev/null 2>&1;; \ esac RECURSIVE_CLEAN_TARGETS = mostlyclean-recursive clean-recursive \ distclean-recursive maintainer-clean-recursive AM_RECURSIVE_TARGETS = $(RECURSIVE_TARGETS:-recursive=) \ $(RECURSIVE_CLEAN_TARGETS:-recursive=) tags TAGS ctags CTAGS \ distdir ETAGS = etags CTAGS = ctags DIST_SUBDIRS = $(SUBDIRS) DISTFILES = $(DIST_COMMON) $(DIST_SOURCES) $(TEXINFOS) $(EXTRA_DIST) am__relativize = \ dir0=`pwd`; \ sed_first='s,^\([^/]*\)/.*$$,\1,'; \ sed_rest='s,^[^/]*/*,,'; \ sed_last='s,^.*/\([^/]*\)$$,\1,'; \ sed_butlast='s,/*[^/]*$$,,'; \ while test -n "$$dir1"; do \ first=`echo "$$dir1" | sed -e "$$sed_first"`; \ if test "$$first" != "."; then \ if test "$$first" = ".."; then \ dir2=`echo "$$dir0" | sed -e "$$sed_last"`/"$$dir2"; \ dir0=`echo "$$dir0" | sed -e "$$sed_butlast"`; \ else \ first2=`echo "$$dir2" | sed -e "$$sed_first"`; \ if test "$$first2" = "$$first"; then \ dir2=`echo "$$dir2" | sed -e "$$sed_rest"`; \ else \ dir2="../$$dir2"; \ fi; \ dir0="$$dir0"/"$$first"; \ fi; \ fi; \ dir1=`echo "$$dir1" | sed -e "$$sed_rest"`; \ done; \ reldir="$$dir2" ACLOCAL = @ACLOCAL@ AG_PKG_CONFIG_PATH = @AG_PKG_CONFIG_PATH@ AMTAR = @AMTAR@ API_VERSION = @API_VERSION@ AR = @AR@ ATK_CFLAGS = @ATK_CFLAGS@ ATK_LIBS = @ATK_LIBS@ AUTOCONF = @AUTOCONF@ AUTOHEADER = @AUTOHEADER@ AUTOMAKE = @AUTOMAKE@ AWK = @AWK@ BONOBO_IDL_DIR = @BONOBO_IDL_DIR@ CANVAS_CFLAGS = @CANVAS_CFLAGS@ CANVAS_LIBS = @CANVAS_LIBS@ CC = @CC@ CCDEPMODE = @CCDEPMODE@ CFLAGS = @CFLAGS@ CORBA_CFLAGS = @CORBA_CFLAGS@ CORBA_LIBS = @CORBA_LIBS@ CPP = @CPP@ CPPFLAGS = @CPPFLAGS@ CYGPATH_W = @CYGPATH_W@ DEFS = @DEFS@ DEPDIR = @DEPDIR@ DLLTOOL = @DLLTOOL@ DSYMUTIL = @DSYMUTIL@ DUMPBIN = @DUMPBIN@ ECHO_C = @ECHO_C@ ECHO_N = @ECHO_N@ ECHO_T = @ECHO_T@ EGREP = @EGREP@ EXEEXT = @EXEEXT@ FGREP = @FGREP@ GCONF_CFLAGS = @GCONF_CFLAGS@ GCONF_LIBS = @GCONF_LIBS@ GDK_CFLAGS = @GDK_CFLAGS@ GDK_LIBS = @GDK_LIBS@ GDK_PIXBUF_CFLAGS = @GDK_PIXBUF_CFLAGS@ GDK_PIXBUF_LIBS = @GDK_PIXBUF_LIBS@ GLIB_CFLAGS = @GLIB_CFLAGS@ GLIB_LIBS = @GLIB_LIBS@ GNOMEUI_DEPRECATION_FLAGS = @GNOMEUI_DEPRECATION_FLAGS@ GNOME_VFS_CFLAGS = @GNOME_VFS_CFLAGS@ GNOME_VFS_DEPRECATED_CFLAGS = @GNOME_VFS_DEPRECATED_CFLAGS@ GNOME_VFS_LIBS = @GNOME_VFS_LIBS@ GOBJECT_CFLAGS = @GOBJECT_CFLAGS@ GOBJECT_LIBS = @GOBJECT_LIBS@ GREP = @GREP@ GTHREAD_CFLAGS = @GTHREAD_CFLAGS@ GTHREAD_LIBS = @GTHREAD_LIBS@ GTK_CFLAGS = @GTK_CFLAGS@ GTK_DEPRECATED_CFLAGS = @GTK_DEPRECATED_CFLAGS@ GTK_LIBS = @GTK_LIBS@ GUILE_CAIRO_CFLAGS = @GUILE_CAIRO_CFLAGS@ GUILE_CAIRO_LIBS = @GUILE_CAIRO_LIBS@ GUILE_CFLAGS = @GUILE_CFLAGS@ GUILE_EFFECTIVE_VERSION = @GUILE_EFFECTIVE_VERSION@ GUILE_GLIB_CFLAGS = @GUILE_GLIB_CFLAGS@ GUILE_GLIB_LIBS = @GUILE_GLIB_LIBS@ GUILE_LIBS = @GUILE_LIBS@ G_WRAP_CFLAGS = @G_WRAP_CFLAGS@ G_WRAP_LIBS = @G_WRAP_LIBS@ G_WRAP_LIB_DIR = @G_WRAP_LIB_DIR@ G_WRAP_MODULE_DIR = @G_WRAP_MODULE_DIR@ INSTALL = @INSTALL@ INSTALL_DATA = @INSTALL_DATA@ INSTALL_PROGRAM = @INSTALL_PROGRAM@ INSTALL_SCRIPT = @INSTALL_SCRIPT@ INSTALL_STRIP_PROGRAM = @INSTALL_STRIP_PROGRAM@ LD = @LD@ LDFLAGS = @LDFLAGS@ LIBGLADE_CFLAGS = @LIBGLADE_CFLAGS@ LIBGLADE_LIBS = @LIBGLADE_LIBS@ LIBGNOMEUI_CFLAGS = @LIBGNOMEUI_CFLAGS@ LIBGNOMEUI_LIBS = @LIBGNOMEUI_LIBS@ LIBGNOME_CFLAGS = @LIBGNOME_CFLAGS@ LIBGNOME_LIBS = @LIBGNOME_LIBS@ LIBOBJS = @LIBOBJS@ LIBS = @LIBS@ LIBTOOL = @LIBTOOL@ LIPO = @LIPO@ LN_S = @LN_S@ LTLIBOBJS = @LTLIBOBJS@ MAKEINFO = @MAKEINFO@ MANIFEST_TOOL = @MANIFEST_TOOL@ MKDIR_P = @MKDIR_P@ NM = @NM@ NMEDIT = @NMEDIT@ OBJDUMP = @OBJDUMP@ OBJEXT = @OBJEXT@ ORBIT_IDL = @ORBIT_IDL@ OTOOL = @OTOOL@ OTOOL64 = @OTOOL64@ PACKAGE = @PACKAGE@ PACKAGE_BUGREPORT = @PACKAGE_BUGREPORT@ PACKAGE_NAME = @PACKAGE_NAME@ PACKAGE_STRING = @PACKAGE_STRING@ PACKAGE_TARNAME = @PACKAGE_TARNAME@ PACKAGE_URL = @PACKAGE_URL@ PACKAGE_VERSION = @PACKAGE_VERSION@ PANGOCAIRO_CFLAGS = @PANGOCAIRO_CFLAGS@ PANGOCAIRO_LIBS = @PANGOCAIRO_LIBS@ PANGO_CFLAGS = @PANGO_CFLAGS@ PANGO_LIBS = @PANGO_LIBS@ PATH_SEPARATOR = @PATH_SEPARATOR@ PKG_CONFIG = @PKG_CONFIG@ PKG_CONFIG_LIBDIR = @PKG_CONFIG_LIBDIR@ PKG_CONFIG_PATH = @PKG_CONFIG_PATH@ RANLIB = @RANLIB@ SED = @SED@ SET_MAKE = @SET_MAKE@ SHELL = @SHELL@ STRIP = @STRIP@ VERSION = @VERSION@ WARN_CFLAGS = @WARN_CFLAGS@ abs_builddir = @abs_builddir@ abs_srcdir = @abs_srcdir@ abs_top_builddir = @abs_top_builddir@ abs_top_srcdir = @abs_top_srcdir@ ac_ct_AR = @ac_ct_AR@ ac_ct_CC = @ac_ct_CC@ ac_ct_DUMPBIN = @ac_ct_DUMPBIN@ am__include = @am__include@ am__leading_dot = @am__leading_dot@ am__quote = @am__quote@ am__tar = @am__tar@ am__untar = @am__untar@ bindir = @bindir@ build = @build@ build_alias = @build_alias@ build_cpu = @build_cpu@ build_os = @build_os@ build_vendor = @build_vendor@ builddir = @builddir@ datadir = @datadir@ datarootdir = @datarootdir@ docdir = @docdir@ dvidir = @dvidir@ exec_prefix = @exec_prefix@ host = @host@ host_alias = @host_alias@ host_cpu = @host_cpu@ host_os = @host_os@ host_vendor = @host_vendor@ htmldir = @htmldir@ includedir = @includedir@ infodir = @infodir@ install_sh = @install_sh@ libdir = @libdir@ libexecdir = @libexecdir@ localedir = @localedir@ localstatedir = @localstatedir@ mandir = @mandir@ mkdir_p = @mkdir_p@ oldincludedir = @oldincludedir@ pdfdir = @pdfdir@ prefix = @prefix@ program_transform_name = @program_transform_name@ psdir = @psdir@ sbindir = @sbindir@ sharedstatedir = @sharedstatedir@ srcdir = @srcdir@ sysconfdir = @sysconfdir@ target_alias = @target_alias@ top_build_prefix = @top_build_prefix@ top_builddir = @top_builddir@ top_srcdir = @top_srcdir@ SUBDIRS = gconf all: all-recursive .SUFFIXES: $(srcdir)/Makefile.in: $(srcdir)/Makefile.am $(am__configure_deps) @for dep in $?; do \ case '$(am__configure_deps)' in \ *$$dep*) \ ( cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh ) \ && { if test -f $@; then exit 0; else break; fi; }; \ exit 1;; \ esac; \ done; \ echo ' cd $(top_srcdir) && $(AUTOMAKE) --gnu gconf/examples/Makefile'; \ $(am__cd) $(top_srcdir) && \ $(AUTOMAKE) --gnu gconf/examples/Makefile .PRECIOUS: Makefile Makefile: $(srcdir)/Makefile.in $(top_builddir)/config.status @case '$?' in \ *config.status*) \ cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh;; \ *) \ echo ' cd $(top_builddir) && $(SHELL) ./config.status $(subdir)/$@ $(am__depfiles_maybe)'; \ cd $(top_builddir) && $(SHELL) ./config.status $(subdir)/$@ $(am__depfiles_maybe);; \ esac; $(top_builddir)/config.status: $(top_srcdir)/configure $(CONFIG_STATUS_DEPENDENCIES) cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh $(top_srcdir)/configure: $(am__configure_deps) cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh $(ACLOCAL_M4): $(am__aclocal_m4_deps) cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh $(am__aclocal_m4_deps): mostlyclean-libtool: -rm -f *.lo clean-libtool: -rm -rf .libs _libs # This directory's subdirectories are mostly independent; you can cd # into them and run `make' without going through this Makefile. # To change the values of `make' variables: instead of editing Makefiles, # (1) if the variable is set in `config.status', edit `config.status' # (which will cause the Makefiles to be regenerated when you run `make'); # (2) otherwise, pass the desired values on the `make' command line. $(RECURSIVE_TARGETS): @fail= failcom='exit 1'; \ for f in x $$MAKEFLAGS; do \ case $$f in \ *=* | --[!k]*);; \ *k*) failcom='fail=yes';; \ esac; \ done; \ dot_seen=no; \ target=`echo $@ | sed s/-recursive//`; \ list='$(SUBDIRS)'; for subdir in $$list; do \ echo "Making $$target in $$subdir"; \ if test "$$subdir" = "."; then \ dot_seen=yes; \ local_target="$$target-am"; \ else \ local_target="$$target"; \ fi; \ ($(am__cd) $$subdir && $(MAKE) $(AM_MAKEFLAGS) $$local_target) \ || eval $$failcom; \ done; \ if test "$$dot_seen" = "no"; then \ $(MAKE) $(AM_MAKEFLAGS) "$$target-am" || exit 1; \ fi; test -z "$$fail" $(RECURSIVE_CLEAN_TARGETS): @fail= failcom='exit 1'; \ for f in x $$MAKEFLAGS; do \ case $$f in \ *=* | --[!k]*);; \ *k*) failcom='fail=yes';; \ esac; \ done; \ dot_seen=no; \ case "$@" in \ distclean-* | maintainer-clean-*) list='$(DIST_SUBDIRS)' ;; \ *) list='$(SUBDIRS)' ;; \ esac; \ rev=''; for subdir in $$list; do \ if test "$$subdir" = "."; then :; else \ rev="$$subdir $$rev"; \ fi; \ done; \ rev="$$rev ."; \ target=`echo $@ | sed s/-recursive//`; \ for subdir in $$rev; do \ echo "Making $$target in $$subdir"; \ if test "$$subdir" = "."; then \ local_target="$$target-am"; \ else \ local_target="$$target"; \ fi; \ ($(am__cd) $$subdir && $(MAKE) $(AM_MAKEFLAGS) $$local_target) \ || eval $$failcom; \ done && test -z "$$fail" tags-recursive: list='$(SUBDIRS)'; for subdir in $$list; do \ test "$$subdir" = . || ($(am__cd) $$subdir && $(MAKE) $(AM_MAKEFLAGS) tags); \ done ctags-recursive: list='$(SUBDIRS)'; for subdir in $$list; do \ test "$$subdir" = . || ($(am__cd) $$subdir && $(MAKE) $(AM_MAKEFLAGS) ctags); \ done ID: $(HEADERS) $(SOURCES) $(LISP) $(TAGS_FILES) list='$(SOURCES) $(HEADERS) $(LISP) $(TAGS_FILES)'; \ unique=`for i in $$list; do \ if test -f "$$i"; then echo $$i; else echo $(srcdir)/$$i; fi; \ done | \ $(AWK) '{ files[$$0] = 1; nonempty = 1; } \ END { if (nonempty) { for (i in files) print i; }; }'`; \ mkid -fID $$unique tags: TAGS TAGS: tags-recursive $(HEADERS) $(SOURCES) $(TAGS_DEPENDENCIES) \ $(TAGS_FILES) $(LISP) set x; \ here=`pwd`; \ if ($(ETAGS) --etags-include --version) >/dev/null 2>&1; then \ include_option=--etags-include; \ empty_fix=.; \ else \ include_option=--include; \ empty_fix=; \ fi; \ list='$(SUBDIRS)'; for subdir in $$list; do \ if test "$$subdir" = .; then :; else \ test ! -f $$subdir/TAGS || \ set "$$@" "$$include_option=$$here/$$subdir/TAGS"; \ fi; \ done; \ list='$(SOURCES) $(HEADERS) $(LISP) $(TAGS_FILES)'; \ unique=`for i in $$list; do \ if test -f "$$i"; then echo $$i; else echo $(srcdir)/$$i; fi; \ done | \ $(AWK) '{ files[$$0] = 1; nonempty = 1; } \ END { if (nonempty) { for (i in files) print i; }; }'`; \ shift; \ if test -z "$(ETAGS_ARGS)$$*$$unique"; then :; else \ test -n "$$unique" || unique=$$empty_fix; \ if test $$# -gt 0; then \ $(ETAGS) $(ETAGSFLAGS) $(AM_ETAGSFLAGS) $(ETAGS_ARGS) \ "$$@" $$unique; \ else \ $(ETAGS) $(ETAGSFLAGS) $(AM_ETAGSFLAGS) $(ETAGS_ARGS) \ $$unique; \ fi; \ fi ctags: CTAGS CTAGS: ctags-recursive $(HEADERS) $(SOURCES) $(TAGS_DEPENDENCIES) \ $(TAGS_FILES) $(LISP) list='$(SOURCES) $(HEADERS) $(LISP) $(TAGS_FILES)'; \ unique=`for i in $$list; do \ if test -f "$$i"; then echo $$i; else echo $(srcdir)/$$i; fi; \ done | \ $(AWK) '{ files[$$0] = 1; nonempty = 1; } \ END { if (nonempty) { for (i in files) print i; }; }'`; \ test -z "$(CTAGS_ARGS)$$unique" \ || $(CTAGS) $(CTAGSFLAGS) $(AM_CTAGSFLAGS) $(CTAGS_ARGS) \ $$unique GTAGS: here=`$(am__cd) $(top_builddir) && pwd` \ && $(am__cd) $(top_srcdir) \ && gtags -i $(GTAGS_ARGS) "$$here" distclean-tags: -rm -f TAGS ID GTAGS GRTAGS GSYMS GPATH tags distdir: $(DISTFILES) @srcdirstrip=`echo "$(srcdir)" | sed 's/[].[^$$\\*]/\\\\&/g'`; \ topsrcdirstrip=`echo "$(top_srcdir)" | sed 's/[].[^$$\\*]/\\\\&/g'`; \ list='$(DISTFILES)'; \ dist_files=`for file in $$list; do echo $$file; done | \ sed -e "s|^$$srcdirstrip/||;t" \ -e "s|^$$topsrcdirstrip/|$(top_builddir)/|;t"`; \ case $$dist_files in \ */*) $(MKDIR_P) `echo "$$dist_files" | \ sed '/\//!d;s|^|$(distdir)/|;s,/[^/]*$$,,' | \ sort -u` ;; \ esac; \ for file in $$dist_files; do \ if test -f $$file || test -d $$file; then d=.; else d=$(srcdir); fi; \ if test -d $$d/$$file; then \ dir=`echo "/$$file" | sed -e 's,/[^/]*$$,,'`; \ if test -d "$(distdir)/$$file"; then \ find "$(distdir)/$$file" -type d ! -perm -700 -exec chmod u+rwx {} \;; \ fi; \ if test -d $(srcdir)/$$file && test $$d != $(srcdir); then \ cp -fpR $(srcdir)/$$file "$(distdir)$$dir" || exit 1; \ find "$(distdir)/$$file" -type d ! -perm -700 -exec chmod u+rwx {} \;; \ fi; \ cp -fpR $$d/$$file "$(distdir)$$dir" || exit 1; \ else \ test -f "$(distdir)/$$file" \ || cp -p $$d/$$file "$(distdir)/$$file" \ || exit 1; \ fi; \ done @list='$(DIST_SUBDIRS)'; for subdir in $$list; do \ if test "$$subdir" = .; then :; else \ $(am__make_dryrun) \ || test -d "$(distdir)/$$subdir" \ || $(MKDIR_P) "$(distdir)/$$subdir" \ || exit 1; \ dir1=$$subdir; dir2="$(distdir)/$$subdir"; \ $(am__relativize); \ new_distdir=$$reldir; \ dir1=$$subdir; dir2="$(top_distdir)"; \ $(am__relativize); \ new_top_distdir=$$reldir; \ echo " (cd $$subdir && $(MAKE) $(AM_MAKEFLAGS) top_distdir="$$new_top_distdir" distdir="$$new_distdir" \\"; \ echo " am__remove_distdir=: am__skip_length_check=: am__skip_mode_fix=: distdir)"; \ ($(am__cd) $$subdir && \ $(MAKE) $(AM_MAKEFLAGS) \ top_distdir="$$new_top_distdir" \ distdir="$$new_distdir" \ am__remove_distdir=: \ am__skip_length_check=: \ am__skip_mode_fix=: \ distdir) \ || exit 1; \ fi; \ done check-am: all-am check: check-recursive all-am: Makefile installdirs: installdirs-recursive installdirs-am: install: install-recursive install-exec: install-exec-recursive install-data: install-data-recursive uninstall: uninstall-recursive install-am: all-am @$(MAKE) $(AM_MAKEFLAGS) install-exec-am install-data-am installcheck: installcheck-recursive install-strip: if test -z '$(STRIP)'; then \ $(MAKE) $(AM_MAKEFLAGS) INSTALL_PROGRAM="$(INSTALL_STRIP_PROGRAM)" \ install_sh_PROGRAM="$(INSTALL_STRIP_PROGRAM)" INSTALL_STRIP_FLAG=-s \ install; \ else \ $(MAKE) $(AM_MAKEFLAGS) INSTALL_PROGRAM="$(INSTALL_STRIP_PROGRAM)" \ install_sh_PROGRAM="$(INSTALL_STRIP_PROGRAM)" INSTALL_STRIP_FLAG=-s \ "INSTALL_PROGRAM_ENV=STRIPPROG='$(STRIP)'" install; \ fi mostlyclean-generic: clean-generic: distclean-generic: -test -z "$(CONFIG_CLEAN_FILES)" || rm -f $(CONFIG_CLEAN_FILES) -test . = "$(srcdir)" || test -z "$(CONFIG_CLEAN_VPATH_FILES)" || rm -f $(CONFIG_CLEAN_VPATH_FILES) maintainer-clean-generic: @echo "This command is intended for maintainers to use" @echo "it deletes files that may require special tools to rebuild." clean: clean-recursive clean-am: clean-generic clean-libtool mostlyclean-am distclean: distclean-recursive -rm -f Makefile distclean-am: clean-am distclean-generic distclean-tags dvi: dvi-recursive dvi-am: html: html-recursive html-am: info: info-recursive info-am: install-data-am: install-dvi: install-dvi-recursive install-dvi-am: install-exec-am: install-html: install-html-recursive install-html-am: install-info: install-info-recursive install-info-am: install-man: install-pdf: install-pdf-recursive install-pdf-am: install-ps: install-ps-recursive install-ps-am: installcheck-am: maintainer-clean: maintainer-clean-recursive -rm -f Makefile maintainer-clean-am: distclean-am maintainer-clean-generic mostlyclean: mostlyclean-recursive mostlyclean-am: mostlyclean-generic mostlyclean-libtool pdf: pdf-recursive pdf-am: ps: ps-recursive ps-am: uninstall-am: .MAKE: $(RECURSIVE_CLEAN_TARGETS) $(RECURSIVE_TARGETS) ctags-recursive \ install-am install-strip tags-recursive .PHONY: $(RECURSIVE_CLEAN_TARGETS) $(RECURSIVE_TARGETS) CTAGS GTAGS \ all all-am check check-am clean clean-generic clean-libtool \ ctags ctags-recursive distclean distclean-generic \ distclean-libtool distclean-tags distdir dvi dvi-am html \ html-am info info-am install install-am install-data \ install-data-am install-dvi install-dvi-am install-exec \ install-exec-am install-html install-html-am install-info \ install-info-am install-man install-pdf install-pdf-am \ install-ps install-ps-am install-strip installcheck \ installcheck-am installdirs installdirs-am maintainer-clean \ maintainer-clean-generic mostlyclean mostlyclean-generic \ mostlyclean-libtool pdf pdf-am ps ps-am tags tags-recursive \ uninstall uninstall-am # Tell versions [3.59,3.63) of GNU make to not export all variables. # Otherwise a system limit (for SysV at least) may be exceeded. .NOEXPORT: guile-gnome-platform-2.16.2/gconf/examples/gconf/0000755000175000017500000000000011752546506022205 5ustar00wingowingo00000000000000guile-gnome-platform-2.16.2/gconf/examples/gconf/Makefile.am0000644000175000017500000000015011670374302024225 0ustar00wingowingo00000000000000exampledir = $(pkgdatadir)/examples/gconf example_DATA = $(wildcard *.scm) EXTRA_DIST = $(example_DATA) guile-gnome-platform-2.16.2/gconf/examples/gconf/Makefile.in0000644000175000017500000003372511752511066024255 0ustar00wingowingo00000000000000# Makefile.in generated by automake 1.11.5 from Makefile.am. # @configure_input@ # Copyright (C) 1994, 1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, # 2003, 2004, 2005, 2006, 2007, 2008, 2009, 2010, 2011 Free Software # Foundation, Inc. # This Makefile.in is free software; the Free Software Foundation # gives unlimited permission to copy and/or distribute it, # with or without modifications, as long as this notice is preserved. # This program is distributed in the hope that it will be useful, # but WITHOUT ANY WARRANTY, to the extent permitted by law; without # even the implied warranty of MERCHANTABILITY or FITNESS FOR A # PARTICULAR PURPOSE. @SET_MAKE@ VPATH = @srcdir@ am__make_dryrun = \ { \ am__dry=no; \ case $$MAKEFLAGS in \ *\\[\ \ ]*) \ echo 'am--echo: ; @echo "AM" OK' | $(MAKE) -f - 2>/dev/null \ | grep '^AM OK$$' >/dev/null || am__dry=yes;; \ *) \ for am__flg in $$MAKEFLAGS; do \ case $$am__flg in \ *=*|--*) ;; \ *n*) am__dry=yes; break;; \ esac; \ done;; \ esac; \ test $$am__dry = yes; \ } pkgdatadir = $(datadir)/@PACKAGE@ pkgincludedir = $(includedir)/@PACKAGE@ pkglibdir = $(libdir)/@PACKAGE@ pkglibexecdir = $(libexecdir)/@PACKAGE@ am__cd = CDPATH="$${ZSH_VERSION+.}$(PATH_SEPARATOR)" && cd install_sh_DATA = $(install_sh) -c -m 644 install_sh_PROGRAM = $(install_sh) -c install_sh_SCRIPT = $(install_sh) -c INSTALL_HEADER = $(INSTALL_DATA) transform = $(program_transform_name) NORMAL_INSTALL = : PRE_INSTALL = : POST_INSTALL = : NORMAL_UNINSTALL = : PRE_UNINSTALL = : POST_UNINSTALL = : build_triplet = @build@ host_triplet = @host@ subdir = gconf/examples/gconf DIST_COMMON = $(srcdir)/Makefile.am $(srcdir)/Makefile.in ACLOCAL_M4 = $(top_srcdir)/aclocal.m4 am__aclocal_m4_deps = $(top_srcdir)/configure.ac am__configure_deps = $(am__aclocal_m4_deps) $(CONFIGURE_DEPENDENCIES) \ $(ACLOCAL_M4) mkinstalldirs = $(install_sh) -d CONFIG_HEADER = $(top_builddir)/config.h CONFIG_CLEAN_FILES = CONFIG_CLEAN_VPATH_FILES = SOURCES = DIST_SOURCES = am__can_run_installinfo = \ case $$AM_UPDATE_INFO_DIR in \ n|no|NO) false;; \ *) (install-info --version) >/dev/null 2>&1;; \ esac am__vpath_adj_setup = srcdirstrip=`echo "$(srcdir)" | sed 's|.|.|g'`; am__vpath_adj = case $$p in \ $(srcdir)/*) f=`echo "$$p" | sed "s|^$$srcdirstrip/||"`;; \ *) f=$$p;; \ esac; am__strip_dir = f=`echo $$p | sed -e 's|^.*/||'`; am__install_max = 40 am__nobase_strip_setup = \ srcdirstrip=`echo "$(srcdir)" | sed 's/[].[^$$\\*|]/\\\\&/g'` am__nobase_strip = \ for p in $$list; do echo "$$p"; done | sed -e "s|$$srcdirstrip/||" am__nobase_list = $(am__nobase_strip_setup); \ for p in $$list; do echo "$$p $$p"; done | \ sed "s| $$srcdirstrip/| |;"' / .*\//!s/ .*/ ./; s,\( .*\)/[^/]*$$,\1,' | \ $(AWK) 'BEGIN { files["."] = "" } { files[$$2] = files[$$2] " " $$1; \ if (++n[$$2] == $(am__install_max)) \ { print $$2, files[$$2]; n[$$2] = 0; files[$$2] = "" } } \ END { for (dir in files) print dir, files[dir] }' am__base_list = \ sed '$$!N;$$!N;$$!N;$$!N;$$!N;$$!N;$$!N;s/\n/ /g' | \ sed '$$!N;$$!N;$$!N;$$!N;s/\n/ /g' am__uninstall_files_from_dir = { \ test -z "$$files" \ || { test ! -d "$$dir" && test ! -f "$$dir" && test ! -r "$$dir"; } \ || { echo " ( cd '$$dir' && rm -f" $$files ")"; \ $(am__cd) "$$dir" && rm -f $$files; }; \ } am__installdirs = "$(DESTDIR)$(exampledir)" DATA = $(example_DATA) DISTFILES = $(DIST_COMMON) $(DIST_SOURCES) $(TEXINFOS) $(EXTRA_DIST) ACLOCAL = @ACLOCAL@ AG_PKG_CONFIG_PATH = @AG_PKG_CONFIG_PATH@ AMTAR = @AMTAR@ API_VERSION = @API_VERSION@ AR = @AR@ ATK_CFLAGS = @ATK_CFLAGS@ ATK_LIBS = @ATK_LIBS@ AUTOCONF = @AUTOCONF@ AUTOHEADER = @AUTOHEADER@ AUTOMAKE = @AUTOMAKE@ AWK = @AWK@ BONOBO_IDL_DIR = @BONOBO_IDL_DIR@ CANVAS_CFLAGS = @CANVAS_CFLAGS@ CANVAS_LIBS = @CANVAS_LIBS@ CC = @CC@ CCDEPMODE = @CCDEPMODE@ CFLAGS = @CFLAGS@ CORBA_CFLAGS = @CORBA_CFLAGS@ CORBA_LIBS = @CORBA_LIBS@ CPP = @CPP@ CPPFLAGS = @CPPFLAGS@ CYGPATH_W = @CYGPATH_W@ DEFS = @DEFS@ DEPDIR = @DEPDIR@ DLLTOOL = @DLLTOOL@ DSYMUTIL = @DSYMUTIL@ DUMPBIN = @DUMPBIN@ ECHO_C = @ECHO_C@ ECHO_N = @ECHO_N@ ECHO_T = @ECHO_T@ EGREP = @EGREP@ EXEEXT = @EXEEXT@ FGREP = @FGREP@ GCONF_CFLAGS = @GCONF_CFLAGS@ GCONF_LIBS = @GCONF_LIBS@ GDK_CFLAGS = @GDK_CFLAGS@ GDK_LIBS = @GDK_LIBS@ GDK_PIXBUF_CFLAGS = @GDK_PIXBUF_CFLAGS@ GDK_PIXBUF_LIBS = @GDK_PIXBUF_LIBS@ GLIB_CFLAGS = @GLIB_CFLAGS@ GLIB_LIBS = @GLIB_LIBS@ GNOMEUI_DEPRECATION_FLAGS = @GNOMEUI_DEPRECATION_FLAGS@ GNOME_VFS_CFLAGS = @GNOME_VFS_CFLAGS@ GNOME_VFS_DEPRECATED_CFLAGS = @GNOME_VFS_DEPRECATED_CFLAGS@ GNOME_VFS_LIBS = @GNOME_VFS_LIBS@ GOBJECT_CFLAGS = @GOBJECT_CFLAGS@ GOBJECT_LIBS = @GOBJECT_LIBS@ GREP = @GREP@ GTHREAD_CFLAGS = @GTHREAD_CFLAGS@ GTHREAD_LIBS = @GTHREAD_LIBS@ GTK_CFLAGS = @GTK_CFLAGS@ GTK_DEPRECATED_CFLAGS = @GTK_DEPRECATED_CFLAGS@ GTK_LIBS = @GTK_LIBS@ GUILE_CAIRO_CFLAGS = @GUILE_CAIRO_CFLAGS@ GUILE_CAIRO_LIBS = @GUILE_CAIRO_LIBS@ GUILE_CFLAGS = @GUILE_CFLAGS@ GUILE_EFFECTIVE_VERSION = @GUILE_EFFECTIVE_VERSION@ GUILE_GLIB_CFLAGS = @GUILE_GLIB_CFLAGS@ GUILE_GLIB_LIBS = @GUILE_GLIB_LIBS@ GUILE_LIBS = @GUILE_LIBS@ G_WRAP_CFLAGS = @G_WRAP_CFLAGS@ G_WRAP_LIBS = @G_WRAP_LIBS@ G_WRAP_LIB_DIR = @G_WRAP_LIB_DIR@ G_WRAP_MODULE_DIR = @G_WRAP_MODULE_DIR@ INSTALL = @INSTALL@ INSTALL_DATA = @INSTALL_DATA@ INSTALL_PROGRAM = @INSTALL_PROGRAM@ INSTALL_SCRIPT = @INSTALL_SCRIPT@ INSTALL_STRIP_PROGRAM = @INSTALL_STRIP_PROGRAM@ LD = @LD@ LDFLAGS = @LDFLAGS@ LIBGLADE_CFLAGS = @LIBGLADE_CFLAGS@ LIBGLADE_LIBS = @LIBGLADE_LIBS@ LIBGNOMEUI_CFLAGS = @LIBGNOMEUI_CFLAGS@ LIBGNOMEUI_LIBS = @LIBGNOMEUI_LIBS@ LIBGNOME_CFLAGS = @LIBGNOME_CFLAGS@ LIBGNOME_LIBS = @LIBGNOME_LIBS@ LIBOBJS = @LIBOBJS@ LIBS = @LIBS@ LIBTOOL = @LIBTOOL@ LIPO = @LIPO@ LN_S = @LN_S@ LTLIBOBJS = @LTLIBOBJS@ MAKEINFO = @MAKEINFO@ MANIFEST_TOOL = @MANIFEST_TOOL@ MKDIR_P = @MKDIR_P@ NM = @NM@ NMEDIT = @NMEDIT@ OBJDUMP = @OBJDUMP@ OBJEXT = @OBJEXT@ ORBIT_IDL = @ORBIT_IDL@ OTOOL = @OTOOL@ OTOOL64 = @OTOOL64@ PACKAGE = @PACKAGE@ PACKAGE_BUGREPORT = @PACKAGE_BUGREPORT@ PACKAGE_NAME = @PACKAGE_NAME@ PACKAGE_STRING = @PACKAGE_STRING@ PACKAGE_TARNAME = @PACKAGE_TARNAME@ PACKAGE_URL = @PACKAGE_URL@ PACKAGE_VERSION = @PACKAGE_VERSION@ PANGOCAIRO_CFLAGS = @PANGOCAIRO_CFLAGS@ PANGOCAIRO_LIBS = @PANGOCAIRO_LIBS@ PANGO_CFLAGS = @PANGO_CFLAGS@ PANGO_LIBS = @PANGO_LIBS@ PATH_SEPARATOR = @PATH_SEPARATOR@ PKG_CONFIG = @PKG_CONFIG@ PKG_CONFIG_LIBDIR = @PKG_CONFIG_LIBDIR@ PKG_CONFIG_PATH = @PKG_CONFIG_PATH@ RANLIB = @RANLIB@ SED = @SED@ SET_MAKE = @SET_MAKE@ SHELL = @SHELL@ STRIP = @STRIP@ VERSION = @VERSION@ WARN_CFLAGS = @WARN_CFLAGS@ abs_builddir = @abs_builddir@ abs_srcdir = @abs_srcdir@ abs_top_builddir = @abs_top_builddir@ abs_top_srcdir = @abs_top_srcdir@ ac_ct_AR = @ac_ct_AR@ ac_ct_CC = @ac_ct_CC@ ac_ct_DUMPBIN = @ac_ct_DUMPBIN@ am__include = @am__include@ am__leading_dot = @am__leading_dot@ am__quote = @am__quote@ am__tar = @am__tar@ am__untar = @am__untar@ bindir = @bindir@ build = @build@ build_alias = @build_alias@ build_cpu = @build_cpu@ build_os = @build_os@ build_vendor = @build_vendor@ builddir = @builddir@ datadir = @datadir@ datarootdir = @datarootdir@ docdir = @docdir@ dvidir = @dvidir@ exec_prefix = @exec_prefix@ host = @host@ host_alias = @host_alias@ host_cpu = @host_cpu@ host_os = @host_os@ host_vendor = @host_vendor@ htmldir = @htmldir@ includedir = @includedir@ infodir = @infodir@ install_sh = @install_sh@ libdir = @libdir@ libexecdir = @libexecdir@ localedir = @localedir@ localstatedir = @localstatedir@ mandir = @mandir@ mkdir_p = @mkdir_p@ oldincludedir = @oldincludedir@ pdfdir = @pdfdir@ prefix = @prefix@ program_transform_name = @program_transform_name@ psdir = @psdir@ sbindir = @sbindir@ sharedstatedir = @sharedstatedir@ srcdir = @srcdir@ sysconfdir = @sysconfdir@ target_alias = @target_alias@ top_build_prefix = @top_build_prefix@ top_builddir = @top_builddir@ top_srcdir = @top_srcdir@ exampledir = $(pkgdatadir)/examples/gconf example_DATA = $(wildcard *.scm) EXTRA_DIST = $(example_DATA) all: all-am .SUFFIXES: $(srcdir)/Makefile.in: $(srcdir)/Makefile.am $(am__configure_deps) @for dep in $?; do \ case '$(am__configure_deps)' in \ *$$dep*) \ ( cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh ) \ && { if test -f $@; then exit 0; else break; fi; }; \ exit 1;; \ esac; \ done; \ echo ' cd $(top_srcdir) && $(AUTOMAKE) --gnu gconf/examples/gconf/Makefile'; \ $(am__cd) $(top_srcdir) && \ $(AUTOMAKE) --gnu gconf/examples/gconf/Makefile .PRECIOUS: Makefile Makefile: $(srcdir)/Makefile.in $(top_builddir)/config.status @case '$?' in \ *config.status*) \ cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh;; \ *) \ echo ' cd $(top_builddir) && $(SHELL) ./config.status $(subdir)/$@ $(am__depfiles_maybe)'; \ cd $(top_builddir) && $(SHELL) ./config.status $(subdir)/$@ $(am__depfiles_maybe);; \ esac; $(top_builddir)/config.status: $(top_srcdir)/configure $(CONFIG_STATUS_DEPENDENCIES) cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh $(top_srcdir)/configure: $(am__configure_deps) cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh $(ACLOCAL_M4): $(am__aclocal_m4_deps) cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh $(am__aclocal_m4_deps): mostlyclean-libtool: -rm -f *.lo clean-libtool: -rm -rf .libs _libs install-exampleDATA: $(example_DATA) @$(NORMAL_INSTALL) @list='$(example_DATA)'; test -n "$(exampledir)" || list=; \ if test -n "$$list"; then \ echo " $(MKDIR_P) '$(DESTDIR)$(exampledir)'"; \ $(MKDIR_P) "$(DESTDIR)$(exampledir)" || exit 1; \ fi; \ for p in $$list; do \ if test -f "$$p"; then d=; else d="$(srcdir)/"; fi; \ echo "$$d$$p"; \ done | $(am__base_list) | \ while read files; do \ echo " $(INSTALL_DATA) $$files '$(DESTDIR)$(exampledir)'"; \ $(INSTALL_DATA) $$files "$(DESTDIR)$(exampledir)" || exit $$?; \ done uninstall-exampleDATA: @$(NORMAL_UNINSTALL) @list='$(example_DATA)'; test -n "$(exampledir)" || list=; \ files=`for p in $$list; do echo $$p; done | sed -e 's|^.*/||'`; \ dir='$(DESTDIR)$(exampledir)'; $(am__uninstall_files_from_dir) tags: TAGS TAGS: ctags: CTAGS CTAGS: distdir: $(DISTFILES) @srcdirstrip=`echo "$(srcdir)" | sed 's/[].[^$$\\*]/\\\\&/g'`; \ topsrcdirstrip=`echo "$(top_srcdir)" | sed 's/[].[^$$\\*]/\\\\&/g'`; \ list='$(DISTFILES)'; \ dist_files=`for file in $$list; do echo $$file; done | \ sed -e "s|^$$srcdirstrip/||;t" \ -e "s|^$$topsrcdirstrip/|$(top_builddir)/|;t"`; \ case $$dist_files in \ */*) $(MKDIR_P) `echo "$$dist_files" | \ sed '/\//!d;s|^|$(distdir)/|;s,/[^/]*$$,,' | \ sort -u` ;; \ esac; \ for file in $$dist_files; do \ if test -f $$file || test -d $$file; then d=.; else d=$(srcdir); fi; \ if test -d $$d/$$file; then \ dir=`echo "/$$file" | sed -e 's,/[^/]*$$,,'`; \ if test -d "$(distdir)/$$file"; then \ find "$(distdir)/$$file" -type d ! -perm -700 -exec chmod u+rwx {} \;; \ fi; \ if test -d $(srcdir)/$$file && test $$d != $(srcdir); then \ cp -fpR $(srcdir)/$$file "$(distdir)$$dir" || exit 1; \ find "$(distdir)/$$file" -type d ! -perm -700 -exec chmod u+rwx {} \;; \ fi; \ cp -fpR $$d/$$file "$(distdir)$$dir" || exit 1; \ else \ test -f "$(distdir)/$$file" \ || cp -p $$d/$$file "$(distdir)/$$file" \ || exit 1; \ fi; \ done check-am: all-am check: check-am all-am: Makefile $(DATA) installdirs: for dir in "$(DESTDIR)$(exampledir)"; do \ test -z "$$dir" || $(MKDIR_P) "$$dir"; \ done install: install-am install-exec: install-exec-am install-data: install-data-am uninstall: uninstall-am install-am: all-am @$(MAKE) $(AM_MAKEFLAGS) install-exec-am install-data-am installcheck: installcheck-am install-strip: if test -z '$(STRIP)'; then \ $(MAKE) $(AM_MAKEFLAGS) INSTALL_PROGRAM="$(INSTALL_STRIP_PROGRAM)" \ install_sh_PROGRAM="$(INSTALL_STRIP_PROGRAM)" INSTALL_STRIP_FLAG=-s \ install; \ else \ $(MAKE) $(AM_MAKEFLAGS) INSTALL_PROGRAM="$(INSTALL_STRIP_PROGRAM)" \ install_sh_PROGRAM="$(INSTALL_STRIP_PROGRAM)" INSTALL_STRIP_FLAG=-s \ "INSTALL_PROGRAM_ENV=STRIPPROG='$(STRIP)'" install; \ fi mostlyclean-generic: clean-generic: distclean-generic: -test -z "$(CONFIG_CLEAN_FILES)" || rm -f $(CONFIG_CLEAN_FILES) -test . = "$(srcdir)" || test -z "$(CONFIG_CLEAN_VPATH_FILES)" || rm -f $(CONFIG_CLEAN_VPATH_FILES) maintainer-clean-generic: @echo "This command is intended for maintainers to use" @echo "it deletes files that may require special tools to rebuild." clean: clean-am clean-am: clean-generic clean-libtool mostlyclean-am distclean: distclean-am -rm -f Makefile distclean-am: clean-am distclean-generic dvi: dvi-am dvi-am: html: html-am html-am: info: info-am info-am: install-data-am: install-exampleDATA install-dvi: install-dvi-am install-dvi-am: install-exec-am: install-html: install-html-am install-html-am: install-info: install-info-am install-info-am: install-man: install-pdf: install-pdf-am install-pdf-am: install-ps: install-ps-am install-ps-am: installcheck-am: maintainer-clean: maintainer-clean-am -rm -f Makefile maintainer-clean-am: distclean-am maintainer-clean-generic mostlyclean: mostlyclean-am mostlyclean-am: mostlyclean-generic mostlyclean-libtool pdf: pdf-am pdf-am: ps: ps-am ps-am: uninstall-am: uninstall-exampleDATA .MAKE: install-am install-strip .PHONY: all all-am check check-am clean clean-generic clean-libtool \ distclean distclean-generic distclean-libtool distdir dvi \ dvi-am html html-am info info-am install install-am \ install-data install-data-am install-dvi install-dvi-am \ install-exampleDATA install-exec install-exec-am install-html \ install-html-am install-info install-info-am install-man \ install-pdf install-pdf-am install-ps install-ps-am \ install-strip installcheck installcheck-am installdirs \ maintainer-clean maintainer-clean-generic mostlyclean \ mostlyclean-generic mostlyclean-libtool pdf pdf-am ps ps-am \ uninstall uninstall-am uninstall-exampleDATA # Tell versions [3.59,3.63) of GNU make to not export all variables. # Otherwise a system limit (for SysV at least) may be exceeded. .NOEXPORT: guile-gnome-platform-2.16.2/gconf/doc/0000755000175000017500000000000011752546506020040 5ustar00wingowingo00000000000000guile-gnome-platform-2.16.2/gconf/doc/section-gconf-error.xml.texi0000644000175000017500000000355711670374302025421 0ustar00wingowingo00000000000000 @c %start of fragment @node GError @chapter GError error reporting. @section Overview The @code{} object is used to report errors that occur in GConf library routines. All functions that report errors work the same way: The last argument to the function is a @code{}**, a pointer to a location where a @code{}* can be placed. This last argument may be , in which case no error will be returned. If non-, the argument should be the address of a @code{}* variable, which should be initialized to . If an error occurs, a @code{} will be allocated and placed in the return location; the caller must free the @code{} with @code{g-error-free}. If no error occurs, the return location will be left untouched. That is, the test @samp{error != NULL} should always be a reliable indicator of whether the operation failed. It's also common that the return value of a function indicates whether or not an error occurred. Typically, is returned on success. In some cases, a return value indicates failure. Either way, if the return value indicates failure and you passed a non- value for the last argument to the function, a @code{} will be returned. If the return value indicates success, then a @code{} will never be returned. These relationships are guaranteed; that is, you can reliably use the return value to decide whether a @code{} was placed in the return location. If a function does @emph{not} indicate success/failure by return value, you must check whether the @code{} is to detect errors. Here's a short error handling example: @example GError* err = NULL; if (!gconf_init(&err)) @{ fprintf(stderr, _("Failed to init GConf: %s\n"), err->message); g_error_free(err); err = NULL; @} @end example @section Usage @include defuns-gconf-error.xml.texi @c %end of fragment guile-gnome-platform-2.16.2/gconf/doc/undocumented.texi0000644000175000017500000000044711670374302023422 0ustar00wingowingo00000000000000 @c %start of fragment @node Undocumented @chapter Undocumented The following symbols, if any, have not been properly documented. @section (gnome gw gconf) @defun gconf-client-get-default-from-schema @end defun @defvar gconf-schema-set-default-value-nocopy @end defvar @c %end of fragment guile-gnome-platform-2.16.2/gconf/doc/section-gconf-changeset.xml.texi0000644000175000017500000000211511670374302026216 0ustar00wingowingo00000000000000 @c %start of fragment @node GConfChangeSet @chapter GConfChangeSet a set of configuration changes to be made. @section Overview a @code{} allows you to collect a set of changes to configuration keys (set/unset operations). You can then commit all the changes at once. This is convenient for something like a preferences dialog; you can collect all the pending changes in a @code{}, then when the user clicks "apply" send them all to the configuration database. The @code{} allows you to avoid sending every preferences setting when "apply" is clicked; you only have to send the settings the user changed. In the future, GConf may also have optimizations so that changing a group of values with @code{} is faster than calling @code{gconf-engine-set} for each value. In the future, @code{} may also represent an atomic transaction, where all or none of the values are set; however, for now the operation is @emph{not} atomic. @section Usage @include defuns-gconf-changeset.xml.texi @c %end of fragment guile-gnome-platform-2.16.2/gconf/doc/guile-gnome-gconf.info0000644000175000017500000011366211752516273024226 0ustar00wingowingo00000000000000This is guile-gnome-gconf.info, produced by makeinfo version 4.13 from guile-gnome-gconf.texi. This manual is for `(gnome gconf)' (version 2.16.2, updated 9 December 2011) Copyright 1999-2007 Havoc Pennington Permission is granted to copy, distribute and/or modify this document under the terms of the GNU General Public License, Version 2 or any later version published by the Free Software Foundation. INFO-DIR-SECTION The Algorithmic Language Scheme START-INFO-DIR-ENTRY * Guile-GConf: (guile-gnome-gconf.info). GNOME's configuration system. END-INFO-DIR-ENTRY  File: guile-gnome-gconf.info, Node: Top, Next: Overview, Up: (dir) Guile-GConf *********** This manual is for `(gnome gconf)' (version 2.16.2, updated 9 December 2011) Copyright 1999-2007 Havoc Pennington Permission is granted to copy, distribute and/or modify this document under the terms of the GNU General Public License, Version 2 or any later version published by the Free Software Foundation. * Menu: * Overview:: About GCONF and its Guile bindings. * GConfClient:: What you probably want out of this library. * GConf Core Interfaces::Basic functions to initialize GConf and get/set values * GConfChangeSet:: a set of configuration changes to be made. * GConfEngine:: a GConf "database" * GError:: error reporting. * GConfSchema:: * GConfValue GConfEntry GConfMetaInfo:: * Undocumented:: Undocumented functions. * Type Index:: * Function Index::  File: guile-gnome-gconf.info, Node: Overview, Next: GConfClient, Prev: Top, Up: Top 1 Overview ********** `(gnome gconf)' wraps the GNOME configuration library for Guile. It is a part of Guile-GNOME. 1.1 Example code ================ (define *gconf-client* (gconf-client-get-default)) (define *gconf-dir* "/apps/my-app") (gconf-client-add-dir gconf-client gconf-dir 'preload-onelevel) (define (gconf-key s) (string-append gconf-dir "/" (symbol->string s))) (define (state-ref key default) (catch #t (lambda () (gconf-client-get *gconf-client* (gconf-key key))) (lambda args default))) (define (state-set! key val) (gconf-client-set *gconf-client* (gconf-key key) val)) (define (value-changed client cnxn-id key val) (format #t "~a: ~a\n" key val)) (gconf-client-add-notify *gconf-client* "/apps/my-app" value-changed) Note that the `value-changed' procedure will only be called if you have a main loop running. See the documentation for `(gnome gobject)' for more information on Guile-GNOME.  File: guile-gnome-gconf.info, Node: GConfClient, Next: GConf Core Interfaces, Prev: Overview, Up: Top 2 GConfClient ************* convenience wrapper 2.1 Overview ============ `' adds the following features to plain GConf: A client-side cache for a specified list of directories you're interested in. You can "preload" entire directories into the cache, speeding things up even more. Some automatic error handling, if you request it. Signals when a value changes or an error occurs. If you use `', you should not use the underlying `' directly, or you'll break things. This is why there's no `gconf-client-get-engine' function; in fact, if you create the `' with `gconf-client-get-default', there is no (legitimate) way to obtain a pointer to the underlying `'. If you create a `' from an existing engine, you'll have to be disciplined enough to avoid using that engine directly. This is all a white lie; _some_ direct `' operations are safe. But it's complicated to know which, and if an operation isn't safe the resulting bugs will mangle the cache and cause weird bugs at an indeterminate time in the future; you don't want to risk this situation. A `' has a list of directories that it "watches." These directories are optionally pre-loaded into the cache, and monitored in order to emit the `' signal. The `' can also be used to access directories not in the list, but those directories won't be preloaded and the "value_changed" signal won't be emitted for them. There are two error-related signals in `'. The first is plain "error"; it's emitted anytime an error occurs. The second is "unreturned_error"; this signal is emitted if you pass as the `'** to any `' function. The idea is that you can have a global error handler attached to the "unreturned_error" signal; if you want to use this handler, you don't need to use the normal GConf error handling mechanism. However, if you ever need to handle errors for a specific function call, you can override the global handler by passing a non-`'** to the function. If you want an error handler that's _always_ invoked, use the "error" signal. The "value_changed" signal is emitted whenever the server notifies your client program that a value has changed in the GConf database. There's one problem with this signal: the signal handler has to use `strcmp' to determine whether the changed value is the one it was interested in. If you are interested in lots of values, then every time a value changes you'll be making lots of calls to `strcmp' and getting O(n) performance. `gconf-client-notify-add' is a superior interface in most cases for this reason. Note that calling `gconf-client-set' and its relatives will cause "value_changed" to be emitted, but "value_changed" is also emitted if another process changes the value. Most of the `' interface mirrors the functions you'd use to manipulate a `' (`gconf-engine-get' and `gconf-client-get', for example). These should all work just like the `' versions, except that they use the cache from `' and emit the `' signals. As always with GConf, applications based on `' should use a model-controller-view architecture. Typically, this means that areas of your application affected by a setting will monitor the relevant key and update themselves when necessary. The preferences dialog will simply change keys, allowing GConf to notify the rest of the application that changes have occurred. Here the application proper is the "view," GConf is the "model", and the preferences dialog is the "controller." In no case should you do this: This breaks if a setting is changed _outside_ your application—or even from a different part of your application. The correct way (in pseudo-code) is: See the example programs that come with GConf for more details. gconf_client_set(client, key, value); application_update_to_reflect_setting(); /* At application startup */ gconf_client_notify_add(client, key, application_update_to_reflect_setting, data); /* From preferences dialog */ gconf_client_set(client, key, value); 2.2 Usage ========= -- Function: gconf-client-get-default => (ret `') Creates a new `' using the default `'. Normally this is the engine you want. If someone else is already using the default `', this function returns the same one they're using, but with the reference count incremented. So you have to unref either way. It's important to call `g-type-init' before using this GObject, to initialize the type system. RET a new `'. `g-object-unref' when you're done. -- Function: gconf-client-add-dir (self `') (dir `mchars') (preload `') Add a directory to the list of directories the `' will watch. Any changes to keys below this directory will cause the "value_changed" signal to be emitted. When you add the directory, you can request that the `' preload its contents; see `' for details. Added directories may not overlap. That is, if you add "/foo", you may not add "/foo/bar". However you can add "/foo" and "/bar". You can also add "/foo" multiple times; if you add a directory multiple times, it will not be removed until you call `gconf-client-remove-dir' an equal number of times. CLIENT a `'. DIR directory to add to the list. PRELOAD degree of preload. ERR the return location for an allocated `', or ``#f'' to ignore errors. -- Function: gconf-client-remove-dir (self `') (dir `mchars') Remove a directory from the list created with `gconf-client-add-dir'. If any notifications have been added below this directory with `gconf-client-notify-add', those notifications will be disabled until you re-add the removed directory. Note that if a directory has been added multiple times, you must remove it the same number of times before the remove takes effect. CLIENT a `'. DIR directory to remove. ERR the return location for an allocated `', or ``#f'' to ignore errors. -- Function: gconf-client-notify-add (self `') (namespace_section `mchars') (proc `scm') => (ret `unsigned-int') Request notification of changes to NAMESPACE-SECTION. This includes the key NAMESPACE-SECTION itself, and any keys below it (the behavior is identical to `gconf-engine-notify-add', but while `gconf-engine-notify-add' places a notification request on the server for every notify function, `' requests server notification for directories added with `gconf-client-add-dir' and keeps the list of `' on the client side). For the notification to happen, NAMESPACE-SECTION must be equal to or below one of the directories added with `gconf-client-add-dir'. You can still call `gconf-client-notify-add' for other directories, but no notification will be received until you add a directory above or equal to NAMESPACE-SECTION. One implication of this is that `gconf-client-remove-dir' temporarily disables notifications that were below the removed directory. The function returns a connection ID you can use to call `gconf-client-notify-remove'. See the description of `' for details on how the notification function is called. CLIENT a `'. NAMESPACE-SECTION where to listen for changes. FUNC function to call when changes occur. USER-DATA user data to pass to FUNC. DESTROY-NOTIFY function to call on USER-DATA when the notify is removed or the `' is destroyed, or ``#f'' for none. ERR the return location for an allocated `', or ``#f'' to ignore errors. RET a connection ID for removing the notification. -- Function: gconf-client-notify-remove (self `') (cnxn `unsigned-int') Remove a notification using the ID returned from `gconf-client-notify-add'. Invokes the destroy notify function on the notification's user data, if appropriate. CLIENT a `'. CNXN connection ID. -- Function: gconf-client-notify (self `') (key `mchars') Emits the "value-changed" signal and notifies listeners as if KEY had been changed CLIENT a `'. KEY the key that has changed. Since 2.4. -- Function: gconf-client-set-error-handling (self `') (mode `') Controls the default error handling for `'. See `' and `' for details on this. CLIENT a `'. MODE error handling mode. -- Function: gconf-client-clear-cache (self `') Dumps everything out of the `' client-side cache. If you know you're done using the `' for a while, you can call this function to save some memory. CLIENT a `'. -- Function: gconf-client-preload (self `') (dirname `mchars') (type `') Preloads a directory. Normally you do this when you call `gconf-client-add-dir', but if you've called `gconf-client-clear-cache' there may be a reason to do it again. CLIENT a `'. DIRNAME directory to preload. TYPE degree of preload. ERR the return location for an allocated `', or ``#f'' to ignore errors. -- Function: gconf-client-set (self `') (key `mchars') (val `') Sets the value of a configuration key. Just like `gconf-engine-set', but uses `' caching and error-handling features. The VAL argument will not be modified. CLIENT a `'. KEY key to set. VAL new value. ERR the return location for an allocated `', or ``#f'' to ignore errors. -- Function: gconf-client-get (self `') (key `mchars') => (ret `') Gets the value of a configuration key. Just like `gconf-engine-get', but uses `' caching and error-handling features. CLIENT a `'. KEY key to get. ERR the return location for an allocated `', or ``#f'' to ignore errors. RET newly-allocated `', or ``#f'' if unset and no default exists. -- Function: gconf-client-get-without-default (self `') (key `mchars') => (ret `') Gets the value of a configuration key. Just like `gconf-client-get' but doesn't look for a default value if the key is unset. CLIENT a `'. KEY key to get. ERR the return location for an allocated `', or ``#f'' to ignore errors. RET newly-allocated `', or ``#f'' if unset (even if a default exists). -- Function: gconf-client-unset (self `') (key `mchars') => (ret `bool') Unsets the value of KEY; if KEY is already unset, has no effect. An error of note is `GCONF_OVERRIDDEN', indicating that the system administrator has "forced" a value for this key. Just like `gconf-engine-unset', but uses `' caching and error-handling features. CLIENT a `'. KEY key to unset. ERR the return location for an allocated `', or ``#f'' to ignore errors. RET ``#t'' on success, ``#f'' on error. -- Function: gconf-client-recursive-unset (self `') (key `mchars') (flags `unsigned-int') => (ret `bool') Unsets all keys below KEY, including KEY itself. If any unset fails, continues on to unset as much as it can. The first failure is returned in ERR. Just like `gconf-engine-recursive-unset', but uses `' caching and error-handling features. CLIENT a `'. KEY a key or directory name to be unset. FLAGS change how the unset is done. ERR the return location for an allocated `', or ``#f'' to ignore errors. RET ``#t'' on success, ``#f'' on error. Since 2.4. -- Function: gconf-client-all-dirs (self `') (dir `mchars') => (ret `gslist-of') Lists the subdirectories in DIR. The returned list contains allocated strings. Each string is the absolute path of a subdirectory. You should `g-free' each string in the list, then `g-slist-free' the list itself. Just like `gconf-engine-all-dirs', but uses `' caching and error-handling features. CLIENT a `'. DIR directory to get subdirectories from. ERR the return location for an allocated `', or ``#f'' to ignore errors. RET List of allocated subdirectory names. -- Function: gconf-client-suggest-sync (self `') Suggests to `gconfd' that you've just finished a block of changes, and it would be an optimal time to sync to permanent storage. This is only a suggestion; and `gconfd' will eventually sync even if you don't call `gconf-engine-suggest-sync'. This function is just a "hint" provided to `gconfd' to maximize efficiency and minimize data loss. Just like `gconf-engine-suggest-sync'. CLIENT a `'. ERR the return location for an allocated `', or ``#f'' to ignore errors. -- Function: gconf-client-dir-exists (self `') (dir `mchars') => (ret `bool') Queries whether the directory DIR exists in the GConf database. Returns ``#t'' or ``#f''. Just like `gconf-engine-dir-exists', but uses `' caching and error-handling features. CLIENT a `'. DIR directory to check for ERR the return location for an allocated `', or ``#f'' to ignore errors. RET ``#t'' or ``#f''. -- Function: gconf-client-key-is-writable (self `') (key `mchars') => (ret `bool') Checks whether the key is writable. CLIENT a `'. KEY the value to be changed. ERR the return location for an allocated `', or ``#f'' to ignore errors. RET ``#t'' if the key is writable, ``#f'' if the key is read only. -- Function: gconf-client-value-changed (self `') (key `mchars') (value `') Emits the "value_changed" signal. Rarely useful. CLIENT a `'. KEY key to pass to signal handlers. VALUE value of KEY to pass to signal handlers.  File: guile-gnome-gconf.info, Node: GConf Core Interfaces, Next: GConfChangeSet, Prev: GConfClient, Up: Top 3 GConf Core Interfaces *********************** Basic functions to initialize GConf and get/set values 3.1 Overview ============ These functions initialize GConf, and communicate with the server via a `' object. You can install a notification request on the server, get values, set values, list directories, and associate schema names with keys. Most of this interface is replicated in the `' wrapper (`' object); an alternative to the value-setting functions is the `' interface. 3.2 Usage ========= -- Function: gconf-valid-key (key `mchars') => (ret `bool') (why_invalid `mchars') Asks whether a key is syntactically correct, that is, it ensures that the key consists of slash-separated strings and contains only legal characters. Normally you shouldn't need to call this function; the GConf functions all check this for you and return an error if the key is invalid. However, it may be useful to validate input to an entry field or the like. If you pass a non-``#f'' address as the WHY-INVALID argument, an allocated string is returned explaining why the key is invalid, if it is. If the key is valid the WHY-INVALID argument is unused. KEY key to check. WHY-INVALID return location for an explanation of the problem, if any. `g-free' the returned string. RET ``#t'' if the key is valid, or ``#f'' if not. -- Function: gconf-key-is-below (above `mchars') (below `mchars') => (ret `bool') Asks whether the key BELOW would be found below the key ABOVE, were they both to exist in the database. For example, `/foo' is always found below `/' and above `/foo/bar'. This probably isn't useful but GConf uses it internally so here it is if you need it. ABOVE the key on the "left hand side" of the predicate. BELOW the key on the "right hand side." RET ``#t'' or ``#f''. -- Function: gconf-concat-dir-and-key (dir `mchars') (key `mchars') => (ret `mchars') Concatenates the dir and key passed removing the unnecessary '/' characters and returns the new string. DIR the directory. KEY the key. RET the newly concatenated string. -- Function: gconf-unique-key => (ret `mchars') Generates a new and unique key using serial number, process id, current time and a random number generated. RET a newly created key, a `' value. -- Function: gconf-escape-key (arbitrary_text `mchars') (len `int') => (ret `mchars') Escape ARBITRARY-TEXT such that it's a valid key element (i.e. one part of the key path). The escaped key won't pass `gconf-valid-key' because it isn't a whole key (i.e. it doesn't have a preceding slash), but prepending a slash to the escaped text should always result in a valid key. ARBITRARY-TEXT some text in any encoding or format LEN length of ARBITRARY-TEXT in bytes, or -1 if ARBITRARY-TEXT is nul-terminated RET a nul-terminated valid GConf key -- Function: gconf-unescape-key (escaped_key `mchars') (len `int') => (ret `mchars') Converts a string escaped with `gconf-escape-key' back into its original form. ESCAPED-KEY a key created with `gconf-escape-key' LEN length of ESCAPED-KEY in bytes, or -1 if ESCAPED-KEY is nul-terminated RET the original string that was escaped to create ESCAPED-KEY  File: guile-gnome-gconf.info, Node: GConfChangeSet, Next: GConfEngine, Prev: GConf Core Interfaces, Up: Top 4 GConfChangeSet **************** a set of configuration changes to be made. 4.1 Overview ============ a `' allows you to collect a set of changes to configuration keys (set/unset operations). You can then commit all the changes at once. This is convenient for something like a preferences dialog; you can collect all the pending changes in a `', then when the user clicks "apply" send them all to the configuration database. The `' allows you to avoid sending every preferences setting when "apply" is clicked; you only have to send the settings the user changed. In the future, GConf may also have optimizations so that changing a group of values with `' is faster than calling `gconf-engine-set' for each value. In the future, `' may also represent an atomic transaction, where all or none of the values are set; however, for now the operation is _not_ atomic. 4.2 Usage =========  File: guile-gnome-gconf.info, Node: GConfEngine, Next: GError, Prev: GConfChangeSet, Up: Top 5 GConfEngine ************* a GConf "database" 5.1 Overview ============ A `' represents a connection to the GConf database. The default `', returned from `gconf-engine-get-default', represents the user's normal configuration source search path. Configuration-related utilities, such as a configuration editor tool, might wish to access a particular configuration source directly; they can obtain a non-default `' with `gconf-engine-get-for-address'. Once you have a `', you can query and manipulate configuration values. 5.2 Usage =========  File: guile-gnome-gconf.info, Node: GError, Next: GConfSchema, Prev: GConfEngine, Up: Top 6 GError ******** error reporting. 6.1 Overview ============ The `' object is used to report errors that occur in GConf library routines. All functions that report errors work the same way: The last argument to the function is a `'**, a pointer to a location where a `'* can be placed. This last argument may be , in which case no error will be returned. If non-, the argument should be the address of a `'* variable, which should be initialized to . If an error occurs, a `' will be allocated and placed in the return location; the caller must free the `' with `g-error-free'. If no error occurs, the return location will be left untouched. That is, the test `error != NULL' should always be a reliable indicator of whether the operation failed. It's also common that the return value of a function indicates whether or not an error occurred. Typically, is returned on success. In some cases, a return value indicates failure. Either way, if the return value indicates failure and you passed a non- value for the last argument to the function, a `' will be returned. If the return value indicates success, then a `' will never be returned. These relationships are guaranteed; that is, you can reliably use the return value to decide whether a `' was placed in the return location. If a function does _not_ indicate success/failure by return value, you must check whether the `' is to detect errors. Here's a short error handling example: GError* err = NULL; if (!gconf_init(&err)) { fprintf(stderr, _("Failed to init GConf: %s\n"), err->message); g_error_free(err); err = NULL; } 6.2 Usage =========  File: guile-gnome-gconf.info, Node: GConfSchema, Next: GConfValue GConfEntry GConfMetaInfo, Prev: GError, Up: Top 7 GConfSchema ************* A describes a 7.1 Overview ============ A "schema" describes a key-value pair in a GConf database. It may include information such as default value and value type, as well as documentation describing the pair, the name of the application that created the pair, etc. A `' duplicates some of the information about the value it describes, such as type information. In these cases, the type information provided describes what the type of the value _should be_, not what the type actually is. 7.2 Usage ========= -- Class: Derives from `'. This class defines no direct slots. -- Function: gconf-schema-new => (ret `') Creates a new `'. RET newly allocated `' -- Function: gconf-schema-get-locale (self `') => (ret `mchars') Returns the locale for a `'. The returned string is _not_ a copy, so don't try to free it. It is "owned" by the `' and will be destroyed when the `' is destroyed. SCHEMA a `' RET the locale -- Function: gconf-schema-get-short-desc (self `') => (ret `mchars') Returns the short description for a `'. The returned string is _not_ a copy, don't try to free it. It is "owned" by the `' and will be destroyed when the `' is destroyed. SCHEMA a `'. RET the short description. -- Function: gconf-schema-get-long-desc (self `') => (ret `mchars') Returns the long description for a `'. The returned string is _not_ a copy, don't try to free it. It is "owned" by the `' and will be destroyed when the `' is destroyed. SCHEMA a `' RET the long description. -- Function: gconf-schema-get-owner (self `') => (ret `mchars') Returns the owner of a `'. The returned string is _not_ a copy, don't try to free it. It is "owned" by the `' and will be destroyed when the `' is destroyed. SCHEMA a `'. RET the owner. -- Function: gconf-schema-get-default-value (self `') => (ret `') Returns the default value of the entry that is described by a `'. SCHEMA a `'. RET the default value of the entry. -- Function: gconf-schema-get-car-type (self `') => (ret `') Returns the default type of the first member of the pair in the entry (which should be of type `GCONF_VALUE_PAIR') described by SCHEMA. SCHEMA a `'. RET the type of the first member of the pair element of the entry. -- Function: gconf-schema-get-cdr-type (self `') => (ret `') Returns the default type of the second member of the pair in the entry (which should be of type `GCONF_VALUE_PAIR') described by SCHEMA. SCHEMA a `'. RET the type of the second member of the pair element of the entry. -- Function: gconf-schema-get-list-type (self `') => (ret `') Returns the default type of the list elements of the entry (which should be of default type `GCONF_VALUE_LIST') described by SCHEMA. SCHEMA RET -- Function: gconf-schema-set-type (self `') (type `') Sets the `' of the `' to TYPE. SC a `'. TYPE the type. -- Function: gconf-schema-set-locale (self `') (locale `mchars') Sets the locale for a `' to LOCALE. LOCALE is copied. SC a `'. LOCALE the locale. -- Function: gconf-schema-set-short-desc (self `') (desc `mchars') Sets the short description of a `' to DESC. DESC is copied. SC a `'. DESC the short description. -- Function: gconf-schema-set-long-desc (self `') (desc `mchars') Sets the long description of a `' to DESC. DESC is copied. SC a `'. DESC the long description. -- Function: gconf-schema-set-owner (self `') (owner `mchars') Sets the "owner" of the `', where the owner is the name of the application that created the entry. SC a `'. OWNER the name of the creating application. -- Function: gconf-schema-set-default-value (self `') (val `') Sets the default value for the entry described by the `'. The `' is copied. Alternatively, use `gconf-schema-set-default-value-nocopy'. SC a `'. VAL the default value. -- Function: gconf-schema-set-car-type (self `') (type `') Sets the `' of the first member (car) of the entry (which should be of type `GCONF_VALUE_PAIR') described by `' to TYPE. SC a `'. TYPE the type. -- Function: gconf-schema-set-cdr-type (self `') (type `') Sets the `' of the second member (cdr) of the entry (which should be of type `GCONF_VALUE_PAIR') described by `' to TYPE. SC a `'. TYPE the type. -- Function: gconf-schema-set-list-type (self `') (type `') Sets the `' of the list elements of the entry (which should be of type `GCONF_VALUE_LIST') described by `' to TYPE. SC a `'. TYPE the type.  File: guile-gnome-gconf.info, Node: GConfValue GConfEntry GConfMetaInfo, Next: Undocumented, Prev: GConfSchema, Up: Top 8 GConfValue, GConfEntry, GConfMetaInfo *************************************** A stores a dynamically-typed value. A stores a key-value pair. A stores metainformation about a key. 8.1 Overview ============ `' stores one of the value types GConf understands; GConf uses `' to pass values around because it doesn't know the type of its values at compile time. A `' pairs a relative key name with a value, for example if the value "10" is stored at the key "/foo/bar/baz", the `' will store "baz" and "10". A `' object holds metainformation about a key, such as its last modification time and the name of the schema associated with it. You should rarely if ever need to use `'. (In fact you can't get the metainfo for a key using the current API.) 8.2 Usage ========= -- Class: Derives from `'. This class defines no direct slots.  File: guile-gnome-gconf.info, Node: Undocumented, Next: Type Index, Prev: GConfValue GConfEntry GConfMetaInfo, Up: Top 9 Undocumented ************** The following symbols, if any, have not been properly documented. 9.1 (gnome gw gconf) ==================== -- Function: gconf-client-get-default-from-schema -- Variable: gconf-schema-set-default-value-nocopy  File: guile-gnome-gconf.info, Node: Type Index, Next: Function Index, Prev: Undocumented, Up: Top Type Index ********** [index] * Menu: * : GConfSchema. (line 25) * : GConfValue GConfEntry GConfMetaInfo. (line 30)  File: guile-gnome-gconf.info, Node: Function Index, Prev: Type Index, Up: Top Function Index ************** [index] * Menu: * gconf-client-add-dir: GConfClient. (line 114) * gconf-client-all-dirs: GConfClient. (line 404) * gconf-client-clear-cache: GConfClient. (line 257) * gconf-client-dir-exists: GConfClient. (line 445) * gconf-client-get: GConfClient. (line 310) * gconf-client-get-default: GConfClient. (line 98) * gconf-client-get-default-from-schema: Undocumented. (line 12) * gconf-client-get-without-default: GConfClient. (line 332) * gconf-client-key-is-writable: GConfClient. (line 466) * gconf-client-notify: GConfClient. (line 229) * gconf-client-notify-add: GConfClient. (line 165) * gconf-client-notify-remove: GConfClient. (line 215) * gconf-client-preload: GConfClient. (line 268) * gconf-client-recursive-unset: GConfClient. (line 377) * gconf-client-remove-dir: GConfClient. (line 143) * gconf-client-set: GConfClient. (line 289) * gconf-client-set-error-handling: GConfClient. (line 244) * gconf-client-suggest-sync: GConfClient. (line 427) * gconf-client-unset: GConfClient. (line 354) * gconf-client-value-changed: GConfClient. (line 485) * gconf-concat-dir-and-key: GConf Core Interfaces. (line 67) * gconf-escape-key: GConf Core Interfaces. (line 92) * gconf-key-is-below: GConf Core Interfaces. (line 49) * gconf-schema-get-car-type: GConfSchema. (line 113) * gconf-schema-get-cdr-type: GConfSchema. (line 127) * gconf-schema-get-default-value: GConfSchema. (line 100) * gconf-schema-get-list-type: GConfSchema. (line 142) * gconf-schema-get-locale: GConfSchema. (line 40) * gconf-schema-get-long-desc: GConfSchema. (line 70) * gconf-schema-get-owner: GConfSchema. (line 85) * gconf-schema-get-short-desc: GConfSchema. (line 55) * gconf-schema-new: GConfSchema. (line 31) * gconf-schema-set-car-type: GConfSchema. (line 230) * gconf-schema-set-cdr-type: GConfSchema. (line 244) * gconf-schema-set-default-value: GConfSchema. (line 216) * gconf-schema-set-list-type: GConfSchema. (line 258) * gconf-schema-set-locale: GConfSchema. (line 164) * gconf-schema-set-long-desc: GConfSchema. (line 190) * gconf-schema-set-owner: GConfSchema. (line 203) * gconf-schema-set-short-desc: GConfSchema. (line 177) * gconf-schema-set-type: GConfSchema. (line 152) * gconf-unescape-key: GConf Core Interfaces. (line 112) * gconf-unique-key: GConf Core Interfaces. (line 82) * gconf-valid-key: GConf Core Interfaces. (line 25)  Tag Table: Node: Top593 Node: Overview1542 Node: GConfClient2698 Node: GConf Core Interfaces18816 Node: GConfChangeSet22586 Node: GConfEngine23689 Node: GError24400 Node: GConfSchema26285 Node: GConfValue GConfEntry GConfMetaInfo32919 Node: Undocumented34017 Node: Type Index34389 Node: Function Index34763  End Tag Table guile-gnome-platform-2.16.2/gconf/doc/section-gconf.xml.texi0000644000175000017500000000122011670374302024253 0ustar00wingowingo00000000000000 @c %start of fragment @node GConf Core Interfaces @chapter GConf Core Interfaces Basic functions to initialize GConf and get/set values @section Overview These functions initialize GConf, and communicate with the server via a @code{} object. You can install a notification request on the server, get values, set values, list directories, and associate schema names with keys. Most of this interface is replicated in the @code{} wrapper (@code{} object); an alternative to the value-setting functions is the @code{} interface. @section Usage @include defuns-gconf.xml.texi @c %end of fragment guile-gnome-platform-2.16.2/gconf/doc/section-gconf-engine.xml.texi0000644000175000017500000000131411670374302025522 0ustar00wingowingo00000000000000 @c %start of fragment @node GConfEngine @chapter GConfEngine a GConf "database" @section Overview A @code{} represents a connection to the GConf database. The default @code{}, returned from @code{gconf-engine-get-default}, represents the user's normal configuration source search path. Configuration-related utilities, such as a configuration editor tool, might wish to access a particular configuration source directly; they can obtain a non-default @code{} with @code{gconf-engine-get-for-address}. Once you have a @code{}, you can query and manipulate configuration values. @section Usage @include defuns-gconf-engine.xml.texi @c %end of fragment guile-gnome-platform-2.16.2/gconf/doc/section-gconf-schema.xml.texi0000644000175000017500000000120611670374302025515 0ustar00wingowingo00000000000000 @c %start of fragment @node GConfSchema @chapter GConfSchema A describes a @section Overview A "schema" describes a key-value pair in a GConf database. It may include information such as default value and value type, as well as documentation describing the pair, the name of the application that created the pair, etc. A @code{} duplicates some of the information about the value it describes, such as type information. In these cases, the type information provided describes what the type of the value @emph{should be}, not what the type actually is. @section Usage @include defuns-gconf-schema.xml.texi @c %end of fragment guile-gnome-platform-2.16.2/gconf/doc/section-gconf-value.xml.texi0000644000175000017500000000171211670374302025373 0ustar00wingowingo00000000000000 @c %start of fragment @node GConfValue GConfEntry GConfMetaInfo @chapter GConfValue, GConfEntry, GConfMetaInfo A stores a dynamically-typed value. A stores a key-value pair. A stores metainformation about a key. @section Overview @code{} stores one of the value types GConf understands; GConf uses @code{} to pass values around because it doesn't know the type of its values at compile time. A @code{} pairs a relative key name with a value, for example if the value "10" is stored at the key "/foo/bar/baz", the @code{} will store "baz" and "10". A @code{} object holds metainformation about a key, such as its last modification time and the name of the schema associated with it. You should rarely if ever need to use @code{}. (In fact you can't get the metainfo for a key using the current API.) @section Usage @include defuns-gconf-value.xml.texi @c %end of fragment guile-gnome-platform-2.16.2/gconf/doc/defuns-gconf-schema.xml.texi0000644000175000017500000001523111670374302025340 0ustar00wingowingo00000000000000 @c %start of fragment @deftp Class Derives from @code{}. This class defines no direct slots. @end deftp @deffn Function gconf-schema-new @result{}@tie{} (ret@tie{}@code{}) Creates a new @code{}. @table @var @item ret newly allocated @code{} @end table @end deffn @deffn Function gconf-schema-get-locale (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{mchars}) Returns the locale for a @code{}. The returned string is @emph{not} a copy, so don't try to free it. It is "owned" by the @code{} and will be destroyed when the @code{} is destroyed. @table @var @item schema a @code{} @item ret the locale @end table @end deffn @deffn Function gconf-schema-get-short-desc (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{mchars}) Returns the short description for a @code{}. The returned string is @emph{not} a copy, don't try to free it. It is "owned" by the @code{} and will be destroyed when the @code{} is destroyed. @table @var @item schema a @code{}. @item ret the short description. @end table @end deffn @deffn Function gconf-schema-get-long-desc (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{mchars}) Returns the long description for a @code{}. The returned string is @emph{not} a copy, don't try to free it. It is "owned" by the @code{} and will be destroyed when the @code{} is destroyed. @table @var @item schema a @code{} @item ret the long description. @end table @end deffn @deffn Function gconf-schema-get-owner (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{mchars}) Returns the owner of a @code{}. The returned string is @emph{not} a copy, don't try to free it. It is "owned" by the @code{} and will be destroyed when the @code{} is destroyed. @table @var @item schema a @code{}. @item ret the owner. @end table @end deffn @deffn Function gconf-schema-get-default-value (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{}) Returns the default value of the entry that is described by a @code{}. @table @var @item schema a @code{}. @item ret the default value of the entry. @end table @end deffn @deffn Function gconf-schema-get-car-type (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{}) Returns the default type of the first member of the pair in the entry (which should be of type @samp{GCONF_VALUE_PAIR}) described by @var{schema}. @table @var @item schema a @code{}. @item ret the type of the first member of the pair element of the entry. @end table @end deffn @deffn Function gconf-schema-get-cdr-type (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{}) Returns the default type of the second member of the pair in the entry (which should be of type @samp{GCONF_VALUE_PAIR}) described by @var{schema}. @table @var @item schema a @code{}. @item ret the type of the second member of the pair element of the entry. @end table @end deffn @deffn Function gconf-schema-get-list-type (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{}) Returns the default type of the list elements of the entry (which should be of default type @samp{GCONF_VALUE_LIST}) described by @var{schema}. @table @var @item schema @item ret @end table @end deffn @deffn Function gconf-schema-set-type (self@tie{}@code{}) (type@tie{}@code{}) Sets the @code{} of the @code{} to @var{type}. @table @var @item sc a @code{}. @item type the type. @end table @end deffn @deffn Function gconf-schema-set-locale (self@tie{}@code{}) (locale@tie{}@code{mchars}) Sets the locale for a @code{} to @var{locale}. @var{locale} is copied. @table @var @item sc a @code{}. @item locale the locale. @end table @end deffn @deffn Function gconf-schema-set-short-desc (self@tie{}@code{}) (desc@tie{}@code{mchars}) Sets the short description of a @code{} to @var{desc}. @var{desc} is copied. @table @var @item sc a @code{}. @item desc the short description. @end table @end deffn @deffn Function gconf-schema-set-long-desc (self@tie{}@code{}) (desc@tie{}@code{mchars}) Sets the long description of a @code{} to @var{desc}. @var{desc} is copied. @table @var @item sc a @code{}. @item desc the long description. @end table @end deffn @deffn Function gconf-schema-set-owner (self@tie{}@code{}) (owner@tie{}@code{mchars}) Sets the "owner" of the @code{}, where the owner is the name of the application that created the entry. @table @var @item sc a @code{}. @item owner the name of the creating application. @end table @end deffn @deffn Function gconf-schema-set-default-value (self@tie{}@code{}) (val@tie{}@code{}) Sets the default value for the entry described by the @code{}. The @code{} is copied. Alternatively, use @code{gconf-schema-set-default-value-nocopy}. @table @var @item sc a @code{}. @item val the default value. @end table @end deffn @deffn Function gconf-schema-set-car-type (self@tie{}@code{}) (type@tie{}@code{}) Sets the @code{} of the first member (car) of the entry (which should be of type @samp{GCONF_VALUE_PAIR}) described by @code{} to @var{type}. @table @var @item sc a @code{}. @item type the type. @end table @end deffn @deffn Function gconf-schema-set-cdr-type (self@tie{}@code{}) (type@tie{}@code{}) Sets the @code{} of the second member (cdr) of the entry (which should be of type @samp{GCONF_VALUE_PAIR}) described by @code{} to @var{type}. @table @var @item sc a @code{}. @item type the type. @end table @end deffn @deffn Function gconf-schema-set-list-type (self@tie{}@code{}) (type@tie{}@code{}) Sets the @code{} of the list elements of the entry (which should be of type @samp{GCONF_VALUE_LIST}) described by @code{} to @var{type}. @table @var @item sc a @code{}. @item type the type. @end table @end deffn @c %end of fragment guile-gnome-platform-2.16.2/gconf/doc/overrides.texi0000644000175000017500000000000011670374302022713 0ustar00wingowingo00000000000000guile-gnome-platform-2.16.2/gconf/doc/version.texi0000644000175000017500000000014611752511104022403 0ustar00wingowingo00000000000000@set UPDATED 9 December 2011 @set UPDATED-MONTH December 2011 @set EDITION 2.16.2 @set VERSION 2.16.2 guile-gnome-platform-2.16.2/gconf/doc/defuns-gconf-engine.xml.texi0000644000175000017500000000005511670374302025343 0ustar00wingowingo00000000000000 @c %start of fragment @c %end of fragment guile-gnome-platform-2.16.2/gconf/doc/Makefile.am0000644000175000017500000000121511670374302022063 0ustar00wingowingo00000000000000################################################################################ ## guile-gnome-gconf.info include $(top_srcdir)/generate-docs.mk docbook_xml_wildcard = ~/src/gnome2/gconf/doc/gconf/xml/*.xml docbook_xml_ignore_files = \ %gconf-backend.xml \ %gconf-locale.xml \ %gconf-sources.xml \ %gconf-listeners.xml \ %gconf-internals.xml docbook_xml_files = $(filter-out $(docbook_xml_ignore_files), $(wildcard $(docbook_xml_wildcard))) wrapset_stem = gconf EXTRA_DIST = overrides.texi info_TEXINFOS=guile-gnome-gconf.texi guile_gnome_gconf_TEXINFOS=overview.texi \ $(wildcard section-*.texi) $(wildcard defuns-*.texi) undocumented.texi guile-gnome-platform-2.16.2/gconf/doc/Makefile.in0000644000175000017500000006541711752511066022113 0ustar00wingowingo00000000000000# Makefile.in generated by automake 1.11.5 from Makefile.am. # @configure_input@ # Copyright (C) 1994, 1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, # 2003, 2004, 2005, 2006, 2007, 2008, 2009, 2010, 2011 Free Software # Foundation, Inc. # This Makefile.in is free software; the Free Software Foundation # gives unlimited permission to copy and/or distribute it, # with or without modifications, as long as this notice is preserved. # This program is distributed in the hope that it will be useful, # but WITHOUT ANY WARRANTY, to the extent permitted by law; without # even the implied warranty of MERCHANTABILITY or FITNESS FOR A # PARTICULAR PURPOSE. @SET_MAKE@ ################################################################################ # guile-gnome # Copyright (C) 2007, 2011 Free Software Foundation, Inc. # This program is free software; you can redistribute it and/or # modify it under the terms of the GNU General Public License as # published by the Free Software Foundation; either version 2 of # the License, or (at your option) any later version. # This program is distributed in the hope that it will be useful, # but WITHOUT ANY WARRANTY; without even the implied warranty of # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the # GNU General Public License for more details. # You should have received a copy of the GNU General Public License # along with this program; if not, contact: # Free Software Foundation Voice: +1-617-542-5942 # 59 Temple Place - Suite 330 Fax: +1-617-542-2652 # Boston, MA 02111-1307, USA gnu@gnu.org # # Makefile snippet # VPATH = @srcdir@ am__make_dryrun = \ { \ am__dry=no; \ case $$MAKEFLAGS in \ *\\[\ \ ]*) \ echo 'am--echo: ; @echo "AM" OK' | $(MAKE) -f - 2>/dev/null \ | grep '^AM OK$$' >/dev/null || am__dry=yes;; \ *) \ for am__flg in $$MAKEFLAGS; do \ case $$am__flg in \ *=*|--*) ;; \ *n*) am__dry=yes; break;; \ esac; \ done;; \ esac; \ test $$am__dry = yes; \ } pkgdatadir = $(datadir)/@PACKAGE@ pkgincludedir = $(includedir)/@PACKAGE@ pkglibdir = $(libdir)/@PACKAGE@ pkglibexecdir = $(libexecdir)/@PACKAGE@ am__cd = CDPATH="$${ZSH_VERSION+.}$(PATH_SEPARATOR)" && cd install_sh_DATA = $(install_sh) -c -m 644 install_sh_PROGRAM = $(install_sh) -c install_sh_SCRIPT = $(install_sh) -c INSTALL_HEADER = $(INSTALL_DATA) transform = $(program_transform_name) NORMAL_INSTALL = : PRE_INSTALL = : POST_INSTALL = : NORMAL_UNINSTALL = : PRE_UNINSTALL = : POST_UNINSTALL = : build_triplet = @build@ host_triplet = @host@ DIST_COMMON = $(guile_gnome_gconf_TEXINFOS) $(srcdir)/Makefile.am \ $(srcdir)/Makefile.in $(srcdir)/stamp-vti \ $(srcdir)/version.texi $(top_srcdir)/generate-docs.mk subdir = gconf/doc ACLOCAL_M4 = $(top_srcdir)/aclocal.m4 am__aclocal_m4_deps = $(top_srcdir)/configure.ac am__configure_deps = $(am__aclocal_m4_deps) $(CONFIGURE_DEPENDENCIES) \ $(ACLOCAL_M4) mkinstalldirs = $(install_sh) -d CONFIG_HEADER = $(top_builddir)/config.h CONFIG_CLEAN_FILES = CONFIG_CLEAN_VPATH_FILES = SOURCES = DIST_SOURCES = INFO_DEPS = $(srcdir)/guile-gnome-gconf.info TEXINFO_TEX = $(top_srcdir)/build-aux/texinfo.tex am__TEXINFO_TEX_DIR = $(top_srcdir)/build-aux DVIS = guile-gnome-gconf.dvi PDFS = guile-gnome-gconf.pdf PSS = guile-gnome-gconf.ps HTMLS = guile-gnome-gconf.html TEXINFOS = guile-gnome-gconf.texi TEXI2DVI = texi2dvi TEXI2PDF = $(TEXI2DVI) --pdf --batch MAKEINFOHTML = $(MAKEINFO) --html AM_MAKEINFOHTMLFLAGS = $(AM_MAKEINFOFLAGS) DVIPS = dvips am__can_run_installinfo = \ case $$AM_UPDATE_INFO_DIR in \ n|no|NO) false;; \ *) (install-info --version) >/dev/null 2>&1;; \ esac am__installdirs = "$(DESTDIR)$(infodir)" am__vpath_adj_setup = srcdirstrip=`echo "$(srcdir)" | sed 's|.|.|g'`; am__vpath_adj = case $$p in \ $(srcdir)/*) f=`echo "$$p" | sed "s|^$$srcdirstrip/||"`;; \ *) f=$$p;; \ esac; am__strip_dir = f=`echo $$p | sed -e 's|^.*/||'`; am__install_max = 40 am__nobase_strip_setup = \ srcdirstrip=`echo "$(srcdir)" | sed 's/[].[^$$\\*|]/\\\\&/g'` am__nobase_strip = \ for p in $$list; do echo "$$p"; done | sed -e "s|$$srcdirstrip/||" am__nobase_list = $(am__nobase_strip_setup); \ for p in $$list; do echo "$$p $$p"; done | \ sed "s| $$srcdirstrip/| |;"' / .*\//!s/ .*/ ./; s,\( .*\)/[^/]*$$,\1,' | \ $(AWK) 'BEGIN { files["."] = "" } { files[$$2] = files[$$2] " " $$1; \ if (++n[$$2] == $(am__install_max)) \ { print $$2, files[$$2]; n[$$2] = 0; files[$$2] = "" } } \ END { for (dir in files) print dir, files[dir] }' am__base_list = \ sed '$$!N;$$!N;$$!N;$$!N;$$!N;$$!N;$$!N;s/\n/ /g' | \ sed '$$!N;$$!N;$$!N;$$!N;s/\n/ /g' am__uninstall_files_from_dir = { \ test -z "$$files" \ || { test ! -d "$$dir" && test ! -f "$$dir" && test ! -r "$$dir"; } \ || { echo " ( cd '$$dir' && rm -f" $$files ")"; \ $(am__cd) "$$dir" && rm -f $$files; }; \ } DISTFILES = $(DIST_COMMON) $(DIST_SOURCES) $(TEXINFOS) $(EXTRA_DIST) ACLOCAL = @ACLOCAL@ AG_PKG_CONFIG_PATH = @AG_PKG_CONFIG_PATH@ AMTAR = @AMTAR@ API_VERSION = @API_VERSION@ AR = @AR@ ATK_CFLAGS = @ATK_CFLAGS@ ATK_LIBS = @ATK_LIBS@ AUTOCONF = @AUTOCONF@ AUTOHEADER = @AUTOHEADER@ AUTOMAKE = @AUTOMAKE@ AWK = @AWK@ BONOBO_IDL_DIR = @BONOBO_IDL_DIR@ CANVAS_CFLAGS = @CANVAS_CFLAGS@ CANVAS_LIBS = @CANVAS_LIBS@ CC = @CC@ CCDEPMODE = @CCDEPMODE@ CFLAGS = @CFLAGS@ CORBA_CFLAGS = @CORBA_CFLAGS@ CORBA_LIBS = @CORBA_LIBS@ CPP = @CPP@ CPPFLAGS = @CPPFLAGS@ CYGPATH_W = @CYGPATH_W@ DEFS = @DEFS@ DEPDIR = @DEPDIR@ DLLTOOL = @DLLTOOL@ DSYMUTIL = @DSYMUTIL@ DUMPBIN = @DUMPBIN@ ECHO_C = @ECHO_C@ ECHO_N = @ECHO_N@ ECHO_T = @ECHO_T@ EGREP = @EGREP@ EXEEXT = @EXEEXT@ FGREP = @FGREP@ GCONF_CFLAGS = @GCONF_CFLAGS@ GCONF_LIBS = @GCONF_LIBS@ GDK_CFLAGS = @GDK_CFLAGS@ GDK_LIBS = @GDK_LIBS@ GDK_PIXBUF_CFLAGS = @GDK_PIXBUF_CFLAGS@ GDK_PIXBUF_LIBS = @GDK_PIXBUF_LIBS@ GLIB_CFLAGS = @GLIB_CFLAGS@ GLIB_LIBS = @GLIB_LIBS@ GNOMEUI_DEPRECATION_FLAGS = @GNOMEUI_DEPRECATION_FLAGS@ GNOME_VFS_CFLAGS = @GNOME_VFS_CFLAGS@ GNOME_VFS_DEPRECATED_CFLAGS = @GNOME_VFS_DEPRECATED_CFLAGS@ GNOME_VFS_LIBS = @GNOME_VFS_LIBS@ GOBJECT_CFLAGS = @GOBJECT_CFLAGS@ GOBJECT_LIBS = @GOBJECT_LIBS@ GREP = @GREP@ GTHREAD_CFLAGS = @GTHREAD_CFLAGS@ GTHREAD_LIBS = @GTHREAD_LIBS@ GTK_CFLAGS = @GTK_CFLAGS@ GTK_DEPRECATED_CFLAGS = @GTK_DEPRECATED_CFLAGS@ GTK_LIBS = @GTK_LIBS@ GUILE_CAIRO_CFLAGS = @GUILE_CAIRO_CFLAGS@ GUILE_CAIRO_LIBS = @GUILE_CAIRO_LIBS@ GUILE_CFLAGS = @GUILE_CFLAGS@ GUILE_EFFECTIVE_VERSION = @GUILE_EFFECTIVE_VERSION@ GUILE_GLIB_CFLAGS = @GUILE_GLIB_CFLAGS@ GUILE_GLIB_LIBS = @GUILE_GLIB_LIBS@ GUILE_LIBS = @GUILE_LIBS@ G_WRAP_CFLAGS = @G_WRAP_CFLAGS@ G_WRAP_LIBS = @G_WRAP_LIBS@ G_WRAP_LIB_DIR = @G_WRAP_LIB_DIR@ G_WRAP_MODULE_DIR = @G_WRAP_MODULE_DIR@ INSTALL = @INSTALL@ INSTALL_DATA = @INSTALL_DATA@ INSTALL_PROGRAM = @INSTALL_PROGRAM@ INSTALL_SCRIPT = @INSTALL_SCRIPT@ INSTALL_STRIP_PROGRAM = @INSTALL_STRIP_PROGRAM@ LD = @LD@ LDFLAGS = @LDFLAGS@ LIBGLADE_CFLAGS = @LIBGLADE_CFLAGS@ LIBGLADE_LIBS = @LIBGLADE_LIBS@ LIBGNOMEUI_CFLAGS = @LIBGNOMEUI_CFLAGS@ LIBGNOMEUI_LIBS = @LIBGNOMEUI_LIBS@ LIBGNOME_CFLAGS = @LIBGNOME_CFLAGS@ LIBGNOME_LIBS = @LIBGNOME_LIBS@ LIBOBJS = @LIBOBJS@ LIBS = @LIBS@ LIBTOOL = @LIBTOOL@ LIPO = @LIPO@ LN_S = @LN_S@ LTLIBOBJS = @LTLIBOBJS@ MAKEINFO = @MAKEINFO@ MANIFEST_TOOL = @MANIFEST_TOOL@ MKDIR_P = @MKDIR_P@ NM = @NM@ NMEDIT = @NMEDIT@ OBJDUMP = @OBJDUMP@ OBJEXT = @OBJEXT@ ORBIT_IDL = @ORBIT_IDL@ OTOOL = @OTOOL@ OTOOL64 = @OTOOL64@ PACKAGE = @PACKAGE@ PACKAGE_BUGREPORT = @PACKAGE_BUGREPORT@ PACKAGE_NAME = @PACKAGE_NAME@ PACKAGE_STRING = @PACKAGE_STRING@ PACKAGE_TARNAME = @PACKAGE_TARNAME@ PACKAGE_URL = @PACKAGE_URL@ PACKAGE_VERSION = @PACKAGE_VERSION@ PANGOCAIRO_CFLAGS = @PANGOCAIRO_CFLAGS@ PANGOCAIRO_LIBS = @PANGOCAIRO_LIBS@ PANGO_CFLAGS = @PANGO_CFLAGS@ PANGO_LIBS = @PANGO_LIBS@ PATH_SEPARATOR = @PATH_SEPARATOR@ PKG_CONFIG = @PKG_CONFIG@ PKG_CONFIG_LIBDIR = @PKG_CONFIG_LIBDIR@ PKG_CONFIG_PATH = @PKG_CONFIG_PATH@ RANLIB = @RANLIB@ SED = @SED@ SET_MAKE = @SET_MAKE@ SHELL = @SHELL@ STRIP = @STRIP@ VERSION = @VERSION@ WARN_CFLAGS = @WARN_CFLAGS@ abs_builddir = @abs_builddir@ abs_srcdir = @abs_srcdir@ abs_top_builddir = @abs_top_builddir@ abs_top_srcdir = @abs_top_srcdir@ ac_ct_AR = @ac_ct_AR@ ac_ct_CC = @ac_ct_CC@ ac_ct_DUMPBIN = @ac_ct_DUMPBIN@ am__include = @am__include@ am__leading_dot = @am__leading_dot@ am__quote = @am__quote@ am__tar = @am__tar@ am__untar = @am__untar@ bindir = @bindir@ build = @build@ build_alias = @build_alias@ build_cpu = @build_cpu@ build_os = @build_os@ build_vendor = @build_vendor@ builddir = @builddir@ datadir = @datadir@ datarootdir = @datarootdir@ docdir = @docdir@ dvidir = @dvidir@ exec_prefix = @exec_prefix@ host = @host@ host_alias = @host_alias@ host_cpu = @host_cpu@ host_os = @host_os@ host_vendor = @host_vendor@ htmldir = @htmldir@ includedir = @includedir@ infodir = @infodir@ install_sh = @install_sh@ libdir = @libdir@ libexecdir = @libexecdir@ localedir = @localedir@ localstatedir = @localstatedir@ mandir = @mandir@ mkdir_p = @mkdir_p@ oldincludedir = @oldincludedir@ pdfdir = @pdfdir@ prefix = @prefix@ program_transform_name = @program_transform_name@ psdir = @psdir@ sbindir = @sbindir@ sharedstatedir = @sharedstatedir@ srcdir = @srcdir@ sysconfdir = @sysconfdir@ target_alias = @target_alias@ top_build_prefix = @top_build_prefix@ top_builddir = @top_builddir@ top_srcdir = @top_srcdir@ wrapset_module = (gnome gw $(wrapset_stem)-spec) wrapset_name = gnome-$(wrapset_stem) GTK_DOC_TO_TEXI_STUBS = '((@ (gnome gw support gtk-doc) gtk-doc->texi-stubs) (cdr (program-arguments)))' GTK_DOC_DEFUN_HEURISTICS_METHOD = heuristics GTK_DOC_DEFUN_HEURISTICS_ARGS = (your-module-here) GTK_DOC_DEFUN_GWRAP_METHOD = g-wrap GTK_DOC_DEFUN_GWRAP_ARGS = $(wrapset_module) $(wrapset_name) GTK_DOC_DEFUN_METHOD = $(GTK_DOC_DEFUN_GWRAP_METHOD) GTK_DOC_DEFUN_ARGS = $(GTK_DOC_DEFUN_GWRAP_ARGS) GTK_DOC_TO_TEXI_DEFUNS = "(apply (@ (gnome gw support gtk-doc) gtk-doc->texi-defuns) (cadr (program-arguments)) '$(GTK_DOC_DEFUN_METHOD) '($(GTK_DOC_DEFUN_ARGS)) (cddr (program-arguments)))" GTK_DOC_COVERAGE_MODULES = (gnome $(wrapset_stem)) (gnome gw $(wrapset_stem)) GTK_DOC_COVERAGE_TEXI = $(info_TEXINFOS) GTK_DOC_CHECK_COVERAGE = "((@ (gnome gw support gtk-doc) check-documentation-coverage) '($(GTK_DOC_COVERAGE_MODULES)) \"$(GTK_DOC_COVERAGE_TEXI)\")" GTK_DOC_GENERATE_UNDOCUMENTED = "((@ (gnome gw support gtk-doc) generate-undocumented-texi) '($(GTK_DOC_COVERAGE_MODULES)) \"$(GTK_DOC_COVERAGE_TEXI)\")" GUILE = $(top_builddir)/dev-environ guile docbook_xml_wildcard = ~/src/gnome2/gconf/doc/gconf/xml/*.xml docbook_xml_ignore_files = \ %gconf-backend.xml \ %gconf-locale.xml \ %gconf-sources.xml \ %gconf-listeners.xml \ %gconf-internals.xml docbook_xml_files = $(filter-out $(docbook_xml_ignore_files), $(wildcard $(docbook_xml_wildcard))) wrapset_stem = gconf EXTRA_DIST = overrides.texi info_TEXINFOS = guile-gnome-gconf.texi guile_gnome_gconf_TEXINFOS = overview.texi \ $(wildcard section-*.texi) $(wildcard defuns-*.texi) undocumented.texi all: all-am .SUFFIXES: .SUFFIXES: .dvi .html .info .pdf .ps .texi $(srcdir)/Makefile.in: $(srcdir)/Makefile.am $(top_srcdir)/generate-docs.mk $(am__configure_deps) @for dep in $?; do \ case '$(am__configure_deps)' in \ *$$dep*) \ ( cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh ) \ && { if test -f $@; then exit 0; else break; fi; }; \ exit 1;; \ esac; \ done; \ echo ' cd $(top_srcdir) && $(AUTOMAKE) --gnu gconf/doc/Makefile'; \ $(am__cd) $(top_srcdir) && \ $(AUTOMAKE) --gnu gconf/doc/Makefile .PRECIOUS: Makefile Makefile: $(srcdir)/Makefile.in $(top_builddir)/config.status @case '$?' in \ *config.status*) \ cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh;; \ *) \ echo ' cd $(top_builddir) && $(SHELL) ./config.status $(subdir)/$@ $(am__depfiles_maybe)'; \ cd $(top_builddir) && $(SHELL) ./config.status $(subdir)/$@ $(am__depfiles_maybe);; \ esac; $(top_srcdir)/generate-docs.mk: $(top_builddir)/config.status: $(top_srcdir)/configure $(CONFIG_STATUS_DEPENDENCIES) cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh $(top_srcdir)/configure: $(am__configure_deps) cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh $(ACLOCAL_M4): $(am__aclocal_m4_deps) cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh $(am__aclocal_m4_deps): mostlyclean-libtool: -rm -f *.lo clean-libtool: -rm -rf .libs _libs .texi.info: restore=: && backupdir="$(am__leading_dot)am$$$$" && \ am__cwd=`pwd` && $(am__cd) $(srcdir) && \ rm -rf $$backupdir && mkdir $$backupdir && \ if ($(MAKEINFO) --version) >/dev/null 2>&1; then \ for f in $@ $@-[0-9] $@-[0-9][0-9] $(@:.info=).i[0-9] $(@:.info=).i[0-9][0-9]; do \ if test -f $$f; then mv $$f $$backupdir; restore=mv; else :; fi; \ done; \ else :; fi && \ cd "$$am__cwd"; \ if $(MAKEINFO) $(AM_MAKEINFOFLAGS) $(MAKEINFOFLAGS) -I $(srcdir) \ -o $@ $<; \ then \ rc=0; \ $(am__cd) $(srcdir); \ else \ rc=$$?; \ $(am__cd) $(srcdir) && \ $$restore $$backupdir/* `echo "./$@" | sed 's|[^/]*$$||'`; \ fi; \ rm -rf $$backupdir; exit $$rc .texi.dvi: TEXINPUTS="$(am__TEXINFO_TEX_DIR)$(PATH_SEPARATOR)$$TEXINPUTS" \ MAKEINFO='$(MAKEINFO) $(AM_MAKEINFOFLAGS) $(MAKEINFOFLAGS) -I $(srcdir)' \ $(TEXI2DVI) $< .texi.pdf: TEXINPUTS="$(am__TEXINFO_TEX_DIR)$(PATH_SEPARATOR)$$TEXINPUTS" \ MAKEINFO='$(MAKEINFO) $(AM_MAKEINFOFLAGS) $(MAKEINFOFLAGS) -I $(srcdir)' \ $(TEXI2PDF) $< .texi.html: rm -rf $(@:.html=.htp) if $(MAKEINFOHTML) $(AM_MAKEINFOHTMLFLAGS) $(MAKEINFOFLAGS) -I $(srcdir) \ -o $(@:.html=.htp) $<; \ then \ rm -rf $@; \ if test ! -d $(@:.html=.htp) && test -d $(@:.html=); then \ mv $(@:.html=) $@; else mv $(@:.html=.htp) $@; fi; \ else \ if test ! -d $(@:.html=.htp) && test -d $(@:.html=); then \ rm -rf $(@:.html=); else rm -Rf $(@:.html=.htp) $@; fi; \ exit 1; \ fi $(srcdir)/guile-gnome-gconf.info: guile-gnome-gconf.texi $(srcdir)/version.texi $(guile_gnome_gconf_TEXINFOS) guile-gnome-gconf.dvi: guile-gnome-gconf.texi $(srcdir)/version.texi $(guile_gnome_gconf_TEXINFOS) guile-gnome-gconf.pdf: guile-gnome-gconf.texi $(srcdir)/version.texi $(guile_gnome_gconf_TEXINFOS) guile-gnome-gconf.html: guile-gnome-gconf.texi $(srcdir)/version.texi $(guile_gnome_gconf_TEXINFOS) $(srcdir)/version.texi: $(srcdir)/stamp-vti $(srcdir)/stamp-vti: guile-gnome-gconf.texi $(top_srcdir)/configure @(dir=.; test -f ./guile-gnome-gconf.texi || dir=$(srcdir); \ set `$(SHELL) $(top_srcdir)/build-aux/mdate-sh $$dir/guile-gnome-gconf.texi`; \ echo "@set UPDATED $$1 $$2 $$3"; \ echo "@set UPDATED-MONTH $$2 $$3"; \ echo "@set EDITION $(VERSION)"; \ echo "@set VERSION $(VERSION)") > vti.tmp @cmp -s vti.tmp $(srcdir)/version.texi \ || (echo "Updating $(srcdir)/version.texi"; \ cp vti.tmp $(srcdir)/version.texi) -@rm -f vti.tmp @cp $(srcdir)/version.texi $@ mostlyclean-vti: -rm -f vti.tmp maintainer-clean-vti: -rm -f $(srcdir)/stamp-vti $(srcdir)/version.texi .dvi.ps: TEXINPUTS="$(am__TEXINFO_TEX_DIR)$(PATH_SEPARATOR)$$TEXINPUTS" \ $(DVIPS) -o $@ $< uninstall-dvi-am: @$(NORMAL_UNINSTALL) @list='$(DVIS)'; test -n "$(dvidir)" || list=; \ for p in $$list; do \ $(am__strip_dir) \ echo " rm -f '$(DESTDIR)$(dvidir)/$$f'"; \ rm -f "$(DESTDIR)$(dvidir)/$$f"; \ done uninstall-html-am: @$(NORMAL_UNINSTALL) @list='$(HTMLS)'; test -n "$(htmldir)" || list=; \ for p in $$list; do \ $(am__strip_dir) \ echo " rm -rf '$(DESTDIR)$(htmldir)/$$f'"; \ rm -rf "$(DESTDIR)$(htmldir)/$$f"; \ done uninstall-info-am: @$(PRE_UNINSTALL) @if test -d '$(DESTDIR)$(infodir)' && $(am__can_run_installinfo); then \ list='$(INFO_DEPS)'; \ for file in $$list; do \ relfile=`echo "$$file" | sed 's|^.*/||'`; \ echo " install-info --info-dir='$(DESTDIR)$(infodir)' --remove '$(DESTDIR)$(infodir)/$$relfile'"; \ if install-info --info-dir="$(DESTDIR)$(infodir)" --remove "$(DESTDIR)$(infodir)/$$relfile"; \ then :; else test ! -f "$(DESTDIR)$(infodir)/$$relfile" || exit 1; fi; \ done; \ else :; fi @$(NORMAL_UNINSTALL) @list='$(INFO_DEPS)'; \ for file in $$list; do \ relfile=`echo "$$file" | sed 's|^.*/||'`; \ relfile_i=`echo "$$relfile" | sed 's|\.info$$||;s|$$|.i|'`; \ (if test -d "$(DESTDIR)$(infodir)" && cd "$(DESTDIR)$(infodir)"; then \ echo " cd '$(DESTDIR)$(infodir)' && rm -f $$relfile $$relfile-[0-9] $$relfile-[0-9][0-9] $$relfile_i[0-9] $$relfile_i[0-9][0-9]"; \ rm -f $$relfile $$relfile-[0-9] $$relfile-[0-9][0-9] $$relfile_i[0-9] $$relfile_i[0-9][0-9]; \ else :; fi); \ done uninstall-pdf-am: @$(NORMAL_UNINSTALL) @list='$(PDFS)'; test -n "$(pdfdir)" || list=; \ for p in $$list; do \ $(am__strip_dir) \ echo " rm -f '$(DESTDIR)$(pdfdir)/$$f'"; \ rm -f "$(DESTDIR)$(pdfdir)/$$f"; \ done uninstall-ps-am: @$(NORMAL_UNINSTALL) @list='$(PSS)'; test -n "$(psdir)" || list=; \ for p in $$list; do \ $(am__strip_dir) \ echo " rm -f '$(DESTDIR)$(psdir)/$$f'"; \ rm -f "$(DESTDIR)$(psdir)/$$f"; \ done dist-info: $(INFO_DEPS) @srcdirstrip=`echo "$(srcdir)" | sed 's|.|.|g'`; \ list='$(INFO_DEPS)'; \ for base in $$list; do \ case $$base in \ $(srcdir)/*) base=`echo "$$base" | sed "s|^$$srcdirstrip/||"`;; \ esac; \ if test -f $$base; then d=.; else d=$(srcdir); fi; \ base_i=`echo "$$base" | sed 's|\.info$$||;s|$$|.i|'`; \ for file in $$d/$$base $$d/$$base-[0-9] $$d/$$base-[0-9][0-9] $$d/$$base_i[0-9] $$d/$$base_i[0-9][0-9]; do \ if test -f $$file; then \ relfile=`expr "$$file" : "$$d/\(.*\)"`; \ test -f "$(distdir)/$$relfile" || \ cp -p $$file "$(distdir)/$$relfile"; \ else :; fi; \ done; \ done mostlyclean-aminfo: -rm -rf guile-gnome-gconf.aux guile-gnome-gconf.cp guile-gnome-gconf.cps \ guile-gnome-gconf.fn guile-gnome-gconf.fns \ guile-gnome-gconf.ky guile-gnome-gconf.kys \ guile-gnome-gconf.log guile-gnome-gconf.pg \ guile-gnome-gconf.pgs guile-gnome-gconf.tmp \ guile-gnome-gconf.toc guile-gnome-gconf.tp \ guile-gnome-gconf.tps guile-gnome-gconf.vr \ guile-gnome-gconf.vrs clean-aminfo: -test -z "guile-gnome-gconf.dvi guile-gnome-gconf.pdf guile-gnome-gconf.ps \ guile-gnome-gconf.html" \ || rm -rf guile-gnome-gconf.dvi guile-gnome-gconf.pdf guile-gnome-gconf.ps \ guile-gnome-gconf.html maintainer-clean-aminfo: @list='$(INFO_DEPS)'; for i in $$list; do \ i_i=`echo "$$i" | sed 's|\.info$$||;s|$$|.i|'`; \ echo " rm -f $$i $$i-[0-9] $$i-[0-9][0-9] $$i_i[0-9] $$i_i[0-9][0-9]"; \ rm -f $$i $$i-[0-9] $$i-[0-9][0-9] $$i_i[0-9] $$i_i[0-9][0-9]; \ done tags: TAGS TAGS: ctags: CTAGS CTAGS: distdir: $(DISTFILES) @srcdirstrip=`echo "$(srcdir)" | sed 's/[].[^$$\\*]/\\\\&/g'`; \ topsrcdirstrip=`echo "$(top_srcdir)" | sed 's/[].[^$$\\*]/\\\\&/g'`; \ list='$(DISTFILES)'; \ dist_files=`for file in $$list; do echo $$file; done | \ sed -e "s|^$$srcdirstrip/||;t" \ -e "s|^$$topsrcdirstrip/|$(top_builddir)/|;t"`; \ case $$dist_files in \ */*) $(MKDIR_P) `echo "$$dist_files" | \ sed '/\//!d;s|^|$(distdir)/|;s,/[^/]*$$,,' | \ sort -u` ;; \ esac; \ for file in $$dist_files; do \ if test -f $$file || test -d $$file; then d=.; else d=$(srcdir); fi; \ if test -d $$d/$$file; then \ dir=`echo "/$$file" | sed -e 's,/[^/]*$$,,'`; \ if test -d "$(distdir)/$$file"; then \ find "$(distdir)/$$file" -type d ! -perm -700 -exec chmod u+rwx {} \;; \ fi; \ if test -d $(srcdir)/$$file && test $$d != $(srcdir); then \ cp -fpR $(srcdir)/$$file "$(distdir)$$dir" || exit 1; \ find "$(distdir)/$$file" -type d ! -perm -700 -exec chmod u+rwx {} \;; \ fi; \ cp -fpR $$d/$$file "$(distdir)$$dir" || exit 1; \ else \ test -f "$(distdir)/$$file" \ || cp -p $$d/$$file "$(distdir)/$$file" \ || exit 1; \ fi; \ done $(MAKE) $(AM_MAKEFLAGS) \ top_distdir="$(top_distdir)" distdir="$(distdir)" \ dist-info check-am: all-am check: check-am all-am: Makefile $(INFO_DEPS) installdirs: for dir in "$(DESTDIR)$(infodir)"; do \ test -z "$$dir" || $(MKDIR_P) "$$dir"; \ done install: install-am install-exec: install-exec-am install-data: install-data-am uninstall: uninstall-am install-am: all-am @$(MAKE) $(AM_MAKEFLAGS) install-exec-am install-data-am installcheck: installcheck-am install-strip: if test -z '$(STRIP)'; then \ $(MAKE) $(AM_MAKEFLAGS) INSTALL_PROGRAM="$(INSTALL_STRIP_PROGRAM)" \ install_sh_PROGRAM="$(INSTALL_STRIP_PROGRAM)" INSTALL_STRIP_FLAG=-s \ install; \ else \ $(MAKE) $(AM_MAKEFLAGS) INSTALL_PROGRAM="$(INSTALL_STRIP_PROGRAM)" \ install_sh_PROGRAM="$(INSTALL_STRIP_PROGRAM)" INSTALL_STRIP_FLAG=-s \ "INSTALL_PROGRAM_ENV=STRIPPROG='$(STRIP)'" install; \ fi mostlyclean-generic: clean-generic: distclean-generic: -test -z "$(CONFIG_CLEAN_FILES)" || rm -f $(CONFIG_CLEAN_FILES) -test . = "$(srcdir)" || test -z "$(CONFIG_CLEAN_VPATH_FILES)" || rm -f $(CONFIG_CLEAN_VPATH_FILES) maintainer-clean-generic: @echo "This command is intended for maintainers to use" @echo "it deletes files that may require special tools to rebuild." clean: clean-am clean-am: clean-aminfo clean-generic clean-libtool mostlyclean-am distclean: distclean-am -rm -f Makefile distclean-am: clean-am distclean-generic dvi: dvi-am dvi-am: $(DVIS) html: html-am html-am: $(HTMLS) info: info-am info-am: $(INFO_DEPS) install-data-am: install-info-am install-dvi: install-dvi-am install-dvi-am: $(DVIS) @$(NORMAL_INSTALL) @list='$(DVIS)'; test -n "$(dvidir)" || list=; \ if test -n "$$list"; then \ echo " $(MKDIR_P) '$(DESTDIR)$(dvidir)'"; \ $(MKDIR_P) "$(DESTDIR)$(dvidir)" || exit 1; \ fi; \ for p in $$list; do \ if test -f "$$p"; then d=; else d="$(srcdir)/"; fi; \ echo "$$d$$p"; \ done | $(am__base_list) | \ while read files; do \ echo " $(INSTALL_DATA) $$files '$(DESTDIR)$(dvidir)'"; \ $(INSTALL_DATA) $$files "$(DESTDIR)$(dvidir)" || exit $$?; \ done install-exec-am: install-html: install-html-am install-html-am: $(HTMLS) @$(NORMAL_INSTALL) @list='$(HTMLS)'; list2=; test -n "$(htmldir)" || list=; \ if test -n "$$list"; then \ echo " $(MKDIR_P) '$(DESTDIR)$(htmldir)'"; \ $(MKDIR_P) "$(DESTDIR)$(htmldir)" || exit 1; \ fi; \ for p in $$list; do \ if test -f "$$p" || test -d "$$p"; then d=; else d="$(srcdir)/"; fi; \ $(am__strip_dir) \ d2=$$d$$p; \ if test -d "$$d2"; then \ echo " $(MKDIR_P) '$(DESTDIR)$(htmldir)/$$f'"; \ $(MKDIR_P) "$(DESTDIR)$(htmldir)/$$f" || exit 1; \ echo " $(INSTALL_DATA) '$$d2'/* '$(DESTDIR)$(htmldir)/$$f'"; \ $(INSTALL_DATA) "$$d2"/* "$(DESTDIR)$(htmldir)/$$f" || exit $$?; \ else \ list2="$$list2 $$d2"; \ fi; \ done; \ test -z "$$list2" || { echo "$$list2" | $(am__base_list) | \ while read files; do \ echo " $(INSTALL_DATA) $$files '$(DESTDIR)$(htmldir)'"; \ $(INSTALL_DATA) $$files "$(DESTDIR)$(htmldir)" || exit $$?; \ done; } install-info: install-info-am install-info-am: $(INFO_DEPS) @$(NORMAL_INSTALL) @srcdirstrip=`echo "$(srcdir)" | sed 's|.|.|g'`; \ list='$(INFO_DEPS)'; test -n "$(infodir)" || list=; \ if test -n "$$list"; then \ echo " $(MKDIR_P) '$(DESTDIR)$(infodir)'"; \ $(MKDIR_P) "$(DESTDIR)$(infodir)" || exit 1; \ fi; \ for file in $$list; do \ case $$file in \ $(srcdir)/*) file=`echo "$$file" | sed "s|^$$srcdirstrip/||"`;; \ esac; \ if test -f $$file; then d=.; else d=$(srcdir); fi; \ file_i=`echo "$$file" | sed 's|\.info$$||;s|$$|.i|'`; \ for ifile in $$d/$$file $$d/$$file-[0-9] $$d/$$file-[0-9][0-9] \ $$d/$$file_i[0-9] $$d/$$file_i[0-9][0-9] ; do \ if test -f $$ifile; then \ echo "$$ifile"; \ else : ; fi; \ done; \ done | $(am__base_list) | \ while read files; do \ echo " $(INSTALL_DATA) $$files '$(DESTDIR)$(infodir)'"; \ $(INSTALL_DATA) $$files "$(DESTDIR)$(infodir)" || exit $$?; done @$(POST_INSTALL) @if $(am__can_run_installinfo); then \ list='$(INFO_DEPS)'; test -n "$(infodir)" || list=; \ for file in $$list; do \ relfile=`echo "$$file" | sed 's|^.*/||'`; \ echo " install-info --info-dir='$(DESTDIR)$(infodir)' '$(DESTDIR)$(infodir)/$$relfile'";\ install-info --info-dir="$(DESTDIR)$(infodir)" "$(DESTDIR)$(infodir)/$$relfile" || :;\ done; \ else : ; fi install-man: install-pdf: install-pdf-am install-pdf-am: $(PDFS) @$(NORMAL_INSTALL) @list='$(PDFS)'; test -n "$(pdfdir)" || list=; \ if test -n "$$list"; then \ echo " $(MKDIR_P) '$(DESTDIR)$(pdfdir)'"; \ $(MKDIR_P) "$(DESTDIR)$(pdfdir)" || exit 1; \ fi; \ for p in $$list; do \ if test -f "$$p"; then d=; else d="$(srcdir)/"; fi; \ echo "$$d$$p"; \ done | $(am__base_list) | \ while read files; do \ echo " $(INSTALL_DATA) $$files '$(DESTDIR)$(pdfdir)'"; \ $(INSTALL_DATA) $$files "$(DESTDIR)$(pdfdir)" || exit $$?; done install-ps: install-ps-am install-ps-am: $(PSS) @$(NORMAL_INSTALL) @list='$(PSS)'; test -n "$(psdir)" || list=; \ if test -n "$$list"; then \ echo " $(MKDIR_P) '$(DESTDIR)$(psdir)'"; \ $(MKDIR_P) "$(DESTDIR)$(psdir)" || exit 1; \ fi; \ for p in $$list; do \ if test -f "$$p"; then d=; else d="$(srcdir)/"; fi; \ echo "$$d$$p"; \ done | $(am__base_list) | \ while read files; do \ echo " $(INSTALL_DATA) $$files '$(DESTDIR)$(psdir)'"; \ $(INSTALL_DATA) $$files "$(DESTDIR)$(psdir)" || exit $$?; done installcheck-am: maintainer-clean: maintainer-clean-am -rm -f Makefile maintainer-clean-am: distclean-am maintainer-clean-aminfo \ maintainer-clean-generic maintainer-clean-vti mostlyclean: mostlyclean-am mostlyclean-am: mostlyclean-aminfo mostlyclean-generic \ mostlyclean-libtool mostlyclean-vti pdf: pdf-am pdf-am: $(PDFS) ps: ps-am ps-am: $(PSS) uninstall-am: uninstall-dvi-am uninstall-html-am uninstall-info-am \ uninstall-pdf-am uninstall-ps-am .MAKE: install-am install-strip .PHONY: all all-am check check-am clean clean-aminfo clean-generic \ clean-libtool dist-info distclean distclean-generic \ distclean-libtool distdir dvi dvi-am html html-am info info-am \ install install-am install-data install-data-am install-dvi \ install-dvi-am install-exec install-exec-am install-html \ install-html-am install-info install-info-am install-man \ install-pdf install-pdf-am install-ps install-ps-am \ install-strip installcheck installcheck-am installdirs \ maintainer-clean maintainer-clean-aminfo \ maintainer-clean-generic maintainer-clean-vti mostlyclean \ mostlyclean-aminfo mostlyclean-generic mostlyclean-libtool \ mostlyclean-vti pdf pdf-am ps ps-am uninstall uninstall-am \ uninstall-dvi-am uninstall-html-am uninstall-info-am \ uninstall-pdf-am uninstall-ps-am generate-stubs: $(GUILE) $(GUILE_FLAGS) -c $(GTK_DOC_TO_TEXI_STUBS) $(docbook_xml_files) generate-defuns: $(GUILE) $(GUILE_FLAGS) -c $(GTK_DOC_TO_TEXI_DEFUNS) ./overrides.texi $(docbook_xml_files) check-coverage: $(GUILE) $(GUILE_FLAGS) -c $(GTK_DOC_CHECK_COVERAGE) generate-undocumented: rm -f undocumented.texi; touch undocumented.texi $(GUILE) $(GUILE_FLAGS) -c $(GTK_DOC_GENERATE_UNDOCUMENTED) # Tell versions [3.59,3.63) of GNU make to not export all variables. # Otherwise a system limit (for SysV at least) may be exceeded. .NOEXPORT: guile-gnome-platform-2.16.2/gconf/doc/defuns-gconf-error.xml.texi0000644000175000017500000000005511670374302025227 0ustar00wingowingo00000000000000 @c %start of fragment @c %end of fragment guile-gnome-platform-2.16.2/gconf/doc/defuns-gconf-value.xml.texi0000644000175000017500000000023111670374302025206 0ustar00wingowingo00000000000000 @c %start of fragment @deftp Class Derives from @code{}. This class defines no direct slots. @end deftp @c %end of fragment guile-gnome-platform-2.16.2/gconf/doc/stamp-vti0000644000175000017500000000014611752511104021672 0ustar00wingowingo00000000000000@set UPDATED 9 December 2011 @set UPDATED-MONTH December 2011 @set EDITION 2.16.2 @set VERSION 2.16.2 guile-gnome-platform-2.16.2/gconf/doc/overview.texi0000644000175000017500000000175711670374302022603 0ustar00wingowingo00000000000000@node Overview @chapter Overview @code{(gnome gconf)} wraps the GNOME configuration library for Guile. It is a part of Guile-GNOME. @section Example code @lisp (define *gconf-client* (gconf-client-get-default)) (define *gconf-dir* "/apps/my-app") (gconf-client-add-dir gconf-client gconf-dir 'preload-onelevel) (define (gconf-key s) (string-append gconf-dir "/" (symbol->string s))) (define (state-ref key default) (catch #t (lambda () (gconf-client-get *gconf-client* (gconf-key key))) (lambda args default))) (define (state-set! key val) (gconf-client-set *gconf-client* (gconf-key key) val)) (define (value-changed client cnxn-id key val) (format #t "~a: ~a\n" key val)) (gconf-client-add-notify *gconf-client* "/apps/my-app" value-changed) @end lisp Note that the @code{value-changed} procedure will only be called if you have a main loop running. See the documentation for @code{(gnome gobject)} for more information on Guile-GNOME. guile-gnome-platform-2.16.2/gconf/doc/guile-gnome-gconf.texi0000644000175000017500000000370611670374302024233 0ustar00wingowingo00000000000000\input texinfo @c -*-texinfo-*- @c %**start of header @setfilename guile-gnome-gconf.info @settitle Guile-GConf @c %**end of header @include version.texi @copying This manual is for @code{(gnome gconf)} (version @value{VERSION}, updated @value{UPDATED}) Copyright 1999-2007 Havoc Pennington @c GCONF is LGPL, ergo GPL distribution is possible @quotation Permission is granted to copy, distribute and/or modify this document under the terms of the GNU General Public License, Version 2 or any later version published by the Free Software Foundation. @end quotation @end copying @dircategory The Algorithmic Language Scheme @direntry * Guile-GConf: (guile-gnome-gconf.info). GNOME's configuration system. @end direntry @titlepage @title Guile-GNOME: GConf @subtitle version @value{VERSION}, updated @value{UPDATED} @author Havoc Pennington @page @vskip 0pt plus 1filll @insertcopying @end titlepage @ifnottex @node Top @top Guile-GConf @insertcopying @menu * Overview:: About GCONF and its Guile bindings. * GConfClient:: What you probably want out of this library. * GConf Core Interfaces::Basic functions to initialize GConf and get/set values * GConfChangeSet:: a set of configuration changes to be made. * GConfEngine:: a GConf "database" * GError:: error reporting. * GConfSchema:: * GConfValue GConfEntry GConfMetaInfo:: * Undocumented:: Undocumented functions. * Type Index:: * Function Index:: @end menu @end ifnottex @iftex @shortcontents @end iftex @include overview.texi @include section-gconf-client.xml.texi @include section-gconf.xml.texi @include section-gconf-changeset.xml.texi @include section-gconf-engine.xml.texi @include section-gconf-error.xml.texi @include section-gconf-schema.xml.texi @include section-gconf-value.xml.texi @include undocumented.texi @node Type Index @unnumbered Type Index @printindex tp @node Function Index @unnumbered Function Index @printindex fn @bye guile-gnome-platform-2.16.2/gconf/doc/defuns-gconf.xml.texi0000644000175000017500000000652011670374302024103 0ustar00wingowingo00000000000000 @c %start of fragment @deffn Function gconf-valid-key (key@tie{}@code{mchars}) @result{}@tie{} (ret@tie{}@code{bool}) (why_invalid@tie{}@code{mchars}) Asks whether a key is syntactically correct, that is, it ensures that the key consists of slash-separated strings and contains only legal characters. Normally you shouldn't need to call this function; the GConf functions all check this for you and return an error if the key is invalid. However, it may be useful to validate input to an entry field or the like. If you pass a non-@code{@code{#f}} address as the @var{why-invalid} argument, an allocated string is returned explaining why the key is invalid, if it is. If the key is valid the @var{why-invalid} argument is unused. @table @var @item key key to check. @item why-invalid return location for an explanation of the problem, if any. @code{g-free} the returned string. @item ret @code{@code{#t}} if the key is valid, or @code{@code{#f}} if not. @end table @end deffn @deffn Function gconf-key-is-below (above@tie{}@code{mchars}) (below@tie{}@code{mchars}) @result{}@tie{} (ret@tie{}@code{bool}) Asks whether the key @var{below} would be found below the key @var{above}, were they both to exist in the database. For example, @code{/foo} is always found below @code{/} and above @code{/foo/bar}. This probably isn't useful but GConf uses it internally so here it is if you need it. @table @var @item above the key on the "left hand side" of the predicate. @item below the key on the "right hand side." @item ret @code{@code{#t}} or @code{@code{#f}}. @end table @end deffn @deffn Function gconf-concat-dir-and-key (dir@tie{}@code{mchars}) (key@tie{}@code{mchars}) @result{}@tie{} (ret@tie{}@code{mchars}) Concatenates the dir and key passed removing the unnecessary '/' characters and returns the new string. @table @var @item dir the directory. @item key the key. @item ret the newly concatenated string. @end table @end deffn @deffn Function gconf-unique-key @result{}@tie{} (ret@tie{}@code{mchars}) Generates a new and unique key using serial number, process id, current time and a random number generated. @table @var @item ret a newly created key, a @code{} value. @end table @end deffn @deffn Function gconf-escape-key (arbitrary_text@tie{}@code{mchars}) (len@tie{}@code{int}) @result{}@tie{} (ret@tie{}@code{mchars}) Escape @var{arbitrary-text} such that it's a valid key element (i.e. one part of the key path). The escaped key won't pass @code{gconf-valid-key} because it isn't a whole key (i.e. it doesn't have a preceding slash), but prepending a slash to the escaped text should always result in a valid key. @table @var @item arbitrary-text some text in any encoding or format @item len length of @var{arbitrary-text} in bytes, or -1 if @var{arbitrary-text} is nul-terminated @item ret a nul-terminated valid GConf key @end table @end deffn @deffn Function gconf-unescape-key (escaped_key@tie{}@code{mchars}) (len@tie{}@code{int}) @result{}@tie{} (ret@tie{}@code{mchars}) Converts a string escaped with @code{gconf-escape-key} back into its original form. @table @var @item escaped-key a key created with @code{gconf-escape-key} @item len length of @var{escaped-key} in bytes, or -1 if @var{escaped-key} is nul-terminated @item ret the original string that was escaped to create @var{escaped-key} @end table @end deffn @c %end of fragment guile-gnome-platform-2.16.2/gconf/doc/defuns-gconf-changeset.xml.texi0000644000175000017500000000005511670374302026037 0ustar00wingowingo00000000000000 @c %start of fragment @c %end of fragment guile-gnome-platform-2.16.2/gconf/doc/defuns-gconf-client.xml.texi0000644000175000017500000003033411670374302025357 0ustar00wingowingo00000000000000 @c %start of fragment @deffn Function gconf-client-get-default @result{}@tie{} (ret@tie{}@code{}) Creates a new @code{} using the default @code{}. Normally this is the engine you want. If someone else is already using the default @code{}, this function returns the same one they're using, but with the reference count incremented. So you have to unref either way. It's important to call @code{g-type-init} before using this GObject, to initialize the type system. @table @var @item ret a new @code{}. @code{g-object-unref} when you're done. @end table @end deffn @deffn Function gconf-client-add-dir (self@tie{}@code{}) (dir@tie{}@code{mchars}) (preload@tie{}@code{}) Add a directory to the list of directories the @code{} will watch. Any changes to keys below this directory will cause the "value_changed" signal to be emitted. When you add the directory, you can request that the @code{} preload its contents; see @code{} for details. Added directories may not overlap. That is, if you add "/foo", you may not add "/foo/bar". However you can add "/foo" and "/bar". You can also add "/foo" multiple times; if you add a directory multiple times, it will not be removed until you call @code{gconf-client-remove-dir} an equal number of times. @table @var @item client a @code{}. @item dir directory to add to the list. @item preload degree of preload. @item err the return location for an allocated @code{}, or @code{@code{#f}} to ignore errors. @end table @end deffn @deffn Function gconf-client-remove-dir (self@tie{}@code{}) (dir@tie{}@code{mchars}) Remove a directory from the list created with @code{gconf-client-add-dir}. If any notifications have been added below this directory with @code{gconf-client-notify-add}, those notifications will be disabled until you re-add the removed directory. Note that if a directory has been added multiple times, you must remove it the same number of times before the remove takes effect. @table @var @item client a @code{}. @item dir directory to remove. @item err the return location for an allocated @code{}, or @code{@code{#f}} to ignore errors. @end table @end deffn @deffn Function gconf-client-notify-add (self@tie{}@code{}) (namespace_section@tie{}@code{mchars}) (proc@tie{}@code{scm}) @result{}@tie{} (ret@tie{}@code{unsigned-int}) Request notification of changes to @var{namespace-section}. This includes the key @var{namespace-section} itself, and any keys below it (the behavior is identical to @code{gconf-engine-notify-add}, but while @code{gconf-engine-notify-add} places a notification request on the server for every notify function, @code{} requests server notification for directories added with @code{gconf-client-add-dir} and keeps the list of @code{} on the client side). For the notification to happen, @var{namespace-section} must be equal to or below one of the directories added with @code{gconf-client-add-dir}. You can still call @code{gconf-client-notify-add} for other directories, but no notification will be received until you add a directory above or equal to @var{namespace-section}. One implication of this is that @code{gconf-client-remove-dir} temporarily disables notifications that were below the removed directory. The function returns a connection ID you can use to call @code{gconf-client-notify-remove}. See the description of @code{} for details on how the notification function is called. @table @var @item client a @code{}. @item namespace-section where to listen for changes. @item func function to call when changes occur. @item user-data user data to pass to @var{func}. @item destroy-notify function to call on @var{user-data} when the notify is removed or the @code{} is destroyed, or @code{@code{#f}} for none. @item err the return location for an allocated @code{}, or @code{@code{#f}} to ignore errors. @item ret a connection ID for removing the notification. @end table @end deffn @deffn Function gconf-client-notify-remove (self@tie{}@code{}) (cnxn@tie{}@code{unsigned-int}) Remove a notification using the ID returned from @code{gconf-client-notify-add}. Invokes the destroy notify function on the notification's user data, if appropriate. @table @var @item client a @code{}. @item cnxn connection ID. @end table @end deffn @deffn Function gconf-client-notify (self@tie{}@code{}) (key@tie{}@code{mchars}) Emits the "value-changed" signal and notifies listeners as if @var{key} had been changed @table @var @item client a @code{}. @item key the key that has changed. @end table Since 2.4. @end deffn @deffn Function gconf-client-set-error-handling (self@tie{}@code{}) (mode@tie{}@code{}) Controls the default error handling for @code{}. See @code{} and @code{} for details on this. @table @var @item client a @code{}. @item mode error handling mode. @end table @end deffn @deffn Function gconf-client-clear-cache (self@tie{}@code{}) Dumps everything out of the @code{} client-side cache. If you know you're done using the @code{} for a while, you can call this function to save some memory. @table @var @item client a @code{}. @end table @end deffn @deffn Function gconf-client-preload (self@tie{}@code{}) (dirname@tie{}@code{mchars}) (type@tie{}@code{}) Preloads a directory. Normally you do this when you call @code{gconf-client-add-dir}, but if you've called @code{gconf-client-clear-cache} there may be a reason to do it again. @table @var @item client a @code{}. @item dirname directory to preload. @item type degree of preload. @item err the return location for an allocated @code{}, or @code{@code{#f}} to ignore errors. @end table @end deffn @deffn Function gconf-client-set (self@tie{}@code{}) (key@tie{}@code{mchars}) (val@tie{}@code{}) Sets the value of a configuration key. Just like @code{gconf-engine-set}, but uses @code{} caching and error-handling features. The @var{val} argument will not be modified. @table @var @item client a @code{}. @item key key to set. @item val new value. @item err the return location for an allocated @code{}, or @code{@code{#f}} to ignore errors. @end table @end deffn @deffn Function gconf-client-get (self@tie{}@code{}) (key@tie{}@code{mchars}) @result{}@tie{} (ret@tie{}@code{}) Gets the value of a configuration key. Just like @code{gconf-engine-get}, but uses @code{} caching and error-handling features. @table @var @item client a @code{}. @item key key to get. @item err the return location for an allocated @code{}, or @code{@code{#f}} to ignore errors. @item ret newly-allocated @code{}, or @code{@code{#f}} if unset and no default exists. @end table @end deffn @deffn Function gconf-client-get-without-default (self@tie{}@code{}) (key@tie{}@code{mchars}) @result{}@tie{} (ret@tie{}@code{}) Gets the value of a configuration key. Just like @code{gconf-client-get} but doesn't look for a default value if the key is unset. @table @var @item client a @code{}. @item key key to get. @item err the return location for an allocated @code{}, or @code{@code{#f}} to ignore errors. @item ret newly-allocated @code{}, or @code{@code{#f}} if unset (even if a default exists). @end table @end deffn @deffn Function gconf-client-unset (self@tie{}@code{}) (key@tie{}@code{mchars}) @result{}@tie{} (ret@tie{}@code{bool}) Unsets the value of @var{key}; if @var{key} is already unset, has no effect. An error of note is @samp{GCONF_OVERRIDDEN}, indicating that the system administrator has "forced" a value for this key. Just like @code{gconf-engine-unset}, but uses @code{} caching and error-handling features. @table @var @item client a @code{}. @item key key to unset. @item err the return location for an allocated @code{}, or @code{@code{#f}} to ignore errors. @item ret @code{@code{#t}} on success, @code{@code{#f}} on error. @end table @end deffn @deffn Function gconf-client-recursive-unset (self@tie{}@code{}) (key@tie{}@code{mchars}) (flags@tie{}@code{unsigned-int}) @result{}@tie{} (ret@tie{}@code{bool}) Unsets all keys below @var{key}, including @var{key} itself. If any unset fails, continues on to unset as much as it can. The first failure is returned in @var{err}. Just like @code{gconf-engine-recursive-unset}, but uses @code{} caching and error-handling features. @table @var @item client a @code{}. @item key a key or directory name to be unset. @item flags change how the unset is done. @item err the return location for an allocated @code{}, or @code{@code{#f}} to ignore errors. @item ret @code{@code{#t}} on success, @code{@code{#f}} on error. @end table Since 2.4. @end deffn @deffn Function gconf-client-all-dirs (self@tie{}@code{}) (dir@tie{}@code{mchars}) @result{}@tie{} (ret@tie{}@code{gslist-of}) Lists the subdirectories in @var{dir}. The returned list contains allocated strings. Each string is the absolute path of a subdirectory. You should @code{g-free} each string in the list, then @code{g-slist-free} the list itself. Just like @code{gconf-engine-all-dirs}, but uses @code{} caching and error-handling features. @table @var @item client a @code{}. @item dir directory to get subdirectories from. @item err the return location for an allocated @code{}, or @code{@code{#f}} to ignore errors. @item ret List of allocated subdirectory names. @end table @end deffn @deffn Function gconf-client-suggest-sync (self@tie{}@code{}) Suggests to @cite{gconfd} that you've just finished a block of changes, and it would be an optimal time to sync to permanent storage. This is only a suggestion; and @cite{gconfd} will eventually sync even if you don't call @code{gconf-engine-suggest-sync}. This function is just a "hint" provided to @cite{gconfd} to maximize efficiency and minimize data loss. Just like @code{gconf-engine-suggest-sync}. @table @var @item client a @code{}. @item err the return location for an allocated @code{}, or @code{@code{#f}} to ignore errors. @end table @end deffn @deffn Function gconf-client-dir-exists (self@tie{}@code{}) (dir@tie{}@code{mchars}) @result{}@tie{} (ret@tie{}@code{bool}) Queries whether the directory @var{dir} exists in the GConf database. Returns @code{@code{#t}} or @code{@code{#f}}. Just like @code{gconf-engine-dir-exists}, but uses @code{} caching and error-handling features. @table @var @item client a @code{}. @item dir directory to check for @item err the return location for an allocated @code{}, or @code{@code{#f}} to ignore errors. @item ret @code{@code{#t}} or @code{@code{#f}}. @end table @end deffn @deffn Function gconf-client-key-is-writable (self@tie{}@code{}) (key@tie{}@code{mchars}) @result{}@tie{} (ret@tie{}@code{bool}) Checks whether the key is writable. @table @var @item client a @code{}. @item key the value to be changed. @item err the return location for an allocated @code{}, or @code{@code{#f}} to ignore errors. @item ret @code{@code{#t}} if the key is writable, @code{@code{#f}} if the key is read only. @end table @end deffn @deffn Function gconf-client-value-changed (self@tie{}@code{}) (key@tie{}@code{mchars}) (value@tie{}@code{}) Emits the "value_changed" signal. Rarely useful. @table @var @item client a @code{}. @item key key to pass to signal handlers. @item value value of @var{key} to pass to signal handlers. @end table @end deffn @c %end of fragment guile-gnome-platform-2.16.2/gconf/doc/section-gconf-client.xml.texi0000644000175000017500000001066411670374302025543 0ustar00wingowingo00000000000000 @c %start of fragment @node GConfClient @chapter GConfClient convenience wrapper @section Overview @code{} adds the following features to plain GConf: A client-side cache for a specified list of directories you're interested in. You can "preload" entire directories into the cache, speeding things up even more. Some automatic error handling, if you request it. Signals when a value changes or an error occurs. If you use @code{}, you should not use the underlying @code{} directly, or you'll break things. This is why there's no @code{gconf-client-get-engine} function; in fact, if you create the @code{} with @code{gconf-client-get-default}, there is no (legitimate) way to obtain a pointer to the underlying @code{}. If you create a @code{} from an existing engine, you'll have to be disciplined enough to avoid using that engine directly. This is all a white lie; @emph{some} direct @code{} operations are safe. But it's complicated to know which, and if an operation isn't safe the resulting bugs will mangle the cache and cause weird bugs at an indeterminate time in the future; you don't want to risk this situation. A @code{} has a list of directories that it "watches." These directories are optionally pre-loaded into the cache, and monitored in order to emit the @code{} signal. The @code{} can also be used to access directories not in the list, but those directories won't be preloaded and the "value_changed" signal won't be emitted for them. There are two error-related signals in @code{}. The first is plain "error"; it's emitted anytime an error occurs. The second is "unreturned_error"; this signal is emitted if you pass as the @code{}** to any @code{} function. The idea is that you can have a global error handler attached to the "unreturned_error" signal; if you want to use this handler, you don't need to use the normal GConf error handling mechanism. However, if you ever need to handle errors for a specific function call, you can override the global handler by passing a non-@code{}** to the function. If you want an error handler that's @emph{always} invoked, use the "error" signal. The "value_changed" signal is emitted whenever the server notifies your client program that a value has changed in the GConf database. There's one problem with this signal: the signal handler has to use @code{strcmp} to determine whether the changed value is the one it was interested in. If you are interested in lots of values, then every time a value changes you'll be making lots of calls to @code{strcmp} and getting O(n) performance. @code{gconf-client-notify-add} is a superior interface in most cases for this reason. Note that calling @code{gconf-client-set} and its relatives will cause "value_changed" to be emitted, but "value_changed" is also emitted if another process changes the value. Most of the @code{} interface mirrors the functions you'd use to manipulate a @code{} (@code{gconf-engine-get} and @code{gconf-client-get}, for example). These should all work just like the @code{} versions, except that they use the cache from @code{} and emit the @code{} signals. As always with GConf, applications based on @code{} should use a model-controller-view architecture. Typically, this means that areas of your application affected by a setting will monitor the relevant key and update themselves when necessary. The preferences dialog will simply change keys, allowing GConf to notify the rest of the application that changes have occurred. Here the application proper is the "view," GConf is the "model", and the preferences dialog is the "controller." In no case should you do this: This breaks if a setting is changed @emph{outside} your application—or even from a different part of your application. The correct way (in pseudo-code) is: See the example programs that come with GConf for more details. @example gconf_client_set(client, key, value); application_update_to_reflect_setting(); @end example @example /* At application startup */ gconf_client_notify_add(client, key, application_update_to_reflect_setting, data); /* From preferences dialog */ gconf_client_set(client, key, value); @end example @section Usage @include defuns-gconf-client.xml.texi @c %end of fragment guile-gnome-platform-2.16.2/gconf/tests/0000755000175000017500000000000011752546506020435 5ustar00wingowingo00000000000000guile-gnome-platform-2.16.2/gconf/tests/wrapset.scm0000644000175000017500000000311411670374302022615 0ustar00wingowingo00000000000000;;; ---------------------------------------------------------------------- ;;; unit test ;;; Copyright (C) 2007 Andy Wingo ;;; ;;; This program is free software; you can redistribute it and/or modify ;;; it under the terms of the GNU General Public License as published by ;;; the Free Software Foundation; either version 2 of the License, or ;;; (at your option) any later version. ;;; ;;; This program is distributed in the hope that it will be useful, ;;; but WITHOUT ANY WARRANTY; without even the implied warranty of ;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the ;;; GNU General Public License for more details. ;;; ;;; You should have received a copy of the GNU General Public License ;;; along with this program; if not, write to the Free Software ;;; Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA ;;; ---------------------------------------------------------------------- (use-modules (unit-test) (apicheck) (ice-9 pretty-print) (oop goops)) (define-class ()) (define *modules* (call-with-input-string (getenv "WRAPSET_MODULES") read)) (define *api-file* (getenv "WRAPSET_API_FILE")) (define-method (test-wrapset-api (self )) (apicheck-validate (call-with-input-file *api-file* read) *modules*)) (define (main args) (exit-with-summary (run-all-defined-test-cases))) (define (update-api args) (with-output-to-file *api-file* (lambda () (pretty-print (apicheck-generate *modules*))))) guile-gnome-platform-2.16.2/gconf/tests/Makefile.am0000644000175000017500000000005511670374302022461 0ustar00wingowingo00000000000000include ../../tests.mk wrapset_stem = gconf guile-gnome-platform-2.16.2/gconf/tests/Makefile.in0000644000175000017500000004015411752511066022477 0ustar00wingowingo00000000000000# Makefile.in generated by automake 1.11.5 from Makefile.am. # @configure_input@ # Copyright (C) 1994, 1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, # 2003, 2004, 2005, 2006, 2007, 2008, 2009, 2010, 2011 Free Software # Foundation, Inc. # This Makefile.in is free software; the Free Software Foundation # gives unlimited permission to copy and/or distribute it, # with or without modifications, as long as this notice is preserved. # This program is distributed in the hope that it will be useful, # but WITHOUT ANY WARRANTY, to the extent permitted by law; without # even the implied warranty of MERCHANTABILITY or FITNESS FOR A # PARTICULAR PURPOSE. @SET_MAKE@ # guile-gnome # Copyright (C) 2007, 2011 Free Software Foundation, Inc. # This program is free software; you can redistribute it and/or # modify it under the terms of the GNU General Public License as # published by the Free Software Foundation; either version 2 of # the License, or (at your option) any later version. # This program is distributed in the hope that it will be useful, # but WITHOUT ANY WARRANTY; without even the implied warranty of # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the # GNU General Public License for more details. # You should have received a copy of the GNU General Public License # along with this program; if not, contact: # Free Software Foundation Voice: +1-617-542-5942 # 59 Temple Place - Suite 330 Fax: +1-617-542-2652 # Boston, MA 02111-1307, USA gnu@gnu.org VPATH = @srcdir@ am__make_dryrun = \ { \ am__dry=no; \ case $$MAKEFLAGS in \ *\\[\ \ ]*) \ echo 'am--echo: ; @echo "AM" OK' | $(MAKE) -f - 2>/dev/null \ | grep '^AM OK$$' >/dev/null || am__dry=yes;; \ *) \ for am__flg in $$MAKEFLAGS; do \ case $$am__flg in \ *=*|--*) ;; \ *n*) am__dry=yes; break;; \ esac; \ done;; \ esac; \ test $$am__dry = yes; \ } pkgdatadir = $(datadir)/@PACKAGE@ pkgincludedir = $(includedir)/@PACKAGE@ pkglibdir = $(libdir)/@PACKAGE@ pkglibexecdir = $(libexecdir)/@PACKAGE@ am__cd = CDPATH="$${ZSH_VERSION+.}$(PATH_SEPARATOR)" && cd install_sh_DATA = $(install_sh) -c -m 644 install_sh_PROGRAM = $(install_sh) -c install_sh_SCRIPT = $(install_sh) -c INSTALL_HEADER = $(INSTALL_DATA) transform = $(program_transform_name) NORMAL_INSTALL = : PRE_INSTALL = : POST_INSTALL = : NORMAL_UNINSTALL = : PRE_UNINSTALL = : POST_UNINSTALL = : build_triplet = @build@ host_triplet = @host@ DIST_COMMON = $(srcdir)/../../tests.mk $(srcdir)/Makefile.am \ $(srcdir)/Makefile.in subdir = gconf/tests ACLOCAL_M4 = $(top_srcdir)/aclocal.m4 am__aclocal_m4_deps = $(top_srcdir)/configure.ac am__configure_deps = $(am__aclocal_m4_deps) $(CONFIGURE_DEPENDENCIES) \ $(ACLOCAL_M4) mkinstalldirs = $(install_sh) -d CONFIG_HEADER = $(top_builddir)/config.h CONFIG_CLEAN_FILES = CONFIG_CLEAN_VPATH_FILES = SOURCES = DIST_SOURCES = am__can_run_installinfo = \ case $$AM_UPDATE_INFO_DIR in \ n|no|NO) false;; \ *) (install-info --version) >/dev/null 2>&1;; \ esac am__tty_colors = \ red=; grn=; lgn=; blu=; std= DISTFILES = $(DIST_COMMON) $(DIST_SOURCES) $(TEXINFOS) $(EXTRA_DIST) ACLOCAL = @ACLOCAL@ AG_PKG_CONFIG_PATH = @AG_PKG_CONFIG_PATH@ AMTAR = @AMTAR@ API_VERSION = @API_VERSION@ AR = @AR@ ATK_CFLAGS = @ATK_CFLAGS@ ATK_LIBS = @ATK_LIBS@ AUTOCONF = @AUTOCONF@ AUTOHEADER = @AUTOHEADER@ AUTOMAKE = @AUTOMAKE@ AWK = @AWK@ BONOBO_IDL_DIR = @BONOBO_IDL_DIR@ CANVAS_CFLAGS = @CANVAS_CFLAGS@ CANVAS_LIBS = @CANVAS_LIBS@ CC = @CC@ CCDEPMODE = @CCDEPMODE@ CFLAGS = @CFLAGS@ CORBA_CFLAGS = @CORBA_CFLAGS@ CORBA_LIBS = @CORBA_LIBS@ CPP = @CPP@ CPPFLAGS = @CPPFLAGS@ CYGPATH_W = @CYGPATH_W@ DEFS = @DEFS@ DEPDIR = @DEPDIR@ DLLTOOL = @DLLTOOL@ DSYMUTIL = @DSYMUTIL@ DUMPBIN = @DUMPBIN@ ECHO_C = @ECHO_C@ ECHO_N = @ECHO_N@ ECHO_T = @ECHO_T@ EGREP = @EGREP@ EXEEXT = @EXEEXT@ FGREP = @FGREP@ GCONF_CFLAGS = @GCONF_CFLAGS@ GCONF_LIBS = @GCONF_LIBS@ GDK_CFLAGS = @GDK_CFLAGS@ GDK_LIBS = @GDK_LIBS@ GDK_PIXBUF_CFLAGS = @GDK_PIXBUF_CFLAGS@ GDK_PIXBUF_LIBS = @GDK_PIXBUF_LIBS@ GLIB_CFLAGS = @GLIB_CFLAGS@ GLIB_LIBS = @GLIB_LIBS@ GNOMEUI_DEPRECATION_FLAGS = @GNOMEUI_DEPRECATION_FLAGS@ GNOME_VFS_CFLAGS = @GNOME_VFS_CFLAGS@ GNOME_VFS_DEPRECATED_CFLAGS = @GNOME_VFS_DEPRECATED_CFLAGS@ GNOME_VFS_LIBS = @GNOME_VFS_LIBS@ GOBJECT_CFLAGS = @GOBJECT_CFLAGS@ GOBJECT_LIBS = @GOBJECT_LIBS@ GREP = @GREP@ GTHREAD_CFLAGS = @GTHREAD_CFLAGS@ GTHREAD_LIBS = @GTHREAD_LIBS@ GTK_CFLAGS = @GTK_CFLAGS@ GTK_DEPRECATED_CFLAGS = @GTK_DEPRECATED_CFLAGS@ GTK_LIBS = @GTK_LIBS@ GUILE_CAIRO_CFLAGS = @GUILE_CAIRO_CFLAGS@ GUILE_CAIRO_LIBS = @GUILE_CAIRO_LIBS@ GUILE_CFLAGS = @GUILE_CFLAGS@ GUILE_EFFECTIVE_VERSION = @GUILE_EFFECTIVE_VERSION@ GUILE_GLIB_CFLAGS = @GUILE_GLIB_CFLAGS@ GUILE_GLIB_LIBS = @GUILE_GLIB_LIBS@ GUILE_LIBS = @GUILE_LIBS@ G_WRAP_CFLAGS = @G_WRAP_CFLAGS@ G_WRAP_LIBS = @G_WRAP_LIBS@ G_WRAP_LIB_DIR = @G_WRAP_LIB_DIR@ G_WRAP_MODULE_DIR = @G_WRAP_MODULE_DIR@ INSTALL = @INSTALL@ INSTALL_DATA = @INSTALL_DATA@ INSTALL_PROGRAM = @INSTALL_PROGRAM@ INSTALL_SCRIPT = @INSTALL_SCRIPT@ INSTALL_STRIP_PROGRAM = @INSTALL_STRIP_PROGRAM@ LD = @LD@ LDFLAGS = @LDFLAGS@ LIBGLADE_CFLAGS = @LIBGLADE_CFLAGS@ LIBGLADE_LIBS = @LIBGLADE_LIBS@ LIBGNOMEUI_CFLAGS = @LIBGNOMEUI_CFLAGS@ LIBGNOMEUI_LIBS = @LIBGNOMEUI_LIBS@ LIBGNOME_CFLAGS = @LIBGNOME_CFLAGS@ LIBGNOME_LIBS = @LIBGNOME_LIBS@ LIBOBJS = @LIBOBJS@ LIBS = @LIBS@ LIBTOOL = @LIBTOOL@ LIPO = @LIPO@ LN_S = @LN_S@ LTLIBOBJS = @LTLIBOBJS@ MAKEINFO = @MAKEINFO@ MANIFEST_TOOL = @MANIFEST_TOOL@ MKDIR_P = @MKDIR_P@ NM = @NM@ NMEDIT = @NMEDIT@ OBJDUMP = @OBJDUMP@ OBJEXT = @OBJEXT@ ORBIT_IDL = @ORBIT_IDL@ OTOOL = @OTOOL@ OTOOL64 = @OTOOL64@ PACKAGE = @PACKAGE@ PACKAGE_BUGREPORT = @PACKAGE_BUGREPORT@ PACKAGE_NAME = @PACKAGE_NAME@ PACKAGE_STRING = @PACKAGE_STRING@ PACKAGE_TARNAME = @PACKAGE_TARNAME@ PACKAGE_URL = @PACKAGE_URL@ PACKAGE_VERSION = @PACKAGE_VERSION@ PANGOCAIRO_CFLAGS = @PANGOCAIRO_CFLAGS@ PANGOCAIRO_LIBS = @PANGOCAIRO_LIBS@ PANGO_CFLAGS = @PANGO_CFLAGS@ PANGO_LIBS = @PANGO_LIBS@ PATH_SEPARATOR = @PATH_SEPARATOR@ PKG_CONFIG = @PKG_CONFIG@ PKG_CONFIG_LIBDIR = @PKG_CONFIG_LIBDIR@ PKG_CONFIG_PATH = @PKG_CONFIG_PATH@ RANLIB = @RANLIB@ SED = @SED@ SET_MAKE = @SET_MAKE@ SHELL = @SHELL@ STRIP = @STRIP@ VERSION = @VERSION@ WARN_CFLAGS = @WARN_CFLAGS@ abs_builddir = @abs_builddir@ abs_srcdir = @abs_srcdir@ abs_top_builddir = @abs_top_builddir@ abs_top_srcdir = @abs_top_srcdir@ ac_ct_AR = @ac_ct_AR@ ac_ct_CC = @ac_ct_CC@ ac_ct_DUMPBIN = @ac_ct_DUMPBIN@ am__include = @am__include@ am__leading_dot = @am__leading_dot@ am__quote = @am__quote@ am__tar = @am__tar@ am__untar = @am__untar@ bindir = @bindir@ build = @build@ build_alias = @build_alias@ build_cpu = @build_cpu@ build_os = @build_os@ build_vendor = @build_vendor@ builddir = @builddir@ datadir = @datadir@ datarootdir = @datarootdir@ docdir = @docdir@ dvidir = @dvidir@ exec_prefix = @exec_prefix@ host = @host@ host_alias = @host_alias@ host_cpu = @host_cpu@ host_os = @host_os@ host_vendor = @host_vendor@ htmldir = @htmldir@ includedir = @includedir@ infodir = @infodir@ install_sh = @install_sh@ libdir = @libdir@ libexecdir = @libexecdir@ localedir = @localedir@ localstatedir = @localstatedir@ mandir = @mandir@ mkdir_p = @mkdir_p@ oldincludedir = @oldincludedir@ pdfdir = @pdfdir@ prefix = @prefix@ program_transform_name = @program_transform_name@ psdir = @psdir@ sbindir = @sbindir@ sharedstatedir = @sharedstatedir@ srcdir = @srcdir@ sysconfdir = @sysconfdir@ target_alias = @target_alias@ top_build_prefix = @top_build_prefix@ top_builddir = @top_builddir@ top_srcdir = @top_srcdir@ # # Makefile snippet # EXTRA_DIST = wrapset.api wrapset.scm wrapset_stem = gconf top_module_name = (gnome $(wrapset_stem)) gw_module_name = (gnome gw $(wrapset_stem)) extra_module_names = wrapset_modules = ($(top_module_name) $(gw_module_name) $(extra_module_names)) WRAPSET_TESTS_ENV = WRAPSET_MODULES="$(wrapset_modules)" WRAPSET_API_FILE=$(srcdir)/wrapset.api DEV_ENV = $(top_builddir)/dev-environ GUILE = guile TESTS_ENVIRONMENT = $(WRAPSET_TESTS_ENV) $(DEV_ENV) $(GUILE) $(GUILE_FLAGS) -e main -s TESTS = wrapset.scm all: all-am .SUFFIXES: $(srcdir)/Makefile.in: $(srcdir)/Makefile.am $(srcdir)/../../tests.mk $(am__configure_deps) @for dep in $?; do \ case '$(am__configure_deps)' in \ *$$dep*) \ ( cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh ) \ && { if test -f $@; then exit 0; else break; fi; }; \ exit 1;; \ esac; \ done; \ echo ' cd $(top_srcdir) && $(AUTOMAKE) --gnu gconf/tests/Makefile'; \ $(am__cd) $(top_srcdir) && \ $(AUTOMAKE) --gnu gconf/tests/Makefile .PRECIOUS: Makefile Makefile: $(srcdir)/Makefile.in $(top_builddir)/config.status @case '$?' in \ *config.status*) \ cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh;; \ *) \ echo ' cd $(top_builddir) && $(SHELL) ./config.status $(subdir)/$@ $(am__depfiles_maybe)'; \ cd $(top_builddir) && $(SHELL) ./config.status $(subdir)/$@ $(am__depfiles_maybe);; \ esac; $(srcdir)/../../tests.mk: $(top_builddir)/config.status: $(top_srcdir)/configure $(CONFIG_STATUS_DEPENDENCIES) cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh $(top_srcdir)/configure: $(am__configure_deps) cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh $(ACLOCAL_M4): $(am__aclocal_m4_deps) cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh $(am__aclocal_m4_deps): mostlyclean-libtool: -rm -f *.lo clean-libtool: -rm -rf .libs _libs tags: TAGS TAGS: ctags: CTAGS CTAGS: check-TESTS: $(TESTS) @failed=0; all=0; xfail=0; xpass=0; skip=0; \ srcdir=$(srcdir); export srcdir; \ list=' $(TESTS) '; \ $(am__tty_colors); \ if test -n "$$list"; then \ for tst in $$list; do \ if test -f ./$$tst; then dir=./; \ elif test -f $$tst; then dir=; \ else dir="$(srcdir)/"; fi; \ if $(TESTS_ENVIRONMENT) $${dir}$$tst; then \ all=`expr $$all + 1`; \ case " $(XFAIL_TESTS) " in \ *[\ \ ]$$tst[\ \ ]*) \ xpass=`expr $$xpass + 1`; \ failed=`expr $$failed + 1`; \ col=$$red; res=XPASS; \ ;; \ *) \ col=$$grn; res=PASS; \ ;; \ esac; \ elif test $$? -ne 77; then \ all=`expr $$all + 1`; \ case " $(XFAIL_TESTS) " in \ *[\ \ ]$$tst[\ \ ]*) \ xfail=`expr $$xfail + 1`; \ col=$$lgn; res=XFAIL; \ ;; \ *) \ failed=`expr $$failed + 1`; \ col=$$red; res=FAIL; \ ;; \ esac; \ else \ skip=`expr $$skip + 1`; \ col=$$blu; res=SKIP; \ fi; \ echo "$${col}$$res$${std}: $$tst"; \ done; \ if test "$$all" -eq 1; then \ tests="test"; \ All=""; \ else \ tests="tests"; \ All="All "; \ fi; \ if test "$$failed" -eq 0; then \ if test "$$xfail" -eq 0; then \ banner="$$All$$all $$tests passed"; \ else \ if test "$$xfail" -eq 1; then failures=failure; else failures=failures; fi; \ banner="$$All$$all $$tests behaved as expected ($$xfail expected $$failures)"; \ fi; \ else \ if test "$$xpass" -eq 0; then \ banner="$$failed of $$all $$tests failed"; \ else \ if test "$$xpass" -eq 1; then passes=pass; else passes=passes; fi; \ banner="$$failed of $$all $$tests did not behave as expected ($$xpass unexpected $$passes)"; \ fi; \ fi; \ dashes="$$banner"; \ skipped=""; \ if test "$$skip" -ne 0; then \ if test "$$skip" -eq 1; then \ skipped="($$skip test was not run)"; \ else \ skipped="($$skip tests were not run)"; \ fi; \ test `echo "$$skipped" | wc -c` -le `echo "$$banner" | wc -c` || \ dashes="$$skipped"; \ fi; \ report=""; \ if test "$$failed" -ne 0 && test -n "$(PACKAGE_BUGREPORT)"; then \ report="Please report to $(PACKAGE_BUGREPORT)"; \ test `echo "$$report" | wc -c` -le `echo "$$banner" | wc -c` || \ dashes="$$report"; \ fi; \ dashes=`echo "$$dashes" | sed s/./=/g`; \ if test "$$failed" -eq 0; then \ col="$$grn"; \ else \ col="$$red"; \ fi; \ echo "$${col}$$dashes$${std}"; \ echo "$${col}$$banner$${std}"; \ test -z "$$skipped" || echo "$${col}$$skipped$${std}"; \ test -z "$$report" || echo "$${col}$$report$${std}"; \ echo "$${col}$$dashes$${std}"; \ test "$$failed" -eq 0; \ else :; fi distdir: $(DISTFILES) @srcdirstrip=`echo "$(srcdir)" | sed 's/[].[^$$\\*]/\\\\&/g'`; \ topsrcdirstrip=`echo "$(top_srcdir)" | sed 's/[].[^$$\\*]/\\\\&/g'`; \ list='$(DISTFILES)'; \ dist_files=`for file in $$list; do echo $$file; done | \ sed -e "s|^$$srcdirstrip/||;t" \ -e "s|^$$topsrcdirstrip/|$(top_builddir)/|;t"`; \ case $$dist_files in \ */*) $(MKDIR_P) `echo "$$dist_files" | \ sed '/\//!d;s|^|$(distdir)/|;s,/[^/]*$$,,' | \ sort -u` ;; \ esac; \ for file in $$dist_files; do \ if test -f $$file || test -d $$file; then d=.; else d=$(srcdir); fi; \ if test -d $$d/$$file; then \ dir=`echo "/$$file" | sed -e 's,/[^/]*$$,,'`; \ if test -d "$(distdir)/$$file"; then \ find "$(distdir)/$$file" -type d ! -perm -700 -exec chmod u+rwx {} \;; \ fi; \ if test -d $(srcdir)/$$file && test $$d != $(srcdir); then \ cp -fpR $(srcdir)/$$file "$(distdir)$$dir" || exit 1; \ find "$(distdir)/$$file" -type d ! -perm -700 -exec chmod u+rwx {} \;; \ fi; \ cp -fpR $$d/$$file "$(distdir)$$dir" || exit 1; \ else \ test -f "$(distdir)/$$file" \ || cp -p $$d/$$file "$(distdir)/$$file" \ || exit 1; \ fi; \ done check-am: all-am $(MAKE) $(AM_MAKEFLAGS) check-TESTS check: check-am all-am: Makefile installdirs: install: install-am install-exec: install-exec-am install-data: install-data-am uninstall: uninstall-am install-am: all-am @$(MAKE) $(AM_MAKEFLAGS) install-exec-am install-data-am installcheck: installcheck-am install-strip: if test -z '$(STRIP)'; then \ $(MAKE) $(AM_MAKEFLAGS) INSTALL_PROGRAM="$(INSTALL_STRIP_PROGRAM)" \ install_sh_PROGRAM="$(INSTALL_STRIP_PROGRAM)" INSTALL_STRIP_FLAG=-s \ install; \ else \ $(MAKE) $(AM_MAKEFLAGS) INSTALL_PROGRAM="$(INSTALL_STRIP_PROGRAM)" \ install_sh_PROGRAM="$(INSTALL_STRIP_PROGRAM)" INSTALL_STRIP_FLAG=-s \ "INSTALL_PROGRAM_ENV=STRIPPROG='$(STRIP)'" install; \ fi mostlyclean-generic: clean-generic: distclean-generic: -test -z "$(CONFIG_CLEAN_FILES)" || rm -f $(CONFIG_CLEAN_FILES) -test . = "$(srcdir)" || test -z "$(CONFIG_CLEAN_VPATH_FILES)" || rm -f $(CONFIG_CLEAN_VPATH_FILES) maintainer-clean-generic: @echo "This command is intended for maintainers to use" @echo "it deletes files that may require special tools to rebuild." clean: clean-am clean-am: clean-generic clean-libtool mostlyclean-am distclean: distclean-am -rm -f Makefile distclean-am: clean-am distclean-generic dvi: dvi-am dvi-am: html: html-am html-am: info: info-am info-am: install-data-am: install-dvi: install-dvi-am install-dvi-am: install-exec-am: install-html: install-html-am install-html-am: install-info: install-info-am install-info-am: install-man: install-pdf: install-pdf-am install-pdf-am: install-ps: install-ps-am install-ps-am: installcheck-am: maintainer-clean: maintainer-clean-am -rm -f Makefile maintainer-clean-am: distclean-am maintainer-clean-generic mostlyclean: mostlyclean-am mostlyclean-am: mostlyclean-generic mostlyclean-libtool pdf: pdf-am pdf-am: ps: ps-am ps-am: uninstall-am: .MAKE: check-am install-am install-strip .PHONY: all all-am check check-TESTS check-am clean clean-generic \ clean-libtool distclean distclean-generic distclean-libtool \ distdir dvi dvi-am html html-am info info-am install \ install-am install-data install-data-am install-dvi \ install-dvi-am install-exec install-exec-am install-html \ install-html-am install-info install-info-am install-man \ install-pdf install-pdf-am install-ps install-ps-am \ install-strip installcheck installcheck-am installdirs \ maintainer-clean maintainer-clean-generic mostlyclean \ mostlyclean-generic mostlyclean-libtool pdf pdf-am ps ps-am \ uninstall uninstall-am wrapset.api.update: $(WRAPSET_TESTS_ENV) $(DEV_ENV) $(GUILE) -e update-api -s $(srcdir)/wrapset.scm %.check: % $(TESTS_ENVIRONMENT) $(srcdir)/$* # Tell versions [3.59,3.63) of GNU make to not export all variables. # Otherwise a system limit (for SysV at least) may be exceeded. .NOEXPORT: guile-gnome-platform-2.16.2/gconf/tests/wrapset.api0000644000175000017500000001005411670374302022605 0ustar00wingowingo00000000000000(module-api (version 1 0) ((gnome gconf) (uses-interfaces (gnome gw gconf)) (typed-exports)) ((gnome gobject generics) (uses-interfaces) (typed-exports (block generic ( )) (connect generic ( )) (connect-after generic ( )) (connected? generic ( )) (create-signal generic ( )) (disconnect generic ( )) (emit generic ( . )) (find-property generic ( )) (get generic ( )) (get-properties generic ()) (get-property-names generic ()) (get-signals generic ()) (invoke generic ( . )) (set generic ( )) (unblock generic ( )))) ((gnome gw gconf) (uses-interfaces (gnome gw generics)) (typed-exports (gconf-client-add-dir procedure (arity 3 0 #f)) (gconf-client-all-dirs procedure (arity 2 0 #f)) (gconf-client-clear-cache procedure (arity 0 0 #t)) (gconf-client-dir-exists procedure (arity 2 0 #f)) (gconf-client-get procedure (arity 2 0 #f)) (gconf-client-get-default procedure (arity 0 0 #t)) (gconf-client-get-default-from-schema procedure (arity 2 0 #f)) (gconf-client-get-without-default procedure (arity 2 0 #f)) (gconf-client-key-is-writable procedure (arity 2 0 #f)) (gconf-client-notify procedure (arity 0 0 #t)) (gconf-client-notify-add procedure (arity 3 0 #f)) (gconf-client-notify-remove procedure (arity 0 0 #t)) (gconf-client-preload procedure (arity 3 0 #f)) (gconf-client-recursive-unset procedure (arity 3 0 #f)) (gconf-client-remove-dir procedure (arity 2 0 #f)) (gconf-client-set procedure (arity 3 0 #f)) (gconf-client-set-error-handling procedure (arity 0 0 #t)) (gconf-client-suggest-sync procedure (arity 1 0 #f)) (gconf-client-unset procedure (arity 2 0 #f)) (gconf-client-value-changed procedure (arity 0 0 #t)) (gconf-concat-dir-and-key procedure (arity 0 0 #t)) (gconf-escape-key procedure (arity 0 0 #t)) (gconf-key-is-below procedure (arity 0 0 #t)) (gconf-schema-get-car-type procedure (arity 0 0 #t)) (gconf-schema-get-cdr-type procedure (arity 0 0 #t)) (gconf-schema-get-default-value procedure (arity 0 0 #t)) (gconf-schema-get-list-type procedure (arity 0 0 #t)) (gconf-schema-get-locale procedure (arity 0 0 #t)) (gconf-schema-get-long-desc procedure (arity 0 0 #t)) (gconf-schema-get-owner procedure (arity 0 0 #t)) (gconf-schema-get-short-desc procedure (arity 0 0 #t)) (gconf-schema-new procedure (arity 0 0 #t)) (gconf-schema-set-car-type procedure (arity 0 0 #t)) (gconf-schema-set-cdr-type procedure (arity 0 0 #t)) (gconf-schema-set-default-value procedure (arity 0 0 #t)) (gconf-schema-set-default-value-nocopy procedure (arity 0 0 #t)) (gconf-schema-set-list-type procedure (arity 0 0 #t)) (gconf-schema-set-locale procedure (arity 0 0 #t)) (gconf-schema-set-long-desc procedure (arity 0 0 #t)) (gconf-schema-set-owner procedure (arity 0 0 #t)) (gconf-schema-set-short-desc procedure (arity 0 0 #t)) (gconf-schema-set-type procedure (arity 0 0 #t)) (gconf-unescape-key procedure (arity 0 0 #t)) (gconf-unique-key procedure (arity 0 0 #t)) (gconf-valid-key procedure (arity 1 0 #f)))) ((gnome gw generics) (uses-interfaces (gnome gobject generics)) (typed-exports))) guile-gnome-platform-2.16.2/gconf/gnome/0000755000175000017500000000000011752546506020400 5ustar00wingowingo00000000000000guile-gnome-platform-2.16.2/gconf/gnome/gw/0000755000175000017500000000000011752546506021015 5ustar00wingowingo00000000000000guile-gnome-platform-2.16.2/gconf/gnome/gw/gconf-support.h0000644000175000017500000000321211670374302023762 0ustar00wingowingo00000000000000/* guile-gnome * Copyright (C) 2004 Free Software Foundation, Inc. * * gconf-support.h: * * This program is free software; you can redistribute it and/or * modify it under the terms of the GNU General Public License as * published by the Free Software Foundation; either version 2 of * the License, or (at your option) any later version. * * This program is distributed in the hope that it will be useful, * but WITHOUT ANY WARRANTY; without even the implied warranty of * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the * GNU General Public License for more details. * * You should have received a copy of the GNU General Public License * along with this program; if not, contact: * * Free Software Foundation Voice: +1-617-542-5942 * 59 Temple Place - Suite 330 Fax: +1-617-542-2652 * Boston, MA 02111-1307, USA gnu@gnu.org */ #include #include #include #include "guile-gnome-gobject.h" #define _GCONF_TYPE_SCHEMA (_gconf_schema_get_type ()) #define _GCONF_TYPE_VALUE (_gconf_value_get_type ()) GType _gconf_schema_get_type (void); GType _gconf_value_get_type (void); SCM scm_c_gconf_value_to_scm (const GConfValue *value); GConfValue *scm_c_scm_to_gconf_value (SCM value); guint _wrap_gconf_client_notify_add (GConfClient *client, const gchar *namespace_section, SCM proc, GError **err); guile-gnome-platform-2.16.2/gconf/gnome/gw/Makefile.am0000644000175000017500000000164211670374302023044 0ustar00wingowingo00000000000000include $(top_srcdir)/common.mk guilegwmodule_DATA = gconf-spec.scm gconf.scm EXTRA_DIST = gconf-spec.scm # There is one shared library for each wrapset. Each is produced by # g-wrap, but also may contain some hand-coded routines. guilegnomelib_LTLIBRARIES = libgw-guile-gnome-gconf.la ######################################################################## ## gconf nodist_libgw_guile_gnome_gconf_la_SOURCES = guile-gnome-gw-gconf.c libgw_guile_gnome_gconf_la_SOURCES = gconf-support.c gconf-support.h libgw_guile_gnome_gconf_la_CFLAGS = $(GUILE_GLIB_CFLAGS) \ $(AM_CFLAGS) $(GCONF_CFLAGS) $(GUILE_CFLAGS) \ $(G_WRAP_CFLAGS) libgw_guile_gnome_gconf_la_LIBADD = $(GCONF_LIBS) $(GUILE_LIBS) \ $(G_WRAP_LIBS) $(GUILE_GLIB_LIBS) libgw_guile_gnome_gconf_la_LDFLAGS = -module CLEANFILES = $(wildcard gnome-*.log) \ $(wildcard guile-gnome-gw-gconf.*) gconf.scm BUILT_SOURCES = guile-gnome-gw-gconf.c $(DOT_X_FILES) guile-gnome-platform-2.16.2/gconf/gnome/gw/Makefile.in0000644000175000017500000006571211752520721023064 0ustar00wingowingo00000000000000# Makefile.in generated by automake 1.11.5 from Makefile.am. # @configure_input@ # Copyright (C) 1994, 1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, # 2003, 2004, 2005, 2006, 2007, 2008, 2009, 2010, 2011 Free Software # Foundation, Inc. # This Makefile.in is free software; the Free Software Foundation # gives unlimited permission to copy and/or distribute it, # with or without modifications, as long as this notice is preserved. # This program is distributed in the hope that it will be useful, # but WITHOUT ANY WARRANTY, to the extent permitted by law; without # even the implied warranty of MERCHANTABILITY or FITNESS FOR A # PARTICULAR PURPOSE. @SET_MAKE@ # guile-gnome # Copyright (C) 2003,2004,2009,2012 Free Software Foundation, Inc. # This program is free software; you can redistribute it and/or # modify it under the terms of the GNU General Public License as # published by the Free Software Foundation; either version 2 of # the License, or (at your option) any later version. # This program is distributed in the hope that it will be useful, # but WITHOUT ANY WARRANTY; without even the implied warranty of # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the # GNU General Public License for more details. # You should have received a copy of the GNU General Public License # along with this program; if not, contact: # Free Software Foundation Voice: +1-617-542-5942 # 59 Temple Place - Suite 330 Fax: +1-617-542-2652 # Boston, MA 02111-1307, USA gnu@gnu.org # # Makefile snippet # VPATH = @srcdir@ am__make_dryrun = \ { \ am__dry=no; \ case $$MAKEFLAGS in \ *\\[\ \ ]*) \ echo 'am--echo: ; @echo "AM" OK' | $(MAKE) -f - 2>/dev/null \ | grep '^AM OK$$' >/dev/null || am__dry=yes;; \ *) \ for am__flg in $$MAKEFLAGS; do \ case $$am__flg in \ *=*|--*) ;; \ *n*) am__dry=yes; break;; \ esac; \ done;; \ esac; \ test $$am__dry = yes; \ } pkgdatadir = $(datadir)/@PACKAGE@ pkgincludedir = $(includedir)/@PACKAGE@ pkglibdir = $(libdir)/@PACKAGE@ pkglibexecdir = $(libexecdir)/@PACKAGE@ am__cd = CDPATH="$${ZSH_VERSION+.}$(PATH_SEPARATOR)" && cd install_sh_DATA = $(install_sh) -c -m 644 install_sh_PROGRAM = $(install_sh) -c install_sh_SCRIPT = $(install_sh) -c INSTALL_HEADER = $(INSTALL_DATA) transform = $(program_transform_name) NORMAL_INSTALL = : PRE_INSTALL = : POST_INSTALL = : NORMAL_UNINSTALL = : PRE_UNINSTALL = : POST_UNINSTALL = : build_triplet = @build@ host_triplet = @host@ DIST_COMMON = $(srcdir)/Makefile.am $(srcdir)/Makefile.in \ $(top_srcdir)/common.mk subdir = gconf/gnome/gw ACLOCAL_M4 = $(top_srcdir)/aclocal.m4 am__aclocal_m4_deps = $(top_srcdir)/configure.ac am__configure_deps = $(am__aclocal_m4_deps) $(CONFIGURE_DEPENDENCIES) \ $(ACLOCAL_M4) mkinstalldirs = $(install_sh) -d CONFIG_HEADER = $(top_builddir)/config.h CONFIG_CLEAN_FILES = CONFIG_CLEAN_VPATH_FILES = am__vpath_adj_setup = srcdirstrip=`echo "$(srcdir)" | sed 's|.|.|g'`; am__vpath_adj = case $$p in \ $(srcdir)/*) f=`echo "$$p" | sed "s|^$$srcdirstrip/||"`;; \ *) f=$$p;; \ esac; am__strip_dir = f=`echo $$p | sed -e 's|^.*/||'`; am__install_max = 40 am__nobase_strip_setup = \ srcdirstrip=`echo "$(srcdir)" | sed 's/[].[^$$\\*|]/\\\\&/g'` am__nobase_strip = \ for p in $$list; do echo "$$p"; done | sed -e "s|$$srcdirstrip/||" am__nobase_list = $(am__nobase_strip_setup); \ for p in $$list; do echo "$$p $$p"; done | \ sed "s| $$srcdirstrip/| |;"' / .*\//!s/ .*/ ./; s,\( .*\)/[^/]*$$,\1,' | \ $(AWK) 'BEGIN { files["."] = "" } { files[$$2] = files[$$2] " " $$1; \ if (++n[$$2] == $(am__install_max)) \ { print $$2, files[$$2]; n[$$2] = 0; files[$$2] = "" } } \ END { for (dir in files) print dir, files[dir] }' am__base_list = \ sed '$$!N;$$!N;$$!N;$$!N;$$!N;$$!N;$$!N;s/\n/ /g' | \ sed '$$!N;$$!N;$$!N;$$!N;s/\n/ /g' am__uninstall_files_from_dir = { \ test -z "$$files" \ || { test ! -d "$$dir" && test ! -f "$$dir" && test ! -r "$$dir"; } \ || { echo " ( cd '$$dir' && rm -f" $$files ")"; \ $(am__cd) "$$dir" && rm -f $$files; }; \ } am__installdirs = "$(DESTDIR)$(guilegnomelibdir)" \ "$(DESTDIR)$(guilegwmoduledir)" LTLIBRARIES = $(guilegnomelib_LTLIBRARIES) am__DEPENDENCIES_1 = libgw_guile_gnome_gconf_la_DEPENDENCIES = $(am__DEPENDENCIES_1) \ $(am__DEPENDENCIES_1) $(am__DEPENDENCIES_1) \ $(am__DEPENDENCIES_1) am_libgw_guile_gnome_gconf_la_OBJECTS = \ libgw_guile_gnome_gconf_la-gconf-support.lo nodist_libgw_guile_gnome_gconf_la_OBJECTS = \ libgw_guile_gnome_gconf_la-guile-gnome-gw-gconf.lo libgw_guile_gnome_gconf_la_OBJECTS = \ $(am_libgw_guile_gnome_gconf_la_OBJECTS) \ $(nodist_libgw_guile_gnome_gconf_la_OBJECTS) libgw_guile_gnome_gconf_la_LINK = $(LIBTOOL) --tag=CC \ $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=link $(CCLD) \ $(libgw_guile_gnome_gconf_la_CFLAGS) $(CFLAGS) \ $(libgw_guile_gnome_gconf_la_LDFLAGS) $(LDFLAGS) -o $@ DEFAULT_INCLUDES = -I.@am__isrc@ -I$(top_builddir) depcomp = $(SHELL) $(top_srcdir)/build-aux/depcomp am__depfiles_maybe = depfiles am__mv = mv -f COMPILE = $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(AM_CPPFLAGS) \ $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) LTCOMPILE = $(LIBTOOL) --tag=CC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) \ --mode=compile $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) \ $(AM_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) CCLD = $(CC) LINK = $(LIBTOOL) --tag=CC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) \ --mode=link $(CCLD) $(AM_CFLAGS) $(CFLAGS) $(AM_LDFLAGS) \ $(LDFLAGS) -o $@ SOURCES = $(libgw_guile_gnome_gconf_la_SOURCES) \ $(nodist_libgw_guile_gnome_gconf_la_SOURCES) DIST_SOURCES = $(libgw_guile_gnome_gconf_la_SOURCES) am__can_run_installinfo = \ case $$AM_UPDATE_INFO_DIR in \ n|no|NO) false;; \ *) (install-info --version) >/dev/null 2>&1;; \ esac DATA = $(guilegwmodule_DATA) ETAGS = etags CTAGS = ctags DISTFILES = $(DIST_COMMON) $(DIST_SOURCES) $(TEXINFOS) $(EXTRA_DIST) ACLOCAL = @ACLOCAL@ AG_PKG_CONFIG_PATH = @AG_PKG_CONFIG_PATH@ AMTAR = @AMTAR@ API_VERSION = @API_VERSION@ AR = @AR@ ATK_CFLAGS = @ATK_CFLAGS@ ATK_LIBS = @ATK_LIBS@ AUTOCONF = @AUTOCONF@ AUTOHEADER = @AUTOHEADER@ AUTOMAKE = @AUTOMAKE@ AWK = @AWK@ BONOBO_IDL_DIR = @BONOBO_IDL_DIR@ CANVAS_CFLAGS = @CANVAS_CFLAGS@ CANVAS_LIBS = @CANVAS_LIBS@ CC = @CC@ CCDEPMODE = @CCDEPMODE@ CFLAGS = @CFLAGS@ CORBA_CFLAGS = @CORBA_CFLAGS@ CORBA_LIBS = @CORBA_LIBS@ CPP = @CPP@ CPPFLAGS = @CPPFLAGS@ CYGPATH_W = @CYGPATH_W@ DEFS = @DEFS@ DEPDIR = @DEPDIR@ DLLTOOL = @DLLTOOL@ DSYMUTIL = @DSYMUTIL@ DUMPBIN = @DUMPBIN@ ECHO_C = @ECHO_C@ ECHO_N = @ECHO_N@ ECHO_T = @ECHO_T@ EGREP = @EGREP@ EXEEXT = @EXEEXT@ FGREP = @FGREP@ GCONF_CFLAGS = @GCONF_CFLAGS@ GCONF_LIBS = @GCONF_LIBS@ GDK_CFLAGS = @GDK_CFLAGS@ GDK_LIBS = @GDK_LIBS@ GDK_PIXBUF_CFLAGS = @GDK_PIXBUF_CFLAGS@ GDK_PIXBUF_LIBS = @GDK_PIXBUF_LIBS@ GLIB_CFLAGS = @GLIB_CFLAGS@ GLIB_LIBS = @GLIB_LIBS@ GNOMEUI_DEPRECATION_FLAGS = @GNOMEUI_DEPRECATION_FLAGS@ GNOME_VFS_CFLAGS = @GNOME_VFS_CFLAGS@ GNOME_VFS_DEPRECATED_CFLAGS = @GNOME_VFS_DEPRECATED_CFLAGS@ GNOME_VFS_LIBS = @GNOME_VFS_LIBS@ GOBJECT_CFLAGS = @GOBJECT_CFLAGS@ GOBJECT_LIBS = @GOBJECT_LIBS@ GREP = @GREP@ GTHREAD_CFLAGS = @GTHREAD_CFLAGS@ GTHREAD_LIBS = @GTHREAD_LIBS@ GTK_CFLAGS = @GTK_CFLAGS@ GTK_DEPRECATED_CFLAGS = @GTK_DEPRECATED_CFLAGS@ GTK_LIBS = @GTK_LIBS@ GUILE_CAIRO_CFLAGS = @GUILE_CAIRO_CFLAGS@ GUILE_CAIRO_LIBS = @GUILE_CAIRO_LIBS@ GUILE_CFLAGS = @GUILE_CFLAGS@ GUILE_EFFECTIVE_VERSION = @GUILE_EFFECTIVE_VERSION@ GUILE_GLIB_CFLAGS = @GUILE_GLIB_CFLAGS@ GUILE_GLIB_LIBS = @GUILE_GLIB_LIBS@ GUILE_LIBS = @GUILE_LIBS@ G_WRAP_CFLAGS = @G_WRAP_CFLAGS@ G_WRAP_LIBS = @G_WRAP_LIBS@ G_WRAP_LIB_DIR = @G_WRAP_LIB_DIR@ G_WRAP_MODULE_DIR = @G_WRAP_MODULE_DIR@ INSTALL = @INSTALL@ INSTALL_DATA = @INSTALL_DATA@ INSTALL_PROGRAM = @INSTALL_PROGRAM@ INSTALL_SCRIPT = @INSTALL_SCRIPT@ INSTALL_STRIP_PROGRAM = @INSTALL_STRIP_PROGRAM@ LD = @LD@ LDFLAGS = @LDFLAGS@ LIBGLADE_CFLAGS = @LIBGLADE_CFLAGS@ LIBGLADE_LIBS = @LIBGLADE_LIBS@ LIBGNOMEUI_CFLAGS = @LIBGNOMEUI_CFLAGS@ LIBGNOMEUI_LIBS = @LIBGNOMEUI_LIBS@ LIBGNOME_CFLAGS = @LIBGNOME_CFLAGS@ LIBGNOME_LIBS = @LIBGNOME_LIBS@ LIBOBJS = @LIBOBJS@ LIBS = @LIBS@ LIBTOOL = @LIBTOOL@ LIPO = @LIPO@ LN_S = @LN_S@ LTLIBOBJS = @LTLIBOBJS@ MAKEINFO = @MAKEINFO@ MANIFEST_TOOL = @MANIFEST_TOOL@ MKDIR_P = @MKDIR_P@ NM = @NM@ NMEDIT = @NMEDIT@ OBJDUMP = @OBJDUMP@ OBJEXT = @OBJEXT@ ORBIT_IDL = @ORBIT_IDL@ OTOOL = @OTOOL@ OTOOL64 = @OTOOL64@ PACKAGE = @PACKAGE@ PACKAGE_BUGREPORT = @PACKAGE_BUGREPORT@ PACKAGE_NAME = @PACKAGE_NAME@ PACKAGE_STRING = @PACKAGE_STRING@ PACKAGE_TARNAME = @PACKAGE_TARNAME@ PACKAGE_URL = @PACKAGE_URL@ PACKAGE_VERSION = @PACKAGE_VERSION@ PANGOCAIRO_CFLAGS = @PANGOCAIRO_CFLAGS@ PANGOCAIRO_LIBS = @PANGOCAIRO_LIBS@ PANGO_CFLAGS = @PANGO_CFLAGS@ PANGO_LIBS = @PANGO_LIBS@ PATH_SEPARATOR = @PATH_SEPARATOR@ PKG_CONFIG = @PKG_CONFIG@ PKG_CONFIG_LIBDIR = @PKG_CONFIG_LIBDIR@ PKG_CONFIG_PATH = @PKG_CONFIG_PATH@ RANLIB = @RANLIB@ SED = @SED@ SET_MAKE = @SET_MAKE@ SHELL = @SHELL@ STRIP = @STRIP@ VERSION = @VERSION@ WARN_CFLAGS = @WARN_CFLAGS@ abs_builddir = @abs_builddir@ abs_srcdir = @abs_srcdir@ abs_top_builddir = @abs_top_builddir@ abs_top_srcdir = @abs_top_srcdir@ ac_ct_AR = @ac_ct_AR@ ac_ct_CC = @ac_ct_CC@ ac_ct_DUMPBIN = @ac_ct_DUMPBIN@ am__include = @am__include@ am__leading_dot = @am__leading_dot@ am__quote = @am__quote@ am__tar = @am__tar@ am__untar = @am__untar@ bindir = @bindir@ build = @build@ build_alias = @build_alias@ build_cpu = @build_cpu@ build_os = @build_os@ build_vendor = @build_vendor@ builddir = @builddir@ datadir = @datadir@ datarootdir = @datarootdir@ docdir = @docdir@ dvidir = @dvidir@ exec_prefix = @exec_prefix@ host = @host@ host_alias = @host_alias@ host_cpu = @host_cpu@ host_os = @host_os@ host_vendor = @host_vendor@ htmldir = @htmldir@ includedir = @includedir@ infodir = @infodir@ install_sh = @install_sh@ libdir = @libdir@ libexecdir = @libexecdir@ localedir = @localedir@ localstatedir = @localstatedir@ mandir = @mandir@ mkdir_p = @mkdir_p@ oldincludedir = @oldincludedir@ pdfdir = @pdfdir@ prefix = @prefix@ program_transform_name = @program_transform_name@ psdir = @psdir@ sbindir = @sbindir@ sharedstatedir = @sharedstatedir@ srcdir = @srcdir@ sysconfdir = @sysconfdir@ target_alias = @target_alias@ top_build_prefix = @top_build_prefix@ top_builddir = @top_builddir@ top_srcdir = @top_srcdir@ guilegnomedir = $(datadir)/guile-gnome-@API_VERSION@ guilemoduledir = $(guilegnomedir)/gnome guilegwmoduledir = $(guilegnomedir)/gnome/gw guilegnomelibdir = $(libdir)/guile-gnome-@API_VERSION@ AM_CFLAGS = -I. -I$(srcdir) $(WARN_CFLAGS) $(DEBUG_CFLAGS) # For overriding from the command line (e.g. --debug) GUILE_FLAGS = SUFFIXES = .x .doc GUILE_SNARF_CFLAGS = $(DEFS) $(AM_CFLAGS) $(GUILE_CFLAGS) $(G_WRAP_CFLAGS) PACKAGES = atk cairo corba defs gconf glib gnome-vfs gtk libglade libgnome libgnomecanvas libgnomeui pango SOURCE_GUILE_PATH = $(shell echo $(addprefix $(top_srcdir)/,$(PACKAGES)) | sed -e 's/ /:/g'):$(srcdir) BUILD_GUILE_PATH = $(if $(filter-out $(top_srcdir),$(top_builddir)),$(shell echo -n $(addprefix $(top_builddir)/,$(PACKAGES)): | sed -e 's/ /:/g'),) GUILE_LOAD_PATH := $(BUILD_GUILE_PATH)$(SOURCE_GUILE_PATH):${G_WRAP_MODULE_DIR}:${GUILE_LOAD_PATH} # Real gnu make foo packages = $(filter-out %-uninstalled,$(patsubst %.pc.in,%,$(notdir $(wildcard $(srcdir)/*.pc.in)))) pcifiles = $(patsubst %,%-@API_VERSION@.pc,$(packages)) pcufiles = $(patsubst %,%-@API_VERSION@-uninstalled.pc,$(packages)) guilegwmodule_DATA = gconf-spec.scm gconf.scm EXTRA_DIST = gconf-spec.scm # There is one shared library for each wrapset. Each is produced by # g-wrap, but also may contain some hand-coded routines. guilegnomelib_LTLIBRARIES = libgw-guile-gnome-gconf.la ######################################################################## nodist_libgw_guile_gnome_gconf_la_SOURCES = guile-gnome-gw-gconf.c libgw_guile_gnome_gconf_la_SOURCES = gconf-support.c gconf-support.h libgw_guile_gnome_gconf_la_CFLAGS = $(GUILE_GLIB_CFLAGS) \ $(AM_CFLAGS) $(GCONF_CFLAGS) $(GUILE_CFLAGS) \ $(G_WRAP_CFLAGS) libgw_guile_gnome_gconf_la_LIBADD = $(GCONF_LIBS) $(GUILE_LIBS) \ $(G_WRAP_LIBS) $(GUILE_GLIB_LIBS) libgw_guile_gnome_gconf_la_LDFLAGS = -module CLEANFILES = $(wildcard gnome-*.log) \ $(wildcard guile-gnome-gw-gconf.*) gconf.scm BUILT_SOURCES = guile-gnome-gw-gconf.c $(DOT_X_FILES) all: $(BUILT_SOURCES) $(MAKE) $(AM_MAKEFLAGS) all-am .SUFFIXES: .SUFFIXES: .x .doc .c .lo .o .obj $(srcdir)/Makefile.in: $(srcdir)/Makefile.am $(top_srcdir)/common.mk $(am__configure_deps) @for dep in $?; do \ case '$(am__configure_deps)' in \ *$$dep*) \ ( cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh ) \ && { if test -f $@; then exit 0; else break; fi; }; \ exit 1;; \ esac; \ done; \ echo ' cd $(top_srcdir) && $(AUTOMAKE) --gnu gconf/gnome/gw/Makefile'; \ $(am__cd) $(top_srcdir) && \ $(AUTOMAKE) --gnu gconf/gnome/gw/Makefile .PRECIOUS: Makefile Makefile: $(srcdir)/Makefile.in $(top_builddir)/config.status @case '$?' in \ *config.status*) \ cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh;; \ *) \ echo ' cd $(top_builddir) && $(SHELL) ./config.status $(subdir)/$@ $(am__depfiles_maybe)'; \ cd $(top_builddir) && $(SHELL) ./config.status $(subdir)/$@ $(am__depfiles_maybe);; \ esac; $(top_srcdir)/common.mk: $(top_builddir)/config.status: $(top_srcdir)/configure $(CONFIG_STATUS_DEPENDENCIES) cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh $(top_srcdir)/configure: $(am__configure_deps) cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh $(ACLOCAL_M4): $(am__aclocal_m4_deps) cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh $(am__aclocal_m4_deps): install-guilegnomelibLTLIBRARIES: $(guilegnomelib_LTLIBRARIES) @$(NORMAL_INSTALL) @list='$(guilegnomelib_LTLIBRARIES)'; test -n "$(guilegnomelibdir)" || list=; \ list2=; for p in $$list; do \ if test -f $$p; then \ list2="$$list2 $$p"; \ else :; fi; \ done; \ test -z "$$list2" || { \ echo " $(MKDIR_P) '$(DESTDIR)$(guilegnomelibdir)'"; \ $(MKDIR_P) "$(DESTDIR)$(guilegnomelibdir)" || exit 1; \ echo " $(LIBTOOL) $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=install $(INSTALL) $(INSTALL_STRIP_FLAG) $$list2 '$(DESTDIR)$(guilegnomelibdir)'"; \ $(LIBTOOL) $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=install $(INSTALL) $(INSTALL_STRIP_FLAG) $$list2 "$(DESTDIR)$(guilegnomelibdir)"; \ } uninstall-guilegnomelibLTLIBRARIES: @$(NORMAL_UNINSTALL) @list='$(guilegnomelib_LTLIBRARIES)'; test -n "$(guilegnomelibdir)" || list=; \ for p in $$list; do \ $(am__strip_dir) \ echo " $(LIBTOOL) $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=uninstall rm -f '$(DESTDIR)$(guilegnomelibdir)/$$f'"; \ $(LIBTOOL) $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=uninstall rm -f "$(DESTDIR)$(guilegnomelibdir)/$$f"; \ done clean-guilegnomelibLTLIBRARIES: -test -z "$(guilegnomelib_LTLIBRARIES)" || rm -f $(guilegnomelib_LTLIBRARIES) @list='$(guilegnomelib_LTLIBRARIES)'; for p in $$list; do \ dir="`echo $$p | sed -e 's|/[^/]*$$||'`"; \ test "$$dir" != "$$p" || dir=.; \ echo "rm -f \"$${dir}/so_locations\""; \ rm -f "$${dir}/so_locations"; \ done libgw-guile-gnome-gconf.la: $(libgw_guile_gnome_gconf_la_OBJECTS) $(libgw_guile_gnome_gconf_la_DEPENDENCIES) $(EXTRA_libgw_guile_gnome_gconf_la_DEPENDENCIES) $(libgw_guile_gnome_gconf_la_LINK) -rpath $(guilegnomelibdir) $(libgw_guile_gnome_gconf_la_OBJECTS) $(libgw_guile_gnome_gconf_la_LIBADD) $(LIBS) mostlyclean-compile: -rm -f *.$(OBJEXT) distclean-compile: -rm -f *.tab.c @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/libgw_guile_gnome_gconf_la-gconf-support.Plo@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/libgw_guile_gnome_gconf_la-guile-gnome-gw-gconf.Plo@am__quote@ .c.o: @am__fastdepCC_TRUE@ $(COMPILE) -MT $@ -MD -MP -MF $(DEPDIR)/$*.Tpo -c -o $@ $< @am__fastdepCC_TRUE@ $(am__mv) $(DEPDIR)/$*.Tpo $(DEPDIR)/$*.Po @AMDEP_TRUE@@am__fastdepCC_FALSE@ source='$<' object='$@' libtool=no @AMDEPBACKSLASH@ @AMDEP_TRUE@@am__fastdepCC_FALSE@ DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@ @am__fastdepCC_FALSE@ $(COMPILE) -c $< .c.obj: @am__fastdepCC_TRUE@ $(COMPILE) -MT $@ -MD -MP -MF $(DEPDIR)/$*.Tpo -c -o $@ `$(CYGPATH_W) '$<'` @am__fastdepCC_TRUE@ $(am__mv) $(DEPDIR)/$*.Tpo $(DEPDIR)/$*.Po @AMDEP_TRUE@@am__fastdepCC_FALSE@ source='$<' object='$@' libtool=no @AMDEPBACKSLASH@ @AMDEP_TRUE@@am__fastdepCC_FALSE@ DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@ @am__fastdepCC_FALSE@ $(COMPILE) -c `$(CYGPATH_W) '$<'` .c.lo: @am__fastdepCC_TRUE@ $(LTCOMPILE) -MT $@ -MD -MP -MF $(DEPDIR)/$*.Tpo -c -o $@ $< @am__fastdepCC_TRUE@ $(am__mv) $(DEPDIR)/$*.Tpo $(DEPDIR)/$*.Plo @AMDEP_TRUE@@am__fastdepCC_FALSE@ source='$<' object='$@' libtool=yes @AMDEPBACKSLASH@ @AMDEP_TRUE@@am__fastdepCC_FALSE@ DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@ @am__fastdepCC_FALSE@ $(LTCOMPILE) -c -o $@ $< libgw_guile_gnome_gconf_la-gconf-support.lo: gconf-support.c @am__fastdepCC_TRUE@ $(LIBTOOL) --tag=CC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(AM_CPPFLAGS) $(CPPFLAGS) $(libgw_guile_gnome_gconf_la_CFLAGS) $(CFLAGS) -MT libgw_guile_gnome_gconf_la-gconf-support.lo -MD -MP -MF $(DEPDIR)/libgw_guile_gnome_gconf_la-gconf-support.Tpo -c -o libgw_guile_gnome_gconf_la-gconf-support.lo `test -f 'gconf-support.c' || echo '$(srcdir)/'`gconf-support.c @am__fastdepCC_TRUE@ $(am__mv) $(DEPDIR)/libgw_guile_gnome_gconf_la-gconf-support.Tpo $(DEPDIR)/libgw_guile_gnome_gconf_la-gconf-support.Plo @AMDEP_TRUE@@am__fastdepCC_FALSE@ source='gconf-support.c' object='libgw_guile_gnome_gconf_la-gconf-support.lo' libtool=yes @AMDEPBACKSLASH@ @AMDEP_TRUE@@am__fastdepCC_FALSE@ DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@ @am__fastdepCC_FALSE@ $(LIBTOOL) --tag=CC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(AM_CPPFLAGS) $(CPPFLAGS) $(libgw_guile_gnome_gconf_la_CFLAGS) $(CFLAGS) -c -o libgw_guile_gnome_gconf_la-gconf-support.lo `test -f 'gconf-support.c' || echo '$(srcdir)/'`gconf-support.c libgw_guile_gnome_gconf_la-guile-gnome-gw-gconf.lo: guile-gnome-gw-gconf.c @am__fastdepCC_TRUE@ $(LIBTOOL) --tag=CC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(AM_CPPFLAGS) $(CPPFLAGS) $(libgw_guile_gnome_gconf_la_CFLAGS) $(CFLAGS) -MT libgw_guile_gnome_gconf_la-guile-gnome-gw-gconf.lo -MD -MP -MF $(DEPDIR)/libgw_guile_gnome_gconf_la-guile-gnome-gw-gconf.Tpo -c -o libgw_guile_gnome_gconf_la-guile-gnome-gw-gconf.lo `test -f 'guile-gnome-gw-gconf.c' || echo '$(srcdir)/'`guile-gnome-gw-gconf.c @am__fastdepCC_TRUE@ $(am__mv) $(DEPDIR)/libgw_guile_gnome_gconf_la-guile-gnome-gw-gconf.Tpo $(DEPDIR)/libgw_guile_gnome_gconf_la-guile-gnome-gw-gconf.Plo @AMDEP_TRUE@@am__fastdepCC_FALSE@ source='guile-gnome-gw-gconf.c' object='libgw_guile_gnome_gconf_la-guile-gnome-gw-gconf.lo' libtool=yes @AMDEPBACKSLASH@ @AMDEP_TRUE@@am__fastdepCC_FALSE@ DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@ @am__fastdepCC_FALSE@ $(LIBTOOL) --tag=CC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(AM_CPPFLAGS) $(CPPFLAGS) $(libgw_guile_gnome_gconf_la_CFLAGS) $(CFLAGS) -c -o libgw_guile_gnome_gconf_la-guile-gnome-gw-gconf.lo `test -f 'guile-gnome-gw-gconf.c' || echo '$(srcdir)/'`guile-gnome-gw-gconf.c mostlyclean-libtool: -rm -f *.lo clean-libtool: -rm -rf .libs _libs install-guilegwmoduleDATA: $(guilegwmodule_DATA) @$(NORMAL_INSTALL) @list='$(guilegwmodule_DATA)'; test -n "$(guilegwmoduledir)" || list=; \ if test -n "$$list"; then \ echo " $(MKDIR_P) '$(DESTDIR)$(guilegwmoduledir)'"; \ $(MKDIR_P) "$(DESTDIR)$(guilegwmoduledir)" || exit 1; \ fi; \ for p in $$list; do \ if test -f "$$p"; then d=; else d="$(srcdir)/"; fi; \ echo "$$d$$p"; \ done | $(am__base_list) | \ while read files; do \ echo " $(INSTALL_DATA) $$files '$(DESTDIR)$(guilegwmoduledir)'"; \ $(INSTALL_DATA) $$files "$(DESTDIR)$(guilegwmoduledir)" || exit $$?; \ done uninstall-guilegwmoduleDATA: @$(NORMAL_UNINSTALL) @list='$(guilegwmodule_DATA)'; test -n "$(guilegwmoduledir)" || list=; \ files=`for p in $$list; do echo $$p; done | sed -e 's|^.*/||'`; \ dir='$(DESTDIR)$(guilegwmoduledir)'; $(am__uninstall_files_from_dir) ID: $(HEADERS) $(SOURCES) $(LISP) $(TAGS_FILES) list='$(SOURCES) $(HEADERS) $(LISP) $(TAGS_FILES)'; \ unique=`for i in $$list; do \ if test -f "$$i"; then echo $$i; else echo $(srcdir)/$$i; fi; \ done | \ $(AWK) '{ files[$$0] = 1; nonempty = 1; } \ END { if (nonempty) { for (i in files) print i; }; }'`; \ mkid -fID $$unique tags: TAGS TAGS: $(HEADERS) $(SOURCES) $(TAGS_DEPENDENCIES) \ $(TAGS_FILES) $(LISP) set x; \ here=`pwd`; \ list='$(SOURCES) $(HEADERS) $(LISP) $(TAGS_FILES)'; \ unique=`for i in $$list; do \ if test -f "$$i"; then echo $$i; else echo $(srcdir)/$$i; fi; \ done | \ $(AWK) '{ files[$$0] = 1; nonempty = 1; } \ END { if (nonempty) { for (i in files) print i; }; }'`; \ shift; \ if test -z "$(ETAGS_ARGS)$$*$$unique"; then :; else \ test -n "$$unique" || unique=$$empty_fix; \ if test $$# -gt 0; then \ $(ETAGS) $(ETAGSFLAGS) $(AM_ETAGSFLAGS) $(ETAGS_ARGS) \ "$$@" $$unique; \ else \ $(ETAGS) $(ETAGSFLAGS) $(AM_ETAGSFLAGS) $(ETAGS_ARGS) \ $$unique; \ fi; \ fi ctags: CTAGS CTAGS: $(HEADERS) $(SOURCES) $(TAGS_DEPENDENCIES) \ $(TAGS_FILES) $(LISP) list='$(SOURCES) $(HEADERS) $(LISP) $(TAGS_FILES)'; \ unique=`for i in $$list; do \ if test -f "$$i"; then echo $$i; else echo $(srcdir)/$$i; fi; \ done | \ $(AWK) '{ files[$$0] = 1; nonempty = 1; } \ END { if (nonempty) { for (i in files) print i; }; }'`; \ test -z "$(CTAGS_ARGS)$$unique" \ || $(CTAGS) $(CTAGSFLAGS) $(AM_CTAGSFLAGS) $(CTAGS_ARGS) \ $$unique GTAGS: here=`$(am__cd) $(top_builddir) && pwd` \ && $(am__cd) $(top_srcdir) \ && gtags -i $(GTAGS_ARGS) "$$here" distclean-tags: -rm -f TAGS ID GTAGS GRTAGS GSYMS GPATH tags distdir: $(DISTFILES) @srcdirstrip=`echo "$(srcdir)" | sed 's/[].[^$$\\*]/\\\\&/g'`; \ topsrcdirstrip=`echo "$(top_srcdir)" | sed 's/[].[^$$\\*]/\\\\&/g'`; \ list='$(DISTFILES)'; \ dist_files=`for file in $$list; do echo $$file; done | \ sed -e "s|^$$srcdirstrip/||;t" \ -e "s|^$$topsrcdirstrip/|$(top_builddir)/|;t"`; \ case $$dist_files in \ */*) $(MKDIR_P) `echo "$$dist_files" | \ sed '/\//!d;s|^|$(distdir)/|;s,/[^/]*$$,,' | \ sort -u` ;; \ esac; \ for file in $$dist_files; do \ if test -f $$file || test -d $$file; then d=.; else d=$(srcdir); fi; \ if test -d $$d/$$file; then \ dir=`echo "/$$file" | sed -e 's,/[^/]*$$,,'`; \ if test -d "$(distdir)/$$file"; then \ find "$(distdir)/$$file" -type d ! -perm -700 -exec chmod u+rwx {} \;; \ fi; \ if test -d $(srcdir)/$$file && test $$d != $(srcdir); then \ cp -fpR $(srcdir)/$$file "$(distdir)$$dir" || exit 1; \ find "$(distdir)/$$file" -type d ! -perm -700 -exec chmod u+rwx {} \;; \ fi; \ cp -fpR $$d/$$file "$(distdir)$$dir" || exit 1; \ else \ test -f "$(distdir)/$$file" \ || cp -p $$d/$$file "$(distdir)/$$file" \ || exit 1; \ fi; \ done check-am: all-am check: $(BUILT_SOURCES) $(MAKE) $(AM_MAKEFLAGS) check-am all-am: Makefile $(LTLIBRARIES) $(DATA) installdirs: for dir in "$(DESTDIR)$(guilegnomelibdir)" "$(DESTDIR)$(guilegwmoduledir)"; do \ test -z "$$dir" || $(MKDIR_P) "$$dir"; \ done install: $(BUILT_SOURCES) $(MAKE) $(AM_MAKEFLAGS) install-am install-exec: install-exec-am install-data: install-data-am uninstall: uninstall-am install-am: all-am @$(MAKE) $(AM_MAKEFLAGS) install-exec-am install-data-am installcheck: installcheck-am install-strip: if test -z '$(STRIP)'; then \ $(MAKE) $(AM_MAKEFLAGS) INSTALL_PROGRAM="$(INSTALL_STRIP_PROGRAM)" \ install_sh_PROGRAM="$(INSTALL_STRIP_PROGRAM)" INSTALL_STRIP_FLAG=-s \ install; \ else \ $(MAKE) $(AM_MAKEFLAGS) INSTALL_PROGRAM="$(INSTALL_STRIP_PROGRAM)" \ install_sh_PROGRAM="$(INSTALL_STRIP_PROGRAM)" INSTALL_STRIP_FLAG=-s \ "INSTALL_PROGRAM_ENV=STRIPPROG='$(STRIP)'" install; \ fi mostlyclean-generic: clean-generic: -test -z "$(CLEANFILES)" || rm -f $(CLEANFILES) distclean-generic: -test -z "$(CONFIG_CLEAN_FILES)" || rm -f $(CONFIG_CLEAN_FILES) -test . = "$(srcdir)" || test -z "$(CONFIG_CLEAN_VPATH_FILES)" || rm -f $(CONFIG_CLEAN_VPATH_FILES) maintainer-clean-generic: @echo "This command is intended for maintainers to use" @echo "it deletes files that may require special tools to rebuild." -test -z "$(BUILT_SOURCES)" || rm -f $(BUILT_SOURCES) clean: clean-am clean-am: clean-generic clean-guilegnomelibLTLIBRARIES clean-libtool \ mostlyclean-am distclean: distclean-am -rm -rf ./$(DEPDIR) -rm -f Makefile distclean-am: clean-am distclean-compile distclean-generic \ distclean-tags dvi: dvi-am dvi-am: html: html-am html-am: info: info-am info-am: install-data-am: install-guilegnomelibLTLIBRARIES \ install-guilegwmoduleDATA install-dvi: install-dvi-am install-dvi-am: install-exec-am: install-html: install-html-am install-html-am: install-info: install-info-am install-info-am: install-man: install-pdf: install-pdf-am install-pdf-am: install-ps: install-ps-am install-ps-am: installcheck-am: maintainer-clean: maintainer-clean-am -rm -rf ./$(DEPDIR) -rm -f Makefile maintainer-clean-am: distclean-am maintainer-clean-generic mostlyclean: mostlyclean-am mostlyclean-am: mostlyclean-compile mostlyclean-generic \ mostlyclean-libtool pdf: pdf-am pdf-am: ps: ps-am ps-am: uninstall-am: uninstall-guilegnomelibLTLIBRARIES \ uninstall-guilegwmoduleDATA .MAKE: all check install install-am install-strip .PHONY: CTAGS GTAGS all all-am check check-am clean clean-generic \ clean-guilegnomelibLTLIBRARIES clean-libtool ctags distclean \ distclean-compile distclean-generic distclean-libtool \ distclean-tags distdir dvi dvi-am html html-am info info-am \ install install-am install-data install-data-am install-dvi \ install-dvi-am install-exec install-exec-am \ install-guilegnomelibLTLIBRARIES install-guilegwmoduleDATA \ install-html install-html-am install-info install-info-am \ install-man install-pdf install-pdf-am install-ps \ install-ps-am install-strip installcheck installcheck-am \ installdirs maintainer-clean maintainer-clean-generic \ mostlyclean mostlyclean-compile mostlyclean-generic \ mostlyclean-libtool pdf pdf-am ps ps-am tags uninstall \ uninstall-am uninstall-guilegnomelibLTLIBRARIES \ uninstall-guilegwmoduleDATA export GUILE_LOAD_PATH .c.x: guile-snarf $(GUILE_SNARF_CFLAGS) $< > $@ \ || { rm $@; false; } .c.doc: $(CPP) -DSCM_MAGIC_SNARF_DOCS $(GUILE_SNARF_CFLAGS) $< \ | grep -E '(\^\^ {|\^\^ })' > $@ || { rm $@; false; } %.scm guile-gnome-gw-%.c: %-spec.scm guile $(GUILE_FLAGS) -c \ "(debug-set! stack 400000) \ (use-modules (gnome-@API_VERSION@)) \ (use-modules (g-wrap)) \ (use-modules (gnome gw $*-spec)) \ (generate-wrapset 'guile 'gnome-$* \"guile-gnome-gw-$*\")" mv guile-gnome-gw-$*.scm $*.scm %-@API_VERSION@.pc: %.pc cp $< $@ %-@API_VERSION@-uninstalled.pc: %-uninstalled.pc cp $< $@ # Tell versions [3.59,3.63) of GNU make to not export all variables. # Otherwise a system limit (for SysV at least) may be exceeded. .NOEXPORT: guile-gnome-platform-2.16.2/gconf/gnome/gw/gconf-spec.scm0000644000175000017500000000562511670374302023545 0ustar00wingowingo00000000000000;; guile-gnome ;; Copyright (C) 2004 Free Software Foundation, Inc. ;; This program is free software; you can redistribute it and/or ;; modify it under the terms of the GNU General Public License as ;; published by the Free Software Foundation; either version 2 of ;; the License, or (at your option) any later version. ;; ;; This program is distributed in the hope that it will be useful, ;; but WITHOUT ANY WARRANTY; without even the implied warranty of ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the ;; GNU General Public License for more details. ;; ;; You should have received a copy of the GNU General Public License ;; along with this program; if not, contact: ;; ;; Free Software Foundation Voice: +1-617-542-5942 ;; 59 Temple Place - Suite 330 Fax: +1-617-542-2652 ;; Boston, MA 02111-1307, USA gnu@gnu.org ;;; Commentary: ;; ;;g-wrap specification for gconf. ;; ;;; Code: (define-module (gnome gw gconf-spec) #:use-module (oop goops) #:use-module (gnome gw support g-wrap) #:use-module (gnome gw gobject-spec) #:use-module (gnome gw support defs) #:use-module (gnome gw support gobject)) (define-class () #:id 'gnome-gconf #:dependencies '(standard gnome-glib gnome-gobject)) (define-method (initialize (ws ) initargs) (next-method ws (cons #:module (cons '(gnome gw gconf) initargs))) (add-type! ws (make #:gtype-id "_GCONF_TYPE_VALUE" #:ctype "GConfValue" #:c-type-name "GConfValue*" #:c-const-type-name "const GConfValue*" #:ffspec 'pointer #:wrapped "Custom")) (add-type-alias! ws "GConfValue*" ') (add-type-alias! ws "GConfUnsetFlags" 'unsigned-int) (load-defs-with-overrides ws "gnome/defs/gconf.defs")) (define-method (global-declarations-cg (self )) (list (next-method) "#include \n" "#include \n" "#include \n" "#include \"gconf-support.h\"\n")) (define-class ()) (define-method (unwrap-value-cg (type ) (value ) status-var) (let ((c-var (var value)) (scm-var (scm-var value))) (list c-var " = scm_c_scm_to_gconf_value (" scm-var ");\n"))) (define-method (wrap-value-cg (type ) (value ) status-var) (let ((c-var (var value)) (scm-var (scm-var value))) (list scm-var " = scm_c_gconf_value_to_scm (" c-var ");\n"))) guile-gnome-platform-2.16.2/gconf/gnome/gw/gconf-support.c0000644000175000017500000002336111670374302023764 0ustar00wingowingo00000000000000/* guile-gnome * Copyright (C) 2004, 2010 Free Software Foundation, Inc. * * gconf-support.c: Support routines for the gconf wrapper * * This program is free software; you can redistribute it and/or * modify it under the terms of the GNU General Public License as * published by the Free Software Foundation; either version 2 of * the License, or (at your option) any later version. * * This program is distributed in the hope that it will be useful, * but WITHOUT ANY WARRANTY; without even the implied warranty of * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the * GNU General Public License for more details. * * You should have received a copy of the GNU General Public License * along with this program; if not, contact: * * Free Software Foundation Voice: +1-617-542-5942 * 59 Temple Place - Suite 330 Fax: +1-617-542-2652 * Boston, MA 02111-1307, USA gnu@gnu.org */ #include "guile-support.h" #include "gconf-support.h" #include "guile-gnome-gobject.h" #define GRUNTIME_ERROR(format, func_name, args...) \ scm_error_scm (scm_from_locale_symbol ("gruntime-error"), scm_from_locale_string (func_name), \ scm_simple_format (SCM_BOOL_F, scm_from_locale_string (format), \ scm_list_n (args, SCM_UNDEFINED)), \ SCM_EOL, SCM_EOL) GType _gconf_schema_get_type (void) { static GType t = 0; if (!t) t = g_boxed_type_register_static ("GConfSchema", (GBoxedCopyFunc)gconf_schema_copy, (GBoxedFreeFunc)gconf_schema_free); return t; } GType _gconf_value_get_type (void) { static GType t = 0; if (!t) t = g_boxed_type_register_static ("GConfValue", (GBoxedCopyFunc)gconf_value_copy, (GBoxedFreeFunc)gconf_value_free); return t; } SCM scm_c_gconf_value_to_scm (const GConfValue *value) { if (!value) scm_throw (scm_from_locale_symbol ("value-unset"), SCM_EOL); switch (value->type) { case GCONF_VALUE_STRING: return scm_from_locale_string (gconf_value_get_string (value)); case GCONF_VALUE_INT: return scm_from_int (gconf_value_get_int (value)); case GCONF_VALUE_FLOAT: return scm_from_double (gconf_value_get_float (value)); case GCONF_VALUE_BOOL: return SCM_BOOL (gconf_value_get_bool (value)); case GCONF_VALUE_SCHEMA: return scm_c_gvalue_new_from_boxed (_GCONF_TYPE_SCHEMA, gconf_value_get_schema (value)); case GCONF_VALUE_LIST: { SCM ret = SCM_EOL; GSList *head, *walk; GConfValueType t; t = gconf_value_get_list_type (value); head = gconf_value_get_list (value); for (walk = head; walk; walk = walk->next) { switch (t) { case GCONF_VALUE_STRING: ret = scm_cons (scm_from_locale_string ((char*)walk->data), ret); g_free (walk->data); break; case GCONF_VALUE_INT: ret = scm_cons (scm_from_int (GPOINTER_TO_INT (walk->data)), ret); break; case GCONF_VALUE_FLOAT: ret = scm_cons (scm_from_double (*(float*)walk->data), ret); g_free (walk->data); break; case GCONF_VALUE_BOOL: ret = scm_cons (SCM_BOOL (walk->data), ret); break; case GCONF_VALUE_SCHEMA: ret = scm_cons (scm_c_gvalue_new_from_boxed (_GCONF_TYPE_SCHEMA, walk->data), ret); break; default: scm_throw (scm_from_locale_symbol ("unknown-value"), SCM_LIST1 (scm_from_int (t))); } } g_slist_free (head); return scm_reverse_x (ret, SCM_UNBOUND); } case GCONF_VALUE_PAIR: return scm_cons (scm_c_gconf_value_to_scm (gconf_value_get_car (value)), scm_c_gconf_value_to_scm (gconf_value_get_cdr (value))); default: scm_throw (scm_from_locale_symbol ("unknown-value"), SCM_LIST1 (scm_from_int (value->type))); } return SCM_BOOL_F; /* shouldn't get here */ } #define FUNC_NAME "scm->gconf-value" static GConfValueType sniff_list_type (SCM l) { SCM walk; SCM value; /* since we checked with pair_p below, we know there's at least one * element */ value = SCM_CAR (l); if (SCM_FALSEP (value) || SCM_EQ_P (value, SCM_BOOL_T)) { for (walk=l; SCM_NNULLP (walk); walk = SCM_CDR (walk)) { value = SCM_CAR (walk); if (!(SCM_FALSEP (value) || SCM_EQ_P (value, SCM_BOOL_T))) scm_misc_error (FUNC_NAME, "Invalid subelement", scm_list_1 (value)); } return GCONF_VALUE_BOOL; } if (scm_is_signed_integer (value, SCM_T_INT32_MIN, SCM_T_INT32_MAX)) { for (walk=l; SCM_NNULLP (walk); walk = SCM_CDR (walk)) { value = SCM_CAR (walk); if (!(scm_is_signed_integer (value, SCM_T_INT32_MIN, SCM_T_INT32_MAX))) scm_misc_error (FUNC_NAME, "Invalid subelement", scm_list_1 (value)); } return GCONF_VALUE_INT; } if (SCM_NFALSEP (scm_inexact_p (value))) { for (walk=l; SCM_NNULLP (walk); walk = SCM_CDR (walk)) { value = SCM_CAR (walk); if (!(SCM_NFALSEP (scm_inexact_p (value)))) scm_misc_error (FUNC_NAME, "Invalid subelement", scm_list_1 (value)); } return GCONF_VALUE_FLOAT; } if (scm_is_string (value)) { for (walk=l; SCM_NNULLP (walk); walk = SCM_CDR (walk)) { value = SCM_CAR (walk); if (!(scm_is_string (value))) scm_misc_error (FUNC_NAME, "Invalid subelement", scm_list_1 (value)); } return GCONF_VALUE_STRING; } if (SCM_GVALUEP (value)) { GValue *tmp; /* never allocated */ SCM_VALIDATE_GVALUE_TYPE_COPY (1, value, _GCONF_TYPE_SCHEMA, tmp); for (walk=l; SCM_NNULLP (walk); walk = SCM_CDR (walk)) { value = SCM_CAR (walk); SCM_VALIDATE_GVALUE_TYPE_COPY (1, value, _GCONF_TYPE_SCHEMA, tmp); } return GCONF_VALUE_SCHEMA; } scm_misc_error (FUNC_NAME, "Invalid list", scm_list_1 (l)); return 0; } GConfValue* scm_c_scm_to_gconf_value (SCM value) { GConfValue *ret = NULL; if (SCM_FALSEP (value) || SCM_EQ_P (value, SCM_BOOL_T)) { ret = gconf_value_new (GCONF_VALUE_BOOL); gconf_value_set_bool (ret, SCM_NFALSEP (value)); } else if (scm_is_signed_integer (value, SCM_T_INT32_MIN, SCM_T_INT32_MAX)) { ret = gconf_value_new (GCONF_VALUE_INT); gconf_value_set_int (ret, scm_to_int (value)); } else if (SCM_NFALSEP (scm_exact_p (value))) { if (SCM_NFALSEP (scm_leq_p (value, scm_from_uint (G_MAXINT)))) { ret = gconf_value_new (GCONF_VALUE_INT); gconf_value_set_int (ret, scm_to_int (value)); } else { scm_misc_error (FUNC_NAME, "Invalid value: ~A", scm_list_1 (value)); } } else if (SCM_NFALSEP (scm_inexact_p (value))) { ret = gconf_value_new (GCONF_VALUE_FLOAT); gconf_value_set_float (ret, scm_to_double (value)); } else if (scm_is_string (value)) { char *chars; ret = gconf_value_new (GCONF_VALUE_STRING); chars = scm_to_locale_string (value); gconf_value_set_string (ret, chars); free (chars); } else if (scm_pair_p (value)) { if (scm_pair_p (SCM_CDR (value))) { GConfValueType t = sniff_list_type (value); SCM walk; GSList *l = NULL; for (walk = value; SCM_NNULLP (walk); walk = SCM_CDR (walk)) l = g_slist_prepend (l, scm_c_scm_to_gconf_value (SCM_CAR (walk))); ret = gconf_value_new (GCONF_VALUE_LIST); gconf_value_set_list_type (ret, t); l = g_slist_reverse (l); gconf_value_set_list (ret, l); g_slist_free (l); } else { ret = gconf_value_new (GCONF_VALUE_PAIR); gconf_value_set_car (ret, scm_c_scm_to_gconf_value (SCM_CAR (value))); gconf_value_set_cdr (ret, scm_c_scm_to_gconf_value (SCM_CDR (value))); } } else { scm_misc_error (FUNC_NAME, "Invalid value: ~A", scm_list_1 (value)); } return ret; } #undef FUNC_NAME static void with_notify_proc (GConfClient *client, guint cnxn_id, GConfEntry *entry, gpointer user_data) { SCM sclient, key, val, proc; proc = GPOINTER_TO_SCM (user_data); sclient = scm_c_gtype_instance_to_scm ((GTypeInstance*)client); key = scm_from_locale_symbol (gconf_entry_get_key (entry)); val = scm_c_gconf_value_to_scm (gconf_entry_get_value (entry)); scm_call_4 (proc, sclient, scm_from_uint (cnxn_id), key, val); } static void notify_proc (GConfClient *client, guint cnxn_id, GConfEntry *entry, gpointer user_data) { scm_dynwind_guile_v__p_u_p_p (scm_with_guile, with_notify_proc, client, cnxn_id, entry, user_data); } guint _wrap_gconf_client_notify_add (GConfClient *client, const gchar *namespace_section, SCM proc, GError **err) { return gconf_client_notify_add (client, namespace_section, notify_proc, SCM_TO_GPOINTER (scm_gc_protect_object (proc)), (GFreeFunc)scm_gc_unprotect_object, err); } guile-gnome-platform-2.16.2/gconf/gnome/gconf.scm0000644000175000017500000000235211670374302022172 0ustar00wingowingo00000000000000;; guile-gnome ;; Copyright (C) 2004 Free Software Foundation, Inc. ;; This program is free software; you can redistribute it and/or ;; modify it under the terms of the GNU General Public License as ;; published by the Free Software Foundation; either version 2 of ;; the License, or (at your option) any later version. ;; ;; This program is distributed in the hope that it will be useful, ;; but WITHOUT ANY WARRANTY; without even the implied warranty of ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the ;; GNU General Public License for more details. ;; ;; You should have received a copy of the GNU General Public License ;; along with this program; if not, contact: ;; ;; Free Software Foundation Voice: +1-617-542-5942 ;; 59 Temple Place - Suite 330 Fax: +1-617-542-2652 ;; Boston, MA 02111-1307, USA gnu@gnu.org ;;; Commentary: ;; ;;Template bindings. ;; ;;[...] ;; ;;; Code: (define-module (gnome gconf) #:use-module (gnome gw gconf) #:use-module (gnome gw support modules)) (re-export-modules (gnome gw gconf)) guile-gnome-platform-2.16.2/gconf/gnome/Makefile.am0000644000175000017500000000027511670374302022430 0ustar00wingowingo00000000000000include $(top_srcdir)/common.mk SUBDIRS = overrides guilemodule_DATA = if HAVE_GCONF SUBDIRS += gw guilemodule_DATA += gconf.scm endif EXTRA_DIST = gconf.scm DIST_SUBDIRS = gw overrides guile-gnome-platform-2.16.2/gconf/gnome/Makefile.in0000644000175000017500000005744211752520720022447 0ustar00wingowingo00000000000000# Makefile.in generated by automake 1.11.5 from Makefile.am. # @configure_input@ # Copyright (C) 1994, 1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, # 2003, 2004, 2005, 2006, 2007, 2008, 2009, 2010, 2011 Free Software # Foundation, Inc. # This Makefile.in is free software; the Free Software Foundation # gives unlimited permission to copy and/or distribute it, # with or without modifications, as long as this notice is preserved. # This program is distributed in the hope that it will be useful, # but WITHOUT ANY WARRANTY, to the extent permitted by law; without # even the implied warranty of MERCHANTABILITY or FITNESS FOR A # PARTICULAR PURPOSE. @SET_MAKE@ # guile-gnome # Copyright (C) 2003,2004,2009,2012 Free Software Foundation, Inc. # This program is free software; you can redistribute it and/or # modify it under the terms of the GNU General Public License as # published by the Free Software Foundation; either version 2 of # the License, or (at your option) any later version. # This program is distributed in the hope that it will be useful, # but WITHOUT ANY WARRANTY; without even the implied warranty of # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the # GNU General Public License for more details. # You should have received a copy of the GNU General Public License # along with this program; if not, contact: # Free Software Foundation Voice: +1-617-542-5942 # 59 Temple Place - Suite 330 Fax: +1-617-542-2652 # Boston, MA 02111-1307, USA gnu@gnu.org # # Makefile snippet # VPATH = @srcdir@ am__make_dryrun = \ { \ am__dry=no; \ case $$MAKEFLAGS in \ *\\[\ \ ]*) \ echo 'am--echo: ; @echo "AM" OK' | $(MAKE) -f - 2>/dev/null \ | grep '^AM OK$$' >/dev/null || am__dry=yes;; \ *) \ for am__flg in $$MAKEFLAGS; do \ case $$am__flg in \ *=*|--*) ;; \ *n*) am__dry=yes; break;; \ esac; \ done;; \ esac; \ test $$am__dry = yes; \ } pkgdatadir = $(datadir)/@PACKAGE@ pkgincludedir = $(includedir)/@PACKAGE@ pkglibdir = $(libdir)/@PACKAGE@ pkglibexecdir = $(libexecdir)/@PACKAGE@ am__cd = CDPATH="$${ZSH_VERSION+.}$(PATH_SEPARATOR)" && cd install_sh_DATA = $(install_sh) -c -m 644 install_sh_PROGRAM = $(install_sh) -c install_sh_SCRIPT = $(install_sh) -c INSTALL_HEADER = $(INSTALL_DATA) transform = $(program_transform_name) NORMAL_INSTALL = : PRE_INSTALL = : POST_INSTALL = : NORMAL_UNINSTALL = : PRE_UNINSTALL = : POST_UNINSTALL = : build_triplet = @build@ host_triplet = @host@ DIST_COMMON = $(srcdir)/Makefile.am $(srcdir)/Makefile.in \ $(top_srcdir)/common.mk @HAVE_GCONF_TRUE@am__append_1 = gw @HAVE_GCONF_TRUE@am__append_2 = gconf.scm subdir = gconf/gnome ACLOCAL_M4 = $(top_srcdir)/aclocal.m4 am__aclocal_m4_deps = $(top_srcdir)/configure.ac am__configure_deps = $(am__aclocal_m4_deps) $(CONFIGURE_DEPENDENCIES) \ $(ACLOCAL_M4) mkinstalldirs = $(install_sh) -d CONFIG_HEADER = $(top_builddir)/config.h CONFIG_CLEAN_FILES = CONFIG_CLEAN_VPATH_FILES = SOURCES = DIST_SOURCES = RECURSIVE_TARGETS = all-recursive check-recursive dvi-recursive \ html-recursive info-recursive install-data-recursive \ install-dvi-recursive install-exec-recursive \ install-html-recursive install-info-recursive \ install-pdf-recursive install-ps-recursive install-recursive \ installcheck-recursive installdirs-recursive pdf-recursive \ ps-recursive uninstall-recursive am__can_run_installinfo = \ case $$AM_UPDATE_INFO_DIR in \ n|no|NO) false;; \ *) (install-info --version) >/dev/null 2>&1;; \ esac am__vpath_adj_setup = srcdirstrip=`echo "$(srcdir)" | sed 's|.|.|g'`; am__vpath_adj = case $$p in \ $(srcdir)/*) f=`echo "$$p" | sed "s|^$$srcdirstrip/||"`;; \ *) f=$$p;; \ esac; am__strip_dir = f=`echo $$p | sed -e 's|^.*/||'`; am__install_max = 40 am__nobase_strip_setup = \ srcdirstrip=`echo "$(srcdir)" | sed 's/[].[^$$\\*|]/\\\\&/g'` am__nobase_strip = \ for p in $$list; do echo "$$p"; done | sed -e "s|$$srcdirstrip/||" am__nobase_list = $(am__nobase_strip_setup); \ for p in $$list; do echo "$$p $$p"; done | \ sed "s| $$srcdirstrip/| |;"' / .*\//!s/ .*/ ./; s,\( .*\)/[^/]*$$,\1,' | \ $(AWK) 'BEGIN { files["."] = "" } { files[$$2] = files[$$2] " " $$1; \ if (++n[$$2] == $(am__install_max)) \ { print $$2, files[$$2]; n[$$2] = 0; files[$$2] = "" } } \ END { for (dir in files) print dir, files[dir] }' am__base_list = \ sed '$$!N;$$!N;$$!N;$$!N;$$!N;$$!N;$$!N;s/\n/ /g' | \ sed '$$!N;$$!N;$$!N;$$!N;s/\n/ /g' am__uninstall_files_from_dir = { \ test -z "$$files" \ || { test ! -d "$$dir" && test ! -f "$$dir" && test ! -r "$$dir"; } \ || { echo " ( cd '$$dir' && rm -f" $$files ")"; \ $(am__cd) "$$dir" && rm -f $$files; }; \ } am__installdirs = "$(DESTDIR)$(guilemoduledir)" DATA = $(guilemodule_DATA) RECURSIVE_CLEAN_TARGETS = mostlyclean-recursive clean-recursive \ distclean-recursive maintainer-clean-recursive AM_RECURSIVE_TARGETS = $(RECURSIVE_TARGETS:-recursive=) \ $(RECURSIVE_CLEAN_TARGETS:-recursive=) tags TAGS ctags CTAGS \ distdir ETAGS = etags CTAGS = ctags DISTFILES = $(DIST_COMMON) $(DIST_SOURCES) $(TEXINFOS) $(EXTRA_DIST) am__relativize = \ dir0=`pwd`; \ sed_first='s,^\([^/]*\)/.*$$,\1,'; \ sed_rest='s,^[^/]*/*,,'; \ sed_last='s,^.*/\([^/]*\)$$,\1,'; \ sed_butlast='s,/*[^/]*$$,,'; \ while test -n "$$dir1"; do \ first=`echo "$$dir1" | sed -e "$$sed_first"`; \ if test "$$first" != "."; then \ if test "$$first" = ".."; then \ dir2=`echo "$$dir0" | sed -e "$$sed_last"`/"$$dir2"; \ dir0=`echo "$$dir0" | sed -e "$$sed_butlast"`; \ else \ first2=`echo "$$dir2" | sed -e "$$sed_first"`; \ if test "$$first2" = "$$first"; then \ dir2=`echo "$$dir2" | sed -e "$$sed_rest"`; \ else \ dir2="../$$dir2"; \ fi; \ dir0="$$dir0"/"$$first"; \ fi; \ fi; \ dir1=`echo "$$dir1" | sed -e "$$sed_rest"`; \ done; \ reldir="$$dir2" ACLOCAL = @ACLOCAL@ AG_PKG_CONFIG_PATH = @AG_PKG_CONFIG_PATH@ AMTAR = @AMTAR@ API_VERSION = @API_VERSION@ AR = @AR@ ATK_CFLAGS = @ATK_CFLAGS@ ATK_LIBS = @ATK_LIBS@ AUTOCONF = @AUTOCONF@ AUTOHEADER = @AUTOHEADER@ AUTOMAKE = @AUTOMAKE@ AWK = @AWK@ BONOBO_IDL_DIR = @BONOBO_IDL_DIR@ CANVAS_CFLAGS = @CANVAS_CFLAGS@ CANVAS_LIBS = @CANVAS_LIBS@ CC = @CC@ CCDEPMODE = @CCDEPMODE@ CFLAGS = @CFLAGS@ CORBA_CFLAGS = @CORBA_CFLAGS@ CORBA_LIBS = @CORBA_LIBS@ CPP = @CPP@ CPPFLAGS = @CPPFLAGS@ CYGPATH_W = @CYGPATH_W@ DEFS = @DEFS@ DEPDIR = @DEPDIR@ DLLTOOL = @DLLTOOL@ DSYMUTIL = @DSYMUTIL@ DUMPBIN = @DUMPBIN@ ECHO_C = @ECHO_C@ ECHO_N = @ECHO_N@ ECHO_T = @ECHO_T@ EGREP = @EGREP@ EXEEXT = @EXEEXT@ FGREP = @FGREP@ GCONF_CFLAGS = @GCONF_CFLAGS@ GCONF_LIBS = @GCONF_LIBS@ GDK_CFLAGS = @GDK_CFLAGS@ GDK_LIBS = @GDK_LIBS@ GDK_PIXBUF_CFLAGS = @GDK_PIXBUF_CFLAGS@ GDK_PIXBUF_LIBS = @GDK_PIXBUF_LIBS@ GLIB_CFLAGS = @GLIB_CFLAGS@ GLIB_LIBS = @GLIB_LIBS@ GNOMEUI_DEPRECATION_FLAGS = @GNOMEUI_DEPRECATION_FLAGS@ GNOME_VFS_CFLAGS = @GNOME_VFS_CFLAGS@ GNOME_VFS_DEPRECATED_CFLAGS = @GNOME_VFS_DEPRECATED_CFLAGS@ GNOME_VFS_LIBS = @GNOME_VFS_LIBS@ GOBJECT_CFLAGS = @GOBJECT_CFLAGS@ GOBJECT_LIBS = @GOBJECT_LIBS@ GREP = @GREP@ GTHREAD_CFLAGS = @GTHREAD_CFLAGS@ GTHREAD_LIBS = @GTHREAD_LIBS@ GTK_CFLAGS = @GTK_CFLAGS@ GTK_DEPRECATED_CFLAGS = @GTK_DEPRECATED_CFLAGS@ GTK_LIBS = @GTK_LIBS@ GUILE_CAIRO_CFLAGS = @GUILE_CAIRO_CFLAGS@ GUILE_CAIRO_LIBS = @GUILE_CAIRO_LIBS@ GUILE_CFLAGS = @GUILE_CFLAGS@ GUILE_EFFECTIVE_VERSION = @GUILE_EFFECTIVE_VERSION@ GUILE_GLIB_CFLAGS = @GUILE_GLIB_CFLAGS@ GUILE_GLIB_LIBS = @GUILE_GLIB_LIBS@ GUILE_LIBS = @GUILE_LIBS@ G_WRAP_CFLAGS = @G_WRAP_CFLAGS@ G_WRAP_LIBS = @G_WRAP_LIBS@ G_WRAP_LIB_DIR = @G_WRAP_LIB_DIR@ G_WRAP_MODULE_DIR = @G_WRAP_MODULE_DIR@ INSTALL = @INSTALL@ INSTALL_DATA = @INSTALL_DATA@ INSTALL_PROGRAM = @INSTALL_PROGRAM@ INSTALL_SCRIPT = @INSTALL_SCRIPT@ INSTALL_STRIP_PROGRAM = @INSTALL_STRIP_PROGRAM@ LD = @LD@ LDFLAGS = @LDFLAGS@ LIBGLADE_CFLAGS = @LIBGLADE_CFLAGS@ LIBGLADE_LIBS = @LIBGLADE_LIBS@ LIBGNOMEUI_CFLAGS = @LIBGNOMEUI_CFLAGS@ LIBGNOMEUI_LIBS = @LIBGNOMEUI_LIBS@ LIBGNOME_CFLAGS = @LIBGNOME_CFLAGS@ LIBGNOME_LIBS = @LIBGNOME_LIBS@ LIBOBJS = @LIBOBJS@ LIBS = @LIBS@ LIBTOOL = @LIBTOOL@ LIPO = @LIPO@ LN_S = @LN_S@ LTLIBOBJS = @LTLIBOBJS@ MAKEINFO = @MAKEINFO@ MANIFEST_TOOL = @MANIFEST_TOOL@ MKDIR_P = @MKDIR_P@ NM = @NM@ NMEDIT = @NMEDIT@ OBJDUMP = @OBJDUMP@ OBJEXT = @OBJEXT@ ORBIT_IDL = @ORBIT_IDL@ OTOOL = @OTOOL@ OTOOL64 = @OTOOL64@ PACKAGE = @PACKAGE@ PACKAGE_BUGREPORT = @PACKAGE_BUGREPORT@ PACKAGE_NAME = @PACKAGE_NAME@ PACKAGE_STRING = @PACKAGE_STRING@ PACKAGE_TARNAME = @PACKAGE_TARNAME@ PACKAGE_URL = @PACKAGE_URL@ PACKAGE_VERSION = @PACKAGE_VERSION@ PANGOCAIRO_CFLAGS = @PANGOCAIRO_CFLAGS@ PANGOCAIRO_LIBS = @PANGOCAIRO_LIBS@ PANGO_CFLAGS = @PANGO_CFLAGS@ PANGO_LIBS = @PANGO_LIBS@ PATH_SEPARATOR = @PATH_SEPARATOR@ PKG_CONFIG = @PKG_CONFIG@ PKG_CONFIG_LIBDIR = @PKG_CONFIG_LIBDIR@ PKG_CONFIG_PATH = @PKG_CONFIG_PATH@ RANLIB = @RANLIB@ SED = @SED@ SET_MAKE = @SET_MAKE@ SHELL = @SHELL@ STRIP = @STRIP@ VERSION = @VERSION@ WARN_CFLAGS = @WARN_CFLAGS@ abs_builddir = @abs_builddir@ abs_srcdir = @abs_srcdir@ abs_top_builddir = @abs_top_builddir@ abs_top_srcdir = @abs_top_srcdir@ ac_ct_AR = @ac_ct_AR@ ac_ct_CC = @ac_ct_CC@ ac_ct_DUMPBIN = @ac_ct_DUMPBIN@ am__include = @am__include@ am__leading_dot = @am__leading_dot@ am__quote = @am__quote@ am__tar = @am__tar@ am__untar = @am__untar@ bindir = @bindir@ build = @build@ build_alias = @build_alias@ build_cpu = @build_cpu@ build_os = @build_os@ build_vendor = @build_vendor@ builddir = @builddir@ datadir = @datadir@ datarootdir = @datarootdir@ docdir = @docdir@ dvidir = @dvidir@ exec_prefix = @exec_prefix@ host = @host@ host_alias = @host_alias@ host_cpu = @host_cpu@ host_os = @host_os@ host_vendor = @host_vendor@ htmldir = @htmldir@ includedir = @includedir@ infodir = @infodir@ install_sh = @install_sh@ libdir = @libdir@ libexecdir = @libexecdir@ localedir = @localedir@ localstatedir = @localstatedir@ mandir = @mandir@ mkdir_p = @mkdir_p@ oldincludedir = @oldincludedir@ pdfdir = @pdfdir@ prefix = @prefix@ program_transform_name = @program_transform_name@ psdir = @psdir@ sbindir = @sbindir@ sharedstatedir = @sharedstatedir@ srcdir = @srcdir@ sysconfdir = @sysconfdir@ target_alias = @target_alias@ top_build_prefix = @top_build_prefix@ top_builddir = @top_builddir@ top_srcdir = @top_srcdir@ guilegnomedir = $(datadir)/guile-gnome-@API_VERSION@ guilemoduledir = $(guilegnomedir)/gnome guilegwmoduledir = $(guilegnomedir)/gnome/gw guilegnomelibdir = $(libdir)/guile-gnome-@API_VERSION@ AM_CFLAGS = -I. -I$(srcdir) $(WARN_CFLAGS) $(DEBUG_CFLAGS) # For overriding from the command line (e.g. --debug) GUILE_FLAGS = SUFFIXES = .x .doc GUILE_SNARF_CFLAGS = $(DEFS) $(AM_CFLAGS) $(GUILE_CFLAGS) $(G_WRAP_CFLAGS) PACKAGES = atk cairo corba defs gconf glib gnome-vfs gtk libglade libgnome libgnomecanvas libgnomeui pango SOURCE_GUILE_PATH = $(shell echo $(addprefix $(top_srcdir)/,$(PACKAGES)) | sed -e 's/ /:/g'):$(srcdir) BUILD_GUILE_PATH = $(if $(filter-out $(top_srcdir),$(top_builddir)),$(shell echo -n $(addprefix $(top_builddir)/,$(PACKAGES)): | sed -e 's/ /:/g'),) GUILE_LOAD_PATH := $(BUILD_GUILE_PATH)$(SOURCE_GUILE_PATH):${G_WRAP_MODULE_DIR}:${GUILE_LOAD_PATH} # Real gnu make foo packages = $(filter-out %-uninstalled,$(patsubst %.pc.in,%,$(notdir $(wildcard $(srcdir)/*.pc.in)))) pcifiles = $(patsubst %,%-@API_VERSION@.pc,$(packages)) pcufiles = $(patsubst %,%-@API_VERSION@-uninstalled.pc,$(packages)) SUBDIRS = overrides $(am__append_1) guilemodule_DATA = $(am__append_2) EXTRA_DIST = gconf.scm DIST_SUBDIRS = gw overrides all: all-recursive .SUFFIXES: .SUFFIXES: .x .doc .c $(srcdir)/Makefile.in: $(srcdir)/Makefile.am $(top_srcdir)/common.mk $(am__configure_deps) @for dep in $?; do \ case '$(am__configure_deps)' in \ *$$dep*) \ ( cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh ) \ && { if test -f $@; then exit 0; else break; fi; }; \ exit 1;; \ esac; \ done; \ echo ' cd $(top_srcdir) && $(AUTOMAKE) --gnu gconf/gnome/Makefile'; \ $(am__cd) $(top_srcdir) && \ $(AUTOMAKE) --gnu gconf/gnome/Makefile .PRECIOUS: Makefile Makefile: $(srcdir)/Makefile.in $(top_builddir)/config.status @case '$?' in \ *config.status*) \ cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh;; \ *) \ echo ' cd $(top_builddir) && $(SHELL) ./config.status $(subdir)/$@ $(am__depfiles_maybe)'; \ cd $(top_builddir) && $(SHELL) ./config.status $(subdir)/$@ $(am__depfiles_maybe);; \ esac; $(top_srcdir)/common.mk: $(top_builddir)/config.status: $(top_srcdir)/configure $(CONFIG_STATUS_DEPENDENCIES) cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh $(top_srcdir)/configure: $(am__configure_deps) cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh $(ACLOCAL_M4): $(am__aclocal_m4_deps) cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh $(am__aclocal_m4_deps): mostlyclean-libtool: -rm -f *.lo clean-libtool: -rm -rf .libs _libs install-guilemoduleDATA: $(guilemodule_DATA) @$(NORMAL_INSTALL) @list='$(guilemodule_DATA)'; test -n "$(guilemoduledir)" || list=; \ if test -n "$$list"; then \ echo " $(MKDIR_P) '$(DESTDIR)$(guilemoduledir)'"; \ $(MKDIR_P) "$(DESTDIR)$(guilemoduledir)" || exit 1; \ fi; \ for p in $$list; do \ if test -f "$$p"; then d=; else d="$(srcdir)/"; fi; \ echo "$$d$$p"; \ done | $(am__base_list) | \ while read files; do \ echo " $(INSTALL_DATA) $$files '$(DESTDIR)$(guilemoduledir)'"; \ $(INSTALL_DATA) $$files "$(DESTDIR)$(guilemoduledir)" || exit $$?; \ done uninstall-guilemoduleDATA: @$(NORMAL_UNINSTALL) @list='$(guilemodule_DATA)'; test -n "$(guilemoduledir)" || list=; \ files=`for p in $$list; do echo $$p; done | sed -e 's|^.*/||'`; \ dir='$(DESTDIR)$(guilemoduledir)'; $(am__uninstall_files_from_dir) # This directory's subdirectories are mostly independent; you can cd # into them and run `make' without going through this Makefile. # To change the values of `make' variables: instead of editing Makefiles, # (1) if the variable is set in `config.status', edit `config.status' # (which will cause the Makefiles to be regenerated when you run `make'); # (2) otherwise, pass the desired values on the `make' command line. $(RECURSIVE_TARGETS): @fail= failcom='exit 1'; \ for f in x $$MAKEFLAGS; do \ case $$f in \ *=* | --[!k]*);; \ *k*) failcom='fail=yes';; \ esac; \ done; \ dot_seen=no; \ target=`echo $@ | sed s/-recursive//`; \ list='$(SUBDIRS)'; for subdir in $$list; do \ echo "Making $$target in $$subdir"; \ if test "$$subdir" = "."; then \ dot_seen=yes; \ local_target="$$target-am"; \ else \ local_target="$$target"; \ fi; \ ($(am__cd) $$subdir && $(MAKE) $(AM_MAKEFLAGS) $$local_target) \ || eval $$failcom; \ done; \ if test "$$dot_seen" = "no"; then \ $(MAKE) $(AM_MAKEFLAGS) "$$target-am" || exit 1; \ fi; test -z "$$fail" $(RECURSIVE_CLEAN_TARGETS): @fail= failcom='exit 1'; \ for f in x $$MAKEFLAGS; do \ case $$f in \ *=* | --[!k]*);; \ *k*) failcom='fail=yes';; \ esac; \ done; \ dot_seen=no; \ case "$@" in \ distclean-* | maintainer-clean-*) list='$(DIST_SUBDIRS)' ;; \ *) list='$(SUBDIRS)' ;; \ esac; \ rev=''; for subdir in $$list; do \ if test "$$subdir" = "."; then :; else \ rev="$$subdir $$rev"; \ fi; \ done; \ rev="$$rev ."; \ target=`echo $@ | sed s/-recursive//`; \ for subdir in $$rev; do \ echo "Making $$target in $$subdir"; \ if test "$$subdir" = "."; then \ local_target="$$target-am"; \ else \ local_target="$$target"; \ fi; \ ($(am__cd) $$subdir && $(MAKE) $(AM_MAKEFLAGS) $$local_target) \ || eval $$failcom; \ done && test -z "$$fail" tags-recursive: list='$(SUBDIRS)'; for subdir in $$list; do \ test "$$subdir" = . || ($(am__cd) $$subdir && $(MAKE) $(AM_MAKEFLAGS) tags); \ done ctags-recursive: list='$(SUBDIRS)'; for subdir in $$list; do \ test "$$subdir" = . || ($(am__cd) $$subdir && $(MAKE) $(AM_MAKEFLAGS) ctags); \ done ID: $(HEADERS) $(SOURCES) $(LISP) $(TAGS_FILES) list='$(SOURCES) $(HEADERS) $(LISP) $(TAGS_FILES)'; \ unique=`for i in $$list; do \ if test -f "$$i"; then echo $$i; else echo $(srcdir)/$$i; fi; \ done | \ $(AWK) '{ files[$$0] = 1; nonempty = 1; } \ END { if (nonempty) { for (i in files) print i; }; }'`; \ mkid -fID $$unique tags: TAGS TAGS: tags-recursive $(HEADERS) $(SOURCES) $(TAGS_DEPENDENCIES) \ $(TAGS_FILES) $(LISP) set x; \ here=`pwd`; \ if ($(ETAGS) --etags-include --version) >/dev/null 2>&1; then \ include_option=--etags-include; \ empty_fix=.; \ else \ include_option=--include; \ empty_fix=; \ fi; \ list='$(SUBDIRS)'; for subdir in $$list; do \ if test "$$subdir" = .; then :; else \ test ! -f $$subdir/TAGS || \ set "$$@" "$$include_option=$$here/$$subdir/TAGS"; \ fi; \ done; \ list='$(SOURCES) $(HEADERS) $(LISP) $(TAGS_FILES)'; \ unique=`for i in $$list; do \ if test -f "$$i"; then echo $$i; else echo $(srcdir)/$$i; fi; \ done | \ $(AWK) '{ files[$$0] = 1; nonempty = 1; } \ END { if (nonempty) { for (i in files) print i; }; }'`; \ shift; \ if test -z "$(ETAGS_ARGS)$$*$$unique"; then :; else \ test -n "$$unique" || unique=$$empty_fix; \ if test $$# -gt 0; then \ $(ETAGS) $(ETAGSFLAGS) $(AM_ETAGSFLAGS) $(ETAGS_ARGS) \ "$$@" $$unique; \ else \ $(ETAGS) $(ETAGSFLAGS) $(AM_ETAGSFLAGS) $(ETAGS_ARGS) \ $$unique; \ fi; \ fi ctags: CTAGS CTAGS: ctags-recursive $(HEADERS) $(SOURCES) $(TAGS_DEPENDENCIES) \ $(TAGS_FILES) $(LISP) list='$(SOURCES) $(HEADERS) $(LISP) $(TAGS_FILES)'; \ unique=`for i in $$list; do \ if test -f "$$i"; then echo $$i; else echo $(srcdir)/$$i; fi; \ done | \ $(AWK) '{ files[$$0] = 1; nonempty = 1; } \ END { if (nonempty) { for (i in files) print i; }; }'`; \ test -z "$(CTAGS_ARGS)$$unique" \ || $(CTAGS) $(CTAGSFLAGS) $(AM_CTAGSFLAGS) $(CTAGS_ARGS) \ $$unique GTAGS: here=`$(am__cd) $(top_builddir) && pwd` \ && $(am__cd) $(top_srcdir) \ && gtags -i $(GTAGS_ARGS) "$$here" distclean-tags: -rm -f TAGS ID GTAGS GRTAGS GSYMS GPATH tags distdir: $(DISTFILES) @srcdirstrip=`echo "$(srcdir)" | sed 's/[].[^$$\\*]/\\\\&/g'`; \ topsrcdirstrip=`echo "$(top_srcdir)" | sed 's/[].[^$$\\*]/\\\\&/g'`; \ list='$(DISTFILES)'; \ dist_files=`for file in $$list; do echo $$file; done | \ sed -e "s|^$$srcdirstrip/||;t" \ -e "s|^$$topsrcdirstrip/|$(top_builddir)/|;t"`; \ case $$dist_files in \ */*) $(MKDIR_P) `echo "$$dist_files" | \ sed '/\//!d;s|^|$(distdir)/|;s,/[^/]*$$,,' | \ sort -u` ;; \ esac; \ for file in $$dist_files; do \ if test -f $$file || test -d $$file; then d=.; else d=$(srcdir); fi; \ if test -d $$d/$$file; then \ dir=`echo "/$$file" | sed -e 's,/[^/]*$$,,'`; \ if test -d "$(distdir)/$$file"; then \ find "$(distdir)/$$file" -type d ! -perm -700 -exec chmod u+rwx {} \;; \ fi; \ if test -d $(srcdir)/$$file && test $$d != $(srcdir); then \ cp -fpR $(srcdir)/$$file "$(distdir)$$dir" || exit 1; \ find "$(distdir)/$$file" -type d ! -perm -700 -exec chmod u+rwx {} \;; \ fi; \ cp -fpR $$d/$$file "$(distdir)$$dir" || exit 1; \ else \ test -f "$(distdir)/$$file" \ || cp -p $$d/$$file "$(distdir)/$$file" \ || exit 1; \ fi; \ done @list='$(DIST_SUBDIRS)'; for subdir in $$list; do \ if test "$$subdir" = .; then :; else \ $(am__make_dryrun) \ || test -d "$(distdir)/$$subdir" \ || $(MKDIR_P) "$(distdir)/$$subdir" \ || exit 1; \ dir1=$$subdir; dir2="$(distdir)/$$subdir"; \ $(am__relativize); \ new_distdir=$$reldir; \ dir1=$$subdir; dir2="$(top_distdir)"; \ $(am__relativize); \ new_top_distdir=$$reldir; \ echo " (cd $$subdir && $(MAKE) $(AM_MAKEFLAGS) top_distdir="$$new_top_distdir" distdir="$$new_distdir" \\"; \ echo " am__remove_distdir=: am__skip_length_check=: am__skip_mode_fix=: distdir)"; \ ($(am__cd) $$subdir && \ $(MAKE) $(AM_MAKEFLAGS) \ top_distdir="$$new_top_distdir" \ distdir="$$new_distdir" \ am__remove_distdir=: \ am__skip_length_check=: \ am__skip_mode_fix=: \ distdir) \ || exit 1; \ fi; \ done check-am: all-am check: check-recursive all-am: Makefile $(DATA) installdirs: installdirs-recursive installdirs-am: for dir in "$(DESTDIR)$(guilemoduledir)"; do \ test -z "$$dir" || $(MKDIR_P) "$$dir"; \ done install: install-recursive install-exec: install-exec-recursive install-data: install-data-recursive uninstall: uninstall-recursive install-am: all-am @$(MAKE) $(AM_MAKEFLAGS) install-exec-am install-data-am installcheck: installcheck-recursive install-strip: if test -z '$(STRIP)'; then \ $(MAKE) $(AM_MAKEFLAGS) INSTALL_PROGRAM="$(INSTALL_STRIP_PROGRAM)" \ install_sh_PROGRAM="$(INSTALL_STRIP_PROGRAM)" INSTALL_STRIP_FLAG=-s \ install; \ else \ $(MAKE) $(AM_MAKEFLAGS) INSTALL_PROGRAM="$(INSTALL_STRIP_PROGRAM)" \ install_sh_PROGRAM="$(INSTALL_STRIP_PROGRAM)" INSTALL_STRIP_FLAG=-s \ "INSTALL_PROGRAM_ENV=STRIPPROG='$(STRIP)'" install; \ fi mostlyclean-generic: clean-generic: distclean-generic: -test -z "$(CONFIG_CLEAN_FILES)" || rm -f $(CONFIG_CLEAN_FILES) -test . = "$(srcdir)" || test -z "$(CONFIG_CLEAN_VPATH_FILES)" || rm -f $(CONFIG_CLEAN_VPATH_FILES) maintainer-clean-generic: @echo "This command is intended for maintainers to use" @echo "it deletes files that may require special tools to rebuild." clean: clean-recursive clean-am: clean-generic clean-libtool mostlyclean-am distclean: distclean-recursive -rm -f Makefile distclean-am: clean-am distclean-generic distclean-tags dvi: dvi-recursive dvi-am: html: html-recursive html-am: info: info-recursive info-am: install-data-am: install-guilemoduleDATA install-dvi: install-dvi-recursive install-dvi-am: install-exec-am: install-html: install-html-recursive install-html-am: install-info: install-info-recursive install-info-am: install-man: install-pdf: install-pdf-recursive install-pdf-am: install-ps: install-ps-recursive install-ps-am: installcheck-am: maintainer-clean: maintainer-clean-recursive -rm -f Makefile maintainer-clean-am: distclean-am maintainer-clean-generic mostlyclean: mostlyclean-recursive mostlyclean-am: mostlyclean-generic mostlyclean-libtool pdf: pdf-recursive pdf-am: ps: ps-recursive ps-am: uninstall-am: uninstall-guilemoduleDATA .MAKE: $(RECURSIVE_CLEAN_TARGETS) $(RECURSIVE_TARGETS) ctags-recursive \ install-am install-strip tags-recursive .PHONY: $(RECURSIVE_CLEAN_TARGETS) $(RECURSIVE_TARGETS) CTAGS GTAGS \ all all-am check check-am clean clean-generic clean-libtool \ ctags ctags-recursive distclean distclean-generic \ distclean-libtool distclean-tags distdir dvi dvi-am html \ html-am info info-am install install-am install-data \ install-data-am install-dvi install-dvi-am install-exec \ install-exec-am install-guilemoduleDATA install-html \ install-html-am install-info install-info-am install-man \ install-pdf install-pdf-am install-ps install-ps-am \ install-strip installcheck installcheck-am installdirs \ installdirs-am maintainer-clean maintainer-clean-generic \ mostlyclean mostlyclean-generic mostlyclean-libtool pdf pdf-am \ ps ps-am tags tags-recursive uninstall uninstall-am \ uninstall-guilemoduleDATA export GUILE_LOAD_PATH .c.x: guile-snarf $(GUILE_SNARF_CFLAGS) $< > $@ \ || { rm $@; false; } .c.doc: $(CPP) -DSCM_MAGIC_SNARF_DOCS $(GUILE_SNARF_CFLAGS) $< \ | grep -E '(\^\^ {|\^\^ })' > $@ || { rm $@; false; } %.scm guile-gnome-gw-%.c: %-spec.scm guile $(GUILE_FLAGS) -c \ "(debug-set! stack 400000) \ (use-modules (gnome-@API_VERSION@)) \ (use-modules (g-wrap)) \ (use-modules (gnome gw $*-spec)) \ (generate-wrapset 'guile 'gnome-$* \"guile-gnome-gw-$*\")" mv guile-gnome-gw-$*.scm $*.scm %-@API_VERSION@.pc: %.pc cp $< $@ %-@API_VERSION@-uninstalled.pc: %-uninstalled.pc cp $< $@ # Tell versions [3.59,3.63) of GNU make to not export all variables. # Otherwise a system limit (for SysV at least) may be exceeded. .NOEXPORT: guile-gnome-platform-2.16.2/gconf/gnome/overrides/0000755000175000017500000000000011752546506022402 5ustar00wingowingo00000000000000guile-gnome-platform-2.16.2/gconf/gnome/overrides/Makefile.am0000644000175000017500000000023011670374302024421 0ustar00wingowingo00000000000000include $(top_srcdir)/common.mk moduledir = $(guilemoduledir)/overrides module_DATA = gconf.defs gconf.defs-type-ignores EXTRA_DIST = $(module_DATA) guile-gnome-platform-2.16.2/gconf/gnome/overrides/Makefile.in0000644000175000017500000004124611752520722024446 0ustar00wingowingo00000000000000# Makefile.in generated by automake 1.11.5 from Makefile.am. # @configure_input@ # Copyright (C) 1994, 1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, # 2003, 2004, 2005, 2006, 2007, 2008, 2009, 2010, 2011 Free Software # Foundation, Inc. # This Makefile.in is free software; the Free Software Foundation # gives unlimited permission to copy and/or distribute it, # with or without modifications, as long as this notice is preserved. # This program is distributed in the hope that it will be useful, # but WITHOUT ANY WARRANTY, to the extent permitted by law; without # even the implied warranty of MERCHANTABILITY or FITNESS FOR A # PARTICULAR PURPOSE. @SET_MAKE@ # guile-gnome # Copyright (C) 2003,2004,2009,2012 Free Software Foundation, Inc. # This program is free software; you can redistribute it and/or # modify it under the terms of the GNU General Public License as # published by the Free Software Foundation; either version 2 of # the License, or (at your option) any later version. # This program is distributed in the hope that it will be useful, # but WITHOUT ANY WARRANTY; without even the implied warranty of # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the # GNU General Public License for more details. # You should have received a copy of the GNU General Public License # along with this program; if not, contact: # Free Software Foundation Voice: +1-617-542-5942 # 59 Temple Place - Suite 330 Fax: +1-617-542-2652 # Boston, MA 02111-1307, USA gnu@gnu.org # # Makefile snippet # VPATH = @srcdir@ am__make_dryrun = \ { \ am__dry=no; \ case $$MAKEFLAGS in \ *\\[\ \ ]*) \ echo 'am--echo: ; @echo "AM" OK' | $(MAKE) -f - 2>/dev/null \ | grep '^AM OK$$' >/dev/null || am__dry=yes;; \ *) \ for am__flg in $$MAKEFLAGS; do \ case $$am__flg in \ *=*|--*) ;; \ *n*) am__dry=yes; break;; \ esac; \ done;; \ esac; \ test $$am__dry = yes; \ } pkgdatadir = $(datadir)/@PACKAGE@ pkgincludedir = $(includedir)/@PACKAGE@ pkglibdir = $(libdir)/@PACKAGE@ pkglibexecdir = $(libexecdir)/@PACKAGE@ am__cd = CDPATH="$${ZSH_VERSION+.}$(PATH_SEPARATOR)" && cd install_sh_DATA = $(install_sh) -c -m 644 install_sh_PROGRAM = $(install_sh) -c install_sh_SCRIPT = $(install_sh) -c INSTALL_HEADER = $(INSTALL_DATA) transform = $(program_transform_name) NORMAL_INSTALL = : PRE_INSTALL = : POST_INSTALL = : NORMAL_UNINSTALL = : PRE_UNINSTALL = : POST_UNINSTALL = : build_triplet = @build@ host_triplet = @host@ DIST_COMMON = $(srcdir)/Makefile.am $(srcdir)/Makefile.in \ $(top_srcdir)/common.mk subdir = gconf/gnome/overrides ACLOCAL_M4 = $(top_srcdir)/aclocal.m4 am__aclocal_m4_deps = $(top_srcdir)/configure.ac am__configure_deps = $(am__aclocal_m4_deps) $(CONFIGURE_DEPENDENCIES) \ $(ACLOCAL_M4) mkinstalldirs = $(install_sh) -d CONFIG_HEADER = $(top_builddir)/config.h CONFIG_CLEAN_FILES = CONFIG_CLEAN_VPATH_FILES = SOURCES = DIST_SOURCES = am__can_run_installinfo = \ case $$AM_UPDATE_INFO_DIR in \ n|no|NO) false;; \ *) (install-info --version) >/dev/null 2>&1;; \ esac am__vpath_adj_setup = srcdirstrip=`echo "$(srcdir)" | sed 's|.|.|g'`; am__vpath_adj = case $$p in \ $(srcdir)/*) f=`echo "$$p" | sed "s|^$$srcdirstrip/||"`;; \ *) f=$$p;; \ esac; am__strip_dir = f=`echo $$p | sed -e 's|^.*/||'`; am__install_max = 40 am__nobase_strip_setup = \ srcdirstrip=`echo "$(srcdir)" | sed 's/[].[^$$\\*|]/\\\\&/g'` am__nobase_strip = \ for p in $$list; do echo "$$p"; done | sed -e "s|$$srcdirstrip/||" am__nobase_list = $(am__nobase_strip_setup); \ for p in $$list; do echo "$$p $$p"; done | \ sed "s| $$srcdirstrip/| |;"' / .*\//!s/ .*/ ./; s,\( .*\)/[^/]*$$,\1,' | \ $(AWK) 'BEGIN { files["."] = "" } { files[$$2] = files[$$2] " " $$1; \ if (++n[$$2] == $(am__install_max)) \ { print $$2, files[$$2]; n[$$2] = 0; files[$$2] = "" } } \ END { for (dir in files) print dir, files[dir] }' am__base_list = \ sed '$$!N;$$!N;$$!N;$$!N;$$!N;$$!N;$$!N;s/\n/ /g' | \ sed '$$!N;$$!N;$$!N;$$!N;s/\n/ /g' am__uninstall_files_from_dir = { \ test -z "$$files" \ || { test ! -d "$$dir" && test ! -f "$$dir" && test ! -r "$$dir"; } \ || { echo " ( cd '$$dir' && rm -f" $$files ")"; \ $(am__cd) "$$dir" && rm -f $$files; }; \ } am__installdirs = "$(DESTDIR)$(moduledir)" DATA = $(module_DATA) DISTFILES = $(DIST_COMMON) $(DIST_SOURCES) $(TEXINFOS) $(EXTRA_DIST) ACLOCAL = @ACLOCAL@ AG_PKG_CONFIG_PATH = @AG_PKG_CONFIG_PATH@ AMTAR = @AMTAR@ API_VERSION = @API_VERSION@ AR = @AR@ ATK_CFLAGS = @ATK_CFLAGS@ ATK_LIBS = @ATK_LIBS@ AUTOCONF = @AUTOCONF@ AUTOHEADER = @AUTOHEADER@ AUTOMAKE = @AUTOMAKE@ AWK = @AWK@ BONOBO_IDL_DIR = @BONOBO_IDL_DIR@ CANVAS_CFLAGS = @CANVAS_CFLAGS@ CANVAS_LIBS = @CANVAS_LIBS@ CC = @CC@ CCDEPMODE = @CCDEPMODE@ CFLAGS = @CFLAGS@ CORBA_CFLAGS = @CORBA_CFLAGS@ CORBA_LIBS = @CORBA_LIBS@ CPP = @CPP@ CPPFLAGS = @CPPFLAGS@ CYGPATH_W = @CYGPATH_W@ DEFS = @DEFS@ DEPDIR = @DEPDIR@ DLLTOOL = @DLLTOOL@ DSYMUTIL = @DSYMUTIL@ DUMPBIN = @DUMPBIN@ ECHO_C = @ECHO_C@ ECHO_N = @ECHO_N@ ECHO_T = @ECHO_T@ EGREP = @EGREP@ EXEEXT = @EXEEXT@ FGREP = @FGREP@ GCONF_CFLAGS = @GCONF_CFLAGS@ GCONF_LIBS = @GCONF_LIBS@ GDK_CFLAGS = @GDK_CFLAGS@ GDK_LIBS = @GDK_LIBS@ GDK_PIXBUF_CFLAGS = @GDK_PIXBUF_CFLAGS@ GDK_PIXBUF_LIBS = @GDK_PIXBUF_LIBS@ GLIB_CFLAGS = @GLIB_CFLAGS@ GLIB_LIBS = @GLIB_LIBS@ GNOMEUI_DEPRECATION_FLAGS = @GNOMEUI_DEPRECATION_FLAGS@ GNOME_VFS_CFLAGS = @GNOME_VFS_CFLAGS@ GNOME_VFS_DEPRECATED_CFLAGS = @GNOME_VFS_DEPRECATED_CFLAGS@ GNOME_VFS_LIBS = @GNOME_VFS_LIBS@ GOBJECT_CFLAGS = @GOBJECT_CFLAGS@ GOBJECT_LIBS = @GOBJECT_LIBS@ GREP = @GREP@ GTHREAD_CFLAGS = @GTHREAD_CFLAGS@ GTHREAD_LIBS = @GTHREAD_LIBS@ GTK_CFLAGS = @GTK_CFLAGS@ GTK_DEPRECATED_CFLAGS = @GTK_DEPRECATED_CFLAGS@ GTK_LIBS = @GTK_LIBS@ GUILE_CAIRO_CFLAGS = @GUILE_CAIRO_CFLAGS@ GUILE_CAIRO_LIBS = @GUILE_CAIRO_LIBS@ GUILE_CFLAGS = @GUILE_CFLAGS@ GUILE_EFFECTIVE_VERSION = @GUILE_EFFECTIVE_VERSION@ GUILE_GLIB_CFLAGS = @GUILE_GLIB_CFLAGS@ GUILE_GLIB_LIBS = @GUILE_GLIB_LIBS@ GUILE_LIBS = @GUILE_LIBS@ G_WRAP_CFLAGS = @G_WRAP_CFLAGS@ G_WRAP_LIBS = @G_WRAP_LIBS@ G_WRAP_LIB_DIR = @G_WRAP_LIB_DIR@ G_WRAP_MODULE_DIR = @G_WRAP_MODULE_DIR@ INSTALL = @INSTALL@ INSTALL_DATA = @INSTALL_DATA@ INSTALL_PROGRAM = @INSTALL_PROGRAM@ INSTALL_SCRIPT = @INSTALL_SCRIPT@ INSTALL_STRIP_PROGRAM = @INSTALL_STRIP_PROGRAM@ LD = @LD@ LDFLAGS = @LDFLAGS@ LIBGLADE_CFLAGS = @LIBGLADE_CFLAGS@ LIBGLADE_LIBS = @LIBGLADE_LIBS@ LIBGNOMEUI_CFLAGS = @LIBGNOMEUI_CFLAGS@ LIBGNOMEUI_LIBS = @LIBGNOMEUI_LIBS@ LIBGNOME_CFLAGS = @LIBGNOME_CFLAGS@ LIBGNOME_LIBS = @LIBGNOME_LIBS@ LIBOBJS = @LIBOBJS@ LIBS = @LIBS@ LIBTOOL = @LIBTOOL@ LIPO = @LIPO@ LN_S = @LN_S@ LTLIBOBJS = @LTLIBOBJS@ MAKEINFO = @MAKEINFO@ MANIFEST_TOOL = @MANIFEST_TOOL@ MKDIR_P = @MKDIR_P@ NM = @NM@ NMEDIT = @NMEDIT@ OBJDUMP = @OBJDUMP@ OBJEXT = @OBJEXT@ ORBIT_IDL = @ORBIT_IDL@ OTOOL = @OTOOL@ OTOOL64 = @OTOOL64@ PACKAGE = @PACKAGE@ PACKAGE_BUGREPORT = @PACKAGE_BUGREPORT@ PACKAGE_NAME = @PACKAGE_NAME@ PACKAGE_STRING = @PACKAGE_STRING@ PACKAGE_TARNAME = @PACKAGE_TARNAME@ PACKAGE_URL = @PACKAGE_URL@ PACKAGE_VERSION = @PACKAGE_VERSION@ PANGOCAIRO_CFLAGS = @PANGOCAIRO_CFLAGS@ PANGOCAIRO_LIBS = @PANGOCAIRO_LIBS@ PANGO_CFLAGS = @PANGO_CFLAGS@ PANGO_LIBS = @PANGO_LIBS@ PATH_SEPARATOR = @PATH_SEPARATOR@ PKG_CONFIG = @PKG_CONFIG@ PKG_CONFIG_LIBDIR = @PKG_CONFIG_LIBDIR@ PKG_CONFIG_PATH = @PKG_CONFIG_PATH@ RANLIB = @RANLIB@ SED = @SED@ SET_MAKE = @SET_MAKE@ SHELL = @SHELL@ STRIP = @STRIP@ VERSION = @VERSION@ WARN_CFLAGS = @WARN_CFLAGS@ abs_builddir = @abs_builddir@ abs_srcdir = @abs_srcdir@ abs_top_builddir = @abs_top_builddir@ abs_top_srcdir = @abs_top_srcdir@ ac_ct_AR = @ac_ct_AR@ ac_ct_CC = @ac_ct_CC@ ac_ct_DUMPBIN = @ac_ct_DUMPBIN@ am__include = @am__include@ am__leading_dot = @am__leading_dot@ am__quote = @am__quote@ am__tar = @am__tar@ am__untar = @am__untar@ bindir = @bindir@ build = @build@ build_alias = @build_alias@ build_cpu = @build_cpu@ build_os = @build_os@ build_vendor = @build_vendor@ builddir = @builddir@ datadir = @datadir@ datarootdir = @datarootdir@ docdir = @docdir@ dvidir = @dvidir@ exec_prefix = @exec_prefix@ host = @host@ host_alias = @host_alias@ host_cpu = @host_cpu@ host_os = @host_os@ host_vendor = @host_vendor@ htmldir = @htmldir@ includedir = @includedir@ infodir = @infodir@ install_sh = @install_sh@ libdir = @libdir@ libexecdir = @libexecdir@ localedir = @localedir@ localstatedir = @localstatedir@ mandir = @mandir@ mkdir_p = @mkdir_p@ oldincludedir = @oldincludedir@ pdfdir = @pdfdir@ prefix = @prefix@ program_transform_name = @program_transform_name@ psdir = @psdir@ sbindir = @sbindir@ sharedstatedir = @sharedstatedir@ srcdir = @srcdir@ sysconfdir = @sysconfdir@ target_alias = @target_alias@ top_build_prefix = @top_build_prefix@ top_builddir = @top_builddir@ top_srcdir = @top_srcdir@ guilegnomedir = $(datadir)/guile-gnome-@API_VERSION@ guilemoduledir = $(guilegnomedir)/gnome guilegwmoduledir = $(guilegnomedir)/gnome/gw guilegnomelibdir = $(libdir)/guile-gnome-@API_VERSION@ AM_CFLAGS = -I. -I$(srcdir) $(WARN_CFLAGS) $(DEBUG_CFLAGS) # For overriding from the command line (e.g. --debug) GUILE_FLAGS = SUFFIXES = .x .doc GUILE_SNARF_CFLAGS = $(DEFS) $(AM_CFLAGS) $(GUILE_CFLAGS) $(G_WRAP_CFLAGS) PACKAGES = atk cairo corba defs gconf glib gnome-vfs gtk libglade libgnome libgnomecanvas libgnomeui pango SOURCE_GUILE_PATH = $(shell echo $(addprefix $(top_srcdir)/,$(PACKAGES)) | sed -e 's/ /:/g'):$(srcdir) BUILD_GUILE_PATH = $(if $(filter-out $(top_srcdir),$(top_builddir)),$(shell echo -n $(addprefix $(top_builddir)/,$(PACKAGES)): | sed -e 's/ /:/g'),) GUILE_LOAD_PATH := $(BUILD_GUILE_PATH)$(SOURCE_GUILE_PATH):${G_WRAP_MODULE_DIR}:${GUILE_LOAD_PATH} # Real gnu make foo packages = $(filter-out %-uninstalled,$(patsubst %.pc.in,%,$(notdir $(wildcard $(srcdir)/*.pc.in)))) pcifiles = $(patsubst %,%-@API_VERSION@.pc,$(packages)) pcufiles = $(patsubst %,%-@API_VERSION@-uninstalled.pc,$(packages)) moduledir = $(guilemoduledir)/overrides module_DATA = gconf.defs gconf.defs-type-ignores EXTRA_DIST = $(module_DATA) all: all-am .SUFFIXES: .SUFFIXES: .x .doc .c $(srcdir)/Makefile.in: $(srcdir)/Makefile.am $(top_srcdir)/common.mk $(am__configure_deps) @for dep in $?; do \ case '$(am__configure_deps)' in \ *$$dep*) \ ( cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh ) \ && { if test -f $@; then exit 0; else break; fi; }; \ exit 1;; \ esac; \ done; \ echo ' cd $(top_srcdir) && $(AUTOMAKE) --gnu gconf/gnome/overrides/Makefile'; \ $(am__cd) $(top_srcdir) && \ $(AUTOMAKE) --gnu gconf/gnome/overrides/Makefile .PRECIOUS: Makefile Makefile: $(srcdir)/Makefile.in $(top_builddir)/config.status @case '$?' in \ *config.status*) \ cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh;; \ *) \ echo ' cd $(top_builddir) && $(SHELL) ./config.status $(subdir)/$@ $(am__depfiles_maybe)'; \ cd $(top_builddir) && $(SHELL) ./config.status $(subdir)/$@ $(am__depfiles_maybe);; \ esac; $(top_srcdir)/common.mk: $(top_builddir)/config.status: $(top_srcdir)/configure $(CONFIG_STATUS_DEPENDENCIES) cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh $(top_srcdir)/configure: $(am__configure_deps) cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh $(ACLOCAL_M4): $(am__aclocal_m4_deps) cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh $(am__aclocal_m4_deps): mostlyclean-libtool: -rm -f *.lo clean-libtool: -rm -rf .libs _libs install-moduleDATA: $(module_DATA) @$(NORMAL_INSTALL) @list='$(module_DATA)'; test -n "$(moduledir)" || list=; \ if test -n "$$list"; then \ echo " $(MKDIR_P) '$(DESTDIR)$(moduledir)'"; \ $(MKDIR_P) "$(DESTDIR)$(moduledir)" || exit 1; \ fi; \ for p in $$list; do \ if test -f "$$p"; then d=; else d="$(srcdir)/"; fi; \ echo "$$d$$p"; \ done | $(am__base_list) | \ while read files; do \ echo " $(INSTALL_DATA) $$files '$(DESTDIR)$(moduledir)'"; \ $(INSTALL_DATA) $$files "$(DESTDIR)$(moduledir)" || exit $$?; \ done uninstall-moduleDATA: @$(NORMAL_UNINSTALL) @list='$(module_DATA)'; test -n "$(moduledir)" || list=; \ files=`for p in $$list; do echo $$p; done | sed -e 's|^.*/||'`; \ dir='$(DESTDIR)$(moduledir)'; $(am__uninstall_files_from_dir) tags: TAGS TAGS: ctags: CTAGS CTAGS: distdir: $(DISTFILES) @srcdirstrip=`echo "$(srcdir)" | sed 's/[].[^$$\\*]/\\\\&/g'`; \ topsrcdirstrip=`echo "$(top_srcdir)" | sed 's/[].[^$$\\*]/\\\\&/g'`; \ list='$(DISTFILES)'; \ dist_files=`for file in $$list; do echo $$file; done | \ sed -e "s|^$$srcdirstrip/||;t" \ -e "s|^$$topsrcdirstrip/|$(top_builddir)/|;t"`; \ case $$dist_files in \ */*) $(MKDIR_P) `echo "$$dist_files" | \ sed '/\//!d;s|^|$(distdir)/|;s,/[^/]*$$,,' | \ sort -u` ;; \ esac; \ for file in $$dist_files; do \ if test -f $$file || test -d $$file; then d=.; else d=$(srcdir); fi; \ if test -d $$d/$$file; then \ dir=`echo "/$$file" | sed -e 's,/[^/]*$$,,'`; \ if test -d "$(distdir)/$$file"; then \ find "$(distdir)/$$file" -type d ! -perm -700 -exec chmod u+rwx {} \;; \ fi; \ if test -d $(srcdir)/$$file && test $$d != $(srcdir); then \ cp -fpR $(srcdir)/$$file "$(distdir)$$dir" || exit 1; \ find "$(distdir)/$$file" -type d ! -perm -700 -exec chmod u+rwx {} \;; \ fi; \ cp -fpR $$d/$$file "$(distdir)$$dir" || exit 1; \ else \ test -f "$(distdir)/$$file" \ || cp -p $$d/$$file "$(distdir)/$$file" \ || exit 1; \ fi; \ done check-am: all-am check: check-am all-am: Makefile $(DATA) installdirs: for dir in "$(DESTDIR)$(moduledir)"; do \ test -z "$$dir" || $(MKDIR_P) "$$dir"; \ done install: install-am install-exec: install-exec-am install-data: install-data-am uninstall: uninstall-am install-am: all-am @$(MAKE) $(AM_MAKEFLAGS) install-exec-am install-data-am installcheck: installcheck-am install-strip: if test -z '$(STRIP)'; then \ $(MAKE) $(AM_MAKEFLAGS) INSTALL_PROGRAM="$(INSTALL_STRIP_PROGRAM)" \ install_sh_PROGRAM="$(INSTALL_STRIP_PROGRAM)" INSTALL_STRIP_FLAG=-s \ install; \ else \ $(MAKE) $(AM_MAKEFLAGS) INSTALL_PROGRAM="$(INSTALL_STRIP_PROGRAM)" \ install_sh_PROGRAM="$(INSTALL_STRIP_PROGRAM)" INSTALL_STRIP_FLAG=-s \ "INSTALL_PROGRAM_ENV=STRIPPROG='$(STRIP)'" install; \ fi mostlyclean-generic: clean-generic: distclean-generic: -test -z "$(CONFIG_CLEAN_FILES)" || rm -f $(CONFIG_CLEAN_FILES) -test . = "$(srcdir)" || test -z "$(CONFIG_CLEAN_VPATH_FILES)" || rm -f $(CONFIG_CLEAN_VPATH_FILES) maintainer-clean-generic: @echo "This command is intended for maintainers to use" @echo "it deletes files that may require special tools to rebuild." clean: clean-am clean-am: clean-generic clean-libtool mostlyclean-am distclean: distclean-am -rm -f Makefile distclean-am: clean-am distclean-generic dvi: dvi-am dvi-am: html: html-am html-am: info: info-am info-am: install-data-am: install-moduleDATA install-dvi: install-dvi-am install-dvi-am: install-exec-am: install-html: install-html-am install-html-am: install-info: install-info-am install-info-am: install-man: install-pdf: install-pdf-am install-pdf-am: install-ps: install-ps-am install-ps-am: installcheck-am: maintainer-clean: maintainer-clean-am -rm -f Makefile maintainer-clean-am: distclean-am maintainer-clean-generic mostlyclean: mostlyclean-am mostlyclean-am: mostlyclean-generic mostlyclean-libtool pdf: pdf-am pdf-am: ps: ps-am ps-am: uninstall-am: uninstall-moduleDATA .MAKE: install-am install-strip .PHONY: all all-am check check-am clean clean-generic clean-libtool \ distclean distclean-generic distclean-libtool distdir dvi \ dvi-am html html-am info info-am install install-am \ install-data install-data-am install-dvi install-dvi-am \ install-exec install-exec-am install-html install-html-am \ install-info install-info-am install-man install-moduleDATA \ install-pdf install-pdf-am install-ps install-ps-am \ install-strip installcheck installcheck-am installdirs \ maintainer-clean maintainer-clean-generic mostlyclean \ mostlyclean-generic mostlyclean-libtool pdf pdf-am ps ps-am \ uninstall uninstall-am uninstall-moduleDATA export GUILE_LOAD_PATH .c.x: guile-snarf $(GUILE_SNARF_CFLAGS) $< > $@ \ || { rm $@; false; } .c.doc: $(CPP) -DSCM_MAGIC_SNARF_DOCS $(GUILE_SNARF_CFLAGS) $< \ | grep -E '(\^\^ {|\^\^ })' > $@ || { rm $@; false; } %.scm guile-gnome-gw-%.c: %-spec.scm guile $(GUILE_FLAGS) -c \ "(debug-set! stack 400000) \ (use-modules (gnome-@API_VERSION@)) \ (use-modules (g-wrap)) \ (use-modules (gnome gw $*-spec)) \ (generate-wrapset 'guile 'gnome-$* \"guile-gnome-gw-$*\")" mv guile-gnome-gw-$*.scm $*.scm %-@API_VERSION@.pc: %.pc cp $< $@ %-@API_VERSION@-uninstalled.pc: %-uninstalled.pc cp $< $@ # Tell versions [3.59,3.63) of GNU make to not export all variables. # Otherwise a system limit (for SysV at least) may be exceeded. .NOEXPORT: guile-gnome-platform-2.16.2/gconf/gnome/overrides/gconf.defs0000644000175000017500000000724611670374302024342 0ustar00wingowingo00000000000000;; -*- scheme -*- ;; guile-gnome ;; Copyright (C) 2004 Free Software Foundation, Inc. ;; This program is free software; you can redistribute it and/or ;; modify it under the terms of the GNU General Public License as ;; published by the Free Software Foundation; either version 2 of ;; the License, or (at your option) any later version. ;; ;; This program is distributed in the hope that it will be useful, ;; but WITHOUT ANY WARRANTY; without even the implied warranty of ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the ;; GNU General Public License for more details. ;; ;; You should have received a copy of the GNU General Public License ;; along with this program; if not, contact: ;; ;; Free Software Foundation Voice: +1-617-542-5942 ;; 59 Temple Place - Suite 330 Fax: +1-617-542-2652 ;; Boston, MA 02111-1307, USA gnu@gnu.org ;;; Commentary: ;; ;;Custom wrapper definitions. ;; ;;; Code: (define-boxed Schema (c-name "GConfSchema") (gtype-id "_GCONF_TYPE_SCHEMA")) (define-method notify_add (of-object "GConfClient") (c-name "_wrap_gconf_client_notify_add") (overrides "gconf_client_notify_add") (return-type "guint") (leave-guile-mode #f) (parameters '("const-gchar*" "namespace_section") '("SCM" "proc") '("GError**" "err"))) (define-method all_dirs (of-object "GConfClient") (c-name "gconf_client_all_dirs") (overrides "gconf_client_all_dirs") (return-type "GSList*-of-gchar*") (parameters '("const-gchar*" "dir") '("GError**" "err") ) ) (ignore-glob "*_set_int" "*_set_bool" "*_set_string" "*_set_float" "*_set_schema" "*_set_list" "*_set_list_nocopy" "*_set_pair" "*_get_int" "*_get_bool" "*_get_string" "*_get_float" "*_get_schema" "*_get_list" "*_get_pair" "gconf_value_*" "gconf_entry_*" "gconf_engine_*" "gconf_change_set_*" "gconf_listeners_*") (ignore-glob "*_get_type" "_*" "*_ref" "*_unref" "*_copy" "*_free" "*_newv" "*_valist" "*_setv" "*_foreach" "*_valist") (ignore "gconf_init" "gconf_is_initialized" "gconf_error_quark" "gconf_debug_shutdown" "gconf_client_all_entries" ; GConfEntry* "gconf_client_get_for_engine" ; GConfEngine* "gconf_client_set_global_default_error_handler" ; GConfClientErrorHandlerFunc "gconf_client_get_entry" ; GConfEntry* "gconf_client_error" ; GError* "gconf_client_unreturned_error" ; GError* "gconf_client_commit_change_set" ; GConfChangeSet* "gconf_client_reverse_change_set" ; GConfChangeSet* "gconf_string_to_enum" ; GConfEnumStringPair* "gconf_enum_to_string" ; GConfEnumStringPair* "gconf_meta_info_get_mod_user" ; GConfMetaInfo* "gconf_meta_info_mod_time" ; GConfMetaInfo* "gconf_meta_info_new" ; GConfMetaInfo* "gconf_meta_info_set_mod_user" ; GConfMetaInfo* "gconf_meta_info_set_mod_time" ; GConfMetaInfo* "gconf_engine_get_for_addresses" "gconf_engine_get_local_for_addresses" "gconf_engine_change_set_from_currentv" "gconf_engine_notify_add" "gconf_client_change_set_from_currentv" "gconf_engine_get_local" "gconf_clear_cache" "gconf_synchronous_sync" "gconf_engine_get_full" "gconf_preinit" "gconf_postinit")guile-gnome-platform-2.16.2/gconf/gnome/overrides/gconf.defs-type-ignores0000644000175000017500000000437011670374302026760 0ustar00wingowingo00000000000000;; -*- scheme -*- ;; damn you h2defs!!!! (define-enum ConfClientPreloadType (in-module "G") (c-name "GConfClientPreloadType") (gtype-id "GCONF_TYPE_CLIENT_PRELOAD_TYPE") (values '("none" "GCONF_CLIENT_PRELOAD_NONE") '("onelevel" "GCONF_CLIENT_PRELOAD_ONELEVEL") '("recursive" "GCONF_CLIENT_PRELOAD_RECURSIVE") ) ) (define-enum ConfClientErrorHandlingMode (in-module "G") (c-name "GConfClientErrorHandlingMode") (gtype-id "GCONF_TYPE_CLIENT_ERROR_HANDLING_MODE") (values '("none" "GCONF_CLIENT_HANDLE_NONE") '("unreturned" "GCONF_CLIENT_HANDLE_UNRETURNED") '("all" "GCONF_CLIENT_HANDLE_ALL") ) ) (define-enum ConfError (in-module "G") (c-name "GConfError") (gtype-id "GCONF_TYPE_ERROR") (values '("success" "GCONF_ERROR_SUCCESS") '("failed" "GCONF_ERROR_FAILED") '("no-server" "GCONF_ERROR_NO_SERVER") '("no-permission" "GCONF_ERROR_NO_PERMISSION") '("bad-address" "GCONF_ERROR_BAD_ADDRESS") '("bad-key" "GCONF_ERROR_BAD_KEY") '("parse-error" "GCONF_ERROR_PARSE_ERROR") '("corrupt" "GCONF_ERROR_CORRUPT") '("type-mismatch" "GCONF_ERROR_TYPE_MISMATCH") '("is-dir" "GCONF_ERROR_IS_DIR") '("is-key" "GCONF_ERROR_IS_KEY") '("overridden" "GCONF_ERROR_OVERRIDDEN") '("oaf-error" "GCONF_ERROR_OAF_ERROR") '("local-engine" "GCONF_ERROR_LOCAL_ENGINE") '("lock-failed" "GCONF_ERROR_LOCK_FAILED") '("no-writable-database" "GCONF_ERROR_NO_WRITABLE_DATABASE") '("in-shutdown" "GCONF_ERROR_IN_SHUTDOWN") ) ) (define-enum ConfValueType (in-module "G") (c-name "GConfValueType") (gtype-id "GCONF_TYPE_VALUE_TYPE") (values '("invalid" "GCONF_VALUE_INVALID") '("string" "GCONF_VALUE_STRING") '("int" "GCONF_VALUE_INT") '("float" "GCONF_VALUE_FLOAT") '("bool" "GCONF_VALUE_BOOL") '("schema" "GCONF_VALUE_SCHEMA") '("list" "GCONF_VALUE_LIST") '("pair" "GCONF_VALUE_PAIR") ) ) ;; -*- scheme -*- ; object definitions ... (define-object ConfClient (in-module "G") (parent "GObject") (c-name "GConfClient") (gtype-id "GCONF_TYPE_CLIENT") ) (ignore-types "GConfClient" "GConfValueType" "GConfUnsetFlags" "GConfError" "GConfClientErrorHandlingMode" "GConfClientPreloadType")guile-gnome-platform-2.16.2/gconf/Makefile.am0000644000175000017500000000012311752516504021316 0ustar00wingowingo00000000000000SUBDIRS = gnome examples doc tests EXTRA_DIST = ChangeLog.pre-2.16 AUTHORS README guile-gnome-platform-2.16.2/gconf/Makefile.in0000644000175000017500000004535711752516564021357 0ustar00wingowingo00000000000000# Makefile.in generated by automake 1.11.5 from Makefile.am. # @configure_input@ # Copyright (C) 1994, 1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, # 2003, 2004, 2005, 2006, 2007, 2008, 2009, 2010, 2011 Free Software # Foundation, Inc. # This Makefile.in is free software; the Free Software Foundation # gives unlimited permission to copy and/or distribute it, # with or without modifications, as long as this notice is preserved. # This program is distributed in the hope that it will be useful, # but WITHOUT ANY WARRANTY, to the extent permitted by law; without # even the implied warranty of MERCHANTABILITY or FITNESS FOR A # PARTICULAR PURPOSE. @SET_MAKE@ VPATH = @srcdir@ am__make_dryrun = \ { \ am__dry=no; \ case $$MAKEFLAGS in \ *\\[\ \ ]*) \ echo 'am--echo: ; @echo "AM" OK' | $(MAKE) -f - 2>/dev/null \ | grep '^AM OK$$' >/dev/null || am__dry=yes;; \ *) \ for am__flg in $$MAKEFLAGS; do \ case $$am__flg in \ *=*|--*) ;; \ *n*) am__dry=yes; break;; \ esac; \ done;; \ esac; \ test $$am__dry = yes; \ } pkgdatadir = $(datadir)/@PACKAGE@ pkgincludedir = $(includedir)/@PACKAGE@ pkglibdir = $(libdir)/@PACKAGE@ pkglibexecdir = $(libexecdir)/@PACKAGE@ am__cd = CDPATH="$${ZSH_VERSION+.}$(PATH_SEPARATOR)" && cd install_sh_DATA = $(install_sh) -c -m 644 install_sh_PROGRAM = $(install_sh) -c install_sh_SCRIPT = $(install_sh) -c INSTALL_HEADER = $(INSTALL_DATA) transform = $(program_transform_name) NORMAL_INSTALL = : PRE_INSTALL = : POST_INSTALL = : NORMAL_UNINSTALL = : PRE_UNINSTALL = : POST_UNINSTALL = : build_triplet = @build@ host_triplet = @host@ subdir = gconf DIST_COMMON = README $(srcdir)/Makefile.am $(srcdir)/Makefile.in \ AUTHORS ChangeLog ACLOCAL_M4 = $(top_srcdir)/aclocal.m4 am__aclocal_m4_deps = $(top_srcdir)/configure.ac am__configure_deps = $(am__aclocal_m4_deps) $(CONFIGURE_DEPENDENCIES) \ $(ACLOCAL_M4) mkinstalldirs = $(install_sh) -d CONFIG_HEADER = $(top_builddir)/config.h CONFIG_CLEAN_FILES = CONFIG_CLEAN_VPATH_FILES = SOURCES = DIST_SOURCES = RECURSIVE_TARGETS = all-recursive check-recursive dvi-recursive \ html-recursive info-recursive install-data-recursive \ install-dvi-recursive install-exec-recursive \ install-html-recursive install-info-recursive \ install-pdf-recursive install-ps-recursive install-recursive \ installcheck-recursive installdirs-recursive pdf-recursive \ ps-recursive uninstall-recursive am__can_run_installinfo = \ case $$AM_UPDATE_INFO_DIR in \ n|no|NO) false;; \ *) (install-info --version) >/dev/null 2>&1;; \ esac RECURSIVE_CLEAN_TARGETS = mostlyclean-recursive clean-recursive \ distclean-recursive maintainer-clean-recursive AM_RECURSIVE_TARGETS = $(RECURSIVE_TARGETS:-recursive=) \ $(RECURSIVE_CLEAN_TARGETS:-recursive=) tags TAGS ctags CTAGS \ distdir ETAGS = etags CTAGS = ctags DIST_SUBDIRS = $(SUBDIRS) DISTFILES = $(DIST_COMMON) $(DIST_SOURCES) $(TEXINFOS) $(EXTRA_DIST) am__relativize = \ dir0=`pwd`; \ sed_first='s,^\([^/]*\)/.*$$,\1,'; \ sed_rest='s,^[^/]*/*,,'; \ sed_last='s,^.*/\([^/]*\)$$,\1,'; \ sed_butlast='s,/*[^/]*$$,,'; \ while test -n "$$dir1"; do \ first=`echo "$$dir1" | sed -e "$$sed_first"`; \ if test "$$first" != "."; then \ if test "$$first" = ".."; then \ dir2=`echo "$$dir0" | sed -e "$$sed_last"`/"$$dir2"; \ dir0=`echo "$$dir0" | sed -e "$$sed_butlast"`; \ else \ first2=`echo "$$dir2" | sed -e "$$sed_first"`; \ if test "$$first2" = "$$first"; then \ dir2=`echo "$$dir2" | sed -e "$$sed_rest"`; \ else \ dir2="../$$dir2"; \ fi; \ dir0="$$dir0"/"$$first"; \ fi; \ fi; \ dir1=`echo "$$dir1" | sed -e "$$sed_rest"`; \ done; \ reldir="$$dir2" ACLOCAL = @ACLOCAL@ AG_PKG_CONFIG_PATH = @AG_PKG_CONFIG_PATH@ AMTAR = @AMTAR@ API_VERSION = @API_VERSION@ AR = @AR@ ATK_CFLAGS = @ATK_CFLAGS@ ATK_LIBS = @ATK_LIBS@ AUTOCONF = @AUTOCONF@ AUTOHEADER = @AUTOHEADER@ AUTOMAKE = @AUTOMAKE@ AWK = @AWK@ BONOBO_IDL_DIR = @BONOBO_IDL_DIR@ CANVAS_CFLAGS = @CANVAS_CFLAGS@ CANVAS_LIBS = @CANVAS_LIBS@ CC = @CC@ CCDEPMODE = @CCDEPMODE@ CFLAGS = @CFLAGS@ CORBA_CFLAGS = @CORBA_CFLAGS@ CORBA_LIBS = @CORBA_LIBS@ CPP = @CPP@ CPPFLAGS = @CPPFLAGS@ CYGPATH_W = @CYGPATH_W@ DEFS = @DEFS@ DEPDIR = @DEPDIR@ DLLTOOL = @DLLTOOL@ DSYMUTIL = @DSYMUTIL@ DUMPBIN = @DUMPBIN@ ECHO_C = @ECHO_C@ ECHO_N = @ECHO_N@ ECHO_T = @ECHO_T@ EGREP = @EGREP@ EXEEXT = @EXEEXT@ FGREP = @FGREP@ GCONF_CFLAGS = @GCONF_CFLAGS@ GCONF_LIBS = @GCONF_LIBS@ GDK_CFLAGS = @GDK_CFLAGS@ GDK_LIBS = @GDK_LIBS@ GDK_PIXBUF_CFLAGS = @GDK_PIXBUF_CFLAGS@ GDK_PIXBUF_LIBS = @GDK_PIXBUF_LIBS@ GLIB_CFLAGS = @GLIB_CFLAGS@ GLIB_LIBS = @GLIB_LIBS@ GNOMEUI_DEPRECATION_FLAGS = @GNOMEUI_DEPRECATION_FLAGS@ GNOME_VFS_CFLAGS = @GNOME_VFS_CFLAGS@ GNOME_VFS_DEPRECATED_CFLAGS = @GNOME_VFS_DEPRECATED_CFLAGS@ GNOME_VFS_LIBS = @GNOME_VFS_LIBS@ GOBJECT_CFLAGS = @GOBJECT_CFLAGS@ GOBJECT_LIBS = @GOBJECT_LIBS@ GREP = @GREP@ GTHREAD_CFLAGS = @GTHREAD_CFLAGS@ GTHREAD_LIBS = @GTHREAD_LIBS@ GTK_CFLAGS = @GTK_CFLAGS@ GTK_DEPRECATED_CFLAGS = @GTK_DEPRECATED_CFLAGS@ GTK_LIBS = @GTK_LIBS@ GUILE_CAIRO_CFLAGS = @GUILE_CAIRO_CFLAGS@ GUILE_CAIRO_LIBS = @GUILE_CAIRO_LIBS@ GUILE_CFLAGS = @GUILE_CFLAGS@ GUILE_EFFECTIVE_VERSION = @GUILE_EFFECTIVE_VERSION@ GUILE_GLIB_CFLAGS = @GUILE_GLIB_CFLAGS@ GUILE_GLIB_LIBS = @GUILE_GLIB_LIBS@ GUILE_LIBS = @GUILE_LIBS@ G_WRAP_CFLAGS = @G_WRAP_CFLAGS@ G_WRAP_LIBS = @G_WRAP_LIBS@ G_WRAP_LIB_DIR = @G_WRAP_LIB_DIR@ G_WRAP_MODULE_DIR = @G_WRAP_MODULE_DIR@ INSTALL = @INSTALL@ INSTALL_DATA = @INSTALL_DATA@ INSTALL_PROGRAM = @INSTALL_PROGRAM@ INSTALL_SCRIPT = @INSTALL_SCRIPT@ INSTALL_STRIP_PROGRAM = @INSTALL_STRIP_PROGRAM@ LD = @LD@ LDFLAGS = @LDFLAGS@ LIBGLADE_CFLAGS = @LIBGLADE_CFLAGS@ LIBGLADE_LIBS = @LIBGLADE_LIBS@ LIBGNOMEUI_CFLAGS = @LIBGNOMEUI_CFLAGS@ LIBGNOMEUI_LIBS = @LIBGNOMEUI_LIBS@ LIBGNOME_CFLAGS = @LIBGNOME_CFLAGS@ LIBGNOME_LIBS = @LIBGNOME_LIBS@ LIBOBJS = @LIBOBJS@ LIBS = @LIBS@ LIBTOOL = @LIBTOOL@ LIPO = @LIPO@ LN_S = @LN_S@ LTLIBOBJS = @LTLIBOBJS@ MAKEINFO = @MAKEINFO@ MANIFEST_TOOL = @MANIFEST_TOOL@ MKDIR_P = @MKDIR_P@ NM = @NM@ NMEDIT = @NMEDIT@ OBJDUMP = @OBJDUMP@ OBJEXT = @OBJEXT@ ORBIT_IDL = @ORBIT_IDL@ OTOOL = @OTOOL@ OTOOL64 = @OTOOL64@ PACKAGE = @PACKAGE@ PACKAGE_BUGREPORT = @PACKAGE_BUGREPORT@ PACKAGE_NAME = @PACKAGE_NAME@ PACKAGE_STRING = @PACKAGE_STRING@ PACKAGE_TARNAME = @PACKAGE_TARNAME@ PACKAGE_URL = @PACKAGE_URL@ PACKAGE_VERSION = @PACKAGE_VERSION@ PANGOCAIRO_CFLAGS = @PANGOCAIRO_CFLAGS@ PANGOCAIRO_LIBS = @PANGOCAIRO_LIBS@ PANGO_CFLAGS = @PANGO_CFLAGS@ PANGO_LIBS = @PANGO_LIBS@ PATH_SEPARATOR = @PATH_SEPARATOR@ PKG_CONFIG = @PKG_CONFIG@ PKG_CONFIG_LIBDIR = @PKG_CONFIG_LIBDIR@ PKG_CONFIG_PATH = @PKG_CONFIG_PATH@ RANLIB = @RANLIB@ SED = @SED@ SET_MAKE = @SET_MAKE@ SHELL = @SHELL@ STRIP = @STRIP@ VERSION = @VERSION@ WARN_CFLAGS = @WARN_CFLAGS@ abs_builddir = @abs_builddir@ abs_srcdir = @abs_srcdir@ abs_top_builddir = @abs_top_builddir@ abs_top_srcdir = @abs_top_srcdir@ ac_ct_AR = @ac_ct_AR@ ac_ct_CC = @ac_ct_CC@ ac_ct_DUMPBIN = @ac_ct_DUMPBIN@ am__include = @am__include@ am__leading_dot = @am__leading_dot@ am__quote = @am__quote@ am__tar = @am__tar@ am__untar = @am__untar@ bindir = @bindir@ build = @build@ build_alias = @build_alias@ build_cpu = @build_cpu@ build_os = @build_os@ build_vendor = @build_vendor@ builddir = @builddir@ datadir = @datadir@ datarootdir = @datarootdir@ docdir = @docdir@ dvidir = @dvidir@ exec_prefix = @exec_prefix@ host = @host@ host_alias = @host_alias@ host_cpu = @host_cpu@ host_os = @host_os@ host_vendor = @host_vendor@ htmldir = @htmldir@ includedir = @includedir@ infodir = @infodir@ install_sh = @install_sh@ libdir = @libdir@ libexecdir = @libexecdir@ localedir = @localedir@ localstatedir = @localstatedir@ mandir = @mandir@ mkdir_p = @mkdir_p@ oldincludedir = @oldincludedir@ pdfdir = @pdfdir@ prefix = @prefix@ program_transform_name = @program_transform_name@ psdir = @psdir@ sbindir = @sbindir@ sharedstatedir = @sharedstatedir@ srcdir = @srcdir@ sysconfdir = @sysconfdir@ target_alias = @target_alias@ top_build_prefix = @top_build_prefix@ top_builddir = @top_builddir@ top_srcdir = @top_srcdir@ SUBDIRS = gnome examples doc tests EXTRA_DIST = ChangeLog.pre-2.16 AUTHORS README all: all-recursive .SUFFIXES: $(srcdir)/Makefile.in: $(srcdir)/Makefile.am $(am__configure_deps) @for dep in $?; do \ case '$(am__configure_deps)' in \ *$$dep*) \ ( cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh ) \ && { if test -f $@; then exit 0; else break; fi; }; \ exit 1;; \ esac; \ done; \ echo ' cd $(top_srcdir) && $(AUTOMAKE) --gnu gconf/Makefile'; \ $(am__cd) $(top_srcdir) && \ $(AUTOMAKE) --gnu gconf/Makefile .PRECIOUS: Makefile Makefile: $(srcdir)/Makefile.in $(top_builddir)/config.status @case '$?' in \ *config.status*) \ cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh;; \ *) \ echo ' cd $(top_builddir) && $(SHELL) ./config.status $(subdir)/$@ $(am__depfiles_maybe)'; \ cd $(top_builddir) && $(SHELL) ./config.status $(subdir)/$@ $(am__depfiles_maybe);; \ esac; $(top_builddir)/config.status: $(top_srcdir)/configure $(CONFIG_STATUS_DEPENDENCIES) cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh $(top_srcdir)/configure: $(am__configure_deps) cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh $(ACLOCAL_M4): $(am__aclocal_m4_deps) cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh $(am__aclocal_m4_deps): mostlyclean-libtool: -rm -f *.lo clean-libtool: -rm -rf .libs _libs # This directory's subdirectories are mostly independent; you can cd # into them and run `make' without going through this Makefile. # To change the values of `make' variables: instead of editing Makefiles, # (1) if the variable is set in `config.status', edit `config.status' # (which will cause the Makefiles to be regenerated when you run `make'); # (2) otherwise, pass the desired values on the `make' command line. $(RECURSIVE_TARGETS): @fail= failcom='exit 1'; \ for f in x $$MAKEFLAGS; do \ case $$f in \ *=* | --[!k]*);; \ *k*) failcom='fail=yes';; \ esac; \ done; \ dot_seen=no; \ target=`echo $@ | sed s/-recursive//`; \ list='$(SUBDIRS)'; for subdir in $$list; do \ echo "Making $$target in $$subdir"; \ if test "$$subdir" = "."; then \ dot_seen=yes; \ local_target="$$target-am"; \ else \ local_target="$$target"; \ fi; \ ($(am__cd) $$subdir && $(MAKE) $(AM_MAKEFLAGS) $$local_target) \ || eval $$failcom; \ done; \ if test "$$dot_seen" = "no"; then \ $(MAKE) $(AM_MAKEFLAGS) "$$target-am" || exit 1; \ fi; test -z "$$fail" $(RECURSIVE_CLEAN_TARGETS): @fail= failcom='exit 1'; \ for f in x $$MAKEFLAGS; do \ case $$f in \ *=* | --[!k]*);; \ *k*) failcom='fail=yes';; \ esac; \ done; \ dot_seen=no; \ case "$@" in \ distclean-* | maintainer-clean-*) list='$(DIST_SUBDIRS)' ;; \ *) list='$(SUBDIRS)' ;; \ esac; \ rev=''; for subdir in $$list; do \ if test "$$subdir" = "."; then :; else \ rev="$$subdir $$rev"; \ fi; \ done; \ rev="$$rev ."; \ target=`echo $@ | sed s/-recursive//`; \ for subdir in $$rev; do \ echo "Making $$target in $$subdir"; \ if test "$$subdir" = "."; then \ local_target="$$target-am"; \ else \ local_target="$$target"; \ fi; \ ($(am__cd) $$subdir && $(MAKE) $(AM_MAKEFLAGS) $$local_target) \ || eval $$failcom; \ done && test -z "$$fail" tags-recursive: list='$(SUBDIRS)'; for subdir in $$list; do \ test "$$subdir" = . || ($(am__cd) $$subdir && $(MAKE) $(AM_MAKEFLAGS) tags); \ done ctags-recursive: list='$(SUBDIRS)'; for subdir in $$list; do \ test "$$subdir" = . || ($(am__cd) $$subdir && $(MAKE) $(AM_MAKEFLAGS) ctags); \ done ID: $(HEADERS) $(SOURCES) $(LISP) $(TAGS_FILES) list='$(SOURCES) $(HEADERS) $(LISP) $(TAGS_FILES)'; \ unique=`for i in $$list; do \ if test -f "$$i"; then echo $$i; else echo $(srcdir)/$$i; fi; \ done | \ $(AWK) '{ files[$$0] = 1; nonempty = 1; } \ END { if (nonempty) { for (i in files) print i; }; }'`; \ mkid -fID $$unique tags: TAGS TAGS: tags-recursive $(HEADERS) $(SOURCES) $(TAGS_DEPENDENCIES) \ $(TAGS_FILES) $(LISP) set x; \ here=`pwd`; \ if ($(ETAGS) --etags-include --version) >/dev/null 2>&1; then \ include_option=--etags-include; \ empty_fix=.; \ else \ include_option=--include; \ empty_fix=; \ fi; \ list='$(SUBDIRS)'; for subdir in $$list; do \ if test "$$subdir" = .; then :; else \ test ! -f $$subdir/TAGS || \ set "$$@" "$$include_option=$$here/$$subdir/TAGS"; \ fi; \ done; \ list='$(SOURCES) $(HEADERS) $(LISP) $(TAGS_FILES)'; \ unique=`for i in $$list; do \ if test -f "$$i"; then echo $$i; else echo $(srcdir)/$$i; fi; \ done | \ $(AWK) '{ files[$$0] = 1; nonempty = 1; } \ END { if (nonempty) { for (i in files) print i; }; }'`; \ shift; \ if test -z "$(ETAGS_ARGS)$$*$$unique"; then :; else \ test -n "$$unique" || unique=$$empty_fix; \ if test $$# -gt 0; then \ $(ETAGS) $(ETAGSFLAGS) $(AM_ETAGSFLAGS) $(ETAGS_ARGS) \ "$$@" $$unique; \ else \ $(ETAGS) $(ETAGSFLAGS) $(AM_ETAGSFLAGS) $(ETAGS_ARGS) \ $$unique; \ fi; \ fi ctags: CTAGS CTAGS: ctags-recursive $(HEADERS) $(SOURCES) $(TAGS_DEPENDENCIES) \ $(TAGS_FILES) $(LISP) list='$(SOURCES) $(HEADERS) $(LISP) $(TAGS_FILES)'; \ unique=`for i in $$list; do \ if test -f "$$i"; then echo $$i; else echo $(srcdir)/$$i; fi; \ done | \ $(AWK) '{ files[$$0] = 1; nonempty = 1; } \ END { if (nonempty) { for (i in files) print i; }; }'`; \ test -z "$(CTAGS_ARGS)$$unique" \ || $(CTAGS) $(CTAGSFLAGS) $(AM_CTAGSFLAGS) $(CTAGS_ARGS) \ $$unique GTAGS: here=`$(am__cd) $(top_builddir) && pwd` \ && $(am__cd) $(top_srcdir) \ && gtags -i $(GTAGS_ARGS) "$$here" distclean-tags: -rm -f TAGS ID GTAGS GRTAGS GSYMS GPATH tags distdir: $(DISTFILES) @srcdirstrip=`echo "$(srcdir)" | sed 's/[].[^$$\\*]/\\\\&/g'`; \ topsrcdirstrip=`echo "$(top_srcdir)" | sed 's/[].[^$$\\*]/\\\\&/g'`; \ list='$(DISTFILES)'; \ dist_files=`for file in $$list; do echo $$file; done | \ sed -e "s|^$$srcdirstrip/||;t" \ -e "s|^$$topsrcdirstrip/|$(top_builddir)/|;t"`; \ case $$dist_files in \ */*) $(MKDIR_P) `echo "$$dist_files" | \ sed '/\//!d;s|^|$(distdir)/|;s,/[^/]*$$,,' | \ sort -u` ;; \ esac; \ for file in $$dist_files; do \ if test -f $$file || test -d $$file; then d=.; else d=$(srcdir); fi; \ if test -d $$d/$$file; then \ dir=`echo "/$$file" | sed -e 's,/[^/]*$$,,'`; \ if test -d "$(distdir)/$$file"; then \ find "$(distdir)/$$file" -type d ! -perm -700 -exec chmod u+rwx {} \;; \ fi; \ if test -d $(srcdir)/$$file && test $$d != $(srcdir); then \ cp -fpR $(srcdir)/$$file "$(distdir)$$dir" || exit 1; \ find "$(distdir)/$$file" -type d ! -perm -700 -exec chmod u+rwx {} \;; \ fi; \ cp -fpR $$d/$$file "$(distdir)$$dir" || exit 1; \ else \ test -f "$(distdir)/$$file" \ || cp -p $$d/$$file "$(distdir)/$$file" \ || exit 1; \ fi; \ done @list='$(DIST_SUBDIRS)'; for subdir in $$list; do \ if test "$$subdir" = .; then :; else \ $(am__make_dryrun) \ || test -d "$(distdir)/$$subdir" \ || $(MKDIR_P) "$(distdir)/$$subdir" \ || exit 1; \ dir1=$$subdir; dir2="$(distdir)/$$subdir"; \ $(am__relativize); \ new_distdir=$$reldir; \ dir1=$$subdir; dir2="$(top_distdir)"; \ $(am__relativize); \ new_top_distdir=$$reldir; \ echo " (cd $$subdir && $(MAKE) $(AM_MAKEFLAGS) top_distdir="$$new_top_distdir" distdir="$$new_distdir" \\"; \ echo " am__remove_distdir=: am__skip_length_check=: am__skip_mode_fix=: distdir)"; \ ($(am__cd) $$subdir && \ $(MAKE) $(AM_MAKEFLAGS) \ top_distdir="$$new_top_distdir" \ distdir="$$new_distdir" \ am__remove_distdir=: \ am__skip_length_check=: \ am__skip_mode_fix=: \ distdir) \ || exit 1; \ fi; \ done check-am: all-am check: check-recursive all-am: Makefile installdirs: installdirs-recursive installdirs-am: install: install-recursive install-exec: install-exec-recursive install-data: install-data-recursive uninstall: uninstall-recursive install-am: all-am @$(MAKE) $(AM_MAKEFLAGS) install-exec-am install-data-am installcheck: installcheck-recursive install-strip: if test -z '$(STRIP)'; then \ $(MAKE) $(AM_MAKEFLAGS) INSTALL_PROGRAM="$(INSTALL_STRIP_PROGRAM)" \ install_sh_PROGRAM="$(INSTALL_STRIP_PROGRAM)" INSTALL_STRIP_FLAG=-s \ install; \ else \ $(MAKE) $(AM_MAKEFLAGS) INSTALL_PROGRAM="$(INSTALL_STRIP_PROGRAM)" \ install_sh_PROGRAM="$(INSTALL_STRIP_PROGRAM)" INSTALL_STRIP_FLAG=-s \ "INSTALL_PROGRAM_ENV=STRIPPROG='$(STRIP)'" install; \ fi mostlyclean-generic: clean-generic: distclean-generic: -test -z "$(CONFIG_CLEAN_FILES)" || rm -f $(CONFIG_CLEAN_FILES) -test . = "$(srcdir)" || test -z "$(CONFIG_CLEAN_VPATH_FILES)" || rm -f $(CONFIG_CLEAN_VPATH_FILES) maintainer-clean-generic: @echo "This command is intended for maintainers to use" @echo "it deletes files that may require special tools to rebuild." clean: clean-recursive clean-am: clean-generic clean-libtool mostlyclean-am distclean: distclean-recursive -rm -f Makefile distclean-am: clean-am distclean-generic distclean-tags dvi: dvi-recursive dvi-am: html: html-recursive html-am: info: info-recursive info-am: install-data-am: install-dvi: install-dvi-recursive install-dvi-am: install-exec-am: install-html: install-html-recursive install-html-am: install-info: install-info-recursive install-info-am: install-man: install-pdf: install-pdf-recursive install-pdf-am: install-ps: install-ps-recursive install-ps-am: installcheck-am: maintainer-clean: maintainer-clean-recursive -rm -f Makefile maintainer-clean-am: distclean-am maintainer-clean-generic mostlyclean: mostlyclean-recursive mostlyclean-am: mostlyclean-generic mostlyclean-libtool pdf: pdf-recursive pdf-am: ps: ps-recursive ps-am: uninstall-am: .MAKE: $(RECURSIVE_CLEAN_TARGETS) $(RECURSIVE_TARGETS) ctags-recursive \ install-am install-strip tags-recursive .PHONY: $(RECURSIVE_CLEAN_TARGETS) $(RECURSIVE_TARGETS) CTAGS GTAGS \ all all-am check check-am clean clean-generic clean-libtool \ ctags ctags-recursive distclean distclean-generic \ distclean-libtool distclean-tags distdir dvi dvi-am html \ html-am info info-am install install-am install-data \ install-data-am install-dvi install-dvi-am install-exec \ install-exec-am install-html install-html-am install-info \ install-info-am install-man install-pdf install-pdf-am \ install-ps install-ps-am install-strip installcheck \ installcheck-am installdirs installdirs-am maintainer-clean \ maintainer-clean-generic mostlyclean mostlyclean-generic \ mostlyclean-libtool pdf pdf-am ps ps-am tags tags-recursive \ uninstall uninstall-am # Tell versions [3.59,3.63) of GNU make to not export all variables. # Otherwise a system limit (for SysV at least) may be exceeded. .NOEXPORT: guile-gnome-platform-2.16.2/gconf/README0000644000175000017500000000155311670374302020147 0ustar00wingowingo00000000000000guile-gnome-gconf README Copyright (C) 2004 Free Software Foundation, Inc. See the end for copying conditions of this file. Last updated 16 September 2004. About guile-gnome-gconf ========================== guile-gnome-gconf is a Guile wrapper for gconf. It is a part of GNU guile-gnome. See the README file in the toplevel source directory for more information. Build dependencies ================== Besides the base guile-gnome requirements given in ../README, guile-gnome-gconf requires gconf development packages. guile-gnome-gconf depends on the following guile-gnome modules: glib, defs, . Copying this file ================= Copyright (C) 2004 Free Software Foundation, Inc. Copying and distribution of this file, with or without modification, are permitted in any medium without royalty provided the copyright notice and this notice are preserved. guile-gnome-platform-2.16.2/gconf/AUTHORS0000644000175000017500000000066011670374302020335 0ustar00wingowingo00000000000000To find out what should go in this file, see "Information For Maintainers of GNU Software" (maintain.texi), the section called "Recording Changes". Andy Wingo: In the directory gnome/gw, wrote: gconf-spec.scm gconf-support.c gconf-support.h In the directory gnome/overrides, wrote: gconf.defs gconf.defs-type-overrides In the directory gnome, wrote: gconf.scm In the directory examples/gconf, wrote: [nothing yet] guile-gnome-platform-2.16.2/gconf/ChangeLog.pre-2.160000644000175000017500000001122011670374302022202 0ustar00wingowingo000000000000002008-05-01 Andy Wingo * gnome/gw/gconf-support.c: Fix scm_with_guile + notify-add usage. * doc/overview.texi (Overview): Add example code. 2008-04-25 Andy Wingo * == Released guile-gnome-platform version 2.15.98 == 2008-04-25 Andy Wingo * doc/*.texi: Update docs. 2008-04-24 Andy Wingo * gnome/gw/gconf-support.c (scm_c_gconf_value_to_scm) (sniff_list_type, scm_c_scm_to_gconf_value, notify_proc): Fix deprecation warnings. 2008-04-10 Andy Wingo * == Released guile-gnome-platform version 2.15.97 == 2008-04-10 Andy Wingo * NEWS: Update NEWS. 2008-04-08 Andy Wingo * gnome/gw/gconf-support.c (scm_c_gconf_value_to_scm): Use newer GValue accessors. 2007-12-10 Andy Wingo * == Released guile-gnome-platform version 2.15.96 == 2007-12-06 Andy Wingo * doc/guile-gnome-gconf.texi (Top): * doc/undocumented.texi: Add section for undocumented exports. * doc/defuns-*.texi: Regenerated. * tests/wrapset.api: Update. * gnome/overrides/gconf.defs: Ignore functions that operate on opaque types or are otherwise unsafe for scheme. * doc/guile-gnome-gconf.texi (Top): Add type index. 2007-11-10 Andy Wingo * == Released guile-gnome-platform version 2.15.95 == 2007-11-10 Andy Wingo * tests/Makefile.am: * tests/wrapset.api: * tests/wrapset.scm: Add API regression test suite. 2007-11-01 Andy Wingo * Makefile.am: * doc/: Add documentation, generated from upstream gtk-doc. 2007-09-25 Andy Wingo * == Released guile-gnome-platform version 2.15.94 == 2007-09-25 Andy Wingo * NEWS: Updated. 2007-06-15 Andy Wingo * == Released guile-gnome-platform version 2.15.93 == 2007-05-24 Andy Wingo * == Released guile-gnome-platform version 2.15.92 == 2007-05-24 Andy Wingo * gnome/overrides/gconf.defs ("gconf_engine_get_for_addresses"): Ignore gconf-engine-notify-add. 2007-05-10 Andy Wingo * == Released guile-gnome-platform version 2.15.91 == 2007-05-04 Andy Wingo * gnome/overrides/gconf.defs (notify_add): Don't leave guile mode for this one. 2006-12-15 Andy Wingo * == Released guile-gnome-platform version 2.15.90 == 2006-11-05 Andy Wingo * gnome/gw/gconf-spec.scm: Use (gnome gw support g-wrap), the g-wrap compatibility wrapper. 2005-04-10 Andreas Rottmann * gnome/gw/gconf-support.c: Use new SCM<->gpointer conversion macros. 2005-03-06 Andy Wingo * == Released guile-gnome-platform version 2.7.99 == 2005-01-11 Andy Wingo * == Released platform version 2.7.98 == 2004-11-15 Andy Wingo * package.ac: Add record_check. 2004-10-28 Andy Wingo * glib-checks.ac: * defs-checks.ac: Versioned pkg-config check. 2004-10-26 Andy Wingo * gnome/gw/Makefile.am (guilegnomelib_LTLIBRARIES): Install to versioned directory. 2004-10-10 Andy Wingo * {arch}/=tagging-method: Untagged-source = unrecognized. * AUTHORS: Updated. * gnome/gw/gconf-spec.scm: Add custom wrapper for GConfValue. (global-declarations-cg): Pull in the GConfClient headers. (unwrap-value-cg, wrap-value-cg): GConfValue wrappers.. Alias GConfUnsetFlags as unsigned-int. * gnome/gw/gconf-support.h: Define _GCONF_TYPE_SCHEMA, _GCONF_TYPE_VALUE. * gnome/gw/gconf-support.c (_gconf_schema_get_type) (_gconf_value_get_type): GType registration functions. (scm_c_gconf_value_to_scm, sniff_list_type) (scm_c_scm_to_gconf_value): Helpers for conversion to and from GConfValue. (notify_proc, _wrap_gconf_client_notify_add): Custom wrapper for add_notify. * gnome/overrides/gconf.defs-type-ignores: Fix all GType ids, it seems h2defs chokes for gconf. * gnome/overrides/gconf.defs (notify_add): Add notify_add wrapper. (Schema): Define GConfSchema as a boxed type. (gconf-client-all-entries, gconf-client-all-dirs) (gconf-engine-all-entries, gconf-engine-all-dirs): Specify list subtypes. Ignore all type-specific get/set functions, because GConfValue is represented naturally and unambiguously with native scheme values. Ignore the listeners API for now, it requires custom wrappers. Ignore deprecated/internal routines. * gnome/gconf.scm: Don't pull in gtk. 2004-10-09 Andy Wingo * package.ac: Check the right pkg-config file. * Initial import, via guile-gnome-template's `templatize'. guile-gnome-platform-2.16.2/gconf/ChangeLog0000644000175000017500000000006711670374302021040 0ustar00wingowingo00000000000000See the revision control log for changes since 2.16.0. guile-gnome-platform-2.16.2/common.mk0000644000175000017500000000516311752520645020021 0ustar00wingowingo00000000000000# guile-gnome # Copyright (C) 2003,2004,2009,2012 Free Software Foundation, Inc. # This program is free software; you can redistribute it and/or # modify it under the terms of the GNU General Public License as # published by the Free Software Foundation; either version 2 of # the License, or (at your option) any later version. # This program is distributed in the hope that it will be useful, # but WITHOUT ANY WARRANTY; without even the implied warranty of # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the # GNU General Public License for more details. # You should have received a copy of the GNU General Public License # along with this program; if not, contact: # Free Software Foundation Voice: +1-617-542-5942 # 59 Temple Place - Suite 330 Fax: +1-617-542-2652 # Boston, MA 02111-1307, USA gnu@gnu.org # # Makefile snippet # guilegnomedir = $(datadir)/guile-gnome-@API_VERSION@ guilemoduledir = $(guilegnomedir)/gnome guilegwmoduledir = $(guilegnomedir)/gnome/gw guilegnomelibdir = $(libdir)/guile-gnome-@API_VERSION@ AM_CFLAGS = -I. -I$(srcdir) $(WARN_CFLAGS) $(DEBUG_CFLAGS) # For overriding from the command line (e.g. --debug) GUILE_FLAGS = SUFFIXES = .x .doc GUILE_SNARF_CFLAGS = $(DEFS) $(AM_CFLAGS) $(GUILE_CFLAGS) $(G_WRAP_CFLAGS) PACKAGES = atk cairo corba defs gconf glib gnome-vfs gtk libglade libgnome libgnomecanvas libgnomeui pango SOURCE_GUILE_PATH=$(shell echo $(addprefix $(top_srcdir)/,$(PACKAGES)) | sed -e 's/ /:/g'):$(srcdir) BUILD_GUILE_PATH=$(if $(filter-out $(top_srcdir),$(top_builddir)),$(shell echo -n $(addprefix $(top_builddir)/,$(PACKAGES)): | sed -e 's/ /:/g'),) GUILE_LOAD_PATH:=$(BUILD_GUILE_PATH)$(SOURCE_GUILE_PATH):${G_WRAP_MODULE_DIR}:${GUILE_LOAD_PATH} export GUILE_LOAD_PATH .c.x: guile-snarf $(GUILE_SNARF_CFLAGS) $< > $@ \ || { rm $@; false; } .c.doc: $(CPP) -DSCM_MAGIC_SNARF_DOCS $(GUILE_SNARF_CFLAGS) $< \ | grep -E '(\^\^ {|\^\^ })' > $@ || { rm $@; false; } %.scm guile-gnome-gw-%.c: %-spec.scm guile $(GUILE_FLAGS) -c \ "(debug-set! stack 400000) \ (use-modules (gnome-@API_VERSION@)) \ (use-modules (g-wrap)) \ (use-modules (gnome gw $*-spec)) \ (generate-wrapset 'guile 'gnome-$* \"guile-gnome-gw-$*\")" mv guile-gnome-gw-$*.scm $*.scm %-@API_VERSION@.pc: %.pc cp $< $@ %-@API_VERSION@-uninstalled.pc: %-uninstalled.pc cp $< $@ # Real gnu make foo packages = $(filter-out %-uninstalled,$(patsubst %.pc.in,%,$(notdir $(wildcard $(srcdir)/*.pc.in)))) pcifiles = $(patsubst %,%-@API_VERSION@.pc,$(packages)) pcufiles = $(patsubst %,%-@API_VERSION@-uninstalled.pc,$(packages)) guile-gnome-platform-2.16.2/COPYING0000644000175000017500000004311011670374114017222 0ustar00wingowingo00000000000000 GNU GENERAL PUBLIC LICENSE Version 2, June 1991 Copyright (C) 1989, 1991 Free Software Foundation, Inc. 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA Everyone is permitted to copy and distribute verbatim copies of this license document, but changing it is not allowed. Preamble The licenses for most software are designed to take away your freedom to share and change it. By contrast, the GNU General Public License is intended to guarantee your freedom to share and change free software--to make sure the software is free for all its users. This General Public License applies to most of the Free Software Foundation's software and to any other program whose authors commit to using it. (Some other Free Software Foundation software is covered by the GNU Library General Public License instead.) You can apply it to your programs, too. When we speak of free software, we are referring to freedom, not price. Our General Public Licenses are designed to make sure that you have the freedom to distribute copies of free software (and charge for this service if you wish), that you receive source code or can get it if you want it, that you can change the software or use pieces of it in new free programs; and that you know you can do these things. To protect your rights, we need to make restrictions that forbid anyone to deny you these rights or to ask you to surrender the rights. These restrictions translate to certain responsibilities for you if you distribute copies of the software, or if you modify it. For example, if you distribute copies of such a program, whether gratis or for a fee, you must give the recipients all the rights that you have. You must make sure that they, too, receive or can get the source code. And you must show them these terms so they know their rights. We protect your rights with two steps: (1) copyright the software, and (2) offer you this license which gives you legal permission to copy, distribute and/or modify the software. Also, for each author's protection and ours, we want to make certain that everyone understands that there is no warranty for this free software. If the software is modified by someone else and passed on, we want its recipients to know that what they have is not the original, so that any problems introduced by others will not reflect on the original authors' reputations. Finally, any free program is threatened constantly by software patents. We wish to avoid the danger that redistributors of a free program will individually obtain patent licenses, in effect making the program proprietary. To prevent this, we have made it clear that any patent must be licensed for everyone's free use or not licensed at all. The precise terms and conditions for copying, distribution and modification follow. GNU GENERAL PUBLIC LICENSE TERMS AND CONDITIONS FOR COPYING, DISTRIBUTION AND MODIFICATION 0. This License applies to any program or other work which contains a notice placed by the copyright holder saying it may be distributed under the terms of this General Public License. The "Program", below, refers to any such program or work, and a "work based on the Program" means either the Program or any derivative work under copyright law: that is to say, a work containing the Program or a portion of it, either verbatim or with modifications and/or translated into another language. (Hereinafter, translation is included without limitation in the term "modification".) Each licensee is addressed as "you". Activities other than copying, distribution and modification are not covered by this License; they are outside its scope. The act of running the Program is not restricted, and the output from the Program is covered only if its contents constitute a work based on the Program (independent of having been made by running the Program). Whether that is true depends on what the Program does. 1. You may copy and distribute verbatim copies of the Program's source code as you receive it, in any medium, provided that you conspicuously and appropriately publish on each copy an appropriate copyright notice and disclaimer of warranty; keep intact all the notices that refer to this License and to the absence of any warranty; and give any other recipients of the Program a copy of this License along with the Program. You may charge a fee for the physical act of transferring a copy, and you may at your option offer warranty protection in exchange for a fee. 2. You may modify your copy or copies of the Program or any portion of it, thus forming a work based on the Program, and copy and distribute such modifications or work under the terms of Section 1 above, provided that you also meet all of these conditions: a) You must cause the modified files to carry prominent notices stating that you changed the files and the date of any change. b) You must cause any work that you distribute or publish, that in whole or in part contains or is derived from the Program or any part thereof, to be licensed as a whole at no charge to all third parties under the terms of this License. c) If the modified program normally reads commands interactively when run, you must cause it, when started running for such interactive use in the most ordinary way, to print or display an announcement including an appropriate copyright notice and a notice that there is no warranty (or else, saying that you provide a warranty) and that users may redistribute the program under these conditions, and telling the user how to view a copy of this License. (Exception: if the Program itself is interactive but does not normally print such an announcement, your work based on the Program is not required to print an announcement.) These requirements apply to the modified work as a whole. If identifiable sections of that work are not derived from the Program, and can be reasonably considered independent and separate works in themselves, then this License, and its terms, do not apply to those sections when you distribute them as separate works. But when you distribute the same sections as part of a whole which is a work based on the Program, the distribution of the whole must be on the terms of this License, whose permissions for other licensees extend to the entire whole, and thus to each and every part regardless of who wrote it. Thus, it is not the intent of this section to claim rights or contest your rights to work written entirely by you; rather, the intent is to exercise the right to control the distribution of derivative or collective works based on the Program. In addition, mere aggregation of another work not based on the Program with the Program (or with a work based on the Program) on a volume of a storage or distribution medium does not bring the other work under the scope of this License. 3. You may copy and distribute the Program (or a work based on it, under Section 2) in object code or executable form under the terms of Sections 1 and 2 above provided that you also do one of the following: a) Accompany it with the complete corresponding machine-readable source code, which must be distributed under the terms of Sections 1 and 2 above on a medium customarily used for software interchange; or, b) Accompany it with a written offer, valid for at least three years, to give any third party, for a charge no more than your cost of physically performing source distribution, a complete machine-readable copy of the corresponding source code, to be distributed under the terms of Sections 1 and 2 above on a medium customarily used for software interchange; or, c) Accompany it with the information you received as to the offer to distribute corresponding source code. (This alternative is allowed only for noncommercial distribution and only if you received the program in object code or executable form with such an offer, in accord with Subsection b above.) The source code for a work means the preferred form of the work for making modifications to it. For an executable work, complete source code means all the source code for all modules it contains, plus any associated interface definition files, plus the scripts used to control compilation and installation of the executable. However, as a special exception, the source code distributed need not include anything that is normally distributed (in either source or binary form) with the major components (compiler, kernel, and so on) of the operating system on which the executable runs, unless that component itself accompanies the executable. If distribution of executable or object code is made by offering access to copy from a designated place, then offering equivalent access to copy the source code from the same place counts as distribution of the source code, even though third parties are not compelled to copy the source along with the object code. 4. You may not copy, modify, sublicense, or distribute the Program except as expressly provided under this License. Any attempt otherwise to copy, modify, sublicense or distribute the Program is void, and will automatically terminate your rights under this License. However, parties who have received copies, or rights, from you under this License will not have their licenses terminated so long as such parties remain in full compliance. 5. You are not required to accept this License, since you have not signed it. However, nothing else grants you permission to modify or distribute the Program or its derivative works. These actions are prohibited by law if you do not accept this License. Therefore, by modifying or distributing the Program (or any work based on the Program), you indicate your acceptance of this License to do so, and all its terms and conditions for copying, distributing or modifying the Program or works based on it. 6. Each time you redistribute the Program (or any work based on the Program), the recipient automatically receives a license from the original licensor to copy, distribute or modify the Program subject to these terms and conditions. You may not impose any further restrictions on the recipients' exercise of the rights granted herein. You are not responsible for enforcing compliance by third parties to this License. 7. If, as a consequence of a court judgment or allegation of patent infringement or for any other reason (not limited to patent issues), conditions are imposed on you (whether by court order, agreement or otherwise) that contradict the conditions of this License, they do not excuse you from the conditions of this License. If you cannot distribute so as to satisfy simultaneously your obligations under this License and any other pertinent obligations, then as a consequence you may not distribute the Program at all. For example, if a patent license would not permit royalty-free redistribution of the Program by all those who receive copies directly or indirectly through you, then the only way you could satisfy both it and this License would be to refrain entirely from distribution of the Program. If any portion of this section is held invalid or unenforceable under any particular circumstance, the balance of the section is intended to apply and the section as a whole is intended to apply in other circumstances. It is not the purpose of this section to induce you to infringe any patents or other property right claims or to contest validity of any such claims; this section has the sole purpose of protecting the integrity of the free software distribution system, which is implemented by public license practices. Many people have made generous contributions to the wide range of software distributed through that system in reliance on consistent application of that system; it is up to the author/donor to decide if he or she is willing to distribute software through any other system and a licensee cannot impose that choice. This section is intended to make thoroughly clear what is believed to be a consequence of the rest of this License. 8. If the distribution and/or use of the Program is restricted in certain countries either by patents or by copyrighted interfaces, the original copyright holder who places the Program under this License may add an explicit geographical distribution limitation excluding those countries, so that distribution is permitted only in or among countries not thus excluded. In such case, this License incorporates the limitation as if written in the body of this License. 9. The Free Software Foundation may publish revised and/or new versions of the General Public License from time to time. Such new versions will be similar in spirit to the present version, but may differ in detail to address new problems or concerns. Each version is given a distinguishing version number. If the Program specifies a version number of this License which applies to it and "any later version", you have the option of following the terms and conditions either of that version or of any later version published by the Free Software Foundation. If the Program does not specify a version number of this License, you may choose any version ever published by the Free Software Foundation. 10. If you wish to incorporate parts of the Program into other free programs whose distribution conditions are different, write to the author to ask for permission. For software which is copyrighted by the Free Software Foundation, write to the Free Software Foundation; we sometimes make exceptions for this. Our decision will be guided by the two goals of preserving the free status of all derivatives of our free software and of promoting the sharing and reuse of software generally. NO WARRANTY 11. BECAUSE THE PROGRAM IS LICENSED FREE OF CHARGE, THERE IS NO WARRANTY FOR THE PROGRAM, TO THE EXTENT PERMITTED BY APPLICABLE LAW. EXCEPT WHEN OTHERWISE STATED IN WRITING THE COPYRIGHT HOLDERS AND/OR OTHER PARTIES PROVIDE THE PROGRAM "AS IS" WITHOUT WARRANTY OF ANY KIND, EITHER EXPRESSED OR IMPLIED, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE. THE ENTIRE RISK AS TO THE QUALITY AND PERFORMANCE OF THE PROGRAM IS WITH YOU. SHOULD THE PROGRAM PROVE DEFECTIVE, YOU ASSUME THE COST OF ALL NECESSARY SERVICING, REPAIR OR CORRECTION. 12. IN NO EVENT UNLESS REQUIRED BY APPLICABLE LAW OR AGREED TO IN WRITING WILL ANY COPYRIGHT HOLDER, OR ANY OTHER PARTY WHO MAY MODIFY AND/OR REDISTRIBUTE THE PROGRAM AS PERMITTED ABOVE, BE LIABLE TO YOU FOR DAMAGES, INCLUDING ANY GENERAL, SPECIAL, INCIDENTAL OR CONSEQUENTIAL DAMAGES ARISING OUT OF THE USE OR INABILITY TO USE THE PROGRAM (INCLUDING BUT NOT LIMITED TO LOSS OF DATA OR DATA BEING RENDERED INACCURATE OR LOSSES SUSTAINED BY YOU OR THIRD PARTIES OR A FAILURE OF THE PROGRAM TO OPERATE WITH ANY OTHER PROGRAMS), EVEN IF SUCH HOLDER OR OTHER PARTY HAS BEEN ADVISED OF THE POSSIBILITY OF SUCH DAMAGES. END OF TERMS AND CONDITIONS How to Apply These Terms to Your New Programs If you develop a new program, and you want it to be of the greatest possible use to the public, the best way to achieve this is to make it free software which everyone can redistribute and change under these terms. To do so, attach the following notices to the program. It is safest to attach them to the start of each source file to most effectively convey the exclusion of warranty; and each file should have at least the "copyright" line and a pointer to where the full notice is found. Copyright (C) This program is free software; you can redistribute it and/or modify it under the terms of the GNU General Public License as published by the Free Software Foundation; either version 2 of the License, or (at your option) any later version. This program is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License for more details. You should have received a copy of the GNU General Public License along with this program; if not, write to the Free Software Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA Also add information on how to contact you by electronic and paper mail. If the program is interactive, make it output a short notice like this when it starts in an interactive mode: Gnomovision version 69, Copyright (C) year name of author Gnomovision comes with ABSOLUTELY NO WARRANTY; for details type `show w'. This is free software, and you are welcome to redistribute it under certain conditions; type `show c' for details. The hypothetical commands `show w' and `show c' should show the appropriate parts of the General Public License. Of course, the commands you use may be called something other than `show w' and `show c'; they could even be mouse-clicks or menu items--whatever suits your program. You should also get your employer (if you work as a programmer) or your school, if any, to sign a "copyright disclaimer" for the program, if necessary. Here is a sample; alter the names: Yoyodyne, Inc., hereby disclaims all copyright interest in the program `Gnomovision' (which makes passes at compilers) written by James Hacker. , 1 April 1989 Ty Coon, President of Vice This General Public License does not permit incorporating your program into proprietary programs. If your program is a subroutine library, you may consider it more useful to permit linking proprietary applications with the library. If this is what you want to do, use the GNU Library General Public License instead of this License. guile-gnome-platform-2.16.2/ChangeLog0000644000175000017500000000006711670374114017745 0ustar00wingowingo00000000000000See the revision control log for changes since 2.16.0. guile-gnome-platform-2.16.2/libgnomecanvas/0000755000175000017500000000000011752546504021165 5ustar00wingowingo00000000000000guile-gnome-platform-2.16.2/libgnomecanvas/examples/0000755000175000017500000000000011752546504023003 5ustar00wingowingo00000000000000guile-gnome-platform-2.16.2/libgnomecanvas/examples/Makefile.am0000644000175000017500000000003711670374303025032 0ustar00wingowingo00000000000000EXTRA_DIST = $(wildcard *.scm) guile-gnome-platform-2.16.2/libgnomecanvas/examples/Makefile.in0000644000175000017500000002732311752511070025045 0ustar00wingowingo00000000000000# Makefile.in generated by automake 1.11.5 from Makefile.am. # @configure_input@ # Copyright (C) 1994, 1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, # 2003, 2004, 2005, 2006, 2007, 2008, 2009, 2010, 2011 Free Software # Foundation, Inc. # This Makefile.in is free software; the Free Software Foundation # gives unlimited permission to copy and/or distribute it, # with or without modifications, as long as this notice is preserved. # This program is distributed in the hope that it will be useful, # but WITHOUT ANY WARRANTY, to the extent permitted by law; without # even the implied warranty of MERCHANTABILITY or FITNESS FOR A # PARTICULAR PURPOSE. @SET_MAKE@ VPATH = @srcdir@ am__make_dryrun = \ { \ am__dry=no; \ case $$MAKEFLAGS in \ *\\[\ \ ]*) \ echo 'am--echo: ; @echo "AM" OK' | $(MAKE) -f - 2>/dev/null \ | grep '^AM OK$$' >/dev/null || am__dry=yes;; \ *) \ for am__flg in $$MAKEFLAGS; do \ case $$am__flg in \ *=*|--*) ;; \ *n*) am__dry=yes; break;; \ esac; \ done;; \ esac; \ test $$am__dry = yes; \ } pkgdatadir = $(datadir)/@PACKAGE@ pkgincludedir = $(includedir)/@PACKAGE@ pkglibdir = $(libdir)/@PACKAGE@ pkglibexecdir = $(libexecdir)/@PACKAGE@ am__cd = CDPATH="$${ZSH_VERSION+.}$(PATH_SEPARATOR)" && cd install_sh_DATA = $(install_sh) -c -m 644 install_sh_PROGRAM = $(install_sh) -c install_sh_SCRIPT = $(install_sh) -c INSTALL_HEADER = $(INSTALL_DATA) transform = $(program_transform_name) NORMAL_INSTALL = : PRE_INSTALL = : POST_INSTALL = : NORMAL_UNINSTALL = : PRE_UNINSTALL = : POST_UNINSTALL = : build_triplet = @build@ host_triplet = @host@ subdir = libgnomecanvas/examples DIST_COMMON = $(srcdir)/Makefile.am $(srcdir)/Makefile.in ACLOCAL_M4 = $(top_srcdir)/aclocal.m4 am__aclocal_m4_deps = $(top_srcdir)/configure.ac am__configure_deps = $(am__aclocal_m4_deps) $(CONFIGURE_DEPENDENCIES) \ $(ACLOCAL_M4) mkinstalldirs = $(install_sh) -d CONFIG_HEADER = $(top_builddir)/config.h CONFIG_CLEAN_FILES = CONFIG_CLEAN_VPATH_FILES = SOURCES = DIST_SOURCES = am__can_run_installinfo = \ case $$AM_UPDATE_INFO_DIR in \ n|no|NO) false;; \ *) (install-info --version) >/dev/null 2>&1;; \ esac DISTFILES = $(DIST_COMMON) $(DIST_SOURCES) $(TEXINFOS) $(EXTRA_DIST) ACLOCAL = @ACLOCAL@ AG_PKG_CONFIG_PATH = @AG_PKG_CONFIG_PATH@ AMTAR = @AMTAR@ API_VERSION = @API_VERSION@ AR = @AR@ ATK_CFLAGS = @ATK_CFLAGS@ ATK_LIBS = @ATK_LIBS@ AUTOCONF = @AUTOCONF@ AUTOHEADER = @AUTOHEADER@ AUTOMAKE = @AUTOMAKE@ AWK = @AWK@ BONOBO_IDL_DIR = @BONOBO_IDL_DIR@ CANVAS_CFLAGS = @CANVAS_CFLAGS@ CANVAS_LIBS = @CANVAS_LIBS@ CC = @CC@ CCDEPMODE = @CCDEPMODE@ CFLAGS = @CFLAGS@ CORBA_CFLAGS = @CORBA_CFLAGS@ CORBA_LIBS = @CORBA_LIBS@ CPP = @CPP@ CPPFLAGS = @CPPFLAGS@ CYGPATH_W = @CYGPATH_W@ DEFS = @DEFS@ DEPDIR = @DEPDIR@ DLLTOOL = @DLLTOOL@ DSYMUTIL = @DSYMUTIL@ DUMPBIN = @DUMPBIN@ ECHO_C = @ECHO_C@ ECHO_N = @ECHO_N@ ECHO_T = @ECHO_T@ EGREP = @EGREP@ EXEEXT = @EXEEXT@ FGREP = @FGREP@ GCONF_CFLAGS = @GCONF_CFLAGS@ GCONF_LIBS = @GCONF_LIBS@ GDK_CFLAGS = @GDK_CFLAGS@ GDK_LIBS = @GDK_LIBS@ GDK_PIXBUF_CFLAGS = @GDK_PIXBUF_CFLAGS@ GDK_PIXBUF_LIBS = @GDK_PIXBUF_LIBS@ GLIB_CFLAGS = @GLIB_CFLAGS@ GLIB_LIBS = @GLIB_LIBS@ GNOMEUI_DEPRECATION_FLAGS = @GNOMEUI_DEPRECATION_FLAGS@ GNOME_VFS_CFLAGS = @GNOME_VFS_CFLAGS@ GNOME_VFS_DEPRECATED_CFLAGS = @GNOME_VFS_DEPRECATED_CFLAGS@ GNOME_VFS_LIBS = @GNOME_VFS_LIBS@ GOBJECT_CFLAGS = @GOBJECT_CFLAGS@ GOBJECT_LIBS = @GOBJECT_LIBS@ GREP = @GREP@ GTHREAD_CFLAGS = @GTHREAD_CFLAGS@ GTHREAD_LIBS = @GTHREAD_LIBS@ GTK_CFLAGS = @GTK_CFLAGS@ GTK_DEPRECATED_CFLAGS = @GTK_DEPRECATED_CFLAGS@ GTK_LIBS = @GTK_LIBS@ GUILE_CAIRO_CFLAGS = @GUILE_CAIRO_CFLAGS@ GUILE_CAIRO_LIBS = @GUILE_CAIRO_LIBS@ GUILE_CFLAGS = @GUILE_CFLAGS@ GUILE_EFFECTIVE_VERSION = @GUILE_EFFECTIVE_VERSION@ GUILE_GLIB_CFLAGS = @GUILE_GLIB_CFLAGS@ GUILE_GLIB_LIBS = @GUILE_GLIB_LIBS@ GUILE_LIBS = @GUILE_LIBS@ G_WRAP_CFLAGS = @G_WRAP_CFLAGS@ G_WRAP_LIBS = @G_WRAP_LIBS@ G_WRAP_LIB_DIR = @G_WRAP_LIB_DIR@ G_WRAP_MODULE_DIR = @G_WRAP_MODULE_DIR@ INSTALL = @INSTALL@ INSTALL_DATA = @INSTALL_DATA@ INSTALL_PROGRAM = @INSTALL_PROGRAM@ INSTALL_SCRIPT = @INSTALL_SCRIPT@ INSTALL_STRIP_PROGRAM = @INSTALL_STRIP_PROGRAM@ LD = @LD@ LDFLAGS = @LDFLAGS@ LIBGLADE_CFLAGS = @LIBGLADE_CFLAGS@ LIBGLADE_LIBS = @LIBGLADE_LIBS@ LIBGNOMEUI_CFLAGS = @LIBGNOMEUI_CFLAGS@ LIBGNOMEUI_LIBS = @LIBGNOMEUI_LIBS@ LIBGNOME_CFLAGS = @LIBGNOME_CFLAGS@ LIBGNOME_LIBS = @LIBGNOME_LIBS@ LIBOBJS = @LIBOBJS@ LIBS = @LIBS@ LIBTOOL = @LIBTOOL@ LIPO = @LIPO@ LN_S = @LN_S@ LTLIBOBJS = @LTLIBOBJS@ MAKEINFO = @MAKEINFO@ MANIFEST_TOOL = @MANIFEST_TOOL@ MKDIR_P = @MKDIR_P@ NM = @NM@ NMEDIT = @NMEDIT@ OBJDUMP = @OBJDUMP@ OBJEXT = @OBJEXT@ ORBIT_IDL = @ORBIT_IDL@ OTOOL = @OTOOL@ OTOOL64 = @OTOOL64@ PACKAGE = @PACKAGE@ PACKAGE_BUGREPORT = @PACKAGE_BUGREPORT@ PACKAGE_NAME = @PACKAGE_NAME@ PACKAGE_STRING = @PACKAGE_STRING@ PACKAGE_TARNAME = @PACKAGE_TARNAME@ PACKAGE_URL = @PACKAGE_URL@ PACKAGE_VERSION = @PACKAGE_VERSION@ PANGOCAIRO_CFLAGS = @PANGOCAIRO_CFLAGS@ PANGOCAIRO_LIBS = @PANGOCAIRO_LIBS@ PANGO_CFLAGS = @PANGO_CFLAGS@ PANGO_LIBS = @PANGO_LIBS@ PATH_SEPARATOR = @PATH_SEPARATOR@ PKG_CONFIG = @PKG_CONFIG@ PKG_CONFIG_LIBDIR = @PKG_CONFIG_LIBDIR@ PKG_CONFIG_PATH = @PKG_CONFIG_PATH@ RANLIB = @RANLIB@ SED = @SED@ SET_MAKE = @SET_MAKE@ SHELL = @SHELL@ STRIP = @STRIP@ VERSION = @VERSION@ WARN_CFLAGS = @WARN_CFLAGS@ abs_builddir = @abs_builddir@ abs_srcdir = @abs_srcdir@ abs_top_builddir = @abs_top_builddir@ abs_top_srcdir = @abs_top_srcdir@ ac_ct_AR = @ac_ct_AR@ ac_ct_CC = @ac_ct_CC@ ac_ct_DUMPBIN = @ac_ct_DUMPBIN@ am__include = @am__include@ am__leading_dot = @am__leading_dot@ am__quote = @am__quote@ am__tar = @am__tar@ am__untar = @am__untar@ bindir = @bindir@ build = @build@ build_alias = @build_alias@ build_cpu = @build_cpu@ build_os = @build_os@ build_vendor = @build_vendor@ builddir = @builddir@ datadir = @datadir@ datarootdir = @datarootdir@ docdir = @docdir@ dvidir = @dvidir@ exec_prefix = @exec_prefix@ host = @host@ host_alias = @host_alias@ host_cpu = @host_cpu@ host_os = @host_os@ host_vendor = @host_vendor@ htmldir = @htmldir@ includedir = @includedir@ infodir = @infodir@ install_sh = @install_sh@ libdir = @libdir@ libexecdir = @libexecdir@ localedir = @localedir@ localstatedir = @localstatedir@ mandir = @mandir@ mkdir_p = @mkdir_p@ oldincludedir = @oldincludedir@ pdfdir = @pdfdir@ prefix = @prefix@ program_transform_name = @program_transform_name@ psdir = @psdir@ sbindir = @sbindir@ sharedstatedir = @sharedstatedir@ srcdir = @srcdir@ sysconfdir = @sysconfdir@ target_alias = @target_alias@ top_build_prefix = @top_build_prefix@ top_builddir = @top_builddir@ top_srcdir = @top_srcdir@ EXTRA_DIST = $(wildcard *.scm) all: all-am .SUFFIXES: $(srcdir)/Makefile.in: $(srcdir)/Makefile.am $(am__configure_deps) @for dep in $?; do \ case '$(am__configure_deps)' in \ *$$dep*) \ ( cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh ) \ && { if test -f $@; then exit 0; else break; fi; }; \ exit 1;; \ esac; \ done; \ echo ' cd $(top_srcdir) && $(AUTOMAKE) --gnu libgnomecanvas/examples/Makefile'; \ $(am__cd) $(top_srcdir) && \ $(AUTOMAKE) --gnu libgnomecanvas/examples/Makefile .PRECIOUS: Makefile Makefile: $(srcdir)/Makefile.in $(top_builddir)/config.status @case '$?' in \ *config.status*) \ cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh;; \ *) \ echo ' cd $(top_builddir) && $(SHELL) ./config.status $(subdir)/$@ $(am__depfiles_maybe)'; \ cd $(top_builddir) && $(SHELL) ./config.status $(subdir)/$@ $(am__depfiles_maybe);; \ esac; $(top_builddir)/config.status: $(top_srcdir)/configure $(CONFIG_STATUS_DEPENDENCIES) cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh $(top_srcdir)/configure: $(am__configure_deps) cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh $(ACLOCAL_M4): $(am__aclocal_m4_deps) cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh $(am__aclocal_m4_deps): mostlyclean-libtool: -rm -f *.lo clean-libtool: -rm -rf .libs _libs tags: TAGS TAGS: ctags: CTAGS CTAGS: distdir: $(DISTFILES) @srcdirstrip=`echo "$(srcdir)" | sed 's/[].[^$$\\*]/\\\\&/g'`; \ topsrcdirstrip=`echo "$(top_srcdir)" | sed 's/[].[^$$\\*]/\\\\&/g'`; \ list='$(DISTFILES)'; \ dist_files=`for file in $$list; do echo $$file; done | \ sed -e "s|^$$srcdirstrip/||;t" \ -e "s|^$$topsrcdirstrip/|$(top_builddir)/|;t"`; \ case $$dist_files in \ */*) $(MKDIR_P) `echo "$$dist_files" | \ sed '/\//!d;s|^|$(distdir)/|;s,/[^/]*$$,,' | \ sort -u` ;; \ esac; \ for file in $$dist_files; do \ if test -f $$file || test -d $$file; then d=.; else d=$(srcdir); fi; \ if test -d $$d/$$file; then \ dir=`echo "/$$file" | sed -e 's,/[^/]*$$,,'`; \ if test -d "$(distdir)/$$file"; then \ find "$(distdir)/$$file" -type d ! -perm -700 -exec chmod u+rwx {} \;; \ fi; \ if test -d $(srcdir)/$$file && test $$d != $(srcdir); then \ cp -fpR $(srcdir)/$$file "$(distdir)$$dir" || exit 1; \ find "$(distdir)/$$file" -type d ! -perm -700 -exec chmod u+rwx {} \;; \ fi; \ cp -fpR $$d/$$file "$(distdir)$$dir" || exit 1; \ else \ test -f "$(distdir)/$$file" \ || cp -p $$d/$$file "$(distdir)/$$file" \ || exit 1; \ fi; \ done check-am: all-am check: check-am all-am: Makefile installdirs: install: install-am install-exec: install-exec-am install-data: install-data-am uninstall: uninstall-am install-am: all-am @$(MAKE) $(AM_MAKEFLAGS) install-exec-am install-data-am installcheck: installcheck-am install-strip: if test -z '$(STRIP)'; then \ $(MAKE) $(AM_MAKEFLAGS) INSTALL_PROGRAM="$(INSTALL_STRIP_PROGRAM)" \ install_sh_PROGRAM="$(INSTALL_STRIP_PROGRAM)" INSTALL_STRIP_FLAG=-s \ install; \ else \ $(MAKE) $(AM_MAKEFLAGS) INSTALL_PROGRAM="$(INSTALL_STRIP_PROGRAM)" \ install_sh_PROGRAM="$(INSTALL_STRIP_PROGRAM)" INSTALL_STRIP_FLAG=-s \ "INSTALL_PROGRAM_ENV=STRIPPROG='$(STRIP)'" install; \ fi mostlyclean-generic: clean-generic: distclean-generic: -test -z "$(CONFIG_CLEAN_FILES)" || rm -f $(CONFIG_CLEAN_FILES) -test . = "$(srcdir)" || test -z "$(CONFIG_CLEAN_VPATH_FILES)" || rm -f $(CONFIG_CLEAN_VPATH_FILES) maintainer-clean-generic: @echo "This command is intended for maintainers to use" @echo "it deletes files that may require special tools to rebuild." clean: clean-am clean-am: clean-generic clean-libtool mostlyclean-am distclean: distclean-am -rm -f Makefile distclean-am: clean-am distclean-generic dvi: dvi-am dvi-am: html: html-am html-am: info: info-am info-am: install-data-am: install-dvi: install-dvi-am install-dvi-am: install-exec-am: install-html: install-html-am install-html-am: install-info: install-info-am install-info-am: install-man: install-pdf: install-pdf-am install-pdf-am: install-ps: install-ps-am install-ps-am: installcheck-am: maintainer-clean: maintainer-clean-am -rm -f Makefile maintainer-clean-am: distclean-am maintainer-clean-generic mostlyclean: mostlyclean-am mostlyclean-am: mostlyclean-generic mostlyclean-libtool pdf: pdf-am pdf-am: ps: ps-am ps-am: uninstall-am: .MAKE: install-am install-strip .PHONY: all all-am check check-am clean clean-generic clean-libtool \ distclean distclean-generic distclean-libtool distdir dvi \ dvi-am html html-am info info-am install install-am \ install-data install-data-am install-dvi install-dvi-am \ install-exec install-exec-am install-html install-html-am \ install-info install-info-am install-man install-pdf \ install-pdf-am install-ps install-ps-am install-strip \ installcheck installcheck-am installdirs maintainer-clean \ maintainer-clean-generic mostlyclean mostlyclean-generic \ mostlyclean-libtool pdf pdf-am ps ps-am uninstall uninstall-am # Tell versions [3.59,3.63) of GNU make to not export all variables. # Otherwise a system limit (for SysV at least) may be exceeded. .NOEXPORT: guile-gnome-platform-2.16.2/libgnomecanvas/examples/canvas.scm0000755000175000017500000001057511670374303024770 0ustar00wingowingo00000000000000#! /bin/sh # -*- scheme -*- exec guile --debug -s $0 "$@" !# ;; guile-gnome ;; Copyright (C) 2004 Free Software Foundation, Inc. ;; This program is free software; you can redistribute it and/or ;; modify it under the terms of the GNU General Public License as ;; published by the Free Software Foundation; either version 2 of ;; the License, or (at your option) any later version. ;; ;; This program is distributed in the hope that it will be useful, ;; but WITHOUT ANY WARRANTY; without even the implied warranty of ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the ;; GNU General Public License for more details. ;; ;; You should have received a copy of the GNU General Public License ;; along with this program; if not, contact: ;; ;; Free Software Foundation Voice: +1-617-542-5942 ;; 59 Temple Place - Suite 330 Fax: +1-617-542-2652 ;; Boston, MA 02111-1307, USA gnu@gnu.org (use-modules (gnome-2) (oop goops) (gnome gtk) (srfi srfi-8) (gnome gtk gdk-event) (gnome canvas)) (debug-enable 'backtrace) (define (stderr string . rest) (apply format (current-error-port) string rest) (force-output (current-error-port))) (define canvas-width 300) (define canvas-height canvas-width) (define output-scale 1.8) (define (main) (define (item-event item event . data) (case (gdk-event:type event) ((enter-notify) (set item 'fill-color "white")) ((leave-notify) (set item 'fill-color "black")) ((2button-press) (set item 'fill-color "red"))) #t) (define (key-press-event item event . data) (let ((keyval (gdk-event-key:keyval event)) (mods (gdk-event-key:modifiers event))) (if (and (or (eq? keyval gdk:q) (eq? keyval gdk:w)) (equal? mods '(control-mask modifier-mask))) (gtk-main-quit)) #f)) (let* ((window (make #:type 'toplevel)) (button (make #:label "Exit")) (canvas (make )) (vbox (make )) (canvas-root (root canvas))) (add window vbox) (add vbox canvas) (let* ((line (make #:parent canvas-root #:fill-color "black" #:first-arrowhead #t #:arrow-shape-a 10 #:arrow-shape-b 10 #:arrow-shape-c 10 #:line-style 'on-off-dash #:points #(0 0 100 100))) (rect (make #:parent canvas-root #:x1 0.0 #:y1 0.0 #:x2 100.0 #:y2 9.0 #:fill-color "black")) (text (make #:parent canvas-root #:font "new century schoolbook, i bold 20" #:text "Guile GNOME" #:x 0.0 #:y 0.0 #:size-points 18 #:size-set #t #:fill-color "black" #:anchor 'west)) (def (gnome-canvas-path-def-new)) (reset gnome-canvas-path-def-reset) (moveto gnome-canvas-path-def-moveto) (curveto gnome-canvas-path-def-curveto) (lineto gnome-canvas-path-def-lineto) (closepath gnome-canvas-path-def-closepath) (bezier (make #:parent canvas-root #:fill-color "black" #:width-pixels 2))) (move text -40 55) (connect text 'event item-event) (move bezier 0 -30.0) (reset def) (moveto def 0.0 0.0) (curveto def 40.0 -10.0 60.0 -10.0 100.0 0.0) (lineto def 0.0 0.0) (closepath def) (set-path-def bezier def) (for-each (lambda (item) (move item -40 70) (affine-relative item output-scale 0 0 output-scale 0 0)) (list rect bezier))) (add vbox button) (connect button 'clicked (lambda (b) (gtk-main-quit))) (connect window 'key-press-event key-press-event) (connect window 'delete-event (lambda args (gtk-main-quit) #t)) ;; (set-size-request button canvas-width 20) ? (set-child-packing vbox button #f #f 0 'end) (set-size-request canvas canvas-width canvas-height) (set-pixels-per-unit canvas output-scale) (receive (x y) (world-to-window canvas 1.0 1.0) (stderr "result: (~S, ~S)\n" x y)) (set-pixels-per-unit canvas 1.0) (show-all window) (gtk-main))) (main) guile-gnome-platform-2.16.2/libgnomecanvas/doc/0000755000175000017500000000000011752546504021732 5ustar00wingowingo00000000000000guile-gnome-platform-2.16.2/libgnomecanvas/doc/section-gnome-canvas-pixbuf.xml.texi0000644000175000017500000000036211670374303030733 0ustar00wingowingo00000000000000 @c %start of fragment @node GnomeCanvasPixbuf @chapter GnomeCanvasPixbuf Pixbuf image canvas item @section Overview A canvas item for drawing pixbuf images. @section Usage @include defuns-gnome-canvas-pixbuf.xml.texi @c %end of fragment guile-gnome-platform-2.16.2/libgnomecanvas/doc/defuns-gnome-canvas-util.xml.texi0000644000175000017500000000727411670374303030244 0ustar00wingowingo00000000000000 @c %start of fragment @deftp Class Derives from @code{}. @end deftp @deffn Function gnome-canvas-get-miter-points (x1@tie{}@code{double}) (y1@tie{}@code{double}) (x2@tie{}@code{double}) (y2@tie{}@code{double}) (x3@tie{}@code{double}) (y3@tie{}@code{double}) (width@tie{}@code{double}) @result{}@tie{} (ret@tie{}@code{int}) (mx1@tie{}@code{double}) (my1@tie{}@code{double}) (mx2@tie{}@code{double}) (my2@tie{}@code{double}) Given three points forming an angle, computes the coordinates of the inside and outside points of the mitered corner formed by a line of a given width at that angle. @table @var @item x1 X coordinate of the first point @item y1 Y coordinate of the first point @item x2 X coordinate of the second (angle) point @item y2 Y coordinate of the second (angle) point @item x3 X coordinate of the third point @item y3 Y coordinate of the third point @item width Width of the line @item mx1 The X coordinate of the first miter point is returned here. @item my1 The Y coordinate of the first miter point is returned here. @item mx2 The X coordinate of the second miter point is returned here. @item my2 The Y coordinate of the second miter point is returned here. @item ret FALSE if the angle is less than 11 degrees (this is the same threshold as X uses. If this occurs, the return points are not modified. Otherwise, returns TRUE. @end table @end deffn @deffn Function gnome-canvas-get-butt-points (x1@tie{}@code{double}) (y1@tie{}@code{double}) (x2@tie{}@code{double}) (y2@tie{}@code{double}) (width@tie{}@code{double}) (project@tie{}@code{int}) @result{}@tie{} (bx1@tie{}@code{double}) (by1@tie{}@code{double}) (bx2@tie{}@code{double}) (by2@tie{}@code{double}) Computes the butt points of a line segment. @table @var @item x1 X coordinate of first point in the line @item y1 Y cooordinate of first point in the line @item x2 X coordinate of second point (endpoint) of the line @item y2 Y coordinate of second point (endpoint) of the line @item width Width of the line @item project Whether the butt points should project out by width/2 distance @item bx1 X coordinate of first butt point is returned here @item by1 Y coordinate of first butt point is returned here @item bx2 X coordinate of second butt point is returned here @item by2 Y coordinate of second butt point is returned here @end table @end deffn @deffn Function gnome-canvas-polygon-to-point (num_points@tie{}@code{int}) (x@tie{}@code{double}) (y@tie{}@code{double}) @result{}@tie{} (ret@tie{}@code{double}) (poly@tie{}@code{double}) Computes the distance between a point and a polygon. @table @var @item poly Vertices of the polygon. X coordinates are in the even indices, and Y coordinates are in the odd indices @item num-points Number of points in the polygon @item x X coordinate of the point @item y Y coordinate of the point @item ret The distance from the point to the polygon, or zero if the point is inside the polygon. @end table @end deffn @deffn Function gnome-canvas-item-reset-bounds (self@tie{}@code{}) @deffnx Method reset-bounds Resets the bounding box of a canvas item to an empty rectangle. @table @var @item item A canvas item @end table @end deffn @deffn Function gnome-canvas-update-bbox (item@tie{}@code{}) (x1@tie{}@code{int}) (y1@tie{}@code{int}) (x2@tie{}@code{int}) (y2@tie{}@code{int}) Sets the bbox to the new value, requesting full repaint. @table @var @item item the canvas item needing update @item x1 Left coordinate of the new bounding box @item y1 Top coordinate of the new bounding box @item x2 Right coordinate of the new bounding box @item y2 Bottom coordinate of the new bounding box @end table @end deffn @c %end of fragment guile-gnome-platform-2.16.2/libgnomecanvas/doc/defuns-gnome-canvas-polygon.xml.texi0000644000175000017500000000033611670374303030746 0ustar00wingowingo00000000000000 @c %start of fragment @deftp Class Derives from @code{}. This class defines the following properties: @table @code @item points @end table @end deftp @c %end of fragment guile-gnome-platform-2.16.2/libgnomecanvas/doc/undocumented.texi0000644000175000017500000000132311670374303025311 0ustar00wingowingo00000000000000 @c %start of fragment @node Undocumented @chapter Undocumented The following symbols, if any, have not been properly documented. @section (gnome gw canvas) @defvar gnome-canvas-get-center-scroll-region @end defvar @defvar gnome-canvas-path-def-closepath-current @end defvar @defvar gnome-canvas-path-def-has-currentpoint @end defvar @defvar gnome-canvas-rich-text-copy-clipboard @end defvar @defvar gnome-canvas-rich-text-cut-clipboard @end defvar @defvar gnome-canvas-rich-text-get-iter-at-location @end defvar @defvar gnome-canvas-rich-text-get-iter-location @end defvar @defvar gnome-canvas-rich-text-paste-clipboard @end defvar @defvar gnome-canvas-set-center-scroll-region @end defvar @c %end of fragment guile-gnome-platform-2.16.2/libgnomecanvas/doc/defuns-gnome-canvas-rect.xml.texi0000644000175000017500000000032311670374303030210 0ustar00wingowingo00000000000000 @c %start of fragment @deftp Class Derives from @code{}. This class defines no properties, other than those defined by its superclasses. @end deftp @c %end of fragment guile-gnome-platform-2.16.2/libgnomecanvas/doc/section-gnome-canvas-text.xml.texi0000644000175000017500000000106311670374303030421 0ustar00wingowingo00000000000000 @c %start of fragment @node GnomeCanvasText @chapter GnomeCanvasText Text canvas item @section Overview A canvas item for displaying text. See @code{} for a more advanced text display and editing canvas item. NB: The @code{} item doesn't scale with the zoom property of the @code{}. A zoomable implementation could derive from @code{} and check the zoom property for manual adjustments to the font size. @section Usage @include defuns-gnome-canvas-text.xml.texi @c %end of fragment guile-gnome-platform-2.16.2/libgnomecanvas/doc/section-gnome-canvas-ellipse.xml.texi0000644000175000017500000000064311670374303031075 0ustar00wingowingo00000000000000 @c %start of fragment @node GnomeCanvasEllipse @chapter GnomeCanvasEllipse Canvas item for drawing ellipses and circles @section Overview A canvas item for drawing ellipses and circles. The parameters are defined in the parent classes including @code{} which is shared with @code{} items as well. @section Usage @include defuns-gnome-canvas-ellipse.xml.texi @c %end of fragment guile-gnome-platform-2.16.2/libgnomecanvas/doc/section-gnome-canvas.xml.texi0000644000175000017500000001072611670374303027445 0ustar00wingowingo00000000000000 @c %start of fragment @node GnomeCanvas @chapter GnomeCanvas Main canvas widget @section Overview The @code{} is an engine for structured graphics that offers a rich imaging model, high performance rendering, and a powerful, high level API. It offers a choice of two rendering back-ends, one based on Xlib for extremely fast display, and another based on Libart, a sophisticated, antialiased, alpha-compositing engine. This widget can be used for flexible display of graphics and for creating interactive user interface elements. To create a new @code{} widget call @code{gnome-canvas-new} or @code{gnome-canvas-new-aa} for an anti-aliased mode canvas. A @code{} widget contains one or more @code{} objects. Items consist of graphing elements like lines, ellipses, polygons, images, text, and curves. These items are organized using @code{} objects, which are themselves derived from @code{}. Since a group is an item it can be contained within other groups, forming a tree of canvas items. Certain operations, like translating and scaling, can be performed on all items in a group. There is a special root group created by a @code{}. This is the top level group under which all items in a canvas are contained. To get the root group from a canvas call @code{gnome-canvas-root}. To clear a canvas you can simply walk through the item_list member of the @code{} and call @code{gtk-object-destroy} on each one. There are several different coordinate systems used by @code{} widgets. The primary system is a logical, abstract coordinate space called world coordinates. World coordinates are expressed as unbounded double floating point numbers. When it comes to rendering to a screen the canvas pixel coordinate system (also referred to as just canvas coordinates) is used. This system uses integers to specify screen pixel positions. A user defined scaling factor and offset are used to convert between world coordinates and canvas coordinates. Each item in a canvas has its own coordinate system called item coordinates. This system is specified in world coordinates but they are relative to an item (0.0, 0.0 would be the top left corner of the item). The final coordinate system of interest is window coordinates. These are like canvas coordinates but are offsets from within a window a canvas is displayed in. This last system is rarely used, but is useful when manually handling GDK events (such as drag and drop) which are specified in window coordinates (the events processed by the canvas are already converted for you). Along with different coordinate systems comes functions to convert between them. @code{gnome-canvas-w2c} converts world to canvas pixel coordinates and @code{gnome-canvas-c2w} converts from canvas to world. @code{gnome-canvas-w2c-d} is like @code{gnome-canvas-w2c} but returns the pixel coordinates as doubles which is useful to avoid precision loss from integer rounding. To get the affine transform matrix for converting from world coordinates to canvas coordinates call @code{gnome-canvas-w2c-affine}. @code{gnome-canvas-window-to-world} converts from window to world coordinates and @code{gnome-canvas-world-to-window} converts in the other direction. There are no functions for converting between canvas and window coordinates, since this is just a matter of subtracting the canvas scrolling offset. To convert to/from item coordinates use the functions defined for @code{} objects. To set the canvas zoom factor (canvas pixels per world unit, the scaling factor) call @code{gnome-canvas-set-pixels-per-unit}, setting this to 1.0 will cause the two coordinate systems to correspond (e.g., [5, 6] in pixel units would be [5.0, 6.0] in world units). Defining the scrollable area of a canvas widget is done by calling @code{gnome-canvas-set-scroll-region} and to get the current region @code{gnome-canvas-get-scroll-region} can be used. If the window is larger than the canvas scrolling region it can optionally be centered in the window. Use @code{gnome-canvas-set-center-scroll-region} to enable or disable this behavior. To scroll to a particular canvas pixel coordinate use @code{gnome-canvas-scroll-to} (typically not used since scrollbars are usually set up to handle the scrolling), and to get the current canvas pixel scroll offset call @code{gnome-canvas-get-scroll-offsets}. @section Usage @include defuns-gnome-canvas.xml.texi @c %end of fragment guile-gnome-platform-2.16.2/libgnomecanvas/doc/section-gnome-canvas-line.xml.texi0000644000175000017500000000060011670374303030360 0ustar00wingowingo00000000000000 @c %start of fragment @node GnomeCanvasLine @chapter GnomeCanvasLine Line canvas item @section Overview A canvas item for drawing lines. This canvas item uses a @code{} structure so one or multiple joined lined segments can be drawn with a single @code{} item. @section Usage @include defuns-gnome-canvas-line.xml.texi @c %end of fragment guile-gnome-platform-2.16.2/libgnomecanvas/doc/section-gnome-canvas-path-def.xml.texi0000644000175000017500000000054011670374303031124 0ustar00wingowingo00000000000000 @c %start of fragment @node gnome-canvas-path-def @chapter gnome-canvas-path-def Container and functions for manipulating ArtBpaths @section Overview Convenient container and functions for manipulating ArtBpaths, which are paths defined by line and curve segments. @section Usage @include defuns-gnome-canvas-path-def.xml.texi @c %end of fragment guile-gnome-platform-2.16.2/libgnomecanvas/doc/defuns-gnome-canvas-re.xml.texi0000644000175000017500000000036611670374303027670 0ustar00wingowingo00000000000000 @c %start of fragment @deftp Class Derives from @code{}. This class defines the following properties: @table @code @item x1 @item y1 @item x2 @item y2 @end table @end deftp @c %end of fragment guile-gnome-platform-2.16.2/libgnomecanvas/doc/section-gnome-canvas-polygon.xml.texi0000644000175000017500000000037711670374303031133 0ustar00wingowingo00000000000000 @c %start of fragment @node GnomeCanvasPolygon @chapter GnomeCanvasPolygon Polygon canvas item @section Overview A canvas item for drawing polygon (multi sided) shapes. @section Usage @include defuns-gnome-canvas-polygon.xml.texi @c %end of fragment guile-gnome-platform-2.16.2/libgnomecanvas/doc/overrides.texi0000644000175000017500000000000011670374303024610 0ustar00wingowingo00000000000000guile-gnome-platform-2.16.2/libgnomecanvas/doc/section-gnome-canvas-shape.xml.texi0000644000175000017500000000060311670374303030534 0ustar00wingowingo00000000000000 @c %start of fragment @node GnomeCanvasShape @chapter GnomeCanvasShape Base class for canvas item shapes @section Overview Provides a base class for canvas item shapes, including: @code{}, @code{}, @code{}, and @code{}. @section Usage @include defuns-gnome-canvas-shape.xml.texi @c %end of fragment guile-gnome-platform-2.16.2/libgnomecanvas/doc/defuns-gnome-canvas-group.xml.texi0000644000175000017500000000033511670374303030412 0ustar00wingowingo00000000000000 @c %start of fragment @deftp Class Derives from @code{}. This class defines the following slots: @table @code @item x X @item y Y @end table @end deftp @c %end of fragment guile-gnome-platform-2.16.2/libgnomecanvas/doc/version.texi0000644000175000017500000000014611752511104024277 0ustar00wingowingo00000000000000@set UPDATED 9 December 2011 @set UPDATED-MONTH December 2011 @set EDITION 2.16.2 @set VERSION 2.16.2 guile-gnome-platform-2.16.2/libgnomecanvas/doc/defuns-gnome-canvas-line.xml.texi0000644000175000017500000000104711670374303030206 0ustar00wingowingo00000000000000 @c %start of fragment @deftp Class Derives from @code{}. This class defines the following properties: @table @code @item points @item fill-color @item fill-color-gdk @item fill-color-rgba @item fill-stipple @item width-pixels @item width-units @item cap-style @item join-style @item line-style @item first-arrowhead @item last-arrowhead @item smooth @item spline-steps @item arrow-shape-a @item arrow-shape-b @item arrow-shape-c @end table @end deftp @c %end of fragment guile-gnome-platform-2.16.2/libgnomecanvas/doc/section-gnome-canvas-bpath.xml.texi0000644000175000017500000000041411670374303030532 0ustar00wingowingo00000000000000 @c %start of fragment @node GnomeCanvasBpath @chapter GnomeCanvasBpath Bezier path canvas item @section Overview A canvas item type for creating a "path" from curve and line segments. @section Usage @include defuns-gnome-canvas-bpath.xml.texi @c %end of fragment guile-gnome-platform-2.16.2/libgnomecanvas/doc/defuns-gnome-canvas-text.xml.texi0000644000175000017500000000367111670374303030250 0ustar00wingowingo00000000000000 @c %start of fragment @deftp Class Derives from @code{}. This class defines the following properties: @table @code @item text Text to render @item markup Marked up text to render @item x @item y @item font Font description as a string @item font-desc Font description as a PangoFontDescription struct @item family Name of the font family, e.g. Sans, Helvetica, Times, Monospace @item family-set Whether this tag affects the font family @item attributes @item style Font style @item style-set Whether this tag affects the font style @item variant Font variant @item variant-set Whether this tag affects the font variant @item weight Font weight @item weight-set Whether this tag affects the font weight @item stretch Font stretch @item stretch-set Whether this tag affects the font stretch @item size Font size (as a multiple of PANGO_SCALE, eg. 12*PANGO_SCALE for a 12pt font size) @item size-set Whether this tag affects the font size @item size-points Font size in points (eg. 12 for a 12pt font size) @item strikethrough Whether to strike through the text @item strikethrough-set Whether this tag affects strikethrough @item underline Style of underline for this text @item underline-set Whether this tag affects underlining @item rise Offset of text above the baseline (below the baseline if rise is negative) @item rise-set Whether this tag affects the rise @item scale Size of font, relative to default size @item scale-set Whether this tag affects font scaling @item anchor @item justification @item clip-width @item clip-height @item clip @item x-offset @item y-offset @item fill-color Text color, as string @item fill-color-gdk Text color, as a GdkColor @item fill-color-rgba Text color, as an R/G/B/A combined integer @item fill-stipple @item text-width Width of the rendered text @item text-height Height of the rendered text @end table @end deftp @c %end of fragment guile-gnome-platform-2.16.2/libgnomecanvas/doc/Makefile.am0000644000175000017500000000100011670374303023750 0ustar00wingowingo00000000000000################################################################################ ## guile-gnome-libgnomecanvas.info include $(top_srcdir)/generate-docs.mk docbook_xml_wildcard = ~/src/gnome2/libgnomecanvas/docs/reference/xml/*.xml docbook_xml_files = $(wildcard $(docbook_xml_wildcard)) wrapset_stem = canvas EXTRA_DIST = overrides.texi info_TEXINFOS=guile-gnome-libgnomecanvas.texi guile_gnome_libgnomecanvas_TEXINFOS=overview.texi \ $(wildcard section-*.texi) $(wildcard defuns-*.texi) undocumented.texi guile-gnome-platform-2.16.2/libgnomecanvas/doc/defuns-gnome-canvas.xml.texi0000644000175000017500000002677411670374303027277 0ustar00wingowingo00000000000000 @c %start of fragment @deftp Class Derives from @code{}. This class defines the following properties: @table @code @item aa The antialiasing mode of the canvas. @item focused-item @end table @end deftp @defop Signal draw-background (arg0@tie{}@code{}) (arg1@tie{}@code{}) (arg2@tie{}@code{}) (arg3@tie{}@code{}) (arg4@tie{}@code{}) This signal is emitted to draw the background for non-antialiased mode canvas widgets. The default method uses the canvas widget's style to draw the background. @end defop @defop Signal render-background (arg0@tie{}@code{}) This signal is emitted for antialiased mode canvas widgets to render the background. The buf data structure contains both a pointer to a packed 24-bit RGB array and the coordinates. @end defop @deffn Function gnome-canvas-new @result{}@tie{} (ret@tie{}@code{}) Creates a new empty canvas in non-antialiased mode. @table @var @item ret A newly-created canvas. @end table @end deffn @deffn Function gnome-canvas-new-aa @result{}@tie{} (ret@tie{}@code{}) Creates a new empty canvas in antialiased mode. @table @var @item ret A newly-created antialiased canvas. @end table @end deffn @deffn Function gnome-canvas-root (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{}) @deffnx Method root Queries the root group of a canvas. @table @var @item canvas A canvas. @item ret The root group of the specified canvas. @end table @end deffn @deffn Function gnome-canvas-set-scroll-region (self@tie{}@code{}) (x1@tie{}@code{double}) (y1@tie{}@code{double}) (x2@tie{}@code{double}) (y2@tie{}@code{double}) @deffnx Method set-scroll-region Sets the scrolling region of a canvas to the specified rectangle. The canvas will then be able to scroll only within this region. The view of the canvas is adjusted as appropriate to display as much of the new region as possible. @table @var @item canvas A canvas. @item x1 Leftmost limit of the scrolling region. @item y1 Upper limit of the scrolling region. @item x2 Rightmost limit of the scrolling region. @item y2 Lower limit of the scrolling region. @end table @end deffn @deffn Function gnome-canvas-get-scroll-region (self@tie{}@code{}) @result{}@tie{} (x1@tie{}@code{double}) (y1@tie{}@code{double}) (x2@tie{}@code{double}) (y2@tie{}@code{double}) @deffnx Method get-scroll-region Queries the scrolling region of a canvas. @table @var @item canvas A canvas. @item x1 Leftmost limit of the scrolling region (return value). @item y1 Upper limit of the scrolling region (return value). @item x2 Rightmost limit of the scrolling region (return value). @item y2 Lower limit of the scrolling region (return value). @end table @end deffn @deffn Function gnome-canvas-set-pixels-per-unit (self@tie{}@code{}) (n@tie{}@code{double}) @deffnx Method set-pixels-per-unit Sets the zooming factor of a canvas by specifying the number of pixels that correspond to one canvas unit. The anchor point for zooming, i.e. the point that stays fixed and all others zoom inwards or outwards from it, depends on whether the canvas is set to center the scrolling region or not. You can control this using the @code{gnome-canvas-set-center-scroll-region} function. If the canvas is set to center the scroll region, then the center of the canvas window is used as the anchor point for zooming. Otherwise, the upper-left corner of the canvas window is used as the anchor point. @table @var @item canvas A canvas. @item n The number of pixels that correspond to one canvas unit. @end table @end deffn @deffn Function gnome-canvas-scroll-to (self@tie{}@code{}) (cx@tie{}@code{int}) (cy@tie{}@code{int}) @deffnx Method scroll-to Makes a canvas scroll to the specified offsets, given in canvas pixel units. The canvas will adjust the view so that it is not outside the scrolling region. This function is typically not used, as it is better to hook scrollbars to the canvas layout's scrolling adjusments. @table @var @item canvas A canvas. @item cx Horizontal scrolling offset in canvas pixel units. @item cy Vertical scrolling offset in canvas pixel units. @end table @end deffn @deffn Function gnome-canvas-get-scroll-offsets (self@tie{}@code{}) @result{}@tie{} (cx@tie{}@code{int}) (cy@tie{}@code{int}) @deffnx Method get-scroll-offsets Queries the scrolling offsets of a canvas. The values are returned in canvas pixel units. @table @var @item canvas A canvas. @item cx Horizontal scrolling offset (return value). @item cy Vertical scrolling offset (return value). @end table @end deffn @deffn Function gnome-canvas-update-now (self@tie{}@code{}) @deffnx Method update-now Forces an immediate update and redraw of a canvas. If the canvas does not have any pending update or redraw requests, then no action is taken. This is typically only used by applications that need explicit control of when the display is updated, like games. It is not needed by normal applications. @table @var @item canvas A canvas. @end table @end deffn @deffn Function gnome-canvas-get-item-at (self@tie{}@code{}) (x@tie{}@code{double}) (y@tie{}@code{double}) @result{}@tie{} (ret@tie{}@code{}) @deffnx Method get-item-at Looks for the item that is under the specified position, which must be specified in world coordinates. @table @var @item canvas A canvas. @item x X position in world coordinates. @item y Y position in world coordinates. @item ret The sought item, or NULL if no item is at the specified coordinates. @end table @end deffn @deffn Function gnome-canvas-request-redraw (self@tie{}@code{}) (x1@tie{}@code{int}) (y1@tie{}@code{int}) (x2@tie{}@code{int}) (y2@tie{}@code{int}) @deffnx Method request-redraw Convenience function that informs a canvas that the specified rectangle needs to be repainted. This function converts the rectangle to a microtile array and feeds it to @code{gnome-canvas-request-redraw-uta}. The rectangle includes @var{x1} and @var{y1}, but not @var{x2} and @var{y2}. To be used only by item implementations. @table @var @item canvas A canvas. @item x1 Leftmost coordinate of the rectangle to be redrawn. @item y1 Upper coordinate of the rectangle to be redrawn. @item x2 Rightmost coordinate of the rectangle to be redrawn, plus 1. @item y2 Lower coordinate of the rectangle to be redrawn, plus 1. @end table @end deffn @deffn Function gnome-canvas-w2c (self@tie{}@code{}) (wx@tie{}@code{double}) (wy@tie{}@code{double}) @result{}@tie{} (cx@tie{}@code{int}) (cy@tie{}@code{int}) @deffnx Method w2c Converts world coordinates into canvas pixel coordinates. @table @var @item canvas A canvas. @item wx World X coordinate. @item wy World Y coordinate. @item cx X pixel coordinate (return value). @item cy Y pixel coordinate (return value). @end table @end deffn @deffn Function gnome-canvas-w2c-d (self@tie{}@code{}) (wx@tie{}@code{double}) (wy@tie{}@code{double}) @result{}@tie{} (cx@tie{}@code{double}) (cy@tie{}@code{double}) @deffnx Method w2c-d Converts world coordinates into canvas pixel coordinates. This version returns coordinates in floating point coordinates, for greater precision. @table @var @item canvas A canvas. @item wx World X coordinate. @item wy World Y coordinate. @item cx X pixel coordinate (return value). @item cy Y pixel coordinate (return value). @end table @end deffn @deffn Function gnome-canvas-c2w (self@tie{}@code{}) (cx@tie{}@code{int}) (cy@tie{}@code{int}) @result{}@tie{} (wx@tie{}@code{double}) (wy@tie{}@code{double}) @deffnx Method c2w Converts canvas pixel coordinates to world coordinates. @table @var @item canvas A canvas. @item cx Canvas pixel X coordinate. @item cy Canvas pixel Y coordinate. @item wx X world coordinate (return value). @item wy Y world coordinate (return value). @end table @end deffn @deffn Function gnome-canvas-window-to-world (self@tie{}@code{}) (winx@tie{}@code{double}) (winy@tie{}@code{double}) @result{}@tie{} (worldx@tie{}@code{double}) (worldy@tie{}@code{double}) @deffnx Method window-to-world Converts window-relative coordinates into world coordinates. You can use this when you need to convert mouse coordinates into world coordinates, for example. @table @var @item canvas A canvas. @item winx Window-relative X coordinate. @item winy Window-relative Y coordinate. @item worldx X world coordinate (return value). @item worldy Y world coordinate (return value). @end table @end deffn @deffn Function gnome-canvas-world-to-window (self@tie{}@code{}) (worldx@tie{}@code{double}) (worldy@tie{}@code{double}) @result{}@tie{} (winx@tie{}@code{double}) (winy@tie{}@code{double}) @deffnx Method world-to-window Converts world coordinates into window-relative coordinates. @table @var @item canvas A canvas. @item worldx World X coordinate. @item worldy World Y coordinate. @item winx X window-relative coordinate. @item winy Y window-relative coordinate. @end table @end deffn @deffn Function gnome-canvas-get-color (self@tie{}@code{}) (spec@tie{}@code{mchars}) (color@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{int}) @deffnx Method get-color Allocates a color based on the specified X color specification. As a convenience to item implementations, it returns TRUE if the color was allocated, or FALSE if the specification was NULL. A NULL color specification is considered as "transparent" by the canvas. @table @var @item canvas A canvas. @item spec X color specification, or NULL for "transparent". @item color Returns the allocated color. @item ret TRUE if @var{spec} is non-NULL and the color is allocated. If @var{spec} is NULL, then returns FALSE. @end table @end deffn @deffn Function gnome-canvas-get-color-pixel (self@tie{}@code{}) (rgba@tie{}@code{unsigned-int}) @result{}@tie{} (ret@tie{}@code{unsigned-long}) @deffnx Method get-color-pixel Allocates a color from the RGBA value passed into this function. The alpha opacity value is discarded, since normal X colors do not support it. @table @var @item canvas A canvas. @item rgba RGBA color specification. @item ret Allocated pixel value corresponding to the specified color. @end table @end deffn @deffn Function gnome-canvas-set-stipple-origin (self@tie{}@code{}) (gc@tie{}@code{}) @deffnx Method set-stipple-origin Sets the stipple origin of the specified GC as is appropriate for the canvas, so that it will be aligned with other stipple patterns used by canvas items. This is typically only needed by item implementations. @table @var @item canvas A canvas. @item gc GC on which to set the stipple origin. @end table @end deffn @deffn Function gnome-canvas-set-dither (self@tie{}@code{}) (dither@tie{}@code{}) @deffnx Method set-dither Controls dithered rendering for antialiased canvases. The value of dither should be @code{}, @code{}, or @code{}. The default canvas setting is @code{}. @table @var @item canvas A canvas. @item dither Type of dithering used to render an antialiased canvas. @end table @end deffn @deffn Function gnome-canvas-get-dither (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{}) @deffnx Method get-dither Returns the type of dithering used to render an antialiased canvas. @table @var @item canvas A canvas. @item ret The dither setting. @end table @end deffn @c %end of fragment guile-gnome-platform-2.16.2/libgnomecanvas/doc/Makefile.in0000644000175000017500000006611011752511070023771 0ustar00wingowingo00000000000000# Makefile.in generated by automake 1.11.5 from Makefile.am. # @configure_input@ # Copyright (C) 1994, 1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, # 2003, 2004, 2005, 2006, 2007, 2008, 2009, 2010, 2011 Free Software # Foundation, Inc. # This Makefile.in is free software; the Free Software Foundation # gives unlimited permission to copy and/or distribute it, # with or without modifications, as long as this notice is preserved. # This program is distributed in the hope that it will be useful, # but WITHOUT ANY WARRANTY, to the extent permitted by law; without # even the implied warranty of MERCHANTABILITY or FITNESS FOR A # PARTICULAR PURPOSE. @SET_MAKE@ ################################################################################ # guile-gnome # Copyright (C) 2007, 2011 Free Software Foundation, Inc. # This program is free software; you can redistribute it and/or # modify it under the terms of the GNU General Public License as # published by the Free Software Foundation; either version 2 of # the License, or (at your option) any later version. # This program is distributed in the hope that it will be useful, # but WITHOUT ANY WARRANTY; without even the implied warranty of # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the # GNU General Public License for more details. # You should have received a copy of the GNU General Public License # along with this program; if not, contact: # Free Software Foundation Voice: +1-617-542-5942 # 59 Temple Place - Suite 330 Fax: +1-617-542-2652 # Boston, MA 02111-1307, USA gnu@gnu.org # # Makefile snippet # VPATH = @srcdir@ am__make_dryrun = \ { \ am__dry=no; \ case $$MAKEFLAGS in \ *\\[\ \ ]*) \ echo 'am--echo: ; @echo "AM" OK' | $(MAKE) -f - 2>/dev/null \ | grep '^AM OK$$' >/dev/null || am__dry=yes;; \ *) \ for am__flg in $$MAKEFLAGS; do \ case $$am__flg in \ *=*|--*) ;; \ *n*) am__dry=yes; break;; \ esac; \ done;; \ esac; \ test $$am__dry = yes; \ } pkgdatadir = $(datadir)/@PACKAGE@ pkgincludedir = $(includedir)/@PACKAGE@ pkglibdir = $(libdir)/@PACKAGE@ pkglibexecdir = $(libexecdir)/@PACKAGE@ am__cd = CDPATH="$${ZSH_VERSION+.}$(PATH_SEPARATOR)" && cd install_sh_DATA = $(install_sh) -c -m 644 install_sh_PROGRAM = $(install_sh) -c install_sh_SCRIPT = $(install_sh) -c INSTALL_HEADER = $(INSTALL_DATA) transform = $(program_transform_name) NORMAL_INSTALL = : PRE_INSTALL = : POST_INSTALL = : NORMAL_UNINSTALL = : PRE_UNINSTALL = : POST_UNINSTALL = : build_triplet = @build@ host_triplet = @host@ DIST_COMMON = $(guile_gnome_libgnomecanvas_TEXINFOS) \ $(srcdir)/Makefile.am $(srcdir)/Makefile.in \ $(srcdir)/stamp-vti $(srcdir)/version.texi \ $(top_srcdir)/generate-docs.mk subdir = libgnomecanvas/doc ACLOCAL_M4 = $(top_srcdir)/aclocal.m4 am__aclocal_m4_deps = $(top_srcdir)/configure.ac am__configure_deps = $(am__aclocal_m4_deps) $(CONFIGURE_DEPENDENCIES) \ $(ACLOCAL_M4) mkinstalldirs = $(install_sh) -d CONFIG_HEADER = $(top_builddir)/config.h CONFIG_CLEAN_FILES = CONFIG_CLEAN_VPATH_FILES = SOURCES = DIST_SOURCES = INFO_DEPS = $(srcdir)/guile-gnome-libgnomecanvas.info TEXINFO_TEX = $(top_srcdir)/build-aux/texinfo.tex am__TEXINFO_TEX_DIR = $(top_srcdir)/build-aux DVIS = guile-gnome-libgnomecanvas.dvi PDFS = guile-gnome-libgnomecanvas.pdf PSS = guile-gnome-libgnomecanvas.ps HTMLS = guile-gnome-libgnomecanvas.html TEXINFOS = guile-gnome-libgnomecanvas.texi TEXI2DVI = texi2dvi TEXI2PDF = $(TEXI2DVI) --pdf --batch MAKEINFOHTML = $(MAKEINFO) --html AM_MAKEINFOHTMLFLAGS = $(AM_MAKEINFOFLAGS) DVIPS = dvips am__can_run_installinfo = \ case $$AM_UPDATE_INFO_DIR in \ n|no|NO) false;; \ *) (install-info --version) >/dev/null 2>&1;; \ esac am__installdirs = "$(DESTDIR)$(infodir)" am__vpath_adj_setup = srcdirstrip=`echo "$(srcdir)" | sed 's|.|.|g'`; am__vpath_adj = case $$p in \ $(srcdir)/*) f=`echo "$$p" | sed "s|^$$srcdirstrip/||"`;; \ *) f=$$p;; \ esac; am__strip_dir = f=`echo $$p | sed -e 's|^.*/||'`; am__install_max = 40 am__nobase_strip_setup = \ srcdirstrip=`echo "$(srcdir)" | sed 's/[].[^$$\\*|]/\\\\&/g'` am__nobase_strip = \ for p in $$list; do echo "$$p"; done | sed -e "s|$$srcdirstrip/||" am__nobase_list = $(am__nobase_strip_setup); \ for p in $$list; do echo "$$p $$p"; done | \ sed "s| $$srcdirstrip/| |;"' / .*\//!s/ .*/ ./; s,\( .*\)/[^/]*$$,\1,' | \ $(AWK) 'BEGIN { files["."] = "" } { files[$$2] = files[$$2] " " $$1; \ if (++n[$$2] == $(am__install_max)) \ { print $$2, files[$$2]; n[$$2] = 0; files[$$2] = "" } } \ END { for (dir in files) print dir, files[dir] }' am__base_list = \ sed '$$!N;$$!N;$$!N;$$!N;$$!N;$$!N;$$!N;s/\n/ /g' | \ sed '$$!N;$$!N;$$!N;$$!N;s/\n/ /g' am__uninstall_files_from_dir = { \ test -z "$$files" \ || { test ! -d "$$dir" && test ! -f "$$dir" && test ! -r "$$dir"; } \ || { echo " ( cd '$$dir' && rm -f" $$files ")"; \ $(am__cd) "$$dir" && rm -f $$files; }; \ } DISTFILES = $(DIST_COMMON) $(DIST_SOURCES) $(TEXINFOS) $(EXTRA_DIST) ACLOCAL = @ACLOCAL@ AG_PKG_CONFIG_PATH = @AG_PKG_CONFIG_PATH@ AMTAR = @AMTAR@ API_VERSION = @API_VERSION@ AR = @AR@ ATK_CFLAGS = @ATK_CFLAGS@ ATK_LIBS = @ATK_LIBS@ AUTOCONF = @AUTOCONF@ AUTOHEADER = @AUTOHEADER@ AUTOMAKE = @AUTOMAKE@ AWK = @AWK@ BONOBO_IDL_DIR = @BONOBO_IDL_DIR@ CANVAS_CFLAGS = @CANVAS_CFLAGS@ CANVAS_LIBS = @CANVAS_LIBS@ CC = @CC@ CCDEPMODE = @CCDEPMODE@ CFLAGS = @CFLAGS@ CORBA_CFLAGS = @CORBA_CFLAGS@ CORBA_LIBS = @CORBA_LIBS@ CPP = @CPP@ CPPFLAGS = @CPPFLAGS@ CYGPATH_W = @CYGPATH_W@ DEFS = @DEFS@ DEPDIR = @DEPDIR@ DLLTOOL = @DLLTOOL@ DSYMUTIL = @DSYMUTIL@ DUMPBIN = @DUMPBIN@ ECHO_C = @ECHO_C@ ECHO_N = @ECHO_N@ ECHO_T = @ECHO_T@ EGREP = @EGREP@ EXEEXT = @EXEEXT@ FGREP = @FGREP@ GCONF_CFLAGS = @GCONF_CFLAGS@ GCONF_LIBS = @GCONF_LIBS@ GDK_CFLAGS = @GDK_CFLAGS@ GDK_LIBS = @GDK_LIBS@ GDK_PIXBUF_CFLAGS = @GDK_PIXBUF_CFLAGS@ GDK_PIXBUF_LIBS = @GDK_PIXBUF_LIBS@ GLIB_CFLAGS = @GLIB_CFLAGS@ GLIB_LIBS = @GLIB_LIBS@ GNOMEUI_DEPRECATION_FLAGS = @GNOMEUI_DEPRECATION_FLAGS@ GNOME_VFS_CFLAGS = @GNOME_VFS_CFLAGS@ GNOME_VFS_DEPRECATED_CFLAGS = @GNOME_VFS_DEPRECATED_CFLAGS@ GNOME_VFS_LIBS = @GNOME_VFS_LIBS@ GOBJECT_CFLAGS = @GOBJECT_CFLAGS@ GOBJECT_LIBS = @GOBJECT_LIBS@ GREP = @GREP@ GTHREAD_CFLAGS = @GTHREAD_CFLAGS@ GTHREAD_LIBS = @GTHREAD_LIBS@ GTK_CFLAGS = @GTK_CFLAGS@ GTK_DEPRECATED_CFLAGS = @GTK_DEPRECATED_CFLAGS@ GTK_LIBS = @GTK_LIBS@ GUILE_CAIRO_CFLAGS = @GUILE_CAIRO_CFLAGS@ GUILE_CAIRO_LIBS = @GUILE_CAIRO_LIBS@ GUILE_CFLAGS = @GUILE_CFLAGS@ GUILE_EFFECTIVE_VERSION = @GUILE_EFFECTIVE_VERSION@ GUILE_GLIB_CFLAGS = @GUILE_GLIB_CFLAGS@ GUILE_GLIB_LIBS = @GUILE_GLIB_LIBS@ GUILE_LIBS = @GUILE_LIBS@ G_WRAP_CFLAGS = @G_WRAP_CFLAGS@ G_WRAP_LIBS = @G_WRAP_LIBS@ G_WRAP_LIB_DIR = @G_WRAP_LIB_DIR@ G_WRAP_MODULE_DIR = @G_WRAP_MODULE_DIR@ INSTALL = @INSTALL@ INSTALL_DATA = @INSTALL_DATA@ INSTALL_PROGRAM = @INSTALL_PROGRAM@ INSTALL_SCRIPT = @INSTALL_SCRIPT@ INSTALL_STRIP_PROGRAM = @INSTALL_STRIP_PROGRAM@ LD = @LD@ LDFLAGS = @LDFLAGS@ LIBGLADE_CFLAGS = @LIBGLADE_CFLAGS@ LIBGLADE_LIBS = @LIBGLADE_LIBS@ LIBGNOMEUI_CFLAGS = @LIBGNOMEUI_CFLAGS@ LIBGNOMEUI_LIBS = @LIBGNOMEUI_LIBS@ LIBGNOME_CFLAGS = @LIBGNOME_CFLAGS@ LIBGNOME_LIBS = @LIBGNOME_LIBS@ LIBOBJS = @LIBOBJS@ LIBS = @LIBS@ LIBTOOL = @LIBTOOL@ LIPO = @LIPO@ LN_S = @LN_S@ LTLIBOBJS = @LTLIBOBJS@ MAKEINFO = @MAKEINFO@ MANIFEST_TOOL = @MANIFEST_TOOL@ MKDIR_P = @MKDIR_P@ NM = @NM@ NMEDIT = @NMEDIT@ OBJDUMP = @OBJDUMP@ OBJEXT = @OBJEXT@ ORBIT_IDL = @ORBIT_IDL@ OTOOL = @OTOOL@ OTOOL64 = @OTOOL64@ PACKAGE = @PACKAGE@ PACKAGE_BUGREPORT = @PACKAGE_BUGREPORT@ PACKAGE_NAME = @PACKAGE_NAME@ PACKAGE_STRING = @PACKAGE_STRING@ PACKAGE_TARNAME = @PACKAGE_TARNAME@ PACKAGE_URL = @PACKAGE_URL@ PACKAGE_VERSION = @PACKAGE_VERSION@ PANGOCAIRO_CFLAGS = @PANGOCAIRO_CFLAGS@ PANGOCAIRO_LIBS = @PANGOCAIRO_LIBS@ PANGO_CFLAGS = @PANGO_CFLAGS@ PANGO_LIBS = @PANGO_LIBS@ PATH_SEPARATOR = @PATH_SEPARATOR@ PKG_CONFIG = @PKG_CONFIG@ PKG_CONFIG_LIBDIR = @PKG_CONFIG_LIBDIR@ PKG_CONFIG_PATH = @PKG_CONFIG_PATH@ RANLIB = @RANLIB@ SED = @SED@ SET_MAKE = @SET_MAKE@ SHELL = @SHELL@ STRIP = @STRIP@ VERSION = @VERSION@ WARN_CFLAGS = @WARN_CFLAGS@ abs_builddir = @abs_builddir@ abs_srcdir = @abs_srcdir@ abs_top_builddir = @abs_top_builddir@ abs_top_srcdir = @abs_top_srcdir@ ac_ct_AR = @ac_ct_AR@ ac_ct_CC = @ac_ct_CC@ ac_ct_DUMPBIN = @ac_ct_DUMPBIN@ am__include = @am__include@ am__leading_dot = @am__leading_dot@ am__quote = @am__quote@ am__tar = @am__tar@ am__untar = @am__untar@ bindir = @bindir@ build = @build@ build_alias = @build_alias@ build_cpu = @build_cpu@ build_os = @build_os@ build_vendor = @build_vendor@ builddir = @builddir@ datadir = @datadir@ datarootdir = @datarootdir@ docdir = @docdir@ dvidir = @dvidir@ exec_prefix = @exec_prefix@ host = @host@ host_alias = @host_alias@ host_cpu = @host_cpu@ host_os = @host_os@ host_vendor = @host_vendor@ htmldir = @htmldir@ includedir = @includedir@ infodir = @infodir@ install_sh = @install_sh@ libdir = @libdir@ libexecdir = @libexecdir@ localedir = @localedir@ localstatedir = @localstatedir@ mandir = @mandir@ mkdir_p = @mkdir_p@ oldincludedir = @oldincludedir@ pdfdir = @pdfdir@ prefix = @prefix@ program_transform_name = @program_transform_name@ psdir = @psdir@ sbindir = @sbindir@ sharedstatedir = @sharedstatedir@ srcdir = @srcdir@ sysconfdir = @sysconfdir@ target_alias = @target_alias@ top_build_prefix = @top_build_prefix@ top_builddir = @top_builddir@ top_srcdir = @top_srcdir@ wrapset_module = (gnome gw $(wrapset_stem)-spec) wrapset_name = gnome-$(wrapset_stem) GTK_DOC_TO_TEXI_STUBS = '((@ (gnome gw support gtk-doc) gtk-doc->texi-stubs) (cdr (program-arguments)))' GTK_DOC_DEFUN_HEURISTICS_METHOD = heuristics GTK_DOC_DEFUN_HEURISTICS_ARGS = (your-module-here) GTK_DOC_DEFUN_GWRAP_METHOD = g-wrap GTK_DOC_DEFUN_GWRAP_ARGS = $(wrapset_module) $(wrapset_name) GTK_DOC_DEFUN_METHOD = $(GTK_DOC_DEFUN_GWRAP_METHOD) GTK_DOC_DEFUN_ARGS = $(GTK_DOC_DEFUN_GWRAP_ARGS) GTK_DOC_TO_TEXI_DEFUNS = "(apply (@ (gnome gw support gtk-doc) gtk-doc->texi-defuns) (cadr (program-arguments)) '$(GTK_DOC_DEFUN_METHOD) '($(GTK_DOC_DEFUN_ARGS)) (cddr (program-arguments)))" GTK_DOC_COVERAGE_MODULES = (gnome $(wrapset_stem)) (gnome gw $(wrapset_stem)) GTK_DOC_COVERAGE_TEXI = $(info_TEXINFOS) GTK_DOC_CHECK_COVERAGE = "((@ (gnome gw support gtk-doc) check-documentation-coverage) '($(GTK_DOC_COVERAGE_MODULES)) \"$(GTK_DOC_COVERAGE_TEXI)\")" GTK_DOC_GENERATE_UNDOCUMENTED = "((@ (gnome gw support gtk-doc) generate-undocumented-texi) '($(GTK_DOC_COVERAGE_MODULES)) \"$(GTK_DOC_COVERAGE_TEXI)\")" GUILE = $(top_builddir)/dev-environ guile docbook_xml_wildcard = ~/src/gnome2/libgnomecanvas/docs/reference/xml/*.xml docbook_xml_files = $(wildcard $(docbook_xml_wildcard)) wrapset_stem = canvas EXTRA_DIST = overrides.texi info_TEXINFOS = guile-gnome-libgnomecanvas.texi guile_gnome_libgnomecanvas_TEXINFOS = overview.texi \ $(wildcard section-*.texi) $(wildcard defuns-*.texi) undocumented.texi all: all-am .SUFFIXES: .SUFFIXES: .dvi .html .info .pdf .ps .texi $(srcdir)/Makefile.in: $(srcdir)/Makefile.am $(top_srcdir)/generate-docs.mk $(am__configure_deps) @for dep in $?; do \ case '$(am__configure_deps)' in \ *$$dep*) \ ( cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh ) \ && { if test -f $@; then exit 0; else break; fi; }; \ exit 1;; \ esac; \ done; \ echo ' cd $(top_srcdir) && $(AUTOMAKE) --gnu libgnomecanvas/doc/Makefile'; \ $(am__cd) $(top_srcdir) && \ $(AUTOMAKE) --gnu libgnomecanvas/doc/Makefile .PRECIOUS: Makefile Makefile: $(srcdir)/Makefile.in $(top_builddir)/config.status @case '$?' in \ *config.status*) \ cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh;; \ *) \ echo ' cd $(top_builddir) && $(SHELL) ./config.status $(subdir)/$@ $(am__depfiles_maybe)'; \ cd $(top_builddir) && $(SHELL) ./config.status $(subdir)/$@ $(am__depfiles_maybe);; \ esac; $(top_srcdir)/generate-docs.mk: $(top_builddir)/config.status: $(top_srcdir)/configure $(CONFIG_STATUS_DEPENDENCIES) cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh $(top_srcdir)/configure: $(am__configure_deps) cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh $(ACLOCAL_M4): $(am__aclocal_m4_deps) cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh $(am__aclocal_m4_deps): mostlyclean-libtool: -rm -f *.lo clean-libtool: -rm -rf .libs _libs .texi.info: restore=: && backupdir="$(am__leading_dot)am$$$$" && \ am__cwd=`pwd` && $(am__cd) $(srcdir) && \ rm -rf $$backupdir && mkdir $$backupdir && \ if ($(MAKEINFO) --version) >/dev/null 2>&1; then \ for f in $@ $@-[0-9] $@-[0-9][0-9] $(@:.info=).i[0-9] $(@:.info=).i[0-9][0-9]; do \ if test -f $$f; then mv $$f $$backupdir; restore=mv; else :; fi; \ done; \ else :; fi && \ cd "$$am__cwd"; \ if $(MAKEINFO) $(AM_MAKEINFOFLAGS) $(MAKEINFOFLAGS) -I $(srcdir) \ -o $@ $<; \ then \ rc=0; \ $(am__cd) $(srcdir); \ else \ rc=$$?; \ $(am__cd) $(srcdir) && \ $$restore $$backupdir/* `echo "./$@" | sed 's|[^/]*$$||'`; \ fi; \ rm -rf $$backupdir; exit $$rc .texi.dvi: TEXINPUTS="$(am__TEXINFO_TEX_DIR)$(PATH_SEPARATOR)$$TEXINPUTS" \ MAKEINFO='$(MAKEINFO) $(AM_MAKEINFOFLAGS) $(MAKEINFOFLAGS) -I $(srcdir)' \ $(TEXI2DVI) $< .texi.pdf: TEXINPUTS="$(am__TEXINFO_TEX_DIR)$(PATH_SEPARATOR)$$TEXINPUTS" \ MAKEINFO='$(MAKEINFO) $(AM_MAKEINFOFLAGS) $(MAKEINFOFLAGS) -I $(srcdir)' \ $(TEXI2PDF) $< .texi.html: rm -rf $(@:.html=.htp) if $(MAKEINFOHTML) $(AM_MAKEINFOHTMLFLAGS) $(MAKEINFOFLAGS) -I $(srcdir) \ -o $(@:.html=.htp) $<; \ then \ rm -rf $@; \ if test ! -d $(@:.html=.htp) && test -d $(@:.html=); then \ mv $(@:.html=) $@; else mv $(@:.html=.htp) $@; fi; \ else \ if test ! -d $(@:.html=.htp) && test -d $(@:.html=); then \ rm -rf $(@:.html=); else rm -Rf $(@:.html=.htp) $@; fi; \ exit 1; \ fi $(srcdir)/guile-gnome-libgnomecanvas.info: guile-gnome-libgnomecanvas.texi $(srcdir)/version.texi $(guile_gnome_libgnomecanvas_TEXINFOS) guile-gnome-libgnomecanvas.dvi: guile-gnome-libgnomecanvas.texi $(srcdir)/version.texi $(guile_gnome_libgnomecanvas_TEXINFOS) guile-gnome-libgnomecanvas.pdf: guile-gnome-libgnomecanvas.texi $(srcdir)/version.texi $(guile_gnome_libgnomecanvas_TEXINFOS) guile-gnome-libgnomecanvas.html: guile-gnome-libgnomecanvas.texi $(srcdir)/version.texi $(guile_gnome_libgnomecanvas_TEXINFOS) $(srcdir)/version.texi: $(srcdir)/stamp-vti $(srcdir)/stamp-vti: guile-gnome-libgnomecanvas.texi $(top_srcdir)/configure @(dir=.; test -f ./guile-gnome-libgnomecanvas.texi || dir=$(srcdir); \ set `$(SHELL) $(top_srcdir)/build-aux/mdate-sh $$dir/guile-gnome-libgnomecanvas.texi`; \ echo "@set UPDATED $$1 $$2 $$3"; \ echo "@set UPDATED-MONTH $$2 $$3"; \ echo "@set EDITION $(VERSION)"; \ echo "@set VERSION $(VERSION)") > vti.tmp @cmp -s vti.tmp $(srcdir)/version.texi \ || (echo "Updating $(srcdir)/version.texi"; \ cp vti.tmp $(srcdir)/version.texi) -@rm -f vti.tmp @cp $(srcdir)/version.texi $@ mostlyclean-vti: -rm -f vti.tmp maintainer-clean-vti: -rm -f $(srcdir)/stamp-vti $(srcdir)/version.texi .dvi.ps: TEXINPUTS="$(am__TEXINFO_TEX_DIR)$(PATH_SEPARATOR)$$TEXINPUTS" \ $(DVIPS) -o $@ $< uninstall-dvi-am: @$(NORMAL_UNINSTALL) @list='$(DVIS)'; test -n "$(dvidir)" || list=; \ for p in $$list; do \ $(am__strip_dir) \ echo " rm -f '$(DESTDIR)$(dvidir)/$$f'"; \ rm -f "$(DESTDIR)$(dvidir)/$$f"; \ done uninstall-html-am: @$(NORMAL_UNINSTALL) @list='$(HTMLS)'; test -n "$(htmldir)" || list=; \ for p in $$list; do \ $(am__strip_dir) \ echo " rm -rf '$(DESTDIR)$(htmldir)/$$f'"; \ rm -rf "$(DESTDIR)$(htmldir)/$$f"; \ done uninstall-info-am: @$(PRE_UNINSTALL) @if test -d '$(DESTDIR)$(infodir)' && $(am__can_run_installinfo); then \ list='$(INFO_DEPS)'; \ for file in $$list; do \ relfile=`echo "$$file" | sed 's|^.*/||'`; \ echo " install-info --info-dir='$(DESTDIR)$(infodir)' --remove '$(DESTDIR)$(infodir)/$$relfile'"; \ if install-info --info-dir="$(DESTDIR)$(infodir)" --remove "$(DESTDIR)$(infodir)/$$relfile"; \ then :; else test ! -f "$(DESTDIR)$(infodir)/$$relfile" || exit 1; fi; \ done; \ else :; fi @$(NORMAL_UNINSTALL) @list='$(INFO_DEPS)'; \ for file in $$list; do \ relfile=`echo "$$file" | sed 's|^.*/||'`; \ relfile_i=`echo "$$relfile" | sed 's|\.info$$||;s|$$|.i|'`; \ (if test -d "$(DESTDIR)$(infodir)" && cd "$(DESTDIR)$(infodir)"; then \ echo " cd '$(DESTDIR)$(infodir)' && rm -f $$relfile $$relfile-[0-9] $$relfile-[0-9][0-9] $$relfile_i[0-9] $$relfile_i[0-9][0-9]"; \ rm -f $$relfile $$relfile-[0-9] $$relfile-[0-9][0-9] $$relfile_i[0-9] $$relfile_i[0-9][0-9]; \ else :; fi); \ done uninstall-pdf-am: @$(NORMAL_UNINSTALL) @list='$(PDFS)'; test -n "$(pdfdir)" || list=; \ for p in $$list; do \ $(am__strip_dir) \ echo " rm -f '$(DESTDIR)$(pdfdir)/$$f'"; \ rm -f "$(DESTDIR)$(pdfdir)/$$f"; \ done uninstall-ps-am: @$(NORMAL_UNINSTALL) @list='$(PSS)'; test -n "$(psdir)" || list=; \ for p in $$list; do \ $(am__strip_dir) \ echo " rm -f '$(DESTDIR)$(psdir)/$$f'"; \ rm -f "$(DESTDIR)$(psdir)/$$f"; \ done dist-info: $(INFO_DEPS) @srcdirstrip=`echo "$(srcdir)" | sed 's|.|.|g'`; \ list='$(INFO_DEPS)'; \ for base in $$list; do \ case $$base in \ $(srcdir)/*) base=`echo "$$base" | sed "s|^$$srcdirstrip/||"`;; \ esac; \ if test -f $$base; then d=.; else d=$(srcdir); fi; \ base_i=`echo "$$base" | sed 's|\.info$$||;s|$$|.i|'`; \ for file in $$d/$$base $$d/$$base-[0-9] $$d/$$base-[0-9][0-9] $$d/$$base_i[0-9] $$d/$$base_i[0-9][0-9]; do \ if test -f $$file; then \ relfile=`expr "$$file" : "$$d/\(.*\)"`; \ test -f "$(distdir)/$$relfile" || \ cp -p $$file "$(distdir)/$$relfile"; \ else :; fi; \ done; \ done mostlyclean-aminfo: -rm -rf guile-gnome-libgnomecanvas.aux guile-gnome-libgnomecanvas.cp \ guile-gnome-libgnomecanvas.cps guile-gnome-libgnomecanvas.fn \ guile-gnome-libgnomecanvas.fns guile-gnome-libgnomecanvas.ky \ guile-gnome-libgnomecanvas.kys \ guile-gnome-libgnomecanvas.log guile-gnome-libgnomecanvas.pg \ guile-gnome-libgnomecanvas.pgs \ guile-gnome-libgnomecanvas.tmp \ guile-gnome-libgnomecanvas.toc guile-gnome-libgnomecanvas.tp \ guile-gnome-libgnomecanvas.tps guile-gnome-libgnomecanvas.vr \ guile-gnome-libgnomecanvas.vrs clean-aminfo: -test -z "guile-gnome-libgnomecanvas.dvi guile-gnome-libgnomecanvas.pdf \ guile-gnome-libgnomecanvas.ps \ guile-gnome-libgnomecanvas.html" \ || rm -rf guile-gnome-libgnomecanvas.dvi guile-gnome-libgnomecanvas.pdf \ guile-gnome-libgnomecanvas.ps \ guile-gnome-libgnomecanvas.html maintainer-clean-aminfo: @list='$(INFO_DEPS)'; for i in $$list; do \ i_i=`echo "$$i" | sed 's|\.info$$||;s|$$|.i|'`; \ echo " rm -f $$i $$i-[0-9] $$i-[0-9][0-9] $$i_i[0-9] $$i_i[0-9][0-9]"; \ rm -f $$i $$i-[0-9] $$i-[0-9][0-9] $$i_i[0-9] $$i_i[0-9][0-9]; \ done tags: TAGS TAGS: ctags: CTAGS CTAGS: distdir: $(DISTFILES) @srcdirstrip=`echo "$(srcdir)" | sed 's/[].[^$$\\*]/\\\\&/g'`; \ topsrcdirstrip=`echo "$(top_srcdir)" | sed 's/[].[^$$\\*]/\\\\&/g'`; \ list='$(DISTFILES)'; \ dist_files=`for file in $$list; do echo $$file; done | \ sed -e "s|^$$srcdirstrip/||;t" \ -e "s|^$$topsrcdirstrip/|$(top_builddir)/|;t"`; \ case $$dist_files in \ */*) $(MKDIR_P) `echo "$$dist_files" | \ sed '/\//!d;s|^|$(distdir)/|;s,/[^/]*$$,,' | \ sort -u` ;; \ esac; \ for file in $$dist_files; do \ if test -f $$file || test -d $$file; then d=.; else d=$(srcdir); fi; \ if test -d $$d/$$file; then \ dir=`echo "/$$file" | sed -e 's,/[^/]*$$,,'`; \ if test -d "$(distdir)/$$file"; then \ find "$(distdir)/$$file" -type d ! -perm -700 -exec chmod u+rwx {} \;; \ fi; \ if test -d $(srcdir)/$$file && test $$d != $(srcdir); then \ cp -fpR $(srcdir)/$$file "$(distdir)$$dir" || exit 1; \ find "$(distdir)/$$file" -type d ! -perm -700 -exec chmod u+rwx {} \;; \ fi; \ cp -fpR $$d/$$file "$(distdir)$$dir" || exit 1; \ else \ test -f "$(distdir)/$$file" \ || cp -p $$d/$$file "$(distdir)/$$file" \ || exit 1; \ fi; \ done $(MAKE) $(AM_MAKEFLAGS) \ top_distdir="$(top_distdir)" distdir="$(distdir)" \ dist-info check-am: all-am check: check-am all-am: Makefile $(INFO_DEPS) installdirs: for dir in "$(DESTDIR)$(infodir)"; do \ test -z "$$dir" || $(MKDIR_P) "$$dir"; \ done install: install-am install-exec: install-exec-am install-data: install-data-am uninstall: uninstall-am install-am: all-am @$(MAKE) $(AM_MAKEFLAGS) install-exec-am install-data-am installcheck: installcheck-am install-strip: if test -z '$(STRIP)'; then \ $(MAKE) $(AM_MAKEFLAGS) INSTALL_PROGRAM="$(INSTALL_STRIP_PROGRAM)" \ install_sh_PROGRAM="$(INSTALL_STRIP_PROGRAM)" INSTALL_STRIP_FLAG=-s \ install; \ else \ $(MAKE) $(AM_MAKEFLAGS) INSTALL_PROGRAM="$(INSTALL_STRIP_PROGRAM)" \ install_sh_PROGRAM="$(INSTALL_STRIP_PROGRAM)" INSTALL_STRIP_FLAG=-s \ "INSTALL_PROGRAM_ENV=STRIPPROG='$(STRIP)'" install; \ fi mostlyclean-generic: clean-generic: distclean-generic: -test -z "$(CONFIG_CLEAN_FILES)" || rm -f $(CONFIG_CLEAN_FILES) -test . = "$(srcdir)" || test -z "$(CONFIG_CLEAN_VPATH_FILES)" || rm -f $(CONFIG_CLEAN_VPATH_FILES) maintainer-clean-generic: @echo "This command is intended for maintainers to use" @echo "it deletes files that may require special tools to rebuild." clean: clean-am clean-am: clean-aminfo clean-generic clean-libtool mostlyclean-am distclean: distclean-am -rm -f Makefile distclean-am: clean-am distclean-generic dvi: dvi-am dvi-am: $(DVIS) html: html-am html-am: $(HTMLS) info: info-am info-am: $(INFO_DEPS) install-data-am: install-info-am install-dvi: install-dvi-am install-dvi-am: $(DVIS) @$(NORMAL_INSTALL) @list='$(DVIS)'; test -n "$(dvidir)" || list=; \ if test -n "$$list"; then \ echo " $(MKDIR_P) '$(DESTDIR)$(dvidir)'"; \ $(MKDIR_P) "$(DESTDIR)$(dvidir)" || exit 1; \ fi; \ for p in $$list; do \ if test -f "$$p"; then d=; else d="$(srcdir)/"; fi; \ echo "$$d$$p"; \ done | $(am__base_list) | \ while read files; do \ echo " $(INSTALL_DATA) $$files '$(DESTDIR)$(dvidir)'"; \ $(INSTALL_DATA) $$files "$(DESTDIR)$(dvidir)" || exit $$?; \ done install-exec-am: install-html: install-html-am install-html-am: $(HTMLS) @$(NORMAL_INSTALL) @list='$(HTMLS)'; list2=; test -n "$(htmldir)" || list=; \ if test -n "$$list"; then \ echo " $(MKDIR_P) '$(DESTDIR)$(htmldir)'"; \ $(MKDIR_P) "$(DESTDIR)$(htmldir)" || exit 1; \ fi; \ for p in $$list; do \ if test -f "$$p" || test -d "$$p"; then d=; else d="$(srcdir)/"; fi; \ $(am__strip_dir) \ d2=$$d$$p; \ if test -d "$$d2"; then \ echo " $(MKDIR_P) '$(DESTDIR)$(htmldir)/$$f'"; \ $(MKDIR_P) "$(DESTDIR)$(htmldir)/$$f" || exit 1; \ echo " $(INSTALL_DATA) '$$d2'/* '$(DESTDIR)$(htmldir)/$$f'"; \ $(INSTALL_DATA) "$$d2"/* "$(DESTDIR)$(htmldir)/$$f" || exit $$?; \ else \ list2="$$list2 $$d2"; \ fi; \ done; \ test -z "$$list2" || { echo "$$list2" | $(am__base_list) | \ while read files; do \ echo " $(INSTALL_DATA) $$files '$(DESTDIR)$(htmldir)'"; \ $(INSTALL_DATA) $$files "$(DESTDIR)$(htmldir)" || exit $$?; \ done; } install-info: install-info-am install-info-am: $(INFO_DEPS) @$(NORMAL_INSTALL) @srcdirstrip=`echo "$(srcdir)" | sed 's|.|.|g'`; \ list='$(INFO_DEPS)'; test -n "$(infodir)" || list=; \ if test -n "$$list"; then \ echo " $(MKDIR_P) '$(DESTDIR)$(infodir)'"; \ $(MKDIR_P) "$(DESTDIR)$(infodir)" || exit 1; \ fi; \ for file in $$list; do \ case $$file in \ $(srcdir)/*) file=`echo "$$file" | sed "s|^$$srcdirstrip/||"`;; \ esac; \ if test -f $$file; then d=.; else d=$(srcdir); fi; \ file_i=`echo "$$file" | sed 's|\.info$$||;s|$$|.i|'`; \ for ifile in $$d/$$file $$d/$$file-[0-9] $$d/$$file-[0-9][0-9] \ $$d/$$file_i[0-9] $$d/$$file_i[0-9][0-9] ; do \ if test -f $$ifile; then \ echo "$$ifile"; \ else : ; fi; \ done; \ done | $(am__base_list) | \ while read files; do \ echo " $(INSTALL_DATA) $$files '$(DESTDIR)$(infodir)'"; \ $(INSTALL_DATA) $$files "$(DESTDIR)$(infodir)" || exit $$?; done @$(POST_INSTALL) @if $(am__can_run_installinfo); then \ list='$(INFO_DEPS)'; test -n "$(infodir)" || list=; \ for file in $$list; do \ relfile=`echo "$$file" | sed 's|^.*/||'`; \ echo " install-info --info-dir='$(DESTDIR)$(infodir)' '$(DESTDIR)$(infodir)/$$relfile'";\ install-info --info-dir="$(DESTDIR)$(infodir)" "$(DESTDIR)$(infodir)/$$relfile" || :;\ done; \ else : ; fi install-man: install-pdf: install-pdf-am install-pdf-am: $(PDFS) @$(NORMAL_INSTALL) @list='$(PDFS)'; test -n "$(pdfdir)" || list=; \ if test -n "$$list"; then \ echo " $(MKDIR_P) '$(DESTDIR)$(pdfdir)'"; \ $(MKDIR_P) "$(DESTDIR)$(pdfdir)" || exit 1; \ fi; \ for p in $$list; do \ if test -f "$$p"; then d=; else d="$(srcdir)/"; fi; \ echo "$$d$$p"; \ done | $(am__base_list) | \ while read files; do \ echo " $(INSTALL_DATA) $$files '$(DESTDIR)$(pdfdir)'"; \ $(INSTALL_DATA) $$files "$(DESTDIR)$(pdfdir)" || exit $$?; done install-ps: install-ps-am install-ps-am: $(PSS) @$(NORMAL_INSTALL) @list='$(PSS)'; test -n "$(psdir)" || list=; \ if test -n "$$list"; then \ echo " $(MKDIR_P) '$(DESTDIR)$(psdir)'"; \ $(MKDIR_P) "$(DESTDIR)$(psdir)" || exit 1; \ fi; \ for p in $$list; do \ if test -f "$$p"; then d=; else d="$(srcdir)/"; fi; \ echo "$$d$$p"; \ done | $(am__base_list) | \ while read files; do \ echo " $(INSTALL_DATA) $$files '$(DESTDIR)$(psdir)'"; \ $(INSTALL_DATA) $$files "$(DESTDIR)$(psdir)" || exit $$?; done installcheck-am: maintainer-clean: maintainer-clean-am -rm -f Makefile maintainer-clean-am: distclean-am maintainer-clean-aminfo \ maintainer-clean-generic maintainer-clean-vti mostlyclean: mostlyclean-am mostlyclean-am: mostlyclean-aminfo mostlyclean-generic \ mostlyclean-libtool mostlyclean-vti pdf: pdf-am pdf-am: $(PDFS) ps: ps-am ps-am: $(PSS) uninstall-am: uninstall-dvi-am uninstall-html-am uninstall-info-am \ uninstall-pdf-am uninstall-ps-am .MAKE: install-am install-strip .PHONY: all all-am check check-am clean clean-aminfo clean-generic \ clean-libtool dist-info distclean distclean-generic \ distclean-libtool distdir dvi dvi-am html html-am info info-am \ install install-am install-data install-data-am install-dvi \ install-dvi-am install-exec install-exec-am install-html \ install-html-am install-info install-info-am install-man \ install-pdf install-pdf-am install-ps install-ps-am \ install-strip installcheck installcheck-am installdirs \ maintainer-clean maintainer-clean-aminfo \ maintainer-clean-generic maintainer-clean-vti mostlyclean \ mostlyclean-aminfo mostlyclean-generic mostlyclean-libtool \ mostlyclean-vti pdf pdf-am ps ps-am uninstall uninstall-am \ uninstall-dvi-am uninstall-html-am uninstall-info-am \ uninstall-pdf-am uninstall-ps-am generate-stubs: $(GUILE) $(GUILE_FLAGS) -c $(GTK_DOC_TO_TEXI_STUBS) $(docbook_xml_files) generate-defuns: $(GUILE) $(GUILE_FLAGS) -c $(GTK_DOC_TO_TEXI_DEFUNS) ./overrides.texi $(docbook_xml_files) check-coverage: $(GUILE) $(GUILE_FLAGS) -c $(GTK_DOC_CHECK_COVERAGE) generate-undocumented: rm -f undocumented.texi; touch undocumented.texi $(GUILE) $(GUILE_FLAGS) -c $(GTK_DOC_GENERATE_UNDOCUMENTED) # Tell versions [3.59,3.63) of GNU make to not export all variables. # Otherwise a system limit (for SysV at least) may be exceeded. .NOEXPORT: guile-gnome-platform-2.16.2/libgnomecanvas/doc/section-gnome-canvas-rect.xml.texi0000644000175000017500000000061011670374303030367 0ustar00wingowingo00000000000000 @c %start of fragment @node GnomeCanvasRect @chapter GnomeCanvasRect Rectangle canvas item @section Overview A canvas item for drawing rectangles and squares. The parameters are defined in the parent classes including @code{} which is shared with @code{} items as well. @section Usage @include defuns-gnome-canvas-rect.xml.texi @c %end of fragment guile-gnome-platform-2.16.2/libgnomecanvas/doc/stamp-vti0000644000175000017500000000014611752511104023566 0ustar00wingowingo00000000000000@set UPDATED 9 December 2011 @set UPDATED-MONTH December 2011 @set EDITION 2.16.2 @set VERSION 2.16.2 guile-gnome-platform-2.16.2/libgnomecanvas/doc/defuns-gnome-canvas-item.xml.texi0000644000175000017500000001750411670374303030222 0ustar00wingowingo00000000000000 @c %start of fragment @deftp Class Derives from @code{}. This class defines the following properties: @table @code @item parent @end table @end deftp @defop Signal event (arg0@tie{}@code{}) @result{}@tie{}@code{} Signals mouse button clicks, motion, enter/leave, and key press events on canvas items. Use this signal to create user interactive items. The @c (structfield "x") and @c (structfield "y") coordinates of the @var{event} structure have been converted to canvas world coordinates. @end defop @deffn Function gnome-canvas-item-move (self@tie{}@code{}) (dx@tie{}@code{double}) (dy@tie{}@code{double}) @deffnx Method move Moves a canvas item by creating an affine transformation matrix for translation by using the specified values. This happens in item local coordinate system, so if you have nontrivial transform, it most probably does not do, what you want. @table @var @item item A canvas item. @item dx Horizontal offset. @item dy Vertical offset. @end table @end deffn @deffn Function gnome-canvas-item-affine-relative (self@tie{}@code{}) (x1@tie{}@code{double}) (y2@tie{}@code{double}) (x2@tie{}@code{double}) (y2@tie{}@code{double}) (x3@tie{}@code{double}) (y3@tie{}@code{double}) @deffnx Method affine-relative Combines the specified affine transformation matrix with the item's current transformation. NULL affine is not allowed. @table @var @item item A canvas item. @item affine An affine transformation matrix. @end table @end deffn @deffn Function gnome-canvas-item-affine-absolute (self@tie{}@code{}) (x1@tie{}@code{double}) (y2@tie{}@code{double}) (x2@tie{}@code{double}) (y2@tie{}@code{double}) (x3@tie{}@code{double}) (y3@tie{}@code{double}) @deffnx Method affine-absolute Makes the item's affine transformation matrix be equal to the specified matrix. NULL affine is treated as identity. @table @var @item item A canvas item. @item affine An affine transformation matrix. @end table @end deffn @deffn Function gnome-canvas-item-raise (self@tie{}@code{}) (positions@tie{}@code{int}) @deffnx Method raise Raises the item in its parent's stack by the specified number of positions. If the number of positions is greater than the distance to the top of the stack, then the item is put at the top. @table @var @item item A canvas item. @item positions Number of steps to raise the item. @end table @end deffn @deffn Function gnome-canvas-item-lower (self@tie{}@code{}) (positions@tie{}@code{int}) @deffnx Method lower Lowers the item in its parent's stack by the specified number of positions. If the number of positions is greater than the distance to the bottom of the stack, then the item is put at the bottom. @table @var @item item A canvas item. @item positions Number of steps to lower the item. @end table @end deffn @deffn Function gnome-canvas-item-raise-to-top (self@tie{}@code{}) @deffnx Method raise-to-top Raises an item to the top of its parent's stack. @table @var @item item A canvas item. @end table @end deffn @deffn Function gnome-canvas-item-lower-to-bottom (self@tie{}@code{}) @deffnx Method lower-to-bottom Lowers an item to the bottom of its parent's stack. @table @var @item item A canvas item. @end table @end deffn @deffn Function gnome-canvas-item-show (self@tie{}@code{}) @deffnx Method show Shows a canvas item. If the item was already shown, then no action is taken. @table @var @item item A canvas item. @end table @end deffn @deffn Function gnome-canvas-item-hide (self@tie{}@code{}) @deffnx Method hide Hides a canvas item. If the item was already hidden, then no action is taken. @table @var @item item A canvas item. @end table @end deffn @deffn Function gnome-canvas-item-grab (self@tie{}@code{}) (event_mask@tie{}@code{unsigned-int}) (cursor@tie{}@code{}) (etime@tie{}@code{unsigned-int32}) @result{}@tie{} (ret@tie{}@code{int}) @deffnx Method grab Specifies that all events that match the specified event mask should be sent to the specified item, and also grabs the mouse by calling @code{gdk-pointer-grab}. The event mask is also used when grabbing the pointer. If @var{cursor} is not NULL, then that cursor is used while the grab is active. The @var{etime} parameter is the timestamp required for grabbing the mouse. Return value: If an item was already grabbed, it returns @samp{GDK_GRAB_ALREADY_GRABBED}. If the specified item was hidden by calling @code{gnome-canvas-item-hide}, then it @table @var @item item A canvas item. @item event-mask Mask of events that will be sent to this item. @item cursor If non-NULL, the cursor that will be used while the grab is active. @item etime The timestamp required for grabbing the mouse, or GDK_CURRENT_TIME. @item ret @samp{GDK_GRAB_NOT_VIEWABLE}. Else, it returns the result of calling @code{gdk-pointer-grab}. @end table @end deffn @deffn Function gnome-canvas-item-ungrab (self@tie{}@code{}) (etime@tie{}@code{unsigned-int32}) @deffnx Method ungrab Ungrabs the item, which must have been grabbed in the canvas, and ungrabs the mouse. @table @var @item item A canvas item that holds a grab. @item etime The timestamp for ungrabbing the mouse. @end table @end deffn @deffn Function gnome-canvas-item-w2i (self@tie{}@code{}) @result{}@tie{} (x@tie{}@code{double}) (y@tie{}@code{double}) @deffnx Method w2i Converts a coordinate pair from world coordinates to item-relative coordinates. @table @var @item item A canvas item. @item x X coordinate to convert (input/output value). @item y Y coordinate to convert (input/output value). @end table @end deffn @deffn Function gnome-canvas-item-i2w (self@tie{}@code{}) @result{}@tie{} (x@tie{}@code{double}) (y@tie{}@code{double}) @deffnx Method i2w Converts a coordinate pair from item-relative coordinates to world coordinates. @table @var @item item A canvas item. @item x X coordinate to convert (input/output value). @item y Y coordinate to convert (input/output value). @end table @end deffn @deffn Function gnome-canvas-item-reparent (self@tie{}@code{}) (new_group@tie{}@code{}) @deffnx Method reparent Changes the parent of the specified item to be the new group. The item keeps its group-relative coordinates as for its old parent, so the item may change its absolute position within the canvas. @table @var @item item A canvas item. @item new-group A canvas group. @end table @end deffn @deffn Function gnome-canvas-item-grab-focus (self@tie{}@code{}) @deffnx Method grab-focus Makes the specified item take the keyboard focus, so all keyboard events will be sent to it. If the canvas widget itself did not have the focus, it grabs it as well. @table @var @item item A canvas item. @end table @end deffn @deffn Function gnome-canvas-item-get-bounds (self@tie{}@code{}) @result{}@tie{} (x1@tie{}@code{double}) (y1@tie{}@code{double}) (x2@tie{}@code{double}) (y2@tie{}@code{double}) @deffnx Method get-bounds Queries the bounding box of a canvas item. The bounds are returned in the coordinate system of the item's parent. @table @var @item item A canvas item. @item x1 Leftmost edge of the bounding box (return value). @item y1 Upper edge of the bounding box (return value). @item x2 Rightmost edge of the bounding box (return value). @item y2 Lower edge of the bounding box (return value). @end table @end deffn @deffn Function gnome-canvas-item-request-update (self@tie{}@code{}) @deffnx Method request-update To be used only by item implementations. Requests that the canvas queue an update for the specified item. @table @var @item item A canvas item. @end table @end deffn @c %end of fragment guile-gnome-platform-2.16.2/libgnomecanvas/doc/defuns-gnome-canvas-bpath.xml.texi0000644000175000017500000000032611670374303030354 0ustar00wingowingo00000000000000 @c %start of fragment @deftp Class Derives from @code{}. This class defines the following slots: @table @code @item bpath @end table @end deftp @c %end of fragment guile-gnome-platform-2.16.2/libgnomecanvas/doc/section-gnome-canvas-clipgroup.xml.texi0000644000175000017500000000052111670374303031437 0ustar00wingowingo00000000000000 @c %start of fragment @node GnomeCanvasClipgroup @chapter GnomeCanvasClipgroup Canvas group that implements clipping @section Overview A canvas group object that clips the view of its children to a shape defined by a @code{}. @section Usage @include defuns-gnome-canvas-clipgroup.xml.texi @c %end of fragment guile-gnome-platform-2.16.2/libgnomecanvas/doc/overview.texi0000644000175000017500000000107511670374303024471 0ustar00wingowingo00000000000000@node Overview @chapter Overview @code{(gnome canvas)} wraps the Gnome-Canvas library for Guile. It is a part of Guile-GNOME. Libgnomecanvas is a retained-mode canvas: you tell it what should be on it, and it handles redraw operations for you. It is a bit dated, in that it is backed by a library called ``libart'' and not Cairo, but no clear successor has emerged yet. The source distribution has a fairly comprehensive example; see @code{examples/canvas.scm} for more information. See the documentation for @code{(gnome gobject)} for more information on Guile-GNOME. guile-gnome-platform-2.16.2/libgnomecanvas/doc/guile-gnome-libgnomecanvas.texi0000644000175000017500000000614411670374303030023 0ustar00wingowingo00000000000000\input texinfo @c -*-texinfo-*- @c %**start of header @setfilename guile-gnome-libgnomecanvas.info @settitle Guile-Libgnomecanvas @c %**end of header @include version.texi @copying This manual is for @code{(gnome libgnomecanvas)} (version @value{VERSION}, updated @value{UPDATED}) Copyright 2001-2007 Federico Mena Quintero, Raph Levien, and others @c LIBGNOMECANVAS is LGPL, ergo GPL distribution is possible @quotation Permission is granted to copy, distribute and/or modify this document under the terms of the GNU General Public License, Version 2 or any later version published by the Free Software Foundation. @end quotation @end copying @dircategory The Algorithmic Language Scheme @direntry * Guile-Libgnomecanvas: (guile-gnome-libgnomecanvas.info). Structured graphics. @end direntry @titlepage @title Guile-GNOME: Libgnomecanvas @subtitle version @value{VERSION}, updated @value{UPDATED} @author Federico Mena Quintero @author Raph Levien @author and others @page @vskip 0pt plus 1filll @insertcopying @end titlepage @ifnottex @node Top @top Guile-Libgnomecanvas @insertcopying @menu * Overview:: About libgnomecanvas and its Guile bindings. * GnomeCanvasBpath:: Bezier path canvas item * GnomeCanvasClipgroup:: Canvas group that implements clipping * GnomeCanvasEllipse:: Canvas item for drawing ellipses and circles * GnomeCanvasGroup:: Canvas item group * GnomeCanvasItem:: Base class for all canvas items * GnomeCanvasLine:: Line canvas item * gnome-canvas-path-def::Container and functions for manipulating ArtBpaths * GnomeCanvasPixbuf:: Pixbuf image canvas item * GnomeCanvasPolygon:: Polygon canvas item * GnomeCanvasRect:: Rectangle canvas item * GnomeCanvasRE:: Base class for rectangle and ellipse items * GnomeCanvasRichText:: Rich text canvas item * GnomeCanvasShape:: Base class for canvas item shapes * GnomeCanvasText:: Text canvas item * gnome-canvas-util:: Canvas utility functions * GnomeCanvasWidget:: Widget canvas item * GnomeCanvas:: Main canvas widget * Undocumented:: Undocumented functions. * Type Index:: * Function Index:: @end menu @end ifnottex @iftex @shortcontents @end iftex @include overview.texi @include section-gnome-canvas-bpath.xml.texi @include section-gnome-canvas-clipgroup.xml.texi @include section-gnome-canvas-ellipse.xml.texi @include section-gnome-canvas-group.xml.texi @include section-gnome-canvas-item.xml.texi @include section-gnome-canvas-line.xml.texi @include section-gnome-canvas-path-def.xml.texi @include section-gnome-canvas-pixbuf.xml.texi @include section-gnome-canvas-polygon.xml.texi @include section-gnome-canvas-rect.xml.texi @include section-gnome-canvas-re.xml.texi @include section-gnome-canvas-rich-text.xml.texi @include section-gnome-canvas-shape.xml.texi @include section-gnome-canvas-text.xml.texi @include section-gnome-canvas-util.xml.texi @include section-gnome-canvas-widget.xml.texi @include section-gnome-canvas.xml.texi @include undocumented.texi @node Type Index @unnumbered Type Index @printindex tp @node Function Index @unnumbered Function Index @printindex fn @bye guile-gnome-platform-2.16.2/libgnomecanvas/doc/defuns-gnome-canvas-path-def.xml.texi0000644000175000017500000002110411670374303030743 0ustar00wingowingo00000000000000 @c %start of fragment @deftp Class Derives from @code{}. @end deftp @deffn Function gnome-canvas-path-def-new @result{}@tie{} (ret@tie{}@code{}) This function creates a new empty @code{}. @table @var @item ret the new canvas path definition. @end table @end deffn @deffn Function gnome-canvas-path-def-new-sized (length@tie{}@code{int}) @result{}@tie{} (ret@tie{}@code{}) This function creates a new @code{} with @var{length} number of points allocated. It is useful, if you know the exact number of points in path, so you can avoid automatic point array reallocation. @table @var @item length number of points to allocate for the path @item ret the new canvas path definition @end table @end deffn @deffn Function gnome-canvas-path-def-finish (self@tie{}@code{}) Trims dynamic point array to exact length of path. @table @var @item path a GnomeCanvasPathDef @end table @end deffn @deffn Function gnome-canvas-path-def-ensure-space (self@tie{}@code{}) (space@tie{}@code{int}) This function ensures that enough space for @var{space} points is allocated at the end of the path. @table @var @item path a GnomeCanvasPathDef @item space number of points to guarantee are allocated at the end of the path. @end table @end deffn @deffn Function gnome-canvas-path-def-duplicate (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{}) This function duplicates the passed @var{path}. The new path is marked as non-static regardless of the state of original. @table @var @item path a GnomeCanvasPathDef to duplicate @item ret a GnomeCanvasPathDef which is a duplicate of @var{path}. @end table @end deffn @deffn Function gnome-canvas-path-def-concat (list@tie{}@code{gslist-of}) @result{}@tie{} (ret@tie{}@code{}) This function concatenates a list of GnomeCanvasPathDefs into one newly created GnomeCanvasPathDef. @table @var @item list a GSList of GnomeCanvasPathDefs to concatenate into one new path. @item ret a new GnomeCanvasPathDef @end table @end deffn @deffn Function gnome-canvas-path-def-split (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{gslist-of}) This function splits the passed @var{path} into a list of GnomeCanvasPathDefs which represent each segment of the origional path. The path is split when ever an ART_MOVETO or ART_MOVETO_OPEN is encountered. The closedness of resulting paths is set accordingly to closedness of corresponding segment. @table @var @item path a GnomeCanvasPathDef @item ret a list of GnomeCanvasPathDef(s). @end table @end deffn @deffn Function gnome-canvas-path-def-open-parts (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{}) This function creates a new GnomeCanvasPathDef that contains all of the open segments on the passed @var{path}. @table @var @item path a GnomeCanvasPathDef @item ret a new GnomeCanvasPathDef that contains all of the open segemtns in @var{path}. @end table @end deffn @deffn Function gnome-canvas-path-def-closed-parts (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{}) This function returns a new GnomeCanvasPathDef that contains the all of close parts of passed @var{path}. @table @var @item path a GnomeCanvasPathDef @item ret a new GnomeCanvasPathDef that contains all of the closed parts of passed @var{path}. @end table @end deffn @deffn Function gnome-canvas-path-def-close-all (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{}) This function closes all of the open segments in the passed path and returns a new GnomeCanvasPathDef. @table @var @item path a GnomeCanvasPathDef @item ret a GnomeCanvasPathDef that contains the contents of @var{path} but has modified the path is fully closed @end table @end deffn @deffn Function gnome-canvas-path-def-reset (self@tie{}@code{}) This function clears the contents of the passed @var{path}. @table @var @item path a GnomeCanvasPathDef @end table @end deffn @deffn Function gnome-canvas-path-def-moveto (self@tie{}@code{}) (x@tie{}@code{double}) (y@tie{}@code{double}) This function adds starts new subpath on @var{path}, and sets its starting point to @var{x} and @var{y}. If current subpath is empty, it simply changes its starting coordinates to new values. @table @var @item path a GnomeCanvasPathDef @item x x coordinate @item y y coordinate @end table @end deffn @deffn Function gnome-canvas-path-def-lineto (self@tie{}@code{}) (x@tie{}@code{double}) (y@tie{}@code{double}) This function add a line segment to the passed @var{path} with the specified @var{x} and @var{y} coordinates. @table @var @item path a GnomeCanvasPathDef @item x x coordinate @item y y coordinate @end table @end deffn @deffn Function gnome-canvas-path-def-lineto-moving (self@tie{}@code{}) (x@tie{}@code{double}) (y@tie{}@code{double}) This functions adds a new line segment with loose endpoint to the path, or if endpoint is already loose, changes its coordinates to @var{x}, @var{y}. You can change the coordinates of loose endpoint as many times as you want, the last ones set will be fixed, if you continue line. This is useful for handling drawing with mouse. @table @var @item path a GnomeCanvasPathDef @item x x coordinate @item y y coordinate @end table @end deffn @deffn Function gnome-canvas-path-def-curveto (self@tie{}@code{}) (x0@tie{}@code{double}) (y0@tie{}@code{double}) (x1@tie{}@code{double}) (y1@tie{}@code{double}) (x2@tie{}@code{double}) (y2@tie{}@code{double}) This function adds a bezier curve segment to the path definition. @table @var @item path a GnomeCanvasPathDef @item x0 first control point x coordinate @item y0 first control point y coordinate @item x1 second control point x coordinate @item y1 second control point y coordinate @item x2 end of curve x coordinate @item y2 end of curve y coordinate @end table @end deffn @deffn Function gnome-canvas-path-def-closepath (self@tie{}@code{}) This function closes the last subpath of @var{path}, adding a ART_LINETO to subpath starting point, if needed and changing starting pathcode to ART_MOVETO @table @var @item path a GnomeCanvasPathDef @end table @end deffn @deffn Function gnome-canvas-path-def-length (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{int}) This function returns the length of the path definition. Not Euclidian length of the path but rather the number of points on the path. @table @var @item path a GnomeCanvasPathDef @item ret integer, number of points on the path. @end table @end deffn @deffn Function gnome-canvas-path-def-is-empty (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{bool}) This function is a boolean test to see if the path is empty, meaning containing no line segments. @table @var @item path a GnomeCanvasPathDef @item ret boolean, indicating if the path is empty. @end table @end deffn @deffn Function gnome-canvas-path-def-any-open (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{bool}) This function returns a boolean value indicating if the path has any open segments. @table @var @item path a GnomeCanvasPathDef @item ret boolean, indicating if the path has any open segments. @end table @end deffn @deffn Function gnome-canvas-path-def-all-open (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{bool}) This function returns a boolean value indicating if the path only contains open segments. @table @var @item path a GnomeCanvasPathDef @item ret boolean, indicating if the path has all open segments. @end table @end deffn @deffn Function gnome-canvas-path-def-any-closed (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{bool}) This function returns a boolean valid indicating if the path has any closed segements. @table @var @item path a GnomeCanvasPathDef @item ret boolean, indicating if the path has any closed segments. @end table @end deffn @deffn Function gnome-canvas-path-def-all-closed (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{bool}) This function returns a boolean value indicating if the path only contains closed segments. @table @var @item path a GnomeCanvasPathDef @item ret boolean, indicating if the path has all closed segments. @end table @end deffn @c %end of fragment guile-gnome-platform-2.16.2/libgnomecanvas/doc/section-gnome-canvas-re.xml.texi0000644000175000017500000000041711670374303030045 0ustar00wingowingo00000000000000 @c %start of fragment @node GnomeCanvasRE @chapter GnomeCanvasRE Base class for rectangle and ellipse items @section Overview This forms a base class for rectangle and ellipse canvas items. @section Usage @include defuns-gnome-canvas-re.xml.texi @c %end of fragment guile-gnome-platform-2.16.2/libgnomecanvas/doc/section-gnome-canvas-group.xml.texi0000644000175000017500000000076211670374303030576 0ustar00wingowingo00000000000000 @c %start of fragment @node GnomeCanvasGroup @chapter GnomeCanvasGroup Canvas item group @section Overview A canvas item that groups other canvas items. A canvas group is used for organization, determining drawing stacking order, and for applying transforms on all items in the group. The @code{} widget contains a toplevel "root" group which can be queried with a call to @code{gnome-canvas-root}. @section Usage @include defuns-gnome-canvas-group.xml.texi @c %end of fragment guile-gnome-platform-2.16.2/libgnomecanvas/doc/defuns-gnome-canvas-widget.xml.texi0000644000175000017500000000046011670374303030540 0ustar00wingowingo00000000000000 @c %start of fragment @deftp Class Derives from @code{}. This class defines the following properties: @table @code @item widget @item x @item y @item width @item height @item anchor @item size-pixels @end table @end deftp @c %end of fragment guile-gnome-platform-2.16.2/libgnomecanvas/doc/defuns-gnome-canvas-clipgroup.xml.texi0000644000175000017500000000034611670374303031264 0ustar00wingowingo00000000000000 @c %start of fragment @deftp Class Derives from @code{}. This class defines the following slots: @table @code @item path @item wind @end table @end deftp @c %end of fragment guile-gnome-platform-2.16.2/libgnomecanvas/doc/defuns-gnome-canvas-shape.xml.texi0000644000175000017500000000300611670374303030354 0ustar00wingowingo00000000000000 @c %start of fragment @deftp Class Derives from @code{}. This class defines the following properties: @table @code @item fill-color @item fill-color-gdk @item fill-color-rgba @item outline-color @item outline-color-gdk @item outline-color-rgba @item fill-stipple @item outline-stipple @item width-pixels @item width-units @item cap-style @item join-style @item wind @item miterlimit @item dash @end table @end deftp @deffn Function gnome-canvas-shape-set-path-def (self@tie{}@code{}) (def@tie{}@code{}) @deffnx Method set-path-def This function sets the the GnomeCanvasPathDef used by the GnomeCanvasShape. Notice, that it does not request updates, as it is meant to be used from item implementations, from inside update queue. @table @var @item shape a GnomeCanvasShape @item def a GnomeCanvasPathDef @end table @end deffn @deffn Function gnome-canvas-shape-get-path-def (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{}) @deffnx Method get-path-def This function returns the @code{} that the shape currently uses. It adds a reference to the @code{} and returns it, if there is not a @code{} set for the shape it returns NULL. @table @var @item shape a GnomeCanvasShape @item ret a @code{} or NULL if none is set for the shape. @end table @end deffn @c %end of fragment guile-gnome-platform-2.16.2/libgnomecanvas/doc/section-gnome-canvas-item.xml.texi0000644000175000017500000000611211670374303030373 0ustar00wingowingo00000000000000 @c %start of fragment @node GnomeCanvasItem @chapter GnomeCanvasItem Base class for all canvas items @section Overview This is the base class for all canvas items. Canvas items are the drawing elements of a @code{}. Example items include lines, ellipses, polygons, images, text, curves and even arbitrary GTK+ widgets. Canvas items use the GObject property system to query and set parameters. Properties are inherited so, for example, a @code{} has a "fill-color" property that is inherited from its parent class object @code{}. So be sure to check the parent classes of @code{} objects when looking for item properties. More information on GObject properties can be found in the glib library GObject API reference documentation. To create a new canvas item call @code{gnome-canvas-item-new} which takes a parent @code{}, GType of the item to create, and a NULL terminated list of name/value GObject properties to set for the new item. To change an existing canvas item's properties call @code{gnome-canvas-item-set}, or @code{g-object-set} can also be used. There are several functions to change the drawing stacking order of an item. Call @code{gnome-canvas-item-raise} to raise an item a specified number of positions or @code{gnome-canvas-item-lower} to lower it. To raise an item to the top call @code{gnome-canvas-item-raise-to-top}. The @code{gnome-canvas-item-lower-to-bottom} function will put it at the bottom. To show an item call @code{gnome-canvas-item-show}. Note that canvas item's are shown by default and so do not need to be explicitly shown after creation (contrary to GTK+ widget behavior). Call @code{gnome-canvas-item-hide} to hide an item. To move an item relative to its current position (item coordinates) call @code{gnome-canvas-item-move} or @code{gnome-canvas-item-affine-relative} for more complex transforms. @code{gnome-canvas-item-affine-absolute} can be used to set an item's transform to specific values (not offsets). To convert between world and item coordinate systems call @code{gnome-canvas-item-w2i}, and to convert in the other direction call @code{gnome-canvas-item-i2w}. To get the transform for converting from item to world coordinates use @code{gnome-canvas-item-i2w-affine} or for converting item to canvas coordinates, @code{gnome-canvas-item-i2c-affine}. Handling user input for interactive items is accomplished through a few functions and the "event" signal. To grab the mouse cursor call @code{gnome-canvas-item-grab}, it can be ungrabbed with @code{gnome-canvas-item-ungrab} (see @code{gdk-pointer-grab} of the GTK+ library for details). To grab keyboard focus call @code{gnome-canvas-item-grab-focus}. Received events will be signaled via the "event" signal. Some other useful functions include a reparenting routine, @code{gnome-canvas-item-reparent}, and a function to query the bounding box of an item (a minumum rectangular area containing all parts of the item), @code{gnome-canvas-item-get-bounds}. @section Usage @include defuns-gnome-canvas-item.xml.texi @c %end of fragment guile-gnome-platform-2.16.2/libgnomecanvas/doc/guile-gnome-libgnomecanvas.info0000644000175000017500000020350111752516273030006 0ustar00wingowingo00000000000000This is guile-gnome-libgnomecanvas.info, produced by makeinfo version 4.13 from guile-gnome-libgnomecanvas.texi. This manual is for `(gnome libgnomecanvas)' (version 2.16.2, updated 9 December 2011) Copyright 2001-2007 Federico Mena Quintero, Raph Levien, and others Permission is granted to copy, distribute and/or modify this document under the terms of the GNU General Public License, Version 2 or any later version published by the Free Software Foundation. INFO-DIR-SECTION The Algorithmic Language Scheme START-INFO-DIR-ENTRY * Guile-Libgnomecanvas: (guile-gnome-libgnomecanvas.info). Structured graphics. END-INFO-DIR-ENTRY  File: guile-gnome-libgnomecanvas.info, Node: Top, Next: Overview, Up: (dir) Guile-Libgnomecanvas ******************** This manual is for `(gnome libgnomecanvas)' (version 2.16.2, updated 9 December 2011) Copyright 2001-2007 Federico Mena Quintero, Raph Levien, and others Permission is granted to copy, distribute and/or modify this document under the terms of the GNU General Public License, Version 2 or any later version published by the Free Software Foundation. * Menu: * Overview:: About libgnomecanvas and its Guile bindings. * GnomeCanvasBpath:: Bezier path canvas item * GnomeCanvasClipgroup:: Canvas group that implements clipping * GnomeCanvasEllipse:: Canvas item for drawing ellipses and circles * GnomeCanvasGroup:: Canvas item group * GnomeCanvasItem:: Base class for all canvas items * GnomeCanvasLine:: Line canvas item * gnome-canvas-path-def::Container and functions for manipulating ArtBpaths * GnomeCanvasPixbuf:: Pixbuf image canvas item * GnomeCanvasPolygon:: Polygon canvas item * GnomeCanvasRect:: Rectangle canvas item * GnomeCanvasRE:: Base class for rectangle and ellipse items * GnomeCanvasRichText:: Rich text canvas item * GnomeCanvasShape:: Base class for canvas item shapes * GnomeCanvasText:: Text canvas item * gnome-canvas-util:: Canvas utility functions * GnomeCanvasWidget:: Widget canvas item * GnomeCanvas:: Main canvas widget * Undocumented:: Undocumented functions. * Type Index:: * Function Index::  File: guile-gnome-libgnomecanvas.info, Node: Overview, Next: GnomeCanvasBpath, Prev: Top, Up: Top 1 Overview ********** `(gnome canvas)' wraps the Gnome-Canvas library for Guile. It is a part of Guile-GNOME. Libgnomecanvas is a retained-mode canvas: you tell it what should be on it, and it handles redraw operations for you. It is a bit dated, in that it is backed by a library called "libart" and not Cairo, but no clear successor has emerged yet. The source distribution has a fairly comprehensive example; see `examples/canvas.scm' for more information. See the documentation for `(gnome gobject)' for more information on Guile-GNOME.  File: guile-gnome-libgnomecanvas.info, Node: GnomeCanvasBpath, Next: GnomeCanvasClipgroup, Prev: Overview, Up: Top 2 GnomeCanvasBpath ****************** Bezier path canvas item 2.1 Overview ============ A canvas item type for creating a "path" from curve and line segments. 2.2 Usage ========= -- Class: Derives from `'. This class defines the following slots: `bpath'  File: guile-gnome-libgnomecanvas.info, Node: GnomeCanvasClipgroup, Next: GnomeCanvasEllipse, Prev: GnomeCanvasBpath, Up: Top 3 GnomeCanvasClipgroup ********************** Canvas group that implements clipping 3.1 Overview ============ A canvas group object that clips the view of its children to a shape defined by a `'. 3.2 Usage ========= -- Class: Derives from `'. This class defines the following slots: `path' `wind'  File: guile-gnome-libgnomecanvas.info, Node: GnomeCanvasEllipse, Next: GnomeCanvasGroup, Prev: GnomeCanvasClipgroup, Up: Top 4 GnomeCanvasEllipse ******************** Canvas item for drawing ellipses and circles 4.1 Overview ============ A canvas item for drawing ellipses and circles. The parameters are defined in the parent classes including `' which is shared with `' items as well. 4.2 Usage ========= -- Class: Derives from `'. This class defines no direct slots.  File: guile-gnome-libgnomecanvas.info, Node: GnomeCanvasGroup, Next: GnomeCanvasItem, Prev: GnomeCanvasEllipse, Up: Top 5 GnomeCanvasGroup ****************** Canvas item group 5.1 Overview ============ A canvas item that groups other canvas items. A canvas group is used for organization, determining drawing stacking order, and for applying transforms on all items in the group. The `' widget contains a toplevel "root" group which can be queried with a call to `gnome-canvas-root'. 5.2 Usage ========= -- Class: Derives from `'. This class defines the following slots: `x' X `y' Y  File: guile-gnome-libgnomecanvas.info, Node: GnomeCanvasItem, Next: GnomeCanvasLine, Prev: GnomeCanvasGroup, Up: Top 6 GnomeCanvasItem ***************** Base class for all canvas items 6.1 Overview ============ This is the base class for all canvas items. Canvas items are the drawing elements of a `'. Example items include lines, ellipses, polygons, images, text, curves and even arbitrary GTK+ widgets. Canvas items use the GObject property system to query and set parameters. Properties are inherited so, for example, a `' has a "fill-color" property that is inherited from its parent class object `'. So be sure to check the parent classes of `' objects when looking for item properties. More information on GObject properties can be found in the glib library GObject API reference documentation. To create a new canvas item call `gnome-canvas-item-new' which takes a parent `', GType of the item to create, and a NULL terminated list of name/value GObject properties to set for the new item. To change an existing canvas item's properties call `gnome-canvas-item-set', or `g-object-set' can also be used. There are several functions to change the drawing stacking order of an item. Call `gnome-canvas-item-raise' to raise an item a specified number of positions or `gnome-canvas-item-lower' to lower it. To raise an item to the top call `gnome-canvas-item-raise-to-top'. The `gnome-canvas-item-lower-to-bottom' function will put it at the bottom. To show an item call `gnome-canvas-item-show'. Note that canvas item's are shown by default and so do not need to be explicitly shown after creation (contrary to GTK+ widget behavior). Call `gnome-canvas-item-hide' to hide an item. To move an item relative to its current position (item coordinates) call `gnome-canvas-item-move' or `gnome-canvas-item-affine-relative' for more complex transforms. `gnome-canvas-item-affine-absolute' can be used to set an item's transform to specific values (not offsets). To convert between world and item coordinate systems call `gnome-canvas-item-w2i', and to convert in the other direction call `gnome-canvas-item-i2w'. To get the transform for converting from item to world coordinates use `gnome-canvas-item-i2w-affine' or for converting item to canvas coordinates, `gnome-canvas-item-i2c-affine'. Handling user input for interactive items is accomplished through a few functions and the "event" signal. To grab the mouse cursor call `gnome-canvas-item-grab', it can be ungrabbed with `gnome-canvas-item-ungrab' (see `gdk-pointer-grab' of the GTK+ library for details). To grab keyboard focus call `gnome-canvas-item-grab-focus'. Received events will be signaled via the "event" signal. Some other useful functions include a reparenting routine, `gnome-canvas-item-reparent', and a function to query the bounding box of an item (a minumum rectangular area containing all parts of the item), `gnome-canvas-item-get-bounds'. 6.2 Usage ========= -- Class: Derives from `'. This class defines the following properties: `parent' -- Signal on : event (arg0 `') => `' Signals mouse button clicks, motion, enter/leave, and key press events on canvas items. Use this signal to create user interactive items. The "x") and converted to canvas world coordinates. -- Function: gnome-canvas-item-move (self `') (dx `double') (dy `double') -- Method: move Moves a canvas item by creating an affine transformation matrix for translation by using the specified values. This happens in item local coordinate system, so if you have nontrivial transform, it most probably does not do, what you want. ITEM A canvas item. DX Horizontal offset. DY Vertical offset. -- Function: gnome-canvas-item-affine-relative (self `') (x1 `double') (y2 `double') (x2 `double') (y2 `double') (x3 `double') (y3 `double') -- Method: affine-relative Combines the specified affine transformation matrix with the item's current transformation. NULL affine is not allowed. ITEM A canvas item. AFFINE An affine transformation matrix. -- Function: gnome-canvas-item-affine-absolute (self `') (x1 `double') (y2 `double') (x2 `double') (y2 `double') (x3 `double') (y3 `double') -- Method: affine-absolute Makes the item's affine transformation matrix be equal to the specified matrix. NULL affine is treated as identity. ITEM A canvas item. AFFINE An affine transformation matrix. -- Function: gnome-canvas-item-raise (self `') (positions `int') -- Method: raise Raises the item in its parent's stack by the specified number of positions. If the number of positions is greater than the distance to the top of the stack, then the item is put at the top. ITEM A canvas item. POSITIONS Number of steps to raise the item. -- Function: gnome-canvas-item-lower (self `') (positions `int') -- Method: lower Lowers the item in its parent's stack by the specified number of positions. If the number of positions is greater than the distance to the bottom of the stack, then the item is put at the bottom. ITEM A canvas item. POSITIONS Number of steps to lower the item. -- Function: gnome-canvas-item-raise-to-top (self `') -- Method: raise-to-top Raises an item to the top of its parent's stack. ITEM A canvas item. -- Function: gnome-canvas-item-lower-to-bottom (self `') -- Method: lower-to-bottom Lowers an item to the bottom of its parent's stack. ITEM A canvas item. -- Function: gnome-canvas-item-show (self `') -- Method: show Shows a canvas item. If the item was already shown, then no action is taken. ITEM A canvas item. -- Function: gnome-canvas-item-hide (self `') -- Method: hide Hides a canvas item. If the item was already hidden, then no action is taken. ITEM A canvas item. -- Function: gnome-canvas-item-grab (self `') (event_mask `unsigned-int') (cursor `') (etime `unsigned-int32') => (ret `int') -- Method: grab Specifies that all events that match the specified event mask should be sent to the specified item, and also grabs the mouse by calling `gdk-pointer-grab'. The event mask is also used when grabbing the pointer. If CURSOR is not NULL, then that cursor is used while the grab is active. The ETIME parameter is the timestamp required for grabbing the mouse. Return value: If an item was already grabbed, it returns `GDK_GRAB_ALREADY_GRABBED'. If the specified item was hidden by calling `gnome-canvas-item-hide', then it ITEM A canvas item. EVENT-MASK Mask of events that will be sent to this item. CURSOR If non-NULL, the cursor that will be used while the grab is active. ETIME The timestamp required for grabbing the mouse, or GDK_CURRENT_TIME. RET `GDK_GRAB_NOT_VIEWABLE'. Else, it returns the result of calling `gdk-pointer-grab'. -- Function: gnome-canvas-item-ungrab (self `') (etime `unsigned-int32') -- Method: ungrab Ungrabs the item, which must have been grabbed in the canvas, and ungrabs the mouse. ITEM A canvas item that holds a grab. ETIME The timestamp for ungrabbing the mouse. -- Function: gnome-canvas-item-w2i (self `') => (x `double') (y `double') -- Method: w2i Converts a coordinate pair from world coordinates to item-relative coordinates. ITEM A canvas item. X X coordinate to convert (input/output value). Y Y coordinate to convert (input/output value). -- Function: gnome-canvas-item-i2w (self `') => (x `double') (y `double') -- Method: i2w Converts a coordinate pair from item-relative coordinates to world coordinates. ITEM A canvas item. X X coordinate to convert (input/output value). Y Y coordinate to convert (input/output value). -- Function: gnome-canvas-item-reparent (self `') (new_group `') -- Method: reparent Changes the parent of the specified item to be the new group. The item keeps its group-relative coordinates as for its old parent, so the item may change its absolute position within the canvas. ITEM A canvas item. NEW-GROUP A canvas group. -- Function: gnome-canvas-item-grab-focus (self `') -- Method: grab-focus Makes the specified item take the keyboard focus, so all keyboard events will be sent to it. If the canvas widget itself did not have the focus, it grabs it as well. ITEM A canvas item. -- Function: gnome-canvas-item-get-bounds (self `') => (x1 `double') (y1 `double') (x2 `double') (y2 `double') -- Method: get-bounds Queries the bounding box of a canvas item. The bounds are returned in the coordinate system of the item's parent. ITEM A canvas item. X1 Leftmost edge of the bounding box (return value). Y1 Upper edge of the bounding box (return value). X2 Rightmost edge of the bounding box (return value). Y2 Lower edge of the bounding box (return value). -- Function: gnome-canvas-item-request-update (self `') -- Method: request-update To be used only by item implementations. Requests that the canvas queue an update for the specified item. ITEM A canvas item.  File: guile-gnome-libgnomecanvas.info, Node: GnomeCanvasLine, Next: gnome-canvas-path-def, Prev: GnomeCanvasItem, Up: Top 7 GnomeCanvasLine ***************** Line canvas item 7.1 Overview ============ A canvas item for drawing lines. This canvas item uses a `' structure so one or multiple joined lined segments can be drawn with a single `' item. 7.2 Usage ========= -- Class: Derives from `'. This class defines the following properties: `points' `fill-color' `fill-color-gdk' `fill-color-rgba' `fill-stipple' `width-pixels' `width-units' `cap-style' `join-style' `line-style' `first-arrowhead' `last-arrowhead' `smooth' `spline-steps' `arrow-shape-a' `arrow-shape-b' `arrow-shape-c'  File: guile-gnome-libgnomecanvas.info, Node: gnome-canvas-path-def, Next: GnomeCanvasPixbuf, Prev: GnomeCanvasLine, Up: Top 8 gnome-canvas-path-def *********************** Container and functions for manipulating ArtBpaths 8.1 Overview ============ Convenient container and functions for manipulating ArtBpaths, which are paths defined by line and curve segments. 8.2 Usage ========= -- Class: Derives from `'. -- Function: gnome-canvas-path-def-new => (ret `') This function creates a new empty `'. RET the new canvas path definition. -- Function: gnome-canvas-path-def-new-sized (length `int') => (ret `') This function creates a new `' with LENGTH number of points allocated. It is useful, if you know the exact number of points in path, so you can avoid automatic point array reallocation. LENGTH number of points to allocate for the path RET the new canvas path definition -- Function: gnome-canvas-path-def-finish (self `') Trims dynamic point array to exact length of path. PATH a GnomeCanvasPathDef -- Function: gnome-canvas-path-def-ensure-space (self `') (space `int') This function ensures that enough space for SPACE points is allocated at the end of the path. PATH a GnomeCanvasPathDef SPACE number of points to guarantee are allocated at the end of the path. -- Function: gnome-canvas-path-def-duplicate (self `') => (ret `') This function duplicates the passed PATH. The new path is marked as non-static regardless of the state of original. PATH a GnomeCanvasPathDef to duplicate RET a GnomeCanvasPathDef which is a duplicate of PATH. -- Function: gnome-canvas-path-def-concat (list `gslist-of') => (ret `') This function concatenates a list of GnomeCanvasPathDefs into one newly created GnomeCanvasPathDef. LIST a GSList of GnomeCanvasPathDefs to concatenate into one new path. RET a new GnomeCanvasPathDef -- Function: gnome-canvas-path-def-split (self `') => (ret `gslist-of') This function splits the passed PATH into a list of GnomeCanvasPathDefs which represent each segment of the origional path. The path is split when ever an ART_MOVETO or ART_MOVETO_OPEN is encountered. The closedness of resulting paths is set accordingly to closedness of corresponding segment. PATH a GnomeCanvasPathDef RET a list of GnomeCanvasPathDef(s). -- Function: gnome-canvas-path-def-open-parts (self `') => (ret `') This function creates a new GnomeCanvasPathDef that contains all of the open segments on the passed PATH. PATH a GnomeCanvasPathDef RET a new GnomeCanvasPathDef that contains all of the open segemtns in PATH. -- Function: gnome-canvas-path-def-closed-parts (self `') => (ret `') This function returns a new GnomeCanvasPathDef that contains the all of close parts of passed PATH. PATH a GnomeCanvasPathDef RET a new GnomeCanvasPathDef that contains all of the closed parts of passed PATH. -- Function: gnome-canvas-path-def-close-all (self `') => (ret `') This function closes all of the open segments in the passed path and returns a new GnomeCanvasPathDef. PATH a GnomeCanvasPathDef RET a GnomeCanvasPathDef that contains the contents of PATH but has modified the path is fully closed -- Function: gnome-canvas-path-def-reset (self `') This function clears the contents of the passed PATH. PATH a GnomeCanvasPathDef -- Function: gnome-canvas-path-def-moveto (self `') (x `double') (y `double') This function adds starts new subpath on PATH, and sets its starting point to X and Y. If current subpath is empty, it simply changes its starting coordinates to new values. PATH a GnomeCanvasPathDef X x coordinate Y y coordinate -- Function: gnome-canvas-path-def-lineto (self `') (x `double') (y `double') This function add a line segment to the passed PATH with the specified X and Y coordinates. PATH a GnomeCanvasPathDef X x coordinate Y y coordinate -- Function: gnome-canvas-path-def-lineto-moving (self `') (x `double') (y `double') This functions adds a new line segment with loose endpoint to the path, or if endpoint is already loose, changes its coordinates to X, Y. You can change the coordinates of loose endpoint as many times as you want, the last ones set will be fixed, if you continue line. This is useful for handling drawing with mouse. PATH a GnomeCanvasPathDef X x coordinate Y y coordinate -- Function: gnome-canvas-path-def-curveto (self `') (x0 `double') (y0 `double') (x1 `double') (y1 `double') (x2 `double') (y2 `double') This function adds a bezier curve segment to the path definition. PATH a GnomeCanvasPathDef X0 first control point x coordinate Y0 first control point y coordinate X1 second control point x coordinate Y1 second control point y coordinate X2 end of curve x coordinate Y2 end of curve y coordinate -- Function: gnome-canvas-path-def-closepath (self `') This function closes the last subpath of PATH, adding a ART_LINETO to subpath starting point, if needed and changing starting pathcode to ART_MOVETO PATH a GnomeCanvasPathDef -- Function: gnome-canvas-path-def-length (self `') => (ret `int') This function returns the length of the path definition. Not Euclidian length of the path but rather the number of points on the path. PATH a GnomeCanvasPathDef RET integer, number of points on the path. -- Function: gnome-canvas-path-def-is-empty (self `') => (ret `bool') This function is a boolean test to see if the path is empty, meaning containing no line segments. PATH a GnomeCanvasPathDef RET boolean, indicating if the path is empty. -- Function: gnome-canvas-path-def-any-open (self `') => (ret `bool') This function returns a boolean value indicating if the path has any open segments. PATH a GnomeCanvasPathDef RET boolean, indicating if the path has any open segments. -- Function: gnome-canvas-path-def-all-open (self `') => (ret `bool') This function returns a boolean value indicating if the path only contains open segments. PATH a GnomeCanvasPathDef RET boolean, indicating if the path has all open segments. -- Function: gnome-canvas-path-def-any-closed (self `') => (ret `bool') This function returns a boolean valid indicating if the path has any closed segements. PATH a GnomeCanvasPathDef RET boolean, indicating if the path has any closed segments. -- Function: gnome-canvas-path-def-all-closed (self `') => (ret `bool') This function returns a boolean value indicating if the path only contains closed segments. PATH a GnomeCanvasPathDef RET boolean, indicating if the path has all closed segments.  File: guile-gnome-libgnomecanvas.info, Node: GnomeCanvasPixbuf, Next: GnomeCanvasPolygon, Prev: gnome-canvas-path-def, Up: Top 9 GnomeCanvasPixbuf ******************* Pixbuf image canvas item 9.1 Overview ============ A canvas item for drawing pixbuf images. 9.2 Usage ========= -- Class: Derives from `'. This class defines the following properties: `pixbuf' `width' `width-set' `width-in-pixels' `height' `height-set' `height-in-pixels' `x' `x-in-pixels' `y' `y-in-pixels' `anchor'  File: guile-gnome-libgnomecanvas.info, Node: GnomeCanvasPolygon, Next: GnomeCanvasRect, Prev: GnomeCanvasPixbuf, Up: Top 10 GnomeCanvasPolygon ********************* Polygon canvas item 10.1 Overview ============= A canvas item for drawing polygon (multi sided) shapes. 10.2 Usage ========== -- Class: Derives from `'. This class defines the following properties: `points'  File: guile-gnome-libgnomecanvas.info, Node: GnomeCanvasRect, Next: GnomeCanvasRE, Prev: GnomeCanvasPolygon, Up: Top 11 GnomeCanvasRect ****************** Rectangle canvas item 11.1 Overview ============= A canvas item for drawing rectangles and squares. The parameters are defined in the parent classes including `' which is shared with `' items as well. 11.2 Usage ========== -- Class: Derives from `'. This class defines no properties, other than those defined by its superclasses.  File: guile-gnome-libgnomecanvas.info, Node: GnomeCanvasRE, Next: GnomeCanvasRichText, Prev: GnomeCanvasRect, Up: Top 12 GnomeCanvasRE **************** Base class for rectangle and ellipse items 12.1 Overview ============= This forms a base class for rectangle and ellipse canvas items. 12.2 Usage ========== -- Class: Derives from `'. This class defines the following properties: `x1' `y1' `x2' `y2'  File: guile-gnome-libgnomecanvas.info, Node: GnomeCanvasRichText, Next: GnomeCanvasShape, Prev: GnomeCanvasRE, Up: Top 13 GnomeCanvasRichText ********************** Rich text canvas item 13.1 Overview ============= A canvas item that displays a GtkTextBuffer which is a flexible text display and editing widget. Consult GtkTextBuffer info in the GTK+ Reference documentation for more details. 13.2 Usage ========== -- Class: Derives from `'. This class defines the following properties: `text' Text to display `x' X position `y' Y position `width' Width for text box `height' Height for text box `editable' Is this rich text item editable? `visible' Is this rich text item visible? `cursor-visible' Is the cursor visible in this rich text item? `cursor-blink' Does the cursor blink in this rich text item? `grow-height' Should the text box height grow if the text does not fit? `wrap-mode' Wrap mode for multiline text `justification' Justification mode `direction' Text direction `anchor' Anchor point for text `pixels-above-lines' Number of pixels to put above lines `pixels-below-lines' Number of pixels to put below lines `pixels-inside-wrap' Number of pixels to put inside the wrap `left-margin' Number of pixels in the left margin `right-margin' Number of pixels in the right margin `indent' Number of pixels for indentation -- Signal on : tag-changed (arg0 `') -- Function: gnome-canvas-rich-text-set-buffer (self `') (buffer `') -- Method: set-buffer Sets the buffer field of the TEXT to BUFFER. TEXT a `'. BUFFER a `'. -- Function: gnome-canvas-rich-text-get-buffer (self `') => (ret `') -- Method: get-buffer Returns a `' associated with the `'. This function creates a new `' if the text buffer is NULL. TEXT a `'. RET the `'.  File: guile-gnome-libgnomecanvas.info, Node: GnomeCanvasShape, Next: GnomeCanvasText, Prev: GnomeCanvasRichText, Up: Top 14 GnomeCanvasShape ******************* Base class for canvas item shapes 14.1 Overview ============= Provides a base class for canvas item shapes, including: `', `', `', and `'. 14.2 Usage ========== -- Class: Derives from `'. This class defines the following properties: `fill-color' `fill-color-gdk' `fill-color-rgba' `outline-color' `outline-color-gdk' `outline-color-rgba' `fill-stipple' `outline-stipple' `width-pixels' `width-units' `cap-style' `join-style' `wind' `miterlimit' `dash' -- Function: gnome-canvas-shape-set-path-def (self `') (def `') -- Method: set-path-def This function sets the the GnomeCanvasPathDef used by the GnomeCanvasShape. Notice, that it does not request updates, as it is meant to be used from item implementations, from inside update queue. SHAPE a GnomeCanvasShape DEF a GnomeCanvasPathDef -- Function: gnome-canvas-shape-get-path-def (self `') => (ret `') -- Method: get-path-def This function returns the `' that the shape currently uses. It adds a reference to the `' and returns it, if there is not a `' set for the shape it returns NULL. SHAPE a GnomeCanvasShape RET a `' or NULL if none is set for the shape.  File: guile-gnome-libgnomecanvas.info, Node: GnomeCanvasText, Next: gnome-canvas-util, Prev: GnomeCanvasShape, Up: Top 15 GnomeCanvasText ****************** Text canvas item 15.1 Overview ============= A canvas item for displaying text. See `' for a more advanced text display and editing canvas item. NB: The `' item doesn't scale with the zoom property of the `'. A zoomable implementation could derive from `' and check the zoom property for manual adjustments to the font size. 15.2 Usage ========== -- Class: Derives from `'. This class defines the following properties: `text' Text to render `markup' Marked up text to render `x' `y' `font' Font description as a string `font-desc' Font description as a PangoFontDescription struct `family' Name of the font family, e.g. Sans, Helvetica, Times, Monospace `family-set' Whether this tag affects the font family `attributes' `style' Font style `style-set' Whether this tag affects the font style `variant' Font variant `variant-set' Whether this tag affects the font variant `weight' Font weight `weight-set' Whether this tag affects the font weight `stretch' Font stretch `stretch-set' Whether this tag affects the font stretch `size' Font size (as a multiple of PANGO_SCALE, eg. 12*PANGO_SCALE for a 12pt font size) `size-set' Whether this tag affects the font size `size-points' Font size in points (eg. 12 for a 12pt font size) `strikethrough' Whether to strike through the text `strikethrough-set' Whether this tag affects strikethrough `underline' Style of underline for this text `underline-set' Whether this tag affects underlining `rise' Offset of text above the baseline (below the baseline if rise is negative) `rise-set' Whether this tag affects the rise `scale' Size of font, relative to default size `scale-set' Whether this tag affects font scaling `anchor' `justification' `clip-width' `clip-height' `clip' `x-offset' `y-offset' `fill-color' Text color, as string `fill-color-gdk' Text color, as a GdkColor `fill-color-rgba' Text color, as an R/G/B/A combined integer `fill-stipple' `text-width' Width of the rendered text `text-height' Height of the rendered text  File: guile-gnome-libgnomecanvas.info, Node: gnome-canvas-util, Next: GnomeCanvasWidget, Prev: GnomeCanvasText, Up: Top 16 gnome-canvas-util ******************** Canvas utility functions 16.1 Overview ============= Some useful canvas utility functions. The `' structure manages an array of points (X and Y coordinates) and is used by `' and `' canvas items. To create a `' structure call `gnome-canvas-points-new' and when finished using it call `gnome-canvas-points-free'. Of note is that the `' structure is actually managed by a reference count, so it won't be freed until this count reaches 0. To increment its reference count call `gnome-canvas-points-ref' and to decrement it call `gnome-canvas-points-unref'. 16.2 Usage ========== -- Class: Derives from `'. -- Function: gnome-canvas-get-miter-points (x1 `double') (y1 `double') (x2 `double') (y2 `double') (x3 `double') (y3 `double') (width `double') => (ret `int') (mx1 `double') (my1 `double') (mx2 `double') (my2 `double') Given three points forming an angle, computes the coordinates of the inside and outside points of the mitered corner formed by a line of a given width at that angle. X1 X coordinate of the first point Y1 Y coordinate of the first point X2 X coordinate of the second (angle) point Y2 Y coordinate of the second (angle) point X3 X coordinate of the third point Y3 Y coordinate of the third point WIDTH Width of the line MX1 The X coordinate of the first miter point is returned here. MY1 The Y coordinate of the first miter point is returned here. MX2 The X coordinate of the second miter point is returned here. MY2 The Y coordinate of the second miter point is returned here. RET FALSE if the angle is less than 11 degrees (this is the same threshold as X uses. If this occurs, the return points are not modified. Otherwise, returns TRUE. -- Function: gnome-canvas-get-butt-points (x1 `double') (y1 `double') (x2 `double') (y2 `double') (width `double') (project `int') => (bx1 `double') (by1 `double') (bx2 `double') (by2 `double') Computes the butt points of a line segment. X1 X coordinate of first point in the line Y1 Y cooordinate of first point in the line X2 X coordinate of second point (endpoint) of the line Y2 Y coordinate of second point (endpoint) of the line WIDTH Width of the line PROJECT Whether the butt points should project out by width/2 distance BX1 X coordinate of first butt point is returned here BY1 Y coordinate of first butt point is returned here BX2 X coordinate of second butt point is returned here BY2 Y coordinate of second butt point is returned here -- Function: gnome-canvas-polygon-to-point (num_points `int') (x `double') (y `double') => (ret `double') (poly `double') Computes the distance between a point and a polygon. POLY Vertices of the polygon. X coordinates are in the even indices, and Y coordinates are in the odd indices NUM-POINTS Number of points in the polygon X X coordinate of the point Y Y coordinate of the point RET The distance from the point to the polygon, or zero if the point is inside the polygon. -- Function: gnome-canvas-item-reset-bounds (self `') -- Method: reset-bounds Resets the bounding box of a canvas item to an empty rectangle. ITEM A canvas item -- Function: gnome-canvas-update-bbox (item `') (x1 `int') (y1 `int') (x2 `int') (y2 `int') Sets the bbox to the new value, requesting full repaint. ITEM the canvas item needing update X1 Left coordinate of the new bounding box Y1 Top coordinate of the new bounding box X2 Right coordinate of the new bounding box Y2 Bottom coordinate of the new bounding box  File: guile-gnome-libgnomecanvas.info, Node: GnomeCanvasWidget, Next: GnomeCanvas, Prev: gnome-canvas-util, Up: Top 17 GnomeCanvasWidget ******************** Widget canvas item 17.1 Overview ============= A canvas item for placing arbitrary GtkWidget objects onto a canvas. 17.2 Usage ========== -- Class: Derives from `'. This class defines the following properties: `widget' `x' `y' `width' `height' `anchor' `size-pixels'  File: guile-gnome-libgnomecanvas.info, Node: GnomeCanvas, Next: Undocumented, Prev: GnomeCanvasWidget, Up: Top 18 GnomeCanvas ************** Main canvas widget 18.1 Overview ============= The `' is an engine for structured graphics that offers a rich imaging model, high performance rendering, and a powerful, high level API. It offers a choice of two rendering back-ends, one based on Xlib for extremely fast display, and another based on Libart, a sophisticated, antialiased, alpha-compositing engine. This widget can be used for flexible display of graphics and for creating interactive user interface elements. To create a new `' widget call `gnome-canvas-new' or `gnome-canvas-new-aa' for an anti-aliased mode canvas. A `' widget contains one or more `' objects. Items consist of graphing elements like lines, ellipses, polygons, images, text, and curves. These items are organized using `' objects, which are themselves derived from `'. Since a group is an item it can be contained within other groups, forming a tree of canvas items. Certain operations, like translating and scaling, can be performed on all items in a group. There is a special root group created by a `'. This is the top level group under which all items in a canvas are contained. To get the root group from a canvas call `gnome-canvas-root'. To clear a canvas you can simply walk through the item_list member of the `' and call `gtk-object-destroy' on each one. There are several different coordinate systems used by `' widgets. The primary system is a logical, abstract coordinate space called world coordinates. World coordinates are expressed as unbounded double floating point numbers. When it comes to rendering to a screen the canvas pixel coordinate system (also referred to as just canvas coordinates) is used. This system uses integers to specify screen pixel positions. A user defined scaling factor and offset are used to convert between world coordinates and canvas coordinates. Each item in a canvas has its own coordinate system called item coordinates. This system is specified in world coordinates but they are relative to an item (0.0, 0.0 would be the top left corner of the item). The final coordinate system of interest is window coordinates. These are like canvas coordinates but are offsets from within a window a canvas is displayed in. This last system is rarely used, but is useful when manually handling GDK events (such as drag and drop) which are specified in window coordinates (the events processed by the canvas are already converted for you). Along with different coordinate systems comes functions to convert between them. `gnome-canvas-w2c' converts world to canvas pixel coordinates and `gnome-canvas-c2w' converts from canvas to world. `gnome-canvas-w2c-d' is like `gnome-canvas-w2c' but returns the pixel coordinates as doubles which is useful to avoid precision loss from integer rounding. To get the affine transform matrix for converting from world coordinates to canvas coordinates call `gnome-canvas-w2c-affine'. `gnome-canvas-window-to-world' converts from window to world coordinates and `gnome-canvas-world-to-window' converts in the other direction. There are no functions for converting between canvas and window coordinates, since this is just a matter of subtracting the canvas scrolling offset. To convert to/from item coordinates use the functions defined for `' objects. To set the canvas zoom factor (canvas pixels per world unit, the scaling factor) call `gnome-canvas-set-pixels-per-unit', setting this to 1.0 will cause the two coordinate systems to correspond (e.g., [5, 6] in pixel units would be [5.0, 6.0] in world units). Defining the scrollable area of a canvas widget is done by calling `gnome-canvas-set-scroll-region' and to get the current region `gnome-canvas-get-scroll-region' can be used. If the window is larger than the canvas scrolling region it can optionally be centered in the window. Use `gnome-canvas-set-center-scroll-region' to enable or disable this behavior. To scroll to a particular canvas pixel coordinate use `gnome-canvas-scroll-to' (typically not used since scrollbars are usually set up to handle the scrolling), and to get the current canvas pixel scroll offset call `gnome-canvas-get-scroll-offsets'. 18.2 Usage ========== -- Class: Derives from `'. This class defines the following properties: `aa' The antialiasing mode of the canvas. `focused-item' -- Signal on : draw-background (arg0 `') (arg1 `') (arg2 `') (arg3 `') (arg4 `') This signal is emitted to draw the background for non-antialiased mode canvas widgets. The default method uses the canvas widget's style to draw the background. -- Signal on : render-background (arg0 `') This signal is emitted for antialiased mode canvas widgets to render the background. The buf data structure contains both a pointer to a packed 24-bit RGB array and the coordinates. -- Function: gnome-canvas-new => (ret `') Creates a new empty canvas in non-antialiased mode. RET A newly-created canvas. -- Function: gnome-canvas-new-aa => (ret `') Creates a new empty canvas in antialiased mode. RET A newly-created antialiased canvas. -- Function: gnome-canvas-root (self `') => (ret `') -- Method: root Queries the root group of a canvas. CANVAS A canvas. RET The root group of the specified canvas. -- Function: gnome-canvas-set-scroll-region (self `') (x1 `double') (y1 `double') (x2 `double') (y2 `double') -- Method: set-scroll-region Sets the scrolling region of a canvas to the specified rectangle. The canvas will then be able to scroll only within this region. The view of the canvas is adjusted as appropriate to display as much of the new region as possible. CANVAS A canvas. X1 Leftmost limit of the scrolling region. Y1 Upper limit of the scrolling region. X2 Rightmost limit of the scrolling region. Y2 Lower limit of the scrolling region. -- Function: gnome-canvas-get-scroll-region (self `') => (x1 `double') (y1 `double') (x2 `double') (y2 `double') -- Method: get-scroll-region Queries the scrolling region of a canvas. CANVAS A canvas. X1 Leftmost limit of the scrolling region (return value). Y1 Upper limit of the scrolling region (return value). X2 Rightmost limit of the scrolling region (return value). Y2 Lower limit of the scrolling region (return value). -- Function: gnome-canvas-set-pixels-per-unit (self `') (n `double') -- Method: set-pixels-per-unit Sets the zooming factor of a canvas by specifying the number of pixels that correspond to one canvas unit. The anchor point for zooming, i.e. the point that stays fixed and all others zoom inwards or outwards from it, depends on whether the canvas is set to center the scrolling region or not. You can control this using the `gnome-canvas-set-center-scroll-region' function. If the canvas is set to center the scroll region, then the center of the canvas window is used as the anchor point for zooming. Otherwise, the upper-left corner of the canvas window is used as the anchor point. CANVAS A canvas. N The number of pixels that correspond to one canvas unit. -- Function: gnome-canvas-scroll-to (self `') (cx `int') (cy `int') -- Method: scroll-to Makes a canvas scroll to the specified offsets, given in canvas pixel units. The canvas will adjust the view so that it is not outside the scrolling region. This function is typically not used, as it is better to hook scrollbars to the canvas layout's scrolling adjusments. CANVAS A canvas. CX Horizontal scrolling offset in canvas pixel units. CY Vertical scrolling offset in canvas pixel units. -- Function: gnome-canvas-get-scroll-offsets (self `') => (cx `int') (cy `int') -- Method: get-scroll-offsets Queries the scrolling offsets of a canvas. The values are returned in canvas pixel units. CANVAS A canvas. CX Horizontal scrolling offset (return value). CY Vertical scrolling offset (return value). -- Function: gnome-canvas-update-now (self `') -- Method: update-now Forces an immediate update and redraw of a canvas. If the canvas does not have any pending update or redraw requests, then no action is taken. This is typically only used by applications that need explicit control of when the display is updated, like games. It is not needed by normal applications. CANVAS A canvas. -- Function: gnome-canvas-get-item-at (self `') (x `double') (y `double') => (ret `') -- Method: get-item-at Looks for the item that is under the specified position, which must be specified in world coordinates. CANVAS A canvas. X X position in world coordinates. Y Y position in world coordinates. RET The sought item, or NULL if no item is at the specified coordinates. -- Function: gnome-canvas-request-redraw (self `') (x1 `int') (y1 `int') (x2 `int') (y2 `int') -- Method: request-redraw Convenience function that informs a canvas that the specified rectangle needs to be repainted. This function converts the rectangle to a microtile array and feeds it to `gnome-canvas-request-redraw-uta'. The rectangle includes X1 and Y1, but not X2 and Y2. To be used only by item implementations. CANVAS A canvas. X1 Leftmost coordinate of the rectangle to be redrawn. Y1 Upper coordinate of the rectangle to be redrawn. X2 Rightmost coordinate of the rectangle to be redrawn, plus 1. Y2 Lower coordinate of the rectangle to be redrawn, plus 1. -- Function: gnome-canvas-w2c (self `') (wx `double') (wy `double') => (cx `int') (cy `int') -- Method: w2c Converts world coordinates into canvas pixel coordinates. CANVAS A canvas. WX World X coordinate. WY World Y coordinate. CX X pixel coordinate (return value). CY Y pixel coordinate (return value). -- Function: gnome-canvas-w2c-d (self `') (wx `double') (wy `double') => (cx `double') (cy `double') -- Method: w2c-d Converts world coordinates into canvas pixel coordinates. This version returns coordinates in floating point coordinates, for greater precision. CANVAS A canvas. WX World X coordinate. WY World Y coordinate. CX X pixel coordinate (return value). CY Y pixel coordinate (return value). -- Function: gnome-canvas-c2w (self `') (cx `int') (cy `int') => (wx `double') (wy `double') -- Method: c2w Converts canvas pixel coordinates to world coordinates. CANVAS A canvas. CX Canvas pixel X coordinate. CY Canvas pixel Y coordinate. WX X world coordinate (return value). WY Y world coordinate (return value). -- Function: gnome-canvas-window-to-world (self `') (winx `double') (winy `double') => (worldx `double') (worldy `double') -- Method: window-to-world Converts window-relative coordinates into world coordinates. You can use this when you need to convert mouse coordinates into world coordinates, for example. CANVAS A canvas. WINX Window-relative X coordinate. WINY Window-relative Y coordinate. WORLDX X world coordinate (return value). WORLDY Y world coordinate (return value). -- Function: gnome-canvas-world-to-window (self `') (worldx `double') (worldy `double') => (winx `double') (winy `double') -- Method: world-to-window Converts world coordinates into window-relative coordinates. CANVAS A canvas. WORLDX World X coordinate. WORLDY World Y coordinate. WINX X window-relative coordinate. WINY Y window-relative coordinate. -- Function: gnome-canvas-get-color (self `') (spec `mchars') (color `') => (ret `int') -- Method: get-color Allocates a color based on the specified X color specification. As a convenience to item implementations, it returns TRUE if the color was allocated, or FALSE if the specification was NULL. A NULL color specification is considered as "transparent" by the canvas. CANVAS A canvas. SPEC X color specification, or NULL for "transparent". COLOR Returns the allocated color. RET TRUE if SPEC is non-NULL and the color is allocated. If SPEC is NULL, then returns FALSE. -- Function: gnome-canvas-get-color-pixel (self `') (rgba `unsigned-int') => (ret `unsigned-long') -- Method: get-color-pixel Allocates a color from the RGBA value passed into this function. The alpha opacity value is discarded, since normal X colors do not support it. CANVAS A canvas. RGBA RGBA color specification. RET Allocated pixel value corresponding to the specified color. -- Function: gnome-canvas-set-stipple-origin (self `') (gc `') -- Method: set-stipple-origin Sets the stipple origin of the specified GC as is appropriate for the canvas, so that it will be aligned with other stipple patterns used by canvas items. This is typically only needed by item implementations. CANVAS A canvas. GC GC on which to set the stipple origin. -- Function: gnome-canvas-set-dither (self `') (dither `') -- Method: set-dither Controls dithered rendering for antialiased canvases. The value of dither should be `', `', or `'. The default canvas setting is `'. CANVAS A canvas. DITHER Type of dithering used to render an antialiased canvas. -- Function: gnome-canvas-get-dither (self `') => (ret `') -- Method: get-dither Returns the type of dithering used to render an antialiased canvas. CANVAS A canvas. RET The dither setting.  File: guile-gnome-libgnomecanvas.info, Node: Undocumented, Next: Type Index, Prev: GnomeCanvas, Up: Top 19 Undocumented *************** The following symbols, if any, have not been properly documented. 19.1 (gnome gw canvas) ====================== -- Variable: gnome-canvas-get-center-scroll-region -- Variable: gnome-canvas-path-def-closepath-current -- Variable: gnome-canvas-path-def-has-currentpoint -- Variable: gnome-canvas-rich-text-copy-clipboard -- Variable: gnome-canvas-rich-text-cut-clipboard -- Variable: gnome-canvas-rich-text-get-iter-at-location -- Variable: gnome-canvas-rich-text-get-iter-location -- Variable: gnome-canvas-rich-text-paste-clipboard -- Variable: gnome-canvas-set-center-scroll-region  File: guile-gnome-libgnomecanvas.info, Node: Type Index, Next: Function Index, Prev: Undocumented, Up: Top Type Index ********** [index] * Menu: * : GnomeCanvasBpath. (line 17) * : GnomeCanvasClipgroup. (line 18) * : GnomeCanvasEllipse. (line 19) * : GnomeCanvasGroup. (line 22) * : GnomeCanvasItem. (line 71) * : GnomeCanvasLine. (line 19) * : gnome-canvas-path-def. (line 18) * : GnomeCanvasPixbuf. (line 17) * : gnome-canvas-util. (line 31) * : GnomeCanvasPolygon. (line 17) * : GnomeCanvasRE. (line 17) * : GnomeCanvasRect. (line 19) * : GnomeCanvasRichText. (line 19) * : GnomeCanvasShape. (line 19) * : GnomeCanvasText. (line 22) * : GnomeCanvasWidget. (line 17) * : GnomeCanvas. (line 89)  File: guile-gnome-libgnomecanvas.info, Node: Function Index, Prev: Type Index, Up: Top Function Index ************** [index] * Menu: * affine-absolute: GnomeCanvasItem. (line 123) * affine-relative: GnomeCanvasItem. (line 108) * c2w: GnomeCanvas. (line 358) * draw-background on : GnomeCanvas. (line 102) * event on : GnomeCanvasItem. (line 80) * get-bounds: GnomeCanvasItem. (line 316) * get-buffer: GnomeCanvasRichText. (line 104) * get-color: GnomeCanvas. (line 428) * get-color-pixel: GnomeCanvas. (line 452) * get-dither: GnomeCanvas. (line 502) * get-item-at: GnomeCanvas. (line 265) * get-path-def: GnomeCanvasShape. (line 74) * get-scroll-offsets: GnomeCanvas. (line 235) * get-scroll-region: GnomeCanvas. (line 170) * gnome-canvas-c2w: GnomeCanvas. (line 357) * gnome-canvas-get-butt-points: gnome-canvas-util. (line 86) * gnome-canvas-get-color: GnomeCanvas. (line 427) * gnome-canvas-get-color-pixel: GnomeCanvas. (line 451) * gnome-canvas-get-dither: GnomeCanvas. (line 501) * gnome-canvas-get-item-at: GnomeCanvas. (line 264) * gnome-canvas-get-miter-points: gnome-canvas-util. (line 38) * gnome-canvas-get-scroll-offsets: GnomeCanvas. (line 234) * gnome-canvas-get-scroll-region: GnomeCanvas. (line 169) * gnome-canvas-item-affine-absolute: GnomeCanvasItem. (line 122) * gnome-canvas-item-affine-relative: GnomeCanvasItem. (line 107) * gnome-canvas-item-get-bounds: GnomeCanvasItem. (line 315) * gnome-canvas-item-grab: GnomeCanvasItem. (line 207) * gnome-canvas-item-grab-focus: GnomeCanvasItem. (line 303) * gnome-canvas-item-hide: GnomeCanvasItem. (line 195) * gnome-canvas-item-i2w: GnomeCanvasItem. (line 272) * gnome-canvas-item-lower: GnomeCanvasItem. (line 151) * gnome-canvas-item-lower-to-bottom: GnomeCanvasItem. (line 176) * gnome-canvas-item-move: GnomeCanvasItem. (line 87) * gnome-canvas-item-raise: GnomeCanvasItem. (line 136) * gnome-canvas-item-raise-to-top: GnomeCanvasItem. (line 166) * gnome-canvas-item-reparent: GnomeCanvasItem. (line 289) * gnome-canvas-item-request-update: GnomeCanvasItem. (line 338) * gnome-canvas-item-reset-bounds: gnome-canvas-util. (line 145) * gnome-canvas-item-show: GnomeCanvasItem. (line 185) * gnome-canvas-item-ungrab: GnomeCanvasItem. (line 241) * gnome-canvas-item-w2i: GnomeCanvasItem. (line 255) * gnome-canvas-new: GnomeCanvas. (line 114) * gnome-canvas-new-aa: GnomeCanvas. (line 122) * gnome-canvas-path-def-all-closed: gnome-canvas-path-def. (line 325) * gnome-canvas-path-def-all-open: gnome-canvas-path-def. (line 299) * gnome-canvas-path-def-any-closed: gnome-canvas-path-def. (line 312) * gnome-canvas-path-def-any-open: gnome-canvas-path-def. (line 286) * gnome-canvas-path-def-close-all: gnome-canvas-path-def. (line 145) * gnome-canvas-path-def-closed-parts: gnome-canvas-path-def. (line 130) * gnome-canvas-path-def-closepath: gnome-canvas-path-def. (line 248) * gnome-canvas-path-def-concat: gnome-canvas-path-def. (line 84) * gnome-canvas-path-def-curveto: gnome-canvas-path-def. (line 221) * gnome-canvas-path-def-duplicate: gnome-canvas-path-def. (line 71) * gnome-canvas-path-def-ensure-space: gnome-canvas-path-def. (line 56) * gnome-canvas-path-def-finish: gnome-canvas-path-def. (line 47) * gnome-canvas-path-def-is-empty: gnome-canvas-path-def. (line 273) * gnome-canvas-path-def-length: gnome-canvas-path-def. (line 259) * gnome-canvas-path-def-lineto: gnome-canvas-path-def. (line 185) * gnome-canvas-path-def-lineto-moving: gnome-canvas-path-def. (line 201) * gnome-canvas-path-def-moveto: gnome-canvas-path-def. (line 168) * gnome-canvas-path-def-new: gnome-canvas-path-def. (line 23) * gnome-canvas-path-def-new-sized: gnome-canvas-path-def. (line 32) * gnome-canvas-path-def-open-parts: gnome-canvas-path-def. (line 115) * gnome-canvas-path-def-reset: gnome-canvas-path-def. (line 159) * gnome-canvas-path-def-split: gnome-canvas-path-def. (line 98) * gnome-canvas-polygon-to-point: gnome-canvas-util. (line 122) * gnome-canvas-request-redraw: GnomeCanvas. (line 285) * gnome-canvas-rich-text-get-buffer: GnomeCanvasRichText. (line 103) * gnome-canvas-rich-text-set-buffer: GnomeCanvasRichText. (line 89) * gnome-canvas-root: GnomeCanvas. (line 131) * gnome-canvas-scroll-to: GnomeCanvas. (line 214) * gnome-canvas-set-dither: GnomeCanvas. (line 485) * gnome-canvas-set-pixels-per-unit: GnomeCanvas. (line 191) * gnome-canvas-set-scroll-region: GnomeCanvas. (line 144) * gnome-canvas-set-stipple-origin: GnomeCanvas. (line 469) * gnome-canvas-shape-get-path-def: GnomeCanvasShape. (line 73) * gnome-canvas-shape-set-path-def: GnomeCanvasShape. (line 56) * gnome-canvas-update-bbox: gnome-canvas-util. (line 155) * gnome-canvas-update-now: GnomeCanvas. (line 250) * gnome-canvas-w2c: GnomeCanvas. (line 311) * gnome-canvas-w2c-d: GnomeCanvas. (line 333) * gnome-canvas-window-to-world: GnomeCanvas. (line 380) * gnome-canvas-world-to-window: GnomeCanvas. (line 405) * grab: GnomeCanvasItem. (line 208) * grab-focus: GnomeCanvasItem. (line 304) * hide: GnomeCanvasItem. (line 196) * i2w: GnomeCanvasItem. (line 273) * lower: GnomeCanvasItem. (line 152) * lower-to-bottom: GnomeCanvasItem. (line 177) * move: GnomeCanvasItem. (line 88) * raise: GnomeCanvasItem. (line 137) * raise-to-top: GnomeCanvasItem. (line 167) * render-background on : GnomeCanvas. (line 108) * reparent: GnomeCanvasItem. (line 290) * request-redraw: GnomeCanvas. (line 286) * request-update: GnomeCanvasItem. (line 339) * reset-bounds: gnome-canvas-util. (line 146) * root: GnomeCanvas. (line 132) * scroll-to: GnomeCanvas. (line 215) * set-buffer: GnomeCanvasRichText. (line 90) * set-dither: GnomeCanvas. (line 486) * set-path-def: GnomeCanvasShape. (line 57) * set-pixels-per-unit: GnomeCanvas. (line 192) * set-scroll-region: GnomeCanvas. (line 145) * set-stipple-origin: GnomeCanvas. (line 470) * show: GnomeCanvasItem. (line 186) * tag-changed on : GnomeCanvasRichText. (line 86) * ungrab: GnomeCanvasItem. (line 242) * update-now: GnomeCanvas. (line 251) * w2c: GnomeCanvas. (line 312) * w2c-d: GnomeCanvas. (line 334) * w2i: GnomeCanvasItem. (line 256) * window-to-world: GnomeCanvas. (line 381) * world-to-window: GnomeCanvas. (line 406)  Tag Table: Node: Top660 Node: Overview2222 Node: GnomeCanvasBpath2882 Node: GnomeCanvasClipgroup3323 Node: GnomeCanvasEllipse3849 Node: GnomeCanvasGroup4421 Node: GnomeCanvasItem5119 Node: GnomeCanvasLine15513 Node: gnome-canvas-path-def16389 Node: GnomeCanvasPixbuf24866 Node: GnomeCanvasPolygon25477 Node: GnomeCanvasRect25923 Node: GnomeCanvasRE26515 Node: GnomeCanvasRichText27000 Node: GnomeCanvasShape29487 Node: GnomeCanvasText31314 Node: gnome-canvas-util34125 Node: GnomeCanvasWidget38580 Node: GnomeCanvas39107 Node: Undocumented54608 Node: Type Index55355 Node: Function Index56819  End Tag Table guile-gnome-platform-2.16.2/libgnomecanvas/doc/section-gnome-canvas-widget.xml.texi0000644000175000017500000000041011670374303030713 0ustar00wingowingo00000000000000 @c %start of fragment @node GnomeCanvasWidget @chapter GnomeCanvasWidget Widget canvas item @section Overview A canvas item for placing arbitrary GtkWidget objects onto a canvas. @section Usage @include defuns-gnome-canvas-widget.xml.texi @c %end of fragment guile-gnome-platform-2.16.2/libgnomecanvas/doc/section-gnome-canvas-util.xml.texi0000644000175000017500000000152411670374303030414 0ustar00wingowingo00000000000000 @c %start of fragment @node gnome-canvas-util @chapter gnome-canvas-util Canvas utility functions @section Overview Some useful canvas utility functions. The @code{} structure manages an array of points (X and Y coordinates) and is used by @code{} and @code{} canvas items. To create a @code{} structure call @code{gnome-canvas-points-new} and when finished using it call @code{gnome-canvas-points-free}. Of note is that the @code{} structure is actually managed by a reference count, so it won't be freed until this count reaches 0. To increment its reference count call @code{gnome-canvas-points-ref} and to decrement it call @code{gnome-canvas-points-unref}. @section Usage @include defuns-gnome-canvas-util.xml.texi @c %end of fragment guile-gnome-platform-2.16.2/libgnomecanvas/doc/defuns-gnome-canvas-ellipse.xml.texi0000644000175000017500000000025211670374303030711 0ustar00wingowingo00000000000000 @c %start of fragment @deftp Class Derives from @code{}. This class defines no direct slots. @end deftp @c %end of fragment guile-gnome-platform-2.16.2/libgnomecanvas/doc/defuns-gnome-canvas-rich-text.xml.texi0000644000175000017500000000400711670374303031165 0ustar00wingowingo00000000000000 @c %start of fragment @deftp Class Derives from @code{}. This class defines the following properties: @table @code @item text Text to display @item x X position @item y Y position @item width Width for text box @item height Height for text box @item editable Is this rich text item editable? @item visible Is this rich text item visible? @item cursor-visible Is the cursor visible in this rich text item? @item cursor-blink Does the cursor blink in this rich text item? @item grow-height Should the text box height grow if the text does not fit? @item wrap-mode Wrap mode for multiline text @item justification Justification mode @item direction Text direction @item anchor Anchor point for text @item pixels-above-lines Number of pixels to put above lines @item pixels-below-lines Number of pixels to put below lines @item pixels-inside-wrap Number of pixels to put inside the wrap @item left-margin Number of pixels in the left margin @item right-margin Number of pixels in the right margin @item indent Number of pixels for indentation @end table @end deftp @defop Signal tag-changed (arg0@tie{}@code{}) @end defop @deffn Function gnome-canvas-rich-text-set-buffer (self@tie{}@code{}) (buffer@tie{}@code{}) @deffnx Method set-buffer Sets the buffer field of the @var{text} to @var{buffer}. @table @var @item text a @code{}. @item buffer a @code{}. @end table @end deffn @deffn Function gnome-canvas-rich-text-get-buffer (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{}) @deffnx Method get-buffer Returns a @code{} associated with the @code{}. This function creates a new @code{} if the text buffer is NULL. @table @var @item text a @code{}. @item ret the @code{}. @end table @end deffn @c %end of fragment guile-gnome-platform-2.16.2/libgnomecanvas/doc/section-gnome-canvas-rich-text.xml.texi0000644000175000017500000000057711670374303031355 0ustar00wingowingo00000000000000 @c %start of fragment @node GnomeCanvasRichText @chapter GnomeCanvasRichText Rich text canvas item @section Overview A canvas item that displays a GtkTextBuffer which is a flexible text display and editing widget. Consult GtkTextBuffer info in the GTK+ Reference documentation for more details. @section Usage @include defuns-gnome-canvas-rich-text.xml.texi @c %end of fragment guile-gnome-platform-2.16.2/libgnomecanvas/doc/defuns-gnome-canvas-pixbuf.xml.texi0000644000175000017500000000063211670374303030553 0ustar00wingowingo00000000000000 @c %start of fragment @deftp Class Derives from @code{}. This class defines the following properties: @table @code @item pixbuf @item width @item width-set @item width-in-pixels @item height @item height-set @item height-in-pixels @item x @item x-in-pixels @item y @item y-in-pixels @item anchor @end table @end deftp @c %end of fragment guile-gnome-platform-2.16.2/libgnomecanvas/tests/0000755000175000017500000000000011752546504022327 5ustar00wingowingo00000000000000guile-gnome-platform-2.16.2/libgnomecanvas/tests/wrapset.scm0000644000175000017500000000311411670374303024512 0ustar00wingowingo00000000000000;;; ---------------------------------------------------------------------- ;;; unit test ;;; Copyright (C) 2007 Andy Wingo ;;; ;;; This program is free software; you can redistribute it and/or modify ;;; it under the terms of the GNU General Public License as published by ;;; the Free Software Foundation; either version 2 of the License, or ;;; (at your option) any later version. ;;; ;;; This program is distributed in the hope that it will be useful, ;;; but WITHOUT ANY WARRANTY; without even the implied warranty of ;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the ;;; GNU General Public License for more details. ;;; ;;; You should have received a copy of the GNU General Public License ;;; along with this program; if not, write to the Free Software ;;; Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA ;;; ---------------------------------------------------------------------- (use-modules (unit-test) (apicheck) (ice-9 pretty-print) (oop goops)) (define-class ()) (define *modules* (call-with-input-string (getenv "WRAPSET_MODULES") read)) (define *api-file* (getenv "WRAPSET_API_FILE")) (define-method (test-wrapset-api (self )) (apicheck-validate (call-with-input-file *api-file* read) *modules*)) (define (main args) (exit-with-summary (run-all-defined-test-cases))) (define (update-api args) (with-output-to-file *api-file* (lambda () (pretty-print (apicheck-generate *modules*))))) guile-gnome-platform-2.16.2/libgnomecanvas/tests/Makefile.am0000644000175000017500000000005611670374303024357 0ustar00wingowingo00000000000000include ../../tests.mk wrapset_stem = canvas guile-gnome-platform-2.16.2/libgnomecanvas/tests/Makefile.in0000644000175000017500000004021011752511070024357 0ustar00wingowingo00000000000000# Makefile.in generated by automake 1.11.5 from Makefile.am. # @configure_input@ # Copyright (C) 1994, 1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, # 2003, 2004, 2005, 2006, 2007, 2008, 2009, 2010, 2011 Free Software # Foundation, Inc. # This Makefile.in is free software; the Free Software Foundation # gives unlimited permission to copy and/or distribute it, # with or without modifications, as long as this notice is preserved. # This program is distributed in the hope that it will be useful, # but WITHOUT ANY WARRANTY, to the extent permitted by law; without # even the implied warranty of MERCHANTABILITY or FITNESS FOR A # PARTICULAR PURPOSE. @SET_MAKE@ # guile-gnome # Copyright (C) 2007, 2011 Free Software Foundation, Inc. # This program is free software; you can redistribute it and/or # modify it under the terms of the GNU General Public License as # published by the Free Software Foundation; either version 2 of # the License, or (at your option) any later version. # This program is distributed in the hope that it will be useful, # but WITHOUT ANY WARRANTY; without even the implied warranty of # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the # GNU General Public License for more details. # You should have received a copy of the GNU General Public License # along with this program; if not, contact: # Free Software Foundation Voice: +1-617-542-5942 # 59 Temple Place - Suite 330 Fax: +1-617-542-2652 # Boston, MA 02111-1307, USA gnu@gnu.org VPATH = @srcdir@ am__make_dryrun = \ { \ am__dry=no; \ case $$MAKEFLAGS in \ *\\[\ \ ]*) \ echo 'am--echo: ; @echo "AM" OK' | $(MAKE) -f - 2>/dev/null \ | grep '^AM OK$$' >/dev/null || am__dry=yes;; \ *) \ for am__flg in $$MAKEFLAGS; do \ case $$am__flg in \ *=*|--*) ;; \ *n*) am__dry=yes; break;; \ esac; \ done;; \ esac; \ test $$am__dry = yes; \ } pkgdatadir = $(datadir)/@PACKAGE@ pkgincludedir = $(includedir)/@PACKAGE@ pkglibdir = $(libdir)/@PACKAGE@ pkglibexecdir = $(libexecdir)/@PACKAGE@ am__cd = CDPATH="$${ZSH_VERSION+.}$(PATH_SEPARATOR)" && cd install_sh_DATA = $(install_sh) -c -m 644 install_sh_PROGRAM = $(install_sh) -c install_sh_SCRIPT = $(install_sh) -c INSTALL_HEADER = $(INSTALL_DATA) transform = $(program_transform_name) NORMAL_INSTALL = : PRE_INSTALL = : POST_INSTALL = : NORMAL_UNINSTALL = : PRE_UNINSTALL = : POST_UNINSTALL = : build_triplet = @build@ host_triplet = @host@ DIST_COMMON = $(srcdir)/../../tests.mk $(srcdir)/Makefile.am \ $(srcdir)/Makefile.in subdir = libgnomecanvas/tests ACLOCAL_M4 = $(top_srcdir)/aclocal.m4 am__aclocal_m4_deps = $(top_srcdir)/configure.ac am__configure_deps = $(am__aclocal_m4_deps) $(CONFIGURE_DEPENDENCIES) \ $(ACLOCAL_M4) mkinstalldirs = $(install_sh) -d CONFIG_HEADER = $(top_builddir)/config.h CONFIG_CLEAN_FILES = CONFIG_CLEAN_VPATH_FILES = SOURCES = DIST_SOURCES = am__can_run_installinfo = \ case $$AM_UPDATE_INFO_DIR in \ n|no|NO) false;; \ *) (install-info --version) >/dev/null 2>&1;; \ esac am__tty_colors = \ red=; grn=; lgn=; blu=; std= DISTFILES = $(DIST_COMMON) $(DIST_SOURCES) $(TEXINFOS) $(EXTRA_DIST) ACLOCAL = @ACLOCAL@ AG_PKG_CONFIG_PATH = @AG_PKG_CONFIG_PATH@ AMTAR = @AMTAR@ API_VERSION = @API_VERSION@ AR = @AR@ ATK_CFLAGS = @ATK_CFLAGS@ ATK_LIBS = @ATK_LIBS@ AUTOCONF = @AUTOCONF@ AUTOHEADER = @AUTOHEADER@ AUTOMAKE = @AUTOMAKE@ AWK = @AWK@ BONOBO_IDL_DIR = @BONOBO_IDL_DIR@ CANVAS_CFLAGS = @CANVAS_CFLAGS@ CANVAS_LIBS = @CANVAS_LIBS@ CC = @CC@ CCDEPMODE = @CCDEPMODE@ CFLAGS = @CFLAGS@ CORBA_CFLAGS = @CORBA_CFLAGS@ CORBA_LIBS = @CORBA_LIBS@ CPP = @CPP@ CPPFLAGS = @CPPFLAGS@ CYGPATH_W = @CYGPATH_W@ DEFS = @DEFS@ DEPDIR = @DEPDIR@ DLLTOOL = @DLLTOOL@ DSYMUTIL = @DSYMUTIL@ DUMPBIN = @DUMPBIN@ ECHO_C = @ECHO_C@ ECHO_N = @ECHO_N@ ECHO_T = @ECHO_T@ EGREP = @EGREP@ EXEEXT = @EXEEXT@ FGREP = @FGREP@ GCONF_CFLAGS = @GCONF_CFLAGS@ GCONF_LIBS = @GCONF_LIBS@ GDK_CFLAGS = @GDK_CFLAGS@ GDK_LIBS = @GDK_LIBS@ GDK_PIXBUF_CFLAGS = @GDK_PIXBUF_CFLAGS@ GDK_PIXBUF_LIBS = @GDK_PIXBUF_LIBS@ GLIB_CFLAGS = @GLIB_CFLAGS@ GLIB_LIBS = @GLIB_LIBS@ GNOMEUI_DEPRECATION_FLAGS = @GNOMEUI_DEPRECATION_FLAGS@ GNOME_VFS_CFLAGS = @GNOME_VFS_CFLAGS@ GNOME_VFS_DEPRECATED_CFLAGS = @GNOME_VFS_DEPRECATED_CFLAGS@ GNOME_VFS_LIBS = @GNOME_VFS_LIBS@ GOBJECT_CFLAGS = @GOBJECT_CFLAGS@ GOBJECT_LIBS = @GOBJECT_LIBS@ GREP = @GREP@ GTHREAD_CFLAGS = @GTHREAD_CFLAGS@ GTHREAD_LIBS = @GTHREAD_LIBS@ GTK_CFLAGS = @GTK_CFLAGS@ GTK_DEPRECATED_CFLAGS = @GTK_DEPRECATED_CFLAGS@ GTK_LIBS = @GTK_LIBS@ GUILE_CAIRO_CFLAGS = @GUILE_CAIRO_CFLAGS@ GUILE_CAIRO_LIBS = @GUILE_CAIRO_LIBS@ GUILE_CFLAGS = @GUILE_CFLAGS@ GUILE_EFFECTIVE_VERSION = @GUILE_EFFECTIVE_VERSION@ GUILE_GLIB_CFLAGS = @GUILE_GLIB_CFLAGS@ GUILE_GLIB_LIBS = @GUILE_GLIB_LIBS@ GUILE_LIBS = @GUILE_LIBS@ G_WRAP_CFLAGS = @G_WRAP_CFLAGS@ G_WRAP_LIBS = @G_WRAP_LIBS@ G_WRAP_LIB_DIR = @G_WRAP_LIB_DIR@ G_WRAP_MODULE_DIR = @G_WRAP_MODULE_DIR@ INSTALL = @INSTALL@ INSTALL_DATA = @INSTALL_DATA@ INSTALL_PROGRAM = @INSTALL_PROGRAM@ INSTALL_SCRIPT = @INSTALL_SCRIPT@ INSTALL_STRIP_PROGRAM = @INSTALL_STRIP_PROGRAM@ LD = @LD@ LDFLAGS = @LDFLAGS@ LIBGLADE_CFLAGS = @LIBGLADE_CFLAGS@ LIBGLADE_LIBS = @LIBGLADE_LIBS@ LIBGNOMEUI_CFLAGS = @LIBGNOMEUI_CFLAGS@ LIBGNOMEUI_LIBS = @LIBGNOMEUI_LIBS@ LIBGNOME_CFLAGS = @LIBGNOME_CFLAGS@ LIBGNOME_LIBS = @LIBGNOME_LIBS@ LIBOBJS = @LIBOBJS@ LIBS = @LIBS@ LIBTOOL = @LIBTOOL@ LIPO = @LIPO@ LN_S = @LN_S@ LTLIBOBJS = @LTLIBOBJS@ MAKEINFO = @MAKEINFO@ MANIFEST_TOOL = @MANIFEST_TOOL@ MKDIR_P = @MKDIR_P@ NM = @NM@ NMEDIT = @NMEDIT@ OBJDUMP = @OBJDUMP@ OBJEXT = @OBJEXT@ ORBIT_IDL = @ORBIT_IDL@ OTOOL = @OTOOL@ OTOOL64 = @OTOOL64@ PACKAGE = @PACKAGE@ PACKAGE_BUGREPORT = @PACKAGE_BUGREPORT@ PACKAGE_NAME = @PACKAGE_NAME@ PACKAGE_STRING = @PACKAGE_STRING@ PACKAGE_TARNAME = @PACKAGE_TARNAME@ PACKAGE_URL = @PACKAGE_URL@ PACKAGE_VERSION = @PACKAGE_VERSION@ PANGOCAIRO_CFLAGS = @PANGOCAIRO_CFLAGS@ PANGOCAIRO_LIBS = @PANGOCAIRO_LIBS@ PANGO_CFLAGS = @PANGO_CFLAGS@ PANGO_LIBS = @PANGO_LIBS@ PATH_SEPARATOR = @PATH_SEPARATOR@ PKG_CONFIG = @PKG_CONFIG@ PKG_CONFIG_LIBDIR = @PKG_CONFIG_LIBDIR@ PKG_CONFIG_PATH = @PKG_CONFIG_PATH@ RANLIB = @RANLIB@ SED = @SED@ SET_MAKE = @SET_MAKE@ SHELL = @SHELL@ STRIP = @STRIP@ VERSION = @VERSION@ WARN_CFLAGS = @WARN_CFLAGS@ abs_builddir = @abs_builddir@ abs_srcdir = @abs_srcdir@ abs_top_builddir = @abs_top_builddir@ abs_top_srcdir = @abs_top_srcdir@ ac_ct_AR = @ac_ct_AR@ ac_ct_CC = @ac_ct_CC@ ac_ct_DUMPBIN = @ac_ct_DUMPBIN@ am__include = @am__include@ am__leading_dot = @am__leading_dot@ am__quote = @am__quote@ am__tar = @am__tar@ am__untar = @am__untar@ bindir = @bindir@ build = @build@ build_alias = @build_alias@ build_cpu = @build_cpu@ build_os = @build_os@ build_vendor = @build_vendor@ builddir = @builddir@ datadir = @datadir@ datarootdir = @datarootdir@ docdir = @docdir@ dvidir = @dvidir@ exec_prefix = @exec_prefix@ host = @host@ host_alias = @host_alias@ host_cpu = @host_cpu@ host_os = @host_os@ host_vendor = @host_vendor@ htmldir = @htmldir@ includedir = @includedir@ infodir = @infodir@ install_sh = @install_sh@ libdir = @libdir@ libexecdir = @libexecdir@ localedir = @localedir@ localstatedir = @localstatedir@ mandir = @mandir@ mkdir_p = @mkdir_p@ oldincludedir = @oldincludedir@ pdfdir = @pdfdir@ prefix = @prefix@ program_transform_name = @program_transform_name@ psdir = @psdir@ sbindir = @sbindir@ sharedstatedir = @sharedstatedir@ srcdir = @srcdir@ sysconfdir = @sysconfdir@ target_alias = @target_alias@ top_build_prefix = @top_build_prefix@ top_builddir = @top_builddir@ top_srcdir = @top_srcdir@ # # Makefile snippet # EXTRA_DIST = wrapset.api wrapset.scm wrapset_stem = canvas top_module_name = (gnome $(wrapset_stem)) gw_module_name = (gnome gw $(wrapset_stem)) extra_module_names = wrapset_modules = ($(top_module_name) $(gw_module_name) $(extra_module_names)) WRAPSET_TESTS_ENV = WRAPSET_MODULES="$(wrapset_modules)" WRAPSET_API_FILE=$(srcdir)/wrapset.api DEV_ENV = $(top_builddir)/dev-environ GUILE = guile TESTS_ENVIRONMENT = $(WRAPSET_TESTS_ENV) $(DEV_ENV) $(GUILE) $(GUILE_FLAGS) -e main -s TESTS = wrapset.scm all: all-am .SUFFIXES: $(srcdir)/Makefile.in: $(srcdir)/Makefile.am $(srcdir)/../../tests.mk $(am__configure_deps) @for dep in $?; do \ case '$(am__configure_deps)' in \ *$$dep*) \ ( cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh ) \ && { if test -f $@; then exit 0; else break; fi; }; \ exit 1;; \ esac; \ done; \ echo ' cd $(top_srcdir) && $(AUTOMAKE) --gnu libgnomecanvas/tests/Makefile'; \ $(am__cd) $(top_srcdir) && \ $(AUTOMAKE) --gnu libgnomecanvas/tests/Makefile .PRECIOUS: Makefile Makefile: $(srcdir)/Makefile.in $(top_builddir)/config.status @case '$?' in \ *config.status*) \ cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh;; \ *) \ echo ' cd $(top_builddir) && $(SHELL) ./config.status $(subdir)/$@ $(am__depfiles_maybe)'; \ cd $(top_builddir) && $(SHELL) ./config.status $(subdir)/$@ $(am__depfiles_maybe);; \ esac; $(srcdir)/../../tests.mk: $(top_builddir)/config.status: $(top_srcdir)/configure $(CONFIG_STATUS_DEPENDENCIES) cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh $(top_srcdir)/configure: $(am__configure_deps) cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh $(ACLOCAL_M4): $(am__aclocal_m4_deps) cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh $(am__aclocal_m4_deps): mostlyclean-libtool: -rm -f *.lo clean-libtool: -rm -rf .libs _libs tags: TAGS TAGS: ctags: CTAGS CTAGS: check-TESTS: $(TESTS) @failed=0; all=0; xfail=0; xpass=0; skip=0; \ srcdir=$(srcdir); export srcdir; \ list=' $(TESTS) '; \ $(am__tty_colors); \ if test -n "$$list"; then \ for tst in $$list; do \ if test -f ./$$tst; then dir=./; \ elif test -f $$tst; then dir=; \ else dir="$(srcdir)/"; fi; \ if $(TESTS_ENVIRONMENT) $${dir}$$tst; then \ all=`expr $$all + 1`; \ case " $(XFAIL_TESTS) " in \ *[\ \ ]$$tst[\ \ ]*) \ xpass=`expr $$xpass + 1`; \ failed=`expr $$failed + 1`; \ col=$$red; res=XPASS; \ ;; \ *) \ col=$$grn; res=PASS; \ ;; \ esac; \ elif test $$? -ne 77; then \ all=`expr $$all + 1`; \ case " $(XFAIL_TESTS) " in \ *[\ \ ]$$tst[\ \ ]*) \ xfail=`expr $$xfail + 1`; \ col=$$lgn; res=XFAIL; \ ;; \ *) \ failed=`expr $$failed + 1`; \ col=$$red; res=FAIL; \ ;; \ esac; \ else \ skip=`expr $$skip + 1`; \ col=$$blu; res=SKIP; \ fi; \ echo "$${col}$$res$${std}: $$tst"; \ done; \ if test "$$all" -eq 1; then \ tests="test"; \ All=""; \ else \ tests="tests"; \ All="All "; \ fi; \ if test "$$failed" -eq 0; then \ if test "$$xfail" -eq 0; then \ banner="$$All$$all $$tests passed"; \ else \ if test "$$xfail" -eq 1; then failures=failure; else failures=failures; fi; \ banner="$$All$$all $$tests behaved as expected ($$xfail expected $$failures)"; \ fi; \ else \ if test "$$xpass" -eq 0; then \ banner="$$failed of $$all $$tests failed"; \ else \ if test "$$xpass" -eq 1; then passes=pass; else passes=passes; fi; \ banner="$$failed of $$all $$tests did not behave as expected ($$xpass unexpected $$passes)"; \ fi; \ fi; \ dashes="$$banner"; \ skipped=""; \ if test "$$skip" -ne 0; then \ if test "$$skip" -eq 1; then \ skipped="($$skip test was not run)"; \ else \ skipped="($$skip tests were not run)"; \ fi; \ test `echo "$$skipped" | wc -c` -le `echo "$$banner" | wc -c` || \ dashes="$$skipped"; \ fi; \ report=""; \ if test "$$failed" -ne 0 && test -n "$(PACKAGE_BUGREPORT)"; then \ report="Please report to $(PACKAGE_BUGREPORT)"; \ test `echo "$$report" | wc -c` -le `echo "$$banner" | wc -c` || \ dashes="$$report"; \ fi; \ dashes=`echo "$$dashes" | sed s/./=/g`; \ if test "$$failed" -eq 0; then \ col="$$grn"; \ else \ col="$$red"; \ fi; \ echo "$${col}$$dashes$${std}"; \ echo "$${col}$$banner$${std}"; \ test -z "$$skipped" || echo "$${col}$$skipped$${std}"; \ test -z "$$report" || echo "$${col}$$report$${std}"; \ echo "$${col}$$dashes$${std}"; \ test "$$failed" -eq 0; \ else :; fi distdir: $(DISTFILES) @srcdirstrip=`echo "$(srcdir)" | sed 's/[].[^$$\\*]/\\\\&/g'`; \ topsrcdirstrip=`echo "$(top_srcdir)" | sed 's/[].[^$$\\*]/\\\\&/g'`; \ list='$(DISTFILES)'; \ dist_files=`for file in $$list; do echo $$file; done | \ sed -e "s|^$$srcdirstrip/||;t" \ -e "s|^$$topsrcdirstrip/|$(top_builddir)/|;t"`; \ case $$dist_files in \ */*) $(MKDIR_P) `echo "$$dist_files" | \ sed '/\//!d;s|^|$(distdir)/|;s,/[^/]*$$,,' | \ sort -u` ;; \ esac; \ for file in $$dist_files; do \ if test -f $$file || test -d $$file; then d=.; else d=$(srcdir); fi; \ if test -d $$d/$$file; then \ dir=`echo "/$$file" | sed -e 's,/[^/]*$$,,'`; \ if test -d "$(distdir)/$$file"; then \ find "$(distdir)/$$file" -type d ! -perm -700 -exec chmod u+rwx {} \;; \ fi; \ if test -d $(srcdir)/$$file && test $$d != $(srcdir); then \ cp -fpR $(srcdir)/$$file "$(distdir)$$dir" || exit 1; \ find "$(distdir)/$$file" -type d ! -perm -700 -exec chmod u+rwx {} \;; \ fi; \ cp -fpR $$d/$$file "$(distdir)$$dir" || exit 1; \ else \ test -f "$(distdir)/$$file" \ || cp -p $$d/$$file "$(distdir)/$$file" \ || exit 1; \ fi; \ done check-am: all-am $(MAKE) $(AM_MAKEFLAGS) check-TESTS check: check-am all-am: Makefile installdirs: install: install-am install-exec: install-exec-am install-data: install-data-am uninstall: uninstall-am install-am: all-am @$(MAKE) $(AM_MAKEFLAGS) install-exec-am install-data-am installcheck: installcheck-am install-strip: if test -z '$(STRIP)'; then \ $(MAKE) $(AM_MAKEFLAGS) INSTALL_PROGRAM="$(INSTALL_STRIP_PROGRAM)" \ install_sh_PROGRAM="$(INSTALL_STRIP_PROGRAM)" INSTALL_STRIP_FLAG=-s \ install; \ else \ $(MAKE) $(AM_MAKEFLAGS) INSTALL_PROGRAM="$(INSTALL_STRIP_PROGRAM)" \ install_sh_PROGRAM="$(INSTALL_STRIP_PROGRAM)" INSTALL_STRIP_FLAG=-s \ "INSTALL_PROGRAM_ENV=STRIPPROG='$(STRIP)'" install; \ fi mostlyclean-generic: clean-generic: distclean-generic: -test -z "$(CONFIG_CLEAN_FILES)" || rm -f $(CONFIG_CLEAN_FILES) -test . = "$(srcdir)" || test -z "$(CONFIG_CLEAN_VPATH_FILES)" || rm -f $(CONFIG_CLEAN_VPATH_FILES) maintainer-clean-generic: @echo "This command is intended for maintainers to use" @echo "it deletes files that may require special tools to rebuild." clean: clean-am clean-am: clean-generic clean-libtool mostlyclean-am distclean: distclean-am -rm -f Makefile distclean-am: clean-am distclean-generic dvi: dvi-am dvi-am: html: html-am html-am: info: info-am info-am: install-data-am: install-dvi: install-dvi-am install-dvi-am: install-exec-am: install-html: install-html-am install-html-am: install-info: install-info-am install-info-am: install-man: install-pdf: install-pdf-am install-pdf-am: install-ps: install-ps-am install-ps-am: installcheck-am: maintainer-clean: maintainer-clean-am -rm -f Makefile maintainer-clean-am: distclean-am maintainer-clean-generic mostlyclean: mostlyclean-am mostlyclean-am: mostlyclean-generic mostlyclean-libtool pdf: pdf-am pdf-am: ps: ps-am ps-am: uninstall-am: .MAKE: check-am install-am install-strip .PHONY: all all-am check check-TESTS check-am clean clean-generic \ clean-libtool distclean distclean-generic distclean-libtool \ distdir dvi dvi-am html html-am info info-am install \ install-am install-data install-data-am install-dvi \ install-dvi-am install-exec install-exec-am install-html \ install-html-am install-info install-info-am install-man \ install-pdf install-pdf-am install-ps install-ps-am \ install-strip installcheck installcheck-am installdirs \ maintainer-clean maintainer-clean-generic mostlyclean \ mostlyclean-generic mostlyclean-libtool pdf pdf-am ps ps-am \ uninstall uninstall-am wrapset.api.update: $(WRAPSET_TESTS_ENV) $(DEV_ENV) $(GUILE) -e update-api -s $(srcdir)/wrapset.scm %.check: % $(TESTS_ENVIRONMENT) $(srcdir)/$* # Tell versions [3.59,3.63) of GNU make to not export all variables. # Otherwise a system limit (for SysV at least) may be exceeded. .NOEXPORT: guile-gnome-platform-2.16.2/libgnomecanvas/tests/wrapset.api0000644000175000017500000001533311670374303024507 0ustar00wingowingo00000000000000(module-api (version 1 0) ((gnome canvas) (uses-interfaces (gnome gw canvas)) (typed-exports)) ((gnome gobject generics) (uses-interfaces) (typed-exports (block generic ( )) (connect generic ( )) (connect-after generic ( )) (connected? generic ( )) (create-signal generic ( )) (disconnect generic ( )) (emit generic ( . )) (find-property generic ( )) (get generic ( )) (get-properties generic ()) (get-property-names generic ()) (get-signals generic ()) (invoke generic ( . )) (set generic ( )) (unblock generic ( )))) ((gnome gw canvas) (uses-interfaces (gnome gw generics)) (typed-exports (gnome-canvas-c2w procedure (arity 3 0 #f)) (gnome-canvas-get-butt-points procedure (arity 6 0 #f)) (gnome-canvas-get-center-scroll-region procedure (arity 0 0 #t)) (gnome-canvas-get-color procedure (arity 0 0 #t)) (gnome-canvas-get-color-pixel procedure (arity 0 0 #t)) (gnome-canvas-get-dither procedure (arity 0 0 #t)) (gnome-canvas-get-item-at procedure (arity 0 0 #t)) (gnome-canvas-get-miter-points procedure (arity 7 0 #f)) (gnome-canvas-get-scroll-offsets procedure (arity 1 0 #f)) (gnome-canvas-get-scroll-region procedure (arity 1 0 #f)) (gnome-canvas-item-affine-absolute procedure (arity 0 0 #t)) (gnome-canvas-item-affine-relative procedure (arity 0 0 #t)) (gnome-canvas-item-get-bounds procedure (arity 1 0 #f)) (gnome-canvas-item-grab procedure (arity 0 0 #t)) (gnome-canvas-item-grab-focus procedure (arity 0 0 #t)) (gnome-canvas-item-hide procedure (arity 0 0 #t)) (gnome-canvas-item-i2w procedure (arity 1 0 #f)) (gnome-canvas-item-lower procedure (arity 0 0 #t)) (gnome-canvas-item-lower-to-bottom procedure (arity 0 0 #t)) (gnome-canvas-item-move procedure (arity 0 0 #t)) (gnome-canvas-item-raise procedure (arity 0 0 #t)) (gnome-canvas-item-raise-to-top procedure (arity 0 0 #t)) (gnome-canvas-item-reparent procedure (arity 0 0 #t)) (gnome-canvas-item-request-update procedure (arity 0 0 #t)) (gnome-canvas-item-reset-bounds procedure (arity 0 0 #t)) (gnome-canvas-item-show procedure (arity 0 0 #t)) (gnome-canvas-item-ungrab procedure (arity 0 0 #t)) (gnome-canvas-item-w2i procedure (arity 1 0 #f)) (gnome-canvas-new procedure (arity 0 0 #t)) (gnome-canvas-new-aa procedure (arity 0 0 #t)) (gnome-canvas-path-def-all-closed procedure (arity 0 0 #t)) (gnome-canvas-path-def-all-open procedure (arity 0 0 #t)) (gnome-canvas-path-def-any-closed procedure (arity 0 0 #t)) (gnome-canvas-path-def-any-open procedure (arity 0 0 #t)) (gnome-canvas-path-def-close-all procedure (arity 0 0 #t)) (gnome-canvas-path-def-closed-parts procedure (arity 0 0 #t)) (gnome-canvas-path-def-closepath procedure (arity 0 0 #t)) (gnome-canvas-path-def-closepath-current procedure (arity 0 0 #t)) (gnome-canvas-path-def-concat procedure (arity 1 0 #f)) (gnome-canvas-path-def-curveto procedure (arity 0 0 #t)) (gnome-canvas-path-def-duplicate procedure (arity 0 0 #t)) (gnome-canvas-path-def-ensure-space procedure (arity 0 0 #t)) (gnome-canvas-path-def-finish procedure (arity 0 0 #t)) (gnome-canvas-path-def-has-currentpoint procedure (arity 0 0 #t)) (gnome-canvas-path-def-is-empty procedure (arity 0 0 #t)) (gnome-canvas-path-def-length procedure (arity 0 0 #t)) (gnome-canvas-path-def-lineto procedure (arity 0 0 #t)) (gnome-canvas-path-def-lineto-moving procedure (arity 0 0 #t)) (gnome-canvas-path-def-moveto procedure (arity 0 0 #t)) (gnome-canvas-path-def-new procedure (arity 0 0 #t)) (gnome-canvas-path-def-new-sized procedure (arity 0 0 #t)) (gnome-canvas-path-def-open-parts procedure (arity 0 0 #t)) (gnome-canvas-path-def-reset procedure (arity 0 0 #t)) (gnome-canvas-path-def-split procedure (arity 1 0 #f)) (gnome-canvas-polygon-to-point procedure (arity 3 0 #f)) (gnome-canvas-request-redraw procedure (arity 0 0 #t)) (gnome-canvas-rich-text-copy-clipboard procedure (arity 0 0 #t)) (gnome-canvas-rich-text-cut-clipboard procedure (arity 0 0 #t)) (gnome-canvas-rich-text-get-buffer procedure (arity 0 0 #t)) (gnome-canvas-rich-text-get-iter-at-location procedure (arity 0 0 #t)) (gnome-canvas-rich-text-get-iter-location procedure (arity 0 0 #t)) (gnome-canvas-rich-text-paste-clipboard procedure (arity 0 0 #t)) (gnome-canvas-rich-text-set-buffer procedure (arity 0 0 #t)) (gnome-canvas-root procedure (arity 0 0 #t)) (gnome-canvas-scroll-to procedure (arity 0 0 #t)) (gnome-canvas-set-center-scroll-region procedure (arity 0 0 #t)) (gnome-canvas-set-dither procedure (arity 0 0 #t)) (gnome-canvas-set-pixels-per-unit procedure (arity 0 0 #t)) (gnome-canvas-set-scroll-region procedure (arity 0 0 #t)) (gnome-canvas-set-stipple-origin procedure (arity 0 0 #t)) (gnome-canvas-shape-get-path-def procedure (arity 0 0 #t)) (gnome-canvas-shape-set-path-def procedure (arity 0 0 #t)) (gnome-canvas-update-bbox procedure (arity 0 0 #t)) (gnome-canvas-update-now procedure (arity 0 0 #t)) (gnome-canvas-w2c procedure (arity 3 0 #f)) (gnome-canvas-w2c-d procedure (arity 3 0 #f)) (gnome-canvas-window-to-world procedure (arity 3 0 #f)) (gnome-canvas-world-to-window procedure (arity 3 0 #f)))) ((gnome gw generics) (uses-interfaces (gnome gobject generics)) (typed-exports))) guile-gnome-platform-2.16.2/libgnomecanvas/gnome/0000755000175000017500000000000011752546504022272 5ustar00wingowingo00000000000000guile-gnome-platform-2.16.2/libgnomecanvas/gnome/gw/0000755000175000017500000000000011752546504022707 5ustar00wingowingo00000000000000guile-gnome-platform-2.16.2/libgnomecanvas/gnome/gw/Makefile.am0000644000175000017500000000173011670374303024737 0ustar00wingowingo00000000000000include $(top_srcdir)/common.mk guilegwmodule_DATA = canvas-spec.scm canvas.scm EXTRA_DIST = canvas-spec.scm CLEANFILES = $(wildcard gnome-*.log) # There is one shared library for each wrapset. Each is produced by # g-wrap, but also may contain some hand-coded routines. guilegnomelib_LTLIBRARIES = libgw-guile-gnome-canvas.la ######################################################################## ## canvas nodist_libgw_guile_gnome_canvas_la_SOURCES = guile-gnome-gw-canvas.c libgw_guile_gnome_canvas_la_SOURCES = \ libgnomecanvas-support.c libgnomecanvas-support.h libgw_guile_gnome_canvas_la_CFLAGS = $(GUILE_GLIB_CFLAGS) \ $(AM_CFLAGS) $(CANVAS_CFLAGS) $(GUILE_CFLAGS) \ $(G_WRAP_CFLAGS) -DGTK_DISABLE_DEPRECATED libgw_guile_gnome_canvas_la_LIBADD = $(CANVAS_LIBS) $(GUILE_GLIB_LIBS) \ $(GUILE_LIBS) $(G_WRAP_LIBS) libgw_guile_gnome_canvas_la_LDFLAGS = -module CLEANFILES += $(wildcard guile-gnome-gw-canvas.*) canvas.scm BUILT_SOURCES = guile-gnome-gw-canvas.c guile-gnome-platform-2.16.2/libgnomecanvas/gnome/gw/Makefile.in0000644000175000017500000006633211752520705024761 0ustar00wingowingo00000000000000# Makefile.in generated by automake 1.11.5 from Makefile.am. # @configure_input@ # Copyright (C) 1994, 1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, # 2003, 2004, 2005, 2006, 2007, 2008, 2009, 2010, 2011 Free Software # Foundation, Inc. # This Makefile.in is free software; the Free Software Foundation # gives unlimited permission to copy and/or distribute it, # with or without modifications, as long as this notice is preserved. # This program is distributed in the hope that it will be useful, # but WITHOUT ANY WARRANTY, to the extent permitted by law; without # even the implied warranty of MERCHANTABILITY or FITNESS FOR A # PARTICULAR PURPOSE. @SET_MAKE@ # guile-gnome # Copyright (C) 2003,2004,2009,2012 Free Software Foundation, Inc. # This program is free software; you can redistribute it and/or # modify it under the terms of the GNU General Public License as # published by the Free Software Foundation; either version 2 of # the License, or (at your option) any later version. # This program is distributed in the hope that it will be useful, # but WITHOUT ANY WARRANTY; without even the implied warranty of # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the # GNU General Public License for more details. # You should have received a copy of the GNU General Public License # along with this program; if not, contact: # Free Software Foundation Voice: +1-617-542-5942 # 59 Temple Place - Suite 330 Fax: +1-617-542-2652 # Boston, MA 02111-1307, USA gnu@gnu.org # # Makefile snippet # VPATH = @srcdir@ am__make_dryrun = \ { \ am__dry=no; \ case $$MAKEFLAGS in \ *\\[\ \ ]*) \ echo 'am--echo: ; @echo "AM" OK' | $(MAKE) -f - 2>/dev/null \ | grep '^AM OK$$' >/dev/null || am__dry=yes;; \ *) \ for am__flg in $$MAKEFLAGS; do \ case $$am__flg in \ *=*|--*) ;; \ *n*) am__dry=yes; break;; \ esac; \ done;; \ esac; \ test $$am__dry = yes; \ } pkgdatadir = $(datadir)/@PACKAGE@ pkgincludedir = $(includedir)/@PACKAGE@ pkglibdir = $(libdir)/@PACKAGE@ pkglibexecdir = $(libexecdir)/@PACKAGE@ am__cd = CDPATH="$${ZSH_VERSION+.}$(PATH_SEPARATOR)" && cd install_sh_DATA = $(install_sh) -c -m 644 install_sh_PROGRAM = $(install_sh) -c install_sh_SCRIPT = $(install_sh) -c INSTALL_HEADER = $(INSTALL_DATA) transform = $(program_transform_name) NORMAL_INSTALL = : PRE_INSTALL = : POST_INSTALL = : NORMAL_UNINSTALL = : PRE_UNINSTALL = : POST_UNINSTALL = : build_triplet = @build@ host_triplet = @host@ DIST_COMMON = $(srcdir)/Makefile.am $(srcdir)/Makefile.in \ $(top_srcdir)/common.mk subdir = libgnomecanvas/gnome/gw ACLOCAL_M4 = $(top_srcdir)/aclocal.m4 am__aclocal_m4_deps = $(top_srcdir)/configure.ac am__configure_deps = $(am__aclocal_m4_deps) $(CONFIGURE_DEPENDENCIES) \ $(ACLOCAL_M4) mkinstalldirs = $(install_sh) -d CONFIG_HEADER = $(top_builddir)/config.h CONFIG_CLEAN_FILES = CONFIG_CLEAN_VPATH_FILES = am__vpath_adj_setup = srcdirstrip=`echo "$(srcdir)" | sed 's|.|.|g'`; am__vpath_adj = case $$p in \ $(srcdir)/*) f=`echo "$$p" | sed "s|^$$srcdirstrip/||"`;; \ *) f=$$p;; \ esac; am__strip_dir = f=`echo $$p | sed -e 's|^.*/||'`; am__install_max = 40 am__nobase_strip_setup = \ srcdirstrip=`echo "$(srcdir)" | sed 's/[].[^$$\\*|]/\\\\&/g'` am__nobase_strip = \ for p in $$list; do echo "$$p"; done | sed -e "s|$$srcdirstrip/||" am__nobase_list = $(am__nobase_strip_setup); \ for p in $$list; do echo "$$p $$p"; done | \ sed "s| $$srcdirstrip/| |;"' / .*\//!s/ .*/ ./; s,\( .*\)/[^/]*$$,\1,' | \ $(AWK) 'BEGIN { files["."] = "" } { files[$$2] = files[$$2] " " $$1; \ if (++n[$$2] == $(am__install_max)) \ { print $$2, files[$$2]; n[$$2] = 0; files[$$2] = "" } } \ END { for (dir in files) print dir, files[dir] }' am__base_list = \ sed '$$!N;$$!N;$$!N;$$!N;$$!N;$$!N;$$!N;s/\n/ /g' | \ sed '$$!N;$$!N;$$!N;$$!N;s/\n/ /g' am__uninstall_files_from_dir = { \ test -z "$$files" \ || { test ! -d "$$dir" && test ! -f "$$dir" && test ! -r "$$dir"; } \ || { echo " ( cd '$$dir' && rm -f" $$files ")"; \ $(am__cd) "$$dir" && rm -f $$files; }; \ } am__installdirs = "$(DESTDIR)$(guilegnomelibdir)" \ "$(DESTDIR)$(guilegwmoduledir)" LTLIBRARIES = $(guilegnomelib_LTLIBRARIES) am__DEPENDENCIES_1 = libgw_guile_gnome_canvas_la_DEPENDENCIES = $(am__DEPENDENCIES_1) \ $(am__DEPENDENCIES_1) $(am__DEPENDENCIES_1) \ $(am__DEPENDENCIES_1) am_libgw_guile_gnome_canvas_la_OBJECTS = \ libgw_guile_gnome_canvas_la-libgnomecanvas-support.lo nodist_libgw_guile_gnome_canvas_la_OBJECTS = \ libgw_guile_gnome_canvas_la-guile-gnome-gw-canvas.lo libgw_guile_gnome_canvas_la_OBJECTS = \ $(am_libgw_guile_gnome_canvas_la_OBJECTS) \ $(nodist_libgw_guile_gnome_canvas_la_OBJECTS) libgw_guile_gnome_canvas_la_LINK = $(LIBTOOL) --tag=CC \ $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=link $(CCLD) \ $(libgw_guile_gnome_canvas_la_CFLAGS) $(CFLAGS) \ $(libgw_guile_gnome_canvas_la_LDFLAGS) $(LDFLAGS) -o $@ DEFAULT_INCLUDES = -I.@am__isrc@ -I$(top_builddir) depcomp = $(SHELL) $(top_srcdir)/build-aux/depcomp am__depfiles_maybe = depfiles am__mv = mv -f COMPILE = $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(AM_CPPFLAGS) \ $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) LTCOMPILE = $(LIBTOOL) --tag=CC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) \ --mode=compile $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) \ $(AM_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) CCLD = $(CC) LINK = $(LIBTOOL) --tag=CC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) \ --mode=link $(CCLD) $(AM_CFLAGS) $(CFLAGS) $(AM_LDFLAGS) \ $(LDFLAGS) -o $@ SOURCES = $(libgw_guile_gnome_canvas_la_SOURCES) \ $(nodist_libgw_guile_gnome_canvas_la_SOURCES) DIST_SOURCES = $(libgw_guile_gnome_canvas_la_SOURCES) am__can_run_installinfo = \ case $$AM_UPDATE_INFO_DIR in \ n|no|NO) false;; \ *) (install-info --version) >/dev/null 2>&1;; \ esac DATA = $(guilegwmodule_DATA) ETAGS = etags CTAGS = ctags DISTFILES = $(DIST_COMMON) $(DIST_SOURCES) $(TEXINFOS) $(EXTRA_DIST) ACLOCAL = @ACLOCAL@ AG_PKG_CONFIG_PATH = @AG_PKG_CONFIG_PATH@ AMTAR = @AMTAR@ API_VERSION = @API_VERSION@ AR = @AR@ ATK_CFLAGS = @ATK_CFLAGS@ ATK_LIBS = @ATK_LIBS@ AUTOCONF = @AUTOCONF@ AUTOHEADER = @AUTOHEADER@ AUTOMAKE = @AUTOMAKE@ AWK = @AWK@ BONOBO_IDL_DIR = @BONOBO_IDL_DIR@ CANVAS_CFLAGS = @CANVAS_CFLAGS@ CANVAS_LIBS = @CANVAS_LIBS@ CC = @CC@ CCDEPMODE = @CCDEPMODE@ CFLAGS = @CFLAGS@ CORBA_CFLAGS = @CORBA_CFLAGS@ CORBA_LIBS = @CORBA_LIBS@ CPP = @CPP@ CPPFLAGS = @CPPFLAGS@ CYGPATH_W = @CYGPATH_W@ DEFS = @DEFS@ DEPDIR = @DEPDIR@ DLLTOOL = @DLLTOOL@ DSYMUTIL = @DSYMUTIL@ DUMPBIN = @DUMPBIN@ ECHO_C = @ECHO_C@ ECHO_N = @ECHO_N@ ECHO_T = @ECHO_T@ EGREP = @EGREP@ EXEEXT = @EXEEXT@ FGREP = @FGREP@ GCONF_CFLAGS = @GCONF_CFLAGS@ GCONF_LIBS = @GCONF_LIBS@ GDK_CFLAGS = @GDK_CFLAGS@ GDK_LIBS = @GDK_LIBS@ GDK_PIXBUF_CFLAGS = @GDK_PIXBUF_CFLAGS@ GDK_PIXBUF_LIBS = @GDK_PIXBUF_LIBS@ GLIB_CFLAGS = @GLIB_CFLAGS@ GLIB_LIBS = @GLIB_LIBS@ GNOMEUI_DEPRECATION_FLAGS = @GNOMEUI_DEPRECATION_FLAGS@ GNOME_VFS_CFLAGS = @GNOME_VFS_CFLAGS@ GNOME_VFS_DEPRECATED_CFLAGS = @GNOME_VFS_DEPRECATED_CFLAGS@ GNOME_VFS_LIBS = @GNOME_VFS_LIBS@ GOBJECT_CFLAGS = @GOBJECT_CFLAGS@ GOBJECT_LIBS = @GOBJECT_LIBS@ GREP = @GREP@ GTHREAD_CFLAGS = @GTHREAD_CFLAGS@ GTHREAD_LIBS = @GTHREAD_LIBS@ GTK_CFLAGS = @GTK_CFLAGS@ GTK_DEPRECATED_CFLAGS = @GTK_DEPRECATED_CFLAGS@ GTK_LIBS = @GTK_LIBS@ GUILE_CAIRO_CFLAGS = @GUILE_CAIRO_CFLAGS@ GUILE_CAIRO_LIBS = @GUILE_CAIRO_LIBS@ GUILE_CFLAGS = @GUILE_CFLAGS@ GUILE_EFFECTIVE_VERSION = @GUILE_EFFECTIVE_VERSION@ GUILE_GLIB_CFLAGS = @GUILE_GLIB_CFLAGS@ GUILE_GLIB_LIBS = @GUILE_GLIB_LIBS@ GUILE_LIBS = @GUILE_LIBS@ G_WRAP_CFLAGS = @G_WRAP_CFLAGS@ G_WRAP_LIBS = @G_WRAP_LIBS@ G_WRAP_LIB_DIR = @G_WRAP_LIB_DIR@ G_WRAP_MODULE_DIR = @G_WRAP_MODULE_DIR@ INSTALL = @INSTALL@ INSTALL_DATA = @INSTALL_DATA@ INSTALL_PROGRAM = @INSTALL_PROGRAM@ INSTALL_SCRIPT = @INSTALL_SCRIPT@ INSTALL_STRIP_PROGRAM = @INSTALL_STRIP_PROGRAM@ LD = @LD@ LDFLAGS = @LDFLAGS@ LIBGLADE_CFLAGS = @LIBGLADE_CFLAGS@ LIBGLADE_LIBS = @LIBGLADE_LIBS@ LIBGNOMEUI_CFLAGS = @LIBGNOMEUI_CFLAGS@ LIBGNOMEUI_LIBS = @LIBGNOMEUI_LIBS@ LIBGNOME_CFLAGS = @LIBGNOME_CFLAGS@ LIBGNOME_LIBS = @LIBGNOME_LIBS@ LIBOBJS = @LIBOBJS@ LIBS = @LIBS@ LIBTOOL = @LIBTOOL@ LIPO = @LIPO@ LN_S = @LN_S@ LTLIBOBJS = @LTLIBOBJS@ MAKEINFO = @MAKEINFO@ MANIFEST_TOOL = @MANIFEST_TOOL@ MKDIR_P = @MKDIR_P@ NM = @NM@ NMEDIT = @NMEDIT@ OBJDUMP = @OBJDUMP@ OBJEXT = @OBJEXT@ ORBIT_IDL = @ORBIT_IDL@ OTOOL = @OTOOL@ OTOOL64 = @OTOOL64@ PACKAGE = @PACKAGE@ PACKAGE_BUGREPORT = @PACKAGE_BUGREPORT@ PACKAGE_NAME = @PACKAGE_NAME@ PACKAGE_STRING = @PACKAGE_STRING@ PACKAGE_TARNAME = @PACKAGE_TARNAME@ PACKAGE_URL = @PACKAGE_URL@ PACKAGE_VERSION = @PACKAGE_VERSION@ PANGOCAIRO_CFLAGS = @PANGOCAIRO_CFLAGS@ PANGOCAIRO_LIBS = @PANGOCAIRO_LIBS@ PANGO_CFLAGS = @PANGO_CFLAGS@ PANGO_LIBS = @PANGO_LIBS@ PATH_SEPARATOR = @PATH_SEPARATOR@ PKG_CONFIG = @PKG_CONFIG@ PKG_CONFIG_LIBDIR = @PKG_CONFIG_LIBDIR@ PKG_CONFIG_PATH = @PKG_CONFIG_PATH@ RANLIB = @RANLIB@ SED = @SED@ SET_MAKE = @SET_MAKE@ SHELL = @SHELL@ STRIP = @STRIP@ VERSION = @VERSION@ WARN_CFLAGS = @WARN_CFLAGS@ abs_builddir = @abs_builddir@ abs_srcdir = @abs_srcdir@ abs_top_builddir = @abs_top_builddir@ abs_top_srcdir = @abs_top_srcdir@ ac_ct_AR = @ac_ct_AR@ ac_ct_CC = @ac_ct_CC@ ac_ct_DUMPBIN = @ac_ct_DUMPBIN@ am__include = @am__include@ am__leading_dot = @am__leading_dot@ am__quote = @am__quote@ am__tar = @am__tar@ am__untar = @am__untar@ bindir = @bindir@ build = @build@ build_alias = @build_alias@ build_cpu = @build_cpu@ build_os = @build_os@ build_vendor = @build_vendor@ builddir = @builddir@ datadir = @datadir@ datarootdir = @datarootdir@ docdir = @docdir@ dvidir = @dvidir@ exec_prefix = @exec_prefix@ host = @host@ host_alias = @host_alias@ host_cpu = @host_cpu@ host_os = @host_os@ host_vendor = @host_vendor@ htmldir = @htmldir@ includedir = @includedir@ infodir = @infodir@ install_sh = @install_sh@ libdir = @libdir@ libexecdir = @libexecdir@ localedir = @localedir@ localstatedir = @localstatedir@ mandir = @mandir@ mkdir_p = @mkdir_p@ oldincludedir = @oldincludedir@ pdfdir = @pdfdir@ prefix = @prefix@ program_transform_name = @program_transform_name@ psdir = @psdir@ sbindir = @sbindir@ sharedstatedir = @sharedstatedir@ srcdir = @srcdir@ sysconfdir = @sysconfdir@ target_alias = @target_alias@ top_build_prefix = @top_build_prefix@ top_builddir = @top_builddir@ top_srcdir = @top_srcdir@ guilegnomedir = $(datadir)/guile-gnome-@API_VERSION@ guilemoduledir = $(guilegnomedir)/gnome guilegwmoduledir = $(guilegnomedir)/gnome/gw guilegnomelibdir = $(libdir)/guile-gnome-@API_VERSION@ AM_CFLAGS = -I. -I$(srcdir) $(WARN_CFLAGS) $(DEBUG_CFLAGS) # For overriding from the command line (e.g. --debug) GUILE_FLAGS = SUFFIXES = .x .doc GUILE_SNARF_CFLAGS = $(DEFS) $(AM_CFLAGS) $(GUILE_CFLAGS) $(G_WRAP_CFLAGS) PACKAGES = atk cairo corba defs gconf glib gnome-vfs gtk libglade libgnome libgnomecanvas libgnomeui pango SOURCE_GUILE_PATH = $(shell echo $(addprefix $(top_srcdir)/,$(PACKAGES)) | sed -e 's/ /:/g'):$(srcdir) BUILD_GUILE_PATH = $(if $(filter-out $(top_srcdir),$(top_builddir)),$(shell echo -n $(addprefix $(top_builddir)/,$(PACKAGES)): | sed -e 's/ /:/g'),) GUILE_LOAD_PATH := $(BUILD_GUILE_PATH)$(SOURCE_GUILE_PATH):${G_WRAP_MODULE_DIR}:${GUILE_LOAD_PATH} # Real gnu make foo packages = $(filter-out %-uninstalled,$(patsubst %.pc.in,%,$(notdir $(wildcard $(srcdir)/*.pc.in)))) pcifiles = $(patsubst %,%-@API_VERSION@.pc,$(packages)) pcufiles = $(patsubst %,%-@API_VERSION@-uninstalled.pc,$(packages)) guilegwmodule_DATA = canvas-spec.scm canvas.scm EXTRA_DIST = canvas-spec.scm CLEANFILES = $(wildcard gnome-*.log) $(wildcard \ guile-gnome-gw-canvas.*) canvas.scm # There is one shared library for each wrapset. Each is produced by # g-wrap, but also may contain some hand-coded routines. guilegnomelib_LTLIBRARIES = libgw-guile-gnome-canvas.la ######################################################################## nodist_libgw_guile_gnome_canvas_la_SOURCES = guile-gnome-gw-canvas.c libgw_guile_gnome_canvas_la_SOURCES = \ libgnomecanvas-support.c libgnomecanvas-support.h libgw_guile_gnome_canvas_la_CFLAGS = $(GUILE_GLIB_CFLAGS) \ $(AM_CFLAGS) $(CANVAS_CFLAGS) $(GUILE_CFLAGS) \ $(G_WRAP_CFLAGS) -DGTK_DISABLE_DEPRECATED libgw_guile_gnome_canvas_la_LIBADD = $(CANVAS_LIBS) $(GUILE_GLIB_LIBS) \ $(GUILE_LIBS) $(G_WRAP_LIBS) libgw_guile_gnome_canvas_la_LDFLAGS = -module BUILT_SOURCES = guile-gnome-gw-canvas.c all: $(BUILT_SOURCES) $(MAKE) $(AM_MAKEFLAGS) all-am .SUFFIXES: .SUFFIXES: .x .doc .c .lo .o .obj $(srcdir)/Makefile.in: $(srcdir)/Makefile.am $(top_srcdir)/common.mk $(am__configure_deps) @for dep in $?; do \ case '$(am__configure_deps)' in \ *$$dep*) \ ( cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh ) \ && { if test -f $@; then exit 0; else break; fi; }; \ exit 1;; \ esac; \ done; \ echo ' cd $(top_srcdir) && $(AUTOMAKE) --gnu libgnomecanvas/gnome/gw/Makefile'; \ $(am__cd) $(top_srcdir) && \ $(AUTOMAKE) --gnu libgnomecanvas/gnome/gw/Makefile .PRECIOUS: Makefile Makefile: $(srcdir)/Makefile.in $(top_builddir)/config.status @case '$?' in \ *config.status*) \ cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh;; \ *) \ echo ' cd $(top_builddir) && $(SHELL) ./config.status $(subdir)/$@ $(am__depfiles_maybe)'; \ cd $(top_builddir) && $(SHELL) ./config.status $(subdir)/$@ $(am__depfiles_maybe);; \ esac; $(top_srcdir)/common.mk: $(top_builddir)/config.status: $(top_srcdir)/configure $(CONFIG_STATUS_DEPENDENCIES) cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh $(top_srcdir)/configure: $(am__configure_deps) cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh $(ACLOCAL_M4): $(am__aclocal_m4_deps) cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh $(am__aclocal_m4_deps): install-guilegnomelibLTLIBRARIES: $(guilegnomelib_LTLIBRARIES) @$(NORMAL_INSTALL) @list='$(guilegnomelib_LTLIBRARIES)'; test -n "$(guilegnomelibdir)" || list=; \ list2=; for p in $$list; do \ if test -f $$p; then \ list2="$$list2 $$p"; \ else :; fi; \ done; \ test -z "$$list2" || { \ echo " $(MKDIR_P) '$(DESTDIR)$(guilegnomelibdir)'"; \ $(MKDIR_P) "$(DESTDIR)$(guilegnomelibdir)" || exit 1; \ echo " $(LIBTOOL) $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=install $(INSTALL) $(INSTALL_STRIP_FLAG) $$list2 '$(DESTDIR)$(guilegnomelibdir)'"; \ $(LIBTOOL) $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=install $(INSTALL) $(INSTALL_STRIP_FLAG) $$list2 "$(DESTDIR)$(guilegnomelibdir)"; \ } uninstall-guilegnomelibLTLIBRARIES: @$(NORMAL_UNINSTALL) @list='$(guilegnomelib_LTLIBRARIES)'; test -n "$(guilegnomelibdir)" || list=; \ for p in $$list; do \ $(am__strip_dir) \ echo " $(LIBTOOL) $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=uninstall rm -f '$(DESTDIR)$(guilegnomelibdir)/$$f'"; \ $(LIBTOOL) $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=uninstall rm -f "$(DESTDIR)$(guilegnomelibdir)/$$f"; \ done clean-guilegnomelibLTLIBRARIES: -test -z "$(guilegnomelib_LTLIBRARIES)" || rm -f $(guilegnomelib_LTLIBRARIES) @list='$(guilegnomelib_LTLIBRARIES)'; for p in $$list; do \ dir="`echo $$p | sed -e 's|/[^/]*$$||'`"; \ test "$$dir" != "$$p" || dir=.; \ echo "rm -f \"$${dir}/so_locations\""; \ rm -f "$${dir}/so_locations"; \ done libgw-guile-gnome-canvas.la: $(libgw_guile_gnome_canvas_la_OBJECTS) $(libgw_guile_gnome_canvas_la_DEPENDENCIES) $(EXTRA_libgw_guile_gnome_canvas_la_DEPENDENCIES) $(libgw_guile_gnome_canvas_la_LINK) -rpath $(guilegnomelibdir) $(libgw_guile_gnome_canvas_la_OBJECTS) $(libgw_guile_gnome_canvas_la_LIBADD) $(LIBS) mostlyclean-compile: -rm -f *.$(OBJEXT) distclean-compile: -rm -f *.tab.c @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/libgw_guile_gnome_canvas_la-guile-gnome-gw-canvas.Plo@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/libgw_guile_gnome_canvas_la-libgnomecanvas-support.Plo@am__quote@ .c.o: @am__fastdepCC_TRUE@ $(COMPILE) -MT $@ -MD -MP -MF $(DEPDIR)/$*.Tpo -c -o $@ $< @am__fastdepCC_TRUE@ $(am__mv) $(DEPDIR)/$*.Tpo $(DEPDIR)/$*.Po @AMDEP_TRUE@@am__fastdepCC_FALSE@ source='$<' object='$@' libtool=no @AMDEPBACKSLASH@ @AMDEP_TRUE@@am__fastdepCC_FALSE@ DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@ @am__fastdepCC_FALSE@ $(COMPILE) -c $< .c.obj: @am__fastdepCC_TRUE@ $(COMPILE) -MT $@ -MD -MP -MF $(DEPDIR)/$*.Tpo -c -o $@ `$(CYGPATH_W) '$<'` @am__fastdepCC_TRUE@ $(am__mv) $(DEPDIR)/$*.Tpo $(DEPDIR)/$*.Po @AMDEP_TRUE@@am__fastdepCC_FALSE@ source='$<' object='$@' libtool=no @AMDEPBACKSLASH@ @AMDEP_TRUE@@am__fastdepCC_FALSE@ DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@ @am__fastdepCC_FALSE@ $(COMPILE) -c `$(CYGPATH_W) '$<'` .c.lo: @am__fastdepCC_TRUE@ $(LTCOMPILE) -MT $@ -MD -MP -MF $(DEPDIR)/$*.Tpo -c -o $@ $< @am__fastdepCC_TRUE@ $(am__mv) $(DEPDIR)/$*.Tpo $(DEPDIR)/$*.Plo @AMDEP_TRUE@@am__fastdepCC_FALSE@ source='$<' object='$@' libtool=yes @AMDEPBACKSLASH@ @AMDEP_TRUE@@am__fastdepCC_FALSE@ DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@ @am__fastdepCC_FALSE@ $(LTCOMPILE) -c -o $@ $< libgw_guile_gnome_canvas_la-libgnomecanvas-support.lo: libgnomecanvas-support.c @am__fastdepCC_TRUE@ $(LIBTOOL) --tag=CC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(AM_CPPFLAGS) $(CPPFLAGS) $(libgw_guile_gnome_canvas_la_CFLAGS) $(CFLAGS) -MT libgw_guile_gnome_canvas_la-libgnomecanvas-support.lo -MD -MP -MF $(DEPDIR)/libgw_guile_gnome_canvas_la-libgnomecanvas-support.Tpo -c -o libgw_guile_gnome_canvas_la-libgnomecanvas-support.lo `test -f 'libgnomecanvas-support.c' || echo '$(srcdir)/'`libgnomecanvas-support.c @am__fastdepCC_TRUE@ $(am__mv) $(DEPDIR)/libgw_guile_gnome_canvas_la-libgnomecanvas-support.Tpo $(DEPDIR)/libgw_guile_gnome_canvas_la-libgnomecanvas-support.Plo @AMDEP_TRUE@@am__fastdepCC_FALSE@ source='libgnomecanvas-support.c' object='libgw_guile_gnome_canvas_la-libgnomecanvas-support.lo' libtool=yes @AMDEPBACKSLASH@ @AMDEP_TRUE@@am__fastdepCC_FALSE@ DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@ @am__fastdepCC_FALSE@ $(LIBTOOL) --tag=CC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(AM_CPPFLAGS) $(CPPFLAGS) $(libgw_guile_gnome_canvas_la_CFLAGS) $(CFLAGS) -c -o libgw_guile_gnome_canvas_la-libgnomecanvas-support.lo `test -f 'libgnomecanvas-support.c' || echo '$(srcdir)/'`libgnomecanvas-support.c libgw_guile_gnome_canvas_la-guile-gnome-gw-canvas.lo: guile-gnome-gw-canvas.c @am__fastdepCC_TRUE@ $(LIBTOOL) --tag=CC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(AM_CPPFLAGS) $(CPPFLAGS) $(libgw_guile_gnome_canvas_la_CFLAGS) $(CFLAGS) -MT libgw_guile_gnome_canvas_la-guile-gnome-gw-canvas.lo -MD -MP -MF $(DEPDIR)/libgw_guile_gnome_canvas_la-guile-gnome-gw-canvas.Tpo -c -o libgw_guile_gnome_canvas_la-guile-gnome-gw-canvas.lo `test -f 'guile-gnome-gw-canvas.c' || echo '$(srcdir)/'`guile-gnome-gw-canvas.c @am__fastdepCC_TRUE@ $(am__mv) $(DEPDIR)/libgw_guile_gnome_canvas_la-guile-gnome-gw-canvas.Tpo $(DEPDIR)/libgw_guile_gnome_canvas_la-guile-gnome-gw-canvas.Plo @AMDEP_TRUE@@am__fastdepCC_FALSE@ source='guile-gnome-gw-canvas.c' object='libgw_guile_gnome_canvas_la-guile-gnome-gw-canvas.lo' libtool=yes @AMDEPBACKSLASH@ @AMDEP_TRUE@@am__fastdepCC_FALSE@ DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@ @am__fastdepCC_FALSE@ $(LIBTOOL) --tag=CC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(AM_CPPFLAGS) $(CPPFLAGS) $(libgw_guile_gnome_canvas_la_CFLAGS) $(CFLAGS) -c -o libgw_guile_gnome_canvas_la-guile-gnome-gw-canvas.lo `test -f 'guile-gnome-gw-canvas.c' || echo '$(srcdir)/'`guile-gnome-gw-canvas.c mostlyclean-libtool: -rm -f *.lo clean-libtool: -rm -rf .libs _libs install-guilegwmoduleDATA: $(guilegwmodule_DATA) @$(NORMAL_INSTALL) @list='$(guilegwmodule_DATA)'; test -n "$(guilegwmoduledir)" || list=; \ if test -n "$$list"; then \ echo " $(MKDIR_P) '$(DESTDIR)$(guilegwmoduledir)'"; \ $(MKDIR_P) "$(DESTDIR)$(guilegwmoduledir)" || exit 1; \ fi; \ for p in $$list; do \ if test -f "$$p"; then d=; else d="$(srcdir)/"; fi; \ echo "$$d$$p"; \ done | $(am__base_list) | \ while read files; do \ echo " $(INSTALL_DATA) $$files '$(DESTDIR)$(guilegwmoduledir)'"; \ $(INSTALL_DATA) $$files "$(DESTDIR)$(guilegwmoduledir)" || exit $$?; \ done uninstall-guilegwmoduleDATA: @$(NORMAL_UNINSTALL) @list='$(guilegwmodule_DATA)'; test -n "$(guilegwmoduledir)" || list=; \ files=`for p in $$list; do echo $$p; done | sed -e 's|^.*/||'`; \ dir='$(DESTDIR)$(guilegwmoduledir)'; $(am__uninstall_files_from_dir) ID: $(HEADERS) $(SOURCES) $(LISP) $(TAGS_FILES) list='$(SOURCES) $(HEADERS) $(LISP) $(TAGS_FILES)'; \ unique=`for i in $$list; do \ if test -f "$$i"; then echo $$i; else echo $(srcdir)/$$i; fi; \ done | \ $(AWK) '{ files[$$0] = 1; nonempty = 1; } \ END { if (nonempty) { for (i in files) print i; }; }'`; \ mkid -fID $$unique tags: TAGS TAGS: $(HEADERS) $(SOURCES) $(TAGS_DEPENDENCIES) \ $(TAGS_FILES) $(LISP) set x; \ here=`pwd`; \ list='$(SOURCES) $(HEADERS) $(LISP) $(TAGS_FILES)'; \ unique=`for i in $$list; do \ if test -f "$$i"; then echo $$i; else echo $(srcdir)/$$i; fi; \ done | \ $(AWK) '{ files[$$0] = 1; nonempty = 1; } \ END { if (nonempty) { for (i in files) print i; }; }'`; \ shift; \ if test -z "$(ETAGS_ARGS)$$*$$unique"; then :; else \ test -n "$$unique" || unique=$$empty_fix; \ if test $$# -gt 0; then \ $(ETAGS) $(ETAGSFLAGS) $(AM_ETAGSFLAGS) $(ETAGS_ARGS) \ "$$@" $$unique; \ else \ $(ETAGS) $(ETAGSFLAGS) $(AM_ETAGSFLAGS) $(ETAGS_ARGS) \ $$unique; \ fi; \ fi ctags: CTAGS CTAGS: $(HEADERS) $(SOURCES) $(TAGS_DEPENDENCIES) \ $(TAGS_FILES) $(LISP) list='$(SOURCES) $(HEADERS) $(LISP) $(TAGS_FILES)'; \ unique=`for i in $$list; do \ if test -f "$$i"; then echo $$i; else echo $(srcdir)/$$i; fi; \ done | \ $(AWK) '{ files[$$0] = 1; nonempty = 1; } \ END { if (nonempty) { for (i in files) print i; }; }'`; \ test -z "$(CTAGS_ARGS)$$unique" \ || $(CTAGS) $(CTAGSFLAGS) $(AM_CTAGSFLAGS) $(CTAGS_ARGS) \ $$unique GTAGS: here=`$(am__cd) $(top_builddir) && pwd` \ && $(am__cd) $(top_srcdir) \ && gtags -i $(GTAGS_ARGS) "$$here" distclean-tags: -rm -f TAGS ID GTAGS GRTAGS GSYMS GPATH tags distdir: $(DISTFILES) @srcdirstrip=`echo "$(srcdir)" | sed 's/[].[^$$\\*]/\\\\&/g'`; \ topsrcdirstrip=`echo "$(top_srcdir)" | sed 's/[].[^$$\\*]/\\\\&/g'`; \ list='$(DISTFILES)'; \ dist_files=`for file in $$list; do echo $$file; done | \ sed -e "s|^$$srcdirstrip/||;t" \ -e "s|^$$topsrcdirstrip/|$(top_builddir)/|;t"`; \ case $$dist_files in \ */*) $(MKDIR_P) `echo "$$dist_files" | \ sed '/\//!d;s|^|$(distdir)/|;s,/[^/]*$$,,' | \ sort -u` ;; \ esac; \ for file in $$dist_files; do \ if test -f $$file || test -d $$file; then d=.; else d=$(srcdir); fi; \ if test -d $$d/$$file; then \ dir=`echo "/$$file" | sed -e 's,/[^/]*$$,,'`; \ if test -d "$(distdir)/$$file"; then \ find "$(distdir)/$$file" -type d ! -perm -700 -exec chmod u+rwx {} \;; \ fi; \ if test -d $(srcdir)/$$file && test $$d != $(srcdir); then \ cp -fpR $(srcdir)/$$file "$(distdir)$$dir" || exit 1; \ find "$(distdir)/$$file" -type d ! -perm -700 -exec chmod u+rwx {} \;; \ fi; \ cp -fpR $$d/$$file "$(distdir)$$dir" || exit 1; \ else \ test -f "$(distdir)/$$file" \ || cp -p $$d/$$file "$(distdir)/$$file" \ || exit 1; \ fi; \ done check-am: all-am check: $(BUILT_SOURCES) $(MAKE) $(AM_MAKEFLAGS) check-am all-am: Makefile $(LTLIBRARIES) $(DATA) installdirs: for dir in "$(DESTDIR)$(guilegnomelibdir)" "$(DESTDIR)$(guilegwmoduledir)"; do \ test -z "$$dir" || $(MKDIR_P) "$$dir"; \ done install: $(BUILT_SOURCES) $(MAKE) $(AM_MAKEFLAGS) install-am install-exec: install-exec-am install-data: install-data-am uninstall: uninstall-am install-am: all-am @$(MAKE) $(AM_MAKEFLAGS) install-exec-am install-data-am installcheck: installcheck-am install-strip: if test -z '$(STRIP)'; then \ $(MAKE) $(AM_MAKEFLAGS) INSTALL_PROGRAM="$(INSTALL_STRIP_PROGRAM)" \ install_sh_PROGRAM="$(INSTALL_STRIP_PROGRAM)" INSTALL_STRIP_FLAG=-s \ install; \ else \ $(MAKE) $(AM_MAKEFLAGS) INSTALL_PROGRAM="$(INSTALL_STRIP_PROGRAM)" \ install_sh_PROGRAM="$(INSTALL_STRIP_PROGRAM)" INSTALL_STRIP_FLAG=-s \ "INSTALL_PROGRAM_ENV=STRIPPROG='$(STRIP)'" install; \ fi mostlyclean-generic: clean-generic: -test -z "$(CLEANFILES)" || rm -f $(CLEANFILES) distclean-generic: -test -z "$(CONFIG_CLEAN_FILES)" || rm -f $(CONFIG_CLEAN_FILES) -test . = "$(srcdir)" || test -z "$(CONFIG_CLEAN_VPATH_FILES)" || rm -f $(CONFIG_CLEAN_VPATH_FILES) maintainer-clean-generic: @echo "This command is intended for maintainers to use" @echo "it deletes files that may require special tools to rebuild." -test -z "$(BUILT_SOURCES)" || rm -f $(BUILT_SOURCES) clean: clean-am clean-am: clean-generic clean-guilegnomelibLTLIBRARIES clean-libtool \ mostlyclean-am distclean: distclean-am -rm -rf ./$(DEPDIR) -rm -f Makefile distclean-am: clean-am distclean-compile distclean-generic \ distclean-tags dvi: dvi-am dvi-am: html: html-am html-am: info: info-am info-am: install-data-am: install-guilegnomelibLTLIBRARIES \ install-guilegwmoduleDATA install-dvi: install-dvi-am install-dvi-am: install-exec-am: install-html: install-html-am install-html-am: install-info: install-info-am install-info-am: install-man: install-pdf: install-pdf-am install-pdf-am: install-ps: install-ps-am install-ps-am: installcheck-am: maintainer-clean: maintainer-clean-am -rm -rf ./$(DEPDIR) -rm -f Makefile maintainer-clean-am: distclean-am maintainer-clean-generic mostlyclean: mostlyclean-am mostlyclean-am: mostlyclean-compile mostlyclean-generic \ mostlyclean-libtool pdf: pdf-am pdf-am: ps: ps-am ps-am: uninstall-am: uninstall-guilegnomelibLTLIBRARIES \ uninstall-guilegwmoduleDATA .MAKE: all check install install-am install-strip .PHONY: CTAGS GTAGS all all-am check check-am clean clean-generic \ clean-guilegnomelibLTLIBRARIES clean-libtool ctags distclean \ distclean-compile distclean-generic distclean-libtool \ distclean-tags distdir dvi dvi-am html html-am info info-am \ install install-am install-data install-data-am install-dvi \ install-dvi-am install-exec install-exec-am \ install-guilegnomelibLTLIBRARIES install-guilegwmoduleDATA \ install-html install-html-am install-info install-info-am \ install-man install-pdf install-pdf-am install-ps \ install-ps-am install-strip installcheck installcheck-am \ installdirs maintainer-clean maintainer-clean-generic \ mostlyclean mostlyclean-compile mostlyclean-generic \ mostlyclean-libtool pdf pdf-am ps ps-am tags uninstall \ uninstall-am uninstall-guilegnomelibLTLIBRARIES \ uninstall-guilegwmoduleDATA export GUILE_LOAD_PATH .c.x: guile-snarf $(GUILE_SNARF_CFLAGS) $< > $@ \ || { rm $@; false; } .c.doc: $(CPP) -DSCM_MAGIC_SNARF_DOCS $(GUILE_SNARF_CFLAGS) $< \ | grep -E '(\^\^ {|\^\^ })' > $@ || { rm $@; false; } %.scm guile-gnome-gw-%.c: %-spec.scm guile $(GUILE_FLAGS) -c \ "(debug-set! stack 400000) \ (use-modules (gnome-@API_VERSION@)) \ (use-modules (g-wrap)) \ (use-modules (gnome gw $*-spec)) \ (generate-wrapset 'guile 'gnome-$* \"guile-gnome-gw-$*\")" mv guile-gnome-gw-$*.scm $*.scm %-@API_VERSION@.pc: %.pc cp $< $@ %-@API_VERSION@-uninstalled.pc: %-uninstalled.pc cp $< $@ # Tell versions [3.59,3.63) of GNU make to not export all variables. # Otherwise a system limit (for SysV at least) may be exceeded. .NOEXPORT: guile-gnome-platform-2.16.2/libgnomecanvas/gnome/gw/libgnomecanvas-support.h0000644000175000017500000000326411671226161027561 0ustar00wingowingo00000000000000/* guile-gnome * * Copyright (C) 2004 Jan Nieuwenhuizen * * This program is free software; you can redistribute it and/or * modify it under the terms of the GNU General Public License as * published by the Free Software Foundation; either version 2 of * the License, or (at your option) any later version. * * This program is distributed in the hope that it will be useful, * but WITHOUT ANY WARRANTY; without even the implied warranty of * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the * GNU General Public License for more details. * * You should have received a copy of the GNU General Public License * along with this program; if not, contact: * * Free Software Foundation Voice: +1-617-542-5942 * 59 Temple Place - Suite 330 Fax: +1-617-542-2652 * Boston, MA 02111-1307, USA gnu@gnu.org * * Based on work Copyright (C) 2003 James Henstridge */ #ifndef LIBGNOMECANVAS_SUPPORT_H #define LIBGNOMECANVAS_SUPPORT_H void _wrap_gnome_canvas_item_affine_absolute (GnomeCanvasItem *item, double x1, double y1, double x2, double y2, double x3, double y3); void _wrap_gnome_canvas_item_affine_relative (GnomeCanvasItem *item, double x1, double y1, double x2, double y2, double x3, double y3); GnomeCanvasPoints *guile_gnome_scm_to_canvas_points (SCM scm); SCM guile_gnome_canvas_points_to_scm (GnomeCanvasPoints *points); #endif /* LIBGNOMECANVAS_SUPPORT_H */ guile-gnome-platform-2.16.2/libgnomecanvas/gnome/gw/canvas-spec.scm0000644000175000017500000000462211670716410025614 0ustar00wingowingo00000000000000;; guile-gnome ;; Copyright (C) 2004 Jan Nieuwenhuizen ;; Andy Wingo ;; This program is free software; you can redistribute it and/or ;; modify it under the terms of the GNU General Public License as ;; published by the Free Software Foundation; either version 2 of ;; the License, or (at your option) any later version. ;; ;; This program is distributed in the hope that it will be useful, ;; but WITHOUT ANY WARRANTY; without even the implied warranty of ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the ;; GNU General Public License for more details. ;; ;; You should have received a copy of the GNU General Public License ;; along with this program; if not, contact: ;; ;; Free Software Foundation Voice: +1-617-542-5942 ;; 59 Temple Place - Suite 330 Fax: +1-617-542-2652 ;; Boston, MA 02111-1307, USA gnu@gnu.org ;;; Commentary: ;; ;;g-wrap specification for libgnomecanvas. ;; ;;; Code: (define-module (gnome gw canvas-spec) #:use-module (oop goops) #:use-module (gnome gw support g-wrap) #:use-module (gnome gw glib-spec) #:use-module (gnome gw gobject-spec) #:use-module (gnome gw gtk-spec) #:use-module (gnome gw support gobject) #:use-module (gnome gw support defs)) (define-class () #:id 'gnome-canvas #:dependencies '(standard gnome-glib gnome-gobject gnome-gdk gnome-gtk)) (define-method (global-declarations-cg (self )) (list (next-method) "#include \n" "#include \n" "#include \n" "#include \n" "#include \"libgnomecanvas-support.h\"\n")) (define-method (initialize (ws ) initargs) (next-method ws (cons #:module (cons '(gnome gw canvas) initargs))) (wrap-custom-boxed! "GnomeCanvasPoints" "GNOME_TYPE_CANVAS_POINTS" ;; wrap (list scm-var " = " c-var " ? guile_gnome_canvas_points_to_scm (" c-var ") : SCM_BOOL_F;\n") ;; unwrap (list c-var " = guile_gnome_scm_to_canvas_points (" scm-var ");\n")) (load-defs-with-overrides ws "gnome/defs/libgnomecanvas.defs")) guile-gnome-platform-2.16.2/libgnomecanvas/gnome/gw/libgnomecanvas-support.c0000644000175000017500000000711111671226161027547 0ustar00wingowingo00000000000000/* guile-gnome * Copyright (C) 2004, 2009 Jan Nieuwenhuizen * * libgnomecanvas-support.c: Customizations for guile-libgnomecanvas * * This program is free software; you can redistribute it and/or * modify it under the terms of the GNU General Public License as * published by the Free Software Foundation; either version 2 of * the License, or (at your option) any later version. * * This program is distributed in the hope that it will be useful, * but WITHOUT ANY WARRANTY; without even the implied warranty of * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the * GNU General Public License for more details. * * You should have received a copy of the GNU General Public License * along with this program; if not, contact: * * Free Software Foundation Voice: +1-617-542-5942 * 59 Temple Place - Suite 330 Fax: +1-617-542-2652 * Boston, MA 02111-1307, USA gnu@gnu.org * * Based on work Copyright (C) 2003 James Henstridge */ #include #include #include #include "guile-gnome-gobject.h" #include #include "libgnomecanvas-support.h" static double* fill_affine (double affine[6], double x1, double y1, double x2, double y2, double x3, double y3) { affine[0] = x1; affine[1] = y1; affine[2] = x2; affine[3] = y2; affine[4] = x3; affine[5] = y3; return affine; } void _wrap_gnome_canvas_item_affine_absolute (GnomeCanvasItem *item, double x1, double y1, double x2, double y2, double x3, double y3) #define FUNC_NAME "gnome-canvas-item-affine-absolute" { double affine[6]; gnome_canvas_item_affine_absolute (item, fill_affine (affine, x1, y1, x2, y2, x3, y3)); } #undef FUNC_NAME void _wrap_gnome_canvas_item_affine_relative (GnomeCanvasItem *item, double x1, double y1, double x2, double y2, double x3, double y3) #define FUNC_NAME "gnome-canvas-item-affine-relative" { double affine[6]; gnome_canvas_item_affine_relative (item, fill_affine (affine, x1, y1, x2, y2, x3, y3)); } #undef FUNC_NAME /* typedef struct { double *coords; int num_points; int ref_count; } GnomeCanvasPoints; */ GnomeCanvasPoints * guile_gnome_scm_to_canvas_points (SCM scm) #define FUNC_NAME "guile-gnome-scm-to-canvas-points" { GnomeCanvasPoints *points = NULL; if (scm_vector_p (scm) == SCM_BOOL_T) { int length = scm_c_vector_length (scm); int i; points = gnome_canvas_points_new (length); for (i = 0; i < length; i++) { SCM s = scm_c_vector_ref (scm, i); /* Just return NULL? */ SCM_ASSERT_TYPE (scm_is_number (s), s, SCM_ARG1, FUNC_NAME, "points"); (points->coords)[i] = scm_to_double (s); } } else if (SCM_GVALUEP (scm)) { /* We have to cater for GValue, because the code that takes a marshalled GValue doesn't know how to convert that into a scm */ GValue *value; SCM_VALIDATE_GVALUE_TYPE_COPY (1, scm, GNOME_TYPE_CANVAS_POINTS, value); points = g_value_dup_boxed (value); } return points; } #undef FUNC_NAME SCM guile_gnome_canvas_points_to_scm (GnomeCanvasPoints *points) { int i; SCM scm = scm_make_vector (scm_from_int (points->num_points), scm_from_int (0)); for (i = 0; i < points->num_points; i++) scm_vector_set_x (scm, scm_from_int (i), scm_from_double ((points->coords)[i])); return scm; } guile-gnome-platform-2.16.2/libgnomecanvas/gnome/Makefile.am0000644000175000017500000000030211670374303024314 0ustar00wingowingo00000000000000include $(top_srcdir)/common.mk SUBDIRS = overrides guilemodule_DATA = if HAVE_CANVAS guilemodule_DATA += canvas.scm SUBDIRS += gw endif EXTRA_DIST = canvas.scm DIST_SUBDIRS = gw overrides guile-gnome-platform-2.16.2/libgnomecanvas/gnome/Makefile.in0000644000175000017500000005750111752520704024341 0ustar00wingowingo00000000000000# Makefile.in generated by automake 1.11.5 from Makefile.am. # @configure_input@ # Copyright (C) 1994, 1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, # 2003, 2004, 2005, 2006, 2007, 2008, 2009, 2010, 2011 Free Software # Foundation, Inc. # This Makefile.in is free software; the Free Software Foundation # gives unlimited permission to copy and/or distribute it, # with or without modifications, as long as this notice is preserved. # This program is distributed in the hope that it will be useful, # but WITHOUT ANY WARRANTY, to the extent permitted by law; without # even the implied warranty of MERCHANTABILITY or FITNESS FOR A # PARTICULAR PURPOSE. @SET_MAKE@ # guile-gnome # Copyright (C) 2003,2004,2009,2012 Free Software Foundation, Inc. # This program is free software; you can redistribute it and/or # modify it under the terms of the GNU General Public License as # published by the Free Software Foundation; either version 2 of # the License, or (at your option) any later version. # This program is distributed in the hope that it will be useful, # but WITHOUT ANY WARRANTY; without even the implied warranty of # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the # GNU General Public License for more details. # You should have received a copy of the GNU General Public License # along with this program; if not, contact: # Free Software Foundation Voice: +1-617-542-5942 # 59 Temple Place - Suite 330 Fax: +1-617-542-2652 # Boston, MA 02111-1307, USA gnu@gnu.org # # Makefile snippet # VPATH = @srcdir@ am__make_dryrun = \ { \ am__dry=no; \ case $$MAKEFLAGS in \ *\\[\ \ ]*) \ echo 'am--echo: ; @echo "AM" OK' | $(MAKE) -f - 2>/dev/null \ | grep '^AM OK$$' >/dev/null || am__dry=yes;; \ *) \ for am__flg in $$MAKEFLAGS; do \ case $$am__flg in \ *=*|--*) ;; \ *n*) am__dry=yes; break;; \ esac; \ done;; \ esac; \ test $$am__dry = yes; \ } pkgdatadir = $(datadir)/@PACKAGE@ pkgincludedir = $(includedir)/@PACKAGE@ pkglibdir = $(libdir)/@PACKAGE@ pkglibexecdir = $(libexecdir)/@PACKAGE@ am__cd = CDPATH="$${ZSH_VERSION+.}$(PATH_SEPARATOR)" && cd install_sh_DATA = $(install_sh) -c -m 644 install_sh_PROGRAM = $(install_sh) -c install_sh_SCRIPT = $(install_sh) -c INSTALL_HEADER = $(INSTALL_DATA) transform = $(program_transform_name) NORMAL_INSTALL = : PRE_INSTALL = : POST_INSTALL = : NORMAL_UNINSTALL = : PRE_UNINSTALL = : POST_UNINSTALL = : build_triplet = @build@ host_triplet = @host@ DIST_COMMON = $(srcdir)/Makefile.am $(srcdir)/Makefile.in \ $(top_srcdir)/common.mk @HAVE_CANVAS_TRUE@am__append_1 = canvas.scm @HAVE_CANVAS_TRUE@am__append_2 = gw subdir = libgnomecanvas/gnome ACLOCAL_M4 = $(top_srcdir)/aclocal.m4 am__aclocal_m4_deps = $(top_srcdir)/configure.ac am__configure_deps = $(am__aclocal_m4_deps) $(CONFIGURE_DEPENDENCIES) \ $(ACLOCAL_M4) mkinstalldirs = $(install_sh) -d CONFIG_HEADER = $(top_builddir)/config.h CONFIG_CLEAN_FILES = CONFIG_CLEAN_VPATH_FILES = SOURCES = DIST_SOURCES = RECURSIVE_TARGETS = all-recursive check-recursive dvi-recursive \ html-recursive info-recursive install-data-recursive \ install-dvi-recursive install-exec-recursive \ install-html-recursive install-info-recursive \ install-pdf-recursive install-ps-recursive install-recursive \ installcheck-recursive installdirs-recursive pdf-recursive \ ps-recursive uninstall-recursive am__can_run_installinfo = \ case $$AM_UPDATE_INFO_DIR in \ n|no|NO) false;; \ *) (install-info --version) >/dev/null 2>&1;; \ esac am__vpath_adj_setup = srcdirstrip=`echo "$(srcdir)" | sed 's|.|.|g'`; am__vpath_adj = case $$p in \ $(srcdir)/*) f=`echo "$$p" | sed "s|^$$srcdirstrip/||"`;; \ *) f=$$p;; \ esac; am__strip_dir = f=`echo $$p | sed -e 's|^.*/||'`; am__install_max = 40 am__nobase_strip_setup = \ srcdirstrip=`echo "$(srcdir)" | sed 's/[].[^$$\\*|]/\\\\&/g'` am__nobase_strip = \ for p in $$list; do echo "$$p"; done | sed -e "s|$$srcdirstrip/||" am__nobase_list = $(am__nobase_strip_setup); \ for p in $$list; do echo "$$p $$p"; done | \ sed "s| $$srcdirstrip/| |;"' / .*\//!s/ .*/ ./; s,\( .*\)/[^/]*$$,\1,' | \ $(AWK) 'BEGIN { files["."] = "" } { files[$$2] = files[$$2] " " $$1; \ if (++n[$$2] == $(am__install_max)) \ { print $$2, files[$$2]; n[$$2] = 0; files[$$2] = "" } } \ END { for (dir in files) print dir, files[dir] }' am__base_list = \ sed '$$!N;$$!N;$$!N;$$!N;$$!N;$$!N;$$!N;s/\n/ /g' | \ sed '$$!N;$$!N;$$!N;$$!N;s/\n/ /g' am__uninstall_files_from_dir = { \ test -z "$$files" \ || { test ! -d "$$dir" && test ! -f "$$dir" && test ! -r "$$dir"; } \ || { echo " ( cd '$$dir' && rm -f" $$files ")"; \ $(am__cd) "$$dir" && rm -f $$files; }; \ } am__installdirs = "$(DESTDIR)$(guilemoduledir)" DATA = $(guilemodule_DATA) RECURSIVE_CLEAN_TARGETS = mostlyclean-recursive clean-recursive \ distclean-recursive maintainer-clean-recursive AM_RECURSIVE_TARGETS = $(RECURSIVE_TARGETS:-recursive=) \ $(RECURSIVE_CLEAN_TARGETS:-recursive=) tags TAGS ctags CTAGS \ distdir ETAGS = etags CTAGS = ctags DISTFILES = $(DIST_COMMON) $(DIST_SOURCES) $(TEXINFOS) $(EXTRA_DIST) am__relativize = \ dir0=`pwd`; \ sed_first='s,^\([^/]*\)/.*$$,\1,'; \ sed_rest='s,^[^/]*/*,,'; \ sed_last='s,^.*/\([^/]*\)$$,\1,'; \ sed_butlast='s,/*[^/]*$$,,'; \ while test -n "$$dir1"; do \ first=`echo "$$dir1" | sed -e "$$sed_first"`; \ if test "$$first" != "."; then \ if test "$$first" = ".."; then \ dir2=`echo "$$dir0" | sed -e "$$sed_last"`/"$$dir2"; \ dir0=`echo "$$dir0" | sed -e "$$sed_butlast"`; \ else \ first2=`echo "$$dir2" | sed -e "$$sed_first"`; \ if test "$$first2" = "$$first"; then \ dir2=`echo "$$dir2" | sed -e "$$sed_rest"`; \ else \ dir2="../$$dir2"; \ fi; \ dir0="$$dir0"/"$$first"; \ fi; \ fi; \ dir1=`echo "$$dir1" | sed -e "$$sed_rest"`; \ done; \ reldir="$$dir2" ACLOCAL = @ACLOCAL@ AG_PKG_CONFIG_PATH = @AG_PKG_CONFIG_PATH@ AMTAR = @AMTAR@ API_VERSION = @API_VERSION@ AR = @AR@ ATK_CFLAGS = @ATK_CFLAGS@ ATK_LIBS = @ATK_LIBS@ AUTOCONF = @AUTOCONF@ AUTOHEADER = @AUTOHEADER@ AUTOMAKE = @AUTOMAKE@ AWK = @AWK@ BONOBO_IDL_DIR = @BONOBO_IDL_DIR@ CANVAS_CFLAGS = @CANVAS_CFLAGS@ CANVAS_LIBS = @CANVAS_LIBS@ CC = @CC@ CCDEPMODE = @CCDEPMODE@ CFLAGS = @CFLAGS@ CORBA_CFLAGS = @CORBA_CFLAGS@ CORBA_LIBS = @CORBA_LIBS@ CPP = @CPP@ CPPFLAGS = @CPPFLAGS@ CYGPATH_W = @CYGPATH_W@ DEFS = @DEFS@ DEPDIR = @DEPDIR@ DLLTOOL = @DLLTOOL@ DSYMUTIL = @DSYMUTIL@ DUMPBIN = @DUMPBIN@ ECHO_C = @ECHO_C@ ECHO_N = @ECHO_N@ ECHO_T = @ECHO_T@ EGREP = @EGREP@ EXEEXT = @EXEEXT@ FGREP = @FGREP@ GCONF_CFLAGS = @GCONF_CFLAGS@ GCONF_LIBS = @GCONF_LIBS@ GDK_CFLAGS = @GDK_CFLAGS@ GDK_LIBS = @GDK_LIBS@ GDK_PIXBUF_CFLAGS = @GDK_PIXBUF_CFLAGS@ GDK_PIXBUF_LIBS = @GDK_PIXBUF_LIBS@ GLIB_CFLAGS = @GLIB_CFLAGS@ GLIB_LIBS = @GLIB_LIBS@ GNOMEUI_DEPRECATION_FLAGS = @GNOMEUI_DEPRECATION_FLAGS@ GNOME_VFS_CFLAGS = @GNOME_VFS_CFLAGS@ GNOME_VFS_DEPRECATED_CFLAGS = @GNOME_VFS_DEPRECATED_CFLAGS@ GNOME_VFS_LIBS = @GNOME_VFS_LIBS@ GOBJECT_CFLAGS = @GOBJECT_CFLAGS@ GOBJECT_LIBS = @GOBJECT_LIBS@ GREP = @GREP@ GTHREAD_CFLAGS = @GTHREAD_CFLAGS@ GTHREAD_LIBS = @GTHREAD_LIBS@ GTK_CFLAGS = @GTK_CFLAGS@ GTK_DEPRECATED_CFLAGS = @GTK_DEPRECATED_CFLAGS@ GTK_LIBS = @GTK_LIBS@ GUILE_CAIRO_CFLAGS = @GUILE_CAIRO_CFLAGS@ GUILE_CAIRO_LIBS = @GUILE_CAIRO_LIBS@ GUILE_CFLAGS = @GUILE_CFLAGS@ GUILE_EFFECTIVE_VERSION = @GUILE_EFFECTIVE_VERSION@ GUILE_GLIB_CFLAGS = @GUILE_GLIB_CFLAGS@ GUILE_GLIB_LIBS = @GUILE_GLIB_LIBS@ GUILE_LIBS = @GUILE_LIBS@ G_WRAP_CFLAGS = @G_WRAP_CFLAGS@ G_WRAP_LIBS = @G_WRAP_LIBS@ G_WRAP_LIB_DIR = @G_WRAP_LIB_DIR@ G_WRAP_MODULE_DIR = @G_WRAP_MODULE_DIR@ INSTALL = @INSTALL@ INSTALL_DATA = @INSTALL_DATA@ INSTALL_PROGRAM = @INSTALL_PROGRAM@ INSTALL_SCRIPT = @INSTALL_SCRIPT@ INSTALL_STRIP_PROGRAM = @INSTALL_STRIP_PROGRAM@ LD = @LD@ LDFLAGS = @LDFLAGS@ LIBGLADE_CFLAGS = @LIBGLADE_CFLAGS@ LIBGLADE_LIBS = @LIBGLADE_LIBS@ LIBGNOMEUI_CFLAGS = @LIBGNOMEUI_CFLAGS@ LIBGNOMEUI_LIBS = @LIBGNOMEUI_LIBS@ LIBGNOME_CFLAGS = @LIBGNOME_CFLAGS@ LIBGNOME_LIBS = @LIBGNOME_LIBS@ LIBOBJS = @LIBOBJS@ LIBS = @LIBS@ LIBTOOL = @LIBTOOL@ LIPO = @LIPO@ LN_S = @LN_S@ LTLIBOBJS = @LTLIBOBJS@ MAKEINFO = @MAKEINFO@ MANIFEST_TOOL = @MANIFEST_TOOL@ MKDIR_P = @MKDIR_P@ NM = @NM@ NMEDIT = @NMEDIT@ OBJDUMP = @OBJDUMP@ OBJEXT = @OBJEXT@ ORBIT_IDL = @ORBIT_IDL@ OTOOL = @OTOOL@ OTOOL64 = @OTOOL64@ PACKAGE = @PACKAGE@ PACKAGE_BUGREPORT = @PACKAGE_BUGREPORT@ PACKAGE_NAME = @PACKAGE_NAME@ PACKAGE_STRING = @PACKAGE_STRING@ PACKAGE_TARNAME = @PACKAGE_TARNAME@ PACKAGE_URL = @PACKAGE_URL@ PACKAGE_VERSION = @PACKAGE_VERSION@ PANGOCAIRO_CFLAGS = @PANGOCAIRO_CFLAGS@ PANGOCAIRO_LIBS = @PANGOCAIRO_LIBS@ PANGO_CFLAGS = @PANGO_CFLAGS@ PANGO_LIBS = @PANGO_LIBS@ PATH_SEPARATOR = @PATH_SEPARATOR@ PKG_CONFIG = @PKG_CONFIG@ PKG_CONFIG_LIBDIR = @PKG_CONFIG_LIBDIR@ PKG_CONFIG_PATH = @PKG_CONFIG_PATH@ RANLIB = @RANLIB@ SED = @SED@ SET_MAKE = @SET_MAKE@ SHELL = @SHELL@ STRIP = @STRIP@ VERSION = @VERSION@ WARN_CFLAGS = @WARN_CFLAGS@ abs_builddir = @abs_builddir@ abs_srcdir = @abs_srcdir@ abs_top_builddir = @abs_top_builddir@ abs_top_srcdir = @abs_top_srcdir@ ac_ct_AR = @ac_ct_AR@ ac_ct_CC = @ac_ct_CC@ ac_ct_DUMPBIN = @ac_ct_DUMPBIN@ am__include = @am__include@ am__leading_dot = @am__leading_dot@ am__quote = @am__quote@ am__tar = @am__tar@ am__untar = @am__untar@ bindir = @bindir@ build = @build@ build_alias = @build_alias@ build_cpu = @build_cpu@ build_os = @build_os@ build_vendor = @build_vendor@ builddir = @builddir@ datadir = @datadir@ datarootdir = @datarootdir@ docdir = @docdir@ dvidir = @dvidir@ exec_prefix = @exec_prefix@ host = @host@ host_alias = @host_alias@ host_cpu = @host_cpu@ host_os = @host_os@ host_vendor = @host_vendor@ htmldir = @htmldir@ includedir = @includedir@ infodir = @infodir@ install_sh = @install_sh@ libdir = @libdir@ libexecdir = @libexecdir@ localedir = @localedir@ localstatedir = @localstatedir@ mandir = @mandir@ mkdir_p = @mkdir_p@ oldincludedir = @oldincludedir@ pdfdir = @pdfdir@ prefix = @prefix@ program_transform_name = @program_transform_name@ psdir = @psdir@ sbindir = @sbindir@ sharedstatedir = @sharedstatedir@ srcdir = @srcdir@ sysconfdir = @sysconfdir@ target_alias = @target_alias@ top_build_prefix = @top_build_prefix@ top_builddir = @top_builddir@ top_srcdir = @top_srcdir@ guilegnomedir = $(datadir)/guile-gnome-@API_VERSION@ guilemoduledir = $(guilegnomedir)/gnome guilegwmoduledir = $(guilegnomedir)/gnome/gw guilegnomelibdir = $(libdir)/guile-gnome-@API_VERSION@ AM_CFLAGS = -I. -I$(srcdir) $(WARN_CFLAGS) $(DEBUG_CFLAGS) # For overriding from the command line (e.g. --debug) GUILE_FLAGS = SUFFIXES = .x .doc GUILE_SNARF_CFLAGS = $(DEFS) $(AM_CFLAGS) $(GUILE_CFLAGS) $(G_WRAP_CFLAGS) PACKAGES = atk cairo corba defs gconf glib gnome-vfs gtk libglade libgnome libgnomecanvas libgnomeui pango SOURCE_GUILE_PATH = $(shell echo $(addprefix $(top_srcdir)/,$(PACKAGES)) | sed -e 's/ /:/g'):$(srcdir) BUILD_GUILE_PATH = $(if $(filter-out $(top_srcdir),$(top_builddir)),$(shell echo -n $(addprefix $(top_builddir)/,$(PACKAGES)): | sed -e 's/ /:/g'),) GUILE_LOAD_PATH := $(BUILD_GUILE_PATH)$(SOURCE_GUILE_PATH):${G_WRAP_MODULE_DIR}:${GUILE_LOAD_PATH} # Real gnu make foo packages = $(filter-out %-uninstalled,$(patsubst %.pc.in,%,$(notdir $(wildcard $(srcdir)/*.pc.in)))) pcifiles = $(patsubst %,%-@API_VERSION@.pc,$(packages)) pcufiles = $(patsubst %,%-@API_VERSION@-uninstalled.pc,$(packages)) SUBDIRS = overrides $(am__append_2) guilemodule_DATA = $(am__append_1) EXTRA_DIST = canvas.scm DIST_SUBDIRS = gw overrides all: all-recursive .SUFFIXES: .SUFFIXES: .x .doc .c $(srcdir)/Makefile.in: $(srcdir)/Makefile.am $(top_srcdir)/common.mk $(am__configure_deps) @for dep in $?; do \ case '$(am__configure_deps)' in \ *$$dep*) \ ( cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh ) \ && { if test -f $@; then exit 0; else break; fi; }; \ exit 1;; \ esac; \ done; \ echo ' cd $(top_srcdir) && $(AUTOMAKE) --gnu libgnomecanvas/gnome/Makefile'; \ $(am__cd) $(top_srcdir) && \ $(AUTOMAKE) --gnu libgnomecanvas/gnome/Makefile .PRECIOUS: Makefile Makefile: $(srcdir)/Makefile.in $(top_builddir)/config.status @case '$?' in \ *config.status*) \ cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh;; \ *) \ echo ' cd $(top_builddir) && $(SHELL) ./config.status $(subdir)/$@ $(am__depfiles_maybe)'; \ cd $(top_builddir) && $(SHELL) ./config.status $(subdir)/$@ $(am__depfiles_maybe);; \ esac; $(top_srcdir)/common.mk: $(top_builddir)/config.status: $(top_srcdir)/configure $(CONFIG_STATUS_DEPENDENCIES) cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh $(top_srcdir)/configure: $(am__configure_deps) cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh $(ACLOCAL_M4): $(am__aclocal_m4_deps) cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh $(am__aclocal_m4_deps): mostlyclean-libtool: -rm -f *.lo clean-libtool: -rm -rf .libs _libs install-guilemoduleDATA: $(guilemodule_DATA) @$(NORMAL_INSTALL) @list='$(guilemodule_DATA)'; test -n "$(guilemoduledir)" || list=; \ if test -n "$$list"; then \ echo " $(MKDIR_P) '$(DESTDIR)$(guilemoduledir)'"; \ $(MKDIR_P) "$(DESTDIR)$(guilemoduledir)" || exit 1; \ fi; \ for p in $$list; do \ if test -f "$$p"; then d=; else d="$(srcdir)/"; fi; \ echo "$$d$$p"; \ done | $(am__base_list) | \ while read files; do \ echo " $(INSTALL_DATA) $$files '$(DESTDIR)$(guilemoduledir)'"; \ $(INSTALL_DATA) $$files "$(DESTDIR)$(guilemoduledir)" || exit $$?; \ done uninstall-guilemoduleDATA: @$(NORMAL_UNINSTALL) @list='$(guilemodule_DATA)'; test -n "$(guilemoduledir)" || list=; \ files=`for p in $$list; do echo $$p; done | sed -e 's|^.*/||'`; \ dir='$(DESTDIR)$(guilemoduledir)'; $(am__uninstall_files_from_dir) # This directory's subdirectories are mostly independent; you can cd # into them and run `make' without going through this Makefile. # To change the values of `make' variables: instead of editing Makefiles, # (1) if the variable is set in `config.status', edit `config.status' # (which will cause the Makefiles to be regenerated when you run `make'); # (2) otherwise, pass the desired values on the `make' command line. $(RECURSIVE_TARGETS): @fail= failcom='exit 1'; \ for f in x $$MAKEFLAGS; do \ case $$f in \ *=* | --[!k]*);; \ *k*) failcom='fail=yes';; \ esac; \ done; \ dot_seen=no; \ target=`echo $@ | sed s/-recursive//`; \ list='$(SUBDIRS)'; for subdir in $$list; do \ echo "Making $$target in $$subdir"; \ if test "$$subdir" = "."; then \ dot_seen=yes; \ local_target="$$target-am"; \ else \ local_target="$$target"; \ fi; \ ($(am__cd) $$subdir && $(MAKE) $(AM_MAKEFLAGS) $$local_target) \ || eval $$failcom; \ done; \ if test "$$dot_seen" = "no"; then \ $(MAKE) $(AM_MAKEFLAGS) "$$target-am" || exit 1; \ fi; test -z "$$fail" $(RECURSIVE_CLEAN_TARGETS): @fail= failcom='exit 1'; \ for f in x $$MAKEFLAGS; do \ case $$f in \ *=* | --[!k]*);; \ *k*) failcom='fail=yes';; \ esac; \ done; \ dot_seen=no; \ case "$@" in \ distclean-* | maintainer-clean-*) list='$(DIST_SUBDIRS)' ;; \ *) list='$(SUBDIRS)' ;; \ esac; \ rev=''; for subdir in $$list; do \ if test "$$subdir" = "."; then :; else \ rev="$$subdir $$rev"; \ fi; \ done; \ rev="$$rev ."; \ target=`echo $@ | sed s/-recursive//`; \ for subdir in $$rev; do \ echo "Making $$target in $$subdir"; \ if test "$$subdir" = "."; then \ local_target="$$target-am"; \ else \ local_target="$$target"; \ fi; \ ($(am__cd) $$subdir && $(MAKE) $(AM_MAKEFLAGS) $$local_target) \ || eval $$failcom; \ done && test -z "$$fail" tags-recursive: list='$(SUBDIRS)'; for subdir in $$list; do \ test "$$subdir" = . || ($(am__cd) $$subdir && $(MAKE) $(AM_MAKEFLAGS) tags); \ done ctags-recursive: list='$(SUBDIRS)'; for subdir in $$list; do \ test "$$subdir" = . || ($(am__cd) $$subdir && $(MAKE) $(AM_MAKEFLAGS) ctags); \ done ID: $(HEADERS) $(SOURCES) $(LISP) $(TAGS_FILES) list='$(SOURCES) $(HEADERS) $(LISP) $(TAGS_FILES)'; \ unique=`for i in $$list; do \ if test -f "$$i"; then echo $$i; else echo $(srcdir)/$$i; fi; \ done | \ $(AWK) '{ files[$$0] = 1; nonempty = 1; } \ END { if (nonempty) { for (i in files) print i; }; }'`; \ mkid -fID $$unique tags: TAGS TAGS: tags-recursive $(HEADERS) $(SOURCES) $(TAGS_DEPENDENCIES) \ $(TAGS_FILES) $(LISP) set x; \ here=`pwd`; \ if ($(ETAGS) --etags-include --version) >/dev/null 2>&1; then \ include_option=--etags-include; \ empty_fix=.; \ else \ include_option=--include; \ empty_fix=; \ fi; \ list='$(SUBDIRS)'; for subdir in $$list; do \ if test "$$subdir" = .; then :; else \ test ! -f $$subdir/TAGS || \ set "$$@" "$$include_option=$$here/$$subdir/TAGS"; \ fi; \ done; \ list='$(SOURCES) $(HEADERS) $(LISP) $(TAGS_FILES)'; \ unique=`for i in $$list; do \ if test -f "$$i"; then echo $$i; else echo $(srcdir)/$$i; fi; \ done | \ $(AWK) '{ files[$$0] = 1; nonempty = 1; } \ END { if (nonempty) { for (i in files) print i; }; }'`; \ shift; \ if test -z "$(ETAGS_ARGS)$$*$$unique"; then :; else \ test -n "$$unique" || unique=$$empty_fix; \ if test $$# -gt 0; then \ $(ETAGS) $(ETAGSFLAGS) $(AM_ETAGSFLAGS) $(ETAGS_ARGS) \ "$$@" $$unique; \ else \ $(ETAGS) $(ETAGSFLAGS) $(AM_ETAGSFLAGS) $(ETAGS_ARGS) \ $$unique; \ fi; \ fi ctags: CTAGS CTAGS: ctags-recursive $(HEADERS) $(SOURCES) $(TAGS_DEPENDENCIES) \ $(TAGS_FILES) $(LISP) list='$(SOURCES) $(HEADERS) $(LISP) $(TAGS_FILES)'; \ unique=`for i in $$list; do \ if test -f "$$i"; then echo $$i; else echo $(srcdir)/$$i; fi; \ done | \ $(AWK) '{ files[$$0] = 1; nonempty = 1; } \ END { if (nonempty) { for (i in files) print i; }; }'`; \ test -z "$(CTAGS_ARGS)$$unique" \ || $(CTAGS) $(CTAGSFLAGS) $(AM_CTAGSFLAGS) $(CTAGS_ARGS) \ $$unique GTAGS: here=`$(am__cd) $(top_builddir) && pwd` \ && $(am__cd) $(top_srcdir) \ && gtags -i $(GTAGS_ARGS) "$$here" distclean-tags: -rm -f TAGS ID GTAGS GRTAGS GSYMS GPATH tags distdir: $(DISTFILES) @srcdirstrip=`echo "$(srcdir)" | sed 's/[].[^$$\\*]/\\\\&/g'`; \ topsrcdirstrip=`echo "$(top_srcdir)" | sed 's/[].[^$$\\*]/\\\\&/g'`; \ list='$(DISTFILES)'; \ dist_files=`for file in $$list; do echo $$file; done | \ sed -e "s|^$$srcdirstrip/||;t" \ -e "s|^$$topsrcdirstrip/|$(top_builddir)/|;t"`; \ case $$dist_files in \ */*) $(MKDIR_P) `echo "$$dist_files" | \ sed '/\//!d;s|^|$(distdir)/|;s,/[^/]*$$,,' | \ sort -u` ;; \ esac; \ for file in $$dist_files; do \ if test -f $$file || test -d $$file; then d=.; else d=$(srcdir); fi; \ if test -d $$d/$$file; then \ dir=`echo "/$$file" | sed -e 's,/[^/]*$$,,'`; \ if test -d "$(distdir)/$$file"; then \ find "$(distdir)/$$file" -type d ! -perm -700 -exec chmod u+rwx {} \;; \ fi; \ if test -d $(srcdir)/$$file && test $$d != $(srcdir); then \ cp -fpR $(srcdir)/$$file "$(distdir)$$dir" || exit 1; \ find "$(distdir)/$$file" -type d ! -perm -700 -exec chmod u+rwx {} \;; \ fi; \ cp -fpR $$d/$$file "$(distdir)$$dir" || exit 1; \ else \ test -f "$(distdir)/$$file" \ || cp -p $$d/$$file "$(distdir)/$$file" \ || exit 1; \ fi; \ done @list='$(DIST_SUBDIRS)'; for subdir in $$list; do \ if test "$$subdir" = .; then :; else \ $(am__make_dryrun) \ || test -d "$(distdir)/$$subdir" \ || $(MKDIR_P) "$(distdir)/$$subdir" \ || exit 1; \ dir1=$$subdir; dir2="$(distdir)/$$subdir"; \ $(am__relativize); \ new_distdir=$$reldir; \ dir1=$$subdir; dir2="$(top_distdir)"; \ $(am__relativize); \ new_top_distdir=$$reldir; \ echo " (cd $$subdir && $(MAKE) $(AM_MAKEFLAGS) top_distdir="$$new_top_distdir" distdir="$$new_distdir" \\"; \ echo " am__remove_distdir=: am__skip_length_check=: am__skip_mode_fix=: distdir)"; \ ($(am__cd) $$subdir && \ $(MAKE) $(AM_MAKEFLAGS) \ top_distdir="$$new_top_distdir" \ distdir="$$new_distdir" \ am__remove_distdir=: \ am__skip_length_check=: \ am__skip_mode_fix=: \ distdir) \ || exit 1; \ fi; \ done check-am: all-am check: check-recursive all-am: Makefile $(DATA) installdirs: installdirs-recursive installdirs-am: for dir in "$(DESTDIR)$(guilemoduledir)"; do \ test -z "$$dir" || $(MKDIR_P) "$$dir"; \ done install: install-recursive install-exec: install-exec-recursive install-data: install-data-recursive uninstall: uninstall-recursive install-am: all-am @$(MAKE) $(AM_MAKEFLAGS) install-exec-am install-data-am installcheck: installcheck-recursive install-strip: if test -z '$(STRIP)'; then \ $(MAKE) $(AM_MAKEFLAGS) INSTALL_PROGRAM="$(INSTALL_STRIP_PROGRAM)" \ install_sh_PROGRAM="$(INSTALL_STRIP_PROGRAM)" INSTALL_STRIP_FLAG=-s \ install; \ else \ $(MAKE) $(AM_MAKEFLAGS) INSTALL_PROGRAM="$(INSTALL_STRIP_PROGRAM)" \ install_sh_PROGRAM="$(INSTALL_STRIP_PROGRAM)" INSTALL_STRIP_FLAG=-s \ "INSTALL_PROGRAM_ENV=STRIPPROG='$(STRIP)'" install; \ fi mostlyclean-generic: clean-generic: distclean-generic: -test -z "$(CONFIG_CLEAN_FILES)" || rm -f $(CONFIG_CLEAN_FILES) -test . = "$(srcdir)" || test -z "$(CONFIG_CLEAN_VPATH_FILES)" || rm -f $(CONFIG_CLEAN_VPATH_FILES) maintainer-clean-generic: @echo "This command is intended for maintainers to use" @echo "it deletes files that may require special tools to rebuild." clean: clean-recursive clean-am: clean-generic clean-libtool mostlyclean-am distclean: distclean-recursive -rm -f Makefile distclean-am: clean-am distclean-generic distclean-tags dvi: dvi-recursive dvi-am: html: html-recursive html-am: info: info-recursive info-am: install-data-am: install-guilemoduleDATA install-dvi: install-dvi-recursive install-dvi-am: install-exec-am: install-html: install-html-recursive install-html-am: install-info: install-info-recursive install-info-am: install-man: install-pdf: install-pdf-recursive install-pdf-am: install-ps: install-ps-recursive install-ps-am: installcheck-am: maintainer-clean: maintainer-clean-recursive -rm -f Makefile maintainer-clean-am: distclean-am maintainer-clean-generic mostlyclean: mostlyclean-recursive mostlyclean-am: mostlyclean-generic mostlyclean-libtool pdf: pdf-recursive pdf-am: ps: ps-recursive ps-am: uninstall-am: uninstall-guilemoduleDATA .MAKE: $(RECURSIVE_CLEAN_TARGETS) $(RECURSIVE_TARGETS) ctags-recursive \ install-am install-strip tags-recursive .PHONY: $(RECURSIVE_CLEAN_TARGETS) $(RECURSIVE_TARGETS) CTAGS GTAGS \ all all-am check check-am clean clean-generic clean-libtool \ ctags ctags-recursive distclean distclean-generic \ distclean-libtool distclean-tags distdir dvi dvi-am html \ html-am info info-am install install-am install-data \ install-data-am install-dvi install-dvi-am install-exec \ install-exec-am install-guilemoduleDATA install-html \ install-html-am install-info install-info-am install-man \ install-pdf install-pdf-am install-ps install-ps-am \ install-strip installcheck installcheck-am installdirs \ installdirs-am maintainer-clean maintainer-clean-generic \ mostlyclean mostlyclean-generic mostlyclean-libtool pdf pdf-am \ ps ps-am tags tags-recursive uninstall uninstall-am \ uninstall-guilemoduleDATA export GUILE_LOAD_PATH .c.x: guile-snarf $(GUILE_SNARF_CFLAGS) $< > $@ \ || { rm $@; false; } .c.doc: $(CPP) -DSCM_MAGIC_SNARF_DOCS $(GUILE_SNARF_CFLAGS) $< \ | grep -E '(\^\^ {|\^\^ })' > $@ || { rm $@; false; } %.scm guile-gnome-gw-%.c: %-spec.scm guile $(GUILE_FLAGS) -c \ "(debug-set! stack 400000) \ (use-modules (gnome-@API_VERSION@)) \ (use-modules (g-wrap)) \ (use-modules (gnome gw $*-spec)) \ (generate-wrapset 'guile 'gnome-$* \"guile-gnome-gw-$*\")" mv guile-gnome-gw-$*.scm $*.scm %-@API_VERSION@.pc: %.pc cp $< $@ %-@API_VERSION@-uninstalled.pc: %-uninstalled.pc cp $< $@ # Tell versions [3.59,3.63) of GNU make to not export all variables. # Otherwise a system limit (for SysV at least) may be exceeded. .NOEXPORT: guile-gnome-platform-2.16.2/libgnomecanvas/gnome/overrides/0000755000175000017500000000000011752546504024274 5ustar00wingowingo00000000000000guile-gnome-platform-2.16.2/libgnomecanvas/gnome/overrides/libgnomecanvas.defs0000644000175000017500000000756211670374303030134 0ustar00wingowingo00000000000000;;;; -*- scheme -*- ;;;; guile-gnome ;;;; Copyright (C) 2004 Jan Nieuwenhuizen ;;;; Andy Wingo ;;;; This program is free software; you can redistribute it and/or ;;;; modify it under the terms of the GNU General Public License as ;;;; published by the Free Software Foundation; either version 2 of ;;;; the License, or (at your option) any later version. ;;;; ;;;; This program is distributed in the hope that it will be useful, ;;;; but WITHOUT ANY WARRANTY; without even the implied warranty of ;;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the ;;;; GNU General Public License for more details. ;;;; ;;;; You should have received a copy of the GNU General Public License ;;;; along with this program; if not, contact: ;;;; ;;;; Free Software Foundation Voice: +1-617-542-5942 ;;;; 59 Temple Place - Suite 330 Fax: +1-617-542-2652 ;;;; Boston, MA 02111-1307, USA gnu@gnu.org (define-boxed PathDef (c-name "GnomeCanvasPathDef") (gtype-id "GNOME_TYPE_CANVAS_PATH_DEF")) ;; I'm not sure this wrapping for affine funtctions is the Right Way, ;; but it works. Maybe we should have a plain affine maker: double[6] ;; list_to_affine (SCM) or have affine_absolute take a SCM list ;; directly? (define-method affine_absolute (of-object "GnomeCanvasItem") (c-name "_wrap_gnome_canvas_item_affine_absolute") (overrides "gnome_canvas_item_affine_absolute") (return-type "void") (parameters '("double" "x1") '("double" "y2") '("double" "x2") '("double" "y2") '("double" "x3") '("double" "y3"))) (define-method affine_relative (of-object "GnomeCanvasItem") (c-name "_wrap_gnome_canvas_item_affine_relative") (overrides "gnome_canvas_item_affine_relative") (return-type "void") (parameters '("double" "x1") '("double" "y2") '("double" "x2") '("double" "y2") '("double" "x3") '("double" "y3"))) (define-function gnome_canvas_new_aa (is-constructor-of GnomeCanvas) (c-name "gnome_canvas_new_aa") (overrides "gnome_canvas_new_aa") (return-type "GtkWidget*")) (define-function gnome_canvas_path_def_concat (c-name "gnome_canvas_path_def_concat") (overrides "gnome_canvas_path_def_concat") (return-type "GnomeCanvasPathDef*") (parameters '("const-GSList*-of-GnomeCanvasPathDef*" "list"))) (define-method get_scroll_region (of-object "GnomeCanvas") (c-name "gnome_canvas_get_scroll_region") (overrides "gnome_canvas_get_scroll_region") (return-type "none") (parameters '("double*" "x1") '("double*" "y1") '("double*" "x2") '("double*" "y2"))) (define-method split (of-object "GnomeCanvasPathDef") (c-name "gnome_canvas_path_def_split") (overrides "gnome_canvas_path_def_split") (return-type "GSList*-of-GnomeCanvasPathDef*")) (ignore-glob ;; if you need these, use gtype-from-name or gtype-class->type "*_get_type" "_*" "*_ref" "*_unref" "*_copy" "*_free" "*_newv" "*_setv" "*_foreach" "*_affine*" "*_valist" "*_update_svp*" ;; use of ArtVSP** ) (ignore "gnome_canvas_item_construct" ;; use of va-list "gnome_canvas_points_new" ;; use (make #:value #(x y z)) ;; ignore functions that deal in libart types "gnome_canvas_path_def_bpath" "gnome_canvas_path_def_currentpoint" "gnome_canvas_path_def_last_bpath" "gnome_canvas_path_def_first_bpath" "gnome_canvas_cap_gdk_to_art" "gnome_canvas_join_gdk_to_art" "gnome_canvas_request_redraw_svp" "gnome_canvas_request_redraw_uta" "gnome_canvas_path_def_new_from_bpath" ; ArtBpath* "gnome_canvas_path_def_new_from_static_bpath" ; ArtBpath* "gnome_canvas_path_def_new_from_foreign_bpath" ; ArtBpath* "gnome_canvas_item_request_redraw_svp" ; ArtSVP* "gnome_canvas_buf_ensure_buf" ; GnomeCanvasBuf* "gnome_canvas_render_svp" "gnome_canvas_item_i2c_affine" "gnome_canvas_item_i2w_affine" "gnome_canvas_item_w2c_affine" ) guile-gnome-platform-2.16.2/libgnomecanvas/gnome/overrides/Makefile.am0000644000175000017500000000021211670374303026316 0ustar00wingowingo00000000000000include $(top_srcdir)/common.mk moduledir = $(guilemoduledir)/overrides module_DATA = libgnomecanvas.defs EXTRA_DIST = $(module_DATA) guile-gnome-platform-2.16.2/libgnomecanvas/gnome/overrides/Makefile.in0000644000175000017500000004126211752520706026342 0ustar00wingowingo00000000000000# Makefile.in generated by automake 1.11.5 from Makefile.am. # @configure_input@ # Copyright (C) 1994, 1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, # 2003, 2004, 2005, 2006, 2007, 2008, 2009, 2010, 2011 Free Software # Foundation, Inc. # This Makefile.in is free software; the Free Software Foundation # gives unlimited permission to copy and/or distribute it, # with or without modifications, as long as this notice is preserved. # This program is distributed in the hope that it will be useful, # but WITHOUT ANY WARRANTY, to the extent permitted by law; without # even the implied warranty of MERCHANTABILITY or FITNESS FOR A # PARTICULAR PURPOSE. @SET_MAKE@ # guile-gnome # Copyright (C) 2003,2004,2009,2012 Free Software Foundation, Inc. # This program is free software; you can redistribute it and/or # modify it under the terms of the GNU General Public License as # published by the Free Software Foundation; either version 2 of # the License, or (at your option) any later version. # This program is distributed in the hope that it will be useful, # but WITHOUT ANY WARRANTY; without even the implied warranty of # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the # GNU General Public License for more details. # You should have received a copy of the GNU General Public License # along with this program; if not, contact: # Free Software Foundation Voice: +1-617-542-5942 # 59 Temple Place - Suite 330 Fax: +1-617-542-2652 # Boston, MA 02111-1307, USA gnu@gnu.org # # Makefile snippet # VPATH = @srcdir@ am__make_dryrun = \ { \ am__dry=no; \ case $$MAKEFLAGS in \ *\\[\ \ ]*) \ echo 'am--echo: ; @echo "AM" OK' | $(MAKE) -f - 2>/dev/null \ | grep '^AM OK$$' >/dev/null || am__dry=yes;; \ *) \ for am__flg in $$MAKEFLAGS; do \ case $$am__flg in \ *=*|--*) ;; \ *n*) am__dry=yes; break;; \ esac; \ done;; \ esac; \ test $$am__dry = yes; \ } pkgdatadir = $(datadir)/@PACKAGE@ pkgincludedir = $(includedir)/@PACKAGE@ pkglibdir = $(libdir)/@PACKAGE@ pkglibexecdir = $(libexecdir)/@PACKAGE@ am__cd = CDPATH="$${ZSH_VERSION+.}$(PATH_SEPARATOR)" && cd install_sh_DATA = $(install_sh) -c -m 644 install_sh_PROGRAM = $(install_sh) -c install_sh_SCRIPT = $(install_sh) -c INSTALL_HEADER = $(INSTALL_DATA) transform = $(program_transform_name) NORMAL_INSTALL = : PRE_INSTALL = : POST_INSTALL = : NORMAL_UNINSTALL = : PRE_UNINSTALL = : POST_UNINSTALL = : build_triplet = @build@ host_triplet = @host@ DIST_COMMON = $(srcdir)/Makefile.am $(srcdir)/Makefile.in \ $(top_srcdir)/common.mk subdir = libgnomecanvas/gnome/overrides ACLOCAL_M4 = $(top_srcdir)/aclocal.m4 am__aclocal_m4_deps = $(top_srcdir)/configure.ac am__configure_deps = $(am__aclocal_m4_deps) $(CONFIGURE_DEPENDENCIES) \ $(ACLOCAL_M4) mkinstalldirs = $(install_sh) -d CONFIG_HEADER = $(top_builddir)/config.h CONFIG_CLEAN_FILES = CONFIG_CLEAN_VPATH_FILES = SOURCES = DIST_SOURCES = am__can_run_installinfo = \ case $$AM_UPDATE_INFO_DIR in \ n|no|NO) false;; \ *) (install-info --version) >/dev/null 2>&1;; \ esac am__vpath_adj_setup = srcdirstrip=`echo "$(srcdir)" | sed 's|.|.|g'`; am__vpath_adj = case $$p in \ $(srcdir)/*) f=`echo "$$p" | sed "s|^$$srcdirstrip/||"`;; \ *) f=$$p;; \ esac; am__strip_dir = f=`echo $$p | sed -e 's|^.*/||'`; am__install_max = 40 am__nobase_strip_setup = \ srcdirstrip=`echo "$(srcdir)" | sed 's/[].[^$$\\*|]/\\\\&/g'` am__nobase_strip = \ for p in $$list; do echo "$$p"; done | sed -e "s|$$srcdirstrip/||" am__nobase_list = $(am__nobase_strip_setup); \ for p in $$list; do echo "$$p $$p"; done | \ sed "s| $$srcdirstrip/| |;"' / .*\//!s/ .*/ ./; s,\( .*\)/[^/]*$$,\1,' | \ $(AWK) 'BEGIN { files["."] = "" } { files[$$2] = files[$$2] " " $$1; \ if (++n[$$2] == $(am__install_max)) \ { print $$2, files[$$2]; n[$$2] = 0; files[$$2] = "" } } \ END { for (dir in files) print dir, files[dir] }' am__base_list = \ sed '$$!N;$$!N;$$!N;$$!N;$$!N;$$!N;$$!N;s/\n/ /g' | \ sed '$$!N;$$!N;$$!N;$$!N;s/\n/ /g' am__uninstall_files_from_dir = { \ test -z "$$files" \ || { test ! -d "$$dir" && test ! -f "$$dir" && test ! -r "$$dir"; } \ || { echo " ( cd '$$dir' && rm -f" $$files ")"; \ $(am__cd) "$$dir" && rm -f $$files; }; \ } am__installdirs = "$(DESTDIR)$(moduledir)" DATA = $(module_DATA) DISTFILES = $(DIST_COMMON) $(DIST_SOURCES) $(TEXINFOS) $(EXTRA_DIST) ACLOCAL = @ACLOCAL@ AG_PKG_CONFIG_PATH = @AG_PKG_CONFIG_PATH@ AMTAR = @AMTAR@ API_VERSION = @API_VERSION@ AR = @AR@ ATK_CFLAGS = @ATK_CFLAGS@ ATK_LIBS = @ATK_LIBS@ AUTOCONF = @AUTOCONF@ AUTOHEADER = @AUTOHEADER@ AUTOMAKE = @AUTOMAKE@ AWK = @AWK@ BONOBO_IDL_DIR = @BONOBO_IDL_DIR@ CANVAS_CFLAGS = @CANVAS_CFLAGS@ CANVAS_LIBS = @CANVAS_LIBS@ CC = @CC@ CCDEPMODE = @CCDEPMODE@ CFLAGS = @CFLAGS@ CORBA_CFLAGS = @CORBA_CFLAGS@ CORBA_LIBS = @CORBA_LIBS@ CPP = @CPP@ CPPFLAGS = @CPPFLAGS@ CYGPATH_W = @CYGPATH_W@ DEFS = @DEFS@ DEPDIR = @DEPDIR@ DLLTOOL = @DLLTOOL@ DSYMUTIL = @DSYMUTIL@ DUMPBIN = @DUMPBIN@ ECHO_C = @ECHO_C@ ECHO_N = @ECHO_N@ ECHO_T = @ECHO_T@ EGREP = @EGREP@ EXEEXT = @EXEEXT@ FGREP = @FGREP@ GCONF_CFLAGS = @GCONF_CFLAGS@ GCONF_LIBS = @GCONF_LIBS@ GDK_CFLAGS = @GDK_CFLAGS@ GDK_LIBS = @GDK_LIBS@ GDK_PIXBUF_CFLAGS = @GDK_PIXBUF_CFLAGS@ GDK_PIXBUF_LIBS = @GDK_PIXBUF_LIBS@ GLIB_CFLAGS = @GLIB_CFLAGS@ GLIB_LIBS = @GLIB_LIBS@ GNOMEUI_DEPRECATION_FLAGS = @GNOMEUI_DEPRECATION_FLAGS@ GNOME_VFS_CFLAGS = @GNOME_VFS_CFLAGS@ GNOME_VFS_DEPRECATED_CFLAGS = @GNOME_VFS_DEPRECATED_CFLAGS@ GNOME_VFS_LIBS = @GNOME_VFS_LIBS@ GOBJECT_CFLAGS = @GOBJECT_CFLAGS@ GOBJECT_LIBS = @GOBJECT_LIBS@ GREP = @GREP@ GTHREAD_CFLAGS = @GTHREAD_CFLAGS@ GTHREAD_LIBS = @GTHREAD_LIBS@ GTK_CFLAGS = @GTK_CFLAGS@ GTK_DEPRECATED_CFLAGS = @GTK_DEPRECATED_CFLAGS@ GTK_LIBS = @GTK_LIBS@ GUILE_CAIRO_CFLAGS = @GUILE_CAIRO_CFLAGS@ GUILE_CAIRO_LIBS = @GUILE_CAIRO_LIBS@ GUILE_CFLAGS = @GUILE_CFLAGS@ GUILE_EFFECTIVE_VERSION = @GUILE_EFFECTIVE_VERSION@ GUILE_GLIB_CFLAGS = @GUILE_GLIB_CFLAGS@ GUILE_GLIB_LIBS = @GUILE_GLIB_LIBS@ GUILE_LIBS = @GUILE_LIBS@ G_WRAP_CFLAGS = @G_WRAP_CFLAGS@ G_WRAP_LIBS = @G_WRAP_LIBS@ G_WRAP_LIB_DIR = @G_WRAP_LIB_DIR@ G_WRAP_MODULE_DIR = @G_WRAP_MODULE_DIR@ INSTALL = @INSTALL@ INSTALL_DATA = @INSTALL_DATA@ INSTALL_PROGRAM = @INSTALL_PROGRAM@ INSTALL_SCRIPT = @INSTALL_SCRIPT@ INSTALL_STRIP_PROGRAM = @INSTALL_STRIP_PROGRAM@ LD = @LD@ LDFLAGS = @LDFLAGS@ LIBGLADE_CFLAGS = @LIBGLADE_CFLAGS@ LIBGLADE_LIBS = @LIBGLADE_LIBS@ LIBGNOMEUI_CFLAGS = @LIBGNOMEUI_CFLAGS@ LIBGNOMEUI_LIBS = @LIBGNOMEUI_LIBS@ LIBGNOME_CFLAGS = @LIBGNOME_CFLAGS@ LIBGNOME_LIBS = @LIBGNOME_LIBS@ LIBOBJS = @LIBOBJS@ LIBS = @LIBS@ LIBTOOL = @LIBTOOL@ LIPO = @LIPO@ LN_S = @LN_S@ LTLIBOBJS = @LTLIBOBJS@ MAKEINFO = @MAKEINFO@ MANIFEST_TOOL = @MANIFEST_TOOL@ MKDIR_P = @MKDIR_P@ NM = @NM@ NMEDIT = @NMEDIT@ OBJDUMP = @OBJDUMP@ OBJEXT = @OBJEXT@ ORBIT_IDL = @ORBIT_IDL@ OTOOL = @OTOOL@ OTOOL64 = @OTOOL64@ PACKAGE = @PACKAGE@ PACKAGE_BUGREPORT = @PACKAGE_BUGREPORT@ PACKAGE_NAME = @PACKAGE_NAME@ PACKAGE_STRING = @PACKAGE_STRING@ PACKAGE_TARNAME = @PACKAGE_TARNAME@ PACKAGE_URL = @PACKAGE_URL@ PACKAGE_VERSION = @PACKAGE_VERSION@ PANGOCAIRO_CFLAGS = @PANGOCAIRO_CFLAGS@ PANGOCAIRO_LIBS = @PANGOCAIRO_LIBS@ PANGO_CFLAGS = @PANGO_CFLAGS@ PANGO_LIBS = @PANGO_LIBS@ PATH_SEPARATOR = @PATH_SEPARATOR@ PKG_CONFIG = @PKG_CONFIG@ PKG_CONFIG_LIBDIR = @PKG_CONFIG_LIBDIR@ PKG_CONFIG_PATH = @PKG_CONFIG_PATH@ RANLIB = @RANLIB@ SED = @SED@ SET_MAKE = @SET_MAKE@ SHELL = @SHELL@ STRIP = @STRIP@ VERSION = @VERSION@ WARN_CFLAGS = @WARN_CFLAGS@ abs_builddir = @abs_builddir@ abs_srcdir = @abs_srcdir@ abs_top_builddir = @abs_top_builddir@ abs_top_srcdir = @abs_top_srcdir@ ac_ct_AR = @ac_ct_AR@ ac_ct_CC = @ac_ct_CC@ ac_ct_DUMPBIN = @ac_ct_DUMPBIN@ am__include = @am__include@ am__leading_dot = @am__leading_dot@ am__quote = @am__quote@ am__tar = @am__tar@ am__untar = @am__untar@ bindir = @bindir@ build = @build@ build_alias = @build_alias@ build_cpu = @build_cpu@ build_os = @build_os@ build_vendor = @build_vendor@ builddir = @builddir@ datadir = @datadir@ datarootdir = @datarootdir@ docdir = @docdir@ dvidir = @dvidir@ exec_prefix = @exec_prefix@ host = @host@ host_alias = @host_alias@ host_cpu = @host_cpu@ host_os = @host_os@ host_vendor = @host_vendor@ htmldir = @htmldir@ includedir = @includedir@ infodir = @infodir@ install_sh = @install_sh@ libdir = @libdir@ libexecdir = @libexecdir@ localedir = @localedir@ localstatedir = @localstatedir@ mandir = @mandir@ mkdir_p = @mkdir_p@ oldincludedir = @oldincludedir@ pdfdir = @pdfdir@ prefix = @prefix@ program_transform_name = @program_transform_name@ psdir = @psdir@ sbindir = @sbindir@ sharedstatedir = @sharedstatedir@ srcdir = @srcdir@ sysconfdir = @sysconfdir@ target_alias = @target_alias@ top_build_prefix = @top_build_prefix@ top_builddir = @top_builddir@ top_srcdir = @top_srcdir@ guilegnomedir = $(datadir)/guile-gnome-@API_VERSION@ guilemoduledir = $(guilegnomedir)/gnome guilegwmoduledir = $(guilegnomedir)/gnome/gw guilegnomelibdir = $(libdir)/guile-gnome-@API_VERSION@ AM_CFLAGS = -I. -I$(srcdir) $(WARN_CFLAGS) $(DEBUG_CFLAGS) # For overriding from the command line (e.g. --debug) GUILE_FLAGS = SUFFIXES = .x .doc GUILE_SNARF_CFLAGS = $(DEFS) $(AM_CFLAGS) $(GUILE_CFLAGS) $(G_WRAP_CFLAGS) PACKAGES = atk cairo corba defs gconf glib gnome-vfs gtk libglade libgnome libgnomecanvas libgnomeui pango SOURCE_GUILE_PATH = $(shell echo $(addprefix $(top_srcdir)/,$(PACKAGES)) | sed -e 's/ /:/g'):$(srcdir) BUILD_GUILE_PATH = $(if $(filter-out $(top_srcdir),$(top_builddir)),$(shell echo -n $(addprefix $(top_builddir)/,$(PACKAGES)): | sed -e 's/ /:/g'),) GUILE_LOAD_PATH := $(BUILD_GUILE_PATH)$(SOURCE_GUILE_PATH):${G_WRAP_MODULE_DIR}:${GUILE_LOAD_PATH} # Real gnu make foo packages = $(filter-out %-uninstalled,$(patsubst %.pc.in,%,$(notdir $(wildcard $(srcdir)/*.pc.in)))) pcifiles = $(patsubst %,%-@API_VERSION@.pc,$(packages)) pcufiles = $(patsubst %,%-@API_VERSION@-uninstalled.pc,$(packages)) moduledir = $(guilemoduledir)/overrides module_DATA = libgnomecanvas.defs EXTRA_DIST = $(module_DATA) all: all-am .SUFFIXES: .SUFFIXES: .x .doc .c $(srcdir)/Makefile.in: $(srcdir)/Makefile.am $(top_srcdir)/common.mk $(am__configure_deps) @for dep in $?; do \ case '$(am__configure_deps)' in \ *$$dep*) \ ( cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh ) \ && { if test -f $@; then exit 0; else break; fi; }; \ exit 1;; \ esac; \ done; \ echo ' cd $(top_srcdir) && $(AUTOMAKE) --gnu libgnomecanvas/gnome/overrides/Makefile'; \ $(am__cd) $(top_srcdir) && \ $(AUTOMAKE) --gnu libgnomecanvas/gnome/overrides/Makefile .PRECIOUS: Makefile Makefile: $(srcdir)/Makefile.in $(top_builddir)/config.status @case '$?' in \ *config.status*) \ cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh;; \ *) \ echo ' cd $(top_builddir) && $(SHELL) ./config.status $(subdir)/$@ $(am__depfiles_maybe)'; \ cd $(top_builddir) && $(SHELL) ./config.status $(subdir)/$@ $(am__depfiles_maybe);; \ esac; $(top_srcdir)/common.mk: $(top_builddir)/config.status: $(top_srcdir)/configure $(CONFIG_STATUS_DEPENDENCIES) cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh $(top_srcdir)/configure: $(am__configure_deps) cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh $(ACLOCAL_M4): $(am__aclocal_m4_deps) cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh $(am__aclocal_m4_deps): mostlyclean-libtool: -rm -f *.lo clean-libtool: -rm -rf .libs _libs install-moduleDATA: $(module_DATA) @$(NORMAL_INSTALL) @list='$(module_DATA)'; test -n "$(moduledir)" || list=; \ if test -n "$$list"; then \ echo " $(MKDIR_P) '$(DESTDIR)$(moduledir)'"; \ $(MKDIR_P) "$(DESTDIR)$(moduledir)" || exit 1; \ fi; \ for p in $$list; do \ if test -f "$$p"; then d=; else d="$(srcdir)/"; fi; \ echo "$$d$$p"; \ done | $(am__base_list) | \ while read files; do \ echo " $(INSTALL_DATA) $$files '$(DESTDIR)$(moduledir)'"; \ $(INSTALL_DATA) $$files "$(DESTDIR)$(moduledir)" || exit $$?; \ done uninstall-moduleDATA: @$(NORMAL_UNINSTALL) @list='$(module_DATA)'; test -n "$(moduledir)" || list=; \ files=`for p in $$list; do echo $$p; done | sed -e 's|^.*/||'`; \ dir='$(DESTDIR)$(moduledir)'; $(am__uninstall_files_from_dir) tags: TAGS TAGS: ctags: CTAGS CTAGS: distdir: $(DISTFILES) @srcdirstrip=`echo "$(srcdir)" | sed 's/[].[^$$\\*]/\\\\&/g'`; \ topsrcdirstrip=`echo "$(top_srcdir)" | sed 's/[].[^$$\\*]/\\\\&/g'`; \ list='$(DISTFILES)'; \ dist_files=`for file in $$list; do echo $$file; done | \ sed -e "s|^$$srcdirstrip/||;t" \ -e "s|^$$topsrcdirstrip/|$(top_builddir)/|;t"`; \ case $$dist_files in \ */*) $(MKDIR_P) `echo "$$dist_files" | \ sed '/\//!d;s|^|$(distdir)/|;s,/[^/]*$$,,' | \ sort -u` ;; \ esac; \ for file in $$dist_files; do \ if test -f $$file || test -d $$file; then d=.; else d=$(srcdir); fi; \ if test -d $$d/$$file; then \ dir=`echo "/$$file" | sed -e 's,/[^/]*$$,,'`; \ if test -d "$(distdir)/$$file"; then \ find "$(distdir)/$$file" -type d ! -perm -700 -exec chmod u+rwx {} \;; \ fi; \ if test -d $(srcdir)/$$file && test $$d != $(srcdir); then \ cp -fpR $(srcdir)/$$file "$(distdir)$$dir" || exit 1; \ find "$(distdir)/$$file" -type d ! -perm -700 -exec chmod u+rwx {} \;; \ fi; \ cp -fpR $$d/$$file "$(distdir)$$dir" || exit 1; \ else \ test -f "$(distdir)/$$file" \ || cp -p $$d/$$file "$(distdir)/$$file" \ || exit 1; \ fi; \ done check-am: all-am check: check-am all-am: Makefile $(DATA) installdirs: for dir in "$(DESTDIR)$(moduledir)"; do \ test -z "$$dir" || $(MKDIR_P) "$$dir"; \ done install: install-am install-exec: install-exec-am install-data: install-data-am uninstall: uninstall-am install-am: all-am @$(MAKE) $(AM_MAKEFLAGS) install-exec-am install-data-am installcheck: installcheck-am install-strip: if test -z '$(STRIP)'; then \ $(MAKE) $(AM_MAKEFLAGS) INSTALL_PROGRAM="$(INSTALL_STRIP_PROGRAM)" \ install_sh_PROGRAM="$(INSTALL_STRIP_PROGRAM)" INSTALL_STRIP_FLAG=-s \ install; \ else \ $(MAKE) $(AM_MAKEFLAGS) INSTALL_PROGRAM="$(INSTALL_STRIP_PROGRAM)" \ install_sh_PROGRAM="$(INSTALL_STRIP_PROGRAM)" INSTALL_STRIP_FLAG=-s \ "INSTALL_PROGRAM_ENV=STRIPPROG='$(STRIP)'" install; \ fi mostlyclean-generic: clean-generic: distclean-generic: -test -z "$(CONFIG_CLEAN_FILES)" || rm -f $(CONFIG_CLEAN_FILES) -test . = "$(srcdir)" || test -z "$(CONFIG_CLEAN_VPATH_FILES)" || rm -f $(CONFIG_CLEAN_VPATH_FILES) maintainer-clean-generic: @echo "This command is intended for maintainers to use" @echo "it deletes files that may require special tools to rebuild." clean: clean-am clean-am: clean-generic clean-libtool mostlyclean-am distclean: distclean-am -rm -f Makefile distclean-am: clean-am distclean-generic dvi: dvi-am dvi-am: html: html-am html-am: info: info-am info-am: install-data-am: install-moduleDATA install-dvi: install-dvi-am install-dvi-am: install-exec-am: install-html: install-html-am install-html-am: install-info: install-info-am install-info-am: install-man: install-pdf: install-pdf-am install-pdf-am: install-ps: install-ps-am install-ps-am: installcheck-am: maintainer-clean: maintainer-clean-am -rm -f Makefile maintainer-clean-am: distclean-am maintainer-clean-generic mostlyclean: mostlyclean-am mostlyclean-am: mostlyclean-generic mostlyclean-libtool pdf: pdf-am pdf-am: ps: ps-am ps-am: uninstall-am: uninstall-moduleDATA .MAKE: install-am install-strip .PHONY: all all-am check check-am clean clean-generic clean-libtool \ distclean distclean-generic distclean-libtool distdir dvi \ dvi-am html html-am info info-am install install-am \ install-data install-data-am install-dvi install-dvi-am \ install-exec install-exec-am install-html install-html-am \ install-info install-info-am install-man install-moduleDATA \ install-pdf install-pdf-am install-ps install-ps-am \ install-strip installcheck installcheck-am installdirs \ maintainer-clean maintainer-clean-generic mostlyclean \ mostlyclean-generic mostlyclean-libtool pdf pdf-am ps ps-am \ uninstall uninstall-am uninstall-moduleDATA export GUILE_LOAD_PATH .c.x: guile-snarf $(GUILE_SNARF_CFLAGS) $< > $@ \ || { rm $@; false; } .c.doc: $(CPP) -DSCM_MAGIC_SNARF_DOCS $(GUILE_SNARF_CFLAGS) $< \ | grep -E '(\^\^ {|\^\^ })' > $@ || { rm $@; false; } %.scm guile-gnome-gw-%.c: %-spec.scm guile $(GUILE_FLAGS) -c \ "(debug-set! stack 400000) \ (use-modules (gnome-@API_VERSION@)) \ (use-modules (g-wrap)) \ (use-modules (gnome gw $*-spec)) \ (generate-wrapset 'guile 'gnome-$* \"guile-gnome-gw-$*\")" mv guile-gnome-gw-$*.scm $*.scm %-@API_VERSION@.pc: %.pc cp $< $@ %-@API_VERSION@-uninstalled.pc: %-uninstalled.pc cp $< $@ # Tell versions [3.59,3.63) of GNU make to not export all variables. # Otherwise a system limit (for SysV at least) may be exceeded. .NOEXPORT: guile-gnome-platform-2.16.2/libgnomecanvas/gnome/canvas.scm0000644000175000017500000000253211670374303024246 0ustar00wingowingo00000000000000;; guile-gnome ;; Copyright (C) 2003,2004 Andy Wingo ;; This program is free software; you can redistribute it and/or ;; modify it under the terms of the GNU General Public License as ;; published by the Free Software Foundation; either version 2 of ;; the License, or (at your option) any later version. ;; ;; This program is distributed in the hope that it will be useful, ;; but WITHOUT ANY WARRANTY; without even the implied warranty of ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the ;; GNU General Public License for more details. ;; ;; You should have received a copy of the GNU General Public License ;; along with this program; if not, contact: ;; ;; Free Software Foundation Voice: +1-617-542-5942 ;; 59 Temple Place - Suite 330 Fax: +1-617-542-2652 ;; Boston, MA 02111-1307, USA gnu@gnu.org ;;; Commentary: ;; ;;Guile wrappers for libgnomecanvas. ;; ;;; Code: (define-module (gnome canvas) #:use-module (oop goops) #:use-module (gnome gobject) #:use-module (gnome gw canvas) #:use-module (gnome gw generics) #:use-module (gnome gw support modules)) (re-export-modules (gnome gw canvas)) guile-gnome-platform-2.16.2/libgnomecanvas/Makefile.am0000644000175000017500000000012311752516604023213 0ustar00wingowingo00000000000000SUBDIRS = gnome examples doc tests EXTRA_DIST = ChangeLog.pre-2.16 AUTHORS README guile-gnome-platform-2.16.2/libgnomecanvas/Makefile.in0000644000175000017500000004541211752516631023236 0ustar00wingowingo00000000000000# Makefile.in generated by automake 1.11.5 from Makefile.am. # @configure_input@ # Copyright (C) 1994, 1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, # 2003, 2004, 2005, 2006, 2007, 2008, 2009, 2010, 2011 Free Software # Foundation, Inc. # This Makefile.in is free software; the Free Software Foundation # gives unlimited permission to copy and/or distribute it, # with or without modifications, as long as this notice is preserved. # This program is distributed in the hope that it will be useful, # but WITHOUT ANY WARRANTY, to the extent permitted by law; without # even the implied warranty of MERCHANTABILITY or FITNESS FOR A # PARTICULAR PURPOSE. @SET_MAKE@ VPATH = @srcdir@ am__make_dryrun = \ { \ am__dry=no; \ case $$MAKEFLAGS in \ *\\[\ \ ]*) \ echo 'am--echo: ; @echo "AM" OK' | $(MAKE) -f - 2>/dev/null \ | grep '^AM OK$$' >/dev/null || am__dry=yes;; \ *) \ for am__flg in $$MAKEFLAGS; do \ case $$am__flg in \ *=*|--*) ;; \ *n*) am__dry=yes; break;; \ esac; \ done;; \ esac; \ test $$am__dry = yes; \ } pkgdatadir = $(datadir)/@PACKAGE@ pkgincludedir = $(includedir)/@PACKAGE@ pkglibdir = $(libdir)/@PACKAGE@ pkglibexecdir = $(libexecdir)/@PACKAGE@ am__cd = CDPATH="$${ZSH_VERSION+.}$(PATH_SEPARATOR)" && cd install_sh_DATA = $(install_sh) -c -m 644 install_sh_PROGRAM = $(install_sh) -c install_sh_SCRIPT = $(install_sh) -c INSTALL_HEADER = $(INSTALL_DATA) transform = $(program_transform_name) NORMAL_INSTALL = : PRE_INSTALL = : POST_INSTALL = : NORMAL_UNINSTALL = : PRE_UNINSTALL = : POST_UNINSTALL = : build_triplet = @build@ host_triplet = @host@ subdir = libgnomecanvas DIST_COMMON = README $(srcdir)/Makefile.am $(srcdir)/Makefile.in \ AUTHORS ChangeLog ACLOCAL_M4 = $(top_srcdir)/aclocal.m4 am__aclocal_m4_deps = $(top_srcdir)/configure.ac am__configure_deps = $(am__aclocal_m4_deps) $(CONFIGURE_DEPENDENCIES) \ $(ACLOCAL_M4) mkinstalldirs = $(install_sh) -d CONFIG_HEADER = $(top_builddir)/config.h CONFIG_CLEAN_FILES = CONFIG_CLEAN_VPATH_FILES = SOURCES = DIST_SOURCES = RECURSIVE_TARGETS = all-recursive check-recursive dvi-recursive \ html-recursive info-recursive install-data-recursive \ install-dvi-recursive install-exec-recursive \ install-html-recursive install-info-recursive \ install-pdf-recursive install-ps-recursive install-recursive \ installcheck-recursive installdirs-recursive pdf-recursive \ ps-recursive uninstall-recursive am__can_run_installinfo = \ case $$AM_UPDATE_INFO_DIR in \ n|no|NO) false;; \ *) (install-info --version) >/dev/null 2>&1;; \ esac RECURSIVE_CLEAN_TARGETS = mostlyclean-recursive clean-recursive \ distclean-recursive maintainer-clean-recursive AM_RECURSIVE_TARGETS = $(RECURSIVE_TARGETS:-recursive=) \ $(RECURSIVE_CLEAN_TARGETS:-recursive=) tags TAGS ctags CTAGS \ distdir ETAGS = etags CTAGS = ctags DIST_SUBDIRS = $(SUBDIRS) DISTFILES = $(DIST_COMMON) $(DIST_SOURCES) $(TEXINFOS) $(EXTRA_DIST) am__relativize = \ dir0=`pwd`; \ sed_first='s,^\([^/]*\)/.*$$,\1,'; \ sed_rest='s,^[^/]*/*,,'; \ sed_last='s,^.*/\([^/]*\)$$,\1,'; \ sed_butlast='s,/*[^/]*$$,,'; \ while test -n "$$dir1"; do \ first=`echo "$$dir1" | sed -e "$$sed_first"`; \ if test "$$first" != "."; then \ if test "$$first" = ".."; then \ dir2=`echo "$$dir0" | sed -e "$$sed_last"`/"$$dir2"; \ dir0=`echo "$$dir0" | sed -e "$$sed_butlast"`; \ else \ first2=`echo "$$dir2" | sed -e "$$sed_first"`; \ if test "$$first2" = "$$first"; then \ dir2=`echo "$$dir2" | sed -e "$$sed_rest"`; \ else \ dir2="../$$dir2"; \ fi; \ dir0="$$dir0"/"$$first"; \ fi; \ fi; \ dir1=`echo "$$dir1" | sed -e "$$sed_rest"`; \ done; \ reldir="$$dir2" ACLOCAL = @ACLOCAL@ AG_PKG_CONFIG_PATH = @AG_PKG_CONFIG_PATH@ AMTAR = @AMTAR@ API_VERSION = @API_VERSION@ AR = @AR@ ATK_CFLAGS = @ATK_CFLAGS@ ATK_LIBS = @ATK_LIBS@ AUTOCONF = @AUTOCONF@ AUTOHEADER = @AUTOHEADER@ AUTOMAKE = @AUTOMAKE@ AWK = @AWK@ BONOBO_IDL_DIR = @BONOBO_IDL_DIR@ CANVAS_CFLAGS = @CANVAS_CFLAGS@ CANVAS_LIBS = @CANVAS_LIBS@ CC = @CC@ CCDEPMODE = @CCDEPMODE@ CFLAGS = @CFLAGS@ CORBA_CFLAGS = @CORBA_CFLAGS@ CORBA_LIBS = @CORBA_LIBS@ CPP = @CPP@ CPPFLAGS = @CPPFLAGS@ CYGPATH_W = @CYGPATH_W@ DEFS = @DEFS@ DEPDIR = @DEPDIR@ DLLTOOL = @DLLTOOL@ DSYMUTIL = @DSYMUTIL@ DUMPBIN = @DUMPBIN@ ECHO_C = @ECHO_C@ ECHO_N = @ECHO_N@ ECHO_T = @ECHO_T@ EGREP = @EGREP@ EXEEXT = @EXEEXT@ FGREP = @FGREP@ GCONF_CFLAGS = @GCONF_CFLAGS@ GCONF_LIBS = @GCONF_LIBS@ GDK_CFLAGS = @GDK_CFLAGS@ GDK_LIBS = @GDK_LIBS@ GDK_PIXBUF_CFLAGS = @GDK_PIXBUF_CFLAGS@ GDK_PIXBUF_LIBS = @GDK_PIXBUF_LIBS@ GLIB_CFLAGS = @GLIB_CFLAGS@ GLIB_LIBS = @GLIB_LIBS@ GNOMEUI_DEPRECATION_FLAGS = @GNOMEUI_DEPRECATION_FLAGS@ GNOME_VFS_CFLAGS = @GNOME_VFS_CFLAGS@ GNOME_VFS_DEPRECATED_CFLAGS = @GNOME_VFS_DEPRECATED_CFLAGS@ GNOME_VFS_LIBS = @GNOME_VFS_LIBS@ GOBJECT_CFLAGS = @GOBJECT_CFLAGS@ GOBJECT_LIBS = @GOBJECT_LIBS@ GREP = @GREP@ GTHREAD_CFLAGS = @GTHREAD_CFLAGS@ GTHREAD_LIBS = @GTHREAD_LIBS@ GTK_CFLAGS = @GTK_CFLAGS@ GTK_DEPRECATED_CFLAGS = @GTK_DEPRECATED_CFLAGS@ GTK_LIBS = @GTK_LIBS@ GUILE_CAIRO_CFLAGS = @GUILE_CAIRO_CFLAGS@ GUILE_CAIRO_LIBS = @GUILE_CAIRO_LIBS@ GUILE_CFLAGS = @GUILE_CFLAGS@ GUILE_EFFECTIVE_VERSION = @GUILE_EFFECTIVE_VERSION@ GUILE_GLIB_CFLAGS = @GUILE_GLIB_CFLAGS@ GUILE_GLIB_LIBS = @GUILE_GLIB_LIBS@ GUILE_LIBS = @GUILE_LIBS@ G_WRAP_CFLAGS = @G_WRAP_CFLAGS@ G_WRAP_LIBS = @G_WRAP_LIBS@ G_WRAP_LIB_DIR = @G_WRAP_LIB_DIR@ G_WRAP_MODULE_DIR = @G_WRAP_MODULE_DIR@ INSTALL = @INSTALL@ INSTALL_DATA = @INSTALL_DATA@ INSTALL_PROGRAM = @INSTALL_PROGRAM@ INSTALL_SCRIPT = @INSTALL_SCRIPT@ INSTALL_STRIP_PROGRAM = @INSTALL_STRIP_PROGRAM@ LD = @LD@ LDFLAGS = @LDFLAGS@ LIBGLADE_CFLAGS = @LIBGLADE_CFLAGS@ LIBGLADE_LIBS = @LIBGLADE_LIBS@ LIBGNOMEUI_CFLAGS = @LIBGNOMEUI_CFLAGS@ LIBGNOMEUI_LIBS = @LIBGNOMEUI_LIBS@ LIBGNOME_CFLAGS = @LIBGNOME_CFLAGS@ LIBGNOME_LIBS = @LIBGNOME_LIBS@ LIBOBJS = @LIBOBJS@ LIBS = @LIBS@ LIBTOOL = @LIBTOOL@ LIPO = @LIPO@ LN_S = @LN_S@ LTLIBOBJS = @LTLIBOBJS@ MAKEINFO = @MAKEINFO@ MANIFEST_TOOL = @MANIFEST_TOOL@ MKDIR_P = @MKDIR_P@ NM = @NM@ NMEDIT = @NMEDIT@ OBJDUMP = @OBJDUMP@ OBJEXT = @OBJEXT@ ORBIT_IDL = @ORBIT_IDL@ OTOOL = @OTOOL@ OTOOL64 = @OTOOL64@ PACKAGE = @PACKAGE@ PACKAGE_BUGREPORT = @PACKAGE_BUGREPORT@ PACKAGE_NAME = @PACKAGE_NAME@ PACKAGE_STRING = @PACKAGE_STRING@ PACKAGE_TARNAME = @PACKAGE_TARNAME@ PACKAGE_URL = @PACKAGE_URL@ PACKAGE_VERSION = @PACKAGE_VERSION@ PANGOCAIRO_CFLAGS = @PANGOCAIRO_CFLAGS@ PANGOCAIRO_LIBS = @PANGOCAIRO_LIBS@ PANGO_CFLAGS = @PANGO_CFLAGS@ PANGO_LIBS = @PANGO_LIBS@ PATH_SEPARATOR = @PATH_SEPARATOR@ PKG_CONFIG = @PKG_CONFIG@ PKG_CONFIG_LIBDIR = @PKG_CONFIG_LIBDIR@ PKG_CONFIG_PATH = @PKG_CONFIG_PATH@ RANLIB = @RANLIB@ SED = @SED@ SET_MAKE = @SET_MAKE@ SHELL = @SHELL@ STRIP = @STRIP@ VERSION = @VERSION@ WARN_CFLAGS = @WARN_CFLAGS@ abs_builddir = @abs_builddir@ abs_srcdir = @abs_srcdir@ abs_top_builddir = @abs_top_builddir@ abs_top_srcdir = @abs_top_srcdir@ ac_ct_AR = @ac_ct_AR@ ac_ct_CC = @ac_ct_CC@ ac_ct_DUMPBIN = @ac_ct_DUMPBIN@ am__include = @am__include@ am__leading_dot = @am__leading_dot@ am__quote = @am__quote@ am__tar = @am__tar@ am__untar = @am__untar@ bindir = @bindir@ build = @build@ build_alias = @build_alias@ build_cpu = @build_cpu@ build_os = @build_os@ build_vendor = @build_vendor@ builddir = @builddir@ datadir = @datadir@ datarootdir = @datarootdir@ docdir = @docdir@ dvidir = @dvidir@ exec_prefix = @exec_prefix@ host = @host@ host_alias = @host_alias@ host_cpu = @host_cpu@ host_os = @host_os@ host_vendor = @host_vendor@ htmldir = @htmldir@ includedir = @includedir@ infodir = @infodir@ install_sh = @install_sh@ libdir = @libdir@ libexecdir = @libexecdir@ localedir = @localedir@ localstatedir = @localstatedir@ mandir = @mandir@ mkdir_p = @mkdir_p@ oldincludedir = @oldincludedir@ pdfdir = @pdfdir@ prefix = @prefix@ program_transform_name = @program_transform_name@ psdir = @psdir@ sbindir = @sbindir@ sharedstatedir = @sharedstatedir@ srcdir = @srcdir@ sysconfdir = @sysconfdir@ target_alias = @target_alias@ top_build_prefix = @top_build_prefix@ top_builddir = @top_builddir@ top_srcdir = @top_srcdir@ SUBDIRS = gnome examples doc tests EXTRA_DIST = ChangeLog.pre-2.16 AUTHORS README all: all-recursive .SUFFIXES: $(srcdir)/Makefile.in: $(srcdir)/Makefile.am $(am__configure_deps) @for dep in $?; do \ case '$(am__configure_deps)' in \ *$$dep*) \ ( cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh ) \ && { if test -f $@; then exit 0; else break; fi; }; \ exit 1;; \ esac; \ done; \ echo ' cd $(top_srcdir) && $(AUTOMAKE) --gnu libgnomecanvas/Makefile'; \ $(am__cd) $(top_srcdir) && \ $(AUTOMAKE) --gnu libgnomecanvas/Makefile .PRECIOUS: Makefile Makefile: $(srcdir)/Makefile.in $(top_builddir)/config.status @case '$?' in \ *config.status*) \ cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh;; \ *) \ echo ' cd $(top_builddir) && $(SHELL) ./config.status $(subdir)/$@ $(am__depfiles_maybe)'; \ cd $(top_builddir) && $(SHELL) ./config.status $(subdir)/$@ $(am__depfiles_maybe);; \ esac; $(top_builddir)/config.status: $(top_srcdir)/configure $(CONFIG_STATUS_DEPENDENCIES) cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh $(top_srcdir)/configure: $(am__configure_deps) cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh $(ACLOCAL_M4): $(am__aclocal_m4_deps) cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh $(am__aclocal_m4_deps): mostlyclean-libtool: -rm -f *.lo clean-libtool: -rm -rf .libs _libs # This directory's subdirectories are mostly independent; you can cd # into them and run `make' without going through this Makefile. # To change the values of `make' variables: instead of editing Makefiles, # (1) if the variable is set in `config.status', edit `config.status' # (which will cause the Makefiles to be regenerated when you run `make'); # (2) otherwise, pass the desired values on the `make' command line. $(RECURSIVE_TARGETS): @fail= failcom='exit 1'; \ for f in x $$MAKEFLAGS; do \ case $$f in \ *=* | --[!k]*);; \ *k*) failcom='fail=yes';; \ esac; \ done; \ dot_seen=no; \ target=`echo $@ | sed s/-recursive//`; \ list='$(SUBDIRS)'; for subdir in $$list; do \ echo "Making $$target in $$subdir"; \ if test "$$subdir" = "."; then \ dot_seen=yes; \ local_target="$$target-am"; \ else \ local_target="$$target"; \ fi; \ ($(am__cd) $$subdir && $(MAKE) $(AM_MAKEFLAGS) $$local_target) \ || eval $$failcom; \ done; \ if test "$$dot_seen" = "no"; then \ $(MAKE) $(AM_MAKEFLAGS) "$$target-am" || exit 1; \ fi; test -z "$$fail" $(RECURSIVE_CLEAN_TARGETS): @fail= failcom='exit 1'; \ for f in x $$MAKEFLAGS; do \ case $$f in \ *=* | --[!k]*);; \ *k*) failcom='fail=yes';; \ esac; \ done; \ dot_seen=no; \ case "$@" in \ distclean-* | maintainer-clean-*) list='$(DIST_SUBDIRS)' ;; \ *) list='$(SUBDIRS)' ;; \ esac; \ rev=''; for subdir in $$list; do \ if test "$$subdir" = "."; then :; else \ rev="$$subdir $$rev"; \ fi; \ done; \ rev="$$rev ."; \ target=`echo $@ | sed s/-recursive//`; \ for subdir in $$rev; do \ echo "Making $$target in $$subdir"; \ if test "$$subdir" = "."; then \ local_target="$$target-am"; \ else \ local_target="$$target"; \ fi; \ ($(am__cd) $$subdir && $(MAKE) $(AM_MAKEFLAGS) $$local_target) \ || eval $$failcom; \ done && test -z "$$fail" tags-recursive: list='$(SUBDIRS)'; for subdir in $$list; do \ test "$$subdir" = . || ($(am__cd) $$subdir && $(MAKE) $(AM_MAKEFLAGS) tags); \ done ctags-recursive: list='$(SUBDIRS)'; for subdir in $$list; do \ test "$$subdir" = . || ($(am__cd) $$subdir && $(MAKE) $(AM_MAKEFLAGS) ctags); \ done ID: $(HEADERS) $(SOURCES) $(LISP) $(TAGS_FILES) list='$(SOURCES) $(HEADERS) $(LISP) $(TAGS_FILES)'; \ unique=`for i in $$list; do \ if test -f "$$i"; then echo $$i; else echo $(srcdir)/$$i; fi; \ done | \ $(AWK) '{ files[$$0] = 1; nonempty = 1; } \ END { if (nonempty) { for (i in files) print i; }; }'`; \ mkid -fID $$unique tags: TAGS TAGS: tags-recursive $(HEADERS) $(SOURCES) $(TAGS_DEPENDENCIES) \ $(TAGS_FILES) $(LISP) set x; \ here=`pwd`; \ if ($(ETAGS) --etags-include --version) >/dev/null 2>&1; then \ include_option=--etags-include; \ empty_fix=.; \ else \ include_option=--include; \ empty_fix=; \ fi; \ list='$(SUBDIRS)'; for subdir in $$list; do \ if test "$$subdir" = .; then :; else \ test ! -f $$subdir/TAGS || \ set "$$@" "$$include_option=$$here/$$subdir/TAGS"; \ fi; \ done; \ list='$(SOURCES) $(HEADERS) $(LISP) $(TAGS_FILES)'; \ unique=`for i in $$list; do \ if test -f "$$i"; then echo $$i; else echo $(srcdir)/$$i; fi; \ done | \ $(AWK) '{ files[$$0] = 1; nonempty = 1; } \ END { if (nonempty) { for (i in files) print i; }; }'`; \ shift; \ if test -z "$(ETAGS_ARGS)$$*$$unique"; then :; else \ test -n "$$unique" || unique=$$empty_fix; \ if test $$# -gt 0; then \ $(ETAGS) $(ETAGSFLAGS) $(AM_ETAGSFLAGS) $(ETAGS_ARGS) \ "$$@" $$unique; \ else \ $(ETAGS) $(ETAGSFLAGS) $(AM_ETAGSFLAGS) $(ETAGS_ARGS) \ $$unique; \ fi; \ fi ctags: CTAGS CTAGS: ctags-recursive $(HEADERS) $(SOURCES) $(TAGS_DEPENDENCIES) \ $(TAGS_FILES) $(LISP) list='$(SOURCES) $(HEADERS) $(LISP) $(TAGS_FILES)'; \ unique=`for i in $$list; do \ if test -f "$$i"; then echo $$i; else echo $(srcdir)/$$i; fi; \ done | \ $(AWK) '{ files[$$0] = 1; nonempty = 1; } \ END { if (nonempty) { for (i in files) print i; }; }'`; \ test -z "$(CTAGS_ARGS)$$unique" \ || $(CTAGS) $(CTAGSFLAGS) $(AM_CTAGSFLAGS) $(CTAGS_ARGS) \ $$unique GTAGS: here=`$(am__cd) $(top_builddir) && pwd` \ && $(am__cd) $(top_srcdir) \ && gtags -i $(GTAGS_ARGS) "$$here" distclean-tags: -rm -f TAGS ID GTAGS GRTAGS GSYMS GPATH tags distdir: $(DISTFILES) @srcdirstrip=`echo "$(srcdir)" | sed 's/[].[^$$\\*]/\\\\&/g'`; \ topsrcdirstrip=`echo "$(top_srcdir)" | sed 's/[].[^$$\\*]/\\\\&/g'`; \ list='$(DISTFILES)'; \ dist_files=`for file in $$list; do echo $$file; done | \ sed -e "s|^$$srcdirstrip/||;t" \ -e "s|^$$topsrcdirstrip/|$(top_builddir)/|;t"`; \ case $$dist_files in \ */*) $(MKDIR_P) `echo "$$dist_files" | \ sed '/\//!d;s|^|$(distdir)/|;s,/[^/]*$$,,' | \ sort -u` ;; \ esac; \ for file in $$dist_files; do \ if test -f $$file || test -d $$file; then d=.; else d=$(srcdir); fi; \ if test -d $$d/$$file; then \ dir=`echo "/$$file" | sed -e 's,/[^/]*$$,,'`; \ if test -d "$(distdir)/$$file"; then \ find "$(distdir)/$$file" -type d ! -perm -700 -exec chmod u+rwx {} \;; \ fi; \ if test -d $(srcdir)/$$file && test $$d != $(srcdir); then \ cp -fpR $(srcdir)/$$file "$(distdir)$$dir" || exit 1; \ find "$(distdir)/$$file" -type d ! -perm -700 -exec chmod u+rwx {} \;; \ fi; \ cp -fpR $$d/$$file "$(distdir)$$dir" || exit 1; \ else \ test -f "$(distdir)/$$file" \ || cp -p $$d/$$file "$(distdir)/$$file" \ || exit 1; \ fi; \ done @list='$(DIST_SUBDIRS)'; for subdir in $$list; do \ if test "$$subdir" = .; then :; else \ $(am__make_dryrun) \ || test -d "$(distdir)/$$subdir" \ || $(MKDIR_P) "$(distdir)/$$subdir" \ || exit 1; \ dir1=$$subdir; dir2="$(distdir)/$$subdir"; \ $(am__relativize); \ new_distdir=$$reldir; \ dir1=$$subdir; dir2="$(top_distdir)"; \ $(am__relativize); \ new_top_distdir=$$reldir; \ echo " (cd $$subdir && $(MAKE) $(AM_MAKEFLAGS) top_distdir="$$new_top_distdir" distdir="$$new_distdir" \\"; \ echo " am__remove_distdir=: am__skip_length_check=: am__skip_mode_fix=: distdir)"; \ ($(am__cd) $$subdir && \ $(MAKE) $(AM_MAKEFLAGS) \ top_distdir="$$new_top_distdir" \ distdir="$$new_distdir" \ am__remove_distdir=: \ am__skip_length_check=: \ am__skip_mode_fix=: \ distdir) \ || exit 1; \ fi; \ done check-am: all-am check: check-recursive all-am: Makefile installdirs: installdirs-recursive installdirs-am: install: install-recursive install-exec: install-exec-recursive install-data: install-data-recursive uninstall: uninstall-recursive install-am: all-am @$(MAKE) $(AM_MAKEFLAGS) install-exec-am install-data-am installcheck: installcheck-recursive install-strip: if test -z '$(STRIP)'; then \ $(MAKE) $(AM_MAKEFLAGS) INSTALL_PROGRAM="$(INSTALL_STRIP_PROGRAM)" \ install_sh_PROGRAM="$(INSTALL_STRIP_PROGRAM)" INSTALL_STRIP_FLAG=-s \ install; \ else \ $(MAKE) $(AM_MAKEFLAGS) INSTALL_PROGRAM="$(INSTALL_STRIP_PROGRAM)" \ install_sh_PROGRAM="$(INSTALL_STRIP_PROGRAM)" INSTALL_STRIP_FLAG=-s \ "INSTALL_PROGRAM_ENV=STRIPPROG='$(STRIP)'" install; \ fi mostlyclean-generic: clean-generic: distclean-generic: -test -z "$(CONFIG_CLEAN_FILES)" || rm -f $(CONFIG_CLEAN_FILES) -test . = "$(srcdir)" || test -z "$(CONFIG_CLEAN_VPATH_FILES)" || rm -f $(CONFIG_CLEAN_VPATH_FILES) maintainer-clean-generic: @echo "This command is intended for maintainers to use" @echo "it deletes files that may require special tools to rebuild." clean: clean-recursive clean-am: clean-generic clean-libtool mostlyclean-am distclean: distclean-recursive -rm -f Makefile distclean-am: clean-am distclean-generic distclean-tags dvi: dvi-recursive dvi-am: html: html-recursive html-am: info: info-recursive info-am: install-data-am: install-dvi: install-dvi-recursive install-dvi-am: install-exec-am: install-html: install-html-recursive install-html-am: install-info: install-info-recursive install-info-am: install-man: install-pdf: install-pdf-recursive install-pdf-am: install-ps: install-ps-recursive install-ps-am: installcheck-am: maintainer-clean: maintainer-clean-recursive -rm -f Makefile maintainer-clean-am: distclean-am maintainer-clean-generic mostlyclean: mostlyclean-recursive mostlyclean-am: mostlyclean-generic mostlyclean-libtool pdf: pdf-recursive pdf-am: ps: ps-recursive ps-am: uninstall-am: .MAKE: $(RECURSIVE_CLEAN_TARGETS) $(RECURSIVE_TARGETS) ctags-recursive \ install-am install-strip tags-recursive .PHONY: $(RECURSIVE_CLEAN_TARGETS) $(RECURSIVE_TARGETS) CTAGS GTAGS \ all all-am check check-am clean clean-generic clean-libtool \ ctags ctags-recursive distclean distclean-generic \ distclean-libtool distclean-tags distdir dvi dvi-am html \ html-am info info-am install install-am install-data \ install-data-am install-dvi install-dvi-am install-exec \ install-exec-am install-html install-html-am install-info \ install-info-am install-man install-pdf install-pdf-am \ install-ps install-ps-am install-strip installcheck \ installcheck-am installdirs installdirs-am maintainer-clean \ maintainer-clean-generic mostlyclean mostlyclean-generic \ mostlyclean-libtool pdf pdf-am ps ps-am tags tags-recursive \ uninstall uninstall-am # Tell versions [3.59,3.63) of GNU make to not export all variables. # Otherwise a system limit (for SysV at least) may be exceeded. .NOEXPORT: guile-gnome-platform-2.16.2/libgnomecanvas/README0000644000175000017500000000170111670374303022037 0ustar00wingowingo00000000000000guile-gnome-libgnomecanvas README Copyright (C) 2004 Free Software Foundation, Inc. See the end for copying conditions of this file. Last updated 16 September 2004. About guile-gnome-libgnomecanvas ================================ guile-gnome-libgnomecanvas is a Guile wrapper for the GNOME canvas library. It is a part of GNU guile-gnome. See the README file in the toplevel source directory for more information. Build dependencies ================== Besides the base guile-gnome requirements given in ../README, guile-gnome-libgnomecanvas requires libgnomecanvas development packages. guile-gnome-libgnomecanvas depends on the following guile-gnome modules: glib, defs, atk, pango, gtk. Copying this file ================= Copyright (C) 2004 Free Software Foundation, Inc. Copying and distribution of this file, with or without modification, are permitted in any medium without royalty provided the copyright notice and this notice are preserved. guile-gnome-platform-2.16.2/libgnomecanvas/AUTHORS0000644000175000017500000000066611670374303022240 0ustar00wingowingo00000000000000To find out what should go in this file, see "Information For Maintainers of GNU Software" (maintain.texi), the section called "Recording Changes". Jan Nieuwenhuizen: In the directory gnome/gw, wrote: canvas-spec.scm libgnomecanvas-support.c libgnomecanvas-support.h In the directory gnome/overrides, wrote: canvas.defs In the directory examples, wrote: canvas.scm Andy Wingo: In the directory gnome, wrote: canvas.scm guile-gnome-platform-2.16.2/libgnomecanvas/ChangeLog.pre-2.160000644000175000017500000002005611670374303024106 0ustar00wingowingo000000000000002008-05-01 Andy Wingo * doc/overview.texi (Overview): Add overview docs. 2008-04-25 Andy Wingo * == Released guile-gnome-platform version 2.15.98 == 2008-04-25 Andy Wingo * examples/canvas.scm (gnome-2): Update example to use gnome-2. * doc/*.texi: Update docs. 2008-04-24 Andy Wingo * gnome/gw/libgnomecanvas-support.c (guile_gnome_scm_to_canvas_points): Fix some deprecation warnings. 2008-04-10 Andy Wingo * == Released guile-gnome-platform version 2.15.97 == 2008-04-10 Andy Wingo * NEWS: Update NEWS. 2007-12-17 Jan Nieuwenhuizen * gnome/gw/libgnomecanvas-support.c ("guile-gnome-scm-to-canvas-points"): Compile fix. 2008-04-08 Andy Wingo * gnome/gw/libgnomecanvas-support.c (_wrap_gnome_canvas_points_new): Use scm_c_gvalue_new_take_boxed. 2007-12-10 Andy Wingo * == Released guile-gnome-platform version 2.15.96 == 2007-12-08 Andy Wingo * tests/wrapset.api: Updated. * doc/undocumented.texi (Undocumented): * doc/defuns-gnome-canvas-util.xml.texi: Regenerated. * gnome/overrides/libgnomecanvas.defs: Don't wrap gnome-canvas-points-copy, it's unnecessary. Don't provide a custom canvas-points-new, that's taken care of by the foo in canvas-spec.scm. * gnome/gw/canvas-spec.scm (initialize): Wrap properly. * examples/canvas.scm: Update to use (oop goops), to work around lack of path-def generics, and to use the proper SCM representation for . 2007-12-06 Andy Wingo * tests/wrapset.api: Update for API removal. * gnome/canvas.scm (, moveto, curveto) (lineto, closepath, reset, set-path-def, get-path-def): Unfortunately, now that we wrap properly, we can't have these convenient generics, because is a class. If this is to be fixed, it should be fixed in the core. Removing these manual wrappers. * doc/defuns-*.texi: Regenerated. * doc/guile-gnome-libgnomecanvas.texi (Top): * doc/undocumented.texi: New section for undocumented exports. 2007-11-30 Andy Wingo * gnome/overrides/libgnomecanvas.defs: Mark GnomeCanvasPathDef as a boxed, and ignore functions dealing in libart types. 2007-11-10 Andy Wingo * == Released guile-gnome-platform version 2.15.95 == 2007-11-10 Andy Wingo * gnome/canvas.scm: Fix some code that assumed different strategies for exporting generics. * tests/Makefile.am: * tests/wrapset.api: * tests/wrapset.scm: Add API regression test suite. 2007-11-01 Andy Wingo * Makefile.am: * doc/: Add documentation, generated from upstream gtk-doc. 2007-09-25 Andy Wingo * == Released guile-gnome-platform version 2.15.94 == 2007-09-25 Andy Wingo * NEWS: Updated. 2007-06-15 Andy Wingo * == Released guile-gnome-platform version 2.15.93 == 2007-05-24 Andy Wingo * == Released guile-gnome-platform version 2.15.92 == 2007-05-24 Andy Wingo * gnome/overrides/libgnomecanvas.defs: Update for autogenerated defs and libgnomecanvas of gnome 2.16. 2007-05-10 Andy Wingo * == Released guile-gnome-platform version 2.15.91 == 2007-05-05 Andy Wingo * gnome/gw/canvas-spec.scm (initialize): The glib wrapset declares the type rules we need, remove ours. 2007-05-04 Andy Wingo * gnome/overrides/libgnomecanvas.defs (gnome_canvas_points_new): Don't leave guile mode for this one. 2006-12-15 Andy Wingo * == Released guile-gnome-platform version 2.15.90 == 2006-11-05 Andy Wingo * gnome/gw/canvas-spec.scm: Use (gnome gw support g-wrap), the g-wrap compatibility wrapper. 2006-08-13 Andy Wingo * gnome/overrides/libgnomecanvas.defs ("gnome_canvas_item_construct"): Don't ignore this one twice. Wha? 2005-10-08 Andy Wingo * gnome/overrides/libgnomecanvas.defs: Ignore gnome_canvas_item_construct, it has a va_list argument. 2005-03-06 Andy Wingo * == Released guile-gnome-platform version 2.7.99 == 2005-01-11 Andy Wingo * == Released platform version 2.7.98 == 2005-04-09 Andreas Rottmann * gnome/overrides/libgnomecanvas.defs: Ignore some more functions. 2005-01-24 Jan Nieuwenhuizen * examples/canvas.scm (main): Add return parameter example call using receive. 2005-01-23 Jan Nieuwenhuizen * gnome/gw/canvas-spec.scm (initialize): Add return parameter override for double*. 2004-12-06 Andy Wingo * == Released platform version 2.7.97 == 2004-11-16 Jan Nieuwenhuizen * examples/canvas.scm: Add line. 2004-11-15 Andy Wingo * examples/canvas.scm: Use (gnome-0) now. Schitzophrenia. * package.ac: Add record_check. 2004-11-14 Jan Nieuwenhuizen * gnome/gw/libgnomecanvas-support.c (_wrap_gnome_canvas_points_new): New wrapper. * gnome/overrides/libgnomecanvas.defs (gnome_canvas_points_new): New override. * gnome/canvas.scm (): Add class. * examples/canvas.scm (main): Add bezier. 2004-10-28 Andy Wingo * gtk-checks.ac: * glib-checks.ac: Versioned pkg-config check. * examples/canvas.scm: Use "exec guile-gnome-0 ...". (main): Handle delete-event. 2004-10-26 Andy Wingo * gnome/gw/Makefile.am (guilegnomelib_LTLIBRARIES): Install to versioned directory. 2004-09-27 Andy Wingo * examples/canvas.scm: Add license block. 2004-09-19 Andy Wingo * gnome/gw/Makefile.am (libgw_guile_gnome_canvas_la_LIBADD): Not G_WRAP_LINK_ARGS, it's G_WRAP_LIBS. * gnome/gw/canvas-spec.scm (): Depend on gtk. 2004-09-16 Andy Wingo * Makefile.am (SUBDIRS): Dist fixes. * README: Added. * NEWS: Added. * AUTHORS: Added. * gtk-checks.ac: Check the right package. * glib-checks.ac: Check the right package. 2004-09-15 Andy Wingo * gnome/Makefile.am: Install to the proper directory. * examples/canvas.scm: Don't use gnome-canvas-item-new. Some style cleanups. * gnome/overrides/libgnomecanvas.defs: Merge with janneke's version, with the affine wrappers and all. 2004-09-12 Andy Wingo * gnome/canvas.scm: New file. * examples/canvas.scm (main): Get the type of a canvas rect via gtype-class->type. The example still isn't working; I don't know how it ever did. Use (gnome canvas). * Makefile.am (EXTRA_DIST): Dist fixes. * gnome/gw/canvas-spec.scm (initialize): Adapt for module name changes, load-defs-with-overrides. * gnome/canvas.scm: New file. * gnome/gw/Makefile.am (libgw_guile_gnome_canvas_la_SOURCES): Don't dist the g-wrap generated C files. * gnome/overrides/, gnome/Makefile.am: Add overrides. 2004-06-26 Jan Nieuwenhuizen * gnome/gw/canvas-spec.scm (initialize): Remove depends-on. (): Add #:dependencies. 2004-06-14 Jan Nieuwenhuizen * gnome/gw/Makefile.am (BUILT_SOURCES): Build fix. 2004-06-13 Jan Nieuwenhuizen * examples/canvas.scm: Update canvas module import. * gnome/gw/canvas-spec.scm: Bugfix: use 'gnome-canvas name for generating wrapset. 2004-06-11 Jan Nieuwenhuizen * gnome/gw/canvas-spec.scm: New name (WAS: libgnomecanvas-spec.scm). * gnome/gw/Makefile.am: Drop `libgnome' from toplevel module name and -spec.scm file. 2004-05-27 Jan Nieuwenhuizen * examples/canvas.scm (main): Use more apt example text, use move and affine. 2004-05-26 Jan Nieuwenhuizen * examples/canvas.scm: New file. * libgnomecanvas/Makefile.am (SUBDIRS): Add examples. 2004-05-25 Jan Nieuwenhuizen * ChangeLog: New file. guile-gnome-platform-2.16.2/libgnomecanvas/ChangeLog0000644000175000017500000000006711670374303022735 0ustar00wingowingo00000000000000See the revision control log for changes since 2.16.0. guile-gnome-platform-2.16.2/cairo/0000755000175000017500000000000011752546500017266 5ustar00wingowingo00000000000000guile-gnome-platform-2.16.2/cairo/guile-gnome-cairo.pc.in0000644000175000017500000000017011670374302023516 0ustar00wingowingo00000000000000Name: Guile-Gnome Cairo integration Description: Guile-Gnome Cairo integration Version: @VERSION@ Requires: guile-cairo guile-gnome-platform-2.16.2/cairo/gnome/0000755000175000017500000000000011752546500020373 5ustar00wingowingo00000000000000guile-gnome-platform-2.16.2/cairo/gnome/gw/0000755000175000017500000000000011752546500021010 5ustar00wingowingo00000000000000guile-gnome-platform-2.16.2/cairo/gnome/gw/cairo-spec.scm0000644000175000017500000001355311751764617023562 0ustar00wingowingo00000000000000;; guile-gnome ;; Copyright (C) 2007, 2012 Free Software Foundation, Inc. ;; This program is free software; you can redistribute it and/or ;; modify it under the terms of the GNU General Public License as ;; published by the Free Software Foundation; either version 2 of ;; the License, or (at your option) any later version. ;; ;; This program is distributed in the hope that it will be useful, ;; but WITHOUT ANY WARRANTY; without even the implied warranty of ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the ;; GNU General Public License for more details. ;; ;; You should have received a copy of the GNU General Public License ;; along with this program; if not, contact: ;; ;; Free Software Foundation Voice: +1-617-542-5942 ;; 59 Temple Place - Suite 330 Fax: +1-617-542-2652 ;; Boston, MA 02111-1307, USA gnu@gnu.org ;;; Commentary: ;; ;;g-wrap specification for cairo. ;; ;;; Code: (define-module (gnome gw cairo-spec) #:use-module (oop goops) #:use-module (gnome gw support g-wrap) #:use-module (gnome gw gobject-spec) #:use-module (gnome gw support gobject)) ;; G-Wrap inelegance (define-class () (c-type-name #:getter c-type-name #:init-keyword #:c-type-name)) (define-method (check-typespec-options (type ) (options )) ;; accept all options -- hacky but we don't care #t) (define-method (c-type-name (type ) (typespec )) (let ((c-name (slot-ref type 'c-type-name))) (if (memq 'const (options typespec)) (string-append "const " c-name) c-name))) ;; not an RTI type because we want to avoid generating yet another ;; microlibrary (define-class () (wrap #:init-keyword #:wrap) (unwrap #:init-keyword #:unwrap) (take #:init-keyword #:take)) (define (unwrap-null-checked value status-var code) (if-typespec-option value 'null-ok (list "if (SCM_FALSEP (" (scm-var value) "))\n" " " (var value) " = NULL;\n" "else {\n" code "}\n") code)) (define-method (unwrap-value-cg (type ) (value ) status-var) (let ((c-var (var value)) (scm-var (scm-var value))) (list (unwrap-null-checked value status-var (list c-var " = " (slot-ref type 'unwrap) " (" scm-var ");"))))) (define-method (wrap-value-cg (type ) (value ) status-var) (let ((c-var (var value)) (scm-var (scm-var value))) (list "if (" c-var " == NULL)\n" " " scm-var " = SCM_BOOL_F;\n" "else {\n" (if-typespec-option value 'caller-owned (list scm-var " = " (slot-ref type 'take) " (" c-var ");") (list scm-var " = " (slot-ref type 'wrap) " (" c-var ");")) "}\n"))) (define-class () (unwrap #:init-keyword #:unwrap) (copy #:init-keyword #:copy) (take #:init-keyword #:take)) (define-method (unwrap-value-cg (type ) (value ) status-var) (let ((c-var (var value)) (scm-var (scm-var value))) (list (unwrap-null-checked value status-var (list c-var " = " (slot-ref type 'unwrap) " (" scm-var ");"))))) (define-method (wrap-value-cg (type ) (value ) status-var) (let ((c-var (var value)) (scm-var (scm-var value))) (list "if (" c-var " == NULL)\n" " " scm-var " = SCM_BOOL_F;\n" "else { \n" (if-typespec-option value 'callee-owned (list " " scm-var " = " (slot-ref type 'take) " (" (slot-ref type 'copy) "(" c-var "));") (list " " scm-var " = " (slot-ref type 'take) " (" c-var ");")) "}\n"))) (define-class ()) (define-method (global-declarations-cg (ws ) (a )) '("#include \n")) (define-class () #:id 'gnome-cairo #:dependencies '(standard gnome-glib)) (define-method (initialize (ws ) initargs) (next-method ws (cons #:module (cons '(gnome gw cairo) initargs))) (add-client-item! ws (make )) (add-type! ws (make #:name 'cairo-t #:c-type-name "cairo_t*" #:wrap "scm_from_cairo" #:unwrap "scm_to_cairo" #:take "scm_take_cairo")) (add-type-alias! ws "cairo_t*" 'cairo-t) (add-type! ws (make #:name 'cairo-font-options-t #:c-type-name "cairo_font_options_t*" #:unwrap "scm_to_cairo_font_options" #:copy "cairo_font_options_copy" #:take "scm_take_cairo_font_options")) (add-type-alias! ws "cairo_font_options_t*" 'cairo-font-options-t) (add-type! ws (make #:name 'cairo-path-t #:c-type-name "cairo_path_t*" #:unwrap "scm_to_cairo_path" #:copy "cairo_copy_path" #:take "scm_take_cairo_path")) (add-type-alias! ws "cairo_path_t*" 'cairo-path-t)) (define-method (global-declarations-cg (ws )) (list (next-method) "#include \n")) (define-method (initializations-cg (wrapset ) err) (list (next-method) "scm_init_cairo ();\n")) ;; pango-cairo ;; cairo_t, cairo_font_options_t ;; gdk/gtk ;; cairo_t, cairo_surface_t, cairo_font_options_tguile-gnome-platform-2.16.2/cairo/gnome/gw/Makefile.am0000644000175000017500000000155311670374302023046 0ustar00wingowingo00000000000000include $(top_srcdir)/common.mk guilegwmodule_DATA = cairo-spec.scm cairo.scm EXTRA_DIST = cairo-spec.scm CLEANFILES = $(wildcard gnome-*.log) # I wanted to avoid having a cairo shlib, because there is no need, but # fighting g-wrap is too difficult for the moment. guilegnomelib_LTLIBRARIES = libgw-guile-gnome-cairo.la ######################################################################## ## cairo nodist_libgw_guile_gnome_cairo_la_SOURCES = guile-gnome-gw-cairo.c libgw_guile_gnome_cairo_la_CFLAGS = $(GUILE_GLIB_CFLAGS) $(GLIB_CFLAGS) \ $(AM_CFLAGS) $(GUILE_CAIRO_CFLAGS) $(GUILE_CFLAGS) \ $(G_WRAP_CFLAGS) libgw_guile_gnome_cairo_la_LIBADD = $(GUILE_CAIRO_LIBS) $(GUILE_LIBS) \ $(G_WRAP_LIBS) $(GUILE_GLIB_LIBS) libgw_guile_gnome_cairo_la_LDFLAGS = -module CLEANFILES += $(wildcard guile-gnome-gw-cairo.*) cairo.scm BUILT_SOURCES = guile-gnome-gw-cairo.c guile-gnome-platform-2.16.2/cairo/gnome/gw/Makefile.in0000644000175000017500000006263111752520664023070 0ustar00wingowingo00000000000000# Makefile.in generated by automake 1.11.5 from Makefile.am. # @configure_input@ # Copyright (C) 1994, 1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, # 2003, 2004, 2005, 2006, 2007, 2008, 2009, 2010, 2011 Free Software # Foundation, Inc. # This Makefile.in is free software; the Free Software Foundation # gives unlimited permission to copy and/or distribute it, # with or without modifications, as long as this notice is preserved. # This program is distributed in the hope that it will be useful, # but WITHOUT ANY WARRANTY, to the extent permitted by law; without # even the implied warranty of MERCHANTABILITY or FITNESS FOR A # PARTICULAR PURPOSE. @SET_MAKE@ # guile-gnome # Copyright (C) 2003,2004,2009,2012 Free Software Foundation, Inc. # This program is free software; you can redistribute it and/or # modify it under the terms of the GNU General Public License as # published by the Free Software Foundation; either version 2 of # the License, or (at your option) any later version. # This program is distributed in the hope that it will be useful, # but WITHOUT ANY WARRANTY; without even the implied warranty of # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the # GNU General Public License for more details. # You should have received a copy of the GNU General Public License # along with this program; if not, contact: # Free Software Foundation Voice: +1-617-542-5942 # 59 Temple Place - Suite 330 Fax: +1-617-542-2652 # Boston, MA 02111-1307, USA gnu@gnu.org # # Makefile snippet # VPATH = @srcdir@ am__make_dryrun = \ { \ am__dry=no; \ case $$MAKEFLAGS in \ *\\[\ \ ]*) \ echo 'am--echo: ; @echo "AM" OK' | $(MAKE) -f - 2>/dev/null \ | grep '^AM OK$$' >/dev/null || am__dry=yes;; \ *) \ for am__flg in $$MAKEFLAGS; do \ case $$am__flg in \ *=*|--*) ;; \ *n*) am__dry=yes; break;; \ esac; \ done;; \ esac; \ test $$am__dry = yes; \ } pkgdatadir = $(datadir)/@PACKAGE@ pkgincludedir = $(includedir)/@PACKAGE@ pkglibdir = $(libdir)/@PACKAGE@ pkglibexecdir = $(libexecdir)/@PACKAGE@ am__cd = CDPATH="$${ZSH_VERSION+.}$(PATH_SEPARATOR)" && cd install_sh_DATA = $(install_sh) -c -m 644 install_sh_PROGRAM = $(install_sh) -c install_sh_SCRIPT = $(install_sh) -c INSTALL_HEADER = $(INSTALL_DATA) transform = $(program_transform_name) NORMAL_INSTALL = : PRE_INSTALL = : POST_INSTALL = : NORMAL_UNINSTALL = : PRE_UNINSTALL = : POST_UNINSTALL = : build_triplet = @build@ host_triplet = @host@ DIST_COMMON = $(srcdir)/Makefile.am $(srcdir)/Makefile.in \ $(top_srcdir)/common.mk subdir = cairo/gnome/gw ACLOCAL_M4 = $(top_srcdir)/aclocal.m4 am__aclocal_m4_deps = $(top_srcdir)/configure.ac am__configure_deps = $(am__aclocal_m4_deps) $(CONFIGURE_DEPENDENCIES) \ $(ACLOCAL_M4) mkinstalldirs = $(install_sh) -d CONFIG_HEADER = $(top_builddir)/config.h CONFIG_CLEAN_FILES = CONFIG_CLEAN_VPATH_FILES = am__vpath_adj_setup = srcdirstrip=`echo "$(srcdir)" | sed 's|.|.|g'`; am__vpath_adj = case $$p in \ $(srcdir)/*) f=`echo "$$p" | sed "s|^$$srcdirstrip/||"`;; \ *) f=$$p;; \ esac; am__strip_dir = f=`echo $$p | sed -e 's|^.*/||'`; am__install_max = 40 am__nobase_strip_setup = \ srcdirstrip=`echo "$(srcdir)" | sed 's/[].[^$$\\*|]/\\\\&/g'` am__nobase_strip = \ for p in $$list; do echo "$$p"; done | sed -e "s|$$srcdirstrip/||" am__nobase_list = $(am__nobase_strip_setup); \ for p in $$list; do echo "$$p $$p"; done | \ sed "s| $$srcdirstrip/| |;"' / .*\//!s/ .*/ ./; s,\( .*\)/[^/]*$$,\1,' | \ $(AWK) 'BEGIN { files["."] = "" } { files[$$2] = files[$$2] " " $$1; \ if (++n[$$2] == $(am__install_max)) \ { print $$2, files[$$2]; n[$$2] = 0; files[$$2] = "" } } \ END { for (dir in files) print dir, files[dir] }' am__base_list = \ sed '$$!N;$$!N;$$!N;$$!N;$$!N;$$!N;$$!N;s/\n/ /g' | \ sed '$$!N;$$!N;$$!N;$$!N;s/\n/ /g' am__uninstall_files_from_dir = { \ test -z "$$files" \ || { test ! -d "$$dir" && test ! -f "$$dir" && test ! -r "$$dir"; } \ || { echo " ( cd '$$dir' && rm -f" $$files ")"; \ $(am__cd) "$$dir" && rm -f $$files; }; \ } am__installdirs = "$(DESTDIR)$(guilegnomelibdir)" \ "$(DESTDIR)$(guilegwmoduledir)" LTLIBRARIES = $(guilegnomelib_LTLIBRARIES) am__DEPENDENCIES_1 = libgw_guile_gnome_cairo_la_DEPENDENCIES = $(am__DEPENDENCIES_1) \ $(am__DEPENDENCIES_1) $(am__DEPENDENCIES_1) \ $(am__DEPENDENCIES_1) nodist_libgw_guile_gnome_cairo_la_OBJECTS = \ libgw_guile_gnome_cairo_la-guile-gnome-gw-cairo.lo libgw_guile_gnome_cairo_la_OBJECTS = \ $(nodist_libgw_guile_gnome_cairo_la_OBJECTS) libgw_guile_gnome_cairo_la_LINK = $(LIBTOOL) --tag=CC \ $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=link $(CCLD) \ $(libgw_guile_gnome_cairo_la_CFLAGS) $(CFLAGS) \ $(libgw_guile_gnome_cairo_la_LDFLAGS) $(LDFLAGS) -o $@ DEFAULT_INCLUDES = -I.@am__isrc@ -I$(top_builddir) depcomp = $(SHELL) $(top_srcdir)/build-aux/depcomp am__depfiles_maybe = depfiles am__mv = mv -f COMPILE = $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(AM_CPPFLAGS) \ $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) LTCOMPILE = $(LIBTOOL) --tag=CC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) \ --mode=compile $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) \ $(AM_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) CCLD = $(CC) LINK = $(LIBTOOL) --tag=CC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) \ --mode=link $(CCLD) $(AM_CFLAGS) $(CFLAGS) $(AM_LDFLAGS) \ $(LDFLAGS) -o $@ SOURCES = $(nodist_libgw_guile_gnome_cairo_la_SOURCES) DIST_SOURCES = am__can_run_installinfo = \ case $$AM_UPDATE_INFO_DIR in \ n|no|NO) false;; \ *) (install-info --version) >/dev/null 2>&1;; \ esac DATA = $(guilegwmodule_DATA) ETAGS = etags CTAGS = ctags DISTFILES = $(DIST_COMMON) $(DIST_SOURCES) $(TEXINFOS) $(EXTRA_DIST) ACLOCAL = @ACLOCAL@ AG_PKG_CONFIG_PATH = @AG_PKG_CONFIG_PATH@ AMTAR = @AMTAR@ API_VERSION = @API_VERSION@ AR = @AR@ ATK_CFLAGS = @ATK_CFLAGS@ ATK_LIBS = @ATK_LIBS@ AUTOCONF = @AUTOCONF@ AUTOHEADER = @AUTOHEADER@ AUTOMAKE = @AUTOMAKE@ AWK = @AWK@ BONOBO_IDL_DIR = @BONOBO_IDL_DIR@ CANVAS_CFLAGS = @CANVAS_CFLAGS@ CANVAS_LIBS = @CANVAS_LIBS@ CC = @CC@ CCDEPMODE = @CCDEPMODE@ CFLAGS = @CFLAGS@ CORBA_CFLAGS = @CORBA_CFLAGS@ CORBA_LIBS = @CORBA_LIBS@ CPP = @CPP@ CPPFLAGS = @CPPFLAGS@ CYGPATH_W = @CYGPATH_W@ DEFS = @DEFS@ DEPDIR = @DEPDIR@ DLLTOOL = @DLLTOOL@ DSYMUTIL = @DSYMUTIL@ DUMPBIN = @DUMPBIN@ ECHO_C = @ECHO_C@ ECHO_N = @ECHO_N@ ECHO_T = @ECHO_T@ EGREP = @EGREP@ EXEEXT = @EXEEXT@ FGREP = @FGREP@ GCONF_CFLAGS = @GCONF_CFLAGS@ GCONF_LIBS = @GCONF_LIBS@ GDK_CFLAGS = @GDK_CFLAGS@ GDK_LIBS = @GDK_LIBS@ GDK_PIXBUF_CFLAGS = @GDK_PIXBUF_CFLAGS@ GDK_PIXBUF_LIBS = @GDK_PIXBUF_LIBS@ GLIB_CFLAGS = @GLIB_CFLAGS@ GLIB_LIBS = @GLIB_LIBS@ GNOMEUI_DEPRECATION_FLAGS = @GNOMEUI_DEPRECATION_FLAGS@ GNOME_VFS_CFLAGS = @GNOME_VFS_CFLAGS@ GNOME_VFS_DEPRECATED_CFLAGS = @GNOME_VFS_DEPRECATED_CFLAGS@ GNOME_VFS_LIBS = @GNOME_VFS_LIBS@ GOBJECT_CFLAGS = @GOBJECT_CFLAGS@ GOBJECT_LIBS = @GOBJECT_LIBS@ GREP = @GREP@ GTHREAD_CFLAGS = @GTHREAD_CFLAGS@ GTHREAD_LIBS = @GTHREAD_LIBS@ GTK_CFLAGS = @GTK_CFLAGS@ GTK_DEPRECATED_CFLAGS = @GTK_DEPRECATED_CFLAGS@ GTK_LIBS = @GTK_LIBS@ GUILE_CAIRO_CFLAGS = @GUILE_CAIRO_CFLAGS@ GUILE_CAIRO_LIBS = @GUILE_CAIRO_LIBS@ GUILE_CFLAGS = @GUILE_CFLAGS@ GUILE_EFFECTIVE_VERSION = @GUILE_EFFECTIVE_VERSION@ GUILE_GLIB_CFLAGS = @GUILE_GLIB_CFLAGS@ GUILE_GLIB_LIBS = @GUILE_GLIB_LIBS@ GUILE_LIBS = @GUILE_LIBS@ G_WRAP_CFLAGS = @G_WRAP_CFLAGS@ G_WRAP_LIBS = @G_WRAP_LIBS@ G_WRAP_LIB_DIR = @G_WRAP_LIB_DIR@ G_WRAP_MODULE_DIR = @G_WRAP_MODULE_DIR@ INSTALL = @INSTALL@ INSTALL_DATA = @INSTALL_DATA@ INSTALL_PROGRAM = @INSTALL_PROGRAM@ INSTALL_SCRIPT = @INSTALL_SCRIPT@ INSTALL_STRIP_PROGRAM = @INSTALL_STRIP_PROGRAM@ LD = @LD@ LDFLAGS = @LDFLAGS@ LIBGLADE_CFLAGS = @LIBGLADE_CFLAGS@ LIBGLADE_LIBS = @LIBGLADE_LIBS@ LIBGNOMEUI_CFLAGS = @LIBGNOMEUI_CFLAGS@ LIBGNOMEUI_LIBS = @LIBGNOMEUI_LIBS@ LIBGNOME_CFLAGS = @LIBGNOME_CFLAGS@ LIBGNOME_LIBS = @LIBGNOME_LIBS@ LIBOBJS = @LIBOBJS@ LIBS = @LIBS@ LIBTOOL = @LIBTOOL@ LIPO = @LIPO@ LN_S = @LN_S@ LTLIBOBJS = @LTLIBOBJS@ MAKEINFO = @MAKEINFO@ MANIFEST_TOOL = @MANIFEST_TOOL@ MKDIR_P = @MKDIR_P@ NM = @NM@ NMEDIT = @NMEDIT@ OBJDUMP = @OBJDUMP@ OBJEXT = @OBJEXT@ ORBIT_IDL = @ORBIT_IDL@ OTOOL = @OTOOL@ OTOOL64 = @OTOOL64@ PACKAGE = @PACKAGE@ PACKAGE_BUGREPORT = @PACKAGE_BUGREPORT@ PACKAGE_NAME = @PACKAGE_NAME@ PACKAGE_STRING = @PACKAGE_STRING@ PACKAGE_TARNAME = @PACKAGE_TARNAME@ PACKAGE_URL = @PACKAGE_URL@ PACKAGE_VERSION = @PACKAGE_VERSION@ PANGOCAIRO_CFLAGS = @PANGOCAIRO_CFLAGS@ PANGOCAIRO_LIBS = @PANGOCAIRO_LIBS@ PANGO_CFLAGS = @PANGO_CFLAGS@ PANGO_LIBS = @PANGO_LIBS@ PATH_SEPARATOR = @PATH_SEPARATOR@ PKG_CONFIG = @PKG_CONFIG@ PKG_CONFIG_LIBDIR = @PKG_CONFIG_LIBDIR@ PKG_CONFIG_PATH = @PKG_CONFIG_PATH@ RANLIB = @RANLIB@ SED = @SED@ SET_MAKE = @SET_MAKE@ SHELL = @SHELL@ STRIP = @STRIP@ VERSION = @VERSION@ WARN_CFLAGS = @WARN_CFLAGS@ abs_builddir = @abs_builddir@ abs_srcdir = @abs_srcdir@ abs_top_builddir = @abs_top_builddir@ abs_top_srcdir = @abs_top_srcdir@ ac_ct_AR = @ac_ct_AR@ ac_ct_CC = @ac_ct_CC@ ac_ct_DUMPBIN = @ac_ct_DUMPBIN@ am__include = @am__include@ am__leading_dot = @am__leading_dot@ am__quote = @am__quote@ am__tar = @am__tar@ am__untar = @am__untar@ bindir = @bindir@ build = @build@ build_alias = @build_alias@ build_cpu = @build_cpu@ build_os = @build_os@ build_vendor = @build_vendor@ builddir = @builddir@ datadir = @datadir@ datarootdir = @datarootdir@ docdir = @docdir@ dvidir = @dvidir@ exec_prefix = @exec_prefix@ host = @host@ host_alias = @host_alias@ host_cpu = @host_cpu@ host_os = @host_os@ host_vendor = @host_vendor@ htmldir = @htmldir@ includedir = @includedir@ infodir = @infodir@ install_sh = @install_sh@ libdir = @libdir@ libexecdir = @libexecdir@ localedir = @localedir@ localstatedir = @localstatedir@ mandir = @mandir@ mkdir_p = @mkdir_p@ oldincludedir = @oldincludedir@ pdfdir = @pdfdir@ prefix = @prefix@ program_transform_name = @program_transform_name@ psdir = @psdir@ sbindir = @sbindir@ sharedstatedir = @sharedstatedir@ srcdir = @srcdir@ sysconfdir = @sysconfdir@ target_alias = @target_alias@ top_build_prefix = @top_build_prefix@ top_builddir = @top_builddir@ top_srcdir = @top_srcdir@ guilegnomedir = $(datadir)/guile-gnome-@API_VERSION@ guilemoduledir = $(guilegnomedir)/gnome guilegwmoduledir = $(guilegnomedir)/gnome/gw guilegnomelibdir = $(libdir)/guile-gnome-@API_VERSION@ AM_CFLAGS = -I. -I$(srcdir) $(WARN_CFLAGS) $(DEBUG_CFLAGS) # For overriding from the command line (e.g. --debug) GUILE_FLAGS = SUFFIXES = .x .doc GUILE_SNARF_CFLAGS = $(DEFS) $(AM_CFLAGS) $(GUILE_CFLAGS) $(G_WRAP_CFLAGS) PACKAGES = atk cairo corba defs gconf glib gnome-vfs gtk libglade libgnome libgnomecanvas libgnomeui pango SOURCE_GUILE_PATH = $(shell echo $(addprefix $(top_srcdir)/,$(PACKAGES)) | sed -e 's/ /:/g'):$(srcdir) BUILD_GUILE_PATH = $(if $(filter-out $(top_srcdir),$(top_builddir)),$(shell echo -n $(addprefix $(top_builddir)/,$(PACKAGES)): | sed -e 's/ /:/g'),) GUILE_LOAD_PATH := $(BUILD_GUILE_PATH)$(SOURCE_GUILE_PATH):${G_WRAP_MODULE_DIR}:${GUILE_LOAD_PATH} # Real gnu make foo packages = $(filter-out %-uninstalled,$(patsubst %.pc.in,%,$(notdir $(wildcard $(srcdir)/*.pc.in)))) pcifiles = $(patsubst %,%-@API_VERSION@.pc,$(packages)) pcufiles = $(patsubst %,%-@API_VERSION@-uninstalled.pc,$(packages)) guilegwmodule_DATA = cairo-spec.scm cairo.scm EXTRA_DIST = cairo-spec.scm CLEANFILES = $(wildcard gnome-*.log) $(wildcard \ guile-gnome-gw-cairo.*) cairo.scm # I wanted to avoid having a cairo shlib, because there is no need, but # fighting g-wrap is too difficult for the moment. guilegnomelib_LTLIBRARIES = libgw-guile-gnome-cairo.la ######################################################################## nodist_libgw_guile_gnome_cairo_la_SOURCES = guile-gnome-gw-cairo.c libgw_guile_gnome_cairo_la_CFLAGS = $(GUILE_GLIB_CFLAGS) $(GLIB_CFLAGS) \ $(AM_CFLAGS) $(GUILE_CAIRO_CFLAGS) $(GUILE_CFLAGS) \ $(G_WRAP_CFLAGS) libgw_guile_gnome_cairo_la_LIBADD = $(GUILE_CAIRO_LIBS) $(GUILE_LIBS) \ $(G_WRAP_LIBS) $(GUILE_GLIB_LIBS) libgw_guile_gnome_cairo_la_LDFLAGS = -module BUILT_SOURCES = guile-gnome-gw-cairo.c all: $(BUILT_SOURCES) $(MAKE) $(AM_MAKEFLAGS) all-am .SUFFIXES: .SUFFIXES: .x .doc .c .lo .o .obj $(srcdir)/Makefile.in: $(srcdir)/Makefile.am $(top_srcdir)/common.mk $(am__configure_deps) @for dep in $?; do \ case '$(am__configure_deps)' in \ *$$dep*) \ ( cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh ) \ && { if test -f $@; then exit 0; else break; fi; }; \ exit 1;; \ esac; \ done; \ echo ' cd $(top_srcdir) && $(AUTOMAKE) --gnu cairo/gnome/gw/Makefile'; \ $(am__cd) $(top_srcdir) && \ $(AUTOMAKE) --gnu cairo/gnome/gw/Makefile .PRECIOUS: Makefile Makefile: $(srcdir)/Makefile.in $(top_builddir)/config.status @case '$?' in \ *config.status*) \ cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh;; \ *) \ echo ' cd $(top_builddir) && $(SHELL) ./config.status $(subdir)/$@ $(am__depfiles_maybe)'; \ cd $(top_builddir) && $(SHELL) ./config.status $(subdir)/$@ $(am__depfiles_maybe);; \ esac; $(top_srcdir)/common.mk: $(top_builddir)/config.status: $(top_srcdir)/configure $(CONFIG_STATUS_DEPENDENCIES) cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh $(top_srcdir)/configure: $(am__configure_deps) cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh $(ACLOCAL_M4): $(am__aclocal_m4_deps) cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh $(am__aclocal_m4_deps): install-guilegnomelibLTLIBRARIES: $(guilegnomelib_LTLIBRARIES) @$(NORMAL_INSTALL) @list='$(guilegnomelib_LTLIBRARIES)'; test -n "$(guilegnomelibdir)" || list=; \ list2=; for p in $$list; do \ if test -f $$p; then \ list2="$$list2 $$p"; \ else :; fi; \ done; \ test -z "$$list2" || { \ echo " $(MKDIR_P) '$(DESTDIR)$(guilegnomelibdir)'"; \ $(MKDIR_P) "$(DESTDIR)$(guilegnomelibdir)" || exit 1; \ echo " $(LIBTOOL) $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=install $(INSTALL) $(INSTALL_STRIP_FLAG) $$list2 '$(DESTDIR)$(guilegnomelibdir)'"; \ $(LIBTOOL) $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=install $(INSTALL) $(INSTALL_STRIP_FLAG) $$list2 "$(DESTDIR)$(guilegnomelibdir)"; \ } uninstall-guilegnomelibLTLIBRARIES: @$(NORMAL_UNINSTALL) @list='$(guilegnomelib_LTLIBRARIES)'; test -n "$(guilegnomelibdir)" || list=; \ for p in $$list; do \ $(am__strip_dir) \ echo " $(LIBTOOL) $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=uninstall rm -f '$(DESTDIR)$(guilegnomelibdir)/$$f'"; \ $(LIBTOOL) $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=uninstall rm -f "$(DESTDIR)$(guilegnomelibdir)/$$f"; \ done clean-guilegnomelibLTLIBRARIES: -test -z "$(guilegnomelib_LTLIBRARIES)" || rm -f $(guilegnomelib_LTLIBRARIES) @list='$(guilegnomelib_LTLIBRARIES)'; for p in $$list; do \ dir="`echo $$p | sed -e 's|/[^/]*$$||'`"; \ test "$$dir" != "$$p" || dir=.; \ echo "rm -f \"$${dir}/so_locations\""; \ rm -f "$${dir}/so_locations"; \ done libgw-guile-gnome-cairo.la: $(libgw_guile_gnome_cairo_la_OBJECTS) $(libgw_guile_gnome_cairo_la_DEPENDENCIES) $(EXTRA_libgw_guile_gnome_cairo_la_DEPENDENCIES) $(libgw_guile_gnome_cairo_la_LINK) -rpath $(guilegnomelibdir) $(libgw_guile_gnome_cairo_la_OBJECTS) $(libgw_guile_gnome_cairo_la_LIBADD) $(LIBS) mostlyclean-compile: -rm -f *.$(OBJEXT) distclean-compile: -rm -f *.tab.c @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/libgw_guile_gnome_cairo_la-guile-gnome-gw-cairo.Plo@am__quote@ .c.o: @am__fastdepCC_TRUE@ $(COMPILE) -MT $@ -MD -MP -MF $(DEPDIR)/$*.Tpo -c -o $@ $< @am__fastdepCC_TRUE@ $(am__mv) $(DEPDIR)/$*.Tpo $(DEPDIR)/$*.Po @AMDEP_TRUE@@am__fastdepCC_FALSE@ source='$<' object='$@' libtool=no @AMDEPBACKSLASH@ @AMDEP_TRUE@@am__fastdepCC_FALSE@ DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@ @am__fastdepCC_FALSE@ $(COMPILE) -c $< .c.obj: @am__fastdepCC_TRUE@ $(COMPILE) -MT $@ -MD -MP -MF $(DEPDIR)/$*.Tpo -c -o $@ `$(CYGPATH_W) '$<'` @am__fastdepCC_TRUE@ $(am__mv) $(DEPDIR)/$*.Tpo $(DEPDIR)/$*.Po @AMDEP_TRUE@@am__fastdepCC_FALSE@ source='$<' object='$@' libtool=no @AMDEPBACKSLASH@ @AMDEP_TRUE@@am__fastdepCC_FALSE@ DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@ @am__fastdepCC_FALSE@ $(COMPILE) -c `$(CYGPATH_W) '$<'` .c.lo: @am__fastdepCC_TRUE@ $(LTCOMPILE) -MT $@ -MD -MP -MF $(DEPDIR)/$*.Tpo -c -o $@ $< @am__fastdepCC_TRUE@ $(am__mv) $(DEPDIR)/$*.Tpo $(DEPDIR)/$*.Plo @AMDEP_TRUE@@am__fastdepCC_FALSE@ source='$<' object='$@' libtool=yes @AMDEPBACKSLASH@ @AMDEP_TRUE@@am__fastdepCC_FALSE@ DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@ @am__fastdepCC_FALSE@ $(LTCOMPILE) -c -o $@ $< libgw_guile_gnome_cairo_la-guile-gnome-gw-cairo.lo: guile-gnome-gw-cairo.c @am__fastdepCC_TRUE@ $(LIBTOOL) --tag=CC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(AM_CPPFLAGS) $(CPPFLAGS) $(libgw_guile_gnome_cairo_la_CFLAGS) $(CFLAGS) -MT libgw_guile_gnome_cairo_la-guile-gnome-gw-cairo.lo -MD -MP -MF $(DEPDIR)/libgw_guile_gnome_cairo_la-guile-gnome-gw-cairo.Tpo -c -o libgw_guile_gnome_cairo_la-guile-gnome-gw-cairo.lo `test -f 'guile-gnome-gw-cairo.c' || echo '$(srcdir)/'`guile-gnome-gw-cairo.c @am__fastdepCC_TRUE@ $(am__mv) $(DEPDIR)/libgw_guile_gnome_cairo_la-guile-gnome-gw-cairo.Tpo $(DEPDIR)/libgw_guile_gnome_cairo_la-guile-gnome-gw-cairo.Plo @AMDEP_TRUE@@am__fastdepCC_FALSE@ source='guile-gnome-gw-cairo.c' object='libgw_guile_gnome_cairo_la-guile-gnome-gw-cairo.lo' libtool=yes @AMDEPBACKSLASH@ @AMDEP_TRUE@@am__fastdepCC_FALSE@ DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@ @am__fastdepCC_FALSE@ $(LIBTOOL) --tag=CC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(AM_CPPFLAGS) $(CPPFLAGS) $(libgw_guile_gnome_cairo_la_CFLAGS) $(CFLAGS) -c -o libgw_guile_gnome_cairo_la-guile-gnome-gw-cairo.lo `test -f 'guile-gnome-gw-cairo.c' || echo '$(srcdir)/'`guile-gnome-gw-cairo.c mostlyclean-libtool: -rm -f *.lo clean-libtool: -rm -rf .libs _libs install-guilegwmoduleDATA: $(guilegwmodule_DATA) @$(NORMAL_INSTALL) @list='$(guilegwmodule_DATA)'; test -n "$(guilegwmoduledir)" || list=; \ if test -n "$$list"; then \ echo " $(MKDIR_P) '$(DESTDIR)$(guilegwmoduledir)'"; \ $(MKDIR_P) "$(DESTDIR)$(guilegwmoduledir)" || exit 1; \ fi; \ for p in $$list; do \ if test -f "$$p"; then d=; else d="$(srcdir)/"; fi; \ echo "$$d$$p"; \ done | $(am__base_list) | \ while read files; do \ echo " $(INSTALL_DATA) $$files '$(DESTDIR)$(guilegwmoduledir)'"; \ $(INSTALL_DATA) $$files "$(DESTDIR)$(guilegwmoduledir)" || exit $$?; \ done uninstall-guilegwmoduleDATA: @$(NORMAL_UNINSTALL) @list='$(guilegwmodule_DATA)'; test -n "$(guilegwmoduledir)" || list=; \ files=`for p in $$list; do echo $$p; done | sed -e 's|^.*/||'`; \ dir='$(DESTDIR)$(guilegwmoduledir)'; $(am__uninstall_files_from_dir) ID: $(HEADERS) $(SOURCES) $(LISP) $(TAGS_FILES) list='$(SOURCES) $(HEADERS) $(LISP) $(TAGS_FILES)'; \ unique=`for i in $$list; do \ if test -f "$$i"; then echo $$i; else echo $(srcdir)/$$i; fi; \ done | \ $(AWK) '{ files[$$0] = 1; nonempty = 1; } \ END { if (nonempty) { for (i in files) print i; }; }'`; \ mkid -fID $$unique tags: TAGS TAGS: $(HEADERS) $(SOURCES) $(TAGS_DEPENDENCIES) \ $(TAGS_FILES) $(LISP) set x; \ here=`pwd`; \ list='$(SOURCES) $(HEADERS) $(LISP) $(TAGS_FILES)'; \ unique=`for i in $$list; do \ if test -f "$$i"; then echo $$i; else echo $(srcdir)/$$i; fi; \ done | \ $(AWK) '{ files[$$0] = 1; nonempty = 1; } \ END { if (nonempty) { for (i in files) print i; }; }'`; \ shift; \ if test -z "$(ETAGS_ARGS)$$*$$unique"; then :; else \ test -n "$$unique" || unique=$$empty_fix; \ if test $$# -gt 0; then \ $(ETAGS) $(ETAGSFLAGS) $(AM_ETAGSFLAGS) $(ETAGS_ARGS) \ "$$@" $$unique; \ else \ $(ETAGS) $(ETAGSFLAGS) $(AM_ETAGSFLAGS) $(ETAGS_ARGS) \ $$unique; \ fi; \ fi ctags: CTAGS CTAGS: $(HEADERS) $(SOURCES) $(TAGS_DEPENDENCIES) \ $(TAGS_FILES) $(LISP) list='$(SOURCES) $(HEADERS) $(LISP) $(TAGS_FILES)'; \ unique=`for i in $$list; do \ if test -f "$$i"; then echo $$i; else echo $(srcdir)/$$i; fi; \ done | \ $(AWK) '{ files[$$0] = 1; nonempty = 1; } \ END { if (nonempty) { for (i in files) print i; }; }'`; \ test -z "$(CTAGS_ARGS)$$unique" \ || $(CTAGS) $(CTAGSFLAGS) $(AM_CTAGSFLAGS) $(CTAGS_ARGS) \ $$unique GTAGS: here=`$(am__cd) $(top_builddir) && pwd` \ && $(am__cd) $(top_srcdir) \ && gtags -i $(GTAGS_ARGS) "$$here" distclean-tags: -rm -f TAGS ID GTAGS GRTAGS GSYMS GPATH tags distdir: $(DISTFILES) @srcdirstrip=`echo "$(srcdir)" | sed 's/[].[^$$\\*]/\\\\&/g'`; \ topsrcdirstrip=`echo "$(top_srcdir)" | sed 's/[].[^$$\\*]/\\\\&/g'`; \ list='$(DISTFILES)'; \ dist_files=`for file in $$list; do echo $$file; done | \ sed -e "s|^$$srcdirstrip/||;t" \ -e "s|^$$topsrcdirstrip/|$(top_builddir)/|;t"`; \ case $$dist_files in \ */*) $(MKDIR_P) `echo "$$dist_files" | \ sed '/\//!d;s|^|$(distdir)/|;s,/[^/]*$$,,' | \ sort -u` ;; \ esac; \ for file in $$dist_files; do \ if test -f $$file || test -d $$file; then d=.; else d=$(srcdir); fi; \ if test -d $$d/$$file; then \ dir=`echo "/$$file" | sed -e 's,/[^/]*$$,,'`; \ if test -d "$(distdir)/$$file"; then \ find "$(distdir)/$$file" -type d ! -perm -700 -exec chmod u+rwx {} \;; \ fi; \ if test -d $(srcdir)/$$file && test $$d != $(srcdir); then \ cp -fpR $(srcdir)/$$file "$(distdir)$$dir" || exit 1; \ find "$(distdir)/$$file" -type d ! -perm -700 -exec chmod u+rwx {} \;; \ fi; \ cp -fpR $$d/$$file "$(distdir)$$dir" || exit 1; \ else \ test -f "$(distdir)/$$file" \ || cp -p $$d/$$file "$(distdir)/$$file" \ || exit 1; \ fi; \ done check-am: all-am check: $(BUILT_SOURCES) $(MAKE) $(AM_MAKEFLAGS) check-am all-am: Makefile $(LTLIBRARIES) $(DATA) installdirs: for dir in "$(DESTDIR)$(guilegnomelibdir)" "$(DESTDIR)$(guilegwmoduledir)"; do \ test -z "$$dir" || $(MKDIR_P) "$$dir"; \ done install: $(BUILT_SOURCES) $(MAKE) $(AM_MAKEFLAGS) install-am install-exec: install-exec-am install-data: install-data-am uninstall: uninstall-am install-am: all-am @$(MAKE) $(AM_MAKEFLAGS) install-exec-am install-data-am installcheck: installcheck-am install-strip: if test -z '$(STRIP)'; then \ $(MAKE) $(AM_MAKEFLAGS) INSTALL_PROGRAM="$(INSTALL_STRIP_PROGRAM)" \ install_sh_PROGRAM="$(INSTALL_STRIP_PROGRAM)" INSTALL_STRIP_FLAG=-s \ install; \ else \ $(MAKE) $(AM_MAKEFLAGS) INSTALL_PROGRAM="$(INSTALL_STRIP_PROGRAM)" \ install_sh_PROGRAM="$(INSTALL_STRIP_PROGRAM)" INSTALL_STRIP_FLAG=-s \ "INSTALL_PROGRAM_ENV=STRIPPROG='$(STRIP)'" install; \ fi mostlyclean-generic: clean-generic: -test -z "$(CLEANFILES)" || rm -f $(CLEANFILES) distclean-generic: -test -z "$(CONFIG_CLEAN_FILES)" || rm -f $(CONFIG_CLEAN_FILES) -test . = "$(srcdir)" || test -z "$(CONFIG_CLEAN_VPATH_FILES)" || rm -f $(CONFIG_CLEAN_VPATH_FILES) maintainer-clean-generic: @echo "This command is intended for maintainers to use" @echo "it deletes files that may require special tools to rebuild." -test -z "$(BUILT_SOURCES)" || rm -f $(BUILT_SOURCES) clean: clean-am clean-am: clean-generic clean-guilegnomelibLTLIBRARIES clean-libtool \ mostlyclean-am distclean: distclean-am -rm -rf ./$(DEPDIR) -rm -f Makefile distclean-am: clean-am distclean-compile distclean-generic \ distclean-tags dvi: dvi-am dvi-am: html: html-am html-am: info: info-am info-am: install-data-am: install-guilegnomelibLTLIBRARIES \ install-guilegwmoduleDATA install-dvi: install-dvi-am install-dvi-am: install-exec-am: install-html: install-html-am install-html-am: install-info: install-info-am install-info-am: install-man: install-pdf: install-pdf-am install-pdf-am: install-ps: install-ps-am install-ps-am: installcheck-am: maintainer-clean: maintainer-clean-am -rm -rf ./$(DEPDIR) -rm -f Makefile maintainer-clean-am: distclean-am maintainer-clean-generic mostlyclean: mostlyclean-am mostlyclean-am: mostlyclean-compile mostlyclean-generic \ mostlyclean-libtool pdf: pdf-am pdf-am: ps: ps-am ps-am: uninstall-am: uninstall-guilegnomelibLTLIBRARIES \ uninstall-guilegwmoduleDATA .MAKE: all check install install-am install-strip .PHONY: CTAGS GTAGS all all-am check check-am clean clean-generic \ clean-guilegnomelibLTLIBRARIES clean-libtool ctags distclean \ distclean-compile distclean-generic distclean-libtool \ distclean-tags distdir dvi dvi-am html html-am info info-am \ install install-am install-data install-data-am install-dvi \ install-dvi-am install-exec install-exec-am \ install-guilegnomelibLTLIBRARIES install-guilegwmoduleDATA \ install-html install-html-am install-info install-info-am \ install-man install-pdf install-pdf-am install-ps \ install-ps-am install-strip installcheck installcheck-am \ installdirs maintainer-clean maintainer-clean-generic \ mostlyclean mostlyclean-compile mostlyclean-generic \ mostlyclean-libtool pdf pdf-am ps ps-am tags uninstall \ uninstall-am uninstall-guilegnomelibLTLIBRARIES \ uninstall-guilegwmoduleDATA export GUILE_LOAD_PATH .c.x: guile-snarf $(GUILE_SNARF_CFLAGS) $< > $@ \ || { rm $@; false; } .c.doc: $(CPP) -DSCM_MAGIC_SNARF_DOCS $(GUILE_SNARF_CFLAGS) $< \ | grep -E '(\^\^ {|\^\^ })' > $@ || { rm $@; false; } %.scm guile-gnome-gw-%.c: %-spec.scm guile $(GUILE_FLAGS) -c \ "(debug-set! stack 400000) \ (use-modules (gnome-@API_VERSION@)) \ (use-modules (g-wrap)) \ (use-modules (gnome gw $*-spec)) \ (generate-wrapset 'guile 'gnome-$* \"guile-gnome-gw-$*\")" mv guile-gnome-gw-$*.scm $*.scm %-@API_VERSION@.pc: %.pc cp $< $@ %-@API_VERSION@-uninstalled.pc: %-uninstalled.pc cp $< $@ # Tell versions [3.59,3.63) of GNU make to not export all variables. # Otherwise a system limit (for SysV at least) may be exceeded. .NOEXPORT: guile-gnome-platform-2.16.2/cairo/gnome/Makefile.am0000644000175000017500000000014211670374302022422 0ustar00wingowingo00000000000000include $(top_srcdir)/common.mk SUBDIRS = if HAVE_CAIRO SUBDIRS += gw endif DIST_SUBDIRS = gw guile-gnome-platform-2.16.2/cairo/gnome/Makefile.in0000644000175000017500000005263411752520663022454 0ustar00wingowingo00000000000000# Makefile.in generated by automake 1.11.5 from Makefile.am. # @configure_input@ # Copyright (C) 1994, 1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, # 2003, 2004, 2005, 2006, 2007, 2008, 2009, 2010, 2011 Free Software # Foundation, Inc. # This Makefile.in is free software; the Free Software Foundation # gives unlimited permission to copy and/or distribute it, # with or without modifications, as long as this notice is preserved. # This program is distributed in the hope that it will be useful, # but WITHOUT ANY WARRANTY, to the extent permitted by law; without # even the implied warranty of MERCHANTABILITY or FITNESS FOR A # PARTICULAR PURPOSE. @SET_MAKE@ # guile-gnome # Copyright (C) 2003,2004,2009,2012 Free Software Foundation, Inc. # This program is free software; you can redistribute it and/or # modify it under the terms of the GNU General Public License as # published by the Free Software Foundation; either version 2 of # the License, or (at your option) any later version. # This program is distributed in the hope that it will be useful, # but WITHOUT ANY WARRANTY; without even the implied warranty of # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the # GNU General Public License for more details. # You should have received a copy of the GNU General Public License # along with this program; if not, contact: # Free Software Foundation Voice: +1-617-542-5942 # 59 Temple Place - Suite 330 Fax: +1-617-542-2652 # Boston, MA 02111-1307, USA gnu@gnu.org # # Makefile snippet # VPATH = @srcdir@ am__make_dryrun = \ { \ am__dry=no; \ case $$MAKEFLAGS in \ *\\[\ \ ]*) \ echo 'am--echo: ; @echo "AM" OK' | $(MAKE) -f - 2>/dev/null \ | grep '^AM OK$$' >/dev/null || am__dry=yes;; \ *) \ for am__flg in $$MAKEFLAGS; do \ case $$am__flg in \ *=*|--*) ;; \ *n*) am__dry=yes; break;; \ esac; \ done;; \ esac; \ test $$am__dry = yes; \ } pkgdatadir = $(datadir)/@PACKAGE@ pkgincludedir = $(includedir)/@PACKAGE@ pkglibdir = $(libdir)/@PACKAGE@ pkglibexecdir = $(libexecdir)/@PACKAGE@ am__cd = CDPATH="$${ZSH_VERSION+.}$(PATH_SEPARATOR)" && cd install_sh_DATA = $(install_sh) -c -m 644 install_sh_PROGRAM = $(install_sh) -c install_sh_SCRIPT = $(install_sh) -c INSTALL_HEADER = $(INSTALL_DATA) transform = $(program_transform_name) NORMAL_INSTALL = : PRE_INSTALL = : POST_INSTALL = : NORMAL_UNINSTALL = : PRE_UNINSTALL = : POST_UNINSTALL = : build_triplet = @build@ host_triplet = @host@ DIST_COMMON = $(srcdir)/Makefile.am $(srcdir)/Makefile.in \ $(top_srcdir)/common.mk @HAVE_CAIRO_TRUE@am__append_1 = gw subdir = cairo/gnome ACLOCAL_M4 = $(top_srcdir)/aclocal.m4 am__aclocal_m4_deps = $(top_srcdir)/configure.ac am__configure_deps = $(am__aclocal_m4_deps) $(CONFIGURE_DEPENDENCIES) \ $(ACLOCAL_M4) mkinstalldirs = $(install_sh) -d CONFIG_HEADER = $(top_builddir)/config.h CONFIG_CLEAN_FILES = CONFIG_CLEAN_VPATH_FILES = SOURCES = DIST_SOURCES = RECURSIVE_TARGETS = all-recursive check-recursive dvi-recursive \ html-recursive info-recursive install-data-recursive \ install-dvi-recursive install-exec-recursive \ install-html-recursive install-info-recursive \ install-pdf-recursive install-ps-recursive install-recursive \ installcheck-recursive installdirs-recursive pdf-recursive \ ps-recursive uninstall-recursive am__can_run_installinfo = \ case $$AM_UPDATE_INFO_DIR in \ n|no|NO) false;; \ *) (install-info --version) >/dev/null 2>&1;; \ esac RECURSIVE_CLEAN_TARGETS = mostlyclean-recursive clean-recursive \ distclean-recursive maintainer-clean-recursive AM_RECURSIVE_TARGETS = $(RECURSIVE_TARGETS:-recursive=) \ $(RECURSIVE_CLEAN_TARGETS:-recursive=) tags TAGS ctags CTAGS \ distdir ETAGS = etags CTAGS = ctags DISTFILES = $(DIST_COMMON) $(DIST_SOURCES) $(TEXINFOS) $(EXTRA_DIST) am__relativize = \ dir0=`pwd`; \ sed_first='s,^\([^/]*\)/.*$$,\1,'; \ sed_rest='s,^[^/]*/*,,'; \ sed_last='s,^.*/\([^/]*\)$$,\1,'; \ sed_butlast='s,/*[^/]*$$,,'; \ while test -n "$$dir1"; do \ first=`echo "$$dir1" | sed -e "$$sed_first"`; \ if test "$$first" != "."; then \ if test "$$first" = ".."; then \ dir2=`echo "$$dir0" | sed -e "$$sed_last"`/"$$dir2"; \ dir0=`echo "$$dir0" | sed -e "$$sed_butlast"`; \ else \ first2=`echo "$$dir2" | sed -e "$$sed_first"`; \ if test "$$first2" = "$$first"; then \ dir2=`echo "$$dir2" | sed -e "$$sed_rest"`; \ else \ dir2="../$$dir2"; \ fi; \ dir0="$$dir0"/"$$first"; \ fi; \ fi; \ dir1=`echo "$$dir1" | sed -e "$$sed_rest"`; \ done; \ reldir="$$dir2" ACLOCAL = @ACLOCAL@ AG_PKG_CONFIG_PATH = @AG_PKG_CONFIG_PATH@ AMTAR = @AMTAR@ API_VERSION = @API_VERSION@ AR = @AR@ ATK_CFLAGS = @ATK_CFLAGS@ ATK_LIBS = @ATK_LIBS@ AUTOCONF = @AUTOCONF@ AUTOHEADER = @AUTOHEADER@ AUTOMAKE = @AUTOMAKE@ AWK = @AWK@ BONOBO_IDL_DIR = @BONOBO_IDL_DIR@ CANVAS_CFLAGS = @CANVAS_CFLAGS@ CANVAS_LIBS = @CANVAS_LIBS@ CC = @CC@ CCDEPMODE = @CCDEPMODE@ CFLAGS = @CFLAGS@ CORBA_CFLAGS = @CORBA_CFLAGS@ CORBA_LIBS = @CORBA_LIBS@ CPP = @CPP@ CPPFLAGS = @CPPFLAGS@ CYGPATH_W = @CYGPATH_W@ DEFS = @DEFS@ DEPDIR = @DEPDIR@ DLLTOOL = @DLLTOOL@ DSYMUTIL = @DSYMUTIL@ DUMPBIN = @DUMPBIN@ ECHO_C = @ECHO_C@ ECHO_N = @ECHO_N@ ECHO_T = @ECHO_T@ EGREP = @EGREP@ EXEEXT = @EXEEXT@ FGREP = @FGREP@ GCONF_CFLAGS = @GCONF_CFLAGS@ GCONF_LIBS = @GCONF_LIBS@ GDK_CFLAGS = @GDK_CFLAGS@ GDK_LIBS = @GDK_LIBS@ GDK_PIXBUF_CFLAGS = @GDK_PIXBUF_CFLAGS@ GDK_PIXBUF_LIBS = @GDK_PIXBUF_LIBS@ GLIB_CFLAGS = @GLIB_CFLAGS@ GLIB_LIBS = @GLIB_LIBS@ GNOMEUI_DEPRECATION_FLAGS = @GNOMEUI_DEPRECATION_FLAGS@ GNOME_VFS_CFLAGS = @GNOME_VFS_CFLAGS@ GNOME_VFS_DEPRECATED_CFLAGS = @GNOME_VFS_DEPRECATED_CFLAGS@ GNOME_VFS_LIBS = @GNOME_VFS_LIBS@ GOBJECT_CFLAGS = @GOBJECT_CFLAGS@ GOBJECT_LIBS = @GOBJECT_LIBS@ GREP = @GREP@ GTHREAD_CFLAGS = @GTHREAD_CFLAGS@ GTHREAD_LIBS = @GTHREAD_LIBS@ GTK_CFLAGS = @GTK_CFLAGS@ GTK_DEPRECATED_CFLAGS = @GTK_DEPRECATED_CFLAGS@ GTK_LIBS = @GTK_LIBS@ GUILE_CAIRO_CFLAGS = @GUILE_CAIRO_CFLAGS@ GUILE_CAIRO_LIBS = @GUILE_CAIRO_LIBS@ GUILE_CFLAGS = @GUILE_CFLAGS@ GUILE_EFFECTIVE_VERSION = @GUILE_EFFECTIVE_VERSION@ GUILE_GLIB_CFLAGS = @GUILE_GLIB_CFLAGS@ GUILE_GLIB_LIBS = @GUILE_GLIB_LIBS@ GUILE_LIBS = @GUILE_LIBS@ G_WRAP_CFLAGS = @G_WRAP_CFLAGS@ G_WRAP_LIBS = @G_WRAP_LIBS@ G_WRAP_LIB_DIR = @G_WRAP_LIB_DIR@ G_WRAP_MODULE_DIR = @G_WRAP_MODULE_DIR@ INSTALL = @INSTALL@ INSTALL_DATA = @INSTALL_DATA@ INSTALL_PROGRAM = @INSTALL_PROGRAM@ INSTALL_SCRIPT = @INSTALL_SCRIPT@ INSTALL_STRIP_PROGRAM = @INSTALL_STRIP_PROGRAM@ LD = @LD@ LDFLAGS = @LDFLAGS@ LIBGLADE_CFLAGS = @LIBGLADE_CFLAGS@ LIBGLADE_LIBS = @LIBGLADE_LIBS@ LIBGNOMEUI_CFLAGS = @LIBGNOMEUI_CFLAGS@ LIBGNOMEUI_LIBS = @LIBGNOMEUI_LIBS@ LIBGNOME_CFLAGS = @LIBGNOME_CFLAGS@ LIBGNOME_LIBS = @LIBGNOME_LIBS@ LIBOBJS = @LIBOBJS@ LIBS = @LIBS@ LIBTOOL = @LIBTOOL@ LIPO = @LIPO@ LN_S = @LN_S@ LTLIBOBJS = @LTLIBOBJS@ MAKEINFO = @MAKEINFO@ MANIFEST_TOOL = @MANIFEST_TOOL@ MKDIR_P = @MKDIR_P@ NM = @NM@ NMEDIT = @NMEDIT@ OBJDUMP = @OBJDUMP@ OBJEXT = @OBJEXT@ ORBIT_IDL = @ORBIT_IDL@ OTOOL = @OTOOL@ OTOOL64 = @OTOOL64@ PACKAGE = @PACKAGE@ PACKAGE_BUGREPORT = @PACKAGE_BUGREPORT@ PACKAGE_NAME = @PACKAGE_NAME@ PACKAGE_STRING = @PACKAGE_STRING@ PACKAGE_TARNAME = @PACKAGE_TARNAME@ PACKAGE_URL = @PACKAGE_URL@ PACKAGE_VERSION = @PACKAGE_VERSION@ PANGOCAIRO_CFLAGS = @PANGOCAIRO_CFLAGS@ PANGOCAIRO_LIBS = @PANGOCAIRO_LIBS@ PANGO_CFLAGS = @PANGO_CFLAGS@ PANGO_LIBS = @PANGO_LIBS@ PATH_SEPARATOR = @PATH_SEPARATOR@ PKG_CONFIG = @PKG_CONFIG@ PKG_CONFIG_LIBDIR = @PKG_CONFIG_LIBDIR@ PKG_CONFIG_PATH = @PKG_CONFIG_PATH@ RANLIB = @RANLIB@ SED = @SED@ SET_MAKE = @SET_MAKE@ SHELL = @SHELL@ STRIP = @STRIP@ VERSION = @VERSION@ WARN_CFLAGS = @WARN_CFLAGS@ abs_builddir = @abs_builddir@ abs_srcdir = @abs_srcdir@ abs_top_builddir = @abs_top_builddir@ abs_top_srcdir = @abs_top_srcdir@ ac_ct_AR = @ac_ct_AR@ ac_ct_CC = @ac_ct_CC@ ac_ct_DUMPBIN = @ac_ct_DUMPBIN@ am__include = @am__include@ am__leading_dot = @am__leading_dot@ am__quote = @am__quote@ am__tar = @am__tar@ am__untar = @am__untar@ bindir = @bindir@ build = @build@ build_alias = @build_alias@ build_cpu = @build_cpu@ build_os = @build_os@ build_vendor = @build_vendor@ builddir = @builddir@ datadir = @datadir@ datarootdir = @datarootdir@ docdir = @docdir@ dvidir = @dvidir@ exec_prefix = @exec_prefix@ host = @host@ host_alias = @host_alias@ host_cpu = @host_cpu@ host_os = @host_os@ host_vendor = @host_vendor@ htmldir = @htmldir@ includedir = @includedir@ infodir = @infodir@ install_sh = @install_sh@ libdir = @libdir@ libexecdir = @libexecdir@ localedir = @localedir@ localstatedir = @localstatedir@ mandir = @mandir@ mkdir_p = @mkdir_p@ oldincludedir = @oldincludedir@ pdfdir = @pdfdir@ prefix = @prefix@ program_transform_name = @program_transform_name@ psdir = @psdir@ sbindir = @sbindir@ sharedstatedir = @sharedstatedir@ srcdir = @srcdir@ sysconfdir = @sysconfdir@ target_alias = @target_alias@ top_build_prefix = @top_build_prefix@ top_builddir = @top_builddir@ top_srcdir = @top_srcdir@ guilegnomedir = $(datadir)/guile-gnome-@API_VERSION@ guilemoduledir = $(guilegnomedir)/gnome guilegwmoduledir = $(guilegnomedir)/gnome/gw guilegnomelibdir = $(libdir)/guile-gnome-@API_VERSION@ AM_CFLAGS = -I. -I$(srcdir) $(WARN_CFLAGS) $(DEBUG_CFLAGS) # For overriding from the command line (e.g. --debug) GUILE_FLAGS = SUFFIXES = .x .doc GUILE_SNARF_CFLAGS = $(DEFS) $(AM_CFLAGS) $(GUILE_CFLAGS) $(G_WRAP_CFLAGS) PACKAGES = atk cairo corba defs gconf glib gnome-vfs gtk libglade libgnome libgnomecanvas libgnomeui pango SOURCE_GUILE_PATH = $(shell echo $(addprefix $(top_srcdir)/,$(PACKAGES)) | sed -e 's/ /:/g'):$(srcdir) BUILD_GUILE_PATH = $(if $(filter-out $(top_srcdir),$(top_builddir)),$(shell echo -n $(addprefix $(top_builddir)/,$(PACKAGES)): | sed -e 's/ /:/g'),) GUILE_LOAD_PATH := $(BUILD_GUILE_PATH)$(SOURCE_GUILE_PATH):${G_WRAP_MODULE_DIR}:${GUILE_LOAD_PATH} # Real gnu make foo packages = $(filter-out %-uninstalled,$(patsubst %.pc.in,%,$(notdir $(wildcard $(srcdir)/*.pc.in)))) pcifiles = $(patsubst %,%-@API_VERSION@.pc,$(packages)) pcufiles = $(patsubst %,%-@API_VERSION@-uninstalled.pc,$(packages)) SUBDIRS = $(am__append_1) DIST_SUBDIRS = gw all: all-recursive .SUFFIXES: .SUFFIXES: .x .doc .c $(srcdir)/Makefile.in: $(srcdir)/Makefile.am $(top_srcdir)/common.mk $(am__configure_deps) @for dep in $?; do \ case '$(am__configure_deps)' in \ *$$dep*) \ ( cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh ) \ && { if test -f $@; then exit 0; else break; fi; }; \ exit 1;; \ esac; \ done; \ echo ' cd $(top_srcdir) && $(AUTOMAKE) --gnu cairo/gnome/Makefile'; \ $(am__cd) $(top_srcdir) && \ $(AUTOMAKE) --gnu cairo/gnome/Makefile .PRECIOUS: Makefile Makefile: $(srcdir)/Makefile.in $(top_builddir)/config.status @case '$?' in \ *config.status*) \ cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh;; \ *) \ echo ' cd $(top_builddir) && $(SHELL) ./config.status $(subdir)/$@ $(am__depfiles_maybe)'; \ cd $(top_builddir) && $(SHELL) ./config.status $(subdir)/$@ $(am__depfiles_maybe);; \ esac; $(top_srcdir)/common.mk: $(top_builddir)/config.status: $(top_srcdir)/configure $(CONFIG_STATUS_DEPENDENCIES) cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh $(top_srcdir)/configure: $(am__configure_deps) cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh $(ACLOCAL_M4): $(am__aclocal_m4_deps) cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh $(am__aclocal_m4_deps): mostlyclean-libtool: -rm -f *.lo clean-libtool: -rm -rf .libs _libs # This directory's subdirectories are mostly independent; you can cd # into them and run `make' without going through this Makefile. # To change the values of `make' variables: instead of editing Makefiles, # (1) if the variable is set in `config.status', edit `config.status' # (which will cause the Makefiles to be regenerated when you run `make'); # (2) otherwise, pass the desired values on the `make' command line. $(RECURSIVE_TARGETS): @fail= failcom='exit 1'; \ for f in x $$MAKEFLAGS; do \ case $$f in \ *=* | --[!k]*);; \ *k*) failcom='fail=yes';; \ esac; \ done; \ dot_seen=no; \ target=`echo $@ | sed s/-recursive//`; \ list='$(SUBDIRS)'; for subdir in $$list; do \ echo "Making $$target in $$subdir"; \ if test "$$subdir" = "."; then \ dot_seen=yes; \ local_target="$$target-am"; \ else \ local_target="$$target"; \ fi; \ ($(am__cd) $$subdir && $(MAKE) $(AM_MAKEFLAGS) $$local_target) \ || eval $$failcom; \ done; \ if test "$$dot_seen" = "no"; then \ $(MAKE) $(AM_MAKEFLAGS) "$$target-am" || exit 1; \ fi; test -z "$$fail" $(RECURSIVE_CLEAN_TARGETS): @fail= failcom='exit 1'; \ for f in x $$MAKEFLAGS; do \ case $$f in \ *=* | --[!k]*);; \ *k*) failcom='fail=yes';; \ esac; \ done; \ dot_seen=no; \ case "$@" in \ distclean-* | maintainer-clean-*) list='$(DIST_SUBDIRS)' ;; \ *) list='$(SUBDIRS)' ;; \ esac; \ rev=''; for subdir in $$list; do \ if test "$$subdir" = "."; then :; else \ rev="$$subdir $$rev"; \ fi; \ done; \ rev="$$rev ."; \ target=`echo $@ | sed s/-recursive//`; \ for subdir in $$rev; do \ echo "Making $$target in $$subdir"; \ if test "$$subdir" = "."; then \ local_target="$$target-am"; \ else \ local_target="$$target"; \ fi; \ ($(am__cd) $$subdir && $(MAKE) $(AM_MAKEFLAGS) $$local_target) \ || eval $$failcom; \ done && test -z "$$fail" tags-recursive: list='$(SUBDIRS)'; for subdir in $$list; do \ test "$$subdir" = . || ($(am__cd) $$subdir && $(MAKE) $(AM_MAKEFLAGS) tags); \ done ctags-recursive: list='$(SUBDIRS)'; for subdir in $$list; do \ test "$$subdir" = . || ($(am__cd) $$subdir && $(MAKE) $(AM_MAKEFLAGS) ctags); \ done ID: $(HEADERS) $(SOURCES) $(LISP) $(TAGS_FILES) list='$(SOURCES) $(HEADERS) $(LISP) $(TAGS_FILES)'; \ unique=`for i in $$list; do \ if test -f "$$i"; then echo $$i; else echo $(srcdir)/$$i; fi; \ done | \ $(AWK) '{ files[$$0] = 1; nonempty = 1; } \ END { if (nonempty) { for (i in files) print i; }; }'`; \ mkid -fID $$unique tags: TAGS TAGS: tags-recursive $(HEADERS) $(SOURCES) $(TAGS_DEPENDENCIES) \ $(TAGS_FILES) $(LISP) set x; \ here=`pwd`; \ if ($(ETAGS) --etags-include --version) >/dev/null 2>&1; then \ include_option=--etags-include; \ empty_fix=.; \ else \ include_option=--include; \ empty_fix=; \ fi; \ list='$(SUBDIRS)'; for subdir in $$list; do \ if test "$$subdir" = .; then :; else \ test ! -f $$subdir/TAGS || \ set "$$@" "$$include_option=$$here/$$subdir/TAGS"; \ fi; \ done; \ list='$(SOURCES) $(HEADERS) $(LISP) $(TAGS_FILES)'; \ unique=`for i in $$list; do \ if test -f "$$i"; then echo $$i; else echo $(srcdir)/$$i; fi; \ done | \ $(AWK) '{ files[$$0] = 1; nonempty = 1; } \ END { if (nonempty) { for (i in files) print i; }; }'`; \ shift; \ if test -z "$(ETAGS_ARGS)$$*$$unique"; then :; else \ test -n "$$unique" || unique=$$empty_fix; \ if test $$# -gt 0; then \ $(ETAGS) $(ETAGSFLAGS) $(AM_ETAGSFLAGS) $(ETAGS_ARGS) \ "$$@" $$unique; \ else \ $(ETAGS) $(ETAGSFLAGS) $(AM_ETAGSFLAGS) $(ETAGS_ARGS) \ $$unique; \ fi; \ fi ctags: CTAGS CTAGS: ctags-recursive $(HEADERS) $(SOURCES) $(TAGS_DEPENDENCIES) \ $(TAGS_FILES) $(LISP) list='$(SOURCES) $(HEADERS) $(LISP) $(TAGS_FILES)'; \ unique=`for i in $$list; do \ if test -f "$$i"; then echo $$i; else echo $(srcdir)/$$i; fi; \ done | \ $(AWK) '{ files[$$0] = 1; nonempty = 1; } \ END { if (nonempty) { for (i in files) print i; }; }'`; \ test -z "$(CTAGS_ARGS)$$unique" \ || $(CTAGS) $(CTAGSFLAGS) $(AM_CTAGSFLAGS) $(CTAGS_ARGS) \ $$unique GTAGS: here=`$(am__cd) $(top_builddir) && pwd` \ && $(am__cd) $(top_srcdir) \ && gtags -i $(GTAGS_ARGS) "$$here" distclean-tags: -rm -f TAGS ID GTAGS GRTAGS GSYMS GPATH tags distdir: $(DISTFILES) @srcdirstrip=`echo "$(srcdir)" | sed 's/[].[^$$\\*]/\\\\&/g'`; \ topsrcdirstrip=`echo "$(top_srcdir)" | sed 's/[].[^$$\\*]/\\\\&/g'`; \ list='$(DISTFILES)'; \ dist_files=`for file in $$list; do echo $$file; done | \ sed -e "s|^$$srcdirstrip/||;t" \ -e "s|^$$topsrcdirstrip/|$(top_builddir)/|;t"`; \ case $$dist_files in \ */*) $(MKDIR_P) `echo "$$dist_files" | \ sed '/\//!d;s|^|$(distdir)/|;s,/[^/]*$$,,' | \ sort -u` ;; \ esac; \ for file in $$dist_files; do \ if test -f $$file || test -d $$file; then d=.; else d=$(srcdir); fi; \ if test -d $$d/$$file; then \ dir=`echo "/$$file" | sed -e 's,/[^/]*$$,,'`; \ if test -d "$(distdir)/$$file"; then \ find "$(distdir)/$$file" -type d ! -perm -700 -exec chmod u+rwx {} \;; \ fi; \ if test -d $(srcdir)/$$file && test $$d != $(srcdir); then \ cp -fpR $(srcdir)/$$file "$(distdir)$$dir" || exit 1; \ find "$(distdir)/$$file" -type d ! -perm -700 -exec chmod u+rwx {} \;; \ fi; \ cp -fpR $$d/$$file "$(distdir)$$dir" || exit 1; \ else \ test -f "$(distdir)/$$file" \ || cp -p $$d/$$file "$(distdir)/$$file" \ || exit 1; \ fi; \ done @list='$(DIST_SUBDIRS)'; for subdir in $$list; do \ if test "$$subdir" = .; then :; else \ $(am__make_dryrun) \ || test -d "$(distdir)/$$subdir" \ || $(MKDIR_P) "$(distdir)/$$subdir" \ || exit 1; \ dir1=$$subdir; dir2="$(distdir)/$$subdir"; \ $(am__relativize); \ new_distdir=$$reldir; \ dir1=$$subdir; dir2="$(top_distdir)"; \ $(am__relativize); \ new_top_distdir=$$reldir; \ echo " (cd $$subdir && $(MAKE) $(AM_MAKEFLAGS) top_distdir="$$new_top_distdir" distdir="$$new_distdir" \\"; \ echo " am__remove_distdir=: am__skip_length_check=: am__skip_mode_fix=: distdir)"; \ ($(am__cd) $$subdir && \ $(MAKE) $(AM_MAKEFLAGS) \ top_distdir="$$new_top_distdir" \ distdir="$$new_distdir" \ am__remove_distdir=: \ am__skip_length_check=: \ am__skip_mode_fix=: \ distdir) \ || exit 1; \ fi; \ done check-am: all-am check: check-recursive all-am: Makefile installdirs: installdirs-recursive installdirs-am: install: install-recursive install-exec: install-exec-recursive install-data: install-data-recursive uninstall: uninstall-recursive install-am: all-am @$(MAKE) $(AM_MAKEFLAGS) install-exec-am install-data-am installcheck: installcheck-recursive install-strip: if test -z '$(STRIP)'; then \ $(MAKE) $(AM_MAKEFLAGS) INSTALL_PROGRAM="$(INSTALL_STRIP_PROGRAM)" \ install_sh_PROGRAM="$(INSTALL_STRIP_PROGRAM)" INSTALL_STRIP_FLAG=-s \ install; \ else \ $(MAKE) $(AM_MAKEFLAGS) INSTALL_PROGRAM="$(INSTALL_STRIP_PROGRAM)" \ install_sh_PROGRAM="$(INSTALL_STRIP_PROGRAM)" INSTALL_STRIP_FLAG=-s \ "INSTALL_PROGRAM_ENV=STRIPPROG='$(STRIP)'" install; \ fi mostlyclean-generic: clean-generic: distclean-generic: -test -z "$(CONFIG_CLEAN_FILES)" || rm -f $(CONFIG_CLEAN_FILES) -test . = "$(srcdir)" || test -z "$(CONFIG_CLEAN_VPATH_FILES)" || rm -f $(CONFIG_CLEAN_VPATH_FILES) maintainer-clean-generic: @echo "This command is intended for maintainers to use" @echo "it deletes files that may require special tools to rebuild." clean: clean-recursive clean-am: clean-generic clean-libtool mostlyclean-am distclean: distclean-recursive -rm -f Makefile distclean-am: clean-am distclean-generic distclean-tags dvi: dvi-recursive dvi-am: html: html-recursive html-am: info: info-recursive info-am: install-data-am: install-dvi: install-dvi-recursive install-dvi-am: install-exec-am: install-html: install-html-recursive install-html-am: install-info: install-info-recursive install-info-am: install-man: install-pdf: install-pdf-recursive install-pdf-am: install-ps: install-ps-recursive install-ps-am: installcheck-am: maintainer-clean: maintainer-clean-recursive -rm -f Makefile maintainer-clean-am: distclean-am maintainer-clean-generic mostlyclean: mostlyclean-recursive mostlyclean-am: mostlyclean-generic mostlyclean-libtool pdf: pdf-recursive pdf-am: ps: ps-recursive ps-am: uninstall-am: .MAKE: $(RECURSIVE_CLEAN_TARGETS) $(RECURSIVE_TARGETS) ctags-recursive \ install-am install-strip tags-recursive .PHONY: $(RECURSIVE_CLEAN_TARGETS) $(RECURSIVE_TARGETS) CTAGS GTAGS \ all all-am check check-am clean clean-generic clean-libtool \ ctags ctags-recursive distclean distclean-generic \ distclean-libtool distclean-tags distdir dvi dvi-am html \ html-am info info-am install install-am install-data \ install-data-am install-dvi install-dvi-am install-exec \ install-exec-am install-html install-html-am install-info \ install-info-am install-man install-pdf install-pdf-am \ install-ps install-ps-am install-strip installcheck \ installcheck-am installdirs installdirs-am maintainer-clean \ maintainer-clean-generic mostlyclean mostlyclean-generic \ mostlyclean-libtool pdf pdf-am ps ps-am tags tags-recursive \ uninstall uninstall-am export GUILE_LOAD_PATH .c.x: guile-snarf $(GUILE_SNARF_CFLAGS) $< > $@ \ || { rm $@; false; } .c.doc: $(CPP) -DSCM_MAGIC_SNARF_DOCS $(GUILE_SNARF_CFLAGS) $< \ | grep -E '(\^\^ {|\^\^ })' > $@ || { rm $@; false; } %.scm guile-gnome-gw-%.c: %-spec.scm guile $(GUILE_FLAGS) -c \ "(debug-set! stack 400000) \ (use-modules (gnome-@API_VERSION@)) \ (use-modules (g-wrap)) \ (use-modules (gnome gw $*-spec)) \ (generate-wrapset 'guile 'gnome-$* \"guile-gnome-gw-$*\")" mv guile-gnome-gw-$*.scm $*.scm %-@API_VERSION@.pc: %.pc cp $< $@ %-@API_VERSION@-uninstalled.pc: %-uninstalled.pc cp $< $@ # Tell versions [3.59,3.63) of GNU make to not export all variables. # Otherwise a system limit (for SysV at least) may be exceeded. .NOEXPORT: guile-gnome-platform-2.16.2/cairo/Makefile.am0000644000175000017500000000034611752516540021326 0ustar00wingowingo00000000000000SUBDIRS = gnome pkgconfigdir = $(libdir)/pkgconfig pkgconfig_DATA = $(pcifiles) EXTRA_DIST = guile-gnome-cairo.pc.in guile-gnome-cairo-uninstalled.pc.in \ ChangeLog.pre-2.16 AUTHORS README CLEANFILES = $(pcifiles) $(pcufiles) guile-gnome-platform-2.16.2/cairo/Makefile.in0000644000175000017500000005314411752516554021350 0ustar00wingowingo00000000000000# Makefile.in generated by automake 1.11.5 from Makefile.am. # @configure_input@ # Copyright (C) 1994, 1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, # 2003, 2004, 2005, 2006, 2007, 2008, 2009, 2010, 2011 Free Software # Foundation, Inc. # This Makefile.in is free software; the Free Software Foundation # gives unlimited permission to copy and/or distribute it, # with or without modifications, as long as this notice is preserved. # This program is distributed in the hope that it will be useful, # but WITHOUT ANY WARRANTY, to the extent permitted by law; without # even the implied warranty of MERCHANTABILITY or FITNESS FOR A # PARTICULAR PURPOSE. @SET_MAKE@ VPATH = @srcdir@ am__make_dryrun = \ { \ am__dry=no; \ case $$MAKEFLAGS in \ *\\[\ \ ]*) \ echo 'am--echo: ; @echo "AM" OK' | $(MAKE) -f - 2>/dev/null \ | grep '^AM OK$$' >/dev/null || am__dry=yes;; \ *) \ for am__flg in $$MAKEFLAGS; do \ case $$am__flg in \ *=*|--*) ;; \ *n*) am__dry=yes; break;; \ esac; \ done;; \ esac; \ test $$am__dry = yes; \ } pkgdatadir = $(datadir)/@PACKAGE@ pkgincludedir = $(includedir)/@PACKAGE@ pkglibdir = $(libdir)/@PACKAGE@ pkglibexecdir = $(libexecdir)/@PACKAGE@ am__cd = CDPATH="$${ZSH_VERSION+.}$(PATH_SEPARATOR)" && cd install_sh_DATA = $(install_sh) -c -m 644 install_sh_PROGRAM = $(install_sh) -c install_sh_SCRIPT = $(install_sh) -c INSTALL_HEADER = $(INSTALL_DATA) transform = $(program_transform_name) NORMAL_INSTALL = : PRE_INSTALL = : POST_INSTALL = : NORMAL_UNINSTALL = : PRE_UNINSTALL = : POST_UNINSTALL = : build_triplet = @build@ host_triplet = @host@ subdir = cairo DIST_COMMON = README $(srcdir)/Makefile.am $(srcdir)/Makefile.in \ $(srcdir)/guile-gnome-cairo-uninstalled.pc.in \ $(srcdir)/guile-gnome-cairo.pc.in AUTHORS ChangeLog ACLOCAL_M4 = $(top_srcdir)/aclocal.m4 am__aclocal_m4_deps = $(top_srcdir)/configure.ac am__configure_deps = $(am__aclocal_m4_deps) $(CONFIGURE_DEPENDENCIES) \ $(ACLOCAL_M4) mkinstalldirs = $(install_sh) -d CONFIG_HEADER = $(top_builddir)/config.h CONFIG_CLEAN_FILES = guile-gnome-cairo.pc \ guile-gnome-cairo-uninstalled.pc CONFIG_CLEAN_VPATH_FILES = SOURCES = DIST_SOURCES = RECURSIVE_TARGETS = all-recursive check-recursive dvi-recursive \ html-recursive info-recursive install-data-recursive \ install-dvi-recursive install-exec-recursive \ install-html-recursive install-info-recursive \ install-pdf-recursive install-ps-recursive install-recursive \ installcheck-recursive installdirs-recursive pdf-recursive \ ps-recursive uninstall-recursive am__can_run_installinfo = \ case $$AM_UPDATE_INFO_DIR in \ n|no|NO) false;; \ *) (install-info --version) >/dev/null 2>&1;; \ esac am__vpath_adj_setup = srcdirstrip=`echo "$(srcdir)" | sed 's|.|.|g'`; am__vpath_adj = case $$p in \ $(srcdir)/*) f=`echo "$$p" | sed "s|^$$srcdirstrip/||"`;; \ *) f=$$p;; \ esac; am__strip_dir = f=`echo $$p | sed -e 's|^.*/||'`; am__install_max = 40 am__nobase_strip_setup = \ srcdirstrip=`echo "$(srcdir)" | sed 's/[].[^$$\\*|]/\\\\&/g'` am__nobase_strip = \ for p in $$list; do echo "$$p"; done | sed -e "s|$$srcdirstrip/||" am__nobase_list = $(am__nobase_strip_setup); \ for p in $$list; do echo "$$p $$p"; done | \ sed "s| $$srcdirstrip/| |;"' / .*\//!s/ .*/ ./; s,\( .*\)/[^/]*$$,\1,' | \ $(AWK) 'BEGIN { files["."] = "" } { files[$$2] = files[$$2] " " $$1; \ if (++n[$$2] == $(am__install_max)) \ { print $$2, files[$$2]; n[$$2] = 0; files[$$2] = "" } } \ END { for (dir in files) print dir, files[dir] }' am__base_list = \ sed '$$!N;$$!N;$$!N;$$!N;$$!N;$$!N;$$!N;s/\n/ /g' | \ sed '$$!N;$$!N;$$!N;$$!N;s/\n/ /g' am__uninstall_files_from_dir = { \ test -z "$$files" \ || { test ! -d "$$dir" && test ! -f "$$dir" && test ! -r "$$dir"; } \ || { echo " ( cd '$$dir' && rm -f" $$files ")"; \ $(am__cd) "$$dir" && rm -f $$files; }; \ } am__installdirs = "$(DESTDIR)$(pkgconfigdir)" DATA = $(pkgconfig_DATA) RECURSIVE_CLEAN_TARGETS = mostlyclean-recursive clean-recursive \ distclean-recursive maintainer-clean-recursive AM_RECURSIVE_TARGETS = $(RECURSIVE_TARGETS:-recursive=) \ $(RECURSIVE_CLEAN_TARGETS:-recursive=) tags TAGS ctags CTAGS \ distdir ETAGS = etags CTAGS = ctags DIST_SUBDIRS = $(SUBDIRS) DISTFILES = $(DIST_COMMON) $(DIST_SOURCES) $(TEXINFOS) $(EXTRA_DIST) am__relativize = \ dir0=`pwd`; \ sed_first='s,^\([^/]*\)/.*$$,\1,'; \ sed_rest='s,^[^/]*/*,,'; \ sed_last='s,^.*/\([^/]*\)$$,\1,'; \ sed_butlast='s,/*[^/]*$$,,'; \ while test -n "$$dir1"; do \ first=`echo "$$dir1" | sed -e "$$sed_first"`; \ if test "$$first" != "."; then \ if test "$$first" = ".."; then \ dir2=`echo "$$dir0" | sed -e "$$sed_last"`/"$$dir2"; \ dir0=`echo "$$dir0" | sed -e "$$sed_butlast"`; \ else \ first2=`echo "$$dir2" | sed -e "$$sed_first"`; \ if test "$$first2" = "$$first"; then \ dir2=`echo "$$dir2" | sed -e "$$sed_rest"`; \ else \ dir2="../$$dir2"; \ fi; \ dir0="$$dir0"/"$$first"; \ fi; \ fi; \ dir1=`echo "$$dir1" | sed -e "$$sed_rest"`; \ done; \ reldir="$$dir2" ACLOCAL = @ACLOCAL@ AG_PKG_CONFIG_PATH = @AG_PKG_CONFIG_PATH@ AMTAR = @AMTAR@ API_VERSION = @API_VERSION@ AR = @AR@ ATK_CFLAGS = @ATK_CFLAGS@ ATK_LIBS = @ATK_LIBS@ AUTOCONF = @AUTOCONF@ AUTOHEADER = @AUTOHEADER@ AUTOMAKE = @AUTOMAKE@ AWK = @AWK@ BONOBO_IDL_DIR = @BONOBO_IDL_DIR@ CANVAS_CFLAGS = @CANVAS_CFLAGS@ CANVAS_LIBS = @CANVAS_LIBS@ CC = @CC@ CCDEPMODE = @CCDEPMODE@ CFLAGS = @CFLAGS@ CORBA_CFLAGS = @CORBA_CFLAGS@ CORBA_LIBS = @CORBA_LIBS@ CPP = @CPP@ CPPFLAGS = @CPPFLAGS@ CYGPATH_W = @CYGPATH_W@ DEFS = @DEFS@ DEPDIR = @DEPDIR@ DLLTOOL = @DLLTOOL@ DSYMUTIL = @DSYMUTIL@ DUMPBIN = @DUMPBIN@ ECHO_C = @ECHO_C@ ECHO_N = @ECHO_N@ ECHO_T = @ECHO_T@ EGREP = @EGREP@ EXEEXT = @EXEEXT@ FGREP = @FGREP@ GCONF_CFLAGS = @GCONF_CFLAGS@ GCONF_LIBS = @GCONF_LIBS@ GDK_CFLAGS = @GDK_CFLAGS@ GDK_LIBS = @GDK_LIBS@ GDK_PIXBUF_CFLAGS = @GDK_PIXBUF_CFLAGS@ GDK_PIXBUF_LIBS = @GDK_PIXBUF_LIBS@ GLIB_CFLAGS = @GLIB_CFLAGS@ GLIB_LIBS = @GLIB_LIBS@ GNOMEUI_DEPRECATION_FLAGS = @GNOMEUI_DEPRECATION_FLAGS@ GNOME_VFS_CFLAGS = @GNOME_VFS_CFLAGS@ GNOME_VFS_DEPRECATED_CFLAGS = @GNOME_VFS_DEPRECATED_CFLAGS@ GNOME_VFS_LIBS = @GNOME_VFS_LIBS@ GOBJECT_CFLAGS = @GOBJECT_CFLAGS@ GOBJECT_LIBS = @GOBJECT_LIBS@ GREP = @GREP@ GTHREAD_CFLAGS = @GTHREAD_CFLAGS@ GTHREAD_LIBS = @GTHREAD_LIBS@ GTK_CFLAGS = @GTK_CFLAGS@ GTK_DEPRECATED_CFLAGS = @GTK_DEPRECATED_CFLAGS@ GTK_LIBS = @GTK_LIBS@ GUILE_CAIRO_CFLAGS = @GUILE_CAIRO_CFLAGS@ GUILE_CAIRO_LIBS = @GUILE_CAIRO_LIBS@ GUILE_CFLAGS = @GUILE_CFLAGS@ GUILE_EFFECTIVE_VERSION = @GUILE_EFFECTIVE_VERSION@ GUILE_GLIB_CFLAGS = @GUILE_GLIB_CFLAGS@ GUILE_GLIB_LIBS = @GUILE_GLIB_LIBS@ GUILE_LIBS = @GUILE_LIBS@ G_WRAP_CFLAGS = @G_WRAP_CFLAGS@ G_WRAP_LIBS = @G_WRAP_LIBS@ G_WRAP_LIB_DIR = @G_WRAP_LIB_DIR@ G_WRAP_MODULE_DIR = @G_WRAP_MODULE_DIR@ INSTALL = @INSTALL@ INSTALL_DATA = @INSTALL_DATA@ INSTALL_PROGRAM = @INSTALL_PROGRAM@ INSTALL_SCRIPT = @INSTALL_SCRIPT@ INSTALL_STRIP_PROGRAM = @INSTALL_STRIP_PROGRAM@ LD = @LD@ LDFLAGS = @LDFLAGS@ LIBGLADE_CFLAGS = @LIBGLADE_CFLAGS@ LIBGLADE_LIBS = @LIBGLADE_LIBS@ LIBGNOMEUI_CFLAGS = @LIBGNOMEUI_CFLAGS@ LIBGNOMEUI_LIBS = @LIBGNOMEUI_LIBS@ LIBGNOME_CFLAGS = @LIBGNOME_CFLAGS@ LIBGNOME_LIBS = @LIBGNOME_LIBS@ LIBOBJS = @LIBOBJS@ LIBS = @LIBS@ LIBTOOL = @LIBTOOL@ LIPO = @LIPO@ LN_S = @LN_S@ LTLIBOBJS = @LTLIBOBJS@ MAKEINFO = @MAKEINFO@ MANIFEST_TOOL = @MANIFEST_TOOL@ MKDIR_P = @MKDIR_P@ NM = @NM@ NMEDIT = @NMEDIT@ OBJDUMP = @OBJDUMP@ OBJEXT = @OBJEXT@ ORBIT_IDL = @ORBIT_IDL@ OTOOL = @OTOOL@ OTOOL64 = @OTOOL64@ PACKAGE = @PACKAGE@ PACKAGE_BUGREPORT = @PACKAGE_BUGREPORT@ PACKAGE_NAME = @PACKAGE_NAME@ PACKAGE_STRING = @PACKAGE_STRING@ PACKAGE_TARNAME = @PACKAGE_TARNAME@ PACKAGE_URL = @PACKAGE_URL@ PACKAGE_VERSION = @PACKAGE_VERSION@ PANGOCAIRO_CFLAGS = @PANGOCAIRO_CFLAGS@ PANGOCAIRO_LIBS = @PANGOCAIRO_LIBS@ PANGO_CFLAGS = @PANGO_CFLAGS@ PANGO_LIBS = @PANGO_LIBS@ PATH_SEPARATOR = @PATH_SEPARATOR@ PKG_CONFIG = @PKG_CONFIG@ PKG_CONFIG_LIBDIR = @PKG_CONFIG_LIBDIR@ PKG_CONFIG_PATH = @PKG_CONFIG_PATH@ RANLIB = @RANLIB@ SED = @SED@ SET_MAKE = @SET_MAKE@ SHELL = @SHELL@ STRIP = @STRIP@ VERSION = @VERSION@ WARN_CFLAGS = @WARN_CFLAGS@ abs_builddir = @abs_builddir@ abs_srcdir = @abs_srcdir@ abs_top_builddir = @abs_top_builddir@ abs_top_srcdir = @abs_top_srcdir@ ac_ct_AR = @ac_ct_AR@ ac_ct_CC = @ac_ct_CC@ ac_ct_DUMPBIN = @ac_ct_DUMPBIN@ am__include = @am__include@ am__leading_dot = @am__leading_dot@ am__quote = @am__quote@ am__tar = @am__tar@ am__untar = @am__untar@ bindir = @bindir@ build = @build@ build_alias = @build_alias@ build_cpu = @build_cpu@ build_os = @build_os@ build_vendor = @build_vendor@ builddir = @builddir@ datadir = @datadir@ datarootdir = @datarootdir@ docdir = @docdir@ dvidir = @dvidir@ exec_prefix = @exec_prefix@ host = @host@ host_alias = @host_alias@ host_cpu = @host_cpu@ host_os = @host_os@ host_vendor = @host_vendor@ htmldir = @htmldir@ includedir = @includedir@ infodir = @infodir@ install_sh = @install_sh@ libdir = @libdir@ libexecdir = @libexecdir@ localedir = @localedir@ localstatedir = @localstatedir@ mandir = @mandir@ mkdir_p = @mkdir_p@ oldincludedir = @oldincludedir@ pdfdir = @pdfdir@ prefix = @prefix@ program_transform_name = @program_transform_name@ psdir = @psdir@ sbindir = @sbindir@ sharedstatedir = @sharedstatedir@ srcdir = @srcdir@ sysconfdir = @sysconfdir@ target_alias = @target_alias@ top_build_prefix = @top_build_prefix@ top_builddir = @top_builddir@ top_srcdir = @top_srcdir@ SUBDIRS = gnome pkgconfigdir = $(libdir)/pkgconfig pkgconfig_DATA = $(pcifiles) EXTRA_DIST = guile-gnome-cairo.pc.in guile-gnome-cairo-uninstalled.pc.in \ ChangeLog.pre-2.16 AUTHORS README CLEANFILES = $(pcifiles) $(pcufiles) all: all-recursive .SUFFIXES: $(srcdir)/Makefile.in: $(srcdir)/Makefile.am $(am__configure_deps) @for dep in $?; do \ case '$(am__configure_deps)' in \ *$$dep*) \ ( cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh ) \ && { if test -f $@; then exit 0; else break; fi; }; \ exit 1;; \ esac; \ done; \ echo ' cd $(top_srcdir) && $(AUTOMAKE) --gnu cairo/Makefile'; \ $(am__cd) $(top_srcdir) && \ $(AUTOMAKE) --gnu cairo/Makefile .PRECIOUS: Makefile Makefile: $(srcdir)/Makefile.in $(top_builddir)/config.status @case '$?' in \ *config.status*) \ cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh;; \ *) \ echo ' cd $(top_builddir) && $(SHELL) ./config.status $(subdir)/$@ $(am__depfiles_maybe)'; \ cd $(top_builddir) && $(SHELL) ./config.status $(subdir)/$@ $(am__depfiles_maybe);; \ esac; $(top_builddir)/config.status: $(top_srcdir)/configure $(CONFIG_STATUS_DEPENDENCIES) cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh $(top_srcdir)/configure: $(am__configure_deps) cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh $(ACLOCAL_M4): $(am__aclocal_m4_deps) cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh $(am__aclocal_m4_deps): guile-gnome-cairo.pc: $(top_builddir)/config.status $(srcdir)/guile-gnome-cairo.pc.in cd $(top_builddir) && $(SHELL) ./config.status $(subdir)/$@ guile-gnome-cairo-uninstalled.pc: $(top_builddir)/config.status $(srcdir)/guile-gnome-cairo-uninstalled.pc.in cd $(top_builddir) && $(SHELL) ./config.status $(subdir)/$@ mostlyclean-libtool: -rm -f *.lo clean-libtool: -rm -rf .libs _libs install-pkgconfigDATA: $(pkgconfig_DATA) @$(NORMAL_INSTALL) @list='$(pkgconfig_DATA)'; test -n "$(pkgconfigdir)" || list=; \ if test -n "$$list"; then \ echo " $(MKDIR_P) '$(DESTDIR)$(pkgconfigdir)'"; \ $(MKDIR_P) "$(DESTDIR)$(pkgconfigdir)" || exit 1; \ fi; \ for p in $$list; do \ if test -f "$$p"; then d=; else d="$(srcdir)/"; fi; \ echo "$$d$$p"; \ done | $(am__base_list) | \ while read files; do \ echo " $(INSTALL_DATA) $$files '$(DESTDIR)$(pkgconfigdir)'"; \ $(INSTALL_DATA) $$files "$(DESTDIR)$(pkgconfigdir)" || exit $$?; \ done uninstall-pkgconfigDATA: @$(NORMAL_UNINSTALL) @list='$(pkgconfig_DATA)'; test -n "$(pkgconfigdir)" || list=; \ files=`for p in $$list; do echo $$p; done | sed -e 's|^.*/||'`; \ dir='$(DESTDIR)$(pkgconfigdir)'; $(am__uninstall_files_from_dir) # This directory's subdirectories are mostly independent; you can cd # into them and run `make' without going through this Makefile. # To change the values of `make' variables: instead of editing Makefiles, # (1) if the variable is set in `config.status', edit `config.status' # (which will cause the Makefiles to be regenerated when you run `make'); # (2) otherwise, pass the desired values on the `make' command line. $(RECURSIVE_TARGETS): @fail= failcom='exit 1'; \ for f in x $$MAKEFLAGS; do \ case $$f in \ *=* | --[!k]*);; \ *k*) failcom='fail=yes';; \ esac; \ done; \ dot_seen=no; \ target=`echo $@ | sed s/-recursive//`; \ list='$(SUBDIRS)'; for subdir in $$list; do \ echo "Making $$target in $$subdir"; \ if test "$$subdir" = "."; then \ dot_seen=yes; \ local_target="$$target-am"; \ else \ local_target="$$target"; \ fi; \ ($(am__cd) $$subdir && $(MAKE) $(AM_MAKEFLAGS) $$local_target) \ || eval $$failcom; \ done; \ if test "$$dot_seen" = "no"; then \ $(MAKE) $(AM_MAKEFLAGS) "$$target-am" || exit 1; \ fi; test -z "$$fail" $(RECURSIVE_CLEAN_TARGETS): @fail= failcom='exit 1'; \ for f in x $$MAKEFLAGS; do \ case $$f in \ *=* | --[!k]*);; \ *k*) failcom='fail=yes';; \ esac; \ done; \ dot_seen=no; \ case "$@" in \ distclean-* | maintainer-clean-*) list='$(DIST_SUBDIRS)' ;; \ *) list='$(SUBDIRS)' ;; \ esac; \ rev=''; for subdir in $$list; do \ if test "$$subdir" = "."; then :; else \ rev="$$subdir $$rev"; \ fi; \ done; \ rev="$$rev ."; \ target=`echo $@ | sed s/-recursive//`; \ for subdir in $$rev; do \ echo "Making $$target in $$subdir"; \ if test "$$subdir" = "."; then \ local_target="$$target-am"; \ else \ local_target="$$target"; \ fi; \ ($(am__cd) $$subdir && $(MAKE) $(AM_MAKEFLAGS) $$local_target) \ || eval $$failcom; \ done && test -z "$$fail" tags-recursive: list='$(SUBDIRS)'; for subdir in $$list; do \ test "$$subdir" = . || ($(am__cd) $$subdir && $(MAKE) $(AM_MAKEFLAGS) tags); \ done ctags-recursive: list='$(SUBDIRS)'; for subdir in $$list; do \ test "$$subdir" = . || ($(am__cd) $$subdir && $(MAKE) $(AM_MAKEFLAGS) ctags); \ done ID: $(HEADERS) $(SOURCES) $(LISP) $(TAGS_FILES) list='$(SOURCES) $(HEADERS) $(LISP) $(TAGS_FILES)'; \ unique=`for i in $$list; do \ if test -f "$$i"; then echo $$i; else echo $(srcdir)/$$i; fi; \ done | \ $(AWK) '{ files[$$0] = 1; nonempty = 1; } \ END { if (nonempty) { for (i in files) print i; }; }'`; \ mkid -fID $$unique tags: TAGS TAGS: tags-recursive $(HEADERS) $(SOURCES) $(TAGS_DEPENDENCIES) \ $(TAGS_FILES) $(LISP) set x; \ here=`pwd`; \ if ($(ETAGS) --etags-include --version) >/dev/null 2>&1; then \ include_option=--etags-include; \ empty_fix=.; \ else \ include_option=--include; \ empty_fix=; \ fi; \ list='$(SUBDIRS)'; for subdir in $$list; do \ if test "$$subdir" = .; then :; else \ test ! -f $$subdir/TAGS || \ set "$$@" "$$include_option=$$here/$$subdir/TAGS"; \ fi; \ done; \ list='$(SOURCES) $(HEADERS) $(LISP) $(TAGS_FILES)'; \ unique=`for i in $$list; do \ if test -f "$$i"; then echo $$i; else echo $(srcdir)/$$i; fi; \ done | \ $(AWK) '{ files[$$0] = 1; nonempty = 1; } \ END { if (nonempty) { for (i in files) print i; }; }'`; \ shift; \ if test -z "$(ETAGS_ARGS)$$*$$unique"; then :; else \ test -n "$$unique" || unique=$$empty_fix; \ if test $$# -gt 0; then \ $(ETAGS) $(ETAGSFLAGS) $(AM_ETAGSFLAGS) $(ETAGS_ARGS) \ "$$@" $$unique; \ else \ $(ETAGS) $(ETAGSFLAGS) $(AM_ETAGSFLAGS) $(ETAGS_ARGS) \ $$unique; \ fi; \ fi ctags: CTAGS CTAGS: ctags-recursive $(HEADERS) $(SOURCES) $(TAGS_DEPENDENCIES) \ $(TAGS_FILES) $(LISP) list='$(SOURCES) $(HEADERS) $(LISP) $(TAGS_FILES)'; \ unique=`for i in $$list; do \ if test -f "$$i"; then echo $$i; else echo $(srcdir)/$$i; fi; \ done | \ $(AWK) '{ files[$$0] = 1; nonempty = 1; } \ END { if (nonempty) { for (i in files) print i; }; }'`; \ test -z "$(CTAGS_ARGS)$$unique" \ || $(CTAGS) $(CTAGSFLAGS) $(AM_CTAGSFLAGS) $(CTAGS_ARGS) \ $$unique GTAGS: here=`$(am__cd) $(top_builddir) && pwd` \ && $(am__cd) $(top_srcdir) \ && gtags -i $(GTAGS_ARGS) "$$here" distclean-tags: -rm -f TAGS ID GTAGS GRTAGS GSYMS GPATH tags distdir: $(DISTFILES) @srcdirstrip=`echo "$(srcdir)" | sed 's/[].[^$$\\*]/\\\\&/g'`; \ topsrcdirstrip=`echo "$(top_srcdir)" | sed 's/[].[^$$\\*]/\\\\&/g'`; \ list='$(DISTFILES)'; \ dist_files=`for file in $$list; do echo $$file; done | \ sed -e "s|^$$srcdirstrip/||;t" \ -e "s|^$$topsrcdirstrip/|$(top_builddir)/|;t"`; \ case $$dist_files in \ */*) $(MKDIR_P) `echo "$$dist_files" | \ sed '/\//!d;s|^|$(distdir)/|;s,/[^/]*$$,,' | \ sort -u` ;; \ esac; \ for file in $$dist_files; do \ if test -f $$file || test -d $$file; then d=.; else d=$(srcdir); fi; \ if test -d $$d/$$file; then \ dir=`echo "/$$file" | sed -e 's,/[^/]*$$,,'`; \ if test -d "$(distdir)/$$file"; then \ find "$(distdir)/$$file" -type d ! -perm -700 -exec chmod u+rwx {} \;; \ fi; \ if test -d $(srcdir)/$$file && test $$d != $(srcdir); then \ cp -fpR $(srcdir)/$$file "$(distdir)$$dir" || exit 1; \ find "$(distdir)/$$file" -type d ! -perm -700 -exec chmod u+rwx {} \;; \ fi; \ cp -fpR $$d/$$file "$(distdir)$$dir" || exit 1; \ else \ test -f "$(distdir)/$$file" \ || cp -p $$d/$$file "$(distdir)/$$file" \ || exit 1; \ fi; \ done @list='$(DIST_SUBDIRS)'; for subdir in $$list; do \ if test "$$subdir" = .; then :; else \ $(am__make_dryrun) \ || test -d "$(distdir)/$$subdir" \ || $(MKDIR_P) "$(distdir)/$$subdir" \ || exit 1; \ dir1=$$subdir; dir2="$(distdir)/$$subdir"; \ $(am__relativize); \ new_distdir=$$reldir; \ dir1=$$subdir; dir2="$(top_distdir)"; \ $(am__relativize); \ new_top_distdir=$$reldir; \ echo " (cd $$subdir && $(MAKE) $(AM_MAKEFLAGS) top_distdir="$$new_top_distdir" distdir="$$new_distdir" \\"; \ echo " am__remove_distdir=: am__skip_length_check=: am__skip_mode_fix=: distdir)"; \ ($(am__cd) $$subdir && \ $(MAKE) $(AM_MAKEFLAGS) \ top_distdir="$$new_top_distdir" \ distdir="$$new_distdir" \ am__remove_distdir=: \ am__skip_length_check=: \ am__skip_mode_fix=: \ distdir) \ || exit 1; \ fi; \ done check-am: all-am check: check-recursive all-am: Makefile $(DATA) installdirs: installdirs-recursive installdirs-am: for dir in "$(DESTDIR)$(pkgconfigdir)"; do \ test -z "$$dir" || $(MKDIR_P) "$$dir"; \ done install: install-recursive install-exec: install-exec-recursive install-data: install-data-recursive uninstall: uninstall-recursive install-am: all-am @$(MAKE) $(AM_MAKEFLAGS) install-exec-am install-data-am installcheck: installcheck-recursive install-strip: if test -z '$(STRIP)'; then \ $(MAKE) $(AM_MAKEFLAGS) INSTALL_PROGRAM="$(INSTALL_STRIP_PROGRAM)" \ install_sh_PROGRAM="$(INSTALL_STRIP_PROGRAM)" INSTALL_STRIP_FLAG=-s \ install; \ else \ $(MAKE) $(AM_MAKEFLAGS) INSTALL_PROGRAM="$(INSTALL_STRIP_PROGRAM)" \ install_sh_PROGRAM="$(INSTALL_STRIP_PROGRAM)" INSTALL_STRIP_FLAG=-s \ "INSTALL_PROGRAM_ENV=STRIPPROG='$(STRIP)'" install; \ fi mostlyclean-generic: clean-generic: -test -z "$(CLEANFILES)" || rm -f $(CLEANFILES) distclean-generic: -test -z "$(CONFIG_CLEAN_FILES)" || rm -f $(CONFIG_CLEAN_FILES) -test . = "$(srcdir)" || test -z "$(CONFIG_CLEAN_VPATH_FILES)" || rm -f $(CONFIG_CLEAN_VPATH_FILES) maintainer-clean-generic: @echo "This command is intended for maintainers to use" @echo "it deletes files that may require special tools to rebuild." clean: clean-recursive clean-am: clean-generic clean-libtool mostlyclean-am distclean: distclean-recursive -rm -f Makefile distclean-am: clean-am distclean-generic distclean-tags dvi: dvi-recursive dvi-am: html: html-recursive html-am: info: info-recursive info-am: install-data-am: install-pkgconfigDATA install-dvi: install-dvi-recursive install-dvi-am: install-exec-am: install-html: install-html-recursive install-html-am: install-info: install-info-recursive install-info-am: install-man: install-pdf: install-pdf-recursive install-pdf-am: install-ps: install-ps-recursive install-ps-am: installcheck-am: maintainer-clean: maintainer-clean-recursive -rm -f Makefile maintainer-clean-am: distclean-am maintainer-clean-generic mostlyclean: mostlyclean-recursive mostlyclean-am: mostlyclean-generic mostlyclean-libtool pdf: pdf-recursive pdf-am: ps: ps-recursive ps-am: uninstall-am: uninstall-pkgconfigDATA .MAKE: $(RECURSIVE_CLEAN_TARGETS) $(RECURSIVE_TARGETS) ctags-recursive \ install-am install-strip tags-recursive .PHONY: $(RECURSIVE_CLEAN_TARGETS) $(RECURSIVE_TARGETS) CTAGS GTAGS \ all all-am check check-am clean clean-generic clean-libtool \ ctags ctags-recursive distclean distclean-generic \ distclean-libtool distclean-tags distdir dvi dvi-am html \ html-am info info-am install install-am install-data \ install-data-am install-dvi install-dvi-am install-exec \ install-exec-am install-html install-html-am install-info \ install-info-am install-man install-pdf install-pdf-am \ install-pkgconfigDATA install-ps install-ps-am install-strip \ installcheck installcheck-am installdirs installdirs-am \ maintainer-clean maintainer-clean-generic mostlyclean \ mostlyclean-generic mostlyclean-libtool pdf pdf-am ps ps-am \ tags tags-recursive uninstall uninstall-am \ uninstall-pkgconfigDATA # Tell versions [3.59,3.63) of GNU make to not export all variables. # Otherwise a system limit (for SysV at least) may be exceeded. .NOEXPORT: guile-gnome-platform-2.16.2/cairo/README0000644000175000017500000000171511670374302020150 0ustar00wingowingo00000000000000guile-gnome-cairo README Copyright (C) 2007 Free Software Foundation, Inc. See the end for copying conditions of this file. Last updated 6 December 2007. About guile-gnome-cairo ========================== guile-gnome-cairo integrates the Guile-Cairo bindings with G-Wrap, providing other guile-gnome wrappers with the ability to automatically wrap Cairo types. It is not a cairo wrapper in and of itself, and does not provide any API for the end user. guile-gnome-cairo is a part of GNU guile-gnome. See the README file in the toplevel source directory for more information. Build dependencies ================== guile-gnome-cairo requires Guile-Cairo, available from http://home.gna.org/guile-cairo/. Copying this file ================= Copyright (C) 2007 Free Software Foundation, Inc. Copying and distribution of this file, with or without modification, are permitted in any medium without royalty provided the copyright notice and this notice are preserved. guile-gnome-platform-2.16.2/cairo/AUTHORS0000644000175000017500000000040411670374302020332 0ustar00wingowingo00000000000000To find out what should go in this file, see "Information For Maintainers of GNU Software" (maintain.texi), the section called "Recording Changes". Andy Wingo: In the directory gnome/gw, wrote: cairo-spec.scm In the directory gnome, wrote: cairo.scm guile-gnome-platform-2.16.2/cairo/ChangeLog.pre-2.160000644000175000017500000000403211670374302022206 0ustar00wingowingo000000000000002008-04-25 Andy Wingo * == Released guile-gnome-platform version 2.15.98 == 2008-04-10 Andy Wingo * == Released guile-gnome-platform version 2.15.97 == 2008-04-10 Andy Wingo * NEWS: Update NEWS. 2007-12-10 Andy Wingo * == Released guile-gnome-platform version 2.15.96 == 2007-12-06 Andy Wingo * README: Update to say that we have no public API. * gnome/Makefile.am: * gnome/cairo.scm: Removed, we provide no public API. 2007-11-10 Andy Wingo * == Released guile-gnome-platform version 2.15.95 == 2007-09-25 Andy Wingo * == Released guile-gnome-platform version 2.15.94 == 2007-09-25 Andy Wingo * NEWS: Updated. 2007-06-15 Andy Wingo * == Released guile-gnome-platform version 2.15.93 == 2007-05-25 Andy Wingo * gnome/gw/cairo-spec.scm: Now that we are actually making a shlib, init guile-cairo in the shlib instead of in every dependant wrapset. * gnome/gw/Makefile.am: I tried really hard to avoid making a shared library for this g-wrap wrapset, since it is not necessary at all, but I have failed for the moment: other wrapsets depending on this one will check to see that something has registered the "guile-cairo" wrapset with the C g-wrap runtime, which will fail unless we actually have a shlib that registers the wrapset. Suck. 2007-05-24 Andy Wingo * == Released guile-gnome-platform version 2.15.92 == 2007-05-21 Andy Wingo * gnome/gw/cairo-spec.scm: Lots of g-wrap muckiness to make things work. 2007-05-20 Andy Wingo * package.ac: Define GUILE_CAIRO_CFLAGS, not CAIRO_CFLAGS. * package.ac: Record that the check succeeded. * gnome/gw/cairo-spec.scm: Define g-wrap types for cairo_t and cairo_font_options_t. * Makefile.am: * guile-gnome-cairo.pc.in: * guile-gnome-cairo-uninstalled.pc.in: * files.ac: Add pkg-config files. * Initial import. guile-gnome-platform-2.16.2/cairo/ChangeLog0000644000175000017500000000006711670374302021041 0ustar00wingowingo00000000000000See the revision control log for changes since 2.16.0. guile-gnome-platform-2.16.2/cairo/guile-gnome-cairo-uninstalled.pc.in0000644000175000017500000000022211670374302026034 0ustar00wingowingo00000000000000Name: Guile-Gnome Cairo integration, Uninstalled Description: Guile-Gnome Cairo integration, Uninstalled Version: @VERSION@ Requires: guile-cairo guile-gnome-platform-2.16.2/defs/0000755000175000017500000000000011752546500017112 5ustar00wingowingo00000000000000guile-gnome-platform-2.16.2/defs/guile-gnome-defs-uninstalled.pc.in0000644000175000017500000000036411670374302025513 0ustar00wingowingo00000000000000# the standard variables don't make sense for an uninstalled copy prefix= exec_prefix= libdir=${pcfiledir} includedir=${pcfiledir} Name: Guile-Gnome .defs files, Uninstalled Description: Guile-Gnome .defs files, Uninstalled Version: @VERSION@ guile-gnome-platform-2.16.2/defs/tools/0000755000175000017500000000000011752546500020252 5ustar00wingowingo00000000000000guile-gnome-platform-2.16.2/defs/tools/defs-diff0000755000175000017500000000522011670374302022024 0ustar00wingowingo00000000000000#!/usr/bin/guile -s !# ;; Copyright (C) 2004 Free Software Foundation, Inc. ;; GPL version 2 or later. ;; Assumes that a defs file is composed of lists of symbols, strings, ;; numbers, #t/#f, and other lists. Each toplevel list is assumed to ;; have at least two elements. (use-modules (ice-9 pretty-print)) (define from-port #f) (define to-port #f) (define (usage) (display "defs-diff FROM-FILE [TO-FILE]\n" (current-error-port)) (display "If there is no TO-FILE, defs-diff will read from stdin.\n") (exit 1)) (let ((args (program-arguments))) (case (length args) ((2) (set! to-port (current-input-port))) ((3) (set! to-port (open-input-file (caddr args)))) (else (usage))) (set! from-port (open-input-file (cadr args)))) (define (form-comp-object f) (case (car f) ((define-object define-enum define-flags define-interface define-boxed define-pointer define-function define-method) (cadr (assq 'c-name (cddr f)))) ((include) (cadr f)) (else (error "unknown defs form type" (car f))))) ;; If two forms should be treated as the same (define (form=? f1 f2) (and (eq? (car f1) (car f2)) (apply equal? (map form-comp-object (list f1 f2))))) (define (symbolstring x) (symbol->string y))) (define (form: ;; ::= * ;; ::= (+ | -) (use-modules (ice-9 pretty-print)) (define diff-port #f) (define (usage) (display "diff-to-overrides [DIFF]\n" (current-error-port)) (display "If there is no DIFF, input will be read from stdin.\n") (exit 1)) (let ((args (program-arguments))) (case (length args) ((1) (set! diff-port (current-input-port))) ((2) (set! diff-port (open-input-file (cadr args)))) (else (usage)))) (define (assq* key alist) (cond ((null? alist) #f) ((eq? (caar alist) key) alist) (else (assq* key (cdr alist))))) (define (write-form f) (and=> (and (memq (car f) '(define-function define-method)) (assq* 'c-name (cddr f))) (lambda (tail) (set-cdr! tail (cons `(overrides ,(cadr (car tail))) (cdr tail))))) (pretty-print f) (newline)) (let lp ((+/- (read diff-port))) (cond ((eof-object? +/-)) ;; finished ((memq +/- '(+ -)) (let ((f (read diff-port))) (or (list? f) (error "invalid diff" f)) (case +/- ((+) #f) ;; ignore it ((-) (if (not (eq? (car f) 'include)) (write-form f)))) (lp (read diff-port)))) (else (error "invalid diff" f)))) guile-gnome-platform-2.16.2/defs/tools/Makefile.am0000644000175000017500000000005111670374302022300 0ustar00wingowingo00000000000000EXTRA_DIST = defs-diff diff-to-overrides guile-gnome-platform-2.16.2/defs/tools/Makefile.in0000644000175000017500000002726611752511066022333 0ustar00wingowingo00000000000000# Makefile.in generated by automake 1.11.5 from Makefile.am. # @configure_input@ # Copyright (C) 1994, 1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, # 2003, 2004, 2005, 2006, 2007, 2008, 2009, 2010, 2011 Free Software # Foundation, Inc. # This Makefile.in is free software; the Free Software Foundation # gives unlimited permission to copy and/or distribute it, # with or without modifications, as long as this notice is preserved. # This program is distributed in the hope that it will be useful, # but WITHOUT ANY WARRANTY, to the extent permitted by law; without # even the implied warranty of MERCHANTABILITY or FITNESS FOR A # PARTICULAR PURPOSE. @SET_MAKE@ VPATH = @srcdir@ am__make_dryrun = \ { \ am__dry=no; \ case $$MAKEFLAGS in \ *\\[\ \ ]*) \ echo 'am--echo: ; @echo "AM" OK' | $(MAKE) -f - 2>/dev/null \ | grep '^AM OK$$' >/dev/null || am__dry=yes;; \ *) \ for am__flg in $$MAKEFLAGS; do \ case $$am__flg in \ *=*|--*) ;; \ *n*) am__dry=yes; break;; \ esac; \ done;; \ esac; \ test $$am__dry = yes; \ } pkgdatadir = $(datadir)/@PACKAGE@ pkgincludedir = $(includedir)/@PACKAGE@ pkglibdir = $(libdir)/@PACKAGE@ pkglibexecdir = $(libexecdir)/@PACKAGE@ am__cd = CDPATH="$${ZSH_VERSION+.}$(PATH_SEPARATOR)" && cd install_sh_DATA = $(install_sh) -c -m 644 install_sh_PROGRAM = $(install_sh) -c install_sh_SCRIPT = $(install_sh) -c INSTALL_HEADER = $(INSTALL_DATA) transform = $(program_transform_name) NORMAL_INSTALL = : PRE_INSTALL = : POST_INSTALL = : NORMAL_UNINSTALL = : PRE_UNINSTALL = : POST_UNINSTALL = : build_triplet = @build@ host_triplet = @host@ subdir = defs/tools DIST_COMMON = $(srcdir)/Makefile.am $(srcdir)/Makefile.in ACLOCAL_M4 = $(top_srcdir)/aclocal.m4 am__aclocal_m4_deps = $(top_srcdir)/configure.ac am__configure_deps = $(am__aclocal_m4_deps) $(CONFIGURE_DEPENDENCIES) \ $(ACLOCAL_M4) mkinstalldirs = $(install_sh) -d CONFIG_HEADER = $(top_builddir)/config.h CONFIG_CLEAN_FILES = CONFIG_CLEAN_VPATH_FILES = SOURCES = DIST_SOURCES = am__can_run_installinfo = \ case $$AM_UPDATE_INFO_DIR in \ n|no|NO) false;; \ *) (install-info --version) >/dev/null 2>&1;; \ esac DISTFILES = $(DIST_COMMON) $(DIST_SOURCES) $(TEXINFOS) $(EXTRA_DIST) ACLOCAL = @ACLOCAL@ AG_PKG_CONFIG_PATH = @AG_PKG_CONFIG_PATH@ AMTAR = @AMTAR@ API_VERSION = @API_VERSION@ AR = @AR@ ATK_CFLAGS = @ATK_CFLAGS@ ATK_LIBS = @ATK_LIBS@ AUTOCONF = @AUTOCONF@ AUTOHEADER = @AUTOHEADER@ AUTOMAKE = @AUTOMAKE@ AWK = @AWK@ BONOBO_IDL_DIR = @BONOBO_IDL_DIR@ CANVAS_CFLAGS = @CANVAS_CFLAGS@ CANVAS_LIBS = @CANVAS_LIBS@ CC = @CC@ CCDEPMODE = @CCDEPMODE@ CFLAGS = @CFLAGS@ CORBA_CFLAGS = @CORBA_CFLAGS@ CORBA_LIBS = @CORBA_LIBS@ CPP = @CPP@ CPPFLAGS = @CPPFLAGS@ CYGPATH_W = @CYGPATH_W@ DEFS = @DEFS@ DEPDIR = @DEPDIR@ DLLTOOL = @DLLTOOL@ DSYMUTIL = @DSYMUTIL@ DUMPBIN = @DUMPBIN@ ECHO_C = @ECHO_C@ ECHO_N = @ECHO_N@ ECHO_T = @ECHO_T@ EGREP = @EGREP@ EXEEXT = @EXEEXT@ FGREP = @FGREP@ GCONF_CFLAGS = @GCONF_CFLAGS@ GCONF_LIBS = @GCONF_LIBS@ GDK_CFLAGS = @GDK_CFLAGS@ GDK_LIBS = @GDK_LIBS@ GDK_PIXBUF_CFLAGS = @GDK_PIXBUF_CFLAGS@ GDK_PIXBUF_LIBS = @GDK_PIXBUF_LIBS@ GLIB_CFLAGS = @GLIB_CFLAGS@ GLIB_LIBS = @GLIB_LIBS@ GNOMEUI_DEPRECATION_FLAGS = @GNOMEUI_DEPRECATION_FLAGS@ GNOME_VFS_CFLAGS = @GNOME_VFS_CFLAGS@ GNOME_VFS_DEPRECATED_CFLAGS = @GNOME_VFS_DEPRECATED_CFLAGS@ GNOME_VFS_LIBS = @GNOME_VFS_LIBS@ GOBJECT_CFLAGS = @GOBJECT_CFLAGS@ GOBJECT_LIBS = @GOBJECT_LIBS@ GREP = @GREP@ GTHREAD_CFLAGS = @GTHREAD_CFLAGS@ GTHREAD_LIBS = @GTHREAD_LIBS@ GTK_CFLAGS = @GTK_CFLAGS@ GTK_DEPRECATED_CFLAGS = @GTK_DEPRECATED_CFLAGS@ GTK_LIBS = @GTK_LIBS@ GUILE_CAIRO_CFLAGS = @GUILE_CAIRO_CFLAGS@ GUILE_CAIRO_LIBS = @GUILE_CAIRO_LIBS@ GUILE_CFLAGS = @GUILE_CFLAGS@ GUILE_EFFECTIVE_VERSION = @GUILE_EFFECTIVE_VERSION@ GUILE_GLIB_CFLAGS = @GUILE_GLIB_CFLAGS@ GUILE_GLIB_LIBS = @GUILE_GLIB_LIBS@ GUILE_LIBS = @GUILE_LIBS@ G_WRAP_CFLAGS = @G_WRAP_CFLAGS@ G_WRAP_LIBS = @G_WRAP_LIBS@ G_WRAP_LIB_DIR = @G_WRAP_LIB_DIR@ G_WRAP_MODULE_DIR = @G_WRAP_MODULE_DIR@ INSTALL = @INSTALL@ INSTALL_DATA = @INSTALL_DATA@ INSTALL_PROGRAM = @INSTALL_PROGRAM@ INSTALL_SCRIPT = @INSTALL_SCRIPT@ INSTALL_STRIP_PROGRAM = @INSTALL_STRIP_PROGRAM@ LD = @LD@ LDFLAGS = @LDFLAGS@ LIBGLADE_CFLAGS = @LIBGLADE_CFLAGS@ LIBGLADE_LIBS = @LIBGLADE_LIBS@ LIBGNOMEUI_CFLAGS = @LIBGNOMEUI_CFLAGS@ LIBGNOMEUI_LIBS = @LIBGNOMEUI_LIBS@ LIBGNOME_CFLAGS = @LIBGNOME_CFLAGS@ LIBGNOME_LIBS = @LIBGNOME_LIBS@ LIBOBJS = @LIBOBJS@ LIBS = @LIBS@ LIBTOOL = @LIBTOOL@ LIPO = @LIPO@ LN_S = @LN_S@ LTLIBOBJS = @LTLIBOBJS@ MAKEINFO = @MAKEINFO@ MANIFEST_TOOL = @MANIFEST_TOOL@ MKDIR_P = @MKDIR_P@ NM = @NM@ NMEDIT = @NMEDIT@ OBJDUMP = @OBJDUMP@ OBJEXT = @OBJEXT@ ORBIT_IDL = @ORBIT_IDL@ OTOOL = @OTOOL@ OTOOL64 = @OTOOL64@ PACKAGE = @PACKAGE@ PACKAGE_BUGREPORT = @PACKAGE_BUGREPORT@ PACKAGE_NAME = @PACKAGE_NAME@ PACKAGE_STRING = @PACKAGE_STRING@ PACKAGE_TARNAME = @PACKAGE_TARNAME@ PACKAGE_URL = @PACKAGE_URL@ PACKAGE_VERSION = @PACKAGE_VERSION@ PANGOCAIRO_CFLAGS = @PANGOCAIRO_CFLAGS@ PANGOCAIRO_LIBS = @PANGOCAIRO_LIBS@ PANGO_CFLAGS = @PANGO_CFLAGS@ PANGO_LIBS = @PANGO_LIBS@ PATH_SEPARATOR = @PATH_SEPARATOR@ PKG_CONFIG = @PKG_CONFIG@ PKG_CONFIG_LIBDIR = @PKG_CONFIG_LIBDIR@ PKG_CONFIG_PATH = @PKG_CONFIG_PATH@ RANLIB = @RANLIB@ SED = @SED@ SET_MAKE = @SET_MAKE@ SHELL = @SHELL@ STRIP = @STRIP@ VERSION = @VERSION@ WARN_CFLAGS = @WARN_CFLAGS@ abs_builddir = @abs_builddir@ abs_srcdir = @abs_srcdir@ abs_top_builddir = @abs_top_builddir@ abs_top_srcdir = @abs_top_srcdir@ ac_ct_AR = @ac_ct_AR@ ac_ct_CC = @ac_ct_CC@ ac_ct_DUMPBIN = @ac_ct_DUMPBIN@ am__include = @am__include@ am__leading_dot = @am__leading_dot@ am__quote = @am__quote@ am__tar = @am__tar@ am__untar = @am__untar@ bindir = @bindir@ build = @build@ build_alias = @build_alias@ build_cpu = @build_cpu@ build_os = @build_os@ build_vendor = @build_vendor@ builddir = @builddir@ datadir = @datadir@ datarootdir = @datarootdir@ docdir = @docdir@ dvidir = @dvidir@ exec_prefix = @exec_prefix@ host = @host@ host_alias = @host_alias@ host_cpu = @host_cpu@ host_os = @host_os@ host_vendor = @host_vendor@ htmldir = @htmldir@ includedir = @includedir@ infodir = @infodir@ install_sh = @install_sh@ libdir = @libdir@ libexecdir = @libexecdir@ localedir = @localedir@ localstatedir = @localstatedir@ mandir = @mandir@ mkdir_p = @mkdir_p@ oldincludedir = @oldincludedir@ pdfdir = @pdfdir@ prefix = @prefix@ program_transform_name = @program_transform_name@ psdir = @psdir@ sbindir = @sbindir@ sharedstatedir = @sharedstatedir@ srcdir = @srcdir@ sysconfdir = @sysconfdir@ target_alias = @target_alias@ top_build_prefix = @top_build_prefix@ top_builddir = @top_builddir@ top_srcdir = @top_srcdir@ EXTRA_DIST = defs-diff diff-to-overrides all: all-am .SUFFIXES: $(srcdir)/Makefile.in: $(srcdir)/Makefile.am $(am__configure_deps) @for dep in $?; do \ case '$(am__configure_deps)' in \ *$$dep*) \ ( cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh ) \ && { if test -f $@; then exit 0; else break; fi; }; \ exit 1;; \ esac; \ done; \ echo ' cd $(top_srcdir) && $(AUTOMAKE) --gnu defs/tools/Makefile'; \ $(am__cd) $(top_srcdir) && \ $(AUTOMAKE) --gnu defs/tools/Makefile .PRECIOUS: Makefile Makefile: $(srcdir)/Makefile.in $(top_builddir)/config.status @case '$?' in \ *config.status*) \ cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh;; \ *) \ echo ' cd $(top_builddir) && $(SHELL) ./config.status $(subdir)/$@ $(am__depfiles_maybe)'; \ cd $(top_builddir) && $(SHELL) ./config.status $(subdir)/$@ $(am__depfiles_maybe);; \ esac; $(top_builddir)/config.status: $(top_srcdir)/configure $(CONFIG_STATUS_DEPENDENCIES) cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh $(top_srcdir)/configure: $(am__configure_deps) cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh $(ACLOCAL_M4): $(am__aclocal_m4_deps) cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh $(am__aclocal_m4_deps): mostlyclean-libtool: -rm -f *.lo clean-libtool: -rm -rf .libs _libs tags: TAGS TAGS: ctags: CTAGS CTAGS: distdir: $(DISTFILES) @srcdirstrip=`echo "$(srcdir)" | sed 's/[].[^$$\\*]/\\\\&/g'`; \ topsrcdirstrip=`echo "$(top_srcdir)" | sed 's/[].[^$$\\*]/\\\\&/g'`; \ list='$(DISTFILES)'; \ dist_files=`for file in $$list; do echo $$file; done | \ sed -e "s|^$$srcdirstrip/||;t" \ -e "s|^$$topsrcdirstrip/|$(top_builddir)/|;t"`; \ case $$dist_files in \ */*) $(MKDIR_P) `echo "$$dist_files" | \ sed '/\//!d;s|^|$(distdir)/|;s,/[^/]*$$,,' | \ sort -u` ;; \ esac; \ for file in $$dist_files; do \ if test -f $$file || test -d $$file; then d=.; else d=$(srcdir); fi; \ if test -d $$d/$$file; then \ dir=`echo "/$$file" | sed -e 's,/[^/]*$$,,'`; \ if test -d "$(distdir)/$$file"; then \ find "$(distdir)/$$file" -type d ! -perm -700 -exec chmod u+rwx {} \;; \ fi; \ if test -d $(srcdir)/$$file && test $$d != $(srcdir); then \ cp -fpR $(srcdir)/$$file "$(distdir)$$dir" || exit 1; \ find "$(distdir)/$$file" -type d ! -perm -700 -exec chmod u+rwx {} \;; \ fi; \ cp -fpR $$d/$$file "$(distdir)$$dir" || exit 1; \ else \ test -f "$(distdir)/$$file" \ || cp -p $$d/$$file "$(distdir)/$$file" \ || exit 1; \ fi; \ done check-am: all-am check: check-am all-am: Makefile installdirs: install: install-am install-exec: install-exec-am install-data: install-data-am uninstall: uninstall-am install-am: all-am @$(MAKE) $(AM_MAKEFLAGS) install-exec-am install-data-am installcheck: installcheck-am install-strip: if test -z '$(STRIP)'; then \ $(MAKE) $(AM_MAKEFLAGS) INSTALL_PROGRAM="$(INSTALL_STRIP_PROGRAM)" \ install_sh_PROGRAM="$(INSTALL_STRIP_PROGRAM)" INSTALL_STRIP_FLAG=-s \ install; \ else \ $(MAKE) $(AM_MAKEFLAGS) INSTALL_PROGRAM="$(INSTALL_STRIP_PROGRAM)" \ install_sh_PROGRAM="$(INSTALL_STRIP_PROGRAM)" INSTALL_STRIP_FLAG=-s \ "INSTALL_PROGRAM_ENV=STRIPPROG='$(STRIP)'" install; \ fi mostlyclean-generic: clean-generic: distclean-generic: -test -z "$(CONFIG_CLEAN_FILES)" || rm -f $(CONFIG_CLEAN_FILES) -test . = "$(srcdir)" || test -z "$(CONFIG_CLEAN_VPATH_FILES)" || rm -f $(CONFIG_CLEAN_VPATH_FILES) maintainer-clean-generic: @echo "This command is intended for maintainers to use" @echo "it deletes files that may require special tools to rebuild." clean: clean-am clean-am: clean-generic clean-libtool mostlyclean-am distclean: distclean-am -rm -f Makefile distclean-am: clean-am distclean-generic dvi: dvi-am dvi-am: html: html-am html-am: info: info-am info-am: install-data-am: install-dvi: install-dvi-am install-dvi-am: install-exec-am: install-html: install-html-am install-html-am: install-info: install-info-am install-info-am: install-man: install-pdf: install-pdf-am install-pdf-am: install-ps: install-ps-am install-ps-am: installcheck-am: maintainer-clean: maintainer-clean-am -rm -f Makefile maintainer-clean-am: distclean-am maintainer-clean-generic mostlyclean: mostlyclean-am mostlyclean-am: mostlyclean-generic mostlyclean-libtool pdf: pdf-am pdf-am: ps: ps-am ps-am: uninstall-am: .MAKE: install-am install-strip .PHONY: all all-am check check-am clean clean-generic clean-libtool \ distclean distclean-generic distclean-libtool distdir dvi \ dvi-am html html-am info info-am install install-am \ install-data install-data-am install-dvi install-dvi-am \ install-exec install-exec-am install-html install-html-am \ install-info install-info-am install-man install-pdf \ install-pdf-am install-ps install-ps-am install-strip \ installcheck installcheck-am installdirs maintainer-clean \ maintainer-clean-generic mostlyclean mostlyclean-generic \ mostlyclean-libtool pdf pdf-am ps ps-am uninstall uninstall-am # Tell versions [3.59,3.63) of GNU make to not export all variables. # Otherwise a system limit (for SysV at least) may be exceeded. .NOEXPORT: guile-gnome-platform-2.16.2/defs/gnome/0000755000175000017500000000000011752546500020217 5ustar00wingowingo00000000000000guile-gnome-platform-2.16.2/defs/gnome/Makefile.am0000644000175000017500000000001711670374302022247 0ustar00wingowingo00000000000000SUBDIRS = defs guile-gnome-platform-2.16.2/defs/gnome/Makefile.in0000644000175000017500000004523711752511066022276 0ustar00wingowingo00000000000000# Makefile.in generated by automake 1.11.5 from Makefile.am. # @configure_input@ # Copyright (C) 1994, 1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, # 2003, 2004, 2005, 2006, 2007, 2008, 2009, 2010, 2011 Free Software # Foundation, Inc. # This Makefile.in is free software; the Free Software Foundation # gives unlimited permission to copy and/or distribute it, # with or without modifications, as long as this notice is preserved. # This program is distributed in the hope that it will be useful, # but WITHOUT ANY WARRANTY, to the extent permitted by law; without # even the implied warranty of MERCHANTABILITY or FITNESS FOR A # PARTICULAR PURPOSE. @SET_MAKE@ VPATH = @srcdir@ am__make_dryrun = \ { \ am__dry=no; \ case $$MAKEFLAGS in \ *\\[\ \ ]*) \ echo 'am--echo: ; @echo "AM" OK' | $(MAKE) -f - 2>/dev/null \ | grep '^AM OK$$' >/dev/null || am__dry=yes;; \ *) \ for am__flg in $$MAKEFLAGS; do \ case $$am__flg in \ *=*|--*) ;; \ *n*) am__dry=yes; break;; \ esac; \ done;; \ esac; \ test $$am__dry = yes; \ } pkgdatadir = $(datadir)/@PACKAGE@ pkgincludedir = $(includedir)/@PACKAGE@ pkglibdir = $(libdir)/@PACKAGE@ pkglibexecdir = $(libexecdir)/@PACKAGE@ am__cd = CDPATH="$${ZSH_VERSION+.}$(PATH_SEPARATOR)" && cd install_sh_DATA = $(install_sh) -c -m 644 install_sh_PROGRAM = $(install_sh) -c install_sh_SCRIPT = $(install_sh) -c INSTALL_HEADER = $(INSTALL_DATA) transform = $(program_transform_name) NORMAL_INSTALL = : PRE_INSTALL = : POST_INSTALL = : NORMAL_UNINSTALL = : PRE_UNINSTALL = : POST_UNINSTALL = : build_triplet = @build@ host_triplet = @host@ subdir = defs/gnome DIST_COMMON = $(srcdir)/Makefile.am $(srcdir)/Makefile.in ACLOCAL_M4 = $(top_srcdir)/aclocal.m4 am__aclocal_m4_deps = $(top_srcdir)/configure.ac am__configure_deps = $(am__aclocal_m4_deps) $(CONFIGURE_DEPENDENCIES) \ $(ACLOCAL_M4) mkinstalldirs = $(install_sh) -d CONFIG_HEADER = $(top_builddir)/config.h CONFIG_CLEAN_FILES = CONFIG_CLEAN_VPATH_FILES = SOURCES = DIST_SOURCES = RECURSIVE_TARGETS = all-recursive check-recursive dvi-recursive \ html-recursive info-recursive install-data-recursive \ install-dvi-recursive install-exec-recursive \ install-html-recursive install-info-recursive \ install-pdf-recursive install-ps-recursive install-recursive \ installcheck-recursive installdirs-recursive pdf-recursive \ ps-recursive uninstall-recursive am__can_run_installinfo = \ case $$AM_UPDATE_INFO_DIR in \ n|no|NO) false;; \ *) (install-info --version) >/dev/null 2>&1;; \ esac RECURSIVE_CLEAN_TARGETS = mostlyclean-recursive clean-recursive \ distclean-recursive maintainer-clean-recursive AM_RECURSIVE_TARGETS = $(RECURSIVE_TARGETS:-recursive=) \ $(RECURSIVE_CLEAN_TARGETS:-recursive=) tags TAGS ctags CTAGS \ distdir ETAGS = etags CTAGS = ctags DIST_SUBDIRS = $(SUBDIRS) DISTFILES = $(DIST_COMMON) $(DIST_SOURCES) $(TEXINFOS) $(EXTRA_DIST) am__relativize = \ dir0=`pwd`; \ sed_first='s,^\([^/]*\)/.*$$,\1,'; \ sed_rest='s,^[^/]*/*,,'; \ sed_last='s,^.*/\([^/]*\)$$,\1,'; \ sed_butlast='s,/*[^/]*$$,,'; \ while test -n "$$dir1"; do \ first=`echo "$$dir1" | sed -e "$$sed_first"`; \ if test "$$first" != "."; then \ if test "$$first" = ".."; then \ dir2=`echo "$$dir0" | sed -e "$$sed_last"`/"$$dir2"; \ dir0=`echo "$$dir0" | sed -e "$$sed_butlast"`; \ else \ first2=`echo "$$dir2" | sed -e "$$sed_first"`; \ if test "$$first2" = "$$first"; then \ dir2=`echo "$$dir2" | sed -e "$$sed_rest"`; \ else \ dir2="../$$dir2"; \ fi; \ dir0="$$dir0"/"$$first"; \ fi; \ fi; \ dir1=`echo "$$dir1" | sed -e "$$sed_rest"`; \ done; \ reldir="$$dir2" ACLOCAL = @ACLOCAL@ AG_PKG_CONFIG_PATH = @AG_PKG_CONFIG_PATH@ AMTAR = @AMTAR@ API_VERSION = @API_VERSION@ AR = @AR@ ATK_CFLAGS = @ATK_CFLAGS@ ATK_LIBS = @ATK_LIBS@ AUTOCONF = @AUTOCONF@ AUTOHEADER = @AUTOHEADER@ AUTOMAKE = @AUTOMAKE@ AWK = @AWK@ BONOBO_IDL_DIR = @BONOBO_IDL_DIR@ CANVAS_CFLAGS = @CANVAS_CFLAGS@ CANVAS_LIBS = @CANVAS_LIBS@ CC = @CC@ CCDEPMODE = @CCDEPMODE@ CFLAGS = @CFLAGS@ CORBA_CFLAGS = @CORBA_CFLAGS@ CORBA_LIBS = @CORBA_LIBS@ CPP = @CPP@ CPPFLAGS = @CPPFLAGS@ CYGPATH_W = @CYGPATH_W@ DEFS = @DEFS@ DEPDIR = @DEPDIR@ DLLTOOL = @DLLTOOL@ DSYMUTIL = @DSYMUTIL@ DUMPBIN = @DUMPBIN@ ECHO_C = @ECHO_C@ ECHO_N = @ECHO_N@ ECHO_T = @ECHO_T@ EGREP = @EGREP@ EXEEXT = @EXEEXT@ FGREP = @FGREP@ GCONF_CFLAGS = @GCONF_CFLAGS@ GCONF_LIBS = @GCONF_LIBS@ GDK_CFLAGS = @GDK_CFLAGS@ GDK_LIBS = @GDK_LIBS@ GDK_PIXBUF_CFLAGS = @GDK_PIXBUF_CFLAGS@ GDK_PIXBUF_LIBS = @GDK_PIXBUF_LIBS@ GLIB_CFLAGS = @GLIB_CFLAGS@ GLIB_LIBS = @GLIB_LIBS@ GNOMEUI_DEPRECATION_FLAGS = @GNOMEUI_DEPRECATION_FLAGS@ GNOME_VFS_CFLAGS = @GNOME_VFS_CFLAGS@ GNOME_VFS_DEPRECATED_CFLAGS = @GNOME_VFS_DEPRECATED_CFLAGS@ GNOME_VFS_LIBS = @GNOME_VFS_LIBS@ GOBJECT_CFLAGS = @GOBJECT_CFLAGS@ GOBJECT_LIBS = @GOBJECT_LIBS@ GREP = @GREP@ GTHREAD_CFLAGS = @GTHREAD_CFLAGS@ GTHREAD_LIBS = @GTHREAD_LIBS@ GTK_CFLAGS = @GTK_CFLAGS@ GTK_DEPRECATED_CFLAGS = @GTK_DEPRECATED_CFLAGS@ GTK_LIBS = @GTK_LIBS@ GUILE_CAIRO_CFLAGS = @GUILE_CAIRO_CFLAGS@ GUILE_CAIRO_LIBS = @GUILE_CAIRO_LIBS@ GUILE_CFLAGS = @GUILE_CFLAGS@ GUILE_EFFECTIVE_VERSION = @GUILE_EFFECTIVE_VERSION@ GUILE_GLIB_CFLAGS = @GUILE_GLIB_CFLAGS@ GUILE_GLIB_LIBS = @GUILE_GLIB_LIBS@ GUILE_LIBS = @GUILE_LIBS@ G_WRAP_CFLAGS = @G_WRAP_CFLAGS@ G_WRAP_LIBS = @G_WRAP_LIBS@ G_WRAP_LIB_DIR = @G_WRAP_LIB_DIR@ G_WRAP_MODULE_DIR = @G_WRAP_MODULE_DIR@ INSTALL = @INSTALL@ INSTALL_DATA = @INSTALL_DATA@ INSTALL_PROGRAM = @INSTALL_PROGRAM@ INSTALL_SCRIPT = @INSTALL_SCRIPT@ INSTALL_STRIP_PROGRAM = @INSTALL_STRIP_PROGRAM@ LD = @LD@ LDFLAGS = @LDFLAGS@ LIBGLADE_CFLAGS = @LIBGLADE_CFLAGS@ LIBGLADE_LIBS = @LIBGLADE_LIBS@ LIBGNOMEUI_CFLAGS = @LIBGNOMEUI_CFLAGS@ LIBGNOMEUI_LIBS = @LIBGNOMEUI_LIBS@ LIBGNOME_CFLAGS = @LIBGNOME_CFLAGS@ LIBGNOME_LIBS = @LIBGNOME_LIBS@ LIBOBJS = @LIBOBJS@ LIBS = @LIBS@ LIBTOOL = @LIBTOOL@ LIPO = @LIPO@ LN_S = @LN_S@ LTLIBOBJS = @LTLIBOBJS@ MAKEINFO = @MAKEINFO@ MANIFEST_TOOL = @MANIFEST_TOOL@ MKDIR_P = @MKDIR_P@ NM = @NM@ NMEDIT = @NMEDIT@ OBJDUMP = @OBJDUMP@ OBJEXT = @OBJEXT@ ORBIT_IDL = @ORBIT_IDL@ OTOOL = @OTOOL@ OTOOL64 = @OTOOL64@ PACKAGE = @PACKAGE@ PACKAGE_BUGREPORT = @PACKAGE_BUGREPORT@ PACKAGE_NAME = @PACKAGE_NAME@ PACKAGE_STRING = @PACKAGE_STRING@ PACKAGE_TARNAME = @PACKAGE_TARNAME@ PACKAGE_URL = @PACKAGE_URL@ PACKAGE_VERSION = @PACKAGE_VERSION@ PANGOCAIRO_CFLAGS = @PANGOCAIRO_CFLAGS@ PANGOCAIRO_LIBS = @PANGOCAIRO_LIBS@ PANGO_CFLAGS = @PANGO_CFLAGS@ PANGO_LIBS = @PANGO_LIBS@ PATH_SEPARATOR = @PATH_SEPARATOR@ PKG_CONFIG = @PKG_CONFIG@ PKG_CONFIG_LIBDIR = @PKG_CONFIG_LIBDIR@ PKG_CONFIG_PATH = @PKG_CONFIG_PATH@ RANLIB = @RANLIB@ SED = @SED@ SET_MAKE = @SET_MAKE@ SHELL = @SHELL@ STRIP = @STRIP@ VERSION = @VERSION@ WARN_CFLAGS = @WARN_CFLAGS@ abs_builddir = @abs_builddir@ abs_srcdir = @abs_srcdir@ abs_top_builddir = @abs_top_builddir@ abs_top_srcdir = @abs_top_srcdir@ ac_ct_AR = @ac_ct_AR@ ac_ct_CC = @ac_ct_CC@ ac_ct_DUMPBIN = @ac_ct_DUMPBIN@ am__include = @am__include@ am__leading_dot = @am__leading_dot@ am__quote = @am__quote@ am__tar = @am__tar@ am__untar = @am__untar@ bindir = @bindir@ build = @build@ build_alias = @build_alias@ build_cpu = @build_cpu@ build_os = @build_os@ build_vendor = @build_vendor@ builddir = @builddir@ datadir = @datadir@ datarootdir = @datarootdir@ docdir = @docdir@ dvidir = @dvidir@ exec_prefix = @exec_prefix@ host = @host@ host_alias = @host_alias@ host_cpu = @host_cpu@ host_os = @host_os@ host_vendor = @host_vendor@ htmldir = @htmldir@ includedir = @includedir@ infodir = @infodir@ install_sh = @install_sh@ libdir = @libdir@ libexecdir = @libexecdir@ localedir = @localedir@ localstatedir = @localstatedir@ mandir = @mandir@ mkdir_p = @mkdir_p@ oldincludedir = @oldincludedir@ pdfdir = @pdfdir@ prefix = @prefix@ program_transform_name = @program_transform_name@ psdir = @psdir@ sbindir = @sbindir@ sharedstatedir = @sharedstatedir@ srcdir = @srcdir@ sysconfdir = @sysconfdir@ target_alias = @target_alias@ top_build_prefix = @top_build_prefix@ top_builddir = @top_builddir@ top_srcdir = @top_srcdir@ SUBDIRS = defs all: all-recursive .SUFFIXES: $(srcdir)/Makefile.in: $(srcdir)/Makefile.am $(am__configure_deps) @for dep in $?; do \ case '$(am__configure_deps)' in \ *$$dep*) \ ( cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh ) \ && { if test -f $@; then exit 0; else break; fi; }; \ exit 1;; \ esac; \ done; \ echo ' cd $(top_srcdir) && $(AUTOMAKE) --gnu defs/gnome/Makefile'; \ $(am__cd) $(top_srcdir) && \ $(AUTOMAKE) --gnu defs/gnome/Makefile .PRECIOUS: Makefile Makefile: $(srcdir)/Makefile.in $(top_builddir)/config.status @case '$?' in \ *config.status*) \ cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh;; \ *) \ echo ' cd $(top_builddir) && $(SHELL) ./config.status $(subdir)/$@ $(am__depfiles_maybe)'; \ cd $(top_builddir) && $(SHELL) ./config.status $(subdir)/$@ $(am__depfiles_maybe);; \ esac; $(top_builddir)/config.status: $(top_srcdir)/configure $(CONFIG_STATUS_DEPENDENCIES) cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh $(top_srcdir)/configure: $(am__configure_deps) cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh $(ACLOCAL_M4): $(am__aclocal_m4_deps) cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh $(am__aclocal_m4_deps): mostlyclean-libtool: -rm -f *.lo clean-libtool: -rm -rf .libs _libs # This directory's subdirectories are mostly independent; you can cd # into them and run `make' without going through this Makefile. # To change the values of `make' variables: instead of editing Makefiles, # (1) if the variable is set in `config.status', edit `config.status' # (which will cause the Makefiles to be regenerated when you run `make'); # (2) otherwise, pass the desired values on the `make' command line. $(RECURSIVE_TARGETS): @fail= failcom='exit 1'; \ for f in x $$MAKEFLAGS; do \ case $$f in \ *=* | --[!k]*);; \ *k*) failcom='fail=yes';; \ esac; \ done; \ dot_seen=no; \ target=`echo $@ | sed s/-recursive//`; \ list='$(SUBDIRS)'; for subdir in $$list; do \ echo "Making $$target in $$subdir"; \ if test "$$subdir" = "."; then \ dot_seen=yes; \ local_target="$$target-am"; \ else \ local_target="$$target"; \ fi; \ ($(am__cd) $$subdir && $(MAKE) $(AM_MAKEFLAGS) $$local_target) \ || eval $$failcom; \ done; \ if test "$$dot_seen" = "no"; then \ $(MAKE) $(AM_MAKEFLAGS) "$$target-am" || exit 1; \ fi; test -z "$$fail" $(RECURSIVE_CLEAN_TARGETS): @fail= failcom='exit 1'; \ for f in x $$MAKEFLAGS; do \ case $$f in \ *=* | --[!k]*);; \ *k*) failcom='fail=yes';; \ esac; \ done; \ dot_seen=no; \ case "$@" in \ distclean-* | maintainer-clean-*) list='$(DIST_SUBDIRS)' ;; \ *) list='$(SUBDIRS)' ;; \ esac; \ rev=''; for subdir in $$list; do \ if test "$$subdir" = "."; then :; else \ rev="$$subdir $$rev"; \ fi; \ done; \ rev="$$rev ."; \ target=`echo $@ | sed s/-recursive//`; \ for subdir in $$rev; do \ echo "Making $$target in $$subdir"; \ if test "$$subdir" = "."; then \ local_target="$$target-am"; \ else \ local_target="$$target"; \ fi; \ ($(am__cd) $$subdir && $(MAKE) $(AM_MAKEFLAGS) $$local_target) \ || eval $$failcom; \ done && test -z "$$fail" tags-recursive: list='$(SUBDIRS)'; for subdir in $$list; do \ test "$$subdir" = . || ($(am__cd) $$subdir && $(MAKE) $(AM_MAKEFLAGS) tags); \ done ctags-recursive: list='$(SUBDIRS)'; for subdir in $$list; do \ test "$$subdir" = . || ($(am__cd) $$subdir && $(MAKE) $(AM_MAKEFLAGS) ctags); \ done ID: $(HEADERS) $(SOURCES) $(LISP) $(TAGS_FILES) list='$(SOURCES) $(HEADERS) $(LISP) $(TAGS_FILES)'; \ unique=`for i in $$list; do \ if test -f "$$i"; then echo $$i; else echo $(srcdir)/$$i; fi; \ done | \ $(AWK) '{ files[$$0] = 1; nonempty = 1; } \ END { if (nonempty) { for (i in files) print i; }; }'`; \ mkid -fID $$unique tags: TAGS TAGS: tags-recursive $(HEADERS) $(SOURCES) $(TAGS_DEPENDENCIES) \ $(TAGS_FILES) $(LISP) set x; \ here=`pwd`; \ if ($(ETAGS) --etags-include --version) >/dev/null 2>&1; then \ include_option=--etags-include; \ empty_fix=.; \ else \ include_option=--include; \ empty_fix=; \ fi; \ list='$(SUBDIRS)'; for subdir in $$list; do \ if test "$$subdir" = .; then :; else \ test ! -f $$subdir/TAGS || \ set "$$@" "$$include_option=$$here/$$subdir/TAGS"; \ fi; \ done; \ list='$(SOURCES) $(HEADERS) $(LISP) $(TAGS_FILES)'; \ unique=`for i in $$list; do \ if test -f "$$i"; then echo $$i; else echo $(srcdir)/$$i; fi; \ done | \ $(AWK) '{ files[$$0] = 1; nonempty = 1; } \ END { if (nonempty) { for (i in files) print i; }; }'`; \ shift; \ if test -z "$(ETAGS_ARGS)$$*$$unique"; then :; else \ test -n "$$unique" || unique=$$empty_fix; \ if test $$# -gt 0; then \ $(ETAGS) $(ETAGSFLAGS) $(AM_ETAGSFLAGS) $(ETAGS_ARGS) \ "$$@" $$unique; \ else \ $(ETAGS) $(ETAGSFLAGS) $(AM_ETAGSFLAGS) $(ETAGS_ARGS) \ $$unique; \ fi; \ fi ctags: CTAGS CTAGS: ctags-recursive $(HEADERS) $(SOURCES) $(TAGS_DEPENDENCIES) \ $(TAGS_FILES) $(LISP) list='$(SOURCES) $(HEADERS) $(LISP) $(TAGS_FILES)'; \ unique=`for i in $$list; do \ if test -f "$$i"; then echo $$i; else echo $(srcdir)/$$i; fi; \ done | \ $(AWK) '{ files[$$0] = 1; nonempty = 1; } \ END { if (nonempty) { for (i in files) print i; }; }'`; \ test -z "$(CTAGS_ARGS)$$unique" \ || $(CTAGS) $(CTAGSFLAGS) $(AM_CTAGSFLAGS) $(CTAGS_ARGS) \ $$unique GTAGS: here=`$(am__cd) $(top_builddir) && pwd` \ && $(am__cd) $(top_srcdir) \ && gtags -i $(GTAGS_ARGS) "$$here" distclean-tags: -rm -f TAGS ID GTAGS GRTAGS GSYMS GPATH tags distdir: $(DISTFILES) @srcdirstrip=`echo "$(srcdir)" | sed 's/[].[^$$\\*]/\\\\&/g'`; \ topsrcdirstrip=`echo "$(top_srcdir)" | sed 's/[].[^$$\\*]/\\\\&/g'`; \ list='$(DISTFILES)'; \ dist_files=`for file in $$list; do echo $$file; done | \ sed -e "s|^$$srcdirstrip/||;t" \ -e "s|^$$topsrcdirstrip/|$(top_builddir)/|;t"`; \ case $$dist_files in \ */*) $(MKDIR_P) `echo "$$dist_files" | \ sed '/\//!d;s|^|$(distdir)/|;s,/[^/]*$$,,' | \ sort -u` ;; \ esac; \ for file in $$dist_files; do \ if test -f $$file || test -d $$file; then d=.; else d=$(srcdir); fi; \ if test -d $$d/$$file; then \ dir=`echo "/$$file" | sed -e 's,/[^/]*$$,,'`; \ if test -d "$(distdir)/$$file"; then \ find "$(distdir)/$$file" -type d ! -perm -700 -exec chmod u+rwx {} \;; \ fi; \ if test -d $(srcdir)/$$file && test $$d != $(srcdir); then \ cp -fpR $(srcdir)/$$file "$(distdir)$$dir" || exit 1; \ find "$(distdir)/$$file" -type d ! -perm -700 -exec chmod u+rwx {} \;; \ fi; \ cp -fpR $$d/$$file "$(distdir)$$dir" || exit 1; \ else \ test -f "$(distdir)/$$file" \ || cp -p $$d/$$file "$(distdir)/$$file" \ || exit 1; \ fi; \ done @list='$(DIST_SUBDIRS)'; for subdir in $$list; do \ if test "$$subdir" = .; then :; else \ $(am__make_dryrun) \ || test -d "$(distdir)/$$subdir" \ || $(MKDIR_P) "$(distdir)/$$subdir" \ || exit 1; \ dir1=$$subdir; dir2="$(distdir)/$$subdir"; \ $(am__relativize); \ new_distdir=$$reldir; \ dir1=$$subdir; dir2="$(top_distdir)"; \ $(am__relativize); \ new_top_distdir=$$reldir; \ echo " (cd $$subdir && $(MAKE) $(AM_MAKEFLAGS) top_distdir="$$new_top_distdir" distdir="$$new_distdir" \\"; \ echo " am__remove_distdir=: am__skip_length_check=: am__skip_mode_fix=: distdir)"; \ ($(am__cd) $$subdir && \ $(MAKE) $(AM_MAKEFLAGS) \ top_distdir="$$new_top_distdir" \ distdir="$$new_distdir" \ am__remove_distdir=: \ am__skip_length_check=: \ am__skip_mode_fix=: \ distdir) \ || exit 1; \ fi; \ done check-am: all-am check: check-recursive all-am: Makefile installdirs: installdirs-recursive installdirs-am: install: install-recursive install-exec: install-exec-recursive install-data: install-data-recursive uninstall: uninstall-recursive install-am: all-am @$(MAKE) $(AM_MAKEFLAGS) install-exec-am install-data-am installcheck: installcheck-recursive install-strip: if test -z '$(STRIP)'; then \ $(MAKE) $(AM_MAKEFLAGS) INSTALL_PROGRAM="$(INSTALL_STRIP_PROGRAM)" \ install_sh_PROGRAM="$(INSTALL_STRIP_PROGRAM)" INSTALL_STRIP_FLAG=-s \ install; \ else \ $(MAKE) $(AM_MAKEFLAGS) INSTALL_PROGRAM="$(INSTALL_STRIP_PROGRAM)" \ install_sh_PROGRAM="$(INSTALL_STRIP_PROGRAM)" INSTALL_STRIP_FLAG=-s \ "INSTALL_PROGRAM_ENV=STRIPPROG='$(STRIP)'" install; \ fi mostlyclean-generic: clean-generic: distclean-generic: -test -z "$(CONFIG_CLEAN_FILES)" || rm -f $(CONFIG_CLEAN_FILES) -test . = "$(srcdir)" || test -z "$(CONFIG_CLEAN_VPATH_FILES)" || rm -f $(CONFIG_CLEAN_VPATH_FILES) maintainer-clean-generic: @echo "This command is intended for maintainers to use" @echo "it deletes files that may require special tools to rebuild." clean: clean-recursive clean-am: clean-generic clean-libtool mostlyclean-am distclean: distclean-recursive -rm -f Makefile distclean-am: clean-am distclean-generic distclean-tags dvi: dvi-recursive dvi-am: html: html-recursive html-am: info: info-recursive info-am: install-data-am: install-dvi: install-dvi-recursive install-dvi-am: install-exec-am: install-html: install-html-recursive install-html-am: install-info: install-info-recursive install-info-am: install-man: install-pdf: install-pdf-recursive install-pdf-am: install-ps: install-ps-recursive install-ps-am: installcheck-am: maintainer-clean: maintainer-clean-recursive -rm -f Makefile maintainer-clean-am: distclean-am maintainer-clean-generic mostlyclean: mostlyclean-recursive mostlyclean-am: mostlyclean-generic mostlyclean-libtool pdf: pdf-recursive pdf-am: ps: ps-recursive ps-am: uninstall-am: .MAKE: $(RECURSIVE_CLEAN_TARGETS) $(RECURSIVE_TARGETS) ctags-recursive \ install-am install-strip tags-recursive .PHONY: $(RECURSIVE_CLEAN_TARGETS) $(RECURSIVE_TARGETS) CTAGS GTAGS \ all all-am check check-am clean clean-generic clean-libtool \ ctags ctags-recursive distclean distclean-generic \ distclean-libtool distclean-tags distdir dvi dvi-am html \ html-am info info-am install install-am install-data \ install-data-am install-dvi install-dvi-am install-exec \ install-exec-am install-html install-html-am install-info \ install-info-am install-man install-pdf install-pdf-am \ install-ps install-ps-am install-strip installcheck \ installcheck-am installdirs installdirs-am maintainer-clean \ maintainer-clean-generic mostlyclean mostlyclean-generic \ mostlyclean-libtool pdf pdf-am ps ps-am tags tags-recursive \ uninstall uninstall-am # Tell versions [3.59,3.63) of GNU make to not export all variables. # Otherwise a system limit (for SysV at least) may be exceeded. .NOEXPORT: guile-gnome-platform-2.16.2/defs/gnome/defs/0000755000175000017500000000000011752546500021140 5ustar00wingowingo00000000000000guile-gnome-platform-2.16.2/defs/gnome/defs/libgnomecanvas.defs0000644000175000017500000005313411670374302024777 0ustar00wingowingo00000000000000;; -*- scheme -*- (include "libgnomecanvas-types.defs") (include overrides) ;; From /opt/gnome2/include/libgnomecanvas-2.0/libgnomecanvas/gnome-canvas-bpath.h (define-function gnome_canvas_bpath_get_type (c-name "gnome_canvas_bpath_get_type") (return-type "GType") ) ;; From /opt/gnome2/include/libgnomecanvas-2.0/libgnomecanvas/gnome-canvas-clipgroup.h (define-function gnome_canvas_clipgroup_get_type (c-name "gnome_canvas_clipgroup_get_type") (return-type "GType") ) ;; From /opt/gnome2/include/libgnomecanvas-2.0/libgnomecanvas/gnome-canvas.h (define-function gnome_canvas_item_get_type (c-name "gnome_canvas_item_get_type") (return-type "GType") ) (define-function gnome_canvas_item_new (c-name "gnome_canvas_item_new") (is-constructor-of "GnomeCanvasItem") (return-type "GnomeCanvasItem*") (parameters '("GnomeCanvasGroup*" "parent") '("GType" "type") '("const-gchar*" "first_arg_name") ) (varargs #t) ) (define-method construct (of-object "GnomeCanvasItem") (c-name "gnome_canvas_item_construct") (return-type "none") (parameters '("GnomeCanvasGroup*" "parent") '("const-gchar*" "first_arg_name") '("va_list" "args") ) ) (define-method set (of-object "GnomeCanvasItem") (c-name "gnome_canvas_item_set") (return-type "none") (parameters '("const-gchar*" "first_arg_name") ) (varargs #t) ) (define-method set_valist (of-object "GnomeCanvasItem") (c-name "gnome_canvas_item_set_valist") (return-type "none") (parameters '("const-gchar*" "first_arg_name") '("va_list" "args") ) ) (define-method move (of-object "GnomeCanvasItem") (c-name "gnome_canvas_item_move") (return-type "none") (parameters '("double" "dx") '("double" "dy") ) ) (define-method affine_relative (of-object "GnomeCanvasItem") (c-name "gnome_canvas_item_affine_relative") (return-type "none") (parameters '("const-double" "affine[6]") ) ) (define-method affine_absolute (of-object "GnomeCanvasItem") (c-name "gnome_canvas_item_affine_absolute") (return-type "none") (parameters '("const-double" "affine[6]") ) ) (define-method raise (of-object "GnomeCanvasItem") (c-name "gnome_canvas_item_raise") (return-type "none") (parameters '("int" "positions") ) ) (define-method lower (of-object "GnomeCanvasItem") (c-name "gnome_canvas_item_lower") (return-type "none") (parameters '("int" "positions") ) ) (define-method raise_to_top (of-object "GnomeCanvasItem") (c-name "gnome_canvas_item_raise_to_top") (return-type "none") ) (define-method lower_to_bottom (of-object "GnomeCanvasItem") (c-name "gnome_canvas_item_lower_to_bottom") (return-type "none") ) (define-method show (of-object "GnomeCanvasItem") (c-name "gnome_canvas_item_show") (return-type "none") ) (define-method hide (of-object "GnomeCanvasItem") (c-name "gnome_canvas_item_hide") (return-type "none") ) (define-method grab (of-object "GnomeCanvasItem") (c-name "gnome_canvas_item_grab") (return-type "int") (parameters '("unsigned-int" "event_mask") '("GdkCursor*" "cursor") '("guint32" "etime") ) ) (define-method ungrab (of-object "GnomeCanvasItem") (c-name "gnome_canvas_item_ungrab") (return-type "none") (parameters '("guint32" "etime") ) ) (define-method w2i (of-object "GnomeCanvasItem") (c-name "gnome_canvas_item_w2i") (return-type "none") (parameters '("double*" "x") '("double*" "y") ) ) (define-method i2w (of-object "GnomeCanvasItem") (c-name "gnome_canvas_item_i2w") (return-type "none") (parameters '("double*" "x") '("double*" "y") ) ) (define-method i2w_affine (of-object "GnomeCanvasItem") (c-name "gnome_canvas_item_i2w_affine") (return-type "none") (parameters '("double" "affine[6]") ) ) (define-method i2c_affine (of-object "GnomeCanvasItem") (c-name "gnome_canvas_item_i2c_affine") (return-type "none") (parameters '("double" "affine[6]") ) ) (define-method reparent (of-object "GnomeCanvasItem") (c-name "gnome_canvas_item_reparent") (return-type "none") (parameters '("GnomeCanvasGroup*" "new_group") ) ) (define-method grab_focus (of-object "GnomeCanvasItem") (c-name "gnome_canvas_item_grab_focus") (return-type "none") ) (define-method get_bounds (of-object "GnomeCanvasItem") (c-name "gnome_canvas_item_get_bounds") (return-type "none") (parameters '("double*" "x1") '("double*" "y1") '("double*" "x2") '("double*" "y2") ) ) (define-method request_update (of-object "GnomeCanvasItem") (c-name "gnome_canvas_item_request_update") (return-type "none") ) (define-function gnome_canvas_group_get_type (c-name "gnome_canvas_group_get_type") (return-type "GType") ) (define-function gnome_canvas_get_type (c-name "gnome_canvas_get_type") (return-type "GType") ) (define-function gnome_canvas_new (c-name "gnome_canvas_new") (is-constructor-of "GnomeCanvas") (return-type "GtkWidget*") ) (define-function gnome_canvas_new_aa (c-name "gnome_canvas_new_aa") (return-type "GtkWidget*") ) (define-method root (of-object "GnomeCanvas") (c-name "gnome_canvas_root") (return-type "GnomeCanvasGroup*") ) (define-method set_scroll_region (of-object "GnomeCanvas") (c-name "gnome_canvas_set_scroll_region") (return-type "none") (parameters '("double" "x1") '("double" "y1") '("double" "x2") '("double" "y2") ) ) (define-method get_scroll_region (of-object "GnomeCanvas") (c-name "gnome_canvas_get_scroll_region") (return-type "none") (parameters '("double*" "x1") '("double*" "y1") '("double*" "x2") '("double*" "y2") ) ) (define-method set_center_scroll_region (of-object "GnomeCanvas") (c-name "gnome_canvas_set_center_scroll_region") (return-type "none") (parameters '("gboolean" "center_scroll_region") ) ) (define-method get_center_scroll_region (of-object "GnomeCanvas") (c-name "gnome_canvas_get_center_scroll_region") (return-type "gboolean") ) (define-method set_pixels_per_unit (of-object "GnomeCanvas") (c-name "gnome_canvas_set_pixels_per_unit") (return-type "none") (parameters '("double" "n") ) ) (define-method scroll_to (of-object "GnomeCanvas") (c-name "gnome_canvas_scroll_to") (return-type "none") (parameters '("int" "cx") '("int" "cy") ) ) (define-method get_scroll_offsets (of-object "GnomeCanvas") (c-name "gnome_canvas_get_scroll_offsets") (return-type "none") (parameters '("int*" "cx") '("int*" "cy") ) ) (define-method update_now (of-object "GnomeCanvas") (c-name "gnome_canvas_update_now") (return-type "none") ) (define-method get_item_at (of-object "GnomeCanvas") (c-name "gnome_canvas_get_item_at") (return-type "GnomeCanvasItem*") (parameters '("double" "x") '("double" "y") ) ) (define-method request_redraw_uta (of-object "GnomeCanvas") (c-name "gnome_canvas_request_redraw_uta") (return-type "none") (parameters '("ArtUta*" "uta") ) ) (define-method request_redraw (of-object "GnomeCanvas") (c-name "gnome_canvas_request_redraw") (return-type "none") (parameters '("int" "x1") '("int" "y1") '("int" "x2") '("int" "y2") ) ) (define-method w2c_affine (of-object "GnomeCanvas") (c-name "gnome_canvas_w2c_affine") (return-type "none") (parameters '("double" "affine[6]") ) ) (define-method w2c (of-object "GnomeCanvas") (c-name "gnome_canvas_w2c") (return-type "none") (parameters '("double" "wx") '("double" "wy") '("int*" "cx") '("int*" "cy") ) ) (define-method w2c_d (of-object "GnomeCanvas") (c-name "gnome_canvas_w2c_d") (return-type "none") (parameters '("double" "wx") '("double" "wy") '("double*" "cx") '("double*" "cy") ) ) (define-method c2w (of-object "GnomeCanvas") (c-name "gnome_canvas_c2w") (return-type "none") (parameters '("int" "cx") '("int" "cy") '("double*" "wx") '("double*" "wy") ) ) (define-method window_to_world (of-object "GnomeCanvas") (c-name "gnome_canvas_window_to_world") (return-type "none") (parameters '("double" "winx") '("double" "winy") '("double*" "worldx") '("double*" "worldy") ) ) (define-method world_to_window (of-object "GnomeCanvas") (c-name "gnome_canvas_world_to_window") (return-type "none") (parameters '("double" "worldx") '("double" "worldy") '("double*" "winx") '("double*" "winy") ) ) (define-method get_color (of-object "GnomeCanvas") (c-name "gnome_canvas_get_color") (return-type "int") (parameters '("const-char*" "spec") '("GdkColor*" "color") ) ) (define-method get_color_pixel (of-object "GnomeCanvas") (c-name "gnome_canvas_get_color_pixel") (return-type "gulong") (parameters '("guint" "rgba") ) ) (define-method set_stipple_origin (of-object "GnomeCanvas") (c-name "gnome_canvas_set_stipple_origin") (return-type "none") (parameters '("GdkGC*" "gc") ) ) (define-method set_dither (of-object "GnomeCanvas") (c-name "gnome_canvas_set_dither") (return-type "none") (parameters '("GdkRgbDither" "dither") ) ) (define-method get_dither (of-object "GnomeCanvas") (c-name "gnome_canvas_get_dither") (return-type "GdkRgbDither") ) ;; From /opt/gnome2/include/libgnomecanvas-2.0/libgnomecanvas/gnome-canvas-line.h (define-function gnome_canvas_line_get_type (c-name "gnome_canvas_line_get_type") (return-type "GType") ) ;; From /opt/gnome2/include/libgnomecanvas-2.0/libgnomecanvas/gnome-canvas-path-def.h (define-function gnome_canvas_path_def_get_type (c-name "gnome_canvas_path_def_get_type") (return-type "GType") ) (define-function gnome_canvas_path_def_new (c-name "gnome_canvas_path_def_new") (is-constructor-of "GnomeCanvasPathDef") (return-type "GnomeCanvasPathDef*") ) (define-function gnome_canvas_path_def_new_sized (c-name "gnome_canvas_path_def_new_sized") (return-type "GnomeCanvasPathDef*") (parameters '("gint" "length") ) ) (define-function gnome_canvas_path_def_new_from_bpath (c-name "gnome_canvas_path_def_new_from_bpath") (return-type "GnomeCanvasPathDef*") (parameters '("ArtBpath*" "bpath") ) ) (define-function gnome_canvas_path_def_new_from_static_bpath (c-name "gnome_canvas_path_def_new_from_static_bpath") (return-type "GnomeCanvasPathDef*") (parameters '("ArtBpath*" "bpath") ) ) (define-function gnome_canvas_path_def_new_from_foreign_bpath (c-name "gnome_canvas_path_def_new_from_foreign_bpath") (return-type "GnomeCanvasPathDef*") (parameters '("ArtBpath*" "bpath") ) ) (define-method ref (of-object "GnomeCanvasPathDef") (c-name "gnome_canvas_path_def_ref") (return-type "none") ) (define-method finish (of-object "GnomeCanvasPathDef") (c-name "gnome_canvas_path_def_finish") (return-type "none") ) (define-method ensure_space (of-object "GnomeCanvasPathDef") (c-name "gnome_canvas_path_def_ensure_space") (return-type "none") (parameters '("gint" "space") ) ) (define-method copy (of-object "GnomeCanvasPathDef") (c-name "gnome_canvas_path_def_copy") (return-type "none") (parameters '("const-GnomeCanvasPathDef*" "src") ) ) (define-method duplicate (of-object "GnomeCanvasPathDef") (c-name "gnome_canvas_path_def_duplicate") (return-type "GnomeCanvasPathDef*") ) (define-function gnome_canvas_path_def_concat (c-name "gnome_canvas_path_def_concat") (return-type "GnomeCanvasPathDef*") (parameters '("const-GSList*" "list") ) ) (define-method split (of-object "GnomeCanvasPathDef") (c-name "gnome_canvas_path_def_split") (return-type "GSList*") ) (define-method open_parts (of-object "GnomeCanvasPathDef") (c-name "gnome_canvas_path_def_open_parts") (return-type "GnomeCanvasPathDef*") ) (define-method closed_parts (of-object "GnomeCanvasPathDef") (c-name "gnome_canvas_path_def_closed_parts") (return-type "GnomeCanvasPathDef*") ) (define-method close_all (of-object "GnomeCanvasPathDef") (c-name "gnome_canvas_path_def_close_all") (return-type "GnomeCanvasPathDef*") ) (define-method unref (of-object "GnomeCanvasPathDef") (c-name "gnome_canvas_path_def_unref") (return-type "none") ) (define-method reset (of-object "GnomeCanvasPathDef") (c-name "gnome_canvas_path_def_reset") (return-type "none") ) (define-method moveto (of-object "GnomeCanvasPathDef") (c-name "gnome_canvas_path_def_moveto") (return-type "none") (parameters '("gdouble" "x") '("gdouble" "y") ) ) (define-method lineto (of-object "GnomeCanvasPathDef") (c-name "gnome_canvas_path_def_lineto") (return-type "none") (parameters '("gdouble" "x") '("gdouble" "y") ) ) (define-method lineto_moving (of-object "GnomeCanvasPathDef") (c-name "gnome_canvas_path_def_lineto_moving") (return-type "none") (parameters '("gdouble" "x") '("gdouble" "y") ) ) (define-method curveto (of-object "GnomeCanvasPathDef") (c-name "gnome_canvas_path_def_curveto") (return-type "none") (parameters '("gdouble" "x0") '("gdouble" "y0") '("gdouble" "x1") '("gdouble" "y1") '("gdouble" "x2") '("gdouble" "y2") ) ) (define-method closepath (of-object "GnomeCanvasPathDef") (c-name "gnome_canvas_path_def_closepath") (return-type "none") ) (define-method closepath_current (of-object "GnomeCanvasPathDef") (c-name "gnome_canvas_path_def_closepath_current") (return-type "none") ) (define-method bpath (of-object "GnomeCanvasPathDef") (c-name "gnome_canvas_path_def_bpath") (return-type "ArtBpath*") ) (define-method length (of-object "GnomeCanvasPathDef") (c-name "gnome_canvas_path_def_length") (return-type "gint") ) (define-method is_empty (of-object "GnomeCanvasPathDef") (c-name "gnome_canvas_path_def_is_empty") (return-type "gboolean") ) (define-method has_currentpoint (of-object "GnomeCanvasPathDef") (c-name "gnome_canvas_path_def_has_currentpoint") (return-type "gboolean") ) (define-method currentpoint (of-object "GnomeCanvasPathDef") (c-name "gnome_canvas_path_def_currentpoint") (return-type "none") (parameters '("ArtPoint*" "p") ) ) (define-method last_bpath (of-object "GnomeCanvasPathDef") (c-name "gnome_canvas_path_def_last_bpath") (return-type "ArtBpath*") ) (define-method first_bpath (of-object "GnomeCanvasPathDef") (c-name "gnome_canvas_path_def_first_bpath") (return-type "ArtBpath*") ) (define-method any_open (of-object "GnomeCanvasPathDef") (c-name "gnome_canvas_path_def_any_open") (return-type "gboolean") ) (define-method all_open (of-object "GnomeCanvasPathDef") (c-name "gnome_canvas_path_def_all_open") (return-type "gboolean") ) (define-method any_closed (of-object "GnomeCanvasPathDef") (c-name "gnome_canvas_path_def_any_closed") (return-type "gboolean") ) (define-method all_closed (of-object "GnomeCanvasPathDef") (c-name "gnome_canvas_path_def_all_closed") (return-type "gboolean") ) ;; From /opt/gnome2/include/libgnomecanvas-2.0/libgnomecanvas/gnome-canvas-pixbuf.h (define-function gnome_canvas_pixbuf_get_type (c-name "gnome_canvas_pixbuf_get_type") (return-type "GType") ) ;; From /opt/gnome2/include/libgnomecanvas-2.0/libgnomecanvas/gnome-canvas-polygon.h (define-function gnome_canvas_polygon_get_type (c-name "gnome_canvas_polygon_get_type") (return-type "GType") ) ;; From /opt/gnome2/include/libgnomecanvas-2.0/libgnomecanvas/gnome-canvas-rect-ellipse.h (define-function gnome_canvas_re_get_type (c-name "gnome_canvas_re_get_type") (return-type "GType") ) (define-function gnome_canvas_rect_get_type (c-name "gnome_canvas_rect_get_type") (return-type "GType") ) (define-function gnome_canvas_ellipse_get_type (c-name "gnome_canvas_ellipse_get_type") (return-type "GType") ) ;; From /opt/gnome2/include/libgnomecanvas-2.0/libgnomecanvas/gnome-canvas-rich-text.h (define-function gnome_canvas_rich_text_get_type (c-name "gnome_canvas_rich_text_get_type") (return-type "GType") ) (define-method cut_clipboard (of-object "GnomeCanvasRichText") (c-name "gnome_canvas_rich_text_cut_clipboard") (return-type "none") ) (define-method copy_clipboard (of-object "GnomeCanvasRichText") (c-name "gnome_canvas_rich_text_copy_clipboard") (return-type "none") ) (define-method paste_clipboard (of-object "GnomeCanvasRichText") (c-name "gnome_canvas_rich_text_paste_clipboard") (return-type "none") ) (define-method set_buffer (of-object "GnomeCanvasRichText") (c-name "gnome_canvas_rich_text_set_buffer") (return-type "none") (parameters '("GtkTextBuffer*" "buffer") ) ) (define-method get_buffer (of-object "GnomeCanvasRichText") (c-name "gnome_canvas_rich_text_get_buffer") (return-type "GtkTextBuffer*") ) (define-method get_iter_location (of-object "GnomeCanvasRichText") (c-name "gnome_canvas_rich_text_get_iter_location") (return-type "none") (parameters '("const-GtkTextIter*" "iter") '("GdkRectangle*" "location") ) ) (define-method get_iter_at_location (of-object "GnomeCanvasRichText") (c-name "gnome_canvas_rich_text_get_iter_at_location") (return-type "none") (parameters '("GtkTextIter*" "iter") '("gint" "x") '("gint" "y") ) ) ;; From /opt/gnome2/include/libgnomecanvas-2.0/libgnomecanvas/gnome-canvas-shape.h (define-method set_path_def (of-object "GnomeCanvasShape") (c-name "gnome_canvas_shape_set_path_def") (return-type "none") (parameters '("GnomeCanvasPathDef*" "def") ) ) (define-method get_path_def (of-object "GnomeCanvasShape") (c-name "gnome_canvas_shape_get_path_def") (return-type "GnomeCanvasPathDef*") ) (define-function gnome_canvas_shape_get_type (c-name "gnome_canvas_shape_get_type") (return-type "GType") ) ;; From /opt/gnome2/include/libgnomecanvas-2.0/libgnomecanvas/gnome-canvas-text.h (define-function gnome_canvas_text_get_type (c-name "gnome_canvas_text_get_type") (return-type "GType") ) ;; From /opt/gnome2/include/libgnomecanvas-2.0/libgnomecanvas/gnome-canvas-util.h (define-function gnome_canvas_points_new (c-name "gnome_canvas_points_new") (is-constructor-of "GnomeCanvasPoints") (return-type "GnomeCanvasPoints*") (parameters '("int" "num_points") ) ) (define-method ref (of-object "GnomeCanvasPoints") (c-name "gnome_canvas_points_ref") (return-type "GnomeCanvasPoints*") ) (define-method free (of-object "GnomeCanvasPoints") (c-name "gnome_canvas_points_free") (return-type "none") ) (define-function gnome_canvas_get_miter_points (c-name "gnome_canvas_get_miter_points") (return-type "int") (parameters '("double" "x1") '("double" "y1") '("double" "x2") '("double" "y2") '("double" "x3") '("double" "y3") '("double" "width") '("double*" "mx1") '("double*" "my1") '("double*" "mx2") '("double*" "my2") ) ) (define-function gnome_canvas_get_butt_points (c-name "gnome_canvas_get_butt_points") (return-type "none") (parameters '("double" "x1") '("double" "y1") '("double" "x2") '("double" "y2") '("double" "width") '("int" "project") '("double*" "bx1") '("double*" "by1") '("double*" "bx2") '("double*" "by2") ) ) (define-function gnome_canvas_polygon_to_point (c-name "gnome_canvas_polygon_to_point") (return-type "double") (parameters '("double*" "poly") '("int" "num_points") '("double" "x") '("double" "y") ) ) (define-function gnome_canvas_render_svp (c-name "gnome_canvas_render_svp") (return-type "none") (parameters '("GnomeCanvasBuf*" "buf") '("ArtSVP*" "svp") '("guint32" "rgba") ) ) (define-method update_svp (of-object "GnomeCanvas") (c-name "gnome_canvas_update_svp") (return-type "none") (parameters '("ArtSVP**" "p_svp") '("ArtSVP*" "new_svp") ) ) (define-method update_svp_clip (of-object "GnomeCanvas") (c-name "gnome_canvas_update_svp_clip") (return-type "none") (parameters '("ArtSVP**" "p_svp") '("ArtSVP*" "new_svp") '("ArtSVP*" "clip_svp") ) ) (define-method reset_bounds (of-object "GnomeCanvasItem") (c-name "gnome_canvas_item_reset_bounds") (return-type "none") ) (define-method update_svp (of-object "GnomeCanvasItem") (c-name "gnome_canvas_item_update_svp") (return-type "none") (parameters '("ArtSVP**" "p_svp") '("ArtSVP*" "new_svp") ) ) (define-method update_svp_clip (of-object "GnomeCanvasItem") (c-name "gnome_canvas_item_update_svp_clip") (return-type "none") (parameters '("ArtSVP**" "p_svp") '("ArtSVP*" "new_svp") '("ArtSVP*" "clip_svp") ) ) (define-method request_redraw_svp (of-object "GnomeCanvasItem") (c-name "gnome_canvas_item_request_redraw_svp") (return-type "none") (parameters '("const-ArtSVP*" "svp") ) ) (define-function gnome_canvas_update_bbox (c-name "gnome_canvas_update_bbox") (return-type "none") (parameters '("GnomeCanvasItem*" "item") '("int" "x1") '("int" "y1") '("int" "x2") '("int" "y2") ) ) (define-method ensure_buf (of-object "GnomeCanvasBuf") (c-name "gnome_canvas_buf_ensure_buf") (return-type "none") ) (define-function gnome_canvas_join_gdk_to_art (c-name "gnome_canvas_join_gdk_to_art") (return-type "ArtPathStrokeJoinType") (parameters '("GdkJoinStyle" "gdk_join") ) ) (define-function gnome_canvas_cap_gdk_to_art (c-name "gnome_canvas_cap_gdk_to_art") (return-type "ArtPathStrokeCapType") (parameters '("GdkCapStyle" "gdk_cap") ) ) ;; From /opt/gnome2/include/libgnomecanvas-2.0/libgnomecanvas/gnome-canvas-widget.h (define-function gnome_canvas_widget_get_type (c-name "gnome_canvas_widget_get_type") (return-type "GType") ) ;; From /opt/gnome2/include/libgnomecanvas-2.0/libgnomecanvas/libgnomecanvas.h (define-function gnome_canvas_points_get_type (c-name "gnome_canvas_points_get_type") (return-type "GType") ) guile-gnome-platform-2.16.2/defs/gnome/defs/libgnomeui-types.defs0000644000175000017500000002742711670374302025311 0ustar00wingowingo00000000000000;; -*- scheme -*- ;; Enumerations and flags ... (define-enum UIInfoType (in-module "Gnome") (c-name "GnomeUIInfoType") (gtype-id "GNOME_TYPE_UI_INFO_TYPE") (values '("endofinfo" "GNOME_APP_UI_ENDOFINFO") '("item" "GNOME_APP_UI_ITEM") '("toggleitem" "GNOME_APP_UI_TOGGLEITEM") '("radioitems" "GNOME_APP_UI_RADIOITEMS") '("subtree" "GNOME_APP_UI_SUBTREE") '("separator" "GNOME_APP_UI_SEPARATOR") '("help" "GNOME_APP_UI_HELP") '("builder-data" "GNOME_APP_UI_BUILDER_DATA") '("item-configurable" "GNOME_APP_UI_ITEM_CONFIGURABLE") '("subtree-stock" "GNOME_APP_UI_SUBTREE_STOCK") '("include" "GNOME_APP_UI_INCLUDE") ) ) (define-enum UIInfoConfigurableTypes (in-module "Gnome") (c-name "GnomeUIInfoConfigurableTypes") (gtype-id "GNOME_TYPE_UI_INFO_CONFIGURABLE_TYPES") (values '("new" "GNOME_APP_CONFIGURABLE_ITEM_NEW") '("open" "GNOME_APP_CONFIGURABLE_ITEM_OPEN") '("save" "GNOME_APP_CONFIGURABLE_ITEM_SAVE") '("save-as" "GNOME_APP_CONFIGURABLE_ITEM_SAVE_AS") '("revert" "GNOME_APP_CONFIGURABLE_ITEM_REVERT") '("print" "GNOME_APP_CONFIGURABLE_ITEM_PRINT") '("print-setup" "GNOME_APP_CONFIGURABLE_ITEM_PRINT_SETUP") '("close" "GNOME_APP_CONFIGURABLE_ITEM_CLOSE") '("quit" "GNOME_APP_CONFIGURABLE_ITEM_QUIT") '("cut" "GNOME_APP_CONFIGURABLE_ITEM_CUT") '("copy" "GNOME_APP_CONFIGURABLE_ITEM_COPY") '("paste" "GNOME_APP_CONFIGURABLE_ITEM_PASTE") '("clear" "GNOME_APP_CONFIGURABLE_ITEM_CLEAR") '("undo" "GNOME_APP_CONFIGURABLE_ITEM_UNDO") '("redo" "GNOME_APP_CONFIGURABLE_ITEM_REDO") '("find" "GNOME_APP_CONFIGURABLE_ITEM_FIND") '("find-again" "GNOME_APP_CONFIGURABLE_ITEM_FIND_AGAIN") '("replace" "GNOME_APP_CONFIGURABLE_ITEM_REPLACE") '("properties" "GNOME_APP_CONFIGURABLE_ITEM_PROPERTIES") '("preferences" "GNOME_APP_CONFIGURABLE_ITEM_PREFERENCES") '("about" "GNOME_APP_CONFIGURABLE_ITEM_ABOUT") '("select-all" "GNOME_APP_CONFIGURABLE_ITEM_SELECT_ALL") '("new-window" "GNOME_APP_CONFIGURABLE_ITEM_NEW_WINDOW") '("close-window" "GNOME_APP_CONFIGURABLE_ITEM_CLOSE_WINDOW") '("new-game" "GNOME_APP_CONFIGURABLE_ITEM_NEW_GAME") '("pause-game" "GNOME_APP_CONFIGURABLE_ITEM_PAUSE_GAME") '("restart-game" "GNOME_APP_CONFIGURABLE_ITEM_RESTART_GAME") '("undo-move" "GNOME_APP_CONFIGURABLE_ITEM_UNDO_MOVE") '("redo-move" "GNOME_APP_CONFIGURABLE_ITEM_REDO_MOVE") '("hint" "GNOME_APP_CONFIGURABLE_ITEM_HINT") '("scores" "GNOME_APP_CONFIGURABLE_ITEM_SCORES") '("end-game" "GNOME_APP_CONFIGURABLE_ITEM_END_GAME") ) ) (define-enum UIPixmapType (in-module "Gnome") (c-name "GnomeUIPixmapType") (gtype-id "GNOME_TYPE_UI_PIXMAP_TYPE") (values '("none" "GNOME_APP_PIXMAP_NONE") '("stock" "GNOME_APP_PIXMAP_STOCK") '("data" "GNOME_APP_PIXMAP_DATA") '("filename" "GNOME_APP_PIXMAP_FILENAME") ) ) (define-enum InteractStyle (in-module "Gnome") (c-name "GnomeInteractStyle") (gtype-id "GNOME_TYPE_INTERACT_STYLE") (values '("none" "GNOME_INTERACT_NONE") '("errors" "GNOME_INTERACT_ERRORS") '("any" "GNOME_INTERACT_ANY") ) ) (define-enum DialogType (in-module "Gnome") (c-name "GnomeDialogType") (gtype-id "GNOME_TYPE_DIALOG_TYPE") (values '("error" "GNOME_DIALOG_ERROR") '("normal" "GNOME_DIALOG_NORMAL") ) ) (define-enum SaveStyle (in-module "Gnome") (c-name "GnomeSaveStyle") (gtype-id "GNOME_TYPE_SAVE_STYLE") (values '("global" "GNOME_SAVE_GLOBAL") '("local" "GNOME_SAVE_LOCAL") '("both" "GNOME_SAVE_BOTH") ) ) (define-enum RestartStyle (in-module "Gnome") (c-name "GnomeRestartStyle") (gtype-id "GNOME_TYPE_RESTART_STYLE") (values '("if-running" "GNOME_RESTART_IF_RUNNING") '("anyway" "GNOME_RESTART_ANYWAY") '("immediately" "GNOME_RESTART_IMMEDIATELY") '("never" "GNOME_RESTART_NEVER") ) ) (define-enum ClientState (in-module "Gnome") (c-name "GnomeClientState") (gtype-id "GNOME_TYPE_CLIENT_STATE") (values '("idle" "GNOME_CLIENT_IDLE") '("saving-phase-1" "GNOME_CLIENT_SAVING_PHASE_1") '("waiting-for-phase-2" "GNOME_CLIENT_WAITING_FOR_PHASE_2") '("saving-phase-2" "GNOME_CLIENT_SAVING_PHASE_2") '("frozen" "GNOME_CLIENT_FROZEN") '("disconnected" "GNOME_CLIENT_DISCONNECTED") '("registering" "GNOME_CLIENT_REGISTERING") ) ) (define-flags ClientFlags (in-module "Gnome") (c-name "GnomeClientFlags") (gtype-id "GNOME_TYPE_CLIENT_FLAGS") (values '("is-connected=" "GNOME_CLIENT_IS_CONNECTED=") '("restarted" "GNOME_CLIENT_RESTARTED") '("restored" "GNOME_CLIENT_RESTORED") ) ) (define-flags DateEditFlags (in-module "Gnome") (c-name "GnomeDateEditFlags") (gtype-id "GNOME_TYPE_DATE_EDIT_FLAGS") (values '("show-time" "GNOME_DATE_EDIT_SHOW_TIME") '("24-hr" "GNOME_DATE_EDIT_24_HR") '("week-starts-on-monday" "GNOME_DATE_EDIT_WEEK_STARTS_ON_MONDAY") ) ) (define-enum EdgePosition (in-module "Gnome") (c-name "GnomeEdgePosition") (gtype-id "GNOME_TYPE_EDGE_POSITION") (values '("start" "GNOME_EDGE_START") '("finish" "GNOME_EDGE_FINISH") '("other" "GNOME_EDGE_OTHER") '("last" "GNOME_EDGE_LAST") ) ) (define-enum FontPickerMode (in-module "Gnome") (c-name "GnomeFontPickerMode") (gtype-id "GNOME_TYPE_FONT_PICKER_MODE") (values '("pixmap" "GNOME_FONT_PICKER_MODE_PIXMAP") '("font-info" "GNOME_FONT_PICKER_MODE_FONT_INFO") '("user-widget" "GNOME_FONT_PICKER_MODE_USER_WIDGET") '("unknown" "GNOME_FONT_PICKER_MODE_UNKNOWN") ) ) (define-enum IconListMode (in-module "Gnome") (c-name "GnomeIconListMode") (gtype-id "GNOME_TYPE_ICON_LIST_MODE") (values '("icons" "GNOME_ICON_LIST_ICONS") '("text-below" "GNOME_ICON_LIST_TEXT_BELOW") '("text-right" "GNOME_ICON_LIST_TEXT_RIGHT") ) ) (define-flags IconLookupFlags (in-module "Gnome") (c-name "GnomeIconLookupFlags") (gtype-id "GNOME_TYPE_ICON_LOOKUP_FLAGS") (values '("none" "GNOME_ICON_LOOKUP_FLAGS_NONE") '("embedding-text" "GNOME_ICON_LOOKUP_FLAGS_EMBEDDING_TEXT") '("show-small-images-as-themselves" "GNOME_ICON_LOOKUP_FLAGS_SHOW_SMALL_IMAGES_AS_THEMSELVES") '("allow-svg-as-themselves" "GNOME_ICON_LOOKUP_FLAGS_ALLOW_SVG_AS_THEMSELVES") ) ) (define-flags IconLookupResultFlags (in-module "Gnome") (c-name "GnomeIconLookupResultFlags") (gtype-id "GNOME_TYPE_ICON_LOOKUP_RESULT_FLAGS") (values '("none" "GNOME_ICON_LOOKUP_RESULT_FLAGS_NONE") '("thumbnail" "GNOME_ICON_LOOKUP_RESULT_FLAGS_THUMBNAIL") ) ) (define-enum MDIMode (in-module "Gnome") (c-name "GnomeMDIMode") (gtype-id "GNOME_TYPE_MDI_MODE") (values '("notebook" "GNOME_MDI_NOTEBOOK") '("toplevel" "GNOME_MDI_TOPLEVEL") '("modal" "GNOME_MDI_MODAL") '("default-mode" "GNOME_MDI_DEFAULT_MODE") ) ) (define-enum PasswordDialogRemember (in-module "Gnome") (c-name "GnomePasswordDialogRemember") (gtype-id "GNOME_TYPE_PASSWORD_DIALOG_REMEMBER") (values '("nothing" "GNOME_PASSWORD_DIALOG_REMEMBER_NOTHING") '("session" "GNOME_PASSWORD_DIALOG_REMEMBER_SESSION") '("forever" "GNOME_PASSWORD_DIALOG_REMEMBER_FOREVER") ) ) (define-enum ThemeFileParseError (in-module "Gnome") (c-name "GnomeThemeFileParseError") (gtype-id "GNOME_TYPE_THEME_FILE_PARSE_ERROR") (values '("syntax" "GNOME_THEME_FILE_PARSE_ERROR_INVALID_SYNTAX") '("escapes" "GNOME_THEME_FILE_PARSE_ERROR_INVALID_ESCAPES") '("chars" "GNOME_THEME_FILE_PARSE_ERROR_INVALID_CHARS") ) ) (define-enum ThumbnailSize (in-module "Gnome") (c-name "GnomeThumbnailSize") (gtype-id "GNOME_TYPE_THUMBNAIL_SIZE") (values '("normal" "GNOME_THUMBNAIL_SIZE_NORMAL") '("large" "GNOME_THUMBNAIL_SIZE_LARGE") ) ) (define-enum PreferencesType (in-module "Gnome") (c-name "GnomePreferencesType") (gtype-id "GNOME_TYPE_PREFERENCES_TYPE") (values '("never" "GNOME_PREFERENCES_NEVER") '("user" "GNOME_PREFERENCES_USER") '("always" "GNOME_PREFERENCES_ALWAYS") ) ) ;; -*- scheme -*- ; object definitions ... (define-object About (in-module "Gnome") (parent "GtkDialog") (c-name "GnomeAbout") (gtype-id "GNOME_TYPE_ABOUT") ) (define-object App (in-module "Gnome") (parent "GtkWindow") (c-name "GnomeApp") (gtype-id "GNOME_TYPE_APP") ) (define-object AppBar (in-module "Gnome") (parent "GtkHBox") (c-name "GnomeAppBar") (gtype-id "GNOME_TYPE_APP_BAR") ) (define-object Client (in-module "Gnome") (parent "GtkObject") (c-name "GnomeClient") (gtype-id "GNOME_TYPE_CLIENT") ) (define-object ColorPicker (in-module "Gnome") (parent "GtkButton") (c-name "GnomeColorPicker") (gtype-id "GNOME_TYPE_COLOR_PICKER") ) (define-object DateEdit (in-module "Gnome") (parent "GtkHBox") (c-name "GnomeDateEdit") (gtype-id "GNOME_TYPE_DATE_EDIT") ) (define-object Dialog (in-module "Gnome") (parent "GtkWindow") (c-name "GnomeDialog") (gtype-id "GNOME_TYPE_DIALOG") ) (define-object Druid (in-module "Gnome") (parent "GtkContainer") (c-name "GnomeDruid") (gtype-id "GNOME_TYPE_DRUID") ) (define-object DruidPage (in-module "Gnome") (parent "GtkBin") (c-name "GnomeDruidPage") (gtype-id "GNOME_TYPE_DRUID_PAGE") ) (define-object DruidPageEdge (in-module "Gnome") (parent "GnomeDruidPage") (c-name "GnomeDruidPageEdge") (gtype-id "GNOME_TYPE_DRUID_PAGE_EDGE") ) (define-object DruidPageStandard (in-module "Gnome") (parent "GnomeDruidPage") (c-name "GnomeDruidPageStandard") (gtype-id "GNOME_TYPE_DRUID_PAGE_STANDARD") ) (define-object Entry (in-module "Gnome") (parent "GtkCombo") (c-name "GnomeEntry") (gtype-id "GNOME_TYPE_ENTRY") ) (define-object FileEntry (in-module "Gnome") (parent "GtkVBox") (c-name "GnomeFileEntry") (gtype-id "GNOME_TYPE_FILE_ENTRY") ) (define-object FontPicker (in-module "Gnome") (parent "GtkButton") (c-name "GnomeFontPicker") (gtype-id "GNOME_TYPE_FONT_PICKER") ) (define-object HRef (in-module "Gnome") (parent "GtkButton") (c-name "GnomeHRef") (gtype-id "GNOME_TYPE_HREF") ) (define-object IconEntry (in-module "Gnome") (parent "GtkVBox") (c-name "GnomeIconEntry") (gtype-id "GNOME_TYPE_ICON_ENTRY") ) (define-object IconList (in-module "Gnome") (parent "GnomeCanvas") (c-name "GnomeIconList") (gtype-id "GNOME_TYPE_ICON_LIST") ) (define-object IconSelection (in-module "Gnome") (parent "GtkVBox") (c-name "GnomeIconSelection") (gtype-id "GNOME_TYPE_ICON_SELECTION") ) (define-object IconTextItem (in-module "Gnome") (parent "GnomeCanvasItem") (c-name "GnomeIconTextItem") (gtype-id "GNOME_TYPE_ICON_TEXT_ITEM") ) (define-object MDI (in-module "Gnome") (parent "GtkObject") (c-name "GnomeMDI") (gtype-id "GNOME_TYPE_MDI") ) (define-object MDIChild (in-module "Gnome") (parent "GtkObject") (c-name "GnomeMDIChild") (gtype-id "GNOME_TYPE_MDI_CHILD") ) (define-object MDIGenericChild (in-module "Gnome") (parent "GnomeMDIChild") (c-name "GnomeMDIGenericChild") (gtype-id "GNOME_TYPE_MDI_GENERIC_CHILD") ) (define-object MessageBox (in-module "Gnome") (parent "GnomeDialog") (c-name "GnomeMessageBox") (gtype-id "GNOME_TYPE_MESSAGE_BOX") ) (define-object PasswordDialog (in-module "Gnome") (parent "GtkDialog") (c-name "GnomePasswordDialog") (gtype-id "GNOME_TYPE_PASSWORD_DIALOG") ) (define-object Pixmap (in-module "Gnome") (parent "GtkImage") (c-name "GnomePixmap") (gtype-id "GNOME_TYPE_PIXMAP") ) (define-object PixmapEntry (in-module "Gnome") (parent "GnomeFileEntry") (c-name "GnomePixmapEntry") (gtype-id "GNOME_TYPE_PIXMAP_ENTRY") ) (define-object PropertyBox (in-module "Gnome") (parent "GnomeDialog") (c-name "GnomePropertyBox") (gtype-id "GNOME_TYPE_PROPERTY_BOX") ) (define-object Scores (in-module "Gnome") (parent "GtkDialog") (c-name "GnomeScores") (gtype-id "GNOME_TYPE_SCORES") ) (define-object ThumbnailFactory (in-module "Gnome") (parent "GObject") (c-name "GnomeThumbnailFactory") (gtype-id "GNOME_TYPE_THUMBNAIL_FACTORY") ) guile-gnome-platform-2.16.2/defs/gnome/defs/pangocairo.defs0000644000175000017500000000770111670374302024130 0ustar00wingowingo00000000000000;; -*- scheme -*- (include "common-ignores.defs") (include "pangocairo-types.defs") (include overrides) ;; From /usr/include/pango-1.0/pango/pangocairo.h (define-function pango_cairo_font_map_get_type (c-name "pango_cairo_font_map_get_type") (return-type "GType") ) (define-function pango_cairo_font_map_new (c-name "pango_cairo_font_map_new") (is-constructor-of "PangoCairoFontMap") (return-type "PangoFontMap*") ) (define-function pango_cairo_font_map_get_default (c-name "pango_cairo_font_map_get_default") (return-type "PangoFontMap*") ) (define-method set_resolution (of-object "PangoCairoFontMap") (c-name "pango_cairo_font_map_set_resolution") (return-type "none") (parameters '("double" "dpi") ) ) (define-method get_resolution (of-object "PangoCairoFontMap") (c-name "pango_cairo_font_map_get_resolution") (return-type "double") ) (define-method create_context (of-object "PangoCairoFontMap") (c-name "pango_cairo_font_map_create_context") (return-type "PangoContext*") ) (define-function pango_cairo_update_context (c-name "pango_cairo_update_context") (return-type "none") (parameters '("cairo_t*" "cr") '("PangoContext*" "context") ) ) (define-function pango_cairo_context_set_font_options (c-name "pango_cairo_context_set_font_options") (return-type "none") (parameters '("PangoContext*" "context") '("const-cairo_font_options_t*" "options") ) ) (define-function pango_cairo_context_get_font_options (c-name "pango_cairo_context_get_font_options") (return-type "const-cairo_font_options_t*") (parameters '("PangoContext*" "context") ) ) (define-function pango_cairo_context_set_resolution (c-name "pango_cairo_context_set_resolution") (return-type "none") (parameters '("PangoContext*" "context") '("double" "dpi") ) ) (define-function pango_cairo_context_get_resolution (c-name "pango_cairo_context_get_resolution") (return-type "double") (parameters '("PangoContext*" "context") ) ) (define-function pango_cairo_create_layout (c-name "pango_cairo_create_layout") (return-type "PangoLayout*") (parameters '("cairo_t*" "cr") ) ) (define-function pango_cairo_update_layout (c-name "pango_cairo_update_layout") (return-type "none") (parameters '("cairo_t*" "cr") '("PangoLayout*" "layout") ) ) (define-function pango_cairo_show_glyph_string (c-name "pango_cairo_show_glyph_string") (return-type "none") (parameters '("cairo_t*" "cr") '("PangoFont*" "font") '("PangoGlyphString*" "glyphs") ) ) (define-function pango_cairo_show_layout_line (c-name "pango_cairo_show_layout_line") (return-type "none") (parameters '("cairo_t*" "cr") '("PangoLayoutLine*" "line") ) ) (define-function pango_cairo_show_layout (c-name "pango_cairo_show_layout") (return-type "none") (parameters '("cairo_t*" "cr") '("PangoLayout*" "layout") ) ) (define-function pango_cairo_show_error_underline (c-name "pango_cairo_show_error_underline") (return-type "none") (parameters '("cairo_t*" "cr") '("double" "x") '("double" "y") '("double" "width") '("double" "height") ) ) (define-function pango_cairo_glyph_string_path (c-name "pango_cairo_glyph_string_path") (return-type "none") (parameters '("cairo_t*" "cr") '("PangoFont*" "font") '("PangoGlyphString*" "glyphs") ) ) (define-function pango_cairo_layout_line_path (c-name "pango_cairo_layout_line_path") (return-type "none") (parameters '("cairo_t*" "cr") '("PangoLayoutLine*" "line") ) ) (define-function pango_cairo_layout_path (c-name "pango_cairo_layout_path") (return-type "none") (parameters '("cairo_t*" "cr") '("PangoLayout*" "layout") ) ) (define-function pango_cairo_error_underline_path (c-name "pango_cairo_error_underline_path") (return-type "none") (parameters '("cairo_t*" "cr") '("double" "x") '("double" "y") '("double" "width") '("double" "height") ) ) guile-gnome-platform-2.16.2/defs/gnome/defs/bonoboui.defs0000644000175000017500000015507111670374302023626 0ustar00wingowingo00000000000000;; -*- scheme -*- (include "bonoboui-types.defs") ;; From /home/james/cvs/gnome2/libbonoboui/bonobo/bonobo-canvas-component.h (define-function bonobo_canvas_component_get_type (c-name "bonobo_canvas_component_get_type") (return-type "GType") ) (define-method construct (of-object "BonoboCanvasComponent") (c-name "bonobo_canvas_component_construct") (return-type "BonoboCanvasComponent*") (parameters '("GnomeCanvasItem*" "item") ) ) (define-function bonobo_canvas_component_new (c-name "bonobo_canvas_component_new") (is-constructor-of BonoboCanvasComponent) (return-type "BonoboCanvasComponent*") (parameters '("GnomeCanvasItem*" "item") ) ) (define-method get_item (of-object "BonoboCanvasComponent") (c-name "bonobo_canvas_component_get_item") (return-type "GnomeCanvasItem*") ) (define-method grab (of-object "BonoboCanvasComponent") (c-name "bonobo_canvas_component_grab") (return-type "none") (parameters '("guint" "mask") '("GdkCursor*" "cursor") '("guint32" "time") '("CORBA_Environment*" "opt_ev") ) ) (define-method ungrab (of-object "BonoboCanvasComponent") (c-name "bonobo_canvas_component_ungrab") (return-type "none") (parameters '("guint32" "time") '("CORBA_Environment*" "opt_ev") ) ) (define-method get_ui_container (of-object "BonoboCanvasComponent") (c-name "bonobo_canvas_component_get_ui_container") (return-type "Bonobo_UIContainer") (caller-owns-return #f) (parameters '("CORBA_Environment*" "opt_ev") ) ) (define-function bonobo_canvas_new (c-name "bonobo_canvas_new") (return-type "GnomeCanvas*") (parameters '("gboolean" "is_aa") '("Bonobo_Canvas_ComponentProxy" "proxy") ) ) ;; From /home/james/cvs/gnome2/libbonoboui/bonobo/bonobo-canvas-item.h (define-function bonobo_canvas_item_get_type (c-name "bonobo_canvas_item_get_type") (return-type "GtkType") ) (define-method set_bounds (of-object "BonoboCanvasItem") (c-name "bonobo_canvas_item_set_bounds") (return-type "none") (parameters '("double" "x1") '("double" "y1") '("double" "x2") '("double" "y2") ) ) ;; From /home/james/cvs/gnome2/libbonoboui/bonobo/bonobo-control-frame.h (define-function bonobo_control_frame_get_type (c-name "bonobo_control_frame_get_type") (return-type "GType") ) (define-method construct (of-object "BonoboControlFrame") (c-name "bonobo_control_frame_construct") (return-type "BonoboControlFrame*") (parameters '("Bonobo_UIContainer" "ui_container") '("CORBA_Environment*" "ev") ) ) (define-function bonobo_control_frame_new (c-name "bonobo_control_frame_new") (is-constructor-of BonoboControlFrame) (return-type "BonoboControlFrame*") (parameters '("Bonobo_UIContainer" "ui_container") ) ) (define-method get_widget (of-object "BonoboControlFrame") (c-name "bonobo_control_frame_get_widget") (return-type "GtkWidget*") ) (define-method set_ui_container (of-object "BonoboControlFrame") (c-name "bonobo_control_frame_set_ui_container") (return-type "none") (parameters '("Bonobo_UIContainer" "uic") '("CORBA_Environment*" "ev") ) ) (define-method control_activate (of-object "BonoboControlFrame") (c-name "bonobo_control_frame_control_activate") (return-type "none") ) (define-method control_deactivate (of-object "BonoboControlFrame") (c-name "bonobo_control_frame_control_deactivate") (return-type "none") ) (define-method set_autoactivate (of-object "BonoboControlFrame") (c-name "bonobo_control_frame_set_autoactivate") (return-type "none") (parameters '("gboolean" "autoactivate") ) ) (define-method get_autoactivate (of-object "BonoboControlFrame") (c-name "bonobo_control_frame_get_autoactivate") (return-type "gboolean") ) (define-method get_control_property_bag (of-object "BonoboControlFrame") (c-name "bonobo_control_frame_get_control_property_bag") (return-type "Bonobo_PropertyBag") (caller-owns-return #f) (parameters '("CORBA_Environment*" "opt_ev") ) ) (define-method set_propbag (of-object "BonoboControlFrame") (c-name "bonobo_control_frame_set_propbag") (return-type "none") (parameters '("BonoboPropertyBag*" "propbag") ) ) (define-method get_propbag (of-object "BonoboControlFrame") (c-name "bonobo_control_frame_get_propbag") (return-type "BonoboPropertyBag*") ) (define-method control_set_state (of-object "BonoboControlFrame") (c-name "bonobo_control_frame_control_set_state") (return-type "none") (parameters '("GtkStateType" "state") ) ) (define-method set_autostate (of-object "BonoboControlFrame") (c-name "bonobo_control_frame_set_autostate") (return-type "none") (parameters '("gboolean" "autostate") ) ) (define-method get_autostate (of-object "BonoboControlFrame") (c-name "bonobo_control_frame_get_autostate") (return-type "gboolean") ) (define-method bind_to_control (of-object "BonoboControlFrame") (c-name "bonobo_control_frame_bind_to_control") (return-type "none") (parameters '("Bonobo_Control" "control") '("CORBA_Environment*" "opt_ev") ) ) (define-method get_control (of-object "BonoboControlFrame") (c-name "bonobo_control_frame_get_control") (return-type "Bonobo_Control") (caller-owns-return #f) ) (define-method get_ui_container (of-object "BonoboControlFrame") (c-name "bonobo_control_frame_get_ui_container") (return-type "Bonobo_UIContainer") (caller-owns-return #f) ) (define-method get_popup_component (of-object "BonoboControlFrame") (c-name "bonobo_control_frame_get_popup_component") (return-type "BonoboUIComponent*") (parameters '("CORBA_Environment*" "opt_ev") ) ) ;; From /home/james/cvs/gnome2/libbonoboui/bonobo/bonobo-control.h (define-function bonobo_control_new (c-name "bonobo_control_new") (is-constructor-of BonoboControl) (return-type "BonoboControl*") (parameters '("GtkWidget*" "widget") ) ) (define-method get_widget (of-object "BonoboControl") (c-name "bonobo_control_get_widget") (return-type "GtkWidget*") ) (define-method set_automerge (of-object "BonoboControl") (c-name "bonobo_control_set_automerge") (return-type "none") (parameters '("gboolean" "automerge") ) ) (define-method get_automerge (of-object "BonoboControl") (c-name "bonobo_control_get_automerge") (return-type "gboolean") ) (define-method set_property (of-object "BonoboControl") (c-name "bonobo_control_set_property") (return-type "none") (parameters '("CORBA_Environment*" "opt_ev") '("const-char*" "first_prop") ) (varargs #t) ) (define-method get_property (of-object "BonoboControl") (c-name "bonobo_control_get_property") (return-type "none") (parameters '("CORBA_Environment*" "opt_ev") '("const-char*" "first_prop") ) (varargs #t) ) (define-method set_transient_for (of-object "BonoboControl") (c-name "bonobo_control_set_transient_for") (return-type "none") (parameters '("GtkWindow*" "window") '("CORBA_Environment*" "opt_ev") ) ) (define-method unset_transient_for (of-object "BonoboControl") (c-name "bonobo_control_unset_transient_for") (return-type "none") (parameters '("GtkWindow*" "window") '("CORBA_Environment*" "opt_ev") ) ) (define-function bonobo_control_get_type (c-name "bonobo_control_get_type") (return-type "GType") ) (define-method construct (of-object "BonoboControl") (c-name "bonobo_control_construct") (return-type "BonoboControl*") (parameters '("GtkWidget*" "widget") ) ) (define-method get_ui_component (of-object "BonoboControl") (c-name "bonobo_control_get_ui_component") (return-type "BonoboUIComponent*") ) (define-method set_ui_component (of-object "BonoboControl") (c-name "bonobo_control_set_ui_component") (return-type "none") (parameters '("BonoboUIComponent*" "component") ) ) (define-method get_remote_ui_container (of-object "BonoboControl") (c-name "bonobo_control_get_remote_ui_container") (return-type "Bonobo_UIContainer") (caller-owns-return #f) (parameters '("CORBA_Environment*" "opt_ev") ) ) (define-method get_control_frame (of-object "BonoboControl") (c-name "bonobo_control_get_control_frame") (return-type "Bonobo_ControlFrame") (caller-owns-return #f) (parameters '("CORBA_Environment*" "opt_ev") ) ) (define-method set_properties (of-object "BonoboControl") (c-name "bonobo_control_set_properties") (return-type "none") (parameters '("Bonobo_PropertyBag" "pb") '("CORBA_Environment*" "opt_ev") ) ) (define-method get_properties (of-object "BonoboControl") (c-name "bonobo_control_get_properties") (return-type "Bonobo_PropertyBag") (caller-owns-return #f) ) (define-method get_ambient_properties (of-object "BonoboControl") (c-name "bonobo_control_get_ambient_properties") (return-type "Bonobo_PropertyBag") (caller-owns-return #f) (parameters '("CORBA_Environment*" "opt_ev") ) ) (define-method activate_notify (of-object "BonoboControl") (c-name "bonobo_control_activate_notify") (return-type "none") (parameters '("gboolean" "activated") '("CORBA_Environment*" "opt_ev") ) ) (define-function bonobo_control_window_id_from_x11 (c-name "bonobo_control_window_id_from_x11") (return-type "Bonobo_Gdk_WindowId") (caller-owns-return #f) (parameters '("guint32" "x11_id") ) ) (define-function bonobo_control_x11_from_window_id (c-name "bonobo_control_x11_from_window_id") (return-type "guint32") (parameters '("const-CORBA_char*" "id") ) ) (define-method get_popup_ui_component (of-object "BonoboControl") (c-name "bonobo_control_get_popup_ui_component") (return-type "BonoboUIComponent*") ) (define-method set_popup_ui_container (of-object "BonoboControl") (c-name "bonobo_control_set_popup_ui_container") (return-type "none") (parameters '("BonoboUIContainer*" "ui_container") ) ) (define-method do_popup (of-object "BonoboControl") (c-name "bonobo_control_do_popup") (return-type "gboolean") (parameters '("guint" "button") '("guint32" "activate_time") ) ) (define-method do_popup_full (of-object "BonoboControl") (c-name "bonobo_control_do_popup_full") (return-type "gboolean") (parameters '("GtkWidget*" "parent_menu_shell") '("GtkWidget*" "parent_menu_item") '("GtkMenuPositionFunc" "func") '("gpointer" "data") '("guint" "button") '("guint32" "activate_time") ) ) ;; From /home/james/cvs/gnome2/libbonoboui/bonobo/bonobo-dock-band.h (define-function bonobo_dock_band_new (c-name "bonobo_dock_band_new") (is-constructor-of BonoboDockBand) (return-type "GtkWidget*") ) (define-function bonobo_dock_band_get_type (c-name "bonobo_dock_band_get_type") (return-type "GtkType") ) (define-method set_orientation (of-object "BonoboDockBand") (c-name "bonobo_dock_band_set_orientation") (return-type "none") (parameters '("GtkOrientation" "orientation") ) ) (define-method get_orientation (of-object "BonoboDockBand") (c-name "bonobo_dock_band_get_orientation") (return-type "GtkOrientation") ) (define-method insert (of-object "BonoboDockBand") (c-name "bonobo_dock_band_insert") (return-type "gboolean") (parameters '("GtkWidget*" "child") '("guint" "offset") '("gint" "position") ) ) (define-method prepend (of-object "BonoboDockBand") (c-name "bonobo_dock_band_prepend") (return-type "gboolean") (parameters '("GtkWidget*" "child") '("guint" "offset") ) ) (define-method append (of-object "BonoboDockBand") (c-name "bonobo_dock_band_append") (return-type "gboolean") (parameters '("GtkWidget*" "child") '("guint" "offset") ) ) (define-method set_child_offset (of-object "BonoboDockBand") (c-name "bonobo_dock_band_set_child_offset") (return-type "none") (parameters '("GtkWidget*" "child") '("guint" "offset") ) ) (define-method get_child_offset (of-object "BonoboDockBand") (c-name "bonobo_dock_band_get_child_offset") (return-type "guint") (parameters '("GtkWidget*" "child") ) ) (define-method move_child (of-object "BonoboDockBand") (c-name "bonobo_dock_band_move_child") (return-type "none") (parameters '("GList*" "old_child") '("guint" "new_num") ) ) (define-method get_num_children (of-object "BonoboDockBand") (c-name "bonobo_dock_band_get_num_children") (return-type "guint") ) (define-method drag_begin (of-object "BonoboDockBand") (c-name "bonobo_dock_band_drag_begin") (return-type "none") (parameters '("BonoboDockItem*" "item") ) ) (define-method drag_to (of-object "BonoboDockBand") (c-name "bonobo_dock_band_drag_to") (return-type "gboolean") (parameters '("BonoboDockItem*" "item") '("gint" "x") '("gint" "y") ) ) (define-method drag_end (of-object "BonoboDockBand") (c-name "bonobo_dock_band_drag_end") (return-type "none") (parameters '("BonoboDockItem*" "item") ) ) (define-method get_item_by_name (of-object "BonoboDockBand") (c-name "bonobo_dock_band_get_item_by_name") (return-type "BonoboDockItem*") (parameters '("const-char*" "name") '("guint*" "position_return") '("guint*" "offset_return") ) ) (define-method layout_add (of-object "BonoboDockBand") (c-name "bonobo_dock_band_layout_add") (return-type "none") (parameters '("BonoboDockLayout*" "layout") '("BonoboDockPlacement" "placement") '("guint" "band_num") ) ) ;; From /home/james/cvs/gnome2/libbonoboui/bonobo/bonobo-dock.h (define-function bonobo_dock_new (c-name "bonobo_dock_new") (is-constructor-of BonoboDock) (return-type "GtkWidget*") ) (define-function bonobo_dock_get_type (c-name "bonobo_dock_get_type") (return-type "GtkType") ) (define-method allow_floating_items (of-object "BonoboDock") (c-name "bonobo_dock_allow_floating_items") (return-type "none") (parameters '("gboolean" "enable") ) ) (define-method add_item (of-object "BonoboDock") (c-name "bonobo_dock_add_item") (return-type "none") (parameters '("BonoboDockItem*" "item") '("BonoboDockPlacement" "placement") '("guint" "band_num") '("gint" "position") '("guint" "offset") '("gboolean" "in_new_band") ) ) (define-method add_floating_item (of-object "BonoboDock") (c-name "bonobo_dock_add_floating_item") (return-type "none") (parameters '("BonoboDockItem*" "widget") '("gint" "x") '("gint" "y") '("GtkOrientation" "orientation") ) ) (define-method set_client_area (of-object "BonoboDock") (c-name "bonobo_dock_set_client_area") (return-type "none") (parameters '("GtkWidget*" "widget") ) ) (define-method get_client_area (of-object "BonoboDock") (c-name "bonobo_dock_get_client_area") (return-type "GtkWidget*") ) (define-method get_item_by_name (of-object "BonoboDock") (c-name "bonobo_dock_get_item_by_name") (return-type "BonoboDockItem*") (parameters '("const-gchar*" "name") '("BonoboDockPlacement*" "placement_return") '("guint*" "num_band_return") '("guint*" "band_position_return") '("guint*" "offset_return") ) ) (define-method get_layout (of-object "BonoboDock") (c-name "bonobo_dock_get_layout") (return-type "BonoboDockLayout*") ) (define-method add_from_layout (of-object "BonoboDock") (c-name "bonobo_dock_add_from_layout") (return-type "gboolean") (parameters '("BonoboDockLayout*" "layout") ) ) ;; From /home/james/cvs/gnome2/libbonoboui/bonobo/bonobo-dock-item.h (define-function bonobo_dock_item_get_type (c-name "bonobo_dock_item_get_type") (return-type "GtkType") ) (define-function bonobo_dock_item_new (c-name "bonobo_dock_item_new") (is-constructor-of BonoboDockItem) (return-type "GtkWidget*") (parameters '("const-gchar*" "name") '("BonoboDockItemBehavior" "behavior") ) ) (define-method construct (of-object "BonoboDockItem") (c-name "bonobo_dock_item_construct") (return-type "none") (parameters '("const-gchar*" "name") '("BonoboDockItemBehavior" "behavior") ) ) (define-method get_child (of-object "BonoboDockItem") (c-name "bonobo_dock_item_get_child") (return-type "GtkWidget*") ) (define-method get_name (of-object "BonoboDockItem") (c-name "bonobo_dock_item_get_name") (return-type "char*") ) (define-method set_shadow_type (of-object "BonoboDockItem") (c-name "bonobo_dock_item_set_shadow_type") (return-type "none") (parameters '("GtkShadowType" "type") ) ) (define-method get_shadow_type (of-object "BonoboDockItem") (c-name "bonobo_dock_item_get_shadow_type") (return-type "GtkShadowType") ) (define-method set_orientation (of-object "BonoboDockItem") (c-name "bonobo_dock_item_set_orientation") (return-type "gboolean") (parameters '("GtkOrientation" "orientation") ) ) (define-method get_orientation (of-object "BonoboDockItem") (c-name "bonobo_dock_item_get_orientation") (return-type "GtkOrientation") ) (define-method get_behavior (of-object "BonoboDockItem") (c-name "bonobo_dock_item_get_behavior") (return-type "BonoboDockItemBehavior") ) ;; From /home/james/cvs/gnome2/libbonoboui/bonobo/bonobo-dock-layout.h (define-function bonobo_dock_layout_new (c-name "bonobo_dock_layout_new") (is-constructor-of BonoboDockLayout) (return-type "BonoboDockLayout*") ) (define-function bonobo_dock_layout_get_type (c-name "bonobo_dock_layout_get_type") (return-type "GType") ) (define-method add_item (of-object "BonoboDockLayout") (c-name "bonobo_dock_layout_add_item") (return-type "gboolean") (parameters '("BonoboDockItem*" "item") '("BonoboDockPlacement" "placement") '("gint" "band_num") '("gint" "band_position") '("gint" "offset") ) ) (define-method add_floating_item (of-object "BonoboDockLayout") (c-name "bonobo_dock_layout_add_floating_item") (return-type "gboolean") (parameters '("BonoboDockItem*" "item") '("gint" "x") '("gint" "y") '("GtkOrientation" "orientation") ) ) (define-method get_item (of-object "BonoboDockLayout") (c-name "bonobo_dock_layout_get_item") (return-type "BonoboDockLayoutItem*") (parameters '("BonoboDockItem*" "item") ) ) (define-method get_item_by_name (of-object "BonoboDockLayout") (c-name "bonobo_dock_layout_get_item_by_name") (return-type "BonoboDockLayoutItem*") (parameters '("const-gchar*" "name") ) ) (define-method remove_item (of-object "BonoboDockLayout") (c-name "bonobo_dock_layout_remove_item") (return-type "gboolean") (parameters '("BonoboDockItem*" "item") ) ) (define-method remove_item_by_name (of-object "BonoboDockLayout") (c-name "bonobo_dock_layout_remove_item_by_name") (return-type "gboolean") (parameters '("const-gchar*" "name") ) ) (define-method create_string (of-object "BonoboDockLayout") (c-name "bonobo_dock_layout_create_string") (return-type "gchar*") ) (define-method parse_string (of-object "BonoboDockLayout") (c-name "bonobo_dock_layout_parse_string") (return-type "gboolean") (parameters '("const-gchar*" "string") ) ) (define-method add_to_dock (of-object "BonoboDockLayout") (c-name "bonobo_dock_layout_add_to_dock") (return-type "gboolean") (parameters '("BonoboDock*" "dock") ) ) ;; From /home/james/cvs/gnome2/libbonoboui/bonobo/bonobo-embeddable-factory.h ;; From /home/james/cvs/gnome2/libbonoboui/bonobo/bonobo-file-selector-util.h (define-function bonobo_file_selector_open_multi (c-name "bonobo_file_selector_open_multi") (return-type "char**") (parameters '("GtkWindow*" "parent") '("gboolean" "enable_vfs") '("const-char*" "title") '("const-char*" "mime_types") '("const-char*" "default_path") ) ) (define-function bonobo_file_selector_save (c-name "bonobo_file_selector_save") (return-type "char*") (parameters '("GtkWindow*" "parent") '("gboolean" "enable_vfs") '("const-char*" "title") '("const-char*" "mime_types") '("const-char*" "default_path") '("const-char*" "default_filename") ) ) ;; From /home/james/cvs/gnome2/libbonoboui/bonobo/bonobo-plug.h (define-function bonobo_plug_get_type (c-name "bonobo_plug_get_type") (return-type "GtkType") ) (define-method construct (of-object "BonoboPlug") (c-name "bonobo_plug_construct") (return-type "none") (parameters '("guint32" "socket_id") ) ) (define-function bonobo_plug_new (c-name "bonobo_plug_new") (is-constructor-of BonoboPlug) (return-type "GtkWidget*") (parameters '("guint32" "socket_id") ) ) ;; From /home/james/cvs/gnome2/libbonoboui/bonobo/bonobo-property-control.h (define-function bonobo_property_control_get_type (c-name "bonobo_property_control_get_type") (return-type "GtkType") ) (define-method construct (of-object "BonoboPropertyControl") (c-name "bonobo_property_control_construct") (return-type "BonoboPropertyControl*") (parameters '("BonoboEventSource*" "event_source") '("BonoboPropertyControlGetControlFn" "get_fn") '("int" "num_pages") '("void*" "closure") ) ) (define-function bonobo_property_control_new_full (c-name "bonobo_property_control_new_full") (is-constructor-of BonoboPropertyControl) (return-type "BonoboPropertyControl*") (parameters '("BonoboPropertyControlGetControlFn" "get_fn") '("int" "num_pages") '("BonoboEventSource*" "event_source") '("void*" "closure") ) ) (define-function bonobo_property_control_new (c-name "bonobo_property_control_new") (is-constructor-of BonoboPropertyControl) (return-type "BonoboPropertyControl*") (parameters '("BonoboPropertyControlGetControlFn" "get_fn") '("int" "num_pages") '("void*" "closure") ) ) (define-method changed (of-object "BonoboPropertyControl") (c-name "bonobo_property_control_changed") (return-type "none") (parameters '("CORBA_Environment*" "opt_ev") ) ) (define-method get_event_source (of-object "BonoboPropertyControl") (c-name "bonobo_property_control_get_event_source") (return-type "BonoboEventSource*") ) ;; From /home/james/cvs/gnome2/libbonoboui/bonobo/bonobo-selector.h (define-function bonobo_selector_get_type (c-name "bonobo_selector_get_type") (return-type "GtkType") ) (define-method construct (of-object "BonoboSelector") (c-name "bonobo_selector_construct") (return-type "GtkWidget*") (parameters '("const-gchar*" "title") '("BonoboSelectorWidget*" "selector") ) ) (define-function bonobo_selector_new (c-name "bonobo_selector_new") (is-constructor-of BonoboSelector) (return-type "GtkWidget*") (parameters '("const-gchar*" "title") '("const-gchar**" "interfaces_required") ) ) (define-method get_selected_id (of-object "BonoboSelector") (c-name "bonobo_selector_get_selected_id") (return-type "gchar*") ) (define-method get_selected_name (of-object "BonoboSelector") (c-name "bonobo_selector_get_selected_name") (return-type "gchar*") ) (define-method get_selected_description (of-object "BonoboSelector") (c-name "bonobo_selector_get_selected_description") (return-type "gchar*") ) (define-function bonobo_selector_select_id (c-name "bonobo_selector_select_id") (return-type "gchar*") (parameters '("const-gchar*" "title") '("const-gchar**" "interfaces_required") ) ) ;; From /home/james/cvs/gnome2/libbonoboui/bonobo/bonobo-selector-widget.h (define-function bonobo_selector_widget_get_type (c-name "bonobo_selector_widget_get_type") (return-type "GtkType") ) (define-function bonobo_selector_widget_new (c-name "bonobo_selector_widget_new") (return-type "GtkWidget*") ) (define-method set_interfaces (of-object "BonoboSelectorWidget") (c-name "bonobo_selector_widget_set_interfaces") (return-type "none") (parameters '("const-gchar**" "interfaces_required") ) ) (define-method get_id (of-object "BonoboSelectorWidget") (c-name "bonobo_selector_widget_get_id") (return-type "gchar*") ) (define-method get_name (of-object "BonoboSelectorWidget") (c-name "bonobo_selector_widget_get_name") (return-type "gchar*") ) (define-method get_description (of-object "BonoboSelectorWidget") (c-name "bonobo_selector_widget_get_description") (return-type "gchar*") ) ;; From /home/james/cvs/gnome2/libbonoboui/bonobo/bonobo-socket.h (define-function bonobo_socket_get_type (c-name "bonobo_socket_get_type") (return-type "GType") ) (define-function bonobo_socket_new (c-name "bonobo_socket_new") (is-constructor-of BonoboSocket) (return-type "GtkWidget*") ) ;; From /home/james/cvs/gnome2/libbonoboui/bonobo/bonobo-ui-component.h (define-function bonobo_ui_component_get_type (c-name "bonobo_ui_component_get_type") (return-type "GType") ) (define-method construct (of-object "BonoboUIComponent") (c-name "bonobo_ui_component_construct") (return-type "BonoboUIComponent*") (parameters '("const-char*" "name") ) ) (define-function bonobo_ui_component_new (c-name "bonobo_ui_component_new") (is-constructor-of BonoboUIComponent) (return-type "BonoboUIComponent*") (parameters '("const-char*" "name") ) ) (define-function bonobo_ui_component_new_default (c-name "bonobo_ui_component_new_default") (is-constructor-of BonoboUIComponent) (return-type "BonoboUIComponent*") ) (define-method set_name (of-object "BonoboUIComponent") (c-name "bonobo_ui_component_set_name") (return-type "none") (parameters '("const-char*" "name") ) ) (define-method get_name (of-object "BonoboUIComponent") (c-name "bonobo_ui_component_get_name") (return-type "const-char*") ) (define-method set_container (of-object "BonoboUIComponent") (c-name "bonobo_ui_component_set_container") (return-type "none") (parameters '("Bonobo_UIContainer" "container") '("CORBA_Environment*" "opt_ev") ) ) (define-method unset_container (of-object "BonoboUIComponent") (c-name "bonobo_ui_component_unset_container") (return-type "none") (parameters '("CORBA_Environment*" "opt_ev") ) ) (define-method get_container (of-object "BonoboUIComponent") (c-name "bonobo_ui_component_get_container") (return-type "Bonobo_UIContainer") (caller-owns-return #f) ) (define-method add_verb (of-object "BonoboUIComponent") (c-name "bonobo_ui_component_add_verb") (return-type "none") (parameters '("const-char*" "cname") '("BonoboUIVerbFn" "fn") '("gpointer" "user_data") ) ) (define-method add_verb_full (of-object "BonoboUIComponent") (c-name "bonobo_ui_component_add_verb_full") (return-type "none") (parameters '("const-char*" "cname") '("GClosure*" "closure") ) ) (define-method remove_verb (of-object "BonoboUIComponent") (c-name "bonobo_ui_component_remove_verb") (return-type "none") (parameters '("const-char*" "cname") ) ) (define-method remove_verb_by_closure (of-object "BonoboUIComponent") (c-name "bonobo_ui_component_remove_verb_by_closure") (return-type "none") (parameters '("GClosure*" "closure") ) ) (define-method add_listener (of-object "BonoboUIComponent") (c-name "bonobo_ui_component_add_listener") (return-type "none") (parameters '("const-char*" "id") '("BonoboUIListenerFn" "fn") '("gpointer" "user_data") ) ) (define-method add_listener_full (of-object "BonoboUIComponent") (c-name "bonobo_ui_component_add_listener_full") (return-type "none") (parameters '("const-char*" "id") '("GClosure*" "closure") ) ) (define-method remove_listener (of-object "BonoboUIComponent") (c-name "bonobo_ui_component_remove_listener") (return-type "none") (parameters '("const-char*" "cname") ) ) (define-method remove_listener_by_closure (of-object "BonoboUIComponent") (c-name "bonobo_ui_component_remove_listener_by_closure") (return-type "none") (parameters '("GClosure*" "closure") ) ) (define-method set (of-object "BonoboUIComponent") (c-name "bonobo_ui_component_set") (return-type "none") (parameters '("const-char*" "path") '("const-char*" "xml") '("CORBA_Environment*" "opt_ev") ) ) (define-method set_translate (of-object "BonoboUIComponent") (c-name "bonobo_ui_component_set_translate") (return-type "none") (parameters '("const-char*" "path") '("const-char*" "xml") '("CORBA_Environment*" "opt_ev") ) ) (define-method set_tree (of-object "BonoboUIComponent") (c-name "bonobo_ui_component_set_tree") (return-type "none") (parameters '("const-char*" "path") '("BonoboUINode*" "node") '("CORBA_Environment*" "ev") ) ) (define-method rm (of-object "BonoboUIComponent") (c-name "bonobo_ui_component_rm") (return-type "none") (parameters '("const-char*" "path") '("CORBA_Environment*" "ev") ) ) (define-method path_exists (of-object "BonoboUIComponent") (c-name "bonobo_ui_component_path_exists") (return-type "gboolean") (parameters '("const-char*" "path") '("CORBA_Environment*" "ev") ) ) (define-method get (of-object "BonoboUIComponent") (c-name "bonobo_ui_component_get") (return-type "CORBA_char*") (parameters '("const-char*" "path") '("gboolean" "recurse") '("CORBA_Environment*" "opt_ev") ) ) (define-method get_tree (of-object "BonoboUIComponent") (c-name "bonobo_ui_component_get_tree") (return-type "BonoboUINode*") (parameters '("const-char*" "path") '("gboolean" "recurse") '("CORBA_Environment*" "opt_ev") ) ) (define-method object_set (of-object "BonoboUIComponent") (c-name "bonobo_ui_component_object_set") (return-type "none") (parameters '("const-char*" "path") '("Bonobo_Unknown" "control") '("CORBA_Environment*" "ev") ) ) (define-method object_get (of-object "BonoboUIComponent") (c-name "bonobo_ui_component_object_get") (return-type "Bonobo_Unknown") (caller-owns-return #f) (parameters '("const-char*" "path") '("CORBA_Environment*" "opt_ev") ) ) (define-method freeze (of-object "BonoboUIComponent") (c-name "bonobo_ui_component_freeze") (return-type "none") (parameters '("CORBA_Environment*" "opt_ev") ) ) (define-method thaw (of-object "BonoboUIComponent") (c-name "bonobo_ui_component_thaw") (return-type "none") (parameters '("CORBA_Environment*" "opt_ev") ) ) (define-method set_prop (of-object "BonoboUIComponent") (c-name "bonobo_ui_component_set_prop") (return-type "none") (parameters '("const-char*" "path") '("const-char*" "prop") '("const-char*" "value") '("CORBA_Environment*" "opt_ev") ) ) (define-method get_prop (of-object "BonoboUIComponent") (c-name "bonobo_ui_component_get_prop") (return-type "gchar*") (parameters '("const-char*" "path") '("const-char*" "prop") '("CORBA_Environment*" "opt_ev") ) ) (define-method set_status (of-object "BonoboUIComponent") (c-name "bonobo_ui_component_set_status") (return-type "none") (parameters '("const-char*" "text") '("CORBA_Environment*" "opt_ev") ) ) (define-method add_verb_list (of-object "BonoboUIComponent") (c-name "bonobo_ui_component_add_verb_list") (return-type "none") (parameters '("const-BonoboUIVerb*" "list") ) ) (define-method add_verb_list_with_data (of-object "BonoboUIComponent") (c-name "bonobo_ui_component_add_verb_list_with_data") (return-type "none") (parameters '("const-BonoboUIVerb*" "list") '("gpointer" "user_data") ) ) ;; From /home/james/cvs/gnome2/libbonoboui/bonobo/bonobo-ui-container.h (define-function bonobo_ui_container_get_type (c-name "bonobo_ui_container_get_type") (return-type "GType") ) (define-function bonobo_ui_container_new (c-name "bonobo_ui_container_new") (is-constructor-of BonoboUIContainer) (return-type "BonoboUIContainer*") ) ;; From /home/james/cvs/gnome2/libbonoboui/bonobo/bonobo-ui-main.h (define-function init (c-name "bonobo_ui_init") (return-type "gboolean") (parameters '("const-gchar*" "app_name") '("const-gchar*" "app_version") '("int*" "argc") '("char**" "argv") ) ) (define-function main (c-name "bonobo_ui_main") (return-type "none") ) (define-function bonobo_ui_init_full (c-name "bonobo_ui_init_full") (return-type "gboolean") (parameters '("const-gchar*" "app_name") '("const-gchar*" "app_version") '("int*" "argc") '("char**" "argv") '("CORBA_ORB" "orb") '("PortableServer_POA" "poa") '("PortableServer_POAManager" "manager") '("gboolean" "full_init") ) ) (define-function setup_x_error_handler (c-name "bonobo_setup_x_error_handler") (return-type "none") ) (define-function debug_shutdown (c-name "bonobo_ui_debug_shutdown") (return-type "int") ) ;; From /home/james/cvs/gnome2/libbonoboui/bonobo/bonobo-ui-marshal.h ;; From /home/james/cvs/gnome2/libbonoboui/bonobo/bonobo-ui-node.h (define-method new_child (of-object "BonoboUINode") (c-name "bonobo_ui_node_new_child") (caller-owns-return #t) (return-type "BonoboUINode*") (parameters '("const-char*" "name") ) ) (define-method copy (of-object "BonoboUINode") (c-name "bonobo_ui_node_copy") (return-type "BonoboUINode*") (parameters '("gboolean" "recursive") ) ) (define-method free (of-object "BonoboUINode") (c-name "bonobo_ui_node_free") (return-type "none") ) (define-method set_data (of-object "BonoboUINode") (c-name "bonobo_ui_node_set_data") (return-type "none") (parameters '("gpointer" "data") ) ) (define-method get_data (of-object "BonoboUINode") (c-name "bonobo_ui_node_get_data") (return-type "gpointer") ) (define-method set_attr (of-object "BonoboUINode") (c-name "bonobo_ui_node_set_attr") (return-type "none") (parameters '("const-char*" "name") '("const-char*" "value") ) ) (define-method get_attr (of-object "BonoboUINode") (c-name "bonobo_ui_node_get_attr") (return-type "char*") (parameters '("const-char*" "name") ) ) (define-method has_attr (of-object "BonoboUINode") (c-name "bonobo_ui_node_has_attr") (return-type "gboolean") (parameters '("const-char*" "name") ) ) (define-method remove_attr (of-object "BonoboUINode") (c-name "bonobo_ui_node_remove_attr") (return-type "none") (parameters '("const-char*" "name") ) ) (define-method add_child (of-object "BonoboUINode") (c-name "bonobo_ui_node_add_child") (return-type "none") (parameters '("BonoboUINode*" "child") ) ) (define-method insert_before (of-object "BonoboUINode") (c-name "bonobo_ui_node_insert_before") (return-type "none") (parameters '("BonoboUINode*" "prev_sibling") ) ) (define-method unlink (of-object "BonoboUINode") (c-name "bonobo_ui_node_unlink") (return-type "none") ) (define-method replace (of-object "BonoboUINode") (c-name "bonobo_ui_node_replace") (return-type "none") (parameters '("BonoboUINode*" "new_node") ) ) (define-method set_content (of-object "BonoboUINode") (c-name "bonobo_ui_node_set_content") (return-type "none") (parameters '("const-char*" "content") ) ) (define-method get_content (of-object "BonoboUINode") (c-name "bonobo_ui_node_get_content") (return-type "char*") ) (define-method next (of-object "BonoboUINode") (c-name "bonobo_ui_node_next") (return-type "BonoboUINode*") ) (define-method prev (of-object "BonoboUINode") (c-name "bonobo_ui_node_prev") (return-type "BonoboUINode*") ) (define-method children (of-object "BonoboUINode") (c-name "bonobo_ui_node_children") (return-type "BonoboUINode*") ) (define-method parent (of-object "BonoboUINode") (c-name "bonobo_ui_node_parent") (return-type "BonoboUINode*") ) (define-method get_name (of-object "BonoboUINode") (c-name "bonobo_ui_node_get_name") (return-type "const-char*") ) (define-method has_name (of-object "BonoboUINode") (c-name "bonobo_ui_node_has_name") (return-type "gboolean") (parameters '("const-char*" "name") ) ) (define-method transparent (of-object "BonoboUINode") (c-name "bonobo_ui_node_transparent") (return-type "gboolean") ) (define-method copy_attrs (of-object "BonoboUINode") (c-name "bonobo_ui_node_copy_attrs") (return-type "none") (parameters '("BonoboUINode*" "dest") ) ) (define-function bonobo_ui_node_free_string (c-name "bonobo_ui_node_free_string") (return-type "none") (parameters '("char*" "str") ) ) (define-function bonobo_ui_node_strip (c-name "bonobo_ui_node_strip") (return-type "none") (parameters '("BonoboUINode**" "node") ) ) (define-method to_string (of-object "BonoboUINode") (c-name "bonobo_ui_node_to_string") (return-type "char*") (parameters '("gboolean" "recurse") ) ) (define-function bonobo_ui_node_from_string (c-name "bonobo_ui_node_from_string") (return-type "BonoboUINode*") (parameters '("const-char*" "str") ) ) (define-function bonobo_ui_node_from_file (c-name "bonobo_ui_node_from_file") (return-type "BonoboUINode*") (parameters '("const-char*" "filename") ) ) ;; From /home/james/cvs/gnome2/libbonoboui/bonobo/bonobo-ui-toolbar.h (define-function bonobo_ui_toolbar_get_type (c-name "bonobo_ui_toolbar_get_type") (return-type "GtkType") ) (define-method construct (of-object "BonoboUIToolbar") (c-name "bonobo_ui_toolbar_construct") (return-type "none") ) (define-function bonobo_ui_toolbar_new (c-name "bonobo_ui_toolbar_new") (is-constructor-of BonoboUIToolbar) (return-type "GtkWidget*") ) (define-method set_orientation (of-object "BonoboUIToolbar") (c-name "bonobo_ui_toolbar_set_orientation") (return-type "none") (parameters '("GtkOrientation" "orientation") ) ) (define-method get_orientation (of-object "BonoboUIToolbar") (c-name "bonobo_ui_toolbar_get_orientation") (return-type "GtkOrientation") ) (define-method get_style (of-object "BonoboUIToolbar") (c-name "bonobo_ui_toolbar_get_style") (return-type "BonoboUIToolbarStyle") ) (define-method set_hv_styles (of-object "BonoboUIToolbar") (c-name "bonobo_ui_toolbar_set_hv_styles") (return-type "none") (parameters '("BonoboUIToolbarStyle" "hstyle") '("BonoboUIToolbarStyle" "vstyle") ) ) (define-method insert (of-object "BonoboUIToolbar") (c-name "bonobo_ui_toolbar_insert") (return-type "none") (parameters '("BonoboUIToolbarItem*" "item") '("int" "position") ) ) (define-method get_tooltips (of-object "BonoboUIToolbar") (c-name "bonobo_ui_toolbar_get_tooltips") (return-type "GtkTooltips*") ) (define-method show_tooltips (of-object "BonoboUIToolbar") (c-name "bonobo_ui_toolbar_show_tooltips") (return-type "none") (parameters '("gboolean" "show_tips") ) ) (define-method get_children (of-object "BonoboUIToolbar") (c-name "bonobo_ui_toolbar_get_children") (return-type "GList*") ) ;; From /home/james/cvs/gnome2/libbonoboui/bonobo/bonobo-ui-toolbar-item.h (define-function bonobo_ui_toolbar_item_get_type (c-name "bonobo_ui_toolbar_item_get_type") (return-type "GtkType") ) (define-function bonobo_ui_toolbar_item_new (is-constructor-of BonoboUIToolbarItem) (c-name "bonobo_ui_toolbar_item_new") (return-type "GtkWidget*") ) (define-method set_tooltip (of-object "BonoboUIToolbarItem") (c-name "bonobo_ui_toolbar_item_set_tooltip") (return-type "none") (parameters '("GtkTooltips*" "tooltips") '("const-char*" "tooltip") ) ) (define-method set_state (of-object "BonoboUIToolbarItem") (c-name "bonobo_ui_toolbar_item_set_state") (return-type "none") (parameters '("const-char*" "new_state") ) ) (define-method set_orientation (of-object "BonoboUIToolbarItem") (c-name "bonobo_ui_toolbar_item_set_orientation") (return-type "none") (parameters '("GtkOrientation" "orientation") ) ) (define-method get_orientation (of-object "BonoboUIToolbarItem") (c-name "bonobo_ui_toolbar_item_get_orientation") (return-type "GtkOrientation") ) (define-method set_style (of-object "BonoboUIToolbarItem") (c-name "bonobo_ui_toolbar_item_set_style") (return-type "none") (parameters '("BonoboUIToolbarItemStyle" "style") ) ) (define-method get_style (of-object "BonoboUIToolbarItem") (c-name "bonobo_ui_toolbar_item_get_style") (return-type "BonoboUIToolbarItemStyle") ) (define-method set_minimum_width (of-object "BonoboUIToolbarItem") (c-name "bonobo_ui_toolbar_item_set_minimum_width") (return-type "none") (parameters '("int" "minimum_width") ) ) (define-method set_want_label (of-object "BonoboUIToolbarItem") (c-name "bonobo_ui_toolbar_item_set_want_label") (return-type "none") (parameters '("gboolean" "prefer_text") ) ) (define-method get_want_label (of-object "BonoboUIToolbarItem") (c-name "bonobo_ui_toolbar_item_get_want_label") (return-type "gboolean") ) (define-method set_expandable (of-object "BonoboUIToolbarItem") (c-name "bonobo_ui_toolbar_item_set_expandable") (return-type "none") (parameters '("gboolean" "expandable") ) ) (define-method get_expandable (of-object "BonoboUIToolbarItem") (c-name "bonobo_ui_toolbar_item_get_expandable") (return-type "gboolean") ) (define-method set_pack_end (of-object "BonoboUIToolbarItem") (c-name "bonobo_ui_toolbar_item_set_pack_end") (return-type "none") (parameters '("gboolean" "expandable") ) ) (define-method get_pack_end (of-object "BonoboUIToolbarItem") (c-name "bonobo_ui_toolbar_item_get_pack_end") (return-type "gboolean") ) (define-method activate (of-object "BonoboUIToolbarItem") (c-name "bonobo_ui_toolbar_item_activate") (return-type "none") ) ;; From /home/james/cvs/gnome2/libbonoboui/bonobo/bonobo-ui-type-builtins.h (define-function bonobo_dock_placement_get_type (c-name "bonobo_dock_placement_get_type") (return-type "GType") ) (define-function bonobo_ui_error_get_type (c-name "bonobo_ui_error_get_type") (return-type "GType") ) (define-function bonobo_ui_toolbar_item_style_get_type (c-name "bonobo_ui_toolbar_item_style_get_type") (return-type "GType") ) (define-function bonobo_ui_toolbar_style_get_type (c-name "bonobo_ui_toolbar_style_get_type") (return-type "GType") ) ;; From /home/james/cvs/gnome2/libbonoboui/bonobo/bonobo-ui-util.h (define-function ui_util_xml_to_pixbuf (c-name "bonobo_ui_util_xml_to_pixbuf") (return-type "GdkPixbuf*") (parameters '("const-char*" "xml") ) ) (define-function ui_util_xml_get_icon_widget (c-name "bonobo_ui_util_xml_get_icon_widget") (return-type "GtkWidget*") (parameters '("BonoboUINode*" "node") '("GtkIconSize" "icon_size") ) ) (define-function ui_util_xml_set_pixbuf (c-name "bonobo_ui_util_xml_set_pixbuf") (return-type "none") (parameters '("BonoboUINode*" "node") '("GdkPixbuf*" "pixbuf") ) ) (define-function ui_util_build_help_menu (c-name "bonobo_ui_util_build_help_menu") (return-type "none") (parameters '("BonoboUIComponent*" "listener") '("const-char*" "app_prefix") '("const-char*" "app_name") '("BonoboUINode*" "parent") ) ) (define-function ui_util_get_ui_fname (c-name "bonobo_ui_util_get_ui_fname") (return-type "char*") (parameters '("const-char*" "component_prefix") '("const-char*" "file_name") ) ) (define-function ui_util_translate_ui (c-name "bonobo_ui_util_translate_ui") (return-type "none") (parameters '("BonoboUINode*" "node") ) ) (define-function ui_util_fixup_help (c-name "bonobo_ui_util_fixup_help") (return-type "none") (parameters '("BonoboUIComponent*" "component") '("BonoboUINode*" "node") '("const-char*" "app_prefix") '("const-char*" "app_name") ) ) (define-function ui_util_fixup_icons (c-name "bonobo_ui_util_fixup_icons") (return-type "none") (parameters '("BonoboUINode*" "node") ) ) (define-function ui_util_new_ui (c-name "bonobo_ui_util_new_ui") (return-type "BonoboUINode*") (parameters '("BonoboUIComponent*" "component") '("const-char*" "fname") '("const-char*" "app_prefix") '("const-char*" "app_name") ) ) (define-function util_set_ui (c-name "bonobo_ui_util_set_ui") (return-type "none") (parameters '("BonoboUIComponent*" "component") '("const-char*" "app_prefix") '("const-char*" "file_name") '("const-char*" "app_name") '("CORBA_Environment*" "opt_ev") ) ) (define-function util_set_pixbuf (c-name "bonobo_ui_util_set_pixbuf") (return-type "none") (parameters '("BonoboUIComponent*" "component") '("const-char*" "path") '("GdkPixbuf*" "pixbuf") '("CORBA_Environment*" "opt_ev") ) ) (define-function util_accel_name (c-name "bonobo_ui_util_accel_name") (return-type "gchar*") (parameters '("guint" "accelerator_key") '("GdkModifierType" "accelerator_mods") ) ) (define-function util_accel_parse (c-name "bonobo_ui_util_accel_parse") (return-type "none") (parameters '("const-char*" "name") '("guint*" "accelerator_key") '("GdkModifierType*" "accelerator_mods") ) ) ;; From /home/james/cvs/gnome2/libbonoboui/bonobo/bonobo-widget.h (define-function bonobo_widget_get_type (c-name "bonobo_widget_get_type") (return-type "GtkType") ) (define-method get_objref (of-object "BonoboWidget") (c-name "bonobo_widget_get_objref") (return-type "Bonobo_Unknown") (caller-owns-return #f) ) (define-function bonobo_widget_new_control (c-name "bonobo_widget_new_control") (is-constructor-of BonoboWidget) (return-type "GtkWidget*") (parameters '("const-char*" "moniker") '("Bonobo_UIContainer" "uic") ) ) (define-function widget_new_control_from_objref (c-name "bonobo_widget_new_control_from_objref") (caller-owns-return #t) (return-type "GtkWidget*") (parameters '("Bonobo_Control" "control") '("Bonobo_UIContainer" "uic") ) ) (define-method get_control_frame (of-object "BonoboWidget") (c-name "bonobo_widget_get_control_frame") (return-type "BonoboControlFrame*") ) (define-method get_ui_container (of-object "BonoboWidget") (c-name "bonobo_widget_get_ui_container") (return-type "Bonobo_UIContainer") (caller-owns-return #f) ) (define-function bonobo_widget_new_control_async (c-name "bonobo_widget_new_control_async") (caller-owns-return #t) (return-type "GtkWidget*") (parameters '("const-char*" "moniker") '("Bonobo_UIContainer" "uic") '("BonoboWidgetAsyncFn" "fn") '("gpointer" "user_data") ) ) (define-method construct_control_from_objref (of-object "BonoboWidget") (c-name "bonobo_widget_construct_control_from_objref") (return-type "BonoboWidget*") (parameters '("Bonobo_Control" "control") '("Bonobo_UIContainer" "uic") '("CORBA_Environment*" "ev") ) ) (define-method construct_control (of-object "BonoboWidget") (c-name "bonobo_widget_construct_control") (return-type "BonoboWidget*") (parameters '("const-char*" "moniker") '("Bonobo_UIContainer" "uic") '("CORBA_Environment*" "ev") ) ) (define-method set_property (of-object "BonoboWidget") (c-name "bonobo_widget_set_property") (return-type "none") (parameters '("const-char*" "first_prop") ) (varargs #t) ) (define-method get_property (of-object "BonoboWidget") (c-name "bonobo_widget_get_property") (return-type "none") (parameters '("const-char*" "first_prop") ) (varargs #t) ) ;; From /home/james/cvs/gnome2/libbonoboui/bonobo/bonobo-window.h (define-function bonobo_window_get_type (c-name "bonobo_window_get_type") (return-type "GtkType") ) (define-method construct (of-object "BonoboWindow") (c-name "bonobo_window_construct") (return-type "GtkWidget*") (parameters '("BonoboUIContainer*" "ui_container") '("const-char*" "win_name") '("const-char*" "title") ) ) (define-function bonobo_window_new (c-name "bonobo_window_new") (is-constructor-of BonoboWindow) (return-type "GtkWidget*") (parameters '("const-char*" "win_name") '("const-char*" "title") ) ) (define-method set_contents (of-object "BonoboWindow") (c-name "bonobo_window_set_contents") (return-type "none") (parameters '("GtkWidget*" "contents") ) ) (define-method get_contents (of-object "BonoboWindow") (c-name "bonobo_window_get_contents") (return-type "GtkWidget*") ) (define-method get_ui_engine (of-object "BonoboWindow") (c-name "bonobo_window_get_ui_engine") (return-type "BonoboUIEngine*") ) (define-method get_ui_container (of-object "BonoboWindow") (c-name "bonobo_window_get_ui_container") (return-type "BonoboUIContainer*") ) (define-method set_name (of-object "BonoboWindow") (c-name "bonobo_window_set_name") (return-type "none") (parameters '("const-char*" "win_name") ) ) (define-method get_name (of-object "BonoboWindow") (c-name "bonobo_window_get_name") (return-type "char*") ) (define-method get_accel_group (of-object "BonoboWindow") (c-name "bonobo_window_get_accel_group") (return-type "GtkAccelGroup*") ) (define-method add_popup (of-object "BonoboWindow") (c-name "bonobo_window_add_popup") (return-type "none") (parameters '("GtkMenu*" "popup") '("const-char*" "path") ) ) (define-method remove_popup (of-object "BonoboWindow") (c-name "bonobo_window_remove_popup") (return-type "none") (parameters '("const-char*" "path") ) ) ;; From /home/james/cvs/gnome2/libbonoboui/bonobo/bonobo-zoomable-frame.h (define-function bonobo_zoomable_frame_get_type (c-name "bonobo_zoomable_frame_get_type") (return-type "GType") ) (define-function bonobo_zoomable_frame_new (c-name "bonobo_zoomable_frame_new") (return-type "BonoboZoomableFrame*") ) (define-method get_zoomable (of-object "BonoboZoomableFrame") (c-name "bonobo_zoomable_frame_get_zoomable") (return-type "Bonobo_Zoomable") (caller-owns-return #f) ) (define-method get_zoom_level (of-object "BonoboZoomableFrame") (c-name "bonobo_zoomable_frame_get_zoom_level") (return-type "float") ) (define-method get_min_zoom_level (of-object "BonoboZoomableFrame") (c-name "bonobo_zoomable_frame_get_min_zoom_level") (return-type "float") ) (define-method get_max_zoom_level (of-object "BonoboZoomableFrame") (c-name "bonobo_zoomable_frame_get_max_zoom_level") (return-type "float") ) (define-method has_min_zoom_level (of-object "BonoboZoomableFrame") (c-name "bonobo_zoomable_frame_has_min_zoom_level") (return-type "gboolean") ) (define-method has_max_zoom_level (of-object "BonoboZoomableFrame") (c-name "bonobo_zoomable_frame_has_max_zoom_level") (return-type "gboolean") ) (define-method is_continuous (of-object "BonoboZoomableFrame") (c-name "bonobo_zoomable_frame_is_continuous") (return-type "gboolean") ) (define-method get_preferred_zoom_levels (of-object "BonoboZoomableFrame") (c-name "bonobo_zoomable_frame_get_preferred_zoom_levels") (return-type "GList*") ) (define-method get_preferred_zoom_level_names (of-object "BonoboZoomableFrame") (c-name "bonobo_zoomable_frame_get_preferred_zoom_level_names") (return-type "GList*") ) (define-method set_zoom_level (of-object "BonoboZoomableFrame") (c-name "bonobo_zoomable_frame_set_zoom_level") (return-type "none") (parameters '("float" "zoom_level") ) ) (define-method zoom_in (of-object "BonoboZoomableFrame") (c-name "bonobo_zoomable_frame_zoom_in") (return-type "none") ) (define-method zoom_out (of-object "BonoboZoomableFrame") (c-name "bonobo_zoomable_frame_zoom_out") (return-type "none") ) (define-method zoom_to_fit (of-object "BonoboZoomableFrame") (c-name "bonobo_zoomable_frame_zoom_to_fit") (return-type "none") ) (define-method zoom_to_default (of-object "BonoboZoomableFrame") (c-name "bonobo_zoomable_frame_zoom_to_default") (return-type "none") ) (define-method bind_to_zoomable (of-object "BonoboZoomableFrame") (c-name "bonobo_zoomable_frame_bind_to_zoomable") (return-type "none") (parameters '("Bonobo_Zoomable" "zoomable") '("CORBA_Environment*" "opt_ev") ) ) ;; From /home/james/cvs/gnome2/libbonoboui/bonobo/bonobo-zoomable.h (define-function bonobo_zoomable_get_type (c-name "bonobo_zoomable_get_type") (return-type "GType") ) (define-function bonobo_zoomable_new (c-name "bonobo_zoomable_new") (return-type "BonoboZoomable*") ) (define-method set_parameters (of-object "BonoboZoomable") (c-name "bonobo_zoomable_set_parameters") (return-type "none") (parameters '("float" "zoom_level") '("float" "min_zoom_level") '("float" "max_zoom_level") '("gboolean" "has_min_zoom_level") '("gboolean" "has_max_zoom_level") ) ) (define-method set_parameters_full (of-object "BonoboZoomable") (c-name "bonobo_zoomable_set_parameters_full") (return-type "none") (parameters '("float" "zoom_level") '("float" "min_zoom_level") '("float" "max_zoom_level") '("gboolean" "has_min_zoom_level") '("gboolean" "has_max_zoom_level") '("gboolean" "is_continuous") '("CORBA_float*" "preferred_zoom_levels") '("const-gchar**" "preferred_zoom_level_names") '("gint" "num_preferred_zoom_levels") ) ) (define-method add_preferred_zoom_level (of-object "BonoboZoomable") (c-name "bonobo_zoomable_add_preferred_zoom_level") (return-type "none") (parameters '("CORBA_float" "zoom_level") '("const-gchar*" "zoom_level_name") ) ) (define-method report_zoom_level_changed (of-object "BonoboZoomable") (c-name "bonobo_zoomable_report_zoom_level_changed") (return-type "none") (parameters '("float" "new_zoom_level") '("CORBA_Environment*" "opt_ev") ) ) (define-method report_zoom_parameters_changed (of-object "BonoboZoomable") (c-name "bonobo_zoomable_report_zoom_parameters_changed") (return-type "none") (parameters '("CORBA_Environment*" "opt_ev") ) ) ;; From /opt/gnome/include/libbonoboui-2.0/bonobo/bonobo-ui-engine.h (define-method deregister_component_by_ref (of-object "BonoboUIEngine") (c-name "bonobo_ui_engine_deregister_component_by_ref") (return-type "none") (parameters '("Bonobo_Unknown" "ref") ) ) (define-method deregister_component (of-object "BonoboUIEngine") (c-name "bonobo_ui_engine_deregister_component") (return-type "none") (parameters '("const-char*" "name") ) ) (define-method register_component (of-object "BonoboUIEngine") (c-name "bonobo_ui_engine_register_component") (return-type "none") (parameters '("const-char*" "name") '("Bonobo_Unknown" "component") ) ) (define-method get_component_names (of-object "BonoboUIEngine") (c-name "bonobo_ui_engine_get_component_names") (return-type "GList*") ) (define-method get_component (of-object "BonoboUIEngine") (c-name "bonobo_ui_engine_get_component") (return-type "Bonobo_Unknown") (caller-owns-return #f) (parameters '("const-char*" "name") ) ) (define-method config_set_path (of-object "BonoboUIEngine") (c-name "bonobo_ui_engine_config_set_path") (return-type "none") (parameters '("const-char*" "path") ) ) (define-method config_get_path (of-object "BonoboUIEngine") (c-name "bonobo_ui_engine_config_get_path") (return-type "const-char*") ) (define-method set_ui_container (of-object "BonoboUIEngine") (c-name "bonobo_ui_engine_set_ui_container") (return-type "none") (parameters '("BonoboUIContainer*" "ui_container") ) ) (define-method get_ui_container (of-object "BonoboUIEngine") (c-name "bonobo_ui_engine_get_ui_container") (return-type "BonoboUIContainer*") ) guile-gnome-platform-2.16.2/defs/gnome/defs/atk.defs0000644000175000017500000011336511670374302022571 0ustar00wingowingo00000000000000;; -*- scheme -*- (include "common-ignores.defs") (include type-ignores) (include "atk-types.defs") (include overrides) ;; From /opt/gnome2/include/atk-1.0/atk/atkaction.h (define-function atk_action_get_type (c-name "atk_action_get_type") (return-type "GType") ) (define-method do_action (of-object "AtkAction") (c-name "atk_action_do_action") (return-type "gboolean") (parameters '("gint" "i") ) ) (define-method get_n_actions (of-object "AtkAction") (c-name "atk_action_get_n_actions") (return-type "gint") ) (define-method get_description (of-object "AtkAction") (c-name "atk_action_get_description") (return-type "const-gchar*") (parameters '("gint" "i") ) ) (define-method get_name (of-object "AtkAction") (c-name "atk_action_get_name") (return-type "const-gchar*") (parameters '("gint" "i") ) ) (define-method get_keybinding (of-object "AtkAction") (c-name "atk_action_get_keybinding") (return-type "const-gchar*") (parameters '("gint" "i") ) ) (define-method set_description (of-object "AtkAction") (c-name "atk_action_set_description") (return-type "gboolean") (parameters '("gint" "i") '("const-gchar*" "desc") ) ) (define-method get_localized_name (of-object "AtkAction") (c-name "atk_action_get_localized_name") (return-type "const-gchar*") (parameters '("gint" "i") ) ) ;; From /opt/gnome2/include/atk-1.0/atk/atkcomponent.h (define-function atk_rectangle_get_type (c-name "atk_rectangle_get_type") (return-type "GType") ) (define-function atk_component_get_type (c-name "atk_component_get_type") (return-type "GType") ) (define-method add_focus_handler (of-object "AtkComponent") (c-name "atk_component_add_focus_handler") (return-type "guint") (parameters '("AtkFocusHandler" "handler") ) ) (define-method contains (of-object "AtkComponent") (c-name "atk_component_contains") (return-type "gboolean") (parameters '("gint" "x") '("gint" "y") '("AtkCoordType" "coord_type") ) ) (define-method ref_accessible_at_point (of-object "AtkComponent") (c-name "atk_component_ref_accessible_at_point") (return-type "AtkObject*") (parameters '("gint" "x") '("gint" "y") '("AtkCoordType" "coord_type") ) ) (define-method get_extents (of-object "AtkComponent") (c-name "atk_component_get_extents") (return-type "none") (parameters '("gint*" "x") '("gint*" "y") '("gint*" "width") '("gint*" "height") '("AtkCoordType" "coord_type") ) ) (define-method get_position (of-object "AtkComponent") (c-name "atk_component_get_position") (return-type "none") (parameters '("gint*" "x") '("gint*" "y") '("AtkCoordType" "coord_type") ) ) (define-method get_size (of-object "AtkComponent") (c-name "atk_component_get_size") (return-type "none") (parameters '("gint*" "width") '("gint*" "height") ) ) (define-method get_layer (of-object "AtkComponent") (c-name "atk_component_get_layer") (return-type "AtkLayer") ) (define-method get_mdi_zorder (of-object "AtkComponent") (c-name "atk_component_get_mdi_zorder") (return-type "gint") ) (define-method grab_focus (of-object "AtkComponent") (c-name "atk_component_grab_focus") (return-type "gboolean") ) (define-method remove_focus_handler (of-object "AtkComponent") (c-name "atk_component_remove_focus_handler") (return-type "none") (parameters '("guint" "handler_id") ) ) (define-method set_extents (of-object "AtkComponent") (c-name "atk_component_set_extents") (return-type "gboolean") (parameters '("gint" "x") '("gint" "y") '("gint" "width") '("gint" "height") '("AtkCoordType" "coord_type") ) ) (define-method set_position (of-object "AtkComponent") (c-name "atk_component_set_position") (return-type "gboolean") (parameters '("gint" "x") '("gint" "y") '("AtkCoordType" "coord_type") ) ) (define-method set_size (of-object "AtkComponent") (c-name "atk_component_set_size") (return-type "gboolean") (parameters '("gint" "width") '("gint" "height") ) ) (define-method get_alpha (of-object "AtkComponent") (c-name "atk_component_get_alpha") (return-type "gdouble") ) ;; From /opt/gnome2/include/atk-1.0/atk/atkdocument.h (define-function atk_document_get_type (c-name "atk_document_get_type") (return-type "GType") ) (define-method get_document_type (of-object "AtkDocument") (c-name "atk_document_get_document_type") (return-type "const-gchar*") ) (define-method get_document (of-object "AtkDocument") (c-name "atk_document_get_document") (return-type "gpointer") ) (define-method get_locale (of-object "AtkDocument") (c-name "atk_document_get_locale") (return-type "const-gchar*") ) (define-method get_attributes (of-object "AtkDocument") (c-name "atk_document_get_attributes") (return-type "AtkAttributeSet*") ) (define-method get_attribute_value (of-object "AtkDocument") (c-name "atk_document_get_attribute_value") (return-type "const-gchar*") (parameters '("const-gchar*" "attribute_name") ) ) (define-method set_attribute_value (of-object "AtkDocument") (c-name "atk_document_set_attribute_value") (return-type "gboolean") (parameters '("const-gchar*" "attribute_name") '("const-gchar*" "attribute_value") ) ) ;; From /opt/gnome2/include/atk-1.0/atk/atkeditabletext.h (define-function atk_editable_text_get_type (c-name "atk_editable_text_get_type") (return-type "GType") ) (define-method set_run_attributes (of-object "AtkEditableText") (c-name "atk_editable_text_set_run_attributes") (return-type "gboolean") (parameters '("AtkAttributeSet*" "attrib_set") '("gint" "start_offset") '("gint" "end_offset") ) ) (define-method set_text_contents (of-object "AtkEditableText") (c-name "atk_editable_text_set_text_contents") (return-type "none") (parameters '("const-gchar*" "string") ) ) (define-method insert_text (of-object "AtkEditableText") (c-name "atk_editable_text_insert_text") (return-type "none") (parameters '("const-gchar*" "string") '("gint" "length") '("gint*" "position") ) ) (define-method copy_text (of-object "AtkEditableText") (c-name "atk_editable_text_copy_text") (return-type "none") (parameters '("gint" "start_pos") '("gint" "end_pos") ) ) (define-method cut_text (of-object "AtkEditableText") (c-name "atk_editable_text_cut_text") (return-type "none") (parameters '("gint" "start_pos") '("gint" "end_pos") ) ) (define-method delete_text (of-object "AtkEditableText") (c-name "atk_editable_text_delete_text") (return-type "none") (parameters '("gint" "start_pos") '("gint" "end_pos") ) ) (define-method paste_text (of-object "AtkEditableText") (c-name "atk_editable_text_paste_text") (return-type "none") (parameters '("gint" "position") ) ) ;; From /opt/gnome2/include/atk-1.0/atk/atk-enum-types.h (define-function atk_hyperlink_state_flags_get_type (c-name "atk_hyperlink_state_flags_get_type") (return-type "GType") ) (define-function atk_role_get_type (c-name "atk_role_get_type") (return-type "GType") ) (define-function atk_layer_get_type (c-name "atk_layer_get_type") (return-type "GType") ) (define-function atk_relation_type_get_type (c-name "atk_relation_type_get_type") (return-type "GType") ) (define-function atk_state_type_get_type (c-name "atk_state_type_get_type") (return-type "GType") ) (define-function atk_text_attribute_get_type (c-name "atk_text_attribute_get_type") (return-type "GType") ) (define-function atk_text_boundary_get_type (c-name "atk_text_boundary_get_type") (return-type "GType") ) (define-function atk_text_clip_type_get_type (c-name "atk_text_clip_type_get_type") (return-type "GType") ) (define-function atk_key_event_type_get_type (c-name "atk_key_event_type_get_type") (return-type "GType") ) (define-function atk_coord_type_get_type (c-name "atk_coord_type_get_type") (return-type "GType") ) ;; From /opt/gnome2/include/atk-1.0/atk/atkgobjectaccessible.h (define-function atk_gobject_accessible_get_type (c-name "atk_gobject_accessible_get_type") (return-type "GType") ) (define-function atk_gobject_accessible_for_object (c-name "atk_gobject_accessible_for_object") (return-type "AtkObject*") (parameters '("GObject*" "obj") ) ) (define-method get_object (of-object "AtkGObjectAccessible") (c-name "atk_gobject_accessible_get_object") (return-type "GObject*") ) ;; From /opt/gnome2/include/atk-1.0/atk/atk.h ;; From /opt/gnome2/include/atk-1.0/atk/atkhyperlink.h (define-function atk_hyperlink_get_type (c-name "atk_hyperlink_get_type") (return-type "GType") ) (define-method get_uri (of-object "AtkHyperlink") (c-name "atk_hyperlink_get_uri") (return-type "gchar*") (parameters '("gint" "i") ) ) (define-method get_object (of-object "AtkHyperlink") (c-name "atk_hyperlink_get_object") (return-type "AtkObject*") (parameters '("gint" "i") ) ) (define-method get_end_index (of-object "AtkHyperlink") (c-name "atk_hyperlink_get_end_index") (return-type "gint") ) (define-method get_start_index (of-object "AtkHyperlink") (c-name "atk_hyperlink_get_start_index") (return-type "gint") ) (define-method is_valid (of-object "AtkHyperlink") (c-name "atk_hyperlink_is_valid") (return-type "gboolean") ) (define-method is_inline (of-object "AtkHyperlink") (c-name "atk_hyperlink_is_inline") (return-type "gboolean") ) (define-method get_n_anchors (of-object "AtkHyperlink") (c-name "atk_hyperlink_get_n_anchors") (return-type "gint") ) (define-method is_selected_link (of-object "AtkHyperlink") (c-name "atk_hyperlink_is_selected_link") (return-type "gboolean") ) ;; From /opt/gnome2/include/atk-1.0/atk/atkhyperlinkimpl.h (define-function atk_hyperlink_impl_get_type (c-name "atk_hyperlink_impl_get_type") (return-type "GType") ) (define-method get_hyperlink (of-object "AtkHyperlinkImpl") (c-name "atk_hyperlink_impl_get_hyperlink") (return-type "AtkHyperlink*") ) ;; From /opt/gnome2/include/atk-1.0/atk/atkhypertext.h (define-function atk_hypertext_get_type (c-name "atk_hypertext_get_type") (return-type "GType") ) (define-method get_link (of-object "AtkHypertext") (c-name "atk_hypertext_get_link") (return-type "AtkHyperlink*") (parameters '("gint" "link_index") ) ) (define-method get_n_links (of-object "AtkHypertext") (c-name "atk_hypertext_get_n_links") (return-type "gint") ) (define-method get_link_index (of-object "AtkHypertext") (c-name "atk_hypertext_get_link_index") (return-type "gint") (parameters '("gint" "char_index") ) ) ;; From /opt/gnome2/include/atk-1.0/atk/atkimage.h (define-function atk_image_get_type (c-name "atk_image_get_type") (return-type "GType") ) (define-method get_image_description (of-object "AtkImage") (c-name "atk_image_get_image_description") (return-type "const-gchar*") ) (define-method get_image_size (of-object "AtkImage") (c-name "atk_image_get_image_size") (return-type "none") (parameters '("gint*" "width") '("gint*" "height") ) ) (define-method set_image_description (of-object "AtkImage") (c-name "atk_image_set_image_description") (return-type "gboolean") (parameters '("const-gchar*" "description") ) ) (define-method get_image_position (of-object "AtkImage") (c-name "atk_image_get_image_position") (return-type "none") (parameters '("gint*" "x") '("gint*" "y") '("AtkCoordType" "coord_type") ) ) (define-method get_image_locale (of-object "AtkImage") (c-name "atk_image_get_image_locale") (return-type "const-gchar*") ) ;; From /opt/gnome2/include/atk-1.0/atk/atknoopobjectfactory.h (define-function atk_no_op_object_factory_get_type (c-name "atk_no_op_object_factory_get_type") (return-type "GType") ) (define-function atk_no_op_object_factory_new (c-name "atk_no_op_object_factory_new") (is-constructor-of "AtkNoOpObjectFactory") (return-type "AtkObjectFactory*") ) ;; From /opt/gnome2/include/atk-1.0/atk/atknoopobject.h (define-function atk_no_op_object_get_type (c-name "atk_no_op_object_get_type") (return-type "GType") ) (define-function atk_no_op_object_new (c-name "atk_no_op_object_new") (is-constructor-of "AtkNoOpObject") (return-type "AtkObject*") (parameters '("GObject*" "obj") ) ) ;; From /opt/gnome2/include/atk-1.0/atk/atkobjectfactory.h (define-function atk_object_factory_get_type (c-name "atk_object_factory_get_type") (return-type "GType") ) (define-method create_accessible (of-object "AtkObjectFactory") (c-name "atk_object_factory_create_accessible") (return-type "AtkObject*") (parameters '("GObject*" "obj") ) ) (define-method invalidate (of-object "AtkObjectFactory") (c-name "atk_object_factory_invalidate") (return-type "none") ) (define-method get_accessible_type (of-object "AtkObjectFactory") (c-name "atk_object_factory_get_accessible_type") (return-type "GType") ) ;; From /opt/gnome2/include/atk-1.0/atk/atkobject.h (define-function atk_object_get_type (c-name "atk_object_get_type") (return-type "GType") ) (define-function atk_implementor_get_type (c-name "atk_implementor_get_type") (return-type "GType") ) (define-method ref_accessible (of-object "AtkImplementor") (c-name "atk_implementor_ref_accessible") (return-type "AtkObject*") ) (define-method get_name (of-object "AtkObject") (c-name "atk_object_get_name") (return-type "const-gchar*") ) (define-method get_description (of-object "AtkObject") (c-name "atk_object_get_description") (return-type "const-gchar*") ) (define-method get_parent (of-object "AtkObject") (c-name "atk_object_get_parent") (return-type "AtkObject*") ) (define-method get_n_accessible_children (of-object "AtkObject") (c-name "atk_object_get_n_accessible_children") (return-type "gint") ) (define-method ref_accessible_child (of-object "AtkObject") (c-name "atk_object_ref_accessible_child") (return-type "AtkObject*") (parameters '("gint" "i") ) ) (define-method ref_relation_set (of-object "AtkObject") (c-name "atk_object_ref_relation_set") (return-type "AtkRelationSet*") ) (define-method get_role (of-object "AtkObject") (c-name "atk_object_get_role") (return-type "AtkRole") ) (define-method get_layer (of-object "AtkObject") (c-name "atk_object_get_layer") (return-type "AtkLayer") ) (define-method get_mdi_zorder (of-object "AtkObject") (c-name "atk_object_get_mdi_zorder") (return-type "gint") ) (define-method get_attributes (of-object "AtkObject") (c-name "atk_object_get_attributes") (return-type "AtkAttributeSet*") ) (define-method ref_state_set (of-object "AtkObject") (c-name "atk_object_ref_state_set") (return-type "AtkStateSet*") ) (define-method get_index_in_parent (of-object "AtkObject") (c-name "atk_object_get_index_in_parent") (return-type "gint") ) (define-method set_name (of-object "AtkObject") (c-name "atk_object_set_name") (return-type "none") (parameters '("const-gchar*" "name") ) ) (define-method set_description (of-object "AtkObject") (c-name "atk_object_set_description") (return-type "none") (parameters '("const-gchar*" "description") ) ) (define-method set_parent (of-object "AtkObject") (c-name "atk_object_set_parent") (return-type "none") (parameters '("AtkObject*" "parent") ) ) (define-method set_role (of-object "AtkObject") (c-name "atk_object_set_role") (return-type "none") (parameters '("AtkRole" "role") ) ) (define-method connect_property_change_handler (of-object "AtkObject") (c-name "atk_object_connect_property_change_handler") (return-type "guint") (parameters '("AtkPropertyChangeHandler*" "handler") ) ) (define-method remove_property_change_handler (of-object "AtkObject") (c-name "atk_object_remove_property_change_handler") (return-type "none") (parameters '("guint" "handler_id") ) ) (define-method notify_state_change (of-object "AtkObject") (c-name "atk_object_notify_state_change") (return-type "none") (parameters '("AtkState" "state") '("gboolean" "value") ) ) (define-method initialize (of-object "AtkObject") (c-name "atk_object_initialize") (return-type "none") (parameters '("gpointer" "data") ) ) (define-function atk_role_get_name (c-name "atk_role_get_name") (return-type "const-gchar*") (parameters '("AtkRole" "role") ) ) (define-function atk_role_for_name (c-name "atk_role_for_name") (return-type "AtkRole") (parameters '("const-gchar*" "name") ) ) (define-method add_relationship (of-object "AtkObject") (c-name "atk_object_add_relationship") (return-type "gboolean") (parameters '("AtkRelationType" "relationship") '("AtkObject*" "target") ) ) (define-method remove_relationship (of-object "AtkObject") (c-name "atk_object_remove_relationship") (return-type "gboolean") (parameters '("AtkRelationType" "relationship") '("AtkObject*" "target") ) ) (define-function atk_role_get_localized_name (c-name "atk_role_get_localized_name") (return-type "const-gchar*") (parameters '("AtkRole" "role") ) ) ;; From /opt/gnome2/include/atk-1.0/atk/atkregistry.h (define-function atk_registry_get_type (c-name "atk_registry_get_type") (return-type "GType") ) (define-method set_factory_type (of-object "AtkRegistry") (c-name "atk_registry_set_factory_type") (return-type "none") (parameters '("GType" "type") '("GType" "factory_type") ) ) (define-method get_factory_type (of-object "AtkRegistry") (c-name "atk_registry_get_factory_type") (return-type "GType") (parameters '("GType" "type") ) ) (define-method get_factory (of-object "AtkRegistry") (c-name "atk_registry_get_factory") (return-type "AtkObjectFactory*") (parameters '("GType" "type") ) ) (define-function atk_get_default_registry (c-name "atk_get_default_registry") (return-type "AtkRegistry*") ) ;; From /opt/gnome2/include/atk-1.0/atk/atkrelation.h (define-function atk_relation_get_type (c-name "atk_relation_get_type") (return-type "GType") ) (define-function atk_relation_type_register (c-name "atk_relation_type_register") (return-type "AtkRelationType") (parameters '("const-gchar*" "name") ) ) (define-function atk_relation_type_get_name (c-name "atk_relation_type_get_name") (return-type "const-gchar*") (parameters '("AtkRelationType" "type") ) ) (define-function atk_relation_type_for_name (c-name "atk_relation_type_for_name") (return-type "AtkRelationType") (parameters '("const-gchar*" "name") ) ) (define-function atk_relation_new (c-name "atk_relation_new") (is-constructor-of "AtkRelation") (return-type "AtkRelation*") (parameters '("AtkObject**" "targets") '("gint" "n_targets") '("AtkRelationType" "relationship") ) ) (define-method get_relation_type (of-object "AtkRelation") (c-name "atk_relation_get_relation_type") (return-type "AtkRelationType") ) (define-method get_target (of-object "AtkRelation") (c-name "atk_relation_get_target") (return-type "GPtrArray*") ) (define-method add_target (of-object "AtkRelation") (c-name "atk_relation_add_target") (return-type "none") (parameters '("AtkObject*" "target") ) ) ;; From /opt/gnome2/include/atk-1.0/atk/atkrelationset.h (define-function atk_relation_set_get_type (c-name "atk_relation_set_get_type") (return-type "GType") ) (define-function atk_relation_set_new (c-name "atk_relation_set_new") (is-constructor-of "AtkRelationSet") (return-type "AtkRelationSet*") ) (define-method contains (of-object "AtkRelationSet") (c-name "atk_relation_set_contains") (return-type "gboolean") (parameters '("AtkRelationType" "relationship") ) ) (define-method remove (of-object "AtkRelationSet") (c-name "atk_relation_set_remove") (return-type "none") (parameters '("AtkRelation*" "relation") ) ) (define-method add (of-object "AtkRelationSet") (c-name "atk_relation_set_add") (return-type "none") (parameters '("AtkRelation*" "relation") ) ) (define-method get_n_relations (of-object "AtkRelationSet") (c-name "atk_relation_set_get_n_relations") (return-type "gint") ) (define-method get_relation (of-object "AtkRelationSet") (c-name "atk_relation_set_get_relation") (return-type "AtkRelation*") (parameters '("gint" "i") ) ) (define-method get_relation_by_type (of-object "AtkRelationSet") (c-name "atk_relation_set_get_relation_by_type") (return-type "AtkRelation*") (parameters '("AtkRelationType" "relationship") ) ) (define-method add_relation_by_type (of-object "AtkRelationSet") (c-name "atk_relation_set_add_relation_by_type") (return-type "none") (parameters '("AtkRelationType" "relationship") '("AtkObject*" "target") ) ) ;; From /opt/gnome2/include/atk-1.0/atk/atkrelationtype.h ;; From /opt/gnome2/include/atk-1.0/atk/atkselection.h (define-function atk_selection_get_type (c-name "atk_selection_get_type") (return-type "GType") ) (define-method add_selection (of-object "AtkSelection") (c-name "atk_selection_add_selection") (return-type "gboolean") (parameters '("gint" "i") ) ) (define-method clear_selection (of-object "AtkSelection") (c-name "atk_selection_clear_selection") (return-type "gboolean") ) (define-method ref_selection (of-object "AtkSelection") (c-name "atk_selection_ref_selection") (return-type "AtkObject*") (parameters '("gint" "i") ) ) (define-method get_selection_count (of-object "AtkSelection") (c-name "atk_selection_get_selection_count") (return-type "gint") ) (define-method is_child_selected (of-object "AtkSelection") (c-name "atk_selection_is_child_selected") (return-type "gboolean") (parameters '("gint" "i") ) ) (define-method remove_selection (of-object "AtkSelection") (c-name "atk_selection_remove_selection") (return-type "gboolean") (parameters '("gint" "i") ) ) (define-method select_all_selection (of-object "AtkSelection") (c-name "atk_selection_select_all_selection") (return-type "gboolean") ) ;; From /opt/gnome2/include/atk-1.0/atk/atkstate.h (define-function atk_state_type_get_name (c-name "atk_state_type_get_name") (return-type "const-gchar*") (parameters '("AtkStateType" "type") ) ) (define-function atk_state_type_for_name (c-name "atk_state_type_for_name") (return-type "AtkStateType") (parameters '("const-gchar*" "name") ) ) ;; From /opt/gnome2/include/atk-1.0/atk/atkstateset.h (define-function atk_state_set_get_type (c-name "atk_state_set_get_type") (return-type "GType") ) (define-function atk_state_set_new (c-name "atk_state_set_new") (is-constructor-of "AtkStateSet") (return-type "AtkStateSet*") ) (define-method is_empty (of-object "AtkStateSet") (c-name "atk_state_set_is_empty") (return-type "gboolean") ) (define-method add_state (of-object "AtkStateSet") (c-name "atk_state_set_add_state") (return-type "gboolean") (parameters '("AtkStateType" "type") ) ) (define-method add_states (of-object "AtkStateSet") (c-name "atk_state_set_add_states") (return-type "none") (parameters '("AtkStateType*" "types") '("gint" "n_types") ) ) (define-method clear_states (of-object "AtkStateSet") (c-name "atk_state_set_clear_states") (return-type "none") ) (define-method contains_state (of-object "AtkStateSet") (c-name "atk_state_set_contains_state") (return-type "gboolean") (parameters '("AtkStateType" "type") ) ) (define-method contains_states (of-object "AtkStateSet") (c-name "atk_state_set_contains_states") (return-type "gboolean") (parameters '("AtkStateType*" "types") '("gint" "n_types") ) ) (define-method remove_state (of-object "AtkStateSet") (c-name "atk_state_set_remove_state") (return-type "gboolean") (parameters '("AtkStateType" "type") ) ) (define-method and_sets (of-object "AtkStateSet") (c-name "atk_state_set_and_sets") (return-type "AtkStateSet*") (parameters '("AtkStateSet*" "compare_set") ) ) (define-method or_sets (of-object "AtkStateSet") (c-name "atk_state_set_or_sets") (return-type "AtkStateSet*") (parameters '("AtkStateSet*" "compare_set") ) ) (define-method xor_sets (of-object "AtkStateSet") (c-name "atk_state_set_xor_sets") (return-type "AtkStateSet*") (parameters '("AtkStateSet*" "compare_set") ) ) ;; From /opt/gnome2/include/atk-1.0/atk/atkstreamablecontent.h (define-function atk_streamable_content_get_type (c-name "atk_streamable_content_get_type") (return-type "GType") ) (define-method get_n_mime_types (of-object "AtkStreamableContent") (c-name "atk_streamable_content_get_n_mime_types") (return-type "gint") ) (define-method get_mime_type (of-object "AtkStreamableContent") (c-name "atk_streamable_content_get_mime_type") (return-type "const-gchar*") (parameters '("gint" "i") ) ) (define-method get_stream (of-object "AtkStreamableContent") (c-name "atk_streamable_content_get_stream") (return-type "GIOChannel*") (parameters '("const-gchar*" "mime_type") ) ) (define-method get_uri (of-object "AtkStreamableContent") (c-name "atk_streamable_content_get_uri") (return-type "gchar*") (parameters '("const-gchar*" "mime_type") ) ) ;; From /opt/gnome2/include/atk-1.0/atk/atktable.h (define-function atk_table_get_type (c-name "atk_table_get_type") (return-type "GType") ) (define-method ref_at (of-object "AtkTable") (c-name "atk_table_ref_at") (return-type "AtkObject*") (parameters '("gint" "row") '("gint" "column") ) ) (define-method get_index_at (of-object "AtkTable") (c-name "atk_table_get_index_at") (return-type "gint") (parameters '("gint" "row") '("gint" "column") ) ) (define-method get_column_at_index (of-object "AtkTable") (c-name "atk_table_get_column_at_index") (return-type "gint") (parameters '("gint" "index_") ) ) (define-method get_row_at_index (of-object "AtkTable") (c-name "atk_table_get_row_at_index") (return-type "gint") (parameters '("gint" "index_") ) ) (define-method get_n_columns (of-object "AtkTable") (c-name "atk_table_get_n_columns") (return-type "gint") ) (define-method get_n_rows (of-object "AtkTable") (c-name "atk_table_get_n_rows") (return-type "gint") ) (define-method get_column_extent_at (of-object "AtkTable") (c-name "atk_table_get_column_extent_at") (return-type "gint") (parameters '("gint" "row") '("gint" "column") ) ) (define-method get_row_extent_at (of-object "AtkTable") (c-name "atk_table_get_row_extent_at") (return-type "gint") (parameters '("gint" "row") '("gint" "column") ) ) (define-method get_caption (of-object "AtkTable") (c-name "atk_table_get_caption") (return-type "AtkObject*") ) (define-method get_column_description (of-object "AtkTable") (c-name "atk_table_get_column_description") (return-type "const-gchar*") (parameters '("gint" "column") ) ) (define-method get_column_header (of-object "AtkTable") (c-name "atk_table_get_column_header") (return-type "AtkObject*") (parameters '("gint" "column") ) ) (define-method get_row_description (of-object "AtkTable") (c-name "atk_table_get_row_description") (return-type "const-gchar*") (parameters '("gint" "row") ) ) (define-method get_row_header (of-object "AtkTable") (c-name "atk_table_get_row_header") (return-type "AtkObject*") (parameters '("gint" "row") ) ) (define-method get_summary (of-object "AtkTable") (c-name "atk_table_get_summary") (return-type "AtkObject*") ) (define-method set_caption (of-object "AtkTable") (c-name "atk_table_set_caption") (return-type "none") (parameters '("AtkObject*" "caption") ) ) (define-method set_column_description (of-object "AtkTable") (c-name "atk_table_set_column_description") (return-type "none") (parameters '("gint" "column") '("const-gchar*" "description") ) ) (define-method set_column_header (of-object "AtkTable") (c-name "atk_table_set_column_header") (return-type "none") (parameters '("gint" "column") '("AtkObject*" "header") ) ) (define-method set_row_description (of-object "AtkTable") (c-name "atk_table_set_row_description") (return-type "none") (parameters '("gint" "row") '("const-gchar*" "description") ) ) (define-method set_row_header (of-object "AtkTable") (c-name "atk_table_set_row_header") (return-type "none") (parameters '("gint" "row") '("AtkObject*" "header") ) ) (define-method set_summary (of-object "AtkTable") (c-name "atk_table_set_summary") (return-type "none") (parameters '("AtkObject*" "accessible") ) ) (define-method get_selected_columns (of-object "AtkTable") (c-name "atk_table_get_selected_columns") (return-type "gint") (parameters '("gint**" "selected") ) ) (define-method get_selected_rows (of-object "AtkTable") (c-name "atk_table_get_selected_rows") (return-type "gint") (parameters '("gint**" "selected") ) ) (define-method is_column_selected (of-object "AtkTable") (c-name "atk_table_is_column_selected") (return-type "gboolean") (parameters '("gint" "column") ) ) (define-method is_row_selected (of-object "AtkTable") (c-name "atk_table_is_row_selected") (return-type "gboolean") (parameters '("gint" "row") ) ) (define-method is_selected (of-object "AtkTable") (c-name "atk_table_is_selected") (return-type "gboolean") (parameters '("gint" "row") '("gint" "column") ) ) (define-method add_row_selection (of-object "AtkTable") (c-name "atk_table_add_row_selection") (return-type "gboolean") (parameters '("gint" "row") ) ) (define-method remove_row_selection (of-object "AtkTable") (c-name "atk_table_remove_row_selection") (return-type "gboolean") (parameters '("gint" "row") ) ) (define-method add_column_selection (of-object "AtkTable") (c-name "atk_table_add_column_selection") (return-type "gboolean") (parameters '("gint" "column") ) ) (define-method remove_column_selection (of-object "AtkTable") (c-name "atk_table_remove_column_selection") (return-type "gboolean") (parameters '("gint" "column") ) ) ;; From /opt/gnome2/include/atk-1.0/atk/atktext.h (define-function atk_text_get_type (c-name "atk_text_get_type") (return-type "GType") ) (define-method get_text (of-object "AtkText") (c-name "atk_text_get_text") (return-type "gchar*") (parameters '("gint" "start_offset") '("gint" "end_offset") ) ) (define-method get_character_at_offset (of-object "AtkText") (c-name "atk_text_get_character_at_offset") (return-type "gunichar") (parameters '("gint" "offset") ) ) (define-method get_text_after_offset (of-object "AtkText") (c-name "atk_text_get_text_after_offset") (return-type "gchar*") (parameters '("gint" "offset") '("AtkTextBoundary" "boundary_type") '("gint*" "start_offset") '("gint*" "end_offset") ) ) (define-method get_text_at_offset (of-object "AtkText") (c-name "atk_text_get_text_at_offset") (return-type "gchar*") (parameters '("gint" "offset") '("AtkTextBoundary" "boundary_type") '("gint*" "start_offset") '("gint*" "end_offset") ) ) (define-method get_text_before_offset (of-object "AtkText") (c-name "atk_text_get_text_before_offset") (return-type "gchar*") (parameters '("gint" "offset") '("AtkTextBoundary" "boundary_type") '("gint*" "start_offset") '("gint*" "end_offset") ) ) (define-method get_caret_offset (of-object "AtkText") (c-name "atk_text_get_caret_offset") (return-type "gint") ) (define-method get_character_extents (of-object "AtkText") (c-name "atk_text_get_character_extents") (return-type "none") (parameters '("gint" "offset") '("gint*" "x") '("gint*" "y") '("gint*" "width") '("gint*" "height") '("AtkCoordType" "coords") ) ) (define-method get_run_attributes (of-object "AtkText") (c-name "atk_text_get_run_attributes") (return-type "AtkAttributeSet*") (parameters '("gint" "offset") '("gint*" "start_offset") '("gint*" "end_offset") ) ) (define-method get_default_attributes (of-object "AtkText") (c-name "atk_text_get_default_attributes") (return-type "AtkAttributeSet*") ) (define-method get_character_count (of-object "AtkText") (c-name "atk_text_get_character_count") (return-type "gint") ) (define-method get_offset_at_point (of-object "AtkText") (c-name "atk_text_get_offset_at_point") (return-type "gint") (parameters '("gint" "x") '("gint" "y") '("AtkCoordType" "coords") ) ) (define-method get_n_selections (of-object "AtkText") (c-name "atk_text_get_n_selections") (return-type "gint") ) (define-method get_selection (of-object "AtkText") (c-name "atk_text_get_selection") (return-type "gchar*") (parameters '("gint" "selection_num") '("gint*" "start_offset") '("gint*" "end_offset") ) ) (define-method add_selection (of-object "AtkText") (c-name "atk_text_add_selection") (return-type "gboolean") (parameters '("gint" "start_offset") '("gint" "end_offset") ) ) (define-method remove_selection (of-object "AtkText") (c-name "atk_text_remove_selection") (return-type "gboolean") (parameters '("gint" "selection_num") ) ) (define-method set_selection (of-object "AtkText") (c-name "atk_text_set_selection") (return-type "gboolean") (parameters '("gint" "selection_num") '("gint" "start_offset") '("gint" "end_offset") ) ) (define-method set_caret_offset (of-object "AtkText") (c-name "atk_text_set_caret_offset") (return-type "gboolean") (parameters '("gint" "offset") ) ) (define-method get_range_extents (of-object "AtkText") (c-name "atk_text_get_range_extents") (return-type "none") (parameters '("gint" "start_offset") '("gint" "end_offset") '("AtkCoordType" "coord_type") '("AtkTextRectangle*" "rect") ) ) (define-method get_bounded_ranges (of-object "AtkText") (c-name "atk_text_get_bounded_ranges") (return-type "AtkTextRange**") (parameters '("AtkTextRectangle*" "rect") '("AtkCoordType" "coord_type") '("AtkTextClipType" "x_clip_type") '("AtkTextClipType" "y_clip_type") ) ) (define-function atk_text_free_ranges (c-name "atk_text_free_ranges") (return-type "none") (parameters '("AtkTextRange**" "ranges") ) ) (define-method free (of-object "AtkAttributeSet") (c-name "atk_attribute_set_free") (return-type "none") ) (define-function atk_text_attribute_get_name (c-name "atk_text_attribute_get_name") (return-type "const-gchar*") (parameters '("AtkTextAttribute" "attr") ) ) (define-function atk_text_attribute_for_name (c-name "atk_text_attribute_for_name") (return-type "AtkTextAttribute") (parameters '("const-gchar*" "name") ) ) (define-function atk_text_attribute_get_value (c-name "atk_text_attribute_get_value") (return-type "const-gchar*") (parameters '("AtkTextAttribute" "attr") '("gint" "index_") ) ) ;; From /opt/gnome2/include/atk-1.0/atk/atkutil.h (define-function atk_util_get_type (c-name "atk_util_get_type") (return-type "GType") ) (define-function atk_add_focus_tracker (c-name "atk_add_focus_tracker") (return-type "guint") (parameters '("AtkEventListener" "focus_tracker") ) ) (define-function atk_remove_focus_tracker (c-name "atk_remove_focus_tracker") (return-type "none") (parameters '("guint" "tracker_id") ) ) (define-function atk_focus_tracker_init (c-name "atk_focus_tracker_init") (return-type "none") (parameters '("AtkEventListenerInit" "init") ) ) (define-function atk_focus_tracker_notify (c-name "atk_focus_tracker_notify") (return-type "none") (parameters '("AtkObject*" "object") ) ) (define-function atk_add_global_event_listener (c-name "atk_add_global_event_listener") (return-type "guint") (parameters '("GSignalEmissionHook" "listener") '("const-gchar*" "event_type") ) ) (define-function atk_remove_global_event_listener (c-name "atk_remove_global_event_listener") (return-type "none") (parameters '("guint" "listener_id") ) ) (define-function atk_add_key_event_listener (c-name "atk_add_key_event_listener") (return-type "guint") (parameters '("AtkKeySnoopFunc" "listener") '("gpointer" "data") ) ) (define-function atk_remove_key_event_listener (c-name "atk_remove_key_event_listener") (return-type "none") (parameters '("guint" "listener_id") ) ) (define-function atk_get_root (c-name "atk_get_root") (return-type "AtkObject*") ) (define-function atk_get_focus_object (c-name "atk_get_focus_object") (return-type "AtkObject*") ) (define-function atk_get_toolkit_name (c-name "atk_get_toolkit_name") (return-type "const-gchar*") ) (define-function atk_get_toolkit_version (c-name "atk_get_toolkit_version") (return-type "const-gchar*") ) ;; From /opt/gnome2/include/atk-1.0/atk/atkvalue.h (define-function atk_value_get_type (c-name "atk_value_get_type") (return-type "GType") ) (define-method get_current_value (of-object "AtkValue") (c-name "atk_value_get_current_value") (return-type "none") (parameters '("GValue*" "value") ) ) (define-method get_maximum_value (of-object "AtkValue") (c-name "atk_value_get_maximum_value") (return-type "none") (parameters '("GValue*" "value") ) ) (define-method get_minimum_value (of-object "AtkValue") (c-name "atk_value_get_minimum_value") (return-type "none") (parameters '("GValue*" "value") ) ) (define-method set_current_value (of-object "AtkValue") (c-name "atk_value_set_current_value") (return-type "gboolean") (parameters '("const-GValue*" "value") ) ) (define-method get_minimum_increment (of-object "AtkValue") (c-name "atk_value_get_minimum_increment") (return-type "none") (parameters '("GValue*" "value") ) ) guile-gnome-platform-2.16.2/defs/gnome/defs/libglade-types.defs0000644000175000017500000000032111670374302024702 0ustar00wingowingo00000000000000;; -*- scheme -*- ;; Enumerations and flags ... ;; -*- scheme -*- ; object definitions ... (define-object XML (in-module "Glade") (parent "GObject") (c-name "GladeXML") (gtype-id "GLADE_TYPE_XML") ) guile-gnome-platform-2.16.2/defs/gnome/defs/gtksourceview.defs0000644000175000017500000006567111670374302024721 0ustar00wingowingo00000000000000;; -*- scheme -*- ; object definitions ... (define-object SourceBuffer (in-module "Gtk") (parent "GtkTextBuffer") (c-name "GtkSourceBuffer") (gtype-id "GTK_TYPE_SOURCE_BUFFER") ) (define-object SourceLanguage (in-module "Gtk") (parent "GObject") (c-name "GtkSourceLanguage") (gtype-id "GTK_TYPE_SOURCE_LANGUAGE") ) (define-object SourceLanguagesManager (in-module "Gtk") (parent "GObject") (c-name "GtkSourceLanguagesManager") (gtype-id "GTK_TYPE_SOURCE_LANGUAGES_MANAGER") ) (define-object SourcePrintJob (in-module "Gtk") (parent "GObject") (c-name "GtkSourcePrintJob") (gtype-id "GTK_TYPE_SOURCE_PRINT_JOB") ) (define-object SourceTagTable (in-module "Gtk") (parent "GtkTextTagTable") (c-name "GtkSourceTagTable") (gtype-id "GTK_TYPE_SOURCE_TAG_TABLE") ) (define-object SourceView (in-module "Gtk") (parent "GtkTextView") (c-name "GtkSourceView") (gtype-id "GTK_TYPE_SOURCE_VIEW") ) ;; Enumerations and flags ... (define-enum SourceSearchFlags (in-module "Gtk") (c-name "GtkSourceSearchFlags") (gtype-id "GTK_TYPE_SOURCE_SEARCH_FLAGS") (values '("visible-only" "GTK_SOURCE_SEARCH_VISIBLE_ONLY") '("text-only" "GTK_SOURCE_SEARCH_TEXT_ONLY") '("case-insensitive" "GTK_SOURCE_SEARCH_CASE_INSENSITIVE") ) ) (define-flags SourceTagStyleMask (in-module "Gtk") (c-name "GtkSourceTagStyleMask") (gtype-id "GTK_TYPE_SOURCE_TAG_STYLE_MASK") (values '("background" "GTK_SOURCE_TAG_STYLE_USE_BACKGROUND") '("foreground" "GTK_SOURCE_TAG_STYLE_USE_FOREGROUND") ) ) (include overrides) ;; From /usr/include/gtksourceview-1.0/gtksourceview/gtksourcebuffer.h (define-function gtk_source_buffer_get_type (c-name "gtk_source_buffer_get_type") (return-type "GType") ) (define-function gtk_source_buffer_new (c-name "gtk_source_buffer_new") (is-constructor-of "GtkSourceBuffer") (return-type "GtkSourceBuffer*") (parameters '("GtkSourceTagTable*" "table") ) ) (define-function gtk_source_buffer_new_with_language (c-name "gtk_source_buffer_new_with_language") (return-type "GtkSourceBuffer*") (parameters '("GtkSourceLanguage*" "language") ) ) (define-method get_check_brackets (of-object "GtkSourceBuffer") (c-name "gtk_source_buffer_get_check_brackets") (return-type "gboolean") ) (define-method set_check_brackets (of-object "GtkSourceBuffer") (c-name "gtk_source_buffer_set_check_brackets") (return-type "none") (parameters '("gboolean" "check_brackets") ) ) (define-method set_bracket_match_style (of-object "GtkSourceBuffer") (c-name "gtk_source_buffer_set_bracket_match_style") (return-type "none") (parameters '("const-GtkSourceTagStyle*" "style") ) ) (define-method get_highlight (of-object "GtkSourceBuffer") (c-name "gtk_source_buffer_get_highlight") (return-type "gboolean") ) (define-method set_highlight (of-object "GtkSourceBuffer") (c-name "gtk_source_buffer_set_highlight") (return-type "none") (parameters '("gboolean" "highlight") ) ) (define-method get_max_undo_levels (of-object "GtkSourceBuffer") (c-name "gtk_source_buffer_get_max_undo_levels") (return-type "gint") ) (define-method set_max_undo_levels (of-object "GtkSourceBuffer") (c-name "gtk_source_buffer_set_max_undo_levels") (return-type "none") (parameters '("gint" "max_undo_levels") ) ) (define-method get_language (of-object "GtkSourceBuffer") (c-name "gtk_source_buffer_get_language") (return-type "GtkSourceLanguage*") ) (define-method set_language (of-object "GtkSourceBuffer") (c-name "gtk_source_buffer_set_language") (return-type "none") (parameters '("GtkSourceLanguage*" "language") ) ) (define-method get_escape_char (of-object "GtkSourceBuffer") (c-name "gtk_source_buffer_get_escape_char") (return-type "gunichar") ) (define-method set_escape_char (of-object "GtkSourceBuffer") (c-name "gtk_source_buffer_set_escape_char") (return-type "none") (parameters '("gunichar" "escape_char") ) ) (define-method can_undo (of-object "GtkSourceBuffer") (c-name "gtk_source_buffer_can_undo") (return-type "gboolean") ) (define-method can_redo (of-object "GtkSourceBuffer") (c-name "gtk_source_buffer_can_redo") (return-type "gboolean") ) (define-method undo (of-object "GtkSourceBuffer") (c-name "gtk_source_buffer_undo") (return-type "none") ) (define-method redo (of-object "GtkSourceBuffer") (c-name "gtk_source_buffer_redo") (return-type "none") ) (define-method begin_not_undoable_action (of-object "GtkSourceBuffer") (c-name "gtk_source_buffer_begin_not_undoable_action") (return-type "none") ) (define-method end_not_undoable_action (of-object "GtkSourceBuffer") (c-name "gtk_source_buffer_end_not_undoable_action") (return-type "none") ) (define-method create_marker (of-object "GtkSourceBuffer") (c-name "gtk_source_buffer_create_marker") (return-type "GtkSourceMarker*") (parameters '("const-gchar*" "name") '("const-gchar*" "type") '("const-GtkTextIter*" "where") ) ) (define-method move_marker (of-object "GtkSourceBuffer") (c-name "gtk_source_buffer_move_marker") (return-type "none") (parameters '("GtkSourceMarker*" "marker") '("const-GtkTextIter*" "where") ) ) (define-method delete_marker (of-object "GtkSourceBuffer") (c-name "gtk_source_buffer_delete_marker") (return-type "none") (parameters '("GtkSourceMarker*" "marker") ) ) (define-method get_marker (of-object "GtkSourceBuffer") (c-name "gtk_source_buffer_get_marker") (return-type "GtkSourceMarker*") (parameters '("const-gchar*" "name") ) ) (define-method get_markers_in_region (of-object "GtkSourceBuffer") (c-name "gtk_source_buffer_get_markers_in_region") (return-type "GSList*-of-GtkSourceMarker*") (parameters '("const-GtkTextIter*" "begin") '("const-GtkTextIter*" "end") ) ) (define-method get_first_marker (of-object "GtkSourceBuffer") (c-name "gtk_source_buffer_get_first_marker") (return-type "GtkSourceMarker*") ) (define-method get_last_marker (of-object "GtkSourceBuffer") (c-name "gtk_source_buffer_get_last_marker") (return-type "GtkSourceMarker*") ) (define-method get_iter_at_marker (of-object "GtkSourceBuffer") (c-name "gtk_source_buffer_get_iter_at_marker") (return-type "none") (parameters '("GtkTextIter*" "iter") '("GtkSourceMarker*" "marker") ) ) (define-method get_next_marker (of-object "GtkSourceBuffer") (c-name "gtk_source_buffer_get_next_marker") (return-type "GtkSourceMarker*") (parameters '("GtkTextIter*" "iter") ) ) (define-method get_prev_marker (of-object "GtkSourceBuffer") (c-name "gtk_source_buffer_get_prev_marker") (return-type "GtkSourceMarker*") (parameters '("GtkTextIter*" "iter") ) ) (define-method _highlight_region (of-object "GtkSourceBuffer") (c-name "_gtk_source_buffer_highlight_region") (return-type "none") (parameters '("const-GtkTextIter*" "start") '("const-GtkTextIter*" "end") '("gboolean" "highlight_now") ) ) ;; From /usr/include/gtksourceview-1.0/gtksourceview/gtksourceiter.h (define-function gtk_source_iter_backward_search (c-name "gtk_source_iter_backward_search") (return-type "gboolean") (parameters '("const-GtkTextIter*" "iter") '("const-gchar*" "str") '("GtkSourceSearchFlags" "flags") '("GtkTextIter*" "match_start") '("GtkTextIter*" "match_end") '("const-GtkTextIter*" "limit") ) ) (define-function gtk_source_iter_find_matching_bracket (c-name "gtk_source_iter_find_matching_bracket") (return-type "gboolean") (parameters '("GtkTextIter*" "iter") ) ) ;; From /usr/include/gtksourceview-1.0/gtksourceview/gtksourcelanguage.h (define-function gtk_source_language_get_type (c-name "gtk_source_language_get_type") (return-type "GType") ) (define-method get_id (of-object "GtkSourceLanguage") (c-name "gtk_source_language_get_id") (return-type "gchar*") ) (define-method get_name (of-object "GtkSourceLanguage") (c-name "gtk_source_language_get_name") (return-type "gchar*") ) (define-method get_section (of-object "GtkSourceLanguage") (c-name "gtk_source_language_get_section") (return-type "gchar*") ) (define-method get_tags (of-object "GtkSourceLanguage") (c-name "gtk_source_language_get_tags") (return-type "GSList*-of-GtkSourceTag*") ) (define-method get_escape_char (of-object "GtkSourceLanguage") (c-name "gtk_source_language_get_escape_char") (return-type "gunichar") ) (define-method get_mime_types (of-object "GtkSourceLanguage") (c-name "gtk_source_language_get_mime_types") (return-type "GSList*-of-const-gchar*") ;; Dunno... ) (define-method set_mime_types (of-object "GtkSourceLanguage") (c-name "gtk_source_language_set_mime_types") (return-type "none") (parameters '("const-GSList*-of-const-gchar*" "mime_types") ;; I think, anyway... ) ) (define-method get_style_scheme (of-object "GtkSourceLanguage") (c-name "gtk_source_language_get_style_scheme") (return-type "GtkSourceStyleScheme*") ) (define-method set_style_scheme (of-object "GtkSourceLanguage") (c-name "gtk_source_language_set_style_scheme") (return-type "none") (parameters '("GtkSourceStyleScheme*" "scheme") ) ) (define-method get_tag_style (of-object "GtkSourceLanguage") (c-name "gtk_source_language_get_tag_style") (return-type "GtkSourceTagStyle*") (parameters '("const-gchar*" "tag_id") ) ) (define-method set_tag_style (of-object "GtkSourceLanguage") (c-name "gtk_source_language_set_tag_style") (return-type "none") (parameters '("const-gchar*" "tag_id") '("const-GtkSourceTagStyle*" "style") ) ) (define-method get_tag_default_style (of-object "GtkSourceLanguage") (c-name "gtk_source_language_get_tag_default_style") (return-type "GtkSourceTagStyle*") (parameters '("const-gchar*" "tag_id") ) ) ;; From /usr/include/gtksourceview-1.0/gtksourceview/gtksourcelanguagesmanager.h (define-function gtk_source_languages_manager_get_type (c-name "gtk_source_languages_manager_get_type") (return-type "GType") ) (define-function gtk_source_languages_manager_new (c-name "gtk_source_languages_manager_new") (is-constructor-of "GtkSourceLanguagesManager") (return-type "GtkSourceLanguagesManager*") ) (define-method get_available_languages (of-object "GtkSourceLanguagesManager") (c-name "gtk_source_languages_manager_get_available_languages") (return-type "const-GSList*-of-const-GtkSourceLanguage*") ) (define-method get_language_from_mime_type (of-object "GtkSourceLanguagesManager") (c-name "gtk_source_languages_manager_get_language_from_mime_type") (return-type "GtkSourceLanguage*") (parameters '("const-gchar*" "mime_type") ) ) (define-method get_lang_files_dirs (of-object "GtkSourceLanguagesManager") (c-name "gtk_source_languages_manager_get_lang_files_dirs") (return-type "const-GSList*-of-const-gchar*") ) ;; From /usr/include/gtksourceview-1.0/gtksourceview/gtksourcemarker.h (define-method set_marker_type (of-object "GtkSourceMarker") (c-name "gtk_source_marker_set_marker_type") (return-type "none") (parameters '("const-gchar*" "type") ) ) (define-method get_marker_type (of-object "GtkSourceMarker") (c-name "gtk_source_marker_get_marker_type") (return-type "gchar*") ) (define-method get_line (of-object "GtkSourceMarker") (c-name "gtk_source_marker_get_line") (return-type "gint") ) (define-method get_name (of-object "GtkSourceMarker") (c-name "gtk_source_marker_get_name") (return-type "const-gchar*") ) (define-method get_buffer (of-object "GtkSourceMarker") (c-name "gtk_source_marker_get_buffer") (return-type "GtkSourceBuffer*") ) (define-method next (of-object "GtkSourceMarker") (c-name "gtk_source_marker_next") (return-type "GtkSourceMarker*") ) (define-method prev (of-object "GtkSourceMarker") (c-name "gtk_source_marker_prev") (return-type "GtkSourceMarker*") ) (define-method _changed (of-object "GtkSourceMarker") (c-name "_gtk_source_marker_changed") (return-type "none") ) (define-method _link (of-object "GtkSourceMarker") (c-name "_gtk_source_marker_link") (return-type "none") (parameters '("GtkSourceMarker*" "sibling") '("gboolean" "after_sibling") ) ) (define-method _unlink (of-object "GtkSourceMarker") (c-name "_gtk_source_marker_unlink") (return-type "none") ) ;; From /usr/include/gtksourceview-1.0/gtksourceview/gtksourceprintjob.h (define-function gtk_source_print_job_get_type (c-name "gtk_source_print_job_get_type") (return-type "GType") ) (define-function gtk_source_print_job_new (c-name "gtk_source_print_job_new") (is-constructor-of "GtkSourcePrintJob") (return-type "GtkSourcePrintJob*") (parameters '("GnomePrintConfig*" "config") ) ) (define-function gtk_source_print_job_new_with_buffer (c-name "gtk_source_print_job_new_with_buffer") (return-type "GtkSourcePrintJob*") (parameters '("GnomePrintConfig*" "config") '("GtkSourceBuffer*" "buffer") ) ) (define-method set_config (of-object "GtkSourcePrintJob") (c-name "gtk_source_print_job_set_config") (return-type "none") (parameters '("GnomePrintConfig*" "config") ) ) (define-method get_config (of-object "GtkSourcePrintJob") (c-name "gtk_source_print_job_get_config") (return-type "GnomePrintConfig*") ) (define-method set_buffer (of-object "GtkSourcePrintJob") (c-name "gtk_source_print_job_set_buffer") (return-type "none") (parameters '("GtkSourceBuffer*" "buffer") ) ) (define-method get_buffer (of-object "GtkSourcePrintJob") (c-name "gtk_source_print_job_get_buffer") (return-type "GtkSourceBuffer*") ) (define-method setup_from_view (of-object "GtkSourcePrintJob") (c-name "gtk_source_print_job_setup_from_view") (return-type "none") (parameters '("GtkSourceView*" "view") ) ) (define-method set_tabs_width (of-object "GtkSourcePrintJob") (c-name "gtk_source_print_job_set_tabs_width") (return-type "none") (parameters '("guint" "tabs_width") ) ) (define-method get_tabs_width (of-object "GtkSourcePrintJob") (c-name "gtk_source_print_job_get_tabs_width") (return-type "guint") ) (define-method set_wrap_mode (of-object "GtkSourcePrintJob") (c-name "gtk_source_print_job_set_wrap_mode") (return-type "none") (parameters '("GtkWrapMode" "wrap") ) ) (define-method get_wrap_mode (of-object "GtkSourcePrintJob") (c-name "gtk_source_print_job_get_wrap_mode") (return-type "GtkWrapMode") ) (define-method set_highlight (of-object "GtkSourcePrintJob") (c-name "gtk_source_print_job_set_highlight") (return-type "none") (parameters '("gboolean" "highlight") ) ) (define-method get_highlight (of-object "GtkSourcePrintJob") (c-name "gtk_source_print_job_get_highlight") (return-type "gboolean") ) (define-method set_font (of-object "GtkSourcePrintJob") (c-name "gtk_source_print_job_set_font") (return-type "none") (parameters '("const-gchar*" "font_name") ) ) (define-method get_font (of-object "GtkSourcePrintJob") (c-name "gtk_source_print_job_get_font") (return-type "gchar*") ) (define-method set_numbers_font (of-object "GtkSourcePrintJob") (c-name "gtk_source_print_job_set_numbers_font") (return-type "none") (parameters '("const-gchar*" "font_name") ) ) (define-method get_numbers_font (of-object "GtkSourcePrintJob") (c-name "gtk_source_print_job_get_numbers_font") (return-type "gchar*") ) (define-method set_print_numbers (of-object "GtkSourcePrintJob") (c-name "gtk_source_print_job_set_print_numbers") (return-type "none") (parameters '("guint" "interval") ) ) (define-method get_print_numbers (of-object "GtkSourcePrintJob") (c-name "gtk_source_print_job_get_print_numbers") (return-type "guint") ) (define-method set_text_margins (of-object "GtkSourcePrintJob") (c-name "gtk_source_print_job_set_text_margins") (return-type "none") (parameters '("gdouble" "top") '("gdouble" "bottom") '("gdouble" "left") '("gdouble" "right") ) ) (define-method get_text_margins (of-object "GtkSourcePrintJob") (c-name "gtk_source_print_job_get_text_margins") (return-type "none") (parameters '("gdouble*" "top") '("gdouble*" "bottom") '("gdouble*" "left") '("gdouble*" "right") ) ) (define-method print (of-object "GtkSourcePrintJob") (c-name "gtk_source_print_job_print") (return-type "GnomePrintJob*") ) (define-method print_range (of-object "GtkSourcePrintJob") (c-name "gtk_source_print_job_print_range") (return-type "GnomePrintJob*") (parameters '("const-GtkTextIter*" "start") '("const-GtkTextIter*" "end") ) ) (define-method print_range_async (of-object "GtkSourcePrintJob") (c-name "gtk_source_print_job_print_range_async") (return-type "gboolean") (parameters '("const-GtkTextIter*" "start") '("const-GtkTextIter*" "end") ) ) (define-method cancel (of-object "GtkSourcePrintJob") (c-name "gtk_source_print_job_cancel") (return-type "none") ) (define-method get_print_job (of-object "GtkSourcePrintJob") (c-name "gtk_source_print_job_get_print_job") (return-type "GnomePrintJob*") ) (define-method get_page (of-object "GtkSourcePrintJob") (c-name "gtk_source_print_job_get_page") (return-type "guint") ) (define-method get_page_count (of-object "GtkSourcePrintJob") (c-name "gtk_source_print_job_get_page_count") (return-type "guint") ) (define-method get_print_context (of-object "GtkSourcePrintJob") (c-name "gtk_source_print_job_get_print_context") (return-type "GnomePrintContext*") ) (define-method set_print_header (of-object "GtkSourcePrintJob") (c-name "gtk_source_print_job_set_print_header") (return-type "none") (parameters '("gboolean" "setting") ) ) (define-method get_print_header (of-object "GtkSourcePrintJob") (c-name "gtk_source_print_job_get_print_header") (return-type "gboolean") ) (define-method set_print_footer (of-object "GtkSourcePrintJob") (c-name "gtk_source_print_job_set_print_footer") (return-type "none") (parameters '("gboolean" "setting") ) ) (define-method get_print_footer (of-object "GtkSourcePrintJob") (c-name "gtk_source_print_job_get_print_footer") (return-type "gboolean") ) (define-method set_header_footer_font (of-object "GtkSourcePrintJob") (c-name "gtk_source_print_job_set_header_footer_font") (return-type "none") (parameters '("const-gchar*" "font_name") ) ) (define-method get_header_footer_font (of-object "GtkSourcePrintJob") (c-name "gtk_source_print_job_get_header_footer_font") (return-type "gchar*") ) (define-method set_header_format (of-object "GtkSourcePrintJob") (c-name "gtk_source_print_job_set_header_format") (return-type "none") (parameters '("const-gchar*" "left") '("const-gchar*" "center") '("const-gchar*" "right") '("gboolean" "separator") ) ) (define-method set_footer_format (of-object "GtkSourcePrintJob") (c-name "gtk_source_print_job_set_footer_format") (return-type "none") (parameters '("const-gchar*" "left") '("const-gchar*" "center") '("const-gchar*" "right") '("gboolean" "separator") ) ) ;; From /usr/include/gtksourceview-1.0/gtksourceview/gtksourcestylescheme.h (define-function gtk_source_style_scheme_get_type (c-name "gtk_source_style_scheme_get_type") (return-type "GType") ) (define-method get_tag_style (of-object "GtkSourceStyleScheme") (c-name "gtk_source_style_scheme_get_tag_style") (return-type "GtkSourceTagStyle*") (parameters '("const-gchar*" "style_name") ) ) (define-method get_name (of-object "GtkSourceStyleScheme") (c-name "gtk_source_style_scheme_get_name") (return-type "const-gchar*") ) (define-method get_style_names (of-object "GtkSourceStyleScheme") (c-name "gtk_source_style_scheme_get_style_names") (return-type "GSList*-of-const-gchar*") ;; Dunno... ) (define-function gtk_source_style_scheme_get_default (c-name "gtk_source_style_scheme_get_default") (return-type "GtkSourceStyleScheme*") ) ;; From /usr/include/gtksourceview-1.0/gtksourceview/gtksourcetag.h (define-method get_id (of-object "GtkSourceTag") (c-name "gtk_source_tag_get_id") (return-type "gchar*") ) (define-method get_style (of-object "GtkSourceTag") (c-name "gtk_source_tag_get_style") (return-type "GtkSourceTagStyle*") ) (define-method set_style (of-object "GtkSourceTag") (c-name "gtk_source_tag_set_style") (return-type "none") (parameters '("const-GtkSourceTagStyle*" "style") ) ) (define-function gtk_syntax_tag_get_type (c-name "gtk_syntax_tag_get_type") (return-type "GType") ) (define-function gtk_syntax_tag_new (c-name "gtk_syntax_tag_new") (is-constructor-of "GtkSyntaxTag") (return-type "GtkTextTag*") (parameters '("const-gchar*" "id") '("const-gchar*" "name") '("const-gchar*" "pattern_start") '("const-gchar*" "pattern_end") ) ) (define-function gtk_pattern_tag_get_type (c-name "gtk_pattern_tag_get_type") (return-type "GType") ) (define-function gtk_pattern_tag_new (c-name "gtk_pattern_tag_new") (is-constructor-of "GtkPatternTag") (return-type "GtkTextTag*") (parameters '("const-gchar*" "id") '("const-gchar*" "name") '("const-gchar*" "pattern") ) ) (define-function gtk_keyword_list_tag_new (c-name "gtk_keyword_list_tag_new") (is-constructor-of "GtkKeywordListTag") (return-type "GtkTextTag*") (parameters '("const-gchar*" "id") '("const-gchar*" "name") '("const-GSList*-of-const-gchar*" "keywords") '("gboolean" "case_sensitive") '("gboolean" "match_empty_string_at_beginning") '("gboolean" "match_empty_string_at_end") '("const-gchar*" "beginning_regex") '("const-gchar*" "end_regex") ) ) (define-function gtk_line_comment_tag_new (c-name "gtk_line_comment_tag_new") (is-constructor-of "GtkLineCommentTag") (return-type "GtkTextTag*") (parameters '("const-gchar*" "id") '("const-gchar*" "name") '("const-gchar*" "pattern_start") ) ) (define-function gtk_string_tag_new (c-name "gtk_string_tag_new") (is-constructor-of "GtkStringTag") (return-type "GtkTextTag*") (parameters '("const-gchar*" "id") '("const-gchar*" "name") '("const-gchar*" "pattern_start") '("const-gchar*" "pattern_end") '("gboolean" "end_at_line_end") ) ) ;; From /usr/include/gtksourceview-1.0/gtksourceview/gtksourcetagstyle.h (define-function gtk_source_tag_style_get_type (c-name "gtk_source_tag_style_get_type") (return-type "GType") ) (define-function gtk_source_tag_style_new (c-name "gtk_source_tag_style_new") (is-constructor-of "GtkSourceTagStyle") (return-type "GtkSourceTagStyle*") ) (define-method copy (of-object "GtkSourceTagStyle") (c-name "gtk_source_tag_style_copy") (return-type "GtkSourceTagStyle*") ) (define-method free (of-object "GtkSourceTagStyle") (c-name "gtk_source_tag_style_free") (return-type "none") ) ;; From /usr/include/gtksourceview-1.0/gtksourceview/gtksourcetagtable.h (define-function gtk_source_tag_table_get_type (c-name "gtk_source_tag_table_get_type") (return-type "GType") ) (define-function gtk_source_tag_table_new (c-name "gtk_source_tag_table_new") (is-constructor-of "GtkSourceTagTable") (return-type "GtkSourceTagTable*") ) (define-method add_tags (of-object "GtkSourceTagTable") (c-name "gtk_source_tag_table_add_tags") (return-type "none") (parameters '("const-GSList*-of-GtkSourceTag*" "tags") ) ) (define-method remove_source_tags (of-object "GtkSourceTagTable") (c-name "gtk_source_tag_table_remove_source_tags") (return-type "none") ) ;; From /usr/include/gtksourceview-1.0/gtksourceview/gtksourceview.h (define-function gtk_source_view_get_type (c-name "gtk_source_view_get_type") (return-type "GType") ) (define-function gtk_source_view_new (c-name "gtk_source_view_new") (is-constructor-of "GtkSourceView") (return-type "GtkWidget*") ) (define-function gtk_source_view_new_with_buffer (c-name "gtk_source_view_new_with_buffer") (return-type "GtkWidget*") (parameters '("GtkSourceBuffer*" "buffer") ) ) (define-method set_show_line_numbers (of-object "GtkSourceView") (c-name "gtk_source_view_set_show_line_numbers") (return-type "none") (parameters '("gboolean" "show") ) ) (define-method get_show_line_numbers (of-object "GtkSourceView") (c-name "gtk_source_view_get_show_line_numbers") (return-type "gboolean") ) (define-method set_show_line_markers (of-object "GtkSourceView") (c-name "gtk_source_view_set_show_line_markers") (return-type "none") (parameters '("gboolean" "show") ) ) (define-method get_show_line_markers (of-object "GtkSourceView") (c-name "gtk_source_view_get_show_line_markers") (return-type "gboolean") ) (define-method set_tabs_width (of-object "GtkSourceView") (c-name "gtk_source_view_set_tabs_width") (return-type "none") (parameters '("guint" "width") ) ) (define-method get_tabs_width (of-object "GtkSourceView") (c-name "gtk_source_view_get_tabs_width") (return-type "guint") ) (define-method set_auto_indent (of-object "GtkSourceView") (c-name "gtk_source_view_set_auto_indent") (return-type "none") (parameters '("gboolean" "enable") ) ) (define-method get_auto_indent (of-object "GtkSourceView") (c-name "gtk_source_view_get_auto_indent") (return-type "gboolean") ) (define-method set_insert_spaces_instead_of_tabs (of-object "GtkSourceView") (c-name "gtk_source_view_set_insert_spaces_instead_of_tabs") (return-type "none") (parameters '("gboolean" "enable") ) ) (define-method get_insert_spaces_instead_of_tabs (of-object "GtkSourceView") (c-name "gtk_source_view_get_insert_spaces_instead_of_tabs") (return-type "gboolean") ) (define-method set_show_margin (of-object "GtkSourceView") (c-name "gtk_source_view_set_show_margin") (return-type "none") (parameters '("gboolean" "show") ) ) (define-method get_show_margin (of-object "GtkSourceView") (c-name "gtk_source_view_get_show_margin") (return-type "gboolean") ) (define-method set_margin (of-object "GtkSourceView") (c-name "gtk_source_view_set_margin") (return-type "none") (parameters '("guint" "margin") ) ) (define-method get_margin (of-object "GtkSourceView") (c-name "gtk_source_view_get_margin") (return-type "guint") ) (define-method set_marker_pixbuf (of-object "GtkSourceView") (c-name "gtk_source_view_set_marker_pixbuf") (return-type "none") (parameters '("const-gchar*" "marker_type") '("GdkPixbuf*" "pixbuf") ) ) (define-method get_marker_pixbuf (of-object "GtkSourceView") (c-name "gtk_source_view_get_marker_pixbuf") (return-type "GdkPixbuf*") (parameters '("const-gchar*" "marker_type") ) ) (define-method set_smart_home_end (of-object "GtkSourceView") (c-name "gtk_source_view_set_smart_home_end") (return-type "none") (parameters '("gboolean" "enable") ) ) (define-method get_smart_home_end (of-object "GtkSourceView") (c-name "gtk_source_view_get_smart_home_end") (return-type "gboolean") ) ;; From /usr/include/gtksourceview-1.0/gtksourceview/gtksourceview-typebuiltins.h (define-function gtk_source_tag_style_mask_get_type (c-name "gtk_source_tag_style_mask_get_type") (return-type "GType") ) guile-gnome-platform-2.16.2/defs/gnome/defs/bonobo-types.defs0000644000175000017500000000345411670374302024427 0ustar00wingowingo00000000000000;; -*- scheme -*- ; object definitions ... (define-object Object (in-module "Bonobo") (parent "GObject") (c-name "BonoboObject") (gtype-id "BONOBO_TYPE_OBJECT") ) (define-object GenericFactory (in-module "Bonobo") (parent "BonoboObject") (c-name "BonoboGenericFactory") (gtype-id "BONOBO_TYPE_GENERIC_FACTORY") ) (define-object ItemHandler (in-module "Bonobo") (parent "BonoboObject") (c-name "BonoboItemHandler") (gtype-id "BONOBO_TYPE_ITEM_HANDLER") ) (define-object Listener (in-module "Bonobo") (parent "BonoboObject") (c-name "BonoboListener") (gtype-id "BONOBO_TYPE_LISTENER") ) (define-object Moniker (in-module "Bonobo") (parent "BonoboObject") (c-name "BonoboMoniker") (gtype-id "BONOBO_TYPE_MONIKER") ) (define-object MonikerSimple (in-module "Bonobo") (parent "BonoboMoniker") (c-name "BonoboMonikerSimple") (gtype-id "BONOBO_TYPE_MONIKER_SIMPLE") ) (define-object Persist (in-module "Bonobo") (parent "BonoboObject") (c-name "BonoboPersist") (gtype-id "BONOBO_TYPE_PERSIST") ) (define-object PersistFile (in-module "Bonobo") (parent "BonoboPersist") (c-name "BonoboPersistFile") (gtype-id "BONOBO_TYPE_PERSIST_FILE") ) (define-object PersistStream (in-module "Bonobo") (parent "BonoboPersist") (c-name "BonoboPersistStream") (gtype-id "BONOBO_TYPE_PERSIST_STREAM") ) (define-object PropertyBag (in-module "Bonobo") (parent "BonoboObject") (c-name "BonoboPropertyBag") (gtype-id "BONOBO_TYPE_PROPERTY_BAG") ) (define-object StreamMem (in-module "Bonobo") (parent "BonoboObject") (c-name "BonoboStreamMem") (gtype-id "BONOBO_TYPE_STREAM_MEM") ) (define-object EventSource (in-module "Bonobo") (parent "BonoboObject") (c-name "BonoboEventSource") (gtype-id "BONOBO_TYPE_EVENT_SOURCE") ) ;; Enumerations and flags ... guile-gnome-platform-2.16.2/defs/gnome/defs/libgda-overrides.defs0000644000175000017500000000050211670374302025220 0ustar00wingowingo00000000000000;; -*- scheme -*- (ignore-glob "*_get_type" "*_free" "gda_value_new_*" ;; Not needed, we have (make ) "gda_export_*" "gda_*_binary" ;; these have complicated GList* semantics "gda_config_*" "gda_server_provider_*" ;; ignore for now "gda_error_list_*" ;; shouldn't need this "*_to_xml" ) guile-gnome-platform-2.16.2/defs/gnome/defs/art.defs0000644000175000017500000000303311670374302022566 0ustar00wingowingo00000000000000;; -*- scheme -*- ;; ArtDRect (define-boxed DRect (c-name "ArtDRect") (gtype-id "ART_TYPE_DRECT") (fields '("double" "x0") '("double" "y0") '("double" "x1") '("double" "y1"))) (define-function drect_new (is-constructor-of "ArtDRect") (caller-owns-return #t) (c-name "art_drect_new") (parameters '("double" "x0") '("double" "y0") '("double" "x1") '("double" "y1"))) ;; ArtPoint (define-boxed Point (c-name "ArtPoint") (gtype-id "ART_TYPE_POINT") (fields '("double" "x") '("double" "y"))) (define-function point_new (is-constructor-of "ArtPoint") (caller-owns-return #t) (c-name "art_point_new") (parameters '("double" "x") '("double" "y"))) ;; ArtBPath (define-boxed Bpath (c-name "ArtBpath") (gtype-id "ART_TYPE_BPATH") (fields '("gint" "code") '("double" "x1") '("double" "y1") '("double" "x2") '("double" "y2") '("double" "x3") '("double" "y3"))) (define-function bpath_new (is-constructor-of "ArtBpath") (c-name "art_bpath_new") (caller-owns-return #t) (parameters '("gint" "code") '("double" "x1") '("double" "y1") '("double" "x2") '("double" "y2") '("double" "x3") '("double" "y3"))) ;; ArtVPath (define-boxed Vpath (c-name "ArtVpath") (gtype-id "ART_TYPE_VPATH") (fields '("gint" "code") '("double" "x") '("double" "y"))) (define-function vpath_new (is-constructor-of "ArtVpath") (c-name "art_vpath_new") (caller-owns-return #t) (parameters '("gint" "code") '("double" "x") '("double" "y"))) guile-gnome-platform-2.16.2/defs/gnome/defs/gdk.defs0000644000175000017500000033363411670374302022562 0ustar00wingowingo00000000000000;; -*- scheme -*- (include type-ignores) (include "common-ignores.defs") (include "gdk-types.defs") (include overrides) ;; From /opt/gnome2/include/gtk-2.0/gdk/gdkcairo.h (define-function gdk_cairo_create (c-name "gdk_cairo_create") (return-type "cairo_t*") (parameters '("GdkDrawable*" "drawable") ) ) (define-function gdk_cairo_set_source_color (c-name "gdk_cairo_set_source_color") (return-type "none") (parameters '("cairo_t*" "cr") '("GdkColor*" "color") ) ) (define-function gdk_cairo_set_source_pixbuf (c-name "gdk_cairo_set_source_pixbuf") (return-type "none") (parameters '("cairo_t*" "cr") '("GdkPixbuf*" "pixbuf") '("double" "pixbuf_x") '("double" "pixbuf_y") ) ) (define-function gdk_cairo_set_source_pixmap (c-name "gdk_cairo_set_source_pixmap") (return-type "none") (parameters '("cairo_t*" "cr") '("GdkPixmap*" "pixmap") '("double" "pixmap_x") '("double" "pixmap_y") ) ) (define-function gdk_cairo_rectangle (c-name "gdk_cairo_rectangle") (return-type "none") (parameters '("cairo_t*" "cr") '("GdkRectangle*" "rectangle") ) ) (define-function gdk_cairo_region (c-name "gdk_cairo_region") (return-type "none") (parameters '("cairo_t*" "cr") '("GdkRegion*" "region") ) ) ;; From /opt/gnome2/include/gtk-2.0/gdk/gdkcolor.h (define-function gdk_colormap_get_type (c-name "gdk_colormap_get_type") (return-type "GType") ) (define-function gdk_colormap_new (c-name "gdk_colormap_new") (is-constructor-of "GdkColormap") (return-type "GdkColormap*") (parameters '("GdkVisual*" "visual") '("gboolean" "allocate") ) ) (define-method ref (of-object "GdkColormap") (c-name "gdk_colormap_ref") (return-type "GdkColormap*") ) (define-method unref (of-object "GdkColormap") (c-name "gdk_colormap_unref") (return-type "none") ) (define-function gdk_colormap_get_system (c-name "gdk_colormap_get_system") (return-type "GdkColormap*") ) (define-method get_screen (of-object "GdkColormap") (c-name "gdk_colormap_get_screen") (return-type "GdkScreen*") ) (define-function gdk_colormap_get_system_size (c-name "gdk_colormap_get_system_size") (return-type "gint") ) (define-method change (of-object "GdkColormap") (c-name "gdk_colormap_change") (return-type "none") (parameters '("gint" "ncolors") ) ) (define-method alloc_colors (of-object "GdkColormap") (c-name "gdk_colormap_alloc_colors") (return-type "gint") (parameters '("GdkColor*" "colors") '("gint" "ncolors") '("gboolean" "writeable") '("gboolean" "best_match") '("gboolean*" "success") ) ) (define-method alloc_color (of-object "GdkColormap") (c-name "gdk_colormap_alloc_color") (return-type "gboolean") (parameters '("GdkColor*" "color") '("gboolean" "writeable") '("gboolean" "best_match") ) ) (define-method free_colors (of-object "GdkColormap") (c-name "gdk_colormap_free_colors") (return-type "none") (parameters '("GdkColor*" "colors") '("gint" "ncolors") ) ) (define-method query_color (of-object "GdkColormap") (c-name "gdk_colormap_query_color") (return-type "none") (parameters '("gulong" "pixel") '("GdkColor*" "result") ) ) (define-method get_visual (of-object "GdkColormap") (c-name "gdk_colormap_get_visual") (return-type "GdkVisual*") ) (define-method copy (of-object "GdkColor") (c-name "gdk_color_copy") (return-type "GdkColor*") ) (define-method free (of-object "GdkColor") (c-name "gdk_color_free") (return-type "none") ) (define-function gdk_color_parse (c-name "gdk_color_parse") (return-type "gboolean") (parameters '("const-gchar*" "spec") '("GdkColor*" "color") ) ) (define-method hash (of-object "GdkColor") (c-name "gdk_color_hash") (return-type "guint") ) (define-method equal (of-object "GdkColor") (c-name "gdk_color_equal") (return-type "gboolean") (parameters '("const-GdkColor*" "colorb") ) ) (define-function gdk_color_get_type (c-name "gdk_color_get_type") (return-type "GType") ) (define-function gdk_colors_store (c-name "gdk_colors_store") (return-type "none") (parameters '("GdkColormap*" "colormap") '("GdkColor*" "colors") '("gint" "ncolors") ) ) (define-function gdk_color_white (c-name "gdk_color_white") (return-type "gint") (parameters '("GdkColormap*" "colormap") '("GdkColor*" "color") ) ) (define-function gdk_color_black (c-name "gdk_color_black") (return-type "gint") (parameters '("GdkColormap*" "colormap") '("GdkColor*" "color") ) ) (define-function gdk_color_alloc (c-name "gdk_color_alloc") (return-type "gint") (parameters '("GdkColormap*" "colormap") '("GdkColor*" "color") ) ) (define-function gdk_color_change (c-name "gdk_color_change") (return-type "gint") (parameters '("GdkColormap*" "colormap") '("GdkColor*" "color") ) ) (define-function gdk_colors_alloc (c-name "gdk_colors_alloc") (return-type "gint") (parameters '("GdkColormap*" "colormap") '("gboolean" "contiguous") '("gulong*" "planes") '("gint" "nplanes") '("gulong*" "pixels") '("gint" "npixels") ) ) (define-function gdk_colors_free (c-name "gdk_colors_free") (return-type "none") (parameters '("GdkColormap*" "colormap") '("gulong*" "pixels") '("gint" "npixels") '("gulong" "planes") ) ) ;; From /opt/gnome2/include/gtk-2.0/gdk/gdkcursor.h (define-function gdk_cursor_get_type (c-name "gdk_cursor_get_type") (return-type "GType") ) (define-function gdk_cursor_new_for_display (c-name "gdk_cursor_new_for_display") (return-type "GdkCursor*") (parameters '("GdkDisplay*" "display") '("GdkCursorType" "cursor_type") ) ) (define-function gdk_cursor_new (c-name "gdk_cursor_new") (is-constructor-of "GdkCursor") (return-type "GdkCursor*") (parameters '("GdkCursorType" "cursor_type") ) ) (define-function gdk_cursor_new_from_pixmap (c-name "gdk_cursor_new_from_pixmap") (return-type "GdkCursor*") (parameters '("GdkPixmap*" "source") '("GdkPixmap*" "mask") '("const-GdkColor*" "fg") '("const-GdkColor*" "bg") '("gint" "x") '("gint" "y") ) ) (define-function gdk_cursor_new_from_pixbuf (c-name "gdk_cursor_new_from_pixbuf") (return-type "GdkCursor*") (parameters '("GdkDisplay*" "display") '("GdkPixbuf*" "pixbuf") '("gint" "x") '("gint" "y") ) ) (define-method get_display (of-object "GdkCursor") (c-name "gdk_cursor_get_display") (return-type "GdkDisplay*") ) (define-method ref (of-object "GdkCursor") (c-name "gdk_cursor_ref") (return-type "GdkCursor*") ) (define-method unref (of-object "GdkCursor") (c-name "gdk_cursor_unref") (return-type "none") ) (define-function gdk_cursor_new_from_name (c-name "gdk_cursor_new_from_name") (return-type "GdkCursor*") (parameters '("GdkDisplay*" "display") '("const-gchar*" "name") ) ) (define-method get_image (of-object "GdkCursor") (c-name "gdk_cursor_get_image") (return-type "GdkPixbuf*") ) ;; From /opt/gnome2/include/gtk-2.0/gdk/gdkdisplay.h (define-function gdk_display_get_type (c-name "gdk_display_get_type") (return-type "GType") ) (define-function gdk_display_open (c-name "gdk_display_open") (return-type "GdkDisplay*") (parameters '("const-gchar*" "display_name") ) ) (define-method get_name (of-object "GdkDisplay") (c-name "gdk_display_get_name") (return-type "const-gchar*") ) (define-method get_n_screens (of-object "GdkDisplay") (c-name "gdk_display_get_n_screens") (return-type "gint") ) (define-method get_screen (of-object "GdkDisplay") (c-name "gdk_display_get_screen") (return-type "GdkScreen*") (parameters '("gint" "screen_num") ) ) (define-method get_default_screen (of-object "GdkDisplay") (c-name "gdk_display_get_default_screen") (return-type "GdkScreen*") ) (define-method pointer_ungrab (of-object "GdkDisplay") (c-name "gdk_display_pointer_ungrab") (return-type "none") (parameters '("guint32" "time_") ) ) (define-method keyboard_ungrab (of-object "GdkDisplay") (c-name "gdk_display_keyboard_ungrab") (return-type "none") (parameters '("guint32" "time_") ) ) (define-method pointer_is_grabbed (of-object "GdkDisplay") (c-name "gdk_display_pointer_is_grabbed") (return-type "gboolean") ) (define-method beep (of-object "GdkDisplay") (c-name "gdk_display_beep") (return-type "none") ) (define-method sync (of-object "GdkDisplay") (c-name "gdk_display_sync") (return-type "none") ) (define-method flush (of-object "GdkDisplay") (c-name "gdk_display_flush") (return-type "none") ) (define-method close (of-object "GdkDisplay") (c-name "gdk_display_close") (return-type "none") ) (define-method list_devices (of-object "GdkDisplay") (c-name "gdk_display_list_devices") (return-type "GList*") ) (define-method get_event (of-object "GdkDisplay") (c-name "gdk_display_get_event") (return-type "GdkEvent*") ) (define-method peek_event (of-object "GdkDisplay") (c-name "gdk_display_peek_event") (return-type "GdkEvent*") ) (define-method put_event (of-object "GdkDisplay") (c-name "gdk_display_put_event") (return-type "none") (parameters '("GdkEvent*" "event") ) ) (define-method add_client_message_filter (of-object "GdkDisplay") (c-name "gdk_display_add_client_message_filter") (return-type "none") (parameters '("GdkAtom" "message_type") '("GdkFilterFunc" "func") '("gpointer" "data") ) ) (define-method set_double_click_time (of-object "GdkDisplay") (c-name "gdk_display_set_double_click_time") (return-type "none") (parameters '("guint" "msec") ) ) (define-method set_double_click_distance (of-object "GdkDisplay") (c-name "gdk_display_set_double_click_distance") (return-type "none") (parameters '("guint" "distance") ) ) (define-function gdk_display_get_default (c-name "gdk_display_get_default") (return-type "GdkDisplay*") ) (define-method get_core_pointer (of-object "GdkDisplay") (c-name "gdk_display_get_core_pointer") (return-type "GdkDevice*") ) (define-method get_pointer (of-object "GdkDisplay") (c-name "gdk_display_get_pointer") (return-type "none") (parameters '("GdkScreen**" "screen") '("gint*" "x") '("gint*" "y") '("GdkModifierType*" "mask") ) ) (define-method get_window_at_pointer (of-object "GdkDisplay") (c-name "gdk_display_get_window_at_pointer") (return-type "GdkWindow*") (parameters '("gint*" "win_x") '("gint*" "win_y") ) ) (define-method warp_pointer (of-object "GdkDisplay") (c-name "gdk_display_warp_pointer") (return-type "none") (parameters '("GdkScreen*" "screen") '("gint" "x") '("gint" "y") ) ) (define-method set_pointer_hooks (of-object "GdkDisplay") (c-name "gdk_display_set_pointer_hooks") (return-type "GdkDisplayPointerHooks*") (parameters '("const-GdkDisplayPointerHooks*" "new_hooks") ) ) (define-function gdk_display_open_default_libgtk_only (c-name "gdk_display_open_default_libgtk_only") (return-type "GdkDisplay*") ) (define-method supports_cursor_alpha (of-object "GdkDisplay") (c-name "gdk_display_supports_cursor_alpha") (return-type "gboolean") ) (define-method supports_cursor_color (of-object "GdkDisplay") (c-name "gdk_display_supports_cursor_color") (return-type "gboolean") ) (define-method get_default_cursor_size (of-object "GdkDisplay") (c-name "gdk_display_get_default_cursor_size") (return-type "guint") ) (define-method get_maximal_cursor_size (of-object "GdkDisplay") (c-name "gdk_display_get_maximal_cursor_size") (return-type "none") (parameters '("guint*" "width") '("guint*" "height") ) ) (define-method get_default_group (of-object "GdkDisplay") (c-name "gdk_display_get_default_group") (return-type "GdkWindow*") ) (define-method supports_selection_notification (of-object "GdkDisplay") (c-name "gdk_display_supports_selection_notification") (return-type "gboolean") ) (define-method request_selection_notification (of-object "GdkDisplay") (c-name "gdk_display_request_selection_notification") (return-type "gboolean") (parameters '("GdkAtom" "selection") ) ) (define-method supports_clipboard_persistence (of-object "GdkDisplay") (c-name "gdk_display_supports_clipboard_persistence") (return-type "gboolean") ) (define-method store_clipboard (of-object "GdkDisplay") (c-name "gdk_display_store_clipboard") (return-type "none") (parameters '("GdkWindow*" "clipboard_window") '("guint32" "time_") '("GdkAtom*" "targets") '("gint" "n_targets") ) ) (define-method supports_shapes (of-object "GdkDisplay") (c-name "gdk_display_supports_shapes") (return-type "gboolean") ) (define-method supports_input_shapes (of-object "GdkDisplay") (c-name "gdk_display_supports_input_shapes") (return-type "gboolean") ) ;; From /opt/gnome2/include/gtk-2.0/gdk/gdkdisplaymanager.h (define-function gdk_display_manager_get_type (c-name "gdk_display_manager_get_type") (return-type "GType") ) (define-function gdk_display_manager_get (c-name "gdk_display_manager_get") (return-type "GdkDisplayManager*") ) (define-method get_default_display (of-object "GdkDisplayManager") (c-name "gdk_display_manager_get_default_display") (return-type "GdkDisplay*") ) (define-method set_default_display (of-object "GdkDisplayManager") (c-name "gdk_display_manager_set_default_display") (return-type "none") (parameters '("GdkDisplay*" "display") ) ) (define-method list_displays (of-object "GdkDisplayManager") (c-name "gdk_display_manager_list_displays") (return-type "GSList*") ) ;; From /opt/gnome2/include/gtk-2.0/gdk/gdkdnd.h (define-function gdk_drag_context_get_type (c-name "gdk_drag_context_get_type") (return-type "GType") ) (define-function gdk_drag_context_new (c-name "gdk_drag_context_new") (is-constructor-of "GdkDragContext") (return-type "GdkDragContext*") ) (define-method ref (of-object "GdkDragContext") (c-name "gdk_drag_context_ref") (return-type "none") ) (define-method unref (of-object "GdkDragContext") (c-name "gdk_drag_context_unref") (return-type "none") ) (define-function gdk_drag_status (c-name "gdk_drag_status") (return-type "none") (parameters '("GdkDragContext*" "context") '("GdkDragAction" "action") '("guint32" "time_") ) ) (define-function gdk_drop_reply (c-name "gdk_drop_reply") (return-type "none") (parameters '("GdkDragContext*" "context") '("gboolean" "ok") '("guint32" "time_") ) ) (define-function gdk_drop_finish (c-name "gdk_drop_finish") (return-type "none") (parameters '("GdkDragContext*" "context") '("gboolean" "success") '("guint32" "time_") ) ) (define-function gdk_drag_get_selection (c-name "gdk_drag_get_selection") (return-type "GdkAtom") (parameters '("GdkDragContext*" "context") ) ) (define-function gdk_drag_begin (c-name "gdk_drag_begin") (return-type "GdkDragContext*") (parameters '("GdkWindow*" "window") '("GList*" "targets") ) ) (define-function gdk_drag_get_protocol_for_display (c-name "gdk_drag_get_protocol_for_display") (return-type "guint32") (parameters '("GdkDisplay*" "display") '("guint32" "xid") '("GdkDragProtocol*" "protocol") ) ) (define-function gdk_drag_find_window_for_screen (c-name "gdk_drag_find_window_for_screen") (return-type "none") (parameters '("GdkDragContext*" "context") '("GdkWindow*" "drag_window") '("GdkScreen*" "screen") '("gint" "x_root") '("gint" "y_root") '("GdkWindow**" "dest_window") '("GdkDragProtocol*" "protocol") ) ) (define-function gdk_drag_get_protocol (c-name "gdk_drag_get_protocol") (return-type "guint32") (parameters '("guint32" "xid") '("GdkDragProtocol*" "protocol") ) ) (define-function gdk_drag_find_window (c-name "gdk_drag_find_window") (return-type "none") (parameters '("GdkDragContext*" "context") '("GdkWindow*" "drag_window") '("gint" "x_root") '("gint" "y_root") '("GdkWindow**" "dest_window") '("GdkDragProtocol*" "protocol") ) ) (define-function gdk_drag_motion (c-name "gdk_drag_motion") (return-type "gboolean") (parameters '("GdkDragContext*" "context") '("GdkWindow*" "dest_window") '("GdkDragProtocol" "protocol") '("gint" "x_root") '("gint" "y_root") '("GdkDragAction" "suggested_action") '("GdkDragAction" "possible_actions") '("guint32" "time_") ) ) (define-function gdk_drag_drop (c-name "gdk_drag_drop") (return-type "none") (parameters '("GdkDragContext*" "context") '("guint32" "time_") ) ) (define-function gdk_drag_abort (c-name "gdk_drag_abort") (return-type "none") (parameters '("GdkDragContext*" "context") '("guint32" "time_") ) ) (define-function gdk_drag_drop_succeeded (c-name "gdk_drag_drop_succeeded") (return-type "gboolean") (parameters '("GdkDragContext*" "context") ) ) ;; From /opt/gnome2/include/gtk-2.0/gdk/gdkdrawable.h (define-function gdk_drawable_get_type (c-name "gdk_drawable_get_type") (return-type "GType") ) (define-method set_data (of-object "GdkDrawable") (c-name "gdk_drawable_set_data") (return-type "none") (parameters '("const-gchar*" "key") '("gpointer" "data") '("GDestroyNotify" "destroy_func") ) ) (define-method get_data (of-object "GdkDrawable") (c-name "gdk_drawable_get_data") (return-type "gpointer") (parameters '("const-gchar*" "key") ) ) (define-method get_size (of-object "GdkDrawable") (c-name "gdk_drawable_get_size") (return-type "none") (parameters '("gint*" "width") '("gint*" "height") ) ) (define-method set_colormap (of-object "GdkDrawable") (c-name "gdk_drawable_set_colormap") (return-type "none") (parameters '("GdkColormap*" "colormap") ) ) (define-method get_colormap (of-object "GdkDrawable") (c-name "gdk_drawable_get_colormap") (return-type "GdkColormap*") ) (define-method get_visual (of-object "GdkDrawable") (c-name "gdk_drawable_get_visual") (return-type "GdkVisual*") ) (define-method get_depth (of-object "GdkDrawable") (c-name "gdk_drawable_get_depth") (return-type "gint") ) (define-method get_screen (of-object "GdkDrawable") (c-name "gdk_drawable_get_screen") (return-type "GdkScreen*") ) (define-method get_display (of-object "GdkDrawable") (c-name "gdk_drawable_get_display") (return-type "GdkDisplay*") ) (define-method ref (of-object "GdkDrawable") (c-name "gdk_drawable_ref") (return-type "GdkDrawable*") ) (define-method unref (of-object "GdkDrawable") (c-name "gdk_drawable_unref") (return-type "none") ) (define-function gdk_draw_point (c-name "gdk_draw_point") (return-type "none") (parameters '("GdkDrawable*" "drawable") '("GdkGC*" "gc") '("gint" "x") '("gint" "y") ) ) (define-function gdk_draw_line (c-name "gdk_draw_line") (return-type "none") (parameters '("GdkDrawable*" "drawable") '("GdkGC*" "gc") '("gint" "x1_") '("gint" "y1_") '("gint" "x2_") '("gint" "y2_") ) ) (define-function gdk_draw_rectangle (c-name "gdk_draw_rectangle") (return-type "none") (parameters '("GdkDrawable*" "drawable") '("GdkGC*" "gc") '("gboolean" "filled") '("gint" "x") '("gint" "y") '("gint" "width") '("gint" "height") ) ) (define-function gdk_draw_arc (c-name "gdk_draw_arc") (return-type "none") (parameters '("GdkDrawable*" "drawable") '("GdkGC*" "gc") '("gboolean" "filled") '("gint" "x") '("gint" "y") '("gint" "width") '("gint" "height") '("gint" "angle1") '("gint" "angle2") ) ) (define-function gdk_draw_polygon (c-name "gdk_draw_polygon") (return-type "none") (parameters '("GdkDrawable*" "drawable") '("GdkGC*" "gc") '("gboolean" "filled") '("GdkPoint*" "points") '("gint" "npoints") ) ) (define-function gdk_draw_string (c-name "gdk_draw_string") (return-type "none") (parameters '("GdkDrawable*" "drawable") '("GdkFont*" "font") '("GdkGC*" "gc") '("gint" "x") '("gint" "y") '("const-gchar*" "string") ) ) (define-function gdk_draw_text (c-name "gdk_draw_text") (return-type "none") (parameters '("GdkDrawable*" "drawable") '("GdkFont*" "font") '("GdkGC*" "gc") '("gint" "x") '("gint" "y") '("const-gchar*" "text") '("gint" "text_length") ) ) (define-function gdk_draw_text_wc (c-name "gdk_draw_text_wc") (return-type "none") (parameters '("GdkDrawable*" "drawable") '("GdkFont*" "font") '("GdkGC*" "gc") '("gint" "x") '("gint" "y") '("const-GdkWChar*" "text") '("gint" "text_length") ) ) (define-function gdk_draw_drawable (c-name "gdk_draw_drawable") (return-type "none") (parameters '("GdkDrawable*" "drawable") '("GdkGC*" "gc") '("GdkDrawable*" "src") '("gint" "xsrc") '("gint" "ysrc") '("gint" "xdest") '("gint" "ydest") '("gint" "width") '("gint" "height") ) ) (define-function gdk_draw_image (c-name "gdk_draw_image") (return-type "none") (parameters '("GdkDrawable*" "drawable") '("GdkGC*" "gc") '("GdkImage*" "image") '("gint" "xsrc") '("gint" "ysrc") '("gint" "xdest") '("gint" "ydest") '("gint" "width") '("gint" "height") ) ) (define-function gdk_draw_points (c-name "gdk_draw_points") (return-type "none") (parameters '("GdkDrawable*" "drawable") '("GdkGC*" "gc") '("GdkPoint*" "points") '("gint" "npoints") ) ) (define-function gdk_draw_segments (c-name "gdk_draw_segments") (return-type "none") (parameters '("GdkDrawable*" "drawable") '("GdkGC*" "gc") '("GdkSegment*" "segs") '("gint" "nsegs") ) ) (define-function gdk_draw_lines (c-name "gdk_draw_lines") (return-type "none") (parameters '("GdkDrawable*" "drawable") '("GdkGC*" "gc") '("GdkPoint*" "points") '("gint" "npoints") ) ) (define-function gdk_draw_pixbuf (c-name "gdk_draw_pixbuf") (return-type "none") (parameters '("GdkDrawable*" "drawable") '("GdkGC*" "gc") '("GdkPixbuf*" "pixbuf") '("gint" "src_x") '("gint" "src_y") '("gint" "dest_x") '("gint" "dest_y") '("gint" "width") '("gint" "height") '("GdkRgbDither" "dither") '("gint" "x_dither") '("gint" "y_dither") ) ) (define-function gdk_draw_glyphs (c-name "gdk_draw_glyphs") (return-type "none") (parameters '("GdkDrawable*" "drawable") '("GdkGC*" "gc") '("PangoFont*" "font") '("gint" "x") '("gint" "y") '("PangoGlyphString*" "glyphs") ) ) (define-function gdk_draw_layout_line (c-name "gdk_draw_layout_line") (return-type "none") (parameters '("GdkDrawable*" "drawable") '("GdkGC*" "gc") '("gint" "x") '("gint" "y") '("PangoLayoutLine*" "line") ) ) (define-function gdk_draw_layout (c-name "gdk_draw_layout") (return-type "none") (parameters '("GdkDrawable*" "drawable") '("GdkGC*" "gc") '("gint" "x") '("gint" "y") '("PangoLayout*" "layout") ) ) (define-function gdk_draw_layout_line_with_colors (c-name "gdk_draw_layout_line_with_colors") (return-type "none") (parameters '("GdkDrawable*" "drawable") '("GdkGC*" "gc") '("gint" "x") '("gint" "y") '("PangoLayoutLine*" "line") '("const-GdkColor*" "foreground") '("const-GdkColor*" "background") ) ) (define-function gdk_draw_layout_with_colors (c-name "gdk_draw_layout_with_colors") (return-type "none") (parameters '("GdkDrawable*" "drawable") '("GdkGC*" "gc") '("gint" "x") '("gint" "y") '("PangoLayout*" "layout") '("const-GdkColor*" "foreground") '("const-GdkColor*" "background") ) ) (define-function gdk_draw_glyphs_transformed (c-name "gdk_draw_glyphs_transformed") (return-type "none") (parameters '("GdkDrawable*" "drawable") '("GdkGC*" "gc") '("PangoMatrix*" "matrix") '("PangoFont*" "font") '("gint" "x") '("gint" "y") '("PangoGlyphString*" "glyphs") ) ) (define-function gdk_draw_trapezoids (c-name "gdk_draw_trapezoids") (return-type "none") (parameters '("GdkDrawable*" "drawable") '("GdkGC*" "gc") '("GdkTrapezoid*" "trapezoids") '("gint" "n_trapezoids") ) ) (define-method get_image (of-object "GdkDrawable") (c-name "gdk_drawable_get_image") (return-type "GdkImage*") (parameters '("gint" "x") '("gint" "y") '("gint" "width") '("gint" "height") ) ) (define-method copy_to_image (of-object "GdkDrawable") (c-name "gdk_drawable_copy_to_image") (return-type "GdkImage*") (parameters '("GdkImage*" "image") '("gint" "src_x") '("gint" "src_y") '("gint" "dest_x") '("gint" "dest_y") '("gint" "width") '("gint" "height") ) ) (define-method get_clip_region (of-object "GdkDrawable") (c-name "gdk_drawable_get_clip_region") (return-type "GdkRegion*") ) (define-method get_visible_region (of-object "GdkDrawable") (c-name "gdk_drawable_get_visible_region") (return-type "GdkRegion*") ) ;; From /opt/gnome2/include/gtk-2.0/gdk/gdkenumtypes.h (define-function gdk_cursor_type_get_type (c-name "gdk_cursor_type_get_type") (return-type "GType") ) (define-function gdk_drag_action_get_type (c-name "gdk_drag_action_get_type") (return-type "GType") ) (define-function gdk_drag_protocol_get_type (c-name "gdk_drag_protocol_get_type") (return-type "GType") ) (define-function gdk_filter_return_get_type (c-name "gdk_filter_return_get_type") (return-type "GType") ) (define-function gdk_event_type_get_type (c-name "gdk_event_type_get_type") (return-type "GType") ) (define-function gdk_event_mask_get_type (c-name "gdk_event_mask_get_type") (return-type "GType") ) (define-function gdk_visibility_state_get_type (c-name "gdk_visibility_state_get_type") (return-type "GType") ) (define-function gdk_scroll_direction_get_type (c-name "gdk_scroll_direction_get_type") (return-type "GType") ) (define-function gdk_notify_type_get_type (c-name "gdk_notify_type_get_type") (return-type "GType") ) (define-function gdk_crossing_mode_get_type (c-name "gdk_crossing_mode_get_type") (return-type "GType") ) (define-function gdk_property_state_get_type (c-name "gdk_property_state_get_type") (return-type "GType") ) (define-function gdk_window_state_get_type (c-name "gdk_window_state_get_type") (return-type "GType") ) (define-function gdk_setting_action_get_type (c-name "gdk_setting_action_get_type") (return-type "GType") ) (define-function gdk_owner_change_get_type (c-name "gdk_owner_change_get_type") (return-type "GType") ) (define-function gdk_font_type_get_type (c-name "gdk_font_type_get_type") (return-type "GType") ) (define-function gdk_cap_style_get_type (c-name "gdk_cap_style_get_type") (return-type "GType") ) (define-function gdk_fill_get_type (c-name "gdk_fill_get_type") (return-type "GType") ) (define-function gdk_function_get_type (c-name "gdk_function_get_type") (return-type "GType") ) (define-function gdk_join_style_get_type (c-name "gdk_join_style_get_type") (return-type "GType") ) (define-function gdk_line_style_get_type (c-name "gdk_line_style_get_type") (return-type "GType") ) (define-function gdk_subwindow_mode_get_type (c-name "gdk_subwindow_mode_get_type") (return-type "GType") ) (define-function gdk_gc_values_mask_get_type (c-name "gdk_gc_values_mask_get_type") (return-type "GType") ) (define-function gdk_image_type_get_type (c-name "gdk_image_type_get_type") (return-type "GType") ) (define-function gdk_extension_mode_get_type (c-name "gdk_extension_mode_get_type") (return-type "GType") ) (define-function gdk_input_source_get_type (c-name "gdk_input_source_get_type") (return-type "GType") ) (define-function gdk_input_mode_get_type (c-name "gdk_input_mode_get_type") (return-type "GType") ) (define-function gdk_axis_use_get_type (c-name "gdk_axis_use_get_type") (return-type "GType") ) (define-function gdk_prop_mode_get_type (c-name "gdk_prop_mode_get_type") (return-type "GType") ) (define-function gdk_fill_rule_get_type (c-name "gdk_fill_rule_get_type") (return-type "GType") ) (define-function gdk_overlap_type_get_type (c-name "gdk_overlap_type_get_type") (return-type "GType") ) (define-function gdk_rgb_dither_get_type (c-name "gdk_rgb_dither_get_type") (return-type "GType") ) (define-function gdk_byte_order_get_type (c-name "gdk_byte_order_get_type") (return-type "GType") ) (define-function gdk_modifier_type_get_type (c-name "gdk_modifier_type_get_type") (return-type "GType") ) (define-function gdk_input_condition_get_type (c-name "gdk_input_condition_get_type") (return-type "GType") ) (define-function gdk_status_get_type (c-name "gdk_status_get_type") (return-type "GType") ) (define-function gdk_grab_status_get_type (c-name "gdk_grab_status_get_type") (return-type "GType") ) (define-function gdk_visual_type_get_type (c-name "gdk_visual_type_get_type") (return-type "GType") ) (define-function gdk_window_class_get_type (c-name "gdk_window_class_get_type") (return-type "GType") ) (define-function gdk_window_type_get_type (c-name "gdk_window_type_get_type") (return-type "GType") ) (define-function gdk_window_attributes_type_get_type (c-name "gdk_window_attributes_type_get_type") (return-type "GType") ) (define-function gdk_window_hints_get_type (c-name "gdk_window_hints_get_type") (return-type "GType") ) (define-function gdk_window_type_hint_get_type (c-name "gdk_window_type_hint_get_type") (return-type "GType") ) (define-function gdk_wm_decoration_get_type (c-name "gdk_wm_decoration_get_type") (return-type "GType") ) (define-function gdk_wm_function_get_type (c-name "gdk_wm_function_get_type") (return-type "GType") ) (define-function gdk_gravity_get_type (c-name "gdk_gravity_get_type") (return-type "GType") ) (define-function gdk_window_edge_get_type (c-name "gdk_window_edge_get_type") (return-type "GType") ) ;; From /opt/gnome2/include/gtk-2.0/gdk/gdkevents.h (define-function gdk_event_get_type (c-name "gdk_event_get_type") (return-type "GType") ) (define-function gdk_events_pending (c-name "gdk_events_pending") (return-type "gboolean") ) (define-function gdk_event_get (c-name "gdk_event_get") (return-type "GdkEvent*") ) (define-function gdk_event_peek (c-name "gdk_event_peek") (return-type "GdkEvent*") ) (define-function gdk_event_get_graphics_expose (c-name "gdk_event_get_graphics_expose") (return-type "GdkEvent*") (parameters '("GdkWindow*" "window") ) ) (define-method put (of-object "GdkEvent") (c-name "gdk_event_put") (return-type "none") ) (define-function gdk_event_new (c-name "gdk_event_new") (is-constructor-of "GdkEvent") (return-type "GdkEvent*") (parameters '("GdkEventType" "type") ) ) (define-method copy (of-object "GdkEvent") (c-name "gdk_event_copy") (return-type "GdkEvent*") ) (define-method free (of-object "GdkEvent") (c-name "gdk_event_free") (return-type "none") ) (define-method get_time (of-object "GdkEvent") (c-name "gdk_event_get_time") (return-type "guint32") ) (define-method get_state (of-object "GdkEvent") (c-name "gdk_event_get_state") (return-type "gboolean") (parameters '("GdkModifierType*" "state") ) ) (define-method get_coords (of-object "GdkEvent") (c-name "gdk_event_get_coords") (return-type "gboolean") (parameters '("gdouble*" "x_win") '("gdouble*" "y_win") ) ) (define-method get_root_coords (of-object "GdkEvent") (c-name "gdk_event_get_root_coords") (return-type "gboolean") (parameters '("gdouble*" "x_root") '("gdouble*" "y_root") ) ) (define-method get_axis (of-object "GdkEvent") (c-name "gdk_event_get_axis") (return-type "gboolean") (parameters '("GdkAxisUse" "axis_use") '("gdouble*" "value") ) ) (define-function gdk_event_handler_set (c-name "gdk_event_handler_set") (return-type "none") (parameters '("GdkEventFunc" "func") '("gpointer" "data") '("GDestroyNotify" "notify") ) ) (define-method set_screen (of-object "GdkEvent") (c-name "gdk_event_set_screen") (return-type "none") (parameters '("GdkScreen*" "screen") ) ) (define-method get_screen (of-object "GdkEvent") (c-name "gdk_event_get_screen") (return-type "GdkScreen*") ) (define-function gdk_set_show_events (c-name "gdk_set_show_events") (return-type "none") (parameters '("gboolean" "show_events") ) ) (define-function gdk_get_show_events (c-name "gdk_get_show_events") (return-type "gboolean") ) (define-function gdk_add_client_message_filter (c-name "gdk_add_client_message_filter") (return-type "none") (parameters '("GdkAtom" "message_type") '("GdkFilterFunc" "func") '("gpointer" "data") ) ) (define-function gdk_setting_get (c-name "gdk_setting_get") (return-type "gboolean") (parameters '("const-gchar*" "name") '("GValue*" "value") ) ) ;; From /opt/gnome2/include/gtk-2.0/gdk/gdkfont.h (define-function gdk_font_get_type (c-name "gdk_font_get_type") (return-type "GType") ) (define-method ref (of-object "GdkFont") (c-name "gdk_font_ref") (return-type "GdkFont*") ) (define-method unref (of-object "GdkFont") (c-name "gdk_font_unref") (return-type "none") ) (define-method id (of-object "GdkFont") (c-name "gdk_font_id") (return-type "gint") ) (define-method equal (of-object "GdkFont") (c-name "gdk_font_equal") (return-type "gboolean") (parameters '("const-GdkFont*" "fontb") ) ) (define-function gdk_font_load_for_display (c-name "gdk_font_load_for_display") (return-type "GdkFont*") (parameters '("GdkDisplay*" "display") '("const-gchar*" "font_name") ) ) (define-function gdk_fontset_load_for_display (c-name "gdk_fontset_load_for_display") (return-type "GdkFont*") (parameters '("GdkDisplay*" "display") '("const-gchar*" "fontset_name") ) ) (define-function gdk_font_from_description_for_display (c-name "gdk_font_from_description_for_display") (return-type "GdkFont*") (parameters '("GdkDisplay*" "display") '("PangoFontDescription*" "font_desc") ) ) (define-function gdk_font_load (c-name "gdk_font_load") (return-type "GdkFont*") (parameters '("const-gchar*" "font_name") ) ) (define-function gdk_fontset_load (c-name "gdk_fontset_load") (return-type "GdkFont*") (parameters '("const-gchar*" "fontset_name") ) ) (define-function gdk_font_from_description (c-name "gdk_font_from_description") (return-type "GdkFont*") (parameters '("PangoFontDescription*" "font_desc") ) ) (define-function gdk_string_width (c-name "gdk_string_width") (return-type "gint") (parameters '("GdkFont*" "font") '("const-gchar*" "string") ) ) (define-function gdk_text_width (c-name "gdk_text_width") (return-type "gint") (parameters '("GdkFont*" "font") '("const-gchar*" "text") '("gint" "text_length") ) ) (define-function gdk_text_width_wc (c-name "gdk_text_width_wc") (return-type "gint") (parameters '("GdkFont*" "font") '("const-GdkWChar*" "text") '("gint" "text_length") ) ) (define-function gdk_char_width (c-name "gdk_char_width") (return-type "gint") (parameters '("GdkFont*" "font") '("gchar" "character") ) ) (define-function gdk_char_width_wc (c-name "gdk_char_width_wc") (return-type "gint") (parameters '("GdkFont*" "font") '("GdkWChar" "character") ) ) (define-function gdk_string_measure (c-name "gdk_string_measure") (return-type "gint") (parameters '("GdkFont*" "font") '("const-gchar*" "string") ) ) (define-function gdk_text_measure (c-name "gdk_text_measure") (return-type "gint") (parameters '("GdkFont*" "font") '("const-gchar*" "text") '("gint" "text_length") ) ) (define-function gdk_char_measure (c-name "gdk_char_measure") (return-type "gint") (parameters '("GdkFont*" "font") '("gchar" "character") ) ) (define-function gdk_string_height (c-name "gdk_string_height") (return-type "gint") (parameters '("GdkFont*" "font") '("const-gchar*" "string") ) ) (define-function gdk_text_height (c-name "gdk_text_height") (return-type "gint") (parameters '("GdkFont*" "font") '("const-gchar*" "text") '("gint" "text_length") ) ) (define-function gdk_char_height (c-name "gdk_char_height") (return-type "gint") (parameters '("GdkFont*" "font") '("gchar" "character") ) ) (define-function gdk_text_extents (c-name "gdk_text_extents") (return-type "none") (parameters '("GdkFont*" "font") '("const-gchar*" "text") '("gint" "text_length") '("gint*" "lbearing") '("gint*" "rbearing") '("gint*" "width") '("gint*" "ascent") '("gint*" "descent") ) ) (define-function gdk_text_extents_wc (c-name "gdk_text_extents_wc") (return-type "none") (parameters '("GdkFont*" "font") '("const-GdkWChar*" "text") '("gint" "text_length") '("gint*" "lbearing") '("gint*" "rbearing") '("gint*" "width") '("gint*" "ascent") '("gint*" "descent") ) ) (define-function gdk_string_extents (c-name "gdk_string_extents") (return-type "none") (parameters '("GdkFont*" "font") '("const-gchar*" "string") '("gint*" "lbearing") '("gint*" "rbearing") '("gint*" "width") '("gint*" "ascent") '("gint*" "descent") ) ) (define-method get_display (of-object "GdkFont") (c-name "gdk_font_get_display") (return-type "GdkDisplay*") ) ;; From /opt/gnome2/include/gtk-2.0/gdk/gdkgc.h (define-function gdk_gc_get_type (c-name "gdk_gc_get_type") (return-type "GType") ) (define-function gdk_gc_new (c-name "gdk_gc_new") (is-constructor-of "GdkGc") (return-type "GdkGC*") (parameters '("GdkDrawable*" "drawable") ) ) (define-function gdk_gc_new_with_values (c-name "gdk_gc_new_with_values") (return-type "GdkGC*") (parameters '("GdkDrawable*" "drawable") '("GdkGCValues*" "values") '("GdkGCValuesMask" "values_mask") ) ) (define-method ref (of-object "GdkGC") (c-name "gdk_gc_ref") (return-type "GdkGC*") ) (define-method unref (of-object "GdkGC") (c-name "gdk_gc_unref") (return-type "none") ) (define-method get_values (of-object "GdkGC") (c-name "gdk_gc_get_values") (return-type "none") (parameters '("GdkGCValues*" "values") ) ) (define-method set_values (of-object "GdkGC") (c-name "gdk_gc_set_values") (return-type "none") (parameters '("GdkGCValues*" "values") '("GdkGCValuesMask" "values_mask") ) ) (define-method set_foreground (of-object "GdkGC") (c-name "gdk_gc_set_foreground") (return-type "none") (parameters '("const-GdkColor*" "color") ) ) (define-method set_background (of-object "GdkGC") (c-name "gdk_gc_set_background") (return-type "none") (parameters '("const-GdkColor*" "color") ) ) (define-method set_font (of-object "GdkGC") (c-name "gdk_gc_set_font") (return-type "none") (parameters '("GdkFont*" "font") ) ) (define-method set_function (of-object "GdkGC") (c-name "gdk_gc_set_function") (return-type "none") (parameters '("GdkFunction" "function") ) ) (define-method set_fill (of-object "GdkGC") (c-name "gdk_gc_set_fill") (return-type "none") (parameters '("GdkFill" "fill") ) ) (define-method set_tile (of-object "GdkGC") (c-name "gdk_gc_set_tile") (return-type "none") (parameters '("GdkPixmap*" "tile") ) ) (define-method set_stipple (of-object "GdkGC") (c-name "gdk_gc_set_stipple") (return-type "none") (parameters '("GdkPixmap*" "stipple") ) ) (define-method set_ts_origin (of-object "GdkGC") (c-name "gdk_gc_set_ts_origin") (return-type "none") (parameters '("gint" "x") '("gint" "y") ) ) (define-method set_clip_origin (of-object "GdkGC") (c-name "gdk_gc_set_clip_origin") (return-type "none") (parameters '("gint" "x") '("gint" "y") ) ) (define-method set_clip_mask (of-object "GdkGC") (c-name "gdk_gc_set_clip_mask") (return-type "none") (parameters '("GdkBitmap*" "mask") ) ) (define-method set_clip_rectangle (of-object "GdkGC") (c-name "gdk_gc_set_clip_rectangle") (return-type "none") (parameters '("GdkRectangle*" "rectangle") ) ) (define-method set_clip_region (of-object "GdkGC") (c-name "gdk_gc_set_clip_region") (return-type "none") (parameters '("GdkRegion*" "region") ) ) (define-method set_subwindow (of-object "GdkGC") (c-name "gdk_gc_set_subwindow") (return-type "none") (parameters '("GdkSubwindowMode" "mode") ) ) (define-method set_exposures (of-object "GdkGC") (c-name "gdk_gc_set_exposures") (return-type "none") (parameters '("gboolean" "exposures") ) ) (define-method set_line_attributes (of-object "GdkGC") (c-name "gdk_gc_set_line_attributes") (return-type "none") (parameters '("gint" "line_width") '("GdkLineStyle" "line_style") '("GdkCapStyle" "cap_style") '("GdkJoinStyle" "join_style") ) ) (define-method set_dashes (of-object "GdkGC") (c-name "gdk_gc_set_dashes") (return-type "none") (parameters '("gint" "dash_offset") '("gint8[]" "dash_list") '("gint" "n") ) ) (define-method offset (of-object "GdkGC") (c-name "gdk_gc_offset") (return-type "none") (parameters '("gint" "x_offset") '("gint" "y_offset") ) ) (define-method copy (of-object "GdkGC") (c-name "gdk_gc_copy") (return-type "none") (parameters '("GdkGC*" "src_gc") ) ) (define-method set_colormap (of-object "GdkGC") (c-name "gdk_gc_set_colormap") (return-type "none") (parameters '("GdkColormap*" "colormap") ) ) (define-method get_colormap (of-object "GdkGC") (c-name "gdk_gc_get_colormap") (return-type "GdkColormap*") ) (define-method set_rgb_fg_color (of-object "GdkGC") (c-name "gdk_gc_set_rgb_fg_color") (return-type "none") (parameters '("const-GdkColor*" "color") ) ) (define-method set_rgb_bg_color (of-object "GdkGC") (c-name "gdk_gc_set_rgb_bg_color") (return-type "none") (parameters '("const-GdkColor*" "color") ) ) (define-method get_screen (of-object "GdkGC") (c-name "gdk_gc_get_screen") (return-type "GdkScreen*") ) ;; From /opt/gnome2/include/gtk-2.0/gdk/gdk.h (define-function gdk_parse_args (c-name "gdk_parse_args") (return-type "none") (parameters '("gint*" "argc") '("gchar***" "argv") ) ) (define-function gdk_init (c-name "gdk_init") (return-type "none") (parameters '("gint*" "argc") '("gchar***" "argv") ) ) (define-function gdk_init_check (c-name "gdk_init_check") (return-type "gboolean") (parameters '("gint*" "argc") '("gchar***" "argv") ) ) (define-function gdk_add_option_entries_libgtk_only (c-name "gdk_add_option_entries_libgtk_only") (return-type "none") (parameters '("GOptionGroup*" "group") ) ) (define-function gdk_pre_parse_libgtk_only (c-name "gdk_pre_parse_libgtk_only") (return-type "none") ) (define-function gdk_exit (c-name "gdk_exit") (return-type "none") (parameters '("gint" "error_code") ) ) (define-function gdk_set_locale (c-name "gdk_set_locale") (return-type "gchar*") ) (define-function gdk_get_program_class (c-name "gdk_get_program_class") (return-type "const-char*") ) (define-function gdk_set_program_class (c-name "gdk_set_program_class") (return-type "none") (parameters '("const-char*" "program_class") ) ) (define-function gdk_error_trap_push (c-name "gdk_error_trap_push") (return-type "none") ) (define-function gdk_error_trap_pop (c-name "gdk_error_trap_pop") (return-type "gint") ) (define-function gdk_set_use_xshm (c-name "gdk_set_use_xshm") (return-type "none") (parameters '("gboolean" "use_xshm") ) ) (define-function gdk_get_use_xshm (c-name "gdk_get_use_xshm") (return-type "gboolean") ) (define-function gdk_get_display (c-name "gdk_get_display") (return-type "gchar*") ) (define-function gdk_get_display_arg_name (c-name "gdk_get_display_arg_name") (return-type "const-gchar*") ) (define-function gdk_input_add_full (c-name "gdk_input_add_full") (return-type "gint") (parameters '("gint" "source") '("GdkInputCondition" "condition") '("GdkInputFunction" "function") '("gpointer" "data") '("GdkDestroyNotify" "destroy") ) ) (define-function gdk_input_add (c-name "gdk_input_add") (return-type "gint") (parameters '("gint" "source") '("GdkInputCondition" "condition") '("GdkInputFunction" "function") '("gpointer" "data") ) ) (define-function gdk_input_remove (c-name "gdk_input_remove") (return-type "none") (parameters '("gint" "tag") ) ) (define-function gdk_pointer_grab (c-name "gdk_pointer_grab") (return-type "GdkGrabStatus") (parameters '("GdkWindow*" "window") '("gboolean" "owner_events") '("GdkEventMask" "event_mask") '("GdkWindow*" "confine_to") '("GdkCursor*" "cursor") '("guint32" "time_") ) ) (define-function gdk_keyboard_grab (c-name "gdk_keyboard_grab") (return-type "GdkGrabStatus") (parameters '("GdkWindow*" "window") '("gboolean" "owner_events") '("guint32" "time_") ) ) (define-function gdk_pointer_grab_info_libgtk_only (c-name "gdk_pointer_grab_info_libgtk_only") (return-type "gboolean") (parameters '("GdkDisplay*" "display") '("GdkWindow**" "grab_window") '("gboolean*" "owner_events") ) ) (define-function gdk_keyboard_grab_info_libgtk_only (c-name "gdk_keyboard_grab_info_libgtk_only") (return-type "gboolean") (parameters '("GdkDisplay*" "display") '("GdkWindow**" "grab_window") '("gboolean*" "owner_events") ) ) (define-function gdk_pointer_ungrab (c-name "gdk_pointer_ungrab") (return-type "none") (parameters '("guint32" "time_") ) ) (define-function gdk_keyboard_ungrab (c-name "gdk_keyboard_ungrab") (return-type "none") (parameters '("guint32" "time_") ) ) (define-function gdk_pointer_is_grabbed (c-name "gdk_pointer_is_grabbed") (return-type "gboolean") ) (define-function gdk_screen_width (c-name "gdk_screen_width") (return-type "gint") ) (define-function gdk_screen_height (c-name "gdk_screen_height") (return-type "gint") ) (define-function gdk_screen_width_mm (c-name "gdk_screen_width_mm") (return-type "gint") ) (define-function gdk_screen_height_mm (c-name "gdk_screen_height_mm") (return-type "gint") ) (define-function gdk_beep (c-name "gdk_beep") (return-type "none") ) (define-function gdk_flush (c-name "gdk_flush") (return-type "none") ) (define-function gdk_set_double_click_time (c-name "gdk_set_double_click_time") (return-type "none") (parameters '("guint" "msec") ) ) (define-method intersect (of-object "GdkRectangle") (c-name "gdk_rectangle_intersect") (return-type "gboolean") (parameters '("GdkRectangle*" "src2") '("GdkRectangle*" "dest") ) ) (define-method union (of-object "GdkRectangle") (c-name "gdk_rectangle_union") (return-type "none") (parameters '("GdkRectangle*" "src2") '("GdkRectangle*" "dest") ) ) (define-function gdk_rectangle_get_type (c-name "gdk_rectangle_get_type") (return-type "GType") ) (define-function gdk_wcstombs (c-name "gdk_wcstombs") (return-type "gchar*") (parameters '("const-GdkWChar*" "src") ) ) (define-function gdk_mbstowcs (c-name "gdk_mbstowcs") (return-type "gint") (parameters '("GdkWChar*" "dest") '("const-gchar*" "src") '("gint" "dest_max") ) ) (define-method send_client_message (of-object "GdkEvent") (c-name "gdk_event_send_client_message") (return-type "gboolean") (parameters '("GdkNativeWindow" "winid") ) ) (define-method send_clientmessage_toall (of-object "GdkEvent") (c-name "gdk_event_send_clientmessage_toall") (return-type "none") ) (define-function gdk_event_send_client_message_for_display (c-name "gdk_event_send_client_message_for_display") (return-type "gboolean") (parameters '("GdkDisplay*" "display") '("GdkEvent*" "event") '("GdkNativeWindow" "winid") ) ) (define-function gdk_notify_startup_complete (c-name "gdk_notify_startup_complete") (return-type "none") ) (define-function gdk_threads_enter (c-name "gdk_threads_enter") (return-type "none") ) (define-function gdk_threads_leave (c-name "gdk_threads_leave") (return-type "none") ) (define-function gdk_threads_init (c-name "gdk_threads_init") (return-type "none") ) (define-function gdk_threads_set_lock_functions (c-name "gdk_threads_set_lock_functions") (return-type "none") (parameters '("GCallback" "enter_fn") '("GCallback" "leave_fn") ) ) ;; From /opt/gnome2/include/gtk-2.0/gdk/gdki18n.h ;; From /opt/gnome2/include/gtk-2.0/gdk/gdkimage.h (define-function gdk_image_get_type (c-name "gdk_image_get_type") (return-type "GType") ) (define-function gdk_image_new (c-name "gdk_image_new") (is-constructor-of "GdkImage") (return-type "GdkImage*") (parameters '("GdkImageType" "type") '("GdkVisual*" "visual") '("gint" "width") '("gint" "height") ) ) (define-function gdk_image_get (c-name "gdk_image_get") (return-type "GdkImage*") (parameters '("GdkDrawable*" "drawable") '("gint" "x") '("gint" "y") '("gint" "width") '("gint" "height") ) ) (define-method ref (of-object "GdkImage") (c-name "gdk_image_ref") (return-type "GdkImage*") ) (define-method unref (of-object "GdkImage") (c-name "gdk_image_unref") (return-type "none") ) (define-method put_pixel (of-object "GdkImage") (c-name "gdk_image_put_pixel") (return-type "none") (parameters '("gint" "x") '("gint" "y") '("guint32" "pixel") ) ) (define-method get_pixel (of-object "GdkImage") (c-name "gdk_image_get_pixel") (return-type "guint32") (parameters '("gint" "x") '("gint" "y") ) ) (define-method set_colormap (of-object "GdkImage") (c-name "gdk_image_set_colormap") (return-type "none") (parameters '("GdkColormap*" "colormap") ) ) (define-method get_colormap (of-object "GdkImage") (c-name "gdk_image_get_colormap") (return-type "GdkColormap*") ) (define-function gdk_image_new_bitmap (c-name "gdk_image_new_bitmap") (return-type "GdkImage*") (parameters '("GdkVisual*" "visual") '("gpointer" "data") '("gint" "width") '("gint" "height") ) ) ;; From /opt/gnome2/include/gtk-2.0/gdk/gdkinput.h (define-function gdk_device_get_type (c-name "gdk_device_get_type") (return-type "GType") ) (define-function gdk_devices_list (c-name "gdk_devices_list") (return-type "GList*") ) (define-method set_source (of-object "GdkDevice") (c-name "gdk_device_set_source") (return-type "none") (parameters '("GdkInputSource" "source") ) ) (define-method set_mode (of-object "GdkDevice") (c-name "gdk_device_set_mode") (return-type "gboolean") (parameters '("GdkInputMode" "mode") ) ) (define-method set_key (of-object "GdkDevice") (c-name "gdk_device_set_key") (return-type "none") (parameters '("guint" "index_") '("guint" "keyval") '("GdkModifierType" "modifiers") ) ) (define-method set_axis_use (of-object "GdkDevice") (c-name "gdk_device_set_axis_use") (return-type "none") (parameters '("guint" "index_") '("GdkAxisUse" "use") ) ) (define-method get_state (of-object "GdkDevice") (c-name "gdk_device_get_state") (return-type "none") (parameters '("GdkWindow*" "window") '("gdouble*" "axes") '("GdkModifierType*" "mask") ) ) (define-method get_history (of-object "GdkDevice") (c-name "gdk_device_get_history") (return-type "gboolean") (parameters '("GdkWindow*" "window") '("guint32" "start") '("guint32" "stop") '("GdkTimeCoord***" "events") '("gint*" "n_events") ) ) (define-function gdk_device_free_history (c-name "gdk_device_free_history") (return-type "none") (parameters '("GdkTimeCoord**" "events") '("gint" "n_events") ) ) (define-method get_axis (of-object "GdkDevice") (c-name "gdk_device_get_axis") (return-type "gboolean") (parameters '("gdouble*" "axes") '("GdkAxisUse" "use") '("gdouble*" "value") ) ) (define-function gdk_input_set_extension_events (c-name "gdk_input_set_extension_events") (return-type "none") (parameters '("GdkWindow*" "window") '("gint" "mask") '("GdkExtensionMode" "mode") ) ) (define-function gdk_device_get_core_pointer (c-name "gdk_device_get_core_pointer") (return-type "GdkDevice*") ) ;; From /opt/gnome2/include/gtk-2.0/gdk/gdkkeys.h (define-function gdk_keymap_get_type (c-name "gdk_keymap_get_type") (return-type "GType") ) (define-function gdk_keymap_get_default (c-name "gdk_keymap_get_default") (return-type "GdkKeymap*") ) (define-function gdk_keymap_get_for_display (c-name "gdk_keymap_get_for_display") (return-type "GdkKeymap*") (parameters '("GdkDisplay*" "display") ) ) (define-method lookup_key (of-object "GdkKeymap") (c-name "gdk_keymap_lookup_key") (return-type "guint") (parameters '("const-GdkKeymapKey*" "key") ) ) (define-method translate_keyboard_state (of-object "GdkKeymap") (c-name "gdk_keymap_translate_keyboard_state") (return-type "gboolean") (parameters '("guint" "hardware_keycode") '("GdkModifierType" "state") '("gint" "group") '("guint*" "keyval") '("gint*" "effective_group") '("gint*" "level") '("GdkModifierType*" "consumed_modifiers") ) ) (define-method get_entries_for_keyval (of-object "GdkKeymap") (c-name "gdk_keymap_get_entries_for_keyval") (return-type "gboolean") (parameters '("guint" "keyval") '("GdkKeymapKey**" "keys") '("gint*" "n_keys") ) ) (define-method get_entries_for_keycode (of-object "GdkKeymap") (c-name "gdk_keymap_get_entries_for_keycode") (return-type "gboolean") (parameters '("guint" "hardware_keycode") '("GdkKeymapKey**" "keys") '("guint**" "keyvals") '("gint*" "n_entries") ) ) (define-method get_direction (of-object "GdkKeymap") (c-name "gdk_keymap_get_direction") (return-type "PangoDirection") ) (define-function gdk_keyval_name (c-name "gdk_keyval_name") (return-type "gchar*") (parameters '("guint" "keyval") ) ) (define-function gdk_keyval_from_name (c-name "gdk_keyval_from_name") (return-type "guint") (parameters '("const-gchar*" "keyval_name") ) ) (define-function gdk_keyval_convert_case (c-name "gdk_keyval_convert_case") (return-type "none") (parameters '("guint" "symbol") '("guint*" "lower") '("guint*" "upper") ) ) (define-function gdk_keyval_to_upper (c-name "gdk_keyval_to_upper") (return-type "guint") (parameters '("guint" "keyval") ) ) (define-function gdk_keyval_to_lower (c-name "gdk_keyval_to_lower") (return-type "guint") (parameters '("guint" "keyval") ) ) (define-function gdk_keyval_is_upper (c-name "gdk_keyval_is_upper") (return-type "gboolean") (parameters '("guint" "keyval") ) ) (define-function gdk_keyval_is_lower (c-name "gdk_keyval_is_lower") (return-type "gboolean") (parameters '("guint" "keyval") ) ) (define-function gdk_keyval_to_unicode (c-name "gdk_keyval_to_unicode") (return-type "guint32") (parameters '("guint" "keyval") ) ) (define-function gdk_unicode_to_keyval (c-name "gdk_unicode_to_keyval") (return-type "guint") (parameters '("guint32" "wc") ) ) ;; From /opt/gnome2/include/gtk-2.0/gdk/gdkkeysyms.h ;; From /opt/gnome2/include/gtk-2.0/gdk/gdkpango.h (define-function gdk_pango_renderer_get_type (c-name "gdk_pango_renderer_get_type") (return-type "GType") ) (define-function gdk_pango_renderer_new (c-name "gdk_pango_renderer_new") (is-constructor-of "GdkPangoRenderer") (return-type "PangoRenderer*") (parameters '("GdkScreen*" "screen") ) ) (define-function gdk_pango_renderer_get_default (c-name "gdk_pango_renderer_get_default") (return-type "PangoRenderer*") (parameters '("GdkScreen*" "screen") ) ) (define-method set_drawable (of-object "GdkPangoRenderer") (c-name "gdk_pango_renderer_set_drawable") (return-type "none") (parameters '("GdkDrawable*" "drawable") ) ) (define-method set_gc (of-object "GdkPangoRenderer") (c-name "gdk_pango_renderer_set_gc") (return-type "none") (parameters '("GdkGC*" "gc") ) ) (define-method set_stipple (of-object "GdkPangoRenderer") (c-name "gdk_pango_renderer_set_stipple") (return-type "none") (parameters '("PangoRenderPart" "part") '("GdkBitmap*" "stipple") ) ) (define-method set_override_color (of-object "GdkPangoRenderer") (c-name "gdk_pango_renderer_set_override_color") (return-type "none") (parameters '("PangoRenderPart" "part") '("const-GdkColor*" "color") ) ) (define-function gdk_pango_context_get_for_screen (c-name "gdk_pango_context_get_for_screen") (return-type "PangoContext*") (parameters '("GdkScreen*" "screen") ) ) (define-function gdk_pango_context_get (c-name "gdk_pango_context_get") (return-type "PangoContext*") ) (define-function gdk_pango_context_set_colormap (c-name "gdk_pango_context_set_colormap") (return-type "none") (parameters '("PangoContext*" "context") '("GdkColormap*" "colormap") ) ) (define-function gdk_pango_layout_line_get_clip_region (c-name "gdk_pango_layout_line_get_clip_region") (return-type "GdkRegion*") (parameters '("PangoLayoutLine*" "line") '("gint" "x_origin") '("gint" "y_origin") '("gint*" "index_ranges") '("gint" "n_ranges") ) ) (define-function gdk_pango_layout_get_clip_region (c-name "gdk_pango_layout_get_clip_region") (return-type "GdkRegion*") (parameters '("PangoLayout*" "layout") '("gint" "x_origin") '("gint" "y_origin") '("gint*" "index_ranges") '("gint" "n_ranges") ) ) (define-function gdk_pango_attr_stipple_new (c-name "gdk_pango_attr_stipple_new") (is-constructor-of "GdkPangoAttrStipple") (return-type "PangoAttribute*") (parameters '("GdkBitmap*" "stipple") ) ) (define-function gdk_pango_attr_embossed_new (c-name "gdk_pango_attr_embossed_new") (is-constructor-of "GdkPangoAttrEmbossed") (return-type "PangoAttribute*") (parameters '("gboolean" "embossed") ) ) ;; From /opt/gnome2/include/gtk-2.0/gdk/gdkpixbuf.h (define-method render_threshold_alpha (of-object "GdkPixbuf") (c-name "gdk_pixbuf_render_threshold_alpha") (return-type "none") (parameters '("GdkBitmap*" "bitmap") '("int" "src_x") '("int" "src_y") '("int" "dest_x") '("int" "dest_y") '("int" "width") '("int" "height") '("int" "alpha_threshold") ) ) (define-method render_to_drawable (of-object "GdkPixbuf") (c-name "gdk_pixbuf_render_to_drawable") (return-type "none") (parameters '("GdkDrawable*" "drawable") '("GdkGC*" "gc") '("int" "src_x") '("int" "src_y") '("int" "dest_x") '("int" "dest_y") '("int" "width") '("int" "height") '("GdkRgbDither" "dither") '("int" "x_dither") '("int" "y_dither") ) ) (define-method render_to_drawable_alpha (of-object "GdkPixbuf") (c-name "gdk_pixbuf_render_to_drawable_alpha") (return-type "none") (parameters '("GdkDrawable*" "drawable") '("int" "src_x") '("int" "src_y") '("int" "dest_x") '("int" "dest_y") '("int" "width") '("int" "height") '("GdkPixbufAlphaMode" "alpha_mode") '("int" "alpha_threshold") '("GdkRgbDither" "dither") '("int" "x_dither") '("int" "y_dither") ) ) (define-method render_pixmap_and_mask_for_colormap (of-object "GdkPixbuf") (c-name "gdk_pixbuf_render_pixmap_and_mask_for_colormap") (return-type "none") (parameters '("GdkColormap*" "colormap") '("GdkPixmap**" "pixmap_return") '("GdkBitmap**" "mask_return") '("int" "alpha_threshold") ) ) (define-method render_pixmap_and_mask (of-object "GdkPixbuf") (c-name "gdk_pixbuf_render_pixmap_and_mask") (return-type "none") (parameters '("GdkPixmap**" "pixmap_return") '("GdkBitmap**" "mask_return") '("int" "alpha_threshold") ) ) (define-method get_from_drawable (of-object "GdkPixbuf") (c-name "gdk_pixbuf_get_from_drawable") (return-type "GdkPixbuf*") (parameters '("GdkDrawable*" "src") '("GdkColormap*" "cmap") '("int" "src_x") '("int" "src_y") '("int" "dest_x") '("int" "dest_y") '("int" "width") '("int" "height") ) ) (define-method get_from_image (of-object "GdkPixbuf") (c-name "gdk_pixbuf_get_from_image") (return-type "GdkPixbuf*") (parameters '("GdkImage*" "src") '("GdkColormap*" "cmap") '("int" "src_x") '("int" "src_y") '("int" "dest_x") '("int" "dest_y") '("int" "width") '("int" "height") ) ) ;; From /opt/gnome2/include/gtk-2.0/gdk/gdkpixmap.h (define-function gdk_pixmap_get_type (c-name "gdk_pixmap_get_type") (return-type "GType") ) (define-function gdk_pixmap_new (c-name "gdk_pixmap_new") (is-constructor-of "GdkPixmap") (return-type "GdkPixmap*") (parameters '("GdkDrawable*" "drawable") '("gint" "width") '("gint" "height") '("gint" "depth") ) ) (define-function gdk_bitmap_create_from_data (c-name "gdk_bitmap_create_from_data") (return-type "GdkBitmap*") (parameters '("GdkDrawable*" "drawable") '("const-gchar*" "data") '("gint" "width") '("gint" "height") ) ) (define-function gdk_pixmap_create_from_data (c-name "gdk_pixmap_create_from_data") (return-type "GdkPixmap*") (parameters '("GdkDrawable*" "drawable") '("const-gchar*" "data") '("gint" "width") '("gint" "height") '("gint" "depth") '("const-GdkColor*" "fg") '("const-GdkColor*" "bg") ) ) (define-function gdk_pixmap_create_from_xpm (c-name "gdk_pixmap_create_from_xpm") (return-type "GdkPixmap*") (parameters '("GdkDrawable*" "drawable") '("GdkBitmap**" "mask") '("const-GdkColor*" "transparent_color") '("const-gchar*" "filename") ) ) (define-function gdk_pixmap_colormap_create_from_xpm (c-name "gdk_pixmap_colormap_create_from_xpm") (return-type "GdkPixmap*") (parameters '("GdkDrawable*" "drawable") '("GdkColormap*" "colormap") '("GdkBitmap**" "mask") '("const-GdkColor*" "transparent_color") '("const-gchar*" "filename") ) ) (define-function gdk_pixmap_create_from_xpm_d (c-name "gdk_pixmap_create_from_xpm_d") (return-type "GdkPixmap*") (parameters '("GdkDrawable*" "drawable") '("GdkBitmap**" "mask") '("const-GdkColor*" "transparent_color") '("gchar**" "data") ) ) (define-function gdk_pixmap_colormap_create_from_xpm_d (c-name "gdk_pixmap_colormap_create_from_xpm_d") (return-type "GdkPixmap*") (parameters '("GdkDrawable*" "drawable") '("GdkColormap*" "colormap") '("GdkBitmap**" "mask") '("const-GdkColor*" "transparent_color") '("gchar**" "data") ) ) (define-function gdk_pixmap_foreign_new (c-name "gdk_pixmap_foreign_new") (is-constructor-of "GdkPixmapForeign") (return-type "GdkPixmap*") (parameters '("GdkNativeWindow" "anid") ) ) (define-function gdk_pixmap_lookup (c-name "gdk_pixmap_lookup") (return-type "GdkPixmap*") (parameters '("GdkNativeWindow" "anid") ) ) (define-function gdk_pixmap_foreign_new_for_display (c-name "gdk_pixmap_foreign_new_for_display") (return-type "GdkPixmap*") (parameters '("GdkDisplay*" "display") '("GdkNativeWindow" "anid") ) ) (define-function gdk_pixmap_lookup_for_display (c-name "gdk_pixmap_lookup_for_display") (return-type "GdkPixmap*") (parameters '("GdkDisplay*" "display") '("GdkNativeWindow" "anid") ) ) (define-function gdk_pixmap_foreign_new_for_screen (c-name "gdk_pixmap_foreign_new_for_screen") (return-type "GdkPixmap*") (parameters '("GdkScreen*" "screen") '("GdkNativeWindow" "anid") '("gint" "width") '("gint" "height") '("gint" "depth") ) ) ;; From /opt/gnome2/include/gtk-2.0/gdk/gdkprivate.h (define-method destroy_notify (of-object "GdkWindow") (c-name "gdk_window_destroy_notify") (return-type "none") ) (define-function gdk_synthesize_window_state (c-name "gdk_synthesize_window_state") (return-type "none") (parameters '("GdkWindow*" "window") '("GdkWindowState" "unset_flags") '("GdkWindowState" "set_flags") ) ) ;; From /opt/gnome2/include/gtk-2.0/gdk/gdkproperty.h (define-function gdk_atom_intern (c-name "gdk_atom_intern") (return-type "GdkAtom") (parameters '("const-gchar*" "atom_name") '("gboolean" "only_if_exists") ) ) (define-function gdk_atom_intern_static_string (c-name "gdk_atom_intern_static_string") (return-type "GdkAtom") (parameters '("const-gchar*" "atom_name") ) ) (define-function gdk_atom_name (c-name "gdk_atom_name") (return-type "gchar*") (parameters '("GdkAtom" "atom") ) ) (define-function gdk_property_get (c-name "gdk_property_get") (return-type "gboolean") (parameters '("GdkWindow*" "window") '("GdkAtom" "property") '("GdkAtom" "type") '("gulong" "offset") '("gulong" "length") '("gint" "pdelete") '("GdkAtom*" "actual_property_type") '("gint*" "actual_format") '("gint*" "actual_length") '("guchar**" "data") ) ) (define-function gdk_property_change (c-name "gdk_property_change") (return-type "none") (parameters '("GdkWindow*" "window") '("GdkAtom" "property") '("GdkAtom" "type") '("gint" "format") '("GdkPropMode" "mode") '("const-guchar*" "data") '("gint" "nelements") ) ) (define-function gdk_property_delete (c-name "gdk_property_delete") (return-type "none") (parameters '("GdkWindow*" "window") '("GdkAtom" "property") ) ) (define-function gdk_text_property_to_text_list (c-name "gdk_text_property_to_text_list") (return-type "gint") (parameters '("GdkAtom" "encoding") '("gint" "format") '("const-guchar*" "text") '("gint" "length") '("gchar***" "list") ) ) (define-function gdk_text_property_to_utf8_list (c-name "gdk_text_property_to_utf8_list") (return-type "gint") (parameters '("GdkAtom" "encoding") '("gint" "format") '("const-guchar*" "text") '("gint" "length") '("gchar***" "list") ) ) (define-function gdk_utf8_to_compound_text (c-name "gdk_utf8_to_compound_text") (return-type "gboolean") (parameters '("const-gchar*" "str") '("GdkAtom*" "encoding") '("gint*" "format") '("guchar**" "ctext") '("gint*" "length") ) ) (define-function gdk_string_to_compound_text (c-name "gdk_string_to_compound_text") (return-type "gint") (parameters '("const-gchar*" "str") '("GdkAtom*" "encoding") '("gint*" "format") '("guchar**" "ctext") '("gint*" "length") ) ) (define-function gdk_text_property_to_text_list_for_display (c-name "gdk_text_property_to_text_list_for_display") (return-type "gint") (parameters '("GdkDisplay*" "display") '("GdkAtom" "encoding") '("gint" "format") '("const-guchar*" "text") '("gint" "length") '("gchar***" "list") ) ) (define-function gdk_text_property_to_utf8_list_for_display (c-name "gdk_text_property_to_utf8_list_for_display") (return-type "gint") (parameters '("GdkDisplay*" "display") '("GdkAtom" "encoding") '("gint" "format") '("const-guchar*" "text") '("gint" "length") '("gchar***" "list") ) ) (define-function gdk_utf8_to_string_target (c-name "gdk_utf8_to_string_target") (return-type "gchar*") (parameters '("const-gchar*" "str") ) ) (define-function gdk_string_to_compound_text_for_display (c-name "gdk_string_to_compound_text_for_display") (return-type "gint") (parameters '("GdkDisplay*" "display") '("const-gchar*" "str") '("GdkAtom*" "encoding") '("gint*" "format") '("guchar**" "ctext") '("gint*" "length") ) ) (define-function gdk_utf8_to_compound_text_for_display (c-name "gdk_utf8_to_compound_text_for_display") (return-type "gboolean") (parameters '("GdkDisplay*" "display") '("const-gchar*" "str") '("GdkAtom*" "encoding") '("gint*" "format") '("guchar**" "ctext") '("gint*" "length") ) ) (define-function gdk_free_text_list (c-name "gdk_free_text_list") (return-type "none") (parameters '("gchar**" "list") ) ) (define-function gdk_free_compound_text (c-name "gdk_free_compound_text") (return-type "none") (parameters '("guchar*" "ctext") ) ) ;; From /opt/gnome2/include/gtk-2.0/gdk/gdkregion.h (define-function gdk_region_new (c-name "gdk_region_new") (is-constructor-of "GdkRegion") (return-type "GdkRegion*") ) (define-function gdk_region_polygon (c-name "gdk_region_polygon") (return-type "GdkRegion*") (parameters '("GdkPoint*" "points") '("gint" "npoints") '("GdkFillRule" "fill_rule") ) ) (define-method copy (of-object "GdkRegion") (c-name "gdk_region_copy") (return-type "GdkRegion*") ) (define-function gdk_region_rectangle (c-name "gdk_region_rectangle") (return-type "GdkRegion*") (parameters '("GdkRectangle*" "rectangle") ) ) (define-method destroy (of-object "GdkRegion") (c-name "gdk_region_destroy") (return-type "none") ) (define-method get_clipbox (of-object "GdkRegion") (c-name "gdk_region_get_clipbox") (return-type "none") (parameters '("GdkRectangle*" "rectangle") ) ) (define-method get_rectangles (of-object "GdkRegion") (c-name "gdk_region_get_rectangles") (return-type "none") (parameters '("GdkRectangle**" "rectangles") '("gint*" "n_rectangles") ) ) (define-method empty (of-object "GdkRegion") (c-name "gdk_region_empty") (return-type "gboolean") ) (define-method equal (of-object "GdkRegion") (c-name "gdk_region_equal") (return-type "gboolean") (parameters '("GdkRegion*" "region2") ) ) (define-method point_in (of-object "GdkRegion") (c-name "gdk_region_point_in") (return-type "gboolean") (parameters '("int" "x") '("int" "y") ) ) (define-method rect_in (of-object "GdkRegion") (c-name "gdk_region_rect_in") (return-type "GdkOverlapType") (parameters '("GdkRectangle*" "rectangle") ) ) (define-method offset (of-object "GdkRegion") (c-name "gdk_region_offset") (return-type "none") (parameters '("gint" "dx") '("gint" "dy") ) ) (define-method shrink (of-object "GdkRegion") (c-name "gdk_region_shrink") (return-type "none") (parameters '("gint" "dx") '("gint" "dy") ) ) (define-method union_with_rect (of-object "GdkRegion") (c-name "gdk_region_union_with_rect") (return-type "none") (parameters '("GdkRectangle*" "rect") ) ) (define-method intersect (of-object "GdkRegion") (c-name "gdk_region_intersect") (return-type "none") (parameters '("GdkRegion*" "source2") ) ) (define-method union (of-object "GdkRegion") (c-name "gdk_region_union") (return-type "none") (parameters '("GdkRegion*" "source2") ) ) (define-method subtract (of-object "GdkRegion") (c-name "gdk_region_subtract") (return-type "none") (parameters '("GdkRegion*" "source2") ) ) (define-method xor (of-object "GdkRegion") (c-name "gdk_region_xor") (return-type "none") (parameters '("GdkRegion*" "source2") ) ) (define-method spans_intersect_foreach (of-object "GdkRegion") (c-name "gdk_region_spans_intersect_foreach") (return-type "none") (parameters '("GdkSpan*" "spans") '("int" "n_spans") '("gboolean" "sorted") '("GdkSpanFunc" "function") '("gpointer" "data") ) ) ;; From /opt/gnome2/include/gtk-2.0/gdk/gdkrgb.h (define-function gdk_rgb_init (c-name "gdk_rgb_init") (return-type "none") ) (define-function gdk_rgb_xpixel_from_rgb (c-name "gdk_rgb_xpixel_from_rgb") (return-type "gulong") (parameters '("guint32" "rgb") ) ) (define-function gdk_rgb_gc_set_foreground (c-name "gdk_rgb_gc_set_foreground") (return-type "none") (parameters '("GdkGC*" "gc") '("guint32" "rgb") ) ) (define-function gdk_rgb_gc_set_background (c-name "gdk_rgb_gc_set_background") (return-type "none") (parameters '("GdkGC*" "gc") '("guint32" "rgb") ) ) (define-function gdk_rgb_find_color (c-name "gdk_rgb_find_color") (return-type "none") (parameters '("GdkColormap*" "colormap") '("GdkColor*" "color") ) ) (define-function gdk_draw_rgb_image (c-name "gdk_draw_rgb_image") (return-type "none") (parameters '("GdkDrawable*" "drawable") '("GdkGC*" "gc") '("gint" "x") '("gint" "y") '("gint" "width") '("gint" "height") '("GdkRgbDither" "dith") '("guchar*" "rgb_buf") '("gint" "rowstride") ) ) (define-function gdk_draw_rgb_image_dithalign (c-name "gdk_draw_rgb_image_dithalign") (return-type "none") (parameters '("GdkDrawable*" "drawable") '("GdkGC*" "gc") '("gint" "x") '("gint" "y") '("gint" "width") '("gint" "height") '("GdkRgbDither" "dith") '("guchar*" "rgb_buf") '("gint" "rowstride") '("gint" "xdith") '("gint" "ydith") ) ) (define-function gdk_draw_rgb_32_image (c-name "gdk_draw_rgb_32_image") (return-type "none") (parameters '("GdkDrawable*" "drawable") '("GdkGC*" "gc") '("gint" "x") '("gint" "y") '("gint" "width") '("gint" "height") '("GdkRgbDither" "dith") '("guchar*" "buf") '("gint" "rowstride") ) ) (define-function gdk_draw_rgb_32_image_dithalign (c-name "gdk_draw_rgb_32_image_dithalign") (return-type "none") (parameters '("GdkDrawable*" "drawable") '("GdkGC*" "gc") '("gint" "x") '("gint" "y") '("gint" "width") '("gint" "height") '("GdkRgbDither" "dith") '("guchar*" "buf") '("gint" "rowstride") '("gint" "xdith") '("gint" "ydith") ) ) (define-function gdk_draw_gray_image (c-name "gdk_draw_gray_image") (return-type "none") (parameters '("GdkDrawable*" "drawable") '("GdkGC*" "gc") '("gint" "x") '("gint" "y") '("gint" "width") '("gint" "height") '("GdkRgbDither" "dith") '("guchar*" "buf") '("gint" "rowstride") ) ) (define-function gdk_draw_indexed_image (c-name "gdk_draw_indexed_image") (return-type "none") (parameters '("GdkDrawable*" "drawable") '("GdkGC*" "gc") '("gint" "x") '("gint" "y") '("gint" "width") '("gint" "height") '("GdkRgbDither" "dith") '("guchar*" "buf") '("gint" "rowstride") '("GdkRgbCmap*" "cmap") ) ) (define-function gdk_rgb_cmap_new (c-name "gdk_rgb_cmap_new") (is-constructor-of "GdkRgbCmap") (return-type "GdkRgbCmap*") (parameters '("guint32*" "colors") '("gint" "n_colors") ) ) (define-method free (of-object "GdkRgbCmap") (c-name "gdk_rgb_cmap_free") (return-type "none") ) (define-function gdk_rgb_set_verbose (c-name "gdk_rgb_set_verbose") (return-type "none") (parameters '("gboolean" "verbose") ) ) (define-function gdk_rgb_set_install (c-name "gdk_rgb_set_install") (return-type "none") (parameters '("gboolean" "install") ) ) (define-function gdk_rgb_set_min_colors (c-name "gdk_rgb_set_min_colors") (return-type "none") (parameters '("gint" "min_colors") ) ) (define-function gdk_rgb_get_colormap (c-name "gdk_rgb_get_colormap") (return-type "GdkColormap*") ) (define-function gdk_rgb_get_visual (c-name "gdk_rgb_get_visual") (return-type "GdkVisual*") ) (define-function gdk_rgb_ditherable (c-name "gdk_rgb_ditherable") (return-type "gboolean") ) (define-function gdk_rgb_colormap_ditherable (c-name "gdk_rgb_colormap_ditherable") (return-type "gboolean") (parameters '("GdkColormap*" "cmap") ) ) ;; From /opt/gnome2/include/gtk-2.0/gdk/gdkscreen.h (define-function gdk_screen_get_type (c-name "gdk_screen_get_type") (return-type "GType") ) (define-method get_default_colormap (of-object "GdkScreen") (c-name "gdk_screen_get_default_colormap") (return-type "GdkColormap*") ) (define-method set_default_colormap (of-object "GdkScreen") (c-name "gdk_screen_set_default_colormap") (return-type "none") (parameters '("GdkColormap*" "colormap") ) ) (define-method get_system_colormap (of-object "GdkScreen") (c-name "gdk_screen_get_system_colormap") (return-type "GdkColormap*") ) (define-method get_system_visual (of-object "GdkScreen") (c-name "gdk_screen_get_system_visual") (return-type "GdkVisual*") ) (define-method get_rgb_colormap (of-object "GdkScreen") (c-name "gdk_screen_get_rgb_colormap") (return-type "GdkColormap*") ) (define-method get_rgb_visual (of-object "GdkScreen") (c-name "gdk_screen_get_rgb_visual") (return-type "GdkVisual*") ) (define-method get_rgba_colormap (of-object "GdkScreen") (c-name "gdk_screen_get_rgba_colormap") (return-type "GdkColormap*") ) (define-method get_rgba_visual (of-object "GdkScreen") (c-name "gdk_screen_get_rgba_visual") (return-type "GdkVisual*") ) (define-method is_composited (of-object "GdkScreen") (c-name "gdk_screen_is_composited") (return-type "gboolean") ) (define-method get_root_window (of-object "GdkScreen") (c-name "gdk_screen_get_root_window") (return-type "GdkWindow*") ) (define-method get_display (of-object "GdkScreen") (c-name "gdk_screen_get_display") (return-type "GdkDisplay*") ) (define-method get_number (of-object "GdkScreen") (c-name "gdk_screen_get_number") (return-type "gint") ) (define-method get_width (of-object "GdkScreen") (c-name "gdk_screen_get_width") (return-type "gint") ) (define-method get_height (of-object "GdkScreen") (c-name "gdk_screen_get_height") (return-type "gint") ) (define-method get_width_mm (of-object "GdkScreen") (c-name "gdk_screen_get_width_mm") (return-type "gint") ) (define-method get_height_mm (of-object "GdkScreen") (c-name "gdk_screen_get_height_mm") (return-type "gint") ) (define-method list_visuals (of-object "GdkScreen") (c-name "gdk_screen_list_visuals") (return-type "GList*") ) (define-method get_toplevel_windows (of-object "GdkScreen") (c-name "gdk_screen_get_toplevel_windows") (return-type "GList*") ) (define-method make_display_name (of-object "GdkScreen") (c-name "gdk_screen_make_display_name") (return-type "gchar*") ) (define-method get_n_monitors (of-object "GdkScreen") (c-name "gdk_screen_get_n_monitors") (return-type "gint") ) (define-method get_monitor_geometry (of-object "GdkScreen") (c-name "gdk_screen_get_monitor_geometry") (return-type "none") (parameters '("gint" "monitor_num") '("GdkRectangle*" "dest") ) ) (define-method get_monitor_at_point (of-object "GdkScreen") (c-name "gdk_screen_get_monitor_at_point") (return-type "gint") (parameters '("gint" "x") '("gint" "y") ) ) (define-method get_monitor_at_window (of-object "GdkScreen") (c-name "gdk_screen_get_monitor_at_window") (return-type "gint") (parameters '("GdkWindow*" "window") ) ) (define-method broadcast_client_message (of-object "GdkScreen") (c-name "gdk_screen_broadcast_client_message") (return-type "none") (parameters '("GdkEvent*" "event") ) ) (define-function gdk_screen_get_default (c-name "gdk_screen_get_default") (return-type "GdkScreen*") ) (define-method get_setting (of-object "GdkScreen") (c-name "gdk_screen_get_setting") (return-type "gboolean") (parameters '("const-gchar*" "name") '("GValue*" "value") ) ) (define-method set_font_options (of-object "GdkScreen") (c-name "gdk_screen_set_font_options") (return-type "none") (parameters '("const-cairo_font_options_t*" "options") ) ) (define-method get_font_options (of-object "GdkScreen") (c-name "gdk_screen_get_font_options") (return-type "const-cairo_font_options_t*") ) (define-method set_resolution (of-object "GdkScreen") (c-name "gdk_screen_set_resolution") (return-type "none") (parameters '("gdouble" "dpi") ) ) (define-method get_resolution (of-object "GdkScreen") (c-name "gdk_screen_get_resolution") (return-type "gdouble") ) (define-method get_active_window (of-object "GdkScreen") (c-name "gdk_screen_get_active_window") (return-type "GdkWindow*") ) (define-method get_window_stack (of-object "GdkScreen") (c-name "gdk_screen_get_window_stack") (return-type "GList*") ) ;; From /opt/gnome2/include/gtk-2.0/gdk/gdkselection.h (define-function gdk_selection_owner_set (c-name "gdk_selection_owner_set") (return-type "gboolean") (parameters '("GdkWindow*" "owner") '("GdkAtom" "selection") '("guint32" "time_") '("gboolean" "send_event") ) ) (define-function gdk_selection_owner_get (c-name "gdk_selection_owner_get") (return-type "GdkWindow*") (parameters '("GdkAtom" "selection") ) ) (define-function gdk_selection_owner_set_for_display (c-name "gdk_selection_owner_set_for_display") (return-type "gboolean") (parameters '("GdkDisplay*" "display") '("GdkWindow*" "owner") '("GdkAtom" "selection") '("guint32" "time_") '("gboolean" "send_event") ) ) (define-function gdk_selection_owner_get_for_display (c-name "gdk_selection_owner_get_for_display") (return-type "GdkWindow*") (parameters '("GdkDisplay*" "display") '("GdkAtom" "selection") ) ) (define-function gdk_selection_convert (c-name "gdk_selection_convert") (return-type "none") (parameters '("GdkWindow*" "requestor") '("GdkAtom" "selection") '("GdkAtom" "target") '("guint32" "time_") ) ) (define-function gdk_selection_property_get (c-name "gdk_selection_property_get") (return-type "gboolean") (parameters '("GdkWindow*" "requestor") '("guchar**" "data") '("GdkAtom*" "prop_type") '("gint*" "prop_format") ) ) (define-function gdk_selection_send_notify (c-name "gdk_selection_send_notify") (return-type "none") (parameters '("guint32" "requestor") '("GdkAtom" "selection") '("GdkAtom" "target") '("GdkAtom" "property") '("guint32" "time_") ) ) (define-function gdk_selection_send_notify_for_display (c-name "gdk_selection_send_notify_for_display") (return-type "none") (parameters '("GdkDisplay*" "display") '("guint32" "requestor") '("GdkAtom" "selection") '("GdkAtom" "target") '("GdkAtom" "property") '("guint32" "time_") ) ) ;; From /opt/gnome2/include/gtk-2.0/gdk/gdkspawn.h (define-function gdk_spawn_on_screen (c-name "gdk_spawn_on_screen") (return-type "gboolean") (parameters '("GdkScreen*" "screen") '("const-gchar*" "working_directory") '("gchar**" "argv") '("gchar**" "envp") '("GSpawnFlags" "flags") '("GSpawnChildSetupFunc" "child_setup") '("gpointer" "user_data") '("gint*" "child_pid") '("GError**" "error") ) ) (define-function gdk_spawn_on_screen_with_pipes (c-name "gdk_spawn_on_screen_with_pipes") (return-type "gboolean") (parameters '("GdkScreen*" "screen") '("const-gchar*" "working_directory") '("gchar**" "argv") '("gchar**" "envp") '("GSpawnFlags" "flags") '("GSpawnChildSetupFunc" "child_setup") '("gpointer" "user_data") '("gint*" "child_pid") '("gint*" "standard_input") '("gint*" "standard_output") '("gint*" "standard_error") '("GError**" "error") ) ) (define-function gdk_spawn_command_line_on_screen (c-name "gdk_spawn_command_line_on_screen") (return-type "gboolean") (parameters '("GdkScreen*" "screen") '("const-gchar*" "command_line") '("GError**" "error") ) ) ;; From /opt/gnome2/include/gtk-2.0/gdk/gdktypes.h ;; From /opt/gnome2/include/gtk-2.0/gdk/gdkvisual.h (define-function gdk_visual_get_type (c-name "gdk_visual_get_type") (return-type "GType") ) (define-function gdk_visual_get_best_depth (c-name "gdk_visual_get_best_depth") (return-type "gint") ) (define-function gdk_visual_get_best_type (c-name "gdk_visual_get_best_type") (return-type "GdkVisualType") ) (define-function gdk_visual_get_system (c-name "gdk_visual_get_system") (return-type "GdkVisual*") ) (define-function gdk_visual_get_best (c-name "gdk_visual_get_best") (return-type "GdkVisual*") ) (define-function gdk_visual_get_best_with_depth (c-name "gdk_visual_get_best_with_depth") (return-type "GdkVisual*") (parameters '("gint" "depth") ) ) (define-function gdk_visual_get_best_with_type (c-name "gdk_visual_get_best_with_type") (return-type "GdkVisual*") (parameters '("GdkVisualType" "visual_type") ) ) (define-function gdk_visual_get_best_with_both (c-name "gdk_visual_get_best_with_both") (return-type "GdkVisual*") (parameters '("gint" "depth") '("GdkVisualType" "visual_type") ) ) (define-function gdk_query_depths (c-name "gdk_query_depths") (return-type "none") (parameters '("gint**" "depths") '("gint*" "count") ) ) (define-function gdk_query_visual_types (c-name "gdk_query_visual_types") (return-type "none") (parameters '("GdkVisualType**" "visual_types") '("gint*" "count") ) ) (define-function gdk_list_visuals (c-name "gdk_list_visuals") (return-type "GList*") ) (define-method get_screen (of-object "GdkVisual") (c-name "gdk_visual_get_screen") (return-type "GdkScreen*") ) ;; From /opt/gnome2/include/gtk-2.0/gdk/gdkwindow.h (define-function gdk_window_object_get_type (c-name "gdk_window_object_get_type") (return-type "GType") ) (define-method new (of-object "GdkWindow") (c-name "gdk_window_new") (return-type "GdkWindow*") (parameters '("GdkWindowAttr*" "attributes") '("gint" "attributes_mask") ) ) (define-method destroy (of-object "GdkWindow") (c-name "gdk_window_destroy") (return-type "none") ) (define-method get_window_type (of-object "GdkWindow") (c-name "gdk_window_get_window_type") (return-type "GdkWindowType") ) (define-function gdk_window_at_pointer (c-name "gdk_window_at_pointer") (return-type "GdkWindow*") (parameters '("gint*" "win_x") '("gint*" "win_y") ) ) (define-method show (of-object "GdkWindow") (c-name "gdk_window_show") (return-type "none") ) (define-method hide (of-object "GdkWindow") (c-name "gdk_window_hide") (return-type "none") ) (define-method withdraw (of-object "GdkWindow") (c-name "gdk_window_withdraw") (return-type "none") ) (define-method show_unraised (of-object "GdkWindow") (c-name "gdk_window_show_unraised") (return-type "none") ) (define-method move (of-object "GdkWindow") (c-name "gdk_window_move") (return-type "none") (parameters '("gint" "x") '("gint" "y") ) ) (define-method resize (of-object "GdkWindow") (c-name "gdk_window_resize") (return-type "none") (parameters '("gint" "width") '("gint" "height") ) ) (define-method move_resize (of-object "GdkWindow") (c-name "gdk_window_move_resize") (return-type "none") (parameters '("gint" "x") '("gint" "y") '("gint" "width") '("gint" "height") ) ) (define-method reparent (of-object "GdkWindow") (c-name "gdk_window_reparent") (return-type "none") (parameters '("GdkWindow*" "new_parent") '("gint" "x") '("gint" "y") ) ) (define-method clear (of-object "GdkWindow") (c-name "gdk_window_clear") (return-type "none") ) (define-method clear_area (of-object "GdkWindow") (c-name "gdk_window_clear_area") (return-type "none") (parameters '("gint" "x") '("gint" "y") '("gint" "width") '("gint" "height") ) ) (define-method clear_area_e (of-object "GdkWindow") (c-name "gdk_window_clear_area_e") (return-type "none") (parameters '("gint" "x") '("gint" "y") '("gint" "width") '("gint" "height") ) ) (define-method raise (of-object "GdkWindow") (c-name "gdk_window_raise") (return-type "none") ) (define-method lower (of-object "GdkWindow") (c-name "gdk_window_lower") (return-type "none") ) (define-method focus (of-object "GdkWindow") (c-name "gdk_window_focus") (return-type "none") (parameters '("guint32" "timestamp") ) ) (define-method set_user_data (of-object "GdkWindow") (c-name "gdk_window_set_user_data") (return-type "none") (parameters '("gpointer" "user_data") ) ) (define-method set_override_redirect (of-object "GdkWindow") (c-name "gdk_window_set_override_redirect") (return-type "none") (parameters '("gboolean" "override_redirect") ) ) (define-method set_accept_focus (of-object "GdkWindow") (c-name "gdk_window_set_accept_focus") (return-type "none") (parameters '("gboolean" "accept_focus") ) ) (define-method set_focus_on_map (of-object "GdkWindow") (c-name "gdk_window_set_focus_on_map") (return-type "none") (parameters '("gboolean" "focus_on_map") ) ) (define-method add_filter (of-object "GdkWindow") (c-name "gdk_window_add_filter") (return-type "none") (parameters '("GdkFilterFunc" "function") '("gpointer" "data") ) ) (define-method remove_filter (of-object "GdkWindow") (c-name "gdk_window_remove_filter") (return-type "none") (parameters '("GdkFilterFunc" "function") '("gpointer" "data") ) ) (define-method scroll (of-object "GdkWindow") (c-name "gdk_window_scroll") (return-type "none") (parameters '("gint" "dx") '("gint" "dy") ) ) (define-method move_region (of-object "GdkWindow") (c-name "gdk_window_move_region") (return-type "none") (parameters '("GdkRegion*" "region") '("gint" "dx") '("gint" "dy") ) ) (define-method shape_combine_mask (of-object "GdkWindow") (c-name "gdk_window_shape_combine_mask") (return-type "none") (parameters '("GdkBitmap*" "mask") '("gint" "x") '("gint" "y") ) ) (define-method shape_combine_region (of-object "GdkWindow") (c-name "gdk_window_shape_combine_region") (return-type "none") (parameters '("GdkRegion*" "shape_region") '("gint" "offset_x") '("gint" "offset_y") ) ) (define-method set_child_shapes (of-object "GdkWindow") (c-name "gdk_window_set_child_shapes") (return-type "none") ) (define-method merge_child_shapes (of-object "GdkWindow") (c-name "gdk_window_merge_child_shapes") (return-type "none") ) (define-method input_shape_combine_mask (of-object "GdkWindow") (c-name "gdk_window_input_shape_combine_mask") (return-type "none") (parameters '("GdkBitmap*" "mask") '("gint" "x") '("gint" "y") ) ) (define-method input_shape_combine_region (of-object "GdkWindow") (c-name "gdk_window_input_shape_combine_region") (return-type "none") (parameters '("GdkRegion*" "shape_region") '("gint" "offset_x") '("gint" "offset_y") ) ) (define-method set_child_input_shapes (of-object "GdkWindow") (c-name "gdk_window_set_child_input_shapes") (return-type "none") ) (define-method merge_child_input_shapes (of-object "GdkWindow") (c-name "gdk_window_merge_child_input_shapes") (return-type "none") ) (define-method is_visible (of-object "GdkWindow") (c-name "gdk_window_is_visible") (return-type "gboolean") ) (define-method is_viewable (of-object "GdkWindow") (c-name "gdk_window_is_viewable") (return-type "gboolean") ) (define-method get_state (of-object "GdkWindow") (c-name "gdk_window_get_state") (return-type "GdkWindowState") ) (define-method set_static_gravities (of-object "GdkWindow") (c-name "gdk_window_set_static_gravities") (return-type "gboolean") (parameters '("gboolean" "use_static") ) ) (define-function gdk_window_foreign_new (c-name "gdk_window_foreign_new") (is-constructor-of "GdkWindowForeign") (return-type "GdkWindow*") (parameters '("GdkNativeWindow" "anid") ) ) (define-function gdk_window_lookup (c-name "gdk_window_lookup") (return-type "GdkWindow*") (parameters '("GdkNativeWindow" "anid") ) ) (define-function gdk_window_foreign_new_for_display (c-name "gdk_window_foreign_new_for_display") (return-type "GdkWindow*") (parameters '("GdkDisplay*" "display") '("GdkNativeWindow" "anid") ) ) (define-function gdk_window_lookup_for_display (c-name "gdk_window_lookup_for_display") (return-type "GdkWindow*") (parameters '("GdkDisplay*" "display") '("GdkNativeWindow" "anid") ) ) (define-method set_hints (of-object "GdkWindow") (c-name "gdk_window_set_hints") (return-type "none") (parameters '("gint" "x") '("gint" "y") '("gint" "min_width") '("gint" "min_height") '("gint" "max_width") '("gint" "max_height") '("gint" "flags") ) ) (define-method set_type_hint (of-object "GdkWindow") (c-name "gdk_window_set_type_hint") (return-type "none") (parameters '("GdkWindowTypeHint" "hint") ) ) (define-method get_type_hint (of-object "GdkWindow") (c-name "gdk_window_get_type_hint") (return-type "GdkWindowTypeHint") ) (define-method set_modal_hint (of-object "GdkWindow") (c-name "gdk_window_set_modal_hint") (return-type "none") (parameters '("gboolean" "modal") ) ) (define-method set_skip_taskbar_hint (of-object "GdkWindow") (c-name "gdk_window_set_skip_taskbar_hint") (return-type "none") (parameters '("gboolean" "skips_taskbar") ) ) (define-method set_skip_pager_hint (of-object "GdkWindow") (c-name "gdk_window_set_skip_pager_hint") (return-type "none") (parameters '("gboolean" "skips_pager") ) ) (define-method set_urgency_hint (of-object "GdkWindow") (c-name "gdk_window_set_urgency_hint") (return-type "none") (parameters '("gboolean" "urgent") ) ) (define-method set_geometry_hints (of-object "GdkWindow") (c-name "gdk_window_set_geometry_hints") (return-type "none") (parameters '("GdkGeometry*" "geometry") '("GdkWindowHints" "geom_mask") ) ) (define-function gdk_set_sm_client_id (c-name "gdk_set_sm_client_id") (return-type "none") (parameters '("const-gchar*" "sm_client_id") ) ) (define-method begin_paint_rect (of-object "GdkWindow") (c-name "gdk_window_begin_paint_rect") (return-type "none") (parameters '("GdkRectangle*" "rectangle") ) ) (define-method begin_paint_region (of-object "GdkWindow") (c-name "gdk_window_begin_paint_region") (return-type "none") (parameters '("GdkRegion*" "region") ) ) (define-method end_paint (of-object "GdkWindow") (c-name "gdk_window_end_paint") (return-type "none") ) (define-method set_title (of-object "GdkWindow") (c-name "gdk_window_set_title") (return-type "none") (parameters '("const-gchar*" "title") ) ) (define-method set_role (of-object "GdkWindow") (c-name "gdk_window_set_role") (return-type "none") (parameters '("const-gchar*" "role") ) ) (define-method set_transient_for (of-object "GdkWindow") (c-name "gdk_window_set_transient_for") (return-type "none") (parameters '("GdkWindow*" "parent") ) ) (define-method set_background (of-object "GdkWindow") (c-name "gdk_window_set_background") (return-type "none") (parameters '("const-GdkColor*" "color") ) ) (define-method set_back_pixmap (of-object "GdkWindow") (c-name "gdk_window_set_back_pixmap") (return-type "none") (parameters '("GdkPixmap*" "pixmap") '("gboolean" "parent_relative") ) ) (define-method set_cursor (of-object "GdkWindow") (c-name "gdk_window_set_cursor") (return-type "none") (parameters '("GdkCursor*" "cursor") ) ) (define-method get_user_data (of-object "GdkWindow") (c-name "gdk_window_get_user_data") (return-type "none") (parameters '("gpointer*" "data") ) ) (define-method get_geometry (of-object "GdkWindow") (c-name "gdk_window_get_geometry") (return-type "none") (parameters '("gint*" "x") '("gint*" "y") '("gint*" "width") '("gint*" "height") '("gint*" "depth") ) ) (define-method get_position (of-object "GdkWindow") (c-name "gdk_window_get_position") (return-type "none") (parameters '("gint*" "x") '("gint*" "y") ) ) (define-method get_origin (of-object "GdkWindow") (c-name "gdk_window_get_origin") (return-type "gint") (parameters '("gint*" "x") '("gint*" "y") ) ) (define-method get_deskrelative_origin (of-object "GdkWindow") (c-name "gdk_window_get_deskrelative_origin") (return-type "gboolean") (parameters '("gint*" "x") '("gint*" "y") ) ) (define-method get_root_origin (of-object "GdkWindow") (c-name "gdk_window_get_root_origin") (return-type "none") (parameters '("gint*" "x") '("gint*" "y") ) ) (define-method get_frame_extents (of-object "GdkWindow") (c-name "gdk_window_get_frame_extents") (return-type "none") (parameters '("GdkRectangle*" "rect") ) ) (define-method get_pointer (of-object "GdkWindow") (c-name "gdk_window_get_pointer") (return-type "GdkWindow*") (parameters '("gint*" "x") '("gint*" "y") '("GdkModifierType*" "mask") ) ) (define-method get_parent (of-object "GdkWindow") (c-name "gdk_window_get_parent") (return-type "GdkWindow*") ) (define-method get_toplevel (of-object "GdkWindow") (c-name "gdk_window_get_toplevel") (return-type "GdkWindow*") ) (define-method get_children (of-object "GdkWindow") (c-name "gdk_window_get_children") (return-type "GList*") ) (define-method peek_children (of-object "GdkWindow") (c-name "gdk_window_peek_children") (return-type "GList*") ) (define-method get_events (of-object "GdkWindow") (c-name "gdk_window_get_events") (return-type "GdkEventMask") ) (define-method set_events (of-object "GdkWindow") (c-name "gdk_window_set_events") (return-type "none") (parameters '("GdkEventMask" "event_mask") ) ) (define-method set_icon_list (of-object "GdkWindow") (c-name "gdk_window_set_icon_list") (return-type "none") (parameters '("GList*" "pixbufs") ) ) (define-method set_icon (of-object "GdkWindow") (c-name "gdk_window_set_icon") (return-type "none") (parameters '("GdkWindow*" "icon_window") '("GdkPixmap*" "pixmap") '("GdkBitmap*" "mask") ) ) (define-method set_icon_name (of-object "GdkWindow") (c-name "gdk_window_set_icon_name") (return-type "none") (parameters '("const-gchar*" "name") ) ) (define-method set_group (of-object "GdkWindow") (c-name "gdk_window_set_group") (return-type "none") (parameters '("GdkWindow*" "leader") ) ) (define-method get_group (of-object "GdkWindow") (c-name "gdk_window_get_group") (return-type "GdkWindow*") ) (define-method set_decorations (of-object "GdkWindow") (c-name "gdk_window_set_decorations") (return-type "none") (parameters '("GdkWMDecoration" "decorations") ) ) (define-method get_decorations (of-object "GdkWindow") (c-name "gdk_window_get_decorations") (return-type "gboolean") (parameters '("GdkWMDecoration*" "decorations") ) ) (define-method set_functions (of-object "GdkWindow") (c-name "gdk_window_set_functions") (return-type "none") (parameters '("GdkWMFunction" "functions") ) ) (define-function gdk_window_get_toplevels (c-name "gdk_window_get_toplevels") (return-type "GList*") ) (define-method iconify (of-object "GdkWindow") (c-name "gdk_window_iconify") (return-type "none") ) (define-method deiconify (of-object "GdkWindow") (c-name "gdk_window_deiconify") (return-type "none") ) (define-method stick (of-object "GdkWindow") (c-name "gdk_window_stick") (return-type "none") ) (define-method unstick (of-object "GdkWindow") (c-name "gdk_window_unstick") (return-type "none") ) (define-method maximize (of-object "GdkWindow") (c-name "gdk_window_maximize") (return-type "none") ) (define-method unmaximize (of-object "GdkWindow") (c-name "gdk_window_unmaximize") (return-type "none") ) (define-method fullscreen (of-object "GdkWindow") (c-name "gdk_window_fullscreen") (return-type "none") ) (define-method unfullscreen (of-object "GdkWindow") (c-name "gdk_window_unfullscreen") (return-type "none") ) (define-method set_keep_above (of-object "GdkWindow") (c-name "gdk_window_set_keep_above") (return-type "none") (parameters '("gboolean" "setting") ) ) (define-method set_keep_below (of-object "GdkWindow") (c-name "gdk_window_set_keep_below") (return-type "none") (parameters '("gboolean" "setting") ) ) (define-method register_dnd (of-object "GdkWindow") (c-name "gdk_window_register_dnd") (return-type "none") ) (define-method begin_resize_drag (of-object "GdkWindow") (c-name "gdk_window_begin_resize_drag") (return-type "none") (parameters '("GdkWindowEdge" "edge") '("gint" "button") '("gint" "root_x") '("gint" "root_y") '("guint32" "timestamp") ) ) (define-method begin_move_drag (of-object "GdkWindow") (c-name "gdk_window_begin_move_drag") (return-type "none") (parameters '("gint" "button") '("gint" "root_x") '("gint" "root_y") '("guint32" "timestamp") ) ) (define-method invalidate_rect (of-object "GdkWindow") (c-name "gdk_window_invalidate_rect") (return-type "none") (parameters '("GdkRectangle*" "rect") '("gboolean" "invalidate_children") ) ) (define-method invalidate_region (of-object "GdkWindow") (c-name "gdk_window_invalidate_region") (return-type "none") (parameters '("GdkRegion*" "region") '("gboolean" "invalidate_children") ) ) (define-method invalidate_maybe_recurse (of-object "GdkWindow") (c-name "gdk_window_invalidate_maybe_recurse") (return-type "none") (parameters '("GdkRegion*" "region") '("gboolean" "(*child_func") ) ) (define-method get_update_area (of-object "GdkWindow") (c-name "gdk_window_get_update_area") (return-type "GdkRegion*") ) (define-method freeze_updates (of-object "GdkWindow") (c-name "gdk_window_freeze_updates") (return-type "none") ) (define-method thaw_updates (of-object "GdkWindow") (c-name "gdk_window_thaw_updates") (return-type "none") ) (define-function gdk_window_process_all_updates (c-name "gdk_window_process_all_updates") (return-type "none") ) (define-method process_updates (of-object "GdkWindow") (c-name "gdk_window_process_updates") (return-type "none") (parameters '("gboolean" "update_children") ) ) (define-function gdk_window_set_debug_updates (c-name "gdk_window_set_debug_updates") (return-type "none") (parameters '("gboolean" "setting") ) ) (define-function gdk_window_constrain_size (c-name "gdk_window_constrain_size") (return-type "none") (parameters '("GdkGeometry*" "geometry") '("guint" "flags") '("gint" "width") '("gint" "height") '("gint*" "new_width") '("gint*" "new_height") ) ) (define-method get_internal_paint_info (of-object "GdkWindow") (c-name "gdk_window_get_internal_paint_info") (return-type "none") (parameters '("GdkDrawable**" "real_drawable") '("gint*" "x_offset") '("gint*" "y_offset") ) ) (define-method enable_synchronized_configure (of-object "GdkWindow") (c-name "gdk_window_enable_synchronized_configure") (return-type "none") ) (define-method configure_finished (of-object "GdkWindow") (c-name "gdk_window_configure_finished") (return-type "none") ) (define-function gdk_set_pointer_hooks (c-name "gdk_set_pointer_hooks") (return-type "GdkPointerHooks*") (parameters '("const-GdkPointerHooks*" "new_hooks") ) ) (define-function gdk_get_default_root_window (c-name "gdk_get_default_root_window") (return-type "GdkWindow*") ) ;; From /opt/gnome2/include/gtk-2.0/gdk/gdkx.h (define-function gdk_x11_drawable_get_xdisplay (c-name "gdk_x11_drawable_get_xdisplay") (return-type "Display*") (parameters '("GdkDrawable*" "drawable") ) ) (define-function gdk_x11_drawable_get_xid (c-name "gdk_x11_drawable_get_xid") (return-type "XID") (parameters '("GdkDrawable*" "drawable") ) ) (define-function gdk_x11_image_get_xdisplay (c-name "gdk_x11_image_get_xdisplay") (return-type "Display*") (parameters '("GdkImage*" "image") ) ) (define-function gdk_x11_image_get_ximage (c-name "gdk_x11_image_get_ximage") (return-type "XImage*") (parameters '("GdkImage*" "image") ) ) (define-function gdk_x11_colormap_get_xdisplay (c-name "gdk_x11_colormap_get_xdisplay") (return-type "Display*") (parameters '("GdkColormap*" "colormap") ) ) (define-function gdk_x11_colormap_get_xcolormap (c-name "gdk_x11_colormap_get_xcolormap") (return-type "Colormap") (parameters '("GdkColormap*" "colormap") ) ) (define-function gdk_x11_cursor_get_xdisplay (c-name "gdk_x11_cursor_get_xdisplay") (return-type "Display*") (parameters '("GdkCursor*" "cursor") ) ) (define-function gdk_x11_cursor_get_xcursor (c-name "gdk_x11_cursor_get_xcursor") (return-type "Cursor") (parameters '("GdkCursor*" "cursor") ) ) (define-function gdk_x11_display_get_xdisplay (c-name "gdk_x11_display_get_xdisplay") (return-type "Display*") (parameters '("GdkDisplay*" "display") ) ) (define-function gdk_x11_visual_get_xvisual (c-name "gdk_x11_visual_get_xvisual") (return-type "Visual*") (parameters '("GdkVisual*" "visual") ) ) (define-function gdk_x11_gc_get_xdisplay (c-name "gdk_x11_gc_get_xdisplay") (return-type "Display*") (parameters '("GdkGC*" "gc") ) ) (define-function gdk_x11_gc_get_xgc (c-name "gdk_x11_gc_get_xgc") (return-type "GC") (parameters '("GdkGC*" "gc") ) ) (define-function gdk_x11_screen_get_xscreen (c-name "gdk_x11_screen_get_xscreen") (return-type "Screen*") (parameters '("GdkScreen*" "screen") ) ) (define-function gdk_x11_screen_get_screen_number (c-name "gdk_x11_screen_get_screen_number") (return-type "int") (parameters '("GdkScreen*" "screen") ) ) (define-function gdk_x11_window_set_user_time (c-name "gdk_x11_window_set_user_time") (return-type "none") (parameters '("GdkWindow*" "window") '("guint32" "timestamp") ) ) (define-function gdk_x11_window_move_to_current_desktop (c-name "gdk_x11_window_move_to_current_desktop") (return-type "none") (parameters '("GdkWindow*" "window") ) ) (define-function gdk_x11_screen_get_window_manager_name (c-name "gdk_x11_screen_get_window_manager_name") (return-type "const-char*") (parameters '("GdkScreen*" "screen") ) ) (define-function gdk_x11_get_default_root_xwindow (c-name "gdk_x11_get_default_root_xwindow") (return-type "Window") ) (define-function gdk_x11_get_default_xdisplay (c-name "gdk_x11_get_default_xdisplay") (return-type "Display*") ) (define-function gdk_x11_get_default_screen (c-name "gdk_x11_get_default_screen") (return-type "gint") ) (define-function gdk_x11_screen_lookup_visual (c-name "gdk_x11_screen_lookup_visual") (return-type "GdkVisual*") (parameters '("GdkScreen*" "screen") '("VisualID" "xvisualid") ) ) (define-function gdkx_visual_get (c-name "gdkx_visual_get") (return-type "GdkVisual*") (parameters '("VisualID" "xvisualid") ) ) (define-function gdkx_colormap_get (c-name "gdkx_colormap_get") (return-type "GdkColormap*") (parameters '("Colormap" "xcolormap") ) ) (define-function gdk_x11_colormap_foreign_new (c-name "gdk_x11_colormap_foreign_new") (is-constructor-of "GdkX11ColormapForeign") (return-type "GdkColormap*") (parameters '("GdkVisual*" "visual") '("Colormap" "xcolormap") ) ) (define-function gdk_xid_table_lookup_for_display (c-name "gdk_xid_table_lookup_for_display") (return-type "gpointer") (parameters '("GdkDisplay*" "display") '("XID" "xid") ) ) (define-function gdk_x11_get_server_time (c-name "gdk_x11_get_server_time") (return-type "guint32") (parameters '("GdkWindow*" "window") ) ) (define-function gdk_x11_display_get_user_time (c-name "gdk_x11_display_get_user_time") (return-type "guint32") (parameters '("GdkDisplay*" "display") ) ) (define-function gdk_x11_display_set_cursor_theme (c-name "gdk_x11_display_set_cursor_theme") (return-type "none") (parameters '("GdkDisplay*" "display") '("const-gchar*" "theme") '("const-gint" "size") ) ) (define-function gdk_x11_screen_supports_net_wm_hint (c-name "gdk_x11_screen_supports_net_wm_hint") (return-type "gboolean") (parameters '("GdkScreen*" "screen") '("GdkAtom" "property") ) ) (define-function gdk_xid_table_lookup (c-name "gdk_xid_table_lookup") (return-type "gpointer") (parameters '("XID" "xid") ) ) (define-function gdk_net_wm_supports (c-name "gdk_net_wm_supports") (return-type "gboolean") (parameters '("GdkAtom" "property") ) ) (define-function gdk_x11_grab_server (c-name "gdk_x11_grab_server") (return-type "none") ) (define-function gdk_x11_ungrab_server (c-name "gdk_x11_ungrab_server") (return-type "none") ) (define-function gdk_x11_lookup_xdisplay (c-name "gdk_x11_lookup_xdisplay") (return-type "GdkDisplay*") (parameters '("Display*" "xdisplay") ) ) (define-function gdk_x11_atom_to_xatom_for_display (c-name "gdk_x11_atom_to_xatom_for_display") (return-type "Atom") (parameters '("GdkDisplay*" "display") '("GdkAtom" "atom") ) ) (define-function gdk_x11_xatom_to_atom_for_display (c-name "gdk_x11_xatom_to_atom_for_display") (return-type "GdkAtom") (parameters '("GdkDisplay*" "display") '("Atom" "xatom") ) ) (define-function gdk_x11_get_xatom_by_name_for_display (c-name "gdk_x11_get_xatom_by_name_for_display") (return-type "Atom") (parameters '("GdkDisplay*" "display") '("const-gchar*" "atom_name") ) ) (define-function gdk_x11_get_xatom_name_for_display (c-name "gdk_x11_get_xatom_name_for_display") (return-type "const-gchar*") (parameters '("GdkDisplay*" "display") '("Atom" "xatom") ) ) (define-function gdk_x11_atom_to_xatom (c-name "gdk_x11_atom_to_xatom") (return-type "Atom") (parameters '("GdkAtom" "atom") ) ) (define-function gdk_x11_xatom_to_atom (c-name "gdk_x11_xatom_to_atom") (return-type "GdkAtom") (parameters '("Atom" "xatom") ) ) (define-function gdk_x11_get_xatom_by_name (c-name "gdk_x11_get_xatom_by_name") (return-type "Atom") (parameters '("const-gchar*" "atom_name") ) ) (define-function gdk_x11_get_xatom_name (c-name "gdk_x11_get_xatom_name") (return-type "const-gchar*") (parameters '("Atom" "xatom") ) ) (define-function gdk_x11_display_grab (c-name "gdk_x11_display_grab") (return-type "none") (parameters '("GdkDisplay*" "display") ) ) (define-function gdk_x11_display_ungrab (c-name "gdk_x11_display_ungrab") (return-type "none") (parameters '("GdkDisplay*" "display") ) ) (define-function gdk_x11_register_standard_event_type (c-name "gdk_x11_register_standard_event_type") (return-type "none") (parameters '("GdkDisplay*" "display") '("gint" "event_base") '("gint" "n_events") ) ) (define-function gdk_x11_font_get_xfont (c-name "gdk_x11_font_get_xfont") (return-type "gpointer") (parameters '("GdkFont*" "font") ) ) (define-function gdk_x11_font_get_xdisplay (c-name "gdk_x11_font_get_xdisplay") (return-type "Display*") (parameters '("GdkFont*" "font") ) ) (define-function gdk_x11_font_get_name (c-name "gdk_x11_font_get_name") (return-type "const-char*") (parameters '("GdkFont*" "font") ) ) guile-gnome-platform-2.16.2/defs/gnome/defs/vte.defs0000644000175000017500000002616011670374302022604 0ustar00wingowingo00000000000000;; -*- scheme -*- ; object definitions ... (define-object Terminal (in-module "Vte") (parent "GtkWidget") (c-name "VteTerminal") (gtype-id "VTE_TYPE_TERMINAL") ) ;; Enumerations and flags ... (define-enum TerminalEraseBinding (in-module "Vte") (c-name "VteTerminalEraseBinding") (gtype-id "VTE_TYPE_TERMINAL_ERASE_BINDING") (values '("auto" "VTE_ERASE_AUTO") '("ascii-backspace" "VTE_ERASE_ASCII_BACKSPACE") '("ascii-delete" "VTE_ERASE_ASCII_DELETE") '("delete-sequence" "VTE_ERASE_DELETE_SEQUENCE") ) ) (include overrides) ;; From /usr/include/vte/vte.h (define-function vte_terminal_get_type (c-name "vte_terminal_get_type") (return-type "GtkType") ) (define-function vte_terminal_erase_binding_get_type (c-name "vte_terminal_erase_binding_get_type") (return-type "GtkType") ) (define-function vte_terminal_new (c-name "vte_terminal_new") (is-constructor-of "VteTerminal") (return-type "GtkWidget*") ) (define-method fork_command (of-object "VteTerminal") (c-name "vte_terminal_fork_command") (return-type "pid_t") (parameters '("const-char*" "command") '("char**" "argv") '("char**" "envv") '("const-char*" "directory") '("gboolean" "lastlog") '("gboolean" "utmp") '("gboolean" "wtmp") ) ) (define-method feed (of-object "VteTerminal") (c-name "vte_terminal_feed") (return-type "none") (parameters '("const-char*" "data") '("glong" "length") ) ) (define-method feed_child (of-object "VteTerminal") (c-name "vte_terminal_feed_child") (return-type "none") (parameters '("const-char*" "data") '("glong" "length") ) ) (define-method copy_clipboard (of-object "VteTerminal") (c-name "vte_terminal_copy_clipboard") (return-type "none") ) (define-method paste_clipboard (of-object "VteTerminal") (c-name "vte_terminal_paste_clipboard") (return-type "none") ) (define-method copy_primary (of-object "VteTerminal") (c-name "vte_terminal_copy_primary") (return-type "none") ) (define-method paste_primary (of-object "VteTerminal") (c-name "vte_terminal_paste_primary") (return-type "none") ) (define-method set_size (of-object "VteTerminal") (c-name "vte_terminal_set_size") (return-type "none") (parameters '("glong" "columns") '("glong" "rows") ) ) (define-method set_audible_bell (of-object "VteTerminal") (c-name "vte_terminal_set_audible_bell") (return-type "none") (parameters '("gboolean" "is_audible") ) ) (define-method get_audible_bell (of-object "VteTerminal") (c-name "vte_terminal_get_audible_bell") (return-type "gboolean") ) (define-method set_visible_bell (of-object "VteTerminal") (c-name "vte_terminal_set_visible_bell") (return-type "none") (parameters '("gboolean" "is_visible") ) ) (define-method get_visible_bell (of-object "VteTerminal") (c-name "vte_terminal_get_visible_bell") (return-type "gboolean") ) (define-method set_scroll_on_output (of-object "VteTerminal") (c-name "vte_terminal_set_scroll_on_output") (return-type "none") (parameters '("gboolean" "scroll") ) ) (define-method set_scroll_on_keystroke (of-object "VteTerminal") (c-name "vte_terminal_set_scroll_on_keystroke") (return-type "none") (parameters '("gboolean" "scroll") ) ) (define-method set_color_dim (of-object "VteTerminal") (c-name "vte_terminal_set_color_dim") (return-type "none") (parameters '("const-GdkColor*" "dim") ) ) (define-method set_color_bold (of-object "VteTerminal") (c-name "vte_terminal_set_color_bold") (return-type "none") (parameters '("const-GdkColor*" "bold") ) ) (define-method set_color_foreground (of-object "VteTerminal") (c-name "vte_terminal_set_color_foreground") (return-type "none") (parameters '("const-GdkColor*" "foreground") ) ) (define-method set_color_background (of-object "VteTerminal") (c-name "vte_terminal_set_color_background") (return-type "none") (parameters '("const-GdkColor*" "background") ) ) (define-method set_colors (of-object "VteTerminal") (c-name "vte_terminal_set_colors") (return-type "none") (parameters '("const-GdkColor*" "foreground") '("const-GdkColor*" "background") '("const-GdkColor*" "palette") '("glong" "palette_size") ) ) (define-method set_default_colors (of-object "VteTerminal") (c-name "vte_terminal_set_default_colors") (return-type "none") ) (define-method set_background_image (of-object "VteTerminal") (c-name "vte_terminal_set_background_image") (return-type "none") (parameters '("GdkPixbuf*" "image") ) ) (define-method set_background_image_file (of-object "VteTerminal") (c-name "vte_terminal_set_background_image_file") (return-type "none") (parameters '("const-char*" "path") ) ) (define-method set_background_saturation (of-object "VteTerminal") (c-name "vte_terminal_set_background_saturation") (return-type "none") (parameters '("double" "saturation") ) ) (define-method set_background_transparent (of-object "VteTerminal") (c-name "vte_terminal_set_background_transparent") (return-type "none") (parameters '("gboolean" "transparent") ) ) (define-method set_cursor_blinks (of-object "VteTerminal") (c-name "vte_terminal_set_cursor_blinks") (return-type "none") (parameters '("gboolean" "blink") ) ) (define-method set_scrollback_lines (of-object "VteTerminal") (c-name "vte_terminal_set_scrollback_lines") (return-type "none") (parameters '("glong" "lines") ) ) (define-method im_append_menuitems (of-object "VteTerminal") (c-name "vte_terminal_im_append_menuitems") (return-type "none") (parameters '("GtkMenuShell*" "menushell") ) ) (define-method set_font (of-object "VteTerminal") (c-name "vte_terminal_set_font") (return-type "none") (parameters '("const-PangoFontDescription*" "font_desc") ) ) (define-method set_font_from_string (of-object "VteTerminal") (c-name "vte_terminal_set_font_from_string") (return-type "none") (parameters '("const-char*" "name") ) ) (define-method get_font (of-object "VteTerminal") (c-name "vte_terminal_get_font") (return-type "const-PangoFontDescription*") ) (define-method get_using_xft (of-object "VteTerminal") (c-name "vte_terminal_get_using_xft") (return-type "gboolean") ) (define-method set_allow_bold (of-object "VteTerminal") (c-name "vte_terminal_set_allow_bold") (return-type "none") (parameters '("gboolean" "allow_bold") ) ) (define-method get_allow_bold (of-object "VteTerminal") (c-name "vte_terminal_get_allow_bold") (return-type "gboolean") ) (define-method get_has_selection (of-object "VteTerminal") (c-name "vte_terminal_get_has_selection") (return-type "gboolean") ) (define-method set_word_chars (of-object "VteTerminal") (c-name "vte_terminal_set_word_chars") (return-type "none") (parameters '("const-char*" "spec") ) ) (define-method is_word_char (of-object "VteTerminal") (c-name "vte_terminal_is_word_char") (return-type "gboolean") (parameters '("gunichar" "c") ) ) (define-method set_backspace_binding (of-object "VteTerminal") (c-name "vte_terminal_set_backspace_binding") (return-type "none") (parameters '("VteTerminalEraseBinding" "binding") ) ) (define-method set_delete_binding (of-object "VteTerminal") (c-name "vte_terminal_set_delete_binding") (return-type "none") (parameters '("VteTerminalEraseBinding" "binding") ) ) (define-method set_mouse_autohide (of-object "VteTerminal") (c-name "vte_terminal_set_mouse_autohide") (return-type "none") (parameters '("gboolean" "setting") ) ) (define-method get_mouse_autohide (of-object "VteTerminal") (c-name "vte_terminal_get_mouse_autohide") (return-type "gboolean") ) (define-method reset (of-object "VteTerminal") (c-name "vte_terminal_reset") (return-type "none") (parameters '("gboolean" "full") '("gboolean" "clear_history") ) ) (define-method get_text (of-object "VteTerminal") (c-name "vte_terminal_get_text") (return-type "char*") (parameters ) ) (define-method get_text_range (of-object "VteTerminal") (c-name "vte_terminal_get_text_range") (return-type "char*") (parameters '("glong" "start_row") '("glong" "start_col") '("glong" "end_row") '("glong" "end_col") ) ) (define-method get_cursor_position (of-object "VteTerminal") (c-name "vte_terminal_get_cursor_position") (return-type "none") (parameters '("glong*" "column") '("glong*" "row") ) ) (define-method match_clear_all (of-object "VteTerminal") (c-name "vte_terminal_match_clear_all") (return-type "none") ) (define-method match_add (of-object "VteTerminal") (c-name "vte_terminal_match_add") (return-type "int") (parameters '("const-char*" "match") ) ) (define-method match_remove (of-object "VteTerminal") (c-name "vte_terminal_match_remove") (return-type "none") (parameters '("int" "tag") ) ) (define-method match_check (of-object "VteTerminal") (c-name "vte_terminal_match_check") (return-type "char*") (parameters '("glong" "column") '("glong" "row") '("int*" "tag") ) ) (define-method set_emulation (of-object "VteTerminal") (c-name "vte_terminal_set_emulation") (return-type "none") (parameters '("const-char*" "emulation") ) ) (define-method get_emulation (of-object "VteTerminal") (c-name "vte_terminal_get_emulation") (return-type "const-char*") ) (define-method set_encoding (of-object "VteTerminal") (c-name "vte_terminal_set_encoding") (return-type "none") (parameters '("const-char*" "codeset") ) ) (define-method get_encoding (of-object "VteTerminal") (c-name "vte_terminal_get_encoding") (return-type "const-char*") ) (define-method get_status_line (of-object "VteTerminal") (c-name "vte_terminal_get_status_line") (return-type "const-char*") ) (define-method get_padding (of-object "VteTerminal") (c-name "vte_terminal_get_padding") (return-type "none") (parameters '("int*" "xpad") '("int*" "ypad") ) ) (define-method get_adjustment (of-object "VteTerminal") (c-name "vte_terminal_get_adjustment") (return-type "GtkAdjustment*") ) (define-method get_char_width (of-object "VteTerminal") (c-name "vte_terminal_get_char_width") (return-type "glong") ) (define-method get_char_height (of-object "VteTerminal") (c-name "vte_terminal_get_char_height") (return-type "glong") ) (define-method get_char_descent (of-object "VteTerminal") (c-name "vte_terminal_get_char_descent") (return-type "glong") ) (define-method get_char_ascent (of-object "VteTerminal") (c-name "vte_terminal_get_char_ascent") (return-type "glong") ) (define-method get_row_count (of-object "VteTerminal") (c-name "vte_terminal_get_row_count") (return-type "glong") ) (define-method get_column_count (of-object "VteTerminal") (c-name "vte_terminal_get_column_count") (return-type "glong") ) (define-method get_window_title (of-object "VteTerminal") (c-name "vte_terminal_get_window_title") (return-type "const-char*") ) (define-method get_icon_title (of-object "VteTerminal") (c-name "vte_terminal_get_icon_title") (return-type "const-char*") ) guile-gnome-platform-2.16.2/defs/gnome/defs/bonoboui-types.defs0000644000175000017500000001155311670374302024764 0ustar00wingowingo00000000000000;; -*- scheme -*- ; object definitions ... (define-object CanvasComponent (in-module "Bonobo") (parent "BonoboObject") (c-name "BonoboCanvasComponent") (gtype-id "BONOBO_TYPE_CANVAS_COMPONENT") ) (define-object CanvasItem (in-module "Bonobo") (parent "GnomeCanvasItem") (c-name "BonoboCanvasItem") (gtype-id "BONOBO_TYPE_CANVAS_ITEM") ) (define-object Control (in-module "Bonobo") (parent "BonoboObject") (c-name "BonoboControl") (gtype-id "BONOBO_TYPE_CONTROL") ) (define-object ControlFrame (in-module "Bonobo") (parent "BonoboObject") (c-name "BonoboControlFrame") (gtype-id "BONOBO_TYPE_CONTROL_FRAME") ) (define-object Dock (in-module "Bonobo") (parent "GtkContainer") (c-name "BonoboDock") (gtype-id "BONOBO_TYPE_DOCK") ) (define-object DockBand (in-module "Bonobo") (parent "GtkContainer") (c-name "BonoboDockBand") (gtype-id "BONOBO_TYPE_DOCK_BAND") ) (define-object DockItem (in-module "Bonobo") (parent "GtkBin") (c-name "BonoboDockItem") (gtype-id "BONOBO_TYPE_DOCK_ITEM") ) (define-object Engine (in-module "Bonobo") (parent "GObject") (c-name "BonoboUIEngine") (gtype-id "BONOBO_TYPE_UI_ENGINE") ) (define-object Plug (in-module "Bonobo") (parent "GtkPlug") (c-name "BonoboPlug") (gtype-id "BONOBO_TYPE_PLUG") ) (define-object PropertyControl (in-module "Bonobo") (parent "BonoboObject") (c-name "BonoboPropertyControl") (gtype-id "BONOBO_TYPE_PROPERTY_CONTROL") ) (define-object Selector (in-module "Bonobo") (parent "GtkDialog") (c-name "BonoboSelector") (gtype-id "BONOBO_TYPE_SELECTOR") ) (define-object SelectorWidget (in-module "Bonobo") (parent "GtkVBox") (c-name "BonoboSelectorWidget") (gtype-id "BONOBO_TYPE_SELECTOR_WIDGET") ) (define-object Socket (in-module "Bonobo") (parent "GtkSocket") (c-name "BonoboSocket") (gtype-id "BONOBO_TYPE_SOCKET") ) (define-object Component (in-module "Bonobo") (parent "BonoboObject") (c-name "BonoboUIComponent") (gtype-id "BONOBO_TYPE_UI_COMPONENT") ) (define-object Container (in-module "Bonobo") (parent "BonoboObject") (c-name "BonoboUIContainer") (gtype-id "BONOBO_TYPE_UI_CONTAINER") ) (define-object Toolbar (in-module "Bonobo") (parent "GtkContainer") (c-name "BonoboUIToolbar") (gtype-id "BONOBO_TYPE_UI_TOOLBAR") ) (define-object ToolbarItem (in-module "Bonobo") (parent "GtkBin") (c-name "BonoboUIToolbarItem") (gtype-id "BONOBO_TYPE_UI_TOOLBAR_ITEM") ) (define-object Widget (in-module "Bonobo") (parent "GtkBin") (c-name "BonoboWidget") (gtype-id "BONOBO_TYPE_WIDGET") ) (define-object Window (in-module "Bonobo") (parent "GtkWindow") (c-name "BonoboWindow") (gtype-id "BONOBO_TYPE_WINDOW") ) ;; Enumerations and flags ... (define-enum DockPlacement (in-module "Bonobo") (c-name "BonoboDockPlacement") (gtype-id "BONOBO_TYPE_DOCK_PLACEMENT") (values '("top" "BONOBO_DOCK_TOP") '("right" "BONOBO_DOCK_RIGHT") '("bottom" "BONOBO_DOCK_BOTTOM") '("left" "BONOBO_DOCK_LEFT") '("floating" "BONOBO_DOCK_FLOATING") ) ) (define-flags DockItemBehavior (in-module "Bonobo") (c-name "BonoboDockItemBehavior") (gtype-id "BONOBO_TYPE_DOCK_ITEM_BEHAVIOR") (values '("normal" "BONOBO_DOCK_ITEM_BEH_NORMAL") '("exclusive" "BONOBO_DOCK_ITEM_BEH_EXCLUSIVE") '("never-floating" "BONOBO_DOCK_ITEM_BEH_NEVER_FLOATING") '("never-vertical" "BONOBO_DOCK_ITEM_BEH_NEVER_VERTICAL") '("never-horizontal" "BONOBO_DOCK_ITEM_BEH_NEVER_HORIZONTAL") '("locked" "BONOBO_DOCK_ITEM_BEH_LOCKED") ) ) (define-enum Error (in-module "Bonobo") (c-name "BonoboUIError") (gtype-id "BONOBO_TYPE_UI_ERROR") (values '("ok" "BONOBO_UI_ERROR_OK") '("bad-param" "BONOBO_UI_ERROR_BAD_PARAM") '("invalid-path" "BONOBO_UI_ERROR_INVALID_PATH") '("invalid-xml" "BONOBO_UI_ERROR_INVALID_XML") ) ) (define-enum ToolbarStyle (in-module "Bonobo") (c-name "BonoboUIToolbarStyle") (gtype-id "BONOBO_TYPE_UI_TOOLBAR_STYLE") (values '("priority-text" "BONOBO_UI_TOOLBAR_STYLE_PRIORITY_TEXT") '("icons-and-text" "BONOBO_UI_TOOLBAR_STYLE_ICONS_AND_TEXT") '("icons-only" "BONOBO_UI_TOOLBAR_STYLE_ICONS_ONLY") ) ) (define-enum ToolbarItemStyle (in-module "Bonobo") (c-name "BonoboUIToolbarItemStyle") (gtype-id "BONOBO_TYPE_UI_TOOLBAR_ITEM_STYLE") (values '("icon-and-text-vertical" "BONOBO_UI_TOOLBAR_ITEM_STYLE_ICON_AND_TEXT_VERTICAL") '("icon-and-text-horizontal" "BONOBO_UI_TOOLBAR_ITEM_STYLE_ICON_AND_TEXT_HORIZONTAL") '("icon-only" "BONOBO_UI_TOOLBAR_ITEM_STYLE_ICON_ONLY") '("text-only" "BONOBO_UI_TOOLBAR_ITEM_STYLE_TEXT_ONLY") ) ) (define-enum UIError (in-module "Bonobo") (c-name "BonoboUIError") (gtype-id "BONOBO_TYPE_UI_ERROR") (values '("ok" "BONOBO_UI_ERROR_OK") '("bad-param" "BONOBO_UI_ERROR_BAD_PARAM") '("invalid-path" "BONOBO_UI_ERROR_INVALID_PATH") '("invalid-xml" "BONOBO_UI_ERROR_INVALID_XML") ) ) guile-gnome-platform-2.16.2/defs/gnome/defs/gtk-types.defs0000644000175000017500000016236711670374302023747 0ustar00wingowingo00000000000000;; -*- scheme -*- ;; Enumerations and flags ... (define-flags AccelFlags (in-module "Gtk") (c-name "GtkAccelFlags") (gtype-id "GTK_TYPE_ACCEL_FLAGS") (values '("visible" "GTK_ACCEL_VISIBLE") '("locked" "GTK_ACCEL_LOCKED") '("mask" "GTK_ACCEL_MASK") ) ) (define-enum AssistantPageType (in-module "Gtk") (c-name "GtkAssistantPageType") (gtype-id "GTK_TYPE_ASSISTANT_PAGE_TYPE") (values '("content" "GTK_ASSISTANT_PAGE_CONTENT") '("intro" "GTK_ASSISTANT_PAGE_INTRO") '("confirm" "GTK_ASSISTANT_PAGE_CONFIRM") '("summary" "GTK_ASSISTANT_PAGE_SUMMARY") '("progress" "GTK_ASSISTANT_PAGE_PROGRESS") ) ) (define-flags CalendarDisplayOptions (in-module "Gtk") (c-name "GtkCalendarDisplayOptions") (gtype-id "GTK_TYPE_CALENDAR_DISPLAY_OPTIONS") (values '("show-heading" "GTK_CALENDAR_SHOW_HEADING") '("show-day-names" "GTK_CALENDAR_SHOW_DAY_NAMES") '("no-month-change" "GTK_CALENDAR_NO_MONTH_CHANGE") '("show-week-numbers" "GTK_CALENDAR_SHOW_WEEK_NUMBERS") '("week-start-monday" "GTK_CALENDAR_WEEK_START_MONDAY") ) ) (define-enum CellRendererAccelMode (in-module "Gtk") (c-name "GtkCellRendererAccelMode") (gtype-id "GTK_TYPE_CELL_RENDERER_ACCEL_MODE") (values '("gtk" "GTK_CELL_RENDERER_ACCEL_MODE_GTK") '("other" "GTK_CELL_RENDERER_ACCEL_MODE_OTHER") ) ) (define-flags CellRendererState (in-module "Gtk") (c-name "GtkCellRendererState") (gtype-id "GTK_TYPE_CELL_RENDERER_STATE") (values '("selected" "GTK_CELL_RENDERER_SELECTED") '("prelit" "GTK_CELL_RENDERER_PRELIT") '("insensitive" "GTK_CELL_RENDERER_INSENSITIVE") '("sorted" "GTK_CELL_RENDERER_SORTED") '("focused" "GTK_CELL_RENDERER_FOCUSED") ) ) (define-enum CellRendererMode (in-module "Gtk") (c-name "GtkCellRendererMode") (gtype-id "GTK_TYPE_CELL_RENDERER_MODE") (values '("inert" "GTK_CELL_RENDERER_MODE_INERT") '("activatable" "GTK_CELL_RENDERER_MODE_ACTIVATABLE") '("editable" "GTK_CELL_RENDERER_MODE_EDITABLE") ) ) (define-enum CellType (in-module "Gtk") (c-name "GtkCellType") (gtype-id "GTK_TYPE_CELL_TYPE") (values '("empty" "GTK_CELL_EMPTY") '("text" "GTK_CELL_TEXT") '("pixmap" "GTK_CELL_PIXMAP") '("pixtext" "GTK_CELL_PIXTEXT") '("widget" "GTK_CELL_WIDGET") ) ) (define-enum CListDragPos (in-module "Gtk") (c-name "GtkCListDragPos") (gtype-id "GTK_TYPE_CLIST_DRAG_POS") (values '("none" "GTK_CLIST_DRAG_NONE") '("before" "GTK_CLIST_DRAG_BEFORE") '("into" "GTK_CLIST_DRAG_INTO") '("after" "GTK_CLIST_DRAG_AFTER") ) ) (define-flags ButtonAction (in-module "Gtk") (c-name "GtkButtonAction") (gtype-id "GTK_TYPE_BUTTON_ACTION") (values '("ignored" "GTK_BUTTON_IGNORED") '("selects" "GTK_BUTTON_SELECTS") '("drags" "GTK_BUTTON_DRAGS") '("expands" "GTK_BUTTON_EXPANDS") ) ) (define-enum CTreePos (in-module "Gtk") (c-name "GtkCTreePos") (gtype-id "GTK_TYPE_CTREE_POS") (values '("before" "GTK_CTREE_POS_BEFORE") '("as-child" "GTK_CTREE_POS_AS_CHILD") '("after" "GTK_CTREE_POS_AFTER") ) ) (define-enum CTreeLineStyle (in-module "Gtk") (c-name "GtkCTreeLineStyle") (gtype-id "GTK_TYPE_CTREE_LINE_STYLE") (values '("none" "GTK_CTREE_LINES_NONE") '("solid" "GTK_CTREE_LINES_SOLID") '("dotted" "GTK_CTREE_LINES_DOTTED") '("tabbed" "GTK_CTREE_LINES_TABBED") ) ) (define-enum CTreeExpanderStyle (in-module "Gtk") (c-name "GtkCTreeExpanderStyle") (gtype-id "GTK_TYPE_CTREE_EXPANDER_STYLE") (values '("none" "GTK_CTREE_EXPANDER_NONE") '("square" "GTK_CTREE_EXPANDER_SQUARE") '("triangle" "GTK_CTREE_EXPANDER_TRIANGLE") '("circular" "GTK_CTREE_EXPANDER_CIRCULAR") ) ) (define-enum CTreeExpansionType (in-module "Gtk") (c-name "GtkCTreeExpansionType") (gtype-id "GTK_TYPE_CTREE_EXPANSION_TYPE") (values '("expand" "GTK_CTREE_EXPANSION_EXPAND") '("expand-recursive" "GTK_CTREE_EXPANSION_EXPAND_RECURSIVE") '("collapse" "GTK_CTREE_EXPANSION_COLLAPSE") '("collapse-recursive" "GTK_CTREE_EXPANSION_COLLAPSE_RECURSIVE") '("toggle" "GTK_CTREE_EXPANSION_TOGGLE") '("toggle-recursive" "GTK_CTREE_EXPANSION_TOGGLE_RECURSIVE") ) ) (define-flags DebugFlag (in-module "Gtk") (c-name "GtkDebugFlag") (gtype-id "GTK_TYPE_DEBUG_FLAG") (values '("misc" "GTK_DEBUG_MISC") '("plugsocket" "GTK_DEBUG_PLUGSOCKET") '("text" "GTK_DEBUG_TEXT") '("tree" "GTK_DEBUG_TREE") '("updates" "GTK_DEBUG_UPDATES") '("keybindings" "GTK_DEBUG_KEYBINDINGS") '("multihead" "GTK_DEBUG_MULTIHEAD") '("modules" "GTK_DEBUG_MODULES") '("geometry" "GTK_DEBUG_GEOMETRY") '("icontheme" "GTK_DEBUG_ICONTHEME") '("printing" "GTK_DEBUG_PRINTING") ) ) (define-flags DialogFlags (in-module "Gtk") (c-name "GtkDialogFlags") (gtype-id "GTK_TYPE_DIALOG_FLAGS") (values '("modal" "GTK_DIALOG_MODAL") '("destroy-with-parent" "GTK_DIALOG_DESTROY_WITH_PARENT") '("no-separator" "GTK_DIALOG_NO_SEPARATOR") ) ) (define-enum ResponseType (in-module "Gtk") (c-name "GtkResponseType") (gtype-id "GTK_TYPE_RESPONSE_TYPE") (values '("none" "GTK_RESPONSE_NONE") '("reject" "GTK_RESPONSE_REJECT") '("accept" "GTK_RESPONSE_ACCEPT") '("delete-event" "GTK_RESPONSE_DELETE_EVENT") '("ok" "GTK_RESPONSE_OK") '("cancel" "GTK_RESPONSE_CANCEL") '("close" "GTK_RESPONSE_CLOSE") '("yes" "GTK_RESPONSE_YES") '("no" "GTK_RESPONSE_NO") '("apply" "GTK_RESPONSE_APPLY") '("help" "GTK_RESPONSE_HELP") ) ) (define-flags DestDefaults (in-module "Gtk") (c-name "GtkDestDefaults") (gtype-id "GTK_TYPE_DEST_DEFAULTS") (values '("motion" "GTK_DEST_DEFAULT_MOTION") '("highlight" "GTK_DEST_DEFAULT_HIGHLIGHT") '("drop" "GTK_DEST_DEFAULT_DROP") '("all" "GTK_DEST_DEFAULT_ALL") ) ) (define-flags TargetFlags (in-module "Gtk") (c-name "GtkTargetFlags") (gtype-id "GTK_TYPE_TARGET_FLAGS") (values '("app" "GTK_TARGET_SAME_APP") '("widget" "GTK_TARGET_SAME_WIDGET") ) ) (define-enum AnchorType (in-module "Gtk") (c-name "GtkAnchorType") (gtype-id "GTK_TYPE_ANCHOR_TYPE") (values '("center" "GTK_ANCHOR_CENTER") '("north" "GTK_ANCHOR_NORTH") '("north-west" "GTK_ANCHOR_NORTH_WEST") '("north-east" "GTK_ANCHOR_NORTH_EAST") '("south" "GTK_ANCHOR_SOUTH") '("south-west" "GTK_ANCHOR_SOUTH_WEST") '("south-east" "GTK_ANCHOR_SOUTH_EAST") '("west" "GTK_ANCHOR_WEST") '("east" "GTK_ANCHOR_EAST") '("n" "GTK_ANCHOR_N") '("nw" "GTK_ANCHOR_NW") '("ne" "GTK_ANCHOR_NE") '("s" "GTK_ANCHOR_S") '("sw" "GTK_ANCHOR_SW") '("se" "GTK_ANCHOR_SE") '("w" "GTK_ANCHOR_W") '("e" "GTK_ANCHOR_E") ) ) (define-enum ArrowType (in-module "Gtk") (c-name "GtkArrowType") (gtype-id "GTK_TYPE_ARROW_TYPE") (values '("up" "GTK_ARROW_UP") '("down" "GTK_ARROW_DOWN") '("left" "GTK_ARROW_LEFT") '("right" "GTK_ARROW_RIGHT") '("none" "GTK_ARROW_NONE") ) ) (define-flags AttachOptions (in-module "Gtk") (c-name "GtkAttachOptions") (gtype-id "GTK_TYPE_ATTACH_OPTIONS") (values '("expand" "GTK_EXPAND") '("shrink" "GTK_SHRINK") '("fill" "GTK_FILL") ) ) (define-enum ButtonBoxStyle (in-module "Gtk") (c-name "GtkButtonBoxStyle") (gtype-id "GTK_TYPE_BUTTON_BOX_STYLE") (values '("default-style" "GTK_BUTTONBOX_DEFAULT_STYLE") '("spread" "GTK_BUTTONBOX_SPREAD") '("edge" "GTK_BUTTONBOX_EDGE") '("start" "GTK_BUTTONBOX_START") '("end" "GTK_BUTTONBOX_END") ) ) (define-enum CurveType (in-module "Gtk") (c-name "GtkCurveType") (gtype-id "GTK_TYPE_CURVE_TYPE") (values '("linear" "GTK_CURVE_TYPE_LINEAR") '("spline" "GTK_CURVE_TYPE_SPLINE") '("free" "GTK_CURVE_TYPE_FREE") ) ) (define-enum DeleteType (in-module "Gtk") (c-name "GtkDeleteType") (gtype-id "GTK_TYPE_DELETE_TYPE") (values '("chars" "GTK_DELETE_CHARS") '("word-ends" "GTK_DELETE_WORD_ENDS") '("words" "GTK_DELETE_WORDS") '("display-lines" "GTK_DELETE_DISPLAY_LINES") '("display-line-ends" "GTK_DELETE_DISPLAY_LINE_ENDS") '("paragraph-ends" "GTK_DELETE_PARAGRAPH_ENDS") '("paragraphs" "GTK_DELETE_PARAGRAPHS") '("whitespace" "GTK_DELETE_WHITESPACE") ) ) (define-enum DirectionType (in-module "Gtk") (c-name "GtkDirectionType") (gtype-id "GTK_TYPE_DIRECTION_TYPE") (values '("tab-forward" "GTK_DIR_TAB_FORWARD") '("tab-backward" "GTK_DIR_TAB_BACKWARD") '("up" "GTK_DIR_UP") '("down" "GTK_DIR_DOWN") '("left" "GTK_DIR_LEFT") '("right" "GTK_DIR_RIGHT") ) ) (define-enum ExpanderStyle (in-module "Gtk") (c-name "GtkExpanderStyle") (gtype-id "GTK_TYPE_EXPANDER_STYLE") (values '("collapsed" "GTK_EXPANDER_COLLAPSED") '("semi-collapsed" "GTK_EXPANDER_SEMI_COLLAPSED") '("semi-expanded" "GTK_EXPANDER_SEMI_EXPANDED") '("expanded" "GTK_EXPANDER_EXPANDED") ) ) (define-enum IconSize (in-module "Gtk") (c-name "GtkIconSize") (gtype-id "GTK_TYPE_ICON_SIZE") (values '("invalid" "GTK_ICON_SIZE_INVALID") '("menu" "GTK_ICON_SIZE_MENU") '("small-toolbar" "GTK_ICON_SIZE_SMALL_TOOLBAR") '("large-toolbar" "GTK_ICON_SIZE_LARGE_TOOLBAR") '("button" "GTK_ICON_SIZE_BUTTON") '("dnd" "GTK_ICON_SIZE_DND") '("dialog" "GTK_ICON_SIZE_DIALOG") ) ) (define-enum SensitivityType (in-module "Gtk") (c-name "GtkSensitivityType") (gtype-id "GTK_TYPE_SENSITIVITY_TYPE") (values '("auto" "GTK_SENSITIVITY_AUTO") '("on" "GTK_SENSITIVITY_ON") '("off" "GTK_SENSITIVITY_OFF") ) ) (define-enum SideType (in-module "Gtk") (c-name "GtkSideType") (gtype-id "GTK_TYPE_SIDE_TYPE") (values '("top" "GTK_SIDE_TOP") '("bottom" "GTK_SIDE_BOTTOM") '("left" "GTK_SIDE_LEFT") '("right" "GTK_SIDE_RIGHT") ) ) (define-enum TextDirection (in-module "Gtk") (c-name "GtkTextDirection") (gtype-id "GTK_TYPE_TEXT_DIRECTION") (values '("none" "GTK_TEXT_DIR_NONE") '("ltr" "GTK_TEXT_DIR_LTR") '("rtl" "GTK_TEXT_DIR_RTL") ) ) (define-enum Justification (in-module "Gtk") (c-name "GtkJustification") (gtype-id "GTK_TYPE_JUSTIFICATION") (values '("left" "GTK_JUSTIFY_LEFT") '("right" "GTK_JUSTIFY_RIGHT") '("center" "GTK_JUSTIFY_CENTER") '("fill" "GTK_JUSTIFY_FILL") ) ) (define-enum MatchType (in-module "Gtk") (c-name "GtkMatchType") (gtype-id "GTK_TYPE_MATCH_TYPE") (values '("all" "GTK_MATCH_ALL") '("all-tail" "GTK_MATCH_ALL_TAIL") '("head" "GTK_MATCH_HEAD") '("tail" "GTK_MATCH_TAIL") '("exact" "GTK_MATCH_EXACT") '("last" "GTK_MATCH_LAST") ) ) (define-enum MenuDirectionType (in-module "Gtk") (c-name "GtkMenuDirectionType") (gtype-id "GTK_TYPE_MENU_DIRECTION_TYPE") (values '("parent" "GTK_MENU_DIR_PARENT") '("child" "GTK_MENU_DIR_CHILD") '("next" "GTK_MENU_DIR_NEXT") '("prev" "GTK_MENU_DIR_PREV") ) ) (define-enum MetricType (in-module "Gtk") (c-name "GtkMetricType") (gtype-id "GTK_TYPE_METRIC_TYPE") (values '("pixels" "GTK_PIXELS") '("inches" "GTK_INCHES") '("centimeters" "GTK_CENTIMETERS") ) ) (define-enum MovementStep (in-module "Gtk") (c-name "GtkMovementStep") (gtype-id "GTK_TYPE_MOVEMENT_STEP") (values '("logical-positions" "GTK_MOVEMENT_LOGICAL_POSITIONS") '("visual-positions" "GTK_MOVEMENT_VISUAL_POSITIONS") '("words" "GTK_MOVEMENT_WORDS") '("display-lines" "GTK_MOVEMENT_DISPLAY_LINES") '("display-line-ends" "GTK_MOVEMENT_DISPLAY_LINE_ENDS") '("paragraphs" "GTK_MOVEMENT_PARAGRAPHS") '("paragraph-ends" "GTK_MOVEMENT_PARAGRAPH_ENDS") '("pages" "GTK_MOVEMENT_PAGES") '("buffer-ends" "GTK_MOVEMENT_BUFFER_ENDS") '("horizontal-pages" "GTK_MOVEMENT_HORIZONTAL_PAGES") ) ) (define-enum ScrollStep (in-module "Gtk") (c-name "GtkScrollStep") (gtype-id "GTK_TYPE_SCROLL_STEP") (values '("steps" "GTK_SCROLL_STEPS") '("pages" "GTK_SCROLL_PAGES") '("ends" "GTK_SCROLL_ENDS") '("horizontal-steps" "GTK_SCROLL_HORIZONTAL_STEPS") '("horizontal-pages" "GTK_SCROLL_HORIZONTAL_PAGES") '("horizontal-ends" "GTK_SCROLL_HORIZONTAL_ENDS") ) ) (define-enum Orientation (in-module "Gtk") (c-name "GtkOrientation") (gtype-id "GTK_TYPE_ORIENTATION") (values '("horizontal" "GTK_ORIENTATION_HORIZONTAL") '("vertical" "GTK_ORIENTATION_VERTICAL") ) ) (define-enum CornerType (in-module "Gtk") (c-name "GtkCornerType") (gtype-id "GTK_TYPE_CORNER_TYPE") (values '("top-left" "GTK_CORNER_TOP_LEFT") '("bottom-left" "GTK_CORNER_BOTTOM_LEFT") '("top-right" "GTK_CORNER_TOP_RIGHT") '("bottom-right" "GTK_CORNER_BOTTOM_RIGHT") ) ) (define-enum PackType (in-module "Gtk") (c-name "GtkPackType") (gtype-id "GTK_TYPE_PACK_TYPE") (values '("start" "GTK_PACK_START") '("end" "GTK_PACK_END") ) ) (define-enum PathPriorityType (in-module "Gtk") (c-name "GtkPathPriorityType") (gtype-id "GTK_TYPE_PATH_PRIORITY_TYPE") (values '("lowest" "GTK_PATH_PRIO_LOWEST") '("gtk" "GTK_PATH_PRIO_GTK") '("application" "GTK_PATH_PRIO_APPLICATION") '("theme" "GTK_PATH_PRIO_THEME") '("rc" "GTK_PATH_PRIO_RC") '("highest" "GTK_PATH_PRIO_HIGHEST") ) ) (define-enum PathType (in-module "Gtk") (c-name "GtkPathType") (gtype-id "GTK_TYPE_PATH_TYPE") (values '("widget" "GTK_PATH_WIDGET") '("widget-class" "GTK_PATH_WIDGET_CLASS") '("class" "GTK_PATH_CLASS") ) ) (define-enum PolicyType (in-module "Gtk") (c-name "GtkPolicyType") (gtype-id "GTK_TYPE_POLICY_TYPE") (values '("always" "GTK_POLICY_ALWAYS") '("automatic" "GTK_POLICY_AUTOMATIC") '("never" "GTK_POLICY_NEVER") ) ) (define-enum PositionType (in-module "Gtk") (c-name "GtkPositionType") (gtype-id "GTK_TYPE_POSITION_TYPE") (values '("left" "GTK_POS_LEFT") '("right" "GTK_POS_RIGHT") '("top" "GTK_POS_TOP") '("bottom" "GTK_POS_BOTTOM") ) ) (define-enum PreviewType (in-module "Gtk") (c-name "GtkPreviewType") (gtype-id "GTK_TYPE_PREVIEW_TYPE") (values '("color" "GTK_PREVIEW_COLOR") '("grayscale" "GTK_PREVIEW_GRAYSCALE") ) ) (define-enum ReliefStyle (in-module "Gtk") (c-name "GtkReliefStyle") (gtype-id "GTK_TYPE_RELIEF_STYLE") (values '("normal" "GTK_RELIEF_NORMAL") '("half" "GTK_RELIEF_HALF") '("none" "GTK_RELIEF_NONE") ) ) (define-enum ResizeMode (in-module "Gtk") (c-name "GtkResizeMode") (gtype-id "GTK_TYPE_RESIZE_MODE") (values '("parent" "GTK_RESIZE_PARENT") '("queue" "GTK_RESIZE_QUEUE") '("immediate" "GTK_RESIZE_IMMEDIATE") ) ) (define-enum SignalRunType (in-module "Gtk") (c-name "GtkSignalRunType") (gtype-id "GTK_TYPE_SIGNAL_RUN_TYPE") (values '("first" "GTK_RUN_FIRST") '("last" "GTK_RUN_LAST") '("both" "GTK_RUN_BOTH") '("no-recurse" "GTK_RUN_NO_RECURSE") '("action" "GTK_RUN_ACTION") '("no-hooks" "GTK_RUN_NO_HOOKS") ) ) (define-enum ScrollType (in-module "Gtk") (c-name "GtkScrollType") (gtype-id "GTK_TYPE_SCROLL_TYPE") (values '("none" "GTK_SCROLL_NONE") '("jump" "GTK_SCROLL_JUMP") '("step-backward" "GTK_SCROLL_STEP_BACKWARD") '("step-forward" "GTK_SCROLL_STEP_FORWARD") '("page-backward" "GTK_SCROLL_PAGE_BACKWARD") '("page-forward" "GTK_SCROLL_PAGE_FORWARD") '("step-up" "GTK_SCROLL_STEP_UP") '("step-down" "GTK_SCROLL_STEP_DOWN") '("page-up" "GTK_SCROLL_PAGE_UP") '("page-down" "GTK_SCROLL_PAGE_DOWN") '("step-left" "GTK_SCROLL_STEP_LEFT") '("step-right" "GTK_SCROLL_STEP_RIGHT") '("page-left" "GTK_SCROLL_PAGE_LEFT") '("page-right" "GTK_SCROLL_PAGE_RIGHT") '("start" "GTK_SCROLL_START") '("end" "GTK_SCROLL_END") ) ) (define-enum SelectionMode (in-module "Gtk") (c-name "GtkSelectionMode") (gtype-id "GTK_TYPE_SELECTION_MODE") (values '("none" "GTK_SELECTION_NONE") '("single" "GTK_SELECTION_SINGLE") '("browse" "GTK_SELECTION_BROWSE") '("multiple" "GTK_SELECTION_MULTIPLE") '("extended" "GTK_SELECTION_EXTENDED") ) ) (define-enum ShadowType (in-module "Gtk") (c-name "GtkShadowType") (gtype-id "GTK_TYPE_SHADOW_TYPE") (values '("none" "GTK_SHADOW_NONE") '("in" "GTK_SHADOW_IN") '("out" "GTK_SHADOW_OUT") '("etched-in" "GTK_SHADOW_ETCHED_IN") '("etched-out" "GTK_SHADOW_ETCHED_OUT") ) ) (define-enum StateType (in-module "Gtk") (c-name "GtkStateType") (gtype-id "GTK_TYPE_STATE_TYPE") (values '("normal" "GTK_STATE_NORMAL") '("active" "GTK_STATE_ACTIVE") '("prelight" "GTK_STATE_PRELIGHT") '("selected" "GTK_STATE_SELECTED") '("insensitive" "GTK_STATE_INSENSITIVE") ) ) (define-enum SubmenuDirection (in-module "Gtk") (c-name "GtkSubmenuDirection") (gtype-id "GTK_TYPE_SUBMENU_DIRECTION") (values '("left" "GTK_DIRECTION_LEFT") '("right" "GTK_DIRECTION_RIGHT") ) ) (define-enum SubmenuPlacement (in-module "Gtk") (c-name "GtkSubmenuPlacement") (gtype-id "GTK_TYPE_SUBMENU_PLACEMENT") (values '("top-bottom" "GTK_TOP_BOTTOM") '("left-right" "GTK_LEFT_RIGHT") ) ) (define-enum ToolbarStyle (in-module "Gtk") (c-name "GtkToolbarStyle") (gtype-id "GTK_TYPE_TOOLBAR_STYLE") (values '("icons" "GTK_TOOLBAR_ICONS") '("text" "GTK_TOOLBAR_TEXT") '("both" "GTK_TOOLBAR_BOTH") '("both-horiz" "GTK_TOOLBAR_BOTH_HORIZ") ) ) (define-enum UpdateType (in-module "Gtk") (c-name "GtkUpdateType") (gtype-id "GTK_TYPE_UPDATE_TYPE") (values '("continuous" "GTK_UPDATE_CONTINUOUS") '("discontinuous" "GTK_UPDATE_DISCONTINUOUS") '("delayed" "GTK_UPDATE_DELAYED") ) ) (define-enum Visibility (in-module "Gtk") (c-name "GtkVisibility") (gtype-id "GTK_TYPE_VISIBILITY") (values '("none" "GTK_VISIBILITY_NONE") '("partial" "GTK_VISIBILITY_PARTIAL") '("full" "GTK_VISIBILITY_FULL") ) ) (define-enum WindowPosition (in-module "Gtk") (c-name "GtkWindowPosition") (gtype-id "GTK_TYPE_WINDOW_POSITION") (values '("none" "GTK_WIN_POS_NONE") '("center" "GTK_WIN_POS_CENTER") '("mouse" "GTK_WIN_POS_MOUSE") '("center-always" "GTK_WIN_POS_CENTER_ALWAYS") '("center-on-parent" "GTK_WIN_POS_CENTER_ON_PARENT") ) ) (define-enum WindowType (in-module "Gtk") (c-name "GtkWindowType") (gtype-id "GTK_TYPE_WINDOW_TYPE") (values '("toplevel" "GTK_WINDOW_TOPLEVEL") '("popup" "GTK_WINDOW_POPUP") ) ) (define-enum WrapMode (in-module "Gtk") (c-name "GtkWrapMode") (gtype-id "GTK_TYPE_WRAP_MODE") (values '("none" "GTK_WRAP_NONE") '("char" "GTK_WRAP_CHAR") '("word" "GTK_WRAP_WORD") '("word-char" "GTK_WRAP_WORD_CHAR") ) ) (define-enum SortType (in-module "Gtk") (c-name "GtkSortType") (gtype-id "GTK_TYPE_SORT_TYPE") (values '("ascending" "GTK_SORT_ASCENDING") '("descending" "GTK_SORT_DESCENDING") ) ) (define-enum IMPreeditStyle (in-module "Gtk") (c-name "GtkIMPreeditStyle") (gtype-id "GTK_TYPE_IM_PREEDIT_STYLE") (values '("nothing" "GTK_IM_PREEDIT_NOTHING") '("callback" "GTK_IM_PREEDIT_CALLBACK") '("none" "GTK_IM_PREEDIT_NONE") ) ) (define-enum IMStatusStyle (in-module "Gtk") (c-name "GtkIMStatusStyle") (gtype-id "GTK_TYPE_IM_STATUS_STYLE") (values '("nothing" "GTK_IM_STATUS_NOTHING") '("callback" "GTK_IM_STATUS_CALLBACK") '("none" "GTK_IM_STATUS_NONE") ) ) (define-enum PackDirection (in-module "Gtk") (c-name "GtkPackDirection") (gtype-id "GTK_TYPE_PACK_DIRECTION") (values '("ltr" "GTK_PACK_DIRECTION_LTR") '("rtl" "GTK_PACK_DIRECTION_RTL") '("ttb" "GTK_PACK_DIRECTION_TTB") '("btt" "GTK_PACK_DIRECTION_BTT") ) ) (define-enum PrintPages (in-module "Gtk") (c-name "GtkPrintPages") (gtype-id "GTK_TYPE_PRINT_PAGES") (values '("all" "GTK_PRINT_PAGES_ALL") '("current" "GTK_PRINT_PAGES_CURRENT") '("ranges" "GTK_PRINT_PAGES_RANGES") ) ) (define-enum PageSet (in-module "Gtk") (c-name "GtkPageSet") (gtype-id "GTK_TYPE_PAGE_SET") (values '("all" "GTK_PAGE_SET_ALL") '("even" "GTK_PAGE_SET_EVEN") '("odd" "GTK_PAGE_SET_ODD") ) ) (define-enum PageOrientation (in-module "Gtk") (c-name "GtkPageOrientation") (gtype-id "GTK_TYPE_PAGE_ORIENTATION") (values '("portrait" "GTK_PAGE_ORIENTATION_PORTRAIT") '("landscape" "GTK_PAGE_ORIENTATION_LANDSCAPE") '("reverse-portrait" "GTK_PAGE_ORIENTATION_REVERSE_PORTRAIT") '("reverse-landscape" "GTK_PAGE_ORIENTATION_REVERSE_LANDSCAPE") ) ) (define-enum PrintQuality (in-module "Gtk") (c-name "GtkPrintQuality") (gtype-id "GTK_TYPE_PRINT_QUALITY") (values '("low" "GTK_PRINT_QUALITY_LOW") '("normal" "GTK_PRINT_QUALITY_NORMAL") '("high" "GTK_PRINT_QUALITY_HIGH") '("draft" "GTK_PRINT_QUALITY_DRAFT") ) ) (define-enum PrintDuplex (in-module "Gtk") (c-name "GtkPrintDuplex") (gtype-id "GTK_TYPE_PRINT_DUPLEX") (values '("simplex" "GTK_PRINT_DUPLEX_SIMPLEX") '("horizontal" "GTK_PRINT_DUPLEX_HORIZONTAL") '("vertical" "GTK_PRINT_DUPLEX_VERTICAL") ) ) (define-enum Unit (in-module "Gtk") (c-name "GtkUnit") (gtype-id "GTK_TYPE_UNIT") (values '("pixel" "GTK_UNIT_PIXEL") '("points" "GTK_UNIT_POINTS") '("inch" "GTK_UNIT_INCH") '("mm" "GTK_UNIT_MM") ) ) (define-enum TreeViewGridLines (in-module "Gtk") (c-name "GtkTreeViewGridLines") (gtype-id "GTK_TYPE_TREE_VIEW_GRID_LINES") (values '("none" "GTK_TREE_VIEW_GRID_LINES_NONE") '("horizontal" "GTK_TREE_VIEW_GRID_LINES_HORIZONTAL") '("vertical" "GTK_TREE_VIEW_GRID_LINES_VERTICAL") '("both" "GTK_TREE_VIEW_GRID_LINES_BOTH") ) ) (define-enum FileChooserAction (in-module "Gtk") (c-name "GtkFileChooserAction") (gtype-id "GTK_TYPE_FILE_CHOOSER_ACTION") (values '("open" "GTK_FILE_CHOOSER_ACTION_OPEN") '("save" "GTK_FILE_CHOOSER_ACTION_SAVE") '("select-folder" "GTK_FILE_CHOOSER_ACTION_SELECT_FOLDER") '("create-folder" "GTK_FILE_CHOOSER_ACTION_CREATE_FOLDER") ) ) (define-enum FileChooserConfirmation (in-module "Gtk") (c-name "GtkFileChooserConfirmation") (gtype-id "GTK_TYPE_FILE_CHOOSER_CONFIRMATION") (values '("confirm" "GTK_FILE_CHOOSER_CONFIRMATION_CONFIRM") '("accept-filename" "GTK_FILE_CHOOSER_CONFIRMATION_ACCEPT_FILENAME") '("select-again" "GTK_FILE_CHOOSER_CONFIRMATION_SELECT_AGAIN") ) ) (define-enum FileChooserError (in-module "Gtk") (c-name "GtkFileChooserError") (gtype-id "GTK_TYPE_FILE_CHOOSER_ERROR") (values '("nonexistent" "GTK_FILE_CHOOSER_ERROR_NONEXISTENT") '("bad-filename" "GTK_FILE_CHOOSER_ERROR_BAD_FILENAME") '("already-exists" "GTK_FILE_CHOOSER_ERROR_ALREADY_EXISTS") ) ) (define-flags FileFilterFlags (in-module "Gtk") (c-name "GtkFileFilterFlags") (gtype-id "GTK_TYPE_FILE_FILTER_FLAGS") (values '("filename" "GTK_FILE_FILTER_FILENAME") '("uri" "GTK_FILE_FILTER_URI") '("display-name" "GTK_FILE_FILTER_DISPLAY_NAME") '("mime-type" "GTK_FILE_FILTER_MIME_TYPE") ) ) (define-flags IconLookupFlags (in-module "Gtk") (c-name "GtkIconLookupFlags") (gtype-id "GTK_TYPE_ICON_LOOKUP_FLAGS") (values '("no-svg" "GTK_ICON_LOOKUP_NO_SVG") '("force-svg" "GTK_ICON_LOOKUP_FORCE_SVG") '("use-builtin" "GTK_ICON_LOOKUP_USE_BUILTIN") ) ) (define-enum IconThemeError (in-module "Gtk") (c-name "GtkIconThemeError") (gtype-id "GTK_TYPE_ICON_THEME_ERROR") (values '("not-found" "GTK_ICON_THEME_NOT_FOUND") '("failed" "GTK_ICON_THEME_FAILED") ) ) (define-enum IconViewDropPosition (in-module "Gtk") (c-name "GtkIconViewDropPosition") (gtype-id "GTK_TYPE_ICON_VIEW_DROP_POSITION") (values '("no-drop" "GTK_ICON_VIEW_NO_DROP") '("drop-into" "GTK_ICON_VIEW_DROP_INTO") '("drop-left" "GTK_ICON_VIEW_DROP_LEFT") '("drop-right" "GTK_ICON_VIEW_DROP_RIGHT") '("drop-above" "GTK_ICON_VIEW_DROP_ABOVE") '("drop-below" "GTK_ICON_VIEW_DROP_BELOW") ) ) (define-enum ImageType (in-module "Gtk") (c-name "GtkImageType") (gtype-id "GTK_TYPE_IMAGE_TYPE") (values '("empty" "GTK_IMAGE_EMPTY") '("pixmap" "GTK_IMAGE_PIXMAP") '("image" "GTK_IMAGE_IMAGE") '("pixbuf" "GTK_IMAGE_PIXBUF") '("stock" "GTK_IMAGE_STOCK") '("icon-set" "GTK_IMAGE_ICON_SET") '("animation" "GTK_IMAGE_ANIMATION") '("icon-name" "GTK_IMAGE_ICON_NAME") ) ) (define-enum MessageType (in-module "Gtk") (c-name "GtkMessageType") (gtype-id "GTK_TYPE_MESSAGE_TYPE") (values '("info" "GTK_MESSAGE_INFO") '("warning" "GTK_MESSAGE_WARNING") '("question" "GTK_MESSAGE_QUESTION") '("error" "GTK_MESSAGE_ERROR") '("other" "GTK_MESSAGE_OTHER") ) ) (define-enum ButtonsType (in-module "Gtk") (c-name "GtkButtonsType") (gtype-id "GTK_TYPE_BUTTONS_TYPE") (values '("none" "GTK_BUTTONS_NONE") '("ok" "GTK_BUTTONS_OK") '("close" "GTK_BUTTONS_CLOSE") '("cancel" "GTK_BUTTONS_CANCEL") '("yes-no" "GTK_BUTTONS_YES_NO") '("ok-cancel" "GTK_BUTTONS_OK_CANCEL") ) ) (define-enum NotebookTab (in-module "Gtk") (c-name "GtkNotebookTab") (gtype-id "GTK_TYPE_NOTEBOOK_TAB") (values '("first" "GTK_NOTEBOOK_TAB_FIRST") '("last" "GTK_NOTEBOOK_TAB_LAST") ) ) (define-flags ObjectFlags (in-module "Gtk") (c-name "GtkObjectFlags") (gtype-id "GTK_TYPE_OBJECT_FLAGS") (values '("gtk-in-destruction" "GTK_IN_DESTRUCTION") '("#if" "#if") '("#endif" "#endif") '("gtk-reserved-2" "GTK_RESERVED_2") ) ) (define-flags ArgFlags (in-module "Gtk") (c-name "GtkArgFlags") (gtype-id "GTK_TYPE_ARG_FLAGS") (values '("readable" "GTK_ARG_READABLE") '("writable" "GTK_ARG_WRITABLE") '("construct" "GTK_ARG_CONSTRUCT") '("construct-only" "GTK_ARG_CONSTRUCT_ONLY") '("child-arg" "GTK_ARG_CHILD_ARG") ) ) (define-enum PrintStatus (in-module "Gtk") (c-name "GtkPrintStatus") (gtype-id "GTK_TYPE_PRINT_STATUS") (values '("initial" "GTK_PRINT_STATUS_INITIAL") '("preparing" "GTK_PRINT_STATUS_PREPARING") '("generating-data" "GTK_PRINT_STATUS_GENERATING_DATA") '("sending-data" "GTK_PRINT_STATUS_SENDING_DATA") '("pending" "GTK_PRINT_STATUS_PENDING") '("pending-issue" "GTK_PRINT_STATUS_PENDING_ISSUE") '("printing" "GTK_PRINT_STATUS_PRINTING") '("finished" "GTK_PRINT_STATUS_FINISHED") '("finished-aborted" "GTK_PRINT_STATUS_FINISHED_ABORTED") ) ) (define-enum PrintOperationResult (in-module "Gtk") (c-name "GtkPrintOperationResult") (gtype-id "GTK_TYPE_PRINT_OPERATION_RESULT") (values '("error" "GTK_PRINT_OPERATION_RESULT_ERROR") '("apply" "GTK_PRINT_OPERATION_RESULT_APPLY") '("cancel" "GTK_PRINT_OPERATION_RESULT_CANCEL") '("in-progress" "GTK_PRINT_OPERATION_RESULT_IN_PROGRESS") ) ) (define-enum PrintOperationAction (in-module "Gtk") (c-name "GtkPrintOperationAction") (gtype-id "GTK_TYPE_PRINT_OPERATION_ACTION") (values '("print-dialog" "GTK_PRINT_OPERATION_ACTION_PRINT_DIALOG") '("print" "GTK_PRINT_OPERATION_ACTION_PRINT") '("preview" "GTK_PRINT_OPERATION_ACTION_PREVIEW") '("export" "GTK_PRINT_OPERATION_ACTION_EXPORT") ) ) (define-enum PrintError (in-module "Gtk") (c-name "GtkPrintError") (gtype-id "GTK_TYPE_PRINT_ERROR") (values '("general" "GTK_PRINT_ERROR_GENERAL") '("internal-error" "GTK_PRINT_ERROR_INTERNAL_ERROR") '("nomem" "GTK_PRINT_ERROR_NOMEM") ) ) (define-flags PrivateFlags (in-module "Gtk") (c-name "GtkPrivateFlags") (gtype-id "GTK_TYPE_PRIVATE_FLAGS") (values '("user-style" "PRIVATE_GTK_USER_STYLE") '("resize-pending" "PRIVATE_GTK_RESIZE_PENDING") '("leave-pending" "PRIVATE_GTK_LEAVE_PENDING") '("has-shape-mask" "PRIVATE_GTK_HAS_SHAPE_MASK") '("in-reparent" "PRIVATE_GTK_IN_REPARENT") '("direction-set" "PRIVATE_GTK_DIRECTION_SET") '("direction-ltr" "PRIVATE_GTK_DIRECTION_LTR") '("anchored" "PRIVATE_GTK_ANCHORED") '("child-visible" "PRIVATE_GTK_CHILD_VISIBLE") '("redraw-on-alloc" "PRIVATE_GTK_REDRAW_ON_ALLOC") '("alloc-needed" "PRIVATE_GTK_ALLOC_NEEDED") '("request-needed" "PRIVATE_GTK_REQUEST_NEEDED") ) ) (define-enum ProgressBarStyle (in-module "Gtk") (c-name "GtkProgressBarStyle") (gtype-id "GTK_TYPE_PROGRESS_BAR_STYLE") (values '("continuous" "GTK_PROGRESS_CONTINUOUS") '("discrete" "GTK_PROGRESS_DISCRETE") ) ) (define-enum ProgressBarOrientation (in-module "Gtk") (c-name "GtkProgressBarOrientation") (gtype-id "GTK_TYPE_PROGRESS_BAR_ORIENTATION") (values '("left-to-right" "GTK_PROGRESS_LEFT_TO_RIGHT") '("right-to-left" "GTK_PROGRESS_RIGHT_TO_LEFT") '("bottom-to-top" "GTK_PROGRESS_BOTTOM_TO_TOP") '("top-to-bottom" "GTK_PROGRESS_TOP_TO_BOTTOM") ) ) (define-flags RcFlags (in-module "Gtk") (c-name "GtkRcFlags") (gtype-id "GTK_TYPE_RC_FLAGS") (values '("fg" "GTK_RC_FG") '("bg" "GTK_RC_BG") '("text" "GTK_RC_TEXT") '("base" "GTK_RC_BASE") ) ) (define-enum RcTokenType (in-module "Gtk") (c-name "GtkRcTokenType") (gtype-id "GTK_TYPE_RC_TOKEN_TYPE") (values '("invalid" "GTK_RC_TOKEN_INVALID") '("include" "GTK_RC_TOKEN_INCLUDE") '("normal" "GTK_RC_TOKEN_NORMAL") '("active" "GTK_RC_TOKEN_ACTIVE") '("prelight" "GTK_RC_TOKEN_PRELIGHT") '("selected" "GTK_RC_TOKEN_SELECTED") '("insensitive" "GTK_RC_TOKEN_INSENSITIVE") '("fg" "GTK_RC_TOKEN_FG") '("bg" "GTK_RC_TOKEN_BG") '("text" "GTK_RC_TOKEN_TEXT") '("base" "GTK_RC_TOKEN_BASE") '("xthickness" "GTK_RC_TOKEN_XTHICKNESS") '("ythickness" "GTK_RC_TOKEN_YTHICKNESS") '("font" "GTK_RC_TOKEN_FONT") '("fontset" "GTK_RC_TOKEN_FONTSET") '("font-name" "GTK_RC_TOKEN_FONT_NAME") '("bg-pixmap" "GTK_RC_TOKEN_BG_PIXMAP") '("pixmap-path" "GTK_RC_TOKEN_PIXMAP_PATH") '("style" "GTK_RC_TOKEN_STYLE") '("binding" "GTK_RC_TOKEN_BINDING") '("bind" "GTK_RC_TOKEN_BIND") '("widget" "GTK_RC_TOKEN_WIDGET") '("widget-class" "GTK_RC_TOKEN_WIDGET_CLASS") '("class" "GTK_RC_TOKEN_CLASS") '("lowest" "GTK_RC_TOKEN_LOWEST") '("gtk" "GTK_RC_TOKEN_GTK") '("application" "GTK_RC_TOKEN_APPLICATION") '("theme" "GTK_RC_TOKEN_THEME") '("rc" "GTK_RC_TOKEN_RC") '("highest" "GTK_RC_TOKEN_HIGHEST") '("engine" "GTK_RC_TOKEN_ENGINE") '("module-path" "GTK_RC_TOKEN_MODULE_PATH") '("im-module-path" "GTK_RC_TOKEN_IM_MODULE_PATH") '("im-module-file" "GTK_RC_TOKEN_IM_MODULE_FILE") '("stock" "GTK_RC_TOKEN_STOCK") '("ltr" "GTK_RC_TOKEN_LTR") '("rtl" "GTK_RC_TOKEN_RTL") '("color" "GTK_RC_TOKEN_COLOR") '("last" "GTK_RC_TOKEN_LAST") ) ) (define-enum RecentSortType (in-module "Gtk") (c-name "GtkRecentSortType") (gtype-id "GTK_TYPE_RECENT_SORT_TYPE") (values '("none" "GTK_RECENT_SORT_NONE") '("mru" "GTK_RECENT_SORT_MRU") '("lru" "GTK_RECENT_SORT_LRU") '("custom" "GTK_RECENT_SORT_CUSTOM") ) ) (define-enum RecentChooserError (in-module "Gtk") (c-name "GtkRecentChooserError") (gtype-id "GTK_TYPE_RECENT_CHOOSER_ERROR") (values '("not-found" "GTK_RECENT_CHOOSER_ERROR_NOT_FOUND") '("invalid-uri" "GTK_RECENT_CHOOSER_ERROR_INVALID_URI") ) ) (define-flags RecentFilterFlags (in-module "Gtk") (c-name "GtkRecentFilterFlags") (gtype-id "GTK_TYPE_RECENT_FILTER_FLAGS") (values '("uri" "GTK_RECENT_FILTER_URI") '("display-name" "GTK_RECENT_FILTER_DISPLAY_NAME") '("mime-type" "GTK_RECENT_FILTER_MIME_TYPE") '("application" "GTK_RECENT_FILTER_APPLICATION") '("group" "GTK_RECENT_FILTER_GROUP") '("age" "GTK_RECENT_FILTER_AGE") ) ) (define-enum RecentManagerError (in-module "Gtk") (c-name "GtkRecentManagerError") (gtype-id "GTK_TYPE_RECENT_MANAGER_ERROR") (values '("not-found" "GTK_RECENT_MANAGER_ERROR_NOT_FOUND") '("invalid-uri" "GTK_RECENT_MANAGER_ERROR_INVALID_URI") '("invalid-encoding" "GTK_RECENT_MANAGER_ERROR_INVALID_ENCODING") '("not-registered" "GTK_RECENT_MANAGER_ERROR_NOT_REGISTERED") '("read" "GTK_RECENT_MANAGER_ERROR_READ") '("write" "GTK_RECENT_MANAGER_ERROR_WRITE") '("unknown" "GTK_RECENT_MANAGER_ERROR_UNKNOWN") ) ) (define-enum SizeGroupMode (in-module "Gtk") (c-name "GtkSizeGroupMode") (gtype-id "GTK_TYPE_SIZE_GROUP_MODE") (values '("none" "GTK_SIZE_GROUP_NONE") '("horizontal" "GTK_SIZE_GROUP_HORIZONTAL") '("vertical" "GTK_SIZE_GROUP_VERTICAL") '("both" "GTK_SIZE_GROUP_BOTH") ) ) (define-enum SpinButtonUpdatePolicy (in-module "Gtk") (c-name "GtkSpinButtonUpdatePolicy") (gtype-id "GTK_TYPE_SPIN_BUTTON_UPDATE_POLICY") (values '("always" "GTK_UPDATE_ALWAYS") '("if-valid" "GTK_UPDATE_IF_VALID") ) ) (define-enum SpinType (in-module "Gtk") (c-name "GtkSpinType") (gtype-id "GTK_TYPE_SPIN_TYPE") (values '("step-forward" "GTK_SPIN_STEP_FORWARD") '("step-backward" "GTK_SPIN_STEP_BACKWARD") '("page-forward" "GTK_SPIN_PAGE_FORWARD") '("page-backward" "GTK_SPIN_PAGE_BACKWARD") '("home" "GTK_SPIN_HOME") '("end" "GTK_SPIN_END") '("user-defined" "GTK_SPIN_USER_DEFINED") ) ) (define-enum TextBufferTargetInfo (in-module "Gtk") (c-name "GtkTextBufferTargetInfo") (gtype-id "GTK_TYPE_TEXT_BUFFER_TARGET_INFO") (values '("buffer-contents" "GTK_TEXT_BUFFER_TARGET_INFO_BUFFER_CONTENTS") '("rich-text" "GTK_TEXT_BUFFER_TARGET_INFO_RICH_TEXT") '("text" "GTK_TEXT_BUFFER_TARGET_INFO_TEXT") ) ) (define-flags TextSearchFlags (in-module "Gtk") (c-name "GtkTextSearchFlags") (gtype-id "GTK_TYPE_TEXT_SEARCH_FLAGS") (values '("visible-only" "GTK_TEXT_SEARCH_VISIBLE_ONLY") '("text-only" "GTK_TEXT_SEARCH_TEXT_ONLY") ) ) (define-enum TextWindowType (in-module "Gtk") (c-name "GtkTextWindowType") (gtype-id "GTK_TYPE_TEXT_WINDOW_TYPE") (values '("private" "GTK_TEXT_WINDOW_PRIVATE") '("widget" "GTK_TEXT_WINDOW_WIDGET") '("text" "GTK_TEXT_WINDOW_TEXT") '("left" "GTK_TEXT_WINDOW_LEFT") '("right" "GTK_TEXT_WINDOW_RIGHT") '("top" "GTK_TEXT_WINDOW_TOP") '("bottom" "GTK_TEXT_WINDOW_BOTTOM") ) ) (define-enum ToolbarChildType (in-module "Gtk") (c-name "GtkToolbarChildType") (gtype-id "GTK_TYPE_TOOLBAR_CHILD_TYPE") (values '("space" "GTK_TOOLBAR_CHILD_SPACE") '("button" "GTK_TOOLBAR_CHILD_BUTTON") '("togglebutton" "GTK_TOOLBAR_CHILD_TOGGLEBUTTON") '("radiobutton" "GTK_TOOLBAR_CHILD_RADIOBUTTON") '("widget" "GTK_TOOLBAR_CHILD_WIDGET") ) ) (define-enum ToolbarSpaceStyle (in-module "Gtk") (c-name "GtkToolbarSpaceStyle") (gtype-id "GTK_TYPE_TOOLBAR_SPACE_STYLE") (values '("empty" "GTK_TOOLBAR_SPACE_EMPTY") '("line" "GTK_TOOLBAR_SPACE_LINE") ) ) (define-enum TreeViewMode (in-module "Gtk") (c-name "GtkTreeViewMode") (gtype-id "GTK_TYPE_TREE_VIEW_MODE") (values '("line" "GTK_TREE_VIEW_LINE") '("item" "GTK_TREE_VIEW_ITEM") ) ) (define-flags TreeModelFlags (in-module "Gtk") (c-name "GtkTreeModelFlags") (gtype-id "GTK_TYPE_TREE_MODEL_FLAGS") (values '("iters-persist" "GTK_TREE_MODEL_ITERS_PERSIST") '("list-only" "GTK_TREE_MODEL_LIST_ONLY") ) ) (define-enum TreeViewColumnSizing (in-module "Gtk") (c-name "GtkTreeViewColumnSizing") (gtype-id "GTK_TYPE_TREE_VIEW_COLUMN_SIZING") (values '("grow-only" "GTK_TREE_VIEW_COLUMN_GROW_ONLY") '("autosize" "GTK_TREE_VIEW_COLUMN_AUTOSIZE") '("fixed" "GTK_TREE_VIEW_COLUMN_FIXED") ) ) (define-enum TreeViewDropPosition (in-module "Gtk") (c-name "GtkTreeViewDropPosition") (gtype-id "GTK_TYPE_TREE_VIEW_DROP_POSITION") (values '("before" "GTK_TREE_VIEW_DROP_BEFORE") '("after" "GTK_TREE_VIEW_DROP_AFTER") '("into-or-before" "GTK_TREE_VIEW_DROP_INTO_OR_BEFORE") '("into-or-after" "GTK_TREE_VIEW_DROP_INTO_OR_AFTER") ) ) (define-flags UIManagerItemType (in-module "Gtk") (c-name "GtkUIManagerItemType") (gtype-id "GTK_TYPE_UI_MANAGER_ITEM_TYPE") (values '("auto" "GTK_UI_MANAGER_AUTO") '("menubar" "GTK_UI_MANAGER_MENUBAR") '("menu" "GTK_UI_MANAGER_MENU") '("toolbar" "GTK_UI_MANAGER_TOOLBAR") '("placeholder" "GTK_UI_MANAGER_PLACEHOLDER") '("popup" "GTK_UI_MANAGER_POPUP") '("menuitem" "GTK_UI_MANAGER_MENUITEM") '("toolitem" "GTK_UI_MANAGER_TOOLITEM") '("separator" "GTK_UI_MANAGER_SEPARATOR") '("accelerator" "GTK_UI_MANAGER_ACCELERATOR") ) ) (define-flags WidgetFlags (in-module "Gtk") (c-name "GtkWidgetFlags") (gtype-id "GTK_TYPE_WIDGET_FLAGS") (values '("toplevel" "GTK_TOPLEVEL") '("no-window" "GTK_NO_WINDOW") '("realized" "GTK_REALIZED") '("mapped" "GTK_MAPPED") '("visible" "GTK_VISIBLE") '("sensitive" "GTK_SENSITIVE") '("parent-sensitive" "GTK_PARENT_SENSITIVE") '("can-focus" "GTK_CAN_FOCUS") '("has-focus" "GTK_HAS_FOCUS") '("can-default" "GTK_CAN_DEFAULT") '("has-default" "GTK_HAS_DEFAULT") '("has-grab" "GTK_HAS_GRAB") '("rc-style" "GTK_RC_STYLE") '("composite-child" "GTK_COMPOSITE_CHILD") '("no-reparent" "GTK_NO_REPARENT") '("app-paintable" "GTK_APP_PAINTABLE") '("receives-default" "GTK_RECEIVES_DEFAULT") '("double-buffered" "GTK_DOUBLE_BUFFERED") '("no-show-all" "GTK_NO_SHOW_ALL") ) ) (define-enum WidgetHelpType (in-module "Gtk") (c-name "GtkWidgetHelpType") (gtype-id "GTK_TYPE_WIDGET_HELP_TYPE") (values '("tooltip" "GTK_WIDGET_HELP_TOOLTIP") '("whats-this" "GTK_WIDGET_HELP_WHATS_THIS") ) ) ;; -*- scheme -*- ; object definitions ... (define-object AccelGroup (in-module "Gtk") (parent "GObject") (c-name "GtkAccelGroup") (gtype-id "GTK_TYPE_ACCEL_GROUP") ) (define-object Accessible (in-module "Gtk") (parent "AtkObject") (c-name "GtkAccessible") (gtype-id "GTK_TYPE_ACCESSIBLE") ) (define-object Action (in-module "Gtk") (parent "GObject") (c-name "GtkAction") (gtype-id "GTK_TYPE_ACTION") ) (define-object ActionGroup (in-module "Gtk") (parent "GObject") (c-name "GtkActionGroup") (gtype-id "GTK_TYPE_ACTION_GROUP") ) (define-object EntryCompletion (in-module "Gtk") (parent "GObject") (c-name "GtkEntryCompletion") (gtype-id "GTK_TYPE_ENTRY_COMPLETION") ) (define-object IMContextSimple (in-module "Gtk") (parent "GtkIMContext") (c-name "GtkIMContextSimple") (gtype-id "GTK_TYPE_IM_CONTEXT_SIMPLE") ) (define-object IMMulticontext (in-module "Gtk") (parent "GtkIMContext") (c-name "GtkIMMulticontext") (gtype-id "GTK_TYPE_IM_MULTICONTEXT") ) (define-object IconFactory (in-module "Gtk") (parent "GObject") (c-name "GtkIconFactory") (gtype-id "GTK_TYPE_ICON_FACTORY") ) (define-object IconTheme (in-module "Gtk") (parent "GObject") (c-name "GtkIconTheme") (gtype-id "GTK_TYPE_ICON_THEME") ) (define-object ListStore (in-module "Gtk") (parent "GObject") (c-name "GtkListStore") (gtype-id "GTK_TYPE_LIST_STORE") ) (define-object Object (in-module "Gtk") (parent "GInitiallyUnowned") (c-name "GtkObject") (gtype-id "GTK_TYPE_OBJECT") ) (define-object ItemFactory (in-module "Gtk") (parent "GtkObject") (c-name "GtkItemFactory") (gtype-id "GTK_TYPE_ITEM_FACTORY") ) (define-object CellRenderer (in-module "Gtk") (parent "GtkObject") (c-name "GtkCellRenderer") (gtype-id "GTK_TYPE_CELL_RENDERER") ) (define-object CellRendererToggle (in-module "Gtk") (parent "GtkCellRenderer") (c-name "GtkCellRendererToggle") (gtype-id "GTK_TYPE_CELL_RENDERER_TOGGLE") ) (define-object CellRendererText (in-module "Gtk") (parent "GtkCellRenderer") (c-name "GtkCellRendererText") (gtype-id "GTK_TYPE_CELL_RENDERER_TEXT") ) (define-object CellRendererAccel (in-module "Gtk") (parent "GtkCellRendererText") (c-name "GtkCellRendererAccel") (gtype-id "GTK_TYPE_CELL_RENDERER_ACCEL") ) (define-object CellRendererCombo (in-module "Gtk") (parent "GtkCellRendererText") (c-name "GtkCellRendererCombo") (gtype-id "GTK_TYPE_CELL_RENDERER_COMBO") ) (define-object CellRendererSpin (in-module "Gtk") (parent "GtkCellRendererText") (c-name "GtkCellRendererSpin") (gtype-id "GTK_TYPE_CELL_RENDERER_SPIN") ) (define-object CellRendererProgress (in-module "Gtk") (parent "GtkCellRenderer") (c-name "GtkCellRendererProgress") (gtype-id "GTK_TYPE_CELL_RENDERER_PROGRESS") ) (define-object CellRendererPixbuf (in-module "Gtk") (parent "GtkCellRenderer") (c-name "GtkCellRendererPixbuf") (gtype-id "GTK_TYPE_CELL_RENDERER_PIXBUF") ) (define-object Adjustment (in-module "Gtk") (parent "GtkObject") (c-name "GtkAdjustment") (gtype-id "GTK_TYPE_ADJUSTMENT") ) (define-object PrintOperation (in-module "Gtk") (parent "GObject") (c-name "GtkPrintOperation") (gtype-id "GTK_TYPE_PRINT_OPERATION") ) (define-object RcStyle (in-module "Gtk") (parent "GObject") (c-name "GtkRcStyle") (gtype-id "GTK_TYPE_RC_STYLE") ) (define-object RecentManager (in-module "Gtk") (parent "GObject") (c-name "GtkRecentManager") (gtype-id "GTK_TYPE_RECENT_MANAGER") ) (define-object Settings (in-module "Gtk") (parent "GObject") (c-name "GtkSettings") (gtype-id "GTK_TYPE_SETTINGS") ) (define-object SizeGroup (in-module "Gtk") (parent "GObject") (c-name "GtkSizeGroup") (gtype-id "GTK_TYPE_SIZE_GROUP") ) (define-object StatusIcon (in-module "Gtk") (parent "GObject") (c-name "GtkStatusIcon") (gtype-id "GTK_TYPE_STATUS_ICON") ) (define-object Style (in-module "Gtk") (parent "GObject") (c-name "GtkStyle") (gtype-id "GTK_TYPE_STYLE") ) (define-object TextBuffer (in-module "Gtk") (parent "GObject") (c-name "GtkTextBuffer") (gtype-id "GTK_TYPE_TEXT_BUFFER") ) (define-object TextChildAnchor (in-module "Gtk") (parent "GObject") (c-name "GtkTextChildAnchor") (gtype-id "GTK_TYPE_TEXT_CHILD_ANCHOR") ) (define-object TextLayout (in-module "Gtk") (parent "GObject") (c-name "GtkTextLayout") (gtype-id "GTK_TYPE_TEXT_LAYOUT") ) (define-object TextMark (in-module "Gtk") (parent "GObject") (c-name "GtkTextMark") (gtype-id "GTK_TYPE_TEXT_MARK") ) (define-object TextTag (in-module "Gtk") (parent "GObject") (c-name "GtkTextTag") (gtype-id "GTK_TYPE_TEXT_TAG") ) (define-object TextTagTable (in-module "Gtk") (parent "GObject") (c-name "GtkTextTagTable") (gtype-id "GTK_TYPE_TEXT_TAG_TABLE") ) (define-object ToggleAction (in-module "Gtk") (parent "GtkAction") (c-name "GtkToggleAction") (gtype-id "GTK_TYPE_TOGGLE_ACTION") ) (define-object RadioAction (in-module "Gtk") (parent "GtkToggleAction") (c-name "GtkRadioAction") (gtype-id "GTK_TYPE_RADIO_ACTION") ) (define-object Tooltips (in-module "Gtk") (parent "GtkObject") (c-name "GtkTooltips") (gtype-id "GTK_TYPE_TOOLTIPS") ) (define-object TreeModelFilter (in-module "Gtk") (parent "GObject") (c-name "GtkTreeModelFilter") (gtype-id "GTK_TYPE_TREE_MODEL_FILTER") ) (define-object TreeModelSort (in-module "Gtk") (parent "GObject") (c-name "GtkTreeModelSort") (gtype-id "GTK_TYPE_TREE_MODEL_SORT") ) (define-object TreeSelection (in-module "Gtk") (parent "GObject") (c-name "GtkTreeSelection") (gtype-id "GTK_TYPE_TREE_SELECTION") ) (define-object TreeStore (in-module "Gtk") (parent "GObject") (c-name "GtkTreeStore") (gtype-id "GTK_TYPE_TREE_STORE") ) (define-object TreeViewColumn (in-module "Gtk") (parent "GtkObject") (c-name "GtkTreeViewColumn") (gtype-id "GTK_TYPE_TREE_VIEW_COLUMN") ) (define-object UIManager (in-module "Gtk") (parent "GObject") (c-name "GtkUIManager") (gtype-id "GTK_TYPE_UI_MANAGER") ) (define-object Widget (in-module "Gtk") (parent "GtkObject") (c-name "GtkWidget") (gtype-id "GTK_TYPE_WIDGET") ) (define-object Separator (in-module "Gtk") (parent "GtkWidget") (c-name "GtkSeparator") (gtype-id "GTK_TYPE_SEPARATOR") ) (define-object VSeparator (in-module "Gtk") (parent "GtkSeparator") (c-name "GtkVSeparator") (gtype-id "GTK_TYPE_VSEPARATOR") ) (define-object HSeparator (in-module "Gtk") (parent "GtkSeparator") (c-name "GtkHSeparator") (gtype-id "GTK_TYPE_HSEPARATOR") ) (define-object Ruler (in-module "Gtk") (parent "GtkWidget") (c-name "GtkRuler") (gtype-id "GTK_TYPE_RULER") ) (define-object VRuler (in-module "Gtk") (parent "GtkRuler") (c-name "GtkVRuler") (gtype-id "GTK_TYPE_VRULER") ) (define-object HRuler (in-module "Gtk") (parent "GtkRuler") (c-name "GtkHRuler") (gtype-id "GTK_TYPE_HRULER") ) (define-object Range (in-module "Gtk") (parent "GtkWidget") (c-name "GtkRange") (gtype-id "GTK_TYPE_RANGE") ) (define-object Scrollbar (in-module "Gtk") (parent "GtkRange") (c-name "GtkScrollbar") (gtype-id "GTK_TYPE_SCROLLBAR") ) (define-object VScrollbar (in-module "Gtk") (parent "GtkScrollbar") (c-name "GtkVScrollbar") (gtype-id "GTK_TYPE_VSCROLLBAR") ) (define-object HScrollbar (in-module "Gtk") (parent "GtkScrollbar") (c-name "GtkHScrollbar") (gtype-id "GTK_TYPE_HSCROLLBAR") ) (define-object Scale (in-module "Gtk") (parent "GtkRange") (c-name "GtkScale") (gtype-id "GTK_TYPE_SCALE") ) (define-object VScale (in-module "Gtk") (parent "GtkScale") (c-name "GtkVScale") (gtype-id "GTK_TYPE_VSCALE") ) (define-object HScale (in-module "Gtk") (parent "GtkScale") (c-name "GtkHScale") (gtype-id "GTK_TYPE_HSCALE") ) (define-object Progress (in-module "Gtk") (parent "GtkWidget") (c-name "GtkProgress") (gtype-id "GTK_TYPE_PROGRESS") ) (define-object ProgressBar (in-module "Gtk") (parent "GtkProgress") (c-name "GtkProgressBar") (gtype-id "GTK_TYPE_PROGRESS_BAR") ) (define-object Preview (in-module "Gtk") (parent "GtkWidget") (c-name "GtkPreview") (gtype-id "GTK_TYPE_PREVIEW") ) (define-object OldEditable (in-module "Gtk") (parent "GtkWidget") (c-name "GtkOldEditable") (gtype-id "GTK_TYPE_OLD_EDITABLE") ) (define-object Text (in-module "Gtk") (parent "GtkOldEditable") (c-name "GtkText") (gtype-id "GTK_TYPE_TEXT") ) (define-object Misc (in-module "Gtk") (parent "GtkWidget") (c-name "GtkMisc") (gtype-id "GTK_TYPE_MISC") ) (define-object Pixmap (in-module "Gtk") (parent "GtkMisc") (c-name "GtkPixmap") (gtype-id "GTK_TYPE_PIXMAP") ) (define-object Arrow (in-module "Gtk") (parent "GtkMisc") (c-name "GtkArrow") (gtype-id "GTK_TYPE_ARROW") ) (define-object Image (in-module "Gtk") (parent "GtkMisc") (c-name "GtkImage") (gtype-id "GTK_TYPE_IMAGE") ) (define-object Label (in-module "Gtk") (parent "GtkMisc") (c-name "GtkLabel") (gtype-id "GTK_TYPE_LABEL") ) (define-object AccelLabel (in-module "Gtk") (parent "GtkLabel") (c-name "GtkAccelLabel") (gtype-id "GTK_TYPE_ACCEL_LABEL") ) (define-object Invisible (in-module "Gtk") (parent "GtkWidget") (c-name "GtkInvisible") (gtype-id "GTK_TYPE_INVISIBLE") ) (define-object Entry (in-module "Gtk") (parent "GtkWidget") (c-name "GtkEntry") (gtype-id "GTK_TYPE_ENTRY") ) (define-object SpinButton (in-module "Gtk") (parent "GtkEntry") (c-name "GtkSpinButton") (gtype-id "GTK_TYPE_SPIN_BUTTON") ) (define-object DrawingArea (in-module "Gtk") (parent "GtkWidget") (c-name "GtkDrawingArea") (gtype-id "GTK_TYPE_DRAWING_AREA") ) (define-object Curve (in-module "Gtk") (parent "GtkDrawingArea") (c-name "GtkCurve") (gtype-id "GTK_TYPE_CURVE") ) (define-object Container (in-module "Gtk") (parent "GtkWidget") (c-name "GtkContainer") (gtype-id "GTK_TYPE_CONTAINER") ) (define-object TreeView (in-module "Gtk") (parent "GtkContainer") (c-name "GtkTreeView") (gtype-id "GTK_TYPE_TREE_VIEW") ) (define-object Tree (in-module "Gtk") (parent "GtkContainer") (c-name "GtkTree") (gtype-id "GTK_TYPE_TREE") ) (define-object Toolbar (in-module "Gtk") (parent "GtkContainer") (c-name "GtkToolbar") (gtype-id "GTK_TYPE_TOOLBAR") ) (define-object TextView (in-module "Gtk") (parent "GtkContainer") (c-name "GtkTextView") (gtype-id "GTK_TYPE_TEXT_VIEW") ) (define-object Table (in-module "Gtk") (parent "GtkContainer") (c-name "GtkTable") (gtype-id "GTK_TYPE_TABLE") ) (define-object Socket (in-module "Gtk") (parent "GtkContainer") (c-name "GtkSocket") (gtype-id "GTK_TYPE_SOCKET") ) (define-object Paned (in-module "Gtk") (parent "GtkContainer") (c-name "GtkPaned") (gtype-id "GTK_TYPE_PANED") ) (define-object VPaned (in-module "Gtk") (parent "GtkPaned") (c-name "GtkVPaned") (gtype-id "GTK_TYPE_VPANED") ) (define-object HPaned (in-module "Gtk") (parent "GtkPaned") (c-name "GtkHPaned") (gtype-id "GTK_TYPE_HPANED") ) (define-object Notebook (in-module "Gtk") (parent "GtkContainer") (c-name "GtkNotebook") (gtype-id "GTK_TYPE_NOTEBOOK") ) (define-object MenuShell (in-module "Gtk") (parent "GtkContainer") (c-name "GtkMenuShell") (gtype-id "GTK_TYPE_MENU_SHELL") ) (define-object Menu (in-module "Gtk") (parent "GtkMenuShell") (c-name "GtkMenu") (gtype-id "GTK_TYPE_MENU") ) (define-object RecentChooserMenu (in-module "Gtk") (parent "GtkMenu") (c-name "GtkRecentChooserMenu") (gtype-id "GTK_TYPE_RECENT_CHOOSER_MENU") ) (define-object MenuBar (in-module "Gtk") (parent "GtkMenuShell") (c-name "GtkMenuBar") (gtype-id "GTK_TYPE_MENU_BAR") ) (define-object List (in-module "Gtk") (parent "GtkContainer") (c-name "GtkList") (gtype-id "GTK_TYPE_LIST") ) (define-object Layout (in-module "Gtk") (parent "GtkContainer") (c-name "GtkLayout") (gtype-id "GTK_TYPE_LAYOUT") ) (define-object IconView (in-module "Gtk") (parent "GtkContainer") (c-name "GtkIconView") (gtype-id "GTK_TYPE_ICON_VIEW") ) (define-object Fixed (in-module "Gtk") (parent "GtkContainer") (c-name "GtkFixed") (gtype-id "GTK_TYPE_FIXED") ) (define-object Bin (in-module "Gtk") (parent "GtkContainer") (c-name "GtkBin") (gtype-id "GTK_TYPE_BIN") ) (define-object Viewport (in-module "Gtk") (parent "GtkBin") (c-name "GtkViewport") (gtype-id "GTK_TYPE_VIEWPORT") ) (define-object ToolItem (in-module "Gtk") (parent "GtkBin") (c-name "GtkToolItem") (gtype-id "GTK_TYPE_TOOL_ITEM") ) (define-object SeparatorToolItem (in-module "Gtk") (parent "GtkToolItem") (c-name "GtkSeparatorToolItem") (gtype-id "GTK_TYPE_SEPARATOR_TOOL_ITEM") ) (define-object ToolButton (in-module "Gtk") (parent "GtkToolItem") (c-name "GtkToolButton") (gtype-id "GTK_TYPE_TOOL_BUTTON") ) (define-object ToggleToolButton (in-module "Gtk") (parent "GtkToolButton") (c-name "GtkToggleToolButton") (gtype-id "GTK_TYPE_TOGGLE_TOOL_BUTTON") ) (define-object RadioToolButton (in-module "Gtk") (parent "GtkToggleToolButton") (c-name "GtkRadioToolButton") (gtype-id "GTK_TYPE_RADIO_TOOL_BUTTON") ) (define-object MenuToolButton (in-module "Gtk") (parent "GtkToolButton") (c-name "GtkMenuToolButton") (gtype-id "GTK_TYPE_MENU_TOOL_BUTTON") ) (define-object ScrolledWindow (in-module "Gtk") (parent "GtkBin") (c-name "GtkScrolledWindow") (gtype-id "GTK_TYPE_SCROLLED_WINDOW") ) (define-object Item (in-module "Gtk") (parent "GtkBin") (c-name "GtkItem") (gtype-id "GTK_TYPE_ITEM") ) (define-object TreeItem (in-module "Gtk") (parent "GtkItem") (c-name "GtkTreeItem") (gtype-id "GTK_TYPE_TREE_ITEM") ) (define-object MenuItem (in-module "Gtk") (parent "GtkItem") (c-name "GtkMenuItem") (gtype-id "GTK_TYPE_MENU_ITEM") ) (define-object TearoffMenuItem (in-module "Gtk") (parent "GtkMenuItem") (c-name "GtkTearoffMenuItem") (gtype-id "GTK_TYPE_TEAROFF_MENU_ITEM") ) (define-object SeparatorMenuItem (in-module "Gtk") (parent "GtkMenuItem") (c-name "GtkSeparatorMenuItem") (gtype-id "GTK_TYPE_SEPARATOR_MENU_ITEM") ) (define-object CheckMenuItem (in-module "Gtk") (parent "GtkMenuItem") (c-name "GtkCheckMenuItem") (gtype-id "GTK_TYPE_CHECK_MENU_ITEM") ) (define-object RadioMenuItem (in-module "Gtk") (parent "GtkCheckMenuItem") (c-name "GtkRadioMenuItem") (gtype-id "GTK_TYPE_RADIO_MENU_ITEM") ) (define-object ImageMenuItem (in-module "Gtk") (parent "GtkMenuItem") (c-name "GtkImageMenuItem") (gtype-id "GTK_TYPE_IMAGE_MENU_ITEM") ) (define-object ListItem (in-module "Gtk") (parent "GtkItem") (c-name "GtkListItem") (gtype-id "GTK_TYPE_LIST_ITEM") ) (define-object HandleBox (in-module "Gtk") (parent "GtkBin") (c-name "GtkHandleBox") (gtype-id "GTK_TYPE_HANDLE_BOX") ) (define-object Frame (in-module "Gtk") (parent "GtkBin") (c-name "GtkFrame") (gtype-id "GTK_TYPE_FRAME") ) (define-object AspectFrame (in-module "Gtk") (parent "GtkFrame") (c-name "GtkAspectFrame") (gtype-id "GTK_TYPE_ASPECT_FRAME") ) (define-object Expander (in-module "Gtk") (parent "GtkBin") (c-name "GtkExpander") (gtype-id "GTK_TYPE_EXPANDER") ) (define-object EventBox (in-module "Gtk") (parent "GtkBin") (c-name "GtkEventBox") (gtype-id "GTK_TYPE_EVENT_BOX") ) (define-object Alignment (in-module "Gtk") (parent "GtkBin") (c-name "GtkAlignment") (gtype-id "GTK_TYPE_ALIGNMENT") ) (define-object Button (in-module "Gtk") (parent "GtkBin") (c-name "GtkButton") (gtype-id "GTK_TYPE_BUTTON") ) (define-object ToggleButton (in-module "Gtk") (parent "GtkButton") (c-name "GtkToggleButton") (gtype-id "GTK_TYPE_TOGGLE_BUTTON") ) (define-object CheckButton (in-module "Gtk") (parent "GtkToggleButton") (c-name "GtkCheckButton") (gtype-id "GTK_TYPE_CHECK_BUTTON") ) (define-object RadioButton (in-module "Gtk") (parent "GtkCheckButton") (c-name "GtkRadioButton") (gtype-id "GTK_TYPE_RADIO_BUTTON") ) (define-object OptionMenu (in-module "Gtk") (parent "GtkButton") (c-name "GtkOptionMenu") (gtype-id "GTK_TYPE_OPTION_MENU") ) (define-object LinkButton (in-module "Gtk") (parent "GtkButton") (c-name "GtkLinkButton") (gtype-id "GTK_TYPE_LINK_BUTTON") ) (define-object FontButton (in-module "Gtk") (parent "GtkButton") (c-name "GtkFontButton") (gtype-id "GTK_TYPE_FONT_BUTTON") ) (define-object ColorButton (in-module "Gtk") (parent "GtkButton") (c-name "GtkColorButton") (gtype-id "GTK_TYPE_COLOR_BUTTON") ) (define-object ComboBox (in-module "Gtk") (parent "GtkBin") (c-name "GtkComboBox") (gtype-id "GTK_TYPE_COMBO_BOX") ) (define-object ComboBoxEntry (in-module "Gtk") (parent "GtkComboBox") (c-name "GtkComboBoxEntry") (gtype-id "GTK_TYPE_COMBO_BOX_ENTRY") ) (define-object Box (in-module "Gtk") (parent "GtkContainer") (c-name "GtkBox") (gtype-id "GTK_TYPE_BOX") ) (define-object VBox (in-module "Gtk") (parent "GtkBox") (c-name "GtkVBox") (gtype-id "GTK_TYPE_VBOX") ) (define-object ColorSelection (in-module "Gtk") (parent "GtkVBox") (c-name "GtkColorSelection") (gtype-id "GTK_TYPE_COLOR_SELECTION") ) (define-object FileChooserWidget (in-module "Gtk") (parent "GtkVBox") (c-name "GtkFileChooserWidget") (gtype-id "GTK_TYPE_FILE_CHOOSER_WIDGET") ) (define-object FontSelection (in-module "Gtk") (parent "GtkVBox") (c-name "GtkFontSelection") (gtype-id "GTK_TYPE_FONT_SELECTION") ) (define-object GammaCurve (in-module "Gtk") (parent "GtkVBox") (c-name "GtkGammaCurve") (gtype-id "GTK_TYPE_GAMMA_CURVE") ) (define-object RecentChooserWidget (in-module "Gtk") (parent "GtkVBox") (c-name "GtkRecentChooserWidget") (gtype-id "GTK_TYPE_RECENT_CHOOSER_WIDGET") ) (define-object HBox (in-module "Gtk") (parent "GtkBox") (c-name "GtkHBox") (gtype-id "GTK_TYPE_HBOX") ) (define-object Statusbar (in-module "Gtk") (parent "GtkHBox") (c-name "GtkStatusbar") (gtype-id "GTK_TYPE_STATUSBAR") ) (define-object Combo (in-module "Gtk") (parent "GtkHBox") (c-name "GtkCombo") (gtype-id "GTK_TYPE_COMBO") ) (define-object FileChooserButton (in-module "Gtk") (parent "GtkHBox") (c-name "GtkFileChooserButton") (gtype-id "GTK_TYPE_FILE_CHOOSER_BUTTON") ) (define-object ButtonBox (in-module "Gtk") (parent "GtkBox") (c-name "GtkButtonBox") (gtype-id "GTK_TYPE_BUTTON_BOX") ) (define-object VButtonBox (in-module "Gtk") (parent "GtkButtonBox") (c-name "GtkVButtonBox") (gtype-id "GTK_TYPE_VBUTTON_BOX") ) (define-object HButtonBox (in-module "Gtk") (parent "GtkButtonBox") (c-name "GtkHButtonBox") (gtype-id "GTK_TYPE_HBUTTON_BOX") ) (define-object CList (in-module "Gtk") (parent "GtkContainer") (c-name "GtkCList") (gtype-id "GTK_TYPE_CLIST") ) (define-object CTree (in-module "Gtk") (parent "GtkCList") (c-name "GtkCTree") (gtype-id "GTK_TYPE_CTREE") ) (define-object CellView (in-module "Gtk") (parent "GtkWidget") (c-name "GtkCellView") (gtype-id "GTK_TYPE_CELL_VIEW") ) (define-object Calendar (in-module "Gtk") (parent "GtkWidget") (c-name "GtkCalendar") (gtype-id "GTK_TYPE_CALENDAR") ) (define-object Window (in-module "Gtk") (parent "GtkBin") (c-name "GtkWindow") (gtype-id "GTK_TYPE_WINDOW") ) (define-object Plug (in-module "Gtk") (parent "GtkWindow") (c-name "GtkPlug") (gtype-id "GTK_TYPE_PLUG") ) (define-object Dialog (in-module "Gtk") (parent "GtkWindow") (c-name "GtkDialog") (gtype-id "GTK_TYPE_DIALOG") ) (define-object RecentChooserDialog (in-module "Gtk") (parent "GtkDialog") (c-name "GtkRecentChooserDialog") (gtype-id "GTK_TYPE_RECENT_CHOOSER_DIALOG") ) (define-object MessageDialog (in-module "Gtk") (parent "GtkDialog") (c-name "GtkMessageDialog") (gtype-id "GTK_TYPE_MESSAGE_DIALOG") ) (define-object InputDialog (in-module "Gtk") (parent "GtkDialog") (c-name "GtkInputDialog") (gtype-id "GTK_TYPE_INPUT_DIALOG") ) (define-object FontSelectionDialog (in-module "Gtk") (parent "GtkDialog") (c-name "GtkFontSelectionDialog") (gtype-id "GTK_TYPE_FONT_SELECTION_DIALOG") ) (define-object FileSelection (in-module "Gtk") (parent "GtkDialog") (c-name "GtkFileSelection") (gtype-id "GTK_TYPE_FILE_SELECTION") ) (define-object FileChooserDialog (in-module "Gtk") (parent "GtkDialog") (c-name "GtkFileChooserDialog") (gtype-id "GTK_TYPE_FILE_CHOOSER_DIALOG") ) (define-object AboutDialog (in-module "Gtk") (parent "GtkDialog") (c-name "GtkAboutDialog") (gtype-id "GTK_TYPE_ABOUT_DIALOG") ) (define-object ColorSelectionDialog (in-module "Gtk") (parent "GtkDialog") (c-name "GtkColorSelectionDialog") (gtype-id "GTK_TYPE_COLOR_SELECTION_DIALOG") ) (define-object Assistant (in-module "Gtk") (parent "GtkWindow") (c-name "GtkAssistant") (gtype-id "GTK_TYPE_ASSISTANT") ) (define-object WindowGroup (in-module "Gtk") (parent "GObject") (c-name "GtkWindowGroup") (gtype-id "GTK_TYPE_WINDOW_GROUP") ) guile-gnome-platform-2.16.2/defs/gnome/defs/vte-overrides.defs0000644000175000017500000000270411670374302024602 0ustar00wingowingo00000000000000;; -*- scheme -*- ;; guile-gnome ;; Copyright (C) 2003,2004 Andy Wingo ;; This program is free software; you can redistribute it and/or ;; modify it under the terms of the GNU General Public License as ;; published by the Free Software Foundation; either version 2 of ;; the License, or (at your option) any later version. ;; ;; This program is distributed in the hope that it will be useful, ;; but WITHOUT ANY WARRANTY; without even the implied warranty of ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the ;; GNU General Public License for more details. ;; ;; You should have received a copy of the GNU General Public License ;; along with this program; if not, contact: ;; ;; Free Software Foundation Voice: +1-617-542-5942 ;; 59 Temple Place - Suite 330 Fax: +1-617-542-2652 ;; Boston, MA 02111-1307, USA gnu@gnu.org ;;; Commentary: ;; ;;Custom wrapper definitions. ;; ;;; Code: (ignore-glob "*_get_type" "_*" "*_ref" "*_unref" "*_copy" "*_free" "*_newv" "*_valist" "*_setv" "*_foreach" "*_valist") (ignore "vte_terminal_get_text" "vte_terminal_get_text_range") guile-gnome-platform-2.16.2/defs/gnome/defs/applet.defs0000644000175000017500000001102711670374302023267 0ustar00wingowingo00000000000000;; -*- scheme -*- ; object definitions ... (define-object Applet (in-module "Panel") (parent "GtkEventBox") (c-name "PanelApplet") (gtype-id "PANEL_TYPE_APPLET") ) ;; Enumerations and flags ... ;(define-enum AppletBackgroundType ; (in-module "Panel") ; (c-name "PanelAppletBackgroundType") ; (gtype-id "PANEL_TYPE_APPLET_BACKGROUND_TYPE") ; (values ; '("no-background" "PANEL_NO_BACKGROUND") ; '("color-background" "PANEL_COLOR_BACKGROUND") ; '("pixmap-background" "PANEL_PIXMAP_BACKGROUND") ; ) ;) ;(define-flags AppletFlags ; (in-module "Panel") ; (c-name "PanelAppletFlags") ; (gtype-id "PANEL_TYPE_APPLET_FLAGS") ; (values ; '("flags-none" "PANEL_APPLET_FLAGS_NONE") ; '("expand-major" "PANEL_APPLET_EXPAND_MAJOR") ; '("expand-minor" "PANEL_APPLET_EXPAND_MINOR") ; ) ;) ;; From /home/jdahlin/cvs/gnome2/gnome-panel/libpanel-applet/panel-applet.h (define-function panel_applet_get_type (c-name "panel_applet_get_type") (return-type "GType") ) (define-function panel_applet_new (c-name "panel_applet_new") (is-constructor-of PanelApplet) (return-type "GtkWidget*") ) (define-method get_orient (of-object "PanelApplet") (c-name "panel_applet_get_orient") (return-type "PanelAppletOrient") ) (define-method get_size (of-object "PanelApplet") (c-name "panel_applet_get_size") (return-type "guint") ) (define-method get_background (of-object "PanelApplet") (c-name "panel_applet_get_background") (return-type "PanelAppletBackgroundType") (parameters '("GdkColor*" "color") '("GdkPixmap**" "pixmap") ) ) (define-method get_preferences_key (of-object "PanelApplet") (c-name "panel_applet_get_preferences_key") (return-type "gchar*") ) (define-method add_preferences (of-object "PanelApplet") (c-name "panel_applet_add_preferences") (return-type "none") (parameters '("const-gchar*" "schema_dir") '("GError**" "opt_error") ) ) (define-method get_flags (of-object "PanelApplet") (c-name "panel_applet_get_flags") (return-type "PanelAppletFlags") ) (define-method set_flags (of-object "PanelApplet") (c-name "panel_applet_set_flags") (return-type "none") (parameters '("PanelAppletFlags" "flags") ) ) (define-method get_control (of-object "PanelApplet") (c-name "panel_applet_get_control") (return-type "BonoboControl*") ) (define-method get_popup_component (of-object "PanelApplet") (c-name "panel_applet_get_popup_component") (return-type "BonoboUIComponent*") ) (define-method setup_menu (of-object "PanelApplet") (c-name "panel_applet_setup_menu") (return-type "none") (parameters '("const-gchar*" "xml") '("const-BonoboUIVerb*" "verb_list") '("gpointer" "user_data") ) ) (define-method setup_menu_from_file (of-object "PanelApplet") (c-name "panel_applet_setup_menu_from_file") (return-type "none") (parameters '("const-gchar*" "opt_datadir") '("const-gchar*" "file") '("const-gchar*" "opt_app_name") '("const-BonoboUIVerb*" "verb_list") '("gpointer" "user_data") ) ) (define-function factory_main (c-name "panel_applet_factory_main") (return-type "int") (parameters '("const-gchar*" "iid") '("GType" "applet_type") '("PanelAppletFactoryCallback" "callback") '("gpointer" "data") ) ) (define-function factory_main (c-name "panel_applet_factory_main_closure") (return-type "int") (parameters '("const-gchar*" "iid") '("GType" "applet_type") '("GClosure*" "closure") ) ) (define-function panel_applet_shlib_factory (c-name "panel_applet_shlib_factory") (return-type "Bonobo_Unknown") (parameters '("const-char*" "iid") '("GType" "applet_type") '("PortableServer_POA" "poa") '("gpointer" "impl_ptr") '("PanelAppletFactoryCallback" "callback") '("gpointer" "user_data") '("CORBA_Environment*" "ev") ) ) (define-function panel_applet_shlib_factory_closure (c-name "panel_applet_shlib_factory_closure") (return-type "Bonobo_Unknown") (parameters '("const-char*" "iid") '("GType" "applet_type") '("PortableServer_POA" "poa") '("gpointer" "impl_ptr") '("GClosure*" "closure") '("CORBA_Environment*" "ev") ) ) (define-function main (c-name "main") (return-type "int") (parameters '("int" "argc") '("char*-argv" "[]") ) ) (define-function bonobo_factory (c-name "panel__applet_bonobo_factory") (return-type "none") (parameters '("char*" "iid") '("GType" "type") '("char*" "name") '("char*" "version") '("PanelAppletFactoryCallback" "callback") '("gpointer" "data") ) ) guile-gnome-platform-2.16.2/defs/gnome/defs/gdk-pixbuf-types.defs0000644000175000017500000000371211670374302025206 0ustar00wingowingo00000000000000;; -*- scheme -*- ;; Enumerations and flags ... (define-enum PixbufAlphaMode (in-module "Gdk") (c-name "GdkPixbufAlphaMode") (gtype-id "GDK_TYPE_PIXBUF_ALPHA_MODE") (values '("bilevel" "GDK_PIXBUF_ALPHA_BILEVEL") '("full" "GDK_PIXBUF_ALPHA_FULL") ) ) (define-enum Colorspace (in-module "Gdk") (c-name "GdkColorspace") (gtype-id "GDK_TYPE_COLORSPACE") (values '("b" "GDK_COLORSPACE_RGB") ) ) (define-enum PixbufError (in-module "Gdk") (c-name "GdkPixbufError") (gtype-id "GDK_TYPE_PIXBUF_ERROR") (values '("corrupt-image" "GDK_PIXBUF_ERROR_CORRUPT_IMAGE") '("insufficient-memory" "GDK_PIXBUF_ERROR_INSUFFICIENT_MEMORY") '("bad-option" "GDK_PIXBUF_ERROR_BAD_OPTION") '("unknown-type" "GDK_PIXBUF_ERROR_UNKNOWN_TYPE") '("unsupported-operation" "GDK_PIXBUF_ERROR_UNSUPPORTED_OPERATION") '("failed" "GDK_PIXBUF_ERROR_FAILED") ) ) (define-enum InterpType (in-module "Gdk") (c-name "GdkInterpType") (gtype-id "GDK_TYPE_INTERP_TYPE") (values '("nearest" "GDK_INTERP_NEAREST") '("tiles" "GDK_INTERP_TILES") '("bilinear" "GDK_INTERP_BILINEAR") '("hyper" "GDK_INTERP_HYPER") ) ) (define-enum PixbufRotation (in-module "Gdk") (c-name "GdkPixbufRotation") (gtype-id "GDK_TYPE_PIXBUF_ROTATION") (values '("none" "GDK_PIXBUF_ROTATE_NONE") '("counterclockwise" "GDK_PIXBUF_ROTATE_COUNTERCLOCKWISE") '("upsidedown" "GDK_PIXBUF_ROTATE_UPSIDEDOWN") '("clockwise" "GDK_PIXBUF_ROTATE_CLOCKWISE") ) ) ;; -*- scheme -*- ; object definitions ... (define-object PixbufAnimation (in-module "Gdk") (parent "GObject") (c-name "GdkPixbufAnimation") (gtype-id "GDK_TYPE_PIXBUF_ANIMATION") ) (define-object PixbufAnimationIter (in-module "Gdk") (parent "GObject") (c-name "GdkPixbufAnimationIter") (gtype-id "GDK_TYPE_PIXBUF_ANIMATION_ITER") ) (define-object PixbufLoader (in-module "Gdk") (parent "GObject") (c-name "GdkPixbufLoader") (gtype-id "GDK_TYPE_PIXBUF_LOADER") ) guile-gnome-platform-2.16.2/defs/gnome/defs/gnome-vfs.defs0000644000175000017500000023743211670374302023715 0ustar00wingowingo00000000000000;; -*- scheme -*- (include type-ignores) (include "gnome-vfs-types.defs") (include overrides) ;; From /opt/gnome2/include/gnome-vfs-2.0/libgnomevfs/gnome-vfs-ace.h (define-function gnome_vfs_ace_get_type (c-name "gnome_vfs_ace_get_type") (return-type "GType") ) (define-function gnome_vfs_ace_new (c-name "gnome_vfs_ace_new") (is-constructor-of "GnomeVfsAce") (return-type "GnomeVFSACE*") (parameters '("GnomeVFSACLKind" "kind") '("const-char*" "id") '("GnomeVFSACLPerm*" "perms") ) ) (define-method get_kind (of-object "GnomeVFSACE") (c-name "gnome_vfs_ace_get_kind") (return-type "GnomeVFSACLKind") ) (define-method set_kind (of-object "GnomeVFSACE") (c-name "gnome_vfs_ace_set_kind") (return-type "none") (parameters '("GnomeVFSACLKind" "kind") ) ) (define-method get_id (of-object "GnomeVFSACE") (c-name "gnome_vfs_ace_get_id") (return-type "const-char*") ) (define-method set_id (of-object "GnomeVFSACE") (c-name "gnome_vfs_ace_set_id") (return-type "none") (parameters '("const-char*" "id") ) ) (define-method get_inherit (of-object "GnomeVFSACE") (c-name "gnome_vfs_ace_get_inherit") (return-type "gboolean") ) (define-method set_inherit (of-object "GnomeVFSACE") (c-name "gnome_vfs_ace_set_inherit") (return-type "none") (parameters '("gboolean" "inherit") ) ) (define-method get_negative (of-object "GnomeVFSACE") (c-name "gnome_vfs_ace_get_negative") (return-type "gboolean") ) (define-method set_negative (of-object "GnomeVFSACE") (c-name "gnome_vfs_ace_set_negative") (return-type "none") (parameters '("gboolean" "negative") ) ) (define-method get_perms (of-object "GnomeVFSACE") (c-name "gnome_vfs_ace_get_perms") (return-type "const-GnomeVFSACLPerm*") ) (define-method set_perms (of-object "GnomeVFSACE") (c-name "gnome_vfs_ace_set_perms") (return-type "none") (parameters '("GnomeVFSACLPerm*" "perms") ) ) (define-method add_perm (of-object "GnomeVFSACE") (c-name "gnome_vfs_ace_add_perm") (return-type "none") (parameters '("GnomeVFSACLPerm" "perm") ) ) (define-method del_perm (of-object "GnomeVFSACE") (c-name "gnome_vfs_ace_del_perm") (return-type "none") (parameters '("GnomeVFSACLPerm" "perm") ) ) (define-method check_perm (of-object "GnomeVFSACE") (c-name "gnome_vfs_ace_check_perm") (return-type "gboolean") (parameters '("GnomeVFSACLPerm" "perm") ) ) (define-method copy_perms (of-object "GnomeVFSACE") (c-name "gnome_vfs_ace_copy_perms") (return-type "none") (parameters '("GnomeVFSACE*" "dest") ) ) (define-method equal (of-object "GnomeVFSACE") (c-name "gnome_vfs_ace_equal") (return-type "gboolean") (parameters '("GnomeVFSACE*" "entry_b") ) ) ;; From /opt/gnome2/include/gnome-vfs-2.0/libgnomevfs/gnome-vfs-acl.h (define-function gnome_vfs_acl_kind_to_string (c-name "gnome_vfs_acl_kind_to_string") (return-type "const-char*") (parameters '("GnomeVFSACLKind" "kind") ) ) (define-function gnome_vfs_acl_perm_to_string (c-name "gnome_vfs_acl_perm_to_string") (return-type "const-char*") (parameters '("GnomeVFSACLPerm" "perm") ) ) (define-function gnome_vfs_acl_get_type (c-name "gnome_vfs_acl_get_type") (return-type "GType") ) (define-function gnome_vfs_acl_new (c-name "gnome_vfs_acl_new") (is-constructor-of "GnomeVfsAcl") (return-type "GnomeVFSACL*") ) (define-method clear (of-object "GnomeVFSACL") (c-name "gnome_vfs_acl_clear") (return-type "none") ) (define-method set (of-object "GnomeVFSACL") (c-name "gnome_vfs_acl_set") (return-type "none") (parameters '("GnomeVFSACE*" "ace") ) ) (define-method unset (of-object "GnomeVFSACL") (c-name "gnome_vfs_acl_unset") (return-type "none") (parameters '("GnomeVFSACE*" "ace") ) ) (define-method get_ace_list (of-object "GnomeVFSACL") (c-name "gnome_vfs_acl_get_ace_list") (return-type "GList*") ) (define-function gnome_vfs_acl_free_ace_list (c-name "gnome_vfs_acl_free_ace_list") (return-type "none") (parameters '("GList*" "ace_list") ) ) ;; From /opt/gnome2/include/gnome-vfs-2.0/libgnomevfs/gnome-vfs-address.h (define-function gnome_vfs_address_get_type (c-name "gnome_vfs_address_get_type") (return-type "GType") ) (define-function gnome_vfs_address_new_from_string (c-name "gnome_vfs_address_new_from_string") (return-type "GnomeVFSAddress*") (parameters '("const-char*" "address") ) ) (define-function gnome_vfs_address_new_from_ipv4 (c-name "gnome_vfs_address_new_from_ipv4") (return-type "GnomeVFSAddress*") (parameters '("guint32" "ipv4_address") ) ) (define-function gnome_vfs_address_new_from_sockaddr (c-name "gnome_vfs_address_new_from_sockaddr") (return-type "GnomeVFSAddress*") (parameters '("struct-sockaddr*" "sa") '("int" "len") ) ) (define-method get_family_type (of-object "GnomeVFSAddress") (c-name "gnome_vfs_address_get_family_type") (return-type "int") ) (define-method to_string (of-object "GnomeVFSAddress") (c-name "gnome_vfs_address_to_string") (return-type "char*") ) (define-method get_ipv4 (of-object "GnomeVFSAddress") (c-name "gnome_vfs_address_get_ipv4") (return-type "guint32") ) (define-method equal (of-object "GnomeVFSAddress") (c-name "gnome_vfs_address_equal") (return-type "gboolean") (parameters '("const-GnomeVFSAddress*" "b") ) ) (define-method match (of-object "GnomeVFSAddress") (c-name "gnome_vfs_address_match") (return-type "gboolean") (parameters '("const-GnomeVFSAddress*" "b") '("guint" "prefix") ) ) (define-method dup (of-object "GnomeVFSAddress") (c-name "gnome_vfs_address_dup") (return-type "GnomeVFSAddress*") ) (define-method free (of-object "GnomeVFSAddress") (c-name "gnome_vfs_address_free") (return-type "none") ) ;; From /opt/gnome2/include/gnome-vfs-2.0/libgnomevfs/gnome-vfs-application-registry.h (define-function gnome_vfs_application_registry_exists (c-name "gnome_vfs_application_registry_exists") (return-type "gboolean") (parameters '("const-char*" "app_id") ) ) (define-function gnome_vfs_application_registry_get_keys (c-name "gnome_vfs_application_registry_get_keys") (return-type "GList*") (parameters '("const-char*" "app_id") ) ) (define-function gnome_vfs_application_registry_peek_value (c-name "gnome_vfs_application_registry_peek_value") (return-type "const-char*") (parameters '("const-char*" "app_id") '("const-char*" "key") ) ) (define-function gnome_vfs_application_registry_get_bool_value (c-name "gnome_vfs_application_registry_get_bool_value") (return-type "gboolean") (parameters '("const-char*" "app_id") '("const-char*" "key") '("gboolean*" "got_key") ) ) (define-function gnome_vfs_application_registry_remove_application (c-name "gnome_vfs_application_registry_remove_application") (return-type "none") (parameters '("const-char*" "app_id") ) ) (define-function gnome_vfs_application_registry_set_value (c-name "gnome_vfs_application_registry_set_value") (return-type "none") (parameters '("const-char*" "app_id") '("const-char*" "key") '("const-char*" "value") ) ) (define-function gnome_vfs_application_registry_set_bool_value (c-name "gnome_vfs_application_registry_set_bool_value") (return-type "none") (parameters '("const-char*" "app_id") '("const-char*" "key") '("gboolean" "value") ) ) (define-function gnome_vfs_application_registry_unset_key (c-name "gnome_vfs_application_registry_unset_key") (return-type "none") (parameters '("const-char*" "app_id") '("const-char*" "key") ) ) (define-function gnome_vfs_application_registry_get_applications (c-name "gnome_vfs_application_registry_get_applications") (return-type "GList*") (parameters '("const-char*" "mime_type") ) ) (define-function gnome_vfs_application_registry_get_mime_types (c-name "gnome_vfs_application_registry_get_mime_types") (return-type "GList*") (parameters '("const-char*" "app_id") ) ) (define-function gnome_vfs_application_registry_supports_mime_type (c-name "gnome_vfs_application_registry_supports_mime_type") (return-type "gboolean") (parameters '("const-char*" "app_id") '("const-char*" "mime_type") ) ) (define-function gnome_vfs_application_registry_supports_uri_scheme (c-name "gnome_vfs_application_registry_supports_uri_scheme") (return-type "gboolean") (parameters '("const-char*" "app_id") '("const-char*" "uri_scheme") ) ) (define-function gnome_vfs_application_is_user_owned_application (c-name "gnome_vfs_application_is_user_owned_application") (return-type "gboolean") (parameters '("const-GnomeVFSMimeApplication*" "application") ) ) (define-function gnome_vfs_application_registry_clear_mime_types (c-name "gnome_vfs_application_registry_clear_mime_types") (return-type "none") (parameters '("const-char*" "app_id") ) ) (define-function gnome_vfs_application_registry_add_mime_type (c-name "gnome_vfs_application_registry_add_mime_type") (return-type "none") (parameters '("const-char*" "app_id") '("const-char*" "mime_type") ) ) (define-function gnome_vfs_application_registry_remove_mime_type (c-name "gnome_vfs_application_registry_remove_mime_type") (return-type "none") (parameters '("const-char*" "app_id") '("const-char*" "mime_type") ) ) (define-function gnome_vfs_application_registry_sync (c-name "gnome_vfs_application_registry_sync") (return-type "GnomeVFSResult") ) (define-function gnome_vfs_application_registry_shutdown (c-name "gnome_vfs_application_registry_shutdown") (return-type "none") ) (define-function gnome_vfs_application_registry_reload (c-name "gnome_vfs_application_registry_reload") (return-type "none") ) (define-function gnome_vfs_application_registry_get_mime_application (c-name "gnome_vfs_application_registry_get_mime_application") (return-type "GnomeVFSMimeApplication*") (parameters '("const-char*" "app_id") ) ) (define-function gnome_vfs_application_registry_save_mime_application (c-name "gnome_vfs_application_registry_save_mime_application") (return-type "none") (parameters '("const-GnomeVFSMimeApplication*" "application") ) ) ;; From /opt/gnome2/include/gnome-vfs-2.0/libgnomevfs/gnome-vfs-async-ops.h (define-function gnome_vfs_find_directory_result_get_type (c-name "gnome_vfs_find_directory_result_get_type") (return-type "GType") ) (define-method dup (of-object "GnomeVFSFindDirectoryResult") (c-name "gnome_vfs_find_directory_result_dup") (return-type "GnomeVFSFindDirectoryResult*") ) (define-method free (of-object "GnomeVFSFindDirectoryResult") (c-name "gnome_vfs_find_directory_result_free") (return-type "none") ) (define-function gnome_vfs_async_cancel (c-name "gnome_vfs_async_cancel") (return-type "none") (parameters '("GnomeVFSAsyncHandle*" "handle") ) ) (define-function gnome_vfs_async_open (c-name "gnome_vfs_async_open") (return-type "none") (parameters '("GnomeVFSAsyncHandle**" "handle_return") '("const-gchar*" "text_uri") '("GnomeVFSOpenMode" "open_mode") '("int" "priority") '("GnomeVFSAsyncOpenCallback" "callback") '("gpointer" "callback_data") ) ) (define-function gnome_vfs_async_open_uri (c-name "gnome_vfs_async_open_uri") (return-type "none") (parameters '("GnomeVFSAsyncHandle**" "handle_return") '("GnomeVFSURI*" "uri") '("GnomeVFSOpenMode" "open_mode") '("int" "priority") '("GnomeVFSAsyncOpenCallback" "callback") '("gpointer" "callback_data") ) ) (define-function gnome_vfs_async_open_as_channel (c-name "gnome_vfs_async_open_as_channel") (return-type "none") (parameters '("GnomeVFSAsyncHandle**" "handle_return") '("const-gchar*" "text_uri") '("GnomeVFSOpenMode" "open_mode") '("guint" "advised_block_size") '("int" "priority") '("GnomeVFSAsyncOpenAsChannelCallback" "callback") '("gpointer" "callback_data") ) ) (define-function gnome_vfs_async_open_uri_as_channel (c-name "gnome_vfs_async_open_uri_as_channel") (return-type "none") (parameters '("GnomeVFSAsyncHandle**" "handle_return") '("GnomeVFSURI*" "uri") '("GnomeVFSOpenMode" "open_mode") '("guint" "advised_block_size") '("int" "priority") '("GnomeVFSAsyncOpenAsChannelCallback" "callback") '("gpointer" "callback_data") ) ) (define-function gnome_vfs_async_create (c-name "gnome_vfs_async_create") (return-type "none") (parameters '("GnomeVFSAsyncHandle**" "handle_return") '("const-gchar*" "text_uri") '("GnomeVFSOpenMode" "open_mode") '("gboolean" "exclusive") '("guint" "perm") '("int" "priority") '("GnomeVFSAsyncOpenCallback" "callback") '("gpointer" "callback_data") ) ) (define-function gnome_vfs_async_create_uri (c-name "gnome_vfs_async_create_uri") (return-type "none") (parameters '("GnomeVFSAsyncHandle**" "handle_return") '("GnomeVFSURI*" "uri") '("GnomeVFSOpenMode" "open_mode") '("gboolean" "exclusive") '("guint" "perm") '("int" "priority") '("GnomeVFSAsyncOpenCallback" "callback") '("gpointer" "callback_data") ) ) (define-function gnome_vfs_async_create_symbolic_link (c-name "gnome_vfs_async_create_symbolic_link") (return-type "none") (parameters '("GnomeVFSAsyncHandle**" "handle_return") '("GnomeVFSURI*" "uri") '("const-gchar*" "uri_reference") '("int" "priority") '("GnomeVFSAsyncOpenCallback" "callback") '("gpointer" "callback_data") ) ) (define-function gnome_vfs_async_create_as_channel (c-name "gnome_vfs_async_create_as_channel") (return-type "none") (parameters '("GnomeVFSAsyncHandle**" "handle_return") '("const-gchar*" "text_uri") '("GnomeVFSOpenMode" "open_mode") '("gboolean" "exclusive") '("guint" "perm") '("int" "priority") '("GnomeVFSAsyncCreateAsChannelCallback" "callback") '("gpointer" "callback_data") ) ) (define-function gnome_vfs_async_create_uri_as_channel (c-name "gnome_vfs_async_create_uri_as_channel") (return-type "none") (parameters '("GnomeVFSAsyncHandle**" "handle_return") '("GnomeVFSURI*" "uri") '("GnomeVFSOpenMode" "open_mode") '("gboolean" "exclusive") '("guint" "perm") '("int" "priority") '("GnomeVFSAsyncCreateAsChannelCallback" "callback") '("gpointer" "callback_data") ) ) (define-function gnome_vfs_async_close (c-name "gnome_vfs_async_close") (return-type "none") (parameters '("GnomeVFSAsyncHandle*" "handle") '("GnomeVFSAsyncCloseCallback" "callback") '("gpointer" "callback_data") ) ) (define-function gnome_vfs_async_read (c-name "gnome_vfs_async_read") (return-type "none") (parameters '("GnomeVFSAsyncHandle*" "handle") '("gpointer" "buffer") '("guint" "bytes") '("GnomeVFSAsyncReadCallback" "callback") '("gpointer" "callback_data") ) ) (define-function gnome_vfs_async_write (c-name "gnome_vfs_async_write") (return-type "none") (parameters '("GnomeVFSAsyncHandle*" "handle") '("gconstpointer" "buffer") '("guint" "bytes") '("GnomeVFSAsyncWriteCallback" "callback") '("gpointer" "callback_data") ) ) (define-function gnome_vfs_async_seek (c-name "gnome_vfs_async_seek") (return-type "none") (parameters '("GnomeVFSAsyncHandle*" "handle") '("GnomeVFSSeekPosition" "whence") '("GnomeVFSFileOffset" "offset") '("GnomeVFSAsyncSeekCallback" "callback") '("gpointer" "callback_data") ) ) (define-function gnome_vfs_async_get_file_info (c-name "gnome_vfs_async_get_file_info") (return-type "none") (parameters '("GnomeVFSAsyncHandle**" "handle_return") '("GList*" "uri_list") '("GnomeVFSFileInfoOptions" "options") '("int" "priority") '("GnomeVFSAsyncGetFileInfoCallback" "callback") '("gpointer" "callback_data") ) ) (define-function gnome_vfs_async_set_file_info (c-name "gnome_vfs_async_set_file_info") (return-type "none") (parameters '("GnomeVFSAsyncHandle**" "handle_return") '("GnomeVFSURI*" "uri") '("GnomeVFSFileInfo*" "info") '("GnomeVFSSetFileInfoMask" "mask") '("GnomeVFSFileInfoOptions" "options") '("int" "priority") '("GnomeVFSAsyncSetFileInfoCallback" "callback") '("gpointer" "callback_data") ) ) (define-function gnome_vfs_async_load_directory (c-name "gnome_vfs_async_load_directory") (return-type "none") (parameters '("GnomeVFSAsyncHandle**" "handle_return") '("const-gchar*" "text_uri") '("GnomeVFSFileInfoOptions" "options") '("guint" "items_per_notification") '("int" "priority") '("GnomeVFSAsyncDirectoryLoadCallback" "callback") '("gpointer" "callback_data") ) ) (define-function gnome_vfs_async_load_directory_uri (c-name "gnome_vfs_async_load_directory_uri") (return-type "none") (parameters '("GnomeVFSAsyncHandle**" "handle_return") '("GnomeVFSURI*" "uri") '("GnomeVFSFileInfoOptions" "options") '("guint" "items_per_notification") '("int" "priority") '("GnomeVFSAsyncDirectoryLoadCallback" "callback") '("gpointer" "callback_data") ) ) (define-function gnome_vfs_async_xfer (c-name "gnome_vfs_async_xfer") (return-type "GnomeVFSResult") (parameters '("GnomeVFSAsyncHandle**" "handle_return") '("GList*" "source_uri_list") '("GList*" "target_uri_list") '("GnomeVFSXferOptions" "xfer_options") '("GnomeVFSXferErrorMode" "error_mode") '("GnomeVFSXferOverwriteMode" "overwrite_mode") '("int" "priority") '("GnomeVFSAsyncXferProgressCallback" "progress_update_callback") '("gpointer" "update_callback_data") '("GnomeVFSXferProgressCallback" "progress_sync_callback") '("gpointer" "sync_callback_data") ) ) (define-function gnome_vfs_async_find_directory (c-name "gnome_vfs_async_find_directory") (return-type "none") (parameters '("GnomeVFSAsyncHandle**" "handle_return") '("GList*" "near_uri_list") '("GnomeVFSFindDirectoryKind" "kind") '("gboolean" "create_if_needed") '("gboolean" "find_if_needed") '("guint" "permissions") '("int" "priority") '("GnomeVFSAsyncFindDirectoryCallback" "callback") '("gpointer" "user_data") ) ) (define-function gnome_vfs_async_file_control (c-name "gnome_vfs_async_file_control") (return-type "none") (parameters '("GnomeVFSAsyncHandle*" "handle") '("const-char*" "operation") '("gpointer" "operation_data") '("GDestroyNotify" "operation_data_destroy_func") '("GnomeVFSAsyncFileControlCallback" "callback") '("gpointer" "callback_data") ) ) ;; From /opt/gnome2/include/gnome-vfs-2.0/libgnomevfs/gnome-vfs-cancellation.h (define-function gnome_vfs_cancellation_new (c-name "gnome_vfs_cancellation_new") (is-constructor-of "GnomeVfsCancellation") (return-type "GnomeVFSCancellation*") ) (define-method destroy (of-object "GnomeVFSCancellation") (c-name "gnome_vfs_cancellation_destroy") (return-type "none") ) (define-method cancel (of-object "GnomeVFSCancellation") (c-name "gnome_vfs_cancellation_cancel") (return-type "none") ) (define-method check (of-object "GnomeVFSCancellation") (c-name "gnome_vfs_cancellation_check") (return-type "gboolean") ) (define-method ack (of-object "GnomeVFSCancellation") (c-name "gnome_vfs_cancellation_ack") (return-type "none") ) (define-method get_fd (of-object "GnomeVFSCancellation") (c-name "gnome_vfs_cancellation_get_fd") (return-type "gint") ) ;; From /opt/gnome2/include/gnome-vfs-2.0/libgnomevfs/gnome-vfs-context.h (define-function gnome_vfs_context_new (c-name "gnome_vfs_context_new") (is-constructor-of "GnomeVfsContext") (return-type "GnomeVFSContext*") ) (define-method free (of-object "GnomeVFSContext") (c-name "gnome_vfs_context_free") (return-type "none") ) (define-method get_cancellation (of-object "GnomeVFSContext") (c-name "gnome_vfs_context_get_cancellation") (return-type "GnomeVFSCancellation*") ) (define-function gnome_vfs_context_peek_current (c-name "gnome_vfs_context_peek_current") (return-type "const-GnomeVFSContext*") ) (define-function gnome_vfs_context_check_cancellation_current (c-name "gnome_vfs_context_check_cancellation_current") (return-type "gboolean") ) ;; From /opt/gnome2/include/gnome-vfs-2.0/libgnomevfs/gnome-vfs-directory.h (define-function gnome_vfs_directory_open (c-name "gnome_vfs_directory_open") (return-type "GnomeVFSResult") (parameters '("GnomeVFSDirectoryHandle**" "handle") '("const-gchar*" "text_uri") '("GnomeVFSFileInfoOptions" "options") ) ) (define-function gnome_vfs_directory_open_from_uri (c-name "gnome_vfs_directory_open_from_uri") (return-type "GnomeVFSResult") (parameters '("GnomeVFSDirectoryHandle**" "handle") '("GnomeVFSURI*" "uri") '("GnomeVFSFileInfoOptions" "options") ) ) (define-function gnome_vfs_directory_read_next (c-name "gnome_vfs_directory_read_next") (return-type "GnomeVFSResult") (parameters '("GnomeVFSDirectoryHandle*" "handle") '("GnomeVFSFileInfo*" "file_info") ) ) (define-function gnome_vfs_directory_close (c-name "gnome_vfs_directory_close") (return-type "GnomeVFSResult") (parameters '("GnomeVFSDirectoryHandle*" "handle") ) ) (define-function gnome_vfs_directory_visit (c-name "gnome_vfs_directory_visit") (return-type "GnomeVFSResult") (parameters '("const-gchar*" "text_uri") '("GnomeVFSFileInfoOptions" "info_options") '("GnomeVFSDirectoryVisitOptions" "visit_options") '("GnomeVFSDirectoryVisitFunc" "callback") '("gpointer" "data") ) ) (define-function gnome_vfs_directory_visit_uri (c-name "gnome_vfs_directory_visit_uri") (return-type "GnomeVFSResult") (parameters '("GnomeVFSURI*" "uri") '("GnomeVFSFileInfoOptions" "info_options") '("GnomeVFSDirectoryVisitOptions" "visit_options") '("GnomeVFSDirectoryVisitFunc" "callback") '("gpointer" "data") ) ) (define-function gnome_vfs_directory_visit_files (c-name "gnome_vfs_directory_visit_files") (return-type "GnomeVFSResult") (parameters '("const-gchar*" "text_uri") '("GList*" "file_list") '("GnomeVFSFileInfoOptions" "info_options") '("GnomeVFSDirectoryVisitOptions" "visit_options") '("GnomeVFSDirectoryVisitFunc" "callback") '("gpointer" "data") ) ) (define-function gnome_vfs_directory_visit_files_at_uri (c-name "gnome_vfs_directory_visit_files_at_uri") (return-type "GnomeVFSResult") (parameters '("GnomeVFSURI*" "uri") '("GList*" "file_list") '("GnomeVFSFileInfoOptions" "info_options") '("GnomeVFSDirectoryVisitOptions" "visit_options") '("GnomeVFSDirectoryVisitFunc" "callback") '("gpointer" "data") ) ) (define-function gnome_vfs_directory_list_load (c-name "gnome_vfs_directory_list_load") (return-type "GnomeVFSResult") (parameters '("GList**" "list") '("const-gchar*" "text_uri") '("GnomeVFSFileInfoOptions" "options") ) ) ;; From /opt/gnome2/include/gnome-vfs-2.0/libgnomevfs/gnome-vfs-dns-sd.h (define-function gnome_vfs_dns_sd_service_status_get_type (c-name "gnome_vfs_dns_sd_service_status_get_type") (return-type "GType") ) (define-function gnome_vfs_dns_sd_browse (c-name "gnome_vfs_dns_sd_browse") (return-type "GnomeVFSResult") (parameters '("GnomeVFSDNSSDBrowseHandle**" "handle") '("const-char*" "domain") '("const-char*" "type") '("GnomeVFSDNSSDBrowseCallback" "callback") '("gpointer" "callback_data") '("GDestroyNotify" "callback_data_destroy_func") ) ) (define-function gnome_vfs_dns_sd_stop_browse (c-name "gnome_vfs_dns_sd_stop_browse") (return-type "GnomeVFSResult") (parameters '("GnomeVFSDNSSDBrowseHandle*" "handle") ) ) (define-function gnome_vfs_dns_sd_resolve (c-name "gnome_vfs_dns_sd_resolve") (return-type "GnomeVFSResult") (parameters '("GnomeVFSDNSSDResolveHandle**" "handle") '("const-char*" "name") '("const-char*" "type") '("const-char*" "domain") '("int" "timeout") '("GnomeVFSDNSSDResolveCallback" "callback") '("gpointer" "callback_data") '("GDestroyNotify" "callback_data_destroy_func") ) ) (define-function gnome_vfs_dns_sd_cancel_resolve (c-name "gnome_vfs_dns_sd_cancel_resolve") (return-type "GnomeVFSResult") (parameters '("GnomeVFSDNSSDResolveHandle*" "handle") ) ) (define-function gnome_vfs_dns_sd_browse_sync (c-name "gnome_vfs_dns_sd_browse_sync") (return-type "GnomeVFSResult") (parameters '("const-char*" "domain") '("const-char*" "type") '("int" "timeout_msec") '("int*" "n_services") '("GnomeVFSDNSSDService**" "services") ) ) (define-function gnome_vfs_dns_sd_resolve_sync (c-name "gnome_vfs_dns_sd_resolve_sync") (return-type "GnomeVFSResult") (parameters '("const-char*" "name") '("const-char*" "type") '("const-char*" "domain") '("int" "timeout_msec") '("char**" "host") '("int*" "port") '("GHashTable**" "text") '("int*" "text_raw_len_out") '("char**" "text_raw_out") ) ) (define-method list_free (of-object "GnomeVFSDNSSDService") (c-name "gnome_vfs_dns_sd_service_list_free") (return-type "none") (parameters '("int" "n_services") ) ) (define-function gnome_vfs_dns_sd_list_browse_domains_sync (c-name "gnome_vfs_dns_sd_list_browse_domains_sync") (return-type "GnomeVFSResult") (parameters '("const-char*" "domain") '("int" "timeout_msec") '("GList**" "domains") ) ) (define-function gnome_vfs_get_default_browse_domains (c-name "gnome_vfs_get_default_browse_domains") (return-type "GList*") ) ;; From /opt/gnome2/include/gnome-vfs-2.0/libgnomevfs/gnome-vfs-drive.h (define-function gnome_vfs_drive_get_type (c-name "gnome_vfs_drive_get_type") (return-type "GType") ) (define-method ref (of-object "GnomeVFSDrive") (c-name "gnome_vfs_drive_ref") (return-type "GnomeVFSDrive*") ) (define-method unref (of-object "GnomeVFSDrive") (c-name "gnome_vfs_drive_unref") (return-type "none") ) (define-function gnome_vfs_drive_volume_list_free (c-name "gnome_vfs_drive_volume_list_free") (return-type "none") (parameters '("GList*" "volumes") ) ) (define-method get_id (of-object "GnomeVFSDrive") (c-name "gnome_vfs_drive_get_id") (return-type "gulong") ) (define-method get_device_type (of-object "GnomeVFSDrive") (c-name "gnome_vfs_drive_get_device_type") (return-type "GnomeVFSDeviceType") ) (define-method get_mounted_volume (of-object "GnomeVFSDrive") (c-name "gnome_vfs_drive_get_mounted_volume") (return-type "GnomeVFSVolume*") ) (define-method get_mounted_volumes (of-object "GnomeVFSDrive") (c-name "gnome_vfs_drive_get_mounted_volumes") (return-type "GList*") ) (define-method get_device_path (of-object "GnomeVFSDrive") (c-name "gnome_vfs_drive_get_device_path") (return-type "char*") ) (define-method get_activation_uri (of-object "GnomeVFSDrive") (c-name "gnome_vfs_drive_get_activation_uri") (return-type "char*") ) (define-method get_display_name (of-object "GnomeVFSDrive") (c-name "gnome_vfs_drive_get_display_name") (return-type "char*") ) (define-method get_icon (of-object "GnomeVFSDrive") (c-name "gnome_vfs_drive_get_icon") (return-type "char*") ) (define-method get_hal_udi (of-object "GnomeVFSDrive") (c-name "gnome_vfs_drive_get_hal_udi") (return-type "char*") ) (define-method is_user_visible (of-object "GnomeVFSDrive") (c-name "gnome_vfs_drive_is_user_visible") (return-type "gboolean") ) (define-method is_connected (of-object "GnomeVFSDrive") (c-name "gnome_vfs_drive_is_connected") (return-type "gboolean") ) (define-method is_mounted (of-object "GnomeVFSDrive") (c-name "gnome_vfs_drive_is_mounted") (return-type "gboolean") ) (define-method needs_eject (of-object "GnomeVFSDrive") (c-name "gnome_vfs_drive_needs_eject") (return-type "gboolean") ) (define-method compare (of-object "GnomeVFSDrive") (c-name "gnome_vfs_drive_compare") (return-type "gint") (parameters '("GnomeVFSDrive*" "b") ) ) (define-method mount (of-object "GnomeVFSDrive") (c-name "gnome_vfs_drive_mount") (return-type "none") (parameters '("GnomeVFSVolumeOpCallback" "callback") '("gpointer" "user_data") ) ) (define-method unmount (of-object "GnomeVFSDrive") (c-name "gnome_vfs_drive_unmount") (return-type "none") (parameters '("GnomeVFSVolumeOpCallback" "callback") '("gpointer" "user_data") ) ) (define-method eject (of-object "GnomeVFSDrive") (c-name "gnome_vfs_drive_eject") (return-type "none") (parameters '("GnomeVFSVolumeOpCallback" "callback") '("gpointer" "user_data") ) ) ;; From /opt/gnome2/include/gnome-vfs-2.0/libgnomevfs/gnome-vfs-enum-types.h (define-function gnome_vfs_directory_visit_options_get_type (c-name "gnome_vfs_directory_visit_options_get_type") (return-type "GType") ) (define-function gnome_vfs_file_flags_get_type (c-name "gnome_vfs_file_flags_get_type") (return-type "GType") ) (define-function gnome_vfs_file_type_get_type (c-name "gnome_vfs_file_type_get_type") (return-type "GType") ) (define-function gnome_vfs_file_info_fields_get_type (c-name "gnome_vfs_file_info_fields_get_type") (return-type "GType") ) (define-function gnome_vfs_file_permissions_get_type (c-name "gnome_vfs_file_permissions_get_type") (return-type "GType") ) (define-function gnome_vfs_file_info_options_get_type (c-name "gnome_vfs_file_info_options_get_type") (return-type "GType") ) (define-function gnome_vfs_set_file_info_mask_get_type (c-name "gnome_vfs_set_file_info_mask_get_type") (return-type "GType") ) (define-function gnome_vfs_find_directory_kind_get_type (c-name "gnome_vfs_find_directory_kind_get_type") (return-type "GType") ) (define-function gnome_vfs_open_mode_get_type (c-name "gnome_vfs_open_mode_get_type") (return-type "GType") ) (define-function gnome_vfs_seek_position_get_type (c-name "gnome_vfs_seek_position_get_type") (return-type "GType") ) (define-function gnome_vfs_mime_action_type_get_type (c-name "gnome_vfs_mime_action_type_get_type") (return-type "GType") ) (define-function gnome_vfs_mime_application_argument_type_get_type (c-name "gnome_vfs_mime_application_argument_type_get_type") (return-type "GType") ) (define-function gnome_vfs_mime_equivalence_get_type (c-name "gnome_vfs_mime_equivalence_get_type") (return-type "GType") ) (define-function gnome_vfs_monitor_type_get_type (c-name "gnome_vfs_monitor_type_get_type") (return-type "GType") ) (define-function gnome_vfs_monitor_event_type_get_type (c-name "gnome_vfs_monitor_event_type_get_type") (return-type "GType") ) (define-function gnome_vfs_result_get_type (c-name "gnome_vfs_result_get_type") (return-type "GType") ) (define-function gnome_vfs_module_callback_full_authentication_flags_get_type (c-name "gnome_vfs_module_callback_full_authentication_flags_get_type") (return-type "GType") ) (define-function gnome_vfs_module_callback_full_authentication_out_flags_get_type (c-name "gnome_vfs_module_callback_full_authentication_out_flags_get_type") (return-type "GType") ) (define-function gnome_vfs_module_callback_authentication_auth_type_get_type (c-name "gnome_vfs_module_callback_authentication_auth_type_get_type") (return-type "GType") ) (define-function gnome_vfs_make_uri_dirs_get_type (c-name "gnome_vfs_make_uri_dirs_get_type") (return-type "GType") ) (define-function gnome_vfs_device_type_get_type (c-name "gnome_vfs_device_type_get_type") (return-type "GType") ) (define-function gnome_vfs_volume_type_get_type (c-name "gnome_vfs_volume_type_get_type") (return-type "GType") ) (define-function gnome_vfs_xfer_options_get_type (c-name "gnome_vfs_xfer_options_get_type") (return-type "GType") ) (define-function gnome_vfs_xfer_progress_status_get_type (c-name "gnome_vfs_xfer_progress_status_get_type") (return-type "GType") ) (define-function gnome_vfs_xfer_overwrite_mode_get_type (c-name "gnome_vfs_xfer_overwrite_mode_get_type") (return-type "GType") ) (define-function gnome_vfs_xfer_overwrite_action_get_type (c-name "gnome_vfs_xfer_overwrite_action_get_type") (return-type "GType") ) (define-function gnome_vfs_xfer_error_mode_get_type (c-name "gnome_vfs_xfer_error_mode_get_type") (return-type "GType") ) (define-function gnome_vfs_xfer_error_action_get_type (c-name "gnome_vfs_xfer_error_action_get_type") (return-type "GType") ) (define-function gnome_vfs_xfer_phase_get_type (c-name "gnome_vfs_xfer_phase_get_type") (return-type "GType") ) ;; From /opt/gnome2/include/gnome-vfs-2.0/libgnomevfs/gnome-vfs-file-info.h (define-function gnome_vfs_get_file_info_result_get_type (c-name "gnome_vfs_get_file_info_result_get_type") (return-type "GType") ) (define-method dup (of-object "GnomeVFSGetFileInfoResult") (c-name "gnome_vfs_get_file_info_result_dup") (return-type "GnomeVFSGetFileInfoResult*") ) (define-method free (of-object "GnomeVFSGetFileInfoResult") (c-name "gnome_vfs_get_file_info_result_free") (return-type "none") ) (define-function gnome_vfs_file_info_new (c-name "gnome_vfs_file_info_new") (is-constructor-of "GnomeVfsFileInfo") (return-type "GnomeVFSFileInfo*") ) (define-method unref (of-object "GnomeVFSFileInfo") (c-name "gnome_vfs_file_info_unref") (return-type "none") ) (define-method ref (of-object "GnomeVFSFileInfo") (c-name "gnome_vfs_file_info_ref") (return-type "none") ) (define-method clear (of-object "GnomeVFSFileInfo") (c-name "gnome_vfs_file_info_clear") (return-type "none") ) (define-method get_mime_type (of-object "GnomeVFSFileInfo") (c-name "gnome_vfs_file_info_get_mime_type") (return-type "const-char*") ) (define-method copy (of-object "GnomeVFSFileInfo") (c-name "gnome_vfs_file_info_copy") (return-type "none") (parameters '("const-GnomeVFSFileInfo*" "src") ) ) (define-method dup (of-object "GnomeVFSFileInfo") (c-name "gnome_vfs_file_info_dup") (return-type "GnomeVFSFileInfo*") ) (define-method matches (of-object "GnomeVFSFileInfo") (c-name "gnome_vfs_file_info_matches") (return-type "gboolean") (parameters '("const-GnomeVFSFileInfo*" "b") ) ) (define-function gnome_vfs_file_info_list_ref (c-name "gnome_vfs_file_info_list_ref") (return-type "GList*") (parameters '("GList*" "list") ) ) (define-function gnome_vfs_file_info_list_unref (c-name "gnome_vfs_file_info_list_unref") (return-type "GList*") (parameters '("GList*" "list") ) ) (define-function gnome_vfs_file_info_list_copy (c-name "gnome_vfs_file_info_list_copy") (return-type "GList*") (parameters '("GList*" "list") ) ) (define-function gnome_vfs_file_info_list_free (c-name "gnome_vfs_file_info_list_free") (return-type "none") (parameters '("GList*" "list") ) ) ;; From /opt/gnome2/include/gnome-vfs-2.0/libgnomevfs/gnome-vfs-file-size.h ;; From /opt/gnome2/include/gnome-vfs-2.0/libgnomevfs/gnome-vfs-find-directory.h (define-function gnome_vfs_find_directory (c-name "gnome_vfs_find_directory") (return-type "GnomeVFSResult") (parameters '("GnomeVFSURI*" "near_uri") '("GnomeVFSFindDirectoryKind" "kind") '("GnomeVFSURI**" "result") '("gboolean" "create_if_needed") '("gboolean" "find_if_needed") '("guint" "permissions") ) ) ;; From /opt/gnome2/include/gnome-vfs-2.0/libgnomevfs/gnome-vfs.h ;; From /opt/gnome2/include/gnome-vfs-2.0/libgnomevfs/gnome-vfs-handle.h ;; From /opt/gnome2/include/gnome-vfs-2.0/libgnomevfs/gnome-vfs-init.h (define-function gnome_vfs_init (c-name "gnome_vfs_init") (return-type "gboolean") ) (define-function gnome_vfs_initialized (c-name "gnome_vfs_initialized") (return-type "gboolean") ) (define-function gnome_vfs_shutdown (c-name "gnome_vfs_shutdown") (return-type "none") ) (define-function gnome_vfs_loadinit (c-name "gnome_vfs_loadinit") (return-type "none") (parameters '("gpointer" "app") '("gpointer" "modinfo") ) ) (define-function gnome_vfs_preinit (c-name "gnome_vfs_preinit") (return-type "none") (parameters '("gpointer" "app") '("gpointer" "modinfo") ) ) (define-function gnome_vfs_postinit (c-name "gnome_vfs_postinit") (return-type "none") (parameters '("gpointer" "app") '("gpointer" "modinfo") ) ) ;; From /opt/gnome2/include/gnome-vfs-2.0/libgnomevfs/gnome-vfs-job-limit.h (define-function gnome_vfs_async_set_job_limit (c-name "gnome_vfs_async_set_job_limit") (return-type "none") (parameters '("int" "limit") ) ) (define-function gnome_vfs_async_get_job_limit (c-name "gnome_vfs_async_get_job_limit") (return-type "int") ) ;; From /opt/gnome2/include/gnome-vfs-2.0/libgnomevfs/gnome-vfs-mime-deprecated.h (define-function gnome_vfs_mime_get_default_action_type (c-name "gnome_vfs_mime_get_default_action_type") (return-type "GnomeVFSMimeActionType") (parameters '("const-char*" "mime_type") ) ) (define-function gnome_vfs_mime_get_default_action (c-name "gnome_vfs_mime_get_default_action") (return-type "GnomeVFSMimeAction*") (parameters '("const-char*" "mime_type") ) ) (define-function gnome_vfs_mime_application_new_from_id (c-name "gnome_vfs_mime_application_new_from_id") (return-type "GnomeVFSMimeApplication*") (parameters '("const-char*" "id") ) ) (define-method free (of-object "GnomeVFSMimeAction") (c-name "gnome_vfs_mime_action_free") (return-type "none") ) (define-method launch (of-object "GnomeVFSMimeAction") (c-name "gnome_vfs_mime_action_launch") (return-type "GnomeVFSResult") (parameters '("GList*" "uris") ) ) (define-method launch_with_env (of-object "GnomeVFSMimeAction") (c-name "gnome_vfs_mime_action_launch_with_env") (return-type "GnomeVFSResult") (parameters '("GList*" "uris") '("char**" "envp") ) ) (define-function gnome_vfs_mime_get_icon (c-name "gnome_vfs_mime_get_icon") (return-type "const-char*") (parameters '("const-char*" "mime_type") ) ) (define-function gnome_vfs_mime_id_in_application_list (c-name "gnome_vfs_mime_id_in_application_list") (return-type "gboolean") (parameters '("const-char*" "id") '("GList*" "applications") ) ) (define-function gnome_vfs_mime_remove_application_from_list (c-name "gnome_vfs_mime_remove_application_from_list") (return-type "GList*") (parameters '("GList*" "applications") '("const-char*" "application_id") '("gboolean*" "did_remove") ) ) (define-function gnome_vfs_mime_id_list_from_application_list (c-name "gnome_vfs_mime_id_list_from_application_list") (return-type "GList*") (parameters '("GList*" "applications") ) ) (define-function gnome_vfs_mime_add_extension (c-name "gnome_vfs_mime_add_extension") (return-type "GnomeVFSResult") (parameters '("const-char*" "mime_type") '("const-char*" "extension") ) ) (define-function gnome_vfs_mime_remove_extension (c-name "gnome_vfs_mime_remove_extension") (return-type "GnomeVFSResult") (parameters '("const-char*" "mime_type") '("const-char*" "extension") ) ) (define-function gnome_vfs_mime_set_default_action_type (c-name "gnome_vfs_mime_set_default_action_type") (return-type "GnomeVFSResult") (parameters '("const-char*" "mime_type") '("GnomeVFSMimeActionType" "action_type") ) ) (define-function gnome_vfs_mime_set_default_application (c-name "gnome_vfs_mime_set_default_application") (return-type "GnomeVFSResult") (parameters '("const-char*" "mime_type") '("const-char*" "application_id") ) ) (define-function gnome_vfs_mime_set_default_component (c-name "gnome_vfs_mime_set_default_component") (return-type "GnomeVFSResult") (parameters '("const-char*" "mime_type") '("const-char*" "component_iid") ) ) (define-function gnome_vfs_mime_set_icon (c-name "gnome_vfs_mime_set_icon") (return-type "GnomeVFSResult") (parameters '("const-char*" "mime_type") '("const-char*" "filename") ) ) (define-function gnome_vfs_mime_set_description (c-name "gnome_vfs_mime_set_description") (return-type "GnomeVFSResult") (parameters '("const-char*" "mime_type") '("const-char*" "description") ) ) (define-function gnome_vfs_mime_set_can_be_executable (c-name "gnome_vfs_mime_set_can_be_executable") (return-type "GnomeVFSResult") (parameters '("const-char*" "mime_type") '("gboolean" "new_value") ) ) (define-function gnome_vfs_mime_extend_all_applications (c-name "gnome_vfs_mime_extend_all_applications") (return-type "GnomeVFSResult") (parameters '("const-char*" "mime_type") '("GList*" "application_ids") ) ) (define-function gnome_vfs_mime_remove_from_all_applications (c-name "gnome_vfs_mime_remove_from_all_applications") (return-type "GnomeVFSResult") (parameters '("const-char*" "mime_type") '("GList*" "application_ids") ) ) (define-function gnome_vfs_mime_get_short_list_applications (c-name "gnome_vfs_mime_get_short_list_applications") (return-type "GList*") (parameters '("const-char*" "mime_type") ) ) (define-function gnome_vfs_mime_set_short_list_applications (c-name "gnome_vfs_mime_set_short_list_applications") (return-type "GnomeVFSResult") (parameters '("const-char*" "mime_type") '("GList*" "application_ids") ) ) (define-function gnome_vfs_mime_set_short_list_components (c-name "gnome_vfs_mime_set_short_list_components") (return-type "GnomeVFSResult") (parameters '("const-char*" "mime_type") '("GList*" "component_iids") ) ) (define-function gnome_vfs_mime_add_application_to_short_list (c-name "gnome_vfs_mime_add_application_to_short_list") (return-type "GnomeVFSResult") (parameters '("const-char*" "mime_type") '("const-char*" "application_id") ) ) (define-function gnome_vfs_mime_remove_application_from_short_list (c-name "gnome_vfs_mime_remove_application_from_short_list") (return-type "GnomeVFSResult") (parameters '("const-char*" "mime_type") '("const-char*" "application_id") ) ) (define-function gnome_vfs_mime_add_component_to_short_list (c-name "gnome_vfs_mime_add_component_to_short_list") (return-type "GnomeVFSResult") (parameters '("const-char*" "mime_type") '("const-char*" "iid") ) ) (define-function gnome_vfs_mime_remove_component_from_short_list (c-name "gnome_vfs_mime_remove_component_from_short_list") (return-type "GnomeVFSResult") (parameters '("const-char*" "mime_type") '("const-char*" "iid") ) ) (define-function gnome_vfs_mime_get_default_component (c-name "gnome_vfs_mime_get_default_component") (return-type "Bonobo_ServerInfo*") (parameters '("const-char*" "mime_type") ) ) (define-function gnome_vfs_mime_get_default_component (c-name "gnome_vfs_mime_get_default_component") (return-type "void*") (parameters '("const-char*" "mime_type") ) ) (define-function gnome_vfs_mime_get_all_components (c-name "gnome_vfs_mime_get_all_components") (return-type "GList*") (parameters '("const-char*" "mime_type") ) ) (define-function gnome_vfs_mime_component_list_free (c-name "gnome_vfs_mime_component_list_free") (return-type "none") (parameters '("GList*" "list") ) ) (define-function gnome_vfs_mime_remove_component_from_list (c-name "gnome_vfs_mime_remove_component_from_list") (return-type "GList*") (parameters '("GList*" "components") '("const-char*" "iid") '("gboolean*" "did_remove") ) ) (define-function gnome_vfs_mime_id_list_from_component_list (c-name "gnome_vfs_mime_id_list_from_component_list") (return-type "GList*") (parameters '("GList*" "components") ) ) (define-function gnome_vfs_mime_id_in_component_list (c-name "gnome_vfs_mime_id_in_component_list") (return-type "gboolean") (parameters '("const-char*" "iid") '("GList*" "components") ) ) (define-function gnome_vfs_mime_get_short_list_components (c-name "gnome_vfs_mime_get_short_list_components") (return-type "GList*") (parameters '("const-char*" "mime_type") ) ) ;; From /opt/gnome2/include/gnome-vfs-2.0/libgnomevfs/gnome-vfs-mime.h (define-function gnome_vfs_mime_shutdown (c-name "gnome_vfs_mime_shutdown") (return-type "none") ) (define-function gnome_vfs_mime_type_from_name (c-name "gnome_vfs_mime_type_from_name") (return-type "const-char*") (parameters '("const-char*" "filename") ) ) (define-function gnome_vfs_mime_type_from_name_or_default (c-name "gnome_vfs_mime_type_from_name_or_default") (return-type "const-char*") (parameters '("const-char*" "filename") '("const-char*" "defaultv") ) ) (define-function gnome_vfs_get_mime_type_common (c-name "gnome_vfs_get_mime_type_common") (return-type "const-char*") (parameters '("GnomeVFSURI*" "uri") ) ) (define-function gnome_vfs_get_mime_type_from_uri (c-name "gnome_vfs_get_mime_type_from_uri") (return-type "const-char*") (parameters '("GnomeVFSURI*" "uri") ) ) (define-function gnome_vfs_get_mime_type_from_file_data (c-name "gnome_vfs_get_mime_type_from_file_data") (return-type "const-char*") (parameters '("GnomeVFSURI*" "uri") ) ) (define-function gnome_vfs_get_file_mime_type_fast (c-name "gnome_vfs_get_file_mime_type_fast") (return-type "const-char*") (parameters '("const-char*" "path") '("const-struct-stat*" "optional_stat_info") ) ) (define-function gnome_vfs_get_file_mime_type (c-name "gnome_vfs_get_file_mime_type") (return-type "const-char*") (parameters '("const-char*" "path") '("const-struct-stat*" "optional_stat_info") '("gboolean" "suffix_only") ) ) (define-function gnome_vfs_mime_type_is_supertype (c-name "gnome_vfs_mime_type_is_supertype") (return-type "gboolean") (parameters '("const-char*" "mime_type") ) ) (define-function gnome_vfs_get_supertype_from_mime_type (c-name "gnome_vfs_get_supertype_from_mime_type") (return-type "char*") (parameters '("const-char*" "mime_type") ) ) (define-function gnome_vfs_mime_info_cache_reload (c-name "gnome_vfs_mime_info_cache_reload") (return-type "none") (parameters '("const-char*" "dir") ) ) (define-function gnome_vfs_mime_reload (c-name "gnome_vfs_mime_reload") (return-type "none") ) ;; From /opt/gnome2/include/gnome-vfs-2.0/libgnomevfs/gnome-vfs-mime-handlers.h (define-function gnome_vfs_mime_get_default_application (c-name "gnome_vfs_mime_get_default_application") (return-type "GnomeVFSMimeApplication*") (parameters '("const-char*" "mime_type") ) ) (define-function gnome_vfs_mime_get_default_application_for_uri (c-name "gnome_vfs_mime_get_default_application_for_uri") (return-type "GnomeVFSMimeApplication*") (parameters '("const-char*" "uri") '("const-char*" "mime_type") ) ) (define-function gnome_vfs_mime_get_all_applications (c-name "gnome_vfs_mime_get_all_applications") (return-type "GList*") (parameters '("const-char*" "mime_type") ) ) (define-function gnome_vfs_mime_get_all_applications_for_uri (c-name "gnome_vfs_mime_get_all_applications_for_uri") (return-type "GList*") (parameters '("const-char*" "uri") '("const-char*" "mime_type") ) ) (define-function gnome_vfs_mime_get_description (c-name "gnome_vfs_mime_get_description") (return-type "const-char*") (parameters '("const-char*" "mime_type") ) ) (define-function gnome_vfs_mime_can_be_executable (c-name "gnome_vfs_mime_can_be_executable") (return-type "gboolean") (parameters '("const-char*" "mime_type") ) ) (define-function gnome_vfs_mime_application_new_from_desktop_id (c-name "gnome_vfs_mime_application_new_from_desktop_id") (return-type "GnomeVFSMimeApplication*") (parameters '("const-char*" "id") ) ) (define-method launch (of-object "GnomeVFSMimeApplication") (c-name "gnome_vfs_mime_application_launch") (return-type "GnomeVFSResult") (parameters '("GList*" "uris") ) ) (define-method launch_with_env (of-object "GnomeVFSMimeApplication") (c-name "gnome_vfs_mime_application_launch_with_env") (return-type "GnomeVFSResult") (parameters '("GList*" "uris") '("char**" "envp") ) ) (define-method get_desktop_id (of-object "GnomeVFSMimeApplication") (c-name "gnome_vfs_mime_application_get_desktop_id") (return-type "const-char*") ) (define-method get_desktop_file_path (of-object "GnomeVFSMimeApplication") (c-name "gnome_vfs_mime_application_get_desktop_file_path") (return-type "const-char*") ) (define-method get_name (of-object "GnomeVFSMimeApplication") (c-name "gnome_vfs_mime_application_get_name") (return-type "const-char*") ) (define-method get_generic_name (of-object "GnomeVFSMimeApplication") (c-name "gnome_vfs_mime_application_get_generic_name") (return-type "const-char*") ) (define-method get_icon (of-object "GnomeVFSMimeApplication") (c-name "gnome_vfs_mime_application_get_icon") (return-type "const-char*") ) (define-method get_exec (of-object "GnomeVFSMimeApplication") (c-name "gnome_vfs_mime_application_get_exec") (return-type "const-char*") ) (define-method get_binary_name (of-object "GnomeVFSMimeApplication") (c-name "gnome_vfs_mime_application_get_binary_name") (return-type "const-char*") ) (define-method supports_uris (of-object "GnomeVFSMimeApplication") (c-name "gnome_vfs_mime_application_supports_uris") (return-type "gboolean") ) (define-method requires_terminal (of-object "GnomeVFSMimeApplication") (c-name "gnome_vfs_mime_application_requires_terminal") (return-type "gboolean") ) (define-method supports_startup_notification (of-object "GnomeVFSMimeApplication") (c-name "gnome_vfs_mime_application_supports_startup_notification") (return-type "gboolean") ) (define-method get_startup_wm_class (of-object "GnomeVFSMimeApplication") (c-name "gnome_vfs_mime_application_get_startup_wm_class") (return-type "const-char*") ) (define-method copy (of-object "GnomeVFSMimeApplication") (c-name "gnome_vfs_mime_application_copy") (return-type "GnomeVFSMimeApplication*") ) (define-method equal (of-object "GnomeVFSMimeApplication") (c-name "gnome_vfs_mime_application_equal") (return-type "gboolean") (parameters '("GnomeVFSMimeApplication*" "app_b") ) ) (define-method free (of-object "GnomeVFSMimeApplication") (c-name "gnome_vfs_mime_application_free") (return-type "none") ) (define-function gnome_vfs_mime_application_list_free (c-name "gnome_vfs_mime_application_list_free") (return-type "none") (parameters '("GList*" "list") ) ) ;; From /opt/gnome2/include/gnome-vfs-2.0/libgnomevfs/gnome-vfs-mime-info-cache.h (define-function gnome_vfs_mime_get_all_desktop_entries (c-name "gnome_vfs_mime_get_all_desktop_entries") (return-type "GList*") (parameters '("const-char*" "mime_type") ) ) (define-function gnome_vfs_mime_get_default_desktop_entry (c-name "gnome_vfs_mime_get_default_desktop_entry") (return-type "gchar*") (parameters '("const-char*" "mime_type") ) ) ;; From /opt/gnome2/include/gnome-vfs-2.0/libgnomevfs/gnome-vfs-mime-monitor.h (define-function gnome_vfs_mime_monitor_get_type (c-name "gnome_vfs_mime_monitor_get_type") (return-type "GType") ) (define-function gnome_vfs_mime_monitor_get (c-name "gnome_vfs_mime_monitor_get") (return-type "GnomeVFSMIMEMonitor*") ) ;; From /opt/gnome2/include/gnome-vfs-2.0/libgnomevfs/gnome-vfs-mime-utils.h (define-function gnome_vfs_mime_type_get_equivalence (c-name "gnome_vfs_mime_type_get_equivalence") (return-type "GnomeVFSMimeEquivalence") (parameters '("const-char*" "mime_type") '("const-char*" "base_mime_type") ) ) (define-function gnome_vfs_mime_type_is_equal (c-name "gnome_vfs_mime_type_is_equal") (return-type "gboolean") (parameters '("const-char*" "a") '("const-char*" "b") ) ) (define-function gnome_vfs_get_mime_type_for_name (c-name "gnome_vfs_get_mime_type_for_name") (return-type "const-char*") (parameters '("const-char*" "filename") ) ) (define-function gnome_vfs_get_mime_type_for_data (c-name "gnome_vfs_get_mime_type_for_data") (return-type "const-char*") (parameters '("gconstpointer" "data") '("int" "data_size") ) ) (define-function gnome_vfs_get_mime_type_for_name_and_data (c-name "gnome_vfs_get_mime_type_for_name_and_data") (return-type "const-char*") (parameters '("const-char*" "filename") '("gconstpointer" "data") '("gssize" "data_size") ) ) (define-function gnome_vfs_get_mime_type (c-name "gnome_vfs_get_mime_type") (return-type "char*") (parameters '("const-char*" "text_uri") ) ) (define-function gnome_vfs_get_slow_mime_type (c-name "gnome_vfs_get_slow_mime_type") (return-type "char*") (parameters '("const-char*" "text_uri") ) ) ;; From /opt/gnome2/include/gnome-vfs-2.0/libgnomevfs/gnome-vfs-module-callback.h (define-function gnome_vfs_module_callback_set_default (c-name "gnome_vfs_module_callback_set_default") (return-type "none") (parameters '("const-char*" "callback_name") '("GnomeVFSModuleCallback" "callback") '("gpointer" "callback_data") '("GDestroyNotify" "destroy_notify") ) ) (define-function gnome_vfs_module_callback_push (c-name "gnome_vfs_module_callback_push") (return-type "none") (parameters '("const-char*" "callback_name") '("GnomeVFSModuleCallback" "callback") '("gpointer" "callback_data") '("GDestroyNotify" "destroy_notify") ) ) (define-function gnome_vfs_module_callback_pop (c-name "gnome_vfs_module_callback_pop") (return-type "none") (parameters '("const-char*" "callback_name") ) ) (define-function gnome_vfs_async_module_callback_set_default (c-name "gnome_vfs_async_module_callback_set_default") (return-type "none") (parameters '("const-char*" "callback_name") '("GnomeVFSAsyncModuleCallback" "callback") '("gpointer" "callback_data") '("GDestroyNotify" "destroy_notify") ) ) (define-function gnome_vfs_async_module_callback_push (c-name "gnome_vfs_async_module_callback_push") (return-type "none") (parameters '("const-char*" "callback_name") '("GnomeVFSAsyncModuleCallback" "callback") '("gpointer" "callback_data") '("GDestroyNotify" "destroy_notify") ) ) (define-function gnome_vfs_async_module_callback_pop (c-name "gnome_vfs_async_module_callback_pop") (return-type "none") (parameters '("const-char*" "callback_name") ) ) ;; From /opt/gnome2/include/gnome-vfs-2.0/libgnomevfs/gnome-vfs-monitor.h ;; From /opt/gnome2/include/gnome-vfs-2.0/libgnomevfs/gnome-vfs-ops.h (define-function gnome_vfs_open (c-name "gnome_vfs_open") (return-type "GnomeVFSResult") (parameters '("GnomeVFSHandle**" "handle") '("const-gchar*" "text_uri") '("GnomeVFSOpenMode" "open_mode") ) ) (define-function gnome_vfs_open_uri (c-name "gnome_vfs_open_uri") (return-type "GnomeVFSResult") (parameters '("GnomeVFSHandle**" "handle") '("GnomeVFSURI*" "uri") '("GnomeVFSOpenMode" "open_mode") ) ) (define-function gnome_vfs_create (c-name "gnome_vfs_create") (return-type "GnomeVFSResult") (parameters '("GnomeVFSHandle**" "handle") '("const-gchar*" "text_uri") '("GnomeVFSOpenMode" "open_mode") '("gboolean" "exclusive") '("guint" "perm") ) ) (define-function gnome_vfs_create_uri (c-name "gnome_vfs_create_uri") (return-type "GnomeVFSResult") (parameters '("GnomeVFSHandle**" "handle") '("GnomeVFSURI*" "uri") '("GnomeVFSOpenMode" "open_mode") '("gboolean" "exclusive") '("guint" "perm") ) ) (define-function gnome_vfs_close (c-name "gnome_vfs_close") (return-type "GnomeVFSResult") (parameters '("GnomeVFSHandle*" "handle") ) ) (define-function gnome_vfs_read (c-name "gnome_vfs_read") (return-type "GnomeVFSResult") (parameters '("GnomeVFSHandle*" "handle") '("gpointer" "buffer") '("GnomeVFSFileSize" "bytes") '("GnomeVFSFileSize*" "bytes_read") ) ) (define-function gnome_vfs_write (c-name "gnome_vfs_write") (return-type "GnomeVFSResult") (parameters '("GnomeVFSHandle*" "handle") '("gconstpointer" "buffer") '("GnomeVFSFileSize" "bytes") '("GnomeVFSFileSize*" "bytes_written") ) ) (define-function gnome_vfs_seek (c-name "gnome_vfs_seek") (return-type "GnomeVFSResult") (parameters '("GnomeVFSHandle*" "handle") '("GnomeVFSSeekPosition" "whence") '("GnomeVFSFileOffset" "offset") ) ) (define-function gnome_vfs_tell (c-name "gnome_vfs_tell") (return-type "GnomeVFSResult") (parameters '("GnomeVFSHandle*" "handle") '("GnomeVFSFileSize*" "offset_return") ) ) (define-function gnome_vfs_get_file_info (c-name "gnome_vfs_get_file_info") (return-type "GnomeVFSResult") (parameters '("const-gchar*" "text_uri") '("GnomeVFSFileInfo*" "info") '("GnomeVFSFileInfoOptions" "options") ) ) (define-function gnome_vfs_get_file_info_uri (c-name "gnome_vfs_get_file_info_uri") (return-type "GnomeVFSResult") (parameters '("GnomeVFSURI*" "uri") '("GnomeVFSFileInfo*" "info") '("GnomeVFSFileInfoOptions" "options") ) ) (define-function gnome_vfs_get_file_info_from_handle (c-name "gnome_vfs_get_file_info_from_handle") (return-type "GnomeVFSResult") (parameters '("GnomeVFSHandle*" "handle") '("GnomeVFSFileInfo*" "info") '("GnomeVFSFileInfoOptions" "options") ) ) (define-function gnome_vfs_truncate (c-name "gnome_vfs_truncate") (return-type "GnomeVFSResult") (parameters '("const-gchar*" "text_uri") '("GnomeVFSFileSize" "length") ) ) (define-function gnome_vfs_truncate_uri (c-name "gnome_vfs_truncate_uri") (return-type "GnomeVFSResult") (parameters '("GnomeVFSURI*" "uri") '("GnomeVFSFileSize" "length") ) ) (define-function gnome_vfs_truncate_handle (c-name "gnome_vfs_truncate_handle") (return-type "GnomeVFSResult") (parameters '("GnomeVFSHandle*" "handle") '("GnomeVFSFileSize" "length") ) ) (define-function gnome_vfs_make_directory_for_uri (c-name "gnome_vfs_make_directory_for_uri") (return-type "GnomeVFSResult") (parameters '("GnomeVFSURI*" "uri") '("guint" "perm") ) ) (define-function gnome_vfs_make_directory (c-name "gnome_vfs_make_directory") (return-type "GnomeVFSResult") (parameters '("const-gchar*" "text_uri") '("guint" "perm") ) ) (define-function gnome_vfs_remove_directory_from_uri (c-name "gnome_vfs_remove_directory_from_uri") (return-type "GnomeVFSResult") (parameters '("GnomeVFSURI*" "uri") ) ) (define-function gnome_vfs_remove_directory (c-name "gnome_vfs_remove_directory") (return-type "GnomeVFSResult") (parameters '("const-gchar*" "text_uri") ) ) (define-function gnome_vfs_unlink_from_uri (c-name "gnome_vfs_unlink_from_uri") (return-type "GnomeVFSResult") (parameters '("GnomeVFSURI*" "uri") ) ) (define-function gnome_vfs_create_symbolic_link (c-name "gnome_vfs_create_symbolic_link") (return-type "GnomeVFSResult") (parameters '("GnomeVFSURI*" "uri") '("const-gchar*" "target_reference") ) ) (define-function gnome_vfs_unlink (c-name "gnome_vfs_unlink") (return-type "GnomeVFSResult") (parameters '("const-gchar*" "text_uri") ) ) (define-function gnome_vfs_move_uri (c-name "gnome_vfs_move_uri") (return-type "GnomeVFSResult") (parameters '("GnomeVFSURI*" "old_uri") '("GnomeVFSURI*" "new_uri") '("gboolean" "force_replace") ) ) (define-function gnome_vfs_move (c-name "gnome_vfs_move") (return-type "GnomeVFSResult") (parameters '("const-gchar*" "old_text_uri") '("const-gchar*" "new_text_uri") '("gboolean" "force_replace") ) ) (define-function gnome_vfs_check_same_fs_uris (c-name "gnome_vfs_check_same_fs_uris") (return-type "GnomeVFSResult") (parameters '("GnomeVFSURI*" "source_uri") '("GnomeVFSURI*" "target_uri") '("gboolean*" "same_fs_return") ) ) (define-function gnome_vfs_check_same_fs (c-name "gnome_vfs_check_same_fs") (return-type "GnomeVFSResult") (parameters '("const-gchar*" "source") '("const-gchar*" "target") '("gboolean*" "same_fs_return") ) ) (define-method exists (of-object "GnomeVFSURI") (c-name "gnome_vfs_uri_exists") (return-type "gboolean") ) (define-function gnome_vfs_set_file_info_uri (c-name "gnome_vfs_set_file_info_uri") (return-type "GnomeVFSResult") (parameters '("GnomeVFSURI*" "uri") '("GnomeVFSFileInfo*" "info") '("GnomeVFSSetFileInfoMask" "mask") ) ) (define-function gnome_vfs_set_file_info (c-name "gnome_vfs_set_file_info") (return-type "GnomeVFSResult") (parameters '("const-gchar*" "text_uri") '("GnomeVFSFileInfo*" "info") '("GnomeVFSSetFileInfoMask" "mask") ) ) (define-function gnome_vfs_monitor_add (c-name "gnome_vfs_monitor_add") (return-type "GnomeVFSResult") (parameters '("GnomeVFSMonitorHandle**" "handle") '("const-gchar*" "text_uri") '("GnomeVFSMonitorType" "monitor_type") '("GnomeVFSMonitorCallback" "callback") '("gpointer" "user_data") ) ) (define-function gnome_vfs_monitor_cancel (c-name "gnome_vfs_monitor_cancel") (return-type "GnomeVFSResult") (parameters '("GnomeVFSMonitorHandle*" "handle") ) ) (define-function gnome_vfs_file_control (c-name "gnome_vfs_file_control") (return-type "GnomeVFSResult") (parameters '("GnomeVFSHandle*" "handle") '("const-char*" "operation") '("gpointer" "operation_data") ) ) (define-function gnome_vfs_forget_cache (c-name "gnome_vfs_forget_cache") (return-type "GnomeVFSResult") (parameters '("GnomeVFSHandle*" "handle") '("GnomeVFSFileOffset" "offset") '("GnomeVFSFileSize" "size") ) ) ;; From /opt/gnome2/include/gnome-vfs-2.0/libgnomevfs/gnome-vfs-resolve.h (define-function gnome_vfs_resolve (c-name "gnome_vfs_resolve") (return-type "GnomeVFSResult") (parameters '("const-char*" "hostname") '("GnomeVFSResolveHandle**" "handle") ) ) (define-function gnome_vfs_resolve_next_address (c-name "gnome_vfs_resolve_next_address") (return-type "gboolean") (parameters '("GnomeVFSResolveHandle*" "handle") '("GnomeVFSAddress**" "address") ) ) (define-function gnome_vfs_resolve_reset_to_beginning (c-name "gnome_vfs_resolve_reset_to_beginning") (return-type "none") (parameters '("GnomeVFSResolveHandle*" "handle") ) ) (define-function gnome_vfs_resolve_free (c-name "gnome_vfs_resolve_free") (return-type "none") (parameters '("GnomeVFSResolveHandle*" "handle") ) ) ;; From /opt/gnome2/include/gnome-vfs-2.0/libgnomevfs/gnome-vfs-result.h (define-function gnome_vfs_result_to_string (c-name "gnome_vfs_result_to_string") (return-type "const-char*") (parameters '("GnomeVFSResult" "result") ) ) (define-function gnome_vfs_result_from_errno_code (c-name "gnome_vfs_result_from_errno_code") (return-type "GnomeVFSResult") (parameters '("int" "errno_code") ) ) (define-function gnome_vfs_result_from_errno (c-name "gnome_vfs_result_from_errno") (return-type "GnomeVFSResult") ) (define-function gnome_vfs_result_from_h_errno_val (c-name "gnome_vfs_result_from_h_errno_val") (return-type "GnomeVFSResult") (parameters '("int" "h_errno_code") ) ) (define-function gnome_vfs_result_from_h_errno (c-name "gnome_vfs_result_from_h_errno") (return-type "GnomeVFSResult") ) ;; From /opt/gnome2/include/gnome-vfs-2.0/libgnomevfs/gnome-vfs-standard-callbacks.h ;; From /opt/gnome2/include/gnome-vfs-2.0/libgnomevfs/gnome-vfs-types.h ;; From /opt/gnome2/include/gnome-vfs-2.0/libgnomevfs/gnome-vfs-uri.h (define-function gnome_vfs_uri_hide_options_get_type (c-name "gnome_vfs_uri_hide_options_get_type") (return-type "GType") ) (define-function gnome_vfs_uri_new (c-name "gnome_vfs_uri_new") (is-constructor-of "GnomeVfsUri") (return-type "GnomeVFSURI*") (parameters '("const-gchar*" "text_uri") ) ) (define-method resolve_relative (of-object "GnomeVFSURI") (c-name "gnome_vfs_uri_resolve_relative") (return-type "GnomeVFSURI*") (parameters '("const-gchar*" "relative_reference") ) ) (define-method resolve_symbolic_link (of-object "GnomeVFSURI") (c-name "gnome_vfs_uri_resolve_symbolic_link") (return-type "GnomeVFSURI*") (parameters '("const-gchar*" "relative_reference") ) ) (define-method ref (of-object "GnomeVFSURI") (c-name "gnome_vfs_uri_ref") (return-type "GnomeVFSURI*") ) (define-method unref (of-object "GnomeVFSURI") (c-name "gnome_vfs_uri_unref") (return-type "none") ) (define-method append_string (of-object "GnomeVFSURI") (c-name "gnome_vfs_uri_append_string") (return-type "GnomeVFSURI*") (parameters '("const-char*" "uri_fragment") ) ) (define-method append_path (of-object "GnomeVFSURI") (c-name "gnome_vfs_uri_append_path") (return-type "GnomeVFSURI*") (parameters '("const-char*" "path") ) ) (define-method append_file_name (of-object "GnomeVFSURI") (c-name "gnome_vfs_uri_append_file_name") (return-type "GnomeVFSURI*") (parameters '("const-gchar*" "filename") ) ) (define-method to_string (of-object "GnomeVFSURI") (c-name "gnome_vfs_uri_to_string") (return-type "gchar*") (parameters '("GnomeVFSURIHideOptions" "hide_options") ) ) (define-method dup (of-object "GnomeVFSURI") (c-name "gnome_vfs_uri_dup") (return-type "GnomeVFSURI*") ) (define-method is_local (of-object "GnomeVFSURI") (c-name "gnome_vfs_uri_is_local") (return-type "gboolean") ) (define-method has_parent (of-object "GnomeVFSURI") (c-name "gnome_vfs_uri_has_parent") (return-type "gboolean") ) (define-method get_parent (of-object "GnomeVFSURI") (c-name "gnome_vfs_uri_get_parent") (return-type "GnomeVFSURI*") ) (define-method get_toplevel (of-object "GnomeVFSURI") (c-name "gnome_vfs_uri_get_toplevel") (return-type "GnomeVFSToplevelURI*") ) (define-method get_host_name (of-object "GnomeVFSURI") (c-name "gnome_vfs_uri_get_host_name") (return-type "const-gchar*") ) (define-method get_scheme (of-object "GnomeVFSURI") (c-name "gnome_vfs_uri_get_scheme") (return-type "const-gchar*") ) (define-method get_host_port (of-object "GnomeVFSURI") (c-name "gnome_vfs_uri_get_host_port") (return-type "guint") ) (define-method get_user_name (of-object "GnomeVFSURI") (c-name "gnome_vfs_uri_get_user_name") (return-type "const-gchar*") ) (define-method get_password (of-object "GnomeVFSURI") (c-name "gnome_vfs_uri_get_password") (return-type "const-gchar*") ) (define-method set_host_name (of-object "GnomeVFSURI") (c-name "gnome_vfs_uri_set_host_name") (return-type "none") (parameters '("const-gchar*" "host_name") ) ) (define-method set_host_port (of-object "GnomeVFSURI") (c-name "gnome_vfs_uri_set_host_port") (return-type "none") (parameters '("guint" "host_port") ) ) (define-method set_user_name (of-object "GnomeVFSURI") (c-name "gnome_vfs_uri_set_user_name") (return-type "none") (parameters '("const-gchar*" "user_name") ) ) (define-method set_password (of-object "GnomeVFSURI") (c-name "gnome_vfs_uri_set_password") (return-type "none") (parameters '("const-gchar*" "password") ) ) (define-method equal (of-object "GnomeVFSURI") (c-name "gnome_vfs_uri_equal") (return-type "gboolean") (parameters '("const-GnomeVFSURI*" "b") ) ) (define-method is_parent (of-object "GnomeVFSURI") (c-name "gnome_vfs_uri_is_parent") (return-type "gboolean") (parameters '("const-GnomeVFSURI*" "possible_child") '("gboolean" "recursive") ) ) (define-method get_path (of-object "GnomeVFSURI") (c-name "gnome_vfs_uri_get_path") (return-type "const-gchar*") ) (define-method get_fragment_identifier (of-object "GnomeVFSURI") (c-name "gnome_vfs_uri_get_fragment_identifier") (return-type "const-gchar*") ) (define-method extract_dirname (of-object "GnomeVFSURI") (c-name "gnome_vfs_uri_extract_dirname") (return-type "gchar*") ) (define-method extract_short_name (of-object "GnomeVFSURI") (c-name "gnome_vfs_uri_extract_short_name") (return-type "gchar*") ) (define-method extract_short_path_name (of-object "GnomeVFSURI") (c-name "gnome_vfs_uri_extract_short_path_name") (return-type "gchar*") ) (define-function gnome_vfs_uri_hequal (c-name "gnome_vfs_uri_hequal") (return-type "gint") (parameters '("gconstpointer" "a") '("gconstpointer" "b") ) ) (define-function gnome_vfs_uri_hash (c-name "gnome_vfs_uri_hash") (return-type "guint") (parameters '("gconstpointer" "p") ) ) (define-function gnome_vfs_uri_list_parse (c-name "gnome_vfs_uri_list_parse") (return-type "GList*") (parameters '("const-gchar*" "uri_list") ) ) (define-function gnome_vfs_uri_list_ref (c-name "gnome_vfs_uri_list_ref") (return-type "GList*") (parameters '("GList*" "list") ) ) (define-function gnome_vfs_uri_list_unref (c-name "gnome_vfs_uri_list_unref") (return-type "GList*") (parameters '("GList*" "list") ) ) (define-function gnome_vfs_uri_list_copy (c-name "gnome_vfs_uri_list_copy") (return-type "GList*") (parameters '("GList*" "list") ) ) (define-function gnome_vfs_uri_list_free (c-name "gnome_vfs_uri_list_free") (return-type "none") (parameters '("GList*" "list") ) ) (define-function gnome_vfs_uri_make_full_from_relative (c-name "gnome_vfs_uri_make_full_from_relative") (return-type "char*") (parameters '("const-char*" "base_uri") '("const-char*" "relative_uri") ) ) ;; From /opt/gnome2/include/gnome-vfs-2.0/libgnomevfs/gnome-vfs-utils.h (define-function gnome_vfs_format_file_size_for_display (c-name "gnome_vfs_format_file_size_for_display") (return-type "char*") (parameters '("GnomeVFSFileSize" "size") ) ) (define-function gnome_vfs_escape_string (c-name "gnome_vfs_escape_string") (return-type "char*") (parameters '("const-char*" "string") ) ) (define-function gnome_vfs_escape_path_string (c-name "gnome_vfs_escape_path_string") (return-type "char*") (parameters '("const-char*" "path") ) ) (define-function gnome_vfs_escape_host_and_path_string (c-name "gnome_vfs_escape_host_and_path_string") (return-type "char*") (parameters '("const-char*" "path") ) ) (define-function gnome_vfs_escape_slashes (c-name "gnome_vfs_escape_slashes") (return-type "char*") (parameters '("const-char*" "string") ) ) (define-function gnome_vfs_escape_set (c-name "gnome_vfs_escape_set") (return-type "char*") (parameters '("const-char*" "string") '("const-char*" "match_set") ) ) (define-function gnome_vfs_unescape_string (c-name "gnome_vfs_unescape_string") (return-type "char*") (parameters '("const-char*" "escaped_string") '("const-char*" "illegal_characters") ) ) (define-function gnome_vfs_make_uri_canonical (c-name "gnome_vfs_make_uri_canonical") (return-type "char*") (parameters '("const-char*" "uri") ) ) (define-function gnome_vfs_make_path_name_canonical (c-name "gnome_vfs_make_path_name_canonical") (return-type "char*") (parameters '("const-char*" "path") ) ) (define-function gnome_vfs_expand_initial_tilde (c-name "gnome_vfs_expand_initial_tilde") (return-type "char*") (parameters '("const-char*" "path") ) ) (define-function gnome_vfs_unescape_string_for_display (c-name "gnome_vfs_unescape_string_for_display") (return-type "char*") (parameters '("const-char*" "escaped") ) ) (define-function gnome_vfs_get_local_path_from_uri (c-name "gnome_vfs_get_local_path_from_uri") (return-type "char*") (parameters '("const-char*" "uri") ) ) (define-function gnome_vfs_get_uri_from_local_path (c-name "gnome_vfs_get_uri_from_local_path") (return-type "char*") (parameters '("const-char*" "local_full_path") ) ) (define-function gnome_vfs_is_executable_command_string (c-name "gnome_vfs_is_executable_command_string") (return-type "gboolean") (parameters '("const-char*" "command_string") ) ) (define-function gnome_vfs_list_deep_free (c-name "gnome_vfs_list_deep_free") (return-type "none") (parameters '("GList*" "list") ) ) (define-function gnome_vfs_get_volume_free_space (c-name "gnome_vfs_get_volume_free_space") (return-type "GnomeVFSResult") (parameters '("const-GnomeVFSURI*" "vfs_uri") '("GnomeVFSFileSize*" "size") ) ) (define-function gnome_vfs_icon_path_from_filename (c-name "gnome_vfs_icon_path_from_filename") (return-type "char*") (parameters '("const-char*" "filename") ) ) (define-function gnome_vfs_open_fd (c-name "gnome_vfs_open_fd") (return-type "GnomeVFSResult") (parameters '("GnomeVFSHandle**" "handle") '("int" "filedes") ) ) (define-function gnome_vfs_is_primary_thread (c-name "gnome_vfs_is_primary_thread") (return-type "gboolean") ) (define-function gnome_vfs_read_entire_file (c-name "gnome_vfs_read_entire_file") (return-type "GnomeVFSResult") (parameters '("const-char*" "uri") '("int*" "file_size") '("char**" "file_contents") ) ) (define-function gnome_vfs_format_uri_for_display (c-name "gnome_vfs_format_uri_for_display") (return-type "char*") (parameters '("const-char*" "uri") ) ) (define-function gnome_vfs_make_uri_from_input (c-name "gnome_vfs_make_uri_from_input") (return-type "char*") (parameters '("const-char*" "location") ) ) (define-function gnome_vfs_make_uri_from_input_with_trailing_ws (c-name "gnome_vfs_make_uri_from_input_with_trailing_ws") (return-type "char*") (parameters '("const-char*" "location") ) ) (define-function gnome_vfs_make_uri_from_input_with_dirs (c-name "gnome_vfs_make_uri_from_input_with_dirs") (return-type "char*") (parameters '("const-char*" "location") '("GnomeVFSMakeURIDirs" "dirs") ) ) (define-function gnome_vfs_make_uri_canonical_strip_fragment (c-name "gnome_vfs_make_uri_canonical_strip_fragment") (return-type "char*") (parameters '("const-char*" "uri") ) ) (define-function gnome_vfs_uris_match (c-name "gnome_vfs_uris_match") (return-type "gboolean") (parameters '("const-char*" "uri_1") '("const-char*" "uri_2") ) ) (define-function gnome_vfs_get_uri_scheme (c-name "gnome_vfs_get_uri_scheme") (return-type "char*") (parameters '("const-char*" "uri") ) ) (define-function gnome_vfs_make_uri_from_shell_arg (c-name "gnome_vfs_make_uri_from_shell_arg") (return-type "char*") (parameters '("const-char*" "uri") ) ) (define-function gnome_vfs_make_uri_full_from_relative (c-name "gnome_vfs_make_uri_full_from_relative") (return-type "char*") (parameters '("const-char*" "base_uri") '("const-char*" "relative_uri") ) ) (define-function gnome_vfs_url_show (c-name "gnome_vfs_url_show") (return-type "GnomeVFSResult") (parameters '("const-char*" "url") ) ) (define-function gnome_vfs_url_show_with_env (c-name "gnome_vfs_url_show_with_env") (return-type "GnomeVFSResult") (parameters '("const-char*" "url") '("char**" "envp") ) ) ;; From /opt/gnome2/include/gnome-vfs-2.0/libgnomevfs/gnome-vfs-version.h ;; From /opt/gnome2/include/gnome-vfs-2.0/libgnomevfs/gnome-vfs-volume.h (define-function gnome_vfs_volume_get_type (c-name "gnome_vfs_volume_get_type") (return-type "GType") ) (define-method ref (of-object "GnomeVFSVolume") (c-name "gnome_vfs_volume_ref") (return-type "GnomeVFSVolume*") ) (define-method unref (of-object "GnomeVFSVolume") (c-name "gnome_vfs_volume_unref") (return-type "none") ) (define-method get_id (of-object "GnomeVFSVolume") (c-name "gnome_vfs_volume_get_id") (return-type "gulong") ) (define-method get_volume_type (of-object "GnomeVFSVolume") (c-name "gnome_vfs_volume_get_volume_type") (return-type "GnomeVFSVolumeType") ) (define-method get_device_type (of-object "GnomeVFSVolume") (c-name "gnome_vfs_volume_get_device_type") (return-type "GnomeVFSDeviceType") ) (define-method get_drive (of-object "GnomeVFSVolume") (c-name "gnome_vfs_volume_get_drive") (return-type "GnomeVFSDrive*") ) (define-method get_device_path (of-object "GnomeVFSVolume") (c-name "gnome_vfs_volume_get_device_path") (return-type "char*") ) (define-method get_activation_uri (of-object "GnomeVFSVolume") (c-name "gnome_vfs_volume_get_activation_uri") (return-type "char*") ) (define-method get_filesystem_type (of-object "GnomeVFSVolume") (c-name "gnome_vfs_volume_get_filesystem_type") (return-type "char*") ) (define-method get_display_name (of-object "GnomeVFSVolume") (c-name "gnome_vfs_volume_get_display_name") (return-type "char*") ) (define-method get_icon (of-object "GnomeVFSVolume") (c-name "gnome_vfs_volume_get_icon") (return-type "char*") ) (define-method get_hal_udi (of-object "GnomeVFSVolume") (c-name "gnome_vfs_volume_get_hal_udi") (return-type "char*") ) (define-method is_user_visible (of-object "GnomeVFSVolume") (c-name "gnome_vfs_volume_is_user_visible") (return-type "gboolean") ) (define-method is_read_only (of-object "GnomeVFSVolume") (c-name "gnome_vfs_volume_is_read_only") (return-type "gboolean") ) (define-method is_mounted (of-object "GnomeVFSVolume") (c-name "gnome_vfs_volume_is_mounted") (return-type "gboolean") ) (define-method handles_trash (of-object "GnomeVFSVolume") (c-name "gnome_vfs_volume_handles_trash") (return-type "gboolean") ) (define-method compare (of-object "GnomeVFSVolume") (c-name "gnome_vfs_volume_compare") (return-type "gint") (parameters '("GnomeVFSVolume*" "b") ) ) (define-method unmount (of-object "GnomeVFSVolume") (c-name "gnome_vfs_volume_unmount") (return-type "none") (parameters '("GnomeVFSVolumeOpCallback" "callback") '("gpointer" "user_data") ) ) (define-method eject (of-object "GnomeVFSVolume") (c-name "gnome_vfs_volume_eject") (return-type "none") (parameters '("GnomeVFSVolumeOpCallback" "callback") '("gpointer" "user_data") ) ) (define-function gnome_vfs_connect_to_server (c-name "gnome_vfs_connect_to_server") (return-type "none") (parameters '("const-char*" "uri") '("const-char*" "display_name") '("const-char*" "icon") ) ) ;; From /opt/gnome2/include/gnome-vfs-2.0/libgnomevfs/gnome-vfs-volume-monitor.h (define-function gnome_vfs_volume_monitor_get_type (c-name "gnome_vfs_volume_monitor_get_type") (return-type "GType") ) (define-function gnome_vfs_get_volume_monitor (c-name "gnome_vfs_get_volume_monitor") (return-type "GnomeVFSVolumeMonitor*") ) (define-method ref (of-object "GnomeVFSVolumeMonitor") (c-name "gnome_vfs_volume_monitor_ref") (return-type "GnomeVFSVolumeMonitor*") ) (define-method unref (of-object "GnomeVFSVolumeMonitor") (c-name "gnome_vfs_volume_monitor_unref") (return-type "none") ) (define-method get_mounted_volumes (of-object "GnomeVFSVolumeMonitor") (c-name "gnome_vfs_volume_monitor_get_mounted_volumes") (return-type "GList*") ) (define-method get_connected_drives (of-object "GnomeVFSVolumeMonitor") (c-name "gnome_vfs_volume_monitor_get_connected_drives") (return-type "GList*") ) (define-method get_volume_for_path (of-object "GnomeVFSVolumeMonitor") (c-name "gnome_vfs_volume_monitor_get_volume_for_path") (return-type "GnomeVFSVolume*") (parameters '("const-char*" "path") ) ) (define-method get_volume_by_id (of-object "GnomeVFSVolumeMonitor") (c-name "gnome_vfs_volume_monitor_get_volume_by_id") (return-type "GnomeVFSVolume*") (parameters '("gulong" "id") ) ) (define-method get_drive_by_id (of-object "GnomeVFSVolumeMonitor") (c-name "gnome_vfs_volume_monitor_get_drive_by_id") (return-type "GnomeVFSDrive*") (parameters '("gulong" "id") ) ) ;; From /opt/gnome2/include/gnome-vfs-2.0/libgnomevfs/gnome-vfs-xfer.h (define-function gnome_vfs_xfer_uri_list (c-name "gnome_vfs_xfer_uri_list") (return-type "GnomeVFSResult") (parameters '("const-GList*" "source_uri_list") '("const-GList*" "target_uri_list") '("GnomeVFSXferOptions" "xfer_options") '("GnomeVFSXferErrorMode" "error_mode") '("GnomeVFSXferOverwriteMode" "overwrite_mode") '("GnomeVFSXferProgressCallback" "progress_callback") '("gpointer" "data") ) ) (define-function gnome_vfs_xfer_uri (c-name "gnome_vfs_xfer_uri") (return-type "GnomeVFSResult") (parameters '("const-GnomeVFSURI*" "source_uri") '("const-GnomeVFSURI*" "target_uri") '("GnomeVFSXferOptions" "xfer_options") '("GnomeVFSXferErrorMode" "error_mode") '("GnomeVFSXferOverwriteMode" "overwrite_mode") '("GnomeVFSXferProgressCallback" "progress_callback") '("gpointer" "data") ) ) (define-function gnome_vfs_xfer_delete_list (c-name "gnome_vfs_xfer_delete_list") (return-type "GnomeVFSResult") (parameters '("const-GList*" "source_uri_list") '("GnomeVFSXferErrorMode" "error_mode") '("GnomeVFSXferOptions" "xfer_options") '("GnomeVFSXferProgressCallback" "progress_callback") '("gpointer" "data") ) ) guile-gnome-platform-2.16.2/defs/gnome/defs/gconf-types.defs0000644000175000017500000000435511670374302024246 0ustar00wingowingo00000000000000;; -*- scheme -*- ;; Enumerations and flags ... (define-enum ConfClientPreloadType (in-module "G") (c-name "GConfClientPreloadType") (gtype-id "G_TYPE_CONF_CLIENT_PRELOAD_TYPE") (values '("none" "GCONF_CLIENT_PRELOAD_NONE") '("onelevel" "GCONF_CLIENT_PRELOAD_ONELEVEL") '("recursive" "GCONF_CLIENT_PRELOAD_RECURSIVE") ) ) (define-enum ConfClientErrorHandlingMode (in-module "G") (c-name "GConfClientErrorHandlingMode") (gtype-id "G_TYPE_CONF_CLIENT_ERROR_HANDLING_MODE") (values '("none" "GCONF_CLIENT_HANDLE_NONE") '("unreturned" "GCONF_CLIENT_HANDLE_UNRETURNED") '("all" "GCONF_CLIENT_HANDLE_ALL") ) ) (define-enum ConfError (in-module "G") (c-name "GConfError") (gtype-id "G_TYPE_CONF_ERROR") (values '("success" "GCONF_ERROR_SUCCESS") '("failed" "GCONF_ERROR_FAILED") '("no-server" "GCONF_ERROR_NO_SERVER") '("no-permission" "GCONF_ERROR_NO_PERMISSION") '("bad-address" "GCONF_ERROR_BAD_ADDRESS") '("bad-key" "GCONF_ERROR_BAD_KEY") '("parse-error" "GCONF_ERROR_PARSE_ERROR") '("corrupt" "GCONF_ERROR_CORRUPT") '("type-mismatch" "GCONF_ERROR_TYPE_MISMATCH") '("is-dir" "GCONF_ERROR_IS_DIR") '("is-key" "GCONF_ERROR_IS_KEY") '("overridden" "GCONF_ERROR_OVERRIDDEN") '("oaf-error" "GCONF_ERROR_OAF_ERROR") '("local-engine" "GCONF_ERROR_LOCAL_ENGINE") '("lock-failed" "GCONF_ERROR_LOCK_FAILED") '("no-writable-database" "GCONF_ERROR_NO_WRITABLE_DATABASE") '("in-shutdown" "GCONF_ERROR_IN_SHUTDOWN") ) ) (define-enum ConfValueType (in-module "G") (c-name "GConfValueType") (gtype-id "G_TYPE_CONF_VALUE_TYPE") (values '("invalid" "GCONF_VALUE_INVALID") '("string" "GCONF_VALUE_STRING") '("int" "GCONF_VALUE_INT") '("float" "GCONF_VALUE_FLOAT") '("bool" "GCONF_VALUE_BOOL") '("schema" "GCONF_VALUE_SCHEMA") '("list" "GCONF_VALUE_LIST") '("pair" "GCONF_VALUE_PAIR") ) ) (define-flags ConfUnsetFlags (in-module "G") (c-name "GConfUnsetFlags") (gtype-id "G_TYPE_CONF_UNSET_FLAGS") (values '("s" "GCONF_UNSET_INCLUDING_SCHEMA_NAMES") ) ) ;; -*- scheme -*- ; object definitions ... (define-object ConfClient (in-module "G") (parent "GObject") (c-name "GConfClient") (gtype-id "G_TYPE_CONF_CLIENT") ) guile-gnome-platform-2.16.2/defs/gnome/defs/pango.defs0000644000175000017500000014326111670374302023114 0ustar00wingowingo00000000000000;; -*- scheme -*- (include "common-ignores.defs") (include "pango-types.defs") (include overrides) ;; From /opt/gnome2/include/pango-1.0/pango/pango.h ;; From /opt/gnome2/include/pango-1.0/pango/pango-attributes.h (define-function pango_color_get_type (c-name "pango_color_get_type") (return-type "GType") ) (define-method copy (of-object "PangoColor") (c-name "pango_color_copy") (return-type "PangoColor*") ) (define-method free (of-object "PangoColor") (c-name "pango_color_free") (return-type "none") ) (define-method parse (of-object "PangoColor") (c-name "pango_color_parse") (return-type "gboolean") (parameters '("const-char*" "spec") ) ) (define-function pango_attr_type_register (c-name "pango_attr_type_register") (return-type "PangoAttrType") (parameters '("const-gchar*" "name") ) ) (define-method copy (of-object "PangoAttribute") (c-name "pango_attribute_copy") (return-type "PangoAttribute*") ) (define-method destroy (of-object "PangoAttribute") (c-name "pango_attribute_destroy") (return-type "none") ) (define-method equal (of-object "PangoAttribute") (c-name "pango_attribute_equal") (return-type "gboolean") (parameters '("const-PangoAttribute*" "attr2") ) ) (define-function pango_attr_language_new (c-name "pango_attr_language_new") (is-constructor-of "PangoAttrLanguage") (return-type "PangoAttribute*") (parameters '("PangoLanguage*" "language") ) ) (define-function pango_attr_family_new (c-name "pango_attr_family_new") (is-constructor-of "PangoAttrFamily") (return-type "PangoAttribute*") (parameters '("const-char*" "family") ) ) (define-function pango_attr_foreground_new (c-name "pango_attr_foreground_new") (is-constructor-of "PangoAttrForeground") (return-type "PangoAttribute*") (parameters '("guint16" "red") '("guint16" "green") '("guint16" "blue") ) ) (define-function pango_attr_background_new (c-name "pango_attr_background_new") (is-constructor-of "PangoAttrBackground") (return-type "PangoAttribute*") (parameters '("guint16" "red") '("guint16" "green") '("guint16" "blue") ) ) (define-function pango_attr_size_new (c-name "pango_attr_size_new") (is-constructor-of "PangoAttrSize") (return-type "PangoAttribute*") (parameters '("int" "size") ) ) (define-function pango_attr_size_new_absolute (c-name "pango_attr_size_new_absolute") (return-type "PangoAttribute*") (parameters '("int" "size") ) ) (define-function pango_attr_style_new (c-name "pango_attr_style_new") (is-constructor-of "PangoAttrStyle") (return-type "PangoAttribute*") (parameters '("PangoStyle" "style") ) ) (define-function pango_attr_weight_new (c-name "pango_attr_weight_new") (is-constructor-of "PangoAttrWeight") (return-type "PangoAttribute*") (parameters '("PangoWeight" "weight") ) ) (define-function pango_attr_variant_new (c-name "pango_attr_variant_new") (is-constructor-of "PangoAttrVariant") (return-type "PangoAttribute*") (parameters '("PangoVariant" "variant") ) ) (define-function pango_attr_stretch_new (c-name "pango_attr_stretch_new") (is-constructor-of "PangoAttrStretch") (return-type "PangoAttribute*") (parameters '("PangoStretch" "stretch") ) ) (define-function pango_attr_font_desc_new (c-name "pango_attr_font_desc_new") (is-constructor-of "PangoAttrFontDesc") (return-type "PangoAttribute*") (parameters '("const-PangoFontDescription*" "desc") ) ) (define-function pango_attr_underline_new (c-name "pango_attr_underline_new") (is-constructor-of "PangoAttrUnderline") (return-type "PangoAttribute*") (parameters '("PangoUnderline" "underline") ) ) (define-function pango_attr_underline_color_new (c-name "pango_attr_underline_color_new") (is-constructor-of "PangoAttrUnderlineColor") (return-type "PangoAttribute*") (parameters '("guint16" "red") '("guint16" "green") '("guint16" "blue") ) ) (define-function pango_attr_strikethrough_new (c-name "pango_attr_strikethrough_new") (is-constructor-of "PangoAttrStrikethrough") (return-type "PangoAttribute*") (parameters '("gboolean" "strikethrough") ) ) (define-function pango_attr_strikethrough_color_new (c-name "pango_attr_strikethrough_color_new") (is-constructor-of "PangoAttrStrikethroughColor") (return-type "PangoAttribute*") (parameters '("guint16" "red") '("guint16" "green") '("guint16" "blue") ) ) (define-function pango_attr_rise_new (c-name "pango_attr_rise_new") (is-constructor-of "PangoAttrRise") (return-type "PangoAttribute*") (parameters '("int" "rise") ) ) (define-function pango_attr_scale_new (c-name "pango_attr_scale_new") (is-constructor-of "PangoAttrScale") (return-type "PangoAttribute*") (parameters '("double" "scale_factor") ) ) (define-function pango_attr_fallback_new (c-name "pango_attr_fallback_new") (is-constructor-of "PangoAttrFallback") (return-type "PangoAttribute*") (parameters '("gboolean" "enable_fallback") ) ) (define-function pango_attr_letter_spacing_new (c-name "pango_attr_letter_spacing_new") (is-constructor-of "PangoAttrLetterSpacing") (return-type "PangoAttribute*") (parameters '("int" "letter_spacing") ) ) (define-function pango_attr_shape_new (c-name "pango_attr_shape_new") (is-constructor-of "PangoAttrShape") (return-type "PangoAttribute*") (parameters '("const-PangoRectangle*" "ink_rect") '("const-PangoRectangle*" "logical_rect") ) ) (define-function pango_attr_shape_new_with_data (c-name "pango_attr_shape_new_with_data") (return-type "PangoAttribute*") (parameters '("const-PangoRectangle*" "ink_rect") '("const-PangoRectangle*" "logical_rect") '("gpointer" "data") '("PangoAttrDataCopyFunc" "copy_func") '("GDestroyNotify" "destroy_func") ) ) (define-function pango_attr_list_get_type (c-name "pango_attr_list_get_type") (return-type "GType") ) (define-function pango_attr_list_new (c-name "pango_attr_list_new") (is-constructor-of "PangoAttrList") (return-type "PangoAttrList*") ) (define-method ref (of-object "PangoAttrList") (c-name "pango_attr_list_ref") (return-type "PangoAttrList*") ) (define-method unref (of-object "PangoAttrList") (c-name "pango_attr_list_unref") (return-type "none") ) (define-method copy (of-object "PangoAttrList") (c-name "pango_attr_list_copy") (return-type "PangoAttrList*") ) (define-method insert (of-object "PangoAttrList") (c-name "pango_attr_list_insert") (return-type "none") (parameters '("PangoAttribute*" "attr") ) ) (define-method insert_before (of-object "PangoAttrList") (c-name "pango_attr_list_insert_before") (return-type "none") (parameters '("PangoAttribute*" "attr") ) ) (define-method change (of-object "PangoAttrList") (c-name "pango_attr_list_change") (return-type "none") (parameters '("PangoAttribute*" "attr") ) ) (define-method splice (of-object "PangoAttrList") (c-name "pango_attr_list_splice") (return-type "none") (parameters '("PangoAttrList*" "other") '("gint" "pos") '("gint" "len") ) ) (define-method filter (of-object "PangoAttrList") (c-name "pango_attr_list_filter") (return-type "PangoAttrList*") (parameters '("PangoAttrFilterFunc" "func") '("gpointer" "data") ) ) (define-method get_iterator (of-object "PangoAttrList") (c-name "pango_attr_list_get_iterator") (return-type "PangoAttrIterator*") ) (define-method range (of-object "PangoAttrIterator") (c-name "pango_attr_iterator_range") (return-type "none") (parameters '("gint*" "start") '("gint*" "end") ) ) (define-method next (of-object "PangoAttrIterator") (c-name "pango_attr_iterator_next") (return-type "gboolean") ) (define-method copy (of-object "PangoAttrIterator") (c-name "pango_attr_iterator_copy") (return-type "PangoAttrIterator*") ) (define-method destroy (of-object "PangoAttrIterator") (c-name "pango_attr_iterator_destroy") (return-type "none") ) (define-method get (of-object "PangoAttrIterator") (c-name "pango_attr_iterator_get") (return-type "PangoAttribute*") (parameters '("PangoAttrType" "type") ) ) (define-method get_font (of-object "PangoAttrIterator") (c-name "pango_attr_iterator_get_font") (return-type "none") (parameters '("PangoFontDescription*" "desc") '("PangoLanguage**" "language") '("GSList**" "extra_attrs") ) ) (define-method get_attrs (of-object "PangoAttrIterator") (c-name "pango_attr_iterator_get_attrs") (return-type "GSList*") ) (define-function pango_parse_markup (c-name "pango_parse_markup") (return-type "gboolean") (parameters '("const-char*" "markup_text") '("int" "length") '("gunichar" "accel_marker") '("PangoAttrList**" "attr_list") '("char**" "text") '("gunichar*" "accel_char") '("GError**" "error") ) ) ;; From /opt/gnome2/include/pango-1.0/pango/pango-break.h (define-function pango_break (c-name "pango_break") (return-type "none") (parameters '("const-gchar*" "text") '("int" "length") '("PangoAnalysis*" "analysis") '("PangoLogAttr*" "attrs") '("int" "attrs_len") ) ) (define-function pango_find_paragraph_boundary (c-name "pango_find_paragraph_boundary") (return-type "none") (parameters '("const-gchar*" "text") '("gint" "length") '("gint*" "paragraph_delimiter_index") '("gint*" "next_paragraph_start") ) ) (define-function pango_get_log_attrs (c-name "pango_get_log_attrs") (return-type "none") (parameters '("const-char*" "text") '("int" "length") '("int" "level") '("PangoLanguage*" "language") '("PangoLogAttr*" "log_attrs") '("int" "attrs_len") ) ) (define-function pango_default_break (c-name "pango_default_break") (return-type "none") (parameters '("const-gchar*" "text") '("int" "length") '("PangoAnalysis*" "analysis") '("PangoLogAttr*" "attrs") '("int" "attrs_len") ) ) ;; From /opt/gnome2/include/pango-1.0/pango/pango-context.h (define-function pango_context_get_type (c-name "pango_context_get_type") (return-type "GType") ) (define-function pango_context_new (c-name "pango_context_new") (is-constructor-of "PangoContext") (return-type "PangoContext*") ) (define-method set_font_map (of-object "PangoContext") (c-name "pango_context_set_font_map") (return-type "none") (parameters '("PangoFontMap*" "font_map") ) ) (define-method get_font_map (of-object "PangoContext") (c-name "pango_context_get_font_map") (return-type "PangoFontMap*") ) (define-method list_families (of-object "PangoContext") (c-name "pango_context_list_families") (return-type "none") (parameters '("PangoFontFamily***" "families") '("int*" "n_families") ) ) (define-method load_font (of-object "PangoContext") (c-name "pango_context_load_font") (return-type "PangoFont*") (parameters '("const-PangoFontDescription*" "desc") ) ) (define-method load_fontset (of-object "PangoContext") (c-name "pango_context_load_fontset") (return-type "PangoFontset*") (parameters '("const-PangoFontDescription*" "desc") '("PangoLanguage*" "language") ) ) (define-method get_metrics (of-object "PangoContext") (c-name "pango_context_get_metrics") (return-type "PangoFontMetrics*") (parameters '("const-PangoFontDescription*" "desc") '("PangoLanguage*" "language") ) ) (define-method set_font_description (of-object "PangoContext") (c-name "pango_context_set_font_description") (return-type "none") (parameters '("const-PangoFontDescription*" "desc") ) ) (define-method get_font_description (of-object "PangoContext") (c-name "pango_context_get_font_description") (return-type "PangoFontDescription*") ) (define-method get_language (of-object "PangoContext") (c-name "pango_context_get_language") (return-type "PangoLanguage*") ) (define-method set_language (of-object "PangoContext") (c-name "pango_context_set_language") (return-type "none") (parameters '("PangoLanguage*" "language") ) ) (define-method set_base_dir (of-object "PangoContext") (c-name "pango_context_set_base_dir") (return-type "none") (parameters '("PangoDirection" "direction") ) ) (define-method get_base_dir (of-object "PangoContext") (c-name "pango_context_get_base_dir") (return-type "PangoDirection") ) (define-method set_matrix (of-object "PangoContext") (c-name "pango_context_set_matrix") (return-type "none") (parameters '("const-PangoMatrix*" "matrix") ) ) (define-method get_matrix (of-object "PangoContext") (c-name "pango_context_get_matrix") (return-type "const-PangoMatrix*") ) (define-function pango_itemize (c-name "pango_itemize") (return-type "GList*") (parameters '("PangoContext*" "context") '("const-char*" "text") '("int" "start_index") '("int" "length") '("PangoAttrList*" "attrs") '("PangoAttrIterator*" "cached_iter") ) ) (define-function pango_itemize_with_base_dir (c-name "pango_itemize_with_base_dir") (return-type "GList*") (parameters '("PangoContext*" "context") '("PangoDirection" "base_dir") '("const-char*" "text") '("int" "start_index") '("int" "length") '("PangoAttrList*" "attrs") '("PangoAttrIterator*" "cached_iter") ) ) ;; From /opt/gnome2/include/pango-1.0/pango/pango-coverage.h (define-function pango_coverage_new (c-name "pango_coverage_new") (is-constructor-of "PangoCoverage") (return-type "PangoCoverage*") ) (define-method ref (of-object "PangoCoverage") (c-name "pango_coverage_ref") (return-type "PangoCoverage*") ) (define-method unref (of-object "PangoCoverage") (c-name "pango_coverage_unref") (return-type "none") ) (define-method copy (of-object "PangoCoverage") (c-name "pango_coverage_copy") (return-type "PangoCoverage*") ) (define-method get (of-object "PangoCoverage") (c-name "pango_coverage_get") (return-type "PangoCoverageLevel") (parameters '("int" "index_") ) ) (define-method set (of-object "PangoCoverage") (c-name "pango_coverage_set") (return-type "none") (parameters '("int" "index_") '("PangoCoverageLevel" "level") ) ) (define-method max (of-object "PangoCoverage") (c-name "pango_coverage_max") (return-type "none") (parameters '("PangoCoverage*" "other") ) ) (define-method to_bytes (of-object "PangoCoverage") (c-name "pango_coverage_to_bytes") (return-type "none") (parameters '("guchar**" "bytes") '("int*" "n_bytes") ) ) (define-function pango_coverage_from_bytes (c-name "pango_coverage_from_bytes") (return-type "PangoCoverage*") (parameters '("guchar*" "bytes") '("int" "n_bytes") ) ) ;; From /opt/gnome2/include/pango-1.0/pango/pango-enum-types.h (define-function pango_attr_type_get_type (c-name "pango_attr_type_get_type") (return-type "GType") ) (define-function pango_underline_get_type (c-name "pango_underline_get_type") (return-type "GType") ) (define-function pango_coverage_level_get_type (c-name "pango_coverage_level_get_type") (return-type "GType") ) (define-function pango_style_get_type (c-name "pango_style_get_type") (return-type "GType") ) (define-function pango_variant_get_type (c-name "pango_variant_get_type") (return-type "GType") ) (define-function pango_weight_get_type (c-name "pango_weight_get_type") (return-type "GType") ) (define-function pango_stretch_get_type (c-name "pango_stretch_get_type") (return-type "GType") ) (define-function pango_font_mask_get_type (c-name "pango_font_mask_get_type") (return-type "GType") ) (define-function pango_alignment_get_type (c-name "pango_alignment_get_type") (return-type "GType") ) (define-function pango_wrap_mode_get_type (c-name "pango_wrap_mode_get_type") (return-type "GType") ) (define-function pango_ellipsize_mode_get_type (c-name "pango_ellipsize_mode_get_type") (return-type "GType") ) (define-function pango_render_part_get_type (c-name "pango_render_part_get_type") (return-type "GType") ) (define-function pango_script_get_type (c-name "pango_script_get_type") (return-type "GType") ) (define-function pango_tab_align_get_type (c-name "pango_tab_align_get_type") (return-type "GType") ) (define-function pango_direction_get_type (c-name "pango_direction_get_type") (return-type "GType") ) ;; From /opt/gnome2/include/pango-1.0/pango/pango-font.h (define-function pango_font_description_get_type (c-name "pango_font_description_get_type") (return-type "GType") ) (define-function pango_font_description_new (c-name "pango_font_description_new") (is-constructor-of "PangoFontDescription") (return-type "PangoFontDescription*") ) (define-method copy (of-object "PangoFontDescription") (c-name "pango_font_description_copy") (return-type "PangoFontDescription*") ) (define-method copy_static (of-object "PangoFontDescription") (c-name "pango_font_description_copy_static") (return-type "PangoFontDescription*") ) (define-method hash (of-object "PangoFontDescription") (c-name "pango_font_description_hash") (return-type "guint") ) (define-method equal (of-object "PangoFontDescription") (c-name "pango_font_description_equal") (return-type "gboolean") (parameters '("const-PangoFontDescription*" "desc2") ) ) (define-method free (of-object "PangoFontDescription") (c-name "pango_font_description_free") (return-type "none") ) (define-function pango_font_descriptions_free (c-name "pango_font_descriptions_free") (return-type "none") (parameters '("PangoFontDescription**" "descs") '("int" "n_descs") ) ) (define-method set_family (of-object "PangoFontDescription") (c-name "pango_font_description_set_family") (return-type "none") (parameters '("const-char*" "family") ) ) (define-method set_family_static (of-object "PangoFontDescription") (c-name "pango_font_description_set_family_static") (return-type "none") (parameters '("const-char*" "family") ) ) (define-method get_family (of-object "PangoFontDescription") (c-name "pango_font_description_get_family") (return-type "const-char*") ) (define-method set_style (of-object "PangoFontDescription") (c-name "pango_font_description_set_style") (return-type "none") (parameters '("PangoStyle" "style") ) ) (define-method get_style (of-object "PangoFontDescription") (c-name "pango_font_description_get_style") (return-type "PangoStyle") ) (define-method set_variant (of-object "PangoFontDescription") (c-name "pango_font_description_set_variant") (return-type "none") (parameters '("PangoVariant" "variant") ) ) (define-method get_variant (of-object "PangoFontDescription") (c-name "pango_font_description_get_variant") (return-type "PangoVariant") ) (define-method set_weight (of-object "PangoFontDescription") (c-name "pango_font_description_set_weight") (return-type "none") (parameters '("PangoWeight" "weight") ) ) (define-method get_weight (of-object "PangoFontDescription") (c-name "pango_font_description_get_weight") (return-type "PangoWeight") ) (define-method set_stretch (of-object "PangoFontDescription") (c-name "pango_font_description_set_stretch") (return-type "none") (parameters '("PangoStretch" "stretch") ) ) (define-method get_stretch (of-object "PangoFontDescription") (c-name "pango_font_description_get_stretch") (return-type "PangoStretch") ) (define-method set_size (of-object "PangoFontDescription") (c-name "pango_font_description_set_size") (return-type "none") (parameters '("gint" "size") ) ) (define-method get_size (of-object "PangoFontDescription") (c-name "pango_font_description_get_size") (return-type "gint") ) (define-method set_absolute_size (of-object "PangoFontDescription") (c-name "pango_font_description_set_absolute_size") (return-type "none") (parameters '("double" "size") ) ) (define-method get_size_is_absolute (of-object "PangoFontDescription") (c-name "pango_font_description_get_size_is_absolute") (return-type "gboolean") ) (define-method get_set_fields (of-object "PangoFontDescription") (c-name "pango_font_description_get_set_fields") (return-type "PangoFontMask") ) (define-method unset_fields (of-object "PangoFontDescription") (c-name "pango_font_description_unset_fields") (return-type "none") (parameters '("PangoFontMask" "to_unset") ) ) (define-method merge (of-object "PangoFontDescription") (c-name "pango_font_description_merge") (return-type "none") (parameters '("const-PangoFontDescription*" "desc_to_merge") '("gboolean" "replace_existing") ) ) (define-method merge_static (of-object "PangoFontDescription") (c-name "pango_font_description_merge_static") (return-type "none") (parameters '("const-PangoFontDescription*" "desc_to_merge") '("gboolean" "replace_existing") ) ) (define-method better_match (of-object "PangoFontDescription") (c-name "pango_font_description_better_match") (return-type "gboolean") (parameters '("const-PangoFontDescription*" "old_match") '("const-PangoFontDescription*" "new_match") ) ) (define-function pango_font_description_from_string (c-name "pango_font_description_from_string") (return-type "PangoFontDescription*") (parameters '("const-char*" "str") ) ) (define-method to_string (of-object "PangoFontDescription") (c-name "pango_font_description_to_string") (return-type "char*") ) (define-method to_filename (of-object "PangoFontDescription") (c-name "pango_font_description_to_filename") (return-type "char*") ) (define-function pango_font_metrics_get_type (c-name "pango_font_metrics_get_type") (return-type "GType") ) (define-method ref (of-object "PangoFontMetrics") (c-name "pango_font_metrics_ref") (return-type "PangoFontMetrics*") ) (define-method unref (of-object "PangoFontMetrics") (c-name "pango_font_metrics_unref") (return-type "none") ) (define-method get_ascent (of-object "PangoFontMetrics") (c-name "pango_font_metrics_get_ascent") (return-type "int") ) (define-method get_descent (of-object "PangoFontMetrics") (c-name "pango_font_metrics_get_descent") (return-type "int") ) (define-method get_approximate_char_width (of-object "PangoFontMetrics") (c-name "pango_font_metrics_get_approximate_char_width") (return-type "int") ) (define-method get_approximate_digit_width (of-object "PangoFontMetrics") (c-name "pango_font_metrics_get_approximate_digit_width") (return-type "int") ) (define-method get_underline_position (of-object "PangoFontMetrics") (c-name "pango_font_metrics_get_underline_position") (return-type "int") ) (define-method get_underline_thickness (of-object "PangoFontMetrics") (c-name "pango_font_metrics_get_underline_thickness") (return-type "int") ) (define-method get_strikethrough_position (of-object "PangoFontMetrics") (c-name "pango_font_metrics_get_strikethrough_position") (return-type "int") ) (define-method get_strikethrough_thickness (of-object "PangoFontMetrics") (c-name "pango_font_metrics_get_strikethrough_thickness") (return-type "int") ) (define-function pango_font_metrics_new (c-name "pango_font_metrics_new") (is-constructor-of "PangoFontMetrics") (return-type "PangoFontMetrics*") ) (define-function pango_font_family_get_type (c-name "pango_font_family_get_type") (return-type "GType") ) (define-method list_faces (of-object "PangoFontFamily") (c-name "pango_font_family_list_faces") (return-type "none") (parameters '("PangoFontFace***" "faces") '("int*" "n_faces") ) ) (define-method get_name (of-object "PangoFontFamily") (c-name "pango_font_family_get_name") (return-type "const-char*") ) (define-method is_monospace (of-object "PangoFontFamily") (c-name "pango_font_family_is_monospace") (return-type "gboolean") ) (define-function pango_font_face_get_type (c-name "pango_font_face_get_type") (return-type "GType") ) (define-method describe (of-object "PangoFontFace") (c-name "pango_font_face_describe") (return-type "PangoFontDescription*") ) (define-method get_face_name (of-object "PangoFontFace") (c-name "pango_font_face_get_face_name") (return-type "const-char*") ) (define-method list_sizes (of-object "PangoFontFace") (c-name "pango_font_face_list_sizes") (return-type "none") (parameters '("int**" "sizes") '("int*" "n_sizes") ) ) (define-function pango_font_get_type (c-name "pango_font_get_type") (return-type "GType") ) (define-method describe (of-object "PangoFont") (c-name "pango_font_describe") (return-type "PangoFontDescription*") ) (define-method describe_with_absolute_size (of-object "PangoFont") (c-name "pango_font_describe_with_absolute_size") (return-type "PangoFontDescription*") ) (define-method get_coverage (of-object "PangoFont") (c-name "pango_font_get_coverage") (return-type "PangoCoverage*") (parameters '("PangoLanguage*" "language") ) ) (define-method find_shaper (of-object "PangoFont") (c-name "pango_font_find_shaper") (return-type "PangoEngineShape*") (parameters '("PangoLanguage*" "language") '("guint32" "ch") ) ) (define-method get_metrics (of-object "PangoFont") (c-name "pango_font_get_metrics") (return-type "PangoFontMetrics*") (parameters '("PangoLanguage*" "language") ) ) (define-method get_glyph_extents (of-object "PangoFont") (c-name "pango_font_get_glyph_extents") (return-type "none") (parameters '("PangoGlyph" "glyph") '("PangoRectangle*" "ink_rect") '("PangoRectangle*" "logical_rect") ) ) (define-method get_font_map (of-object "PangoFont") (c-name "pango_font_get_font_map") (return-type "PangoFontMap*") ) ;; From /opt/gnome2/include/pango-1.0/pango/pango-fontmap.h (define-function pango_font_map_get_type (c-name "pango_font_map_get_type") (return-type "GType") ) (define-method load_font (of-object "PangoFontMap") (c-name "pango_font_map_load_font") (return-type "PangoFont*") (parameters '("PangoContext*" "context") '("const-PangoFontDescription*" "desc") ) ) (define-method load_fontset (of-object "PangoFontMap") (c-name "pango_font_map_load_fontset") (return-type "PangoFontset*") (parameters '("PangoContext*" "context") '("const-PangoFontDescription*" "desc") '("PangoLanguage*" "language") ) ) (define-method list_families (of-object "PangoFontMap") (c-name "pango_font_map_list_families") (return-type "none") (parameters '("PangoFontFamily***" "families") '("int*" "n_families") ) ) (define-method get_shape_engine_type (of-object "PangoFontMap") (c-name "pango_font_map_get_shape_engine_type") (return-type "const-char*") ) ;; From /opt/gnome2/include/pango-1.0/pango/pango-glyph.h (define-function pango_glyph_string_new (c-name "pango_glyph_string_new") (is-constructor-of "PangoGlyphString") (return-type "PangoGlyphString*") ) (define-method set_size (of-object "PangoGlyphString") (c-name "pango_glyph_string_set_size") (return-type "none") (parameters '("gint" "new_len") ) ) (define-function pango_glyph_string_get_type (c-name "pango_glyph_string_get_type") (return-type "GType") ) (define-method copy (of-object "PangoGlyphString") (c-name "pango_glyph_string_copy") (return-type "PangoGlyphString*") ) (define-method free (of-object "PangoGlyphString") (c-name "pango_glyph_string_free") (return-type "none") ) (define-method extents (of-object "PangoGlyphString") (c-name "pango_glyph_string_extents") (return-type "none") (parameters '("PangoFont*" "font") '("PangoRectangle*" "ink_rect") '("PangoRectangle*" "logical_rect") ) ) (define-method get_width (of-object "PangoGlyphString") (c-name "pango_glyph_string_get_width") (return-type "int") ) (define-method extents_range (of-object "PangoGlyphString") (c-name "pango_glyph_string_extents_range") (return-type "none") (parameters '("int" "start") '("int" "end") '("PangoFont*" "font") '("PangoRectangle*" "ink_rect") '("PangoRectangle*" "logical_rect") ) ) (define-method get_logical_widths (of-object "PangoGlyphString") (c-name "pango_glyph_string_get_logical_widths") (return-type "none") (parameters '("const-char*" "text") '("int" "length") '("int" "embedding_level") '("int*" "logical_widths") ) ) (define-method index_to_x (of-object "PangoGlyphString") (c-name "pango_glyph_string_index_to_x") (return-type "none") (parameters '("char*" "text") '("int" "length") '("PangoAnalysis*" "analysis") '("int" "index_") '("gboolean" "trailing") '("int*" "x_pos") ) ) (define-method x_to_index (of-object "PangoGlyphString") (c-name "pango_glyph_string_x_to_index") (return-type "none") (parameters '("char*" "text") '("int" "length") '("PangoAnalysis*" "analysis") '("int" "x_pos") '("int*" "index_") '("int*" "trailing") ) ) (define-function pango_shape (c-name "pango_shape") (return-type "none") (parameters '("const-gchar*" "text") '("gint" "length") '("const-PangoAnalysis*" "analysis") '("PangoGlyphString*" "glyphs") ) ) (define-function pango_reorder_items (c-name "pango_reorder_items") (return-type "GList*") (parameters '("GList*" "logical_items") ) ) ;; From /opt/gnome2/include/pango-1.0/pango/pango-item.h (define-function pango_item_get_type (c-name "pango_item_get_type") (return-type "GType") ) (define-function pango_item_new (c-name "pango_item_new") (is-constructor-of "PangoItem") (return-type "PangoItem*") ) (define-method copy (of-object "PangoItem") (c-name "pango_item_copy") (return-type "PangoItem*") ) (define-method free (of-object "PangoItem") (c-name "pango_item_free") (return-type "none") ) (define-method split (of-object "PangoItem") (c-name "pango_item_split") (return-type "PangoItem*") (parameters '("int" "split_index") '("int" "split_offset") ) ) ;; From /opt/gnome2/include/pango-1.0/pango/pango-layout.h (define-function pango_layout_get_type (c-name "pango_layout_get_type") (return-type "GType") ) (define-function pango_layout_new (c-name "pango_layout_new") (is-constructor-of "PangoLayout") (return-type "PangoLayout*") (parameters '("PangoContext*" "context") ) ) (define-method copy (of-object "PangoLayout") (c-name "pango_layout_copy") (return-type "PangoLayout*") ) (define-method get_context (of-object "PangoLayout") (c-name "pango_layout_get_context") (return-type "PangoContext*") ) (define-method set_attributes (of-object "PangoLayout") (c-name "pango_layout_set_attributes") (return-type "none") (parameters '("PangoAttrList*" "attrs") ) ) (define-method get_attributes (of-object "PangoLayout") (c-name "pango_layout_get_attributes") (return-type "PangoAttrList*") ) (define-method set_text (of-object "PangoLayout") (c-name "pango_layout_set_text") (return-type "none") (parameters '("const-char*" "text") '("int" "length") ) ) (define-method get_text (of-object "PangoLayout") (c-name "pango_layout_get_text") (return-type "const-char*") ) (define-method set_markup (of-object "PangoLayout") (c-name "pango_layout_set_markup") (return-type "none") (parameters '("const-char*" "markup") '("int" "length") ) ) (define-method set_markup_with_accel (of-object "PangoLayout") (c-name "pango_layout_set_markup_with_accel") (return-type "none") (parameters '("const-char*" "markup") '("int" "length") '("gunichar" "accel_marker") '("gunichar*" "accel_char") ) ) (define-method set_font_description (of-object "PangoLayout") (c-name "pango_layout_set_font_description") (return-type "none") (parameters '("const-PangoFontDescription*" "desc") ) ) (define-method get_font_description (of-object "PangoLayout") (c-name "pango_layout_get_font_description") (return-type "const-PangoFontDescription*") ) (define-method set_width (of-object "PangoLayout") (c-name "pango_layout_set_width") (return-type "none") (parameters '("int" "width") ) ) (define-method get_width (of-object "PangoLayout") (c-name "pango_layout_get_width") (return-type "int") ) (define-method set_wrap (of-object "PangoLayout") (c-name "pango_layout_set_wrap") (return-type "none") (parameters '("PangoWrapMode" "wrap") ) ) (define-method get_wrap (of-object "PangoLayout") (c-name "pango_layout_get_wrap") (return-type "PangoWrapMode") ) (define-method set_indent (of-object "PangoLayout") (c-name "pango_layout_set_indent") (return-type "none") (parameters '("int" "indent") ) ) (define-method get_indent (of-object "PangoLayout") (c-name "pango_layout_get_indent") (return-type "int") ) (define-method set_spacing (of-object "PangoLayout") (c-name "pango_layout_set_spacing") (return-type "none") (parameters '("int" "spacing") ) ) (define-method get_spacing (of-object "PangoLayout") (c-name "pango_layout_get_spacing") (return-type "int") ) (define-method set_justify (of-object "PangoLayout") (c-name "pango_layout_set_justify") (return-type "none") (parameters '("gboolean" "justify") ) ) (define-method get_justify (of-object "PangoLayout") (c-name "pango_layout_get_justify") (return-type "gboolean") ) (define-method set_auto_dir (of-object "PangoLayout") (c-name "pango_layout_set_auto_dir") (return-type "none") (parameters '("gboolean" "auto_dir") ) ) (define-method get_auto_dir (of-object "PangoLayout") (c-name "pango_layout_get_auto_dir") (return-type "gboolean") ) (define-method set_alignment (of-object "PangoLayout") (c-name "pango_layout_set_alignment") (return-type "none") (parameters '("PangoAlignment" "alignment") ) ) (define-method get_alignment (of-object "PangoLayout") (c-name "pango_layout_get_alignment") (return-type "PangoAlignment") ) (define-method set_tabs (of-object "PangoLayout") (c-name "pango_layout_set_tabs") (return-type "none") (parameters '("PangoTabArray*" "tabs") ) ) (define-method get_tabs (of-object "PangoLayout") (c-name "pango_layout_get_tabs") (return-type "PangoTabArray*") ) (define-method set_single_paragraph_mode (of-object "PangoLayout") (c-name "pango_layout_set_single_paragraph_mode") (return-type "none") (parameters '("gboolean" "setting") ) ) (define-method get_single_paragraph_mode (of-object "PangoLayout") (c-name "pango_layout_get_single_paragraph_mode") (return-type "gboolean") ) (define-method set_ellipsize (of-object "PangoLayout") (c-name "pango_layout_set_ellipsize") (return-type "none") (parameters '("PangoEllipsizeMode" "ellipsize") ) ) (define-method get_ellipsize (of-object "PangoLayout") (c-name "pango_layout_get_ellipsize") (return-type "PangoEllipsizeMode") ) (define-method context_changed (of-object "PangoLayout") (c-name "pango_layout_context_changed") (return-type "none") ) (define-method get_log_attrs (of-object "PangoLayout") (c-name "pango_layout_get_log_attrs") (return-type "none") (parameters '("PangoLogAttr**" "attrs") '("gint*" "n_attrs") ) ) (define-method index_to_pos (of-object "PangoLayout") (c-name "pango_layout_index_to_pos") (return-type "none") (parameters '("int" "index_") '("PangoRectangle*" "pos") ) ) (define-method index_to_line_x (of-object "PangoLayout") (c-name "pango_layout_index_to_line_x") (return-type "none") (parameters '("int" "index_") '("gboolean" "trailing") '("int*" "line") '("int*" "x_pos") ) ) (define-method get_cursor_pos (of-object "PangoLayout") (c-name "pango_layout_get_cursor_pos") (return-type "none") (parameters '("int" "index_") '("PangoRectangle*" "strong_pos") '("PangoRectangle*" "weak_pos") ) ) (define-method move_cursor_visually (of-object "PangoLayout") (c-name "pango_layout_move_cursor_visually") (return-type "none") (parameters '("gboolean" "strong") '("int" "old_index") '("int" "old_trailing") '("int" "direction") '("int*" "new_index") '("int*" "new_trailing") ) ) (define-method xy_to_index (of-object "PangoLayout") (c-name "pango_layout_xy_to_index") (return-type "gboolean") (parameters '("int" "x") '("int" "y") '("int*" "index_") '("int*" "trailing") ) ) (define-method get_extents (of-object "PangoLayout") (c-name "pango_layout_get_extents") (return-type "none") (parameters '("PangoRectangle*" "ink_rect") '("PangoRectangle*" "logical_rect") ) ) (define-method get_pixel_extents (of-object "PangoLayout") (c-name "pango_layout_get_pixel_extents") (return-type "none") (parameters '("PangoRectangle*" "ink_rect") '("PangoRectangle*" "logical_rect") ) ) (define-method get_size (of-object "PangoLayout") (c-name "pango_layout_get_size") (return-type "none") (parameters '("int*" "width") '("int*" "height") ) ) (define-method get_pixel_size (of-object "PangoLayout") (c-name "pango_layout_get_pixel_size") (return-type "none") (parameters '("int*" "width") '("int*" "height") ) ) (define-method get_line_count (of-object "PangoLayout") (c-name "pango_layout_get_line_count") (return-type "int") ) (define-method get_line (of-object "PangoLayout") (c-name "pango_layout_get_line") (return-type "PangoLayoutLine*") (parameters '("int" "line") ) ) (define-method get_lines (of-object "PangoLayout") (c-name "pango_layout_get_lines") (return-type "GSList*") ) (define-function pango_layout_line_get_type (c-name "pango_layout_line_get_type") (return-type "GType") ) (define-method ref (of-object "PangoLayoutLine") (c-name "pango_layout_line_ref") (return-type "PangoLayoutLine*") ) (define-method unref (of-object "PangoLayoutLine") (c-name "pango_layout_line_unref") (return-type "none") ) (define-method x_to_index (of-object "PangoLayoutLine") (c-name "pango_layout_line_x_to_index") (return-type "gboolean") (parameters '("int" "x_pos") '("int*" "index_") '("int*" "trailing") ) ) (define-method index_to_x (of-object "PangoLayoutLine") (c-name "pango_layout_line_index_to_x") (return-type "none") (parameters '("int" "index_") '("gboolean" "trailing") '("int*" "x_pos") ) ) (define-method get_x_ranges (of-object "PangoLayoutLine") (c-name "pango_layout_line_get_x_ranges") (return-type "none") (parameters '("int" "start_index") '("int" "end_index") '("int**" "ranges") '("int*" "n_ranges") ) ) (define-method get_extents (of-object "PangoLayoutLine") (c-name "pango_layout_line_get_extents") (return-type "none") (parameters '("PangoRectangle*" "ink_rect") '("PangoRectangle*" "logical_rect") ) ) (define-method get_pixel_extents (of-object "PangoLayoutLine") (c-name "pango_layout_line_get_pixel_extents") (return-type "none") (parameters '("PangoRectangle*" "ink_rect") '("PangoRectangle*" "logical_rect") ) ) (define-function pango_layout_iter_get_type (c-name "pango_layout_iter_get_type") (return-type "GType") ) (define-method get_iter (of-object "PangoLayout") (c-name "pango_layout_get_iter") (return-type "PangoLayoutIter*") ) (define-method free (of-object "PangoLayoutIter") (c-name "pango_layout_iter_free") (return-type "none") ) (define-method get_index (of-object "PangoLayoutIter") (c-name "pango_layout_iter_get_index") (return-type "int") ) (define-method get_run (of-object "PangoLayoutIter") (c-name "pango_layout_iter_get_run") (return-type "PangoLayoutRun*") ) (define-method get_line (of-object "PangoLayoutIter") (c-name "pango_layout_iter_get_line") (return-type "PangoLayoutLine*") ) (define-method at_last_line (of-object "PangoLayoutIter") (c-name "pango_layout_iter_at_last_line") (return-type "gboolean") ) (define-method next_char (of-object "PangoLayoutIter") (c-name "pango_layout_iter_next_char") (return-type "gboolean") ) (define-method next_cluster (of-object "PangoLayoutIter") (c-name "pango_layout_iter_next_cluster") (return-type "gboolean") ) (define-method next_run (of-object "PangoLayoutIter") (c-name "pango_layout_iter_next_run") (return-type "gboolean") ) (define-method next_line (of-object "PangoLayoutIter") (c-name "pango_layout_iter_next_line") (return-type "gboolean") ) (define-method get_char_extents (of-object "PangoLayoutIter") (c-name "pango_layout_iter_get_char_extents") (return-type "none") (parameters '("PangoRectangle*" "logical_rect") ) ) (define-method get_cluster_extents (of-object "PangoLayoutIter") (c-name "pango_layout_iter_get_cluster_extents") (return-type "none") (parameters '("PangoRectangle*" "ink_rect") '("PangoRectangle*" "logical_rect") ) ) (define-method get_run_extents (of-object "PangoLayoutIter") (c-name "pango_layout_iter_get_run_extents") (return-type "none") (parameters '("PangoRectangle*" "ink_rect") '("PangoRectangle*" "logical_rect") ) ) (define-method get_line_extents (of-object "PangoLayoutIter") (c-name "pango_layout_iter_get_line_extents") (return-type "none") (parameters '("PangoRectangle*" "ink_rect") '("PangoRectangle*" "logical_rect") ) ) (define-method get_line_yrange (of-object "PangoLayoutIter") (c-name "pango_layout_iter_get_line_yrange") (return-type "none") (parameters '("int*" "y0_") '("int*" "y1_") ) ) (define-method get_layout_extents (of-object "PangoLayoutIter") (c-name "pango_layout_iter_get_layout_extents") (return-type "none") (parameters '("PangoRectangle*" "ink_rect") '("PangoRectangle*" "logical_rect") ) ) (define-method get_baseline (of-object "PangoLayoutIter") (c-name "pango_layout_iter_get_baseline") (return-type "int") ) ;; From /opt/gnome2/include/pango-1.0/pango/pango-renderer.h (define-function pango_renderer_get_type (c-name "pango_renderer_get_type") (return-type "GType") ) (define-method draw_layout (of-object "PangoRenderer") (c-name "pango_renderer_draw_layout") (return-type "none") (parameters '("PangoLayout*" "layout") '("int" "x") '("int" "y") ) ) (define-method draw_layout_line (of-object "PangoRenderer") (c-name "pango_renderer_draw_layout_line") (return-type "none") (parameters '("PangoLayoutLine*" "line") '("int" "x") '("int" "y") ) ) (define-method draw_glyphs (of-object "PangoRenderer") (c-name "pango_renderer_draw_glyphs") (return-type "none") (parameters '("PangoFont*" "font") '("PangoGlyphString*" "glyphs") '("int" "x") '("int" "y") ) ) (define-method draw_rectangle (of-object "PangoRenderer") (c-name "pango_renderer_draw_rectangle") (return-type "none") (parameters '("PangoRenderPart" "part") '("int" "x") '("int" "y") '("int" "width") '("int" "height") ) ) (define-method draw_error_underline (of-object "PangoRenderer") (c-name "pango_renderer_draw_error_underline") (return-type "none") (parameters '("int" "x") '("int" "y") '("int" "width") '("int" "height") ) ) (define-method draw_trapezoid (of-object "PangoRenderer") (c-name "pango_renderer_draw_trapezoid") (return-type "none") (parameters '("PangoRenderPart" "part") '("double" "y1_") '("double" "x11") '("double" "x21") '("double" "y2") '("double" "x12") '("double" "x22") ) ) (define-method draw_glyph (of-object "PangoRenderer") (c-name "pango_renderer_draw_glyph") (return-type "none") (parameters '("PangoFont*" "font") '("PangoGlyph" "glyph") '("double" "x") '("double" "y") ) ) (define-method activate (of-object "PangoRenderer") (c-name "pango_renderer_activate") (return-type "none") ) (define-method deactivate (of-object "PangoRenderer") (c-name "pango_renderer_deactivate") (return-type "none") ) (define-method part_changed (of-object "PangoRenderer") (c-name "pango_renderer_part_changed") (return-type "none") (parameters '("PangoRenderPart" "part") ) ) (define-method set_color (of-object "PangoRenderer") (c-name "pango_renderer_set_color") (return-type "none") (parameters '("PangoRenderPart" "part") '("const-PangoColor*" "color") ) ) (define-method get_color (of-object "PangoRenderer") (c-name "pango_renderer_get_color") (return-type "PangoColor*") (parameters '("PangoRenderPart" "part") ) ) (define-method set_matrix (of-object "PangoRenderer") (c-name "pango_renderer_set_matrix") (return-type "none") (parameters '("const-PangoMatrix*" "matrix") ) ) (define-method get_matrix (of-object "PangoRenderer") (c-name "pango_renderer_get_matrix") (return-type "const-PangoMatrix*") ) ;; From /opt/gnome2/include/pango-1.0/pango/pango-script.h (define-function pango_script_for_unichar (c-name "pango_script_for_unichar") (return-type "PangoScript") (parameters '("gunichar" "ch") ) ) (define-function pango_script_iter_new (c-name "pango_script_iter_new") (is-constructor-of "PangoScriptIter") (return-type "PangoScriptIter*") (parameters '("const-char*" "text") '("int" "length") ) ) (define-method get_range (of-object "PangoScriptIter") (c-name "pango_script_iter_get_range") (return-type "none") (parameters '("const-char**" "start") '("const-char**" "end") '("PangoScript*" "script") ) ) (define-method next (of-object "PangoScriptIter") (c-name "pango_script_iter_next") (return-type "gboolean") ) (define-method free (of-object "PangoScriptIter") (c-name "pango_script_iter_free") (return-type "none") ) (define-function pango_script_get_sample_language (c-name "pango_script_get_sample_language") (return-type "PangoLanguage*") (parameters '("PangoScript" "script") ) ) (define-method includes_script (of-object "PangoLanguage") (c-name "pango_language_includes_script") (return-type "gboolean") (parameters '("PangoScript" "script") ) ) ;; From /opt/gnome2/include/pango-1.0/pango/pango-tabs.h (define-function pango_tab_array_new (c-name "pango_tab_array_new") (is-constructor-of "PangoTabArray") (return-type "PangoTabArray*") (parameters '("gint" "initial_size") '("gboolean" "positions_in_pixels") ) ) (define-function pango_tab_array_new_with_positions (c-name "pango_tab_array_new_with_positions") (return-type "PangoTabArray*") (parameters '("gint" "size") '("gboolean" "positions_in_pixels") '("PangoTabAlign" "first_alignment") '("gint" "first_position") ) (varargs #t) ) (define-function pango_tab_array_get_type (c-name "pango_tab_array_get_type") (return-type "GType") ) (define-method copy (of-object "PangoTabArray") (c-name "pango_tab_array_copy") (return-type "PangoTabArray*") ) (define-method free (of-object "PangoTabArray") (c-name "pango_tab_array_free") (return-type "none") ) (define-method get_size (of-object "PangoTabArray") (c-name "pango_tab_array_get_size") (return-type "gint") ) (define-method resize (of-object "PangoTabArray") (c-name "pango_tab_array_resize") (return-type "none") (parameters '("gint" "new_size") ) ) (define-method set_tab (of-object "PangoTabArray") (c-name "pango_tab_array_set_tab") (return-type "none") (parameters '("gint" "tab_index") '("PangoTabAlign" "alignment") '("gint" "location") ) ) (define-method get_tab (of-object "PangoTabArray") (c-name "pango_tab_array_get_tab") (return-type "none") (parameters '("gint" "tab_index") '("PangoTabAlign*" "alignment") '("gint*" "location") ) ) (define-method get_tabs (of-object "PangoTabArray") (c-name "pango_tab_array_get_tabs") (return-type "none") (parameters '("PangoTabAlign**" "alignments") '("gint**" "locations") ) ) (define-method get_positions_in_pixels (of-object "PangoTabArray") (c-name "pango_tab_array_get_positions_in_pixels") (return-type "gboolean") ) ;; From /opt/gnome2/include/pango-1.0/pango/pango-types.h (define-function pango_matrix_get_type (c-name "pango_matrix_get_type") (return-type "GType") ) (define-method copy (of-object "PangoMatrix") (c-name "pango_matrix_copy") (return-type "PangoMatrix*") ) (define-method free (of-object "PangoMatrix") (c-name "pango_matrix_free") (return-type "none") ) (define-method translate (of-object "PangoMatrix") (c-name "pango_matrix_translate") (return-type "none") (parameters '("double" "tx") '("double" "ty") ) ) (define-method scale (of-object "PangoMatrix") (c-name "pango_matrix_scale") (return-type "none") (parameters '("double" "scale_x") '("double" "scale_y") ) ) (define-method rotate (of-object "PangoMatrix") (c-name "pango_matrix_rotate") (return-type "none") (parameters '("double" "degrees") ) ) (define-method concat (of-object "PangoMatrix") (c-name "pango_matrix_concat") (return-type "none") (parameters '("const-PangoMatrix*" "new_matrix") ) ) (define-method get_font_scale_factor (of-object "PangoMatrix") (c-name "pango_matrix_get_font_scale_factor") (return-type "double") ) (define-function pango_language_get_type (c-name "pango_language_get_type") (return-type "GType") ) (define-function pango_language_from_string (c-name "pango_language_from_string") (return-type "PangoLanguage*") (parameters '("const-char*" "language") ) ) (define-method matches (of-object "PangoLanguage") (c-name "pango_language_matches") (return-type "gboolean") (parameters '("const-char*" "range_list") ) ) (define-function pango_get_mirror_char (c-name "pango_get_mirror_char") (return-type "gboolean") (parameters '("gunichar" "ch") '("gunichar*" "mirrored_ch") ) ) (define-function pango_unichar_direction (c-name "pango_unichar_direction") (return-type "PangoDirection") (parameters '("gunichar" "ch") ) ) (define-function pango_find_base_dir (c-name "pango_find_base_dir") (return-type "PangoDirection") (parameters '("const-gchar*" "text") '("gint" "length") ) ) guile-gnome-platform-2.16.2/defs/gnome/defs/libgnome-types.defs0000644000175000017500000000350711670374302024744 0ustar00wingowingo00000000000000;; -*- scheme -*- ;; Enumerations and flags ... (define-enum HelpError (in-module "Gnome") (c-name "GnomeHelpError") (gtype-id "GNOME_TYPE_HELP_ERROR") (values '("internal" "GNOME_HELP_ERROR_INTERNAL") '("not-found" "GNOME_HELP_ERROR_NOT_FOUND") ) ) (define-enum FileDomain (in-module "Gnome") (c-name "GnomeFileDomain") (gtype-id "GNOME_TYPE_FILE_DOMAIN") (values '("unknown" "GNOME_FILE_DOMAIN_UNKNOWN") '("libdir" "GNOME_FILE_DOMAIN_LIBDIR") '("datadir" "GNOME_FILE_DOMAIN_DATADIR") '("sound" "GNOME_FILE_DOMAIN_SOUND") '("pixmap" "GNOME_FILE_DOMAIN_PIXMAP") '("config" "GNOME_FILE_DOMAIN_CONFIG") '("help" "GNOME_FILE_DOMAIN_HELP") '("app-libdir" "GNOME_FILE_DOMAIN_APP_LIBDIR") '("app-datadir" "GNOME_FILE_DOMAIN_APP_DATADIR") '("app-sound" "GNOME_FILE_DOMAIN_APP_SOUND") '("app-pixmap" "GNOME_FILE_DOMAIN_APP_PIXMAP") '("app-config" "GNOME_FILE_DOMAIN_APP_CONFIG") '("app-help" "GNOME_FILE_DOMAIN_APP_HELP") ) ) (define-enum TriggerType (in-module "Gnome") (c-name "GnomeTriggerType") (gtype-id "GNOME_TYPE_TRIGGER_TYPE") (values '("none" "GTRIG_NONE") '("function" "GTRIG_FUNCTION") '("command" "GTRIG_COMMAND") '("mediaplay" "GTRIG_MEDIAPLAY") ) ) (define-enum URLError (in-module "Gnome") (c-name "GnomeURLError") (gtype-id "GNOME_TYPE_URL_ERROR") (values '("parse" "GNOME_URL_ERROR_PARSE") '("launch" "GNOME_URL_ERROR_LAUNCH") '("url" "GNOME_URL_ERROR_URL") '("no-default" "GNOME_URL_ERROR_NO_DEFAULT") '("not-supported" "GNOME_URL_ERROR_NOT_SUPPORTED") '("vfs" "GNOME_URL_ERROR_VFS") '("cancelled" "GNOME_URL_ERROR_CANCELLED") ) ) ;; -*- scheme -*- ; object definitions ... (define-object Program (in-module "Gnome") (parent "GObject") (c-name "GnomeProgram") (gtype-id "GNOME_TYPE_PROGRAM") ) guile-gnome-platform-2.16.2/defs/gnome/defs/Makefile.am0000644000175000017500000001134711670374302023200 0ustar00wingowingo00000000000000include $(top_srcdir)/common.mk defsdir = $(guilemoduledir)/defs defs_DATA = $(wildcard $(srcdir)/*.defs) EXTRA_DIST = $(defs_DATA) DEFS_HEADER_DIR = /usr/include glib: ../../../h2def.py --c-enums --types \ $(DEFS_HEADER_DIR)/glib-2.0/glib/*.h > glib-types.defs ../../../h2def.py --procs --no-methods \ --with-header='(include type-ignores) (include "glib-types.defs") (include overrides)' \ $(DEFS_HEADER_DIR)/glib-2.0/glib/*.h > glib.defs atk: ../../../h2def.py --types \ $(DEFS_HEADER_DIR)/atk-1.0/atk/*.h > atk-types.defs ../../../h2def.py --procs \ --with-header='(include "common-ignores.defs") (include type-ignores) (include "atk-types.defs") (include overrides)' \ $(DEFS_HEADER_DIR)/atk-1.0/atk/*.h > atk.defs PANGO_INCLS = pango/pango.h \ pango/pango-attributes.h \ pango/pango-break.h \ pango/pango-context.h \ pango/pango-coverage.h \ pango/pango-enum-types.h \ pango/pango-font.h \ pango/pango-fontmap.h \ pango/pango-glyph.h \ pango/pango-item.h \ pango/pango-layout.h \ pango/pango-renderer.h \ pango/pango-script.h \ pango/pango-tabs.h \ pango/pango-types.h pango: ../../../h2def.py --types \ $(addprefix $(DEFS_HEADER_DIR)/pango-1.0/,$(PANGO_INCLS)) \ > pango-types.defs ../../../h2def.py --procs \ --with-header='(include "common-ignores.defs") (include "pango-types.defs") (include overrides)' \ $(addprefix $(DEFS_HEADER_DIR)/pango-1.0/,$(PANGO_INCLS)) \ > pango.defs pangocairo: ../../../h2def.py --types \ $(addprefix $(DEFS_HEADER_DIR)/pango-1.0/,pango/pangocairo.h) \ > pangocairo-types.defs ../../../h2def.py --procs \ --with-header='(include "common-ignores.defs") (include "pangocairo-types.defs") (include overrides)' \ $(addprefix $(DEFS_HEADER_DIR)/pango-1.0/,pango/pangocairo.h) \ > pangocairo.defs gdk-pixbuf: ../../../h2def.py --types \ $(shell ls $(DEFS_HEADER_DIR)/gtk-2.0/gdk-pixbuf/gdk-pixbuf*.h | grep -v io.h) > gdk-pixbuf-types.defs ../../../h2def.py --procs \ --with-header='(include "gdk-pixbuf-types.defs") (include overrides)' \ $(shell ls $(DEFS_HEADER_DIR)/gtk-2.0/gdk-pixbuf/gdk-pixbuf*.h | grep -v io.h) > gdk-pixbuf.defs gdk: ../../../h2def.py --types \ $(shell ls $(DEFS_HEADER_DIR)/gtk-2.0/gdk/gdk*.h | grep -v alias) > gdk-types.defs ../../../h2def.py --procs \ --with-header='(include type-ignores) (include "common-ignores.defs") (include "gdk-types.defs") (include overrides)' \ $(shell ls $(DEFS_HEADER_DIR)/gtk-2.0/gdk/gdk*.h | grep -v alias) > gdk.defs gtk: ../../../h2def.py --types \ $(shell ls $(DEFS_HEADER_DIR)/gtk-2.0/gtk/gtk*.h | grep -v filesystem) > gtk-types.defs ../../../h2def.py --procs \ --with-header='(include type-ignores) (include "gtk-types.defs") (include overrides)' \ $(shell ls $(DEFS_HEADER_DIR)/gtk-2.0/gtk/gtk*.h | grep -v filesystem) > gtk.defs LIBGLADE_INCLS = glade/glade-xml.h libglade: ../../../h2def.py --types \ $(addprefix $(DEFS_HEADER_DIR)/libglade-2.0/,$(LIBGLADE_INCLS)) \ > libglade-types.defs ../../../h2def.py --procs \ --with-header='(include "libglade-types.defs") (include overrides)' \ $(addprefix $(DEFS_HEADER_DIR)/libglade-2.0/,$(LIBGLADE_INCLS)) \ > libglade.defs libgnome: ../../../h2def.py --types \ $(DEFS_HEADER_DIR)/libgnome-2.0/libgnome/*.h > libgnome-types.defs ../../../h2def.py --procs \ --with-header='(include "libgnome-types.defs") (include overrides)' \ $(DEFS_HEADER_DIR)/libgnome-2.0/libgnome/*.h > libgnome.defs libgnomeui: ../../../h2def.py --types \ $(DEFS_HEADER_DIR)/libgnomeui-2.0/libgnomeui/*.h > libgnomeui-types.defs ../../../h2def.py --procs \ --with-header='(include type-ignores) (include "libgnomeui-types.defs") (include overrides)' \ $(DEFS_HEADER_DIR)/libgnomeui-2.0/libgnomeui/*.h > libgnomeui.defs libgnomecanvas: ../../../h2def.py --types \ $(DEFS_HEADER_DIR)/libgnomecanvas-2.0/libgnomecanvas/*.h > libgnomecanvas-types.defs ../../../h2def.py --procs \ --with-header='(include "libgnomecanvas-types.defs") (include overrides)' \ $(DEFS_HEADER_DIR)/libgnomecanvas-2.0/libgnomecanvas/*.h > libgnomecanvas.defs gnome-vfs: ../../../h2def.py --types --type-re='s/^GNOME_VFS_?/GNOME_VFS_TYPE_VFS_/' \ $(DEFS_HEADER_DIR)/gnome-vfs-2.0/libgnomevfs/*.h > gnome-vfs-types.defs ../../../h2def.py --procs \ --with-header='(include type-ignores) (include "gnome-vfs-types.defs") (include overrides)' \ $(DEFS_HEADER_DIR)/gnome-vfs-2.0/libgnomevfs/*.h > gnome-vfs.defs gconf: ../../../h2def.py --types \ $(DEFS_HEADER_DIR)/gconf/2/gconf/*.h > gconf-types.defs ../../../h2def.py --procs \ --with-header='(include type-ignores) (include "gconf-types.defs") (include overrides)' \ $(DEFS_HEADER_DIR)/gconf/2/gconf/*.h > gconf.defs guile-gnome-platform-2.16.2/defs/gnome/defs/gnome-vfs-types.defs0000644000175000017500000004510411670374302025050 0ustar00wingowingo00000000000000;; -*- scheme -*- ;; Enumerations and flags ... (define-flags VFSDirectoryVisitOptions (in-module "Gnome") (c-name "GnomeVFSDirectoryVisitOptions") (gtype-id "GNOME_VFS_TYPE_VFS_DIRECTORY_VISIT_OPTIONS") (values '("default" "GNOME_VFS_DIRECTORY_VISIT_DEFAULT") '("samefs" "GNOME_VFS_DIRECTORY_VISIT_SAMEFS") '("loopcheck" "GNOME_VFS_DIRECTORY_VISIT_LOOPCHECK") ) ) (define-enum VFSDNSSDServiceStatus (in-module "Gnome") (c-name "GnomeVFSDNSSDServiceStatus") (gtype-id "GNOME_VFS_TYPE_VFS_DNSSD_SERVICE_STATUS") (values '("added" "GNOME_VFS_DNS_SD_SERVICE_ADDED") '("removed" "GNOME_VFS_DNS_SD_SERVICE_REMOVED") ) ) (define-flags VFSFileFlags (in-module "Gnome") (c-name "GnomeVFSFileFlags") (gtype-id "GNOME_VFS_TYPE_VFS_FILE_FLAGS") (values '("none" "GNOME_VFS_FILE_FLAGS_NONE") '("symlink" "GNOME_VFS_FILE_FLAGS_SYMLINK") '("local" "GNOME_VFS_FILE_FLAGS_LOCAL") ) ) (define-enum VFSFileType (in-module "Gnome") (c-name "GnomeVFSFileType") (gtype-id "GNOME_VFS_TYPE_VFS_FILE_TYPE") (values '("unknown" "GNOME_VFS_FILE_TYPE_UNKNOWN") '("regular" "GNOME_VFS_FILE_TYPE_REGULAR") '("directory" "GNOME_VFS_FILE_TYPE_DIRECTORY") '("fifo" "GNOME_VFS_FILE_TYPE_FIFO") '("socket" "GNOME_VFS_FILE_TYPE_SOCKET") '("character-device" "GNOME_VFS_FILE_TYPE_CHARACTER_DEVICE") '("block-device" "GNOME_VFS_FILE_TYPE_BLOCK_DEVICE") '("symbolic-link" "GNOME_VFS_FILE_TYPE_SYMBOLIC_LINK") ) ) (define-flags VFSFileInfoFields (in-module "Gnome") (c-name "GnomeVFSFileInfoFields") (gtype-id "GNOME_VFS_TYPE_VFS_FILE_INFO_FIELDS") (values '("none" "GNOME_VFS_FILE_INFO_FIELDS_NONE") '("type" "GNOME_VFS_FILE_INFO_FIELDS_TYPE") '("permissions" "GNOME_VFS_FILE_INFO_FIELDS_PERMISSIONS") '("flags" "GNOME_VFS_FILE_INFO_FIELDS_FLAGS") '("device" "GNOME_VFS_FILE_INFO_FIELDS_DEVICE") '("inode" "GNOME_VFS_FILE_INFO_FIELDS_INODE") '("link-count" "GNOME_VFS_FILE_INFO_FIELDS_LINK_COUNT") '("size" "GNOME_VFS_FILE_INFO_FIELDS_SIZE") '("block-count" "GNOME_VFS_FILE_INFO_FIELDS_BLOCK_COUNT") '("io-block-size" "GNOME_VFS_FILE_INFO_FIELDS_IO_BLOCK_SIZE") '("atime" "GNOME_VFS_FILE_INFO_FIELDS_ATIME") '("mtime" "GNOME_VFS_FILE_INFO_FIELDS_MTIME") '("ctime" "GNOME_VFS_FILE_INFO_FIELDS_CTIME") '("symlink-name" "GNOME_VFS_FILE_INFO_FIELDS_SYMLINK_NAME") '("mime-type" "GNOME_VFS_FILE_INFO_FIELDS_MIME_TYPE") '("access" "GNOME_VFS_FILE_INFO_FIELDS_ACCESS") '("ids" "GNOME_VFS_FILE_INFO_FIELDS_IDS") '("acl" "GNOME_VFS_FILE_INFO_FIELDS_ACL") '("selinux-context" "GNOME_VFS_FILE_INFO_FIELDS_SELINUX_CONTEXT") ) ) (define-flags VFSFilePermissions (in-module "Gnome") (c-name "GnomeVFSFilePermissions") (gtype-id "GNOME_VFS_TYPE_VFS_FILE_PERMISSIONS") (values '("suid" "GNOME_VFS_PERM_SUID") '("sgid" "GNOME_VFS_PERM_SGID") '("sticky" "GNOME_VFS_PERM_STICKY") '("user-read" "GNOME_VFS_PERM_USER_READ") '("user-write" "GNOME_VFS_PERM_USER_WRITE") '("user-exec" "GNOME_VFS_PERM_USER_EXEC") '("user-all" "GNOME_VFS_PERM_USER_ALL") '("group-read" "GNOME_VFS_PERM_GROUP_READ") '("group-write" "GNOME_VFS_PERM_GROUP_WRITE") '("group-exec" "GNOME_VFS_PERM_GROUP_EXEC") '("group-all" "GNOME_VFS_PERM_GROUP_ALL") '("other-read" "GNOME_VFS_PERM_OTHER_READ") '("other-write" "GNOME_VFS_PERM_OTHER_WRITE") '("other-exec" "GNOME_VFS_PERM_OTHER_EXEC") '("other-all" "GNOME_VFS_PERM_OTHER_ALL") '("access-readable" "GNOME_VFS_PERM_ACCESS_READABLE") '("access-writable" "GNOME_VFS_PERM_ACCESS_WRITABLE") '("access-executable" "GNOME_VFS_PERM_ACCESS_EXECUTABLE") ) ) (define-flags VFSFileInfoOptions (in-module "Gnome") (c-name "GnomeVFSFileInfoOptions") (gtype-id "GNOME_VFS_TYPE_VFS_FILE_INFO_OPTIONS") (values '("default" "GNOME_VFS_FILE_INFO_DEFAULT") '("get-mime-type" "GNOME_VFS_FILE_INFO_GET_MIME_TYPE") '("force-fast-mime-type" "GNOME_VFS_FILE_INFO_FORCE_FAST_MIME_TYPE") '("force-slow-mime-type" "GNOME_VFS_FILE_INFO_FORCE_SLOW_MIME_TYPE") '("follow-links" "GNOME_VFS_FILE_INFO_FOLLOW_LINKS") '("get-access-rights" "GNOME_VFS_FILE_INFO_GET_ACCESS_RIGHTS") '("name-only" "GNOME_VFS_FILE_INFO_NAME_ONLY") '("get-acl" "GNOME_VFS_FILE_INFO_GET_ACL") '("get-selinux-context" "GNOME_VFS_FILE_INFO_GET_SELINUX_CONTEXT") ) ) (define-flags VFSSetFileInfoMask (in-module "Gnome") (c-name "GnomeVFSSetFileInfoMask") (gtype-id "GNOME_VFS_TYPE_VFS_SET_FILE_INFO_MASK") (values '("none" "GNOME_VFS_SET_FILE_INFO_NONE") '("name" "GNOME_VFS_SET_FILE_INFO_NAME") '("permissions" "GNOME_VFS_SET_FILE_INFO_PERMISSIONS") '("owner" "GNOME_VFS_SET_FILE_INFO_OWNER") '("time" "GNOME_VFS_SET_FILE_INFO_TIME") '("acl" "GNOME_VFS_SET_FILE_INFO_ACL") '("selinux-context" "GNOME_VFS_SET_FILE_INFO_SELINUX_CONTEXT") '("symlink-name" "GNOME_VFS_SET_FILE_INFO_SYMLINK_NAME") ) ) (define-enum VFSFindDirectoryKind (in-module "Gnome") (c-name "GnomeVFSFindDirectoryKind") (gtype-id "GNOME_VFS_TYPE_VFS_FIND_DIRECTORY_KIND") (values '("desktop" "GNOME_VFS_DIRECTORY_KIND_DESKTOP") '("trash" "GNOME_VFS_DIRECTORY_KIND_TRASH") ) ) (define-flags VFSOpenMode (in-module "Gnome") (c-name "GnomeVFSOpenMode") (gtype-id "GNOME_VFS_TYPE_VFS_OPEN_MODE") (values '("none" "GNOME_VFS_OPEN_NONE") '("read" "GNOME_VFS_OPEN_READ") '("write" "GNOME_VFS_OPEN_WRITE") '("random" "GNOME_VFS_OPEN_RANDOM") '("truncate" "GNOME_VFS_OPEN_TRUNCATE") ) ) (define-enum VFSSeekPosition (in-module "Gnome") (c-name "GnomeVFSSeekPosition") (gtype-id "GNOME_VFS_TYPE_VFS_SEEK_POSITION") (values '("start" "GNOME_VFS_SEEK_START") '("current" "GNOME_VFS_SEEK_CURRENT") '("end" "GNOME_VFS_SEEK_END") ) ) (define-enum VFSMimeActionType (in-module "Gnome") (c-name "GnomeVFSMimeActionType") (gtype-id "GNOME_VFS_TYPE_VFS_MIME_ACTION_TYPE") (values '("none" "GNOME_VFS_MIME_ACTION_TYPE_NONE") '("application" "GNOME_VFS_MIME_ACTION_TYPE_APPLICATION") '("component" "GNOME_VFS_MIME_ACTION_TYPE_COMPONENT") ) ) (define-enum VFSMimeApplicationArgumentType (in-module "Gnome") (c-name "GnomeVFSMimeApplicationArgumentType") (gtype-id "GNOME_VFS_TYPE_VFS_MIME_APPLICATION_ARGUMENT_TYPE") (values '("uris" "GNOME_VFS_MIME_APPLICATION_ARGUMENT_TYPE_URIS") '("paths" "GNOME_VFS_MIME_APPLICATION_ARGUMENT_TYPE_PATHS") '("uris-for-non-files" "GNOME_VFS_MIME_APPLICATION_ARGUMENT_TYPE_URIS_FOR_NON_FILES") ) ) (define-enum VFSMimeEquivalence (in-module "Gnome") (c-name "GnomeVFSMimeEquivalence") (gtype-id "GNOME_VFS_TYPE_VFS_MIME_EQUIVALENCE") (values '("unrelated" "GNOME_VFS_MIME_UNRELATED") '("identical" "GNOME_VFS_MIME_IDENTICAL") '("parent" "GNOME_VFS_MIME_PARENT") ) ) (define-enum VFSMonitorType (in-module "Gnome") (c-name "GnomeVFSMonitorType") (gtype-id "GNOME_VFS_TYPE_VFS_MONITOR_TYPE") (values '("file" "GNOME_VFS_MONITOR_FILE") '("directory" "GNOME_VFS_MONITOR_DIRECTORY") ) ) (define-enum VFSMonitorEventType (in-module "Gnome") (c-name "GnomeVFSMonitorEventType") (gtype-id "GNOME_VFS_TYPE_VFS_MONITOR_EVENT_TYPE") (values '("changed" "GNOME_VFS_MONITOR_EVENT_CHANGED") '("deleted" "GNOME_VFS_MONITOR_EVENT_DELETED") '("startexecuting" "GNOME_VFS_MONITOR_EVENT_STARTEXECUTING") '("stopexecuting" "GNOME_VFS_MONITOR_EVENT_STOPEXECUTING") '("created" "GNOME_VFS_MONITOR_EVENT_CREATED") '("metadata-changed" "GNOME_VFS_MONITOR_EVENT_METADATA_CHANGED") ) ) (define-enum VFSResult (in-module "Gnome") (c-name "GnomeVFSResult") (gtype-id "GNOME_VFS_TYPE_VFS_RESULT") (values '("ok" "GNOME_VFS_OK") '("error-not-found" "GNOME_VFS_ERROR_NOT_FOUND") '("error-generic" "GNOME_VFS_ERROR_GENERIC") '("error-internal" "GNOME_VFS_ERROR_INTERNAL") '("error-bad-parameters" "GNOME_VFS_ERROR_BAD_PARAMETERS") '("error-not-supported" "GNOME_VFS_ERROR_NOT_SUPPORTED") '("error-io" "GNOME_VFS_ERROR_IO") '("error-corrupted-data" "GNOME_VFS_ERROR_CORRUPTED_DATA") '("error-wrong-format" "GNOME_VFS_ERROR_WRONG_FORMAT") '("error-bad-file" "GNOME_VFS_ERROR_BAD_FILE") '("error-too-big" "GNOME_VFS_ERROR_TOO_BIG") '("error-no-space" "GNOME_VFS_ERROR_NO_SPACE") '("error-read-only" "GNOME_VFS_ERROR_READ_ONLY") '("error-invalid-uri" "GNOME_VFS_ERROR_INVALID_URI") '("error-not-open" "GNOME_VFS_ERROR_NOT_OPEN") '("error-invalid-open-mode" "GNOME_VFS_ERROR_INVALID_OPEN_MODE") '("error-access-denied" "GNOME_VFS_ERROR_ACCESS_DENIED") '("error-too-many-open-files" "GNOME_VFS_ERROR_TOO_MANY_OPEN_FILES") '("error-eof" "GNOME_VFS_ERROR_EOF") '("error-not-a-directory" "GNOME_VFS_ERROR_NOT_A_DIRECTORY") '("error-in-progress" "GNOME_VFS_ERROR_IN_PROGRESS") '("error-interrupted" "GNOME_VFS_ERROR_INTERRUPTED") '("error-file-exists" "GNOME_VFS_ERROR_FILE_EXISTS") '("error-loop" "GNOME_VFS_ERROR_LOOP") '("error-not-permitted" "GNOME_VFS_ERROR_NOT_PERMITTED") '("error-is-directory" "GNOME_VFS_ERROR_IS_DIRECTORY") '("error-no-memory" "GNOME_VFS_ERROR_NO_MEMORY") '("error-host-not-found" "GNOME_VFS_ERROR_HOST_NOT_FOUND") '("error-invalid-host-name" "GNOME_VFS_ERROR_INVALID_HOST_NAME") '("error-host-has-no-address" "GNOME_VFS_ERROR_HOST_HAS_NO_ADDRESS") '("error-login-failed" "GNOME_VFS_ERROR_LOGIN_FAILED") '("error-cancelled" "GNOME_VFS_ERROR_CANCELLED") '("error-directory-busy" "GNOME_VFS_ERROR_DIRECTORY_BUSY") '("error-directory-not-empty" "GNOME_VFS_ERROR_DIRECTORY_NOT_EMPTY") '("error-too-many-links" "GNOME_VFS_ERROR_TOO_MANY_LINKS") '("error-read-only-file-system" "GNOME_VFS_ERROR_READ_ONLY_FILE_SYSTEM") '("error-not-same-file-system" "GNOME_VFS_ERROR_NOT_SAME_FILE_SYSTEM") '("error-name-too-long" "GNOME_VFS_ERROR_NAME_TOO_LONG") '("error-service-not-available" "GNOME_VFS_ERROR_SERVICE_NOT_AVAILABLE") '("error-service-obsolete" "GNOME_VFS_ERROR_SERVICE_OBSOLETE") '("error-protocol-error" "GNOME_VFS_ERROR_PROTOCOL_ERROR") '("error-no-master-browser" "GNOME_VFS_ERROR_NO_MASTER_BROWSER") '("error-no-default" "GNOME_VFS_ERROR_NO_DEFAULT") '("error-no-handler" "GNOME_VFS_ERROR_NO_HANDLER") '("error-parse" "GNOME_VFS_ERROR_PARSE") '("error-launch" "GNOME_VFS_ERROR_LAUNCH") '("error-timeout" "GNOME_VFS_ERROR_TIMEOUT") '("error-nameserver" "GNOME_VFS_ERROR_NAMESERVER") '("error-locked" "GNOME_VFS_ERROR_LOCKED") '("error-deprecated-function" "GNOME_VFS_ERROR_DEPRECATED_FUNCTION") '("error-invalid-filename" "GNOME_VFS_ERROR_INVALID_FILENAME") '("error-not-a-symbolic-link" "GNOME_VFS_ERROR_NOT_A_SYMBOLIC_LINK") '("num-errors" "GNOME_VFS_NUM_ERRORS") ) ) (define-flags VFSModuleCallbackFullAuthenticationFlags (in-module "Gnome") (c-name "GnomeVFSModuleCallbackFullAuthenticationFlags") (gtype-id "GNOME_VFS_TYPE_VFS_MODULE_CALLBACK_FULL_AUTHENTICATION_FLAGS") (values '("previous-attempt-failed" "GNOME_VFS_MODULE_CALLBACK_FULL_AUTHENTICATION_PREVIOUS_ATTEMPT_FAILED") '("need-password" "GNOME_VFS_MODULE_CALLBACK_FULL_AUTHENTICATION_NEED_PASSWORD") '("need-username" "GNOME_VFS_MODULE_CALLBACK_FULL_AUTHENTICATION_NEED_USERNAME") '("need-domain" "GNOME_VFS_MODULE_CALLBACK_FULL_AUTHENTICATION_NEED_DOMAIN") '("saving-supported" "GNOME_VFS_MODULE_CALLBACK_FULL_AUTHENTICATION_SAVING_SUPPORTED") '("anon-supported" "GNOME_VFS_MODULE_CALLBACK_FULL_AUTHENTICATION_ANON_SUPPORTED") ) ) (define-flags VFSModuleCallbackFullAuthenticationOutFlags (in-module "Gnome") (c-name "GnomeVFSModuleCallbackFullAuthenticationOutFlags") (gtype-id "GNOME_VFS_TYPE_VFS_MODULE_CALLBACK_FULL_AUTHENTICATION_OUT_FLAGS") (values '("d" "GNOME_VFS_MODULE_CALLBACK_FULL_AUTHENTICATION_OUT_ANON_SELECTED") ) ) (define-enum VFSModuleCallbackAuthenticationAuthType (in-module "Gnome") (c-name "GnomeVFSModuleCallbackAuthenticationAuthType") (gtype-id "GNOME_VFS_TYPE_VFS_MODULE_CALLBACK_AUTHENTICATION_AUTH_TYPE") (values '("basic" "AuthTypeBasic") '("digest" "AuthTypeDigest") ) ) (define-flags VFSURIHideOptions (in-module "Gnome") (c-name "GnomeVFSURIHideOptions") (gtype-id "GNOME_VFS_TYPE_VFS_URI_HIDE_OPTIONS") (values '("none" "GNOME_VFS_URI_HIDE_NONE") '("user-name" "GNOME_VFS_URI_HIDE_USER_NAME") '("password" "GNOME_VFS_URI_HIDE_PASSWORD") '("host-name" "GNOME_VFS_URI_HIDE_HOST_NAME") '("host-port" "GNOME_VFS_URI_HIDE_HOST_PORT") '("toplevel-method" "GNOME_VFS_URI_HIDE_TOPLEVEL_METHOD") '("fragment-identifier" "GNOME_VFS_URI_HIDE_FRAGMENT_IDENTIFIER") ) ) (define-flags VFSMakeURIDirs (in-module "Gnome") (c-name "GnomeVFSMakeURIDirs") (gtype-id "GNOME_VFS_TYPE_VFS_MAKE_URI_DIRS") (values '("none" "GNOME_VFS_MAKE_URI_DIR_NONE") '("homedir" "GNOME_VFS_MAKE_URI_DIR_HOMEDIR") '("current" "GNOME_VFS_MAKE_URI_DIR_CURRENT") ) ) (define-enum VFSDeviceType (in-module "Gnome") (c-name "GnomeVFSDeviceType") (gtype-id "GNOME_VFS_TYPE_VFS_DEVICE_TYPE") (values '("unknown" "GNOME_VFS_DEVICE_TYPE_UNKNOWN") '("audio-cd" "GNOME_VFS_DEVICE_TYPE_AUDIO_CD") '("video-dvd" "GNOME_VFS_DEVICE_TYPE_VIDEO_DVD") '("harddrive" "GNOME_VFS_DEVICE_TYPE_HARDDRIVE") '("cdrom" "GNOME_VFS_DEVICE_TYPE_CDROM") '("floppy" "GNOME_VFS_DEVICE_TYPE_FLOPPY") '("zip" "GNOME_VFS_DEVICE_TYPE_ZIP") '("jaz" "GNOME_VFS_DEVICE_TYPE_JAZ") '("nfs" "GNOME_VFS_DEVICE_TYPE_NFS") '("autofs" "GNOME_VFS_DEVICE_TYPE_AUTOFS") '("camera" "GNOME_VFS_DEVICE_TYPE_CAMERA") '("memory-stick" "GNOME_VFS_DEVICE_TYPE_MEMORY_STICK") '("smb" "GNOME_VFS_DEVICE_TYPE_SMB") '("apple" "GNOME_VFS_DEVICE_TYPE_APPLE") '("music-player" "GNOME_VFS_DEVICE_TYPE_MUSIC_PLAYER") '("windows" "GNOME_VFS_DEVICE_TYPE_WINDOWS") '("loopback" "GNOME_VFS_DEVICE_TYPE_LOOPBACK") '("network" "GNOME_VFS_DEVICE_TYPE_NETWORK") ) ) (define-enum VFSVolumeType (in-module "Gnome") (c-name "GnomeVFSVolumeType") (gtype-id "GNOME_VFS_TYPE_VFS_VOLUME_TYPE") (values '("mountpoint" "GNOME_VFS_VOLUME_TYPE_MOUNTPOINT") '("vfs-mount" "GNOME_VFS_VOLUME_TYPE_VFS_MOUNT") '("connected-server" "GNOME_VFS_VOLUME_TYPE_CONNECTED_SERVER") ) ) (define-flags VFSXferOptions (in-module "Gnome") (c-name "GnomeVFSXferOptions") (gtype-id "GNOME_VFS_TYPE_VFS_XFER_OPTIONS") (values '("default" "GNOME_VFS_XFER_DEFAULT") '("unused-1" "GNOME_VFS_XFER_UNUSED_1") '("follow-links" "GNOME_VFS_XFER_FOLLOW_LINKS") '("unused-2" "GNOME_VFS_XFER_UNUSED_2") '("recursive" "GNOME_VFS_XFER_RECURSIVE") '("samefs" "GNOME_VFS_XFER_SAMEFS") '("delete-items" "GNOME_VFS_XFER_DELETE_ITEMS") '("empty-directories" "GNOME_VFS_XFER_EMPTY_DIRECTORIES") '("new-unique-directory" "GNOME_VFS_XFER_NEW_UNIQUE_DIRECTORY") '("removesource" "GNOME_VFS_XFER_REMOVESOURCE") '("use-unique-names" "GNOME_VFS_XFER_USE_UNIQUE_NAMES") '("link-items" "GNOME_VFS_XFER_LINK_ITEMS") '("follow-links-recursive" "GNOME_VFS_XFER_FOLLOW_LINKS_RECURSIVE") '("target-default-perms" "GNOME_VFS_XFER_TARGET_DEFAULT_PERMS") ) ) (define-enum VFSXferProgressStatus (in-module "Gnome") (c-name "GnomeVFSXferProgressStatus") (gtype-id "GNOME_VFS_TYPE_VFS_XFER_PROGRESS_STATUS") (values '("ok" "GNOME_VFS_XFER_PROGRESS_STATUS_OK") '("vfserror" "GNOME_VFS_XFER_PROGRESS_STATUS_VFSERROR") '("overwrite" "GNOME_VFS_XFER_PROGRESS_STATUS_OVERWRITE") '("duplicate" "GNOME_VFS_XFER_PROGRESS_STATUS_DUPLICATE") ) ) (define-enum VFSXferOverwriteMode (in-module "Gnome") (c-name "GnomeVFSXferOverwriteMode") (gtype-id "GNOME_VFS_TYPE_VFS_XFER_OVERWRITE_MODE") (values '("abort" "GNOME_VFS_XFER_OVERWRITE_MODE_ABORT") '("query" "GNOME_VFS_XFER_OVERWRITE_MODE_QUERY") '("replace" "GNOME_VFS_XFER_OVERWRITE_MODE_REPLACE") '("skip" "GNOME_VFS_XFER_OVERWRITE_MODE_SKIP") ) ) (define-enum VFSXferOverwriteAction (in-module "Gnome") (c-name "GnomeVFSXferOverwriteAction") (gtype-id "GNOME_VFS_TYPE_VFS_XFER_OVERWRITE_ACTION") (values '("abort" "GNOME_VFS_XFER_OVERWRITE_ACTION_ABORT") '("replace" "GNOME_VFS_XFER_OVERWRITE_ACTION_REPLACE") '("replace-all" "GNOME_VFS_XFER_OVERWRITE_ACTION_REPLACE_ALL") '("skip" "GNOME_VFS_XFER_OVERWRITE_ACTION_SKIP") '("skip-all" "GNOME_VFS_XFER_OVERWRITE_ACTION_SKIP_ALL") ) ) (define-enum VFSXferErrorMode (in-module "Gnome") (c-name "GnomeVFSXferErrorMode") (gtype-id "GNOME_VFS_TYPE_VFS_XFER_ERROR_MODE") (values '("abort" "GNOME_VFS_XFER_ERROR_MODE_ABORT") '("query" "GNOME_VFS_XFER_ERROR_MODE_QUERY") ) ) (define-enum VFSXferErrorAction (in-module "Gnome") (c-name "GnomeVFSXferErrorAction") (gtype-id "GNOME_VFS_TYPE_VFS_XFER_ERROR_ACTION") (values '("abort" "GNOME_VFS_XFER_ERROR_ACTION_ABORT") '("retry" "GNOME_VFS_XFER_ERROR_ACTION_RETRY") '("skip" "GNOME_VFS_XFER_ERROR_ACTION_SKIP") ) ) (define-enum VFSXferPhase (in-module "Gnome") (c-name "GnomeVFSXferPhase") (gtype-id "GNOME_VFS_TYPE_VFS_XFER_PHASE") (values '("phase-initial" "GNOME_VFS_XFER_PHASE_INITIAL") '("checking-destination" "GNOME_VFS_XFER_CHECKING_DESTINATION") '("phase-collecting" "GNOME_VFS_XFER_PHASE_COLLECTING") '("phase-readytogo" "GNOME_VFS_XFER_PHASE_READYTOGO") '("phase-opensource" "GNOME_VFS_XFER_PHASE_OPENSOURCE") '("phase-opentarget" "GNOME_VFS_XFER_PHASE_OPENTARGET") '("phase-copying" "GNOME_VFS_XFER_PHASE_COPYING") '("phase-moving" "GNOME_VFS_XFER_PHASE_MOVING") '("phase-readsource" "GNOME_VFS_XFER_PHASE_READSOURCE") '("phase-writetarget" "GNOME_VFS_XFER_PHASE_WRITETARGET") '("phase-closesource" "GNOME_VFS_XFER_PHASE_CLOSESOURCE") '("phase-closetarget" "GNOME_VFS_XFER_PHASE_CLOSETARGET") '("phase-deletesource" "GNOME_VFS_XFER_PHASE_DELETESOURCE") '("phase-setattributes" "GNOME_VFS_XFER_PHASE_SETATTRIBUTES") '("phase-filecompleted" "GNOME_VFS_XFER_PHASE_FILECOMPLETED") '("phase-cleanup" "GNOME_VFS_XFER_PHASE_CLEANUP") '("phase-completed" "GNOME_VFS_XFER_PHASE_COMPLETED") '("num-phases" "GNOME_VFS_XFER_NUM_PHASES") ) ) ;; -*- scheme -*- ; object definitions ... (define-object VFSACE (in-module "Gnome") (parent "GObject") (c-name "GnomeVFSACE") (gtype-id "GNOME_VFS_TYPE_VFS_ACE") ) (define-object VFSACL (in-module "Gnome") (parent "GObject") (c-name "GnomeVFSACL") (gtype-id "GNOME_VFS_TYPE_VFS_ACL") ) (define-object VFSDrive (in-module "Gnome") (parent "GObject") (c-name "GnomeVFSDrive") (gtype-id "GNOME_VFS_TYPE_VFS_DRIVE") ) (define-object VFSVolume (in-module "Gnome") (parent "GObject") (c-name "GnomeVFSVolume") (gtype-id "GNOME_VFS_TYPE_VFS_VOLUME") ) (define-object VFSVolumeMonitor (in-module "Gnome") (parent "GObject") (c-name "GnomeVFSVolumeMonitor") (gtype-id "GNOME_VFS_TYPE_VFS_VOLUME_MONITOR") ) guile-gnome-platform-2.16.2/defs/gnome/defs/Makefile.in0000644000175000017500000005227211752520653023216 0ustar00wingowingo00000000000000# Makefile.in generated by automake 1.11.5 from Makefile.am. # @configure_input@ # Copyright (C) 1994, 1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, # 2003, 2004, 2005, 2006, 2007, 2008, 2009, 2010, 2011 Free Software # Foundation, Inc. # This Makefile.in is free software; the Free Software Foundation # gives unlimited permission to copy and/or distribute it, # with or without modifications, as long as this notice is preserved. # This program is distributed in the hope that it will be useful, # but WITHOUT ANY WARRANTY, to the extent permitted by law; without # even the implied warranty of MERCHANTABILITY or FITNESS FOR A # PARTICULAR PURPOSE. @SET_MAKE@ # guile-gnome # Copyright (C) 2003,2004,2009,2012 Free Software Foundation, Inc. # This program is free software; you can redistribute it and/or # modify it under the terms of the GNU General Public License as # published by the Free Software Foundation; either version 2 of # the License, or (at your option) any later version. # This program is distributed in the hope that it will be useful, # but WITHOUT ANY WARRANTY; without even the implied warranty of # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the # GNU General Public License for more details. # You should have received a copy of the GNU General Public License # along with this program; if not, contact: # Free Software Foundation Voice: +1-617-542-5942 # 59 Temple Place - Suite 330 Fax: +1-617-542-2652 # Boston, MA 02111-1307, USA gnu@gnu.org # # Makefile snippet # VPATH = @srcdir@ am__make_dryrun = \ { \ am__dry=no; \ case $$MAKEFLAGS in \ *\\[\ \ ]*) \ echo 'am--echo: ; @echo "AM" OK' | $(MAKE) -f - 2>/dev/null \ | grep '^AM OK$$' >/dev/null || am__dry=yes;; \ *) \ for am__flg in $$MAKEFLAGS; do \ case $$am__flg in \ *=*|--*) ;; \ *n*) am__dry=yes; break;; \ esac; \ done;; \ esac; \ test $$am__dry = yes; \ } pkgdatadir = $(datadir)/@PACKAGE@ pkgincludedir = $(includedir)/@PACKAGE@ pkglibdir = $(libdir)/@PACKAGE@ pkglibexecdir = $(libexecdir)/@PACKAGE@ am__cd = CDPATH="$${ZSH_VERSION+.}$(PATH_SEPARATOR)" && cd install_sh_DATA = $(install_sh) -c -m 644 install_sh_PROGRAM = $(install_sh) -c install_sh_SCRIPT = $(install_sh) -c INSTALL_HEADER = $(INSTALL_DATA) transform = $(program_transform_name) NORMAL_INSTALL = : PRE_INSTALL = : POST_INSTALL = : NORMAL_UNINSTALL = : PRE_UNINSTALL = : POST_UNINSTALL = : build_triplet = @build@ host_triplet = @host@ DIST_COMMON = $(srcdir)/Makefile.am $(srcdir)/Makefile.in \ $(top_srcdir)/common.mk subdir = defs/gnome/defs ACLOCAL_M4 = $(top_srcdir)/aclocal.m4 am__aclocal_m4_deps = $(top_srcdir)/configure.ac am__configure_deps = $(am__aclocal_m4_deps) $(CONFIGURE_DEPENDENCIES) \ $(ACLOCAL_M4) mkinstalldirs = $(install_sh) -d CONFIG_HEADER = $(top_builddir)/config.h CONFIG_CLEAN_FILES = CONFIG_CLEAN_VPATH_FILES = SOURCES = DIST_SOURCES = am__can_run_installinfo = \ case $$AM_UPDATE_INFO_DIR in \ n|no|NO) false;; \ *) (install-info --version) >/dev/null 2>&1;; \ esac am__vpath_adj_setup = srcdirstrip=`echo "$(srcdir)" | sed 's|.|.|g'`; am__vpath_adj = case $$p in \ $(srcdir)/*) f=`echo "$$p" | sed "s|^$$srcdirstrip/||"`;; \ *) f=$$p;; \ esac; am__strip_dir = f=`echo $$p | sed -e 's|^.*/||'`; am__install_max = 40 am__nobase_strip_setup = \ srcdirstrip=`echo "$(srcdir)" | sed 's/[].[^$$\\*|]/\\\\&/g'` am__nobase_strip = \ for p in $$list; do echo "$$p"; done | sed -e "s|$$srcdirstrip/||" am__nobase_list = $(am__nobase_strip_setup); \ for p in $$list; do echo "$$p $$p"; done | \ sed "s| $$srcdirstrip/| |;"' / .*\//!s/ .*/ ./; s,\( .*\)/[^/]*$$,\1,' | \ $(AWK) 'BEGIN { files["."] = "" } { files[$$2] = files[$$2] " " $$1; \ if (++n[$$2] == $(am__install_max)) \ { print $$2, files[$$2]; n[$$2] = 0; files[$$2] = "" } } \ END { for (dir in files) print dir, files[dir] }' am__base_list = \ sed '$$!N;$$!N;$$!N;$$!N;$$!N;$$!N;$$!N;s/\n/ /g' | \ sed '$$!N;$$!N;$$!N;$$!N;s/\n/ /g' am__uninstall_files_from_dir = { \ test -z "$$files" \ || { test ! -d "$$dir" && test ! -f "$$dir" && test ! -r "$$dir"; } \ || { echo " ( cd '$$dir' && rm -f" $$files ")"; \ $(am__cd) "$$dir" && rm -f $$files; }; \ } am__installdirs = "$(DESTDIR)$(defsdir)" DATA = $(defs_DATA) DISTFILES = $(DIST_COMMON) $(DIST_SOURCES) $(TEXINFOS) $(EXTRA_DIST) ACLOCAL = @ACLOCAL@ AG_PKG_CONFIG_PATH = @AG_PKG_CONFIG_PATH@ AMTAR = @AMTAR@ API_VERSION = @API_VERSION@ AR = @AR@ ATK_CFLAGS = @ATK_CFLAGS@ ATK_LIBS = @ATK_LIBS@ AUTOCONF = @AUTOCONF@ AUTOHEADER = @AUTOHEADER@ AUTOMAKE = @AUTOMAKE@ AWK = @AWK@ BONOBO_IDL_DIR = @BONOBO_IDL_DIR@ CANVAS_CFLAGS = @CANVAS_CFLAGS@ CANVAS_LIBS = @CANVAS_LIBS@ CC = @CC@ CCDEPMODE = @CCDEPMODE@ CFLAGS = @CFLAGS@ CORBA_CFLAGS = @CORBA_CFLAGS@ CORBA_LIBS = @CORBA_LIBS@ CPP = @CPP@ CPPFLAGS = @CPPFLAGS@ CYGPATH_W = @CYGPATH_W@ DEFS = @DEFS@ DEPDIR = @DEPDIR@ DLLTOOL = @DLLTOOL@ DSYMUTIL = @DSYMUTIL@ DUMPBIN = @DUMPBIN@ ECHO_C = @ECHO_C@ ECHO_N = @ECHO_N@ ECHO_T = @ECHO_T@ EGREP = @EGREP@ EXEEXT = @EXEEXT@ FGREP = @FGREP@ GCONF_CFLAGS = @GCONF_CFLAGS@ GCONF_LIBS = @GCONF_LIBS@ GDK_CFLAGS = @GDK_CFLAGS@ GDK_LIBS = @GDK_LIBS@ GDK_PIXBUF_CFLAGS = @GDK_PIXBUF_CFLAGS@ GDK_PIXBUF_LIBS = @GDK_PIXBUF_LIBS@ GLIB_CFLAGS = @GLIB_CFLAGS@ GLIB_LIBS = @GLIB_LIBS@ GNOMEUI_DEPRECATION_FLAGS = @GNOMEUI_DEPRECATION_FLAGS@ GNOME_VFS_CFLAGS = @GNOME_VFS_CFLAGS@ GNOME_VFS_DEPRECATED_CFLAGS = @GNOME_VFS_DEPRECATED_CFLAGS@ GNOME_VFS_LIBS = @GNOME_VFS_LIBS@ GOBJECT_CFLAGS = @GOBJECT_CFLAGS@ GOBJECT_LIBS = @GOBJECT_LIBS@ GREP = @GREP@ GTHREAD_CFLAGS = @GTHREAD_CFLAGS@ GTHREAD_LIBS = @GTHREAD_LIBS@ GTK_CFLAGS = @GTK_CFLAGS@ GTK_DEPRECATED_CFLAGS = @GTK_DEPRECATED_CFLAGS@ GTK_LIBS = @GTK_LIBS@ GUILE_CAIRO_CFLAGS = @GUILE_CAIRO_CFLAGS@ GUILE_CAIRO_LIBS = @GUILE_CAIRO_LIBS@ GUILE_CFLAGS = @GUILE_CFLAGS@ GUILE_EFFECTIVE_VERSION = @GUILE_EFFECTIVE_VERSION@ GUILE_GLIB_CFLAGS = @GUILE_GLIB_CFLAGS@ GUILE_GLIB_LIBS = @GUILE_GLIB_LIBS@ GUILE_LIBS = @GUILE_LIBS@ G_WRAP_CFLAGS = @G_WRAP_CFLAGS@ G_WRAP_LIBS = @G_WRAP_LIBS@ G_WRAP_LIB_DIR = @G_WRAP_LIB_DIR@ G_WRAP_MODULE_DIR = @G_WRAP_MODULE_DIR@ INSTALL = @INSTALL@ INSTALL_DATA = @INSTALL_DATA@ INSTALL_PROGRAM = @INSTALL_PROGRAM@ INSTALL_SCRIPT = @INSTALL_SCRIPT@ INSTALL_STRIP_PROGRAM = @INSTALL_STRIP_PROGRAM@ LD = @LD@ LDFLAGS = @LDFLAGS@ LIBGLADE_CFLAGS = @LIBGLADE_CFLAGS@ LIBGLADE_LIBS = @LIBGLADE_LIBS@ LIBGNOMEUI_CFLAGS = @LIBGNOMEUI_CFLAGS@ LIBGNOMEUI_LIBS = @LIBGNOMEUI_LIBS@ LIBGNOME_CFLAGS = @LIBGNOME_CFLAGS@ LIBGNOME_LIBS = @LIBGNOME_LIBS@ LIBOBJS = @LIBOBJS@ LIBS = @LIBS@ LIBTOOL = @LIBTOOL@ LIPO = @LIPO@ LN_S = @LN_S@ LTLIBOBJS = @LTLIBOBJS@ MAKEINFO = @MAKEINFO@ MANIFEST_TOOL = @MANIFEST_TOOL@ MKDIR_P = @MKDIR_P@ NM = @NM@ NMEDIT = @NMEDIT@ OBJDUMP = @OBJDUMP@ OBJEXT = @OBJEXT@ ORBIT_IDL = @ORBIT_IDL@ OTOOL = @OTOOL@ OTOOL64 = @OTOOL64@ PACKAGE = @PACKAGE@ PACKAGE_BUGREPORT = @PACKAGE_BUGREPORT@ PACKAGE_NAME = @PACKAGE_NAME@ PACKAGE_STRING = @PACKAGE_STRING@ PACKAGE_TARNAME = @PACKAGE_TARNAME@ PACKAGE_URL = @PACKAGE_URL@ PACKAGE_VERSION = @PACKAGE_VERSION@ PANGOCAIRO_CFLAGS = @PANGOCAIRO_CFLAGS@ PANGOCAIRO_LIBS = @PANGOCAIRO_LIBS@ PANGO_CFLAGS = @PANGO_CFLAGS@ PANGO_LIBS = @PANGO_LIBS@ PATH_SEPARATOR = @PATH_SEPARATOR@ PKG_CONFIG = @PKG_CONFIG@ PKG_CONFIG_LIBDIR = @PKG_CONFIG_LIBDIR@ PKG_CONFIG_PATH = @PKG_CONFIG_PATH@ RANLIB = @RANLIB@ SED = @SED@ SET_MAKE = @SET_MAKE@ SHELL = @SHELL@ STRIP = @STRIP@ VERSION = @VERSION@ WARN_CFLAGS = @WARN_CFLAGS@ abs_builddir = @abs_builddir@ abs_srcdir = @abs_srcdir@ abs_top_builddir = @abs_top_builddir@ abs_top_srcdir = @abs_top_srcdir@ ac_ct_AR = @ac_ct_AR@ ac_ct_CC = @ac_ct_CC@ ac_ct_DUMPBIN = @ac_ct_DUMPBIN@ am__include = @am__include@ am__leading_dot = @am__leading_dot@ am__quote = @am__quote@ am__tar = @am__tar@ am__untar = @am__untar@ bindir = @bindir@ build = @build@ build_alias = @build_alias@ build_cpu = @build_cpu@ build_os = @build_os@ build_vendor = @build_vendor@ builddir = @builddir@ datadir = @datadir@ datarootdir = @datarootdir@ docdir = @docdir@ dvidir = @dvidir@ exec_prefix = @exec_prefix@ host = @host@ host_alias = @host_alias@ host_cpu = @host_cpu@ host_os = @host_os@ host_vendor = @host_vendor@ htmldir = @htmldir@ includedir = @includedir@ infodir = @infodir@ install_sh = @install_sh@ libdir = @libdir@ libexecdir = @libexecdir@ localedir = @localedir@ localstatedir = @localstatedir@ mandir = @mandir@ mkdir_p = @mkdir_p@ oldincludedir = @oldincludedir@ pdfdir = @pdfdir@ prefix = @prefix@ program_transform_name = @program_transform_name@ psdir = @psdir@ sbindir = @sbindir@ sharedstatedir = @sharedstatedir@ srcdir = @srcdir@ sysconfdir = @sysconfdir@ target_alias = @target_alias@ top_build_prefix = @top_build_prefix@ top_builddir = @top_builddir@ top_srcdir = @top_srcdir@ guilegnomedir = $(datadir)/guile-gnome-@API_VERSION@ guilemoduledir = $(guilegnomedir)/gnome guilegwmoduledir = $(guilegnomedir)/gnome/gw guilegnomelibdir = $(libdir)/guile-gnome-@API_VERSION@ AM_CFLAGS = -I. -I$(srcdir) $(WARN_CFLAGS) $(DEBUG_CFLAGS) # For overriding from the command line (e.g. --debug) GUILE_FLAGS = SUFFIXES = .x .doc GUILE_SNARF_CFLAGS = $(DEFS) $(AM_CFLAGS) $(GUILE_CFLAGS) $(G_WRAP_CFLAGS) PACKAGES = atk cairo corba defs gconf glib gnome-vfs gtk libglade libgnome libgnomecanvas libgnomeui pango SOURCE_GUILE_PATH = $(shell echo $(addprefix $(top_srcdir)/,$(PACKAGES)) | sed -e 's/ /:/g'):$(srcdir) BUILD_GUILE_PATH = $(if $(filter-out $(top_srcdir),$(top_builddir)),$(shell echo -n $(addprefix $(top_builddir)/,$(PACKAGES)): | sed -e 's/ /:/g'),) GUILE_LOAD_PATH := $(BUILD_GUILE_PATH)$(SOURCE_GUILE_PATH):${G_WRAP_MODULE_DIR}:${GUILE_LOAD_PATH} # Real gnu make foo packages = $(filter-out %-uninstalled,$(patsubst %.pc.in,%,$(notdir $(wildcard $(srcdir)/*.pc.in)))) pcifiles = $(patsubst %,%-@API_VERSION@.pc,$(packages)) pcufiles = $(patsubst %,%-@API_VERSION@-uninstalled.pc,$(packages)) defsdir = $(guilemoduledir)/defs defs_DATA = $(wildcard $(srcdir)/*.defs) EXTRA_DIST = $(defs_DATA) DEFS_HEADER_DIR = /usr/include PANGO_INCLS = pango/pango.h \ pango/pango-attributes.h \ pango/pango-break.h \ pango/pango-context.h \ pango/pango-coverage.h \ pango/pango-enum-types.h \ pango/pango-font.h \ pango/pango-fontmap.h \ pango/pango-glyph.h \ pango/pango-item.h \ pango/pango-layout.h \ pango/pango-renderer.h \ pango/pango-script.h \ pango/pango-tabs.h \ pango/pango-types.h LIBGLADE_INCLS = glade/glade-xml.h all: all-am .SUFFIXES: .SUFFIXES: .x .doc .c $(srcdir)/Makefile.in: $(srcdir)/Makefile.am $(top_srcdir)/common.mk $(am__configure_deps) @for dep in $?; do \ case '$(am__configure_deps)' in \ *$$dep*) \ ( cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh ) \ && { if test -f $@; then exit 0; else break; fi; }; \ exit 1;; \ esac; \ done; \ echo ' cd $(top_srcdir) && $(AUTOMAKE) --gnu defs/gnome/defs/Makefile'; \ $(am__cd) $(top_srcdir) && \ $(AUTOMAKE) --gnu defs/gnome/defs/Makefile .PRECIOUS: Makefile Makefile: $(srcdir)/Makefile.in $(top_builddir)/config.status @case '$?' in \ *config.status*) \ cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh;; \ *) \ echo ' cd $(top_builddir) && $(SHELL) ./config.status $(subdir)/$@ $(am__depfiles_maybe)'; \ cd $(top_builddir) && $(SHELL) ./config.status $(subdir)/$@ $(am__depfiles_maybe);; \ esac; $(top_srcdir)/common.mk: $(top_builddir)/config.status: $(top_srcdir)/configure $(CONFIG_STATUS_DEPENDENCIES) cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh $(top_srcdir)/configure: $(am__configure_deps) cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh $(ACLOCAL_M4): $(am__aclocal_m4_deps) cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh $(am__aclocal_m4_deps): mostlyclean-libtool: -rm -f *.lo clean-libtool: -rm -rf .libs _libs install-defsDATA: $(defs_DATA) @$(NORMAL_INSTALL) @list='$(defs_DATA)'; test -n "$(defsdir)" || list=; \ if test -n "$$list"; then \ echo " $(MKDIR_P) '$(DESTDIR)$(defsdir)'"; \ $(MKDIR_P) "$(DESTDIR)$(defsdir)" || exit 1; \ fi; \ for p in $$list; do \ if test -f "$$p"; then d=; else d="$(srcdir)/"; fi; \ echo "$$d$$p"; \ done | $(am__base_list) | \ while read files; do \ echo " $(INSTALL_DATA) $$files '$(DESTDIR)$(defsdir)'"; \ $(INSTALL_DATA) $$files "$(DESTDIR)$(defsdir)" || exit $$?; \ done uninstall-defsDATA: @$(NORMAL_UNINSTALL) @list='$(defs_DATA)'; test -n "$(defsdir)" || list=; \ files=`for p in $$list; do echo $$p; done | sed -e 's|^.*/||'`; \ dir='$(DESTDIR)$(defsdir)'; $(am__uninstall_files_from_dir) tags: TAGS TAGS: ctags: CTAGS CTAGS: distdir: $(DISTFILES) @srcdirstrip=`echo "$(srcdir)" | sed 's/[].[^$$\\*]/\\\\&/g'`; \ topsrcdirstrip=`echo "$(top_srcdir)" | sed 's/[].[^$$\\*]/\\\\&/g'`; \ list='$(DISTFILES)'; \ dist_files=`for file in $$list; do echo $$file; done | \ sed -e "s|^$$srcdirstrip/||;t" \ -e "s|^$$topsrcdirstrip/|$(top_builddir)/|;t"`; \ case $$dist_files in \ */*) $(MKDIR_P) `echo "$$dist_files" | \ sed '/\//!d;s|^|$(distdir)/|;s,/[^/]*$$,,' | \ sort -u` ;; \ esac; \ for file in $$dist_files; do \ if test -f $$file || test -d $$file; then d=.; else d=$(srcdir); fi; \ if test -d $$d/$$file; then \ dir=`echo "/$$file" | sed -e 's,/[^/]*$$,,'`; \ if test -d "$(distdir)/$$file"; then \ find "$(distdir)/$$file" -type d ! -perm -700 -exec chmod u+rwx {} \;; \ fi; \ if test -d $(srcdir)/$$file && test $$d != $(srcdir); then \ cp -fpR $(srcdir)/$$file "$(distdir)$$dir" || exit 1; \ find "$(distdir)/$$file" -type d ! -perm -700 -exec chmod u+rwx {} \;; \ fi; \ cp -fpR $$d/$$file "$(distdir)$$dir" || exit 1; \ else \ test -f "$(distdir)/$$file" \ || cp -p $$d/$$file "$(distdir)/$$file" \ || exit 1; \ fi; \ done check-am: all-am check: check-am all-am: Makefile $(DATA) installdirs: for dir in "$(DESTDIR)$(defsdir)"; do \ test -z "$$dir" || $(MKDIR_P) "$$dir"; \ done install: install-am install-exec: install-exec-am install-data: install-data-am uninstall: uninstall-am install-am: all-am @$(MAKE) $(AM_MAKEFLAGS) install-exec-am install-data-am installcheck: installcheck-am install-strip: if test -z '$(STRIP)'; then \ $(MAKE) $(AM_MAKEFLAGS) INSTALL_PROGRAM="$(INSTALL_STRIP_PROGRAM)" \ install_sh_PROGRAM="$(INSTALL_STRIP_PROGRAM)" INSTALL_STRIP_FLAG=-s \ install; \ else \ $(MAKE) $(AM_MAKEFLAGS) INSTALL_PROGRAM="$(INSTALL_STRIP_PROGRAM)" \ install_sh_PROGRAM="$(INSTALL_STRIP_PROGRAM)" INSTALL_STRIP_FLAG=-s \ "INSTALL_PROGRAM_ENV=STRIPPROG='$(STRIP)'" install; \ fi mostlyclean-generic: clean-generic: distclean-generic: -test -z "$(CONFIG_CLEAN_FILES)" || rm -f $(CONFIG_CLEAN_FILES) -test . = "$(srcdir)" || test -z "$(CONFIG_CLEAN_VPATH_FILES)" || rm -f $(CONFIG_CLEAN_VPATH_FILES) maintainer-clean-generic: @echo "This command is intended for maintainers to use" @echo "it deletes files that may require special tools to rebuild." clean: clean-am clean-am: clean-generic clean-libtool mostlyclean-am distclean: distclean-am -rm -f Makefile distclean-am: clean-am distclean-generic dvi: dvi-am dvi-am: html: html-am html-am: info: info-am info-am: install-data-am: install-defsDATA install-dvi: install-dvi-am install-dvi-am: install-exec-am: install-html: install-html-am install-html-am: install-info: install-info-am install-info-am: install-man: install-pdf: install-pdf-am install-pdf-am: install-ps: install-ps-am install-ps-am: installcheck-am: maintainer-clean: maintainer-clean-am -rm -f Makefile maintainer-clean-am: distclean-am maintainer-clean-generic mostlyclean: mostlyclean-am mostlyclean-am: mostlyclean-generic mostlyclean-libtool pdf: pdf-am pdf-am: ps: ps-am ps-am: uninstall-am: uninstall-defsDATA .MAKE: install-am install-strip .PHONY: all all-am check check-am clean clean-generic clean-libtool \ distclean distclean-generic distclean-libtool distdir dvi \ dvi-am html html-am info info-am install install-am \ install-data install-data-am install-defsDATA install-dvi \ install-dvi-am install-exec install-exec-am install-html \ install-html-am install-info install-info-am install-man \ install-pdf install-pdf-am install-ps install-ps-am \ install-strip installcheck installcheck-am installdirs \ maintainer-clean maintainer-clean-generic mostlyclean \ mostlyclean-generic mostlyclean-libtool pdf pdf-am ps ps-am \ uninstall uninstall-am uninstall-defsDATA export GUILE_LOAD_PATH .c.x: guile-snarf $(GUILE_SNARF_CFLAGS) $< > $@ \ || { rm $@; false; } .c.doc: $(CPP) -DSCM_MAGIC_SNARF_DOCS $(GUILE_SNARF_CFLAGS) $< \ | grep -E '(\^\^ {|\^\^ })' > $@ || { rm $@; false; } %.scm guile-gnome-gw-%.c: %-spec.scm guile $(GUILE_FLAGS) -c \ "(debug-set! stack 400000) \ (use-modules (gnome-@API_VERSION@)) \ (use-modules (g-wrap)) \ (use-modules (gnome gw $*-spec)) \ (generate-wrapset 'guile 'gnome-$* \"guile-gnome-gw-$*\")" mv guile-gnome-gw-$*.scm $*.scm %-@API_VERSION@.pc: %.pc cp $< $@ %-@API_VERSION@-uninstalled.pc: %-uninstalled.pc cp $< $@ glib: ../../../h2def.py --c-enums --types \ $(DEFS_HEADER_DIR)/glib-2.0/glib/*.h > glib-types.defs ../../../h2def.py --procs --no-methods \ --with-header='(include type-ignores) (include "glib-types.defs") (include overrides)' \ $(DEFS_HEADER_DIR)/glib-2.0/glib/*.h > glib.defs atk: ../../../h2def.py --types \ $(DEFS_HEADER_DIR)/atk-1.0/atk/*.h > atk-types.defs ../../../h2def.py --procs \ --with-header='(include "common-ignores.defs") (include type-ignores) (include "atk-types.defs") (include overrides)' \ $(DEFS_HEADER_DIR)/atk-1.0/atk/*.h > atk.defs pango: ../../../h2def.py --types \ $(addprefix $(DEFS_HEADER_DIR)/pango-1.0/,$(PANGO_INCLS)) \ > pango-types.defs ../../../h2def.py --procs \ --with-header='(include "common-ignores.defs") (include "pango-types.defs") (include overrides)' \ $(addprefix $(DEFS_HEADER_DIR)/pango-1.0/,$(PANGO_INCLS)) \ > pango.defs pangocairo: ../../../h2def.py --types \ $(addprefix $(DEFS_HEADER_DIR)/pango-1.0/,pango/pangocairo.h) \ > pangocairo-types.defs ../../../h2def.py --procs \ --with-header='(include "common-ignores.defs") (include "pangocairo-types.defs") (include overrides)' \ $(addprefix $(DEFS_HEADER_DIR)/pango-1.0/,pango/pangocairo.h) \ > pangocairo.defs gdk-pixbuf: ../../../h2def.py --types \ $(shell ls $(DEFS_HEADER_DIR)/gtk-2.0/gdk-pixbuf/gdk-pixbuf*.h | grep -v io.h) > gdk-pixbuf-types.defs ../../../h2def.py --procs \ --with-header='(include "gdk-pixbuf-types.defs") (include overrides)' \ $(shell ls $(DEFS_HEADER_DIR)/gtk-2.0/gdk-pixbuf/gdk-pixbuf*.h | grep -v io.h) > gdk-pixbuf.defs gdk: ../../../h2def.py --types \ $(shell ls $(DEFS_HEADER_DIR)/gtk-2.0/gdk/gdk*.h | grep -v alias) > gdk-types.defs ../../../h2def.py --procs \ --with-header='(include type-ignores) (include "common-ignores.defs") (include "gdk-types.defs") (include overrides)' \ $(shell ls $(DEFS_HEADER_DIR)/gtk-2.0/gdk/gdk*.h | grep -v alias) > gdk.defs gtk: ../../../h2def.py --types \ $(shell ls $(DEFS_HEADER_DIR)/gtk-2.0/gtk/gtk*.h | grep -v filesystem) > gtk-types.defs ../../../h2def.py --procs \ --with-header='(include type-ignores) (include "gtk-types.defs") (include overrides)' \ $(shell ls $(DEFS_HEADER_DIR)/gtk-2.0/gtk/gtk*.h | grep -v filesystem) > gtk.defs libglade: ../../../h2def.py --types \ $(addprefix $(DEFS_HEADER_DIR)/libglade-2.0/,$(LIBGLADE_INCLS)) \ > libglade-types.defs ../../../h2def.py --procs \ --with-header='(include "libglade-types.defs") (include overrides)' \ $(addprefix $(DEFS_HEADER_DIR)/libglade-2.0/,$(LIBGLADE_INCLS)) \ > libglade.defs libgnome: ../../../h2def.py --types \ $(DEFS_HEADER_DIR)/libgnome-2.0/libgnome/*.h > libgnome-types.defs ../../../h2def.py --procs \ --with-header='(include "libgnome-types.defs") (include overrides)' \ $(DEFS_HEADER_DIR)/libgnome-2.0/libgnome/*.h > libgnome.defs libgnomeui: ../../../h2def.py --types \ $(DEFS_HEADER_DIR)/libgnomeui-2.0/libgnomeui/*.h > libgnomeui-types.defs ../../../h2def.py --procs \ --with-header='(include type-ignores) (include "libgnomeui-types.defs") (include overrides)' \ $(DEFS_HEADER_DIR)/libgnomeui-2.0/libgnomeui/*.h > libgnomeui.defs libgnomecanvas: ../../../h2def.py --types \ $(DEFS_HEADER_DIR)/libgnomecanvas-2.0/libgnomecanvas/*.h > libgnomecanvas-types.defs ../../../h2def.py --procs \ --with-header='(include "libgnomecanvas-types.defs") (include overrides)' \ $(DEFS_HEADER_DIR)/libgnomecanvas-2.0/libgnomecanvas/*.h > libgnomecanvas.defs gnome-vfs: ../../../h2def.py --types --type-re='s/^GNOME_VFS_?/GNOME_VFS_TYPE_VFS_/' \ $(DEFS_HEADER_DIR)/gnome-vfs-2.0/libgnomevfs/*.h > gnome-vfs-types.defs ../../../h2def.py --procs \ --with-header='(include type-ignores) (include "gnome-vfs-types.defs") (include overrides)' \ $(DEFS_HEADER_DIR)/gnome-vfs-2.0/libgnomevfs/*.h > gnome-vfs.defs gconf: ../../../h2def.py --types \ $(DEFS_HEADER_DIR)/gconf/2/gconf/*.h > gconf-types.defs ../../../h2def.py --procs \ --with-header='(include type-ignores) (include "gconf-types.defs") (include overrides)' \ $(DEFS_HEADER_DIR)/gconf/2/gconf/*.h > gconf.defs # Tell versions [3.59,3.63) of GNU make to not export all variables. # Otherwise a system limit (for SysV at least) may be exceeded. .NOEXPORT: guile-gnome-platform-2.16.2/defs/gnome/defs/pangocairo-types.defs0000644000175000017500000000013411670374302025263 0ustar00wingowingo00000000000000;; -*- scheme -*- ;; Enumerations and flags ... ;; -*- scheme -*- ; object definitions ... guile-gnome-platform-2.16.2/defs/gnome/defs/bonobo.defs0000644000175000017500000014752511670374302023275 0ustar00wingowingo00000000000000;; -*- scheme -*- (include "bonobo-types.defs") ;; From /home/james/cvs/gnome2/libbonobo/bonobo/bonobo-arg.h (define-function bonobo_arg_new_from (c-name "bonobo_arg_new_from") (return-type "BonoboArg*") (parameters '("BonoboArgType" "t") '("gconstpointer" "data") ) ) (define-method release (of-object "BonoboArg") (c-name "bonobo_arg_release") (return-type "none") ) (define-method copy (of-object "BonoboArg") (c-name "bonobo_arg_copy") (return-type "BonoboArg*") ) (define-method from_gvalue (of-object "BonoboArg") (c-name "bonobo_arg_from_gvalue") (return-type "none") (parameters '("const-GValue*" "value") ) ) (define-function arg_type_from_gtype (c-name "bonobo_arg_type_from_gtype") (return-type "BonoboArgType") (parameters '("GType" "t") ) ) (define-function bonobo_arg_to_gvalue (c-name "bonobo_arg_to_gvalue") (return-type "none") (parameters '("GValue*" "value") '("const-BonoboArg*" "arg") ) ) (define-method to_gtype (of-object "BonoboArgType") (c-name "bonobo_arg_type_to_gtype") (return-type "GType") ) (define-method is_equal (of-object "BonoboArg") (c-name "bonobo_arg_is_equal") (return-type "gboolean") (parameters '("const-BonoboArg*" "b") '("CORBA_Environment*" "opt_ev") ) ) (define-method is_equal (of-object "BonoboArgType") (c-name "bonobo_arg_type_is_equal") (return-type "gboolean") (parameters '("BonoboArgType" "b") '("CORBA_Environment*" "opt_ev") ) ) ;; From /home/james/cvs/gnome2/libbonobo/bonobo/bonobo-config-database.h (define-function bonobo_config_get_string_with_default (c-name "bonobo_config_get_string_with_default") (return-type "gchar*") (parameters '("Bonobo_ConfigDatabase" "db") '("const-char*" "key") '("gchar*" "defval") '("gboolean*" "def") ) ) (define-function bonobo_config_get_short (c-name "bonobo_config_get_short") (return-type "gint16") (parameters '("Bonobo_ConfigDatabase" "db") '("const-char*" "key") '("CORBA_Environment*" "opt_ev") ) ) (define-function bonobo_config_get_short_with_default (c-name "bonobo_config_get_short_with_default") (return-type "gint16") (parameters '("Bonobo_ConfigDatabase" "db") '("const-char*" "key") '("gint16" "defval") '("gboolean*" "def") ) ) (define-function bonobo_config_get_ushort (c-name "bonobo_config_get_ushort") (return-type "guint16") (parameters '("Bonobo_ConfigDatabase" "db") '("const-char*" "key") '("CORBA_Environment*" "opt_ev") ) ) (define-function bonobo_config_get_ushort_with_default (c-name "bonobo_config_get_ushort_with_default") (return-type "guint16") (parameters '("Bonobo_ConfigDatabase" "db") '("const-char*" "key") '("guint16" "defval") '("gboolean*" "def") ) ) (define-function bonobo_config_get_long (c-name "bonobo_config_get_long") (return-type "gint32") (parameters '("Bonobo_ConfigDatabase" "db") '("const-char*" "key") '("CORBA_Environment*" "opt_ev") ) ) (define-function bonobo_config_get_long_with_default (c-name "bonobo_config_get_long_with_default") (return-type "gint32") (parameters '("Bonobo_ConfigDatabase" "db") '("const-char*" "key") '("gint32" "defval") '("gboolean*" "def") ) ) (define-function bonobo_config_get_ulong (c-name "bonobo_config_get_ulong") (return-type "guint32") (parameters '("Bonobo_ConfigDatabase" "db") '("const-char*" "key") '("CORBA_Environment*" "opt_ev") ) ) (define-function bonobo_config_get_ulong_with_default (c-name "bonobo_config_get_ulong_with_default") (return-type "guint32") (parameters '("Bonobo_ConfigDatabase" "db") '("const-char*" "key") '("guint32" "defval") '("gboolean*" "def") ) ) (define-function bonobo_config_get_float (c-name "bonobo_config_get_float") (return-type "gfloat") (parameters '("Bonobo_ConfigDatabase" "db") '("const-char*" "key") '("CORBA_Environment*" "opt_ev") ) ) (define-function bonobo_config_get_float_with_default (c-name "bonobo_config_get_float_with_default") (return-type "gfloat") (parameters '("Bonobo_ConfigDatabase" "db") '("const-char*" "key") '("gfloat" "defval") '("gboolean*" "def") ) ) (define-function bonobo_config_get_double (c-name "bonobo_config_get_double") (return-type "gdouble") (parameters '("Bonobo_ConfigDatabase" "db") '("const-char*" "key") '("CORBA_Environment*" "opt_ev") ) ) (define-function bonobo_config_get_double_with_default (c-name "bonobo_config_get_double_with_default") (return-type "gdouble") (parameters '("Bonobo_ConfigDatabase" "db") '("const-char*" "key") '("gdouble" "defval") '("gboolean*" "def") ) ) (define-function bonobo_config_get_boolean (c-name "bonobo_config_get_boolean") (return-type "gboolean") (parameters '("Bonobo_ConfigDatabase" "db") '("const-char*" "key") '("CORBA_Environment*" "opt_ev") ) ) (define-function bonobo_config_get_boolean_with_default (c-name "bonobo_config_get_boolean_with_default") (return-type "gboolean") (parameters '("Bonobo_ConfigDatabase" "db") '("const-char*" "key") '("gboolean" "defval") '("gboolean*" "def") ) ) (define-function bonobo_config_get_char (c-name "bonobo_config_get_char") (return-type "gchar") (parameters '("Bonobo_ConfigDatabase" "db") '("const-char*" "key") '("CORBA_Environment*" "opt_ev") ) ) (define-function bonobo_config_get_char_with_default (c-name "bonobo_config_get_char_with_default") (return-type "gchar") (parameters '("Bonobo_ConfigDatabase" "db") '("const-char*" "key") '("gchar" "defval") '("gboolean*" "def") ) ) (define-function bonobo_config_get_value (c-name "bonobo_config_get_value") (return-type "CORBA_any*") (parameters '("Bonobo_ConfigDatabase" "db") '("const-char*" "key") '("CORBA_TypeCode" "opt_tc") '("CORBA_Environment*" "opt_ev") ) ) (define-function bonobo_config_set_string (c-name "bonobo_config_set_string") (return-type "none") (parameters '("Bonobo_ConfigDatabase" "db") '("const-char*" "key") '("const-char*" "value") '("CORBA_Environment*" "opt_ev") ) ) (define-function bonobo_config_set_short (c-name "bonobo_config_set_short") (return-type "none") (parameters '("Bonobo_ConfigDatabase" "db") '("const-char*" "key") '("gint16" "value") '("CORBA_Environment*" "opt_ev") ) ) (define-function bonobo_config_set_ushort (c-name "bonobo_config_set_ushort") (return-type "none") (parameters '("Bonobo_ConfigDatabase" "db") '("const-char*" "key") '("guint16" "value") '("CORBA_Environment*" "opt_ev") ) ) (define-function bonobo_config_set_long (c-name "bonobo_config_set_long") (return-type "none") (parameters '("Bonobo_ConfigDatabase" "db") '("const-char*" "key") '("gint32" "value") '("CORBA_Environment*" "opt_ev") ) ) (define-function bonobo_config_set_ulong (c-name "bonobo_config_set_ulong") (return-type "none") (parameters '("Bonobo_ConfigDatabase" "db") '("const-char*" "key") '("guint32" "value") '("CORBA_Environment*" "opt_ev") ) ) (define-function bonobo_config_set_float (c-name "bonobo_config_set_float") (return-type "none") (parameters '("Bonobo_ConfigDatabase" "db") '("const-char*" "key") '("gfloat" "value") '("CORBA_Environment*" "opt_ev") ) ) (define-function bonobo_config_set_double (c-name "bonobo_config_set_double") (return-type "none") (parameters '("Bonobo_ConfigDatabase" "db") '("const-char*" "key") '("gdouble" "value") '("CORBA_Environment*" "opt_ev") ) ) (define-function bonobo_config_set_boolean (c-name "bonobo_config_set_boolean") (return-type "none") (parameters '("Bonobo_ConfigDatabase" "db") '("const-char*" "key") '("gboolean" "value") '("CORBA_Environment*" "opt_ev") ) ) (define-function bonobo_config_set_char (c-name "bonobo_config_set_char") (return-type "none") (parameters '("Bonobo_ConfigDatabase" "db") '("const-char*" "key") '("gchar" "value") '("CORBA_Environment*" "opt_ev") ) ) (define-function bonobo_config_set_value (c-name "bonobo_config_set_value") (return-type "none") (parameters '("Bonobo_ConfigDatabase" "db") '("const-char*" "key") '("CORBA_any*" "value") '("CORBA_Environment*" "opt_ev") ) ) ;; From /home/james/cvs/gnome2/libbonobo/bonobo/bonobo-context.h (define-function context_add (c-name "bonobo_context_add") (return-type "none") (parameters '("const-CORBA_char*" "context_name") '("Bonobo_Unknown" "context") ) ) (define-function context_running_get (c-name "bonobo_context_running_get") (return-type "BonoboObject*") ) (define-function running_context_auto_exit_unref (c-name "bonobo_running_context_auto_exit_unref") (return-type "none") (parameters '("BonoboObject*" "object") ) ) ;; From /home/james/cvs/gnome2/libbonobo/bonobo/bonobo-event-source.h (define-function bonobo_event_source_get_type (c-name "bonobo_event_source_get_type") (return-type "GType") ) (define-function bonobo_event_source_new (c-name "bonobo_event_source_new") (is-constructor-of BonoboEventSource) (return-type "BonoboEventSource*") ) (define-method notify_listeners (of-object "BonoboEventSource") (c-name "bonobo_event_source_notify_listeners") (return-type "none") (parameters '("const-char*" "event_name") '("const-CORBA_any*" "opt_value") '("CORBA_Environment*" "opt_ev") ) ) (define-method notify_listeners_full (of-object "BonoboEventSource") (c-name "bonobo_event_source_notify_listeners_full") (return-type "none") (parameters '("const-char*" "path") '("const-char*" "type") '("const-char*" "subtype") '("const-CORBA_any*" "opt_value") '("CORBA_Environment*" "opt_ev") ) ) (define-function event_source_client_remove_listener (c-name "bonobo_event_source_client_remove_listener") (return-type "none") (parameters '("Bonobo_Unknown" "object") '("Bonobo_Listener" "listener") '("CORBA_Environment*" "opt_ev") ) ) (define-function event_source_client_add_listener (c-name "bonobo_event_source_client_add_listener") (return-type "none") (parameters '("Bonobo_Unknown" "object") '("BonoboListenerCallbackFn" "event_callback") '("const-char*" "opt_mask") '("CORBA_Environment*" "opt_ev") '("gpointer" "user_data") ) ) (define-function event_source_client_add_listener_closure (c-name "bonobo_event_source_client_add_listener_closure") (return-type "none") (parameters '("Bonobo_Unknown" "object") '("GClosure*" "callback") '("const-char*" "opt_mask") '("CORBA_Environment*" "opt_ev") ) ) (define-function event_source_client_add_listener_full (c-name "bonobo_event_source_client_add_listener_full") (return-type "Bonobo_Listener") (caller-owns-return #f) (parameters '("Bonobo_Unknown" "object") '("GClosure*" "callback") '("const-char*" "opt_mask") '("CORBA_Environment*" "opt_ev") ) ) (define-method ignore_listeners (of-object "BonoboEventSource") (c-name "bonobo_event_source_ignore_listeners") (return-type "none") ) ;; From /home/james/cvs/gnome2/libbonobo/bonobo/bonobo-exception.h (define-function exception_repoid_to_text (c-name "bonobo_exception_repoid_to_text") (return-type "char*") (parameters '("const-char*" "repo_id") ) ) (define-function exception_add_handler_str (c-name "bonobo_exception_add_handler_str") (return-type "none") (parameters '("const-char*" "repo_id") '("const-char*" "str") ) ) (define-function exception_add_handler_fn (c-name "bonobo_exception_add_handler_fn") (return-type "none") (parameters '("const-char*" "repo_id") '("BonoboExceptionFn" "fn") '("gpointer" "user_data") '("GDestroyNotify" "destroy_fn") ) ) (define-function exception_general_error_set (c-name "bonobo_exception_general_error_set") (return-type "none") (parameters '("CORBA_Environment*" "ev") '("CORBA_TypeCode" "opt_deriv") '("const-char*" "format") ) (varargs #t) ) (define-function exception_general_error_get (c-name "bonobo_exception_general_error_get") (return-type "const-char*") (parameters '("CORBA_Environment*" "ev") ) ) ;; From /home/james/cvs/gnome2/libbonobo/bonobo/bonobo-generic-factory.h (define-function bonobo_generic_factory_get_type (c-name "bonobo_generic_factory_get_type") (return-type "GType") ) (define-function bonobo_generic_factory_new (c-name "bonobo_generic_factory_new") (is-constructor-of BonoboGenericFactory) (return-type "BonoboGenericFactory*") (parameters '("const-char*" "act_iid") '("BonoboFactoryCallback" "factory_cb") '("gpointer" "user_data") ) ) (define-function bonobo_generic_factory_new_closure (c-name "bonobo_generic_factory_new_closure") (is-constructor-of BonoboGenericFactory) (return-type "BonoboGenericFactory*") (parameters '("const-char*" "act_iid") '("GClosure*" "factory_closure") ) ) (define-method construct (of-object "BonoboGenericFactory") (c-name "bonobo_generic_factory_construct") (return-type "BonoboGenericFactory*") (parameters '("const-char*" "act_iid") '("GClosure*" "factory_cb") ) ) (define-method construct_noreg (of-object "BonoboGenericFactory") (c-name "bonobo_generic_factory_construct_noreg") (return-type "none") (parameters '("const-char*" "act_iid") '("GClosure*" "factory_cb") ) ) (define-function bonobo_generic_factory_main (c-name "bonobo_generic_factory_main") (return-type "int") (parameters '("const-char*" "act_iid") '("BonoboFactoryCallback" "factory_cb") '("gpointer" "user_data") ) ) ;; From /home/james/cvs/gnome2/libbonobo/bonobo/bonobo-i18n.h ;; From /home/james/cvs/gnome2/libbonobo/bonobo/bonobo-item-container.h (define-function bonobo_item_container_get_type (c-name "bonobo_item_container_get_type") (return-type "GType") ) (define-function bonobo_item_container_new (c-name "bonobo_item_container_new") (is-constructor-of BonoboItemContainer) (return-type "BonoboItemContainer*") ) (define-method add (of-object "BonoboItemContainer") (c-name "bonobo_item_container_add") (return-type "none") (parameters '("const-char*" "name") '("BonoboObject*" "object") ) ) (define-method remove_by_name (of-object "BonoboItemContainer") (c-name "bonobo_item_container_remove_by_name") (return-type "none") (parameters '("const-char*" "name") ) ) ;; From /home/james/cvs/gnome2/libbonobo/bonobo/bonobo-listener.h (define-function bonobo_listener_get_type (c-name "bonobo_listener_get_type") (return-type "GType") ) (define-function bonobo_listener_new (c-name "bonobo_listener_new") (is-constructor-of BonoboListener) (return-type "BonoboListener*") (parameters '("BonoboListenerCallbackFn" "event_cb") '("gpointer" "user_data") ) ) (define-function bonobo_listener_new_closure (c-name "bonobo_listener_new_closure") (is-constructor-of BonoboListener) (return-type "BonoboListener*") (parameters '("GClosure*" "event_closure") ) ) (define-function event_make_name (c-name "bonobo_event_make_name") (return-type "char*") (parameters '("const-char*" "idl_path") '("const-char*" "kind") '("const-char*" "subtype") ) ) (define-function event_type (c-name "bonobo_event_type") (return-type "char*") (parameters '("const-char*" "event_name") ) ) (define-function event_subtype (c-name "bonobo_event_subtype") (return-type "char*") (parameters '("const-char*" "event_name") ) ) (define-function event_kind (c-name "bonobo_event_kind") (return-type "char*") (parameters '("const-char*" "event_name") ) ) (define-function event_idl_path (c-name "bonobo_event_idl_path") (return-type "char*") (parameters '("const-char*" "event_name") ) ) ;; From /home/james/cvs/gnome2/libbonobo/bonobo/bonobo-macros.h ;; From /home/james/cvs/gnome2/libbonobo/bonobo/bonobo-main.h (define-function init (c-name "bonobo_init") (return-type "gboolean") (parameters '("int*" "argc") '("char**" "argv") ) ) (define-function bonobo_init_full (c-name "bonobo_init_full") (return-type "gboolean") (parameters '("int*" "argc") '("char**" "argv") '("CORBA_ORB" "orb") '("PortableServer_POA" "poa") '("PortableServer_POAManager" "manager") ) ) (define-function debug_shutdown (c-name "bonobo_debug_shutdown") (return-type "int") ) (define-function main (c-name "bonobo_main") (return-type "none") ) (define-function main_quit (c-name "bonobo_main_quit") (return-type "none") ) (define-function activate (c-name "bonobo_activate") (return-type "gboolean") ) (define-function bonobo_setup_x_error_handler (c-name "bonobo_setup_x_error_handler") (return-type "none") ) (define-function orb (c-name "bonobo_orb") (return-type "CORBA_ORB") ) (define-function poa (c-name "bonobo_poa") (return-type "PortableServer_POA") ) (define-function poa_manager (c-name "bonobo_poa_manager") (return-type "PortableServer_POAManager") ) ;; From /home/james/cvs/gnome2/libbonobo/bonobo/bonobo-moniker.h (define-function bonobo_moniker_get_type (c-name "bonobo_moniker_get_type") (return-type "GType") ) (define-method construct (of-object "BonoboMoniker") (c-name "bonobo_moniker_construct") (return-type "BonoboMoniker*") (parameters '("const-char*" "prefix") ) ) (define-method get_parent (of-object "BonoboMoniker") (c-name "bonobo_moniker_get_parent") (return-type "Bonobo_Moniker") (caller-owns-return #f) (parameters '("CORBA_Environment*" "opt_ev") ) ) (define-method set_parent (of-object "BonoboMoniker") (c-name "bonobo_moniker_set_parent") (return-type "none") (parameters '("Bonobo_Moniker" "parent") '("CORBA_Environment*" "opt_ev") ) ) (define-method get_name (of-object "BonoboMoniker") (c-name "bonobo_moniker_get_name") (return-type "const-char*") ) (define-method get_name_full (of-object "BonoboMoniker") (c-name "bonobo_moniker_get_name_full") (return-type "const-char*") ) (define-method get_name_escaped (of-object "BonoboMoniker") (c-name "bonobo_moniker_get_name_escaped") (return-type "char*") ) (define-method set_name (of-object "BonoboMoniker") (c-name "bonobo_moniker_set_name") (return-type "none") (parameters '("const-char*" "unescaped_name") ) ) (define-method get_prefix (of-object "BonoboMoniker") (c-name "bonobo_moniker_get_prefix") (return-type "const-char*") ) (define-method set_case_sensitive (of-object "BonoboMoniker") (c-name "bonobo_moniker_set_case_sensitive") (return-type "none") (parameters '("gboolean" "sensitive") ) ) (define-method get_case_sensitive (of-object "BonoboMoniker") (c-name "bonobo_moniker_get_case_sensitive") (return-type "gboolean") ) ;; From /home/james/cvs/gnome2/libbonobo/bonobo/bonobo-moniker-simple.h (define-function bonobo_moniker_simple_get_type (c-name "bonobo_moniker_simple_get_type") (return-type "GType") ) (define-method construct (of-object "BonoboMonikerSimple") (c-name "bonobo_moniker_simple_construct") (return-type "BonoboMoniker*") (parameters '("const-char*" "name") '("GClosure*" "resolve_closure") ) ) (define-function bonobo_moniker_simple_new (c-name "bonobo_moniker_simple_new") (is-constructor-of BonoboMoniker) (return-type "BonoboMoniker*") (parameters '("const-char*" "name") '("BonoboMonikerSimpleResolveFn" "resolve_fn") ) ) (define-function bonobo_moniker_simple_new_closure (c-name "bonobo_moniker_simple_new_closure") (is-constructor-of BonoboMoniker) (return-type "BonoboMoniker*") (parameters '("const-char*" "name") '("GClosure*" "resolve_closure") ) ) ;; From /home/james/cvs/gnome2/libbonobo/bonobo/bonobo-moniker-util.h (define-function get_object (c-name "bonobo_get_object") (return-type "Bonobo_Unknown") (caller-owns-return #f) (parameters '("const-CORBA_char*" "name") '("const-char*" "interface_name") '("CORBA_Environment*" "opt_ev") ) ) (define-function moniker_client_new_from_name (c-name "bonobo_moniker_client_new_from_name") (return-type "Bonobo_Moniker") (caller-owns-return #f) (parameters '("const-CORBA_char*" "name") '("CORBA_Environment*" "opt_ev") ) ) (define-function moniker_client_get_name (c-name "bonobo_moniker_client_get_name") (return-type "CORBA_char*") (parameters '("Bonobo_Moniker" "moniker") '("CORBA_Environment*" "opt_ev") ) ) (define-function moniker_client_resolve_default (c-name "bonobo_moniker_client_resolve_default") (return-type "Bonobo_Unknown") (caller-owns-return #f) (parameters '("Bonobo_Moniker" "moniker") '("const-char*" "interface_name") '("CORBA_Environment*" "opt_ev") ) ) (define-function moniker_client_equal (c-name "bonobo_moniker_client_equal") (return-type "gboolean") (parameters '("Bonobo_Moniker" "moniker") '("const-CORBA_char*" "name") '("CORBA_Environment*" "opt_ev") ) ) (define-function get_object_async (c-name "bonobo_get_object_async") (return-type "none") (parameters '("const-CORBA_char*" "name") '("const-char*" "interface_name") '("CORBA_Environment*" "ev") '("BonoboMonikerAsyncFn" "cb") '("gpointer" "user_data") ) ) (define-function moniker_client_new_from_name_async (c-name "bonobo_moniker_client_new_from_name_async") (return-type "none") (parameters '("const-CORBA_char*" "name") '("CORBA_Environment*" "ev") '("BonoboMonikerAsyncFn" "cb") '("gpointer" "user_data") ) ) (define-function moniker_resolve_async (c-name "bonobo_moniker_resolve_async") (return-type "none") (parameters '("Bonobo_Moniker" "moniker") '("Bonobo_ResolveOptions*" "options") '("const-char*" "interface_name") '("CORBA_Environment*" "ev") '("BonoboMonikerAsyncFn" "cb") '("gpointer" "user_data") ) ) (define-function moniker_resolve_async_default (c-name "bonobo_moniker_resolve_async_default") (return-type "none") (parameters '("Bonobo_Moniker" "moniker") '("const-char*" "interface_name") '("CORBA_Environment*" "ev") '("BonoboMonikerAsyncFn" "cb") '("gpointer" "user_data") ) ) (define-function moniker_util_get_parent_name (c-name "bonobo_moniker_util_get_parent_name") (return-type "CORBA_char*") (parameters '("Bonobo_Moniker" "moniker") '("CORBA_Environment*" "opt_ev") ) ) (define-function moniker_util_qi_return (c-name "bonobo_moniker_util_qi_return") (return-type "Bonobo_Unknown") (caller-owns-return #f) (parameters '("Bonobo_Unknown" "object") '("const-CORBA_char*" "requested_interface") '("CORBA_Environment*" "ev") ) ) (define-function moniker_util_parse_name (c-name "bonobo_moniker_util_parse_name") (return-type "const-char*") (parameters '("const-char*" "name") '("int*" "plen") ) ) (define-function moniker_util_seek_std_separator (c-name "bonobo_moniker_util_seek_std_separator") (return-type "int") (parameters '("const-CORBA_char*" "str") '("int" "min_idx") ) ) (define-function moniker_util_escape (c-name "bonobo_moniker_util_escape") (return-type "char*") (parameters '("const-char*" "string") '("int" "offset") ) ) (define-function moniker_util_unescape (c-name "bonobo_moniker_util_unescape") (return-type "char*") (parameters '("const-char*" "string") '("int" "num_chars") ) ) (define-function url_register (c-name "bonobo_url_register") (return-type "none") (parameters '("char*" "oafiid") '("char*" "url") '("char*" "mime_type") '("Bonobo_Unknown" "object") '("CORBA_Environment*" "ev") ) ) (define-function url_unregister (c-name "bonobo_url_unregister") (return-type "none") (parameters '("char*" "oafiid") '("char*" "url") '("CORBA_Environment*" "ev") ) ) (define-function url_lookup (c-name "bonobo_url_lookup") (return-type "Bonobo_Unknown") (caller-owns-return #f) (parameters '("char*" "oafiid") '("char*" "url") '("CORBA_Environment*" "ev") ) ) ;; From /home/james/cvs/gnome2/libbonobo/bonobo/bonobo-object.h (define-function bonobo_object_get_type (c-name "bonobo_object_get_type") (return-type "GType") ) (define-method add_interface (of-object "BonoboObject") (c-name "bonobo_object_add_interface") (return-type "none") (parameters '("BonoboObject*" "newobj") ) ) (define-method query_local_interface (of-object "BonoboObject") (c-name "bonobo_object_query_local_interface") (return-type "BonoboObject*") (parameters '("const-char*" "repo_id") ) ) (define-method query_interface (of-object "BonoboObject") (c-name "bonobo_object_query_interface") (return-type "Bonobo_Unknown") (caller-owns-return #f) (parameters '("const-char*" "repo_id") '("CORBA_Environment*" "opt_ev") ) ) (define-method corba_objref (of-object "BonoboObject") (c-name "bonobo_object_corba_objref") (return-type "Bonobo_Unknown") (caller-owns-return #f) ) (define-function object_dup_ref (c-name "bonobo_object_dup_ref") (return-type "Bonobo_Unknown") (caller-owns-return #f) (parameters '("Bonobo_Unknown" "object") '("CORBA_Environment*" "opt_ev") ) ) (define-function object_release_unref (c-name "bonobo_object_release_unref") (return-type "Bonobo_Unknown") (caller-owns-return #f) (parameters '("Bonobo_Unknown" "object") '("CORBA_Environment*" "opt_ev") ) ) (define-method ref (of-object "BonoboObject") (c-name "bonobo_object_ref") (return-type "gpointer") ) (define-method idle_unref (of-object "BonoboObject") (c-name "bonobo_object_idle_unref") (return-type "none") ) (define-method unref (of-object "BonoboObject") (c-name "bonobo_object_unref") (return-type "gpointer") ) (define-method set_immortal (of-object "BonoboObject") (c-name "bonobo_object_set_immortal") (return-type "none") (parameters '("gboolean" "immortal") ) ) (define-method trace_refs (of-object "BonoboObject") (c-name "bonobo_object_trace_refs") (return-type "gpointer") (parameters '("const-char*" "fn") '("int" "line") '("gboolean" "ref") ) ) (define-method dump_interfaces (of-object "BonoboObject") (c-name "bonobo_object_dump_interfaces") (return-type "none") ) (define-method check_env (of-object "BonoboObject") (c-name "bonobo_object_check_env") (return-type "none") (parameters '("CORBA_Object" "corba_object") '("CORBA_Environment*" "ev") ) ) (define-function object_list_unref_all (c-name "bonobo_object_list_unref_all") (return-type "none") (parameters '("GList**" "list") ) ) (define-function bonobo_object_slist_unref_all (c-name "bonobo_object_slist_unref_all") (return-type "none") (parameters '("GSList**" "list") ) ) (define-function bonobo_object (c-name "bonobo_object") (return-type "BonoboObject*") (parameters '("gpointer" "p") ) ) (define-function bonobo_type_setup (c-name "bonobo_type_setup") (return-type "gboolean") (parameters '("GType" "type") '("BonoboObjectPOAFn" "init_fn") '("BonoboObjectPOAFn" "fini_fn") '("int" "epv_struct_offset") ) ) ;; From /home/james/cvs/gnome2/libbonobo/bonobo/bonobo-persist-client.h (define-function object_from_stream (c-name "bonobo_object_from_stream") (return-type "Bonobo_Unknown") (caller-owns-return #f) (parameters '("Bonobo_Stream" "stream") '("CORBA_Environment*" "opt_ev") ) ) ;; From /home/james/cvs/gnome2/libbonobo/bonobo/bonobo-persist-file.h (define-function bonobo_persist_file_get_type (c-name "bonobo_persist_file_get_type") (return-type "GType") ) (define-function bonobo_persist_file_new (c-name "bonobo_persist_file_new") (is-constructor-of BonoboPersistFile) (return-type "BonoboPersistFile*") (parameters '("BonoboPersistFileIOFn" "load_fn") '("BonoboPersistFileIOFn" "save_fn") '("const-gchar*" "iid") '("void*" "closure") ) ) (define-method construct (of-object "BonoboPersistFile") (c-name "bonobo_persist_file_construct") (return-type "BonoboPersistFile*") (parameters '("BonoboPersistFileIOFn" "load_fn") '("BonoboPersistFileIOFn" "save_fn") '("const-gchar*" "iid") '("void*" "closure") ) ) ;; From /home/james/cvs/gnome2/libbonobo/bonobo/bonobo-persist.h (define-function bonobo_persist_get_type (c-name "bonobo_persist_get_type") (return-type "GType") ) (define-function bonobo_persist_generate_content_types (c-name "bonobo_persist_generate_content_types") (return-type "Bonobo_Persist_ContentTypeList*") (caller-owns-return #f) (parameters '("int" "num") ) (varargs #t) ) (define-method construct (of-object "BonoboPersist") (c-name "bonobo_persist_construct") (return-type "BonoboPersist*") (parameters '("const-gchar*" "iid") ) ) (define-method set_dirty (of-object "BonoboPersist") (c-name "bonobo_persist_set_dirty") (return-type "none") (parameters '("gboolean" "dirty") ) ) ;; From /home/james/cvs/gnome2/libbonobo/bonobo/bonobo-persist-stream.h (define-function bonobo_persist_stream_get_type (c-name "bonobo_persist_stream_get_type") (return-type "GType") ) (define-function bonobo_persist_stream_new (c-name "bonobo_persist_stream_new") (is-constructor-of BonoboPersistStream) (return-type "BonoboPersistStream*") (parameters '("BonoboPersistStreamIOFn" "load_fn") '("BonoboPersistStreamIOFn" "save_fn") '("BonoboPersistStreamTypesFn" "types_fn") '("const-gchar*" "iid") '("void*" "closure") ) ) (define-method construct (of-object "BonoboPersistStream") (c-name "bonobo_persist_stream_construct") (return-type "BonoboPersistStream*") (parameters '("BonoboPersistStreamIOFn" "load_fn") '("BonoboPersistStreamIOFn" "save_fn") '("BonoboPersistStreamTypesFn" "types_fn") '("const-gchar*" "iid") '("void*" "closure") ) ) ;; From /home/james/cvs/gnome2/libbonobo/bonobo/bonobo-property-bag-client.h (define-function pbclient_get_string (c-name "bonobo_pbclient_get_string") (return-type "gchar*") (parameters '("Bonobo_PropertyBag" "bag") '("const-char*" "key") '("CORBA_Environment*" "opt_ev") ) ) (define-function pbclient_get_default_string (c-name "bonobo_pbclient_get_default_string") (return-type "gchar*") (parameters '("Bonobo_PropertyBag" "bag") '("const-char*" "key") '("CORBA_Environment*" "opt_ev") ) ) (define-function pbclient_get_string_with_default (c-name "bonobo_pbclient_get_string_with_default") (return-type "gchar*") (parameters '("Bonobo_PropertyBag" "bag") '("const-char*" "key") '("gchar*" "defval") '("gboolean*" "def") ) ) (define-function pbclient_get_short (c-name "bonobo_pbclient_get_short") (return-type "gint16") (parameters '("Bonobo_PropertyBag" "bag") '("const-char*" "key") '("CORBA_Environment*" "opt_ev") ) ) (define-function pbclient_get_default_short (c-name "bonobo_pbclient_get_default_short") (return-type "gint16") (parameters '("Bonobo_PropertyBag" "bag") '("const-char*" "key") '("CORBA_Environment*" "opt_ev") ) ) (define-function pbclient_get_short_with_default (c-name "bonobo_pbclient_get_short_with_default") (return-type "gint16") (parameters '("Bonobo_PropertyBag" "bag") '("const-char*" "key") '("gint16" "defval") '("gboolean*" "def") ) ) (define-function pbclient_get_ushort (c-name "bonobo_pbclient_get_ushort") (return-type "guint16") (parameters '("Bonobo_PropertyBag" "bag") '("const-char*" "key") '("CORBA_Environment*" "opt_ev") ) ) (define-function pbclient_get_default_ushort (c-name "bonobo_pbclient_get_default_ushort") (return-type "guint16") (parameters '("Bonobo_PropertyBag" "bag") '("const-char*" "key") '("CORBA_Environment*" "opt_ev") ) ) (define-function pbclient_get_ushort_with_default (c-name "bonobo_pbclient_get_ushort_with_default") (return-type "guint16") (parameters '("Bonobo_PropertyBag" "bag") '("const-char*" "key") '("guint16" "defval") '("gboolean*" "def") ) ) (define-function pbclient_get_long (c-name "bonobo_pbclient_get_long") (return-type "gint32") (parameters '("Bonobo_PropertyBag" "bag") '("const-char*" "key") '("CORBA_Environment*" "opt_ev") ) ) (define-function pbclient_get_default_long (c-name "bonobo_pbclient_get_default_long") (return-type "gint32") (parameters '("Bonobo_PropertyBag" "bag") '("const-char*" "key") '("CORBA_Environment*" "opt_ev") ) ) (define-function pbclient_get_long_with_default (c-name "bonobo_pbclient_get_long_with_default") (return-type "gint32") (parameters '("Bonobo_PropertyBag" "bag") '("const-char*" "key") '("gint32" "defval") '("gboolean*" "def") ) ) (define-function pbclient_get_ulong (c-name "bonobo_pbclient_get_ulong") (return-type "guint32") (parameters '("Bonobo_PropertyBag" "bag") '("const-char*" "key") '("CORBA_Environment*" "opt_ev") ) ) (define-function pbclient_get_default_ulong (c-name "bonobo_pbclient_get_default_ulong") (return-type "guint32") (parameters '("Bonobo_PropertyBag" "bag") '("const-char*" "key") '("CORBA_Environment*" "opt_ev") ) ) (define-function pbclient_get_ulong_with_default (c-name "bonobo_pbclient_get_ulong_with_default") (return-type "guint32") (parameters '("Bonobo_PropertyBag" "bag") '("const-char*" "key") '("guint32" "defval") '("gboolean*" "def") ) ) (define-function pbclient_get_float (c-name "bonobo_pbclient_get_float") (return-type "gfloat") (parameters '("Bonobo_PropertyBag" "bag") '("const-char*" "key") '("CORBA_Environment*" "opt_ev") ) ) (define-function pbclient_get_default_float (c-name "bonobo_pbclient_get_default_float") (return-type "gfloat") (parameters '("Bonobo_PropertyBag" "bag") '("const-char*" "key") '("CORBA_Environment*" "opt_ev") ) ) (define-function pbclient_get_float_with_default (c-name "bonobo_pbclient_get_float_with_default") (return-type "gfloat") (parameters '("Bonobo_PropertyBag" "bag") '("const-char*" "key") '("gfloat" "defval") '("gboolean*" "def") ) ) (define-function pbclient_get_double (c-name "bonobo_pbclient_get_double") (return-type "gdouble") (parameters '("Bonobo_PropertyBag" "bag") '("const-char*" "key") '("CORBA_Environment*" "opt_ev") ) ) (define-function pbclient_get_default_double (c-name "bonobo_pbclient_get_default_double") (return-type "gdouble") (parameters '("Bonobo_PropertyBag" "bag") '("const-char*" "key") '("CORBA_Environment*" "opt_ev") ) ) (define-function pbclient_get_double_with_default (c-name "bonobo_pbclient_get_double_with_default") (return-type "gdouble") (parameters '("Bonobo_PropertyBag" "bag") '("const-char*" "key") '("gdouble" "defval") '("gboolean*" "def") ) ) (define-function pbclient_get_boolean (c-name "bonobo_pbclient_get_boolean") (return-type "gboolean") (parameters '("Bonobo_PropertyBag" "bag") '("const-char*" "key") '("CORBA_Environment*" "opt_ev") ) ) (define-function pbclient_get_default_boolean (c-name "bonobo_pbclient_get_default_boolean") (return-type "gboolean") (parameters '("Bonobo_PropertyBag" "bag") '("const-char*" "key") '("CORBA_Environment*" "opt_ev") ) ) (define-function pbclient_get_boolean_with_default (c-name "bonobo_pbclient_get_boolean_with_default") (return-type "gboolean") (parameters '("Bonobo_PropertyBag" "bag") '("const-char*" "key") '("gboolean" "defval") '("gboolean*" "def") ) ) (define-function pbclient_get_char (c-name "bonobo_pbclient_get_char") (return-type "gchar") (parameters '("Bonobo_PropertyBag" "bag") '("const-char*" "key") '("CORBA_Environment*" "opt_ev") ) ) (define-function pbclient_get_default_char (c-name "bonobo_pbclient_get_default_char") (return-type "gchar") (parameters '("Bonobo_PropertyBag" "bag") '("const-char*" "key") '("CORBA_Environment*" "opt_ev") ) ) (define-function pbclient_get_char_with_default (c-name "bonobo_pbclient_get_char_with_default") (return-type "gchar") (parameters '("Bonobo_PropertyBag" "bag") '("const-char*" "key") '("gchar" "defval") '("gboolean*" "def") ) ) (define-function pbclient_get_value (c-name "bonobo_pbclient_get_value") (return-type "CORBA_any*") (parameters '("Bonobo_PropertyBag" "bag") '("const-char*" "key") '("CORBA_TypeCode" "opt_tc") '("CORBA_Environment*" "opt_ev") ) ) (define-function pbclient_get_default_value (c-name "bonobo_pbclient_get_default_value") (return-type "CORBA_any*") (parameters '("Bonobo_PropertyBag" "bag") '("const-char*" "key") '("CORBA_TypeCode" "opt_tc") '("CORBA_Environment*" "opt_ev") ) ) (define-function pbclient_set_string (c-name "bonobo_pbclient_set_string") (return-type "none") (parameters '("Bonobo_PropertyBag" "bag") '("const-char*" "key") '("const-char*" "value") '("CORBA_Environment*" "opt_ev") ) ) (define-function pbclient_set_short (c-name "bonobo_pbclient_set_short") (return-type "none") (parameters '("Bonobo_PropertyBag" "bag") '("const-char*" "key") '("gint16" "value") '("CORBA_Environment*" "opt_ev") ) ) (define-function pbclient_set_ushort (c-name "bonobo_pbclient_set_ushort") (return-type "none") (parameters '("Bonobo_PropertyBag" "bag") '("const-char*" "key") '("guint16" "value") '("CORBA_Environment*" "opt_ev") ) ) (define-function pbclient_set_long (c-name "bonobo_pbclient_set_long") (return-type "none") (parameters '("Bonobo_PropertyBag" "bag") '("const-char*" "key") '("gint32" "value") '("CORBA_Environment*" "opt_ev") ) ) (define-function pbclient_set_ulong (c-name "bonobo_pbclient_set_ulong") (return-type "none") (parameters '("Bonobo_PropertyBag" "bag") '("const-char*" "key") '("guint32" "value") '("CORBA_Environment*" "opt_ev") ) ) (define-function pbclient_set_float (c-name "bonobo_pbclient_set_float") (return-type "none") (parameters '("Bonobo_PropertyBag" "bag") '("const-char*" "key") '("gfloat" "value") '("CORBA_Environment*" "opt_ev") ) ) (define-function pbclient_set_double (c-name "bonobo_pbclient_set_double") (return-type "none") (parameters '("Bonobo_PropertyBag" "bag") '("const-char*" "key") '("gdouble" "value") '("CORBA_Environment*" "opt_ev") ) ) (define-function pbclient_set_boolean (c-name "bonobo_pbclient_set_boolean") (return-type "none") (parameters '("Bonobo_PropertyBag" "bag") '("const-char*" "key") '("gboolean" "value") '("CORBA_Environment*" "opt_ev") ) ) (define-function pbclient_set_char (c-name "bonobo_pbclient_set_char") (return-type "none") (parameters '("Bonobo_PropertyBag" "bag") '("const-char*" "key") '("gchar" "value") '("CORBA_Environment*" "opt_ev") ) ) (define-function pbclient_set_value (c-name "bonobo_pbclient_set_value") (return-type "none") (parameters '("Bonobo_PropertyBag" "bag") '("const-char*" "key") '("CORBA_any*" "value") '("CORBA_Environment*" "opt_ev") ) ) (define-function pbclient_get_doc_title (c-name "bonobo_pbclient_get_doc_title") (return-type "char*") (parameters '("Bonobo_PropertyBag" "bag") '("const-char*" "key") '("CORBA_Environment*" "opt_ev") ) ) (define-function pbclient_get_doc (c-name "bonobo_pbclient_get_doc") (return-type "char*") (parameters '("Bonobo_PropertyBag" "bag") '("const-char*" "key") '("CORBA_Environment*" "opt_ev") ) ) (define-function pbclient_get_keys (c-name "bonobo_pbclient_get_keys") (return-type "GList*") (parameters '("Bonobo_PropertyBag" "bag") '("CORBA_Environment*" "opt_ev") ) ) (define-function pbclient_free_keys (c-name "bonobo_pbclient_free_keys") (return-type "none") (parameters '("GList*" "key_list") ) ) (define-function pbclient_get_flags (c-name "bonobo_pbclient_get_flags") (return-type "Bonobo_PropertyFlags") (caller-owns-return #f) (parameters '("Bonobo_PropertyBag" "bag") '("const-char*" "key") '("CORBA_Environment*" "opt_ev") ) ) (define-function pbclient_set (c-name "bonobo_pbclient_set") (return-type "none") (parameters '("Bonobo_PropertyBag" "bag") '("CORBA_Environment*" "opt_ev") '("const-char*" "first_prop") ) (varargs #t) ) (define-function pbclient_get (c-name "bonobo_pbclient_get") (return-type "none") (parameters '("Bonobo_PropertyBag" "bag") '("CORBA_Environment*" "opt_ev") '("const-char*" "first_prop") ) (varargs #t) ) (define-function pbclient_setv (c-name "bonobo_pbclient_setv") (return-type "char*") (parameters '("Bonobo_PropertyBag" "bag") '("CORBA_Environment*" "ev") '("const-char*" "first_prop") '("va_list" "var_args") ) ) (define-function pbclient_getv (c-name "bonobo_pbclient_getv") (return-type "char*") (parameters '("Bonobo_PropertyBag" "bag") '("CORBA_Environment*" "ev") '("const-char*" "first_prop") '("va_list" "var_args") ) ) ;; From /home/james/cvs/gnome2/libbonobo/bonobo/bonobo-property-bag.h (define-function bonobo_property_bag_get_type (c-name "bonobo_property_bag_get_type") (return-type "GType") ) (define-function bonobo_property_bag_new (c-name "bonobo_property_bag_new") (is-constructor-of BonoboPropertyBag) (return-type "BonoboPropertyBag*") (parameters '("BonoboPropertyGetFn" "get_prop_cb") '("BonoboPropertySetFn" "set_prop_cb") '("gpointer" "user_data") ) ) (define-function bonobo_property_bag_new_closure (c-name "bonobo_property_bag_new_closure") (is-constructor-of BonoboPropertyBag) (return-type "BonoboPropertyBag*") (parameters '("GClosure*" "get_prop") '("GClosure*" "set_prop") ) ) (define-function bonobo_property_bag_new_full (c-name "bonobo_property_bag_new_full") (return-type "BonoboPropertyBag*") (parameters '("GClosure*" "get_prop") '("GClosure*" "set_prop") '("BonoboEventSource*" "event_source") ) ) (define-method construct (of-object "BonoboPropertyBag") (c-name "bonobo_property_bag_construct") (return-type "BonoboPropertyBag*") (parameters '("GClosure*" "get_prop") '("GClosure*" "set_prop") '("BonoboEventSource*" "event_source") ) ) (define-method add (of-object "BonoboPropertyBag") (c-name "bonobo_property_bag_add") (return-type "none") (parameters '("const-char*" "name") '("int" "idx") '("BonoboArgType" "type") '("BonoboArg*" "default_value") '("const-char*" "doctitle") '("Bonobo_PropertyFlags" "flags") ) ) (define-method add_full (of-object "BonoboPropertyBag") (c-name "bonobo_property_bag_add_full") (return-type "none") (parameters '("const-char*" "name") '("int" "idx") '("BonoboArgType" "type") '("BonoboArg*" "default_value") '("const-char*" "doctitle") '("const-char*" "docstring") '("Bonobo_PropertyFlags" "flags") '("GClosure*" "get_prop") '("GClosure*" "set_prop") ) ) (define-method remove (of-object "BonoboPropertyBag") (c-name "bonobo_property_bag_remove") (return-type "none") (parameters '("const-char*" "name") ) ) (define-method map_params (of-object "BonoboPropertyBag") (c-name "bonobo_property_bag_map_params") (return-type "none") (parameters '("GObject*" "on_instance") '("const-GParamSpec**" "pspecs") '("guint" "n_params") ) ) (define-method get_prop_list (of-object "BonoboPropertyBag") (c-name "bonobo_property_bag_get_prop_list") (return-type "GList*") ) ;; From /home/james/cvs/gnome2/libbonobo/bonobo/bonobo-shlib-factory.h (define-function bonobo_shlib_factory_get_type (c-name "bonobo_shlib_factory_get_type") (return-type "GType") ) (define-method construct (of-object "BonoboShlibFactory") (c-name "bonobo_shlib_factory_construct") (return-type "BonoboShlibFactory*") (parameters '("const-char*" "component_id") '("PortableServer_POA" "poa") '("gpointer" "act_impl_ptr") '("GClosure*" "closure") ) ) (define-function bonobo_shlib_factory_new (c-name "bonobo_shlib_factory_new") (is-constructor-of BonoboShlibFactory) (return-type "BonoboShlibFactory*") (parameters '("const-char*" "component_id") '("PortableServer_POA" "poa") '("gpointer" "act_impl_ptr") '("BonoboFactoryCallback" "factory_cb") '("gpointer" "user_data") ) ) (define-function bonobo_shlib_factory_new_closure (c-name "bonobo_shlib_factory_new_closure") (is-constructor-of BonoboShlibFactory) (return-type "BonoboShlibFactory*") (parameters '("const-char*" "component_id") '("PortableServer_POA" "poa") '("gpointer" "act_impl_ptr") '("GClosure*" "factory_closure") ) ) (define-function bonobo_shlib_factory_std (c-name "bonobo_shlib_factory_std") (return-type "Bonobo_Unknown") (caller-owns-return #f) (parameters '("const-char*" "component_id") '("PortableServer_POA" "poa") '("gpointer" "act_impl_ptr") '("BonoboFactoryCallback" "factory_cb") '("gpointer" "user_data") '("CORBA_Environment*" "ev") ) ) ;; From /home/james/cvs/gnome2/libbonobo/bonobo/bonobo-storage.h ;; From /home/james/cvs/gnome2/libbonobo/bonobo/bonobo-storage-memory.h (define-function bonobo_storage_mem_get_type (c-name "bonobo_storage_mem_get_type") (return-type "GType") ) (define-function storage_mem_create (c-name "bonobo_storage_mem_create") (return-type "BonoboObject*") ) ;; From /home/james/cvs/gnome2/libbonobo/bonobo/bonobo-stream-client.h (define-function bonobo_stream_client_read (c-name "bonobo_stream_client_read") (return-type "guint8*") (parameters '("const-Bonobo_Stream" "stream") '("const-size_t" "size") '("CORBA_long*" "length_read") '("CORBA_Environment*" "ev") ) ) (define-function bonobo_stream_client_write_string (c-name "bonobo_stream_client_write_string") (return-type "none") (parameters '("const-Bonobo_Stream" "stream") '("const-char*" "str") '("const-gboolean" "terminate") '("CORBA_Environment*" "ev") ) ) (define-function bonobo_stream_client_printf (c-name "bonobo_stream_client_printf") (return-type "none") (parameters '("const-Bonobo_Stream" "stream") '("const-gboolean" "terminate") '("CORBA_Environment*" "ev") '("const-char*" "fmt") ) (varargs #t) ) (define-function stream_client_read_string (c-name "bonobo_stream_client_read_string") (return-type "CORBA_long") (parameters '("const-Bonobo_Stream" "stream") '("char**" "str") '("CORBA_Environment*" "ev") ) ) (define-function stream_client_get_length (c-name "bonobo_stream_client_get_length") (return-type "CORBA_long") (parameters '("const-Bonobo_Stream" "stream") '("CORBA_Environment*" "ev") ) ) ;; From /home/james/cvs/gnome2/libbonobo/bonobo/bonobo-stream.h ;; From /home/james/cvs/gnome2/libbonobo/bonobo/bonobo-stream-memory.h (define-function bonobo_stream_mem_get_type (c-name "bonobo_stream_mem_get_type") (return-type "GType") ) (define-method construct (of-object "BonoboStreamMem") (c-name "bonobo_stream_mem_construct") (return-type "BonoboStreamMem*") (parameters '("const-char*" "buffer") '("size_t" "size") '("gboolean" "read_only") '("gboolean" "resizable") ) ) (define-function bonobo_stream_mem_create (c-name "bonobo_stream_mem_create") (return-type "BonoboStream*") (parameters '("const-char*" "buffer") '("size_t" "size") '("gboolean" "read_only") '("gboolean" "resizable") ) ) (define-method get_buffer (of-object "BonoboStreamMem") (c-name "bonobo_stream_mem_get_buffer") (return-type "const-char*") ) (define-method get_size (of-object "BonoboStreamMem") (c-name "bonobo_stream_mem_get_size") (return-type "size_t") ) ;; From /home/james/cvs/gnome2/libbonobo/bonobo/bonobo-types.h (define-function bonobo_unknown_get_type (c-name "bonobo_unknown_get_type") (return-type "GType") ) (define-function bonobo_corba_any_get_type (c-name "bonobo_corba_any_get_type") (return-type "GType") ) (define-function bonobo_corba_object_get_type (c-name "bonobo_corba_object_get_type") (return-type "GType") ) (define-function bonobo_corba_typecode_get_type (c-name "bonobo_corba_typecode_get_type") (return-type "GType") ) (define-function bonobo_corba_exception_get_type (c-name "bonobo_corba_exception_get_type") (return-type "GType") ) (define-function bonobo_value_get_unknown (c-name "bonobo_value_get_unknown") (return-type "Bonobo_Unknown") (caller-owns-return #f) (parameters '("const-GValue*" "value") ) ) (define-function bonobo_value_get_corba_any (c-name "bonobo_value_get_corba_any") (return-type "BonoboArg*") (parameters '("const-GValue*" "value") ) ) (define-function bonobo_value_get_corba_object (c-name "bonobo_value_get_corba_object") (return-type "CORBA_Object") (parameters '("const-GValue*" "value") ) ) (define-function bonobo_value_get_corba_typecode (c-name "bonobo_value_get_corba_typecode") (return-type "CORBA_TypeCode") (parameters '("const-GValue*" "value") ) ) (define-function bonobo_value_get_corba_exception (c-name "bonobo_value_get_corba_exception") (return-type "const-CORBA_Environment*") (parameters '("const-GValue*" "value") ) ) (define-function bonobo_value_set_corba_object (c-name "bonobo_value_set_corba_object") (return-type "none") (parameters '("GValue*" "value") '("const-CORBA_Object" "object") ) ) (define-function bonobo_value_set_unknown (c-name "bonobo_value_set_unknown") (return-type "none") (parameters '("GValue*" "value") '("const-Bonobo_Unknown" "unknown") ) ) (define-function bonobo_value_set_corba_any (c-name "bonobo_value_set_corba_any") (return-type "none") (parameters '("GValue*" "value") '("const-CORBA_any*" "any") ) ) (define-function bonobo_value_set_corba_typecode (c-name "bonobo_value_set_corba_typecode") (return-type "none") (parameters '("GValue*" "value") '("const-CORBA_TypeCode" "tc") ) ) (define-function bonobo_value_set_corba_environment (c-name "bonobo_value_set_corba_environment") (return-type "none") (parameters '("GValue*" "value") '("const-CORBA_Environment*" "ev") ) ) (define-function bonobo_closure_invoke_va_list (c-name "bonobo_closure_invoke_va_list") (return-type "none") (parameters '("GClosure*" "closure") '("GValue*" "return_value") '("va_list" "var_args") ) ) (define-function bonobo_closure_invoke (c-name "bonobo_closure_invoke") (return-type "none") (parameters '("GClosure*" "closure") '("GType" "return_type") ) (varargs #t) ) (define-function bonobo_closure_store (c-name "bonobo_closure_store") (return-type "GClosure*") (parameters '("GClosure*" "closure") '("GClosureMarshal" "default_marshal") ) ) ;; From /home/james/cvs/gnome2/libbonobo/bonobo/bonobo-xobject.h ;; From bonobo-item-handler.h (define-function bonobo_item_handler_get_type (c-name "bonobo_item_handler_get_type") (return-type "GType") ) (define-function bonobo_item_handler_new (c-name "bonobo_item_handler_new") (is-constructor-of BonoboItemHandler) (return-type "BonoboItemHandler*") (parameters '("BonoboItemHandlerEnumObjectsFn" "enum_objects") '("BonoboItemHandlerGetObjectFn" "get_object") '("gpointer" "user_data") ) ) (define-function bonobo_item_handler_new_closure (c-name "bonobo_item_handler_new_closure") (is-constructor-of BonoboItemHandler) (return-type "BonoboItemHandler*") (parameters '("GClosure*" "enum_objects") '("GClosure*" "get_object") ) ) (define-method construct (of-object "BonoboItemHandler") (c-name "bonobo_item_handler_construct") (return-type "BonoboItemHandler*") (parameters '("GClosure*" "enum_objects") '("GClosure*" "get_object") ) ) (define-function bonobo_item_option_parse (c-name "bonobo_item_option_parse") (return-type "GSList*") (parameters '("const-char*" "option_string") ) ) (define-function bonobo_item_options_free (c-name "bonobo_item_options_free") (return-type "none") (parameters '("GSList*" "options") ) ) guile-gnome-platform-2.16.2/defs/gnome/defs/print.defs0000644000175000017500000006046011670374302023143 0ustar00wingowingo00000000000000;; -*- scheme -*- (include "art.defs") ; boxed types (define-boxed Unit (c-name "GnomePrintUnit") (gtype-id "GNOME_TYPE_PRINT_UNIT") (fields '("guint" "base") '("gdouble" "unittobase") '("gchar*" "name") '("gchar*" "abbr") '("gchar*" "plural") '("gchar*" "abbr_plural")) ) (define-boxed GlyphList (c-name "GnomeGlyphList") (gtype-id "GNOME_TYPE_GLYPHLIST") ) ; object definitions ... (define-object Config (parent "GObject") (c-name "GnomePrintConfig") (gtype-id "GNOME_TYPE_PRINT_CONFIG") ) (define-object Context (parent "GObject") (c-name "GnomePrintContext") (gtype-id "GNOME_TYPE_PRINT_CONTEXT") ) (define-object Font (parent "GObject") (c-name "GnomeFont") (gtype-id "GNOME_TYPE_FONT") ) (define-object FontFace (parent "GObject") (c-name "GnomeFontFace") (gtype-id "GNOME_TYPE_FONT_FACE") ) (define-object Job (parent "GObject") (c-name "GnomePrintJob") (gtype-id "GNOME_TYPE_PRINT_JOB") ) ; --- GnomePrintConfig --- (define-method get (of-object "GnomePrintConfig") (c-name "gnome_print_config_get") (return-type "gchar*") (parameters '("const-gchar*" "key")) ) (define-method set (of-object "GnomePrintConfig") (c-name "gnome_print_config_set") (return-type "gboolean") (parameters '("const-gchar*" "key") '("const-gchar*" "value")) ) (define-method get_boolean (of-object "GnomePrintConfig") (c-name "gnome_print_config_get_boolean") (return-type "gboolean") (parameters '("const-gchar*" "key")) ) (define-method get_int (of-object "GnomePrintConfig") (c-name "gnome_print_config_get_int") (return-type "gboolean") (parameters '("const-gchar*" "key")) ) (define-method get_double (of-object "GnomePrintConfig") (c-name "gnome_print_config_get_double") (return-type "gboolean") (parameters '("const-gchar*" "key")) ) (define-method get_length (of-object "GnomePrintConfig") (c-name "gnome_print_config_get_length") (return-type "gboolean") (parameters '("const-gchar*" "key") '("GnomePrintUnit*" "unit")) ) (define-method set_boolean (of-object "GnomePrintConfig") (c-name "gnome_print_config_set_boolean") (return-type "gboolean") (parameters '("const-gchar*" "key") '("gboolean" "value")) ) (define-method set_int (of-object "GnomePrintConfig") (c-name "gnome_print_config_set_int") (return-type "gboolean") (parameters '("const-gchar*" "key") '("gint" "value")) ) (define-method set_double (of-object "GnomePrintConfig") (c-name "gnome_print_config_set_double") (return-type "gboolean") (parameters '("const-gchar*" "key") '("gdouble" "value")) ) (define-method set_length (of-object "GnomePrintConfig") (c-name "gnome_print_config_set_length") (return-type "gboolean") (parameters '("const-gchar*" "key") '("gdouble" "value") '("GnomePrintUnit*" "unit")) ) (define-method to_string (of-object "GnomePrintConfig") (c-name "gnome_print_config_to_string") (return-type "gchar*") (parameters '("guint" "flags" (default "0"))) ) (define-function config_from_string ;(is-constructor-of "GnomePrintConfig") (c-name "gnome_print_config_from_string") (return-type "GnomePrintConfig*") (parameters '("const-gchar*" "str") '("guint" "flags" (default "0"))) ) (define-function config_default ;(is-constructor-of "GnomePrintConfig") (c-name "gnome_print_config_default") (return-type "GnomePrintConfig*") ) (define-method dump (of-object "GnomePrintConfig") (c-name "gnome_print_config_dump") (return-type "none") ) ; --- GnomePrintContext --- (define-function gnome_print_context_new (is-constructor-of "GnomePrintContext") (c-name "gnome_print_context_new") (return-type "GnomePrintContext*") (parameters '("GnomePrintConfig*" "config")) ) (define-method close (of-object "GnomePrintContext") (c-name "gnome_print_context_close") (return-type "gint") ) (define-method newpath (of-object "GnomePrintContext") (c-name "gnome_print_newpath") (return-type "gint") ) (define-method moveto (of-object "GnomePrintContext") (c-name "gnome_print_moveto") (return-type "gint") (parameters '("gdouble" "x") '("gdouble" "y")) ) (define-method lineto (of-object "GnomePrintContext") (c-name "gnome_print_lineto") (return-type "gint") (parameters '("gdouble" "x") '("gdouble" "y")) ) (define-method curveto (of-object "GnomePrintContext") (c-name "gnome_print_curveto") (return-type "gint") (parameters '("gdouble" "x1") '("gdouble" "y1") '("gdouble" "x2") '("gdouble" "y2") '("gdouble" "x3") '("gdouble" "y3")) ) (define-method closepath (of-object "GnomePrintContext") (c-name "gnome_print_closepath") (return-type "gint") ) (define-method strokepath (of-object "GnomePrintContext") (c-name "gnome_print_strokepath") (return-type "gint") ) (define-method bpath (of-object "GnomePrintContext") (c-name "gnome_print_bpath") (parameters '("ArtBpath*" "bpath") ; actually sequence '("gboolean" "append")) (return-type "gint") ) (define-method vpath (of-object "GnomePrintContext") (c-name "gnome_print_vpath") (parameters '("ArtVpath*" "vpath") ; actually sequence '("gboolean" "append")) (return-type "gint") ) (define-method arcto (of-object "GnomePrintContext") (c-name "gnome_print_arcto") (return-type "gint") (parameters '("gdouble" "x") '("gdouble" "y") '("gdouble" "radius") '("gdouble" "angle1") '("gdouble" "angle2") '("gint" "direction")) ) (define-method setrgbcolor (of-object "GnomePrintContext") (c-name "gnome_print_setrgbcolor") (return-type "gint") (parameters '("gdouble" "r") '("gdouble" "g") '("gdouble" "b")) ) (define-method setopacity (of-object "GnomePrintContext") (c-name "gnome_print_setopacity") (return-type "gint") (parameters '("gdouble" "opacity")) ) (define-method setlinewidth (of-object "GnomePrintContext") (c-name "gnome_print_setlinewidth") (return-type "gint") (parameters '("gdouble" "width")) ) (define-method setmiterlimit (of-object "GnomePrintContext") (c-name "gnome_print_setmiterlimit") (return-type "gint") (parameters '("gdouble" "limit")) ) (define-method setlinejoin (of-object "GnomePrintContext") (c-name "gnome_print_setlinejoin") (return-type "gint") (parameters '("gint" "jointype")) ) (define-method setlinecap (of-object "GnomePrintContext") (c-name "gnome_print_setlinecap") (return-type "gint") (parameters '("gint" "captype")) ) (define-method setdash (of-object "GnomePrintContext") (c-name "gnome_print_setdash") (return-type "gint") (parameters '("gdouble" "values") ; actually sequence '("gdouble" "offset")) ) (define-method setfont (of-object "GnomePrintContext") (c-name "gnome_print_setfont") (return-type "gint") (parameters '("GnomeFont*" "font")) ) (define-method clip (of-object "GnomePrintContext") (c-name "gnome_print_clip") (return-type "gint") ) (define-method eoclip (of-object "GnomePrintContext") (c-name "gnome_print_eoclip") (return-type "gint") ) (define-method concat (of-object "GnomePrintContext") (c-name "gnome_print_concat") (return-type "gint") (parameters '("gdouble" "matrix")) ; actually sequence with len=6 ) (define-method scale (of-object "GnomePrintContext") (c-name "gnome_print_scale") (return-type "gint") (parameters '("gdouble" "sx") '("gdouble" "sy")) ) (define-method rotate (of-object "GnomePrintContext") (c-name "gnome_print_rotate") (return-type "gint") (parameters '("gdouble" "theta")) ) (define-method translate (of-object "GnomePrintContext") (c-name "gnome_print_translate") (return-type "gint") (parameters '("gdouble" "x") '("gdouble" "y")) ) (define-method gsave (of-object "GnomePrintContext") (c-name "gnome_print_gsave") (return-type "gint") ) (define-method fill (of-object "GnomePrintContext") (c-name "gnome_print_fill") (return-type "gint") ) (define-method eofill (of-object "GnomePrintContext") (c-name "gnome_print_eofill") (return-type "gint") ) (define-method stroke (of-object "GnomePrintContext") (c-name "gnome_print_stroke") (return-type "gint") ) (define-method show (of-object "GnomePrintContext") (c-name "gnome_print_show") (return-type "gint") (parameters '("const-gchar*" "text")) ) (define-method glyphlist (of-object "GnomePrintContext") (c-name "gnome_print_glyphlist") (return-type "gint") (parameters '("GnomeGlyphList*" "glyphlist")) ) ; This one is overridden only to do runtime bounds checking on data (define-method grayimage (of-object "GnomePrintContext") (c-name "gnome_print_grayimage") (return-type "gint") (parameters '("const-guchar*" "data") '("gint" "width") '("gint" "height") '("gint" "rowstride")) ) ; This one is overridden only to do runtime bounds checking on data (define-method rgbimage (of-object "GnomePrintContext") (c-name "gnome_print_rgbimage") (return-type "gint") (parameters '("const-guchar*" "data") '("gint" "width") '("gint" "height") '("gint" "rowstride")) ) ; This one is overridden only to do runtime bounds checking on data (define-method rgbaimage (of-object "GnomePrintContext") (c-name "gnome_print_rgbaimage") (return-type "gint") (parameters '("const-guchar*" "data") '("gint" "width") '("gint" "height") '("gint" "rowstride")) ) (define-method beginpage (of-object "GnomePrintContext") (c-name "gnome_print_beginpage") (return-type "gint") (parameters '("const-gchar*" "name")) ) (define-method showpage (of-object "GnomePrintContext") (c-name "gnome_print_showpage") (return-type "gint") ) ; gnome_print_page_callback ; gnome_print_page_callback_closure ;; This is wrapped around #ifdef GNOME_PRINT_ENABLE_PAGE_CALLBACKS ;(define-method page_callback ; (of-object "GnomePrintContext") ; (c-name "gnome_print_page_callback_closure") ; (parameters ; '("const-gchar*" "name") ; '("gpointer" "pagedata") ; '("gpointer" "docdata") ; '("GClosure*" "closure")) ; (return-type "gint")) (define-method line_stroked (of-object "GnomePrintContext") (c-name "gnome_print_line_stroked") (return-type "gint") (parameters '("gdouble" "x0") '("gdouble" "y0") '("gdouble" "x1") '("gdouble" "y1")) ) (define-method rect_stroked (of-object "GnomePrintContext") (c-name "gnome_print_rect_stroked") (return-type "gint") (parameters '("gdouble" "x") '("gdouble" "y") '("gdouble" "width") '("gdouble" "height")) ) (define-method rect_filled (of-object "GnomePrintContext") (c-name "gnome_print_rect_filled") (return-type "gint") (parameters '("gdouble" "x") '("gdouble" "y") '("gdouble" "width") '("gdouble" "height")) ) ; --- GnomeFont --- (define-method get_name (of-object "GnomeFont") (c-name "gnome_font_get_name") (return-type "const-gchar*") ) (define-method get_family_name (of-object "GnomeFont") (c-name "gnome_font_get_family_name") (return-type "const-gchar*") ) (define-method get_species_name (of-object "GnomeFont") (c-name "gnome_font_get_species_name") (return-type "const-gchar*") ) (define-method get_ps_name (of-object "GnomeFont") (c-name "gnome_font_get_ps_name") (return-type "const-gchar*") ) (define-method lookup_default (of-object "GnomeFont") (c-name "gnome_font_lookup_default") (return-type "gint") (parameters '("gint" "unicode")) ) (define-method get_glyph_stdbbox (of-object "GnomeFont") (c-name "gnome_font_get_glyph_stdbbox") (parameters '("gint" "glyph")) (return-type "ArtDRect*") ) (define-method get_glyph_stdadvance (of-object "GnomeFont") (c-name "gnome_font_get_glyph_stdadvance") (parameters '("gint" "glyph")) (return-type "ArtPoint*") ) (define-method get_glyph_stdoutline (of-object "GnomeFont") (c-name "gnome_font_get_glyph_stdoutline") (parameters '("gint" "glyph")) (return-type "ArtBpath*") ) (define-method get_glyph_stdkerning (of-object "GnomeFont") (c-name "gnome_font_get_glyph_stdkerning") (parameters '("gint" "glyph0") '("gint" "glyph1")) (return-type "ArtPoint*") ) (define-method get_face (of-object "GnomeFont") (c-name "gnome_font_get_face") (return-type "GnomeFontFace*") ) (define-method get_size (of-object "GnomeFont") (c-name "gnome_font_get_size") (return-type "gdouble") ) (define-method get_ascender (of-object "GnomeFont") (c-name "gnome_font_get_ascender") (return-type "gdouble") ) (define-method get_descender (of-object "GnomeFont") (c-name "gnome_font_get_descender") (return-type "gdouble") ) (define-method get_underline_position (of-object "GnomeFont") (c-name "gnome_font_get_underline_position") (return-type "gdouble") ) (define-method get_underline_thickness (of-object "GnomeFont") (c-name "gnome_font_get_underline_thickness") (return-type "gdouble") ) (define-method get_glyph_width (of-object "GnomeFont") (c-name "gnome_font_get_glyph_width") (return-type "gdouble") (parameters '("gint" "glyph")) ) ;; This one is declared in gnome-font.h but not implemented anywhere! ; (define-method get_glyph_kerning ; (of-object "GnomeFont") ; (c-name "gnome_font_get_glyph_kerning") ; (return-type "gdouble") ; (parameters ; '("gint" "glyph1") ; '("gint" "glyph2")) ; ) (define-function font_find_closest_from_weight_slant (c-name "gnome_font_find_closest_from_weight_slant") (return-type "GnomeFont*") (parameters '("const-gchar*" "family") '("gint" "weight") '("gboolean" "italic") '("gdouble" "size")) ) (define-function font_find (c-name "gnome_font_find") (is-constructor-of "GnomeFont") (return-type "GnomeFont*") (parameters '("const-gchar*" "name") '("gdouble" "size")) ) (define-function font_find_closest (c-name "gnome_font_find_closest") (return-type "GnomeFont*") (parameters '("const-gchar*" "name") '("gdouble" "size")) ) (define-function font_find_closest_from_full_name (c-name "gnome_font_find_closest_from_full_name") (return-type "GnomeFont*") (parameters '("const-gchar*" "full_name")) ) (define-function font_list (c-name "gnome_font_list") (return-type "gint") ; actually tuple ) (define-function font_family_list (c-name "gnome_font_family_list") (return-type "gint") ; actually tuple ) (define-function font_style_list (c-name "gnome_font_style_list") (return-type "gint") ; actually tuple (parameters '("const-gchar*" "family")) ) (define-method get_full_name (of-object "GnomeFont") (c-name "gnome_font_get_full_name") (return-type "gchar*") (caller-owns-return #t) ) (define-method get_width_utf8 (of-object "GnomeFont") (c-name "gnome_font_get_width_utf8") (return-type "double") (parameters '("const-gchar*" "str")) ) ; --- GnomeFontFace --- (define-function font_face_find (c-name "gnome_font_face_find") (is-constructor-of "GnomeFontFace") (return-type "GnomeFontFace*") (parameters '("const-gchar*" "name")) ) (define-function font_face_find_closest (c-name "gnome_font_face_find_closest") (is-constructor-of "GnomeFontFace") (return-type "GnomeFontFace*") (parameters '("const-gchar*" "name")) ) (define-function font_face_find_closest_from_weight_slant (c-name "gnome_font_face_find_closest_from_weight_slant") (return-type "GnomeFontFace*") (parameters '("const-gchar*" "family") '("gint" "weigth") '("gboolean" "italic")) ) (define-function font_face_find_closest_from_pango_font (c-name "gnome_font_face_find_closest_from_pango_font") (return-type "GnomeFontFace*") (parameters '("PangoFont*" "pfont")) ) (define-function font_face_find_closest_from_pango_description (c-name "gnome_font_face_find_closest_from_pango_description") (return-type "GnomeFontFace*") (parameters '("PangoFontDescription*" "desc")) ) (define-function font_face_find_from_family_and_style (c-name "gnome_font_face_find_from_family_and_style") (return-type "GnomeFontFace*") (parameters '("const-gchar*" "family") '("const-gchar*" "style")) ) (define-method get_font (of-object "GnomeFontFace") (c-name "gnome_font_face_get_font") (return-type "GnomeFont*") (parameters '("gdouble" "size") '("gdouble" "xres" (default "600.0")) '("gdouble" "yres" (default "600.0"))) ) (define-method get_name (of-object "GnomeFontFace") (c-name "gnome_font_face_get_name") (return-type "const-gchar*") ) (define-method get_family_name (of-object "GnomeFontFace") (c-name "gnome_font_face_get_family_name") (return-type "const-gchar*") ) (define-method get_species_name (of-object "GnomeFontFace") (c-name "gnome_font_face_get_species_name") (return-type "const-gchar*") ) (define-method get_ps_name (of-object "GnomeFontFace") (c-name "gnome_font_face_get_ps_name") (return-type "const-gchar*") ) (define-method get_num_glyphs (of-object "GnomeFontFace") (c-name "gnome_font_face_get_num_glyphs") (return-type "gint") ) (define-method lookup_default (of-object "GnomeFontFace") (c-name "gnome_font_face_lookup_default") (return-type "gint") (parameters '("gint" "unicode")) ) (define-method get_stdbbox (of-object "GnomeFontFace") (c-name "gnome_font_face_get_stdbbox") (caller-owns-return #f) (return-type "ArtDRect*") ) (define-method get_glyph_stdbbox (of-object "GnomeFontFace") (c-name "gnome_font_face_get_glyph_stdbbox") (parameters '("gint" "glyph")) (return-type "ArtDRect*") ) (define-method get_glyph_stdadvance (of-object "GnomeFontFace") (c-name "gnome_font_face_get_glyph_stdadvance") (parameters '("gint" "glyph")) (return-type "ArtPoint*") ) (define-method get_glyph_stdoutline (of-object "GnomeFontFace") (c-name "gnome_font_face_get_glyph_stdoutline") (parameters '("gint" "glyph")) (return-type "ArtBpath*") ) (define-method get_glyph_stdkerning (of-object "GnomeFontFace") (c-name "gnome_font_face_get_glyph_stdkerning") (parameters '("gint" "glyph0") '("gint" "glyph1")) (return-type "ArtPoint*") ) (define-method get_sample (of-object "GnomeFontFace") (c-name "gnome_font_face_get_sample") (return-type "const-gchar*") ) (define-method get_weight_code (of-object "GnomeFontFace") (c-name "gnome_font_face_get_weight_code") (return-type "gint") ) (define-method is_italic (of-object "GnomeFontFace") (c-name "gnome_font_face_is_italic") (return-type "gboolean") ) (define-method is_fixed_width (of-object "GnomeFontFace") (c-name "gnome_font_face_is_fixed_width") (return-type "gboolean") ) (define-method get_ascender (of-object "GnomeFontFace") (c-name "gnome_font_face_get_ascender") (return-type "gdouble") ) (define-method get_descender (of-object "GnomeFontFace") (c-name "gnome_font_face_get_descender") (return-type "gdouble") ) (define-method get_underline_position (of-object "GnomeFontFace") (c-name "gnome_font_face_get_underline_position") (return-type "gdouble") ) (define-method get_underline_thickness (of-object "GnomeFontFace") (c-name "gnome_font_face_get_underline_thickness") (return-type "gdouble") ) (define-method get_glyph_width (of-object "GnomeFontFace") (c-name "gnome_font_face_get_glyph_width") (return-type "gdouble") (parameters '("gint" "glyph")) ) ;; This one is declared in gnome-font-face.h but not implemented anywhere! ; (define-method get_glyph_kerning ; (of-object "GnomeFontFace") ; (c-name "gnome_font_face_get_glyph_kerning") ; (return-type "gdouble") ; (parameters ; '("gint" "glyph1") ; '("gint" "glyph2")) ; ) (define-method get_glyph_ps_name (of-object "GnomeFontFace") (c-name "gnome_font_face_get_glyph_ps_name") (return-type "const-gchar*") (parameters '("gint" "glyph")) ) ;; ----- GnomePrintJob ----- (define-function new (is-constructor-of "GnomePrintJob") (c-name "gnome_print_job_new") (return-type "GnomePrintJob*") (parameters '("GnomePrintConfig*" "config")) ) (define-method get_config (of-object "GnomePrintJob") (c-name "gnome_print_job_get_config") (return-type "GnomePrintConfig*") (caller-owns-return #t) ) (define-method get_context (of-object "GnomePrintJob") (c-name "gnome_print_job_get_context") (return-type "GnomePrintContext*") (caller-owns-return #t) ) (define-method close (of-object "GnomePrintJob") (c-name "gnome_print_job_close") (return-type "gint") ) (define-method print (of-object "GnomePrintJob") (c-name "gnome_print_job_print") (return-type "gint") ) (define-method render (of-object "GnomePrintJob") (c-name "gnome_print_job_render") (return-type "gint") (parameters '("GnomePrintContext*" "context")) ) (define-method render_page (of-object "GnomePrintJob") (c-name "gnome_print_job_render_page") (return-type "gint") (parameters '("GnomePrintContext*" "context") '("gint" "page") '("gboolean" "pageops")) ) (define-method get_pages (of-object "GnomePrintJob") (c-name "gnome_print_job_get_pages") (return-type "gint") ) ; This function actually returns (width, height) or None in case of error ; FIXME: shouldn't this be a method of GnomePrintConfig?... (define-function job_get_page_size_from_config (c-name "gnome_print_job_get_page_size_from_config") (return-type "gdouble") (parameters '("GnomePrintConfig*" "config")) ) (define-method print_to_file (of-object "GnomePrintJob") (c-name "gnome_print_job_print_to_file") (return-type "gint") (parameters '("const-gchar*" "output")) ) ; --- GnomePrintUnit --- (define-function unit_get_identity (c-name "gnome_print_unit_get_identity") (return-type "GnomePrintUnit*") (parameters '("guint" "base")) ) (define-function unit_get_default (c-name "gnome_print_unit_get_default") (return-type "GnomePrintUnit*") ) (define-function unit_get_by_name (c-name "gnome_print_unit_get_by_name") (return-type "GnomePrintUnit*") (parameters '("const-gchar*" "name")) ) (define-function unit_get_by_abbreviation (c-name "gnome_print_unit_get_by_abbreviation") (return-type "GnomePrintUnit*") (parameters '("const-gchar*" "abbreviation")) ) ; --- GnomeGlyphList --- (define-function gnome_glyphlist_new (c-name "gnome_glyphlist_new") (is-constructor-of "GnomeGlyphList") (return-type "GnomeGlyphList*") (caller-owns-return #t) ) (define-method duplicate (of-object "GnomeGlyphList") (c-name "gnome_glyphlist_duplicate") (return-type "GnomeGlyphList*") (caller-owns-return #t) ) (define-function glyphlist_from_text_dumb (c-name "gnome_glyphlist_from_text_dumb") (return-type "GnomeGlyphList*") (caller-owns-return #t) (parameters '("GnomeFont*" "font") '("guint32" "color") '("gdouble" "kerning") '("gdouble" "letterspace") '("const-gchar*" "text")) ) (define-method advance (of-object "GnomeGlyphList") (c-name "gnome_glyphlist_advance") (parameters '("gboolean" "advance")) ) (define-method kerning (of-object "GnomeGlyphList") (c-name "gnome_glyphlist_kerning") (parameters '("gboolean" "kerning")) ) (define-method letterspace (of-object "GnomeGlyphList") (c-name "gnome_glyphlist_letterspace") (parameters '("gdouble" "letterspace")) ) (define-method font (of-object "GnomeGlyphList") (c-name "gnome_glyphlist_font") (parameters '("GnomeFont*" "font")) ) (define-method color (of-object "GnomeGlyphList") (c-name "gnome_glyphlist_color") (parameters '("guint32" "color")) ) (define-method moveto (of-object "GnomeGlyphList") (c-name "gnome_glyphlist_moveto") (parameters '("gdouble" "x") '("gdouble" "y")) ) (define-method rmoveto (of-object "GnomeGlyphList") (c-name "gnome_glyphlist_rmoveto") (parameters '("gdouble" "x") '("gdouble" "y")) ) (define-method glyph (of-object "GnomeGlyphList") (c-name "gnome_glyphlist_glyph") (parameters '("gint" "glyph")) ) (define-method glyphs (of-object "GnomeGlyphList") (c-name "gnome_glyphlist_glyphs") (parameters '("gint" "glyphs")) ; actually sequence ) (define-method text_dumb (of-object "GnomeGlyphList") (c-name "gnome_glyphlist_text_dumb") (parameters '("const-gchar*" "text")) ) (define-method bbox (of-object "GnomeGlyphList") (c-name "gnome_glyphlist_bbox") (parameters '("gdouble" "transform") ; actually sequence of 6 floats '("gint" "flags")) ) guile-gnome-platform-2.16.2/defs/gnome/defs/libgnome.defs0000644000175000017500000004521411670374302023603 0ustar00wingowingo00000000000000;; -*- scheme -*- (include "libgnome-types.defs") (include overrides) ;; From /opt/gnome2/include/libgnome-2.0/libgnome/gnome-config.h (define-function gnome_config_get_string_with_default_ (c-name "gnome_config_get_string_with_default_") (return-type "char*") (parameters '("const-char*" "path") '("gboolean*" "def") '("gboolean" "priv") ) ) (define-function gnome_config_get_translated_string_with_default_ (c-name "gnome_config_get_translated_string_with_default_") (return-type "char*") (parameters '("const-char*" "path") '("gboolean*" "def") '("gboolean" "priv") ) ) (define-function gnome_config_get_int_with_default_ (c-name "gnome_config_get_int_with_default_") (return-type "gint") (parameters '("const-char*" "path") '("gboolean*" "def") '("gboolean" "priv") ) ) (define-function gnome_config_get_float_with_default_ (c-name "gnome_config_get_float_with_default_") (return-type "gdouble") (parameters '("const-char*" "path") '("gboolean*" "def") '("gboolean" "priv") ) ) (define-function gnome_config_get_bool_with_default_ (c-name "gnome_config_get_bool_with_default_") (return-type "gboolean") (parameters '("const-char*" "path") '("gboolean*" "def") '("gboolean" "priv") ) ) (define-function gnome_config_get_vector_with_default_ (c-name "gnome_config_get_vector_with_default_") (return-type "none") (parameters '("const-char*" "path") '("gint*" "argcp") '("char***" "argvp") '("gboolean*" "def") '("gboolean" "priv") ) ) (define-function gnome_config_set_string_ (c-name "gnome_config_set_string_") (return-type "none") (parameters '("const-char*" "path") '("const-char*" "value") '("gboolean" "priv") ) ) (define-function gnome_config_set_translated_string_ (c-name "gnome_config_set_translated_string_") (return-type "none") (parameters '("const-char*" "path") '("const-char*" "value") '("gboolean" "priv") ) ) (define-function gnome_config_set_int_ (c-name "gnome_config_set_int_") (return-type "none") (parameters '("const-char*" "path") '("int" "value") '("gboolean" "priv") ) ) (define-function gnome_config_set_float_ (c-name "gnome_config_set_float_") (return-type "none") (parameters '("const-char*" "path") '("gdouble" "value") '("gboolean" "priv") ) ) (define-function gnome_config_set_bool_ (c-name "gnome_config_set_bool_") (return-type "none") (parameters '("const-char*" "path") '("gboolean" "value") '("gboolean" "priv") ) ) (define-function gnome_config_set_vector_ (c-name "gnome_config_set_vector_") (return-type "none") (parameters '("const-char*" "path") '("int" "argc") '("const-char*-const[]" "argv") '("gboolean" "priv") ) ) (define-function gnome_config_has_section_ (c-name "gnome_config_has_section_") (return-type "gboolean") (parameters '("const-char*" "path") '("gboolean" "priv") ) ) (define-function gnome_config_init_iterator_ (c-name "gnome_config_init_iterator_") (return-type "void*") (parameters '("const-char*" "path") '("gboolean" "priv") ) ) (define-function gnome_config_init_iterator_sections_ (c-name "gnome_config_init_iterator_sections_") (return-type "void*") (parameters '("const-char*" "path") '("gboolean" "priv") ) ) (define-function gnome_config_iterator_next (c-name "gnome_config_iterator_next") (return-type "void*") (parameters '("void*" "iterator_handle") '("char**" "key") '("char**" "value") ) ) (define-function gnome_config_drop_all (c-name "gnome_config_drop_all") (return-type "none") ) (define-function gnome_config_sync (c-name "gnome_config_sync") (return-type "gboolean") ) (define-function gnome_config_sync_file_ (c-name "gnome_config_sync_file_") (return-type "gboolean") (parameters '("char*" "path") '("gboolean" "priv") ) ) (define-function gnome_config_drop_file_ (c-name "gnome_config_drop_file_") (return-type "none") (parameters '("const-char*" "path") '("gboolean" "priv") ) ) (define-function gnome_config_clean_file_ (c-name "gnome_config_clean_file_") (return-type "none") (parameters '("const-char*" "path") '("gboolean" "priv") ) ) (define-function gnome_config_clean_section_ (c-name "gnome_config_clean_section_") (return-type "none") (parameters '("const-char*" "path") '("gboolean" "priv") ) ) (define-function gnome_config_clean_key_ (c-name "gnome_config_clean_key_") (return-type "none") (parameters '("const-char*" "path") '("gboolean" "priv") ) ) (define-function gnome_config_push_prefix (c-name "gnome_config_push_prefix") (return-type "none") (parameters '("const-char*" "path") ) ) (define-function gnome_config_pop_prefix (c-name "gnome_config_pop_prefix") (return-type "none") ) (define-function gnome_config_make_vector (c-name "gnome_config_make_vector") (return-type "none") (parameters '("const-char*" "string") '("int*" "argcp") '("char***" "argvp") ) ) (define-function gnome_config_assemble_vector (c-name "gnome_config_assemble_vector") (return-type "char*") (parameters '("int" "argc") '("const-char*-const-argv" "[]") ) ) (define-function gnome_config_set_set_handler (c-name "gnome_config_set_set_handler") (return-type "none") (parameters '("void" "(*func") ) ) (define-function gnome_config_set_sync_handler (c-name "gnome_config_set_sync_handler") (return-type "none") (parameters '("void" "(*func") ) ) ;; From /opt/gnome2/include/libgnome-2.0/libgnome/gnome-exec.h (define-function gnome_execute_async (c-name "gnome_execute_async") (return-type "int") (parameters '("const-char*" "dir") '("int" "argc") '("char*-const[]" "argv") ) ) (define-function gnome_execute_async_fds (c-name "gnome_execute_async_fds") (return-type "int") (parameters '("const-char*" "dir") '("int" "argc") '("char*-const[]" "argv") '("gboolean" "close_fds") ) ) (define-function gnome_execute_async_with_env (c-name "gnome_execute_async_with_env") (return-type "int") (parameters '("const-char*" "dir") '("int" "argc") '("char*-const[]" "argv") '("int" "envc") '("char*-const[]" "envv") ) ) (define-function gnome_execute_async_with_env_fds (c-name "gnome_execute_async_with_env_fds") (return-type "int") (parameters '("const-char*" "dir") '("int" "argc") '("char*-const[]" "argv") '("int" "envc") '("char*-const[]" "envv") '("gboolean" "close_fds") ) ) (define-function gnome_execute_shell (c-name "gnome_execute_shell") (return-type "int") (parameters '("const-char*" "dir") '("const-char*" "commandline") ) ) (define-function gnome_execute_shell_fds (c-name "gnome_execute_shell_fds") (return-type "int") (parameters '("const-char*" "dir") '("const-char*" "commandline") '("gboolean" "close_fds") ) ) (define-function gnome_prepend_terminal_to_vector (c-name "gnome_prepend_terminal_to_vector") (return-type "none") (parameters '("int*" "argc") '("char***" "argv") ) ) (define-function gnome_execute_terminal_shell (c-name "gnome_execute_terminal_shell") (return-type "int") (parameters '("const-char*" "dir") '("const-char*" "commandline") ) ) (define-function gnome_execute_terminal_shell_fds (c-name "gnome_execute_terminal_shell_fds") (return-type "int") (parameters '("const-char*" "dir") '("const-char*" "commandline") '("gboolean" "close_fds") ) ) ;; From /opt/gnome2/include/libgnome-2.0/libgnome/gnome-gconf.h (define-function gnome_gconf_get_gnome_libs_settings_relative (c-name "gnome_gconf_get_gnome_libs_settings_relative") (return-type "gchar*") (parameters '("const-gchar*" "subkey") ) ) (define-function gnome_gconf_get_app_settings_relative (c-name "gnome_gconf_get_app_settings_relative") (return-type "gchar*") (parameters '("GnomeProgram*" "program") '("const-gchar*" "subkey") ) ) ;; From /opt/gnome2/include/libgnome-2.0/libgnome/gnome-help.h (define-function gnome_help_error_quark (c-name "gnome_help_error_quark") (return-type "GQuark") ) (define-function gnome_help_display (c-name "gnome_help_display") (return-type "gboolean") (parameters '("const-char*" "file_name") '("const-char*" "link_id") '("GError**" "error") ) ) (define-function gnome_help_display_with_doc_id (c-name "gnome_help_display_with_doc_id") (return-type "gboolean") (parameters '("GnomeProgram*" "program") '("const-char*" "doc_id") '("const-char*" "file_name") '("const-char*" "link_id") '("GError**" "error") ) ) (define-function gnome_help_display_desktop (c-name "gnome_help_display_desktop") (return-type "gboolean") (parameters '("GnomeProgram*" "program") '("const-char*" "doc_id") '("const-char*" "file_name") '("const-char*" "link_id") '("GError**" "error") ) ) (define-function gnome_help_display_uri (c-name "gnome_help_display_uri") (return-type "gboolean") (parameters '("const-char*" "help_uri") '("GError**" "error") ) ) (define-function gnome_help_display_uri_with_env (c-name "gnome_help_display_uri_with_env") (return-type "gboolean") (parameters '("const-char*" "help_uri") '("char**" "envp") '("GError**" "error") ) ) (define-function gnome_help_display_with_doc_id_and_env (c-name "gnome_help_display_with_doc_id_and_env") (return-type "gboolean") (parameters '("GnomeProgram*" "program") '("const-char*" "doc_id") '("const-char*" "file_name") '("const-char*" "link_id") '("char**" "envp") '("GError**" "error") ) ) (define-function gnome_help_display_desktop_with_env (c-name "gnome_help_display_desktop_with_env") (return-type "gboolean") (parameters '("GnomeProgram*" "program") '("const-char*" "doc_id") '("const-char*" "file_name") '("const-char*" "link_id") '("char**" "envp") '("GError**" "error") ) ) ;; From /opt/gnome2/include/libgnome-2.0/libgnome/gnome-i18n.h (define-function gnome_i18n_get_language_list (c-name "gnome_i18n_get_language_list") (return-type "const-GList*") (parameters '("const-gchar*" "category_name") ) ) (define-function gnome_i18n_push_c_numeric_locale (c-name "gnome_i18n_push_c_numeric_locale") (return-type "none") ) (define-function gnome_i18n_pop_c_numeric_locale (c-name "gnome_i18n_pop_c_numeric_locale") (return-type "none") ) ;; From /opt/gnome2/include/libgnome-2.0/libgnome/gnome-init.h (define-function libgnome_module_info_get (c-name "libgnome_module_info_get") (return-type "const-GnomeModuleInfo*") ) (define-function gnome_bonobo_module_info_get (c-name "gnome_bonobo_module_info_get") (return-type "const-GnomeModuleInfo*") ) (define-function gnome_user_dir_get (c-name "gnome_user_dir_get") (return-type "const-char*") ) (define-function gnome_user_private_dir_get (c-name "gnome_user_private_dir_get") (return-type "const-char*") ) (define-function gnome_user_accels_dir_get (c-name "gnome_user_accels_dir_get") (return-type "const-char*") ) (define-function gnome_win32_get_prefixes (c-name "gnome_win32_get_prefixes") (return-type "none") (parameters '("gpointer" "hmodule") '("char**" "full_prefix") '("char**" "cp_prefix") ) ) ;; From /opt/gnome2/include/libgnome-2.0/libgnome/gnome-macros.h ;; From /opt/gnome2/include/libgnome-2.0/libgnome/gnome-program.h (define-function gnome_program_get_type (c-name "gnome_program_get_type") (return-type "GType") ) (define-function gnome_program_get (c-name "gnome_program_get") (return-type "GnomeProgram*") ) (define-method get_human_readable_name (of-object "GnomeProgram") (c-name "gnome_program_get_human_readable_name") (return-type "const-char*") ) (define-method get_app_id (of-object "GnomeProgram") (c-name "gnome_program_get_app_id") (return-type "const-char*") ) (define-method get_app_version (of-object "GnomeProgram") (c-name "gnome_program_get_app_version") (return-type "const-char*") ) (define-method locate_file (of-object "GnomeProgram") (c-name "gnome_program_locate_file") (return-type "gchar*") (parameters '("GnomeFileDomain" "domain") '("const-gchar*" "file_name") '("gboolean" "only_if_exists") '("GSList**" "ret_locations") ) ) (define-function gnome_module_info_get_type (c-name "gnome_module_info_get_type") (return-type "GType") ) (define-function gnome_program_module_register (c-name "gnome_program_module_register") (return-type "none") (parameters '("const-GnomeModuleInfo*" "module_info") ) ) (define-function gnome_program_module_registered (c-name "gnome_program_module_registered") (return-type "gboolean") (parameters '("const-GnomeModuleInfo*" "module_info") ) ) (define-function gnome_program_module_load (c-name "gnome_program_module_load") (return-type "const-GnomeModuleInfo*") (parameters '("const-char*" "mod_name") ) ) (define-function gnome_program_install_property (c-name "gnome_program_install_property") (return-type "guint") (parameters '("GnomeProgramClass*" "pclass") '("GObjectGetPropertyFunc" "get_fn") '("GObjectSetPropertyFunc" "set_fn") '("GParamSpec*" "pspec") ) ) (define-method preinit (of-object "GnomeProgram") (c-name "gnome_program_preinit") (return-type "poptContext") (parameters '("const-char*" "app_id") '("const-char*" "app_version") '("int" "argc") '("char**" "argv") ) ) (define-method parse_args (of-object "GnomeProgram") (c-name "gnome_program_parse_args") (return-type "none") ) (define-method postinit (of-object "GnomeProgram") (c-name "gnome_program_postinit") (return-type "none") ) (define-function gnome_program_init (c-name "gnome_program_init") (return-type "GnomeProgram*") (parameters '("const-char*" "app_id") '("const-char*" "app_version") '("const-GnomeModuleInfo*" "module_info") '("int" "argc") '("char**" "argv") '("const-char*" "first_property_name") ) (varargs #t) ) (define-function gnome_program_initv (c-name "gnome_program_initv") (return-type "GnomeProgram*") (parameters '("GType" "type") '("const-char*" "app_id") '("const-char*" "app_version") '("const-GnomeModuleInfo*" "module_info") '("int" "argc") '("char**" "argv") '("const-char*" "first_property_name") '("va_list" "args") ) ) (define-function gnome_program_init_paramv (c-name "gnome_program_init_paramv") (return-type "GnomeProgram*") (parameters '("GType" "type") '("const-char*" "app_id") '("const-char*" "app_version") '("const-GnomeModuleInfo*" "module_info") '("int" "argc") '("char**" "argv") '("guint" "nparams") '("GParameter*" "params") ) ) ;; From /opt/gnome2/include/libgnome-2.0/libgnome/gnome-score.h (define-function gnome_score_init (c-name "gnome_score_init") (return-type "gint") (parameters '("const-gchar*" "gamename") ) ) (define-function gnome_score_log (c-name "gnome_score_log") (return-type "gint") (parameters '("gfloat" "score") '("const-gchar*" "level") '("gboolean" "higher_to_lower_score_order") ) ) (define-function gnome_score_get_notable (c-name "gnome_score_get_notable") (return-type "gint") (parameters '("const-gchar*" "gamename") '("const-gchar*" "level") '("gchar***" "names") '("gfloat**" "scores") '("time_t**" "scoretimes") ) ) ;; From /opt/gnome2/include/libgnome-2.0/libgnome/gnome-sound.h (define-function gnome_sound_connection_get (c-name "gnome_sound_connection_get") (return-type "int") ) (define-function gnome_sound_init (c-name "gnome_sound_init") (return-type "none") (parameters '("const-char*" "hostname") ) ) (define-function gnome_sound_shutdown (c-name "gnome_sound_shutdown") (return-type "none") ) (define-function gnome_sound_sample_load (c-name "gnome_sound_sample_load") (return-type "int") (parameters '("const-char*" "sample_name") '("const-char*" "filename") ) ) (define-function gnome_sound_play (c-name "gnome_sound_play") (return-type "none") (parameters '("const-char*" "filename") ) ) ;; From /opt/gnome2/include/libgnome-2.0/libgnome/gnome-triggers.h (define-method s_add_trigger (of-object "GnomeTrigger") (c-name "gnome_triggers_add_trigger") (return-type "none") (parameters ) (varargs #t) ) (define-method s_vadd_trigger (of-object "GnomeTrigger") (c-name "gnome_triggers_vadd_trigger") (return-type "none") (parameters '("char*[]" "supinfo") ) ) (define-function gnome_triggers_do (c-name "gnome_triggers_do") (return-type "none") (parameters '("const-char*" "msg") '("const-char*" "level") ) (varargs #t) ) (define-function gnome_triggers_vdo (c-name "gnome_triggers_vdo") (return-type "none") (parameters '("const-char*" "msg") '("const-char*" "level") '("const-char*[]" "supinfo") ) ) ;; From /opt/gnome2/include/libgnome-2.0/libgnome/gnome-url.h (define-function gnome_url_error_quark (c-name "gnome_url_error_quark") (return-type "GQuark") ) (define-function gnome_url_show (c-name "gnome_url_show") (return-type "gboolean") (parameters '("const-char*" "url") '("GError**" "error") ) ) (define-function gnome_url_show_with_env (c-name "gnome_url_show_with_env") (return-type "gboolean") (parameters '("const-char*" "url") '("char**" "envp") '("GError**" "error") ) ) ;; From /opt/gnome2/include/libgnome-2.0/libgnome/gnome-util.h (define-function g_extension_pointer (c-name "g_extension_pointer") (return-type "const-char*") (parameters '("const-char*" "path") ) ) (define-function gnome_util_user_shell (c-name "gnome_util_user_shell") (return-type "char*") ) (define-function gnome_setenv (c-name "gnome_setenv") (return-type "int") (parameters '("const-char*" "name") '("const-char*" "value") '("gboolean" "overwrite") ) ) (define-function gnome_unsetenv (c-name "gnome_unsetenv") (return-type "none") (parameters '("const-char*" "name") ) ) (define-function gnome_clearenv (c-name "gnome_clearenv") (return-type "none") ) ;; From /opt/gnome2/include/libgnome-2.0/libgnome/libgnome.h ;; From /opt/gnome2/include/libgnome-2.0/libgnome/libgnometypebuiltins.h (define-function gnome_trigger_type_get_type (c-name "gnome_trigger_type_get_type") (return-type "GType") ) (define-function gnome_file_domain_get_type (c-name "gnome_file_domain_get_type") (return-type "GType") ) (define-function gnome_help_error_get_type (c-name "gnome_help_error_get_type") (return-type "GType") ) (define-function gnome_url_error_get_type (c-name "gnome_url_error_get_type") (return-type "GType") ) guile-gnome-platform-2.16.2/defs/gnome/defs/glib-types.defs0000644000175000017500000003715411670374302024072 0ustar00wingowingo00000000000000;; -*- scheme -*- ;; Enumerations and flags ... (define-enum BookmarkFileError (in-module "G") (c-name "GBookmarkFileError") (values '("invalid-uri" "G_BOOKMARK_FILE_ERROR_INVALID_URI") '("invalid-value" "G_BOOKMARK_FILE_ERROR_INVALID_VALUE") '("app-not-registered" "G_BOOKMARK_FILE_ERROR_APP_NOT_REGISTERED") '("uri-not-found" "G_BOOKMARK_FILE_ERROR_URI_NOT_FOUND") '("read" "G_BOOKMARK_FILE_ERROR_READ") '("unknown-encoding" "G_BOOKMARK_FILE_ERROR_UNKNOWN_ENCODING") '("write" "G_BOOKMARK_FILE_ERROR_WRITE") '("file-not-found" "G_BOOKMARK_FILE_ERROR_FILE_NOT_FOUND") ) ) (define-enum ConvertError (in-module "G") (c-name "GConvertError") (values '("no-conversion" "G_CONVERT_ERROR_NO_CONVERSION") '("illegal-sequence" "G_CONVERT_ERROR_ILLEGAL_SEQUENCE") '("failed" "G_CONVERT_ERROR_FAILED") '("partial-input" "G_CONVERT_ERROR_PARTIAL_INPUT") '("bad-uri" "G_CONVERT_ERROR_BAD_URI") '("not-absolute-path" "G_CONVERT_ERROR_NOT_ABSOLUTE_PATH") ) ) (define-enum DateDMY (in-module "G") (c-name "GDateDMY") (values '("day" "G_DATE_DAY") '("month" "G_DATE_MONTH") '("year" "G_DATE_YEAR") ) ) (define-enum DateWeekday (in-module "G") (c-name "GDateWeekday") (values '("bad-weekday" "G_DATE_BAD_WEEKDAY") '("monday" "G_DATE_MONDAY") '("tuesday" "G_DATE_TUESDAY") '("wednesday" "G_DATE_WEDNESDAY") '("thursday" "G_DATE_THURSDAY") '("friday" "G_DATE_FRIDAY") '("saturday" "G_DATE_SATURDAY") '("sunday" "G_DATE_SUNDAY") ) ) (define-enum DateMonth (in-module "G") (c-name "GDateMonth") (values '("bad-month" "G_DATE_BAD_MONTH") '("january" "G_DATE_JANUARY") '("february" "G_DATE_FEBRUARY") '("march" "G_DATE_MARCH") '("april" "G_DATE_APRIL") '("may" "G_DATE_MAY") '("june" "G_DATE_JUNE") '("july" "G_DATE_JULY") '("august" "G_DATE_AUGUST") '("september" "G_DATE_SEPTEMBER") '("october" "G_DATE_OCTOBER") '("november" "G_DATE_NOVEMBER") '("december" "G_DATE_DECEMBER") ) ) (define-enum FileError (in-module "G") (c-name "GFileError") (values '("exist" "G_FILE_ERROR_EXIST") '("isdir" "G_FILE_ERROR_ISDIR") '("acces" "G_FILE_ERROR_ACCES") '("nametoolong" "G_FILE_ERROR_NAMETOOLONG") '("noent" "G_FILE_ERROR_NOENT") '("notdir" "G_FILE_ERROR_NOTDIR") '("nxio" "G_FILE_ERROR_NXIO") '("nodev" "G_FILE_ERROR_NODEV") '("rofs" "G_FILE_ERROR_ROFS") '("txtbsy" "G_FILE_ERROR_TXTBSY") '("fault" "G_FILE_ERROR_FAULT") '("loop" "G_FILE_ERROR_LOOP") '("nospc" "G_FILE_ERROR_NOSPC") '("nomem" "G_FILE_ERROR_NOMEM") '("mfile" "G_FILE_ERROR_MFILE") '("nfile" "G_FILE_ERROR_NFILE") '("badf" "G_FILE_ERROR_BADF") '("inval" "G_FILE_ERROR_INVAL") '("pipe" "G_FILE_ERROR_PIPE") '("again" "G_FILE_ERROR_AGAIN") '("intr" "G_FILE_ERROR_INTR") '("io" "G_FILE_ERROR_IO") '("perm" "G_FILE_ERROR_PERM") '("nosys" "G_FILE_ERROR_NOSYS") '("failed" "G_FILE_ERROR_FAILED") ) ) (define-flags FileTest (in-module "G") (c-name "GFileTest") (values '("is-regular" "G_FILE_TEST_IS_REGULAR") '("is-symlink" "G_FILE_TEST_IS_SYMLINK") '("is-dir" "G_FILE_TEST_IS_DIR") '("is-executable" "G_FILE_TEST_IS_EXECUTABLE") '("exists" "G_FILE_TEST_EXISTS") ) ) (define-flags HookFlagMask (in-module "G") (c-name "GHookFlagMask") (values '("active" "G_HOOK_FLAG_ACTIVE") '("in-call" "G_HOOK_FLAG_IN_CALL") '("mask" "G_HOOK_FLAG_MASK") ) ) (define-enum IOError (in-module "G") (c-name "GIOError") (values '("none" "G_IO_ERROR_NONE") '("again" "G_IO_ERROR_AGAIN") '("inval" "G_IO_ERROR_INVAL") '("unknown" "G_IO_ERROR_UNKNOWN") ) ) (define-enum IOChannelError (in-module "G") (c-name "GIOChannelError") (values '("fbig" "G_IO_CHANNEL_ERROR_FBIG") '("inval" "G_IO_CHANNEL_ERROR_INVAL") '("io" "G_IO_CHANNEL_ERROR_IO") '("isdir" "G_IO_CHANNEL_ERROR_ISDIR") '("nospc" "G_IO_CHANNEL_ERROR_NOSPC") '("nxio" "G_IO_CHANNEL_ERROR_NXIO") '("overflow" "G_IO_CHANNEL_ERROR_OVERFLOW") '("pipe" "G_IO_CHANNEL_ERROR_PIPE") '("failed" "G_IO_CHANNEL_ERROR_FAILED") ) ) (define-enum IOStatus (in-module "G") (c-name "GIOStatus") (values '("error" "G_IO_STATUS_ERROR") '("normal" "G_IO_STATUS_NORMAL") '("eof" "G_IO_STATUS_EOF") '("again" "G_IO_STATUS_AGAIN") ) ) (define-enum SeekType (in-module "G") (c-name "GSeekType") (values '("cur" "G_SEEK_CUR") '("set" "G_SEEK_SET") '("end" "G_SEEK_END") ) ) (define-enum IOCondition (in-module "G") (c-name "GIOCondition") (values '("in" "G_IO_IN") '("out" "G_IO_OUT") '("pri" "G_IO_PRI") '("err" "G_IO_ERR") '("hup" "G_IO_HUP") '("nval" "G_IO_NVAL") ) ) (define-flags IOFlags (in-module "G") (c-name "GIOFlags") (values '("append" "G_IO_FLAG_APPEND") '("nonblock" "G_IO_FLAG_NONBLOCK") '("is-readable" "G_IO_FLAG_IS_READABLE") '("is-writeable" "G_IO_FLAG_IS_WRITEABLE") '("is-seekable" "G_IO_FLAG_IS_SEEKABLE") '("mask" "G_IO_FLAG_MASK") '("get-mask" "G_IO_FLAG_GET_MASK") '("set-mask" "G_IO_FLAG_SET_MASK") ) ) (define-enum KeyFileError (in-module "G") (c-name "GKeyFileError") (values '("unknown-encoding" "G_KEY_FILE_ERROR_UNKNOWN_ENCODING") '("parse" "G_KEY_FILE_ERROR_PARSE") '("not-found" "G_KEY_FILE_ERROR_NOT_FOUND") '("key-not-found" "G_KEY_FILE_ERROR_KEY_NOT_FOUND") '("group-not-found" "G_KEY_FILE_ERROR_GROUP_NOT_FOUND") '("invalid-value" "G_KEY_FILE_ERROR_INVALID_VALUE") ) ) (define-flags KeyFileFlags (in-module "G") (c-name "GKeyFileFlags") (values '("none" "G_KEY_FILE_NONE") '("keep-comments" "G_KEY_FILE_KEEP_COMMENTS") '("keep-translations" "G_KEY_FILE_KEEP_TRANSLATIONS") ) ) (define-enum MarkupError (in-module "G") (c-name "GMarkupError") (values '("bad-utf8" "G_MARKUP_ERROR_BAD_UTF8") '("empty" "G_MARKUP_ERROR_EMPTY") '("parse" "G_MARKUP_ERROR_PARSE") '("unknown-element" "G_MARKUP_ERROR_UNKNOWN_ELEMENT") '("unknown-attribute" "G_MARKUP_ERROR_UNKNOWN_ATTRIBUTE") '("invalid-content" "G_MARKUP_ERROR_INVALID_CONTENT") ) ) (define-flags MarkupParseFlags (in-module "G") (c-name "GMarkupParseFlags") (values '("do-not-use-this-unsupported-flag" "G_MARKUP_DO_NOT_USE_THIS_UNSUPPORTED_FLAG") '("treat-cdata-as-text" "G_MARKUP_TREAT_CDATA_AS_TEXT") ) ) (define-flags LogLevelFlags (in-module "G") (c-name "GLogLevelFlags") (values '("flag-recursion" "G_LOG_FLAG_RECURSION") '("flag-fatal" "G_LOG_FLAG_FATAL") '("level-error" "G_LOG_LEVEL_ERROR") '("level-critical" "G_LOG_LEVEL_CRITICAL") '("level-warning" "G_LOG_LEVEL_WARNING") '("level-message" "G_LOG_LEVEL_MESSAGE") '("level-info" "G_LOG_LEVEL_INFO") '("level-debug" "G_LOG_LEVEL_DEBUG") '("level-mask" "G_LOG_LEVEL_MASK") ) ) (define-flags TraverseFlags (in-module "G") (c-name "GTraverseFlags") (values '("leaves" "G_TRAVERSE_LEAVES") '("non-leaves" "G_TRAVERSE_NON_LEAVES") '("all" "G_TRAVERSE_ALL") '("mask" "G_TRAVERSE_MASK") '("leafs" "G_TRAVERSE_LEAFS") '("non-leafs" "G_TRAVERSE_NON_LEAFS") ) ) (define-enum TraverseType (in-module "G") (c-name "GTraverseType") (values '("in-order" "G_IN_ORDER") '("pre-order" "G_PRE_ORDER") '("post-order" "G_POST_ORDER") '("level-order" "G_LEVEL_ORDER") ) ) (define-flags OptionFlags (in-module "G") (c-name "GOptionFlags") (values '("hidden" "G_OPTION_FLAG_HIDDEN") '("in-main" "G_OPTION_FLAG_IN_MAIN") '("reverse" "G_OPTION_FLAG_REVERSE") '("no-arg" "G_OPTION_FLAG_NO_ARG") '("filename" "G_OPTION_FLAG_FILENAME") '("optional-arg" "G_OPTION_FLAG_OPTIONAL_ARG") '("noalias" "G_OPTION_FLAG_NOALIAS") ) ) (define-enum OptionArg (in-module "G") (c-name "GOptionArg") (values '("none" "G_OPTION_ARG_NONE") '("string" "G_OPTION_ARG_STRING") '("int" "G_OPTION_ARG_INT") '("callback" "G_OPTION_ARG_CALLBACK") '("filename" "G_OPTION_ARG_FILENAME") '("string-array" "G_OPTION_ARG_STRING_ARRAY") '("filename-array" "G_OPTION_ARG_FILENAME_ARRAY") '("double" "G_OPTION_ARG_DOUBLE") '("int64" "G_OPTION_ARG_INT64") ) ) (define-enum OptionError (in-module "G") (c-name "GOptionError") (values '("unknown-option" "G_OPTION_ERROR_UNKNOWN_OPTION") '("bad-value" "G_OPTION_ERROR_BAD_VALUE") '("failed" "G_OPTION_ERROR_FAILED") ) ) (define-enum ErrorType (in-module "G") (c-name "GErrorType") (values '("unknown" "G_ERR_UNKNOWN") '("unexp-eof" "G_ERR_UNEXP_EOF") '("unexp-eof-in-string" "G_ERR_UNEXP_EOF_IN_STRING") '("unexp-eof-in-comment" "G_ERR_UNEXP_EOF_IN_COMMENT") '("non-digit-in-const" "G_ERR_NON_DIGIT_IN_CONST") '("digit-radix" "G_ERR_DIGIT_RADIX") '("float-radix" "G_ERR_FLOAT_RADIX") '("float-malformed" "G_ERR_FLOAT_MALFORMED") ) ) (define-enum ShellError (in-module "G") (c-name "GShellError") (values '("bad-quoting" "G_SHELL_ERROR_BAD_QUOTING") '("empty-string" "G_SHELL_ERROR_EMPTY_STRING") '("failed" "G_SHELL_ERROR_FAILED") ) ) (define-enum SliceConfig (in-module "G") (c-name "GSliceConfig") (values '("always-malloc" "G_SLICE_CONFIG_ALWAYS_MALLOC") '("bypass-magazines" "G_SLICE_CONFIG_BYPASS_MAGAZINES") '("working-set-msecs" "G_SLICE_CONFIG_WORKING_SET_MSECS") '("color-increment" "G_SLICE_CONFIG_COLOR_INCREMENT") '("chunk-sizes" "G_SLICE_CONFIG_CHUNK_SIZES") '("contention-counter" "G_SLICE_CONFIG_CONTENTION_COUNTER") ) ) (define-enum SpawnError (in-module "G") (c-name "GSpawnError") (values '("fork" "G_SPAWN_ERROR_FORK") '("read" "G_SPAWN_ERROR_READ") '("chdir" "G_SPAWN_ERROR_CHDIR") '("acces" "G_SPAWN_ERROR_ACCES") '("perm" "G_SPAWN_ERROR_PERM") '("2big" "G_SPAWN_ERROR_2BIG") '("noexec" "G_SPAWN_ERROR_NOEXEC") '("nametoolong" "G_SPAWN_ERROR_NAMETOOLONG") '("noent" "G_SPAWN_ERROR_NOENT") '("nomem" "G_SPAWN_ERROR_NOMEM") '("notdir" "G_SPAWN_ERROR_NOTDIR") '("loop" "G_SPAWN_ERROR_LOOP") '("txtbusy" "G_SPAWN_ERROR_TXTBUSY") '("io" "G_SPAWN_ERROR_IO") '("nfile" "G_SPAWN_ERROR_NFILE") '("mfile" "G_SPAWN_ERROR_MFILE") '("inval" "G_SPAWN_ERROR_INVAL") '("isdir" "G_SPAWN_ERROR_ISDIR") '("libbad" "G_SPAWN_ERROR_LIBBAD") '("failed" "G_SPAWN_ERROR_FAILED") ) ) (define-flags SpawnFlags (in-module "G") (c-name "GSpawnFlags") (values '("leave-descriptors-open" "G_SPAWN_LEAVE_DESCRIPTORS_OPEN") '("do-not-reap-child" "G_SPAWN_DO_NOT_REAP_CHILD") '("search-path" "G_SPAWN_SEARCH_PATH") '("stdout-to-dev-null" "G_SPAWN_STDOUT_TO_DEV_NULL") '("stderr-to-dev-null" "G_SPAWN_STDERR_TO_DEV_NULL") '("child-inherits-stdin" "G_SPAWN_CHILD_INHERITS_STDIN") '("file-and-argv-zero" "G_SPAWN_FILE_AND_ARGV_ZERO") ) ) (define-flags AsciiType (in-module "G") (c-name "GAsciiType") (values '("alnum" "G_ASCII_ALNUM") '("alpha" "G_ASCII_ALPHA") '("cntrl" "G_ASCII_CNTRL") '("digit" "G_ASCII_DIGIT") '("graph" "G_ASCII_GRAPH") '("lower" "G_ASCII_LOWER") '("print" "G_ASCII_PRINT") '("punct" "G_ASCII_PUNCT") '("space" "G_ASCII_SPACE") '("upper" "G_ASCII_UPPER") '("xdigit" "G_ASCII_XDIGIT") ) ) (define-enum ThreadError (in-module "G") (c-name "GThreadError") (values '("n" "G_THREAD_ERROR_AGAIN") ) ) (define-enum ThreadPriority (in-module "G") (c-name "GThreadPriority") (values '("low" "G_THREAD_PRIORITY_LOW") '("normal" "G_THREAD_PRIORITY_NORMAL") '("high" "G_THREAD_PRIORITY_HIGH") '("urgent" "G_THREAD_PRIORITY_URGENT") ) ) (define-enum OnceStatus (in-module "G") (c-name "GOnceStatus") (values '("notcalled" "G_ONCE_STATUS_NOTCALLED") '("progress" "G_ONCE_STATUS_PROGRESS") '("ready" "G_ONCE_STATUS_READY") ) ) (define-enum UnicodeType (in-module "G") (c-name "GUnicodeType") (values '("control" "G_UNICODE_CONTROL") '("format" "G_UNICODE_FORMAT") '("unassigned" "G_UNICODE_UNASSIGNED") '("private-use" "G_UNICODE_PRIVATE_USE") '("surrogate" "G_UNICODE_SURROGATE") '("lowercase-letter" "G_UNICODE_LOWERCASE_LETTER") '("modifier-letter" "G_UNICODE_MODIFIER_LETTER") '("other-letter" "G_UNICODE_OTHER_LETTER") '("titlecase-letter" "G_UNICODE_TITLECASE_LETTER") '("uppercase-letter" "G_UNICODE_UPPERCASE_LETTER") '("combining-mark" "G_UNICODE_COMBINING_MARK") '("enclosing-mark" "G_UNICODE_ENCLOSING_MARK") '("non-spacing-mark" "G_UNICODE_NON_SPACING_MARK") '("decimal-number" "G_UNICODE_DECIMAL_NUMBER") '("letter-number" "G_UNICODE_LETTER_NUMBER") '("other-number" "G_UNICODE_OTHER_NUMBER") '("connect-punctuation" "G_UNICODE_CONNECT_PUNCTUATION") '("dash-punctuation" "G_UNICODE_DASH_PUNCTUATION") '("close-punctuation" "G_UNICODE_CLOSE_PUNCTUATION") '("final-punctuation" "G_UNICODE_FINAL_PUNCTUATION") '("initial-punctuation" "G_UNICODE_INITIAL_PUNCTUATION") '("other-punctuation" "G_UNICODE_OTHER_PUNCTUATION") '("open-punctuation" "G_UNICODE_OPEN_PUNCTUATION") '("currency-symbol" "G_UNICODE_CURRENCY_SYMBOL") '("modifier-symbol" "G_UNICODE_MODIFIER_SYMBOL") '("math-symbol" "G_UNICODE_MATH_SYMBOL") '("other-symbol" "G_UNICODE_OTHER_SYMBOL") '("line-separator" "G_UNICODE_LINE_SEPARATOR") '("paragraph-separator" "G_UNICODE_PARAGRAPH_SEPARATOR") '("space-separator" "G_UNICODE_SPACE_SEPARATOR") ) ) (define-enum UnicodeBreakType (in-module "G") (c-name "GUnicodeBreakType") (values '("mandatory" "G_UNICODE_BREAK_MANDATORY") '("carriage-return" "G_UNICODE_BREAK_CARRIAGE_RETURN") '("line-feed" "G_UNICODE_BREAK_LINE_FEED") '("combining-mark" "G_UNICODE_BREAK_COMBINING_MARK") '("surrogate" "G_UNICODE_BREAK_SURROGATE") '("zero-width-space" "G_UNICODE_BREAK_ZERO_WIDTH_SPACE") '("inseparable" "G_UNICODE_BREAK_INSEPARABLE") '("non-breaking-glue" "G_UNICODE_BREAK_NON_BREAKING_GLUE") '("contingent" "G_UNICODE_BREAK_CONTINGENT") '("space" "G_UNICODE_BREAK_SPACE") '("after" "G_UNICODE_BREAK_AFTER") '("before" "G_UNICODE_BREAK_BEFORE") '("before-and-after" "G_UNICODE_BREAK_BEFORE_AND_AFTER") '("hyphen" "G_UNICODE_BREAK_HYPHEN") '("non-starter" "G_UNICODE_BREAK_NON_STARTER") '("open-punctuation" "G_UNICODE_BREAK_OPEN_PUNCTUATION") '("close-punctuation" "G_UNICODE_BREAK_CLOSE_PUNCTUATION") '("quotation" "G_UNICODE_BREAK_QUOTATION") '("exclamation" "G_UNICODE_BREAK_EXCLAMATION") '("ideographic" "G_UNICODE_BREAK_IDEOGRAPHIC") '("numeric" "G_UNICODE_BREAK_NUMERIC") '("infix-separator" "G_UNICODE_BREAK_INFIX_SEPARATOR") '("symbol" "G_UNICODE_BREAK_SYMBOL") '("alphabetic" "G_UNICODE_BREAK_ALPHABETIC") '("prefix" "G_UNICODE_BREAK_PREFIX") '("postfix" "G_UNICODE_BREAK_POSTFIX") '("complex-context" "G_UNICODE_BREAK_COMPLEX_CONTEXT") '("ambiguous" "G_UNICODE_BREAK_AMBIGUOUS") '("unknown" "G_UNICODE_BREAK_UNKNOWN") '("next-line" "G_UNICODE_BREAK_NEXT_LINE") '("word-joiner" "G_UNICODE_BREAK_WORD_JOINER") '("hangul-l-jamo" "G_UNICODE_BREAK_HANGUL_L_JAMO") '("hangul-v-jamo" "G_UNICODE_BREAK_HANGUL_V_JAMO") '("hangul-t-jamo" "G_UNICODE_BREAK_HANGUL_T_JAMO") '("hangul-lv-syllable" "G_UNICODE_BREAK_HANGUL_LV_SYLLABLE") '("hangul-lvt-syllable" "G_UNICODE_BREAK_HANGUL_LVT_SYLLABLE") ) ) (define-enum NormalizeMode (in-module "G") (c-name "GNormalizeMode") (values '("default" "G_NORMALIZE_DEFAULT") '("nfd" "G_NORMALIZE_NFD") '("default-compose" "G_NORMALIZE_DEFAULT_COMPOSE") '("nfc" "G_NORMALIZE_NFC") '("all" "G_NORMALIZE_ALL") '("nfkd" "G_NORMALIZE_NFKD") '("all-compose" "G_NORMALIZE_ALL_COMPOSE") '("nfkc" "G_NORMALIZE_NFKC") ) ) ;; -*- scheme -*- ; object definitions ... guile-gnome-platform-2.16.2/defs/gnome/defs/gdk-types.defs0000644000175000017500000004465211670374302023723 0ustar00wingowingo00000000000000;; -*- scheme -*- ;; Enumerations and flags ... (define-flags DragAction (in-module "Gdk") (c-name "GdkDragAction") (gtype-id "GDK_TYPE_DRAG_ACTION") (values '("default" "GDK_ACTION_DEFAULT") '("copy" "GDK_ACTION_COPY") '("move" "GDK_ACTION_MOVE") '("link" "GDK_ACTION_LINK") '("private" "GDK_ACTION_PRIVATE") '("ask" "GDK_ACTION_ASK") ) ) (define-enum DragProtocol (in-module "Gdk") (c-name "GdkDragProtocol") (gtype-id "GDK_TYPE_DRAG_PROTOCOL") (values '("motif" "GDK_DRAG_PROTO_MOTIF") '("xdnd" "GDK_DRAG_PROTO_XDND") '("rootwin" "GDK_DRAG_PROTO_ROOTWIN") '("none" "GDK_DRAG_PROTO_NONE") '("win32-dropfiles" "GDK_DRAG_PROTO_WIN32_DROPFILES") '("ole2" "GDK_DRAG_PROTO_OLE2") '("local" "GDK_DRAG_PROTO_LOCAL") ) ) (define-enum FilterReturn (in-module "Gdk") (c-name "GdkFilterReturn") (gtype-id "GDK_TYPE_FILTER_RETURN") (values '("continue" "GDK_FILTER_CONTINUE") '("translate" "GDK_FILTER_TRANSLATE") '("remove" "GDK_FILTER_REMOVE") ) ) (define-enum EventType (in-module "Gdk") (c-name "GdkEventType") (gtype-id "GDK_TYPE_EVENT_TYPE") (values '("nothing" "GDK_NOTHING") '("delete" "GDK_DELETE") '("destroy" "GDK_DESTROY") '("expose" "GDK_EXPOSE") '("motion-notify" "GDK_MOTION_NOTIFY") '("button-press" "GDK_BUTTON_PRESS") '("2button-press" "GDK_2BUTTON_PRESS") '("3button-press" "GDK_3BUTTON_PRESS") '("button-release" "GDK_BUTTON_RELEASE") '("key-press" "GDK_KEY_PRESS") '("key-release" "GDK_KEY_RELEASE") '("enter-notify" "GDK_ENTER_NOTIFY") '("leave-notify" "GDK_LEAVE_NOTIFY") '("focus-change" "GDK_FOCUS_CHANGE") '("configure" "GDK_CONFIGURE") '("map" "GDK_MAP") '("unmap" "GDK_UNMAP") '("property-notify" "GDK_PROPERTY_NOTIFY") '("selection-clear" "GDK_SELECTION_CLEAR") '("selection-request" "GDK_SELECTION_REQUEST") '("selection-notify" "GDK_SELECTION_NOTIFY") '("proximity-in" "GDK_PROXIMITY_IN") '("proximity-out" "GDK_PROXIMITY_OUT") '("drag-enter" "GDK_DRAG_ENTER") '("drag-leave" "GDK_DRAG_LEAVE") '("drag-motion" "GDK_DRAG_MOTION") '("drag-status" "GDK_DRAG_STATUS") '("drop-start" "GDK_DROP_START") '("drop-finished" "GDK_DROP_FINISHED") '("client-event" "GDK_CLIENT_EVENT") '("visibility-notify" "GDK_VISIBILITY_NOTIFY") '("no-expose" "GDK_NO_EXPOSE") '("scroll" "GDK_SCROLL") '("window-state" "GDK_WINDOW_STATE") '("setting" "GDK_SETTING") '("owner-change" "GDK_OWNER_CHANGE") '("grab-broken" "GDK_GRAB_BROKEN") ) ) (define-flags EventMask (in-module "Gdk") (c-name "GdkEventMask") (gtype-id "GDK_TYPE_EVENT_MASK") (values '("exposure-mask" "GDK_EXPOSURE_MASK") '("pointer-motion-mask" "GDK_POINTER_MOTION_MASK") '("pointer-motion-hint-mask" "GDK_POINTER_MOTION_HINT_MASK") '("button-motion-mask" "GDK_BUTTON_MOTION_MASK") '("button1-motion-mask" "GDK_BUTTON1_MOTION_MASK") '("button2-motion-mask" "GDK_BUTTON2_MOTION_MASK") '("button3-motion-mask" "GDK_BUTTON3_MOTION_MASK") '("button-press-mask" "GDK_BUTTON_PRESS_MASK") '("button-release-mask" "GDK_BUTTON_RELEASE_MASK") '("key-press-mask" "GDK_KEY_PRESS_MASK") '("key-release-mask" "GDK_KEY_RELEASE_MASK") '("enter-notify-mask" "GDK_ENTER_NOTIFY_MASK") '("leave-notify-mask" "GDK_LEAVE_NOTIFY_MASK") '("focus-change-mask" "GDK_FOCUS_CHANGE_MASK") '("structure-mask" "GDK_STRUCTURE_MASK") '("property-change-mask" "GDK_PROPERTY_CHANGE_MASK") '("visibility-notify-mask" "GDK_VISIBILITY_NOTIFY_MASK") '("proximity-in-mask" "GDK_PROXIMITY_IN_MASK") '("proximity-out-mask" "GDK_PROXIMITY_OUT_MASK") '("substructure-mask" "GDK_SUBSTRUCTURE_MASK") '("scroll-mask" "GDK_SCROLL_MASK") '("all-events-mask" "GDK_ALL_EVENTS_MASK") ) ) (define-enum VisibilityState (in-module "Gdk") (c-name "GdkVisibilityState") (gtype-id "GDK_TYPE_VISIBILITY_STATE") (values '("unobscured" "GDK_VISIBILITY_UNOBSCURED") '("partial" "GDK_VISIBILITY_PARTIAL") '("fully-obscured" "GDK_VISIBILITY_FULLY_OBSCURED") ) ) (define-enum ScrollDirection (in-module "Gdk") (c-name "GdkScrollDirection") (gtype-id "GDK_TYPE_SCROLL_DIRECTION") (values '("up" "GDK_SCROLL_UP") '("down" "GDK_SCROLL_DOWN") '("left" "GDK_SCROLL_LEFT") '("right" "GDK_SCROLL_RIGHT") ) ) (define-enum NotifyType (in-module "Gdk") (c-name "GdkNotifyType") (gtype-id "GDK_TYPE_NOTIFY_TYPE") (values '("ancestor" "GDK_NOTIFY_ANCESTOR") '("virtual" "GDK_NOTIFY_VIRTUAL") '("inferior" "GDK_NOTIFY_INFERIOR") '("nonlinear" "GDK_NOTIFY_NONLINEAR") '("nonlinear-virtual" "GDK_NOTIFY_NONLINEAR_VIRTUAL") '("unknown" "GDK_NOTIFY_UNKNOWN") ) ) (define-enum CrossingMode (in-module "Gdk") (c-name "GdkCrossingMode") (gtype-id "GDK_TYPE_CROSSING_MODE") (values '("normal" "GDK_CROSSING_NORMAL") '("grab" "GDK_CROSSING_GRAB") '("ungrab" "GDK_CROSSING_UNGRAB") ) ) (define-enum PropertyState (in-module "Gdk") (c-name "GdkPropertyState") (gtype-id "GDK_TYPE_PROPERTY_STATE") (values '("new-value" "GDK_PROPERTY_NEW_VALUE") '("delete" "GDK_PROPERTY_DELETE") ) ) (define-flags WindowState (in-module "Gdk") (c-name "GdkWindowState") (gtype-id "GDK_TYPE_WINDOW_STATE") (values '("withdrawn" "GDK_WINDOW_STATE_WITHDRAWN") '("iconified" "GDK_WINDOW_STATE_ICONIFIED") '("maximized" "GDK_WINDOW_STATE_MAXIMIZED") '("sticky" "GDK_WINDOW_STATE_STICKY") '("fullscreen" "GDK_WINDOW_STATE_FULLSCREEN") '("above" "GDK_WINDOW_STATE_ABOVE") '("below" "GDK_WINDOW_STATE_BELOW") ) ) (define-enum SettingAction (in-module "Gdk") (c-name "GdkSettingAction") (gtype-id "GDK_TYPE_SETTING_ACTION") (values '("new" "GDK_SETTING_ACTION_NEW") '("changed" "GDK_SETTING_ACTION_CHANGED") '("deleted" "GDK_SETTING_ACTION_DELETED") ) ) (define-enum OwnerChange (in-module "Gdk") (c-name "GdkOwnerChange") (gtype-id "GDK_TYPE_OWNER_CHANGE") (values '("new-owner" "GDK_OWNER_CHANGE_NEW_OWNER") '("destroy" "GDK_OWNER_CHANGE_DESTROY") '("close" "GDK_OWNER_CHANGE_CLOSE") ) ) (define-enum FontType (in-module "Gdk") (c-name "GdkFontType") (gtype-id "GDK_TYPE_FONT_TYPE") (values '("t" "GDK_FONT_FONT") '("tset" "GDK_FONT_FONTSET") ) ) (define-enum CapStyle (in-module "Gdk") (c-name "GdkCapStyle") (gtype-id "GDK_TYPE_CAP_STYLE") (values '("not-last" "GDK_CAP_NOT_LAST") '("butt" "GDK_CAP_BUTT") '("round" "GDK_CAP_ROUND") '("projecting" "GDK_CAP_PROJECTING") ) ) (define-enum Fill (in-module "Gdk") (c-name "GdkFill") (gtype-id "GDK_TYPE_FILL") (values '("solid" "GDK_SOLID") '("tiled" "GDK_TILED") '("stippled" "GDK_STIPPLED") '("opaque-stippled" "GDK_OPAQUE_STIPPLED") ) ) (define-enum Function (in-module "Gdk") (c-name "GdkFunction") (gtype-id "GDK_TYPE_FUNCTION") (values '("copy" "GDK_COPY") '("invert" "GDK_INVERT") '("xor" "GDK_XOR") '("clear" "GDK_CLEAR") '("and" "GDK_AND") '("and-reverse" "GDK_AND_REVERSE") '("and-invert" "GDK_AND_INVERT") '("noop" "GDK_NOOP") '("or" "GDK_OR") '("equiv" "GDK_EQUIV") '("or-reverse" "GDK_OR_REVERSE") '("copy-invert" "GDK_COPY_INVERT") '("or-invert" "GDK_OR_INVERT") '("nand" "GDK_NAND") '("nor" "GDK_NOR") '("set" "GDK_SET") ) ) (define-enum JoinStyle (in-module "Gdk") (c-name "GdkJoinStyle") (gtype-id "GDK_TYPE_JOIN_STYLE") (values '("miter" "GDK_JOIN_MITER") '("round" "GDK_JOIN_ROUND") '("bevel" "GDK_JOIN_BEVEL") ) ) (define-enum LineStyle (in-module "Gdk") (c-name "GdkLineStyle") (gtype-id "GDK_TYPE_LINE_STYLE") (values '("solid" "GDK_LINE_SOLID") '("on-off-dash" "GDK_LINE_ON_OFF_DASH") '("double-dash" "GDK_LINE_DOUBLE_DASH") ) ) (define-enum SubwindowMode (in-module "Gdk") (c-name "GdkSubwindowMode") (gtype-id "GDK_TYPE_SUBWINDOW_MODE") (values '("clip-by-children" "GDK_CLIP_BY_CHILDREN") '("include-inferiors" "GDK_INCLUDE_INFERIORS") ) ) (define-flags GCValuesMask (in-module "Gdk") (c-name "GdkGCValuesMask") (gtype-id "GDK_TYPE_GC_VALUES_MASK") (values '("foreground" "GDK_GC_FOREGROUND") '("background" "GDK_GC_BACKGROUND") '("font" "GDK_GC_FONT") '("function" "GDK_GC_FUNCTION") '("fill" "GDK_GC_FILL") '("tile" "GDK_GC_TILE") '("stipple" "GDK_GC_STIPPLE") '("clip-mask" "GDK_GC_CLIP_MASK") '("subwindow" "GDK_GC_SUBWINDOW") '("ts-x-origin" "GDK_GC_TS_X_ORIGIN") '("ts-y-origin" "GDK_GC_TS_Y_ORIGIN") '("clip-x-origin" "GDK_GC_CLIP_X_ORIGIN") '("clip-y-origin" "GDK_GC_CLIP_Y_ORIGIN") '("exposures" "GDK_GC_EXPOSURES") '("line-width" "GDK_GC_LINE_WIDTH") '("line-style" "GDK_GC_LINE_STYLE") '("cap-style" "GDK_GC_CAP_STYLE") '("join-style" "GDK_GC_JOIN_STYLE") ) ) (define-enum ImageType (in-module "Gdk") (c-name "GdkImageType") (gtype-id "GDK_TYPE_IMAGE_TYPE") (values '("normal" "GDK_IMAGE_NORMAL") '("shared" "GDK_IMAGE_SHARED") '("fastest" "GDK_IMAGE_FASTEST") ) ) (define-enum ExtensionMode (in-module "Gdk") (c-name "GdkExtensionMode") (gtype-id "GDK_TYPE_EXTENSION_MODE") (values '("none" "GDK_EXTENSION_EVENTS_NONE") '("all" "GDK_EXTENSION_EVENTS_ALL") '("cursor" "GDK_EXTENSION_EVENTS_CURSOR") ) ) (define-enum InputSource (in-module "Gdk") (c-name "GdkInputSource") (gtype-id "GDK_TYPE_INPUT_SOURCE") (values '("mouse" "GDK_SOURCE_MOUSE") '("pen" "GDK_SOURCE_PEN") '("eraser" "GDK_SOURCE_ERASER") '("cursor" "GDK_SOURCE_CURSOR") ) ) (define-enum InputMode (in-module "Gdk") (c-name "GdkInputMode") (gtype-id "GDK_TYPE_INPUT_MODE") (values '("disabled" "GDK_MODE_DISABLED") '("screen" "GDK_MODE_SCREEN") '("window" "GDK_MODE_WINDOW") ) ) (define-enum AxisUse (in-module "Gdk") (c-name "GdkAxisUse") (gtype-id "GDK_TYPE_AXIS_USE") (values '("ignore" "GDK_AXIS_IGNORE") '("x" "GDK_AXIS_X") '("y" "GDK_AXIS_Y") '("pressure" "GDK_AXIS_PRESSURE") '("xtilt" "GDK_AXIS_XTILT") '("ytilt" "GDK_AXIS_YTILT") '("wheel" "GDK_AXIS_WHEEL") '("last" "GDK_AXIS_LAST") ) ) (define-enum PropMode (in-module "Gdk") (c-name "GdkPropMode") (gtype-id "GDK_TYPE_PROP_MODE") (values '("replace" "GDK_PROP_MODE_REPLACE") '("prepend" "GDK_PROP_MODE_PREPEND") '("append" "GDK_PROP_MODE_APPEND") ) ) (define-enum FillRule (in-module "Gdk") (c-name "GdkFillRule") (gtype-id "GDK_TYPE_FILL_RULE") (values '("even-odd-rule" "GDK_EVEN_ODD_RULE") '("winding-rule" "GDK_WINDING_RULE") ) ) (define-enum OverlapType (in-module "Gdk") (c-name "GdkOverlapType") (gtype-id "GDK_TYPE_OVERLAP_TYPE") (values '("in" "GDK_OVERLAP_RECTANGLE_IN") '("out" "GDK_OVERLAP_RECTANGLE_OUT") '("part" "GDK_OVERLAP_RECTANGLE_PART") ) ) (define-enum RgbDither (in-module "Gdk") (c-name "GdkRgbDither") (gtype-id "GDK_TYPE_RGB_DITHER") (values '("none" "GDK_RGB_DITHER_NONE") '("normal" "GDK_RGB_DITHER_NORMAL") '("max" "GDK_RGB_DITHER_MAX") ) ) (define-enum ByteOrder (in-module "Gdk") (c-name "GdkByteOrder") (gtype-id "GDK_TYPE_BYTE_ORDER") (values '("lsb-first" "GDK_LSB_FIRST") '("msb-first" "GDK_MSB_FIRST") ) ) (define-flags ModifierType (in-module "Gdk") (c-name "GdkModifierType") (gtype-id "GDK_TYPE_MODIFIER_TYPE") (values '("shift-mask" "GDK_SHIFT_MASK") '("lock-mask" "GDK_LOCK_MASK") '("control-mask" "GDK_CONTROL_MASK") '("mod1-mask" "GDK_MOD1_MASK") '("mod2-mask" "GDK_MOD2_MASK") '("mod3-mask" "GDK_MOD3_MASK") '("mod4-mask" "GDK_MOD4_MASK") '("mod5-mask" "GDK_MOD5_MASK") '("button1-mask" "GDK_BUTTON1_MASK") '("button2-mask" "GDK_BUTTON2_MASK") '("button3-mask" "GDK_BUTTON3_MASK") '("button4-mask" "GDK_BUTTON4_MASK") '("button5-mask" "GDK_BUTTON5_MASK") '("super-mask" "GDK_SUPER_MASK") '("hyper-mask" "GDK_HYPER_MASK") '("meta-mask" "GDK_META_MASK") '("release-mask" "GDK_RELEASE_MASK") '("modifier-mask" "GDK_MODIFIER_MASK") ) ) (define-flags InputCondition (in-module "Gdk") (c-name "GdkInputCondition") (gtype-id "GDK_TYPE_INPUT_CONDITION") (values '("read" "GDK_INPUT_READ") '("write" "GDK_INPUT_WRITE") '("exception" "GDK_INPUT_EXCEPTION") ) ) (define-enum Status (in-module "Gdk") (c-name "GdkStatus") (gtype-id "GDK_TYPE_STATUS") (values '("ok" "GDK_OK") '("error" "GDK_ERROR") '("error-param" "GDK_ERROR_PARAM") '("error-file" "GDK_ERROR_FILE") '("error-mem" "GDK_ERROR_MEM") ) ) (define-enum GrabStatus (in-module "Gdk") (c-name "GdkGrabStatus") (gtype-id "GDK_TYPE_GRAB_STATUS") (values '("success" "GDK_GRAB_SUCCESS") '("already-grabbed" "GDK_GRAB_ALREADY_GRABBED") '("invalid-time" "GDK_GRAB_INVALID_TIME") '("not-viewable" "GDK_GRAB_NOT_VIEWABLE") '("frozen" "GDK_GRAB_FROZEN") ) ) (define-enum VisualType (in-module "Gdk") (c-name "GdkVisualType") (gtype-id "GDK_TYPE_VISUAL_TYPE") (values '("static-gray" "GDK_VISUAL_STATIC_GRAY") '("grayscale" "GDK_VISUAL_GRAYSCALE") '("static-color" "GDK_VISUAL_STATIC_COLOR") '("pseudo-color" "GDK_VISUAL_PSEUDO_COLOR") '("true-color" "GDK_VISUAL_TRUE_COLOR") '("direct-color" "GDK_VISUAL_DIRECT_COLOR") ) ) (define-enum WindowClass (in-module "Gdk") (c-name "GdkWindowClass") (gtype-id "GDK_TYPE_WINDOW_CLASS") (values '("utput" "GDK_INPUT_OUTPUT") '("nly" "GDK_INPUT_ONLY") ) ) (define-enum WindowType (in-module "Gdk") (c-name "GdkWindowType") (gtype-id "GDK_TYPE_WINDOW_TYPE") (values '("root" "GDK_WINDOW_ROOT") '("toplevel" "GDK_WINDOW_TOPLEVEL") '("child" "GDK_WINDOW_CHILD") '("dialog" "GDK_WINDOW_DIALOG") '("temp" "GDK_WINDOW_TEMP") '("foreign" "GDK_WINDOW_FOREIGN") ) ) (define-flags WindowAttributesType (in-module "Gdk") (c-name "GdkWindowAttributesType") (gtype-id "GDK_TYPE_WINDOW_ATTRIBUTES_TYPE") (values '("title" "GDK_WA_TITLE") '("x" "GDK_WA_X") '("y" "GDK_WA_Y") '("cursor" "GDK_WA_CURSOR") '("colormap" "GDK_WA_COLORMAP") '("visual" "GDK_WA_VISUAL") '("wmclass" "GDK_WA_WMCLASS") '("noredir" "GDK_WA_NOREDIR") '("type-hint" "GDK_WA_TYPE_HINT") ) ) (define-flags WindowHints (in-module "Gdk") (c-name "GdkWindowHints") (gtype-id "GDK_TYPE_WINDOW_HINTS") (values '("pos" "GDK_HINT_POS") '("min-size" "GDK_HINT_MIN_SIZE") '("max-size" "GDK_HINT_MAX_SIZE") '("base-size" "GDK_HINT_BASE_SIZE") '("aspect" "GDK_HINT_ASPECT") '("resize-inc" "GDK_HINT_RESIZE_INC") '("win-gravity" "GDK_HINT_WIN_GRAVITY") '("user-pos" "GDK_HINT_USER_POS") '("user-size" "GDK_HINT_USER_SIZE") ) ) (define-enum WindowTypeHint (in-module "Gdk") (c-name "GdkWindowTypeHint") (gtype-id "GDK_TYPE_WINDOW_TYPE_HINT") (values '("normal" "GDK_WINDOW_TYPE_HINT_NORMAL") '("dialog" "GDK_WINDOW_TYPE_HINT_DIALOG") '("menu" "GDK_WINDOW_TYPE_HINT_MENU") '("toolbar" "GDK_WINDOW_TYPE_HINT_TOOLBAR") '("splashscreen" "GDK_WINDOW_TYPE_HINT_SPLASHSCREEN") '("utility" "GDK_WINDOW_TYPE_HINT_UTILITY") '("dock" "GDK_WINDOW_TYPE_HINT_DOCK") '("desktop" "GDK_WINDOW_TYPE_HINT_DESKTOP") '("dropdown-menu" "GDK_WINDOW_TYPE_HINT_DROPDOWN_MENU") '("popup-menu" "GDK_WINDOW_TYPE_HINT_POPUP_MENU") '("tooltip" "GDK_WINDOW_TYPE_HINT_TOOLTIP") '("notification" "GDK_WINDOW_TYPE_HINT_NOTIFICATION") '("combo" "GDK_WINDOW_TYPE_HINT_COMBO") '("dnd" "GDK_WINDOW_TYPE_HINT_DND") ) ) (define-flags WMDecoration (in-module "Gdk") (c-name "GdkWMDecoration") (gtype-id "GDK_TYPE_WM_DECORATION") (values '("all" "GDK_DECOR_ALL") '("border" "GDK_DECOR_BORDER") '("resizeh" "GDK_DECOR_RESIZEH") '("title" "GDK_DECOR_TITLE") '("menu" "GDK_DECOR_MENU") '("minimize" "GDK_DECOR_MINIMIZE") '("maximize" "GDK_DECOR_MAXIMIZE") ) ) (define-flags WMFunction (in-module "Gdk") (c-name "GdkWMFunction") (gtype-id "GDK_TYPE_WM_FUNCTION") (values '("all" "GDK_FUNC_ALL") '("resize" "GDK_FUNC_RESIZE") '("move" "GDK_FUNC_MOVE") '("minimize" "GDK_FUNC_MINIMIZE") '("maximize" "GDK_FUNC_MAXIMIZE") '("close" "GDK_FUNC_CLOSE") ) ) (define-enum Gravity (in-module "Gdk") (c-name "GdkGravity") (gtype-id "GDK_TYPE_GRAVITY") (values '("north-west" "GDK_GRAVITY_NORTH_WEST") '("north" "GDK_GRAVITY_NORTH") '("north-east" "GDK_GRAVITY_NORTH_EAST") '("west" "GDK_GRAVITY_WEST") '("center" "GDK_GRAVITY_CENTER") '("east" "GDK_GRAVITY_EAST") '("south-west" "GDK_GRAVITY_SOUTH_WEST") '("south" "GDK_GRAVITY_SOUTH") '("south-east" "GDK_GRAVITY_SOUTH_EAST") '("static" "GDK_GRAVITY_STATIC") ) ) (define-enum WindowEdge (in-module "Gdk") (c-name "GdkWindowEdge") (gtype-id "GDK_TYPE_WINDOW_EDGE") (values '("north-west" "GDK_WINDOW_EDGE_NORTH_WEST") '("north" "GDK_WINDOW_EDGE_NORTH") '("north-east" "GDK_WINDOW_EDGE_NORTH_EAST") '("west" "GDK_WINDOW_EDGE_WEST") '("east" "GDK_WINDOW_EDGE_EAST") '("south-west" "GDK_WINDOW_EDGE_SOUTH_WEST") '("south" "GDK_WINDOW_EDGE_SOUTH") '("south-east" "GDK_WINDOW_EDGE_SOUTH_EAST") ) ) ;; -*- scheme -*- ; object definitions ... (define-object Colormap (in-module "Gdk") (parent "GObject") (c-name "GdkColormap") (gtype-id "GDK_TYPE_COLORMAP") ) (define-object Display (in-module "Gdk") (parent "GObject") (c-name "GdkDisplay") (gtype-id "GDK_TYPE_DISPLAY") ) (define-object DragContext (in-module "Gdk") (parent "GObject") (c-name "GdkDragContext") (gtype-id "GDK_TYPE_DRAG_CONTEXT") ) (define-object Drawable (in-module "Gdk") (parent "GObject") (c-name "GdkDrawable") (gtype-id "GDK_TYPE_DRAWABLE") ) (define-object GC (in-module "Gdk") (parent "GObject") (c-name "GdkGC") (gtype-id "GDK_TYPE_GC") ) (define-object Image (in-module "Gdk") (parent "GObject") (c-name "GdkImage") (gtype-id "GDK_TYPE_IMAGE") ) (define-object Keymap (in-module "Gdk") (parent "GObject") (c-name "GdkKeymap") (gtype-id "GDK_TYPE_KEYMAP") ) (define-object PangoRenderer (in-module "Gdk") (parent "PangoRenderer") (c-name "GdkPangoRenderer") (gtype-id "GDK_TYPE_PANGO_RENDERER") ) (define-object PixmapObject (in-module "Gdk") (parent "GdkDrawable") (c-name "GdkPixmapObject") (gtype-id "GDK_TYPE_PIXMAP_OBJECT") ) (define-object Screen (in-module "Gdk") (parent "GObject") (c-name "GdkScreen") (gtype-id "GDK_TYPE_SCREEN") ) (define-object WindowObject (in-module "Gdk") (parent "GdkDrawable") (c-name "GdkWindowObject") (gtype-id "GDK_TYPE_WINDOW_OBJECT") ) guile-gnome-platform-2.16.2/defs/gnome/defs/gtk.defs0000644000175000017500000217525611670374302022610 0ustar00wingowingo00000000000000;; -*- scheme -*- (include type-ignores) (include "gtk-types.defs") (include overrides) ;; From /opt/gnome2/include/gtk-2.0/gtk/gtkaboutdialog.h (define-function gtk_about_dialog_get_type (c-name "gtk_about_dialog_get_type") (return-type "GType") ) (define-function gtk_about_dialog_new (c-name "gtk_about_dialog_new") (is-constructor-of "GtkAboutDialog") (return-type "GtkWidget*") ) (define-function gtk_show_about_dialog (c-name "gtk_show_about_dialog") (return-type "none") (parameters '("GtkWindow*" "parent") '("const-gchar*" "first_property_name") ) (varargs #t) ) (define-method get_name (of-object "GtkAboutDialog") (c-name "gtk_about_dialog_get_name") (return-type "const-gchar*") ) (define-method set_name (of-object "GtkAboutDialog") (c-name "gtk_about_dialog_set_name") (return-type "none") (parameters '("const-gchar*" "name") ) ) (define-method get_version (of-object "GtkAboutDialog") (c-name "gtk_about_dialog_get_version") (return-type "const-gchar*") ) (define-method set_version (of-object "GtkAboutDialog") (c-name "gtk_about_dialog_set_version") (return-type "none") (parameters '("const-gchar*" "version") ) ) (define-method get_copyright (of-object "GtkAboutDialog") (c-name "gtk_about_dialog_get_copyright") (return-type "const-gchar*") ) (define-method set_copyright (of-object "GtkAboutDialog") (c-name "gtk_about_dialog_set_copyright") (return-type "none") (parameters '("const-gchar*" "copyright") ) ) (define-method get_comments (of-object "GtkAboutDialog") (c-name "gtk_about_dialog_get_comments") (return-type "const-gchar*") ) (define-method set_comments (of-object "GtkAboutDialog") (c-name "gtk_about_dialog_set_comments") (return-type "none") (parameters '("const-gchar*" "comments") ) ) (define-method get_license (of-object "GtkAboutDialog") (c-name "gtk_about_dialog_get_license") (return-type "const-gchar*") ) (define-method set_license (of-object "GtkAboutDialog") (c-name "gtk_about_dialog_set_license") (return-type "none") (parameters '("const-gchar*" "license") ) ) (define-method get_wrap_license (of-object "GtkAboutDialog") (c-name "gtk_about_dialog_get_wrap_license") (return-type "gboolean") ) (define-method set_wrap_license (of-object "GtkAboutDialog") (c-name "gtk_about_dialog_set_wrap_license") (return-type "none") (parameters '("gboolean" "wrap_license") ) ) (define-method get_website (of-object "GtkAboutDialog") (c-name "gtk_about_dialog_get_website") (return-type "const-gchar*") ) (define-method set_website (of-object "GtkAboutDialog") (c-name "gtk_about_dialog_set_website") (return-type "none") (parameters '("const-gchar*" "website") ) ) (define-method get_website_label (of-object "GtkAboutDialog") (c-name "gtk_about_dialog_get_website_label") (return-type "const-gchar*") ) (define-method set_website_label (of-object "GtkAboutDialog") (c-name "gtk_about_dialog_set_website_label") (return-type "none") (parameters '("const-gchar*" "website_label") ) ) (define-method get_authors (of-object "GtkAboutDialog") (c-name "gtk_about_dialog_get_authors") (return-type "const-gchar*-G_CONST_RETURN*") ) (define-method set_authors (of-object "GtkAboutDialog") (c-name "gtk_about_dialog_set_authors") (return-type "none") (parameters '("const-gchar**" "authors") ) ) (define-method get_documenters (of-object "GtkAboutDialog") (c-name "gtk_about_dialog_get_documenters") (return-type "const-gchar*-G_CONST_RETURN*") ) (define-method set_documenters (of-object "GtkAboutDialog") (c-name "gtk_about_dialog_set_documenters") (return-type "none") (parameters '("const-gchar**" "documenters") ) ) (define-method get_artists (of-object "GtkAboutDialog") (c-name "gtk_about_dialog_get_artists") (return-type "const-gchar*-G_CONST_RETURN*") ) (define-method set_artists (of-object "GtkAboutDialog") (c-name "gtk_about_dialog_set_artists") (return-type "none") (parameters '("const-gchar**" "artists") ) ) (define-method get_translator_credits (of-object "GtkAboutDialog") (c-name "gtk_about_dialog_get_translator_credits") (return-type "const-gchar*") ) (define-method set_translator_credits (of-object "GtkAboutDialog") (c-name "gtk_about_dialog_set_translator_credits") (return-type "none") (parameters '("const-gchar*" "translator_credits") ) ) (define-method get_logo (of-object "GtkAboutDialog") (c-name "gtk_about_dialog_get_logo") (return-type "GdkPixbuf*") ) (define-method set_logo (of-object "GtkAboutDialog") (c-name "gtk_about_dialog_set_logo") (return-type "none") (parameters '("GdkPixbuf*" "logo") ) ) (define-method get_logo_icon_name (of-object "GtkAboutDialog") (c-name "gtk_about_dialog_get_logo_icon_name") (return-type "const-gchar*") ) (define-method set_logo_icon_name (of-object "GtkAboutDialog") (c-name "gtk_about_dialog_set_logo_icon_name") (return-type "none") (parameters '("const-gchar*" "icon_name") ) ) (define-function gtk_about_dialog_set_email_hook (c-name "gtk_about_dialog_set_email_hook") (return-type "GtkAboutDialogActivateLinkFunc") (parameters '("GtkAboutDialogActivateLinkFunc" "func") '("gpointer" "data") '("GDestroyNotify" "destroy") ) ) (define-function gtk_about_dialog_set_url_hook (c-name "gtk_about_dialog_set_url_hook") (return-type "GtkAboutDialogActivateLinkFunc") (parameters '("GtkAboutDialogActivateLinkFunc" "func") '("gpointer" "data") '("GDestroyNotify" "destroy") ) ) ;; From /opt/gnome2/include/gtk-2.0/gtk/gtkaccelgroup.h (define-function gtk_accel_group_get_type (c-name "gtk_accel_group_get_type") (return-type "GType") ) (define-function gtk_accel_group_new (c-name "gtk_accel_group_new") (is-constructor-of "GtkAccelGroup") (return-type "GtkAccelGroup*") ) (define-method lock (of-object "GtkAccelGroup") (c-name "gtk_accel_group_lock") (return-type "none") ) (define-method unlock (of-object "GtkAccelGroup") (c-name "gtk_accel_group_unlock") (return-type "none") ) (define-method connect (of-object "GtkAccelGroup") (c-name "gtk_accel_group_connect") (return-type "none") (parameters '("guint" "accel_key") '("GdkModifierType" "accel_mods") '("GtkAccelFlags" "accel_flags") '("GClosure*" "closure") ) ) (define-method connect_by_path (of-object "GtkAccelGroup") (c-name "gtk_accel_group_connect_by_path") (return-type "none") (parameters '("const-gchar*" "accel_path") '("GClosure*" "closure") ) ) (define-method disconnect (of-object "GtkAccelGroup") (c-name "gtk_accel_group_disconnect") (return-type "gboolean") (parameters '("GClosure*" "closure") ) ) (define-method disconnect_key (of-object "GtkAccelGroup") (c-name "gtk_accel_group_disconnect_key") (return-type "gboolean") (parameters '("guint" "accel_key") '("GdkModifierType" "accel_mods") ) ) (define-method activate (of-object "GtkAccelGroup") (c-name "gtk_accel_group_activate") (return-type "gboolean") (parameters '("GQuark" "accel_quark") '("GObject*" "acceleratable") '("guint" "accel_key") '("GdkModifierType" "accel_mods") ) ) (define-method _attach (of-object "GtkAccelGroup") (c-name "_gtk_accel_group_attach") (return-type "none") (parameters '("GObject*" "object") ) ) (define-method _detach (of-object "GtkAccelGroup") (c-name "_gtk_accel_group_detach") (return-type "none") (parameters '("GObject*" "object") ) ) (define-function gtk_accel_groups_activate (c-name "gtk_accel_groups_activate") (return-type "gboolean") (parameters '("GObject*" "object") '("guint" "accel_key") '("GdkModifierType" "accel_mods") ) ) (define-function gtk_accel_groups_from_object (c-name "gtk_accel_groups_from_object") (return-type "GSList*") (parameters '("GObject*" "object") ) ) (define-method find (of-object "GtkAccelGroup") (c-name "gtk_accel_group_find") (return-type "GtkAccelKey*") (parameters '("GtkAccelGroupFindFunc" "find_func") '("gpointer" "data") ) ) (define-function gtk_accel_group_from_accel_closure (c-name "gtk_accel_group_from_accel_closure") (return-type "GtkAccelGroup*") (parameters '("GClosure*" "closure") ) ) (define-function gtk_accelerator_valid (c-name "gtk_accelerator_valid") (return-type "gboolean") (parameters '("guint" "keyval") '("GdkModifierType" "modifiers") ) ) (define-function gtk_accelerator_parse (c-name "gtk_accelerator_parse") (return-type "none") (parameters '("const-gchar*" "accelerator") '("guint*" "accelerator_key") '("GdkModifierType*" "accelerator_mods") ) ) (define-function gtk_accelerator_name (c-name "gtk_accelerator_name") (return-type "gchar*") (parameters '("guint" "accelerator_key") '("GdkModifierType" "accelerator_mods") ) ) (define-function gtk_accelerator_get_label (c-name "gtk_accelerator_get_label") (return-type "gchar*") (parameters '("guint" "accelerator_key") '("GdkModifierType" "accelerator_mods") ) ) (define-function gtk_accelerator_set_default_mod_mask (c-name "gtk_accelerator_set_default_mod_mask") (return-type "none") (parameters '("GdkModifierType" "default_mod_mask") ) ) (define-function gtk_accelerator_get_default_mod_mask (c-name "gtk_accelerator_get_default_mod_mask") (return-type "guint") ) (define-method query (of-object "GtkAccelGroup") (c-name "gtk_accel_group_query") (return-type "GtkAccelGroupEntry*") (parameters '("guint" "accel_key") '("GdkModifierType" "accel_mods") '("guint*" "n_entries") ) ) (define-method _reconnect (of-object "GtkAccelGroup") (c-name "_gtk_accel_group_reconnect") (return-type "none") (parameters '("GQuark" "accel_path_quark") ) ) ;; From /opt/gnome2/include/gtk-2.0/gtk/gtkaccellabel.h (define-function gtk_accel_label_get_type (c-name "gtk_accel_label_get_type") (return-type "GType") ) (define-function gtk_accel_label_new (c-name "gtk_accel_label_new") (is-constructor-of "GtkAccelLabel") (return-type "GtkWidget*") (parameters '("const-gchar*" "string") ) ) (define-method get_accel_widget (of-object "GtkAccelLabel") (c-name "gtk_accel_label_get_accel_widget") (return-type "GtkWidget*") ) (define-method get_accel_width (of-object "GtkAccelLabel") (c-name "gtk_accel_label_get_accel_width") (return-type "guint") ) (define-method set_accel_widget (of-object "GtkAccelLabel") (c-name "gtk_accel_label_set_accel_widget") (return-type "none") (parameters '("GtkWidget*" "accel_widget") ) ) (define-method set_accel_closure (of-object "GtkAccelLabel") (c-name "gtk_accel_label_set_accel_closure") (return-type "none") (parameters '("GClosure*" "accel_closure") ) ) (define-method refetch (of-object "GtkAccelLabel") (c-name "gtk_accel_label_refetch") (return-type "gboolean") ) (define-method _get_accelerator_label (of-object "GtkAccelLabelClass") (c-name "_gtk_accel_label_class_get_accelerator_label") (return-type "gchar*") (parameters '("guint" "accelerator_key") '("GdkModifierType" "accelerator_mods") ) ) ;; From /opt/gnome2/include/gtk-2.0/gtk/gtkaccelmap.h (define-function gtk_accel_map_add_entry (c-name "gtk_accel_map_add_entry") (return-type "none") (parameters '("const-gchar*" "accel_path") '("guint" "accel_key") '("GdkModifierType" "accel_mods") ) ) (define-function gtk_accel_map_lookup_entry (c-name "gtk_accel_map_lookup_entry") (return-type "gboolean") (parameters '("const-gchar*" "accel_path") '("GtkAccelKey*" "key") ) ) (define-function gtk_accel_map_change_entry (c-name "gtk_accel_map_change_entry") (return-type "gboolean") (parameters '("const-gchar*" "accel_path") '("guint" "accel_key") '("GdkModifierType" "accel_mods") '("gboolean" "replace") ) ) (define-function gtk_accel_map_load (c-name "gtk_accel_map_load") (return-type "none") (parameters '("const-gchar*" "file_name") ) ) (define-function gtk_accel_map_save (c-name "gtk_accel_map_save") (return-type "none") (parameters '("const-gchar*" "file_name") ) ) (define-function gtk_accel_map_foreach (c-name "gtk_accel_map_foreach") (return-type "none") (parameters '("gpointer" "data") '("GtkAccelMapForeach" "foreach_func") ) ) (define-function gtk_accel_map_load_fd (c-name "gtk_accel_map_load_fd") (return-type "none") (parameters '("gint" "fd") ) ) (define-function gtk_accel_map_load_scanner (c-name "gtk_accel_map_load_scanner") (return-type "none") (parameters '("GScanner*" "scanner") ) ) (define-function gtk_accel_map_save_fd (c-name "gtk_accel_map_save_fd") (return-type "none") (parameters '("gint" "fd") ) ) (define-function gtk_accel_map_lock_path (c-name "gtk_accel_map_lock_path") (return-type "none") (parameters '("const-gchar*" "accel_path") ) ) (define-function gtk_accel_map_unlock_path (c-name "gtk_accel_map_unlock_path") (return-type "none") (parameters '("const-gchar*" "accel_path") ) ) (define-function gtk_accel_map_add_filter (c-name "gtk_accel_map_add_filter") (return-type "none") (parameters '("const-gchar*" "filter_pattern") ) ) (define-function gtk_accel_map_foreach_unfiltered (c-name "gtk_accel_map_foreach_unfiltered") (return-type "none") (parameters '("gpointer" "data") '("GtkAccelMapForeach" "foreach_func") ) ) (define-function gtk_accel_map_get_type (c-name "gtk_accel_map_get_type") (return-type "GType") ) (define-function gtk_accel_map_get (c-name "gtk_accel_map_get") (return-type "GtkAccelMap*") ) (define-function _gtk_accel_map_init (c-name "_gtk_accel_map_init") (return-type "none") ) (define-function _gtk_accel_map_add_group (c-name "_gtk_accel_map_add_group") (return-type "none") (parameters '("const-gchar*" "accel_path") '("GtkAccelGroup*" "accel_group") ) ) (define-function _gtk_accel_map_remove_group (c-name "_gtk_accel_map_remove_group") (return-type "none") (parameters '("const-gchar*" "accel_path") '("GtkAccelGroup*" "accel_group") ) ) (define-function _gtk_accel_path_is_valid (c-name "_gtk_accel_path_is_valid") (return-type "gboolean") (parameters '("const-gchar*" "accel_path") ) ) ;; From /opt/gnome2/include/gtk-2.0/gtk/gtkaccessible.h (define-function gtk_accessible_get_type (c-name "gtk_accessible_get_type") (return-type "GType") ) (define-method connect_widget_destroyed (of-object "GtkAccessible") (c-name "gtk_accessible_connect_widget_destroyed") (return-type "none") ) ;; From /opt/gnome2/include/gtk-2.0/gtk/gtkactiongroup.h (define-function gtk_action_group_get_type (c-name "gtk_action_group_get_type") (return-type "GType") ) (define-function gtk_action_group_new (c-name "gtk_action_group_new") (is-constructor-of "GtkActionGroup") (return-type "GtkActionGroup*") (parameters '("const-gchar*" "name") ) ) (define-method get_name (of-object "GtkActionGroup") (c-name "gtk_action_group_get_name") (return-type "const-gchar*") ) (define-method get_sensitive (of-object "GtkActionGroup") (c-name "gtk_action_group_get_sensitive") (return-type "gboolean") ) (define-method set_sensitive (of-object "GtkActionGroup") (c-name "gtk_action_group_set_sensitive") (return-type "none") (parameters '("gboolean" "sensitive") ) ) (define-method get_visible (of-object "GtkActionGroup") (c-name "gtk_action_group_get_visible") (return-type "gboolean") ) (define-method set_visible (of-object "GtkActionGroup") (c-name "gtk_action_group_set_visible") (return-type "none") (parameters '("gboolean" "visible") ) ) (define-method get_action (of-object "GtkActionGroup") (c-name "gtk_action_group_get_action") (return-type "GtkAction*") (parameters '("const-gchar*" "action_name") ) ) (define-method list_actions (of-object "GtkActionGroup") (c-name "gtk_action_group_list_actions") (return-type "GList*") ) (define-method add_action (of-object "GtkActionGroup") (c-name "gtk_action_group_add_action") (return-type "none") (parameters '("GtkAction*" "action") ) ) (define-method add_action_with_accel (of-object "GtkActionGroup") (c-name "gtk_action_group_add_action_with_accel") (return-type "none") (parameters '("GtkAction*" "action") '("const-gchar*" "accelerator") ) ) (define-method remove_action (of-object "GtkActionGroup") (c-name "gtk_action_group_remove_action") (return-type "none") (parameters '("GtkAction*" "action") ) ) (define-method add_actions (of-object "GtkActionGroup") (c-name "gtk_action_group_add_actions") (return-type "none") (parameters '("const-GtkActionEntry*" "entries") '("guint" "n_entries") '("gpointer" "user_data") ) ) (define-method add_toggle_actions (of-object "GtkActionGroup") (c-name "gtk_action_group_add_toggle_actions") (return-type "none") (parameters '("const-GtkToggleActionEntry*" "entries") '("guint" "n_entries") '("gpointer" "user_data") ) ) (define-method add_radio_actions (of-object "GtkActionGroup") (c-name "gtk_action_group_add_radio_actions") (return-type "none") (parameters '("const-GtkRadioActionEntry*" "entries") '("guint" "n_entries") '("gint" "value") '("GCallback" "on_change") '("gpointer" "user_data") ) ) (define-method add_actions_full (of-object "GtkActionGroup") (c-name "gtk_action_group_add_actions_full") (return-type "none") (parameters '("const-GtkActionEntry*" "entries") '("guint" "n_entries") '("gpointer" "user_data") '("GDestroyNotify" "destroy") ) ) (define-method add_toggle_actions_full (of-object "GtkActionGroup") (c-name "gtk_action_group_add_toggle_actions_full") (return-type "none") (parameters '("const-GtkToggleActionEntry*" "entries") '("guint" "n_entries") '("gpointer" "user_data") '("GDestroyNotify" "destroy") ) ) (define-method add_radio_actions_full (of-object "GtkActionGroup") (c-name "gtk_action_group_add_radio_actions_full") (return-type "none") (parameters '("const-GtkRadioActionEntry*" "entries") '("guint" "n_entries") '("gint" "value") '("GCallback" "on_change") '("gpointer" "user_data") '("GDestroyNotify" "destroy") ) ) (define-method set_translate_func (of-object "GtkActionGroup") (c-name "gtk_action_group_set_translate_func") (return-type "none") (parameters '("GtkTranslateFunc" "func") '("gpointer" "data") '("GtkDestroyNotify" "notify") ) ) (define-method set_translation_domain (of-object "GtkActionGroup") (c-name "gtk_action_group_set_translation_domain") (return-type "none") (parameters '("const-gchar*" "domain") ) ) (define-method translate_string (of-object "GtkActionGroup") (c-name "gtk_action_group_translate_string") (return-type "const-gchar*") (parameters '("const-gchar*" "string") ) ) (define-method _emit_connect_proxy (of-object "GtkActionGroup") (c-name "_gtk_action_group_emit_connect_proxy") (return-type "none") (parameters '("GtkAction*" "action") '("GtkWidget*" "proxy") ) ) (define-method _emit_disconnect_proxy (of-object "GtkActionGroup") (c-name "_gtk_action_group_emit_disconnect_proxy") (return-type "none") (parameters '("GtkAction*" "action") '("GtkWidget*" "proxy") ) ) (define-method _emit_pre_activate (of-object "GtkActionGroup") (c-name "_gtk_action_group_emit_pre_activate") (return-type "none") (parameters '("GtkAction*" "action") ) ) (define-method _emit_post_activate (of-object "GtkActionGroup") (c-name "_gtk_action_group_emit_post_activate") (return-type "none") (parameters '("GtkAction*" "action") ) ) ;; From /opt/gnome2/include/gtk-2.0/gtk/gtkaction.h (define-function gtk_action_get_type (c-name "gtk_action_get_type") (return-type "GType") ) (define-function gtk_action_new (c-name "gtk_action_new") (is-constructor-of "GtkAction") (return-type "GtkAction*") (parameters '("const-gchar*" "name") '("const-gchar*" "label") '("const-gchar*" "tooltip") '("const-gchar*" "stock_id") ) ) (define-method get_name (of-object "GtkAction") (c-name "gtk_action_get_name") (return-type "const-gchar*") ) (define-method is_sensitive (of-object "GtkAction") (c-name "gtk_action_is_sensitive") (return-type "gboolean") ) (define-method get_sensitive (of-object "GtkAction") (c-name "gtk_action_get_sensitive") (return-type "gboolean") ) (define-method set_sensitive (of-object "GtkAction") (c-name "gtk_action_set_sensitive") (return-type "none") (parameters '("gboolean" "sensitive") ) ) (define-method is_visible (of-object "GtkAction") (c-name "gtk_action_is_visible") (return-type "gboolean") ) (define-method get_visible (of-object "GtkAction") (c-name "gtk_action_get_visible") (return-type "gboolean") ) (define-method set_visible (of-object "GtkAction") (c-name "gtk_action_set_visible") (return-type "none") (parameters '("gboolean" "visible") ) ) (define-method activate (of-object "GtkAction") (c-name "gtk_action_activate") (return-type "none") ) (define-method create_icon (of-object "GtkAction") (c-name "gtk_action_create_icon") (return-type "GtkWidget*") (parameters '("GtkIconSize" "icon_size") ) ) (define-method create_menu_item (of-object "GtkAction") (c-name "gtk_action_create_menu_item") (return-type "GtkWidget*") ) (define-method create_tool_item (of-object "GtkAction") (c-name "gtk_action_create_tool_item") (return-type "GtkWidget*") ) (define-method connect_proxy (of-object "GtkAction") (c-name "gtk_action_connect_proxy") (return-type "none") (parameters '("GtkWidget*" "proxy") ) ) (define-method disconnect_proxy (of-object "GtkAction") (c-name "gtk_action_disconnect_proxy") (return-type "none") (parameters '("GtkWidget*" "proxy") ) ) (define-method get_proxies (of-object "GtkAction") (c-name "gtk_action_get_proxies") (return-type "GSList*") ) (define-method get_action (of-object "GtkWidget") (c-name "gtk_widget_get_action") (return-type "GtkAction*") ) (define-method connect_accelerator (of-object "GtkAction") (c-name "gtk_action_connect_accelerator") (return-type "none") ) (define-method disconnect_accelerator (of-object "GtkAction") (c-name "gtk_action_disconnect_accelerator") (return-type "none") ) (define-method get_accel_path (of-object "GtkAction") (c-name "gtk_action_get_accel_path") (return-type "const-gchar*") ) (define-method get_accel_closure (of-object "GtkAction") (c-name "gtk_action_get_accel_closure") (return-type "GClosure*") ) (define-method block_activate_from (of-object "GtkAction") (c-name "gtk_action_block_activate_from") (return-type "none") (parameters '("GtkWidget*" "proxy") ) ) (define-method unblock_activate_from (of-object "GtkAction") (c-name "gtk_action_unblock_activate_from") (return-type "none") (parameters '("GtkWidget*" "proxy") ) ) (define-method _emit_activate (of-object "GtkAction") (c-name "_gtk_action_emit_activate") (return-type "none") ) (define-method set_accel_path (of-object "GtkAction") (c-name "gtk_action_set_accel_path") (return-type "none") (parameters '("const-gchar*" "accel_path") ) ) (define-method set_accel_group (of-object "GtkAction") (c-name "gtk_action_set_accel_group") (return-type "none") (parameters '("GtkAccelGroup*" "accel_group") ) ) (define-method _sync_sensitive (of-object "GtkAction") (c-name "_gtk_action_sync_sensitive") (return-type "none") ) (define-method _sync_visible (of-object "GtkAction") (c-name "_gtk_action_sync_visible") (return-type "none") ) (define-method _sync_menu_visible (of-object "GtkAction") (c-name "_gtk_action_sync_menu_visible") (return-type "none") (parameters '("GtkWidget*" "proxy") '("gboolean" "empty") ) ) ;; From /opt/gnome2/include/gtk-2.0/gtk/gtkadjustment.h (define-function gtk_adjustment_get_type (c-name "gtk_adjustment_get_type") (return-type "GType") ) (define-function gtk_adjustment_new (c-name "gtk_adjustment_new") (is-constructor-of "GtkAdjustment") (return-type "GtkObject*") (parameters '("gdouble" "value") '("gdouble" "lower") '("gdouble" "upper") '("gdouble" "step_increment") '("gdouble" "page_increment") '("gdouble" "page_size") ) ) (define-method changed (of-object "GtkAdjustment") (c-name "gtk_adjustment_changed") (return-type "none") ) (define-method value_changed (of-object "GtkAdjustment") (c-name "gtk_adjustment_value_changed") (return-type "none") ) (define-method clamp_page (of-object "GtkAdjustment") (c-name "gtk_adjustment_clamp_page") (return-type "none") (parameters '("gdouble" "lower") '("gdouble" "upper") ) ) (define-method get_value (of-object "GtkAdjustment") (c-name "gtk_adjustment_get_value") (return-type "gdouble") ) (define-method set_value (of-object "GtkAdjustment") (c-name "gtk_adjustment_set_value") (return-type "none") (parameters '("gdouble" "value") ) ) ;; From /opt/gnome2/include/gtk-2.0/gtk/gtkalignment.h (define-function gtk_alignment_get_type (c-name "gtk_alignment_get_type") (return-type "GType") ) (define-function gtk_alignment_new (c-name "gtk_alignment_new") (is-constructor-of "GtkAlignment") (return-type "GtkWidget*") (parameters '("gfloat" "xalign") '("gfloat" "yalign") '("gfloat" "xscale") '("gfloat" "yscale") ) ) (define-method set (of-object "GtkAlignment") (c-name "gtk_alignment_set") (return-type "none") (parameters '("gfloat" "xalign") '("gfloat" "yalign") '("gfloat" "xscale") '("gfloat" "yscale") ) ) (define-method set_padding (of-object "GtkAlignment") (c-name "gtk_alignment_set_padding") (return-type "none") (parameters '("guint" "padding_top") '("guint" "padding_bottom") '("guint" "padding_left") '("guint" "padding_right") ) ) (define-method get_padding (of-object "GtkAlignment") (c-name "gtk_alignment_get_padding") (return-type "none") (parameters '("guint*" "padding_top") '("guint*" "padding_bottom") '("guint*" "padding_left") '("guint*" "padding_right") ) ) ;; From /opt/gnome2/include/gtk-2.0/gtk/gtkarrow.h (define-function gtk_arrow_get_type (c-name "gtk_arrow_get_type") (return-type "GType") ) (define-function gtk_arrow_new (c-name "gtk_arrow_new") (is-constructor-of "GtkArrow") (return-type "GtkWidget*") (parameters '("GtkArrowType" "arrow_type") '("GtkShadowType" "shadow_type") ) ) (define-method set (of-object "GtkArrow") (c-name "gtk_arrow_set") (return-type "none") (parameters '("GtkArrowType" "arrow_type") '("GtkShadowType" "shadow_type") ) ) ;; From /opt/gnome2/include/gtk-2.0/gtk/gtkaspectframe.h (define-function gtk_aspect_frame_get_type (c-name "gtk_aspect_frame_get_type") (return-type "GType") ) (define-function gtk_aspect_frame_new (c-name "gtk_aspect_frame_new") (is-constructor-of "GtkAspectFrame") (return-type "GtkWidget*") (parameters '("const-gchar*" "label") '("gfloat" "xalign") '("gfloat" "yalign") '("gfloat" "ratio") '("gboolean" "obey_child") ) ) (define-method set (of-object "GtkAspectFrame") (c-name "gtk_aspect_frame_set") (return-type "none") (parameters '("gfloat" "xalign") '("gfloat" "yalign") '("gfloat" "ratio") '("gboolean" "obey_child") ) ) ;; From /opt/gnome2/include/gtk-2.0/gtk/gtkassistant.h (define-function gtk_assistant_get_type (c-name "gtk_assistant_get_type") (return-type "GType") ) (define-function gtk_assistant_new (c-name "gtk_assistant_new") (is-constructor-of "GtkAssistant") (return-type "GtkWidget*") ) (define-method get_current_page (of-object "GtkAssistant") (c-name "gtk_assistant_get_current_page") (return-type "gint") ) (define-method set_current_page (of-object "GtkAssistant") (c-name "gtk_assistant_set_current_page") (return-type "none") (parameters '("gint" "page_num") ) ) (define-method get_n_pages (of-object "GtkAssistant") (c-name "gtk_assistant_get_n_pages") (return-type "gint") ) (define-method get_nth_page (of-object "GtkAssistant") (c-name "gtk_assistant_get_nth_page") (return-type "GtkWidget*") (parameters '("gint" "page_num") ) ) (define-method prepend_page (of-object "GtkAssistant") (c-name "gtk_assistant_prepend_page") (return-type "gint") (parameters '("GtkWidget*" "page") ) ) (define-method append_page (of-object "GtkAssistant") (c-name "gtk_assistant_append_page") (return-type "gint") (parameters '("GtkWidget*" "page") ) ) (define-method insert_page (of-object "GtkAssistant") (c-name "gtk_assistant_insert_page") (return-type "gint") (parameters '("GtkWidget*" "page") '("gint" "position") ) ) (define-method set_forward_page_func (of-object "GtkAssistant") (c-name "gtk_assistant_set_forward_page_func") (return-type "none") (parameters '("GtkAssistantPageFunc" "page_func") '("gpointer" "data") '("GDestroyNotify" "destroy") ) ) (define-method set_page_type (of-object "GtkAssistant") (c-name "gtk_assistant_set_page_type") (return-type "none") (parameters '("GtkWidget*" "page") '("GtkAssistantPageType" "type") ) ) (define-method get_page_type (of-object "GtkAssistant") (c-name "gtk_assistant_get_page_type") (return-type "GtkAssistantPageType") (parameters '("GtkWidget*" "page") ) ) (define-method set_page_title (of-object "GtkAssistant") (c-name "gtk_assistant_set_page_title") (return-type "none") (parameters '("GtkWidget*" "page") '("const-gchar*" "title") ) ) (define-method get_page_title (of-object "GtkAssistant") (c-name "gtk_assistant_get_page_title") (return-type "const-gchar*") (parameters '("GtkWidget*" "page") ) ) (define-method set_page_header_image (of-object "GtkAssistant") (c-name "gtk_assistant_set_page_header_image") (return-type "none") (parameters '("GtkWidget*" "page") '("GdkPixbuf*" "pixbuf") ) ) (define-method get_page_header_image (of-object "GtkAssistant") (c-name "gtk_assistant_get_page_header_image") (return-type "GdkPixbuf*") (parameters '("GtkWidget*" "page") ) ) (define-method set_page_side_image (of-object "GtkAssistant") (c-name "gtk_assistant_set_page_side_image") (return-type "none") (parameters '("GtkWidget*" "page") '("GdkPixbuf*" "pixbuf") ) ) (define-method get_page_side_image (of-object "GtkAssistant") (c-name "gtk_assistant_get_page_side_image") (return-type "GdkPixbuf*") (parameters '("GtkWidget*" "page") ) ) (define-method set_page_complete (of-object "GtkAssistant") (c-name "gtk_assistant_set_page_complete") (return-type "none") (parameters '("GtkWidget*" "page") '("gboolean" "complete") ) ) (define-method get_page_complete (of-object "GtkAssistant") (c-name "gtk_assistant_get_page_complete") (return-type "gboolean") (parameters '("GtkWidget*" "page") ) ) (define-method add_action_widget (of-object "GtkAssistant") (c-name "gtk_assistant_add_action_widget") (return-type "none") (parameters '("GtkWidget*" "child") ) ) (define-method remove_action_widget (of-object "GtkAssistant") (c-name "gtk_assistant_remove_action_widget") (return-type "none") (parameters '("GtkWidget*" "child") ) ) (define-method update_buttons_state (of-object "GtkAssistant") (c-name "gtk_assistant_update_buttons_state") (return-type "none") ) ;; From /opt/gnome2/include/gtk-2.0/gtk/gtkbbox.h (define-function gtk_button_box_get_type (c-name "gtk_button_box_get_type") (return-type "GType") ) (define-method get_layout (of-object "GtkButtonBox") (c-name "gtk_button_box_get_layout") (return-type "GtkButtonBoxStyle") ) (define-method set_layout (of-object "GtkButtonBox") (c-name "gtk_button_box_set_layout") (return-type "none") (parameters '("GtkButtonBoxStyle" "layout_style") ) ) (define-method get_child_secondary (of-object "GtkButtonBox") (c-name "gtk_button_box_get_child_secondary") (return-type "gboolean") (parameters '("GtkWidget*" "child") ) ) (define-method set_child_secondary (of-object "GtkButtonBox") (c-name "gtk_button_box_set_child_secondary") (return-type "none") (parameters '("GtkWidget*" "child") '("gboolean" "is_secondary") ) ) (define-method set_child_size (of-object "GtkButtonBox") (c-name "gtk_button_box_set_child_size") (return-type "none") (parameters '("gint" "min_width") '("gint" "min_height") ) ) (define-method set_child_ipadding (of-object "GtkButtonBox") (c-name "gtk_button_box_set_child_ipadding") (return-type "none") (parameters '("gint" "ipad_x") '("gint" "ipad_y") ) ) (define-method get_child_size (of-object "GtkButtonBox") (c-name "gtk_button_box_get_child_size") (return-type "none") (parameters '("gint*" "min_width") '("gint*" "min_height") ) ) (define-method get_child_ipadding (of-object "GtkButtonBox") (c-name "gtk_button_box_get_child_ipadding") (return-type "none") (parameters '("gint*" "ipad_x") '("gint*" "ipad_y") ) ) (define-function _gtk_button_box_child_requisition (c-name "_gtk_button_box_child_requisition") (return-type "none") (parameters '("GtkWidget*" "widget") '("int*" "nvis_children") '("int*" "nvis_secondaries") '("int*" "width") '("int*" "height") ) ) ;; From /opt/gnome2/include/gtk-2.0/gtk/gtkbindings.h (define-function gtk_binding_set_new (c-name "gtk_binding_set_new") (is-constructor-of "GtkBindingSet") (return-type "GtkBindingSet*") (parameters '("const-gchar*" "set_name") ) ) (define-function gtk_binding_set_by_class (c-name "gtk_binding_set_by_class") (return-type "GtkBindingSet*") (parameters '("gpointer" "object_class") ) ) (define-function gtk_binding_set_find (c-name "gtk_binding_set_find") (return-type "GtkBindingSet*") (parameters '("const-gchar*" "set_name") ) ) (define-function gtk_bindings_activate (c-name "gtk_bindings_activate") (return-type "gboolean") (parameters '("GtkObject*" "object") '("guint" "keyval") '("GdkModifierType" "modifiers") ) ) (define-function gtk_bindings_activate_event (c-name "gtk_bindings_activate_event") (return-type "gboolean") (parameters '("GtkObject*" "object") '("GdkEventKey*" "event") ) ) (define-method activate (of-object "GtkBindingSet") (c-name "gtk_binding_set_activate") (return-type "gboolean") (parameters '("guint" "keyval") '("GdkModifierType" "modifiers") '("GtkObject*" "object") ) ) (define-function gtk_binding_entry_clear (c-name "gtk_binding_entry_clear") (return-type "none") (parameters '("GtkBindingSet*" "binding_set") '("guint" "keyval") '("GdkModifierType" "modifiers") ) ) (define-function gtk_binding_entry_add_signal (c-name "gtk_binding_entry_add_signal") (return-type "none") (parameters '("GtkBindingSet*" "binding_set") '("guint" "keyval") '("GdkModifierType" "modifiers") '("const-gchar*" "signal_name") '("guint" "n_args") ) (varargs #t) ) (define-method add_path (of-object "GtkBindingSet") (c-name "gtk_binding_set_add_path") (return-type "none") (parameters '("GtkPathType" "path_type") '("const-gchar*" "path_pattern") '("GtkPathPriorityType" "priority") ) ) (define-function gtk_binding_entry_remove (c-name "gtk_binding_entry_remove") (return-type "none") (parameters '("GtkBindingSet*" "binding_set") '("guint" "keyval") '("GdkModifierType" "modifiers") ) ) (define-function gtk_binding_entry_add_signall (c-name "gtk_binding_entry_add_signall") (return-type "none") (parameters '("GtkBindingSet*" "binding_set") '("guint" "keyval") '("GdkModifierType" "modifiers") '("const-gchar*" "signal_name") '("GSList*" "binding_args") ) ) (define-function gtk_binding_parse_binding (c-name "gtk_binding_parse_binding") (return-type "guint") (parameters '("GScanner*" "scanner") ) ) (define-function _gtk_binding_reset_parsed (c-name "_gtk_binding_reset_parsed") (return-type "none") ) (define-function _gtk_binding_signal_new (c-name "_gtk_binding_signal_new") (return-type "guint") (parameters '("const-gchar*" "signal_name") '("GType" "itype") '("GSignalFlags" "signal_flags") '("GCallback" "handler") '("GSignalAccumulator" "accumulator") '("gpointer" "accu_data") '("GSignalCMarshaller" "c_marshaller") '("GType" "return_type") '("guint" "n_params") ) (varargs #t) ) ;; From /opt/gnome2/include/gtk-2.0/gtk/gtkbin.h (define-function gtk_bin_get_type (c-name "gtk_bin_get_type") (return-type "GType") ) (define-method get_child (of-object "GtkBin") (c-name "gtk_bin_get_child") (return-type "GtkWidget*") ) ;; From /opt/gnome2/include/gtk-2.0/gtk/gtkbox.h (define-function gtk_box_get_type (c-name "gtk_box_get_type") (return-type "GType") ) (define-method pack_start (of-object "GtkBox") (c-name "gtk_box_pack_start") (return-type "none") (parameters '("GtkWidget*" "child") '("gboolean" "expand") '("gboolean" "fill") '("guint" "padding") ) ) (define-method pack_end (of-object "GtkBox") (c-name "gtk_box_pack_end") (return-type "none") (parameters '("GtkWidget*" "child") '("gboolean" "expand") '("gboolean" "fill") '("guint" "padding") ) ) (define-method pack_start_defaults (of-object "GtkBox") (c-name "gtk_box_pack_start_defaults") (return-type "none") (parameters '("GtkWidget*" "widget") ) ) (define-method pack_end_defaults (of-object "GtkBox") (c-name "gtk_box_pack_end_defaults") (return-type "none") (parameters '("GtkWidget*" "widget") ) ) (define-method set_homogeneous (of-object "GtkBox") (c-name "gtk_box_set_homogeneous") (return-type "none") (parameters '("gboolean" "homogeneous") ) ) (define-method get_homogeneous (of-object "GtkBox") (c-name "gtk_box_get_homogeneous") (return-type "gboolean") ) (define-method set_spacing (of-object "GtkBox") (c-name "gtk_box_set_spacing") (return-type "none") (parameters '("gint" "spacing") ) ) (define-method get_spacing (of-object "GtkBox") (c-name "gtk_box_get_spacing") (return-type "gint") ) (define-method reorder_child (of-object "GtkBox") (c-name "gtk_box_reorder_child") (return-type "none") (parameters '("GtkWidget*" "child") '("gint" "position") ) ) (define-method query_child_packing (of-object "GtkBox") (c-name "gtk_box_query_child_packing") (return-type "none") (parameters '("GtkWidget*" "child") '("gboolean*" "expand") '("gboolean*" "fill") '("guint*" "padding") '("GtkPackType*" "pack_type") ) ) (define-method set_child_packing (of-object "GtkBox") (c-name "gtk_box_set_child_packing") (return-type "none") (parameters '("GtkWidget*" "child") '("gboolean" "expand") '("gboolean" "fill") '("guint" "padding") '("GtkPackType" "pack_type") ) ) ;; From /opt/gnome2/include/gtk-2.0/gtk/gtkbutton.h (define-function gtk_button_get_type (c-name "gtk_button_get_type") (return-type "GType") ) (define-function gtk_button_new (c-name "gtk_button_new") (is-constructor-of "GtkButton") (return-type "GtkWidget*") ) (define-function gtk_button_new_with_label (c-name "gtk_button_new_with_label") (return-type "GtkWidget*") (parameters '("const-gchar*" "label") ) ) (define-function gtk_button_new_from_stock (c-name "gtk_button_new_from_stock") (return-type "GtkWidget*") (parameters '("const-gchar*" "stock_id") ) ) (define-function gtk_button_new_with_mnemonic (c-name "gtk_button_new_with_mnemonic") (return-type "GtkWidget*") (parameters '("const-gchar*" "label") ) ) (define-method pressed (of-object "GtkButton") (c-name "gtk_button_pressed") (return-type "none") ) (define-method released (of-object "GtkButton") (c-name "gtk_button_released") (return-type "none") ) (define-method clicked (of-object "GtkButton") (c-name "gtk_button_clicked") (return-type "none") ) (define-method enter (of-object "GtkButton") (c-name "gtk_button_enter") (return-type "none") ) (define-method leave (of-object "GtkButton") (c-name "gtk_button_leave") (return-type "none") ) (define-method set_relief (of-object "GtkButton") (c-name "gtk_button_set_relief") (return-type "none") (parameters '("GtkReliefStyle" "newstyle") ) ) (define-method get_relief (of-object "GtkButton") (c-name "gtk_button_get_relief") (return-type "GtkReliefStyle") ) (define-method set_label (of-object "GtkButton") (c-name "gtk_button_set_label") (return-type "none") (parameters '("const-gchar*" "label") ) ) (define-method get_label (of-object "GtkButton") (c-name "gtk_button_get_label") (return-type "const-gchar*") ) (define-method set_use_underline (of-object "GtkButton") (c-name "gtk_button_set_use_underline") (return-type "none") (parameters '("gboolean" "use_underline") ) ) (define-method get_use_underline (of-object "GtkButton") (c-name "gtk_button_get_use_underline") (return-type "gboolean") ) (define-method set_use_stock (of-object "GtkButton") (c-name "gtk_button_set_use_stock") (return-type "none") (parameters '("gboolean" "use_stock") ) ) (define-method get_use_stock (of-object "GtkButton") (c-name "gtk_button_get_use_stock") (return-type "gboolean") ) (define-method set_focus_on_click (of-object "GtkButton") (c-name "gtk_button_set_focus_on_click") (return-type "none") (parameters '("gboolean" "focus_on_click") ) ) (define-method get_focus_on_click (of-object "GtkButton") (c-name "gtk_button_get_focus_on_click") (return-type "gboolean") ) (define-method set_alignment (of-object "GtkButton") (c-name "gtk_button_set_alignment") (return-type "none") (parameters '("gfloat" "xalign") '("gfloat" "yalign") ) ) (define-method get_alignment (of-object "GtkButton") (c-name "gtk_button_get_alignment") (return-type "none") (parameters '("gfloat*" "xalign") '("gfloat*" "yalign") ) ) (define-method set_image (of-object "GtkButton") (c-name "gtk_button_set_image") (return-type "none") (parameters '("GtkWidget*" "image") ) ) (define-method get_image (of-object "GtkButton") (c-name "gtk_button_get_image") (return-type "GtkWidget*") ) (define-method set_image_position (of-object "GtkButton") (c-name "gtk_button_set_image_position") (return-type "none") (parameters '("GtkPositionType" "position") ) ) (define-method get_image_position (of-object "GtkButton") (c-name "gtk_button_get_image_position") (return-type "GtkPositionType") ) (define-method _set_depressed (of-object "GtkButton") (c-name "_gtk_button_set_depressed") (return-type "none") (parameters '("gboolean" "depressed") ) ) (define-method _paint (of-object "GtkButton") (c-name "_gtk_button_paint") (return-type "none") (parameters '("GdkRectangle*" "area") '("GtkStateType" "state_type") '("GtkShadowType" "shadow_type") '("const-gchar*" "main_detail") '("const-gchar*" "default_detail") ) ) ;; From /opt/gnome2/include/gtk-2.0/gtk/gtkcalendar.h (define-function gtk_calendar_get_type (c-name "gtk_calendar_get_type") (return-type "GType") ) (define-function gtk_calendar_new (c-name "gtk_calendar_new") (is-constructor-of "GtkCalendar") (return-type "GtkWidget*") ) (define-method select_month (of-object "GtkCalendar") (c-name "gtk_calendar_select_month") (return-type "gboolean") (parameters '("guint" "month") '("guint" "year") ) ) (define-method select_day (of-object "GtkCalendar") (c-name "gtk_calendar_select_day") (return-type "none") (parameters '("guint" "day") ) ) (define-method mark_day (of-object "GtkCalendar") (c-name "gtk_calendar_mark_day") (return-type "gboolean") (parameters '("guint" "day") ) ) (define-method unmark_day (of-object "GtkCalendar") (c-name "gtk_calendar_unmark_day") (return-type "gboolean") (parameters '("guint" "day") ) ) (define-method clear_marks (of-object "GtkCalendar") (c-name "gtk_calendar_clear_marks") (return-type "none") ) (define-method set_display_options (of-object "GtkCalendar") (c-name "gtk_calendar_set_display_options") (return-type "none") (parameters '("GtkCalendarDisplayOptions" "flags") ) ) (define-method get_display_options (of-object "GtkCalendar") (c-name "gtk_calendar_get_display_options") (return-type "GtkCalendarDisplayOptions") ) (define-method display_options (of-object "GtkCalendar") (c-name "gtk_calendar_display_options") (return-type "none") (parameters '("GtkCalendarDisplayOptions" "flags") ) ) (define-method get_date (of-object "GtkCalendar") (c-name "gtk_calendar_get_date") (return-type "none") (parameters '("guint*" "year") '("guint*" "month") '("guint*" "day") ) ) (define-method freeze (of-object "GtkCalendar") (c-name "gtk_calendar_freeze") (return-type "none") ) (define-method thaw (of-object "GtkCalendar") (c-name "gtk_calendar_thaw") (return-type "none") ) ;; From /opt/gnome2/include/gtk-2.0/gtk/gtkcelleditable.h (define-function gtk_cell_editable_get_type (c-name "gtk_cell_editable_get_type") (return-type "GType") ) (define-method start_editing (of-object "GtkCellEditable") (c-name "gtk_cell_editable_start_editing") (return-type "none") (parameters '("GdkEvent*" "event") ) ) (define-method editing_done (of-object "GtkCellEditable") (c-name "gtk_cell_editable_editing_done") (return-type "none") ) (define-method remove_widget (of-object "GtkCellEditable") (c-name "gtk_cell_editable_remove_widget") (return-type "none") ) ;; From /opt/gnome2/include/gtk-2.0/gtk/gtkcelllayout.h (define-function gtk_cell_layout_get_type (c-name "gtk_cell_layout_get_type") (return-type "GType") ) (define-method pack_start (of-object "GtkCellLayout") (c-name "gtk_cell_layout_pack_start") (return-type "none") (parameters '("GtkCellRenderer*" "cell") '("gboolean" "expand") ) ) (define-method pack_end (of-object "GtkCellLayout") (c-name "gtk_cell_layout_pack_end") (return-type "none") (parameters '("GtkCellRenderer*" "cell") '("gboolean" "expand") ) ) (define-method clear (of-object "GtkCellLayout") (c-name "gtk_cell_layout_clear") (return-type "none") ) (define-method set_attributes (of-object "GtkCellLayout") (c-name "gtk_cell_layout_set_attributes") (return-type "none") (parameters '("GtkCellRenderer*" "cell") ) (varargs #t) ) (define-method add_attribute (of-object "GtkCellLayout") (c-name "gtk_cell_layout_add_attribute") (return-type "none") (parameters '("GtkCellRenderer*" "cell") '("const-gchar*" "attribute") '("gint" "column") ) ) (define-method set_cell_data_func (of-object "GtkCellLayout") (c-name "gtk_cell_layout_set_cell_data_func") (return-type "none") (parameters '("GtkCellRenderer*" "cell") '("GtkCellLayoutDataFunc" "func") '("gpointer" "func_data") '("GDestroyNotify" "destroy") ) ) (define-method clear_attributes (of-object "GtkCellLayout") (c-name "gtk_cell_layout_clear_attributes") (return-type "none") (parameters '("GtkCellRenderer*" "cell") ) ) (define-method reorder (of-object "GtkCellLayout") (c-name "gtk_cell_layout_reorder") (return-type "none") (parameters '("GtkCellRenderer*" "cell") '("gint" "position") ) ) ;; From /opt/gnome2/include/gtk-2.0/gtk/gtkcellrendereraccel.h (define-function gtk_cell_renderer_accel_get_type (c-name "gtk_cell_renderer_accel_get_type") (return-type "GType") ) (define-function gtk_cell_renderer_accel_new (c-name "gtk_cell_renderer_accel_new") (is-constructor-of "GtkCellRendererAccel") (return-type "GtkCellRenderer*") ) ;; From /opt/gnome2/include/gtk-2.0/gtk/gtkcellrenderercombo.h (define-function gtk_cell_renderer_combo_get_type (c-name "gtk_cell_renderer_combo_get_type") (return-type "GType") ) (define-function gtk_cell_renderer_combo_new (c-name "gtk_cell_renderer_combo_new") (is-constructor-of "GtkCellRendererCombo") (return-type "GtkCellRenderer*") ) ;; From /opt/gnome2/include/gtk-2.0/gtk/gtkcellrenderer.h (define-function gtk_cell_renderer_get_type (c-name "gtk_cell_renderer_get_type") (return-type "GType") ) (define-method get_size (of-object "GtkCellRenderer") (c-name "gtk_cell_renderer_get_size") (return-type "none") (parameters '("GtkWidget*" "widget") '("GdkRectangle*" "cell_area") '("gint*" "x_offset") '("gint*" "y_offset") '("gint*" "width") '("gint*" "height") ) ) (define-method render (of-object "GtkCellRenderer") (c-name "gtk_cell_renderer_render") (return-type "none") (parameters '("GdkWindow*" "window") '("GtkWidget*" "widget") '("GdkRectangle*" "background_area") '("GdkRectangle*" "cell_area") '("GdkRectangle*" "expose_area") '("GtkCellRendererState" "flags") ) ) (define-method activate (of-object "GtkCellRenderer") (c-name "gtk_cell_renderer_activate") (return-type "gboolean") (parameters '("GdkEvent*" "event") '("GtkWidget*" "widget") '("const-gchar*" "path") '("GdkRectangle*" "background_area") '("GdkRectangle*" "cell_area") '("GtkCellRendererState" "flags") ) ) (define-method start_editing (of-object "GtkCellRenderer") (c-name "gtk_cell_renderer_start_editing") (return-type "GtkCellEditable*") (parameters '("GdkEvent*" "event") '("GtkWidget*" "widget") '("const-gchar*" "path") '("GdkRectangle*" "background_area") '("GdkRectangle*" "cell_area") '("GtkCellRendererState" "flags") ) ) (define-method set_fixed_size (of-object "GtkCellRenderer") (c-name "gtk_cell_renderer_set_fixed_size") (return-type "none") (parameters '("gint" "width") '("gint" "height") ) ) (define-method get_fixed_size (of-object "GtkCellRenderer") (c-name "gtk_cell_renderer_get_fixed_size") (return-type "none") (parameters '("gint*" "width") '("gint*" "height") ) ) (define-method editing_canceled (of-object "GtkCellRenderer") (c-name "gtk_cell_renderer_editing_canceled") (return-type "none") ) (define-method stop_editing (of-object "GtkCellRenderer") (c-name "gtk_cell_renderer_stop_editing") (return-type "none") (parameters '("gboolean" "canceled") ) ) ;; From /opt/gnome2/include/gtk-2.0/gtk/gtkcellrendererpixbuf.h (define-function gtk_cell_renderer_pixbuf_get_type (c-name "gtk_cell_renderer_pixbuf_get_type") (return-type "GType") ) (define-function gtk_cell_renderer_pixbuf_new (c-name "gtk_cell_renderer_pixbuf_new") (is-constructor-of "GtkCellRendererPixbuf") (return-type "GtkCellRenderer*") ) ;; From /opt/gnome2/include/gtk-2.0/gtk/gtkcellrendererprogress.h (define-function gtk_cell_renderer_progress_get_type (c-name "gtk_cell_renderer_progress_get_type") (return-type "GType") ) (define-function gtk_cell_renderer_progress_new (c-name "gtk_cell_renderer_progress_new") (is-constructor-of "GtkCellRendererProgress") (return-type "GtkCellRenderer*") ) ;; From /opt/gnome2/include/gtk-2.0/gtk/gtkcellrendererspin.h (define-function gtk_cell_renderer_spin_get_type (c-name "gtk_cell_renderer_spin_get_type") (return-type "GType") ) (define-function gtk_cell_renderer_spin_new (c-name "gtk_cell_renderer_spin_new") (is-constructor-of "GtkCellRendererSpin") (return-type "GtkCellRenderer*") ) ;; From /opt/gnome2/include/gtk-2.0/gtk/gtkcellrenderertext.h (define-function gtk_cell_renderer_text_get_type (c-name "gtk_cell_renderer_text_get_type") (return-type "GType") ) (define-function gtk_cell_renderer_text_new (c-name "gtk_cell_renderer_text_new") (is-constructor-of "GtkCellRendererText") (return-type "GtkCellRenderer*") ) (define-method set_fixed_height_from_font (of-object "GtkCellRendererText") (c-name "gtk_cell_renderer_text_set_fixed_height_from_font") (return-type "none") (parameters '("gint" "number_of_rows") ) ) ;; From /opt/gnome2/include/gtk-2.0/gtk/gtkcellrenderertoggle.h (define-function gtk_cell_renderer_toggle_get_type (c-name "gtk_cell_renderer_toggle_get_type") (return-type "GType") ) (define-function gtk_cell_renderer_toggle_new (c-name "gtk_cell_renderer_toggle_new") (is-constructor-of "GtkCellRendererToggle") (return-type "GtkCellRenderer*") ) (define-method get_radio (of-object "GtkCellRendererToggle") (c-name "gtk_cell_renderer_toggle_get_radio") (return-type "gboolean") ) (define-method set_radio (of-object "GtkCellRendererToggle") (c-name "gtk_cell_renderer_toggle_set_radio") (return-type "none") (parameters '("gboolean" "radio") ) ) (define-method get_active (of-object "GtkCellRendererToggle") (c-name "gtk_cell_renderer_toggle_get_active") (return-type "gboolean") ) (define-method set_active (of-object "GtkCellRendererToggle") (c-name "gtk_cell_renderer_toggle_set_active") (return-type "none") (parameters '("gboolean" "setting") ) ) ;; From /opt/gnome2/include/gtk-2.0/gtk/gtkcellview.h (define-function gtk_cell_view_get_type (c-name "gtk_cell_view_get_type") (return-type "GType") ) (define-function gtk_cell_view_new (c-name "gtk_cell_view_new") (is-constructor-of "GtkCellView") (return-type "GtkWidget*") ) (define-function gtk_cell_view_new_with_text (c-name "gtk_cell_view_new_with_text") (return-type "GtkWidget*") (parameters '("const-gchar*" "text") ) ) (define-function gtk_cell_view_new_with_markup (c-name "gtk_cell_view_new_with_markup") (return-type "GtkWidget*") (parameters '("const-gchar*" "markup") ) ) (define-function gtk_cell_view_new_with_pixbuf (c-name "gtk_cell_view_new_with_pixbuf") (return-type "GtkWidget*") (parameters '("GdkPixbuf*" "pixbuf") ) ) (define-method set_model (of-object "GtkCellView") (c-name "gtk_cell_view_set_model") (return-type "none") (parameters '("GtkTreeModel*" "model") ) ) (define-method set_displayed_row (of-object "GtkCellView") (c-name "gtk_cell_view_set_displayed_row") (return-type "none") (parameters '("GtkTreePath*" "path") ) ) (define-method get_displayed_row (of-object "GtkCellView") (c-name "gtk_cell_view_get_displayed_row") (return-type "GtkTreePath*") ) (define-method get_size_of_row (of-object "GtkCellView") (c-name "gtk_cell_view_get_size_of_row") (return-type "gboolean") (parameters '("GtkTreePath*" "path") '("GtkRequisition*" "requisition") ) ) (define-method set_background_color (of-object "GtkCellView") (c-name "gtk_cell_view_set_background_color") (return-type "none") (parameters '("const-GdkColor*" "color") ) ) (define-method get_cell_renderers (of-object "GtkCellView") (c-name "gtk_cell_view_get_cell_renderers") (return-type "GList*") ) ;; From /opt/gnome2/include/gtk-2.0/gtk/gtkcheckbutton.h (define-function gtk_check_button_get_type (c-name "gtk_check_button_get_type") (return-type "GType") ) (define-function gtk_check_button_new (c-name "gtk_check_button_new") (is-constructor-of "GtkCheckButton") (return-type "GtkWidget*") ) (define-function gtk_check_button_new_with_label (c-name "gtk_check_button_new_with_label") (return-type "GtkWidget*") (parameters '("const-gchar*" "label") ) ) (define-function gtk_check_button_new_with_mnemonic (c-name "gtk_check_button_new_with_mnemonic") (return-type "GtkWidget*") (parameters '("const-gchar*" "label") ) ) (define-method _get_props (of-object "GtkCheckButton") (c-name "_gtk_check_button_get_props") (return-type "none") (parameters '("gint*" "indicator_size") '("gint*" "indicator_spacing") ) ) ;; From /opt/gnome2/include/gtk-2.0/gtk/gtkcheckmenuitem.h (define-function gtk_check_menu_item_get_type (c-name "gtk_check_menu_item_get_type") (return-type "GType") ) (define-function gtk_check_menu_item_new (c-name "gtk_check_menu_item_new") (is-constructor-of "GtkCheckMenuItem") (return-type "GtkWidget*") ) (define-function gtk_check_menu_item_new_with_label (c-name "gtk_check_menu_item_new_with_label") (return-type "GtkWidget*") (parameters '("const-gchar*" "label") ) ) (define-function gtk_check_menu_item_new_with_mnemonic (c-name "gtk_check_menu_item_new_with_mnemonic") (return-type "GtkWidget*") (parameters '("const-gchar*" "label") ) ) (define-method set_active (of-object "GtkCheckMenuItem") (c-name "gtk_check_menu_item_set_active") (return-type "none") (parameters '("gboolean" "is_active") ) ) (define-method get_active (of-object "GtkCheckMenuItem") (c-name "gtk_check_menu_item_get_active") (return-type "gboolean") ) (define-method toggled (of-object "GtkCheckMenuItem") (c-name "gtk_check_menu_item_toggled") (return-type "none") ) (define-method set_inconsistent (of-object "GtkCheckMenuItem") (c-name "gtk_check_menu_item_set_inconsistent") (return-type "none") (parameters '("gboolean" "setting") ) ) (define-method get_inconsistent (of-object "GtkCheckMenuItem") (c-name "gtk_check_menu_item_get_inconsistent") (return-type "gboolean") ) (define-method set_draw_as_radio (of-object "GtkCheckMenuItem") (c-name "gtk_check_menu_item_set_draw_as_radio") (return-type "none") (parameters '("gboolean" "draw_as_radio") ) ) (define-method get_draw_as_radio (of-object "GtkCheckMenuItem") (c-name "gtk_check_menu_item_get_draw_as_radio") (return-type "gboolean") ) (define-method set_show_toggle (of-object "GtkCheckMenuItem") (c-name "gtk_check_menu_item_set_show_toggle") (return-type "none") (parameters '("gboolean" "always") ) ) ;; From /opt/gnome2/include/gtk-2.0/gtk/gtkclipboard.h (define-function gtk_clipboard_get_type (c-name "gtk_clipboard_get_type") (return-type "GType") ) (define-function gtk_clipboard_get_for_display (c-name "gtk_clipboard_get_for_display") (return-type "GtkClipboard*") (parameters '("GdkDisplay*" "display") '("GdkAtom" "selection") ) ) (define-function gtk_clipboard_get (c-name "gtk_clipboard_get") (return-type "GtkClipboard*") (parameters '("GdkAtom" "selection") ) ) (define-method get_display (of-object "GtkClipboard") (c-name "gtk_clipboard_get_display") (return-type "GdkDisplay*") ) (define-method set_with_data (of-object "GtkClipboard") (c-name "gtk_clipboard_set_with_data") (return-type "gboolean") (parameters '("const-GtkTargetEntry*" "targets") '("guint" "n_targets") '("GtkClipboardGetFunc" "get_func") '("GtkClipboardClearFunc" "clear_func") '("gpointer" "user_data") ) ) (define-method set_with_owner (of-object "GtkClipboard") (c-name "gtk_clipboard_set_with_owner") (return-type "gboolean") (parameters '("const-GtkTargetEntry*" "targets") '("guint" "n_targets") '("GtkClipboardGetFunc" "get_func") '("GtkClipboardClearFunc" "clear_func") '("GObject*" "owner") ) ) (define-method get_owner (of-object "GtkClipboard") (c-name "gtk_clipboard_get_owner") (return-type "GObject*") ) (define-method clear (of-object "GtkClipboard") (c-name "gtk_clipboard_clear") (return-type "none") ) (define-method set_text (of-object "GtkClipboard") (c-name "gtk_clipboard_set_text") (return-type "none") (parameters '("const-gchar*" "text") '("gint" "len") ) ) (define-method set_image (of-object "GtkClipboard") (c-name "gtk_clipboard_set_image") (return-type "none") (parameters '("GdkPixbuf*" "pixbuf") ) ) (define-method request_contents (of-object "GtkClipboard") (c-name "gtk_clipboard_request_contents") (return-type "none") (parameters '("GdkAtom" "target") '("GtkClipboardReceivedFunc" "callback") '("gpointer" "user_data") ) ) (define-method request_text (of-object "GtkClipboard") (c-name "gtk_clipboard_request_text") (return-type "none") (parameters '("GtkClipboardTextReceivedFunc" "callback") '("gpointer" "user_data") ) ) (define-method request_rich_text (of-object "GtkClipboard") (c-name "gtk_clipboard_request_rich_text") (return-type "none") (parameters '("GtkTextBuffer*" "buffer") '("GtkClipboardRichTextReceivedFunc" "callback") '("gpointer" "user_data") ) ) (define-method request_image (of-object "GtkClipboard") (c-name "gtk_clipboard_request_image") (return-type "none") (parameters '("GtkClipboardImageReceivedFunc" "callback") '("gpointer" "user_data") ) ) (define-method request_targets (of-object "GtkClipboard") (c-name "gtk_clipboard_request_targets") (return-type "none") (parameters '("GtkClipboardTargetsReceivedFunc" "callback") '("gpointer" "user_data") ) ) (define-method wait_for_contents (of-object "GtkClipboard") (c-name "gtk_clipboard_wait_for_contents") (return-type "GtkSelectionData*") (parameters '("GdkAtom" "target") ) ) (define-method wait_for_text (of-object "GtkClipboard") (c-name "gtk_clipboard_wait_for_text") (return-type "gchar*") ) (define-method wait_for_rich_text (of-object "GtkClipboard") (c-name "gtk_clipboard_wait_for_rich_text") (return-type "guint8*") (parameters '("GtkTextBuffer*" "buffer") '("GdkAtom*" "format") '("gsize*" "length") ) ) (define-method wait_for_image (of-object "GtkClipboard") (c-name "gtk_clipboard_wait_for_image") (return-type "GdkPixbuf*") ) (define-method wait_for_targets (of-object "GtkClipboard") (c-name "gtk_clipboard_wait_for_targets") (return-type "gboolean") (parameters '("GdkAtom**" "targets") '("gint*" "n_targets") ) ) (define-method wait_is_text_available (of-object "GtkClipboard") (c-name "gtk_clipboard_wait_is_text_available") (return-type "gboolean") ) (define-method wait_is_rich_text_available (of-object "GtkClipboard") (c-name "gtk_clipboard_wait_is_rich_text_available") (return-type "gboolean") (parameters '("GtkTextBuffer*" "buffer") ) ) (define-method wait_is_image_available (of-object "GtkClipboard") (c-name "gtk_clipboard_wait_is_image_available") (return-type "gboolean") ) (define-method wait_is_target_available (of-object "GtkClipboard") (c-name "gtk_clipboard_wait_is_target_available") (return-type "gboolean") (parameters '("GdkAtom" "target") ) ) (define-method set_can_store (of-object "GtkClipboard") (c-name "gtk_clipboard_set_can_store") (return-type "none") (parameters '("const-GtkTargetEntry*" "targets") '("gint" "n_targets") ) ) (define-method store (of-object "GtkClipboard") (c-name "gtk_clipboard_store") (return-type "none") ) (define-function _gtk_clipboard_handle_event (c-name "_gtk_clipboard_handle_event") (return-type "none") (parameters '("GdkEventOwnerChange*" "event") ) ) (define-function _gtk_clipboard_store_all (c-name "_gtk_clipboard_store_all") (return-type "none") ) ;; From /opt/gnome2/include/gtk-2.0/gtk/gtkclist.h (define-function gtk_clist_get_type (c-name "gtk_clist_get_type") (return-type "GtkType") ) (define-function gtk_clist_new (c-name "gtk_clist_new") (is-constructor-of "GtkClist") (return-type "GtkWidget*") (parameters '("gint" "columns") ) ) (define-function gtk_clist_new_with_titles (c-name "gtk_clist_new_with_titles") (return-type "GtkWidget*") (parameters '("gint" "columns") '("gchar*[]" "titles") ) ) (define-method set_hadjustment (of-object "GtkCList") (c-name "gtk_clist_set_hadjustment") (return-type "none") (parameters '("GtkAdjustment*" "adjustment") ) ) (define-method set_vadjustment (of-object "GtkCList") (c-name "gtk_clist_set_vadjustment") (return-type "none") (parameters '("GtkAdjustment*" "adjustment") ) ) (define-method get_hadjustment (of-object "GtkCList") (c-name "gtk_clist_get_hadjustment") (return-type "GtkAdjustment*") ) (define-method get_vadjustment (of-object "GtkCList") (c-name "gtk_clist_get_vadjustment") (return-type "GtkAdjustment*") ) (define-method set_shadow_type (of-object "GtkCList") (c-name "gtk_clist_set_shadow_type") (return-type "none") (parameters '("GtkShadowType" "type") ) ) (define-method set_selection_mode (of-object "GtkCList") (c-name "gtk_clist_set_selection_mode") (return-type "none") (parameters '("GtkSelectionMode" "mode") ) ) (define-method set_reorderable (of-object "GtkCList") (c-name "gtk_clist_set_reorderable") (return-type "none") (parameters '("gboolean" "reorderable") ) ) (define-method set_use_drag_icons (of-object "GtkCList") (c-name "gtk_clist_set_use_drag_icons") (return-type "none") (parameters '("gboolean" "use_icons") ) ) (define-method set_button_actions (of-object "GtkCList") (c-name "gtk_clist_set_button_actions") (return-type "none") (parameters '("guint" "button") '("guint8" "button_actions") ) ) (define-method freeze (of-object "GtkCList") (c-name "gtk_clist_freeze") (return-type "none") ) (define-method thaw (of-object "GtkCList") (c-name "gtk_clist_thaw") (return-type "none") ) (define-method column_titles_show (of-object "GtkCList") (c-name "gtk_clist_column_titles_show") (return-type "none") ) (define-method column_titles_hide (of-object "GtkCList") (c-name "gtk_clist_column_titles_hide") (return-type "none") ) (define-method column_title_active (of-object "GtkCList") (c-name "gtk_clist_column_title_active") (return-type "none") (parameters '("gint" "column") ) ) (define-method column_title_passive (of-object "GtkCList") (c-name "gtk_clist_column_title_passive") (return-type "none") (parameters '("gint" "column") ) ) (define-method column_titles_active (of-object "GtkCList") (c-name "gtk_clist_column_titles_active") (return-type "none") ) (define-method column_titles_passive (of-object "GtkCList") (c-name "gtk_clist_column_titles_passive") (return-type "none") ) (define-method set_column_title (of-object "GtkCList") (c-name "gtk_clist_set_column_title") (return-type "none") (parameters '("gint" "column") '("const-gchar*" "title") ) ) (define-method get_column_title (of-object "GtkCList") (c-name "gtk_clist_get_column_title") (return-type "gchar*") (parameters '("gint" "column") ) ) (define-method set_column_widget (of-object "GtkCList") (c-name "gtk_clist_set_column_widget") (return-type "none") (parameters '("gint" "column") '("GtkWidget*" "widget") ) ) (define-method get_column_widget (of-object "GtkCList") (c-name "gtk_clist_get_column_widget") (return-type "GtkWidget*") (parameters '("gint" "column") ) ) (define-method set_column_justification (of-object "GtkCList") (c-name "gtk_clist_set_column_justification") (return-type "none") (parameters '("gint" "column") '("GtkJustification" "justification") ) ) (define-method set_column_visibility (of-object "GtkCList") (c-name "gtk_clist_set_column_visibility") (return-type "none") (parameters '("gint" "column") '("gboolean" "visible") ) ) (define-method set_column_resizeable (of-object "GtkCList") (c-name "gtk_clist_set_column_resizeable") (return-type "none") (parameters '("gint" "column") '("gboolean" "resizeable") ) ) (define-method set_column_auto_resize (of-object "GtkCList") (c-name "gtk_clist_set_column_auto_resize") (return-type "none") (parameters '("gint" "column") '("gboolean" "auto_resize") ) ) (define-method columns_autosize (of-object "GtkCList") (c-name "gtk_clist_columns_autosize") (return-type "gint") ) (define-method optimal_column_width (of-object "GtkCList") (c-name "gtk_clist_optimal_column_width") (return-type "gint") (parameters '("gint" "column") ) ) (define-method set_column_width (of-object "GtkCList") (c-name "gtk_clist_set_column_width") (return-type "none") (parameters '("gint" "column") '("gint" "width") ) ) (define-method set_column_min_width (of-object "GtkCList") (c-name "gtk_clist_set_column_min_width") (return-type "none") (parameters '("gint" "column") '("gint" "min_width") ) ) (define-method set_column_max_width (of-object "GtkCList") (c-name "gtk_clist_set_column_max_width") (return-type "none") (parameters '("gint" "column") '("gint" "max_width") ) ) (define-method set_row_height (of-object "GtkCList") (c-name "gtk_clist_set_row_height") (return-type "none") (parameters '("guint" "height") ) ) (define-method moveto (of-object "GtkCList") (c-name "gtk_clist_moveto") (return-type "none") (parameters '("gint" "row") '("gint" "column") '("gfloat" "row_align") '("gfloat" "col_align") ) ) (define-method row_is_visible (of-object "GtkCList") (c-name "gtk_clist_row_is_visible") (return-type "GtkVisibility") (parameters '("gint" "row") ) ) (define-method get_cell_type (of-object "GtkCList") (c-name "gtk_clist_get_cell_type") (return-type "GtkCellType") (parameters '("gint" "row") '("gint" "column") ) ) (define-method set_text (of-object "GtkCList") (c-name "gtk_clist_set_text") (return-type "none") (parameters '("gint" "row") '("gint" "column") '("const-gchar*" "text") ) ) (define-method get_text (of-object "GtkCList") (c-name "gtk_clist_get_text") (return-type "gint") (parameters '("gint" "row") '("gint" "column") '("gchar**" "text") ) ) (define-method set_pixmap (of-object "GtkCList") (c-name "gtk_clist_set_pixmap") (return-type "none") (parameters '("gint" "row") '("gint" "column") '("GdkPixmap*" "pixmap") '("GdkBitmap*" "mask") ) ) (define-method get_pixmap (of-object "GtkCList") (c-name "gtk_clist_get_pixmap") (return-type "gint") (parameters '("gint" "row") '("gint" "column") '("GdkPixmap**" "pixmap") '("GdkBitmap**" "mask") ) ) (define-method set_pixtext (of-object "GtkCList") (c-name "gtk_clist_set_pixtext") (return-type "none") (parameters '("gint" "row") '("gint" "column") '("const-gchar*" "text") '("guint8" "spacing") '("GdkPixmap*" "pixmap") '("GdkBitmap*" "mask") ) ) (define-method get_pixtext (of-object "GtkCList") (c-name "gtk_clist_get_pixtext") (return-type "gint") (parameters '("gint" "row") '("gint" "column") '("gchar**" "text") '("guint8*" "spacing") '("GdkPixmap**" "pixmap") '("GdkBitmap**" "mask") ) ) (define-method set_foreground (of-object "GtkCList") (c-name "gtk_clist_set_foreground") (return-type "none") (parameters '("gint" "row") '("const-GdkColor*" "color") ) ) (define-method set_background (of-object "GtkCList") (c-name "gtk_clist_set_background") (return-type "none") (parameters '("gint" "row") '("const-GdkColor*" "color") ) ) (define-method set_cell_style (of-object "GtkCList") (c-name "gtk_clist_set_cell_style") (return-type "none") (parameters '("gint" "row") '("gint" "column") '("GtkStyle*" "style") ) ) (define-method get_cell_style (of-object "GtkCList") (c-name "gtk_clist_get_cell_style") (return-type "GtkStyle*") (parameters '("gint" "row") '("gint" "column") ) ) (define-method set_row_style (of-object "GtkCList") (c-name "gtk_clist_set_row_style") (return-type "none") (parameters '("gint" "row") '("GtkStyle*" "style") ) ) (define-method get_row_style (of-object "GtkCList") (c-name "gtk_clist_get_row_style") (return-type "GtkStyle*") (parameters '("gint" "row") ) ) (define-method set_shift (of-object "GtkCList") (c-name "gtk_clist_set_shift") (return-type "none") (parameters '("gint" "row") '("gint" "column") '("gint" "vertical") '("gint" "horizontal") ) ) (define-method set_selectable (of-object "GtkCList") (c-name "gtk_clist_set_selectable") (return-type "none") (parameters '("gint" "row") '("gboolean" "selectable") ) ) (define-method get_selectable (of-object "GtkCList") (c-name "gtk_clist_get_selectable") (return-type "gboolean") (parameters '("gint" "row") ) ) (define-method prepend (of-object "GtkCList") (c-name "gtk_clist_prepend") (return-type "gint") (parameters '("gchar*[]" "text") ) ) (define-method append (of-object "GtkCList") (c-name "gtk_clist_append") (return-type "gint") (parameters '("gchar*[]" "text") ) ) (define-method insert (of-object "GtkCList") (c-name "gtk_clist_insert") (return-type "gint") (parameters '("gint" "row") '("gchar*[]" "text") ) ) (define-method remove (of-object "GtkCList") (c-name "gtk_clist_remove") (return-type "none") (parameters '("gint" "row") ) ) (define-method set_row_data (of-object "GtkCList") (c-name "gtk_clist_set_row_data") (return-type "none") (parameters '("gint" "row") '("gpointer" "data") ) ) (define-method set_row_data_full (of-object "GtkCList") (c-name "gtk_clist_set_row_data_full") (return-type "none") (parameters '("gint" "row") '("gpointer" "data") '("GtkDestroyNotify" "destroy") ) ) (define-method get_row_data (of-object "GtkCList") (c-name "gtk_clist_get_row_data") (return-type "gpointer") (parameters '("gint" "row") ) ) (define-method find_row_from_data (of-object "GtkCList") (c-name "gtk_clist_find_row_from_data") (return-type "gint") (parameters '("gpointer" "data") ) ) (define-method select_row (of-object "GtkCList") (c-name "gtk_clist_select_row") (return-type "none") (parameters '("gint" "row") '("gint" "column") ) ) (define-method unselect_row (of-object "GtkCList") (c-name "gtk_clist_unselect_row") (return-type "none") (parameters '("gint" "row") '("gint" "column") ) ) (define-method undo_selection (of-object "GtkCList") (c-name "gtk_clist_undo_selection") (return-type "none") ) (define-method clear (of-object "GtkCList") (c-name "gtk_clist_clear") (return-type "none") ) (define-method get_selection_info (of-object "GtkCList") (c-name "gtk_clist_get_selection_info") (return-type "gint") (parameters '("gint" "x") '("gint" "y") '("gint*" "row") '("gint*" "column") ) ) (define-method select_all (of-object "GtkCList") (c-name "gtk_clist_select_all") (return-type "none") ) (define-method unselect_all (of-object "GtkCList") (c-name "gtk_clist_unselect_all") (return-type "none") ) (define-method swap_rows (of-object "GtkCList") (c-name "gtk_clist_swap_rows") (return-type "none") (parameters '("gint" "row1") '("gint" "row2") ) ) (define-method row_move (of-object "GtkCList") (c-name "gtk_clist_row_move") (return-type "none") (parameters '("gint" "source_row") '("gint" "dest_row") ) ) (define-method set_compare_func (of-object "GtkCList") (c-name "gtk_clist_set_compare_func") (return-type "none") (parameters '("GtkCListCompareFunc" "cmp_func") ) ) (define-method set_sort_column (of-object "GtkCList") (c-name "gtk_clist_set_sort_column") (return-type "none") (parameters '("gint" "column") ) ) (define-method set_sort_type (of-object "GtkCList") (c-name "gtk_clist_set_sort_type") (return-type "none") (parameters '("GtkSortType" "sort_type") ) ) (define-method sort (of-object "GtkCList") (c-name "gtk_clist_sort") (return-type "none") ) (define-method set_auto_sort (of-object "GtkCList") (c-name "gtk_clist_set_auto_sort") (return-type "none") (parameters '("gboolean" "auto_sort") ) ) (define-method _create_cell_layout (of-object "GtkCList") (c-name "_gtk_clist_create_cell_layout") (return-type "PangoLayout*") (parameters '("GtkCListRow*" "clist_row") '("gint" "column") ) ) ;; From /opt/gnome2/include/gtk-2.0/gtk/gtkcolorbutton.h (define-function gtk_color_button_get_type (c-name "gtk_color_button_get_type") (return-type "GType") ) (define-function gtk_color_button_new (c-name "gtk_color_button_new") (is-constructor-of "GtkColorButton") (return-type "GtkWidget*") ) (define-function gtk_color_button_new_with_color (c-name "gtk_color_button_new_with_color") (return-type "GtkWidget*") (parameters '("const-GdkColor*" "color") ) ) (define-method set_color (of-object "GtkColorButton") (c-name "gtk_color_button_set_color") (return-type "none") (parameters '("const-GdkColor*" "color") ) ) (define-method set_alpha (of-object "GtkColorButton") (c-name "gtk_color_button_set_alpha") (return-type "none") (parameters '("guint16" "alpha") ) ) (define-method get_color (of-object "GtkColorButton") (c-name "gtk_color_button_get_color") (return-type "none") (parameters '("GdkColor*" "color") ) ) (define-method get_alpha (of-object "GtkColorButton") (c-name "gtk_color_button_get_alpha") (return-type "guint16") ) (define-method set_use_alpha (of-object "GtkColorButton") (c-name "gtk_color_button_set_use_alpha") (return-type "none") (parameters '("gboolean" "use_alpha") ) ) (define-method get_use_alpha (of-object "GtkColorButton") (c-name "gtk_color_button_get_use_alpha") (return-type "gboolean") ) (define-method set_title (of-object "GtkColorButton") (c-name "gtk_color_button_set_title") (return-type "none") (parameters '("const-gchar*" "title") ) ) (define-method get_title (of-object "GtkColorButton") (c-name "gtk_color_button_get_title") (return-type "const-gchar*") ) ;; From /opt/gnome2/include/gtk-2.0/gtk/gtkcolorseldialog.h (define-function gtk_color_selection_dialog_get_type (c-name "gtk_color_selection_dialog_get_type") (return-type "GType") ) (define-function gtk_color_selection_dialog_new (c-name "gtk_color_selection_dialog_new") (is-constructor-of "GtkColorSelectionDialog") (return-type "GtkWidget*") (parameters '("const-gchar*" "title") ) ) ;; From /opt/gnome2/include/gtk-2.0/gtk/gtkcolorsel.h (define-function gtk_color_selection_get_type (c-name "gtk_color_selection_get_type") (return-type "GType") ) (define-function gtk_color_selection_new (c-name "gtk_color_selection_new") (is-constructor-of "GtkColorSelection") (return-type "GtkWidget*") ) (define-method get_has_opacity_control (of-object "GtkColorSelection") (c-name "gtk_color_selection_get_has_opacity_control") (return-type "gboolean") ) (define-method set_has_opacity_control (of-object "GtkColorSelection") (c-name "gtk_color_selection_set_has_opacity_control") (return-type "none") (parameters '("gboolean" "has_opacity") ) ) (define-method get_has_palette (of-object "GtkColorSelection") (c-name "gtk_color_selection_get_has_palette") (return-type "gboolean") ) (define-method set_has_palette (of-object "GtkColorSelection") (c-name "gtk_color_selection_set_has_palette") (return-type "none") (parameters '("gboolean" "has_palette") ) ) (define-method set_current_color (of-object "GtkColorSelection") (c-name "gtk_color_selection_set_current_color") (return-type "none") (parameters '("const-GdkColor*" "color") ) ) (define-method set_current_alpha (of-object "GtkColorSelection") (c-name "gtk_color_selection_set_current_alpha") (return-type "none") (parameters '("guint16" "alpha") ) ) (define-method get_current_color (of-object "GtkColorSelection") (c-name "gtk_color_selection_get_current_color") (return-type "none") (parameters '("GdkColor*" "color") ) ) (define-method get_current_alpha (of-object "GtkColorSelection") (c-name "gtk_color_selection_get_current_alpha") (return-type "guint16") ) (define-method set_previous_color (of-object "GtkColorSelection") (c-name "gtk_color_selection_set_previous_color") (return-type "none") (parameters '("const-GdkColor*" "color") ) ) (define-method set_previous_alpha (of-object "GtkColorSelection") (c-name "gtk_color_selection_set_previous_alpha") (return-type "none") (parameters '("guint16" "alpha") ) ) (define-method get_previous_color (of-object "GtkColorSelection") (c-name "gtk_color_selection_get_previous_color") (return-type "none") (parameters '("GdkColor*" "color") ) ) (define-method get_previous_alpha (of-object "GtkColorSelection") (c-name "gtk_color_selection_get_previous_alpha") (return-type "guint16") ) (define-method is_adjusting (of-object "GtkColorSelection") (c-name "gtk_color_selection_is_adjusting") (return-type "gboolean") ) (define-function gtk_color_selection_palette_from_string (c-name "gtk_color_selection_palette_from_string") (return-type "gboolean") (parameters '("const-gchar*" "str") '("GdkColor**" "colors") '("gint*" "n_colors") ) ) (define-function gtk_color_selection_palette_to_string (c-name "gtk_color_selection_palette_to_string") (return-type "gchar*") (parameters '("const-GdkColor*" "colors") '("gint" "n_colors") ) ) (define-function gtk_color_selection_set_change_palette_hook (c-name "gtk_color_selection_set_change_palette_hook") (return-type "GtkColorSelectionChangePaletteFunc") (parameters '("GtkColorSelectionChangePaletteFunc" "func") ) ) (define-function gtk_color_selection_set_change_palette_with_screen_hook (c-name "gtk_color_selection_set_change_palette_with_screen_hook") (return-type "GtkColorSelectionChangePaletteWithScreenFunc") (parameters '("GtkColorSelectionChangePaletteWithScreenFunc" "func") ) ) (define-method set_color (of-object "GtkColorSelection") (c-name "gtk_color_selection_set_color") (return-type "none") (parameters '("gdouble*" "color") ) ) (define-method get_color (of-object "GtkColorSelection") (c-name "gtk_color_selection_get_color") (return-type "none") (parameters '("gdouble*" "color") ) ) (define-method set_update_policy (of-object "GtkColorSelection") (c-name "gtk_color_selection_set_update_policy") (return-type "none") (parameters '("GtkUpdateType" "policy") ) ) ;; From /opt/gnome2/include/gtk-2.0/gtk/gtkcomboboxentry.h (define-function gtk_combo_box_entry_get_type (c-name "gtk_combo_box_entry_get_type") (return-type "GType") ) (define-function gtk_combo_box_entry_new (c-name "gtk_combo_box_entry_new") (is-constructor-of "GtkComboBoxEntry") (return-type "GtkWidget*") ) (define-function gtk_combo_box_entry_new_with_model (c-name "gtk_combo_box_entry_new_with_model") (return-type "GtkWidget*") (parameters '("GtkTreeModel*" "model") '("gint" "text_column") ) ) (define-method set_text_column (of-object "GtkComboBoxEntry") (c-name "gtk_combo_box_entry_set_text_column") (return-type "none") (parameters '("gint" "text_column") ) ) (define-method get_text_column (of-object "GtkComboBoxEntry") (c-name "gtk_combo_box_entry_get_text_column") (return-type "gint") ) (define-function gtk_combo_box_entry_new_text (c-name "gtk_combo_box_entry_new_text") (return-type "GtkWidget*") ) ;; From /opt/gnome2/include/gtk-2.0/gtk/gtkcombobox.h (define-function gtk_combo_box_get_type (c-name "gtk_combo_box_get_type") (return-type "GType") ) (define-function gtk_combo_box_new (c-name "gtk_combo_box_new") (is-constructor-of "GtkComboBox") (return-type "GtkWidget*") ) (define-function gtk_combo_box_new_with_model (c-name "gtk_combo_box_new_with_model") (return-type "GtkWidget*") (parameters '("GtkTreeModel*" "model") ) ) (define-method get_wrap_width (of-object "GtkComboBox") (c-name "gtk_combo_box_get_wrap_width") (return-type "gint") ) (define-method set_wrap_width (of-object "GtkComboBox") (c-name "gtk_combo_box_set_wrap_width") (return-type "none") (parameters '("gint" "width") ) ) (define-method get_row_span_column (of-object "GtkComboBox") (c-name "gtk_combo_box_get_row_span_column") (return-type "gint") ) (define-method set_row_span_column (of-object "GtkComboBox") (c-name "gtk_combo_box_set_row_span_column") (return-type "none") (parameters '("gint" "row_span") ) ) (define-method get_column_span_column (of-object "GtkComboBox") (c-name "gtk_combo_box_get_column_span_column") (return-type "gint") ) (define-method set_column_span_column (of-object "GtkComboBox") (c-name "gtk_combo_box_set_column_span_column") (return-type "none") (parameters '("gint" "column_span") ) ) (define-method get_add_tearoffs (of-object "GtkComboBox") (c-name "gtk_combo_box_get_add_tearoffs") (return-type "gboolean") ) (define-method set_add_tearoffs (of-object "GtkComboBox") (c-name "gtk_combo_box_set_add_tearoffs") (return-type "none") (parameters '("gboolean" "add_tearoffs") ) ) (define-method get_title (of-object "GtkComboBox") (c-name "gtk_combo_box_get_title") (return-type "const-gchar*") ) (define-method set_title (of-object "GtkComboBox") (c-name "gtk_combo_box_set_title") (return-type "none") (parameters '("const-gchar*" "title") ) ) (define-method get_focus_on_click (of-object "GtkComboBox") (c-name "gtk_combo_box_get_focus_on_click") (return-type "gboolean") ) (define-method set_focus_on_click (of-object "GtkComboBox") (c-name "gtk_combo_box_set_focus_on_click") (return-type "none") (parameters '("gboolean" "focus_on_click") ) ) (define-method get_active (of-object "GtkComboBox") (c-name "gtk_combo_box_get_active") (return-type "gint") ) (define-method set_active (of-object "GtkComboBox") (c-name "gtk_combo_box_set_active") (return-type "none") (parameters '("gint" "index_") ) ) (define-method get_active_iter (of-object "GtkComboBox") (c-name "gtk_combo_box_get_active_iter") (return-type "gboolean") (parameters '("GtkTreeIter*" "iter") ) ) (define-method set_active_iter (of-object "GtkComboBox") (c-name "gtk_combo_box_set_active_iter") (return-type "none") (parameters '("GtkTreeIter*" "iter") ) ) (define-method set_model (of-object "GtkComboBox") (c-name "gtk_combo_box_set_model") (return-type "none") (parameters '("GtkTreeModel*" "model") ) ) (define-method get_model (of-object "GtkComboBox") (c-name "gtk_combo_box_get_model") (return-type "GtkTreeModel*") ) (define-method get_row_separator_func (of-object "GtkComboBox") (c-name "gtk_combo_box_get_row_separator_func") (return-type "GtkTreeViewRowSeparatorFunc") ) (define-method set_row_separator_func (of-object "GtkComboBox") (c-name "gtk_combo_box_set_row_separator_func") (return-type "none") (parameters '("GtkTreeViewRowSeparatorFunc" "func") '("gpointer" "data") '("GtkDestroyNotify" "destroy") ) ) (define-function gtk_combo_box_new_text (c-name "gtk_combo_box_new_text") (return-type "GtkWidget*") ) (define-method append_text (of-object "GtkComboBox") (c-name "gtk_combo_box_append_text") (return-type "none") (parameters '("const-gchar*" "text") ) ) (define-method insert_text (of-object "GtkComboBox") (c-name "gtk_combo_box_insert_text") (return-type "none") (parameters '("gint" "position") '("const-gchar*" "text") ) ) (define-method prepend_text (of-object "GtkComboBox") (c-name "gtk_combo_box_prepend_text") (return-type "none") (parameters '("const-gchar*" "text") ) ) (define-method remove_text (of-object "GtkComboBox") (c-name "gtk_combo_box_remove_text") (return-type "none") (parameters '("gint" "position") ) ) (define-method get_active_text (of-object "GtkComboBox") (c-name "gtk_combo_box_get_active_text") (return-type "gchar*") ) (define-method popup (of-object "GtkComboBox") (c-name "gtk_combo_box_popup") (return-type "none") ) (define-method popdown (of-object "GtkComboBox") (c-name "gtk_combo_box_popdown") (return-type "none") ) (define-method get_popup_accessible (of-object "GtkComboBox") (c-name "gtk_combo_box_get_popup_accessible") (return-type "AtkObject*") ) (define-method _editing_canceled (of-object "GtkComboBox") (c-name "_gtk_combo_box_editing_canceled") (return-type "gboolean") ) ;; From /opt/gnome2/include/gtk-2.0/gtk/gtkcombo.h (define-function gtk_combo_get_type (c-name "gtk_combo_get_type") (return-type "GType") ) (define-function gtk_combo_new (c-name "gtk_combo_new") (is-constructor-of "GtkCombo") (return-type "GtkWidget*") ) (define-method set_value_in_list (of-object "GtkCombo") (c-name "gtk_combo_set_value_in_list") (return-type "none") (parameters '("gboolean" "val") '("gboolean" "ok_if_empty") ) ) (define-method set_use_arrows (of-object "GtkCombo") (c-name "gtk_combo_set_use_arrows") (return-type "none") (parameters '("gboolean" "val") ) ) (define-method set_use_arrows_always (of-object "GtkCombo") (c-name "gtk_combo_set_use_arrows_always") (return-type "none") (parameters '("gboolean" "val") ) ) (define-method set_case_sensitive (of-object "GtkCombo") (c-name "gtk_combo_set_case_sensitive") (return-type "none") (parameters '("gboolean" "val") ) ) (define-method set_item_string (of-object "GtkCombo") (c-name "gtk_combo_set_item_string") (return-type "none") (parameters '("GtkItem*" "item") '("const-gchar*" "item_value") ) ) (define-method set_popdown_strings (of-object "GtkCombo") (c-name "gtk_combo_set_popdown_strings") (return-type "none") (parameters '("GList*" "strings") ) ) (define-method disable_activate (of-object "GtkCombo") (c-name "gtk_combo_disable_activate") (return-type "none") ) ;; From /opt/gnome2/include/gtk-2.0/gtk/gtkcontainer.h (define-function gtk_container_get_type (c-name "gtk_container_get_type") (return-type "GType") ) (define-method set_border_width (of-object "GtkContainer") (c-name "gtk_container_set_border_width") (return-type "none") (parameters '("guint" "border_width") ) ) (define-method get_border_width (of-object "GtkContainer") (c-name "gtk_container_get_border_width") (return-type "guint") ) (define-method add (of-object "GtkContainer") (c-name "gtk_container_add") (return-type "none") (parameters '("GtkWidget*" "widget") ) ) (define-method remove (of-object "GtkContainer") (c-name "gtk_container_remove") (return-type "none") (parameters '("GtkWidget*" "widget") ) ) (define-method set_resize_mode (of-object "GtkContainer") (c-name "gtk_container_set_resize_mode") (return-type "none") (parameters '("GtkResizeMode" "resize_mode") ) ) (define-method get_resize_mode (of-object "GtkContainer") (c-name "gtk_container_get_resize_mode") (return-type "GtkResizeMode") ) (define-method check_resize (of-object "GtkContainer") (c-name "gtk_container_check_resize") (return-type "none") ) (define-method foreach (of-object "GtkContainer") (c-name "gtk_container_foreach") (return-type "none") (parameters '("GtkCallback" "callback") '("gpointer" "callback_data") ) ) (define-method foreach_full (of-object "GtkContainer") (c-name "gtk_container_foreach_full") (return-type "none") (parameters '("GtkCallback" "callback") '("GtkCallbackMarshal" "marshal") '("gpointer" "callback_data") '("GtkDestroyNotify" "notify") ) ) (define-method get_children (of-object "GtkContainer") (c-name "gtk_container_get_children") (return-type "GList*") ) (define-method propagate_expose (of-object "GtkContainer") (c-name "gtk_container_propagate_expose") (return-type "none") (parameters '("GtkWidget*" "child") '("GdkEventExpose*" "event") ) ) (define-method set_focus_chain (of-object "GtkContainer") (c-name "gtk_container_set_focus_chain") (return-type "none") (parameters '("GList*" "focusable_widgets") ) ) (define-method get_focus_chain (of-object "GtkContainer") (c-name "gtk_container_get_focus_chain") (return-type "gboolean") (parameters '("GList**" "focusable_widgets") ) ) (define-method unset_focus_chain (of-object "GtkContainer") (c-name "gtk_container_unset_focus_chain") (return-type "none") ) (define-method set_reallocate_redraws (of-object "GtkContainer") (c-name "gtk_container_set_reallocate_redraws") (return-type "none") (parameters '("gboolean" "needs_redraws") ) ) (define-method set_focus_child (of-object "GtkContainer") (c-name "gtk_container_set_focus_child") (return-type "none") (parameters '("GtkWidget*" "child") ) ) (define-method set_focus_vadjustment (of-object "GtkContainer") (c-name "gtk_container_set_focus_vadjustment") (return-type "none") (parameters '("GtkAdjustment*" "adjustment") ) ) (define-method get_focus_vadjustment (of-object "GtkContainer") (c-name "gtk_container_get_focus_vadjustment") (return-type "GtkAdjustment*") ) (define-method set_focus_hadjustment (of-object "GtkContainer") (c-name "gtk_container_set_focus_hadjustment") (return-type "none") (parameters '("GtkAdjustment*" "adjustment") ) ) (define-method get_focus_hadjustment (of-object "GtkContainer") (c-name "gtk_container_get_focus_hadjustment") (return-type "GtkAdjustment*") ) (define-method resize_children (of-object "GtkContainer") (c-name "gtk_container_resize_children") (return-type "none") ) (define-method child_type (of-object "GtkContainer") (c-name "gtk_container_child_type") (return-type "GType") ) (define-method install_child_property (of-object "GtkContainerClass") (c-name "gtk_container_class_install_child_property") (return-type "none") (parameters '("guint" "property_id") '("GParamSpec*" "pspec") ) ) (define-function gtk_container_class_find_child_property (c-name "gtk_container_class_find_child_property") (return-type "GParamSpec*") (parameters '("GObjectClass*" "cclass") '("const-gchar*" "property_name") ) ) (define-function gtk_container_class_list_child_properties (c-name "gtk_container_class_list_child_properties") (return-type "GParamSpec**") (parameters '("GObjectClass*" "cclass") '("guint*" "n_properties") ) ) (define-method add_with_properties (of-object "GtkContainer") (c-name "gtk_container_add_with_properties") (return-type "none") (parameters '("GtkWidget*" "widget") '("const-gchar*" "first_prop_name") ) (varargs #t) ) (define-method child_set (of-object "GtkContainer") (c-name "gtk_container_child_set") (return-type "none") (parameters '("GtkWidget*" "child") '("const-gchar*" "first_prop_name") ) (varargs #t) ) (define-method child_get (of-object "GtkContainer") (c-name "gtk_container_child_get") (return-type "none") (parameters '("GtkWidget*" "child") '("const-gchar*" "first_prop_name") ) (varargs #t) ) (define-method child_set_valist (of-object "GtkContainer") (c-name "gtk_container_child_set_valist") (return-type "none") (parameters '("GtkWidget*" "child") '("const-gchar*" "first_property_name") '("va_list" "var_args") ) ) (define-method child_get_valist (of-object "GtkContainer") (c-name "gtk_container_child_get_valist") (return-type "none") (parameters '("GtkWidget*" "child") '("const-gchar*" "first_property_name") '("va_list" "var_args") ) ) (define-method child_set_property (of-object "GtkContainer") (c-name "gtk_container_child_set_property") (return-type "none") (parameters '("GtkWidget*" "child") '("const-gchar*" "property_name") '("const-GValue*" "value") ) ) (define-method child_get_property (of-object "GtkContainer") (c-name "gtk_container_child_get_property") (return-type "none") (parameters '("GtkWidget*" "child") '("const-gchar*" "property_name") '("GValue*" "value") ) ) (define-method forall (of-object "GtkContainer") (c-name "gtk_container_forall") (return-type "none") (parameters '("GtkCallback" "callback") '("gpointer" "callback_data") ) ) (define-method _queue_resize (of-object "GtkContainer") (c-name "_gtk_container_queue_resize") (return-type "none") ) (define-method _clear_resize_widgets (of-object "GtkContainer") (c-name "_gtk_container_clear_resize_widgets") (return-type "none") ) (define-method _child_composite_name (of-object "GtkContainer") (c-name "_gtk_container_child_composite_name") (return-type "gchar*") (parameters '("GtkWidget*" "child") ) ) (define-method _dequeue_resize_handler (of-object "GtkContainer") (c-name "_gtk_container_dequeue_resize_handler") (return-type "none") ) (define-method _focus_sort (of-object "GtkContainer") (c-name "_gtk_container_focus_sort") (return-type "GList*") (parameters '("GList*" "children") '("GtkDirectionType" "direction") '("GtkWidget*" "old_focus") ) ) ;; From /opt/gnome2/include/gtk-2.0/gtk/gtkctree.h (define-function gtk_ctree_get_type (c-name "gtk_ctree_get_type") (return-type "GtkType") ) (define-function gtk_ctree_new_with_titles (c-name "gtk_ctree_new_with_titles") (return-type "GtkWidget*") (parameters '("gint" "columns") '("gint" "tree_column") '("gchar*[]" "titles") ) ) (define-function gtk_ctree_new (c-name "gtk_ctree_new") (is-constructor-of "GtkCtree") (return-type "GtkWidget*") (parameters '("gint" "columns") '("gint" "tree_column") ) ) (define-method insert_node (of-object "GtkCTree") (c-name "gtk_ctree_insert_node") (return-type "GtkCTreeNode*") (parameters '("GtkCTreeNode*" "parent") '("GtkCTreeNode*" "sibling") '("gchar*[]" "text") '("guint8" "spacing") '("GdkPixmap*" "pixmap_closed") '("GdkBitmap*" "mask_closed") '("GdkPixmap*" "pixmap_opened") '("GdkBitmap*" "mask_opened") '("gboolean" "is_leaf") '("gboolean" "expanded") ) ) (define-method remove_node (of-object "GtkCTree") (c-name "gtk_ctree_remove_node") (return-type "none") (parameters '("GtkCTreeNode*" "node") ) ) (define-method insert_gnode (of-object "GtkCTree") (c-name "gtk_ctree_insert_gnode") (return-type "GtkCTreeNode*") (parameters '("GtkCTreeNode*" "parent") '("GtkCTreeNode*" "sibling") '("GNode*" "gnode") '("GtkCTreeGNodeFunc" "func") '("gpointer" "data") ) ) (define-method export_to_gnode (of-object "GtkCTree") (c-name "gtk_ctree_export_to_gnode") (return-type "GNode*") (parameters '("GNode*" "parent") '("GNode*" "sibling") '("GtkCTreeNode*" "node") '("GtkCTreeGNodeFunc" "func") '("gpointer" "data") ) ) (define-method post_recursive (of-object "GtkCTree") (c-name "gtk_ctree_post_recursive") (return-type "none") (parameters '("GtkCTreeNode*" "node") '("GtkCTreeFunc" "func") '("gpointer" "data") ) ) (define-method post_recursive_to_depth (of-object "GtkCTree") (c-name "gtk_ctree_post_recursive_to_depth") (return-type "none") (parameters '("GtkCTreeNode*" "node") '("gint" "depth") '("GtkCTreeFunc" "func") '("gpointer" "data") ) ) (define-method pre_recursive (of-object "GtkCTree") (c-name "gtk_ctree_pre_recursive") (return-type "none") (parameters '("GtkCTreeNode*" "node") '("GtkCTreeFunc" "func") '("gpointer" "data") ) ) (define-method pre_recursive_to_depth (of-object "GtkCTree") (c-name "gtk_ctree_pre_recursive_to_depth") (return-type "none") (parameters '("GtkCTreeNode*" "node") '("gint" "depth") '("GtkCTreeFunc" "func") '("gpointer" "data") ) ) (define-method is_viewable (of-object "GtkCTree") (c-name "gtk_ctree_is_viewable") (return-type "gboolean") (parameters '("GtkCTreeNode*" "node") ) ) (define-method last (of-object "GtkCTree") (c-name "gtk_ctree_last") (return-type "GtkCTreeNode*") (parameters '("GtkCTreeNode*" "node") ) ) (define-method find_node_ptr (of-object "GtkCTree") (c-name "gtk_ctree_find_node_ptr") (return-type "GtkCTreeNode*") (parameters '("GtkCTreeRow*" "ctree_row") ) ) (define-method node_nth (of-object "GtkCTree") (c-name "gtk_ctree_node_nth") (return-type "GtkCTreeNode*") (parameters '("guint" "row") ) ) (define-method find (of-object "GtkCTree") (c-name "gtk_ctree_find") (return-type "gboolean") (parameters '("GtkCTreeNode*" "node") '("GtkCTreeNode*" "child") ) ) (define-method is_ancestor (of-object "GtkCTree") (c-name "gtk_ctree_is_ancestor") (return-type "gboolean") (parameters '("GtkCTreeNode*" "node") '("GtkCTreeNode*" "child") ) ) (define-method find_by_row_data (of-object "GtkCTree") (c-name "gtk_ctree_find_by_row_data") (return-type "GtkCTreeNode*") (parameters '("GtkCTreeNode*" "node") '("gpointer" "data") ) ) (define-method find_all_by_row_data (of-object "GtkCTree") (c-name "gtk_ctree_find_all_by_row_data") (return-type "GList*") (parameters '("GtkCTreeNode*" "node") '("gpointer" "data") ) ) (define-method find_by_row_data_custom (of-object "GtkCTree") (c-name "gtk_ctree_find_by_row_data_custom") (return-type "GtkCTreeNode*") (parameters '("GtkCTreeNode*" "node") '("gpointer" "data") '("GCompareFunc" "func") ) ) (define-method find_all_by_row_data_custom (of-object "GtkCTree") (c-name "gtk_ctree_find_all_by_row_data_custom") (return-type "GList*") (parameters '("GtkCTreeNode*" "node") '("gpointer" "data") '("GCompareFunc" "func") ) ) (define-method is_hot_spot (of-object "GtkCTree") (c-name "gtk_ctree_is_hot_spot") (return-type "gboolean") (parameters '("gint" "x") '("gint" "y") ) ) (define-method move (of-object "GtkCTree") (c-name "gtk_ctree_move") (return-type "none") (parameters '("GtkCTreeNode*" "node") '("GtkCTreeNode*" "new_parent") '("GtkCTreeNode*" "new_sibling") ) ) (define-method expand (of-object "GtkCTree") (c-name "gtk_ctree_expand") (return-type "none") (parameters '("GtkCTreeNode*" "node") ) ) (define-method expand_recursive (of-object "GtkCTree") (c-name "gtk_ctree_expand_recursive") (return-type "none") (parameters '("GtkCTreeNode*" "node") ) ) (define-method expand_to_depth (of-object "GtkCTree") (c-name "gtk_ctree_expand_to_depth") (return-type "none") (parameters '("GtkCTreeNode*" "node") '("gint" "depth") ) ) (define-method collapse (of-object "GtkCTree") (c-name "gtk_ctree_collapse") (return-type "none") (parameters '("GtkCTreeNode*" "node") ) ) (define-method collapse_recursive (of-object "GtkCTree") (c-name "gtk_ctree_collapse_recursive") (return-type "none") (parameters '("GtkCTreeNode*" "node") ) ) (define-method collapse_to_depth (of-object "GtkCTree") (c-name "gtk_ctree_collapse_to_depth") (return-type "none") (parameters '("GtkCTreeNode*" "node") '("gint" "depth") ) ) (define-method toggle_expansion (of-object "GtkCTree") (c-name "gtk_ctree_toggle_expansion") (return-type "none") (parameters '("GtkCTreeNode*" "node") ) ) (define-method toggle_expansion_recursive (of-object "GtkCTree") (c-name "gtk_ctree_toggle_expansion_recursive") (return-type "none") (parameters '("GtkCTreeNode*" "node") ) ) (define-method select (of-object "GtkCTree") (c-name "gtk_ctree_select") (return-type "none") (parameters '("GtkCTreeNode*" "node") ) ) (define-method select_recursive (of-object "GtkCTree") (c-name "gtk_ctree_select_recursive") (return-type "none") (parameters '("GtkCTreeNode*" "node") ) ) (define-method unselect (of-object "GtkCTree") (c-name "gtk_ctree_unselect") (return-type "none") (parameters '("GtkCTreeNode*" "node") ) ) (define-method unselect_recursive (of-object "GtkCTree") (c-name "gtk_ctree_unselect_recursive") (return-type "none") (parameters '("GtkCTreeNode*" "node") ) ) (define-method real_select_recursive (of-object "GtkCTree") (c-name "gtk_ctree_real_select_recursive") (return-type "none") (parameters '("GtkCTreeNode*" "node") '("gint" "state") ) ) (define-method node_set_text (of-object "GtkCTree") (c-name "gtk_ctree_node_set_text") (return-type "none") (parameters '("GtkCTreeNode*" "node") '("gint" "column") '("const-gchar*" "text") ) ) (define-method node_set_pixmap (of-object "GtkCTree") (c-name "gtk_ctree_node_set_pixmap") (return-type "none") (parameters '("GtkCTreeNode*" "node") '("gint" "column") '("GdkPixmap*" "pixmap") '("GdkBitmap*" "mask") ) ) (define-method node_set_pixtext (of-object "GtkCTree") (c-name "gtk_ctree_node_set_pixtext") (return-type "none") (parameters '("GtkCTreeNode*" "node") '("gint" "column") '("const-gchar*" "text") '("guint8" "spacing") '("GdkPixmap*" "pixmap") '("GdkBitmap*" "mask") ) ) (define-method set_node_info (of-object "GtkCTree") (c-name "gtk_ctree_set_node_info") (return-type "none") (parameters '("GtkCTreeNode*" "node") '("const-gchar*" "text") '("guint8" "spacing") '("GdkPixmap*" "pixmap_closed") '("GdkBitmap*" "mask_closed") '("GdkPixmap*" "pixmap_opened") '("GdkBitmap*" "mask_opened") '("gboolean" "is_leaf") '("gboolean" "expanded") ) ) (define-method node_set_shift (of-object "GtkCTree") (c-name "gtk_ctree_node_set_shift") (return-type "none") (parameters '("GtkCTreeNode*" "node") '("gint" "column") '("gint" "vertical") '("gint" "horizontal") ) ) (define-method node_set_selectable (of-object "GtkCTree") (c-name "gtk_ctree_node_set_selectable") (return-type "none") (parameters '("GtkCTreeNode*" "node") '("gboolean" "selectable") ) ) (define-method node_get_selectable (of-object "GtkCTree") (c-name "gtk_ctree_node_get_selectable") (return-type "gboolean") (parameters '("GtkCTreeNode*" "node") ) ) (define-method node_get_cell_type (of-object "GtkCTree") (c-name "gtk_ctree_node_get_cell_type") (return-type "GtkCellType") (parameters '("GtkCTreeNode*" "node") '("gint" "column") ) ) (define-method node_get_text (of-object "GtkCTree") (c-name "gtk_ctree_node_get_text") (return-type "gboolean") (parameters '("GtkCTreeNode*" "node") '("gint" "column") '("gchar**" "text") ) ) (define-method node_get_pixmap (of-object "GtkCTree") (c-name "gtk_ctree_node_get_pixmap") (return-type "gboolean") (parameters '("GtkCTreeNode*" "node") '("gint" "column") '("GdkPixmap**" "pixmap") '("GdkBitmap**" "mask") ) ) (define-method node_get_pixtext (of-object "GtkCTree") (c-name "gtk_ctree_node_get_pixtext") (return-type "gboolean") (parameters '("GtkCTreeNode*" "node") '("gint" "column") '("gchar**" "text") '("guint8*" "spacing") '("GdkPixmap**" "pixmap") '("GdkBitmap**" "mask") ) ) (define-method get_node_info (of-object "GtkCTree") (c-name "gtk_ctree_get_node_info") (return-type "gboolean") (parameters '("GtkCTreeNode*" "node") '("gchar**" "text") '("guint8*" "spacing") '("GdkPixmap**" "pixmap_closed") '("GdkBitmap**" "mask_closed") '("GdkPixmap**" "pixmap_opened") '("GdkBitmap**" "mask_opened") '("gboolean*" "is_leaf") '("gboolean*" "expanded") ) ) (define-method node_set_row_style (of-object "GtkCTree") (c-name "gtk_ctree_node_set_row_style") (return-type "none") (parameters '("GtkCTreeNode*" "node") '("GtkStyle*" "style") ) ) (define-method node_get_row_style (of-object "GtkCTree") (c-name "gtk_ctree_node_get_row_style") (return-type "GtkStyle*") (parameters '("GtkCTreeNode*" "node") ) ) (define-method node_set_cell_style (of-object "GtkCTree") (c-name "gtk_ctree_node_set_cell_style") (return-type "none") (parameters '("GtkCTreeNode*" "node") '("gint" "column") '("GtkStyle*" "style") ) ) (define-method node_get_cell_style (of-object "GtkCTree") (c-name "gtk_ctree_node_get_cell_style") (return-type "GtkStyle*") (parameters '("GtkCTreeNode*" "node") '("gint" "column") ) ) (define-method node_set_foreground (of-object "GtkCTree") (c-name "gtk_ctree_node_set_foreground") (return-type "none") (parameters '("GtkCTreeNode*" "node") '("const-GdkColor*" "color") ) ) (define-method node_set_background (of-object "GtkCTree") (c-name "gtk_ctree_node_set_background") (return-type "none") (parameters '("GtkCTreeNode*" "node") '("const-GdkColor*" "color") ) ) (define-method node_set_row_data (of-object "GtkCTree") (c-name "gtk_ctree_node_set_row_data") (return-type "none") (parameters '("GtkCTreeNode*" "node") '("gpointer" "data") ) ) (define-method node_set_row_data_full (of-object "GtkCTree") (c-name "gtk_ctree_node_set_row_data_full") (return-type "none") (parameters '("GtkCTreeNode*" "node") '("gpointer" "data") '("GtkDestroyNotify" "destroy") ) ) (define-method node_get_row_data (of-object "GtkCTree") (c-name "gtk_ctree_node_get_row_data") (return-type "gpointer") (parameters '("GtkCTreeNode*" "node") ) ) (define-method node_moveto (of-object "GtkCTree") (c-name "gtk_ctree_node_moveto") (return-type "none") (parameters '("GtkCTreeNode*" "node") '("gint" "column") '("gfloat" "row_align") '("gfloat" "col_align") ) ) (define-method node_is_visible (of-object "GtkCTree") (c-name "gtk_ctree_node_is_visible") (return-type "GtkVisibility") (parameters '("GtkCTreeNode*" "node") ) ) (define-method set_indent (of-object "GtkCTree") (c-name "gtk_ctree_set_indent") (return-type "none") (parameters '("gint" "indent") ) ) (define-method set_spacing (of-object "GtkCTree") (c-name "gtk_ctree_set_spacing") (return-type "none") (parameters '("gint" "spacing") ) ) (define-method set_show_stub (of-object "GtkCTree") (c-name "gtk_ctree_set_show_stub") (return-type "none") (parameters '("gboolean" "show_stub") ) ) (define-method set_line_style (of-object "GtkCTree") (c-name "gtk_ctree_set_line_style") (return-type "none") (parameters '("GtkCTreeLineStyle" "line_style") ) ) (define-method set_expander_style (of-object "GtkCTree") (c-name "gtk_ctree_set_expander_style") (return-type "none") (parameters '("GtkCTreeExpanderStyle" "expander_style") ) ) (define-method set_drag_compare_func (of-object "GtkCTree") (c-name "gtk_ctree_set_drag_compare_func") (return-type "none") (parameters '("GtkCTreeCompareDragFunc" "cmp_func") ) ) (define-method sort_node (of-object "GtkCTree") (c-name "gtk_ctree_sort_node") (return-type "none") (parameters '("GtkCTreeNode*" "node") ) ) (define-method sort_recursive (of-object "GtkCTree") (c-name "gtk_ctree_sort_recursive") (return-type "none") (parameters '("GtkCTreeNode*" "node") ) ) (define-function gtk_ctree_node_get_type (c-name "gtk_ctree_node_get_type") (return-type "GType") ) ;; From /opt/gnome2/include/gtk-2.0/gtk/gtkcurve.h (define-function gtk_curve_get_type (c-name "gtk_curve_get_type") (return-type "GType") ) (define-function gtk_curve_new (c-name "gtk_curve_new") (is-constructor-of "GtkCurve") (return-type "GtkWidget*") ) (define-method reset (of-object "GtkCurve") (c-name "gtk_curve_reset") (return-type "none") ) (define-method set_gamma (of-object "GtkCurve") (c-name "gtk_curve_set_gamma") (return-type "none") (parameters '("gfloat" "gamma_") ) ) (define-method set_range (of-object "GtkCurve") (c-name "gtk_curve_set_range") (return-type "none") (parameters '("gfloat" "min_x") '("gfloat" "max_x") '("gfloat" "min_y") '("gfloat" "max_y") ) ) (define-method get_vector (of-object "GtkCurve") (c-name "gtk_curve_get_vector") (return-type "none") (parameters '("int" "veclen") '("gfloat[]" "vector") ) ) (define-method set_vector (of-object "GtkCurve") (c-name "gtk_curve_set_vector") (return-type "none") (parameters '("int" "veclen") '("gfloat[]" "vector") ) ) (define-method set_curve_type (of-object "GtkCurve") (c-name "gtk_curve_set_curve_type") (return-type "none") (parameters '("GtkCurveType" "type") ) ) ;; From /opt/gnome2/include/gtk-2.0/gtk/gtkdebug.h ;; From /opt/gnome2/include/gtk-2.0/gtk/gtkdialog.h (define-function gtk_dialog_get_type (c-name "gtk_dialog_get_type") (return-type "GType") ) (define-function gtk_dialog_new (c-name "gtk_dialog_new") (is-constructor-of "GtkDialog") (return-type "GtkWidget*") ) (define-function gtk_dialog_new_with_buttons (c-name "gtk_dialog_new_with_buttons") (return-type "GtkWidget*") (parameters '("const-gchar*" "title") '("GtkWindow*" "parent") '("GtkDialogFlags" "flags") '("const-gchar*" "first_button_text") ) (varargs #t) ) (define-method add_action_widget (of-object "GtkDialog") (c-name "gtk_dialog_add_action_widget") (return-type "none") (parameters '("GtkWidget*" "child") '("gint" "response_id") ) ) (define-method add_button (of-object "GtkDialog") (c-name "gtk_dialog_add_button") (return-type "GtkWidget*") (parameters '("const-gchar*" "button_text") '("gint" "response_id") ) ) (define-method add_buttons (of-object "GtkDialog") (c-name "gtk_dialog_add_buttons") (return-type "none") (parameters '("const-gchar*" "first_button_text") ) (varargs #t) ) (define-method set_response_sensitive (of-object "GtkDialog") (c-name "gtk_dialog_set_response_sensitive") (return-type "none") (parameters '("gint" "response_id") '("gboolean" "setting") ) ) (define-method set_default_response (of-object "GtkDialog") (c-name "gtk_dialog_set_default_response") (return-type "none") (parameters '("gint" "response_id") ) ) (define-method get_response_for_widget (of-object "GtkDialog") (c-name "gtk_dialog_get_response_for_widget") (return-type "gint") (parameters '("GtkWidget*" "widget") ) ) (define-method set_has_separator (of-object "GtkDialog") (c-name "gtk_dialog_set_has_separator") (return-type "none") (parameters '("gboolean" "setting") ) ) (define-method get_has_separator (of-object "GtkDialog") (c-name "gtk_dialog_get_has_separator") (return-type "gboolean") ) (define-function gtk_alternative_dialog_button_order (c-name "gtk_alternative_dialog_button_order") (return-type "gboolean") (parameters '("GdkScreen*" "screen") ) ) (define-method set_alternative_button_order (of-object "GtkDialog") (c-name "gtk_dialog_set_alternative_button_order") (return-type "none") (parameters '("gint" "first_response_id") ) (varargs #t) ) (define-method set_alternative_button_order_from_array (of-object "GtkDialog") (c-name "gtk_dialog_set_alternative_button_order_from_array") (return-type "none") (parameters '("gint" "n_params") '("gint*" "new_order") ) ) (define-method response (of-object "GtkDialog") (c-name "gtk_dialog_response") (return-type "none") (parameters '("gint" "response_id") ) ) (define-method run (of-object "GtkDialog") (c-name "gtk_dialog_run") (return-type "gint") ) (define-method _set_ignore_separator (of-object "GtkDialog") (c-name "_gtk_dialog_set_ignore_separator") (return-type "none") (parameters '("gboolean" "ignore_separator") ) ) ;; From /opt/gnome2/include/gtk-2.0/gtk/gtkdnd.h (define-function gtk_drag_get_data (c-name "gtk_drag_get_data") (return-type "none") (parameters '("GtkWidget*" "widget") '("GdkDragContext*" "context") '("GdkAtom" "target") '("guint32" "time_") ) ) (define-function gtk_drag_finish (c-name "gtk_drag_finish") (return-type "none") (parameters '("GdkDragContext*" "context") '("gboolean" "success") '("gboolean" "del") '("guint32" "time_") ) ) (define-function gtk_drag_get_source_widget (c-name "gtk_drag_get_source_widget") (return-type "GtkWidget*") (parameters '("GdkDragContext*" "context") ) ) (define-function gtk_drag_highlight (c-name "gtk_drag_highlight") (return-type "none") (parameters '("GtkWidget*" "widget") ) ) (define-function gtk_drag_unhighlight (c-name "gtk_drag_unhighlight") (return-type "none") (parameters '("GtkWidget*" "widget") ) ) (define-function gtk_drag_dest_set (c-name "gtk_drag_dest_set") (return-type "none") (parameters '("GtkWidget*" "widget") '("GtkDestDefaults" "flags") '("const-GtkTargetEntry*" "targets") '("gint" "n_targets") '("GdkDragAction" "actions") ) ) (define-function gtk_drag_dest_set_proxy (c-name "gtk_drag_dest_set_proxy") (return-type "none") (parameters '("GtkWidget*" "widget") '("GdkWindow*" "proxy_window") '("GdkDragProtocol" "protocol") '("gboolean" "use_coordinates") ) ) (define-function gtk_drag_dest_unset (c-name "gtk_drag_dest_unset") (return-type "none") (parameters '("GtkWidget*" "widget") ) ) (define-function gtk_drag_dest_find_target (c-name "gtk_drag_dest_find_target") (return-type "GdkAtom") (parameters '("GtkWidget*" "widget") '("GdkDragContext*" "context") '("GtkTargetList*" "target_list") ) ) (define-function gtk_drag_dest_get_target_list (c-name "gtk_drag_dest_get_target_list") (return-type "GtkTargetList*") (parameters '("GtkWidget*" "widget") ) ) (define-function gtk_drag_dest_set_target_list (c-name "gtk_drag_dest_set_target_list") (return-type "none") (parameters '("GtkWidget*" "widget") '("GtkTargetList*" "target_list") ) ) (define-function gtk_drag_dest_add_text_targets (c-name "gtk_drag_dest_add_text_targets") (return-type "none") (parameters '("GtkWidget*" "widget") ) ) (define-function gtk_drag_dest_add_image_targets (c-name "gtk_drag_dest_add_image_targets") (return-type "none") (parameters '("GtkWidget*" "widget") ) ) (define-function gtk_drag_dest_add_uri_targets (c-name "gtk_drag_dest_add_uri_targets") (return-type "none") (parameters '("GtkWidget*" "widget") ) ) (define-function gtk_drag_dest_set_track_motion (c-name "gtk_drag_dest_set_track_motion") (return-type "none") (parameters '("GtkWidget*" "widget") '("gboolean" "track_motion") ) ) (define-function gtk_drag_dest_get_track_motion (c-name "gtk_drag_dest_get_track_motion") (return-type "gboolean") (parameters '("GtkWidget*" "widget") ) ) (define-function gtk_drag_source_set (c-name "gtk_drag_source_set") (return-type "none") (parameters '("GtkWidget*" "widget") '("GdkModifierType" "start_button_mask") '("const-GtkTargetEntry*" "targets") '("gint" "n_targets") '("GdkDragAction" "actions") ) ) (define-function gtk_drag_source_unset (c-name "gtk_drag_source_unset") (return-type "none") (parameters '("GtkWidget*" "widget") ) ) (define-function gtk_drag_source_get_target_list (c-name "gtk_drag_source_get_target_list") (return-type "GtkTargetList*") (parameters '("GtkWidget*" "widget") ) ) (define-function gtk_drag_source_set_target_list (c-name "gtk_drag_source_set_target_list") (return-type "none") (parameters '("GtkWidget*" "widget") '("GtkTargetList*" "target_list") ) ) (define-function gtk_drag_source_add_text_targets (c-name "gtk_drag_source_add_text_targets") (return-type "none") (parameters '("GtkWidget*" "widget") ) ) (define-function gtk_drag_source_add_image_targets (c-name "gtk_drag_source_add_image_targets") (return-type "none") (parameters '("GtkWidget*" "widget") ) ) (define-function gtk_drag_source_add_uri_targets (c-name "gtk_drag_source_add_uri_targets") (return-type "none") (parameters '("GtkWidget*" "widget") ) ) (define-function gtk_drag_source_set_icon (c-name "gtk_drag_source_set_icon") (return-type "none") (parameters '("GtkWidget*" "widget") '("GdkColormap*" "colormap") '("GdkPixmap*" "pixmap") '("GdkBitmap*" "mask") ) ) (define-function gtk_drag_source_set_icon_pixbuf (c-name "gtk_drag_source_set_icon_pixbuf") (return-type "none") (parameters '("GtkWidget*" "widget") '("GdkPixbuf*" "pixbuf") ) ) (define-function gtk_drag_source_set_icon_stock (c-name "gtk_drag_source_set_icon_stock") (return-type "none") (parameters '("GtkWidget*" "widget") '("const-gchar*" "stock_id") ) ) (define-function gtk_drag_source_set_icon_name (c-name "gtk_drag_source_set_icon_name") (return-type "none") (parameters '("GtkWidget*" "widget") '("const-gchar*" "icon_name") ) ) (define-function gtk_drag_begin (c-name "gtk_drag_begin") (return-type "GdkDragContext*") (parameters '("GtkWidget*" "widget") '("GtkTargetList*" "targets") '("GdkDragAction" "actions") '("gint" "button") '("GdkEvent*" "event") ) ) (define-function gtk_drag_set_icon_widget (c-name "gtk_drag_set_icon_widget") (return-type "none") (parameters '("GdkDragContext*" "context") '("GtkWidget*" "widget") '("gint" "hot_x") '("gint" "hot_y") ) ) (define-function gtk_drag_set_icon_pixmap (c-name "gtk_drag_set_icon_pixmap") (return-type "none") (parameters '("GdkDragContext*" "context") '("GdkColormap*" "colormap") '("GdkPixmap*" "pixmap") '("GdkBitmap*" "mask") '("gint" "hot_x") '("gint" "hot_y") ) ) (define-function gtk_drag_set_icon_pixbuf (c-name "gtk_drag_set_icon_pixbuf") (return-type "none") (parameters '("GdkDragContext*" "context") '("GdkPixbuf*" "pixbuf") '("gint" "hot_x") '("gint" "hot_y") ) ) (define-function gtk_drag_set_icon_stock (c-name "gtk_drag_set_icon_stock") (return-type "none") (parameters '("GdkDragContext*" "context") '("const-gchar*" "stock_id") '("gint" "hot_x") '("gint" "hot_y") ) ) (define-function gtk_drag_set_icon_name (c-name "gtk_drag_set_icon_name") (return-type "none") (parameters '("GdkDragContext*" "context") '("const-gchar*" "icon_name") '("gint" "hot_x") '("gint" "hot_y") ) ) (define-function gtk_drag_set_icon_default (c-name "gtk_drag_set_icon_default") (return-type "none") (parameters '("GdkDragContext*" "context") ) ) (define-function gtk_drag_check_threshold (c-name "gtk_drag_check_threshold") (return-type "gboolean") (parameters '("GtkWidget*" "widget") '("gint" "start_x") '("gint" "start_y") '("gint" "current_x") '("gint" "current_y") ) ) (define-function _gtk_drag_source_handle_event (c-name "_gtk_drag_source_handle_event") (return-type "none") (parameters '("GtkWidget*" "widget") '("GdkEvent*" "event") ) ) (define-function _gtk_drag_dest_handle_event (c-name "_gtk_drag_dest_handle_event") (return-type "none") (parameters '("GtkWidget*" "toplevel") '("GdkEvent*" "event") ) ) (define-function gtk_drag_set_default_icon (c-name "gtk_drag_set_default_icon") (return-type "none") (parameters '("GdkColormap*" "colormap") '("GdkPixmap*" "pixmap") '("GdkBitmap*" "mask") '("gint" "hot_x") '("gint" "hot_y") ) ) ;; From /opt/gnome2/include/gtk-2.0/gtk/gtkdrawingarea.h (define-function gtk_drawing_area_get_type (c-name "gtk_drawing_area_get_type") (return-type "GType") ) (define-function gtk_drawing_area_new (c-name "gtk_drawing_area_new") (is-constructor-of "GtkDrawingArea") (return-type "GtkWidget*") ) (define-method size (of-object "GtkDrawingArea") (c-name "gtk_drawing_area_size") (return-type "none") (parameters '("gint" "width") '("gint" "height") ) ) ;; From /opt/gnome2/include/gtk-2.0/gtk/gtkeditable.h (define-function gtk_editable_get_type (c-name "gtk_editable_get_type") (return-type "GType") ) (define-method select_region (of-object "GtkEditable") (c-name "gtk_editable_select_region") (return-type "none") (parameters '("gint" "start") '("gint" "end") ) ) (define-method get_selection_bounds (of-object "GtkEditable") (c-name "gtk_editable_get_selection_bounds") (return-type "gboolean") (parameters '("gint*" "start") '("gint*" "end") ) ) (define-method insert_text (of-object "GtkEditable") (c-name "gtk_editable_insert_text") (return-type "none") (parameters '("const-gchar*" "new_text") '("gint" "new_text_length") '("gint*" "position") ) ) (define-method delete_text (of-object "GtkEditable") (c-name "gtk_editable_delete_text") (return-type "none") (parameters '("gint" "start_pos") '("gint" "end_pos") ) ) (define-method get_chars (of-object "GtkEditable") (c-name "gtk_editable_get_chars") (return-type "gchar*") (parameters '("gint" "start_pos") '("gint" "end_pos") ) ) (define-method cut_clipboard (of-object "GtkEditable") (c-name "gtk_editable_cut_clipboard") (return-type "none") ) (define-method copy_clipboard (of-object "GtkEditable") (c-name "gtk_editable_copy_clipboard") (return-type "none") ) (define-method paste_clipboard (of-object "GtkEditable") (c-name "gtk_editable_paste_clipboard") (return-type "none") ) (define-method delete_selection (of-object "GtkEditable") (c-name "gtk_editable_delete_selection") (return-type "none") ) (define-method set_position (of-object "GtkEditable") (c-name "gtk_editable_set_position") (return-type "none") (parameters '("gint" "position") ) ) (define-method get_position (of-object "GtkEditable") (c-name "gtk_editable_get_position") (return-type "gint") ) (define-method set_editable (of-object "GtkEditable") (c-name "gtk_editable_set_editable") (return-type "none") (parameters '("gboolean" "is_editable") ) ) (define-method get_editable (of-object "GtkEditable") (c-name "gtk_editable_get_editable") (return-type "gboolean") ) ;; From /opt/gnome2/include/gtk-2.0/gtk/gtkentrycompletion.h (define-function gtk_entry_completion_get_type (c-name "gtk_entry_completion_get_type") (return-type "GType") ) (define-function gtk_entry_completion_new (c-name "gtk_entry_completion_new") (is-constructor-of "GtkEntryCompletion") (return-type "GtkEntryCompletion*") ) (define-method get_entry (of-object "GtkEntryCompletion") (c-name "gtk_entry_completion_get_entry") (return-type "GtkWidget*") ) (define-method set_model (of-object "GtkEntryCompletion") (c-name "gtk_entry_completion_set_model") (return-type "none") (parameters '("GtkTreeModel*" "model") ) ) (define-method get_model (of-object "GtkEntryCompletion") (c-name "gtk_entry_completion_get_model") (return-type "GtkTreeModel*") ) (define-method set_match_func (of-object "GtkEntryCompletion") (c-name "gtk_entry_completion_set_match_func") (return-type "none") (parameters '("GtkEntryCompletionMatchFunc" "func") '("gpointer" "func_data") '("GDestroyNotify" "func_notify") ) ) (define-method set_minimum_key_length (of-object "GtkEntryCompletion") (c-name "gtk_entry_completion_set_minimum_key_length") (return-type "none") (parameters '("gint" "length") ) ) (define-method get_minimum_key_length (of-object "GtkEntryCompletion") (c-name "gtk_entry_completion_get_minimum_key_length") (return-type "gint") ) (define-method complete (of-object "GtkEntryCompletion") (c-name "gtk_entry_completion_complete") (return-type "none") ) (define-method insert_prefix (of-object "GtkEntryCompletion") (c-name "gtk_entry_completion_insert_prefix") (return-type "none") ) (define-method insert_action_text (of-object "GtkEntryCompletion") (c-name "gtk_entry_completion_insert_action_text") (return-type "none") (parameters '("gint" "index_") '("const-gchar*" "text") ) ) (define-method insert_action_markup (of-object "GtkEntryCompletion") (c-name "gtk_entry_completion_insert_action_markup") (return-type "none") (parameters '("gint" "index_") '("const-gchar*" "markup") ) ) (define-method delete_action (of-object "GtkEntryCompletion") (c-name "gtk_entry_completion_delete_action") (return-type "none") (parameters '("gint" "index_") ) ) (define-method set_inline_completion (of-object "GtkEntryCompletion") (c-name "gtk_entry_completion_set_inline_completion") (return-type "none") (parameters '("gboolean" "inline_completion") ) ) (define-method get_inline_completion (of-object "GtkEntryCompletion") (c-name "gtk_entry_completion_get_inline_completion") (return-type "gboolean") ) (define-method set_popup_completion (of-object "GtkEntryCompletion") (c-name "gtk_entry_completion_set_popup_completion") (return-type "none") (parameters '("gboolean" "popup_completion") ) ) (define-method get_popup_completion (of-object "GtkEntryCompletion") (c-name "gtk_entry_completion_get_popup_completion") (return-type "gboolean") ) (define-method set_popup_set_width (of-object "GtkEntryCompletion") (c-name "gtk_entry_completion_set_popup_set_width") (return-type "none") (parameters '("gboolean" "popup_set_width") ) ) (define-method get_popup_set_width (of-object "GtkEntryCompletion") (c-name "gtk_entry_completion_get_popup_set_width") (return-type "gboolean") ) (define-method set_popup_single_match (of-object "GtkEntryCompletion") (c-name "gtk_entry_completion_set_popup_single_match") (return-type "none") (parameters '("gboolean" "popup_single_match") ) ) (define-method get_popup_single_match (of-object "GtkEntryCompletion") (c-name "gtk_entry_completion_get_popup_single_match") (return-type "gboolean") ) (define-method set_text_column (of-object "GtkEntryCompletion") (c-name "gtk_entry_completion_set_text_column") (return-type "none") (parameters '("gint" "column") ) ) (define-method get_text_column (of-object "GtkEntryCompletion") (c-name "gtk_entry_completion_get_text_column") (return-type "gint") ) ;; From /opt/gnome2/include/gtk-2.0/gtk/gtkentry.h (define-function gtk_entry_get_type (c-name "gtk_entry_get_type") (return-type "GType") ) (define-function gtk_entry_new (c-name "gtk_entry_new") (is-constructor-of "GtkEntry") (return-type "GtkWidget*") ) (define-method set_visibility (of-object "GtkEntry") (c-name "gtk_entry_set_visibility") (return-type "none") (parameters '("gboolean" "visible") ) ) (define-method get_visibility (of-object "GtkEntry") (c-name "gtk_entry_get_visibility") (return-type "gboolean") ) (define-method set_invisible_char (of-object "GtkEntry") (c-name "gtk_entry_set_invisible_char") (return-type "none") (parameters '("gunichar" "ch") ) ) (define-method get_invisible_char (of-object "GtkEntry") (c-name "gtk_entry_get_invisible_char") (return-type "gunichar") ) (define-method set_has_frame (of-object "GtkEntry") (c-name "gtk_entry_set_has_frame") (return-type "none") (parameters '("gboolean" "setting") ) ) (define-method get_has_frame (of-object "GtkEntry") (c-name "gtk_entry_get_has_frame") (return-type "gboolean") ) (define-method set_inner_border (of-object "GtkEntry") (c-name "gtk_entry_set_inner_border") (return-type "none") (parameters '("const-GtkBorder*" "border") ) ) (define-method get_inner_border (of-object "GtkEntry") (c-name "gtk_entry_get_inner_border") (return-type "const-GtkBorder*") ) (define-method set_max_length (of-object "GtkEntry") (c-name "gtk_entry_set_max_length") (return-type "none") (parameters '("gint" "max") ) ) (define-method get_max_length (of-object "GtkEntry") (c-name "gtk_entry_get_max_length") (return-type "gint") ) (define-method set_activates_default (of-object "GtkEntry") (c-name "gtk_entry_set_activates_default") (return-type "none") (parameters '("gboolean" "setting") ) ) (define-method get_activates_default (of-object "GtkEntry") (c-name "gtk_entry_get_activates_default") (return-type "gboolean") ) (define-method set_width_chars (of-object "GtkEntry") (c-name "gtk_entry_set_width_chars") (return-type "none") (parameters '("gint" "n_chars") ) ) (define-method get_width_chars (of-object "GtkEntry") (c-name "gtk_entry_get_width_chars") (return-type "gint") ) (define-method set_text (of-object "GtkEntry") (c-name "gtk_entry_set_text") (return-type "none") (parameters '("const-gchar*" "text") ) ) (define-method get_text (of-object "GtkEntry") (c-name "gtk_entry_get_text") (return-type "const-gchar*") ) (define-method get_layout (of-object "GtkEntry") (c-name "gtk_entry_get_layout") (return-type "PangoLayout*") ) (define-method get_layout_offsets (of-object "GtkEntry") (c-name "gtk_entry_get_layout_offsets") (return-type "none") (parameters '("gint*" "x") '("gint*" "y") ) ) (define-method set_alignment (of-object "GtkEntry") (c-name "gtk_entry_set_alignment") (return-type "none") (parameters '("gfloat" "xalign") ) ) (define-method get_alignment (of-object "GtkEntry") (c-name "gtk_entry_get_alignment") (return-type "gfloat") ) (define-method set_completion (of-object "GtkEntry") (c-name "gtk_entry_set_completion") (return-type "none") (parameters '("GtkEntryCompletion*" "completion") ) ) (define-method get_completion (of-object "GtkEntry") (c-name "gtk_entry_get_completion") (return-type "GtkEntryCompletion*") ) (define-method layout_index_to_text_index (of-object "GtkEntry") (c-name "gtk_entry_layout_index_to_text_index") (return-type "gint") (parameters '("gint" "layout_index") ) ) (define-method text_index_to_layout_index (of-object "GtkEntry") (c-name "gtk_entry_text_index_to_layout_index") (return-type "gint") (parameters '("gint" "text_index") ) ) (define-function gtk_entry_new_with_max_length (c-name "gtk_entry_new_with_max_length") (return-type "GtkWidget*") (parameters '("gint" "max") ) ) (define-method append_text (of-object "GtkEntry") (c-name "gtk_entry_append_text") (return-type "none") (parameters '("const-gchar*" "text") ) ) (define-method prepend_text (of-object "GtkEntry") (c-name "gtk_entry_prepend_text") (return-type "none") (parameters '("const-gchar*" "text") ) ) (define-method set_position (of-object "GtkEntry") (c-name "gtk_entry_set_position") (return-type "none") (parameters '("gint" "position") ) ) (define-method select_region (of-object "GtkEntry") (c-name "gtk_entry_select_region") (return-type "none") (parameters '("gint" "start") '("gint" "end") ) ) (define-method set_editable (of-object "GtkEntry") (c-name "gtk_entry_set_editable") (return-type "none") (parameters '("gboolean" "editable") ) ) ;; From /opt/gnome2/include/gtk-2.0/gtk/gtkenums.h ;; From /opt/gnome2/include/gtk-2.0/gtk/gtkeventbox.h (define-function gtk_event_box_get_type (c-name "gtk_event_box_get_type") (return-type "GType") ) (define-function gtk_event_box_new (c-name "gtk_event_box_new") (is-constructor-of "GtkEventBox") (return-type "GtkWidget*") ) (define-method get_visible_window (of-object "GtkEventBox") (c-name "gtk_event_box_get_visible_window") (return-type "gboolean") ) (define-method set_visible_window (of-object "GtkEventBox") (c-name "gtk_event_box_set_visible_window") (return-type "none") (parameters '("gboolean" "visible_window") ) ) (define-method get_above_child (of-object "GtkEventBox") (c-name "gtk_event_box_get_above_child") (return-type "gboolean") ) (define-method set_above_child (of-object "GtkEventBox") (c-name "gtk_event_box_set_above_child") (return-type "none") (parameters '("gboolean" "above_child") ) ) ;; From /opt/gnome2/include/gtk-2.0/gtk/gtkexpander.h (define-function gtk_expander_get_type (c-name "gtk_expander_get_type") (return-type "GType") ) (define-function gtk_expander_new (c-name "gtk_expander_new") (is-constructor-of "GtkExpander") (return-type "GtkWidget*") (parameters '("const-gchar*" "label") ) ) (define-function gtk_expander_new_with_mnemonic (c-name "gtk_expander_new_with_mnemonic") (return-type "GtkWidget*") (parameters '("const-gchar*" "label") ) ) (define-method set_expanded (of-object "GtkExpander") (c-name "gtk_expander_set_expanded") (return-type "none") (parameters '("gboolean" "expanded") ) ) (define-method get_expanded (of-object "GtkExpander") (c-name "gtk_expander_get_expanded") (return-type "gboolean") ) (define-method set_spacing (of-object "GtkExpander") (c-name "gtk_expander_set_spacing") (return-type "none") (parameters '("gint" "spacing") ) ) (define-method get_spacing (of-object "GtkExpander") (c-name "gtk_expander_get_spacing") (return-type "gint") ) (define-method set_label (of-object "GtkExpander") (c-name "gtk_expander_set_label") (return-type "none") (parameters '("const-gchar*" "label") ) ) (define-method get_label (of-object "GtkExpander") (c-name "gtk_expander_get_label") (return-type "const-gchar*") ) (define-method set_use_underline (of-object "GtkExpander") (c-name "gtk_expander_set_use_underline") (return-type "none") (parameters '("gboolean" "use_underline") ) ) (define-method get_use_underline (of-object "GtkExpander") (c-name "gtk_expander_get_use_underline") (return-type "gboolean") ) (define-method set_use_markup (of-object "GtkExpander") (c-name "gtk_expander_set_use_markup") (return-type "none") (parameters '("gboolean" "use_markup") ) ) (define-method get_use_markup (of-object "GtkExpander") (c-name "gtk_expander_get_use_markup") (return-type "gboolean") ) (define-method set_label_widget (of-object "GtkExpander") (c-name "gtk_expander_set_label_widget") (return-type "none") (parameters '("GtkWidget*" "label_widget") ) ) (define-method get_label_widget (of-object "GtkExpander") (c-name "gtk_expander_get_label_widget") (return-type "GtkWidget*") ) ;; From /opt/gnome2/include/gtk-2.0/gtk/gtkfilechooserbutton.h (define-function gtk_file_chooser_button_get_type (c-name "gtk_file_chooser_button_get_type") (return-type "GType") ) (define-function gtk_file_chooser_button_new (c-name "gtk_file_chooser_button_new") (is-constructor-of "GtkFileChooserButton") (return-type "GtkWidget*") (parameters '("const-gchar*" "title") '("GtkFileChooserAction" "action") ) ) (define-function gtk_file_chooser_button_new_with_backend (c-name "gtk_file_chooser_button_new_with_backend") (return-type "GtkWidget*") (parameters '("const-gchar*" "title") '("GtkFileChooserAction" "action") '("const-gchar*" "backend") ) ) (define-function gtk_file_chooser_button_new_with_dialog (c-name "gtk_file_chooser_button_new_with_dialog") (return-type "GtkWidget*") (parameters '("GtkWidget*" "dialog") ) ) (define-method get_title (of-object "GtkFileChooserButton") (c-name "gtk_file_chooser_button_get_title") (return-type "const-gchar*") ) (define-method set_title (of-object "GtkFileChooserButton") (c-name "gtk_file_chooser_button_set_title") (return-type "none") (parameters '("const-gchar*" "title") ) ) (define-method get_width_chars (of-object "GtkFileChooserButton") (c-name "gtk_file_chooser_button_get_width_chars") (return-type "gint") ) (define-method set_width_chars (of-object "GtkFileChooserButton") (c-name "gtk_file_chooser_button_set_width_chars") (return-type "none") (parameters '("gint" "n_chars") ) ) (define-method get_focus_on_click (of-object "GtkFileChooserButton") (c-name "gtk_file_chooser_button_get_focus_on_click") (return-type "gboolean") ) (define-method set_focus_on_click (of-object "GtkFileChooserButton") (c-name "gtk_file_chooser_button_set_focus_on_click") (return-type "none") (parameters '("gboolean" "focus_on_click") ) ) ;; From /opt/gnome2/include/gtk-2.0/gtk/gtkfilechooserdialog.h (define-function gtk_file_chooser_dialog_get_type (c-name "gtk_file_chooser_dialog_get_type") (return-type "GType") ) (define-function gtk_file_chooser_dialog_new (c-name "gtk_file_chooser_dialog_new") (is-constructor-of "GtkFileChooserDialog") (return-type "GtkWidget*") (parameters '("const-gchar*" "title") '("GtkWindow*" "parent") '("GtkFileChooserAction" "action") '("const-gchar*" "first_button_text") ) (varargs #t) ) (define-function gtk_file_chooser_dialog_new_with_backend (c-name "gtk_file_chooser_dialog_new_with_backend") (return-type "GtkWidget*") (parameters '("const-gchar*" "title") '("GtkWindow*" "parent") '("GtkFileChooserAction" "action") '("const-gchar*" "backend") '("const-gchar*" "first_button_text") ) (varargs #t) ) ;; From /opt/gnome2/include/gtk-2.0/gtk/gtkfilechooser.h (define-function gtk_file_chooser_get_type (c-name "gtk_file_chooser_get_type") (return-type "GType") ) (define-function gtk_file_chooser_error_quark (c-name "gtk_file_chooser_error_quark") (return-type "GQuark") ) (define-method set_action (of-object "GtkFileChooser") (c-name "gtk_file_chooser_set_action") (return-type "none") (parameters '("GtkFileChooserAction" "action") ) ) (define-method get_action (of-object "GtkFileChooser") (c-name "gtk_file_chooser_get_action") (return-type "GtkFileChooserAction") ) (define-method set_local_only (of-object "GtkFileChooser") (c-name "gtk_file_chooser_set_local_only") (return-type "none") (parameters '("gboolean" "local_only") ) ) (define-method get_local_only (of-object "GtkFileChooser") (c-name "gtk_file_chooser_get_local_only") (return-type "gboolean") ) (define-method set_select_multiple (of-object "GtkFileChooser") (c-name "gtk_file_chooser_set_select_multiple") (return-type "none") (parameters '("gboolean" "select_multiple") ) ) (define-method get_select_multiple (of-object "GtkFileChooser") (c-name "gtk_file_chooser_get_select_multiple") (return-type "gboolean") ) (define-method set_show_hidden (of-object "GtkFileChooser") (c-name "gtk_file_chooser_set_show_hidden") (return-type "none") (parameters '("gboolean" "show_hidden") ) ) (define-method get_show_hidden (of-object "GtkFileChooser") (c-name "gtk_file_chooser_get_show_hidden") (return-type "gboolean") ) (define-method set_do_overwrite_confirmation (of-object "GtkFileChooser") (c-name "gtk_file_chooser_set_do_overwrite_confirmation") (return-type "none") (parameters '("gboolean" "do_overwrite_confirmation") ) ) (define-method get_do_overwrite_confirmation (of-object "GtkFileChooser") (c-name "gtk_file_chooser_get_do_overwrite_confirmation") (return-type "gboolean") ) (define-method set_current_name (of-object "GtkFileChooser") (c-name "gtk_file_chooser_set_current_name") (return-type "none") (parameters '("const-gchar*" "name") ) ) (define-method get_filename (of-object "GtkFileChooser") (c-name "gtk_file_chooser_get_filename") (return-type "gchar*") ) (define-method set_filename (of-object "GtkFileChooser") (c-name "gtk_file_chooser_set_filename") (return-type "gboolean") (parameters '("const-char*" "filename") ) ) (define-method select_filename (of-object "GtkFileChooser") (c-name "gtk_file_chooser_select_filename") (return-type "gboolean") (parameters '("const-char*" "filename") ) ) (define-method unselect_filename (of-object "GtkFileChooser") (c-name "gtk_file_chooser_unselect_filename") (return-type "none") (parameters '("const-char*" "filename") ) ) (define-method select_all (of-object "GtkFileChooser") (c-name "gtk_file_chooser_select_all") (return-type "none") ) (define-method unselect_all (of-object "GtkFileChooser") (c-name "gtk_file_chooser_unselect_all") (return-type "none") ) (define-method get_filenames (of-object "GtkFileChooser") (c-name "gtk_file_chooser_get_filenames") (return-type "GSList*") ) (define-method set_current_folder (of-object "GtkFileChooser") (c-name "gtk_file_chooser_set_current_folder") (return-type "gboolean") (parameters '("const-gchar*" "filename") ) ) (define-method get_current_folder (of-object "GtkFileChooser") (c-name "gtk_file_chooser_get_current_folder") (return-type "gchar*") ) (define-method get_uri (of-object "GtkFileChooser") (c-name "gtk_file_chooser_get_uri") (return-type "gchar*") ) (define-method set_uri (of-object "GtkFileChooser") (c-name "gtk_file_chooser_set_uri") (return-type "gboolean") (parameters '("const-char*" "uri") ) ) (define-method select_uri (of-object "GtkFileChooser") (c-name "gtk_file_chooser_select_uri") (return-type "gboolean") (parameters '("const-char*" "uri") ) ) (define-method unselect_uri (of-object "GtkFileChooser") (c-name "gtk_file_chooser_unselect_uri") (return-type "none") (parameters '("const-char*" "uri") ) ) (define-method get_uris (of-object "GtkFileChooser") (c-name "gtk_file_chooser_get_uris") (return-type "GSList*") ) (define-method set_current_folder_uri (of-object "GtkFileChooser") (c-name "gtk_file_chooser_set_current_folder_uri") (return-type "gboolean") (parameters '("const-gchar*" "uri") ) ) (define-method get_current_folder_uri (of-object "GtkFileChooser") (c-name "gtk_file_chooser_get_current_folder_uri") (return-type "gchar*") ) (define-method set_preview_widget (of-object "GtkFileChooser") (c-name "gtk_file_chooser_set_preview_widget") (return-type "none") (parameters '("GtkWidget*" "preview_widget") ) ) (define-method get_preview_widget (of-object "GtkFileChooser") (c-name "gtk_file_chooser_get_preview_widget") (return-type "GtkWidget*") ) (define-method set_preview_widget_active (of-object "GtkFileChooser") (c-name "gtk_file_chooser_set_preview_widget_active") (return-type "none") (parameters '("gboolean" "active") ) ) (define-method get_preview_widget_active (of-object "GtkFileChooser") (c-name "gtk_file_chooser_get_preview_widget_active") (return-type "gboolean") ) (define-method set_use_preview_label (of-object "GtkFileChooser") (c-name "gtk_file_chooser_set_use_preview_label") (return-type "none") (parameters '("gboolean" "use_label") ) ) (define-method get_use_preview_label (of-object "GtkFileChooser") (c-name "gtk_file_chooser_get_use_preview_label") (return-type "gboolean") ) (define-method get_preview_filename (of-object "GtkFileChooser") (c-name "gtk_file_chooser_get_preview_filename") (return-type "char*") ) (define-method get_preview_uri (of-object "GtkFileChooser") (c-name "gtk_file_chooser_get_preview_uri") (return-type "char*") ) (define-method set_extra_widget (of-object "GtkFileChooser") (c-name "gtk_file_chooser_set_extra_widget") (return-type "none") (parameters '("GtkWidget*" "extra_widget") ) ) (define-method get_extra_widget (of-object "GtkFileChooser") (c-name "gtk_file_chooser_get_extra_widget") (return-type "GtkWidget*") ) (define-method add_filter (of-object "GtkFileChooser") (c-name "gtk_file_chooser_add_filter") (return-type "none") (parameters '("GtkFileFilter*" "filter") ) ) (define-method remove_filter (of-object "GtkFileChooser") (c-name "gtk_file_chooser_remove_filter") (return-type "none") (parameters '("GtkFileFilter*" "filter") ) ) (define-method list_filters (of-object "GtkFileChooser") (c-name "gtk_file_chooser_list_filters") (return-type "GSList*") ) (define-method set_filter (of-object "GtkFileChooser") (c-name "gtk_file_chooser_set_filter") (return-type "none") (parameters '("GtkFileFilter*" "filter") ) ) (define-method get_filter (of-object "GtkFileChooser") (c-name "gtk_file_chooser_get_filter") (return-type "GtkFileFilter*") ) (define-method add_shortcut_folder (of-object "GtkFileChooser") (c-name "gtk_file_chooser_add_shortcut_folder") (return-type "gboolean") (parameters '("const-char*" "folder") '("GError**" "error") ) ) (define-method remove_shortcut_folder (of-object "GtkFileChooser") (c-name "gtk_file_chooser_remove_shortcut_folder") (return-type "gboolean") (parameters '("const-char*" "folder") '("GError**" "error") ) ) (define-method list_shortcut_folders (of-object "GtkFileChooser") (c-name "gtk_file_chooser_list_shortcut_folders") (return-type "GSList*") ) (define-method add_shortcut_folder_uri (of-object "GtkFileChooser") (c-name "gtk_file_chooser_add_shortcut_folder_uri") (return-type "gboolean") (parameters '("const-char*" "uri") '("GError**" "error") ) ) (define-method remove_shortcut_folder_uri (of-object "GtkFileChooser") (c-name "gtk_file_chooser_remove_shortcut_folder_uri") (return-type "gboolean") (parameters '("const-char*" "uri") '("GError**" "error") ) ) (define-method list_shortcut_folder_uris (of-object "GtkFileChooser") (c-name "gtk_file_chooser_list_shortcut_folder_uris") (return-type "GSList*") ) ;; From /opt/gnome2/include/gtk-2.0/gtk/gtkfilechooserwidget.h (define-function gtk_file_chooser_widget_get_type (c-name "gtk_file_chooser_widget_get_type") (return-type "GType") ) (define-function gtk_file_chooser_widget_new (c-name "gtk_file_chooser_widget_new") (is-constructor-of "GtkFileChooserWidget") (return-type "GtkWidget*") (parameters '("GtkFileChooserAction" "action") ) ) (define-function gtk_file_chooser_widget_new_with_backend (c-name "gtk_file_chooser_widget_new_with_backend") (return-type "GtkWidget*") (parameters '("GtkFileChooserAction" "action") '("const-gchar*" "backend") ) ) ;; From /opt/gnome2/include/gtk-2.0/gtk/gtkfilefilter.h (define-function gtk_file_filter_get_type (c-name "gtk_file_filter_get_type") (return-type "GType") ) (define-function gtk_file_filter_new (c-name "gtk_file_filter_new") (is-constructor-of "GtkFileFilter") (return-type "GtkFileFilter*") ) (define-method set_name (of-object "GtkFileFilter") (c-name "gtk_file_filter_set_name") (return-type "none") (parameters '("const-gchar*" "name") ) ) (define-method get_name (of-object "GtkFileFilter") (c-name "gtk_file_filter_get_name") (return-type "const-gchar*") ) (define-method add_mime_type (of-object "GtkFileFilter") (c-name "gtk_file_filter_add_mime_type") (return-type "none") (parameters '("const-gchar*" "mime_type") ) ) (define-method add_pattern (of-object "GtkFileFilter") (c-name "gtk_file_filter_add_pattern") (return-type "none") (parameters '("const-gchar*" "pattern") ) ) (define-method add_pixbuf_formats (of-object "GtkFileFilter") (c-name "gtk_file_filter_add_pixbuf_formats") (return-type "none") ) (define-method add_custom (of-object "GtkFileFilter") (c-name "gtk_file_filter_add_custom") (return-type "none") (parameters '("GtkFileFilterFlags" "needed") '("GtkFileFilterFunc" "func") '("gpointer" "data") '("GDestroyNotify" "notify") ) ) (define-method get_needed (of-object "GtkFileFilter") (c-name "gtk_file_filter_get_needed") (return-type "GtkFileFilterFlags") ) (define-method filter (of-object "GtkFileFilter") (c-name "gtk_file_filter_filter") (return-type "gboolean") (parameters '("const-GtkFileFilterInfo*" "filter_info") ) ) ;; From /opt/gnome2/include/gtk-2.0/gtk/gtkfilesel.h (define-function gtk_file_selection_get_type (c-name "gtk_file_selection_get_type") (return-type "GType") ) (define-function gtk_file_selection_new (c-name "gtk_file_selection_new") (is-constructor-of "GtkFileSelection") (return-type "GtkWidget*") (parameters '("const-gchar*" "title") ) ) (define-method set_filename (of-object "GtkFileSelection") (c-name "gtk_file_selection_set_filename") (return-type "none") (parameters '("const-gchar*" "filename") ) ) (define-method get_filename (of-object "GtkFileSelection") (c-name "gtk_file_selection_get_filename") (return-type "const-gchar*") ) (define-method complete (of-object "GtkFileSelection") (c-name "gtk_file_selection_complete") (return-type "none") (parameters '("const-gchar*" "pattern") ) ) (define-method show_fileop_buttons (of-object "GtkFileSelection") (c-name "gtk_file_selection_show_fileop_buttons") (return-type "none") ) (define-method hide_fileop_buttons (of-object "GtkFileSelection") (c-name "gtk_file_selection_hide_fileop_buttons") (return-type "none") ) (define-method get_selections (of-object "GtkFileSelection") (c-name "gtk_file_selection_get_selections") (return-type "gchar**") ) (define-method set_select_multiple (of-object "GtkFileSelection") (c-name "gtk_file_selection_set_select_multiple") (return-type "none") (parameters '("gboolean" "select_multiple") ) ) (define-method get_select_multiple (of-object "GtkFileSelection") (c-name "gtk_file_selection_get_select_multiple") (return-type "gboolean") ) ;; From /opt/gnome2/include/gtk-2.0/gtk/gtkfixed.h (define-function gtk_fixed_get_type (c-name "gtk_fixed_get_type") (return-type "GType") ) (define-function gtk_fixed_new (c-name "gtk_fixed_new") (is-constructor-of "GtkFixed") (return-type "GtkWidget*") ) (define-method put (of-object "GtkFixed") (c-name "gtk_fixed_put") (return-type "none") (parameters '("GtkWidget*" "widget") '("gint" "x") '("gint" "y") ) ) (define-method move (of-object "GtkFixed") (c-name "gtk_fixed_move") (return-type "none") (parameters '("GtkWidget*" "widget") '("gint" "x") '("gint" "y") ) ) (define-method set_has_window (of-object "GtkFixed") (c-name "gtk_fixed_set_has_window") (return-type "none") (parameters '("gboolean" "has_window") ) ) (define-method get_has_window (of-object "GtkFixed") (c-name "gtk_fixed_get_has_window") (return-type "gboolean") ) ;; From /opt/gnome2/include/gtk-2.0/gtk/gtkfontbutton.h (define-function gtk_font_button_get_type (c-name "gtk_font_button_get_type") (return-type "GType") ) (define-function gtk_font_button_new (c-name "gtk_font_button_new") (is-constructor-of "GtkFontButton") (return-type "GtkWidget*") ) (define-function gtk_font_button_new_with_font (c-name "gtk_font_button_new_with_font") (return-type "GtkWidget*") (parameters '("const-gchar*" "fontname") ) ) (define-method get_title (of-object "GtkFontButton") (c-name "gtk_font_button_get_title") (return-type "const-gchar*") ) (define-method set_title (of-object "GtkFontButton") (c-name "gtk_font_button_set_title") (return-type "none") (parameters '("const-gchar*" "title") ) ) (define-method get_use_font (of-object "GtkFontButton") (c-name "gtk_font_button_get_use_font") (return-type "gboolean") ) (define-method set_use_font (of-object "GtkFontButton") (c-name "gtk_font_button_set_use_font") (return-type "none") (parameters '("gboolean" "use_font") ) ) (define-method get_use_size (of-object "GtkFontButton") (c-name "gtk_font_button_get_use_size") (return-type "gboolean") ) (define-method set_use_size (of-object "GtkFontButton") (c-name "gtk_font_button_set_use_size") (return-type "none") (parameters '("gboolean" "use_size") ) ) (define-method get_font_name (of-object "GtkFontButton") (c-name "gtk_font_button_get_font_name") (return-type "const-gchar*") ) (define-method set_font_name (of-object "GtkFontButton") (c-name "gtk_font_button_set_font_name") (return-type "gboolean") (parameters '("const-gchar*" "fontname") ) ) (define-method get_show_style (of-object "GtkFontButton") (c-name "gtk_font_button_get_show_style") (return-type "gboolean") ) (define-method set_show_style (of-object "GtkFontButton") (c-name "gtk_font_button_set_show_style") (return-type "none") (parameters '("gboolean" "show_style") ) ) (define-method get_show_size (of-object "GtkFontButton") (c-name "gtk_font_button_get_show_size") (return-type "gboolean") ) (define-method set_show_size (of-object "GtkFontButton") (c-name "gtk_font_button_set_show_size") (return-type "none") (parameters '("gboolean" "show_size") ) ) ;; From /opt/gnome2/include/gtk-2.0/gtk/gtkfontsel.h (define-function gtk_font_selection_get_type (c-name "gtk_font_selection_get_type") (return-type "GType") ) (define-function gtk_font_selection_new (c-name "gtk_font_selection_new") (is-constructor-of "GtkFontSelection") (return-type "GtkWidget*") ) (define-method get_font_name (of-object "GtkFontSelection") (c-name "gtk_font_selection_get_font_name") (return-type "gchar*") ) (define-method get_font (of-object "GtkFontSelection") (c-name "gtk_font_selection_get_font") (return-type "GdkFont*") ) (define-method set_font_name (of-object "GtkFontSelection") (c-name "gtk_font_selection_set_font_name") (return-type "gboolean") (parameters '("const-gchar*" "fontname") ) ) (define-method get_preview_text (of-object "GtkFontSelection") (c-name "gtk_font_selection_get_preview_text") (return-type "const-gchar*") ) (define-method set_preview_text (of-object "GtkFontSelection") (c-name "gtk_font_selection_set_preview_text") (return-type "none") (parameters '("const-gchar*" "text") ) ) (define-function gtk_font_selection_dialog_get_type (c-name "gtk_font_selection_dialog_get_type") (return-type "GType") ) (define-function gtk_font_selection_dialog_new (c-name "gtk_font_selection_dialog_new") (is-constructor-of "GtkFontSelectionDialog") (return-type "GtkWidget*") (parameters '("const-gchar*" "title") ) ) (define-method get_font_name (of-object "GtkFontSelectionDialog") (c-name "gtk_font_selection_dialog_get_font_name") (return-type "gchar*") ) (define-method get_font (of-object "GtkFontSelectionDialog") (c-name "gtk_font_selection_dialog_get_font") (return-type "GdkFont*") ) (define-method set_font_name (of-object "GtkFontSelectionDialog") (c-name "gtk_font_selection_dialog_set_font_name") (return-type "gboolean") (parameters '("const-gchar*" "fontname") ) ) (define-method get_preview_text (of-object "GtkFontSelectionDialog") (c-name "gtk_font_selection_dialog_get_preview_text") (return-type "const-gchar*") ) (define-method set_preview_text (of-object "GtkFontSelectionDialog") (c-name "gtk_font_selection_dialog_set_preview_text") (return-type "none") (parameters '("const-gchar*" "text") ) ) ;; From /opt/gnome2/include/gtk-2.0/gtk/gtkframe.h (define-function gtk_frame_get_type (c-name "gtk_frame_get_type") (return-type "GType") ) (define-function gtk_frame_new (c-name "gtk_frame_new") (is-constructor-of "GtkFrame") (return-type "GtkWidget*") (parameters '("const-gchar*" "label") ) ) (define-method set_label (of-object "GtkFrame") (c-name "gtk_frame_set_label") (return-type "none") (parameters '("const-gchar*" "label") ) ) (define-method get_label (of-object "GtkFrame") (c-name "gtk_frame_get_label") (return-type "const-gchar*") ) (define-method set_label_widget (of-object "GtkFrame") (c-name "gtk_frame_set_label_widget") (return-type "none") (parameters '("GtkWidget*" "label_widget") ) ) (define-method get_label_widget (of-object "GtkFrame") (c-name "gtk_frame_get_label_widget") (return-type "GtkWidget*") ) (define-method set_label_align (of-object "GtkFrame") (c-name "gtk_frame_set_label_align") (return-type "none") (parameters '("gfloat" "xalign") '("gfloat" "yalign") ) ) (define-method get_label_align (of-object "GtkFrame") (c-name "gtk_frame_get_label_align") (return-type "none") (parameters '("gfloat*" "xalign") '("gfloat*" "yalign") ) ) (define-method set_shadow_type (of-object "GtkFrame") (c-name "gtk_frame_set_shadow_type") (return-type "none") (parameters '("GtkShadowType" "type") ) ) (define-method get_shadow_type (of-object "GtkFrame") (c-name "gtk_frame_get_shadow_type") (return-type "GtkShadowType") ) ;; From /opt/gnome2/include/gtk-2.0/gtk/gtkgamma.h (define-function gtk_gamma_curve_get_type (c-name "gtk_gamma_curve_get_type") (return-type "GType") ) (define-function gtk_gamma_curve_new (c-name "gtk_gamma_curve_new") (is-constructor-of "GtkGammaCurve") (return-type "GtkWidget*") ) ;; From /opt/gnome2/include/gtk-2.0/gtk/gtkgc.h (define-function gtk_gc_get (c-name "gtk_gc_get") (return-type "GdkGC*") (parameters '("gint" "depth") '("GdkColormap*" "colormap") '("GdkGCValues*" "values") '("GdkGCValuesMask" "values_mask") ) ) (define-function gtk_gc_release (c-name "gtk_gc_release") (return-type "none") (parameters '("GdkGC*" "gc") ) ) ;; From /opt/gnome2/include/gtk-2.0/gtk/gtk.h ;; From /opt/gnome2/include/gtk-2.0/gtk/gtkhandlebox.h (define-function gtk_handle_box_get_type (c-name "gtk_handle_box_get_type") (return-type "GType") ) (define-function gtk_handle_box_new (c-name "gtk_handle_box_new") (is-constructor-of "GtkHandleBox") (return-type "GtkWidget*") ) (define-method set_shadow_type (of-object "GtkHandleBox") (c-name "gtk_handle_box_set_shadow_type") (return-type "none") (parameters '("GtkShadowType" "type") ) ) (define-method get_shadow_type (of-object "GtkHandleBox") (c-name "gtk_handle_box_get_shadow_type") (return-type "GtkShadowType") ) (define-method set_handle_position (of-object "GtkHandleBox") (c-name "gtk_handle_box_set_handle_position") (return-type "none") (parameters '("GtkPositionType" "position") ) ) (define-method get_handle_position (of-object "GtkHandleBox") (c-name "gtk_handle_box_get_handle_position") (return-type "GtkPositionType") ) (define-method set_snap_edge (of-object "GtkHandleBox") (c-name "gtk_handle_box_set_snap_edge") (return-type "none") (parameters '("GtkPositionType" "edge") ) ) (define-method get_snap_edge (of-object "GtkHandleBox") (c-name "gtk_handle_box_get_snap_edge") (return-type "GtkPositionType") ) ;; From /opt/gnome2/include/gtk-2.0/gtk/gtkhbbox.h (define-function gtk_hbutton_box_get_type (c-name "gtk_hbutton_box_get_type") (return-type "GType") ) (define-function gtk_hbutton_box_new (c-name "gtk_hbutton_box_new") (is-constructor-of "GtkHbuttonBox") (return-type "GtkWidget*") ) (define-function gtk_hbutton_box_get_spacing_default (c-name "gtk_hbutton_box_get_spacing_default") (return-type "gint") ) (define-function gtk_hbutton_box_get_layout_default (c-name "gtk_hbutton_box_get_layout_default") (return-type "GtkButtonBoxStyle") ) (define-function gtk_hbutton_box_set_spacing_default (c-name "gtk_hbutton_box_set_spacing_default") (return-type "none") (parameters '("gint" "spacing") ) ) (define-function gtk_hbutton_box_set_layout_default (c-name "gtk_hbutton_box_set_layout_default") (return-type "none") (parameters '("GtkButtonBoxStyle" "layout") ) ) ;; From /opt/gnome2/include/gtk-2.0/gtk/gtkhbox.h (define-function gtk_hbox_get_type (c-name "gtk_hbox_get_type") (return-type "GType") ) (define-function gtk_hbox_new (c-name "gtk_hbox_new") (is-constructor-of "GtkHbox") (return-type "GtkWidget*") (parameters '("gboolean" "homogeneous") '("gint" "spacing") ) ) ;; From /opt/gnome2/include/gtk-2.0/gtk/gtkhpaned.h (define-function gtk_hpaned_get_type (c-name "gtk_hpaned_get_type") (return-type "GType") ) (define-function gtk_hpaned_new (c-name "gtk_hpaned_new") (is-constructor-of "GtkHpaned") (return-type "GtkWidget*") ) ;; From /opt/gnome2/include/gtk-2.0/gtk/gtkhruler.h (define-function gtk_hruler_get_type (c-name "gtk_hruler_get_type") (return-type "GType") ) (define-function gtk_hruler_new (c-name "gtk_hruler_new") (is-constructor-of "GtkHruler") (return-type "GtkWidget*") ) ;; From /opt/gnome2/include/gtk-2.0/gtk/gtkhscale.h (define-function gtk_hscale_get_type (c-name "gtk_hscale_get_type") (return-type "GType") ) (define-function gtk_hscale_new (c-name "gtk_hscale_new") (is-constructor-of "GtkHscale") (return-type "GtkWidget*") (parameters '("GtkAdjustment*" "adjustment") ) ) (define-function gtk_hscale_new_with_range (c-name "gtk_hscale_new_with_range") (return-type "GtkWidget*") (parameters '("gdouble" "min") '("gdouble" "max") '("gdouble" "step") ) ) ;; From /opt/gnome2/include/gtk-2.0/gtk/gtkhscrollbar.h (define-function gtk_hscrollbar_get_type (c-name "gtk_hscrollbar_get_type") (return-type "GType") ) (define-function gtk_hscrollbar_new (c-name "gtk_hscrollbar_new") (is-constructor-of "GtkHscrollbar") (return-type "GtkWidget*") (parameters '("GtkAdjustment*" "adjustment") ) ) ;; From /opt/gnome2/include/gtk-2.0/gtk/gtkhseparator.h (define-function gtk_hseparator_get_type (c-name "gtk_hseparator_get_type") (return-type "GType") ) (define-function gtk_hseparator_new (c-name "gtk_hseparator_new") (is-constructor-of "GtkHseparator") (return-type "GtkWidget*") ) ;; From /opt/gnome2/include/gtk-2.0/gtk/gtkiconfactory.h (define-function gtk_icon_factory_get_type (c-name "gtk_icon_factory_get_type") (return-type "GType") ) (define-function gtk_icon_factory_new (c-name "gtk_icon_factory_new") (is-constructor-of "GtkIconFactory") (return-type "GtkIconFactory*") ) (define-method add (of-object "GtkIconFactory") (c-name "gtk_icon_factory_add") (return-type "none") (parameters '("const-gchar*" "stock_id") '("GtkIconSet*" "icon_set") ) ) (define-method lookup (of-object "GtkIconFactory") (c-name "gtk_icon_factory_lookup") (return-type "GtkIconSet*") (parameters '("const-gchar*" "stock_id") ) ) (define-method add_default (of-object "GtkIconFactory") (c-name "gtk_icon_factory_add_default") (return-type "none") ) (define-method remove_default (of-object "GtkIconFactory") (c-name "gtk_icon_factory_remove_default") (return-type "none") ) (define-function gtk_icon_factory_lookup_default (c-name "gtk_icon_factory_lookup_default") (return-type "GtkIconSet*") (parameters '("const-gchar*" "stock_id") ) ) (define-function gtk_icon_size_lookup (c-name "gtk_icon_size_lookup") (return-type "gboolean") (parameters '("GtkIconSize" "size") '("gint*" "width") '("gint*" "height") ) ) (define-function gtk_icon_size_lookup_for_settings (c-name "gtk_icon_size_lookup_for_settings") (return-type "gboolean") (parameters '("GtkSettings*" "settings") '("GtkIconSize" "size") '("gint*" "width") '("gint*" "height") ) ) (define-function gtk_icon_size_register (c-name "gtk_icon_size_register") (return-type "GtkIconSize") (parameters '("const-gchar*" "name") '("gint" "width") '("gint" "height") ) ) (define-function gtk_icon_size_register_alias (c-name "gtk_icon_size_register_alias") (return-type "none") (parameters '("const-gchar*" "alias") '("GtkIconSize" "target") ) ) (define-function gtk_icon_size_from_name (c-name "gtk_icon_size_from_name") (return-type "GtkIconSize") (parameters '("const-gchar*" "name") ) ) (define-function gtk_icon_size_get_name (c-name "gtk_icon_size_get_name") (return-type "const-gchar*") (parameters '("GtkIconSize" "size") ) ) (define-function gtk_icon_set_get_type (c-name "gtk_icon_set_get_type") (return-type "GType") ) (define-function gtk_icon_set_new (c-name "gtk_icon_set_new") (is-constructor-of "GtkIconSet") (return-type "GtkIconSet*") ) (define-function gtk_icon_set_new_from_pixbuf (c-name "gtk_icon_set_new_from_pixbuf") (return-type "GtkIconSet*") (parameters '("GdkPixbuf*" "pixbuf") ) ) (define-method ref (of-object "GtkIconSet") (c-name "gtk_icon_set_ref") (return-type "GtkIconSet*") ) (define-method unref (of-object "GtkIconSet") (c-name "gtk_icon_set_unref") (return-type "none") ) (define-method copy (of-object "GtkIconSet") (c-name "gtk_icon_set_copy") (return-type "GtkIconSet*") ) (define-method render_icon (of-object "GtkIconSet") (c-name "gtk_icon_set_render_icon") (return-type "GdkPixbuf*") (parameters '("GtkStyle*" "style") '("GtkTextDirection" "direction") '("GtkStateType" "state") '("GtkIconSize" "size") '("GtkWidget*" "widget") '("const-char*" "detail") ) ) (define-method add_source (of-object "GtkIconSet") (c-name "gtk_icon_set_add_source") (return-type "none") (parameters '("const-GtkIconSource*" "source") ) ) (define-method get_sizes (of-object "GtkIconSet") (c-name "gtk_icon_set_get_sizes") (return-type "none") (parameters '("GtkIconSize**" "sizes") '("gint*" "n_sizes") ) ) (define-function gtk_icon_source_get_type (c-name "gtk_icon_source_get_type") (return-type "GType") ) (define-function gtk_icon_source_new (c-name "gtk_icon_source_new") (is-constructor-of "GtkIconSource") (return-type "GtkIconSource*") ) (define-method copy (of-object "GtkIconSource") (c-name "gtk_icon_source_copy") (return-type "GtkIconSource*") ) (define-method free (of-object "GtkIconSource") (c-name "gtk_icon_source_free") (return-type "none") ) (define-method set_filename (of-object "GtkIconSource") (c-name "gtk_icon_source_set_filename") (return-type "none") (parameters '("const-gchar*" "filename") ) ) (define-method set_icon_name (of-object "GtkIconSource") (c-name "gtk_icon_source_set_icon_name") (return-type "none") (parameters '("const-gchar*" "icon_name") ) ) (define-method set_pixbuf (of-object "GtkIconSource") (c-name "gtk_icon_source_set_pixbuf") (return-type "none") (parameters '("GdkPixbuf*" "pixbuf") ) ) (define-method get_filename (of-object "GtkIconSource") (c-name "gtk_icon_source_get_filename") (return-type "const-gchar*") ) (define-method get_icon_name (of-object "GtkIconSource") (c-name "gtk_icon_source_get_icon_name") (return-type "const-gchar*") ) (define-method get_pixbuf (of-object "GtkIconSource") (c-name "gtk_icon_source_get_pixbuf") (return-type "GdkPixbuf*") ) (define-method set_direction_wildcarded (of-object "GtkIconSource") (c-name "gtk_icon_source_set_direction_wildcarded") (return-type "none") (parameters '("gboolean" "setting") ) ) (define-method set_state_wildcarded (of-object "GtkIconSource") (c-name "gtk_icon_source_set_state_wildcarded") (return-type "none") (parameters '("gboolean" "setting") ) ) (define-method set_size_wildcarded (of-object "GtkIconSource") (c-name "gtk_icon_source_set_size_wildcarded") (return-type "none") (parameters '("gboolean" "setting") ) ) (define-method get_size_wildcarded (of-object "GtkIconSource") (c-name "gtk_icon_source_get_size_wildcarded") (return-type "gboolean") ) (define-method get_state_wildcarded (of-object "GtkIconSource") (c-name "gtk_icon_source_get_state_wildcarded") (return-type "gboolean") ) (define-method get_direction_wildcarded (of-object "GtkIconSource") (c-name "gtk_icon_source_get_direction_wildcarded") (return-type "gboolean") ) (define-method set_direction (of-object "GtkIconSource") (c-name "gtk_icon_source_set_direction") (return-type "none") (parameters '("GtkTextDirection" "direction") ) ) (define-method set_state (of-object "GtkIconSource") (c-name "gtk_icon_source_set_state") (return-type "none") (parameters '("GtkStateType" "state") ) ) (define-method set_size (of-object "GtkIconSource") (c-name "gtk_icon_source_set_size") (return-type "none") (parameters '("GtkIconSize" "size") ) ) (define-method get_direction (of-object "GtkIconSource") (c-name "gtk_icon_source_get_direction") (return-type "GtkTextDirection") ) (define-method get_state (of-object "GtkIconSource") (c-name "gtk_icon_source_get_state") (return-type "GtkStateType") ) (define-method get_size (of-object "GtkIconSource") (c-name "gtk_icon_source_get_size") (return-type "GtkIconSize") ) (define-function _gtk_icon_set_invalidate_caches (c-name "_gtk_icon_set_invalidate_caches") (return-type "none") ) (define-function _gtk_icon_factory_list_ids (c-name "_gtk_icon_factory_list_ids") (return-type "GSList*") ) (define-function _gtk_icon_factory_ensure_default_icons (c-name "_gtk_icon_factory_ensure_default_icons") (return-type "none") ) ;; From /opt/gnome2/include/gtk-2.0/gtk/gtkicontheme.h (define-function gtk_icon_theme_error_quark (c-name "gtk_icon_theme_error_quark") (return-type "GQuark") ) (define-function gtk_icon_theme_get_type (c-name "gtk_icon_theme_get_type") (return-type "GType") ) (define-function gtk_icon_theme_new (c-name "gtk_icon_theme_new") (is-constructor-of "GtkIconTheme") (return-type "GtkIconTheme*") ) (define-function gtk_icon_theme_get_default (c-name "gtk_icon_theme_get_default") (return-type "GtkIconTheme*") ) (define-function gtk_icon_theme_get_for_screen (c-name "gtk_icon_theme_get_for_screen") (return-type "GtkIconTheme*") (parameters '("GdkScreen*" "screen") ) ) (define-method set_screen (of-object "GtkIconTheme") (c-name "gtk_icon_theme_set_screen") (return-type "none") (parameters '("GdkScreen*" "screen") ) ) (define-method set_search_path (of-object "GtkIconTheme") (c-name "gtk_icon_theme_set_search_path") (return-type "none") (parameters '("const-gchar*[]" "path") '("gint" "n_elements") ) ) (define-method get_search_path (of-object "GtkIconTheme") (c-name "gtk_icon_theme_get_search_path") (return-type "none") (parameters '("gchar**[]" "path") '("gint*" "n_elements") ) ) (define-method append_search_path (of-object "GtkIconTheme") (c-name "gtk_icon_theme_append_search_path") (return-type "none") (parameters '("const-gchar*" "path") ) ) (define-method prepend_search_path (of-object "GtkIconTheme") (c-name "gtk_icon_theme_prepend_search_path") (return-type "none") (parameters '("const-gchar*" "path") ) ) (define-method set_custom_theme (of-object "GtkIconTheme") (c-name "gtk_icon_theme_set_custom_theme") (return-type "none") (parameters '("const-gchar*" "theme_name") ) ) (define-method has_icon (of-object "GtkIconTheme") (c-name "gtk_icon_theme_has_icon") (return-type "gboolean") (parameters '("const-gchar*" "icon_name") ) ) (define-method get_icon_sizes (of-object "GtkIconTheme") (c-name "gtk_icon_theme_get_icon_sizes") (return-type "gint*") (parameters '("const-gchar*" "icon_name") ) ) (define-method lookup_icon (of-object "GtkIconTheme") (c-name "gtk_icon_theme_lookup_icon") (return-type "GtkIconInfo*") (parameters '("const-gchar*" "icon_name") '("gint" "size") '("GtkIconLookupFlags" "flags") ) ) (define-method load_icon (of-object "GtkIconTheme") (c-name "gtk_icon_theme_load_icon") (return-type "GdkPixbuf*") (parameters '("const-gchar*" "icon_name") '("gint" "size") '("GtkIconLookupFlags" "flags") '("GError**" "error") ) ) (define-method list_icons (of-object "GtkIconTheme") (c-name "gtk_icon_theme_list_icons") (return-type "GList*") (parameters '("const-gchar*" "context") ) ) (define-method get_example_icon_name (of-object "GtkIconTheme") (c-name "gtk_icon_theme_get_example_icon_name") (return-type "char*") ) (define-method rescan_if_needed (of-object "GtkIconTheme") (c-name "gtk_icon_theme_rescan_if_needed") (return-type "gboolean") ) (define-function gtk_icon_theme_add_builtin_icon (c-name "gtk_icon_theme_add_builtin_icon") (return-type "none") (parameters '("const-gchar*" "icon_name") '("gint" "size") '("GdkPixbuf*" "pixbuf") ) ) (define-function gtk_icon_info_get_type (c-name "gtk_icon_info_get_type") (return-type "GType") ) (define-method copy (of-object "GtkIconInfo") (c-name "gtk_icon_info_copy") (return-type "GtkIconInfo*") ) (define-method free (of-object "GtkIconInfo") (c-name "gtk_icon_info_free") (return-type "none") ) (define-method get_base_size (of-object "GtkIconInfo") (c-name "gtk_icon_info_get_base_size") (return-type "gint") ) (define-method get_filename (of-object "GtkIconInfo") (c-name "gtk_icon_info_get_filename") (return-type "const-gchar*") ) (define-method get_builtin_pixbuf (of-object "GtkIconInfo") (c-name "gtk_icon_info_get_builtin_pixbuf") (return-type "GdkPixbuf*") ) (define-method load_icon (of-object "GtkIconInfo") (c-name "gtk_icon_info_load_icon") (return-type "GdkPixbuf*") (parameters '("GError**" "error") ) ) (define-method set_raw_coordinates (of-object "GtkIconInfo") (c-name "gtk_icon_info_set_raw_coordinates") (return-type "none") (parameters '("gboolean" "raw_coordinates") ) ) (define-method get_embedded_rect (of-object "GtkIconInfo") (c-name "gtk_icon_info_get_embedded_rect") (return-type "gboolean") (parameters '("GdkRectangle*" "rectangle") ) ) (define-method get_attach_points (of-object "GtkIconInfo") (c-name "gtk_icon_info_get_attach_points") (return-type "gboolean") (parameters '("GdkPoint**" "points") '("gint*" "n_points") ) ) (define-method get_display_name (of-object "GtkIconInfo") (c-name "gtk_icon_info_get_display_name") (return-type "const-gchar*") ) (define-function _gtk_icon_theme_check_reload (c-name "_gtk_icon_theme_check_reload") (return-type "none") (parameters '("GdkDisplay*" "display") ) ) (define-function _gtk_icon_theme_ensure_builtin_cache (c-name "_gtk_icon_theme_ensure_builtin_cache") (return-type "none") ) ;; From /opt/gnome2/include/gtk-2.0/gtk/gtkiconview.h (define-function gtk_icon_view_get_type (c-name "gtk_icon_view_get_type") (return-type "GType") ) (define-function gtk_icon_view_new (c-name "gtk_icon_view_new") (is-constructor-of "GtkIconView") (return-type "GtkWidget*") ) (define-function gtk_icon_view_new_with_model (c-name "gtk_icon_view_new_with_model") (return-type "GtkWidget*") (parameters '("GtkTreeModel*" "model") ) ) (define-method set_model (of-object "GtkIconView") (c-name "gtk_icon_view_set_model") (return-type "none") (parameters '("GtkTreeModel*" "model") ) ) (define-method get_model (of-object "GtkIconView") (c-name "gtk_icon_view_get_model") (return-type "GtkTreeModel*") ) (define-method set_text_column (of-object "GtkIconView") (c-name "gtk_icon_view_set_text_column") (return-type "none") (parameters '("gint" "column") ) ) (define-method get_text_column (of-object "GtkIconView") (c-name "gtk_icon_view_get_text_column") (return-type "gint") ) (define-method set_markup_column (of-object "GtkIconView") (c-name "gtk_icon_view_set_markup_column") (return-type "none") (parameters '("gint" "column") ) ) (define-method get_markup_column (of-object "GtkIconView") (c-name "gtk_icon_view_get_markup_column") (return-type "gint") ) (define-method set_pixbuf_column (of-object "GtkIconView") (c-name "gtk_icon_view_set_pixbuf_column") (return-type "none") (parameters '("gint" "column") ) ) (define-method get_pixbuf_column (of-object "GtkIconView") (c-name "gtk_icon_view_get_pixbuf_column") (return-type "gint") ) (define-method set_orientation (of-object "GtkIconView") (c-name "gtk_icon_view_set_orientation") (return-type "none") (parameters '("GtkOrientation" "orientation") ) ) (define-method get_orientation (of-object "GtkIconView") (c-name "gtk_icon_view_get_orientation") (return-type "GtkOrientation") ) (define-method set_columns (of-object "GtkIconView") (c-name "gtk_icon_view_set_columns") (return-type "none") (parameters '("gint" "columns") ) ) (define-method get_columns (of-object "GtkIconView") (c-name "gtk_icon_view_get_columns") (return-type "gint") ) (define-method set_item_width (of-object "GtkIconView") (c-name "gtk_icon_view_set_item_width") (return-type "none") (parameters '("gint" "item_width") ) ) (define-method get_item_width (of-object "GtkIconView") (c-name "gtk_icon_view_get_item_width") (return-type "gint") ) (define-method set_spacing (of-object "GtkIconView") (c-name "gtk_icon_view_set_spacing") (return-type "none") (parameters '("gint" "spacing") ) ) (define-method get_spacing (of-object "GtkIconView") (c-name "gtk_icon_view_get_spacing") (return-type "gint") ) (define-method set_row_spacing (of-object "GtkIconView") (c-name "gtk_icon_view_set_row_spacing") (return-type "none") (parameters '("gint" "row_spacing") ) ) (define-method get_row_spacing (of-object "GtkIconView") (c-name "gtk_icon_view_get_row_spacing") (return-type "gint") ) (define-method set_column_spacing (of-object "GtkIconView") (c-name "gtk_icon_view_set_column_spacing") (return-type "none") (parameters '("gint" "column_spacing") ) ) (define-method get_column_spacing (of-object "GtkIconView") (c-name "gtk_icon_view_get_column_spacing") (return-type "gint") ) (define-method set_margin (of-object "GtkIconView") (c-name "gtk_icon_view_set_margin") (return-type "none") (parameters '("gint" "margin") ) ) (define-method get_margin (of-object "GtkIconView") (c-name "gtk_icon_view_get_margin") (return-type "gint") ) (define-method get_path_at_pos (of-object "GtkIconView") (c-name "gtk_icon_view_get_path_at_pos") (return-type "GtkTreePath*") (parameters '("gint" "x") '("gint" "y") ) ) (define-method get_item_at_pos (of-object "GtkIconView") (c-name "gtk_icon_view_get_item_at_pos") (return-type "gboolean") (parameters '("gint" "x") '("gint" "y") '("GtkTreePath**" "path") '("GtkCellRenderer**" "cell") ) ) (define-method get_visible_range (of-object "GtkIconView") (c-name "gtk_icon_view_get_visible_range") (return-type "gboolean") (parameters '("GtkTreePath**" "start_path") '("GtkTreePath**" "end_path") ) ) (define-method selected_foreach (of-object "GtkIconView") (c-name "gtk_icon_view_selected_foreach") (return-type "none") (parameters '("GtkIconViewForeachFunc" "func") '("gpointer" "data") ) ) (define-method set_selection_mode (of-object "GtkIconView") (c-name "gtk_icon_view_set_selection_mode") (return-type "none") (parameters '("GtkSelectionMode" "mode") ) ) (define-method get_selection_mode (of-object "GtkIconView") (c-name "gtk_icon_view_get_selection_mode") (return-type "GtkSelectionMode") ) (define-method select_path (of-object "GtkIconView") (c-name "gtk_icon_view_select_path") (return-type "none") (parameters '("GtkTreePath*" "path") ) ) (define-method unselect_path (of-object "GtkIconView") (c-name "gtk_icon_view_unselect_path") (return-type "none") (parameters '("GtkTreePath*" "path") ) ) (define-method path_is_selected (of-object "GtkIconView") (c-name "gtk_icon_view_path_is_selected") (return-type "gboolean") (parameters '("GtkTreePath*" "path") ) ) (define-method get_selected_items (of-object "GtkIconView") (c-name "gtk_icon_view_get_selected_items") (return-type "GList*") ) (define-method select_all (of-object "GtkIconView") (c-name "gtk_icon_view_select_all") (return-type "none") ) (define-method unselect_all (of-object "GtkIconView") (c-name "gtk_icon_view_unselect_all") (return-type "none") ) (define-method item_activated (of-object "GtkIconView") (c-name "gtk_icon_view_item_activated") (return-type "none") (parameters '("GtkTreePath*" "path") ) ) (define-method set_cursor (of-object "GtkIconView") (c-name "gtk_icon_view_set_cursor") (return-type "none") (parameters '("GtkTreePath*" "path") '("GtkCellRenderer*" "cell") '("gboolean" "start_editing") ) ) (define-method get_cursor (of-object "GtkIconView") (c-name "gtk_icon_view_get_cursor") (return-type "gboolean") (parameters '("GtkTreePath**" "path") '("GtkCellRenderer**" "cell") ) ) (define-method scroll_to_path (of-object "GtkIconView") (c-name "gtk_icon_view_scroll_to_path") (return-type "none") (parameters '("GtkTreePath*" "path") '("gboolean" "use_align") '("gfloat" "row_align") '("gfloat" "col_align") ) ) (define-method enable_model_drag_source (of-object "GtkIconView") (c-name "gtk_icon_view_enable_model_drag_source") (return-type "none") (parameters '("GdkModifierType" "start_button_mask") '("const-GtkTargetEntry*" "targets") '("gint" "n_targets") '("GdkDragAction" "actions") ) ) (define-method enable_model_drag_dest (of-object "GtkIconView") (c-name "gtk_icon_view_enable_model_drag_dest") (return-type "none") (parameters '("const-GtkTargetEntry*" "targets") '("gint" "n_targets") '("GdkDragAction" "actions") ) ) (define-method unset_model_drag_source (of-object "GtkIconView") (c-name "gtk_icon_view_unset_model_drag_source") (return-type "none") ) (define-method unset_model_drag_dest (of-object "GtkIconView") (c-name "gtk_icon_view_unset_model_drag_dest") (return-type "none") ) (define-method set_reorderable (of-object "GtkIconView") (c-name "gtk_icon_view_set_reorderable") (return-type "none") (parameters '("gboolean" "reorderable") ) ) (define-method get_reorderable (of-object "GtkIconView") (c-name "gtk_icon_view_get_reorderable") (return-type "gboolean") ) (define-method set_drag_dest_item (of-object "GtkIconView") (c-name "gtk_icon_view_set_drag_dest_item") (return-type "none") (parameters '("GtkTreePath*" "path") '("GtkIconViewDropPosition" "pos") ) ) (define-method get_drag_dest_item (of-object "GtkIconView") (c-name "gtk_icon_view_get_drag_dest_item") (return-type "none") (parameters '("GtkTreePath**" "path") '("GtkIconViewDropPosition*" "pos") ) ) (define-method get_dest_item_at_pos (of-object "GtkIconView") (c-name "gtk_icon_view_get_dest_item_at_pos") (return-type "gboolean") (parameters '("gint" "drag_x") '("gint" "drag_y") '("GtkTreePath**" "path") '("GtkIconViewDropPosition*" "pos") ) ) (define-method create_drag_icon (of-object "GtkIconView") (c-name "gtk_icon_view_create_drag_icon") (return-type "GdkPixmap*") (parameters '("GtkTreePath*" "path") ) ) ;; From /opt/gnome2/include/gtk-2.0/gtk/gtkimage.h (define-function gtk_image_get_type (c-name "gtk_image_get_type") (return-type "GType") ) (define-function gtk_image_new (c-name "gtk_image_new") (is-constructor-of "GtkImage") (return-type "GtkWidget*") ) (define-function gtk_image_new_from_pixmap (c-name "gtk_image_new_from_pixmap") (return-type "GtkWidget*") (parameters '("GdkPixmap*" "pixmap") '("GdkBitmap*" "mask") ) ) (define-function gtk_image_new_from_image (c-name "gtk_image_new_from_image") (return-type "GtkWidget*") (parameters '("GdkImage*" "image") '("GdkBitmap*" "mask") ) ) (define-function gtk_image_new_from_file (c-name "gtk_image_new_from_file") (return-type "GtkWidget*") (parameters '("const-gchar*" "filename") ) ) (define-function gtk_image_new_from_pixbuf (c-name "gtk_image_new_from_pixbuf") (return-type "GtkWidget*") (parameters '("GdkPixbuf*" "pixbuf") ) ) (define-function gtk_image_new_from_stock (c-name "gtk_image_new_from_stock") (return-type "GtkWidget*") (parameters '("const-gchar*" "stock_id") '("GtkIconSize" "size") ) ) (define-function gtk_image_new_from_icon_set (c-name "gtk_image_new_from_icon_set") (return-type "GtkWidget*") (parameters '("GtkIconSet*" "icon_set") '("GtkIconSize" "size") ) ) (define-function gtk_image_new_from_animation (c-name "gtk_image_new_from_animation") (return-type "GtkWidget*") (parameters '("GdkPixbufAnimation*" "animation") ) ) (define-function gtk_image_new_from_icon_name (c-name "gtk_image_new_from_icon_name") (return-type "GtkWidget*") (parameters '("const-gchar*" "icon_name") '("GtkIconSize" "size") ) ) (define-method clear (of-object "GtkImage") (c-name "gtk_image_clear") (return-type "none") ) (define-method set_from_pixmap (of-object "GtkImage") (c-name "gtk_image_set_from_pixmap") (return-type "none") (parameters '("GdkPixmap*" "pixmap") '("GdkBitmap*" "mask") ) ) (define-method set_from_image (of-object "GtkImage") (c-name "gtk_image_set_from_image") (return-type "none") (parameters '("GdkImage*" "gdk_image") '("GdkBitmap*" "mask") ) ) (define-method set_from_file (of-object "GtkImage") (c-name "gtk_image_set_from_file") (return-type "none") (parameters '("const-gchar*" "filename") ) ) (define-method set_from_pixbuf (of-object "GtkImage") (c-name "gtk_image_set_from_pixbuf") (return-type "none") (parameters '("GdkPixbuf*" "pixbuf") ) ) (define-method set_from_stock (of-object "GtkImage") (c-name "gtk_image_set_from_stock") (return-type "none") (parameters '("const-gchar*" "stock_id") '("GtkIconSize" "size") ) ) (define-method set_from_icon_set (of-object "GtkImage") (c-name "gtk_image_set_from_icon_set") (return-type "none") (parameters '("GtkIconSet*" "icon_set") '("GtkIconSize" "size") ) ) (define-method set_from_animation (of-object "GtkImage") (c-name "gtk_image_set_from_animation") (return-type "none") (parameters '("GdkPixbufAnimation*" "animation") ) ) (define-method set_from_icon_name (of-object "GtkImage") (c-name "gtk_image_set_from_icon_name") (return-type "none") (parameters '("const-gchar*" "icon_name") '("GtkIconSize" "size") ) ) (define-method set_pixel_size (of-object "GtkImage") (c-name "gtk_image_set_pixel_size") (return-type "none") (parameters '("gint" "pixel_size") ) ) (define-method get_storage_type (of-object "GtkImage") (c-name "gtk_image_get_storage_type") (return-type "GtkImageType") ) (define-method get_pixmap (of-object "GtkImage") (c-name "gtk_image_get_pixmap") (return-type "none") (parameters '("GdkPixmap**" "pixmap") '("GdkBitmap**" "mask") ) ) (define-method get_image (of-object "GtkImage") (c-name "gtk_image_get_image") (return-type "none") (parameters '("GdkImage**" "gdk_image") '("GdkBitmap**" "mask") ) ) (define-method get_pixbuf (of-object "GtkImage") (c-name "gtk_image_get_pixbuf") (return-type "GdkPixbuf*") ) (define-method get_stock (of-object "GtkImage") (c-name "gtk_image_get_stock") (return-type "none") (parameters '("gchar**" "stock_id") '("GtkIconSize*" "size") ) ) (define-method get_icon_set (of-object "GtkImage") (c-name "gtk_image_get_icon_set") (return-type "none") (parameters '("GtkIconSet**" "icon_set") '("GtkIconSize*" "size") ) ) (define-method get_animation (of-object "GtkImage") (c-name "gtk_image_get_animation") (return-type "GdkPixbufAnimation*") ) (define-method get_icon_name (of-object "GtkImage") (c-name "gtk_image_get_icon_name") (return-type "none") (parameters '("const-gchar**" "icon_name") '("GtkIconSize*" "size") ) ) (define-method get_pixel_size (of-object "GtkImage") (c-name "gtk_image_get_pixel_size") (return-type "gint") ) (define-method set (of-object "GtkImage") (c-name "gtk_image_set") (return-type "none") (parameters '("GdkImage*" "val") '("GdkBitmap*" "mask") ) ) (define-method get (of-object "GtkImage") (c-name "gtk_image_get") (return-type "none") (parameters '("GdkImage**" "val") '("GdkBitmap**" "mask") ) ) ;; From /opt/gnome2/include/gtk-2.0/gtk/gtkimagemenuitem.h (define-function gtk_image_menu_item_get_type (c-name "gtk_image_menu_item_get_type") (return-type "GType") ) (define-function gtk_image_menu_item_new (c-name "gtk_image_menu_item_new") (is-constructor-of "GtkImageMenuItem") (return-type "GtkWidget*") ) (define-function gtk_image_menu_item_new_with_label (c-name "gtk_image_menu_item_new_with_label") (return-type "GtkWidget*") (parameters '("const-gchar*" "label") ) ) (define-function gtk_image_menu_item_new_with_mnemonic (c-name "gtk_image_menu_item_new_with_mnemonic") (return-type "GtkWidget*") (parameters '("const-gchar*" "label") ) ) (define-function gtk_image_menu_item_new_from_stock (c-name "gtk_image_menu_item_new_from_stock") (return-type "GtkWidget*") (parameters '("const-gchar*" "stock_id") '("GtkAccelGroup*" "accel_group") ) ) (define-method set_image (of-object "GtkImageMenuItem") (c-name "gtk_image_menu_item_set_image") (return-type "none") (parameters '("GtkWidget*" "image") ) ) (define-method get_image (of-object "GtkImageMenuItem") (c-name "gtk_image_menu_item_get_image") (return-type "GtkWidget*") ) ;; From /opt/gnome2/include/gtk-2.0/gtk/gtkimcontext.h (define-function gtk_im_context_get_type (c-name "gtk_im_context_get_type") (return-type "GType") ) (define-method set_client_window (of-object "GtkIMContext") (c-name "gtk_im_context_set_client_window") (return-type "none") (parameters '("GdkWindow*" "window") ) ) (define-method get_preedit_string (of-object "GtkIMContext") (c-name "gtk_im_context_get_preedit_string") (return-type "none") (parameters '("gchar**" "str") '("PangoAttrList**" "attrs") '("gint*" "cursor_pos") ) ) (define-method filter_keypress (of-object "GtkIMContext") (c-name "gtk_im_context_filter_keypress") (return-type "gboolean") (parameters '("GdkEventKey*" "event") ) ) (define-method focus_in (of-object "GtkIMContext") (c-name "gtk_im_context_focus_in") (return-type "none") ) (define-method focus_out (of-object "GtkIMContext") (c-name "gtk_im_context_focus_out") (return-type "none") ) (define-method reset (of-object "GtkIMContext") (c-name "gtk_im_context_reset") (return-type "none") ) (define-method set_cursor_location (of-object "GtkIMContext") (c-name "gtk_im_context_set_cursor_location") (return-type "none") (parameters '("GdkRectangle*" "area") ) ) (define-method set_use_preedit (of-object "GtkIMContext") (c-name "gtk_im_context_set_use_preedit") (return-type "none") (parameters '("gboolean" "use_preedit") ) ) (define-method set_surrounding (of-object "GtkIMContext") (c-name "gtk_im_context_set_surrounding") (return-type "none") (parameters '("const-gchar*" "text") '("gint" "len") '("gint" "cursor_index") ) ) (define-method get_surrounding (of-object "GtkIMContext") (c-name "gtk_im_context_get_surrounding") (return-type "gboolean") (parameters '("gchar**" "text") '("gint*" "cursor_index") ) ) (define-method delete_surrounding (of-object "GtkIMContext") (c-name "gtk_im_context_delete_surrounding") (return-type "gboolean") (parameters '("gint" "offset") '("gint" "n_chars") ) ) ;; From /opt/gnome2/include/gtk-2.0/gtk/gtkimcontextsimple.h (define-function gtk_im_context_simple_get_type (c-name "gtk_im_context_simple_get_type") (return-type "GType") ) (define-function gtk_im_context_simple_new (c-name "gtk_im_context_simple_new") (is-constructor-of "GtkImContextSimple") (return-type "GtkIMContext*") ) (define-method add_table (of-object "GtkIMContextSimple") (c-name "gtk_im_context_simple_add_table") (return-type "none") (parameters '("guint16*" "data") '("gint" "max_seq_len") '("gint" "n_seqs") ) ) ;; From /opt/gnome2/include/gtk-2.0/gtk/gtkimmodule.h (define-function _gtk_im_module_list (c-name "_gtk_im_module_list") (return-type "none") (parameters '("const-GtkIMContextInfo***" "contexts") '("guint*" "n_contexts") ) ) (define-function _gtk_im_module_create (c-name "_gtk_im_module_create") (return-type "GtkIMContext*") (parameters '("const-gchar*" "context_id") ) ) (define-function _gtk_im_module_get_default_context_id (c-name "_gtk_im_module_get_default_context_id") (return-type "const-gchar*") (parameters '("const-gchar*" "lang") ) ) ;; From /opt/gnome2/include/gtk-2.0/gtk/gtkimmulticontext.h (define-function gtk_im_multicontext_get_type (c-name "gtk_im_multicontext_get_type") (return-type "GType") ) (define-function gtk_im_multicontext_new (c-name "gtk_im_multicontext_new") (is-constructor-of "GtkImMulticontext") (return-type "GtkIMContext*") ) (define-method append_menuitems (of-object "GtkIMMulticontext") (c-name "gtk_im_multicontext_append_menuitems") (return-type "none") (parameters '("GtkMenuShell*" "menushell") ) ) ;; From /opt/gnome2/include/gtk-2.0/gtk/gtkinputdialog.h (define-function gtk_input_dialog_get_type (c-name "gtk_input_dialog_get_type") (return-type "GType") ) (define-function gtk_input_dialog_new (c-name "gtk_input_dialog_new") (is-constructor-of "GtkInputDialog") (return-type "GtkWidget*") ) ;; From /opt/gnome2/include/gtk-2.0/gtk/gtkinvisible.h (define-function gtk_invisible_get_type (c-name "gtk_invisible_get_type") (return-type "GType") ) (define-function gtk_invisible_new (c-name "gtk_invisible_new") (is-constructor-of "GtkInvisible") (return-type "GtkWidget*") ) (define-function gtk_invisible_new_for_screen (c-name "gtk_invisible_new_for_screen") (return-type "GtkWidget*") (parameters '("GdkScreen*" "screen") ) ) (define-method set_screen (of-object "GtkInvisible") (c-name "gtk_invisible_set_screen") (return-type "none") (parameters '("GdkScreen*" "screen") ) ) (define-method get_screen (of-object "GtkInvisible") (c-name "gtk_invisible_get_screen") (return-type "GdkScreen*") ) ;; From /opt/gnome2/include/gtk-2.0/gtk/gtkitemfactory.h (define-function gtk_item_factory_get_type (c-name "gtk_item_factory_get_type") (return-type "GType") ) (define-function gtk_item_factory_new (c-name "gtk_item_factory_new") (is-constructor-of "GtkItemFactory") (return-type "GtkItemFactory*") (parameters '("GType" "container_type") '("const-gchar*" "path") '("GtkAccelGroup*" "accel_group") ) ) (define-method construct (of-object "GtkItemFactory") (c-name "gtk_item_factory_construct") (return-type "none") (parameters '("GType" "container_type") '("const-gchar*" "path") '("GtkAccelGroup*" "accel_group") ) ) (define-function gtk_item_factory_add_foreign (c-name "gtk_item_factory_add_foreign") (return-type "none") (parameters '("GtkWidget*" "accel_widget") '("const-gchar*" "full_path") '("GtkAccelGroup*" "accel_group") '("guint" "keyval") '("GdkModifierType" "modifiers") ) ) (define-function gtk_item_factory_from_widget (c-name "gtk_item_factory_from_widget") (return-type "GtkItemFactory*") (parameters '("GtkWidget*" "widget") ) ) (define-function gtk_item_factory_path_from_widget (c-name "gtk_item_factory_path_from_widget") (return-type "const-gchar*") (parameters '("GtkWidget*" "widget") ) ) (define-method get_item (of-object "GtkItemFactory") (c-name "gtk_item_factory_get_item") (return-type "GtkWidget*") (parameters '("const-gchar*" "path") ) ) (define-method get_widget (of-object "GtkItemFactory") (c-name "gtk_item_factory_get_widget") (return-type "GtkWidget*") (parameters '("const-gchar*" "path") ) ) (define-method get_widget_by_action (of-object "GtkItemFactory") (c-name "gtk_item_factory_get_widget_by_action") (return-type "GtkWidget*") (parameters '("guint" "action") ) ) (define-method get_item_by_action (of-object "GtkItemFactory") (c-name "gtk_item_factory_get_item_by_action") (return-type "GtkWidget*") (parameters '("guint" "action") ) ) (define-method create_item (of-object "GtkItemFactory") (c-name "gtk_item_factory_create_item") (return-type "none") (parameters '("GtkItemFactoryEntry*" "entry") '("gpointer" "callback_data") '("guint" "callback_type") ) ) (define-method create_items (of-object "GtkItemFactory") (c-name "gtk_item_factory_create_items") (return-type "none") (parameters '("guint" "n_entries") '("GtkItemFactoryEntry*" "entries") '("gpointer" "callback_data") ) ) (define-method delete_item (of-object "GtkItemFactory") (c-name "gtk_item_factory_delete_item") (return-type "none") (parameters '("const-gchar*" "path") ) ) (define-method delete_entry (of-object "GtkItemFactory") (c-name "gtk_item_factory_delete_entry") (return-type "none") (parameters '("GtkItemFactoryEntry*" "entry") ) ) (define-method delete_entries (of-object "GtkItemFactory") (c-name "gtk_item_factory_delete_entries") (return-type "none") (parameters '("guint" "n_entries") '("GtkItemFactoryEntry*" "entries") ) ) (define-method popup (of-object "GtkItemFactory") (c-name "gtk_item_factory_popup") (return-type "none") (parameters '("guint" "x") '("guint" "y") '("guint" "mouse_button") '("guint32" "time_") ) ) (define-method popup_with_data (of-object "GtkItemFactory") (c-name "gtk_item_factory_popup_with_data") (return-type "none") (parameters '("gpointer" "popup_data") '("GtkDestroyNotify" "destroy") '("guint" "x") '("guint" "y") '("guint" "mouse_button") '("guint32" "time_") ) ) (define-method popup_data (of-object "GtkItemFactory") (c-name "gtk_item_factory_popup_data") (return-type "gpointer") ) (define-function gtk_item_factory_popup_data_from_widget (c-name "gtk_item_factory_popup_data_from_widget") (return-type "gpointer") (parameters '("GtkWidget*" "widget") ) ) (define-method set_translate_func (of-object "GtkItemFactory") (c-name "gtk_item_factory_set_translate_func") (return-type "none") (parameters '("GtkTranslateFunc" "func") '("gpointer" "data") '("GtkDestroyNotify" "notify") ) ) (define-method create_items_ac (of-object "GtkItemFactory") (c-name "gtk_item_factory_create_items_ac") (return-type "none") (parameters '("guint" "n_entries") '("GtkItemFactoryEntry*" "entries") '("gpointer" "callback_data") '("guint" "callback_type") ) ) (define-function gtk_item_factory_from_path (c-name "gtk_item_factory_from_path") (return-type "GtkItemFactory*") (parameters '("const-gchar*" "path") ) ) (define-function gtk_item_factory_create_menu_entries (c-name "gtk_item_factory_create_menu_entries") (return-type "none") (parameters '("guint" "n_entries") '("GtkMenuEntry*" "entries") ) ) (define-function gtk_item_factories_path_delete (c-name "gtk_item_factories_path_delete") (return-type "none") (parameters '("const-gchar*" "ifactory_path") '("const-gchar*" "path") ) ) ;; From /opt/gnome2/include/gtk-2.0/gtk/gtkitem.h (define-function gtk_item_get_type (c-name "gtk_item_get_type") (return-type "GType") ) (define-method select (of-object "GtkItem") (c-name "gtk_item_select") (return-type "none") ) (define-method deselect (of-object "GtkItem") (c-name "gtk_item_deselect") (return-type "none") ) (define-method toggle (of-object "GtkItem") (c-name "gtk_item_toggle") (return-type "none") ) ;; From /opt/gnome2/include/gtk-2.0/gtk/gtklabel.h (define-function gtk_label_get_type (c-name "gtk_label_get_type") (return-type "GType") ) (define-function gtk_label_new (c-name "gtk_label_new") (is-constructor-of "GtkLabel") (return-type "GtkWidget*") (parameters '("const-gchar*" "str") ) ) (define-function gtk_label_new_with_mnemonic (c-name "gtk_label_new_with_mnemonic") (return-type "GtkWidget*") (parameters '("const-gchar*" "str") ) ) (define-method set_text (of-object "GtkLabel") (c-name "gtk_label_set_text") (return-type "none") (parameters '("const-gchar*" "str") ) ) (define-method get_text (of-object "GtkLabel") (c-name "gtk_label_get_text") (return-type "const-gchar*") ) (define-method set_attributes (of-object "GtkLabel") (c-name "gtk_label_set_attributes") (return-type "none") (parameters '("PangoAttrList*" "attrs") ) ) (define-method get_attributes (of-object "GtkLabel") (c-name "gtk_label_get_attributes") (return-type "PangoAttrList*") ) (define-method set_label (of-object "GtkLabel") (c-name "gtk_label_set_label") (return-type "none") (parameters '("const-gchar*" "str") ) ) (define-method get_label (of-object "GtkLabel") (c-name "gtk_label_get_label") (return-type "const-gchar*") ) (define-method set_markup (of-object "GtkLabel") (c-name "gtk_label_set_markup") (return-type "none") (parameters '("const-gchar*" "str") ) ) (define-method set_use_markup (of-object "GtkLabel") (c-name "gtk_label_set_use_markup") (return-type "none") (parameters '("gboolean" "setting") ) ) (define-method get_use_markup (of-object "GtkLabel") (c-name "gtk_label_get_use_markup") (return-type "gboolean") ) (define-method set_use_underline (of-object "GtkLabel") (c-name "gtk_label_set_use_underline") (return-type "none") (parameters '("gboolean" "setting") ) ) (define-method get_use_underline (of-object "GtkLabel") (c-name "gtk_label_get_use_underline") (return-type "gboolean") ) (define-method set_markup_with_mnemonic (of-object "GtkLabel") (c-name "gtk_label_set_markup_with_mnemonic") (return-type "none") (parameters '("const-gchar*" "str") ) ) (define-method get_mnemonic_keyval (of-object "GtkLabel") (c-name "gtk_label_get_mnemonic_keyval") (return-type "guint") ) (define-method set_mnemonic_widget (of-object "GtkLabel") (c-name "gtk_label_set_mnemonic_widget") (return-type "none") (parameters '("GtkWidget*" "widget") ) ) (define-method get_mnemonic_widget (of-object "GtkLabel") (c-name "gtk_label_get_mnemonic_widget") (return-type "GtkWidget*") ) (define-method set_text_with_mnemonic (of-object "GtkLabel") (c-name "gtk_label_set_text_with_mnemonic") (return-type "none") (parameters '("const-gchar*" "str") ) ) (define-method set_justify (of-object "GtkLabel") (c-name "gtk_label_set_justify") (return-type "none") (parameters '("GtkJustification" "jtype") ) ) (define-method get_justify (of-object "GtkLabel") (c-name "gtk_label_get_justify") (return-type "GtkJustification") ) (define-method set_ellipsize (of-object "GtkLabel") (c-name "gtk_label_set_ellipsize") (return-type "none") (parameters '("PangoEllipsizeMode" "mode") ) ) (define-method get_ellipsize (of-object "GtkLabel") (c-name "gtk_label_get_ellipsize") (return-type "PangoEllipsizeMode") ) (define-method set_width_chars (of-object "GtkLabel") (c-name "gtk_label_set_width_chars") (return-type "none") (parameters '("gint" "n_chars") ) ) (define-method get_width_chars (of-object "GtkLabel") (c-name "gtk_label_get_width_chars") (return-type "gint") ) (define-method set_max_width_chars (of-object "GtkLabel") (c-name "gtk_label_set_max_width_chars") (return-type "none") (parameters '("gint" "n_chars") ) ) (define-method get_max_width_chars (of-object "GtkLabel") (c-name "gtk_label_get_max_width_chars") (return-type "gint") ) (define-method set_pattern (of-object "GtkLabel") (c-name "gtk_label_set_pattern") (return-type "none") (parameters '("const-gchar*" "pattern") ) ) (define-method set_line_wrap (of-object "GtkLabel") (c-name "gtk_label_set_line_wrap") (return-type "none") (parameters '("gboolean" "wrap") ) ) (define-method get_line_wrap (of-object "GtkLabel") (c-name "gtk_label_get_line_wrap") (return-type "gboolean") ) (define-method set_line_wrap_mode (of-object "GtkLabel") (c-name "gtk_label_set_line_wrap_mode") (return-type "none") (parameters '("PangoWrapMode" "wrap_mode") ) ) (define-method get_line_wrap_mode (of-object "GtkLabel") (c-name "gtk_label_get_line_wrap_mode") (return-type "PangoWrapMode") ) (define-method set_selectable (of-object "GtkLabel") (c-name "gtk_label_set_selectable") (return-type "none") (parameters '("gboolean" "setting") ) ) (define-method get_selectable (of-object "GtkLabel") (c-name "gtk_label_get_selectable") (return-type "gboolean") ) (define-method set_angle (of-object "GtkLabel") (c-name "gtk_label_set_angle") (return-type "none") (parameters '("gdouble" "angle") ) ) (define-method get_angle (of-object "GtkLabel") (c-name "gtk_label_get_angle") (return-type "gdouble") ) (define-method select_region (of-object "GtkLabel") (c-name "gtk_label_select_region") (return-type "none") (parameters '("gint" "start_offset") '("gint" "end_offset") ) ) (define-method get_selection_bounds (of-object "GtkLabel") (c-name "gtk_label_get_selection_bounds") (return-type "gboolean") (parameters '("gint*" "start") '("gint*" "end") ) ) (define-method get_layout (of-object "GtkLabel") (c-name "gtk_label_get_layout") (return-type "PangoLayout*") ) (define-method get_layout_offsets (of-object "GtkLabel") (c-name "gtk_label_get_layout_offsets") (return-type "none") (parameters '("gint*" "x") '("gint*" "y") ) ) (define-method set_single_line_mode (of-object "GtkLabel") (c-name "gtk_label_set_single_line_mode") (return-type "none") (parameters '("gboolean" "single_line_mode") ) ) (define-method get_single_line_mode (of-object "GtkLabel") (c-name "gtk_label_get_single_line_mode") (return-type "gboolean") ) (define-method get (of-object "GtkLabel") (c-name "gtk_label_get") (return-type "none") (parameters '("gchar**" "str") ) ) (define-method parse_uline (of-object "GtkLabel") (c-name "gtk_label_parse_uline") (return-type "guint") (parameters '("const-gchar*" "string") ) ) ;; From /opt/gnome2/include/gtk-2.0/gtk/gtklayout.h (define-function gtk_layout_get_type (c-name "gtk_layout_get_type") (return-type "GType") ) (define-function gtk_layout_new (c-name "gtk_layout_new") (is-constructor-of "GtkLayout") (return-type "GtkWidget*") (parameters '("GtkAdjustment*" "hadjustment") '("GtkAdjustment*" "vadjustment") ) ) (define-method put (of-object "GtkLayout") (c-name "gtk_layout_put") (return-type "none") (parameters '("GtkWidget*" "child_widget") '("gint" "x") '("gint" "y") ) ) (define-method move (of-object "GtkLayout") (c-name "gtk_layout_move") (return-type "none") (parameters '("GtkWidget*" "child_widget") '("gint" "x") '("gint" "y") ) ) (define-method set_size (of-object "GtkLayout") (c-name "gtk_layout_set_size") (return-type "none") (parameters '("guint" "width") '("guint" "height") ) ) (define-method get_size (of-object "GtkLayout") (c-name "gtk_layout_get_size") (return-type "none") (parameters '("guint*" "width") '("guint*" "height") ) ) (define-method get_hadjustment (of-object "GtkLayout") (c-name "gtk_layout_get_hadjustment") (return-type "GtkAdjustment*") ) (define-method get_vadjustment (of-object "GtkLayout") (c-name "gtk_layout_get_vadjustment") (return-type "GtkAdjustment*") ) (define-method set_hadjustment (of-object "GtkLayout") (c-name "gtk_layout_set_hadjustment") (return-type "none") (parameters '("GtkAdjustment*" "adjustment") ) ) (define-method set_vadjustment (of-object "GtkLayout") (c-name "gtk_layout_set_vadjustment") (return-type "none") (parameters '("GtkAdjustment*" "adjustment") ) ) (define-method freeze (of-object "GtkLayout") (c-name "gtk_layout_freeze") (return-type "none") ) (define-method thaw (of-object "GtkLayout") (c-name "gtk_layout_thaw") (return-type "none") ) ;; From /opt/gnome2/include/gtk-2.0/gtk/gtklinkbutton.h (define-function gtk_link_button_get_type (c-name "gtk_link_button_get_type") (return-type "GType") ) (define-function gtk_link_button_new (c-name "gtk_link_button_new") (is-constructor-of "GtkLinkButton") (return-type "GtkWidget*") (parameters '("const-gchar*" "uri") ) ) (define-function gtk_link_button_new_with_label (c-name "gtk_link_button_new_with_label") (return-type "GtkWidget*") (parameters '("const-gchar*" "uri") '("const-gchar*" "label") ) ) (define-method get_uri (of-object "GtkLinkButton") (c-name "gtk_link_button_get_uri") (return-type "const-gchar*") ) (define-method set_uri (of-object "GtkLinkButton") (c-name "gtk_link_button_set_uri") (return-type "none") (parameters '("const-gchar*" "uri") ) ) (define-function gtk_link_button_set_uri_hook (c-name "gtk_link_button_set_uri_hook") (return-type "GtkLinkButtonUriFunc") (parameters '("GtkLinkButtonUriFunc" "func") '("gpointer" "data") '("GDestroyNotify" "destroy") ) ) ;; From /opt/gnome2/include/gtk-2.0/gtk/gtklist.h (define-function gtk_list_get_type (c-name "gtk_list_get_type") (return-type "GtkType") ) (define-function gtk_list_new (c-name "gtk_list_new") (is-constructor-of "GtkList") (return-type "GtkWidget*") ) (define-method insert_items (of-object "GtkList") (c-name "gtk_list_insert_items") (return-type "none") (parameters '("GList*" "items") '("gint" "position") ) ) (define-method append_items (of-object "GtkList") (c-name "gtk_list_append_items") (return-type "none") (parameters '("GList*" "items") ) ) (define-method prepend_items (of-object "GtkList") (c-name "gtk_list_prepend_items") (return-type "none") (parameters '("GList*" "items") ) ) (define-method remove_items (of-object "GtkList") (c-name "gtk_list_remove_items") (return-type "none") (parameters '("GList*" "items") ) ) (define-method remove_items_no_unref (of-object "GtkList") (c-name "gtk_list_remove_items_no_unref") (return-type "none") (parameters '("GList*" "items") ) ) (define-method clear_items (of-object "GtkList") (c-name "gtk_list_clear_items") (return-type "none") (parameters '("gint" "start") '("gint" "end") ) ) (define-method select_item (of-object "GtkList") (c-name "gtk_list_select_item") (return-type "none") (parameters '("gint" "item") ) ) (define-method unselect_item (of-object "GtkList") (c-name "gtk_list_unselect_item") (return-type "none") (parameters '("gint" "item") ) ) (define-method select_child (of-object "GtkList") (c-name "gtk_list_select_child") (return-type "none") (parameters '("GtkWidget*" "child") ) ) (define-method unselect_child (of-object "GtkList") (c-name "gtk_list_unselect_child") (return-type "none") (parameters '("GtkWidget*" "child") ) ) (define-method child_position (of-object "GtkList") (c-name "gtk_list_child_position") (return-type "gint") (parameters '("GtkWidget*" "child") ) ) (define-method set_selection_mode (of-object "GtkList") (c-name "gtk_list_set_selection_mode") (return-type "none") (parameters '("GtkSelectionMode" "mode") ) ) (define-method extend_selection (of-object "GtkList") (c-name "gtk_list_extend_selection") (return-type "none") (parameters '("GtkScrollType" "scroll_type") '("gfloat" "position") '("gboolean" "auto_start_selection") ) ) (define-method start_selection (of-object "GtkList") (c-name "gtk_list_start_selection") (return-type "none") ) (define-method end_selection (of-object "GtkList") (c-name "gtk_list_end_selection") (return-type "none") ) (define-method select_all (of-object "GtkList") (c-name "gtk_list_select_all") (return-type "none") ) (define-method unselect_all (of-object "GtkList") (c-name "gtk_list_unselect_all") (return-type "none") ) (define-method scroll_horizontal (of-object "GtkList") (c-name "gtk_list_scroll_horizontal") (return-type "none") (parameters '("GtkScrollType" "scroll_type") '("gfloat" "position") ) ) (define-method scroll_vertical (of-object "GtkList") (c-name "gtk_list_scroll_vertical") (return-type "none") (parameters '("GtkScrollType" "scroll_type") '("gfloat" "position") ) ) (define-method toggle_add_mode (of-object "GtkList") (c-name "gtk_list_toggle_add_mode") (return-type "none") ) (define-method toggle_focus_row (of-object "GtkList") (c-name "gtk_list_toggle_focus_row") (return-type "none") ) (define-method toggle_row (of-object "GtkList") (c-name "gtk_list_toggle_row") (return-type "none") (parameters '("GtkWidget*" "item") ) ) (define-method undo_selection (of-object "GtkList") (c-name "gtk_list_undo_selection") (return-type "none") ) (define-method end_drag_selection (of-object "GtkList") (c-name "gtk_list_end_drag_selection") (return-type "none") ) ;; From /opt/gnome2/include/gtk-2.0/gtk/gtklistitem.h (define-function gtk_list_item_get_type (c-name "gtk_list_item_get_type") (return-type "GtkType") ) (define-function gtk_list_item_new (c-name "gtk_list_item_new") (is-constructor-of "GtkListItem") (return-type "GtkWidget*") ) (define-function gtk_list_item_new_with_label (c-name "gtk_list_item_new_with_label") (return-type "GtkWidget*") (parameters '("const-gchar*" "label") ) ) (define-method select (of-object "GtkListItem") (c-name "gtk_list_item_select") (return-type "none") ) (define-method deselect (of-object "GtkListItem") (c-name "gtk_list_item_deselect") (return-type "none") ) ;; From /opt/gnome2/include/gtk-2.0/gtk/gtkliststore.h (define-function gtk_list_store_get_type (c-name "gtk_list_store_get_type") (return-type "GType") ) (define-function gtk_list_store_new (c-name "gtk_list_store_new") (is-constructor-of "GtkListStore") (return-type "GtkListStore*") (parameters '("gint" "n_columns") ) (varargs #t) ) (define-function gtk_list_store_newv (c-name "gtk_list_store_newv") (return-type "GtkListStore*") (parameters '("gint" "n_columns") '("GType*" "types") ) ) (define-method set_column_types (of-object "GtkListStore") (c-name "gtk_list_store_set_column_types") (return-type "none") (parameters '("gint" "n_columns") '("GType*" "types") ) ) (define-method set_value (of-object "GtkListStore") (c-name "gtk_list_store_set_value") (return-type "none") (parameters '("GtkTreeIter*" "iter") '("gint" "column") '("GValue*" "value") ) ) (define-method set (of-object "GtkListStore") (c-name "gtk_list_store_set") (return-type "none") (parameters '("GtkTreeIter*" "iter") ) (varargs #t) ) (define-method set_valist (of-object "GtkListStore") (c-name "gtk_list_store_set_valist") (return-type "none") (parameters '("GtkTreeIter*" "iter") '("va_list" "var_args") ) ) (define-method remove (of-object "GtkListStore") (c-name "gtk_list_store_remove") (return-type "gboolean") (parameters '("GtkTreeIter*" "iter") ) ) (define-method insert (of-object "GtkListStore") (c-name "gtk_list_store_insert") (return-type "none") (parameters '("GtkTreeIter*" "iter") '("gint" "position") ) ) (define-method insert_before (of-object "GtkListStore") (c-name "gtk_list_store_insert_before") (return-type "none") (parameters '("GtkTreeIter*" "iter") '("GtkTreeIter*" "sibling") ) ) (define-method insert_after (of-object "GtkListStore") (c-name "gtk_list_store_insert_after") (return-type "none") (parameters '("GtkTreeIter*" "iter") '("GtkTreeIter*" "sibling") ) ) (define-method insert_with_values (of-object "GtkListStore") (c-name "gtk_list_store_insert_with_values") (return-type "none") (parameters '("GtkTreeIter*" "iter") '("gint" "position") ) (varargs #t) ) (define-method insert_with_valuesv (of-object "GtkListStore") (c-name "gtk_list_store_insert_with_valuesv") (return-type "none") (parameters '("GtkTreeIter*" "iter") '("gint" "position") '("gint*" "columns") '("GValue*" "values") '("gint" "n_values") ) ) (define-method prepend (of-object "GtkListStore") (c-name "gtk_list_store_prepend") (return-type "none") (parameters '("GtkTreeIter*" "iter") ) ) (define-method append (of-object "GtkListStore") (c-name "gtk_list_store_append") (return-type "none") (parameters '("GtkTreeIter*" "iter") ) ) (define-method clear (of-object "GtkListStore") (c-name "gtk_list_store_clear") (return-type "none") ) (define-method iter_is_valid (of-object "GtkListStore") (c-name "gtk_list_store_iter_is_valid") (return-type "gboolean") (parameters '("GtkTreeIter*" "iter") ) ) (define-method reorder (of-object "GtkListStore") (c-name "gtk_list_store_reorder") (return-type "none") (parameters '("gint*" "new_order") ) ) (define-method swap (of-object "GtkListStore") (c-name "gtk_list_store_swap") (return-type "none") (parameters '("GtkTreeIter*" "a") '("GtkTreeIter*" "b") ) ) (define-method move_after (of-object "GtkListStore") (c-name "gtk_list_store_move_after") (return-type "none") (parameters '("GtkTreeIter*" "iter") '("GtkTreeIter*" "position") ) ) (define-method move_before (of-object "GtkListStore") (c-name "gtk_list_store_move_before") (return-type "none") (parameters '("GtkTreeIter*" "iter") '("GtkTreeIter*" "position") ) ) ;; From /opt/gnome2/include/gtk-2.0/gtk/gtkmain.h (define-function gtk_check_version (c-name "gtk_check_version") (return-type "gchar*") (parameters '("guint" "required_major") '("guint" "required_minor") '("guint" "required_micro") ) ) (define-function gtk_parse_args (c-name "gtk_parse_args") (return-type "gboolean") (parameters '("int*" "argc") '("char***" "argv") ) ) (define-function gtk_init (c-name "gtk_init") (return-type "none") (parameters '("int*" "argc") '("char***" "argv") ) ) (define-function gtk_init_check (c-name "gtk_init_check") (return-type "gboolean") (parameters '("int*" "argc") '("char***" "argv") ) ) (define-function gtk_init_with_args (c-name "gtk_init_with_args") (return-type "gboolean") (parameters '("int*" "argc") '("char***" "argv") '("char*" "parameter_string") '("GOptionEntry*" "entries") '("char*" "translation_domain") '("GError**" "error") ) ) (define-function gtk_get_option_group (c-name "gtk_get_option_group") (return-type "GOptionGroup*") (parameters '("gboolean" "open_default_display") ) ) (define-function gtk_init_abi_check (c-name "gtk_init_abi_check") (return-type "none") (parameters '("int*" "argc") '("char***" "argv") '("int" "num_checks") '("size_t" "sizeof_GtkWindow") '("size_t" "sizeof_GtkBox") ) ) (define-function gtk_init_check_abi_check (c-name "gtk_init_check_abi_check") (return-type "gboolean") (parameters '("int*" "argc") '("char***" "argv") '("int" "num_checks") '("size_t" "sizeof_GtkWindow") '("size_t" "sizeof_GtkBox") ) ) (define-function gtk_exit (c-name "gtk_exit") (return-type "none") (parameters '("gint" "error_code") ) ) (define-function gtk_disable_setlocale (c-name "gtk_disable_setlocale") (return-type "none") ) (define-function gtk_set_locale (c-name "gtk_set_locale") (return-type "gchar*") ) (define-function gtk_get_default_language (c-name "gtk_get_default_language") (return-type "PangoLanguage*") ) (define-function gtk_events_pending (c-name "gtk_events_pending") (return-type "gboolean") ) (define-function gtk_main_do_event (c-name "gtk_main_do_event") (return-type "none") (parameters '("GdkEvent*" "event") ) ) (define-function gtk_main (c-name "gtk_main") (return-type "none") ) (define-function gtk_main_level (c-name "gtk_main_level") (return-type "guint") ) (define-function gtk_main_quit (c-name "gtk_main_quit") (return-type "none") ) (define-function gtk_main_iteration (c-name "gtk_main_iteration") (return-type "gboolean") ) (define-function gtk_main_iteration_do (c-name "gtk_main_iteration_do") (return-type "gboolean") (parameters '("gboolean" "blocking") ) ) (define-function gtk_true (c-name "gtk_true") (return-type "gboolean") ) (define-function gtk_false (c-name "gtk_false") (return-type "gboolean") ) (define-function gtk_grab_add (c-name "gtk_grab_add") (return-type "none") (parameters '("GtkWidget*" "widget") ) ) (define-function gtk_grab_get_current (c-name "gtk_grab_get_current") (return-type "GtkWidget*") ) (define-function gtk_grab_remove (c-name "gtk_grab_remove") (return-type "none") (parameters '("GtkWidget*" "widget") ) ) (define-function gtk_init_add (c-name "gtk_init_add") (return-type "none") (parameters '("GtkFunction" "function") '("gpointer" "data") ) ) (define-function gtk_quit_add_destroy (c-name "gtk_quit_add_destroy") (return-type "none") (parameters '("guint" "main_level") '("GtkObject*" "object") ) ) (define-function gtk_quit_add (c-name "gtk_quit_add") (return-type "guint") (parameters '("guint" "main_level") '("GtkFunction" "function") '("gpointer" "data") ) ) (define-function gtk_quit_add_full (c-name "gtk_quit_add_full") (return-type "guint") (parameters '("guint" "main_level") '("GtkFunction" "function") '("GtkCallbackMarshal" "marshal") '("gpointer" "data") '("GtkDestroyNotify" "destroy") ) ) (define-function gtk_quit_remove (c-name "gtk_quit_remove") (return-type "none") (parameters '("guint" "quit_handler_id") ) ) (define-function gtk_quit_remove_by_data (c-name "gtk_quit_remove_by_data") (return-type "none") (parameters '("gpointer" "data") ) ) (define-function gtk_timeout_add (c-name "gtk_timeout_add") (return-type "guint") (parameters '("guint32" "interval") '("GtkFunction" "function") '("gpointer" "data") ) ) (define-function gtk_timeout_add_full (c-name "gtk_timeout_add_full") (return-type "guint") (parameters '("guint32" "interval") '("GtkFunction" "function") '("GtkCallbackMarshal" "marshal") '("gpointer" "data") '("GtkDestroyNotify" "destroy") ) ) (define-function gtk_timeout_remove (c-name "gtk_timeout_remove") (return-type "none") (parameters '("guint" "timeout_handler_id") ) ) (define-function gtk_idle_add (c-name "gtk_idle_add") (return-type "guint") (parameters '("GtkFunction" "function") '("gpointer" "data") ) ) (define-function gtk_idle_add_priority (c-name "gtk_idle_add_priority") (return-type "guint") (parameters '("gint" "priority") '("GtkFunction" "function") '("gpointer" "data") ) ) (define-function gtk_idle_add_full (c-name "gtk_idle_add_full") (return-type "guint") (parameters '("gint" "priority") '("GtkFunction" "function") '("GtkCallbackMarshal" "marshal") '("gpointer" "data") '("GtkDestroyNotify" "destroy") ) ) (define-function gtk_idle_remove (c-name "gtk_idle_remove") (return-type "none") (parameters '("guint" "idle_handler_id") ) ) (define-function gtk_idle_remove_by_data (c-name "gtk_idle_remove_by_data") (return-type "none") (parameters '("gpointer" "data") ) ) (define-function gtk_input_add_full (c-name "gtk_input_add_full") (return-type "guint") (parameters '("gint" "source") '("GdkInputCondition" "condition") '("GdkInputFunction" "function") '("GtkCallbackMarshal" "marshal") '("gpointer" "data") '("GtkDestroyNotify" "destroy") ) ) (define-function gtk_input_remove (c-name "gtk_input_remove") (return-type "none") (parameters '("guint" "input_handler_id") ) ) (define-function gtk_key_snooper_install (c-name "gtk_key_snooper_install") (return-type "guint") (parameters '("GtkKeySnoopFunc" "snooper") '("gpointer" "func_data") ) ) (define-function gtk_key_snooper_remove (c-name "gtk_key_snooper_remove") (return-type "none") (parameters '("guint" "snooper_handler_id") ) ) (define-function gtk_get_current_event (c-name "gtk_get_current_event") (return-type "GdkEvent*") ) (define-function gtk_get_current_event_time (c-name "gtk_get_current_event_time") (return-type "guint32") ) (define-function gtk_get_current_event_state (c-name "gtk_get_current_event_state") (return-type "gboolean") (parameters '("GdkModifierType*" "state") ) ) (define-function gtk_get_event_widget (c-name "gtk_get_event_widget") (return-type "GtkWidget*") (parameters '("GdkEvent*" "event") ) ) (define-function gtk_propagate_event (c-name "gtk_propagate_event") (return-type "none") (parameters '("GtkWidget*" "widget") '("GdkEvent*" "event") ) ) (define-function _gtk_boolean_handled_accumulator (c-name "_gtk_boolean_handled_accumulator") (return-type "gboolean") (parameters '("GSignalInvocationHint*" "ihint") '("GValue*" "return_accu") '("const-GValue*" "handler_return") '("gpointer" "dummy") ) ) (define-function _gtk_get_lc_ctype (c-name "_gtk_get_lc_ctype") (return-type "gchar*") ) ;; From /opt/gnome2/include/gtk-2.0/gtk/gtkmarshal.h (define-function gtk_marshal_BOOLEAN__VOID (c-name "gtk_marshal_BOOLEAN__VOID") (return-type "extern-void") (parameters '("GClosure*" "closure") '("GValue*" "return_value") '("guint" "n_param_values") '("const-GValue*" "param_values") '("gpointer" "invocation_hint") '("gpointer" "marshal_data") ) ) (define-function gtk_marshal_BOOLEAN__POINTER (c-name "gtk_marshal_BOOLEAN__POINTER") (return-type "extern-void") (parameters '("GClosure*" "closure") '("GValue*" "return_value") '("guint" "n_param_values") '("const-GValue*" "param_values") '("gpointer" "invocation_hint") '("gpointer" "marshal_data") ) ) (define-function gtk_marshal_BOOLEAN__POINTER_POINTER_INT_INT (c-name "gtk_marshal_BOOLEAN__POINTER_POINTER_INT_INT") (return-type "extern-void") (parameters '("GClosure*" "closure") '("GValue*" "return_value") '("guint" "n_param_values") '("const-GValue*" "param_values") '("gpointer" "invocation_hint") '("gpointer" "marshal_data") ) ) (define-function gtk_marshal_BOOLEAN__POINTER_INT_INT (c-name "gtk_marshal_BOOLEAN__POINTER_INT_INT") (return-type "extern-void") (parameters '("GClosure*" "closure") '("GValue*" "return_value") '("guint" "n_param_values") '("const-GValue*" "param_values") '("gpointer" "invocation_hint") '("gpointer" "marshal_data") ) ) (define-function gtk_marshal_BOOLEAN__POINTER_INT_INT_UINT (c-name "gtk_marshal_BOOLEAN__POINTER_INT_INT_UINT") (return-type "extern-void") (parameters '("GClosure*" "closure") '("GValue*" "return_value") '("guint" "n_param_values") '("const-GValue*" "param_values") '("gpointer" "invocation_hint") '("gpointer" "marshal_data") ) ) (define-function gtk_marshal_BOOLEAN__POINTER_STRING_STRING_POINTER (c-name "gtk_marshal_BOOLEAN__POINTER_STRING_STRING_POINTER") (return-type "extern-void") (parameters '("GClosure*" "closure") '("GValue*" "return_value") '("guint" "n_param_values") '("const-GValue*" "param_values") '("gpointer" "invocation_hint") '("gpointer" "marshal_data") ) ) (define-function gtk_marshal_ENUM__ENUM (c-name "gtk_marshal_ENUM__ENUM") (return-type "extern-void") (parameters '("GClosure*" "closure") '("GValue*" "return_value") '("guint" "n_param_values") '("const-GValue*" "param_values") '("gpointer" "invocation_hint") '("gpointer" "marshal_data") ) ) (define-function gtk_marshal_INT__POINTER (c-name "gtk_marshal_INT__POINTER") (return-type "extern-void") (parameters '("GClosure*" "closure") '("GValue*" "return_value") '("guint" "n_param_values") '("const-GValue*" "param_values") '("gpointer" "invocation_hint") '("gpointer" "marshal_data") ) ) (define-function gtk_marshal_INT__POINTER_CHAR_CHAR (c-name "gtk_marshal_INT__POINTER_CHAR_CHAR") (return-type "extern-void") (parameters '("GClosure*" "closure") '("GValue*" "return_value") '("guint" "n_param_values") '("const-GValue*" "param_values") '("gpointer" "invocation_hint") '("gpointer" "marshal_data") ) ) (define-function gtk_marshal_VOID__ENUM_FLOAT (c-name "gtk_marshal_VOID__ENUM_FLOAT") (return-type "extern-void") (parameters '("GClosure*" "closure") '("GValue*" "return_value") '("guint" "n_param_values") '("const-GValue*" "param_values") '("gpointer" "invocation_hint") '("gpointer" "marshal_data") ) ) (define-function gtk_marshal_VOID__ENUM_FLOAT_BOOLEAN (c-name "gtk_marshal_VOID__ENUM_FLOAT_BOOLEAN") (return-type "extern-void") (parameters '("GClosure*" "closure") '("GValue*" "return_value") '("guint" "n_param_values") '("const-GValue*" "param_values") '("gpointer" "invocation_hint") '("gpointer" "marshal_data") ) ) (define-function gtk_marshal_VOID__INT_INT (c-name "gtk_marshal_VOID__INT_INT") (return-type "extern-void") (parameters '("GClosure*" "closure") '("GValue*" "return_value") '("guint" "n_param_values") '("const-GValue*" "param_values") '("gpointer" "invocation_hint") '("gpointer" "marshal_data") ) ) (define-function gtk_marshal_VOID__INT_INT_POINTER (c-name "gtk_marshal_VOID__INT_INT_POINTER") (return-type "extern-void") (parameters '("GClosure*" "closure") '("GValue*" "return_value") '("guint" "n_param_values") '("const-GValue*" "param_values") '("gpointer" "invocation_hint") '("gpointer" "marshal_data") ) ) (define-function gtk_marshal_VOID__POINTER_INT (c-name "gtk_marshal_VOID__POINTER_INT") (return-type "extern-void") (parameters '("GClosure*" "closure") '("GValue*" "return_value") '("guint" "n_param_values") '("const-GValue*" "param_values") '("gpointer" "invocation_hint") '("gpointer" "marshal_data") ) ) (define-function gtk_marshal_VOID__POINTER_POINTER (c-name "gtk_marshal_VOID__POINTER_POINTER") (return-type "extern-void") (parameters '("GClosure*" "closure") '("GValue*" "return_value") '("guint" "n_param_values") '("const-GValue*" "param_values") '("gpointer" "invocation_hint") '("gpointer" "marshal_data") ) ) (define-function gtk_marshal_VOID__POINTER_POINTER_POINTER (c-name "gtk_marshal_VOID__POINTER_POINTER_POINTER") (return-type "extern-void") (parameters '("GClosure*" "closure") '("GValue*" "return_value") '("guint" "n_param_values") '("const-GValue*" "param_values") '("gpointer" "invocation_hint") '("gpointer" "marshal_data") ) ) (define-function gtk_marshal_VOID__POINTER_STRING_STRING (c-name "gtk_marshal_VOID__POINTER_STRING_STRING") (return-type "extern-void") (parameters '("GClosure*" "closure") '("GValue*" "return_value") '("guint" "n_param_values") '("const-GValue*" "param_values") '("gpointer" "invocation_hint") '("gpointer" "marshal_data") ) ) (define-function gtk_marshal_VOID__POINTER_UINT (c-name "gtk_marshal_VOID__POINTER_UINT") (return-type "extern-void") (parameters '("GClosure*" "closure") '("GValue*" "return_value") '("guint" "n_param_values") '("const-GValue*" "param_values") '("gpointer" "invocation_hint") '("gpointer" "marshal_data") ) ) (define-function gtk_marshal_VOID__POINTER_UINT_ENUM (c-name "gtk_marshal_VOID__POINTER_UINT_ENUM") (return-type "extern-void") (parameters '("GClosure*" "closure") '("GValue*" "return_value") '("guint" "n_param_values") '("const-GValue*" "param_values") '("gpointer" "invocation_hint") '("gpointer" "marshal_data") ) ) (define-function gtk_marshal_VOID__POINTER_POINTER_UINT_UINT (c-name "gtk_marshal_VOID__POINTER_POINTER_UINT_UINT") (return-type "extern-void") (parameters '("GClosure*" "closure") '("GValue*" "return_value") '("guint" "n_param_values") '("const-GValue*" "param_values") '("gpointer" "invocation_hint") '("gpointer" "marshal_data") ) ) (define-function gtk_marshal_VOID__POINTER_INT_INT_POINTER_UINT_UINT (c-name "gtk_marshal_VOID__POINTER_INT_INT_POINTER_UINT_UINT") (return-type "extern-void") (parameters '("GClosure*" "closure") '("GValue*" "return_value") '("guint" "n_param_values") '("const-GValue*" "param_values") '("gpointer" "invocation_hint") '("gpointer" "marshal_data") ) ) (define-function gtk_marshal_VOID__POINTER_UINT_UINT (c-name "gtk_marshal_VOID__POINTER_UINT_UINT") (return-type "extern-void") (parameters '("GClosure*" "closure") '("GValue*" "return_value") '("guint" "n_param_values") '("const-GValue*" "param_values") '("gpointer" "invocation_hint") '("gpointer" "marshal_data") ) ) (define-function gtk_marshal_VOID__STRING_INT_POINTER (c-name "gtk_marshal_VOID__STRING_INT_POINTER") (return-type "extern-void") (parameters '("GClosure*" "closure") '("GValue*" "return_value") '("guint" "n_param_values") '("const-GValue*" "param_values") '("gpointer" "invocation_hint") '("gpointer" "marshal_data") ) ) (define-function gtk_marshal_VOID__UINT_POINTER_UINT_ENUM_ENUM_POINTER (c-name "gtk_marshal_VOID__UINT_POINTER_UINT_ENUM_ENUM_POINTER") (return-type "extern-void") (parameters '("GClosure*" "closure") '("GValue*" "return_value") '("guint" "n_param_values") '("const-GValue*" "param_values") '("gpointer" "invocation_hint") '("gpointer" "marshal_data") ) ) (define-function gtk_marshal_VOID__UINT_POINTER_UINT_UINT_ENUM (c-name "gtk_marshal_VOID__UINT_POINTER_UINT_UINT_ENUM") (return-type "extern-void") (parameters '("GClosure*" "closure") '("GValue*" "return_value") '("guint" "n_param_values") '("const-GValue*" "param_values") '("gpointer" "invocation_hint") '("gpointer" "marshal_data") ) ) (define-function gtk_marshal_VOID__UINT_STRING (c-name "gtk_marshal_VOID__UINT_STRING") (return-type "extern-void") (parameters '("GClosure*" "closure") '("GValue*" "return_value") '("guint" "n_param_values") '("const-GValue*" "param_values") '("gpointer" "invocation_hint") '("gpointer" "marshal_data") ) ) ;; From /opt/gnome2/include/gtk-2.0/gtk/gtkmenubar.h (define-function gtk_menu_bar_get_type (c-name "gtk_menu_bar_get_type") (return-type "GType") ) (define-function gtk_menu_bar_new (c-name "gtk_menu_bar_new") (is-constructor-of "GtkMenuBar") (return-type "GtkWidget*") ) (define-method get_pack_direction (of-object "GtkMenuBar") (c-name "gtk_menu_bar_get_pack_direction") (return-type "GtkPackDirection") ) (define-method set_pack_direction (of-object "GtkMenuBar") (c-name "gtk_menu_bar_set_pack_direction") (return-type "none") (parameters '("GtkPackDirection" "pack_dir") ) ) (define-method get_child_pack_direction (of-object "GtkMenuBar") (c-name "gtk_menu_bar_get_child_pack_direction") (return-type "GtkPackDirection") ) (define-method set_child_pack_direction (of-object "GtkMenuBar") (c-name "gtk_menu_bar_set_child_pack_direction") (return-type "none") (parameters '("GtkPackDirection" "child_pack_dir") ) ) (define-method _cycle_focus (of-object "GtkMenuBar") (c-name "_gtk_menu_bar_cycle_focus") (return-type "none") (parameters '("GtkDirectionType" "dir") ) ) ;; From /opt/gnome2/include/gtk-2.0/gtk/gtkmenu.h (define-function gtk_menu_get_type (c-name "gtk_menu_get_type") (return-type "GType") ) (define-function gtk_menu_new (c-name "gtk_menu_new") (is-constructor-of "GtkMenu") (return-type "GtkWidget*") ) (define-method popup (of-object "GtkMenu") (c-name "gtk_menu_popup") (return-type "none") (parameters '("GtkWidget*" "parent_menu_shell") '("GtkWidget*" "parent_menu_item") '("GtkMenuPositionFunc" "func") '("gpointer" "data") '("guint" "button") '("guint32" "activate_time") ) ) (define-method reposition (of-object "GtkMenu") (c-name "gtk_menu_reposition") (return-type "none") ) (define-method popdown (of-object "GtkMenu") (c-name "gtk_menu_popdown") (return-type "none") ) (define-method get_active (of-object "GtkMenu") (c-name "gtk_menu_get_active") (return-type "GtkWidget*") ) (define-method set_active (of-object "GtkMenu") (c-name "gtk_menu_set_active") (return-type "none") (parameters '("guint" "index_") ) ) (define-method set_accel_group (of-object "GtkMenu") (c-name "gtk_menu_set_accel_group") (return-type "none") (parameters '("GtkAccelGroup*" "accel_group") ) ) (define-method get_accel_group (of-object "GtkMenu") (c-name "gtk_menu_get_accel_group") (return-type "GtkAccelGroup*") ) (define-method set_accel_path (of-object "GtkMenu") (c-name "gtk_menu_set_accel_path") (return-type "none") (parameters '("const-gchar*" "accel_path") ) ) (define-method attach_to_widget (of-object "GtkMenu") (c-name "gtk_menu_attach_to_widget") (return-type "none") (parameters '("GtkWidget*" "attach_widget") '("GtkMenuDetachFunc" "detacher") ) ) (define-method detach (of-object "GtkMenu") (c-name "gtk_menu_detach") (return-type "none") ) (define-method get_attach_widget (of-object "GtkMenu") (c-name "gtk_menu_get_attach_widget") (return-type "GtkWidget*") ) (define-method set_tearoff_state (of-object "GtkMenu") (c-name "gtk_menu_set_tearoff_state") (return-type "none") (parameters '("gboolean" "torn_off") ) ) (define-method get_tearoff_state (of-object "GtkMenu") (c-name "gtk_menu_get_tearoff_state") (return-type "gboolean") ) (define-method set_title (of-object "GtkMenu") (c-name "gtk_menu_set_title") (return-type "none") (parameters '("const-gchar*" "title") ) ) (define-method get_title (of-object "GtkMenu") (c-name "gtk_menu_get_title") (return-type "const-gchar*") ) (define-method reorder_child (of-object "GtkMenu") (c-name "gtk_menu_reorder_child") (return-type "none") (parameters '("GtkWidget*" "child") '("gint" "position") ) ) (define-method set_screen (of-object "GtkMenu") (c-name "gtk_menu_set_screen") (return-type "none") (parameters '("GdkScreen*" "screen") ) ) (define-method attach (of-object "GtkMenu") (c-name "gtk_menu_attach") (return-type "none") (parameters '("GtkWidget*" "child") '("guint" "left_attach") '("guint" "right_attach") '("guint" "top_attach") '("guint" "bottom_attach") ) ) (define-method set_monitor (of-object "GtkMenu") (c-name "gtk_menu_set_monitor") (return-type "none") (parameters '("gint" "monitor_num") ) ) (define-function gtk_menu_get_for_attach_widget (c-name "gtk_menu_get_for_attach_widget") (return-type "GList*") (parameters '("GtkWidget*" "widget") ) ) ;; From /opt/gnome2/include/gtk-2.0/gtk/gtkmenuitem.h (define-function gtk_menu_item_get_type (c-name "gtk_menu_item_get_type") (return-type "GType") ) (define-function gtk_menu_item_new (c-name "gtk_menu_item_new") (is-constructor-of "GtkMenuItem") (return-type "GtkWidget*") ) (define-function gtk_menu_item_new_with_label (c-name "gtk_menu_item_new_with_label") (return-type "GtkWidget*") (parameters '("const-gchar*" "label") ) ) (define-function gtk_menu_item_new_with_mnemonic (c-name "gtk_menu_item_new_with_mnemonic") (return-type "GtkWidget*") (parameters '("const-gchar*" "label") ) ) (define-method set_submenu (of-object "GtkMenuItem") (c-name "gtk_menu_item_set_submenu") (return-type "none") (parameters '("GtkWidget*" "submenu") ) ) (define-method get_submenu (of-object "GtkMenuItem") (c-name "gtk_menu_item_get_submenu") (return-type "GtkWidget*") ) (define-method remove_submenu (of-object "GtkMenuItem") (c-name "gtk_menu_item_remove_submenu") (return-type "none") ) (define-method select (of-object "GtkMenuItem") (c-name "gtk_menu_item_select") (return-type "none") ) (define-method deselect (of-object "GtkMenuItem") (c-name "gtk_menu_item_deselect") (return-type "none") ) (define-method activate (of-object "GtkMenuItem") (c-name "gtk_menu_item_activate") (return-type "none") ) (define-method toggle_size_request (of-object "GtkMenuItem") (c-name "gtk_menu_item_toggle_size_request") (return-type "none") (parameters '("gint*" "requisition") ) ) (define-method toggle_size_allocate (of-object "GtkMenuItem") (c-name "gtk_menu_item_toggle_size_allocate") (return-type "none") (parameters '("gint" "allocation") ) ) (define-method set_right_justified (of-object "GtkMenuItem") (c-name "gtk_menu_item_set_right_justified") (return-type "none") (parameters '("gboolean" "right_justified") ) ) (define-method get_right_justified (of-object "GtkMenuItem") (c-name "gtk_menu_item_get_right_justified") (return-type "gboolean") ) (define-method set_accel_path (of-object "GtkMenuItem") (c-name "gtk_menu_item_set_accel_path") (return-type "none") (parameters '("const-gchar*" "accel_path") ) ) (define-method _refresh_accel_path (of-object "GtkMenuItem") (c-name "_gtk_menu_item_refresh_accel_path") (return-type "none") (parameters '("const-gchar*" "prefix") '("GtkAccelGroup*" "accel_group") '("gboolean" "group_changed") ) ) (define-function _gtk_menu_item_is_selectable (c-name "_gtk_menu_item_is_selectable") (return-type "gboolean") (parameters '("GtkWidget*" "menu_item") ) ) (define-function _gtk_menu_item_popup_submenu (c-name "_gtk_menu_item_popup_submenu") (return-type "none") (parameters '("GtkWidget*" "menu_item") ) ) ;; From /opt/gnome2/include/gtk-2.0/gtk/gtkmenushell.h (define-function gtk_menu_shell_get_type (c-name "gtk_menu_shell_get_type") (return-type "GType") ) (define-method append (of-object "GtkMenuShell") (c-name "gtk_menu_shell_append") (return-type "none") (parameters '("GtkWidget*" "child") ) ) (define-method prepend (of-object "GtkMenuShell") (c-name "gtk_menu_shell_prepend") (return-type "none") (parameters '("GtkWidget*" "child") ) ) (define-method insert (of-object "GtkMenuShell") (c-name "gtk_menu_shell_insert") (return-type "none") (parameters '("GtkWidget*" "child") '("gint" "position") ) ) (define-method deactivate (of-object "GtkMenuShell") (c-name "gtk_menu_shell_deactivate") (return-type "none") ) (define-method select_item (of-object "GtkMenuShell") (c-name "gtk_menu_shell_select_item") (return-type "none") (parameters '("GtkWidget*" "menu_item") ) ) (define-method deselect (of-object "GtkMenuShell") (c-name "gtk_menu_shell_deselect") (return-type "none") ) (define-method activate_item (of-object "GtkMenuShell") (c-name "gtk_menu_shell_activate_item") (return-type "none") (parameters '("GtkWidget*" "menu_item") '("gboolean" "force_deactivate") ) ) (define-method select_first (of-object "GtkMenuShell") (c-name "gtk_menu_shell_select_first") (return-type "none") (parameters '("gboolean" "search_sensitive") ) ) (define-method _select_last (of-object "GtkMenuShell") (c-name "_gtk_menu_shell_select_last") (return-type "none") (parameters '("gboolean" "search_sensitive") ) ) (define-method _activate (of-object "GtkMenuShell") (c-name "_gtk_menu_shell_activate") (return-type "none") ) (define-method _get_popup_delay (of-object "GtkMenuShell") (c-name "_gtk_menu_shell_get_popup_delay") (return-type "gint") ) (define-method cancel (of-object "GtkMenuShell") (c-name "gtk_menu_shell_cancel") (return-type "none") ) (define-method _add_mnemonic (of-object "GtkMenuShell") (c-name "_gtk_menu_shell_add_mnemonic") (return-type "none") (parameters '("guint" "keyval") '("GtkWidget*" "target") ) ) (define-method _remove_mnemonic (of-object "GtkMenuShell") (c-name "_gtk_menu_shell_remove_mnemonic") (return-type "none") (parameters '("guint" "keyval") '("GtkWidget*" "target") ) ) (define-method get_take_focus (of-object "GtkMenuShell") (c-name "gtk_menu_shell_get_take_focus") (return-type "gboolean") ) (define-method set_take_focus (of-object "GtkMenuShell") (c-name "gtk_menu_shell_set_take_focus") (return-type "none") (parameters '("gboolean" "take_focus") ) ) ;; From /opt/gnome2/include/gtk-2.0/gtk/gtkmenutoolbutton.h (define-function gtk_menu_tool_button_get_type (c-name "gtk_menu_tool_button_get_type") (return-type "GType") ) (define-function gtk_menu_tool_button_new (c-name "gtk_menu_tool_button_new") (is-constructor-of "GtkMenuToolButton") (return-type "GtkToolItem*") (parameters '("GtkWidget*" "icon_widget") '("const-gchar*" "label") ) ) (define-function gtk_menu_tool_button_new_from_stock (c-name "gtk_menu_tool_button_new_from_stock") (return-type "GtkToolItem*") (parameters '("const-gchar*" "stock_id") ) ) (define-method set_menu (of-object "GtkMenuToolButton") (c-name "gtk_menu_tool_button_set_menu") (return-type "none") (parameters '("GtkWidget*" "menu") ) ) (define-method get_menu (of-object "GtkMenuToolButton") (c-name "gtk_menu_tool_button_get_menu") (return-type "GtkWidget*") ) (define-method set_arrow_tooltip (of-object "GtkMenuToolButton") (c-name "gtk_menu_tool_button_set_arrow_tooltip") (return-type "none") (parameters '("GtkTooltips*" "tooltips") '("const-gchar*" "tip_text") '("const-gchar*" "tip_private") ) ) ;; From /opt/gnome2/include/gtk-2.0/gtk/gtkmessagedialog.h (define-function gtk_message_dialog_get_type (c-name "gtk_message_dialog_get_type") (return-type "GType") ) (define-function gtk_message_dialog_new (c-name "gtk_message_dialog_new") (is-constructor-of "GtkMessageDialog") (return-type "GtkWidget*") (parameters '("GtkWindow*" "parent") '("GtkDialogFlags" "flags") '("GtkMessageType" "type") '("GtkButtonsType" "buttons") '("const-gchar*" "message_format") ) (varargs #t) ) (define-function gtk_message_dialog_new_with_markup (c-name "gtk_message_dialog_new_with_markup") (return-type "GtkWidget*") (parameters '("GtkWindow*" "parent") '("GtkDialogFlags" "flags") '("GtkMessageType" "type") '("GtkButtonsType" "buttons") '("const-gchar*" "message_format") ) (varargs #t) ) (define-method set_image (of-object "GtkMessageDialog") (c-name "gtk_message_dialog_set_image") (return-type "none") (parameters '("GtkWidget*" "image") ) ) (define-method set_markup (of-object "GtkMessageDialog") (c-name "gtk_message_dialog_set_markup") (return-type "none") (parameters '("const-gchar*" "str") ) ) (define-method format_secondary_text (of-object "GtkMessageDialog") (c-name "gtk_message_dialog_format_secondary_text") (return-type "none") (parameters '("const-gchar*" "message_format") ) (varargs #t) ) (define-method format_secondary_markup (of-object "GtkMessageDialog") (c-name "gtk_message_dialog_format_secondary_markup") (return-type "none") (parameters '("const-gchar*" "message_format") ) (varargs #t) ) ;; From /opt/gnome2/include/gtk-2.0/gtk/gtkmisc.h (define-function gtk_misc_get_type (c-name "gtk_misc_get_type") (return-type "GType") ) (define-method set_alignment (of-object "GtkMisc") (c-name "gtk_misc_set_alignment") (return-type "none") (parameters '("gfloat" "xalign") '("gfloat" "yalign") ) ) (define-method get_alignment (of-object "GtkMisc") (c-name "gtk_misc_get_alignment") (return-type "none") (parameters '("gfloat*" "xalign") '("gfloat*" "yalign") ) ) (define-method set_padding (of-object "GtkMisc") (c-name "gtk_misc_set_padding") (return-type "none") (parameters '("gint" "xpad") '("gint" "ypad") ) ) (define-method get_padding (of-object "GtkMisc") (c-name "gtk_misc_get_padding") (return-type "none") (parameters '("gint*" "xpad") '("gint*" "ypad") ) ) ;; From /opt/gnome2/include/gtk-2.0/gtk/gtkmodules.h (define-function _gtk_find_module (c-name "_gtk_find_module") (return-type "gchar*") (parameters '("const-gchar*" "name") '("const-gchar*" "type") ) ) (define-function _gtk_get_module_path (c-name "_gtk_get_module_path") (return-type "gchar**") (parameters '("const-gchar*" "type") ) ) (define-function _gtk_modules_init (c-name "_gtk_modules_init") (return-type "none") (parameters '("gint*" "argc") '("gchar***" "argv") '("const-gchar*" "gtk_modules_args") ) ) (define-function _gtk_modules_settings_changed (c-name "_gtk_modules_settings_changed") (return-type "none") (parameters '("GtkSettings*" "settings") '("const-gchar*" "modules") ) ) ;; From /opt/gnome2/include/gtk-2.0/gtk/gtknotebook.h (define-function gtk_notebook_get_type (c-name "gtk_notebook_get_type") (return-type "GType") ) (define-function gtk_notebook_new (c-name "gtk_notebook_new") (is-constructor-of "GtkNotebook") (return-type "GtkWidget*") ) (define-method append_page (of-object "GtkNotebook") (c-name "gtk_notebook_append_page") (return-type "gint") (parameters '("GtkWidget*" "child") '("GtkWidget*" "tab_label") ) ) (define-method append_page_menu (of-object "GtkNotebook") (c-name "gtk_notebook_append_page_menu") (return-type "gint") (parameters '("GtkWidget*" "child") '("GtkWidget*" "tab_label") '("GtkWidget*" "menu_label") ) ) (define-method prepend_page (of-object "GtkNotebook") (c-name "gtk_notebook_prepend_page") (return-type "gint") (parameters '("GtkWidget*" "child") '("GtkWidget*" "tab_label") ) ) (define-method prepend_page_menu (of-object "GtkNotebook") (c-name "gtk_notebook_prepend_page_menu") (return-type "gint") (parameters '("GtkWidget*" "child") '("GtkWidget*" "tab_label") '("GtkWidget*" "menu_label") ) ) (define-method insert_page (of-object "GtkNotebook") (c-name "gtk_notebook_insert_page") (return-type "gint") (parameters '("GtkWidget*" "child") '("GtkWidget*" "tab_label") '("gint" "position") ) ) (define-method insert_page_menu (of-object "GtkNotebook") (c-name "gtk_notebook_insert_page_menu") (return-type "gint") (parameters '("GtkWidget*" "child") '("GtkWidget*" "tab_label") '("GtkWidget*" "menu_label") '("gint" "position") ) ) (define-method remove_page (of-object "GtkNotebook") (c-name "gtk_notebook_remove_page") (return-type "none") (parameters '("gint" "page_num") ) ) (define-function gtk_notebook_set_window_creation_hook (c-name "gtk_notebook_set_window_creation_hook") (return-type "none") (parameters '("GtkNotebookWindowCreationFunc" "func") '("gpointer" "data") '("GDestroyNotify" "destroy") ) ) (define-method set_group_id (of-object "GtkNotebook") (c-name "gtk_notebook_set_group_id") (return-type "none") (parameters '("gint" "group_id") ) ) (define-method get_group_id (of-object "GtkNotebook") (c-name "gtk_notebook_get_group_id") (return-type "gint") ) (define-method get_current_page (of-object "GtkNotebook") (c-name "gtk_notebook_get_current_page") (return-type "gint") ) (define-method get_nth_page (of-object "GtkNotebook") (c-name "gtk_notebook_get_nth_page") (return-type "GtkWidget*") (parameters '("gint" "page_num") ) ) (define-method get_n_pages (of-object "GtkNotebook") (c-name "gtk_notebook_get_n_pages") (return-type "gint") ) (define-method page_num (of-object "GtkNotebook") (c-name "gtk_notebook_page_num") (return-type "gint") (parameters '("GtkWidget*" "child") ) ) (define-method set_current_page (of-object "GtkNotebook") (c-name "gtk_notebook_set_current_page") (return-type "none") (parameters '("gint" "page_num") ) ) (define-method next_page (of-object "GtkNotebook") (c-name "gtk_notebook_next_page") (return-type "none") ) (define-method prev_page (of-object "GtkNotebook") (c-name "gtk_notebook_prev_page") (return-type "none") ) (define-method set_show_border (of-object "GtkNotebook") (c-name "gtk_notebook_set_show_border") (return-type "none") (parameters '("gboolean" "show_border") ) ) (define-method get_show_border (of-object "GtkNotebook") (c-name "gtk_notebook_get_show_border") (return-type "gboolean") ) (define-method set_show_tabs (of-object "GtkNotebook") (c-name "gtk_notebook_set_show_tabs") (return-type "none") (parameters '("gboolean" "show_tabs") ) ) (define-method get_show_tabs (of-object "GtkNotebook") (c-name "gtk_notebook_get_show_tabs") (return-type "gboolean") ) (define-method set_tab_pos (of-object "GtkNotebook") (c-name "gtk_notebook_set_tab_pos") (return-type "none") (parameters '("GtkPositionType" "pos") ) ) (define-method get_tab_pos (of-object "GtkNotebook") (c-name "gtk_notebook_get_tab_pos") (return-type "GtkPositionType") ) (define-method set_homogeneous_tabs (of-object "GtkNotebook") (c-name "gtk_notebook_set_homogeneous_tabs") (return-type "none") (parameters '("gboolean" "homogeneous") ) ) (define-method set_tab_border (of-object "GtkNotebook") (c-name "gtk_notebook_set_tab_border") (return-type "none") (parameters '("guint" "border_width") ) ) (define-method set_tab_hborder (of-object "GtkNotebook") (c-name "gtk_notebook_set_tab_hborder") (return-type "none") (parameters '("guint" "tab_hborder") ) ) (define-method set_tab_vborder (of-object "GtkNotebook") (c-name "gtk_notebook_set_tab_vborder") (return-type "none") (parameters '("guint" "tab_vborder") ) ) (define-method set_scrollable (of-object "GtkNotebook") (c-name "gtk_notebook_set_scrollable") (return-type "none") (parameters '("gboolean" "scrollable") ) ) (define-method get_scrollable (of-object "GtkNotebook") (c-name "gtk_notebook_get_scrollable") (return-type "gboolean") ) (define-method popup_enable (of-object "GtkNotebook") (c-name "gtk_notebook_popup_enable") (return-type "none") ) (define-method popup_disable (of-object "GtkNotebook") (c-name "gtk_notebook_popup_disable") (return-type "none") ) (define-method get_tab_label (of-object "GtkNotebook") (c-name "gtk_notebook_get_tab_label") (return-type "GtkWidget*") (parameters '("GtkWidget*" "child") ) ) (define-method set_tab_label (of-object "GtkNotebook") (c-name "gtk_notebook_set_tab_label") (return-type "none") (parameters '("GtkWidget*" "child") '("GtkWidget*" "tab_label") ) ) (define-method set_tab_label_text (of-object "GtkNotebook") (c-name "gtk_notebook_set_tab_label_text") (return-type "none") (parameters '("GtkWidget*" "child") '("const-gchar*" "tab_text") ) ) (define-method get_tab_label_text (of-object "GtkNotebook") (c-name "gtk_notebook_get_tab_label_text") (return-type "const-gchar*") (parameters '("GtkWidget*" "child") ) ) (define-method get_menu_label (of-object "GtkNotebook") (c-name "gtk_notebook_get_menu_label") (return-type "GtkWidget*") (parameters '("GtkWidget*" "child") ) ) (define-method set_menu_label (of-object "GtkNotebook") (c-name "gtk_notebook_set_menu_label") (return-type "none") (parameters '("GtkWidget*" "child") '("GtkWidget*" "menu_label") ) ) (define-method set_menu_label_text (of-object "GtkNotebook") (c-name "gtk_notebook_set_menu_label_text") (return-type "none") (parameters '("GtkWidget*" "child") '("const-gchar*" "menu_text") ) ) (define-method get_menu_label_text (of-object "GtkNotebook") (c-name "gtk_notebook_get_menu_label_text") (return-type "const-gchar*") (parameters '("GtkWidget*" "child") ) ) (define-method query_tab_label_packing (of-object "GtkNotebook") (c-name "gtk_notebook_query_tab_label_packing") (return-type "none") (parameters '("GtkWidget*" "child") '("gboolean*" "expand") '("gboolean*" "fill") '("GtkPackType*" "pack_type") ) ) (define-method set_tab_label_packing (of-object "GtkNotebook") (c-name "gtk_notebook_set_tab_label_packing") (return-type "none") (parameters '("GtkWidget*" "child") '("gboolean" "expand") '("gboolean" "fill") '("GtkPackType" "pack_type") ) ) (define-method reorder_child (of-object "GtkNotebook") (c-name "gtk_notebook_reorder_child") (return-type "none") (parameters '("GtkWidget*" "child") '("gint" "position") ) ) (define-method get_tab_reorderable (of-object "GtkNotebook") (c-name "gtk_notebook_get_tab_reorderable") (return-type "gboolean") (parameters '("GtkWidget*" "child") ) ) (define-method set_tab_reorderable (of-object "GtkNotebook") (c-name "gtk_notebook_set_tab_reorderable") (return-type "none") (parameters '("GtkWidget*" "child") '("gboolean" "reorderable") ) ) (define-method get_tab_detachable (of-object "GtkNotebook") (c-name "gtk_notebook_get_tab_detachable") (return-type "gboolean") (parameters '("GtkWidget*" "child") ) ) (define-method set_tab_detachable (of-object "GtkNotebook") (c-name "gtk_notebook_set_tab_detachable") (return-type "none") (parameters '("GtkWidget*" "child") '("gboolean" "detachable") ) ) ;; From /opt/gnome2/include/gtk-2.0/gtk/gtkobject.h (define-function gtk_object_get_type (c-name "gtk_object_get_type") (return-type "GtkType") ) (define-method sink (of-object "GtkObject") (c-name "gtk_object_sink") (return-type "none") ) (define-method destroy (of-object "GtkObject") (c-name "gtk_object_destroy") (return-type "none") ) (define-function gtk_object_new (c-name "gtk_object_new") (is-constructor-of "GtkObject") (return-type "GtkObject*") (parameters '("GtkType" "type") '("const-gchar*" "first_property_name") ) (varargs #t) ) (define-method ref (of-object "GtkObject") (c-name "gtk_object_ref") (return-type "GtkObject*") ) (define-method unref (of-object "GtkObject") (c-name "gtk_object_unref") (return-type "none") ) (define-method weakref (of-object "GtkObject") (c-name "gtk_object_weakref") (return-type "none") (parameters '("GtkDestroyNotify" "notify") '("gpointer" "data") ) ) (define-method weakunref (of-object "GtkObject") (c-name "gtk_object_weakunref") (return-type "none") (parameters '("GtkDestroyNotify" "notify") '("gpointer" "data") ) ) (define-method set_data (of-object "GtkObject") (c-name "gtk_object_set_data") (return-type "none") (parameters '("const-gchar*" "key") '("gpointer" "data") ) ) (define-method set_data_full (of-object "GtkObject") (c-name "gtk_object_set_data_full") (return-type "none") (parameters '("const-gchar*" "key") '("gpointer" "data") '("GtkDestroyNotify" "destroy") ) ) (define-method remove_data (of-object "GtkObject") (c-name "gtk_object_remove_data") (return-type "none") (parameters '("const-gchar*" "key") ) ) (define-method get_data (of-object "GtkObject") (c-name "gtk_object_get_data") (return-type "gpointer") (parameters '("const-gchar*" "key") ) ) (define-method remove_no_notify (of-object "GtkObject") (c-name "gtk_object_remove_no_notify") (return-type "none") (parameters '("const-gchar*" "key") ) ) (define-method set_user_data (of-object "GtkObject") (c-name "gtk_object_set_user_data") (return-type "none") (parameters '("gpointer" "data") ) ) (define-method get_user_data (of-object "GtkObject") (c-name "gtk_object_get_user_data") (return-type "gpointer") ) (define-method set_data_by_id (of-object "GtkObject") (c-name "gtk_object_set_data_by_id") (return-type "none") (parameters '("GQuark" "data_id") '("gpointer" "data") ) ) (define-method set_data_by_id_full (of-object "GtkObject") (c-name "gtk_object_set_data_by_id_full") (return-type "none") (parameters '("GQuark" "data_id") '("gpointer" "data") '("GtkDestroyNotify" "destroy") ) ) (define-method get_data_by_id (of-object "GtkObject") (c-name "gtk_object_get_data_by_id") (return-type "gpointer") (parameters '("GQuark" "data_id") ) ) (define-method remove_data_by_id (of-object "GtkObject") (c-name "gtk_object_remove_data_by_id") (return-type "none") (parameters '("GQuark" "data_id") ) ) (define-method remove_no_notify_by_id (of-object "GtkObject") (c-name "gtk_object_remove_no_notify_by_id") (return-type "none") (parameters '("GQuark" "key_id") ) ) (define-method get (of-object "GtkObject") (c-name "gtk_object_get") (return-type "none") (parameters '("const-gchar*" "first_property_name") ) (varargs #t) ) (define-method set (of-object "GtkObject") (c-name "gtk_object_set") (return-type "none") (parameters '("const-gchar*" "first_property_name") ) (varargs #t) ) (define-function gtk_object_add_arg_type (c-name "gtk_object_add_arg_type") (return-type "none") (parameters '("const-gchar*" "arg_name") '("GtkType" "arg_type") '("guint" "arg_flags") '("guint" "arg_id") ) ) ;; From /opt/gnome2/include/gtk-2.0/gtk/gtkoldeditable.h (define-function gtk_old_editable_get_type (c-name "gtk_old_editable_get_type") (return-type "GtkType") ) (define-method claim_selection (of-object "GtkOldEditable") (c-name "gtk_old_editable_claim_selection") (return-type "none") (parameters '("gboolean" "claim") '("guint32" "time_") ) ) (define-method changed (of-object "GtkOldEditable") (c-name "gtk_old_editable_changed") (return-type "none") ) ;; From /opt/gnome2/include/gtk-2.0/gtk/gtkoptionmenu.h (define-function gtk_option_menu_get_type (c-name "gtk_option_menu_get_type") (return-type "GType") ) (define-function gtk_option_menu_new (c-name "gtk_option_menu_new") (is-constructor-of "GtkOptionMenu") (return-type "GtkWidget*") ) (define-method get_menu (of-object "GtkOptionMenu") (c-name "gtk_option_menu_get_menu") (return-type "GtkWidget*") ) (define-method set_menu (of-object "GtkOptionMenu") (c-name "gtk_option_menu_set_menu") (return-type "none") (parameters '("GtkWidget*" "menu") ) ) (define-method remove_menu (of-object "GtkOptionMenu") (c-name "gtk_option_menu_remove_menu") (return-type "none") ) (define-method get_history (of-object "GtkOptionMenu") (c-name "gtk_option_menu_get_history") (return-type "gint") ) (define-method set_history (of-object "GtkOptionMenu") (c-name "gtk_option_menu_set_history") (return-type "none") (parameters '("guint" "index_") ) ) ;; From /opt/gnome2/include/gtk-2.0/gtk/gtkpagesetup.h (define-function gtk_page_setup_get_type (c-name "gtk_page_setup_get_type") (return-type "GType") ) (define-function gtk_page_setup_new (c-name "gtk_page_setup_new") (is-constructor-of "GtkPageSetup") (return-type "GtkPageSetup*") ) (define-method copy (of-object "GtkPageSetup") (c-name "gtk_page_setup_copy") (return-type "GtkPageSetup*") ) (define-method get_orientation (of-object "GtkPageSetup") (c-name "gtk_page_setup_get_orientation") (return-type "GtkPageOrientation") ) (define-method set_orientation (of-object "GtkPageSetup") (c-name "gtk_page_setup_set_orientation") (return-type "none") (parameters '("GtkPageOrientation" "orientation") ) ) (define-method get_paper_size (of-object "GtkPageSetup") (c-name "gtk_page_setup_get_paper_size") (return-type "GtkPaperSize*") ) (define-method set_paper_size (of-object "GtkPageSetup") (c-name "gtk_page_setup_set_paper_size") (return-type "none") (parameters '("GtkPaperSize*" "size") ) ) (define-method get_top_margin (of-object "GtkPageSetup") (c-name "gtk_page_setup_get_top_margin") (return-type "gdouble") (parameters '("GtkUnit" "unit") ) ) (define-method set_top_margin (of-object "GtkPageSetup") (c-name "gtk_page_setup_set_top_margin") (return-type "none") (parameters '("gdouble" "margin") '("GtkUnit" "unit") ) ) (define-method get_bottom_margin (of-object "GtkPageSetup") (c-name "gtk_page_setup_get_bottom_margin") (return-type "gdouble") (parameters '("GtkUnit" "unit") ) ) (define-method set_bottom_margin (of-object "GtkPageSetup") (c-name "gtk_page_setup_set_bottom_margin") (return-type "none") (parameters '("gdouble" "margin") '("GtkUnit" "unit") ) ) (define-method get_left_margin (of-object "GtkPageSetup") (c-name "gtk_page_setup_get_left_margin") (return-type "gdouble") (parameters '("GtkUnit" "unit") ) ) (define-method set_left_margin (of-object "GtkPageSetup") (c-name "gtk_page_setup_set_left_margin") (return-type "none") (parameters '("gdouble" "margin") '("GtkUnit" "unit") ) ) (define-method get_right_margin (of-object "GtkPageSetup") (c-name "gtk_page_setup_get_right_margin") (return-type "gdouble") (parameters '("GtkUnit" "unit") ) ) (define-method set_right_margin (of-object "GtkPageSetup") (c-name "gtk_page_setup_set_right_margin") (return-type "none") (parameters '("gdouble" "margin") '("GtkUnit" "unit") ) ) (define-method set_paper_size_and_default_margins (of-object "GtkPageSetup") (c-name "gtk_page_setup_set_paper_size_and_default_margins") (return-type "none") (parameters '("GtkPaperSize*" "size") ) ) (define-method get_paper_width (of-object "GtkPageSetup") (c-name "gtk_page_setup_get_paper_width") (return-type "gdouble") (parameters '("GtkUnit" "unit") ) ) (define-method get_paper_height (of-object "GtkPageSetup") (c-name "gtk_page_setup_get_paper_height") (return-type "gdouble") (parameters '("GtkUnit" "unit") ) ) (define-method get_page_width (of-object "GtkPageSetup") (c-name "gtk_page_setup_get_page_width") (return-type "gdouble") (parameters '("GtkUnit" "unit") ) ) (define-method get_page_height (of-object "GtkPageSetup") (c-name "gtk_page_setup_get_page_height") (return-type "gdouble") (parameters '("GtkUnit" "unit") ) ) ;; From /opt/gnome2/include/gtk-2.0/gtk/gtkpaned.h (define-function gtk_paned_get_type (c-name "gtk_paned_get_type") (return-type "GType") ) (define-method add1 (of-object "GtkPaned") (c-name "gtk_paned_add1") (return-type "none") (parameters '("GtkWidget*" "child") ) ) (define-method add2 (of-object "GtkPaned") (c-name "gtk_paned_add2") (return-type "none") (parameters '("GtkWidget*" "child") ) ) (define-method pack1 (of-object "GtkPaned") (c-name "gtk_paned_pack1") (return-type "none") (parameters '("GtkWidget*" "child") '("gboolean" "resize") '("gboolean" "shrink") ) ) (define-method pack2 (of-object "GtkPaned") (c-name "gtk_paned_pack2") (return-type "none") (parameters '("GtkWidget*" "child") '("gboolean" "resize") '("gboolean" "shrink") ) ) (define-method get_position (of-object "GtkPaned") (c-name "gtk_paned_get_position") (return-type "gint") ) (define-method set_position (of-object "GtkPaned") (c-name "gtk_paned_set_position") (return-type "none") (parameters '("gint" "position") ) ) (define-method get_child1 (of-object "GtkPaned") (c-name "gtk_paned_get_child1") (return-type "GtkWidget*") ) (define-method get_child2 (of-object "GtkPaned") (c-name "gtk_paned_get_child2") (return-type "GtkWidget*") ) (define-method compute_position (of-object "GtkPaned") (c-name "gtk_paned_compute_position") (return-type "none") (parameters '("gint" "allocation") '("gint" "child1_req") '("gint" "child2_req") ) ) ;; From /opt/gnome2/include/gtk-2.0/gtk/gtkpapersize.h (define-function gtk_paper_size_get_type (c-name "gtk_paper_size_get_type") (return-type "GType") ) (define-function gtk_paper_size_new (c-name "gtk_paper_size_new") (is-constructor-of "GtkPaperSize") (return-type "GtkPaperSize*") (parameters '("const-gchar*" "name") ) ) (define-function gtk_paper_size_new_from_ppd (c-name "gtk_paper_size_new_from_ppd") (return-type "GtkPaperSize*") (parameters '("const-gchar*" "ppd_name") '("const-gchar*" "ppd_display_name") '("gdouble" "width") '("gdouble" "height") ) ) (define-function gtk_paper_size_new_custom (c-name "gtk_paper_size_new_custom") (return-type "GtkPaperSize*") (parameters '("const-gchar*" "name") '("const-gchar*" "display_name") '("gdouble" "width") '("gdouble" "height") '("GtkUnit" "unit") ) ) (define-method copy (of-object "GtkPaperSize") (c-name "gtk_paper_size_copy") (return-type "GtkPaperSize*") ) (define-method free (of-object "GtkPaperSize") (c-name "gtk_paper_size_free") (return-type "none") ) (define-method is_equal (of-object "GtkPaperSize") (c-name "gtk_paper_size_is_equal") (return-type "gboolean") (parameters '("GtkPaperSize*" "size2") ) ) (define-method get_name (of-object "GtkPaperSize") (c-name "gtk_paper_size_get_name") (return-type "const-gchar*") ) (define-method get_display_name (of-object "GtkPaperSize") (c-name "gtk_paper_size_get_display_name") (return-type "const-gchar*") ) (define-method get_ppd_name (of-object "GtkPaperSize") (c-name "gtk_paper_size_get_ppd_name") (return-type "const-gchar*") ) (define-method get_width (of-object "GtkPaperSize") (c-name "gtk_paper_size_get_width") (return-type "gdouble") (parameters '("GtkUnit" "unit") ) ) (define-method get_height (of-object "GtkPaperSize") (c-name "gtk_paper_size_get_height") (return-type "gdouble") (parameters '("GtkUnit" "unit") ) ) (define-method is_custom (of-object "GtkPaperSize") (c-name "gtk_paper_size_is_custom") (return-type "gboolean") ) (define-method set_size (of-object "GtkPaperSize") (c-name "gtk_paper_size_set_size") (return-type "none") (parameters '("gdouble" "width") '("gdouble" "height") '("GtkUnit" "unit") ) ) (define-method get_default_top_margin (of-object "GtkPaperSize") (c-name "gtk_paper_size_get_default_top_margin") (return-type "gdouble") (parameters '("GtkUnit" "unit") ) ) (define-method get_default_bottom_margin (of-object "GtkPaperSize") (c-name "gtk_paper_size_get_default_bottom_margin") (return-type "gdouble") (parameters '("GtkUnit" "unit") ) ) (define-method get_default_left_margin (of-object "GtkPaperSize") (c-name "gtk_paper_size_get_default_left_margin") (return-type "gdouble") (parameters '("GtkUnit" "unit") ) ) (define-method get_default_right_margin (of-object "GtkPaperSize") (c-name "gtk_paper_size_get_default_right_margin") (return-type "gdouble") (parameters '("GtkUnit" "unit") ) ) (define-function gtk_paper_size_get_default (c-name "gtk_paper_size_get_default") (return-type "const-gchar*") ) ;; From /opt/gnome2/include/gtk-2.0/gtk/gtkpixmap.h (define-function gtk_pixmap_get_type (c-name "gtk_pixmap_get_type") (return-type "GtkType") ) (define-function gtk_pixmap_new (c-name "gtk_pixmap_new") (is-constructor-of "GtkPixmap") (return-type "GtkWidget*") (parameters '("GdkPixmap*" "pixmap") '("GdkBitmap*" "mask") ) ) (define-method set (of-object "GtkPixmap") (c-name "gtk_pixmap_set") (return-type "none") (parameters '("GdkPixmap*" "val") '("GdkBitmap*" "mask") ) ) (define-method get (of-object "GtkPixmap") (c-name "gtk_pixmap_get") (return-type "none") (parameters '("GdkPixmap**" "val") '("GdkBitmap**" "mask") ) ) (define-method set_build_insensitive (of-object "GtkPixmap") (c-name "gtk_pixmap_set_build_insensitive") (return-type "none") (parameters '("gboolean" "build") ) ) ;; From /opt/gnome2/include/gtk-2.0/gtk/gtkplug.h (define-function gtk_plug_get_type (c-name "gtk_plug_get_type") (return-type "GType") ) (define-method construct (of-object "GtkPlug") (c-name "gtk_plug_construct") (return-type "none") (parameters '("GdkNativeWindow" "socket_id") ) ) (define-function gtk_plug_new (c-name "gtk_plug_new") (is-constructor-of "GtkPlug") (return-type "GtkWidget*") (parameters '("GdkNativeWindow" "socket_id") ) ) (define-method construct_for_display (of-object "GtkPlug") (c-name "gtk_plug_construct_for_display") (return-type "none") (parameters '("GdkDisplay*" "display") '("GdkNativeWindow" "socket_id") ) ) (define-function gtk_plug_new_for_display (c-name "gtk_plug_new_for_display") (return-type "GtkWidget*") (parameters '("GdkDisplay*" "display") '("GdkNativeWindow" "socket_id") ) ) (define-method get_id (of-object "GtkPlug") (c-name "gtk_plug_get_id") (return-type "GdkNativeWindow") ) (define-method _add_to_socket (of-object "GtkPlug") (c-name "_gtk_plug_add_to_socket") (return-type "none") (parameters '("GtkSocket*" "socket_") ) ) (define-method _remove_from_socket (of-object "GtkPlug") (c-name "_gtk_plug_remove_from_socket") (return-type "none") (parameters '("GtkSocket*" "socket_") ) ) ;; From /opt/gnome2/include/gtk-2.0/gtk/gtkpreview.h (define-function gtk_preview_get_type (c-name "gtk_preview_get_type") (return-type "GtkType") ) (define-function gtk_preview_uninit (c-name "gtk_preview_uninit") (return-type "none") ) (define-function gtk_preview_new (c-name "gtk_preview_new") (is-constructor-of "GtkPreview") (return-type "GtkWidget*") (parameters '("GtkPreviewType" "type") ) ) (define-method size (of-object "GtkPreview") (c-name "gtk_preview_size") (return-type "none") (parameters '("gint" "width") '("gint" "height") ) ) (define-method put (of-object "GtkPreview") (c-name "gtk_preview_put") (return-type "none") (parameters '("GdkWindow*" "window") '("GdkGC*" "gc") '("gint" "srcx") '("gint" "srcy") '("gint" "destx") '("gint" "desty") '("gint" "width") '("gint" "height") ) ) (define-method draw_row (of-object "GtkPreview") (c-name "gtk_preview_draw_row") (return-type "none") (parameters '("guchar*" "data") '("gint" "x") '("gint" "y") '("gint" "w") ) ) (define-method set_expand (of-object "GtkPreview") (c-name "gtk_preview_set_expand") (return-type "none") (parameters '("gboolean" "expand") ) ) (define-function gtk_preview_set_gamma (c-name "gtk_preview_set_gamma") (return-type "none") (parameters '("double" "gamma_") ) ) (define-function gtk_preview_set_color_cube (c-name "gtk_preview_set_color_cube") (return-type "none") (parameters '("guint" "nred_shades") '("guint" "ngreen_shades") '("guint" "nblue_shades") '("guint" "ngray_shades") ) ) (define-function gtk_preview_set_install_cmap (c-name "gtk_preview_set_install_cmap") (return-type "none") (parameters '("gint" "install_cmap") ) ) (define-function gtk_preview_set_reserved (c-name "gtk_preview_set_reserved") (return-type "none") (parameters '("gint" "nreserved") ) ) (define-method set_dither (of-object "GtkPreview") (c-name "gtk_preview_set_dither") (return-type "none") (parameters '("GdkRgbDither" "dither") ) ) (define-function gtk_preview_get_visual (c-name "gtk_preview_get_visual") (return-type "GdkVisual*") ) (define-function gtk_preview_get_cmap (c-name "gtk_preview_get_cmap") (return-type "GdkColormap*") ) (define-function gtk_preview_get_info (c-name "gtk_preview_get_info") (return-type "GtkPreviewInfo*") ) (define-function gtk_preview_reset (c-name "gtk_preview_reset") (return-type "none") ) ;; From /opt/gnome2/include/gtk-2.0/gtk/gtkprintcontext.h (define-function gtk_print_context_get_type (c-name "gtk_print_context_get_type") (return-type "GType") ) (define-method get_cairo_context (of-object "GtkPrintContext") (c-name "gtk_print_context_get_cairo_context") (return-type "cairo_t*") ) (define-method get_page_setup (of-object "GtkPrintContext") (c-name "gtk_print_context_get_page_setup") (return-type "GtkPageSetup*") ) (define-method get_width (of-object "GtkPrintContext") (c-name "gtk_print_context_get_width") (return-type "gdouble") ) (define-method get_height (of-object "GtkPrintContext") (c-name "gtk_print_context_get_height") (return-type "gdouble") ) (define-method get_dpi_x (of-object "GtkPrintContext") (c-name "gtk_print_context_get_dpi_x") (return-type "gdouble") ) (define-method get_dpi_y (of-object "GtkPrintContext") (c-name "gtk_print_context_get_dpi_y") (return-type "gdouble") ) (define-method get_pango_fontmap (of-object "GtkPrintContext") (c-name "gtk_print_context_get_pango_fontmap") (return-type "PangoFontMap*") ) (define-method create_pango_context (of-object "GtkPrintContext") (c-name "gtk_print_context_create_pango_context") (return-type "PangoContext*") ) (define-method create_pango_layout (of-object "GtkPrintContext") (c-name "gtk_print_context_create_pango_layout") (return-type "PangoLayout*") ) (define-method set_cairo_context (of-object "GtkPrintContext") (c-name "gtk_print_context_set_cairo_context") (return-type "none") (parameters '("cairo_t*" "cr") '("double" "dpi_x") '("double" "dpi_y") ) ) ;; From /opt/gnome2/include/gtk-2.0/gtk/gtkprintoperation.h (define-function gtk_print_error_quark (c-name "gtk_print_error_quark") (return-type "GQuark") ) (define-function gtk_print_operation_get_type (c-name "gtk_print_operation_get_type") (return-type "GType") ) (define-function gtk_print_operation_new (c-name "gtk_print_operation_new") (is-constructor-of "GtkPrintOperation") (return-type "GtkPrintOperation*") ) (define-method set_default_page_setup (of-object "GtkPrintOperation") (c-name "gtk_print_operation_set_default_page_setup") (return-type "none") (parameters '("GtkPageSetup*" "default_page_setup") ) ) (define-method get_default_page_setup (of-object "GtkPrintOperation") (c-name "gtk_print_operation_get_default_page_setup") (return-type "GtkPageSetup*") ) (define-method set_print_settings (of-object "GtkPrintOperation") (c-name "gtk_print_operation_set_print_settings") (return-type "none") (parameters '("GtkPrintSettings*" "print_settings") ) ) (define-method get_print_settings (of-object "GtkPrintOperation") (c-name "gtk_print_operation_get_print_settings") (return-type "GtkPrintSettings*") ) (define-method set_job_name (of-object "GtkPrintOperation") (c-name "gtk_print_operation_set_job_name") (return-type "none") (parameters '("const-gchar*" "job_name") ) ) (define-method set_n_pages (of-object "GtkPrintOperation") (c-name "gtk_print_operation_set_n_pages") (return-type "none") (parameters '("gint" "n_pages") ) ) (define-method set_current_page (of-object "GtkPrintOperation") (c-name "gtk_print_operation_set_current_page") (return-type "none") (parameters '("gint" "current_page") ) ) (define-method set_use_full_page (of-object "GtkPrintOperation") (c-name "gtk_print_operation_set_use_full_page") (return-type "none") (parameters '("gboolean" "full_page") ) ) (define-method set_unit (of-object "GtkPrintOperation") (c-name "gtk_print_operation_set_unit") (return-type "none") (parameters '("GtkUnit" "unit") ) ) (define-method set_export_filename (of-object "GtkPrintOperation") (c-name "gtk_print_operation_set_export_filename") (return-type "none") (parameters '("const-gchar*" "filename") ) ) (define-method set_track_print_status (of-object "GtkPrintOperation") (c-name "gtk_print_operation_set_track_print_status") (return-type "none") (parameters '("gboolean" "track_status") ) ) (define-method set_show_progress (of-object "GtkPrintOperation") (c-name "gtk_print_operation_set_show_progress") (return-type "none") (parameters '("gboolean" "show_progress") ) ) (define-method set_allow_async (of-object "GtkPrintOperation") (c-name "gtk_print_operation_set_allow_async") (return-type "none") (parameters '("gboolean" "allow_async") ) ) (define-method set_custom_tab_label (of-object "GtkPrintOperation") (c-name "gtk_print_operation_set_custom_tab_label") (return-type "none") (parameters '("const-gchar*" "label") ) ) (define-method run (of-object "GtkPrintOperation") (c-name "gtk_print_operation_run") (return-type "GtkPrintOperationResult") (parameters '("GtkPrintOperationAction" "action") '("GtkWindow*" "parent") '("GError**" "error") ) ) (define-method get_error (of-object "GtkPrintOperation") (c-name "gtk_print_operation_get_error") (return-type "none") (parameters '("GError**" "error") ) ) (define-method get_status (of-object "GtkPrintOperation") (c-name "gtk_print_operation_get_status") (return-type "GtkPrintStatus") ) (define-method get_status_string (of-object "GtkPrintOperation") (c-name "gtk_print_operation_get_status_string") (return-type "const-gchar*") ) (define-method is_finished (of-object "GtkPrintOperation") (c-name "gtk_print_operation_is_finished") (return-type "gboolean") ) (define-method cancel (of-object "GtkPrintOperation") (c-name "gtk_print_operation_cancel") (return-type "none") ) (define-function gtk_print_run_page_setup_dialog (c-name "gtk_print_run_page_setup_dialog") (return-type "GtkPageSetup*") (parameters '("GtkWindow*" "parent") '("GtkPageSetup*" "page_setup") '("GtkPrintSettings*" "settings") ) ) (define-function gtk_print_run_page_setup_dialog_async (c-name "gtk_print_run_page_setup_dialog_async") (return-type "none") (parameters '("GtkWindow*" "parent") '("GtkPageSetup*" "page_setup") '("GtkPrintSettings*" "settings") '("GtkPageSetupDoneFunc" "done_cb") '("gpointer" "data") ) ) ;; From /opt/gnome2/include/gtk-2.0/gtk/gtkprintoperationpreview.h (define-function gtk_print_operation_preview_get_type (c-name "gtk_print_operation_preview_get_type") (return-type "GType") ) (define-method render_page (of-object "GtkPrintOperationPreview") (c-name "gtk_print_operation_preview_render_page") (return-type "none") (parameters '("gint" "page_nr") ) ) (define-method end_preview (of-object "GtkPrintOperationPreview") (c-name "gtk_print_operation_preview_end_preview") (return-type "none") ) (define-method is_selected (of-object "GtkPrintOperationPreview") (c-name "gtk_print_operation_preview_is_selected") (return-type "gboolean") (parameters '("gint" "page_nr") ) ) ;; From /opt/gnome2/include/gtk-2.0/gtk/gtkprintsettings.h (define-function gtk_print_settings_get_type (c-name "gtk_print_settings_get_type") (return-type "GType") ) (define-function gtk_print_settings_new (c-name "gtk_print_settings_new") (is-constructor-of "GtkPrintSettings") (return-type "GtkPrintSettings*") ) (define-method copy (of-object "GtkPrintSettings") (c-name "gtk_print_settings_copy") (return-type "GtkPrintSettings*") ) (define-method has_key (of-object "GtkPrintSettings") (c-name "gtk_print_settings_has_key") (return-type "gboolean") (parameters '("const-gchar*" "key") ) ) (define-method get (of-object "GtkPrintSettings") (c-name "gtk_print_settings_get") (return-type "const-gchar*") (parameters '("const-gchar*" "key") ) ) (define-method set (of-object "GtkPrintSettings") (c-name "gtk_print_settings_set") (return-type "none") (parameters '("const-gchar*" "key") '("const-gchar*" "value") ) ) (define-method unset (of-object "GtkPrintSettings") (c-name "gtk_print_settings_unset") (return-type "none") (parameters '("const-gchar*" "key") ) ) (define-method foreach (of-object "GtkPrintSettings") (c-name "gtk_print_settings_foreach") (return-type "none") (parameters '("GtkPrintSettingsFunc" "func") '("gpointer" "user_data") ) ) (define-method get_bool (of-object "GtkPrintSettings") (c-name "gtk_print_settings_get_bool") (return-type "gboolean") (parameters '("const-gchar*" "key") ) ) (define-method set_bool (of-object "GtkPrintSettings") (c-name "gtk_print_settings_set_bool") (return-type "none") (parameters '("const-gchar*" "key") '("gboolean" "value") ) ) (define-method get_double (of-object "GtkPrintSettings") (c-name "gtk_print_settings_get_double") (return-type "gdouble") (parameters '("const-gchar*" "key") ) ) (define-method get_double_with_default (of-object "GtkPrintSettings") (c-name "gtk_print_settings_get_double_with_default") (return-type "gdouble") (parameters '("const-gchar*" "key") '("gdouble" "def") ) ) (define-method set_double (of-object "GtkPrintSettings") (c-name "gtk_print_settings_set_double") (return-type "none") (parameters '("const-gchar*" "key") '("gdouble" "value") ) ) (define-method get_length (of-object "GtkPrintSettings") (c-name "gtk_print_settings_get_length") (return-type "gdouble") (parameters '("const-gchar*" "key") '("GtkUnit" "unit") ) ) (define-method set_length (of-object "GtkPrintSettings") (c-name "gtk_print_settings_set_length") (return-type "none") (parameters '("const-gchar*" "key") '("gdouble" "value") '("GtkUnit" "unit") ) ) (define-method get_int (of-object "GtkPrintSettings") (c-name "gtk_print_settings_get_int") (return-type "gint") (parameters '("const-gchar*" "key") ) ) (define-method get_int_with_default (of-object "GtkPrintSettings") (c-name "gtk_print_settings_get_int_with_default") (return-type "gint") (parameters '("const-gchar*" "key") '("gint" "def") ) ) (define-method set_int (of-object "GtkPrintSettings") (c-name "gtk_print_settings_set_int") (return-type "none") (parameters '("const-gchar*" "key") '("gint" "value") ) ) (define-method get_printer (of-object "GtkPrintSettings") (c-name "gtk_print_settings_get_printer") (return-type "const-gchar*") ) (define-method set_printer (of-object "GtkPrintSettings") (c-name "gtk_print_settings_set_printer") (return-type "none") (parameters '("const-gchar*" "printer") ) ) (define-method get_orientation (of-object "GtkPrintSettings") (c-name "gtk_print_settings_get_orientation") (return-type "GtkPageOrientation") ) (define-method set_orientation (of-object "GtkPrintSettings") (c-name "gtk_print_settings_set_orientation") (return-type "none") (parameters '("GtkPageOrientation" "orientation") ) ) (define-method get_paper_size (of-object "GtkPrintSettings") (c-name "gtk_print_settings_get_paper_size") (return-type "GtkPaperSize*") ) (define-method set_paper_size (of-object "GtkPrintSettings") (c-name "gtk_print_settings_set_paper_size") (return-type "none") (parameters '("GtkPaperSize*" "paper_size") ) ) (define-method get_paper_width (of-object "GtkPrintSettings") (c-name "gtk_print_settings_get_paper_width") (return-type "gdouble") (parameters '("GtkUnit" "unit") ) ) (define-method set_paper_width (of-object "GtkPrintSettings") (c-name "gtk_print_settings_set_paper_width") (return-type "none") (parameters '("gdouble" "width") '("GtkUnit" "unit") ) ) (define-method get_paper_height (of-object "GtkPrintSettings") (c-name "gtk_print_settings_get_paper_height") (return-type "gdouble") (parameters '("GtkUnit" "unit") ) ) (define-method set_paper_height (of-object "GtkPrintSettings") (c-name "gtk_print_settings_set_paper_height") (return-type "none") (parameters '("gdouble" "height") '("GtkUnit" "unit") ) ) (define-method get_use_color (of-object "GtkPrintSettings") (c-name "gtk_print_settings_get_use_color") (return-type "gboolean") ) (define-method set_use_color (of-object "GtkPrintSettings") (c-name "gtk_print_settings_set_use_color") (return-type "none") (parameters '("gboolean" "use_color") ) ) (define-method get_collate (of-object "GtkPrintSettings") (c-name "gtk_print_settings_get_collate") (return-type "gboolean") ) (define-method set_collate (of-object "GtkPrintSettings") (c-name "gtk_print_settings_set_collate") (return-type "none") (parameters '("gboolean" "collate") ) ) (define-method get_reverse (of-object "GtkPrintSettings") (c-name "gtk_print_settings_get_reverse") (return-type "gboolean") ) (define-method set_reverse (of-object "GtkPrintSettings") (c-name "gtk_print_settings_set_reverse") (return-type "none") (parameters '("gboolean" "reverse") ) ) (define-method get_duplex (of-object "GtkPrintSettings") (c-name "gtk_print_settings_get_duplex") (return-type "GtkPrintDuplex") ) (define-method set_duplex (of-object "GtkPrintSettings") (c-name "gtk_print_settings_set_duplex") (return-type "none") (parameters '("GtkPrintDuplex" "duplex") ) ) (define-method get_quality (of-object "GtkPrintSettings") (c-name "gtk_print_settings_get_quality") (return-type "GtkPrintQuality") ) (define-method set_quality (of-object "GtkPrintSettings") (c-name "gtk_print_settings_set_quality") (return-type "none") (parameters '("GtkPrintQuality" "quality") ) ) (define-method get_n_copies (of-object "GtkPrintSettings") (c-name "gtk_print_settings_get_n_copies") (return-type "gint") ) (define-method set_n_copies (of-object "GtkPrintSettings") (c-name "gtk_print_settings_set_n_copies") (return-type "none") (parameters '("gint" "num_copies") ) ) (define-method get_number_up (of-object "GtkPrintSettings") (c-name "gtk_print_settings_get_number_up") (return-type "gint") ) (define-method set_number_up (of-object "GtkPrintSettings") (c-name "gtk_print_settings_set_number_up") (return-type "none") (parameters '("gint" "number_up") ) ) (define-method get_resolution (of-object "GtkPrintSettings") (c-name "gtk_print_settings_get_resolution") (return-type "gint") ) (define-method set_resolution (of-object "GtkPrintSettings") (c-name "gtk_print_settings_set_resolution") (return-type "none") (parameters '("gint" "resolution") ) ) (define-method get_scale (of-object "GtkPrintSettings") (c-name "gtk_print_settings_get_scale") (return-type "gdouble") ) (define-method set_scale (of-object "GtkPrintSettings") (c-name "gtk_print_settings_set_scale") (return-type "none") (parameters '("gdouble" "scale") ) ) (define-method get_print_pages (of-object "GtkPrintSettings") (c-name "gtk_print_settings_get_print_pages") (return-type "GtkPrintPages") ) (define-method set_print_pages (of-object "GtkPrintSettings") (c-name "gtk_print_settings_set_print_pages") (return-type "none") (parameters '("GtkPrintPages" "pages") ) ) (define-method get_page_ranges (of-object "GtkPrintSettings") (c-name "gtk_print_settings_get_page_ranges") (return-type "GtkPageRange*") (parameters '("gint*" "num_ranges") ) ) (define-method set_page_ranges (of-object "GtkPrintSettings") (c-name "gtk_print_settings_set_page_ranges") (return-type "none") (parameters '("GtkPageRange*" "page_ranges") '("gint" "num_ranges") ) ) (define-method get_page_set (of-object "GtkPrintSettings") (c-name "gtk_print_settings_get_page_set") (return-type "GtkPageSet") ) (define-method set_page_set (of-object "GtkPrintSettings") (c-name "gtk_print_settings_set_page_set") (return-type "none") (parameters '("GtkPageSet" "page_set") ) ) (define-method get_default_source (of-object "GtkPrintSettings") (c-name "gtk_print_settings_get_default_source") (return-type "const-gchar*") ) (define-method set_default_source (of-object "GtkPrintSettings") (c-name "gtk_print_settings_set_default_source") (return-type "none") (parameters '("const-gchar*" "default_source") ) ) (define-method get_media_type (of-object "GtkPrintSettings") (c-name "gtk_print_settings_get_media_type") (return-type "const-gchar*") ) (define-method set_media_type (of-object "GtkPrintSettings") (c-name "gtk_print_settings_set_media_type") (return-type "none") (parameters '("const-gchar*" "media_type") ) ) (define-method get_dither (of-object "GtkPrintSettings") (c-name "gtk_print_settings_get_dither") (return-type "const-gchar*") ) (define-method set_dither (of-object "GtkPrintSettings") (c-name "gtk_print_settings_set_dither") (return-type "none") (parameters '("const-gchar*" "dither") ) ) (define-method get_finishings (of-object "GtkPrintSettings") (c-name "gtk_print_settings_get_finishings") (return-type "const-gchar*") ) (define-method set_finishings (of-object "GtkPrintSettings") (c-name "gtk_print_settings_set_finishings") (return-type "none") (parameters '("const-gchar*" "finishings") ) ) (define-method get_output_bin (of-object "GtkPrintSettings") (c-name "gtk_print_settings_get_output_bin") (return-type "const-gchar*") ) (define-method set_output_bin (of-object "GtkPrintSettings") (c-name "gtk_print_settings_set_output_bin") (return-type "none") (parameters '("const-gchar*" "output_bin") ) ) ;; From /opt/gnome2/include/gtk-2.0/gtk/gtkprivate.h (define-function _gtk_get_datadir (c-name "_gtk_get_datadir") (return-type "const-gchar*") (parameters ) ) (define-function _gtk_get_libdir (c-name "_gtk_get_libdir") (return-type "const-gchar*") (parameters ) ) (define-function _gtk_get_sysconfdir (c-name "_gtk_get_sysconfdir") (return-type "const-gchar*") (parameters ) ) (define-function _gtk_get_localedir (c-name "_gtk_get_localedir") (return-type "const-gchar*") (parameters ) ) (define-function _gtk_get_data_prefix (c-name "_gtk_get_data_prefix") (return-type "const-gchar*") (parameters ) ) (define-function _gtk_fnmatch (c-name "_gtk_fnmatch") (return-type "gboolean") (parameters '("const-char*" "pattern") '("const-char*" "string") '("gboolean" "no_leading_period") ) ) ;; From /opt/gnome2/include/gtk-2.0/gtk/gtkprogressbar.h (define-function gtk_progress_bar_get_type (c-name "gtk_progress_bar_get_type") (return-type "GType") ) (define-function gtk_progress_bar_new (c-name "gtk_progress_bar_new") (is-constructor-of "GtkProgressBar") (return-type "GtkWidget*") ) (define-method pulse (of-object "GtkProgressBar") (c-name "gtk_progress_bar_pulse") (return-type "none") ) (define-method set_text (of-object "GtkProgressBar") (c-name "gtk_progress_bar_set_text") (return-type "none") (parameters '("const-gchar*" "text") ) ) (define-method set_fraction (of-object "GtkProgressBar") (c-name "gtk_progress_bar_set_fraction") (return-type "none") (parameters '("gdouble" "fraction") ) ) (define-method set_pulse_step (of-object "GtkProgressBar") (c-name "gtk_progress_bar_set_pulse_step") (return-type "none") (parameters '("gdouble" "fraction") ) ) (define-method set_orientation (of-object "GtkProgressBar") (c-name "gtk_progress_bar_set_orientation") (return-type "none") (parameters '("GtkProgressBarOrientation" "orientation") ) ) (define-method get_text (of-object "GtkProgressBar") (c-name "gtk_progress_bar_get_text") (return-type "const-gchar*") ) (define-method get_fraction (of-object "GtkProgressBar") (c-name "gtk_progress_bar_get_fraction") (return-type "gdouble") ) (define-method get_pulse_step (of-object "GtkProgressBar") (c-name "gtk_progress_bar_get_pulse_step") (return-type "gdouble") ) (define-method get_orientation (of-object "GtkProgressBar") (c-name "gtk_progress_bar_get_orientation") (return-type "GtkProgressBarOrientation") ) (define-method set_ellipsize (of-object "GtkProgressBar") (c-name "gtk_progress_bar_set_ellipsize") (return-type "none") (parameters '("PangoEllipsizeMode" "mode") ) ) (define-method get_ellipsize (of-object "GtkProgressBar") (c-name "gtk_progress_bar_get_ellipsize") (return-type "PangoEllipsizeMode") ) (define-function gtk_progress_bar_new_with_adjustment (c-name "gtk_progress_bar_new_with_adjustment") (return-type "GtkWidget*") (parameters '("GtkAdjustment*" "adjustment") ) ) (define-method set_bar_style (of-object "GtkProgressBar") (c-name "gtk_progress_bar_set_bar_style") (return-type "none") (parameters '("GtkProgressBarStyle" "style") ) ) (define-method set_discrete_blocks (of-object "GtkProgressBar") (c-name "gtk_progress_bar_set_discrete_blocks") (return-type "none") (parameters '("guint" "blocks") ) ) (define-method set_activity_step (of-object "GtkProgressBar") (c-name "gtk_progress_bar_set_activity_step") (return-type "none") (parameters '("guint" "step") ) ) (define-method set_activity_blocks (of-object "GtkProgressBar") (c-name "gtk_progress_bar_set_activity_blocks") (return-type "none") (parameters '("guint" "blocks") ) ) (define-method update (of-object "GtkProgressBar") (c-name "gtk_progress_bar_update") (return-type "none") (parameters '("gdouble" "percentage") ) ) ;; From /opt/gnome2/include/gtk-2.0/gtk/gtkprogress.h (define-function gtk_progress_get_type (c-name "gtk_progress_get_type") (return-type "GType") ) (define-method set_show_text (of-object "GtkProgress") (c-name "gtk_progress_set_show_text") (return-type "none") (parameters '("gboolean" "show_text") ) ) (define-method set_text_alignment (of-object "GtkProgress") (c-name "gtk_progress_set_text_alignment") (return-type "none") (parameters '("gfloat" "x_align") '("gfloat" "y_align") ) ) (define-method set_format_string (of-object "GtkProgress") (c-name "gtk_progress_set_format_string") (return-type "none") (parameters '("const-gchar*" "format") ) ) (define-method set_adjustment (of-object "GtkProgress") (c-name "gtk_progress_set_adjustment") (return-type "none") (parameters '("GtkAdjustment*" "adjustment") ) ) (define-method configure (of-object "GtkProgress") (c-name "gtk_progress_configure") (return-type "none") (parameters '("gdouble" "value") '("gdouble" "hmin") '("gdouble" "max") ) ) (define-method set_percentage (of-object "GtkProgress") (c-name "gtk_progress_set_percentage") (return-type "none") (parameters '("gdouble" "percentage") ) ) (define-method set_value (of-object "GtkProgress") (c-name "gtk_progress_set_value") (return-type "none") (parameters '("gdouble" "value") ) ) (define-method get_value (of-object "GtkProgress") (c-name "gtk_progress_get_value") (return-type "gdouble") ) (define-method set_activity_mode (of-object "GtkProgress") (c-name "gtk_progress_set_activity_mode") (return-type "none") (parameters '("gboolean" "activity_mode") ) ) (define-method get_current_text (of-object "GtkProgress") (c-name "gtk_progress_get_current_text") (return-type "gchar*") ) (define-method get_text_from_value (of-object "GtkProgress") (c-name "gtk_progress_get_text_from_value") (return-type "gchar*") (parameters '("gdouble" "value") ) ) (define-method get_current_percentage (of-object "GtkProgress") (c-name "gtk_progress_get_current_percentage") (return-type "gdouble") ) (define-method get_percentage_from_value (of-object "GtkProgress") (c-name "gtk_progress_get_percentage_from_value") (return-type "gdouble") (parameters '("gdouble" "value") ) ) ;; From /opt/gnome2/include/gtk-2.0/gtk/gtkradioaction.h (define-function gtk_radio_action_get_type (c-name "gtk_radio_action_get_type") (return-type "GType") ) (define-function gtk_radio_action_new (c-name "gtk_radio_action_new") (is-constructor-of "GtkRadioAction") (return-type "GtkRadioAction*") (parameters '("const-gchar*" "name") '("const-gchar*" "label") '("const-gchar*" "tooltip") '("const-gchar*" "stock_id") '("gint" "value") ) ) (define-method get_group (of-object "GtkRadioAction") (c-name "gtk_radio_action_get_group") (return-type "GSList*") ) (define-method set_group (of-object "GtkRadioAction") (c-name "gtk_radio_action_set_group") (return-type "none") (parameters '("GSList*" "group") ) ) (define-method get_current_value (of-object "GtkRadioAction") (c-name "gtk_radio_action_get_current_value") (return-type "gint") ) (define-method set_current_value (of-object "GtkRadioAction") (c-name "gtk_radio_action_set_current_value") (return-type "none") (parameters '("gint" "current_value") ) ) ;; From /opt/gnome2/include/gtk-2.0/gtk/gtkradiobutton.h (define-function gtk_radio_button_get_type (c-name "gtk_radio_button_get_type") (return-type "GType") ) (define-function gtk_radio_button_new (c-name "gtk_radio_button_new") (is-constructor-of "GtkRadioButton") (return-type "GtkWidget*") (parameters '("GSList*" "group") ) ) (define-method new_from_widget (of-object "GtkRadioButton") (c-name "gtk_radio_button_new_from_widget") (return-type "GtkWidget*") ) (define-function gtk_radio_button_new_with_label (c-name "gtk_radio_button_new_with_label") (return-type "GtkWidget*") (parameters '("GSList*" "group") '("const-gchar*" "label") ) ) (define-method new_with_label_from_widget (of-object "GtkRadioButton") (c-name "gtk_radio_button_new_with_label_from_widget") (return-type "GtkWidget*") (parameters '("const-gchar*" "label") ) ) (define-function gtk_radio_button_new_with_mnemonic (c-name "gtk_radio_button_new_with_mnemonic") (return-type "GtkWidget*") (parameters '("GSList*" "group") '("const-gchar*" "label") ) ) (define-method new_with_mnemonic_from_widget (of-object "GtkRadioButton") (c-name "gtk_radio_button_new_with_mnemonic_from_widget") (return-type "GtkWidget*") (parameters '("const-gchar*" "label") ) ) (define-method get_group (of-object "GtkRadioButton") (c-name "gtk_radio_button_get_group") (return-type "GSList*") ) (define-method set_group (of-object "GtkRadioButton") (c-name "gtk_radio_button_set_group") (return-type "none") (parameters '("GSList*" "group") ) ) ;; From /opt/gnome2/include/gtk-2.0/gtk/gtkradiomenuitem.h (define-function gtk_radio_menu_item_get_type (c-name "gtk_radio_menu_item_get_type") (return-type "GType") ) (define-function gtk_radio_menu_item_new (c-name "gtk_radio_menu_item_new") (is-constructor-of "GtkRadioMenuItem") (return-type "GtkWidget*") (parameters '("GSList*" "group") ) ) (define-function gtk_radio_menu_item_new_with_label (c-name "gtk_radio_menu_item_new_with_label") (return-type "GtkWidget*") (parameters '("GSList*" "group") '("const-gchar*" "label") ) ) (define-function gtk_radio_menu_item_new_with_mnemonic (c-name "gtk_radio_menu_item_new_with_mnemonic") (return-type "GtkWidget*") (parameters '("GSList*" "group") '("const-gchar*" "label") ) ) (define-method new_from_widget (of-object "GtkRadioMenuItem") (c-name "gtk_radio_menu_item_new_from_widget") (return-type "GtkWidget*") ) (define-method new_with_mnemonic_from_widget (of-object "GtkRadioMenuItem") (c-name "gtk_radio_menu_item_new_with_mnemonic_from_widget") (return-type "GtkWidget*") (parameters '("const-gchar*" "label") ) ) (define-method new_with_label_from_widget (of-object "GtkRadioMenuItem") (c-name "gtk_radio_menu_item_new_with_label_from_widget") (return-type "GtkWidget*") (parameters '("const-gchar*" "label") ) ) (define-method get_group (of-object "GtkRadioMenuItem") (c-name "gtk_radio_menu_item_get_group") (return-type "GSList*") ) (define-method set_group (of-object "GtkRadioMenuItem") (c-name "gtk_radio_menu_item_set_group") (return-type "none") (parameters '("GSList*" "group") ) ) ;; From /opt/gnome2/include/gtk-2.0/gtk/gtkradiotoolbutton.h (define-function gtk_radio_tool_button_get_type (c-name "gtk_radio_tool_button_get_type") (return-type "GType") ) (define-function gtk_radio_tool_button_new (c-name "gtk_radio_tool_button_new") (is-constructor-of "GtkRadioToolButton") (return-type "GtkToolItem*") (parameters '("GSList*" "group") ) ) (define-function gtk_radio_tool_button_new_from_stock (c-name "gtk_radio_tool_button_new_from_stock") (return-type "GtkToolItem*") (parameters '("GSList*" "group") '("const-gchar*" "stock_id") ) ) (define-method new_from_widget (of-object "GtkRadioToolButton") (c-name "gtk_radio_tool_button_new_from_widget") (return-type "GtkToolItem*") ) (define-method new_with_stock_from_widget (of-object "GtkRadioToolButton") (c-name "gtk_radio_tool_button_new_with_stock_from_widget") (return-type "GtkToolItem*") (parameters '("const-gchar*" "stock_id") ) ) (define-method get_group (of-object "GtkRadioToolButton") (c-name "gtk_radio_tool_button_get_group") (return-type "GSList*") ) (define-method set_group (of-object "GtkRadioToolButton") (c-name "gtk_radio_tool_button_set_group") (return-type "none") (parameters '("GSList*" "group") ) ) ;; From /opt/gnome2/include/gtk-2.0/gtk/gtkrange.h (define-function gtk_range_get_type (c-name "gtk_range_get_type") (return-type "GType") ) (define-method set_update_policy (of-object "GtkRange") (c-name "gtk_range_set_update_policy") (return-type "none") (parameters '("GtkUpdateType" "policy") ) ) (define-method get_update_policy (of-object "GtkRange") (c-name "gtk_range_get_update_policy") (return-type "GtkUpdateType") ) (define-method set_adjustment (of-object "GtkRange") (c-name "gtk_range_set_adjustment") (return-type "none") (parameters '("GtkAdjustment*" "adjustment") ) ) (define-method get_adjustment (of-object "GtkRange") (c-name "gtk_range_get_adjustment") (return-type "GtkAdjustment*") ) (define-method set_inverted (of-object "GtkRange") (c-name "gtk_range_set_inverted") (return-type "none") (parameters '("gboolean" "setting") ) ) (define-method get_inverted (of-object "GtkRange") (c-name "gtk_range_get_inverted") (return-type "gboolean") ) (define-method set_lower_stepper_sensitivity (of-object "GtkRange") (c-name "gtk_range_set_lower_stepper_sensitivity") (return-type "none") (parameters '("GtkSensitivityType" "sensitivity") ) ) (define-method get_lower_stepper_sensitivity (of-object "GtkRange") (c-name "gtk_range_get_lower_stepper_sensitivity") (return-type "GtkSensitivityType") ) (define-method set_upper_stepper_sensitivity (of-object "GtkRange") (c-name "gtk_range_set_upper_stepper_sensitivity") (return-type "none") (parameters '("GtkSensitivityType" "sensitivity") ) ) (define-method get_upper_stepper_sensitivity (of-object "GtkRange") (c-name "gtk_range_get_upper_stepper_sensitivity") (return-type "GtkSensitivityType") ) (define-method set_increments (of-object "GtkRange") (c-name "gtk_range_set_increments") (return-type "none") (parameters '("gdouble" "step") '("gdouble" "page") ) ) (define-method set_range (of-object "GtkRange") (c-name "gtk_range_set_range") (return-type "none") (parameters '("gdouble" "min") '("gdouble" "max") ) ) (define-method set_value (of-object "GtkRange") (c-name "gtk_range_set_value") (return-type "none") (parameters '("gdouble" "value") ) ) (define-method get_value (of-object "GtkRange") (c-name "gtk_range_get_value") (return-type "gdouble") ) (define-method _get_wheel_delta (of-object "GtkRange") (c-name "_gtk_range_get_wheel_delta") (return-type "gdouble") (parameters '("GdkScrollDirection" "direction") ) ) ;; From /opt/gnome2/include/gtk-2.0/gtk/gtkrc.h (define-function _gtk_rc_init (c-name "_gtk_rc_init") (return-type "none") ) (define-function _gtk_rc_parse_widget_class_path (c-name "_gtk_rc_parse_widget_class_path") (return-type "GSList*") (parameters '("const-gchar*" "pattern") ) ) (define-function _gtk_rc_free_widget_class_path (c-name "_gtk_rc_free_widget_class_path") (return-type "none") (parameters '("GSList*" "list") ) ) (define-function _gtk_rc_match_widget_class (c-name "_gtk_rc_match_widget_class") (return-type "gboolean") (parameters '("GSList*" "list") '("gint" "length") '("gchar*" "path") '("gchar*" "path_reversed") ) ) (define-function gtk_rc_add_default_file (c-name "gtk_rc_add_default_file") (return-type "none") (parameters '("const-gchar*" "filename") ) ) (define-function gtk_rc_set_default_files (c-name "gtk_rc_set_default_files") (return-type "none") (parameters '("gchar**" "filenames") ) ) (define-function gtk_rc_get_default_files (c-name "gtk_rc_get_default_files") (return-type "gchar**") ) (define-function gtk_rc_get_style (c-name "gtk_rc_get_style") (return-type "GtkStyle*") (parameters '("GtkWidget*" "widget") ) ) (define-function gtk_rc_get_style_by_paths (c-name "gtk_rc_get_style_by_paths") (return-type "GtkStyle*") (parameters '("GtkSettings*" "settings") '("const-char*" "widget_path") '("const-char*" "class_path") '("GType" "type") ) ) (define-function gtk_rc_reparse_all_for_settings (c-name "gtk_rc_reparse_all_for_settings") (return-type "gboolean") (parameters '("GtkSettings*" "settings") '("gboolean" "force_load") ) ) (define-function gtk_rc_reset_styles (c-name "gtk_rc_reset_styles") (return-type "none") (parameters '("GtkSettings*" "settings") ) ) (define-function gtk_rc_find_pixmap_in_path (c-name "gtk_rc_find_pixmap_in_path") (return-type "gchar*") (parameters '("GtkSettings*" "settings") '("GScanner*" "scanner") '("const-gchar*" "pixmap_file") ) ) (define-function gtk_rc_parse (c-name "gtk_rc_parse") (return-type "none") (parameters '("const-gchar*" "filename") ) ) (define-function gtk_rc_parse_string (c-name "gtk_rc_parse_string") (return-type "none") (parameters '("const-gchar*" "rc_string") ) ) (define-function gtk_rc_reparse_all (c-name "gtk_rc_reparse_all") (return-type "gboolean") ) (define-function gtk_rc_add_widget_name_style (c-name "gtk_rc_add_widget_name_style") (return-type "none") (parameters '("GtkRcStyle*" "rc_style") '("const-gchar*" "pattern") ) ) (define-function gtk_rc_add_widget_class_style (c-name "gtk_rc_add_widget_class_style") (return-type "none") (parameters '("GtkRcStyle*" "rc_style") '("const-gchar*" "pattern") ) ) (define-function gtk_rc_add_class_style (c-name "gtk_rc_add_class_style") (return-type "none") (parameters '("GtkRcStyle*" "rc_style") '("const-gchar*" "pattern") ) ) (define-function gtk_rc_style_get_type (c-name "gtk_rc_style_get_type") (return-type "GType") ) (define-function gtk_rc_style_new (c-name "gtk_rc_style_new") (is-constructor-of "GtkRcStyle") (return-type "GtkRcStyle*") ) (define-method copy (of-object "GtkRcStyle") (c-name "gtk_rc_style_copy") (return-type "GtkRcStyle*") ) (define-method ref (of-object "GtkRcStyle") (c-name "gtk_rc_style_ref") (return-type "none") ) (define-method unref (of-object "GtkRcStyle") (c-name "gtk_rc_style_unref") (return-type "none") ) (define-function gtk_rc_find_module_in_path (c-name "gtk_rc_find_module_in_path") (return-type "gchar*") (parameters '("const-gchar*" "module_file") ) ) (define-function gtk_rc_get_theme_dir (c-name "gtk_rc_get_theme_dir") (return-type "gchar*") ) (define-function gtk_rc_get_module_dir (c-name "gtk_rc_get_module_dir") (return-type "gchar*") ) (define-function gtk_rc_get_im_module_path (c-name "gtk_rc_get_im_module_path") (return-type "gchar*") ) (define-function gtk_rc_get_im_module_file (c-name "gtk_rc_get_im_module_file") (return-type "gchar*") ) (define-function gtk_rc_scanner_new (c-name "gtk_rc_scanner_new") (is-constructor-of "GtkRcScanner") (return-type "GScanner*") ) (define-function gtk_rc_parse_color (c-name "gtk_rc_parse_color") (return-type "guint") (parameters '("GScanner*" "scanner") '("GdkColor*" "color") ) ) (define-function gtk_rc_parse_state (c-name "gtk_rc_parse_state") (return-type "guint") (parameters '("GScanner*" "scanner") '("GtkStateType*" "state") ) ) (define-function gtk_rc_parse_priority (c-name "gtk_rc_parse_priority") (return-type "guint") (parameters '("GScanner*" "scanner") '("GtkPathPriorityType*" "priority") ) ) (define-method _lookup_rc_property (of-object "GtkRcStyle") (c-name "_gtk_rc_style_lookup_rc_property") (return-type "const-GtkRcProperty*") (parameters '("GQuark" "type_name") '("GQuark" "property_name") ) ) (define-method _get_color_hashes (of-object "GtkRcStyle") (c-name "_gtk_rc_style_get_color_hashes") (return-type "GSList*") ) (define-function _gtk_rc_context_get_default_font_name (c-name "_gtk_rc_context_get_default_font_name") (return-type "const-gchar*") (parameters '("GtkSettings*" "settings") ) ) (define-function _gtk_rc_context_destroy (c-name "_gtk_rc_context_destroy") (return-type "none") (parameters '("GtkSettings*" "settings") ) ) ;; From /opt/gnome2/include/gtk-2.0/gtk/gtkrecentchooserdialog.h (define-function gtk_recent_chooser_dialog_get_type (c-name "gtk_recent_chooser_dialog_get_type") (return-type "GType") ) (define-function gtk_recent_chooser_dialog_new (c-name "gtk_recent_chooser_dialog_new") (is-constructor-of "GtkRecentChooserDialog") (return-type "GtkWidget*") (parameters '("const-gchar*" "title") '("GtkWindow*" "parent") '("const-gchar*" "first_button_text") ) (varargs #t) ) (define-function gtk_recent_chooser_dialog_new_for_manager (c-name "gtk_recent_chooser_dialog_new_for_manager") (return-type "GtkWidget*") (parameters '("const-gchar*" "title") '("GtkWindow*" "parent") '("GtkRecentManager*" "manager") '("const-gchar*" "first_button_text") ) (varargs #t) ) ;; From /opt/gnome2/include/gtk-2.0/gtk/gtkrecentchooser.h (define-function gtk_recent_chooser_error_quark (c-name "gtk_recent_chooser_error_quark") (return-type "GQuark") ) (define-function gtk_recent_chooser_get_type (c-name "gtk_recent_chooser_get_type") (return-type "GType") ) (define-method set_show_private (of-object "GtkRecentChooser") (c-name "gtk_recent_chooser_set_show_private") (return-type "none") (parameters '("gboolean" "show_private") ) ) (define-method get_show_private (of-object "GtkRecentChooser") (c-name "gtk_recent_chooser_get_show_private") (return-type "gboolean") ) (define-method set_show_not_found (of-object "GtkRecentChooser") (c-name "gtk_recent_chooser_set_show_not_found") (return-type "none") (parameters '("gboolean" "show_not_found") ) ) (define-method get_show_not_found (of-object "GtkRecentChooser") (c-name "gtk_recent_chooser_get_show_not_found") (return-type "gboolean") ) (define-method set_select_multiple (of-object "GtkRecentChooser") (c-name "gtk_recent_chooser_set_select_multiple") (return-type "none") (parameters '("gboolean" "select_multiple") ) ) (define-method get_select_multiple (of-object "GtkRecentChooser") (c-name "gtk_recent_chooser_get_select_multiple") (return-type "gboolean") ) (define-method set_limit (of-object "GtkRecentChooser") (c-name "gtk_recent_chooser_set_limit") (return-type "none") (parameters '("gint" "limit") ) ) (define-method get_limit (of-object "GtkRecentChooser") (c-name "gtk_recent_chooser_get_limit") (return-type "gint") ) (define-method set_local_only (of-object "GtkRecentChooser") (c-name "gtk_recent_chooser_set_local_only") (return-type "none") (parameters '("gboolean" "local_only") ) ) (define-method get_local_only (of-object "GtkRecentChooser") (c-name "gtk_recent_chooser_get_local_only") (return-type "gboolean") ) (define-method set_show_tips (of-object "GtkRecentChooser") (c-name "gtk_recent_chooser_set_show_tips") (return-type "none") (parameters '("gboolean" "show_tips") ) ) (define-method get_show_tips (of-object "GtkRecentChooser") (c-name "gtk_recent_chooser_get_show_tips") (return-type "gboolean") ) (define-method set_show_numbers (of-object "GtkRecentChooser") (c-name "gtk_recent_chooser_set_show_numbers") (return-type "none") (parameters '("gboolean" "show_numbers") ) ) (define-method get_show_numbers (of-object "GtkRecentChooser") (c-name "gtk_recent_chooser_get_show_numbers") (return-type "gboolean") ) (define-method set_show_icons (of-object "GtkRecentChooser") (c-name "gtk_recent_chooser_set_show_icons") (return-type "none") (parameters '("gboolean" "show_icons") ) ) (define-method get_show_icons (of-object "GtkRecentChooser") (c-name "gtk_recent_chooser_get_show_icons") (return-type "gboolean") ) (define-method set_sort_type (of-object "GtkRecentChooser") (c-name "gtk_recent_chooser_set_sort_type") (return-type "none") (parameters '("GtkRecentSortType" "sort_type") ) ) (define-method get_sort_type (of-object "GtkRecentChooser") (c-name "gtk_recent_chooser_get_sort_type") (return-type "GtkRecentSortType") ) (define-method set_sort_func (of-object "GtkRecentChooser") (c-name "gtk_recent_chooser_set_sort_func") (return-type "none") (parameters '("GtkRecentSortFunc" "sort_func") '("gpointer" "sort_data") '("GDestroyNotify" "data_destroy") ) ) (define-method set_current_uri (of-object "GtkRecentChooser") (c-name "gtk_recent_chooser_set_current_uri") (return-type "gboolean") (parameters '("const-gchar*" "uri") '("GError**" "error") ) ) (define-method get_current_uri (of-object "GtkRecentChooser") (c-name "gtk_recent_chooser_get_current_uri") (return-type "gchar*") ) (define-method get_current_item (of-object "GtkRecentChooser") (c-name "gtk_recent_chooser_get_current_item") (return-type "GtkRecentInfo*") ) (define-method select_uri (of-object "GtkRecentChooser") (c-name "gtk_recent_chooser_select_uri") (return-type "gboolean") (parameters '("const-gchar*" "uri") '("GError**" "error") ) ) (define-method unselect_uri (of-object "GtkRecentChooser") (c-name "gtk_recent_chooser_unselect_uri") (return-type "none") (parameters '("const-gchar*" "uri") ) ) (define-method select_all (of-object "GtkRecentChooser") (c-name "gtk_recent_chooser_select_all") (return-type "none") ) (define-method unselect_all (of-object "GtkRecentChooser") (c-name "gtk_recent_chooser_unselect_all") (return-type "none") ) (define-method get_items (of-object "GtkRecentChooser") (c-name "gtk_recent_chooser_get_items") (return-type "GList*") ) (define-method get_uris (of-object "GtkRecentChooser") (c-name "gtk_recent_chooser_get_uris") (return-type "gchar**") (parameters '("gsize*" "length") ) ) (define-method add_filter (of-object "GtkRecentChooser") (c-name "gtk_recent_chooser_add_filter") (return-type "none") (parameters '("GtkRecentFilter*" "filter") ) ) (define-method remove_filter (of-object "GtkRecentChooser") (c-name "gtk_recent_chooser_remove_filter") (return-type "none") (parameters '("GtkRecentFilter*" "filter") ) ) (define-method list_filters (of-object "GtkRecentChooser") (c-name "gtk_recent_chooser_list_filters") (return-type "GSList*") ) (define-method set_filter (of-object "GtkRecentChooser") (c-name "gtk_recent_chooser_set_filter") (return-type "none") (parameters '("GtkRecentFilter*" "filter") ) ) (define-method get_filter (of-object "GtkRecentChooser") (c-name "gtk_recent_chooser_get_filter") (return-type "GtkRecentFilter*") ) ;; From /opt/gnome2/include/gtk-2.0/gtk/gtkrecentchoosermenu.h (define-function gtk_recent_chooser_menu_get_type (c-name "gtk_recent_chooser_menu_get_type") (return-type "GType") ) (define-function gtk_recent_chooser_menu_new (c-name "gtk_recent_chooser_menu_new") (is-constructor-of "GtkRecentChooserMenu") (return-type "GtkWidget*") ) (define-function gtk_recent_chooser_menu_new_for_manager (c-name "gtk_recent_chooser_menu_new_for_manager") (return-type "GtkWidget*") (parameters '("GtkRecentManager*" "manager") ) ) (define-method get_show_numbers (of-object "GtkRecentChooserMenu") (c-name "gtk_recent_chooser_menu_get_show_numbers") (return-type "gboolean") ) (define-method set_show_numbers (of-object "GtkRecentChooserMenu") (c-name "gtk_recent_chooser_menu_set_show_numbers") (return-type "none") (parameters '("gboolean" "show_numbers") ) ) ;; From /opt/gnome2/include/gtk-2.0/gtk/gtkrecentchooserwidget.h (define-function gtk_recent_chooser_widget_get_type (c-name "gtk_recent_chooser_widget_get_type") (return-type "GType") ) (define-function gtk_recent_chooser_widget_new (c-name "gtk_recent_chooser_widget_new") (is-constructor-of "GtkRecentChooserWidget") (return-type "GtkWidget*") ) (define-function gtk_recent_chooser_widget_new_for_manager (c-name "gtk_recent_chooser_widget_new_for_manager") (return-type "GtkWidget*") (parameters '("GtkRecentManager*" "manager") ) ) ;; From /opt/gnome2/include/gtk-2.0/gtk/gtkrecentfilter.h (define-function gtk_recent_filter_get_type (c-name "gtk_recent_filter_get_type") (return-type "GType") ) (define-function gtk_recent_filter_new (c-name "gtk_recent_filter_new") (is-constructor-of "GtkRecentFilter") (return-type "GtkRecentFilter*") ) (define-method set_name (of-object "GtkRecentFilter") (c-name "gtk_recent_filter_set_name") (return-type "none") (parameters '("const-gchar*" "name") ) ) (define-method get_name (of-object "GtkRecentFilter") (c-name "gtk_recent_filter_get_name") (return-type "const-gchar*") ) (define-method add_mime_type (of-object "GtkRecentFilter") (c-name "gtk_recent_filter_add_mime_type") (return-type "none") (parameters '("const-gchar*" "mime_type") ) ) (define-method add_pattern (of-object "GtkRecentFilter") (c-name "gtk_recent_filter_add_pattern") (return-type "none") (parameters '("const-gchar*" "pattern") ) ) (define-method add_pixbuf_formats (of-object "GtkRecentFilter") (c-name "gtk_recent_filter_add_pixbuf_formats") (return-type "none") ) (define-method add_application (of-object "GtkRecentFilter") (c-name "gtk_recent_filter_add_application") (return-type "none") (parameters '("const-gchar*" "application") ) ) (define-method add_group (of-object "GtkRecentFilter") (c-name "gtk_recent_filter_add_group") (return-type "none") (parameters '("const-gchar*" "group") ) ) (define-method add_age (of-object "GtkRecentFilter") (c-name "gtk_recent_filter_add_age") (return-type "none") (parameters '("gint" "days") ) ) (define-method add_custom (of-object "GtkRecentFilter") (c-name "gtk_recent_filter_add_custom") (return-type "none") (parameters '("GtkRecentFilterFlags" "needed") '("GtkRecentFilterFunc" "func") '("gpointer" "data") '("GDestroyNotify" "data_destroy") ) ) (define-method get_needed (of-object "GtkRecentFilter") (c-name "gtk_recent_filter_get_needed") (return-type "GtkRecentFilterFlags") ) (define-method filter (of-object "GtkRecentFilter") (c-name "gtk_recent_filter_filter") (return-type "gboolean") (parameters '("const-GtkRecentFilterInfo*" "filter_info") ) ) ;; From /opt/gnome2/include/gtk-2.0/gtk/gtkrecentmanager.h (define-function gtk_recent_manager_error_quark (c-name "gtk_recent_manager_error_quark") (return-type "GQuark") ) (define-function gtk_recent_manager_get_type (c-name "gtk_recent_manager_get_type") (return-type "GType") ) (define-function gtk_recent_manager_new (c-name "gtk_recent_manager_new") (is-constructor-of "GtkRecentManager") (return-type "GtkRecentManager*") ) (define-function gtk_recent_manager_get_default (c-name "gtk_recent_manager_get_default") (return-type "GtkRecentManager*") ) (define-function gtk_recent_manager_get_for_screen (c-name "gtk_recent_manager_get_for_screen") (return-type "GtkRecentManager*") (parameters '("GdkScreen*" "screen") ) ) (define-method set_screen (of-object "GtkRecentManager") (c-name "gtk_recent_manager_set_screen") (return-type "none") (parameters '("GdkScreen*" "screen") ) ) (define-method add_item (of-object "GtkRecentManager") (c-name "gtk_recent_manager_add_item") (return-type "gboolean") (parameters '("const-gchar*" "uri") ) ) (define-method add_full (of-object "GtkRecentManager") (c-name "gtk_recent_manager_add_full") (return-type "gboolean") (parameters '("const-gchar*" "uri") '("const-GtkRecentData*" "recent_data") ) ) (define-method remove_item (of-object "GtkRecentManager") (c-name "gtk_recent_manager_remove_item") (return-type "gboolean") (parameters '("const-gchar*" "uri") '("GError**" "error") ) ) (define-method lookup_item (of-object "GtkRecentManager") (c-name "gtk_recent_manager_lookup_item") (return-type "GtkRecentInfo*") (parameters '("const-gchar*" "uri") '("GError**" "error") ) ) (define-method has_item (of-object "GtkRecentManager") (c-name "gtk_recent_manager_has_item") (return-type "gboolean") (parameters '("const-gchar*" "uri") ) ) (define-method move_item (of-object "GtkRecentManager") (c-name "gtk_recent_manager_move_item") (return-type "gboolean") (parameters '("const-gchar*" "uri") '("const-gchar*" "new_uri") '("GError**" "error") ) ) (define-method set_limit (of-object "GtkRecentManager") (c-name "gtk_recent_manager_set_limit") (return-type "none") (parameters '("gint" "limit") ) ) (define-method get_limit (of-object "GtkRecentManager") (c-name "gtk_recent_manager_get_limit") (return-type "gint") ) (define-method get_items (of-object "GtkRecentManager") (c-name "gtk_recent_manager_get_items") (return-type "GList*") ) (define-method purge_items (of-object "GtkRecentManager") (c-name "gtk_recent_manager_purge_items") (return-type "gint") (parameters '("GError**" "error") ) ) (define-function gtk_recent_info_get_type (c-name "gtk_recent_info_get_type") (return-type "GType") ) (define-method ref (of-object "GtkRecentInfo") (c-name "gtk_recent_info_ref") (return-type "GtkRecentInfo*") ) (define-method unref (of-object "GtkRecentInfo") (c-name "gtk_recent_info_unref") (return-type "none") ) (define-method get_uri (of-object "GtkRecentInfo") (c-name "gtk_recent_info_get_uri") (return-type "const-gchar*") ) (define-method get_display_name (of-object "GtkRecentInfo") (c-name "gtk_recent_info_get_display_name") (return-type "const-gchar*") ) (define-method get_description (of-object "GtkRecentInfo") (c-name "gtk_recent_info_get_description") (return-type "const-gchar*") ) (define-method get_mime_type (of-object "GtkRecentInfo") (c-name "gtk_recent_info_get_mime_type") (return-type "const-gchar*") ) (define-method get_added (of-object "GtkRecentInfo") (c-name "gtk_recent_info_get_added") (return-type "time_t") ) (define-method get_modified (of-object "GtkRecentInfo") (c-name "gtk_recent_info_get_modified") (return-type "time_t") ) (define-method get_visited (of-object "GtkRecentInfo") (c-name "gtk_recent_info_get_visited") (return-type "time_t") ) (define-method get_private_hint (of-object "GtkRecentInfo") (c-name "gtk_recent_info_get_private_hint") (return-type "gboolean") ) (define-method get_application_info (of-object "GtkRecentInfo") (c-name "gtk_recent_info_get_application_info") (return-type "gboolean") (parameters '("const-gchar*" "app_name") '("const-gchar**" "app_exec") '("guint*" "count") '("time_t*" "time_") ) ) (define-method get_applications (of-object "GtkRecentInfo") (c-name "gtk_recent_info_get_applications") (return-type "gchar**") (parameters '("gsize*" "length") ) ) (define-method last_application (of-object "GtkRecentInfo") (c-name "gtk_recent_info_last_application") (return-type "gchar*") ) (define-method has_application (of-object "GtkRecentInfo") (c-name "gtk_recent_info_has_application") (return-type "gboolean") (parameters '("const-gchar*" "app_name") ) ) (define-method get_groups (of-object "GtkRecentInfo") (c-name "gtk_recent_info_get_groups") (return-type "gchar**") (parameters '("gsize*" "length") ) ) (define-method has_group (of-object "GtkRecentInfo") (c-name "gtk_recent_info_has_group") (return-type "gboolean") (parameters '("const-gchar*" "group_name") ) ) (define-method get_icon (of-object "GtkRecentInfo") (c-name "gtk_recent_info_get_icon") (return-type "GdkPixbuf*") (parameters '("gint" "size") ) ) (define-method get_short_name (of-object "GtkRecentInfo") (c-name "gtk_recent_info_get_short_name") (return-type "gchar*") ) (define-method get_uri_display (of-object "GtkRecentInfo") (c-name "gtk_recent_info_get_uri_display") (return-type "gchar*") ) (define-method get_age (of-object "GtkRecentInfo") (c-name "gtk_recent_info_get_age") (return-type "gint") ) (define-method is_local (of-object "GtkRecentInfo") (c-name "gtk_recent_info_is_local") (return-type "gboolean") ) (define-method exists (of-object "GtkRecentInfo") (c-name "gtk_recent_info_exists") (return-type "gboolean") ) (define-method match (of-object "GtkRecentInfo") (c-name "gtk_recent_info_match") (return-type "gboolean") (parameters '("GtkRecentInfo*" "info_b") ) ) ;; From /opt/gnome2/include/gtk-2.0/gtk/gtkruler.h (define-function gtk_ruler_get_type (c-name "gtk_ruler_get_type") (return-type "GType") ) (define-method set_metric (of-object "GtkRuler") (c-name "gtk_ruler_set_metric") (return-type "none") (parameters '("GtkMetricType" "metric") ) ) (define-method set_range (of-object "GtkRuler") (c-name "gtk_ruler_set_range") (return-type "none") (parameters '("gdouble" "lower") '("gdouble" "upper") '("gdouble" "position") '("gdouble" "max_size") ) ) (define-method draw_ticks (of-object "GtkRuler") (c-name "gtk_ruler_draw_ticks") (return-type "none") ) (define-method draw_pos (of-object "GtkRuler") (c-name "gtk_ruler_draw_pos") (return-type "none") ) (define-method get_metric (of-object "GtkRuler") (c-name "gtk_ruler_get_metric") (return-type "GtkMetricType") ) (define-method get_range (of-object "GtkRuler") (c-name "gtk_ruler_get_range") (return-type "none") (parameters '("gdouble*" "lower") '("gdouble*" "upper") '("gdouble*" "position") '("gdouble*" "max_size") ) ) ;; From /opt/gnome2/include/gtk-2.0/gtk/gtkscale.h (define-function gtk_scale_get_type (c-name "gtk_scale_get_type") (return-type "GType") ) (define-method set_digits (of-object "GtkScale") (c-name "gtk_scale_set_digits") (return-type "none") (parameters '("gint" "digits") ) ) (define-method get_digits (of-object "GtkScale") (c-name "gtk_scale_get_digits") (return-type "gint") ) (define-method set_draw_value (of-object "GtkScale") (c-name "gtk_scale_set_draw_value") (return-type "none") (parameters '("gboolean" "draw_value") ) ) (define-method get_draw_value (of-object "GtkScale") (c-name "gtk_scale_get_draw_value") (return-type "gboolean") ) (define-method set_value_pos (of-object "GtkScale") (c-name "gtk_scale_set_value_pos") (return-type "none") (parameters '("GtkPositionType" "pos") ) ) (define-method get_value_pos (of-object "GtkScale") (c-name "gtk_scale_get_value_pos") (return-type "GtkPositionType") ) (define-method get_layout (of-object "GtkScale") (c-name "gtk_scale_get_layout") (return-type "PangoLayout*") ) (define-method get_layout_offsets (of-object "GtkScale") (c-name "gtk_scale_get_layout_offsets") (return-type "none") (parameters '("gint*" "x") '("gint*" "y") ) ) (define-method _clear_layout (of-object "GtkScale") (c-name "_gtk_scale_clear_layout") (return-type "none") ) (define-method _get_value_size (of-object "GtkScale") (c-name "_gtk_scale_get_value_size") (return-type "none") (parameters '("gint*" "width") '("gint*" "height") ) ) (define-method _format_value (of-object "GtkScale") (c-name "_gtk_scale_format_value") (return-type "gchar*") (parameters '("gdouble" "value") ) ) ;; From /opt/gnome2/include/gtk-2.0/gtk/gtkscrollbar.h (define-function gtk_scrollbar_get_type (c-name "gtk_scrollbar_get_type") (return-type "GType") ) ;; From /opt/gnome2/include/gtk-2.0/gtk/gtkscrolledwindow.h (define-function gtk_scrolled_window_get_type (c-name "gtk_scrolled_window_get_type") (return-type "GType") ) (define-function gtk_scrolled_window_new (c-name "gtk_scrolled_window_new") (is-constructor-of "GtkScrolledWindow") (return-type "GtkWidget*") (parameters '("GtkAdjustment*" "hadjustment") '("GtkAdjustment*" "vadjustment") ) ) (define-method set_hadjustment (of-object "GtkScrolledWindow") (c-name "gtk_scrolled_window_set_hadjustment") (return-type "none") (parameters '("GtkAdjustment*" "hadjustment") ) ) (define-method set_vadjustment (of-object "GtkScrolledWindow") (c-name "gtk_scrolled_window_set_vadjustment") (return-type "none") (parameters '("GtkAdjustment*" "vadjustment") ) ) (define-method get_hadjustment (of-object "GtkScrolledWindow") (c-name "gtk_scrolled_window_get_hadjustment") (return-type "GtkAdjustment*") ) (define-method get_vadjustment (of-object "GtkScrolledWindow") (c-name "gtk_scrolled_window_get_vadjustment") (return-type "GtkAdjustment*") ) (define-method get_hscrollbar (of-object "GtkScrolledWindow") (c-name "gtk_scrolled_window_get_hscrollbar") (return-type "GtkWidget*") ) (define-method get_vscrollbar (of-object "GtkScrolledWindow") (c-name "gtk_scrolled_window_get_vscrollbar") (return-type "GtkWidget*") ) (define-method set_policy (of-object "GtkScrolledWindow") (c-name "gtk_scrolled_window_set_policy") (return-type "none") (parameters '("GtkPolicyType" "hscrollbar_policy") '("GtkPolicyType" "vscrollbar_policy") ) ) (define-method get_policy (of-object "GtkScrolledWindow") (c-name "gtk_scrolled_window_get_policy") (return-type "none") (parameters '("GtkPolicyType*" "hscrollbar_policy") '("GtkPolicyType*" "vscrollbar_policy") ) ) (define-method set_placement (of-object "GtkScrolledWindow") (c-name "gtk_scrolled_window_set_placement") (return-type "none") (parameters '("GtkCornerType" "window_placement") ) ) (define-method unset_placement (of-object "GtkScrolledWindow") (c-name "gtk_scrolled_window_unset_placement") (return-type "none") ) (define-method get_placement (of-object "GtkScrolledWindow") (c-name "gtk_scrolled_window_get_placement") (return-type "GtkCornerType") ) (define-method set_shadow_type (of-object "GtkScrolledWindow") (c-name "gtk_scrolled_window_set_shadow_type") (return-type "none") (parameters '("GtkShadowType" "type") ) ) (define-method get_shadow_type (of-object "GtkScrolledWindow") (c-name "gtk_scrolled_window_get_shadow_type") (return-type "GtkShadowType") ) (define-method add_with_viewport (of-object "GtkScrolledWindow") (c-name "gtk_scrolled_window_add_with_viewport") (return-type "none") (parameters '("GtkWidget*" "child") ) ) (define-method _get_scrollbar_spacing (of-object "GtkScrolledWindow") (c-name "_gtk_scrolled_window_get_scrollbar_spacing") (return-type "gint") ) ;; From /opt/gnome2/include/gtk-2.0/gtk/gtkselection.h (define-function gtk_target_list_new (c-name "gtk_target_list_new") (is-constructor-of "GtkTargetList") (return-type "GtkTargetList*") (parameters '("const-GtkTargetEntry*" "targets") '("guint" "ntargets") ) ) (define-method ref (of-object "GtkTargetList") (c-name "gtk_target_list_ref") (return-type "GtkTargetList*") ) (define-method unref (of-object "GtkTargetList") (c-name "gtk_target_list_unref") (return-type "none") ) (define-method add (of-object "GtkTargetList") (c-name "gtk_target_list_add") (return-type "none") (parameters '("GdkAtom" "target") '("guint" "flags") '("guint" "info") ) ) (define-method add_text_targets (of-object "GtkTargetList") (c-name "gtk_target_list_add_text_targets") (return-type "none") (parameters '("guint" "info") ) ) (define-method add_rich_text_targets (of-object "GtkTargetList") (c-name "gtk_target_list_add_rich_text_targets") (return-type "none") (parameters '("guint" "info") '("gboolean" "deserializable") '("GtkTextBuffer*" "buffer") ) ) (define-method add_image_targets (of-object "GtkTargetList") (c-name "gtk_target_list_add_image_targets") (return-type "none") (parameters '("guint" "info") '("gboolean" "writable") ) ) (define-method add_uri_targets (of-object "GtkTargetList") (c-name "gtk_target_list_add_uri_targets") (return-type "none") (parameters '("guint" "info") ) ) (define-method add_table (of-object "GtkTargetList") (c-name "gtk_target_list_add_table") (return-type "none") (parameters '("const-GtkTargetEntry*" "targets") '("guint" "ntargets") ) ) (define-method remove (of-object "GtkTargetList") (c-name "gtk_target_list_remove") (return-type "none") (parameters '("GdkAtom" "target") ) ) (define-method find (of-object "GtkTargetList") (c-name "gtk_target_list_find") (return-type "gboolean") (parameters '("GdkAtom" "target") '("guint*" "info") ) ) (define-function gtk_target_table_new_from_list (c-name "gtk_target_table_new_from_list") (return-type "GtkTargetEntry*") (parameters '("GtkTargetList*" "list") '("gint*" "n_targets") ) ) (define-function gtk_target_table_free (c-name "gtk_target_table_free") (return-type "none") (parameters '("GtkTargetEntry*" "targets") '("gint" "n_targets") ) ) (define-function gtk_selection_owner_set (c-name "gtk_selection_owner_set") (return-type "gboolean") (parameters '("GtkWidget*" "widget") '("GdkAtom" "selection") '("guint32" "time_") ) ) (define-function gtk_selection_owner_set_for_display (c-name "gtk_selection_owner_set_for_display") (return-type "gboolean") (parameters '("GdkDisplay*" "display") '("GtkWidget*" "widget") '("GdkAtom" "selection") '("guint32" "time_") ) ) (define-function gtk_selection_add_target (c-name "gtk_selection_add_target") (return-type "none") (parameters '("GtkWidget*" "widget") '("GdkAtom" "selection") '("GdkAtom" "target") '("guint" "info") ) ) (define-function gtk_selection_add_targets (c-name "gtk_selection_add_targets") (return-type "none") (parameters '("GtkWidget*" "widget") '("GdkAtom" "selection") '("const-GtkTargetEntry*" "targets") '("guint" "ntargets") ) ) (define-function gtk_selection_clear_targets (c-name "gtk_selection_clear_targets") (return-type "none") (parameters '("GtkWidget*" "widget") '("GdkAtom" "selection") ) ) (define-function gtk_selection_convert (c-name "gtk_selection_convert") (return-type "gboolean") (parameters '("GtkWidget*" "widget") '("GdkAtom" "selection") '("GdkAtom" "target") '("guint32" "time_") ) ) (define-method set (of-object "GtkSelectionData") (c-name "gtk_selection_data_set") (return-type "none") (parameters '("GdkAtom" "type") '("gint" "format") '("const-guchar*" "data") '("gint" "length") ) ) (define-method set_text (of-object "GtkSelectionData") (c-name "gtk_selection_data_set_text") (return-type "gboolean") (parameters '("const-gchar*" "str") '("gint" "len") ) ) (define-method get_text (of-object "GtkSelectionData") (c-name "gtk_selection_data_get_text") (return-type "guchar*") ) (define-method set_pixbuf (of-object "GtkSelectionData") (c-name "gtk_selection_data_set_pixbuf") (return-type "gboolean") (parameters '("GdkPixbuf*" "pixbuf") ) ) (define-method get_pixbuf (of-object "GtkSelectionData") (c-name "gtk_selection_data_get_pixbuf") (return-type "GdkPixbuf*") ) (define-method set_uris (of-object "GtkSelectionData") (c-name "gtk_selection_data_set_uris") (return-type "gboolean") (parameters '("gchar**" "uris") ) ) (define-method get_uris (of-object "GtkSelectionData") (c-name "gtk_selection_data_get_uris") (return-type "gchar**") ) (define-method get_targets (of-object "GtkSelectionData") (c-name "gtk_selection_data_get_targets") (return-type "gboolean") (parameters '("GdkAtom**" "targets") '("gint*" "n_atoms") ) ) (define-method targets_include_text (of-object "GtkSelectionData") (c-name "gtk_selection_data_targets_include_text") (return-type "gboolean") ) (define-method targets_include_rich_text (of-object "GtkSelectionData") (c-name "gtk_selection_data_targets_include_rich_text") (return-type "gboolean") (parameters '("GtkTextBuffer*" "buffer") ) ) (define-method targets_include_image (of-object "GtkSelectionData") (c-name "gtk_selection_data_targets_include_image") (return-type "gboolean") (parameters '("gboolean" "writable") ) ) (define-method targets_include_uri (of-object "GtkSelectionData") (c-name "gtk_selection_data_targets_include_uri") (return-type "gboolean") ) (define-function gtk_targets_include_text (c-name "gtk_targets_include_text") (return-type "gboolean") (parameters '("GdkAtom*" "targets") '("gint" "n_targets") ) ) (define-function gtk_targets_include_rich_text (c-name "gtk_targets_include_rich_text") (return-type "gboolean") (parameters '("GdkAtom*" "targets") '("gint" "n_targets") '("GtkTextBuffer*" "buffer") ) ) (define-function gtk_targets_include_image (c-name "gtk_targets_include_image") (return-type "gboolean") (parameters '("GdkAtom*" "targets") '("gint" "n_targets") '("gboolean" "writable") ) ) (define-function gtk_targets_include_uri (c-name "gtk_targets_include_uri") (return-type "gboolean") (parameters '("GdkAtom*" "targets") '("gint" "n_targets") ) ) (define-function gtk_selection_remove_all (c-name "gtk_selection_remove_all") (return-type "none") (parameters '("GtkWidget*" "widget") ) ) (define-function gtk_selection_clear (c-name "gtk_selection_clear") (return-type "gboolean") (parameters '("GtkWidget*" "widget") '("GdkEventSelection*" "event") ) ) (define-function _gtk_selection_request (c-name "_gtk_selection_request") (return-type "gboolean") (parameters '("GtkWidget*" "widget") '("GdkEventSelection*" "event") ) ) (define-function _gtk_selection_incr_event (c-name "_gtk_selection_incr_event") (return-type "gboolean") (parameters '("GdkWindow*" "window") '("GdkEventProperty*" "event") ) ) (define-function _gtk_selection_notify (c-name "_gtk_selection_notify") (return-type "gboolean") (parameters '("GtkWidget*" "widget") '("GdkEventSelection*" "event") ) ) (define-function _gtk_selection_property_notify (c-name "_gtk_selection_property_notify") (return-type "gboolean") (parameters '("GtkWidget*" "widget") '("GdkEventProperty*" "event") ) ) (define-function gtk_selection_data_get_type (c-name "gtk_selection_data_get_type") (return-type "GType") ) (define-method copy (of-object "GtkSelectionData") (c-name "gtk_selection_data_copy") (return-type "GtkSelectionData*") ) (define-method free (of-object "GtkSelectionData") (c-name "gtk_selection_data_free") (return-type "none") ) (define-function gtk_target_list_get_type (c-name "gtk_target_list_get_type") (return-type "GType") ) ;; From /opt/gnome2/include/gtk-2.0/gtk/gtkseparator.h (define-function gtk_separator_get_type (c-name "gtk_separator_get_type") (return-type "GType") ) ;; From /opt/gnome2/include/gtk-2.0/gtk/gtkseparatormenuitem.h (define-function gtk_separator_menu_item_get_type (c-name "gtk_separator_menu_item_get_type") (return-type "GType") ) (define-function gtk_separator_menu_item_new (c-name "gtk_separator_menu_item_new") (is-constructor-of "GtkSeparatorMenuItem") (return-type "GtkWidget*") ) ;; From /opt/gnome2/include/gtk-2.0/gtk/gtkseparatortoolitem.h (define-function gtk_separator_tool_item_get_type (c-name "gtk_separator_tool_item_get_type") (return-type "GType") ) (define-function gtk_separator_tool_item_new (c-name "gtk_separator_tool_item_new") (is-constructor-of "GtkSeparatorToolItem") (return-type "GtkToolItem*") ) (define-method get_draw (of-object "GtkSeparatorToolItem") (c-name "gtk_separator_tool_item_get_draw") (return-type "gboolean") ) (define-method set_draw (of-object "GtkSeparatorToolItem") (c-name "gtk_separator_tool_item_set_draw") (return-type "none") (parameters '("gboolean" "draw") ) ) ;; From /opt/gnome2/include/gtk-2.0/gtk/gtksettings.h (define-function gtk_settings_get_type (c-name "gtk_settings_get_type") (return-type "GType") ) (define-function gtk_settings_get_default (c-name "gtk_settings_get_default") (return-type "GtkSettings*") ) (define-function gtk_settings_get_for_screen (c-name "gtk_settings_get_for_screen") (return-type "GtkSettings*") (parameters '("GdkScreen*" "screen") ) ) (define-function gtk_settings_install_property (c-name "gtk_settings_install_property") (return-type "none") (parameters '("GParamSpec*" "pspec") ) ) (define-function gtk_settings_install_property_parser (c-name "gtk_settings_install_property_parser") (return-type "none") (parameters '("GParamSpec*" "pspec") '("GtkRcPropertyParser" "parser") ) ) (define-function gtk_rc_property_parse_color (c-name "gtk_rc_property_parse_color") (return-type "gboolean") (parameters '("const-GParamSpec*" "pspec") '("const-GString*" "gstring") '("GValue*" "property_value") ) ) (define-function gtk_rc_property_parse_enum (c-name "gtk_rc_property_parse_enum") (return-type "gboolean") (parameters '("const-GParamSpec*" "pspec") '("const-GString*" "gstring") '("GValue*" "property_value") ) ) (define-function gtk_rc_property_parse_flags (c-name "gtk_rc_property_parse_flags") (return-type "gboolean") (parameters '("const-GParamSpec*" "pspec") '("const-GString*" "gstring") '("GValue*" "property_value") ) ) (define-function gtk_rc_property_parse_requisition (c-name "gtk_rc_property_parse_requisition") (return-type "gboolean") (parameters '("const-GParamSpec*" "pspec") '("const-GString*" "gstring") '("GValue*" "property_value") ) ) (define-function gtk_rc_property_parse_border (c-name "gtk_rc_property_parse_border") (return-type "gboolean") (parameters '("const-GParamSpec*" "pspec") '("const-GString*" "gstring") '("GValue*" "property_value") ) ) (define-method set_property_value (of-object "GtkSettings") (c-name "gtk_settings_set_property_value") (return-type "none") (parameters '("const-gchar*" "name") '("const-GtkSettingsValue*" "svalue") ) ) (define-method set_string_property (of-object "GtkSettings") (c-name "gtk_settings_set_string_property") (return-type "none") (parameters '("const-gchar*" "name") '("const-gchar*" "v_string") '("const-gchar*" "origin") ) ) (define-method set_long_property (of-object "GtkSettings") (c-name "gtk_settings_set_long_property") (return-type "none") (parameters '("const-gchar*" "name") '("glong" "v_long") '("const-gchar*" "origin") ) ) (define-method set_double_property (of-object "GtkSettings") (c-name "gtk_settings_set_double_property") (return-type "none") (parameters '("const-gchar*" "name") '("gdouble" "v_double") '("const-gchar*" "origin") ) ) (define-method _set_property_value_from_rc (of-object "GtkSettings") (c-name "_gtk_settings_set_property_value_from_rc") (return-type "none") (parameters '("const-gchar*" "name") '("const-GtkSettingsValue*" "svalue") ) ) (define-method _reset_rc_values (of-object "GtkSettings") (c-name "_gtk_settings_reset_rc_values") (return-type "none") ) (define-function _gtk_settings_handle_event (c-name "_gtk_settings_handle_event") (return-type "none") (parameters '("GdkEventSetting*" "event") ) ) (define-function _gtk_rc_property_parser_from_type (c-name "_gtk_rc_property_parser_from_type") (return-type "GtkRcPropertyParser") (parameters '("GType" "type") ) ) (define-function _gtk_settings_parse_convert (c-name "_gtk_settings_parse_convert") (return-type "gboolean") (parameters '("GtkRcPropertyParser" "parser") '("const-GValue*" "src_value") '("GParamSpec*" "pspec") '("GValue*" "dest_value") ) ) ;; From /opt/gnome2/include/gtk-2.0/gtk/gtksignal.h (define-function gtk_signal_newv (c-name "gtk_signal_newv") (return-type "guint") (parameters '("const-gchar*" "name") '("GtkSignalRunType" "signal_flags") '("GtkType" "object_type") '("guint" "function_offset") '("GtkSignalMarshaller" "marshaller") '("GtkType" "return_val") '("guint" "n_args") '("GtkType*" "args") ) ) (define-function gtk_signal_new (c-name "gtk_signal_new") (return-type "guint") (parameters '("const-gchar*" "name") '("GtkSignalRunType" "signal_flags") '("GtkType" "object_type") '("guint" "function_offset") '("GtkSignalMarshaller" "marshaller") '("GtkType" "return_val") '("guint" "n_args") ) (varargs #t) ) (define-function gtk_signal_emit_stop_by_name (c-name "gtk_signal_emit_stop_by_name") (return-type "none") (parameters '("GtkObject*" "object") '("const-gchar*" "name") ) ) (define-function gtk_signal_connect_object_while_alive (c-name "gtk_signal_connect_object_while_alive") (return-type "none") (parameters '("GtkObject*" "object") '("const-gchar*" "name") '("GtkSignalFunc" "func") '("GtkObject*" "alive_object") ) ) (define-function gtk_signal_connect_while_alive (c-name "gtk_signal_connect_while_alive") (return-type "none") (parameters '("GtkObject*" "object") '("const-gchar*" "name") '("GtkSignalFunc" "func") '("gpointer" "func_data") '("GtkObject*" "alive_object") ) ) (define-function gtk_signal_connect_full (c-name "gtk_signal_connect_full") (return-type "gulong") (parameters '("GtkObject*" "object") '("const-gchar*" "name") '("GtkSignalFunc" "func") '("GtkCallbackMarshal" "unsupported") '("gpointer" "data") '("GtkDestroyNotify" "destroy_func") '("gint" "object_signal") '("gint" "after") ) ) (define-function gtk_signal_emitv (c-name "gtk_signal_emitv") (return-type "none") (parameters '("GtkObject*" "object") '("guint" "signal_id") '("GtkArg*" "args") ) ) (define-function gtk_signal_emit (c-name "gtk_signal_emit") (return-type "none") (parameters '("GtkObject*" "object") '("guint" "signal_id") ) (varargs #t) ) (define-function gtk_signal_emit_by_name (c-name "gtk_signal_emit_by_name") (return-type "none") (parameters '("GtkObject*" "object") '("const-gchar*" "name") ) (varargs #t) ) (define-function gtk_signal_emitv_by_name (c-name "gtk_signal_emitv_by_name") (return-type "none") (parameters '("GtkObject*" "object") '("const-gchar*" "name") '("GtkArg*" "args") ) ) (define-function gtk_signal_compat_matched (c-name "gtk_signal_compat_matched") (return-type "none") (parameters '("GtkObject*" "object") '("GtkSignalFunc" "func") '("gpointer" "data") '("GSignalMatchType" "match") '("guint" "action") ) ) ;; From /opt/gnome2/include/gtk-2.0/gtk/gtksizegroup.h (define-function gtk_size_group_get_type (c-name "gtk_size_group_get_type") (return-type "GType") ) (define-function gtk_size_group_new (c-name "gtk_size_group_new") (is-constructor-of "GtkSizeGroup") (return-type "GtkSizeGroup*") (parameters '("GtkSizeGroupMode" "mode") ) ) (define-method set_mode (of-object "GtkSizeGroup") (c-name "gtk_size_group_set_mode") (return-type "none") (parameters '("GtkSizeGroupMode" "mode") ) ) (define-method get_mode (of-object "GtkSizeGroup") (c-name "gtk_size_group_get_mode") (return-type "GtkSizeGroupMode") ) (define-method set_ignore_hidden (of-object "GtkSizeGroup") (c-name "gtk_size_group_set_ignore_hidden") (return-type "none") (parameters '("gboolean" "ignore_hidden") ) ) (define-method get_ignore_hidden (of-object "GtkSizeGroup") (c-name "gtk_size_group_get_ignore_hidden") (return-type "gboolean") ) (define-method add_widget (of-object "GtkSizeGroup") (c-name "gtk_size_group_add_widget") (return-type "none") (parameters '("GtkWidget*" "widget") ) ) (define-method remove_widget (of-object "GtkSizeGroup") (c-name "gtk_size_group_remove_widget") (return-type "none") (parameters '("GtkWidget*" "widget") ) ) (define-method get_widgets (of-object "GtkSizeGroup") (c-name "gtk_size_group_get_widgets") (return-type "GSList*") ) (define-function _gtk_size_group_get_child_requisition (c-name "_gtk_size_group_get_child_requisition") (return-type "none") (parameters '("GtkWidget*" "widget") '("GtkRequisition*" "requisition") ) ) (define-function _gtk_size_group_compute_requisition (c-name "_gtk_size_group_compute_requisition") (return-type "none") (parameters '("GtkWidget*" "widget") '("GtkRequisition*" "requisition") ) ) (define-function _gtk_size_group_queue_resize (c-name "_gtk_size_group_queue_resize") (return-type "none") (parameters '("GtkWidget*" "widget") ) ) ;; From /opt/gnome2/include/gtk-2.0/gtk/gtksocket.h (define-function gtk_socket_get_type (c-name "gtk_socket_get_type") (return-type "GType") ) (define-function gtk_socket_new (c-name "gtk_socket_new") (is-constructor-of "GtkSocket") (return-type "GtkWidget*") ) (define-method add_id (of-object "GtkSocket") (c-name "gtk_socket_add_id") (return-type "none") (parameters '("GdkNativeWindow" "window_id") ) ) (define-method get_id (of-object "GtkSocket") (c-name "gtk_socket_get_id") (return-type "GdkNativeWindow") ) (define-method steal (of-object "GtkSocket") (c-name "gtk_socket_steal") (return-type "none") (parameters '("GdkNativeWindow" "wid") ) ) ;; From /opt/gnome2/include/gtk-2.0/gtk/gtkspinbutton.h (define-function gtk_spin_button_get_type (c-name "gtk_spin_button_get_type") (return-type "GType") ) (define-method configure (of-object "GtkSpinButton") (c-name "gtk_spin_button_configure") (return-type "none") (parameters '("GtkAdjustment*" "adjustment") '("gdouble" "climb_rate") '("guint" "digits") ) ) (define-function gtk_spin_button_new (c-name "gtk_spin_button_new") (is-constructor-of "GtkSpinButton") (return-type "GtkWidget*") (parameters '("GtkAdjustment*" "adjustment") '("gdouble" "climb_rate") '("guint" "digits") ) ) (define-function gtk_spin_button_new_with_range (c-name "gtk_spin_button_new_with_range") (return-type "GtkWidget*") (parameters '("gdouble" "min") '("gdouble" "max") '("gdouble" "step") ) ) (define-method set_adjustment (of-object "GtkSpinButton") (c-name "gtk_spin_button_set_adjustment") (return-type "none") (parameters '("GtkAdjustment*" "adjustment") ) ) (define-method get_adjustment (of-object "GtkSpinButton") (c-name "gtk_spin_button_get_adjustment") (return-type "GtkAdjustment*") ) (define-method set_digits (of-object "GtkSpinButton") (c-name "gtk_spin_button_set_digits") (return-type "none") (parameters '("guint" "digits") ) ) (define-method get_digits (of-object "GtkSpinButton") (c-name "gtk_spin_button_get_digits") (return-type "guint") ) (define-method set_increments (of-object "GtkSpinButton") (c-name "gtk_spin_button_set_increments") (return-type "none") (parameters '("gdouble" "step") '("gdouble" "page") ) ) (define-method get_increments (of-object "GtkSpinButton") (c-name "gtk_spin_button_get_increments") (return-type "none") (parameters '("gdouble*" "step") '("gdouble*" "page") ) ) (define-method set_range (of-object "GtkSpinButton") (c-name "gtk_spin_button_set_range") (return-type "none") (parameters '("gdouble" "min") '("gdouble" "max") ) ) (define-method get_range (of-object "GtkSpinButton") (c-name "gtk_spin_button_get_range") (return-type "none") (parameters '("gdouble*" "min") '("gdouble*" "max") ) ) (define-method get_value (of-object "GtkSpinButton") (c-name "gtk_spin_button_get_value") (return-type "gdouble") ) (define-method get_value_as_int (of-object "GtkSpinButton") (c-name "gtk_spin_button_get_value_as_int") (return-type "gint") ) (define-method set_value (of-object "GtkSpinButton") (c-name "gtk_spin_button_set_value") (return-type "none") (parameters '("gdouble" "value") ) ) (define-method set_update_policy (of-object "GtkSpinButton") (c-name "gtk_spin_button_set_update_policy") (return-type "none") (parameters '("GtkSpinButtonUpdatePolicy" "policy") ) ) (define-method get_update_policy (of-object "GtkSpinButton") (c-name "gtk_spin_button_get_update_policy") (return-type "GtkSpinButtonUpdatePolicy") ) (define-method set_numeric (of-object "GtkSpinButton") (c-name "gtk_spin_button_set_numeric") (return-type "none") (parameters '("gboolean" "numeric") ) ) (define-method get_numeric (of-object "GtkSpinButton") (c-name "gtk_spin_button_get_numeric") (return-type "gboolean") ) (define-method spin (of-object "GtkSpinButton") (c-name "gtk_spin_button_spin") (return-type "none") (parameters '("GtkSpinType" "direction") '("gdouble" "increment") ) ) (define-method set_wrap (of-object "GtkSpinButton") (c-name "gtk_spin_button_set_wrap") (return-type "none") (parameters '("gboolean" "wrap") ) ) (define-method get_wrap (of-object "GtkSpinButton") (c-name "gtk_spin_button_get_wrap") (return-type "gboolean") ) (define-method set_snap_to_ticks (of-object "GtkSpinButton") (c-name "gtk_spin_button_set_snap_to_ticks") (return-type "none") (parameters '("gboolean" "snap_to_ticks") ) ) (define-method get_snap_to_ticks (of-object "GtkSpinButton") (c-name "gtk_spin_button_get_snap_to_ticks") (return-type "gboolean") ) (define-method update (of-object "GtkSpinButton") (c-name "gtk_spin_button_update") (return-type "none") ) ;; From /opt/gnome2/include/gtk-2.0/gtk/gtkstatusbar.h (define-function gtk_statusbar_get_type (c-name "gtk_statusbar_get_type") (return-type "GType") ) (define-function gtk_statusbar_new (c-name "gtk_statusbar_new") (is-constructor-of "GtkStatusbar") (return-type "GtkWidget*") ) (define-method get_context_id (of-object "GtkStatusbar") (c-name "gtk_statusbar_get_context_id") (return-type "guint") (parameters '("const-gchar*" "context_description") ) ) (define-method push (of-object "GtkStatusbar") (c-name "gtk_statusbar_push") (return-type "guint") (parameters '("guint" "context_id") '("const-gchar*" "text") ) ) (define-method pop (of-object "GtkStatusbar") (c-name "gtk_statusbar_pop") (return-type "none") (parameters '("guint" "context_id") ) ) (define-method remove (of-object "GtkStatusbar") (c-name "gtk_statusbar_remove") (return-type "none") (parameters '("guint" "context_id") '("guint" "message_id") ) ) (define-method set_has_resize_grip (of-object "GtkStatusbar") (c-name "gtk_statusbar_set_has_resize_grip") (return-type "none") (parameters '("gboolean" "setting") ) ) (define-method get_has_resize_grip (of-object "GtkStatusbar") (c-name "gtk_statusbar_get_has_resize_grip") (return-type "gboolean") ) ;; From /opt/gnome2/include/gtk-2.0/gtk/gtkstatusicon.h (define-function gtk_status_icon_get_type (c-name "gtk_status_icon_get_type") (return-type "GType") ) (define-function gtk_status_icon_new (c-name "gtk_status_icon_new") (is-constructor-of "GtkStatusIcon") (return-type "GtkStatusIcon*") ) (define-function gtk_status_icon_new_from_pixbuf (c-name "gtk_status_icon_new_from_pixbuf") (return-type "GtkStatusIcon*") (parameters '("GdkPixbuf*" "pixbuf") ) ) (define-function gtk_status_icon_new_from_file (c-name "gtk_status_icon_new_from_file") (return-type "GtkStatusIcon*") (parameters '("const-gchar*" "filename") ) ) (define-function gtk_status_icon_new_from_stock (c-name "gtk_status_icon_new_from_stock") (return-type "GtkStatusIcon*") (parameters '("const-gchar*" "stock_id") ) ) (define-function gtk_status_icon_new_from_icon_name (c-name "gtk_status_icon_new_from_icon_name") (return-type "GtkStatusIcon*") (parameters '("const-gchar*" "icon_name") ) ) (define-method set_from_pixbuf (of-object "GtkStatusIcon") (c-name "gtk_status_icon_set_from_pixbuf") (return-type "none") (parameters '("GdkPixbuf*" "pixbuf") ) ) (define-method set_from_file (of-object "GtkStatusIcon") (c-name "gtk_status_icon_set_from_file") (return-type "none") (parameters '("const-gchar*" "filename") ) ) (define-method set_from_stock (of-object "GtkStatusIcon") (c-name "gtk_status_icon_set_from_stock") (return-type "none") (parameters '("const-gchar*" "stock_id") ) ) (define-method set_from_icon_name (of-object "GtkStatusIcon") (c-name "gtk_status_icon_set_from_icon_name") (return-type "none") (parameters '("const-gchar*" "icon_name") ) ) (define-method get_storage_type (of-object "GtkStatusIcon") (c-name "gtk_status_icon_get_storage_type") (return-type "GtkImageType") ) (define-method get_pixbuf (of-object "GtkStatusIcon") (c-name "gtk_status_icon_get_pixbuf") (return-type "GdkPixbuf*") ) (define-method get_stock (of-object "GtkStatusIcon") (c-name "gtk_status_icon_get_stock") (return-type "const-gchar*") ) (define-method get_icon_name (of-object "GtkStatusIcon") (c-name "gtk_status_icon_get_icon_name") (return-type "const-gchar*") ) (define-method get_size (of-object "GtkStatusIcon") (c-name "gtk_status_icon_get_size") (return-type "gint") ) (define-method set_tooltip (of-object "GtkStatusIcon") (c-name "gtk_status_icon_set_tooltip") (return-type "none") (parameters '("const-gchar*" "tooltip_text") ) ) (define-method set_visible (of-object "GtkStatusIcon") (c-name "gtk_status_icon_set_visible") (return-type "none") (parameters '("gboolean" "visible") ) ) (define-method get_visible (of-object "GtkStatusIcon") (c-name "gtk_status_icon_get_visible") (return-type "gboolean") ) (define-method set_blinking (of-object "GtkStatusIcon") (c-name "gtk_status_icon_set_blinking") (return-type "none") (parameters '("gboolean" "blinking") ) ) (define-method get_blinking (of-object "GtkStatusIcon") (c-name "gtk_status_icon_get_blinking") (return-type "gboolean") ) (define-method is_embedded (of-object "GtkStatusIcon") (c-name "gtk_status_icon_is_embedded") (return-type "gboolean") ) (define-function gtk_status_icon_position_menu (c-name "gtk_status_icon_position_menu") (return-type "none") (parameters '("GtkMenu*" "menu") '("gint*" "x") '("gint*" "y") '("gboolean*" "push_in") '("gpointer" "user_data") ) ) (define-method get_geometry (of-object "GtkStatusIcon") (c-name "gtk_status_icon_get_geometry") (return-type "gboolean") (parameters '("GdkScreen**" "screen") '("GdkRectangle*" "area") '("GtkOrientation*" "orientation") ) ) ;; From /opt/gnome2/include/gtk-2.0/gtk/gtkstock.h (define-function gtk_stock_add (c-name "gtk_stock_add") (return-type "none") (parameters '("const-GtkStockItem*" "items") '("guint" "n_items") ) ) (define-function gtk_stock_add_static (c-name "gtk_stock_add_static") (return-type "none") (parameters '("const-GtkStockItem*" "items") '("guint" "n_items") ) ) (define-function gtk_stock_lookup (c-name "gtk_stock_lookup") (return-type "gboolean") (parameters '("const-gchar*" "stock_id") '("GtkStockItem*" "item") ) ) (define-function gtk_stock_list_ids (c-name "gtk_stock_list_ids") (return-type "GSList*") ) (define-method copy (of-object "GtkStockItem") (c-name "gtk_stock_item_copy") (return-type "GtkStockItem*") ) (define-method free (of-object "GtkStockItem") (c-name "gtk_stock_item_free") (return-type "none") ) (define-function gtk_stock_set_translate_func (c-name "gtk_stock_set_translate_func") (return-type "none") (parameters '("const-gchar*" "domain") '("GtkTranslateFunc" "func") '("gpointer" "data") '("GtkDestroyNotify" "notify") ) ) ;; From /opt/gnome2/include/gtk-2.0/gtk/gtkstyle.h (define-function gtk_style_get_type (c-name "gtk_style_get_type") (return-type "GType") ) (define-function gtk_style_new (c-name "gtk_style_new") (is-constructor-of "GtkStyle") (return-type "GtkStyle*") ) (define-method copy (of-object "GtkStyle") (c-name "gtk_style_copy") (return-type "GtkStyle*") ) (define-method attach (of-object "GtkStyle") (c-name "gtk_style_attach") (return-type "GtkStyle*") (parameters '("GdkWindow*" "window") ) ) (define-method detach (of-object "GtkStyle") (c-name "gtk_style_detach") (return-type "none") ) (define-method ref (of-object "GtkStyle") (c-name "gtk_style_ref") (return-type "GtkStyle*") ) (define-method unref (of-object "GtkStyle") (c-name "gtk_style_unref") (return-type "none") ) (define-method get_font (of-object "GtkStyle") (c-name "gtk_style_get_font") (return-type "GdkFont*") ) (define-method set_font (of-object "GtkStyle") (c-name "gtk_style_set_font") (return-type "none") (parameters '("GdkFont*" "font") ) ) (define-method set_background (of-object "GtkStyle") (c-name "gtk_style_set_background") (return-type "none") (parameters '("GdkWindow*" "window") '("GtkStateType" "state_type") ) ) (define-method apply_default_background (of-object "GtkStyle") (c-name "gtk_style_apply_default_background") (return-type "none") (parameters '("GdkWindow*" "window") '("gboolean" "set_bg") '("GtkStateType" "state_type") '("GdkRectangle*" "area") '("gint" "x") '("gint" "y") '("gint" "width") '("gint" "height") ) ) (define-method lookup_icon_set (of-object "GtkStyle") (c-name "gtk_style_lookup_icon_set") (return-type "GtkIconSet*") (parameters '("const-gchar*" "stock_id") ) ) (define-method lookup_color (of-object "GtkStyle") (c-name "gtk_style_lookup_color") (return-type "gboolean") (parameters '("const-gchar*" "color_name") '("GdkColor*" "color") ) ) (define-method render_icon (of-object "GtkStyle") (c-name "gtk_style_render_icon") (return-type "GdkPixbuf*") (parameters '("const-GtkIconSource*" "source") '("GtkTextDirection" "direction") '("GtkStateType" "state") '("GtkIconSize" "size") '("GtkWidget*" "widget") '("const-gchar*" "detail") ) ) (define-function gtk_draw_hline (c-name "gtk_draw_hline") (return-type "none") (parameters '("GtkStyle*" "style") '("GdkWindow*" "window") '("GtkStateType" "state_type") '("gint" "x1") '("gint" "x2") '("gint" "y") ) ) (define-function gtk_draw_vline (c-name "gtk_draw_vline") (return-type "none") (parameters '("GtkStyle*" "style") '("GdkWindow*" "window") '("GtkStateType" "state_type") '("gint" "y1_") '("gint" "y2_") '("gint" "x") ) ) (define-function gtk_draw_shadow (c-name "gtk_draw_shadow") (return-type "none") (parameters '("GtkStyle*" "style") '("GdkWindow*" "window") '("GtkStateType" "state_type") '("GtkShadowType" "shadow_type") '("gint" "x") '("gint" "y") '("gint" "width") '("gint" "height") ) ) (define-function gtk_draw_polygon (c-name "gtk_draw_polygon") (return-type "none") (parameters '("GtkStyle*" "style") '("GdkWindow*" "window") '("GtkStateType" "state_type") '("GtkShadowType" "shadow_type") '("GdkPoint*" "points") '("gint" "npoints") '("gboolean" "fill") ) ) (define-function gtk_draw_arrow (c-name "gtk_draw_arrow") (return-type "none") (parameters '("GtkStyle*" "style") '("GdkWindow*" "window") '("GtkStateType" "state_type") '("GtkShadowType" "shadow_type") '("GtkArrowType" "arrow_type") '("gboolean" "fill") '("gint" "x") '("gint" "y") '("gint" "width") '("gint" "height") ) ) (define-function gtk_draw_diamond (c-name "gtk_draw_diamond") (return-type "none") (parameters '("GtkStyle*" "style") '("GdkWindow*" "window") '("GtkStateType" "state_type") '("GtkShadowType" "shadow_type") '("gint" "x") '("gint" "y") '("gint" "width") '("gint" "height") ) ) (define-function gtk_draw_box (c-name "gtk_draw_box") (return-type "none") (parameters '("GtkStyle*" "style") '("GdkWindow*" "window") '("GtkStateType" "state_type") '("GtkShadowType" "shadow_type") '("gint" "x") '("gint" "y") '("gint" "width") '("gint" "height") ) ) (define-function gtk_draw_flat_box (c-name "gtk_draw_flat_box") (return-type "none") (parameters '("GtkStyle*" "style") '("GdkWindow*" "window") '("GtkStateType" "state_type") '("GtkShadowType" "shadow_type") '("gint" "x") '("gint" "y") '("gint" "width") '("gint" "height") ) ) (define-function gtk_draw_check (c-name "gtk_draw_check") (return-type "none") (parameters '("GtkStyle*" "style") '("GdkWindow*" "window") '("GtkStateType" "state_type") '("GtkShadowType" "shadow_type") '("gint" "x") '("gint" "y") '("gint" "width") '("gint" "height") ) ) (define-function gtk_draw_option (c-name "gtk_draw_option") (return-type "none") (parameters '("GtkStyle*" "style") '("GdkWindow*" "window") '("GtkStateType" "state_type") '("GtkShadowType" "shadow_type") '("gint" "x") '("gint" "y") '("gint" "width") '("gint" "height") ) ) (define-function gtk_draw_tab (c-name "gtk_draw_tab") (return-type "none") (parameters '("GtkStyle*" "style") '("GdkWindow*" "window") '("GtkStateType" "state_type") '("GtkShadowType" "shadow_type") '("gint" "x") '("gint" "y") '("gint" "width") '("gint" "height") ) ) (define-function gtk_draw_shadow_gap (c-name "gtk_draw_shadow_gap") (return-type "none") (parameters '("GtkStyle*" "style") '("GdkWindow*" "window") '("GtkStateType" "state_type") '("GtkShadowType" "shadow_type") '("gint" "x") '("gint" "y") '("gint" "width") '("gint" "height") '("GtkPositionType" "gap_side") '("gint" "gap_x") '("gint" "gap_width") ) ) (define-function gtk_draw_box_gap (c-name "gtk_draw_box_gap") (return-type "none") (parameters '("GtkStyle*" "style") '("GdkWindow*" "window") '("GtkStateType" "state_type") '("GtkShadowType" "shadow_type") '("gint" "x") '("gint" "y") '("gint" "width") '("gint" "height") '("GtkPositionType" "gap_side") '("gint" "gap_x") '("gint" "gap_width") ) ) (define-function gtk_draw_extension (c-name "gtk_draw_extension") (return-type "none") (parameters '("GtkStyle*" "style") '("GdkWindow*" "window") '("GtkStateType" "state_type") '("GtkShadowType" "shadow_type") '("gint" "x") '("gint" "y") '("gint" "width") '("gint" "height") '("GtkPositionType" "gap_side") ) ) (define-function gtk_draw_focus (c-name "gtk_draw_focus") (return-type "none") (parameters '("GtkStyle*" "style") '("GdkWindow*" "window") '("gint" "x") '("gint" "y") '("gint" "width") '("gint" "height") ) ) (define-function gtk_draw_slider (c-name "gtk_draw_slider") (return-type "none") (parameters '("GtkStyle*" "style") '("GdkWindow*" "window") '("GtkStateType" "state_type") '("GtkShadowType" "shadow_type") '("gint" "x") '("gint" "y") '("gint" "width") '("gint" "height") '("GtkOrientation" "orientation") ) ) (define-function gtk_draw_handle (c-name "gtk_draw_handle") (return-type "none") (parameters '("GtkStyle*" "style") '("GdkWindow*" "window") '("GtkStateType" "state_type") '("GtkShadowType" "shadow_type") '("gint" "x") '("gint" "y") '("gint" "width") '("gint" "height") '("GtkOrientation" "orientation") ) ) (define-function gtk_draw_expander (c-name "gtk_draw_expander") (return-type "none") (parameters '("GtkStyle*" "style") '("GdkWindow*" "window") '("GtkStateType" "state_type") '("gint" "x") '("gint" "y") '("GtkExpanderStyle" "expander_style") ) ) (define-function gtk_draw_layout (c-name "gtk_draw_layout") (return-type "none") (parameters '("GtkStyle*" "style") '("GdkWindow*" "window") '("GtkStateType" "state_type") '("gboolean" "use_text") '("gint" "x") '("gint" "y") '("PangoLayout*" "layout") ) ) (define-function gtk_draw_resize_grip (c-name "gtk_draw_resize_grip") (return-type "none") (parameters '("GtkStyle*" "style") '("GdkWindow*" "window") '("GtkStateType" "state_type") '("GdkWindowEdge" "edge") '("gint" "x") '("gint" "y") '("gint" "width") '("gint" "height") ) ) (define-function gtk_paint_hline (c-name "gtk_paint_hline") (return-type "none") (parameters '("GtkStyle*" "style") '("GdkWindow*" "window") '("GtkStateType" "state_type") '("GdkRectangle*" "area") '("GtkWidget*" "widget") '("const-gchar*" "detail") '("gint" "x1") '("gint" "x2") '("gint" "y") ) ) (define-function gtk_paint_vline (c-name "gtk_paint_vline") (return-type "none") (parameters '("GtkStyle*" "style") '("GdkWindow*" "window") '("GtkStateType" "state_type") '("GdkRectangle*" "area") '("GtkWidget*" "widget") '("const-gchar*" "detail") '("gint" "y1_") '("gint" "y2_") '("gint" "x") ) ) (define-function gtk_paint_shadow (c-name "gtk_paint_shadow") (return-type "none") (parameters '("GtkStyle*" "style") '("GdkWindow*" "window") '("GtkStateType" "state_type") '("GtkShadowType" "shadow_type") '("GdkRectangle*" "area") '("GtkWidget*" "widget") '("const-gchar*" "detail") '("gint" "x") '("gint" "y") '("gint" "width") '("gint" "height") ) ) (define-function gtk_paint_polygon (c-name "gtk_paint_polygon") (return-type "none") (parameters '("GtkStyle*" "style") '("GdkWindow*" "window") '("GtkStateType" "state_type") '("GtkShadowType" "shadow_type") '("GdkRectangle*" "area") '("GtkWidget*" "widget") '("const-gchar*" "detail") '("GdkPoint*" "points") '("gint" "npoints") '("gboolean" "fill") ) ) (define-function gtk_paint_arrow (c-name "gtk_paint_arrow") (return-type "none") (parameters '("GtkStyle*" "style") '("GdkWindow*" "window") '("GtkStateType" "state_type") '("GtkShadowType" "shadow_type") '("GdkRectangle*" "area") '("GtkWidget*" "widget") '("const-gchar*" "detail") '("GtkArrowType" "arrow_type") '("gboolean" "fill") '("gint" "x") '("gint" "y") '("gint" "width") '("gint" "height") ) ) (define-function gtk_paint_diamond (c-name "gtk_paint_diamond") (return-type "none") (parameters '("GtkStyle*" "style") '("GdkWindow*" "window") '("GtkStateType" "state_type") '("GtkShadowType" "shadow_type") '("GdkRectangle*" "area") '("GtkWidget*" "widget") '("const-gchar*" "detail") '("gint" "x") '("gint" "y") '("gint" "width") '("gint" "height") ) ) (define-function gtk_paint_box (c-name "gtk_paint_box") (return-type "none") (parameters '("GtkStyle*" "style") '("GdkWindow*" "window") '("GtkStateType" "state_type") '("GtkShadowType" "shadow_type") '("GdkRectangle*" "area") '("GtkWidget*" "widget") '("const-gchar*" "detail") '("gint" "x") '("gint" "y") '("gint" "width") '("gint" "height") ) ) (define-function gtk_paint_flat_box (c-name "gtk_paint_flat_box") (return-type "none") (parameters '("GtkStyle*" "style") '("GdkWindow*" "window") '("GtkStateType" "state_type") '("GtkShadowType" "shadow_type") '("GdkRectangle*" "area") '("GtkWidget*" "widget") '("const-gchar*" "detail") '("gint" "x") '("gint" "y") '("gint" "width") '("gint" "height") ) ) (define-function gtk_paint_check (c-name "gtk_paint_check") (return-type "none") (parameters '("GtkStyle*" "style") '("GdkWindow*" "window") '("GtkStateType" "state_type") '("GtkShadowType" "shadow_type") '("GdkRectangle*" "area") '("GtkWidget*" "widget") '("const-gchar*" "detail") '("gint" "x") '("gint" "y") '("gint" "width") '("gint" "height") ) ) (define-function gtk_paint_option (c-name "gtk_paint_option") (return-type "none") (parameters '("GtkStyle*" "style") '("GdkWindow*" "window") '("GtkStateType" "state_type") '("GtkShadowType" "shadow_type") '("GdkRectangle*" "area") '("GtkWidget*" "widget") '("const-gchar*" "detail") '("gint" "x") '("gint" "y") '("gint" "width") '("gint" "height") ) ) (define-function gtk_paint_tab (c-name "gtk_paint_tab") (return-type "none") (parameters '("GtkStyle*" "style") '("GdkWindow*" "window") '("GtkStateType" "state_type") '("GtkShadowType" "shadow_type") '("GdkRectangle*" "area") '("GtkWidget*" "widget") '("const-gchar*" "detail") '("gint" "x") '("gint" "y") '("gint" "width") '("gint" "height") ) ) (define-function gtk_paint_shadow_gap (c-name "gtk_paint_shadow_gap") (return-type "none") (parameters '("GtkStyle*" "style") '("GdkWindow*" "window") '("GtkStateType" "state_type") '("GtkShadowType" "shadow_type") '("GdkRectangle*" "area") '("GtkWidget*" "widget") '("gchar*" "detail") '("gint" "x") '("gint" "y") '("gint" "width") '("gint" "height") '("GtkPositionType" "gap_side") '("gint" "gap_x") '("gint" "gap_width") ) ) (define-function gtk_paint_box_gap (c-name "gtk_paint_box_gap") (return-type "none") (parameters '("GtkStyle*" "style") '("GdkWindow*" "window") '("GtkStateType" "state_type") '("GtkShadowType" "shadow_type") '("GdkRectangle*" "area") '("GtkWidget*" "widget") '("gchar*" "detail") '("gint" "x") '("gint" "y") '("gint" "width") '("gint" "height") '("GtkPositionType" "gap_side") '("gint" "gap_x") '("gint" "gap_width") ) ) (define-function gtk_paint_extension (c-name "gtk_paint_extension") (return-type "none") (parameters '("GtkStyle*" "style") '("GdkWindow*" "window") '("GtkStateType" "state_type") '("GtkShadowType" "shadow_type") '("GdkRectangle*" "area") '("GtkWidget*" "widget") '("gchar*" "detail") '("gint" "x") '("gint" "y") '("gint" "width") '("gint" "height") '("GtkPositionType" "gap_side") ) ) (define-function gtk_paint_focus (c-name "gtk_paint_focus") (return-type "none") (parameters '("GtkStyle*" "style") '("GdkWindow*" "window") '("GtkStateType" "state_type") '("GdkRectangle*" "area") '("GtkWidget*" "widget") '("const-gchar*" "detail") '("gint" "x") '("gint" "y") '("gint" "width") '("gint" "height") ) ) (define-function gtk_paint_slider (c-name "gtk_paint_slider") (return-type "none") (parameters '("GtkStyle*" "style") '("GdkWindow*" "window") '("GtkStateType" "state_type") '("GtkShadowType" "shadow_type") '("GdkRectangle*" "area") '("GtkWidget*" "widget") '("const-gchar*" "detail") '("gint" "x") '("gint" "y") '("gint" "width") '("gint" "height") '("GtkOrientation" "orientation") ) ) (define-function gtk_paint_handle (c-name "gtk_paint_handle") (return-type "none") (parameters '("GtkStyle*" "style") '("GdkWindow*" "window") '("GtkStateType" "state_type") '("GtkShadowType" "shadow_type") '("GdkRectangle*" "area") '("GtkWidget*" "widget") '("const-gchar*" "detail") '("gint" "x") '("gint" "y") '("gint" "width") '("gint" "height") '("GtkOrientation" "orientation") ) ) (define-function gtk_paint_expander (c-name "gtk_paint_expander") (return-type "none") (parameters '("GtkStyle*" "style") '("GdkWindow*" "window") '("GtkStateType" "state_type") '("GdkRectangle*" "area") '("GtkWidget*" "widget") '("const-gchar*" "detail") '("gint" "x") '("gint" "y") '("GtkExpanderStyle" "expander_style") ) ) (define-function gtk_paint_layout (c-name "gtk_paint_layout") (return-type "none") (parameters '("GtkStyle*" "style") '("GdkWindow*" "window") '("GtkStateType" "state_type") '("gboolean" "use_text") '("GdkRectangle*" "area") '("GtkWidget*" "widget") '("const-gchar*" "detail") '("gint" "x") '("gint" "y") '("PangoLayout*" "layout") ) ) (define-function gtk_paint_resize_grip (c-name "gtk_paint_resize_grip") (return-type "none") (parameters '("GtkStyle*" "style") '("GdkWindow*" "window") '("GtkStateType" "state_type") '("GdkRectangle*" "area") '("GtkWidget*" "widget") '("const-gchar*" "detail") '("GdkWindowEdge" "edge") '("gint" "x") '("gint" "y") '("gint" "width") '("gint" "height") ) ) (define-function gtk_border_get_type (c-name "gtk_border_get_type") (return-type "GType") ) (define-method copy (of-object "GtkBorder") (c-name "gtk_border_copy") (return-type "GtkBorder*") ) (define-method free (of-object "GtkBorder") (c-name "gtk_border_free") (return-type "none") ) (define-method _peek_property_value (of-object "GtkStyle") (c-name "_gtk_style_peek_property_value") (return-type "const-GValue*") (parameters '("GType" "widget_type") '("GParamSpec*" "pspec") '("GtkRcPropertyParser" "parser") ) ) (define-method _init_for_settings (of-object "GtkStyle") (c-name "_gtk_style_init_for_settings") (return-type "none") (parameters '("GtkSettings*" "settings") ) ) (define-function _gtk_style_shade (c-name "_gtk_style_shade") (return-type "none") (parameters '("GdkColor*" "a") '("GdkColor*" "b") '("gdouble" "k") ) ) (define-function gtk_draw_string (c-name "gtk_draw_string") (return-type "none") (parameters '("GtkStyle*" "style") '("GdkWindow*" "window") '("GtkStateType" "state_type") '("gint" "x") '("gint" "y") '("const-gchar*" "string") ) ) (define-function gtk_paint_string (c-name "gtk_paint_string") (return-type "none") (parameters '("GtkStyle*" "style") '("GdkWindow*" "window") '("GtkStateType" "state_type") '("GdkRectangle*" "area") '("GtkWidget*" "widget") '("const-gchar*" "detail") '("gint" "x") '("gint" "y") '("const-gchar*" "string") ) ) (define-function gtk_draw_insertion_cursor (c-name "gtk_draw_insertion_cursor") (return-type "none") (parameters '("GtkWidget*" "widget") '("GdkDrawable*" "drawable") '("GdkRectangle*" "area") '("GdkRectangle*" "location") '("gboolean" "is_primary") '("GtkTextDirection" "direction") '("gboolean" "draw_arrow") ) ) ;; From /opt/gnome2/include/gtk-2.0/gtk/gtktable.h (define-function gtk_table_get_type (c-name "gtk_table_get_type") (return-type "GType") ) (define-function gtk_table_new (c-name "gtk_table_new") (is-constructor-of "GtkTable") (return-type "GtkWidget*") (parameters '("guint" "rows") '("guint" "columns") '("gboolean" "homogeneous") ) ) (define-method resize (of-object "GtkTable") (c-name "gtk_table_resize") (return-type "none") (parameters '("guint" "rows") '("guint" "columns") ) ) (define-method attach (of-object "GtkTable") (c-name "gtk_table_attach") (return-type "none") (parameters '("GtkWidget*" "child") '("guint" "left_attach") '("guint" "right_attach") '("guint" "top_attach") '("guint" "bottom_attach") '("GtkAttachOptions" "xoptions") '("GtkAttachOptions" "yoptions") '("guint" "xpadding") '("guint" "ypadding") ) ) (define-method attach_defaults (of-object "GtkTable") (c-name "gtk_table_attach_defaults") (return-type "none") (parameters '("GtkWidget*" "widget") '("guint" "left_attach") '("guint" "right_attach") '("guint" "top_attach") '("guint" "bottom_attach") ) ) (define-method set_row_spacing (of-object "GtkTable") (c-name "gtk_table_set_row_spacing") (return-type "none") (parameters '("guint" "row") '("guint" "spacing") ) ) (define-method get_row_spacing (of-object "GtkTable") (c-name "gtk_table_get_row_spacing") (return-type "guint") (parameters '("guint" "row") ) ) (define-method set_col_spacing (of-object "GtkTable") (c-name "gtk_table_set_col_spacing") (return-type "none") (parameters '("guint" "column") '("guint" "spacing") ) ) (define-method get_col_spacing (of-object "GtkTable") (c-name "gtk_table_get_col_spacing") (return-type "guint") (parameters '("guint" "column") ) ) (define-method set_row_spacings (of-object "GtkTable") (c-name "gtk_table_set_row_spacings") (return-type "none") (parameters '("guint" "spacing") ) ) (define-method get_default_row_spacing (of-object "GtkTable") (c-name "gtk_table_get_default_row_spacing") (return-type "guint") ) (define-method set_col_spacings (of-object "GtkTable") (c-name "gtk_table_set_col_spacings") (return-type "none") (parameters '("guint" "spacing") ) ) (define-method get_default_col_spacing (of-object "GtkTable") (c-name "gtk_table_get_default_col_spacing") (return-type "guint") ) (define-method set_homogeneous (of-object "GtkTable") (c-name "gtk_table_set_homogeneous") (return-type "none") (parameters '("gboolean" "homogeneous") ) ) (define-method get_homogeneous (of-object "GtkTable") (c-name "gtk_table_get_homogeneous") (return-type "gboolean") ) ;; From /opt/gnome2/include/gtk-2.0/gtk/gtktearoffmenuitem.h (define-function gtk_tearoff_menu_item_get_type (c-name "gtk_tearoff_menu_item_get_type") (return-type "GType") ) (define-function gtk_tearoff_menu_item_new (c-name "gtk_tearoff_menu_item_new") (is-constructor-of "GtkTearoffMenuItem") (return-type "GtkWidget*") ) ;; From /opt/gnome2/include/gtk-2.0/gtk/gtktextbuffer.h (define-function gtk_text_buffer_get_type (c-name "gtk_text_buffer_get_type") (return-type "GType") ) (define-function gtk_text_buffer_new (c-name "gtk_text_buffer_new") (is-constructor-of "GtkTextBuffer") (return-type "GtkTextBuffer*") (parameters '("GtkTextTagTable*" "table") ) ) (define-method get_line_count (of-object "GtkTextBuffer") (c-name "gtk_text_buffer_get_line_count") (return-type "gint") ) (define-method get_char_count (of-object "GtkTextBuffer") (c-name "gtk_text_buffer_get_char_count") (return-type "gint") ) (define-method get_tag_table (of-object "GtkTextBuffer") (c-name "gtk_text_buffer_get_tag_table") (return-type "GtkTextTagTable*") ) (define-method set_text (of-object "GtkTextBuffer") (c-name "gtk_text_buffer_set_text") (return-type "none") (parameters '("const-gchar*" "text") '("gint" "len") ) ) (define-method insert (of-object "GtkTextBuffer") (c-name "gtk_text_buffer_insert") (return-type "none") (parameters '("GtkTextIter*" "iter") '("const-gchar*" "text") '("gint" "len") ) ) (define-method insert_at_cursor (of-object "GtkTextBuffer") (c-name "gtk_text_buffer_insert_at_cursor") (return-type "none") (parameters '("const-gchar*" "text") '("gint" "len") ) ) (define-method insert_interactive (of-object "GtkTextBuffer") (c-name "gtk_text_buffer_insert_interactive") (return-type "gboolean") (parameters '("GtkTextIter*" "iter") '("const-gchar*" "text") '("gint" "len") '("gboolean" "default_editable") ) ) (define-method insert_interactive_at_cursor (of-object "GtkTextBuffer") (c-name "gtk_text_buffer_insert_interactive_at_cursor") (return-type "gboolean") (parameters '("const-gchar*" "text") '("gint" "len") '("gboolean" "default_editable") ) ) (define-method insert_range (of-object "GtkTextBuffer") (c-name "gtk_text_buffer_insert_range") (return-type "none") (parameters '("GtkTextIter*" "iter") '("const-GtkTextIter*" "start") '("const-GtkTextIter*" "end") ) ) (define-method insert_range_interactive (of-object "GtkTextBuffer") (c-name "gtk_text_buffer_insert_range_interactive") (return-type "gboolean") (parameters '("GtkTextIter*" "iter") '("const-GtkTextIter*" "start") '("const-GtkTextIter*" "end") '("gboolean" "default_editable") ) ) (define-method insert_with_tags (of-object "GtkTextBuffer") (c-name "gtk_text_buffer_insert_with_tags") (return-type "none") (parameters '("GtkTextIter*" "iter") '("const-gchar*" "text") '("gint" "len") '("GtkTextTag*" "first_tag") ) (varargs #t) ) (define-method insert_with_tags_by_name (of-object "GtkTextBuffer") (c-name "gtk_text_buffer_insert_with_tags_by_name") (return-type "none") (parameters '("GtkTextIter*" "iter") '("const-gchar*" "text") '("gint" "len") '("const-gchar*" "first_tag_name") ) (varargs #t) ) (define-method delete (of-object "GtkTextBuffer") (c-name "gtk_text_buffer_delete") (return-type "none") (parameters '("GtkTextIter*" "start") '("GtkTextIter*" "end") ) ) (define-method delete_interactive (of-object "GtkTextBuffer") (c-name "gtk_text_buffer_delete_interactive") (return-type "gboolean") (parameters '("GtkTextIter*" "start_iter") '("GtkTextIter*" "end_iter") '("gboolean" "default_editable") ) ) (define-method backspace (of-object "GtkTextBuffer") (c-name "gtk_text_buffer_backspace") (return-type "gboolean") (parameters '("GtkTextIter*" "iter") '("gboolean" "interactive") '("gboolean" "default_editable") ) ) (define-method get_text (of-object "GtkTextBuffer") (c-name "gtk_text_buffer_get_text") (return-type "gchar*") (parameters '("const-GtkTextIter*" "start") '("const-GtkTextIter*" "end") '("gboolean" "include_hidden_chars") ) ) (define-method get_slice (of-object "GtkTextBuffer") (c-name "gtk_text_buffer_get_slice") (return-type "gchar*") (parameters '("const-GtkTextIter*" "start") '("const-GtkTextIter*" "end") '("gboolean" "include_hidden_chars") ) ) (define-method insert_pixbuf (of-object "GtkTextBuffer") (c-name "gtk_text_buffer_insert_pixbuf") (return-type "none") (parameters '("GtkTextIter*" "iter") '("GdkPixbuf*" "pixbuf") ) ) (define-method insert_child_anchor (of-object "GtkTextBuffer") (c-name "gtk_text_buffer_insert_child_anchor") (return-type "none") (parameters '("GtkTextIter*" "iter") '("GtkTextChildAnchor*" "anchor") ) ) (define-method create_child_anchor (of-object "GtkTextBuffer") (c-name "gtk_text_buffer_create_child_anchor") (return-type "GtkTextChildAnchor*") (parameters '("GtkTextIter*" "iter") ) ) (define-method create_mark (of-object "GtkTextBuffer") (c-name "gtk_text_buffer_create_mark") (return-type "GtkTextMark*") (parameters '("const-gchar*" "mark_name") '("const-GtkTextIter*" "where") '("gboolean" "left_gravity") ) ) (define-method move_mark (of-object "GtkTextBuffer") (c-name "gtk_text_buffer_move_mark") (return-type "none") (parameters '("GtkTextMark*" "mark") '("const-GtkTextIter*" "where") ) ) (define-method delete_mark (of-object "GtkTextBuffer") (c-name "gtk_text_buffer_delete_mark") (return-type "none") (parameters '("GtkTextMark*" "mark") ) ) (define-method get_mark (of-object "GtkTextBuffer") (c-name "gtk_text_buffer_get_mark") (return-type "GtkTextMark*") (parameters '("const-gchar*" "name") ) ) (define-method move_mark_by_name (of-object "GtkTextBuffer") (c-name "gtk_text_buffer_move_mark_by_name") (return-type "none") (parameters '("const-gchar*" "name") '("const-GtkTextIter*" "where") ) ) (define-method delete_mark_by_name (of-object "GtkTextBuffer") (c-name "gtk_text_buffer_delete_mark_by_name") (return-type "none") (parameters '("const-gchar*" "name") ) ) (define-method get_insert (of-object "GtkTextBuffer") (c-name "gtk_text_buffer_get_insert") (return-type "GtkTextMark*") ) (define-method get_selection_bound (of-object "GtkTextBuffer") (c-name "gtk_text_buffer_get_selection_bound") (return-type "GtkTextMark*") ) (define-method place_cursor (of-object "GtkTextBuffer") (c-name "gtk_text_buffer_place_cursor") (return-type "none") (parameters '("const-GtkTextIter*" "where") ) ) (define-method select_range (of-object "GtkTextBuffer") (c-name "gtk_text_buffer_select_range") (return-type "none") (parameters '("const-GtkTextIter*" "ins") '("const-GtkTextIter*" "bound") ) ) (define-method apply_tag (of-object "GtkTextBuffer") (c-name "gtk_text_buffer_apply_tag") (return-type "none") (parameters '("GtkTextTag*" "tag") '("const-GtkTextIter*" "start") '("const-GtkTextIter*" "end") ) ) (define-method remove_tag (of-object "GtkTextBuffer") (c-name "gtk_text_buffer_remove_tag") (return-type "none") (parameters '("GtkTextTag*" "tag") '("const-GtkTextIter*" "start") '("const-GtkTextIter*" "end") ) ) (define-method apply_tag_by_name (of-object "GtkTextBuffer") (c-name "gtk_text_buffer_apply_tag_by_name") (return-type "none") (parameters '("const-gchar*" "name") '("const-GtkTextIter*" "start") '("const-GtkTextIter*" "end") ) ) (define-method remove_tag_by_name (of-object "GtkTextBuffer") (c-name "gtk_text_buffer_remove_tag_by_name") (return-type "none") (parameters '("const-gchar*" "name") '("const-GtkTextIter*" "start") '("const-GtkTextIter*" "end") ) ) (define-method remove_all_tags (of-object "GtkTextBuffer") (c-name "gtk_text_buffer_remove_all_tags") (return-type "none") (parameters '("const-GtkTextIter*" "start") '("const-GtkTextIter*" "end") ) ) (define-method create_tag (of-object "GtkTextBuffer") (c-name "gtk_text_buffer_create_tag") (return-type "GtkTextTag*") (parameters '("const-gchar*" "tag_name") '("const-gchar*" "first_property_name") ) (varargs #t) ) (define-method get_iter_at_line_offset (of-object "GtkTextBuffer") (c-name "gtk_text_buffer_get_iter_at_line_offset") (return-type "none") (parameters '("GtkTextIter*" "iter") '("gint" "line_number") '("gint" "char_offset") ) ) (define-method get_iter_at_line_index (of-object "GtkTextBuffer") (c-name "gtk_text_buffer_get_iter_at_line_index") (return-type "none") (parameters '("GtkTextIter*" "iter") '("gint" "line_number") '("gint" "byte_index") ) ) (define-method get_iter_at_offset (of-object "GtkTextBuffer") (c-name "gtk_text_buffer_get_iter_at_offset") (return-type "none") (parameters '("GtkTextIter*" "iter") '("gint" "char_offset") ) ) (define-method get_iter_at_line (of-object "GtkTextBuffer") (c-name "gtk_text_buffer_get_iter_at_line") (return-type "none") (parameters '("GtkTextIter*" "iter") '("gint" "line_number") ) ) (define-method get_start_iter (of-object "GtkTextBuffer") (c-name "gtk_text_buffer_get_start_iter") (return-type "none") (parameters '("GtkTextIter*" "iter") ) ) (define-method get_end_iter (of-object "GtkTextBuffer") (c-name "gtk_text_buffer_get_end_iter") (return-type "none") (parameters '("GtkTextIter*" "iter") ) ) (define-method get_bounds (of-object "GtkTextBuffer") (c-name "gtk_text_buffer_get_bounds") (return-type "none") (parameters '("GtkTextIter*" "start") '("GtkTextIter*" "end") ) ) (define-method get_iter_at_mark (of-object "GtkTextBuffer") (c-name "gtk_text_buffer_get_iter_at_mark") (return-type "none") (parameters '("GtkTextIter*" "iter") '("GtkTextMark*" "mark") ) ) (define-method get_iter_at_child_anchor (of-object "GtkTextBuffer") (c-name "gtk_text_buffer_get_iter_at_child_anchor") (return-type "none") (parameters '("GtkTextIter*" "iter") '("GtkTextChildAnchor*" "anchor") ) ) (define-method get_modified (of-object "GtkTextBuffer") (c-name "gtk_text_buffer_get_modified") (return-type "gboolean") ) (define-method set_modified (of-object "GtkTextBuffer") (c-name "gtk_text_buffer_set_modified") (return-type "none") (parameters '("gboolean" "setting") ) ) (define-method get_has_selection (of-object "GtkTextBuffer") (c-name "gtk_text_buffer_get_has_selection") (return-type "gboolean") ) (define-method add_selection_clipboard (of-object "GtkTextBuffer") (c-name "gtk_text_buffer_add_selection_clipboard") (return-type "none") (parameters '("GtkClipboard*" "clipboard") ) ) (define-method remove_selection_clipboard (of-object "GtkTextBuffer") (c-name "gtk_text_buffer_remove_selection_clipboard") (return-type "none") (parameters '("GtkClipboard*" "clipboard") ) ) (define-method cut_clipboard (of-object "GtkTextBuffer") (c-name "gtk_text_buffer_cut_clipboard") (return-type "none") (parameters '("GtkClipboard*" "clipboard") '("gboolean" "default_editable") ) ) (define-method copy_clipboard (of-object "GtkTextBuffer") (c-name "gtk_text_buffer_copy_clipboard") (return-type "none") (parameters '("GtkClipboard*" "clipboard") ) ) (define-method paste_clipboard (of-object "GtkTextBuffer") (c-name "gtk_text_buffer_paste_clipboard") (return-type "none") (parameters '("GtkClipboard*" "clipboard") '("GtkTextIter*" "override_location") '("gboolean" "default_editable") ) ) (define-method get_selection_bounds (of-object "GtkTextBuffer") (c-name "gtk_text_buffer_get_selection_bounds") (return-type "gboolean") (parameters '("GtkTextIter*" "start") '("GtkTextIter*" "end") ) ) (define-method delete_selection (of-object "GtkTextBuffer") (c-name "gtk_text_buffer_delete_selection") (return-type "gboolean") (parameters '("gboolean" "interactive") '("gboolean" "default_editable") ) ) (define-method begin_user_action (of-object "GtkTextBuffer") (c-name "gtk_text_buffer_begin_user_action") (return-type "none") ) (define-method end_user_action (of-object "GtkTextBuffer") (c-name "gtk_text_buffer_end_user_action") (return-type "none") ) (define-method get_copy_target_list (of-object "GtkTextBuffer") (c-name "gtk_text_buffer_get_copy_target_list") (return-type "GtkTargetList*") ) (define-method get_paste_target_list (of-object "GtkTextBuffer") (c-name "gtk_text_buffer_get_paste_target_list") (return-type "GtkTargetList*") ) (define-method _spew (of-object "GtkTextBuffer") (c-name "_gtk_text_buffer_spew") (return-type "none") ) (define-method _get_btree (of-object "GtkTextBuffer") (c-name "_gtk_text_buffer_get_btree") (return-type "GtkTextBTree*") ) (define-method _get_line_log_attrs (of-object "GtkTextBuffer") (c-name "_gtk_text_buffer_get_line_log_attrs") (return-type "const-PangoLogAttr*") (parameters '("const-GtkTextIter*" "anywhere_in_line") '("gint*" "char_len") ) ) (define-method _notify_will_remove_tag (of-object "GtkTextBuffer") (c-name "_gtk_text_buffer_notify_will_remove_tag") (return-type "none") (parameters '("GtkTextTag*" "tag") ) ) ;; From /opt/gnome2/include/gtk-2.0/gtk/gtktextbufferrichtext.h (define-method register_serialize_format (of-object "GtkTextBuffer") (c-name "gtk_text_buffer_register_serialize_format") (return-type "GdkAtom") (parameters '("const-gchar*" "mime_type") '("GtkTextBufferSerializeFunc" "function") '("gpointer" "user_data") '("GDestroyNotify" "user_data_destroy") ) ) (define-method register_serialize_tagset (of-object "GtkTextBuffer") (c-name "gtk_text_buffer_register_serialize_tagset") (return-type "GdkAtom") (parameters '("const-gchar*" "tagset_name") ) ) (define-method register_deserialize_format (of-object "GtkTextBuffer") (c-name "gtk_text_buffer_register_deserialize_format") (return-type "GdkAtom") (parameters '("const-gchar*" "mime_type") '("GtkTextBufferDeserializeFunc" "function") '("gpointer" "user_data") '("GDestroyNotify" "user_data_destroy") ) ) (define-method register_deserialize_tagset (of-object "GtkTextBuffer") (c-name "gtk_text_buffer_register_deserialize_tagset") (return-type "GdkAtom") (parameters '("const-gchar*" "tagset_name") ) ) (define-method unregister_serialize_format (of-object "GtkTextBuffer") (c-name "gtk_text_buffer_unregister_serialize_format") (return-type "none") (parameters '("GdkAtom" "format") ) ) (define-method unregister_deserialize_format (of-object "GtkTextBuffer") (c-name "gtk_text_buffer_unregister_deserialize_format") (return-type "none") (parameters '("GdkAtom" "format") ) ) (define-method deserialize_set_can_create_tags (of-object "GtkTextBuffer") (c-name "gtk_text_buffer_deserialize_set_can_create_tags") (return-type "none") (parameters '("GdkAtom" "format") '("gboolean" "can_create_tags") ) ) (define-method deserialize_get_can_create_tags (of-object "GtkTextBuffer") (c-name "gtk_text_buffer_deserialize_get_can_create_tags") (return-type "gboolean") (parameters '("GdkAtom" "format") ) ) (define-method get_serialize_formats (of-object "GtkTextBuffer") (c-name "gtk_text_buffer_get_serialize_formats") (return-type "GdkAtom*") (parameters '("gint*" "n_formats") ) ) (define-method get_deserialize_formats (of-object "GtkTextBuffer") (c-name "gtk_text_buffer_get_deserialize_formats") (return-type "GdkAtom*") (parameters '("gint*" "n_formats") ) ) (define-method serialize (of-object "GtkTextBuffer") (c-name "gtk_text_buffer_serialize") (return-type "guint8*") (parameters '("GtkTextBuffer*" "content_buffer") '("GdkAtom" "format") '("const-GtkTextIter*" "start") '("const-GtkTextIter*" "end") '("gsize*" "length") ) ) (define-method deserialize (of-object "GtkTextBuffer") (c-name "gtk_text_buffer_deserialize") (return-type "gboolean") (parameters '("GtkTextBuffer*" "content_buffer") '("GdkAtom" "format") '("GtkTextIter*" "iter") '("const-guint8*" "data") '("gsize" "length") '("GError**" "error") ) ) ;; From /opt/gnome2/include/gtk-2.0/gtk/gtktextchild.h (define-function gtk_text_child_anchor_get_type (c-name "gtk_text_child_anchor_get_type") (return-type "GType") ) (define-function gtk_text_child_anchor_new (c-name "gtk_text_child_anchor_new") (is-constructor-of "GtkTextChildAnchor") (return-type "GtkTextChildAnchor*") ) (define-method get_widgets (of-object "GtkTextChildAnchor") (c-name "gtk_text_child_anchor_get_widgets") (return-type "GList*") ) (define-method get_deleted (of-object "GtkTextChildAnchor") (c-name "gtk_text_child_anchor_get_deleted") (return-type "gboolean") ) ;; From /opt/gnome2/include/gtk-2.0/gtk/gtktextdisplay.h (define-method draw (of-object "GtkTextLayout") (c-name "gtk_text_layout_draw") (return-type "none") (parameters '("GtkWidget*" "widget") '("GdkDrawable*" "drawable") '("GdkGC*" "cursor_gc") '("gint" "x_offset") '("gint" "y_offset") '("gint" "x") '("gint" "y") '("gint" "width") '("gint" "height") '("GList**" "widgets") ) ) ;; From /opt/gnome2/include/gtk-2.0/gtk/gtktext.h (define-function gtk_text_get_type (c-name "gtk_text_get_type") (return-type "GtkType") ) (define-function gtk_text_new (c-name "gtk_text_new") (is-constructor-of "GtkText") (return-type "GtkWidget*") (parameters '("GtkAdjustment*" "hadj") '("GtkAdjustment*" "vadj") ) ) (define-method set_editable (of-object "GtkText") (c-name "gtk_text_set_editable") (return-type "none") (parameters '("gboolean" "editable") ) ) (define-method set_word_wrap (of-object "GtkText") (c-name "gtk_text_set_word_wrap") (return-type "none") (parameters '("gboolean" "word_wrap") ) ) (define-method set_line_wrap (of-object "GtkText") (c-name "gtk_text_set_line_wrap") (return-type "none") (parameters '("gboolean" "line_wrap") ) ) (define-method set_adjustments (of-object "GtkText") (c-name "gtk_text_set_adjustments") (return-type "none") (parameters '("GtkAdjustment*" "hadj") '("GtkAdjustment*" "vadj") ) ) (define-method set_point (of-object "GtkText") (c-name "gtk_text_set_point") (return-type "none") (parameters '("guint" "index") ) ) (define-method get_point (of-object "GtkText") (c-name "gtk_text_get_point") (return-type "guint") ) (define-method get_length (of-object "GtkText") (c-name "gtk_text_get_length") (return-type "guint") ) (define-method freeze (of-object "GtkText") (c-name "gtk_text_freeze") (return-type "none") ) (define-method thaw (of-object "GtkText") (c-name "gtk_text_thaw") (return-type "none") ) (define-method insert (of-object "GtkText") (c-name "gtk_text_insert") (return-type "none") (parameters '("GdkFont*" "font") '("const-GdkColor*" "fore") '("const-GdkColor*" "back") '("const-char*" "chars") '("gint" "length") ) ) (define-method backward_delete (of-object "GtkText") (c-name "gtk_text_backward_delete") (return-type "gboolean") (parameters '("guint" "nchars") ) ) (define-method forward_delete (of-object "GtkText") (c-name "gtk_text_forward_delete") (return-type "gboolean") (parameters '("guint" "nchars") ) ) ;; From /opt/gnome2/include/gtk-2.0/gtk/gtktextiter.h (define-method get_buffer (of-object "GtkTextIter") (c-name "gtk_text_iter_get_buffer") (return-type "GtkTextBuffer*") ) (define-method copy (of-object "GtkTextIter") (c-name "gtk_text_iter_copy") (return-type "GtkTextIter*") ) (define-method free (of-object "GtkTextIter") (c-name "gtk_text_iter_free") (return-type "none") ) (define-function gtk_text_iter_get_type (c-name "gtk_text_iter_get_type") (return-type "GType") ) (define-method get_offset (of-object "GtkTextIter") (c-name "gtk_text_iter_get_offset") (return-type "gint") ) (define-method get_line (of-object "GtkTextIter") (c-name "gtk_text_iter_get_line") (return-type "gint") ) (define-method get_line_offset (of-object "GtkTextIter") (c-name "gtk_text_iter_get_line_offset") (return-type "gint") ) (define-method get_line_index (of-object "GtkTextIter") (c-name "gtk_text_iter_get_line_index") (return-type "gint") ) (define-method get_visible_line_offset (of-object "GtkTextIter") (c-name "gtk_text_iter_get_visible_line_offset") (return-type "gint") ) (define-method get_visible_line_index (of-object "GtkTextIter") (c-name "gtk_text_iter_get_visible_line_index") (return-type "gint") ) (define-method get_char (of-object "GtkTextIter") (c-name "gtk_text_iter_get_char") (return-type "gunichar") ) (define-method get_slice (of-object "GtkTextIter") (c-name "gtk_text_iter_get_slice") (return-type "gchar*") (parameters '("const-GtkTextIter*" "end") ) ) (define-method get_text (of-object "GtkTextIter") (c-name "gtk_text_iter_get_text") (return-type "gchar*") (parameters '("const-GtkTextIter*" "end") ) ) (define-method get_visible_slice (of-object "GtkTextIter") (c-name "gtk_text_iter_get_visible_slice") (return-type "gchar*") (parameters '("const-GtkTextIter*" "end") ) ) (define-method get_visible_text (of-object "GtkTextIter") (c-name "gtk_text_iter_get_visible_text") (return-type "gchar*") (parameters '("const-GtkTextIter*" "end") ) ) (define-method get_pixbuf (of-object "GtkTextIter") (c-name "gtk_text_iter_get_pixbuf") (return-type "GdkPixbuf*") ) (define-method get_marks (of-object "GtkTextIter") (c-name "gtk_text_iter_get_marks") (return-type "GSList*") ) (define-method get_child_anchor (of-object "GtkTextIter") (c-name "gtk_text_iter_get_child_anchor") (return-type "GtkTextChildAnchor*") ) (define-method get_toggled_tags (of-object "GtkTextIter") (c-name "gtk_text_iter_get_toggled_tags") (return-type "GSList*") (parameters '("gboolean" "toggled_on") ) ) (define-method begins_tag (of-object "GtkTextIter") (c-name "gtk_text_iter_begins_tag") (return-type "gboolean") (parameters '("GtkTextTag*" "tag") ) ) (define-method ends_tag (of-object "GtkTextIter") (c-name "gtk_text_iter_ends_tag") (return-type "gboolean") (parameters '("GtkTextTag*" "tag") ) ) (define-method toggles_tag (of-object "GtkTextIter") (c-name "gtk_text_iter_toggles_tag") (return-type "gboolean") (parameters '("GtkTextTag*" "tag") ) ) (define-method has_tag (of-object "GtkTextIter") (c-name "gtk_text_iter_has_tag") (return-type "gboolean") (parameters '("GtkTextTag*" "tag") ) ) (define-method get_tags (of-object "GtkTextIter") (c-name "gtk_text_iter_get_tags") (return-type "GSList*") ) (define-method editable (of-object "GtkTextIter") (c-name "gtk_text_iter_editable") (return-type "gboolean") (parameters '("gboolean" "default_setting") ) ) (define-method can_insert (of-object "GtkTextIter") (c-name "gtk_text_iter_can_insert") (return-type "gboolean") (parameters '("gboolean" "default_editability") ) ) (define-method starts_word (of-object "GtkTextIter") (c-name "gtk_text_iter_starts_word") (return-type "gboolean") ) (define-method ends_word (of-object "GtkTextIter") (c-name "gtk_text_iter_ends_word") (return-type "gboolean") ) (define-method inside_word (of-object "GtkTextIter") (c-name "gtk_text_iter_inside_word") (return-type "gboolean") ) (define-method starts_sentence (of-object "GtkTextIter") (c-name "gtk_text_iter_starts_sentence") (return-type "gboolean") ) (define-method ends_sentence (of-object "GtkTextIter") (c-name "gtk_text_iter_ends_sentence") (return-type "gboolean") ) (define-method inside_sentence (of-object "GtkTextIter") (c-name "gtk_text_iter_inside_sentence") (return-type "gboolean") ) (define-method starts_line (of-object "GtkTextIter") (c-name "gtk_text_iter_starts_line") (return-type "gboolean") ) (define-method ends_line (of-object "GtkTextIter") (c-name "gtk_text_iter_ends_line") (return-type "gboolean") ) (define-method is_cursor_position (of-object "GtkTextIter") (c-name "gtk_text_iter_is_cursor_position") (return-type "gboolean") ) (define-method get_chars_in_line (of-object "GtkTextIter") (c-name "gtk_text_iter_get_chars_in_line") (return-type "gint") ) (define-method get_bytes_in_line (of-object "GtkTextIter") (c-name "gtk_text_iter_get_bytes_in_line") (return-type "gint") ) (define-method get_attributes (of-object "GtkTextIter") (c-name "gtk_text_iter_get_attributes") (return-type "gboolean") (parameters '("GtkTextAttributes*" "values") ) ) (define-method get_language (of-object "GtkTextIter") (c-name "gtk_text_iter_get_language") (return-type "PangoLanguage*") ) (define-method is_end (of-object "GtkTextIter") (c-name "gtk_text_iter_is_end") (return-type "gboolean") ) (define-method is_start (of-object "GtkTextIter") (c-name "gtk_text_iter_is_start") (return-type "gboolean") ) (define-method forward_char (of-object "GtkTextIter") (c-name "gtk_text_iter_forward_char") (return-type "gboolean") ) (define-method backward_char (of-object "GtkTextIter") (c-name "gtk_text_iter_backward_char") (return-type "gboolean") ) (define-method forward_chars (of-object "GtkTextIter") (c-name "gtk_text_iter_forward_chars") (return-type "gboolean") (parameters '("gint" "count") ) ) (define-method backward_chars (of-object "GtkTextIter") (c-name "gtk_text_iter_backward_chars") (return-type "gboolean") (parameters '("gint" "count") ) ) (define-method forward_line (of-object "GtkTextIter") (c-name "gtk_text_iter_forward_line") (return-type "gboolean") ) (define-method backward_line (of-object "GtkTextIter") (c-name "gtk_text_iter_backward_line") (return-type "gboolean") ) (define-method forward_lines (of-object "GtkTextIter") (c-name "gtk_text_iter_forward_lines") (return-type "gboolean") (parameters '("gint" "count") ) ) (define-method backward_lines (of-object "GtkTextIter") (c-name "gtk_text_iter_backward_lines") (return-type "gboolean") (parameters '("gint" "count") ) ) (define-method forward_word_end (of-object "GtkTextIter") (c-name "gtk_text_iter_forward_word_end") (return-type "gboolean") ) (define-method backward_word_start (of-object "GtkTextIter") (c-name "gtk_text_iter_backward_word_start") (return-type "gboolean") ) (define-method forward_word_ends (of-object "GtkTextIter") (c-name "gtk_text_iter_forward_word_ends") (return-type "gboolean") (parameters '("gint" "count") ) ) (define-method backward_word_starts (of-object "GtkTextIter") (c-name "gtk_text_iter_backward_word_starts") (return-type "gboolean") (parameters '("gint" "count") ) ) (define-method forward_visible_line (of-object "GtkTextIter") (c-name "gtk_text_iter_forward_visible_line") (return-type "gboolean") ) (define-method backward_visible_line (of-object "GtkTextIter") (c-name "gtk_text_iter_backward_visible_line") (return-type "gboolean") ) (define-method forward_visible_lines (of-object "GtkTextIter") (c-name "gtk_text_iter_forward_visible_lines") (return-type "gboolean") (parameters '("gint" "count") ) ) (define-method backward_visible_lines (of-object "GtkTextIter") (c-name "gtk_text_iter_backward_visible_lines") (return-type "gboolean") (parameters '("gint" "count") ) ) (define-method forward_visible_word_end (of-object "GtkTextIter") (c-name "gtk_text_iter_forward_visible_word_end") (return-type "gboolean") ) (define-method backward_visible_word_start (of-object "GtkTextIter") (c-name "gtk_text_iter_backward_visible_word_start") (return-type "gboolean") ) (define-method forward_visible_word_ends (of-object "GtkTextIter") (c-name "gtk_text_iter_forward_visible_word_ends") (return-type "gboolean") (parameters '("gint" "count") ) ) (define-method backward_visible_word_starts (of-object "GtkTextIter") (c-name "gtk_text_iter_backward_visible_word_starts") (return-type "gboolean") (parameters '("gint" "count") ) ) (define-method forward_sentence_end (of-object "GtkTextIter") (c-name "gtk_text_iter_forward_sentence_end") (return-type "gboolean") ) (define-method backward_sentence_start (of-object "GtkTextIter") (c-name "gtk_text_iter_backward_sentence_start") (return-type "gboolean") ) (define-method forward_sentence_ends (of-object "GtkTextIter") (c-name "gtk_text_iter_forward_sentence_ends") (return-type "gboolean") (parameters '("gint" "count") ) ) (define-method backward_sentence_starts (of-object "GtkTextIter") (c-name "gtk_text_iter_backward_sentence_starts") (return-type "gboolean") (parameters '("gint" "count") ) ) (define-method forward_cursor_position (of-object "GtkTextIter") (c-name "gtk_text_iter_forward_cursor_position") (return-type "gboolean") ) (define-method backward_cursor_position (of-object "GtkTextIter") (c-name "gtk_text_iter_backward_cursor_position") (return-type "gboolean") ) (define-method forward_cursor_positions (of-object "GtkTextIter") (c-name "gtk_text_iter_forward_cursor_positions") (return-type "gboolean") (parameters '("gint" "count") ) ) (define-method backward_cursor_positions (of-object "GtkTextIter") (c-name "gtk_text_iter_backward_cursor_positions") (return-type "gboolean") (parameters '("gint" "count") ) ) (define-method forward_visible_cursor_position (of-object "GtkTextIter") (c-name "gtk_text_iter_forward_visible_cursor_position") (return-type "gboolean") ) (define-method backward_visible_cursor_position (of-object "GtkTextIter") (c-name "gtk_text_iter_backward_visible_cursor_position") (return-type "gboolean") ) (define-method forward_visible_cursor_positions (of-object "GtkTextIter") (c-name "gtk_text_iter_forward_visible_cursor_positions") (return-type "gboolean") (parameters '("gint" "count") ) ) (define-method backward_visible_cursor_positions (of-object "GtkTextIter") (c-name "gtk_text_iter_backward_visible_cursor_positions") (return-type "gboolean") (parameters '("gint" "count") ) ) (define-method set_offset (of-object "GtkTextIter") (c-name "gtk_text_iter_set_offset") (return-type "none") (parameters '("gint" "char_offset") ) ) (define-method set_line (of-object "GtkTextIter") (c-name "gtk_text_iter_set_line") (return-type "none") (parameters '("gint" "line_number") ) ) (define-method set_line_offset (of-object "GtkTextIter") (c-name "gtk_text_iter_set_line_offset") (return-type "none") (parameters '("gint" "char_on_line") ) ) (define-method set_line_index (of-object "GtkTextIter") (c-name "gtk_text_iter_set_line_index") (return-type "none") (parameters '("gint" "byte_on_line") ) ) (define-method forward_to_end (of-object "GtkTextIter") (c-name "gtk_text_iter_forward_to_end") (return-type "none") ) (define-method forward_to_line_end (of-object "GtkTextIter") (c-name "gtk_text_iter_forward_to_line_end") (return-type "gboolean") ) (define-method set_visible_line_offset (of-object "GtkTextIter") (c-name "gtk_text_iter_set_visible_line_offset") (return-type "none") (parameters '("gint" "char_on_line") ) ) (define-method set_visible_line_index (of-object "GtkTextIter") (c-name "gtk_text_iter_set_visible_line_index") (return-type "none") (parameters '("gint" "byte_on_line") ) ) (define-method forward_to_tag_toggle (of-object "GtkTextIter") (c-name "gtk_text_iter_forward_to_tag_toggle") (return-type "gboolean") (parameters '("GtkTextTag*" "tag") ) ) (define-method backward_to_tag_toggle (of-object "GtkTextIter") (c-name "gtk_text_iter_backward_to_tag_toggle") (return-type "gboolean") (parameters '("GtkTextTag*" "tag") ) ) (define-method forward_find_char (of-object "GtkTextIter") (c-name "gtk_text_iter_forward_find_char") (return-type "gboolean") (parameters '("GtkTextCharPredicate" "pred") '("gpointer" "user_data") '("const-GtkTextIter*" "limit") ) ) (define-method backward_find_char (of-object "GtkTextIter") (c-name "gtk_text_iter_backward_find_char") (return-type "gboolean") (parameters '("GtkTextCharPredicate" "pred") '("gpointer" "user_data") '("const-GtkTextIter*" "limit") ) ) (define-method forward_search (of-object "GtkTextIter") (c-name "gtk_text_iter_forward_search") (return-type "gboolean") (parameters '("const-gchar*" "str") '("GtkTextSearchFlags" "flags") '("GtkTextIter*" "match_start") '("GtkTextIter*" "match_end") '("const-GtkTextIter*" "limit") ) ) (define-method backward_search (of-object "GtkTextIter") (c-name "gtk_text_iter_backward_search") (return-type "gboolean") (parameters '("const-gchar*" "str") '("GtkTextSearchFlags" "flags") '("GtkTextIter*" "match_start") '("GtkTextIter*" "match_end") '("const-GtkTextIter*" "limit") ) ) (define-method equal (of-object "GtkTextIter") (c-name "gtk_text_iter_equal") (return-type "gboolean") (parameters '("const-GtkTextIter*" "rhs") ) ) (define-method compare (of-object "GtkTextIter") (c-name "gtk_text_iter_compare") (return-type "gint") (parameters '("const-GtkTextIter*" "rhs") ) ) (define-method in_range (of-object "GtkTextIter") (c-name "gtk_text_iter_in_range") (return-type "gboolean") (parameters '("const-GtkTextIter*" "start") '("const-GtkTextIter*" "end") ) ) (define-method order (of-object "GtkTextIter") (c-name "gtk_text_iter_order") (return-type "none") (parameters '("GtkTextIter*" "second") ) ) ;; From /opt/gnome2/include/gtk-2.0/gtk/gtktextlayout.h (define-function gtk_text_layout_get_type (c-name "gtk_text_layout_get_type") (return-type "GType") ) (define-function gtk_text_layout_new (c-name "gtk_text_layout_new") (is-constructor-of "GtkTextLayout") (return-type "GtkTextLayout*") ) (define-method set_buffer (of-object "GtkTextLayout") (c-name "gtk_text_layout_set_buffer") (return-type "none") (parameters '("GtkTextBuffer*" "buffer") ) ) (define-method get_buffer (of-object "GtkTextLayout") (c-name "gtk_text_layout_get_buffer") (return-type "GtkTextBuffer*") ) (define-method set_default_style (of-object "GtkTextLayout") (c-name "gtk_text_layout_set_default_style") (return-type "none") (parameters '("GtkTextAttributes*" "values") ) ) (define-method set_contexts (of-object "GtkTextLayout") (c-name "gtk_text_layout_set_contexts") (return-type "none") (parameters '("PangoContext*" "ltr_context") '("PangoContext*" "rtl_context") ) ) (define-method set_cursor_direction (of-object "GtkTextLayout") (c-name "gtk_text_layout_set_cursor_direction") (return-type "none") (parameters '("GtkTextDirection" "direction") ) ) (define-method set_keyboard_direction (of-object "GtkTextLayout") (c-name "gtk_text_layout_set_keyboard_direction") (return-type "none") (parameters '("GtkTextDirection" "keyboard_dir") ) ) (define-method default_style_changed (of-object "GtkTextLayout") (c-name "gtk_text_layout_default_style_changed") (return-type "none") ) (define-method set_screen_width (of-object "GtkTextLayout") (c-name "gtk_text_layout_set_screen_width") (return-type "none") (parameters '("gint" "width") ) ) (define-method set_preedit_string (of-object "GtkTextLayout") (c-name "gtk_text_layout_set_preedit_string") (return-type "none") (parameters '("const-gchar*" "preedit_string") '("PangoAttrList*" "preedit_attrs") '("gint" "cursor_pos") ) ) (define-method set_cursor_visible (of-object "GtkTextLayout") (c-name "gtk_text_layout_set_cursor_visible") (return-type "none") (parameters '("gboolean" "cursor_visible") ) ) (define-method get_cursor_visible (of-object "GtkTextLayout") (c-name "gtk_text_layout_get_cursor_visible") (return-type "gboolean") ) (define-method get_size (of-object "GtkTextLayout") (c-name "gtk_text_layout_get_size") (return-type "none") (parameters '("gint*" "width") '("gint*" "height") ) ) (define-method get_lines (of-object "GtkTextLayout") (c-name "gtk_text_layout_get_lines") (return-type "GSList*") (parameters '("gint" "top_y") '("gint" "bottom_y") '("gint*" "first_line_y") ) ) (define-method wrap_loop_start (of-object "GtkTextLayout") (c-name "gtk_text_layout_wrap_loop_start") (return-type "none") ) (define-method wrap_loop_end (of-object "GtkTextLayout") (c-name "gtk_text_layout_wrap_loop_end") (return-type "none") ) (define-method get_line_display (of-object "GtkTextLayout") (c-name "gtk_text_layout_get_line_display") (return-type "GtkTextLineDisplay*") (parameters '("GtkTextLine*" "line") '("gboolean" "size_only") ) ) (define-method free_line_display (of-object "GtkTextLayout") (c-name "gtk_text_layout_free_line_display") (return-type "none") (parameters '("GtkTextLineDisplay*" "display") ) ) (define-method get_line_at_y (of-object "GtkTextLayout") (c-name "gtk_text_layout_get_line_at_y") (return-type "none") (parameters '("GtkTextIter*" "target_iter") '("gint" "y") '("gint*" "line_top") ) ) (define-method get_iter_at_pixel (of-object "GtkTextLayout") (c-name "gtk_text_layout_get_iter_at_pixel") (return-type "none") (parameters '("GtkTextIter*" "iter") '("gint" "x") '("gint" "y") ) ) (define-method get_iter_at_position (of-object "GtkTextLayout") (c-name "gtk_text_layout_get_iter_at_position") (return-type "none") (parameters '("GtkTextIter*" "iter") '("gint*" "trailing") '("gint" "x") '("gint" "y") ) ) (define-method invalidate (of-object "GtkTextLayout") (c-name "gtk_text_layout_invalidate") (return-type "none") (parameters '("const-GtkTextIter*" "start") '("const-GtkTextIter*" "end") ) ) (define-method free_line_data (of-object "GtkTextLayout") (c-name "gtk_text_layout_free_line_data") (return-type "none") (parameters '("GtkTextLine*" "line") '("GtkTextLineData*" "line_data") ) ) (define-method is_valid (of-object "GtkTextLayout") (c-name "gtk_text_layout_is_valid") (return-type "gboolean") ) (define-method validate_yrange (of-object "GtkTextLayout") (c-name "gtk_text_layout_validate_yrange") (return-type "none") (parameters '("GtkTextIter*" "anchor_line") '("gint" "y0_") '("gint" "y1_") ) ) (define-method validate (of-object "GtkTextLayout") (c-name "gtk_text_layout_validate") (return-type "none") (parameters '("gint" "max_pixels") ) ) (define-method wrap (of-object "GtkTextLayout") (c-name "gtk_text_layout_wrap") (return-type "GtkTextLineData*") (parameters '("GtkTextLine*" "line") '("GtkTextLineData*" "line_data") ) ) (define-method changed (of-object "GtkTextLayout") (c-name "gtk_text_layout_changed") (return-type "none") (parameters '("gint" "y") '("gint" "old_height") '("gint" "new_height") ) ) (define-method get_iter_location (of-object "GtkTextLayout") (c-name "gtk_text_layout_get_iter_location") (return-type "none") (parameters '("const-GtkTextIter*" "iter") '("GdkRectangle*" "rect") ) ) (define-method get_line_yrange (of-object "GtkTextLayout") (c-name "gtk_text_layout_get_line_yrange") (return-type "none") (parameters '("const-GtkTextIter*" "iter") '("gint*" "y") '("gint*" "height") ) ) (define-method _get_line_xrange (of-object "GtkTextLayout") (c-name "_gtk_text_layout_get_line_xrange") (return-type "none") (parameters '("const-GtkTextIter*" "iter") '("gint*" "x") '("gint*" "width") ) ) (define-method get_cursor_locations (of-object "GtkTextLayout") (c-name "gtk_text_layout_get_cursor_locations") (return-type "none") (parameters '("GtkTextIter*" "iter") '("GdkRectangle*" "strong_pos") '("GdkRectangle*" "weak_pos") ) ) (define-method clamp_iter_to_vrange (of-object "GtkTextLayout") (c-name "gtk_text_layout_clamp_iter_to_vrange") (return-type "gboolean") (parameters '("GtkTextIter*" "iter") '("gint" "top") '("gint" "bottom") ) ) (define-method move_iter_to_line_end (of-object "GtkTextLayout") (c-name "gtk_text_layout_move_iter_to_line_end") (return-type "gboolean") (parameters '("GtkTextIter*" "iter") '("gint" "direction") ) ) (define-method move_iter_to_previous_line (of-object "GtkTextLayout") (c-name "gtk_text_layout_move_iter_to_previous_line") (return-type "gboolean") (parameters '("GtkTextIter*" "iter") ) ) (define-method move_iter_to_next_line (of-object "GtkTextLayout") (c-name "gtk_text_layout_move_iter_to_next_line") (return-type "gboolean") (parameters '("GtkTextIter*" "iter") ) ) (define-method move_iter_to_x (of-object "GtkTextLayout") (c-name "gtk_text_layout_move_iter_to_x") (return-type "none") (parameters '("GtkTextIter*" "iter") '("gint" "x") ) ) (define-method move_iter_visually (of-object "GtkTextLayout") (c-name "gtk_text_layout_move_iter_visually") (return-type "gboolean") (parameters '("GtkTextIter*" "iter") '("gint" "count") ) ) (define-method iter_starts_line (of-object "GtkTextLayout") (c-name "gtk_text_layout_iter_starts_line") (return-type "gboolean") (parameters '("const-GtkTextIter*" "iter") ) ) (define-method get_iter_at_line (of-object "GtkTextLayout") (c-name "gtk_text_layout_get_iter_at_line") (return-type "none") (parameters '("GtkTextIter*" "iter") '("GtkTextLine*" "line") '("gint" "byte_offset") ) ) (define-method register_child (of-object "GtkTextChildAnchor") (c-name "gtk_text_child_anchor_register_child") (return-type "none") (parameters '("GtkWidget*" "child") '("GtkTextLayout*" "layout") ) ) (define-method unregister_child (of-object "GtkTextChildAnchor") (c-name "gtk_text_child_anchor_unregister_child") (return-type "none") (parameters '("GtkWidget*" "child") ) ) (define-method queue_resize (of-object "GtkTextChildAnchor") (c-name "gtk_text_child_anchor_queue_resize") (return-type "none") (parameters '("GtkTextLayout*" "layout") ) ) (define-function gtk_text_anchored_child_set_layout (c-name "gtk_text_anchored_child_set_layout") (return-type "none") (parameters '("GtkWidget*" "child") '("GtkTextLayout*" "layout") ) ) (define-method spew (of-object "GtkTextLayout") (c-name "gtk_text_layout_spew") (return-type "none") ) ;; From /opt/gnome2/include/gtk-2.0/gtk/gtktextmark.h (define-function gtk_text_mark_get_type (c-name "gtk_text_mark_get_type") (return-type "GType") ) (define-method set_visible (of-object "GtkTextMark") (c-name "gtk_text_mark_set_visible") (return-type "none") (parameters '("gboolean" "setting") ) ) (define-method get_visible (of-object "GtkTextMark") (c-name "gtk_text_mark_get_visible") (return-type "gboolean") ) (define-method get_name (of-object "GtkTextMark") (c-name "gtk_text_mark_get_name") (return-type "const-gchar*") ) (define-method get_deleted (of-object "GtkTextMark") (c-name "gtk_text_mark_get_deleted") (return-type "gboolean") ) (define-method get_buffer (of-object "GtkTextMark") (c-name "gtk_text_mark_get_buffer") (return-type "GtkTextBuffer*") ) (define-method get_left_gravity (of-object "GtkTextMark") (c-name "gtk_text_mark_get_left_gravity") (return-type "gboolean") ) ;; From /opt/gnome2/include/gtk-2.0/gtk/gtktexttag.h (define-function gtk_text_tag_get_type (c-name "gtk_text_tag_get_type") (return-type "GType") ) (define-function gtk_text_tag_new (c-name "gtk_text_tag_new") (is-constructor-of "GtkTextTag") (return-type "GtkTextTag*") (parameters '("const-gchar*" "name") ) ) (define-method get_priority (of-object "GtkTextTag") (c-name "gtk_text_tag_get_priority") (return-type "gint") ) (define-method set_priority (of-object "GtkTextTag") (c-name "gtk_text_tag_set_priority") (return-type "none") (parameters '("gint" "priority") ) ) (define-method event (of-object "GtkTextTag") (c-name "gtk_text_tag_event") (return-type "gboolean") (parameters '("GObject*" "event_object") '("GdkEvent*" "event") '("const-GtkTextIter*" "iter") ) ) (define-function gtk_text_attributes_new (c-name "gtk_text_attributes_new") (is-constructor-of "GtkTextAttributes") (return-type "GtkTextAttributes*") ) (define-method copy (of-object "GtkTextAttributes") (c-name "gtk_text_attributes_copy") (return-type "GtkTextAttributes*") ) (define-method copy_values (of-object "GtkTextAttributes") (c-name "gtk_text_attributes_copy_values") (return-type "none") (parameters '("GtkTextAttributes*" "dest") ) ) (define-method unref (of-object "GtkTextAttributes") (c-name "gtk_text_attributes_unref") (return-type "none") ) (define-method ref (of-object "GtkTextAttributes") (c-name "gtk_text_attributes_ref") (return-type "GtkTextAttributes*") ) (define-function gtk_text_attributes_get_type (c-name "gtk_text_attributes_get_type") (return-type "GType") ) ;; From /opt/gnome2/include/gtk-2.0/gtk/gtktexttagtable.h (define-function gtk_text_tag_table_get_type (c-name "gtk_text_tag_table_get_type") (return-type "GType") ) (define-function gtk_text_tag_table_new (c-name "gtk_text_tag_table_new") (is-constructor-of "GtkTextTagTable") (return-type "GtkTextTagTable*") ) (define-method add (of-object "GtkTextTagTable") (c-name "gtk_text_tag_table_add") (return-type "none") (parameters '("GtkTextTag*" "tag") ) ) (define-method remove (of-object "GtkTextTagTable") (c-name "gtk_text_tag_table_remove") (return-type "none") (parameters '("GtkTextTag*" "tag") ) ) (define-method lookup (of-object "GtkTextTagTable") (c-name "gtk_text_tag_table_lookup") (return-type "GtkTextTag*") (parameters '("const-gchar*" "name") ) ) (define-method foreach (of-object "GtkTextTagTable") (c-name "gtk_text_tag_table_foreach") (return-type "none") (parameters '("GtkTextTagTableForeach" "func") '("gpointer" "data") ) ) (define-method get_size (of-object "GtkTextTagTable") (c-name "gtk_text_tag_table_get_size") (return-type "gint") ) (define-method _add_buffer (of-object "GtkTextTagTable") (c-name "_gtk_text_tag_table_add_buffer") (return-type "none") (parameters '("gpointer" "buffer") ) ) (define-method _remove_buffer (of-object "GtkTextTagTable") (c-name "_gtk_text_tag_table_remove_buffer") (return-type "none") (parameters '("gpointer" "buffer") ) ) ;; From /opt/gnome2/include/gtk-2.0/gtk/gtktextview.h (define-function gtk_text_view_get_type (c-name "gtk_text_view_get_type") (return-type "GType") ) (define-function gtk_text_view_new (c-name "gtk_text_view_new") (is-constructor-of "GtkTextView") (return-type "GtkWidget*") ) (define-function gtk_text_view_new_with_buffer (c-name "gtk_text_view_new_with_buffer") (return-type "GtkWidget*") (parameters '("GtkTextBuffer*" "buffer") ) ) (define-method set_buffer (of-object "GtkTextView") (c-name "gtk_text_view_set_buffer") (return-type "none") (parameters '("GtkTextBuffer*" "buffer") ) ) (define-method get_buffer (of-object "GtkTextView") (c-name "gtk_text_view_get_buffer") (return-type "GtkTextBuffer*") ) (define-method scroll_to_iter (of-object "GtkTextView") (c-name "gtk_text_view_scroll_to_iter") (return-type "gboolean") (parameters '("GtkTextIter*" "iter") '("gdouble" "within_margin") '("gboolean" "use_align") '("gdouble" "xalign") '("gdouble" "yalign") ) ) (define-method scroll_to_mark (of-object "GtkTextView") (c-name "gtk_text_view_scroll_to_mark") (return-type "none") (parameters '("GtkTextMark*" "mark") '("gdouble" "within_margin") '("gboolean" "use_align") '("gdouble" "xalign") '("gdouble" "yalign") ) ) (define-method scroll_mark_onscreen (of-object "GtkTextView") (c-name "gtk_text_view_scroll_mark_onscreen") (return-type "none") (parameters '("GtkTextMark*" "mark") ) ) (define-method move_mark_onscreen (of-object "GtkTextView") (c-name "gtk_text_view_move_mark_onscreen") (return-type "gboolean") (parameters '("GtkTextMark*" "mark") ) ) (define-method place_cursor_onscreen (of-object "GtkTextView") (c-name "gtk_text_view_place_cursor_onscreen") (return-type "gboolean") ) (define-method get_visible_rect (of-object "GtkTextView") (c-name "gtk_text_view_get_visible_rect") (return-type "none") (parameters '("GdkRectangle*" "visible_rect") ) ) (define-method set_cursor_visible (of-object "GtkTextView") (c-name "gtk_text_view_set_cursor_visible") (return-type "none") (parameters '("gboolean" "setting") ) ) (define-method get_cursor_visible (of-object "GtkTextView") (c-name "gtk_text_view_get_cursor_visible") (return-type "gboolean") ) (define-method get_iter_location (of-object "GtkTextView") (c-name "gtk_text_view_get_iter_location") (return-type "none") (parameters '("const-GtkTextIter*" "iter") '("GdkRectangle*" "location") ) ) (define-method get_iter_at_location (of-object "GtkTextView") (c-name "gtk_text_view_get_iter_at_location") (return-type "none") (parameters '("GtkTextIter*" "iter") '("gint" "x") '("gint" "y") ) ) (define-method get_iter_at_position (of-object "GtkTextView") (c-name "gtk_text_view_get_iter_at_position") (return-type "none") (parameters '("GtkTextIter*" "iter") '("gint*" "trailing") '("gint" "x") '("gint" "y") ) ) (define-method get_line_yrange (of-object "GtkTextView") (c-name "gtk_text_view_get_line_yrange") (return-type "none") (parameters '("const-GtkTextIter*" "iter") '("gint*" "y") '("gint*" "height") ) ) (define-method get_line_at_y (of-object "GtkTextView") (c-name "gtk_text_view_get_line_at_y") (return-type "none") (parameters '("GtkTextIter*" "target_iter") '("gint" "y") '("gint*" "line_top") ) ) (define-method buffer_to_window_coords (of-object "GtkTextView") (c-name "gtk_text_view_buffer_to_window_coords") (return-type "none") (parameters '("GtkTextWindowType" "win") '("gint" "buffer_x") '("gint" "buffer_y") '("gint*" "window_x") '("gint*" "window_y") ) ) (define-method window_to_buffer_coords (of-object "GtkTextView") (c-name "gtk_text_view_window_to_buffer_coords") (return-type "none") (parameters '("GtkTextWindowType" "win") '("gint" "window_x") '("gint" "window_y") '("gint*" "buffer_x") '("gint*" "buffer_y") ) ) (define-method get_window (of-object "GtkTextView") (c-name "gtk_text_view_get_window") (return-type "GdkWindow*") (parameters '("GtkTextWindowType" "win") ) ) (define-method get_window_type (of-object "GtkTextView") (c-name "gtk_text_view_get_window_type") (return-type "GtkTextWindowType") (parameters '("GdkWindow*" "window") ) ) (define-method set_border_window_size (of-object "GtkTextView") (c-name "gtk_text_view_set_border_window_size") (return-type "none") (parameters '("GtkTextWindowType" "type") '("gint" "size") ) ) (define-method get_border_window_size (of-object "GtkTextView") (c-name "gtk_text_view_get_border_window_size") (return-type "gint") (parameters '("GtkTextWindowType" "type") ) ) (define-method forward_display_line (of-object "GtkTextView") (c-name "gtk_text_view_forward_display_line") (return-type "gboolean") (parameters '("GtkTextIter*" "iter") ) ) (define-method backward_display_line (of-object "GtkTextView") (c-name "gtk_text_view_backward_display_line") (return-type "gboolean") (parameters '("GtkTextIter*" "iter") ) ) (define-method forward_display_line_end (of-object "GtkTextView") (c-name "gtk_text_view_forward_display_line_end") (return-type "gboolean") (parameters '("GtkTextIter*" "iter") ) ) (define-method backward_display_line_start (of-object "GtkTextView") (c-name "gtk_text_view_backward_display_line_start") (return-type "gboolean") (parameters '("GtkTextIter*" "iter") ) ) (define-method starts_display_line (of-object "GtkTextView") (c-name "gtk_text_view_starts_display_line") (return-type "gboolean") (parameters '("const-GtkTextIter*" "iter") ) ) (define-method move_visually (of-object "GtkTextView") (c-name "gtk_text_view_move_visually") (return-type "gboolean") (parameters '("GtkTextIter*" "iter") '("gint" "count") ) ) (define-method add_child_at_anchor (of-object "GtkTextView") (c-name "gtk_text_view_add_child_at_anchor") (return-type "none") (parameters '("GtkWidget*" "child") '("GtkTextChildAnchor*" "anchor") ) ) (define-method add_child_in_window (of-object "GtkTextView") (c-name "gtk_text_view_add_child_in_window") (return-type "none") (parameters '("GtkWidget*" "child") '("GtkTextWindowType" "which_window") '("gint" "xpos") '("gint" "ypos") ) ) (define-method move_child (of-object "GtkTextView") (c-name "gtk_text_view_move_child") (return-type "none") (parameters '("GtkWidget*" "child") '("gint" "xpos") '("gint" "ypos") ) ) (define-method set_wrap_mode (of-object "GtkTextView") (c-name "gtk_text_view_set_wrap_mode") (return-type "none") (parameters '("GtkWrapMode" "wrap_mode") ) ) (define-method get_wrap_mode (of-object "GtkTextView") (c-name "gtk_text_view_get_wrap_mode") (return-type "GtkWrapMode") ) (define-method set_editable (of-object "GtkTextView") (c-name "gtk_text_view_set_editable") (return-type "none") (parameters '("gboolean" "setting") ) ) (define-method get_editable (of-object "GtkTextView") (c-name "gtk_text_view_get_editable") (return-type "gboolean") ) (define-method set_overwrite (of-object "GtkTextView") (c-name "gtk_text_view_set_overwrite") (return-type "none") (parameters '("gboolean" "overwrite") ) ) (define-method get_overwrite (of-object "GtkTextView") (c-name "gtk_text_view_get_overwrite") (return-type "gboolean") ) (define-method set_accepts_tab (of-object "GtkTextView") (c-name "gtk_text_view_set_accepts_tab") (return-type "none") (parameters '("gboolean" "accepts_tab") ) ) (define-method get_accepts_tab (of-object "GtkTextView") (c-name "gtk_text_view_get_accepts_tab") (return-type "gboolean") ) (define-method set_pixels_above_lines (of-object "GtkTextView") (c-name "gtk_text_view_set_pixels_above_lines") (return-type "none") (parameters '("gint" "pixels_above_lines") ) ) (define-method get_pixels_above_lines (of-object "GtkTextView") (c-name "gtk_text_view_get_pixels_above_lines") (return-type "gint") ) (define-method set_pixels_below_lines (of-object "GtkTextView") (c-name "gtk_text_view_set_pixels_below_lines") (return-type "none") (parameters '("gint" "pixels_below_lines") ) ) (define-method get_pixels_below_lines (of-object "GtkTextView") (c-name "gtk_text_view_get_pixels_below_lines") (return-type "gint") ) (define-method set_pixels_inside_wrap (of-object "GtkTextView") (c-name "gtk_text_view_set_pixels_inside_wrap") (return-type "none") (parameters '("gint" "pixels_inside_wrap") ) ) (define-method get_pixels_inside_wrap (of-object "GtkTextView") (c-name "gtk_text_view_get_pixels_inside_wrap") (return-type "gint") ) (define-method set_justification (of-object "GtkTextView") (c-name "gtk_text_view_set_justification") (return-type "none") (parameters '("GtkJustification" "justification") ) ) (define-method get_justification (of-object "GtkTextView") (c-name "gtk_text_view_get_justification") (return-type "GtkJustification") ) (define-method set_left_margin (of-object "GtkTextView") (c-name "gtk_text_view_set_left_margin") (return-type "none") (parameters '("gint" "left_margin") ) ) (define-method get_left_margin (of-object "GtkTextView") (c-name "gtk_text_view_get_left_margin") (return-type "gint") ) (define-method set_right_margin (of-object "GtkTextView") (c-name "gtk_text_view_set_right_margin") (return-type "none") (parameters '("gint" "right_margin") ) ) (define-method get_right_margin (of-object "GtkTextView") (c-name "gtk_text_view_get_right_margin") (return-type "gint") ) (define-method set_indent (of-object "GtkTextView") (c-name "gtk_text_view_set_indent") (return-type "none") (parameters '("gint" "indent") ) ) (define-method get_indent (of-object "GtkTextView") (c-name "gtk_text_view_get_indent") (return-type "gint") ) (define-method set_tabs (of-object "GtkTextView") (c-name "gtk_text_view_set_tabs") (return-type "none") (parameters '("PangoTabArray*" "tabs") ) ) (define-method get_tabs (of-object "GtkTextView") (c-name "gtk_text_view_get_tabs") (return-type "PangoTabArray*") ) (define-method get_default_attributes (of-object "GtkTextView") (c-name "gtk_text_view_get_default_attributes") (return-type "GtkTextAttributes*") ) ;; From /opt/gnome2/include/gtk-2.0/gtk/gtktipsquery.h (define-function gtk_tips_query_get_type (c-name "gtk_tips_query_get_type") (return-type "GtkType") ) (define-function gtk_tips_query_new (c-name "gtk_tips_query_new") (is-constructor-of "GtkTipsQuery") (return-type "GtkWidget*") ) (define-method start_query (of-object "GtkTipsQuery") (c-name "gtk_tips_query_start_query") (return-type "none") ) (define-method stop_query (of-object "GtkTipsQuery") (c-name "gtk_tips_query_stop_query") (return-type "none") ) (define-method set_caller (of-object "GtkTipsQuery") (c-name "gtk_tips_query_set_caller") (return-type "none") (parameters '("GtkWidget*" "caller") ) ) (define-method set_labels (of-object "GtkTipsQuery") (c-name "gtk_tips_query_set_labels") (return-type "none") (parameters '("const-gchar*" "label_inactive") '("const-gchar*" "label_no_tip") ) ) ;; From /opt/gnome2/include/gtk-2.0/gtk/gtktoggleaction.h (define-function gtk_toggle_action_get_type (c-name "gtk_toggle_action_get_type") (return-type "GType") ) (define-function gtk_toggle_action_new (c-name "gtk_toggle_action_new") (is-constructor-of "GtkToggleAction") (return-type "GtkToggleAction*") (parameters '("const-gchar*" "name") '("const-gchar*" "label") '("const-gchar*" "tooltip") '("const-gchar*" "stock_id") ) ) (define-method toggled (of-object "GtkToggleAction") (c-name "gtk_toggle_action_toggled") (return-type "none") ) (define-method set_active (of-object "GtkToggleAction") (c-name "gtk_toggle_action_set_active") (return-type "none") (parameters '("gboolean" "is_active") ) ) (define-method get_active (of-object "GtkToggleAction") (c-name "gtk_toggle_action_get_active") (return-type "gboolean") ) (define-method set_draw_as_radio (of-object "GtkToggleAction") (c-name "gtk_toggle_action_set_draw_as_radio") (return-type "none") (parameters '("gboolean" "draw_as_radio") ) ) (define-method get_draw_as_radio (of-object "GtkToggleAction") (c-name "gtk_toggle_action_get_draw_as_radio") (return-type "gboolean") ) ;; From /opt/gnome2/include/gtk-2.0/gtk/gtktogglebutton.h (define-function gtk_toggle_button_get_type (c-name "gtk_toggle_button_get_type") (return-type "GType") ) (define-function gtk_toggle_button_new (c-name "gtk_toggle_button_new") (is-constructor-of "GtkToggleButton") (return-type "GtkWidget*") ) (define-function gtk_toggle_button_new_with_label (c-name "gtk_toggle_button_new_with_label") (return-type "GtkWidget*") (parameters '("const-gchar*" "label") ) ) (define-function gtk_toggle_button_new_with_mnemonic (c-name "gtk_toggle_button_new_with_mnemonic") (return-type "GtkWidget*") (parameters '("const-gchar*" "label") ) ) (define-method set_mode (of-object "GtkToggleButton") (c-name "gtk_toggle_button_set_mode") (return-type "none") (parameters '("gboolean" "draw_indicator") ) ) (define-method get_mode (of-object "GtkToggleButton") (c-name "gtk_toggle_button_get_mode") (return-type "gboolean") ) (define-method set_active (of-object "GtkToggleButton") (c-name "gtk_toggle_button_set_active") (return-type "none") (parameters '("gboolean" "is_active") ) ) (define-method get_active (of-object "GtkToggleButton") (c-name "gtk_toggle_button_get_active") (return-type "gboolean") ) (define-method toggled (of-object "GtkToggleButton") (c-name "gtk_toggle_button_toggled") (return-type "none") ) (define-method set_inconsistent (of-object "GtkToggleButton") (c-name "gtk_toggle_button_set_inconsistent") (return-type "none") (parameters '("gboolean" "setting") ) ) (define-method get_inconsistent (of-object "GtkToggleButton") (c-name "gtk_toggle_button_get_inconsistent") (return-type "gboolean") ) ;; From /opt/gnome2/include/gtk-2.0/gtk/gtktoggletoolbutton.h (define-function gtk_toggle_tool_button_get_type (c-name "gtk_toggle_tool_button_get_type") (return-type "GType") ) (define-function gtk_toggle_tool_button_new (c-name "gtk_toggle_tool_button_new") (is-constructor-of "GtkToggleToolButton") (return-type "GtkToolItem*") ) (define-function gtk_toggle_tool_button_new_from_stock (c-name "gtk_toggle_tool_button_new_from_stock") (return-type "GtkToolItem*") (parameters '("const-gchar*" "stock_id") ) ) (define-method set_active (of-object "GtkToggleToolButton") (c-name "gtk_toggle_tool_button_set_active") (return-type "none") (parameters '("gboolean" "is_active") ) ) (define-method get_active (of-object "GtkToggleToolButton") (c-name "gtk_toggle_tool_button_get_active") (return-type "gboolean") ) ;; From /opt/gnome2/include/gtk-2.0/gtk/gtktoolbar.h (define-function gtk_toolbar_get_type (c-name "gtk_toolbar_get_type") (return-type "GType") ) (define-function gtk_toolbar_new (c-name "gtk_toolbar_new") (is-constructor-of "GtkToolbar") (return-type "GtkWidget*") ) (define-method insert (of-object "GtkToolbar") (c-name "gtk_toolbar_insert") (return-type "none") (parameters '("GtkToolItem*" "item") '("gint" "pos") ) ) (define-method get_item_index (of-object "GtkToolbar") (c-name "gtk_toolbar_get_item_index") (return-type "gint") (parameters '("GtkToolItem*" "item") ) ) (define-method get_n_items (of-object "GtkToolbar") (c-name "gtk_toolbar_get_n_items") (return-type "gint") ) (define-method get_nth_item (of-object "GtkToolbar") (c-name "gtk_toolbar_get_nth_item") (return-type "GtkToolItem*") (parameters '("gint" "n") ) ) (define-method get_show_arrow (of-object "GtkToolbar") (c-name "gtk_toolbar_get_show_arrow") (return-type "gboolean") ) (define-method set_show_arrow (of-object "GtkToolbar") (c-name "gtk_toolbar_set_show_arrow") (return-type "none") (parameters '("gboolean" "show_arrow") ) ) (define-method get_orientation (of-object "GtkToolbar") (c-name "gtk_toolbar_get_orientation") (return-type "GtkOrientation") ) (define-method set_orientation (of-object "GtkToolbar") (c-name "gtk_toolbar_set_orientation") (return-type "none") (parameters '("GtkOrientation" "orientation") ) ) (define-method get_tooltips (of-object "GtkToolbar") (c-name "gtk_toolbar_get_tooltips") (return-type "gboolean") ) (define-method set_tooltips (of-object "GtkToolbar") (c-name "gtk_toolbar_set_tooltips") (return-type "none") (parameters '("gboolean" "enable") ) ) (define-method get_style (of-object "GtkToolbar") (c-name "gtk_toolbar_get_style") (return-type "GtkToolbarStyle") ) (define-method set_style (of-object "GtkToolbar") (c-name "gtk_toolbar_set_style") (return-type "none") (parameters '("GtkToolbarStyle" "style") ) ) (define-method unset_style (of-object "GtkToolbar") (c-name "gtk_toolbar_unset_style") (return-type "none") ) (define-method get_icon_size (of-object "GtkToolbar") (c-name "gtk_toolbar_get_icon_size") (return-type "GtkIconSize") ) (define-method get_relief_style (of-object "GtkToolbar") (c-name "gtk_toolbar_get_relief_style") (return-type "GtkReliefStyle") ) (define-method get_drop_index (of-object "GtkToolbar") (c-name "gtk_toolbar_get_drop_index") (return-type "gint") (parameters '("gint" "x") '("gint" "y") ) ) (define-method set_drop_highlight_item (of-object "GtkToolbar") (c-name "gtk_toolbar_set_drop_highlight_item") (return-type "none") (parameters '("GtkToolItem*" "tool_item") '("gint" "index_") ) ) (define-function _gtk_toolbar_elide_underscores (c-name "_gtk_toolbar_elide_underscores") (return-type "gchar*") (parameters '("const-gchar*" "original") ) ) (define-function _gtk_toolbar_paint_space_line (c-name "_gtk_toolbar_paint_space_line") (return-type "none") (parameters '("GtkWidget*" "widget") '("GtkToolbar*" "toolbar") '("GdkRectangle*" "area") '("GtkAllocation*" "allocation") ) ) (define-function _gtk_toolbar_get_default_space_size (c-name "_gtk_toolbar_get_default_space_size") (return-type "gint") ) (define-method _rebuild_menu (of-object "GtkToolbar") (c-name "_gtk_toolbar_rebuild_menu") (return-type "none") ) (define-method set_icon_size (of-object "GtkToolbar") (c-name "gtk_toolbar_set_icon_size") (return-type "none") (parameters '("GtkIconSize" "icon_size") ) ) (define-method unset_icon_size (of-object "GtkToolbar") (c-name "gtk_toolbar_unset_icon_size") (return-type "none") ) (define-method append_item (of-object "GtkToolbar") (c-name "gtk_toolbar_append_item") (return-type "GtkWidget*") (parameters '("const-char*" "text") '("const-char*" "tooltip_text") '("const-char*" "tooltip_private_text") '("GtkWidget*" "icon") '("GtkSignalFunc" "callback") '("gpointer" "user_data") ) ) (define-method prepend_item (of-object "GtkToolbar") (c-name "gtk_toolbar_prepend_item") (return-type "GtkWidget*") (parameters '("const-char*" "text") '("const-char*" "tooltip_text") '("const-char*" "tooltip_private_text") '("GtkWidget*" "icon") '("GtkSignalFunc" "callback") '("gpointer" "user_data") ) ) (define-method insert_item (of-object "GtkToolbar") (c-name "gtk_toolbar_insert_item") (return-type "GtkWidget*") (parameters '("const-char*" "text") '("const-char*" "tooltip_text") '("const-char*" "tooltip_private_text") '("GtkWidget*" "icon") '("GtkSignalFunc" "callback") '("gpointer" "user_data") '("gint" "position") ) ) (define-method insert_stock (of-object "GtkToolbar") (c-name "gtk_toolbar_insert_stock") (return-type "GtkWidget*") (parameters '("const-gchar*" "stock_id") '("const-char*" "tooltip_text") '("const-char*" "tooltip_private_text") '("GtkSignalFunc" "callback") '("gpointer" "user_data") '("gint" "position") ) ) (define-method append_space (of-object "GtkToolbar") (c-name "gtk_toolbar_append_space") (return-type "none") ) (define-method prepend_space (of-object "GtkToolbar") (c-name "gtk_toolbar_prepend_space") (return-type "none") ) (define-method insert_space (of-object "GtkToolbar") (c-name "gtk_toolbar_insert_space") (return-type "none") (parameters '("gint" "position") ) ) (define-method remove_space (of-object "GtkToolbar") (c-name "gtk_toolbar_remove_space") (return-type "none") (parameters '("gint" "position") ) ) (define-method append_element (of-object "GtkToolbar") (c-name "gtk_toolbar_append_element") (return-type "GtkWidget*") (parameters '("GtkToolbarChildType" "type") '("GtkWidget*" "widget") '("const-char*" "text") '("const-char*" "tooltip_text") '("const-char*" "tooltip_private_text") '("GtkWidget*" "icon") '("GtkSignalFunc" "callback") '("gpointer" "user_data") ) ) (define-method prepend_element (of-object "GtkToolbar") (c-name "gtk_toolbar_prepend_element") (return-type "GtkWidget*") (parameters '("GtkToolbarChildType" "type") '("GtkWidget*" "widget") '("const-char*" "text") '("const-char*" "tooltip_text") '("const-char*" "tooltip_private_text") '("GtkWidget*" "icon") '("GtkSignalFunc" "callback") '("gpointer" "user_data") ) ) (define-method insert_element (of-object "GtkToolbar") (c-name "gtk_toolbar_insert_element") (return-type "GtkWidget*") (parameters '("GtkToolbarChildType" "type") '("GtkWidget*" "widget") '("const-char*" "text") '("const-char*" "tooltip_text") '("const-char*" "tooltip_private_text") '("GtkWidget*" "icon") '("GtkSignalFunc" "callback") '("gpointer" "user_data") '("gint" "position") ) ) (define-method append_widget (of-object "GtkToolbar") (c-name "gtk_toolbar_append_widget") (return-type "none") (parameters '("GtkWidget*" "widget") '("const-char*" "tooltip_text") '("const-char*" "tooltip_private_text") ) ) (define-method prepend_widget (of-object "GtkToolbar") (c-name "gtk_toolbar_prepend_widget") (return-type "none") (parameters '("GtkWidget*" "widget") '("const-char*" "tooltip_text") '("const-char*" "tooltip_private_text") ) ) (define-method insert_widget (of-object "GtkToolbar") (c-name "gtk_toolbar_insert_widget") (return-type "none") (parameters '("GtkWidget*" "widget") '("const-char*" "tooltip_text") '("const-char*" "tooltip_private_text") '("gint" "position") ) ) ;; From /opt/gnome2/include/gtk-2.0/gtk/gtktoolbutton.h (define-function gtk_tool_button_get_type (c-name "gtk_tool_button_get_type") (return-type "GType") ) (define-function gtk_tool_button_new (c-name "gtk_tool_button_new") (is-constructor-of "GtkToolButton") (return-type "GtkToolItem*") (parameters '("GtkWidget*" "icon_widget") '("const-gchar*" "label") ) ) (define-function gtk_tool_button_new_from_stock (c-name "gtk_tool_button_new_from_stock") (return-type "GtkToolItem*") (parameters '("const-gchar*" "stock_id") ) ) (define-method set_label (of-object "GtkToolButton") (c-name "gtk_tool_button_set_label") (return-type "none") (parameters '("const-gchar*" "label") ) ) (define-method get_label (of-object "GtkToolButton") (c-name "gtk_tool_button_get_label") (return-type "const-gchar*") ) (define-method set_use_underline (of-object "GtkToolButton") (c-name "gtk_tool_button_set_use_underline") (return-type "none") (parameters '("gboolean" "use_underline") ) ) (define-method get_use_underline (of-object "GtkToolButton") (c-name "gtk_tool_button_get_use_underline") (return-type "gboolean") ) (define-method set_stock_id (of-object "GtkToolButton") (c-name "gtk_tool_button_set_stock_id") (return-type "none") (parameters '("const-gchar*" "stock_id") ) ) (define-method get_stock_id (of-object "GtkToolButton") (c-name "gtk_tool_button_get_stock_id") (return-type "const-gchar*") ) (define-method set_icon_name (of-object "GtkToolButton") (c-name "gtk_tool_button_set_icon_name") (return-type "none") (parameters '("const-gchar*" "icon_name") ) ) (define-method get_icon_name (of-object "GtkToolButton") (c-name "gtk_tool_button_get_icon_name") (return-type "const-gchar*") ) (define-method set_icon_widget (of-object "GtkToolButton") (c-name "gtk_tool_button_set_icon_widget") (return-type "none") (parameters '("GtkWidget*" "icon_widget") ) ) (define-method get_icon_widget (of-object "GtkToolButton") (c-name "gtk_tool_button_get_icon_widget") (return-type "GtkWidget*") ) (define-method set_label_widget (of-object "GtkToolButton") (c-name "gtk_tool_button_set_label_widget") (return-type "none") (parameters '("GtkWidget*" "label_widget") ) ) (define-method get_label_widget (of-object "GtkToolButton") (c-name "gtk_tool_button_get_label_widget") (return-type "GtkWidget*") ) (define-method _get_button (of-object "GtkToolButton") (c-name "_gtk_tool_button_get_button") (return-type "GtkWidget*") ) ;; From /opt/gnome2/include/gtk-2.0/gtk/gtktoolitem.h (define-function gtk_tool_item_get_type (c-name "gtk_tool_item_get_type") (return-type "GType") ) (define-function gtk_tool_item_new (c-name "gtk_tool_item_new") (is-constructor-of "GtkToolItem") (return-type "GtkToolItem*") ) (define-method set_homogeneous (of-object "GtkToolItem") (c-name "gtk_tool_item_set_homogeneous") (return-type "none") (parameters '("gboolean" "homogeneous") ) ) (define-method get_homogeneous (of-object "GtkToolItem") (c-name "gtk_tool_item_get_homogeneous") (return-type "gboolean") ) (define-method set_expand (of-object "GtkToolItem") (c-name "gtk_tool_item_set_expand") (return-type "none") (parameters '("gboolean" "expand") ) ) (define-method get_expand (of-object "GtkToolItem") (c-name "gtk_tool_item_get_expand") (return-type "gboolean") ) (define-method set_tooltip (of-object "GtkToolItem") (c-name "gtk_tool_item_set_tooltip") (return-type "none") (parameters '("GtkTooltips*" "tooltips") '("const-gchar*" "tip_text") '("const-gchar*" "tip_private") ) ) (define-method set_use_drag_window (of-object "GtkToolItem") (c-name "gtk_tool_item_set_use_drag_window") (return-type "none") (parameters '("gboolean" "use_drag_window") ) ) (define-method get_use_drag_window (of-object "GtkToolItem") (c-name "gtk_tool_item_get_use_drag_window") (return-type "gboolean") ) (define-method set_visible_horizontal (of-object "GtkToolItem") (c-name "gtk_tool_item_set_visible_horizontal") (return-type "none") (parameters '("gboolean" "visible_horizontal") ) ) (define-method get_visible_horizontal (of-object "GtkToolItem") (c-name "gtk_tool_item_get_visible_horizontal") (return-type "gboolean") ) (define-method set_visible_vertical (of-object "GtkToolItem") (c-name "gtk_tool_item_set_visible_vertical") (return-type "none") (parameters '("gboolean" "visible_vertical") ) ) (define-method get_visible_vertical (of-object "GtkToolItem") (c-name "gtk_tool_item_get_visible_vertical") (return-type "gboolean") ) (define-method get_is_important (of-object "GtkToolItem") (c-name "gtk_tool_item_get_is_important") (return-type "gboolean") ) (define-method set_is_important (of-object "GtkToolItem") (c-name "gtk_tool_item_set_is_important") (return-type "none") (parameters '("gboolean" "is_important") ) ) (define-method get_icon_size (of-object "GtkToolItem") (c-name "gtk_tool_item_get_icon_size") (return-type "GtkIconSize") ) (define-method get_orientation (of-object "GtkToolItem") (c-name "gtk_tool_item_get_orientation") (return-type "GtkOrientation") ) (define-method get_toolbar_style (of-object "GtkToolItem") (c-name "gtk_tool_item_get_toolbar_style") (return-type "GtkToolbarStyle") ) (define-method get_relief_style (of-object "GtkToolItem") (c-name "gtk_tool_item_get_relief_style") (return-type "GtkReliefStyle") ) (define-method retrieve_proxy_menu_item (of-object "GtkToolItem") (c-name "gtk_tool_item_retrieve_proxy_menu_item") (return-type "GtkWidget*") ) (define-method get_proxy_menu_item (of-object "GtkToolItem") (c-name "gtk_tool_item_get_proxy_menu_item") (return-type "GtkWidget*") (parameters '("const-gchar*" "menu_item_id") ) ) (define-method set_proxy_menu_item (of-object "GtkToolItem") (c-name "gtk_tool_item_set_proxy_menu_item") (return-type "none") (parameters '("const-gchar*" "menu_item_id") '("GtkWidget*" "menu_item") ) ) (define-method rebuild_menu (of-object "GtkToolItem") (c-name "gtk_tool_item_rebuild_menu") (return-type "none") ) (define-method _toolbar_reconfigured (of-object "GtkToolItem") (c-name "_gtk_tool_item_toolbar_reconfigured") (return-type "none") ) ;; From /opt/gnome2/include/gtk-2.0/gtk/gtktooltips.h (define-function gtk_tooltips_get_type (c-name "gtk_tooltips_get_type") (return-type "GType") ) (define-function gtk_tooltips_new (c-name "gtk_tooltips_new") (is-constructor-of "GtkTooltips") (return-type "GtkTooltips*") ) (define-method enable (of-object "GtkTooltips") (c-name "gtk_tooltips_enable") (return-type "none") ) (define-method disable (of-object "GtkTooltips") (c-name "gtk_tooltips_disable") (return-type "none") ) (define-method set_delay (of-object "GtkTooltips") (c-name "gtk_tooltips_set_delay") (return-type "none") (parameters '("guint" "delay") ) ) (define-method set_tip (of-object "GtkTooltips") (c-name "gtk_tooltips_set_tip") (return-type "none") (parameters '("GtkWidget*" "widget") '("const-gchar*" "tip_text") '("const-gchar*" "tip_private") ) ) (define-function gtk_tooltips_data_get (c-name "gtk_tooltips_data_get") (return-type "GtkTooltipsData*") (parameters '("GtkWidget*" "widget") ) ) (define-method force_window (of-object "GtkTooltips") (c-name "gtk_tooltips_force_window") (return-type "none") ) (define-function _gtk_tooltips_toggle_keyboard_mode (c-name "_gtk_tooltips_toggle_keyboard_mode") (return-type "none") (parameters '("GtkWidget*" "widget") ) ) (define-function gtk_tooltips_get_info_from_tip_window (c-name "gtk_tooltips_get_info_from_tip_window") (return-type "gboolean") (parameters '("GtkWindow*" "tip_window") '("GtkTooltips**" "tooltips") '("GtkWidget**" "current_widget") ) ) ;; From /opt/gnome2/include/gtk-2.0/gtk/gtktreednd.h (define-function gtk_tree_drag_source_get_type (c-name "gtk_tree_drag_source_get_type") (return-type "GType") ) (define-method row_draggable (of-object "GtkTreeDragSource") (c-name "gtk_tree_drag_source_row_draggable") (return-type "gboolean") (parameters '("GtkTreePath*" "path") ) ) (define-method drag_data_delete (of-object "GtkTreeDragSource") (c-name "gtk_tree_drag_source_drag_data_delete") (return-type "gboolean") (parameters '("GtkTreePath*" "path") ) ) (define-method drag_data_get (of-object "GtkTreeDragSource") (c-name "gtk_tree_drag_source_drag_data_get") (return-type "gboolean") (parameters '("GtkTreePath*" "path") '("GtkSelectionData*" "selection_data") ) ) (define-function gtk_tree_drag_dest_get_type (c-name "gtk_tree_drag_dest_get_type") (return-type "GType") ) (define-method drag_data_received (of-object "GtkTreeDragDest") (c-name "gtk_tree_drag_dest_drag_data_received") (return-type "gboolean") (parameters '("GtkTreePath*" "dest") '("GtkSelectionData*" "selection_data") ) ) (define-method row_drop_possible (of-object "GtkTreeDragDest") (c-name "gtk_tree_drag_dest_row_drop_possible") (return-type "gboolean") (parameters '("GtkTreePath*" "dest_path") '("GtkSelectionData*" "selection_data") ) ) (define-function gtk_tree_set_row_drag_data (c-name "gtk_tree_set_row_drag_data") (return-type "gboolean") (parameters '("GtkSelectionData*" "selection_data") '("GtkTreeModel*" "tree_model") '("GtkTreePath*" "path") ) ) (define-function gtk_tree_get_row_drag_data (c-name "gtk_tree_get_row_drag_data") (return-type "gboolean") (parameters '("GtkSelectionData*" "selection_data") '("GtkTreeModel**" "tree_model") '("GtkTreePath**" "path") ) ) ;; From /opt/gnome2/include/gtk-2.0/gtk/gtktree.h (define-function gtk_tree_get_type (c-name "gtk_tree_get_type") (return-type "GtkType") ) (define-function gtk_tree_new (c-name "gtk_tree_new") (is-constructor-of "GtkTree") (return-type "GtkWidget*") ) (define-method append (of-object "GtkTree") (c-name "gtk_tree_append") (return-type "none") (parameters '("GtkWidget*" "tree_item") ) ) (define-method prepend (of-object "GtkTree") (c-name "gtk_tree_prepend") (return-type "none") (parameters '("GtkWidget*" "tree_item") ) ) (define-method insert (of-object "GtkTree") (c-name "gtk_tree_insert") (return-type "none") (parameters '("GtkWidget*" "tree_item") '("gint" "position") ) ) (define-method remove_items (of-object "GtkTree") (c-name "gtk_tree_remove_items") (return-type "none") (parameters '("GList*" "items") ) ) (define-method clear_items (of-object "GtkTree") (c-name "gtk_tree_clear_items") (return-type "none") (parameters '("gint" "start") '("gint" "end") ) ) (define-method select_item (of-object "GtkTree") (c-name "gtk_tree_select_item") (return-type "none") (parameters '("gint" "item") ) ) (define-method unselect_item (of-object "GtkTree") (c-name "gtk_tree_unselect_item") (return-type "none") (parameters '("gint" "item") ) ) (define-method select_child (of-object "GtkTree") (c-name "gtk_tree_select_child") (return-type "none") (parameters '("GtkWidget*" "tree_item") ) ) (define-method unselect_child (of-object "GtkTree") (c-name "gtk_tree_unselect_child") (return-type "none") (parameters '("GtkWidget*" "tree_item") ) ) (define-method child_position (of-object "GtkTree") (c-name "gtk_tree_child_position") (return-type "gint") (parameters '("GtkWidget*" "child") ) ) (define-method set_selection_mode (of-object "GtkTree") (c-name "gtk_tree_set_selection_mode") (return-type "none") (parameters '("GtkSelectionMode" "mode") ) ) (define-method set_view_mode (of-object "GtkTree") (c-name "gtk_tree_set_view_mode") (return-type "none") (parameters '("GtkTreeViewMode" "mode") ) ) (define-method set_view_lines (of-object "GtkTree") (c-name "gtk_tree_set_view_lines") (return-type "none") (parameters '("gboolean" "flag") ) ) (define-method remove_item (of-object "GtkTree") (c-name "gtk_tree_remove_item") (return-type "none") (parameters '("GtkWidget*" "child") ) ) ;; From /opt/gnome2/include/gtk-2.0/gtk/gtktreeitem.h (define-function gtk_tree_item_get_type (c-name "gtk_tree_item_get_type") (return-type "GtkType") ) (define-function gtk_tree_item_new (c-name "gtk_tree_item_new") (is-constructor-of "GtkTreeItem") (return-type "GtkWidget*") ) (define-function gtk_tree_item_new_with_label (c-name "gtk_tree_item_new_with_label") (return-type "GtkWidget*") (parameters '("const-gchar*" "label") ) ) (define-method set_subtree (of-object "GtkTreeItem") (c-name "gtk_tree_item_set_subtree") (return-type "none") (parameters '("GtkWidget*" "subtree") ) ) (define-method remove_subtree (of-object "GtkTreeItem") (c-name "gtk_tree_item_remove_subtree") (return-type "none") ) (define-method select (of-object "GtkTreeItem") (c-name "gtk_tree_item_select") (return-type "none") ) (define-method deselect (of-object "GtkTreeItem") (c-name "gtk_tree_item_deselect") (return-type "none") ) (define-method expand (of-object "GtkTreeItem") (c-name "gtk_tree_item_expand") (return-type "none") ) (define-method collapse (of-object "GtkTreeItem") (c-name "gtk_tree_item_collapse") (return-type "none") ) ;; From /opt/gnome2/include/gtk-2.0/gtk/gtktreemodelfilter.h (define-function gtk_tree_model_filter_get_type (c-name "gtk_tree_model_filter_get_type") (return-type "GType") ) (define-method filter_new (of-object "GtkTreeModel") (c-name "gtk_tree_model_filter_new") (return-type "GtkTreeModel*") (parameters '("GtkTreePath*" "root") ) ) (define-method set_visible_func (of-object "GtkTreeModelFilter") (c-name "gtk_tree_model_filter_set_visible_func") (return-type "none") (parameters '("GtkTreeModelFilterVisibleFunc" "func") '("gpointer" "data") '("GtkDestroyNotify" "destroy") ) ) (define-method set_modify_func (of-object "GtkTreeModelFilter") (c-name "gtk_tree_model_filter_set_modify_func") (return-type "none") (parameters '("gint" "n_columns") '("GType*" "types") '("GtkTreeModelFilterModifyFunc" "func") '("gpointer" "data") '("GtkDestroyNotify" "destroy") ) ) (define-method set_visible_column (of-object "GtkTreeModelFilter") (c-name "gtk_tree_model_filter_set_visible_column") (return-type "none") (parameters '("gint" "column") ) ) (define-method get_model (of-object "GtkTreeModelFilter") (c-name "gtk_tree_model_filter_get_model") (return-type "GtkTreeModel*") ) (define-method convert_child_iter_to_iter (of-object "GtkTreeModelFilter") (c-name "gtk_tree_model_filter_convert_child_iter_to_iter") (return-type "gboolean") (parameters '("GtkTreeIter*" "filter_iter") '("GtkTreeIter*" "child_iter") ) ) (define-method convert_iter_to_child_iter (of-object "GtkTreeModelFilter") (c-name "gtk_tree_model_filter_convert_iter_to_child_iter") (return-type "none") (parameters '("GtkTreeIter*" "child_iter") '("GtkTreeIter*" "filter_iter") ) ) (define-method convert_child_path_to_path (of-object "GtkTreeModelFilter") (c-name "gtk_tree_model_filter_convert_child_path_to_path") (return-type "GtkTreePath*") (parameters '("GtkTreePath*" "child_path") ) ) (define-method convert_path_to_child_path (of-object "GtkTreeModelFilter") (c-name "gtk_tree_model_filter_convert_path_to_child_path") (return-type "GtkTreePath*") (parameters '("GtkTreePath*" "filter_path") ) ) (define-method refilter (of-object "GtkTreeModelFilter") (c-name "gtk_tree_model_filter_refilter") (return-type "none") ) (define-method clear_cache (of-object "GtkTreeModelFilter") (c-name "gtk_tree_model_filter_clear_cache") (return-type "none") ) ;; From /opt/gnome2/include/gtk-2.0/gtk/gtktreemodel.h (define-function gtk_tree_path_new (c-name "gtk_tree_path_new") (is-constructor-of "GtkTreePath") (return-type "GtkTreePath*") ) (define-function gtk_tree_path_new_from_string (c-name "gtk_tree_path_new_from_string") (return-type "GtkTreePath*") (parameters '("const-gchar*" "path") ) ) (define-function gtk_tree_path_new_from_indices (c-name "gtk_tree_path_new_from_indices") (return-type "GtkTreePath*") (parameters '("gint" "first_index") ) (varargs #t) ) (define-method to_string (of-object "GtkTreePath") (c-name "gtk_tree_path_to_string") (return-type "gchar*") ) (define-function gtk_tree_path_new_first (c-name "gtk_tree_path_new_first") (return-type "GtkTreePath*") ) (define-method append_index (of-object "GtkTreePath") (c-name "gtk_tree_path_append_index") (return-type "none") (parameters '("gint" "index_") ) ) (define-method prepend_index (of-object "GtkTreePath") (c-name "gtk_tree_path_prepend_index") (return-type "none") (parameters '("gint" "index_") ) ) (define-method get_depth (of-object "GtkTreePath") (c-name "gtk_tree_path_get_depth") (return-type "gint") ) (define-method get_indices (of-object "GtkTreePath") (c-name "gtk_tree_path_get_indices") (return-type "gint*") ) (define-method free (of-object "GtkTreePath") (c-name "gtk_tree_path_free") (return-type "none") ) (define-method copy (of-object "GtkTreePath") (c-name "gtk_tree_path_copy") (return-type "GtkTreePath*") ) (define-function gtk_tree_path_get_type (c-name "gtk_tree_path_get_type") (return-type "GType") ) (define-method compare (of-object "GtkTreePath") (c-name "gtk_tree_path_compare") (return-type "gint") (parameters '("const-GtkTreePath*" "b") ) ) (define-method next (of-object "GtkTreePath") (c-name "gtk_tree_path_next") (return-type "none") ) (define-method prev (of-object "GtkTreePath") (c-name "gtk_tree_path_prev") (return-type "gboolean") ) (define-method up (of-object "GtkTreePath") (c-name "gtk_tree_path_up") (return-type "gboolean") ) (define-method down (of-object "GtkTreePath") (c-name "gtk_tree_path_down") (return-type "none") ) (define-method is_ancestor (of-object "GtkTreePath") (c-name "gtk_tree_path_is_ancestor") (return-type "gboolean") (parameters '("GtkTreePath*" "descendant") ) ) (define-method is_descendant (of-object "GtkTreePath") (c-name "gtk_tree_path_is_descendant") (return-type "gboolean") (parameters '("GtkTreePath*" "ancestor") ) ) (define-function gtk_tree_row_reference_get_type (c-name "gtk_tree_row_reference_get_type") (return-type "GType") ) (define-function gtk_tree_row_reference_new (c-name "gtk_tree_row_reference_new") (is-constructor-of "GtkTreeRowReference") (return-type "GtkTreeRowReference*") (parameters '("GtkTreeModel*" "model") '("GtkTreePath*" "path") ) ) (define-function gtk_tree_row_reference_new_proxy (c-name "gtk_tree_row_reference_new_proxy") (return-type "GtkTreeRowReference*") (parameters '("GObject*" "proxy") '("GtkTreeModel*" "model") '("GtkTreePath*" "path") ) ) (define-method get_path (of-object "GtkTreeRowReference") (c-name "gtk_tree_row_reference_get_path") (return-type "GtkTreePath*") ) (define-method get_model (of-object "GtkTreeRowReference") (c-name "gtk_tree_row_reference_get_model") (return-type "GtkTreeModel*") ) (define-method valid (of-object "GtkTreeRowReference") (c-name "gtk_tree_row_reference_valid") (return-type "gboolean") ) (define-method copy (of-object "GtkTreeRowReference") (c-name "gtk_tree_row_reference_copy") (return-type "GtkTreeRowReference*") ) (define-method free (of-object "GtkTreeRowReference") (c-name "gtk_tree_row_reference_free") (return-type "none") ) (define-function gtk_tree_row_reference_inserted (c-name "gtk_tree_row_reference_inserted") (return-type "none") (parameters '("GObject*" "proxy") '("GtkTreePath*" "path") ) ) (define-function gtk_tree_row_reference_deleted (c-name "gtk_tree_row_reference_deleted") (return-type "none") (parameters '("GObject*" "proxy") '("GtkTreePath*" "path") ) ) (define-function gtk_tree_row_reference_reordered (c-name "gtk_tree_row_reference_reordered") (return-type "none") (parameters '("GObject*" "proxy") '("GtkTreePath*" "path") '("GtkTreeIter*" "iter") '("gint*" "new_order") ) ) (define-method copy (of-object "GtkTreeIter") (c-name "gtk_tree_iter_copy") (return-type "GtkTreeIter*") ) (define-method free (of-object "GtkTreeIter") (c-name "gtk_tree_iter_free") (return-type "none") ) (define-function gtk_tree_iter_get_type (c-name "gtk_tree_iter_get_type") (return-type "GType") ) (define-function gtk_tree_model_get_type (c-name "gtk_tree_model_get_type") (return-type "GType") ) (define-method get_flags (of-object "GtkTreeModel") (c-name "gtk_tree_model_get_flags") (return-type "GtkTreeModelFlags") ) (define-method get_n_columns (of-object "GtkTreeModel") (c-name "gtk_tree_model_get_n_columns") (return-type "gint") ) (define-method get_column_type (of-object "GtkTreeModel") (c-name "gtk_tree_model_get_column_type") (return-type "GType") (parameters '("gint" "index_") ) ) (define-method get_iter (of-object "GtkTreeModel") (c-name "gtk_tree_model_get_iter") (return-type "gboolean") (parameters '("GtkTreeIter*" "iter") '("GtkTreePath*" "path") ) ) (define-method get_iter_from_string (of-object "GtkTreeModel") (c-name "gtk_tree_model_get_iter_from_string") (return-type "gboolean") (parameters '("GtkTreeIter*" "iter") '("const-gchar*" "path_string") ) ) (define-method get_string_from_iter (of-object "GtkTreeModel") (c-name "gtk_tree_model_get_string_from_iter") (return-type "gchar*") (parameters '("GtkTreeIter*" "iter") ) ) (define-method get_iter_first (of-object "GtkTreeModel") (c-name "gtk_tree_model_get_iter_first") (return-type "gboolean") (parameters '("GtkTreeIter*" "iter") ) ) (define-method get_path (of-object "GtkTreeModel") (c-name "gtk_tree_model_get_path") (return-type "GtkTreePath*") (parameters '("GtkTreeIter*" "iter") ) ) (define-method get_value (of-object "GtkTreeModel") (c-name "gtk_tree_model_get_value") (return-type "none") (parameters '("GtkTreeIter*" "iter") '("gint" "column") '("GValue*" "value") ) ) (define-method iter_next (of-object "GtkTreeModel") (c-name "gtk_tree_model_iter_next") (return-type "gboolean") (parameters '("GtkTreeIter*" "iter") ) ) (define-method iter_children (of-object "GtkTreeModel") (c-name "gtk_tree_model_iter_children") (return-type "gboolean") (parameters '("GtkTreeIter*" "iter") '("GtkTreeIter*" "parent") ) ) (define-method iter_has_child (of-object "GtkTreeModel") (c-name "gtk_tree_model_iter_has_child") (return-type "gboolean") (parameters '("GtkTreeIter*" "iter") ) ) (define-method iter_n_children (of-object "GtkTreeModel") (c-name "gtk_tree_model_iter_n_children") (return-type "gint") (parameters '("GtkTreeIter*" "iter") ) ) (define-method iter_nth_child (of-object "GtkTreeModel") (c-name "gtk_tree_model_iter_nth_child") (return-type "gboolean") (parameters '("GtkTreeIter*" "iter") '("GtkTreeIter*" "parent") '("gint" "n") ) ) (define-method iter_parent (of-object "GtkTreeModel") (c-name "gtk_tree_model_iter_parent") (return-type "gboolean") (parameters '("GtkTreeIter*" "iter") '("GtkTreeIter*" "child") ) ) (define-method ref_node (of-object "GtkTreeModel") (c-name "gtk_tree_model_ref_node") (return-type "none") (parameters '("GtkTreeIter*" "iter") ) ) (define-method unref_node (of-object "GtkTreeModel") (c-name "gtk_tree_model_unref_node") (return-type "none") (parameters '("GtkTreeIter*" "iter") ) ) (define-method get (of-object "GtkTreeModel") (c-name "gtk_tree_model_get") (return-type "none") (parameters '("GtkTreeIter*" "iter") ) (varargs #t) ) (define-method get_valist (of-object "GtkTreeModel") (c-name "gtk_tree_model_get_valist") (return-type "none") (parameters '("GtkTreeIter*" "iter") '("va_list" "var_args") ) ) (define-method foreach (of-object "GtkTreeModel") (c-name "gtk_tree_model_foreach") (return-type "none") (parameters '("GtkTreeModelForeachFunc" "func") '("gpointer" "user_data") ) ) (define-method row_changed (of-object "GtkTreeModel") (c-name "gtk_tree_model_row_changed") (return-type "none") (parameters '("GtkTreePath*" "path") '("GtkTreeIter*" "iter") ) ) (define-method row_inserted (of-object "GtkTreeModel") (c-name "gtk_tree_model_row_inserted") (return-type "none") (parameters '("GtkTreePath*" "path") '("GtkTreeIter*" "iter") ) ) (define-method row_has_child_toggled (of-object "GtkTreeModel") (c-name "gtk_tree_model_row_has_child_toggled") (return-type "none") (parameters '("GtkTreePath*" "path") '("GtkTreeIter*" "iter") ) ) (define-method row_deleted (of-object "GtkTreeModel") (c-name "gtk_tree_model_row_deleted") (return-type "none") (parameters '("GtkTreePath*" "path") ) ) (define-method rows_reordered (of-object "GtkTreeModel") (c-name "gtk_tree_model_rows_reordered") (return-type "none") (parameters '("GtkTreePath*" "path") '("GtkTreeIter*" "iter") '("gint*" "new_order") ) ) ;; From /opt/gnome2/include/gtk-2.0/gtk/gtktreemodelsort.h (define-function gtk_tree_model_sort_get_type (c-name "gtk_tree_model_sort_get_type") (return-type "GType") ) (define-method sort_new_with_model (of-object "GtkTreeModel") (c-name "gtk_tree_model_sort_new_with_model") (return-type "GtkTreeModel*") ) (define-method get_model (of-object "GtkTreeModelSort") (c-name "gtk_tree_model_sort_get_model") (return-type "GtkTreeModel*") ) (define-method convert_child_path_to_path (of-object "GtkTreeModelSort") (c-name "gtk_tree_model_sort_convert_child_path_to_path") (return-type "GtkTreePath*") (parameters '("GtkTreePath*" "child_path") ) ) (define-method convert_child_iter_to_iter (of-object "GtkTreeModelSort") (c-name "gtk_tree_model_sort_convert_child_iter_to_iter") (return-type "none") (parameters '("GtkTreeIter*" "sort_iter") '("GtkTreeIter*" "child_iter") ) ) (define-method convert_path_to_child_path (of-object "GtkTreeModelSort") (c-name "gtk_tree_model_sort_convert_path_to_child_path") (return-type "GtkTreePath*") (parameters '("GtkTreePath*" "sorted_path") ) ) (define-method convert_iter_to_child_iter (of-object "GtkTreeModelSort") (c-name "gtk_tree_model_sort_convert_iter_to_child_iter") (return-type "none") (parameters '("GtkTreeIter*" "child_iter") '("GtkTreeIter*" "sorted_iter") ) ) (define-method reset_default_sort_func (of-object "GtkTreeModelSort") (c-name "gtk_tree_model_sort_reset_default_sort_func") (return-type "none") ) (define-method clear_cache (of-object "GtkTreeModelSort") (c-name "gtk_tree_model_sort_clear_cache") (return-type "none") ) (define-method iter_is_valid (of-object "GtkTreeModelSort") (c-name "gtk_tree_model_sort_iter_is_valid") (return-type "gboolean") (parameters '("GtkTreeIter*" "iter") ) ) ;; From /opt/gnome2/include/gtk-2.0/gtk/gtktreeselection.h (define-function gtk_tree_selection_get_type (c-name "gtk_tree_selection_get_type") (return-type "GType") ) (define-method set_mode (of-object "GtkTreeSelection") (c-name "gtk_tree_selection_set_mode") (return-type "none") (parameters '("GtkSelectionMode" "type") ) ) (define-method get_mode (of-object "GtkTreeSelection") (c-name "gtk_tree_selection_get_mode") (return-type "GtkSelectionMode") ) (define-method set_select_function (of-object "GtkTreeSelection") (c-name "gtk_tree_selection_set_select_function") (return-type "none") (parameters '("GtkTreeSelectionFunc" "func") '("gpointer" "data") '("GtkDestroyNotify" "destroy") ) ) (define-method get_user_data (of-object "GtkTreeSelection") (c-name "gtk_tree_selection_get_user_data") (return-type "gpointer") ) (define-method get_tree_view (of-object "GtkTreeSelection") (c-name "gtk_tree_selection_get_tree_view") (return-type "GtkTreeView*") ) (define-method get_selected (of-object "GtkTreeSelection") (c-name "gtk_tree_selection_get_selected") (return-type "gboolean") (parameters '("GtkTreeModel**" "model") '("GtkTreeIter*" "iter") ) ) (define-method get_selected_rows (of-object "GtkTreeSelection") (c-name "gtk_tree_selection_get_selected_rows") (return-type "GList*") (parameters '("GtkTreeModel**" "model") ) ) (define-method count_selected_rows (of-object "GtkTreeSelection") (c-name "gtk_tree_selection_count_selected_rows") (return-type "gint") ) (define-method selected_foreach (of-object "GtkTreeSelection") (c-name "gtk_tree_selection_selected_foreach") (return-type "none") (parameters '("GtkTreeSelectionForeachFunc" "func") '("gpointer" "data") ) ) (define-method select_path (of-object "GtkTreeSelection") (c-name "gtk_tree_selection_select_path") (return-type "none") (parameters '("GtkTreePath*" "path") ) ) (define-method unselect_path (of-object "GtkTreeSelection") (c-name "gtk_tree_selection_unselect_path") (return-type "none") (parameters '("GtkTreePath*" "path") ) ) (define-method select_iter (of-object "GtkTreeSelection") (c-name "gtk_tree_selection_select_iter") (return-type "none") (parameters '("GtkTreeIter*" "iter") ) ) (define-method unselect_iter (of-object "GtkTreeSelection") (c-name "gtk_tree_selection_unselect_iter") (return-type "none") (parameters '("GtkTreeIter*" "iter") ) ) (define-method path_is_selected (of-object "GtkTreeSelection") (c-name "gtk_tree_selection_path_is_selected") (return-type "gboolean") (parameters '("GtkTreePath*" "path") ) ) (define-method iter_is_selected (of-object "GtkTreeSelection") (c-name "gtk_tree_selection_iter_is_selected") (return-type "gboolean") (parameters '("GtkTreeIter*" "iter") ) ) (define-method select_all (of-object "GtkTreeSelection") (c-name "gtk_tree_selection_select_all") (return-type "none") ) (define-method unselect_all (of-object "GtkTreeSelection") (c-name "gtk_tree_selection_unselect_all") (return-type "none") ) (define-method select_range (of-object "GtkTreeSelection") (c-name "gtk_tree_selection_select_range") (return-type "none") (parameters '("GtkTreePath*" "start_path") '("GtkTreePath*" "end_path") ) ) (define-method unselect_range (of-object "GtkTreeSelection") (c-name "gtk_tree_selection_unselect_range") (return-type "none") (parameters '("GtkTreePath*" "start_path") '("GtkTreePath*" "end_path") ) ) ;; From /opt/gnome2/include/gtk-2.0/gtk/gtktreesortable.h (define-function gtk_tree_sortable_get_type (c-name "gtk_tree_sortable_get_type") (return-type "GType") ) (define-method sort_column_changed (of-object "GtkTreeSortable") (c-name "gtk_tree_sortable_sort_column_changed") (return-type "none") ) (define-method get_sort_column_id (of-object "GtkTreeSortable") (c-name "gtk_tree_sortable_get_sort_column_id") (return-type "gboolean") (parameters '("gint*" "sort_column_id") '("GtkSortType*" "order") ) ) (define-method set_sort_column_id (of-object "GtkTreeSortable") (c-name "gtk_tree_sortable_set_sort_column_id") (return-type "none") (parameters '("gint" "sort_column_id") '("GtkSortType" "order") ) ) (define-method set_sort_func (of-object "GtkTreeSortable") (c-name "gtk_tree_sortable_set_sort_func") (return-type "none") (parameters '("gint" "sort_column_id") '("GtkTreeIterCompareFunc" "sort_func") '("gpointer" "user_data") '("GtkDestroyNotify" "destroy") ) ) (define-method set_default_sort_func (of-object "GtkTreeSortable") (c-name "gtk_tree_sortable_set_default_sort_func") (return-type "none") (parameters '("GtkTreeIterCompareFunc" "sort_func") '("gpointer" "user_data") '("GtkDestroyNotify" "destroy") ) ) (define-method has_default_sort_func (of-object "GtkTreeSortable") (c-name "gtk_tree_sortable_has_default_sort_func") (return-type "gboolean") ) ;; From /opt/gnome2/include/gtk-2.0/gtk/gtktreestore.h (define-function gtk_tree_store_get_type (c-name "gtk_tree_store_get_type") (return-type "GType") ) (define-function gtk_tree_store_new (c-name "gtk_tree_store_new") (is-constructor-of "GtkTreeStore") (return-type "GtkTreeStore*") (parameters '("gint" "n_columns") ) (varargs #t) ) (define-function gtk_tree_store_newv (c-name "gtk_tree_store_newv") (return-type "GtkTreeStore*") (parameters '("gint" "n_columns") '("GType*" "types") ) ) (define-method set_column_types (of-object "GtkTreeStore") (c-name "gtk_tree_store_set_column_types") (return-type "none") (parameters '("gint" "n_columns") '("GType*" "types") ) ) (define-method set_value (of-object "GtkTreeStore") (c-name "gtk_tree_store_set_value") (return-type "none") (parameters '("GtkTreeIter*" "iter") '("gint" "column") '("GValue*" "value") ) ) (define-method set (of-object "GtkTreeStore") (c-name "gtk_tree_store_set") (return-type "none") (parameters '("GtkTreeIter*" "iter") ) (varargs #t) ) (define-method set_valist (of-object "GtkTreeStore") (c-name "gtk_tree_store_set_valist") (return-type "none") (parameters '("GtkTreeIter*" "iter") '("va_list" "var_args") ) ) (define-method remove (of-object "GtkTreeStore") (c-name "gtk_tree_store_remove") (return-type "gboolean") (parameters '("GtkTreeIter*" "iter") ) ) (define-method insert (of-object "GtkTreeStore") (c-name "gtk_tree_store_insert") (return-type "none") (parameters '("GtkTreeIter*" "iter") '("GtkTreeIter*" "parent") '("gint" "position") ) ) (define-method insert_before (of-object "GtkTreeStore") (c-name "gtk_tree_store_insert_before") (return-type "none") (parameters '("GtkTreeIter*" "iter") '("GtkTreeIter*" "parent") '("GtkTreeIter*" "sibling") ) ) (define-method insert_after (of-object "GtkTreeStore") (c-name "gtk_tree_store_insert_after") (return-type "none") (parameters '("GtkTreeIter*" "iter") '("GtkTreeIter*" "parent") '("GtkTreeIter*" "sibling") ) ) (define-method insert_with_values (of-object "GtkTreeStore") (c-name "gtk_tree_store_insert_with_values") (return-type "none") (parameters '("GtkTreeIter*" "iter") '("GtkTreeIter*" "parent") '("gint" "position") ) (varargs #t) ) (define-method insert_with_valuesv (of-object "GtkTreeStore") (c-name "gtk_tree_store_insert_with_valuesv") (return-type "none") (parameters '("GtkTreeIter*" "iter") '("GtkTreeIter*" "parent") '("gint" "position") '("gint*" "columns") '("GValue*" "values") '("gint" "n_values") ) ) (define-method prepend (of-object "GtkTreeStore") (c-name "gtk_tree_store_prepend") (return-type "none") (parameters '("GtkTreeIter*" "iter") '("GtkTreeIter*" "parent") ) ) (define-method append (of-object "GtkTreeStore") (c-name "gtk_tree_store_append") (return-type "none") (parameters '("GtkTreeIter*" "iter") '("GtkTreeIter*" "parent") ) ) (define-method is_ancestor (of-object "GtkTreeStore") (c-name "gtk_tree_store_is_ancestor") (return-type "gboolean") (parameters '("GtkTreeIter*" "iter") '("GtkTreeIter*" "descendant") ) ) (define-method iter_depth (of-object "GtkTreeStore") (c-name "gtk_tree_store_iter_depth") (return-type "gint") (parameters '("GtkTreeIter*" "iter") ) ) (define-method clear (of-object "GtkTreeStore") (c-name "gtk_tree_store_clear") (return-type "none") ) (define-method iter_is_valid (of-object "GtkTreeStore") (c-name "gtk_tree_store_iter_is_valid") (return-type "gboolean") (parameters '("GtkTreeIter*" "iter") ) ) (define-method reorder (of-object "GtkTreeStore") (c-name "gtk_tree_store_reorder") (return-type "none") (parameters '("GtkTreeIter*" "parent") '("gint*" "new_order") ) ) (define-method swap (of-object "GtkTreeStore") (c-name "gtk_tree_store_swap") (return-type "none") (parameters '("GtkTreeIter*" "a") '("GtkTreeIter*" "b") ) ) (define-method move_before (of-object "GtkTreeStore") (c-name "gtk_tree_store_move_before") (return-type "none") (parameters '("GtkTreeIter*" "iter") '("GtkTreeIter*" "position") ) ) (define-method move_after (of-object "GtkTreeStore") (c-name "gtk_tree_store_move_after") (return-type "none") (parameters '("GtkTreeIter*" "iter") '("GtkTreeIter*" "position") ) ) ;; From /opt/gnome2/include/gtk-2.0/gtk/gtktreeviewcolumn.h (define-function gtk_tree_view_column_get_type (c-name "gtk_tree_view_column_get_type") (return-type "GType") ) (define-function gtk_tree_view_column_new (c-name "gtk_tree_view_column_new") (is-constructor-of "GtkTreeViewColumn") (return-type "GtkTreeViewColumn*") ) (define-function gtk_tree_view_column_new_with_attributes (c-name "gtk_tree_view_column_new_with_attributes") (return-type "GtkTreeViewColumn*") (parameters '("const-gchar*" "title") '("GtkCellRenderer*" "cell") ) (varargs #t) ) (define-method pack_start (of-object "GtkTreeViewColumn") (c-name "gtk_tree_view_column_pack_start") (return-type "none") (parameters '("GtkCellRenderer*" "cell") '("gboolean" "expand") ) ) (define-method pack_end (of-object "GtkTreeViewColumn") (c-name "gtk_tree_view_column_pack_end") (return-type "none") (parameters '("GtkCellRenderer*" "cell") '("gboolean" "expand") ) ) (define-method clear (of-object "GtkTreeViewColumn") (c-name "gtk_tree_view_column_clear") (return-type "none") ) (define-method get_cell_renderers (of-object "GtkTreeViewColumn") (c-name "gtk_tree_view_column_get_cell_renderers") (return-type "GList*") ) (define-method add_attribute (of-object "GtkTreeViewColumn") (c-name "gtk_tree_view_column_add_attribute") (return-type "none") (parameters '("GtkCellRenderer*" "cell_renderer") '("const-gchar*" "attribute") '("gint" "column") ) ) (define-method set_attributes (of-object "GtkTreeViewColumn") (c-name "gtk_tree_view_column_set_attributes") (return-type "none") (parameters '("GtkCellRenderer*" "cell_renderer") ) (varargs #t) ) (define-method set_cell_data_func (of-object "GtkTreeViewColumn") (c-name "gtk_tree_view_column_set_cell_data_func") (return-type "none") (parameters '("GtkCellRenderer*" "cell_renderer") '("GtkTreeCellDataFunc" "func") '("gpointer" "func_data") '("GtkDestroyNotify" "destroy") ) ) (define-method clear_attributes (of-object "GtkTreeViewColumn") (c-name "gtk_tree_view_column_clear_attributes") (return-type "none") (parameters '("GtkCellRenderer*" "cell_renderer") ) ) (define-method set_spacing (of-object "GtkTreeViewColumn") (c-name "gtk_tree_view_column_set_spacing") (return-type "none") (parameters '("gint" "spacing") ) ) (define-method get_spacing (of-object "GtkTreeViewColumn") (c-name "gtk_tree_view_column_get_spacing") (return-type "gint") ) (define-method set_visible (of-object "GtkTreeViewColumn") (c-name "gtk_tree_view_column_set_visible") (return-type "none") (parameters '("gboolean" "visible") ) ) (define-method get_visible (of-object "GtkTreeViewColumn") (c-name "gtk_tree_view_column_get_visible") (return-type "gboolean") ) (define-method set_resizable (of-object "GtkTreeViewColumn") (c-name "gtk_tree_view_column_set_resizable") (return-type "none") (parameters '("gboolean" "resizable") ) ) (define-method get_resizable (of-object "GtkTreeViewColumn") (c-name "gtk_tree_view_column_get_resizable") (return-type "gboolean") ) (define-method set_sizing (of-object "GtkTreeViewColumn") (c-name "gtk_tree_view_column_set_sizing") (return-type "none") (parameters '("GtkTreeViewColumnSizing" "type") ) ) (define-method get_sizing (of-object "GtkTreeViewColumn") (c-name "gtk_tree_view_column_get_sizing") (return-type "GtkTreeViewColumnSizing") ) (define-method get_width (of-object "GtkTreeViewColumn") (c-name "gtk_tree_view_column_get_width") (return-type "gint") ) (define-method get_fixed_width (of-object "GtkTreeViewColumn") (c-name "gtk_tree_view_column_get_fixed_width") (return-type "gint") ) (define-method set_fixed_width (of-object "GtkTreeViewColumn") (c-name "gtk_tree_view_column_set_fixed_width") (return-type "none") (parameters '("gint" "fixed_width") ) ) (define-method set_min_width (of-object "GtkTreeViewColumn") (c-name "gtk_tree_view_column_set_min_width") (return-type "none") (parameters '("gint" "min_width") ) ) (define-method get_min_width (of-object "GtkTreeViewColumn") (c-name "gtk_tree_view_column_get_min_width") (return-type "gint") ) (define-method set_max_width (of-object "GtkTreeViewColumn") (c-name "gtk_tree_view_column_set_max_width") (return-type "none") (parameters '("gint" "max_width") ) ) (define-method get_max_width (of-object "GtkTreeViewColumn") (c-name "gtk_tree_view_column_get_max_width") (return-type "gint") ) (define-method clicked (of-object "GtkTreeViewColumn") (c-name "gtk_tree_view_column_clicked") (return-type "none") ) (define-method set_title (of-object "GtkTreeViewColumn") (c-name "gtk_tree_view_column_set_title") (return-type "none") (parameters '("const-gchar*" "title") ) ) (define-method get_title (of-object "GtkTreeViewColumn") (c-name "gtk_tree_view_column_get_title") (return-type "const-gchar*") ) (define-method set_expand (of-object "GtkTreeViewColumn") (c-name "gtk_tree_view_column_set_expand") (return-type "none") (parameters '("gboolean" "expand") ) ) (define-method get_expand (of-object "GtkTreeViewColumn") (c-name "gtk_tree_view_column_get_expand") (return-type "gboolean") ) (define-method set_clickable (of-object "GtkTreeViewColumn") (c-name "gtk_tree_view_column_set_clickable") (return-type "none") (parameters '("gboolean" "clickable") ) ) (define-method get_clickable (of-object "GtkTreeViewColumn") (c-name "gtk_tree_view_column_get_clickable") (return-type "gboolean") ) (define-method set_widget (of-object "GtkTreeViewColumn") (c-name "gtk_tree_view_column_set_widget") (return-type "none") (parameters '("GtkWidget*" "widget") ) ) (define-method get_widget (of-object "GtkTreeViewColumn") (c-name "gtk_tree_view_column_get_widget") (return-type "GtkWidget*") ) (define-method set_alignment (of-object "GtkTreeViewColumn") (c-name "gtk_tree_view_column_set_alignment") (return-type "none") (parameters '("gfloat" "xalign") ) ) (define-method get_alignment (of-object "GtkTreeViewColumn") (c-name "gtk_tree_view_column_get_alignment") (return-type "gfloat") ) (define-method set_reorderable (of-object "GtkTreeViewColumn") (c-name "gtk_tree_view_column_set_reorderable") (return-type "none") (parameters '("gboolean" "reorderable") ) ) (define-method get_reorderable (of-object "GtkTreeViewColumn") (c-name "gtk_tree_view_column_get_reorderable") (return-type "gboolean") ) (define-method set_sort_column_id (of-object "GtkTreeViewColumn") (c-name "gtk_tree_view_column_set_sort_column_id") (return-type "none") (parameters '("gint" "sort_column_id") ) ) (define-method get_sort_column_id (of-object "GtkTreeViewColumn") (c-name "gtk_tree_view_column_get_sort_column_id") (return-type "gint") ) (define-method set_sort_indicator (of-object "GtkTreeViewColumn") (c-name "gtk_tree_view_column_set_sort_indicator") (return-type "none") (parameters '("gboolean" "setting") ) ) (define-method get_sort_indicator (of-object "GtkTreeViewColumn") (c-name "gtk_tree_view_column_get_sort_indicator") (return-type "gboolean") ) (define-method set_sort_order (of-object "GtkTreeViewColumn") (c-name "gtk_tree_view_column_set_sort_order") (return-type "none") (parameters '("GtkSortType" "order") ) ) (define-method get_sort_order (of-object "GtkTreeViewColumn") (c-name "gtk_tree_view_column_get_sort_order") (return-type "GtkSortType") ) (define-method cell_set_cell_data (of-object "GtkTreeViewColumn") (c-name "gtk_tree_view_column_cell_set_cell_data") (return-type "none") (parameters '("GtkTreeModel*" "tree_model") '("GtkTreeIter*" "iter") '("gboolean" "is_expander") '("gboolean" "is_expanded") ) ) (define-method cell_get_size (of-object "GtkTreeViewColumn") (c-name "gtk_tree_view_column_cell_get_size") (return-type "none") (parameters '("GdkRectangle*" "cell_area") '("gint*" "x_offset") '("gint*" "y_offset") '("gint*" "width") '("gint*" "height") ) ) (define-method cell_is_visible (of-object "GtkTreeViewColumn") (c-name "gtk_tree_view_column_cell_is_visible") (return-type "gboolean") ) (define-method focus_cell (of-object "GtkTreeViewColumn") (c-name "gtk_tree_view_column_focus_cell") (return-type "none") (parameters '("GtkCellRenderer*" "cell") ) ) (define-method cell_get_position (of-object "GtkTreeViewColumn") (c-name "gtk_tree_view_column_cell_get_position") (return-type "gboolean") (parameters '("GtkCellRenderer*" "cell_renderer") '("gint*" "start_pos") '("gint*" "width") ) ) (define-method queue_resize (of-object "GtkTreeViewColumn") (c-name "gtk_tree_view_column_queue_resize") (return-type "none") ) ;; From /opt/gnome2/include/gtk-2.0/gtk/gtktreeview.h (define-function gtk_tree_view_get_type (c-name "gtk_tree_view_get_type") (return-type "GType") ) (define-function gtk_tree_view_new (c-name "gtk_tree_view_new") (is-constructor-of "GtkTreeView") (return-type "GtkWidget*") ) (define-function gtk_tree_view_new_with_model (c-name "gtk_tree_view_new_with_model") (return-type "GtkWidget*") (parameters '("GtkTreeModel*" "model") ) ) (define-method get_model (of-object "GtkTreeView") (c-name "gtk_tree_view_get_model") (return-type "GtkTreeModel*") ) (define-method set_model (of-object "GtkTreeView") (c-name "gtk_tree_view_set_model") (return-type "none") (parameters '("GtkTreeModel*" "model") ) ) (define-method get_selection (of-object "GtkTreeView") (c-name "gtk_tree_view_get_selection") (return-type "GtkTreeSelection*") ) (define-method get_hadjustment (of-object "GtkTreeView") (c-name "gtk_tree_view_get_hadjustment") (return-type "GtkAdjustment*") ) (define-method set_hadjustment (of-object "GtkTreeView") (c-name "gtk_tree_view_set_hadjustment") (return-type "none") (parameters '("GtkAdjustment*" "adjustment") ) ) (define-method get_vadjustment (of-object "GtkTreeView") (c-name "gtk_tree_view_get_vadjustment") (return-type "GtkAdjustment*") ) (define-method set_vadjustment (of-object "GtkTreeView") (c-name "gtk_tree_view_set_vadjustment") (return-type "none") (parameters '("GtkAdjustment*" "adjustment") ) ) (define-method get_headers_visible (of-object "GtkTreeView") (c-name "gtk_tree_view_get_headers_visible") (return-type "gboolean") ) (define-method set_headers_visible (of-object "GtkTreeView") (c-name "gtk_tree_view_set_headers_visible") (return-type "none") (parameters '("gboolean" "headers_visible") ) ) (define-method columns_autosize (of-object "GtkTreeView") (c-name "gtk_tree_view_columns_autosize") (return-type "none") ) (define-method get_headers_clickable (of-object "GtkTreeView") (c-name "gtk_tree_view_get_headers_clickable") (return-type "gboolean") ) (define-method set_headers_clickable (of-object "GtkTreeView") (c-name "gtk_tree_view_set_headers_clickable") (return-type "none") (parameters '("gboolean" "setting") ) ) (define-method set_rules_hint (of-object "GtkTreeView") (c-name "gtk_tree_view_set_rules_hint") (return-type "none") (parameters '("gboolean" "setting") ) ) (define-method get_rules_hint (of-object "GtkTreeView") (c-name "gtk_tree_view_get_rules_hint") (return-type "gboolean") ) (define-method append_column (of-object "GtkTreeView") (c-name "gtk_tree_view_append_column") (return-type "gint") (parameters '("GtkTreeViewColumn*" "column") ) ) (define-method remove_column (of-object "GtkTreeView") (c-name "gtk_tree_view_remove_column") (return-type "gint") (parameters '("GtkTreeViewColumn*" "column") ) ) (define-method insert_column (of-object "GtkTreeView") (c-name "gtk_tree_view_insert_column") (return-type "gint") (parameters '("GtkTreeViewColumn*" "column") '("gint" "position") ) ) (define-method insert_column_with_attributes (of-object "GtkTreeView") (c-name "gtk_tree_view_insert_column_with_attributes") (return-type "gint") (parameters '("gint" "position") '("const-gchar*" "title") '("GtkCellRenderer*" "cell") ) (varargs #t) ) (define-method insert_column_with_data_func (of-object "GtkTreeView") (c-name "gtk_tree_view_insert_column_with_data_func") (return-type "gint") (parameters '("gint" "position") '("const-gchar*" "title") '("GtkCellRenderer*" "cell") '("GtkTreeCellDataFunc" "func") '("gpointer" "data") '("GDestroyNotify" "dnotify") ) ) (define-method get_column (of-object "GtkTreeView") (c-name "gtk_tree_view_get_column") (return-type "GtkTreeViewColumn*") (parameters '("gint" "n") ) ) (define-method get_columns (of-object "GtkTreeView") (c-name "gtk_tree_view_get_columns") (return-type "GList*") ) (define-method move_column_after (of-object "GtkTreeView") (c-name "gtk_tree_view_move_column_after") (return-type "none") (parameters '("GtkTreeViewColumn*" "column") '("GtkTreeViewColumn*" "base_column") ) ) (define-method set_expander_column (of-object "GtkTreeView") (c-name "gtk_tree_view_set_expander_column") (return-type "none") (parameters '("GtkTreeViewColumn*" "column") ) ) (define-method get_expander_column (of-object "GtkTreeView") (c-name "gtk_tree_view_get_expander_column") (return-type "GtkTreeViewColumn*") ) (define-method set_column_drag_function (of-object "GtkTreeView") (c-name "gtk_tree_view_set_column_drag_function") (return-type "none") (parameters '("GtkTreeViewColumnDropFunc" "func") '("gpointer" "user_data") '("GtkDestroyNotify" "destroy") ) ) (define-method scroll_to_point (of-object "GtkTreeView") (c-name "gtk_tree_view_scroll_to_point") (return-type "none") (parameters '("gint" "tree_x") '("gint" "tree_y") ) ) (define-method scroll_to_cell (of-object "GtkTreeView") (c-name "gtk_tree_view_scroll_to_cell") (return-type "none") (parameters '("GtkTreePath*" "path") '("GtkTreeViewColumn*" "column") '("gboolean" "use_align") '("gfloat" "row_align") '("gfloat" "col_align") ) ) (define-method row_activated (of-object "GtkTreeView") (c-name "gtk_tree_view_row_activated") (return-type "none") (parameters '("GtkTreePath*" "path") '("GtkTreeViewColumn*" "column") ) ) (define-method expand_all (of-object "GtkTreeView") (c-name "gtk_tree_view_expand_all") (return-type "none") ) (define-method collapse_all (of-object "GtkTreeView") (c-name "gtk_tree_view_collapse_all") (return-type "none") ) (define-method expand_to_path (of-object "GtkTreeView") (c-name "gtk_tree_view_expand_to_path") (return-type "none") (parameters '("GtkTreePath*" "path") ) ) (define-method expand_row (of-object "GtkTreeView") (c-name "gtk_tree_view_expand_row") (return-type "gboolean") (parameters '("GtkTreePath*" "path") '("gboolean" "open_all") ) ) (define-method collapse_row (of-object "GtkTreeView") (c-name "gtk_tree_view_collapse_row") (return-type "gboolean") (parameters '("GtkTreePath*" "path") ) ) (define-method map_expanded_rows (of-object "GtkTreeView") (c-name "gtk_tree_view_map_expanded_rows") (return-type "none") (parameters '("GtkTreeViewMappingFunc" "func") '("gpointer" "data") ) ) (define-method row_expanded (of-object "GtkTreeView") (c-name "gtk_tree_view_row_expanded") (return-type "gboolean") (parameters '("GtkTreePath*" "path") ) ) (define-method set_reorderable (of-object "GtkTreeView") (c-name "gtk_tree_view_set_reorderable") (return-type "none") (parameters '("gboolean" "reorderable") ) ) (define-method get_reorderable (of-object "GtkTreeView") (c-name "gtk_tree_view_get_reorderable") (return-type "gboolean") ) (define-method set_cursor (of-object "GtkTreeView") (c-name "gtk_tree_view_set_cursor") (return-type "none") (parameters '("GtkTreePath*" "path") '("GtkTreeViewColumn*" "focus_column") '("gboolean" "start_editing") ) ) (define-method set_cursor_on_cell (of-object "GtkTreeView") (c-name "gtk_tree_view_set_cursor_on_cell") (return-type "none") (parameters '("GtkTreePath*" "path") '("GtkTreeViewColumn*" "focus_column") '("GtkCellRenderer*" "focus_cell") '("gboolean" "start_editing") ) ) (define-method get_cursor (of-object "GtkTreeView") (c-name "gtk_tree_view_get_cursor") (return-type "none") (parameters '("GtkTreePath**" "path") '("GtkTreeViewColumn**" "focus_column") ) ) (define-method get_bin_window (of-object "GtkTreeView") (c-name "gtk_tree_view_get_bin_window") (return-type "GdkWindow*") ) (define-method get_path_at_pos (of-object "GtkTreeView") (c-name "gtk_tree_view_get_path_at_pos") (return-type "gboolean") (parameters '("gint" "x") '("gint" "y") '("GtkTreePath**" "path") '("GtkTreeViewColumn**" "column") '("gint*" "cell_x") '("gint*" "cell_y") ) ) (define-method get_cell_area (of-object "GtkTreeView") (c-name "gtk_tree_view_get_cell_area") (return-type "none") (parameters '("GtkTreePath*" "path") '("GtkTreeViewColumn*" "column") '("GdkRectangle*" "rect") ) ) (define-method get_background_area (of-object "GtkTreeView") (c-name "gtk_tree_view_get_background_area") (return-type "none") (parameters '("GtkTreePath*" "path") '("GtkTreeViewColumn*" "column") '("GdkRectangle*" "rect") ) ) (define-method get_visible_rect (of-object "GtkTreeView") (c-name "gtk_tree_view_get_visible_rect") (return-type "none") (parameters '("GdkRectangle*" "visible_rect") ) ) (define-method widget_to_tree_coords (of-object "GtkTreeView") (c-name "gtk_tree_view_widget_to_tree_coords") (return-type "none") (parameters '("gint" "wx") '("gint" "wy") '("gint*" "tx") '("gint*" "ty") ) ) (define-method tree_to_widget_coords (of-object "GtkTreeView") (c-name "gtk_tree_view_tree_to_widget_coords") (return-type "none") (parameters '("gint" "tx") '("gint" "ty") '("gint*" "wx") '("gint*" "wy") ) ) (define-method get_visible_range (of-object "GtkTreeView") (c-name "gtk_tree_view_get_visible_range") (return-type "gboolean") (parameters '("GtkTreePath**" "start_path") '("GtkTreePath**" "end_path") ) ) (define-method enable_model_drag_source (of-object "GtkTreeView") (c-name "gtk_tree_view_enable_model_drag_source") (return-type "none") (parameters '("GdkModifierType" "start_button_mask") '("const-GtkTargetEntry*" "targets") '("gint" "n_targets") '("GdkDragAction" "actions") ) ) (define-method enable_model_drag_dest (of-object "GtkTreeView") (c-name "gtk_tree_view_enable_model_drag_dest") (return-type "none") (parameters '("const-GtkTargetEntry*" "targets") '("gint" "n_targets") '("GdkDragAction" "actions") ) ) (define-method unset_rows_drag_source (of-object "GtkTreeView") (c-name "gtk_tree_view_unset_rows_drag_source") (return-type "none") ) (define-method unset_rows_drag_dest (of-object "GtkTreeView") (c-name "gtk_tree_view_unset_rows_drag_dest") (return-type "none") ) (define-method set_drag_dest_row (of-object "GtkTreeView") (c-name "gtk_tree_view_set_drag_dest_row") (return-type "none") (parameters '("GtkTreePath*" "path") '("GtkTreeViewDropPosition" "pos") ) ) (define-method get_drag_dest_row (of-object "GtkTreeView") (c-name "gtk_tree_view_get_drag_dest_row") (return-type "none") (parameters '("GtkTreePath**" "path") '("GtkTreeViewDropPosition*" "pos") ) ) (define-method get_dest_row_at_pos (of-object "GtkTreeView") (c-name "gtk_tree_view_get_dest_row_at_pos") (return-type "gboolean") (parameters '("gint" "drag_x") '("gint" "drag_y") '("GtkTreePath**" "path") '("GtkTreeViewDropPosition*" "pos") ) ) (define-method create_row_drag_icon (of-object "GtkTreeView") (c-name "gtk_tree_view_create_row_drag_icon") (return-type "GdkPixmap*") (parameters '("GtkTreePath*" "path") ) ) (define-method set_enable_search (of-object "GtkTreeView") (c-name "gtk_tree_view_set_enable_search") (return-type "none") (parameters '("gboolean" "enable_search") ) ) (define-method get_enable_search (of-object "GtkTreeView") (c-name "gtk_tree_view_get_enable_search") (return-type "gboolean") ) (define-method get_search_column (of-object "GtkTreeView") (c-name "gtk_tree_view_get_search_column") (return-type "gint") ) (define-method set_search_column (of-object "GtkTreeView") (c-name "gtk_tree_view_set_search_column") (return-type "none") (parameters '("gint" "column") ) ) (define-method get_search_equal_func (of-object "GtkTreeView") (c-name "gtk_tree_view_get_search_equal_func") (return-type "GtkTreeViewSearchEqualFunc") ) (define-method set_search_equal_func (of-object "GtkTreeView") (c-name "gtk_tree_view_set_search_equal_func") (return-type "none") (parameters '("GtkTreeViewSearchEqualFunc" "search_equal_func") '("gpointer" "search_user_data") '("GtkDestroyNotify" "search_destroy") ) ) (define-method get_search_entry (of-object "GtkTreeView") (c-name "gtk_tree_view_get_search_entry") (return-type "GtkEntry*") ) (define-method set_search_entry (of-object "GtkTreeView") (c-name "gtk_tree_view_set_search_entry") (return-type "none") (parameters '("GtkEntry*" "entry") ) ) (define-method get_search_position_func (of-object "GtkTreeView") (c-name "gtk_tree_view_get_search_position_func") (return-type "GtkTreeViewSearchPositionFunc") ) (define-method set_search_position_func (of-object "GtkTreeView") (c-name "gtk_tree_view_set_search_position_func") (return-type "none") (parameters '("GtkTreeViewSearchPositionFunc" "func") '("gpointer" "data") '("GDestroyNotify" "destroy") ) ) (define-method set_destroy_count_func (of-object "GtkTreeView") (c-name "gtk_tree_view_set_destroy_count_func") (return-type "none") (parameters '("GtkTreeDestroyCountFunc" "func") '("gpointer" "data") '("GtkDestroyNotify" "destroy") ) ) (define-method set_fixed_height_mode (of-object "GtkTreeView") (c-name "gtk_tree_view_set_fixed_height_mode") (return-type "none") (parameters '("gboolean" "enable") ) ) (define-method get_fixed_height_mode (of-object "GtkTreeView") (c-name "gtk_tree_view_get_fixed_height_mode") (return-type "gboolean") ) (define-method set_hover_selection (of-object "GtkTreeView") (c-name "gtk_tree_view_set_hover_selection") (return-type "none") (parameters '("gboolean" "hover") ) ) (define-method get_hover_selection (of-object "GtkTreeView") (c-name "gtk_tree_view_get_hover_selection") (return-type "gboolean") ) (define-method set_hover_expand (of-object "GtkTreeView") (c-name "gtk_tree_view_set_hover_expand") (return-type "none") (parameters '("gboolean" "expand") ) ) (define-method get_hover_expand (of-object "GtkTreeView") (c-name "gtk_tree_view_get_hover_expand") (return-type "gboolean") ) (define-method set_rubber_banding (of-object "GtkTreeView") (c-name "gtk_tree_view_set_rubber_banding") (return-type "none") (parameters '("gboolean" "enable") ) ) (define-method get_rubber_banding (of-object "GtkTreeView") (c-name "gtk_tree_view_get_rubber_banding") (return-type "gboolean") ) (define-method get_row_separator_func (of-object "GtkTreeView") (c-name "gtk_tree_view_get_row_separator_func") (return-type "GtkTreeViewRowSeparatorFunc") ) (define-method set_row_separator_func (of-object "GtkTreeView") (c-name "gtk_tree_view_set_row_separator_func") (return-type "none") (parameters '("GtkTreeViewRowSeparatorFunc" "func") '("gpointer" "data") '("GtkDestroyNotify" "destroy") ) ) (define-method get_grid_lines (of-object "GtkTreeView") (c-name "gtk_tree_view_get_grid_lines") (return-type "GtkTreeViewGridLines") ) (define-method set_grid_lines (of-object "GtkTreeView") (c-name "gtk_tree_view_set_grid_lines") (return-type "none") (parameters '("GtkTreeViewGridLines" "grid_lines") ) ) (define-method get_enable_tree_lines (of-object "GtkTreeView") (c-name "gtk_tree_view_get_enable_tree_lines") (return-type "gboolean") ) (define-method set_enable_tree_lines (of-object "GtkTreeView") (c-name "gtk_tree_view_set_enable_tree_lines") (return-type "none") (parameters '("gboolean" "enabled") ) ) ;; From /opt/gnome2/include/gtk-2.0/gtk/gtktypebuiltins.h (define-function gtk_accel_flags_get_type (c-name "gtk_accel_flags_get_type") (return-type "GType") ) (define-function gtk_assistant_page_type_get_type (c-name "gtk_assistant_page_type_get_type") (return-type "GType") ) (define-function gtk_calendar_display_options_get_type (c-name "gtk_calendar_display_options_get_type") (return-type "GType") ) (define-function gtk_cell_renderer_state_get_type (c-name "gtk_cell_renderer_state_get_type") (return-type "GType") ) (define-function gtk_cell_renderer_mode_get_type (c-name "gtk_cell_renderer_mode_get_type") (return-type "GType") ) (define-function gtk_cell_renderer_accel_mode_get_type (c-name "gtk_cell_renderer_accel_mode_get_type") (return-type "GType") ) (define-function gtk_cell_type_get_type (c-name "gtk_cell_type_get_type") (return-type "GType") ) (define-function gtk_clist_drag_pos_get_type (c-name "gtk_clist_drag_pos_get_type") (return-type "GType") ) (define-function gtk_button_action_get_type (c-name "gtk_button_action_get_type") (return-type "GType") ) (define-function gtk_ctree_pos_get_type (c-name "gtk_ctree_pos_get_type") (return-type "GType") ) (define-function gtk_ctree_line_style_get_type (c-name "gtk_ctree_line_style_get_type") (return-type "GType") ) (define-function gtk_ctree_expander_style_get_type (c-name "gtk_ctree_expander_style_get_type") (return-type "GType") ) (define-function gtk_ctree_expansion_type_get_type (c-name "gtk_ctree_expansion_type_get_type") (return-type "GType") ) (define-function gtk_debug_flag_get_type (c-name "gtk_debug_flag_get_type") (return-type "GType") ) (define-function gtk_dialog_flags_get_type (c-name "gtk_dialog_flags_get_type") (return-type "GType") ) (define-function gtk_response_type_get_type (c-name "gtk_response_type_get_type") (return-type "GType") ) (define-function gtk_dest_defaults_get_type (c-name "gtk_dest_defaults_get_type") (return-type "GType") ) (define-function gtk_target_flags_get_type (c-name "gtk_target_flags_get_type") (return-type "GType") ) (define-function gtk_anchor_type_get_type (c-name "gtk_anchor_type_get_type") (return-type "GType") ) (define-function gtk_arrow_type_get_type (c-name "gtk_arrow_type_get_type") (return-type "GType") ) (define-function gtk_attach_options_get_type (c-name "gtk_attach_options_get_type") (return-type "GType") ) (define-function gtk_button_box_style_get_type (c-name "gtk_button_box_style_get_type") (return-type "GType") ) (define-function gtk_curve_type_get_type (c-name "gtk_curve_type_get_type") (return-type "GType") ) (define-function gtk_delete_type_get_type (c-name "gtk_delete_type_get_type") (return-type "GType") ) (define-function gtk_direction_type_get_type (c-name "gtk_direction_type_get_type") (return-type "GType") ) (define-function gtk_expander_style_get_type (c-name "gtk_expander_style_get_type") (return-type "GType") ) (define-function gtk_icon_size_get_type (c-name "gtk_icon_size_get_type") (return-type "GType") ) (define-function gtk_sensitivity_type_get_type (c-name "gtk_sensitivity_type_get_type") (return-type "GType") ) (define-function gtk_side_type_get_type (c-name "gtk_side_type_get_type") (return-type "GType") ) (define-function gtk_text_direction_get_type (c-name "gtk_text_direction_get_type") (return-type "GType") ) (define-function gtk_justification_get_type (c-name "gtk_justification_get_type") (return-type "GType") ) (define-function gtk_match_type_get_type (c-name "gtk_match_type_get_type") (return-type "GType") ) (define-function gtk_menu_direction_type_get_type (c-name "gtk_menu_direction_type_get_type") (return-type "GType") ) (define-function gtk_metric_type_get_type (c-name "gtk_metric_type_get_type") (return-type "GType") ) (define-function gtk_movement_step_get_type (c-name "gtk_movement_step_get_type") (return-type "GType") ) (define-function gtk_scroll_step_get_type (c-name "gtk_scroll_step_get_type") (return-type "GType") ) (define-function gtk_orientation_get_type (c-name "gtk_orientation_get_type") (return-type "GType") ) (define-function gtk_corner_type_get_type (c-name "gtk_corner_type_get_type") (return-type "GType") ) (define-function gtk_pack_type_get_type (c-name "gtk_pack_type_get_type") (return-type "GType") ) (define-function gtk_path_priority_type_get_type (c-name "gtk_path_priority_type_get_type") (return-type "GType") ) (define-function gtk_path_type_get_type (c-name "gtk_path_type_get_type") (return-type "GType") ) (define-function gtk_policy_type_get_type (c-name "gtk_policy_type_get_type") (return-type "GType") ) (define-function gtk_position_type_get_type (c-name "gtk_position_type_get_type") (return-type "GType") ) (define-function gtk_preview_type_get_type (c-name "gtk_preview_type_get_type") (return-type "GType") ) (define-function gtk_relief_style_get_type (c-name "gtk_relief_style_get_type") (return-type "GType") ) (define-function gtk_resize_mode_get_type (c-name "gtk_resize_mode_get_type") (return-type "GType") ) (define-function gtk_signal_run_type_get_type (c-name "gtk_signal_run_type_get_type") (return-type "GType") ) (define-function gtk_scroll_type_get_type (c-name "gtk_scroll_type_get_type") (return-type "GType") ) (define-function gtk_selection_mode_get_type (c-name "gtk_selection_mode_get_type") (return-type "GType") ) (define-function gtk_shadow_type_get_type (c-name "gtk_shadow_type_get_type") (return-type "GType") ) (define-function gtk_state_type_get_type (c-name "gtk_state_type_get_type") (return-type "GType") ) (define-function gtk_submenu_direction_get_type (c-name "gtk_submenu_direction_get_type") (return-type "GType") ) (define-function gtk_submenu_placement_get_type (c-name "gtk_submenu_placement_get_type") (return-type "GType") ) (define-function gtk_toolbar_style_get_type (c-name "gtk_toolbar_style_get_type") (return-type "GType") ) (define-function gtk_update_type_get_type (c-name "gtk_update_type_get_type") (return-type "GType") ) (define-function gtk_visibility_get_type (c-name "gtk_visibility_get_type") (return-type "GType") ) (define-function gtk_window_position_get_type (c-name "gtk_window_position_get_type") (return-type "GType") ) (define-function gtk_window_type_get_type (c-name "gtk_window_type_get_type") (return-type "GType") ) (define-function gtk_wrap_mode_get_type (c-name "gtk_wrap_mode_get_type") (return-type "GType") ) (define-function gtk_sort_type_get_type (c-name "gtk_sort_type_get_type") (return-type "GType") ) (define-function gtk_im_preedit_style_get_type (c-name "gtk_im_preedit_style_get_type") (return-type "GType") ) (define-function gtk_im_status_style_get_type (c-name "gtk_im_status_style_get_type") (return-type "GType") ) (define-function gtk_pack_direction_get_type (c-name "gtk_pack_direction_get_type") (return-type "GType") ) (define-function gtk_print_pages_get_type (c-name "gtk_print_pages_get_type") (return-type "GType") ) (define-function gtk_page_set_get_type (c-name "gtk_page_set_get_type") (return-type "GType") ) (define-function gtk_page_orientation_get_type (c-name "gtk_page_orientation_get_type") (return-type "GType") ) (define-function gtk_print_quality_get_type (c-name "gtk_print_quality_get_type") (return-type "GType") ) (define-function gtk_print_duplex_get_type (c-name "gtk_print_duplex_get_type") (return-type "GType") ) (define-function gtk_unit_get_type (c-name "gtk_unit_get_type") (return-type "GType") ) (define-function gtk_tree_view_grid_lines_get_type (c-name "gtk_tree_view_grid_lines_get_type") (return-type "GType") ) (define-function gtk_file_chooser_action_get_type (c-name "gtk_file_chooser_action_get_type") (return-type "GType") ) (define-function gtk_file_chooser_confirmation_get_type (c-name "gtk_file_chooser_confirmation_get_type") (return-type "GType") ) (define-function gtk_file_chooser_error_get_type (c-name "gtk_file_chooser_error_get_type") (return-type "GType") ) (define-function gtk_file_filter_flags_get_type (c-name "gtk_file_filter_flags_get_type") (return-type "GType") ) (define-function gtk_icon_lookup_flags_get_type (c-name "gtk_icon_lookup_flags_get_type") (return-type "GType") ) (define-function gtk_icon_theme_error_get_type (c-name "gtk_icon_theme_error_get_type") (return-type "GType") ) (define-function gtk_icon_view_drop_position_get_type (c-name "gtk_icon_view_drop_position_get_type") (return-type "GType") ) (define-function gtk_image_type_get_type (c-name "gtk_image_type_get_type") (return-type "GType") ) (define-function gtk_message_type_get_type (c-name "gtk_message_type_get_type") (return-type "GType") ) (define-function gtk_buttons_type_get_type (c-name "gtk_buttons_type_get_type") (return-type "GType") ) (define-function gtk_notebook_tab_get_type (c-name "gtk_notebook_tab_get_type") (return-type "GType") ) (define-function gtk_object_flags_get_type (c-name "gtk_object_flags_get_type") (return-type "GType") ) (define-function gtk_arg_flags_get_type (c-name "gtk_arg_flags_get_type") (return-type "GType") ) (define-function gtk_print_status_get_type (c-name "gtk_print_status_get_type") (return-type "GType") ) (define-function gtk_print_operation_result_get_type (c-name "gtk_print_operation_result_get_type") (return-type "GType") ) (define-function gtk_print_operation_action_get_type (c-name "gtk_print_operation_action_get_type") (return-type "GType") ) (define-function gtk_print_error_get_type (c-name "gtk_print_error_get_type") (return-type "GType") ) (define-function gtk_private_flags_get_type (c-name "gtk_private_flags_get_type") (return-type "GType") ) (define-function gtk_progress_bar_style_get_type (c-name "gtk_progress_bar_style_get_type") (return-type "GType") ) (define-function gtk_progress_bar_orientation_get_type (c-name "gtk_progress_bar_orientation_get_type") (return-type "GType") ) (define-function gtk_rc_flags_get_type (c-name "gtk_rc_flags_get_type") (return-type "GType") ) (define-function gtk_rc_token_type_get_type (c-name "gtk_rc_token_type_get_type") (return-type "GType") ) (define-function gtk_recent_sort_type_get_type (c-name "gtk_recent_sort_type_get_type") (return-type "GType") ) (define-function gtk_recent_chooser_error_get_type (c-name "gtk_recent_chooser_error_get_type") (return-type "GType") ) (define-function gtk_recent_filter_flags_get_type (c-name "gtk_recent_filter_flags_get_type") (return-type "GType") ) (define-function gtk_recent_manager_error_get_type (c-name "gtk_recent_manager_error_get_type") (return-type "GType") ) (define-function gtk_size_group_mode_get_type (c-name "gtk_size_group_mode_get_type") (return-type "GType") ) (define-function gtk_spin_button_update_policy_get_type (c-name "gtk_spin_button_update_policy_get_type") (return-type "GType") ) (define-function gtk_spin_type_get_type (c-name "gtk_spin_type_get_type") (return-type "GType") ) (define-function gtk_text_buffer_target_info_get_type (c-name "gtk_text_buffer_target_info_get_type") (return-type "GType") ) (define-function gtk_text_search_flags_get_type (c-name "gtk_text_search_flags_get_type") (return-type "GType") ) (define-function gtk_text_window_type_get_type (c-name "gtk_text_window_type_get_type") (return-type "GType") ) (define-function gtk_toolbar_child_type_get_type (c-name "gtk_toolbar_child_type_get_type") (return-type "GType") ) (define-function gtk_toolbar_space_style_get_type (c-name "gtk_toolbar_space_style_get_type") (return-type "GType") ) (define-function gtk_tree_view_mode_get_type (c-name "gtk_tree_view_mode_get_type") (return-type "GType") ) (define-function gtk_tree_model_flags_get_type (c-name "gtk_tree_model_flags_get_type") (return-type "GType") ) (define-function gtk_tree_view_drop_position_get_type (c-name "gtk_tree_view_drop_position_get_type") (return-type "GType") ) (define-function gtk_tree_view_column_sizing_get_type (c-name "gtk_tree_view_column_sizing_get_type") (return-type "GType") ) (define-function gtk_ui_manager_item_type_get_type (c-name "gtk_ui_manager_item_type_get_type") (return-type "GType") ) (define-function gtk_widget_flags_get_type (c-name "gtk_widget_flags_get_type") (return-type "GType") ) (define-function gtk_widget_help_type_get_type (c-name "gtk_widget_help_type_get_type") (return-type "GType") ) ;; From /opt/gnome2/include/gtk-2.0/gtk/gtktypeutils.h (define-function gtk_identifier_get_type (c-name "gtk_identifier_get_type") (return-type "GType") ) (define-function gtk_type_class (c-name "gtk_type_class") (return-type "gpointer") (parameters '("GtkType" "type") ) ) (define-function gtk_type_unique (c-name "gtk_type_unique") (return-type "GtkType") (parameters '("GtkType" "parent_type") '("const-GtkTypeInfo*" "gtkinfo") ) ) (define-function gtk_type_new (c-name "gtk_type_new") (return-type "gpointer") (parameters '("GtkType" "type") ) ) (define-function gtk_type_enum_get_values (c-name "gtk_type_enum_get_values") (return-type "GtkEnumValue*") (parameters '("GtkType" "enum_type") ) ) (define-function gtk_type_flags_get_values (c-name "gtk_type_flags_get_values") (return-type "GtkFlagValue*") (parameters '("GtkType" "flags_type") ) ) (define-function gtk_type_enum_find_value (c-name "gtk_type_enum_find_value") (return-type "GtkEnumValue*") (parameters '("GtkType" "enum_type") '("const-gchar*" "value_name") ) ) (define-function gtk_type_flags_find_value (c-name "gtk_type_flags_find_value") (return-type "GtkFlagValue*") (parameters '("GtkType" "flags_type") '("const-gchar*" "value_name") ) ) (define-function gtk_type_init (c-name "gtk_type_init") (return-type "none") (parameters '("GTypeDebugFlags" "debug_flags") ) ) ;; From /opt/gnome2/include/gtk-2.0/gtk/gtkuimanager.h (define-function gtk_ui_manager_get_type (c-name "gtk_ui_manager_get_type") (return-type "GType") ) (define-function gtk_ui_manager_new (c-name "gtk_ui_manager_new") (is-constructor-of "GtkUiManager") (return-type "GtkUIManager*") ) (define-method set_add_tearoffs (of-object "GtkUIManager") (c-name "gtk_ui_manager_set_add_tearoffs") (return-type "none") (parameters '("gboolean" "add_tearoffs") ) ) (define-method get_add_tearoffs (of-object "GtkUIManager") (c-name "gtk_ui_manager_get_add_tearoffs") (return-type "gboolean") ) (define-method insert_action_group (of-object "GtkUIManager") (c-name "gtk_ui_manager_insert_action_group") (return-type "none") (parameters '("GtkActionGroup*" "action_group") '("gint" "pos") ) ) (define-method remove_action_group (of-object "GtkUIManager") (c-name "gtk_ui_manager_remove_action_group") (return-type "none") (parameters '("GtkActionGroup*" "action_group") ) ) (define-method get_action_groups (of-object "GtkUIManager") (c-name "gtk_ui_manager_get_action_groups") (return-type "GList*") ) (define-method get_accel_group (of-object "GtkUIManager") (c-name "gtk_ui_manager_get_accel_group") (return-type "GtkAccelGroup*") ) (define-method get_widget (of-object "GtkUIManager") (c-name "gtk_ui_manager_get_widget") (return-type "GtkWidget*") (parameters '("const-gchar*" "path") ) ) (define-method get_toplevels (of-object "GtkUIManager") (c-name "gtk_ui_manager_get_toplevels") (return-type "GSList*") (parameters '("GtkUIManagerItemType" "types") ) ) (define-method get_action (of-object "GtkUIManager") (c-name "gtk_ui_manager_get_action") (return-type "GtkAction*") (parameters '("const-gchar*" "path") ) ) (define-method add_ui_from_string (of-object "GtkUIManager") (c-name "gtk_ui_manager_add_ui_from_string") (return-type "guint") (parameters '("const-gchar*" "buffer") '("gssize" "length") '("GError**" "error") ) ) (define-method add_ui_from_file (of-object "GtkUIManager") (c-name "gtk_ui_manager_add_ui_from_file") (return-type "guint") (parameters '("const-gchar*" "filename") '("GError**" "error") ) ) (define-method add_ui (of-object "GtkUIManager") (c-name "gtk_ui_manager_add_ui") (return-type "none") (parameters '("guint" "merge_id") '("const-gchar*" "path") '("const-gchar*" "name") '("const-gchar*" "action") '("GtkUIManagerItemType" "type") '("gboolean" "top") ) ) (define-method remove_ui (of-object "GtkUIManager") (c-name "gtk_ui_manager_remove_ui") (return-type "none") (parameters '("guint" "merge_id") ) ) (define-method get_ui (of-object "GtkUIManager") (c-name "gtk_ui_manager_get_ui") (return-type "gchar*") ) (define-method ensure_update (of-object "GtkUIManager") (c-name "gtk_ui_manager_ensure_update") (return-type "none") ) (define-method new_merge_id (of-object "GtkUIManager") (c-name "gtk_ui_manager_new_merge_id") (return-type "guint") ) ;; From /opt/gnome2/include/gtk-2.0/gtk/gtkvbbox.h (define-function gtk_vbutton_box_get_type (c-name "gtk_vbutton_box_get_type") (return-type "GType") ) (define-function gtk_vbutton_box_new (c-name "gtk_vbutton_box_new") (is-constructor-of "GtkVbuttonBox") (return-type "GtkWidget*") ) (define-function gtk_vbutton_box_get_spacing_default (c-name "gtk_vbutton_box_get_spacing_default") (return-type "gint") ) (define-function gtk_vbutton_box_set_spacing_default (c-name "gtk_vbutton_box_set_spacing_default") (return-type "none") (parameters '("gint" "spacing") ) ) (define-function gtk_vbutton_box_get_layout_default (c-name "gtk_vbutton_box_get_layout_default") (return-type "GtkButtonBoxStyle") ) (define-function gtk_vbutton_box_set_layout_default (c-name "gtk_vbutton_box_set_layout_default") (return-type "none") (parameters '("GtkButtonBoxStyle" "layout") ) ) ;; From /opt/gnome2/include/gtk-2.0/gtk/gtkvbox.h (define-function gtk_vbox_get_type (c-name "gtk_vbox_get_type") (return-type "GType") ) (define-function gtk_vbox_new (c-name "gtk_vbox_new") (is-constructor-of "GtkVbox") (return-type "GtkWidget*") (parameters '("gboolean" "homogeneous") '("gint" "spacing") ) ) ;; From /opt/gnome2/include/gtk-2.0/gtk/gtkversion.h ;; From /opt/gnome2/include/gtk-2.0/gtk/gtkviewport.h (define-function gtk_viewport_get_type (c-name "gtk_viewport_get_type") (return-type "GType") ) (define-function gtk_viewport_new (c-name "gtk_viewport_new") (is-constructor-of "GtkViewport") (return-type "GtkWidget*") (parameters '("GtkAdjustment*" "hadjustment") '("GtkAdjustment*" "vadjustment") ) ) (define-method get_hadjustment (of-object "GtkViewport") (c-name "gtk_viewport_get_hadjustment") (return-type "GtkAdjustment*") ) (define-method get_vadjustment (of-object "GtkViewport") (c-name "gtk_viewport_get_vadjustment") (return-type "GtkAdjustment*") ) (define-method set_hadjustment (of-object "GtkViewport") (c-name "gtk_viewport_set_hadjustment") (return-type "none") (parameters '("GtkAdjustment*" "adjustment") ) ) (define-method set_vadjustment (of-object "GtkViewport") (c-name "gtk_viewport_set_vadjustment") (return-type "none") (parameters '("GtkAdjustment*" "adjustment") ) ) (define-method set_shadow_type (of-object "GtkViewport") (c-name "gtk_viewport_set_shadow_type") (return-type "none") (parameters '("GtkShadowType" "type") ) ) (define-method get_shadow_type (of-object "GtkViewport") (c-name "gtk_viewport_get_shadow_type") (return-type "GtkShadowType") ) ;; From /opt/gnome2/include/gtk-2.0/gtk/gtkvpaned.h (define-function gtk_vpaned_get_type (c-name "gtk_vpaned_get_type") (return-type "GType") ) (define-function gtk_vpaned_new (c-name "gtk_vpaned_new") (is-constructor-of "GtkVpaned") (return-type "GtkWidget*") ) ;; From /opt/gnome2/include/gtk-2.0/gtk/gtkvruler.h (define-function gtk_vruler_get_type (c-name "gtk_vruler_get_type") (return-type "GType") ) (define-function gtk_vruler_new (c-name "gtk_vruler_new") (is-constructor-of "GtkVruler") (return-type "GtkWidget*") ) ;; From /opt/gnome2/include/gtk-2.0/gtk/gtkvscale.h (define-function gtk_vscale_get_type (c-name "gtk_vscale_get_type") (return-type "GType") ) (define-function gtk_vscale_new (c-name "gtk_vscale_new") (is-constructor-of "GtkVscale") (return-type "GtkWidget*") (parameters '("GtkAdjustment*" "adjustment") ) ) (define-function gtk_vscale_new_with_range (c-name "gtk_vscale_new_with_range") (return-type "GtkWidget*") (parameters '("gdouble" "min") '("gdouble" "max") '("gdouble" "step") ) ) ;; From /opt/gnome2/include/gtk-2.0/gtk/gtkvscrollbar.h (define-function gtk_vscrollbar_get_type (c-name "gtk_vscrollbar_get_type") (return-type "GType") ) (define-function gtk_vscrollbar_new (c-name "gtk_vscrollbar_new") (is-constructor-of "GtkVscrollbar") (return-type "GtkWidget*") (parameters '("GtkAdjustment*" "adjustment") ) ) ;; From /opt/gnome2/include/gtk-2.0/gtk/gtkvseparator.h (define-function gtk_vseparator_get_type (c-name "gtk_vseparator_get_type") (return-type "GType") ) (define-function gtk_vseparator_new (c-name "gtk_vseparator_new") (is-constructor-of "GtkVseparator") (return-type "GtkWidget*") ) ;; From /opt/gnome2/include/gtk-2.0/gtk/gtkwidget.h (define-function gtk_widget_get_type (c-name "gtk_widget_get_type") (return-type "GType") ) (define-function gtk_widget_new (c-name "gtk_widget_new") (is-constructor-of "GtkWidget") (return-type "GtkWidget*") (parameters '("GType" "type") '("const-gchar*" "first_property_name") ) (varargs #t) ) (define-method ref (of-object "GtkWidget") (c-name "gtk_widget_ref") (return-type "GtkWidget*") ) (define-method unref (of-object "GtkWidget") (c-name "gtk_widget_unref") (return-type "none") ) (define-method destroy (of-object "GtkWidget") (c-name "gtk_widget_destroy") (return-type "none") ) (define-method destroyed (of-object "GtkWidget") (c-name "gtk_widget_destroyed") (return-type "none") (parameters '("GtkWidget**" "widget_pointer") ) ) (define-method set (of-object "GtkWidget") (c-name "gtk_widget_set") (return-type "none") (parameters '("const-gchar*" "first_property_name") ) (varargs #t) ) (define-method unparent (of-object "GtkWidget") (c-name "gtk_widget_unparent") (return-type "none") ) (define-method show (of-object "GtkWidget") (c-name "gtk_widget_show") (return-type "none") ) (define-method show_now (of-object "GtkWidget") (c-name "gtk_widget_show_now") (return-type "none") ) (define-method hide (of-object "GtkWidget") (c-name "gtk_widget_hide") (return-type "none") ) (define-method show_all (of-object "GtkWidget") (c-name "gtk_widget_show_all") (return-type "none") ) (define-method hide_all (of-object "GtkWidget") (c-name "gtk_widget_hide_all") (return-type "none") ) (define-method set_no_show_all (of-object "GtkWidget") (c-name "gtk_widget_set_no_show_all") (return-type "none") (parameters '("gboolean" "no_show_all") ) ) (define-method get_no_show_all (of-object "GtkWidget") (c-name "gtk_widget_get_no_show_all") (return-type "gboolean") ) (define-method map (of-object "GtkWidget") (c-name "gtk_widget_map") (return-type "none") ) (define-method unmap (of-object "GtkWidget") (c-name "gtk_widget_unmap") (return-type "none") ) (define-method realize (of-object "GtkWidget") (c-name "gtk_widget_realize") (return-type "none") ) (define-method unrealize (of-object "GtkWidget") (c-name "gtk_widget_unrealize") (return-type "none") ) (define-method queue_draw (of-object "GtkWidget") (c-name "gtk_widget_queue_draw") (return-type "none") ) (define-method queue_draw_area (of-object "GtkWidget") (c-name "gtk_widget_queue_draw_area") (return-type "none") (parameters '("gint" "x") '("gint" "y") '("gint" "width") '("gint" "height") ) ) (define-method queue_clear (of-object "GtkWidget") (c-name "gtk_widget_queue_clear") (return-type "none") ) (define-method queue_clear_area (of-object "GtkWidget") (c-name "gtk_widget_queue_clear_area") (return-type "none") (parameters '("gint" "x") '("gint" "y") '("gint" "width") '("gint" "height") ) ) (define-method queue_resize (of-object "GtkWidget") (c-name "gtk_widget_queue_resize") (return-type "none") ) (define-method queue_resize_no_redraw (of-object "GtkWidget") (c-name "gtk_widget_queue_resize_no_redraw") (return-type "none") ) (define-method draw (of-object "GtkWidget") (c-name "gtk_widget_draw") (return-type "none") (parameters '("GdkRectangle*" "area") ) ) (define-method size_request (of-object "GtkWidget") (c-name "gtk_widget_size_request") (return-type "none") (parameters '("GtkRequisition*" "requisition") ) ) (define-method size_allocate (of-object "GtkWidget") (c-name "gtk_widget_size_allocate") (return-type "none") (parameters '("GtkAllocation*" "allocation") ) ) (define-method get_child_requisition (of-object "GtkWidget") (c-name "gtk_widget_get_child_requisition") (return-type "none") (parameters '("GtkRequisition*" "requisition") ) ) (define-method add_accelerator (of-object "GtkWidget") (c-name "gtk_widget_add_accelerator") (return-type "none") (parameters '("const-gchar*" "accel_signal") '("GtkAccelGroup*" "accel_group") '("guint" "accel_key") '("GdkModifierType" "accel_mods") '("GtkAccelFlags" "accel_flags") ) ) (define-method remove_accelerator (of-object "GtkWidget") (c-name "gtk_widget_remove_accelerator") (return-type "gboolean") (parameters '("GtkAccelGroup*" "accel_group") '("guint" "accel_key") '("GdkModifierType" "accel_mods") ) ) (define-method set_accel_path (of-object "GtkWidget") (c-name "gtk_widget_set_accel_path") (return-type "none") (parameters '("const-gchar*" "accel_path") '("GtkAccelGroup*" "accel_group") ) ) (define-method _get_accel_path (of-object "GtkWidget") (c-name "_gtk_widget_get_accel_path") (return-type "const-gchar*") (parameters '("gboolean*" "locked") ) ) (define-method list_accel_closures (of-object "GtkWidget") (c-name "gtk_widget_list_accel_closures") (return-type "GList*") ) (define-method can_activate_accel (of-object "GtkWidget") (c-name "gtk_widget_can_activate_accel") (return-type "gboolean") (parameters '("guint" "signal_id") ) ) (define-method mnemonic_activate (of-object "GtkWidget") (c-name "gtk_widget_mnemonic_activate") (return-type "gboolean") (parameters '("gboolean" "group_cycling") ) ) (define-method event (of-object "GtkWidget") (c-name "gtk_widget_event") (return-type "gboolean") (parameters '("GdkEvent*" "event") ) ) (define-method send_expose (of-object "GtkWidget") (c-name "gtk_widget_send_expose") (return-type "gint") (parameters '("GdkEvent*" "event") ) ) (define-method activate (of-object "GtkWidget") (c-name "gtk_widget_activate") (return-type "gboolean") ) (define-method set_scroll_adjustments (of-object "GtkWidget") (c-name "gtk_widget_set_scroll_adjustments") (return-type "gboolean") (parameters '("GtkAdjustment*" "hadjustment") '("GtkAdjustment*" "vadjustment") ) ) (define-method reparent (of-object "GtkWidget") (c-name "gtk_widget_reparent") (return-type "none") (parameters '("GtkWidget*" "new_parent") ) ) (define-method intersect (of-object "GtkWidget") (c-name "gtk_widget_intersect") (return-type "gboolean") (parameters '("GdkRectangle*" "area") '("GdkRectangle*" "intersection") ) ) (define-method region_intersect (of-object "GtkWidget") (c-name "gtk_widget_region_intersect") (return-type "GdkRegion*") (parameters '("GdkRegion*" "region") ) ) (define-method freeze_child_notify (of-object "GtkWidget") (c-name "gtk_widget_freeze_child_notify") (return-type "none") ) (define-method child_notify (of-object "GtkWidget") (c-name "gtk_widget_child_notify") (return-type "none") (parameters '("const-gchar*" "child_property") ) ) (define-method thaw_child_notify (of-object "GtkWidget") (c-name "gtk_widget_thaw_child_notify") (return-type "none") ) (define-method is_focus (of-object "GtkWidget") (c-name "gtk_widget_is_focus") (return-type "gboolean") ) (define-method grab_focus (of-object "GtkWidget") (c-name "gtk_widget_grab_focus") (return-type "none") ) (define-method grab_default (of-object "GtkWidget") (c-name "gtk_widget_grab_default") (return-type "none") ) (define-method set_name (of-object "GtkWidget") (c-name "gtk_widget_set_name") (return-type "none") (parameters '("const-gchar*" "name") ) ) (define-method get_name (of-object "GtkWidget") (c-name "gtk_widget_get_name") (return-type "const-gchar*") ) (define-method set_state (of-object "GtkWidget") (c-name "gtk_widget_set_state") (return-type "none") (parameters '("GtkStateType" "state") ) ) (define-method set_sensitive (of-object "GtkWidget") (c-name "gtk_widget_set_sensitive") (return-type "none") (parameters '("gboolean" "sensitive") ) ) (define-method set_app_paintable (of-object "GtkWidget") (c-name "gtk_widget_set_app_paintable") (return-type "none") (parameters '("gboolean" "app_paintable") ) ) (define-method set_double_buffered (of-object "GtkWidget") (c-name "gtk_widget_set_double_buffered") (return-type "none") (parameters '("gboolean" "double_buffered") ) ) (define-method set_redraw_on_allocate (of-object "GtkWidget") (c-name "gtk_widget_set_redraw_on_allocate") (return-type "none") (parameters '("gboolean" "redraw_on_allocate") ) ) (define-method set_parent (of-object "GtkWidget") (c-name "gtk_widget_set_parent") (return-type "none") (parameters '("GtkWidget*" "parent") ) ) (define-method set_parent_window (of-object "GtkWidget") (c-name "gtk_widget_set_parent_window") (return-type "none") (parameters '("GdkWindow*" "parent_window") ) ) (define-method set_child_visible (of-object "GtkWidget") (c-name "gtk_widget_set_child_visible") (return-type "none") (parameters '("gboolean" "is_visible") ) ) (define-method get_child_visible (of-object "GtkWidget") (c-name "gtk_widget_get_child_visible") (return-type "gboolean") ) (define-method get_parent (of-object "GtkWidget") (c-name "gtk_widget_get_parent") (return-type "GtkWidget*") ) (define-method get_parent_window (of-object "GtkWidget") (c-name "gtk_widget_get_parent_window") (return-type "GdkWindow*") ) (define-method child_focus (of-object "GtkWidget") (c-name "gtk_widget_child_focus") (return-type "gboolean") (parameters '("GtkDirectionType" "direction") ) ) (define-method set_size_request (of-object "GtkWidget") (c-name "gtk_widget_set_size_request") (return-type "none") (parameters '("gint" "width") '("gint" "height") ) ) (define-method get_size_request (of-object "GtkWidget") (c-name "gtk_widget_get_size_request") (return-type "none") (parameters '("gint*" "width") '("gint*" "height") ) ) (define-method set_uposition (of-object "GtkWidget") (c-name "gtk_widget_set_uposition") (return-type "none") (parameters '("gint" "x") '("gint" "y") ) ) (define-method set_usize (of-object "GtkWidget") (c-name "gtk_widget_set_usize") (return-type "none") (parameters '("gint" "width") '("gint" "height") ) ) (define-method set_events (of-object "GtkWidget") (c-name "gtk_widget_set_events") (return-type "none") (parameters '("gint" "events") ) ) (define-method add_events (of-object "GtkWidget") (c-name "gtk_widget_add_events") (return-type "none") (parameters '("gint" "events") ) ) (define-method set_extension_events (of-object "GtkWidget") (c-name "gtk_widget_set_extension_events") (return-type "none") (parameters '("GdkExtensionMode" "mode") ) ) (define-method get_extension_events (of-object "GtkWidget") (c-name "gtk_widget_get_extension_events") (return-type "GdkExtensionMode") ) (define-method get_toplevel (of-object "GtkWidget") (c-name "gtk_widget_get_toplevel") (return-type "GtkWidget*") ) (define-method get_ancestor (of-object "GtkWidget") (c-name "gtk_widget_get_ancestor") (return-type "GtkWidget*") (parameters '("GType" "widget_type") ) ) (define-method get_colormap (of-object "GtkWidget") (c-name "gtk_widget_get_colormap") (return-type "GdkColormap*") ) (define-method get_visual (of-object "GtkWidget") (c-name "gtk_widget_get_visual") (return-type "GdkVisual*") ) (define-method get_screen (of-object "GtkWidget") (c-name "gtk_widget_get_screen") (return-type "GdkScreen*") ) (define-method has_screen (of-object "GtkWidget") (c-name "gtk_widget_has_screen") (return-type "gboolean") ) (define-method get_display (of-object "GtkWidget") (c-name "gtk_widget_get_display") (return-type "GdkDisplay*") ) (define-method get_root_window (of-object "GtkWidget") (c-name "gtk_widget_get_root_window") (return-type "GdkWindow*") ) (define-method get_settings (of-object "GtkWidget") (c-name "gtk_widget_get_settings") (return-type "GtkSettings*") ) (define-method get_clipboard (of-object "GtkWidget") (c-name "gtk_widget_get_clipboard") (return-type "GtkClipboard*") (parameters '("GdkAtom" "selection") ) ) (define-method get_accessible (of-object "GtkWidget") (c-name "gtk_widget_get_accessible") (return-type "AtkObject*") ) (define-method set_colormap (of-object "GtkWidget") (c-name "gtk_widget_set_colormap") (return-type "none") (parameters '("GdkColormap*" "colormap") ) ) (define-method get_events (of-object "GtkWidget") (c-name "gtk_widget_get_events") (return-type "gint") ) (define-method get_pointer (of-object "GtkWidget") (c-name "gtk_widget_get_pointer") (return-type "none") (parameters '("gint*" "x") '("gint*" "y") ) ) (define-method is_ancestor (of-object "GtkWidget") (c-name "gtk_widget_is_ancestor") (return-type "gboolean") (parameters '("GtkWidget*" "ancestor") ) ) (define-method translate_coordinates (of-object "GtkWidget") (c-name "gtk_widget_translate_coordinates") (return-type "gboolean") (parameters '("GtkWidget*" "dest_widget") '("gint" "src_x") '("gint" "src_y") '("gint*" "dest_x") '("gint*" "dest_y") ) ) (define-method hide_on_delete (of-object "GtkWidget") (c-name "gtk_widget_hide_on_delete") (return-type "gboolean") ) (define-method set_style (of-object "GtkWidget") (c-name "gtk_widget_set_style") (return-type "none") (parameters '("GtkStyle*" "style") ) ) (define-method ensure_style (of-object "GtkWidget") (c-name "gtk_widget_ensure_style") (return-type "none") ) (define-method get_style (of-object "GtkWidget") (c-name "gtk_widget_get_style") (return-type "GtkStyle*") ) (define-method modify_style (of-object "GtkWidget") (c-name "gtk_widget_modify_style") (return-type "none") (parameters '("GtkRcStyle*" "style") ) ) (define-method get_modifier_style (of-object "GtkWidget") (c-name "gtk_widget_get_modifier_style") (return-type "GtkRcStyle*") ) (define-method modify_fg (of-object "GtkWidget") (c-name "gtk_widget_modify_fg") (return-type "none") (parameters '("GtkStateType" "state") '("const-GdkColor*" "color") ) ) (define-method modify_bg (of-object "GtkWidget") (c-name "gtk_widget_modify_bg") (return-type "none") (parameters '("GtkStateType" "state") '("const-GdkColor*" "color") ) ) (define-method modify_text (of-object "GtkWidget") (c-name "gtk_widget_modify_text") (return-type "none") (parameters '("GtkStateType" "state") '("const-GdkColor*" "color") ) ) (define-method modify_base (of-object "GtkWidget") (c-name "gtk_widget_modify_base") (return-type "none") (parameters '("GtkStateType" "state") '("const-GdkColor*" "color") ) ) (define-method modify_font (of-object "GtkWidget") (c-name "gtk_widget_modify_font") (return-type "none") (parameters '("PangoFontDescription*" "font_desc") ) ) (define-method create_pango_context (of-object "GtkWidget") (c-name "gtk_widget_create_pango_context") (return-type "PangoContext*") ) (define-method get_pango_context (of-object "GtkWidget") (c-name "gtk_widget_get_pango_context") (return-type "PangoContext*") ) (define-method create_pango_layout (of-object "GtkWidget") (c-name "gtk_widget_create_pango_layout") (return-type "PangoLayout*") (parameters '("const-gchar*" "text") ) ) (define-method render_icon (of-object "GtkWidget") (c-name "gtk_widget_render_icon") (return-type "GdkPixbuf*") (parameters '("const-gchar*" "stock_id") '("GtkIconSize" "size") '("const-gchar*" "detail") ) ) (define-method set_composite_name (of-object "GtkWidget") (c-name "gtk_widget_set_composite_name") (return-type "none") (parameters '("const-gchar*" "name") ) ) (define-method get_composite_name (of-object "GtkWidget") (c-name "gtk_widget_get_composite_name") (return-type "gchar*") ) (define-method reset_rc_styles (of-object "GtkWidget") (c-name "gtk_widget_reset_rc_styles") (return-type "none") ) (define-function gtk_widget_push_colormap (c-name "gtk_widget_push_colormap") (return-type "none") (parameters '("GdkColormap*" "cmap") ) ) (define-function gtk_widget_push_composite_child (c-name "gtk_widget_push_composite_child") (return-type "none") ) (define-function gtk_widget_pop_composite_child (c-name "gtk_widget_pop_composite_child") (return-type "none") ) (define-function gtk_widget_pop_colormap (c-name "gtk_widget_pop_colormap") (return-type "none") ) (define-method install_style_property (of-object "GtkWidgetClass") (c-name "gtk_widget_class_install_style_property") (return-type "none") (parameters '("GParamSpec*" "pspec") ) ) (define-method install_style_property_parser (of-object "GtkWidgetClass") (c-name "gtk_widget_class_install_style_property_parser") (return-type "none") (parameters '("GParamSpec*" "pspec") '("GtkRcPropertyParser" "parser") ) ) (define-method find_style_property (of-object "GtkWidgetClass") (c-name "gtk_widget_class_find_style_property") (return-type "GParamSpec*") (parameters '("const-gchar*" "property_name") ) ) (define-method list_style_properties (of-object "GtkWidgetClass") (c-name "gtk_widget_class_list_style_properties") (return-type "GParamSpec**") (parameters '("guint*" "n_properties") ) ) (define-method style_get_property (of-object "GtkWidget") (c-name "gtk_widget_style_get_property") (return-type "none") (parameters '("const-gchar*" "property_name") '("GValue*" "value") ) ) (define-method style_get_valist (of-object "GtkWidget") (c-name "gtk_widget_style_get_valist") (return-type "none") (parameters '("const-gchar*" "first_property_name") '("va_list" "var_args") ) ) (define-method style_get (of-object "GtkWidget") (c-name "gtk_widget_style_get") (return-type "none") (parameters '("const-gchar*" "first_property_name") ) (varargs #t) ) (define-function gtk_widget_set_default_colormap (c-name "gtk_widget_set_default_colormap") (return-type "none") (parameters '("GdkColormap*" "colormap") ) ) (define-function gtk_widget_get_default_style (c-name "gtk_widget_get_default_style") (return-type "GtkStyle*") ) (define-function gtk_widget_get_default_colormap (c-name "gtk_widget_get_default_colormap") (return-type "GdkColormap*") ) (define-function gtk_widget_get_default_visual (c-name "gtk_widget_get_default_visual") (return-type "GdkVisual*") ) (define-method set_direction (of-object "GtkWidget") (c-name "gtk_widget_set_direction") (return-type "none") (parameters '("GtkTextDirection" "dir") ) ) (define-method get_direction (of-object "GtkWidget") (c-name "gtk_widget_get_direction") (return-type "GtkTextDirection") ) (define-function gtk_widget_set_default_direction (c-name "gtk_widget_set_default_direction") (return-type "none") (parameters '("GtkTextDirection" "dir") ) ) (define-function gtk_widget_get_default_direction (c-name "gtk_widget_get_default_direction") (return-type "GtkTextDirection") ) (define-method is_composited (of-object "GtkWidget") (c-name "gtk_widget_is_composited") (return-type "gboolean") ) (define-method shape_combine_mask (of-object "GtkWidget") (c-name "gtk_widget_shape_combine_mask") (return-type "none") (parameters '("GdkBitmap*" "shape_mask") '("gint" "offset_x") '("gint" "offset_y") ) ) (define-method input_shape_combine_mask (of-object "GtkWidget") (c-name "gtk_widget_input_shape_combine_mask") (return-type "none") (parameters '("GdkBitmap*" "shape_mask") '("gint" "offset_x") '("gint" "offset_y") ) ) (define-method reset_shapes (of-object "GtkWidget") (c-name "gtk_widget_reset_shapes") (return-type "none") ) (define-method path (of-object "GtkWidget") (c-name "gtk_widget_path") (return-type "none") (parameters '("guint*" "path_length") '("gchar**" "path") '("gchar**" "path_reversed") ) ) (define-method class_path (of-object "GtkWidget") (c-name "gtk_widget_class_path") (return-type "none") (parameters '("guint*" "path_length") '("gchar**" "path") '("gchar**" "path_reversed") ) ) (define-method list_mnemonic_labels (of-object "GtkWidget") (c-name "gtk_widget_list_mnemonic_labels") (return-type "GList*") ) (define-method add_mnemonic_label (of-object "GtkWidget") (c-name "gtk_widget_add_mnemonic_label") (return-type "none") (parameters '("GtkWidget*" "label") ) ) (define-method remove_mnemonic_label (of-object "GtkWidget") (c-name "gtk_widget_remove_mnemonic_label") (return-type "none") (parameters '("GtkWidget*" "label") ) ) (define-function gtk_requisition_get_type (c-name "gtk_requisition_get_type") (return-type "GType") ) (define-method copy (of-object "GtkRequisition") (c-name "gtk_requisition_copy") (return-type "GtkRequisition*") ) (define-method free (of-object "GtkRequisition") (c-name "gtk_requisition_free") (return-type "none") ) (define-method _grab_notify (of-object "GtkWidget") (c-name "_gtk_widget_grab_notify") (return-type "none") (parameters '("gboolean" "was_grabbed") ) ) (define-method _get_aux_info (of-object "GtkWidget") (c-name "_gtk_widget_get_aux_info") (return-type "GtkWidgetAuxInfo*") (parameters '("gboolean" "create") ) ) (define-method _propagate_hierarchy_changed (of-object "GtkWidget") (c-name "_gtk_widget_propagate_hierarchy_changed") (return-type "none") (parameters '("GtkWidget*" "previous_toplevel") ) ) (define-method _propagate_screen_changed (of-object "GtkWidget") (c-name "_gtk_widget_propagate_screen_changed") (return-type "none") (parameters '("GdkScreen*" "previous_screen") ) ) (define-method _propagate_composited_changed (of-object "GtkWidget") (c-name "_gtk_widget_propagate_composited_changed") (return-type "none") ) (define-function _gtk_widget_peek_colormap (c-name "_gtk_widget_peek_colormap") (return-type "GdkColormap*") ) ;; From /opt/gnome2/include/gtk-2.0/gtk/gtkwindow.h (define-function gtk_window_get_type (c-name "gtk_window_get_type") (return-type "GType") ) (define-function gtk_window_new (c-name "gtk_window_new") (is-constructor-of "GtkWindow") (return-type "GtkWidget*") (parameters '("GtkWindowType" "type") ) ) (define-method set_title (of-object "GtkWindow") (c-name "gtk_window_set_title") (return-type "none") (parameters '("const-gchar*" "title") ) ) (define-method get_title (of-object "GtkWindow") (c-name "gtk_window_get_title") (return-type "const-gchar*") ) (define-method set_wmclass (of-object "GtkWindow") (c-name "gtk_window_set_wmclass") (return-type "none") (parameters '("const-gchar*" "wmclass_name") '("const-gchar*" "wmclass_class") ) ) (define-method set_role (of-object "GtkWindow") (c-name "gtk_window_set_role") (return-type "none") (parameters '("const-gchar*" "role") ) ) (define-method get_role (of-object "GtkWindow") (c-name "gtk_window_get_role") (return-type "const-gchar*") ) (define-method add_accel_group (of-object "GtkWindow") (c-name "gtk_window_add_accel_group") (return-type "none") (parameters '("GtkAccelGroup*" "accel_group") ) ) (define-method remove_accel_group (of-object "GtkWindow") (c-name "gtk_window_remove_accel_group") (return-type "none") (parameters '("GtkAccelGroup*" "accel_group") ) ) (define-method set_position (of-object "GtkWindow") (c-name "gtk_window_set_position") (return-type "none") (parameters '("GtkWindowPosition" "position") ) ) (define-method activate_focus (of-object "GtkWindow") (c-name "gtk_window_activate_focus") (return-type "gboolean") ) (define-method set_focus (of-object "GtkWindow") (c-name "gtk_window_set_focus") (return-type "none") (parameters '("GtkWidget*" "focus") ) ) (define-method get_focus (of-object "GtkWindow") (c-name "gtk_window_get_focus") (return-type "GtkWidget*") ) (define-method set_default (of-object "GtkWindow") (c-name "gtk_window_set_default") (return-type "none") (parameters '("GtkWidget*" "default_widget") ) ) (define-method activate_default (of-object "GtkWindow") (c-name "gtk_window_activate_default") (return-type "gboolean") ) (define-method set_transient_for (of-object "GtkWindow") (c-name "gtk_window_set_transient_for") (return-type "none") (parameters '("GtkWindow*" "parent") ) ) (define-method get_transient_for (of-object "GtkWindow") (c-name "gtk_window_get_transient_for") (return-type "GtkWindow*") ) (define-method set_type_hint (of-object "GtkWindow") (c-name "gtk_window_set_type_hint") (return-type "none") (parameters '("GdkWindowTypeHint" "hint") ) ) (define-method get_type_hint (of-object "GtkWindow") (c-name "gtk_window_get_type_hint") (return-type "GdkWindowTypeHint") ) (define-method set_skip_taskbar_hint (of-object "GtkWindow") (c-name "gtk_window_set_skip_taskbar_hint") (return-type "none") (parameters '("gboolean" "setting") ) ) (define-method get_skip_taskbar_hint (of-object "GtkWindow") (c-name "gtk_window_get_skip_taskbar_hint") (return-type "gboolean") ) (define-method set_skip_pager_hint (of-object "GtkWindow") (c-name "gtk_window_set_skip_pager_hint") (return-type "none") (parameters '("gboolean" "setting") ) ) (define-method get_skip_pager_hint (of-object "GtkWindow") (c-name "gtk_window_get_skip_pager_hint") (return-type "gboolean") ) (define-method set_urgency_hint (of-object "GtkWindow") (c-name "gtk_window_set_urgency_hint") (return-type "none") (parameters '("gboolean" "setting") ) ) (define-method get_urgency_hint (of-object "GtkWindow") (c-name "gtk_window_get_urgency_hint") (return-type "gboolean") ) (define-method set_accept_focus (of-object "GtkWindow") (c-name "gtk_window_set_accept_focus") (return-type "none") (parameters '("gboolean" "setting") ) ) (define-method get_accept_focus (of-object "GtkWindow") (c-name "gtk_window_get_accept_focus") (return-type "gboolean") ) (define-method set_focus_on_map (of-object "GtkWindow") (c-name "gtk_window_set_focus_on_map") (return-type "none") (parameters '("gboolean" "setting") ) ) (define-method get_focus_on_map (of-object "GtkWindow") (c-name "gtk_window_get_focus_on_map") (return-type "gboolean") ) (define-method set_destroy_with_parent (of-object "GtkWindow") (c-name "gtk_window_set_destroy_with_parent") (return-type "none") (parameters '("gboolean" "setting") ) ) (define-method get_destroy_with_parent (of-object "GtkWindow") (c-name "gtk_window_get_destroy_with_parent") (return-type "gboolean") ) (define-method set_resizable (of-object "GtkWindow") (c-name "gtk_window_set_resizable") (return-type "none") (parameters '("gboolean" "resizable") ) ) (define-method get_resizable (of-object "GtkWindow") (c-name "gtk_window_get_resizable") (return-type "gboolean") ) (define-method set_gravity (of-object "GtkWindow") (c-name "gtk_window_set_gravity") (return-type "none") (parameters '("GdkGravity" "gravity") ) ) (define-method get_gravity (of-object "GtkWindow") (c-name "gtk_window_get_gravity") (return-type "GdkGravity") ) (define-method set_geometry_hints (of-object "GtkWindow") (c-name "gtk_window_set_geometry_hints") (return-type "none") (parameters '("GtkWidget*" "geometry_widget") '("GdkGeometry*" "geometry") '("GdkWindowHints" "geom_mask") ) ) (define-method set_screen (of-object "GtkWindow") (c-name "gtk_window_set_screen") (return-type "none") (parameters '("GdkScreen*" "screen") ) ) (define-method get_screen (of-object "GtkWindow") (c-name "gtk_window_get_screen") (return-type "GdkScreen*") ) (define-method is_active (of-object "GtkWindow") (c-name "gtk_window_is_active") (return-type "gboolean") ) (define-method has_toplevel_focus (of-object "GtkWindow") (c-name "gtk_window_has_toplevel_focus") (return-type "gboolean") ) (define-method set_has_frame (of-object "GtkWindow") (c-name "gtk_window_set_has_frame") (return-type "none") (parameters '("gboolean" "setting") ) ) (define-method get_has_frame (of-object "GtkWindow") (c-name "gtk_window_get_has_frame") (return-type "gboolean") ) (define-method set_frame_dimensions (of-object "GtkWindow") (c-name "gtk_window_set_frame_dimensions") (return-type "none") (parameters '("gint" "left") '("gint" "top") '("gint" "right") '("gint" "bottom") ) ) (define-method get_frame_dimensions (of-object "GtkWindow") (c-name "gtk_window_get_frame_dimensions") (return-type "none") (parameters '("gint*" "left") '("gint*" "top") '("gint*" "right") '("gint*" "bottom") ) ) (define-method set_decorated (of-object "GtkWindow") (c-name "gtk_window_set_decorated") (return-type "none") (parameters '("gboolean" "setting") ) ) (define-method get_decorated (of-object "GtkWindow") (c-name "gtk_window_get_decorated") (return-type "gboolean") ) (define-method set_deletable (of-object "GtkWindow") (c-name "gtk_window_set_deletable") (return-type "none") (parameters '("gboolean" "setting") ) ) (define-method get_deletable (of-object "GtkWindow") (c-name "gtk_window_get_deletable") (return-type "gboolean") ) (define-method set_icon_list (of-object "GtkWindow") (c-name "gtk_window_set_icon_list") (return-type "none") (parameters '("GList*" "list") ) ) (define-method get_icon_list (of-object "GtkWindow") (c-name "gtk_window_get_icon_list") (return-type "GList*") ) (define-method set_icon (of-object "GtkWindow") (c-name "gtk_window_set_icon") (return-type "none") (parameters '("GdkPixbuf*" "icon") ) ) (define-method set_icon_name (of-object "GtkWindow") (c-name "gtk_window_set_icon_name") (return-type "none") (parameters '("const-gchar*" "name") ) ) (define-method set_icon_from_file (of-object "GtkWindow") (c-name "gtk_window_set_icon_from_file") (return-type "gboolean") (parameters '("const-gchar*" "filename") '("GError**" "err") ) ) (define-method get_icon (of-object "GtkWindow") (c-name "gtk_window_get_icon") (return-type "GdkPixbuf*") ) (define-method get_icon_name (of-object "GtkWindow") (c-name "gtk_window_get_icon_name") (return-type "const-gchar*") ) (define-function gtk_window_set_default_icon_list (c-name "gtk_window_set_default_icon_list") (return-type "none") (parameters '("GList*" "list") ) ) (define-function gtk_window_get_default_icon_list (c-name "gtk_window_get_default_icon_list") (return-type "GList*") ) (define-function gtk_window_set_default_icon (c-name "gtk_window_set_default_icon") (return-type "none") (parameters '("GdkPixbuf*" "icon") ) ) (define-function gtk_window_set_default_icon_name (c-name "gtk_window_set_default_icon_name") (return-type "none") (parameters '("const-gchar*" "name") ) ) (define-function gtk_window_set_default_icon_from_file (c-name "gtk_window_set_default_icon_from_file") (return-type "gboolean") (parameters '("const-gchar*" "filename") '("GError**" "err") ) ) (define-function gtk_window_set_auto_startup_notification (c-name "gtk_window_set_auto_startup_notification") (return-type "none") (parameters '("gboolean" "setting") ) ) (define-method set_modal (of-object "GtkWindow") (c-name "gtk_window_set_modal") (return-type "none") (parameters '("gboolean" "modal") ) ) (define-method get_modal (of-object "GtkWindow") (c-name "gtk_window_get_modal") (return-type "gboolean") ) (define-function gtk_window_list_toplevels (c-name "gtk_window_list_toplevels") (return-type "GList*") ) (define-method add_mnemonic (of-object "GtkWindow") (c-name "gtk_window_add_mnemonic") (return-type "none") (parameters '("guint" "keyval") '("GtkWidget*" "target") ) ) (define-method remove_mnemonic (of-object "GtkWindow") (c-name "gtk_window_remove_mnemonic") (return-type "none") (parameters '("guint" "keyval") '("GtkWidget*" "target") ) ) (define-method mnemonic_activate (of-object "GtkWindow") (c-name "gtk_window_mnemonic_activate") (return-type "gboolean") (parameters '("guint" "keyval") '("GdkModifierType" "modifier") ) ) (define-method set_mnemonic_modifier (of-object "GtkWindow") (c-name "gtk_window_set_mnemonic_modifier") (return-type "none") (parameters '("GdkModifierType" "modifier") ) ) (define-method get_mnemonic_modifier (of-object "GtkWindow") (c-name "gtk_window_get_mnemonic_modifier") (return-type "GdkModifierType") ) (define-method activate_key (of-object "GtkWindow") (c-name "gtk_window_activate_key") (return-type "gboolean") (parameters '("GdkEventKey*" "event") ) ) (define-method propagate_key_event (of-object "GtkWindow") (c-name "gtk_window_propagate_key_event") (return-type "gboolean") (parameters '("GdkEventKey*" "event") ) ) (define-method present (of-object "GtkWindow") (c-name "gtk_window_present") (return-type "none") ) (define-method present_with_time (of-object "GtkWindow") (c-name "gtk_window_present_with_time") (return-type "none") (parameters '("guint32" "timestamp") ) ) (define-method iconify (of-object "GtkWindow") (c-name "gtk_window_iconify") (return-type "none") ) (define-method deiconify (of-object "GtkWindow") (c-name "gtk_window_deiconify") (return-type "none") ) (define-method stick (of-object "GtkWindow") (c-name "gtk_window_stick") (return-type "none") ) (define-method unstick (of-object "GtkWindow") (c-name "gtk_window_unstick") (return-type "none") ) (define-method maximize (of-object "GtkWindow") (c-name "gtk_window_maximize") (return-type "none") ) (define-method unmaximize (of-object "GtkWindow") (c-name "gtk_window_unmaximize") (return-type "none") ) (define-method fullscreen (of-object "GtkWindow") (c-name "gtk_window_fullscreen") (return-type "none") ) (define-method unfullscreen (of-object "GtkWindow") (c-name "gtk_window_unfullscreen") (return-type "none") ) (define-method set_keep_above (of-object "GtkWindow") (c-name "gtk_window_set_keep_above") (return-type "none") (parameters '("gboolean" "setting") ) ) (define-method set_keep_below (of-object "GtkWindow") (c-name "gtk_window_set_keep_below") (return-type "none") (parameters '("gboolean" "setting") ) ) (define-method begin_resize_drag (of-object "GtkWindow") (c-name "gtk_window_begin_resize_drag") (return-type "none") (parameters '("GdkWindowEdge" "edge") '("gint" "button") '("gint" "root_x") '("gint" "root_y") '("guint32" "timestamp") ) ) (define-method begin_move_drag (of-object "GtkWindow") (c-name "gtk_window_begin_move_drag") (return-type "none") (parameters '("gint" "button") '("gint" "root_x") '("gint" "root_y") '("guint32" "timestamp") ) ) (define-method set_policy (of-object "GtkWindow") (c-name "gtk_window_set_policy") (return-type "none") (parameters '("gint" "allow_shrink") '("gint" "allow_grow") '("gint" "auto_shrink") ) ) (define-method set_default_size (of-object "GtkWindow") (c-name "gtk_window_set_default_size") (return-type "none") (parameters '("gint" "width") '("gint" "height") ) ) (define-method get_default_size (of-object "GtkWindow") (c-name "gtk_window_get_default_size") (return-type "none") (parameters '("gint*" "width") '("gint*" "height") ) ) (define-method resize (of-object "GtkWindow") (c-name "gtk_window_resize") (return-type "none") (parameters '("gint" "width") '("gint" "height") ) ) (define-method get_size (of-object "GtkWindow") (c-name "gtk_window_get_size") (return-type "none") (parameters '("gint*" "width") '("gint*" "height") ) ) (define-method move (of-object "GtkWindow") (c-name "gtk_window_move") (return-type "none") (parameters '("gint" "x") '("gint" "y") ) ) (define-method get_position (of-object "GtkWindow") (c-name "gtk_window_get_position") (return-type "none") (parameters '("gint*" "root_x") '("gint*" "root_y") ) ) (define-method parse_geometry (of-object "GtkWindow") (c-name "gtk_window_parse_geometry") (return-type "gboolean") (parameters '("const-gchar*" "geometry") ) ) (define-method get_group (of-object "GtkWindow") (c-name "gtk_window_get_group") (return-type "GtkWindowGroup*") ) (define-method reshow_with_initial_size (of-object "GtkWindow") (c-name "gtk_window_reshow_with_initial_size") (return-type "none") ) (define-function gtk_window_group_get_type (c-name "gtk_window_group_get_type") (return-type "GType") ) (define-function gtk_window_group_new (c-name "gtk_window_group_new") (is-constructor-of "GtkWindowGroup") (return-type "GtkWindowGroup*") ) (define-method add_window (of-object "GtkWindowGroup") (c-name "gtk_window_group_add_window") (return-type "none") (parameters '("GtkWindow*" "window") ) ) (define-method remove_window (of-object "GtkWindowGroup") (c-name "gtk_window_group_remove_window") (return-type "none") (parameters '("GtkWindow*" "window") ) ) (define-method _internal_set_focus (of-object "GtkWindow") (c-name "_gtk_window_internal_set_focus") (return-type "none") (parameters '("GtkWidget*" "focus") ) ) (define-method remove_embedded_xid (of-object "GtkWindow") (c-name "gtk_window_remove_embedded_xid") (return-type "none") (parameters '("guint" "xid") ) ) (define-method add_embedded_xid (of-object "GtkWindow") (c-name "gtk_window_add_embedded_xid") (return-type "none") (parameters '("guint" "xid") ) ) (define-method _reposition (of-object "GtkWindow") (c-name "_gtk_window_reposition") (return-type "none") (parameters '("gint" "x") '("gint" "y") ) ) (define-method _constrain_size (of-object "GtkWindow") (c-name "_gtk_window_constrain_size") (return-type "none") (parameters '("gint" "width") '("gint" "height") '("gint*" "new_width") '("gint*" "new_height") ) ) (define-method _get_current_grab (of-object "GtkWindowGroup") (c-name "_gtk_window_group_get_current_grab") (return-type "GtkWidget*") ) (define-method _set_has_toplevel_focus (of-object "GtkWindow") (c-name "_gtk_window_set_has_toplevel_focus") (return-type "none") (parameters '("gboolean" "has_toplevel_focus") ) ) (define-method _unset_focus_and_default (of-object "GtkWindow") (c-name "_gtk_window_unset_focus_and_default") (return-type "none") (parameters '("GtkWidget*" "widget") ) ) (define-method _set_is_active (of-object "GtkWindow") (c-name "_gtk_window_set_is_active") (return-type "none") (parameters '("gboolean" "is_active") ) ) (define-method _keys_foreach (of-object "GtkWindow") (c-name "_gtk_window_keys_foreach") (return-type "none") (parameters '("GtkWindowKeysForeachFunc" "func") '("gpointer" "func_data") ) ) (define-method _query_nonaccels (of-object "GtkWindow") (c-name "_gtk_window_query_nonaccels") (return-type "gboolean") (parameters '("guint" "accel_key") '("GdkModifierType" "accel_mods") ) ) guile-gnome-platform-2.16.2/defs/gnome/defs/libgda.defs0000644000175000017500000011652411670374302023234 0ustar00wingowingo00000000000000;; -*- scheme -*- (include "libgda-types.defs") (include overrides) ;; From /usr/include/libgda/gda-client.h (define-function gda_client_get_type (c-name "gda_client_get_type") (return-type "GType") ) (define-function gda_client_new (c-name "gda_client_new") (is-constructor-of "GdaClient") (return-type "GdaClient*") ) (define-method open_connection (of-object "GdaClient") (c-name "gda_client_open_connection") (return-type "GdaConnection*") (parameters '("const-gchar*" "dsn") '("const-gchar*" "username" (null-ok)) '("const-gchar*" "password" (null-ok)) '("GdaConnectionOptions" "options") ) ) (define-method open_connection_from_string (of-object "GdaClient") (c-name "gda_client_open_connection_from_string") (return-type "GdaConnection*") (parameters '("const-gchar*" "provider_id") '("const-gchar*" "cnc_string") '("GdaConnectionOptions" "options") ) ) (define-method get_connection_list (of-object "GdaClient") (c-name "gda_client_get_connection_list") (return-type "const-GList*-of-GdaConnection*") ) (define-method find_connection (of-object "GdaClient") (c-name "gda_client_find_connection") (return-type "GdaConnection*") (parameters '("const-gchar*" "dsn") '("const-gchar*" "username") '("const-gchar*" "password") ) ) (define-method close_all_connections (of-object "GdaClient") (c-name "gda_client_close_all_connections") (return-type "none") ) (define-method notify_event (of-object "GdaClient") (c-name "gda_client_notify_event") (return-type "none") (parameters '("GdaConnection*" "cnc") '("GdaClientEvent" "event") '("GdaParameterList*" "params") ) ) (define-method notify_error_event (of-object "GdaClient") (c-name "gda_client_notify_error_event") (return-type "none") (parameters '("GdaConnection*" "cnc") '("GdaError*" "error") ) ) (define-method notify_connection_opened_event (of-object "GdaClient") (c-name "gda_client_notify_connection_opened_event") (return-type "none") (parameters '("GdaConnection*" "cnc") ) ) (define-method notify_transaction_started_event (of-object "GdaClient") (c-name "gda_client_notify_transaction_started_event") (return-type "none") (parameters '("GdaConnection*" "cnc") '("GdaTransaction*" "xaction") ) ) (define-method notify_transaction_committed_event (of-object "GdaClient") (c-name "gda_client_notify_transaction_committed_event") (return-type "none") (parameters '("GdaConnection*" "cnc") '("GdaTransaction*" "xaction") ) ) (define-method notify_transaction_cancelled_event (of-object "GdaClient") (c-name "gda_client_notify_transaction_cancelled_event") (return-type "none") (parameters '("GdaConnection*" "cnc") '("GdaTransaction*" "xaction") ) ) (define-method begin_transaction (of-object "GdaClient") (c-name "gda_client_begin_transaction") (return-type "gboolean") (parameters '("GdaTransaction*" "xaction") ) ) (define-method commit_transaction (of-object "GdaClient") (c-name "gda_client_commit_transaction") (return-type "gboolean") (parameters '("GdaTransaction*" "xaction") ) ) (define-method rollback_transaction (of-object "GdaClient") (c-name "gda_client_rollback_transaction") (return-type "gboolean") (parameters '("GdaTransaction*" "xaction") ) ) ;; From /usr/include/libgda/gda-command.h (define-function gda_command_new (c-name "gda_command_new") (is-constructor-of "GdaCommand") (return-type "GdaCommand*") (parameters '("const-gchar*" "text") '("GdaCommandType" "type") '("GdaCommandOptions" "options") ) ) (define-method free (of-object "GdaCommand") (c-name "gda_command_free") (return-type "none") ) (define-method get_text (of-object "GdaCommand") (c-name "gda_command_get_text") (return-type "const-gchar*") ) (define-method set_text (of-object "GdaCommand") (c-name "gda_command_set_text") (return-type "none") (parameters '("const-gchar*" "text") ) ) (define-method get_command_type (of-object "GdaCommand") (c-name "gda_command_get_command_type") (return-type "GdaCommandType") ) (define-method set_command_type (of-object "GdaCommand") (c-name "gda_command_set_command_type") (return-type "none") (parameters '("GdaCommandType" "type") ) ) (define-method get_options (of-object "GdaCommand") (c-name "gda_command_get_options") (return-type "GdaCommandOptions") ) (define-method set_options (of-object "GdaCommand") (c-name "gda_command_set_options") (return-type "none") (parameters '("GdaCommandOptions" "options") ) ) (define-method get_transaction (of-object "GdaCommand") (c-name "gda_command_get_transaction") (return-type "GdaTransaction*") ) (define-method set_transaction (of-object "GdaCommand") (c-name "gda_command_set_transaction") (return-type "none") (parameters '("GdaTransaction*" "xaction") ) ) ;; From /usr/include/libgda/gda-connection.h (define-function gda_connection_get_type (c-name "gda_connection_get_type") (return-type "GType") ) (define-function gda_connection_new (c-name "gda_connection_new") (is-constructor-of "GdaConnection") (return-type "GdaConnection*") (parameters '("GdaClient*" "client") '("GdaServerProvider*" "provider") '("const-gchar*" "dsn") '("const-gchar*" "username") '("const-gchar*" "password") '("GdaConnectionOptions" "options") ) ) (define-method close (of-object "GdaConnection") (c-name "gda_connection_close") (return-type "gboolean") ) (define-method is_open (of-object "GdaConnection") (c-name "gda_connection_is_open") (return-type "gboolean") ) (define-method get_client (of-object "GdaConnection") (c-name "gda_connection_get_client") (return-type "GdaClient*") ) (define-method set_client (of-object "GdaConnection") (c-name "gda_connection_set_client") (return-type "none") (parameters '("GdaClient*" "client") ) ) (define-method get_options (of-object "GdaConnection") (c-name "gda_connection_get_options") (return-type "GdaConnectionOptions") ) (define-method get_server_version (of-object "GdaConnection") (c-name "gda_connection_get_server_version") (return-type "const-gchar*") ) (define-method get_database (of-object "GdaConnection") (c-name "gda_connection_get_database") (return-type "const-gchar*") ) (define-method get_dsn (of-object "GdaConnection") (c-name "gda_connection_get_dsn") (return-type "const-gchar*") ) (define-method get_cnc_string (of-object "GdaConnection") (c-name "gda_connection_get_cnc_string") (return-type "const-gchar*") ) (define-method get_provider (of-object "GdaConnection") (c-name "gda_connection_get_provider") (return-type "const-gchar*") ) (define-method get_username (of-object "GdaConnection") (c-name "gda_connection_get_username") (return-type "const-gchar*") ) (define-method get_password (of-object "GdaConnection") (c-name "gda_connection_get_password") (return-type "const-gchar*") ) (define-method add_error (of-object "GdaConnection") (c-name "gda_connection_add_error") (return-type "none") (parameters '("GdaError*" "error") ) ) (define-method add_error_string (of-object "GdaConnection") (c-name "gda_connection_add_error_string") (return-type "none") (parameters '("const-gchar*" "str") ) (varargs #t) ) (define-method add_error_list (of-object "GdaConnection") (c-name "gda_connection_add_error_list") (return-type "none") (parameters '("GList*-of-GdaError*" "error_list") ) ) (define-method change_database (of-object "GdaConnection") (c-name "gda_connection_change_database") (return-type "gboolean") (parameters '("const-gchar*" "name") ) ) (define-method create_database (of-object "GdaConnection") (c-name "gda_connection_create_database") (return-type "gboolean") (parameters '("const-gchar*" "name") ) ) (define-method drop_database (of-object "GdaConnection") (c-name "gda_connection_drop_database") (return-type "gboolean") (parameters '("const-gchar*" "name") ) ) (define-method execute_command (of-object "GdaConnection") (c-name "gda_connection_execute_command") (return-type "GList*-of-GdaDataModel*") (parameters '("GdaCommand*" "cmd") '("GdaParameterList*" "params") ) ) (define-method execute_single_command (of-object "GdaConnection") (c-name "gda_connection_execute_single_command") (return-type "GdaDataModel*") (parameters '("GdaCommand*" "cmd") '("GdaParameterList*" "params") ) ) (define-method execute_non_query (of-object "GdaConnection") (c-name "gda_connection_execute_non_query") (return-type "gint") (parameters '("GdaCommand*" "cmd") '("GdaParameterList*" "params") ) ) (define-method begin_transaction (of-object "GdaConnection") (c-name "gda_connection_begin_transaction") (return-type "gboolean") (parameters '("GdaTransaction*" "xaction") ) ) (define-method commit_transaction (of-object "GdaConnection") (c-name "gda_connection_commit_transaction") (return-type "gboolean") (parameters '("GdaTransaction*" "xaction") ) ) (define-method rollback_transaction (of-object "GdaConnection") (c-name "gda_connection_rollback_transaction") (return-type "gboolean") (parameters '("GdaTransaction*" "xaction") ) ) (define-method get_errors (of-object "GdaConnection") (c-name "gda_connection_get_errors") (return-type "const-GList*-of-GdaError*") ) (define-method supports (of-object "GdaConnection") (c-name "gda_connection_supports") (return-type "gboolean") (parameters '("GdaConnectionFeature" "feature") ) ) (define-method get_schema (of-object "GdaConnection") (c-name "gda_connection_get_schema") (return-type "GdaDataModel*") (parameters '("GdaConnectionSchema" "schema") '("GdaParameterList*" "params") ) ) ;; From /usr/include/libgda/gda-data-model-array.h (define-function gda_data_model_array_get_type (c-name "gda_data_model_array_get_type") (return-type "GType") ) (define-function gda_data_model_array_new (c-name "gda_data_model_array_new") (is-constructor-of "GdaDataModelArray") (return-type "GdaDataModel*") (parameters '("gint" "cols") ) ) (define-method set_n_columns (of-object "GdaDataModelArray") (c-name "gda_data_model_array_set_n_columns") (return-type "none") (parameters '("gint" "cols") ) ) (define-method clear (of-object "GdaDataModelArray") (c-name "gda_data_model_array_clear") (return-type "none") ) ;; From /usr/include/libgda/gda-data-model-hash.h (define-function gda_data_model_hash_get_type (c-name "gda_data_model_hash_get_type") (return-type "GType") ) (define-function gda_data_model_hash_new (c-name "gda_data_model_hash_new") (is-constructor-of "GdaDataModelHash") (return-type "GdaDataModel*") (parameters '("gint" "cols") ) ) (define-method hash_get_value_at (of-object "GdaDataModel") (c-name "gda_data_model_hash_get_value_at") (return-type "const-GdaValue*") (parameters '("gint" "col") '("gint" "row") ) ) (define-method clear (of-object "GdaDataModelHash") (c-name "gda_data_model_hash_clear") (return-type "none") ) (define-method set_n_columns (of-object "GdaDataModelHash") (c-name "gda_data_model_hash_set_n_columns") (return-type "none") (parameters '("gint" "cols") ) ) (define-method insert_row (of-object "GdaDataModelHash") (c-name "gda_data_model_hash_insert_row") (return-type "none") (parameters '("gint" "rownum") '("GdaRow*" "row") ) ) (define-method hash_get_row (of-object "GdaDataModel") (c-name "gda_data_model_hash_get_row") (return-type "const-GdaRow*") (parameters '("gint" "row") ) ) ;; From /usr/include/libgda/gda-data-model-list.h (define-function gda_data_model_list_get_type (c-name "gda_data_model_list_get_type") (return-type "GType") ) (define-function gda_data_model_list_new (c-name "gda_data_model_list_new") (is-constructor-of "GdaDataModelList") (return-type "GdaDataModel*") ) (define-function gda_data_model_list_new_from_string_list (c-name "gda_data_model_list_new_from_string_list") (return-type "GdaDataModel*") (parameters '("GList*-of-const-gchar*" "list") ) ) (define-method append_value (of-object "GdaDataModelList") (c-name "gda_data_model_list_append_value") (return-type "const-GdaRow*") (parameters '("const-GdaValue*" "value") ) ) ;; From /usr/include/libgda/gda-data-model.h (define-function gda_data_model_get_type (c-name "gda_data_model_get_type") (return-type "GType") ) (define-method changed (of-object "GdaDataModel") (c-name "gda_data_model_changed") (return-type "none") ) (define-method row_inserted (of-object "GdaDataModel") (c-name "gda_data_model_row_inserted") (return-type "none") (parameters '("gint" "row") ) ) (define-method row_updated (of-object "GdaDataModel") (c-name "gda_data_model_row_updated") (return-type "none") (parameters '("gint" "row") ) ) (define-method row_removed (of-object "GdaDataModel") (c-name "gda_data_model_row_removed") (return-type "none") (parameters '("gint" "row") ) ) (define-method freeze (of-object "GdaDataModel") (c-name "gda_data_model_freeze") (return-type "none") ) (define-method thaw (of-object "GdaDataModel") (c-name "gda_data_model_thaw") (return-type "none") ) (define-method get_n_rows (of-object "GdaDataModel") (c-name "gda_data_model_get_n_rows") (return-type "gint") ) (define-method get_n_columns (of-object "GdaDataModel") (c-name "gda_data_model_get_n_columns") (return-type "gint") ) (define-method describe_column (of-object "GdaDataModel") (c-name "gda_data_model_describe_column") (return-type "GdaFieldAttributes*") (parameters '("gint" "col") ) ) (define-method get_column_title (of-object "GdaDataModel") (c-name "gda_data_model_get_column_title") (return-type "const-gchar*") (parameters '("gint" "col") ) ) (define-method set_column_title (of-object "GdaDataModel") (c-name "gda_data_model_set_column_title") (return-type "none") (parameters '("gint" "col") '("const-gchar*" "title") ) ) (define-method get_column_position (of-object "GdaDataModel") (c-name "gda_data_model_get_column_position") (return-type "gint") (parameters '("const-gchar*" "title") ) ) (define-method get_row (of-object "GdaDataModel") (c-name "gda_data_model_get_row") (return-type "const-GdaRow*") (parameters '("gint" "row") ) ) (define-method get_value_at (of-object "GdaDataModel") (c-name "gda_data_model_get_value_at") (return-type "const-GdaValue*") (parameters '("gint" "col") '("gint" "row") ) ) (define-method is_editable (of-object "GdaDataModel") (c-name "gda_data_model_is_editable") (return-type "gboolean") ) (define-method append_row (of-object "GdaDataModel") (c-name "gda_data_model_append_row") (return-type "const-GdaRow*") (parameters '("GList*-of-GdaValue*" "values") ) ) (define-method remove_row (of-object "GdaDataModel") (c-name "gda_data_model_remove_row") (return-type "gboolean") (parameters '("const-GdaRow*" "row") ) ) (define-method update_row (of-object "GdaDataModel") (c-name "gda_data_model_update_row") (return-type "gboolean") (parameters '("const-GdaRow*" "row") ) ) (define-method foreach (of-object "GdaDataModel") (c-name "gda_data_model_foreach") (return-type "none") (parameters '("GdaDataModelForeachFunc" "func") '("gpointer" "user_data") ) ) (define-method is_editing (of-object "GdaDataModel") (c-name "gda_data_model_is_editing") (return-type "gboolean") ) (define-method begin_edit (of-object "GdaDataModel") (c-name "gda_data_model_begin_edit") (return-type "gboolean") ) (define-method cancel_edit (of-object "GdaDataModel") (c-name "gda_data_model_cancel_edit") (return-type "gboolean") ) (define-method end_edit (of-object "GdaDataModel") (c-name "gda_data_model_end_edit") (return-type "gboolean") ) (define-method to_comma_separated (of-object "GdaDataModel") (c-name "gda_data_model_to_comma_separated") (return-type "gchar*") ) (define-method to_tab_separated (of-object "GdaDataModel") (c-name "gda_data_model_to_tab_separated") (return-type "gchar*") ) (define-method to_xml (of-object "GdaDataModel") (c-name "gda_data_model_to_xml") (return-type "gchar*") (parameters '("gboolean" "standalone") ) ) (define-method to_xml_node (of-object "GdaDataModel") (c-name "gda_data_model_to_xml_node") (return-type "xmlNodePtr") (parameters '("const-gchar*" "name") ) ) (define-method get_command_text (of-object "GdaDataModel") (c-name "gda_data_model_get_command_text") (return-type "const-gchar*") ) (define-method set_command_text (of-object "GdaDataModel") (c-name "gda_data_model_set_command_text") (return-type "none") (parameters '("const-gchar*" "txt") ) ) (define-method get_command_type (of-object "GdaDataModel") (c-name "gda_data_model_get_command_type") (return-type "GdaCommandType") ) (define-method set_command_type (of-object "GdaDataModel") (c-name "gda_data_model_set_command_type") (return-type "none") (parameters '("GdaCommandType" "type") ) ) ;; From /usr/include/libgda/gda-error.h (define-function gda_error_get_type (c-name "gda_error_get_type") (return-type "GType") ) (define-function gda_error_new (c-name "gda_error_new") (is-constructor-of "GdaError") (return-type "GdaError*") ) (define-method free (of-object "GdaError") (c-name "gda_error_free") (return-type "none") ) (define-function gda_error_list_copy (c-name "gda_error_list_copy") (return-type "GList*-of-GdaError*") (parameters '("GList*-of-GdaError*" "errors") ) ) (define-function gda_error_list_free (c-name "gda_error_list_free") (return-type "none") (parameters '("GList*-of-GdaError*" "errors") ) ) (define-method get_description (of-object "GdaError") (c-name "gda_error_get_description") (return-type "const-gchar*") ) (define-method set_description (of-object "GdaError") (c-name "gda_error_set_description") (return-type "none") (parameters '("const-gchar*" "description") ) ) (define-method get_number (of-object "GdaError") (c-name "gda_error_get_number") (return-type "glong") ) (define-method set_number (of-object "GdaError") (c-name "gda_error_set_number") (return-type "none") (parameters '("glong" "number") ) ) (define-method get_source (of-object "GdaError") (c-name "gda_error_get_source") (return-type "const-gchar*") ) (define-method set_source (of-object "GdaError") (c-name "gda_error_set_source") (return-type "none") (parameters '("const-gchar*" "source") ) ) (define-method get_sqlstate (of-object "GdaError") (c-name "gda_error_get_sqlstate") (return-type "const-gchar*") ) (define-method set_sqlstate (of-object "GdaError") (c-name "gda_error_set_sqlstate") (return-type "none") (parameters '("const-gchar*" "sqlstate") ) ) ;; From /usr/include/libgda/gda-quark-list.h (define-function gda_quark_list_new_from_string (c-name "gda_quark_list_new_from_string") (return-type "GdaQuarkList*") (parameters '("const-gchar*" "string") ) ) (define-method free (of-object "GdaQuarkList") (c-name "gda_quark_list_free") (return-type "none") ) (define-method add_from_string (of-object "GdaQuarkList") (c-name "gda_quark_list_add_from_string") (return-type "none") (parameters '("const-gchar*" "string") '("gboolean" "cleanup") ) ) (define-method find (of-object "GdaQuarkList") (c-name "gda_quark_list_find") (return-type "const-gchar*") (parameters '("const-gchar*" "name") ) ) (define-method remove (of-object "GdaQuarkList") (c-name "gda_quark_list_remove") (return-type "none") (parameters '("const-gchar*" "name") ) ) ;; From /usr/include/libgda/gda-row.h (define-function gda_row_new_from_list (c-name "gda_row_new_from_list") (return-type "GdaRow*") (parameters '("GdaDataModel*" "model") '("GList*-of-GdaValue*" "values") ) ) (define-method free (of-object "GdaRow") (c-name "gda_row_free") (return-type "none") ) (define-method get_model (of-object "GdaRow") (c-name "gda_row_get_model") (return-type "GdaDataModel*") ) (define-method get_number (of-object "GdaRow") (c-name "gda_row_get_number") (return-type "gint") ) (define-method set_number (of-object "GdaRow") (c-name "gda_row_set_number") (return-type "none") (parameters '("gint" "number") ) ) (define-method get_id (of-object "GdaRow") (c-name "gda_row_get_id") (return-type "const-gchar*") ) (define-method set_id (of-object "GdaRow") (c-name "gda_row_set_id") (return-type "none") (parameters '("const-gchar*" "id") ) ) (define-method get_value (of-object "GdaRow") (c-name "gda_row_get_value") (return-type "const-GdaValue*") (parameters '("gint" "num") ) ) (define-method get_length (of-object "GdaRow") (c-name "gda_row_get_length") (return-type "gint") ) ;; From /usr/include/libgda/gda-select.h (define-function gda_select_get_type (c-name "gda_select_get_type") (return-type "GType") ) (define-function gda_select_new (c-name "gda_select_new") (is-constructor-of "GdaSelect") (return-type "GdaDataModel*") ) (define-method add_source (of-object "GdaSelect") (c-name "gda_select_add_source") (return-type "none") (parameters '("const-gchar*" "name") '("GdaDataModel*" "source") ) ) (define-method set_sql (of-object "GdaSelect") (c-name "gda_select_set_sql") (return-type "none") (parameters '("const-gchar*" "sql") ) ) (define-method run (of-object "GdaSelect") (c-name "gda_select_run") (return-type "gboolean") ) ;; From /usr/include/libgda/gda-server-provider.h (define-function gda_server_provider_get_type (c-name "gda_server_provider_get_type") (return-type "GType") ) (define-method get_version (of-object "GdaServerProvider") (c-name "gda_server_provider_get_version") (return-type "const-gchar*") ) (define-method open_connection (of-object "GdaServerProvider") (c-name "gda_server_provider_open_connection") (return-type "gboolean") (parameters '("GdaConnection*" "cnc") '("GdaQuarkList*" "params") '("const-gchar*" "username") '("const-gchar*" "password") ) ) (define-method close_connection (of-object "GdaServerProvider") (c-name "gda_server_provider_close_connection") (return-type "gboolean") (parameters '("GdaConnection*" "cnc") ) ) (define-method get_server_version (of-object "GdaServerProvider") (c-name "gda_server_provider_get_server_version") (return-type "const-gchar*") (parameters '("GdaConnection*" "cnc") ) ) (define-method get_database (of-object "GdaServerProvider") (c-name "gda_server_provider_get_database") (return-type "const-gchar*") (parameters '("GdaConnection*" "cnc") ) ) (define-method change_database (of-object "GdaServerProvider") (c-name "gda_server_provider_change_database") (return-type "gboolean") (parameters '("GdaConnection*" "cnc") '("const-gchar*" "name") ) ) (define-method create_database (of-object "GdaServerProvider") (c-name "gda_server_provider_create_database") (return-type "gboolean") (parameters '("GdaConnection*" "cnc") '("const-gchar*" "name") ) ) (define-method drop_database (of-object "GdaServerProvider") (c-name "gda_server_provider_drop_database") (return-type "gboolean") (parameters '("GdaConnection*" "cnc") '("const-gchar*" "name") ) ) (define-method execute_command (of-object "GdaServerProvider") (c-name "gda_server_provider_execute_command") (return-type "GList*") (parameters '("GdaConnection*" "cnc") '("GdaCommand*" "cmd") '("GdaParameterList*" "params") ) ) (define-method begin_transaction (of-object "GdaServerProvider") (c-name "gda_server_provider_begin_transaction") (return-type "gboolean") (parameters '("GdaConnection*" "cnc") '("GdaTransaction*" "xaction") ) ) (define-method commit_transaction (of-object "GdaServerProvider") (c-name "gda_server_provider_commit_transaction") (return-type "gboolean") (parameters '("GdaConnection*" "cnc") '("GdaTransaction*" "xaction") ) ) (define-method rollback_transaction (of-object "GdaServerProvider") (c-name "gda_server_provider_rollback_transaction") (return-type "gboolean") (parameters '("GdaConnection*" "cnc") '("GdaTransaction*" "xaction") ) ) (define-method supports (of-object "GdaServerProvider") (c-name "gda_server_provider_supports") (return-type "gboolean") (parameters '("GdaConnection*" "cnc") '("GdaConnectionFeature" "feature") ) ) (define-method get_schema (of-object "GdaServerProvider") (c-name "gda_server_provider_get_schema") (return-type "GdaDataModel*") (parameters '("GdaConnection*" "cnc") '("GdaConnectionSchema" "schema") '("GdaParameterList*" "params") ) ) ;; From /usr/include/libgda/gda-table.h (define-function gda_table_get_type (c-name "gda_table_get_type") (return-type "GType") ) (define-function gda_table_new (c-name "gda_table_new") (is-constructor-of "GdaTable") (return-type "GdaTable*") (parameters '("const-gchar*" "name") ) ) (define-function gda_table_new_from_model (c-name "gda_table_new_from_model") (return-type "GdaTable*") (parameters '("const-gchar*" "name") '("const-GdaDataModel*" "model") '("gboolean" "add_data") ) ) (define-method get_name (of-object "GdaTable") (c-name "gda_table_get_name") (return-type "const-gchar*") ) (define-method set_name (of-object "GdaTable") (c-name "gda_table_set_name") (return-type "none") (parameters '("const-gchar*" "name") ) ) (define-method add_field (of-object "GdaTable") (c-name "gda_table_add_field") (return-type "none") (parameters '("const-GdaFieldAttributes*" "fa") ) ) (define-method add_data_from_model (of-object "GdaTable") (c-name "gda_table_add_data_from_model") (return-type "none") (parameters '("const-GdaDataModel*" "model") ) ) ;; From /usr/include/libgda/gda-transaction.h (define-function gda_transaction_get_type (c-name "gda_transaction_get_type") (return-type "GType") ) (define-function gda_transaction_new (c-name "gda_transaction_new") (is-constructor-of "GdaTransaction") (return-type "GdaTransaction*") (parameters '("const-gchar*" "name") ) ) (define-method get_isolation_level (of-object "GdaTransaction") (c-name "gda_transaction_get_isolation_level") (return-type "GdaTransactionIsolation") ) (define-method set_isolation_level (of-object "GdaTransaction") (c-name "gda_transaction_set_isolation_level") (return-type "none") (parameters '("GdaTransactionIsolation" "level") ) ) (define-method get_name (of-object "GdaTransaction") (c-name "gda_transaction_get_name") (return-type "const-gchar*") ) (define-method set_name (of-object "GdaTransaction") (c-name "gda_transaction_set_name") (return-type "none") (parameters '("const-gchar*" "name") ) ) ;; From /usr/include/libgda/gda-util.h (define-function gda_type_from_string (c-name "gda_type_from_string") (return-type "GdaValueType") (parameters '("const-gchar*" "str") ) ) (define-function gda_string_hash_to_list (c-name "gda_string_hash_to_list") (return-type "GList*-of-const-gchar*") (parameters '("GHashTable*" "hash_table") ) ) (define-function gda_sql_replace_placeholders (c-name "gda_sql_replace_placeholders") (return-type "gchar*") (parameters '("const-gchar*" "sql") '("GdaParameterList*" "params") ) ) (define-function gda_file_load (c-name "gda_file_load") (return-type "gchar*") (parameters '("const-gchar*" "filename") ) ) (define-function gda_file_save (c-name "gda_file_save") (return-type "gboolean") (parameters '("const-gchar*" "filename") '("const-gchar*" "buffer") '("gint" "len") ) ) ;; From /usr/include/libgda/gda-value.h (define-function gda_value_new_null (c-name "gda_value_new_null") (return-type "GdaValue*") ) (define-function gda_value_new_bigint (c-name "gda_value_new_bigint") (return-type "GdaValue*") (parameters '("gint64" "val") ) ) (define-function gda_value_new_biguint (c-name "gda_value_new_biguint") (return-type "GdaValue*") (parameters '("guint64" "val") ) ) (define-function gda_value_new_binary (c-name "gda_value_new_binary") (return-type "GdaValue*") (parameters '("gconstpointer" "val") '("glong" "size") ) ) (define-function gda_value_new_boolean (c-name "gda_value_new_boolean") (return-type "GdaValue*") (parameters '("gboolean" "val") ) ) (define-function gda_value_new_date (c-name "gda_value_new_date") (return-type "GdaValue*") (parameters '("const-GdaDate*" "val") ) ) (define-function gda_value_new_double (c-name "gda_value_new_double") (return-type "GdaValue*") (parameters '("gdouble" "val") ) ) (define-function gda_value_new_geometric_point (c-name "gda_value_new_geometric_point") (return-type "GdaValue*") (parameters '("const-GdaGeometricPoint*" "val") ) ) (define-function gda_value_new_gobject (c-name "gda_value_new_gobject") (return-type "GdaValue*") (parameters '("const-GObject*" "val") ) ) (define-function gda_value_new_integer (c-name "gda_value_new_integer") (return-type "GdaValue*") (parameters '("gint" "val") ) ) (define-function gda_value_new_list (c-name "gda_value_new_list") (return-type "GdaValue*") (parameters '("const-GdaValueList*" "val") ) ) (define-function gda_value_new_money (c-name "gda_value_new_money") (return-type "GdaValue*") (parameters '("const-GdaMoney*" "val") ) ) (define-function gda_value_new_numeric (c-name "gda_value_new_numeric") (return-type "GdaValue*") (parameters '("const-GdaNumeric*" "val") ) ) (define-function gda_value_new_single (c-name "gda_value_new_single") (return-type "GdaValue*") (parameters '("gfloat" "val") ) ) (define-function gda_value_new_smallint (c-name "gda_value_new_smallint") (return-type "GdaValue*") (parameters '("gshort" "val") ) ) (define-function gda_value_new_smalluint (c-name "gda_value_new_smalluint") (return-type "GdaValue*") (parameters '("gushort" "val") ) ) (define-function gda_value_new_string (c-name "gda_value_new_string") (return-type "GdaValue*") (parameters '("const-gchar*" "val") ) ) (define-function gda_value_new_time (c-name "gda_value_new_time") (return-type "GdaValue*") (parameters '("const-GdaTime*" "val") ) ) (define-function gda_value_new_timestamp (c-name "gda_value_new_timestamp") (return-type "GdaValue*") (parameters '("const-GdaTimestamp*" "val") ) ) (define-function gda_value_new_timestamp_from_timet (c-name "gda_value_new_timestamp_from_timet") (return-type "GdaValue*") (parameters '("time_t" "val") ) ) (define-function gda_value_new_tinyint (c-name "gda_value_new_tinyint") (return-type "GdaValue*") (parameters '("gchar" "val") ) ) (define-function gda_value_new_tinyuint (c-name "gda_value_new_tinyuint") (return-type "GdaValue*") (parameters '("guchar" "val") ) ) (define-function gda_value_new_type (c-name "gda_value_new_type") (return-type "GdaValue*") (parameters '("GdaValueType" "val") ) ) (define-function gda_value_new_uinteger (c-name "gda_value_new_uinteger") (return-type "GdaValue*") (parameters '("guint" "val") ) ) (define-function gda_value_new_from_string (c-name "gda_value_new_from_string") (return-type "GdaValue*") (parameters '("const-gchar*" "as_string") '("GdaValueType" "type") ) ) (define-function gda_value_new_from_xml (c-name "gda_value_new_from_xml") (return-type "GdaValue*") (parameters '("const-xmlNodePtr" "node") ) ) (define-method free (of-object "GdaValue") (c-name "gda_value_free") (return-type "none") ) (define-method get_type (of-object "GdaValue") (c-name "gda_value_get_type") (return-type "GdaValueType") ) (define-method is_null (of-object "GdaValue") (c-name "gda_value_is_null") (return-type "gboolean") ) (define-method is_number (of-object "GdaValue") (c-name "gda_value_is_number") (return-type "gboolean") ) (define-method copy (of-object "GdaValue") (c-name "gda_value_copy") (return-type "GdaValue*") ) (define-method get_bigint (of-object "GdaValue") (c-name "gda_value_get_bigint") (return-type "gint64") ) (define-method set_bigint (of-object "GdaValue") (c-name "gda_value_set_bigint") (return-type "none") (parameters '("gint64" "val") ) ) (define-method get_biguint (of-object "GdaValue") (c-name "gda_value_get_biguint") (return-type "guint64") ) (define-method set_biguint (of-object "GdaValue") (c-name "gda_value_set_biguint") (return-type "none") (parameters '("guint64" "val") ) ) (define-method get_binary (of-object "GdaValue") (c-name "gda_value_get_binary") (return-type "const-gpointer") (parameters '("glong*" "size") ) ) (define-method set_binary (of-object "GdaValue") (c-name "gda_value_set_binary") (return-type "none") (parameters '("gconstpointer" "val") '("glong" "size") ) ) (define-method get_boolean (of-object "GdaValue") (c-name "gda_value_get_boolean") (return-type "gboolean") ) (define-method set_boolean (of-object "GdaValue") (c-name "gda_value_set_boolean") (return-type "none") (parameters '("gboolean" "val") ) ) (define-method get_date (of-object "GdaValue") (c-name "gda_value_get_date") (return-type "const-GdaDate*") ) (define-method set_date (of-object "GdaValue") (c-name "gda_value_set_date") (return-type "none") (parameters '("const-GdaDate*" "val") ) ) (define-method get_double (of-object "GdaValue") (c-name "gda_value_get_double") (return-type "gdouble") ) (define-method set_double (of-object "GdaValue") (c-name "gda_value_set_double") (return-type "none") (parameters '("gdouble" "val") ) ) (define-method get_geometric_point (of-object "GdaValue") (c-name "gda_value_get_geometric_point") (return-type "const-GdaGeometricPoint*") ) (define-method set_geometric_point (of-object "GdaValue") (c-name "gda_value_set_geometric_point") (return-type "none") (parameters '("const-GdaGeometricPoint*" "val") ) ) (define-method get_gobject (of-object "GdaValue") (c-name "gda_value_get_gobject") (return-type "const-GObject*") ) (define-method set_gobject (of-object "GdaValue") (c-name "gda_value_set_gobject") (return-type "none") (parameters '("const-GObject*" "val") ) ) (define-method get_integer (of-object "GdaValue") (c-name "gda_value_get_integer") (return-type "gint") ) (define-method set_integer (of-object "GdaValue") (c-name "gda_value_set_integer") (return-type "none") (parameters '("gint" "val") ) ) (define-method get_list (of-object "GdaValue") (c-name "gda_value_get_list") (return-type "const-GdaValueList*") ) (define-method set_list (of-object "GdaValue") (c-name "gda_value_set_list") (return-type "none") (parameters '("const-GdaValueList*" "val") ) ) (define-method set_null (of-object "GdaValue") (c-name "gda_value_set_null") (return-type "none") ) (define-method get_money (of-object "GdaValue") (c-name "gda_value_get_money") (return-type "const-GdaMoney*") ) (define-method set_money (of-object "GdaValue") (c-name "gda_value_set_money") (return-type "none") (parameters '("const-GdaMoney*" "val") ) ) (define-method get_numeric (of-object "GdaValue") (c-name "gda_value_get_numeric") (return-type "const-GdaNumeric*") ) (define-method set_numeric (of-object "GdaValue") (c-name "gda_value_set_numeric") (return-type "none") (parameters '("const-GdaNumeric*" "val") ) ) (define-method get_single (of-object "GdaValue") (c-name "gda_value_get_single") (return-type "gfloat") ) (define-method set_single (of-object "GdaValue") (c-name "gda_value_set_single") (return-type "none") (parameters '("gfloat" "val") ) ) (define-method get_smallint (of-object "GdaValue") (c-name "gda_value_get_smallint") (return-type "gshort") ) (define-method set_smallint (of-object "GdaValue") (c-name "gda_value_set_smallint") (return-type "none") (parameters '("gshort" "val") ) ) (define-method get_smalluint (of-object "GdaValue") (c-name "gda_value_get_smalluint") (return-type "gushort") ) (define-method set_smalluint (of-object "GdaValue") (c-name "gda_value_set_smalluint") (return-type "none") (parameters '("gushort" "val") ) ) (define-method get_string (of-object "GdaValue") (c-name "gda_value_get_string") (return-type "const-gchar*") ) (define-method set_string (of-object "GdaValue") (c-name "gda_value_set_string") (return-type "none") (parameters '("const-gchar*" "val") ) ) (define-method get_time (of-object "GdaValue") (c-name "gda_value_get_time") (return-type "const-GdaTime*") ) (define-method set_time (of-object "GdaValue") (c-name "gda_value_set_time") (return-type "none") (parameters '("const-GdaTime*" "val") ) ) (define-method get_timestamp (of-object "GdaValue") (c-name "gda_value_get_timestamp") (return-type "const-GdaTimestamp*") ) (define-method set_timestamp (of-object "GdaValue") (c-name "gda_value_set_timestamp") (return-type "none") (parameters '("const-GdaTimestamp*" "val") ) ) (define-method get_tinyint (of-object "GdaValue") (c-name "gda_value_get_tinyint") (return-type "gchar") ) (define-method set_tinyint (of-object "GdaValue") (c-name "gda_value_set_tinyint") (return-type "none") (parameters '("gchar" "val") ) ) (define-method get_tinyuint (of-object "GdaValue") (c-name "gda_value_get_tinyuint") (return-type "guchar") ) (define-method set_tinyuint (of-object "GdaValue") (c-name "gda_value_set_tinyuint") (return-type "none") (parameters '("guchar" "val") ) ) (define-method get_uinteger (of-object "GdaValue") (c-name "gda_value_get_uinteger") (return-type "guint") ) (define-method set_uinteger (of-object "GdaValue") (c-name "gda_value_set_uinteger") (return-type "none") (parameters '("guint" "val") ) ) (define-method get_vtype (of-object "GdaValue") (c-name "gda_value_get_vtype") (return-type "GdaValueType") ) (define-method set_vtype (of-object "GdaValue") (c-name "gda_value_set_vtype") (return-type "none") (parameters '("GdaValueType" "type") ) ) (define-method set_from_string (of-object "GdaValue") (c-name "gda_value_set_from_string") (return-type "gboolean") (parameters '("const-gchar*" "as_string") '("GdaValueType" "type") ) ) (define-method set_from_value (of-object "GdaValue") (c-name "gda_value_set_from_value") (return-type "gboolean") (parameters '("const-GdaValue*" "from") ) ) (define-method compare (of-object "GdaValue") (c-name "gda_value_compare") (return-type "gint") (parameters '("const-GdaValue*" "value2") ) ) (define-method stringify (of-object "GdaValue") (c-name "gda_value_stringify") (return-type "gchar*") ) (define-method to_xml (of-object "GdaValue") (c-name "gda_value_to_xml") (return-type "xmlNodePtr") ) ;; From /usr/include/libgda/libgda.h (define-function gda_main_run (c-name "gda_main_run") (return-type "none") (parameters '("GdaInitFunc" "init_func") '("gpointer" "user_data") ) ) (define-function gda_main_quit (c-name "gda_main_quit") (return-type "none") ) guile-gnome-platform-2.16.2/defs/gnome/defs/gdk-pixbuf.defs0000644000175000017500000003547011670374302024052 0ustar00wingowingo00000000000000;; -*- scheme -*- (include "gdk-pixbuf-types.defs") (include overrides) ;; From /usr/include/gtk-2.0/gdk-pixbuf/gdk-pixbuf-animation.h (define-function gdk_pixbuf_animation_get_type (c-name "gdk_pixbuf_animation_get_type") (return-type "GType") ) (define-function gdk_pixbuf_animation_new_from_file (c-name "gdk_pixbuf_animation_new_from_file") (return-type "GdkPixbufAnimation*") (parameters '("const-char*" "filename") '("GError**" "error") ) ) (define-method ref (of-object "GdkPixbufAnimation") (c-name "gdk_pixbuf_animation_ref") (return-type "GdkPixbufAnimation*") ) (define-method unref (of-object "GdkPixbufAnimation") (c-name "gdk_pixbuf_animation_unref") (return-type "none") ) (define-method get_width (of-object "GdkPixbufAnimation") (c-name "gdk_pixbuf_animation_get_width") (return-type "int") ) (define-method get_height (of-object "GdkPixbufAnimation") (c-name "gdk_pixbuf_animation_get_height") (return-type "int") ) (define-method is_static_image (of-object "GdkPixbufAnimation") (c-name "gdk_pixbuf_animation_is_static_image") (return-type "gboolean") ) (define-method get_static_image (of-object "GdkPixbufAnimation") (c-name "gdk_pixbuf_animation_get_static_image") (return-type "GdkPixbuf*") ) (define-method get_iter (of-object "GdkPixbufAnimation") (c-name "gdk_pixbuf_animation_get_iter") (return-type "GdkPixbufAnimationIter*") (parameters '("const-GTimeVal*" "start_time") ) ) (define-function gdk_pixbuf_animation_iter_get_type (c-name "gdk_pixbuf_animation_iter_get_type") (return-type "GType") ) (define-method get_delay_time (of-object "GdkPixbufAnimationIter") (c-name "gdk_pixbuf_animation_iter_get_delay_time") (return-type "int") ) (define-method get_pixbuf (of-object "GdkPixbufAnimationIter") (c-name "gdk_pixbuf_animation_iter_get_pixbuf") (return-type "GdkPixbuf*") ) (define-method on_currently_loading_frame (of-object "GdkPixbufAnimationIter") (c-name "gdk_pixbuf_animation_iter_on_currently_loading_frame") (return-type "gboolean") ) (define-method advance (of-object "GdkPixbufAnimationIter") (c-name "gdk_pixbuf_animation_iter_advance") (return-type "gboolean") (parameters '("const-GTimeVal*" "current_time") ) ) (define-method non_anim_new (of-object "GdkPixbuf") (c-name "gdk_pixbuf_non_anim_new") (return-type "GdkPixbufAnimation*") ) ;; From /usr/include/gtk-2.0/gdk-pixbuf/gdk-pixbuf-core.h (define-function gdk_pixbuf_error_quark (c-name "gdk_pixbuf_error_quark") (return-type "GQuark") ) (define-function gdk_pixbuf_get_type (c-name "gdk_pixbuf_get_type") (return-type "GType") ) (define-method ref (of-object "GdkPixbuf") (c-name "gdk_pixbuf_ref") (return-type "GdkPixbuf*") ) (define-method unref (of-object "GdkPixbuf") (c-name "gdk_pixbuf_unref") (return-type "none") ) (define-method get_colorspace (of-object "GdkPixbuf") (c-name "gdk_pixbuf_get_colorspace") (return-type "GdkColorspace") ) (define-method get_n_channels (of-object "GdkPixbuf") (c-name "gdk_pixbuf_get_n_channels") (return-type "int") ) (define-method get_has_alpha (of-object "GdkPixbuf") (c-name "gdk_pixbuf_get_has_alpha") (return-type "gboolean") ) (define-method get_bits_per_sample (of-object "GdkPixbuf") (c-name "gdk_pixbuf_get_bits_per_sample") (return-type "int") ) (define-method get_pixels (of-object "GdkPixbuf") (c-name "gdk_pixbuf_get_pixels") (return-type "guchar*") ) (define-method get_width (of-object "GdkPixbuf") (c-name "gdk_pixbuf_get_width") (return-type "int") ) (define-method get_height (of-object "GdkPixbuf") (c-name "gdk_pixbuf_get_height") (return-type "int") ) (define-method get_rowstride (of-object "GdkPixbuf") (c-name "gdk_pixbuf_get_rowstride") (return-type "int") ) (define-function gdk_pixbuf_new (c-name "gdk_pixbuf_new") (is-constructor-of "GdkPixbuf") (return-type "GdkPixbuf*") (parameters '("GdkColorspace" "colorspace") '("gboolean" "has_alpha") '("int" "bits_per_sample") '("int" "width") '("int" "height") ) ) (define-method copy (of-object "GdkPixbuf") (c-name "gdk_pixbuf_copy") (return-type "GdkPixbuf*") ) (define-method new_subpixbuf (of-object "GdkPixbuf") (c-name "gdk_pixbuf_new_subpixbuf") (return-type "GdkPixbuf*") (parameters '("int" "src_x") '("int" "src_y") '("int" "width") '("int" "height") ) ) (define-function gdk_pixbuf_new_from_file (c-name "gdk_pixbuf_new_from_file") (return-type "GdkPixbuf*") (parameters '("const-char*" "filename") '("GError**" "error") ) ) (define-function gdk_pixbuf_new_from_file_at_size (c-name "gdk_pixbuf_new_from_file_at_size") (return-type "GdkPixbuf*") (parameters '("const-char*" "filename") '("int" "width") '("int" "height") '("GError**" "error") ) ) (define-function gdk_pixbuf_new_from_file_at_scale (c-name "gdk_pixbuf_new_from_file_at_scale") (return-type "GdkPixbuf*") (parameters '("const-char*" "filename") '("int" "width") '("int" "height") '("gboolean" "preserve_aspect_ratio") '("GError**" "error") ) ) (define-function gdk_pixbuf_new_from_data (c-name "gdk_pixbuf_new_from_data") (return-type "GdkPixbuf*") (parameters '("const-guchar*" "data") '("GdkColorspace" "colorspace") '("gboolean" "has_alpha") '("int" "bits_per_sample") '("int" "width") '("int" "height") '("int" "rowstride") '("GdkPixbufDestroyNotify" "destroy_fn") '("gpointer" "destroy_fn_data") ) ) (define-function gdk_pixbuf_new_from_xpm_data (c-name "gdk_pixbuf_new_from_xpm_data") (return-type "GdkPixbuf*") (parameters '("const-char**" "data") ) ) (define-function gdk_pixbuf_new_from_inline (c-name "gdk_pixbuf_new_from_inline") (return-type "GdkPixbuf*") (parameters '("gint" "data_length") '("const-guint8*" "data") '("gboolean" "copy_pixels") '("GError**" "error") ) ) (define-method fill (of-object "GdkPixbuf") (c-name "gdk_pixbuf_fill") (return-type "none") (parameters '("guint32" "pixel") ) ) (define-method save (of-object "GdkPixbuf") (c-name "gdk_pixbuf_save") (return-type "gboolean") (parameters '("const-char*" "filename") '("const-char*" "type") '("GError**" "error") ) (varargs #t) ) (define-method savev (of-object "GdkPixbuf") (c-name "gdk_pixbuf_savev") (return-type "gboolean") (parameters '("const-char*" "filename") '("const-char*" "type") '("char**" "option_keys") '("char**" "option_values") '("GError**" "error") ) ) (define-method save_to_callback (of-object "GdkPixbuf") (c-name "gdk_pixbuf_save_to_callback") (return-type "gboolean") (parameters '("GdkPixbufSaveFunc" "save_func") '("gpointer" "user_data") '("const-char*" "type") '("GError**" "error") ) (varargs #t) ) (define-method save_to_callbackv (of-object "GdkPixbuf") (c-name "gdk_pixbuf_save_to_callbackv") (return-type "gboolean") (parameters '("GdkPixbufSaveFunc" "save_func") '("gpointer" "user_data") '("const-char*" "type") '("char**" "option_keys") '("char**" "option_values") '("GError**" "error") ) ) (define-method save_to_buffer (of-object "GdkPixbuf") (c-name "gdk_pixbuf_save_to_buffer") (return-type "gboolean") (parameters '("gchar**" "buffer") '("gsize*" "buffer_size") '("const-char*" "type") '("GError**" "error") ) (varargs #t) ) (define-method save_to_bufferv (of-object "GdkPixbuf") (c-name "gdk_pixbuf_save_to_bufferv") (return-type "gboolean") (parameters '("gchar**" "buffer") '("gsize*" "buffer_size") '("const-char*" "type") '("char**" "option_keys") '("char**" "option_values") '("GError**" "error") ) ) (define-method add_alpha (of-object "GdkPixbuf") (c-name "gdk_pixbuf_add_alpha") (return-type "GdkPixbuf*") (parameters '("gboolean" "substitute_color") '("guchar" "r") '("guchar" "g") '("guchar" "b") ) ) (define-method copy_area (of-object "GdkPixbuf") (c-name "gdk_pixbuf_copy_area") (return-type "none") (parameters '("int" "src_x") '("int" "src_y") '("int" "width") '("int" "height") '("GdkPixbuf*" "dest_pixbuf") '("int" "dest_x") '("int" "dest_y") ) ) (define-method saturate_and_pixelate (of-object "GdkPixbuf") (c-name "gdk_pixbuf_saturate_and_pixelate") (return-type "none") (parameters '("GdkPixbuf*" "dest") '("gfloat" "saturation") '("gboolean" "pixelate") ) ) (define-method get_option (of-object "GdkPixbuf") (c-name "gdk_pixbuf_get_option") (return-type "const-gchar*") (parameters '("const-gchar*" "key") ) ) ;; From /usr/include/gtk-2.0/gdk-pixbuf/gdk-pixbuf-enum-types.h (define-function gdk_pixbuf_alpha_mode_get_type (c-name "gdk_pixbuf_alpha_mode_get_type") (return-type "GType") ) (define-function gdk_colorspace_get_type (c-name "gdk_colorspace_get_type") (return-type "GType") ) (define-function gdk_pixbuf_error_get_type (c-name "gdk_pixbuf_error_get_type") (return-type "GType") ) (define-function gdk_interp_type_get_type (c-name "gdk_interp_type_get_type") (return-type "GType") ) (define-function gdk_pixbuf_rotation_get_type (c-name "gdk_pixbuf_rotation_get_type") (return-type "GType") ) ;; From /usr/include/gtk-2.0/gdk-pixbuf/gdk-pixbuf-features.h ;; From /usr/include/gtk-2.0/gdk-pixbuf/gdk-pixbuf.h ;; From /usr/include/gtk-2.0/gdk-pixbuf/gdk-pixbuf-loader.h (define-function gdk_pixbuf_loader_get_type (c-name "gdk_pixbuf_loader_get_type") (return-type "GType") ) (define-function gdk_pixbuf_loader_new (c-name "gdk_pixbuf_loader_new") (is-constructor-of "GdkPixbufLoader") (return-type "GdkPixbufLoader*") ) (define-function gdk_pixbuf_loader_new_with_type (c-name "gdk_pixbuf_loader_new_with_type") (return-type "GdkPixbufLoader*") (parameters '("const-char*" "image_type") '("GError**" "error") ) ) (define-function gdk_pixbuf_loader_new_with_mime_type (c-name "gdk_pixbuf_loader_new_with_mime_type") (return-type "GdkPixbufLoader*") (parameters '("const-char*" "mime_type") '("GError**" "error") ) ) (define-method set_size (of-object "GdkPixbufLoader") (c-name "gdk_pixbuf_loader_set_size") (return-type "none") (parameters '("int" "width") '("int" "height") ) ) (define-method write (of-object "GdkPixbufLoader") (c-name "gdk_pixbuf_loader_write") (return-type "gboolean") (parameters '("const-guchar*" "buf") '("gsize" "count") '("GError**" "error") ) ) (define-method get_pixbuf (of-object "GdkPixbufLoader") (c-name "gdk_pixbuf_loader_get_pixbuf") (return-type "GdkPixbuf*") ) (define-method get_animation (of-object "GdkPixbufLoader") (c-name "gdk_pixbuf_loader_get_animation") (return-type "GdkPixbufAnimation*") ) (define-method close (of-object "GdkPixbufLoader") (c-name "gdk_pixbuf_loader_close") (return-type "gboolean") (parameters '("GError**" "error") ) ) (define-method get_format (of-object "GdkPixbufLoader") (c-name "gdk_pixbuf_loader_get_format") (return-type "GdkPixbufFormat*") ) ;; From /usr/include/gtk-2.0/gdk-pixbuf/gdk-pixbuf-marshal.h (define-function _gdk_pixbuf_marshal_VOID__INT_INT_INT_INT (c-name "_gdk_pixbuf_marshal_VOID__INT_INT_INT_INT") (return-type "extern-void") (parameters '("GClosure*" "closure") '("GValue*" "return_value") '("guint" "n_param_values") '("const-GValue*" "param_values") '("gpointer" "invocation_hint") '("gpointer" "marshal_data") ) ) (define-function _gdk_pixbuf_marshal_VOID__INT_INT (c-name "_gdk_pixbuf_marshal_VOID__INT_INT") (return-type "extern-void") (parameters '("GClosure*" "closure") '("GValue*" "return_value") '("guint" "n_param_values") '("const-GValue*" "param_values") '("gpointer" "invocation_hint") '("gpointer" "marshal_data") ) ) ;; From /usr/include/gtk-2.0/gdk-pixbuf/gdk-pixbuf-simple-anim.h (define-function gdk_pixbuf_simple_anim_get_type (c-name "gdk_pixbuf_simple_anim_get_type") (return-type "GType") ) (define-function gdk_pixbuf_simple_anim_iter_get_type (c-name "gdk_pixbuf_simple_anim_iter_get_type") (return-type "GType") ) (define-function gdk_pixbuf_simple_anim_new (c-name "gdk_pixbuf_simple_anim_new") (is-constructor-of "GdkPixbufSimpleAnim") (return-type "GdkPixbufSimpleAnim*") (parameters '("gint" "width") '("gint" "height") '("gfloat" "rate") ) ) (define-method add_frame (of-object "GdkPixbufSimpleAnim") (c-name "gdk_pixbuf_simple_anim_add_frame") (return-type "none") (parameters '("GdkPixbuf*" "pixbuf") ) ) ;; From /usr/include/gtk-2.0/gdk-pixbuf/gdk-pixbuf-transform.h (define-method scale (of-object "GdkPixbuf") (c-name "gdk_pixbuf_scale") (return-type "none") (parameters '("GdkPixbuf*" "dest") '("int" "dest_x") '("int" "dest_y") '("int" "dest_width") '("int" "dest_height") '("double" "offset_x") '("double" "offset_y") '("double" "scale_x") '("double" "scale_y") '("GdkInterpType" "interp_type") ) ) (define-method composite (of-object "GdkPixbuf") (c-name "gdk_pixbuf_composite") (return-type "none") (parameters '("GdkPixbuf*" "dest") '("int" "dest_x") '("int" "dest_y") '("int" "dest_width") '("int" "dest_height") '("double" "offset_x") '("double" "offset_y") '("double" "scale_x") '("double" "scale_y") '("GdkInterpType" "interp_type") '("int" "overall_alpha") ) ) (define-method composite_color (of-object "GdkPixbuf") (c-name "gdk_pixbuf_composite_color") (return-type "none") (parameters '("GdkPixbuf*" "dest") '("int" "dest_x") '("int" "dest_y") '("int" "dest_width") '("int" "dest_height") '("double" "offset_x") '("double" "offset_y") '("double" "scale_x") '("double" "scale_y") '("GdkInterpType" "interp_type") '("int" "overall_alpha") '("int" "check_x") '("int" "check_y") '("int" "check_size") '("guint32" "color1") '("guint32" "color2") ) ) (define-method scale_simple (of-object "GdkPixbuf") (c-name "gdk_pixbuf_scale_simple") (return-type "GdkPixbuf*") (parameters '("int" "dest_width") '("int" "dest_height") '("GdkInterpType" "interp_type") ) ) (define-method composite_color_simple (of-object "GdkPixbuf") (c-name "gdk_pixbuf_composite_color_simple") (return-type "GdkPixbuf*") (parameters '("int" "dest_width") '("int" "dest_height") '("GdkInterpType" "interp_type") '("int" "overall_alpha") '("int" "check_size") '("guint32" "color1") '("guint32" "color2") ) ) (define-method rotate_simple (of-object "GdkPixbuf") (c-name "gdk_pixbuf_rotate_simple") (return-type "GdkPixbuf*") (parameters '("GdkPixbufRotation" "angle") ) ) (define-method flip (of-object "GdkPixbuf") (c-name "gdk_pixbuf_flip") (return-type "GdkPixbuf*") (parameters '("gboolean" "horizontal") ) ) guile-gnome-platform-2.16.2/defs/gnome/defs/atk-types.defs0000644000175000017500000002574011670374302023732 0ustar00wingowingo00000000000000;; -*- scheme -*- ;; Enumerations and flags ... (define-flags HyperlinkStateFlags (in-module "Atk") (c-name "AtkHyperlinkStateFlags") (gtype-id "ATK_TYPE_HYPERLINK_STATE_FLAGS") (values '("e" "ATK_HYPERLINK_IS_INLINE") ) ) (define-enum Role (in-module "Atk") (c-name "AtkRole") (gtype-id "ATK_TYPE_ROLE") (values '("invalid" "ATK_ROLE_INVALID") '("accel-label" "ATK_ROLE_ACCEL_LABEL") '("alert" "ATK_ROLE_ALERT") '("animation" "ATK_ROLE_ANIMATION") '("arrow" "ATK_ROLE_ARROW") '("calendar" "ATK_ROLE_CALENDAR") '("canvas" "ATK_ROLE_CANVAS") '("check-box" "ATK_ROLE_CHECK_BOX") '("check-menu-item" "ATK_ROLE_CHECK_MENU_ITEM") '("color-chooser" "ATK_ROLE_COLOR_CHOOSER") '("column-header" "ATK_ROLE_COLUMN_HEADER") '("combo-box" "ATK_ROLE_COMBO_BOX") '("date-editor" "ATK_ROLE_DATE_EDITOR") '("desktop-icon" "ATK_ROLE_DESKTOP_ICON") '("desktop-frame" "ATK_ROLE_DESKTOP_FRAME") '("dial" "ATK_ROLE_DIAL") '("dialog" "ATK_ROLE_DIALOG") '("directory-pane" "ATK_ROLE_DIRECTORY_PANE") '("drawing-area" "ATK_ROLE_DRAWING_AREA") '("file-chooser" "ATK_ROLE_FILE_CHOOSER") '("filler" "ATK_ROLE_FILLER") '("font-chooser" "ATK_ROLE_FONT_CHOOSER") '("frame" "ATK_ROLE_FRAME") '("glass-pane" "ATK_ROLE_GLASS_PANE") '("html-container" "ATK_ROLE_HTML_CONTAINER") '("icon" "ATK_ROLE_ICON") '("image" "ATK_ROLE_IMAGE") '("internal-frame" "ATK_ROLE_INTERNAL_FRAME") '("label" "ATK_ROLE_LABEL") '("layered-pane" "ATK_ROLE_LAYERED_PANE") '("list" "ATK_ROLE_LIST") '("list-item" "ATK_ROLE_LIST_ITEM") '("menu" "ATK_ROLE_MENU") '("menu-bar" "ATK_ROLE_MENU_BAR") '("menu-item" "ATK_ROLE_MENU_ITEM") '("option-pane" "ATK_ROLE_OPTION_PANE") '("page-tab" "ATK_ROLE_PAGE_TAB") '("page-tab-list" "ATK_ROLE_PAGE_TAB_LIST") '("panel" "ATK_ROLE_PANEL") '("password-text" "ATK_ROLE_PASSWORD_TEXT") '("popup-menu" "ATK_ROLE_POPUP_MENU") '("progress-bar" "ATK_ROLE_PROGRESS_BAR") '("push-button" "ATK_ROLE_PUSH_BUTTON") '("radio-button" "ATK_ROLE_RADIO_BUTTON") '("radio-menu-item" "ATK_ROLE_RADIO_MENU_ITEM") '("root-pane" "ATK_ROLE_ROOT_PANE") '("row-header" "ATK_ROLE_ROW_HEADER") '("scroll-bar" "ATK_ROLE_SCROLL_BAR") '("scroll-pane" "ATK_ROLE_SCROLL_PANE") '("separator" "ATK_ROLE_SEPARATOR") '("slider" "ATK_ROLE_SLIDER") '("split-pane" "ATK_ROLE_SPLIT_PANE") '("spin-button" "ATK_ROLE_SPIN_BUTTON") '("statusbar" "ATK_ROLE_STATUSBAR") '("table" "ATK_ROLE_TABLE") '("table-cell" "ATK_ROLE_TABLE_CELL") '("table-column-header" "ATK_ROLE_TABLE_COLUMN_HEADER") '("table-row-header" "ATK_ROLE_TABLE_ROW_HEADER") '("tear-off-menu-item" "ATK_ROLE_TEAR_OFF_MENU_ITEM") '("terminal" "ATK_ROLE_TERMINAL") '("text" "ATK_ROLE_TEXT") '("toggle-button" "ATK_ROLE_TOGGLE_BUTTON") '("tool-bar" "ATK_ROLE_TOOL_BAR") '("tool-tip" "ATK_ROLE_TOOL_TIP") '("tree" "ATK_ROLE_TREE") '("tree-table" "ATK_ROLE_TREE_TABLE") '("unknown" "ATK_ROLE_UNKNOWN") '("viewport" "ATK_ROLE_VIEWPORT") '("window" "ATK_ROLE_WINDOW") '("header" "ATK_ROLE_HEADER") '("footer" "ATK_ROLE_FOOTER") '("paragraph" "ATK_ROLE_PARAGRAPH") '("ruler" "ATK_ROLE_RULER") '("application" "ATK_ROLE_APPLICATION") '("autocomplete" "ATK_ROLE_AUTOCOMPLETE") '("editbar" "ATK_ROLE_EDITBAR") '("embedded" "ATK_ROLE_EMBEDDED") '("entry" "ATK_ROLE_ENTRY") '("chart" "ATK_ROLE_CHART") '("caption" "ATK_ROLE_CAPTION") '("document-frame" "ATK_ROLE_DOCUMENT_FRAME") '("heading" "ATK_ROLE_HEADING") '("page" "ATK_ROLE_PAGE") '("section" "ATK_ROLE_SECTION") '("redundant-object" "ATK_ROLE_REDUNDANT_OBJECT") '("form" "ATK_ROLE_FORM") '("link" "ATK_ROLE_LINK") '("input-method-window" "ATK_ROLE_INPUT_METHOD_WINDOW") '("last-defined" "ATK_ROLE_LAST_DEFINED") ) ) (define-enum Layer (in-module "Atk") (c-name "AtkLayer") (gtype-id "ATK_TYPE_LAYER") (values '("invalid" "ATK_LAYER_INVALID") '("background" "ATK_LAYER_BACKGROUND") '("canvas" "ATK_LAYER_CANVAS") '("widget" "ATK_LAYER_WIDGET") '("mdi" "ATK_LAYER_MDI") '("popup" "ATK_LAYER_POPUP") '("overlay" "ATK_LAYER_OVERLAY") '("window" "ATK_LAYER_WINDOW") ) ) (define-enum RelationType (in-module "Atk") (c-name "AtkRelationType") (gtype-id "ATK_TYPE_RELATION_TYPE") (values '("null" "ATK_RELATION_NULL") '("controlled-by" "ATK_RELATION_CONTROLLED_BY") '("controller-for" "ATK_RELATION_CONTROLLER_FOR") '("label-for" "ATK_RELATION_LABEL_FOR") '("labelled-by" "ATK_RELATION_LABELLED_BY") '("member-of" "ATK_RELATION_MEMBER_OF") '("node-child-of" "ATK_RELATION_NODE_CHILD_OF") '("flows-to" "ATK_RELATION_FLOWS_TO") '("flows-from" "ATK_RELATION_FLOWS_FROM") '("subwindow-of" "ATK_RELATION_SUBWINDOW_OF") '("embeds" "ATK_RELATION_EMBEDS") '("embedded-by" "ATK_RELATION_EMBEDDED_BY") '("popup-for" "ATK_RELATION_POPUP_FOR") '("parent-window-of" "ATK_RELATION_PARENT_WINDOW_OF") '("described-by" "ATK_RELATION_DESCRIBED_BY") '("description-for" "ATK_RELATION_DESCRIPTION_FOR") '("last-defined" "ATK_RELATION_LAST_DEFINED") ) ) (define-enum StateType (in-module "Atk") (c-name "AtkStateType") (gtype-id "ATK_TYPE_STATE_TYPE") (values '("invalid" "ATK_STATE_INVALID") '("active" "ATK_STATE_ACTIVE") '("armed" "ATK_STATE_ARMED") '("busy" "ATK_STATE_BUSY") '("checked" "ATK_STATE_CHECKED") '("defunct" "ATK_STATE_DEFUNCT") '("editable" "ATK_STATE_EDITABLE") '("enabled" "ATK_STATE_ENABLED") '("expandable" "ATK_STATE_EXPANDABLE") '("expanded" "ATK_STATE_EXPANDED") '("focusable" "ATK_STATE_FOCUSABLE") '("focused" "ATK_STATE_FOCUSED") '("horizontal" "ATK_STATE_HORIZONTAL") '("iconified" "ATK_STATE_ICONIFIED") '("modal" "ATK_STATE_MODAL") '("multi-line" "ATK_STATE_MULTI_LINE") '("multiselectable" "ATK_STATE_MULTISELECTABLE") '("opaque" "ATK_STATE_OPAQUE") '("pressed" "ATK_STATE_PRESSED") '("resizable" "ATK_STATE_RESIZABLE") '("selectable" "ATK_STATE_SELECTABLE") '("selected" "ATK_STATE_SELECTED") '("sensitive" "ATK_STATE_SENSITIVE") '("showing" "ATK_STATE_SHOWING") '("single-line" "ATK_STATE_SINGLE_LINE") '("stale" "ATK_STATE_STALE") '("transient" "ATK_STATE_TRANSIENT") '("vertical" "ATK_STATE_VERTICAL") '("visible" "ATK_STATE_VISIBLE") '("manages-descendants" "ATK_STATE_MANAGES_DESCENDANTS") '("indeterminate" "ATK_STATE_INDETERMINATE") '("truncated" "ATK_STATE_TRUNCATED") '("required" "ATK_STATE_REQUIRED") '("invalid-entry" "ATK_STATE_INVALID_ENTRY") '("supports-autocompletion" "ATK_STATE_SUPPORTS_AUTOCOMPLETION") '("selectable-text" "ATK_STATE_SELECTABLE_TEXT") '("default" "ATK_STATE_DEFAULT") '("animated" "ATK_STATE_ANIMATED") '("visited" "ATK_STATE_VISITED") '("last-defined" "ATK_STATE_LAST_DEFINED") ) ) (define-enum TextAttribute (in-module "Atk") (c-name "AtkTextAttribute") (gtype-id "ATK_TYPE_TEXT_ATTRIBUTE") (values '("invalid" "ATK_TEXT_ATTR_INVALID") '("left-margin" "ATK_TEXT_ATTR_LEFT_MARGIN") '("right-margin" "ATK_TEXT_ATTR_RIGHT_MARGIN") '("indent" "ATK_TEXT_ATTR_INDENT") '("invisible" "ATK_TEXT_ATTR_INVISIBLE") '("editable" "ATK_TEXT_ATTR_EDITABLE") '("pixels-above-lines" "ATK_TEXT_ATTR_PIXELS_ABOVE_LINES") '("pixels-below-lines" "ATK_TEXT_ATTR_PIXELS_BELOW_LINES") '("pixels-inside-wrap" "ATK_TEXT_ATTR_PIXELS_INSIDE_WRAP") '("bg-full-height" "ATK_TEXT_ATTR_BG_FULL_HEIGHT") '("rise" "ATK_TEXT_ATTR_RISE") '("underline" "ATK_TEXT_ATTR_UNDERLINE") '("strikethrough" "ATK_TEXT_ATTR_STRIKETHROUGH") '("size" "ATK_TEXT_ATTR_SIZE") '("scale" "ATK_TEXT_ATTR_SCALE") '("weight" "ATK_TEXT_ATTR_WEIGHT") '("language" "ATK_TEXT_ATTR_LANGUAGE") '("family-name" "ATK_TEXT_ATTR_FAMILY_NAME") '("bg-color" "ATK_TEXT_ATTR_BG_COLOR") '("fg-color" "ATK_TEXT_ATTR_FG_COLOR") '("bg-stipple" "ATK_TEXT_ATTR_BG_STIPPLE") '("fg-stipple" "ATK_TEXT_ATTR_FG_STIPPLE") '("wrap-mode" "ATK_TEXT_ATTR_WRAP_MODE") '("direction" "ATK_TEXT_ATTR_DIRECTION") '("justification" "ATK_TEXT_ATTR_JUSTIFICATION") '("stretch" "ATK_TEXT_ATTR_STRETCH") '("variant" "ATK_TEXT_ATTR_VARIANT") '("style" "ATK_TEXT_ATTR_STYLE") '("last-defined" "ATK_TEXT_ATTR_LAST_DEFINED") ) ) (define-enum TextBoundary (in-module "Atk") (c-name "AtkTextBoundary") (gtype-id "ATK_TYPE_TEXT_BOUNDARY") (values '("char" "ATK_TEXT_BOUNDARY_CHAR") '("word-start" "ATK_TEXT_BOUNDARY_WORD_START") '("word-end" "ATK_TEXT_BOUNDARY_WORD_END") '("sentence-start" "ATK_TEXT_BOUNDARY_SENTENCE_START") '("sentence-end" "ATK_TEXT_BOUNDARY_SENTENCE_END") '("line-start" "ATK_TEXT_BOUNDARY_LINE_START") '("line-end" "ATK_TEXT_BOUNDARY_LINE_END") ) ) (define-enum TextClipType (in-module "Atk") (c-name "AtkTextClipType") (gtype-id "ATK_TYPE_TEXT_CLIP_TYPE") (values '("none" "ATK_TEXT_CLIP_NONE") '("min" "ATK_TEXT_CLIP_MIN") '("max" "ATK_TEXT_CLIP_MAX") '("both" "ATK_TEXT_CLIP_BOTH") ) ) (define-enum KeyEventType (in-module "Atk") (c-name "AtkKeyEventType") (gtype-id "ATK_TYPE_KEY_EVENT_TYPE") (values '("press" "ATK_KEY_EVENT_PRESS") '("release" "ATK_KEY_EVENT_RELEASE") '("last-defined" "ATK_KEY_EVENT_LAST_DEFINED") ) ) (define-enum CoordType (in-module "Atk") (c-name "AtkCoordType") (gtype-id "ATK_TYPE_COORD_TYPE") (values '("screen" "ATK_XY_SCREEN") '("window" "ATK_XY_WINDOW") ) ) ;; -*- scheme -*- ; object definitions ... (define-object Hyperlink (in-module "Atk") (parent "GObject") (c-name "AtkHyperlink") (gtype-id "ATK_TYPE_HYPERLINK") ) (define-object Object (in-module "Atk") (parent "GObject") (c-name "AtkObject") (gtype-id "ATK_TYPE_OBJECT") ) (define-object NoOpObject (in-module "Atk") (parent "AtkObject") (c-name "AtkNoOpObject") (gtype-id "ATK_TYPE_NO_OP_OBJECT") ) (define-object GObjectAccessible (in-module "Atk") (parent "AtkObject") (c-name "AtkGObjectAccessible") (gtype-id "ATK_TYPE_GOBJECT_ACCESSIBLE") ) (define-object ObjectFactory (in-module "Atk") (parent "GObject") (c-name "AtkObjectFactory") (gtype-id "ATK_TYPE_OBJECT_FACTORY") ) (define-object NoOpObjectFactory (in-module "Atk") (parent "AtkObjectFactory") (c-name "AtkNoOpObjectFactory") (gtype-id "ATK_TYPE_NO_OP_OBJECT_FACTORY") ) (define-object Registry (in-module "Atk") (parent "GObject") (c-name "AtkRegistry") (gtype-id "ATK_TYPE_REGISTRY") ) (define-object Relation (in-module "Atk") (parent "GObject") (c-name "AtkRelation") (gtype-id "ATK_TYPE_RELATION") ) (define-object RelationSet (in-module "Atk") (parent "GObject") (c-name "AtkRelationSet") (gtype-id "ATK_TYPE_RELATION_SET") ) (define-object StateSet (in-module "Atk") (parent "GObject") (c-name "AtkStateSet") (gtype-id "ATK_TYPE_STATE_SET") ) (define-object Util (in-module "Atk") (parent "GObject") (c-name "AtkUtil") (gtype-id "ATK_TYPE_UTIL") ) guile-gnome-platform-2.16.2/defs/gnome/defs/libgnomecanvas-types.defs0000644000175000017500000000443511670374302026141 0ustar00wingowingo00000000000000;; -*- scheme -*- ;; Enumerations and flags ... ;; -*- scheme -*- ; object definitions ... (define-object Canvas (in-module "Gnome") (parent "GtkLayout") (c-name "GnomeCanvas") (gtype-id "GNOME_TYPE_CANVAS") ) (define-object CanvasItem (in-module "Gnome") (parent "GtkObject") (c-name "GnomeCanvasItem") (gtype-id "GNOME_TYPE_CANVAS_ITEM") ) (define-object CanvasGroup (in-module "Gnome") (parent "GnomeCanvasItem") (c-name "GnomeCanvasGroup") (gtype-id "GNOME_TYPE_CANVAS_GROUP") ) (define-object CanvasClipgroup (in-module "Gnome") (parent "GnomeCanvasGroup") (c-name "GnomeCanvasClipgroup") (gtype-id "GNOME_TYPE_CANVAS_CLIPGROUP") ) (define-object CanvasLine (in-module "Gnome") (parent "GnomeCanvasItem") (c-name "GnomeCanvasLine") (gtype-id "GNOME_TYPE_CANVAS_LINE") ) (define-object CanvasPixbuf (in-module "Gnome") (parent "GnomeCanvasItem") (c-name "GnomeCanvasPixbuf") (gtype-id "GNOME_TYPE_CANVAS_PIXBUF") ) (define-object CanvasRichText (in-module "Gnome") (parent "GnomeCanvasItem") (c-name "GnomeCanvasRichText") (gtype-id "GNOME_TYPE_CANVAS_RICH_TEXT") ) (define-object CanvasShape (in-module "Gnome") (parent "GnomeCanvasItem") (c-name "GnomeCanvasShape") (gtype-id "GNOME_TYPE_CANVAS_SHAPE") ) (define-object CanvasRE (in-module "Gnome") (parent "GnomeCanvasShape") (c-name "GnomeCanvasRE") (gtype-id "GNOME_TYPE_CANVAS_RE") ) (define-object CanvasRect (in-module "Gnome") (parent "GnomeCanvasRE") (c-name "GnomeCanvasRect") (gtype-id "GNOME_TYPE_CANVAS_RECT") ) (define-object CanvasEllipse (in-module "Gnome") (parent "GnomeCanvasRE") (c-name "GnomeCanvasEllipse") (gtype-id "GNOME_TYPE_CANVAS_ELLIPSE") ) (define-object CanvasPolygon (in-module "Gnome") (parent "GnomeCanvasShape") (c-name "GnomeCanvasPolygon") (gtype-id "GNOME_TYPE_CANVAS_POLYGON") ) (define-object CanvasBpath (in-module "Gnome") (parent "GnomeCanvasShape") (c-name "GnomeCanvasBpath") (gtype-id "GNOME_TYPE_CANVAS_BPATH") ) (define-object CanvasText (in-module "Gnome") (parent "GnomeCanvasItem") (c-name "GnomeCanvasText") (gtype-id "GNOME_TYPE_CANVAS_TEXT") ) (define-object CanvasWidget (in-module "Gnome") (parent "GnomeCanvasItem") (c-name "GnomeCanvasWidget") (gtype-id "GNOME_TYPE_CANVAS_WIDGET") ) guile-gnome-platform-2.16.2/defs/gnome/defs/gtksourceview-overrides.defs0000644000175000017500000000427411670374302026711 0ustar00wingowingo00000000000000;; -*- scheme -*- ;; guile-gnome ;; Copyright (C) 2003,2004 Andy Wingo ;; This program is free software; you can redistribute it and/or ;; modify it under the terms of the GNU General Public License as ;; published by the Free Software Foundation; either version 2 of ;; the License, or (at your option) any later version. ;; ;; This program is distributed in the hope that it will be useful, ;; but WITHOUT ANY WARRANTY; without even the implied warranty of ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the ;; GNU General Public License for more details. ;; ;; You should have received a copy of the GNU General Public License ;; along with this program; if not, contact: ;; ;; Free Software Foundation Voice: +1-617-542-5942 ;; 59 Temple Place - Suite 330 Fax: +1-617-542-2652 ;; Boston, MA 02111-1307, USA gnu@gnu.org ;;; Commentary: ;; ;;Custom wrapper definitions. ;; ;;; Code: (define-method get_iter_at_marker (of-object "GtkSourceBuffer") (c-name "_wrap_gtk_source_buffer_get_iter_at_marker") (overrides "gtk_source_buffer_get_iter_at_marker") (return-type "GtkTextIter*") (parameters '("GtkSourceMarker*" "marker") ) ) (define-function gtk_source_iter_backward_search (c-name "_wrap_gtk_source_iter_backward_search") (overrides "gtk_source_iter_backward_search") (return-type "SCM") (parameters '("const-GtkTextIter*" "iter") '("const-gchar*" "str") '("GtkSourceSearchFlags" "flags") '("const-GtkTextIter*" "limit") ) ) (define-function gtk_source_iter_find_matching_bracket (c-name "_wrap_gtk_source_iter_find_matching_bracket") (overrides "gtk_source_iter_find_matching_bracket") (return-type "GtkTextIter*") (parameters '("GtkTextIter*" "bracket"))) (ignore-glob "*_get_type" "_*" "*_ref" "*_unref" "*_copy" "*_free" "*_newv" "*_valist" "*_setv" "*_foreach" "*_valist") guile-gnome-platform-2.16.2/defs/gnome/defs/nautilus.defs0000644000175000017500000001420111670374302023643 0ustar00wingowingo00000000000000;; -*- scheme -*- ; object definitions ... (define-object View (in-module "Nautilus") (parent "BonoboObject") (c-name "NautilusView") (gtype-id "NAUTILUS_TYPE_VIEW") ) ;; Enumerations and flags ... ;; From /home/zilch/cvs/gnome2/nautilus/libnautilus/nautilus-view.h (define-function nautilus_view_get_type (c-name "nautilus_view_get_type") (return-type "GtkType") ) (define-function view_new (c-name "nautilus_view_new") (is-constructor-of NautilusView) (return-type "NautilusView*") (parameters '("GtkWidget*" "widget") ) ) (define-function nautilus_view_new_from_bonobo_control (c-name "nautilus_view_new_from_bonobo_control") (return-type "NautilusView*") (parameters '("BonoboControl*" "bonobo_control") ) ) (define-method get_bonobo_control (of-object "NautilusView") (c-name "nautilus_view_get_bonobo_control") (return-type "BonoboControl*") ) (define-method open_location_in_this_window (of-object "NautilusView") (c-name "nautilus_view_open_location_in_this_window") (return-type "none") (parameters '("const-char*" "location_uri") ) ) (define-method open_location_prefer_existing_window (of-object "NautilusView") (c-name "nautilus_view_open_location_prefer_existing_window") (return-type "none") (parameters '("const-char*" "location_uri") ) ) (define-method open_location_force_new_window (of-object "NautilusView") (c-name "nautilus_view_open_location_force_new_window") (return-type "none") (parameters '("const-char*" "location_uri") '("GList*" "selection") ) ) (define-method report_location_change (of-object "NautilusView") (c-name "nautilus_view_report_location_change") (return-type "none") (parameters '("const-char*" "location_uri") '("GList*" "selection") '("const-char*" "title") ) ) (define-method report_redirect (of-object "NautilusView") (c-name "nautilus_view_report_redirect") (return-type "none") (parameters '("const-char*" "from_location_uri") '("const-char*" "to_location_uri") '("GList*" "selection") '("const-char*" "title") ) ) (define-method report_selection_change (of-object "NautilusView") (c-name "nautilus_view_report_selection_change") (return-type "none") (parameters '("GList*" "selection") ) ) (define-method report_status (of-object "NautilusView") (c-name "nautilus_view_report_status") (return-type "none") (parameters '("const-char*" "status") ) ) (define-method report_load_underway (of-object "NautilusView") (c-name "nautilus_view_report_load_underway") (return-type "none") ) (define-method report_load_progress (of-object "NautilusView") (c-name "nautilus_view_report_load_progress") (return-type "none") (parameters '("double" "fraction_done") ) ) (define-method report_load_complete (of-object "NautilusView") (c-name "nautilus_view_report_load_complete") (return-type "none") ) (define-method report_load_failed (of-object "NautilusView") (c-name "nautilus_view_report_load_failed") (return-type "none") ) (define-method set_title (of-object "NautilusView") (c-name "nautilus_view_set_title") (return-type "none") (parameters '("const-char*" "title") ) ) (define-method go_back (of-object "NautilusView") (c-name "nautilus_view_go_back") (return-type "none") ) (define-method close_window (of-object "NautilusView") (c-name "nautilus_view_close_window") (return-type "none") ) (define-function nautilus_uri_list_from_g_list (c-name "nautilus_uri_list_from_g_list") (return-type "Nautilus_URIList*") (parameters '("GList*" "list") ) ) (define-function nautilus_g_list_from_uri_list (c-name "nautilus_g_list_from_uri_list") (return-type "GList*") (parameters '("const-Nautilus_URIList*" "uri_list") ) ) (define-method set_up_ui (of-object "NautilusView") (c-name "nautilus_view_set_up_ui") (return-type "BonoboUIComponent*") (parameters '("const-char*" "datadir") '("const-char*" "ui_xml_file_name") '("const-char*" "application_name") ) ) (define-method get_ambient_properties (of-object "NautilusView") (c-name "nautilus_view_get_ambient_properties") (return-type "Bonobo_PropertyBag") (parameters '("CORBA_Environment*" "opt_ev") ) ) (define-method set_listener_mask (of-object "NautilusView") (c-name "nautilus_view_set_listener_mask") (return-type "none") (parameters ;; '("NautilusViewListenerMask" "mask") '("int" "mask") ) ) (define-method construct (of-object "NautilusView") (c-name "nautilus_view_construct") (return-type "NautilusView*") (parameters '("GtkWidget*" "widget") ) ) (define-method construct_from_bonobo_control (of-object "NautilusView") (c-name "nautilus_view_construct_from_bonobo_control") (return-type "NautilusView*") (parameters '("BonoboControl*" "bonobo_control") ) ) ;; From /home/zilch/cvs/gnome2/nautilus/libnautilus/nautilus-view-standard-main.h (define-function view_standard_main (c-name "nautilus_view_standard_main") (return-type "int") (parameters '("const-char*" "executable_name") '("const-char*" "version") '("const-char*" "gettext_package_name") '("const-char*" "gettext_locale_directory") '("int" "argc") '("char**" "argv") '("const-char*" "factory_iid") '("const-char*" "view_iids") '("NautilusViewCreateFunction" "create_function") '("GVoidFunc" "post_initialize_callback") '("void*" "user_data") ) ) (define-function view_standard_main_multi (c-name "nautilus_view_standard_main_multi") (return-type "int") (parameters '("const-char*" "executable_name") '("const-char*" "version") '("const-char*" "gettext_package_name") '("const-char*" "gettext_locale_directory") '("int" "argc") '("char**" "argv") '("const-char*" "factory_iid") '("GList*" "view_iids") '("NautilusViewCreateFunction" "create_function") '("GVoidFunc" "post_initialize_callback") '("void*" "user_data") ) ) (define-function nautilus_view_create_from_get_type_function (c-name "nautilus_view_create_from_get_type_function") (return-type "NautilusView*") (parameters '("const-char*" "iid") '("void*" "user_data") ) ) guile-gnome-platform-2.16.2/defs/gnome/defs/gconf.defs0000644000175000017500000011275211670374302023105 0ustar00wingowingo00000000000000;; -*- scheme -*- (include type-ignores) (include "gconf-types.defs") (include overrides) ;; From /opt/gnome2/include/gconf/2/gconf/gconf-changeset.h (define-method commit_change_set (of-object "GConfEngine") (c-name "gconf_engine_commit_change_set") (return-type "gboolean") (parameters '("GConfChangeSet*" "cs") '("gboolean" "remove_committed") '("GError**" "err") ) ) (define-method reverse_change_set (of-object "GConfEngine") (c-name "gconf_engine_reverse_change_set") (return-type "GConfChangeSet*") (parameters '("GConfChangeSet*" "cs") '("GError**" "err") ) ) (define-method change_set_from_currentv (of-object "GConfEngine") (c-name "gconf_engine_change_set_from_currentv") (return-type "GConfChangeSet*") (parameters '("const-gchar**" "keys") '("GError**" "err") ) ) (define-method change_set_from_current (of-object "GConfEngine") (c-name "gconf_engine_change_set_from_current") (return-type "GConfChangeSet*") (parameters '("GError**" "err") '("const-gchar*" "first_key") ) (varargs #t) ) (define-function gconf_change_set_get_type (c-name "gconf_change_set_get_type") (return-type "GType") ) (define-function gconf_change_set_new (c-name "gconf_change_set_new") (is-constructor-of "GconfChangeSet") (return-type "GConfChangeSet*") ) (define-method ref (of-object "GConfChangeSet") (c-name "gconf_change_set_ref") (return-type "none") ) (define-method unref (of-object "GConfChangeSet") (c-name "gconf_change_set_unref") (return-type "none") ) (define-method clear (of-object "GConfChangeSet") (c-name "gconf_change_set_clear") (return-type "none") ) (define-method size (of-object "GConfChangeSet") (c-name "gconf_change_set_size") (return-type "guint") ) (define-method remove (of-object "GConfChangeSet") (c-name "gconf_change_set_remove") (return-type "none") (parameters '("const-gchar*" "key") ) ) (define-method foreach (of-object "GConfChangeSet") (c-name "gconf_change_set_foreach") (return-type "none") (parameters '("GConfChangeSetForeachFunc" "func") '("gpointer" "user_data") ) ) (define-method check_value (of-object "GConfChangeSet") (c-name "gconf_change_set_check_value") (return-type "gboolean") (parameters '("const-gchar*" "key") '("GConfValue**" "value_retloc") ) ) (define-method set (of-object "GConfChangeSet") (c-name "gconf_change_set_set") (return-type "none") (parameters '("const-gchar*" "key") '("GConfValue*" "value") ) ) (define-method set_nocopy (of-object "GConfChangeSet") (c-name "gconf_change_set_set_nocopy") (return-type "none") (parameters '("const-gchar*" "key") '("GConfValue*" "value") ) ) (define-method unset (of-object "GConfChangeSet") (c-name "gconf_change_set_unset") (return-type "none") (parameters '("const-gchar*" "key") ) ) (define-method set_float (of-object "GConfChangeSet") (c-name "gconf_change_set_set_float") (return-type "none") (parameters '("const-gchar*" "key") '("gdouble" "val") ) ) (define-method set_int (of-object "GConfChangeSet") (c-name "gconf_change_set_set_int") (return-type "none") (parameters '("const-gchar*" "key") '("gint" "val") ) ) (define-method set_string (of-object "GConfChangeSet") (c-name "gconf_change_set_set_string") (return-type "none") (parameters '("const-gchar*" "key") '("const-gchar*" "val") ) ) (define-method set_bool (of-object "GConfChangeSet") (c-name "gconf_change_set_set_bool") (return-type "none") (parameters '("const-gchar*" "key") '("gboolean" "val") ) ) (define-method set_schema (of-object "GConfChangeSet") (c-name "gconf_change_set_set_schema") (return-type "none") (parameters '("const-gchar*" "key") '("GConfSchema*" "val") ) ) (define-method set_list (of-object "GConfChangeSet") (c-name "gconf_change_set_set_list") (return-type "none") (parameters '("const-gchar*" "key") '("GConfValueType" "list_type") '("GSList*" "list") ) ) (define-method set_pair (of-object "GConfChangeSet") (c-name "gconf_change_set_set_pair") (return-type "none") (parameters '("const-gchar*" "key") '("GConfValueType" "car_type") '("GConfValueType" "cdr_type") '("gconstpointer" "address_of_car") '("gconstpointer" "address_of_cdr") ) ) (define-method set_user_data (of-object "GConfChangeSet") (c-name "gconf_change_set_set_user_data") (return-type "none") (parameters '("gpointer" "data") '("GDestroyNotify" "dnotify") ) ) (define-method get_user_data (of-object "GConfChangeSet") (c-name "gconf_change_set_get_user_data") (return-type "gpointer") ) ;; From /opt/gnome2/include/gconf/2/gconf/gconf-client.h (define-function gconf_client_get_type (c-name "gconf_client_get_type") (return-type "GType") ) (define-function gconf_client_get_default (c-name "gconf_client_get_default") (return-type "GConfClient*") ) (define-function gconf_client_get_for_engine (c-name "gconf_client_get_for_engine") (return-type "GConfClient*") (parameters '("GConfEngine*" "engine") ) ) (define-method add_dir (of-object "GConfClient") (c-name "gconf_client_add_dir") (return-type "none") (parameters '("const-gchar*" "dir") '("GConfClientPreloadType" "preload") '("GError**" "err") ) ) (define-method remove_dir (of-object "GConfClient") (c-name "gconf_client_remove_dir") (return-type "none") (parameters '("const-gchar*" "dir") '("GError**" "err") ) ) (define-method notify_add (of-object "GConfClient") (c-name "gconf_client_notify_add") (return-type "guint") (parameters '("const-gchar*" "namespace_section") '("GConfClientNotifyFunc" "func") '("gpointer" "user_data") '("GFreeFunc" "destroy_notify") '("GError**" "err") ) ) (define-method notify_remove (of-object "GConfClient") (c-name "gconf_client_notify_remove") (return-type "none") (parameters '("guint" "cnxn") ) ) (define-method notify (of-object "GConfClient") (c-name "gconf_client_notify") (return-type "none") (parameters '("const-char*" "key") ) ) (define-method set_error_handling (of-object "GConfClient") (c-name "gconf_client_set_error_handling") (return-type "none") (parameters '("GConfClientErrorHandlingMode" "mode") ) ) (define-function gconf_client_set_global_default_error_handler (c-name "gconf_client_set_global_default_error_handler") (return-type "none") (parameters '("GConfClientErrorHandlerFunc" "func") ) ) (define-method clear_cache (of-object "GConfClient") (c-name "gconf_client_clear_cache") (return-type "none") ) (define-method preload (of-object "GConfClient") (c-name "gconf_client_preload") (return-type "none") (parameters '("const-gchar*" "dirname") '("GConfClientPreloadType" "type") '("GError**" "err") ) ) (define-method set (of-object "GConfClient") (c-name "gconf_client_set") (return-type "none") (parameters '("const-gchar*" "key") '("const-GConfValue*" "val") '("GError**" "err") ) ) (define-method get (of-object "GConfClient") (c-name "gconf_client_get") (return-type "GConfValue*") (parameters '("const-gchar*" "key") '("GError**" "err") ) ) (define-method get_without_default (of-object "GConfClient") (c-name "gconf_client_get_without_default") (return-type "GConfValue*") (parameters '("const-gchar*" "key") '("GError**" "err") ) ) (define-method get_entry (of-object "GConfClient") (c-name "gconf_client_get_entry") (return-type "GConfEntry*") (parameters '("const-gchar*" "key") '("const-gchar*" "locale") '("gboolean" "use_schema_default") '("GError**" "err") ) ) (define-method get_default_from_schema (of-object "GConfClient") (c-name "gconf_client_get_default_from_schema") (return-type "GConfValue*") (parameters '("const-gchar*" "key") '("GError**" "err") ) ) (define-method unset (of-object "GConfClient") (c-name "gconf_client_unset") (return-type "gboolean") (parameters '("const-gchar*" "key") '("GError**" "err") ) ) (define-method recursive_unset (of-object "GConfClient") (c-name "gconf_client_recursive_unset") (return-type "gboolean") (parameters '("const-char*" "key") '("GConfUnsetFlags" "flags") '("GError**" "err") ) ) (define-method all_entries (of-object "GConfClient") (c-name "gconf_client_all_entries") (return-type "GSList*") (parameters '("const-gchar*" "dir") '("GError**" "err") ) ) (define-method all_dirs (of-object "GConfClient") (c-name "gconf_client_all_dirs") (return-type "GSList*") (parameters '("const-gchar*" "dir") '("GError**" "err") ) ) (define-method suggest_sync (of-object "GConfClient") (c-name "gconf_client_suggest_sync") (return-type "none") (parameters '("GError**" "err") ) ) (define-method dir_exists (of-object "GConfClient") (c-name "gconf_client_dir_exists") (return-type "gboolean") (parameters '("const-gchar*" "dir") '("GError**" "err") ) ) (define-method key_is_writable (of-object "GConfClient") (c-name "gconf_client_key_is_writable") (return-type "gboolean") (parameters '("const-gchar*" "key") '("GError**" "err") ) ) (define-method get_float (of-object "GConfClient") (c-name "gconf_client_get_float") (return-type "gdouble") (parameters '("const-gchar*" "key") '("GError**" "err") ) ) (define-method get_int (of-object "GConfClient") (c-name "gconf_client_get_int") (return-type "gint") (parameters '("const-gchar*" "key") '("GError**" "err") ) ) (define-method get_string (of-object "GConfClient") (c-name "gconf_client_get_string") (return-type "gchar*") (parameters '("const-gchar*" "key") '("GError**" "err") ) ) (define-method get_bool (of-object "GConfClient") (c-name "gconf_client_get_bool") (return-type "gboolean") (parameters '("const-gchar*" "key") '("GError**" "err") ) ) (define-method get_schema (of-object "GConfClient") (c-name "gconf_client_get_schema") (return-type "GConfSchema*") (parameters '("const-gchar*" "key") '("GError**" "err") ) ) (define-method get_list (of-object "GConfClient") (c-name "gconf_client_get_list") (return-type "GSList*") (parameters '("const-gchar*" "key") '("GConfValueType" "list_type") '("GError**" "err") ) ) (define-method get_pair (of-object "GConfClient") (c-name "gconf_client_get_pair") (return-type "gboolean") (parameters '("const-gchar*" "key") '("GConfValueType" "car_type") '("GConfValueType" "cdr_type") '("gpointer" "car_retloc") '("gpointer" "cdr_retloc") '("GError**" "err") ) ) (define-method set_float (of-object "GConfClient") (c-name "gconf_client_set_float") (return-type "gboolean") (parameters '("const-gchar*" "key") '("gdouble" "val") '("GError**" "err") ) ) (define-method set_int (of-object "GConfClient") (c-name "gconf_client_set_int") (return-type "gboolean") (parameters '("const-gchar*" "key") '("gint" "val") '("GError**" "err") ) ) (define-method set_string (of-object "GConfClient") (c-name "gconf_client_set_string") (return-type "gboolean") (parameters '("const-gchar*" "key") '("const-gchar*" "val") '("GError**" "err") ) ) (define-method set_bool (of-object "GConfClient") (c-name "gconf_client_set_bool") (return-type "gboolean") (parameters '("const-gchar*" "key") '("gboolean" "val") '("GError**" "err") ) ) (define-method set_schema (of-object "GConfClient") (c-name "gconf_client_set_schema") (return-type "gboolean") (parameters '("const-gchar*" "key") '("const-GConfSchema*" "val") '("GError**" "err") ) ) (define-method set_list (of-object "GConfClient") (c-name "gconf_client_set_list") (return-type "gboolean") (parameters '("const-gchar*" "key") '("GConfValueType" "list_type") '("GSList*" "list") '("GError**" "err") ) ) (define-method set_pair (of-object "GConfClient") (c-name "gconf_client_set_pair") (return-type "gboolean") (parameters '("const-gchar*" "key") '("GConfValueType" "car_type") '("GConfValueType" "cdr_type") '("gconstpointer" "address_of_car") '("gconstpointer" "address_of_cdr") '("GError**" "err") ) ) (define-method error (of-object "GConfClient") (c-name "gconf_client_error") (return-type "none") (parameters '("GError*" "error") ) ) (define-method unreturned_error (of-object "GConfClient") (c-name "gconf_client_unreturned_error") (return-type "none") (parameters '("GError*" "error") ) ) (define-method value_changed (of-object "GConfClient") (c-name "gconf_client_value_changed") (return-type "none") (parameters '("const-gchar*" "key") '("GConfValue*" "value") ) ) (define-method commit_change_set (of-object "GConfClient") (c-name "gconf_client_commit_change_set") (return-type "gboolean") (parameters '("GConfChangeSet*" "cs") '("gboolean" "remove_committed") '("GError**" "err") ) ) (define-method reverse_change_set (of-object "GConfClient") (c-name "gconf_client_reverse_change_set") (return-type "GConfChangeSet*") (parameters '("GConfChangeSet*" "cs") '("GError**" "err") ) ) (define-method change_set_from_currentv (of-object "GConfClient") (c-name "gconf_client_change_set_from_currentv") (return-type "GConfChangeSet*") (parameters '("const-gchar**" "keys") '("GError**" "err") ) ) (define-method change_set_from_current (of-object "GConfClient") (c-name "gconf_client_change_set_from_current") (return-type "GConfChangeSet*") (parameters '("GError**" "err") '("const-gchar*" "first_key") ) (varargs #t) ) ;; From /opt/gnome2/include/gconf/2/gconf/gconf-engine.h (define-function gconf_engine_get_default (c-name "gconf_engine_get_default") (return-type "GConfEngine*") ) (define-function gconf_engine_get_for_address (c-name "gconf_engine_get_for_address") (return-type "GConfEngine*") (parameters '("const-gchar*" "address") '("GError**" "err") ) ) (define-function gconf_engine_get_for_addresses (c-name "gconf_engine_get_for_addresses") (return-type "GConfEngine*") (parameters '("GSList*" "addresses") '("GError**" "err") ) ) (define-method unref (of-object "GConfEngine") (c-name "gconf_engine_unref") (return-type "none") ) (define-method ref (of-object "GConfEngine") (c-name "gconf_engine_ref") (return-type "none") ) (define-function gconf_engine_get_local (c-name "gconf_engine_get_local") (return-type "GConfEngine*") (parameters '("const-char*" "address") '("GError**" "err") ) ) (define-function gconf_engine_get_local_for_addresses (c-name "gconf_engine_get_local_for_addresses") (return-type "GConfEngine*") (parameters '("GSList*" "addresses") '("GError**" "err") ) ) (define-method set_user_data (of-object "GConfEngine") (c-name "gconf_engine_set_user_data") (return-type "none") (parameters '("gpointer" "data") '("GDestroyNotify" "dnotify") ) ) (define-method get_user_data (of-object "GConfEngine") (c-name "gconf_engine_get_user_data") (return-type "gpointer") ) ;; From /opt/gnome2/include/gconf/2/gconf/gconf-enum-types.h (define-function gconf_value_type_get_type (c-name "gconf_value_type_get_type") (return-type "GType") ) (define-function gconf_unset_flags_get_type (c-name "gconf_unset_flags_get_type") (return-type "GType") ) (define-function gconf_error_get_type (c-name "gconf_error_get_type") (return-type "GType") ) (define-function gconf_client_preload_type_get_type (c-name "gconf_client_preload_type_get_type") (return-type "GType") ) (define-function gconf_client_error_handling_mode_get_type (c-name "gconf_client_error_handling_mode_get_type") (return-type "GType") ) ;; From /opt/gnome2/include/gconf/2/gconf/gconf-error.h (define-function gconf_error_quark (c-name "gconf_error_quark") (return-type "GQuark") ) ;; From /opt/gnome2/include/gconf/2/gconf/gconf.h (define-method notify_add (of-object "GConfEngine") (c-name "gconf_engine_notify_add") (return-type "guint") (parameters '("const-gchar*" "namespace_section") '("GConfNotifyFunc" "func") '("gpointer" "user_data") '("GError**" "err") ) ) (define-method notify_remove (of-object "GConfEngine") (c-name "gconf_engine_notify_remove") (return-type "none") (parameters '("guint" "cnxn") ) ) (define-method get (of-object "GConfEngine") (c-name "gconf_engine_get") (return-type "GConfValue*") (parameters '("const-gchar*" "key") '("GError**" "err") ) ) (define-method get_without_default (of-object "GConfEngine") (c-name "gconf_engine_get_without_default") (return-type "GConfValue*") (parameters '("const-gchar*" "key") '("GError**" "err") ) ) (define-method get_entry (of-object "GConfEngine") (c-name "gconf_engine_get_entry") (return-type "GConfEntry*") (parameters '("const-gchar*" "key") '("const-gchar*" "locale") '("gboolean" "use_schema_default") '("GError**" "err") ) ) (define-method get_with_locale (of-object "GConfEngine") (c-name "gconf_engine_get_with_locale") (return-type "GConfValue*") (parameters '("const-gchar*" "key") '("const-gchar*" "locale") '("GError**" "err") ) ) (define-method get_default_from_schema (of-object "GConfEngine") (c-name "gconf_engine_get_default_from_schema") (return-type "GConfValue*") (parameters '("const-gchar*" "key") '("GError**" "err") ) ) (define-method set (of-object "GConfEngine") (c-name "gconf_engine_set") (return-type "gboolean") (parameters '("const-gchar*" "key") '("const-GConfValue*" "value") '("GError**" "err") ) ) (define-method unset (of-object "GConfEngine") (c-name "gconf_engine_unset") (return-type "gboolean") (parameters '("const-gchar*" "key") '("GError**" "err") ) ) (define-method associate_schema (of-object "GConfEngine") (c-name "gconf_engine_associate_schema") (return-type "gboolean") (parameters '("const-gchar*" "key") '("const-gchar*" "schema_key") '("GError**" "err") ) ) (define-method all_entries (of-object "GConfEngine") (c-name "gconf_engine_all_entries") (return-type "GSList*") (parameters '("const-gchar*" "dir") '("GError**" "err") ) ) (define-method all_dirs (of-object "GConfEngine") (c-name "gconf_engine_all_dirs") (return-type "GSList*") (parameters '("const-gchar*" "dir") '("GError**" "err") ) ) (define-method suggest_sync (of-object "GConfEngine") (c-name "gconf_engine_suggest_sync") (return-type "none") (parameters '("GError**" "err") ) ) (define-method dir_exists (of-object "GConfEngine") (c-name "gconf_engine_dir_exists") (return-type "gboolean") (parameters '("const-gchar*" "dir") '("GError**" "err") ) ) (define-method remove_dir (of-object "GConfEngine") (c-name "gconf_engine_remove_dir") (return-type "none") (parameters '("const-gchar*" "dir") '("GError**" "err") ) ) (define-method key_is_writable (of-object "GConfEngine") (c-name "gconf_engine_key_is_writable") (return-type "gboolean") (parameters '("const-gchar*" "key") '("GError**" "err") ) ) (define-function gconf_valid_key (c-name "gconf_valid_key") (return-type "gboolean") (parameters '("const-gchar*" "key") '("gchar**" "why_invalid") ) ) (define-function gconf_key_is_below (c-name "gconf_key_is_below") (return-type "gboolean") (parameters '("const-gchar*" "above") '("const-gchar*" "below") ) ) (define-function gconf_concat_dir_and_key (c-name "gconf_concat_dir_and_key") (return-type "gchar*") (parameters '("const-gchar*" "dir") '("const-gchar*" "key") ) ) (define-function gconf_unique_key (c-name "gconf_unique_key") (return-type "gchar*") ) (define-function gconf_escape_key (c-name "gconf_escape_key") (return-type "char*") (parameters '("const-char*" "arbitrary_text") '("int" "len") ) ) (define-function gconf_unescape_key (c-name "gconf_unescape_key") (return-type "char*") (parameters '("const-char*" "escaped_key") '("int" "len") ) ) (define-method get_float (of-object "GConfEngine") (c-name "gconf_engine_get_float") (return-type "gdouble") (parameters '("const-gchar*" "key") '("GError**" "err") ) ) (define-method get_int (of-object "GConfEngine") (c-name "gconf_engine_get_int") (return-type "gint") (parameters '("const-gchar*" "key") '("GError**" "err") ) ) (define-method get_string (of-object "GConfEngine") (c-name "gconf_engine_get_string") (return-type "gchar*") (parameters '("const-gchar*" "key") '("GError**" "err") ) ) (define-method get_bool (of-object "GConfEngine") (c-name "gconf_engine_get_bool") (return-type "gboolean") (parameters '("const-gchar*" "key") '("GError**" "err") ) ) (define-method get_schema (of-object "GConfEngine") (c-name "gconf_engine_get_schema") (return-type "GConfSchema*") (parameters '("const-gchar*" "key") '("GError**" "err") ) ) (define-method get_list (of-object "GConfEngine") (c-name "gconf_engine_get_list") (return-type "GSList*") (parameters '("const-gchar*" "key") '("GConfValueType" "list_type") '("GError**" "err") ) ) (define-method get_pair (of-object "GConfEngine") (c-name "gconf_engine_get_pair") (return-type "gboolean") (parameters '("const-gchar*" "key") '("GConfValueType" "car_type") '("GConfValueType" "cdr_type") '("gpointer" "car_retloc") '("gpointer" "cdr_retloc") '("GError**" "err") ) ) (define-method set_float (of-object "GConfEngine") (c-name "gconf_engine_set_float") (return-type "gboolean") (parameters '("const-gchar*" "key") '("gdouble" "val") '("GError**" "err") ) ) (define-method set_int (of-object "GConfEngine") (c-name "gconf_engine_set_int") (return-type "gboolean") (parameters '("const-gchar*" "key") '("gint" "val") '("GError**" "err") ) ) (define-method set_string (of-object "GConfEngine") (c-name "gconf_engine_set_string") (return-type "gboolean") (parameters '("const-gchar*" "key") '("const-gchar*" "val") '("GError**" "err") ) ) (define-method set_bool (of-object "GConfEngine") (c-name "gconf_engine_set_bool") (return-type "gboolean") (parameters '("const-gchar*" "key") '("gboolean" "val") '("GError**" "err") ) ) (define-method set_schema (of-object "GConfEngine") (c-name "gconf_engine_set_schema") (return-type "gboolean") (parameters '("const-gchar*" "key") '("const-GConfSchema*" "val") '("GError**" "err") ) ) (define-method set_list (of-object "GConfEngine") (c-name "gconf_engine_set_list") (return-type "gboolean") (parameters '("const-gchar*" "key") '("GConfValueType" "list_type") '("GSList*" "list") '("GError**" "err") ) ) (define-method set_pair (of-object "GConfEngine") (c-name "gconf_engine_set_pair") (return-type "gboolean") (parameters '("const-gchar*" "key") '("GConfValueType" "car_type") '("GConfValueType" "cdr_type") '("gconstpointer" "address_of_car") '("gconstpointer" "address_of_cdr") '("GError**" "err") ) ) (define-function gconf_string_to_enum (c-name "gconf_string_to_enum") (return-type "gboolean") (parameters '("GConfEnumStringPair[]" "lookup_table") '("const-gchar*" "str") '("gint*" "enum_value_retloc") ) ) (define-function gconf_enum_to_string (c-name "gconf_enum_to_string") (return-type "const-gchar*") (parameters '("GConfEnumStringPair[]" "lookup_table") '("gint" "enum_value") ) ) (define-function gconf_debug_shutdown (c-name "gconf_debug_shutdown") (return-type "int") ) (define-function gconf_init (c-name "gconf_init") (return-type "gboolean") (parameters '("int" "argc") '("char**" "argv") '("GError**" "err") ) ) (define-function gconf_is_initialized (c-name "gconf_is_initialized") (return-type "gboolean") ) (define-function gconf_preinit (c-name "gconf_preinit") (return-type "none") (parameters '("gpointer" "app") '("gpointer" "mod_info") ) ) (define-function gconf_postinit (c-name "gconf_postinit") (return-type "none") (parameters '("gpointer" "app") '("gpointer" "mod_info") ) ) (define-function gconf_clear_cache (c-name "gconf_clear_cache") (return-type "none") (parameters '("GConfEngine*" "conf") '("GError**" "err") ) ) (define-function gconf_synchronous_sync (c-name "gconf_synchronous_sync") (return-type "none") (parameters '("GConfEngine*" "conf") '("GError**" "err") ) ) (define-method get_full (of-object "GConfEngine") (c-name "gconf_engine_get_full") (return-type "GConfValue*") (parameters '("const-gchar*" "key") '("const-gchar*" "locale") '("gboolean" "use_schema_default") '("gboolean*" "is_default_p") '("gboolean*" "is_writable_p") '("GError**" "err") ) ) ;; From /opt/gnome2/include/gconf/2/gconf/gconf-listeners.h (define-function gconf_listeners_new (c-name "gconf_listeners_new") (is-constructor-of "GconfListeners") (return-type "GConfListeners*") ) (define-method free (of-object "GConfListeners") (c-name "gconf_listeners_free") (return-type "none") ) (define-method add (of-object "GConfListeners") (c-name "gconf_listeners_add") (return-type "guint") (parameters '("const-gchar*" "listen_point") '("gpointer" "listener_data") '("GFreeFunc" "destroy_notify") ) ) (define-method remove (of-object "GConfListeners") (c-name "gconf_listeners_remove") (return-type "none") (parameters '("guint" "cnxn_id") ) ) (define-method notify (of-object "GConfListeners") (c-name "gconf_listeners_notify") (return-type "none") (parameters '("const-gchar*" "all_above") '("GConfListenersCallback" "callback") '("gpointer" "user_data") ) ) (define-method count (of-object "GConfListeners") (c-name "gconf_listeners_count") (return-type "guint") ) (define-method foreach (of-object "GConfListeners") (c-name "gconf_listeners_foreach") (return-type "none") (parameters '("GConfListenersForeach" "callback") '("gpointer" "user_data") ) ) (define-method get_data (of-object "GConfListeners") (c-name "gconf_listeners_get_data") (return-type "gboolean") (parameters '("guint" "cnxn_id") '("gpointer*" "listener_data_p") '("const-gchar**" "location_p") ) ) (define-method remove_if (of-object "GConfListeners") (c-name "gconf_listeners_remove_if") (return-type "none") (parameters '("GConfListenersPredicate" "predicate") '("gpointer" "user_data") ) ) ;; From /opt/gnome2/include/gconf/2/gconf/gconf-schema.h (define-function gconf_schema_new (c-name "gconf_schema_new") (is-constructor-of "GconfSchema") (return-type "GConfSchema*") ) (define-method free (of-object "GConfSchema") (c-name "gconf_schema_free") (return-type "none") ) (define-method copy (of-object "GConfSchema") (c-name "gconf_schema_copy") (return-type "GConfSchema*") ) (define-method set_type (of-object "GConfSchema") (c-name "gconf_schema_set_type") (return-type "none") (parameters '("GConfValueType" "type") ) ) (define-method set_list_type (of-object "GConfSchema") (c-name "gconf_schema_set_list_type") (return-type "none") (parameters '("GConfValueType" "type") ) ) (define-method set_car_type (of-object "GConfSchema") (c-name "gconf_schema_set_car_type") (return-type "none") (parameters '("GConfValueType" "type") ) ) (define-method set_cdr_type (of-object "GConfSchema") (c-name "gconf_schema_set_cdr_type") (return-type "none") (parameters '("GConfValueType" "type") ) ) (define-method set_locale (of-object "GConfSchema") (c-name "gconf_schema_set_locale") (return-type "none") (parameters '("const-gchar*" "locale") ) ) (define-method set_short_desc (of-object "GConfSchema") (c-name "gconf_schema_set_short_desc") (return-type "none") (parameters '("const-gchar*" "desc") ) ) (define-method set_long_desc (of-object "GConfSchema") (c-name "gconf_schema_set_long_desc") (return-type "none") (parameters '("const-gchar*" "desc") ) ) (define-method set_owner (of-object "GConfSchema") (c-name "gconf_schema_set_owner") (return-type "none") (parameters '("const-gchar*" "owner") ) ) (define-method set_default_value (of-object "GConfSchema") (c-name "gconf_schema_set_default_value") (return-type "none") (parameters '("const-GConfValue*" "val") ) ) (define-method set_default_value_nocopy (of-object "GConfSchema") (c-name "gconf_schema_set_default_value_nocopy") (return-type "none") (parameters '("GConfValue*" "val") ) ) (define-method get_type (of-object "GConfSchema") (c-name "gconf_schema_get_type") (return-type "GConfValueType") ) (define-method get_list_type (of-object "GConfSchema") (c-name "gconf_schema_get_list_type") (return-type "GConfValueType") ) (define-method get_car_type (of-object "GConfSchema") (c-name "gconf_schema_get_car_type") (return-type "GConfValueType") ) (define-method get_cdr_type (of-object "GConfSchema") (c-name "gconf_schema_get_cdr_type") (return-type "GConfValueType") ) (define-method get_locale (of-object "GConfSchema") (c-name "gconf_schema_get_locale") (return-type "const-char*") ) (define-method get_short_desc (of-object "GConfSchema") (c-name "gconf_schema_get_short_desc") (return-type "const-char*") ) (define-method get_long_desc (of-object "GConfSchema") (c-name "gconf_schema_get_long_desc") (return-type "const-char*") ) (define-method get_owner (of-object "GConfSchema") (c-name "gconf_schema_get_owner") (return-type "const-char*") ) (define-method get_default_value (of-object "GConfSchema") (c-name "gconf_schema_get_default_value") (return-type "GConfValue*") ) ;; From /opt/gnome2/include/gconf/2/gconf/gconf-value.h (define-method get_string (of-object "GConfValue") (c-name "gconf_value_get_string") (return-type "const-char*") ) (define-method get_int (of-object "GConfValue") (c-name "gconf_value_get_int") (return-type "int") ) (define-method get_float (of-object "GConfValue") (c-name "gconf_value_get_float") (return-type "double") ) (define-method get_list_type (of-object "GConfValue") (c-name "gconf_value_get_list_type") (return-type "GConfValueType") ) (define-method get_list (of-object "GConfValue") (c-name "gconf_value_get_list") (return-type "GSList*") ) (define-method get_car (of-object "GConfValue") (c-name "gconf_value_get_car") (return-type "GConfValue*") ) (define-method get_cdr (of-object "GConfValue") (c-name "gconf_value_get_cdr") (return-type "GConfValue*") ) (define-method get_bool (of-object "GConfValue") (c-name "gconf_value_get_bool") (return-type "gboolean") ) (define-method get_schema (of-object "GConfValue") (c-name "gconf_value_get_schema") (return-type "GConfSchema*") ) (define-function gconf_value_new (c-name "gconf_value_new") (is-constructor-of "GconfValue") (return-type "GConfValue*") (parameters '("GConfValueType" "type") ) ) (define-function gconf_value_new_from_string (c-name "gconf_value_new_from_string") (return-type "GConfValue*") (parameters '("GConfValueType" "type") '("const-gchar*" "str") '("GError**" "err") ) ) (define-method copy (of-object "GConfValue") (c-name "gconf_value_copy") (return-type "GConfValue*") ) (define-method free (of-object "GConfValue") (c-name "gconf_value_free") (return-type "none") ) (define-method set_int (of-object "GConfValue") (c-name "gconf_value_set_int") (return-type "none") (parameters '("gint" "the_int") ) ) (define-method set_string (of-object "GConfValue") (c-name "gconf_value_set_string") (return-type "none") (parameters '("const-gchar*" "the_str") ) ) (define-method set_float (of-object "GConfValue") (c-name "gconf_value_set_float") (return-type "none") (parameters '("gdouble" "the_float") ) ) (define-method set_bool (of-object "GConfValue") (c-name "gconf_value_set_bool") (return-type "none") (parameters '("gboolean" "the_bool") ) ) (define-method set_schema (of-object "GConfValue") (c-name "gconf_value_set_schema") (return-type "none") (parameters '("const-GConfSchema*" "sc") ) ) (define-method set_schema_nocopy (of-object "GConfValue") (c-name "gconf_value_set_schema_nocopy") (return-type "none") (parameters '("GConfSchema*" "sc") ) ) (define-method set_car (of-object "GConfValue") (c-name "gconf_value_set_car") (return-type "none") (parameters '("const-GConfValue*" "car") ) ) (define-method set_car_nocopy (of-object "GConfValue") (c-name "gconf_value_set_car_nocopy") (return-type "none") (parameters '("GConfValue*" "car") ) ) (define-method set_cdr (of-object "GConfValue") (c-name "gconf_value_set_cdr") (return-type "none") (parameters '("const-GConfValue*" "cdr") ) ) (define-method set_cdr_nocopy (of-object "GConfValue") (c-name "gconf_value_set_cdr_nocopy") (return-type "none") (parameters '("GConfValue*" "cdr") ) ) (define-method set_list_type (of-object "GConfValue") (c-name "gconf_value_set_list_type") (return-type "none") (parameters '("GConfValueType" "type") ) ) (define-method set_list_nocopy (of-object "GConfValue") (c-name "gconf_value_set_list_nocopy") (return-type "none") (parameters '("GSList*" "list") ) ) (define-method set_list (of-object "GConfValue") (c-name "gconf_value_set_list") (return-type "none") (parameters '("GSList*" "list") ) ) (define-method to_string (of-object "GConfValue") (c-name "gconf_value_to_string") (return-type "gchar*") ) (define-method compare (of-object "GConfValue") (c-name "gconf_value_compare") (return-type "int") (parameters '("const-GConfValue*" "value_b") ) ) (define-method get_schema (of-object "GConfMetaInfo") (c-name "gconf_meta_info_get_schema") (return-type "const-char*") ) (define-method get_mod_user (of-object "GConfMetaInfo") (c-name "gconf_meta_info_get_mod_user") (return-type "const-char*") ) (define-method mod_time (of-object "GConfMetaInfo") (c-name "gconf_meta_info_mod_time") (return-type "GTime") ) (define-function gconf_meta_info_new (c-name "gconf_meta_info_new") (is-constructor-of "GconfMetaInfo") (return-type "GConfMetaInfo*") ) (define-method free (of-object "GConfMetaInfo") (c-name "gconf_meta_info_free") (return-type "none") ) (define-method set_schema (of-object "GConfMetaInfo") (c-name "gconf_meta_info_set_schema") (return-type "none") (parameters '("const-gchar*" "schema_name") ) ) (define-method set_mod_user (of-object "GConfMetaInfo") (c-name "gconf_meta_info_set_mod_user") (return-type "none") (parameters '("const-gchar*" "mod_user") ) ) (define-method set_mod_time (of-object "GConfMetaInfo") (c-name "gconf_meta_info_set_mod_time") (return-type "none") (parameters '("GTime" "mod_time") ) ) (define-method get_key (of-object "GConfEntry") (c-name "gconf_entry_get_key") (return-type "const-char*") ) (define-method get_value (of-object "GConfEntry") (c-name "gconf_entry_get_value") (return-type "GConfValue*") ) (define-method get_schema_name (of-object "GConfEntry") (c-name "gconf_entry_get_schema_name") (return-type "const-char*") ) (define-method get_is_default (of-object "GConfEntry") (c-name "gconf_entry_get_is_default") (return-type "gboolean") ) (define-method get_is_writable (of-object "GConfEntry") (c-name "gconf_entry_get_is_writable") (return-type "gboolean") ) (define-function gconf_entry_new (c-name "gconf_entry_new") (is-constructor-of "GconfEntry") (return-type "GConfEntry*") (parameters '("const-gchar*" "key") '("const-GConfValue*" "val") ) ) (define-function gconf_entry_new_nocopy (c-name "gconf_entry_new_nocopy") (return-type "GConfEntry*") (parameters '("gchar*" "key") '("GConfValue*" "val") ) ) (define-method copy (of-object "GConfEntry") (c-name "gconf_entry_copy") (return-type "GConfEntry*") ) (define-method free (of-object "GConfEntry") (c-name "gconf_entry_free") (return-type "none") ) (define-method ref (of-object "GConfEntry") (c-name "gconf_entry_ref") (return-type "none") ) (define-method unref (of-object "GConfEntry") (c-name "gconf_entry_unref") (return-type "none") ) (define-method steal_value (of-object "GConfEntry") (c-name "gconf_entry_steal_value") (return-type "GConfValue*") ) (define-method set_value (of-object "GConfEntry") (c-name "gconf_entry_set_value") (return-type "none") (parameters '("const-GConfValue*" "val") ) ) (define-method set_value_nocopy (of-object "GConfEntry") (c-name "gconf_entry_set_value_nocopy") (return-type "none") (parameters '("GConfValue*" "val") ) ) (define-method set_schema_name (of-object "GConfEntry") (c-name "gconf_entry_set_schema_name") (return-type "none") (parameters '("const-gchar*" "name") ) ) (define-method set_is_default (of-object "GConfEntry") (c-name "gconf_entry_set_is_default") (return-type "none") (parameters '("gboolean" "is_default") ) ) (define-method set_is_writable (of-object "GConfEntry") (c-name "gconf_entry_set_is_writable") (return-type "none") (parameters '("gboolean" "is_writable") ) ) (define-method equal (of-object "GConfEntry") (c-name "gconf_entry_equal") (return-type "gboolean") (parameters '("const-GConfEntry*" "b") ) ) guile-gnome-platform-2.16.2/defs/gnome/defs/libgnomeui.defs0000644000175000017500000031104611670374302024140 0ustar00wingowingo00000000000000;; -*- scheme -*- (include type-ignores) (include "libgnomeui-types.defs") (include overrides) ;; From /opt/gnome2/include/libgnomeui-2.0/libgnomeui/gnome-about.h (define-function gnome_about_get_type (c-name "gnome_about_get_type") (return-type "GType") ) (define-function gnome_about_new (c-name "gnome_about_new") (is-constructor-of "GnomeAbout") (return-type "GtkWidget*") (parameters '("const-gchar*" "name") '("const-gchar*" "version") '("const-gchar*" "copyright") '("const-gchar*" "comments") '("const-gchar**" "authors") '("const-gchar**" "documenters") '("const-gchar*" "translator_credits") '("GdkPixbuf*" "logo_pixbuf") ) ) (define-method construct (of-object "GnomeAbout") (c-name "gnome_about_construct") (return-type "none") (parameters '("const-gchar*" "name") '("const-gchar*" "version") '("const-gchar*" "copyright") '("const-gchar*" "comments") '("const-gchar**" "authors") '("const-gchar**" "documenters") '("const-gchar*" "translator_credits") '("GdkPixbuf*" "logo_pixbuf") ) ) ;; From /opt/gnome2/include/libgnomeui-2.0/libgnomeui/gnome-appbar.h (define-function gnome_appbar_get_type (c-name "gnome_appbar_get_type") (return-type "GType") ) (define-function gnome_appbar_new (c-name "gnome_appbar_new") (is-constructor-of "GnomeAppbar") (return-type "GtkWidget*") (parameters '("gboolean" "has_progress") '("gboolean" "has_status") '("GnomePreferencesType" "interactivity") ) ) (define-method set_status (of-object "GnomeAppBar") (c-name "gnome_appbar_set_status") (return-type "none") (parameters '("const-gchar*" "status") ) ) (define-method get_status (of-object "GnomeAppBar") (c-name "gnome_appbar_get_status") (return-type "GtkWidget*") ) (define-method set_default (of-object "GnomeAppBar") (c-name "gnome_appbar_set_default") (return-type "none") (parameters '("const-gchar*" "default_status") ) ) (define-method push (of-object "GnomeAppBar") (c-name "gnome_appbar_push") (return-type "none") (parameters '("const-gchar*" "status") ) ) (define-method pop (of-object "GnomeAppBar") (c-name "gnome_appbar_pop") (return-type "none") ) (define-method clear_stack (of-object "GnomeAppBar") (c-name "gnome_appbar_clear_stack") (return-type "none") ) (define-method set_progress_percentage (of-object "GnomeAppBar") (c-name "gnome_appbar_set_progress_percentage") (return-type "none") (parameters '("gfloat" "percentage") ) ) (define-method get_progress (of-object "GnomeAppBar") (c-name "gnome_appbar_get_progress") (return-type "GtkProgressBar*") ) (define-method refresh (of-object "GnomeAppBar") (c-name "gnome_appbar_refresh") (return-type "none") ) (define-method set_prompt (of-object "GnomeAppBar") (c-name "gnome_appbar_set_prompt") (return-type "none") (parameters '("const-gchar*" "prompt") '("gboolean" "modal") ) ) (define-method clear_prompt (of-object "GnomeAppBar") (c-name "gnome_appbar_clear_prompt") (return-type "none") ) (define-method get_response (of-object "GnomeAppBar") (c-name "gnome_appbar_get_response") (return-type "gchar*") ) ;; From /opt/gnome2/include/libgnomeui-2.0/libgnomeui/gnome-app.h (define-function gnome_app_get_type (c-name "gnome_app_get_type") (return-type "GType") ) (define-function gnome_app_new (c-name "gnome_app_new") (is-constructor-of "GnomeApp") (return-type "GtkWidget*") (parameters '("const-gchar*" "appname") '("const-gchar*" "title") ) ) (define-method construct (of-object "GnomeApp") (c-name "gnome_app_construct") (return-type "none") (parameters '("const-gchar*" "appname") '("const-gchar*" "title") ) ) (define-method set_menus (of-object "GnomeApp") (c-name "gnome_app_set_menus") (return-type "none") (parameters '("GtkMenuBar*" "menubar") ) ) (define-method set_toolbar (of-object "GnomeApp") (c-name "gnome_app_set_toolbar") (return-type "none") (parameters '("GtkToolbar*" "toolbar") ) ) (define-method set_statusbar (of-object "GnomeApp") (c-name "gnome_app_set_statusbar") (return-type "none") (parameters '("GtkWidget*" "statusbar") ) ) (define-method set_statusbar_custom (of-object "GnomeApp") (c-name "gnome_app_set_statusbar_custom") (return-type "none") (parameters '("GtkWidget*" "container") '("GtkWidget*" "statusbar") ) ) (define-method set_contents (of-object "GnomeApp") (c-name "gnome_app_set_contents") (return-type "none") (parameters '("GtkWidget*" "contents") ) ) (define-method add_toolbar (of-object "GnomeApp") (c-name "gnome_app_add_toolbar") (return-type "none") (parameters '("GtkToolbar*" "toolbar") '("const-gchar*" "name") '("BonoboDockItemBehavior" "behavior") '("BonoboDockPlacement" "placement") '("gint" "band_num") '("gint" "band_position") '("gint" "offset") ) ) (define-method add_docked (of-object "GnomeApp") (c-name "gnome_app_add_docked") (return-type "GtkWidget*") (parameters '("GtkWidget*" "widget") '("const-gchar*" "name") '("BonoboDockItemBehavior" "behavior") '("BonoboDockPlacement" "placement") '("gint" "band_num") '("gint" "band_position") '("gint" "offset") ) ) (define-method add_dock_item (of-object "GnomeApp") (c-name "gnome_app_add_dock_item") (return-type "none") (parameters '("BonoboDockItem*" "item") '("BonoboDockPlacement" "placement") '("gint" "band_num") '("gint" "band_position") '("gint" "offset") ) ) (define-method enable_layout_config (of-object "GnomeApp") (c-name "gnome_app_enable_layout_config") (return-type "none") (parameters '("gboolean" "enable") ) ) (define-method get_dock (of-object "GnomeApp") (c-name "gnome_app_get_dock") (return-type "BonoboDock*") ) (define-method get_dock_item_by_name (of-object "GnomeApp") (c-name "gnome_app_get_dock_item_by_name") (return-type "BonoboDockItem*") (parameters '("const-gchar*" "name") ) ) ;; From /opt/gnome2/include/libgnomeui-2.0/libgnomeui/gnome-app-helper.h (define-function gnome_app_helper_gettext (c-name "gnome_app_helper_gettext") (return-type "const-gchar*") (parameters '("const-gchar*" "string") ) ) (define-function gnome_accelerators_sync (c-name "gnome_accelerators_sync") (return-type "none") ) (define-function gnome_app_fill_menu (c-name "gnome_app_fill_menu") (return-type "none") (parameters '("GtkMenuShell*" "menu_shell") '("GnomeUIInfo*" "uiinfo") '("GtkAccelGroup*" "accel_group") '("gboolean" "uline_accels") '("gint" "pos") ) ) (define-function gnome_app_fill_menu_with_data (c-name "gnome_app_fill_menu_with_data") (return-type "none") (parameters '("GtkMenuShell*" "menu_shell") '("GnomeUIInfo*" "uiinfo") '("GtkAccelGroup*" "accel_group") '("gboolean" "uline_accels") '("gint" "pos") '("gpointer" "user_data") ) ) (define-function gnome_app_fill_menu_custom (c-name "gnome_app_fill_menu_custom") (return-type "none") (parameters '("GtkMenuShell*" "menu_shell") '("GnomeUIInfo*" "uiinfo") '("GnomeUIBuilderData*" "uibdata") '("GtkAccelGroup*" "accel_group") '("gboolean" "uline_accels") '("gint" "pos") ) ) (define-function gnome_app_ui_configure_configurable (c-name "gnome_app_ui_configure_configurable") (return-type "none") (parameters '("GnomeUIInfo*" "uiinfo") ) ) (define-method create_menus (of-object "GnomeApp") (c-name "gnome_app_create_menus") (return-type "none") (parameters '("GnomeUIInfo*" "uiinfo") ) ) (define-method create_menus_interp (of-object "GnomeApp") (c-name "gnome_app_create_menus_interp") (return-type "none") (parameters '("GnomeUIInfo*" "uiinfo") '("GtkCallbackMarshal" "relay_func") '("gpointer" "data") '("GtkDestroyNotify" "destroy_func") ) ) (define-method create_menus_with_data (of-object "GnomeApp") (c-name "gnome_app_create_menus_with_data") (return-type "none") (parameters '("GnomeUIInfo*" "uiinfo") '("gpointer" "user_data") ) ) (define-method create_menus_custom (of-object "GnomeApp") (c-name "gnome_app_create_menus_custom") (return-type "none") (parameters '("GnomeUIInfo*" "uiinfo") '("GnomeUIBuilderData*" "uibdata") ) ) (define-function gnome_app_fill_toolbar (c-name "gnome_app_fill_toolbar") (return-type "none") (parameters '("GtkToolbar*" "toolbar") '("GnomeUIInfo*" "uiinfo") '("GtkAccelGroup*" "accel_group") ) ) (define-function gnome_app_fill_toolbar_with_data (c-name "gnome_app_fill_toolbar_with_data") (return-type "none") (parameters '("GtkToolbar*" "toolbar") '("GnomeUIInfo*" "uiinfo") '("GtkAccelGroup*" "accel_group") '("gpointer" "user_data") ) ) (define-function gnome_app_fill_toolbar_custom (c-name "gnome_app_fill_toolbar_custom") (return-type "none") (parameters '("GtkToolbar*" "toolbar") '("GnomeUIInfo*" "uiinfo") '("GnomeUIBuilderData*" "uibdata") '("GtkAccelGroup*" "accel_group") ) ) (define-method create_toolbar (of-object "GnomeApp") (c-name "gnome_app_create_toolbar") (return-type "none") (parameters '("GnomeUIInfo*" "uiinfo") ) ) (define-method create_toolbar_interp (of-object "GnomeApp") (c-name "gnome_app_create_toolbar_interp") (return-type "none") (parameters '("GnomeUIInfo*" "uiinfo") '("GtkCallbackMarshal" "relay_func") '("gpointer" "data") '("GtkDestroyNotify" "destroy_func") ) ) (define-method create_toolbar_with_data (of-object "GnomeApp") (c-name "gnome_app_create_toolbar_with_data") (return-type "none") (parameters '("GnomeUIInfo*" "uiinfo") '("gpointer" "user_data") ) ) (define-method create_toolbar_custom (of-object "GnomeApp") (c-name "gnome_app_create_toolbar_custom") (return-type "none") (parameters '("GnomeUIInfo*" "uiinfo") '("GnomeUIBuilderData*" "uibdata") ) ) (define-function gnome_app_find_menu_pos (c-name "gnome_app_find_menu_pos") (return-type "GtkWidget*") (parameters '("GtkWidget*" "parent") '("const-gchar*" "path") '("gint*" "pos") ) ) (define-method remove_menus (of-object "GnomeApp") (c-name "gnome_app_remove_menus") (return-type "none") (parameters '("const-gchar*" "path") '("gint" "items") ) ) (define-method remove_menu_range (of-object "GnomeApp") (c-name "gnome_app_remove_menu_range") (return-type "none") (parameters '("const-gchar*" "path") '("gint" "start") '("gint" "items") ) ) (define-method insert_menus_custom (of-object "GnomeApp") (c-name "gnome_app_insert_menus_custom") (return-type "none") (parameters '("const-gchar*" "path") '("GnomeUIInfo*" "uiinfo") '("GnomeUIBuilderData*" "uibdata") ) ) (define-method insert_menus (of-object "GnomeApp") (c-name "gnome_app_insert_menus") (return-type "none") (parameters '("const-gchar*" "path") '("GnomeUIInfo*" "menuinfo") ) ) (define-method insert_menus_with_data (of-object "GnomeApp") (c-name "gnome_app_insert_menus_with_data") (return-type "none") (parameters '("const-gchar*" "path") '("GnomeUIInfo*" "menuinfo") '("gpointer" "data") ) ) (define-method insert_menus_interp (of-object "GnomeApp") (c-name "gnome_app_insert_menus_interp") (return-type "none") (parameters '("const-gchar*" "path") '("GnomeUIInfo*" "menuinfo") '("GtkCallbackMarshal" "relay_func") '("gpointer" "data") '("GtkDestroyNotify" "destroy_func") ) ) (define-function gnome_app_install_appbar_menu_hints (c-name "gnome_app_install_appbar_menu_hints") (return-type "none") (parameters '("GnomeAppBar*" "appbar") '("GnomeUIInfo*" "uiinfo") ) ) (define-function gnome_app_install_statusbar_menu_hints (c-name "gnome_app_install_statusbar_menu_hints") (return-type "none") (parameters '("GtkStatusbar*" "bar") '("GnomeUIInfo*" "uiinfo") ) ) (define-method install_menu_hints (of-object "GnomeApp") (c-name "gnome_app_install_menu_hints") (return-type "none") (parameters '("GnomeUIInfo*" "uiinfo") ) ) (define-function gnome_app_setup_toolbar (c-name "gnome_app_setup_toolbar") (return-type "none") (parameters '("GtkToolbar*" "toolbar") '("BonoboDockItem*" "dock_item") ) ) ;; From /opt/gnome2/include/libgnomeui-2.0/libgnomeui/gnome-app-util.h (define-method message (of-object "GnomeApp") (c-name "gnome_app_message") (return-type "GtkWidget*") (parameters '("const-gchar*" "message") ) ) (define-method flash (of-object "GnomeApp") (c-name "gnome_app_flash") (return-type "none") (parameters '("const-gchar*" "flash") ) ) (define-method error (of-object "GnomeApp") (c-name "gnome_app_error") (return-type "GtkWidget*") (parameters '("const-gchar*" "error") ) ) (define-method warning (of-object "GnomeApp") (c-name "gnome_app_warning") (return-type "GtkWidget*") (parameters '("const-gchar*" "warning") ) ) (define-method question (of-object "GnomeApp") (c-name "gnome_app_question") (return-type "GtkWidget*") (parameters '("const-gchar*" "question") '("GnomeReplyCallback" "callback") '("gpointer" "data") ) ) (define-method question_modal (of-object "GnomeApp") (c-name "gnome_app_question_modal") (return-type "GtkWidget*") (parameters '("const-gchar*" "question") '("GnomeReplyCallback" "callback") '("gpointer" "data") ) ) (define-method ok_cancel (of-object "GnomeApp") (c-name "gnome_app_ok_cancel") (return-type "GtkWidget*") (parameters '("const-gchar*" "message") '("GnomeReplyCallback" "callback") '("gpointer" "data") ) ) (define-method ok_cancel_modal (of-object "GnomeApp") (c-name "gnome_app_ok_cancel_modal") (return-type "GtkWidget*") (parameters '("const-gchar*" "message") '("GnomeReplyCallback" "callback") '("gpointer" "data") ) ) (define-method request_string (of-object "GnomeApp") (c-name "gnome_app_request_string") (return-type "GtkWidget*") (parameters '("const-gchar*" "prompt") '("GnomeStringCallback" "callback") '("gpointer" "data") ) ) (define-method request_password (of-object "GnomeApp") (c-name "gnome_app_request_password") (return-type "GtkWidget*") (parameters '("const-gchar*" "prompt") '("GnomeStringCallback" "callback") '("gpointer" "data") ) ) (define-method progress_timeout (of-object "GnomeApp") (c-name "gnome_app_progress_timeout") (return-type "GnomeAppProgressKey") (parameters '("const-gchar*" "description") '("guint32" "interval") '("GnomeAppProgressFunc" "percentage_cb") '("GnomeAppProgressCancelFunc" "cancel_cb") '("gpointer" "data") ) ) (define-method progress_manual (of-object "GnomeApp") (c-name "gnome_app_progress_manual") (return-type "GnomeAppProgressKey") (parameters '("const-gchar*" "description") '("GnomeAppProgressCancelFunc" "cancel_cb") '("gpointer" "data") ) ) (define-function gnome_app_set_progress (c-name "gnome_app_set_progress") (return-type "none") (parameters '("GnomeAppProgressKey" "key") '("gdouble" "percent") ) ) (define-function gnome_app_progress_done (c-name "gnome_app_progress_done") (return-type "none") (parameters '("GnomeAppProgressKey" "key") ) ) ;; From /opt/gnome2/include/libgnomeui-2.0/libgnomeui/gnome-authentication-manager.h (define-function gnome_authentication_manager_init (c-name "gnome_authentication_manager_init") (return-type "none") ) (define-function gnome_authentication_manager_dialog_is_visible (c-name "gnome_authentication_manager_dialog_is_visible") (return-type "gboolean") ) ;; From /opt/gnome2/include/libgnomeui-2.0/libgnomeui/gnome-client.h (define-function gnome_client_module_info_get (c-name "gnome_client_module_info_get") (return-type "const-GnomeModuleInfo*") ) (define-function gnome_client_get_type (c-name "gnome_client_get_type") (return-type "GType") ) (define-function gnome_master_client (c-name "gnome_master_client") (return-type "GnomeClient*") ) (define-method get_config_prefix (of-object "GnomeClient") (c-name "gnome_client_get_config_prefix") (return-type "const-gchar*") ) (define-method get_global_config_prefix (of-object "GnomeClient") (c-name "gnome_client_get_global_config_prefix") (return-type "const-gchar*") ) (define-method set_global_config_prefix (of-object "GnomeClient") (c-name "gnome_client_set_global_config_prefix") (return-type "none") (parameters '("const-gchar*" "prefix") ) ) (define-method get_flags (of-object "GnomeClient") (c-name "gnome_client_get_flags") (return-type "GnomeClientFlags") ) (define-method set_restart_style (of-object "GnomeClient") (c-name "gnome_client_set_restart_style") (return-type "none") (parameters '("GnomeRestartStyle" "style") ) ) (define-method set_priority (of-object "GnomeClient") (c-name "gnome_client_set_priority") (return-type "none") (parameters '("guint" "priority") ) ) (define-method set_restart_command (of-object "GnomeClient") (c-name "gnome_client_set_restart_command") (return-type "none") (parameters '("gint" "argc") '("gchar*[]" "argv") ) ) (define-method add_static_arg (of-object "GnomeClient") (c-name "gnome_client_add_static_arg") (return-type "none") (parameters ) (varargs #t) ) (define-method set_discard_command (of-object "GnomeClient") (c-name "gnome_client_set_discard_command") (return-type "none") (parameters '("gint" "argc") '("gchar*[]" "argv") ) ) (define-method set_resign_command (of-object "GnomeClient") (c-name "gnome_client_set_resign_command") (return-type "none") (parameters '("gint" "argc") '("gchar*[]" "argv") ) ) (define-method set_shutdown_command (of-object "GnomeClient") (c-name "gnome_client_set_shutdown_command") (return-type "none") (parameters '("gint" "argc") '("gchar*[]" "argv") ) ) (define-method set_current_directory (of-object "GnomeClient") (c-name "gnome_client_set_current_directory") (return-type "none") (parameters '("const-gchar*" "dir") ) ) (define-method set_environment (of-object "GnomeClient") (c-name "gnome_client_set_environment") (return-type "none") (parameters '("const-gchar*" "name") '("const-gchar*" "value") ) ) (define-method set_clone_command (of-object "GnomeClient") (c-name "gnome_client_set_clone_command") (return-type "none") (parameters '("gint" "argc") '("gchar*[]" "argv") ) ) (define-method set_process_id (of-object "GnomeClient") (c-name "gnome_client_set_process_id") (return-type "none") (parameters '("pid_t" "pid") ) ) (define-method set_program (of-object "GnomeClient") (c-name "gnome_client_set_program") (return-type "none") (parameters '("const-gchar*" "program") ) ) (define-method set_user_id (of-object "GnomeClient") (c-name "gnome_client_set_user_id") (return-type "none") (parameters '("const-gchar*" "id") ) ) (define-method save_any_dialog (of-object "GnomeClient") (c-name "gnome_client_save_any_dialog") (return-type "none") (parameters '("GtkDialog*" "dialog") ) ) (define-method save_error_dialog (of-object "GnomeClient") (c-name "gnome_client_save_error_dialog") (return-type "none") (parameters '("GtkDialog*" "dialog") ) ) (define-method request_phase_2 (of-object "GnomeClient") (c-name "gnome_client_request_phase_2") (return-type "none") ) (define-method request_save (of-object "GnomeClient") (c-name "gnome_client_request_save") (return-type "none") (parameters '("GnomeSaveStyle" "save_style") '("gboolean" "shutdown") '("GnomeInteractStyle" "interact_style") '("gboolean" "fast") '("gboolean" "global") ) ) (define-method flush (of-object "GnomeClient") (c-name "gnome_client_flush") (return-type "none") ) (define-function gnome_client_disable_master_connection (c-name "gnome_client_disable_master_connection") (return-type "none") ) (define-function gnome_client_new (c-name "gnome_client_new") (is-constructor-of "GnomeClient") (return-type "GnomeClient*") ) (define-function gnome_client_new_without_connection (c-name "gnome_client_new_without_connection") (return-type "GnomeClient*") ) (define-method connect (of-object "GnomeClient") (c-name "gnome_client_connect") (return-type "none") ) (define-method disconnect (of-object "GnomeClient") (c-name "gnome_client_disconnect") (return-type "none") ) (define-method set_id (of-object "GnomeClient") (c-name "gnome_client_set_id") (return-type "none") (parameters '("const-gchar*" "id") ) ) (define-method get_id (of-object "GnomeClient") (c-name "gnome_client_get_id") (return-type "const-gchar*") ) (define-method get_previous_id (of-object "GnomeClient") (c-name "gnome_client_get_previous_id") (return-type "const-gchar*") ) (define-method get_desktop_id (of-object "GnomeClient") (c-name "gnome_client_get_desktop_id") (return-type "const-gchar*") ) (define-method request_interaction (of-object "GnomeClient") (c-name "gnome_client_request_interaction") (return-type "none") (parameters '("GnomeDialogType" "dialog_type") '("GnomeInteractFunction" "function") '("gpointer" "data") ) ) (define-method request_interaction_interp (of-object "GnomeClient") (c-name "gnome_client_request_interaction_interp") (return-type "none") (parameters '("GnomeDialogType" "dialog_type") '("GtkCallbackMarshal" "function") '("gpointer" "data") '("GtkDestroyNotify" "destroy") ) ) (define-function gnome_interaction_key_return (c-name "gnome_interaction_key_return") (return-type "none") (parameters '("gint" "key") '("gboolean" "cancel_shutdown") ) ) ;; From /opt/gnome2/include/libgnomeui-2.0/libgnomeui/gnome-color-picker.h (define-function gnome_color_picker_get_type (c-name "gnome_color_picker_get_type") (return-type "GType") ) (define-function gnome_color_picker_new (c-name "gnome_color_picker_new") (is-constructor-of "GnomeColorPicker") (return-type "GtkWidget*") ) (define-method set_d (of-object "GnomeColorPicker") (c-name "gnome_color_picker_set_d") (return-type "none") (parameters '("gdouble" "r") '("gdouble" "g") '("gdouble" "b") '("gdouble" "a") ) ) (define-method get_d (of-object "GnomeColorPicker") (c-name "gnome_color_picker_get_d") (return-type "none") (parameters '("gdouble*" "r") '("gdouble*" "g") '("gdouble*" "b") '("gdouble*" "a") ) ) (define-method set_i8 (of-object "GnomeColorPicker") (c-name "gnome_color_picker_set_i8") (return-type "none") (parameters '("guint8" "r") '("guint8" "g") '("guint8" "b") '("guint8" "a") ) ) (define-method get_i8 (of-object "GnomeColorPicker") (c-name "gnome_color_picker_get_i8") (return-type "none") (parameters '("guint8*" "r") '("guint8*" "g") '("guint8*" "b") '("guint8*" "a") ) ) (define-method set_i16 (of-object "GnomeColorPicker") (c-name "gnome_color_picker_set_i16") (return-type "none") (parameters '("gushort" "r") '("gushort" "g") '("gushort" "b") '("gushort" "a") ) ) (define-method get_i16 (of-object "GnomeColorPicker") (c-name "gnome_color_picker_get_i16") (return-type "none") (parameters '("gushort*" "r") '("gushort*" "g") '("gushort*" "b") '("gushort*" "a") ) ) (define-method set_dither (of-object "GnomeColorPicker") (c-name "gnome_color_picker_set_dither") (return-type "none") (parameters '("gboolean" "dither") ) ) (define-method get_dither (of-object "GnomeColorPicker") (c-name "gnome_color_picker_get_dither") (return-type "gboolean") ) (define-method set_use_alpha (of-object "GnomeColorPicker") (c-name "gnome_color_picker_set_use_alpha") (return-type "none") (parameters '("gboolean" "use_alpha") ) ) (define-method get_use_alpha (of-object "GnomeColorPicker") (c-name "gnome_color_picker_get_use_alpha") (return-type "gboolean") ) (define-method set_title (of-object "GnomeColorPicker") (c-name "gnome_color_picker_set_title") (return-type "none") (parameters '("const-gchar*" "title") ) ) (define-method get_title (of-object "GnomeColorPicker") (c-name "gnome_color_picker_get_title") (return-type "const-char*") ) ;; From /opt/gnome2/include/libgnomeui-2.0/libgnomeui/gnome-dateedit.h (define-function gnome_date_edit_get_type (c-name "gnome_date_edit_get_type") (return-type "GType") ) (define-function gnome_date_edit_new (c-name "gnome_date_edit_new") (is-constructor-of "GnomeDateEdit") (return-type "GtkWidget*") (parameters '("time_t" "the_time") '("gboolean" "show_time") '("gboolean" "use_24_format") ) ) (define-function gnome_date_edit_new_flags (c-name "gnome_date_edit_new_flags") (return-type "GtkWidget*") (parameters '("time_t" "the_time") '("GnomeDateEditFlags" "flags") ) ) (define-method construct (of-object "GnomeDateEdit") (c-name "gnome_date_edit_construct") (return-type "none") (parameters '("time_t" "the_time") '("GnomeDateEditFlags" "flags") ) ) (define-method set_time (of-object "GnomeDateEdit") (c-name "gnome_date_edit_set_time") (return-type "none") (parameters '("time_t" "the_time") ) ) (define-method get_time (of-object "GnomeDateEdit") (c-name "gnome_date_edit_get_time") (return-type "time_t") ) (define-method set_popup_range (of-object "GnomeDateEdit") (c-name "gnome_date_edit_set_popup_range") (return-type "none") (parameters '("int" "low_hour") '("int" "up_hour") ) ) (define-method set_flags (of-object "GnomeDateEdit") (c-name "gnome_date_edit_set_flags") (return-type "none") (parameters '("GnomeDateEditFlags" "flags") ) ) (define-method get_flags (of-object "GnomeDateEdit") (c-name "gnome_date_edit_get_flags") (return-type "int") ) (define-method get_initial_time (of-object "GnomeDateEdit") (c-name "gnome_date_edit_get_initial_time") (return-type "time_t") ) (define-method get_date (of-object "GnomeDateEdit") (c-name "gnome_date_edit_get_date") (return-type "time_t") ) ;; From /opt/gnome2/include/libgnomeui-2.0/libgnomeui/gnome-dialog.h (define-function gnome_dialog_get_type (c-name "gnome_dialog_get_type") (return-type "GType") ) (define-function gnome_dialog_new (c-name "gnome_dialog_new") (is-constructor-of "GnomeDialog") (return-type "GtkWidget*") (parameters '("const-gchar*" "title") ) (varargs #t) ) (define-function gnome_dialog_newv (c-name "gnome_dialog_newv") (return-type "GtkWidget*") (parameters '("const-gchar*" "title") '("const-gchar**" "buttons") ) ) (define-method set_parent (of-object "GnomeDialog") (c-name "gnome_dialog_set_parent") (return-type "none") (parameters '("GtkWindow*" "parent") ) ) (define-method button_connect (of-object "GnomeDialog") (c-name "gnome_dialog_button_connect") (return-type "none") (parameters '("gint" "button") '("GCallback" "callback") '("gpointer" "data") ) ) (define-method button_connect_object (of-object "GnomeDialog") (c-name "gnome_dialog_button_connect_object") (return-type "none") (parameters '("gint" "button") '("GCallback" "callback") '("GtkObject*" "obj") ) ) (define-method run (of-object "GnomeDialog") (c-name "gnome_dialog_run") (return-type "gint") ) (define-method run_and_close (of-object "GnomeDialog") (c-name "gnome_dialog_run_and_close") (return-type "gint") ) (define-method set_default (of-object "GnomeDialog") (c-name "gnome_dialog_set_default") (return-type "none") (parameters '("gint" "button") ) ) (define-method grab_focus (of-object "GnomeDialog") (c-name "gnome_dialog_grab_focus") (return-type "none") (parameters '("gint" "button") ) ) (define-method set_sensitive (of-object "GnomeDialog") (c-name "gnome_dialog_set_sensitive") (return-type "none") (parameters '("gint" "button") '("gboolean" "setting") ) ) (define-method set_accelerator (of-object "GnomeDialog") (c-name "gnome_dialog_set_accelerator") (return-type "none") (parameters '("gint" "button") '("const-guchar" "accelerator_key") '("guint8" "accelerator_mods") ) ) (define-method close (of-object "GnomeDialog") (c-name "gnome_dialog_close") (return-type "none") ) (define-method close_hides (of-object "GnomeDialog") (c-name "gnome_dialog_close_hides") (return-type "none") (parameters '("gboolean" "just_hide") ) ) (define-method set_close (of-object "GnomeDialog") (c-name "gnome_dialog_set_close") (return-type "none") (parameters '("gboolean" "click_closes") ) ) (define-method editable_enters (of-object "GnomeDialog") (c-name "gnome_dialog_editable_enters") (return-type "none") (parameters '("GtkEditable*" "editable") ) ) (define-method append_buttons (of-object "GnomeDialog") (c-name "gnome_dialog_append_buttons") (return-type "none") (parameters '("const-gchar*" "first") ) (varargs #t) ) (define-method append_button (of-object "GnomeDialog") (c-name "gnome_dialog_append_button") (return-type "none") (parameters '("const-gchar*" "button_name") ) ) (define-method append_buttonsv (of-object "GnomeDialog") (c-name "gnome_dialog_append_buttonsv") (return-type "none") (parameters '("const-gchar**" "buttons") ) ) (define-method append_button_with_pixmap (of-object "GnomeDialog") (c-name "gnome_dialog_append_button_with_pixmap") (return-type "none") (parameters '("const-gchar*" "button_name") '("const-gchar*" "pixmap_name") ) ) (define-method append_buttons_with_pixmaps (of-object "GnomeDialog") (c-name "gnome_dialog_append_buttons_with_pixmaps") (return-type "none") (parameters '("const-gchar**" "names") '("const-gchar**" "pixmaps") ) ) (define-method construct (of-object "GnomeDialog") (c-name "gnome_dialog_construct") (return-type "none") (parameters '("const-gchar*" "title") '("va_list" "ap") ) ) (define-method constructv (of-object "GnomeDialog") (c-name "gnome_dialog_constructv") (return-type "none") (parameters '("const-gchar*" "title") '("const-gchar**" "buttons") ) ) ;; From /opt/gnome2/include/libgnomeui-2.0/libgnomeui/gnome-dialog-util.h (define-function gnome_ok_dialog (c-name "gnome_ok_dialog") (return-type "GtkWidget*") (parameters '("const-gchar*" "message") ) ) (define-function gnome_ok_dialog_parented (c-name "gnome_ok_dialog_parented") (return-type "GtkWidget*") (parameters '("const-gchar*" "message") '("GtkWindow*" "parent") ) ) (define-function gnome_error_dialog (c-name "gnome_error_dialog") (return-type "GtkWidget*") (parameters '("const-gchar*" "error") ) ) (define-function gnome_error_dialog_parented (c-name "gnome_error_dialog_parented") (return-type "GtkWidget*") (parameters '("const-gchar*" "error") '("GtkWindow*" "parent") ) ) (define-function gnome_warning_dialog (c-name "gnome_warning_dialog") (return-type "GtkWidget*") (parameters '("const-gchar*" "warning") ) ) (define-function gnome_warning_dialog_parented (c-name "gnome_warning_dialog_parented") (return-type "GtkWidget*") (parameters '("const-gchar*" "warning") '("GtkWindow*" "parent") ) ) (define-function gnome_question_dialog (c-name "gnome_question_dialog") (return-type "GtkWidget*") (parameters '("const-gchar*" "question") '("GnomeReplyCallback" "callback") '("gpointer" "data") ) ) (define-function gnome_question_dialog_parented (c-name "gnome_question_dialog_parented") (return-type "GtkWidget*") (parameters '("const-gchar*" "question") '("GnomeReplyCallback" "callback") '("gpointer" "data") '("GtkWindow*" "parent") ) ) (define-function gnome_question_dialog_modal (c-name "gnome_question_dialog_modal") (return-type "GtkWidget*") (parameters '("const-gchar*" "question") '("GnomeReplyCallback" "callback") '("gpointer" "data") ) ) (define-function gnome_question_dialog_modal_parented (c-name "gnome_question_dialog_modal_parented") (return-type "GtkWidget*") (parameters '("const-gchar*" "question") '("GnomeReplyCallback" "callback") '("gpointer" "data") '("GtkWindow*" "parent") ) ) (define-function gnome_ok_cancel_dialog (c-name "gnome_ok_cancel_dialog") (return-type "GtkWidget*") (parameters '("const-gchar*" "message") '("GnomeReplyCallback" "callback") '("gpointer" "data") ) ) (define-function gnome_ok_cancel_dialog_parented (c-name "gnome_ok_cancel_dialog_parented") (return-type "GtkWidget*") (parameters '("const-gchar*" "message") '("GnomeReplyCallback" "callback") '("gpointer" "data") '("GtkWindow*" "parent") ) ) (define-function gnome_ok_cancel_dialog_modal (c-name "gnome_ok_cancel_dialog_modal") (return-type "GtkWidget*") (parameters '("const-gchar*" "message") '("GnomeReplyCallback" "callback") '("gpointer" "data") ) ) (define-function gnome_ok_cancel_dialog_modal_parented (c-name "gnome_ok_cancel_dialog_modal_parented") (return-type "GtkWidget*") (parameters '("const-gchar*" "message") '("GnomeReplyCallback" "callback") '("gpointer" "data") '("GtkWindow*" "parent") ) ) (define-function gnome_request_string_dialog (c-name "gnome_request_string_dialog") (return-type "GtkWidget*") (parameters '("const-gchar*" "prompt") '("GnomeStringCallback" "callback") '("gpointer" "data") ) ) (define-function gnome_request_string_dialog_parented (c-name "gnome_request_string_dialog_parented") (return-type "GtkWidget*") (parameters '("const-gchar*" "prompt") '("GnomeStringCallback" "callback") '("gpointer" "data") '("GtkWindow*" "parent") ) ) (define-function gnome_request_password_dialog (c-name "gnome_request_password_dialog") (return-type "GtkWidget*") (parameters '("const-gchar*" "prompt") '("GnomeStringCallback" "callback") '("gpointer" "data") ) ) (define-function gnome_request_password_dialog_parented (c-name "gnome_request_password_dialog_parented") (return-type "GtkWidget*") (parameters '("const-gchar*" "prompt") '("GnomeStringCallback" "callback") '("gpointer" "data") '("GtkWindow*" "parent") ) ) (define-function gnome_request_dialog (c-name "gnome_request_dialog") (return-type "GtkWidget*") (parameters '("gboolean" "password") '("const-gchar*" "prompt") '("const-gchar*" "default_text") '("const-guint16" "max_length") '("GnomeStringCallback" "callback") '("gpointer" "data") '("GtkWindow*" "parent") ) ) ;; From /opt/gnome2/include/libgnomeui-2.0/libgnomeui/gnome-druid.h (define-function gnome_druid_get_type (c-name "gnome_druid_get_type") (return-type "GType") ) (define-function gnome_druid_new (c-name "gnome_druid_new") (is-constructor-of "GnomeDruid") (return-type "GtkWidget*") ) (define-method set_buttons_sensitive (of-object "GnomeDruid") (c-name "gnome_druid_set_buttons_sensitive") (return-type "none") (parameters '("gboolean" "back_sensitive") '("gboolean" "next_sensitive") '("gboolean" "cancel_sensitive") '("gboolean" "help_sensitive") ) ) (define-method set_show_finish (of-object "GnomeDruid") (c-name "gnome_druid_set_show_finish") (return-type "none") (parameters '("gboolean" "show_finish") ) ) (define-method set_show_help (of-object "GnomeDruid") (c-name "gnome_druid_set_show_help") (return-type "none") (parameters '("gboolean" "show_help") ) ) (define-method prepend_page (of-object "GnomeDruid") (c-name "gnome_druid_prepend_page") (return-type "none") (parameters '("GnomeDruidPage*" "page") ) ) (define-method insert_page (of-object "GnomeDruid") (c-name "gnome_druid_insert_page") (return-type "none") (parameters '("GnomeDruidPage*" "back_page") '("GnomeDruidPage*" "page") ) ) (define-method append_page (of-object "GnomeDruid") (c-name "gnome_druid_append_page") (return-type "none") (parameters '("GnomeDruidPage*" "page") ) ) (define-method set_page (of-object "GnomeDruid") (c-name "gnome_druid_set_page") (return-type "none") (parameters '("GnomeDruidPage*" "page") ) ) (define-function gnome_druid_new_with_window (c-name "gnome_druid_new_with_window") (return-type "GtkWidget*") (parameters '("const-char*" "title") '("GtkWindow*" "parent") '("gboolean" "close_on_cancel") '("GtkWidget**" "window") ) ) (define-method construct_with_window (of-object "GnomeDruid") (c-name "gnome_druid_construct_with_window") (return-type "none") (parameters '("const-char*" "title") '("GtkWindow*" "parent") '("gboolean" "close_on_cancel") '("GtkWidget**" "window") ) ) ;; From /opt/gnome2/include/libgnomeui-2.0/libgnomeui/gnome-druid-page-edge.h (define-function gnome_druid_page_edge_get_type (c-name "gnome_druid_page_edge_get_type") (return-type "GType") ) (define-function gnome_druid_page_edge_new (c-name "gnome_druid_page_edge_new") (is-constructor-of "GnomeDruidPageEdge") (return-type "GtkWidget*") (parameters '("GnomeEdgePosition" "position") ) ) (define-function gnome_druid_page_edge_new_aa (c-name "gnome_druid_page_edge_new_aa") (return-type "GtkWidget*") (parameters '("GnomeEdgePosition" "position") ) ) (define-function gnome_druid_page_edge_new_with_vals (c-name "gnome_druid_page_edge_new_with_vals") (return-type "GtkWidget*") (parameters '("GnomeEdgePosition" "position") '("gboolean" "antialiased") '("const-gchar*" "title") '("const-gchar*" "text") '("GdkPixbuf*" "logo") '("GdkPixbuf*" "watermark") '("GdkPixbuf*" "top_watermark") ) ) (define-method construct (of-object "GnomeDruidPageEdge") (c-name "gnome_druid_page_edge_construct") (return-type "none") (parameters '("GnomeEdgePosition" "position") '("gboolean" "antialiased") '("const-gchar*" "title") '("const-gchar*" "text") '("GdkPixbuf*" "logo") '("GdkPixbuf*" "watermark") '("GdkPixbuf*" "top_watermark") ) ) (define-method set_bg_color (of-object "GnomeDruidPageEdge") (c-name "gnome_druid_page_edge_set_bg_color") (return-type "none") (parameters '("GdkColor*" "color") ) ) (define-method set_textbox_color (of-object "GnomeDruidPageEdge") (c-name "gnome_druid_page_edge_set_textbox_color") (return-type "none") (parameters '("GdkColor*" "color") ) ) (define-method set_logo_bg_color (of-object "GnomeDruidPageEdge") (c-name "gnome_druid_page_edge_set_logo_bg_color") (return-type "none") (parameters '("GdkColor*" "color") ) ) (define-method set_title_color (of-object "GnomeDruidPageEdge") (c-name "gnome_druid_page_edge_set_title_color") (return-type "none") (parameters '("GdkColor*" "color") ) ) (define-method set_text_color (of-object "GnomeDruidPageEdge") (c-name "gnome_druid_page_edge_set_text_color") (return-type "none") (parameters '("GdkColor*" "color") ) ) (define-method set_text (of-object "GnomeDruidPageEdge") (c-name "gnome_druid_page_edge_set_text") (return-type "none") (parameters '("const-gchar*" "text") ) ) (define-method set_title (of-object "GnomeDruidPageEdge") (c-name "gnome_druid_page_edge_set_title") (return-type "none") (parameters '("const-gchar*" "title") ) ) (define-method set_logo (of-object "GnomeDruidPageEdge") (c-name "gnome_druid_page_edge_set_logo") (return-type "none") (parameters '("GdkPixbuf*" "logo_image") ) ) (define-method set_watermark (of-object "GnomeDruidPageEdge") (c-name "gnome_druid_page_edge_set_watermark") (return-type "none") (parameters '("GdkPixbuf*" "watermark") ) ) (define-method set_top_watermark (of-object "GnomeDruidPageEdge") (c-name "gnome_druid_page_edge_set_top_watermark") (return-type "none") (parameters '("GdkPixbuf*" "top_watermark_image") ) ) ;; From /opt/gnome2/include/libgnomeui-2.0/libgnomeui/gnome-druid-page.h (define-function gnome_druid_page_get_type (c-name "gnome_druid_page_get_type") (return-type "GType") ) (define-function gnome_druid_page_new (c-name "gnome_druid_page_new") (is-constructor-of "GnomeDruidPage") (return-type "GtkWidget*") ) (define-method next (of-object "GnomeDruidPage") (c-name "gnome_druid_page_next") (return-type "gboolean") ) (define-method prepare (of-object "GnomeDruidPage") (c-name "gnome_druid_page_prepare") (return-type "none") ) (define-method back (of-object "GnomeDruidPage") (c-name "gnome_druid_page_back") (return-type "gboolean") ) (define-method cancel (of-object "GnomeDruidPage") (c-name "gnome_druid_page_cancel") (return-type "gboolean") ) (define-method finish (of-object "GnomeDruidPage") (c-name "gnome_druid_page_finish") (return-type "none") ) ;; From /opt/gnome2/include/libgnomeui-2.0/libgnomeui/gnome-druid-page-standard.h (define-function gnome_druid_page_standard_get_type (c-name "gnome_druid_page_standard_get_type") (return-type "GType") ) (define-function gnome_druid_page_standard_new (c-name "gnome_druid_page_standard_new") (is-constructor-of "GnomeDruidPageStandard") (return-type "GtkWidget*") ) (define-function gnome_druid_page_standard_new_with_vals (c-name "gnome_druid_page_standard_new_with_vals") (return-type "GtkWidget*") (parameters '("const-gchar*" "title") '("GdkPixbuf*" "logo") '("GdkPixbuf*" "top_watermark") ) ) (define-method set_title (of-object "GnomeDruidPageStandard") (c-name "gnome_druid_page_standard_set_title") (return-type "none") (parameters '("const-gchar*" "title") ) ) (define-method set_logo (of-object "GnomeDruidPageStandard") (c-name "gnome_druid_page_standard_set_logo") (return-type "none") (parameters '("GdkPixbuf*" "logo_image") ) ) (define-method set_top_watermark (of-object "GnomeDruidPageStandard") (c-name "gnome_druid_page_standard_set_top_watermark") (return-type "none") (parameters '("GdkPixbuf*" "top_watermark_image") ) ) (define-method set_title_foreground (of-object "GnomeDruidPageStandard") (c-name "gnome_druid_page_standard_set_title_foreground") (return-type "none") (parameters '("GdkColor*" "color") ) ) (define-method set_background (of-object "GnomeDruidPageStandard") (c-name "gnome_druid_page_standard_set_background") (return-type "none") (parameters '("GdkColor*" "color") ) ) (define-method set_logo_background (of-object "GnomeDruidPageStandard") (c-name "gnome_druid_page_standard_set_logo_background") (return-type "none") (parameters '("GdkColor*" "color") ) ) (define-method set_contents_background (of-object "GnomeDruidPageStandard") (c-name "gnome_druid_page_standard_set_contents_background") (return-type "none") (parameters '("GdkColor*" "color") ) ) (define-method append_item (of-object "GnomeDruidPageStandard") (c-name "gnome_druid_page_standard_append_item") (return-type "none") (parameters '("const-gchar*" "question") '("GtkWidget*" "item") '("const-gchar*" "additional_info") ) ) ;; From /opt/gnome2/include/libgnomeui-2.0/libgnomeui/gnome-entry.h (define-function gnome_entry_get_type (c-name "gnome_entry_get_type") (return-type "GType") ) (define-function gnome_entry_new (c-name "gnome_entry_new") (is-constructor-of "GnomeEntry") (return-type "GtkWidget*") (parameters '("const-gchar*" "history_id") ) ) (define-method gtk_entry (of-object "GnomeEntry") (c-name "gnome_entry_gtk_entry") (return-type "GtkWidget*") ) (define-method get_history_id (of-object "GnomeEntry") (c-name "gnome_entry_get_history_id") (return-type "const-gchar*") ) (define-method set_history_id (of-object "GnomeEntry") (c-name "gnome_entry_set_history_id") (return-type "none") (parameters '("const-gchar*" "history_id") ) ) (define-method set_max_saved (of-object "GnomeEntry") (c-name "gnome_entry_set_max_saved") (return-type "none") (parameters '("guint" "max_saved") ) ) (define-method get_max_saved (of-object "GnomeEntry") (c-name "gnome_entry_get_max_saved") (return-type "guint") ) (define-method prepend_history (of-object "GnomeEntry") (c-name "gnome_entry_prepend_history") (return-type "none") (parameters '("gboolean" "save") '("const-gchar*" "text") ) ) (define-method append_history (of-object "GnomeEntry") (c-name "gnome_entry_append_history") (return-type "none") (parameters '("gboolean" "save") '("const-gchar*" "text") ) ) (define-method clear_history (of-object "GnomeEntry") (c-name "gnome_entry_clear_history") (return-type "none") ) ;; From /opt/gnome2/include/libgnomeui-2.0/libgnomeui/gnome-file-entry.h (define-function gnome_file_entry_get_type (c-name "gnome_file_entry_get_type") (return-type "GType") ) (define-function gnome_file_entry_new (c-name "gnome_file_entry_new") (is-constructor-of "GnomeFileEntry") (return-type "GtkWidget*") (parameters '("const-char*" "history_id") '("const-char*" "browse_dialog_title") ) ) (define-method construct (of-object "GnomeFileEntry") (c-name "gnome_file_entry_construct") (return-type "none") (parameters '("const-char*" "history_id") '("const-char*" "browse_dialog_title") ) ) (define-method gnome_entry (of-object "GnomeFileEntry") (c-name "gnome_file_entry_gnome_entry") (return-type "GtkWidget*") ) (define-method gtk_entry (of-object "GnomeFileEntry") (c-name "gnome_file_entry_gtk_entry") (return-type "GtkWidget*") ) (define-method set_title (of-object "GnomeFileEntry") (c-name "gnome_file_entry_set_title") (return-type "none") (parameters '("const-char*" "browse_dialog_title") ) ) (define-method set_default_path (of-object "GnomeFileEntry") (c-name "gnome_file_entry_set_default_path") (return-type "none") (parameters '("const-char*" "path") ) ) (define-method set_directory_entry (of-object "GnomeFileEntry") (c-name "gnome_file_entry_set_directory_entry") (return-type "none") (parameters '("gboolean" "directory_entry") ) ) (define-method get_directory_entry (of-object "GnomeFileEntry") (c-name "gnome_file_entry_get_directory_entry") (return-type "gboolean") ) (define-method get_full_path (of-object "GnomeFileEntry") (c-name "gnome_file_entry_get_full_path") (return-type "char*") (parameters '("gboolean" "file_must_exist") ) ) (define-method set_filename (of-object "GnomeFileEntry") (c-name "gnome_file_entry_set_filename") (return-type "none") (parameters '("const-char*" "filename") ) ) (define-method set_modal (of-object "GnomeFileEntry") (c-name "gnome_file_entry_set_modal") (return-type "none") (parameters '("gboolean" "is_modal") ) ) (define-method get_modal (of-object "GnomeFileEntry") (c-name "gnome_file_entry_get_modal") (return-type "gboolean") ) (define-method set_directory (of-object "GnomeFileEntry") (c-name "gnome_file_entry_set_directory") (return-type "none") (parameters '("gboolean" "directory_entry") ) ) ;; From /opt/gnome2/include/libgnomeui-2.0/libgnomeui/gnome-font-picker.h (define-function gnome_font_picker_get_type (c-name "gnome_font_picker_get_type") (return-type "GType") ) (define-function gnome_font_picker_new (c-name "gnome_font_picker_new") (is-constructor-of "GnomeFontPicker") (return-type "GtkWidget*") ) (define-method set_title (of-object "GnomeFontPicker") (c-name "gnome_font_picker_set_title") (return-type "none") (parameters '("const-gchar*" "title") ) ) (define-method get_title (of-object "GnomeFontPicker") (c-name "gnome_font_picker_get_title") (return-type "const-gchar*") ) (define-method get_mode (of-object "GnomeFontPicker") (c-name "gnome_font_picker_get_mode") (return-type "GnomeFontPickerMode") ) (define-method set_mode (of-object "GnomeFontPicker") (c-name "gnome_font_picker_set_mode") (return-type "none") (parameters '("GnomeFontPickerMode" "mode") ) ) (define-method fi_set_use_font_in_label (of-object "GnomeFontPicker") (c-name "gnome_font_picker_fi_set_use_font_in_label") (return-type "none") (parameters '("gboolean" "use_font_in_label") '("gint" "size") ) ) (define-method fi_set_show_size (of-object "GnomeFontPicker") (c-name "gnome_font_picker_fi_set_show_size") (return-type "none") (parameters '("gboolean" "show_size") ) ) (define-method uw_set_widget (of-object "GnomeFontPicker") (c-name "gnome_font_picker_uw_set_widget") (return-type "none") (parameters '("GtkWidget*" "widget") ) ) (define-method uw_get_widget (of-object "GnomeFontPicker") (c-name "gnome_font_picker_uw_get_widget") (return-type "GtkWidget*") ) (define-method get_font_name (of-object "GnomeFontPicker") (c-name "gnome_font_picker_get_font_name") (return-type "const-gchar*") ) (define-method get_font (of-object "GnomeFontPicker") (c-name "gnome_font_picker_get_font") (return-type "GdkFont*") ) (define-method set_font_name (of-object "GnomeFontPicker") (c-name "gnome_font_picker_set_font_name") (return-type "gboolean") (parameters '("const-gchar*" "fontname") ) ) (define-method get_preview_text (of-object "GnomeFontPicker") (c-name "gnome_font_picker_get_preview_text") (return-type "const-gchar*") ) (define-method set_preview_text (of-object "GnomeFontPicker") (c-name "gnome_font_picker_set_preview_text") (return-type "none") (parameters '("const-gchar*" "text") ) ) ;; From /opt/gnome2/include/libgnomeui-2.0/libgnomeui/gnome-help.h (define-function gnome_help_display_on_screen (c-name "gnome_help_display_on_screen") (return-type "gboolean") (parameters '("const-char*" "file_name") '("const-char*" "link_id") '("GdkScreen*" "screen") '("GError**" "error") ) ) (define-function gnome_help_display_with_doc_id_on_screen (c-name "gnome_help_display_with_doc_id_on_screen") (return-type "gboolean") (parameters '("GnomeProgram*" "program") '("const-char*" "doc_id") '("const-char*" "file_name") '("const-char*" "link_id") '("GdkScreen*" "screen") '("GError**" "error") ) ) (define-function gnome_help_display_desktop_on_screen (c-name "gnome_help_display_desktop_on_screen") (return-type "gboolean") (parameters '("GnomeProgram*" "program") '("const-char*" "doc_id") '("const-char*" "file_name") '("const-char*" "link_id") '("GdkScreen*" "screen") '("GError**" "error") ) ) (define-function gnome_help_display_uri_on_screen (c-name "gnome_help_display_uri_on_screen") (return-type "gboolean") (parameters '("const-char*" "help_uri") '("GdkScreen*" "screen") '("GError**" "error") ) ) ;; From /opt/gnome2/include/libgnomeui-2.0/libgnomeui/gnome-href.h (define-function gnome_href_get_type (c-name "gnome_href_get_type") (return-type "GType") ) (define-function gnome_href_new (c-name "gnome_href_new") (is-constructor-of "GnomeHref") (return-type "GtkWidget*") (parameters '("const-gchar*" "url") '("const-gchar*" "text") ) ) (define-method set_url (of-object "GnomeHRef") (c-name "gnome_href_set_url") (return-type "none") (parameters '("const-gchar*" "url") ) ) (define-method get_url (of-object "GnomeHRef") (c-name "gnome_href_get_url") (return-type "const-gchar*") ) (define-method set_text (of-object "GnomeHRef") (c-name "gnome_href_set_text") (return-type "none") (parameters '("const-gchar*" "text") ) ) (define-method get_text (of-object "GnomeHRef") (c-name "gnome_href_get_text") (return-type "const-gchar*") ) (define-method set_label (of-object "GnomeHRef") (c-name "gnome_href_set_label") (return-type "none") (parameters '("const-gchar*" "label") ) ) (define-method get_label (of-object "GnomeHRef") (c-name "gnome_href_get_label") (return-type "const-gchar*") ) ;; From /opt/gnome2/include/libgnomeui-2.0/libgnomeui/gnome-ice.h (define-function gnome_ice_init (c-name "gnome_ice_init") (return-type "none") ) ;; From /opt/gnome2/include/libgnomeui-2.0/libgnomeui/gnome-icon-entry.h (define-function gnome_icon_entry_get_type (c-name "gnome_icon_entry_get_type") (return-type "GType") ) (define-function gnome_icon_entry_new (c-name "gnome_icon_entry_new") (is-constructor-of "GnomeIconEntry") (return-type "GtkWidget*") (parameters '("const-gchar*" "history_id") '("const-gchar*" "browse_dialog_title") ) ) (define-method construct (of-object "GnomeIconEntry") (c-name "gnome_icon_entry_construct") (return-type "none") (parameters '("const-gchar*" "history_id") '("const-gchar*" "browse_dialog_title") ) ) (define-method set_pixmap_subdir (of-object "GnomeIconEntry") (c-name "gnome_icon_entry_set_pixmap_subdir") (return-type "none") (parameters '("const-gchar*" "subdir") ) ) (define-method get_filename (of-object "GnomeIconEntry") (c-name "gnome_icon_entry_get_filename") (return-type "gchar*") ) (define-method set_filename (of-object "GnomeIconEntry") (c-name "gnome_icon_entry_set_filename") (return-type "gboolean") (parameters '("const-gchar*" "filename") ) ) (define-method set_browse_dialog_title (of-object "GnomeIconEntry") (c-name "gnome_icon_entry_set_browse_dialog_title") (return-type "none") (parameters '("const-gchar*" "browse_dialog_title") ) ) (define-method set_history_id (of-object "GnomeIconEntry") (c-name "gnome_icon_entry_set_history_id") (return-type "none") (parameters '("const-gchar*" "history_id") ) ) (define-method set_max_saved (of-object "GnomeIconEntry") (c-name "gnome_icon_entry_set_max_saved") (return-type "none") (parameters '("guint" "max_saved") ) ) (define-method pick_dialog (of-object "GnomeIconEntry") (c-name "gnome_icon_entry_pick_dialog") (return-type "GtkWidget*") ) (define-method set_icon (of-object "GnomeIconEntry") (c-name "gnome_icon_entry_set_icon") (return-type "none") (parameters '("const-gchar*" "filename") ) ) (define-method gnome_file_entry (of-object "GnomeIconEntry") (c-name "gnome_icon_entry_gnome_file_entry") (return-type "GtkWidget*") ) (define-method gnome_entry (of-object "GnomeIconEntry") (c-name "gnome_icon_entry_gnome_entry") (return-type "GtkWidget*") ) (define-method gtk_entry (of-object "GnomeIconEntry") (c-name "gnome_icon_entry_gtk_entry") (return-type "GtkWidget*") ) ;; From /opt/gnome2/include/libgnomeui-2.0/libgnomeui/gnome-icon-item.h (define-function gnome_icon_text_item_get_type (c-name "gnome_icon_text_item_get_type") (return-type "GType") ) (define-method configure (of-object "GnomeIconTextItem") (c-name "gnome_icon_text_item_configure") (return-type "none") (parameters '("int" "x") '("int" "y") '("int" "width") '("const-char*" "fontname") '("const-char*" "text") '("gboolean" "is_editable") '("gboolean" "is_static") ) ) (define-method setxy (of-object "GnomeIconTextItem") (c-name "gnome_icon_text_item_setxy") (return-type "none") (parameters '("int" "x") '("int" "y") ) ) (define-method select (of-object "GnomeIconTextItem") (c-name "gnome_icon_text_item_select") (return-type "none") (parameters '("gboolean" "sel") ) ) (define-method focus (of-object "GnomeIconTextItem") (c-name "gnome_icon_text_item_focus") (return-type "none") (parameters '("gboolean" "focused") ) ) (define-method get_text (of-object "GnomeIconTextItem") (c-name "gnome_icon_text_item_get_text") (return-type "const-char*") ) (define-method start_editing (of-object "GnomeIconTextItem") (c-name "gnome_icon_text_item_start_editing") (return-type "none") ) (define-method stop_editing (of-object "GnomeIconTextItem") (c-name "gnome_icon_text_item_stop_editing") (return-type "none") (parameters '("gboolean" "accept") ) ) (define-method get_editable (of-object "GnomeIconTextItem") (c-name "gnome_icon_text_item_get_editable") (return-type "GtkEditable*") ) ;; From /opt/gnome2/include/libgnomeui-2.0/libgnomeui/gnome-icon-list.h (define-function gnome_icon_list_get_type (c-name "gnome_icon_list_get_type") (return-type "GType") ) (define-function gnome_icon_list_new (c-name "gnome_icon_list_new") (is-constructor-of "GnomeIconList") (return-type "GtkWidget*") (parameters '("guint" "icon_width") '("GtkAdjustment*" "adj") '("int" "flags") ) ) (define-method construct (of-object "GnomeIconList") (c-name "gnome_icon_list_construct") (return-type "none") (parameters '("guint" "icon_width") '("GtkAdjustment*" "adj") '("int" "flags") ) ) (define-method set_hadjustment (of-object "GnomeIconList") (c-name "gnome_icon_list_set_hadjustment") (return-type "none") (parameters '("GtkAdjustment*" "hadj") ) ) (define-method set_vadjustment (of-object "GnomeIconList") (c-name "gnome_icon_list_set_vadjustment") (return-type "none") (parameters '("GtkAdjustment*" "vadj") ) ) (define-method freeze (of-object "GnomeIconList") (c-name "gnome_icon_list_freeze") (return-type "none") ) (define-method thaw (of-object "GnomeIconList") (c-name "gnome_icon_list_thaw") (return-type "none") ) (define-method insert (of-object "GnomeIconList") (c-name "gnome_icon_list_insert") (return-type "none") (parameters '("int" "pos") '("const-char*" "icon_filename") '("const-char*" "text") ) ) (define-method insert_pixbuf (of-object "GnomeIconList") (c-name "gnome_icon_list_insert_pixbuf") (return-type "none") (parameters '("int" "pos") '("GdkPixbuf*" "im") '("const-char*" "icon_filename") '("const-char*" "text") ) ) (define-method append (of-object "GnomeIconList") (c-name "gnome_icon_list_append") (return-type "int") (parameters '("const-char*" "icon_filename") '("const-char*" "text") ) ) (define-method append_pixbuf (of-object "GnomeIconList") (c-name "gnome_icon_list_append_pixbuf") (return-type "int") (parameters '("GdkPixbuf*" "im") '("const-char*" "icon_filename") '("const-char*" "text") ) ) (define-method clear (of-object "GnomeIconList") (c-name "gnome_icon_list_clear") (return-type "none") ) (define-method remove (of-object "GnomeIconList") (c-name "gnome_icon_list_remove") (return-type "none") (parameters '("int" "pos") ) ) (define-method get_num_icons (of-object "GnomeIconList") (c-name "gnome_icon_list_get_num_icons") (return-type "guint") ) (define-method get_selection_mode (of-object "GnomeIconList") (c-name "gnome_icon_list_get_selection_mode") (return-type "GtkSelectionMode") ) (define-method set_selection_mode (of-object "GnomeIconList") (c-name "gnome_icon_list_set_selection_mode") (return-type "none") (parameters '("GtkSelectionMode" "mode") ) ) (define-method select_icon (of-object "GnomeIconList") (c-name "gnome_icon_list_select_icon") (return-type "none") (parameters '("int" "pos") ) ) (define-method unselect_icon (of-object "GnomeIconList") (c-name "gnome_icon_list_unselect_icon") (return-type "none") (parameters '("int" "pos") ) ) (define-method select_all (of-object "GnomeIconList") (c-name "gnome_icon_list_select_all") (return-type "none") ) (define-method unselect_all (of-object "GnomeIconList") (c-name "gnome_icon_list_unselect_all") (return-type "int") ) (define-method get_selection (of-object "GnomeIconList") (c-name "gnome_icon_list_get_selection") (return-type "GList*") ) (define-method focus_icon (of-object "GnomeIconList") (c-name "gnome_icon_list_focus_icon") (return-type "none") (parameters '("gint" "idx") ) ) (define-method set_icon_width (of-object "GnomeIconList") (c-name "gnome_icon_list_set_icon_width") (return-type "none") (parameters '("int" "w") ) ) (define-method set_row_spacing (of-object "GnomeIconList") (c-name "gnome_icon_list_set_row_spacing") (return-type "none") (parameters '("int" "pixels") ) ) (define-method set_col_spacing (of-object "GnomeIconList") (c-name "gnome_icon_list_set_col_spacing") (return-type "none") (parameters '("int" "pixels") ) ) (define-method set_text_spacing (of-object "GnomeIconList") (c-name "gnome_icon_list_set_text_spacing") (return-type "none") (parameters '("int" "pixels") ) ) (define-method set_icon_border (of-object "GnomeIconList") (c-name "gnome_icon_list_set_icon_border") (return-type "none") (parameters '("int" "pixels") ) ) (define-method set_separators (of-object "GnomeIconList") (c-name "gnome_icon_list_set_separators") (return-type "none") (parameters '("const-char*" "sep") ) ) (define-method get_icon_filename (of-object "GnomeIconList") (c-name "gnome_icon_list_get_icon_filename") (return-type "gchar*") (parameters '("int" "idx") ) ) (define-method find_icon_from_filename (of-object "GnomeIconList") (c-name "gnome_icon_list_find_icon_from_filename") (return-type "int") (parameters '("const-char*" "filename") ) ) (define-method set_icon_data (of-object "GnomeIconList") (c-name "gnome_icon_list_set_icon_data") (return-type "none") (parameters '("int" "idx") '("gpointer" "data") ) ) (define-method set_icon_data_full (of-object "GnomeIconList") (c-name "gnome_icon_list_set_icon_data_full") (return-type "none") (parameters '("int" "pos") '("gpointer" "data") '("GDestroyNotify" "destroy") ) ) (define-method find_icon_from_data (of-object "GnomeIconList") (c-name "gnome_icon_list_find_icon_from_data") (return-type "int") (parameters '("gpointer" "data") ) ) (define-method get_icon_data (of-object "GnomeIconList") (c-name "gnome_icon_list_get_icon_data") (return-type "gpointer") (parameters '("int" "pos") ) ) (define-method moveto (of-object "GnomeIconList") (c-name "gnome_icon_list_moveto") (return-type "none") (parameters '("int" "pos") '("double" "yalign") ) ) (define-method icon_is_visible (of-object "GnomeIconList") (c-name "gnome_icon_list_icon_is_visible") (return-type "GtkVisibility") (parameters '("int" "pos") ) ) (define-method get_icon_at (of-object "GnomeIconList") (c-name "gnome_icon_list_get_icon_at") (return-type "int") (parameters '("int" "x") '("int" "y") ) ) (define-method get_items_per_line (of-object "GnomeIconList") (c-name "gnome_icon_list_get_items_per_line") (return-type "int") ) (define-method get_icon_text_item (of-object "GnomeIconList") (c-name "gnome_icon_list_get_icon_text_item") (return-type "GnomeIconTextItem*") (parameters '("int" "idx") ) ) (define-method get_icon_pixbuf_item (of-object "GnomeIconList") (c-name "gnome_icon_list_get_icon_pixbuf_item") (return-type "GnomeCanvasPixbuf*") (parameters '("int" "idx") ) ) ;; From /opt/gnome2/include/libgnomeui-2.0/libgnomeui/gnome-icon-lookup.h (define-function gnome_icon_lookup (c-name "gnome_icon_lookup") (return-type "char*") (parameters '("GtkIconTheme*" "icon_theme") '("GnomeThumbnailFactory*" "thumbnail_factory") '("const-char*" "file_uri") '("const-char*" "custom_icon") '("GnomeVFSFileInfo*" "file_info") '("const-char*" "mime_type") '("GnomeIconLookupFlags" "flags") '("GnomeIconLookupResultFlags*" "result") ) ) (define-function gnome_icon_lookup_sync (c-name "gnome_icon_lookup_sync") (return-type "char*") (parameters '("GtkIconTheme*" "icon_theme") '("GnomeThumbnailFactory*" "thumbnail_factory") '("const-char*" "file_uri") '("const-char*" "custom_icon") '("GnomeIconLookupFlags" "flags") '("GnomeIconLookupResultFlags*" "result") ) ) ;; From /opt/gnome2/include/libgnomeui-2.0/libgnomeui/gnome-icon-sel.h (define-function gnome_icon_selection_get_type (c-name "gnome_icon_selection_get_type") (return-type "GType") ) (define-function gnome_icon_selection_new (c-name "gnome_icon_selection_new") (is-constructor-of "GnomeIconSelection") (return-type "GtkWidget*") ) (define-method add_defaults (of-object "GnomeIconSelection") (c-name "gnome_icon_selection_add_defaults") (return-type "none") ) (define-method add_directory (of-object "GnomeIconSelection") (c-name "gnome_icon_selection_add_directory") (return-type "none") (parameters '("const-gchar*" "dir") ) ) (define-method show_icons (of-object "GnomeIconSelection") (c-name "gnome_icon_selection_show_icons") (return-type "none") ) (define-method clear (of-object "GnomeIconSelection") (c-name "gnome_icon_selection_clear") (return-type "none") (parameters '("gboolean" "not_shown") ) ) (define-method get_icon (of-object "GnomeIconSelection") (c-name "gnome_icon_selection_get_icon") (return-type "gchar*") (parameters '("gboolean" "full_path") ) ) (define-method select_icon (of-object "GnomeIconSelection") (c-name "gnome_icon_selection_select_icon") (return-type "none") (parameters '("const-gchar*" "filename") ) ) (define-method stop_loading (of-object "GnomeIconSelection") (c-name "gnome_icon_selection_stop_loading") (return-type "none") ) (define-method get_gil (of-object "GnomeIconSelection") (c-name "gnome_icon_selection_get_gil") (return-type "GtkWidget*") ) (define-method get_box (of-object "GnomeIconSelection") (c-name "gnome_icon_selection_get_box") (return-type "GtkWidget*") ) ;; From /opt/gnome2/include/libgnomeui-2.0/libgnomeui/gnome-icon-theme.h (define-function gnome_icon_theme_get_type (c-name "gnome_icon_theme_get_type") (return-type "GType") ) (define-function gnome_icon_theme_new (c-name "gnome_icon_theme_new") (is-constructor-of "GnomeIconTheme") (return-type "GnomeIconTheme*") ) (define-method set_search_path (of-object "GnomeIconTheme") (c-name "gnome_icon_theme_set_search_path") (return-type "none") (parameters '("const-char*[]" "path") '("int" "n_elements") ) ) (define-method get_search_path (of-object "GnomeIconTheme") (c-name "gnome_icon_theme_get_search_path") (return-type "none") (parameters '("char**[]" "path") '("int*" "n_elements") ) ) (define-method set_allow_svg (of-object "GnomeIconTheme") (c-name "gnome_icon_theme_set_allow_svg") (return-type "none") (parameters '("gboolean" "allow_svg") ) ) (define-method get_allow_svg (of-object "GnomeIconTheme") (c-name "gnome_icon_theme_get_allow_svg") (return-type "gboolean") ) (define-method append_search_path (of-object "GnomeIconTheme") (c-name "gnome_icon_theme_append_search_path") (return-type "none") (parameters '("const-char*" "path") ) ) (define-method prepend_search_path (of-object "GnomeIconTheme") (c-name "gnome_icon_theme_prepend_search_path") (return-type "none") (parameters '("const-char*" "path") ) ) (define-method set_custom_theme (of-object "GnomeIconTheme") (c-name "gnome_icon_theme_set_custom_theme") (return-type "none") (parameters '("const-char*" "theme_name") ) ) (define-method lookup_icon (of-object "GnomeIconTheme") (c-name "gnome_icon_theme_lookup_icon") (return-type "char*") (parameters '("const-char*" "icon_name") '("int" "size") '("const-GnomeIconData**" "icon_data") '("int*" "base_size") ) ) (define-method has_icon (of-object "GnomeIconTheme") (c-name "gnome_icon_theme_has_icon") (return-type "gboolean") (parameters '("const-char*" "icon_name") ) ) (define-method list_icons (of-object "GnomeIconTheme") (c-name "gnome_icon_theme_list_icons") (return-type "GList*") (parameters '("const-char*" "context") ) ) (define-method get_example_icon_name (of-object "GnomeIconTheme") (c-name "gnome_icon_theme_get_example_icon_name") (return-type "char*") ) (define-method rescan_if_needed (of-object "GnomeIconTheme") (c-name "gnome_icon_theme_rescan_if_needed") (return-type "gboolean") ) (define-method dup (of-object "GnomeIconData") (c-name "gnome_icon_data_dup") (return-type "GnomeIconData*") ) (define-method free (of-object "GnomeIconData") (c-name "gnome_icon_data_free") (return-type "none") ) (define-method _get_gtk_icon_theme (of-object "GnomeIconTheme") (c-name "_gnome_icon_theme_get_gtk_icon_theme") (return-type "GtkIconTheme*") ) ;; From /opt/gnome2/include/libgnomeui-2.0/libgnomeui/gnome-mdi-child.h (define-function gnome_mdi_child_get_type (c-name "gnome_mdi_child_get_type") (return-type "GType") ) (define-method add_view (of-object "GnomeMDIChild") (c-name "gnome_mdi_child_add_view") (return-type "GtkWidget*") ) (define-method remove_view (of-object "GnomeMDIChild") (c-name "gnome_mdi_child_remove_view") (return-type "none") (parameters '("GtkWidget*" "view") ) ) (define-method set_name (of-object "GnomeMDIChild") (c-name "gnome_mdi_child_set_name") (return-type "none") (parameters '("const-gchar*" "name") ) ) (define-method set_menu_template (of-object "GnomeMDIChild") (c-name "gnome_mdi_child_set_menu_template") (return-type "none") (parameters '("GnomeUIInfo*" "menu_tmpl") ) ) ;; From /opt/gnome2/include/libgnomeui-2.0/libgnomeui/gnome-mdi-generic-child.h (define-function gnome_mdi_generic_child_get_type (c-name "gnome_mdi_generic_child_get_type") (return-type "GType") ) (define-function gnome_mdi_generic_child_new (c-name "gnome_mdi_generic_child_new") (is-constructor-of "GnomeMdiGenericChild") (return-type "GnomeMDIGenericChild*") (parameters '("const-gchar*" "name") ) ) (define-method set_view_creator (of-object "GnomeMDIGenericChild") (c-name "gnome_mdi_generic_child_set_view_creator") (return-type "none") (parameters '("GnomeMDIChildViewCreator" "func") '("gpointer" "data") ) ) (define-method set_view_creator_full (of-object "GnomeMDIGenericChild") (c-name "gnome_mdi_generic_child_set_view_creator_full") (return-type "none") (parameters '("GnomeMDIChildViewCreator" "func") '("GtkCallbackMarshal" "marshal") '("gpointer" "data") '("GtkDestroyNotify" "notify") ) ) (define-method set_menu_creator (of-object "GnomeMDIGenericChild") (c-name "gnome_mdi_generic_child_set_menu_creator") (return-type "none") (parameters '("GnomeMDIChildMenuCreator" "func") '("gpointer" "data") ) ) (define-method set_menu_creator_full (of-object "GnomeMDIGenericChild") (c-name "gnome_mdi_generic_child_set_menu_creator_full") (return-type "none") (parameters '("GnomeMDIChildMenuCreator" "func") '("GtkCallbackMarshal" "marshal") '("gpointer" "data") '("GtkDestroyNotify" "notify") ) ) (define-method set_config_func (of-object "GnomeMDIGenericChild") (c-name "gnome_mdi_generic_child_set_config_func") (return-type "none") (parameters '("GnomeMDIChildConfigFunc" "func") '("gpointer" "data") ) ) (define-method set_config_func_full (of-object "GnomeMDIGenericChild") (c-name "gnome_mdi_generic_child_set_config_func_full") (return-type "none") (parameters '("GnomeMDIChildConfigFunc" "func") '("GtkCallbackMarshal" "marshal") '("gpointer" "data") '("GtkDestroyNotify" "notify") ) ) (define-method set_label_func (of-object "GnomeMDIGenericChild") (c-name "gnome_mdi_generic_child_set_label_func") (return-type "none") (parameters '("GnomeMDIChildLabelFunc" "func") '("gpointer" "data") ) ) (define-method set_label_func_full (of-object "GnomeMDIGenericChild") (c-name "gnome_mdi_generic_child_set_label_func_full") (return-type "none") (parameters '("GnomeMDIChildLabelFunc" "func") '("GtkCallbackMarshal" "marshal") '("gpointer" "data") '("GtkDestroyNotify" "notify") ) ) ;; From /opt/gnome2/include/libgnomeui-2.0/libgnomeui/gnome-mdi.h (define-function gnome_mdi_get_type (c-name "gnome_mdi_get_type") (return-type "GType") ) (define-function gnome_mdi_new (c-name "gnome_mdi_new") (is-constructor-of "GnomeMdi") (return-type "GtkObject*") (parameters '("const-gchar*" "appname") '("const-gchar*" "title") ) ) (define-method set_mode (of-object "GnomeMDI") (c-name "gnome_mdi_set_mode") (return-type "none") (parameters '("GnomeMDIMode" "mode") ) ) (define-method set_menubar_template (of-object "GnomeMDI") (c-name "gnome_mdi_set_menubar_template") (return-type "none") (parameters '("GnomeUIInfo*" "menu_tmpl") ) ) (define-method set_toolbar_template (of-object "GnomeMDI") (c-name "gnome_mdi_set_toolbar_template") (return-type "none") (parameters '("GnomeUIInfo*" "tbar_tmpl") ) ) (define-method set_child_menu_path (of-object "GnomeMDI") (c-name "gnome_mdi_set_child_menu_path") (return-type "none") (parameters '("const-gchar*" "path") ) ) (define-method set_child_list_path (of-object "GnomeMDI") (c-name "gnome_mdi_set_child_list_path") (return-type "none") (parameters '("const-gchar*" "path") ) ) (define-method add_view (of-object "GnomeMDI") (c-name "gnome_mdi_add_view") (return-type "gint") (parameters '("GnomeMDIChild*" "child") ) ) (define-method add_toplevel_view (of-object "GnomeMDI") (c-name "gnome_mdi_add_toplevel_view") (return-type "gint") (parameters '("GnomeMDIChild*" "child") ) ) (define-method remove_view (of-object "GnomeMDI") (c-name "gnome_mdi_remove_view") (return-type "gint") (parameters '("GtkWidget*" "view") '("gint" "force") ) ) (define-method get_active_view (of-object "GnomeMDI") (c-name "gnome_mdi_get_active_view") (return-type "GtkWidget*") ) (define-method set_active_view (of-object "GnomeMDI") (c-name "gnome_mdi_set_active_view") (return-type "none") (parameters '("GtkWidget*" "view") ) ) (define-method add_child (of-object "GnomeMDI") (c-name "gnome_mdi_add_child") (return-type "gint") (parameters '("GnomeMDIChild*" "child") ) ) (define-method remove_child (of-object "GnomeMDI") (c-name "gnome_mdi_remove_child") (return-type "gint") (parameters '("GnomeMDIChild*" "child") '("gint" "force") ) ) (define-method remove_all (of-object "GnomeMDI") (c-name "gnome_mdi_remove_all") (return-type "gint") (parameters '("gint" "force") ) ) (define-method open_toplevel (of-object "GnomeMDI") (c-name "gnome_mdi_open_toplevel") (return-type "none") ) (define-method update_child (of-object "GnomeMDI") (c-name "gnome_mdi_update_child") (return-type "none") (parameters '("GnomeMDIChild*" "child") ) ) (define-method get_active_child (of-object "GnomeMDI") (c-name "gnome_mdi_get_active_child") (return-type "GnomeMDIChild*") ) (define-method find_child (of-object "GnomeMDI") (c-name "gnome_mdi_find_child") (return-type "GnomeMDIChild*") (parameters '("const-gchar*" "name") ) ) (define-method get_active_window (of-object "GnomeMDI") (c-name "gnome_mdi_get_active_window") (return-type "GnomeApp*") ) (define-method register (of-object "GnomeMDI") (c-name "gnome_mdi_register") (return-type "none") (parameters '("GtkObject*" "object") ) ) (define-method unregister (of-object "GnomeMDI") (c-name "gnome_mdi_unregister") (return-type "none") (parameters '("GtkObject*" "object") ) ) (define-function gnome_mdi_get_app_from_view (c-name "gnome_mdi_get_app_from_view") (return-type "GnomeApp*") (parameters '("GtkWidget*" "view") ) ) (define-function gnome_mdi_get_child_from_view (c-name "gnome_mdi_get_child_from_view") (return-type "GnomeMDIChild*") (parameters '("GtkWidget*" "view") ) ) (define-method get_view_from_window (of-object "GnomeMDI") (c-name "gnome_mdi_get_view_from_window") (return-type "GtkWidget*") (parameters '("GnomeApp*" "app") ) ) (define-function gnome_mdi_get_menubar_info (c-name "gnome_mdi_get_menubar_info") (return-type "GnomeUIInfo*") (parameters '("GnomeApp*" "app") ) ) (define-function gnome_mdi_get_toolbar_info (c-name "gnome_mdi_get_toolbar_info") (return-type "GnomeUIInfo*") (parameters '("GnomeApp*" "app") ) ) (define-function gnome_mdi_get_child_menu_info (c-name "gnome_mdi_get_child_menu_info") (return-type "GnomeUIInfo*") (parameters '("GnomeApp*" "app") ) ) ;; From /opt/gnome2/include/libgnomeui-2.0/libgnomeui/gnome-mdi-session.h (define-method restore_state (of-object "GnomeMDI") (c-name "gnome_mdi_restore_state") (return-type "gboolean") (parameters '("const-gchar*" "section") '("GnomeMDIChildCreator" "create_child_func") ) ) (define-method save_state (of-object "GnomeMDI") (c-name "gnome_mdi_save_state") (return-type "none") (parameters '("const-gchar*" "section") ) ) ;; From /opt/gnome2/include/libgnomeui-2.0/libgnomeui/gnome-messagebox.h (define-function gnome_message_box_get_type (c-name "gnome_message_box_get_type") (return-type "GType") ) (define-function gnome_message_box_new (c-name "gnome_message_box_new") (is-constructor-of "GnomeMessageBox") (return-type "GtkWidget*") (parameters '("const-gchar*" "message") '("const-gchar*" "message_box_type") ) (varargs #t) ) (define-function gnome_message_box_newv (c-name "gnome_message_box_newv") (return-type "GtkWidget*") (parameters '("const-gchar*" "message") '("const-gchar*" "message_box_type") '("const-gchar**" "buttons") ) ) (define-method construct (of-object "GnomeMessageBox") (c-name "gnome_message_box_construct") (return-type "none") (parameters '("const-gchar*" "message") '("const-gchar*" "message_box_type") '("const-gchar**" "buttons") ) ) ;; From /opt/gnome2/include/libgnomeui-2.0/libgnomeui/gnome-password-dialog.h (define-function gnome_password_dialog_get_type (c-name "gnome_password_dialog_get_type") (return-type "GtkType") ) (define-function gnome_password_dialog_new (c-name "gnome_password_dialog_new") (is-constructor-of "GnomePasswordDialog") (return-type "GtkWidget*") (parameters '("const-char*" "dialog_title") '("const-char*" "message") '("const-char*" "username") '("const-char*" "password") '("gboolean" "readonly_username") ) ) (define-method run_and_block (of-object "GnomePasswordDialog") (c-name "gnome_password_dialog_run_and_block") (return-type "gboolean") ) (define-method set_show_username (of-object "GnomePasswordDialog") (c-name "gnome_password_dialog_set_show_username") (return-type "none") (parameters '("gboolean" "show") ) ) (define-method set_show_domain (of-object "GnomePasswordDialog") (c-name "gnome_password_dialog_set_show_domain") (return-type "none") (parameters '("gboolean" "show") ) ) (define-method set_show_password (of-object "GnomePasswordDialog") (c-name "gnome_password_dialog_set_show_password") (return-type "none") (parameters '("gboolean" "show") ) ) (define-method set_username (of-object "GnomePasswordDialog") (c-name "gnome_password_dialog_set_username") (return-type "none") (parameters '("const-char*" "username") ) ) (define-method set_domain (of-object "GnomePasswordDialog") (c-name "gnome_password_dialog_set_domain") (return-type "none") (parameters '("const-char*" "domain") ) ) (define-method set_password (of-object "GnomePasswordDialog") (c-name "gnome_password_dialog_set_password") (return-type "none") (parameters '("const-char*" "password") ) ) (define-method set_readonly_username (of-object "GnomePasswordDialog") (c-name "gnome_password_dialog_set_readonly_username") (return-type "none") (parameters '("gboolean" "readonly") ) ) (define-method set_readonly_domain (of-object "GnomePasswordDialog") (c-name "gnome_password_dialog_set_readonly_domain") (return-type "none") (parameters '("gboolean" "readonly") ) ) (define-method set_show_remember (of-object "GnomePasswordDialog") (c-name "gnome_password_dialog_set_show_remember") (return-type "none") (parameters '("gboolean" "show_remember") ) ) (define-method set_remember (of-object "GnomePasswordDialog") (c-name "gnome_password_dialog_set_remember") (return-type "none") (parameters '("GnomePasswordDialogRemember" "remember") ) ) (define-method get_remember (of-object "GnomePasswordDialog") (c-name "gnome_password_dialog_get_remember") (return-type "GnomePasswordDialogRemember") ) (define-method set_show_userpass_buttons (of-object "GnomePasswordDialog") (c-name "gnome_password_dialog_set_show_userpass_buttons") (return-type "none") (parameters '("gboolean" "show_userpass_buttons") ) ) (define-method get_username (of-object "GnomePasswordDialog") (c-name "gnome_password_dialog_get_username") (return-type "char*") ) (define-method get_domain (of-object "GnomePasswordDialog") (c-name "gnome_password_dialog_get_domain") (return-type "char*") ) (define-method get_password (of-object "GnomePasswordDialog") (c-name "gnome_password_dialog_get_password") (return-type "char*") ) (define-method anon_selected (of-object "GnomePasswordDialog") (c-name "gnome_password_dialog_anon_selected") (return-type "gboolean") ) ;; From /opt/gnome2/include/libgnomeui-2.0/libgnomeui/gnome-pixmap-entry.h (define-function gnome_pixmap_entry_get_type (c-name "gnome_pixmap_entry_get_type") (return-type "GType") ) (define-function gnome_pixmap_entry_new (c-name "gnome_pixmap_entry_new") (is-constructor-of "GnomePixmapEntry") (return-type "GtkWidget*") (parameters '("const-gchar*" "history_id") '("const-gchar*" "browse_dialog_title") '("gboolean" "do_preview") ) ) (define-method construct (of-object "GnomePixmapEntry") (c-name "gnome_pixmap_entry_construct") (return-type "none") (parameters '("const-gchar*" "history_id") '("const-gchar*" "browse_dialog_title") '("gboolean" "do_preview") ) ) (define-method set_pixmap_subdir (of-object "GnomePixmapEntry") (c-name "gnome_pixmap_entry_set_pixmap_subdir") (return-type "none") (parameters '("const-gchar*" "subdir") ) ) (define-method gnome_file_entry (of-object "GnomePixmapEntry") (c-name "gnome_pixmap_entry_gnome_file_entry") (return-type "GtkWidget*") ) (define-method gnome_entry (of-object "GnomePixmapEntry") (c-name "gnome_pixmap_entry_gnome_entry") (return-type "GtkWidget*") ) (define-method gtk_entry (of-object "GnomePixmapEntry") (c-name "gnome_pixmap_entry_gtk_entry") (return-type "GtkWidget*") ) (define-method scrolled_window (of-object "GnomePixmapEntry") (c-name "gnome_pixmap_entry_scrolled_window") (return-type "GtkWidget*") ) (define-method preview_widget (of-object "GnomePixmapEntry") (c-name "gnome_pixmap_entry_preview_widget") (return-type "GtkWidget*") ) (define-method set_preview (of-object "GnomePixmapEntry") (c-name "gnome_pixmap_entry_set_preview") (return-type "none") (parameters '("gboolean" "do_preview") ) ) (define-method set_preview_size (of-object "GnomePixmapEntry") (c-name "gnome_pixmap_entry_set_preview_size") (return-type "none") (parameters '("gint" "preview_w") '("gint" "preview_h") ) ) (define-method get_filename (of-object "GnomePixmapEntry") (c-name "gnome_pixmap_entry_get_filename") (return-type "gchar*") ) ;; From /opt/gnome2/include/libgnomeui-2.0/libgnomeui/gnome-pixmap.h (define-function gnome_pixmap_get_type (c-name "gnome_pixmap_get_type") (return-type "GType") ) (define-function gnome_pixmap_new_from_file (c-name "gnome_pixmap_new_from_file") (return-type "GtkWidget*") (parameters '("const-gchar*" "filename") ) ) (define-function gnome_pixmap_new_from_file_at_size (c-name "gnome_pixmap_new_from_file_at_size") (return-type "GtkWidget*") (parameters '("const-gchar*" "filename") '("gint" "width") '("gint" "height") ) ) (define-function gnome_pixmap_new_from_xpm_d (c-name "gnome_pixmap_new_from_xpm_d") (return-type "GtkWidget*") (parameters '("const-gchar**" "xpm_data") ) ) (define-function gnome_pixmap_new_from_xpm_d_at_size (c-name "gnome_pixmap_new_from_xpm_d_at_size") (return-type "GtkWidget*") (parameters '("const-gchar**" "xpm_data") '("gint" "width") '("gint" "height") ) ) (define-method new_from_ (of-object "GnomePixmap") (c-name "gnome_pixmap_new_from_gnome_pixmap") (return-type "GtkWidget*") ) (define-method load_file (of-object "GnomePixmap") (c-name "gnome_pixmap_load_file") (return-type "none") (parameters '("const-char*" "filename") ) ) (define-method load_file_at_size (of-object "GnomePixmap") (c-name "gnome_pixmap_load_file_at_size") (return-type "none") (parameters '("const-char*" "filename") '("int" "width") '("int" "height") ) ) (define-method load_xpm_d (of-object "GnomePixmap") (c-name "gnome_pixmap_load_xpm_d") (return-type "none") (parameters '("const-char**" "xpm_data") ) ) (define-method load_xpm_d_at_size (of-object "GnomePixmap") (c-name "gnome_pixmap_load_xpm_d_at_size") (return-type "none") (parameters '("const-char**" "xpm_data") '("int" "width") '("int" "height") ) ) ;; From /opt/gnome2/include/libgnomeui-2.0/libgnomeui/gnome-popup-menu.h (define-function gnome_popup_menu_new (c-name "gnome_popup_menu_new") (is-constructor-of "GnomePopupMenu") (return-type "GtkWidget*") (parameters '("GnomeUIInfo*" "uiinfo") ) ) (define-function gnome_popup_menu_new_with_accelgroup (c-name "gnome_popup_menu_new_with_accelgroup") (return-type "GtkWidget*") (parameters '("GnomeUIInfo*" "uiinfo") '("GtkAccelGroup*" "accelgroup") ) ) (define-function gnome_popup_menu_get_accel_group (c-name "gnome_popup_menu_get_accel_group") (return-type "GtkAccelGroup*") (parameters '("GtkMenu*" "menu") ) ) (define-function gnome_popup_menu_attach (c-name "gnome_popup_menu_attach") (return-type "none") (parameters '("GtkWidget*" "popup") '("GtkWidget*" "widget") '("gpointer" "user_data") ) ) (define-function gnome_popup_menu_do_popup (c-name "gnome_popup_menu_do_popup") (return-type "none") (parameters '("GtkWidget*" "popup") '("GtkMenuPositionFunc" "pos_func") '("gpointer" "pos_data") '("GdkEventButton*" "event") '("gpointer" "user_data") '("GtkWidget*" "for_widget") ) ) (define-function gnome_popup_menu_do_popup_modal (c-name "gnome_popup_menu_do_popup_modal") (return-type "int") (parameters '("GtkWidget*" "popup") '("GtkMenuPositionFunc" "pos_func") '("gpointer" "pos_data") '("GdkEventButton*" "event") '("gpointer" "user_data") '("GtkWidget*" "for_widget") ) ) (define-function gnome_popup_menu_append (c-name "gnome_popup_menu_append") (return-type "none") (parameters '("GtkWidget*" "popup") '("GnomeUIInfo*" "uiinfo") ) ) (define-function gnome_gtk_widget_add_popup_items (c-name "gnome_gtk_widget_add_popup_items") (return-type "none") (parameters '("GtkWidget*" "widget") '("GnomeUIInfo*" "uiinfo") '("gpointer" "user_data") ) ) ;; From /opt/gnome2/include/libgnomeui-2.0/libgnomeui/gnome-propertybox.h (define-function gnome_property_box_get_type (c-name "gnome_property_box_get_type") (return-type "GType") ) (define-function gnome_property_box_new (c-name "gnome_property_box_new") (is-constructor-of "GnomePropertyBox") (return-type "GtkWidget*") ) (define-method changed (of-object "GnomePropertyBox") (c-name "gnome_property_box_changed") (return-type "none") ) (define-method set_modified (of-object "GnomePropertyBox") (c-name "gnome_property_box_set_modified") (return-type "none") (parameters '("gboolean" "state") ) ) (define-method append_page (of-object "GnomePropertyBox") (c-name "gnome_property_box_append_page") (return-type "gint") (parameters '("GtkWidget*" "child") '("GtkWidget*" "tab_label") ) ) (define-method set_state (of-object "GnomePropertyBox") (c-name "gnome_property_box_set_state") (return-type "none") (parameters '("gboolean" "state") ) ) ;; From /opt/gnome2/include/libgnomeui-2.0/libgnomeui/gnome-scores.h (define-function gnome_scores_get_type (c-name "gnome_scores_get_type") (return-type "GType") ) (define-function gnome_scores_display (c-name "gnome_scores_display") (return-type "GtkWidget*") (parameters '("const-gchar*" "title") '("const-gchar*" "app_name") '("const-gchar*" "level") '("int" "pos") ) ) (define-function gnome_scores_display_with_pixmap (c-name "gnome_scores_display_with_pixmap") (return-type "GtkWidget*") (parameters '("const-gchar*" "pixmap_logo") '("const-gchar*" "app_name") '("const-gchar*" "level") '("int" "pos") ) ) (define-function gnome_scores_new (c-name "gnome_scores_new") (is-constructor-of "GnomeScores") (return-type "GtkWidget*") (parameters '("guint" "n_scores") '("gchar**" "names") '("gfloat*" "scores") '("time_t*" "times") '("gboolean" "clear") ) ) (define-method construct (of-object "GnomeScores") (c-name "gnome_scores_construct") (return-type "none") (parameters '("guint" "n_scores") '("gchar**" "names") '("gfloat*" "scores") '("time_t*" "times") '("gboolean" "clear") ) ) (define-method set_logo_label (of-object "GnomeScores") (c-name "gnome_scores_set_logo_label") (return-type "none") (parameters '("const-gchar*" "txt") '("const-gchar*" "font") '("GdkColor*" "col") ) ) (define-method set_logo_pixmap (of-object "GnomeScores") (c-name "gnome_scores_set_logo_pixmap") (return-type "none") (parameters '("const-gchar*" "pix_name") ) ) (define-method set_logo_widget (of-object "GnomeScores") (c-name "gnome_scores_set_logo_widget") (return-type "none") (parameters '("GtkWidget*" "w") ) ) (define-method set_color (of-object "GnomeScores") (c-name "gnome_scores_set_color") (return-type "none") (parameters '("guint" "n") '("GdkColor*" "col") ) ) (define-method set_def_color (of-object "GnomeScores") (c-name "gnome_scores_set_def_color") (return-type "none") (parameters '("GdkColor*" "col") ) ) (define-method set_colors (of-object "GnomeScores") (c-name "gnome_scores_set_colors") (return-type "none") (parameters '("GdkColor*" "col") ) ) (define-method set_logo_label_title (of-object "GnomeScores") (c-name "gnome_scores_set_logo_label_title") (return-type "none") (parameters '("const-gchar*" "txt") ) ) (define-method set_current_player (of-object "GnomeScores") (c-name "gnome_scores_set_current_player") (return-type "none") (parameters '("gint" "i") ) ) ;; From /opt/gnome2/include/libgnomeui-2.0/libgnomeui/gnome-stock-icons.h ;; From /opt/gnome2/include/libgnomeui-2.0/libgnomeui/gnome-theme-parser.h (define-function gnome_theme_file_parse_error_quark (c-name "gnome_theme_file_parse_error_quark") (return-type "GQuark") ) (define-function gnome_theme_file_new_from_string (c-name "gnome_theme_file_new_from_string") (return-type "GnomeThemeFile*") (parameters '("char*" "data") '("GError**" "error") ) ) (define-method to_string (of-object "GnomeThemeFile") (c-name "gnome_theme_file_to_string") (return-type "char*") ) (define-method free (of-object "GnomeThemeFile") (c-name "gnome_theme_file_free") (return-type "none") ) (define-method foreach_section (of-object "GnomeThemeFile") (c-name "gnome_theme_file_foreach_section") (return-type "none") (parameters '("GnomeThemeFileSectionFunc" "func") '("gpointer" "user_data") ) ) (define-method foreach_key (of-object "GnomeThemeFile") (c-name "gnome_theme_file_foreach_key") (return-type "none") (parameters '("const-char*" "section") '("gboolean" "include_localized") '("GnomeThemeFileLineFunc" "func") '("gpointer" "user_data") ) ) (define-method get_raw (of-object "GnomeThemeFile") (c-name "gnome_theme_file_get_raw") (return-type "gboolean") (parameters '("const-char*" "section") '("const-char*" "keyname") '("const-char*" "locale") '("char**" "val") ) ) (define-method get_integer (of-object "GnomeThemeFile") (c-name "gnome_theme_file_get_integer") (return-type "gboolean") (parameters '("const-char*" "section") '("const-char*" "keyname") '("int*" "val") ) ) (define-method get_string (of-object "GnomeThemeFile") (c-name "gnome_theme_file_get_string") (return-type "gboolean") (parameters '("const-char*" "section") '("const-char*" "keyname") '("char**" "val") ) ) (define-method get_locale_string (of-object "GnomeThemeFile") (c-name "gnome_theme_file_get_locale_string") (return-type "gboolean") (parameters '("const-char*" "section") '("const-char*" "keyname") '("char**" "val") ) ) ;; From /opt/gnome2/include/libgnomeui-2.0/libgnomeui/gnome-thumbnail.h (define-function gnome_thumbnail_factory_get_type (c-name "gnome_thumbnail_factory_get_type") (return-type "GType") ) (define-function gnome_thumbnail_factory_new (c-name "gnome_thumbnail_factory_new") (is-constructor-of "GnomeThumbnailFactory") (return-type "GnomeThumbnailFactory*") (parameters '("GnomeThumbnailSize" "size") ) ) (define-method lookup (of-object "GnomeThumbnailFactory") (c-name "gnome_thumbnail_factory_lookup") (return-type "char*") (parameters '("const-char*" "uri") '("time_t" "mtime") ) ) (define-method has_valid_failed_thumbnail (of-object "GnomeThumbnailFactory") (c-name "gnome_thumbnail_factory_has_valid_failed_thumbnail") (return-type "gboolean") (parameters '("const-char*" "uri") '("time_t" "mtime") ) ) (define-method can_thumbnail (of-object "GnomeThumbnailFactory") (c-name "gnome_thumbnail_factory_can_thumbnail") (return-type "gboolean") (parameters '("const-char*" "uri") '("const-char*" "mime_type") '("time_t" "mtime") ) ) (define-method generate_thumbnail (of-object "GnomeThumbnailFactory") (c-name "gnome_thumbnail_factory_generate_thumbnail") (return-type "GdkPixbuf*") (parameters '("const-char*" "uri") '("const-char*" "mime_type") ) ) (define-method save_thumbnail (of-object "GnomeThumbnailFactory") (c-name "gnome_thumbnail_factory_save_thumbnail") (return-type "none") (parameters '("GdkPixbuf*" "thumbnail") '("const-char*" "uri") '("time_t" "original_mtime") ) ) (define-method create_failed_thumbnail (of-object "GnomeThumbnailFactory") (c-name "gnome_thumbnail_factory_create_failed_thumbnail") (return-type "none") (parameters '("const-char*" "uri") '("time_t" "mtime") ) ) (define-function gnome_thumbnail_has_uri (c-name "gnome_thumbnail_has_uri") (return-type "gboolean") (parameters '("GdkPixbuf*" "pixbuf") '("const-char*" "uri") ) ) (define-function gnome_thumbnail_is_valid (c-name "gnome_thumbnail_is_valid") (return-type "gboolean") (parameters '("GdkPixbuf*" "pixbuf") '("const-char*" "uri") '("time_t" "mtime") ) ) (define-function gnome_thumbnail_md5 (c-name "gnome_thumbnail_md5") (return-type "char*") (parameters '("const-char*" "uri") ) ) (define-function gnome_thumbnail_path_for_uri (c-name "gnome_thumbnail_path_for_uri") (return-type "char*") (parameters '("const-char*" "uri") '("GnomeThumbnailSize" "size") ) ) (define-function gnome_thumbnail_scale_down_pixbuf (c-name "gnome_thumbnail_scale_down_pixbuf") (return-type "GdkPixbuf*") (parameters '("GdkPixbuf*" "pixbuf") '("int" "dest_width") '("int" "dest_height") ) ) ;; From /opt/gnome2/include/libgnomeui-2.0/libgnomeui/gnometypebuiltins.h (define-function gnome_ui_info_type_get_type (c-name "gnome_ui_info_type_get_type") (return-type "GType") ) (define-function gnome_ui_info_configurable_types_get_type (c-name "gnome_ui_info_configurable_types_get_type") (return-type "GType") ) (define-function gnome_ui_pixmap_type_get_type (c-name "gnome_ui_pixmap_type_get_type") (return-type "GType") ) (define-function gnome_interact_style_get_type (c-name "gnome_interact_style_get_type") (return-type "GType") ) (define-function gnome_dialog_type_get_type (c-name "gnome_dialog_type_get_type") (return-type "GType") ) (define-function gnome_save_style_get_type (c-name "gnome_save_style_get_type") (return-type "GType") ) (define-function gnome_restart_style_get_type (c-name "gnome_restart_style_get_type") (return-type "GType") ) (define-function gnome_client_state_get_type (c-name "gnome_client_state_get_type") (return-type "GType") ) (define-function gnome_client_flags_get_type (c-name "gnome_client_flags_get_type") (return-type "GType") ) (define-function gnome_date_edit_flags_get_type (c-name "gnome_date_edit_flags_get_type") (return-type "GType") ) (define-function gnome_edge_position_get_type (c-name "gnome_edge_position_get_type") (return-type "GType") ) (define-function gnome_font_picker_mode_get_type (c-name "gnome_font_picker_mode_get_type") (return-type "GType") ) (define-function gnome_icon_list_mode_get_type (c-name "gnome_icon_list_mode_get_type") (return-type "GType") ) (define-function gnome_icon_lookup_flags_get_type (c-name "gnome_icon_lookup_flags_get_type") (return-type "GType") ) (define-function gnome_icon_lookup_result_flags_get_type (c-name "gnome_icon_lookup_result_flags_get_type") (return-type "GType") ) (define-function gnome_mdi_mode_get_type (c-name "gnome_mdi_mode_get_type") (return-type "GType") ) (define-function gnome_password_dialog_remember_get_type (c-name "gnome_password_dialog_remember_get_type") (return-type "GType") ) (define-function gnome_thumbnail_size_get_type (c-name "gnome_thumbnail_size_get_type") (return-type "GType") ) (define-function gnome_preferences_type_get_type (c-name "gnome_preferences_type_get_type") (return-type "GType") ) ;; From /opt/gnome2/include/libgnomeui-2.0/libgnomeui/gnome-types.h ;; From /opt/gnome2/include/libgnomeui-2.0/libgnomeui/gnome-uidefs.h ;; From /opt/gnome2/include/libgnomeui-2.0/libgnomeui/gnome-ui-init.h (define-function libgnomeui_module_info_get (c-name "libgnomeui_module_info_get") (return-type "const-GnomeModuleInfo*") ) (define-function gnome_gtk_module_info_get (c-name "gnome_gtk_module_info_get") (return-type "const-GnomeModuleInfo*") ) (define-function gnome_init_with_popt_table (c-name "gnome_init_with_popt_table") (return-type "int") (parameters '("const-char*" "app_id") '("const-char*" "app_version") '("int" "argc") '("char**" "argv") '("const-struct-poptOption*" "options") '("int" "flags") '("poptContext*" "return_ctx") ) ) ;; From /opt/gnome2/include/libgnomeui-2.0/libgnomeui/gnome-url.h (define-function gnome_url_show_on_screen (c-name "gnome_url_show_on_screen") (return-type "gboolean") (parameters '("const-char*" "url") '("GdkScreen*" "screen") '("GError**" "error") ) ) ;; From /opt/gnome2/include/libgnomeui-2.0/libgnomeui/gnome-vfs-util.h (define-function gnome_gdk_pixbuf_new_from_uri (c-name "gnome_gdk_pixbuf_new_from_uri") (return-type "GdkPixbuf*") (parameters '("const-char*" "uri") ) ) (define-function gnome_gdk_pixbuf_new_from_uri_at_scale (c-name "gnome_gdk_pixbuf_new_from_uri_at_scale") (return-type "GdkPixbuf*") (parameters '("const-char*" "uri") '("gint" "width") '("gint" "height") '("gboolean" "preserve_aspect_ratio") ) ) (define-function gnome_gdk_pixbuf_new_from_uri_async (c-name "gnome_gdk_pixbuf_new_from_uri_async") (return-type "GnomeGdkPixbufAsyncHandle*") (parameters '("const-char*" "uri") '("GnomeGdkPixbufLoadCallback" "load_callback") '("GnomeGdkPixbufDoneCallback" "done_callback") '("gpointer" "callback_data") ) ) (define-function gnome_gdk_pixbuf_new_from_uri_cancel (c-name "gnome_gdk_pixbuf_new_from_uri_cancel") (return-type "none") (parameters '("GnomeGdkPixbufAsyncHandle*" "handle") ) ) ;; From /opt/gnome2/include/libgnomeui-2.0/libgnomeui/gnome-window.h (define-function gnome_window_toplevel_set_title (c-name "gnome_window_toplevel_set_title") (return-type "none") (parameters '("GtkWindow*" "window") '("const-gchar*" "doc_name") '("const-gchar*" "app_name") '("const-gchar*" "extension") ) ) ;; From /opt/gnome2/include/libgnomeui-2.0/libgnomeui/gnome-window-icon.h (define-function gnome_window_icon_set_from_default (c-name "gnome_window_icon_set_from_default") (return-type "none") (parameters '("GtkWindow*" "w") ) ) (define-function gnome_window_icon_set_from_file (c-name "gnome_window_icon_set_from_file") (return-type "none") (parameters '("GtkWindow*" "w") '("const-char*" "filename") ) ) (define-function gnome_window_icon_set_from_file_list (c-name "gnome_window_icon_set_from_file_list") (return-type "none") (parameters '("GtkWindow*" "w") '("const-char**" "filenames") ) ) (define-function gnome_window_icon_set_default_from_file (c-name "gnome_window_icon_set_default_from_file") (return-type "none") (parameters '("const-char*" "filename") ) ) (define-function gnome_window_icon_set_default_from_file_list (c-name "gnome_window_icon_set_default_from_file_list") (return-type "none") (parameters '("const-char**" "filenames") ) ) (define-function gnome_window_icon_init (c-name "gnome_window_icon_init") (return-type "none") ) ;; From /opt/gnome2/include/libgnomeui-2.0/libgnomeui/libgnomeui.h guile-gnome-platform-2.16.2/defs/gnome/defs/glib.defs0000644000175000017500000053213711670374302022731 0ustar00wingowingo00000000000000;; -*- scheme -*- (include type-ignores) (include "glib-types.defs") (include overrides) ;; From /opt/gnome2/include/glib-2.0/glib/galloca.h (define-function alloca (c-name "alloca") (return-type "char*") (parameters ) ) ;; From /opt/gnome2/include/glib-2.0/glib/garray.h (define-function g_array_new (c-name "g_array_new") (is-constructor-of "GArray") (return-type "GArray*") (parameters '("gboolean" "zero_terminated") '("gboolean" "clear_") '("guint" "element_size") ) ) (define-function g_array_sized_new (c-name "g_array_sized_new") (is-constructor-of "GArraySized") (return-type "GArray*") (parameters '("gboolean" "zero_terminated") '("gboolean" "clear_") '("guint" "element_size") '("guint" "reserved_size") ) ) (define-function g_array_free (c-name "g_array_free") (return-type "gchar*") (parameters '("GArray*" "array") '("gboolean" "free_segment") ) ) (define-function g_array_append_vals (c-name "g_array_append_vals") (return-type "GArray*") (parameters '("GArray*" "array") '("gconstpointer" "data") '("guint" "len") ) ) (define-function g_array_prepend_vals (c-name "g_array_prepend_vals") (return-type "GArray*") (parameters '("GArray*" "array") '("gconstpointer" "data") '("guint" "len") ) ) (define-function g_array_insert_vals (c-name "g_array_insert_vals") (return-type "GArray*") (parameters '("GArray*" "array") '("guint" "index_") '("gconstpointer" "data") '("guint" "len") ) ) (define-function g_array_set_size (c-name "g_array_set_size") (return-type "GArray*") (parameters '("GArray*" "array") '("guint" "length") ) ) (define-function g_array_remove_index (c-name "g_array_remove_index") (return-type "GArray*") (parameters '("GArray*" "array") '("guint" "index_") ) ) (define-function g_array_remove_index_fast (c-name "g_array_remove_index_fast") (return-type "GArray*") (parameters '("GArray*" "array") '("guint" "index_") ) ) (define-function g_array_remove_range (c-name "g_array_remove_range") (return-type "GArray*") (parameters '("GArray*" "array") '("guint" "index_") '("guint" "length") ) ) (define-function g_array_sort (c-name "g_array_sort") (return-type "none") (parameters '("GArray*" "array") '("GCompareFunc" "compare_func") ) ) (define-function g_array_sort_with_data (c-name "g_array_sort_with_data") (return-type "none") (parameters '("GArray*" "array") '("GCompareDataFunc" "compare_func") '("gpointer" "user_data") ) ) (define-function g_ptr_array_new (c-name "g_ptr_array_new") (is-constructor-of "GPtrArray") (return-type "GPtrArray*") ) (define-function g_ptr_array_sized_new (c-name "g_ptr_array_sized_new") (is-constructor-of "GPtrArraySized") (return-type "GPtrArray*") (parameters '("guint" "reserved_size") ) ) (define-function g_ptr_array_free (c-name "g_ptr_array_free") (return-type "gpointer*") (parameters '("GPtrArray*" "array") '("gboolean" "free_seg") ) ) (define-function g_ptr_array_set_size (c-name "g_ptr_array_set_size") (return-type "none") (parameters '("GPtrArray*" "array") '("gint" "length") ) ) (define-function g_ptr_array_remove_index (c-name "g_ptr_array_remove_index") (return-type "gpointer") (parameters '("GPtrArray*" "array") '("guint" "index_") ) ) (define-function g_ptr_array_remove_index_fast (c-name "g_ptr_array_remove_index_fast") (return-type "gpointer") (parameters '("GPtrArray*" "array") '("guint" "index_") ) ) (define-function g_ptr_array_remove (c-name "g_ptr_array_remove") (return-type "gboolean") (parameters '("GPtrArray*" "array") '("gpointer" "data") ) ) (define-function g_ptr_array_remove_fast (c-name "g_ptr_array_remove_fast") (return-type "gboolean") (parameters '("GPtrArray*" "array") '("gpointer" "data") ) ) (define-function g_ptr_array_remove_range (c-name "g_ptr_array_remove_range") (return-type "none") (parameters '("GPtrArray*" "array") '("guint" "index_") '("guint" "length") ) ) (define-function g_ptr_array_add (c-name "g_ptr_array_add") (return-type "none") (parameters '("GPtrArray*" "array") '("gpointer" "data") ) ) (define-function g_ptr_array_sort (c-name "g_ptr_array_sort") (return-type "none") (parameters '("GPtrArray*" "array") '("GCompareFunc" "compare_func") ) ) (define-function g_ptr_array_sort_with_data (c-name "g_ptr_array_sort_with_data") (return-type "none") (parameters '("GPtrArray*" "array") '("GCompareDataFunc" "compare_func") '("gpointer" "user_data") ) ) (define-function g_ptr_array_foreach (c-name "g_ptr_array_foreach") (return-type "none") (parameters '("GPtrArray*" "array") '("GFunc" "func") '("gpointer" "user_data") ) ) (define-function g_byte_array_new (c-name "g_byte_array_new") (is-constructor-of "GByteArray") (return-type "GByteArray*") ) (define-function g_byte_array_sized_new (c-name "g_byte_array_sized_new") (is-constructor-of "GByteArraySized") (return-type "GByteArray*") (parameters '("guint" "reserved_size") ) ) (define-function g_byte_array_free (c-name "g_byte_array_free") (return-type "guint8*") (parameters '("GByteArray*" "array") '("gboolean" "free_segment") ) ) (define-function g_byte_array_append (c-name "g_byte_array_append") (return-type "GByteArray*") (parameters '("GByteArray*" "array") '("const-guint8*" "data") '("guint" "len") ) ) (define-function g_byte_array_prepend (c-name "g_byte_array_prepend") (return-type "GByteArray*") (parameters '("GByteArray*" "array") '("const-guint8*" "data") '("guint" "len") ) ) (define-function g_byte_array_set_size (c-name "g_byte_array_set_size") (return-type "GByteArray*") (parameters '("GByteArray*" "array") '("guint" "length") ) ) (define-function g_byte_array_remove_index (c-name "g_byte_array_remove_index") (return-type "GByteArray*") (parameters '("GByteArray*" "array") '("guint" "index_") ) ) (define-function g_byte_array_remove_index_fast (c-name "g_byte_array_remove_index_fast") (return-type "GByteArray*") (parameters '("GByteArray*" "array") '("guint" "index_") ) ) (define-function g_byte_array_remove_range (c-name "g_byte_array_remove_range") (return-type "GByteArray*") (parameters '("GByteArray*" "array") '("guint" "index_") '("guint" "length") ) ) (define-function g_byte_array_sort (c-name "g_byte_array_sort") (return-type "none") (parameters '("GByteArray*" "array") '("GCompareFunc" "compare_func") ) ) (define-function g_byte_array_sort_with_data (c-name "g_byte_array_sort_with_data") (return-type "none") (parameters '("GByteArray*" "array") '("GCompareDataFunc" "compare_func") '("gpointer" "user_data") ) ) ;; From /opt/gnome2/include/glib-2.0/glib/gasyncqueue.h (define-function g_async_queue_new (c-name "g_async_queue_new") (is-constructor-of "GAsyncQueue") (return-type "GAsyncQueue*") ) (define-function g_async_queue_lock (c-name "g_async_queue_lock") (return-type "none") (parameters '("GAsyncQueue*" "queue") ) ) (define-function g_async_queue_unlock (c-name "g_async_queue_unlock") (return-type "none") (parameters '("GAsyncQueue*" "queue") ) ) (define-function g_async_queue_ref (c-name "g_async_queue_ref") (return-type "GAsyncQueue*") (parameters '("GAsyncQueue*" "queue") ) ) (define-function g_async_queue_unref (c-name "g_async_queue_unref") (return-type "none") (parameters '("GAsyncQueue*" "queue") ) ) (define-function g_async_queue_ref_unlocked (c-name "g_async_queue_ref_unlocked") (return-type "none") (parameters '("GAsyncQueue*" "queue") ) ) (define-function g_async_queue_unref_and_unlock (c-name "g_async_queue_unref_and_unlock") (return-type "none") (parameters '("GAsyncQueue*" "queue") ) ) (define-function g_async_queue_push (c-name "g_async_queue_push") (return-type "none") (parameters '("GAsyncQueue*" "queue") '("gpointer" "data") ) ) (define-function g_async_queue_push_unlocked (c-name "g_async_queue_push_unlocked") (return-type "none") (parameters '("GAsyncQueue*" "queue") '("gpointer" "data") ) ) (define-function g_async_queue_push_sorted (c-name "g_async_queue_push_sorted") (return-type "none") (parameters '("GAsyncQueue*" "queue") '("gpointer" "data") '("GCompareDataFunc" "func") '("gpointer" "user_data") ) ) (define-function g_async_queue_push_sorted_unlocked (c-name "g_async_queue_push_sorted_unlocked") (return-type "none") (parameters '("GAsyncQueue*" "queue") '("gpointer" "data") '("GCompareDataFunc" "func") '("gpointer" "user_data") ) ) (define-function g_async_queue_pop (c-name "g_async_queue_pop") (return-type "gpointer") (parameters '("GAsyncQueue*" "queue") ) ) (define-function g_async_queue_pop_unlocked (c-name "g_async_queue_pop_unlocked") (return-type "gpointer") (parameters '("GAsyncQueue*" "queue") ) ) (define-function g_async_queue_try_pop (c-name "g_async_queue_try_pop") (return-type "gpointer") (parameters '("GAsyncQueue*" "queue") ) ) (define-function g_async_queue_try_pop_unlocked (c-name "g_async_queue_try_pop_unlocked") (return-type "gpointer") (parameters '("GAsyncQueue*" "queue") ) ) (define-function g_async_queue_timed_pop (c-name "g_async_queue_timed_pop") (return-type "gpointer") (parameters '("GAsyncQueue*" "queue") '("GTimeVal*" "end_time") ) ) (define-function g_async_queue_timed_pop_unlocked (c-name "g_async_queue_timed_pop_unlocked") (return-type "gpointer") (parameters '("GAsyncQueue*" "queue") '("GTimeVal*" "end_time") ) ) (define-function g_async_queue_length (c-name "g_async_queue_length") (return-type "gint") (parameters '("GAsyncQueue*" "queue") ) ) (define-function g_async_queue_length_unlocked (c-name "g_async_queue_length_unlocked") (return-type "gint") (parameters '("GAsyncQueue*" "queue") ) ) (define-function g_async_queue_sort (c-name "g_async_queue_sort") (return-type "none") (parameters '("GAsyncQueue*" "queue") '("GCompareDataFunc" "func") '("gpointer" "user_data") ) ) (define-function g_async_queue_sort_unlocked (c-name "g_async_queue_sort_unlocked") (return-type "none") (parameters '("GAsyncQueue*" "queue") '("GCompareDataFunc" "func") '("gpointer" "user_data") ) ) (define-function _g_async_queue_get_mutex (c-name "_g_async_queue_get_mutex") (return-type "GMutex*") (parameters '("GAsyncQueue*" "queue") ) ) ;; From /opt/gnome2/include/glib-2.0/glib/gatomic.h (define-function g_atomic_int_exchange_and_add (c-name "g_atomic_int_exchange_and_add") (return-type "gint") (parameters '("volatile-gint*" "atomic") '("gint" "val") ) ) (define-function g_atomic_int_add (c-name "g_atomic_int_add") (return-type "none") (parameters '("volatile-gint*" "atomic") '("gint" "val") ) ) (define-function g_atomic_int_compare_and_exchange (c-name "g_atomic_int_compare_and_exchange") (return-type "gboolean") (parameters '("volatile-gint*" "atomic") '("gint" "oldval") '("gint" "newval") ) ) (define-function g_atomic_pointer_compare_and_exchange (c-name "g_atomic_pointer_compare_and_exchange") (return-type "gboolean") (parameters '("volatile-gpointer*" "atomic") '("gpointer" "oldval") '("gpointer" "newval") ) ) (define-function g_atomic_int_get (c-name "g_atomic_int_get") (return-type "gint") (parameters '("volatile-gint*" "atomic") ) ) (define-function g_atomic_int_set (c-name "g_atomic_int_set") (return-type "none") (parameters '("volatile-gint*" "atomic") '("gint" "newval") ) ) (define-function g_atomic_pointer_get (c-name "g_atomic_pointer_get") (return-type "gpointer") (parameters '("volatile-gpointer*" "atomic") ) ) (define-function g_atomic_pointer_set (c-name "g_atomic_pointer_set") (return-type "none") (parameters '("volatile-gpointer*" "atomic") '("gpointer" "newval") ) ) ;; From /opt/gnome2/include/glib-2.0/glib/gbacktrace.h (define-function g_on_error_query (c-name "g_on_error_query") (return-type "none") (parameters '("const-gchar*" "prg_name") ) ) (define-function g_on_error_stack_trace (c-name "g_on_error_stack_trace") (return-type "none") (parameters '("const-gchar*" "prg_name") ) ) ;; From /opt/gnome2/include/glib-2.0/glib/gbase64.h (define-function g_base64_encode_step (c-name "g_base64_encode_step") (return-type "gsize") (parameters '("const-guchar*" "in") '("gsize" "len") '("gboolean" "break_lines") '("gchar*" "out") '("gint*" "state") '("gint*" "save") ) ) (define-function g_base64_encode_close (c-name "g_base64_encode_close") (return-type "gsize") (parameters '("gboolean" "break_lines") '("gchar*" "out") '("gint*" "state") '("gint*" "save") ) ) (define-function g_base64_encode (c-name "g_base64_encode") (return-type "gchar*") (parameters '("const-guchar*" "data") '("gsize" "len") ) ) (define-function g_base64_decode_step (c-name "g_base64_decode_step") (return-type "gsize") (parameters '("const-gchar*" "in") '("gsize" "len") '("guchar*" "out") '("gint*" "state") '("guint*" "save") ) ) (define-function g_base64_decode (c-name "g_base64_decode") (return-type "guchar*") (parameters '("const-gchar*" "text") '("gsize*" "out_len") ) ) ;; From /opt/gnome2/include/glib-2.0/glib/gbookmarkfile.h (define-function g_bookmark_file_error_quark (c-name "g_bookmark_file_error_quark") (return-type "GQuark") ) (define-function g_bookmark_file_new (c-name "g_bookmark_file_new") (is-constructor-of "GBookmarkFile") (return-type "GBookmarkFile*") ) (define-function g_bookmark_file_free (c-name "g_bookmark_file_free") (return-type "none") (parameters '("GBookmarkFile*" "bookmark") ) ) (define-function g_bookmark_file_load_from_file (c-name "g_bookmark_file_load_from_file") (return-type "gboolean") (parameters '("GBookmarkFile*" "bookmark") '("const-gchar*" "filename") '("GError**" "error") ) ) (define-function g_bookmark_file_load_from_data (c-name "g_bookmark_file_load_from_data") (return-type "gboolean") (parameters '("GBookmarkFile*" "bookmark") '("const-gchar*" "data") '("gsize" "length") '("GError**" "error") ) ) (define-function g_bookmark_file_load_from_data_dirs (c-name "g_bookmark_file_load_from_data_dirs") (return-type "gboolean") (parameters '("GBookmarkFile*" "bookmark") '("const-gchar*" "file") '("gchar**" "full_path") '("GError**" "error") ) ) (define-function g_bookmark_file_to_data (c-name "g_bookmark_file_to_data") (return-type "gchar*") (parameters '("GBookmarkFile*" "bookmark") '("gsize*" "length") '("GError**" "error") ) ) (define-function g_bookmark_file_to_file (c-name "g_bookmark_file_to_file") (return-type "gboolean") (parameters '("GBookmarkFile*" "bookmark") '("const-gchar*" "filename") '("GError**" "error") ) ) (define-function g_bookmark_file_set_title (c-name "g_bookmark_file_set_title") (return-type "none") (parameters '("GBookmarkFile*" "bookmark") '("const-gchar*" "uri") '("const-gchar*" "title") ) ) (define-function g_bookmark_file_get_title (c-name "g_bookmark_file_get_title") (return-type "gchar*") (parameters '("GBookmarkFile*" "bookmark") '("const-gchar*" "uri") '("GError**" "error") ) ) (define-function g_bookmark_file_set_description (c-name "g_bookmark_file_set_description") (return-type "none") (parameters '("GBookmarkFile*" "bookmark") '("const-gchar*" "uri") '("const-gchar*" "description") ) ) (define-function g_bookmark_file_get_description (c-name "g_bookmark_file_get_description") (return-type "gchar*") (parameters '("GBookmarkFile*" "bookmark") '("const-gchar*" "uri") '("GError**" "error") ) ) (define-function g_bookmark_file_set_mime_type (c-name "g_bookmark_file_set_mime_type") (return-type "none") (parameters '("GBookmarkFile*" "bookmark") '("const-gchar*" "uri") '("const-gchar*" "mime_type") ) ) (define-function g_bookmark_file_get_mime_type (c-name "g_bookmark_file_get_mime_type") (return-type "gchar*") (parameters '("GBookmarkFile*" "bookmark") '("const-gchar*" "uri") '("GError**" "error") ) ) (define-function g_bookmark_file_set_groups (c-name "g_bookmark_file_set_groups") (return-type "none") (parameters '("GBookmarkFile*" "bookmark") '("const-gchar*" "uri") '("const-gchar**" "groups") '("gsize" "length") ) ) (define-function g_bookmark_file_add_group (c-name "g_bookmark_file_add_group") (return-type "none") (parameters '("GBookmarkFile*" "bookmark") '("const-gchar*" "uri") '("const-gchar*" "group") ) ) (define-function g_bookmark_file_has_group (c-name "g_bookmark_file_has_group") (return-type "gboolean") (parameters '("GBookmarkFile*" "bookmark") '("const-gchar*" "uri") '("const-gchar*" "group") '("GError**" "error") ) ) (define-function g_bookmark_file_get_groups (c-name "g_bookmark_file_get_groups") (return-type "gchar**") (parameters '("GBookmarkFile*" "bookmark") '("const-gchar*" "uri") '("gsize*" "length") '("GError**" "error") ) ) (define-function g_bookmark_file_add_application (c-name "g_bookmark_file_add_application") (return-type "none") (parameters '("GBookmarkFile*" "bookmark") '("const-gchar*" "uri") '("const-gchar*" "name") '("const-gchar*" "exec") ) ) (define-function g_bookmark_file_has_application (c-name "g_bookmark_file_has_application") (return-type "gboolean") (parameters '("GBookmarkFile*" "bookmark") '("const-gchar*" "uri") '("const-gchar*" "name") '("GError**" "error") ) ) (define-function g_bookmark_file_get_applications (c-name "g_bookmark_file_get_applications") (return-type "gchar**") (parameters '("GBookmarkFile*" "bookmark") '("const-gchar*" "uri") '("gsize*" "length") '("GError**" "error") ) ) (define-function g_bookmark_file_set_app_info (c-name "g_bookmark_file_set_app_info") (return-type "gboolean") (parameters '("GBookmarkFile*" "bookmark") '("const-gchar*" "uri") '("const-gchar*" "name") '("const-gchar*" "exec") '("gint" "count") '("time_t" "stamp") '("GError**" "error") ) ) (define-function g_bookmark_file_get_app_info (c-name "g_bookmark_file_get_app_info") (return-type "gboolean") (parameters '("GBookmarkFile*" "bookmark") '("const-gchar*" "uri") '("const-gchar*" "name") '("gchar**" "exec") '("guint*" "count") '("time_t*" "stamp") '("GError**" "error") ) ) (define-function g_bookmark_file_set_is_private (c-name "g_bookmark_file_set_is_private") (return-type "none") (parameters '("GBookmarkFile*" "bookmark") '("const-gchar*" "uri") '("gboolean" "is_private") ) ) (define-function g_bookmark_file_get_is_private (c-name "g_bookmark_file_get_is_private") (return-type "gboolean") (parameters '("GBookmarkFile*" "bookmark") '("const-gchar*" "uri") '("GError**" "error") ) ) (define-function g_bookmark_file_set_icon (c-name "g_bookmark_file_set_icon") (return-type "none") (parameters '("GBookmarkFile*" "bookmark") '("const-gchar*" "uri") '("const-gchar*" "href") '("const-gchar*" "mime_type") ) ) (define-function g_bookmark_file_get_icon (c-name "g_bookmark_file_get_icon") (return-type "gboolean") (parameters '("GBookmarkFile*" "bookmark") '("const-gchar*" "uri") '("gchar**" "href") '("gchar**" "mime_type") '("GError**" "error") ) ) (define-function g_bookmark_file_set_added (c-name "g_bookmark_file_set_added") (return-type "none") (parameters '("GBookmarkFile*" "bookmark") '("const-gchar*" "uri") '("time_t" "added") ) ) (define-function g_bookmark_file_get_added (c-name "g_bookmark_file_get_added") (return-type "time_t") (parameters '("GBookmarkFile*" "bookmark") '("const-gchar*" "uri") '("GError**" "error") ) ) (define-function g_bookmark_file_set_modified (c-name "g_bookmark_file_set_modified") (return-type "none") (parameters '("GBookmarkFile*" "bookmark") '("const-gchar*" "uri") '("time_t" "modified") ) ) (define-function g_bookmark_file_get_modified (c-name "g_bookmark_file_get_modified") (return-type "time_t") (parameters '("GBookmarkFile*" "bookmark") '("const-gchar*" "uri") '("GError**" "error") ) ) (define-function g_bookmark_file_set_visited (c-name "g_bookmark_file_set_visited") (return-type "none") (parameters '("GBookmarkFile*" "bookmark") '("const-gchar*" "uri") '("time_t" "visited") ) ) (define-function g_bookmark_file_get_visited (c-name "g_bookmark_file_get_visited") (return-type "time_t") (parameters '("GBookmarkFile*" "bookmark") '("const-gchar*" "uri") '("GError**" "error") ) ) (define-function g_bookmark_file_has_item (c-name "g_bookmark_file_has_item") (return-type "gboolean") (parameters '("GBookmarkFile*" "bookmark") '("const-gchar*" "uri") ) ) (define-function g_bookmark_file_get_size (c-name "g_bookmark_file_get_size") (return-type "gint") (parameters '("GBookmarkFile*" "bookmark") ) ) (define-function g_bookmark_file_get_uris (c-name "g_bookmark_file_get_uris") (return-type "gchar**") (parameters '("GBookmarkFile*" "bookmark") '("gsize*" "length") ) ) (define-function g_bookmark_file_remove_group (c-name "g_bookmark_file_remove_group") (return-type "gboolean") (parameters '("GBookmarkFile*" "bookmark") '("const-gchar*" "uri") '("const-gchar*" "group") '("GError**" "error") ) ) (define-function g_bookmark_file_remove_application (c-name "g_bookmark_file_remove_application") (return-type "gboolean") (parameters '("GBookmarkFile*" "bookmark") '("const-gchar*" "uri") '("const-gchar*" "name") '("GError**" "error") ) ) (define-function g_bookmark_file_remove_item (c-name "g_bookmark_file_remove_item") (return-type "gboolean") (parameters '("GBookmarkFile*" "bookmark") '("const-gchar*" "uri") '("GError**" "error") ) ) (define-function g_bookmark_file_move_item (c-name "g_bookmark_file_move_item") (return-type "gboolean") (parameters '("GBookmarkFile*" "bookmark") '("const-gchar*" "old_uri") '("const-gchar*" "new_uri") '("GError**" "error") ) ) ;; From /opt/gnome2/include/glib-2.0/glib/gcache.h (define-function g_cache_new (c-name "g_cache_new") (is-constructor-of "GCache") (return-type "GCache*") (parameters '("GCacheNewFunc" "value_new_func") '("GCacheDestroyFunc" "value_destroy_func") '("GCacheDupFunc" "key_dup_func") '("GCacheDestroyFunc" "key_destroy_func") '("GHashFunc" "hash_key_func") '("GHashFunc" "hash_value_func") '("GEqualFunc" "key_equal_func") ) ) (define-function g_cache_destroy (c-name "g_cache_destroy") (return-type "none") (parameters '("GCache*" "cache") ) ) (define-function g_cache_insert (c-name "g_cache_insert") (return-type "gpointer") (parameters '("GCache*" "cache") '("gpointer" "key") ) ) (define-function g_cache_remove (c-name "g_cache_remove") (return-type "none") (parameters '("GCache*" "cache") '("gconstpointer" "value") ) ) (define-function g_cache_key_foreach (c-name "g_cache_key_foreach") (return-type "none") (parameters '("GCache*" "cache") '("GHFunc" "func") '("gpointer" "user_data") ) ) (define-function g_cache_value_foreach (c-name "g_cache_value_foreach") (return-type "none") (parameters '("GCache*" "cache") '("GHFunc" "func") '("gpointer" "user_data") ) ) ;; From /opt/gnome2/include/glib-2.0/glib/gcompletion.h (define-function g_completion_new (c-name "g_completion_new") (is-constructor-of "GCompletion") (return-type "GCompletion*") (parameters '("GCompletionFunc" "func") ) ) (define-function g_completion_add_items (c-name "g_completion_add_items") (return-type "none") (parameters '("GCompletion*" "cmp") '("GList*" "items") ) ) (define-function g_completion_remove_items (c-name "g_completion_remove_items") (return-type "none") (parameters '("GCompletion*" "cmp") '("GList*" "items") ) ) (define-function g_completion_clear_items (c-name "g_completion_clear_items") (return-type "none") (parameters '("GCompletion*" "cmp") ) ) (define-function g_completion_complete (c-name "g_completion_complete") (return-type "GList*") (parameters '("GCompletion*" "cmp") '("const-gchar*" "prefix") '("gchar**" "new_prefix") ) ) (define-function g_completion_complete_utf8 (c-name "g_completion_complete_utf8") (return-type "GList*") (parameters '("GCompletion*" "cmp") '("const-gchar*" "prefix") '("gchar**" "new_prefix") ) ) (define-function g_completion_set_compare (c-name "g_completion_set_compare") (return-type "none") (parameters '("GCompletion*" "cmp") '("GCompletionStrncmpFunc" "strncmp_func") ) ) (define-function g_completion_free (c-name "g_completion_free") (return-type "none") (parameters '("GCompletion*" "cmp") ) ) ;; From /opt/gnome2/include/glib-2.0/glib/gconvert.h (define-function g_convert_error_quark (c-name "g_convert_error_quark") (return-type "GQuark") ) (define-function g_iconv_open (c-name "g_iconv_open") (return-type "GIConv") (parameters '("const-gchar*" "to_codeset") '("const-gchar*" "from_codeset") ) ) (define-function g_iconv (c-name "g_iconv") (return-type "size_t") (parameters '("GIConv" "converter") '("gchar**" "inbuf") '("gsize*" "inbytes_left") '("gchar**" "outbuf") '("gsize*" "outbytes_left") ) ) (define-function g_iconv_close (c-name "g_iconv_close") (return-type "gint") (parameters '("GIConv" "converter") ) ) (define-function g_convert (c-name "g_convert") (return-type "gchar*") (parameters '("const-gchar*" "str") '("gssize" "len") '("const-gchar*" "to_codeset") '("const-gchar*" "from_codeset") '("gsize*" "bytes_read") '("gsize*" "bytes_written") '("GError**" "error") ) ) (define-function g_convert_with_iconv (c-name "g_convert_with_iconv") (return-type "gchar*") (parameters '("const-gchar*" "str") '("gssize" "len") '("GIConv" "converter") '("gsize*" "bytes_read") '("gsize*" "bytes_written") '("GError**" "error") ) ) (define-function g_convert_with_fallback (c-name "g_convert_with_fallback") (return-type "gchar*") (parameters '("const-gchar*" "str") '("gssize" "len") '("const-gchar*" "to_codeset") '("const-gchar*" "from_codeset") '("gchar*" "fallback") '("gsize*" "bytes_read") '("gsize*" "bytes_written") '("GError**" "error") ) ) (define-function g_locale_to_utf8 (c-name "g_locale_to_utf8") (return-type "gchar*") (parameters '("const-gchar*" "opsysstring") '("gssize" "len") '("gsize*" "bytes_read") '("gsize*" "bytes_written") '("GError**" "error") ) ) (define-function g_locale_from_utf8 (c-name "g_locale_from_utf8") (return-type "gchar*") (parameters '("const-gchar*" "utf8string") '("gssize" "len") '("gsize*" "bytes_read") '("gsize*" "bytes_written") '("GError**" "error") ) ) (define-function g_filename_to_utf8 (c-name "g_filename_to_utf8") (return-type "gchar*") (parameters '("const-gchar*" "opsysstring") '("gssize" "len") '("gsize*" "bytes_read") '("gsize*" "bytes_written") '("GError**" "error") ) ) (define-function g_filename_from_utf8 (c-name "g_filename_from_utf8") (return-type "gchar*") (parameters '("const-gchar*" "utf8string") '("gssize" "len") '("gsize*" "bytes_read") '("gsize*" "bytes_written") '("GError**" "error") ) ) (define-function g_filename_from_uri (c-name "g_filename_from_uri") (return-type "gchar*") (parameters '("const-gchar*" "uri") '("gchar**" "hostname") '("GError**" "error") ) ) (define-function g_filename_to_uri (c-name "g_filename_to_uri") (return-type "gchar*") (parameters '("const-gchar*" "filename") '("const-gchar*" "hostname") '("GError**" "error") ) ) (define-function g_filename_display_name (c-name "g_filename_display_name") (return-type "gchar*") (parameters '("const-gchar*" "filename") ) ) (define-function g_get_filename_charsets (c-name "g_get_filename_charsets") (return-type "gboolean") (parameters '("const-gchar***" "charsets") ) ) (define-function g_filename_display_basename (c-name "g_filename_display_basename") (return-type "gchar*") (parameters '("const-gchar*" "filename") ) ) (define-function g_uri_list_extract_uris (c-name "g_uri_list_extract_uris") (return-type "gchar**") (parameters '("const-gchar*" "uri_list") ) ) ;; From /opt/gnome2/include/glib-2.0/glib/gdataset.h (define-function g_datalist_init (c-name "g_datalist_init") (return-type "none") (parameters '("GData**" "datalist") ) ) (define-function g_datalist_clear (c-name "g_datalist_clear") (return-type "none") (parameters '("GData**" "datalist") ) ) (define-function g_datalist_id_get_data (c-name "g_datalist_id_get_data") (return-type "gpointer") (parameters '("GData**" "datalist") '("GQuark" "key_id") ) ) (define-function g_datalist_id_set_data_full (c-name "g_datalist_id_set_data_full") (return-type "none") (parameters '("GData**" "datalist") '("GQuark" "key_id") '("gpointer" "data") '("GDestroyNotify" "destroy_func") ) ) (define-function g_datalist_id_remove_no_notify (c-name "g_datalist_id_remove_no_notify") (return-type "gpointer") (parameters '("GData**" "datalist") '("GQuark" "key_id") ) ) (define-function g_datalist_foreach (c-name "g_datalist_foreach") (return-type "none") (parameters '("GData**" "datalist") '("GDataForeachFunc" "func") '("gpointer" "user_data") ) ) (define-function g_datalist_set_flags (c-name "g_datalist_set_flags") (return-type "none") (parameters '("GData**" "datalist") '("guint" "flags") ) ) (define-function g_datalist_unset_flags (c-name "g_datalist_unset_flags") (return-type "none") (parameters '("GData**" "datalist") '("guint" "flags") ) ) (define-function g_datalist_get_flags (c-name "g_datalist_get_flags") (return-type "guint") (parameters '("GData**" "datalist") ) ) (define-function g_dataset_destroy (c-name "g_dataset_destroy") (return-type "none") (parameters '("gconstpointer" "dataset_location") ) ) (define-function g_dataset_id_get_data (c-name "g_dataset_id_get_data") (return-type "gpointer") (parameters '("gconstpointer" "dataset_location") '("GQuark" "key_id") ) ) (define-function g_dataset_id_set_data_full (c-name "g_dataset_id_set_data_full") (return-type "none") (parameters '("gconstpointer" "dataset_location") '("GQuark" "key_id") '("gpointer" "data") '("GDestroyNotify" "destroy_func") ) ) (define-function g_dataset_id_remove_no_notify (c-name "g_dataset_id_remove_no_notify") (return-type "gpointer") (parameters '("gconstpointer" "dataset_location") '("GQuark" "key_id") ) ) (define-function g_dataset_foreach (c-name "g_dataset_foreach") (return-type "none") (parameters '("gconstpointer" "dataset_location") '("GDataForeachFunc" "func") '("gpointer" "user_data") ) ) ;; From /opt/gnome2/include/glib-2.0/glib/gdate.h (define-function g_date_new (c-name "g_date_new") (is-constructor-of "GDate") (return-type "GDate*") ) (define-function g_date_new_dmy (c-name "g_date_new_dmy") (return-type "GDate*") (parameters '("GDateDay" "day") '("GDateMonth" "month") '("GDateYear" "year") ) ) (define-function g_date_new_julian (c-name "g_date_new_julian") (return-type "GDate*") (parameters '("guint32" "julian_day") ) ) (define-function g_date_free (c-name "g_date_free") (return-type "none") (parameters '("GDate*" "date") ) ) (define-function g_date_valid (c-name "g_date_valid") (return-type "gboolean") (parameters '("const-GDate*" "date") ) ) (define-function g_date_valid_day (c-name "g_date_valid_day") (return-type "gboolean") (parameters '("GDateDay" "day") ) ) (define-function g_date_valid_month (c-name "g_date_valid_month") (return-type "gboolean") (parameters '("GDateMonth" "month") ) ) (define-function g_date_valid_year (c-name "g_date_valid_year") (return-type "gboolean") (parameters '("GDateYear" "year") ) ) (define-function g_date_valid_weekday (c-name "g_date_valid_weekday") (return-type "gboolean") (parameters '("GDateWeekday" "weekday") ) ) (define-function g_date_valid_julian (c-name "g_date_valid_julian") (return-type "gboolean") (parameters '("guint32" "julian_date") ) ) (define-function g_date_valid_dmy (c-name "g_date_valid_dmy") (return-type "gboolean") (parameters '("GDateDay" "day") '("GDateMonth" "month") '("GDateYear" "year") ) ) (define-function g_date_get_weekday (c-name "g_date_get_weekday") (return-type "GDateWeekday") (parameters '("const-GDate*" "date") ) ) (define-function g_date_get_month (c-name "g_date_get_month") (return-type "GDateMonth") (parameters '("const-GDate*" "date") ) ) (define-function g_date_get_year (c-name "g_date_get_year") (return-type "GDateYear") (parameters '("const-GDate*" "date") ) ) (define-function g_date_get_day (c-name "g_date_get_day") (return-type "GDateDay") (parameters '("const-GDate*" "date") ) ) (define-function g_date_get_julian (c-name "g_date_get_julian") (return-type "guint32") (parameters '("const-GDate*" "date") ) ) (define-function g_date_get_day_of_year (c-name "g_date_get_day_of_year") (return-type "guint") (parameters '("const-GDate*" "date") ) ) (define-function g_date_get_monday_week_of_year (c-name "g_date_get_monday_week_of_year") (return-type "guint") (parameters '("const-GDate*" "date") ) ) (define-function g_date_get_sunday_week_of_year (c-name "g_date_get_sunday_week_of_year") (return-type "guint") (parameters '("const-GDate*" "date") ) ) (define-function g_date_get_iso8601_week_of_year (c-name "g_date_get_iso8601_week_of_year") (return-type "guint") (parameters '("const-GDate*" "date") ) ) (define-function g_date_clear (c-name "g_date_clear") (return-type "none") (parameters '("GDate*" "date") '("guint" "n_dates") ) ) (define-function g_date_set_parse (c-name "g_date_set_parse") (return-type "none") (parameters '("GDate*" "date") '("const-gchar*" "str") ) ) (define-function g_date_set_time_t (c-name "g_date_set_time_t") (return-type "none") (parameters '("GDate*" "date") '("time_t" "timet") ) ) (define-function g_date_set_time_val (c-name "g_date_set_time_val") (return-type "none") (parameters '("GDate*" "date") '("GTimeVal*" "timeval") ) ) (define-function g_date_set_time (c-name "g_date_set_time") (return-type "none") (parameters '("GDate*" "date") '("GTime" "time_") ) ) (define-function g_date_set_month (c-name "g_date_set_month") (return-type "none") (parameters '("GDate*" "date") '("GDateMonth" "month") ) ) (define-function g_date_set_day (c-name "g_date_set_day") (return-type "none") (parameters '("GDate*" "date") '("GDateDay" "day") ) ) (define-function g_date_set_year (c-name "g_date_set_year") (return-type "none") (parameters '("GDate*" "date") '("GDateYear" "year") ) ) (define-function g_date_set_dmy (c-name "g_date_set_dmy") (return-type "none") (parameters '("GDate*" "date") '("GDateDay" "day") '("GDateMonth" "month") '("GDateYear" "y") ) ) (define-function g_date_set_julian (c-name "g_date_set_julian") (return-type "none") (parameters '("GDate*" "date") '("guint32" "julian_date") ) ) (define-function g_date_is_first_of_month (c-name "g_date_is_first_of_month") (return-type "gboolean") (parameters '("const-GDate*" "date") ) ) (define-function g_date_is_last_of_month (c-name "g_date_is_last_of_month") (return-type "gboolean") (parameters '("const-GDate*" "date") ) ) (define-function g_date_add_days (c-name "g_date_add_days") (return-type "none") (parameters '("GDate*" "date") '("guint" "n_days") ) ) (define-function g_date_subtract_days (c-name "g_date_subtract_days") (return-type "none") (parameters '("GDate*" "date") '("guint" "n_days") ) ) (define-function g_date_add_months (c-name "g_date_add_months") (return-type "none") (parameters '("GDate*" "date") '("guint" "n_months") ) ) (define-function g_date_subtract_months (c-name "g_date_subtract_months") (return-type "none") (parameters '("GDate*" "date") '("guint" "n_months") ) ) (define-function g_date_add_years (c-name "g_date_add_years") (return-type "none") (parameters '("GDate*" "date") '("guint" "n_years") ) ) (define-function g_date_subtract_years (c-name "g_date_subtract_years") (return-type "none") (parameters '("GDate*" "date") '("guint" "n_years") ) ) (define-function g_date_is_leap_year (c-name "g_date_is_leap_year") (return-type "gboolean") (parameters '("GDateYear" "year") ) ) (define-function g_date_get_days_in_month (c-name "g_date_get_days_in_month") (return-type "guint8") (parameters '("GDateMonth" "month") '("GDateYear" "year") ) ) (define-function g_date_get_monday_weeks_in_year (c-name "g_date_get_monday_weeks_in_year") (return-type "guint8") (parameters '("GDateYear" "year") ) ) (define-function g_date_get_sunday_weeks_in_year (c-name "g_date_get_sunday_weeks_in_year") (return-type "guint8") (parameters '("GDateYear" "year") ) ) (define-function g_date_days_between (c-name "g_date_days_between") (return-type "gint") (parameters '("const-GDate*" "date1") '("const-GDate*" "date2") ) ) (define-function g_date_compare (c-name "g_date_compare") (return-type "gint") (parameters '("const-GDate*" "lhs") '("const-GDate*" "rhs") ) ) (define-function g_date_to_struct_tm (c-name "g_date_to_struct_tm") (return-type "none") (parameters '("const-GDate*" "date") '("struct-tm*" "tm") ) ) (define-function g_date_clamp (c-name "g_date_clamp") (return-type "none") (parameters '("GDate*" "date") '("const-GDate*" "min_date") '("const-GDate*" "max_date") ) ) (define-function g_date_order (c-name "g_date_order") (return-type "none") (parameters '("GDate*" "date1") '("GDate*" "date2") ) ) (define-function g_date_strftime (c-name "g_date_strftime") (return-type "gsize") (parameters '("gchar*" "s") '("gsize" "slen") '("const-gchar*" "format") '("const-GDate*" "date") ) ) ;; From /opt/gnome2/include/glib-2.0/glib/gdir.h (define-function g_dir_open (c-name "g_dir_open") (return-type "GDir*") (parameters '("const-gchar*" "path") '("guint" "flags") '("GError**" "error") ) ) (define-function g_dir_read_name (c-name "g_dir_read_name") (return-type "const-gchar*") (parameters '("GDir*" "dir") ) ) (define-function g_dir_rewind (c-name "g_dir_rewind") (return-type "none") (parameters '("GDir*" "dir") ) ) (define-function g_dir_close (c-name "g_dir_close") (return-type "none") (parameters '("GDir*" "dir") ) ) ;; From /opt/gnome2/include/glib-2.0/glib/gerror.h (define-function g_error_new (c-name "g_error_new") (is-constructor-of "GError") (return-type "GError*") (parameters '("GQuark" "domain") '("gint" "code") '("const-gchar*" "format") ) (varargs #t) ) (define-function g_error_new_literal (c-name "g_error_new_literal") (return-type "GError*") (parameters '("GQuark" "domain") '("gint" "code") '("const-gchar*" "message") ) ) (define-function g_error_free (c-name "g_error_free") (return-type "none") (parameters '("GError*" "error") ) ) (define-function g_error_copy (c-name "g_error_copy") (return-type "GError*") (parameters '("const-GError*" "error") ) ) (define-function g_error_matches (c-name "g_error_matches") (return-type "gboolean") (parameters '("const-GError*" "error") '("GQuark" "domain") '("gint" "code") ) ) (define-function g_set_error (c-name "g_set_error") (return-type "none") (parameters '("GError**" "err") '("GQuark" "domain") '("gint" "code") '("const-gchar*" "format") ) (varargs #t) ) (define-function g_propagate_error (c-name "g_propagate_error") (return-type "none") (parameters '("GError**" "dest") '("GError*" "src") ) ) (define-function g_clear_error (c-name "g_clear_error") (return-type "none") (parameters '("GError**" "err") ) ) ;; From /opt/gnome2/include/glib-2.0/glib/gfileutils.h (define-function g_file_error_quark (c-name "g_file_error_quark") (return-type "GQuark") ) (define-function g_file_error_from_errno (c-name "g_file_error_from_errno") (return-type "GFileError") (parameters '("gint" "err_no") ) ) (define-function g_file_test (c-name "g_file_test") (return-type "gboolean") (parameters '("const-gchar*" "filename") '("GFileTest" "test") ) ) (define-function g_file_get_contents (c-name "g_file_get_contents") (return-type "gboolean") (parameters '("const-gchar*" "filename") '("gchar**" "contents") '("gsize*" "length") '("GError**" "error") ) ) (define-function g_file_set_contents (c-name "g_file_set_contents") (return-type "gboolean") (parameters '("const-gchar*" "filename") '("const-gchar*" "contents") '("gssize" "length") '("GError**" "error") ) ) (define-function g_file_read_link (c-name "g_file_read_link") (return-type "gchar*") (parameters '("const-gchar*" "filename") '("GError**" "error") ) ) (define-function g_mkstemp (c-name "g_mkstemp") (return-type "gint") (parameters '("gchar*" "tmpl") ) ) (define-function g_file_open_tmp (c-name "g_file_open_tmp") (return-type "gint") (parameters '("const-gchar*" "tmpl") '("gchar**" "name_used") '("GError**" "error") ) ) (define-function g_build_path (c-name "g_build_path") (return-type "gchar*") (parameters '("const-gchar*" "separator") '("const-gchar*" "first_element") ) (varargs #t) ) (define-function g_build_pathv (c-name "g_build_pathv") (return-type "gchar*") (parameters '("const-gchar*" "separator") '("gchar**" "args") ) ) (define-function g_build_filename (c-name "g_build_filename") (return-type "gchar*") (parameters '("const-gchar*" "first_element") ) (varargs #t) ) (define-function g_build_filenamev (c-name "g_build_filenamev") (return-type "gchar*") (parameters '("gchar**" "args") ) ) (define-function g_mkdir_with_parents (c-name "g_mkdir_with_parents") (return-type "int") (parameters '("const-gchar*" "pathname") '("int" "mode") ) ) ;; From /opt/gnome2/include/glib-2.0/glib/ghash.h (define-function g_hash_table_new (c-name "g_hash_table_new") (is-constructor-of "GHashTable") (return-type "GHashTable*") (parameters '("GHashFunc" "hash_func") '("GEqualFunc" "key_equal_func") ) ) (define-function g_hash_table_new_full (c-name "g_hash_table_new_full") (return-type "GHashTable*") (parameters '("GHashFunc" "hash_func") '("GEqualFunc" "key_equal_func") '("GDestroyNotify" "key_destroy_func") '("GDestroyNotify" "value_destroy_func") ) ) (define-function g_hash_table_destroy (c-name "g_hash_table_destroy") (return-type "none") (parameters '("GHashTable*" "hash_table") ) ) (define-function g_hash_table_insert (c-name "g_hash_table_insert") (return-type "none") (parameters '("GHashTable*" "hash_table") '("gpointer" "key") '("gpointer" "value") ) ) (define-function g_hash_table_replace (c-name "g_hash_table_replace") (return-type "none") (parameters '("GHashTable*" "hash_table") '("gpointer" "key") '("gpointer" "value") ) ) (define-function g_hash_table_remove (c-name "g_hash_table_remove") (return-type "gboolean") (parameters '("GHashTable*" "hash_table") '("gconstpointer" "key") ) ) (define-function g_hash_table_remove_all (c-name "g_hash_table_remove_all") (return-type "none") (parameters '("GHashTable*" "hash_table") ) ) (define-function g_hash_table_steal (c-name "g_hash_table_steal") (return-type "gboolean") (parameters '("GHashTable*" "hash_table") '("gconstpointer" "key") ) ) (define-function g_hash_table_steal_all (c-name "g_hash_table_steal_all") (return-type "none") (parameters '("GHashTable*" "hash_table") ) ) (define-function g_hash_table_lookup (c-name "g_hash_table_lookup") (return-type "gpointer") (parameters '("GHashTable*" "hash_table") '("gconstpointer" "key") ) ) (define-function g_hash_table_lookup_extended (c-name "g_hash_table_lookup_extended") (return-type "gboolean") (parameters '("GHashTable*" "hash_table") '("gconstpointer" "lookup_key") '("gpointer*" "orig_key") '("gpointer*" "value") ) ) (define-function g_hash_table_foreach (c-name "g_hash_table_foreach") (return-type "none") (parameters '("GHashTable*" "hash_table") '("GHFunc" "func") '("gpointer" "user_data") ) ) (define-function g_hash_table_find (c-name "g_hash_table_find") (return-type "gpointer") (parameters '("GHashTable*" "hash_table") '("GHRFunc" "predicate") '("gpointer" "user_data") ) ) (define-function g_hash_table_foreach_remove (c-name "g_hash_table_foreach_remove") (return-type "guint") (parameters '("GHashTable*" "hash_table") '("GHRFunc" "func") '("gpointer" "user_data") ) ) (define-function g_hash_table_foreach_steal (c-name "g_hash_table_foreach_steal") (return-type "guint") (parameters '("GHashTable*" "hash_table") '("GHRFunc" "func") '("gpointer" "user_data") ) ) (define-function g_hash_table_size (c-name "g_hash_table_size") (return-type "guint") (parameters '("GHashTable*" "hash_table") ) ) (define-function g_hash_table_ref (c-name "g_hash_table_ref") (return-type "GHashTable*") (parameters '("GHashTable*" "hash_table") ) ) (define-function g_hash_table_unref (c-name "g_hash_table_unref") (return-type "none") (parameters '("GHashTable*" "hash_table") ) ) (define-function g_str_equal (c-name "g_str_equal") (return-type "gboolean") (parameters '("gconstpointer" "v1") '("gconstpointer" "v2") ) ) (define-function g_str_hash (c-name "g_str_hash") (return-type "guint") (parameters '("gconstpointer" "v") ) ) (define-function g_int_equal (c-name "g_int_equal") (return-type "gboolean") (parameters '("gconstpointer" "v1") '("gconstpointer" "v2") ) ) (define-function g_int_hash (c-name "g_int_hash") (return-type "guint") (parameters '("gconstpointer" "v") ) ) (define-function g_direct_hash (c-name "g_direct_hash") (return-type "guint") (parameters '("gconstpointer" "v") ) ) (define-function g_direct_equal (c-name "g_direct_equal") (return-type "gboolean") (parameters '("gconstpointer" "v1") '("gconstpointer" "v2") ) ) ;; From /opt/gnome2/include/glib-2.0/glib/ghook.h (define-function g_hook_list_init (c-name "g_hook_list_init") (return-type "none") (parameters '("GHookList*" "hook_list") '("guint" "hook_size") ) ) (define-function g_hook_list_clear (c-name "g_hook_list_clear") (return-type "none") (parameters '("GHookList*" "hook_list") ) ) (define-function g_hook_alloc (c-name "g_hook_alloc") (return-type "GHook*") (parameters '("GHookList*" "hook_list") ) ) (define-function g_hook_free (c-name "g_hook_free") (return-type "none") (parameters '("GHookList*" "hook_list") '("GHook*" "hook") ) ) (define-function g_hook_ref (c-name "g_hook_ref") (return-type "GHook*") (parameters '("GHookList*" "hook_list") '("GHook*" "hook") ) ) (define-function g_hook_unref (c-name "g_hook_unref") (return-type "none") (parameters '("GHookList*" "hook_list") '("GHook*" "hook") ) ) (define-function g_hook_destroy (c-name "g_hook_destroy") (return-type "gboolean") (parameters '("GHookList*" "hook_list") '("gulong" "hook_id") ) ) (define-function g_hook_destroy_link (c-name "g_hook_destroy_link") (return-type "none") (parameters '("GHookList*" "hook_list") '("GHook*" "hook") ) ) (define-function g_hook_prepend (c-name "g_hook_prepend") (return-type "none") (parameters '("GHookList*" "hook_list") '("GHook*" "hook") ) ) (define-function g_hook_insert_before (c-name "g_hook_insert_before") (return-type "none") (parameters '("GHookList*" "hook_list") '("GHook*" "sibling") '("GHook*" "hook") ) ) (define-function g_hook_insert_sorted (c-name "g_hook_insert_sorted") (return-type "none") (parameters '("GHookList*" "hook_list") '("GHook*" "hook") '("GHookCompareFunc" "func") ) ) (define-function g_hook_get (c-name "g_hook_get") (return-type "GHook*") (parameters '("GHookList*" "hook_list") '("gulong" "hook_id") ) ) (define-function g_hook_find (c-name "g_hook_find") (return-type "GHook*") (parameters '("GHookList*" "hook_list") '("gboolean" "need_valids") '("GHookFindFunc" "func") '("gpointer" "data") ) ) (define-function g_hook_find_data (c-name "g_hook_find_data") (return-type "GHook*") (parameters '("GHookList*" "hook_list") '("gboolean" "need_valids") '("gpointer" "data") ) ) (define-function g_hook_find_func (c-name "g_hook_find_func") (return-type "GHook*") (parameters '("GHookList*" "hook_list") '("gboolean" "need_valids") '("gpointer" "func") ) ) (define-function g_hook_find_func_data (c-name "g_hook_find_func_data") (return-type "GHook*") (parameters '("GHookList*" "hook_list") '("gboolean" "need_valids") '("gpointer" "func") '("gpointer" "data") ) ) (define-function g_hook_first_valid (c-name "g_hook_first_valid") (return-type "GHook*") (parameters '("GHookList*" "hook_list") '("gboolean" "may_be_in_call") ) ) (define-function g_hook_next_valid (c-name "g_hook_next_valid") (return-type "GHook*") (parameters '("GHookList*" "hook_list") '("GHook*" "hook") '("gboolean" "may_be_in_call") ) ) (define-function g_hook_compare_ids (c-name "g_hook_compare_ids") (return-type "gint") (parameters '("GHook*" "new_hook") '("GHook*" "sibling") ) ) (define-function g_hook_list_invoke (c-name "g_hook_list_invoke") (return-type "none") (parameters '("GHookList*" "hook_list") '("gboolean" "may_recurse") ) ) (define-function g_hook_list_invoke_check (c-name "g_hook_list_invoke_check") (return-type "none") (parameters '("GHookList*" "hook_list") '("gboolean" "may_recurse") ) ) (define-function g_hook_list_marshal (c-name "g_hook_list_marshal") (return-type "none") (parameters '("GHookList*" "hook_list") '("gboolean" "may_recurse") '("GHookMarshaller" "marshaller") '("gpointer" "marshal_data") ) ) (define-function g_hook_list_marshal_check (c-name "g_hook_list_marshal_check") (return-type "none") (parameters '("GHookList*" "hook_list") '("gboolean" "may_recurse") '("GHookCheckMarshaller" "marshaller") '("gpointer" "marshal_data") ) ) ;; From /opt/gnome2/include/glib-2.0/glib/gi18n.h ;; From /opt/gnome2/include/glib-2.0/glib/gi18n-lib.h ;; From /opt/gnome2/include/glib-2.0/glib/giochannel.h (define-function g_io_channel_init (c-name "g_io_channel_init") (return-type "none") (parameters '("GIOChannel*" "channel") ) ) (define-function g_io_channel_ref (c-name "g_io_channel_ref") (return-type "GIOChannel*") (parameters '("GIOChannel*" "channel") ) ) (define-function g_io_channel_unref (c-name "g_io_channel_unref") (return-type "none") (parameters '("GIOChannel*" "channel") ) ) (define-function g_io_channel_read (c-name "g_io_channel_read") (return-type "GIOError") (parameters '("GIOChannel*" "channel") '("gchar*" "buf") '("gsize" "count") '("gsize*" "bytes_read") ) ) (define-function g_io_channel_write (c-name "g_io_channel_write") (return-type "GIOError") (parameters '("GIOChannel*" "channel") '("const-gchar*" "buf") '("gsize" "count") '("gsize*" "bytes_written") ) ) (define-function g_io_channel_seek (c-name "g_io_channel_seek") (return-type "GIOError") (parameters '("GIOChannel*" "channel") '("gint64" "offset") '("GSeekType" "type") ) ) (define-function g_io_channel_close (c-name "g_io_channel_close") (return-type "none") (parameters '("GIOChannel*" "channel") ) ) (define-function g_io_channel_shutdown (c-name "g_io_channel_shutdown") (return-type "GIOStatus") (parameters '("GIOChannel*" "channel") '("gboolean" "flush") '("GError**" "err") ) ) (define-function g_io_add_watch_full (c-name "g_io_add_watch_full") (return-type "guint") (parameters '("GIOChannel*" "channel") '("gint" "priority") '("GIOCondition" "condition") '("GIOFunc" "func") '("gpointer" "user_data") '("GDestroyNotify" "notify") ) ) (define-function g_io_create_watch (c-name "g_io_create_watch") (return-type "GSource*") (parameters '("GIOChannel*" "channel") '("GIOCondition" "condition") ) ) (define-function g_io_add_watch (c-name "g_io_add_watch") (return-type "guint") (parameters '("GIOChannel*" "channel") '("GIOCondition" "condition") '("GIOFunc" "func") '("gpointer" "user_data") ) ) (define-function g_io_channel_set_buffer_size (c-name "g_io_channel_set_buffer_size") (return-type "none") (parameters '("GIOChannel*" "channel") '("gsize" "size") ) ) (define-function g_io_channel_get_buffer_size (c-name "g_io_channel_get_buffer_size") (return-type "gsize") (parameters '("GIOChannel*" "channel") ) ) (define-function g_io_channel_get_buffer_condition (c-name "g_io_channel_get_buffer_condition") (return-type "GIOCondition") (parameters '("GIOChannel*" "channel") ) ) (define-function g_io_channel_set_flags (c-name "g_io_channel_set_flags") (return-type "GIOStatus") (parameters '("GIOChannel*" "channel") '("GIOFlags" "flags") '("GError**" "error") ) ) (define-function g_io_channel_get_flags (c-name "g_io_channel_get_flags") (return-type "GIOFlags") (parameters '("GIOChannel*" "channel") ) ) (define-function g_io_channel_set_line_term (c-name "g_io_channel_set_line_term") (return-type "none") (parameters '("GIOChannel*" "channel") '("const-gchar*" "line_term") '("gint" "length") ) ) (define-function g_io_channel_get_line_term (c-name "g_io_channel_get_line_term") (return-type "const-gchar*") (parameters '("GIOChannel*" "channel") '("gint*" "length") ) ) (define-function g_io_channel_set_buffered (c-name "g_io_channel_set_buffered") (return-type "none") (parameters '("GIOChannel*" "channel") '("gboolean" "buffered") ) ) (define-function g_io_channel_get_buffered (c-name "g_io_channel_get_buffered") (return-type "gboolean") (parameters '("GIOChannel*" "channel") ) ) (define-function g_io_channel_set_encoding (c-name "g_io_channel_set_encoding") (return-type "GIOStatus") (parameters '("GIOChannel*" "channel") '("const-gchar*" "encoding") '("GError**" "error") ) ) (define-function g_io_channel_get_encoding (c-name "g_io_channel_get_encoding") (return-type "const-gchar*") (parameters '("GIOChannel*" "channel") ) ) (define-function g_io_channel_set_close_on_unref (c-name "g_io_channel_set_close_on_unref") (return-type "none") (parameters '("GIOChannel*" "channel") '("gboolean" "do_close") ) ) (define-function g_io_channel_get_close_on_unref (c-name "g_io_channel_get_close_on_unref") (return-type "gboolean") (parameters '("GIOChannel*" "channel") ) ) (define-function g_io_channel_flush (c-name "g_io_channel_flush") (return-type "GIOStatus") (parameters '("GIOChannel*" "channel") '("GError**" "error") ) ) (define-function g_io_channel_read_line (c-name "g_io_channel_read_line") (return-type "GIOStatus") (parameters '("GIOChannel*" "channel") '("gchar**" "str_return") '("gsize*" "length") '("gsize*" "terminator_pos") '("GError**" "error") ) ) (define-function g_io_channel_read_line_string (c-name "g_io_channel_read_line_string") (return-type "GIOStatus") (parameters '("GIOChannel*" "channel") '("GString*" "buffer") '("gsize*" "terminator_pos") '("GError**" "error") ) ) (define-function g_io_channel_read_to_end (c-name "g_io_channel_read_to_end") (return-type "GIOStatus") (parameters '("GIOChannel*" "channel") '("gchar**" "str_return") '("gsize*" "length") '("GError**" "error") ) ) (define-function g_io_channel_read_chars (c-name "g_io_channel_read_chars") (return-type "GIOStatus") (parameters '("GIOChannel*" "channel") '("gchar*" "buf") '("gsize" "count") '("gsize*" "bytes_read") '("GError**" "error") ) ) (define-function g_io_channel_read_unichar (c-name "g_io_channel_read_unichar") (return-type "GIOStatus") (parameters '("GIOChannel*" "channel") '("gunichar*" "thechar") '("GError**" "error") ) ) (define-function g_io_channel_write_chars (c-name "g_io_channel_write_chars") (return-type "GIOStatus") (parameters '("GIOChannel*" "channel") '("const-gchar*" "buf") '("gssize" "count") '("gsize*" "bytes_written") '("GError**" "error") ) ) (define-function g_io_channel_write_unichar (c-name "g_io_channel_write_unichar") (return-type "GIOStatus") (parameters '("GIOChannel*" "channel") '("gunichar" "thechar") '("GError**" "error") ) ) (define-function g_io_channel_seek_position (c-name "g_io_channel_seek_position") (return-type "GIOStatus") (parameters '("GIOChannel*" "channel") '("gint64" "offset") '("GSeekType" "type") '("GError**" "error") ) ) (define-function g_io_channel_new_file (c-name "g_io_channel_new_file") (return-type "GIOChannel*") (parameters '("const-gchar*" "filename") '("const-gchar*" "mode") '("GError**" "error") ) ) (define-function g_io_channel_error_quark (c-name "g_io_channel_error_quark") (return-type "GQuark") ) (define-function g_io_channel_error_from_errno (c-name "g_io_channel_error_from_errno") (return-type "GIOChannelError") (parameters '("gint" "en") ) ) (define-function g_io_channel_unix_new (c-name "g_io_channel_unix_new") (is-constructor-of "GIoChannelUnix") (return-type "GIOChannel*") (parameters '("int" "fd") ) ) (define-function g_io_channel_unix_get_fd (c-name "g_io_channel_unix_get_fd") (return-type "gint") (parameters '("GIOChannel*" "channel") ) ) (define-function g_io_channel_win32_make_pollfd (c-name "g_io_channel_win32_make_pollfd") (return-type "none") (parameters '("GIOChannel*" "channel") '("GIOCondition" "condition") '("GPollFD*" "fd") ) ) (define-function g_io_channel_win32_poll (c-name "g_io_channel_win32_poll") (return-type "gint") (parameters '("GPollFD*" "fds") '("gint" "n_fds") '("gint" "timeout_") ) ) (define-function g_io_channel_win32_new_messages (c-name "g_io_channel_win32_new_messages") (return-type "GIOChannel*") (parameters '("guint" "hwnd") ) ) (define-function g_io_channel_win32_new_fd (c-name "g_io_channel_win32_new_fd") (return-type "GIOChannel*") (parameters '("gint" "fd") ) ) (define-function g_io_channel_win32_get_fd (c-name "g_io_channel_win32_get_fd") (return-type "gint") (parameters '("GIOChannel*" "channel") ) ) (define-function g_io_channel_win32_new_socket (c-name "g_io_channel_win32_new_socket") (return-type "GIOChannel*") (parameters '("gint" "socket") ) ) ;; From /opt/gnome2/include/glib-2.0/glib/gkeyfile.h (define-function g_key_file_error_quark (c-name "g_key_file_error_quark") (return-type "GQuark") ) (define-function g_key_file_new (c-name "g_key_file_new") (is-constructor-of "GKeyFile") (return-type "GKeyFile*") ) (define-function g_key_file_free (c-name "g_key_file_free") (return-type "none") (parameters '("GKeyFile*" "key_file") ) ) (define-function g_key_file_set_list_separator (c-name "g_key_file_set_list_separator") (return-type "none") (parameters '("GKeyFile*" "key_file") '("gchar" "separator") ) ) (define-function g_key_file_load_from_file (c-name "g_key_file_load_from_file") (return-type "gboolean") (parameters '("GKeyFile*" "key_file") '("const-gchar*" "file") '("GKeyFileFlags" "flags") '("GError**" "error") ) ) (define-function g_key_file_load_from_data (c-name "g_key_file_load_from_data") (return-type "gboolean") (parameters '("GKeyFile*" "key_file") '("const-gchar*" "data") '("gsize" "length") '("GKeyFileFlags" "flags") '("GError**" "error") ) ) (define-function g_key_file_load_from_data_dirs (c-name "g_key_file_load_from_data_dirs") (return-type "gboolean") (parameters '("GKeyFile*" "key_file") '("const-gchar*" "file") '("gchar**" "full_path") '("GKeyFileFlags" "flags") '("GError**" "error") ) ) (define-function g_key_file_to_data (c-name "g_key_file_to_data") (return-type "gchar*") (parameters '("GKeyFile*" "key_file") '("gsize*" "length") '("GError**" "error") ) ) (define-function g_key_file_get_start_group (c-name "g_key_file_get_start_group") (return-type "gchar*") (parameters '("GKeyFile*" "key_file") ) ) (define-function g_key_file_get_groups (c-name "g_key_file_get_groups") (return-type "gchar**") (parameters '("GKeyFile*" "key_file") '("gsize*" "length") ) ) (define-function g_key_file_get_keys (c-name "g_key_file_get_keys") (return-type "gchar**") (parameters '("GKeyFile*" "key_file") '("const-gchar*" "group_name") '("gsize*" "length") '("GError**" "error") ) ) (define-function g_key_file_has_group (c-name "g_key_file_has_group") (return-type "gboolean") (parameters '("GKeyFile*" "key_file") '("const-gchar*" "group_name") ) ) (define-function g_key_file_has_key (c-name "g_key_file_has_key") (return-type "gboolean") (parameters '("GKeyFile*" "key_file") '("const-gchar*" "group_name") '("const-gchar*" "key") '("GError**" "error") ) ) (define-function g_key_file_get_value (c-name "g_key_file_get_value") (return-type "gchar*") (parameters '("GKeyFile*" "key_file") '("const-gchar*" "group_name") '("const-gchar*" "key") '("GError**" "error") ) ) (define-function g_key_file_set_value (c-name "g_key_file_set_value") (return-type "none") (parameters '("GKeyFile*" "key_file") '("const-gchar*" "group_name") '("const-gchar*" "key") '("const-gchar*" "value") ) ) (define-function g_key_file_get_string (c-name "g_key_file_get_string") (return-type "gchar*") (parameters '("GKeyFile*" "key_file") '("const-gchar*" "group_name") '("const-gchar*" "key") '("GError**" "error") ) ) (define-function g_key_file_set_string (c-name "g_key_file_set_string") (return-type "none") (parameters '("GKeyFile*" "key_file") '("const-gchar*" "group_name") '("const-gchar*" "key") '("const-gchar*" "string") ) ) (define-function g_key_file_get_locale_string (c-name "g_key_file_get_locale_string") (return-type "gchar*") (parameters '("GKeyFile*" "key_file") '("const-gchar*" "group_name") '("const-gchar*" "key") '("const-gchar*" "locale") '("GError**" "error") ) ) (define-function g_key_file_set_locale_string (c-name "g_key_file_set_locale_string") (return-type "none") (parameters '("GKeyFile*" "key_file") '("const-gchar*" "group_name") '("const-gchar*" "key") '("const-gchar*" "locale") '("const-gchar*" "string") ) ) (define-function g_key_file_get_boolean (c-name "g_key_file_get_boolean") (return-type "gboolean") (parameters '("GKeyFile*" "key_file") '("const-gchar*" "group_name") '("const-gchar*" "key") '("GError**" "error") ) ) (define-function g_key_file_set_boolean (c-name "g_key_file_set_boolean") (return-type "none") (parameters '("GKeyFile*" "key_file") '("const-gchar*" "group_name") '("const-gchar*" "key") '("gboolean" "value") ) ) (define-function g_key_file_get_integer (c-name "g_key_file_get_integer") (return-type "gint") (parameters '("GKeyFile*" "key_file") '("const-gchar*" "group_name") '("const-gchar*" "key") '("GError**" "error") ) ) (define-function g_key_file_set_integer (c-name "g_key_file_set_integer") (return-type "none") (parameters '("GKeyFile*" "key_file") '("const-gchar*" "group_name") '("const-gchar*" "key") '("gint" "value") ) ) (define-function g_key_file_get_double (c-name "g_key_file_get_double") (return-type "gdouble") (parameters '("GKeyFile*" "key_file") '("const-gchar*" "group_name") '("const-gchar*" "key") '("GError**" "error") ) ) (define-function g_key_file_set_double (c-name "g_key_file_set_double") (return-type "none") (parameters '("GKeyFile*" "key_file") '("const-gchar*" "group_name") '("const-gchar*" "key") '("gdouble" "value") ) ) (define-function g_key_file_get_string_list (c-name "g_key_file_get_string_list") (return-type "gchar**") (parameters '("GKeyFile*" "key_file") '("const-gchar*" "group_name") '("const-gchar*" "key") '("gsize*" "length") '("GError**" "error") ) ) (define-function g_key_file_set_string_list (c-name "g_key_file_set_string_list") (return-type "none") (parameters '("GKeyFile*" "key_file") '("const-gchar*" "group_name") '("const-gchar*" "key") '("const-gchar*-const[]" "list") '("gsize" "length") ) ) (define-function g_key_file_get_locale_string_list (c-name "g_key_file_get_locale_string_list") (return-type "gchar**") (parameters '("GKeyFile*" "key_file") '("const-gchar*" "group_name") '("const-gchar*" "key") '("const-gchar*" "locale") '("gsize*" "length") '("GError**" "error") ) ) (define-function g_key_file_set_locale_string_list (c-name "g_key_file_set_locale_string_list") (return-type "none") (parameters '("GKeyFile*" "key_file") '("const-gchar*" "group_name") '("const-gchar*" "key") '("const-gchar*" "locale") '("const-gchar*-const[]" "list") '("gsize" "length") ) ) (define-function g_key_file_get_boolean_list (c-name "g_key_file_get_boolean_list") (return-type "gboolean*") (parameters '("GKeyFile*" "key_file") '("const-gchar*" "group_name") '("const-gchar*" "key") '("gsize*" "length") '("GError**" "error") ) ) (define-function g_key_file_set_boolean_list (c-name "g_key_file_set_boolean_list") (return-type "none") (parameters '("GKeyFile*" "key_file") '("const-gchar*" "group_name") '("const-gchar*" "key") '("gboolean[]" "list") '("gsize" "length") ) ) (define-function g_key_file_get_integer_list (c-name "g_key_file_get_integer_list") (return-type "gint*") (parameters '("GKeyFile*" "key_file") '("const-gchar*" "group_name") '("const-gchar*" "key") '("gsize*" "length") '("GError**" "error") ) ) (define-function g_key_file_set_double_list (c-name "g_key_file_set_double_list") (return-type "none") (parameters '("GKeyFile*" "key_file") '("const-gchar*" "group_name") '("const-gchar*" "key") '("gdouble[]" "list") '("gsize" "length") ) ) (define-function g_key_file_get_double_list (c-name "g_key_file_get_double_list") (return-type "gdouble*") (parameters '("GKeyFile*" "key_file") '("const-gchar*" "group_name") '("const-gchar*" "key") '("gsize*" "length") '("GError**" "error") ) ) (define-function g_key_file_set_integer_list (c-name "g_key_file_set_integer_list") (return-type "none") (parameters '("GKeyFile*" "key_file") '("const-gchar*" "group_name") '("const-gchar*" "key") '("gint[]" "list") '("gsize" "length") ) ) (define-function g_key_file_set_comment (c-name "g_key_file_set_comment") (return-type "none") (parameters '("GKeyFile*" "key_file") '("const-gchar*" "group_name") '("const-gchar*" "key") '("const-gchar*" "comment") '("GError**" "error") ) ) (define-function g_key_file_get_comment (c-name "g_key_file_get_comment") (return-type "gchar*") (parameters '("GKeyFile*" "key_file") '("const-gchar*" "group_name") '("const-gchar*" "key") '("GError**" "error") ) ) (define-function g_key_file_remove_comment (c-name "g_key_file_remove_comment") (return-type "none") (parameters '("GKeyFile*" "key_file") '("const-gchar*" "group_name") '("const-gchar*" "key") '("GError**" "error") ) ) (define-function g_key_file_remove_key (c-name "g_key_file_remove_key") (return-type "none") (parameters '("GKeyFile*" "key_file") '("const-gchar*" "group_name") '("const-gchar*" "key") '("GError**" "error") ) ) (define-function g_key_file_remove_group (c-name "g_key_file_remove_group") (return-type "none") (parameters '("GKeyFile*" "key_file") '("const-gchar*" "group_name") '("GError**" "error") ) ) ;; From /opt/gnome2/include/glib-2.0/glib/glist.h (define-function g_list_alloc (c-name "g_list_alloc") (return-type "GList*") ) (define-function g_list_free (c-name "g_list_free") (return-type "none") (parameters '("GList*" "list") ) ) (define-function g_list_free_1 (c-name "g_list_free_1") (return-type "none") (parameters '("GList*" "list") ) ) (define-function g_list_append (c-name "g_list_append") (return-type "GList*") (parameters '("GList*" "list") '("gpointer" "data") ) ) (define-function g_list_prepend (c-name "g_list_prepend") (return-type "GList*") (parameters '("GList*" "list") '("gpointer" "data") ) ) (define-function g_list_insert (c-name "g_list_insert") (return-type "GList*") (parameters '("GList*" "list") '("gpointer" "data") '("gint" "position") ) ) (define-function g_list_insert_sorted (c-name "g_list_insert_sorted") (return-type "GList*") (parameters '("GList*" "list") '("gpointer" "data") '("GCompareFunc" "func") ) ) (define-function g_list_insert_sorted_with_data (c-name "g_list_insert_sorted_with_data") (return-type "GList*") (parameters '("GList*" "list") '("gpointer" "data") '("GCompareDataFunc" "func") '("gpointer" "user_data") ) ) (define-function g_list_insert_before (c-name "g_list_insert_before") (return-type "GList*") (parameters '("GList*" "list") '("GList*" "sibling") '("gpointer" "data") ) ) (define-function g_list_concat (c-name "g_list_concat") (return-type "GList*") (parameters '("GList*" "list1") '("GList*" "list2") ) ) (define-function g_list_remove (c-name "g_list_remove") (return-type "GList*") (parameters '("GList*" "list") '("gconstpointer" "data") ) ) (define-function g_list_remove_all (c-name "g_list_remove_all") (return-type "GList*") (parameters '("GList*" "list") '("gconstpointer" "data") ) ) (define-function g_list_remove_link (c-name "g_list_remove_link") (return-type "GList*") (parameters '("GList*" "list") '("GList*" "llink") ) ) (define-function g_list_delete_link (c-name "g_list_delete_link") (return-type "GList*") (parameters '("GList*" "list") '("GList*" "link_") ) ) (define-function g_list_reverse (c-name "g_list_reverse") (return-type "GList*") (parameters '("GList*" "list") ) ) (define-function g_list_copy (c-name "g_list_copy") (return-type "GList*") (parameters '("GList*" "list") ) ) (define-function g_list_nth (c-name "g_list_nth") (return-type "GList*") (parameters '("GList*" "list") '("guint" "n") ) ) (define-function g_list_nth_prev (c-name "g_list_nth_prev") (return-type "GList*") (parameters '("GList*" "list") '("guint" "n") ) ) (define-function g_list_find (c-name "g_list_find") (return-type "GList*") (parameters '("GList*" "list") '("gconstpointer" "data") ) ) (define-function g_list_find_custom (c-name "g_list_find_custom") (return-type "GList*") (parameters '("GList*" "list") '("gconstpointer" "data") '("GCompareFunc" "func") ) ) (define-function g_list_position (c-name "g_list_position") (return-type "gint") (parameters '("GList*" "list") '("GList*" "llink") ) ) (define-function g_list_index (c-name "g_list_index") (return-type "gint") (parameters '("GList*" "list") '("gconstpointer" "data") ) ) (define-function g_list_last (c-name "g_list_last") (return-type "GList*") (parameters '("GList*" "list") ) ) (define-function g_list_first (c-name "g_list_first") (return-type "GList*") (parameters '("GList*" "list") ) ) (define-function g_list_length (c-name "g_list_length") (return-type "guint") (parameters '("GList*" "list") ) ) (define-function g_list_foreach (c-name "g_list_foreach") (return-type "none") (parameters '("GList*" "list") '("GFunc" "func") '("gpointer" "user_data") ) ) (define-function g_list_sort (c-name "g_list_sort") (return-type "GList*") (parameters '("GList*" "list") '("GCompareFunc" "compare_func") ) ) (define-function g_list_sort_with_data (c-name "g_list_sort_with_data") (return-type "GList*") (parameters '("GList*" "list") '("GCompareDataFunc" "compare_func") '("gpointer" "user_data") ) ) (define-function g_list_nth_data (c-name "g_list_nth_data") (return-type "gpointer") (parameters '("GList*" "list") '("guint" "n") ) ) (define-function g_list_push_allocator (c-name "g_list_push_allocator") (return-type "none") (parameters '("gpointer" "allocator") ) ) (define-function g_list_pop_allocator (c-name "g_list_pop_allocator") (return-type "none") ) ;; From /opt/gnome2/include/glib-2.0/glib/gmacros.h ;; From /opt/gnome2/include/glib-2.0/glib/gmain.h (define-function g_main_context_new (c-name "g_main_context_new") (is-constructor-of "GMainContext") (return-type "GMainContext*") ) (define-function g_main_context_ref (c-name "g_main_context_ref") (return-type "GMainContext*") (parameters '("GMainContext*" "context") ) ) (define-function g_main_context_unref (c-name "g_main_context_unref") (return-type "none") (parameters '("GMainContext*" "context") ) ) (define-function g_main_context_default (c-name "g_main_context_default") (return-type "GMainContext*") ) (define-function g_main_context_iteration (c-name "g_main_context_iteration") (return-type "gboolean") (parameters '("GMainContext*" "context") '("gboolean" "may_block") ) ) (define-function g_main_context_pending (c-name "g_main_context_pending") (return-type "gboolean") (parameters '("GMainContext*" "context") ) ) (define-function g_main_context_find_source_by_id (c-name "g_main_context_find_source_by_id") (return-type "GSource*") (parameters '("GMainContext*" "context") '("guint" "source_id") ) ) (define-function g_main_context_find_source_by_user_data (c-name "g_main_context_find_source_by_user_data") (return-type "GSource*") (parameters '("GMainContext*" "context") '("gpointer" "user_data") ) ) (define-function g_main_context_find_source_by_funcs_user_data (c-name "g_main_context_find_source_by_funcs_user_data") (return-type "GSource*") (parameters '("GMainContext*" "context") '("GSourceFuncs*" "funcs") '("gpointer" "user_data") ) ) (define-function g_main_context_wakeup (c-name "g_main_context_wakeup") (return-type "none") (parameters '("GMainContext*" "context") ) ) (define-function g_main_context_acquire (c-name "g_main_context_acquire") (return-type "gboolean") (parameters '("GMainContext*" "context") ) ) (define-function g_main_context_release (c-name "g_main_context_release") (return-type "none") (parameters '("GMainContext*" "context") ) ) (define-function g_main_context_is_owner (c-name "g_main_context_is_owner") (return-type "gboolean") (parameters '("GMainContext*" "context") ) ) (define-function g_main_context_wait (c-name "g_main_context_wait") (return-type "gboolean") (parameters '("GMainContext*" "context") '("GCond*" "cond") '("GMutex*" "mutex") ) ) (define-function g_main_context_prepare (c-name "g_main_context_prepare") (return-type "gboolean") (parameters '("GMainContext*" "context") '("gint*" "priority") ) ) (define-function g_main_context_query (c-name "g_main_context_query") (return-type "gint") (parameters '("GMainContext*" "context") '("gint" "max_priority") '("gint*" "timeout_") '("GPollFD*" "fds") '("gint" "n_fds") ) ) (define-function g_main_context_check (c-name "g_main_context_check") (return-type "gint") (parameters '("GMainContext*" "context") '("gint" "max_priority") '("GPollFD*" "fds") '("gint" "n_fds") ) ) (define-function g_main_context_dispatch (c-name "g_main_context_dispatch") (return-type "none") (parameters '("GMainContext*" "context") ) ) (define-function g_main_context_set_poll_func (c-name "g_main_context_set_poll_func") (return-type "none") (parameters '("GMainContext*" "context") '("GPollFunc" "func") ) ) (define-function g_main_context_get_poll_func (c-name "g_main_context_get_poll_func") (return-type "GPollFunc") (parameters '("GMainContext*" "context") ) ) (define-function g_main_context_add_poll (c-name "g_main_context_add_poll") (return-type "none") (parameters '("GMainContext*" "context") '("GPollFD*" "fd") '("gint" "priority") ) ) (define-function g_main_context_remove_poll (c-name "g_main_context_remove_poll") (return-type "none") (parameters '("GMainContext*" "context") '("GPollFD*" "fd") ) ) (define-function g_main_depth (c-name "g_main_depth") (return-type "gint") ) (define-function g_main_current_source (c-name "g_main_current_source") (return-type "GSource*") ) (define-function g_main_loop_new (c-name "g_main_loop_new") (is-constructor-of "GMainLoop") (return-type "GMainLoop*") (parameters '("GMainContext*" "context") '("gboolean" "is_running") ) ) (define-function g_main_loop_run (c-name "g_main_loop_run") (return-type "none") (parameters '("GMainLoop*" "loop") ) ) (define-function g_main_loop_quit (c-name "g_main_loop_quit") (return-type "none") (parameters '("GMainLoop*" "loop") ) ) (define-function g_main_loop_ref (c-name "g_main_loop_ref") (return-type "GMainLoop*") (parameters '("GMainLoop*" "loop") ) ) (define-function g_main_loop_unref (c-name "g_main_loop_unref") (return-type "none") (parameters '("GMainLoop*" "loop") ) ) (define-function g_main_loop_is_running (c-name "g_main_loop_is_running") (return-type "gboolean") (parameters '("GMainLoop*" "loop") ) ) (define-function g_main_loop_get_context (c-name "g_main_loop_get_context") (return-type "GMainContext*") (parameters '("GMainLoop*" "loop") ) ) (define-function g_source_new (c-name "g_source_new") (is-constructor-of "GSource") (return-type "GSource*") (parameters '("GSourceFuncs*" "source_funcs") '("guint" "struct_size") ) ) (define-function g_source_ref (c-name "g_source_ref") (return-type "GSource*") (parameters '("GSource*" "source") ) ) (define-function g_source_unref (c-name "g_source_unref") (return-type "none") (parameters '("GSource*" "source") ) ) (define-function g_source_attach (c-name "g_source_attach") (return-type "guint") (parameters '("GSource*" "source") '("GMainContext*" "context") ) ) (define-function g_source_destroy (c-name "g_source_destroy") (return-type "none") (parameters '("GSource*" "source") ) ) (define-function g_source_set_priority (c-name "g_source_set_priority") (return-type "none") (parameters '("GSource*" "source") '("gint" "priority") ) ) (define-function g_source_get_priority (c-name "g_source_get_priority") (return-type "gint") (parameters '("GSource*" "source") ) ) (define-function g_source_set_can_recurse (c-name "g_source_set_can_recurse") (return-type "none") (parameters '("GSource*" "source") '("gboolean" "can_recurse") ) ) (define-function g_source_get_can_recurse (c-name "g_source_get_can_recurse") (return-type "gboolean") (parameters '("GSource*" "source") ) ) (define-function g_source_get_id (c-name "g_source_get_id") (return-type "guint") (parameters '("GSource*" "source") ) ) (define-function g_source_get_context (c-name "g_source_get_context") (return-type "GMainContext*") (parameters '("GSource*" "source") ) ) (define-function g_source_set_callback (c-name "g_source_set_callback") (return-type "none") (parameters '("GSource*" "source") '("GSourceFunc" "func") '("gpointer" "data") '("GDestroyNotify" "notify") ) ) (define-function g_source_set_funcs (c-name "g_source_set_funcs") (return-type "none") (parameters '("GSource*" "source") '("GSourceFuncs*" "funcs") ) ) (define-function g_source_is_destroyed (c-name "g_source_is_destroyed") (return-type "gboolean") (parameters '("GSource*" "source") ) ) (define-function g_source_set_callback_indirect (c-name "g_source_set_callback_indirect") (return-type "none") (parameters '("GSource*" "source") '("gpointer" "callback_data") '("GSourceCallbackFuncs*" "callback_funcs") ) ) (define-function g_source_add_poll (c-name "g_source_add_poll") (return-type "none") (parameters '("GSource*" "source") '("GPollFD*" "fd") ) ) (define-function g_source_remove_poll (c-name "g_source_remove_poll") (return-type "none") (parameters '("GSource*" "source") '("GPollFD*" "fd") ) ) (define-function g_source_get_current_time (c-name "g_source_get_current_time") (return-type "none") (parameters '("GSource*" "source") '("GTimeVal*" "timeval") ) ) (define-function g_idle_source_new (c-name "g_idle_source_new") (is-constructor-of "GIdleSource") (return-type "GSource*") ) (define-function g_child_watch_source_new (c-name "g_child_watch_source_new") (is-constructor-of "GChildWatchSource") (return-type "GSource*") (parameters '("GPid" "pid") ) ) (define-function g_timeout_source_new (c-name "g_timeout_source_new") (is-constructor-of "GTimeoutSource") (return-type "GSource*") (parameters '("guint" "interval") ) ) (define-function g_get_current_time (c-name "g_get_current_time") (return-type "none") (parameters '("GTimeVal*" "result") ) ) (define-function g_source_remove (c-name "g_source_remove") (return-type "gboolean") (parameters '("guint" "tag") ) ) (define-function g_source_remove_by_user_data (c-name "g_source_remove_by_user_data") (return-type "gboolean") (parameters '("gpointer" "user_data") ) ) (define-function g_source_remove_by_funcs_user_data (c-name "g_source_remove_by_funcs_user_data") (return-type "gboolean") (parameters '("GSourceFuncs*" "funcs") '("gpointer" "user_data") ) ) (define-function g_timeout_add_full (c-name "g_timeout_add_full") (return-type "guint") (parameters '("gint" "priority") '("guint" "interval") '("GSourceFunc" "function") '("gpointer" "data") '("GDestroyNotify" "notify") ) ) (define-function g_timeout_add (c-name "g_timeout_add") (return-type "guint") (parameters '("guint" "interval") '("GSourceFunc" "function") '("gpointer" "data") ) ) (define-function g_child_watch_add_full (c-name "g_child_watch_add_full") (return-type "guint") (parameters '("gint" "priority") '("GPid" "pid") '("GChildWatchFunc" "function") '("gpointer" "data") '("GDestroyNotify" "notify") ) ) (define-function g_child_watch_add (c-name "g_child_watch_add") (return-type "guint") (parameters '("GPid" "pid") '("GChildWatchFunc" "function") '("gpointer" "data") ) ) (define-function g_idle_add (c-name "g_idle_add") (return-type "guint") (parameters '("GSourceFunc" "function") '("gpointer" "data") ) ) (define-function g_idle_add_full (c-name "g_idle_add_full") (return-type "guint") (parameters '("gint" "priority") '("GSourceFunc" "function") '("gpointer" "data") '("GDestroyNotify" "notify") ) ) (define-function g_idle_remove_by_data (c-name "g_idle_remove_by_data") (return-type "gboolean") (parameters '("gpointer" "data") ) ) ;; From /opt/gnome2/include/glib-2.0/glib/gmappedfile.h (define-function g_mapped_file_new (c-name "g_mapped_file_new") (is-constructor-of "GMappedFile") (return-type "GMappedFile*") (parameters '("const-gchar*" "filename") '("gboolean" "writable") '("GError**" "error") ) ) (define-function g_mapped_file_get_length (c-name "g_mapped_file_get_length") (return-type "gsize") (parameters '("GMappedFile*" "file") ) ) (define-function g_mapped_file_get_contents (c-name "g_mapped_file_get_contents") (return-type "gchar*") (parameters '("GMappedFile*" "file") ) ) (define-function g_mapped_file_free (c-name "g_mapped_file_free") (return-type "none") (parameters '("GMappedFile*" "file") ) ) ;; From /opt/gnome2/include/glib-2.0/glib/gmarkup.h (define-function g_markup_error_quark (c-name "g_markup_error_quark") (return-type "GQuark") ) (define-function g_markup_parse_context_new (c-name "g_markup_parse_context_new") (is-constructor-of "GMarkupParseContext") (return-type "GMarkupParseContext*") (parameters '("const-GMarkupParser*" "parser") '("GMarkupParseFlags" "flags") '("gpointer" "user_data") '("GDestroyNotify" "user_data_dnotify") ) ) (define-function g_markup_parse_context_free (c-name "g_markup_parse_context_free") (return-type "none") (parameters '("GMarkupParseContext*" "context") ) ) (define-function g_markup_parse_context_parse (c-name "g_markup_parse_context_parse") (return-type "gboolean") (parameters '("GMarkupParseContext*" "context") '("const-gchar*" "text") '("gssize" "text_len") '("GError**" "error") ) ) (define-function g_markup_parse_context_end_parse (c-name "g_markup_parse_context_end_parse") (return-type "gboolean") (parameters '("GMarkupParseContext*" "context") '("GError**" "error") ) ) (define-function g_markup_parse_context_get_element (c-name "g_markup_parse_context_get_element") (return-type "const-gchar*") (parameters '("GMarkupParseContext*" "context") ) ) (define-function g_markup_parse_context_get_position (c-name "g_markup_parse_context_get_position") (return-type "none") (parameters '("GMarkupParseContext*" "context") '("gint*" "line_number") '("gint*" "char_number") ) ) (define-function g_markup_escape_text (c-name "g_markup_escape_text") (return-type "gchar*") (parameters '("const-gchar*" "text") '("gssize" "length") ) ) (define-function g_markup_printf_escaped (c-name "g_markup_printf_escaped") (return-type "gchar*") (parameters '("const-char*" "format") ) (varargs #t) ) (define-function g_markup_vprintf_escaped (c-name "g_markup_vprintf_escaped") (return-type "gchar*") (parameters '("const-char*" "format") '("va_list" "args") ) ) ;; From /opt/gnome2/include/glib-2.0/glib/gmem.h (define-function g_malloc (c-name "g_malloc") (return-type "gpointer") (parameters '("gulong" "n_bytes") ) ) (define-function g_malloc0 (c-name "g_malloc0") (return-type "gpointer") (parameters '("gulong" "n_bytes") ) ) (define-function g_realloc (c-name "g_realloc") (return-type "gpointer") (parameters '("gpointer" "mem") '("gulong" "n_bytes") ) ) (define-function g_free (c-name "g_free") (return-type "none") (parameters '("gpointer" "mem") ) ) (define-function g_try_malloc (c-name "g_try_malloc") (return-type "gpointer") (parameters '("gulong" "n_bytes") ) ) (define-function g_try_malloc0 (c-name "g_try_malloc0") (return-type "gpointer") (parameters '("gulong" "n_bytes") ) ) (define-function g_try_realloc (c-name "g_try_realloc") (return-type "gpointer") (parameters '("gpointer" "mem") '("gulong" "n_bytes") ) ) (define-function g_mem_set_vtable (c-name "g_mem_set_vtable") (return-type "none") (parameters '("GMemVTable*" "vtable") ) ) (define-function g_mem_is_system_malloc (c-name "g_mem_is_system_malloc") (return-type "gboolean") ) (define-function g_mem_profile (c-name "g_mem_profile") (return-type "none") ) (define-function g_mem_chunk_new (c-name "g_mem_chunk_new") (is-constructor-of "GMemChunk") (return-type "GMemChunk*") (parameters '("const-gchar*" "name") '("gint" "atom_size") '("gulong" "area_size") '("gint" "type") ) ) (define-function g_mem_chunk_destroy (c-name "g_mem_chunk_destroy") (return-type "none") (parameters '("GMemChunk*" "mem_chunk") ) ) (define-function g_mem_chunk_alloc (c-name "g_mem_chunk_alloc") (return-type "gpointer") (parameters '("GMemChunk*" "mem_chunk") ) ) (define-function g_mem_chunk_alloc0 (c-name "g_mem_chunk_alloc0") (return-type "gpointer") (parameters '("GMemChunk*" "mem_chunk") ) ) (define-function g_mem_chunk_free (c-name "g_mem_chunk_free") (return-type "none") (parameters '("GMemChunk*" "mem_chunk") '("gpointer" "mem") ) ) (define-function g_mem_chunk_clean (c-name "g_mem_chunk_clean") (return-type "none") (parameters '("GMemChunk*" "mem_chunk") ) ) (define-function g_mem_chunk_reset (c-name "g_mem_chunk_reset") (return-type "none") (parameters '("GMemChunk*" "mem_chunk") ) ) (define-function g_mem_chunk_print (c-name "g_mem_chunk_print") (return-type "none") (parameters '("GMemChunk*" "mem_chunk") ) ) (define-function g_mem_chunk_info (c-name "g_mem_chunk_info") (return-type "none") ) (define-function g_blow_chunks (c-name "g_blow_chunks") (return-type "none") ) (define-function g_allocator_free (c-name "g_allocator_free") (return-type "none") (parameters '("GAllocator*" "allocator") ) ) ;; From /opt/gnome2/include/glib-2.0/glib/gmessages.h (define-function g_printf_string_upper_bound (c-name "g_printf_string_upper_bound") (return-type "gsize") (parameters '("const-gchar*" "format") '("va_list" "args") ) ) (define-function g_log_set_handler (c-name "g_log_set_handler") (return-type "guint") (parameters '("const-gchar*" "log_domain") '("GLogLevelFlags" "log_levels") '("GLogFunc" "log_func") '("gpointer" "user_data") ) ) (define-function g_log_remove_handler (c-name "g_log_remove_handler") (return-type "none") (parameters '("const-gchar*" "log_domain") '("guint" "handler_id") ) ) (define-function g_log_default_handler (c-name "g_log_default_handler") (return-type "none") (parameters '("const-gchar*" "log_domain") '("GLogLevelFlags" "log_level") '("const-gchar*" "message") '("gpointer" "unused_data") ) ) (define-function g_log_set_default_handler (c-name "g_log_set_default_handler") (return-type "GLogFunc") (parameters '("GLogFunc" "log_func") '("gpointer" "user_data") ) ) (define-function g_log (c-name "g_log") (return-type "none") (parameters '("const-gchar*" "log_domain") '("GLogLevelFlags" "log_level") '("const-gchar*" "format") ) (varargs #t) ) (define-function g_logv (c-name "g_logv") (return-type "none") (parameters '("const-gchar*" "log_domain") '("GLogLevelFlags" "log_level") '("const-gchar*" "format") '("va_list" "args") ) ) (define-function g_log_set_fatal_mask (c-name "g_log_set_fatal_mask") (return-type "GLogLevelFlags") (parameters '("const-gchar*" "log_domain") '("GLogLevelFlags" "fatal_mask") ) ) (define-function g_log_set_always_fatal (c-name "g_log_set_always_fatal") (return-type "GLogLevelFlags") (parameters '("GLogLevelFlags" "fatal_mask") ) ) (define-function _g_log_fallback_handler (c-name "_g_log_fallback_handler") (return-type "none") (parameters '("const-gchar*" "log_domain") '("GLogLevelFlags" "log_level") '("const-gchar*" "message") '("gpointer" "unused_data") ) ) (define-function g_return_if_fail_warning (c-name "g_return_if_fail_warning") (return-type "none") (parameters '("const-char*" "log_domain") '("const-char*" "pretty_function") '("const-char*" "expression") ) ) (define-function g_assert_warning (c-name "g_assert_warning") (return-type "none") (parameters '("const-char*" "log_domain") '("const-char*" "file") '("const-int" "line") '("const-char*" "pretty_function") '("const-char*" "expression") ) ) (define-function g_error (c-name "g_error") (return-type "static-void") (parameters '("const-gchar*" "format") ) (varargs #t) ) (define-function g_set_print_handler (c-name "g_set_print_handler") (return-type "GPrintFunc") (parameters '("GPrintFunc" "func") ) ) (define-function g_printerr (c-name "g_printerr") (return-type "none") (parameters '("const-gchar*" "format") ) (varargs #t) ) (define-function g_set_printerr_handler (c-name "g_set_printerr_handler") (return-type "GPrintFunc") (parameters '("GPrintFunc" "func") ) ) ;; From /opt/gnome2/include/glib-2.0/glib/gnode.h (define-function g_node_new (c-name "g_node_new") (is-constructor-of "GNode") (return-type "GNode*") (parameters '("gpointer" "data") ) ) (define-function g_node_destroy (c-name "g_node_destroy") (return-type "none") (parameters '("GNode*" "root") ) ) (define-function g_node_unlink (c-name "g_node_unlink") (return-type "none") (parameters '("GNode*" "node") ) ) (define-function g_node_copy_deep (c-name "g_node_copy_deep") (return-type "GNode*") (parameters '("GNode*" "node") '("GCopyFunc" "copy_func") '("gpointer" "data") ) ) (define-function g_node_copy (c-name "g_node_copy") (return-type "GNode*") (parameters '("GNode*" "node") ) ) (define-function g_node_insert (c-name "g_node_insert") (return-type "GNode*") (parameters '("GNode*" "parent") '("gint" "position") '("GNode*" "node") ) ) (define-function g_node_insert_before (c-name "g_node_insert_before") (return-type "GNode*") (parameters '("GNode*" "parent") '("GNode*" "sibling") '("GNode*" "node") ) ) (define-function g_node_insert_after (c-name "g_node_insert_after") (return-type "GNode*") (parameters '("GNode*" "parent") '("GNode*" "sibling") '("GNode*" "node") ) ) (define-function g_node_prepend (c-name "g_node_prepend") (return-type "GNode*") (parameters '("GNode*" "parent") '("GNode*" "node") ) ) (define-function g_node_n_nodes (c-name "g_node_n_nodes") (return-type "guint") (parameters '("GNode*" "root") '("GTraverseFlags" "flags") ) ) (define-function g_node_get_root (c-name "g_node_get_root") (return-type "GNode*") (parameters '("GNode*" "node") ) ) (define-function g_node_is_ancestor (c-name "g_node_is_ancestor") (return-type "gboolean") (parameters '("GNode*" "node") '("GNode*" "descendant") ) ) (define-function g_node_depth (c-name "g_node_depth") (return-type "guint") (parameters '("GNode*" "node") ) ) (define-function g_node_find (c-name "g_node_find") (return-type "GNode*") (parameters '("GNode*" "root") '("GTraverseType" "order") '("GTraverseFlags" "flags") '("gpointer" "data") ) ) (define-function g_node_traverse (c-name "g_node_traverse") (return-type "none") (parameters '("GNode*" "root") '("GTraverseType" "order") '("GTraverseFlags" "flags") '("gint" "max_depth") '("GNodeTraverseFunc" "func") '("gpointer" "data") ) ) (define-function g_node_max_height (c-name "g_node_max_height") (return-type "guint") (parameters '("GNode*" "root") ) ) (define-function g_node_children_foreach (c-name "g_node_children_foreach") (return-type "none") (parameters '("GNode*" "node") '("GTraverseFlags" "flags") '("GNodeForeachFunc" "func") '("gpointer" "data") ) ) (define-function g_node_reverse_children (c-name "g_node_reverse_children") (return-type "none") (parameters '("GNode*" "node") ) ) (define-function g_node_n_children (c-name "g_node_n_children") (return-type "guint") (parameters '("GNode*" "node") ) ) (define-function g_node_nth_child (c-name "g_node_nth_child") (return-type "GNode*") (parameters '("GNode*" "node") '("guint" "n") ) ) (define-function g_node_last_child (c-name "g_node_last_child") (return-type "GNode*") (parameters '("GNode*" "node") ) ) (define-function g_node_find_child (c-name "g_node_find_child") (return-type "GNode*") (parameters '("GNode*" "node") '("GTraverseFlags" "flags") '("gpointer" "data") ) ) (define-function g_node_child_position (c-name "g_node_child_position") (return-type "gint") (parameters '("GNode*" "node") '("GNode*" "child") ) ) (define-function g_node_child_index (c-name "g_node_child_index") (return-type "gint") (parameters '("GNode*" "node") '("gpointer" "data") ) ) (define-function g_node_first_sibling (c-name "g_node_first_sibling") (return-type "GNode*") (parameters '("GNode*" "node") ) ) (define-function g_node_last_sibling (c-name "g_node_last_sibling") (return-type "GNode*") (parameters '("GNode*" "node") ) ) (define-function g_node_push_allocator (c-name "g_node_push_allocator") (return-type "none") (parameters '("gpointer" "dummy") ) ) (define-function g_node_pop_allocator (c-name "g_node_pop_allocator") (return-type "none") ) ;; From /opt/gnome2/include/glib-2.0/glib/goption.h (define-function g_option_error_quark (c-name "g_option_error_quark") (return-type "GQuark") ) (define-function g_option_context_new (c-name "g_option_context_new") (is-constructor-of "GOptionContext") (return-type "GOptionContext*") (parameters '("const-gchar*" "parameter_string") ) ) (define-function g_option_context_set_summary (c-name "g_option_context_set_summary") (return-type "none") (parameters '("GOptionContext*" "context") '("const-gchar*" "summary") ) ) (define-function g_option_context_get_summary (c-name "g_option_context_get_summary") (return-type "const-gchar*") (parameters '("GOptionContext*" "context") ) ) (define-function g_option_context_set_description (c-name "g_option_context_set_description") (return-type "none") (parameters '("GOptionContext*" "context") '("const-gchar*" "description") ) ) (define-function g_option_context_get_description (c-name "g_option_context_get_description") (return-type "const-gchar*") (parameters '("GOptionContext*" "context") ) ) (define-function g_option_context_free (c-name "g_option_context_free") (return-type "none") (parameters '("GOptionContext*" "context") ) ) (define-function g_option_context_set_help_enabled (c-name "g_option_context_set_help_enabled") (return-type "none") (parameters '("GOptionContext*" "context") '("gboolean" "help_enabled") ) ) (define-function g_option_context_get_help_enabled (c-name "g_option_context_get_help_enabled") (return-type "gboolean") (parameters '("GOptionContext*" "context") ) ) (define-function g_option_context_set_ignore_unknown_options (c-name "g_option_context_set_ignore_unknown_options") (return-type "none") (parameters '("GOptionContext*" "context") '("gboolean" "ignore_unknown") ) ) (define-function g_option_context_get_ignore_unknown_options (c-name "g_option_context_get_ignore_unknown_options") (return-type "gboolean") (parameters '("GOptionContext*" "context") ) ) (define-function g_option_context_add_main_entries (c-name "g_option_context_add_main_entries") (return-type "none") (parameters '("GOptionContext*" "context") '("const-GOptionEntry*" "entries") '("const-gchar*" "translation_domain") ) ) (define-function g_option_context_parse (c-name "g_option_context_parse") (return-type "gboolean") (parameters '("GOptionContext*" "context") '("gint*" "argc") '("gchar***" "argv") '("GError**" "error") ) ) (define-function g_option_context_set_translate_func (c-name "g_option_context_set_translate_func") (return-type "none") (parameters '("GOptionContext*" "context") '("GTranslateFunc" "func") '("gpointer" "data") '("GDestroyNotify" "destroy_notify") ) ) (define-function g_option_context_set_translation_domain (c-name "g_option_context_set_translation_domain") (return-type "none") (parameters '("GOptionContext*" "context") '("const-gchar*" "domain") ) ) (define-function g_option_context_add_group (c-name "g_option_context_add_group") (return-type "none") (parameters '("GOptionContext*" "context") '("GOptionGroup*" "group") ) ) (define-function g_option_context_set_main_group (c-name "g_option_context_set_main_group") (return-type "none") (parameters '("GOptionContext*" "context") '("GOptionGroup*" "group") ) ) (define-function g_option_context_get_main_group (c-name "g_option_context_get_main_group") (return-type "GOptionGroup*") (parameters '("GOptionContext*" "context") ) ) (define-function g_option_group_new (c-name "g_option_group_new") (is-constructor-of "GOptionGroup") (return-type "GOptionGroup*") (parameters '("const-gchar*" "name") '("const-gchar*" "description") '("const-gchar*" "help_description") '("gpointer" "user_data") '("GDestroyNotify" "destroy") ) ) (define-function g_option_group_set_parse_hooks (c-name "g_option_group_set_parse_hooks") (return-type "none") (parameters '("GOptionGroup*" "group") '("GOptionParseFunc" "pre_parse_func") '("GOptionParseFunc" "post_parse_func") ) ) (define-function g_option_group_set_error_hook (c-name "g_option_group_set_error_hook") (return-type "none") (parameters '("GOptionGroup*" "group") '("GOptionErrorFunc" "error_func") ) ) (define-function g_option_group_free (c-name "g_option_group_free") (return-type "none") (parameters '("GOptionGroup*" "group") ) ) (define-function g_option_group_add_entries (c-name "g_option_group_add_entries") (return-type "none") (parameters '("GOptionGroup*" "group") '("const-GOptionEntry*" "entries") ) ) (define-function g_option_group_set_translate_func (c-name "g_option_group_set_translate_func") (return-type "none") (parameters '("GOptionGroup*" "group") '("GTranslateFunc" "func") '("gpointer" "data") '("GDestroyNotify" "destroy_notify") ) ) (define-function g_option_group_set_translation_domain (c-name "g_option_group_set_translation_domain") (return-type "none") (parameters '("GOptionGroup*" "group") '("const-gchar*" "domain") ) ) ;; From /opt/gnome2/include/glib-2.0/glib/gpattern.h (define-function g_pattern_spec_new (c-name "g_pattern_spec_new") (is-constructor-of "GPatternSpec") (return-type "GPatternSpec*") (parameters '("const-gchar*" "pattern") ) ) (define-function g_pattern_spec_free (c-name "g_pattern_spec_free") (return-type "none") (parameters '("GPatternSpec*" "pspec") ) ) (define-function g_pattern_spec_equal (c-name "g_pattern_spec_equal") (return-type "gboolean") (parameters '("GPatternSpec*" "pspec1") '("GPatternSpec*" "pspec2") ) ) (define-function g_pattern_match (c-name "g_pattern_match") (return-type "gboolean") (parameters '("GPatternSpec*" "pspec") '("guint" "string_length") '("const-gchar*" "string") '("const-gchar*" "string_reversed") ) ) (define-function g_pattern_match_string (c-name "g_pattern_match_string") (return-type "gboolean") (parameters '("GPatternSpec*" "pspec") '("const-gchar*" "string") ) ) (define-function g_pattern_match_simple (c-name "g_pattern_match_simple") (return-type "gboolean") (parameters '("const-gchar*" "pattern") '("const-gchar*" "string") ) ) ;; From /opt/gnome2/include/glib-2.0/glib/gprimes.h (define-function g_spaced_primes_closest (c-name "g_spaced_primes_closest") (return-type "guint") (parameters '("guint" "num") ) ) ;; From /opt/gnome2/include/glib-2.0/glib/gprintf.h (define-function g_printf (c-name "g_printf") (return-type "gint") (parameters '("gchar-const*" "format") ) (varargs #t) ) (define-function g_fprintf (c-name "g_fprintf") (return-type "gint") (parameters '("FILE*" "file") '("gchar-const*" "format") ) (varargs #t) ) (define-function g_sprintf (c-name "g_sprintf") (return-type "gint") (parameters '("gchar*" "string") '("gchar-const*" "format") ) (varargs #t) ) (define-function g_vprintf (c-name "g_vprintf") (return-type "gint") (parameters '("gchar-const*" "format") '("va_list" "args") ) ) (define-function g_vfprintf (c-name "g_vfprintf") (return-type "gint") (parameters '("FILE*" "file") '("gchar-const*" "format") '("va_list" "args") ) ) (define-function g_vsprintf (c-name "g_vsprintf") (return-type "gint") (parameters '("gchar*" "string") '("gchar-const*" "format") '("va_list" "args") ) ) (define-function g_vasprintf (c-name "g_vasprintf") (return-type "gint") (parameters '("gchar**" "string") '("gchar-const*" "format") '("va_list" "args") ) ) ;; From /opt/gnome2/include/glib-2.0/glib/gqsort.h (define-function g_qsort_with_data (c-name "g_qsort_with_data") (return-type "none") (parameters '("gconstpointer" "pbase") '("gint" "total_elems") '("gsize" "size") '("GCompareDataFunc" "compare_func") '("gpointer" "user_data") ) ) ;; From /opt/gnome2/include/glib-2.0/glib/gquark.h (define-function g_quark_try_string (c-name "g_quark_try_string") (return-type "GQuark") (parameters '("const-gchar*" "string") ) ) (define-function g_quark_from_static_string (c-name "g_quark_from_static_string") (return-type "GQuark") (parameters '("const-gchar*" "string") ) ) (define-function g_quark_from_string (c-name "g_quark_from_string") (return-type "GQuark") (parameters '("const-gchar*" "string") ) ) (define-function g_quark_to_string (c-name "g_quark_to_string") (return-type "const-gchar*") (parameters '("GQuark" "quark") ) ) (define-function g_intern_string (c-name "g_intern_string") (return-type "const-gchar*") (parameters '("const-gchar*" "string") ) ) (define-function g_intern_static_string (c-name "g_intern_static_string") (return-type "const-gchar*") (parameters '("const-gchar*" "string") ) ) ;; From /opt/gnome2/include/glib-2.0/glib/gqueue.h (define-function g_queue_new (c-name "g_queue_new") (is-constructor-of "GQueue") (return-type "GQueue*") ) (define-function g_queue_free (c-name "g_queue_free") (return-type "none") (parameters '("GQueue*" "queue") ) ) (define-function g_queue_is_empty (c-name "g_queue_is_empty") (return-type "gboolean") (parameters '("GQueue*" "queue") ) ) (define-function g_queue_get_length (c-name "g_queue_get_length") (return-type "guint") (parameters '("GQueue*" "queue") ) ) (define-function g_queue_reverse (c-name "g_queue_reverse") (return-type "none") (parameters '("GQueue*" "queue") ) ) (define-function g_queue_copy (c-name "g_queue_copy") (return-type "GQueue*") (parameters '("GQueue*" "queue") ) ) (define-function g_queue_foreach (c-name "g_queue_foreach") (return-type "none") (parameters '("GQueue*" "queue") '("GFunc" "func") '("gpointer" "user_data") ) ) (define-function g_queue_find (c-name "g_queue_find") (return-type "GList*") (parameters '("GQueue*" "queue") '("gconstpointer" "data") ) ) (define-function g_queue_find_custom (c-name "g_queue_find_custom") (return-type "GList*") (parameters '("GQueue*" "queue") '("gconstpointer" "data") '("GCompareFunc" "func") ) ) (define-function g_queue_sort (c-name "g_queue_sort") (return-type "none") (parameters '("GQueue*" "queue") '("GCompareDataFunc" "compare_func") '("gpointer" "user_data") ) ) (define-function g_queue_push_head (c-name "g_queue_push_head") (return-type "none") (parameters '("GQueue*" "queue") '("gpointer" "data") ) ) (define-function g_queue_push_tail (c-name "g_queue_push_tail") (return-type "none") (parameters '("GQueue*" "queue") '("gpointer" "data") ) ) (define-function g_queue_push_nth (c-name "g_queue_push_nth") (return-type "none") (parameters '("GQueue*" "queue") '("gpointer" "data") '("gint" "n") ) ) (define-function g_queue_pop_head (c-name "g_queue_pop_head") (return-type "gpointer") (parameters '("GQueue*" "queue") ) ) (define-function g_queue_pop_tail (c-name "g_queue_pop_tail") (return-type "gpointer") (parameters '("GQueue*" "queue") ) ) (define-function g_queue_pop_nth (c-name "g_queue_pop_nth") (return-type "gpointer") (parameters '("GQueue*" "queue") '("guint" "n") ) ) (define-function g_queue_peek_head (c-name "g_queue_peek_head") (return-type "gpointer") (parameters '("GQueue*" "queue") ) ) (define-function g_queue_peek_tail (c-name "g_queue_peek_tail") (return-type "gpointer") (parameters '("GQueue*" "queue") ) ) (define-function g_queue_peek_nth (c-name "g_queue_peek_nth") (return-type "gpointer") (parameters '("GQueue*" "queue") '("guint" "n") ) ) (define-function g_queue_index (c-name "g_queue_index") (return-type "gint") (parameters '("GQueue*" "queue") '("gconstpointer" "data") ) ) (define-function g_queue_remove (c-name "g_queue_remove") (return-type "none") (parameters '("GQueue*" "queue") '("gconstpointer" "data") ) ) (define-function g_queue_remove_all (c-name "g_queue_remove_all") (return-type "none") (parameters '("GQueue*" "queue") '("gconstpointer" "data") ) ) (define-function g_queue_insert_before (c-name "g_queue_insert_before") (return-type "none") (parameters '("GQueue*" "queue") '("GList*" "sibling") '("gpointer" "data") ) ) (define-function g_queue_insert_after (c-name "g_queue_insert_after") (return-type "none") (parameters '("GQueue*" "queue") '("GList*" "sibling") '("gpointer" "data") ) ) (define-function g_queue_insert_sorted (c-name "g_queue_insert_sorted") (return-type "none") (parameters '("GQueue*" "queue") '("gpointer" "data") '("GCompareDataFunc" "func") '("gpointer" "user_data") ) ) (define-function g_queue_push_head_link (c-name "g_queue_push_head_link") (return-type "none") (parameters '("GQueue*" "queue") '("GList*" "link_") ) ) (define-function g_queue_push_tail_link (c-name "g_queue_push_tail_link") (return-type "none") (parameters '("GQueue*" "queue") '("GList*" "link_") ) ) (define-function g_queue_push_nth_link (c-name "g_queue_push_nth_link") (return-type "none") (parameters '("GQueue*" "queue") '("gint" "n") '("GList*" "link_") ) ) (define-function g_queue_pop_head_link (c-name "g_queue_pop_head_link") (return-type "GList*") (parameters '("GQueue*" "queue") ) ) (define-function g_queue_pop_tail_link (c-name "g_queue_pop_tail_link") (return-type "GList*") (parameters '("GQueue*" "queue") ) ) (define-function g_queue_pop_nth_link (c-name "g_queue_pop_nth_link") (return-type "GList*") (parameters '("GQueue*" "queue") '("guint" "n") ) ) (define-function g_queue_peek_head_link (c-name "g_queue_peek_head_link") (return-type "GList*") (parameters '("GQueue*" "queue") ) ) (define-function g_queue_peek_tail_link (c-name "g_queue_peek_tail_link") (return-type "GList*") (parameters '("GQueue*" "queue") ) ) (define-function g_queue_peek_nth_link (c-name "g_queue_peek_nth_link") (return-type "GList*") (parameters '("GQueue*" "queue") '("guint" "n") ) ) (define-function g_queue_link_index (c-name "g_queue_link_index") (return-type "gint") (parameters '("GQueue*" "queue") '("GList*" "link_") ) ) (define-function g_queue_unlink (c-name "g_queue_unlink") (return-type "none") (parameters '("GQueue*" "queue") '("GList*" "link_") ) ) (define-function g_queue_delete_link (c-name "g_queue_delete_link") (return-type "none") (parameters '("GQueue*" "queue") '("GList*" "link_") ) ) ;; From /opt/gnome2/include/glib-2.0/glib/grand.h (define-function g_rand_new_with_seed (c-name "g_rand_new_with_seed") (return-type "GRand*") (parameters '("guint32" "seed") ) ) (define-function g_rand_new_with_seed_array (c-name "g_rand_new_with_seed_array") (return-type "GRand*") (parameters '("const-guint32*" "seed") '("guint" "seed_length") ) ) (define-function g_rand_new (c-name "g_rand_new") (is-constructor-of "GRand") (return-type "GRand*") ) (define-function g_rand_free (c-name "g_rand_free") (return-type "none") (parameters '("GRand*" "rand_") ) ) (define-function g_rand_copy (c-name "g_rand_copy") (return-type "GRand*") (parameters '("GRand*" "rand_") ) ) (define-function g_rand_set_seed (c-name "g_rand_set_seed") (return-type "none") (parameters '("GRand*" "rand_") '("guint32" "seed") ) ) (define-function g_rand_set_seed_array (c-name "g_rand_set_seed_array") (return-type "none") (parameters '("GRand*" "rand_") '("const-guint32*" "seed") '("guint" "seed_length") ) ) (define-function g_rand_int (c-name "g_rand_int") (return-type "guint32") (parameters '("GRand*" "rand_") ) ) (define-function g_rand_int_range (c-name "g_rand_int_range") (return-type "gint32") (parameters '("GRand*" "rand_") '("gint32" "begin") '("gint32" "end") ) ) (define-function g_rand_double (c-name "g_rand_double") (return-type "gdouble") (parameters '("GRand*" "rand_") ) ) (define-function g_rand_double_range (c-name "g_rand_double_range") (return-type "gdouble") (parameters '("GRand*" "rand_") '("gdouble" "begin") '("gdouble" "end") ) ) (define-function g_random_set_seed (c-name "g_random_set_seed") (return-type "none") (parameters '("guint32" "seed") ) ) (define-function g_random_int (c-name "g_random_int") (return-type "guint32") ) (define-function g_random_int_range (c-name "g_random_int_range") (return-type "gint32") (parameters '("gint32" "begin") '("gint32" "end") ) ) (define-function g_random_double (c-name "g_random_double") (return-type "gdouble") ) (define-function g_random_double_range (c-name "g_random_double_range") (return-type "gdouble") (parameters '("gdouble" "begin") '("gdouble" "end") ) ) ;; From /opt/gnome2/include/glib-2.0/glib/grel.h (define-function g_relation_new (c-name "g_relation_new") (is-constructor-of "GRelation") (return-type "GRelation*") (parameters '("gint" "fields") ) ) (define-function g_relation_destroy (c-name "g_relation_destroy") (return-type "none") (parameters '("GRelation*" "relation") ) ) (define-function g_relation_index (c-name "g_relation_index") (return-type "none") (parameters '("GRelation*" "relation") '("gint" "field") '("GHashFunc" "hash_func") '("GEqualFunc" "key_equal_func") ) ) (define-function g_relation_insert (c-name "g_relation_insert") (return-type "none") (parameters '("GRelation*" "relation") ) (varargs #t) ) (define-function g_relation_delete (c-name "g_relation_delete") (return-type "gint") (parameters '("GRelation*" "relation") '("gconstpointer" "key") '("gint" "field") ) ) (define-function g_relation_select (c-name "g_relation_select") (return-type "GTuples*") (parameters '("GRelation*" "relation") '("gconstpointer" "key") '("gint" "field") ) ) (define-function g_relation_count (c-name "g_relation_count") (return-type "gint") (parameters '("GRelation*" "relation") '("gconstpointer" "key") '("gint" "field") ) ) (define-function g_relation_exists (c-name "g_relation_exists") (return-type "gboolean") (parameters '("GRelation*" "relation") ) (varargs #t) ) (define-function g_relation_print (c-name "g_relation_print") (return-type "none") (parameters '("GRelation*" "relation") ) ) (define-function g_tuples_destroy (c-name "g_tuples_destroy") (return-type "none") (parameters '("GTuples*" "tuples") ) ) (define-function g_tuples_index (c-name "g_tuples_index") (return-type "gpointer") (parameters '("GTuples*" "tuples") '("gint" "index_") '("gint" "field") ) ) ;; From /opt/gnome2/include/glib-2.0/glib/gscanner.h (define-function g_scanner_new (c-name "g_scanner_new") (is-constructor-of "GScanner") (return-type "GScanner*") (parameters '("const-GScannerConfig*" "config_templ") ) ) (define-function g_scanner_destroy (c-name "g_scanner_destroy") (return-type "none") (parameters '("GScanner*" "scanner") ) ) (define-function g_scanner_input_file (c-name "g_scanner_input_file") (return-type "none") (parameters '("GScanner*" "scanner") '("gint" "input_fd") ) ) (define-function g_scanner_sync_file_offset (c-name "g_scanner_sync_file_offset") (return-type "none") (parameters '("GScanner*" "scanner") ) ) (define-function g_scanner_input_text (c-name "g_scanner_input_text") (return-type "none") (parameters '("GScanner*" "scanner") '("const-gchar*" "text") '("guint" "text_len") ) ) (define-function g_scanner_get_next_token (c-name "g_scanner_get_next_token") (return-type "GTokenType") (parameters '("GScanner*" "scanner") ) ) (define-function g_scanner_peek_next_token (c-name "g_scanner_peek_next_token") (return-type "GTokenType") (parameters '("GScanner*" "scanner") ) ) (define-function g_scanner_cur_token (c-name "g_scanner_cur_token") (return-type "GTokenType") (parameters '("GScanner*" "scanner") ) ) (define-function g_scanner_cur_value (c-name "g_scanner_cur_value") (return-type "GTokenValue") (parameters '("GScanner*" "scanner") ) ) (define-function g_scanner_cur_line (c-name "g_scanner_cur_line") (return-type "guint") (parameters '("GScanner*" "scanner") ) ) (define-function g_scanner_cur_position (c-name "g_scanner_cur_position") (return-type "guint") (parameters '("GScanner*" "scanner") ) ) (define-function g_scanner_eof (c-name "g_scanner_eof") (return-type "gboolean") (parameters '("GScanner*" "scanner") ) ) (define-function g_scanner_set_scope (c-name "g_scanner_set_scope") (return-type "guint") (parameters '("GScanner*" "scanner") '("guint" "scope_id") ) ) (define-function g_scanner_scope_add_symbol (c-name "g_scanner_scope_add_symbol") (return-type "none") (parameters '("GScanner*" "scanner") '("guint" "scope_id") '("const-gchar*" "symbol") '("gpointer" "value") ) ) (define-function g_scanner_scope_remove_symbol (c-name "g_scanner_scope_remove_symbol") (return-type "none") (parameters '("GScanner*" "scanner") '("guint" "scope_id") '("const-gchar*" "symbol") ) ) (define-function g_scanner_scope_lookup_symbol (c-name "g_scanner_scope_lookup_symbol") (return-type "gpointer") (parameters '("GScanner*" "scanner") '("guint" "scope_id") '("const-gchar*" "symbol") ) ) (define-function g_scanner_scope_foreach_symbol (c-name "g_scanner_scope_foreach_symbol") (return-type "none") (parameters '("GScanner*" "scanner") '("guint" "scope_id") '("GHFunc" "func") '("gpointer" "user_data") ) ) (define-function g_scanner_lookup_symbol (c-name "g_scanner_lookup_symbol") (return-type "gpointer") (parameters '("GScanner*" "scanner") '("const-gchar*" "symbol") ) ) (define-function g_scanner_unexp_token (c-name "g_scanner_unexp_token") (return-type "none") (parameters '("GScanner*" "scanner") '("GTokenType" "expected_token") '("const-gchar*" "identifier_spec") '("const-gchar*" "symbol_spec") '("const-gchar*" "symbol_name") '("const-gchar*" "message") '("gint" "is_error") ) ) (define-function g_scanner_error (c-name "g_scanner_error") (return-type "none") (parameters '("GScanner*" "scanner") '("const-gchar*" "format") ) (varargs #t) ) (define-function g_scanner_warn (c-name "g_scanner_warn") (return-type "none") (parameters '("GScanner*" "scanner") '("const-gchar*" "format") ) (varargs #t) ) ;; From /opt/gnome2/include/glib-2.0/glib/gshell.h (define-function g_shell_error_quark (c-name "g_shell_error_quark") (return-type "GQuark") ) (define-function g_shell_quote (c-name "g_shell_quote") (return-type "gchar*") (parameters '("const-gchar*" "unquoted_string") ) ) (define-function g_shell_unquote (c-name "g_shell_unquote") (return-type "gchar*") (parameters '("const-gchar*" "quoted_string") '("GError**" "error") ) ) (define-function g_shell_parse_argv (c-name "g_shell_parse_argv") (return-type "gboolean") (parameters '("const-gchar*" "command_line") '("gint*" "argcp") '("gchar***" "argvp") '("GError**" "error") ) ) ;; From /opt/gnome2/include/glib-2.0/glib/gslice.h (define-function g_slice_alloc (c-name "g_slice_alloc") (return-type "gpointer") (parameters '("gsize" "block_size") ) ) (define-function g_slice_alloc0 (c-name "g_slice_alloc0") (return-type "gpointer") (parameters '("gsize" "block_size") ) ) (define-function g_slice_free1 (c-name "g_slice_free1") (return-type "none") (parameters '("gsize" "block_size") '("gpointer" "mem_block") ) ) (define-function g_slice_free_chain_with_offset (c-name "g_slice_free_chain_with_offset") (return-type "none") (parameters '("gsize" "block_size") '("gpointer" "mem_chain") '("gsize" "next_offset") ) ) (define-function g_slice_set_config (c-name "g_slice_set_config") (return-type "none") (parameters '("GSliceConfig" "ckey") '("gint64" "value") ) ) (define-function g_slice_get_config (c-name "g_slice_get_config") (return-type "gint64") (parameters '("GSliceConfig" "ckey") ) ) (define-function g_slice_get_config_state (c-name "g_slice_get_config_state") (return-type "gint64*") (parameters '("GSliceConfig" "ckey") '("gint64" "address") '("guint*" "n_values") ) ) ;; From /opt/gnome2/include/glib-2.0/glib/gslist.h (define-function g_slist_alloc (c-name "g_slist_alloc") (return-type "GSList*") ) (define-function g_slist_free (c-name "g_slist_free") (return-type "none") (parameters '("GSList*" "list") ) ) (define-function g_slist_free_1 (c-name "g_slist_free_1") (return-type "none") (parameters '("GSList*" "list") ) ) (define-function g_slist_append (c-name "g_slist_append") (return-type "GSList*") (parameters '("GSList*" "list") '("gpointer" "data") ) ) (define-function g_slist_prepend (c-name "g_slist_prepend") (return-type "GSList*") (parameters '("GSList*" "list") '("gpointer" "data") ) ) (define-function g_slist_insert (c-name "g_slist_insert") (return-type "GSList*") (parameters '("GSList*" "list") '("gpointer" "data") '("gint" "position") ) ) (define-function g_slist_insert_sorted (c-name "g_slist_insert_sorted") (return-type "GSList*") (parameters '("GSList*" "list") '("gpointer" "data") '("GCompareFunc" "func") ) ) (define-function g_slist_insert_sorted_with_data (c-name "g_slist_insert_sorted_with_data") (return-type "GSList*") (parameters '("GSList*" "list") '("gpointer" "data") '("GCompareDataFunc" "func") '("gpointer" "user_data") ) ) (define-function g_slist_insert_before (c-name "g_slist_insert_before") (return-type "GSList*") (parameters '("GSList*" "slist") '("GSList*" "sibling") '("gpointer" "data") ) ) (define-function g_slist_concat (c-name "g_slist_concat") (return-type "GSList*") (parameters '("GSList*" "list1") '("GSList*" "list2") ) ) (define-function g_slist_remove (c-name "g_slist_remove") (return-type "GSList*") (parameters '("GSList*" "list") '("gconstpointer" "data") ) ) (define-function g_slist_remove_all (c-name "g_slist_remove_all") (return-type "GSList*") (parameters '("GSList*" "list") '("gconstpointer" "data") ) ) (define-function g_slist_remove_link (c-name "g_slist_remove_link") (return-type "GSList*") (parameters '("GSList*" "list") '("GSList*" "link_") ) ) (define-function g_slist_delete_link (c-name "g_slist_delete_link") (return-type "GSList*") (parameters '("GSList*" "list") '("GSList*" "link_") ) ) (define-function g_slist_reverse (c-name "g_slist_reverse") (return-type "GSList*") (parameters '("GSList*" "list") ) ) (define-function g_slist_copy (c-name "g_slist_copy") (return-type "GSList*") (parameters '("GSList*" "list") ) ) (define-function g_slist_nth (c-name "g_slist_nth") (return-type "GSList*") (parameters '("GSList*" "list") '("guint" "n") ) ) (define-function g_slist_find (c-name "g_slist_find") (return-type "GSList*") (parameters '("GSList*" "list") '("gconstpointer" "data") ) ) (define-function g_slist_find_custom (c-name "g_slist_find_custom") (return-type "GSList*") (parameters '("GSList*" "list") '("gconstpointer" "data") '("GCompareFunc" "func") ) ) (define-function g_slist_position (c-name "g_slist_position") (return-type "gint") (parameters '("GSList*" "list") '("GSList*" "llink") ) ) (define-function g_slist_index (c-name "g_slist_index") (return-type "gint") (parameters '("GSList*" "list") '("gconstpointer" "data") ) ) (define-function g_slist_last (c-name "g_slist_last") (return-type "GSList*") (parameters '("GSList*" "list") ) ) (define-function g_slist_length (c-name "g_slist_length") (return-type "guint") (parameters '("GSList*" "list") ) ) (define-function g_slist_foreach (c-name "g_slist_foreach") (return-type "none") (parameters '("GSList*" "list") '("GFunc" "func") '("gpointer" "user_data") ) ) (define-function g_slist_sort (c-name "g_slist_sort") (return-type "GSList*") (parameters '("GSList*" "list") '("GCompareFunc" "compare_func") ) ) (define-function g_slist_sort_with_data (c-name "g_slist_sort_with_data") (return-type "GSList*") (parameters '("GSList*" "list") '("GCompareDataFunc" "compare_func") '("gpointer" "user_data") ) ) (define-function g_slist_nth_data (c-name "g_slist_nth_data") (return-type "gpointer") (parameters '("GSList*" "list") '("guint" "n") ) ) (define-function g_slist_push_allocator (c-name "g_slist_push_allocator") (return-type "none") (parameters '("gpointer" "dummy") ) ) (define-function g_slist_pop_allocator (c-name "g_slist_pop_allocator") (return-type "none") ) ;; From /opt/gnome2/include/glib-2.0/glib/gspawn.h (define-function g_spawn_error_quark (c-name "g_spawn_error_quark") (return-type "GQuark") ) (define-function g_spawn_async (c-name "g_spawn_async") (return-type "gboolean") (parameters '("const-gchar*" "working_directory") '("gchar**" "argv") '("gchar**" "envp") '("GSpawnFlags" "flags") '("GSpawnChildSetupFunc" "child_setup") '("gpointer" "user_data") '("GPid*" "child_pid") '("GError**" "error") ) ) (define-function g_spawn_async_with_pipes (c-name "g_spawn_async_with_pipes") (return-type "gboolean") (parameters '("const-gchar*" "working_directory") '("gchar**" "argv") '("gchar**" "envp") '("GSpawnFlags" "flags") '("GSpawnChildSetupFunc" "child_setup") '("gpointer" "user_data") '("GPid*" "child_pid") '("gint*" "standard_input") '("gint*" "standard_output") '("gint*" "standard_error") '("GError**" "error") ) ) (define-function g_spawn_sync (c-name "g_spawn_sync") (return-type "gboolean") (parameters '("const-gchar*" "working_directory") '("gchar**" "argv") '("gchar**" "envp") '("GSpawnFlags" "flags") '("GSpawnChildSetupFunc" "child_setup") '("gpointer" "user_data") '("gchar**" "standard_output") '("gchar**" "standard_error") '("gint*" "exit_status") '("GError**" "error") ) ) (define-function g_spawn_command_line_sync (c-name "g_spawn_command_line_sync") (return-type "gboolean") (parameters '("const-gchar*" "command_line") '("gchar**" "standard_output") '("gchar**" "standard_error") '("gint*" "exit_status") '("GError**" "error") ) ) (define-function g_spawn_command_line_async (c-name "g_spawn_command_line_async") (return-type "gboolean") (parameters '("const-gchar*" "command_line") '("GError**" "error") ) ) (define-function g_spawn_close_pid (c-name "g_spawn_close_pid") (return-type "none") (parameters '("GPid" "pid") ) ) ;; From /opt/gnome2/include/glib-2.0/glib/gstdio.h (define-function g_access (c-name "g_access") (return-type "int") (parameters '("const-gchar*" "filename") '("int" "mode") ) ) (define-function g_chdir (c-name "g_chdir") (return-type "int") (parameters '("const-gchar*" "path") ) ) (define-function g_unlink (c-name "g_unlink") (return-type "int") (parameters '("const-gchar*" "filename") ) ) (define-function g_rmdir (c-name "g_rmdir") (return-type "int") (parameters '("const-gchar*" "filename") ) ) (define-function g_access (c-name "g_access") (return-type "int") (parameters '("const-gchar*" "filename") '("int" "mode") ) ) (define-function g_chmod (c-name "g_chmod") (return-type "int") (parameters '("const-gchar*" "filename") '("int" "mode") ) ) (define-function g_open (c-name "g_open") (return-type "int") (parameters '("const-gchar*" "filename") '("int" "flags") '("int" "mode") ) ) (define-function g_creat (c-name "g_creat") (return-type "int") (parameters '("const-gchar*" "filename") '("int" "mode") ) ) (define-function g_rename (c-name "g_rename") (return-type "int") (parameters '("const-gchar*" "oldfilename") '("const-gchar*" "newfilename") ) ) (define-function g_mkdir (c-name "g_mkdir") (return-type "int") (parameters '("const-gchar*" "filename") '("int" "mode") ) ) (define-function g_chdir (c-name "g_chdir") (return-type "int") (parameters '("const-gchar*" "path") ) ) (define-function g_stat (c-name "g_stat") (return-type "int") (parameters '("const-gchar*" "filename") '("struct-stat*" "buf") ) ) (define-function g_lstat (c-name "g_lstat") (return-type "int") (parameters '("const-gchar*" "filename") '("struct-stat*" "buf") ) ) (define-function g_unlink (c-name "g_unlink") (return-type "int") (parameters '("const-gchar*" "filename") ) ) (define-function g_remove (c-name "g_remove") (return-type "int") (parameters '("const-gchar*" "filename") ) ) (define-function g_rmdir (c-name "g_rmdir") (return-type "int") (parameters '("const-gchar*" "filename") ) ) (define-function g_fopen (c-name "g_fopen") (return-type "FILE*") (parameters '("const-gchar*" "filename") '("const-gchar*" "mode") ) ) (define-function g_freopen (c-name "g_freopen") (return-type "FILE*") (parameters '("const-gchar*" "filename") '("const-gchar*" "mode") '("FILE*" "stream") ) ) ;; From /opt/gnome2/include/glib-2.0/glib/gstrfuncs.h (define-function g_ascii_tolower (c-name "g_ascii_tolower") (return-type "gchar") (parameters '("gchar" "c") ) ) (define-function g_ascii_toupper (c-name "g_ascii_toupper") (return-type "gchar") (parameters '("gchar" "c") ) ) (define-function g_ascii_digit_value (c-name "g_ascii_digit_value") (return-type "gint") (parameters '("gchar" "c") ) ) (define-function g_ascii_xdigit_value (c-name "g_ascii_xdigit_value") (return-type "gint") (parameters '("gchar" "c") ) ) (define-function g_strdelimit (c-name "g_strdelimit") (return-type "gchar*") (parameters '("gchar*" "string") '("const-gchar*" "delimiters") '("gchar" "new_delimiter") ) ) (define-function g_strcanon (c-name "g_strcanon") (return-type "gchar*") (parameters '("gchar*" "string") '("const-gchar*" "valid_chars") '("gchar" "substitutor") ) ) (define-function g_strerror (c-name "g_strerror") (return-type "const-gchar*") (parameters '("gint" "errnum") ) ) (define-function g_strsignal (c-name "g_strsignal") (return-type "const-gchar*") (parameters '("gint" "signum") ) ) (define-function g_strreverse (c-name "g_strreverse") (return-type "gchar*") (parameters '("gchar*" "string") ) ) (define-function g_strlcpy (c-name "g_strlcpy") (return-type "gsize") (parameters '("gchar*" "dest") '("const-gchar*" "src") '("gsize" "dest_size") ) ) (define-function g_strlcat (c-name "g_strlcat") (return-type "gsize") (parameters '("gchar*" "dest") '("const-gchar*" "src") '("gsize" "dest_size") ) ) (define-function g_strstr_len (c-name "g_strstr_len") (return-type "gchar*") (parameters '("const-gchar*" "haystack") '("gssize" "haystack_len") '("const-gchar*" "needle") ) ) (define-function g_strrstr (c-name "g_strrstr") (return-type "gchar*") (parameters '("const-gchar*" "haystack") '("const-gchar*" "needle") ) ) (define-function g_strrstr_len (c-name "g_strrstr_len") (return-type "gchar*") (parameters '("const-gchar*" "haystack") '("gssize" "haystack_len") '("const-gchar*" "needle") ) ) (define-function g_str_has_suffix (c-name "g_str_has_suffix") (return-type "gboolean") (parameters '("const-gchar*" "str") '("const-gchar*" "suffix") ) ) (define-function g_str_has_prefix (c-name "g_str_has_prefix") (return-type "gboolean") (parameters '("const-gchar*" "str") '("const-gchar*" "prefix") ) ) (define-function g_strtod (c-name "g_strtod") (return-type "gdouble") (parameters '("const-gchar*" "nptr") '("gchar**" "endptr") ) ) (define-function g_ascii_strtod (c-name "g_ascii_strtod") (return-type "gdouble") (parameters '("const-gchar*" "nptr") '("gchar**" "endptr") ) ) (define-function g_ascii_strtoull (c-name "g_ascii_strtoull") (return-type "guint64") (parameters '("const-gchar*" "nptr") '("gchar**" "endptr") '("guint" "base") ) ) (define-function g_ascii_strtoll (c-name "g_ascii_strtoll") (return-type "gint64") (parameters '("const-gchar*" "nptr") '("gchar**" "endptr") '("guint" "base") ) ) (define-function g_ascii_dtostr (c-name "g_ascii_dtostr") (return-type "gchar*") (parameters '("gchar*" "buffer") '("gint" "buf_len") '("gdouble" "d") ) ) (define-function g_ascii_formatd (c-name "g_ascii_formatd") (return-type "gchar*") (parameters '("gchar*" "buffer") '("gint" "buf_len") '("const-gchar*" "format") '("gdouble" "d") ) ) (define-function g_strchug (c-name "g_strchug") (return-type "gchar*") (parameters '("gchar*" "string") ) ) (define-function g_strchomp (c-name "g_strchomp") (return-type "gchar*") (parameters '("gchar*" "string") ) ) (define-function g_ascii_strcasecmp (c-name "g_ascii_strcasecmp") (return-type "gint") (parameters '("const-gchar*" "s1") '("const-gchar*" "s2") ) ) (define-function g_ascii_strncasecmp (c-name "g_ascii_strncasecmp") (return-type "gint") (parameters '("const-gchar*" "s1") '("const-gchar*" "s2") '("gsize" "n") ) ) (define-function g_ascii_strdown (c-name "g_ascii_strdown") (return-type "gchar*") (parameters '("const-gchar*" "str") '("gssize" "len") ) ) (define-function g_ascii_strup (c-name "g_ascii_strup") (return-type "gchar*") (parameters '("const-gchar*" "str") '("gssize" "len") ) ) (define-function g_strcasecmp (c-name "g_strcasecmp") (return-type "gint") (parameters '("const-gchar*" "s1") '("const-gchar*" "s2") ) ) (define-function g_strncasecmp (c-name "g_strncasecmp") (return-type "gint") (parameters '("const-gchar*" "s1") '("const-gchar*" "s2") '("guint" "n") ) ) (define-function g_strdown (c-name "g_strdown") (return-type "gchar*") (parameters '("gchar*" "string") ) ) (define-function g_strup (c-name "g_strup") (return-type "gchar*") (parameters '("gchar*" "string") ) ) (define-function g_strdup (c-name "g_strdup") (return-type "gchar*") (parameters '("const-gchar*" "str") ) ) (define-function g_strdup_printf (c-name "g_strdup_printf") (return-type "gchar*") (parameters '("const-gchar*" "format") ) (varargs #t) ) (define-function g_strdup_vprintf (c-name "g_strdup_vprintf") (return-type "gchar*") (parameters '("const-gchar*" "format") '("va_list" "args") ) ) (define-function g_strndup (c-name "g_strndup") (return-type "gchar*") (parameters '("const-gchar*" "str") '("gsize" "n") ) ) (define-function g_strnfill (c-name "g_strnfill") (return-type "gchar*") (parameters '("gsize" "length") '("gchar" "fill_char") ) ) (define-function g_strconcat (c-name "g_strconcat") (return-type "gchar*") (parameters '("const-gchar*" "string1") ) (varargs #t) ) (define-function g_strjoin (c-name "g_strjoin") (return-type "gchar*") (parameters '("const-gchar*" "separator") ) (varargs #t) ) (define-function g_strcompress (c-name "g_strcompress") (return-type "gchar*") (parameters '("const-gchar*" "source") ) ) (define-function g_strescape (c-name "g_strescape") (return-type "gchar*") (parameters '("const-gchar*" "source") '("const-gchar*" "exceptions") ) ) (define-function g_memdup (c-name "g_memdup") (return-type "gpointer") (parameters '("gconstpointer" "mem") '("guint" "byte_size") ) ) (define-function g_strsplit (c-name "g_strsplit") (return-type "gchar**") (parameters '("const-gchar*" "string") '("const-gchar*" "delimiter") '("gint" "max_tokens") ) ) (define-function g_strsplit_set (c-name "g_strsplit_set") (return-type "gchar**") (parameters '("const-gchar*" "string") '("const-gchar*" "delimiters") '("gint" "max_tokens") ) ) (define-function g_strjoinv (c-name "g_strjoinv") (return-type "gchar*") (parameters '("const-gchar*" "separator") '("gchar**" "str_array") ) ) (define-function g_strfreev (c-name "g_strfreev") (return-type "none") (parameters '("gchar**" "str_array") ) ) (define-function g_strdupv (c-name "g_strdupv") (return-type "gchar**") (parameters '("gchar**" "str_array") ) ) (define-function g_strv_length (c-name "g_strv_length") (return-type "guint") (parameters '("gchar**" "str_array") ) ) (define-function g_stpcpy (c-name "g_stpcpy") (return-type "gchar*") (parameters '("gchar*" "dest") '("const-char*" "src") ) ) (define-function g_strip_context (c-name "g_strip_context") (return-type "const-gchar*") (parameters '("const-gchar*" "msgid") '("const-gchar*" "msgval") ) ) ;; From /opt/gnome2/include/glib-2.0/glib/gstring.h (define-function g_string_chunk_new (c-name "g_string_chunk_new") (is-constructor-of "GStringChunk") (return-type "GStringChunk*") (parameters '("gsize" "size") ) ) (define-function g_string_chunk_free (c-name "g_string_chunk_free") (return-type "none") (parameters '("GStringChunk*" "chunk") ) ) (define-function g_string_chunk_insert (c-name "g_string_chunk_insert") (return-type "gchar*") (parameters '("GStringChunk*" "chunk") '("const-gchar*" "string") ) ) (define-function g_string_chunk_insert_len (c-name "g_string_chunk_insert_len") (return-type "gchar*") (parameters '("GStringChunk*" "chunk") '("const-gchar*" "string") '("gssize" "len") ) ) (define-function g_string_new (c-name "g_string_new") (is-constructor-of "GString") (return-type "GString*") (parameters '("const-gchar*" "init") ) ) (define-function g_string_new_len (c-name "g_string_new_len") (return-type "GString*") (parameters '("const-gchar*" "init") '("gssize" "len") ) ) (define-function g_string_sized_new (c-name "g_string_sized_new") (is-constructor-of "GStringSized") (return-type "GString*") (parameters '("gsize" "dfl_size") ) ) (define-function g_string_free (c-name "g_string_free") (return-type "gchar*") (parameters '("GString*" "string") '("gboolean" "free_segment") ) ) (define-function g_string_equal (c-name "g_string_equal") (return-type "gboolean") (parameters '("const-GString*" "v") '("const-GString*" "v2") ) ) (define-function g_string_hash (c-name "g_string_hash") (return-type "guint") (parameters '("const-GString*" "str") ) ) (define-function g_string_assign (c-name "g_string_assign") (return-type "GString*") (parameters '("GString*" "string") '("const-gchar*" "rval") ) ) (define-function g_string_truncate (c-name "g_string_truncate") (return-type "GString*") (parameters '("GString*" "string") '("gsize" "len") ) ) (define-function g_string_set_size (c-name "g_string_set_size") (return-type "GString*") (parameters '("GString*" "string") '("gsize" "len") ) ) (define-function g_string_insert_len (c-name "g_string_insert_len") (return-type "GString*") (parameters '("GString*" "string") '("gssize" "pos") '("const-gchar*" "val") '("gssize" "len") ) ) (define-function g_string_append (c-name "g_string_append") (return-type "GString*") (parameters '("GString*" "string") '("const-gchar*" "val") ) ) (define-function g_string_append_len (c-name "g_string_append_len") (return-type "GString*") (parameters '("GString*" "string") '("const-gchar*" "val") '("gssize" "len") ) ) (define-function g_string_append_c (c-name "g_string_append_c") (return-type "GString*") (parameters '("GString*" "string") '("gchar" "c") ) ) (define-function g_string_append_unichar (c-name "g_string_append_unichar") (return-type "GString*") (parameters '("GString*" "string") '("gunichar" "wc") ) ) (define-function g_string_prepend (c-name "g_string_prepend") (return-type "GString*") (parameters '("GString*" "string") '("const-gchar*" "val") ) ) (define-function g_string_prepend_c (c-name "g_string_prepend_c") (return-type "GString*") (parameters '("GString*" "string") '("gchar" "c") ) ) (define-function g_string_prepend_unichar (c-name "g_string_prepend_unichar") (return-type "GString*") (parameters '("GString*" "string") '("gunichar" "wc") ) ) (define-function g_string_prepend_len (c-name "g_string_prepend_len") (return-type "GString*") (parameters '("GString*" "string") '("const-gchar*" "val") '("gssize" "len") ) ) (define-function g_string_insert (c-name "g_string_insert") (return-type "GString*") (parameters '("GString*" "string") '("gssize" "pos") '("const-gchar*" "val") ) ) (define-function g_string_insert_c (c-name "g_string_insert_c") (return-type "GString*") (parameters '("GString*" "string") '("gssize" "pos") '("gchar" "c") ) ) (define-function g_string_insert_unichar (c-name "g_string_insert_unichar") (return-type "GString*") (parameters '("GString*" "string") '("gssize" "pos") '("gunichar" "wc") ) ) (define-function g_string_erase (c-name "g_string_erase") (return-type "GString*") (parameters '("GString*" "string") '("gssize" "pos") '("gssize" "len") ) ) (define-function g_string_ascii_down (c-name "g_string_ascii_down") (return-type "GString*") (parameters '("GString*" "string") ) ) (define-function g_string_ascii_up (c-name "g_string_ascii_up") (return-type "GString*") (parameters '("GString*" "string") ) ) (define-function g_string_printf (c-name "g_string_printf") (return-type "none") (parameters '("GString*" "string") '("const-gchar*" "format") ) (varargs #t) ) (define-function g_string_append_printf (c-name "g_string_append_printf") (return-type "none") (parameters '("GString*" "string") '("const-gchar*" "format") ) (varargs #t) ) (define-function g_string_append_c_inline (c-name "g_string_append_c_inline") (return-type "static-inline-GString*") (parameters '("GString*" "gstring") '("gchar" "c") ) ) (define-function g_string_up (c-name "g_string_up") (return-type "GString*") (parameters '("GString*" "string") ) ) ;; From /opt/gnome2/include/glib-2.0/glib/gthread.h (define-function g_thread_error_quark (c-name "g_thread_error_quark") (return-type "extern-GQuark") ) (define-function guint64 (c-name "guint64") (return-type "GLIB_VAR") (parameters ) ) (define-function g_thread_init (c-name "g_thread_init") (return-type "none") (parameters '("GThreadFunctions*" "vtable") ) ) (define-function g_thread_init_with_errorcheck_mutexes (c-name "g_thread_init_with_errorcheck_mutexes") (return-type "none") (parameters '("GThreadFunctions*" "vtable") ) ) (define-function g_static_mutex_get_mutex_impl (c-name "g_static_mutex_get_mutex_impl") (return-type "GMutex*") (parameters '("GMutex**" "mutex") ) ) (define-function g_thread_create_full (c-name "g_thread_create_full") (return-type "GThread*") (parameters '("GThreadFunc" "func") '("gpointer" "data") '("gulong" "stack_size") '("gboolean" "joinable") '("gboolean" "bound") '("GThreadPriority" "priority") '("GError**" "error") ) ) (define-function g_thread_self (c-name "g_thread_self") (return-type "GThread*") ) (define-function g_thread_exit (c-name "g_thread_exit") (return-type "none") (parameters '("gpointer" "retval") ) ) (define-function g_thread_join (c-name "g_thread_join") (return-type "gpointer") (parameters '("GThread*" "thread") ) ) (define-function g_thread_set_priority (c-name "g_thread_set_priority") (return-type "none") (parameters '("GThread*" "thread") '("GThreadPriority" "priority") ) ) (define-function g_static_mutex_init (c-name "g_static_mutex_init") (return-type "none") (parameters '("GStaticMutex*" "mutex") ) ) (define-function g_static_mutex_free (c-name "g_static_mutex_free") (return-type "none") (parameters '("GStaticMutex*" "mutex") ) ) (define-function g_static_private_init (c-name "g_static_private_init") (return-type "none") (parameters '("GStaticPrivate*" "private_key") ) ) (define-function g_static_private_get (c-name "g_static_private_get") (return-type "gpointer") (parameters '("GStaticPrivate*" "private_key") ) ) (define-function g_static_private_set (c-name "g_static_private_set") (return-type "none") (parameters '("GStaticPrivate*" "private_key") '("gpointer" "data") '("GDestroyNotify" "notify") ) ) (define-function g_static_private_free (c-name "g_static_private_free") (return-type "none") (parameters '("GStaticPrivate*" "private_key") ) ) (define-function g_static_rec_mutex_init (c-name "g_static_rec_mutex_init") (return-type "none") (parameters '("GStaticRecMutex*" "mutex") ) ) (define-function g_static_rec_mutex_lock (c-name "g_static_rec_mutex_lock") (return-type "none") (parameters '("GStaticRecMutex*" "mutex") ) ) (define-function g_static_rec_mutex_trylock (c-name "g_static_rec_mutex_trylock") (return-type "gboolean") (parameters '("GStaticRecMutex*" "mutex") ) ) (define-function g_static_rec_mutex_unlock (c-name "g_static_rec_mutex_unlock") (return-type "none") (parameters '("GStaticRecMutex*" "mutex") ) ) (define-function g_static_rec_mutex_lock_full (c-name "g_static_rec_mutex_lock_full") (return-type "none") (parameters '("GStaticRecMutex*" "mutex") '("guint" "depth") ) ) (define-function g_static_rec_mutex_unlock_full (c-name "g_static_rec_mutex_unlock_full") (return-type "guint") (parameters '("GStaticRecMutex*" "mutex") ) ) (define-function g_static_rec_mutex_free (c-name "g_static_rec_mutex_free") (return-type "none") (parameters '("GStaticRecMutex*" "mutex") ) ) (define-function g_static_rw_lock_init (c-name "g_static_rw_lock_init") (return-type "none") (parameters '("GStaticRWLock*" "lock") ) ) (define-function g_static_rw_lock_reader_lock (c-name "g_static_rw_lock_reader_lock") (return-type "none") (parameters '("GStaticRWLock*" "lock") ) ) (define-function g_static_rw_lock_reader_trylock (c-name "g_static_rw_lock_reader_trylock") (return-type "gboolean") (parameters '("GStaticRWLock*" "lock") ) ) (define-function g_static_rw_lock_reader_unlock (c-name "g_static_rw_lock_reader_unlock") (return-type "none") (parameters '("GStaticRWLock*" "lock") ) ) (define-function g_static_rw_lock_writer_lock (c-name "g_static_rw_lock_writer_lock") (return-type "none") (parameters '("GStaticRWLock*" "lock") ) ) (define-function g_static_rw_lock_writer_trylock (c-name "g_static_rw_lock_writer_trylock") (return-type "gboolean") (parameters '("GStaticRWLock*" "lock") ) ) (define-function g_static_rw_lock_writer_unlock (c-name "g_static_rw_lock_writer_unlock") (return-type "none") (parameters '("GStaticRWLock*" "lock") ) ) (define-function g_static_rw_lock_free (c-name "g_static_rw_lock_free") (return-type "none") (parameters '("GStaticRWLock*" "lock") ) ) (define-function g_thread_foreach (c-name "g_thread_foreach") (return-type "none") (parameters '("GFunc" "thread_func") '("gpointer" "user_data") ) ) (define-function g_once_impl (c-name "g_once_impl") (return-type "gpointer") (parameters '("GOnce*" "once") '("GThreadFunc" "func") '("gpointer" "arg") ) ) (define-function glib_dummy_decl (c-name "glib_dummy_decl") (return-type "extern-void") ) ;; From /opt/gnome2/include/glib-2.0/glib/gthreadpool.h (define-function g_thread_pool_new (c-name "g_thread_pool_new") (is-constructor-of "GThreadPool") (return-type "GThreadPool*") (parameters '("GFunc" "func") '("gpointer" "user_data") '("gint" "max_threads") '("gboolean" "exclusive") '("GError**" "error") ) ) (define-function g_thread_pool_push (c-name "g_thread_pool_push") (return-type "none") (parameters '("GThreadPool*" "pool") '("gpointer" "data") '("GError**" "error") ) ) (define-function g_thread_pool_set_max_threads (c-name "g_thread_pool_set_max_threads") (return-type "none") (parameters '("GThreadPool*" "pool") '("gint" "max_threads") '("GError**" "error") ) ) (define-function g_thread_pool_get_max_threads (c-name "g_thread_pool_get_max_threads") (return-type "gint") (parameters '("GThreadPool*" "pool") ) ) (define-function g_thread_pool_get_num_threads (c-name "g_thread_pool_get_num_threads") (return-type "guint") (parameters '("GThreadPool*" "pool") ) ) (define-function g_thread_pool_unprocessed (c-name "g_thread_pool_unprocessed") (return-type "guint") (parameters '("GThreadPool*" "pool") ) ) (define-function g_thread_pool_free (c-name "g_thread_pool_free") (return-type "none") (parameters '("GThreadPool*" "pool") '("gboolean" "immediate") '("gboolean" "wait_") ) ) (define-function g_thread_pool_set_max_unused_threads (c-name "g_thread_pool_set_max_unused_threads") (return-type "none") (parameters '("gint" "max_threads") ) ) (define-function g_thread_pool_get_max_unused_threads (c-name "g_thread_pool_get_max_unused_threads") (return-type "gint") ) (define-function g_thread_pool_get_num_unused_threads (c-name "g_thread_pool_get_num_unused_threads") (return-type "guint") ) (define-function g_thread_pool_stop_unused_threads (c-name "g_thread_pool_stop_unused_threads") (return-type "none") ) (define-function g_thread_pool_set_sort_function (c-name "g_thread_pool_set_sort_function") (return-type "none") (parameters '("GThreadPool*" "pool") '("GCompareDataFunc" "func") '("gpointer" "user_data") ) ) (define-function g_thread_pool_set_max_idle_time (c-name "g_thread_pool_set_max_idle_time") (return-type "none") (parameters '("guint" "interval") ) ) (define-function g_thread_pool_get_max_idle_time (c-name "g_thread_pool_get_max_idle_time") (return-type "guint") ) ;; From /opt/gnome2/include/glib-2.0/glib/gtimer.h (define-function g_timer_new (c-name "g_timer_new") (is-constructor-of "GTimer") (return-type "GTimer*") ) (define-function g_timer_destroy (c-name "g_timer_destroy") (return-type "none") (parameters '("GTimer*" "timer") ) ) (define-function g_timer_start (c-name "g_timer_start") (return-type "none") (parameters '("GTimer*" "timer") ) ) (define-function g_timer_stop (c-name "g_timer_stop") (return-type "none") (parameters '("GTimer*" "timer") ) ) (define-function g_timer_reset (c-name "g_timer_reset") (return-type "none") (parameters '("GTimer*" "timer") ) ) (define-function g_timer_continue (c-name "g_timer_continue") (return-type "none") (parameters '("GTimer*" "timer") ) ) (define-function g_timer_elapsed (c-name "g_timer_elapsed") (return-type "gdouble") (parameters '("GTimer*" "timer") '("gulong*" "microseconds") ) ) (define-function g_usleep (c-name "g_usleep") (return-type "none") (parameters '("gulong" "microseconds") ) ) (define-function g_time_val_add (c-name "g_time_val_add") (return-type "none") (parameters '("GTimeVal*" "time_") '("glong" "microseconds") ) ) (define-function g_time_val_from_iso8601 (c-name "g_time_val_from_iso8601") (return-type "gboolean") (parameters '("const-gchar*" "iso_date") '("GTimeVal*" "time_") ) ) (define-function g_time_val_to_iso8601 (c-name "g_time_val_to_iso8601") (return-type "gchar*") (parameters '("GTimeVal*" "time_") ) ) ;; From /opt/gnome2/include/glib-2.0/glib/gtree.h (define-function g_tree_new (c-name "g_tree_new") (is-constructor-of "GTree") (return-type "GTree*") (parameters '("GCompareFunc" "key_compare_func") ) ) (define-function g_tree_new_with_data (c-name "g_tree_new_with_data") (return-type "GTree*") (parameters '("GCompareDataFunc" "key_compare_func") '("gpointer" "key_compare_data") ) ) (define-function g_tree_new_full (c-name "g_tree_new_full") (return-type "GTree*") (parameters '("GCompareDataFunc" "key_compare_func") '("gpointer" "key_compare_data") '("GDestroyNotify" "key_destroy_func") '("GDestroyNotify" "value_destroy_func") ) ) (define-function g_tree_destroy (c-name "g_tree_destroy") (return-type "none") (parameters '("GTree*" "tree") ) ) (define-function g_tree_insert (c-name "g_tree_insert") (return-type "none") (parameters '("GTree*" "tree") '("gpointer" "key") '("gpointer" "value") ) ) (define-function g_tree_replace (c-name "g_tree_replace") (return-type "none") (parameters '("GTree*" "tree") '("gpointer" "key") '("gpointer" "value") ) ) (define-function g_tree_remove (c-name "g_tree_remove") (return-type "gboolean") (parameters '("GTree*" "tree") '("gconstpointer" "key") ) ) (define-function g_tree_steal (c-name "g_tree_steal") (return-type "gboolean") (parameters '("GTree*" "tree") '("gconstpointer" "key") ) ) (define-function g_tree_lookup (c-name "g_tree_lookup") (return-type "gpointer") (parameters '("GTree*" "tree") '("gconstpointer" "key") ) ) (define-function g_tree_lookup_extended (c-name "g_tree_lookup_extended") (return-type "gboolean") (parameters '("GTree*" "tree") '("gconstpointer" "lookup_key") '("gpointer*" "orig_key") '("gpointer*" "value") ) ) (define-function g_tree_foreach (c-name "g_tree_foreach") (return-type "none") (parameters '("GTree*" "tree") '("GTraverseFunc" "func") '("gpointer" "user_data") ) ) (define-function g_tree_traverse (c-name "g_tree_traverse") (return-type "none") (parameters '("GTree*" "tree") '("GTraverseFunc" "traverse_func") '("GTraverseType" "traverse_type") '("gpointer" "user_data") ) ) (define-function g_tree_search (c-name "g_tree_search") (return-type "gpointer") (parameters '("GTree*" "tree") '("GCompareFunc" "search_func") '("gconstpointer" "user_data") ) ) (define-function g_tree_height (c-name "g_tree_height") (return-type "gint") (parameters '("GTree*" "tree") ) ) (define-function g_tree_nnodes (c-name "g_tree_nnodes") (return-type "gint") (parameters '("GTree*" "tree") ) ) ;; From /opt/gnome2/include/glib-2.0/glib/gtypes.h ;; From /opt/gnome2/include/glib-2.0/glib/gunicode.h (define-function g_get_charset (c-name "g_get_charset") (return-type "gboolean") (parameters '("const-char**" "charset") ) ) (define-function g_unichar_isalnum (c-name "g_unichar_isalnum") (return-type "gboolean") (parameters '("gunichar" "c") ) ) (define-function g_unichar_isalpha (c-name "g_unichar_isalpha") (return-type "gboolean") (parameters '("gunichar" "c") ) ) (define-function g_unichar_iscntrl (c-name "g_unichar_iscntrl") (return-type "gboolean") (parameters '("gunichar" "c") ) ) (define-function g_unichar_isdigit (c-name "g_unichar_isdigit") (return-type "gboolean") (parameters '("gunichar" "c") ) ) (define-function g_unichar_isgraph (c-name "g_unichar_isgraph") (return-type "gboolean") (parameters '("gunichar" "c") ) ) (define-function g_unichar_islower (c-name "g_unichar_islower") (return-type "gboolean") (parameters '("gunichar" "c") ) ) (define-function g_unichar_isprint (c-name "g_unichar_isprint") (return-type "gboolean") (parameters '("gunichar" "c") ) ) (define-function g_unichar_ispunct (c-name "g_unichar_ispunct") (return-type "gboolean") (parameters '("gunichar" "c") ) ) (define-function g_unichar_isspace (c-name "g_unichar_isspace") (return-type "gboolean") (parameters '("gunichar" "c") ) ) (define-function g_unichar_isupper (c-name "g_unichar_isupper") (return-type "gboolean") (parameters '("gunichar" "c") ) ) (define-function g_unichar_isxdigit (c-name "g_unichar_isxdigit") (return-type "gboolean") (parameters '("gunichar" "c") ) ) (define-function g_unichar_istitle (c-name "g_unichar_istitle") (return-type "gboolean") (parameters '("gunichar" "c") ) ) (define-function g_unichar_isdefined (c-name "g_unichar_isdefined") (return-type "gboolean") (parameters '("gunichar" "c") ) ) (define-function g_unichar_iswide (c-name "g_unichar_iswide") (return-type "gboolean") (parameters '("gunichar" "c") ) ) (define-function g_unichar_iswide_cjk (c-name "g_unichar_iswide_cjk") (return-type "gboolean") (parameters '("gunichar" "c") ) ) (define-function g_unichar_toupper (c-name "g_unichar_toupper") (return-type "gunichar") (parameters '("gunichar" "c") ) ) (define-function g_unichar_tolower (c-name "g_unichar_tolower") (return-type "gunichar") (parameters '("gunichar" "c") ) ) (define-function g_unichar_totitle (c-name "g_unichar_totitle") (return-type "gunichar") (parameters '("gunichar" "c") ) ) (define-function g_unichar_digit_value (c-name "g_unichar_digit_value") (return-type "gint") (parameters '("gunichar" "c") ) ) (define-function g_unichar_xdigit_value (c-name "g_unichar_xdigit_value") (return-type "gint") (parameters '("gunichar" "c") ) ) (define-function g_unichar_type (c-name "g_unichar_type") (return-type "GUnicodeType") (parameters '("gunichar" "c") ) ) (define-function g_unichar_break_type (c-name "g_unichar_break_type") (return-type "GUnicodeBreakType") (parameters '("gunichar" "c") ) ) (define-function g_unicode_canonical_ordering (c-name "g_unicode_canonical_ordering") (return-type "none") (parameters '("gunichar*" "string") '("gsize" "len") ) ) (define-function g_unicode_canonical_decomposition (c-name "g_unicode_canonical_decomposition") (return-type "gunichar*") (parameters '("gunichar" "ch") '("gsize*" "result_len") ) ) (define-function g_utf8_get_char (c-name "g_utf8_get_char") (return-type "gunichar") (parameters '("const-gchar*" "p") ) ) (define-function g_utf8_get_char_validated (c-name "g_utf8_get_char_validated") (return-type "gunichar") (parameters '("const-gchar*" "p") '("gssize" "max_len") ) ) (define-function g_utf8_offset_to_pointer (c-name "g_utf8_offset_to_pointer") (return-type "gchar*") (parameters '("const-gchar*" "str") '("glong" "offset") ) ) (define-function g_utf8_pointer_to_offset (c-name "g_utf8_pointer_to_offset") (return-type "glong") (parameters '("const-gchar*" "str") '("const-gchar*" "pos") ) ) (define-function g_utf8_prev_char (c-name "g_utf8_prev_char") (return-type "gchar*") (parameters '("const-gchar*" "p") ) ) (define-function g_utf8_find_next_char (c-name "g_utf8_find_next_char") (return-type "gchar*") (parameters '("const-gchar*" "p") '("const-gchar*" "end") ) ) (define-function g_utf8_find_prev_char (c-name "g_utf8_find_prev_char") (return-type "gchar*") (parameters '("const-gchar*" "str") '("const-gchar*" "p") ) ) (define-function g_utf8_strlen (c-name "g_utf8_strlen") (return-type "glong") (parameters '("const-gchar*" "p") '("gssize" "max") ) ) (define-function g_utf8_strncpy (c-name "g_utf8_strncpy") (return-type "gchar*") (parameters '("gchar*" "dest") '("const-gchar*" "src") '("gsize" "n") ) ) (define-function g_utf8_strchr (c-name "g_utf8_strchr") (return-type "gchar*") (parameters '("const-gchar*" "p") '("gssize" "len") '("gunichar" "c") ) ) (define-function g_utf8_strrchr (c-name "g_utf8_strrchr") (return-type "gchar*") (parameters '("const-gchar*" "p") '("gssize" "len") '("gunichar" "c") ) ) (define-function g_utf8_strreverse (c-name "g_utf8_strreverse") (return-type "gchar*") (parameters '("const-gchar*" "str") '("gssize" "len") ) ) (define-function g_utf8_to_utf16 (c-name "g_utf8_to_utf16") (return-type "gunichar2*") (parameters '("const-gchar*" "str") '("glong" "len") '("glong*" "items_read") '("glong*" "items_written") '("GError**" "error") ) ) (define-function g_utf8_to_ucs4 (c-name "g_utf8_to_ucs4") (return-type "gunichar*") (parameters '("const-gchar*" "str") '("glong" "len") '("glong*" "items_read") '("glong*" "items_written") '("GError**" "error") ) ) (define-function g_utf8_to_ucs4_fast (c-name "g_utf8_to_ucs4_fast") (return-type "gunichar*") (parameters '("const-gchar*" "str") '("glong" "len") '("glong*" "items_written") ) ) (define-function g_utf16_to_ucs4 (c-name "g_utf16_to_ucs4") (return-type "gunichar*") (parameters '("const-gunichar2*" "str") '("glong" "len") '("glong*" "items_read") '("glong*" "items_written") '("GError**" "error") ) ) (define-function g_utf16_to_utf8 (c-name "g_utf16_to_utf8") (return-type "gchar*") (parameters '("const-gunichar2*" "str") '("glong" "len") '("glong*" "items_read") '("glong*" "items_written") '("GError**" "error") ) ) (define-function g_ucs4_to_utf16 (c-name "g_ucs4_to_utf16") (return-type "gunichar2*") (parameters '("const-gunichar*" "str") '("glong" "len") '("glong*" "items_read") '("glong*" "items_written") '("GError**" "error") ) ) (define-function g_ucs4_to_utf8 (c-name "g_ucs4_to_utf8") (return-type "gchar*") (parameters '("const-gunichar*" "str") '("glong" "len") '("glong*" "items_read") '("glong*" "items_written") '("GError**" "error") ) ) (define-function g_unichar_to_utf8 (c-name "g_unichar_to_utf8") (return-type "gint") (parameters '("gunichar" "c") '("gchar*" "outbuf") ) ) (define-function g_utf8_validate (c-name "g_utf8_validate") (return-type "gboolean") (parameters '("const-gchar*" "str") '("gssize" "max_len") '("const-gchar**" "end") ) ) (define-function g_unichar_validate (c-name "g_unichar_validate") (return-type "gboolean") (parameters '("gunichar" "ch") ) ) (define-function g_utf8_strup (c-name "g_utf8_strup") (return-type "gchar*") (parameters '("const-gchar*" "str") '("gssize" "len") ) ) (define-function g_utf8_strdown (c-name "g_utf8_strdown") (return-type "gchar*") (parameters '("const-gchar*" "str") '("gssize" "len") ) ) (define-function g_utf8_casefold (c-name "g_utf8_casefold") (return-type "gchar*") (parameters '("const-gchar*" "str") '("gssize" "len") ) ) (define-function g_utf8_normalize (c-name "g_utf8_normalize") (return-type "gchar*") (parameters '("const-gchar*" "str") '("gssize" "len") '("GNormalizeMode" "mode") ) ) (define-function g_utf8_collate (c-name "g_utf8_collate") (return-type "gint") (parameters '("const-gchar*" "str1") '("const-gchar*" "str2") ) ) (define-function g_utf8_collate_key (c-name "g_utf8_collate_key") (return-type "gchar*") (parameters '("const-gchar*" "str") '("gssize" "len") ) ) (define-function g_utf8_collate_key_for_filename (c-name "g_utf8_collate_key_for_filename") (return-type "gchar*") (parameters '("const-gchar*" "str") '("gssize" "len") ) ) (define-function g_unichar_get_mirror_char (c-name "g_unichar_get_mirror_char") (return-type "gboolean") (parameters '("gunichar" "ch") '("gunichar*" "mirrored_ch") ) ) (define-function _g_utf8_make_valid (c-name "_g_utf8_make_valid") (return-type "gchar*") (parameters '("const-gchar*" "name") ) ) ;; From /opt/gnome2/include/glib-2.0/glib/gutils.h (define-function g_get_user_name (c-name "g_get_user_name") (return-type "const-gchar*") ) (define-function g_get_real_name (c-name "g_get_real_name") (return-type "const-gchar*") ) (define-function g_get_home_dir (c-name "g_get_home_dir") (return-type "const-gchar*") ) (define-function g_get_tmp_dir (c-name "g_get_tmp_dir") (return-type "const-gchar*") ) (define-function g_get_host_name (c-name "g_get_host_name") (return-type "const-gchar*") ) (define-function g_get_prgname (c-name "g_get_prgname") (return-type "gchar*") ) (define-function g_set_prgname (c-name "g_set_prgname") (return-type "none") (parameters '("const-gchar*" "prgname") ) ) (define-function g_get_application_name (c-name "g_get_application_name") (return-type "const-gchar*") ) (define-function g_set_application_name (c-name "g_set_application_name") (return-type "none") (parameters '("const-gchar*" "application_name") ) ) (define-function g_get_user_data_dir (c-name "g_get_user_data_dir") (return-type "const-gchar*") ) (define-function g_get_user_config_dir (c-name "g_get_user_config_dir") (return-type "const-gchar*") ) (define-function g_get_user_cache_dir (c-name "g_get_user_cache_dir") (return-type "const-gchar*") ) (define-function g_get_system_data_dirs (c-name "g_get_system_data_dirs") (return-type "const-gchar*-G_CONST_RETURN*") ) (define-function g_win32_get_system_data_dirs_for_module (c-name "g_win32_get_system_data_dirs_for_module") (return-type "const-gchar*-G_CONST_RETURN*") (parameters '("gconstpointer" "address") ) ) (define-function g_win32_get_system_data_dirs (c-name "g_win32_get_system_data_dirs") (return-type "static-inline-const-gchar*-G_CONST_RETURN*") ) (define-function g_get_language_names (c-name "g_get_language_names") (return-type "const-gchar*-G_CONST_RETURN*") ) (define-function g_parse_debug_string (c-name "g_parse_debug_string") (return-type "guint") (parameters '("const-gchar*" "string") '("const-GDebugKey*" "keys") '("guint" "nkeys") ) ) (define-function g_snprintf (c-name "g_snprintf") (return-type "gint") (parameters '("gchar*" "string") '("gulong" "n") '("gchar-const*" "format") ) (varargs #t) ) (define-function g_vsnprintf (c-name "g_vsnprintf") (return-type "gint") (parameters '("gchar*" "string") '("gulong" "n") '("gchar-const*" "format") '("va_list" "args") ) ) (define-function g_path_is_absolute (c-name "g_path_is_absolute") (return-type "gboolean") (parameters '("const-gchar*" "file_name") ) ) (define-function g_path_skip_root (c-name "g_path_skip_root") (return-type "const-gchar*") (parameters '("const-gchar*" "file_name") ) ) (define-function g_basename (c-name "g_basename") (return-type "const-gchar*") (parameters '("const-gchar*" "file_name") ) ) (define-function g_get_current_dir (c-name "g_get_current_dir") (return-type "gchar*") ) (define-function g_path_get_basename (c-name "g_path_get_basename") (return-type "gchar*") (parameters '("const-gchar*" "file_name") ) ) (define-function g_path_get_dirname (c-name "g_path_get_dirname") (return-type "gchar*") (parameters '("const-gchar*" "file_name") ) ) (define-function g_nullify_pointer (c-name "g_nullify_pointer") (return-type "none") (parameters '("gpointer*" "nullify_location") ) ) (define-function g_getenv (c-name "g_getenv") (return-type "const-gchar*") (parameters '("const-gchar*" "variable") ) ) (define-function g_setenv (c-name "g_setenv") (return-type "gboolean") (parameters '("const-gchar*" "variable") '("const-gchar*" "value") '("gboolean" "overwrite") ) ) (define-function g_unsetenv (c-name "g_unsetenv") (return-type "none") (parameters '("const-gchar*" "variable") ) ) (define-function g_listenv (c-name "g_listenv") (return-type "gchar**") ) (define-function _g_getenv_nomalloc (c-name "_g_getenv_nomalloc") (return-type "const-gchar*") (parameters '("const-gchar*" "variable") '("gchar" "buffer[1024]") ) ) (define-function g_atexit (c-name "g_atexit") (return-type "none") (parameters '("GVoidFunc" "func") ) ) (define-function atexit (c-name "atexit") (return-type "int") (parameters '("void" "(*") ) ) (define-function g_find_program_in_path (c-name "g_find_program_in_path") (return-type "gchar*") (parameters '("const-gchar*" "program") ) ) (define-function g_bit_nth_lsf (c-name "g_bit_nth_lsf") (return-type "G_INLINE_FUNC-gint") (parameters '("gulong" "mask") '("gint" "nth_bit") ) ) (define-function g_bit_nth_msf (c-name "g_bit_nth_msf") (return-type "G_INLINE_FUNC-gint") (parameters '("gulong" "mask") '("gint" "nth_bit") ) ) (define-function g_bit_storage (c-name "g_bit_storage") (return-type "G_INLINE_FUNC-guint") (parameters '("gulong" "number") ) ) (define-function g_trash_stack_push (c-name "g_trash_stack_push") (return-type "G_INLINE_FUNC-void") (parameters '("GTrashStack**" "stack_p") '("gpointer" "data_p") ) ) (define-function g_trash_stack_pop (c-name "g_trash_stack_pop") (return-type "G_INLINE_FUNC-gpointer") (parameters '("GTrashStack**" "stack_p") ) ) (define-function g_trash_stack_peek (c-name "g_trash_stack_peek") (return-type "G_INLINE_FUNC-gpointer") (parameters '("GTrashStack**" "stack_p") ) ) (define-function g_trash_stack_height (c-name "g_trash_stack_height") (return-type "G_INLINE_FUNC-guint") (parameters '("GTrashStack**" "stack_p") ) ) (define-function g_bit_nth_lsf (c-name "g_bit_nth_lsf") (return-type "G_INLINE_FUNC-gint") (parameters '("gulong" "mask") '("gint" "nth_bit") ) ) (define-function glib_check_version (c-name "glib_check_version") (return-type "const-gchar*") (parameters '("guint" "required_major") '("guint" "required_minor") '("guint" "required_micro") ) ) ;; From /opt/gnome2/include/glib-2.0/glib/gwin32.h (define-function g_win32_ftruncate (c-name "g_win32_ftruncate") (return-type "gint") (parameters '("gint" "f") '("guint" "size") ) ) (define-function g_win32_getlocale (c-name "g_win32_getlocale") (return-type "gchar*") ) (define-function g_win32_error_message (c-name "g_win32_error_message") (return-type "gchar*") (parameters '("gint" "error") ) ) (define-function g_win32_get_package_installation_directory (c-name "g_win32_get_package_installation_directory") (return-type "gchar*") (parameters '("gchar*" "package") '("gchar*" "dll_name") ) ) (define-function g_win32_get_package_installation_subdirectory (c-name "g_win32_get_package_installation_subdirectory") (return-type "gchar*") (parameters '("gchar*" "package") '("gchar*" "dll_name") '("gchar*" "subdir") ) ) (define-function g_win32_get_windows_version (c-name "g_win32_get_windows_version") (return-type "guint") ) (define-function g_win32_locale_filename_from_utf8 (c-name "g_win32_locale_filename_from_utf8") (return-type "gchar*") (parameters '("const-gchar*" "utf8filename") ) ) guile-gnome-platform-2.16.2/defs/gnome/defs/libglade.defs0000644000175000017500000000561611670374302023554 0ustar00wingowingo00000000000000;; -*- scheme -*- (include "libglade-types.defs") (include overrides) ;; From /opt/gnome2/include/libglade-2.0/glade/glade-xml.h (define-function glade_xml_get_type (c-name "glade_xml_get_type") (return-type "GType") ) (define-function glade_xml_new (c-name "glade_xml_new") (is-constructor-of "GladeXml") (return-type "GladeXML*") (parameters '("const-char*" "fname") '("const-char*" "root") '("const-char*" "domain") ) ) (define-function glade_xml_new_from_buffer (c-name "glade_xml_new_from_buffer") (return-type "GladeXML*") (parameters '("const-char*" "buffer") '("int" "size") '("const-char*" "root") '("const-char*" "domain") ) ) (define-method construct (of-object "GladeXML") (c-name "glade_xml_construct") (return-type "gboolean") (parameters '("const-char*" "fname") '("const-char*" "root") '("const-char*" "domain") ) ) (define-method signal_connect (of-object "GladeXML") (c-name "glade_xml_signal_connect") (return-type "none") (parameters '("const-char*" "handlername") '("GCallback" "func") ) ) (define-method signal_connect_data (of-object "GladeXML") (c-name "glade_xml_signal_connect_data") (return-type "none") (parameters '("const-char*" "handlername") '("GCallback" "func") '("gpointer" "user_data") ) ) (define-method signal_autoconnect (of-object "GladeXML") (c-name "glade_xml_signal_autoconnect") (return-type "none") ) (define-method signal_connect_full (of-object "GladeXML") (c-name "glade_xml_signal_connect_full") (return-type "none") (parameters '("const-gchar*" "handler_name") '("GladeXMLConnectFunc" "func") '("gpointer" "user_data") ) ) (define-method signal_autoconnect_full (of-object "GladeXML") (c-name "glade_xml_signal_autoconnect_full") (return-type "none") (parameters '("GladeXMLConnectFunc" "func") '("gpointer" "user_data") ) ) (define-method get_widget (of-object "GladeXML") (c-name "glade_xml_get_widget") (return-type "GtkWidget*") (parameters '("const-char*" "name") ) ) (define-method get_widget_prefix (of-object "GladeXML") (c-name "glade_xml_get_widget_prefix") (return-type "GList*") (parameters '("const-char*" "name") ) ) (define-method relative_file (of-object "GladeXML") (c-name "glade_xml_relative_file") (return-type "gchar*") (parameters '("const-gchar*" "filename") ) ) (define-function glade_get_widget_name (c-name "glade_get_widget_name") (return-type "const-char*") (parameters '("GtkWidget*" "widget") ) ) (define-function glade_get_widget_tree (c-name "glade_get_widget_tree") (return-type "GladeXML*") (parameters '("GtkWidget*" "widget") ) ) (define-function glade_set_custom_handler (c-name "glade_set_custom_handler") (return-type "none") (parameters '("GladeXMLCustomWidgetHandler" "handler") '("gpointer" "user_data") ) ) guile-gnome-platform-2.16.2/defs/gnome/defs/printui.defs0000644000175000017500000001113511670374302023474 0ustar00wingowingo00000000000000;; -*- scheme -*- ;; object definitions ... (define-object Dialog (parent "GtkDialog") (c-name "GnomePrintDialog") (gtype-id "GNOME_TYPE_PRINT_DIALOG") ) (define-object Preview (parent "GnomePrintContext") (c-name "GnomePrintPreview") (gtype-id "GNOME_TYPE_PRINT_PREVIEW") ) (define-object JobPreview (parent "GtkWindow") (c-name "GnomePrintJobPreview") (gtype-id "GNOME_TYPE_PRINT_JOB_PREVIEW") ) (define-object PaperSelector (parent "GtkWidget") (c-name "GnomePaperSelector") (gtype-id "GNOME_TYPE_PAPER_SELECTOR") ) (define-object FontSelection (parent "GtkWidget") (c-name "GnomeFontSelection") (gtype-id "GNOME_TYPE_FONT_SELECTION") ) (define-object FontPreview (parent "GtkWidget") (c-name "GnomeFontPreview") (gtype-id "GNOME_TYPE_FONT_PREVIEW") ) (define-object FontDialog (parent "GtkWidget") (c-name "GnomeFontDialog") (gtype-id "GNOME_TYPE_FONT_DIALOG") ) ;; gnome-print-dialog.h (define-function gnome_print_dialog_new (is-constructor-of "GnomePrintDialog") (c-name "gnome_print_dialog_new") (return-type "GnomePrintDialog*") (parameters '("GnomePrintJob*" "job") '("const-gchar*" "title") '("gint" "flags" (default "0"))) ) (define-method get_copies (of-object "GnomePrintDialog") (c-name "gnome_print_dialog_get_copies") (return-type "gint") ; actually return is copies(int), collate(int) ) (define-method set_copies (of-object "GnomePrintDialog") (c-name "gnome_print_dialog_set_copies") (return-type "none") (parameters '("gint" "copies") '("gint" "collate")) ) (define-method get_config (of-object "GnomePrintDialog") (c-name "gnome_print_dialog_get_config") (return-type "GnomePrintConfig*") ) (define-method get_range (of-object "GnomePrintDialog") (c-name "gnome_print_dialog_get_range") (return-type "gint") ) (define-method get_range_page (of-object "GnomePrintDialog") (c-name "gnome_print_dialog_get_range_page") (return-type "gint") ) ;; gnome-print-preview.h (define-function gnome_print_preview_new (is-constructor-of "GnomePrintPreview") (c-name "gnome_print_preview_new") (return-type "GnomePrintContext*") (parameters '("GnomePrintConfig*" "config") '("GnomeCanvas*" "canvas")) ) ;; gnome-print-job-preview.h (define-function gnome_print_job_preview_new (is-constructor-of "GnomePrintJobPreview") (c-name "gnome_print_job_preview_new") (return-type "GtkWidget*") (parameters '("GnomePrintJob*" "job") '("const-gchar*" "title")) ) ;; gnome-print-paper-selector.h (define-function gnome_print_paper_selector_new_with_flags (is-constructor-of "GnomePaperSelector") (c-name "gnome_paper_selector_new_with_flags") (return-type "GtkWidget*") (parameters '("GnomePrintConfig*" "config") '("gint" "flags" (default "0"))) ) ;; gnome-font-dialog.h (define-function gnome_font_selection_new (is-constructor-of "GnomeFontSelection") (c-name "gnome_font_selection_new") (return-type "GtkWidget*") ) (define-method get_face (of-object "GnomeFontSelection") (c-name "gnome_font_selection_get_face") (return-type "GnomeFontFace*") ) (define-method get_size (of-object "GnomeFontSelection") (c-name "gnome_font_selection_get_size") (return-type "gdouble") ) (define-method get_font (of-object "GnomeFontSelection") (c-name "gnome_font_selection_get_font") (return-type "GnomeFont*") ) (define-method set_font (of-object "GnomeFontSelection") (c-name "gnome_font_selection_set_font") (return-type "none") (parameters '("GnomeFont*" "font")) ) (define-function gnome_font_preview_new (is-constructor-of "GnomeFontPreview") (c-name "gnome_font_preview_new") (return-type "GtkWidget*") ) (define-method set_phrase (of-object "GnomeFontPreview") (c-name "gnome_font_preview_set_phrase") (return-type "none") (parameters '("const-gchar*" "phrase")) ) (define-method set_font (of-object "GnomeFontPreview") (c-name "gnome_font_preview_set_font") (return-type "none") (parameters '("GnomeFont*" "font")) ) (define-method set_color (of-object "GnomeFontPreview") (c-name "gnome_font_preview_set_color") (return-type "none") (parameters '("guint32" "color")) ) (define-function gnome_font_dialog_new (is-constructor-of "GnomeFontDialog") (c-name "gnome_font_dialog_new") (return-type "GtkWidget*") (parameters '("const-gchar*" "title")) ) (define-method get_fontsel (of-object "GnomeFontDialog") (c-name "gnome_font_dialog_get_fontsel") (return-type "GtkWidget*") ) (define-method get_preview (of-object "GnomeFontDialog") (c-name "gnome_font_dialog_get_preview") (return-type "GtkWidget*") ) guile-gnome-platform-2.16.2/defs/gnome/defs/pango-types.defs0000644000175000017500000002075011670374302024253 0ustar00wingowingo00000000000000;; -*- scheme -*- ;; Enumerations and flags ... (define-enum AttrType (in-module "Pango") (c-name "PangoAttrType") (gtype-id "PANGO_TYPE_ATTR_TYPE") (values '("invalid" "PANGO_ATTR_INVALID") '("language" "PANGO_ATTR_LANGUAGE") '("family" "PANGO_ATTR_FAMILY") '("style" "PANGO_ATTR_STYLE") '("weight" "PANGO_ATTR_WEIGHT") '("variant" "PANGO_ATTR_VARIANT") '("stretch" "PANGO_ATTR_STRETCH") '("size" "PANGO_ATTR_SIZE") '("font-desc" "PANGO_ATTR_FONT_DESC") '("foreground" "PANGO_ATTR_FOREGROUND") '("background" "PANGO_ATTR_BACKGROUND") '("underline" "PANGO_ATTR_UNDERLINE") '("strikethrough" "PANGO_ATTR_STRIKETHROUGH") '("rise" "PANGO_ATTR_RISE") '("shape" "PANGO_ATTR_SHAPE") '("scale" "PANGO_ATTR_SCALE") '("fallback" "PANGO_ATTR_FALLBACK") '("letter-spacing" "PANGO_ATTR_LETTER_SPACING") '("underline-color" "PANGO_ATTR_UNDERLINE_COLOR") '("strikethrough-color" "PANGO_ATTR_STRIKETHROUGH_COLOR") '("absolute-size" "PANGO_ATTR_ABSOLUTE_SIZE") ) ) (define-enum Underline (in-module "Pango") (c-name "PangoUnderline") (gtype-id "PANGO_TYPE_UNDERLINE") (values '("none" "PANGO_UNDERLINE_NONE") '("single" "PANGO_UNDERLINE_SINGLE") '("double" "PANGO_UNDERLINE_DOUBLE") '("low" "PANGO_UNDERLINE_LOW") '("error" "PANGO_UNDERLINE_ERROR") ) ) (define-enum CoverageLevel (in-module "Pango") (c-name "PangoCoverageLevel") (gtype-id "PANGO_TYPE_COVERAGE_LEVEL") (values '("none" "PANGO_COVERAGE_NONE") '("fallback" "PANGO_COVERAGE_FALLBACK") '("approximate" "PANGO_COVERAGE_APPROXIMATE") '("exact" "PANGO_COVERAGE_EXACT") ) ) (define-enum Style (in-module "Pango") (c-name "PangoStyle") (gtype-id "PANGO_TYPE_STYLE") (values '("normal" "PANGO_STYLE_NORMAL") '("oblique" "PANGO_STYLE_OBLIQUE") '("italic" "PANGO_STYLE_ITALIC") ) ) (define-enum Variant (in-module "Pango") (c-name "PangoVariant") (gtype-id "PANGO_TYPE_VARIANT") (values '("normal" "PANGO_VARIANT_NORMAL") '("small-caps" "PANGO_VARIANT_SMALL_CAPS") ) ) (define-enum Weight (in-module "Pango") (c-name "PangoWeight") (gtype-id "PANGO_TYPE_WEIGHT") (values '("ultralight" "PANGO_WEIGHT_ULTRALIGHT") '("light" "PANGO_WEIGHT_LIGHT") '("normal" "PANGO_WEIGHT_NORMAL") '("semibold" "PANGO_WEIGHT_SEMIBOLD") '("bold" "PANGO_WEIGHT_BOLD") '("ultrabold" "PANGO_WEIGHT_ULTRABOLD") '("heavy" "PANGO_WEIGHT_HEAVY") ) ) (define-enum Stretch (in-module "Pango") (c-name "PangoStretch") (gtype-id "PANGO_TYPE_STRETCH") (values '("ultra-condensed" "PANGO_STRETCH_ULTRA_CONDENSED") '("extra-condensed" "PANGO_STRETCH_EXTRA_CONDENSED") '("condensed" "PANGO_STRETCH_CONDENSED") '("semi-condensed" "PANGO_STRETCH_SEMI_CONDENSED") '("normal" "PANGO_STRETCH_NORMAL") '("semi-expanded" "PANGO_STRETCH_SEMI_EXPANDED") '("expanded" "PANGO_STRETCH_EXPANDED") '("extra-expanded" "PANGO_STRETCH_EXTRA_EXPANDED") '("ultra-expanded" "PANGO_STRETCH_ULTRA_EXPANDED") ) ) (define-flags FontMask (in-module "Pango") (c-name "PangoFontMask") (gtype-id "PANGO_TYPE_FONT_MASK") (values '("family" "PANGO_FONT_MASK_FAMILY") '("style" "PANGO_FONT_MASK_STYLE") '("variant" "PANGO_FONT_MASK_VARIANT") '("weight" "PANGO_FONT_MASK_WEIGHT") '("stretch" "PANGO_FONT_MASK_STRETCH") '("size" "PANGO_FONT_MASK_SIZE") ) ) (define-enum Alignment (in-module "Pango") (c-name "PangoAlignment") (gtype-id "PANGO_TYPE_ALIGNMENT") (values '("left" "PANGO_ALIGN_LEFT") '("center" "PANGO_ALIGN_CENTER") '("right" "PANGO_ALIGN_RIGHT") ) ) (define-enum WrapMode (in-module "Pango") (c-name "PangoWrapMode") (gtype-id "PANGO_TYPE_WRAP_MODE") (values '("word" "PANGO_WRAP_WORD") '("char" "PANGO_WRAP_CHAR") '("word-char" "PANGO_WRAP_WORD_CHAR") ) ) (define-enum EllipsizeMode (in-module "Pango") (c-name "PangoEllipsizeMode") (gtype-id "PANGO_TYPE_ELLIPSIZE_MODE") (values '("none" "PANGO_ELLIPSIZE_NONE") '("start" "PANGO_ELLIPSIZE_START") '("middle" "PANGO_ELLIPSIZE_MIDDLE") '("end" "PANGO_ELLIPSIZE_END") ) ) (define-enum RenderPart (in-module "Pango") (c-name "PangoRenderPart") (gtype-id "PANGO_TYPE_RENDER_PART") (values '("foreground" "PANGO_RENDER_PART_FOREGROUND") '("background" "PANGO_RENDER_PART_BACKGROUND") '("underline" "PANGO_RENDER_PART_UNDERLINE") '("strikethrough" "PANGO_RENDER_PART_STRIKETHROUGH") ) ) (define-enum Script (in-module "Pango") (c-name "PangoScript") (gtype-id "PANGO_TYPE_SCRIPT") (values '("invalid-code" "PANGO_SCRIPT_INVALID_CODE") '("common" "PANGO_SCRIPT_COMMON") '("inherited" "PANGO_SCRIPT_INHERITED") '("arabic" "PANGO_SCRIPT_ARABIC") '("armenian" "PANGO_SCRIPT_ARMENIAN") '("bengali" "PANGO_SCRIPT_BENGALI") '("bopomofo" "PANGO_SCRIPT_BOPOMOFO") '("cherokee" "PANGO_SCRIPT_CHEROKEE") '("coptic" "PANGO_SCRIPT_COPTIC") '("cyrillic" "PANGO_SCRIPT_CYRILLIC") '("deseret" "PANGO_SCRIPT_DESERET") '("devanagari" "PANGO_SCRIPT_DEVANAGARI") '("ethiopic" "PANGO_SCRIPT_ETHIOPIC") '("georgian" "PANGO_SCRIPT_GEORGIAN") '("gothic" "PANGO_SCRIPT_GOTHIC") '("greek" "PANGO_SCRIPT_GREEK") '("gujarati" "PANGO_SCRIPT_GUJARATI") '("gurmukhi" "PANGO_SCRIPT_GURMUKHI") '("han" "PANGO_SCRIPT_HAN") '("hangul" "PANGO_SCRIPT_HANGUL") '("hebrew" "PANGO_SCRIPT_HEBREW") '("hiragana" "PANGO_SCRIPT_HIRAGANA") '("kannada" "PANGO_SCRIPT_KANNADA") '("katakana" "PANGO_SCRIPT_KATAKANA") '("khmer" "PANGO_SCRIPT_KHMER") '("lao" "PANGO_SCRIPT_LAO") '("latin" "PANGO_SCRIPT_LATIN") '("malayalam" "PANGO_SCRIPT_MALAYALAM") '("mongolian" "PANGO_SCRIPT_MONGOLIAN") '("myanmar" "PANGO_SCRIPT_MYANMAR") '("ogham" "PANGO_SCRIPT_OGHAM") '("old-italic" "PANGO_SCRIPT_OLD_ITALIC") '("oriya" "PANGO_SCRIPT_ORIYA") '("runic" "PANGO_SCRIPT_RUNIC") '("sinhala" "PANGO_SCRIPT_SINHALA") '("syriac" "PANGO_SCRIPT_SYRIAC") '("tamil" "PANGO_SCRIPT_TAMIL") '("telugu" "PANGO_SCRIPT_TELUGU") '("thaana" "PANGO_SCRIPT_THAANA") '("thai" "PANGO_SCRIPT_THAI") '("tibetan" "PANGO_SCRIPT_TIBETAN") '("canadian-aboriginal" "PANGO_SCRIPT_CANADIAN_ABORIGINAL") '("yi" "PANGO_SCRIPT_YI") '("tagalog" "PANGO_SCRIPT_TAGALOG") '("hanunoo" "PANGO_SCRIPT_HANUNOO") '("buhid" "PANGO_SCRIPT_BUHID") '("tagbanwa" "PANGO_SCRIPT_TAGBANWA") '("braille" "PANGO_SCRIPT_BRAILLE") '("cypriot" "PANGO_SCRIPT_CYPRIOT") '("limbu" "PANGO_SCRIPT_LIMBU") '("osmanya" "PANGO_SCRIPT_OSMANYA") '("shavian" "PANGO_SCRIPT_SHAVIAN") '("linear-b" "PANGO_SCRIPT_LINEAR_B") '("tai-le" "PANGO_SCRIPT_TAI_LE") '("ugaritic" "PANGO_SCRIPT_UGARITIC") '("new-tai-lue" "PANGO_SCRIPT_NEW_TAI_LUE") '("buginese" "PANGO_SCRIPT_BUGINESE") '("glagolitic" "PANGO_SCRIPT_GLAGOLITIC") '("tifinagh" "PANGO_SCRIPT_TIFINAGH") '("syloti-nagri" "PANGO_SCRIPT_SYLOTI_NAGRI") '("old-persian" "PANGO_SCRIPT_OLD_PERSIAN") '("kharoshthi" "PANGO_SCRIPT_KHAROSHTHI") '("unknown" "PANGO_SCRIPT_UNKNOWN") '("balinese" "PANGO_SCRIPT_BALINESE") '("cuneiform" "PANGO_SCRIPT_CUNEIFORM") '("phoenician" "PANGO_SCRIPT_PHOENICIAN") '("phags-pa" "PANGO_SCRIPT_PHAGS_PA") '("nko" "PANGO_SCRIPT_NKO") ) ) (define-enum TabAlign (in-module "Pango") (c-name "PangoTabAlign") (gtype-id "PANGO_TYPE_TAB_ALIGN") (values '("t" "PANGO_TAB_LEFT") ) ) (define-enum Direction (in-module "Pango") (c-name "PangoDirection") (gtype-id "PANGO_TYPE_DIRECTION") (values '("ltr" "PANGO_DIRECTION_LTR") '("rtl" "PANGO_DIRECTION_RTL") '("ttb-ltr" "PANGO_DIRECTION_TTB_LTR") '("ttb-rtl" "PANGO_DIRECTION_TTB_RTL") '("weak-ltr" "PANGO_DIRECTION_WEAK_LTR") '("weak-rtl" "PANGO_DIRECTION_WEAK_RTL") '("neutral" "PANGO_DIRECTION_NEUTRAL") ) ) ;; -*- scheme -*- ; object definitions ... (define-object Font (in-module "Pango") (parent "GObject") (c-name "PangoFont") (gtype-id "PANGO_TYPE_FONT") ) (define-object FontFace (in-module "Pango") (parent "GObject") (c-name "PangoFontFace") (gtype-id "PANGO_TYPE_FONT_FACE") ) (define-object FontFamily (in-module "Pango") (parent "GObject") (c-name "PangoFontFamily") (gtype-id "PANGO_TYPE_FONT_FAMILY") ) (define-object FontMap (in-module "Pango") (parent "GObject") (c-name "PangoFontMap") (gtype-id "PANGO_TYPE_FONT_MAP") ) (define-object Renderer (in-module "Pango") (parent "GObject") (c-name "PangoRenderer") (gtype-id "PANGO_TYPE_RENDERER") ) guile-gnome-platform-2.16.2/defs/gnome/defs/libgda-types.defs0000644000175000017500000001555511670374302024400 0ustar00wingowingo00000000000000;; -*- scheme -*- (define-object Client (in-module "Gda") (parent "GObject") (c-name "GdaClient") (gtype-id "GDA_TYPE_CLIENT") ) (define-object Connection (in-module "Gda") (parent "GObject") (c-name "GdaConnection") (gtype-id "GDA_TYPE_CONNECTION") ) (define-object DataModel (in-module "Gda") (parent "GObject") (c-name "GdaDataModel") (gtype-id "GDA_TYPE_DATA_MODEL") ) (define-object DataModelArray (in-module "Gda") (parent "GdaDataModel") (c-name "GdaDataModelArray") (gtype-id "GDA_TYPE_DATA_MODEL_ARRAY") ) (define-object DataModelHash (in-module "Gda") (parent "GdaDataModel") (c-name "GdaDataModelHash") (gtype-id "GDA_TYPE_DATA_MODEL_HASH") ) (define-object DataModelList (in-module "Gda") (parent "GdaDataModel") (c-name "GdaDataModelList") (gtype-id "GDA_TYPE_DATA_MODEL_LIST") ) (define-object Error (in-module "Gda") (parent "GObject") (c-name "GdaError") (gtype-id "GDA_TYPE_ERROR") ) ;; I get an error for this one: ;; /home/andy/share/guile/gnome/gobject.scm:170:9: In procedure %gtype-bind-to-class in expression (%gtype-bind-to-class class type): ;; /home/andy/share/guile/gnome/gobject.scm:170:9: GLib-GObject: gsignal.c:1392: signal "finished" already exists in the `GdaExport' class ancestry ;; ABORT: (gruntime-error) ; (define-object Export ; (in-module "Gda") ; (parent "GObject") ; (c-name "GdaExport") ; (gtype-id "GDA_TYPE_EXPORT") ; ) (define-object Select (in-module "Gda") (parent "GdaDataModelArray") (c-name "GdaSelect") (gtype-id "GDA_TYPE_SELECT") ) (define-object Table (in-module "Gda") (parent "GdaDataModelArray") (c-name "GdaTable") (gtype-id "GDA_TYPE_TABLE") ) (define-object Transaction (in-module "Gda") (parent "GObject") (c-name "GdaTransaction") (gtype-id "GDA_TYPE_TRANSACTION") ) (define-flags BlobMode (in-module "Gda") (c-name "GdaBlobMode") (gtype-id "GDA_TYPE_BLOB_MODE") (values '("read" "GDA_BLOB_MODE_READ") '("write" "GDA_BLOB_MODE_WRITE") '("rdwr" "GDA_BLOB_MODE_RDWR") ) ) (define-enum ClientEvent (in-module "Gda") (c-name "GdaClientEvent") (gtype-id "GDA_TYPE_CLIENT_EVENT") (values '("invalid" "GDA_CLIENT_EVENT_INVALID") '("error" "GDA_CLIENT_EVENT_ERROR") '("connection-opened" "GDA_CLIENT_EVENT_CONNECTION_OPENED") '("connection-closed" "GDA_CLIENT_EVENT_CONNECTION_CLOSED") '("transaction-started" "GDA_CLIENT_EVENT_TRANSACTION_STARTED") '("transaction-committed" "GDA_CLIENT_EVENT_TRANSACTION_COMMITTED") '("transaction-cancelled" "GDA_CLIENT_EVENT_TRANSACTION_CANCELLED") ) ) (define-flags CommandOptions (in-module "Gda") (c-name "GdaCommandOptions") (gtype-id "GDA_TYPE_COMMAND_OPTIONS") (values '("ignore-errors" "GDA_COMMAND_OPTION_IGNORE_ERRORS") '("stop-on-errors" "GDA_COMMAND_OPTION_STOP_ON_ERRORS") '("bad-option" "GDA_COMMAND_OPTION_BAD_OPTION") ) ) (define-enum CommandType (in-module "Gda") (c-name "GdaCommandType") (gtype-id "GDA_TYPE_COMMAND_TYPE") (values '("sql" "GDA_COMMAND_TYPE_SQL") '("xml" "GDA_COMMAND_TYPE_XML") '("procedure" "GDA_COMMAND_TYPE_PROCEDURE") '("table" "GDA_COMMAND_TYPE_TABLE") '("schema" "GDA_COMMAND_TYPE_SCHEMA") '("invalid" "GDA_COMMAND_TYPE_INVALID") ) ) (define-flags ConnectionOptions (in-module "Gda") (c-name "GdaConnectionOptions") (gtype-id "GDA_TYPE_CONNECTION_OPTIONS") (values '("read-only" "GDA_CONNECTION_OPTIONS_READ_ONLY") '("dont-share" "GDA_CONNECTION_OPTIONS_DONT_SHARE") ) ) (define-enum ConnectionFeature (in-module "Gda") (c-name "GdaConnectionFeature") (gtype-id "GDA_TYPE_CONNECTION_FEATURE") (values '("aggregates" "GDA_CONNECTION_FEATURE_AGGREGATES") '("indexes" "GDA_CONNECTION_FEATURE_INDEXES") '("inheritance" "GDA_CONNECTION_FEATURE_INHERITANCE") '("namespaces" "GDA_CONNECTION_FEATURE_NAMESPACES") '("procedures" "GDA_CONNECTION_FEATURE_PROCEDURES") '("sequences" "GDA_CONNECTION_FEATURE_SEQUENCES") '("sql" "GDA_CONNECTION_FEATURE_SQL") '("transactions" "GDA_CONNECTION_FEATURE_TRANSACTIONS") '("triggers" "GDA_CONNECTION_FEATURE_TRIGGERS") '("users" "GDA_CONNECTION_FEATURE_USERS") '("views" "GDA_CONNECTION_FEATURE_VIEWS") '("xml-queries" "GDA_CONNECTION_FEATURE_XML_QUERIES") '("blobs" "GDA_CONNECTION_FEATURE_BLOBS") ) ) (define-enum ConnectionSchema (in-module "Gda") (c-name "GdaConnectionSchema") (gtype-id "GDA_TYPE_CONNECTION_SCHEMA") (values '("aggregates" "GDA_CONNECTION_SCHEMA_AGGREGATES") '("databases" "GDA_CONNECTION_SCHEMA_DATABASES") '("fields" "GDA_CONNECTION_SCHEMA_FIELDS") '("indexes" "GDA_CONNECTION_SCHEMA_INDEXES") '("languages" "GDA_CONNECTION_SCHEMA_LANGUAGES") '("namespaces" "GDA_CONNECTION_SCHEMA_NAMESPACES") '("parent-tables" "GDA_CONNECTION_SCHEMA_PARENT_TABLES") '("procedures" "GDA_CONNECTION_SCHEMA_PROCEDURES") '("sequences" "GDA_CONNECTION_SCHEMA_SEQUENCES") '("tables" "GDA_CONNECTION_SCHEMA_TABLES") '("triggers" "GDA_CONNECTION_SCHEMA_TRIGGERS") '("types" "GDA_CONNECTION_SCHEMA_TYPES") '("users" "GDA_CONNECTION_SCHEMA_USERS") '("views" "GDA_CONNECTION_SCHEMA_VIEWS") ) ) (define-enum ExportFlags (in-module "Gda") (c-name "GdaExportFlags") (gtype-id "GDA_TYPE_EXPORT_FLAGS") (values '("a" "GDA_EXPORT_FLAGS_TABLE_DATA") ) ) (define-enum TransactionIsolation (in-module "Gda") (c-name "GdaTransactionIsolation") (gtype-id "GDA_TYPE_TRANSACTION_ISOLATION") (values '("unknown" "GDA_TRANSACTION_ISOLATION_UNKNOWN") '("read-committed" "GDA_TRANSACTION_ISOLATION_READ_COMMITTED") '("read-uncommitted" "GDA_TRANSACTION_ISOLATION_READ_UNCOMMITTED") '("repeatable-read" "GDA_TRANSACTION_ISOLATION_REPEATABLE_READ") '("serializable" "GDA_TRANSACTION_ISOLATION_SERIALIZABLE") ) ) (define-enum ValueType (in-module "Gda") (c-name "GdaValueType") (gtype-id "GDA_TYPE_VALUE_TYPE") (values '("null" "GDA_VALUE_TYPE_NULL") '("bigint" "GDA_VALUE_TYPE_BIGINT") '("biguint" "GDA_VALUE_TYPE_BIGUINT") '("binary" "GDA_VALUE_TYPE_BINARY") '("blob" "GDA_VALUE_TYPE_BLOB") '("boolean" "GDA_VALUE_TYPE_BOOLEAN") '("date" "GDA_VALUE_TYPE_DATE") '("double" "GDA_VALUE_TYPE_DOUBLE") '("geometric-point" "GDA_VALUE_TYPE_GEOMETRIC_POINT") '("gobject" "GDA_VALUE_TYPE_GOBJECT") '("integer" "GDA_VALUE_TYPE_INTEGER") '("list" "GDA_VALUE_TYPE_LIST") '("money" "GDA_VALUE_TYPE_MONEY") '("numeric" "GDA_VALUE_TYPE_NUMERIC") '("single" "GDA_VALUE_TYPE_SINGLE") '("smallint" "GDA_VALUE_TYPE_SMALLINT") '("smalluint" "GDA_VALUE_TYPE_SMALLUINT") '("string" "GDA_VALUE_TYPE_STRING") '("time" "GDA_VALUE_TYPE_TIME") '("timestamp" "GDA_VALUE_TYPE_TIMESTAMP") '("tinyint" "GDA_VALUE_TYPE_TINYINT") '("tinyuint" "GDA_VALUE_TYPE_TINYUINT") '("type" "GDA_VALUE_TYPE_TYPE") '("uinteger" "GDA_VALUE_TYPE_UINTEGER") '("unknown" "GDA_VALUE_TYPE_UNKNOWN") ) ) guile-gnome-platform-2.16.2/defs/gnome/defs/common-ignores.defs0000644000175000017500000000244111670374302024736 0ustar00wingowingo00000000000000;; -*- scheme -*- ;; guile-gnome ;; Copyright (C) 2004 Andreas Rottmann ;; This program is free software; you can redistribute it and/or ;; modify it under the terms of the GNU General Public License as ;; published by the Free Software Foundation; either version 2 of ;; the License, or (at your option) any later version. ;; ;; This program is distributed in the hope that it will be useful, ;; but WITHOUT ANY WARRANTY; without even the implied warranty of ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the ;; GNU General Public License for more details. ;; ;; You should have received a copy of the GNU General Public License ;; along with this program; if not, contact: ;; ;; Free Software Foundation Voice: +1-617-542-5942 ;; 59 Temple Place - Suite 330 Fax: +1-617-542-2652 ;; Boston, MA 02111-1307, USA gnu@gnu.org (ignore-glob "*_get_type" "_*" "*_ref" "*_unref" "*_free" "*_newv" "*_valist" "*_setv" "*_foreach" "*_valist") guile-gnome-platform-2.16.2/defs/gnome/defs/gtkhtml2.defs0000644000175000017500000001461111670374302023540 0ustar00wingowingo00000000000000;; -*- scheme -*- ; object definitions ... (define-object HtmlContext (in-module "Gtk") (parent "GObject") (c-name "GtkHtmlContext") (gtype-id "GTK_HTML_CONTEXT_TYPE") ) (define-object View (in-module "Html") (parent "GtkLayout") (c-name "HtmlView") (gtype-id "HTML_TYPE_VIEW") (fields '("HtmlDocumen*" "document") ) ) ;; Enumerations and flags ... ;; From /usr/include/gtkhtml-2.0/libgtkhtml/gtkhtmlcontext.h (define-function gtk_html_context_get_type (c-name "gtk_html_context_get_type") (return-type "GType") ) (define-function gtk_html_context_get (c-name "gtk_html_context_get") (return-type "GtkHtmlContext*") ) ;; From /usr/include/gtkhtml-2.0/libgtkhtml/view/htmlselection.h (define-function html_selection_end (c-name "html_selection_end") (return-type "none") (parameters '("HtmlView*" "view") '("GdkEventButton*" "event") ) ) (define-function html_selection_update (c-name "html_selection_update") (return-type "none") (parameters '("HtmlView*" "view") '("GdkEventMotion*" "event") ) ) (define-function html_selection_clear (c-name "html_selection_clear") (return-type "none") (parameters '("HtmlView*" "view") ) ) (define-function html_selection_set (c-name "html_selection_set") (return-type "none") (parameters '("HtmlView*" "view") '("DomNode*" "start") '("int" "offset") '("int" "len") ) ) ;; From /usr/include/gtkhtml-2.0/libgtkhtml/view/htmlview.h (define-function html_view_get_type (c-name "html_view_get_type") (return-type "GType") ) (define-function html_view_new (is-constructor-of HtmlView) (c-name "html_view_new") ) (define-method set_document (of-object "HtmlView") (c-name "html_view_set_document") (return-type "none") (parameters '("HtmlDocument*" "document") ) ) (define-method jump_to_anchor (of-object "HtmlView") (c-name "html_view_jump_to_anchor") (return-type "none") (parameters '("const-gchar*" "anchor") ) ) (define-method get_magnification (of-object "HtmlView") (c-name "html_view_get_magnification") (return-type "gdouble") ) (define-method set_magnification (of-object "HtmlView") (c-name "html_view_set_magnification") (return-type "none") (parameters '("gdouble" "magnification") ) ) (define-method zoom_in (of-object "HtmlView") (c-name "html_view_zoom_in") (return-type "none") ) (define-method zoom_out (of-object "HtmlView") (c-name "html_view_zoom_out") (return-type "none") ) (define-method zoom_reset (of-object "HtmlView") (c-name "html_view_zoom_reset") (return-type "none") ) (define-method find_layout_box (of-object "HtmlView") (c-name "html_view_find_layout_box") (return-type "HtmlBox*") (parameters '("DomNode*" "node") '("gboolean" "find_parent") ) ) ;; -*- scheme -*- ; object definitions ... (define-object Document (in-module "Html") (parent "GObject") (c-name "HtmlDocument") (gtype-id "HTML_TYPE_DOCUMENT") ) ;; Enumerations and flags ... (define-enum DocumentState (in-module "Html") (c-name "HtmlDocumentState") (values '("done" "HTML_DOCUMENT_STATE_DONE") '("parsing" "HTML_DOCUMENT_STATE_PARSING") ) ) ;; From /usr/include/gtkhtml-2.0/libgtkhtml/document/htmldocument.h (define-function html_document_get_type (c-name "html_document_get_type") (return-type "GType") ) (define-function html_document_new (is-constructor-of HtmlDocument) (c-name "html_document_new") ) (define-method open_stream (of-object "HtmlDocument") (c-name "html_document_open_stream") (return-type "gboolean") (parameters '("const-gchar*" "mime_type") ) ) (define-method write_stream (of-object "HtmlDocument") (c-name "html_document_write_stream") (return-type "none") (parameters '("const-gchar*" "buffer") '("gint" "len") ) ) (define-method close_stream (of-object "HtmlDocument") (c-name "html_document_close_stream") (return-type "none") ) (define-method clear (of-object "HtmlDocument") (c-name "html_document_clear") (return-type "none") ) (define-method update_hover_node (of-object "HtmlDocument") (c-name "html_document_update_hover_node") (return-type "none") (parameters '("DomNode*" "node") ) ) (define-method update_active_node (of-object "HtmlDocument") (c-name "html_document_update_active_node") (return-type "none") (parameters '("DomNode*" "node") ) ) (define-method update_focus_element (of-object "HtmlDocument") (c-name "html_document_update_focus_element") (return-type "none") (parameters '("DomElement*" "element") ) ) (define-method find_anchor (of-object "HtmlDocument") (c-name "html_document_find_anchor") (return-type "DomNode*") (parameters '("const-gchar*" "anchor") ) ) ;; -*- scheme -*- ; object definitions ... (define-object Stream (in-module "Html") (parent "GObject") (c-name "HtmlStream") (gtype-id "HTML_TYPE_STREAM") ) ;; Enumerations and flags ... ;; From /usr/include/gtkhtml-2.0/libgtkhtml/util/htmlstream.h (define-function html_stream_get_type (c-name "html_stream_get_type") (return-type "GType") ) (define-function html_stream_new (c-name "html_stream_new") (is-constructor-of HtmlStream) (parameters '("HtmlStreamWriteFunc" "write_func") '("HtmlStreamCloseFunc" "close_func") '("gpointer" "user_data") ) ) (define-method write (of-object "HtmlStream") (c-name "html_stream_write") (return-type "none") (parameters '("const-gchar*" "buffer") '("guint" "size") ) ) (define-method close (of-object "HtmlStream") (c-name "html_stream_close") (return-type "none") ) (define-method destroy (of-object "HtmlStream") (c-name "html_stream_destroy") (return-type "none") ) (define-method get_written (of-object "HtmlStream") (c-name "html_stream_get_written") (return-type "gint") ) (define-method cancel (of-object "HtmlStream") (c-name "html_stream_cancel") (return-type "none") ) (define-method set_cancel_func (of-object "HtmlStream") (c-name "html_stream_set_cancel_func") (return-type "none") (parameters '("HtmlStreamCancelFunc" "abort_func") '("gpointer" "cancel_data") ) ) (define-method get_mime_type (of-object "HtmlStream") (c-name "html_stream_get_mime_type") (return-type "const-char*") ) (define-method set_mime_type (of-object "HtmlStream") (c-name "html_stream_set_mime_type") (return-type "none") (parameters '("const-char*" "mime_type") ) ) guile-gnome-platform-2.16.2/defs/Makefile.am0000644000175000017500000000045511752516513021153 0ustar00wingowingo00000000000000include $(top_srcdir)/common.mk SUBDIRS = gnome tools EXTRA_DIST = ChangeLog.pre-2.16 README AUTHORS \ guile-gnome-defs.pc.in guile-gnome-defs-uninstalled.pc.in all-local: $(pcifiles) $(pcufiles) pkgconfigdir = $(libdir)/pkgconfig pkgconfig_DATA = $(pcifiles) CLEANFILES = $(pcifiles) $(pcufiles) guile-gnome-platform-2.16.2/defs/Makefile.in0000644000175000017500000006055111752520652021166 0ustar00wingowingo00000000000000# Makefile.in generated by automake 1.11.5 from Makefile.am. # @configure_input@ # Copyright (C) 1994, 1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, # 2003, 2004, 2005, 2006, 2007, 2008, 2009, 2010, 2011 Free Software # Foundation, Inc. # This Makefile.in is free software; the Free Software Foundation # gives unlimited permission to copy and/or distribute it, # with or without modifications, as long as this notice is preserved. # This program is distributed in the hope that it will be useful, # but WITHOUT ANY WARRANTY, to the extent permitted by law; without # even the implied warranty of MERCHANTABILITY or FITNESS FOR A # PARTICULAR PURPOSE. @SET_MAKE@ # guile-gnome # Copyright (C) 2003,2004,2009,2012 Free Software Foundation, Inc. # This program is free software; you can redistribute it and/or # modify it under the terms of the GNU General Public License as # published by the Free Software Foundation; either version 2 of # the License, or (at your option) any later version. # This program is distributed in the hope that it will be useful, # but WITHOUT ANY WARRANTY; without even the implied warranty of # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the # GNU General Public License for more details. # You should have received a copy of the GNU General Public License # along with this program; if not, contact: # Free Software Foundation Voice: +1-617-542-5942 # 59 Temple Place - Suite 330 Fax: +1-617-542-2652 # Boston, MA 02111-1307, USA gnu@gnu.org # # Makefile snippet # VPATH = @srcdir@ am__make_dryrun = \ { \ am__dry=no; \ case $$MAKEFLAGS in \ *\\[\ \ ]*) \ echo 'am--echo: ; @echo "AM" OK' | $(MAKE) -f - 2>/dev/null \ | grep '^AM OK$$' >/dev/null || am__dry=yes;; \ *) \ for am__flg in $$MAKEFLAGS; do \ case $$am__flg in \ *=*|--*) ;; \ *n*) am__dry=yes; break;; \ esac; \ done;; \ esac; \ test $$am__dry = yes; \ } pkgdatadir = $(datadir)/@PACKAGE@ pkgincludedir = $(includedir)/@PACKAGE@ pkglibdir = $(libdir)/@PACKAGE@ pkglibexecdir = $(libexecdir)/@PACKAGE@ am__cd = CDPATH="$${ZSH_VERSION+.}$(PATH_SEPARATOR)" && cd install_sh_DATA = $(install_sh) -c -m 644 install_sh_PROGRAM = $(install_sh) -c install_sh_SCRIPT = $(install_sh) -c INSTALL_HEADER = $(INSTALL_DATA) transform = $(program_transform_name) NORMAL_INSTALL = : PRE_INSTALL = : POST_INSTALL = : NORMAL_UNINSTALL = : PRE_UNINSTALL = : POST_UNINSTALL = : build_triplet = @build@ host_triplet = @host@ DIST_COMMON = README $(srcdir)/Makefile.am $(srcdir)/Makefile.in \ $(srcdir)/guile-gnome-defs-uninstalled.pc.in \ $(srcdir)/guile-gnome-defs.pc.in $(top_srcdir)/common.mk \ AUTHORS ChangeLog subdir = defs ACLOCAL_M4 = $(top_srcdir)/aclocal.m4 am__aclocal_m4_deps = $(top_srcdir)/configure.ac am__configure_deps = $(am__aclocal_m4_deps) $(CONFIGURE_DEPENDENCIES) \ $(ACLOCAL_M4) mkinstalldirs = $(install_sh) -d CONFIG_HEADER = $(top_builddir)/config.h CONFIG_CLEAN_FILES = guile-gnome-defs.pc \ guile-gnome-defs-uninstalled.pc CONFIG_CLEAN_VPATH_FILES = SOURCES = DIST_SOURCES = RECURSIVE_TARGETS = all-recursive check-recursive dvi-recursive \ html-recursive info-recursive install-data-recursive \ install-dvi-recursive install-exec-recursive \ install-html-recursive install-info-recursive \ install-pdf-recursive install-ps-recursive install-recursive \ installcheck-recursive installdirs-recursive pdf-recursive \ ps-recursive uninstall-recursive am__can_run_installinfo = \ case $$AM_UPDATE_INFO_DIR in \ n|no|NO) false;; \ *) (install-info --version) >/dev/null 2>&1;; \ esac am__vpath_adj_setup = srcdirstrip=`echo "$(srcdir)" | sed 's|.|.|g'`; am__vpath_adj = case $$p in \ $(srcdir)/*) f=`echo "$$p" | sed "s|^$$srcdirstrip/||"`;; \ *) f=$$p;; \ esac; am__strip_dir = f=`echo $$p | sed -e 's|^.*/||'`; am__install_max = 40 am__nobase_strip_setup = \ srcdirstrip=`echo "$(srcdir)" | sed 's/[].[^$$\\*|]/\\\\&/g'` am__nobase_strip = \ for p in $$list; do echo "$$p"; done | sed -e "s|$$srcdirstrip/||" am__nobase_list = $(am__nobase_strip_setup); \ for p in $$list; do echo "$$p $$p"; done | \ sed "s| $$srcdirstrip/| |;"' / .*\//!s/ .*/ ./; s,\( .*\)/[^/]*$$,\1,' | \ $(AWK) 'BEGIN { files["."] = "" } { files[$$2] = files[$$2] " " $$1; \ if (++n[$$2] == $(am__install_max)) \ { print $$2, files[$$2]; n[$$2] = 0; files[$$2] = "" } } \ END { for (dir in files) print dir, files[dir] }' am__base_list = \ sed '$$!N;$$!N;$$!N;$$!N;$$!N;$$!N;$$!N;s/\n/ /g' | \ sed '$$!N;$$!N;$$!N;$$!N;s/\n/ /g' am__uninstall_files_from_dir = { \ test -z "$$files" \ || { test ! -d "$$dir" && test ! -f "$$dir" && test ! -r "$$dir"; } \ || { echo " ( cd '$$dir' && rm -f" $$files ")"; \ $(am__cd) "$$dir" && rm -f $$files; }; \ } am__installdirs = "$(DESTDIR)$(pkgconfigdir)" DATA = $(pkgconfig_DATA) RECURSIVE_CLEAN_TARGETS = mostlyclean-recursive clean-recursive \ distclean-recursive maintainer-clean-recursive AM_RECURSIVE_TARGETS = $(RECURSIVE_TARGETS:-recursive=) \ $(RECURSIVE_CLEAN_TARGETS:-recursive=) tags TAGS ctags CTAGS \ distdir ETAGS = etags CTAGS = ctags DIST_SUBDIRS = $(SUBDIRS) DISTFILES = $(DIST_COMMON) $(DIST_SOURCES) $(TEXINFOS) $(EXTRA_DIST) am__relativize = \ dir0=`pwd`; \ sed_first='s,^\([^/]*\)/.*$$,\1,'; \ sed_rest='s,^[^/]*/*,,'; \ sed_last='s,^.*/\([^/]*\)$$,\1,'; \ sed_butlast='s,/*[^/]*$$,,'; \ while test -n "$$dir1"; do \ first=`echo "$$dir1" | sed -e "$$sed_first"`; \ if test "$$first" != "."; then \ if test "$$first" = ".."; then \ dir2=`echo "$$dir0" | sed -e "$$sed_last"`/"$$dir2"; \ dir0=`echo "$$dir0" | sed -e "$$sed_butlast"`; \ else \ first2=`echo "$$dir2" | sed -e "$$sed_first"`; \ if test "$$first2" = "$$first"; then \ dir2=`echo "$$dir2" | sed -e "$$sed_rest"`; \ else \ dir2="../$$dir2"; \ fi; \ dir0="$$dir0"/"$$first"; \ fi; \ fi; \ dir1=`echo "$$dir1" | sed -e "$$sed_rest"`; \ done; \ reldir="$$dir2" ACLOCAL = @ACLOCAL@ AG_PKG_CONFIG_PATH = @AG_PKG_CONFIG_PATH@ AMTAR = @AMTAR@ API_VERSION = @API_VERSION@ AR = @AR@ ATK_CFLAGS = @ATK_CFLAGS@ ATK_LIBS = @ATK_LIBS@ AUTOCONF = @AUTOCONF@ AUTOHEADER = @AUTOHEADER@ AUTOMAKE = @AUTOMAKE@ AWK = @AWK@ BONOBO_IDL_DIR = @BONOBO_IDL_DIR@ CANVAS_CFLAGS = @CANVAS_CFLAGS@ CANVAS_LIBS = @CANVAS_LIBS@ CC = @CC@ CCDEPMODE = @CCDEPMODE@ CFLAGS = @CFLAGS@ CORBA_CFLAGS = @CORBA_CFLAGS@ CORBA_LIBS = @CORBA_LIBS@ CPP = @CPP@ CPPFLAGS = @CPPFLAGS@ CYGPATH_W = @CYGPATH_W@ DEFS = @DEFS@ DEPDIR = @DEPDIR@ DLLTOOL = @DLLTOOL@ DSYMUTIL = @DSYMUTIL@ DUMPBIN = @DUMPBIN@ ECHO_C = @ECHO_C@ ECHO_N = @ECHO_N@ ECHO_T = @ECHO_T@ EGREP = @EGREP@ EXEEXT = @EXEEXT@ FGREP = @FGREP@ GCONF_CFLAGS = @GCONF_CFLAGS@ GCONF_LIBS = @GCONF_LIBS@ GDK_CFLAGS = @GDK_CFLAGS@ GDK_LIBS = @GDK_LIBS@ GDK_PIXBUF_CFLAGS = @GDK_PIXBUF_CFLAGS@ GDK_PIXBUF_LIBS = @GDK_PIXBUF_LIBS@ GLIB_CFLAGS = @GLIB_CFLAGS@ GLIB_LIBS = @GLIB_LIBS@ GNOMEUI_DEPRECATION_FLAGS = @GNOMEUI_DEPRECATION_FLAGS@ GNOME_VFS_CFLAGS = @GNOME_VFS_CFLAGS@ GNOME_VFS_DEPRECATED_CFLAGS = @GNOME_VFS_DEPRECATED_CFLAGS@ GNOME_VFS_LIBS = @GNOME_VFS_LIBS@ GOBJECT_CFLAGS = @GOBJECT_CFLAGS@ GOBJECT_LIBS = @GOBJECT_LIBS@ GREP = @GREP@ GTHREAD_CFLAGS = @GTHREAD_CFLAGS@ GTHREAD_LIBS = @GTHREAD_LIBS@ GTK_CFLAGS = @GTK_CFLAGS@ GTK_DEPRECATED_CFLAGS = @GTK_DEPRECATED_CFLAGS@ GTK_LIBS = @GTK_LIBS@ GUILE_CAIRO_CFLAGS = @GUILE_CAIRO_CFLAGS@ GUILE_CAIRO_LIBS = @GUILE_CAIRO_LIBS@ GUILE_CFLAGS = @GUILE_CFLAGS@ GUILE_EFFECTIVE_VERSION = @GUILE_EFFECTIVE_VERSION@ GUILE_GLIB_CFLAGS = @GUILE_GLIB_CFLAGS@ GUILE_GLIB_LIBS = @GUILE_GLIB_LIBS@ GUILE_LIBS = @GUILE_LIBS@ G_WRAP_CFLAGS = @G_WRAP_CFLAGS@ G_WRAP_LIBS = @G_WRAP_LIBS@ G_WRAP_LIB_DIR = @G_WRAP_LIB_DIR@ G_WRAP_MODULE_DIR = @G_WRAP_MODULE_DIR@ INSTALL = @INSTALL@ INSTALL_DATA = @INSTALL_DATA@ INSTALL_PROGRAM = @INSTALL_PROGRAM@ INSTALL_SCRIPT = @INSTALL_SCRIPT@ INSTALL_STRIP_PROGRAM = @INSTALL_STRIP_PROGRAM@ LD = @LD@ LDFLAGS = @LDFLAGS@ LIBGLADE_CFLAGS = @LIBGLADE_CFLAGS@ LIBGLADE_LIBS = @LIBGLADE_LIBS@ LIBGNOMEUI_CFLAGS = @LIBGNOMEUI_CFLAGS@ LIBGNOMEUI_LIBS = @LIBGNOMEUI_LIBS@ LIBGNOME_CFLAGS = @LIBGNOME_CFLAGS@ LIBGNOME_LIBS = @LIBGNOME_LIBS@ LIBOBJS = @LIBOBJS@ LIBS = @LIBS@ LIBTOOL = @LIBTOOL@ LIPO = @LIPO@ LN_S = @LN_S@ LTLIBOBJS = @LTLIBOBJS@ MAKEINFO = @MAKEINFO@ MANIFEST_TOOL = @MANIFEST_TOOL@ MKDIR_P = @MKDIR_P@ NM = @NM@ NMEDIT = @NMEDIT@ OBJDUMP = @OBJDUMP@ OBJEXT = @OBJEXT@ ORBIT_IDL = @ORBIT_IDL@ OTOOL = @OTOOL@ OTOOL64 = @OTOOL64@ PACKAGE = @PACKAGE@ PACKAGE_BUGREPORT = @PACKAGE_BUGREPORT@ PACKAGE_NAME = @PACKAGE_NAME@ PACKAGE_STRING = @PACKAGE_STRING@ PACKAGE_TARNAME = @PACKAGE_TARNAME@ PACKAGE_URL = @PACKAGE_URL@ PACKAGE_VERSION = @PACKAGE_VERSION@ PANGOCAIRO_CFLAGS = @PANGOCAIRO_CFLAGS@ PANGOCAIRO_LIBS = @PANGOCAIRO_LIBS@ PANGO_CFLAGS = @PANGO_CFLAGS@ PANGO_LIBS = @PANGO_LIBS@ PATH_SEPARATOR = @PATH_SEPARATOR@ PKG_CONFIG = @PKG_CONFIG@ PKG_CONFIG_LIBDIR = @PKG_CONFIG_LIBDIR@ PKG_CONFIG_PATH = @PKG_CONFIG_PATH@ RANLIB = @RANLIB@ SED = @SED@ SET_MAKE = @SET_MAKE@ SHELL = @SHELL@ STRIP = @STRIP@ VERSION = @VERSION@ WARN_CFLAGS = @WARN_CFLAGS@ abs_builddir = @abs_builddir@ abs_srcdir = @abs_srcdir@ abs_top_builddir = @abs_top_builddir@ abs_top_srcdir = @abs_top_srcdir@ ac_ct_AR = @ac_ct_AR@ ac_ct_CC = @ac_ct_CC@ ac_ct_DUMPBIN = @ac_ct_DUMPBIN@ am__include = @am__include@ am__leading_dot = @am__leading_dot@ am__quote = @am__quote@ am__tar = @am__tar@ am__untar = @am__untar@ bindir = @bindir@ build = @build@ build_alias = @build_alias@ build_cpu = @build_cpu@ build_os = @build_os@ build_vendor = @build_vendor@ builddir = @builddir@ datadir = @datadir@ datarootdir = @datarootdir@ docdir = @docdir@ dvidir = @dvidir@ exec_prefix = @exec_prefix@ host = @host@ host_alias = @host_alias@ host_cpu = @host_cpu@ host_os = @host_os@ host_vendor = @host_vendor@ htmldir = @htmldir@ includedir = @includedir@ infodir = @infodir@ install_sh = @install_sh@ libdir = @libdir@ libexecdir = @libexecdir@ localedir = @localedir@ localstatedir = @localstatedir@ mandir = @mandir@ mkdir_p = @mkdir_p@ oldincludedir = @oldincludedir@ pdfdir = @pdfdir@ prefix = @prefix@ program_transform_name = @program_transform_name@ psdir = @psdir@ sbindir = @sbindir@ sharedstatedir = @sharedstatedir@ srcdir = @srcdir@ sysconfdir = @sysconfdir@ target_alias = @target_alias@ top_build_prefix = @top_build_prefix@ top_builddir = @top_builddir@ top_srcdir = @top_srcdir@ guilegnomedir = $(datadir)/guile-gnome-@API_VERSION@ guilemoduledir = $(guilegnomedir)/gnome guilegwmoduledir = $(guilegnomedir)/gnome/gw guilegnomelibdir = $(libdir)/guile-gnome-@API_VERSION@ AM_CFLAGS = -I. -I$(srcdir) $(WARN_CFLAGS) $(DEBUG_CFLAGS) # For overriding from the command line (e.g. --debug) GUILE_FLAGS = SUFFIXES = .x .doc GUILE_SNARF_CFLAGS = $(DEFS) $(AM_CFLAGS) $(GUILE_CFLAGS) $(G_WRAP_CFLAGS) PACKAGES = atk cairo corba defs gconf glib gnome-vfs gtk libglade libgnome libgnomecanvas libgnomeui pango SOURCE_GUILE_PATH = $(shell echo $(addprefix $(top_srcdir)/,$(PACKAGES)) | sed -e 's/ /:/g'):$(srcdir) BUILD_GUILE_PATH = $(if $(filter-out $(top_srcdir),$(top_builddir)),$(shell echo -n $(addprefix $(top_builddir)/,$(PACKAGES)): | sed -e 's/ /:/g'),) GUILE_LOAD_PATH := $(BUILD_GUILE_PATH)$(SOURCE_GUILE_PATH):${G_WRAP_MODULE_DIR}:${GUILE_LOAD_PATH} # Real gnu make foo packages = $(filter-out %-uninstalled,$(patsubst %.pc.in,%,$(notdir $(wildcard $(srcdir)/*.pc.in)))) pcifiles = $(patsubst %,%-@API_VERSION@.pc,$(packages)) pcufiles = $(patsubst %,%-@API_VERSION@-uninstalled.pc,$(packages)) SUBDIRS = gnome tools EXTRA_DIST = ChangeLog.pre-2.16 README AUTHORS \ guile-gnome-defs.pc.in guile-gnome-defs-uninstalled.pc.in pkgconfigdir = $(libdir)/pkgconfig pkgconfig_DATA = $(pcifiles) CLEANFILES = $(pcifiles) $(pcufiles) all: all-recursive .SUFFIXES: .SUFFIXES: .x .doc .c $(srcdir)/Makefile.in: $(srcdir)/Makefile.am $(top_srcdir)/common.mk $(am__configure_deps) @for dep in $?; do \ case '$(am__configure_deps)' in \ *$$dep*) \ ( cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh ) \ && { if test -f $@; then exit 0; else break; fi; }; \ exit 1;; \ esac; \ done; \ echo ' cd $(top_srcdir) && $(AUTOMAKE) --gnu defs/Makefile'; \ $(am__cd) $(top_srcdir) && \ $(AUTOMAKE) --gnu defs/Makefile .PRECIOUS: Makefile Makefile: $(srcdir)/Makefile.in $(top_builddir)/config.status @case '$?' in \ *config.status*) \ cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh;; \ *) \ echo ' cd $(top_builddir) && $(SHELL) ./config.status $(subdir)/$@ $(am__depfiles_maybe)'; \ cd $(top_builddir) && $(SHELL) ./config.status $(subdir)/$@ $(am__depfiles_maybe);; \ esac; $(top_srcdir)/common.mk: $(top_builddir)/config.status: $(top_srcdir)/configure $(CONFIG_STATUS_DEPENDENCIES) cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh $(top_srcdir)/configure: $(am__configure_deps) cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh $(ACLOCAL_M4): $(am__aclocal_m4_deps) cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh $(am__aclocal_m4_deps): guile-gnome-defs.pc: $(top_builddir)/config.status $(srcdir)/guile-gnome-defs.pc.in cd $(top_builddir) && $(SHELL) ./config.status $(subdir)/$@ guile-gnome-defs-uninstalled.pc: $(top_builddir)/config.status $(srcdir)/guile-gnome-defs-uninstalled.pc.in cd $(top_builddir) && $(SHELL) ./config.status $(subdir)/$@ mostlyclean-libtool: -rm -f *.lo clean-libtool: -rm -rf .libs _libs install-pkgconfigDATA: $(pkgconfig_DATA) @$(NORMAL_INSTALL) @list='$(pkgconfig_DATA)'; test -n "$(pkgconfigdir)" || list=; \ if test -n "$$list"; then \ echo " $(MKDIR_P) '$(DESTDIR)$(pkgconfigdir)'"; \ $(MKDIR_P) "$(DESTDIR)$(pkgconfigdir)" || exit 1; \ fi; \ for p in $$list; do \ if test -f "$$p"; then d=; else d="$(srcdir)/"; fi; \ echo "$$d$$p"; \ done | $(am__base_list) | \ while read files; do \ echo " $(INSTALL_DATA) $$files '$(DESTDIR)$(pkgconfigdir)'"; \ $(INSTALL_DATA) $$files "$(DESTDIR)$(pkgconfigdir)" || exit $$?; \ done uninstall-pkgconfigDATA: @$(NORMAL_UNINSTALL) @list='$(pkgconfig_DATA)'; test -n "$(pkgconfigdir)" || list=; \ files=`for p in $$list; do echo $$p; done | sed -e 's|^.*/||'`; \ dir='$(DESTDIR)$(pkgconfigdir)'; $(am__uninstall_files_from_dir) # This directory's subdirectories are mostly independent; you can cd # into them and run `make' without going through this Makefile. # To change the values of `make' variables: instead of editing Makefiles, # (1) if the variable is set in `config.status', edit `config.status' # (which will cause the Makefiles to be regenerated when you run `make'); # (2) otherwise, pass the desired values on the `make' command line. $(RECURSIVE_TARGETS): @fail= failcom='exit 1'; \ for f in x $$MAKEFLAGS; do \ case $$f in \ *=* | --[!k]*);; \ *k*) failcom='fail=yes';; \ esac; \ done; \ dot_seen=no; \ target=`echo $@ | sed s/-recursive//`; \ list='$(SUBDIRS)'; for subdir in $$list; do \ echo "Making $$target in $$subdir"; \ if test "$$subdir" = "."; then \ dot_seen=yes; \ local_target="$$target-am"; \ else \ local_target="$$target"; \ fi; \ ($(am__cd) $$subdir && $(MAKE) $(AM_MAKEFLAGS) $$local_target) \ || eval $$failcom; \ done; \ if test "$$dot_seen" = "no"; then \ $(MAKE) $(AM_MAKEFLAGS) "$$target-am" || exit 1; \ fi; test -z "$$fail" $(RECURSIVE_CLEAN_TARGETS): @fail= failcom='exit 1'; \ for f in x $$MAKEFLAGS; do \ case $$f in \ *=* | --[!k]*);; \ *k*) failcom='fail=yes';; \ esac; \ done; \ dot_seen=no; \ case "$@" in \ distclean-* | maintainer-clean-*) list='$(DIST_SUBDIRS)' ;; \ *) list='$(SUBDIRS)' ;; \ esac; \ rev=''; for subdir in $$list; do \ if test "$$subdir" = "."; then :; else \ rev="$$subdir $$rev"; \ fi; \ done; \ rev="$$rev ."; \ target=`echo $@ | sed s/-recursive//`; \ for subdir in $$rev; do \ echo "Making $$target in $$subdir"; \ if test "$$subdir" = "."; then \ local_target="$$target-am"; \ else \ local_target="$$target"; \ fi; \ ($(am__cd) $$subdir && $(MAKE) $(AM_MAKEFLAGS) $$local_target) \ || eval $$failcom; \ done && test -z "$$fail" tags-recursive: list='$(SUBDIRS)'; for subdir in $$list; do \ test "$$subdir" = . || ($(am__cd) $$subdir && $(MAKE) $(AM_MAKEFLAGS) tags); \ done ctags-recursive: list='$(SUBDIRS)'; for subdir in $$list; do \ test "$$subdir" = . || ($(am__cd) $$subdir && $(MAKE) $(AM_MAKEFLAGS) ctags); \ done ID: $(HEADERS) $(SOURCES) $(LISP) $(TAGS_FILES) list='$(SOURCES) $(HEADERS) $(LISP) $(TAGS_FILES)'; \ unique=`for i in $$list; do \ if test -f "$$i"; then echo $$i; else echo $(srcdir)/$$i; fi; \ done | \ $(AWK) '{ files[$$0] = 1; nonempty = 1; } \ END { if (nonempty) { for (i in files) print i; }; }'`; \ mkid -fID $$unique tags: TAGS TAGS: tags-recursive $(HEADERS) $(SOURCES) $(TAGS_DEPENDENCIES) \ $(TAGS_FILES) $(LISP) set x; \ here=`pwd`; \ if ($(ETAGS) --etags-include --version) >/dev/null 2>&1; then \ include_option=--etags-include; \ empty_fix=.; \ else \ include_option=--include; \ empty_fix=; \ fi; \ list='$(SUBDIRS)'; for subdir in $$list; do \ if test "$$subdir" = .; then :; else \ test ! -f $$subdir/TAGS || \ set "$$@" "$$include_option=$$here/$$subdir/TAGS"; \ fi; \ done; \ list='$(SOURCES) $(HEADERS) $(LISP) $(TAGS_FILES)'; \ unique=`for i in $$list; do \ if test -f "$$i"; then echo $$i; else echo $(srcdir)/$$i; fi; \ done | \ $(AWK) '{ files[$$0] = 1; nonempty = 1; } \ END { if (nonempty) { for (i in files) print i; }; }'`; \ shift; \ if test -z "$(ETAGS_ARGS)$$*$$unique"; then :; else \ test -n "$$unique" || unique=$$empty_fix; \ if test $$# -gt 0; then \ $(ETAGS) $(ETAGSFLAGS) $(AM_ETAGSFLAGS) $(ETAGS_ARGS) \ "$$@" $$unique; \ else \ $(ETAGS) $(ETAGSFLAGS) $(AM_ETAGSFLAGS) $(ETAGS_ARGS) \ $$unique; \ fi; \ fi ctags: CTAGS CTAGS: ctags-recursive $(HEADERS) $(SOURCES) $(TAGS_DEPENDENCIES) \ $(TAGS_FILES) $(LISP) list='$(SOURCES) $(HEADERS) $(LISP) $(TAGS_FILES)'; \ unique=`for i in $$list; do \ if test -f "$$i"; then echo $$i; else echo $(srcdir)/$$i; fi; \ done | \ $(AWK) '{ files[$$0] = 1; nonempty = 1; } \ END { if (nonempty) { for (i in files) print i; }; }'`; \ test -z "$(CTAGS_ARGS)$$unique" \ || $(CTAGS) $(CTAGSFLAGS) $(AM_CTAGSFLAGS) $(CTAGS_ARGS) \ $$unique GTAGS: here=`$(am__cd) $(top_builddir) && pwd` \ && $(am__cd) $(top_srcdir) \ && gtags -i $(GTAGS_ARGS) "$$here" distclean-tags: -rm -f TAGS ID GTAGS GRTAGS GSYMS GPATH tags distdir: $(DISTFILES) @srcdirstrip=`echo "$(srcdir)" | sed 's/[].[^$$\\*]/\\\\&/g'`; \ topsrcdirstrip=`echo "$(top_srcdir)" | sed 's/[].[^$$\\*]/\\\\&/g'`; \ list='$(DISTFILES)'; \ dist_files=`for file in $$list; do echo $$file; done | \ sed -e "s|^$$srcdirstrip/||;t" \ -e "s|^$$topsrcdirstrip/|$(top_builddir)/|;t"`; \ case $$dist_files in \ */*) $(MKDIR_P) `echo "$$dist_files" | \ sed '/\//!d;s|^|$(distdir)/|;s,/[^/]*$$,,' | \ sort -u` ;; \ esac; \ for file in $$dist_files; do \ if test -f $$file || test -d $$file; then d=.; else d=$(srcdir); fi; \ if test -d $$d/$$file; then \ dir=`echo "/$$file" | sed -e 's,/[^/]*$$,,'`; \ if test -d "$(distdir)/$$file"; then \ find "$(distdir)/$$file" -type d ! -perm -700 -exec chmod u+rwx {} \;; \ fi; \ if test -d $(srcdir)/$$file && test $$d != $(srcdir); then \ cp -fpR $(srcdir)/$$file "$(distdir)$$dir" || exit 1; \ find "$(distdir)/$$file" -type d ! -perm -700 -exec chmod u+rwx {} \;; \ fi; \ cp -fpR $$d/$$file "$(distdir)$$dir" || exit 1; \ else \ test -f "$(distdir)/$$file" \ || cp -p $$d/$$file "$(distdir)/$$file" \ || exit 1; \ fi; \ done @list='$(DIST_SUBDIRS)'; for subdir in $$list; do \ if test "$$subdir" = .; then :; else \ $(am__make_dryrun) \ || test -d "$(distdir)/$$subdir" \ || $(MKDIR_P) "$(distdir)/$$subdir" \ || exit 1; \ dir1=$$subdir; dir2="$(distdir)/$$subdir"; \ $(am__relativize); \ new_distdir=$$reldir; \ dir1=$$subdir; dir2="$(top_distdir)"; \ $(am__relativize); \ new_top_distdir=$$reldir; \ echo " (cd $$subdir && $(MAKE) $(AM_MAKEFLAGS) top_distdir="$$new_top_distdir" distdir="$$new_distdir" \\"; \ echo " am__remove_distdir=: am__skip_length_check=: am__skip_mode_fix=: distdir)"; \ ($(am__cd) $$subdir && \ $(MAKE) $(AM_MAKEFLAGS) \ top_distdir="$$new_top_distdir" \ distdir="$$new_distdir" \ am__remove_distdir=: \ am__skip_length_check=: \ am__skip_mode_fix=: \ distdir) \ || exit 1; \ fi; \ done check-am: all-am check: check-recursive all-am: Makefile $(DATA) all-local installdirs: installdirs-recursive installdirs-am: for dir in "$(DESTDIR)$(pkgconfigdir)"; do \ test -z "$$dir" || $(MKDIR_P) "$$dir"; \ done install: install-recursive install-exec: install-exec-recursive install-data: install-data-recursive uninstall: uninstall-recursive install-am: all-am @$(MAKE) $(AM_MAKEFLAGS) install-exec-am install-data-am installcheck: installcheck-recursive install-strip: if test -z '$(STRIP)'; then \ $(MAKE) $(AM_MAKEFLAGS) INSTALL_PROGRAM="$(INSTALL_STRIP_PROGRAM)" \ install_sh_PROGRAM="$(INSTALL_STRIP_PROGRAM)" INSTALL_STRIP_FLAG=-s \ install; \ else \ $(MAKE) $(AM_MAKEFLAGS) INSTALL_PROGRAM="$(INSTALL_STRIP_PROGRAM)" \ install_sh_PROGRAM="$(INSTALL_STRIP_PROGRAM)" INSTALL_STRIP_FLAG=-s \ "INSTALL_PROGRAM_ENV=STRIPPROG='$(STRIP)'" install; \ fi mostlyclean-generic: clean-generic: -test -z "$(CLEANFILES)" || rm -f $(CLEANFILES) distclean-generic: -test -z "$(CONFIG_CLEAN_FILES)" || rm -f $(CONFIG_CLEAN_FILES) -test . = "$(srcdir)" || test -z "$(CONFIG_CLEAN_VPATH_FILES)" || rm -f $(CONFIG_CLEAN_VPATH_FILES) maintainer-clean-generic: @echo "This command is intended for maintainers to use" @echo "it deletes files that may require special tools to rebuild." clean: clean-recursive clean-am: clean-generic clean-libtool mostlyclean-am distclean: distclean-recursive -rm -f Makefile distclean-am: clean-am distclean-generic distclean-tags dvi: dvi-recursive dvi-am: html: html-recursive html-am: info: info-recursive info-am: install-data-am: install-pkgconfigDATA install-dvi: install-dvi-recursive install-dvi-am: install-exec-am: install-html: install-html-recursive install-html-am: install-info: install-info-recursive install-info-am: install-man: install-pdf: install-pdf-recursive install-pdf-am: install-ps: install-ps-recursive install-ps-am: installcheck-am: maintainer-clean: maintainer-clean-recursive -rm -f Makefile maintainer-clean-am: distclean-am maintainer-clean-generic mostlyclean: mostlyclean-recursive mostlyclean-am: mostlyclean-generic mostlyclean-libtool pdf: pdf-recursive pdf-am: ps: ps-recursive ps-am: uninstall-am: uninstall-pkgconfigDATA .MAKE: $(RECURSIVE_CLEAN_TARGETS) $(RECURSIVE_TARGETS) ctags-recursive \ install-am install-strip tags-recursive .PHONY: $(RECURSIVE_CLEAN_TARGETS) $(RECURSIVE_TARGETS) CTAGS GTAGS \ all all-am all-local check check-am clean clean-generic \ clean-libtool ctags ctags-recursive distclean \ distclean-generic distclean-libtool distclean-tags distdir dvi \ dvi-am html html-am info info-am install install-am \ install-data install-data-am install-dvi install-dvi-am \ install-exec install-exec-am install-html install-html-am \ install-info install-info-am install-man install-pdf \ install-pdf-am install-pkgconfigDATA install-ps install-ps-am \ install-strip installcheck installcheck-am installdirs \ installdirs-am maintainer-clean maintainer-clean-generic \ mostlyclean mostlyclean-generic mostlyclean-libtool pdf pdf-am \ ps ps-am tags tags-recursive uninstall uninstall-am \ uninstall-pkgconfigDATA export GUILE_LOAD_PATH .c.x: guile-snarf $(GUILE_SNARF_CFLAGS) $< > $@ \ || { rm $@; false; } .c.doc: $(CPP) -DSCM_MAGIC_SNARF_DOCS $(GUILE_SNARF_CFLAGS) $< \ | grep -E '(\^\^ {|\^\^ })' > $@ || { rm $@; false; } %.scm guile-gnome-gw-%.c: %-spec.scm guile $(GUILE_FLAGS) -c \ "(debug-set! stack 400000) \ (use-modules (gnome-@API_VERSION@)) \ (use-modules (g-wrap)) \ (use-modules (gnome gw $*-spec)) \ (generate-wrapset 'guile 'gnome-$* \"guile-gnome-gw-$*\")" mv guile-gnome-gw-$*.scm $*.scm %-@API_VERSION@.pc: %.pc cp $< $@ %-@API_VERSION@-uninstalled.pc: %-uninstalled.pc cp $< $@ all-local: $(pcifiles) $(pcufiles) # Tell versions [3.59,3.63) of GNU make to not export all variables. # Otherwise a system limit (for SysV at least) may be exceeded. .NOEXPORT: guile-gnome-platform-2.16.2/defs/guile-gnome-defs.pc.in0000644000175000017500000000036511670374302023174 0ustar00wingowingo00000000000000prefix=@prefix@ exec_prefix=@exec_prefix@ libdir=@libdir@ includedir=@includedir@/guile-gnome toolsdir=${exec_prefix}/bin Name: Guile-Gnome .defs files, Uninstalled Description: Guile-Gnome .defs files, Uninstalled Requires: Version: @VERSION@ guile-gnome-platform-2.16.2/defs/README0000644000175000017500000000126611670374302017775 0ustar00wingowingo00000000000000guile-gnome-defs README Copyright (C) 2004 Free Software Foundation, Inc. See the end for copying conditions of this file. Last updated 16 September 2004. About guile-gnome-defs ===================== guile-gnome-defs contains .defs API definitions for many GNOME libraries. It is part of GNU guile-gnome. See the README file in the toplevel source directory for more information. Build dependencies ================== None. Copying this file ================= Copyright (C) 2004 Free Software Foundation, Inc. Copying and distribution of this file, with or without modification, are permitted in any medium without royalty provided the copyright notice and this notice are preserved. guile-gnome-platform-2.16.2/defs/AUTHORS0000644000175000017500000000045111670374302020160 0ustar00wingowingo00000000000000To find out what should go in this file, see "Information For Maintainers of GNU Software" (maintain.texi), the section called "Recording Changes". Andy Wingo: In the directory tools, wrote: defs-diff All other files in this package are generated by a script from the original header files. guile-gnome-platform-2.16.2/defs/ChangeLog.pre-2.160000644000175000017500000003312511670374302022037 0ustar00wingowingo000000000000002008-04-25 Andy Wingo * == Released guile-gnome-platform version 2.15.98 == 2008-04-10 Andy Wingo * == Released guile-gnome-platform version 2.15.97 == 2008-04-10 Andy Wingo * NEWS: Update NEWS. 2007-12-17 Jan Nieuwenhuizen * gnome/defs/gtk-extrafuncs.defs: Remove, unused. 2007-12-10 Andy Wingo * == Released guile-gnome-platform version 2.15.96 == * gnome/defs/Makefile.am (atk): Add type-ignores. * gnome/defs/common-ignores.defs: Don't ignore *_copy functions. 2007-11-10 Andy Wingo * == Released guile-gnome-platform version 2.15.95 == 2007-09-25 Andy Wingo * == Released guile-gnome-platform version 2.15.94 == 2007-09-25 Andy Wingo * NEWS: Updated. 2007-09-17 Jan Nieuwenhuizen * gnome/defs/libwnck-types.defs: * gnome/defs/libwnck.defs: Remove. These are moved to libwnck. 2007-06-15 Andy Wingo * == Released guile-gnome-platform version 2.15.93 == * gnome/defs/Makefile.am (PANGO_INCLS): Include pango-tabs.h, as we did before. * gnome/defs/pango.defs: * gnome/defs/pango-types.defs: Regenerated. 2007-05-24 Andy Wingo * == Released guile-gnome-platform version 2.15.92 == 2007-05-24 Andy Wingo * gnome/defs/gconf.defs: * gnome/defs/gconf-types.defs: Regen for GConf 2.18. * gnome/defs/libgnomeui.defs: Fix mistaken defs regen against 2.20 libs. * gnome/defs/Makefile.am (gnome-vfs): Use h2def.py's new --type-re for making the GType ID. * gnome/defs/gnome-vfs.defs: Regenerate for gnome-vfs 2.16. * gnome/defs/gnome-vfs-types.defs: Regenerate for gnome-vfs 2.16. * gnome/defs/libgnomecanvas.defs: * gnome/defs/libgnomecanvas-types.defs: * gnome/defs/Makefile.am (libgnomecanvas): Add rule for regenning libgnomecanvas, and regen for libgnomecanvas 2.14.1. * gnome/defs/Makefile.am (libgnomeui): * gnome/defs/libgnomeui.defs: * gnome/defs/libgnomeui-types.defs: Rename from ui.defs, and regen for libgnomeui 2.16. * gnome/defs/Makefile.am (libgnome): Add libgnome regen rule. * gnome/defs/libgnome.defs: * gnome/defs/libgnome-types.defs: Move here from gnome.defs. Regenerate for libgnome 2.16, although without much change. * gnome/defs/libglade.defs: * gnome/defs/libglade-types.defs: Regen for libglade 2.6, but I don't think there are any API changes. * gnome/defs/gdk-pixbuf.defs: * gnome/defs/gdk-pixbuf-types.defs: Regenerate for GTK+ 2.10. * gnome/defs/Makefile.am (gdk-pixbuf): Don't wrap functions from gdk-pixbuf-io.h. (libglade): Add a regen rule for libglade; not yet regenerated tho. 2007-05-21 Andy Wingo * gnome/defs/Makefile.am (gdk): Include type-ignores in gdk regen rule. (gtk): Update the GTK regen rule. * gnome/defs/gtk.defs: * gnome/defs/gtk-types.defs: Update GTK defs to 2.10. * gnome/defs/gdk-types.defs: * gnome/defs/Makefile.am: * gnome/defs/gdk.defs: Update gdk defs, and add a regeneration rule. 2007-05-20 Andy Wingo * gnome/defs/Makefile.am (pangocairo): * gnome/defs/pangocairo.defs: * gnome/defs/pangocairo-types.defs: Add pangocairo defs and a regeneration rule. 2007-05-13 Andy Wingo * gnome/defs/pango.defs: * gnome/defs/pango-types.defs: Generate for Pango 1.14. * gnome/defs/Makefile.am (pango): Add rule for regenerating pango. A bit verbose because pango has lots of #ifdef ENGINE, BACKEND, etc. * gnome/defs/Makefile.am (atk): Add regeneration rules for ATK. (atk): Atk doesn't have type-ignores. * gnome/defs/atk.defs: * gnome/defs/atk-types.defs: Generate for ATK 1.12, from Gnome 2.16. * tools/ignores-diff: * tools/ignore-new-functions: * tools/defs-to-ignores: New tools, based on each others' code. * gnome/defs/Makefile.am (glib): Add target to regen glib defs files. (DEFS_HEADER_DIR): Make it possible to make DEFS_HEADER_DIR=/opt/gnome2/include glib. * tools/defs-diff: Fix a bug. * gnome/defs/glib.defs: * gnome/defs/glib-types.defs: Generated from GLib 2.10 headers, autogenerated for the first time. Requires loads of ignores. 2007-05-10 Andy Wingo * == Released guile-gnome-platform version 2.15.91 == 2006-12-15 Andy Wingo * == Released guile-gnome-platform version 2.15.90 == 2005-03-06 Andy Wingo * == Released guile-gnome-platform version 2.7.99 == 2005-01-25 Andreas Rottmann * gnome/defs/Makefile.am (defs_DATA): Make out-of-tree-build-safe. 2005-01-11 Andy Wingo * == Released platform version 2.7.98 == 2004-12-06 Andy Wingo * == Released platform version 2.7.97 == 2004-11-16 Andy Wingo * gnome/defs/Makefile.am (defs_DATA): Just do *.defs, to prevent bugs. 2004-11-14 Jan Nieuwenhuizen * gnome/defs/libgnomecanvas.defs: Remove type defs. Include libgnomecanvas-types.defs. 2004-11-10 Jan Nieuwenhuizen * gnome/defs/glib.defs: Bugfix: include overrides after types. 2004-11-09 Andy Wingo * gnome/defs/gdk.defs (type-overrides): Added here -- not setting up generation for gdk right now, I don't have the time. (draw_rectangle): `filled' param is a boolean. 2004-10-28 Andy Wingo * Makefile.am (all-local): Versioned pkg-config files. 2004-10-16 Andy Wingo * gnome/defs/Makefile.am: Integrate with common.mk. 2004-10-14 Andy Wingo * gnome/defs/ui.defs, gnome/defs/ui-types.defs: Generated. * gnome/defs/Makefile.am (guilemodule_DATA): Added ui-types.defs. (gnome-ui): Added target for generating gnome-ui defs. 2004-10-10 Andy Wingo * gnome/defs/gconf.defs: Regenerated. * gnome/defs/gconf-types.defs: Added. * gnome/defs/Makefile.am (guilemodule_DATA): Added gconf-types.defs and a target for generating gconf defs. 2004-10-09 Andy Wingo * gnome/defs/gnome-vfs.defs: * gnome/defs/gnome-vfs-types.defs: New files. * gnome/defs/Makefile.am: Added a target to generate the gnome-vfs defs, and added them to the dist/install list. 2004-10-07 Andy Wingo * gnome/defs/gtk.defs, gnome/defs/gtk-types.defs: Regenerated. There is nothing hand-tuned here any more. * gnome/defs/Makefile.am (gtk): Add target for autogenning gtk defs. * tools/diff-to-overrides: New tool, takes a diff from a hand-tuned defs to a generated defs and generates suitable overrides. Used to help refactoring defs so the main defs can be autogenerated. 2004-10-06 Andy Wingo * gnome/defs/Makefile.am (gdk-pixbuf): Whoops, it's `include', not `import'. Only pull in gdk-pixbuf*.h (i.e., not gdk-pixdata.h). * gnome/defs/gdk-pixbuf-types.defs: * gnome/defs/gdk-pixbuf.defs: * gnome/defs/gdk-types.defs: * gnome/defs/gdk.defs: Fix so all pixbuf stuff is only defined once. * Makefile.am (SUBDIRS): Add tools/. * tools/Makefile.am: New file. * tools/defs-diff: New file, diffs two .defs files, optionally reading the second file from stdin. * gnome/defs/Makefile.am (gdk-pixbuf): Add rule to regenerate gdk-pixbuf defs. * gnome/defs/gdk-pixbuf-types.defs: New file. * gnome/defs/gdk-pixbuf.defs: New file. 2004-09-16 Andy Wingo * Makefile.am (SUBDIRS): Dist fixes. * README: Added. * NEWS: Added. * AUTHORS: Added. 2004-09-15 Andy Wingo * gnome/defs/libgnomecanvas.defs: Include the overrides after the types are defined. 2004-09-12 Andy Wingo * Removed more overrides files to their respective modules: libgnomecanvas, libgnome, libglade, libgnomeui. 2004-09-06 Andy Wingo * Makefile.am: Install the .defs pkg-config files. 2004-09-05 Andy Wingo * guile-gnome-defs.pc.in, guile-gnome-defs-uninstalled.pc.in: New files. Pointed to by files.ac. * gnome/defs/*: Begin removal of overrides. Change all (include "foo-overrides.defs) forms to (include overrides). 2004-09-09 Andreas Rottmann * gnome/defs/libgnomecanvas.defs: Now include libgnomecanvas-types.defs, instead of having its contents in-file. Rescanned the headers and merged with old file. * gnome/defs/libgnomecanvas-overrides.defs: Added affine wrappers back. 2004-07-28 Andreas Rottmann * gnome/defs/libgnomecanvas.defs (gnome_canvas_path_def_concat) (gnome_canvas_path_def_split): Annotated GSList* with types (fixes build). 2004-07-02 Jan Nieuwenhuizen * gnome/defs/libwnck.defs: * gnome/defs/libwnck-types.defs: Additions: almost full API support. 2004-07-01 Jan Nieuwenhuizen * gnome/defs/gtk.defs (gtk-menu:popup): Add (null-ok) for PARENT_MENU_SHELL and PARENT_MENU_ITEM. 2004-06-11 Jan Nieuwenhuizen * gnome/defs/libgnomecanvas.defs (gnome_canvas_item_new): New function. (root): New method. * gnome/defs/Makefile.am: Update. * gnome/defs/libgnomecanvas.defs: * gnome/defs/libgnomecanvas-overrides.defs (affine_absolute) (affine_relative): New override. * gnome/defs/libgnomecanvas-types.defs: New file. 2004-05-22 Andy Wingo * gnome/defs/glade.defs: Include the right overrides file... 2004-05-19 Andy Wingo * gnome/defs/Makefile.am (guilemodule_DATA): Updated for new names, and sorted (M-x sort-lines). * gnome/defs/gnome-ui-overrides.defs, gnome/defs/gnome-ui.defs: Renamed from ui*. * gnome/defs/glade-overrides.defs, gnome/defs/glade.defs: Renamed from libglade*. 2004-04-03 Andreas Rottmann * gtk-types.defs (PrivateFlags, TreeViewMode): Removed. 2004-04-02 Andreas Rottmann * ui.defs: Revised for GNOME 2.6. * gtk.defs: Removed broken functions, fixes. * gtk-types.defs: Removed broken types and re-added boxed types and interfaces. 2004-03-31 Andreas Rottmann * gtk.defs, gtk-types.defs: Adapted for GTK+ 2.4. 2004-03-29 Andreas Rottmann * gdk-types.defs (ColorSpace): Removed, is in gdk-pixbuf and named GdkColor_s_pace. * gtk-types.defs: Removed CTreeNode, CellType, CListDragPos, ButtonAction, CTreePos, CTreeExpanderStyle, CTreeExpansionType, SideType, MatchType, PreviewType, SubmenuDirection, SubmenuPlacement, which were all deprecated before GTK+ 2.0. 2004-02-08 Andy Wingo * ui.defs: Revert ui.defs to my local copy. There are still some problems, but it's better than before. 2004-01-14 Andy Wingo * ui.defs: Re-generated and tweaked. * ui-overrides.defs: New file. * gnome.defs: Miscellaneous fixes. * gnome-overrides.defs: New file. * canvas-overrides.defs: New file. 2003-12-16 Andy Wingo * gtk-overrides.defs: Allow NULL for the parent in iter_children. 2003-12-13 Andreas Rottmann * Makefile.am (guilemodule_DATA): Added gnome-overrides.defs, ui-overrides.defs and canavas-overrides.defs. 2003-12-09 Andy Wingo * gtk-overrides.defs (iter_children): Return a list of the children instead of only the first iterator. 2003-11-30 Andreas Rottmann * Makefile.am (guilemodule_DATA): Added gda.defs. * gda-overrides.defs: Un-ignore gda_value_*, ignore gda_value_new_* instead. 2003-11-25 Andy Wingo * gtk-overrides.defs: Added accessors for ok and cancel buttons in file selections. 2003-11-26 Andreas Rottmann * gda.defs, gda-types.defs, gda-overrides.defs: New files. 2003-11-25 Andreas Rottmann * gdk-types.defs (ColorSpace): Commented out, is in gdk-pixbuf and named GdkColor_s_pace. * gtk-overrides.defs (GenericTreeModel): C type is GuileGtkGenericTreeModel, not GuileGtkTreeModel. * gtk-types.defs: Get rid of CTree/CList stuff. Comment out a bunch of types apparently missing in GTK+ 2.4. * glib-override.defs: Removed some ignore-globs (*_ref, *_unref and *_free), since g-wrap has no automatic reference-counting or disposal of objects. Ignore the GError-related functions, since the GError type is exposed only via exceptions to the scheme level. * glib.defs: Added defs for giochannel.h and gfileutils.h. 2003-11-01 Andy Wingo * gtk.defs (gtk_clipboard_get): New wrapping, was missing before. (gtk_clipboard_get_for_display): Same. (gtk_clipboard_get_display): Same. 2003-10-16 Andy Wingo * gtk-overrides.defs: New wrappers for TextBuffer operations, and GtkTreeSelection::get_selected. * vte.defs, vte-overrides.defs: New files. The overrides still need some work and a vte-support.[ch], but I want to get a repl working first. * zvt.defs: Deleted. 2003-10-12 Andy Wingo * gtk-overrides.defs: Define the custom Guile treemodel object. Some custom wrappings for GtkTreeModel, GtkTreeStore, and GtkListStore. Ignore *_foreach and *_valist. 2003-10-01 Andy Wingo * libglade.defs: Include overrides file, specify that get-widget-prefix returns a GList* of GtkWidget*, remove pygtk stuff. * libglade-overrides.defs: New file. 2003-05-25 Andy Wingo * gtk-overrides.defs: Ignore gtk_container_foreach -- to use this, just (for-each f (get-children c)). Ignore gtk_container_forall -- scheme equivalent unimplemeted. 2003-05-08 Andy Wingo * glib.defs: Added to support GMainLoop, etc. * gtk.defs, gdk.defs, pango.defs: Updated to "GList*-of-GtkWindow*". * gtk-overrides.defs, gdk-overrides.defs, glib-overrides.defs: new files. Contain ignore and override information. guile-gnome-platform-2.16.2/defs/ChangeLog0000644000175000017500000000006711670374302020665 0ustar00wingowingo00000000000000See the revision control log for changes since 2.16.0. guile-gnome-platform-2.16.2/HACKING0000644000175000017500000002030111752477761017170 0ustar00wingowingo00000000000000Guile-GNOME HACKING Copyright (C) 2004,2006,2009,2010,2011,2012 Free Software Foundation, Inc. Copying and distribution of this file, with or without modification, are permitted in any medium without royalty provided the copyright notice and this notice are preserved. Last updated 9 May 2012. So, you want to hack Guile-GNOME? ================================= Ah, good. Join the mailing list, guile-gtk-devel@gnu.org, and fire up your emacs. We use Git ========== The canonical source for Guile-GNOME is our git archive, which can be retrieved as: $ git clone git://git.sv.gnu.org/guile-gnome.git Note that when building from Git, you'll need to run autogen.sh to create "configure" and the rest of the build system. We are wildebeests ================== Guile-GNOME is part of the GNU project. As such, it is very important to us to keep our software Free. From perspective of you, the potential contributor, this entails a number of things: * Give a complete change log entry for every change, in the git commit message. * If your change is visible to a user of the package, update the appropriate NEWS file. * Like many other GNU packages, we currently assign copyright to all changes to Guile-GNOME to the Free Software Foundation. If you have not signed a copyright assignment form for Guile-GNOME, you will need to do so. Please contact me at wingo@pobox.com for more information. * Each file should have a standard GPL copyright header. If you change a file, be sure it has a header, and that the copyright years are up to date. Adding new bindings =================== Guile-GNOME is in a strange state right now, as GNOME itself heads towards 3.0, and GObject Introspection seems to be the way to make libraries. But still we have good bindings here, so it seems useful to document existing practice, which is basically to create a new bindings module, and check it out under this directory. You can add an appropriate entry to PACKAGES, if you like. Actually creating the module is a bit of work, but we do have a template that can help. Check out the "template" branch from Guile-GNOME git, then run the "templatize" script that is included in that module. Also, for historical interest, see Neil Jerram's mail to the Guile-GNOME list entitled "How to customize a guile-gnome bzr distribution". A copy is archived here: http://article.gmane.org/gmane.lisp.guile.gtk/562 If you want to experiment with GObject-Introspection, see Zeeshan Ali's related project, guile-gir. Updating an existing binding ============================ Although allowing that GObject-Introspection is probably the right way forward in the future, for a change to a library that you have already wrapped, within a stable API series, it is usually less work just to update that library's bindings by hand. Here's an incomplete checklist of things to do, in order to update a binding. Let's take Clutter as an example. 1) Remove development packages for the library from your system. For example, apt-get remove libclutter-1.0-dev. 2) Ideally, install the original version that you wrapped to some location outside of /usr. For example if you last wrapped Clutter 1.10, download the latest clutter-1.10.x tarball and build and install it with --prefix=/opt/clutter. 3) Build the binding in an environment with /opt/clutter/lib/pkgconfig in the PKG_CONFIG_PATH, and /opt/clutter/lib in the LD_LIBRARY_PATH. Run make check. Everything should work. These first three steps ensure you are starting from a known-good configuration. 4) "make uninstall" to remove the current version of Clutter. 5) Download the next stable version of Clutter, for example 1.12.0. Install it to /opt/clutter as you did before with the previous clutter version. 6) In guile-clutter, run ./dev-environ guile-gnome-2, and (use-modules (gnome clutter)). That should work without problems. If it didn't, then perhaps Clutter changed ABI incompatibly. 7) Run ./config.status --recheck, make clean, and make. This rebuilds guile-clutter against the new Clutter library. If this didn't work, it means Clutter changed API incompatibly. This has happened a couple times in the past -- Guile-GNOME's header scanner can wrap types and funcitons that are not meant to be public. Ideally this would never happen. If it does happen, and it is serious, let the upstream library authors know. These next steps are a basic sanity check. Now we move on to update the binding. 8) Visit clutter/gnome/defs/. The Makefile.am usually has some rules to re-scan header files, and update the defs. Check to see that the path that it will scan exists on your system, and build that make target. For example in Clutter there are three targets, "clutter", "clutter-glx", and "clutter-x11". 9) Make clean, making sure that the guile-gnome-gw-*.[ch] files are removed from clutter/gnome/gw/. Make. This may or may not succeed. In this step we are trying to build new bindings. The bindings generator will spit out a progress report: first on the wrapsets that guile-clutter uses, then for guile-clutter itself. If it builds, great! There are a few ways it can go wrong though. Any warning of the form "Opaque type for function clutter-foo: Foo*" will need to be fixed, but is not immediately an error. New functions that accept or return GList* or GSList* arguments will need to be overridden to specify the item type. See clutter/gnome/overrides/clutter.defs to see how this is done. Some functions will need to be skipped entirely. See the ignore-glob section in overrides/clutter.defs for examples. Some functions will need special wrappers. Those wrappers typically go in clutter/gnome/gw/clutter-support.[ch]. There are a few examples in clutter as well. Some types can also need special wrappers -- boxed types that have a special representation, for example. Those need support.[ch] wrappers in addition to a declaration in clutter/gnome/gw/clutter-spec.scm. Sometimes "out" arguments provoke warnings or errors. In some cases you can get around these by adding a type alias. See clutter-spec.scm for some examples. Finally, the bindings generator can miss some types. This happens especially often with boxed and interface types. See overrides/clutter.defs for some examples. You also might need to ignore some types; in that case you will need to add to the corresponding type-ignores file, as in overrides/clutter.defs-type-ignores. 10) OK does it build? Super! Now run "make check". This will check that any API that was present in a previous release is still present. If this fails, it can mean that when you updated the defs files, you missed some entries that were there previously. For example, Clutter moved a bunch of headers into a subdirectory, at one point. Check to see that the functions were not removed from your defs file. You might need to update h2defs.py if something really strange happened to the header, as was the case with the CLUTTER_DEPRECATED_IN_1_10_FOR() annotations. 11) Does it pass make check? Great! Update the wrapset.api to ensure that future versions will not regress. Go into the tests directory and "make wrapset.api.update". 12) Now it's time to update the documentation. This is a tricky process. The documentation is generated from a combination of the wrapset itself, and the upstream XML files that gtk-doc produces. Visit the doc directory and check that the Makefile.am gives a proper path to the XML files. Then run "make generate-defuns", and the same for generate-stubs and generate-undocumented. This might produce new files. If it does, add the sections to the main .texi file, and add entries to the menus. Make sure it still builds. If it doesn't, you might need to update the docbook-to-texinfo pipeline. Good luck! 13) Hey it works? Update the version in configure.ac, remake, make distcheck, and then commit. Then go back to step 4, as appropriate. 14) Remember to release! guile-gnome-platform-2.16.2/libgnomeui/0000755000175000017500000000000011752546504020327 5ustar00wingowingo00000000000000guile-gnome-platform-2.16.2/libgnomeui/doc/0000755000175000017500000000000011752546504021074 5ustar00wingowingo00000000000000guile-gnome-platform-2.16.2/libgnomeui/doc/undocumented.texi0000644000175000017500000000202311670374303024451 0ustar00wingowingo00000000000000 @c %start of fragment @node Undocumented @chapter Undocumented The following symbols, if any, have not been properly documented. @section (gnome gw libgnomeui) @defvar gnome-authentication-manager-dialog-is-visible @end defvar @defvar gnome-client-get-global-config-prefix @end defvar @defvar gnome-client-set-global-config-prefix @end defvar @defvar gnome-gdk-pixbuf-new-from-uri-at-scale @end defvar @defun gnome-help-display-desktop-on-screen @end defun @defun gnome-help-display-with-doc-id-on-screen @end defun @defvar gnome-password-dialog-get-remember @end defvar @defvar gnome-password-dialog-set-readonly-domain @end defvar @defvar gnome-password-dialog-set-readonly-username @end defvar @defvar gnome-password-dialog-set-show-domain @end defvar @defvar gnome-password-dialog-set-show-password @end defvar @defvar gnome-password-dialog-set-show-remember @end defvar @defvar gnome-password-dialog-set-show-username @end defvar @defvar gnome-password-dialog-set-show-userpass-buttons @end defvar @c %end of fragment guile-gnome-platform-2.16.2/libgnomeui/doc/defuns-gnome-client.xml.texi0000644000175000017500000003131711670374303026431 0ustar00wingowingo00000000000000 @c %start of fragment @deftp Class Derives from @code{}. This class defines no direct slots. @end deftp @defop Signal save-yourself (arg0@tie{}@code{}) (arg1@tie{}@code{}) (arg2@tie{}@code{}) (arg3@tie{}@code{}) (arg4@tie{}@code{}) @result{}@tie{}@code{} Called when either a "SaveYourself" or a "SaveYourselfPhase2" call is made by the session manager. @end defop @defop Signal die Called when the session manager wants the client to shut down. @end defop @defop Signal save-complete Called when the session manager has finished checkpointing all of the clients. Clients are then free to change their state. @end defop @defop Signal shutdown-cancelled Called if the session manager had sent a "SaveYourself" to all clients in preparation for shutting down and the shutdown was then cancelled. A client can then continue running and change its state. @end defop @defop Signal connect (arg0@tie{}@code{}) Called once the client has been connected to the signal manager. @end defop @defop Signal disconnect Called when the client is disconnected from the session manager. @end defop @deffn Function gnome-master-client @result{}@tie{} (ret@tie{}@code{}) Get the master session management client. This master client gets a client id, that may be specified by the '--sm-client-id' command line option. A master client will be generated by @code{gnome-program-init}. If possible the master client will contact the session manager after command-line parsing is finished (unless @code{gnome-client-disable-master-connection} was called). The master client will also set the SM_CLIENT_ID property on the client leader window of your application. Additionally, the master client gets some static arguments set automatically (see @code{gnome-client-add-static-arg} for static arguments): @code{gnome-program-init} passes all the command line options which are recognised by gtk as static arguments to the master client. @table @var @item ret Pointer to the master client @end table @end deffn @deffn Function gnome-client-get-config-prefix (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{mchars}) @deffnx Method get-config-prefix Get the config prefix for a client. This config prefix provides a suitable place to store any details about the state of the client which can not be described using the app's command line arguments (as set in the restart command). You may push the returned value using @code{gnome-config-push-prefix} and read or write any values you require. @table @var @item client Pointer to GNOME session client object. @item ret Config prefix. The returned string belongs to libgnomeui library and should NOT be freed by the caller. @end table @end deffn @deffn Function gnome-client-get-flags (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{}) @deffnx Method get-flags Determine the client's status with the session manager., @table @var @item client Pointer to GNOME session client object. @item ret Various @code{} flags which have been or'd together. @end table @end deffn @deffn Function gnome-client-set-restart-style (self@tie{}@code{}) (style@tie{}@code{}) @deffnx Method set-restart-style Tells the session manager how the client should be restarted in future session. The options are given by the @code{} enum. @table @var @item client Pointer to GNOME session client object. @item style When to restart the client. @end table @end deffn @deffn Function gnome-client-set-priority (self@tie{}@code{}) (priority@tie{}@code{unsigned-int}) @deffnx Method set-priority The gnome-session manager restarts clients in order of their priorities in a similar way to the start up ordering in SysV. This function allows the app to suggest a position in this ordering. The value should be between 0 and 99. A default value of 50 is assigned to apps that do not provide a value. The user may assign a different priority. @table @var @item client Pointer to GNOME session client object. @item priority Position of client in session start up ordering. @end table @end deffn @deffn Function gnome-client-set-current-directory (self@tie{}@code{}) (dir@tie{}@code{mchars}) @deffnx Method set-current-directory Set the directory to be in when running shutdown, discard, restart, etc. commands. @table @var @item client Pointer to GNOME session client object. @item dir Directory path. @end table @end deffn @deffn Function gnome-client-set-environment (self@tie{}@code{}) (name@tie{}@code{mchars}) (value@tie{}@code{mchars}) @deffnx Method set-environment Set an environment variable to be placed in the client's environment prior to running restart, shutdown, discard, etc. commands. @table @var @item client Pointer to GNOME session client object. @item name Name of the environment variable @item value Value of the environment variable @end table @end deffn @deffn Function gnome-client-set-process-id (self@tie{}@code{}) (pid@tie{}@code{int}) @deffnx Method set-process-id The client should tell the session manager the result of @code{getpid}. However, GNOME does this automatically; so you do not need this function. @table @var @item client Pointer to GNOME session client object. @item pid PID to set as the client's PID. @end table @end deffn @deffn Function gnome-client-set-program (self@tie{}@code{}) (program@tie{}@code{mchars}) @deffnx Method set-program Used to tell the session manager the name of your program. Set automatically; this function isn't needed. @table @var @item client Pointer to GNOME session client object. @item program Name of the program. @end table @end deffn @deffn Function gnome-client-set-user-id (self@tie{}@code{}) (id@tie{}@code{mchars}) @deffnx Method set-user-id Tell the session manager the user's login name. GNOME does this automatically; no need to call the function. @table @var @item client Pointer to GNOME session client object. @item id Username. @end table @end deffn @deffn Function gnome-client-save-any-dialog (self@tie{}@code{}) (dialog@tie{}@code{}) @deffnx Method save-any-dialog May be called during a "save_youself" handler to request that a (modal) dialog is presented to the user. The session manager decides when the dialog is shown, but it will not be shown it unless the session manager is sending an interaction style of @code{}. A "Cancel Logout" button will be added during a shutdown. @table @var @item client Pointer to @code{} object. @item dialog Pointer to GNOME dialog widget (a @code{} widget). @end table @end deffn @deffn Function gnome-client-save-error-dialog (self@tie{}@code{}) (dialog@tie{}@code{}) @deffnx Method save-error-dialog May be called during a "save_youself" handler when an error has occurred during the save. The session manager decides when the dialog is shown, but it will not be shown it unless the session manager is sending an interaction style of @code{}. A "Cancel Logout" button will be added during a shutdown. @table @var @item client Pointer to @code{} object. @item dialog Pointer to GNOME dialog widget (a @code{} widget). @end table @end deffn @deffn Function gnome-client-request-phase-2 (self@tie{}@code{}) @deffnx Method request-phase-2 Request the session managaer to emit the "save_yourself" signal for a second time after all the clients in the session have ceased interacting with the user and entered an idle state. This might be useful if your app manages other apps and requires that they are in an idle state before saving its final data. @table @var @item client A @code{} object. @end table @end deffn @deffn Function gnome-client-request-save (self@tie{}@code{}) (save_style@tie{}@code{}) (shutdown@tie{}@code{bool}) (interact_style@tie{}@code{}) (fast@tie{}@code{bool}) (global@tie{}@code{bool}) @deffnx Method request-save Request the session manager to save the session in some way. The arguments correspond with the arguments passed to the "save_yourself" signal handler. The save_style indicates whether the save should affect data accessible to other users (@code{}) or only the state visible to the current user (@code{}) or both. Setting shutdown to @samp{@code{#t}} will initiate a logout. The interact_style specifies which kinds of interaction will be available. Setting fast to @samp{@code{#t}} will limit the save to setting the session manager properties plus any essential data. Setting the value of global to @samp{@code{#t}} will request that all the other apps in the session do a save as well. A global save is mandatory when doing a shutdown. @table @var @item client Pointer to GNOME session client object. @item save-style Save style to request. @item shutdown Whether to log out of the session. @item interact-style Whether to allow user interaction. @item fast Minimize activity to save as soon as possible. @item global Request that all other apps in the session also save their state. @end table @end deffn @deffn Function gnome-client-flush (self@tie{}@code{}) @deffnx Method flush This will force the underlying connection to the session manager to be flushed. This is useful if you have some pending changes that you want to make sure get committed. @table @var @item client A @code{} instance. @end table @end deffn @deffn Function gnome-client-new @result{}@tie{} (ret@tie{}@code{}) Allocates memory for a new GNOME session management client object. After allocating, the client tries to connect to a session manager. You probably want to use @code{gnome-master-client} instead. @table @var @item ret Pointer to a newly allocated GNOME session management client object. @end table @end deffn @deffn Function gnome-client-new-without-connection @result{}@tie{} (ret@tie{}@code{}) Allocates memory for a new GNOME session management client object. You probably want to use @code{gnome-master-client} instead. @table @var @item ret Pointer to a newly allocated GNOME session management client object. @end table @end deffn @deffn Function gnome-client-connect (self@tie{}@code{}) @deffnx Method connect Causes the client to connect to the session manager. Usually happens automatically; no need to call this function. @table @var @item client A @code{} instance. @end table @end deffn @deffn Function gnome-client-disconnect (self@tie{}@code{}) @deffnx Method disconnect Disconnect the client from the session manager. @table @var @item client A @code{} instance. @end table @end deffn @deffn Function gnome-client-set-id (self@tie{}@code{}) (id@tie{}@code{mchars}) @deffnx Method set-id Set the client's session management ID; must be done before connecting to the session manager. There is usually no reason to call this function. @table @var @item client A @code{} instance. @item id Session management ID. @end table @end deffn @deffn Function gnome-client-get-id (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{mchars}) @deffnx Method get-id Returns session management ID @table @var @item client A @code{} instance. @item ret Session management ID for this client; @samp{@code{#f}} if not connected to a session manager. @end table @end deffn @deffn Function gnome-client-get-previous-id (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{mchars}) @deffnx Method get-previous-id Get the session management ID from the previous session. @table @var @item client A @code{} instance. @item ret Pointer to the session management ID the client had in the last session, or @samp{@code{#f}} if it was not in a previous session. @end table @end deffn @deffn Function gnome-client-get-desktop-id (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{mchars}) @deffnx Method get-desktop-id Get the client ID of the desktop's current instance, i.e. if you consider the desktop as a whole as a session managed app, this returns its session ID using a GNOME extension to session management. May return @samp{@code{#f}} for apps not running under a recent version of gnome-session; apps should handle that case. @table @var @item client A @code{} instance. @item ret Session ID of GNOME desktop instance, or @samp{@code{#f}} if none. @end table @end deffn @c %end of fragment guile-gnome-platform-2.16.2/libgnomeui/doc/section-gnome-client.xml.texi0000644000175000017500000000030311670374303026600 0ustar00wingowingo00000000000000 @c %start of fragment @node GnomeClient @chapter GnomeClient Interactions with the session manager. @section Overview @section Usage @include defuns-gnome-client.xml.texi @c %end of fragment guile-gnome-platform-2.16.2/libgnomeui/doc/defuns-gnome-dateedit.xml.texi0000644000175000017500000001042111670374303026727 0ustar00wingowingo00000000000000 @c %start of fragment @deftp Class Derives from @code{}. This class defines the following slots: @table @code @item time The time currently selected @item dateedit-flags Flags for how DateEdit looks @item lower-hour Lower hour in the time popup selector @item upper-hour Upper hour in the time popup selector @item initial-time The initial time @end table @end deftp @defop Signal time-changed @end defop @defop Signal date-changed @end defop @deffn Function gnome-date-edit-new (the_time@tie{}@code{long}) (show_time@tie{}@code{bool}) (use_24_format@tie{}@code{bool}) @result{}@tie{} (ret@tie{}@code{}) Creates a new @code{} widget which can be used to provide an easy to use way for entering dates and times. If @var{the-time} is 0 then current time is used. @table @var @item the-time date and time to be displayed on the widget @item show-time whether time should be displayed @item use-24-format whether 24-hour format is desired for the time display. @item ret a new @code{} widget. @end table @end deffn @deffn Function gnome-date-edit-new-flags (the_time@tie{}@code{long}) (flags@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{}) Creates a new @code{} widget with the specified flags. If @var{the-time} is 0 then current time is used. @table @var @item the-time The initial time for the date editor. @item flags A bitmask of GnomeDateEditFlags values. @item ret the newly-created date editor widget. @end table @end deffn @deffn Function gnome-date-edit-construct (self@tie{}@code{}) (the_time@tie{}@code{long}) (flags@tie{}@code{}) @deffnx Method construct For language bindings and subclassing only @table @var @item gde The @code{} object to construct @item the-time The initial time for the date editor. @item flags A bitmask of GnomeDateEditFlags values. @end table @end deffn @deffn Function gnome-date-edit-set-time (self@tie{}@code{}) (the_time@tie{}@code{long}) @deffnx Method set-time Changes the displayed date and time in the GnomeDateEdit widget to be the one represented by @var{the-time}. If @var{the-time} is 0 then current time is used. @table @var @item gde the GnomeDateEdit widget @item the-time The time and date that should be set on the widget @end table @end deffn @deffn Function gnome-date-edit-get-time (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{long}) @deffnx Method get-time @table @var @item gde The GnomeDateEdit widget @item ret the time entered in the GnomeDateEdit widget @end table @end deffn @deffn Function gnome-date-edit-set-popup-range (self@tie{}@code{}) (low_hour@tie{}@code{int}) (up_hour@tie{}@code{int}) @deffnx Method set-popup-range Sets the range of times that will be provide by the time popup selectors. @table @var @item gde The GnomeDateEdit widget @item low-hour low boundary for the time-range display popup. @item up-hour upper boundary for the time-range display popup. @end table @end deffn @deffn Function gnome-date-edit-set-flags (self@tie{}@code{}) (flags@tie{}@code{}) @deffnx Method set-flags Changes the display flags on an existing date editor widget. @table @var @item gde The date editor widget whose flags should be changed. @item flags The new bitmask of GnomeDateEditFlags values. @end table @end deffn @deffn Function gnome-date-edit-get-flags (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{int}) @deffnx Method get-flags Queries the display flags on a date editor widget. @table @var @item gde The date editor whose flags should be queried. @item ret The current display flags for the specified date editor widget. @end table @end deffn @deffn Function gnome-date-edit-get-initial-time (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{long}) @deffnx Method get-initial-time Queries the initial time that was set using the @code{} or during creation @table @var @item gde The date editor whose initial time should be queried @item ret The initial time in seconds (standard time_t format) @end table @end deffn @c %end of fragment guile-gnome-platform-2.16.2/libgnomeui/doc/defuns-gnome-vfs-util.xml.texi0000644000175000017500000000116211670374303026717 0ustar00wingowingo00000000000000 @c %start of fragment @deffn Function gnome-gdk-pixbuf-new-from-uri (uri@tie{}@code{mchars}) @result{}@tie{} (ret@tie{}@code{}) Loads a GdkPixbuf from the image file @var{uri} points to, scaling it to the desired size. If you pass -1 for @var{width} or @var{height} then the value specified in the file will be used. When preserving aspect ratio, if both height and width are set the size is picked such that the scaled image fits in a width * height rectangle. @table @var @item uri the uri of an image @item ret The loaded pixbuf, or NULL on error @end table Since 2.14 @end deffn @c %end of fragment guile-gnome-platform-2.16.2/libgnomeui/doc/section-gnome-password.xml.texi0000644000175000017500000000024311670374303027167 0ustar00wingowingo00000000000000 @c %start of fragment @node GnomePassword @chapter GnomePassword @section Overview @section Usage @include defuns-gnome-password.xml.texi @c %end of fragment guile-gnome-platform-2.16.2/libgnomeui/doc/overrides.texi0000644000175000017500000000000011670374303023752 0ustar00wingowingo00000000000000guile-gnome-platform-2.16.2/libgnomeui/doc/guile-gnome-libgnomeui.info0000644000175000017500000010657311752516272026324 0ustar00wingowingo00000000000000This is guile-gnome-libgnomeui.info, produced by makeinfo version 4.13 from guile-gnome-libgnomeui.texi. This manual is for `(gnome libgnomeui)' (version 2.16.2, updated 9 December 2011) Copyright 1998-2007 Kjartan Maraas, Anders Carlsson, and others Permission is granted to copy, distribute and/or modify this document under the terms of the GNU General Public License, Version 2 or any later version published by the Free Software Foundation. INFO-DIR-SECTION The Algorithmic Language Scheme START-INFO-DIR-ENTRY * Guile-Libgnomeui: (guile-gnome-libgnomeui.info). A deprecated GNOME UI lib. END-INFO-DIR-ENTRY  File: guile-gnome-libgnomeui.info, Node: Top, Next: Overview, Up: (dir) Guile-Libgnomeui **************** This manual is for `(gnome libgnomeui)' (version 2.16.2, updated 9 December 2011) Copyright 1998-2007 Kjartan Maraas, Anders Carlsson, and others Permission is granted to copy, distribute and/or modify this document under the terms of the GNU General Public License, Version 2 or any later version published by the Free Software Foundation. * Menu: * Overview:: About libgnomeui and its Guile bindings. * GnomeAuthentication:: * GnomeClient:: Interactions with the session manager. * GnomeDateEdit:: * GnomeMultiScreen:: * GnomePassword:: * gnome-vfs-util:: * Undocumented:: Undocumented functions. * Type Index:: * Function Index::  File: guile-gnome-libgnomeui.info, Node: Overview, Next: GnomeAuthentication, Prev: Top, Up: Top 1 Overview ********** `(gnome gnome-ui)' wraps some pieces of the libgnomeui library for Guile. It is a part of Guile-GNOME. Libgnomeui historically was a staging ground for code meant to go into GTK. In the modern environment, it has largely been replaced, its functionality having been pushed into GTK+ itself. However, as of 2008 it still has some utility as a kind of glue layer between lower-level modules, with the authentication manager, the GNOME-VFS GDK-Pixbuf integration, and the session manager code. See the documentation for `(gnome gobject)' for more information on Guile-GNOME.  File: guile-gnome-libgnomeui.info, Node: GnomeAuthentication, Next: GnomeClient, Prev: Overview, Up: Top 2 GnomeAuthentication ********************* 2.1 Overview ============ 2.2 Usage ========= -- Function: gnome-authentication-manager-init This function checks for thread support and does a thread initialisation, if the support is available. Also sets the default sync and async gnome-vfs callbacks for various types of authentication. Note: If you call this, and you use threads with gtk+, you must never hold the gdk lock while doing synchronous gnome-vfs calls. Otherwise an authentication callback presenting a dialog could try to grab the already held gdk lock, causing a deadlock. Since 2.4  File: guile-gnome-libgnomeui.info, Node: GnomeClient, Next: GnomeDateEdit, Prev: GnomeAuthentication, Up: Top 3 GnomeClient ************* Interactions with the session manager. 3.1 Overview ============ 3.2 Usage ========= -- Class: Derives from `'. This class defines no direct slots. -- Signal on : save-yourself (arg0 `') (arg1 `') (arg2 `') (arg3 `') (arg4 `') => `' Called when either a "SaveYourself" or a "SaveYourselfPhase2" call is made by the session manager. -- Signal on : die Called when the session manager wants the client to shut down. -- Signal on : save-complete Called when the session manager has finished checkpointing all of the clients. Clients are then free to change their state. -- Signal on : shutdown-cancelled Called if the session manager had sent a "SaveYourself" to all clients in preparation for shutting down and the shutdown was then cancelled. A client can then continue running and change its state. -- Signal on : connect (arg0 `') Called once the client has been connected to the signal manager. -- Signal on : disconnect Called when the client is disconnected from the session manager. -- Function: gnome-master-client => (ret `') Get the master session management client. This master client gets a client id, that may be specified by the '-sm-client-id' command line option. A master client will be generated by `gnome-program-init'. If possible the master client will contact the session manager after command-line parsing is finished (unless `gnome-client-disable-master-connection' was called). The master client will also set the SM_CLIENT_ID property on the client leader window of your application. Additionally, the master client gets some static arguments set automatically (see `gnome-client-add-static-arg' for static arguments): `gnome-program-init' passes all the command line options which are recognised by gtk as static arguments to the master client. RET Pointer to the master client -- Function: gnome-client-get-config-prefix (self `') => (ret `mchars') -- Method: get-config-prefix Get the config prefix for a client. This config prefix provides a suitable place to store any details about the state of the client which can not be described using the app's command line arguments (as set in the restart command). You may push the returned value using `gnome-config-push-prefix' and read or write any values you require. CLIENT Pointer to GNOME session client object. RET Config prefix. The returned string belongs to libgnomeui library and should NOT be freed by the caller. -- Function: gnome-client-get-flags (self `') => (ret `') -- Method: get-flags Determine the client's status with the session manager., CLIENT Pointer to GNOME session client object. RET Various `' flags which have been or'd together. -- Function: gnome-client-set-restart-style (self `') (style `') -- Method: set-restart-style Tells the session manager how the client should be restarted in future session. The options are given by the `' enum. CLIENT Pointer to GNOME session client object. STYLE When to restart the client. -- Function: gnome-client-set-priority (self `') (priority `unsigned-int') -- Method: set-priority The gnome-session manager restarts clients in order of their priorities in a similar way to the start up ordering in SysV. This function allows the app to suggest a position in this ordering. The value should be between 0 and 99. A default value of 50 is assigned to apps that do not provide a value. The user may assign a different priority. CLIENT Pointer to GNOME session client object. PRIORITY Position of client in session start up ordering. -- Function: gnome-client-set-current-directory (self `') (dir `mchars') -- Method: set-current-directory Set the directory to be in when running shutdown, discard, restart, etc. commands. CLIENT Pointer to GNOME session client object. DIR Directory path. -- Function: gnome-client-set-environment (self `') (name `mchars') (value `mchars') -- Method: set-environment Set an environment variable to be placed in the client's environment prior to running restart, shutdown, discard, etc. commands. CLIENT Pointer to GNOME session client object. NAME Name of the environment variable VALUE Value of the environment variable -- Function: gnome-client-set-process-id (self `') (pid `int') -- Method: set-process-id The client should tell the session manager the result of `getpid'. However, GNOME does this automatically; so you do not need this function. CLIENT Pointer to GNOME session client object. PID PID to set as the client's PID. -- Function: gnome-client-set-program (self `') (program `mchars') -- Method: set-program Used to tell the session manager the name of your program. Set automatically; this function isn't needed. CLIENT Pointer to GNOME session client object. PROGRAM Name of the program. -- Function: gnome-client-set-user-id (self `') (id `mchars') -- Method: set-user-id Tell the session manager the user's login name. GNOME does this automatically; no need to call the function. CLIENT Pointer to GNOME session client object. ID Username. -- Function: gnome-client-save-any-dialog (self `') (dialog `') -- Method: save-any-dialog May be called during a "save_youself" handler to request that a (modal) dialog is presented to the user. The session manager decides when the dialog is shown, but it will not be shown it unless the session manager is sending an interaction style of `'. A "Cancel Logout" button will be added during a shutdown. CLIENT Pointer to `' object. DIALOG Pointer to GNOME dialog widget (a `' widget). -- Function: gnome-client-save-error-dialog (self `') (dialog `') -- Method: save-error-dialog May be called during a "save_youself" handler when an error has occurred during the save. The session manager decides when the dialog is shown, but it will not be shown it unless the session manager is sending an interaction style of `'. A "Cancel Logout" button will be added during a shutdown. CLIENT Pointer to `' object. DIALOG Pointer to GNOME dialog widget (a `' widget). -- Function: gnome-client-request-phase-2 (self `') -- Method: request-phase-2 Request the session managaer to emit the "save_yourself" signal for a second time after all the clients in the session have ceased interacting with the user and entered an idle state. This might be useful if your app manages other apps and requires that they are in an idle state before saving its final data. CLIENT A `' object. -- Function: gnome-client-request-save (self `') (save_style `') (shutdown `bool') (interact_style `') (fast `bool') (global `bool') -- Method: request-save Request the session manager to save the session in some way. The arguments correspond with the arguments passed to the "save_yourself" signal handler. The save_style indicates whether the save should affect data accessible to other users (`') or only the state visible to the current user (`') or both. Setting shutdown to ``#t'' will initiate a logout. The interact_style specifies which kinds of interaction will be available. Setting fast to ``#t'' will limit the save to setting the session manager properties plus any essential data. Setting the value of global to ``#t'' will request that all the other apps in the session do a save as well. A global save is mandatory when doing a shutdown. CLIENT Pointer to GNOME session client object. SAVE-STYLE Save style to request. SHUTDOWN Whether to log out of the session. INTERACT-STYLE Whether to allow user interaction. FAST Minimize activity to save as soon as possible. GLOBAL Request that all other apps in the session also save their state. -- Function: gnome-client-flush (self `') -- Method: flush This will force the underlying connection to the session manager to be flushed. This is useful if you have some pending changes that you want to make sure get committed. CLIENT A `' instance. -- Function: gnome-client-new => (ret `') Allocates memory for a new GNOME session management client object. After allocating, the client tries to connect to a session manager. You probably want to use `gnome-master-client' instead. RET Pointer to a newly allocated GNOME session management client object. -- Function: gnome-client-new-without-connection => (ret `') Allocates memory for a new GNOME session management client object. You probably want to use `gnome-master-client' instead. RET Pointer to a newly allocated GNOME session management client object. -- Function: gnome-client-connect (self `') -- Method: connect Causes the client to connect to the session manager. Usually happens automatically; no need to call this function. CLIENT A `' instance. -- Function: gnome-client-disconnect (self `') -- Method: disconnect Disconnect the client from the session manager. CLIENT A `' instance. -- Function: gnome-client-set-id (self `') (id `mchars') -- Method: set-id Set the client's session management ID; must be done before connecting to the session manager. There is usually no reason to call this function. CLIENT A `' instance. ID Session management ID. -- Function: gnome-client-get-id (self `') => (ret `mchars') -- Method: get-id Returns session management ID CLIENT A `' instance. RET Session management ID for this client; ``#f'' if not connected to a session manager. -- Function: gnome-client-get-previous-id (self `') => (ret `mchars') -- Method: get-previous-id Get the session management ID from the previous session. CLIENT A `' instance. RET Pointer to the session management ID the client had in the last session, or ``#f'' if it was not in a previous session. -- Function: gnome-client-get-desktop-id (self `') => (ret `mchars') -- Method: get-desktop-id Get the client ID of the desktop's current instance, i.e. if you consider the desktop as a whole as a session managed app, this returns its session ID using a GNOME extension to session management. May return ``#f'' for apps not running under a recent version of gnome-session; apps should handle that case. CLIENT A `' instance. RET Session ID of GNOME desktop instance, or ``#f'' if none.  File: guile-gnome-libgnomeui.info, Node: GnomeDateEdit, Next: GnomeMultiScreen, Prev: GnomeClient, Up: Top 4 GnomeDateEdit *************** 4.1 Overview ============ 4.2 Usage ========= -- Class: Derives from `'. This class defines the following slots: `time' The time currently selected `dateedit-flags' Flags for how DateEdit looks `lower-hour' Lower hour in the time popup selector `upper-hour' Upper hour in the time popup selector `initial-time' The initial time -- Signal on : time-changed -- Signal on : date-changed -- Function: gnome-date-edit-new (the_time `long') (show_time `bool') (use_24_format `bool') => (ret `') Creates a new `' widget which can be used to provide an easy to use way for entering dates and times. If THE-TIME is 0 then current time is used. THE-TIME date and time to be displayed on the widget SHOW-TIME whether time should be displayed USE-24-FORMAT whether 24-hour format is desired for the time display. RET a new `' widget. -- Function: gnome-date-edit-new-flags (the_time `long') (flags `') => (ret `') Creates a new `' widget with the specified flags. If THE-TIME is 0 then current time is used. THE-TIME The initial time for the date editor. FLAGS A bitmask of GnomeDateEditFlags values. RET the newly-created date editor widget. -- Function: gnome-date-edit-construct (self `') (the_time `long') (flags `') -- Method: construct For language bindings and subclassing only GDE The `' object to construct THE-TIME The initial time for the date editor. FLAGS A bitmask of GnomeDateEditFlags values. -- Function: gnome-date-edit-set-time (self `') (the_time `long') -- Method: set-time Changes the displayed date and time in the GnomeDateEdit widget to be the one represented by THE-TIME. If THE-TIME is 0 then current time is used. GDE the GnomeDateEdit widget THE-TIME The time and date that should be set on the widget -- Function: gnome-date-edit-get-time (self `') => (ret `long') -- Method: get-time GDE The GnomeDateEdit widget RET the time entered in the GnomeDateEdit widget -- Function: gnome-date-edit-set-popup-range (self `') (low_hour `int') (up_hour `int') -- Method: set-popup-range Sets the range of times that will be provide by the time popup selectors. GDE The GnomeDateEdit widget LOW-HOUR low boundary for the time-range display popup. UP-HOUR upper boundary for the time-range display popup. -- Function: gnome-date-edit-set-flags (self `') (flags `') -- Method: set-flags Changes the display flags on an existing date editor widget. GDE The date editor widget whose flags should be changed. FLAGS The new bitmask of GnomeDateEditFlags values. -- Function: gnome-date-edit-get-flags (self `') => (ret `int') -- Method: get-flags Queries the display flags on a date editor widget. GDE The date editor whose flags should be queried. RET The current display flags for the specified date editor widget. -- Function: gnome-date-edit-get-initial-time (self `') => (ret `long') -- Method: get-initial-time Queries the initial time that was set using the `' or during creation GDE The date editor whose initial time should be queried RET The initial time in seconds (standard time_t format)  File: guile-gnome-libgnomeui.info, Node: GnomeMultiScreen, Next: GnomePassword, Prev: GnomeDateEdit, Up: Top 5 GnomeMultiScreen ****************** 5.1 Overview ============ 5.2 Usage ========= -- Function: gnome-url-show-on-screen (url `mchars') (screen `') => (ret `bool') Like `gnome-url-show', but ensures that the viewer application appears on SCREEN. URL The url to display. Should begin with the protocol to use (e.g. "http:", "ghelp:", etc) SCREEN a `'. ERROR Used to store any errors that result from trying to display the URL. RET ``#t'' if everything went fine, ``#f'' otherwise (in which case ERROR will contain the actual error). Since 2.6 -- Function: gnome-help-display-on-screen (file_name `mchars') (link_id `mchars') (screen `') => (ret `bool') Like `gnome-help-display', but ensures that the help viewer application appears on SCREEN. FILE-NAME The name of the help document to display. LINK-ID Can be ``#f''. If set, refers to an anchor or section id within the requested document. SCREEN a `'. ERROR A `' instance that will hold the specifics of any error which occurs during processing, or ``#f'' RET ``#t'' on success, ``#f'' otherwise (in which case ERROR will contain the actual error). Since 2.6 -- Function: gnome-help-display-uri-on-screen (help_uri `mchars') (screen `') => (ret `bool') Like `gnome-help-display-uri', but ensures that the help viewer application appears on SCREEN. HELP-URI The URI to display. SCREEN a `'. ERROR A `' instance that will hold the specifics of any error which occurs during processing, or ``#f'' RET ``#t'' on success, ``#f'' otherwise (in which case ERROR will contain the actual error). Since 2.6  File: guile-gnome-libgnomeui.info, Node: GnomePassword, Next: gnome-vfs-util, Prev: GnomeMultiScreen, Up: Top 6 GnomePassword *************** 6.1 Overview ============ 6.2 Usage ========= -- Class: Derives from `'. This class defines the following slots: `show-username' show-username `show-domain' show-domain `show-password' show-password `show-new-password' show-new-password `show-new-password-quality' show-new-password-quality `show-userpass-buttons' show-userpass-buttons `show-remember' show-remember `readonly-username' readonly-username `readonly-domain' readonly-domain `anonymous' anonymous `remember-mode' remember-mode `message' message `message-markup' message-markup `username' username `domain' domain `password' password `new-password' new-password -- Function: gnome-password-dialog-anon-selected (self `') => (ret `bool') -- Method: anon-selected Checks whether anonymous support is set to ``#t'' and the radio button for connecting as anonymous user is active. PASSWORD-DIALOG A `' RET ``#t'' if anonymous support is set and the radio button is active, ``#f'' otherwise. -- Function: gnome-password-dialog-get-domain (self `') => (ret `mchars') -- Method: get-domain Gets the domain name from the password dialog. PASSWORD-DIALOG A `' RET The domain name, a char*. Since 2.4 -- Function: gnome-password-dialog-get-password (self `') => (ret `mchars') -- Method: get-password Gets the password from the password dialog. PASSWORD-DIALOG A `' RET The password, a char*. Since 2.4 -- Function: gnome-password-dialog-get-username (self `') => (ret `mchars') -- Method: get-username Gets the username from the password dialog. PASSWORD-DIALOG A `' RET The username, a char*. Since 2.4 -- Function: gnome-password-dialog-new (dialog_title `mchars') (message `mchars') (username `mchars') (password `mchars') (readonly_username `bool') => (ret `') Creates a new password dialog with an optional title, message, username, password etc. The user will be given the option to save the password for this session only or store it permanently in her keyring. DIALOG-TITLE The title of the dialog MESSAGE Message text for the dialog USERNAME The username to be used in the dialog PASSWORD Password to be used READONLY-USERNAME Boolean value that controls whether the user can edit the username or not RET A new password dialog. Since 2.4 -- Function: gnome-password-dialog-run-and-block (self `') => (ret `bool') -- Method: run-and-block Gets the user input from PasswordDialog. PASSWORD-DIALOG A `' RET ``#t'' if "Connect" button is pressed. ``#f'' if "Cancel" button is pressed. Since 2.4 -- Function: gnome-password-dialog-set-domain (self `') (domain `mchars') -- Method: set-domain Sets the domain field in the password dialog to DOMAIN. PASSWORD-DIALOG A `' DOMAIN The domain that should be set Since 2.4 -- Function: gnome-password-dialog-set-password (self `') (password `mchars') -- Method: set-password Sets the password in the password dialog. PASSWORD-DIALOG A `' PASSWORD The password that should be set Since 2.4 -- Function: gnome-password-dialog-set-remember (self `') (remember `') -- Method: set-remember Based on the value of `', sets the state of the check buttons to remember password for the session and save password to keyring . PASSWORD-DIALOG A `'. REMEMBER A `'. Since 2.6 -- Function: gnome-password-dialog-set-username (self `') (username `mchars') -- Method: set-username Sets the username in the password dialog. PASSWORD-DIALOG A `' USERNAME The username that should be set Since 2.4  File: guile-gnome-libgnomeui.info, Node: gnome-vfs-util, Next: Undocumented, Prev: GnomePassword, Up: Top 7 gnome-vfs-util **************** 7.1 Overview ============ 7.2 Usage ========= -- Function: gnome-gdk-pixbuf-new-from-uri (uri `mchars') => (ret `') Loads a GdkPixbuf from the image file URI points to, scaling it to the desired size. If you pass -1 for WIDTH or HEIGHT then the value specified in the file will be used. When preserving aspect ratio, if both height and width are set the size is picked such that the scaled image fits in a width * height rectangle. URI the uri of an image RET The loaded pixbuf, or NULL on error Since 2.14  File: guile-gnome-libgnomeui.info, Node: Undocumented, Next: Type Index, Prev: gnome-vfs-util, Up: Top 8 Undocumented ************** The following symbols, if any, have not been properly documented. 8.1 (gnome gw libgnomeui) ========================= -- Variable: gnome-authentication-manager-dialog-is-visible -- Variable: gnome-client-get-global-config-prefix -- Variable: gnome-client-set-global-config-prefix -- Variable: gnome-gdk-pixbuf-new-from-uri-at-scale -- Function: gnome-help-display-desktop-on-screen -- Function: gnome-help-display-with-doc-id-on-screen -- Variable: gnome-password-dialog-get-remember -- Variable: gnome-password-dialog-set-readonly-domain -- Variable: gnome-password-dialog-set-readonly-username -- Variable: gnome-password-dialog-set-show-domain -- Variable: gnome-password-dialog-set-show-password -- Variable: gnome-password-dialog-set-show-remember -- Variable: gnome-password-dialog-set-show-username -- Variable: gnome-password-dialog-set-show-userpass-buttons  File: guile-gnome-libgnomeui.info, Node: Type Index, Next: Function Index, Prev: Undocumented, Up: Top Type Index ********** [index] * Menu: * : GnomeClient. (line 15) * : GnomeDateEdit. (line 13) * : GnomePassword. (line 13)  File: guile-gnome-libgnomeui.info, Node: Function Index, Prev: Type Index, Up: Top Function Index ************** [index] * Menu: * anon-selected: GnomePassword. (line 73) * connect: GnomeClient. (line 337) * connect on : GnomeClient. (line 44) * construct: GnomeDateEdit. (line 77) * date-changed on : GnomeDateEdit. (line 37) * die on : GnomeClient. (line 29) * disconnect: GnomeClient. (line 347) * disconnect on : GnomeClient. (line 48) * flush: GnomeClient. (line 304) * get-config-prefix: GnomeClient. (line 75) * get-desktop-id: GnomeClient. (line 399) * get-domain: GnomePassword. (line 88) * get-flags <1>: GnomeDateEdit. (line 149) * get-flags: GnomeClient. (line 94) * get-id: GnomeClient. (line 371) * get-initial-time: GnomeDateEdit. (line 163) * get-password: GnomePassword. (line 103) * get-previous-id: GnomeClient. (line 385) * get-time: GnomeDateEdit. (line 108) * get-username: GnomePassword. (line 118) * gnome-authentication-manager-init: GnomeAuthentication. (line 13) * gnome-client-connect: GnomeClient. (line 336) * gnome-client-disconnect: GnomeClient. (line 346) * gnome-client-flush: GnomeClient. (line 303) * gnome-client-get-config-prefix: GnomeClient. (line 74) * gnome-client-get-desktop-id: GnomeClient. (line 398) * gnome-client-get-flags: GnomeClient. (line 93) * gnome-client-get-id: GnomeClient. (line 370) * gnome-client-get-previous-id: GnomeClient. (line 384) * gnome-client-new: GnomeClient. (line 314) * gnome-client-new-without-connection: GnomeClient. (line 326) * gnome-client-request-phase-2: GnomeClient. (line 249) * gnome-client-request-save: GnomeClient. (line 265) * gnome-client-save-any-dialog: GnomeClient. (line 215) * gnome-client-save-error-dialog: GnomeClient. (line 233) * gnome-client-set-current-directory: GnomeClient. (line 140) * gnome-client-set-environment: GnomeClient. (line 154) * gnome-client-set-id: GnomeClient. (line 355) * gnome-client-set-priority: GnomeClient. (line 122) * gnome-client-set-process-id: GnomeClient. (line 172) * gnome-client-set-program: GnomeClient. (line 187) * gnome-client-set-restart-style: GnomeClient. (line 107) * gnome-client-set-user-id: GnomeClient. (line 201) * gnome-date-edit-construct: GnomeDateEdit. (line 76) * gnome-date-edit-get-flags: GnomeDateEdit. (line 148) * gnome-date-edit-get-initial-time: GnomeDateEdit. (line 162) * gnome-date-edit-get-time: GnomeDateEdit. (line 107) * gnome-date-edit-new: GnomeDateEdit. (line 40) * gnome-date-edit-new-flags: GnomeDateEdit. (line 60) * gnome-date-edit-set-flags: GnomeDateEdit. (line 135) * gnome-date-edit-set-popup-range: GnomeDateEdit. (line 118) * gnome-date-edit-set-time: GnomeDateEdit. (line 92) * gnome-gdk-pixbuf-new-from-uri: gnome-vfs-util. (line 14) * gnome-help-display-desktop-on-screen: Undocumented. (line 20) * gnome-help-display-on-screen: GnomeMultiScreen. (line 38) * gnome-help-display-uri-on-screen: GnomeMultiScreen. (line 65) * gnome-help-display-with-doc-id-on-screen: Undocumented. (line 22) * gnome-master-client: GnomeClient. (line 52) * gnome-password-dialog-anon-selected: GnomePassword. (line 72) * gnome-password-dialog-get-domain: GnomePassword. (line 87) * gnome-password-dialog-get-password: GnomePassword. (line 102) * gnome-password-dialog-get-username: GnomePassword. (line 117) * gnome-password-dialog-new: GnomePassword. (line 133) * gnome-password-dialog-run-and-block: GnomePassword. (line 163) * gnome-password-dialog-set-domain: GnomePassword. (line 179) * gnome-password-dialog-set-password: GnomePassword. (line 194) * gnome-password-dialog-set-remember: GnomePassword. (line 210) * gnome-password-dialog-set-username: GnomePassword. (line 227) * gnome-url-show-on-screen: GnomeMultiScreen. (line 14) * request-phase-2: GnomeClient. (line 250) * request-save: GnomeClient. (line 266) * run-and-block: GnomePassword. (line 164) * save-any-dialog: GnomeClient. (line 216) * save-complete on : GnomeClient. (line 33) * save-error-dialog: GnomeClient. (line 234) * save-yourself on : GnomeClient. (line 24) * set-current-directory: GnomeClient. (line 141) * set-domain: GnomePassword. (line 180) * set-environment: GnomeClient. (line 155) * set-flags: GnomeDateEdit. (line 136) * set-id: GnomeClient. (line 356) * set-password: GnomePassword. (line 195) * set-popup-range: GnomeDateEdit. (line 119) * set-priority: GnomeClient. (line 123) * set-process-id: GnomeClient. (line 173) * set-program: GnomeClient. (line 188) * set-remember: GnomePassword. (line 211) * set-restart-style: GnomeClient. (line 108) * set-time: GnomeDateEdit. (line 93) * set-user-id: GnomeClient. (line 202) * set-username: GnomePassword. (line 228) * shutdown-cancelled on : GnomeClient. (line 38) * time-changed on : GnomeDateEdit. (line 35)  Tag Table: Node: Top642 Node: Overview1448 Node: GnomeAuthentication2160 Node: GnomeClient2920 Node: GnomeDateEdit15458 Node: GnomeMultiScreen19639 Node: GnomePassword21766 Node: gnome-vfs-util26824 Node: Undocumented27575 Node: Type Index28613 Node: Function Index28987  End Tag Table guile-gnome-platform-2.16.2/libgnomeui/doc/version.texi0000644000175000017500000000014611752511104023441 0ustar00wingowingo00000000000000@set UPDATED 9 December 2011 @set UPDATED-MONTH December 2011 @set EDITION 2.16.2 @set VERSION 2.16.2 guile-gnome-platform-2.16.2/libgnomeui/doc/defuns-gnome-authentication.xml.texi0000644000175000017500000000107111670374303030164 0ustar00wingowingo00000000000000 @c %start of fragment @deffn Function gnome-authentication-manager-init This function checks for thread support and does a thread initialisation, if the support is available. Also sets the default sync and async gnome-vfs callbacks for various types of authentication. Note: If you call this, and you use threads with gtk+, you must never hold the gdk lock while doing synchronous gnome-vfs calls. Otherwise an authentication callback presenting a dialog could try to grab the already held gdk lock, causing a deadlock. Since 2.4 @end deffn @c %end of fragment guile-gnome-platform-2.16.2/libgnomeui/doc/Makefile.am0000644000175000017500000000315311670374303023125 0ustar00wingowingo00000000000000################################################################################ ## guile-gnome-libgnomeui.info include $(top_srcdir)/generate-docs.mk docbook_xml_wildcard = ~/src/gnome2/libgnomeui/doc/reference/xml/*.xml docbook_xml_ignore_files = \ %gnome-app-util.xml \ %gnome-color-picker.xml \ %gnome-mdi.xml \ %gnome-mdi-child.xml \ %gnome-mdi-generic-child.xml \ %gnome-mdi-session.xml \ %gnome-dialog.xml \ %gnome-dialog-util.xml \ %gnome-messagebox.xml \ %gnome-propertybox.xml \ %gnome-entry.xml \ %gnome-font-picker.xml \ %gnome-icon-theme.xml \ %gnome-pixmap.xml \ %gnome-pixmap-entry.xml \ %gnome-theme-parse.xml \ %gnome-popup-menu.xml \ %gnome-about.xml \ %gnome-appbar.xml \ %gnome-app-helper.xml \ %gnome-app.xml \ %gnome-druid-page-edge.xml \ %gnome-druid-page-standard.xml \ %gnome-druid-page.xml \ %gnome-druid.xml \ %gnome-file-entry.xml \ %gnome-href.xml \ %gnome-ice.xml \ %gnome-icon-entry.xml \ %gnome-icon-item.xml \ %gnome-icon-list.xml \ %gnome-icon-lookup.xml \ %gnome-icon-sel.xml \ %gnome-scores.xml \ %gnome-stock-icons.xml \ %gnome-thumbnail.xml \ %gnometypebuiltins.xml \ %gnome-types.xml \ %gnome-uidefs.xml \ %gnome-ui-init.xml \ %gnome-window-icon.xml \ %gnome-window.xml docbook_xml_files = $(filter-out $(docbook_xml_ignore_files), $(wildcard $(docbook_xml_wildcard))) wrapset_stem = libgnomeui GTK_DOC_COVERAGE_MODULES = (gnome gnome-ui) (gnome gw $(wrapset_stem)) EXTRA_DIST = overrides.texi info_TEXINFOS=guile-gnome-libgnomeui.texi guile_gnome_libgnomeui_TEXINFOS=overview.texi \ $(wildcard section-*.texi) $(wildcard defuns-*.texi) undocumented.texi guile-gnome-platform-2.16.2/libgnomeui/doc/Makefile.in0000644000175000017500000006761611752511070023147 0ustar00wingowingo00000000000000# Makefile.in generated by automake 1.11.5 from Makefile.am. # @configure_input@ # Copyright (C) 1994, 1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, # 2003, 2004, 2005, 2006, 2007, 2008, 2009, 2010, 2011 Free Software # Foundation, Inc. # This Makefile.in is free software; the Free Software Foundation # gives unlimited permission to copy and/or distribute it, # with or without modifications, as long as this notice is preserved. # This program is distributed in the hope that it will be useful, # but WITHOUT ANY WARRANTY, to the extent permitted by law; without # even the implied warranty of MERCHANTABILITY or FITNESS FOR A # PARTICULAR PURPOSE. @SET_MAKE@ ################################################################################ # guile-gnome # Copyright (C) 2007, 2011 Free Software Foundation, Inc. # This program is free software; you can redistribute it and/or # modify it under the terms of the GNU General Public License as # published by the Free Software Foundation; either version 2 of # the License, or (at your option) any later version. # This program is distributed in the hope that it will be useful, # but WITHOUT ANY WARRANTY; without even the implied warranty of # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the # GNU General Public License for more details. # You should have received a copy of the GNU General Public License # along with this program; if not, contact: # Free Software Foundation Voice: +1-617-542-5942 # 59 Temple Place - Suite 330 Fax: +1-617-542-2652 # Boston, MA 02111-1307, USA gnu@gnu.org # # Makefile snippet # VPATH = @srcdir@ am__make_dryrun = \ { \ am__dry=no; \ case $$MAKEFLAGS in \ *\\[\ \ ]*) \ echo 'am--echo: ; @echo "AM" OK' | $(MAKE) -f - 2>/dev/null \ | grep '^AM OK$$' >/dev/null || am__dry=yes;; \ *) \ for am__flg in $$MAKEFLAGS; do \ case $$am__flg in \ *=*|--*) ;; \ *n*) am__dry=yes; break;; \ esac; \ done;; \ esac; \ test $$am__dry = yes; \ } pkgdatadir = $(datadir)/@PACKAGE@ pkgincludedir = $(includedir)/@PACKAGE@ pkglibdir = $(libdir)/@PACKAGE@ pkglibexecdir = $(libexecdir)/@PACKAGE@ am__cd = CDPATH="$${ZSH_VERSION+.}$(PATH_SEPARATOR)" && cd install_sh_DATA = $(install_sh) -c -m 644 install_sh_PROGRAM = $(install_sh) -c install_sh_SCRIPT = $(install_sh) -c INSTALL_HEADER = $(INSTALL_DATA) transform = $(program_transform_name) NORMAL_INSTALL = : PRE_INSTALL = : POST_INSTALL = : NORMAL_UNINSTALL = : PRE_UNINSTALL = : POST_UNINSTALL = : build_triplet = @build@ host_triplet = @host@ DIST_COMMON = $(guile_gnome_libgnomeui_TEXINFOS) $(srcdir)/Makefile.am \ $(srcdir)/Makefile.in $(srcdir)/stamp-vti \ $(srcdir)/version.texi $(top_srcdir)/generate-docs.mk subdir = libgnomeui/doc ACLOCAL_M4 = $(top_srcdir)/aclocal.m4 am__aclocal_m4_deps = $(top_srcdir)/configure.ac am__configure_deps = $(am__aclocal_m4_deps) $(CONFIGURE_DEPENDENCIES) \ $(ACLOCAL_M4) mkinstalldirs = $(install_sh) -d CONFIG_HEADER = $(top_builddir)/config.h CONFIG_CLEAN_FILES = CONFIG_CLEAN_VPATH_FILES = SOURCES = DIST_SOURCES = INFO_DEPS = $(srcdir)/guile-gnome-libgnomeui.info TEXINFO_TEX = $(top_srcdir)/build-aux/texinfo.tex am__TEXINFO_TEX_DIR = $(top_srcdir)/build-aux DVIS = guile-gnome-libgnomeui.dvi PDFS = guile-gnome-libgnomeui.pdf PSS = guile-gnome-libgnomeui.ps HTMLS = guile-gnome-libgnomeui.html TEXINFOS = guile-gnome-libgnomeui.texi TEXI2DVI = texi2dvi TEXI2PDF = $(TEXI2DVI) --pdf --batch MAKEINFOHTML = $(MAKEINFO) --html AM_MAKEINFOHTMLFLAGS = $(AM_MAKEINFOFLAGS) DVIPS = dvips am__can_run_installinfo = \ case $$AM_UPDATE_INFO_DIR in \ n|no|NO) false;; \ *) (install-info --version) >/dev/null 2>&1;; \ esac am__installdirs = "$(DESTDIR)$(infodir)" am__vpath_adj_setup = srcdirstrip=`echo "$(srcdir)" | sed 's|.|.|g'`; am__vpath_adj = case $$p in \ $(srcdir)/*) f=`echo "$$p" | sed "s|^$$srcdirstrip/||"`;; \ *) f=$$p;; \ esac; am__strip_dir = f=`echo $$p | sed -e 's|^.*/||'`; am__install_max = 40 am__nobase_strip_setup = \ srcdirstrip=`echo "$(srcdir)" | sed 's/[].[^$$\\*|]/\\\\&/g'` am__nobase_strip = \ for p in $$list; do echo "$$p"; done | sed -e "s|$$srcdirstrip/||" am__nobase_list = $(am__nobase_strip_setup); \ for p in $$list; do echo "$$p $$p"; done | \ sed "s| $$srcdirstrip/| |;"' / .*\//!s/ .*/ ./; s,\( .*\)/[^/]*$$,\1,' | \ $(AWK) 'BEGIN { files["."] = "" } { files[$$2] = files[$$2] " " $$1; \ if (++n[$$2] == $(am__install_max)) \ { print $$2, files[$$2]; n[$$2] = 0; files[$$2] = "" } } \ END { for (dir in files) print dir, files[dir] }' am__base_list = \ sed '$$!N;$$!N;$$!N;$$!N;$$!N;$$!N;$$!N;s/\n/ /g' | \ sed '$$!N;$$!N;$$!N;$$!N;s/\n/ /g' am__uninstall_files_from_dir = { \ test -z "$$files" \ || { test ! -d "$$dir" && test ! -f "$$dir" && test ! -r "$$dir"; } \ || { echo " ( cd '$$dir' && rm -f" $$files ")"; \ $(am__cd) "$$dir" && rm -f $$files; }; \ } DISTFILES = $(DIST_COMMON) $(DIST_SOURCES) $(TEXINFOS) $(EXTRA_DIST) ACLOCAL = @ACLOCAL@ AG_PKG_CONFIG_PATH = @AG_PKG_CONFIG_PATH@ AMTAR = @AMTAR@ API_VERSION = @API_VERSION@ AR = @AR@ ATK_CFLAGS = @ATK_CFLAGS@ ATK_LIBS = @ATK_LIBS@ AUTOCONF = @AUTOCONF@ AUTOHEADER = @AUTOHEADER@ AUTOMAKE = @AUTOMAKE@ AWK = @AWK@ BONOBO_IDL_DIR = @BONOBO_IDL_DIR@ CANVAS_CFLAGS = @CANVAS_CFLAGS@ CANVAS_LIBS = @CANVAS_LIBS@ CC = @CC@ CCDEPMODE = @CCDEPMODE@ CFLAGS = @CFLAGS@ CORBA_CFLAGS = @CORBA_CFLAGS@ CORBA_LIBS = @CORBA_LIBS@ CPP = @CPP@ CPPFLAGS = @CPPFLAGS@ CYGPATH_W = @CYGPATH_W@ DEFS = @DEFS@ DEPDIR = @DEPDIR@ DLLTOOL = @DLLTOOL@ DSYMUTIL = @DSYMUTIL@ DUMPBIN = @DUMPBIN@ ECHO_C = @ECHO_C@ ECHO_N = @ECHO_N@ ECHO_T = @ECHO_T@ EGREP = @EGREP@ EXEEXT = @EXEEXT@ FGREP = @FGREP@ GCONF_CFLAGS = @GCONF_CFLAGS@ GCONF_LIBS = @GCONF_LIBS@ GDK_CFLAGS = @GDK_CFLAGS@ GDK_LIBS = @GDK_LIBS@ GDK_PIXBUF_CFLAGS = @GDK_PIXBUF_CFLAGS@ GDK_PIXBUF_LIBS = @GDK_PIXBUF_LIBS@ GLIB_CFLAGS = @GLIB_CFLAGS@ GLIB_LIBS = @GLIB_LIBS@ GNOMEUI_DEPRECATION_FLAGS = @GNOMEUI_DEPRECATION_FLAGS@ GNOME_VFS_CFLAGS = @GNOME_VFS_CFLAGS@ GNOME_VFS_DEPRECATED_CFLAGS = @GNOME_VFS_DEPRECATED_CFLAGS@ GNOME_VFS_LIBS = @GNOME_VFS_LIBS@ GOBJECT_CFLAGS = @GOBJECT_CFLAGS@ GOBJECT_LIBS = @GOBJECT_LIBS@ GREP = @GREP@ GTHREAD_CFLAGS = @GTHREAD_CFLAGS@ GTHREAD_LIBS = @GTHREAD_LIBS@ GTK_CFLAGS = @GTK_CFLAGS@ GTK_DEPRECATED_CFLAGS = @GTK_DEPRECATED_CFLAGS@ GTK_LIBS = @GTK_LIBS@ GUILE_CAIRO_CFLAGS = @GUILE_CAIRO_CFLAGS@ GUILE_CAIRO_LIBS = @GUILE_CAIRO_LIBS@ GUILE_CFLAGS = @GUILE_CFLAGS@ GUILE_EFFECTIVE_VERSION = @GUILE_EFFECTIVE_VERSION@ GUILE_GLIB_CFLAGS = @GUILE_GLIB_CFLAGS@ GUILE_GLIB_LIBS = @GUILE_GLIB_LIBS@ GUILE_LIBS = @GUILE_LIBS@ G_WRAP_CFLAGS = @G_WRAP_CFLAGS@ G_WRAP_LIBS = @G_WRAP_LIBS@ G_WRAP_LIB_DIR = @G_WRAP_LIB_DIR@ G_WRAP_MODULE_DIR = @G_WRAP_MODULE_DIR@ INSTALL = @INSTALL@ INSTALL_DATA = @INSTALL_DATA@ INSTALL_PROGRAM = @INSTALL_PROGRAM@ INSTALL_SCRIPT = @INSTALL_SCRIPT@ INSTALL_STRIP_PROGRAM = @INSTALL_STRIP_PROGRAM@ LD = @LD@ LDFLAGS = @LDFLAGS@ LIBGLADE_CFLAGS = @LIBGLADE_CFLAGS@ LIBGLADE_LIBS = @LIBGLADE_LIBS@ LIBGNOMEUI_CFLAGS = @LIBGNOMEUI_CFLAGS@ LIBGNOMEUI_LIBS = @LIBGNOMEUI_LIBS@ LIBGNOME_CFLAGS = @LIBGNOME_CFLAGS@ LIBGNOME_LIBS = @LIBGNOME_LIBS@ LIBOBJS = @LIBOBJS@ LIBS = @LIBS@ LIBTOOL = @LIBTOOL@ LIPO = @LIPO@ LN_S = @LN_S@ LTLIBOBJS = @LTLIBOBJS@ MAKEINFO = @MAKEINFO@ MANIFEST_TOOL = @MANIFEST_TOOL@ MKDIR_P = @MKDIR_P@ NM = @NM@ NMEDIT = @NMEDIT@ OBJDUMP = @OBJDUMP@ OBJEXT = @OBJEXT@ ORBIT_IDL = @ORBIT_IDL@ OTOOL = @OTOOL@ OTOOL64 = @OTOOL64@ PACKAGE = @PACKAGE@ PACKAGE_BUGREPORT = @PACKAGE_BUGREPORT@ PACKAGE_NAME = @PACKAGE_NAME@ PACKAGE_STRING = @PACKAGE_STRING@ PACKAGE_TARNAME = @PACKAGE_TARNAME@ PACKAGE_URL = @PACKAGE_URL@ PACKAGE_VERSION = @PACKAGE_VERSION@ PANGOCAIRO_CFLAGS = @PANGOCAIRO_CFLAGS@ PANGOCAIRO_LIBS = @PANGOCAIRO_LIBS@ PANGO_CFLAGS = @PANGO_CFLAGS@ PANGO_LIBS = @PANGO_LIBS@ PATH_SEPARATOR = @PATH_SEPARATOR@ PKG_CONFIG = @PKG_CONFIG@ PKG_CONFIG_LIBDIR = @PKG_CONFIG_LIBDIR@ PKG_CONFIG_PATH = @PKG_CONFIG_PATH@ RANLIB = @RANLIB@ SED = @SED@ SET_MAKE = @SET_MAKE@ SHELL = @SHELL@ STRIP = @STRIP@ VERSION = @VERSION@ WARN_CFLAGS = @WARN_CFLAGS@ abs_builddir = @abs_builddir@ abs_srcdir = @abs_srcdir@ abs_top_builddir = @abs_top_builddir@ abs_top_srcdir = @abs_top_srcdir@ ac_ct_AR = @ac_ct_AR@ ac_ct_CC = @ac_ct_CC@ ac_ct_DUMPBIN = @ac_ct_DUMPBIN@ am__include = @am__include@ am__leading_dot = @am__leading_dot@ am__quote = @am__quote@ am__tar = @am__tar@ am__untar = @am__untar@ bindir = @bindir@ build = @build@ build_alias = @build_alias@ build_cpu = @build_cpu@ build_os = @build_os@ build_vendor = @build_vendor@ builddir = @builddir@ datadir = @datadir@ datarootdir = @datarootdir@ docdir = @docdir@ dvidir = @dvidir@ exec_prefix = @exec_prefix@ host = @host@ host_alias = @host_alias@ host_cpu = @host_cpu@ host_os = @host_os@ host_vendor = @host_vendor@ htmldir = @htmldir@ includedir = @includedir@ infodir = @infodir@ install_sh = @install_sh@ libdir = @libdir@ libexecdir = @libexecdir@ localedir = @localedir@ localstatedir = @localstatedir@ mandir = @mandir@ mkdir_p = @mkdir_p@ oldincludedir = @oldincludedir@ pdfdir = @pdfdir@ prefix = @prefix@ program_transform_name = @program_transform_name@ psdir = @psdir@ sbindir = @sbindir@ sharedstatedir = @sharedstatedir@ srcdir = @srcdir@ sysconfdir = @sysconfdir@ target_alias = @target_alias@ top_build_prefix = @top_build_prefix@ top_builddir = @top_builddir@ top_srcdir = @top_srcdir@ wrapset_module = (gnome gw $(wrapset_stem)-spec) wrapset_name = gnome-$(wrapset_stem) GTK_DOC_TO_TEXI_STUBS = '((@ (gnome gw support gtk-doc) gtk-doc->texi-stubs) (cdr (program-arguments)))' GTK_DOC_DEFUN_HEURISTICS_METHOD = heuristics GTK_DOC_DEFUN_HEURISTICS_ARGS = (your-module-here) GTK_DOC_DEFUN_GWRAP_METHOD = g-wrap GTK_DOC_DEFUN_GWRAP_ARGS = $(wrapset_module) $(wrapset_name) GTK_DOC_DEFUN_METHOD = $(GTK_DOC_DEFUN_GWRAP_METHOD) GTK_DOC_DEFUN_ARGS = $(GTK_DOC_DEFUN_GWRAP_ARGS) GTK_DOC_TO_TEXI_DEFUNS = "(apply (@ (gnome gw support gtk-doc) gtk-doc->texi-defuns) (cadr (program-arguments)) '$(GTK_DOC_DEFUN_METHOD) '($(GTK_DOC_DEFUN_ARGS)) (cddr (program-arguments)))" GTK_DOC_COVERAGE_MODULES = (gnome gnome-ui) (gnome gw $(wrapset_stem)) GTK_DOC_COVERAGE_TEXI = $(info_TEXINFOS) GTK_DOC_CHECK_COVERAGE = "((@ (gnome gw support gtk-doc) check-documentation-coverage) '($(GTK_DOC_COVERAGE_MODULES)) \"$(GTK_DOC_COVERAGE_TEXI)\")" GTK_DOC_GENERATE_UNDOCUMENTED = "((@ (gnome gw support gtk-doc) generate-undocumented-texi) '($(GTK_DOC_COVERAGE_MODULES)) \"$(GTK_DOC_COVERAGE_TEXI)\")" GUILE = $(top_builddir)/dev-environ guile docbook_xml_wildcard = ~/src/gnome2/libgnomeui/doc/reference/xml/*.xml docbook_xml_ignore_files = \ %gnome-app-util.xml \ %gnome-color-picker.xml \ %gnome-mdi.xml \ %gnome-mdi-child.xml \ %gnome-mdi-generic-child.xml \ %gnome-mdi-session.xml \ %gnome-dialog.xml \ %gnome-dialog-util.xml \ %gnome-messagebox.xml \ %gnome-propertybox.xml \ %gnome-entry.xml \ %gnome-font-picker.xml \ %gnome-icon-theme.xml \ %gnome-pixmap.xml \ %gnome-pixmap-entry.xml \ %gnome-theme-parse.xml \ %gnome-popup-menu.xml \ %gnome-about.xml \ %gnome-appbar.xml \ %gnome-app-helper.xml \ %gnome-app.xml \ %gnome-druid-page-edge.xml \ %gnome-druid-page-standard.xml \ %gnome-druid-page.xml \ %gnome-druid.xml \ %gnome-file-entry.xml \ %gnome-href.xml \ %gnome-ice.xml \ %gnome-icon-entry.xml \ %gnome-icon-item.xml \ %gnome-icon-list.xml \ %gnome-icon-lookup.xml \ %gnome-icon-sel.xml \ %gnome-scores.xml \ %gnome-stock-icons.xml \ %gnome-thumbnail.xml \ %gnometypebuiltins.xml \ %gnome-types.xml \ %gnome-uidefs.xml \ %gnome-ui-init.xml \ %gnome-window-icon.xml \ %gnome-window.xml docbook_xml_files = $(filter-out $(docbook_xml_ignore_files), $(wildcard $(docbook_xml_wildcard))) wrapset_stem = libgnomeui EXTRA_DIST = overrides.texi info_TEXINFOS = guile-gnome-libgnomeui.texi guile_gnome_libgnomeui_TEXINFOS = overview.texi \ $(wildcard section-*.texi) $(wildcard defuns-*.texi) undocumented.texi all: all-am .SUFFIXES: .SUFFIXES: .dvi .html .info .pdf .ps .texi $(srcdir)/Makefile.in: $(srcdir)/Makefile.am $(top_srcdir)/generate-docs.mk $(am__configure_deps) @for dep in $?; do \ case '$(am__configure_deps)' in \ *$$dep*) \ ( cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh ) \ && { if test -f $@; then exit 0; else break; fi; }; \ exit 1;; \ esac; \ done; \ echo ' cd $(top_srcdir) && $(AUTOMAKE) --gnu libgnomeui/doc/Makefile'; \ $(am__cd) $(top_srcdir) && \ $(AUTOMAKE) --gnu libgnomeui/doc/Makefile .PRECIOUS: Makefile Makefile: $(srcdir)/Makefile.in $(top_builddir)/config.status @case '$?' in \ *config.status*) \ cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh;; \ *) \ echo ' cd $(top_builddir) && $(SHELL) ./config.status $(subdir)/$@ $(am__depfiles_maybe)'; \ cd $(top_builddir) && $(SHELL) ./config.status $(subdir)/$@ $(am__depfiles_maybe);; \ esac; $(top_srcdir)/generate-docs.mk: $(top_builddir)/config.status: $(top_srcdir)/configure $(CONFIG_STATUS_DEPENDENCIES) cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh $(top_srcdir)/configure: $(am__configure_deps) cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh $(ACLOCAL_M4): $(am__aclocal_m4_deps) cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh $(am__aclocal_m4_deps): mostlyclean-libtool: -rm -f *.lo clean-libtool: -rm -rf .libs _libs .texi.info: restore=: && backupdir="$(am__leading_dot)am$$$$" && \ am__cwd=`pwd` && $(am__cd) $(srcdir) && \ rm -rf $$backupdir && mkdir $$backupdir && \ if ($(MAKEINFO) --version) >/dev/null 2>&1; then \ for f in $@ $@-[0-9] $@-[0-9][0-9] $(@:.info=).i[0-9] $(@:.info=).i[0-9][0-9]; do \ if test -f $$f; then mv $$f $$backupdir; restore=mv; else :; fi; \ done; \ else :; fi && \ cd "$$am__cwd"; \ if $(MAKEINFO) $(AM_MAKEINFOFLAGS) $(MAKEINFOFLAGS) -I $(srcdir) \ -o $@ $<; \ then \ rc=0; \ $(am__cd) $(srcdir); \ else \ rc=$$?; \ $(am__cd) $(srcdir) && \ $$restore $$backupdir/* `echo "./$@" | sed 's|[^/]*$$||'`; \ fi; \ rm -rf $$backupdir; exit $$rc .texi.dvi: TEXINPUTS="$(am__TEXINFO_TEX_DIR)$(PATH_SEPARATOR)$$TEXINPUTS" \ MAKEINFO='$(MAKEINFO) $(AM_MAKEINFOFLAGS) $(MAKEINFOFLAGS) -I $(srcdir)' \ $(TEXI2DVI) $< .texi.pdf: TEXINPUTS="$(am__TEXINFO_TEX_DIR)$(PATH_SEPARATOR)$$TEXINPUTS" \ MAKEINFO='$(MAKEINFO) $(AM_MAKEINFOFLAGS) $(MAKEINFOFLAGS) -I $(srcdir)' \ $(TEXI2PDF) $< .texi.html: rm -rf $(@:.html=.htp) if $(MAKEINFOHTML) $(AM_MAKEINFOHTMLFLAGS) $(MAKEINFOFLAGS) -I $(srcdir) \ -o $(@:.html=.htp) $<; \ then \ rm -rf $@; \ if test ! -d $(@:.html=.htp) && test -d $(@:.html=); then \ mv $(@:.html=) $@; else mv $(@:.html=.htp) $@; fi; \ else \ if test ! -d $(@:.html=.htp) && test -d $(@:.html=); then \ rm -rf $(@:.html=); else rm -Rf $(@:.html=.htp) $@; fi; \ exit 1; \ fi $(srcdir)/guile-gnome-libgnomeui.info: guile-gnome-libgnomeui.texi $(srcdir)/version.texi $(guile_gnome_libgnomeui_TEXINFOS) guile-gnome-libgnomeui.dvi: guile-gnome-libgnomeui.texi $(srcdir)/version.texi $(guile_gnome_libgnomeui_TEXINFOS) guile-gnome-libgnomeui.pdf: guile-gnome-libgnomeui.texi $(srcdir)/version.texi $(guile_gnome_libgnomeui_TEXINFOS) guile-gnome-libgnomeui.html: guile-gnome-libgnomeui.texi $(srcdir)/version.texi $(guile_gnome_libgnomeui_TEXINFOS) $(srcdir)/version.texi: $(srcdir)/stamp-vti $(srcdir)/stamp-vti: guile-gnome-libgnomeui.texi $(top_srcdir)/configure @(dir=.; test -f ./guile-gnome-libgnomeui.texi || dir=$(srcdir); \ set `$(SHELL) $(top_srcdir)/build-aux/mdate-sh $$dir/guile-gnome-libgnomeui.texi`; \ echo "@set UPDATED $$1 $$2 $$3"; \ echo "@set UPDATED-MONTH $$2 $$3"; \ echo "@set EDITION $(VERSION)"; \ echo "@set VERSION $(VERSION)") > vti.tmp @cmp -s vti.tmp $(srcdir)/version.texi \ || (echo "Updating $(srcdir)/version.texi"; \ cp vti.tmp $(srcdir)/version.texi) -@rm -f vti.tmp @cp $(srcdir)/version.texi $@ mostlyclean-vti: -rm -f vti.tmp maintainer-clean-vti: -rm -f $(srcdir)/stamp-vti $(srcdir)/version.texi .dvi.ps: TEXINPUTS="$(am__TEXINFO_TEX_DIR)$(PATH_SEPARATOR)$$TEXINPUTS" \ $(DVIPS) -o $@ $< uninstall-dvi-am: @$(NORMAL_UNINSTALL) @list='$(DVIS)'; test -n "$(dvidir)" || list=; \ for p in $$list; do \ $(am__strip_dir) \ echo " rm -f '$(DESTDIR)$(dvidir)/$$f'"; \ rm -f "$(DESTDIR)$(dvidir)/$$f"; \ done uninstall-html-am: @$(NORMAL_UNINSTALL) @list='$(HTMLS)'; test -n "$(htmldir)" || list=; \ for p in $$list; do \ $(am__strip_dir) \ echo " rm -rf '$(DESTDIR)$(htmldir)/$$f'"; \ rm -rf "$(DESTDIR)$(htmldir)/$$f"; \ done uninstall-info-am: @$(PRE_UNINSTALL) @if test -d '$(DESTDIR)$(infodir)' && $(am__can_run_installinfo); then \ list='$(INFO_DEPS)'; \ for file in $$list; do \ relfile=`echo "$$file" | sed 's|^.*/||'`; \ echo " install-info --info-dir='$(DESTDIR)$(infodir)' --remove '$(DESTDIR)$(infodir)/$$relfile'"; \ if install-info --info-dir="$(DESTDIR)$(infodir)" --remove "$(DESTDIR)$(infodir)/$$relfile"; \ then :; else test ! -f "$(DESTDIR)$(infodir)/$$relfile" || exit 1; fi; \ done; \ else :; fi @$(NORMAL_UNINSTALL) @list='$(INFO_DEPS)'; \ for file in $$list; do \ relfile=`echo "$$file" | sed 's|^.*/||'`; \ relfile_i=`echo "$$relfile" | sed 's|\.info$$||;s|$$|.i|'`; \ (if test -d "$(DESTDIR)$(infodir)" && cd "$(DESTDIR)$(infodir)"; then \ echo " cd '$(DESTDIR)$(infodir)' && rm -f $$relfile $$relfile-[0-9] $$relfile-[0-9][0-9] $$relfile_i[0-9] $$relfile_i[0-9][0-9]"; \ rm -f $$relfile $$relfile-[0-9] $$relfile-[0-9][0-9] $$relfile_i[0-9] $$relfile_i[0-9][0-9]; \ else :; fi); \ done uninstall-pdf-am: @$(NORMAL_UNINSTALL) @list='$(PDFS)'; test -n "$(pdfdir)" || list=; \ for p in $$list; do \ $(am__strip_dir) \ echo " rm -f '$(DESTDIR)$(pdfdir)/$$f'"; \ rm -f "$(DESTDIR)$(pdfdir)/$$f"; \ done uninstall-ps-am: @$(NORMAL_UNINSTALL) @list='$(PSS)'; test -n "$(psdir)" || list=; \ for p in $$list; do \ $(am__strip_dir) \ echo " rm -f '$(DESTDIR)$(psdir)/$$f'"; \ rm -f "$(DESTDIR)$(psdir)/$$f"; \ done dist-info: $(INFO_DEPS) @srcdirstrip=`echo "$(srcdir)" | sed 's|.|.|g'`; \ list='$(INFO_DEPS)'; \ for base in $$list; do \ case $$base in \ $(srcdir)/*) base=`echo "$$base" | sed "s|^$$srcdirstrip/||"`;; \ esac; \ if test -f $$base; then d=.; else d=$(srcdir); fi; \ base_i=`echo "$$base" | sed 's|\.info$$||;s|$$|.i|'`; \ for file in $$d/$$base $$d/$$base-[0-9] $$d/$$base-[0-9][0-9] $$d/$$base_i[0-9] $$d/$$base_i[0-9][0-9]; do \ if test -f $$file; then \ relfile=`expr "$$file" : "$$d/\(.*\)"`; \ test -f "$(distdir)/$$relfile" || \ cp -p $$file "$(distdir)/$$relfile"; \ else :; fi; \ done; \ done mostlyclean-aminfo: -rm -rf guile-gnome-libgnomeui.aux guile-gnome-libgnomeui.cp \ guile-gnome-libgnomeui.cps guile-gnome-libgnomeui.fn \ guile-gnome-libgnomeui.fns guile-gnome-libgnomeui.ky \ guile-gnome-libgnomeui.kys guile-gnome-libgnomeui.log \ guile-gnome-libgnomeui.pg guile-gnome-libgnomeui.pgs \ guile-gnome-libgnomeui.tmp guile-gnome-libgnomeui.toc \ guile-gnome-libgnomeui.tp guile-gnome-libgnomeui.tps \ guile-gnome-libgnomeui.vr guile-gnome-libgnomeui.vrs clean-aminfo: -test -z "guile-gnome-libgnomeui.dvi guile-gnome-libgnomeui.pdf \ guile-gnome-libgnomeui.ps guile-gnome-libgnomeui.html" \ || rm -rf guile-gnome-libgnomeui.dvi guile-gnome-libgnomeui.pdf \ guile-gnome-libgnomeui.ps guile-gnome-libgnomeui.html maintainer-clean-aminfo: @list='$(INFO_DEPS)'; for i in $$list; do \ i_i=`echo "$$i" | sed 's|\.info$$||;s|$$|.i|'`; \ echo " rm -f $$i $$i-[0-9] $$i-[0-9][0-9] $$i_i[0-9] $$i_i[0-9][0-9]"; \ rm -f $$i $$i-[0-9] $$i-[0-9][0-9] $$i_i[0-9] $$i_i[0-9][0-9]; \ done tags: TAGS TAGS: ctags: CTAGS CTAGS: distdir: $(DISTFILES) @srcdirstrip=`echo "$(srcdir)" | sed 's/[].[^$$\\*]/\\\\&/g'`; \ topsrcdirstrip=`echo "$(top_srcdir)" | sed 's/[].[^$$\\*]/\\\\&/g'`; \ list='$(DISTFILES)'; \ dist_files=`for file in $$list; do echo $$file; done | \ sed -e "s|^$$srcdirstrip/||;t" \ -e "s|^$$topsrcdirstrip/|$(top_builddir)/|;t"`; \ case $$dist_files in \ */*) $(MKDIR_P) `echo "$$dist_files" | \ sed '/\//!d;s|^|$(distdir)/|;s,/[^/]*$$,,' | \ sort -u` ;; \ esac; \ for file in $$dist_files; do \ if test -f $$file || test -d $$file; then d=.; else d=$(srcdir); fi; \ if test -d $$d/$$file; then \ dir=`echo "/$$file" | sed -e 's,/[^/]*$$,,'`; \ if test -d "$(distdir)/$$file"; then \ find "$(distdir)/$$file" -type d ! -perm -700 -exec chmod u+rwx {} \;; \ fi; \ if test -d $(srcdir)/$$file && test $$d != $(srcdir); then \ cp -fpR $(srcdir)/$$file "$(distdir)$$dir" || exit 1; \ find "$(distdir)/$$file" -type d ! -perm -700 -exec chmod u+rwx {} \;; \ fi; \ cp -fpR $$d/$$file "$(distdir)$$dir" || exit 1; \ else \ test -f "$(distdir)/$$file" \ || cp -p $$d/$$file "$(distdir)/$$file" \ || exit 1; \ fi; \ done $(MAKE) $(AM_MAKEFLAGS) \ top_distdir="$(top_distdir)" distdir="$(distdir)" \ dist-info check-am: all-am check: check-am all-am: Makefile $(INFO_DEPS) installdirs: for dir in "$(DESTDIR)$(infodir)"; do \ test -z "$$dir" || $(MKDIR_P) "$$dir"; \ done install: install-am install-exec: install-exec-am install-data: install-data-am uninstall: uninstall-am install-am: all-am @$(MAKE) $(AM_MAKEFLAGS) install-exec-am install-data-am installcheck: installcheck-am install-strip: if test -z '$(STRIP)'; then \ $(MAKE) $(AM_MAKEFLAGS) INSTALL_PROGRAM="$(INSTALL_STRIP_PROGRAM)" \ install_sh_PROGRAM="$(INSTALL_STRIP_PROGRAM)" INSTALL_STRIP_FLAG=-s \ install; \ else \ $(MAKE) $(AM_MAKEFLAGS) INSTALL_PROGRAM="$(INSTALL_STRIP_PROGRAM)" \ install_sh_PROGRAM="$(INSTALL_STRIP_PROGRAM)" INSTALL_STRIP_FLAG=-s \ "INSTALL_PROGRAM_ENV=STRIPPROG='$(STRIP)'" install; \ fi mostlyclean-generic: clean-generic: distclean-generic: -test -z "$(CONFIG_CLEAN_FILES)" || rm -f $(CONFIG_CLEAN_FILES) -test . = "$(srcdir)" || test -z "$(CONFIG_CLEAN_VPATH_FILES)" || rm -f $(CONFIG_CLEAN_VPATH_FILES) maintainer-clean-generic: @echo "This command is intended for maintainers to use" @echo "it deletes files that may require special tools to rebuild." clean: clean-am clean-am: clean-aminfo clean-generic clean-libtool mostlyclean-am distclean: distclean-am -rm -f Makefile distclean-am: clean-am distclean-generic dvi: dvi-am dvi-am: $(DVIS) html: html-am html-am: $(HTMLS) info: info-am info-am: $(INFO_DEPS) install-data-am: install-info-am install-dvi: install-dvi-am install-dvi-am: $(DVIS) @$(NORMAL_INSTALL) @list='$(DVIS)'; test -n "$(dvidir)" || list=; \ if test -n "$$list"; then \ echo " $(MKDIR_P) '$(DESTDIR)$(dvidir)'"; \ $(MKDIR_P) "$(DESTDIR)$(dvidir)" || exit 1; \ fi; \ for p in $$list; do \ if test -f "$$p"; then d=; else d="$(srcdir)/"; fi; \ echo "$$d$$p"; \ done | $(am__base_list) | \ while read files; do \ echo " $(INSTALL_DATA) $$files '$(DESTDIR)$(dvidir)'"; \ $(INSTALL_DATA) $$files "$(DESTDIR)$(dvidir)" || exit $$?; \ done install-exec-am: install-html: install-html-am install-html-am: $(HTMLS) @$(NORMAL_INSTALL) @list='$(HTMLS)'; list2=; test -n "$(htmldir)" || list=; \ if test -n "$$list"; then \ echo " $(MKDIR_P) '$(DESTDIR)$(htmldir)'"; \ $(MKDIR_P) "$(DESTDIR)$(htmldir)" || exit 1; \ fi; \ for p in $$list; do \ if test -f "$$p" || test -d "$$p"; then d=; else d="$(srcdir)/"; fi; \ $(am__strip_dir) \ d2=$$d$$p; \ if test -d "$$d2"; then \ echo " $(MKDIR_P) '$(DESTDIR)$(htmldir)/$$f'"; \ $(MKDIR_P) "$(DESTDIR)$(htmldir)/$$f" || exit 1; \ echo " $(INSTALL_DATA) '$$d2'/* '$(DESTDIR)$(htmldir)/$$f'"; \ $(INSTALL_DATA) "$$d2"/* "$(DESTDIR)$(htmldir)/$$f" || exit $$?; \ else \ list2="$$list2 $$d2"; \ fi; \ done; \ test -z "$$list2" || { echo "$$list2" | $(am__base_list) | \ while read files; do \ echo " $(INSTALL_DATA) $$files '$(DESTDIR)$(htmldir)'"; \ $(INSTALL_DATA) $$files "$(DESTDIR)$(htmldir)" || exit $$?; \ done; } install-info: install-info-am install-info-am: $(INFO_DEPS) @$(NORMAL_INSTALL) @srcdirstrip=`echo "$(srcdir)" | sed 's|.|.|g'`; \ list='$(INFO_DEPS)'; test -n "$(infodir)" || list=; \ if test -n "$$list"; then \ echo " $(MKDIR_P) '$(DESTDIR)$(infodir)'"; \ $(MKDIR_P) "$(DESTDIR)$(infodir)" || exit 1; \ fi; \ for file in $$list; do \ case $$file in \ $(srcdir)/*) file=`echo "$$file" | sed "s|^$$srcdirstrip/||"`;; \ esac; \ if test -f $$file; then d=.; else d=$(srcdir); fi; \ file_i=`echo "$$file" | sed 's|\.info$$||;s|$$|.i|'`; \ for ifile in $$d/$$file $$d/$$file-[0-9] $$d/$$file-[0-9][0-9] \ $$d/$$file_i[0-9] $$d/$$file_i[0-9][0-9] ; do \ if test -f $$ifile; then \ echo "$$ifile"; \ else : ; fi; \ done; \ done | $(am__base_list) | \ while read files; do \ echo " $(INSTALL_DATA) $$files '$(DESTDIR)$(infodir)'"; \ $(INSTALL_DATA) $$files "$(DESTDIR)$(infodir)" || exit $$?; done @$(POST_INSTALL) @if $(am__can_run_installinfo); then \ list='$(INFO_DEPS)'; test -n "$(infodir)" || list=; \ for file in $$list; do \ relfile=`echo "$$file" | sed 's|^.*/||'`; \ echo " install-info --info-dir='$(DESTDIR)$(infodir)' '$(DESTDIR)$(infodir)/$$relfile'";\ install-info --info-dir="$(DESTDIR)$(infodir)" "$(DESTDIR)$(infodir)/$$relfile" || :;\ done; \ else : ; fi install-man: install-pdf: install-pdf-am install-pdf-am: $(PDFS) @$(NORMAL_INSTALL) @list='$(PDFS)'; test -n "$(pdfdir)" || list=; \ if test -n "$$list"; then \ echo " $(MKDIR_P) '$(DESTDIR)$(pdfdir)'"; \ $(MKDIR_P) "$(DESTDIR)$(pdfdir)" || exit 1; \ fi; \ for p in $$list; do \ if test -f "$$p"; then d=; else d="$(srcdir)/"; fi; \ echo "$$d$$p"; \ done | $(am__base_list) | \ while read files; do \ echo " $(INSTALL_DATA) $$files '$(DESTDIR)$(pdfdir)'"; \ $(INSTALL_DATA) $$files "$(DESTDIR)$(pdfdir)" || exit $$?; done install-ps: install-ps-am install-ps-am: $(PSS) @$(NORMAL_INSTALL) @list='$(PSS)'; test -n "$(psdir)" || list=; \ if test -n "$$list"; then \ echo " $(MKDIR_P) '$(DESTDIR)$(psdir)'"; \ $(MKDIR_P) "$(DESTDIR)$(psdir)" || exit 1; \ fi; \ for p in $$list; do \ if test -f "$$p"; then d=; else d="$(srcdir)/"; fi; \ echo "$$d$$p"; \ done | $(am__base_list) | \ while read files; do \ echo " $(INSTALL_DATA) $$files '$(DESTDIR)$(psdir)'"; \ $(INSTALL_DATA) $$files "$(DESTDIR)$(psdir)" || exit $$?; done installcheck-am: maintainer-clean: maintainer-clean-am -rm -f Makefile maintainer-clean-am: distclean-am maintainer-clean-aminfo \ maintainer-clean-generic maintainer-clean-vti mostlyclean: mostlyclean-am mostlyclean-am: mostlyclean-aminfo mostlyclean-generic \ mostlyclean-libtool mostlyclean-vti pdf: pdf-am pdf-am: $(PDFS) ps: ps-am ps-am: $(PSS) uninstall-am: uninstall-dvi-am uninstall-html-am uninstall-info-am \ uninstall-pdf-am uninstall-ps-am .MAKE: install-am install-strip .PHONY: all all-am check check-am clean clean-aminfo clean-generic \ clean-libtool dist-info distclean distclean-generic \ distclean-libtool distdir dvi dvi-am html html-am info info-am \ install install-am install-data install-data-am install-dvi \ install-dvi-am install-exec install-exec-am install-html \ install-html-am install-info install-info-am install-man \ install-pdf install-pdf-am install-ps install-ps-am \ install-strip installcheck installcheck-am installdirs \ maintainer-clean maintainer-clean-aminfo \ maintainer-clean-generic maintainer-clean-vti mostlyclean \ mostlyclean-aminfo mostlyclean-generic mostlyclean-libtool \ mostlyclean-vti pdf pdf-am ps ps-am uninstall uninstall-am \ uninstall-dvi-am uninstall-html-am uninstall-info-am \ uninstall-pdf-am uninstall-ps-am generate-stubs: $(GUILE) $(GUILE_FLAGS) -c $(GTK_DOC_TO_TEXI_STUBS) $(docbook_xml_files) generate-defuns: $(GUILE) $(GUILE_FLAGS) -c $(GTK_DOC_TO_TEXI_DEFUNS) ./overrides.texi $(docbook_xml_files) check-coverage: $(GUILE) $(GUILE_FLAGS) -c $(GTK_DOC_CHECK_COVERAGE) generate-undocumented: rm -f undocumented.texi; touch undocumented.texi $(GUILE) $(GUILE_FLAGS) -c $(GTK_DOC_GENERATE_UNDOCUMENTED) # Tell versions [3.59,3.63) of GNU make to not export all variables. # Otherwise a system limit (for SysV at least) may be exceeded. .NOEXPORT: guile-gnome-platform-2.16.2/libgnomeui/doc/stamp-vti0000644000175000017500000000014611752511104022730 0ustar00wingowingo00000000000000@set UPDATED 9 December 2011 @set UPDATED-MONTH December 2011 @set EDITION 2.16.2 @set VERSION 2.16.2 guile-gnome-platform-2.16.2/libgnomeui/doc/defuns-gnome-multi-screen.xml.texi0000644000175000017500000000412111670374303027553 0ustar00wingowingo00000000000000 @c %start of fragment @deffn Function gnome-url-show-on-screen (url@tie{}@code{mchars}) (screen@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{bool}) Like @code{gnome-url-show}, but ensures that the viewer application appears on @var{screen}. @table @var @item url The url to display. Should begin with the protocol to use (e.g. "http:", "ghelp:", etc) @item screen a @code{}. @item error Used to store any errors that result from trying to display the @var{url}. @item ret @samp{@code{#t}} if everything went fine, @samp{@code{#f}} otherwise (in which case @var{error} will contain the actual error). @end table Since 2.6 @end deffn @deffn Function gnome-help-display-on-screen (file_name@tie{}@code{mchars}) (link_id@tie{}@code{mchars}) (screen@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{bool}) Like @code{gnome-help-display}, but ensures that the help viewer application appears on @var{screen}. @table @var @item file-name The name of the help document to display. @item link-id Can be @samp{@code{#f}}. If set, refers to an anchor or section id within the requested document. @item screen a @code{}. @item error A @code{} instance that will hold the specifics of any error which occurs during processing, or @samp{@code{#f}} @item ret @samp{@code{#t}} on success, @samp{@code{#f}} otherwise (in which case @var{error} will contain the actual error). @end table Since 2.6 @end deffn @deffn Function gnome-help-display-uri-on-screen (help_uri@tie{}@code{mchars}) (screen@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{bool}) Like @code{gnome-help-display-uri}, but ensures that the help viewer application appears on @var{screen}. @table @var @item help-uri The URI to display. @item screen a @code{}. @item error A @code{} instance that will hold the specifics of any error which occurs during processing, or @samp{@code{#f}} @item ret @samp{@code{#t}} on success, @samp{@code{#f}} otherwise (in which case @var{error} will contain the actual error). @end table Since 2.6 @end deffn @c %end of fragment guile-gnome-platform-2.16.2/libgnomeui/doc/defuns-gnome-password.xml.texi0000644000175000017500000001200011670374303027001 0ustar00wingowingo00000000000000 @c %start of fragment @deftp Class Derives from @code{}. This class defines the following slots: @table @code @item show-username show-username @item show-domain show-domain @item show-password show-password @item show-new-password show-new-password @item show-new-password-quality show-new-password-quality @item show-userpass-buttons show-userpass-buttons @item show-remember show-remember @item readonly-username readonly-username @item readonly-domain readonly-domain @item anonymous anonymous @item remember-mode remember-mode @item message message @item message-markup message-markup @item username username @item domain domain @item password password @item new-password new-password @end table @end deftp @deffn Function gnome-password-dialog-anon-selected (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{bool}) @deffnx Method anon-selected Checks whether anonymous support is set to @code{@code{#t}} and the radio button for connecting as anonymous user is active. @table @var @item password-dialog A @code{} @item ret @code{@code{#t}} if anonymous support is set and the radio button is active, @code{@code{#f}} otherwise. @end table @end deffn @deffn Function gnome-password-dialog-get-domain (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{mchars}) @deffnx Method get-domain Gets the domain name from the password dialog. @table @var @item password-dialog A @code{} @item ret The domain name, a char*. @end table Since 2.4 @end deffn @deffn Function gnome-password-dialog-get-password (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{mchars}) @deffnx Method get-password Gets the password from the password dialog. @table @var @item password-dialog A @code{} @item ret The password, a char*. @end table Since 2.4 @end deffn @deffn Function gnome-password-dialog-get-username (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{mchars}) @deffnx Method get-username Gets the username from the password dialog. @table @var @item password-dialog A @code{} @item ret The username, a char*. @end table Since 2.4 @end deffn @deffn Function gnome-password-dialog-new (dialog_title@tie{}@code{mchars}) (message@tie{}@code{mchars}) (username@tie{}@code{mchars}) (password@tie{}@code{mchars}) (readonly_username@tie{}@code{bool}) @result{}@tie{} (ret@tie{}@code{}) Creates a new password dialog with an optional title, message, username, password etc. The user will be given the option to save the password for this session only or store it permanently in her keyring. @table @var @item dialog-title The title of the dialog @item message Message text for the dialog @item username The username to be used in the dialog @item password Password to be used @item readonly-username Boolean value that controls whether the user can edit the username or not @item ret A new password dialog. @end table Since 2.4 @end deffn @deffn Function gnome-password-dialog-run-and-block (self@tie{}@code{}) @result{}@tie{} (ret@tie{}@code{bool}) @deffnx Method run-and-block Gets the user input from PasswordDialog. @table @var @item password-dialog A @code{} @item ret @samp{@code{#t}} if "Connect" button is pressed. @samp{@code{#f}} if "Cancel" button is pressed. @end table Since 2.4 @end deffn @deffn Function gnome-password-dialog-set-domain (self@tie{}@code{}) (domain@tie{}@code{mchars}) @deffnx Method set-domain Sets the domain field in the password dialog to @var{domain}. @table @var @item password-dialog A @code{} @item domain The domain that should be set @end table Since 2.4 @end deffn @deffn Function gnome-password-dialog-set-password (self@tie{}@code{}) (password@tie{}@code{mchars}) @deffnx Method set-password Sets the password in the password dialog. @table @var @item password-dialog A @code{} @item password The password that should be set @end table Since 2.4 @end deffn @deffn Function gnome-password-dialog-set-remember (self@tie{}@code{}) (remember@tie{}@code{}) @deffnx Method set-remember Based on the value of @code{}, sets the state of the check buttons to remember password for the session and save password to keyring . @table @var @item password-dialog A @code{}. @item remember A @code{}. @end table Since 2.6 @end deffn @deffn Function gnome-password-dialog-set-username (self@tie{}@code{}) (username@tie{}@code{mchars}) @deffnx Method set-username Sets the username in the password dialog. @table @var @item password-dialog A @code{} @item username The username that should be set @end table Since 2.4 @end deffn @c %end of fragment guile-gnome-platform-2.16.2/libgnomeui/doc/section-gnome-dateedit.xml.texi0000644000175000017500000000024311670374303027110 0ustar00wingowingo00000000000000 @c %start of fragment @node GnomeDateEdit @chapter GnomeDateEdit @section Overview @section Usage @include defuns-gnome-dateedit.xml.texi @c %end of fragment guile-gnome-platform-2.16.2/libgnomeui/doc/overview.texi0000644000175000017500000000115311670374303023630 0ustar00wingowingo00000000000000@node Overview @chapter Overview @code{(gnome gnome-ui)} wraps some pieces of the libgnomeui library for Guile. It is a part of Guile-GNOME. Libgnomeui historically was a staging ground for code meant to go into GTK. In the modern environment, it has largely been replaced, its functionality having been pushed into GTK+ itself. However, as of 2008 it still has some utility as a kind of glue layer between lower-level modules, with the authentication manager, the GNOME-VFS GDK-Pixbuf integration, and the session manager code. See the documentation for @code{(gnome gobject)} for more information on Guile-GNOME. guile-gnome-platform-2.16.2/libgnomeui/doc/section-gnome-multi-screen.xml.texi0000644000175000017500000000025511670374303027737 0ustar00wingowingo00000000000000 @c %start of fragment @node GnomeMultiScreen @chapter GnomeMultiScreen @section Overview @section Usage @include defuns-gnome-multi-screen.xml.texi @c %end of fragment guile-gnome-platform-2.16.2/libgnomeui/doc/section-gnome-authentication.xml.texi0000644000175000017500000000026511670374303030350 0ustar00wingowingo00000000000000 @c %start of fragment @node GnomeAuthentication @chapter GnomeAuthentication @section Overview @section Usage @include defuns-gnome-authentication.xml.texi @c %end of fragment guile-gnome-platform-2.16.2/libgnomeui/doc/section-gnome-vfs-util.xml.texi0000644000175000017500000000024511670374303027100 0ustar00wingowingo00000000000000 @c %start of fragment @node gnome-vfs-util @chapter gnome-vfs-util @section Overview @section Usage @include defuns-gnome-vfs-util.xml.texi @c %end of fragment guile-gnome-platform-2.16.2/libgnomeui/doc/guile-gnome-libgnomeui.texi0000644000175000017500000000354611670374303026332 0ustar00wingowingo00000000000000\input texinfo @c -*-texinfo-*- @c %**start of header @setfilename guile-gnome-libgnomeui.info @settitle Guile-Libgnomeui @c %**end of header @include version.texi @copying This manual is for @code{(gnome libgnomeui)} (version @value{VERSION}, updated @value{UPDATED}) Copyright 1998-2007 Kjartan Maraas, Anders Carlsson, and others @c LIBGNOMEUI is LGPL, ergo GPL distribution is possible @quotation Permission is granted to copy, distribute and/or modify this document under the terms of the GNU General Public License, Version 2 or any later version published by the Free Software Foundation. @end quotation @end copying @dircategory The Algorithmic Language Scheme @direntry * Guile-Libgnomeui: (guile-gnome-libgnomeui.info). A deprecated GNOME UI lib. @end direntry @titlepage @title Guile-GNOME: libgnomeui @subtitle version @value{VERSION}, updated @value{UPDATED} @author Kjartan Maraas @author Anders Carlsson @author many others @page @vskip 0pt plus 1filll @insertcopying @end titlepage @ifnottex @node Top @top Guile-Libgnomeui @insertcopying @menu * Overview:: About libgnomeui and its Guile bindings. * GnomeAuthentication:: * GnomeClient:: Interactions with the session manager. * GnomeDateEdit:: * GnomeMultiScreen:: * GnomePassword:: * gnome-vfs-util:: * Undocumented:: Undocumented functions. * Type Index:: * Function Index:: @end menu @end ifnottex @iftex @shortcontents @end iftex @include overview.texi @include section-gnome-authentication.xml.texi @include section-gnome-client.xml.texi @include section-gnome-dateedit.xml.texi @include section-gnome-multi-screen.xml.texi @include section-gnome-password.xml.texi @include section-gnome-vfs-util.xml.texi @include undocumented.texi @node Type Index @unnumbered Type Index @printindex tp @node Function Index @unnumbered Function Index @printindex fn @bye guile-gnome-platform-2.16.2/libgnomeui/tests/0000755000175000017500000000000011752546504021471 5ustar00wingowingo00000000000000guile-gnome-platform-2.16.2/libgnomeui/tests/wrapset.scm0000644000175000017500000000311411670374303023654 0ustar00wingowingo00000000000000;;; ---------------------------------------------------------------------- ;;; unit test ;;; Copyright (C) 2007 Andy Wingo ;;; ;;; This program is free software; you can redistribute it and/or modify ;;; it under the terms of the GNU General Public License as published by ;;; the Free Software Foundation; either version 2 of the License, or ;;; (at your option) any later version. ;;; ;;; This program is distributed in the hope that it will be useful, ;;; but WITHOUT ANY WARRANTY; without even the implied warranty of ;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the ;;; GNU General Public License for more details. ;;; ;;; You should have received a copy of the GNU General Public License ;;; along with this program; if not, write to the Free Software ;;; Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA ;;; ---------------------------------------------------------------------- (use-modules (unit-test) (apicheck) (ice-9 pretty-print) (oop goops)) (define-class ()) (define *modules* (call-with-input-string (getenv "WRAPSET_MODULES") read)) (define *api-file* (getenv "WRAPSET_API_FILE")) (define-method (test-wrapset-api (self )) (apicheck-validate (call-with-input-file *api-file* read) *modules*)) (define (main args) (exit-with-summary (run-all-defined-test-cases))) (define (update-api args) (with-output-to-file *api-file* (lambda () (pretty-print (apicheck-generate *modules*))))) guile-gnome-platform-2.16.2/libgnomeui/tests/Makefile.am0000644000175000017500000000012511670374303023516 0ustar00wingowingo00000000000000include ../../tests.mk wrapset_stem = libgnomeui top_module_name = (gnome gnome-ui) guile-gnome-platform-2.16.2/libgnomeui/tests/Makefile.in0000644000175000017500000004017111752511070023527 0ustar00wingowingo00000000000000# Makefile.in generated by automake 1.11.5 from Makefile.am. # @configure_input@ # Copyright (C) 1994, 1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, # 2003, 2004, 2005, 2006, 2007, 2008, 2009, 2010, 2011 Free Software # Foundation, Inc. # This Makefile.in is free software; the Free Software Foundation # gives unlimited permission to copy and/or distribute it, # with or without modifications, as long as this notice is preserved. # This program is distributed in the hope that it will be useful, # but WITHOUT ANY WARRANTY, to the extent permitted by law; without # even the implied warranty of MERCHANTABILITY or FITNESS FOR A # PARTICULAR PURPOSE. @SET_MAKE@ # guile-gnome # Copyright (C) 2007, 2011 Free Software Foundation, Inc. # This program is free software; you can redistribute it and/or # modify it under the terms of the GNU General Public License as # published by the Free Software Foundation; either version 2 of # the License, or (at your option) any later version. # This program is distributed in the hope that it will be useful, # but WITHOUT ANY WARRANTY; without even the implied warranty of # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the # GNU General Public License for more details. # You should have received a copy of the GNU General Public License # along with this program; if not, contact: # Free Software Foundation Voice: +1-617-542-5942 # 59 Temple Place - Suite 330 Fax: +1-617-542-2652 # Boston, MA 02111-1307, USA gnu@gnu.org VPATH = @srcdir@ am__make_dryrun = \ { \ am__dry=no; \ case $$MAKEFLAGS in \ *\\[\ \ ]*) \ echo 'am--echo: ; @echo "AM" OK' | $(MAKE) -f - 2>/dev/null \ | grep '^AM OK$$' >/dev/null || am__dry=yes;; \ *) \ for am__flg in $$MAKEFLAGS; do \ case $$am__flg in \ *=*|--*) ;; \ *n*) am__dry=yes; break;; \ esac; \ done;; \ esac; \ test $$am__dry = yes; \ } pkgdatadir = $(datadir)/@PACKAGE@ pkgincludedir = $(includedir)/@PACKAGE@ pkglibdir = $(libdir)/@PACKAGE@ pkglibexecdir = $(libexecdir)/@PACKAGE@ am__cd = CDPATH="$${ZSH_VERSION+.}$(PATH_SEPARATOR)" && cd install_sh_DATA = $(install_sh) -c -m 644 install_sh_PROGRAM = $(install_sh) -c install_sh_SCRIPT = $(install_sh) -c INSTALL_HEADER = $(INSTALL_DATA) transform = $(program_transform_name) NORMAL_INSTALL = : PRE_INSTALL = : POST_INSTALL = : NORMAL_UNINSTALL = : PRE_UNINSTALL = : POST_UNINSTALL = : build_triplet = @build@ host_triplet = @host@ DIST_COMMON = $(srcdir)/../../tests.mk $(srcdir)/Makefile.am \ $(srcdir)/Makefile.in subdir = libgnomeui/tests ACLOCAL_M4 = $(top_srcdir)/aclocal.m4 am__aclocal_m4_deps = $(top_srcdir)/configure.ac am__configure_deps = $(am__aclocal_m4_deps) $(CONFIGURE_DEPENDENCIES) \ $(ACLOCAL_M4) mkinstalldirs = $(install_sh) -d CONFIG_HEADER = $(top_builddir)/config.h CONFIG_CLEAN_FILES = CONFIG_CLEAN_VPATH_FILES = SOURCES = DIST_SOURCES = am__can_run_installinfo = \ case $$AM_UPDATE_INFO_DIR in \ n|no|NO) false;; \ *) (install-info --version) >/dev/null 2>&1;; \ esac am__tty_colors = \ red=; grn=; lgn=; blu=; std= DISTFILES = $(DIST_COMMON) $(DIST_SOURCES) $(TEXINFOS) $(EXTRA_DIST) ACLOCAL = @ACLOCAL@ AG_PKG_CONFIG_PATH = @AG_PKG_CONFIG_PATH@ AMTAR = @AMTAR@ API_VERSION = @API_VERSION@ AR = @AR@ ATK_CFLAGS = @ATK_CFLAGS@ ATK_LIBS = @ATK_LIBS@ AUTOCONF = @AUTOCONF@ AUTOHEADER = @AUTOHEADER@ AUTOMAKE = @AUTOMAKE@ AWK = @AWK@ BONOBO_IDL_DIR = @BONOBO_IDL_DIR@ CANVAS_CFLAGS = @CANVAS_CFLAGS@ CANVAS_LIBS = @CANVAS_LIBS@ CC = @CC@ CCDEPMODE = @CCDEPMODE@ CFLAGS = @CFLAGS@ CORBA_CFLAGS = @CORBA_CFLAGS@ CORBA_LIBS = @CORBA_LIBS@ CPP = @CPP@ CPPFLAGS = @CPPFLAGS@ CYGPATH_W = @CYGPATH_W@ DEFS = @DEFS@ DEPDIR = @DEPDIR@ DLLTOOL = @DLLTOOL@ DSYMUTIL = @DSYMUTIL@ DUMPBIN = @DUMPBIN@ ECHO_C = @ECHO_C@ ECHO_N = @ECHO_N@ ECHO_T = @ECHO_T@ EGREP = @EGREP@ EXEEXT = @EXEEXT@ FGREP = @FGREP@ GCONF_CFLAGS = @GCONF_CFLAGS@ GCONF_LIBS = @GCONF_LIBS@ GDK_CFLAGS = @GDK_CFLAGS@ GDK_LIBS = @GDK_LIBS@ GDK_PIXBUF_CFLAGS = @GDK_PIXBUF_CFLAGS@ GDK_PIXBUF_LIBS = @GDK_PIXBUF_LIBS@ GLIB_CFLAGS = @GLIB_CFLAGS@ GLIB_LIBS = @GLIB_LIBS@ GNOMEUI_DEPRECATION_FLAGS = @GNOMEUI_DEPRECATION_FLAGS@ GNOME_VFS_CFLAGS = @GNOME_VFS_CFLAGS@ GNOME_VFS_DEPRECATED_CFLAGS = @GNOME_VFS_DEPRECATED_CFLAGS@ GNOME_VFS_LIBS = @GNOME_VFS_LIBS@ GOBJECT_CFLAGS = @GOBJECT_CFLAGS@ GOBJECT_LIBS = @GOBJECT_LIBS@ GREP = @GREP@ GTHREAD_CFLAGS = @GTHREAD_CFLAGS@ GTHREAD_LIBS = @GTHREAD_LIBS@ GTK_CFLAGS = @GTK_CFLAGS@ GTK_DEPRECATED_CFLAGS = @GTK_DEPRECATED_CFLAGS@ GTK_LIBS = @GTK_LIBS@ GUILE_CAIRO_CFLAGS = @GUILE_CAIRO_CFLAGS@ GUILE_CAIRO_LIBS = @GUILE_CAIRO_LIBS@ GUILE_CFLAGS = @GUILE_CFLAGS@ GUILE_EFFECTIVE_VERSION = @GUILE_EFFECTIVE_VERSION@ GUILE_GLIB_CFLAGS = @GUILE_GLIB_CFLAGS@ GUILE_GLIB_LIBS = @GUILE_GLIB_LIBS@ GUILE_LIBS = @GUILE_LIBS@ G_WRAP_CFLAGS = @G_WRAP_CFLAGS@ G_WRAP_LIBS = @G_WRAP_LIBS@ G_WRAP_LIB_DIR = @G_WRAP_LIB_DIR@ G_WRAP_MODULE_DIR = @G_WRAP_MODULE_DIR@ INSTALL = @INSTALL@ INSTALL_DATA = @INSTALL_DATA@ INSTALL_PROGRAM = @INSTALL_PROGRAM@ INSTALL_SCRIPT = @INSTALL_SCRIPT@ INSTALL_STRIP_PROGRAM = @INSTALL_STRIP_PROGRAM@ LD = @LD@ LDFLAGS = @LDFLAGS@ LIBGLADE_CFLAGS = @LIBGLADE_CFLAGS@ LIBGLADE_LIBS = @LIBGLADE_LIBS@ LIBGNOMEUI_CFLAGS = @LIBGNOMEUI_CFLAGS@ LIBGNOMEUI_LIBS = @LIBGNOMEUI_LIBS@ LIBGNOME_CFLAGS = @LIBGNOME_CFLAGS@ LIBGNOME_LIBS = @LIBGNOME_LIBS@ LIBOBJS = @LIBOBJS@ LIBS = @LIBS@ LIBTOOL = @LIBTOOL@ LIPO = @LIPO@ LN_S = @LN_S@ LTLIBOBJS = @LTLIBOBJS@ MAKEINFO = @MAKEINFO@ MANIFEST_TOOL = @MANIFEST_TOOL@ MKDIR_P = @MKDIR_P@ NM = @NM@ NMEDIT = @NMEDIT@ OBJDUMP = @OBJDUMP@ OBJEXT = @OBJEXT@ ORBIT_IDL = @ORBIT_IDL@ OTOOL = @OTOOL@ OTOOL64 = @OTOOL64@ PACKAGE = @PACKAGE@ PACKAGE_BUGREPORT = @PACKAGE_BUGREPORT@ PACKAGE_NAME = @PACKAGE_NAME@ PACKAGE_STRING = @PACKAGE_STRING@ PACKAGE_TARNAME = @PACKAGE_TARNAME@ PACKAGE_URL = @PACKAGE_URL@ PACKAGE_VERSION = @PACKAGE_VERSION@ PANGOCAIRO_CFLAGS = @PANGOCAIRO_CFLAGS@ PANGOCAIRO_LIBS = @PANGOCAIRO_LIBS@ PANGO_CFLAGS = @PANGO_CFLAGS@ PANGO_LIBS = @PANGO_LIBS@ PATH_SEPARATOR = @PATH_SEPARATOR@ PKG_CONFIG = @PKG_CONFIG@ PKG_CONFIG_LIBDIR = @PKG_CONFIG_LIBDIR@ PKG_CONFIG_PATH = @PKG_CONFIG_PATH@ RANLIB = @RANLIB@ SED = @SED@ SET_MAKE = @SET_MAKE@ SHELL = @SHELL@ STRIP = @STRIP@ VERSION = @VERSION@ WARN_CFLAGS = @WARN_CFLAGS@ abs_builddir = @abs_builddir@ abs_srcdir = @abs_srcdir@ abs_top_builddir = @abs_top_builddir@ abs_top_srcdir = @abs_top_srcdir@ ac_ct_AR = @ac_ct_AR@ ac_ct_CC = @ac_ct_CC@ ac_ct_DUMPBIN = @ac_ct_DUMPBIN@ am__include = @am__include@ am__leading_dot = @am__leading_dot@ am__quote = @am__quote@ am__tar = @am__tar@ am__untar = @am__untar@ bindir = @bindir@ build = @build@ build_alias = @build_alias@ build_cpu = @build_cpu@ build_os = @build_os@ build_vendor = @build_vendor@ builddir = @builddir@ datadir = @datadir@ datarootdir = @datarootdir@ docdir = @docdir@ dvidir = @dvidir@ exec_prefix = @exec_prefix@ host = @host@ host_alias = @host_alias@ host_cpu = @host_cpu@ host_os = @host_os@ host_vendor = @host_vendor@ htmldir = @htmldir@ includedir = @includedir@ infodir = @infodir@ install_sh = @install_sh@ libdir = @libdir@ libexecdir = @libexecdir@ localedir = @localedir@ localstatedir = @localstatedir@ mandir = @mandir@ mkdir_p = @mkdir_p@ oldincludedir = @oldincludedir@ pdfdir = @pdfdir@ prefix = @prefix@ program_transform_name = @program_transform_name@ psdir = @psdir@ sbindir = @sbindir@ sharedstatedir = @sharedstatedir@ srcdir = @srcdir@ sysconfdir = @sysconfdir@ target_alias = @target_alias@ top_build_prefix = @top_build_prefix@ top_builddir = @top_builddir@ top_srcdir = @top_srcdir@ # # Makefile snippet # EXTRA_DIST = wrapset.api wrapset.scm wrapset_stem = libgnomeui top_module_name = (gnome gnome-ui) gw_module_name = (gnome gw $(wrapset_stem)) extra_module_names = wrapset_modules = ($(top_module_name) $(gw_module_name) $(extra_module_names)) WRAPSET_TESTS_ENV = WRAPSET_MODULES="$(wrapset_modules)" WRAPSET_API_FILE=$(srcdir)/wrapset.api DEV_ENV = $(top_builddir)/dev-environ GUILE = guile TESTS_ENVIRONMENT = $(WRAPSET_TESTS_ENV) $(DEV_ENV) $(GUILE) $(GUILE_FLAGS) -e main -s TESTS = wrapset.scm all: all-am .SUFFIXES: $(srcdir)/Makefile.in: $(srcdir)/Makefile.am $(srcdir)/../../tests.mk $(am__configure_deps) @for dep in $?; do \ case '$(am__configure_deps)' in \ *$$dep*) \ ( cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh ) \ && { if test -f $@; then exit 0; else break; fi; }; \ exit 1;; \ esac; \ done; \ echo ' cd $(top_srcdir) && $(AUTOMAKE) --gnu libgnomeui/tests/Makefile'; \ $(am__cd) $(top_srcdir) && \ $(AUTOMAKE) --gnu libgnomeui/tests/Makefile .PRECIOUS: Makefile Makefile: $(srcdir)/Makefile.in $(top_builddir)/config.status @case '$?' in \ *config.status*) \ cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh;; \ *) \ echo ' cd $(top_builddir) && $(SHELL) ./config.status $(subdir)/$@ $(am__depfiles_maybe)'; \ cd $(top_builddir) && $(SHELL) ./config.status $(subdir)/$@ $(am__depfiles_maybe);; \ esac; $(srcdir)/../../tests.mk: $(top_builddir)/config.status: $(top_srcdir)/configure $(CONFIG_STATUS_DEPENDENCIES) cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh $(top_srcdir)/configure: $(am__configure_deps) cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh $(ACLOCAL_M4): $(am__aclocal_m4_deps) cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh $(am__aclocal_m4_deps): mostlyclean-libtool: -rm -f *.lo clean-libtool: -rm -rf .libs _libs tags: TAGS TAGS: ctags: CTAGS CTAGS: check-TESTS: $(TESTS) @failed=0; all=0; xfail=0; xpass=0; skip=0; \ srcdir=$(srcdir); export srcdir; \ list=' $(TESTS) '; \ $(am__tty_colors); \ if test -n "$$list"; then \ for tst in $$list; do \ if test -f ./$$tst; then dir=./; \ elif test -f $$tst; then dir=; \ else dir="$(srcdir)/"; fi; \ if $(TESTS_ENVIRONMENT) $${dir}$$tst; then \ all=`expr $$all + 1`; \ case " $(XFAIL_TESTS) " in \ *[\ \ ]$$tst[\ \ ]*) \ xpass=`expr $$xpass + 1`; \ failed=`expr $$failed + 1`; \ col=$$red; res=XPASS; \ ;; \ *) \ col=$$grn; res=PASS; \ ;; \ esac; \ elif test $$? -ne 77; then \ all=`expr $$all + 1`; \ case " $(XFAIL_TESTS) " in \ *[\ \ ]$$tst[\ \ ]*) \ xfail=`expr $$xfail + 1`; \ col=$$lgn; res=XFAIL; \ ;; \ *) \ failed=`expr $$failed + 1`; \ col=$$red; res=FAIL; \ ;; \ esac; \ else \ skip=`expr $$skip + 1`; \ col=$$blu; res=SKIP; \ fi; \ echo "$${col}$$res$${std}: $$tst"; \ done; \ if test "$$all" -eq 1; then \ tests="test"; \ All=""; \ else \ tests="tests"; \ All="All "; \ fi; \ if test "$$failed" -eq 0; then \ if test "$$xfail" -eq 0; then \ banner="$$All$$all $$tests passed"; \ else \ if test "$$xfail" -eq 1; then failures=failure; else failures=failures; fi; \ banner="$$All$$all $$tests behaved as expected ($$xfail expected $$failures)"; \ fi; \ else \ if test "$$xpass" -eq 0; then \ banner="$$failed of $$all $$tests failed"; \ else \ if test "$$xpass" -eq 1; then passes=pass; else passes=passes; fi; \ banner="$$failed of $$all $$tests did not behave as expected ($$xpass unexpected $$passes)"; \ fi; \ fi; \ dashes="$$banner"; \ skipped=""; \ if test "$$skip" -ne 0; then \ if test "$$skip" -eq 1; then \ skipped="($$skip test was not run)"; \ else \ skipped="($$skip tests were not run)"; \ fi; \ test `echo "$$skipped" | wc -c` -le `echo "$$banner" | wc -c` || \ dashes="$$skipped"; \ fi; \ report=""; \ if test "$$failed" -ne 0 && test -n "$(PACKAGE_BUGREPORT)"; then \ report="Please report to $(PACKAGE_BUGREPORT)"; \ test `echo "$$report" | wc -c` -le `echo "$$banner" | wc -c` || \ dashes="$$report"; \ fi; \ dashes=`echo "$$dashes" | sed s/./=/g`; \ if test "$$failed" -eq 0; then \ col="$$grn"; \ else \ col="$$red"; \ fi; \ echo "$${col}$$dashes$${std}"; \ echo "$${col}$$banner$${std}"; \ test -z "$$skipped" || echo "$${col}$$skipped$${std}"; \ test -z "$$report" || echo "$${col}$$report$${std}"; \ echo "$${col}$$dashes$${std}"; \ test "$$failed" -eq 0; \ else :; fi distdir: $(DISTFILES) @srcdirstrip=`echo "$(srcdir)" | sed 's/[].[^$$\\*]/\\\\&/g'`; \ topsrcdirstrip=`echo "$(top_srcdir)" | sed 's/[].[^$$\\*]/\\\\&/g'`; \ list='$(DISTFILES)'; \ dist_files=`for file in $$list; do echo $$file; done | \ sed -e "s|^$$srcdirstrip/||;t" \ -e "s|^$$topsrcdirstrip/|$(top_builddir)/|;t"`; \ case $$dist_files in \ */*) $(MKDIR_P) `echo "$$dist_files" | \ sed '/\//!d;s|^|$(distdir)/|;s,/[^/]*$$,,' | \ sort -u` ;; \ esac; \ for file in $$dist_files; do \ if test -f $$file || test -d $$file; then d=.; else d=$(srcdir); fi; \ if test -d $$d/$$file; then \ dir=`echo "/$$file" | sed -e 's,/[^/]*$$,,'`; \ if test -d "$(distdir)/$$file"; then \ find "$(distdir)/$$file" -type d ! -perm -700 -exec chmod u+rwx {} \;; \ fi; \ if test -d $(srcdir)/$$file && test $$d != $(srcdir); then \ cp -fpR $(srcdir)/$$file "$(distdir)$$dir" || exit 1; \ find "$(distdir)/$$file" -type d ! -perm -700 -exec chmod u+rwx {} \;; \ fi; \ cp -fpR $$d/$$file "$(distdir)$$dir" || exit 1; \ else \ test -f "$(distdir)/$$file" \ || cp -p $$d/$$file "$(distdir)/$$file" \ || exit 1; \ fi; \ done check-am: all-am $(MAKE) $(AM_MAKEFLAGS) check-TESTS check: check-am all-am: Makefile installdirs: install: install-am install-exec: install-exec-am install-data: install-data-am uninstall: uninstall-am install-am: all-am @$(MAKE) $(AM_MAKEFLAGS) install-exec-am install-data-am installcheck: installcheck-am install-strip: if test -z '$(STRIP)'; then \ $(MAKE) $(AM_MAKEFLAGS) INSTALL_PROGRAM="$(INSTALL_STRIP_PROGRAM)" \ install_sh_PROGRAM="$(INSTALL_STRIP_PROGRAM)" INSTALL_STRIP_FLAG=-s \ install; \ else \ $(MAKE) $(AM_MAKEFLAGS) INSTALL_PROGRAM="$(INSTALL_STRIP_PROGRAM)" \ install_sh_PROGRAM="$(INSTALL_STRIP_PROGRAM)" INSTALL_STRIP_FLAG=-s \ "INSTALL_PROGRAM_ENV=STRIPPROG='$(STRIP)'" install; \ fi mostlyclean-generic: clean-generic: distclean-generic: -test -z "$(CONFIG_CLEAN_FILES)" || rm -f $(CONFIG_CLEAN_FILES) -test . = "$(srcdir)" || test -z "$(CONFIG_CLEAN_VPATH_FILES)" || rm -f $(CONFIG_CLEAN_VPATH_FILES) maintainer-clean-generic: @echo "This command is intended for maintainers to use" @echo "it deletes files that may require special tools to rebuild." clean: clean-am clean-am: clean-generic clean-libtool mostlyclean-am distclean: distclean-am -rm -f Makefile distclean-am: clean-am distclean-generic dvi: dvi-am dvi-am: html: html-am html-am: info: info-am info-am: install-data-am: install-dvi: install-dvi-am install-dvi-am: install-exec-am: install-html: install-html-am install-html-am: install-info: install-info-am install-info-am: install-man: install-pdf: install-pdf-am install-pdf-am: install-ps: install-ps-am install-ps-am: installcheck-am: maintainer-clean: maintainer-clean-am -rm -f Makefile maintainer-clean-am: distclean-am maintainer-clean-generic mostlyclean: mostlyclean-am mostlyclean-am: mostlyclean-generic mostlyclean-libtool pdf: pdf-am pdf-am: ps: ps-am ps-am: uninstall-am: .MAKE: check-am install-am install-strip .PHONY: all all-am check check-TESTS check-am clean clean-generic \ clean-libtool distclean distclean-generic distclean-libtool \ distdir dvi dvi-am html html-am info info-am install \ install-am install-data install-data-am install-dvi \ install-dvi-am install-exec install-exec-am install-html \ install-html-am install-info install-info-am install-man \ install-pdf install-pdf-am install-ps install-ps-am \ install-strip installcheck installcheck-am installdirs \ maintainer-clean maintainer-clean-generic mostlyclean \ mostlyclean-generic mostlyclean-libtool pdf pdf-am ps ps-am \ uninstall uninstall-am wrapset.api.update: $(WRAPSET_TESTS_ENV) $(DEV_ENV) $(GUILE) -e update-api -s $(srcdir)/wrapset.scm %.check: % $(TESTS_ENVIRONMENT) $(srcdir)/$* # Tell versions [3.59,3.63) of GNU make to not export all variables. # Otherwise a system limit (for SysV at least) may be exceeded. .NOEXPORT: guile-gnome-platform-2.16.2/libgnomeui/tests/wrapset.api0000644000175000017500000001370411671225671023655 0ustar00wingowingo00000000000000(module-api (version 1 0) ((gnome gnome-ui) (uses-interfaces (gnome gw libgnomeui)) (typed-exports)) ((gnome gobject generics) (uses-interfaces) (typed-exports (block generic ( )) (connect generic ( )) (connect-after generic ( )) (connected? generic ( )) (create-signal generic ( )) (disconnect generic ( )) (emit generic ( . )) (find-property generic ( )) (get generic ( )) (get-properties generic ()) (get-property-names generic ()) (get-signals generic ()) (invoke generic ( . )) (set generic ( ) ( ) ( ) ( . ) ( . ) ( ) ( . )) (unblock generic ( )))) ((gnome gw generics) (uses-interfaces (gnome gobject generics)) (typed-exports)) ((gnome gw libgnomeui) (uses-interfaces (gnome gw generics)) (typed-exports (gnome-authentication-manager-dialog-is-visible procedure (arity 0 0 #t)) (gnome-authentication-manager-init procedure (arity 0 0 #t)) (gnome-client-connect procedure (arity 0 0 #t)) (gnome-client-disconnect procedure (arity 0 0 #t)) (gnome-client-flush procedure (arity 0 0 #t)) (gnome-client-get-config-prefix procedure (arity 0 0 #t)) (gnome-client-get-desktop-id procedure (arity 0 0 #t)) (gnome-client-get-flags procedure (arity 0 0 #t)) (gnome-client-get-global-config-prefix procedure (arity 0 0 #t)) (gnome-client-get-id procedure (arity 0 0 #t)) (gnome-client-get-previous-id procedure (arity 0 0 #t)) (gnome-client-new procedure (arity 0 0 #t)) (gnome-client-new-without-connection procedure (arity 0 0 #t)) (gnome-client-request-phase-2 procedure (arity 0 0 #t)) (gnome-client-request-save procedure (arity 0 0 #t)) (gnome-client-save-any-dialog procedure (arity 0 0 #t)) (gnome-client-save-error-dialog procedure (arity 0 0 #t)) (gnome-client-set-current-directory procedure (arity 0 0 #t)) (gnome-client-set-environment procedure (arity 0 0 #t)) (gnome-client-set-global-config-prefix procedure (arity 0 0 #t)) (gnome-client-set-id procedure (arity 0 0 #t)) (gnome-client-set-priority procedure (arity 0 0 #t)) (gnome-client-set-process-id procedure (arity 0 0 #t)) (gnome-client-set-program procedure (arity 0 0 #t)) (gnome-client-set-restart-style procedure (arity 0 0 #t)) (gnome-client-set-user-id procedure (arity 0 0 #t)) (gnome-date-edit-construct procedure (arity 0 0 #t)) (gnome-date-edit-get-flags procedure (arity 0 0 #t)) (gnome-date-edit-get-initial-time procedure (arity 0 0 #t)) (gnome-date-edit-get-time procedure (arity 0 0 #t)) (gnome-date-edit-new procedure (arity 0 0 #t)) (gnome-date-edit-new-flags procedure (arity 0 0 #t)) (gnome-date-edit-set-flags procedure (arity 0 0 #t)) (gnome-date-edit-set-popup-range procedure (arity 0 0 #t)) (gnome-date-edit-set-time procedure (arity 0 0 #t)) (gnome-gdk-pixbuf-new-from-uri procedure (arity 0 0 #t)) (gnome-gdk-pixbuf-new-from-uri-at-scale procedure (arity 0 0 #t)) (gnome-help-display-desktop-on-screen procedure (arity 5 0 #f)) (gnome-help-display-on-screen procedure (arity 3 0 #f)) (gnome-help-display-uri-on-screen procedure (arity 2 0 #f)) (gnome-help-display-with-doc-id-on-screen procedure (arity 5 0 #f)) (gnome-master-client procedure (arity 0 0 #t)) (gnome-password-dialog-anon-selected procedure (arity 0 0 #t)) (gnome-password-dialog-get-domain procedure (arity 0 0 #t)) (gnome-password-dialog-get-password procedure (arity 0 0 #t)) (gnome-password-dialog-get-remember procedure (arity 0 0 #t)) (gnome-password-dialog-get-username procedure (arity 0 0 #t)) (gnome-password-dialog-new procedure (arity 0 0 #t)) (gnome-password-dialog-run-and-block procedure (arity 0 0 #t)) (gnome-password-dialog-set-domain procedure (arity 0 0 #t)) (gnome-password-dialog-set-password procedure (arity 0 0 #t)) (gnome-password-dialog-set-readonly-domain procedure (arity 0 0 #t)) (gnome-password-dialog-set-readonly-username procedure (arity 0 0 #t)) (gnome-password-dialog-set-remember procedure (arity 0 0 #t)) (gnome-password-dialog-set-show-domain procedure (arity 0 0 #t)) (gnome-password-dialog-set-show-password procedure (arity 0 0 #t)) (gnome-password-dialog-set-show-remember procedure (arity 0 0 #t)) (gnome-password-dialog-set-show-username procedure (arity 0 0 #t)) (gnome-password-dialog-set-show-userpass-buttons procedure (arity 0 0 #t)) (gnome-password-dialog-set-username procedure (arity 0 0 #t)) (gnome-url-show-on-screen procedure (arity 2 0 #f))))) guile-gnome-platform-2.16.2/libgnomeui/gnome/0000755000175000017500000000000011752546504021434 5ustar00wingowingo00000000000000guile-gnome-platform-2.16.2/libgnomeui/gnome/gw/0000755000175000017500000000000011752546504022051 5ustar00wingowingo00000000000000guile-gnome-platform-2.16.2/libgnomeui/gnome/gw/libgnomeui-spec.scm0000644000175000017500000000453011670374303025634 0ustar00wingowingo00000000000000;; guile-gnome ;; Copyright (C) 2003,2004 Andy Wingo ;; This program is free software; you can redistribute it and/or ;; modify it under the terms of the GNU General Public License as ;; published by the Free Software Foundation; either version 2 of ;; the License, or (at your option) any later version. ;; ;; This program is distributed in the hope that it will be useful, ;; but WITHOUT ANY WARRANTY; without even the implied warranty of ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the ;; GNU General Public License for more details. ;; ;; You should have received a copy of the GNU General Public License ;; along with this program; if not, contact: ;; ;; Free Software Foundation Voice: +1-617-542-5942 ;; 59 Temple Place - Suite 330 Fax: +1-617-542-2652 ;; Boston, MA 02111-1307, USA gnu@gnu.org ;;; Commentary: ;; ;;g-wrap specification for libgnomeui. ;; ;;; Code: (define-module (gnome gw libgnomeui-spec) #:use-module (oop goops) #:use-module (gnome gw support g-wrap) #:use-module (gnome gw gobject-spec) #:use-module (gnome gw gtk-spec) #:use-module (gnome gw libgnome-spec) #:use-module (gnome gw support gobject) #:use-module (gnome gw support defs)) (define-class () #:id 'gnome-libgnomeui #:dependencies '(standard gnome-glib gnome-gobject gnome-atk gnome-gdk gnome-pango gnome-gtk gnome-libgnome)) (define-method (initialize (ws ) initargs) (next-method ws (append '(#:module (gnome gw libgnomeui)) initargs)) (for-each (lambda (elt) (add-type-alias! ws (car elt) (cadr elt))) '(("pid_t" int) ;; Until we wrap bonobo, hack in these definitions ("BonoboDockItemBehavior" int) ("BonoboDockPlacement" int))) (load-defs-with-overrides ws "gnome/defs/libgnomeui.defs")) (define-method (global-declarations-cg (self )) (list (next-method) "#include \n")) (define-method (client-global-declarations-cg (self )) (list (next-method) "#include \n")) guile-gnome-platform-2.16.2/libgnomeui/gnome/gw/Makefile.am0000644000175000017500000000165311670374303024105 0ustar00wingowingo00000000000000include $(top_srcdir)/common.mk guilegwmodule_DATA = libgnomeui-spec.scm libgnomeui.scm # There is one shared library for each wrapset. Each is produced by # g-wrap, but also may contain some hand-coded routines. guilegnomelib_LTLIBRARIES = libgw-guile-gnome-libgnomeui.la ######################################################################## ## libgnomeui nodist_libgw_guile_gnome_libgnomeui_la_SOURCES = guile-gnome-gw-libgnomeui.c libgw_guile_gnome_libgnomeui_la_CFLAGS = $(GUILE_GLIB_CFLAGS) \ $(AM_CFLAGS) $(LIBGNOMEUI_CFLAGS) $(GUILE_CFLAGS) \ $(G_WRAP_CFLAGS) $(GNOMEUI_DEPRECATION_CFLAGS) libgw_guile_gnome_libgnomeui_la_LIBADD = $(LIBGNOMEUI_LIBS) $(GUILE_LIBS) \ $(G_WRAP_LIBS) $(GUILE_GLIB_LIBS) libgw_guile_gnome_libgnomeui_la_LDFLAGS = -module CLEANFILES = $(wildcard gnome-*.log) \ $(wildcard guile-gnome-gw-*) libgnomeui.scm BUILT_SOURCES = guile-gnome-gw-libgnomeui.c EXTRA_DIST = libgnomeui-spec.scm guile-gnome-platform-2.16.2/libgnomeui/gnome/gw/Makefile.in0000644000175000017500000006330511752520702024115 0ustar00wingowingo00000000000000# Makefile.in generated by automake 1.11.5 from Makefile.am. # @configure_input@ # Copyright (C) 1994, 1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, # 2003, 2004, 2005, 2006, 2007, 2008, 2009, 2010, 2011 Free Software # Foundation, Inc. # This Makefile.in is free software; the Free Software Foundation # gives unlimited permission to copy and/or distribute it, # with or without modifications, as long as this notice is preserved. # This program is distributed in the hope that it will be useful, # but WITHOUT ANY WARRANTY, to the extent permitted by law; without # even the implied warranty of MERCHANTABILITY or FITNESS FOR A # PARTICULAR PURPOSE. @SET_MAKE@ # guile-gnome # Copyright (C) 2003,2004,2009,2012 Free Software Foundation, Inc. # This program is free software; you can redistribute it and/or # modify it under the terms of the GNU General Public License as # published by the Free Software Foundation; either version 2 of # the License, or (at your option) any later version. # This program is distributed in the hope that it will be useful, # but WITHOUT ANY WARRANTY; without even the implied warranty of # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the # GNU General Public License for more details. # You should have received a copy of the GNU General Public License # along with this program; if not, contact: # Free Software Foundation Voice: +1-617-542-5942 # 59 Temple Place - Suite 330 Fax: +1-617-542-2652 # Boston, MA 02111-1307, USA gnu@gnu.org # # Makefile snippet # VPATH = @srcdir@ am__make_dryrun = \ { \ am__dry=no; \ case $$MAKEFLAGS in \ *\\[\ \ ]*) \ echo 'am--echo: ; @echo "AM" OK' | $(MAKE) -f - 2>/dev/null \ | grep '^AM OK$$' >/dev/null || am__dry=yes;; \ *) \ for am__flg in $$MAKEFLAGS; do \ case $$am__flg in \ *=*|--*) ;; \ *n*) am__dry=yes; break;; \ esac; \ done;; \ esac; \ test $$am__dry = yes; \ } pkgdatadir = $(datadir)/@PACKAGE@ pkgincludedir = $(includedir)/@PACKAGE@ pkglibdir = $(libdir)/@PACKAGE@ pkglibexecdir = $(libexecdir)/@PACKAGE@ am__cd = CDPATH="$${ZSH_VERSION+.}$(PATH_SEPARATOR)" && cd install_sh_DATA = $(install_sh) -c -m 644 install_sh_PROGRAM = $(install_sh) -c install_sh_SCRIPT = $(install_sh) -c INSTALL_HEADER = $(INSTALL_DATA) transform = $(program_transform_name) NORMAL_INSTALL = : PRE_INSTALL = : POST_INSTALL = : NORMAL_UNINSTALL = : PRE_UNINSTALL = : POST_UNINSTALL = : build_triplet = @build@ host_triplet = @host@ DIST_COMMON = $(srcdir)/Makefile.am $(srcdir)/Makefile.in \ $(top_srcdir)/common.mk subdir = libgnomeui/gnome/gw ACLOCAL_M4 = $(top_srcdir)/aclocal.m4 am__aclocal_m4_deps = $(top_srcdir)/configure.ac am__configure_deps = $(am__aclocal_m4_deps) $(CONFIGURE_DEPENDENCIES) \ $(ACLOCAL_M4) mkinstalldirs = $(install_sh) -d CONFIG_HEADER = $(top_builddir)/config.h CONFIG_CLEAN_FILES = CONFIG_CLEAN_VPATH_FILES = am__vpath_adj_setup = srcdirstrip=`echo "$(srcdir)" | sed 's|.|.|g'`; am__vpath_adj = case $$p in \ $(srcdir)/*) f=`echo "$$p" | sed "s|^$$srcdirstrip/||"`;; \ *) f=$$p;; \ esac; am__strip_dir = f=`echo $$p | sed -e 's|^.*/||'`; am__install_max = 40 am__nobase_strip_setup = \ srcdirstrip=`echo "$(srcdir)" | sed 's/[].[^$$\\*|]/\\\\&/g'` am__nobase_strip = \ for p in $$list; do echo "$$p"; done | sed -e "s|$$srcdirstrip/||" am__nobase_list = $(am__nobase_strip_setup); \ for p in $$list; do echo "$$p $$p"; done | \ sed "s| $$srcdirstrip/| |;"' / .*\//!s/ .*/ ./; s,\( .*\)/[^/]*$$,\1,' | \ $(AWK) 'BEGIN { files["."] = "" } { files[$$2] = files[$$2] " " $$1; \ if (++n[$$2] == $(am__install_max)) \ { print $$2, files[$$2]; n[$$2] = 0; files[$$2] = "" } } \ END { for (dir in files) print dir, files[dir] }' am__base_list = \ sed '$$!N;$$!N;$$!N;$$!N;$$!N;$$!N;$$!N;s/\n/ /g' | \ sed '$$!N;$$!N;$$!N;$$!N;s/\n/ /g' am__uninstall_files_from_dir = { \ test -z "$$files" \ || { test ! -d "$$dir" && test ! -f "$$dir" && test ! -r "$$dir"; } \ || { echo " ( cd '$$dir' && rm -f" $$files ")"; \ $(am__cd) "$$dir" && rm -f $$files; }; \ } am__installdirs = "$(DESTDIR)$(guilegnomelibdir)" \ "$(DESTDIR)$(guilegwmoduledir)" LTLIBRARIES = $(guilegnomelib_LTLIBRARIES) am__DEPENDENCIES_1 = libgw_guile_gnome_libgnomeui_la_DEPENDENCIES = $(am__DEPENDENCIES_1) \ $(am__DEPENDENCIES_1) $(am__DEPENDENCIES_1) \ $(am__DEPENDENCIES_1) nodist_libgw_guile_gnome_libgnomeui_la_OBJECTS = \ libgw_guile_gnome_libgnomeui_la-guile-gnome-gw-libgnomeui.lo libgw_guile_gnome_libgnomeui_la_OBJECTS = \ $(nodist_libgw_guile_gnome_libgnomeui_la_OBJECTS) libgw_guile_gnome_libgnomeui_la_LINK = $(LIBTOOL) --tag=CC \ $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=link $(CCLD) \ $(libgw_guile_gnome_libgnomeui_la_CFLAGS) $(CFLAGS) \ $(libgw_guile_gnome_libgnomeui_la_LDFLAGS) $(LDFLAGS) -o $@ DEFAULT_INCLUDES = -I.@am__isrc@ -I$(top_builddir) depcomp = $(SHELL) $(top_srcdir)/build-aux/depcomp am__depfiles_maybe = depfiles am__mv = mv -f COMPILE = $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(AM_CPPFLAGS) \ $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) LTCOMPILE = $(LIBTOOL) --tag=CC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) \ --mode=compile $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) \ $(AM_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) CCLD = $(CC) LINK = $(LIBTOOL) --tag=CC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) \ --mode=link $(CCLD) $(AM_CFLAGS) $(CFLAGS) $(AM_LDFLAGS) \ $(LDFLAGS) -o $@ SOURCES = $(nodist_libgw_guile_gnome_libgnomeui_la_SOURCES) DIST_SOURCES = am__can_run_installinfo = \ case $$AM_UPDATE_INFO_DIR in \ n|no|NO) false;; \ *) (install-info --version) >/dev/null 2>&1;; \ esac DATA = $(guilegwmodule_DATA) ETAGS = etags CTAGS = ctags DISTFILES = $(DIST_COMMON) $(DIST_SOURCES) $(TEXINFOS) $(EXTRA_DIST) ACLOCAL = @ACLOCAL@ AG_PKG_CONFIG_PATH = @AG_PKG_CONFIG_PATH@ AMTAR = @AMTAR@ API_VERSION = @API_VERSION@ AR = @AR@ ATK_CFLAGS = @ATK_CFLAGS@ ATK_LIBS = @ATK_LIBS@ AUTOCONF = @AUTOCONF@ AUTOHEADER = @AUTOHEADER@ AUTOMAKE = @AUTOMAKE@ AWK = @AWK@ BONOBO_IDL_DIR = @BONOBO_IDL_DIR@ CANVAS_CFLAGS = @CANVAS_CFLAGS@ CANVAS_LIBS = @CANVAS_LIBS@ CC = @CC@ CCDEPMODE = @CCDEPMODE@ CFLAGS = @CFLAGS@ CORBA_CFLAGS = @CORBA_CFLAGS@ CORBA_LIBS = @CORBA_LIBS@ CPP = @CPP@ CPPFLAGS = @CPPFLAGS@ CYGPATH_W = @CYGPATH_W@ DEFS = @DEFS@ DEPDIR = @DEPDIR@ DLLTOOL = @DLLTOOL@ DSYMUTIL = @DSYMUTIL@ DUMPBIN = @DUMPBIN@ ECHO_C = @ECHO_C@ ECHO_N = @ECHO_N@ ECHO_T = @ECHO_T@ EGREP = @EGREP@ EXEEXT = @EXEEXT@ FGREP = @FGREP@ GCONF_CFLAGS = @GCONF_CFLAGS@ GCONF_LIBS = @GCONF_LIBS@ GDK_CFLAGS = @GDK_CFLAGS@ GDK_LIBS = @GDK_LIBS@ GDK_PIXBUF_CFLAGS = @GDK_PIXBUF_CFLAGS@ GDK_PIXBUF_LIBS = @GDK_PIXBUF_LIBS@ GLIB_CFLAGS = @GLIB_CFLAGS@ GLIB_LIBS = @GLIB_LIBS@ GNOMEUI_DEPRECATION_FLAGS = @GNOMEUI_DEPRECATION_FLAGS@ GNOME_VFS_CFLAGS = @GNOME_VFS_CFLAGS@ GNOME_VFS_DEPRECATED_CFLAGS = @GNOME_VFS_DEPRECATED_CFLAGS@ GNOME_VFS_LIBS = @GNOME_VFS_LIBS@ GOBJECT_CFLAGS = @GOBJECT_CFLAGS@ GOBJECT_LIBS = @GOBJECT_LIBS@ GREP = @GREP@ GTHREAD_CFLAGS = @GTHREAD_CFLAGS@ GTHREAD_LIBS = @GTHREAD_LIBS@ GTK_CFLAGS = @GTK_CFLAGS@ GTK_DEPRECATED_CFLAGS = @GTK_DEPRECATED_CFLAGS@ GTK_LIBS = @GTK_LIBS@ GUILE_CAIRO_CFLAGS = @GUILE_CAIRO_CFLAGS@ GUILE_CAIRO_LIBS = @GUILE_CAIRO_LIBS@ GUILE_CFLAGS = @GUILE_CFLAGS@ GUILE_EFFECTIVE_VERSION = @GUILE_EFFECTIVE_VERSION@ GUILE_GLIB_CFLAGS = @GUILE_GLIB_CFLAGS@ GUILE_GLIB_LIBS = @GUILE_GLIB_LIBS@ GUILE_LIBS = @GUILE_LIBS@ G_WRAP_CFLAGS = @G_WRAP_CFLAGS@ G_WRAP_LIBS = @G_WRAP_LIBS@ G_WRAP_LIB_DIR = @G_WRAP_LIB_DIR@ G_WRAP_MODULE_DIR = @G_WRAP_MODULE_DIR@ INSTALL = @INSTALL@ INSTALL_DATA = @INSTALL_DATA@ INSTALL_PROGRAM = @INSTALL_PROGRAM@ INSTALL_SCRIPT = @INSTALL_SCRIPT@ INSTALL_STRIP_PROGRAM = @INSTALL_STRIP_PROGRAM@ LD = @LD@ LDFLAGS = @LDFLAGS@ LIBGLADE_CFLAGS = @LIBGLADE_CFLAGS@ LIBGLADE_LIBS = @LIBGLADE_LIBS@ LIBGNOMEUI_CFLAGS = @LIBGNOMEUI_CFLAGS@ LIBGNOMEUI_LIBS = @LIBGNOMEUI_LIBS@ LIBGNOME_CFLAGS = @LIBGNOME_CFLAGS@ LIBGNOME_LIBS = @LIBGNOME_LIBS@ LIBOBJS = @LIBOBJS@ LIBS = @LIBS@ LIBTOOL = @LIBTOOL@ LIPO = @LIPO@ LN_S = @LN_S@ LTLIBOBJS = @LTLIBOBJS@ MAKEINFO = @MAKEINFO@ MANIFEST_TOOL = @MANIFEST_TOOL@ MKDIR_P = @MKDIR_P@ NM = @NM@ NMEDIT = @NMEDIT@ OBJDUMP = @OBJDUMP@ OBJEXT = @OBJEXT@ ORBIT_IDL = @ORBIT_IDL@ OTOOL = @OTOOL@ OTOOL64 = @OTOOL64@ PACKAGE = @PACKAGE@ PACKAGE_BUGREPORT = @PACKAGE_BUGREPORT@ PACKAGE_NAME = @PACKAGE_NAME@ PACKAGE_STRING = @PACKAGE_STRING@ PACKAGE_TARNAME = @PACKAGE_TARNAME@ PACKAGE_URL = @PACKAGE_URL@ PACKAGE_VERSION = @PACKAGE_VERSION@ PANGOCAIRO_CFLAGS = @PANGOCAIRO_CFLAGS@ PANGOCAIRO_LIBS = @PANGOCAIRO_LIBS@ PANGO_CFLAGS = @PANGO_CFLAGS@ PANGO_LIBS = @PANGO_LIBS@ PATH_SEPARATOR = @PATH_SEPARATOR@ PKG_CONFIG = @PKG_CONFIG@ PKG_CONFIG_LIBDIR = @PKG_CONFIG_LIBDIR@ PKG_CONFIG_PATH = @PKG_CONFIG_PATH@ RANLIB = @RANLIB@ SED = @SED@ SET_MAKE = @SET_MAKE@ SHELL = @SHELL@ STRIP = @STRIP@ VERSION = @VERSION@ WARN_CFLAGS = @WARN_CFLAGS@ abs_builddir = @abs_builddir@ abs_srcdir = @abs_srcdir@ abs_top_builddir = @abs_top_builddir@ abs_top_srcdir = @abs_top_srcdir@ ac_ct_AR = @ac_ct_AR@ ac_ct_CC = @ac_ct_CC@ ac_ct_DUMPBIN = @ac_ct_DUMPBIN@ am__include = @am__include@ am__leading_dot = @am__leading_dot@ am__quote = @am__quote@ am__tar = @am__tar@ am__untar = @am__untar@ bindir = @bindir@ build = @build@ build_alias = @build_alias@ build_cpu = @build_cpu@ build_os = @build_os@ build_vendor = @build_vendor@ builddir = @builddir@ datadir = @datadir@ datarootdir = @datarootdir@ docdir = @docdir@ dvidir = @dvidir@ exec_prefix = @exec_prefix@ host = @host@ host_alias = @host_alias@ host_cpu = @host_cpu@ host_os = @host_os@ host_vendor = @host_vendor@ htmldir = @htmldir@ includedir = @includedir@ infodir = @infodir@ install_sh = @install_sh@ libdir = @libdir@ libexecdir = @libexecdir@ localedir = @localedir@ localstatedir = @localstatedir@ mandir = @mandir@ mkdir_p = @mkdir_p@ oldincludedir = @oldincludedir@ pdfdir = @pdfdir@ prefix = @prefix@ program_transform_name = @program_transform_name@ psdir = @psdir@ sbindir = @sbindir@ sharedstatedir = @sharedstatedir@ srcdir = @srcdir@ sysconfdir = @sysconfdir@ target_alias = @target_alias@ top_build_prefix = @top_build_prefix@ top_builddir = @top_builddir@ top_srcdir = @top_srcdir@ guilegnomedir = $(datadir)/guile-gnome-@API_VERSION@ guilemoduledir = $(guilegnomedir)/gnome guilegwmoduledir = $(guilegnomedir)/gnome/gw guilegnomelibdir = $(libdir)/guile-gnome-@API_VERSION@ AM_CFLAGS = -I. -I$(srcdir) $(WARN_CFLAGS) $(DEBUG_CFLAGS) # For overriding from the command line (e.g. --debug) GUILE_FLAGS = SUFFIXES = .x .doc GUILE_SNARF_CFLAGS = $(DEFS) $(AM_CFLAGS) $(GUILE_CFLAGS) $(G_WRAP_CFLAGS) PACKAGES = atk cairo corba defs gconf glib gnome-vfs gtk libglade libgnome libgnomecanvas libgnomeui pango SOURCE_GUILE_PATH = $(shell echo $(addprefix $(top_srcdir)/,$(PACKAGES)) | sed -e 's/ /:/g'):$(srcdir) BUILD_GUILE_PATH = $(if $(filter-out $(top_srcdir),$(top_builddir)),$(shell echo -n $(addprefix $(top_builddir)/,$(PACKAGES)): | sed -e 's/ /:/g'),) GUILE_LOAD_PATH := $(BUILD_GUILE_PATH)$(SOURCE_GUILE_PATH):${G_WRAP_MODULE_DIR}:${GUILE_LOAD_PATH} # Real gnu make foo packages = $(filter-out %-uninstalled,$(patsubst %.pc.in,%,$(notdir $(wildcard $(srcdir)/*.pc.in)))) pcifiles = $(patsubst %,%-@API_VERSION@.pc,$(packages)) pcufiles = $(patsubst %,%-@API_VERSION@-uninstalled.pc,$(packages)) guilegwmodule_DATA = libgnomeui-spec.scm libgnomeui.scm # There is one shared library for each wrapset. Each is produced by # g-wrap, but also may contain some hand-coded routines. guilegnomelib_LTLIBRARIES = libgw-guile-gnome-libgnomeui.la ######################################################################## nodist_libgw_guile_gnome_libgnomeui_la_SOURCES = guile-gnome-gw-libgnomeui.c libgw_guile_gnome_libgnomeui_la_CFLAGS = $(GUILE_GLIB_CFLAGS) \ $(AM_CFLAGS) $(LIBGNOMEUI_CFLAGS) $(GUILE_CFLAGS) \ $(G_WRAP_CFLAGS) $(GNOMEUI_DEPRECATION_CFLAGS) libgw_guile_gnome_libgnomeui_la_LIBADD = $(LIBGNOMEUI_LIBS) $(GUILE_LIBS) \ $(G_WRAP_LIBS) $(GUILE_GLIB_LIBS) libgw_guile_gnome_libgnomeui_la_LDFLAGS = -module CLEANFILES = $(wildcard gnome-*.log) \ $(wildcard guile-gnome-gw-*) libgnomeui.scm BUILT_SOURCES = guile-gnome-gw-libgnomeui.c EXTRA_DIST = libgnomeui-spec.scm all: $(BUILT_SOURCES) $(MAKE) $(AM_MAKEFLAGS) all-am .SUFFIXES: .SUFFIXES: .x .doc .c .lo .o .obj $(srcdir)/Makefile.in: $(srcdir)/Makefile.am $(top_srcdir)/common.mk $(am__configure_deps) @for dep in $?; do \ case '$(am__configure_deps)' in \ *$$dep*) \ ( cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh ) \ && { if test -f $@; then exit 0; else break; fi; }; \ exit 1;; \ esac; \ done; \ echo ' cd $(top_srcdir) && $(AUTOMAKE) --gnu libgnomeui/gnome/gw/Makefile'; \ $(am__cd) $(top_srcdir) && \ $(AUTOMAKE) --gnu libgnomeui/gnome/gw/Makefile .PRECIOUS: Makefile Makefile: $(srcdir)/Makefile.in $(top_builddir)/config.status @case '$?' in \ *config.status*) \ cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh;; \ *) \ echo ' cd $(top_builddir) && $(SHELL) ./config.status $(subdir)/$@ $(am__depfiles_maybe)'; \ cd $(top_builddir) && $(SHELL) ./config.status $(subdir)/$@ $(am__depfiles_maybe);; \ esac; $(top_srcdir)/common.mk: $(top_builddir)/config.status: $(top_srcdir)/configure $(CONFIG_STATUS_DEPENDENCIES) cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh $(top_srcdir)/configure: $(am__configure_deps) cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh $(ACLOCAL_M4): $(am__aclocal_m4_deps) cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh $(am__aclocal_m4_deps): install-guilegnomelibLTLIBRARIES: $(guilegnomelib_LTLIBRARIES) @$(NORMAL_INSTALL) @list='$(guilegnomelib_LTLIBRARIES)'; test -n "$(guilegnomelibdir)" || list=; \ list2=; for p in $$list; do \ if test -f $$p; then \ list2="$$list2 $$p"; \ else :; fi; \ done; \ test -z "$$list2" || { \ echo " $(MKDIR_P) '$(DESTDIR)$(guilegnomelibdir)'"; \ $(MKDIR_P) "$(DESTDIR)$(guilegnomelibdir)" || exit 1; \ echo " $(LIBTOOL) $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=install $(INSTALL) $(INSTALL_STRIP_FLAG) $$list2 '$(DESTDIR)$(guilegnomelibdir)'"; \ $(LIBTOOL) $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=install $(INSTALL) $(INSTALL_STRIP_FLAG) $$list2 "$(DESTDIR)$(guilegnomelibdir)"; \ } uninstall-guilegnomelibLTLIBRARIES: @$(NORMAL_UNINSTALL) @list='$(guilegnomelib_LTLIBRARIES)'; test -n "$(guilegnomelibdir)" || list=; \ for p in $$list; do \ $(am__strip_dir) \ echo " $(LIBTOOL) $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=uninstall rm -f '$(DESTDIR)$(guilegnomelibdir)/$$f'"; \ $(LIBTOOL) $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=uninstall rm -f "$(DESTDIR)$(guilegnomelibdir)/$$f"; \ done clean-guilegnomelibLTLIBRARIES: -test -z "$(guilegnomelib_LTLIBRARIES)" || rm -f $(guilegnomelib_LTLIBRARIES) @list='$(guilegnomelib_LTLIBRARIES)'; for p in $$list; do \ dir="`echo $$p | sed -e 's|/[^/]*$$||'`"; \ test "$$dir" != "$$p" || dir=.; \ echo "rm -f \"$${dir}/so_locations\""; \ rm -f "$${dir}/so_locations"; \ done libgw-guile-gnome-libgnomeui.la: $(libgw_guile_gnome_libgnomeui_la_OBJECTS) $(libgw_guile_gnome_libgnomeui_la_DEPENDENCIES) $(EXTRA_libgw_guile_gnome_libgnomeui_la_DEPENDENCIES) $(libgw_guile_gnome_libgnomeui_la_LINK) -rpath $(guilegnomelibdir) $(libgw_guile_gnome_libgnomeui_la_OBJECTS) $(libgw_guile_gnome_libgnomeui_la_LIBADD) $(LIBS) mostlyclean-compile: -rm -f *.$(OBJEXT) distclean-compile: -rm -f *.tab.c @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/libgw_guile_gnome_libgnomeui_la-guile-gnome-gw-libgnomeui.Plo@am__quote@ .c.o: @am__fastdepCC_TRUE@ $(COMPILE) -MT $@ -MD -MP -MF $(DEPDIR)/$*.Tpo -c -o $@ $< @am__fastdepCC_TRUE@ $(am__mv) $(DEPDIR)/$*.Tpo $(DEPDIR)/$*.Po @AMDEP_TRUE@@am__fastdepCC_FALSE@ source='$<' object='$@' libtool=no @AMDEPBACKSLASH@ @AMDEP_TRUE@@am__fastdepCC_FALSE@ DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@ @am__fastdepCC_FALSE@ $(COMPILE) -c $< .c.obj: @am__fastdepCC_TRUE@ $(COMPILE) -MT $@ -MD -MP -MF $(DEPDIR)/$*.Tpo -c -o $@ `$(CYGPATH_W) '$<'` @am__fastdepCC_TRUE@ $(am__mv) $(DEPDIR)/$*.Tpo $(DEPDIR)/$*.Po @AMDEP_TRUE@@am__fastdepCC_FALSE@ source='$<' object='$@' libtool=no @AMDEPBACKSLASH@ @AMDEP_TRUE@@am__fastdepCC_FALSE@ DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@ @am__fastdepCC_FALSE@ $(COMPILE) -c `$(CYGPATH_W) '$<'` .c.lo: @am__fastdepCC_TRUE@ $(LTCOMPILE) -MT $@ -MD -MP -MF $(DEPDIR)/$*.Tpo -c -o $@ $< @am__fastdepCC_TRUE@ $(am__mv) $(DEPDIR)/$*.Tpo $(DEPDIR)/$*.Plo @AMDEP_TRUE@@am__fastdepCC_FALSE@ source='$<' object='$@' libtool=yes @AMDEPBACKSLASH@ @AMDEP_TRUE@@am__fastdepCC_FALSE@ DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@ @am__fastdepCC_FALSE@ $(LTCOMPILE) -c -o $@ $< libgw_guile_gnome_libgnomeui_la-guile-gnome-gw-libgnomeui.lo: guile-gnome-gw-libgnomeui.c @am__fastdepCC_TRUE@ $(LIBTOOL) --tag=CC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(AM_CPPFLAGS) $(CPPFLAGS) $(libgw_guile_gnome_libgnomeui_la_CFLAGS) $(CFLAGS) -MT libgw_guile_gnome_libgnomeui_la-guile-gnome-gw-libgnomeui.lo -MD -MP -MF $(DEPDIR)/libgw_guile_gnome_libgnomeui_la-guile-gnome-gw-libgnomeui.Tpo -c -o libgw_guile_gnome_libgnomeui_la-guile-gnome-gw-libgnomeui.lo `test -f 'guile-gnome-gw-libgnomeui.c' || echo '$(srcdir)/'`guile-gnome-gw-libgnomeui.c @am__fastdepCC_TRUE@ $(am__mv) $(DEPDIR)/libgw_guile_gnome_libgnomeui_la-guile-gnome-gw-libgnomeui.Tpo $(DEPDIR)/libgw_guile_gnome_libgnomeui_la-guile-gnome-gw-libgnomeui.Plo @AMDEP_TRUE@@am__fastdepCC_FALSE@ source='guile-gnome-gw-libgnomeui.c' object='libgw_guile_gnome_libgnomeui_la-guile-gnome-gw-libgnomeui.lo' libtool=yes @AMDEPBACKSLASH@ @AMDEP_TRUE@@am__fastdepCC_FALSE@ DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@ @am__fastdepCC_FALSE@ $(LIBTOOL) --tag=CC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(AM_CPPFLAGS) $(CPPFLAGS) $(libgw_guile_gnome_libgnomeui_la_CFLAGS) $(CFLAGS) -c -o libgw_guile_gnome_libgnomeui_la-guile-gnome-gw-libgnomeui.lo `test -f 'guile-gnome-gw-libgnomeui.c' || echo '$(srcdir)/'`guile-gnome-gw-libgnomeui.c mostlyclean-libtool: -rm -f *.lo clean-libtool: -rm -rf .libs _libs install-guilegwmoduleDATA: $(guilegwmodule_DATA) @$(NORMAL_INSTALL) @list='$(guilegwmodule_DATA)'; test -n "$(guilegwmoduledir)" || list=; \ if test -n "$$list"; then \ echo " $(MKDIR_P) '$(DESTDIR)$(guilegwmoduledir)'"; \ $(MKDIR_P) "$(DESTDIR)$(guilegwmoduledir)" || exit 1; \ fi; \ for p in $$list; do \ if test -f "$$p"; then d=; else d="$(srcdir)/"; fi; \ echo "$$d$$p"; \ done | $(am__base_list) | \ while read files; do \ echo " $(INSTALL_DATA) $$files '$(DESTDIR)$(guilegwmoduledir)'"; \ $(INSTALL_DATA) $$files "$(DESTDIR)$(guilegwmoduledir)" || exit $$?; \ done uninstall-guilegwmoduleDATA: @$(NORMAL_UNINSTALL) @list='$(guilegwmodule_DATA)'; test -n "$(guilegwmoduledir)" || list=; \ files=`for p in $$list; do echo $$p; done | sed -e 's|^.*/||'`; \ dir='$(DESTDIR)$(guilegwmoduledir)'; $(am__uninstall_files_from_dir) ID: $(HEADERS) $(SOURCES) $(LISP) $(TAGS_FILES) list='$(SOURCES) $(HEADERS) $(LISP) $(TAGS_FILES)'; \ unique=`for i in $$list; do \ if test -f "$$i"; then echo $$i; else echo $(srcdir)/$$i; fi; \ done | \ $(AWK) '{ files[$$0] = 1; nonempty = 1; } \ END { if (nonempty) { for (i in files) print i; }; }'`; \ mkid -fID $$unique tags: TAGS TAGS: $(HEADERS) $(SOURCES) $(TAGS_DEPENDENCIES) \ $(TAGS_FILES) $(LISP) set x; \ here=`pwd`; \ list='$(SOURCES) $(HEADERS) $(LISP) $(TAGS_FILES)'; \ unique=`for i in $$list; do \ if test -f "$$i"; then echo $$i; else echo $(srcdir)/$$i; fi; \ done | \ $(AWK) '{ files[$$0] = 1; nonempty = 1; } \ END { if (nonempty) { for (i in files) print i; }; }'`; \ shift; \ if test -z "$(ETAGS_ARGS)$$*$$unique"; then :; else \ test -n "$$unique" || unique=$$empty_fix; \ if test $$# -gt 0; then \ $(ETAGS) $(ETAGSFLAGS) $(AM_ETAGSFLAGS) $(ETAGS_ARGS) \ "$$@" $$unique; \ else \ $(ETAGS) $(ETAGSFLAGS) $(AM_ETAGSFLAGS) $(ETAGS_ARGS) \ $$unique; \ fi; \ fi ctags: CTAGS CTAGS: $(HEADERS) $(SOURCES) $(TAGS_DEPENDENCIES) \ $(TAGS_FILES) $(LISP) list='$(SOURCES) $(HEADERS) $(LISP) $(TAGS_FILES)'; \ unique=`for i in $$list; do \ if test -f "$$i"; then echo $$i; else echo $(srcdir)/$$i; fi; \ done | \ $(AWK) '{ files[$$0] = 1; nonempty = 1; } \ END { if (nonempty) { for (i in files) print i; }; }'`; \ test -z "$(CTAGS_ARGS)$$unique" \ || $(CTAGS) $(CTAGSFLAGS) $(AM_CTAGSFLAGS) $(CTAGS_ARGS) \ $$unique GTAGS: here=`$(am__cd) $(top_builddir) && pwd` \ && $(am__cd) $(top_srcdir) \ && gtags -i $(GTAGS_ARGS) "$$here" distclean-tags: -rm -f TAGS ID GTAGS GRTAGS GSYMS GPATH tags distdir: $(DISTFILES) @srcdirstrip=`echo "$(srcdir)" | sed 's/[].[^$$\\*]/\\\\&/g'`; \ topsrcdirstrip=`echo "$(top_srcdir)" | sed 's/[].[^$$\\*]/\\\\&/g'`; \ list='$(DISTFILES)'; \ dist_files=`for file in $$list; do echo $$file; done | \ sed -e "s|^$$srcdirstrip/||;t" \ -e "s|^$$topsrcdirstrip/|$(top_builddir)/|;t"`; \ case $$dist_files in \ */*) $(MKDIR_P) `echo "$$dist_files" | \ sed '/\//!d;s|^|$(distdir)/|;s,/[^/]*$$,,' | \ sort -u` ;; \ esac; \ for file in $$dist_files; do \ if test -f $$file || test -d $$file; then d=.; else d=$(srcdir); fi; \ if test -d $$d/$$file; then \ dir=`echo "/$$file" | sed -e 's,/[^/]*$$,,'`; \ if test -d "$(distdir)/$$file"; then \ find "$(distdir)/$$file" -type d ! -perm -700 -exec chmod u+rwx {} \;; \ fi; \ if test -d $(srcdir)/$$file && test $$d != $(srcdir); then \ cp -fpR $(srcdir)/$$file "$(distdir)$$dir" || exit 1; \ find "$(distdir)/$$file" -type d ! -perm -700 -exec chmod u+rwx {} \;; \ fi; \ cp -fpR $$d/$$file "$(distdir)$$dir" || exit 1; \ else \ test -f "$(distdir)/$$file" \ || cp -p $$d/$$file "$(distdir)/$$file" \ || exit 1; \ fi; \ done check-am: all-am check: $(BUILT_SOURCES) $(MAKE) $(AM_MAKEFLAGS) check-am all-am: Makefile $(LTLIBRARIES) $(DATA) installdirs: for dir in "$(DESTDIR)$(guilegnomelibdir)" "$(DESTDIR)$(guilegwmoduledir)"; do \ test -z "$$dir" || $(MKDIR_P) "$$dir"; \ done install: $(BUILT_SOURCES) $(MAKE) $(AM_MAKEFLAGS) install-am install-exec: install-exec-am install-data: install-data-am uninstall: uninstall-am install-am: all-am @$(MAKE) $(AM_MAKEFLAGS) install-exec-am install-data-am installcheck: installcheck-am install-strip: if test -z '$(STRIP)'; then \ $(MAKE) $(AM_MAKEFLAGS) INSTALL_PROGRAM="$(INSTALL_STRIP_PROGRAM)" \ install_sh_PROGRAM="$(INSTALL_STRIP_PROGRAM)" INSTALL_STRIP_FLAG=-s \ install; \ else \ $(MAKE) $(AM_MAKEFLAGS) INSTALL_PROGRAM="$(INSTALL_STRIP_PROGRAM)" \ install_sh_PROGRAM="$(INSTALL_STRIP_PROGRAM)" INSTALL_STRIP_FLAG=-s \ "INSTALL_PROGRAM_ENV=STRIPPROG='$(STRIP)'" install; \ fi mostlyclean-generic: clean-generic: -test -z "$(CLEANFILES)" || rm -f $(CLEANFILES) distclean-generic: -test -z "$(CONFIG_CLEAN_FILES)" || rm -f $(CONFIG_CLEAN_FILES) -test . = "$(srcdir)" || test -z "$(CONFIG_CLEAN_VPATH_FILES)" || rm -f $(CONFIG_CLEAN_VPATH_FILES) maintainer-clean-generic: @echo "This command is intended for maintainers to use" @echo "it deletes files that may require special tools to rebuild." -test -z "$(BUILT_SOURCES)" || rm -f $(BUILT_SOURCES) clean: clean-am clean-am: clean-generic clean-guilegnomelibLTLIBRARIES clean-libtool \ mostlyclean-am distclean: distclean-am -rm -rf ./$(DEPDIR) -rm -f Makefile distclean-am: clean-am distclean-compile distclean-generic \ distclean-tags dvi: dvi-am dvi-am: html: html-am html-am: info: info-am info-am: install-data-am: install-guilegnomelibLTLIBRARIES \ install-guilegwmoduleDATA install-dvi: install-dvi-am install-dvi-am: install-exec-am: install-html: install-html-am install-html-am: install-info: install-info-am install-info-am: install-man: install-pdf: install-pdf-am install-pdf-am: install-ps: install-ps-am install-ps-am: installcheck-am: maintainer-clean: maintainer-clean-am -rm -rf ./$(DEPDIR) -rm -f Makefile maintainer-clean-am: distclean-am maintainer-clean-generic mostlyclean: mostlyclean-am mostlyclean-am: mostlyclean-compile mostlyclean-generic \ mostlyclean-libtool pdf: pdf-am pdf-am: ps: ps-am ps-am: uninstall-am: uninstall-guilegnomelibLTLIBRARIES \ uninstall-guilegwmoduleDATA .MAKE: all check install install-am install-strip .PHONY: CTAGS GTAGS all all-am check check-am clean clean-generic \ clean-guilegnomelibLTLIBRARIES clean-libtool ctags distclean \ distclean-compile distclean-generic distclean-libtool \ distclean-tags distdir dvi dvi-am html html-am info info-am \ install install-am install-data install-data-am install-dvi \ install-dvi-am install-exec install-exec-am \ install-guilegnomelibLTLIBRARIES install-guilegwmoduleDATA \ install-html install-html-am install-info install-info-am \ install-man install-pdf install-pdf-am install-ps \ install-ps-am install-strip installcheck installcheck-am \ installdirs maintainer-clean maintainer-clean-generic \ mostlyclean mostlyclean-compile mostlyclean-generic \ mostlyclean-libtool pdf pdf-am ps ps-am tags uninstall \ uninstall-am uninstall-guilegnomelibLTLIBRARIES \ uninstall-guilegwmoduleDATA export GUILE_LOAD_PATH .c.x: guile-snarf $(GUILE_SNARF_CFLAGS) $< > $@ \ || { rm $@; false; } .c.doc: $(CPP) -DSCM_MAGIC_SNARF_DOCS $(GUILE_SNARF_CFLAGS) $< \ | grep -E '(\^\^ {|\^\^ })' > $@ || { rm $@; false; } %.scm guile-gnome-gw-%.c: %-spec.scm guile $(GUILE_FLAGS) -c \ "(debug-set! stack 400000) \ (use-modules (gnome-@API_VERSION@)) \ (use-modules (g-wrap)) \ (use-modules (gnome gw $*-spec)) \ (generate-wrapset 'guile 'gnome-$* \"guile-gnome-gw-$*\")" mv guile-gnome-gw-$*.scm $*.scm %-@API_VERSION@.pc: %.pc cp $< $@ %-@API_VERSION@-uninstalled.pc: %-uninstalled.pc cp $< $@ # Tell versions [3.59,3.63) of GNU make to not export all variables. # Otherwise a system limit (for SysV at least) may be exceeded. .NOEXPORT: guile-gnome-platform-2.16.2/libgnomeui/gnome/Makefile.am0000644000175000017500000000031211670374303023457 0ustar00wingowingo00000000000000include $(top_srcdir)/common.mk SUBDIRS = overrides guilemodule_DATA = if HAVE_LIBGNOMEUI guilemodule_DATA += gnome-ui.scm SUBDIRS += gw endif EXTRA_DIST = gnome-ui.scm DIST_SUBDIRS = gw overrides guile-gnome-platform-2.16.2/libgnomeui/gnome/gnome-ui.scm0000644000175000017500000000242311670374303023654 0ustar00wingowingo00000000000000;; guile-gnome ;; Copyright (C) 2003,2004 Andy Wingo ;; This program is free software; you can redistribute it and/or ;; modify it under the terms of the GNU General Public License as ;; published by the Free Software Foundation; either version 2 of ;; the License, or (at your option) any later version. ;; ;; This program is distributed in the hope that it will be useful, ;; but WITHOUT ANY WARRANTY; without even the implied warranty of ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the ;; GNU General Public License for more details. ;; ;; You should have received a copy of the GNU General Public License ;; along with this program; if not, contact: ;; ;; Free Software Foundation Voice: +1-617-542-5942 ;; 59 Temple Place - Suite 330 Fax: +1-617-542-2652 ;; Boston, MA 02111-1307, USA gnu@gnu.org ;;; Commentary: ;; ;;Libgnomeui bindings. ;; ;;; Code: (define-module (gnome gnome-ui) #:use-module (gnome gtk) #:use-module (gnome gw libgnomeui) #:use-module (gnome gw support modules)) (re-export-modules (gnome gw libgnomeui)) guile-gnome-platform-2.16.2/libgnomeui/gnome/Makefile.in0000644000175000017500000005750111752520701023500 0ustar00wingowingo00000000000000# Makefile.in generated by automake 1.11.5 from Makefile.am. # @configure_input@ # Copyright (C) 1994, 1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, # 2003, 2004, 2005, 2006, 2007, 2008, 2009, 2010, 2011 Free Software # Foundation, Inc. # This Makefile.in is free software; the Free Software Foundation # gives unlimited permission to copy and/or distribute it, # with or without modifications, as long as this notice is preserved. # This program is distributed in the hope that it will be useful, # but WITHOUT ANY WARRANTY, to the extent permitted by law; without # even the implied warranty of MERCHANTABILITY or FITNESS FOR A # PARTICULAR PURPOSE. @SET_MAKE@ # guile-gnome # Copyright (C) 2003,2004,2009,2012 Free Software Foundation, Inc. # This program is free software; you can redistribute it and/or # modify it under the terms of the GNU General Public License as # published by the Free Software Foundation; either version 2 of # the License, or (at your option) any later version. # This program is distributed in the hope that it will be useful, # but WITHOUT ANY WARRANTY; without even the implied warranty of # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the # GNU General Public License for more details. # You should have received a copy of the GNU General Public License # along with this program; if not, contact: # Free Software Foundation Voice: +1-617-542-5942 # 59 Temple Place - Suite 330 Fax: +1-617-542-2652 # Boston, MA 02111-1307, USA gnu@gnu.org # # Makefile snippet # VPATH = @srcdir@ am__make_dryrun = \ { \ am__dry=no; \ case $$MAKEFLAGS in \ *\\[\ \ ]*) \ echo 'am--echo: ; @echo "AM" OK' | $(MAKE) -f - 2>/dev/null \ | grep '^AM OK$$' >/dev/null || am__dry=yes;; \ *) \ for am__flg in $$MAKEFLAGS; do \ case $$am__flg in \ *=*|--*) ;; \ *n*) am__dry=yes; break;; \ esac; \ done;; \ esac; \ test $$am__dry = yes; \ } pkgdatadir = $(datadir)/@PACKAGE@ pkgincludedir = $(includedir)/@PACKAGE@ pkglibdir = $(libdir)/@PACKAGE@ pkglibexecdir = $(libexecdir)/@PACKAGE@ am__cd = CDPATH="$${ZSH_VERSION+.}$(PATH_SEPARATOR)" && cd install_sh_DATA = $(install_sh) -c -m 644 install_sh_PROGRAM = $(install_sh) -c install_sh_SCRIPT = $(install_sh) -c INSTALL_HEADER = $(INSTALL_DATA) transform = $(program_transform_name) NORMAL_INSTALL = : PRE_INSTALL = : POST_INSTALL = : NORMAL_UNINSTALL = : PRE_UNINSTALL = : POST_UNINSTALL = : build_triplet = @build@ host_triplet = @host@ DIST_COMMON = $(srcdir)/Makefile.am $(srcdir)/Makefile.in \ $(top_srcdir)/common.mk @HAVE_LIBGNOMEUI_TRUE@am__append_1 = gnome-ui.scm @HAVE_LIBGNOMEUI_TRUE@am__append_2 = gw subdir = libgnomeui/gnome ACLOCAL_M4 = $(top_srcdir)/aclocal.m4 am__aclocal_m4_deps = $(top_srcdir)/configure.ac am__configure_deps = $(am__aclocal_m4_deps) $(CONFIGURE_DEPENDENCIES) \ $(ACLOCAL_M4) mkinstalldirs = $(install_sh) -d CONFIG_HEADER = $(top_builddir)/config.h CONFIG_CLEAN_FILES = CONFIG_CLEAN_VPATH_FILES = SOURCES = DIST_SOURCES = RECURSIVE_TARGETS = all-recursive check-recursive dvi-recursive \ html-recursive info-recursive install-data-recursive \ install-dvi-recursive install-exec-recursive \ install-html-recursive install-info-recursive \ install-pdf-recursive install-ps-recursive install-recursive \ installcheck-recursive installdirs-recursive pdf-recursive \ ps-recursive uninstall-recursive am__can_run_installinfo = \ case $$AM_UPDATE_INFO_DIR in \ n|no|NO) false;; \ *) (install-info --version) >/dev/null 2>&1;; \ esac am__vpath_adj_setup = srcdirstrip=`echo "$(srcdir)" | sed 's|.|.|g'`; am__vpath_adj = case $$p in \ $(srcdir)/*) f=`echo "$$p" | sed "s|^$$srcdirstrip/||"`;; \ *) f=$$p;; \ esac; am__strip_dir = f=`echo $$p | sed -e 's|^.*/||'`; am__install_max = 40 am__nobase_strip_setup = \ srcdirstrip=`echo "$(srcdir)" | sed 's/[].[^$$\\*|]/\\\\&/g'` am__nobase_strip = \ for p in $$list; do echo "$$p"; done | sed -e "s|$$srcdirstrip/||" am__nobase_list = $(am__nobase_strip_setup); \ for p in $$list; do echo "$$p $$p"; done | \ sed "s| $$srcdirstrip/| |;"' / .*\//!s/ .*/ ./; s,\( .*\)/[^/]*$$,\1,' | \ $(AWK) 'BEGIN { files["."] = "" } { files[$$2] = files[$$2] " " $$1; \ if (++n[$$2] == $(am__install_max)) \ { print $$2, files[$$2]; n[$$2] = 0; files[$$2] = "" } } \ END { for (dir in files) print dir, files[dir] }' am__base_list = \ sed '$$!N;$$!N;$$!N;$$!N;$$!N;$$!N;$$!N;s/\n/ /g' | \ sed '$$!N;$$!N;$$!N;$$!N;s/\n/ /g' am__uninstall_files_from_dir = { \ test -z "$$files" \ || { test ! -d "$$dir" && test ! -f "$$dir" && test ! -r "$$dir"; } \ || { echo " ( cd '$$dir' && rm -f" $$files ")"; \ $(am__cd) "$$dir" && rm -f $$files; }; \ } am__installdirs = "$(DESTDIR)$(guilemoduledir)" DATA = $(guilemodule_DATA) RECURSIVE_CLEAN_TARGETS = mostlyclean-recursive clean-recursive \ distclean-recursive maintainer-clean-recursive AM_RECURSIVE_TARGETS = $(RECURSIVE_TARGETS:-recursive=) \ $(RECURSIVE_CLEAN_TARGETS:-recursive=) tags TAGS ctags CTAGS \ distdir ETAGS = etags CTAGS = ctags DISTFILES = $(DIST_COMMON) $(DIST_SOURCES) $(TEXINFOS) $(EXTRA_DIST) am__relativize = \ dir0=`pwd`; \ sed_first='s,^\([^/]*\)/.*$$,\1,'; \ sed_rest='s,^[^/]*/*,,'; \ sed_last='s,^.*/\([^/]*\)$$,\1,'; \ sed_butlast='s,/*[^/]*$$,,'; \ while test -n "$$dir1"; do \ first=`echo "$$dir1" | sed -e "$$sed_first"`; \ if test "$$first" != "."; then \ if test "$$first" = ".."; then \ dir2=`echo "$$dir0" | sed -e "$$sed_last"`/"$$dir2"; \ dir0=`echo "$$dir0" | sed -e "$$sed_butlast"`; \ else \ first2=`echo "$$dir2" | sed -e "$$sed_first"`; \ if test "$$first2" = "$$first"; then \ dir2=`echo "$$dir2" | sed -e "$$sed_rest"`; \ else \ dir2="../$$dir2"; \ fi; \ dir0="$$dir0"/"$$first"; \ fi; \ fi; \ dir1=`echo "$$dir1" | sed -e "$$sed_rest"`; \ done; \ reldir="$$dir2" ACLOCAL = @ACLOCAL@ AG_PKG_CONFIG_PATH = @AG_PKG_CONFIG_PATH@ AMTAR = @AMTAR@ API_VERSION = @API_VERSION@ AR = @AR@ ATK_CFLAGS = @ATK_CFLAGS@ ATK_LIBS = @ATK_LIBS@ AUTOCONF = @AUTOCONF@ AUTOHEADER = @AUTOHEADER@ AUTOMAKE = @AUTOMAKE@ AWK = @AWK@ BONOBO_IDL_DIR = @BONOBO_IDL_DIR@ CANVAS_CFLAGS = @CANVAS_CFLAGS@ CANVAS_LIBS = @CANVAS_LIBS@ CC = @CC@ CCDEPMODE = @CCDEPMODE@ CFLAGS = @CFLAGS@ CORBA_CFLAGS = @CORBA_CFLAGS@ CORBA_LIBS = @CORBA_LIBS@ CPP = @CPP@ CPPFLAGS = @CPPFLAGS@ CYGPATH_W = @CYGPATH_W@ DEFS = @DEFS@ DEPDIR = @DEPDIR@ DLLTOOL = @DLLTOOL@ DSYMUTIL = @DSYMUTIL@ DUMPBIN = @DUMPBIN@ ECHO_C = @ECHO_C@ ECHO_N = @ECHO_N@ ECHO_T = @ECHO_T@ EGREP = @EGREP@ EXEEXT = @EXEEXT@ FGREP = @FGREP@ GCONF_CFLAGS = @GCONF_CFLAGS@ GCONF_LIBS = @GCONF_LIBS@ GDK_CFLAGS = @GDK_CFLAGS@ GDK_LIBS = @GDK_LIBS@ GDK_PIXBUF_CFLAGS = @GDK_PIXBUF_CFLAGS@ GDK_PIXBUF_LIBS = @GDK_PIXBUF_LIBS@ GLIB_CFLAGS = @GLIB_CFLAGS@ GLIB_LIBS = @GLIB_LIBS@ GNOMEUI_DEPRECATION_FLAGS = @GNOMEUI_DEPRECATION_FLAGS@ GNOME_VFS_CFLAGS = @GNOME_VFS_CFLAGS@ GNOME_VFS_DEPRECATED_CFLAGS = @GNOME_VFS_DEPRECATED_CFLAGS@ GNOME_VFS_LIBS = @GNOME_VFS_LIBS@ GOBJECT_CFLAGS = @GOBJECT_CFLAGS@ GOBJECT_LIBS = @GOBJECT_LIBS@ GREP = @GREP@ GTHREAD_CFLAGS = @GTHREAD_CFLAGS@ GTHREAD_LIBS = @GTHREAD_LIBS@ GTK_CFLAGS = @GTK_CFLAGS@ GTK_DEPRECATED_CFLAGS = @GTK_DEPRECATED_CFLAGS@ GTK_LIBS = @GTK_LIBS@ GUILE_CAIRO_CFLAGS = @GUILE_CAIRO_CFLAGS@ GUILE_CAIRO_LIBS = @GUILE_CAIRO_LIBS@ GUILE_CFLAGS = @GUILE_CFLAGS@ GUILE_EFFECTIVE_VERSION = @GUILE_EFFECTIVE_VERSION@ GUILE_GLIB_CFLAGS = @GUILE_GLIB_CFLAGS@ GUILE_GLIB_LIBS = @GUILE_GLIB_LIBS@ GUILE_LIBS = @GUILE_LIBS@ G_WRAP_CFLAGS = @G_WRAP_CFLAGS@ G_WRAP_LIBS = @G_WRAP_LIBS@ G_WRAP_LIB_DIR = @G_WRAP_LIB_DIR@ G_WRAP_MODULE_DIR = @G_WRAP_MODULE_DIR@ INSTALL = @INSTALL@ INSTALL_DATA = @INSTALL_DATA@ INSTALL_PROGRAM = @INSTALL_PROGRAM@ INSTALL_SCRIPT = @INSTALL_SCRIPT@ INSTALL_STRIP_PROGRAM = @INSTALL_STRIP_PROGRAM@ LD = @LD@ LDFLAGS = @LDFLAGS@ LIBGLADE_CFLAGS = @LIBGLADE_CFLAGS@ LIBGLADE_LIBS = @LIBGLADE_LIBS@ LIBGNOMEUI_CFLAGS = @LIBGNOMEUI_CFLAGS@ LIBGNOMEUI_LIBS = @LIBGNOMEUI_LIBS@ LIBGNOME_CFLAGS = @LIBGNOME_CFLAGS@ LIBGNOME_LIBS = @LIBGNOME_LIBS@ LIBOBJS = @LIBOBJS@ LIBS = @LIBS@ LIBTOOL = @LIBTOOL@ LIPO = @LIPO@ LN_S = @LN_S@ LTLIBOBJS = @LTLIBOBJS@ MAKEINFO = @MAKEINFO@ MANIFEST_TOOL = @MANIFEST_TOOL@ MKDIR_P = @MKDIR_P@ NM = @NM@ NMEDIT = @NMEDIT@ OBJDUMP = @OBJDUMP@ OBJEXT = @OBJEXT@ ORBIT_IDL = @ORBIT_IDL@ OTOOL = @OTOOL@ OTOOL64 = @OTOOL64@ PACKAGE = @PACKAGE@ PACKAGE_BUGREPORT = @PACKAGE_BUGREPORT@ PACKAGE_NAME = @PACKAGE_NAME@ PACKAGE_STRING = @PACKAGE_STRING@ PACKAGE_TARNAME = @PACKAGE_TARNAME@ PACKAGE_URL = @PACKAGE_URL@ PACKAGE_VERSION = @PACKAGE_VERSION@ PANGOCAIRO_CFLAGS = @PANGOCAIRO_CFLAGS@ PANGOCAIRO_LIBS = @PANGOCAIRO_LIBS@ PANGO_CFLAGS = @PANGO_CFLAGS@ PANGO_LIBS = @PANGO_LIBS@ PATH_SEPARATOR = @PATH_SEPARATOR@ PKG_CONFIG = @PKG_CONFIG@ PKG_CONFIG_LIBDIR = @PKG_CONFIG_LIBDIR@ PKG_CONFIG_PATH = @PKG_CONFIG_PATH@ RANLIB = @RANLIB@ SED = @SED@ SET_MAKE = @SET_MAKE@ SHELL = @SHELL@ STRIP = @STRIP@ VERSION = @VERSION@ WARN_CFLAGS = @WARN_CFLAGS@ abs_builddir = @abs_builddir@ abs_srcdir = @abs_srcdir@ abs_top_builddir = @abs_top_builddir@ abs_top_srcdir = @abs_top_srcdir@ ac_ct_AR = @ac_ct_AR@ ac_ct_CC = @ac_ct_CC@ ac_ct_DUMPBIN = @ac_ct_DUMPBIN@ am__include = @am__include@ am__leading_dot = @am__leading_dot@ am__quote = @am__quote@ am__tar = @am__tar@ am__untar = @am__untar@ bindir = @bindir@ build = @build@ build_alias = @build_alias@ build_cpu = @build_cpu@ build_os = @build_os@ build_vendor = @build_vendor@ builddir = @builddir@ datadir = @datadir@ datarootdir = @datarootdir@ docdir = @docdir@ dvidir = @dvidir@ exec_prefix = @exec_prefix@ host = @host@ host_alias = @host_alias@ host_cpu = @host_cpu@ host_os = @host_os@ host_vendor = @host_vendor@ htmldir = @htmldir@ includedir = @includedir@ infodir = @infodir@ install_sh = @install_sh@ libdir = @libdir@ libexecdir = @libexecdir@ localedir = @localedir@ localstatedir = @localstatedir@ mandir = @mandir@ mkdir_p = @mkdir_p@ oldincludedir = @oldincludedir@ pdfdir = @pdfdir@ prefix = @prefix@ program_transform_name = @program_transform_name@ psdir = @psdir@ sbindir = @sbindir@ sharedstatedir = @sharedstatedir@ srcdir = @srcdir@ sysconfdir = @sysconfdir@ target_alias = @target_alias@ top_build_prefix = @top_build_prefix@ top_builddir = @top_builddir@ top_srcdir = @top_srcdir@ guilegnomedir = $(datadir)/guile-gnome-@API_VERSION@ guilemoduledir = $(guilegnomedir)/gnome guilegwmoduledir = $(guilegnomedir)/gnome/gw guilegnomelibdir = $(libdir)/guile-gnome-@API_VERSION@ AM_CFLAGS = -I. -I$(srcdir) $(WARN_CFLAGS) $(DEBUG_CFLAGS) # For overriding from the command line (e.g. --debug) GUILE_FLAGS = SUFFIXES = .x .doc GUILE_SNARF_CFLAGS = $(DEFS) $(AM_CFLAGS) $(GUILE_CFLAGS) $(G_WRAP_CFLAGS) PACKAGES = atk cairo corba defs gconf glib gnome-vfs gtk libglade libgnome libgnomecanvas libgnomeui pango SOURCE_GUILE_PATH = $(shell echo $(addprefix $(top_srcdir)/,$(PACKAGES)) | sed -e 's/ /:/g'):$(srcdir) BUILD_GUILE_PATH = $(if $(filter-out $(top_srcdir),$(top_builddir)),$(shell echo -n $(addprefix $(top_builddir)/,$(PACKAGES)): | sed -e 's/ /:/g'),) GUILE_LOAD_PATH := $(BUILD_GUILE_PATH)$(SOURCE_GUILE_PATH):${G_WRAP_MODULE_DIR}:${GUILE_LOAD_PATH} # Real gnu make foo packages = $(filter-out %-uninstalled,$(patsubst %.pc.in,%,$(notdir $(wildcard $(srcdir)/*.pc.in)))) pcifiles = $(patsubst %,%-@API_VERSION@.pc,$(packages)) pcufiles = $(patsubst %,%-@API_VERSION@-uninstalled.pc,$(packages)) SUBDIRS = overrides $(am__append_2) guilemodule_DATA = $(am__append_1) EXTRA_DIST = gnome-ui.scm DIST_SUBDIRS = gw overrides all: all-recursive .SUFFIXES: .SUFFIXES: .x .doc .c $(srcdir)/Makefile.in: $(srcdir)/Makefile.am $(top_srcdir)/common.mk $(am__configure_deps) @for dep in $?; do \ case '$(am__configure_deps)' in \ *$$dep*) \ ( cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh ) \ && { if test -f $@; then exit 0; else break; fi; }; \ exit 1;; \ esac; \ done; \ echo ' cd $(top_srcdir) && $(AUTOMAKE) --gnu libgnomeui/gnome/Makefile'; \ $(am__cd) $(top_srcdir) && \ $(AUTOMAKE) --gnu libgnomeui/gnome/Makefile .PRECIOUS: Makefile Makefile: $(srcdir)/Makefile.in $(top_builddir)/config.status @case '$?' in \ *config.status*) \ cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh;; \ *) \ echo ' cd $(top_builddir) && $(SHELL) ./config.status $(subdir)/$@ $(am__depfiles_maybe)'; \ cd $(top_builddir) && $(SHELL) ./config.status $(subdir)/$@ $(am__depfiles_maybe);; \ esac; $(top_srcdir)/common.mk: $(top_builddir)/config.status: $(top_srcdir)/configure $(CONFIG_STATUS_DEPENDENCIES) cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh $(top_srcdir)/configure: $(am__configure_deps) cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh $(ACLOCAL_M4): $(am__aclocal_m4_deps) cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh $(am__aclocal_m4_deps): mostlyclean-libtool: -rm -f *.lo clean-libtool: -rm -rf .libs _libs install-guilemoduleDATA: $(guilemodule_DATA) @$(NORMAL_INSTALL) @list='$(guilemodule_DATA)'; test -n "$(guilemoduledir)" || list=; \ if test -n "$$list"; then \ echo " $(MKDIR_P) '$(DESTDIR)$(guilemoduledir)'"; \ $(MKDIR_P) "$(DESTDIR)$(guilemoduledir)" || exit 1; \ fi; \ for p in $$list; do \ if test -f "$$p"; then d=; else d="$(srcdir)/"; fi; \ echo "$$d$$p"; \ done | $(am__base_list) | \ while read files; do \ echo " $(INSTALL_DATA) $$files '$(DESTDIR)$(guilemoduledir)'"; \ $(INSTALL_DATA) $$files "$(DESTDIR)$(guilemoduledir)" || exit $$?; \ done uninstall-guilemoduleDATA: @$(NORMAL_UNINSTALL) @list='$(guilemodule_DATA)'; test -n "$(guilemoduledir)" || list=; \ files=`for p in $$list; do echo $$p; done | sed -e 's|^.*/||'`; \ dir='$(DESTDIR)$(guilemoduledir)'; $(am__uninstall_files_from_dir) # This directory's subdirectories are mostly independent; you can cd # into them and run `make' without going through this Makefile. # To change the values of `make' variables: instead of editing Makefiles, # (1) if the variable is set in `config.status', edit `config.status' # (which will cause the Makefiles to be regenerated when you run `make'); # (2) otherwise, pass the desired values on the `make' command line. $(RECURSIVE_TARGETS): @fail= failcom='exit 1'; \ for f in x $$MAKEFLAGS; do \ case $$f in \ *=* | --[!k]*);; \ *k*) failcom='fail=yes';; \ esac; \ done; \ dot_seen=no; \ target=`echo $@ | sed s/-recursive//`; \ list='$(SUBDIRS)'; for subdir in $$list; do \ echo "Making $$target in $$subdir"; \ if test "$$subdir" = "."; then \ dot_seen=yes; \ local_target="$$target-am"; \ else \ local_target="$$target"; \ fi; \ ($(am__cd) $$subdir && $(MAKE) $(AM_MAKEFLAGS) $$local_target) \ || eval $$failcom; \ done; \ if test "$$dot_seen" = "no"; then \ $(MAKE) $(AM_MAKEFLAGS) "$$target-am" || exit 1; \ fi; test -z "$$fail" $(RECURSIVE_CLEAN_TARGETS): @fail= failcom='exit 1'; \ for f in x $$MAKEFLAGS; do \ case $$f in \ *=* | --[!k]*);; \ *k*) failcom='fail=yes';; \ esac; \ done; \ dot_seen=no; \ case "$@" in \ distclean-* | maintainer-clean-*) list='$(DIST_SUBDIRS)' ;; \ *) list='$(SUBDIRS)' ;; \ esac; \ rev=''; for subdir in $$list; do \ if test "$$subdir" = "."; then :; else \ rev="$$subdir $$rev"; \ fi; \ done; \ rev="$$rev ."; \ target=`echo $@ | sed s/-recursive//`; \ for subdir in $$rev; do \ echo "Making $$target in $$subdir"; \ if test "$$subdir" = "."; then \ local_target="$$target-am"; \ else \ local_target="$$target"; \ fi; \ ($(am__cd) $$subdir && $(MAKE) $(AM_MAKEFLAGS) $$local_target) \ || eval $$failcom; \ done && test -z "$$fail" tags-recursive: list='$(SUBDIRS)'; for subdir in $$list; do \ test "$$subdir" = . || ($(am__cd) $$subdir && $(MAKE) $(AM_MAKEFLAGS) tags); \ done ctags-recursive: list='$(SUBDIRS)'; for subdir in $$list; do \ test "$$subdir" = . || ($(am__cd) $$subdir && $(MAKE) $(AM_MAKEFLAGS) ctags); \ done ID: $(HEADERS) $(SOURCES) $(LISP) $(TAGS_FILES) list='$(SOURCES) $(HEADERS) $(LISP) $(TAGS_FILES)'; \ unique=`for i in $$list; do \ if test -f "$$i"; then echo $$i; else echo $(srcdir)/$$i; fi; \ done | \ $(AWK) '{ files[$$0] = 1; nonempty = 1; } \ END { if (nonempty) { for (i in files) print i; }; }'`; \ mkid -fID $$unique tags: TAGS TAGS: tags-recursive $(HEADERS) $(SOURCES) $(TAGS_DEPENDENCIES) \ $(TAGS_FILES) $(LISP) set x; \ here=`pwd`; \ if ($(ETAGS) --etags-include --version) >/dev/null 2>&1; then \ include_option=--etags-include; \ empty_fix=.; \ else \ include_option=--include; \ empty_fix=; \ fi; \ list='$(SUBDIRS)'; for subdir in $$list; do \ if test "$$subdir" = .; then :; else \ test ! -f $$subdir/TAGS || \ set "$$@" "$$include_option=$$here/$$subdir/TAGS"; \ fi; \ done; \ list='$(SOURCES) $(HEADERS) $(LISP) $(TAGS_FILES)'; \ unique=`for i in $$list; do \ if test -f "$$i"; then echo $$i; else echo $(srcdir)/$$i; fi; \ done | \ $(AWK) '{ files[$$0] = 1; nonempty = 1; } \ END { if (nonempty) { for (i in files) print i; }; }'`; \ shift; \ if test -z "$(ETAGS_ARGS)$$*$$unique"; then :; else \ test -n "$$unique" || unique=$$empty_fix; \ if test $$# -gt 0; then \ $(ETAGS) $(ETAGSFLAGS) $(AM_ETAGSFLAGS) $(ETAGS_ARGS) \ "$$@" $$unique; \ else \ $(ETAGS) $(ETAGSFLAGS) $(AM_ETAGSFLAGS) $(ETAGS_ARGS) \ $$unique; \ fi; \ fi ctags: CTAGS CTAGS: ctags-recursive $(HEADERS) $(SOURCES) $(TAGS_DEPENDENCIES) \ $(TAGS_FILES) $(LISP) list='$(SOURCES) $(HEADERS) $(LISP) $(TAGS_FILES)'; \ unique=`for i in $$list; do \ if test -f "$$i"; then echo $$i; else echo $(srcdir)/$$i; fi; \ done | \ $(AWK) '{ files[$$0] = 1; nonempty = 1; } \ END { if (nonempty) { for (i in files) print i; }; }'`; \ test -z "$(CTAGS_ARGS)$$unique" \ || $(CTAGS) $(CTAGSFLAGS) $(AM_CTAGSFLAGS) $(CTAGS_ARGS) \ $$unique GTAGS: here=`$(am__cd) $(top_builddir) && pwd` \ && $(am__cd) $(top_srcdir) \ && gtags -i $(GTAGS_ARGS) "$$here" distclean-tags: -rm -f TAGS ID GTAGS GRTAGS GSYMS GPATH tags distdir: $(DISTFILES) @srcdirstrip=`echo "$(srcdir)" | sed 's/[].[^$$\\*]/\\\\&/g'`; \ topsrcdirstrip=`echo "$(top_srcdir)" | sed 's/[].[^$$\\*]/\\\\&/g'`; \ list='$(DISTFILES)'; \ dist_files=`for file in $$list; do echo $$file; done | \ sed -e "s|^$$srcdirstrip/||;t" \ -e "s|^$$topsrcdirstrip/|$(top_builddir)/|;t"`; \ case $$dist_files in \ */*) $(MKDIR_P) `echo "$$dist_files" | \ sed '/\//!d;s|^|$(distdir)/|;s,/[^/]*$$,,' | \ sort -u` ;; \ esac; \ for file in $$dist_files; do \ if test -f $$file || test -d $$file; then d=.; else d=$(srcdir); fi; \ if test -d $$d/$$file; then \ dir=`echo "/$$file" | sed -e 's,/[^/]*$$,,'`; \ if test -d "$(distdir)/$$file"; then \ find "$(distdir)/$$file" -type d ! -perm -700 -exec chmod u+rwx {} \;; \ fi; \ if test -d $(srcdir)/$$file && test $$d != $(srcdir); then \ cp -fpR $(srcdir)/$$file "$(distdir)$$dir" || exit 1; \ find "$(distdir)/$$file" -type d ! -perm -700 -exec chmod u+rwx {} \;; \ fi; \ cp -fpR $$d/$$file "$(distdir)$$dir" || exit 1; \ else \ test -f "$(distdir)/$$file" \ || cp -p $$d/$$file "$(distdir)/$$file" \ || exit 1; \ fi; \ done @list='$(DIST_SUBDIRS)'; for subdir in $$list; do \ if test "$$subdir" = .; then :; else \ $(am__make_dryrun) \ || test -d "$(distdir)/$$subdir" \ || $(MKDIR_P) "$(distdir)/$$subdir" \ || exit 1; \ dir1=$$subdir; dir2="$(distdir)/$$subdir"; \ $(am__relativize); \ new_distdir=$$reldir; \ dir1=$$subdir; dir2="$(top_distdir)"; \ $(am__relativize); \ new_top_distdir=$$reldir; \ echo " (cd $$subdir && $(MAKE) $(AM_MAKEFLAGS) top_distdir="$$new_top_distdir" distdir="$$new_distdir" \\"; \ echo " am__remove_distdir=: am__skip_length_check=: am__skip_mode_fix=: distdir)"; \ ($(am__cd) $$subdir && \ $(MAKE) $(AM_MAKEFLAGS) \ top_distdir="$$new_top_distdir" \ distdir="$$new_distdir" \ am__remove_distdir=: \ am__skip_length_check=: \ am__skip_mode_fix=: \ distdir) \ || exit 1; \ fi; \ done check-am: all-am check: check-recursive all-am: Makefile $(DATA) installdirs: installdirs-recursive installdirs-am: for dir in "$(DESTDIR)$(guilemoduledir)"; do \ test -z "$$dir" || $(MKDIR_P) "$$dir"; \ done install: install-recursive install-exec: install-exec-recursive install-data: install-data-recursive uninstall: uninstall-recursive install-am: all-am @$(MAKE) $(AM_MAKEFLAGS) install-exec-am install-data-am installcheck: installcheck-recursive install-strip: if test -z '$(STRIP)'; then \ $(MAKE) $(AM_MAKEFLAGS) INSTALL_PROGRAM="$(INSTALL_STRIP_PROGRAM)" \ install_sh_PROGRAM="$(INSTALL_STRIP_PROGRAM)" INSTALL_STRIP_FLAG=-s \ install; \ else \ $(MAKE) $(AM_MAKEFLAGS) INSTALL_PROGRAM="$(INSTALL_STRIP_PROGRAM)" \ install_sh_PROGRAM="$(INSTALL_STRIP_PROGRAM)" INSTALL_STRIP_FLAG=-s \ "INSTALL_PROGRAM_ENV=STRIPPROG='$(STRIP)'" install; \ fi mostlyclean-generic: clean-generic: distclean-generic: -test -z "$(CONFIG_CLEAN_FILES)" || rm -f $(CONFIG_CLEAN_FILES) -test . = "$(srcdir)" || test -z "$(CONFIG_CLEAN_VPATH_FILES)" || rm -f $(CONFIG_CLEAN_VPATH_FILES) maintainer-clean-generic: @echo "This command is intended for maintainers to use" @echo "it deletes files that may require special tools to rebuild." clean: clean-recursive clean-am: clean-generic clean-libtool mostlyclean-am distclean: distclean-recursive -rm -f Makefile distclean-am: clean-am distclean-generic distclean-tags dvi: dvi-recursive dvi-am: html: html-recursive html-am: info: info-recursive info-am: install-data-am: install-guilemoduleDATA install-dvi: install-dvi-recursive install-dvi-am: install-exec-am: install-html: install-html-recursive install-html-am: install-info: install-info-recursive install-info-am: install-man: install-pdf: install-pdf-recursive install-pdf-am: install-ps: install-ps-recursive install-ps-am: installcheck-am: maintainer-clean: maintainer-clean-recursive -rm -f Makefile maintainer-clean-am: distclean-am maintainer-clean-generic mostlyclean: mostlyclean-recursive mostlyclean-am: mostlyclean-generic mostlyclean-libtool pdf: pdf-recursive pdf-am: ps: ps-recursive ps-am: uninstall-am: uninstall-guilemoduleDATA .MAKE: $(RECURSIVE_CLEAN_TARGETS) $(RECURSIVE_TARGETS) ctags-recursive \ install-am install-strip tags-recursive .PHONY: $(RECURSIVE_CLEAN_TARGETS) $(RECURSIVE_TARGETS) CTAGS GTAGS \ all all-am check check-am clean clean-generic clean-libtool \ ctags ctags-recursive distclean distclean-generic \ distclean-libtool distclean-tags distdir dvi dvi-am html \ html-am info info-am install install-am install-data \ install-data-am install-dvi install-dvi-am install-exec \ install-exec-am install-guilemoduleDATA install-html \ install-html-am install-info install-info-am install-man \ install-pdf install-pdf-am install-ps install-ps-am \ install-strip installcheck installcheck-am installdirs \ installdirs-am maintainer-clean maintainer-clean-generic \ mostlyclean mostlyclean-generic mostlyclean-libtool pdf pdf-am \ ps ps-am tags tags-recursive uninstall uninstall-am \ uninstall-guilemoduleDATA export GUILE_LOAD_PATH .c.x: guile-snarf $(GUILE_SNARF_CFLAGS) $< > $@ \ || { rm $@; false; } .c.doc: $(CPP) -DSCM_MAGIC_SNARF_DOCS $(GUILE_SNARF_CFLAGS) $< \ | grep -E '(\^\^ {|\^\^ })' > $@ || { rm $@; false; } %.scm guile-gnome-gw-%.c: %-spec.scm guile $(GUILE_FLAGS) -c \ "(debug-set! stack 400000) \ (use-modules (gnome-@API_VERSION@)) \ (use-modules (g-wrap)) \ (use-modules (gnome gw $*-spec)) \ (generate-wrapset 'guile 'gnome-$* \"guile-gnome-gw-$*\")" mv guile-gnome-gw-$*.scm $*.scm %-@API_VERSION@.pc: %.pc cp $< $@ %-@API_VERSION@-uninstalled.pc: %-uninstalled.pc cp $< $@ # Tell versions [3.59,3.63) of GNU make to not export all variables. # Otherwise a system limit (for SysV at least) may be exceeded. .NOEXPORT: guile-gnome-platform-2.16.2/libgnomeui/gnome/overrides/0000755000175000017500000000000011752546504023436 5ustar00wingowingo00000000000000guile-gnome-platform-2.16.2/libgnomeui/gnome/overrides/Makefile.am0000644000175000017500000000024311670374303025464 0ustar00wingowingo00000000000000include $(top_srcdir)/common.mk moduledir = $(guilemoduledir)/overrides module_DATA = libgnomeui.defs libgnomeui.defs-type-ignores EXTRA_DIST = $(module_DATA) guile-gnome-platform-2.16.2/libgnomeui/gnome/overrides/Makefile.in0000644000175000017500000004127711752520703025507 0ustar00wingowingo00000000000000# Makefile.in generated by automake 1.11.5 from Makefile.am. # @configure_input@ # Copyright (C) 1994, 1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, # 2003, 2004, 2005, 2006, 2007, 2008, 2009, 2010, 2011 Free Software # Foundation, Inc. # This Makefile.in is free software; the Free Software Foundation # gives unlimited permission to copy and/or distribute it, # with or without modifications, as long as this notice is preserved. # This program is distributed in the hope that it will be useful, # but WITHOUT ANY WARRANTY, to the extent permitted by law; without # even the implied warranty of MERCHANTABILITY or FITNESS FOR A # PARTICULAR PURPOSE. @SET_MAKE@ # guile-gnome # Copyright (C) 2003,2004,2009,2012 Free Software Foundation, Inc. # This program is free software; you can redistribute it and/or # modify it under the terms of the GNU General Public License as # published by the Free Software Foundation; either version 2 of # the License, or (at your option) any later version. # This program is distributed in the hope that it will be useful, # but WITHOUT ANY WARRANTY; without even the implied warranty of # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the # GNU General Public License for more details. # You should have received a copy of the GNU General Public License # along with this program; if not, contact: # Free Software Foundation Voice: +1-617-542-5942 # 59 Temple Place - Suite 330 Fax: +1-617-542-2652 # Boston, MA 02111-1307, USA gnu@gnu.org # # Makefile snippet # VPATH = @srcdir@ am__make_dryrun = \ { \ am__dry=no; \ case $$MAKEFLAGS in \ *\\[\ \ ]*) \ echo 'am--echo: ; @echo "AM" OK' | $(MAKE) -f - 2>/dev/null \ | grep '^AM OK$$' >/dev/null || am__dry=yes;; \ *) \ for am__flg in $$MAKEFLAGS; do \ case $$am__flg in \ *=*|--*) ;; \ *n*) am__dry=yes; break;; \ esac; \ done;; \ esac; \ test $$am__dry = yes; \ } pkgdatadir = $(datadir)/@PACKAGE@ pkgincludedir = $(includedir)/@PACKAGE@ pkglibdir = $(libdir)/@PACKAGE@ pkglibexecdir = $(libexecdir)/@PACKAGE@ am__cd = CDPATH="$${ZSH_VERSION+.}$(PATH_SEPARATOR)" && cd install_sh_DATA = $(install_sh) -c -m 644 install_sh_PROGRAM = $(install_sh) -c install_sh_SCRIPT = $(install_sh) -c INSTALL_HEADER = $(INSTALL_DATA) transform = $(program_transform_name) NORMAL_INSTALL = : PRE_INSTALL = : POST_INSTALL = : NORMAL_UNINSTALL = : PRE_UNINSTALL = : POST_UNINSTALL = : build_triplet = @build@ host_triplet = @host@ DIST_COMMON = $(srcdir)/Makefile.am $(srcdir)/Makefile.in \ $(top_srcdir)/common.mk subdir = libgnomeui/gnome/overrides ACLOCAL_M4 = $(top_srcdir)/aclocal.m4 am__aclocal_m4_deps = $(top_srcdir)/configure.ac am__configure_deps = $(am__aclocal_m4_deps) $(CONFIGURE_DEPENDENCIES) \ $(ACLOCAL_M4) mkinstalldirs = $(install_sh) -d CONFIG_HEADER = $(top_builddir)/config.h CONFIG_CLEAN_FILES = CONFIG_CLEAN_VPATH_FILES = SOURCES = DIST_SOURCES = am__can_run_installinfo = \ case $$AM_UPDATE_INFO_DIR in \ n|no|NO) false;; \ *) (install-info --version) >/dev/null 2>&1;; \ esac am__vpath_adj_setup = srcdirstrip=`echo "$(srcdir)" | sed 's|.|.|g'`; am__vpath_adj = case $$p in \ $(srcdir)/*) f=`echo "$$p" | sed "s|^$$srcdirstrip/||"`;; \ *) f=$$p;; \ esac; am__strip_dir = f=`echo $$p | sed -e 's|^.*/||'`; am__install_max = 40 am__nobase_strip_setup = \ srcdirstrip=`echo "$(srcdir)" | sed 's/[].[^$$\\*|]/\\\\&/g'` am__nobase_strip = \ for p in $$list; do echo "$$p"; done | sed -e "s|$$srcdirstrip/||" am__nobase_list = $(am__nobase_strip_setup); \ for p in $$list; do echo "$$p $$p"; done | \ sed "s| $$srcdirstrip/| |;"' / .*\//!s/ .*/ ./; s,\( .*\)/[^/]*$$,\1,' | \ $(AWK) 'BEGIN { files["."] = "" } { files[$$2] = files[$$2] " " $$1; \ if (++n[$$2] == $(am__install_max)) \ { print $$2, files[$$2]; n[$$2] = 0; files[$$2] = "" } } \ END { for (dir in files) print dir, files[dir] }' am__base_list = \ sed '$$!N;$$!N;$$!N;$$!N;$$!N;$$!N;$$!N;s/\n/ /g' | \ sed '$$!N;$$!N;$$!N;$$!N;s/\n/ /g' am__uninstall_files_from_dir = { \ test -z "$$files" \ || { test ! -d "$$dir" && test ! -f "$$dir" && test ! -r "$$dir"; } \ || { echo " ( cd '$$dir' && rm -f" $$files ")"; \ $(am__cd) "$$dir" && rm -f $$files; }; \ } am__installdirs = "$(DESTDIR)$(moduledir)" DATA = $(module_DATA) DISTFILES = $(DIST_COMMON) $(DIST_SOURCES) $(TEXINFOS) $(EXTRA_DIST) ACLOCAL = @ACLOCAL@ AG_PKG_CONFIG_PATH = @AG_PKG_CONFIG_PATH@ AMTAR = @AMTAR@ API_VERSION = @API_VERSION@ AR = @AR@ ATK_CFLAGS = @ATK_CFLAGS@ ATK_LIBS = @ATK_LIBS@ AUTOCONF = @AUTOCONF@ AUTOHEADER = @AUTOHEADER@ AUTOMAKE = @AUTOMAKE@ AWK = @AWK@ BONOBO_IDL_DIR = @BONOBO_IDL_DIR@ CANVAS_CFLAGS = @CANVAS_CFLAGS@ CANVAS_LIBS = @CANVAS_LIBS@ CC = @CC@ CCDEPMODE = @CCDEPMODE@ CFLAGS = @CFLAGS@ CORBA_CFLAGS = @CORBA_CFLAGS@ CORBA_LIBS = @CORBA_LIBS@ CPP = @CPP@ CPPFLAGS = @CPPFLAGS@ CYGPATH_W = @CYGPATH_W@ DEFS = @DEFS@ DEPDIR = @DEPDIR@ DLLTOOL = @DLLTOOL@ DSYMUTIL = @DSYMUTIL@ DUMPBIN = @DUMPBIN@ ECHO_C = @ECHO_C@ ECHO_N = @ECHO_N@ ECHO_T = @ECHO_T@ EGREP = @EGREP@ EXEEXT = @EXEEXT@ FGREP = @FGREP@ GCONF_CFLAGS = @GCONF_CFLAGS@ GCONF_LIBS = @GCONF_LIBS@ GDK_CFLAGS = @GDK_CFLAGS@ GDK_LIBS = @GDK_LIBS@ GDK_PIXBUF_CFLAGS = @GDK_PIXBUF_CFLAGS@ GDK_PIXBUF_LIBS = @GDK_PIXBUF_LIBS@ GLIB_CFLAGS = @GLIB_CFLAGS@ GLIB_LIBS = @GLIB_LIBS@ GNOMEUI_DEPRECATION_FLAGS = @GNOMEUI_DEPRECATION_FLAGS@ GNOME_VFS_CFLAGS = @GNOME_VFS_CFLAGS@ GNOME_VFS_DEPRECATED_CFLAGS = @GNOME_VFS_DEPRECATED_CFLAGS@ GNOME_VFS_LIBS = @GNOME_VFS_LIBS@ GOBJECT_CFLAGS = @GOBJECT_CFLAGS@ GOBJECT_LIBS = @GOBJECT_LIBS@ GREP = @GREP@ GTHREAD_CFLAGS = @GTHREAD_CFLAGS@ GTHREAD_LIBS = @GTHREAD_LIBS@ GTK_CFLAGS = @GTK_CFLAGS@ GTK_DEPRECATED_CFLAGS = @GTK_DEPRECATED_CFLAGS@ GTK_LIBS = @GTK_LIBS@ GUILE_CAIRO_CFLAGS = @GUILE_CAIRO_CFLAGS@ GUILE_CAIRO_LIBS = @GUILE_CAIRO_LIBS@ GUILE_CFLAGS = @GUILE_CFLAGS@ GUILE_EFFECTIVE_VERSION = @GUILE_EFFECTIVE_VERSION@ GUILE_GLIB_CFLAGS = @GUILE_GLIB_CFLAGS@ GUILE_GLIB_LIBS = @GUILE_GLIB_LIBS@ GUILE_LIBS = @GUILE_LIBS@ G_WRAP_CFLAGS = @G_WRAP_CFLAGS@ G_WRAP_LIBS = @G_WRAP_LIBS@ G_WRAP_LIB_DIR = @G_WRAP_LIB_DIR@ G_WRAP_MODULE_DIR = @G_WRAP_MODULE_DIR@ INSTALL = @INSTALL@ INSTALL_DATA = @INSTALL_DATA@ INSTALL_PROGRAM = @INSTALL_PROGRAM@ INSTALL_SCRIPT = @INSTALL_SCRIPT@ INSTALL_STRIP_PROGRAM = @INSTALL_STRIP_PROGRAM@ LD = @LD@ LDFLAGS = @LDFLAGS@ LIBGLADE_CFLAGS = @LIBGLADE_CFLAGS@ LIBGLADE_LIBS = @LIBGLADE_LIBS@ LIBGNOMEUI_CFLAGS = @LIBGNOMEUI_CFLAGS@ LIBGNOMEUI_LIBS = @LIBGNOMEUI_LIBS@ LIBGNOME_CFLAGS = @LIBGNOME_CFLAGS@ LIBGNOME_LIBS = @LIBGNOME_LIBS@ LIBOBJS = @LIBOBJS@ LIBS = @LIBS@ LIBTOOL = @LIBTOOL@ LIPO = @LIPO@ LN_S = @LN_S@ LTLIBOBJS = @LTLIBOBJS@ MAKEINFO = @MAKEINFO@ MANIFEST_TOOL = @MANIFEST_TOOL@ MKDIR_P = @MKDIR_P@ NM = @NM@ NMEDIT = @NMEDIT@ OBJDUMP = @OBJDUMP@ OBJEXT = @OBJEXT@ ORBIT_IDL = @ORBIT_IDL@ OTOOL = @OTOOL@ OTOOL64 = @OTOOL64@ PACKAGE = @PACKAGE@ PACKAGE_BUGREPORT = @PACKAGE_BUGREPORT@ PACKAGE_NAME = @PACKAGE_NAME@ PACKAGE_STRING = @PACKAGE_STRING@ PACKAGE_TARNAME = @PACKAGE_TARNAME@ PACKAGE_URL = @PACKAGE_URL@ PACKAGE_VERSION = @PACKAGE_VERSION@ PANGOCAIRO_CFLAGS = @PANGOCAIRO_CFLAGS@ PANGOCAIRO_LIBS = @PANGOCAIRO_LIBS@ PANGO_CFLAGS = @PANGO_CFLAGS@ PANGO_LIBS = @PANGO_LIBS@ PATH_SEPARATOR = @PATH_SEPARATOR@ PKG_CONFIG = @PKG_CONFIG@ PKG_CONFIG_LIBDIR = @PKG_CONFIG_LIBDIR@ PKG_CONFIG_PATH = @PKG_CONFIG_PATH@ RANLIB = @RANLIB@ SED = @SED@ SET_MAKE = @SET_MAKE@ SHELL = @SHELL@ STRIP = @STRIP@ VERSION = @VERSION@ WARN_CFLAGS = @WARN_CFLAGS@ abs_builddir = @abs_builddir@ abs_srcdir = @abs_srcdir@ abs_top_builddir = @abs_top_builddir@ abs_top_srcdir = @abs_top_srcdir@ ac_ct_AR = @ac_ct_AR@ ac_ct_CC = @ac_ct_CC@ ac_ct_DUMPBIN = @ac_ct_DUMPBIN@ am__include = @am__include@ am__leading_dot = @am__leading_dot@ am__quote = @am__quote@ am__tar = @am__tar@ am__untar = @am__untar@ bindir = @bindir@ build = @build@ build_alias = @build_alias@ build_cpu = @build_cpu@ build_os = @build_os@ build_vendor = @build_vendor@ builddir = @builddir@ datadir = @datadir@ datarootdir = @datarootdir@ docdir = @docdir@ dvidir = @dvidir@ exec_prefix = @exec_prefix@ host = @host@ host_alias = @host_alias@ host_cpu = @host_cpu@ host_os = @host_os@ host_vendor = @host_vendor@ htmldir = @htmldir@ includedir = @includedir@ infodir = @infodir@ install_sh = @install_sh@ libdir = @libdir@ libexecdir = @libexecdir@ localedir = @localedir@ localstatedir = @localstatedir@ mandir = @mandir@ mkdir_p = @mkdir_p@ oldincludedir = @oldincludedir@ pdfdir = @pdfdir@ prefix = @prefix@ program_transform_name = @program_transform_name@ psdir = @psdir@ sbindir = @sbindir@ sharedstatedir = @sharedstatedir@ srcdir = @srcdir@ sysconfdir = @sysconfdir@ target_alias = @target_alias@ top_build_prefix = @top_build_prefix@ top_builddir = @top_builddir@ top_srcdir = @top_srcdir@ guilegnomedir = $(datadir)/guile-gnome-@API_VERSION@ guilemoduledir = $(guilegnomedir)/gnome guilegwmoduledir = $(guilegnomedir)/gnome/gw guilegnomelibdir = $(libdir)/guile-gnome-@API_VERSION@ AM_CFLAGS = -I. -I$(srcdir) $(WARN_CFLAGS) $(DEBUG_CFLAGS) # For overriding from the command line (e.g. --debug) GUILE_FLAGS = SUFFIXES = .x .doc GUILE_SNARF_CFLAGS = $(DEFS) $(AM_CFLAGS) $(GUILE_CFLAGS) $(G_WRAP_CFLAGS) PACKAGES = atk cairo corba defs gconf glib gnome-vfs gtk libglade libgnome libgnomecanvas libgnomeui pango SOURCE_GUILE_PATH = $(shell echo $(addprefix $(top_srcdir)/,$(PACKAGES)) | sed -e 's/ /:/g'):$(srcdir) BUILD_GUILE_PATH = $(if $(filter-out $(top_srcdir),$(top_builddir)),$(shell echo -n $(addprefix $(top_builddir)/,$(PACKAGES)): | sed -e 's/ /:/g'),) GUILE_LOAD_PATH := $(BUILD_GUILE_PATH)$(SOURCE_GUILE_PATH):${G_WRAP_MODULE_DIR}:${GUILE_LOAD_PATH} # Real gnu make foo packages = $(filter-out %-uninstalled,$(patsubst %.pc.in,%,$(notdir $(wildcard $(srcdir)/*.pc.in)))) pcifiles = $(patsubst %,%-@API_VERSION@.pc,$(packages)) pcufiles = $(patsubst %,%-@API_VERSION@-uninstalled.pc,$(packages)) moduledir = $(guilemoduledir)/overrides module_DATA = libgnomeui.defs libgnomeui.defs-type-ignores EXTRA_DIST = $(module_DATA) all: all-am .SUFFIXES: .SUFFIXES: .x .doc .c $(srcdir)/Makefile.in: $(srcdir)/Makefile.am $(top_srcdir)/common.mk $(am__configure_deps) @for dep in $?; do \ case '$(am__configure_deps)' in \ *$$dep*) \ ( cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh ) \ && { if test -f $@; then exit 0; else break; fi; }; \ exit 1;; \ esac; \ done; \ echo ' cd $(top_srcdir) && $(AUTOMAKE) --gnu libgnomeui/gnome/overrides/Makefile'; \ $(am__cd) $(top_srcdir) && \ $(AUTOMAKE) --gnu libgnomeui/gnome/overrides/Makefile .PRECIOUS: Makefile Makefile: $(srcdir)/Makefile.in $(top_builddir)/config.status @case '$?' in \ *config.status*) \ cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh;; \ *) \ echo ' cd $(top_builddir) && $(SHELL) ./config.status $(subdir)/$@ $(am__depfiles_maybe)'; \ cd $(top_builddir) && $(SHELL) ./config.status $(subdir)/$@ $(am__depfiles_maybe);; \ esac; $(top_srcdir)/common.mk: $(top_builddir)/config.status: $(top_srcdir)/configure $(CONFIG_STATUS_DEPENDENCIES) cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh $(top_srcdir)/configure: $(am__configure_deps) cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh $(ACLOCAL_M4): $(am__aclocal_m4_deps) cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh $(am__aclocal_m4_deps): mostlyclean-libtool: -rm -f *.lo clean-libtool: -rm -rf .libs _libs install-moduleDATA: $(module_DATA) @$(NORMAL_INSTALL) @list='$(module_DATA)'; test -n "$(moduledir)" || list=; \ if test -n "$$list"; then \ echo " $(MKDIR_P) '$(DESTDIR)$(moduledir)'"; \ $(MKDIR_P) "$(DESTDIR)$(moduledir)" || exit 1; \ fi; \ for p in $$list; do \ if test -f "$$p"; then d=; else d="$(srcdir)/"; fi; \ echo "$$d$$p"; \ done | $(am__base_list) | \ while read files; do \ echo " $(INSTALL_DATA) $$files '$(DESTDIR)$(moduledir)'"; \ $(INSTALL_DATA) $$files "$(DESTDIR)$(moduledir)" || exit $$?; \ done uninstall-moduleDATA: @$(NORMAL_UNINSTALL) @list='$(module_DATA)'; test -n "$(moduledir)" || list=; \ files=`for p in $$list; do echo $$p; done | sed -e 's|^.*/||'`; \ dir='$(DESTDIR)$(moduledir)'; $(am__uninstall_files_from_dir) tags: TAGS TAGS: ctags: CTAGS CTAGS: distdir: $(DISTFILES) @srcdirstrip=`echo "$(srcdir)" | sed 's/[].[^$$\\*]/\\\\&/g'`; \ topsrcdirstrip=`echo "$(top_srcdir)" | sed 's/[].[^$$\\*]/\\\\&/g'`; \ list='$(DISTFILES)'; \ dist_files=`for file in $$list; do echo $$file; done | \ sed -e "s|^$$srcdirstrip/||;t" \ -e "s|^$$topsrcdirstrip/|$(top_builddir)/|;t"`; \ case $$dist_files in \ */*) $(MKDIR_P) `echo "$$dist_files" | \ sed '/\//!d;s|^|$(distdir)/|;s,/[^/]*$$,,' | \ sort -u` ;; \ esac; \ for file in $$dist_files; do \ if test -f $$file || test -d $$file; then d=.; else d=$(srcdir); fi; \ if test -d $$d/$$file; then \ dir=`echo "/$$file" | sed -e 's,/[^/]*$$,,'`; \ if test -d "$(distdir)/$$file"; then \ find "$(distdir)/$$file" -type d ! -perm -700 -exec chmod u+rwx {} \;; \ fi; \ if test -d $(srcdir)/$$file && test $$d != $(srcdir); then \ cp -fpR $(srcdir)/$$file "$(distdir)$$dir" || exit 1; \ find "$(distdir)/$$file" -type d ! -perm -700 -exec chmod u+rwx {} \;; \ fi; \ cp -fpR $$d/$$file "$(distdir)$$dir" || exit 1; \ else \ test -f "$(distdir)/$$file" \ || cp -p $$d/$$file "$(distdir)/$$file" \ || exit 1; \ fi; \ done check-am: all-am check: check-am all-am: Makefile $(DATA) installdirs: for dir in "$(DESTDIR)$(moduledir)"; do \ test -z "$$dir" || $(MKDIR_P) "$$dir"; \ done install: install-am install-exec: install-exec-am install-data: install-data-am uninstall: uninstall-am install-am: all-am @$(MAKE) $(AM_MAKEFLAGS) install-exec-am install-data-am installcheck: installcheck-am install-strip: if test -z '$(STRIP)'; then \ $(MAKE) $(AM_MAKEFLAGS) INSTALL_PROGRAM="$(INSTALL_STRIP_PROGRAM)" \ install_sh_PROGRAM="$(INSTALL_STRIP_PROGRAM)" INSTALL_STRIP_FLAG=-s \ install; \ else \ $(MAKE) $(AM_MAKEFLAGS) INSTALL_PROGRAM="$(INSTALL_STRIP_PROGRAM)" \ install_sh_PROGRAM="$(INSTALL_STRIP_PROGRAM)" INSTALL_STRIP_FLAG=-s \ "INSTALL_PROGRAM_ENV=STRIPPROG='$(STRIP)'" install; \ fi mostlyclean-generic: clean-generic: distclean-generic: -test -z "$(CONFIG_CLEAN_FILES)" || rm -f $(CONFIG_CLEAN_FILES) -test . = "$(srcdir)" || test -z "$(CONFIG_CLEAN_VPATH_FILES)" || rm -f $(CONFIG_CLEAN_VPATH_FILES) maintainer-clean-generic: @echo "This command is intended for maintainers to use" @echo "it deletes files that may require special tools to rebuild." clean: clean-am clean-am: clean-generic clean-libtool mostlyclean-am distclean: distclean-am -rm -f Makefile distclean-am: clean-am distclean-generic dvi: dvi-am dvi-am: html: html-am html-am: info: info-am info-am: install-data-am: install-moduleDATA install-dvi: install-dvi-am install-dvi-am: install-exec-am: install-html: install-html-am install-html-am: install-info: install-info-am install-info-am: install-man: install-pdf: install-pdf-am install-pdf-am: install-ps: install-ps-am install-ps-am: installcheck-am: maintainer-clean: maintainer-clean-am -rm -f Makefile maintainer-clean-am: distclean-am maintainer-clean-generic mostlyclean: mostlyclean-am mostlyclean-am: mostlyclean-generic mostlyclean-libtool pdf: pdf-am pdf-am: ps: ps-am ps-am: uninstall-am: uninstall-moduleDATA .MAKE: install-am install-strip .PHONY: all all-am check check-am clean clean-generic clean-libtool \ distclean distclean-generic distclean-libtool distdir dvi \ dvi-am html html-am info info-am install install-am \ install-data install-data-am install-dvi install-dvi-am \ install-exec install-exec-am install-html install-html-am \ install-info install-info-am install-man install-moduleDATA \ install-pdf install-pdf-am install-ps install-ps-am \ install-strip installcheck installcheck-am installdirs \ maintainer-clean maintainer-clean-generic mostlyclean \ mostlyclean-generic mostlyclean-libtool pdf pdf-am ps ps-am \ uninstall uninstall-am uninstall-moduleDATA export GUILE_LOAD_PATH .c.x: guile-snarf $(GUILE_SNARF_CFLAGS) $< > $@ \ || { rm $@; false; } .c.doc: $(CPP) -DSCM_MAGIC_SNARF_DOCS $(GUILE_SNARF_CFLAGS) $< \ | grep -E '(\^\^ {|\^\^ })' > $@ || { rm $@; false; } %.scm guile-gnome-gw-%.c: %-spec.scm guile $(GUILE_FLAGS) -c \ "(debug-set! stack 400000) \ (use-modules (gnome-@API_VERSION@)) \ (use-modules (g-wrap)) \ (use-modules (gnome gw $*-spec)) \ (generate-wrapset 'guile 'gnome-$* \"guile-gnome-gw-$*\")" mv guile-gnome-gw-$*.scm $*.scm %-@API_VERSION@.pc: %.pc cp $< $@ %-@API_VERSION@-uninstalled.pc: %-uninstalled.pc cp $< $@ # Tell versions [3.59,3.63) of GNU make to not export all variables. # Otherwise a system limit (for SysV at least) may be exceeded. .NOEXPORT: guile-gnome-platform-2.16.2/libgnomeui/gnome/overrides/libgnomeui.defs-type-ignores0000644000175000017500000000204211670374303031047 0ustar00wingowingo00000000000000;; -*- scheme -*- (ignore-types "GnomeAbout" "GnomeApp" "GnomeAppBar" "GnomeColorPicker" "GnomeDialog" "GnomeDruid" "GnomeDruidPage" "GnomeDruidPageEdge" "GnomeEdgePosition" "GnomeDruidPageStandard" "GnomeEntry" "GnomeIconData" "GnomeIconEntry" "GnomeIconTextItem" "GnomeIconList" "GnomeIconTheme" "GnomeIconSelection" "GnomeIconData" "GnomeHRef" "GnomeFileEntry" "GnomeFontPicker" "GnomeMDI" "GnomeMDIChild" "GnomeMDIGenericChild" "GnomeMessageBox" "GnomePixmap" "GnomePropertyBox" "GnomeFontPickerMode" "GnomeMDIMode" "GnomeScores" "GnomeThemeFileParseError" "GnomeThumbnailSize" "GnomeThumbnailFactory") guile-gnome-platform-2.16.2/libgnomeui/gnome/overrides/libgnomeui.defs0000644000175000017500000000672111670374303026434 0ustar00wingowingo00000000000000;; -*- scheme -*- ;; guile-gnome ;; Copyright (C) 2003,2004 Andy Wingo ;; This program is free software; you can redistribute it and/or ;; modify it under the terms of the GNU General Public License as ;; published by the Free Software Foundation; either version 2 of ;; the License, or (at your option) any later version. ;; ;; This program is distributed in the hope that it will be useful, ;; but WITHOUT ANY WARRANTY; without even the implied warranty of ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the ;; GNU General Public License for more details. ;; ;; You should have received a copy of the GNU General Public License ;; along with this program; if not, contact: ;; ;; Free Software Foundation Voice: +1-617-542-5942 ;; 59 Temple Place - Suite 330 Fax: +1-617-542-2652 ;; Boston, MA 02111-1307, USA gnu@gnu.org ;;; Commentary: ;; ;;Custom wrapper definitions. ;; ;;; Code: (ignore-glob "*_get_type" "_*" "*_ref" "*_unref" "*_copy" "*_free" "*_newv" "*_valist" "*_setv" "*_foreach" "*_valist") ;; Ignore deprecated API (ignore-glob "gnome_color_picker_*" "gnome_app_*" "gnome_appbar_*" "gnome_mdi*" "gnome_dialog*" "gnome_druid_*" "gnome_message_box*" "gnome_property_box*" "gnome_file_entry*" "gnome_ok*" "gnome_warning*" "gnome_error*" "gnome_icon_*" "gnome_question*" "gnome_href_*" "gnome_request*" "gnome_entry_*" "gnome_font_picker_*" "gnome_icon_theme_*" "gnome_pixmap_*" "gnome_scores_*" "*_command" ;; can't handle the argv "*_search_path" ;; can't deal with argv "gnome_theme_file*" "gnome_popup_menu_*" "gnome_window_icon_set_*from_file_list" ;; char** "gnome_window_icon_*" "gnome_thumbnail_*" ) (ignore "gnome_client_disable_master_connection" "gnome_accelerators_sync" "gnome_client_module_info_get" "gnome_client_request_interaction" "gnome_client_request_interaction_interp" "gnome_interaction_key_return" "gnome_date_edit_get_date" "gnome_entry_construct" ;; <- debian borked this symbol from 2.8.0 "gnome_href_construct" ;; <- debian borked this symbol from 2.8.0 "gnome_gtk_widget_add_popup_items" "gnome_window_toplevel_set_title" "gnome_file_entry_set_directory" "gnome_ice_init" "gnome_icon_data_dup" "gnome_init_with_popt_table" "libgnomeui_module_info_get" ; GnomeModuleInfo* "gnome_gtk_module_info_get" ; GnomeModuleInfo* "gnome_gdk_pixbuf_new_from_uri_async" ; GnomeGdkPixbufAsyncHandle* "gnome_gdk_pixbuf_new_from_uri_cancel" ; GnomeGdkPixbufAsyncHandle* "gnome_about_new" ;; can't handle char** "gnome_about_construct" ;; not needed "gnome_icon_theme_lookup_icon" ;; can't handle GnomeIconData** ) guile-gnome-platform-2.16.2/libgnomeui/Makefile.am0000644000175000017500000000041611752516601022357 0ustar00wingowingo00000000000000include $(top_srcdir)/common.mk SUBDIRS = gnome doc tests EXTRA_DIST = ChangeLog.pre-2.16 AUTHORS README if HAVE_LIBGNOMEUI all-local: $(pcifiles) $(pcufiles) pkgconfigdir = $(libdir)/pkgconfig pkgconfig_DATA = $(pcifiles) endif CLEANFILES = $(pcifiles) $(pcufiles) guile-gnome-platform-2.16.2/libgnomeui/Makefile.in0000644000175000017500000006072511752520700022374 0ustar00wingowingo00000000000000# Makefile.in generated by automake 1.11.5 from Makefile.am. # @configure_input@ # Copyright (C) 1994, 1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, # 2003, 2004, 2005, 2006, 2007, 2008, 2009, 2010, 2011 Free Software # Foundation, Inc. # This Makefile.in is free software; the Free Software Foundation # gives unlimited permission to copy and/or distribute it, # with or without modifications, as long as this notice is preserved. # This program is distributed in the hope that it will be useful, # but WITHOUT ANY WARRANTY, to the extent permitted by law; without # even the implied warranty of MERCHANTABILITY or FITNESS FOR A # PARTICULAR PURPOSE. @SET_MAKE@ # guile-gnome # Copyright (C) 2003,2004,2009,2012 Free Software Foundation, Inc. # This program is free software; you can redistribute it and/or # modify it under the terms of the GNU General Public License as # published by the Free Software Foundation; either version 2 of # the License, or (at your option) any later version. # This program is distributed in the hope that it will be useful, # but WITHOUT ANY WARRANTY; without even the implied warranty of # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the # GNU General Public License for more details. # You should have received a copy of the GNU General Public License # along with this program; if not, contact: # Free Software Foundation Voice: +1-617-542-5942 # 59 Temple Place - Suite 330 Fax: +1-617-542-2652 # Boston, MA 02111-1307, USA gnu@gnu.org # # Makefile snippet # VPATH = @srcdir@ am__make_dryrun = \ { \ am__dry=no; \ case $$MAKEFLAGS in \ *\\[\ \ ]*) \ echo 'am--echo: ; @echo "AM" OK' | $(MAKE) -f - 2>/dev/null \ | grep '^AM OK$$' >/dev/null || am__dry=yes;; \ *) \ for am__flg in $$MAKEFLAGS; do \ case $$am__flg in \ *=*|--*) ;; \ *n*) am__dry=yes; break;; \ esac; \ done;; \ esac; \ test $$am__dry = yes; \ } pkgdatadir = $(datadir)/@PACKAGE@ pkgincludedir = $(includedir)/@PACKAGE@ pkglibdir = $(libdir)/@PACKAGE@ pkglibexecdir = $(libexecdir)/@PACKAGE@ am__cd = CDPATH="$${ZSH_VERSION+.}$(PATH_SEPARATOR)" && cd install_sh_DATA = $(install_sh) -c -m 644 install_sh_PROGRAM = $(install_sh) -c install_sh_SCRIPT = $(install_sh) -c INSTALL_HEADER = $(INSTALL_DATA) transform = $(program_transform_name) NORMAL_INSTALL = : PRE_INSTALL = : POST_INSTALL = : NORMAL_UNINSTALL = : PRE_UNINSTALL = : POST_UNINSTALL = : build_triplet = @build@ host_triplet = @host@ DIST_COMMON = README $(srcdir)/Makefile.am $(srcdir)/Makefile.in \ $(srcdir)/guile-gnome-libgnomeui-uninstalled.pc.in \ $(srcdir)/guile-gnome-libgnomeui.pc.in $(top_srcdir)/common.mk \ AUTHORS ChangeLog subdir = libgnomeui ACLOCAL_M4 = $(top_srcdir)/aclocal.m4 am__aclocal_m4_deps = $(top_srcdir)/configure.ac am__configure_deps = $(am__aclocal_m4_deps) $(CONFIGURE_DEPENDENCIES) \ $(ACLOCAL_M4) mkinstalldirs = $(install_sh) -d CONFIG_HEADER = $(top_builddir)/config.h CONFIG_CLEAN_FILES = guile-gnome-libgnomeui.pc \ guile-gnome-libgnomeui-uninstalled.pc CONFIG_CLEAN_VPATH_FILES = SOURCES = DIST_SOURCES = RECURSIVE_TARGETS = all-recursive check-recursive dvi-recursive \ html-recursive info-recursive install-data-recursive \ install-dvi-recursive install-exec-recursive \ install-html-recursive install-info-recursive \ install-pdf-recursive install-ps-recursive install-recursive \ installcheck-recursive installdirs-recursive pdf-recursive \ ps-recursive uninstall-recursive am__can_run_installinfo = \ case $$AM_UPDATE_INFO_DIR in \ n|no|NO) false;; \ *) (install-info --version) >/dev/null 2>&1;; \ esac am__vpath_adj_setup = srcdirstrip=`echo "$(srcdir)" | sed 's|.|.|g'`; am__vpath_adj = case $$p in \ $(srcdir)/*) f=`echo "$$p" | sed "s|^$$srcdirstrip/||"`;; \ *) f=$$p;; \ esac; am__strip_dir = f=`echo $$p | sed -e 's|^.*/||'`; am__install_max = 40 am__nobase_strip_setup = \ srcdirstrip=`echo "$(srcdir)" | sed 's/[].[^$$\\*|]/\\\\&/g'` am__nobase_strip = \ for p in $$list; do echo "$$p"; done | sed -e "s|$$srcdirstrip/||" am__nobase_list = $(am__nobase_strip_setup); \ for p in $$list; do echo "$$p $$p"; done | \ sed "s| $$srcdirstrip/| |;"' / .*\//!s/ .*/ ./; s,\( .*\)/[^/]*$$,\1,' | \ $(AWK) 'BEGIN { files["."] = "" } { files[$$2] = files[$$2] " " $$1; \ if (++n[$$2] == $(am__install_max)) \ { print $$2, files[$$2]; n[$$2] = 0; files[$$2] = "" } } \ END { for (dir in files) print dir, files[dir] }' am__base_list = \ sed '$$!N;$$!N;$$!N;$$!N;$$!N;$$!N;$$!N;s/\n/ /g' | \ sed '$$!N;$$!N;$$!N;$$!N;s/\n/ /g' am__uninstall_files_from_dir = { \ test -z "$$files" \ || { test ! -d "$$dir" && test ! -f "$$dir" && test ! -r "$$dir"; } \ || { echo " ( cd '$$dir' && rm -f" $$files ")"; \ $(am__cd) "$$dir" && rm -f $$files; }; \ } am__installdirs = "$(DESTDIR)$(pkgconfigdir)" DATA = $(pkgconfig_DATA) RECURSIVE_CLEAN_TARGETS = mostlyclean-recursive clean-recursive \ distclean-recursive maintainer-clean-recursive AM_RECURSIVE_TARGETS = $(RECURSIVE_TARGETS:-recursive=) \ $(RECURSIVE_CLEAN_TARGETS:-recursive=) tags TAGS ctags CTAGS \ distdir ETAGS = etags CTAGS = ctags DIST_SUBDIRS = $(SUBDIRS) DISTFILES = $(DIST_COMMON) $(DIST_SOURCES) $(TEXINFOS) $(EXTRA_DIST) am__relativize = \ dir0=`pwd`; \ sed_first='s,^\([^/]*\)/.*$$,\1,'; \ sed_rest='s,^[^/]*/*,,'; \ sed_last='s,^.*/\([^/]*\)$$,\1,'; \ sed_butlast='s,/*[^/]*$$,,'; \ while test -n "$$dir1"; do \ first=`echo "$$dir1" | sed -e "$$sed_first"`; \ if test "$$first" != "."; then \ if test "$$first" = ".."; then \ dir2=`echo "$$dir0" | sed -e "$$sed_last"`/"$$dir2"; \ dir0=`echo "$$dir0" | sed -e "$$sed_butlast"`; \ else \ first2=`echo "$$dir2" | sed -e "$$sed_first"`; \ if test "$$first2" = "$$first"; then \ dir2=`echo "$$dir2" | sed -e "$$sed_rest"`; \ else \ dir2="../$$dir2"; \ fi; \ dir0="$$dir0"/"$$first"; \ fi; \ fi; \ dir1=`echo "$$dir1" | sed -e "$$sed_rest"`; \ done; \ reldir="$$dir2" ACLOCAL = @ACLOCAL@ AG_PKG_CONFIG_PATH = @AG_PKG_CONFIG_PATH@ AMTAR = @AMTAR@ API_VERSION = @API_VERSION@ AR = @AR@ ATK_CFLAGS = @ATK_CFLAGS@ ATK_LIBS = @ATK_LIBS@ AUTOCONF = @AUTOCONF@ AUTOHEADER = @AUTOHEADER@ AUTOMAKE = @AUTOMAKE@ AWK = @AWK@ BONOBO_IDL_DIR = @BONOBO_IDL_DIR@ CANVAS_CFLAGS = @CANVAS_CFLAGS@ CANVAS_LIBS = @CANVAS_LIBS@ CC = @CC@ CCDEPMODE = @CCDEPMODE@ CFLAGS = @CFLAGS@ CORBA_CFLAGS = @CORBA_CFLAGS@ CORBA_LIBS = @CORBA_LIBS@ CPP = @CPP@ CPPFLAGS = @CPPFLAGS@ CYGPATH_W = @CYGPATH_W@ DEFS = @DEFS@ DEPDIR = @DEPDIR@ DLLTOOL = @DLLTOOL@ DSYMUTIL = @DSYMUTIL@ DUMPBIN = @DUMPBIN@ ECHO_C = @ECHO_C@ ECHO_N = @ECHO_N@ ECHO_T = @ECHO_T@ EGREP = @EGREP@ EXEEXT = @EXEEXT@ FGREP = @FGREP@ GCONF_CFLAGS = @GCONF_CFLAGS@ GCONF_LIBS = @GCONF_LIBS@ GDK_CFLAGS = @GDK_CFLAGS@ GDK_LIBS = @GDK_LIBS@ GDK_PIXBUF_CFLAGS = @GDK_PIXBUF_CFLAGS@ GDK_PIXBUF_LIBS = @GDK_PIXBUF_LIBS@ GLIB_CFLAGS = @GLIB_CFLAGS@ GLIB_LIBS = @GLIB_LIBS@ GNOMEUI_DEPRECATION_FLAGS = @GNOMEUI_DEPRECATION_FLAGS@ GNOME_VFS_CFLAGS = @GNOME_VFS_CFLAGS@ GNOME_VFS_DEPRECATED_CFLAGS = @GNOME_VFS_DEPRECATED_CFLAGS@ GNOME_VFS_LIBS = @GNOME_VFS_LIBS@ GOBJECT_CFLAGS = @GOBJECT_CFLAGS@ GOBJECT_LIBS = @GOBJECT_LIBS@ GREP = @GREP@ GTHREAD_CFLAGS = @GTHREAD_CFLAGS@ GTHREAD_LIBS = @GTHREAD_LIBS@ GTK_CFLAGS = @GTK_CFLAGS@ GTK_DEPRECATED_CFLAGS = @GTK_DEPRECATED_CFLAGS@ GTK_LIBS = @GTK_LIBS@ GUILE_CAIRO_CFLAGS = @GUILE_CAIRO_CFLAGS@ GUILE_CAIRO_LIBS = @GUILE_CAIRO_LIBS@ GUILE_CFLAGS = @GUILE_CFLAGS@ GUILE_EFFECTIVE_VERSION = @GUILE_EFFECTIVE_VERSION@ GUILE_GLIB_CFLAGS = @GUILE_GLIB_CFLAGS@ GUILE_GLIB_LIBS = @GUILE_GLIB_LIBS@ GUILE_LIBS = @GUILE_LIBS@ G_WRAP_CFLAGS = @G_WRAP_CFLAGS@ G_WRAP_LIBS = @G_WRAP_LIBS@ G_WRAP_LIB_DIR = @G_WRAP_LIB_DIR@ G_WRAP_MODULE_DIR = @G_WRAP_MODULE_DIR@ INSTALL = @INSTALL@ INSTALL_DATA = @INSTALL_DATA@ INSTALL_PROGRAM = @INSTALL_PROGRAM@ INSTALL_SCRIPT = @INSTALL_SCRIPT@ INSTALL_STRIP_PROGRAM = @INSTALL_STRIP_PROGRAM@ LD = @LD@ LDFLAGS = @LDFLAGS@ LIBGLADE_CFLAGS = @LIBGLADE_CFLAGS@ LIBGLADE_LIBS = @LIBGLADE_LIBS@ LIBGNOMEUI_CFLAGS = @LIBGNOMEUI_CFLAGS@ LIBGNOMEUI_LIBS = @LIBGNOMEUI_LIBS@ LIBGNOME_CFLAGS = @LIBGNOME_CFLAGS@ LIBGNOME_LIBS = @LIBGNOME_LIBS@ LIBOBJS = @LIBOBJS@ LIBS = @LIBS@ LIBTOOL = @LIBTOOL@ LIPO = @LIPO@ LN_S = @LN_S@ LTLIBOBJS = @LTLIBOBJS@ MAKEINFO = @MAKEINFO@ MANIFEST_TOOL = @MANIFEST_TOOL@ MKDIR_P = @MKDIR_P@ NM = @NM@ NMEDIT = @NMEDIT@ OBJDUMP = @OBJDUMP@ OBJEXT = @OBJEXT@ ORBIT_IDL = @ORBIT_IDL@ OTOOL = @OTOOL@ OTOOL64 = @OTOOL64@ PACKAGE = @PACKAGE@ PACKAGE_BUGREPORT = @PACKAGE_BUGREPORT@ PACKAGE_NAME = @PACKAGE_NAME@ PACKAGE_STRING = @PACKAGE_STRING@ PACKAGE_TARNAME = @PACKAGE_TARNAME@ PACKAGE_URL = @PACKAGE_URL@ PACKAGE_VERSION = @PACKAGE_VERSION@ PANGOCAIRO_CFLAGS = @PANGOCAIRO_CFLAGS@ PANGOCAIRO_LIBS = @PANGOCAIRO_LIBS@ PANGO_CFLAGS = @PANGO_CFLAGS@ PANGO_LIBS = @PANGO_LIBS@ PATH_SEPARATOR = @PATH_SEPARATOR@ PKG_CONFIG = @PKG_CONFIG@ PKG_CONFIG_LIBDIR = @PKG_CONFIG_LIBDIR@ PKG_CONFIG_PATH = @PKG_CONFIG_PATH@ RANLIB = @RANLIB@ SED = @SED@ SET_MAKE = @SET_MAKE@ SHELL = @SHELL@ STRIP = @STRIP@ VERSION = @VERSION@ WARN_CFLAGS = @WARN_CFLAGS@ abs_builddir = @abs_builddir@ abs_srcdir = @abs_srcdir@ abs_top_builddir = @abs_top_builddir@ abs_top_srcdir = @abs_top_srcdir@ ac_ct_AR = @ac_ct_AR@ ac_ct_CC = @ac_ct_CC@ ac_ct_DUMPBIN = @ac_ct_DUMPBIN@ am__include = @am__include@ am__leading_dot = @am__leading_dot@ am__quote = @am__quote@ am__tar = @am__tar@ am__untar = @am__untar@ bindir = @bindir@ build = @build@ build_alias = @build_alias@ build_cpu = @build_cpu@ build_os = @build_os@ build_vendor = @build_vendor@ builddir = @builddir@ datadir = @datadir@ datarootdir = @datarootdir@ docdir = @docdir@ dvidir = @dvidir@ exec_prefix = @exec_prefix@ host = @host@ host_alias = @host_alias@ host_cpu = @host_cpu@ host_os = @host_os@ host_vendor = @host_vendor@ htmldir = @htmldir@ includedir = @includedir@ infodir = @infodir@ install_sh = @install_sh@ libdir = @libdir@ libexecdir = @libexecdir@ localedir = @localedir@ localstatedir = @localstatedir@ mandir = @mandir@ mkdir_p = @mkdir_p@ oldincludedir = @oldincludedir@ pdfdir = @pdfdir@ prefix = @prefix@ program_transform_name = @program_transform_name@ psdir = @psdir@ sbindir = @sbindir@ sharedstatedir = @sharedstatedir@ srcdir = @srcdir@ sysconfdir = @sysconfdir@ target_alias = @target_alias@ top_build_prefix = @top_build_prefix@ top_builddir = @top_builddir@ top_srcdir = @top_srcdir@ guilegnomedir = $(datadir)/guile-gnome-@API_VERSION@ guilemoduledir = $(guilegnomedir)/gnome guilegwmoduledir = $(guilegnomedir)/gnome/gw guilegnomelibdir = $(libdir)/guile-gnome-@API_VERSION@ AM_CFLAGS = -I. -I$(srcdir) $(WARN_CFLAGS) $(DEBUG_CFLAGS) # For overriding from the command line (e.g. --debug) GUILE_FLAGS = SUFFIXES = .x .doc GUILE_SNARF_CFLAGS = $(DEFS) $(AM_CFLAGS) $(GUILE_CFLAGS) $(G_WRAP_CFLAGS) PACKAGES = atk cairo corba defs gconf glib gnome-vfs gtk libglade libgnome libgnomecanvas libgnomeui pango SOURCE_GUILE_PATH = $(shell echo $(addprefix $(top_srcdir)/,$(PACKAGES)) | sed -e 's/ /:/g'):$(srcdir) BUILD_GUILE_PATH = $(if $(filter-out $(top_srcdir),$(top_builddir)),$(shell echo -n $(addprefix $(top_builddir)/,$(PACKAGES)): | sed -e 's/ /:/g'),) GUILE_LOAD_PATH := $(BUILD_GUILE_PATH)$(SOURCE_GUILE_PATH):${G_WRAP_MODULE_DIR}:${GUILE_LOAD_PATH} # Real gnu make foo packages = $(filter-out %-uninstalled,$(patsubst %.pc.in,%,$(notdir $(wildcard $(srcdir)/*.pc.in)))) pcifiles = $(patsubst %,%-@API_VERSION@.pc,$(packages)) pcufiles = $(patsubst %,%-@API_VERSION@-uninstalled.pc,$(packages)) SUBDIRS = gnome doc tests EXTRA_DIST = ChangeLog.pre-2.16 AUTHORS README @HAVE_LIBGNOMEUI_TRUE@pkgconfigdir = $(libdir)/pkgconfig @HAVE_LIBGNOMEUI_TRUE@pkgconfig_DATA = $(pcifiles) CLEANFILES = $(pcifiles) $(pcufiles) all: all-recursive .SUFFIXES: .SUFFIXES: .x .doc .c $(srcdir)/Makefile.in: $(srcdir)/Makefile.am $(top_srcdir)/common.mk $(am__configure_deps) @for dep in $?; do \ case '$(am__configure_deps)' in \ *$$dep*) \ ( cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh ) \ && { if test -f $@; then exit 0; else break; fi; }; \ exit 1;; \ esac; \ done; \ echo ' cd $(top_srcdir) && $(AUTOMAKE) --gnu libgnomeui/Makefile'; \ $(am__cd) $(top_srcdir) && \ $(AUTOMAKE) --gnu libgnomeui/Makefile .PRECIOUS: Makefile Makefile: $(srcdir)/Makefile.in $(top_builddir)/config.status @case '$?' in \ *config.status*) \ cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh;; \ *) \ echo ' cd $(top_builddir) && $(SHELL) ./config.status $(subdir)/$@ $(am__depfiles_maybe)'; \ cd $(top_builddir) && $(SHELL) ./config.status $(subdir)/$@ $(am__depfiles_maybe);; \ esac; $(top_srcdir)/common.mk: $(top_builddir)/config.status: $(top_srcdir)/configure $(CONFIG_STATUS_DEPENDENCIES) cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh $(top_srcdir)/configure: $(am__configure_deps) cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh $(ACLOCAL_M4): $(am__aclocal_m4_deps) cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh $(am__aclocal_m4_deps): guile-gnome-libgnomeui.pc: $(top_builddir)/config.status $(srcdir)/guile-gnome-libgnomeui.pc.in cd $(top_builddir) && $(SHELL) ./config.status $(subdir)/$@ guile-gnome-libgnomeui-uninstalled.pc: $(top_builddir)/config.status $(srcdir)/guile-gnome-libgnomeui-uninstalled.pc.in cd $(top_builddir) && $(SHELL) ./config.status $(subdir)/$@ mostlyclean-libtool: -rm -f *.lo clean-libtool: -rm -rf .libs _libs install-pkgconfigDATA: $(pkgconfig_DATA) @$(NORMAL_INSTALL) @list='$(pkgconfig_DATA)'; test -n "$(pkgconfigdir)" || list=; \ if test -n "$$list"; then \ echo " $(MKDIR_P) '$(DESTDIR)$(pkgconfigdir)'"; \ $(MKDIR_P) "$(DESTDIR)$(pkgconfigdir)" || exit 1; \ fi; \ for p in $$list; do \ if test -f "$$p"; then d=; else d="$(srcdir)/"; fi; \ echo "$$d$$p"; \ done | $(am__base_list) | \ while read files; do \ echo " $(INSTALL_DATA) $$files '$(DESTDIR)$(pkgconfigdir)'"; \ $(INSTALL_DATA) $$files "$(DESTDIR)$(pkgconfigdir)" || exit $$?; \ done uninstall-pkgconfigDATA: @$(NORMAL_UNINSTALL) @list='$(pkgconfig_DATA)'; test -n "$(pkgconfigdir)" || list=; \ files=`for p in $$list; do echo $$p; done | sed -e 's|^.*/||'`; \ dir='$(DESTDIR)$(pkgconfigdir)'; $(am__uninstall_files_from_dir) # This directory's subdirectories are mostly independent; you can cd # into them and run `make' without going through this Makefile. # To change the values of `make' variables: instead of editing Makefiles, # (1) if the variable is set in `config.status', edit `config.status' # (which will cause the Makefiles to be regenerated when you run `make'); # (2) otherwise, pass the desired values on the `make' command line. $(RECURSIVE_TARGETS): @fail= failcom='exit 1'; \ for f in x $$MAKEFLAGS; do \ case $$f in \ *=* | --[!k]*);; \ *k*) failcom='fail=yes';; \ esac; \ done; \ dot_seen=no; \ target=`echo $@ | sed s/-recursive//`; \ list='$(SUBDIRS)'; for subdir in $$list; do \ echo "Making $$target in $$subdir"; \ if test "$$subdir" = "."; then \ dot_seen=yes; \ local_target="$$target-am"; \ else \ local_target="$$target"; \ fi; \ ($(am__cd) $$subdir && $(MAKE) $(AM_MAKEFLAGS) $$local_target) \ || eval $$failcom; \ done; \ if test "$$dot_seen" = "no"; then \ $(MAKE) $(AM_MAKEFLAGS) "$$target-am" || exit 1; \ fi; test -z "$$fail" $(RECURSIVE_CLEAN_TARGETS): @fail= failcom='exit 1'; \ for f in x $$MAKEFLAGS; do \ case $$f in \ *=* | --[!k]*);; \ *k*) failcom='fail=yes';; \ esac; \ done; \ dot_seen=no; \ case "$@" in \ distclean-* | maintainer-clean-*) list='$(DIST_SUBDIRS)' ;; \ *) list='$(SUBDIRS)' ;; \ esac; \ rev=''; for subdir in $$list; do \ if test "$$subdir" = "."; then :; else \ rev="$$subdir $$rev"; \ fi; \ done; \ rev="$$rev ."; \ target=`echo $@ | sed s/-recursive//`; \ for subdir in $$rev; do \ echo "Making $$target in $$subdir"; \ if test "$$subdir" = "."; then \ local_target="$$target-am"; \ else \ local_target="$$target"; \ fi; \ ($(am__cd) $$subdir && $(MAKE) $(AM_MAKEFLAGS) $$local_target) \ || eval $$failcom; \ done && test -z "$$fail" tags-recursive: list='$(SUBDIRS)'; for subdir in $$list; do \ test "$$subdir" = . || ($(am__cd) $$subdir && $(MAKE) $(AM_MAKEFLAGS) tags); \ done ctags-recursive: list='$(SUBDIRS)'; for subdir in $$list; do \ test "$$subdir" = . || ($(am__cd) $$subdir && $(MAKE) $(AM_MAKEFLAGS) ctags); \ done ID: $(HEADERS) $(SOURCES) $(LISP) $(TAGS_FILES) list='$(SOURCES) $(HEADERS) $(LISP) $(TAGS_FILES)'; \ unique=`for i in $$list; do \ if test -f "$$i"; then echo $$i; else echo $(srcdir)/$$i; fi; \ done | \ $(AWK) '{ files[$$0] = 1; nonempty = 1; } \ END { if (nonempty) { for (i in files) print i; }; }'`; \ mkid -fID $$unique tags: TAGS TAGS: tags-recursive $(HEADERS) $(SOURCES) $(TAGS_DEPENDENCIES) \ $(TAGS_FILES) $(LISP) set x; \ here=`pwd`; \ if ($(ETAGS) --etags-include --version) >/dev/null 2>&1; then \ include_option=--etags-include; \ empty_fix=.; \ else \ include_option=--include; \ empty_fix=; \ fi; \ list='$(SUBDIRS)'; for subdir in $$list; do \ if test "$$subdir" = .; then :; else \ test ! -f $$subdir/TAGS || \ set "$$@" "$$include_option=$$here/$$subdir/TAGS"; \ fi; \ done; \ list='$(SOURCES) $(HEADERS) $(LISP) $(TAGS_FILES)'; \ unique=`for i in $$list; do \ if test -f "$$i"; then echo $$i; else echo $(srcdir)/$$i; fi; \ done | \ $(AWK) '{ files[$$0] = 1; nonempty = 1; } \ END { if (nonempty) { for (i in files) print i; }; }'`; \ shift; \ if test -z "$(ETAGS_ARGS)$$*$$unique"; then :; else \ test -n "$$unique" || unique=$$empty_fix; \ if test $$# -gt 0; then \ $(ETAGS) $(ETAGSFLAGS) $(AM_ETAGSFLAGS) $(ETAGS_ARGS) \ "$$@" $$unique; \ else \ $(ETAGS) $(ETAGSFLAGS) $(AM_ETAGSFLAGS) $(ETAGS_ARGS) \ $$unique; \ fi; \ fi ctags: CTAGS CTAGS: ctags-recursive $(HEADERS) $(SOURCES) $(TAGS_DEPENDENCIES) \ $(TAGS_FILES) $(LISP) list='$(SOURCES) $(HEADERS) $(LISP) $(TAGS_FILES)'; \ unique=`for i in $$list; do \ if test -f "$$i"; then echo $$i; else echo $(srcdir)/$$i; fi; \ done | \ $(AWK) '{ files[$$0] = 1; nonempty = 1; } \ END { if (nonempty) { for (i in files) print i; }; }'`; \ test -z "$(CTAGS_ARGS)$$unique" \ || $(CTAGS) $(CTAGSFLAGS) $(AM_CTAGSFLAGS) $(CTAGS_ARGS) \ $$unique GTAGS: here=`$(am__cd) $(top_builddir) && pwd` \ && $(am__cd) $(top_srcdir) \ && gtags -i $(GTAGS_ARGS) "$$here" distclean-tags: -rm -f TAGS ID GTAGS GRTAGS GSYMS GPATH tags distdir: $(DISTFILES) @srcdirstrip=`echo "$(srcdir)" | sed 's/[].[^$$\\*]/\\\\&/g'`; \ topsrcdirstrip=`echo "$(top_srcdir)" | sed 's/[].[^$$\\*]/\\\\&/g'`; \ list='$(DISTFILES)'; \ dist_files=`for file in $$list; do echo $$file; done | \ sed -e "s|^$$srcdirstrip/||;t" \ -e "s|^$$topsrcdirstrip/|$(top_builddir)/|;t"`; \ case $$dist_files in \ */*) $(MKDIR_P) `echo "$$dist_files" | \ sed '/\//!d;s|^|$(distdir)/|;s,/[^/]*$$,,' | \ sort -u` ;; \ esac; \ for file in $$dist_files; do \ if test -f $$file || test -d $$file; then d=.; else d=$(srcdir); fi; \ if test -d $$d/$$file; then \ dir=`echo "/$$file" | sed -e 's,/[^/]*$$,,'`; \ if test -d "$(distdir)/$$file"; then \ find "$(distdir)/$$file" -type d ! -perm -700 -exec chmod u+rwx {} \;; \ fi; \ if test -d $(srcdir)/$$file && test $$d != $(srcdir); then \ cp -fpR $(srcdir)/$$file "$(distdir)$$dir" || exit 1; \ find "$(distdir)/$$file" -type d ! -perm -700 -exec chmod u+rwx {} \;; \ fi; \ cp -fpR $$d/$$file "$(distdir)$$dir" || exit 1; \ else \ test -f "$(distdir)/$$file" \ || cp -p $$d/$$file "$(distdir)/$$file" \ || exit 1; \ fi; \ done @list='$(DIST_SUBDIRS)'; for subdir in $$list; do \ if test "$$subdir" = .; then :; else \ $(am__make_dryrun) \ || test -d "$(distdir)/$$subdir" \ || $(MKDIR_P) "$(distdir)/$$subdir" \ || exit 1; \ dir1=$$subdir; dir2="$(distdir)/$$subdir"; \ $(am__relativize); \ new_distdir=$$reldir; \ dir1=$$subdir; dir2="$(top_distdir)"; \ $(am__relativize); \ new_top_distdir=$$reldir; \ echo " (cd $$subdir && $(MAKE) $(AM_MAKEFLAGS) top_distdir="$$new_top_distdir" distdir="$$new_distdir" \\"; \ echo " am__remove_distdir=: am__skip_length_check=: am__skip_mode_fix=: distdir)"; \ ($(am__cd) $$subdir && \ $(MAKE) $(AM_MAKEFLAGS) \ top_distdir="$$new_top_distdir" \ distdir="$$new_distdir" \ am__remove_distdir=: \ am__skip_length_check=: \ am__skip_mode_fix=: \ distdir) \ || exit 1; \ fi; \ done check-am: all-am check: check-recursive @HAVE_LIBGNOMEUI_FALSE@all-local: all-am: Makefile $(DATA) all-local installdirs: installdirs-recursive installdirs-am: for dir in "$(DESTDIR)$(pkgconfigdir)"; do \ test -z "$$dir" || $(MKDIR_P) "$$dir"; \ done install: install-recursive install-exec: install-exec-recursive install-data: install-data-recursive uninstall: uninstall-recursive install-am: all-am @$(MAKE) $(AM_MAKEFLAGS) install-exec-am install-data-am installcheck: installcheck-recursive install-strip: if test -z '$(STRIP)'; then \ $(MAKE) $(AM_MAKEFLAGS) INSTALL_PROGRAM="$(INSTALL_STRIP_PROGRAM)" \ install_sh_PROGRAM="$(INSTALL_STRIP_PROGRAM)" INSTALL_STRIP_FLAG=-s \ install; \ else \ $(MAKE) $(AM_MAKEFLAGS) INSTALL_PROGRAM="$(INSTALL_STRIP_PROGRAM)" \ install_sh_PROGRAM="$(INSTALL_STRIP_PROGRAM)" INSTALL_STRIP_FLAG=-s \ "INSTALL_PROGRAM_ENV=STRIPPROG='$(STRIP)'" install; \ fi mostlyclean-generic: clean-generic: -test -z "$(CLEANFILES)" || rm -f $(CLEANFILES) distclean-generic: -test -z "$(CONFIG_CLEAN_FILES)" || rm -f $(CONFIG_CLEAN_FILES) -test . = "$(srcdir)" || test -z "$(CONFIG_CLEAN_VPATH_FILES)" || rm -f $(CONFIG_CLEAN_VPATH_FILES) maintainer-clean-generic: @echo "This command is intended for maintainers to use" @echo "it deletes files that may require special tools to rebuild." clean: clean-recursive clean-am: clean-generic clean-libtool mostlyclean-am distclean: distclean-recursive -rm -f Makefile distclean-am: clean-am distclean-generic distclean-tags dvi: dvi-recursive dvi-am: html: html-recursive html-am: info: info-recursive info-am: install-data-am: install-pkgconfigDATA install-dvi: install-dvi-recursive install-dvi-am: install-exec-am: install-html: install-html-recursive install-html-am: install-info: install-info-recursive install-info-am: install-man: install-pdf: install-pdf-recursive install-pdf-am: install-ps: install-ps-recursive install-ps-am: installcheck-am: maintainer-clean: maintainer-clean-recursive -rm -f Makefile maintainer-clean-am: distclean-am maintainer-clean-generic mostlyclean: mostlyclean-recursive mostlyclean-am: mostlyclean-generic mostlyclean-libtool pdf: pdf-recursive pdf-am: ps: ps-recursive ps-am: uninstall-am: uninstall-pkgconfigDATA .MAKE: $(RECURSIVE_CLEAN_TARGETS) $(RECURSIVE_TARGETS) ctags-recursive \ install-am install-strip tags-recursive .PHONY: $(RECURSIVE_CLEAN_TARGETS) $(RECURSIVE_TARGETS) CTAGS GTAGS \ all all-am all-local check check-am clean clean-generic \ clean-libtool ctags ctags-recursive distclean \ distclean-generic distclean-libtool distclean-tags distdir dvi \ dvi-am html html-am info info-am install install-am \ install-data install-data-am install-dvi install-dvi-am \ install-exec install-exec-am install-html install-html-am \ install-info install-info-am install-man install-pdf \ install-pdf-am install-pkgconfigDATA install-ps install-ps-am \ install-strip installcheck installcheck-am installdirs \ installdirs-am maintainer-clean maintainer-clean-generic \ mostlyclean mostlyclean-generic mostlyclean-libtool pdf pdf-am \ ps ps-am tags tags-recursive uninstall uninstall-am \ uninstall-pkgconfigDATA export GUILE_LOAD_PATH .c.x: guile-snarf $(GUILE_SNARF_CFLAGS) $< > $@ \ || { rm $@; false; } .c.doc: $(CPP) -DSCM_MAGIC_SNARF_DOCS $(GUILE_SNARF_CFLAGS) $< \ | grep -E '(\^\^ {|\^\^ })' > $@ || { rm $@; false; } %.scm guile-gnome-gw-%.c: %-spec.scm guile $(GUILE_FLAGS) -c \ "(debug-set! stack 400000) \ (use-modules (gnome-@API_VERSION@)) \ (use-modules (g-wrap)) \ (use-modules (gnome gw $*-spec)) \ (generate-wrapset 'guile 'gnome-$* \"guile-gnome-gw-$*\")" mv guile-gnome-gw-$*.scm $*.scm %-@API_VERSION@.pc: %.pc cp $< $@ %-@API_VERSION@-uninstalled.pc: %-uninstalled.pc cp $< $@ @HAVE_LIBGNOMEUI_TRUE@all-local: $(pcifiles) $(pcufiles) # Tell versions [3.59,3.63) of GNU make to not export all variables. # Otherwise a system limit (for SysV at least) may be exceeded. .NOEXPORT: guile-gnome-platform-2.16.2/libgnomeui/README0000644000175000017500000000167611670374303021214 0ustar00wingowingo00000000000000guile-gnome-libgnomeui README Copyright (C) 2004 Free Software Foundation, Inc. See the end for copying conditions of this file. Last updated 16 September 2004. About guile-gnome-libgnomeui ============================ guile-gnome-libgnomeui is a Guile wrapper for libgnomeui, the evil stepchild of Gnome. It is a part of GNU guile-gnome. See the README file in the toplevel source directory for more information. Build dependencies ================== Besides the base guile-gnome requirements given in ../README, guile-gnome-libgnomeui requires libgnomeui development packages. guile-gnome-libgnomeui depends on the following guile-gnome modules: glib, defs, atk, pango, gtk, libgnome. Copying this file ================= Copyright (C) 2004 Free Software Foundation, Inc. Copying and distribution of this file, with or without modification, are permitted in any medium without royalty provided the copyright notice and this notice are preserved. guile-gnome-platform-2.16.2/libgnomeui/AUTHORS0000644000175000017500000000051111670374303021367 0ustar00wingowingo00000000000000To find out what should go in this file, see "Information For Maintainers of GNU Software" (maintain.texi), the section called "Recording Changes". Andy Wingo: In the directory gnome/gw, wrote: libgnomeui-spec.scm In the directory gnome, wrote: gnome-ui.scm In the directory gnome/overrides, wrote: libgnomeui.defs guile-gnome-platform-2.16.2/libgnomeui/ChangeLog.pre-2.160000644000175000017500000001377711670374303023264 0ustar00wingowingo000000000000002008-05-01 Andy Wingo * doc/overview.texi (Overview): Add overview docs. 2008-04-25 Andy Wingo * == Released guile-gnome-platform version 2.15.98 == 2008-04-25 Andy Wingo * doc/*.texi: Update docs. 2008-04-10 Andy Wingo * == Released guile-gnome-platform version 2.15.97 == 2008-04-10 Andy Wingo * NEWS: Update NEWS. 2007-12-10 Andy Wingo * == Released guile-gnome-platform version 2.15.96 == 2007-12-06 Andy Wingo * tests/wrapset.api: Regnerated for massive API removal on previous commit. * doc/defuns-*.texi: Regenerated. * doc/guile-gnome-libgnomeui.texi (Top): * doc/undocumented.texi: New section for undocumented exports. 2007-11-30 Andy Wingo * gnome/overrides/libgnomeui.defs: Ignore lots of code which is replaced by things in gtk+. * gnome/gw/libgnomeui-spec.scm: Depend on libgnome. * doc/guile-gnome-libgnomeui.texi (Top): Add type index. 2007-11-10 Andy Wingo * == Released guile-gnome-platform version 2.15.95 == 2007-11-10 Andy Wingo * tests/Makefile.am: * tests/wrapset.api: * tests/wrapset.scm: Add API regression test suite. 2007-11-01 Andy Wingo * Makefile.am: * doc/: Add documentation, generated from upstream gtk-doc. 2007-09-25 Andy Wingo * == Released guile-gnome-platform version 2.15.94 == 2007-09-25 Andy Wingo * NEWS: Updated. 2007-06-15 Andy Wingo * == Released guile-gnome-platform version 2.15.93 == 2007-05-24 Andy Wingo * == Released guile-gnome-platform version 2.15.92 == 2007-05-24 Andy Wingo * gnome/overrides/Makefile.am: Rename ui.defs to libgnomeui.defs. * gnome/gw/libgnomeui-spec.scm (initialize): Update for ui->libgnomeui.defs. Don't add an alias for time_t, GLib does that. 2007-05-10 Andy Wingo * == Released guile-gnome-platform version 2.15.91 == 2006-12-15 Andy Wingo * == Released guile-gnome-platform version 2.15.90 == 2006-11-05 Andy Wingo * gnome/gw/libgnomeui-spec.scm: Use (gnome gw support g-wrap), the g-wrap compatibility wrapper. 2005-03-06 Andy Wingo * == Released guile-gnome-platform version 2.7.99 == 2005-02-17 Andy Wingo * package.ac: Follow --disable-deprecation for deprecation handling. 2005-01-11 Andy Wingo * == Released platform version 2.7.98 == 2004-12-06 Andy Wingo * == Released platform version 2.7.97 == 2004-11-15 Andy Wingo * package.ac: Add record_check. 2004-11-07 Andy Wingo * Makefile.am (all-local): Only make/install the pkg-config files if we actually build the wrapset. 2004-10-28 Andy Wingo * guile-gnome-libgnomeui.pc.in (Requires): * guile-gnome-libgnomeui-uninstalled.pc.in (Requires): Require * glib-checks.ac: * defs-checks.ac: Versioned pkg-config checks. * Makefile.am (all-local): Versioned pkg-config files. 2004-10-26 Andy Wingo * gnome/gw/Makefile.am (guilegnomelib_LTLIBRARIES): Install to versioned directory. 2004-10-16 Andy Wingo * package.ac: Up required version of libgnomeui to 2.8.0. 2004-10-14 Andy Wingo * gnome/overrides/Makefile.am: Dist/install type overrides. * gnome/overrides/ui.defs: Adjust to ignore deprecated API. * gnome/overrides/ui.defs-type-ignores: New file. Overrides GnomeAppBar->GNOME_APPBAR, ignores deprecated types. * Makefile.am: * guile-gnome-libgnomeui-uninstalled.pc.in: * guile-gnome-libgnomeui.pc.in: * files.ac: Add pkg-config files. 2004-09-27 Andy Wingo * gnome/overrides/ui.defs: Ignore href_construct and entry_construct, they have never been implemented. 2004-09-26 Andy Wingo * gnome/Makefile.am (guilemodule_DATA): Install to the proper directory. 2004-09-19 Andy Wingo * gnome/gw/Makefile.am (libgw_guile_gnome_libgnomeui_la_LIBADD): Not G_WRAP_LINK_ARGS, it's G_WRAP_LIBS. 2004-09-16 Andy Wingo * Makefile.am (SUBDIRS): Dist fixes. * README: Added. * NEWS: Added. * AUTHORS: Added. * gtk-checks.ac: Check the right package. * glib-checks.ac: Check the right package. 2004-09-12 Andy Wingo * gnome/overrides/ui.defs, gnome/overrides/Makefile.am: Add overrides. * gnome/Makefile.am: Dist fixes, add overrides. * gnome/gw/libgnomeui-spec.scm (initialize): Adapted to module name changes, load-defs-with-overrides, real keywords. * gnome/gw/Makefile.am (nodist_libgw_guile_gnome_libgnomeui_la_SOURCES): Don't dist the g-wrap generated C file. 2004-08-06 Andreas Rottmann * gnome/Makefile.am: Distribute and install gnome-ui.scm. 2004-07-01 Andy Wingo * gnome/gw/libgnomeui-spec.scm (initialize): Fix for depends-on!. * gnome/gw/gnome-ui-spec.scm, gnome/gw/Makefile.am: Reverted previous name change. * gnome/gnome-ui.scm: New file. 2004-05-22 Andy Wingo * ChangeLog: Merged all gnome-ui changelogs to here. 2004-05-19 Andy Wingo * gtk-checks.ac: New file. 2004-05-19 Andy Wingo * gnome/gw/gnome-ui-spec.scm: Moved from libgnomeui-spec.scm. * gnome/gw/Makefile.am: Adapted to name change. 2004-04-03 Andreas Rottmann * configure.in: Depend on libgnomeui >= 2.6.0 and gtk+ >= 2.4.0. 2004-01-14 Andy Wingo * gnome/gw/gw-ui-spec.scm: New file. * gnome/gw/gw-gnome-spec.scm: New file. * gnome/gw/gw-canvas-spec.scm: New file. * gnome/gw/Makefile.am: Add bindings for libgnomecanvas, libgnomeui, and libgnome. 2003-12-13 Andreas Rottmann * gnome/gw/gw-canvas-spec.scm, gw-ui-spec.scm, gw-canvas-spec.scm: Use gw-standard instead of guile-gnome-gw-standard. guile-gnome-platform-2.16.2/libgnomeui/guile-gnome-libgnomeui-uninstalled.pc.in0000644000175000017500000000043611670374303030136 0ustar00wingowingo00000000000000# the standard variables don't make sense for an uninstalled copy prefix= exec_prefix= libdir=${pcfiledir} includedir=${pcfiledir} Name: (gnome gnome-ui), Uninstalled Description: Guile bindings for libgnomeui, Not Installed Version: @VERSION@ Requires: guile-gnome-glib-@API_VERSION@ guile-gnome-platform-2.16.2/libgnomeui/guile-gnome-libgnomeui.pc.in0000644000175000017500000000030611670374303025612 0ustar00wingowingo00000000000000prefix=@prefix@ exec_prefix=@exec_prefix@ libdir=@libdir@ Name: (gnome gnome-ui), Uninstalled Description: Guile bindings for libgnomeui Version: @VERSION@ Requires: guile-gnome-glib-@API_VERSION@ guile-gnome-platform-2.16.2/libgnomeui/ChangeLog0000644000175000017500000000006711670374303022077 0ustar00wingowingo00000000000000See the revision control log for changes since 2.16.0.